

             GGGGGGG     00000     2222222   VV     VV   SSSSSSS    CCCCCCC   PPPPPPPP   YY    YY                  A
            GGGGGGGGG   0000000   222222222  VV     VV  SSSSSSSSS  CCCCCCCCC  PPPPPPPPP  YY    YY                 AAA
            GG     GG  00     00  22     22  VV     VV  SS     SS  CC     CC  PP     PP  YY    YY                AA AA
            GG         00    000        22   VV     VV  SS         CC         PP     PP   YY  YY                AA   AA
            GG         00   0 00       22    VV     VV  SSSSSSSS   CC         PPPPPPPPP    YYYY                AA     AA
            GG   GGGG  00  0  00      22     VV     VV   SSSSSSSS  CC         PPPPPPPP      YY                 AA     AA
            GG   GGGG  00 0   00     22       VV   VV          SS  CC         PP            YY                 AAAAAAAAA
            GG     GG  000    00    22         VV VV    SS     SS  CC     CC  PP            YY                 AAAAAAAAA
            GGGGGGGGG   0000000    22222222     VVV     SSSSSSSSS  CCCCCCCCC  PP            YY                 AA     AA
             GGGGGGG     00000    222222222      V       SSSSSSS    CCCCCCC   PP            YY                 AA     AA

***********A  START   G02VSCPY   SYS SYSA   WTR 00E   07:38:43 PM  28 AUG 1978   WTR 00E   SYS SYSA   G02VSCPY   START  A***********
***********A  START   G02VSCPY   SYS SYSA   WTR 00E   07:38:43 PM  28 AUG 1978   WTR 00E   SYS SYSA   G02VSCPY   START  A***********
***********A  START   G02VSCPY   SYS SYSA   WTR 00E   07:38:43 PM  28 AUG 1978   WTR 00E   SYS SYSA   G02VSCPY   START  A***********
***********A  START   G02VSCPY   SYS SYSA   WTR 00E   07:38:43 PM  28 AUG 1978   WTR 00E   SYS SYSA   G02VSCPY   START  A***********
***********A  START   G02VSCPY   SYS SYSA   WTR 00E   07:38:43 PM  28 AUG 1978   WTR 00E   SYS SYSA   G02VSCPY   START  A***********


//G02VSCPY JOB 1,'G02VSCOPY',CLASS=A,MSGLEVEL=(1,1)
***********************************************************************
***                                                                 ***
***    Job:      G02VSCOPY                                          ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Link VSCOPY to driving system.                     ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
//LINK   EXEC PGM=IEWL,PARM='LIST,LET,XREF',REGION=256K
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD UNIT=SYSDA,SPACE=(TRK,(15,5))
//SYSLIN   DD DSN=VSCOPY.OBJ,DISP=OLD,UNIT=TAPE,VOL=SER=VSCOPY
//SYSLMOD  DD DSN=&&GOSET(VSCOPY),UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
//            SPACE=(TRK,(10,10,1))
***
IEF236I ALLOC. FOR G02VSCPY LINK
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 159   ALLOCATED TO SYSUT1
IEF237I 580   ALLOCATED TO SYSLIN
IEF237I 130   ALLOCATED TO SYSLMOD


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST,LET,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     ENTRY IEBDSCPY                                                         00008970
IEW0000     NAME VSCOPY(R)                                                         00008980
****VSCOPY    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBBAM        00     360
  IEBCNVT      360     10E
                                        IEBCNVT1     3EC
  IEBDRB       470     471
  IEBDRD       8E8     53F
                                        IEBDRDR      C40
  IEBDSCPY     E28     C45
                                        IEBDSCME     FF4    IEBDSCNI    10C0    IEBDSFRC    17DE    IEBDSCNM    1852
                                        IEBDSCEF    18BA    IEBDSOE2    18C0    IEBDSCCE    18C6    IEBDSCPE    18E4
                                        IEBDSCSX    19AE    IEBDSCM4    19B4    IEBDSRE     19C0    IEBDSWE     19CC
  IEBDSCP2    1A70     770
                                        IEBDSTOC    1A70    IEBDSCOT    1AC2    IEBDSCGD    1B16    IEBDSCBT    1C04
                                        IEBDSCGI    1EA4    IEBDSCKO    20E0
  IEBDSMCA    21E0     D20
  IEBDSU      2F00     4A0
                                        IEBDSU1     2F4A
  IEBDV1      33A0     F8D
                                        IEBDV2      3758    IEBDV0      3ACC    IEBDV3      3C54    IEBDV4      3D6C
                                        IEBDVJCB    40D0
  IEBDV1MG    4330      25
  IEBDWR      4358     497
                                        IEBDWRR     4724
  IEBIOE      47F0     72F
                                        IEBIOE2     4C62    IEBIOE3     4CEA    IEBIOE4     4CF0
  IEBIOEMG    4F20     283
  IEBLDUL     51A8     6A5
                                        IEBLDUL1    51C4    IEBLDUL2    53DC
  IEBMCM      5850     298
  IEBRSAM     5AE8     4C6
                                        IEBRSAM1    5B9E
  IEBSCN      5FB0     FCB
                                        IEBSCF      6A50
  IEBVCT      6F80     2E0
  IEBVDM      7260     6F4
                                        IEBVDRTM    7336
  IEBVMS      7958     54C
  IEBVMTXT    7EA8     CC8
  IEBVTM      8B70     90A
  IEBVTT      9480     398
  IEBWSAM     9818     5B4
                                        IEBWSAM1    9BCA

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBWSU      9DD0     A94
  IEBWSUMG    A868      F5



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1094            IEBDSMCA        IEBDSMCA                     FF8            IEBDSMCA        IEBDSMCA
      FFC            IEBDSMCA        IEBDSMCA                    257C            IEBDV0          IEBDV1
     2580            IEBDV1          IEBDV1                      2584            IEBDV2          IEBDV1
     2588            IEBDV3          IEBDV1                      258C            IEBDV4          IEBDV1
     2590            IEBSCN          IEBSCN                      2594            IEBSCF          IEBSCN
     2598            IEBDSCEF        IEBDSCPY                    259C            IEBDSCCE        IEBDSCPY
     25A0            IEBVMS          IEBVMS                      25A4            IEBDSCPE        IEBDSCPY
     25A8            IEBDSCNI        IEBDSCPY                    25AC            IEBDSCSX        IEBDSCPY
     25B0            IEBDSCME        IEBDSCPY                    25B4            IEBDSCM4        IEBDSCPY
     25B8            IEBVDRTM        IEBVDM                      25BC            IEBVCT          IEBVCT
     25C0            IEBVTT          IEBVTT                      25C4            IEBDSCGD        IEBDSCP2
     25C8            IEBDSCBT        IEBDSCP2                    25CC            IEBDSCGI        IEBDSCP2
     25D0            IEBDSCKO        IEBDSCP2                    25D4            IEBDRD          IEBDRD
     25D8            IEBWSU          IEBWSU                      25DC            IEBDSTOC        IEBDSCP2
     25E0            IEBDSCOT        IEBDSCP2                    25E4            IEBDWR          IEBDWR
     25E8            IEBIOE          IEBIOE                      25EC            IEBDSCNM        IEBDSCPY
     25F0            IEBDRB          IEBDRB                      25F4            IEBMCM          IEBMCM
     25F8            IEBVDM          IEBVDM                      25FC            IEBVTM          IEBVTM
     2600            IEBDSRE         IEBDSCPY                    2604            IEBDSWE         IEBDSCPY
     2608            IEBDRDR         IEBDRD                      260C            IEBDWRR         IEBDWR
     2610            IEBBAM          IEBBAM                      2614            IEBLDUL1        IEBLDUL
     2618            IEBLDUL2        IEBLDUL                     261C            IEBIOE2         IEBIOE
     2620            IEBIOE3         IEBIOE                      2624            IEBIOE4         IEBIOE
     2628            IEBDSFRC        IEBDSCPY                    262C            IEBDSOE2        IEBDSCPY
     2630            IEBRSAM         IEBRSAM                     2634            IEBRSAM1        IEBRSAM
     2638            IEBWSAM         IEBWSAM                     263C            IEBWSAM1        IEBWSAM
     2640            IEBDSU          IEBDSU                      2644            IEBDSU1         IEBDSU
     2648            IEBCNVT         IEBCNVT                     264C            IEBCNVT1        IEBCNVT
     2650            IEBDVJCB        IEBDV1                      265C            IEBDVJCB        IEBDV1
     425C            IEBDV1MG        IEBDV1MG                    4E78            IEBIOEMG        IEBIOEMG
     7C60            IEBVMTXT        IEBVMTXT                    7D78            IEBVMTXT        IEBVMTXT
     7D7C            IEBVMTXT        IEBVMTXT                    7D80            IEBVMTXT        IEBVMTXT
     7D84            IEBVMTXT        IEBVMTXT                    7D88            IEBVMTXT        IEBVMTXT
     7D8C            IEBVMTXT        IEBVMTXT                    7D90            IEBVMTXT        IEBVMTXT
     7D94            IEBVMTXT        IEBVMTXT                    7D98            IEBVMTXT        IEBVMTXT
     7D9C            IEBVMTXT        IEBVMTXT                    7DA0            IEBVMTXT        IEBVMTXT
     7DA4            IEBVMTXT        IEBVMTXT                    7DA8            IEBVMTXT        IEBVMTXT
     7DAC            IEBVMTXT        IEBVMTXT                    7DB0            IEBVMTXT        IEBVMTXT
     7DB4            IEBVMTXT        IEBVMTXT                    7DB8            IEBVMTXT        IEBVMTXT
     7DBC            IEBVMTXT        IEBVMTXT                    7DC0            IEBVMTXT        IEBVMTXT
     7DC4            IEBVMTXT        IEBVMTXT                    7DC8            IEBVMTXT        IEBVMTXT
     7DCC            IEBVMTXT        IEBVMTXT                    7DD0            IEBVMTXT        IEBVMTXT
     7DD4            IEBVMTXT        IEBVMTXT                    7DD8            IEBVMTXT        IEBVMTXT
     7DDC            IEBVMTXT        IEBVMTXT                    7DE0            IEBVMTXT        IEBVMTXT
     7DE4            IEBVMTXT        IEBVMTXT                    7DE8            IEBVMTXT        IEBVMTXT

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     7DEC            IEBVMTXT        IEBVMTXT                    7DF0            IEBVMTXT        IEBVMTXT
     7DF4            IEBVMTXT        IEBVMTXT                    7DF8            IEBVMTXT        IEBVMTXT
     7DFC            IEBVMTXT        IEBVMTXT                    7E00            IEBVMTXT        IEBVMTXT
     7E04            IEBVMTXT        IEBVMTXT                    7E08            IEBVMTXT        IEBVMTXT
     7E0C            IEBVMTXT        IEBVMTXT                    7E10            IEBVMTXT        IEBVMTXT
     7E14            IEBVMTXT        IEBVMTXT                    7E18            IEBVMTXT        IEBVMTXT
     7E1C            IEBVMTXT        IEBVMTXT                    7E20            IEBVMTXT        IEBVMTXT
     7E24            IEBVMTXT        IEBVMTXT                    7E28            IEBVMTXT        IEBVMTXT
     7E2C            IEBVMTXT        IEBVMTXT                    7E30            IEBVMTXT        IEBVMTXT
     7E34            IEBVMTXT        IEBVMTXT                    7E38            IEBVMTXT        IEBVMTXT
     7E3C            IEBVMTXT        IEBVMTXT                    7E40            IEBVMTXT        IEBVMTXT
     7E44            IEBVMTXT        IEBVMTXT                    7E48            IEBVMTXT        IEBVMTXT
     7E4C            IEBVMTXT        IEBVMTXT                    7E50            IEBVMTXT        IEBVMTXT
     7E54            IEBVMTXT        IEBVMTXT                    7E58            IEBVMTXT        IEBVMTXT
     7E5C            IEBVMTXT        IEBVMTXT                    7E60            IEBVMTXT        IEBVMTXT
     7E64            IEBVMTXT        IEBVMTXT                    7E68            IEBVMTXT        IEBVMTXT
     7E6C            IEBVMTXT        IEBVMTXT                    7E70            IEBVMTXT        IEBVMTXT
     7E74            IEBVMTXT        IEBVMTXT                    7E78            IEBVMTXT        IEBVMTXT
     7E7C            IEBVMTXT        IEBVMTXT                    7E80            IEBVMTXT        IEBVMTXT
     7E84            IEBVMTXT        IEBVMTXT                    7E88            IEBVMTXT        IEBVMTXT
     7E8C            IEBVMTXT        IEBVMTXT                    7E90            IEBVMTXT        IEBVMTXT
     7E94            IEBVMTXT        IEBVMTXT                    7E98            IEBVMTXT        IEBVMTXT
     7E9C            IEBVMTXT        IEBVMTXT                    7EA0            IEBVMTXT        IEBVMTXT
     A7D0            IEBWSUMG        IEBWSUMG
 ENTRY ADDRESS      E28
 TOTAL LENGTH      A960



IEW0000     NAME IGG019C9(R)                                                       00009260


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGG019C8      00     540


 ENTRY ADDRESS       00
 TOTAL LENGTH       540

****IGG019C9  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G02VSCPY.R0000001     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G02VSCPY.R0000002     DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   VSCOPY.OBJ                                   KEPT
IEF285I   VOL SER NOS= VSCOPY.
IEF285I   SYS78240.T193835.RV000.G02VSCPY.GOSET        PASSED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /LINK    / START 78240.1938
IEF374I STEP /LINK    / STOP  78240.1938 CPU   0MIN 00.16SEC MAIN 132K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:38:35.84   ALLOC START    19:38:35.88   MAIN REGION ----- 256K                          *
*   STEP NAME LINK       STEP END TIME  19:38:42.15   PGM START TIME 19:38:36.25   MAIN STORAGE ---- 132K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:06.31   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.16   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0158 ---------- 148       0159 ----------- 14       0580 ----------- 93       0130 ----------- 63                              *
************************************************************************************************************************************

//COPY   EXEC PGM=IEBCOPY,REGION=256K
//SYSPRINT DD SYSOUT=A
//IN       DD DSN=*.LINK.SYSLMOD,DISP=(OLD,PASS)
//OUT1     DD DSN=SYS1.LINKLIB,UNIT=3330,VOL=SER=MVTRES,DISP=OLD
//OUT2     DD DSN=SYS1.SVCLIB,UNIT=3330,VOL=SER=MVTRES,DISP=OLD
//SYSUT3   DD UNIT=SYSDA,SPACE=(80,(60,45)),DISP=(NEW,DELETE)
//SYSIN    DD *
IEF236I ALLOC. FOR G02VSCPY COPY
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO IN
IEF237I 350   ALLOCATED TO OUT1
IEF237I 350   ALLOCATED TO OUT2
IEF237I 130   ALLOCATED TO SYSUT3
IEF237I 130   ALLOCATED TO SYSIN


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


                      COPY INDD=IN,OUTDD=OUT1
                      SELECT MEMBER=((VSCOPY,,R))
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY IN       -
IEB154I  VSCOPY   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000203 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OUT1
IEB149I  THERE ARE 0000275  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0002


                      COPY INDD=IN,OUTDD=OUT2
                      SELECT MEMBER=((IGG019C9,,R))
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY IN       -
IEB154I  IGG019C9 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000509 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OUT2
IEB149I  THERE ARE 0000187  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G02VSCPY.R0000003     SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.G02VSCPY.GOSET        PASSED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= MVTRES.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= MVTRES.
IEF285I   SYS78240.T193835.RV000.G02VSCPY.R0000004     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G02VSCPY.S0000005     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G02VSCPY.S0000005     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /COPY    / START 78240.1938
IEF374I STEP /COPY    / STOP  78240.1938 CPU   0MIN 00.51SEC MAIN 254K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:38:42.17   ALLOC START    19:38:42.18   MAIN REGION ----- 256K                          *
*   STEP NAME COPY       STEP END TIME  19:38:42.77   PGM START TIME 19:38:42.24   MAIN STORAGE ---- 254K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.60   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBCOPY    STEP CPU TIME  00:00:00.51   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0159 ----------- 15       0130 ----------- 80       0350 --------- 1962       0350 --------- 1666       0130 ------------ 0    *
*   0130 ------------ 6                                                                                                            *
************************************************************************************************************************************

//IOSUP  EXEC PGM=IEHIOSUP,PARM=TSO,REGION=96K
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSNAME=SYS1.SVCLIB,DISP=OLD,VOL=SER=MVTRES,UNIT=SYSDA
//
IEF236I ALLOC. FOR G02VSCPY IOSUP
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 350   ALLOCATED TO SYSUT1
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G02VSCPY.R0000006     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= MVTRES.
IEF373I STEP /IOSUP   / START 78240.1938
IEF374I STEP /IOSUP   / STOP  78240.1938 CPU   0MIN 00.55SEC MAIN  14K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 19:38:42.80   ALLOC START    19:38:42.81   MAIN REGION ----- 256K                          *
*   STEP NAME IOSUP      STEP END TIME  19:38:43.43   PGM START TIME 19:38:42.86   MAIN STORAGE ----- 14K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.63   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHIOSUP   STEP CPU TIME  00:00:00.55   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                                                  *
*   0130 ------------ 0       0350 ---------- 646                                                                                  *
************************************************************************************************************************************

IEF285I   SYS78240.T193835.RV000.G02VSCPY.GOSET        DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF375I  JOB /G02VSCPY/ START 78240.1938
IEF376I  JOB /G02VSCPY/ STOP  78240.1938 CPU   0MIN 01.22SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G02VSCPY   JOB READ TIME 19:38:35.75   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.22   *
*   JOB CLASS A          JOB INIT TIME 19:38:35.84   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:07.61   *
*   ACCOUNT   1          JOB END TIME  19:38:43.45   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG     00000    333333333  VV     VV   SSSSSSS       A       SSSSSSS   LL                        A
            GGGGGGGGG   0000000   333333333  VV     VV  SSSSSSSSS     AAA     SSSSSSSSS  LL                       AAA
            GG     GG  00     00  33    33   VV     VV  SS     SS    AA AA    SS     SS  LL                      AA AA
            GG         00    000       33    VV     VV  SS          AA   AA   SS         LL                     AA   AA
            GG         00   0 00      3333   VV     VV  SSSSSSSS   AA     AA  SSSSSSSS   LL                    AA     AA
            GG   GGGG  00  0  00     333333  VV     VV   SSSSSSSS  AA     AA   SSSSSSSS  LL                    AA     AA
            GG   GGGG  00 0   00         33   VV   VV          SS  AAAAAAAAA         SS  LL                    AAAAAAAAA
            GG     GG  000    00  33     33    VV VV    SS     SS  AAAAAAAAA  SS     SS  LL                    AAAAAAAAA
            GGGGGGGGG   0000000   333333333     VVV     SSSSSSSSS  AA     AA  SSSSSSSSS  LLLLLLLLL             AA     AA
             GGGGGGG     00000     3333333       V       SSSSSSS   AA     AA   SSSSSSS   LLLLLLLLL             AA     AA

***********A  START   G03VSASL   SYS SYSA   WTR 00E   07:39:00 PM  28 AUG 1978   WTR 00E   SYS SYSA   G03VSASL   START  A***********
***********A  START   G03VSASL   SYS SYSA   WTR 00E   07:39:00 PM  28 AUG 1978   WTR 00E   SYS SYSA   G03VSASL   START  A***********
***********A  START   G03VSASL   SYS SYSA   WTR 00E   07:39:00 PM  28 AUG 1978   WTR 00E   SYS SYSA   G03VSASL   START  A***********
***********A  START   G03VSASL   SYS SYSA   WTR 00E   07:39:00 PM  28 AUG 1978   WTR 00E   SYS SYSA   G03VSASL   START  A***********
***********A  START   G03VSASL   SYS SYSA   WTR 00E   07:39:00 PM  28 AUG 1978   WTR 00E   SYS SYSA   G03VSASL   START  A***********


//G03VSASL JOB 1,'G03VSASML',CLASS=A,MSGLEVEL=(1,1)
***********************************************************************
***                                                                 ***
***    Job:      G03VSASML                                          ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Install OS/VS assembler and linkage editor on      ***
***              driving system.                                    ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
//COPY   EXEC PGM=VSCOPY,REGION=256K
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSN=LINKLIB.UNLOAD,LABEL=(1,SL),DISP=OLD,
//            UNIT=TAPE,VOL=SER=SYSUTL
//SYSUT2   DD DISP=SHR,DSN=SYS1.LINKLIB,UNIT=SYSDA,VOL=SER=MVTRES
//SYSUT3   DD UNIT=SYSDA,SPACE=(80,(60,45)),DISP=(NEW,DELETE)
//SYSUT4   DD UNIT=SYSDA,SPACE=(80,(60,45)),DISP=(NEW,DELETE)
//SYSIN    DD *
//
IEF236I ALLOC. FOR G03VSASL COPY
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 580   ALLOCATED TO SYSUT1
IEF237I 350   ALLOCATED TO SYSUT2
IEF237I 159   ALLOCATED TO SYSUT3
IEF237I 130   ALLOCATED TO SYSUT4
IEF237I 130   ALLOCATED TO SYSIN


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


                      COPY INDD=SYSUT1,OUTDD=SYSUT2
                      SELECT MEMBER=((IFOX00,,R))
                      SELECT MEMBER=((IFOX01,,R))
                      SELECT MEMBER=((IFOX02,,R))
                      SELECT MEMBER=((IFOX03,,R))
                      SELECT MEMBER=((IFOX04,,R))
                      SELECT MEMBER=((IFOX05,,R))
                      SELECT MEMBER=((IFOX06,,R))
                      SELECT MEMBER=((IFOX07,,R))
                      SELECT MEMBER=((IFOX11,,R))
                      SELECT MEMBER=((IFOX21,,R))
                      SELECT MEMBER=((IFOX31,,R))
                      SELECT MEMBER=((IFOX41,,R))
                      SELECT MEMBER=((IFOX42,,R))
                      SELECT MEMBER=((IFOX51,,R))
                      SELECT MEMBER=((IFOX61,,R))
                      SELECT MEMBER=((IFOX62,,R))
                      SELECT MEMBER=((HEWLF064,,R))
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY SYSUT1   -
IEB154I  HEWLF064 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX00   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX01   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX02   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX03   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX04   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX05   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX06   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX07   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX11   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX21   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX31   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX41   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX42   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX51   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX61   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX62   HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000183 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2
IEB149I  THERE ARE 0000272  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G03VSASL.R0000007     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   LINKLIB.UNLOAD                               KEPT
IEF285I   VOL SER NOS= SYSUTL.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= MVTRES.
IEF285I   SYS78240.T193835.RV000.G03VSASL.R0000008     DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.G03VSASL.R0000009     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G03VSASL.S0000010     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G03VSASL.S0000010     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /COPY    / START 78240.1938
IEF374I STEP /COPY    / STOP  78240.1939 CPU   0MIN 00.35SEC MAIN 256K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:38:54.34   ALLOC START    19:38:54.35   MAIN REGION ----- 256K                          *
*   STEP NAME COPY       STEP END TIME  19:39:00.95   PGM START TIME 19:38:54.45   MAIN STORAGE ---- 256K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:06.61   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  VSCOPY     STEP CPU TIME  00:00:00.35   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0158 ----------- 40       0580 ---------- 123       0350 --------- 2310       0159 ------------ 0       0130 ------------ 0    *
*   0130 ----------- 20                                                                                                            *
************************************************************************************************************************************

IEF375I  JOB /G03VSASL/ START 78240.1938
IEF376I  JOB /G03VSASL/ STOP  78240.1939 CPU   0MIN 00.35SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G03VSASL   JOB READ TIME 19:38:54.27   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.35   *
*   JOB CLASS A          JOB INIT TIME 19:38:54.34   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:06.63   *
*   ACCOUNT   1          JOB END TIME  19:39:00.97   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG     00000         44    LL         DDDDDDDD   DDDDDDDD   LL         BBBBBBBB                  A
            GGGGGGGGG   0000000       444    LL         DDDDDDDDD  DDDDDDDDD  LL         BBBBBBBBB                AAA
            GG     GG  00     00     4444    LL         DD     DD  DD     DD  LL         BB     BB               AA AA
            GG         00    000    44 44    LL         DD     DD  DD     DD  LL         BB     BB              AA   AA
            GG         00   0 00   44  44    LL         DD     DD  DD     DD  LL         BBBBBBBB              AA     AA
            GG   GGGG  00  0  00  44   44    LL         DD     DD  DD     DD  LL         BBBBBBBB              AA     AA
            GG   GGGG  00 0   00  444444444  LL         DD     DD  DD     DD  LL         BB     BB             AAAAAAAAA
            GG     GG  000    00  444444444  LL         DD     DD  DD     DD  LL         BB     BB             AAAAAAAAA
            GGGGGGGGG   0000000        44    LLLLLLLLL  DDDDDDDDD  DDDDDDDDD  LLLLLLLLL  BBBBBBBBB             AA     AA
             GGGGGGG     00000         44    LLLLLLLLL  DDDDDDDD   DDDDDDDD   LLLLLLLLL  BBBBBBBB              AA     AA

***********A  START   G04LDDLB   SYS SYSA   WTR 00E   07:39:47 PM  28 AUG 1978   WTR 00E   SYS SYSA   G04LDDLB   START  A***********
***********A  START   G04LDDLB   SYS SYSA   WTR 00E   07:39:47 PM  28 AUG 1978   WTR 00E   SYS SYSA   G04LDDLB   START  A***********
***********A  START   G04LDDLB   SYS SYSA   WTR 00E   07:39:47 PM  28 AUG 1978   WTR 00E   SYS SYSA   G04LDDLB   START  A***********
***********A  START   G04LDDLB   SYS SYSA   WTR 00E   07:39:47 PM  28 AUG 1978   WTR 00E   SYS SYSA   G04LDDLB   START  A***********
***********A  START   G04LDDLB   SYS SYSA   WTR 00E   07:39:47 PM  28 AUG 1978   WTR 00E   SYS SYSA   G04LDDLB   START  A***********


//G04LDDLB JOB 1,'G04LOADDLIB',CLASS=A,MSGLEVEL=(1,1)
***********************************************************************
***                                                                 ***
***    Job:      G04LOADDLIB                                        ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Load ASPDLB MVT DLIB volume data sets              ***
***              from OS360A tape.                                  ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
***MAIN LINES=100
//LOADDLIB EXEC PGM=VSCOPY,REGION=512K
//SYSPRINT DD  SYSOUT=A
//SYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,30)
//SYSUT4   DD  UNIT=SYSDA,SPACE=(CYL,30)
//ITCAMMAC DD  DSN=TCAMMAC,LABEL=(1,SL),DISP=OLD,
//             UNIT=TAPE,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ITSOMAC  DD  DSN=TSOMAC,LABEL=(2,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IGENLIB  DD  DSN=GENLIB,LABEL=(3,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IMODGEN  DD  DSN=MODGEN,LABEL=(4,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IMODGEN2 DD  DSN=MODGEN2,LABEL=(5,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IFO500   DD  DSN=FO500,LABEL=(6,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ILM501   DD  DSN=LM501,LABEL=(7,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ISAMPLIB DD  DSN=SAMPLIB,LABEL=(8,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ICB545   DD  DSN=CB545,LABEL=(9,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ILM546   DD  DSN=LM546,LABEL=(10,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ISM023   DD  DSN=SM023,LABEL=(11,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ISORTLIB DD  DSN=SORTLIB,LABEL=(12,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IPROCLIB DD  DSN=PROCLIB,LABEL=(13,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IMACLIB  DD  DSN=MACLIB,LABEL=(14,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IFO520   DD  DSN=FO520,LABEL=(15,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ITSOGEN  DD  DSN=TSOGEN,LABEL=(16,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ICO503   DD  DSN=CO503,LABEL=(17,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ICQ513   DD  DSN=CQ513,LABEL=(18,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ICQ519   DD  DSN=CQ519,LABEL=(19,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IDM508   DD  DSN=DM508,LABEL=(20,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IDM509   DD  DSN=DM509,LABEL=(21,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IDN527   DD  DSN=DN527,LABEL=(22,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IDN533   DD  DSN=DN533,LABEL=(23,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IDN539   DD  DSN=DN539,LABEL=(24,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IED521   DD  DSN=ED521,LABEL=(25,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ICI505   DD  DSN=CI505,LABEL=(26,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ICI535   DD  DSN=CI535,LABEL=(27,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IFO550   DD  DSN=FO550,LABEL=(28,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IIO523   DD  DSN=IO523,LABEL=(29,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IIO526   DD  DSN=IO526,LABEL=(30,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ILD547   DD  DSN=LD547,LABEL=(31,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ILM512   DD  DSN=LM512,LABEL=(32,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ILM532   DD  DSN=LM532,LABEL=(33,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ILM537   DD  DSN=LM537,LABEL=(34,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ILM542   DD  DSN=LM542,LABEL=(35,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//INL511   DD  DSN=NL511,LABEL=(36,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IPL1LIB  DD  DSN=PL1LIB,LABEL=(37,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IPL552   DD  DSN=PL552,LABEL=(38,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IRC536   DD  DSN=RC536,LABEL=(39,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IRC541   DD  DSN=RC541,LABEL=(40,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IRC543   DD  DSN=RC543,LABEL=(41,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IRC551   DD  DSN=RC551,LABEL=(42,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IRG038   DD  DSN=RG038,LABEL=(43,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IUT506   DD  DSN=UT506,LABEL=(44,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IPARMLIB DD  DSN=PARMLIB,LABEL=(45,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ICOBLIB  DD  DSN=COBLIB,LABEL=(46,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IDN554A  DD  DSN=DN554A,LABEL=(47,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IACDS    DD  DSN=ACDS,LABEL=(48,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ICQ548   DD  DSN=CQ548,LABEL=(49,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ICI555   DD  DSN=CI555,LABEL=(50,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IUADS    DD  DSN=DUADS,LABEL=(51,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IHELP    DD  DSN=DHELP,LABEL=(52,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//ICMDLIB  DD  DSN=DCMDLIB,LABEL=(53,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IDN554   DD  DSN=DN554,LABEL=(54,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IAL531   DD  DSN=AL531,LABEL=(55,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//IAS037   DD  DSN=AS037,LABEL=(56,SL),DISP=OLD,
//             UNIT=AFF=ITCAMMAC,VOL=(PRIVATE,RETAIN,SER=OS360A)
//OTCAMMAC  DD DSN=SYS1.TCAMMAC,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3360),
//             SPACE=(TRK,(90,,15)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OTSOMAC   DD DSN=SYS1.TSOMAC,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3360),
//             SPACE=(TRK,(98,,14)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OCQ548    DD DSN=SYS1.CQ548,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(112,,89)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OCI555    DD DSN=SYS1.CI555,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(59,,45)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OUADS     DD DSN=SYS1.DUADS,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120),
//             SPACE=(TRK,(9,,6)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OHELP     DD DSN=SYS1.DHELP,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3360),
//             SPACE=(TRK,(35,,10)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OCMDLIB   DD DSN=SYS1.DCMDLIB,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(70,,39)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ODN554    DD DSN=SYS1.DN554,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(53,,20)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OAL531    DD DSN=SYS1.AL531,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(14,,9)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OAS037    DD DSN=SYS1.AS037,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(21,,11)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OCB545    DD DSN=SYS1.CB545,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(45,,9)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OCI505    DD DSN=SYS1.CI505,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(160,,150)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OCI535    DD DSN=SYS1.CI535,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(43,,35)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OCOBLIB   DD DSN=SYS1.DCOBLIB,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(15,,25)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OCO503    DD DSN=SYS1.CO503,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(35,,12)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OCQ513    DD DSN=SYS1.CQ513,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(24,,25)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OCQ519    DD DSN=SYS1.CQ519,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(25,,25)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ODM508    DD DSN=SYS1.DM508,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(90,,93)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ODM509    DD DSN=SYS1.DM509,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(15,,15)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ODN527    DD DSN=SYS1.DN527,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(89,,32)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ODN533    DD DSN=SYS1.DN533,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(22,,20)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ODN539    DD DSN=SYS1.DN539,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(30,,22)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OED521    DD DSN=SYS1.ED521,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(17,,12)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OFORTLIB  DD DSN=SYS1.DFORTLIB,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(80,,55)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OMACLIB   DD DSN=SYS1.DMACLIB,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3360),
//             SPACE=(TRK,(345,,30)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OFO500    DD DSN=SYS1.FO500,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(65,,30)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OFO520    DD DSN=SYS1.FO520,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(14,,6)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OFO550    DD DSN=SYS1.FO550,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(4,,2)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OIO523    DD DSN=SYS1.IO523,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(15,,16)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OIO526    DD DSN=SYS1.IO526,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(40,,28)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OLD547    DD DSN=SYS1.LD547,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(8,,5)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OLM501    DD DSN=SYS1.LM501,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(25,,34)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OLM512    DD DSN=SYS1.LM512,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(25,,27)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OLM532    DD DSN=SYS1.LM532,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(14,,20)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OLM537    DD DSN=SYS1.LM537,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(18,,20)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OLM542    DD DSN=SYS1.LM542,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(10,,12)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OLM546    DD DSN=SYS1.LM546,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(18,,20)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ONL511    DD DSN=SYS1.NL511,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(120,,50)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OPL1LIB   DD DSN=SYS1.DPL1LIB,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(35,,75)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OPL552    DD DSN=SYS1.PL552,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(15,,10)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ORC536    DD DSN=SYS1.RC536,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(23,,22)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ORC541    DD DSN=SYS1.RC541,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(20,,17)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ORC543    DD DSN=SYS1.RC543,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(9,,7)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ORC551    DD DSN=SYS1.RC551,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(27,,17)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ORG038    DD DSN=SYS1.RG038,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(19,,12)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OSM023    DD DSN=SYS1.SM023,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(38,,42)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OSORTLIB  DD DSN=SYS1.DSORTLIB,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(12,,10)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OUT506    DD DSN=SYS1.UT506,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=U,BLKSIZE=3625),
//             SPACE=(TRK,(65,,33)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OPARMLIB  DD DSN=SYS1.DPARMLIB,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=80),
//             SPACE=(TRK,(10,,7)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OPROCLIB  DD DSN=SYS1.DPROCLIB,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=80),
//             SPACE=(TRK,(22,,9)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OTSOGEN   DD DSN=SYS1.TSOGEN,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3360),
//             SPACE=(TRK,(45,,5)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OGENLIB   DD DSN=SYS1.GENLIB,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3360),
//             SPACE=(TRK,(305,,20)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OMODGEN   DD DSN=SYS1.MODGEN,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3360),
//             SPACE=(TRK,(700,,25)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OSAMPLIB  DD DSN=SYS1.SAMPLIB,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3360),
//             SPACE=(TRK,(100,,15)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//ODN554A   DD DSN=SYS1.DN554A,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3360),
//             SPACE=(TRK,(8,,2)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OMODGEN2  DD DSN=SYS1.MODGEN2,
//             DISP=(NEW,KEEP,DELETE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3360),
//             SPACE=(TRK,(245,,5)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//OACDS     DD DSN=SYS1.ACDS,
//             DISP=(NEW,KEEP,DELETE),
//             SPACE=(TRK,(100,,1000)),
//             UNIT=3330,VOL=(PRIVATE,RETAIN,SER=ASPDLB)
//SYSIN    DD  *
//
IEF236I ALLOC. FOR G04LDDLB LOADDLIB
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 159   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSUT4
IEF237I 580   ALLOCATED TO ITCAMMAC
IEF237I 580   ALLOCATED TO ITSOMAC
IEF237I 580   ALLOCATED TO IGENLIB
IEF237I 580   ALLOCATED TO IMODGEN
IEF237I 580   ALLOCATED TO IMODGEN2
IEF237I 580   ALLOCATED TO IFO500
IEF237I 580   ALLOCATED TO ILM501
IEF237I 580   ALLOCATED TO ISAMPLIB
IEF237I 580   ALLOCATED TO ICB545
IEF237I 580   ALLOCATED TO ILM546
IEF237I 580   ALLOCATED TO ISM023
IEF237I 580   ALLOCATED TO ISORTLIB
IEF237I 580   ALLOCATED TO IPROCLIB
IEF237I 580   ALLOCATED TO IMACLIB
IEF237I 580   ALLOCATED TO IFO520
IEF237I 580   ALLOCATED TO ITSOGEN
IEF237I 580   ALLOCATED TO ICO503
IEF237I 580   ALLOCATED TO ICQ513
IEF237I 580   ALLOCATED TO ICQ519
IEF237I 580   ALLOCATED TO IDM508
IEF237I 580   ALLOCATED TO IDM509
IEF237I 580   ALLOCATED TO IDN527
IEF237I 580   ALLOCATED TO IDN533
IEF237I 580   ALLOCATED TO IDN539
IEF237I 580   ALLOCATED TO IED521
IEF237I 580   ALLOCATED TO ICI505
IEF237I 580   ALLOCATED TO ICI535
IEF237I 580   ALLOCATED TO IFO550
IEF237I 580   ALLOCATED TO IIO523
IEF237I 580   ALLOCATED TO IIO526
IEF237I 580   ALLOCATED TO ILD547
IEF237I 580   ALLOCATED TO ILM512
IEF237I 580   ALLOCATED TO ILM532
IEF237I 580   ALLOCATED TO ILM537
IEF237I 580   ALLOCATED TO ILM542
IEF237I 580   ALLOCATED TO INL511
IEF237I 580   ALLOCATED TO IPL1LIB
IEF237I 580   ALLOCATED TO IPL552
IEF237I 580   ALLOCATED TO IRC536
IEF237I 580   ALLOCATED TO IRC541
IEF237I 580   ALLOCATED TO IRC543
IEF237I 580   ALLOCATED TO IRC551
IEF237I 580   ALLOCATED TO IRG038
IEF237I 580   ALLOCATED TO IUT506
IEF237I 580   ALLOCATED TO IPARMLIB
IEF237I 580   ALLOCATED TO ICOBLIB
IEF237I 580   ALLOCATED TO IDN554A
IEF237I 580   ALLOCATED TO IACDS
IEF237I 580   ALLOCATED TO ICQ548
IEF237I 580   ALLOCATED TO ICI555
IEF237I 580   ALLOCATED TO IUADS
IEF237I 580   ALLOCATED TO IHELP
IEF237I 580   ALLOCATED TO ICMDLIB
IEF237I 580   ALLOCATED TO IDN554
IEF237I 580   ALLOCATED TO IAL531
IEF237I 580   ALLOCATED TO IAS037
IEF237I 250   ALLOCATED TO OTCAMMAC
IEF237I 250   ALLOCATED TO OTSOMAC
IEF237I 250   ALLOCATED TO OCQ548
IEF237I 250   ALLOCATED TO OCI555
IEF237I 250   ALLOCATED TO OUADS
IEF237I 250   ALLOCATED TO OHELP
IEF237I 250   ALLOCATED TO OCMDLIB
IEF237I 250   ALLOCATED TO ODN554
IEF237I 250   ALLOCATED TO OAL531
IEF237I 250   ALLOCATED TO OAS037
IEF237I 250   ALLOCATED TO OCB545
IEF237I 250   ALLOCATED TO OCI505
IEF237I 250   ALLOCATED TO OCI535
IEF237I 250   ALLOCATED TO OCOBLIB
IEF237I 250   ALLOCATED TO OCO503
IEF237I 250   ALLOCATED TO OCQ513
IEF237I 250   ALLOCATED TO OCQ519
IEF237I 250   ALLOCATED TO ODM508
IEF237I 250   ALLOCATED TO ODM509
IEF237I 250   ALLOCATED TO ODN527
IEF237I 250   ALLOCATED TO ODN533
IEF237I 250   ALLOCATED TO ODN539
IEF237I 250   ALLOCATED TO OED521
IEF237I 250   ALLOCATED TO OFORTLIB
IEF237I 250   ALLOCATED TO OMACLIB
IEF237I 250   ALLOCATED TO OFO500
IEF237I 250   ALLOCATED TO OFO520
IEF237I 250   ALLOCATED TO OFO550
IEF237I 250   ALLOCATED TO OIO523
IEF237I 250   ALLOCATED TO OIO526
IEF237I 250   ALLOCATED TO OLD547
IEF237I 250   ALLOCATED TO OLM501
IEF237I 250   ALLOCATED TO OLM512
IEF237I 250   ALLOCATED TO OLM532
IEF237I 250   ALLOCATED TO OLM537
IEF237I 250   ALLOCATED TO OLM542
IEF237I 250   ALLOCATED TO OLM546
IEF237I 250   ALLOCATED TO ONL511
IEF237I 250   ALLOCATED TO OPL1LIB
IEF237I 250   ALLOCATED TO OPL552
IEF237I 250   ALLOCATED TO ORC536
IEF237I 250   ALLOCATED TO ORC541
IEF237I 250   ALLOCATED TO ORC543
IEF237I 250   ALLOCATED TO ORC551
IEF237I 250   ALLOCATED TO ORG038
IEF237I 250   ALLOCATED TO OSM023
IEF237I 250   ALLOCATED TO OSORTLIB
IEF237I 250   ALLOCATED TO OUT506
IEF237I 250   ALLOCATED TO OPARMLIB
IEF237I 250   ALLOCATED TO OPROCLIB
IEF237I 250   ALLOCATED TO OTSOGEN
IEF237I 250   ALLOCATED TO OGENLIB
IEF237I 250   ALLOCATED TO OMODGEN
IEF237I 250   ALLOCATED TO OSAMPLIB
IEF237I 250   ALLOCATED TO ODN554A
IEF237I 250   ALLOCATED TO OMODGEN2
IEF237I 250   ALLOCATED TO OACDS
IEF237I 130   ALLOCATED TO SYSIN


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


                      COPY I=ITCAMMAC,O=OTCAMMAC
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ITCAMMAC -
IEB154I  ATTEN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CANCELMG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CARRIAGE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CHECKPT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CODE     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COMMBUF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CTBFORM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CUTOFF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DATETIME HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ERRORMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORWARD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FULLSCR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GROUP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HANGUP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HOLD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ICHNG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ICOPY    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDNOL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDPSTOP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCHAR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCHI  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCKO  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQDID  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQFEA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQGCH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQJN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQMASK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQSCAN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQTO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQTQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQTT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQVCON HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDVOFF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INBLOCK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INBUF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INEND    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INHDR    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INITIATE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INMSG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INTRO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INVLIST  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INVLIST1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INVLIST2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INVLIST3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INVLIST4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INVLIST5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INVLIST6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOCK     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOCOPT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOG      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOGON    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOGTYPE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MCOUNT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MCPCLOSE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MHGET    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MHPUT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MRCHECK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MRELEASE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MSGEDIT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MSGFORM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MSGGEN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MSGLIMIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MSGTYPE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ORIGIN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OUTBUF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OUTEND   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OUTHDR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OUTMSG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PATH     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PCB      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PRIORITY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  QACTION  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  QCOPY    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  QRESET   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  QSTART   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  READY    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  REDIRECT HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0002


IEB154I  RETRY    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SCREEN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SEQUENCE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SETEOF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SETEOM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SETSCAN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SIMATTN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SLOWPOLL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STARTMH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TCHNG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TCOPY    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TERMINAL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TERRSET  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TGOTO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TLIST    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TPDATE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TPROCESS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TRANLIST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TSINPUT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TTABLE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TTSID    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TYPETABL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  UNLOCK   HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000014 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OTCAMMAC
IEB149I  THERE ARE 0000008  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0003


                      COPY I=ITSOMAC,O=OTSOMAC
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ITSOMAC  -
IEB154I  GETLINE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTSIZE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJCPPL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJCSOA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJCSPL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAPL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP0C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP08 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP1C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP14 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP18 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP2C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP24 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP28 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDAP34 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDFPB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDFPL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDSE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBECA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEMG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEMI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEML HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBERT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBESH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBESV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEUW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJECBS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJECT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJENDP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJGTPB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJIDENT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJIOPL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJKEYWD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJLSD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJNAME  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJOPER  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJPARM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJPGPB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJPOSIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJPPL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJPTPB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJRCB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJRLGB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJRLSA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJRSVWD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJSTPB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJSTPL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJSUBF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJTAIE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJTAXE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJTERM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJTIOCB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJTIOCP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJTPL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJTSB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJUPT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LINEGRP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTTA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PUTGET   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PUTLINE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  QTIP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RTAUTOPT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SPAUTOPT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STACK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STATTN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STAUTOCP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STAUTOLN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STAX     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STBREAK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STCC     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STCLEAR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STCOM    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STSIZE   HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0004


IEB154I  STTIMEOU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TCABEND  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TCLEARQ  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TGET     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TPUT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TSABEND  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TSOMCP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TSOMH    HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000009 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OTSOMAC
IEB149I  THERE ARE 0000008  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0005


                      COPY I=IGENLIB,O=OGENLIB
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IGENLIB  -
IEB154I  ALGLIB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ALGOL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ASSEMBLR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CENPROCS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CHANNEL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CHECKER  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CKPTREST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CMDLIB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COBLIB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COBOL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CONVERT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CTRLPROG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CUPOINT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DATAMGT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DCMLIB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EDIT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EDITOR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EMULATOR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORTLIB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORTRAN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GENERATE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GENTSO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GJOBCTL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GRAPHICS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HELP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMAGELIB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IOCHECK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IOCONTRL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IODEVICE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LINKLIB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOADER   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MACLIB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OUTPUT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PARMLIB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PARTITNS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PL1      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PL1LIB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PROCLIB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PTOP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RESMODS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RPG      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SCHEDULR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SECMODS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SECONSLE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGASMPAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGGBLPAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGGEN100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2AT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2BK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2CV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2MS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2NP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2NU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2ST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2SU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2SV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2TA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2TB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2TC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2TR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA2WP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA3IC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA3IL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA3IS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEA5SU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC2DT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC2GR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC2PT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC2UC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC202 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC3FB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC3TP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC4UC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC5DI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC5DM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC5IS HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0006


IEB154I  SGIEC5PI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC5PL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC5PS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC5PV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC5TP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC513 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC519 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC520 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEE2DC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEE201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEE301 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEE4DC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF2QM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF202 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF211 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF212 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF241 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF441 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF442 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF443 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF444 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEH201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEH401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEH402 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEH501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEI2SV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEK201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEK205 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEK401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEK405 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEK406 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEK502 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEM2A0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEM4T0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEM5C0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEP200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEP400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEP500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEP501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIER201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIER401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIER501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIES401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEU401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEW201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEW250 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEW300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEW400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEW401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEW450 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEW550 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEX201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEX401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEX402 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEX501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEY201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEY401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIFC201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIFC300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIFC400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIFC600 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIFD400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIFD500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIFF2BM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIFF3RN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIFF5LS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIFF523 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIGF200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIGF300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIGF400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIGG501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHB200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHE2X1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHE4X1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHE5LA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHE5PB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHE5PC HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0007


IEB154I  SGIHG400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHG500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHI401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHI501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHJ500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHK400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHK401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHK402 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHK500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHK501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKA201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKA401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKA501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKD5TP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKF200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKF400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKF500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKF501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ2EB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ2EF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ2LP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ4EA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ4EB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ4EC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ4EF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ4EG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ4EH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ4IE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ445 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ5EA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ5EB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ5EC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ5EF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ5EG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ5EH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ5IE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ540 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKM400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKM500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIMA401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIMA402 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIMA501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIMB401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIPD400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIPD500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGLEDPK1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGLEDPK2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGPAK248 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGPAK768 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGRELLEV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SORTLIB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SORTMERG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SUPRVSOR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SVCLIB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SVCTABLE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SYSUTILS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TELCMLIB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TSASMPAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TSGEN100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TSOPTION HAS BEEN SUCCESSFULLY  LOADED
IEB154I  UADS     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  UCS      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  UNITNAME HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000042 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OGENLIB
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0008


                      COPY I=IMODGEN,O=OMODGEN
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IMODGEN  -
IEB154I  CMT      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CVT      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DARMAC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HOOK     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAIH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAMS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAPS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAPT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAWT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEACVTPC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQBK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQCH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQET   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQFX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQGM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQNU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQPR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEATCB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEATRC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECDSECT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECGBL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECICS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECICT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIDT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECILCT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECINT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIOQE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIOS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIOSB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIST   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIUCB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIUCBA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECLNK1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECSDSL1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECSSDA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECTBL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECULK1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECULK2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECULK3  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECXCP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECXTCH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEC23XXF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEBASEA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEBASEB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECAWR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECBJH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECEJM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECGCB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECHAIN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECHATR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECHCB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECRDCM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECRJK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECSUB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECUCM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVMUG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEGMSLT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEXSA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFACOMM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFAJCTB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFASCTB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFJFCBN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFJFCBX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQMRES HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD032 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD033 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSGNOP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFTIOT1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFUCBOB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVTIOT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEZBITS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEZJSCB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSRLOG HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0009


IEB154I  IGFCATAP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFINIT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBABCTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBCOB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBDMPA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBRELNO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBROCTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBTSCE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBXLE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBXLENT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBXLIN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBXLOUT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBXLTAB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLMHOOK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJRB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJTCB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJTJB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJTJBX  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJTSCVT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IORMSCOM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IOSGNIP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MGCR     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MPCVT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MPFX     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SCBDUMP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SCVT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC0DT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEC0UC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEE0VR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEE0VV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEE00V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEE001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEE011 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF0QM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF011 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF012 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF013 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF015 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEF060 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEK001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEK005 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEK006 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEP000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIER001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEW001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEW050 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEX001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIEY001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIFC000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIFF0BT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHB000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHE0X1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHE0X2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHE0X3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHE0X4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHE0X5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIHE0X6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKF000 HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000106 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OMODGEN
IEB149I  THERE ARE 0000015  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0010


                      COPY I=IMODGEN2,O=OMODGEN2
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IMODGEN2 -
IEB154I  IEAANIP  HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000132 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OMODGEN2
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0011


                      COPY I=IFO500,O=OFO500
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IFO500   -
IEB154I  IEKAA00  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKAA01  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKAFP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKAINIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKAPT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKARW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKATB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKATM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCAA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCAR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCCR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCDO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCDP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCDT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCGC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCGO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCGW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCIO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCLT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCPX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCSP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCSR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKCTN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKDCL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKDIO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKFCOMH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKFIOCS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKGA1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKGCR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKGCZ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKGDA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKGEV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKGMP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKGST   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJAL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJAN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJA1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJA2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJA3   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJA4   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJBF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJCP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJDF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJFI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJFU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKJGR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKKCN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKKOP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKKOS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKKPA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKKRE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKKSA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKKSM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKKST   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKKUN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKLAB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKLER   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKLGN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKLMA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKLOK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKLRG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKLTB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKPB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKPGK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKPLS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKPO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKPT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKPZ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKP30   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKP31   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKQAA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKQBM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKQCF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKQCL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKQKO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKQMT   HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0012


IEB154I  IEKQPF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKQSM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKQSR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKQTL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKQWT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKQXM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKQXS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRBK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRBP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRCI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRFL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRFP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRFR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRF1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRGB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRLL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRL1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRRG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRSL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRSS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKRSX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKSBS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTDC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTDF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTDT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTEN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTEP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTFM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTIO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTIS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTLB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTLOAD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTLS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTNL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTPK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTPR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTRN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKTSR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKUEN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKVAD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKVBL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKVFN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKVFP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKVM2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKVPL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKVSU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKVTN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKVTS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKVUN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKWCN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKWKK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKXRF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEKXRS   HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000011 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OFO500
IEB149I  THERE ARE 0000008  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0013


                      COPY I=ILM501,O=OLM501
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ILM501   -
IEB154I  ADCON#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  AINT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ALGAMA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ALOG     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ALOG10   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  AMAX0    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  AMAX1    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  AMIN0    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  AMIN1    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  AMOD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ARCOS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ARSIN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ATAN     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ATAN2    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CABS     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CCOS     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CDABS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CDCOS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CDDVD#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CDEXP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CDLOG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CDMPY#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CDSIN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CDSQRT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CEXP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CGOTO#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CLOG     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COS      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COSH     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COTAN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CSIN     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CSQRT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DARCOS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DARSIN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DATAN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DATAN2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DCOS     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DCOSH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DCOTAN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DEBUG#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DERF     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DERFC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DEXP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DGAMMA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DLGAMA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DLOG     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DLOG10   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DMAX1    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DMIN1    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DMOD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DSIN     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DSINH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DSQRT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DTAN     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DTANH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DUMP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DVCHK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ERF      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ERFC     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ERRMON   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ERRSAV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ERRSET   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ERRSTR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EXIT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EXP      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FCDXI#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FCXPI#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FDXPD#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FDXPI#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FIXPI#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FRDNL#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FRXPI#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FRXPR#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FWRNL#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GAMMA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IBERH#   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IBERR#   HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0014


IEB154I  IDINT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCADJST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCGOTO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCLABS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCLAS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCLEXP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCLLOG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCLSCN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCLSQT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCSABS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCSAS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCSEXP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCSLOG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCSSCN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCCSSQT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCDBUG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCDIOSE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCECOMH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCEDIOS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCEFIOS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCEFNTH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCERRE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCERRM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCETRCH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFAINT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFCDXI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFCOME HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFCOMH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFCVTH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFCXPI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFDUMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFDVCH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFDXPD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFDXPI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFEXIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFIFIX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFINTH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFIOSH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFIXPI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFMAXD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFMAXI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFMAXR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFMODI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFMODR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFOPT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFOVER HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFRXPI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFRXPR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCFSLIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCIBERH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCIBERR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCLASCN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCLATAN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCLATN2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCLERF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCLEXP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCLGAMA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCLLOG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCLSCN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCLSCNH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCLSQRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCLTANH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCLTNCT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCNAMEL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSASCN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSATAN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSATN2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSERF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSEXP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSGAMA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSLOG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSSCN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSSCNH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSSQRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSTAE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSTANH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCSTNCT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCTRCH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCUOPT  HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0015


IEB154I  IHCUOPTN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INT      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MAX0     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MAX1     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MIN0     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MIN1     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MOD      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OVERFL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PDUMP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SIN      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SINH     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SLITE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SLITET   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SQRT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TAN      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TANH     HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000011 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OLM501
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0016


                      COPY I=ISAMPLIB,O=OSAMPLIB
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ISAMPLIB -
IEB154I  COBSAMP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CTLG2311 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CTLG2314 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CTLG3330 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DASDI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DRISAMP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DUMPREST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSPSAMP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IBCDASDI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IBCDMPRS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ICAPRTBL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAIPL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBDATGN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMSP2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPSAMP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERSP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUESP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEXSAMP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEYSP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHGSAMP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDSAMPL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKFSAMP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PL1SAMP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RPGSMPL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SAMACTRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SAMP2250 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SAMP2260 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SAMP327L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SAMP327R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SMFEXITS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SMFE15   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SMFE35A  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SMFE35B  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SMFPOST  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SMFSORT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TESTEXIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  UNCT2311 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  UNCT2314 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  UNCT3330 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  USERLABL HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000014 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OSAMPLIB
IEB149I  THERE ARE 0000012  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0017


                      COPY I=ICB545,O=OCB545
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ICB545   -
IEB154I  IKFCBL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKFCBL1B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKFCBL10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKFCBL20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKFCBL30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKFCBL40 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKFCBL50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKFCBL51 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKFCBL6A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKFCBL60 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKFCBL70 HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000008 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OCB545
IEB149I  THERE ARE 0000007  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0018


                      COPY I=ILM546,O=OLM546
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ILM546   -
IEB154I  ILBOACP0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOANE0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOANF0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOATB0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOBID0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOBID1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOBID2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOBIE0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOBIE1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOBIE2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOBII0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOBII1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOBII2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOCKP0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOCLS0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBODCI0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBODCI1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBODSP0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBODTE0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBODTE1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOEFL0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOEFL1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOEFL2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOERR0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOERR1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOERR2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOERR3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOERR4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOERR5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOERR6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOETB0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOFPW0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOGPW0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOIDB0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOIDB1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOIDR0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOIDT0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOIFB0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOIFB1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOIFB2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOIFD0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOIFD1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOITB0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOIVL0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOMVL0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOPTV0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOPTV1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOPTV2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOSAMR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOSAM0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOSCH0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOSGM0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOSGM1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOSGM2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOSPA0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOSRT0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOSTI0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOSTP0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOSTP1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOTEF0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOTEF1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOTEF2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOTEF3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOTRN0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOUTB0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOVCO0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOVMO0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOVMO1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOVTR0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOWTB0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOXDI0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOXMU0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ILBOXPR0 HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000012 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OLM546
IEB149I  THERE ARE 0000007  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0019


                      COPY I=ISM023,O=OSM023
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ISM023   -
IEB154I  IERABA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABZ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAM1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAON   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOZ   HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0020


IEB154I  IERAO1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAO2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAO3   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERBGA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERBGB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEREX1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEREX2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEREX3   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRBZ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCO00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCZ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRC1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRC2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRC3   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRC4   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDS   HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0021


IEB154I  IERRDT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRGB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRGC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRGD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRGE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRGF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRGL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRGM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRGO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRGP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRON   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROZ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRO3   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRPA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRPB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRPD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRPE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRPM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRPN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRPO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER8BN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER8BO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER8CI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER8CM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER8DJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER8GB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER8GC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER8ON   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER8PA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER8PM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER9BN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER9BO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER9DJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER9GB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER9GC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER9GN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER9ON   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IER9PA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SORT     HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000009 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OSM023
IEB149I  THERE ARE 0000006  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0022


                      COPY I=ISORTLIB,O=OSORTLIB
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ISORTLIB -
IEB154I  IERABQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERABR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERADM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAGH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAMA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAMB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAMC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAOV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAPJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAP1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAP2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERAP3   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERCHK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERDM4   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRCV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRC6   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRC7   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRC8   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRC9   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRDL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRGA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRMA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRMB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRMC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERROV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRPC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRPF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IERRPG   HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OSORTLIB
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0023


                      COPY I=IPROCLIB,O=OPROCLIB
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IPROCLIB -
IEB154I  ALGOFC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ALGOFCG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ALGOFCL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ALGOFCLG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ASMFC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ASMFCG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ASMFCL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ASMFCLG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  BRDR     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COBEC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COBECLG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COBELG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COBUC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COBUCG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COBUCLG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COBULG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DSO      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORTGC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORTGCL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORTGCLD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORTGCLG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORTGLG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORTHC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORTHCL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORTHCLD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORTHCLG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FORTHLG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTF      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTFSNP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVMPCR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFREINT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INIT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INITD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LIST     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LKED     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LKEDG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MOD      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PL1DFC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PL1LFC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PL1LFCG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PL1LFCL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PL1LFCLG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PL1LFG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PL1LFLG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PRDMP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PTFLE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RDR      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RDRA     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RDR3200  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RDR400   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RPGEC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RPGECLG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RPGELG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SMPIO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SMPIOD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SMPNUC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SMPNUCD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SORT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SORTD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TSTRACE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  WTR      HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OPROCLIB
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0024


                      COPY I=IMACLIB,O=OMACLIB
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IMACLIB  -
IEB154I  ABEND    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ANALYZ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  AS       HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ASCTR    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ASGNBFR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ASLIST   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ASMTRTAB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ATLAS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ATTACH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ATTNINQ  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  BLDL     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  BREAKOFF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  BSP      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  BUFFER   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  BUFINQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  BUILD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  BUILDRCD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CALL     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CAMLST   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CANCELM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CATALOG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CHAP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CHECK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CHGNTRY  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CHKPT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CHNGP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CHNGT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CIRB     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CKREQ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CLOSE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CLOSEMC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CNTRL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CONFIGUR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COPYP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COPYQ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COPYT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COUNTER  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CRJELINE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CRJETABL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CRJEUSER HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CTRGROUP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CTRLIST  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CTRSCHED HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DAR      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DATESTMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DCB      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DCBD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DEFAREA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DEFCCW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DELETE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DEQ      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DETACH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DEULIST  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DEVTYPE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DFTRMLST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DIRECT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DISPGUID HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DLIST    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DOM      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DSPLY    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DXR      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ENDRCV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ENDREADY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ENDSEND  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ENQ      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EOA      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EOB      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EOBLC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EOV      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ERRMSG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ESETL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EXCP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EXTRACT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FDCTRL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FDDSPLY  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FDEND    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FDFIELD  HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0025


IEB154I  FDFORM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FDLINE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FDLOAD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FDPAGE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FDSYNTAX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FDTRACE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FEOV     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FIND     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FREEBUF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FREEDBUF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FREEMAIN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FREEPOOL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GAIC     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GBFLM    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GBINF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GBPOS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GBPST    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GCNL     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GCNOP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GCNTRL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GCON     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDCDS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDPD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDRD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDS      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDSF     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDUAS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDULIST  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDUTRANS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDV      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GECF     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GECP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GECV     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GENSD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GEOS     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GEPI2    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GEPM     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GESD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GESM     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GESU     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GET      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GETBUF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GETMAIN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GETPOOL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GEVI2    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GEVM     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GFEF     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GFFM     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GFRM     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GIBLC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GINIT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GLCW     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GLIC     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GLRC     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GLRR     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GLTR     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GLVS     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GMLD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GMLW     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GMSR     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GMVA     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GMVD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GNOP2    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GNOP4    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GODEL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GPDI     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GRDA     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GRDB     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GRDE     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GRDS     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GREAD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GREADR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSBLC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSBPOS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSCW     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSERV    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSIC     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSRT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSXY     HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0026


IEB154I  GTDD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTND     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTNS     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTNZ     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTOS     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTRACE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTRU     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTR1     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTR2     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTR3     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTR4     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTSL     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTXT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTZE     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GUSTOR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GWRITE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDENTIFY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFASM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFDSP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFGBL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFIN01  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFIN02  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFIN03  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFIN04  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFIN05  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFIN06  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFIN07  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFIN08  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFIN09  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFIN10  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFIN11  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFMSG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFMSG1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFMSG2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFMSG3  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFTR    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFTRK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECTDECB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDSOCB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBERMAC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBGAM1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBGAM2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBGAM3  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBINNRA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBINNRB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBOPLST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBRDWRD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBRDWRK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBRDWRS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHBRDWRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHB01    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHB02    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHB03    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLMGTRC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJPSCB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDMEDIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDSADMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMGLIB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INDEX    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INTERCPT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IOHALT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LERB     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LERPRT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LINK     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOAD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOCATE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOGSEG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOPEN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LPSTART  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MODE     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  NOTE     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OACB     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OBTAIN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ONLTST   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OPCTL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OPEN     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OPTION   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PARAMNUM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PARMLIST HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0027


IEB154I  PAUSE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  POINT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  POLL     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  POLLIMIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  POST     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  POSTRCV  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  POSTSEND HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PROCESS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PROTECT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PRTOV    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PUT      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PUTX     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  QEDIT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RCVEITA2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RCVEZSC3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RCVHDR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RCVSEG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RDJFCB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RDLNE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  READ     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RELBUF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RELEASEM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RELEX    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RELSE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RENAME   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  REQBUF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  REROUTE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RESCN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RESERVE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RESETPL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RETRIEVE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RETURN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RJELINE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RJETABL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RJETERM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RJEUSER  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RLSEBFR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ROUTE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SAEC     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SAVE     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SCANREQ  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SCRATCH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SEGLD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SEGWT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SENDHDR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SENDITA2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SENDSEG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SENDZSC3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SEQIN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SEQOUT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SETL     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SETPRT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SKIP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SMFWTM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SNAP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SOURCE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SPAR     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SPIE     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STAE     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STARTLN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STATUS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STEND    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STIMER   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STOPLN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STOW     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SYNADAF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SYNADRLS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TERM     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TERMTBL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TGROUP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TIME     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TIMESTMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TPEDIT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TRANS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TRANSLAT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TRLIST   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TRNSLATE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TRSLRCTW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TRSLRCT3 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0028


IEB154I  TRSLSCTW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TRSLSCT3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TRUNC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TSEVENT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TTIMER   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TWAIT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  WAIT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  WAITR    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  WRITE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  WRU      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  WTL      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  WTO      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  WTOR     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  XCTL     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  XDAP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  XLATE    HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000015 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OMACLIB
IEB149I  THERE ARE 0000007  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0029


                      COPY I=IFO520,O=OFO520
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IFO520   -
IEB154I  IEYALL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEYEXT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEYFORT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEYFORT2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEYGEN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEYINT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEYPAR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEYROL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEYUNF   HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000006 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OFO520
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0030


                      COPY I=ITSOGEN,O=OTSOGEN
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ITSOGEN  -
IEB154I  SGIKJ0EB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ0EF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ0E2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SGIKJ0LP HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000006 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OTSOGEN
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0031


                      COPY I=ICO503,O=OCO503
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ICO503   -
IEB154I  IEPALC00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPASA00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPASP00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPASW00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPAS100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPAS200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPAS300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPAS400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPAS500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPAS600 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPBLD00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPDBG00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPDMG00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPDPC00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPDST00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPDS100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPDS200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPIOT00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPLIT00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPLST00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPD100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPD200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPGP00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPGQ00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPG100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPG200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPG300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPG400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPG500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPG600 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPG700 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPG900 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPMG00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPS100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPS200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPS300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPS400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPT100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPT200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPT300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPT400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPT500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPT600 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPPT700 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPSET00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPSIS00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPSMG00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPSYS00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPTRM00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEPUSE00 HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000006 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OCO503
IEB149I  THERE ARE 0000003  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0032


                      COPY I=ICQ513,O=OCQ513
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ICQ513   -
IEB154I  IDFCT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFM01   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IDFST    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECTATEN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECTCHGN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECTEDIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECTLERP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECTLOPN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECTONLT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECTSCAN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECTSVC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECTTRNS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0A06F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0B06F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0C06F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0D06F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0E06F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0F06F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0006F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0106F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0206F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0306F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0406F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0506F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC058   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0606F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0706F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0806F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0906F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1006F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1106F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1206F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1306F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1406F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0004A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0004B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0004C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0004D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0010E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0104A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0104B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0104C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0104D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0110E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0204A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0204B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0204C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0204D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0210E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0304A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0304B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0304C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0304D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0404A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0404B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0404C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0504A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0504B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0504C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0504D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0604A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0604B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0604C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0704A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0704B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0704C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0804A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0804B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0804C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0904A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0904C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0904D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019ME HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0033


IEB154I  IGG019MF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019ML HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019MZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019M0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019M1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019M2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019M3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019M4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019M5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019M6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019PQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019UP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193S HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0194N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0194P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0194Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0195N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0201E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0203M HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000006 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OCQ513
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0034


                      COPY I=ICQ519,O=OCQ519
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ICQ519   -
IEB154I  IECKBRKF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKCHGT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKCHPL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKCKRQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKCLOS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKCNCL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKCPPL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKCPYQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKCPYT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKCVRS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKDATE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKDCBL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKDLQT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKDRCT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKEOAD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKEOBC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKEOBK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKERMG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKEXPD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKITCP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKLKUP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKLNCH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKMODE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKNATE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKOCTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKONLT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKOPAW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKPAUS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKPLMT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKPRTY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKQQ01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRELM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRETD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRETS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRF40 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRF50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKROUT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRRTE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRVTW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRVTZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRVT1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRVT2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRV30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRV40 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRV50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKRV60 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKR260 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSCAN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSDTW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSDTZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSDT1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSDT2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSDT3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSD30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSD40 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSD50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSD60 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSEQN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSEQT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSKPC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSKPS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKSRCE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKS260 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKTIME HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKTRNS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECKTYPE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0007G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0107G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0207G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0307G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0407G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0507G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0607G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0004E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0004F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0104E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0104F HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0035


IEB154I  IGE0204E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0204F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0304E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0304F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0404E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0404F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0504E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0504F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0604E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0604F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0704E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0704F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0804E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0804F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0904E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019ND HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019NZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019N1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019N2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019N3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019N8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019N9 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019QA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019QB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193O HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193T HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193U HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0194A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0203N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0203O HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0203P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0203R HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000010 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OCQ519
IEB149I  THERE ARE 0000002  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0036


                      COPY I=IDM508,O=ODM508
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IDM508   -
IEB154I  EMODVOL1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FCBKSTD1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FCBKSTD2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FCB2STD1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FCB2STD2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECBBFB1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECQBFG1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG019RA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG019TR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0190P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0190R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0193A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0193B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0193C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0193D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0193E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0194A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0194C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0194D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0194E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0194F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0194G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0194H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0194I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0194J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0194R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195O HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195T HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195U HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0195V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196O HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196T HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196U HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196W HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0196X HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0198N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0199B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0199D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0199E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0199R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG020TR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0200G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0200P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0200R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0200V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0200W HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0200Y HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0200Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0201R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0201U HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0202A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0202B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0202C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0202D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0202E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0202F HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0037


IEB154I  IFG0202G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0202H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0202I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0202J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0202K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0202L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0202U HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0209B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0209D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0209E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0209R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG023TR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0230P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0232A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0232D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0232G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0232J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0232M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0232S HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0232Y HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0232Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0239B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0239D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0239E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0239R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG055TR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0550P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0550R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551T HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551X HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0551Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552T HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552X HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552Y HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0552Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0553B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0553D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0553F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0553H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0553P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0553R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0553T HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0553V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0553X HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0553Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0554B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0554D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0554J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0554L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0554N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0554P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0554R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0554T HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0554V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0554X HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0554Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0555B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0555D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0555F HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0038


IEB154I  IFG0555H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0555J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0556B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0559B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0559D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0559E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFG0559R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0G05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0G95B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0H05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0I05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0K05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0K95B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0L05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0L95B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0M05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0M95B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0N05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0N06C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0N95B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0P05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0Q05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0R05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0S05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0T05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0U05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0W05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0001I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0002A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0002B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0002C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0002D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0002E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0002F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0002G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0002H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0002I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC00020 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0003A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0003B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC00030 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0005E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0005G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0006D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0006H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0006I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0007H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0008A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0009H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0010C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0010E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0106H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0107H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0109H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0206H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0209H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0306H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0406H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0506C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0506H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0606H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0706H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0806H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0906H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGAARPS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19AE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19BC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19BH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19BK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19CG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19CI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19CJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19CU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19CV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19CW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19TV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19TW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0CLC1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0CLC2 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0039


IEB154I  IGG0CLC3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0CLC4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0CLC5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0CLC6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0CLC7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0CLC8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0CLF2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019B0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019CZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019C0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019C1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019C2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019C3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019C4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019C6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019EA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019EB HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0040


IEB154I  IGG019EC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019ED HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019EE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019EF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019EI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019EJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019EK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019FU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019T2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019VA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019VB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019VC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019VD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019VE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019VF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019VG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019VH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019VI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019VJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019VK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019V1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019V2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019V3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019V4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019V5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0190A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0190B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0190R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0190S HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191O HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191S HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191T HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191U HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191W HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191X HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191Y HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01911 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01912 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01913 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01914 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01915 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01916 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0041


IEB154I  IGG01917 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01918 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01919 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192W HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01923 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01926 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0196A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0196B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0196I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0196J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0196K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0196L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0196M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0196P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0197U HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0199K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0199O HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01990 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01991 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01992 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01993 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01994 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG020D0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG020D1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG020P1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG020P2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG020P3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0200B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0200G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0201A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0201B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0201D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0201P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0201R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0201X HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0201Y HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0201Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0206M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG021AB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0210A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG029R1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0290A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0290B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0290C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0290D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0290E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0290F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0299A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG03001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG03002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG03003 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325Q HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0042


IEB154I  IGG0325R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325S HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325T HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325U HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325W HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0325Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0550B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0550D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0550F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0550H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0550K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0550P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0550S HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0551A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0551B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0552K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0553A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0553B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0553C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0553D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0553E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0553F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0553G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0556B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG08101 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG08102 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG08103 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG08104 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDUSRFF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OMODVOL1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  READPSWD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SECLOADA HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000008 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ODM508
IEB149I  THERE ARE 0000007  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0043


                      COPY I=IDM509,O=ODM509
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IDM509   -
IEB154I  IGC0005C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19DA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19DB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19DD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19KI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19KK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19KM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19KN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGR19KO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019BT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019DA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019DB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019DC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019DD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019KY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019LA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019LC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019LE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019LG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019LI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0191M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0199L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0203A HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ODM509
IEB149I  THERE ARE 0000006  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0044


                      COPY I=IDN527,O=ODN527
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IDN527   -
IEB154I  IFBSR000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR040 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR050 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR065 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR075 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR140 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR150 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR167 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR175 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR3A5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR3C3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR340 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR350 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR365 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR375 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSR395 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEA085 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEA095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEA155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEA165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEA195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEB085 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEB095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEB155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEB165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEB195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCECUA0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCECUA1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEC085 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEC095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEC155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEC165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEC195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCED095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCED155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCED165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCED195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEE095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEE155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEE165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEE195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEF095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEF155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEF165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEF195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEG155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEG195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEIPL0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEI040 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEI050 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEI135 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEI145 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEI155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEJ145 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEL155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEMER0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEMER1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEMER2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEMER3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEMER4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEMER5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEM155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEP005 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEP007 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEP008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEP009 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEREP0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCETRN0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCETRN1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCETRN2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCETRN3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCETRN4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCET00B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCET002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCET003 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0045


IEB154I  IFCET004 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCET005 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCET006 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCET008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCET012 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEUKNO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEVOL0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXXA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXXB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXXC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXXD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXXX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXX0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXX1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXX2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXX3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXX4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXX5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXX6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXX7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXX8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCEXXX9 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE0040 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE0050 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE0065 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE0075 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE0085 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE0095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE0135 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE0145 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE0155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE0165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE0195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE2860 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE2870 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCE2880 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCMES00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCMSG00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCRDESM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCRDE03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCRE002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCRE003 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSA050 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSCUA0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSCUA1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSIA50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSIPL0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSI040 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSI050 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSI145 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSI155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCST00B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCST001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCST003 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCST005 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCST006 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCST008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSUKNO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSVOL0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXXA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXXB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXXC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXXD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXXX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXX0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXX1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXX2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXX3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXX4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXX5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXX6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXX7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXX8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCSXXX9 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS0040 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS0050 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS0065 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS0075 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS0085 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0046


IEB154I  IFCS0095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS0135 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS0145 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS0155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS0165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS0195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS2860 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS2870 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCS2880 HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000005 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ODN527
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0047


                      COPY I=IDN533,O=ODN533
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IDN533   -
IEB154I  IFDMSGAJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG08 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG13 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG22 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG25 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG31 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG32 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG33 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG37 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG38 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG53 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG54 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG56 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG61 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDMSG73 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLTAJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT08 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT09 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT11 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT13 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT14 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT15 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT16 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT17 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT18 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT21 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT22 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT23 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT24 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT25 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT26 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT29 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT31 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT32 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT33 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT34 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT35 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT36 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT37 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT38 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT39 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT41 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT44 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT46 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT48 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT51 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT52 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT53 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT54 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT55 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT56 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT59 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT61 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT73 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFDOLT74 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0005I HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0048


IEB154I  IGC0205I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0405I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0505I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0605I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0705I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0905I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0019I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0119I HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000005 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ODN533
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0049


                      COPY I=IDN539,O=ODN539
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IDN539   -
IEB154I  ICFBDF00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ICFBDX00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ICFBIF00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ICFBIX00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ICFTIF00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0008E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0108E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0208E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0308E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0408E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0508E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0608E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0708E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0808E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0908E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC2603D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0660A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR0A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR0B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR0C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR0D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR1A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR1C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR1D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR2C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR2D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR2K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR3C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFASR30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFCCHIN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFCCH35 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFCCH48 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFCCH60 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFCCH68 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFCCH70 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFCCH80 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFDDRMF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFDDRMV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFDDR00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFDDR02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFDDR03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFDDR04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFDDR10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCHE0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCHE1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCHE2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCHE3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCHF0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCHF4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCHF5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCHF6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH12 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH13 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH14 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH15 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH16 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH17 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH18 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH19 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH21 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH22 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH23 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH31 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH33 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH34 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH35 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH36 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH40 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH41 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMCH50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMFTF1 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0050


IEB154I  IGFMFTF2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMFTF3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMFT00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMSB00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMVTF1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMVTF2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMVTF3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMVT00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGFMVT02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF08501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF08502 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF13501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF24MPD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF2403D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF2503D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF2603D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF29601 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF29701 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF34MPD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF55301 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF65FMC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF65MFT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF65MP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF65MVT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF65PMC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGF65VMC HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000004 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ODN539
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0051


                      COPY I=IED521,O=OED521
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IED521   -
IEB154I  IEWLMADA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMAPT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMBTP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMEND HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMENS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMENT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMESD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMFNL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMIDR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMINC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMINP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMINT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMMAP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMOPT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMOUT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMRAT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMRCG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMREL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMROU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMSCD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMSCN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLMSYM HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000008 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OED521
IEB149I  THERE ARE 0000008  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0052


                      COPY I=ICI505,O=OCI505
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ICI505   -
IEB154I  IEAAAB00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0Y HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD0Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAD06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAAT00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAADEQ0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAADL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAEF00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAENQ0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAID00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAJOBQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAPL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAPX00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAASPRG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAST00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAASY00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATM0A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATM00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATM01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATM02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATM03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATM04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATM05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATM06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATM08 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATM2A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAATM2B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAAXR00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEABDL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEABXR00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEACDL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEACTM0B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEADDL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEADTM22 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEADTM23 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEADTM24 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEADTM25 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAEDL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAFDL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAGAB00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAGDL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAGED02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAGENQ1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAGENQ2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAGPL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAHDL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAIAB00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAIDL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAJAB00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAMAD00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAMSERB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAMTM05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANAM00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM0A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM0B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM0C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM0D HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0053


IEB154I  IEANTM0E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM0F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM0G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM0H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM0J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM0M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM08 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEANTM09 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAPATCH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQCB01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQMSGS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEASTM11 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEASTM12 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEASTM13 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEASTM14 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAXPALL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAXPDXR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAXPSIM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAXSVRB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEA0RT00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEA0RT01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEA0RT02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEA0RT10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEA0ST00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEA0ST01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEA0TI00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEA0TI01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEA0TI02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEA0TI03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEA0TI04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECINTRP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIOLTS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIPR1A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIPR1B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIPR12 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECTATTN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECURATN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDNULL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IED1303D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEBC1PE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEBH1PE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECIR01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECIR50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECIR51 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECLCTX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMCTR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMCTX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMDOM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMDSV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMOCP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMPMC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMPMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMPMX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMPM1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMWSV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMWTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECNCTX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECNDUM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECOCTX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVCRA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVCRX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVCTE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVCTI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVCTR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVCTW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVCTX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVDOM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETE HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0054


IEB154I  IEECVETF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVETZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVET1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVET2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVET3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVET4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVET6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVET7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVET8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVET9 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFTZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFT1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVFT2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVGCI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVML1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVML2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVML3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVML4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVML5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVML6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVML7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVOCC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVOCP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVOCX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVPMC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVPMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVPMX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVPM1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECXDOM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEDFINA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEDFINB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEDFINC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEDFIN1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEDFIN2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEDFIN3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEDFIN4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEDFIN5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEDFIN6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEDFIN7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEDFIN8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEDFIN9 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEGES01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEGK1GM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEICN01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEIC2NQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEIC3JF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEILCDM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEELOGWR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEELOG02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMCREP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMCRFK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMCR01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMCS01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMFWTO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMXC01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMXR01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEENFWTO HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0055


IEB154I  IEEPSN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEQOT00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEREADR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEERSC01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEERSR01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD561 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD562 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD563 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD564 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD565 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD566 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD568 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD571 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD575 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD576 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD577 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD578 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD579 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD580 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD581 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD582 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD583 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD584 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD590 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD591 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESD592 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESMFAL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESMFIO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESMFIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESMFI2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESMFI3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESMFI4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESMFMS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESMFOI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESMFOP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESMFWR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESMFWT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESMF8C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEESTART HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVACTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVICLR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVJCL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVLDSP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVLIN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVLNKT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVLOUT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVOMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVPRES HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVRC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVRCTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVRFRX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVRJCL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSMBA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSMDM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSTAR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVTCTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVWTOR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEWRITR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEWTC00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEWTC01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEWTR00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEWTR01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEXEDNA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEZEXIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE00110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE0303D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE0303F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE0403D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE0403F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE0503D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE0603D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE0703D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE0803D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE0903D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE1A03D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE1B03D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE10110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE1103D HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0056


IEB154I  IEE11110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE1203D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE12110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE1403D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE1603D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE20110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE2103D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE21110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE22110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE2303D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE23110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE2803D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE2903D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE3103D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE3303D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE3503D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE3903D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE40110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE4103D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE4203D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE4303D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE4403D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE4503D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE4603D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE4703D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE4803D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE4903D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE5403D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE5503D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE5603D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE5703D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE5903D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE60110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE6303D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE6403D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE6503D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE6603D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE6703D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE6803D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE6903D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE7103D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE7203D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE7303D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE7503D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE7603D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE7703D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE7803D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE7903D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE8503D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE8603D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFACT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFACTFK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFACTLK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFACTRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFATECB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFAVFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFBR14  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFCNVRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFCVFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDAFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDPOST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDSDRP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDSOAL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDSOCP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDSOFB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDSOSM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDSOWR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFEAFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFFAFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFGMFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHAAFK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHAFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHBFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHCBFK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHCFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHEBFK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHECFK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHEFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHFFAK HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0057


IEB154I  IEFHGFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHHFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHLFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHMFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFICR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFIDFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFIDMPM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFIDUMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFINTQA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFJAFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFKGDUM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFKRESA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFKRESB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFK1FAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFK1MSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFLOCDQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFMCVOL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFORMAT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFPKG03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFPPGM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFPRES  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFPRTXX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQAGST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQASGQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQBVMS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQDELQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQINTZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQMDQQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQMDUM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQMLK1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQMNQQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQMRAW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQMSSS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQMUNQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFQRESD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFRAPCP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFRCLN1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFRCLN2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFRDWRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFRPREP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFRSTRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSCAN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSDPPT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSDTTE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSDXXX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSDXYZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD006 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD007 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD012 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD055 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD059 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD070 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD078 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD079 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD080 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD081 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD082 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD083 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD084 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD085 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD086 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD087 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD088 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD089 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD090 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD094 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD096 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD097 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD105 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD167 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD168 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD171 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD21Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD22Q HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0058


IEB154I  IEFSD300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD301 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD302 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD303 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD304 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD305 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD308 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD31Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD310 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD311 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD312 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD32Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD33Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD41Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD42Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD447 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD510 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD511 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD512 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD513 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD514 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD515 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD516 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD517 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD518 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD519 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD530 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD531 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD532 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD533 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD534 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD535 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD536 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD537 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD540 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD541 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD551 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD552 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD553 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD554 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD555 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD556 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD557 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD558 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD559 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD567 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD572 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD584 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD585 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD586 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD587 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD588 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD589 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD597 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD598 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD599 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSEPAR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSMFAT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSMFIE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSMFLK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSMFWI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSMR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFUJI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFUJV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFUSI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFUSO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFUTL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVDA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVDBSD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVDDUM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVEA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVFA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVFB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGMEP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGMSS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM1  HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0059


IEB154I  IEFVGM10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM11 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM12 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM13 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM14 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM15 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM16 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM17 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM18 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM19 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM3  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM4  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM5  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM6  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM67 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM7  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM70 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM71 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM76 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM78 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM8  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGM9  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVGT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHCB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHEB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHEC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHGSS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHHB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHRSS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVH1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVH2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVINA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVINB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVINC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVIND  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVINE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVJA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVJIMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVJMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVKIMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVKMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMLK5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMLS1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMLS6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMLS7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMMS1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVM2LS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVM3LS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVM4LS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVM5LS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVM76  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVRRC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVRR1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVRR2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVRR3  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVSDRA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVSDRD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVSD12 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVSD13 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVSMBR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFV15XL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWAD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWAFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWA000 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0060


IEB154I  IEFWCFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWCIMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWDFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWD000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWD001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWEXTA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWSMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWSTRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWSWIN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWSYP3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWTERM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWTP0A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWTP00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWTP01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFWTP02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFW21SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFW31FK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFW31SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFW41SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXAFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXAMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXCSSS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXDPTH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXH000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXJFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXJIMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXJMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXKFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXKIMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXKMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXMPCP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXQM00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXQM01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXQM02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXQM03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXTDMY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXTFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXTMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXT00D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXT002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXT003 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXVFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXVMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXVNSL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXV001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXV002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFXV003 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFX1FAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFX2FAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFX3FAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFX300A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFX5FAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFX5000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFYNFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFYNIMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFYNMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFYPJB3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFYPMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFYSVMS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFYTVMS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFZAFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFZAJB3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFZGJB1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFZGMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFZGST1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFZGST2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFZHFAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFZHMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF04FAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF078SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF079SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF08FAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF09FAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF23FAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF300SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF304SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF35DUM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF36FK1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF36FK2 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0061


IEB154I  IEF41DUM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF41FAK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF589SP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF7KGXX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF7KPXX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF7K1XX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF7K2XX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF7K3XX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWFTHSL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWFTMIN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWFTPCI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWSUOVR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWSVOVR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWSXOVR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWSYOVR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEZDCODE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEZNCODE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFASMFDP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBDCB00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBDCB01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBDCB02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSTAT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSTAT0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSTAT1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFBSTAT2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFCDIP00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFGRDUM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0001G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0003C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0006A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0007F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0008H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0008I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0009A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0103D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0105I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0109A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0203D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0305I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC116   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1303D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0000A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0000D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0000E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0000F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0000G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0000H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0000I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0001A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0001C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0002{ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0002H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0011A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0011B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0011C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0011D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0011E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0025C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0025D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0025E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0025F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0100F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0100I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0101C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0102H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0125C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0125E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0125F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0200F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0200I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0225C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0225E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0300I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0325C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0400I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0425C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0625F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0800I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0900I HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0062


IEB154I  IGG019C5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGX00015 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJACP00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJACP01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJACP02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJACP20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJACP25 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJACP30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJACP50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJACP70 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJARS00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJARS01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJARS20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJARS21 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJARS60 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHK1503D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLGTF01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLGTF02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLGTF03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLGTF11 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLGTF12 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLGTF13 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLINT21 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLINT22 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLINT31 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLINT32 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLINT41 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLINT43 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLMCIHF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLRCOV  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLRMMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLRMON  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLRMSTA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLROUT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLSCAN1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLSCMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLSERV  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTAIR1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTAIR2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTAR2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTAR3  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTAR4  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTAR5  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTAR6  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTCIR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTCTL1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTCTL2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTDCB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTERM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTFIL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTMG1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTMG2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTPED  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTPMT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTSCN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTSIO  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTSV1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTSV2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTSYSV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTTAB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTUSR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLT103  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLWRAP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLWRTE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJNULL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MCONRESA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  MCONRESB HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000011 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OCI505
IEB149I  THERE ARE 0000007  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0063


                      COPY I=ICI535,O=OCI535
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ICI535   -
IEB154I  IEAMP650 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQABMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAB00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0S HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0Y HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD0Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQAD08 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQCB02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQED02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQENQ2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQENQ3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQID00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQLK00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQRAPG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQRORI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQRTMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQRT00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQSETS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQSTMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQST00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQST01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQSY50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTAMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTB00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTIMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTIM1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTI00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTI01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTI02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTI03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0S HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0T HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0U HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM0W HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM08 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTM09 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0064


IEB154I  IEAQTM2K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAQTR33 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAXDS00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIPRMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIPRMT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IECIPR16 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEBASEC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMED2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECMQWR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVCTB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVED2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEECVINT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEELOG01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEELWAIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMPCKR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMPS00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMPS03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMPVCH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMPVCP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMPVSE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMPVSN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEMVWTO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEENVWTO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEPALTR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEPDISC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEPPRES HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEPRTN2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEPRWI2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVDRGN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVDSP1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVIC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVICTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVLIN1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVLIN3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVMNT1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVMNT2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVWAIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE0003D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE2203D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE30110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE31110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE32110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE3603D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE3703D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE3803D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE50110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE5103D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE5203D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEE5303D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDSLST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDSOCR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDSOLP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDSTBL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFDSTRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHRFK1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFHRFK2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFIIC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFIRC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFIRCB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD0XX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD101 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD102 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD103 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD104 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD111 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD112 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD160 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD161 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD162 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD164 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD166 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD180 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFSD263 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVHR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVKG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMB   HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0065


IEB154I  IEFVMBC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVME   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVMH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVPOST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF060SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF061SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF064SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEF065SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWFELCS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWFETCH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWSEGLD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWSWOVR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC6103D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJQCP30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJQCP31 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJQCP32 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJQRS20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJQRS21 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJQRS22 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJQRS23 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHJQRS24 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLMCIHP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLMCIHV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTSYSP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHLTUSR  HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000005 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OCI535
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0066


                      COPY I=IFO550,O=OFO550
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IFO550   -
IEB154I  IPDAGH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IPDER    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IPDSN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IPDTEE   HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000001 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OFO550
IEB149I  THERE ARE 0000001  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0067


                      COPY I=IIO523,O=OIO523
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IIO523   -
IEB154I  ANLZ     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GARC     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GCGRID   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GCPRNT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GLABEL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GOFFSG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GPGRID   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GPVGRD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSDPLT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSPLOT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSTOR    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSVPLT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GVARC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFABA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFANA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFCAN01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFCAN02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFCAN03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFGRTTR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPAAST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPBAPR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPCAAR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPDAPL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPEAGR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPFAVA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPGAVP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPHALA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPIAPG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPJAPV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPKADG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPLARE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFPPASG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0007A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0007C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0007D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0007E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0107A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0107C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0107D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0207A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC070   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC084   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0010A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0010B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0010C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0010D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0110B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGGIFF01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019OA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019OB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019OE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019OJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019OK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193Y HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0203X HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0203Y HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PENTRK   HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000006 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OIO523
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0068


                      COPY I=IIO526,O=OIO526
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IIO526   -
IEB154I  IGC054   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019GZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019G0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019G1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019G2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019G3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019G4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019G5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019G6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019G7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019G8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019G9 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019HA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019HB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019HD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019HF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019HG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019HH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019HI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019HJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019HK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019HL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019HN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019HP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019H3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019H7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019IA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019IB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019IE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019IF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019IM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019IN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019IO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019IX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019IY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019IZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019I1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019I2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019I9 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019JX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019J0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019J3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019J6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019J7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192A HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0069


IEB154I  IGG0192B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192O HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192P HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192R HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192S HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192T HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192U HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192W HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192X HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0192Z HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01920 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01921 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01922 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01924 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01925 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01927 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01928 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01929 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0195D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0195G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0195T HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0195U HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01950 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0196C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0196D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0196G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0202A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0202D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0202I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0202J HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0202K HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0202L HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0202M HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0202N HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG02028 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG02029 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG032I1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG032I2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG032I3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG032I4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG032I5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG032I6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG032I7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG032I8 HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OIO526
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0070


                      COPY I=ILD547,O=OLD547
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ILD547   -
IEB154I  IEWLDIDY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLDIOC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLDLIB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLDREL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEWLDRGO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOADER   HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000005 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OLD547
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0071


                      COPY I=ILM512,O=OLM512
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ILM512   -
IEB154I  IHEABU0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEABV0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEABW0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEABZ0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEADV0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEATWH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEATWN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEATZH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEATZN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECLSA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECLTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECLTB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECTTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECTTB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECTTC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDIMA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDOMA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDVU0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDVV0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDZW0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDZZ0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEERDA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEEREA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEERIA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEERNA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEEROA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEERPA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEERSA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEERSB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEERTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEESMA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEESMB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEESSA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEESSB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEEXW0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEEXZ0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITCA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITDA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITEA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITFA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITGA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITHA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITJA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITKA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITLA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITMA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITNA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITOA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEITPA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELNW0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELNZ0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMPU0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMPV0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMSIA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMSTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMSWA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMZUD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMZUM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMZVD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMZVM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMZW0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMZZ0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOPNA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOPOA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOPPA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOPQA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOPZA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOSIA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOSTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOSWA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPDW0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPDX0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPDZ0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPSW0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPSX0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPSZ0  HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0072


IEB154I  IHESMX0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNWC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNWK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNWS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNWZ  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNZC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNZK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNZS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNZZ  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESQW0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESQZ0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESSX0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESTAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESUBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETEXA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETEXB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETEXC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETNWH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETNWN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETNZH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETNZN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETOMA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETOMB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETOMC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETOMD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETOME  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVCS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVCSA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVCSB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEXIU0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEXIV0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEXIW0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEXIZ0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEXXW0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEXXZ0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEYGWS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEYGWV  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEYGXS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEYGXV  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEYGZS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEYGZV  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEZZAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEZZBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEZZCA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEZZFA  HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000008 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OLM512
IEB149I  THERE ARE 0000006  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0073


                      COPY I=ILM532,O=OLM532
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ILM532   -
IEB154I  IHIERM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIERR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIERROR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIFDD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIFDI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIFII   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIFRI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIFRR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIFSA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIFSAIN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIGPR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIGPRCL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIGPRGT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIGPRPT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIAR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIARRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIARRY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIBA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIBARR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIBO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIBOAR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIBOOL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIDE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIDEAI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIDEII HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIDEIR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIOR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIOREN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIOREV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIORNX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIIOROP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIISY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIISYMB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHILAT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHILEX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHILLO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHILOR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHILORAR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHILOREL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHILSC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHILSCC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHILSCS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHILSQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOAR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOARRY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOBA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOBARR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOBO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOBOAR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOBOOL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOIN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOINAR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOINTG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOST   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOSTRG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOSY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOSYMB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOTA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIOTARR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIPTT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHIPTTAB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHISAT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHISEX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHISLO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHISOR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHISORAR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHISOREL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHISSC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHISSCC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHISSCS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHISSQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHISYS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHISYSCT HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000008 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OLM532
IEB149I  THERE ARE 0000006  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0074


                      COPY I=ILM537,O=OLM537
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ILM537   -
IEB154I  BCNV     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GSP01    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAAA01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAAA02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAAA03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAAA04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAAA05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAAA06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFACA00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFACA01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFACA02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFACA03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFACA04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFACA05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFACA06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFACA07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFACA08 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFACA13 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFACA50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFADA01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFADA02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFADA03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAEA01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAEA02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAEA03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAEA04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAEA06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAEA07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA08 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA09 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA11 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA12 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA13 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA14 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA15 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA16 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA17 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA18 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAFA19 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAGA01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAGA02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAGA03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAGA04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAGA05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAGA06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAGA07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAGA08 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA09 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA11 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA12 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA13 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA14 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA15 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAHA16 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAJA01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAJA02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAJA03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFFAJA04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCGSP01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCGSP02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCGSP03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHCGSP04 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0075


IEB154I  IHEGSP01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEGSP03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  INGSP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TMGSP    HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OLM537
IEB149I  THERE ARE 0000006  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0076


                      COPY I=ILM542,O=OLM542
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ILM542   -
IEB154I  GDCFE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDCFF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDCFI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDCTE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDCTF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GDCTI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTCLT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTEND    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTNIT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTRED    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  GTWRT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDGDCFE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDGDCFF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDGDCFI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDGDCTE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDGDCTF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDGDCTI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDGTCLR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDGTCLT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDGTEND HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDGTIRB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDGTNIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDRDWRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDUATBL HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000008 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OLM542
IEB149I  THERE ARE 0000007  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0077


                      COPY I=INL511,O=ONL511
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY INL511   -
IEB154I  IEMAA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAAA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAJ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAM    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMAV    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBJ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBM    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBR    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBU    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBV    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBW    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMBX    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCM    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCR    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCV    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMCW    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMED    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEJ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEM    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEV    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEW    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEX    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEY    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMEZ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFQ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFU    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFV    HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0078


IEB154I  IEMFW    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFX    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFY    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMFZ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMF1    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMGA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMGB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMGC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMGK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMGO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMGP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMGQ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMGR    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMGU    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMGV    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMHF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMHG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMHK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMHL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMHP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMIA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMIB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMIC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMIG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMIK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMIL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMIM    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMIN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMIP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMIQ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMIT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMIX    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMJD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMJI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMJJ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMJK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMJL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMJM    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMJP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMJZ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKJ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKQ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKU    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMKV    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLR    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLU    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLV    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLW    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLX    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMLY    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMME    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMJ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMML    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMM    HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0079


IEB154I  IEMMN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMMT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMNA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMNB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMNG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMNH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMNJ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMNK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMNM    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMNN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMNT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMNU    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMNV    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOM    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMON    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOQ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMOU    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMPA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMPD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMPH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMPL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMPM    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMPO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMPP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMPT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMPU    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMPV    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMQF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMQG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMQH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMQJ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMQK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMQL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMQU    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMQX    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMRA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMRB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMRC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMRD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMRF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMRG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMTF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMTJ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMTK    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMTO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMTP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMTQ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMTT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMTU    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMUA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMUB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMUC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMUD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMUE    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMUF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMUG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMUH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMUI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXF    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXG    HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0080


IEB154I  IEMXH    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXJ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXQ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXR    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXS    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXT    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXU    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXV    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMXW    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMYL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMYM    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMYN    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMYO    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMYP    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMYQ    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMYX    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEMYY    HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000008 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ONL511
IEB149I  THERE ARE 0000007  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0081


                      COPY I=IPL1LIB,O=OPL1LIB
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IPL1LIB  -
IEB154I  IHEABND  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEADD0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEAPDA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEAPDB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEATL1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEATL2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEATL3  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEATL4  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEATS1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEATS2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEATS3  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEATS4  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBEGA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBEGN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSA0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSC0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSD0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSF0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSI0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSKA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSKK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSKR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSMF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSMV  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSMZ  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSN0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSO0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSS2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSS3  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEBSVA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECFAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECFBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECFCA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECKPS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECKPT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECNTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECNTB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSC0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSI0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSKK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSKR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSMB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSMF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSMH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSML  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSMV  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSS2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSS3  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHECSVA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDBN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDBNA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDCN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDCNA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDCNB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDIA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDIB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDJA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDOA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDOB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDOC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDOD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDOE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDPA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDPB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDPC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDPD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDTB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDTC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDTD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDDTE  HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0082


IEB154I  IHEDIA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDIAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDIAB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDIBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDIBB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDIDA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDIE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDIEA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDILA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDILB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDMA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDMAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDNB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDNBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDNC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDNCA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDOA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDOAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDOAB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDOBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDOBB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDOBC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDODA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDODB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDOE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDOEA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDSPA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDUMC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDUMJ  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDUMP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEDUMT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEEFLC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEEFLF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEEFSC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEEFSF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEERRA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEERRB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEERRC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEERRD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEEXL0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEEXS0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEHTL0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEHTS0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIBTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIBTB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIBTC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIBTD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIBTE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIGTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEINTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOAB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOAC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOAD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOBB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOBC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOBD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOBE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOCA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOCB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOCC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIODG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIODP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOFA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOGA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIONA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOPA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOPB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOPC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOXA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOXB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEIOXC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEJXII  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEJXIY  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEJXSI  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEJXSY  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEKCA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEKCAA  HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0083


IEB154I  IHEKCB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEKCBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEKCD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEKCDA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEKCDB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELDIA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELDIB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELDIC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELDID  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELDOA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELDOB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELDOC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELNLD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELNLE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELNL2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELNSD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELNSE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELNS2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELSPA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELSPB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELSPC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELSPD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHELSPE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMAIN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMXBN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMXBX  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMXDN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMXDX  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMXLN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMXLX  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMXSN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEMXSX  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEM91   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEM91A  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEM91B  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEM91C  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHENL1A  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHENL1L  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHENL1N  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHENL2A  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHENL2L  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHENL2N  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOCLA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOCLB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOCLC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOCLD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOCTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOCTB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOCTC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOCTD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOSDA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOSEA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEOSSA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPDF0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPDL0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPDS0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPRDA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPRTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPRTB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPSF0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPSL0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPSS0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPTTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEPTTB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHERESN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEREST  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESADA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESAPA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESAPB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESAPC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESAPD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESHLC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESHLS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESHSC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESHSS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESIZE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESMF0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESMGC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESMGR  HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0084


IEB154I  IHESMHC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESMHR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNLC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNLK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNLS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNLZ  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNSC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNSK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNSS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESNSZ  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESPRT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESQL0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESQS0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESRCA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESRCB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESRCC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESRCD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESRCE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESRCF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESRDA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESRTA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESRTB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESRTC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESRTD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESSF0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESSGC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESSGR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESSHC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESSHR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESTGA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESTGB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESTPA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESTRA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESTRB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHESTRC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETABS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETCVA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETCVB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETEAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETER   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETERA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETEVA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETHL0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETHS0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETNLD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETNLR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETNSD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETNSR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETPBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETPRA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETSAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETSAD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETSAP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETSEA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETSSA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHETSWA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEUPA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEUPAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEUPAB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEUPB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEUPBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEUPBB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVCA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVCAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVFA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVFAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVFB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVFBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVFC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVFCA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVFD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVFDA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVFE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVFEA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVKB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVKBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVKC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVKCA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVKF   HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0085


IEB154I  IHEVKFA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVKG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVKGA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPCA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPDA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPEA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPFA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPGA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVPHA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVQAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVQB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVQBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVQC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVQCA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSCA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSDA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSDB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSEA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSEB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVSFA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEVTBA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEXIB0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEXID0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEXIL0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEXIS0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEXXL0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEXXS0  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEYGFS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEYGFV  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEYGLS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEYGLV  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEYGSS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHEYGSV  HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000008 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OPL1LIB
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0086


                      COPY I=IPL552,O=OPL552
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IPL552   -
IEB154I  IKM001   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM002   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM003   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM02    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM03    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM11    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM12    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM131   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM132   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM133   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM134   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM135   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM136   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM21    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM22    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKM23    HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000010 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OPL552
IEB149I  THERE ARE 0000007  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0087


                      COPY I=IRC536,O=ORC536
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IRC536   -
IEB154I  IHKABALC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKABLRD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKABLST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKABLWR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKABLWT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKABORT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKABRER HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKABXMT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKBBNIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKBBRII HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCAINT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCAMSN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCASHB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCASHL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCASHM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCASTP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCBCLD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCBLGN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCBRJS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCBSTD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCBUID HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCCPLM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCCQMG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCCSCN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCCSGN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCCSUD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDBDC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDBIN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDBIS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDBMI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDBPK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDBSH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDBTW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDBTX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDFMR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDINI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDMDE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDMDQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDMEQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDMSH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDRIN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDRMV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDSCH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCEDIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCFBDR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCFMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCFOUT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCFQOP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCFSTA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCFSTB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCFWMS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCGALT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCGDLT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCGDT2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHALC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHATS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHBGN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHCNT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHDSP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHIRP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHJIR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHJPR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHLRD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHLWR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHNDJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHNIP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHOFS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHOSE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHPCK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHPUP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHRDR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHSDQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHSUP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUCK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUMA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUMB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUMC HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0088


IEB154I  IHKCHUMD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUME HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUMF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUMG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUMH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUMI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUMJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUM0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUM1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUM2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUM3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUM4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUM5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUM6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUM7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUM8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUM9 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCHUPK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCRIME HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCRUMB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKQMNGR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKXAINT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKXEDIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKXHRDR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKXJBGN HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ORC536
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0089


                      COPY I=IRC541,O=ORC541
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IRC541   -
IEB154I  IKAACCTG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKABDHK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKABENDA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKACKXT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKACTL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKADAT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKADGM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKADIA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKADIR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKADMSG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKADOR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAEXT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAGCMD  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAIERR  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAINIT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAJCL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKALPM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAMBEG0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAMCSR0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAMDES0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAMENT0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAMERR0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAMINIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAMREC0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAMSPE0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAMWRI0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPBEG0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPCAN0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPCSR0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPDES0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPDIS0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPENT0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPLOG0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPLON0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPRDGM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPREC0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPROC0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPSMB0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPSPE0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKAPWRI0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASCH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASDENQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASD079 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASD080 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASD081 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASD082 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASD083 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASD084 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASMBC1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASMBSA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASMBS1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASMBS2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASMBS3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASMBS4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASPD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKASVC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKATCST0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKATDES0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKATENT0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKATLOG0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKATLON0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKATREC0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKATSPE0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKATWRI0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKA079SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKA082SD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKA083SD HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000005 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ORC541
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0090


                      COPY I=IRC543,O=ORC543
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IRC543   -
IEB154I  IKDCTL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDINIT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDINPRO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDIOR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDMSG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDPLOF0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDPREC0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKDPRSJP HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ORC543
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0091


                      COPY I=IRC551,O=ORC551
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IRC551   -
IEB154I  IHKAFI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKALC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKAST   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKAVT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKAWS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKBGN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKBPM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKBSH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKBST   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCCI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCCS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCC1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCC2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCC3   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCC4   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCC5   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCC6   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCC7   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCC8   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCDP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCGN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCIP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCLN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKCMD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKDEF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKDEQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKDSP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKEDT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKED1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKEND   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKEOS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKERR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKEXC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKEXF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKGCW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKGET   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKINI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKIPT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKIRL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKIRP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKLAB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKLAD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKLAP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKLAT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKLAY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKLDC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKLDS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKLEW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKLGF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKLGN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKLST   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKMAA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKMGE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKMOD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKMSG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKMUF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKNBX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKNUM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKOPN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKOUT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKPUT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKRER   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKRNQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKRNR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKSAV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKSCN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKSDQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKSMG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKSND   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKSRV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKSTP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKSTS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKSUB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKSYN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKTAB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKUTM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHKWTR   HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0092


IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ORC551
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0093


                      COPY I=IRG038,O=ORG038
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IRG038   -
IEB154I  IESRPG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES00010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES00910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES03010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES03910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES04010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES04910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES05010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES05910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES06010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES06910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES07010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES07910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES08A10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES08010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES08910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES09010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES09910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES10010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES10910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES11010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES11910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES12010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES12910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES13010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES13910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES14010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES14910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES15010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES15910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES16010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES16910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES17010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES17910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES18010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES18910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES19010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES19910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES20010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES20910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES21010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES21910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES22010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES22910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES23010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES23910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES24010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES24110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES24210 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES24310 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES24410 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES24510 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES24610 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES24710 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES24910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IES25010 HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000002 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ORG038
IEB149I  THERE ARE 0000002  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0094


                      COPY I=IUT506,O=OUT506
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IUT506   -
IEB154I  IEBASCAN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBBAM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBBSCAN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBCANAL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBCCS02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBCMAIN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBCOMPM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBCONH2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBCONP2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBCONZ2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBCQSAM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBCRANL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBCREAT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBCROOT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBCULET HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBDG    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBDGCUP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBDGMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBDRB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBDRD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBDSCPY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBDV1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBDWR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBEDIT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBEDIT2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBFDANL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBFDTBL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBGENRT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBGENR3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBGENS3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBGEN03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBGMESG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBGSCAN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBIOE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBISAM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBISC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBISF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBISL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBISMES HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBISPL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBISSI  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBISSO  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBISU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBLENP2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBMCM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBMOVE2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBPPAL1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBPPCH1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBPPMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBPPUN1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBSCN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBTCRIN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBTCR02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBTCR03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBTCR04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBTCR05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBUPDAT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBUPDTE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBUPDT2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBUPLOG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBUPNIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBUPXIT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBVCT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBVDM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBVMS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBVTM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBVTT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEBWSU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHATLAS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDANAL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDAOUT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDASDR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDASDS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDCELL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDCONS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDDATE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDDOIO HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0095


IEB154I  IEHDDUMP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDEXCP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDGETA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDLABL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDMSGB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDMSGS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDPASS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDPRNT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDRCVR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDREST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDSCAN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHDVTOC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHINITT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHIOSUP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMESS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMOVE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVEST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVESU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVETG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVETJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVMRY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVMRZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVMSN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVMSQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVMSY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVMTA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVMTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSRA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSRD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSRK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSRM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSRS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSRV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSRX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSRY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSRZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSSF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSSS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSSV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSSX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSSY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSSZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSTA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSTC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVSTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVXSE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHMVXSF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHPRINT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHPRMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHPRNT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHPROG1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHPROG2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHPROG3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHPROG4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHPROG5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHQSCAN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEHSCAN  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFHSTATR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0003I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0008B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0008F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0108B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0208B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0308B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019C8 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0096


IEB154I  IGG019P7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019P8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019P9 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG086AE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0860A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0860B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0860C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0860D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHGANY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHGCTB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHGROOT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHGTAB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHGUADEL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHGUALOG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHGURD   HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OUT506
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0097


                      COPY I=IPARMLIB,O=OPARMLIB
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IPARMLIB -
IEB154I  IEABLD00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAIGE00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAIGG00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEAIGG01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEARSV00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LNKLST00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SMFDEFLT HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000009 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OPARMLIB
IEB149I  THERE ARE 0000006  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0098


                      COPY I=ICOBLIB,O=OCOBLIB
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ICOBLIB  -
IEB154I  IHD00000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00101 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00301 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00600 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00601 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00602 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00700 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00701 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00800 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00801 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00802 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00900 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD00901 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01101 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01102 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01301 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01502 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01504 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01600 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01601 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01602 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01700 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01701 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01800 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01801 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01802 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01900 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01901 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01902 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01904 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD01908 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02101 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02301 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02302 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02304 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02600 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02601 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02700 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02701 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02800 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02801 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02802 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02900 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD02901 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03002 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0099


IEB154I  IHD03004 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03101 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03102 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03104 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03108 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03301 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03402 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03801 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03900 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD03901 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD04000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD04001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD04100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IHD04101 HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000010 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OCOBLIB
IEB149I  THERE ARE 0000006  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0100


                      COPY I=IDN554A,O=ODN554A
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IDN554A  -
IEB154I  IMCJQDMP HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000005 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ODN554A
IEB149I  THERE ARE 0000001  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0101


                      COPY I=IACDS,O=OACDS
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IACDS    -
IEB154I  1SYSTEM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  2CDSEOF  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS39509 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS41472 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS42497 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS42498 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS42499 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS42500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS43208 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS43248 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS44482 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS45267 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS45281 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS46105 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS46360 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS48360 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS49434 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS50288 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS51175 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS51445 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS51474 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS52430 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS52567 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS52569 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS53137 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS53156 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS53162 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS53223 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS53297 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS53319 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS53765 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS53836 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS54550 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS54610 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS54635 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS54839 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS55451 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS55588 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS55738 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS56335 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS56569 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS56570 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS56571 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS56572 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS56573 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS56574 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS56575 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS56940 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS57051 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS57052 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS57115 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS57293 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS57380 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS57703 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS58043 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS58105 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS58109 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS58684 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS58744 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS59746 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS59759 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS59781 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS61090 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS61117 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS61129 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS61243 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS61416 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS61432 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS61448 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS61555 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS61568 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS61713 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS62342 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS62375 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS62421 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS62460 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS62685 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0102


IEB154I  9AS62726 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS62791 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS62856 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS63021 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS63162 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS63280 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS63313 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS63345 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS63370 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS63601 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS63605 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS63730 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS63900 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS63917 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64252 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64253 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64313 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64350 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64382 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64420 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64431 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64459 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64475 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64663 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64833 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64932 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS64998 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS65011 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS65088 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS65268 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS65494 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS65514 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS65560 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS65677 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS65706 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS65713 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS65746 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS65804 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS65823 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66036 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66053 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66059 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66060 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66109 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66207 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66297 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66514 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66555 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66582 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66588 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66734 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS66962 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67132 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67175 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67188 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67198 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67332 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67423 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67438 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67446 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67484 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67490 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67502 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67511 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67512 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67514 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67533 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67546 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67579 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67614 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67616 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67739 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67742 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67803 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67905 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67917 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67967 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS67968 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68001 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0103


IEB154I  9AS68010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68099 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68154 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68162 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68181 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68271 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68453 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68454 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68473 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68477 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68479 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68481 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68487 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68488 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68492 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68499 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68563 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68569 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68623 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68674 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68764 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68914 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68941 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68943 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68957 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68983 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68984 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68985 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68986 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68987 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68988 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68989 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68990 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68993 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68994 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68995 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68996 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68998 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS68999 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69003 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69006 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69007 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69009 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69114 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69131 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69174 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69180 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69203 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69204 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69206 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69237 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69252 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69285 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69296 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69345 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69346 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69354 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69514 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69517 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69520 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69527 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69528 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69541 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69542 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69543 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69545 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69553 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69559 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69560 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69570 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69574 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69588 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69589 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69591 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69592 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0104


IEB154I  9AS69595 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69598 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69602 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69615 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69655 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69732 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69750 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69781 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69817 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69824 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69831 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69887 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69914 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69929 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69966 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS69999 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70158 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70162 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70205 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70208 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70256 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70305 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70312 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70322 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70324 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70345 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70377 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70409 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70440 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70536 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70538 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70539 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70541 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70542 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70547 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70592 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70627 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70654 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70703 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70724 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70741 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70773 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70783 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70791 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70799 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70822 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70836 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70856 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70861 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70879 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70884 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70894 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70907 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70935 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70960 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70966 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70968 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70986 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS70991 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71082 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71083 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71091 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71093 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71107 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71112 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71116 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71132 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71172 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71173 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71181 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71184 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71186 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71216 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71246 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71249 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71265 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0105


IEB154I  9AS71272 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71274 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71279 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71287 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71291 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71329 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71344 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71358 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71363 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71379 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71383 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71399 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71410 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71413 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71417 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71429 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71430 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71436 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71438 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71439 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71441 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71442 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71446 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71451 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71454 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71459 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71464 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71466 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71467 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71471 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71475 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71476 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71478 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71479 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71480 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71481 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71482 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71483 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71484 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71485 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71490 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71508 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71510 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71514 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71519 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71520 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71533 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71537 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71553 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71581 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71599 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71601 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71606 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71635 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71637 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71638 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71646 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71651 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71652 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71658 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71677 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71682 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71683 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71693 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71694 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71724 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71750 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71753 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71755 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71784 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71795 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71799 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71802 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71803 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71831 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71856 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71879 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71880 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71905 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0106


IEB154I  9AS71909 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71925 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71937 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71938 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71943 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71946 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71947 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71962 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71963 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71964 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71965 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71970 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71976 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71987 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS71988 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72056 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72059 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72064 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72086 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72102 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72114 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72115 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72142 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72159 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72160 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72163 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72164 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72167 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72172 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72175 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72193 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72225 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72230 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72269 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72292 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72347 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72350 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72352 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72355 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72356 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72359 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72373 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72382 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72392 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72396 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72397 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72415 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72417 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72420 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72421 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72422 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72425 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72426 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72428 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72431 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72434 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72435 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72436 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72437 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72438 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72439 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72446 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72448 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72456 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72459 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72461 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72465 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72466 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72473 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72474 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72476 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72477 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72478 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72485 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72487 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72488 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72489 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72491 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0107


IEB154I  9AS72498 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72522 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72523 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72533 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72544 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72558 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72565 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72569 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72581 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72582 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72583 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72584 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72594 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72598 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72610 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72614 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72616 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72617 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72622 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72623 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72629 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72644 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72650 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72679 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72702 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72712 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72714 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72728 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72739 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72765 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72770 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72774 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72778 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72789 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72791 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72792 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72793 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72794 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72795 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72796 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72798 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72799 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72800 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72801 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72802 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72805 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72806 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72807 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72811 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72812 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72813 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72814 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72815 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72816 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72817 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72818 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72819 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72820 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72821 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72822 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72823 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72824 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72825 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72826 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72827 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72829 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72830 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72831 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72832 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72833 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72836 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72838 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72839 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72840 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72841 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72842 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72843 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72844 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0108


IEB154I  9AS72846 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72848 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72851 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72852 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72855 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72856 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72860 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72880 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72881 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72882 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72885 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72886 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72887 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72896 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72902 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72908 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72919 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72925 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72927 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72936 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72953 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72954 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72964 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72970 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72989 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS72990 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73007 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73015 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73020 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73044 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73066 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73067 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73069 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73074 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73099 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73102 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73117 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73138 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73143 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73144 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73145 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73147 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73152 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73154 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73156 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73183 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73185 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73187 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73190 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73191 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73192 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73193 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73194 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73196 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73197 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73198 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73199 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73202 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73203 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73204 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73205 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73206 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73207 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73208 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73209 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73210 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73211 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73212 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73213 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73214 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73216 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73217 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73218 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73219 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73220 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0109


IEB154I  9AS73221 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73222 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73223 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73224 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73225 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73226 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73227 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73228 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73229 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73230 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73231 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73232 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73233 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73234 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73235 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73236 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73237 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73238 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73239 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73241 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73248 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73255 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73264 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73271 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73274 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73290 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73302 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73318 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73319 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73340 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73342 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73344 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73351 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73354 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73356 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73359 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73367 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73375 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73379 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73380 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73381 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73390 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73395 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73396 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73397 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73402 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73403 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73406 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73410 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73414 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73415 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73416 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73422 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73425 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73426 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73428 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73435 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73436 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73439 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73445 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73451 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73453 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73470 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73482 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73490 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73495 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73511 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73517 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73521 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73522 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73526 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73536 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73549 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73558 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73560 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73573 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73574 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73588 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73629 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0110


IEB154I  9AS73634 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73635 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73643 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73650 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73651 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73661 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73665 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73669 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73670 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73674 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73676 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73703 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73712 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73721 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73735 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73736 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73737 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73739 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73741 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73744 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73755 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73766 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73787 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73789 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73795 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73800 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73808 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73812 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73814 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73817 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73826 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73839 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73844 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73845 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73847 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73848 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73849 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73851 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73852 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73853 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73855 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73861 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73862 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73863 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73864 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73865 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73866 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73880 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73881 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73884 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73885 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73891 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73909 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73915 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73916 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73917 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73918 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73919 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73920 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73921 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73922 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73923 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73924 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73925 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73926 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73927 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73928 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73929 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73930 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73931 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73932 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73933 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73934 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73935 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73937 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73938 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73939 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73940 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73942 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0111


IEB154I  9AS73943 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73944 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73945 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73947 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73948 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73949 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73950 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73951 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73952 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73954 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73955 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73956 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73957 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73958 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73959 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73960 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73961 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73962 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73963 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73964 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73965 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73973 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73978 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73982 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73985 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73991 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73997 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS73999 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74016 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74018 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74020 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74021 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74025 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74028 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74031 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74034 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74037 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74041 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74046 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74049 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74051 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74053 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74058 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74060 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74064 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74065 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74067 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74068 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74076 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74078 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74084 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74086 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74098 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74099 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74103 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74104 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74112 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74122 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74127 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74129 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74130 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74131 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74132 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74133 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74134 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74168 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74169 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74190 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74193 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74207 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74214 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74216 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74217 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74227 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0112


IEB154I  9AS74235 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74246 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74249 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74250 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74263 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74271 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74274 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74277 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74280 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74295 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74299 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74317 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74318 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74320 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74323 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74326 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74327 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74328 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74329 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74330 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74331 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74332 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74333 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74334 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74335 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74336 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74337 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74339 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74341 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74355 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74363 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74366 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74373 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74377 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74387 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74391 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74397 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74398 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74399 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74402 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74403 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74404 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74405 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74406 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74407 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74408 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74409 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74410 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74411 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74412 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74413 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74414 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74415 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74416 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74417 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74418 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74419 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74420 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74421 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74422 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74423 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74424 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74425 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74426 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74427 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74428 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74429 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74430 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74431 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74432 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74433 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74434 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74435 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74436 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74437 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74438 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74439 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0113


IEB154I  9AS74440 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74441 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74442 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74443 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74444 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74445 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74448 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74451 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74452 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74454 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74482 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74485 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74489 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74490 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74491 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74492 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74497 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74510 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74531 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74540 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74542 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74546 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74549 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74550 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74555 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74561 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74565 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74579 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74593 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74601 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74603 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74606 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74610 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74611 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74615 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74617 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74627 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74632 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74651 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74652 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74653 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74658 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74676 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74682 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74694 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74695 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74698 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74699 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74700 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74702 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74710 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74712 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74722 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74724 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74725 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74729 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74732 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74733 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74734 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74735 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74736 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74754 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74760 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74762 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74763 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74768 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74770 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74771 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74773 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74774 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74776 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74785 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74795 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74796 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74797 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74798 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74799 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74800 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74801 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0114


IEB154I  9AS74802 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74803 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74805 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74806 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74807 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74809 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74810 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74816 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74817 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74818 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74819 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74820 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74821 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74824 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74825 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74827 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74828 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74849 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74852 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74853 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74860 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74861 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74862 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74867 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74873 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74875 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74879 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74882 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74884 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74886 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74919 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74926 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74927 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74928 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74930 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74931 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74936 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74940 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74946 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74956 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74959 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74960 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74968 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74976 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74978 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74980 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74981 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74985 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74992 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74995 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74997 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS74999 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75003 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75011 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75013 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75014 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75015 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75016 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75017 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75018 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75019 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75021 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75042 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75045 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75072 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75076 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75089 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75109 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75119 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75126 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75132 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75136 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75143 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75157 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75159 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0115


IEB154I  9AS75174 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75178 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75180 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75186 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75187 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75189 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75209 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75213 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75218 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75223 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75226 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75237 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75238 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75242 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75252 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75253 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75256 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75263 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75272 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75276 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75278 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75280 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75283 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75285 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75286 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75288 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75293 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75296 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75297 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75299 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75303 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75305 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75309 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75311 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75315 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75316 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75318 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75319 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75326 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75336 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75337 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75338 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75342 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75345 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75346 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75351 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75372 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75374 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75380 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75402 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75409 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75429 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75437 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75438 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75440 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75443 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75445 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75446 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75452 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75453 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75454 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75458 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75466 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75467 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75469 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75471 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75472 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75484 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75485 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75486 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75503 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75509 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75513 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75517 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75522 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75523 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75530 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75531 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0116


IEB154I  9AS75535 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75539 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75553 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75555 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75556 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75570 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75573 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75574 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75577 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75582 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75591 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75596 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75597 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75600 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75601 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75604 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75675 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75676 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75681 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75684 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75690 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75691 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75705 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75706 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75707 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75709 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75710 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75715 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75722 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75723 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75727 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75741 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75746 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75753 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75758 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75763 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75764 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75766 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75772 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75773 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75774 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75775 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75776 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75777 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75778 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75780 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75781 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75782 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75783 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75784 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75785 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75786 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75787 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75788 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75789 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75790 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75791 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75792 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75793 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75794 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75795 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75796 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75797 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75798 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75799 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75800 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75801 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75802 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75803 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75804 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75805 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75806 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75808 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75809 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75810 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75811 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75812 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75813 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75814 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0117


IEB154I  9AS75815 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75816 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75817 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75818 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75819 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75820 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75821 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75834 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75838 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75840 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75841 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75857 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75862 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75865 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75866 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75899 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75900 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75913 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75916 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75923 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75927 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75929 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75932 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75933 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75934 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75942 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75957 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75970 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75971 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75975 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75982 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75986 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75998 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS75999 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76003 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76004 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76005 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76006 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76007 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76009 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76021 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76027 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76031 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76034 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76041 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76043 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76047 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76051 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76055 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76066 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76072 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76088 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76093 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76094 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76098 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76107 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76111 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76112 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76117 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76120 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76125 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76127 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76128 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76129 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76130 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76131 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76134 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76137 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76138 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76139 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76146 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76148 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76151 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76152 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76153 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76154 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0118


IEB154I  9AS76155 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76156 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76157 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76158 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76162 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76166 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76168 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76169 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76170 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76172 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76175 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76181 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76185 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76188 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76198 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76199 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76202 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76204 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76205 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76206 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76209 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76213 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76218 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76221 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76222 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76223 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76224 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76225 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76227 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76228 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76229 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76231 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76232 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76234 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76240 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76241 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76242 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76243 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76244 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76245 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76247 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76249 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76250 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76251 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76252 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76253 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76255 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76258 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76259 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76260 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76261 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76265 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76266 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76267 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76268 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76269 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76270 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76271 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76275 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76278 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76279 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76283 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76288 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76292 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76298 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76301 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76306 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76307 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76308 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76309 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76312 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76313 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76315 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76325 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76327 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76342 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76346 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76354 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0119


IEB154I  9AS76355 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76362 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76364 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76365 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76368 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76372 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76385 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76386 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76388 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76392 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76393 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76394 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76397 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76398 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76405 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76406 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76407 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76408 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76421 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76422 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76423 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76424 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76425 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76426 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76427 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76428 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76429 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76430 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76431 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76432 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76433 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76434 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76435 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76436 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76437 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76438 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76439 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76440 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76441 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76442 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76443 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76444 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76445 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76446 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76447 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76448 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76449 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76450 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76451 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76452 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76453 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76454 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76455 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76456 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76457 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76458 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76459 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76460 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76461 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76462 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76463 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76464 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76466 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76467 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76468 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76469 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76470 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76474 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76477 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76478 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76479 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76482 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76483 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76490 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76497 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76502 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76508 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76512 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0120


IEB154I  9AS76514 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76519 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76520 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76532 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76540 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76542 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76547 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76549 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76557 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76563 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76564 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76566 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76567 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76568 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76574 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76578 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76579 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76581 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76583 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76584 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76587 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76588 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76595 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76597 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76598 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76599 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76600 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76607 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76609 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76610 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76611 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76613 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76614 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76615 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76617 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76619 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76620 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76623 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76631 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76632 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76637 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76649 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76655 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76656 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76658 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76664 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76667 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76674 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76678 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76679 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76680 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76687 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76688 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76689 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76694 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76695 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76698 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76699 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76706 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76708 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76710 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76714 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76715 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76716 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76718 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76720 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76728 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76729 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76732 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76736 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76737 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76739 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76740 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76746 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76749 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76756 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76757 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76761 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76762 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0121


IEB154I  9AS76768 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76773 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76781 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76787 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76790 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76795 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76802 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76805 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76809 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76810 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76815 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76819 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76822 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76829 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76830 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76831 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76832 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76834 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76838 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76841 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76846 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76856 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76858 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76863 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76868 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76869 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76870 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76871 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76872 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76873 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76875 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76876 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76877 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76878 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76879 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76880 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76881 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76882 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76883 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76884 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76885 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76886 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76887 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76888 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76889 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76890 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76891 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76892 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76893 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76894 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76895 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76896 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76897 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76898 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76899 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76900 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76901 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76902 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76903 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76904 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76905 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76907 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76908 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76909 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76911 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76912 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76913 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76914 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76915 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76916 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76917 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76918 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76919 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76924 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76925 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76941 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76942 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76946 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0122


IEB154I  9AS76947 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76949 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76953 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76955 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76957 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76958 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76961 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76962 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76966 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76967 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76968 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76970 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76977 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76979 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76981 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76987 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76989 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76996 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76998 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS76999 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77004 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77009 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77017 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77020 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77024 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77025 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77028 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77036 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77039 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77042 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77044 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77051 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77056 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77057 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77058 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77059 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77060 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77063 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77066 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77070 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77076 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77080 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77083 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77084 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77086 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77088 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77089 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77092 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77098 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77101 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77103 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77106 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77112 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77113 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77114 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77116 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77122 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77125 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77126 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77129 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77131 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77132 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77133 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77134 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77135 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77138 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77140 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77141 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77146 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77147 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77149 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77150 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77153 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77157 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77161 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77162 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0123


IEB154I  9AS77164 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77169 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77170 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77172 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77173 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77175 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77176 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77178 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77179 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77180 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77182 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77183 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77184 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77185 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77186 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77187 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77188 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77189 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77191 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77193 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77194 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77196 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77197 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77198 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77199 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77202 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77203 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77204 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77205 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77206 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77207 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77209 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77210 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77211 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77212 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77213 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77214 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77215 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77216 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77217 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77218 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77219 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77220 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77233 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77236 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77237 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77238 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77240 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77245 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77250 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77256 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77261 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77267 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77270 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77272 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77273 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77275 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77276 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77277 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77280 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77281 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77282 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77283 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77287 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77288 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77289 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77290 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77291 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77292 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77293 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77294 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77295 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77296 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77298 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77301 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77302 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0124


IEB154I  9AS77303 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77304 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77306 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77307 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77308 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77309 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77311 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77315 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77316 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77317 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77318 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77319 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77320 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77321 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77322 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77323 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77324 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77325 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77326 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77327 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77328 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77329 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77330 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77331 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77332 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77333 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77334 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77335 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77336 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77337 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77338 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77339 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77340 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77341 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77342 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77343 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77344 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77345 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77346 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77347 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77348 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77349 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77350 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77351 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77352 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77353 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77354 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77355 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77356 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77357 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77358 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77359 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77360 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77361 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77362 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77363 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77364 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77365 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77366 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77367 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77368 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77369 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77370 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77374 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77376 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77381 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77382 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77388 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77389 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77390 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77394 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77399 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77409 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77414 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77417 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77422 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77432 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77434 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77435 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0125


IEB154I  9AS77437 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77444 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77454 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77455 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77456 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77459 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77462 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77466 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77472 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77476 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77477 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77489 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77492 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77493 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77496 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77497 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77498 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77499 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77503 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77504 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77511 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77513 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77515 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77520 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77522 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77523 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77524 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77525 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77526 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77527 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77528 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77529 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77530 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77531 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77533 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77537 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77538 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77540 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77541 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77542 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77543 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77544 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77545 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77546 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77547 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77549 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77552 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77553 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77555 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77556 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77560 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77561 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77563 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77564 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77565 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77567 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77568 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77570 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77571 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77573 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77574 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77575 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77584 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77587 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77589 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77590 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77593 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77599 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77601 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77607 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77608 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77609 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77610 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77621 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77622 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77626 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77631 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77637 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0126


IEB154I  9AS77643 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77644 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77645 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77654 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77656 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77657 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77659 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77660 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77662 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77663 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77664 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77668 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77675 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77679 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77680 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77683 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77684 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77688 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77698 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77702 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77704 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77705 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77709 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77717 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77720 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77721 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77722 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77723 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77724 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77725 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77726 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77727 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77728 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77729 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77730 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77731 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77732 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77733 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77734 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77735 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77736 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77737 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77740 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77741 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77742 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77744 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77745 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77746 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77747 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77748 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77749 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77750 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77751 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77752 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77753 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77754 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77755 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77756 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77757 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77758 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77760 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77761 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77762 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77763 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77764 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77765 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77766 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77767 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77768 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77769 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77770 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77783 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77784 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77787 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77801 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77805 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77806 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77815 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77825 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0127


IEB154I  9AS77826 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77835 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77837 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77838 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77841 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77848 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77854 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77863 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77867 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77871 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77876 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77879 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77884 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77885 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77886 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77887 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77895 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77900 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77906 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77907 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77908 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77909 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77912 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77916 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77917 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77918 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77920 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77924 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77926 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77930 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77932 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77935 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77941 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77945 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77948 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77950 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77951 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77953 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77954 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77957 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77960 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77963 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77965 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77971 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77972 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77973 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77974 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77975 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77976 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77977 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77978 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77979 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77980 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77981 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77982 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77983 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77984 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77985 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77986 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77987 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77988 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77989 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77990 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77991 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77992 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77993 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77994 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77995 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77996 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77998 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS77999 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78003 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78004 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78005 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78006 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78007 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0128


IEB154I  9AS78008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78009 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78011 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78012 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78013 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78014 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78016 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78017 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78018 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78019 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78020 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78021 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78026 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78028 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78033 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78034 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78039 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78042 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78044 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78046 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78052 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78053 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78055 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78057 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78067 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78073 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78074 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78075 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78077 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78078 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78079 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78081 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78084 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78086 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78088 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78090 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78093 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78099 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78101 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78104 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78106 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78107 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78109 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78111 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78112 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78113 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78114 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78115 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78122 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78123 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78124 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78125 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78128 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78131 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78132 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78134 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78136 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78137 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78138 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78147 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78148 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78150 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78151 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78152 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78154 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78161 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78162 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78168 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78169 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78172 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78173 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78175 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78176 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78177 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78180 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78181 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0129


IEB154I  9AS78182 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78183 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78184 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78185 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78186 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78187 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78188 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78189 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78190 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78191 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78193 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78194 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78196 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78197 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78198 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78199 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78203 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78204 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78205 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78206 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78207 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78208 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78210 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78211 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78212 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78213 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78214 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78216 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78217 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78218 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78219 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78222 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78230 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78239 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78249 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78250 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78255 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78256 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78257 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78258 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78259 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78267 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78270 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78275 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78276 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78278 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78280 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78283 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78285 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78286 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78287 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78289 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78294 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78295 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78296 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78297 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78301 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78302 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78303 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78322 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78326 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78332 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78337 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78340 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78341 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78346 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78352 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78355 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78372 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78373 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78374 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78375 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78376 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78377 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78378 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78379 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78381 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0130


IEB154I  9AS78382 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78383 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78384 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78385 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78386 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78387 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78388 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78389 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78390 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78391 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78392 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78393 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78394 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78395 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78396 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78397 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78398 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78399 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78402 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78403 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78404 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78405 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78406 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78407 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78408 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78409 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78410 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78411 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78424 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78435 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78436 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78437 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78441 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78450 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78452 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78453 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78455 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78458 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78464 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78471 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78475 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78479 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78481 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78492 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78494 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78497 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78498 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78499 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78502 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78505 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78506 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78507 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78508 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78510 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78512 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78514 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78519 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78521 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78624 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78625 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78626 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78627 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78722 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78724 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78725 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS78728 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79701 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79709 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79713 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79728 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79730 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79731 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79734 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79737 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79741 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79747 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0131


IEB154I  9AS79754 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79764 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79765 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79766 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79783 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79787 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79798 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79803 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79805 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79811 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79814 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79818 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79819 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79820 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79824 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79826 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79829 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79834 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79840 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79842 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79843 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79844 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79845 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79846 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79847 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79848 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79850 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79852 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79854 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79855 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79856 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79857 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79858 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79861 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79864 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79869 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79871 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79872 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79876 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79879 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79882 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79888 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79889 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79890 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79898 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79901 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79902 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79903 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79904 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79906 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79908 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79909 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79912 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79913 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79916 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79917 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79922 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79926 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79927 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79931 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79939 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79943 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79945 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79949 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79956 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79957 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79962 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79976 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79978 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79981 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79991 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS79998 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80004 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80009 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80012 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80015 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80039 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80043 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0132


IEB154I  9AS80046 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80050 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80054 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80056 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80070 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80072 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80076 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80091 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80099 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80117 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80130 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80140 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80141 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9AS80148 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9BS71856 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9IS00001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9IS00002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9IS00003 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9IS00004 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9IS00005 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9IS00006 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US00491 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US00546 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US00930 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US01778 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US02182 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US02492 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03115 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03168 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03286 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03344 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03430 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03767 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03768 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03769 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03770 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03771 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03772 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03773 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03774 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03775 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03776 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03777 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03778 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03779 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03780 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03781 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03782 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03783 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03784 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03785 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03786 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03787 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03788 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03789 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03790 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03791 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03792 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03794 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03795 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03796 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03797 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03798 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03799 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03800 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03801 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03802 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03803 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03804 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03805 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03806 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03807 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03808 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03809 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03812 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US03813 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04038 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04167 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0133


IEB154I  9US04312 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04393 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04403 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04411 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04419 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04466 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04478 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04479 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04480 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04482 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04485 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04486 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04487 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04488 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04490 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04494 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04495 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04498 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04499 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04502 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04504 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04507 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04508 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04509 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04510 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04511 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04512 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04513 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04514 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04516 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04517 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04518 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04519 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04521 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04522 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04543 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04553 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04601 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04602 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04652 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04691 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04715 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04724 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04802 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04810 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04828 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04831 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04835 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04877 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04885 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04906 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04961 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04975 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04979 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04981 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04987 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04988 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04989 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04990 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04991 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04993 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04994 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04995 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04996 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04997 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04998 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US04999 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05009 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05015 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05032 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05082 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05122 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05173 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05203 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05210 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05214 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05274 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0134


IEB154I  9US05313 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05348 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05355 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05375 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05388 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05391 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05396 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05406 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05407 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05414 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05427 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05445 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05471 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05494 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05498 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05501 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05502 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05503 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05505 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05508 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05509 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05527 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05529 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05530 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05531 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05532 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05533 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05534 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05535 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05536 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05537 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05538 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05539 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05540 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05541 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05542 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05543 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05544 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05545 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05546 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05547 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05548 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05549 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05550 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05551 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05552 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05553 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05554 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05555 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05556 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05557 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05558 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05560 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05561 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05562 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05564 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05565 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05566 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05567 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05569 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05570 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05572 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05573 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05574 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05575 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05576 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05577 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05579 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05580 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05581 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05582 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05583 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05584 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05585 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05586 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05587 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05588 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05589 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05590 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0135


IEB154I  9US05591 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05592 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05593 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05594 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05595 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05598 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05599 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05610 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05662 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05690 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05700 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05701 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05702 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05703 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05704 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05705 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05706 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05707 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05708 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05709 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05710 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05728 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05736 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05779 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05780 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05781 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05782 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05783 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05887 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05904 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05909 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05912 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05914 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05931 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05959 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05964 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05969 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05975 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US05997 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06002 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06003 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06004 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06005 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06006 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06011 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06012 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06013 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06014 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06015 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06016 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06018 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06019 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06020 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06021 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06022 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06023 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06024 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06025 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06026 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06027 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06028 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06029 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06030 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06031 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06032 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06034 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06035 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06036 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06037 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06039 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06040 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06041 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06042 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06043 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06045 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06046 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0136


IEB154I  9US06047 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06048 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06049 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06050 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06051 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06068 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06103 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06127 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06134 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06142 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06152 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06162 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06171 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06202 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06203 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06204 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06205 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06207 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06208 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06209 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06210 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06211 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06212 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06213 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06214 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06215 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06216 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06217 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06218 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06219 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06220 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06221 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06222 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06223 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06224 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06225 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06226 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06227 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06228 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06232 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06233 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06234 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06235 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06236 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06237 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06238 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06239 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06240 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06241 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06242 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06243 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06244 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06246 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06247 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06248 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06249 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06250 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06254 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06255 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06256 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06257 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06258 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06259 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06260 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06261 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06262 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06263 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06264 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06265 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06266 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06267 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06268 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06269 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06270 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06271 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06272 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06273 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06274 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0137


IEB154I  9US06275 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06325 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06346 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06348 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06351 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06360 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06365 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06367 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06378 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06380 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06382 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06395 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06398 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06399 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06401 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06402 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06403 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06404 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06405 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06406 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06408 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06409 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06410 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06411 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06412 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06414 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06415 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06417 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06418 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06419 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06421 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06422 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06423 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06424 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06425 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06426 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06428 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06429 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06430 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06431 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06433 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06434 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06435 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06436 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06437 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06438 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06451 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06452 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06453 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06454 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06455 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06456 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06457 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06458 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06459 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06460 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06461 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06462 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06463 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06464 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06465 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06466 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06467 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06468 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06469 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06470 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06471 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06472 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06473 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06474 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06475 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06476 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06477 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06478 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06479 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06480 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06481 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06482 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0138


IEB154I  9US06483 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06484 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06485 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06486 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06487 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06488 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06490 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06491 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06492 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06493 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06494 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06495 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06496 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06497 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06498 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06499 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06525 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06531 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06549 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06568 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06569 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06575 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06583 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06601 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06602 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06603 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06604 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06605 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06606 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06607 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06608 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06609 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06610 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06611 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06612 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06614 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06615 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06616 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06617 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06618 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06619 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06621 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06623 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06624 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06625 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06626 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06627 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06628 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06629 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06630 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06631 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06632 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06633 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06634 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06635 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06636 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06637 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06638 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06639 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06640 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06642 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06643 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06644 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06645 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06646 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06647 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06648 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06649 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06650 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06676 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06680 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06682 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06693 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06751 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06752 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06753 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06754 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06756 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0139


IEB154I  9US06757 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06758 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06759 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06760 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06761 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06762 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06763 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06764 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06766 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06767 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06768 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06769 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06770 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06771 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06772 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06773 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06775 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06776 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06777 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06778 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06779 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06780 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06781 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06782 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06783 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06784 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06785 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06786 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06787 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06789 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06790 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06791 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06792 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06793 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06794 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06795 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06796 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06797 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06798 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06799 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06801 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06802 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06803 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06804 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06805 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06806 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06807 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06808 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06809 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06810 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06811 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06812 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06813 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06814 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06815 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06816 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06817 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06818 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06819 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06820 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06821 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06822 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06823 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06824 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06825 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06826 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06827 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06829 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06830 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06831 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06832 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06833 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06834 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06835 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06836 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06837 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06838 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06839 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06840 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0140


IEB154I  9US06841 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06842 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06843 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06844 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06846 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06847 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06848 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06849 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06850 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06851 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06852 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06855 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06858 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06859 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06860 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06861 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06862 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06863 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06864 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06865 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06866 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06867 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06869 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06871 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06872 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06873 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06874 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06875 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06876 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06877 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06878 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06879 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06881 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06882 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06883 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06884 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06885 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06886 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06887 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06888 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06889 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06890 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06891 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06892 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06893 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06894 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06895 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06896 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06897 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06898 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06899 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06901 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06902 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06903 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06905 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06906 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06907 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06908 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06909 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06911 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06912 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06913 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06914 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06915 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06916 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06917 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06918 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06919 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06921 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06923 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06924 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06925 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06926 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06927 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06928 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06931 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06932 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06933 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0141


IEB154I  9US06934 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06935 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06936 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06937 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06938 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06939 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06943 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06944 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06945 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06946 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06947 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06948 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06949 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06950 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06951 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06952 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06953 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06955 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06957 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06958 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06959 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06960 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06961 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06962 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06963 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06965 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06966 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06967 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06968 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06970 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06971 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06972 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06973 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06974 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06975 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06976 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06977 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06978 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06979 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06980 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06981 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06982 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06983 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06984 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06985 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06986 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06987 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06988 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06989 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06990 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06991 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06992 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06993 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06994 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06995 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06997 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06998 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US06999 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07035 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07037 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07076 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07077 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07078 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07079 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07080 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07081 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07082 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07083 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07084 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07085 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07086 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07087 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07088 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07089 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07090 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07091 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07092 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07093 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0142


IEB154I  9US07094 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07096 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07097 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07098 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07099 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07101 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07102 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07103 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07104 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07105 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07106 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07107 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07108 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07109 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07111 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07112 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07113 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07114 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07115 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07116 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07117 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07118 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07119 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07120 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07121 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07122 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07123 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07124 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07125 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07126 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07127 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07128 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07130 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07131 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07132 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07133 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07134 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07135 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07136 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07137 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07138 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07139 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07140 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07141 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07142 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07143 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07144 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07145 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07146 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07147 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07148 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07149 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07150 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07151 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07152 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07153 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07154 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07156 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07157 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07158 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07159 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07160 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07161 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07162 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07163 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07164 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07165 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07166 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07167 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07168 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07169 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07170 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07171 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07172 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07173 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07174 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0143


IEB154I  9US07175 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07179 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07202 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07203 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07204 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07211 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07212 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07213 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07214 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07215 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07216 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07217 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07218 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07219 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07220 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07221 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07222 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07223 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07224 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07225 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07226 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07229 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07230 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07231 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07232 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07233 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07234 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07239 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07240 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07241 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07242 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07243 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07244 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07245 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07246 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07247 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07248 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07249 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07250 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07251 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07252 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07253 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07255 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07256 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07257 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07258 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07259 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07261 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07262 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07263 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07264 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07265 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07266 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07267 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07268 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07269 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07270 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07271 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07272 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07273 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07274 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07275 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07276 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07277 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07279 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07280 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07285 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07287 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07288 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07289 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07290 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07291 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07292 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07293 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07294 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07295 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07296 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07297 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0144


IEB154I  9US07298 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07299 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07300 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07302 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07303 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07304 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07305 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07306 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07307 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07308 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07309 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07310 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07311 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07312 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07313 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07314 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07315 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07316 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07317 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07318 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07319 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07320 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07321 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07322 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07323 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07324 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07325 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07326 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07327 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07328 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07329 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07330 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07331 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07332 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07333 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07334 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07335 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07336 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07337 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07338 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07339 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07340 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07341 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07342 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07343 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07344 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07345 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07346 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07347 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07348 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07349 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07350 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07351 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07352 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07353 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07354 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07355 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07356 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07357 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07358 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07359 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07368 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07399 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07411 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07412 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07413 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07414 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07436 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07437 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07438 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07439 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07442 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07443 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07444 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07445 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07447 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07448 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07449 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07450 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0145


IEB154I  9US07451 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07452 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07453 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07454 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07455 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07456 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07457 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07458 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07459 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07460 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07461 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07462 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07463 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07464 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07465 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07466 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07467 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07468 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07469 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07470 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07471 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07472 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07473 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07474 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07476 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07477 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07478 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07479 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07480 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07481 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07482 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07483 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07484 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07485 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07486 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07487 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07488 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07489 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07490 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07491 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07492 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07493 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07494 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07496 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07497 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07498 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07499 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07500 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07512 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07517 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07518 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07519 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07520 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07521 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07522 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07523 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07524 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07525 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07526 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07527 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07531 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07532 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07533 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07534 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07535 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07536 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07539 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07541 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07551 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07552 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07553 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07559 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07563 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07564 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07565 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07567 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07568 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07569 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07571 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0146


IEB154I  9US07574 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07578 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07579 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07580 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07581 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07582 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07583 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07584 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07586 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07587 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07589 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07590 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07592 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07593 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07594 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07595 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07596 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07597 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07598 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07599 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07600 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07611 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07612 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07619 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07620 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07621 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07622 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07623 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07624 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07625 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07633 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07653 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07657 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07658 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07901 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07902 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07903 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07904 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07905 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07906 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07907 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07908 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07909 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US07910 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08003 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08004 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08005 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08006 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08007 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08009 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08010 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08011 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08012 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08013 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08014 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08015 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08016 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08018 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08019 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08020 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08024 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08026 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08028 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08029 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08030 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08033 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08034 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08035 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08036 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08037 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08039 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08044 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08045 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08046 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08047 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08048 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08049 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0147


IEB154I  9US08050 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08051 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08052 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08054 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08055 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08057 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08058 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08059 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08060 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08064 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08067 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08068 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08069 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08070 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08071 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08073 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08074 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08075 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08076 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08077 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08078 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08079 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08080 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08081 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08082 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08084 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08085 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08086 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08087 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08088 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08089 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08090 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08091 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08095 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08096 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08097 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08098 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08099 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08101 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08103 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08104 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08105 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08106 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08108 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08109 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08110 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08111 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08113 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08114 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08115 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08116 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08120 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08122 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08123 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08124 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08125 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08127 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08128 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08130 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08131 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08134 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08135 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08136 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08140 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08142 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08146 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08148 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08151 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08157 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08159 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08161 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08162 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08164 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08178 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08179 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08180 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08183 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08184 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0148


IEB154I  9US08186 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08188 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08190 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08192 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08193 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08194 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08195 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08196 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08198 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08199 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08200 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08201 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08206 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08210 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08211 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08213 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  9US08215 HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000060 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OACDS
IEB149I  THERE ARE 0000517  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0149


                      COPY I=ICQ548,O=OCQ548
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ICQ548   -
IEB154I  IEAQTM0Q HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYAB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYZ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYZZ  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDNAR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDNID   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDNLT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDNMG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDNRE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDNTR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDN25   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQATTN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQAZ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQA0   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQA1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQA2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQA3   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQA4   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQA5   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQA6   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQA7   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQA8   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQA9   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBN   HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0150


IEB154I  IEDQBO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQBZ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQB1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQB2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQB3   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQB4   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQB7   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCV   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQCZ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQC0   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQC1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQC2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQC3   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQC5   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQC6   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQEB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQEC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQES   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQET   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQEU   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQEW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQEZ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQE1   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQE2   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQE3   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQE4   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQE6   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQE7   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQE8   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQFA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQFA1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQFA2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQFE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQFE10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQFE20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQFE30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQFW   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQGA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQGH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQGP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQGQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQGR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQGT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQHG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQHI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQHK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQHM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQHM1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQHM2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQKA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQKB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQKC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQKD   HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0151


IEB154I  IEDQKE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQLM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNA2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNB02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNB05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQND   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQNX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQOA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQOB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQOG   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQOM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQOS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQOT01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQUI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWAB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWAC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWAJ  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWB1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWB2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWC1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWC2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWD   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWEC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWEC1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWE1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWE2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWH   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWI   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWIA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWID  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWIE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWIU  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWI1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWI5  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWI5D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWI5U HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWI6  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWI7  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWI8  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWI9  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWJ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWJ1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWJ2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWK   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWK1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWL1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWL2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWL3  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWM1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWM2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWN   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWP1  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWP2  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWQ   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWV   HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0152


IEB154I  IEDQWX   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQWY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW16  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW21  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW28  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW35  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW36  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW37  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW39  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW41  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW42  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW43  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW44  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW47  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQW9   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQXA   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQXB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQXC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ10   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ11   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ12   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ13   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ14   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ15   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ16   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ17   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ18   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ19   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ20   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ21   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ22   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ23   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ24   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ25   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ26   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ27   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ28   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ30   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ31   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ32   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ33   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ34   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ35   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ36   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ37   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDQ38   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IED1303D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCC010D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCC110D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCDB10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCDC10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCDD10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCD010D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCD110D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCD210D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCD310D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCD410D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCD510D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCD610D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCD710D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCD810D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCD910D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCH010D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCI010D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCI110D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCI210D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCI310D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMA10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMB10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMD10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCME10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMF10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMG10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMH10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMI10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMJ10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMK10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCML10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMM10D HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0153


IEB154I  IGCMN10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMO10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMP10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMR10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMS10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMT10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMX10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCMY10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCM010D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCM110D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCM210D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCM310D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCM410D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCM510D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCM610D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCM710D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCM810D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCM910D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCR010D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCSW10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCT010D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCT110D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCT210D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCT310D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCT410D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCVA10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCVB10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCVE10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCVF10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCVG10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCVH10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCV010D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCV110D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCV210D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCV310D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCV410D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCV510D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCV610D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCV710D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCV810D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCV910D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCZ010D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGCZ110D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0B10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0C10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0D10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0E10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0G10D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0J05B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0010D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0110D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0210D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0310D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0410D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0510D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0610D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0710D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0810D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0910D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1210D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1303D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0004G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0004H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0004I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0104G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0104H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0104I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0204G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0204H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0304G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0404G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0404H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0504G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0504H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0604G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0804G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0804H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0904G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGE0904H HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0154


IEB154I  IGE0904I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019AP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019EM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019Q0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019Q1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019Q2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019Q3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019Q4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019Q5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019Q6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019Q7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019Q8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019Q9 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RK HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RQ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019RY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019R0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019R1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019R2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019R3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019R4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019R5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019R6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019R7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019R8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019R9 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01930 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01931 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01933 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01934 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01935 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01936 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01937 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01938 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01939 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0194B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0194D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01940 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01941 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01942 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01943 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01944 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01945 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01946 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01947 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01948 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG01949 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0198B HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0155


IEB154I  IGG0198D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0198E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0203B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG02030 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG02035 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG02036 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG02041 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG02046 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG02047 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0904H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJGG00A HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000008 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OCQ548
IEB149I  THERE ARE 0000008  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0156


                      COPY I=ICI555,O=OCI555
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ICI555   -
IEB154I  IECIPRTS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYAA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYGP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYHH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYII  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYLL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEDAYOO  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVDUS1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVGPSD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSDIO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSEND HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSIPL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSND1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSND2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSND3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSND4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSND5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSND8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEEVSND9 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEFVSCAN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0009C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0009D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0009G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0009I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0109I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0209I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0309I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0409I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0509I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0609I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0709I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0809I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC0909I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1009I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1109I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1209I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1309I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1409I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1509I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1609I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1709I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1809I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC1909I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC2009I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC2109I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC2309I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC2509I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC2609I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC2709I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC2809I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC2909I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC3009I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGC3509I HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019TZ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019T3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019T4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019T5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019T6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019T7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG019T8 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0193H HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0196S HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0199V HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG09301 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG09302 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG09303 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0940A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0940B HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0940C HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0940D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0940E HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0940F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG0940G HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG09400 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG09404 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0157


IEB154I  IGG09405 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG09406 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG09407 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG09408 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IGG09409 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAAB0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAAB1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAD00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAD01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAD02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAD03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAI00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAI01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAI02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAI03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEALK0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAM00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEANQ0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEANQ1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAP00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAR00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAR01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAR02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAR03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAR04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAR05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEASY0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAS00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAS01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAS02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAS03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEATI0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEATI1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEATI2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEATI3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEATM0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEATM1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEATP0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEATR0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAT00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAT01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAT02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAT03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAT04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAT05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAT06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAT07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAT08 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEAX00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEES20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEES70 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEES74 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEES75 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFD00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF15 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF40 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF41 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF42 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF43 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF44 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF45 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF46 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF51 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF52 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF53 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF54 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF58 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF59 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF61 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF66 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLA  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLB  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLCM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLEA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLF  HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0158


IEB154I  IKJEFLG  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLGB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLGH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLGM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLGN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLH  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLI  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLIA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLJ  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLK  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLL  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLLM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLM  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLPA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFLS  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFP00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFP10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFP20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFP30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFP60 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT25 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT35 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT40 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT45 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT52 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT53 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT54 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT55 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT56 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJFAERR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJFAMP1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJFAMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJFAPUT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJFASCN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJFATAB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJFATP1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJFATP2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJFATRC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJFATR1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJGGE00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJGGE01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJGGQT0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJGGQT1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJGG00A HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJGG001 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJGG008 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJGG088 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJ0CLC1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJ0CLC2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJ0CLC3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJ0CLC4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJ0CLC5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJ0CLC6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJ0CLC7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJ0002F HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJ5803D HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTBC   HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000009 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OCI555
IEB149I  THERE ARE 0000007  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0159


                      COPY I=IUADS,O=OUADS
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IUADS    -
IEB154I  IBMUSER0 HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000008 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OUADS
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0160


                      COPY I=IHELP,O=OHELP
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IHELP    -
IEB154I  ACCOUNT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ALLOC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ALLOCATE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ATTRIB   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CALL     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CANCEL   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COMMANDS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  D        HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DELETE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  E        HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EDIT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EX       HAS BEEN SUCCESSFULLY  LOADED
IEB154I  EXEC     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FREE     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  H        HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HELP     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LINK     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTALC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTB    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTBC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTCAT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTDS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOAD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOADGO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOGOFF   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOGON    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OPER     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OPERATOR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OUT      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  OUTPUT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PROF     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PROFILE  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PROT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PROTECT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  R        HAS BEEN SUCCESSFULLY  LOADED
IEB154I  REN      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RENAME   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RUN      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SE       HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SEND     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ST       HAS BEEN SUCCESSFULLY  LOADED
IEB154I  STATUS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SUB      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SUBMIT   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TERM     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TERMINAL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TEST     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TIME     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  WHEN     HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000012 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OHELP
IEB149I  THERE ARE 0000006  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0161


                      COPY I=ICMDLIB,O=OCMDLIB
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY ICMDLIB  -
IEB154I  ACCOUNT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ALLOC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  ALLOCATE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  CALL     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  D        HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DELETE   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  FREE     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJDFLT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEAA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEAE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEAT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEBO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBECG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBECH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBECI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBECN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBECO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEDA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEDE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEDO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEEN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEEX HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEFC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEFI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEFO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEHE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEIA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEIM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEIP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEIS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBELE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBELI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBELT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEMA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEME HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEMR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEMS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEM1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEM2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEM3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEM4 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEM5 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEM6 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEM7 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEPS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBERE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBERN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBERU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBESA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBESC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBESE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBESN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBETA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBETO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEUI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEUP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEUT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBEVE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEBSIR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEES10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEES11 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEES40 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEE1A0 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEE100 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEE150 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFATT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA11 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA12 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA13 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA21 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA22 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA23 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA24 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0162


IEB154I  IKJEFA30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA31 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA32 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA40 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA41 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA42 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA51 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA52 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA53 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA54 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFA55 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFD20 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFD30 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFE01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFE02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFE03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFE04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFE05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFE06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFE11 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFE15 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFE16 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF04 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF05 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF06 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF07 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF08 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF09 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF10 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF11 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF12 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF13 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF14 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF16 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF18 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF50 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF55 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF57 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF60 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF62 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF63 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF64 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF67 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFF68 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFG00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFH00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFH01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFH02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFH03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFL00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFR00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT80 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEFT82 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGASN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGAT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGATD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGATN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGCAL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGCPY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGCVT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGDCB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGDEB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGDEL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGDRP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGEQU HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGFRE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGGET HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGGO  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGINT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGIO  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGLDF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGLDR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGLOD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGLSA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGLST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGMAP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGMNL HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0163


IEB154I  IKJEGOFF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGPCH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGPSW HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGQFY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGRUN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGSCD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGSTA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGSYM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGTCB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEGWHR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEHAL1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEHCIR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEHCT1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEHDEF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEHDEL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEHDS1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEHMEM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEHPRO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEHREN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJEHSIR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJLKL01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJLKL02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IKJLKMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LINK     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTA    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTALC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTC    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTCAT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LISTDS   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOAD     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  LOADGO   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PROT     HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PROTECT  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  R        HAS BEEN SUCCESSFULLY  LOADED
IEB154I  REN      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RENAME   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  RUN      HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OCMDLIB
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0164


                      COPY I=IDN554,O=ODN554
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IDN554   -
IEB154I  HMASMAPA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMASI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMASM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMCPI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMCPY HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMDRV HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMEXT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMIC  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMIO  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMLCD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMLKD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMLKI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMLOG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMREC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMRES HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMSCN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMTBL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMUCL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMUPD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMZAP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMAPTFLE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMAPTF01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMAPTF02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMASPZAP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMBLKCTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMBLKERR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMBLKIDR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMBLKLDM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMBLKMSG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMBLKOBJ HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMBLKSZE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMBLKXRF HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMBMDMAP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMCOSAPP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMCOSMCI HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDDREAD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRAPP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRCOM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRCTL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRDPS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPREID HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPREXT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRFLT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRFMG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRFRM HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRFSR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRFUB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRFUR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRFXT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRGET HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRLOD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRLPA HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRMST HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRNUC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPROOT HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRPAL HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRPCR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRPDR HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRPJB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRPMG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRPMS HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRQCB HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRRDC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRREC HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRSCN HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRSEG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRSMG HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRSN2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRSN3 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRSWP HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDPRTSO HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDSYS00 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDSYS01 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDSYS02 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDSYS03 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDSY101 HAS BEEN SUCCESSFULLY  LOADED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0165


IEB154I  IMDTREAD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IMDUSRFF HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ODN554
IEB149I  THERE ARE 0000006  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0166


                      COPY I=IAL531,O=OAL531
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IAL531   -
IEB154I  ALGOL    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX00    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX10    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX10000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX11    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX11000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX20    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX20000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX21    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX21M   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX21000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX30    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX30000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX31    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX31M   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX31000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX40    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX40000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX50    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX50000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX51    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX51ER1 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX51ER2 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX51M   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX51000 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEX51002 HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000005 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OAL531
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0167


                      COPY I=IAS037,O=OAS037
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY IAS037   -
IEB154I  ASMBLR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUASM   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUERR   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUFD    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUFI    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUFPP   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF1    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF2    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF2A   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF3    HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF3E   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF7C   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF7D   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF7E   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF7G   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF7I   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF7N   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF7V   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF7X   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF8A   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF8C   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF8D   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF8I   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF8L   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF8M   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF8N   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF8P   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF8S   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUF8V   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEUMAC   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IEURTA   HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OAS037
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G04LDDLB.R0000011     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G04LDDLB.R0000012     DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.G04LDDLB.R0000013     DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   TCAMMAC                                      KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   TSOMAC                                       KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   GENLIB                                       KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   MODGEN                                       KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   MODGEN2                                      KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   FO500                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   LM501                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   SAMPLIB                                      KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   CB545                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   LM546                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   SM023                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   SORTLIB                                      KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   PROCLIB                                      KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   MACLIB                                       KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   FO520                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   TSOGEN                                       KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   CO503                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   CQ513                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   CQ519                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   DM508                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   DM509                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   DN527                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   DN533                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   DN539                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   ED521                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   CI505                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   CI535                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   FO550                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   IO523                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   IO526                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   LD547                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   LM512                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   LM532                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   LM537                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   LM542                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   NL511                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   PL1LIB                                       KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   PL552                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   RC536                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   RC541                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   RC543                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   RC551                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   RG038                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   UT506                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   PARMLIB                                      KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   COBLIB                                       KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   DN554A                                       KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   ACDS                                         KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   CQ548                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   CI555                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   DUADS                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   DHELP                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   DCMDLIB                                      KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   DN554                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   AL531                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   AS037                                        KEPT
IEF285I   VOL SER NOS= OS360A.
IEF285I   SYS1.TCAMMAC                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CQ548                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DUADS                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DHELP                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DCMDLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DN554                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.AL531                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.AS037                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CB545                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DCOBLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CO503                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CQ513                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CQ519                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DM508                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DM509                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DN527                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DN533                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DN539                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.ED521                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DFORTLIB                                KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.FO500                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.FO520                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.FO550                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.IO523                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.IO526                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.LD547                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.LM501                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.LM512                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.LM532                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.LM537                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.LM542                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.LM546                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.NL511                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DPL1LIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.PL552                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.RC536                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.RC541                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.RC543                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.RC551                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.RG038                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SM023                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DSORTLIB                                KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DPARMLIB                                KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DPROCLIB                                KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.GENLIB                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SAMPLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DN554A                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.ACDS                                    KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.G04LDDLB.S0000014     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G04LDDLB.S0000014     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /LOADDLIB/ START 78240.1939
IEF374I STEP /LOADDLIB/ STOP  78240.1939 CPU   0MIN 24.98SEC MAIN 512K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:39:11.17   ALLOC START    19:39:11.19   MAIN REGION ----- 512K                          *
*   STEP NAME LOADDLIB   STEP END TIME  19:39:47.30   PGM START TIME 19:39:11.95   MAIN STORAGE ---- 512K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:36.13   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  VSCOPY     STEP CPU TIME  00:00:24.98   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0158 -------- 10838       0159 ------------ 0       0353 ------------ 0       0580 ---------- 295       0580 ---------- 320    *
*   0580 ---------- 932       0580 --------- 1872       0580 ---------- 341       0580 ---------- 213       0580 ----------- 91    *
*   0580 ---------- 278       0580 ---------- 123       0580 ----------- 47       0580 ---------- 227       0580 ----------- 39    *
*   0580 ---------- 321       0580 --------- 1216       0580 ----------- 29       0580 ---------- 120       0580 ---------- 107    *
*   0580 ---------- 134       0580 ---------- 142       0580 ---------- 474       0580 ----------- 53       0580 ---------- 306    *
*   0580 ----------- 89       0580 ---------- 118       0580 ----------- 34       0580 ---------- 902       0580 ---------- 201    *
*   0580 ----------- 10       0580 ----------- 51       0580 ---------- 158       0580 ----------- 11       0580 ---------- 100    *
*   0580 ----------- 42       0580 ----------- 74       0580 ----------- 16       0580 ---------- 454       0580 ---------- 190    *
*   0580 ----------- 22       0580 ---------- 104       0580 ----------- 82       0580 ----------- 11       0580 ----------- 88    *
*   0580 ----------- 83       0580 ---------- 237       0580 ----------- 18       0580 ----------- 48       0580 ----------- 10    *
*   0580 ---------- 616       0580 ---------- 523       0580 ---------- 244       0580 ------------ 4       0580 ----------- 92    *
*   0580 ---------- 247       0580 ---------- 171       0580 ----------- 33       0580 ----------- 58       0250 ---------- 834    *
*   0250 ---------- 854       0250 --------- 8874       0250 --------- 3852       0250 ----------- 22       0250 ---------- 278    *
*   0250 --------- 4532       0250 --------- 2646       0250 ---------- 458       0250 ---------- 842       0250 --------- 1732    *
*   0250 -------- 13751       0250 --------- 3322       0250 ---------- 510       0250 --------- 1464       0250 --------- 1652    *
*   0250 --------- 1586       0250 --------- 7222       0250 ---------- 756       0250 --------- 4810       0250 --------- 1520    *
*   0250 --------- 1842       0250 ---------- 590       0250 ------------ 0       0250 --------- 3224       0250 --------- 3028    *
*   0250 ---------- 396       0250 ---------- 104       0250 ---------- 694       0250 --------- 2398       0250 ---------- 158    *
*   0250 --------- 1204       0250 --------- 1414       0250 ---------- 510       0250 ---------- 922       0250 ---------- 160    *
*   0250 ---------- 546       0250 --------- 6200       0250 --------- 2714       0250 ---------- 284       0250 --------- 1386    *
*   0250 --------- 1026       0250 ---------- 144       0250 --------- 1472       0250 ---------- 972       0250 --------- 2658    *
*   0250 ---------- 420       0250 --------- 4068       0250 ----------- 86       0250 --------- 1804       0250 ---------- 258    *
*   0250 --------- 2386       0250 --------- 4094       0250 ---------- 898       0250 ----------- 28       0250 ---------- 694    *
*   0250 --------- 4502       0130 ----------- 58                                                                                  *
************************************************************************************************************************************

IEF280E K 580,OS360A,G04LDDLB,LOADDLIB
IEF375I  JOB /G04LDDLB/ START 78240.1939
IEF376I  JOB /G04LDDLB/ STOP  78240.1939 CPU   0MIN 24.98SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G04LDDLB   JOB READ TIME 19:39:10.71   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:24.98   *
*   JOB CLASS A          JOB INIT TIME 19:39:11.17   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:36.19   *
*   ACCOUNT   1          JOB END TIME  19:39:47.36   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG     00000    555555555   GGGGGGG   BBBBBBBB   LL         PPPPPPPP   KK     KK                 A
            GGGGGGGGG   0000000   555555555  GGGGGGGGG  BBBBBBBBB  LL         PPPPPPPPP  KK    KK                 AAA
            GG     GG  00     00  55         GG     GG  BB     BB  LL         PP     PP  KK   KK                 AA AA
            GG         00    000  55555555   GG         BB     BB  LL         PP     PP  KK  KK                 AA   AA
            GG         00   0 00  555555555  GG         BBBBBBBB   LL         PPPPPPPPP  KK KK                 AA     AA
            GG   GGGG  00  0  00         55  GG   GGGG  BBBBBBBB   LL         PPPPPPPP   KKKKK                 AA     AA
            GG   GGGG  00 0   00         55  GG   GGGG  BB     BB  LL         PP         KKK KK                AAAAAAAAA
            GG     GG  000    00  55     55  GG     GG  BB     BB  LL         PP         KK   KK               AAAAAAAAA
            GGGGGGGGG   0000000   555555555  GGGGGGGGG  BBBBBBBBB  LLLLLLLLL  PP         KK    KK              AA     AA
             GGGGGGG     00000     5555555    GGGGGGG   BBBBBBBB   LLLLLLLLL  PP         KK     KK             AA     AA

***********A  START   G05GBLPK   SYS SYSA   WTR 00E   07:39:59 PM  28 AUG 1978   WTR 00E   SYS SYSA   G05GBLPK   START  A***********
***********A  START   G05GBLPK   SYS SYSA   WTR 00E   07:39:59 PM  28 AUG 1978   WTR 00E   SYS SYSA   G05GBLPK   START  A***********
***********A  START   G05GBLPK   SYS SYSA   WTR 00E   07:39:59 PM  28 AUG 1978   WTR 00E   SYS SYSA   G05GBLPK   START  A***********
***********A  START   G05GBLPK   SYS SYSA   WTR 00E   07:39:59 PM  28 AUG 1978   WTR 00E   SYS SYSA   G05GBLPK   START  A***********
***********A  START   G05GBLPK   SYS SYSA   WTR 00E   07:39:59 PM  28 AUG 1978   WTR 00E   SYS SYSA   G05GBLPK   START  A***********


//G05GBLPK JOB 1,'G05GBLPAK',CLASS=A,MSGLEVEL=(1,1)
***********************************************************************
***                                                                 ***
***    Job:      G05GBLPAK                                          ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Rename appropriate member in SYS1.GENLIB to        ***
***              SGGBLPAK for 768 device support.                   ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
***MAIN LINES=100
//PROGM  EXEC PGM=IEHPROGM,REGION=128K
//SYSPRINT DD  SYSOUT=A
//ASPDLB   DD  DISP=OLD,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSIN    DD  *
//
IEF236I ALLOC. FOR G05GBLPK PROGM
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO ASPDLB
IEF237I 130   ALLOCATED TO SYSIN


SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0001



 RENAME DSNAME=SYS1.GENLIB,VOL=3330=ASPDLB,                            +
               MEMBER=SGGBLPAK,NEWNAME=SGPAK96
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=SYS1.GENLIB,VOL=3330=ASPDLB,                            +
               MEMBER=SGPAK768,NEWNAME=SGGBLPAK
NORMAL END OF TASK RETURNED FROM RENAME



UTILITY END


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G05GBLPK.R0000015     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G05GBLPK.R0000016     KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.G05GBLPK.S0000017     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G05GBLPK.S0000017     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /PROGM   / START 78240.1939
IEF374I STEP /PROGM   / STOP  78240.1939 CPU   0MIN 00.05SEC MAIN  30K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:39:59.40   ALLOC START    19:39:59.41   MAIN REGION ----- 256K                          *
*   STEP NAME PROGM      STEP END TIME  19:39:59.57   PGM START TIME 19:39:59.49   MAIN STORAGE ----- 30K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.17   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHPROGM   STEP CPU TIME  00:00:00.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ----------- 11       0250 ------------ 0       0130 ------------ 5                                                        *
************************************************************************************************************************************

IEF375I  JOB /G05GBLPK/ START 78240.1939
IEF376I  JOB /G05GBLPK/ STOP  78240.1939 CPU   0MIN 00.05SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G05GBLPK   JOB READ TIME 19:39:59.34   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.05   *
*   JOB CLASS A          JOB INIT TIME 19:39:59.40   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.17   *
*   ACCOUNT   1          JOB END TIME  19:39:59.57   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG     00000    777777777   CCCCCCC       A      TTTTTTTT   WW     WW  KK     KK                 A
            GGGGGGGGG   0000000   777777777  CCCCCCCCC     AAA     TTTTTTTT   WW     WW  KK    KK                 AAA
            GG     GG  00     00  77     77  CC     CC    AA AA       TT      WW     WW  KK   KK                 AA AA
            GG         00    000        77   CC          AA   AA      TT      WW     WW  KK  KK                 AA   AA
            GG         00   0 00       77    CC         AA     AA     TT      WW     WW  KK KK                 AA     AA
            GG   GGGG  00  0  00      77     CC         AA     AA     TT      WW     WW  KKKKK                 AA     AA
            GG   GGGG  00 0   00     77      CC         AAAAAAAAA     TT      WW  W  WW  KKK KK                AAAAAAAAA
            GG     GG  000    00     77      CC     CC  AAAAAAAAA     TT      WW WWW WW  KK   KK               AAAAAAAAA
            GGGGGGGGG   0000000      77      CCCCCCCCC  AA     AA     TT       WWW WWW   KK    KK              AA     AA
             GGGGGGG     00000       77       CCCCCCC   AA     AA     TT        W   W    KK     KK             AA     AA

***********A  START   G07CATWK   SYS SYSA   WTR 00E   07:40:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   G07CATWK   START  A***********
***********A  START   G07CATWK   SYS SYSA   WTR 00E   07:40:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   G07CATWK   START  A***********
***********A  START   G07CATWK   SYS SYSA   WTR 00E   07:40:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   G07CATWK   START  A***********
***********A  START   G07CATWK   SYS SYSA   WTR 00E   07:40:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   G07CATWK   START  A***********
***********A  START   G07CATWK   SYS SYSA   WTR 00E   07:40:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   G07CATWK   START  A***********


//G07CATWK JOB 1,'G07CATWORK',CLASS=A,MSGLEVEL=(1,1)
***********************************************************************
***                                                                 ***
***    Job:      G07CATWORK                                         ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Catalog SYSGEN work data sets in driving system.   ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
//UNCATLG EXEC PGM=IEHPROGM,REGION=128K
//SYSPRINT DD  SYSOUT=A
//CVOL     DD  DISP=SHR,UNIT=3330,VOL=SER=MVTRES
//SYSIN    DD  *
***
IEF236I ALLOC. FOR G07CATWK UNCATLG
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 350   ALLOCATED TO CVOL
IEF237I 130   ALLOCATED TO SYSIN


SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0001



 UNCATLG DSNAME=SYS1.OBJPDS
 IEH210I  YOUR REQUEST CANNOT BE SERVICED....
SYS1.OBJPDS IS NOT A CATALOGED DATA SET  ... UNUSUAL END



 UNCATLG DSNAME=SYS1.SYSUT1
 IEH210I  YOUR REQUEST CANNOT BE SERVICED....
SYS1.SYSUT1 IS NOT A CATALOGED DATA SET  ... UNUSUAL END



 UNCATLG DSNAME=SYS1.SYSUT2
 IEH210I  YOUR REQUEST CANNOT BE SERVICED....
SYS1.SYSUT2 IS NOT A CATALOGED DATA SET  ... UNUSUAL END



 UNCATLG DSNAME=SYS1.SYSUT3
 IEH210I  YOUR REQUEST CANNOT BE SERVICED....
SYS1.SYSUT3 IS NOT A CATALOGED DATA SET  ... UNUSUAL END



 UNCATLG DSNAME=SYS1.SYSUT4
 IEH210I  YOUR REQUEST CANNOT BE SERVICED....
SYS1.SYSUT4 IS NOT A CATALOGED DATA SET  ... UNUSUAL END



UTILITY END


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G07CATWK.R0000018     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G07CATWK.R0000019     KEPT
IEF285I   VOL SER NOS= MVTRES.
IEF285I   SYS78240.T193835.RV000.G07CATWK.S0000020     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G07CATWK.S0000020     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /UNCATLG / START 78240.1940
IEF374I STEP /UNCATLG / STOP  78240.1940 CPU   0MIN 00.05SEC MAIN  30K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:40:09.62   ALLOC START    19:40:09.63   MAIN REGION ----- 256K                          *
*   STEP NAME UNCATLG    STEP END TIME  19:40:09.78   PGM START TIME 19:40:09.68   MAIN STORAGE ----- 30K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.16   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHPROGM   STEP CPU TIME  00:00:00.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ----------- 23       0350 ------------ 0       0130 ------------ 6                                                        *
************************************************************************************************************************************

//CATLG   EXEC PGM=IEHPROGM,REGION=128K
//SYSPRINT DD  SYSOUT=A
//CVOL     DD  DISP=SHR,UNIT=3330,VOL=SER=MVTRES
//SYSIN    DD  *
//
IEF236I ALLOC. FOR G07CATWK CATLG
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 350   ALLOCATED TO CVOL
IEF237I 130   ALLOCATED TO SYSIN


SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0001



 CATLG VOL=3330=ASPSUP,DSNAME=SYS1.OBJPDS
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPSUP,DSNAME=SYS1.SYSUT1
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPSUP,DSNAME=SYS1.SYSUT2
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPSUP,DSNAME=SYS1.SYSUT3
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPSUP,DSNAME=SYS1.SYSUT4
NORMAL END OF TASK RETURNED FROM CATLG



UTILITY END


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G07CATWK.R0000021     SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.G07CATWK.R0000022     KEPT
IEF285I   VOL SER NOS= MVTRES.
IEF285I   SYS78240.T193835.RV000.G07CATWK.S0000023     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G07CATWK.S0000023     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /CATLG   / START 78240.1940
IEF374I STEP /CATLG   / STOP  78240.1940 CPU   0MIN 00.05SEC MAIN  30K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:40:09.79   ALLOC START    19:40:09.80   MAIN REGION ----- 256K                          *
*   STEP NAME CATLG      STEP END TIME  19:40:09.93   PGM START TIME 19:40:09.85   MAIN STORAGE ----- 30K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.14   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHPROGM   STEP CPU TIME  00:00:00.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0159 ----------- 18       0350 ------------ 0       0130 ------------ 6                                                        *
************************************************************************************************************************************

IEF375I  JOB /G07CATWK/ START 78240.1940
IEF376I  JOB /G07CATWK/ STOP  78240.1940 CPU   0MIN 00.10SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G07CATWK   JOB READ TIME 19:40:09.54   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.10   *
*   JOB CLASS A          JOB INIT TIME 19:40:09.62   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.33   *
*   ACCOUNT   1          JOB END TIME  19:40:09.95   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG     00000     8888888    CCCCCCC       A      TTTTTTTT   DDDDDDDD   LL                        A
            GGGGGGGGG   0000000   888888888  CCCCCCCCC     AAA     TTTTTTTT   DDDDDDDDD  LL                       AAA
            GG     GG  00     00  88     88  CC     CC    AA AA       TT      DD     DD  LL                      AA AA
            GG         00    000  88     88  CC          AA   AA      TT      DD     DD  LL                     AA   AA
            GG         00   0 00   8888888   CC         AA     AA     TT      DD     DD  LL                    AA     AA
            GG   GGGG  00  0  00   8888888   CC         AA     AA     TT      DD     DD  LL                    AA     AA
            GG   GGGG  00 0   00  88     88  CC         AAAAAAAAA     TT      DD     DD  LL                    AAAAAAAAA
            GG     GG  000    00  88     88  CC     CC  AAAAAAAAA     TT      DD     DD  LL                    AAAAAAAAA
            GGGGGGGGG   0000000   888888888  CCCCCCCCC  AA     AA     TT      DDDDDDDDD  LLLLLLLLL             AA     AA
             GGGGGGG     00000     8888888    CCCCCCC   AA     AA     TT      DDDDDDDD   LLLLLLLLL             AA     AA

***********A  START   G08CATDL   SYS SYSA   WTR 00E   07:40:18 PM  28 AUG 1978   WTR 00E   SYS SYSA   G08CATDL   START  A***********
***********A  START   G08CATDL   SYS SYSA   WTR 00E   07:40:18 PM  28 AUG 1978   WTR 00E   SYS SYSA   G08CATDL   START  A***********
***********A  START   G08CATDL   SYS SYSA   WTR 00E   07:40:18 PM  28 AUG 1978   WTR 00E   SYS SYSA   G08CATDL   START  A***********
***********A  START   G08CATDL   SYS SYSA   WTR 00E   07:40:18 PM  28 AUG 1978   WTR 00E   SYS SYSA   G08CATDL   START  A***********
***********A  START   G08CATDL   SYS SYSA   WTR 00E   07:40:18 PM  28 AUG 1978   WTR 00E   SYS SYSA   G08CATDL   START  A***********


//G08CATDL JOB  1,'G08CATDLIB',CLASS=A,MSGLEVEL=(1,1)
***********************************************************************
***                                                                 ***
***    Job:      G08CATDLIB                                         ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Catalog DLIB data sets in driving system.          ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
//UNCATLG EXEC PGM=IEHPROGM,REGION=128K
//MVTRES DD UNIT=3330,VOLUME=SER=MVTRES,DISP=OLD
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
***
IEF236I ALLOC. FOR G08CATDL UNCATLG
IEF237I 350   ALLOCATED TO MVTRES
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSIN


SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0001



 UNCATLG DSNAME=SYS1.ASP
 IEH210I  YOUR REQUEST CANNOT BE SERVICED....
SYS1.ASP IS NOT A CATALOGED DATA SET  ... UNUSUAL END



 UNCATLG DSNAME=SYS1.ACDS
 IEH210I  YOUR REQUEST CANNOT BE SERVICED....
SYS1.ACDS IS NOT A CATALOGED DATA SET  ... UNUSUAL END



 UNCATLG DSNAME=SYS1.AL531
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.AS037
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.CB545
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.CI505
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.CI535
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.CI555
NORMAL END OF TASK RETURNED FROM UNCATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0002



 UNCATLG DSNAME=SYS1.CO503
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.CQ513
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.CQ519
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.CQ548
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DCMDLIB
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DCOBLIB
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DFORTLIB
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DHELP
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DM508
NORMAL END OF TASK RETURNED FROM UNCATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0003






 UNCATLG DSNAME=SYS1.DM509
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DMACLIB
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DN527
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DN533
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DN539
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DN554
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DN554A
 IEH210I  YOUR REQUEST CANNOT BE SERVICED....
SYS1.DN554A IS NOT A CATALOGED DATA SET  ... UNUSUAL END



 UNCATLG DSNAME=SYS1.DPARMLIB
NORMAL END OF TASK RETURNED FROM UNCATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0004



 UNCATLG DSNAME=SYS1.DPL1LIB
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DPROCLIB
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DSORTLIB
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.DUADS
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.ED521
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.FO500
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.FO520
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.FO550
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.GENLIB
NORMAL END OF TASK RETURNED FROM UNCATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0005






 UNCATLG DSNAME=SYS1.IO523
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.IO526
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.LD547
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.LM501
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.LM512
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.LM532
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.LM537
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.LM542
NORMAL END OF TASK RETURNED FROM UNCATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0006



 UNCATLG DSNAME=SYS1.LM546
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.MODGEN
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.MODGEN2
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.NL511
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.PL552
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.RC536
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.RC541
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.RC543
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.RC551
NORMAL END OF TASK RETURNED FROM UNCATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0007






 UNCATLG DSNAME=SYS1.RG038
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.SAMPLIB
 IEH210I  YOUR REQUEST CANNOT BE SERVICED....
SYS1.SAMPLIB IS NOT A CATALOGED DATA SET  ... UNUSUAL END



 UNCATLG DSNAME=SYS1.SM023
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.TCAMMAC
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.TSOGEN
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.TSOMAC
NORMAL END OF TASK RETURNED FROM UNCATLG



 UNCATLG DSNAME=SYS1.UT506
NORMAL END OF TASK RETURNED FROM UNCATLG



UTILITY END


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.RV000.G08CATDL.R0000024     KEPT
IEF285I   VOL SER NOS= MVTRES.
IEF285I   SYS78240.T193835.SV000.G08CATDL.R0000025     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G08CATDL.S0000026     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G08CATDL.S0000026     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /UNCATLG / START 78240.1940
IEF374I STEP /UNCATLG / STOP  78240.1940 CPU   0MIN 00.49SEC MAIN  30K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:40:16.94   ALLOC START    19:40:16.95   MAIN REGION ----- 256K                          *
*   STEP NAME UNCATLG    STEP END TIME  19:40:17.54   PGM START TIME 19:40:17.00   MAIN STORAGE ----- 30K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.60   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHPROGM   STEP CPU TIME  00:00:00.49   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0350 ------------ 0       0158 ---------- 190       0130 ----------- 59                                                        *
************************************************************************************************************************************

//CATLG  EXEC PGM=IEHPROGM,REGION=128K
//MVTRES DD UNIT=3330,VOLUME=SER=MVTRES,DISP=OLD
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
//
IEF236I ALLOC. FOR G08CATDL CATLG
IEF237I 350   ALLOCATED TO MVTRES
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSIN


SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0001



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.ASP
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.ACDS
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.AL531
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.AS037
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.CB545
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.CI505
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.CI535
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.CI555
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.CO503
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0002






 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.CQ513
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.CQ519
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.CQ548
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DCMDLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DCOBLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DFORTLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DHELP
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DM508
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0003



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DM509
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DMACLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DN527
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DN533
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DN539
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DN554
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DN554A
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DPARMLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DPL1LIB
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0004






 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DPROCLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DSORTLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.DUADS
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.ED521
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.FO500
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.FO520
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.FO550
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.GENLIB
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0005



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.IO523
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.IO526
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.LD547
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.LM501
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.LM512
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.LM532
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.LM537
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.LM542
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.LM546
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0006






 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.MODGEN
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.MODGEN2
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.NL511
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.PL552
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.RC536
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.RC541
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.RC543
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.RC551
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0007



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.RG038
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.SAMPLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.SM023
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.TCAMMAC
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.TSOGEN
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.TSOMAC
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPDLB,DSNAME=SYS1.UT506
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPSUP,DSNAME=ASP.ASPPGMS
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPSUP,DSNAME=ASP.MAC320
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0008






 CATLG VOL=3330=ASPSUP,DSNAME=ASP.MAINTASK
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPSUP,DSNAME=ASP.OBJ320
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPSUP,DSNAME=ASP.PSGLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPSUP,DSNAME=ASP.SOURCE
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG VOL=3330=ASPSUP,DSNAME=ASP.VERSON32
NORMAL END OF TASK RETURNED FROM CATLG



UTILITY END


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.RV000.G08CATDL.R0000027     KEPT
IEF285I   VOL SER NOS= MVTRES.
IEF285I   SYS78240.T193835.SV000.G08CATDL.R0000028     SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.G08CATDL.S0000029     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G08CATDL.S0000029     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /CATLG   / START 78240.1940
IEF374I STEP /CATLG   / STOP  78240.1940 CPU   0MIN 00.47SEC MAIN  30K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:40:17.56   ALLOC START    19:40:17.57   MAIN REGION ----- 256K                          *
*   STEP NAME CATLG      STEP END TIME  19:40:18.11   PGM START TIME 19:40:17.61   MAIN STORAGE ----- 30K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.55   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHPROGM   STEP CPU TIME  00:00:00.47   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0350 ------------ 0       0159 ---------- 209       0130 ----------- 66                                                        *
************************************************************************************************************************************

IEF375I  JOB /G08CATDL/ START 78240.1940
IEF376I  JOB /G08CATDL/ STOP  78240.1940 CPU   0MIN 00.96SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G08CATDL   JOB READ TIME 19:40:16.83   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.96   *
*   JOB CLASS A          JOB INIT TIME 19:40:16.94   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.20   *
*   ACCOUNT   1          JOB END TIME  19:40:18.14   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG     00000     9999999   RRRRRRRR   EEEEEEEEE  BBBBBBBB   LL         DDDDDDDD                  A
            GGGGGGGGG   0000000   999999999  RRRRRRRRR  EEEEEEEEE  BBBBBBBBB  LL         DDDDDDDDD                AAA
            GG     GG  00     00  99     99  RR     RR  EE         BB     BB  LL         DD     DD               AA AA
            GG         00    000  99     99  RR     RR  EE         BB     BB  LL         DD     DD              AA   AA
            GG         00   0 00  999999999  RRRRRRRRR  EEEEEE     BBBBBBBB   LL         DD     DD             AA     AA
            GG   GGGG  00  0  00   9999999   RRRRRRRR   EEEEEE     BBBBBBBB   LL         DD     DD             AA     AA
            GG   GGGG  00 0   00       99    RR  RR     EE         BB     BB  LL         DD     DD             AAAAAAAAA
            GG     GG  000    00      99     RR   RR    EE         BB     BB  LL         DD     DD             AAAAAAAAA
            GGGGGGGGG   0000000      99      RR    RR   EEEEEEEEE  BBBBBBBBB  LLLLLLLLL  DDDDDDDDD             AA     AA
             GGGGGGG     00000      99       RR     RR  EEEEEEEEE  BBBBBBBB   LLLLLLLLL  DDDDDDDD              AA     AA

***********A  START   G09REBLD   SYS SYSA   WTR 00E   07:40:41 PM  28 AUG 1978   WTR 00E   SYS SYSA   G09REBLD   START  A***********
***********A  START   G09REBLD   SYS SYSA   WTR 00E   07:40:41 PM  28 AUG 1978   WTR 00E   SYS SYSA   G09REBLD   START  A***********
***********A  START   G09REBLD   SYS SYSA   WTR 00E   07:40:41 PM  28 AUG 1978   WTR 00E   SYS SYSA   G09REBLD   START  A***********
***********A  START   G09REBLD   SYS SYSA   WTR 00E   07:40:41 PM  28 AUG 1978   WTR 00E   SYS SYSA   G09REBLD   START  A***********
***********A  START   G09REBLD   SYS SYSA   WTR 00E   07:40:41 PM  28 AUG 1978   WTR 00E   SYS SYSA   G09REBLD   START  A***********


//G09REBLD JOB ASP,'G09REBUILD-REBULD',MSGLEVEL=(1,1),CLASS=A
***********************************************************************
***                                                                 ***
***    Job:      G09REBUILD                                         ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Build ASP distribution libraries                   ***
***              ASP.PSGLIB, ASP.MAC320 and ASP.SOURCE              ***
***              from ASPV32 tape.                                  ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
//REBULD PROC SER=,DSN=,FILE=,SPACE=,DISP=,
//            DISK=3330,TAPE=TAPE,SOUT=DUMMY
//*
//*    SER=  VOLID OF OUTPUT DISK
//*    DSN=  DSNAME OF OUTPUT DATASET
//*    FILE= FILE NUMBER OF INPUT TAPE FILE
//*    SPACE=SPACE FOR DSN DATASET IN THE FORM '(CYL,(X,Y,Z))'
//*    DISP= FINAL DISPOSITION FOR DSN DATASET  (I.E. DISP=KEEP)
//*    DISK= SYMBOLIC NAME OR ADDRESS OF DISK DRIVE
//*    TAPE= SYMBOLIC NAME OR ADDRESS OF TAPE DRIVE
//*    SOUT= SYSOUT PARAMETER FOR SYSPRINT (I.E. SOUT='SYSOUT=A')
//*          CAN ALSO BE SPECIFIED AS:
//*           SOUT='DSN=SOUT,UNIT=TAPE9,DISP=(OLD),LABEL=(1,NL)'
//*
//STEP1 EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD &SOUT,
//            SPACE=(CYL,(10,5))
//SYSUT2   DD DSN=&DSN,
//            UNIT=&DISK,
//            VOL=SER=&SER,
//            DISP=(&DISP),
//            SPACE=&SPACE,
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3360)
//SYSIN    DD DSN=DSN&FILE,
//            UNIT=&TAPE, UNIT=(&TAPE,,DEFER),
//            VOL=(,RETAIN,SER=ASPV32),
//            LABEL=(&FILE,NL),
//            DISP=(OLD,KEEP),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//       PEND
//PSGLIB EXEC PROC=REBULD,SER=ASPSUP,DSN='ASP.PSGLIB',
//            FILE=8,SPACE='(CYL,(6,,10))',DISP='OLD'
++REBULD PROC SER=,DSN=,FILE=,SPACE=,DISP=,
++            DISK=3330,TAPE=TAPE,SOUT=DUMMY
***
***    SER=  VOLID OF OUTPUT DISK
***    DSN=  DSNAME OF OUTPUT DATASET
***    FILE= FILE NUMBER OF INPUT TAPE FILE
***    SPACE=SPACE FOR DSN DATASET IN THE FORM '(CYL,(X,Y,Z))'
***    DISP= FINAL DISPOSITION FOR DSN DATASET  (I.E. DISP=KEEP)
***    DISK= SYMBOLIC NAME OR ADDRESS OF DISK DRIVE
***    TAPE= SYMBOLIC NAME OR ADDRESS OF TAPE DRIVE
***    SOUT= SYSOUT PARAMETER FOR SYSPRINT (I.E. SOUT='SYSOUT=A')
***          CAN ALSO BE SPECIFIED AS:
***           SOUT='DSN=SOUT,UNIT=TAPE9,DISP=(OLD),LABEL=(1,NL)'
***
++STEP1 EXEC PGM=IEBUPDTE,PARM=NEW
++SYSPRINT DD &SOUT,
IEF653I SUBSTITUTION JCL - DUMMY,
++            SPACE=(CYL,(10,5))
++SYSUT2   DD DSN=&DSN,
IEF653I SUBSTITUTION JCL - DSN=ASP.PSGLIB,
++            UNIT=&DISK,
IEF653I SUBSTITUTION JCL - UNIT=3330,
++            VOL=SER=&SER,
IEF653I SUBSTITUTION JCL - VOL=SER=ASPSUP,
++            DISP=(&DISP),
IEF653I SUBSTITUTION JCL - DISP=(OLD),
++            SPACE=&SPACE,
IEF653I SUBSTITUTION JCL - SPACE=(CYL,(6,,10)),
++            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3360)
++SYSIN    DD DSN=DSN&FILE,
IEF653I SUBSTITUTION JCL - DSN=DSN8,
++            UNIT=&TAPE, UNIT=(&TAPE,,DEFER),
IEF653I SUBSTITUTION JCL - UNIT=TAPE,
++            VOL=(,RETAIN,SER=ASPV32),
++            LABEL=(&FILE,NL),
IEF653I SUBSTITUTION JCL - LABEL=(8,NL),
++            DISP=(OLD,KEEP),
++            DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
IEF236I ALLOC. FOR G09REBLD STEP1    PSGLIB
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 580   ALLOCATED TO SYSIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.PSGLIB                                   KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   DSN8                                         KEPT
IEF285I   VOL SER NOS= ASPV32.
IEF373I STEP /STEP1   / START 78240.1940
IEF374I STEP /STEP1   / STOP  78240.1940 CPU   0MIN 00.38SEC MAIN  40K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:40:26.24   ALLOC START    19:40:26.25   MAIN REGION ----- 256K                          *
*   STEP NAME STEP1      STEP END TIME  19:40:35.10   PGM START TIME 19:40:26.32   MAIN STORAGE ----- 40K    CONDITION CODE 0000   *
*   PSTP NAME PSGLIB     ELAPSED TIME   00:00:08.86   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.38   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                                                  *
*   0151 ---------- 320       0580 ---------- 127                                                                                  *
************************************************************************************************************************************

//MAC320 EXEC PROC=REBULD,SER=ASPSUP,DSN='ASP.MAC320',
//            FILE=9,SPACE='(CYL,(15,,25))',DISP='OLD'
++REBULD PROC SER=,DSN=,FILE=,SPACE=,DISP=,
++            DISK=3330,TAPE=TAPE,SOUT=DUMMY
***
***    SER=  VOLID OF OUTPUT DISK
***    DSN=  DSNAME OF OUTPUT DATASET
***    FILE= FILE NUMBER OF INPUT TAPE FILE
***    SPACE=SPACE FOR DSN DATASET IN THE FORM '(CYL,(X,Y,Z))'
***    DISP= FINAL DISPOSITION FOR DSN DATASET  (I.E. DISP=KEEP)
***    DISK= SYMBOLIC NAME OR ADDRESS OF DISK DRIVE
***    TAPE= SYMBOLIC NAME OR ADDRESS OF TAPE DRIVE
***    SOUT= SYSOUT PARAMETER FOR SYSPRINT (I.E. SOUT='SYSOUT=A')
***          CAN ALSO BE SPECIFIED AS:
***           SOUT='DSN=SOUT,UNIT=TAPE9,DISP=(OLD),LABEL=(1,NL)'
***
++STEP1 EXEC PGM=IEBUPDTE,PARM=NEW
++SYSPRINT DD &SOUT,
IEF653I SUBSTITUTION JCL - DUMMY,
++            SPACE=(CYL,(10,5))
++SYSUT2   DD DSN=&DSN,
IEF653I SUBSTITUTION JCL - DSN=ASP.MAC320,
++            UNIT=&DISK,
IEF653I SUBSTITUTION JCL - UNIT=3330,
++            VOL=SER=&SER,
IEF653I SUBSTITUTION JCL - VOL=SER=ASPSUP,
++            DISP=(&DISP),
IEF653I SUBSTITUTION JCL - DISP=(OLD),
++            SPACE=&SPACE,
IEF653I SUBSTITUTION JCL - SPACE=(CYL,(15,,25)),
++            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3360)
++SYSIN    DD DSN=DSN&FILE,
IEF653I SUBSTITUTION JCL - DSN=DSN9,
++            UNIT=&TAPE, UNIT=(&TAPE,,DEFER),
IEF653I SUBSTITUTION JCL - UNIT=TAPE,
++            VOL=(,RETAIN,SER=ASPV32),
++            LABEL=(&FILE,NL),
IEF653I SUBSTITUTION JCL - LABEL=(9,NL),
++            DISP=(OLD,KEEP),
++            DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
IEF236I ALLOC. FOR G09REBLD STEP1    MAC320
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 580   ALLOCATED TO SYSIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.MAC320                                   KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   DSN9                                         KEPT
IEF285I   VOL SER NOS= ASPV32.
IEF373I STEP /STEP1   / START 78240.1940
IEF374I STEP /STEP1   / STOP  78240.1940 CPU   0MIN 00.98SEC MAIN  40K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:40:35.12   ALLOC START    19:40:35.13   MAIN REGION ----- 256K                          *
*   STEP NAME STEP1      STEP END TIME  19:40:36.21   PGM START TIME 19:40:35.17   MAIN STORAGE ----- 40K    CONDITION CODE 0000   *
*   PSTP NAME MAC320     ELAPSED TIME   00:00:01.09   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.98   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                                                  *
*   0151 ---------- 549       0580 ---------- 172                                                                                  *
************************************************************************************************************************************

//SOURCE EXEC PROC=REBULD,SER=ASPSUP,DSN='ASP.SOURCE',
//            FILE=10,SPACE='(CYL,(70,,25))',DISP='OLD'
++REBULD PROC SER=,DSN=,FILE=,SPACE=,DISP=,
++            DISK=3330,TAPE=TAPE,SOUT=DUMMY
***
***    SER=  VOLID OF OUTPUT DISK
***    DSN=  DSNAME OF OUTPUT DATASET
***    FILE= FILE NUMBER OF INPUT TAPE FILE
***    SPACE=SPACE FOR DSN DATASET IN THE FORM '(CYL,(X,Y,Z))'
***    DISP= FINAL DISPOSITION FOR DSN DATASET  (I.E. DISP=KEEP)
***    DISK= SYMBOLIC NAME OR ADDRESS OF DISK DRIVE
***    TAPE= SYMBOLIC NAME OR ADDRESS OF TAPE DRIVE
***    SOUT= SYSOUT PARAMETER FOR SYSPRINT (I.E. SOUT='SYSOUT=A')
***          CAN ALSO BE SPECIFIED AS:
***           SOUT='DSN=SOUT,UNIT=TAPE9,DISP=(OLD),LABEL=(1,NL)'
***
++STEP1 EXEC PGM=IEBUPDTE,PARM=NEW
++SYSPRINT DD &SOUT,
IEF653I SUBSTITUTION JCL - DUMMY,
++            SPACE=(CYL,(10,5))
++SYSUT2   DD DSN=&DSN,
IEF653I SUBSTITUTION JCL - DSN=ASP.SOURCE,
++            UNIT=&DISK,
IEF653I SUBSTITUTION JCL - UNIT=3330,
++            VOL=SER=&SER,
IEF653I SUBSTITUTION JCL - VOL=SER=ASPSUP,
++            DISP=(&DISP),
IEF653I SUBSTITUTION JCL - DISP=(OLD),
++            SPACE=&SPACE,
IEF653I SUBSTITUTION JCL - SPACE=(CYL,(70,,25)),
++            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3360)
++SYSIN    DD DSN=DSN&FILE,
IEF653I SUBSTITUTION JCL - DSN=DSN10,
++            UNIT=&TAPE, UNIT=(&TAPE,,DEFER),
IEF653I SUBSTITUTION JCL - UNIT=TAPE,
++            VOL=(,RETAIN,SER=ASPV32),
++            LABEL=(&FILE,NL),
IEF653I SUBSTITUTION JCL - LABEL=(10,NL),
++            DISP=(OLD,KEEP),
++            DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//
IEF236I ALLOC. FOR G09REBLD STEP1    SOURCE
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 580   ALLOCATED TO SYSIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.SOURCE                                   KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   DSN10                                        KEPT
IEF285I   VOL SER NOS= ASPV32.
IEF373I STEP /STEP1   / START 78240.1940
IEF374I STEP /STEP1   / STOP  78240.1940 CPU   0MIN 04.08SEC MAIN  40K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 19:40:36.24   ALLOC START    19:40:36.25   MAIN REGION ----- 256K                          *
*   STEP NAME STEP1      STEP END TIME  19:40:41.81   PGM START TIME 19:40:36.29   MAIN STORAGE ----- 40K    CONDITION CODE 0000   *
*   PSTP NAME SOURCE     ELAPSED TIME   00:00:05.57   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:04.08   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                                                  *
*   0151 --------- 3499       0580 --------- 1414                                                                                  *
************************************************************************************************************************************

IEF280E K 580,ASPV32,G09REBLD,STEP1
IEF375I  JOB /G09REBLD/ START 78240.1940
IEF376I  JOB /G09REBLD/ STOP  78240.1940 CPU   0MIN 05.44SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G09REBLD   JOB READ TIME 19:40:26.02   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:05.44   *
*   JOB CLASS A          JOB INIT TIME 19:40:26.24   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:15.60   *
*   ACCOUNT   ASP        JOB END TIME  19:40:41.84   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG        1       00000    LL         KK     KK      A       SSSSSSS   PPPPPPPP                  A
            GGGGGGGGG      11      0000000   LL         KK    KK      AAA     SSSSSSSSS  PPPPPPPPP                AAA
            GG     GG     111     00     00  LL         KK   KK      AA AA    SS     SS  PP     PP               AA AA
            GG             11     00    000  LL         KK  KK      AA   AA   SS         PP     PP              AA   AA
            GG             11     00   0 00  LL         KK KK      AA     AA  SSSSSSSS   PPPPPPPPP             AA     AA
            GG   GGGG      11     00  0  00  LL         KKKKK      AA     AA   SSSSSSSS  PPPPPPPP              AA     AA
            GG   GGGG      11     00 0   00  LL         KKK KK     AAAAAAAAA         SS  PP                    AAAAAAAAA
            GG     GG      11     000    00  LL         KK   KK    AAAAAAAAA  SS     SS  PP                    AAAAAAAAA
            GGGGGGGGG    111111    0000000   LLLLLLLLL  KK    KK   AA     AA  SSSSSSSSS  PP                    AA     AA
             GGGGGGG     111111     00000    LLLLLLLLL  KK     KK  AA     AA   SSSSSSS   PP                    AA     AA

***********A  START   G10LKASP   SYS SYSA   WTR 00E   07:41:02 PM  28 AUG 1978   WTR 00E   SYS SYSA   G10LKASP   START  A***********
***********A  START   G10LKASP   SYS SYSA   WTR 00E   07:41:02 PM  28 AUG 1978   WTR 00E   SYS SYSA   G10LKASP   START  A***********
***********A  START   G10LKASP   SYS SYSA   WTR 00E   07:41:02 PM  28 AUG 1978   WTR 00E   SYS SYSA   G10LKASP   START  A***********
***********A  START   G10LKASP   SYS SYSA   WTR 00E   07:41:02 PM  28 AUG 1978   WTR 00E   SYS SYSA   G10LKASP   START  A***********
***********A  START   G10LKASP   SYS SYSA   WTR 00E   07:41:02 PM  28 AUG 1978   WTR 00E   SYS SYSA   G10LKASP   START  A***********


//G10LKASP JOB ASP,'G10LINKASP-LINKASP',MSGLEVEL=(1,1),REGION=128K,
//            CLASS=A
***********************************************************************
***                                                                 ***
***    Job:      G10LINKASP                                         ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Link ASP distribution modules, ASP nucleus and     ***
***              RJP modules to ASP.VERSON32.                       ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
//LINK PROC SER=,DISK=3330,TAPE=TAPE
//*
//*      SER=  VOLID OF OUTPUT DISK
//*      DISK= SYMBOLIC NAME OR DEVICE ADDRESS OF DISK DRIVE
//*      TAPE= SYMBOLIC NAME OR DEVICE ADDRESS OF TAPE DRIVE
//*
//STEP1 EXEC PGM=IEWL,
//           PARM='NCAL,LET,LIST,XREF,RENT,SIZE=(128K,18K)'
//SYSUT1   DD UNIT=SYSDA,
//            SPACE=(CYL,(5,1))
//SYSPRINT DD SYSOUT=A
//SYSLMOD  DD DSN=ASP.VERSON32,
//            UNIT=&DISK,
//            VOL=SER=&SER,
//            DISP=SHR,
//*           DISP=(NEW,KEEP),
//            SPACE=(CYL,(8,,60)),
//            DCB=(RECFM=U,BLKSIZE=6144)
//SYSLIN   DD UNIT=(&TAPE,,DEFER),
//            VOL=SER=ASPV32,
//            DISP=(OLD,KEEP),
//            LABEL=(7,NL),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//STEP2 EXEC PGM=IEWL,
//           PARM='NCAL,LET,LIST,XREF,SIZE=(128K,18K)'
//SYSUT1   DD UNIT=SYSDA,
//            SPACE=(CYL,(5,1))
//SYSPRINT DD SYSOUT=A
//SYSLMOD  DD DSN=ASP.VERSON32,
//            UNIT=&DISK,
//            VOL=SER=&SER,
//            DISP=SHR
//       PEND
// EXEC LINK,SER=ASPSUP
++LINK PROC SER=,DISK=3330,TAPE=TAPE
***
***      SER=  VOLID OF OUTPUT DISK
***      DISK= SYMBOLIC NAME OR DEVICE ADDRESS OF DISK DRIVE
***      TAPE= SYMBOLIC NAME OR DEVICE ADDRESS OF TAPE DRIVE
***
++STEP1 EXEC PGM=IEWL,
++           PARM='NCAL,LET,LIST,XREF,RENT,SIZE=(128K,18K)'
++SYSUT1   DD UNIT=SYSDA,
++            SPACE=(CYL,(5,1))
++SYSPRINT DD SYSOUT=A
++SYSLMOD  DD DSN=ASP.VERSON32,
++            UNIT=&DISK,
IEF653I SUBSTITUTION JCL - UNIT=3330,
++            VOL=SER=&SER,
IEF653I SUBSTITUTION JCL - VOL=SER=ASPSUP,
++            DISP=SHR,
***           DISP=(NEW,KEEP),
++            SPACE=(CYL,(8,,60)),
++            DCB=(RECFM=U,BLKSIZE=6144)
++SYSLIN   DD UNIT=(&TAPE,,DEFER),
IEF653I SUBSTITUTION JCL - UNIT=(TAPE,,DEFER),
++            VOL=SER=ASPV32,
++            DISP=(OLD,KEEP),
++            LABEL=(7,NL),
++            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
IEF236I ALLOC. FOR G10LKASP STEP1
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSLMOD
IEF237I 580   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LET,LIST,XREF,RENT,SIZE=(128K,18K)
           VARIABLE OPTIONS USED -  SIZE=(131072,18432)
IEW0000      SETSSI 0301C200
IEW0000      NAME ABENDMON(R)
IEW0461  TVTSTART
IEW0461  MFMKO


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ABENDMON      00     993
                                        PGMCKMON     1C2    FAILDSPX     7C0    CANCDATA     8E8


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      968            TVTSTART       $UNRESOLVED                   98D            MFMKO          $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       998

****ABENDMON  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME ACCPR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ACCPR         00    1BCA



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1BD0

****ACCPR     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ACDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ACDATA        00     48C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       490

****ACDATA    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ACDS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ACDS          00     D7D


 ENTRY ADDRESS       00
 TOTAL LENGTH       D80

****ACDS      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ADEQUEUE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ADEQUEUE      00     262
                                        DEQMSGX       00

 ENTRY ADDRESS       00
 TOTAL LENGTH       268

****ADEQUEUE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ADSGEN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ADSGEN        00    1E50



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1E50

****ADSGEN    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AFSCDRV1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AFSCDRV1      00      84


 ENTRY ADDRESS       00
 TOTAL LENGTH        88

****AFSCDRV1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AFSCNSL1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AFSCNSL1      00      2A


 ENTRY ADDRESS       00
 TOTAL LENGTH        30

****AFSCNSL1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AFSDC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AFSDC         00     1F4


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F8

****AFSDC     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AFSDRVR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AFSDRVR       00     2EC



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       2F0

****AFSDRVR   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AFSINIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AFSINIT       00     397


 ENTRY ADDRESS       00
 TOTAL LENGTH       398

****AFSINIT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AFSRCVY(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AFSRCVY       00     270


 ENTRY ADDRESS       00
 TOTAL LENGTH       270

****AFSRCVY   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AFSRICO1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AFSRICO1      00     300


 ENTRY ADDRESS       00
 TOTAL LENGTH       300

****AFSRICO1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AFSTERM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AFSTERM       00     104



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       108

****AFSTERM   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AHIO(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AHIO          00      E0


 ENTRY ADDRESS       00
 TOTAL LENGTH        E0

****AHIO      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AIDADAP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AIDADAP       00     C88



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       C88

****AIDADAP   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AIDDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AIDDATA       00     8E0
                                        AIDMSGRT     42C
  MPCSTART     8E0     4DC
                                        AIDMPCTL     8E0    AIDFCTSV     CEC    AIDGLIST     D9C


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      3DC            AIDFCTSV        MPCSTART                     3E0            AIDGLIST        MPCSTART

 ENTRY ADDRESS       00
 TOTAL LENGTH       DC0

****AIDDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AIDEND(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AIDEND        00     226


 ENTRY ADDRESS       00
 TOTAL LENGTH       228

****AIDEND    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AIDINISH(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AIDINISH      00     EB6



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       EB8

****AIDINISH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AIDRSTRT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AIDRSTRT      00     278


 ENTRY ADDRESS       00
 TOTAL LENGTH       278

****AIDRSTRT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ALDADEL(R)
IEW0461  ACORECHK


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ALDADEL       00     608
                                        LOADX         00    DELETEX      474


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      5A8            ACORECHK       $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       608

****ALDADEL   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME ALOADS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ALOADS        00     C04


 ENTRY ADDRESS       00
 TOTAL LENGTH       C08

****ALOADS    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AN            00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****AN        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AN11(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AN11          00     200


 ENTRY ADDRESS       00
 TOTAL LENGTH       200

****AN11      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME AOUTPUT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AOUTPUT       00    2211



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      2218

****AOUTPUT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASAVERTN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASAVERTN      00     323
                                        ASAVEYES      00    ASAVENOR     186    RSVSAVER     234    RELSAVER     29E

 ENTRY ADDRESS       00
 TOTAL LENGTH       328

****ASAVERTN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABEND(R)
IEW0461  ASPCKPT
IEW0461  ASPCONTL
IEW0461  ABENDMON
IEW0461  IONUC
IEW0461  IODATA
IEW0461  TRACKS
IEW0461  ASPOPENX
IEW0461  CALLDRVR
IEW0461  CONSOLES
IEW0461  CONSQMGR
IEW0461  DEVREQ
IEW0461  DSPDCTNY
IEW0461  FUNCTLTB
IEW0461  GETPUTMN
IEW0461  GETPUTUN
IEW0461  INITIATE
IEW0461  JOBCONTL
IEW0461  JOBNUM
IEW0461  JSSDR
IEW0461  ALDADEL
IEW0461  LOGINOUT
IEW0461  TVTABLE
IEW0461  INTCOM
IEW0461  ADEQUEUE
IEW0461  CONSINPT
IEW0461  NETCONTL
IEW0461  CKPTDATA
IEW0461  ASAVERTN
IEW0461  CONSAUTH
IEW0461  AHIO
IEW0461  WTDDRVR
IEW0461  IORTNS
IEW0461  CONSCONS
IEW0461  ABNPRMPT


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABEND      00     BCE
                                        ABNDCB       930    ASPSADCB     988    ABNTADEB     9C4    MAPLIST      B28


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      B28            ASPCKPT        $UNRESOLVED                   B2C            ASPCONTL       $UNRESOLVED
      B30            ABENDMON       $UNRESOLVED                   B34            IONUC          $UNRESOLVED
      B38            IODATA         $UNRESOLVED                   B3C            TRACKS         $UNRESOLVED
      B40            ASPOPENX       $UNRESOLVED                   B44            CALLDRVR       $UNRESOLVED

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      B48            CONSOLES       $UNRESOLVED                   B4C            CONSQMGR       $UNRESOLVED
      B50            DEVREQ         $UNRESOLVED                   B54            DSPDCTNY       $UNRESOLVED
      B58            FUNCTLTB       $UNRESOLVED                   B5C            GETPUTMN       $UNRESOLVED
      B60            GETPUTUN       $UNRESOLVED                   B64            INITIATE       $UNRESOLVED
      B68            JOBCONTL       $UNRESOLVED                   B6C            JOBNUM         $UNRESOLVED
      B70            JSSDR          $UNRESOLVED                   B74            ALDADEL        $UNRESOLVED
      B78            LOGINOUT       $UNRESOLVED                   B7C            TVTABLE        $UNRESOLVED
      B80            INTCOM         $UNRESOLVED                   B84            ADEQUEUE       $UNRESOLVED
      B88            CONSINPT       $UNRESOLVED                   B8C            NETCONTL       $UNRESOLVED
      B94            CKPTDATA       $UNRESOLVED                   B98            ASAVERTN       $UNRESOLVED
      B9C            CONSAUTH       $UNRESOLVED                   BA0            AHIO           $UNRESOLVED
      BA4            WTDDRVR        $UNRESOLVED                   BA8            IORTNS         $UNRESOLVED
      BAC            CONSCONS       $UNRESOLVED                   BB8            ABNPRMPT       $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       BD0

****ASPABEND  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABNDA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABNDA      00     4B0
  ABNDWORK     4B0     1C0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4A0            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       670

****ASPABNDA  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABNDB(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABNDB      00     3D4
  ABNDWORK     3D8     140



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      380            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       518

****ASPABNDB  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABNDC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABNDC      00     3AA
  ABNDWORK     3B0     240



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      398            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       5F0

****ASPABNDC  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABNDD(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABNDD      00     388
  ABNDWORK     388     108



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      368            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       490

****ASPABNDD  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABNDE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABNDE      00     4D0
  ABNDWORK     4D0     2F0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4C8            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       7C0

****ASPABNDE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABNDF(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABNDF      00      FC
  ABNDWORK     100     1F0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       F0            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       2F0

****ASPABNDF  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABND1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABND1      00     356
  ABNDWORK     358     194



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      320            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       4F0

****ASPABND1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABND2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABND2      00     394
  ABNDWORK     398     280



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      388            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       618

****ASPABND2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABND3(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABND3      00     511
  ABNDWORK     518     268



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4E8            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       780

****ASPABND3  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABND4(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABND4      00     4DA
  ABNDWORK     4E0     2FC



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4C0            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       7E0

****ASPABND4  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABND5(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABND5      00     330
  ABNDWORK     330     1AC



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      310            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       4E0

****ASPABND5  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABND6(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABND6      00     315
  ABNDWORK     318     34C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2F8            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       668

****ASPABND6  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABND7(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABND7      00     4AE
  ABNDWORK     4B0     168



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4A0            ABNDWORK        ABNDWORK                     4B8            ASPABND7        ASPABND7
      4C5            ASPABND7        ASPABND7                     4D8            ASPABND7        ASPABND7
      4EC            ASPABND7        ASPABND7
 ENTRY ADDRESS       00
 TOTAL LENGTH       618

****ASPABND7  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABND8(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABND8      00      60
  ABNDWORK      60     6D8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       58            ABNDWORK        ABNDWORK
 ENTRY ADDRESS       00
 TOTAL LENGTH       738

****ASPABND8  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPABND9(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPABND9      00     7C8


 ENTRY ADDRESS       00
 TOTAL LENGTH       7C8

****ASPABND9  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPAID(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPAID        00     2A8


 ENTRY ADDRESS       00
 TOTAL LENGTH       2A8

****ASPAID    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPCKPT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPCKPT       00     12E
  CKPTDATA     130     33C
                                        JCTFDBTB     138    CKPTDCB      274    CKPTEXT      2C8    CKPTCYL      31A
                                        CKPTHEAD     31D


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       470

****ASPCKPT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPCONTL(R)
IEW0461  TVTSTART


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPCONTL      00     CBC
                                        AWAITX        00    MFMKO         28    WAIT          60    ASPNEXT       D4
                                        LCLINTX      17C    MSGSENDX     1F2    MSGRECVX     2DA    MSGROUTX     510
                                        ASPTIMEX     6BE    ASPTTRAP     9A8    ASPECBX      BB4    ASPTCBX      BB8
                                        ASPPRIV      BDC    ASPSIO       BDC    ASPTIO       BE2    ASPHALT      BE8
                                        ASPTCH       BEE    APSW1        BF4    APSW2        BF8    APSW3        BFC
                                        APSW4        C00    APSW5        C04    APSW6        C08    VIOLATEX     C18


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      C90            TVTSTART       $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       CC0

****ASPCONTL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPCTCM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPCTCM       00     60E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       610

****ASPCTCM   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPDMPRT(R)
IEW0461  ASPPRFIO


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPDMPRT      00     BBA
                                        IMDPRFIO      00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      290            ASPPRFIO       $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       BC0

****ASPDMPRT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPFENCE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPFENCE      00    19E8
  FNCEMSGS    19E8     1AF



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      380            FNCEMSGS        FNCEMSGS                     D18            FNCEMSGS        FNCEMSGS
     1364            FNCEMSGS        FNCEMSGS
 ENTRY ADDRESS       00
 TOTAL LENGTH      1B98

****ASPFENCE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPLOC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPLOC        00     7C4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       7C8

****ASPLOC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPNEWS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPNEWS       00     1D4


 ENTRY ADDRESS       00
 TOTAL LENGTH       1D8

****ASPNEWS   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPOPENX(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPOPENX      00     50F
                                        ASPEXCPX     16A    ASPCLOSX     39C


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       510

****ASPOPENX  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPQALL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPQALL       00     47D



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       480

****ASPQALL   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPQRDR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPQRDR       00     5B3



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       5B8

****ASPQRDR   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPSVC(R)
IEW0461  CTCMUCB
IEW0461  ATNTAB
IEW0461  CTCATN
IEW0461  CTCMONSW
IEW0461  IEASCSAV
IEW0461  IEAQTR00
IEW0461  IBMORG
IEW0461  USERORG
IEW0461  LOWUSER
IEW0461  IEATYPE1
IEW0461  LASPTCH


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC246        00     478
                                        CTCMCS       2BA    CTCNMCS      2D2
  MTVT         478      54



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      430            MTVT            MTVT                         488            CTCMUCB        $UNRESOLVED
      48C            ATNTAB         $UNRESOLVED                   490            CTCATN         $UNRESOLVED
      494            CTCMONSW       $UNRESOLVED                   498            IEASCSAV       $UNRESOLVED
      49C            IEAQTR00       $UNRESOLVED                   4A0            IBMORG         $UNRESOLVED
      4A4            USERORG        $UNRESOLVED                   4A8            LOWUSER        $UNRESOLVED
      4AC            IEATYPE1       $UNRESOLVED                   4BC            LASPTCH        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       4D0

****ASPSVC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPVER(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPVER        00    128B



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1290

****ASPVER    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPVSTAT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPVSTAT      00     D88



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D88

****ASPVSTAT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASPWRITR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPWRITR      00     6A8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       6A8

****ASPWRITR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ASUBMIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASUBMIT       00     D74



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D78

****ASUBMIT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CALLDRVR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CALLDRVR      00     234
                                        CALLD030      48    CDFSWORK     1A0    CALLTRSW     1B0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       238

****CALLDRVR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CALLDSP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CALLDSP       00     6D5



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       6D8

****CALLDSP   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CBPRNT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CBPRNT        00    13D2


 ENTRY ADDRESS       00
 TOTAL LENGTH      13D8

****CBPRNT    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CC            00    12A8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      12A8

****CC        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CNT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CNT           00     77A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       780

****CNT       DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONSANAL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONSANAL      00     5B6


 ENTRY ADDRESS       00
 TOTAL LENGTH       5B8

****CONSANAL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONSAUTH(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONSAUTH      00      16


 ENTRY ADDRESS       00
 TOTAL LENGTH        18

****CONSAUTH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONSCONS(R)
IEW0461  CONSINPT
IEW0461  CONSAUTH
IEW0461  CONSWTCH


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONSCONS      00     4EE
                                        CMF            F


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       10            CONSINPT       $UNRESOLVED                    14            CONSAUTH       $UNRESOLVED
       18            CONSWTCH       $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       4F0

****CONSCONS  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONSINPT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONSINPT      00     E9E
                                        CONSWTCH     AE8

 ENTRY ADDRESS       00
 TOTAL LENGTH       EA0

****CONSINPT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONSOLES(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONSOLES      00     77A
                                        CONSTIME     730

 ENTRY ADDRESS       00
 TOTAL LENGTH       780

****CONSOLES  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONSQMGR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONSQMGR      00     AD6
                                        QMESSAGE      00    CONCLASS     87A

 ENTRY ADDRESS       00
 TOTAL LENGTH       AD8

****CONSQMGR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONSRMT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONSRMT       00     2E8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       2E8

****CONSRMT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONS1052(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONS1052      00     180



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       180

****CONS1052  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONS1053(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONS1053      00     10C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       110

****CONS1053  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONS1403(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONS1403      00     114



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       118

****CONS1403  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONS2260(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONS2260      00     280



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       280

****CONS2260  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONS2740(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONS2740      00     67C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       680

****CONS2740  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONS3060(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONS3060      00     3BB



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3C0

****CONS3060  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONS3066(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONS3066      00     3D1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3D8

****CONS3066  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONS3277(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONS3277      00     7B8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       7B8

****CONS3277  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONS3284(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONS3284      00     2C4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       2C8

****CONS3284  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CONTRAP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CONTRAP       00     1D8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       1D8

****CONTRAP   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CP            00     D15



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D18

****CP        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CR            00     418


 ENTRY ADDRESS       00
 TOTAL LENGTH       418

****CR        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CT            00    1107



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1108

****CT        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CTCOPN20(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGG0190$      00     400


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****CTCOPN20  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME CTCOPN21(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFG0192Z      00     400


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****CTCOPN21  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DC(R)
IEW0461  TVTABLE


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DC            00    1ACC
                                        DSPDCTNY    1960    DSPDICT     1960    DEVREQ      1980


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     18A4            TVTABLE        $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH      1AD0

****DC        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME DEADLINE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DEADLINE      00     377



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       378

****DEADLINE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DELINIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DELINIT       00     264


 ENTRY ADDRESS       00
 TOTAL LENGTH       268

****DELINIT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DELTIME(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DELTIME       00     490


 ENTRY ADDRESS       00
 TOTAL LENGTH       490

****DELTIME   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DELWORK(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DELWORK       00      F7



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        F8

****DELWORK   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DISPDJC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DISPDJC       00     D61



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D68

****DISPDJC   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DISPLAY(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DISPLAY       00    18B2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      18B8

****DISPLAY   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DJ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DJ            00     E15


 ENTRY ADDRESS       00
 TOTAL LENGTH       E18

****DJ        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DJCDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DJCDATA       00     27A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       280

****DJCDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DJCPROC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DJCPROC       00      94


 ENTRY ADDRESS       00
 TOTAL LENGTH        98

****DJCPROC   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DJCUPDAT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DJCUPDAT      00     C1A


 ENTRY ADDRESS       00
 TOTAL LENGTH       C20

****DJCUPDAT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DJDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DJDATA        00     50F



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       510

****DJDATA    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DJIN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DJIN          00    1008


 ENTRY ADDRESS       00
 TOTAL LENGTH      1008

****DJIN      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DJNETOUT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DJNETOUT      00     294


 ENTRY ADDRESS       00
 TOTAL LENGTH       298

****DJNETOUT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DJOUT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DJOUT         00    191F


 ENTRY ADDRESS       00
 TOTAL LENGTH      1920

****DJOUT     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DR            00     268



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       268

****DR        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME DYNDISP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DYNDISP       00     40E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       410

****DYNDISP   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000             ALIAS FCB26#IN
IEW0000      SETSSI 0301C200
IEW0000      NAME FCB2STAN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  FCB2STAN      00      44


 ENTRY ADDRESS       00
 TOTAL LENGTH        48

****FCB2STAN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****FCB26#IN  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME GETPUTMN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  GETPUTMN      00     290
                                        GETMAINX      00    PUTMAINX     104    ACORECHK     156

 ENTRY ADDRESS       00
 TOTAL LENGTH       290

****GETPUTMN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME GETPUTUN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  GETPUTUN      00     BA4
                                        GETUNI        00    PUTUNI       80A    DSPSCN       A14


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       BA8

****GETPUTUN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME GN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  GN            00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****GN        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME GN11(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  GN11          00     200


 ENTRY ADDRESS       00
 TOTAL LENGTH       200

****GN11      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME HN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HN            00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****HN        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME HN11(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HN11          00     200


 ENTRY ADDRESS       00
 TOTAL LENGTH       200

****HN11      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME IEFQDELE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQDELE      00      24


 ENTRY ADDRESS       00
 TOTAL LENGTH        28

****IEFQDELE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME IJP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IJP           00     3A6


 ENTRY ADDRESS       00
 TOTAL LENGTH       3A8

****IJP       DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME IJPDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IJPDATA       00     50E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       510

****IJPDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME IJPEND(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IJPEND        00     74E


 ENTRY ADDRESS       00
 TOTAL LENGTH       750

****IJPEND    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME IJPINISH(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IJPINISH      00     35C


 ENTRY ADDRESS       00
 TOTAL LENGTH       360

****IJPINISH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME IJPSTART(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IJPSTART      00     23A


 ENTRY ADDRESS       00
 TOTAL LENGTH       240

****IJPSTART  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME IJPWTR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IJPWTR        00     D7B



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D80

****IJPWTR    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME IKJEFFHR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFFHR      00     3C6
  IKJEFF57     3C8      36



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      3B0            IKJEFF57        IKJEFF57
 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IKJEFFHR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME IKJEFF53(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF53      00     2F8


 ENTRY ADDRESS       00
 TOTAL LENGTH       2F8

****IKJEFF53  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITANAL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITANAL      00     FCF



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       FD0

****INITANAL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITCARD(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITCARD      00    2539



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      2540

****INITCARD  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITCKIO(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITCKIO      00     D04



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D08

****INITCKIO  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITCNS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITCNS       00     F3B



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       F40

****INITCNS   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITDATA      00     DE4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       DE8

****INITDATA  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITGEN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITGEN       00    10A7


 ENTRY ADDRESS       00
 TOTAL LENGTH      10A8

****INITGEN   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITIATE(R)
IEW0461  TVTABLE
IEW0461  ABNTADEB
IEW0461  ABENDMON
IEW0461  PGMCKMON
IEW0461  JSSFCT
IEW0461  JSSDR


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITIATE      00     4BC
                                        ABNPRMPT      20    STAELIST     22C    SPIELIST     23C    INITERM      280


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       1C            TVTABLE        $UNRESOLVED                   260            TVTABLE        $UNRESOLVED
      264            ABNTADEB       $UNRESOLVED                   268            ABENDMON       $UNRESOLVED
      26C            PGMCKMON       $UNRESOLVED                   270            JSSFCT         $UNRESOLVED
      274            JSSDR          $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       4C0

****INITIATE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITIO(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITIO        00    1332



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1338

****INITIO    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITIOCD(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITIOCD      00     F1E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       F20

****INITIOCD  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITJOB(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITJOB       00     568



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       568

****INITJOB   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITMDS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITMDS       00     BD0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       BD0

****INITMDS   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITMN1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITMN1       00    1517
  MCSTART     1518      2C
  MPSTART     1548      58
  MGSTART     15A0      18
  MGXSTART    15B8      3C
  MSSTART     15F8      50



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     14AC            MCSTART         MCSTART                     1490            MPSTART         MPSTART
     14B4            MGSTART         MGSTART                     14BC            MGXSTART        MGXSTART
     149C            MSSTART         MSSTART
 ENTRY ADDRESS       00
 TOTAL LENGTH      1648

****INITMN1   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITMN2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITMN2       00    1D16


 ENTRY ADDRESS       00
 TOTAL LENGTH      1D18

****INITMN2   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITQUE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITQUE       00     3DA


 ENTRY ADDRESS       00
 TOTAL LENGTH       3E0

****INITQUE   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITREST(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITREST      00    12DD



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      12E0

****INITREST  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITRI(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITRI        00     4F4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       4F8

****INITRI    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITRJP1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITRJP1      00     717
  RLNSTART     718      26
  RTMSTART     740      24



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      678            RLNSTART        RLNSTART                     67C            RTMSTART        RTMSTART

 ENTRY ADDRESS       00
 TOTAL LENGTH       768

****INITRJP1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITRJP2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITRJP2      00     84B


 ENTRY ADDRESS       00
 TOTAL LENGTH       850

****INITRJP2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INITRTNS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INITRTNS      00     E65



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       E68

****INITRTNS  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INQACSR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INQACSR       00     A47


 ENTRY ADDRESS       00
 TOTAL LENGTH       A48

****INQACSR   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INQBACK(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INQBACK       00     34D


 ENTRY ADDRESS       00
 TOTAL LENGTH       350

****INQBACK   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INQCONS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INQCONS       00     3C7


 ENTRY ADDRESS       00
 TOTAL LENGTH       3C8

****INQCONS   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INQDISP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INQDISP       00     916


 ENTRY ADDRESS       00
 TOTAL LENGTH       918

****INQDISP   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INQDJC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INQDJC        00     485



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       488

****INQDJC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INQDLN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INQDLN        00     298


 ENTRY ADDRESS       00
 TOTAL LENGTH       298

****INQDLN    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INQDRVR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INQDRVR       00     AA7



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       AA8

****INQDRVR   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INQMDS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INQMDS        00     D22


 ENTRY ADDRESS       00
 TOTAL LENGTH       D28

****INQMDS    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INQQUE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INQQUE        00     62E


 ENTRY ADDRESS       00
 TOTAL LENGTH       630

****INQQUE    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INQRJP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INQRJP        00     79D


 ENTRY ADDRESS       00
 TOTAL LENGTH       7A0

****INQRJP    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME INTCOM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  INTCOM        00     278


 ENTRY ADDRESS       00
 TOTAL LENGTH       278

****INTCOM    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME IODATA(R)
IEW0461  OUTPUT
IEW0461  INPUT


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IODATA        00     EF9
                                        LOCATE        00    BLOCK         CE    DEBLOCKS     246    DEB          24A
                                        LOCATES      4C4    BLOCKS       52A    PURGEA       5FE    NOTE         A54
                                        POINT        A8C    OPEND        B82    WEOF         C94    BACKR0       CF0
                                        MOVE         E6C


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      ED8            OUTPUT         $UNRESOLVED                   EDC            INPUT          $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       F00

****IODATA    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME IOERREC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IOERREC       00     78A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       790

****IOERREC   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME IONUC(R)
IEW0461  GETRACK
IEW0461  IOFCT
IEW0461  JDR0100
IEW0461  CKSPOOL


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IONUC         00    120A
                                        OPEN          00    READ         1C8    WRITE        1FE    OUTPUT       24C
                                        INPUT        2EC    CLOSE        384    GETBUF       5A6    PUTBUF       742
                                        RELEASE      91A    DISKS        968    DECF         FA5    IOAPPEND     FFC
                                        IOBPOOL     1108    ERRPOOL     1194


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      FC4            GETRACK        $UNRESOLVED                   FE0            IOFCT          $UNRESOLVED
      FE4            JDR0100        $UNRESOLVED                   FE8            CKSPOOL        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH      1210

****IONUC     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME IORTNS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IORTNS        00     580
                                        PURGCHN       00    WRTCHN        44    SETIOB        D6    FDFIND       198
                                        FDADD        1D2    FDDELET      2A6    ZEROCRE      352    TRACERTN     394
                                        CKSPOOL      406    GETRACK      4BC


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       580

****IORTNS    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISDATA        00     370



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       370

****ISDATA    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISDLN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISDLN         00     83E


 ENTRY ADDRESS       00
 TOTAL LENGTH       840

****ISDLN     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISDRVR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISDRVR        00     7C7


 ENTRY ADDRESS       00
 TOTAL LENGTH       7C8

****ISDRVR    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISDTASET(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISDTASET      00     347


 ENTRY ADDRESS       00
 TOTAL LENGTH       348

****ISDTASET  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISENDTSK(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISENDTSK      00     E4F


 ENTRY ADDRESS       00
 TOTAL LENGTH       E50

****ISENDTSK  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISFORMAT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISFORMAT      00     D0B


 ENTRY ADDRESS       00
 TOTAL LENGTH       D10

****ISFORMAT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISJCLIN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISJCLIN       00     75F


 ENTRY ADDRESS       00
 TOTAL LENGTH       760

****ISJCLIN   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISJES(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISJES         00     402


 ENTRY ADDRESS       00
 TOTAL LENGTH       408

****ISJES     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISJESXIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISJESXIT      00      10


 ENTRY ADDRESS       00
 TOTAL LENGTH        10

****ISJESXIT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISJOBCRD(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISJOBCRD      00     75A


 ENTRY ADDRESS       00
 TOTAL LENGTH       760

****ISJOBCRD  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISLOGIC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISLOGIC       00     9CB


 ENTRY ADDRESS       00
 TOTAL LENGTH       9D0

****ISLOGIC   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISMAIN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISMAIN        00    1178


 ENTRY ADDRESS       00
 TOTAL LENGTH      1178

****ISMAIN    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISNET(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISNET         00     9EE



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       9F0

****ISNET     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISPROCES(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISPROCES      00     82F


 ENTRY ADDRESS       00
 TOTAL LENGTH       830

****ISPROCES  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME ISSEQ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ISSEQ         00     19B


 ENTRY ADDRESS       00
 TOTAL LENGTH       1A0

****ISSEQ     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME JOBCONTL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  JOBCONTL      00    10FC
                                        TAFINDX       00    TAADDX        44    TAGETX       204    TARESETX     354
                                        TAPUTX       384    TADELX       436    TACMPRX      4B2    RQTAADDX     758
                                        RQTADELX     940    RQTAPUTX     9F8    RESMGMT      A76    RESTABLX     C54
                                        TAJTABLE     CFC

 ENTRY ADDRESS       00
 TOTAL LENGTH      1100

****JOBCONTL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME JOBNUM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  JOBNUM        00     264
                                        JOBNMBER      00    JOBNTEST     1F8


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       268

****JOBNUM    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME JSS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  JSS           00    1D9E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1DA0

****JSS       DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME JSSDR(R)
IEW0461  MFMKO


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  JSSDR         00     704
                                        JDR0020       6A    JSSRTN        C8    JDR0100      5C8    JDR00070     656


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      680            MFMKO          $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       708

****JSSDR     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME LOADOS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  LOADOS        00     292



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       298

****LOADOS    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME LOGINOUT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  LOGINOUT      00      DC
                                        LOGINX        00    LOGOUTX       10

 ENTRY ADDRESS       00
 TOTAL LENGTH        E0

****LOGINOUT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MAIN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MAIN          00    11CC


 ENTRY ADDRESS       00
 TOTAL LENGTH      11D0

****MAIN      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MAINIO(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MAINIO        00     F26


 ENTRY ADDRESS       00
 TOTAL LENGTH       F28

****MAINIO    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MAINTASK(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MAINTASK      00     FF4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       FF8

****MAINTASK  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MCADATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MCADATA       00      1C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        20

****MCADATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MDSALLOC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MDSALLOC      00    1324



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1328

****MDSALLOC  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MDSBRKDN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MDSBRKDN      00     38C


 ENTRY ADDRESS       00
 TOTAL LENGTH       390

****MDSBRKDN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MDSDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MDSTART       00     230
  MDSDATA      230      00



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       230

****MDSDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MDSDRIVR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MDSDRIVR      00     7A0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       7A0

****MDSDRIVR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MDSREST(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MDSREST       00     628


 ENTRY ADDRESS       00
 TOTAL LENGTH       628

****MDSREST   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MDSVERFY(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MDSVERFY      00     72C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       730

****MDSVERFY  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MODACC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MODACC        00     19E


 ENTRY ADDRESS       00
 TOTAL LENGTH       1A0

****MODACC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MODASG(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MODASG        00     98E


 ENTRY ADDRESS       00
 TOTAL LENGTH       990

****MODASG    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MODCNPR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MODCNPR       00     550


 ENTRY ADDRESS       00
 TOTAL LENGTH       550

****MODCNPR   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MODCONS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MODCONS       00     5EA


 ENTRY ADDRESS       00
 TOTAL LENGTH       5F0

****MODCONS   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MODDJC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MODDJC        00     6AF


 ENTRY ADDRESS       00
 TOTAL LENGTH       6B0

****MODDJC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MODDLN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MODDLN        00     4A6


 ENTRY ADDRESS       00
 TOTAL LENGTH       4A8

****MODDLN    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MODDRVR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MODDRVR       00     91E


 ENTRY ADDRESS       00
 TOTAL LENGTH       920

****MODDRVR   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MODHRQ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MODHRQ        00     482


 ENTRY ADDRESS       00
 TOTAL LENGTH       488

****MODHRQ    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MODMDS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MODMDS        00     C18


 ENTRY ADDRESS       00
 TOTAL LENGTH       C18

****MODMDS    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MODRJP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MODRJP        00     942


 ENTRY ADDRESS       00
 TOTAL LENGTH       948

****MODRJP    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MPCDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MPCSTART      00     40C
  MPCDATA      410      00



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       410

****MPCDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MPDDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MPCSTART      00     4D4
  MPDDATA      4D8      00



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       4D8

****MPDDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MSVCBUP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MSVCBUP       00     766


 ENTRY ADDRESS       00
 TOTAL LENGTH       768

****MSVCBUP   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MSVDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MSVDATA       00      60


 ENTRY ADDRESS       00
 TOTAL LENGTH        60

****MSVDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MSVDUMMY(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MSVDUMMY      00     C67


 ENTRY ADDRESS       00
 TOTAL LENGTH       C68

****MSVDUMMY  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MSVINIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MSVINIT       00     682


 ENTRY ADDRESS       00
 TOTAL LENGTH       688

****MSVINIT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MSVIPL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MSVIPL        00    1922



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1928

****MSVIPL    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MSVLOCAL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MSVLOCAL      00     7E2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       7E8

****MSVLOCAL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MSVMVT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MSVMVT        00    1945



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1948

****MSVMVT    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MSVOPER1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MSVOPER1      00     784


 ENTRY ADDRESS       00
 TOTAL LENGTH       788

****MSVOPER1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MSVOPER2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MSVOPER2      00    127A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1280

****MSVOPER2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MSVQMAP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MSVQMAP       00     9FF


 ENTRY ADDRESS       00
 TOTAL LENGTH       A00

****MSVQMAP   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME MSVTERM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MSVTERM       00     510


 ENTRY ADDRESS       00
 TOTAL LENGTH       510

****MSVTERM   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME NETCONTL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  NETCONTL      00     5E4
                                        JNADDX        00    JNDELX        56    JNGETX        A0    JNCBHLDX     100
                                        JNCBRELX     1A8    NCBTAADX     1FE    NCBTAFDX     344    NCBTAGTX     3F2
                                        NCBTARLX     4B6    NCBTAPTX     4E6


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       5E8

****NETCONTL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME NETDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  NETDATA       00     296



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       298

****NETDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME NJODATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  NJODATA       00     1FC



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       200

****NJODATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME NJP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  NJP           00     1D4
                                        NJP100        96    NJPECF       15A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       1D8

****NJP       DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME NJPCOMM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  NJPCOMM       00    194B



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1950

****NJPCOMM   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME NJPDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  NJPDATA       00     121


 ENTRY ADDRESS       00
 TOTAL LENGTH       128

****NJPDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME NJPDJ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  NJPDJ         00     B1E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       B20

****NJPDJ     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME NJPINQ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  NJPINQ        00     604



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       608

****NJPINQ    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME NJPIO(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  NJPIO         00     DB3


 ENTRY ADDRESS       00
 TOTAL LENGTH       DB8

****NJPIO     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME NJPOPEN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  NJPOPEN       00     7A3



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       7A8

****NJPOPEN   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PCHDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PCHDATA       00     3FA



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****PCHDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PCSAN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PCSAN         00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****PCSAN     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PCSHN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PCSHN         00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****PCSHN     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PN            00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****PN        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PN11(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PN11          00     200


 ENTRY ADDRESS       00
 TOTAL LENGTH       200

****PN11      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PRINT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PRINT         00     130


 ENTRY ADDRESS       00
 TOTAL LENGTH       130

****PRINT     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PRTDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PRTDATA       00     436



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       438

****PRTDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PRTERROR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PRTERROR      00     398


 ENTRY ADDRESS       00
 TOTAL LENGTH       398

****PRTERROR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PRTINISH(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PRTINISH      00     AD8


 ENTRY ADDRESS       00
 TOTAL LENGTH       AD8

****PRTINISH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PRTOUT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PRTOUT        00    12B8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      12B8

****PRTOUT    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PRTSETUP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PRTSETUP      00    1EC4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1EC8

****PRTSETUP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PRTTERM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PRTTERM       00     9E9



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       9F0

****PRTTERM   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PRUT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PRUT          00     DAF



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       DB0

****PRUT      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PUNCH(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PUNCH         00    15CE



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      15D0

****PUNCH     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PURDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PURDATA       00     188



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       188

****PURDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME PURGE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  PURGE         00     9E4


 ENTRY ADDRESS       00
 TOTAL LENGTH       9E8

****PURGE     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME QN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  QN            00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****QN        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME QNC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  QNC           00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****QNC       DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RDDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RDDATA        00     2C0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       2C0

****RDDATA    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RDINISH(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RDINISH       00     D58


 ENTRY ADDRESS       00
 TOTAL LENGTH       D58

****RDINISH   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RDLOGIC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RDLOGIC       00     F20


 ENTRY ADDRESS       00
 TOTAL LENGTH       F20

****RDLOGIC   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RDOPRMS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RDOPRMS       00     7C8


 ENTRY ADDRESS       00
 TOTAL LENGTH       7C8

****RDOPRMS   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RESPARAM(R)
IEW0461  CMF
IEW0461  CONSOLES
IEW0461  TVTABLE
IEW0461  AWAITX
IEW0461  DECF
IEW0461  DISKS
IEW0461  CALLTRSW
IEW0461  CALLDRVR
IEW0461  CALLD030
IEW0461  WTDQUE
IEW0461  WTDDRVR
IEW0461  JSSDR
IEW0461  JDR00070
IEW0461  WAIT
IEW0461  JDR0100


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RESPARAM      00     F88
                                        FUNCTLTB      00    FCTTOP        00    IOFCT         F8    JSSFCT       4F0
                                        IOERRFCT     6E0    DSPDCTNY     7D8    DSPDICT      7D8    PURGE        8B8
                                        PRINT        8D8    PUNCH        8F8    MAIN         918    RICONTL      998
                                        ACDS         B58    ISDRVR       C18    DEVREQ       E18    DRDRDCB      F30


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

        D            CMF            $UNRESOLVED                    34            CONSOLES       $UNRESOLVED
       44            CONSOLES       $UNRESOLVED                    3C            TVTABLE        $UNRESOLVED
      134            TVTABLE        $UNRESOLVED                   22C            TVTABLE        $UNRESOLVED
      33C            TVTABLE        $UNRESOLVED                   434            TVTABLE        $UNRESOLVED
      52C            TVTABLE        $UNRESOLVED                   624            TVTABLE        $UNRESOLVED
      71C            TVTABLE        $UNRESOLVED                    49            AWAITX         $UNRESOLVED
      141            AWAITX         $UNRESOLVED                   239            AWAITX         $UNRESOLVED
      61C            AWAITX         $UNRESOLVED                   631            AWAITX         $UNRESOLVED
      729            AWAITX         $UNRESOLVED                   105            DECF           $UNRESOLVED
      13C            DISKS          $UNRESOLVED                   30D            CALLTRSW       $UNRESOLVED
      334            CALLDRVR       $UNRESOLVED                   349            CALLDRVR       $UNRESOLVED
      364            CALLDRVR       $UNRESOLVED                   344            CALLD030       $UNRESOLVED
      405            WTDQUE         $UNRESOLVED                   43C            WTDDRVR        $UNRESOLVED
      441            WTDDRVR        $UNRESOLVED                   4FD            JSSDR          $UNRESOLVED
      534            JSSDR          $UNRESOLVED                   539            JSSDR          $UNRESOLVED
      554            JDR00070       $UNRESOLVED                   62C            WAIT           $UNRESOLVED
      6ED            JDR0100        $UNRESOLVED                   724            JDR0100        $UNRESOLVED

 ENTRY ADDRESS       00



 TOTAL LENGTH       F88

****RESPARAM  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME RIATTACH(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RIATTACH      00     4B6



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       4B8

****RIATTACH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RICBAM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RICBAM        00     39C
                                        RIGETX        14    RIPUTX       124    RITPTX       160    RICLOSEX     18C
                                        RICREX       254


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3A0

****RICBAM    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RICBSCAN(R)
IEW0461  ASPEX003
IEW0461  ASPEX004
IEW0461  ASPEX005
IEW0461  ASPEX006


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RICBSCAN      00    1B9B



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1B24            ASPEX003       $UNRESOLVED                  1B28            ASPEX004       $UNRESOLVED
     1B2C            ASPEX005       $UNRESOLVED                  1B30            ASPEX006       $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH      1BA0

****RICBSCAN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME RICONTL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RICONTL       00     F3A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       F40

****RICONTL   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RIDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RIDATA        00     3C4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3C8

****RIDATA    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RIEXITS(R)
IEW0461  IEFACT
IEW0461  IEFACTF


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RIEXITS       00     AF2
                                        RIXJCL        18    RIXACCT      1C4    RIXATSCN     35E    RIXRET       458
                                        RIXFIND      46A    RIXQMGR      4F0    RIXVHM       A96


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      450            IEFACT         $UNRESOLVED                   4EC            IEFACTF        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       AF8

****RIEXITS   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME RIFETCH(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RIFETCH       00     DC0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       DC0

****RIFETCH   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RISERVX(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RISERVX       00     520


 ENTRY ADDRESS       00
 TOTAL LENGTH       520

****RISERVX   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RJP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RJP           00     284



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       288

****RJP       DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RJPMAIN1(R)
IEW0461  MEXTPOPE
IEW0461  MEXTPGET
IEW0461  MEXTPPUT
IEW0461  MEXTPCLO
IEW0461  RJPSTART
IEW0461  SAVE12
IEW0461  RJPMAIN2
IEW0461  RJPMAIN3
IEW0461  RJPMAIN4


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RJPMAIN1      00     EEC
                                        RJPTVT        00    RMULTILV      2C    DELAY        EE8


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

        4            MEXTPOPE       $UNRESOLVED                     8            MEXTPGET       $UNRESOLVED
        C            MEXTPPUT       $UNRESOLVED                    10            MEXTPCLO       $UNRESOLVED
       14            RJPSTART       $UNRESOLVED                    18            SAVE12         $UNRESOLVED
       20            RJPMAIN2       $UNRESOLVED                    24            RJPMAIN3       $UNRESOLVED
       28            RJPMAIN4       $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       EF0

****RJPMAIN1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME RJPMAIN2(R)
IEW0461  RJPSTART


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RJPMAIN2      00    150B
                                        MEXTPOPE      00    MEXTPGET      38    MEXTPPUT      60    MEXTPCLO      78
                                        RJPOPEN      20C    RJPGET       550    RJPPUT       B7C    RJPCLOSE    130E


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      200            RJPSTART       $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH      1510

****RJPMAIN2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME RJPMAIN3(R)
IEW0461  RIOAPPEN
IEW0461  RJPLBUF


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RJPMAIN3      00    12D8
                                        MGETPBUF      00    MBCWRITE      A8    MBCNEXTR     10C    MBCNTRLR     270
                                        MFINDCT      3AE    MGETLINE     3DA    MSIGNON      5CE    MABORT       B0C
                                        MCCWINIT     F70    MINITIO     10CA    MEXCP       121C    MERREXCP    1230
                                        MSOILEGL    1298


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      AF0            RIOAPPEN       $UNRESOLVED                   AF8            RJPLBUF        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH      12D8

****RJPMAIN3  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME RJPMAIN4(R)
IEW0461  DELAY


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RJPMAIN4      00     75E
                                        RIOAPPEN      00    SAVE12        80    REXCP         8C    RIOERROR     126
                                        RTIMER       3D6    ITIMEUP      412    RCONMSG      424


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       760

****RJPMAIN4  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME RJPMAIN5(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RJPMAIN5      00      80
                                        RJPLBUF       00

 ENTRY ADDRESS       00
 TOTAL LENGTH        80

****RJPMAIN5  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RJPMAIN6(R)
IEW0461  RJPOPEN
IEW0461  RJPGET
IEW0461  RJPPUT
IEW0461  RJPCLOSE
IEW0461  MGETPBUF
IEW0461  MBCWRITE
IEW0461  MBCNEXTR
IEW0461  MBCNTRLR
IEW0461  MFINDCT
IEW0461  MGETLINE
IEW0461  MSIGNON
IEW0461  MABORT
IEW0461  MCCWINIT
IEW0461  MINITIO
IEW0461  MEXCP
IEW0461  MERREXCP
IEW0461  MSOILEGL
IEW0461  REXCP
IEW0461  RIOERROR
IEW0461  RTIMER
IEW0461  ITIMEUP
IEW0461  RCONMSG
IEW0461  RJPLBUF


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RJPMAIN6      00     77C
                                        RJPSTART      00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      5C0            RJPOPEN        $UNRESOLVED                   5C4            RJPGET         $UNRESOLVED
      5C8            RJPPUT         $UNRESOLVED                   5CC            RJPCLOSE       $UNRESOLVED
      5D0            MGETPBUF       $UNRESOLVED                   5D4            MBCWRITE       $UNRESOLVED
      5D8            MBCNEXTR       $UNRESOLVED                   5DC            MBCNTRLR       $UNRESOLVED
      5E0            MFINDCT        $UNRESOLVED                   5E4            MGETLINE       $UNRESOLVED
      5E8            MSIGNON        $UNRESOLVED                   5EC            MABORT         $UNRESOLVED
      5F0            MCCWINIT       $UNRESOLVED                   5F4            MINITIO        $UNRESOLVED
      5F8            MEXCP          $UNRESOLVED                   5FC            MERREXCP       $UNRESOLVED
      600            MSOILEGL       $UNRESOLVED                   604            REXCP          $UNRESOLVED
      608            RIOERROR       $UNRESOLVED                   60C            RTIMER         $UNRESOLVED
      610            ITIMEUP        $UNRESOLVED                   614            RCONMSG        $UNRESOLVED
      618            RJPLBUF        $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       780


****RJPMAIN6  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME RJPSNPS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RJPSNPS       00     89E


 ENTRY ADDRESS       00
 TOTAL LENGTH       8A0

****RJPSNPS   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME RN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RN            00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****RN        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME SN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  SN            00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****SN        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TC            00    11BA



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      11C0

****TC        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TD(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TD            00    1D44



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1D48

****TD        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TL            00     ECC



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       ED0

****TL        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TN            00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****TN        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TN11(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TN11          00     200


 ENTRY ADDRESS       00
 TOTAL LENGTH       200

****TN11      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TP            00      D4


 ENTRY ADDRESS       00
 TOTAL LENGTH        D8

****TP        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TPRDATA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TPRDATA       00     336



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       338

****TPRDATA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TPRERROR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TPRERROR      00     1F9


 ENTRY ADDRESS       00
 TOTAL LENGTH       200

****TPRERROR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TPRINISH(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TPRINISH      00     E06


 ENTRY ADDRESS       00
 TOTAL LENGTH       E08

****TPRINISH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TPROUT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TPROUT        00    13A8


 ENTRY ADDRESS       00
 TOTAL LENGTH      13A8

****TPROUT    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TPRTERM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TPRTERM       00      40


 ENTRY ADDRESS       00
 TOTAL LENGTH        40

****TPRTERM   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TR            00     480


 ENTRY ADDRESS       00
 TOTAL LENGTH       480

****TR        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TRACKS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TRACKS        00     74D
                                        TRACK         00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       750

****TRACKS    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TRCERTN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TRCERTN       00      E0


 ENTRY ADDRESS       00
 TOTAL LENGTH        E0

****TRCERTN   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TT            00    1220



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1220

****TT        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME TVTCSECT(R)
IEW0461  BACKR0
IEW0461  BLOCK
IEW0461  BLOCKS
IEW0461  CLOSE
IEW0461  CONSTIME
IEW0461  ASPTTRAP
IEW0461  DEB
IEW0461  DEBLOCKS
IEW0461  DELETEX
IEW0461  RESMGMT
IEW0461  FDADD
IEW0461  FDDELET
IEW0461  FDFIND
IEW0461  GETBUF
IEW0461  GETMAINX
IEW0461  ASPHALT
IEW0461  INITERM
IEW0461  IOAPPEND
IEW0461  LOADX
IEW0461  LOCATE
IEW0461  LOCATES
IEW0461  NOTE
IEW0461  OPEN
IEW0461  OPEND
IEW0461  POINT
IEW0461  PURGEA
IEW0461  PUTBUF
IEW0461  PUTMAINX
IEW0461  READ
IEW0461  RELEASE
IEW0461  ASAVEYES
IEW0461  ASAVENOR
IEW0461  SETIOB
IEW0461  ASPSIO
IEW0461  ASPABEND
IEW0461  ASPCKPT
IEW0461  ASPCLOSX
IEW0461  ASPEXCPX
IEW0461  AHIO
IEW0461  ASPOPENX
IEW0461  ASPTCH
IEW0461  ASPTIMEX
IEW0461  ASPTIO
IEW0461  TRACK
IEW0461  AWAITX
IEW0461  WEOF
IEW0461  WRITE
IEW0461  CONCLASS
IEW0461  DEQMSGX
IEW0461  DSPSCN
IEW0461  FAILDSPX
IEW0461  JOBNTEST
IEW0461  GETUNI

IEW0461  INTCOM
IEW0461  JNADDX
IEW0461  JNCBHLDX
IEW0461  JNCBRELX
IEW0461  JNDELX
IEW0461  JNGETX
IEW0461  JOBNMBER
IEW0461  JSSRTN
IEW0461  JDR0020
IEW0461  LCLINTX
IEW0461  LOGINX
IEW0461  LOGOUTX
IEW0461  QMESSAGE
IEW0461  MOVE
IEW0461  NCBTAADX
IEW0461  NCBTAFDX
IEW0461  NCBTAGTX
IEW0461  NCBTAPTX
IEW0461  NCBTARLX
IEW0461  PURGCHN
IEW0461  PUTUNI
IEW0461  MSGRECVX
IEW0461  RELSAVER
IEW0461  MSGROUTX
IEW0461  RQTAADDX
IEW0461  RQTADELX
IEW0461  RQTAPUTX
IEW0461  RSVSAVER
IEW0461  MSGSENDX
IEW0461  TAADDX
IEW0461  TACMPRX
IEW0461  TADELX
IEW0461  TAFINDX
IEW0461  TAGETX
IEW0461  TAPUTX
IEW0461  TARESETX
IEW0461  TRACERTN
IEW0461  ASPNEXT
IEW0461  APSW5
IEW0461  APSW4
IEW0461  APSW2
IEW0461  APSW3
IEW0461  VIOLATEX
IEW0461  APSW1
IEW0461  APSW6
IEW0461  WRTCHN
IEW0461  ZEROCRE
IEW0461  JCTFDBTB
IEW0461  DSPDICT
IEW0461  ACDS
IEW0461  ISDRVR
IEW0461  MAIN
IEW0461  RICONTL
IEW0461  PRINT
IEW0461  PUNCH

IEW0461  PURGE
IEW0461  FCTTOP
IEW0461  IOERRFCT
IEW0461  JSSFCT
IEW0461  TAJTABLE
IEW0461  RESTABLX
IEW0461  MAPLIST
IEW0461  ABNDCB
IEW0461  ASPSADCB
IEW0461  CKPTCYL
IEW0461  CKPTDCB
IEW0461  CKPTEXT
IEW0461  CKPTHEAD
IEW0461  CMF
IEW0461  CONSCONS
IEW0461  ERRPOOL
IEW0461  IOBPOOL
IEW0461  ASPECBX
IEW0461  ASPTCBX
IEW0461  CANCDATA
IEW0461  CDFSWORK
IEW0461  CKPTDATA
IEW0461  DRDRDCB
****TVTCSECT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TVTABLE       00     534
                                        TVTSTART      00    WTDQUE       2C0    TRANSTAB     434


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       FC            JNADDX         $UNRESOLVED                   100            JNCBHLDX       $UNRESOLVED
      104            JNCBRELX       $UNRESOLVED                   108            JNDELX         $UNRESOLVED
      10C            JNGETX         $UNRESOLVED                   110            JOBNMBER       $UNRESOLVED
      118            JSSRTN         $UNRESOLVED                   11C            JDR0020        $UNRESOLVED
      120            LCLINTX        $UNRESOLVED                   124            LOGINX         $UNRESOLVED
      128            LOGOUTX        $UNRESOLVED                   12C            QMESSAGE       $UNRESOLVED
      130            MOVE           $UNRESOLVED                   134            NCBTAADX       $UNRESOLVED
      138            NCBTAFDX       $UNRESOLVED                   13C            NCBTAGTX       $UNRESOLVED
      140            NCBTAPTX       $UNRESOLVED                   144            NCBTARLX       $UNRESOLVED
      148            PURGCHN        $UNRESOLVED                   14C            PUTUNI         $UNRESOLVED
      154            MSGRECVX       $UNRESOLVED                   158            RELSAVER       $UNRESOLVED
      174            MSGROUTX       $UNRESOLVED                   178            RQTAADDX       $UNRESOLVED
      17C            RQTADELX       $UNRESOLVED                   180            RQTAPUTX       $UNRESOLVED
      188            RSVSAVER       $UNRESOLVED                   190            MSGSENDX       $UNRESOLVED
      194            TAADDX         $UNRESOLVED                   198            TACMPRX        $UNRESOLVED

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      19C            TADELX         $UNRESOLVED                   1A0            TAFINDX        $UNRESOLVED
      1A4            TAGETX         $UNRESOLVED                   1A8            TAPUTX         $UNRESOLVED
      1AC            TARESETX       $UNRESOLVED                   1B4            TRACERTN       $UNRESOLVED
      1B8            ASPNEXT        $UNRESOLVED                   1BC            APSW5          $UNRESOLVED
      1C0            APSW4          $UNRESOLVED                   1C4            APSW2          $UNRESOLVED
      1C8            APSW3          $UNRESOLVED                   1CC            VIOLATEX       $UNRESOLVED
      1D0            APSW1          $UNRESOLVED                   1D4            APSW6          $UNRESOLVED
      1D8            WRTCHN         $UNRESOLVED                   1DC            ZEROCRE        $UNRESOLVED
      208            JCTFDBTB       $UNRESOLVED                   21C            DSPDICT        $UNRESOLVED
      220            ACDS           $UNRESOLVED                   224            ISDRVR         $UNRESOLVED
      228            MAIN           $UNRESOLVED                   22C            RICONTL        $UNRESOLVED
      230            PRINT          $UNRESOLVED                   234            PUNCH          $UNRESOLVED
      238            PURGE          $UNRESOLVED                   240            FCTTOP         $UNRESOLVED
      248            IOERRFCT       $UNRESOLVED                   24C            JSSFCT         $UNRESOLVED
        4            BACKR0         $UNRESOLVED                     8            BLOCK          $UNRESOLVED
        C            BLOCKS         $UNRESOLVED                    10            CLOSE          $UNRESOLVED
       1C            CONSTIME       $UNRESOLVED                    20            ASPTTRAP       $UNRESOLVED
       24            DEB            $UNRESOLVED                    28            DEBLOCKS       $UNRESOLVED
       2C            DELETEX        $UNRESOLVED                    30            RESMGMT        $UNRESOLVED
       34            FDADD          $UNRESOLVED                    38            FDDELET        $UNRESOLVED
       3C            FDFIND         $UNRESOLVED                    40            GETBUF         $UNRESOLVED
       44            GETMAINX       $UNRESOLVED                    48            ASPHALT        $UNRESOLVED
       4C            INITERM        $UNRESOLVED                    50            IOAPPEND       $UNRESOLVED
       54            LOADX          $UNRESOLVED                    58            LOCATE         $UNRESOLVED
       5C            LOCATES        $UNRESOLVED                    60            NOTE           $UNRESOLVED
       64            OPEN           $UNRESOLVED                    68            OPEND          $UNRESOLVED
       6C            POINT          $UNRESOLVED                    70            PURGEA         $UNRESOLVED
       74            PUTBUF         $UNRESOLVED                    78            PUTMAINX       $UNRESOLVED
       7C            READ           $UNRESOLVED                    80            RELEASE        $UNRESOLVED
       84            ASAVEYES       $UNRESOLVED                    88            ASAVENOR       $UNRESOLVED
       8C            SETIOB         $UNRESOLVED                    90            ASPSIO         $UNRESOLVED
       94            ASPABEND       $UNRESOLVED                    98            ASPCKPT        $UNRESOLVED
       9C            ASPCLOSX       $UNRESOLVED                    A0            ASPEXCPX       $UNRESOLVED
       A4            ASPEXCPX       $UNRESOLVED                    A8            AHIO           $UNRESOLVED
       AC            ASPOPENX       $UNRESOLVED                    B4            ASPTCH         $UNRESOLVED
       B8            ASPTIMEX       $UNRESOLVED                    BC            ASPTIO         $UNRESOLVED
       C0            TRACK          $UNRESOLVED                    C5            AWAITX         $UNRESOLVED
       C9            AWAITX         $UNRESOLVED                    CD            AWAITX         $UNRESOLVED
       D1            AWAITX         $UNRESOLVED                    D4            WEOF           $UNRESOLVED
       D8            WRITE          $UNRESOLVED                    DC            CONCLASS       $UNRESOLVED
       E4            DEQMSGX        $UNRESOLVED                    E8            DSPSCN         $UNRESOLVED
       EC            FAILDSPX       $UNRESOLVED                    F0            JOBNTEST       $UNRESOLVED
       F4            GETUNI         $UNRESOLVED                    F8            INTCOM         $UNRESOLVED
      25C            TAJTABLE       $UNRESOLVED                   27C            RESTABLX       $UNRESOLVED
      2D4            MAPLIST        $UNRESOLVED                   2D8            ABNDCB         $UNRESOLVED
      2DC            ASPSADCB       $UNRESOLVED                   2E0            CKPTCYL        $UNRESOLVED
      2E4            CKPTDCB        $UNRESOLVED                   2E8            CKPTEXT        $UNRESOLVED
      2EC            CKPTHEAD       $UNRESOLVED                   2F0            CMF            $UNRESOLVED
      2F8            CONSCONS       $UNRESOLVED                   2FC            ERRPOOL        $UNRESOLVED
      304            IOBPOOL        $UNRESOLVED                   314            ASPECBX        $UNRESOLVED
      318            ASPTCBX        $UNRESOLVED                   320            CANCDATA       $UNRESOLVED
      324            CDFSWORK       $UNRESOLVED                   328            CKPTDATA       $UNRESOLVED

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      32C            DRDRDCB        $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       538



                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      SETSSI 0301C200
IEW0000      NAME VARY(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  VARY          00     CE5


 ENTRY ADDRESS       00
 TOTAL LENGTH       CE8

****VARY      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME WTDDRVR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  WTDDRVR       00     160



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       160

****WTDDRVR   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME WTDJCT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  WTDJCT        00    1B30


 ENTRY ADDRESS       00
 TOTAL LENGTH      1B30

****WTDJCT    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME XN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  XN            00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****XN        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000      SETSSI 0301C200
IEW0000      NAME YN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  YN            00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****YN        DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0004
IEF285I   SYS78240.T193835.RV000.G10LKASP.R0000030     DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.SV000.G10LKASP.R0000031     SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   ASP.VERSON32                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.G10LKASP.R0000032     KEPT
IEF285I   VOL SER NOS= ASPV32.
IEF373I STEP /STEP1   / START 78240.1940
IEF374I STEP /STEP1   / STOP  78240.1941 CPU   0MIN 02.71SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:40:56.29   ALLOC START    19:40:56.30   MAIN REGION ----- 256K                          *
*   STEP NAME STEP1      STEP END TIME  19:41:01.73   PGM START TIME 19:40:56.37   MAIN STORAGE ---- 130K    CONDITION CODE 0004   *
*   PSTP NAME            ELAPSED TIME   00:00:05.44   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:02.71   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0158 ----------- 12       0159 --------- 5302       0151 --------- 1889       0580 ---------- 317                              *
************************************************************************************************************************************

++STEP2 EXEC PGM=IEWL,
++           PARM='NCAL,LET,LIST,XREF,SIZE=(128K,18K)'
++SYSUT1   DD UNIT=SYSDA,
++            SPACE=(CYL,(5,1))
++SYSPRINT DD SYSOUT=A
++SYSLMOD  DD DSN=ASP.VERSON32,
++            UNIT=&DISK,
IEF653I SUBSTITUTION JCL - UNIT=3330,
++            VOL=SER=&SER,
IEF653I SUBSTITUTION JCL - VOL=SER=ASPSUP,
++            DISP=SHR
//STEP2.SYSLIN DD *
//
IEF236I ALLOC. FOR G10LKASP STEP2
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSLMOD
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LET,LIST,XREF,SIZE=(128K,18K)
           VARIABLE OPTIONS USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSLMOD(ABENDMON,ADEQUEUE,AHIO,ALDADEL,ASAVERTN,ASPABEND)
IEW0000     INCLUDE SYSLMOD(ASPCKPT,ASPCONTL,ASPOPENX,CALLDRVR,CONSAUTH)
IEW0000     INCLUDE SYSLMOD(CONSCONS,CONSINPT,CONSOLES,CONSQMGR,GETPUTMN,GETPUTUN)
IEW0000     INCLUDE SYSLMOD(INITIATE,INTCOM,IODATA,IONUC,IORTNS,JOBCONTL,JOBNUM)
IEW0000     INCLUDE SYSLMOD(JSSDR,LOGINOUT,NETCONTL,RESPARAM,TRACKS,TVTCSECT)
IEW0000     INCLUDE SYSLMOD(WTDDRVR)
IEW0000      ENTRY INITIATE
IEW0000       SETSSI 0301C200
IEW0000        NAME ASPNUC(R)
****ASPNUC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ABENDMON      00     993
                                        PGMCKMON     1C2    FAILDSPX     7C0    CANCDATA     8E8
  ADEQUEUE     998     262
                                        DEQMSGX      998
  AHIO         C00      E0
  ALDADEL      CE0     608
                                        LOADX        CE0    DELETEX     1154
  ASAVERTN    12E8     323
                                        ASAVEYES    12E8    ASAVENOR    146E    RSVSAVER    151C    RELSAVER    1586
  ASPABEND    1610     BCE
                                        ABNDCB      1F40    ASPSADCB    1F98    ABNTADEB    1FD4    MAPLIST     2138
  ASPCKPT     21E0     12E
  CKPTDATA    2310     33C
                                        JCTFDBTB    2318    CKPTDCB     2454    CKPTEXT     24A8    CKPTCYL     24FA
                                        CKPTHEAD    24FD
  ASPCONTL    2650     CBC
                                        AWAITX      2650    MFMKO       2678    WAIT        26B0    ASPNEXT     2724
                                        LCLINTX     27CC    MSGSENDX    2842    MSGRECVX    292A    MSGROUTX    2B60
                                        ASPTIMEX    2D0E    ASPTTRAP    2FF8    ASPECBX     3204    ASPTCBX     3208
                                        ASPPRIV     322C    ASPSIO      322C    ASPTIO      3232    ASPHALT     3238
                                        ASPTCH      323E    APSW1       3244    APSW2       3248    APSW3       324C
                                        APSW4       3250    APSW5       3254    APSW6       3258    VIOLATEX    3268
  ASPOPENX    3310     50F
                                        ASPEXCPX    347A    ASPCLOSX    36AC
  CALLDRVR    3820     234
                                        CALLD030    3868    CDFSWORK    39C0    CALLTRSW    39D0
  CONSAUTH    3A58      16
  CONSCONS    3A70     4EE
                                        CMF         3A7F
  CONSINPT    3F60     E9E
                                        CONSWTCH    4A48
  CONSOLES    4E00     77A
                                        CONSTIME    5530
  CONSQMGR    5580     AD6

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

                                        QMESSAGE    5580    CONCLASS    5DFA
  GETPUTMN    6058     290
                                        GETMAINX    6058    PUTMAINX    615C    ACORECHK    61AE
  GETPUTUN    62E8     BA4
                                        GETUNI      62E8    PUTUNI      6AF2    DSPSCN      6CFC
  INITIATE    6E90     4BC
                                        ABNPRMPT    6EB0    STAELIST    70BC    SPIELIST    70CC    INITERM     7110
  INTCOM      7350     278
  IODATA      75C8     EF9
                                        LOCATE      75C8    BLOCK       7696    DEBLOCKS    780E    DEB         7812
                                        LOCATES     7A8C    BLOCKS      7AF2    PURGEA      7BC6    NOTE        801C
                                        POINT       8054    OPEND       814A    WEOF        825C    BACKR0      82B8
                                        MOVE        8434
  IONUC       84C8    120A
                                        OPEN        84C8    READ        8690    WRITE       86C6    OUTPUT      8714
                                        INPUT       87B4    CLOSE       884C    GETBUF      8A6E    PUTBUF      8C0A
                                        RELEASE     8DE2    DISKS       8E30    DECF        946D    IOAPPEND    94C4
                                        IOBPOOL     95D0    ERRPOOL     965C
  IORTNS      96D8     580
                                        PURGCHN     96D8    WRTCHN      971C    SETIOB      97AE    FDFIND      9870
                                        FDADD       98AA    FDDELET     997E    ZEROCRE     9A2A    TRACERTN    9A6C
                                        CKSPOOL     9ADE    GETRACK     9B94
  JOBCONTL    9C58    10FC
                                        TAFINDX     9C58    TAADDX      9C9C    TAGETX      9E5C    TARESETX    9FAC
                                        TAPUTX      9FDC    TADELX      A08E    TACMPRX     A10A    RQTAADDX    A3B0
                                        RQTADELX    A598    RQTAPUTX    A650    RESMGMT     A6CE    RESTABLX    A8AC
                                        TAJTABLE    A954
  JOBNUM      AD58     264
                                        JOBNMBER    AD58    JOBNTEST    AF50
  JSSDR       AFC0     704
                                        JDR0020     B02A    JSSRTN      B088    JDR0100     B588    JDR00070    B616
  LOGINOUT    B6C8      DC
                                        LOGINX      B6C8    LOGOUTX     B6D8
  NETCONTL    B7A8     5E4
                                        JNADDX      B7A8    JNDELX      B7FE    JNGETX      B848    JNCBHLDX    B8A8
                                        JNCBRELX    B950    NCBTAADX    B9A6    NCBTAFDX    BAEC    NCBTAGTX    BB9A
                                        NCBTARLX    BC5E    NCBTAPTX    BC8E
  RESPARAM    BD90     F88
                                        FUNCTLTB    BD90    FCTTOP      BD90    IOFCT       BE88    JSSFCT      C280
                                        IOERRFCT    C470    DSPDCTNY    C568    DSPDICT     C568    PURGE       C648
                                        PRINT       C668    PUNCH       C688    MAIN        C6A8    RICONTL     C728
                                        ACDS        C8E8    ISDRVR      C9A8    DEVREQ      CBA8    DRDRDCB     CCC0
  TRACKS      CD18     74D
                                        TRACK       CD18
  TVTABLE     D468     534
                                        TVTSTART    D468    WTDQUE      D728    TRANSTAB    D89C
  WTDDRVR     D9A0     160




  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      968            TVTSTART        TVTABLE                      98D            MFMKO           ASPCONTL
     1288            ACORECHK        GETPUTMN                    2138            ASPCKPT         ASPCKPT
     213C            ASPCONTL        ASPCONTL                    2140            ABENDMON        ABENDMON
     2144            IONUC           IONUC                       2148            IODATA          IODATA
     214C            TRACKS          TRACKS                      2150            ASPOPENX        ASPOPENX
     2154            CALLDRVR        CALLDRVR                    2158            CONSOLES        CONSOLES
     215C            CONSQMGR        CONSQMGR                    2160            DEVREQ          RESPARAM
     2164            DSPDCTNY        RESPARAM                    2168            FUNCTLTB        RESPARAM
     216C            GETPUTMN        GETPUTMN                    2170            GETPUTUN        GETPUTUN
     2174            INITIATE        INITIATE                    2178            JOBCONTL        JOBCONTL
     217C            JOBNUM          JOBNUM                      2180            JSSDR           JSSDR
     2184            ALDADEL         ALDADEL                     2188            LOGINOUT        LOGINOUT
     218C            TVTABLE         TVTABLE                     2190            INTCOM          INTCOM
     2194            ADEQUEUE        ADEQUEUE                    2198            CONSINPT        CONSINPT
     219C            NETCONTL        NETCONTL                    21A4            CKPTDATA        CKPTDATA
     21A8            ASAVERTN        ASAVERTN                    21AC            CONSAUTH        CONSAUTH
     21B0            AHIO            AHIO                        21B4            WTDDRVR         WTDDRVR
     21B8            IORTNS          IORTNS                      21BC            CONSCONS        CONSCONS
     21C8            ABNPRMPT        INITIATE                    32E0            TVTSTART        TVTABLE
     3A80            CONSINPT        CONSINPT                    3A84            CONSAUTH        CONSAUTH
     3A88            CONSWTCH        CONSINPT                    6EAC            TVTABLE         TVTABLE
     70F0            TVTABLE         TVTABLE                     70F4            ABNTADEB        ASPABEND
     70F8            ABENDMON        ABENDMON                    70FC            PGMCKMON        ABENDMON
     7100            JSSFCT          RESPARAM                    7104            JSSDR           JSSDR
     84A0            OUTPUT          IONUC                       84A4            INPUT           IONUC
     948C            GETRACK         IORTNS                      94A8            IOFCT           RESPARAM
     94AC            JDR0100         JSSDR                       94B0            CKSPOOL         IORTNS
     B640            MFMKO           ASPCONTL                    BD9D            CMF             CONSCONS
     BDC4            CONSOLES        CONSOLES                    BDD4            CONSOLES        CONSOLES
     BDCC            TVTABLE         TVTABLE                     BEC4            TVTABLE         TVTABLE
     BFBC            TVTABLE         TVTABLE                     C0CC            TVTABLE         TVTABLE
     C1C4            TVTABLE         TVTABLE                     C2BC            TVTABLE         TVTABLE
     C3B4            TVTABLE         TVTABLE                     C4AC            TVTABLE         TVTABLE
     BDD9            AWAITX          ASPCONTL                    BED1            AWAITX          ASPCONTL
     BFC9            AWAITX          ASPCONTL                    C3AC            AWAITX          ASPCONTL
     C3C1            AWAITX          ASPCONTL                    C4B9            AWAITX          ASPCONTL
     BE95            DECF            IONUC                       BECC            DISKS           IONUC
     C09D            CALLTRSW        CALLDRVR                    C0C4            CALLDRVR        CALLDRVR
     C0D9            CALLDRVR        CALLDRVR                    C0F4            CALLDRVR        CALLDRVR
     C0D4            CALLD030        CALLDRVR                    C195            WTDQUE          TVTABLE
     C1CC            WTDDRVR         WTDDRVR                     C1D1            WTDDRVR         WTDDRVR
     C28D            JSSDR           JSSDR                       C2C4            JSSDR           JSSDR
     C2C9            JSSDR           JSSDR                       C2E4            JDR00070        JSSDR
     C3BC            WAIT            ASPCONTL                    C47D            JDR0100         JSSDR
     C4B4            JDR0100         JSSDR                       D564            JNADDX          NETCONTL
     D568            JNCBHLDX        NETCONTL                    D56C            JNCBRELX        NETCONTL
     D570            JNDELX          NETCONTL                    D574            JNGETX          NETCONTL
     D578            JOBNMBER        JOBNUM                      D580            JSSRTN          JSSDR
     D584            JDR0020         JSSDR                       D588            LCLINTX         ASPCONTL
     D58C            LOGINX          LOGINOUT                    D590            LOGOUTX         LOGINOUT
     D594            QMESSAGE        CONSQMGR                    D598            MOVE            IODATA
     D59C            NCBTAADX        NETCONTL                    D5A0            NCBTAFDX        NETCONTL

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     D5A4            NCBTAGTX        NETCONTL                    D5A8            NCBTAPTX        NETCONTL
     D5AC            NCBTARLX        NETCONTL                    D5B0            PURGCHN         IORTNS
     D5B4            PUTUNI          GETPUTUN                    D5BC            MSGRECVX        ASPCONTL
     D5C0            RELSAVER        ASAVERTN                    D5DC            MSGROUTX        ASPCONTL
     D5E0            RQTAADDX        JOBCONTL                    D5E4            RQTADELX        JOBCONTL
     D5E8            RQTAPUTX        JOBCONTL                    D5F0            RSVSAVER        ASAVERTN
     D5F8            MSGSENDX        ASPCONTL                    D4DC            PUTBUF          IONUC
     D4E0            PUTMAINX        GETPUTMN                    D4E4            READ            IONUC
     D4E8            RELEASE         IONUC                       D4EC            ASAVEYES        ASAVERTN
     D4F0            ASAVENOR        ASAVERTN                    D4F4            SETIOB          IORTNS
     D4F8            ASPSIO          ASPCONTL                    D4FC            ASPABEND        ASPABEND
     D500            ASPCKPT         ASPCKPT                     D504            ASPCLOSX        ASPOPENX
     D508            ASPEXCPX        ASPOPENX                    D50C            ASPEXCPX        ASPOPENX
     D510            AHIO            AHIO                        D514            ASPOPENX        ASPOPENX
     D51C            ASPTCH          ASPCONTL                    D520            ASPTIMEX        ASPCONTL
     D524            ASPTIO          ASPCONTL                    D528            TRACK           TRACKS
     D52D            AWAITX          ASPCONTL                    D531            AWAITX          ASPCONTL
     D535            AWAITX          ASPCONTL                    D539            AWAITX          ASPCONTL
     D53C            WEOF            IODATA                      D540            WRITE           IONUC
     D544            CONCLASS        CONSQMGR                    D54C            DEQMSGX         ADEQUEUE
     D550            DSPSCN          GETPUTUN                    D554            FAILDSPX        ABENDMON
     D558            JOBNTEST        JOBNUM                      D55C            GETUNI          GETPUTUN
     D6B4            JSSFCT          RESPARAM                    D46C            BACKR0          IODATA
     D470            BLOCK           IODATA                      D474            BLOCKS          IODATA
     D478            CLOSE           IONUC                       D484            CONSTIME        CONSOLES
     D488            ASPTTRAP        ASPCONTL                    D48C            DEB             IODATA
     D490            DEBLOCKS        IODATA                      D494            DELETEX         ALDADEL
     D498            RESMGMT         JOBCONTL                    D49C            FDADD           IORTNS
     D4A0            FDDELET         IORTNS                      D4A4            FDFIND          IORTNS
     D4A8            GETBUF          IONUC                       D4AC            GETMAINX        GETPUTMN
     D4B0            ASPHALT         ASPCONTL                    D4B4            INITERM         INITIATE
     D4B8            IOAPPEND        IONUC                       D4BC            LOADX           ALDADEL
     D4C0            LOCATE          IODATA                      D4C4            LOCATES         IODATA
     D4C8            NOTE            IODATA                      D4CC            OPEN            IONUC
     D4D0            OPEND           IODATA                      D4D4            POINT           IODATA
     D4D8            PURGEA          IODATA                      D5FC            TAADDX          JOBCONTL
     D600            TACMPRX         JOBCONTL                    D604            TADELX          JOBCONTL
     D608            TAFINDX         JOBCONTL                    D60C            TAGETX          JOBCONTL
     D610            TAPUTX          JOBCONTL                    D614            TARESETX        JOBCONTL
     D61C            TRACERTN        IORTNS                      D620            ASPNEXT         ASPCONTL
     D624            APSW5           ASPCONTL                    D628            APSW4           ASPCONTL
     D62C            APSW2           ASPCONTL                    D630            APSW3           ASPCONTL
     D634            VIOLATEX        ASPCONTL                    D638            APSW1           ASPCONTL
     D63C            APSW6           ASPCONTL                    D640            WRTCHN          IORTNS
     D644            ZEROCRE         IORTNS                      D670            JCTFDBTB        CKPTDATA
     D684            DSPDICT         RESPARAM                    D688            ACDS            RESPARAM
     D68C            ISDRVR          RESPARAM                    D690            MAIN            RESPARAM
     D694            RICONTL         RESPARAM                    D698            PRINT           RESPARAM
     D69C            PUNCH           RESPARAM                    D6A0            PURGE           RESPARAM
     D6A8            FCTTOP          RESPARAM                    D6B0            IOERRFCT        RESPARAM
     D560            INTCOM          INTCOM                      D6C4            TAJTABLE        JOBCONTL
     D6E4            RESTABLX        JOBCONTL                    D73C            MAPLIST         ASPABEND

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     D740            ABNDCB          ASPABEND                    D744            ASPSADCB        ASPABEND
     D748            CKPTCYL         CKPTDATA                    D74C            CKPTDCB         CKPTDATA
     D750            CKPTEXT         CKPTDATA                    D754            CKPTHEAD        CKPTDATA
     D758            CMF             CONSCONS                    D760            CONSCONS        CONSCONS
     D764            ERRPOOL         IONUC                       D76C            IOBPOOL         IONUC
     D77C            ASPECBX         ASPCONTL                    D780            ASPTCBX         ASPCONTL
     D788            CANCDATA        ABENDMON                    D78C            CDFSWORK        CALLDRVR
     D790            CKPTDATA        CKPTDATA                    D794            DRDRDCB         RESPARAM

 ENTRY ADDRESS     6E90
 TOTAL LENGTH      DB00



IEW0000     INCLUDE SYSLMOD(RJPMAIN1,RJPMAIN2,RJPMAIN3)
IEW0000     INCLUDE SYSLMOD(RJPMAIN4,RJPMAIN5,RJPMAIN6)
IEW0000      ENTRY RJPTVT
IEW0000       SETSSI 0301C200
IEW0000        NAME RJPMAIN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RJPMAIN1      00     EEC
                                        RJPTVT        00    RMULTILV      2C    DELAY        EE8
  RJPMAIN2     EF0    150B
                                        MEXTPOPE     EF0    MEXTPGET     F28    MEXTPPUT     F50    MEXTPCLO     F68
                                        RJPOPEN     10FC    RJPGET      1440    RJPPUT      1A6C    RJPCLOSE    21FE
  RJPMAIN3    2400    12D8
                                        MGETPBUF    2400    MBCWRITE    24A8    MBCNEXTR    250C    MBCNTRLR    2670
                                        MFINDCT     27AE    MGETLINE    27DA    MSIGNON     29CE    MABORT      2F0C
                                        MCCWINIT    3370    MINITIO     34CA    MEXCP       361C    MERREXCP    3630
                                        MSOILEGL    3698
  RJPMAIN4    36D8     75E
                                        RIOAPPEN    36D8    SAVE12      3758    REXCP       3764    RIOERROR    37FE
                                        RTIMER      3AAE    ITIMEUP     3AEA    RCONMSG     3AFC
  RJPMAIN5    3E38      80
                                        RJPLBUF     3E38
  RJPMAIN6    3EB8     77C
                                        RJPSTART    3EB8


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

        4            MEXTPOPE        RJPMAIN2                       8            MEXTPGET        RJPMAIN2
        C            MEXTPPUT        RJPMAIN2                      10            MEXTPCLO        RJPMAIN2
       14            RJPSTART        RJPMAIN6                      18            SAVE12          RJPMAIN4
       20            RJPMAIN2        RJPMAIN2                      24            RJPMAIN3        RJPMAIN3
       28            RJPMAIN4        RJPMAIN4                    10F0            RJPSTART        RJPMAIN6
     2EF0            RIOAPPEN        RJPMAIN4                    2EF8            RJPLBUF         RJPMAIN5
     4478            RJPOPEN         RJPMAIN2                    447C            RJPGET          RJPMAIN2
     4480            RJPPUT          RJPMAIN2                    4484            RJPCLOSE        RJPMAIN2
     4488            MGETPBUF        RJPMAIN3                    448C            MBCWRITE        RJPMAIN3
     4490            MBCNEXTR        RJPMAIN3                    4494            MBCNTRLR        RJPMAIN3
     4498            MFINDCT         RJPMAIN3                    449C            MGETLINE        RJPMAIN3
     44A0            MSIGNON         RJPMAIN3                    44A4            MABORT          RJPMAIN3
     44A8            MCCWINIT        RJPMAIN3                    44AC            MINITIO         RJPMAIN3
     44B0            MEXCP           RJPMAIN3                    44B4            MERREXCP        RJPMAIN3
     44B8            MSOILEGL        RJPMAIN3                    44BC            REXCP           RJPMAIN4
     44C0            RIOERROR        RJPMAIN4                    44C4            RTIMER          RJPMAIN4
     44C8            ITIMEUP         RJPMAIN4                    44CC            RCONMSG         RJPMAIN4
     44D0            RJPLBUF         RJPMAIN5
 ENTRY ADDRESS       00



 TOTAL LENGTH      4638

****RJPMAIN   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.RV000.G10LKASP.R0000033     DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.SV000.G10LKASP.R0000034     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   ASP.VERSON32                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.G10LKASP.S0000035     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G10LKASP.S0000035     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /STEP2   / START 78240.1941
IEF374I STEP /STEP2   / STOP  78240.1941 CPU   0MIN 00.31SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:41:01.75   ALLOC START    19:41:01.76   MAIN REGION ----- 256K                          *
*   STEP NAME STEP2      STEP END TIME  19:41:02.17   PGM START TIME 19:41:01.83   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.42   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.31   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0353 ----------- 24       0158 ---------- 280       0151 ---------- 394       0130 ----------- 15                              *
************************************************************************************************************************************

IEF375I  JOB /G10LKASP/ START 78240.1940
IEF376I  JOB /G10LKASP/ STOP  78240.1941 CPU   0MIN 03.02SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G10LKASP   JOB READ TIME 19:40:56.14   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:03.02   *
*   JOB CLASS A          JOB INIT TIME 19:40:56.29   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:05.90   *
*   ACCOUNT   ASP        JOB END TIME  19:41:02.19   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG        1          1     LL         KK     KK  M       M  N      NN                            A
            GGGGGGGGG      11         11     LL         KK    KK   MM     MM  NN     NN                           AAA
            GG     GG     111        111     LL         KK   KK    MMM   MMM  NNN    NN                          AA AA
            GG             11         11     LL         KK  KK     MMMM MMMM  NNNN   NN                         AA   AA
            GG             11         11     LL         KK KK      MM MMM MM  NN NN  NN                        AA     AA
            GG   GGGG      11         11     LL         KKKKK      MM  M  MM  NN  NN NN                        AA     AA
            GG   GGGG      11         11     LL         KKK KK     MM     MM  NN   NNNN                        AAAAAAAAA
            GG     GG      11         11     LL         KK   KK    MM     MM  NN    NNN                        AAAAAAAAA
            GGGGGGGGG    111111     111111   LLLLLLLLL  KK    KK   MM     MM  NN     NN                        AA     AA
             GGGGGGG     111111     111111   LLLLLLLLL  KK     KK  MM     MM  NN      N                        AA     AA

***********A  START   G11LKMN    SYS SYSA   WTR 00E   07:41:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   G11LKMN    START  A***********
***********A  START   G11LKMN    SYS SYSA   WTR 00E   07:41:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   G11LKMN    START  A***********
***********A  START   G11LKMN    SYS SYSA   WTR 00E   07:41:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   G11LKMN    START  A***********
***********A  START   G11LKMN    SYS SYSA   WTR 00E   07:41:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   G11LKMN    START  A***********
***********A  START   G11LKMN    SYS SYSA   WTR 00E   07:41:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   G11LKMN    START  A***********


//G11LKMN  JOB ASP,G11LINKMAIN,MSGLEVEL=(1,1),REGION=128K,CLASS=A
***********************************************************************
***                                                                 ***
***    Job:      G11LINKMAIN                                        ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Link ASP maintask modules to ASP.MAINTASK and      ***
***              IKJEFF53 TSO STATUS/CANCEL/HOLD/RELEASE/OUTPUT     ***
***              exit to SYS1.LINKLIB.                              ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
//LINK PROC SER1=,SER2=,DISK1=3330,DISK2=3330
//*
//*    SER1= THE VOLID OF DISK PACK FOR THE ASP.MAINTASK DATASET
//*    SER2= THE VOLID OF DISK PACK CONTAINING THE ASP.VERSION32
//*          DATASET
//*    DISK1= SYMBOLIC NAME OF DISK DRIVE FOR SER1 (I.E. 3330)
//*    DISK2= SYMBOLIC NAME OF DISK DRIVE FOR SER2 (I.E. 3330)
//*
//STEP1 EXEC PGM=IEWL,
//           PARM='NCAL,LET,LIST,XREF,RENT,SIZE=(128K,18K)'
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=A
//SYSLIB   DD DSN=ASP.VERSON32,
//            UNIT=&DISK2,
//            VOL=SER=&SER2,
//            DISP=SHR
//SYSLMOD  DD DSN=ASP.MAINTASK,
//            UNIT=&DISK1,
//            VOL=SER=&SER1,
//            DISP=SHR,
//*           DISP=(NEW,KEEP),
//            SPACE=(CYL,(2,,5))
//STEP2 EXEC PGM=IEWL,
//           PARM='NCAL,LET,LIST,XREF,RENT,SIZE=(128K,18K)'
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=A
//SYSLIB   DD DSN=ASP.VERSON32,
//            UNIT=&DISK2,
//            VOL=SER=&SER2,
//            DISP=SHR
//SYSLMOD  DD DSN=MVT1.LINKLIB,VOL=SER=ASPRES,UNIT=SYSDA,
//            DISP=SHR
//      PEND
//LINKMT EXEC LINK,SER1=ASPSUP,SER2=ASPSUP
++LINK PROC SER1=,SER2=,DISK1=3330,DISK2=3330
***
***    SER1= THE VOLID OF DISK PACK FOR THE ASP.MAINTASK DATASET
***    SER2= THE VOLID OF DISK PACK CONTAINING THE ASP.VERSION32
***          DATASET
***    DISK1= SYMBOLIC NAME OF DISK DRIVE FOR SER1 (I.E. 3330)
***    DISK2= SYMBOLIC NAME OF DISK DRIVE FOR SER2 (I.E. 3330)
***
++STEP1 EXEC PGM=IEWL,
++           PARM='NCAL,LET,LIST,XREF,RENT,SIZE=(128K,18K)'
++SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
++SYSPRINT DD SYSOUT=A
++SYSLIB   DD DSN=ASP.VERSON32,
++            UNIT=&DISK2,
IEF653I SUBSTITUTION JCL - UNIT=3330,
++            VOL=SER=&SER2,
IEF653I SUBSTITUTION JCL - VOL=SER=ASPSUP,
++            DISP=SHR
++SYSLMOD  DD DSN=ASP.MAINTASK,
++            UNIT=&DISK1,
IEF653I SUBSTITUTION JCL - UNIT=3330,
++            VOL=SER=&SER1,
IEF653I SUBSTITUTION JCL - VOL=SER=ASPSUP,
++            DISP=SHR,
***           DISP=(NEW,KEEP),
++            SPACE=(CYL,(2,,5))
//STEP1.SYSLIN DD *
IEF236I ALLOC. FOR G11LKMN  STEP1    LINKMT
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 151   ALLOCATED TO SYSLMOD
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LET,LIST,XREF,RENT,SIZE=(128K,18K)
           VARIABLE OPTIONS USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSLIB(ADSGEN)
IEW0000      SETSSI 0301C200
IEW0000       NAME ADSGEN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ADSGEN        00    1E50



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1E50

****ADSGEN    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(AOUTPUT)
IEW0000      SETSSI 0301C200
IEW0000       NAME AOUTPUT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  AOUTPUT       00    2211



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      2218

****AOUTPUT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(ASPCTCM)
IEW0000      SETSSI 0301C200
IEW0000       NAME ASPCTCM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPCTCM       00     60E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       610

****ASPCTCM   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(ASPFENCE)
IEW0000      SETSSI 0301C200
IEW0000       NAME ASPFENCE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPFENCE      00    19E8
  FNCEMSGS    19E8     1AF



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      380            FNCEMSGS        FNCEMSGS                     D18            FNCEMSGS        FNCEMSGS
     1364            FNCEMSGS        FNCEMSGS
 ENTRY ADDRESS       00
 TOTAL LENGTH      1B98

****ASPFENCE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(ASPLOC)
IEW0000      SETSSI 0301C200
IEW0000       NAME ASPLOC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPLOC        00     7C4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       7C8

****ASPLOC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(ASPQALL)
IEW0000      SETSSI 0301C200
IEW0000       NAME ASPQALL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPQALL       00     47D



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       480

****ASPQALL   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(ASPQRDR)
IEW0000      SETSSI 0301C200
IEW0000       NAME ASPQRDR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPQRDR       00     5B3



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       5B8

****ASPQRDR   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(ASPVER)
IEW0000      SETSSI 0301C200
IEW0000       NAME ASPVER(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPVER        00    128B



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1290

****ASPVER    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(ASPVSTAT)
IEW0000      SETSSI 0301C200
IEW0000       NAME ASPVSTAT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPVSTAT      00     D88



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D88

****ASPVSTAT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(ASPWRITR)
IEW0000      SETSSI 0301C200
IEW0000       NAME ASPWRITR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPWRITR      00     6A8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       6A8

****ASPWRITR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(ASUBMIT)
IEW0000      SETSSI 0301C200
IEW0000       NAME ASUBMIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASUBMIT       00     D74



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D78

****ASUBMIT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(DYNDISP)
IEW0000      SETSSI 0301C200
IEW0000       NAME DYNDISP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DYNDISP       00     40E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       410

****DYNDISP   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(MAINTASK)
IEW0000      SETSSI 0301C200
IEW0000       NAME MAINTASK(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MAINTASK      00     FF4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       FF8

****MAINTASK  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.RV000.G11LKMN.R0000036      DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.SV000.G11LKMN.R0000037      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   ASP.VERSON32                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   ASP.MAINTASK                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.G11LKMN.S0000038      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G11LKMN.S0000038      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /STEP1   / START 78240.1941
IEF374I STEP /STEP1   / STOP  78240.1941 CPU   0MIN 00.26SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:41:15.36   ALLOC START    19:41:15.37   MAIN REGION ----- 256K                          *
*   STEP NAME STEP1      STEP END TIME  19:41:15.76   PGM START TIME 19:41:15.44   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME LINKMT     ELAPSED TIME   00:00:00.40   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.26   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0353 ------------ 0       0158 ---------- 252       0151 ----------- 97       0151 ----------- 97       0130 ----------- 40    *
************************************************************************************************************************************

++STEP2 EXEC PGM=IEWL,
++           PARM='NCAL,LET,LIST,XREF,RENT,SIZE=(128K,18K)'
++SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
++SYSPRINT DD SYSOUT=A
++SYSLIB   DD DSN=ASP.VERSON32,
++            UNIT=&DISK2,
IEF653I SUBSTITUTION JCL - UNIT=3330,
++            VOL=SER=&SER2,
IEF653I SUBSTITUTION JCL - VOL=SER=ASPSUP,
++            DISP=SHR
++SYSLMOD  DD DSN=MVT1.LINKLIB,VOL=SER=ASPRES,UNIT=SYSDA,
++            DISP=SHR
//STEP2.SYSLIN DD *
//
IEF236I ALLOC. FOR G11LKMN  STEP2    LINKMT
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LET,LIST,XREF,RENT,SIZE=(128K,18K)
           VARIABLE OPTIONS USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSLIB(IKJEFFHR)
IEW0000      ALIAS HOLD
IEW0000      ALIAS RELEASE
IEW0000      ALIAS REL
IEW0000       SETSSI 0301C200
IEW0000        NAME IKJEFFHR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFFHR      00     3C6
  IKJEFF57     3C8      36



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      3B0            IKJEFF57        IKJEFF57
 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IKJEFFHR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****REL       IS AN ALIAS FOR THIS MEMBER
****RELEASE   IS AN ALIAS FOR THIS MEMBER
****HOLD      IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(IKJEFF53)
IEW0000      SETSSI 0301C200
IEW0000       NAME IKJEFF53(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF53      00     2F8


 ENTRY ADDRESS       00
 TOTAL LENGTH       2F8

****IKJEFF53  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.RV000.G11LKMN.R0000039      DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.SV000.G11LKMN.R0000040      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   ASP.VERSON32                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G11LKMN.S0000041      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G11LKMN.S0000041      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /STEP2   / START 78240.1941
IEF374I STEP /STEP2   / STOP  78240.1941 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:41:15.78   ALLOC START    19:41:15.79   MAIN REGION ----- 256K                          *
*   STEP NAME STEP2      STEP END TIME  19:41:15.96   PGM START TIME 19:41:15.86   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME LINKMT     ELAPSED TIME   00:00:00.18   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0353 ------------ 0       0353 ----------- 46       0151 ----------- 13       0150 ----------- 13       0130 ----------- 10    *
************************************************************************************************************************************

IEF375I  JOB /G11LKMN / START 78240.1941
IEF376I  JOB /G11LKMN / STOP  78240.1941 CPU   0MIN 00.33SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G11LKMN    JOB READ TIME 19:41:15.18   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.33   *
*   JOB CLASS A          JOB INIT TIME 19:41:15.36   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.62   *
*   ACCOUNT   ASP        JOB END TIME  19:41:15.98   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG        1      2222222       A       OOOOOOO   BBBBBBBB          JJ                            A
            GGGGGGGGG      11     222222222     AAA     OOOOOOOOO  BBBBBBBBB         JJ                           AAA
            GG     GG     111     22     22    AA AA    OO     OO  BB     BB         JJ                          AA AA
            GG             11           22    AA   AA   OO     OO  BB     BB         JJ                         AA   AA
            GG             11          22    AA     AA  OO     OO  BBBBBBBB          JJ                        AA     AA
            GG   GGGG      11         22     AA     AA  OO     OO  BBBBBBBB          JJ                        AA     AA
            GG   GGGG      11        22      AAAAAAAAA  OO     OO  BB     BB         JJ                        AAAAAAAAA
            GG     GG      11       22       AAAAAAAAA  OO     OO  BB     BB  JJ     JJ                        AAAAAAAAA
            GGGGGGGGG    111111    22222222  AA     AA  OOOOOOOOO  BBBBBBBBB  JJJJJJJJJ                        AA     AA
             GGGGGGG     111111   222222222  AA     AA   OOOOOOO   BBBBBBBB    JJJJJJJ                         AA     AA

***********A  START   G12AOBJ    SYS SYSA   WTR 00E   07:41:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   G12AOBJ    START  A***********
***********A  START   G12AOBJ    SYS SYSA   WTR 00E   07:41:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   G12AOBJ    START  A***********
***********A  START   G12AOBJ    SYS SYSA   WTR 00E   07:41:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   G12AOBJ    START  A***********
***********A  START   G12AOBJ    SYS SYSA   WTR 00E   07:41:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   G12AOBJ    START  A***********
***********A  START   G12AOBJ    SYS SYSA   WTR 00E   07:41:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   G12AOBJ    START  A***********


//G12AOBJ  JOB 1,G12AOBJ320,MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      G12AOBJ320                                         ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Create ASP.OBJ320 PDS of ASP utilty program        ***
***              object decks and link them to ASP.ASPPGMS.         ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
//UPDTE  EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD SYSOUT=A
//SYSUT2   DD DSN=ASP.OBJ320,
//            DISP=OLD,
****          DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,SPACE=(CYL,(1,,8)),VOL=SER=ASPSUP,
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SYSIN    DD DSN=ASP.OBJIN,
//            DISP=OLD,
//            UNIT=TAPE,VOL=SER=ASPUTL
***
IEF236I ALLOC. FOR G12AOBJ  UPDTE
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 580   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ ADD NAME=MVTSVC
       ESD          IGC246        CTCMCS      CTCNMCS  K           00000001
       ESD          MTVT         CTCMUCB        ATNTAB                 00000002
       ESD          	CTCATN         CTCMONSW       IEASCSAV               00000003
       ESD          IEAQTR00       IBMORG         USERORG                00000004
       ESD          LOWUSER        IEATYPE1       LASPTCH                00000005
       TXT          	{-D  0D{  0{0{ 0{0{͆0{͆0B0B00000006
       TXT         - ---0{-{NA{|NB &&00000007
       TXT         A=N& AK&-D--j- NC&&&- }00000008
       TXT   y      {&&-Ayn }A%&޺A=&&A=N&D&&-AA=00000009
       TXT   \      &&A=n &KB
BnA n MB
&NB
Bn&K00000010
       TXT        B&0A&-Aņ0{ڍ&ޅ-AykAA=N&C6n&&D.&00000011
       TXT  &      Dԡ kAA=&& A=&&Ȇ0{ڍ& A=KB& 0A&& f00000012
       TXT  h      &BjBnA& b6&u6KBB&jhAN00000013
       TXT  {      CA}/ 
.&D0AU/ .&D0AU/ .&D&A2&A8kAK B
00000014
       TXT  8      - K - BIJAD                                            00000015
       TXT                                                                00000016
       TXT                                                              /00000017
       TXT        0B}kPC&B8& m 00;0S&0q;0SK 
5;0S&00000018
       TXT  Q      0Í ۍ &K& 
K-  
K- 
q;0S5 1;o 00000019
       TXT         z   1 Ç  0- 0u 00n0n0~ K00000020
       TXT        1|1>&1:&      0=0k1:0K1: 00N1ӆ000000021
       TXT         0ᇤ  0N1ӆ0 0\u &06m 5b 1     00000022
       TXT                                                                00000023
       TXT  \      X         dIEE600I IEFWDMSGIEA000A            00000024
       TXT          	IEFASPSVC       MTVT  TRACE                       00000025
       TXT  &                                                              00000026
       TXT                                                               00000027
       TXT                                                                00000028
       RLD             
        h    	     m    00000029
       RLD              q         u   y    
  00000030
       END                            15734AS100 050175185                    00000031
IEB817I MEMBER NAME (MVTSVC  ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002


       ./ ADD NAME=ASPPROGM
       ESD          ASPPROGM      @                                            0001
       TXT          }Խ~M&}&}K  N~}0 0N    0002
       TXT         ~K0 kN	&0~nN	~  * js<޸&~0~     0003
       TXT         Խ& n, k  Խ@~  ~k= Խ    0004
       TXT   y       ~s ~ō0	s ~:0	Q  U    0005
       TXT   \       ʠ08   0    IEHPROGMݍ~ &}q}K ~     0006
       TXT        K  MVTMFT44K30K RENAME DSNAME=SYS1.SVCLIB,MEMBER=IGG0    0007
       TXT  &      190A,NEWNAME=IGG0190$,           +                          0008
       TXT  h       VOL=                                                       0009
       TXT  {                      2021                                        0010
       TXT  8                                                                  0011
       TXT                        SYSIN     &         &              0012
       TXT              &                                                  0013
       RLD               ذ  N    Y                                        0014
       END                                   F15OCT70 16.19  8/22/72              0015
IEB817I MEMBER NAME (ASPPROGM) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0003


       ./ ADD NAME=DELINK0
       ESD          DELINK0       
                                        DELI0001
       TXT          }	{&}ό}ψ {    &j  k jȆQfԛDELI0002
       TXT         O {            &j  &~ & kjȆjȆjDELI0003
       TXT         ȆPJ4ԛ &DwoKM -n> {yo DELI0004
       TXT   y      Jnԭ & \{B  Kn  C {j :f KDELI0005
       TXT   \      0Jn JޔbC*j{KK*KfKJK*&A!J8ԛ jDELI0006
       TXT        KƆAޢS7Dwn Aj  E 0A : ޅA@ NDELI0007
       TXT  &      K* BjAbh ԭ .冽A&J8J0AK  DELI0008
       TXT  h      JAkm Jm0A2jJm
jEj
NJKJAm J{-J{DELI0009
       TXT  {      $-JM&-JDkJDKJk0Bߤ  B|  -Jf-i- !-J4w:wDELI0010
       TXT  8      KK* KJ 0BKJoJm5j
jEKJ~
j-JnBDELI0011
       TXT        k JK
Jz-Jy$-J{k -J JK JoKJNKJDJJ JDDELI0012
       TXT        K Jj ok -KjBoK-  K-JDKDELI0013
       TXT        Jko  Jԅ   J-KBF&-Kj	JH5 KK  jDELI0014
       TXT  Q      BK JmJi   Ouԛ &-J  DELI0015
       TXT        JjC-E-DWh Jn-C  սC J JDELI0016
       TXT        q-Dԅ & Kԅ & K5f0KK 0 0 8KKDELI0017
       TXT        KC*ԛ DwhJi KK C*ԛDw4K    o DELI0018
       TXT        ԅ n CF;0jDoj-Jn{KCoJn J& DELI0019
       TXT  0      ;nXJD   Jqk Jԅ Jj0 \k  DO D
DELI0020
       TXT        J2JyJ Jy& Jy0{K K*& o;KKK & K  K6  DELI0021
       TXT  -      JyhJj0DnA knFkj Joi    DELI0022
       TXT  q      D&Jy0{Kj 0Dd D                   &j &~   DELI0023
       TXT  }      1 00	D\0\	8 D                   &j DELI0024
       TXT  	      &~   1 00	o6D\0\	6m-K k - K-DELI0025
       TXT  	       - ?6j|&JUK Jm $J4: J40AJUjKņE@nDELI0026
       TXT  	      JE@ C | h- ԅjJnEm"JnKJ  NJ  EDELI0027
       TXT  	      j 
H ԅ -Ej &Hԛ DwԛDwj E@j DELI0028
       TXT  	Y      &H0EKo 
K Jm  KJ N FKJJso
ԭDwDELI0029
       TXT        j
F&JY0F:&JYK&m jJmF<mJm0Hԭ DELI0030
       TXT        ԛ&JԮK FKFDwj HJM &J\DELI0031
       TXT          j
FN	JN GN	JᆽGKJA	o
m J{J{$DELI0032
       TXT  H      JM&J{K	JA!JYjGjj
F0GKJA m J{DELI0033
       TXT         &J{$&J&&J{K JA0G<KJ{ j
GGjGKJ{ &DELI0034
       TXT        J{$&J&&J{K J{0G<K JjG*o
0Gm"
 .DELI0035
       TXT         .ˆFkj Gqj &Gqo
Dwj F&JU0HoDELI0036
       TXT  y       jG< .0Gu:   i  ! J4KJ j HoDELI0037
       TXT  \      uj	 {GNK:  GKJEJk	JD0H i &JDP

DELI0038
       TXT        Jk  Jk   σ&Bqσ0HK  KJq:8K Jm jDELI0039
       TXT  &      H&BFԛ &JY K&J kJOK  K 	J]K DELI0040
       TXT  h      K Ju-&}H}K  -E-DW-J &-J  JDELI0041
       TXT  {      -D .&0HK   {H-J&-J  &&Hʠ-E-DWDELI0042
       TXT  8        J-DJj
<m7
 K  ϻԅ ч ԡDELI0043
       TXT         j ʧo
KJ0 K    ԅ  j I% ՆIDELI0044
       TXT        0IՆIK  Ȧ ԅ  j I%0Ij IoDELI0045
       TXT        
Km
 : -. m    J-E-DW֠-DK  ϻԅDELI0046
       TXT  Q        ̸j
Im"
o
K  J0ԅ  0I%0IjȦDELI0047
       TXT        ʺ 0I 0ʧJj
<j
 &<ԭj DELI0048
       TXT        <&J0Ij
Ij
HjJmHm
 ԅ  $ JM& JDELI0049
       TXT         ԅfjJnm"JnKJ  N  JH  JJYDELI0050
       TXT        Kh &Kh &K0FjM&BFj-JnmJnk HAKJJDELI0051
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0004


       TXT  0       Kԅ & JY0HKK -ԛ &O-E-DW-E0{DELI0052
       TXT        J+J{3J}JFo0JLKJ6j
f ӊ ϩֽϧ!DELI0053
       TXT  -      ֽϱ &2  8   { !.ϧ& ϧ DELI0054
       TXT  q      $.ϩ.ϱ.ϲ&o
k KK+K
KK	JJK$JJmDELI0055
       TXT  }      m
mJnk Jm&J4&J8!&Jϩϱk  K &        DELI0056
       RLD             
                                              DELI0057
       ESD          FESNAP                                                 DELI0058
       TXT         K &K &K &K kHA  0o 0o 0oDELI0059
       TXT         0o 0o 	0oj	BjA} 0o 0oDELI0060
       TXT         0o 0o 0o 0o 0o 
i 	!WDELI0061
       TXT  y      k MIoJnKMMIKM -{0QKLU0joDELI0062
       TXT  \      
j
6         
@ 
   jDELI0063
       TXT  
      
jJn0  0ϒq}0 00 0J JDELI0064
       TXT  
&      n
Jޕk J M0	 Mz0	6              DELI0065
       TXT  
h                           m   SYSPRINT  &         e    DELI0066
       TXT  
{                  e                                    DELI0067
       TXT  
8               SYSPUNCH          &               &DELI0068
       TXT                                           O   SYSIN     DELI0069
       TXT                 &               &                       DELI0070
       TXT                    {   SYSLIB                      DELI0071
       TXT  Q                  @  f            Q          q DELI0072
       TXT               ESDTXTRLDEND                            DELI0073
       TXT                                                                DELI0074
       TXT                                            }}& 0        DELI0075
       TXT                                                                DELI0076
       TXT  0                                                              DELI0077
       TXT                                                                DELI0078
       TXT  -                                                              DELI0079
       TXT  q                                                              DELI0080
       TXT  }                                     9                     DELI0081
       TXT                                                                DELI0082
       TXT                                                               DELI0083
       TXT                                                                DELI0084
       TXT                    UNABLE TO OPEN SYSLIB.          UNABLE TO OPDELI0085
       TXT  Y      EN SYSIN.           UNABLE TO OPEN SYSPUNCH         I/O DELI0086
       TXT        ERROR ON SYSPUNCH.          I/O ERROR ON SYSIN.         DELI0087
       TXT            I/O ERROR ON SYSLIB.            ESD NAME NOT SECTIONDELI0088
       TXT         DEFINITION.NAME MORE THAN EIGHT CHARACTORS.TEXT FOR CSEDELI0089
       TXT  H      CT NOT FOUND.       ADCON NOT 3 OR 4 BYTES**ERROR**.NO  DELI0090
       TXT         MEMBER NAME RECEIVED.       MEMBER NAME NOT FOUND IN PDSDELI0091
       TXT        .   ESD BUFFER OVERFLOW.            NUMBER OR EXTEND CARDELI0092
       TXT        D INCORRECT 1          DELINK0        V01 L0   EXPAND ANDELI0093
       TXT  y      D NOT EDITABLE FUNCTION  08 / 08 / 69                   DELI0094
       TXT  \                                       0                      DELI0095
       TXT                                                                DELI0096
       TXT  &                                                            KDELI0097
       TXT  h       Kk KK
KǠ&BK jKԭ&JUkJmKJKDELI0098
       TXT  {      JoJnKKKC* J 0F                        DELI0099
       TXT  8                                                              DELI0100
       RLD              
 
	 
 


  
 %
 D
 U
 Y    DELI0101
       RLD              \                                                DELI0102
       TXT  
                                                              DELI0103
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0005


       END                                                                    DELI0104
IEB817I MEMBER NAME (DELINK0 ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0006


       ./ ADD NAME=LPA
       ESD          LPA                                                   LPA 0001
       TXT          }~sY  rNt ør d ±j~LPA 0002
       TXT          ;   LPA-CANNOT OPEN LINKLIB DD                  LPA 0003
       TXT   ;      0~ ~Yݸ~@k	1 00	~@\0\	ԅ N   LPA 0004
       TXT   o      M ~O ~krm"  n \ &~qi& &~mLPA 0005
       TXT         ~Y\Ԡ  0݆~@k	1 00	~@\0\	LPA 0006
       TXT        n ۸2                                            LPA 0007
       TXT         0~  ~
2                                { LPA 0008
       TXT          LINKLIB                                    LPA 0009
       TXT  b           Y    2B                                    LPA 0010
       TXT                                                                LPA 0011
       TXT  2                                                              LPA 0012
       TXT                                                                LPA 0013
       TXT                                                                LPA 0014
       TXT                                                                LPA 0015
       TXT  K                            IEFHRFK2IEFMVTHRIEFMVTJAIEFVHA  IELPA 0016
       TXT        FVHCB IEFVHF  IEFVHREPIEFVINA IEFVJA  IEZDCODE      LPA 0017
       TXT         REUS                                                    LPA 0018
       RLD                
 d h                                    LPA 0019
       END                                   F15OCT70 08.50  8/18/72          LPA 0020
IEB817I MEMBER NAME (LPA     ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0007


       ./ ADD NAME=MVT0192Z
       ESD                         IFG0192Z                               CT210001
       TXT          	ȍnk wmm"Pmj -KɒK
CT210002
       TXT         o { j{&K	Q0ȌK	\K	 0K	 ԛ { CT210003
       TXT             K ~KK
K{ n {ȭK{K{CT210004
       TXT   y      0țK{ ܆0n. On    0Ȫ0bCT210005
       TXT   \      K &  k  Բ& k Բ  	VnU 8K ɶ\  CT210006
       TXT        0&K0Un   0$N h<N m*KCT210007
       TXT  &      K ަ0UN N :K 0U ܆0ȪN { CT210008
       TXT  h       ASPOASPIJESIJESO     ASP   IECASP0 XXX IS   3B      CT210009
       TXT  {                                                              CT210010
       TXT  8                                                              CT210011
       TXT                                                                CT210012
       TXT                                                                CT210013
       TXT                                                                CT210014
       TXT  Q                                                              CT210015
       TXT                                                                CT210016
       TXT                                                                CT210017
       TXT                                                                CT210018
       TXT                                                                CT210019
       TXT  0                  019                                        CT210020
       END                            15734AS100 050175185                    CT210021
IEB817I MEMBER NAME (MVT0192Z) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0008


       ./ ADD NAME=IFG0552X
       ESD          IFG0552X                                               00000001
       TXT          	ȍ{ {{ {{{{ jȆȺ0̆00>00000000002
       TXT         Ӡ}oo jņ;j\;mm j 00000003
       TXT         n } jņȮj ņˮ000 0ˑˮjņj00000004
       TXT   y      Ȫ000 k00j\j \n}ȍ}}} }00000005
       TXT   \       چjK	0 K	&ڸ}00000006
       TXT        } jK}	0K}ý	N  w }{K}
} 00000007
       TXT  &      jņjo{ǆ0ojȆ\dmȆ0m00000008
       TXT  h      mn\s0\ 0 00θ}  w ɭN \ˮj00000009
       TXT  {      +j\K   $j6\&0˙\ KԓWj˽K00000010
       TXT  8      ԓ\0˽0\j˽ 
n}}}000000011
       TXT        }}} ˨}}i} k}0M0˽m} mj00000012
       TXT        ņKԣچ0oK K 
K qk1  00000013
       TXT        jņj}{jDK}
{؆0\{K}
\
} K{-00000014
       TXT  Q         {-0{K{˒{{mȆ0   m00000015
       TXT        ȱ{Q0}&{0 K 0 0&n0 0 00θ Q00000016
       TXT          j7\> m"7KԣzK8W\ 0Y  h00000017
       TXT            
KI-K ˢ0& IGC0002{EOV9R  IEC01700000018
       TXT        I A XXX,        ,-2   0P    2Y    1L    2V    2X    3B00000019
       TXT  0                  055:                                        00000020
       END                            15741SC103 010174326                    00000021
IEB817I MEMBER NAME (IFG0552X) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0009


       ./ ADD NAME=VS2SVC
       ESD          IGC246        CTCMCS      CTCNMCS  K           00000001
       ESD          MTVT         CTCMUCB        ATNTAB                 00000002
       ESD          	CTCATN         CTCMONSW       IEASCSAV               00000003
       ESD          IEAQTR00       IBMORG         USERORG                00000004
       ESD          LOWUSER        IEATYPE1       LASPTCH                00000005
       TXT          	{-D  0D{  0{0{ 0{0{͆0{͆0B0B00000006
       TXT         - ---0{-{NA{|NB &&00000007
       TXT         A=N& AK&-D--j- NC&&&- }00000008
       TXT   y      {&&-Ayn }A%&޺A=&&A=N&D&&-AA=00000009
       TXT   \      &&A=n &KB
BnA n MB
&NB
Bn&K00000010
       TXT        B&0A&-Aņ0{ڍ&ޅ-AykAA=N&C6n&&D.&00000011
       TXT  &      Dԡ kAA=&& A=&&Ȇ0{ڍ& A=KB& 0A&& f00000012
       TXT  h      &BjBnA& b6&u6KBB&jhAN00000013
       TXT  {      CA}/ 
.&D0AU/ .&D0AU/ .&D&A2&A8kAK B
00000014
       TXT  8      - K - BIJAD                                            00000015
       TXT                                                                00000016
       TXT                                                              /00000017
       TXT        0B}kPC&B8& m 00;0S&0q;0SK 
5;0S&00000018
       TXT  Q      0Í ۍ &K& 
K-  
K- 
q;0S5 1;o 00000019
       TXT         z   1 Ç  0- 0u 00n0n0~ K00000020
       TXT        1|1>&1:&      0=0k1:0K1: 00N1ӆ000000021
       TXT         0ᇤ  0N1ӆ0 0\u &06m 5b 1     00000022
       TXT                                                                00000023
       TXT  \      X         dIEE600I IEFWDMSGIEA000A            00000024
       TXT          	IEFASPSVC       MTVT  TRACE                       00000025
       TXT  &                                                              00000026
       TXT                                                               00000027
       TXT                                                                00000028
       RLD             
        h    	     m    00000029
       RLD              q         u   y    
  00000030
       END                            15734AS100 050175185                    00000031
IEB817I MEMBER NAME (VS2SVC  ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0010


       ./ ADD NAME=VS20192Z
       ESD                         IFG0192Z                               CT210001
       TXT          	ȍnk wmm"Pmj -KɒK
CT210002
       TXT         o { j{&K	Q0ȌK	\K	 0K	 ԛ { CT210003
       TXT             K ~KK
K{ n {ȭK{K{CT210004
       TXT   y      0țK{ ܆0n. On    0Ȫ0bCT210005
       TXT   \      K &  k  Բ& k Բ  	VnU 8K ɶ\  CT210006
       TXT        0&K0Un   0$N h<N m*KCT210007
       TXT  &      K ަ0UN N :K 0U ܆0ȪN { CT210008
       TXT  h       ASPOASPIJESIJESO     ASP   IECASP0 XXX IS   3B      CT210009
       TXT  {                                                              CT210010
       TXT  8                                                              CT210011
       TXT                                                                CT210012
       TXT                                                                CT210013
       TXT                                                                CT210014
       TXT  Q                                                              CT210015
       TXT                                                                CT210016
       TXT                                                                CT210017
       TXT                                                                CT210018
       TXT                                                                CT210019
       TXT  0                  019                                        CT210020
       END                            15734AS100 050175185                    CT210021
       ./ ENDUP
IEB817I MEMBER NAME (VS20192Z) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G12AOBJ.R0000042      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   ASP.OBJ320                                   KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   ASP.OBJIN                                    KEPT
IEF285I   VOL SER NOS= ASPUTL.
IEF280E K 580,ASPUTL,G12AOBJ,UPDTE,ASP.OBJIN
IEF373I STEP /UPDTE   / START 78240.1941
IEF374I STEP /UPDTE   / STOP  78240.1941 CPU   0MIN 00.17SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:41:25.76   ALLOC START    19:41:25.78   MAIN REGION ----- 256K                          *
*   STEP NAME UPDTE      STEP END TIME  19:41:33.77   PGM START TIME 19:41:25.87   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:08.01   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.17   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ---------- 293       0151 ----------- 10       0580 ------------ 7                                                        *
************************************************************************************************************************************

//LINK    EXEC PGM=IEWL,PARM='LIST,XREF,NCAL,LET',COND=(0,NE)
//SYSUT1   DD DSN=&&UT1,UNIT=SYSDA,SPACE=(CYL,(5,1))
//SYSPRINT DD SYSOUT=A
//SYSLMOD  DD DSN=ASP.ASPPGMS,
//            DISP=OLD,
****          DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,SPACE=(CYL,(1,,1)),VOL=SER=ASPSUP,
//            DCB=(RECFM=U,BLKSIZE=6144)
//OBJ320   DD DSN=ASP.OBJ320,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPSUP
//SYSLIN   DD DDNAME=SYSIN
//SYSIN    DD *
//
IEF236I ALLOC. FOR G12AOBJ  LINK
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSLMOD
IEF237I 151   ALLOCATED TO OBJ320
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST,XREF,NCAL,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE OBJ320(ASPPROGM)
IEW0000     NAME ASPPROGM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPPROGM      00     27C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       280

****ASPPROGM  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000      INCLUDE OBJ320(DELINK0)
IEW0000      SETSSI 00301112
IEW0000     NAME DELINK(R)
IEW0461  FESNAP


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DELINK0       00    1520



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      FA0            FESNAP         $UNRESOLVED                  14E0            FESNAP         $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH      1520

****DELINK    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000      INCLUDE OBJ320(LPA)
IEW0000     NAME  PDSEDIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  LPA           00     344



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       348

****PDSEDIT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0004
IEF285I   SYS78240.T193835.RV000.G12AOBJ.UT1           DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.SV000.G12AOBJ.R0000043      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   ASP.ASPPGMS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   ASP.OBJ320                                   KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.G12AOBJ.S0000044      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G12AOBJ.S0000044      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /LINK    / START 78240.1941
IEF374I STEP /LINK    / STOP  78240.1941 CPU   0MIN 00.14SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:41:33.80   ALLOC START    19:41:33.82   MAIN REGION ----- 256K                          *
*   STEP NAME LINK       STEP END TIME  19:41:34.10   PGM START TIME 19:41:33.92   MAIN STORAGE ---- 130K    CONDITION CODE 0004   *
*   PSTP NAME            ELAPSED TIME   00:00:00.30   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.14   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0353 ------------ 0       0353 ----------- 61       0151 ----------- 18       0151 ------------ 8       0130 ------------ 8    *
************************************************************************************************************************************

IEF375I  JOB /G12AOBJ / START 78240.1941
IEF376I  JOB /G12AOBJ / STOP  78240.1941 CPU   0MIN 00.31SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G12AOBJ    JOB READ TIME 19:41:25.66   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.31   *
*   JOB CLASS A          JOB INIT TIME 19:41:25.76   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:08.53   *
*   ACCOUNT   1          JOB END TIME  19:41:34.29   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1     333333333                 A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     333333333                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     33    33                AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11          33                AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11         3333              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11        333333             AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11            33             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     33     33             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   333333333             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    3333333              AA     AA

***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:41:52 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:41:52 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:41:52 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:41:52 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:41:52 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********


//SY20ZR13 JOB 1,TMVT800,MSGLEVEL=(1,1),
// CLASS=A,MSGCLASS=A,REGION=768K
***
***  PROBLEM DESCRIPTION(S):
***    TMVT800 -
***      Modify stage 1 sysgen macros as follows:
***
***        Macro         Change
***       SGASMPAK       Add JOB card to assemblies,
***                      change assembler name to IEUASM,
***                      change COND to (0,LT), add REGION=300,
***                      modify SYSPRINT card to increase space
***                      and reduce BLKSIZE.
***       SGLEDPK1       Add JOB card to link edits, add
***                      REGION=300K.
***       TSASMPAK       Add JOB card to TSO assemblies,
***                      change assembler name to IEUASM,
***                      change COND to (0,LT), add REGION=300,
***                      modify SYSPRINT card to increase space
***                      and reduce BLKSIZE.
***       GENERATE       Add JOB card generation.
***       SGIEK401       Add REGION=300K parameter to linkage editor
***                      EXEC statement.
***       SGIFC600       Add JOB card generation.
***       SGIEA2NP       Increase BCT loop for NIP timer test.
***       JOBSEP         New macro to create JOB cards.
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TMVT800
***
***   SPECIAL CONDITIONS:
***     IOGEN:  An I/O generation is required for implementation
***       of the functionality added by this usermod.
***       GENTYPE = IO
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/25
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MACROS
***       GENERATE
***       JOBSEP
***       SGIEA2NP
***       SGIEK401
***       SGIFC600
***       SGLEDPK1
***       TSASMPAK
***
//TMVT800 EXEC PGM=IEBUPDTE,PARM=MOD
//SYSPRINT DD  SYSOUT=A
//SYSUT1   DD  DISP=SHR,DSN=SYS1.GENLIB,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT2   DD  DISP=SHR,DSN=SYS1.GENLIB,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSIN    DD  DATA
//
IEF236I ALLOC. FOR SY20ZR13 TMVT800
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ CHANGE NAME=SGASMPAK
                        JOBSEP     TYPE=AM                                    @TMVT800 00010000     *          INSERTED*
                PUNCH '//SG&SGCTRLA(1) EXEC PGM=ASMBLR,COND=(4,LT)'                    00040000     *          REPLACED*
                PUNCH '//SG&SGCTRLA(1) EXEC PGM=IEUASM,'                      @TMVT800 00040000     *       REPLACEMENT*
                PUNCH '//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K'      @TMVT800 00050000     *          INSERTED*
                PUNCH '//SYSPRINT DD SPACE=(3509,(150,15),RLSE),'              SA65462 00229000     *          REPLACED*
                PUNCH '//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),'               @TMVT800 00229000     *       REPLACEMENT*
                PUNCH '//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=3509),          X00238017     *          REPLACED*
                PUNCH '//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),           +00238017     *       REPLACEMENT*
IEB816I MEMBER NAME (SGASMPAK) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002


       ./ CHANGE NAME=SGLEDPK1
                        JOBSEP     TYPE=LK                                    @TMVT800 18001017     *          INSERTED*
                    PUNCH '//SG&SGCTRLA(1) EXEC PGM=IEWL,COND=(8,LT),                 X20000017     *          REPLACED*
                PUNCH '//SG&SGCTRLA(1) EXEC PGM=IEWL,COND=(8,LT),REGION=200K,         +20000017     *       REPLACEMENT*
IEB816I MEMBER NAME (SGLEDPK1) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0003


       ./ CHANGE NAME=TSASMPAK
                        JOBSEP     TYPE=TA                                    @TMVT800 02000020     *          INSERTED*
                PUNCH '//SG&SGCTRLA(1) EXEC PGM=ASMBLR,COND=(4,LT)'                    08000020     *          REPLACED*
                PUNCH '//SG&SGCTRLA(1) EXEC PGM=IEUASM,'                      @TMVT800 08000020     *       REPLACEMENT*
                PUNCH '//    PARM=(DECK,NOLOAD),COND=(4,LT),REGION=300K'      @TMVT800 09000000     *          INSERTED*
                PUNCH '//SYSPRINT DD SPACE=(121,(850,100),RLSE),'                      58000020     *          REPLACED*
                PUNCH '//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),'               @TMVT800 58000020     *       REPLACEMENT*
                PUNCH '//            DCB=(RECFM=FB,LRECL=121,BLKSIZE=3509),           *64000020     *          REPLACED*
                PUNCH '//            DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),            +64000020     *       REPLACEMENT*
IEB816I MEMBER NAME (TSASMPAK) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0004


       ./ CHANGE NAME=GENERATE
                        GBLA  &FTCJOBN                                        @TMVT800 00560020     *          INSERTED*
               .JB01 AIF ('&JOBSTMT' EQ 'SUPPLIED').JB02                               26240018     *          REPLACED*
               .JB01    ANOP  ,                                               @TMVT800 26240018     *       REPLACEMENT*
                PUNCH '//SYSGEN JOB  1,''SYSTEM GENERATION'''                          32776017     *          REPLACED*
               &FTCJOBN       SETA 0                                          @TMVT800 32776017     *       REPLACEMENT*
               .JB02    AIF   (&GETB(2)).B451       PROCESSOR ONLY                     32796020     *          REPLACED*
                        AIF   (&GETB(2)).B451       PROCESSOR ONLY            @TMVT800 32796020     *       REPLACEMENT*
               &FTCJOBN       SETA 0                                          @TMVT800 39102020     *          INSERTED*
                        JOBSEP     TYPE=UT                                    @TMVT800 39241619     *          INSERTED*
                        JOBSEP     TYPE=CY                                    @TMVT800 40841019     *          INSERTED*
                        JOBSEP     TYPE=RN                                    @TMVT800 42973019     *          INSERTED*
                        JOBSEP     TYPE=LR                                    @TMVT800 43047519     *          INSERTED*
                        JOBSEP     TYPE=LR                                    @TMVT800 43075519     *          INSERTED*
                        JOBSEP     TYPE=LK                                    @TMVT800 44841019     *          INSERTED*
                PUNCH '//SG&SGCTRLA(1) EXEC PGM=IEWL,COND=(4,LT),'                     44940000     *          REPLACED*
                PUNCH '//SG&SGCTRLA(1) EXEC PGM=IEWL,COND=(4,LT),REGION=150K,' TGEN804 44940000     *       REPLACEMENT*
               .*       JOBSEP     TYPE=LK     ELIMINATE EXTRA JOB IN STAGE 2 @TMVT800 51052919     *          INSERTED*
                        JOBSEP   TYPE=CY                                      @TMVT800 51075650     *          INSERTED*
                        JOBSEP     TYPE=CY                                    @TMVT800 63401019     *          INSERTED*
                        JOBSEP     TYPE=CY                                    @TMVT800 76921019     *          INSERTED*
                        JOBSEP     TYPE=UT                                    @TMVT800 80336019     *          INSERTED*
                        JOBSEP     TYPE=IO                                    @TMVT800 80521019     *          INSERTED*
                        JOBSEP     TYPE=RN                                    @TMVT800 81602219     *          INSERTED*
                        JOBSEP     TYPE=UT                                    @TMVT800 81801019     *          INSERTED*
                        MEXIT                                                          90340020     *          REPLACED*
               .YF2     ANOP                                                  @TMVT800 90340020     *       REPLACEMENT*
               *** POSTGEN ***                                                @TMVT800 90401017     *          INSERTED*
                        AGO        .MEND                                      @TMVT800 90402517     *          INSERTED*
               .MEND    JOBSEP     JOB=NO,ZEND=NO     CLOSE OUT LAST JOB      @TMVT800 90790020     *          INSERTED*
               .YF2     MEND                                                           94800020     *          REPLACED*
                        MEND                                                  @TMVT800 94800020     *       REPLACEMENT*
IEB816I MEMBER NAME (GENERATE) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0005


       ./ CHANGE NAME=SGIEK401
                        JOBSEP     TYPE=LK                                    @TMVT800 05001017     *          INSERTED*
                    PUNCH '//SG&SGCTRLA(1) EXEC PGM=IEWL,COND=(8,LT),                 *05500017     *          REPLACED*
                PUNCH '//SG&SGCTRLA(1) EXEC PGM=IEWL,COND=(8,LT),REGION=300K,         +05500017     *       REPLACEMENT*
IEB816I MEMBER NAME (SGIEK401) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0006


       ./ CHANGE NAME=SGIFC600
                        JOBSEP     TYPE=LK                                    @TMVT800 74201018     *          INSERTED*
                        JOBSEP     TYPE=LK                                    @TMVT800 87501018     *          INSERTED*
IEB816I MEMBER NAME (SGIFC600) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0007


       ./ CHANGE NAME=SGIEA2NP
               &TIMBCTC SETC  '&BCT(&X1)'                                     BH M5821 11289921     *          REPLACED*
               &TIMBCTC SETC  '100000'                                        @TMVT800 11289921     *       REPLACEMENT*
IEB816I MEMBER NAME (SGIEA2NP) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0008


       ./ ADD NAME=JOBSEP,LIST=ALL
                                                 MACRO                                                 @TMVT800 00010000
                                                 JOBSEP     &TYPE=,&ZEND=YES,&JOB=YES                  @TMVT800 00020000
                                        .*                 THE PURPOSE OF THIS MACRO IS TO PROVIDE     @TMVT800 00030000
                                        .*                 A JOBCARD FOR THE FASTGEN PROCESS           @TMVT800 00040000
                                        .*                 SYMBOLIC PARAMETER &JOB SPECIFIES WHETHER   @TMVT800 00050000
                                        .*                      OR NOT A JOB CARD IS TO BE PUNCHED FOR @TMVT800 00060000
                                        .*                      THIS JOB                               @TMVT800 00070000
                                        .*                 SYMBOLIC PARAMETER &ZEND SPECIFIES WHETHER  @TMVT800 00080000
                                        .*                      OR NOT ENDING STEP IS TO BE PUNCHED    @TMVT800 00090000
                                        .*                      FOR THIS JOB BUT IS SAVED AND NOT USED @TMVT800 00100000
                                        .*                      UNTIL THE NEXT ENTRY TO THIS MACRO     @TMVT800 00110000
                                                 COPY  SGGBLPAK                                        @TMVT800 00120000
                                                 GBLA  &FTCJOBN,&FTCJOBE                               @TMVT800 00130000
                                                 GBLB  &SGHOLDB       "TYPRUN=HOLD" FLAG               @TMVT800 00140000
                                                 GBLB       &FTCZEND                                   @TMVT800 00150000
                                                 GBLC       &FTCPTYP                                   @TMVT800 00160000
                                                 GBLC       &RELNOC                                    @TMVT800 00170000
                                                 LCLA       &RELNOA                                    @TMVT800 00180000
                                                 LCLC       &TEMP,&TYPRUNK,&TYPRUNV                    @TMVT800 00190000
                                                 AIF   (NOT &SGHOLDB).NOHOLD                           @TMVT800 00200000
                                        &TYPRUNK SETC  ',TYPRUN='                                      @TMVT800 00210000
                                        &TYPRUNV SETC  'HOLD'                                          @TMVT800 00220000
                                        .NOHOLD  ANOP  ,                                               @TMVT800 00230000
                                                 AIF   ('&RELNOC' NE '').SREL2                         @TMVT800 00240000
                                        &RELNOC  SETC  '&SGCTRLC(4)'                                   @TMVT800 00250000
                                        .SREL2   ANOP  ,                                               @TMVT800 00260000
                                        &TEMP    SETC       '&RELNOC'(1,2)                             @TMVT800 00270000
                                        &RELNOA  SETA       &TEMP                                      @TMVT800 00280000
                                                 AIF        (NOT &FTCZEND).NOZEND                      @TMVT800 00290000
                                        &FTCJOBE SETA  &FTCJOBN-1                                      @TMVT800 00300000
                                                 PUNCH      '//ZEND  EXEC PGM=ZMSG,'                   @TMVT800 00310000
                                                 PUNCH  '// PARM=''**** R&RELNOA&FTCPTYP&FTCJOBE  ** F A I L E C00320000
                                                       D **** F A I L E D ****'','                     @TMVT800 00330000
                                                 AIF ('&FTCPTYP' EQ 'LK').LKCOND                       @TMVT800 00340000
                                                 PUNCH      '// COND=(0,EQ)'                           @TMVT800 00350000
                                                 AGO .DOJOB                                            @TMVT800 00360000
                                        .LKCOND  ANOP                                                  @TMVT800 00370000
                                                 PUNCH      '// COND=(4,GE)'                           @TMVT800 00380000
                                        .DOJOB   ANOP                                                  @TMVT800 00390000
                                                 PUNCH      '//'                                       @TMVT800 00400000
                                        .NOZEND  AIF ('&JOB' NE 'YES').NOJOB                           @TMVT800 00410000
                                        &FTCPTYP SETC  '&TYPE'                                         @TMVT800 00420000
                                                 PUNCH      '//R21&TYPE&FTCJOBN JOB CLASS=A,MSGCLASS=A,MSGLEVEL200430000
                                                       =(1,1)&TYPRUNK&TYPRUNV'                         @TMVT800 00440000
                                                 PUNCH      '//* *** RELEASE &RELNOC  MVT  RELEASE &RELNOC ***' 00450000
                                        &FTCJOBN  SETA &FTCJOBN+1                                      @TMVT800 00460000
                                        .NOJOB   ANOP  ,                                               @TMVT800 00470000
                                        &FTCZEND SETB       ('&ZEND' EQ 'YES')                         @TMVT800 00480000
                                                 MEND                                                  @TMVT800 00490000
       ./ ENDUP
IEB817I MEMBER NAME (JOBSEP  ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0009


IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR13.R0000045     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.GENLIB                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.GENLIB                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000046     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000046     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TMVT800 / START 78240.1941
IEF374I STEP /TMVT800 / STOP  78240.1941 CPU   0MIN 00.16SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:41:52.18   ALLOC START    19:41:52.19   MAIN REGION ----- 768K                          *
*   STEP NAME TMVT800    STEP END TIME  19:41:52.45   PGM START TIME 19:41:52.24   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.27   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.16   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0158 ---------- 134       0250 ----------- 63       0250 ----------- 58       0130 ---------- 100                              *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR13/ START 78240.1941
IEF376I  JOB /SY20ZR13/ STOP  78240.1941 CPU   0MIN 00.16SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR13   JOB READ TIME 19:41:52.09   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.16   *
*   JOB CLASS A          JOB INIT TIME 19:41:52.18   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.29   *
*   ACCOUNT   1          JOB END TIME  19:41:52.47   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1     333333333                 A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     333333333                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     33    33                AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11          33                AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11         3333              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11        333333             AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11            33             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     33     33             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   333333333             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    3333333              AA     AA

***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:01 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:01 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:01 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:01 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:01 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********


//SY20ZR13 JOB 1,TMVT801,CLASS=A,MSGLEVEL=(1,1)
***
***  PROBLEM DESCRIPTION(S):
***    TMVT801 -
***      Modify IEAANIP (NIP stage 2 sysgen macro) to:
***      *  Restrict SMARTNIP processing to tape and DASD
***      *  Skip location 80 timer working check
***      *  Fix initialization problem with 16MB of storage
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TMVT801
***
***   SPECIAL CONDITIONS:
***     IOGEN:  An I/O generation is required for implementation
***       of the functionality added by this usermod.
***       GENTYPE = IO
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/25
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MACROS
***       IEAANIP
***
//TMVT801  EXEC PGM=IEBUPDTE,REGION=128K,PARM=MOD
//SYSPRINT  DD SYSOUT=A
//SYSUT1    DD DISP=SHR,DSN=SYS1.MODGEN2,
//             UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT2    DD DISP=SHR,DSN=SYS1.MODGEN2,
//             UNIT=SYSDA,VOL=SER=ASPDLB
//SYSIN     DD DATA
//
IEF236I ALLOC. FOR SY20ZR13 TMVT801
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ CHANGE NAME=IEAANIP
                        CLI   UCBTYP+2(R9),X80 -  Is device tape?             @TMVT801 12490200     *          INSERTED*
                        BNE   IEAUCB1 -           Skip SMARTNIP if not tape   @TMVT801 12490400     *          INSERTED*
                        BNL   TMRNOPR             BRANCH IF TIMER NOT DECREMENTED MCS0 14154020     *          REPLACED*
                        NOP   TMRNOPR -           Skip timer-not-working code @TMVT801 14154020     *       REPLACEMENT*
                        LTR   9,9 -            WRAPAROUND?                    @TMVT801 14345020     *          INSERTED*
                        BC    8,IEASETKX -     YES, 16 MB DONE                @TMVT801 14347020     *          INSERTED*
               IEASETKX EQU   * -                                             @TMVT801 14360020     *          INSERTED*
       ./ ENDUP
IEB816I MEMBER NAME (IEAANIP ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR13.R0000047     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000048     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000048     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TMVT801 / START 78240.1942
IEF374I STEP /TMVT801 / STOP  78240.1942 CPU   0MIN 00.34SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:42:01.06   ALLOC START    19:42:01.07   MAIN REGION ----- 256K                          *
*   STEP NAME TMVT801    STEP END TIME  19:42:01.52   PGM START TIME 19:42:01.12   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.46   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.34   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0158 ----------- 13       0250 ---------- 339       0250 ---------- 338       0130 ------------ 8                              *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR13/ START 78240.1942
IEF376I  JOB /SY20ZR13/ STOP  78240.1942 CPU   0MIN 00.34SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR13   JOB READ TIME 19:42:00.99   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.34   *
*   JOB CLASS A          JOB INIT TIME 19:42:01.06   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.48   *
*   ACCOUNT   1          JOB END TIME  19:42:01.54   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1     333333333                 A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     333333333                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     33    33                AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11          33                AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11         3333              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11        333333             AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11            33             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     33     33             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   333333333             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    3333333              AA     AA

***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********


//SY20ZR13 JOB 1,TMVT802,CLASS=A,MSGLEVEL=(1,1)
***
*** 2006/08/23 @KL MVT SYSGEN
***
***  PROBLEM DESCRIPTION(S):
***    TMVT802 -
***      Modify display console defaults to eliminate
***      out-of-line display areas
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TMVT802
***
***   SPECIAL CONDITIONS:
***     IOGEN:  An I/O generation is required for implementation
***       of the functionality added by this usermod.
***       GENTYPE = IO
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/23
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MACROS
***       IEECRDCM
***
//TMVT802  EXEC PGM=IEBUPDTE,REGION=128K,PARM=MOD
//SYSPRINT  DD SYSOUT=A
//SYSUT1    DD DISP=SHR,DSN=SYS1.MODGEN,
//             UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT2    DD DISP=SHR,DSN=SYS1.MODGEN,
//             UNIT=SYSDA,VOL=SER=ASPDLB
//SYSIN     DD DATA
//
IEF236I ALLOC. FOR SY20ZR13 TMVT802
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ CHANGE NAME=IEECRDCM
                        AGO   .NEG                FORCE NO AREA               @TMVT802 06805000     *          INSERTED*
       ./ ENDUP
IEB816I MEMBER NAME (IEECRDCM) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR13.R0000049     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000050     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000050     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TMVT802 / START 78240.1942
IEF374I STEP /TMVT802 / STOP  78240.1942 CPU   0MIN 00.05SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:42:09.22   ALLOC START    19:42:09.23   MAIN REGION ----- 256K                          *
*   STEP NAME TMVT802    STEP END TIME  19:42:09.39   PGM START TIME 19:42:09.29   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.17   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0158 ------------ 7       0250 ------------ 6       0250 ------------ 5       0130 ------------ 3                              *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR13/ START 78240.1942
IEF376I  JOB /SY20ZR13/ STOP  78240.1942 CPU   0MIN 00.05SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR13   JOB READ TIME 19:42:09.16   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.05   *
*   JOB CLASS A          JOB INIT TIME 19:42:09.22   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.18   *
*   ACCOUNT   1          JOB END TIME  19:42:09.40   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1     333333333                 A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     333333333                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     33    33                AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11          33                AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11         3333              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11        333333             AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11            33             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     33     33             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   333333333             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    3333333              AA     AA

***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:19 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:19 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:19 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:19 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:19 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********


//SY20ZR13 JOB 1,TMVT803,CLASS=A,MSGLEVEL=(1,1)
***
***  PROBLEM DESCRIPTION(S):
***    TMVT803 -
***      Modify DCM generation macro to set initial values:
***          SEG=19
***          DEL=N
***          CON=N
***          RNUM=01
***          RTME=001
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TMVT801
***
***   SPECIAL CONDITIONS:
***     IOGEN:  An I/O generation is required for implementation
***       of the functionality added by this usermod.
***       GENTYPE = IO
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/25
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MACROS
***       IEECHCB
***
//TMVT803  EXEC PGM=IEBUPDTE,REGION=128K,PARM=MOD
//SYSPRINT  DD SYSOUT=A
//SYSUT1    DD DISP=SHR,DSN=SYS1.MODGEN,
//             UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT2    DD DISP=SHR,DSN=SYS1.MODGEN,
//             UNIT=SYSDA,VOL=SER=ASPDLB
//SYSIN     DD DATA
//
IEF236I ALLOC. FOR SY20ZR13 TMVT803
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ CHANGE NAME=IEECHCB
               &L       SETA   19                                             @TMVT803 00705000     *          INSERTED*
               &L       SETA  &N/2                                            @TMVT803 00880000     *          INSERTED*
               &L       SETA  &N/2                                                     06160021     *          REPLACED*
               *        THIS LINE DELETED BY -------------------------------- @TMVT803 06160021     *       REPLACEMENT*
               DCMDEL   DC    C'Y '               DEL VALUE                            06200021     *          REPLACED*
               DCMDEL   DC    C'N '               DEL VALUE                   @TMVT803 06200021     *       REPLACEMENT*
               DCMCON   DC    C'Y'                CON VALUE                            06250021     *          REPLACED*
               DCMCON   DC    C'N'                CON VALUE                   @TMVT803 06250021     *       REPLACEMENT*
               DCMRNUM  DC    FL1'&N'             ROLL NUMBER VALUE                    06400021     *          REPLACED*
               DCMRNUM  DC    FL1'1'              ROLL NUMBER INITIAL VALUE   @TMVT803 06400021     *       REPLACEMENT*
               DCMRTME  DC    H'46'               ROLL TIME VALUE                      06450021     *          REPLACED*
               DCMRTME  DC    H'1'                ROLL TIME VALUE             @TMVT803 06450021     *       REPLACEMENT*
               DCMRNUMD DC    FL1'&N'             RNUM DEFAULT                         06650021     *          REPLACED*
               DCMRNUMD DC    FL1'1'              RNUM DEFAULT                @TMVT803 06650021     *       REPLACEMENT*
               DCMRTMED DC    H'46'               RTME DEFAULT                         06700021     *          REPLACED*
               DCMRTMED DC    H'1'                RTME DEFAULT                @TMVT803 06700021     *       REPLACEMENT*
               DCMOPTST DC    X'E0'               STATUS OF SCREEN CONTROL OPTIONS     07400021     *          REPLACED*
               DCMOPTST DC    X'60'               SCREEN CONTROL OPTIONS      @TMVT803 07400021     *       REPLACEMENT*
       ./ ENDUP
IEB816I MEMBER NAME (IEECHCB ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR13.R0000051     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000052     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000052     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TMVT803 / START 78240.1942
IEF374I STEP /TMVT803 / STOP  78240.1942 CPU   0MIN 00.06SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:42:18.97   ALLOC START    19:42:18.97   MAIN REGION ----- 256K                          *
*   STEP NAME TMVT803    STEP END TIME  19:42:19.14   PGM START TIME 19:42:19.03   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.17   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0158 ----------- 24       0250 ----------- 15       0250 ----------- 14       0130 ----------- 12                              *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR13/ START 78240.1942
IEF376I  JOB /SY20ZR13/ STOP  78240.1942 CPU   0MIN 00.06SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR13   JOB READ TIME 19:42:18.90   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.06   *
*   JOB CLASS A          JOB INIT TIME 19:42:18.97   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.18   *
*   ACCOUNT   1          JOB END TIME  19:42:19.15   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1     333333333                 A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     333333333                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     33    33                AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11          33                AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11         3333              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11        333333             AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11            33             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     33     33             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   333333333             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    3333333              AA     AA

***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********


//SY20ZR13 JOB 1,TMVT804,CLASS=A,MSGLEVEL=(1,1)
***
***  PROBLEM DESCRIPTION(S):
***    TMVT804 -
***      Modify IEEVIPL to attach SYSVICMD subtask to issue
***      IPL commands from 'SYS1.PARMLIB(COMMND00)'.
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TMVT804
***
***   SPECIAL CONDITIONS:
***     IOGEN:  An I/O generation is required for implementation
***       of the functionality added by this usermod.
***       GENTYPE = IO
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/25
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MACROS
***       SGIEE00V
***
***     NOTE:  SGIEE00V is modified to attach program SYSVICMD.
***       SYSVICMD is not currently included in this usermod.
***
//TMVT804 EXEC PGM=IEBUPDTE,REGION=128K,PARM=MOD
//SYSPRINT  DD SYSOUT=A
//SYSUT1    DD DISP=SHR,DSN=SYS1.MODGEN,
//             UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT2    DD DISP=SHR,DSN=SYS1.MODGEN,
//             UNIT=SYSDA,VOL=SER=ASPDLB
//SYSIN     DD DATA
//
IEF236I ALLOC. FOR SY20ZR13 TMVT804
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ CHANGE NAME=SGIEE00V,LIST=ALL   >>>> 2006/07/08
                        MACRO                                                          00020000
                        SGIEE00V &CCA1,&CCN1,&CCV1,&CCA2,&CCN2,&CCV2,&CCA3,           C00040000
                              &JUCB,&PUCB,&LCLS,&LCTR,&SMF,&TSO,&BCLMT           20030 00060020
               .*                                                                      00080000
               .*      THIS IS A MASTER SCHEDULER GROUP 0 SYSGEN MODULE WHICH          00100000
               .*       GENERATES THE SYMBOLIC STATEMENTS OF THE MASTER SCHEDULER      00120000
               .*       INITIALIZATION MODULE-IEEVIPL. IN ADDITION,VIA MACRO PARAMETRS 00140000
               .*            1. THE SYSTEM INITIAL COMMANDS CAN BE GENERATED           00160000
               .*            2. THE UNITNAMES OF THE VOLUMES FOR THE PROCEDURE LIBRARY 00180000
               .*               AND THE JOB QUEUE CAN BE SPECIFIED                     00200000
               .*            3. THE CLASSNAME-TO WHICH THE LOG DATA SET WILL BE        00220000
               .*               AUTOMATICALLY WRITTEN WHEN THE DATA SET IS FULL-CAN BE 00240000
               .*                GIVEN                                                 00260000
               .*            4. THE NUMBER OF BUFFER AREAS TO BE USED BY THE LOG       00280000
               .*               WRITER CAN BE INDICATED                                00300000
               .*                                                                      00320000
               .*       THE MACRO PARAMETERS AS LISTED IN THE ABOVE PROTOTYPE STATEMNT 00340000
               .*        INDICATE AS FOLLOWS-                                          00360000
               .*            &CCA1 -THE UNITNAME FOR THE START READER COMMAND          00380000
               .*            &CCN1 -A DSNAME PARAMETER FOR THE START READER COMMAND    00400000
               .*            &CCV1 -A VOLUME SERIAL FOR THE START READER COMMAND       00420000
               .*            &CCA2 -THE UNITNAME FOR THE START WRITER COMMAND          00440000
               .*            &CCN2 -A DSNAME PARAMETER FOR THE START WRITER COMMAND    00460000
               .*            &CCV2 -A VOLUME SERIAL FOR THE START WRITER COMMAND       00480000
               .*            &CCA3 -SPECIFIES 'INIT' IF A START INIT COMMAND IS TO BE  00500000
               .*                   CREATED                                            00520000
               .*            &JUCB -UNITNAME FOR THE VOLUME ON WHICH THE JOB QUEUE IS  00540000
               .*                   TO RESIDE                                          00560000
               .*            &PUCB -UNITNAME FOR THE VOLUME WHICH CONTAINS THE         00580000
               .*                   PROCEDURE LIBRARY                                  00600000
               .*            &LCLS -CLASSNAME FOR THE LOG DATA SET                     00620000
               .*            &LCTR -THE MAXIMUM NUMBER OF RESIDENT BUFFER AREAS TO BE  00640000
               .*                   USED BY THE LOG WRITER                             00660000
               .*             &SMF  -SMF SYSGEN OPTION PARAMETER                       00670018
               .*             &TSO  -TSO SYSGEN OPTION PARAMETER                       00672020
               .*            &BCLMT -MAXIMUM NO. OF BROADCAST RECORDS            20030 00674020
               .*                   FOR TSO SEND CP/ OR ZERO IF TSO              20030 00676020
               .*                   IS NOT IN THE SYSTEM                         20030 00678020
               .*                                                                      00680000
               .*       GIVEN ALL OF THE ABOVE PARAMETERS,THE COMMANDS-                00700000
               .*            S WTR,&CCA2,DSNAME=&CCN2,VOLUME=SER=&CCV2 *               00720000
               .*            S RDR,&CCA1,DSNAME=&CCN1,VOLUME=SER=&CCV1 *               00740000
               .*            S INIT *                                                  00760000
               .*            WILL BE GENERATED WITHIN THE CODE OF THE INITIALIZATION   00780000
               .*            MODULE- THE LOG CLASSNAME WILL BE SET TO &LCLS AND THE    00800000
               .*            BUFFER COUNT SET TO &LCTR                                 00820000
               .*                  &VALU REPLACED IN THE ABOVE BY THE INCOMING PARAM   00840000
               .*                                                                      00860000
               *                                                                       00880000
                        TITLE ' IPL WITH MS/1 CONSOLE'                                 00900000
               IEEVIPL  CSECT                                                          00920000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002


               * D 068000, 079324-079360                                       SA72193 00920121
               * A 064820-064980                                               SA72193 00920221
               * A 046194-046284,046344,095169                                  A52614 00920421
               * C 062600,093100,093300                                          M1874 00922021
               * A 030820-030900,093100-093300                                  A40047 00922221
               * A 088100                                                       A42562 00924821
               *                                                                 M5510 00927021
               *                                                                A31300 00929221
               *                                                                A31761 00931421
               * 000600,093400,093601,100610                                     20030 00933621
               *AABA OCIP #9,REL #16                                                   00935821
               * 048600-048800                                                  A24430 00938021
               *1735024600-024800,028000-028200,048000,051200,051800,052250,      OC43 00940221
               *1735053000,054400,075400,079600,091600                            OC43 00942421
               * 069200,076400                                                    I270 00944621
               * 112430-112550                                                   M0035 00946821
               * 045300,049100                                                   20071 00949021
               * 095120                                                          M3230 00951221
               * 046000,046630-046640,046830-046860,047090,047120                M1866 00953421
               * 046080-046090,095132                                            M5381 00955621
               *********************************************************************** 00957821
               *                                                                       00960000
               *  MODULE NAME-IEEVIPL                                                  00980000
               *                                                                       01000000
               *  FUNCTION   -THIS IS THE FIRST MODULE OF MASTER SCHEDULER. IT IS      01020000
               *              RESPONSIBLE FOR SCHEDULER INITIALIZATION.                01040000
               *  PROGRAM                                                              01060000
               *        FLOW -LINKS TO THE CONSOLE INITIALIZATION MODULE-IEECVCTI AND  01080000
               *              POSTS THE COMMUNICATIONS TASK                            01100000
               *             -DETERMINES THE VOLUMES ON WHICH THE JOB QUEUE AND THE    01120000
               *              PROCEDURE LIBRARY WILL RESIDE.                           01220016
               *             -WRITES TO THE OPERATOR THE SYSTEM 'READY' MESSAGE        01440000
               *             -WRITES-TO-OPERATOR THE INITIAL COMMANDS AVAILABLE        01480000
               *             -IN SYSTEMS WITH THE TOD CLOCK, WRITES TO THE OP-   20071 01484020
               *              ERATOR THE CURRENT TIME OF DAY, OR ASKS HIM FOR    20071 01488020
               *              SET PARAMETERS SO THAT AN INTERNAL SET COMMAND CAN 20071 01492020
               *              BE ISSUED.                                         20071 01496020
               *             -WAITS ON POSTING FROM THE SET DATE COMMAND               01500000
               *             -OR, WAITS FOR RETURN FROM SVC 34 AFTER THE VALID   20071 01505020
               *              SET COMMAND HAS BEEN PROCESSED, AND THE TOD CLOCK  20071 01510020
               *              HAS BEEN SET.                                      20071 01515020
               *             -MOVES THE MASTER TIOT-ASSEMBLED WITHIN THE IEEVIPL       01520000
               *              MODULE INTO SUPERVISOR CORE-SUBPOOL 255                  01540000
               * DETERMINES WHERE THE SYS1.SYSJOBQE AND SYS1.PROCLIB DATA SETS    AABA 01550016
               * RESIDE. THE UNIT AND VOLUME ARE CHOSEN IN THE FOLLOWING HIERARCHYAABA 01560016
               * 1. THE UNIT SPECIFIED IN THE SET COMMAND                         AABA 01570016
               * 2. THE CATALOG-THE UNIT CONTAINING THE INDICATED VOLUME          AABA 01580016
               * 3. THE UNIT SPECIFIED AT SYSGEN TIME                             AABA 01590016
               * 4. THE IPL VOLUME                                                AABA 01600016
               *             -CATALOGS SYS1.PROCLIB                                    01645014
               *             -SETS INTO THE TIOT THE UCB POINTERS FOR QUEUE AND PROCLB 01660000
               *             -ATTACHES THE JOB QUEUE INITIALIZATION TASK -IEFQINTZ     01680000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0003


               *             -WAITS ON TASK COMPLETION                                 01700000
               *             -DETACHES THE QUEUE INITIALIZATION TASK                   01720000
               *             -WRITES-TO-OPERATOR COMMANDS SELECTED THROUGH THE SET     01740000
               *              DATE COMMAND AND SCHEDULES THEIR EXECUTION               01760000
               *             -PASSES CONTROL TO THE MASTER SCHEDULER WAIT MODULE       01780000
               *               IEEVWAIT                                                01800000
               *              -PASSES CONTROL TO LOG INITIALIZATION VIA XCTL IF LOG    01806018
               *               IS IN SYSTEM                                            01812018
               *              -PASSES CONTROL TO SYS1.BRODCAST INITIALIZATION VIA LINK 01814020
               *               IF TSO IS IN SYSTEM                                     01816020
               *                                                                       01820000
               *  ENTRY      -LINK FROM NIP -NUCLEUS INITIALIZATION                    01840000
               *                                                                       01860000
               *  EXTERNAL   -IEECVCTI-CONSOLE INITIALIZATION                          01880000
               *   REFERENCES-IEEVLIN-LOG INITIALIZATION                               01900000
               *             -IEE0503D-WTO MESSAGE MODULE- ERROR EXIT                  01920000
               *             -IEEVWAIT-NORMAL EXIT                                     01940000
               *             -IEEVSIPL-SYS1.BRODCAST INITIALIZATION              20030 01950020
               *                                                                       01960000
               *  ATTRIBUTES -NONREENTRANT                                             01980000
               *             -CHARACTER DEPENDENCE-TYPE C                              02000000
               *                                                                       02020000
               *  MACROS AND -CVT -COMMUNICATIONS VECTOR TABLE MAPPING                 02040000
               *    MAPPINGS -IEFVTIOT-MASTER TIOT                                     02060000
               *             -IEEBASEA-MAPPING OF MASTER RESIDENT CORE                 02080000
               *             -IEEXSA-MAPPING OF EXTENDED SAVE AREA                     02100000
               *             -IEFUCBOB-MAPPING OF THE UNIT CONTROL BLOCK               02120000
               *             -LINK                     -ATTACH                         02140000
               *             -GETMAIN                  -FREEMAIN                       02160000
               *             -WRITE-TO-OPERATOR        -DETACH                         02180000
               *             -POST                     -MGCR                           02200000
               *********************************************************************** 02220000
               *                                                                       02240000
               *SYMBOL        VALUE     RTN USED(BY LABEL)       FOR PURPOSE           02260000
               *                                                                       02280000
               R0       EQU   0                                                        02300000
               R1       EQU   1                                                        02320000
               R2       EQU   2         IP500,                             WORK        02340000
               R3       EQU   3         IP700                                          02360000
               R4       EQU   4                                                        02380000
               R5       EQU   5         IP100,IP300,IP400,IP500,IP700      WORK        02400000
               R6       EQU   6         IP400,IP700,                       WORK        02420000
               R7       EQU   7         IP400                              WORK        02440000
               R8       EQU   8         ALL                      PROGRAM BASE     OC43 02460017
               R9       EQU   9         IP300,IP400,IP600,IP700  RETURN REG       OC43 02480017
               R10      EQU   10        ALL                      VTIOT BASE            02500000
               R11      EQU   11        ALL                      RESIDENT CORE BASE    02520000
               R12      EQU   12        ALL                      CVT BASE              02540000
               R13      EQU   13        ALL                      REGISTER SAVE POINTER 02560000
               R14      EQU   14                                                       02580000
               R15      EQU   15                                                       02600000
               TWO      EQU   2                                                 A31761 02603020
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0004


               THREE    EQU   3                                                 A31761 02606020
               FOUR     EQU   4                                                 A31761 02609020
               CODEDISP EQU   44       IP516                                    A31761 02612020
               FOXZERO  EQU   240                                               A31761 02615020
               *                                                                       02620000
               *                                                                       02640000
               *********************************************************************** 02640620
               *********************************************************************** 02641220
               *                                                                     * 02641820
               *                               CONSTANTS USED BY TOD CLOCK       20071 02642420
               *                               ROUTINE FOR OFFSETS,LENGTHS,ETC.  20071 02643020
               K0       EQU   0                               **                 20071 02643620
               K1       EQU   1                               **                 20071 02644220
               K2       EQU   2                               **                 20071 02644820
               K3       EQU   3                               **                 20071 02645420
               K4       EQU   4                               **                 20071 02646020
               K5       EQU   5                               **                 20071 02646620
               K6       EQU   6                               **                 20071 02647220
               K7       EQU   7                               **                 20071 02647820
               K8       EQU   8                               **                 20071 02648420
               K12      EQU   12                              **                 20071 02649020
               K13      EQU   13                              **                 20071 02649620
               K15      EQU   15                              **                 20071 02650220
               K26      EQU   26                              **                 20071 02650820
               K119     EQU   119                             **                 20071 02651420
               BITS32   EQU   32                              **                 20071 02652020
               SIXTY    EQU   60                  FIRST YEAR OF TOD CLOCK        20071 02652620
               HEX00    EQU   X'00'               MASK FOR COND CODE 0           20071 02653220
               HEX03    EQU   X'03'               MASK FOR COND CODE 2           20071 02653820
               HEXDD    EQU   X'DD'               MASK FOR NO SET, INTRN SET BITS20071 02654420
               BLANK    EQU   C' '                BLANK CHARACTER                20071 02655020
               DOT      EQU   C'.'                'DOT' CHARACTER                20071 02655620
               QUOTE    EQU   C''''               'QUOTE' CHARACTER              20071 02656220
               *********************************************************************** 02656820
               TCBTIO   EQU   12                                                       02660000
               CAT      EQU   100                 CATALOG INDICATOR                    02670014
               STATUS   EQU   76                      SVC 76                     20070 02675020
               *                                                                       02680000
               *                                                                       02700000
               *********************************************************************** 02720000
               *              INITIALIZE SYSTEM TO SYSTEM RESIDENCE                    02740000
               *                UCB POINTERS LOCATED VIA CVT                           02760000
               *********************************************************************** 02780000
                        BALR  R8,0                    SET BASE REG                OC43 02790017
                        USING *,R8                                                OC43 02800017
                        ST    R9,PARMSAVE             SAVE PARMLIB UCB POINTER    OC43 02810017
                        B     IP001                                                    02840000
                        DC    X'EEEE'                                                  02860000
                        DC    CL8'IEEVIPL'         MODULE IDENTIFICATION               02880000
                        DC    X'02171969'                                              02900018
                        DC    X'EEEE'                                                  02920000
                        SPACE                                                          02940000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0005


               **********************************************************************  02960000
                        SPACE                                                          02980000
               IP001    DS    0H                                                       03000000
                        L     R12,CVTPTR                                               03020000
                        USING CVT,R12                                                  03040000
                        L     R11,CVTMSER                                              03060000
                        USING BASE,R11                                                 03080000
               *                                                                A40047 03082021
               * THE FOLLOWING GETMAIN IS FOR 8 BYTES OUT OF SUBPOOL 250 AND    A40047 03084021
               * THE SOLE PURPOSE OF IT IS TO SET UP THE MASTER'S REGION.       A40047 03086021
               * THE MASTER'S REGION, IN ORDER TO ENSURE DESIGN POINTS BEING    A40047 03088021
               * MET, MUST HAVE ITS SUBPOOL 250 (0) CORE IN THE HIGHEST         A40047 03088421
               * 2K SLOT OF THE MASTER'S REGION. THESE 8 BYTES WILL NEVER       A40047 03088521
               * BE FREED TO KEEP THIS CONFIGURATION.                           A40047 03088621
                      GETMAIN  R,SP=250,LV=8                                    A40047 03090021
                        SPACE                                                          03092021
                      GETMAIN  R,SP=255,LV=72                                          03100000
                        LR    R5,R1                                                    03120000
                        LR    R13,R1                   STANDARD SAVE PTR               03140000
               *                                 CONSOLE INITIALIZATION                03160000
                      LINK  EP=IEECVCTI                                                03180000
               *                                                                       03200000
                        SR    R0,R0                                                    03300000
                        LA    R1,BAIPL                 ECB ADDRESS                     03320000
               *                                                                       03340000
                      POST  (1),(0)                    POST THE COMMUNICATIONS TASK    03360000
                        LR    R1,R5                                                    03366021
               *                                                                       03368021
                    FREEMAIN  R,SP=255,LV=72,A=(1)                                     03370021
               *                                                                       03372021
               *                                                                       03380000
               **********************************************************************  03400000
               *                            CONTINUE HERE AFTER INITIALIZATION.        03420000
               IP100    EQU   *                                                        03440000
                        SPACE                                                          03460000
                        LA    R13,IPREGSV                                              03480000
                        L     R12,CVTPTR              CVT BASE                         03500000
               *                                IEFJOB APPENDAGE PTR.                  03520000
                       L     R1,CVTJOB                                                 03540000
                        MVC   80(4,R1),CVTXAPG                                         03560000
               *                                      DATE SIGN-CODE.                  03580000
                        LA    R1,15                   'F' FOR SIGN.                    03600000
                        ST    R1,CVTDATE                                               03620000
               *                                                                       03640000
                        L     R11,CVTMSER             MASTER RESIDENT CORE BASE        03660000
                        XC    BAIPL,BAIPL             CLEARED FOR SET COMMAND.         03680000
                        NI    BASFL,255-BAIN          AND CLEAR IPL SWITCH             03700000
                        XC    BAQ(8),BAQ     JOBQE AND PROCLIB UCB POINTERS ZERO  AABA 03900016
               *********************************************************************** 04120000
               *                                                                       04140000
               *              WRITES READY MESSAGE TO OPERATOR, BRANCHES TO            04160000
               *              COMMAND WRITE SUBROUTINE (IP700) WHICH RETURNS CONTROL   04180000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0006


               *              TO AWAIT POSTING FROM SET COMMAND                        04200000
               *              OR, IN SYSTEMS WITH TOD CLOCK SUPPORT, WRITES A    20071 04202020
               *              MESSAGE TO THE OPERATOR TO WHICH HE MUST REPLY     20071 04204020
               *              WITH SET PARAMETERS OR 'U', ISSUES AN INTERNAL SET 20071 04206020
               *              COMMAND, AND WAITS FOR RETURN FROM SVC 34.         20071 04208020
               *              ON RETURN FROM SVC 34, IF THE SET COMMAND IS IN-   20071 04210020
               *              VALID, REISSUES THE WTOR ASKING FOR SET PARAMETERS.20071 04212020
               *              NOTES.STOP AREA IS PRESET FOR NO STOPS=ALL N'S AND       04220000
               *                    FLAG SET TO WTO ONLY ON ENTERING COMMAND WRITE     04240000
               *                    SUBROUTINE                                         04260000
               *                   .STOP AREA MADE AVAILABLE TO STOP COMMAND BEFORE    04280000
               *                    AWAITING SET COMMAND                               04300000
               *                                                                       04320000
               *********************************************************************** 04340000
               *                                                                       04360000
               IP300    EQU   *                                                        04380000
                        LA    R1,RDYMSG               ISSUE 'READY' MESSAGE       XMCS 04390018
                        WTO   MF=(E,(1))                                          XMCS 04400018
               *                                                                       04420000
               *********************************************************************** 04440000
               *             ROUTINE CREATES TIOT BY GETMAIN FROM CORE SUBPOOL 255     04460000
               *               AND MOVING THE MASTER TIOT ASSEMBLED WITHIN THE         04480000
               *              IPL MODULE BY MACRO IEFVTIOT INTO THE GOTTEN CORE        04500000
               *              TIOT IS REQUIRED FOR LOG INITIALIZATION                  04520000
               *********************************************************************** 04521020
                        LA    R5,CB8                  PT TO STOP INDICATOR      A24430 04522020
                        ST    R5,BACV                 AREA BEFORE WAIT          A24430 04523020
                        L     R0,CX108                108 BYTES OF SUBPOOL 255  LMCS   04524020
                        AIF   ('&LCTR' EQ '0').SKIPLOG  IS LOG SPECIFIED - ZERO BUFS   04525020
               *                                      OR NOLOG EXCLUDES LOG            04526020
                        AL    R0,LOGTIOT              IF LOG ADD TIOT SPACE     LMCS   04527020
                        MVC   BALOG+2(2),IPLCS        SAVE OPTIONS FOR LOG INITIAL LM  04528020
               .SKIPLOG ANOP                                                           04529020
                        AIF   ('&SMF' EQ '0').S0      IS SMF PRESENT                   04530020
                        AL    R0,SMFTIOT              ADD SMF TIOT SIZE            SMF 04531020
               .S0      ANOP                                                           04532020
                        AIF   ('&TSO' EQ '0').NOTSO    IS TSO PRESENT            20030 04532200
                        AL    R0,SENDTIOT        ADD TIOT FOR SYS1.BROADCAST     20030 04532400
               .NOTSO   ANOP                                                           04532600
                        GETMAIN R,LV=(0)                                               04533020
                        LA    R10,VTIOT                                                04534020
                        MVC   0(108,R1),0(R10)        MOVE TIOT INTO GOTTEN CORE LMCS  04535020
                        LR    R10,R1                  SETUP TIOT BASE                  04536020
                        USING VTIOT,R10                                                04537020
                        L     R2,CVTTCBP              LOCATE TCB                       04538020
                        L     R2,4(R2)                                                 04539020
                        ST    R10,TCBTIO(R2)          STORE TIOT PTR IN TCB            04540020
                        MVI   CB1,X'00'               FLAG-00=WTO ONLY-NO MGCR         04541020
                        LA    R9,IP308                SET WRITE COMMAND RETURN    OC43 04542020
                        B     IP700                   GO WRITE COMMANDS                04543020
               *                                                                       04544020
               IP308    EQU   *                                                 A24430 04545020
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0007


               *********************************************************************** 04546020
               *                                                                     * 04547020
               *       THIS ROUTINE HANDLES TOD CLOCK SUPPORT                    20071 04548020
               *                                                                     * 04549020
               * 1. STCK IS ISSUED TO DETERMINE THE STATE OF THE TOD CLOCK-      20071 04550020
               *         CONDITION CODE 0 = CLOCK SET                            20071 04551020
               *         CONDITION CODE 1 = CLOCK NOT SET                        20071 04552020
               *         CONDITION CODE 2 = CLOCK IN ERROR STATE                 20071 04553020
               * 2. IF CC=0, THE TOD VALUE IS CONVERTED TO DECIMAL AND MESSAGE   20071 04554020
               *    IEE114A IS ISSUED.  THE OPERATOR CAN REPLY WITH ANY VALID    20071 04555020
               *    SET PARAMETERS OR 'U'.                                       20071 04556020
               * 3. IF CC=1 OR 2,MESSAGE IEE116A IS ISSUED. THE OPERATOR CAN     20071 04557020
               *    REPLY WITH ANY VALID SET PARAMETERS,BUT HE MUST INCLUDE AT   20071 04558020
               *    LEAST DATE.                                                  20071 04559020
               * 4. AN INTERNAL SET COMMAND IS BUILT USING THE OPERATOR'S PARAM- 20071 04560020
               *    ETERS AND/OR TOD VALUES, AND SVC 34 IS ISSUED.(MGCR)         20071 04561020
               * 5. ON RETURN FROM SVC 34, IF THE SET COMMAND IS INVALID, THE    20071 04562020
               *    ORIGINAL MESSAGE WILL BE REPEATED UNTIL A VALID COMMAND IS   20071 04563020
               *    RECEIVED.                                                    20071 04564020
               * 6. THE ' NO IPL ' BIT IS TURNED OFF.                            20071 04565020
               *********************************************************************** 04566020
                        NI    BASFL,HEXDD         TURN OFF NO SET, INTRN SET BITS20071 04567020
                        TM    CVTOPTB,CVTTOD      IS TOD SUPPORTED               20071 04568020
                        BZ    NOTOD               NO, BRANCH AROUND TOD CODE     20071 04569020
                        STCK  TIMEAREA            READ THE TOD VALUE             20071 04570020
                        BZ    CCZERO              IF CC IS 0, GO TO CONVERT RTN  20071 04571020
                        BC    K4,CCONE            IF CC IS 1, SET BITS TO X'01'  20071 04572020
                        OI    CCBITS,HEX03        CC IS 2, SET BITS TO X'11'     20071 04573020
                        B     TODWTOR1            GO SET UP FOR WTOR             20071 04574020
               CCONE    EQU   *                                                  20071 04575020
                        OI    CCBITS,BA7          SET BIT TO 1 FOR CC=1          20071 04576020
               TODWTOR1 EQU   *                                                  20071 04577020
                        TM    CCBITS,HEX03        WAS CC=0 (CLOCK IS SET WITH    M1866 04577220
               *                                  YEAR 2000 OR MORE)             M1866 04577420
                        BZ    CCONE               CHANGE CCBITS TO CC=1          M1866 04577620
                        LA    R1,TODMSG1          PUT MSG ADDR IN REG1 FOR WTOR  20071 04578020
                        B     SETWTOR             GO SET UP FOR WTOR,TOD INVALID 20071 04579020
               CCZERO   EQU   *                                                  20071 04580020
                        NI    CCBITS,HEX00        INDICATE CC=0 (BITS=00)        20071 04581020
               *********************************************************************** 04582020
               *                                                                     * 04583020
               *                 TOD CLOCK CONVERSION ROUTINE                    20071 04584020
               *                                                                     * 04585020
               *********************************************************************** 04586020
               * NOTES-                                                          20071 04587020
               *                                                                     * 04588020
               *    THE TOD CLOCK IS A DOUBLE WORD WHOSE HIGH-ORDER WORD IS      20071 04589020
               *    VALID TO 1.048576 MICRO SECONDS.  TO CALCULATE THE EXACT     20071 04590020
               *    NUMBER OF SECONDS, THE NUMBER OF MICRO SECONDS IN THE HIGH   20071 04591020
               *    ORDER WORD IS MULTIPLIED BY 16384 AND DIVIDED BY 15625. THIS 20071 04592020
               *    IS THE SAME AS MULIIPLYING BY 1.048576, BUT ELIMINATES THE   20071 04593020
               *    DECIMAL POINT.                                               20071 04594020
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0008


               *    THE CONSTANTS, 16384 AND 15625 ARE ALSO USED BY IEE6503D,    20071 04595020
               *    AND THERE WILL BE A TIME DISCREPANCY IF THEY ARE UPDATED IN  20071 04596020
               *    ONE MODULE AND NOT THE OTHER.                                20071 04597020
               *    THE TOD CLOCK STARTS AT JAN 1,1960 AND RUNS FOR 142 YEARS.   20071 04598020
               *    HOWEVER, THIS ROUTINE DOES NOT RECOGNIZE ANY YEAR OVER 1999  20071 04599020
               *    AS VALID. ANY YEAR GREATER THAN 1999 WILL BE TREATED AS IF   M1866 04599620
               *    THE CONDITION CODE FROM THE STORE CLOCK(STCK) HAD BEEN = 1.  M1866 04600220
               *********************************************************************** 04601020
               CONVERT  EQU   *                                                  20071 04602020
                        L     R7,TIMEAREA         LOAD HIGH ORDER WORD OF TOD    20071 04603020
               *                                  CLOCK-VALID TO 1.048576 MIC SEC20071 04604020
                        CL    R7,YR2000           IS TOD GT JAN 1,2000           M5381 04604420
                        BNL   TODWTOR1            YES,ERROR. TOD INVALID         M5381 04604820
                        M     R6,D16384           TOD VALUE MULT BY DEC 16384    20071 04605020
                        D     R6,D15625           DIVIDE BY DECIMAL 15625 FOR    20071 04606020
               *                                  NUMBER OF SECONDS IN TOD CLOCK 20071 04607020
                        XR    R6,R6               CLEAR REMAINDER REG            20071 04610020
                        D     R6,D86400           DIV BY SEC PER DAY TO GET DAYS 20071 04611020
                        LR    R4,R6               SAVE CONTENTS-REM=HH.MM.SS     20071 04612020
                        C     R7,D366             IS NO. DAYS LESS THAN 366      20071 04613020
                        BL    LOWYEAR             YES. YEAR IS 1960              20071 04614020
                        S     R7,D366             SUBTRACT 366 FROM NO. DAYS     20071 04615020
                        XR    R6,R6               ZERO REMAINDER REG             20071 04616020
                        D     R6,D1461            DIV NO.DAYS LEFT BY NO.DAYS    20071 04617020
               *                                  IN 4 YEARS- COUNTS LEAP YEAR   20071 04618020
                        LR    R5,R7               SAVE NO. 4 YEAR BLOCKS         20071 04619020
                        C     R6,D1460            CK FOR LAST DAY OF LEAP YEAR  A52614 04619421
                        BNE   NOTLAST             BRANCH IF NO                  A52614 04619821
                        LA    R7,N3               SET QUOTIENT TO 3 YEARS       A52614 04619921
                        L     R6,D365             SET REMAINDER TO 365 DAYS     A52614 04622421
                        B     LASTDAY             GO TO FIGURE LAST DAY OF LEAP A52614 04624421
               N3       EQU   3                                                 A52614 04626421
               NOTLAST  EQU   *                                                 A52614 04628421
                        SRDL  R6,BITS32           MOVE EVEN REG TO ODD REG       20071 04630021
                        D     R6,D365             GET NO. YRS SINCE LEAP YEAR    20071 04632521
               LASTDAY EQU   *                                                  A52614 04634421
                        LA    R7,SIXTY(R7)        ADD NO. YEARS SINCE LEAP YEAR  20071 04635021
               *                                  TO 1960(FIRST YEAR OF CLOCK)   20071 04637521
                        SLL   R5,K2               NO. OF YEARS = NO. OF FOUR     20071 04640021
               *                                  YEAR BLOCKS TIMES FOUR         20071 04642521
                        AR    R7,R5               ADD NO. OF 4 YEAR BLKS TO (60+ 20071 04645021
               *                                  NO. OF YEARS SINCE LEAP YEAR   20071 04647521
               *   NOTE- IT IS NECESSARY TO ADD 1,BECAUSE THE CLOCK STARTS AT 0  20071 04650021
               *         ON JAN 1,1960, BUT WE REFER TO THAT DAY AS DAY 1.       20071 04652521
                        LA    R7,K1(R7)           ADD ONE. TOTAL= CURRENT YEAR   20071 04655021
                        LA    R6,K1(R6)           ADD ONE. TOTAL= CURRENT DAY    20071 04657521
                        MH    R7,TEN              SET UP YEAR FOR CVD            20071 04660021
                        CVD   R7,DOUBLE           MAKE YEAR PACKED DECIMAL       20071 04662521
                        UNPK  YDATE(K3),DOUBLE+K6(K2)  UNPACK YEAR (YY)          20071 04665021
                        MH    R6,TEN              SET UP FOR CVD                 20071 04667521
                        CVD   R6,DOUBLE           MAKE DAY PACKED DECIMAL        20071 04670021
                        B     SETDAY              GO PUT DDD IN BUFFER           20071 04672521
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0009


               LOWYEAR  EQU   *                                                  20071 04675021
                        MVC   YDATE(K2),D60       YEAR IS 1960                   20071 04677521
                        LA    R7,K1(R7)           ADD ONE DAY FOR LEAP YEAR      20071 04680021
                        MH    R7,TEN              SET UP DAY FOR CVD             20071 04682521
                        CVD   R7,DOUBLE           MAKE DAY PACKED DECIMAL        20071 04685021
               SETDAY   EQU   *                                                  20071 04687521
                        UNPK  DDATE(K4),DOUBLE+K5(K3)  UNPACK DAY (DDD)          20071 04690021
                        MVI   YDATE+K2,DOT         SET UP FOR COMMAND (YY.DDD)   20071 04692521
                        LR    R7,R4                GET HOURS, MIN, SEC           20071 04695021
                        XR    R6,R6                ZERO REMAINDER REG            20071 04697521
                        D     R6,D3600             DIVIDE BY NO.SEC PER HOUR     20071 04700021
                        MH    R7,TEN               SET UP HOURS FOR CVD          20071 04702521
                        CVD   R7,DOUBLE            MAKE HOURS PACKED DECIMAL     20071 04705021
                        UNPK  HTIME(K3),DOUBLE+K6(K2)  UNPACK HOURS (HH)         20071 04707521
                        MVI   HTIME+K2,DOT         SET UP FOR COMMAND (HH.MM.SS) 20071 04710021
                        SRDL  R6,BITS32            MOVE MIN AND SEC INTO ODD REG 20071 04712521
                        XR    R6,R6                ZERO REMAINDER REG            20071 04715021
                        D     R6,F60               DIVIDE BY NO. SEC PER MINUTE  20071 04717521
                        MH    R7,TEN               SET UP MINUTES FOR CVD        20071 04720021
                        CVD   R7,DOUBLE            MAKE MINUTES PACKED DECIMAL   20071 04722521
                        UNPK  MTIME(K3),DOUBLE+K6(K2) UNPACK MINUTES (MM)        20071 04725021
                        MVI   MTIME+K2,DOT         SET UP FOR COMMAND (HH.MM.SS) 20071 04727521
                        MH    R6,TEN               SET UP SECONDS FOR CVD        20071 04730021
                        CVD   R6,DOUBLE            MAKE SECONDS PACKED DECIMAL   20071 04732521
                        UNPK  STIME(K3),DOUBLE+K6(K2)  UNPACK SECONDS (SS)       20071 04735021
               TODWTOR2 EQU   *                                                  20071 04737521
                        LA    R1,TODMSG2          GET ADDR OF WTOR MSG           20071 04740021
                        MVC   MSGCHNG+K13(K6),YDATE PUT CURRENT TOD DATE IN MSG  20071 04742521
                        MVC   MSGCHNG+K26(K8),HTIME PUT CURRENT TOD TIME IN MSG  20071 04745021
               SETWTOR  EQU   *                                                  20071 04747521
                        MVI   TODREPLY,BLANK      PUT BLANK IN FIRST BYTE        20071 04750021
                        MVC   TODREPLY+K1(K119),TODREPLY  CLEAR REPLY AREA       20071 04752521
                        MVI   TODECB,HEX00        CLEAR ECB FOR TOD MSG WTOR     20071 04755021
                        WTOR  ,TODREPLY,120,TODECB,MF=(E,(1))   ISSUE WTOR       20071 04757521
                        WAIT  ECB=TODECB          WAIT FOR OPERATOR'S REPLY      20071 04760021
                        LA    R5,TODREPLY         GET ADDR OF REPLY              20071 04762521
                        CLC   K0(K2,R5),U         YES. WAS REPLY 'U'             20071 04765021
                        BNE   DATECHK             NO. SEE IF DATE WAS SPECIFIED  20071 04767521
                        TM    CCBITS,HEX03        WAS YHE CC=0                   20071 04770021
                        BNZ   SETUP               NO, GO ISSUE SET COMMAND       20071 04772521
                        MVC   TODREPLY(K5),DATE   MOVE 'DATE=' INTO BUFFER       20071 04775021
                        MVC   TODREPLY+K5(K6),YDATE  MOVE YY.DDD INTO BUFFER     20071 04777521
                        B     NOSET               GO SET NO SET BIT              20071 04780021
               DATECHK  EQU   *                                                  20071 04782521
                        CLC   K0(K5,R5),DATE      WAS 'DATE=' SPECIFIED          20071 04785021
                        BE    TIMECHK             YES. CHECK FOR 'CLOCK='        20071 04787521
                        CLC   K0(K5,R5),LOWCASE1  WAS IT LOWER CASE 'DATE='      M1866 04790021
                        BE    TIMECHK             YES. CHECK FOR 'CLOCK='        M1866 04792521
                        LA    R5,K1(R5)           NO. POINT TO NEXT CHAR         20071 04795021
                        CLI   K0(R5),BLANK        IS CHAR BLANK(END OF COMMAND)  20071 04797521
                        BNE   DATECHK             NO. CHECK FOR 'DATE=' AGAIN    20071 04800021
                        TM    CCBITS,HEX03        IS CC=0                        20071 04802521
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0010


                        BNZ   SETUP               NO. ERROR. PASS CMND AS IS     20071 04805021
                        MVC   K0(K6,R5),COMDATE   YES. ADD 'DATE=' TO PARAMS     20071 04807521
                        MVC   K6(K6,R5),YDATE     DATE=TOD DATE FOR SET COMMAND  20071 04810021
                        LA    R5,K1(R5)           ADD 1 SO REG POINTS TO 'DATE=' 20071 04812521
               TIMECHK  EQU   *                                                  20071 04815021
                        LR    R6,R5               SAVE POINTER TO 'DATE='        20071 04817521
                        LA    R5,TODREPLY         POINT TO START OF REPLY        20071 04820021
               TIMECHK2 EQU   *                                                  20071 04822521
                        CLC   K0(K6,R5),CLOCK     WAS 'CLOCK=' SPECIFIED         20071 04825021
                        BE    SETUP               'DATE=', 'CLOCK=' SPECIFIED    20071 04827521
                        CLC   K0(K6,R5),LOWCASE2  WAS IT LOWER CASE 'CLOCK='     M1866 04830021
                        BE    SETUP               YES. GO ISSUE COMMAND          M1866 04832521
                        LA    R5,K1(R5)           POINT TO NEXT CHAR             20071 04835021
                        CLI   K0(R5),BLANK        IS CHARACTER BLANK(END OF CMND)20071 04837521
                        BNE   TIMECHK2            NO. CHECK FOR 'CLOCK='         20071 04840021
                        LR    R1,R5               TEMP SAVE PTR TO COMMAND END   20071 04842521
                        TM    CCBITS,HEX03        WHAT IS COND CODE FROM STCK    20071 04845021
                        BZ    DATECHK2            CC=0. SEE IF TOD DATE=REPLY    20071 04847521
               *                                  DATE. IF YES,TOD WONT BE SET   20071 04850021
                        MVC   K0(K15,R5),COMCLOCK CC NOT 0- CLOCK=00.00.00       M1866 04852521
                        B     SETUP               GO ISSUE SET COMMAND           20071 04855021
               DATECHK2 EQU   *                                                  20071 04857521
                        CLC   K5(K6,R6),YDATE     IS REPLY DATE=TOD DATE         20071 04860021
                        BNE   SETUP               NO. GO ISSUE SET COMMAND       20071 04862521
               NOSET    EQU   *                                                  20071 04865021
                        OI    BASFL,BANOSET       TURN ON NO SET BIT             20071 04867521
               SETUP    EQU   *                                                  20071 04870021
                        XR    R0,R0               ZERO REG0- INDICATE SYSTEM     20071 04872521
               *                                  COMMAND FOR SVC 34             20071 04875021
                        OI    BASFL,BAINTSET      TURN ON INTERNAL SET BIT       20071 04877521
                        XC    BAIPL,BAIPL         CLEAR RETURN CODE ECB          20071 04880021
                        MGCR  TODBUF                                             20071 04882521
                        CLI   BAIPL+K3,K8         WAS SET COMMAND OK (IF NOT,    20071 04885021
               *                                  RET CODE PASSED IN ECB)        20071 04887521
                        BE    IP308               NO.  CLOCK COULD NOT BE SET. GO20071 04890021
               *                                  BACK AND REISSUE TOD MESSAGE   20071 04892521
                        B     ENDIPL              SET COMMAND OK. IPL OVER       20071 04895021
               NOTOD    EQU   *                                                  20071 04897521
                        WAIT  ECB=BAIPL                                                04900000
               ENDIPL   EQU   *                                                  20071 04905020
                        OI    BASFL,BAIN          TURN ON 'NO IPL' BIT           20071 04910020
                        EJECT                                                     AABA 04915016
               *******************************************************************AABA 04920016
               *                                                                  AABA 04925016
               *  THE FOLLOWING DETERMINES THE LOCATION OF SYS1.SYSJOBQE AND      AABA 04930016
               *  SYS1.PROCLIB AND VERIFIES THAT THE DATA SET EXISTS ON THE INDICAAABA 04935016
               *  UNIT.                                                           AABA 04940016
               *                                                                  AABA 04945016
               *  THE FOLLOWING POSSIBILITIES EXIST:                              AABA 04950016
               *                                                                  AABA 04955016
               *      1) THE UNIT WAS SPECIFIED IN THE SET COMMAND                AABA 04960016
               *            A)LOCATIONS BAQ AND/OR BAPRC WILL NOT BE ZERO         AABA 04965016
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0011


               *      2) THE DATA SET IS CATALOGUED                               AABA 04970016
               *      3) SYSGEN VALUES ARE USED                                   AABA 04975016
               *      4) THE IPL VOLUME CONTAINS THE DATA SET                     AABA 04980016
               *                                                                  AABA 04985016
               *  THE FOLLOWING ERRORS ARE POSSIBLE:                              AABA 04990016
               *                                                                  AABA 04995016
               *      1) THE VOLUME INDICATED BY THE CATALOGUE IS NOT MOUNTED     AABA 05000016
               *      2) THE SELECTED VOLUME DOES NOT CONTAIN THE DATA SET        AABA 05005016
               *                                                                  AABA 05010016
               *  WHEN THE LOCATION OF SYS1.PROCLIB IS ASCERTAINED,THE DATA SET WIAABA 05015016
               *  BE RECATALOGUED                                                 AABA 05020016
               *                                                                  AABA 05025016
               *********************************************************************** 05030016
               IP325    DS    0H                                                  AABA 05035016
               * GETMAIN AND SET UP WORKAREA FOR LOCATE AND OBTAIN MACROS         AABA 05040016
                        GETMAIN R,LV=IPWKEND,SP=255                               AABA 05045016
                        LR    R4,R1               WORKAREA ADDRESS TO R4          AABA 05050016
                        USING IPWKST,R4           ADDRESSABILTY                   AABA 05055016
                        MVI   DSNAREA,X'40'       BLANK DATA SET NAME AREA        AABA 05060016
                        MVC   DSNAREA+1(43),DSNAREA                               AABA 05065016
               * SET UP PARAMETER LIST                                            AABA 05070016
                        ST    R4,PARM4            ADDRESS OF WORKAREA             AABA 05075016
                        LA    R1,DSNAREA          ADDRESS OF DATA SET NAME AREA   AABA 05080016
                        ST    R1,PARM2                                            AABA 05085016
               * SET UP TO VERIFY THE LOCATION OF SYS1.SYSJOBQE                   AABA 05090016
                        MVC   IP400WKR(6),BLNKS   BLANK WORK AREA                 AABA 05095016
                        MVC   DSNAREA(14),JOBQDSN JOBQ DATA SET NAME TO PARAMETR  AABA 05100016
                        TM    BAQ,X'FF'           UNIT NAME SPECIFIED ON SET COMMAAABA 05105016
               *                                  FOR SYS1.SYSJOBQE               AABA 05110016
                        BC    7,IP340             BRANCH IF Q UNITNAME SPECIFIED  AABA 05115016
                        BAL   R9,IP350      IF NOT SPECIFIED IN SET COMMAND,      OC43 05120017
               *                                  GO TO SEARCH CATALOG FOR DATA SEAABA 05125016
               * UPON RETURN, UCB ADDRESS OF THE UNIT CONTAINING JOBQ IS CONTAINEDAABA 05130016
               * IN R1                                                            AABA 05135016
               IP327    DS    0H                                                  AABA 05140016
                        USING UCBOB,R6                                           *AABA 05141016
                        OI    SRTESTAT,SRTEPRES   SET VOLUME PERM. RES.          *AABA 05142016
                        ST    R6,BAQ              SAVE JOBQ UCB ADDRESS           AABA 05145016
               * DETERMINE AND VERIFY THE LOCATION OF SYS1.PROCLIB                AABA 05150016
                        MVC   IP400WKR(6),BLNKS   BLANK WORK AREA                 AABA 05155016
               IP330    DS    0H                                                  AABA 05160016
                        MVC   DSNAREA(14),PROCDSN PROC3IB DATA SET NAME TO PARM ARAABA 05165016
                        TM    BAPRC,X'FF'         PROCLIB UNIT NAME SPECIFIED     AABA 05170016
                        BC    7,IP345             BRANCH IF UNIT NAME SPECIFIED   AABA 05175016
                        BAL   R9,IP350      IF NOT SPECIFIED,BRANCH TO LOCATE     OC43 05180017
               * UPON RETURN, UCB ADDRESS OF THE UNIT CONTAINING THE PROCEDURE    AABA 05185016
               * LIBRARY IS CONTAINED IN R1                                       AABA 05190016
               IP333    DS    0H                                                  AABA 05195016
                        OI    SRTESTAT,SRTEPRES   SET VOLUME PERM. RES.          *AABA 05196016
                        DROP  R6                                                 *AABA 05197016
                        ST    R6,BAPRC            SAVE PROC UCB ADDRESS           AABA 05200016
                        B     IP500               BRANCH TO NEXT PHASE            AABA 05205016
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0012


               * Q UNIT NAME SPECIFIED IN SET COMMAND                             AABA 05210016
               IP340    DS    0H                  ALIGNMENT                       AABA 05215016
                        MVC   IP400WKR(3),BAQ     UNIT NAME TO WORKAREA           AABA 05220016
                        LA    R9,IP327            RETURN ADDRESS                  OC43 05225017
               IP343    MVI   IP400SW,BIT0        INDICATE SEARCH ON UNIT NAME    AABA 05230016
                        BAL   R3,IP400            GO TO UCB SEARCH ROUTINE        AABA 05235016
                        B     IP413               UCBNAME NOT VERIFIED            AABA 05240016
                        B     IP360               BRANCH TO OBTAIN ROUTINE        AABA 05245016
               * PROC UNIT NAME SPECIFIED IN SET COMMAND                          AABA 05250016
               IP345    DS    0H                                                  AABA 05255016
                        MVC   IP400WKR(3),BAPRC   UNIT NAME TO WORK AREA          AABA 05260016
                        CLI   BAPRC+3,C' '        IS 2321 INDICATED               AABA 05265016
                        BE    IP346               NO,BRANCH                       AABA 05270016
                        MVI   IP400WKR+3,C'/'     SLASH TO WORKAREA               AABA 05275016
                        MVC   IP400WKR+4(1),BAPRC+3 BIN NUMBER TO WORK AREA       AABA 05280016
                        CLI   IP400WKR+4,X'F0'    IS BIN NUMBER VALID             AABA 05285016
                        BL    IP413               NO,ERROR                        AABA 05290016
               IP346    DS    0H                                                  AABA 05295016
                        LA    R9,IP333            RETURN ADDRESS                  OC43 05300017
                        B     IP343               BRANCH                          AANA 05305016
               * ISSUE LOCATE FOR REQUIRED DATA SET                               AABA 05310016
               IP350    DS    0H                  ALIGNMENT                       AABA 05315016
                        MVC   PARM1(4),LOCCNTRL   LOCATE CONTROL BYTE             AABA 05320016
                        XC    PARM3(4),PARM3      ZERO PARM3 FOR LOCATE           AABA 05325016
                        LA    R1,PARM1            INDICATE PARAMETER AREA         AABA 05330016
               *                                                                  AABA 05335016
                        LOCATE (1)                                                AABA 05340016
               *                                                                  AABA 05345016
                        LTR   R15,R15             WAS LOCATE SUCCESSFUL           AABA 05350016
                        BC    7,IP370             NO,BRANCH DATA SET NOT CATALOGEDAABA 05355016
                        MVC   VOLSRAR(6),VCBVOLSN MOVE VOLUME SERIAL TO WORK AREA AABA 05360016
                        MVI   IP400SW,BIT1        INDICATE SEARCH FOR VOL SERIAL  AABA 05365016
                        BAL   R3,IP400            DETERMINE IF VOLUME MOUNTED     AABA 05370016
                        B     IP380               VOLUME NOT MOUNTED,BRANCH       AABA 05375016
               * VOLUME HAS BEEN SELECTED,DETERMINE IF DATA SET EXISTS ON VOLUME  AABA 05380016
               IP360    DS    0H                  NORMAL RETURN FROM ABOVE AND    AABA 05385016
               *                                  ENTRY TO OBTAIN ROUTINE         AABA 05390016
                        LA    R1,VOLSRAR          ADDRESS OF VOLUME SERIAL FOR    AABA 05395016
                        ST    R1,PARM3            OBTAIN TO WORK AREA             AABA 05400016
                        MVC   PARM1(4),OBTCNTRL   OBTAIN CONTROL BYTE             AABA 05405016
                        LA    R1,PARM1            INDICATE PARAMETERS             AABA 05410016
               *                                                                  AABA 05415016
                        OBTAIN (1)                                                AABA 05420016
               *                                                                  AABA 05425016
                        LTR   R15,R15             WAS OBTAIN SUCCESSFUL           AABA 05430016
                        BC    7,IP390             OBTAIN FAILED, BRANCH           AABA 05435016
                        BR    R9                  RETURN                          OC43 05440017
               * LOCATE FAILED  DETERMINE VOLUME BY LOOKING AT SYSGEN VALUE FOR   AABA 05445016
               * DATA SET OR IPL VOLUME IF NO SYSGEN VALUE WAS SPECIFIED          AABA 05450016
               IP370    DS    0H                                                  AABA 05455016
                        CLC   DSNAREA(7),JOBQDSN  IS SEARCH FOR JOBQ DEVICE       AABA 05460016
                        BE    IP372               YES,BRANCH                      AABA 05465016
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0013


                        CLI   IPSGPL,C' '         SYSGEN VALUE FOR PROCLIB        AABA 05470016
                        BE    IP375               NO,SEARCH FOR IPL VOLUME        AABA 05475016
                        MVC   IP400WKR(5),IPSGPL  PROCLIB UNITNAME FOR UCB SRCH   AABA 05480016
               IP371    DS    0H                                                  AABA 05485016
                        MVI   IP400SW,BIT0        INDICATE SEARCH ON UNIT NAME    AABA 05490016
               IP371A   BAL   R3,IP400            BRANCH TO UCB SEARCH            AABA 05495016
                        USING UCBOB,R6                                            AABA 05500016
                        B     IP413               ERROR,NOT VERIFIED              AABA 05505016
               IP371B   DS    0H                                                  AABA 05510016
                        MVC   VOLSRAR(6),SRTEVOLI VOLUME SERIAL TO WORKAREA       AABA 05515016
                        B     IP360               BRANCH TO OBTAIN ROUTINE        AABA 05520016
               IP372    DS    0H                  SEARCH IS FOR JOBQ DEVICE       AABA 05525016
                        CLI   IPSGJQ,C' '         SYSGEN VALUE FOR JOBQ DEVICE    AABA 05530016
                        BE    IP375               NO,SEARCH FOR IPL VOLUME        AABA 05535016
                        MVC   IP400WKR(3),IPSGJQ  PROCLIB UNIT ADDRESS FOR UCB SEARCH  05540016
                        B     IP371               GO TO SEARCH ROUTINE            AABA 05545016
               * SYSGEN VALUES NOT SPECIFIED,SEARCH FOR IPL VOLUME                AABA 05550016
               IP375    DS    0H                                                  AABA 05555016
                        L     R6,CVTSYSAD         LOAD UCB ADDRESS OF IPL VOLUME  AABA 05560016
                        LR    R5,R6               R5,ADDRESS OF IPL VOLUME UCB    AABA 05565016
                        MVC   IP394(3),UCBNAME    UCB NAME TO MESSAGE AREA        AABA 05570016
                        B     IP371B              CONTINUE                        AABA 05575016
               * THE VOLUME INDICATED BY THE CATALOGUE IS NOT MOUNTED             AABA 05580016
               IP380    DS    0H                                                  AABA 05585016
                        LA    R1,IP381            ADDRESS OF MESSAGE              AABA 05590016
                        MVC   IP383(14),DSNAREA   DATA SET NAME TO MESSAGE        AABA 05595016
                        MVC   IP382(6),VOLSRAR    VOLUME SERIAL TO MESSAGE        AABA 05600016
                        B     IP380390            BRANCH TO WRITE                 AABA 05605016
               * REQUIRED DATA SET NOT FOUND ON SELECTED VOLUME                   AABA 05610016
               IP390    DS    0H                                                  AABA 05615016
                        LA    R1,IP391            ADDRESS OF MESSAGE              AABA 05620016
                        MVC   IP392(14),DSNAREA   DATA SET NAME TO                AABA 05625016
                        MVC   IP393(6),VOLSRAR    VOLUME SERIAL TO MESSAGE        AABA 05630016
               IP380390 DS    0H                                                  AABA 05635016
                        WTO   MF=(E,(1))          *                               AABA 05640016
                        B     IP450               FREE CORE                       AABA 05645016
               **********************************************************************  05650016
               *                                                                  AABA 05655016
               * UCB SEARCH:                                                      AABA 05660016
               *                                                                  AABA 05665016
               *        IP400SW INDICATES THE TYPE OF SEARCH TO MAKE              AABA 05670016
               *              BIT0=UNITNAME                                       AABA 05675016
               *              BIT1=VOLUME SERIAL NUMBER                           AABA 05680016
               *              BIT2=IPL VOLUME                                     AABA 05685016
               *        IP400WKR CONTAINS 3 OR 5 BYTE UCB NAME                    AABA 05690016
               *        VOLSRAR CONTAINS THE VOLUME SERIAL NUMBER                 AABA 05695016
               *                                                                  AABA 05700016
               *        NORMAL EXIT                                               AABA 05705016
               *              R6 CONTAINS UCB ADDRESS                             AABA 05710016
               *              BRANCH R3                                           AABA 05715016
               *                                                                  AABA 05720016
               **********************************************************************  05725016
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0014


               IP400    DS    0H                                                  AABA 05730016
                        L     R7,CVTILK2          SRT TABLE ADDRESS               AABA 05735016
               IP401    LH    R6,0(R7)            UCB ADDRESS                     AABA 05740016
                        LTR   R6,R6               HOLE IN TABLE                   AABA 05745016
                        BZ    IP403               YES,BRANCH TO GET NEXT ADDRESS  AABA 05750016
                        N     R6,CF0F             ZERO HIGH ORDER BITS            AABA 05755016
                        CL    R6,CF0F             END OF UCB LIST                 AABA 05760016
                        BNE   IP404               BRANCH TO CHECK UCB             AABA 05765016
               IP402    BR    R3                  END OF UCB LIST ZND NOT FOUND   AABA 05770016
               *                                  ERROR RETURN                    AABA 05775016
               IP403    LA    R7,2(R7)            INCREMENT TO NEXT ENTRY         AABA 05780016
                        B     IP401               CHECK ENTRY                     AABA 05785016
               IP404    MVC   IP394(3),UCBNAME    SAVE UNIT NAME                  AABA 05790016
                        USING UCBOB,R6                                            AABA 05795016
                        TM    IP400SW,BIT0        SEARCH ON UCB NAME              AABA 05800016
                        BO    IP407               YES,BRANCH                      AABA 05805016
               IP405    DS    0H                  SEARCH ON VOLUME SERIAL         AABA 05810016
                        LR    R5,R6               MAIN UCB ADDRESS TO R5          AABA 05815016
                        CLC   SRTEVOLI(6),VOLSRAR VOLUME SERIALS MATCH            AABA 05820016
                        BE    4(R3)               YES,RETURN                      AABA 05825016
                        CLC   UCBTYP+2(2),TYPE2321 IS DEVICE A 2321               AABA 05830016
                        BNE   IP403               NO GET NEXT UCB                 AABA 05835016
                        LA    R1,10(0,0)          LOOP CONTROL                    AABA 05840016
                        LA    R6,DATACELL-UCBOB(0,R6) INCREMENT TO SUB UCBS       AABA 05845016
               IP406    DS    0H                                                  AABA 05850016
                        USING DATACELL,R6                                         AABA 05855016
                        CLC   DCELVOLI(6),VOLSRAR VOLUME SERIALS MATCH            AABA 05860016
                        BE    4(R3)               YES,RETURN                      AABA 05865016
                        LA    R6,16(R6,0)         INCREMENT TO NEXT SUB UCB       AABA 05870016
                        BCT   R1,IP406                                            AABA 05875016
                        B     IP403               CESSED;GET NEXT UCB             AABA 05880016
               IP407    DS    0H                  SEARCH ON UNITNAME              AABA 05885016
                        USING UCBOB,R5                                            AABA 05890016
                        LR    R5,R6               ADDRESS OF MAIN UCB TO R5       AABA 05895016
                        CLC   UCBNAME(3),IP400WKR UCB NAMES MATCH                 AABA 05900016
                        BNE   IP403               NO,GET NEXT UCB                 AABA 05905016
                        CLI   IP400WKR+3,C'/'     IS 2321 SPECIFIED               AABA 05910016
                        BE    IP408               YES,BRANCH                      AABA 05915016
                        CLC   UCBTYP+2(2),TYPE2321 IS IT 2321                     AABA 05920016
                        BE    IP413               YES,ERROR                       AABA 05925016
                        OC    SRTEVOLI,SRTEVOLI   VOLUME READY                    AABA 05930016
                        BZ    IP413               NO,BRANCH                       AABA 05935016
                        MVC   VOLSRAR(6),SRTEVOLI VOLUME SERIAL TO WORKAREA       AABA 05940016
                        B     4(R3)               RETURN                          AABA 05945016
               IP408    DS    0H                                                  AABA 05950016
                        CLC   UCBTYP+2(2),TYPE2321 IS IT 2321                     AABA 05955016
                        BNE   0(R3)               NO,ERROR                        AABA 05960016
               IP409    DS    0H                                                  AABA 05965016
                        IC    R6,IP400WKR+4       BIN NUMBER                      AABA 05970016
                        N     R6,CF00F            ZERO ZONE AND THREE HIGH BYTES  AABA 05975016
                        SLL   R6,4                TIMES 16                        AABA 05980016
                        LA    R6,DATACELL-UCBOB(R5,R6) INCREMENT TO SUB UCB       AABA 05985016
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0015


                        OC    DCELVOLI,DCELVOLI   DEVICE READY                    AABA 05990016
                        BZ    IP413               NO,BRANCH                       AABA 05995016
                        MVC   VOLSRAR(6),DCELVOLI VOLUME SERIAL TO WORKAREA       AABA 06000016
                        B     4(R3)               NORMAL RETURN                   AABA 06005016
               *                                                                  AABA 06010016
               IP413    EQU   *                                                        06040000
                        DROP  R10                                                      06060000
                        USING XSA,R2                                                   06080000
                        LA    R2,IPXSA                      SETUP MSG TO PRINT         06100000
                        MVI   XAV,X'40'                     BLANK VERB AREA            06120000
                        MVC   XAV+1(7),XAV                                             06140000
                        MVI   XAR,X'0D'                     INSERT MSG NO              06160000
                        MVC   XAV(5),IP400WKR     INSERT INVALID UNIT REF         AABA 06170016
                        MVC   XAJ(TWO),HALFZERO   CLEAR OUT TJID FIELD           M5510 06180020
               IP455    EQU   *                                                        06195013
                        LA    R14,IP449           RETURN POINT                    AABA 06203016
                        ST    R4,MAINSVE          SAVE ADDRESS OF GOTTEN AREA     AABA 06211016
                        LINK  EP=IEE0503D                   GO PRINT MSG -RETURN TO    06220000
               IP449    L     R4,MAINSVE          RESTORE GOTTEN CORE POINTER     AABA 06230016
               IP450    NI    BASFL,255-BAIN               ZERO IPL FLAG               06240000
                        LR    R1,R4               ADDRESS OF AREA TO FREE         AABA 06246016
                        FREEMAIN R,SP=255,LV=IPWKEND,A=(1)                        AABA 06252016
                        B     IP540                                              M1874 06260021
                        DROP  R6                                                  AABA 06266016
                        USING UCBOB,R5                                            AABA 06272016
                        DROP  R2                                                       06280000
               *********************************************************************** 06300000
               *             CATALOG SYS1.PROCLIB                                      06310014
               *             FILL IN TIOT WITH THE UCB ADDRESSES FOR JOB QUEUE AND     06320000
               *              PROCLIB BEFORE GOING TO IEFQINTZ TO INITIALIZE           06340000
               *              JOB QUEUE                                                06360000
               *********************************************************************** 06380000
               *                                                                       06400000
               IP500    EQU   *                                                        06420000
                        LR    R1,R4               ADDRESS OF AREA TO FREE         AABA 06420316
                        FREEMAIN R,SP=255,LV=IPWKEND,A=(1)                        AABA 06420616
                        MVC   IPDEVTYP(4),UCBTYP  DEVICE TYPE                          06421014
                        NI    IPDEVTYP+1,X'FE'                                  S21167 06421121
                        DROP  R5                                                 *AABA 06421316
                        USING UCBOB,R6                                           *AABA 06421616
                        CLI   UCBID,X'FF'         IS THIS MAIN UCB                     06422014
                        BNE   IP510               YES                                  06423014
                        MVC   IPVOLSER(6),SRTEVOLI VOLUME SER NO                       06424014
                        B     IP515                                                    06425014
               IP510    EQU   *                                                        06426014
                        MVC   IPVOLSER(6),DCELVOLI-DATACELL(R6) VOLUME SERIAL     AABA 06427016
                        DROP  R6                                                 *AABA 06428016
               IP515    EQU   *                                                        06429014
                        CATALOG IPCAT             CATALOG DATA SET                     06430014
                        C     R15,CB08            IS RETURN CODE 8                     06431014
                        BNE   IP517               NO. CONTINUE                         06432014
                        CLI   IPCAT,CAT           IS THIS SECOND FAILURE               06432314
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0016


                        BE    IP516              YES-ERROR EXIT                 A31761 06432620
                        MVI   IPCAT,CAT           INDICATE CATALOG                     06433014
                        B     IP515               TRY CATALOG                          06434014
               IP516    CVD   R15,WORK1          PREPARE TO PRINT RETURN CODE   A31761 06434120
                        UNPK  WORK2(4),WORK1+FOUR(4) FROM CATALOG IN ERROR MSG  A31761 06434220
                        OI    WORK2+THREE,FOXZERO   MAKE PRINTABLE LAST DIGIT   A31761 06434320
                        MVC   NOIPLMSG+CODEDISP(2),WORK2+TWO  PUT RETURN CODE   A31761 06434420
               *                                 INTO THE MESSAGE               A31761 06434520
               NOIPLMSG WTO  'IEE139I INITIALIZATION FAILED  CODE=  ',ROUTCDE=2,DESC=4 06434620
                        B     IP540                                             A31761 06434720
               WORK1    DS    D        WORKAREA--USED TO PREPARE CATALOG RETURN A31761 06434820
               WORK2    DS    F        CODE FOR ERROR MESSAGE                   A31761 06434920
               IP517    EQU   *                                                        06435014
                        LTR   R15,R15             TEST RETURN CODE                     06436014
                        BNZ   IP516              ERROR EXIT                            06438020
                        USING VTIOT,R10                                                06440000
                        MVC   VJUCBPT+1(3),BAQ+1       INITIALIZE JQ TIOT UCB PTR      06460000
                        MVC   VPUCBPT+1(3),BAPRC+1           PROC LB TIOT UCB PTR      06480000
               *************************************************************** SA72193 06482021
               *              INTERFACE WITH POWER WARNING                     SA72193 06484021
               *************************************************************** SA72193 06486021
                        DROP  R10                                              SA72193 06488021
                        XC    IPQPAM(16),IPQPAM       ZERO PARM LIST           SA72193 06490021
                        ST    R10,IPQPAM              PASS TIOT PTR            SA72193 06492021
                        LA    R1,IPQPAM               SETUP PARM PTR           SA72193 06494021
                        L     R15,VCONBIE0                                     SA72193 06496021
                        BALR  R14,R15                                          SA72193 06498021
               *                                                                       06500000
               *********************************************************************** 06520000
               *              QUEUE MANAGER TO INITIALIZE THE JOB QUEUE--              06540000
               *              INTERFACE- R1 - POINTS TO 4 WORD PARAMETER LIST ON ENTRY 06560000
               *                              .WORD 1 CONTAINS UCB ADDRESS FOR JOB Q   06580000
               *                         R2 -CONTAINS THE ECB ADDRESS-BAIPL- FOR       06600000
               *                            POSTING WAIT FROM IEFQINTZ AND THE         06620000
               *                            RETURN CODE FROM THE QUEUE INITIALIZATION  06640000
               *                              .ZERO -INITIALIZATION COMPLETE           06660000
               *                              .NOTZERO=ERROR=NOT COMPLETE              06680000
               *              ERROR DETECTION-FREES TIOT CORE,ZERO TIOT PTR IN TCB     06700000
               *                              AND RETURNS TO MODULE BEGINNING TO TRY   06720000
               *                              AGAIN                                    06740000
               *                             -SUPPRESS AUTO STARTS IF QCR ERROR A31300 06746020
               *                              OCCURRED DURING WARM START        A31300 06752020
               *********************************************************************** 06760000
               *                                                                       06780000
               IP520    MVC   IPQPAM(4),BAQ            INIT JOB Q                      06820000
                        MVC   IPQPAM(1),BACV        PICK UP Q FORMAT IND..             06840000
                        AIF   ('&SMF' EQ '0').S1      IS SMF PRESENT                   06842018
                        TM    BACV,X'80'              WARM START INDICATED         SMF 06844018
                        BC    7,IP527                 NO                           SMF 06846018
                        OI    SMFOPT+3,X'01'          YES, INDICATE IT             SMF 06848018
               IP527    EQU   *                                                    SMF 06850018
               .S1      ANOP                                                           06852018
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0017


               IP530    LA    R1,IPQPAM                SETUP QM                        06860000
                        XC    BAIPL,BAIPL            CLEAR ECB FOR ATTACH              06880000
                        LA    R2,BAIPL            SETUP ECB ADDRESSIN R2               06900000
                        ATTACH EP=IEFQINTZ,ECB=(2),MF=(E,(1)),SM=PROB,            I270X06910019
                              JSTCB=YES,KEY=ZERO,SVAREA=NO,SZERO=NO,GIVEJPQ=NO    I270 06920019
                        ST    R1,CB10          TEMP SAVE TCB OF SUBTASK                06940000
                        WAIT  ECB=BAIPL          WAIT TO BE POSTED                     06960000
                        LA    R1,CB10        RESET SUBTASK TCB TO DETACH               06980000
                        DETACH  (1)                                                    07000000
                        CLC   BAIPL+2(2),CF0F      TEST FOR ERROR-IS ECB ZERO          07020000
                        BNE   IP540                   ERROR - FREE TIOT AND GO  A31300 07025020
               *                                           TO BEGINNING AGAIN   A31300 07030020
                        TM    IPQPAM,X'40'            QCR ERR DURING WARM START A31300 07035020
                        BZ    IP560                   NO - CONTINUE             A31300 07040020
                        MVI   CB8+1,C'Y'              YES - SUPPRESS AUTO START A31300 07045020
                        MVC   CB8+2(6),CB8+1               COMMANDS             A31300 07050020
                        B     IP560                   CONTINUE WITH NORMAL PATH A31300 07055020
               IP540    EQU   *                                                        07060000
                        L     R2,CVTTCBP                    LOCATE START ADDR TO FREE  07080000
                        L     R2,4(R2)                   ADDR IN TCBTIO OF TCB         07100000
                        L     R1,TCBTIO(R2)                                            07120000
                        XR    R0,R0                         ZERO TCBTIO                07140000
                        ST    R0,TCBTIO(R2)                                            07160000
                        L     R0,CX108                                            LMCS 07165018
                        AIF   ('&LCTR' EQ '0').SKIPLFR      IS LOG PRESENT        LMCS 07170018
                        AL    R0,LOGTIOT              ADD LOG TIOT LENGTH         LMCS 07175018
               .SKIPLFR ANOP                                                           07180018
                        AIF   ('&SMF' EQ '0').S5      IS SMF PRESENT                   07185018
                        AL    R0,SMFTIOT              ADD SMF TIOT SIZE            SMF 07190018
               .S5      ANOP                                                           07195018
                        AIF   ('&TSO' EQ '0').FREE    IS TSO PRESENT             20030 07196020
                        AL    R0,SENDTIOT            ADD TIOT FOR SYS1.BRODCAST  20030 07197020
               .FREE    ANOP                                                     20030 07198020
                        FREEMAIN R,LV=(0),A=(1)                                        07200000
                        B     IP100                                                    07220000
               *                                                                       07240000
               *             IEFPRES - TO INITIALIZE VOLUME ATTRIBUTES FOR ALL TAPE    07260000
               *              AND DIRECT ACCESS DEVICES                                07280000
               *             .INTERFACE - R1 - POINTS TO 4 WORD PARAMETER LIST ON      07300000
               *                               ENTRY -WORD 1 CONTAINS THE UCB ADDRESS  07320000
               *                               FOR SYS1.PROCLIB                        07340000
               *                          R2 - CONTAINS THE ECB ADDRESS-BAIPL- FOR     07360000
               *                               POSTING FROM ATTACHED TASK AND RETURN   07380000
               *                               CODE                                    07400000
               *                          R5 - CONTAINS TCB ADDR OF SUBTASK FOR DETACH 07420000
               *                               PURPOSES                                07440000
               *                                                                       07460000
               *                                                                       07480000
               IP560    EQU   *                                                        07500000
                        XC    IPQPAM(16),IPQPAM   ZERO PARAM AREA                      07520000
                        L     R2,PARMSAVE         GET PARMLIB UCB POINTER         OC43 07528017
                        LTR   R2,R2               IS PARMLIB PRESENT              OC43 07536017
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0018


                        BZ    IP600         NO, BYPASS VOLUME INITIALIZATION      OC43 07544017
                        ST    R2,IPQPAM           SET UCB POINTER FOR PARMLIB     OC43 07552017
                        LA    R1,IPQPAM           PASS ON PARAM LIST                   07560000
                        XC    BAIPL(4),BAIPL      ZERO ECB                             07580000
                        LA    R2,BAIPL            SETUP ECB ADDR                       07600000
               *                                                                       07620000
                        ATTACH EP=IEEPPRES,ECB=(2),MF=(E,(1)),SM=PROB,            I270X07630019
                              JSTCB=YES,KEY=ZERO,SVAREA=NO,SZERO=NO,GIVEJPQ=NO    I270 07640019
                        ST    R1,CB10        SAVE TCB ADDR OF ATTACHED TASK            07660000
                        WAIT  ECB=BAIPL        WAIT TO BE POSTED                       07680000
                        LA    R1,CB10        SET TO DETACH                             07700000
                        DETACH (1)                                                     07720000
                        CLC   BAIPL+2(2),CF0F  RETURN CODE ZERO                        07740000
                        BE    IP600          BCH ON ZERO                               07760000
                        B     IP540          ERROR- FREE TIOT AND REINITIALIZE         07780000
               *********************************************************************** 07800000
               *                                                                       07802020
               *              ISSUE SVC 76 TO WRITE IPL RECORD TO SYS1.LOGREC.   20070 07804020
               *              IF RELIABILITY DATA EXTRACTOR (RDE) IS NOT         20070 07806020
               *              SYSGENED, NO RECORD IS WRITTEN AND RETURN          20070 07808020
               *              IS MADE TO THIS ROUTINE.                           20070 07810020
               *                                                                       07812020
               *              SETUP TO WRITE AND EXECUTE CANNED COMMANDS PROVIDING     07820000
               *              NO STOPS WERE GIVEN                                      07840000
               *              .FLAG=FF MGCR IF NECESSARY                               07860000
               *********************************************************************** 07880000
               *                                                                       07900000
               IP600    EQU   *                                                        07920000
                        L     R0,CB08                 INDICATE IPL ENTRY         20070 07926020
                        SVC   STATUS                  GO WRITE IPL RECORD        20070 07932020
                        MVI   CB1,X'FF'               FLAG-FF=EXECUTE MGCR             07940000
                        LA    R9,IP800                                            OC43 07960017
                        AGO   .MVT804A            Begin statements deleted by @TMVT804 07980000     *          INSERTED*
               *********************************************************************** 08000000
               *              WRITE AND/OR EXECUTE COMMANDS FOR READER,WRITER,AND      08020000
               *              INITIATOR                                                08040000
               *              .FIRST TEST FOR COMMAND TO OPERATE ON - CCURNT TO CCNBR  08060000
               *              .TEST PARTICULAR STOP GIVEN             CB8+1 FOR C'Y'   08080000
               *              .MOVE COMMAND TO BUFFER                                  08100000
               *              .BACKSCAN TO CALCULATE LENGTH                            08120000
               *              .TEST WTO ONLY                    CB1 - 00               08140000
               *              .TEST ANY STOP AT ALL GIVEN (TO BYPASS WTO PART) CB8-01  08160000
               *              .WTO                                                     08180000
               *              .TEST FLAG FOR WTO ONLY -NO MGCR (EXECUTE)   CB1 FOR 00  08200000
               *              .MGCR                                                    08220000
               *              .INITIALIZE FOR NEXT COMMAND AND RETURN                  08240000
               *              USES REGISTERS R5 - CURRENT COMMAND CT                   08260000
               *                             R7 - COMMAND START ADDRESS                08280000
               *                             R6 - ADDRESS OF STOP FLAG AREA            08300000
               *                             R8 - RETURN REG                           08320000
               *                            R2,R3 -TO BACK SCAN FOR COMMAND LENGTH     08340000
               *********************************************************************** 08360000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0019


               IP700    EQU   *                                                        08380000
                        XR    R5,R5                                                    08400000
                        L     R5,CCURNT               CURRENT BYTE COUNT OF COMMANDS   08420000
                        LA    R7,CCBGN                        TO FLIP DOWN COMMANDS    08440000
                        XR    R6,R6                                                    08460000
                        LA    R6,CB8+1                    SET UP FOR STOP CHECK        08480000
               IP710    EQU   *                                                        08500000
                        CL    R5,CCNBR                IS THERE A COMMAND TO WRITE      08520000
                        BNL   IP799                   NO MORE -GO EXIT                 08540000
                        CLI   0(R6),C'Y'              YES PARAMETER CHECK              08560000
                        BE    IP780                   YES. SKIP WTO/MGCR               08580000
                        MVC   IPCC(80),0(R7)          MOVE COMMAND TO BUFFER           08600000
                        LA    R2,80                   SETUP TO BACKSCAN FOR LENGTH     08620000
               IP766    EQU   *                                                        08640000
                        BCT   R2,IP770                DECREMENT COUNT REG              08660000
                        B     IP780                   NO COMMAND -BCH CT REG ZERO      08680000
               IP770    EQU   *                                                        08700000
                        LA    R3,IPCC(R2)             SETUP AREA POINTER REG           08720000
                        CLI   0(R3),C' '              TEST FOR BLANK                   08740000
                        BE    IP766                   BCH STILL BLANK                  08760000
                        LA    R2,1(R2)           NONBLANK-ADJUST LENGTH                08770018
               * LENGTH DOES NOT INCLUDE ROUT AND DESC CODES FIELDS                    08780018
                        STH   R2,IPWTO                 SAVE TOTAL LENGTH               08800000
                        MVC   IPWTO+K2(K2),HALFZERO    ZERO OUT THE RT. CODE    A42562 08810021
                        LA    R1,IPWTO                                                 08820000
                        CLI   CB1,X'00'               TEST WTO ONLY                    08840000
                        BE    IP773                   YES-GO STRAIGHT TO WTO           08860000
                        TM    CB8,X'01'          ANY N'S IN AUTO PARM OF SET COMMAND   08880018
                        BZ    IP775              NO-SKIP WTO                           08900018
               IP773    EQU   *                                                        08920000
                        WTO   MF=(E,(1))                                               08940000
               IP775    EQU   *                                                        08960000
                        CLI   CB1,X'00'               TEST FLAG FOR WTO ONLY           08980000
                        BE    IP780                   BCH YES TO UPDATE FOR NEXT COMMD 09000000
                        XR    R0,R0    TO SPECIFY SYSTEM COMMAND TO SVC 34        XMCS 09006018
                        MVC   IPCC(72),8(R7)          MOVE SYSTEM COMMAND TO CIB  XMCS 09012018
                        S     R2,CB08                 ADJUST START COMMAND LENGTH      09014018
                        STH   R2,IPWTO                SAVE LENGTH                      09016018
                        MGCR  IPWTO                                                    09020000
               IP780    EQU   *                                                        09040000
                        LA    R6,1(R6)                 INCREMENT INDEX REG             09060000
                        LA    R5,80(R5)                                                09080000
                        LA    R7,80(R7)                     FLIP TO NEXT COMMAND       09100000
                        B     IP710                                                    09120000
               *                                                                       09140000
               .MVT804A ANOP ,                    End statements deleted by   @TMVT804 09140100     *          INSERTED*
                        EJECT ,                                               @TMVT804 09140150     *          INSERTED*
                        COPY  MVT804A -                                       @TMVT804 09140200     *          INSERTED*
               IP799    BR    R9                      RETURN                      OC43 09160017
               *                                                                       09180000
               *********************************************************************** 09200000
                        AIF   ('&LCTR' EQ '0').L2                                      09202018
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0020


               *              EXIT TO LOG INITIALIZATION MODULE                        09204018
                        AGO   .S7                                                      09206018
               .L2      ANOP                                                           09208018
                        AIF   ('&SMF' EQ '0').S6                                       09210018
               *              EXIT TO SMF INITIALIZATION MODULE                        09212018
                        AGO   .S7                                                      09214018
               .S6      ANOP                                                           09216018
               *              EXIT TO WAIT MODULE                                      09220000
               .S7      ANOP                                                           09240018
               *                   .CLEAR PTR TO STOP INDICATOR AREA                   09260000
               *********************************************************************** 09280000
               IP800    EQU   *                                                        09300000
                        AIF   ('&LCTR' EQ '0').NOLGLOD      IS LOG PRESENT       M1874 09310021
                        LOAD  EP=IEEVLIN                    LOAD LOG INIT       A40047 09320021
               .NOLGLOD ANOP                                                     M1874 09330021
                        XC    BACV(4),BACV                ZERO STOP IND ADDRESS        09340000
               *                                      IS NO LONGER IPL           20030 09344020
                        MVC   BABCMAX(L'BCLMT),BCLMT  MOVE LIMIT TO BASEA        20030 09348020
                        AIF   ('&LCTR' EQ '0' AND '&SMF' EQ '0' AND '&TSO' EQ '0').S2  09352020
               .* IF NEITHER LOG NOR SMF NOR TSO ARE PRESENT GOTO MASTER WAIT    20030 09356020
                        L     R3,PARMSAVE             PASS PARMLIB UCB PTR       M0419 09360218
                        L     R12,CVTPTR                                         M0419 09360318
                        L     R10,SMFOPT              GET SMF OPTION FIELDS      M0419 09360418
                        SLL   R10,24             ISOLATE SMFOPT+3 IN HI-ORDER    M0419 09360518
                        ST    R10,CVTSMCA             BYTE OF CVTSMCA SLOT       M0419 09360618
                        AIF   ('&TSO' EQ '0').SKIPTSO   IS TSO SPECIFIED         20030 09360720
                        LINK  EP=IEEVSIPL            LINK TO SYS1.BRODCAST INIT  20030 09360820
               .SKIPTSO ANOP                                                     20030 09360920
                        AIF   ('&LCTR' EQ '0').SKIPLIN  IS LOG PRESENT            LMCS 09361018
                        XCTL  EP=IEEVLIN              GO TO LOG INITIALIZATION    LMCS 09362018
               *                                                                       09363018
               *        LOG CONSTANTS                                             LMCS 09364018
               LOGTIOT  DC    F'40'                   LENGTH OF LOG TIOT ENTRIES  LMCS 09365018
                        AGO   .CONSTNT                                            LMCS 09366018
               .SKIPLIN ANOP                                                           09367018
                        AIF   ('&SMF' EQ '0').S2      IS SMF PRESENT                   09368018
                        XCTL  EP=IEESMFIT             GO TO SMF INITIALIZATION     SMF 09374018
                        AGO   .CONSTNT                                                 09375018
               .S2      ANOP                                                           09376018
                        XCTL  EP=IEEVWAIT             GO TO MASTER WAIT           LMCS 09377018
               .CONSTNT ANOP                                                           09378018
               *********************************************************************** 09400000
               *                                                                       09420000
               *              MODULE CONSTANTS                                         09440000
               *                                                                       09460000
               *********************************************************************** 09480000
               *                                                                       09500000
               *********************************************************************** 09500420
               *                                                                     * 09500820
               *               TOD CLOCK CONSTANTS                                   * 09501220
               *                                                                     * 09501620
               *********************************************************************** 09502020
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0021


                        DS    0D                                                 20071 09502420
               DOUBLE   DC    CL8'0'              UNPACKING DOUBLE WORD          20071 09502820
               TIMEAREA DC    F'0'                DOUBLE WORD FOR                20071 09503220
                        DC    F'0'                TOD CLOCK VALUE                20071 09503620
               TODMSG1  WTOR  'IEE116A TOD CLOCK INVALID- REPLY WITH SET PARAMETERS', X09504020
                              MF=L,ROUTCDE=(1),DESC=(2)                          20071 09504420
               TODMSG2  WTOR  'IEE114A DATE=00.000,CLOCK=00.00.00 - REPLY WITH SET PARX09504820
                              AMETERS OR U',MF=L,ROUTCDE=(1),DESC=(2)            20071 09505220
               MSGCHNG  EQU   TODMSG2+K12         SET UP EQUATE TO DYNAMICALLY   20071 09505620
               *                                  CHANGE MESSAGE                 20071 09506020
               TODECB   DC    F'0'                TOD WTOR ECB                   20071 09506420
               TODBUF   DC    X'0078'             START OF REPLY BUFFER          20071 09506820
                        DC    X'0000'                      **                    20071 09507220
               TODSET   DC    CL4'SET'            ALREADY IN REPLY BUFFER FOR    20071 09507620
               *                                  LATER INTERNAL SET COMMAND     20071 09508020
               TODREPLY DC    CL122' '            REPLY AREA FOR TOD WTORS       20071 09508420
               YDATE    DC    CL3'0'              *             KEEP THIS        20071 09508820
               DDATE    DC    CL3'0'              *          AREA TOGETHER       20071 09509220
               HTIME    DC    CL3'0'              *           FOR INTERNAL       20071 09509620
               MTIME    DC    CL3'0'              *            SET-UP OF         20071 09510020
               STIME    DC    CL3'0'              *           DATE AND TIME      20071 09510420
               COMDATE  DC    C','                COMMA MUST PRECEDE 'DATE='     20071 09510820
               DATE     DC    C'DATE='            DATE PARAM FOR SET COMMAND     20071 09511220
               LOWCASE1 DC    X'8481A3857E'       'DATE=' IN LOWER CASE          M1866 09511420
               COMCLOCK DC    C','                COMMA MUST PRECEDE 'CLOCK='    20071 09511620
               CLOCK    DC    C'CLOCK=00.00.00'   CLOCK PARAM FOR SET COMMAND    M3230 09512020
               LOWCASE2 DC    X'83939683927E'     'CLOCK=' IN LOWER CASE         M1866 09512220
               CCBITS   DC    X'00'               SAVE COND CODE FROM STCK       20071 09512420
               TEN      DC    H'10'               USED IN CONVERTING TO DECIMAL  20071 09512820
               YR2000   DC    F'1203826904'       MIC SEC IN TOD ON JAN 1,2000   M5381 09513220
               D16384   DC    F'16384'            SECOND CONVERSION CONSTANT     20071 09513620
               D15625   DC    F'15625'                        **                 20071 09514020
               D86400   DC    F'86400'            NO. SECONDS PER DAY            20071 09514420
               D365     DC    F'365'              NO. DAYS IN REGULAR YEAR       20071 09514820
               D366     DC    F'366'              NO. DAYS IN LEAP YEAR          20071 09515220
               U        DC    CL2'U'              CHARACTER 'U' FOR REPLY        20071 09515620
               D60      DC    C'60'               CHAR 60 FOR FIRST YEAR OF TOD  20071 09516020
               F60      DC    F'60'               NO. SECONDS PER MINUTE         20071 09516420
               D3600    DC    F'3600'             NO. SECONDS PER HOUR           20071 09516820
               D1460    DC    F'1460'             NO. DAYS PER FOUR YEARS-1     A52614 09516921
               D1461    DC    F'1461'             NO. DAYS PER FOUR YEARS        20071 09517220
               *********************************************************************** 09517620
                        DS    0F                                                       09520000
               CB8      DC    X'00'                    KEEP        8 BYTE AREA         09540000
                        DC    C'NNNNNNN'                 TOGETHER      FOR STOP FLAGS  09560000
               CB1      DC    X'00'                                                    09580000
                        DS    0H                                                 M5510 09590020
               HALFZERO DC    H'0'                TJID ZEROES OVERLAY            M5510 09592020
               *                                                                       09600000
                        DS    0F                                                       09620000
               IPCAT    CAMLST RECAT,IPDSN,,IPVOLS  PARAMETER LIST FOR CATALOG         09622014
               IPDSN    DC    C'SYS1.PROCLIB '    PROCLIB NAME                         09624014
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0022


               IPVOLS   DC    H'1'                RESIDES ON 1 VOLUME                  09626014
               IPDEVTYP DS    4C                  DEVICE TYPE                          09628014
               IPVOLSER DS    6C                  VOL SER NO                           09630014
                        DC    H'0'                ZERO SEQUENCE NUMBER                 09632014
               CB08     DC    F'8'                                                     09634014
               CB10     DS    1F                                                       09640000
               CF04     DC    F'4'                                                     09660000
               CX108    DC    X'FF00006C'             GET CORE CONSTANT FOR 108 IN S   09680018
               CF0F     DC    X'0000FFFF'                                              09700000
               IPSGJQ   DC    CL4'&JUCB. '             SYSGEN JOB QUEUE UNIT.          09720000
               IPSGPL   DC    CL5'&PUCB. '                                             09740013
               IPLCS    DC    CL1'&LCLS'                                               09760000
               IPLCT    DC    AL1(&LCTR)               LOG QUEUE LIMIT.                09780000
               BCLMT    DC    AL2(&BCLMT)             LIMIT OF BROADCAST MSG RECORDS   09781020
               *                                      FOR TSO SEND CP            20030 09782020
               TYPE2321 DC    X'2005'                  2321 ID                         09785013
               BINTABLE DC    C'012345678'             BIN ID'S                        09790013
               BINLAST  DC    C'9'                     LAST ENTRY IN TABLE             09795013
               MAINSVE  DS    F                                                   AABA 09797016
                        DS    0F                                                       09800000
               IP400SW  DC    X'00'                                               AABA 09800716
               IP400WKR DS    D                                                   AABA 09801416
               JOBQDSN  DC    CL14'SYS1.SYSJOBQE '                                AABA 09802116
               PROCDSN  DC    CL14'SYS1.PROCLIB  '                                AABA 09802816
               LOCCNTRL DC    X'44000000'   LOCATE CONTROL BYTE                   AABA 09803516
               OBTCNTRL DC    X'C1000000'   OBTAIN CONTROL BYTE                   AABA 09804216
               CF00F    DC    X'0000000F'                                         AABA 09804916
               BLNKS    DC    X'40404040'                                         AABA 09805616
                        DS    0F                                                  AABA 09806316
               IP381    DC    AL2(IP384-*)        **MESSAGE LENGTH                AABA 09807016
                        DC    AL2(0)              **                              AABA 09807716
                        DC    C'IEE343E  '       **MESSAGE NUMBER                 WMCS 09808418
               IP382    DC    C'      , '         **VOLUME SERIAL NUMBER          AABA 09809116
               IP383    DC    CL14'              ' *DATA SET NAME                 AABA 09809816
                        DC    C', NOT MOUNTED'    **                              AABA 09810516
               IP384    EQU   *                                                        09810818
                        DC    X'2000'            DESCRIPTOR CODES                 WMCS 09811118
                        DC    X'9000'            ROUTING CODES                    WMCS 09811418
                        DS    0F                                                  AABA 09811916
               IP391    DC    AL2(IP395-*)        **MESSAGE LENGTH                AABA 09812616
                        DC    AL2(0)              **                              AABA 09813316
                        DC    C'IEE344E  '       **MESSAGE NUMBER                 WMCS 09814018
               IP392    DC    CL14'              ' *DATA SET NAME                 AABA 09814716
                        DC    C', NOT FOUND ON '  **                              AABA 09815416
               IP393    DC    C'      , '         **VOLUME SERIAL                 AABA 09816116
               IP394    DC    C'     '            **UNIT NAME                     AABA 09816816
               IP395    EQU   *                                                        09817418
                        DC    X'2000'            DESCRIPTOR CODES                 WMCS 09818018
                        DC    X'9000'            ROUTING CODES                    WMCS 09818618
               RDYMSG   WTO   'IEE101A READY',MF=L,ROUTCDE=(1),DESC=(3)           WMCS 09819218
               *                                                                       09820000
               *                                                                       09840000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0023


                        IEFVTIOT                                                       09860000
               *                                                                       09880000
               PARMSAVE DC    F'0'                     PARMLIB UCB POINTER SAVE   OC43 09890017
               IPQPAM   DS    4F                       QUEUE MANAGER PARAMETER LIST    09900000
               *                                                                       09920000
               IPXSA    DS    10F                           ERROR MESSAGE AREA         09940000
               *                                                                       09960000
               IPREGSV  DS    18F                      REGISTER SAVE                   09980000
               *                                                                       10000000
               IPWTO    DC    X'0050'                                                  10020000
                        DC    X'0000'                                                  10040000
               IPCC     DC    4CL20' '                                                 10060000
                        AIF   ('&TSO' EQ '0').SKIPDC                             20030 10060220
               SENDTIOT DC    F'20'     LENGTH OF SYS1.BRODCAST TIOT ENTRY       20030 10060420
               .SKIPDC  ANOP                                                     20030 10060620
                        AIF  ('&SMF' EQ '0' AND '&LCTR' EQ '0' AND '&TSO' EQ '0').S4   10061320
               SMFTIOT  DC    F'60'                   LENGTH OF SMF TIOT ENTRIES   SMF 10062018
               SMFOPT   DC    F'&SMF'                 SMF SYSGEN OPTIONS           SMF 10063018
               *                                                                   SMF 10064018
               * BIT REPRESENTATIONS FOR SMFOPT+3                                  SMF 10065018
               *                                                                   SMF 10066018
               *        BIT0 - SMF REQUESTED                                       SMF 10067018
               *        BIT1 -                                                     SMF 10068018
               *        BIT2 -                                                     SMF 10069018
               *        BIT3 -                                                     SMF 10070018
               *        BIT4 -                                                     SMF 10071018
               *        BIT5 -                                                     SMF 10072018
               *        BIT6 -                                                     SMF 10073018
               *        BIT7 - WARM START                                          SMF 10074018
               *                                                                   SMF 10075018
               .S4      ANOP                                                           10076018
                        DS    0F                                                       10080000
               *                                                                       10100000
               *********************************************************************** 10120000
               .*             COMMANDS ARE ORDERED--S WTR                              10140000
               .*                                   S RDR                              10160000
               .*                                   S INIT                             10180000
               .*             &CCA2 = START WRITER UNIT                                10200000
               .*             &CCN2 = DSNAME OF WRITER                                 10220000
               .*             &CCV2 = VOLUME SERIAL OF WRITER                          10240000
               .*             &CCA1 = START RDR UNIT                                   10260000
               .*             &CCN1 = DSNAME OF READER                                 10280000
               .*             &CCV1 = VOLUME SERIAL OF READER                          10300000
               .*             &CCA3 = START INITIATOR INDICATOR                        10320000
               CCBGN    EQU   *                                                        10340000
               .A1      AIF   ('&CCA2' EQ '').B1      TEST FOR WTR                     10360000
               WTRCAN   DC    4CL20' '                COMMAND AREA                     10380000
                        ORG   WTRCAN                                                   10400000
                        DC    C'IEE103I S WTR,&CCA2'  CREATE S WTR UNIT           XMCS 10410018
                        AIF   ('&CCV2' EQ '' AND '&CCN2' EQ '').A3                     10430017
                        DC    C','                    ADD COMMA                        10440017
                        AIF   ('&CCV2' EQ '').A2      TEST VOLSER OF WTR               10450017
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0024


                        DC    C'&CCV2'                ADD WTR VOLSER                   10460017
               .A2      AIF   ('&CCN2' EQ '').A3      TEST DSNAME FOR WTR              10470017
                        DC    C',DSNAME=&CCN2'        ADD   DSNAME=NAME                10480017
               .A3      DC    C' *'                   AUTOMATIC INDICATOR              10520000
                        DC    X'1000'            DESCRIPTOR CODES                 WMCS 10526018
                        DC    X'8000'            ROUTING CODES                    WMCS 10532018
               .B1      AIF   ('&CCA1' EQ '').C1      TEST FOR RDR                     10540000
                        ORG                                                            10560000
               RDRCAN   DC    4CL20' '                COMMAND AREA                     10580000
                        ORG   RDRCAN                                                   10600000
                        DC    C'IEE103I S RDR,&CCA1'   CREATE S RDR UNIT          XMCS 10610018
                        AIF   ('&CCV1' EQ '' AND '&CCN1' EQ '').B3                     10630017
                        DC    C','                    ADD COMMA                        10640017
                        AIF   ('&CCV1' EQ '').B2      TEST VOLSER FOR RDR              10650017
                        DC    C'&CCV1'                ADD VOLSER FOR RDR               10660017
               .B2      AIF    ('&CCN1' EQ '').B3     TEST DSNAME FOR RDR              10670017
                        DC    C',DSNAME=&CCN1'        ADD   DSNAME=NAME                10680017
               .B3      DC    C' *'                   AUTOMATIC INDICATOR              10720000
                        DC    X'1000'            DESCRIPTOR CODES                 WMCS 10726018
                        DC    X'8000'            ROUTING CODES                    WMCS 10732018
               .C1      AIF   ('&CCA3' EQ '').D1                                       10740000
                        ORG                                                            10760000
               INITC    DC    4CL20' '                                                 10780000
                        ORG   INITC                                                    10800000
                        DC    C'IEE103I S &CCA3'      CREATE S UNIT               XMCS 10820018
                        DC    C' *'                                                    10840000
                        DC    X'1000'            DESCRIPTOR CODES                 WMCS 10846018
                        DC    X'8000'            ROUTING CODES                    WMCS 10852018
               .D1      ANOP                                                           10860000
                        ORG                                                            10880000
               CCEND    EQU   *                                                        10900000
               CCNBR    DC    A(CCEND-CCBGN)           TOTAL NO. BYTES                 10920000
               CCURNT   DC    F'0'                                                     10940000
               VCONBIE0 DC    V(ICFBIE00)                                              10950021
                        DS    0F                                                       10960000
               *                                                                       10980000
               *********************************************************************** 11000000
               *                                                                       11020000
                        IEEBASEA                                                       11040000
               *********************************************************************** 11060000
               *                                                                       11080000
               SXSA     DSECT                                                          11100000
                        DS    0F                                                       11120000
                        IEEXSA                                                         11140000
               *                                                                       11160000
               *********************************************************************** 11180000
               *                                                                       11200000
                        EJECT                                                     AABA 11200616
               ***                                                                AABA 11201216
               * THE FOLLOWING DSECT MAPS THE WORK AREA IN GOTTEN CORE THAT IS USED  * 11201816
               * BY THE OBTAIN AND LOCATE ROUTINES                                AABA 11202416
               ***                                                                AABA 11203016
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0025


               IPWKAREA DSECT                                                     AABA 11203616
                        DS    0D                                                  AABA 11204216
               IPWKST   EQU   *                                                   AABA 11204816
               VCBCOUNT DS    CL2  *COUNT OF VOLUMES IN VCB      *****            AABA 11205416
               VCBDEVTP DS    CL4  *DEVICE TYPE FOR VOLUME           *            AABA 11206016
               VCBVOLSN DS    CL6  *VOLUME SERIAL NUMBER             *            AABA 11206616
               VCBDSSQN DS    CL2  *DATA SET SEQ NUMBER              *            AABA 11207216
                        DS    CL228                                  ***LOCATE    AABA 11207816
               VCBSPARE DS    CL10 *                                 *            AABA 11208416
               VCBNXTCB DS    CL4  *TTR OF NEXT VCB                  *            AABA 11209016
               VCBINDXA DS    CL3 *TTR OF THIS INDEX BLOCK                        AABA 11209616
               VCBCVOLM DS    CL6  *CNTRL VOL ID FIELD           *****            AABA 11210216
               *                                                     ***OBTAIN    AABA 11210816
               OBTWK    DS    CL85 *TO MAKE WORK AREA FOR OBTAIN *****            AABA 11211416
               *PARAMETER LIST FOR LOCATE AND OBTAIN ROUTINES                     AABA 11212016
                        DS    0F                                                  AABA 11212616
               PARM1    DS    F    LOCATE/OBTAIN CONTROL BYTE                     AABA 11213216
               PARM2    DS    A   ADDRESS OF DATA SET NAME                        AABA 11213816
               PARM3    DS    F    ZERO FOR LOCATE                                AABA 11214416
               *                  ADDRESS OF VOLUME SERIAL FOR OBTAIN             AABA 11215016
               PARM4    DS    A    ADDRESS OF WORKAREA                            AABA 11215616
               *DATA AREAS                                                        AABA 11216216
               DSNAREA  DS    CL44 DATA SET NAME AREA                             AABA 11216816
               VOLSRAR  DS    CL6  VOLUME SERIAL AREA                             AABA 11217416
               IPWKEND  EQU   *-IPWKST                                            AABA 11218016
               CVT      DSECT                                                          11220000
                        CVT                                                            11240000
               *                                                                       11260000
               *********************************************************************** 11280000
               *                                                                       11300000
                        DS    0F                                                       11320000
               UCB      DSECT                                                          11340000
                        IEFUCBOB                                                       11360000
                        MEND                                                           11380000
IEB816I MEMBER NAME (SGIEE00V) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0026


       ./ ADD NAME=MVT804A   >>>> 2003/07/13
       *****    START OF STATEMENTS INSERTED BY TMVT804        *****  @TMVT804 00010000
       ************************************************************** @TMVT804 00020000
       *                                                            * @TMVT804 00030000
       *        TMVT804:  Automatic commands processing.            * @TMVT804 00040000
       *                                                            * @TMVT804 00050000
       *        If AUTO=NONE was not specified on the SET           * @TMVT804 00060000
       *        command, attach SYSVICMD to process COMMNDxx        * @TMVT804 00070000
       *        member of SYS1.PARMLIB.                             * @TMVT804 00080000
       *                                                            * @TMVT804 00090000
       ************************************************************** @TMVT804 00100000
                SPACE 1                                               @TMVT804 00110000
       *------------------------------------------------------------* @TMVT804 00120000
       *        Test for initial WTO-only call and return           * @TMVT804 00130000
       *        immediately if so.                                  * @TMVT804 00140000
       *------------------------------------------------------------* @TMVT804 00150000
       IP700    DS    0H -                Auto commands subroutine    @TMVT804 00160000
                CLI   CB1,X'00' -         Initial WTO-only call?      @TMVT804 00170000
                BE    IP799 -             Return if so                @TMVT804 00180000
                SPACE 1                                               @TMVT804 00190000
       *------------------------------------------------------------* @TMVT804 00200000
       *        Select the appropriate COMMNDxx suffix              * @TMVT804 00210000
       *        based on user specification of AUTO flags.          * @TMVT804 00220000
       *------------------------------------------------------------* @TMVT804 00230000
                LA    R14,CB8+1 -         Point to stop flags         @TMVT804 00240000
                LA    R15,7 -             Set count of stop flags     @TMVT804 00250000
       IP760    DS    0H -                Loop looking at stop flags  @TMVT804 00260000
                CLI   0(R14),C'Y' -       Did user specify "Y"?       @TMVT804 00270000
                BNE   IP763 -             Branch if so to do it       @TMVT804 00280000
                LA    R14,1(,R14) -       Else point to next stop     @TMVT804 00290000
                BCT   R15,IP760 -         Back to look at it          @TMVT804 00300000
                B     IP777 -             All "N", skip commands      @TMVT804 00310000
       IP763    DS    0H -                Use this COMMNDxx suffix    @TMVT804 00320000
                LA    R1,7 -              Calculate                   @TMVT804 00330000
                SR    R1,R15 -             offset                     @TMVT804 00340000
                SLL   R1,1 -                to suffix                 @TMVT804 00350000
                LA    R1,COMMNDSF(R1) -      and point to it          @TMVT804 00360000
                SPACE 1                                               @TMVT804 00370000
       *------------------------------------------------------------* @TMVT804 00380000
       *        Attach SYSVICMD subtask to issue commands           * @TMVT804 00390000
       *        from COMMNDxx member of SYS1.PARMLIB.               * @TMVT804 00400000
       *------------------------------------------------------------* @TMVT804 00410000
                L     R2,PARMSAVE -       Get PARMLIB UCB pointer     @TMVT804 00420000
                LTR   R2,R2 -             Is PARMLIB present?         @TMVT804 00430000
                BZ    IP799 -             Skip auto commands if not   @TMVT804 00440000
                XC    IPQPAM(16),IPQPAM - Zero parm list              @TMVT804 00450000
                ST    R2,IPQPAM -         Set UCB pointer in PARMLIB  @TMVT804 00460000
                ST    R1,IPQPAM+4 -       Set suffix pointer in plist @TMVT804 00470000
                LA    R1,IPQPAM -         Point to parm list          @TMVT804 00480000
                XC    BAIPL(4),BAIPL -    Zero subtask ECB            @TMVT804 00490000
                LA    R2,BAIPL -          Point to UCB for attach     @TMVT804 00500000
       *        ATTACH EP=SYSVICMD,       Attach command subtask      @TMVT804 00510000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0027


       *              ECB=(R2),           R2 points to subtask ECB    @TMVT804 00520000
       *              KEY=ZERO,           Place subtask in key zero   @TMVT804 00530000
       *              SM=SUP,             And supervisor state        @TMVT804 00540000
       *              JSTCB=YES,          Must be job step TCB        @TMVT804 00550000
       *              SVAREA=YES,         Provide subtask save area   @TMVT804 00560000
       *              SZERO=NO,           Don't share subpool zero    @TMVT804 00570000
       *              GIVEJPQ=NO,         Don't pass job pack queue   @TMVT804 00580000
       *              MF=(E,(1))          Use remote parameter list   @TMVT804 00590000
                ATTACH EP=SYSVICMD, -     Attach command subtask      @TMVT804+00600000
                      ECB=(R2), -         R2 points to subtask ECB    @TMVT804+00610000
                      KEY=ZERO, -         Place subtask in key zero   @TMVT804+00620000
                      SM=SUP, -           And supervisor state        @TMVT804+00630000
                      JSTCB=YES, -        Must be job step TCB        @TMVT804+00640000
                      SVAREA=YES, -       Provide subtask save area   @TMVT804+00650000
                      SZERO=NO, -         Don't share subpool zero    @TMVT804+00660000
                      GIVEJPQ=NO, -       Don't pass job pack queue   @TMVT804+00670000
                      MF=(E,(1)) -        Use remote parameter list   @TMVT804 00680000
                ST    R1,CB10 -           Save subtask TCB address    @TMVT804 00690000
       *        WAIT  ECB=BAIPL -         Wait for subtask to end     @TMVT804 00700000
                WAIT  ECB=BAIPL -         Wait for subtask to end     @TMVT804 00710000
                LA    R1,CB10 -           Point to subtask TCB addr   @TMVT804 00720000
       *        DETACH (1) -              Detach the subtask          @TMVT804 00730000
                DETACH (1) -              Detach the subtask          @TMVT804 00740000
                L     R1,BAIPL -          Get subtask RC              @TMVT804 00750000
                SLL   R1,8 -              Shift out                   @TMVT804 00760000
                SRL   R1,8 -               possible flag bits         @TMVT804 00770000
                LTR   R1,R1 -             Did subtask end normally?   @TMVT804 00780000
                BZ    IP799 -             Branch if so                @TMVT804 00790000
                SPACE 1                                               @TMVT804 00800000
       IP777    DS    0H -                COMMND processing not done  @TMVT804 00810000
                CLI   CB1,X'00' -         Initial WTO only call?      @TMVT804 00820000
                BE    IP799 -             Exit if so                  @TMVT804 00830000
       *        WTO   'IEA208I COMMND FUNCTION INOPERATIVE', -        @TMVT804 00840000
       *              ROUTCDE=2 -                                     @TMVT804 00850000
                WTO   'IEA208I COMMND FUNCTION INOPERATIVE', -        @TMVT804+00860000
                      ROUTCDE=2 -                                     @TMVT804 00870000
                B     IP799 -             Done with commands          @TMVT804 00880000
       COMMNDSF DC    C'00010203040506'   COMMNDxx suffixes           @TMVT804 00890000
       *****    END OF STATEMENTS INSERTED BY TMVT804          *****  @TMVT804 00900000
       ./ ENDUP
IEB817I MEMBER NAME (MVT804A ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR13.R0000053     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000054     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000054     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TMVT804 / START 78240.1942
IEF374I STEP /TMVT804 / STOP  78240.1942 CPU   0MIN 00.39SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:42:27.84   ALLOC START    19:42:27.84   MAIN REGION ----- 256K                          *
*   STEP NAME TMVT804    STEP END TIME  19:42:28.33   PGM START TIME 19:42:27.90   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.49   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.39   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0158 --------- 1405       0250 ----------- 32       0250 ----------- 34       0130 ----------- 97                              *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR13/ START 78240.1942
IEF376I  JOB /SY20ZR13/ STOP  78240.1942 CPU   0MIN 00.39SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR13   JOB READ TIME 19:42:27.75   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.39   *
*   JOB CLASS A          JOB INIT TIME 19:42:27.84   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.52   *
*   ACCOUNT   1          JOB END TIME  19:42:28.36   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1     333333333                 A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     333333333                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     33    33                AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11          33                AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11         3333              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11        333333             AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11            33             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     33     33             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   333333333             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    3333333              AA     AA

***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********


//SY20ZR13 JOB 1,THAS801,MSGLEVEL=(1,1),
// CLASS=A,MSGCLASS=A,REGION=768K
***
***   PROBLEM DESCRIPTION(S):
***     THAS801 -
***       Add HASP pseudo-device support to IOS.
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: THAS801
***
***   SPECIAL CONDITIONS:
***     IOGEN:  An I/O generation is required for implementation
***       of the functionality added by this usermod.
***       GENTYPE = IO
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/28
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MACROS
***       IECXCP
***       IECIOS
***
***     NOTE:  The comment line deletions in macro IECXCP from line
***       35220021 through 35520021 are intended to remove lines added
***       in the wrong place by an earlier non-SMP version of this
***       usermod, and are not required if original incorrect lines
***       are not present.
***
//UPDTE   EXEC PGM=IEBUPDTE,PARM=MOD
//SYSPRINT DD  SYSOUT=A
//SYSUT1   DD  DISP=SHR,DSN=SYS1.MODGEN,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT2   DD  DISP=SHR,DSN=SYS1.MODGEN,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSIN    DD  DATA
//
IEF236I ALLOC. FOR SY20ZR13 UPDTE
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./    CHANGE NAME=IECXCP
               *    ATTN TABLE INDEX FOR HASP                                 @THAS801 10984019     *          INSERTED*
               UCBHASP  EQU   X'01' -                  HASP PSEUDO-DEVICE     @THAS801 10985019     *          INSERTED*
                        SPACE 1 -                                             @THAS801 10986019     *          INSERTED*
               INVHSP   EQU   X'10' -             ABEND CODE FOR INVALID HASP @THAS801 25612101     *          INSERTED*
               **  This line deleted by ------------------------------------- @THAS801 35220021     *          INSERTED*
               **  This line deleted by ------------------------------------- @THAS801 35280021     *          INSERTED*
               **  This line deleted by ------------------------------------- @THAS801 35340021     *          INSERTED*
               **  This line deleted by ------------------------------------- @THAS801 35400021     *          INSERTED*
               **  This line deleted by ------------------------------------- @THAS801 35460021     *          INSERTED*
               **  This line deleted by ------------------------------------- @THAS801 35520021     *          INSERTED*
                        TM    UCBATI(UCBREG),UCBHASP - PSEUDO DEVICE?         @THAS801 35580021     *          INSERTED*
                        BC    8,XCP061C1 -             NO                     @THAS801 35600021     *          INSERTED*
                        L     APBSRG,AHASPE -          GET HASP ROUTINE       @THAS801 35620021     *          INSERTED*
                        BALR  LNKRG2,APBSRG -          LINK TO HASP           @THAS801 35640021     *          INSERTED*
               *****     HASP RETURNS          *******************************@THAS801 35660021     *          INSERTED*
                        B     XCP021 -                 NORMAL: IGNORE REQUEST @THAS801 35680021     *          INSERTED*
                        B     XERX02F1 -               ERROR:  ABEND WITH 100 @THAS801 35700021     *          INSERTED*
               ***************************************************************@THAS801 35720021     *          INSERTED*
               XCP061C1 DS    0H -                                            @THAS801 35740021     *          INSERTED*
IEB816I MEMBER NAME (IECXCP  ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002


       ./  CHANGE NAME=IECIOS
               XERX02F1 MVI   CODEDUMP,INVHSP -   INVALID HASP                @THAS801 09043201     *          INSERTED*
                        L     APBSRG,IECPL2 -     GET TEMPORARY BASE REGISTER @THAS801 09043301     *          INSERTED*
                        B     XERX02A -           HANDLE THE ERROR            @THAS801 09043401     *          INSERTED*
               AHASPE   DC    V(IECHASPE) -            HASP EXCP ROUTINE      @THAS801 74220001     *          INSERTED*
       ./ ENDUP
IEB816I MEMBER NAME (IECIOS  ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR13.R0000055     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000056     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000056     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /UPDTE   / START 78240.1942
IEF374I STEP /UPDTE   / STOP  78240.1942 CPU   0MIN 00.12SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:42:37.23   ALLOC START    19:42:37.24   MAIN REGION ----- 768K                          *
*   STEP NAME UPDTE      STEP END TIME  19:42:37.45   PGM START TIME 19:42:37.29   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.22   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0158 ----------- 32       0250 ----------- 67       0250 ----------- 66       0130 ----------- 26                              *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR13/ START 78240.1942
IEF376I  JOB /SY20ZR13/ STOP  78240.1942 CPU   0MIN 00.12SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR13   JOB READ TIME 19:42:37.15   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.12   *
*   JOB CLASS A          JOB INIT TIME 19:42:37.23   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.23   *
*   ACCOUNT   1          JOB END TIME  19:42:37.46   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1     333333333                 A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     333333333                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     33    33                AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11          33                AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11         3333              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11        333333             AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11            33             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     33     33             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   333333333             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    3333333              AA     AA

***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:48 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:48 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:48 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:48 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:42:48 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********


//SY20ZR13 JOB 1,THAS802,MSGLEVEL=(1,1),
// CLASS=A,MSGCLASS=A,REGION=768K
***
***   PROBLEM DESCRIPTION(S):
***     THAS802 -
***       Add HASP pseudo-device support to stage 1 and stage 2
***       system generation macros.
***
***   APARS FIXED: THAS802
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   SPECIAL CONDITIONS:
***     IOGEN:  An I/O generation is required for implementation
***       of the functionality added by this usermod.
***       GENTYPE = IO
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/28
***
***     SYS1.GENLIB and SYS1.MODGEN are updated by this usermod.
***
***     SGGBLPAK has to be replaced rather than updated because the
***       IBM-supplied source doesn't have sequence numbers on every
***       record.  The version supplied by this usermod is the 768
***       device version (SGPAK768).
***
***     Due to the size of the IODEVICE macro, updates to SYS1.GENLIB
***       are made to a temporary data set.  The macros to be updated
***       are then deleted from SYS1.GENLIB, SYS1.GENLIB is compressed,
***       and the updated macros are copied to SYS1.GENLIB.
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MACROS
***       IECIUCB
***       IODEVICE
***       SGIEC202
***       SGGBLPAK
***
//MODGEN  EXEC PGM=IEBUPDTE,PARM=MOD,REGION=128K
//SYSPRINT DD  SYSOUT=A
//SYSUT1   DD  DISP=SHR,DSN=SYS1.MODGEN,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT2   DD  DISP=SHR,DSN=SYS1.MODGEN,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSIN    DD  DATA
IEF236I ALLOC. FOR SY20ZR13 MODGEN
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ CHANGE NAME=IECIUCB
               .******* Start of code for HASP pseudo-device support ******** @THAS802 18150200     *          INSERTED*
                        AIF   ('&TYPE' NE 'SUD').NOTSUD                     * @THAS802 18150201     *          INSERTED*
                        DC    AL1(&STATAB,&LCHN),XL2'0100'  STAT,LCH,ATN,CK * @THAS802 18150202     *          INSERTED*
                        DC    CL3'&DEVADDR',XL4'&TYPEA',F'0'                * @THAS802 18150203     *          INSERTED*
                        AGO   .END                                          * @THAS802 18150204     *          INSERTED*
               .NOTSUD  ANOP                                                * @THAS802 18150205     *          INSERTED*
               .******* End of code for HASP pseudo-device support ********** @THAS802 18150206     *          INSERTED*
       ./ ENDUP
IEB816I MEMBER NAME (IECIUCB ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR13.R0000057     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000058     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000058     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /MODGEN  / START 78240.1942
IEF374I STEP /MODGEN  / STOP  78240.1942 CPU   0MIN 00.05SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:42:45.80   ALLOC START    19:42:45.81   MAIN REGION ----- 768K                          *
*   STEP NAME MODGEN     STEP END TIME  19:42:45.96   PGM START TIME 19:42:45.86   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.16   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0158 ----------- 13       0250 ------------ 4       0250 ------------ 4       0130 ------------ 9                              *
************************************************************************************************************************************

//GENLIB  EXEC PGM=IEBUPDTE,PARM=MOD,REGION=128K,COND=(0,NE)
//SYSPRINT DD  SYSOUT=A
//SYSUT1   DD  DISP=SHR,DSN=SYS1.GENLIB,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT2   DD  DSN=SYS1.GENTEMP,
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120),
//             SPACE=(TRK,(60,30,2)),
//             UNIT=SYSDA,DISP=(NEW,CATLG)
//SYSIN    DD  DATA
***
IEF236I ALLOC. FOR SY20ZR13 GENLIB
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ CHANGE NAME=IODEVICE
               .******* Start of code for HASP pseudo-device support ******** @THAS802 07000200     *          INSERTED*
                        AIF   (K'&UNIT LT 5).IUN99    GREATER THAN 5 CHAR?  * @THAS802 07000201     *          INSERTED*
                        AIF   ('&UNIT'(1,5) EQ 'HASP-').IUN01 GO IF HASP DEV* @THAS802 07000202     *          INSERTED*
               .IUN99   ANOP                                                * @THAS802 07000203     *          INSERTED*
               .******* End of code for HASP pseudo-device support ********** @THAS802 07000204     *          INSERTED*
               .******* Start of code for HASP pseudo-device support ******** @THAS802 07140200     *          INSERTED*
               .IUN01   ANOP                    **** HASP PSEUDO DEVICES **** @THAS802 07140201     *          INSERTED*
               &UNPSUDO(&I) SETB 1              INDICATE PSEUDO DEVICE.     * @THAS802 07140202     *          INSERTED*
                        AIF   (K'&UNIT NE 9).IUN10    LOOK FOR 10 BYTE TYPES* @THAS802 07140203     *          INSERTED*
               &OA      SETC  '&UNIT'(6,4)                                  * @THAS802 07140204     *          INSERTED*
                        AIF   ('&OA' NE '1442').IUN02      NOT 1442         * @THAS802 07140205     *          INSERTED*
               &SGDEVTP(&I) SETA 3               SET LOW BYTE DEV TYPE      * @THAS802 07140206     *          INSERTED*
                        MNOTE *,'     HASP 1442 PUNCH'                      * @THAS802 07140207     *          INSERTED*
                        AGO   .IUN90                                        * @THAS802 07140208     *          INSERTED*
               .IUN02   AIF   ('&OA' NE '2520').IUN03                       * @THAS802 07140209     *          INSERTED*
               &SGDEVTP(&I) SETA 5                                          * @THAS802 07140210     *          INSERTED*
                        MNOTE *,'     HASP 2520 PUNCH'                      * @THAS802 07140211     *          INSERTED*
                        AGO   .IUN90                                        * @THAS802 07140212     *          INSERTED*
               .IUN03   AIF   ('&OA' NE '1403').IUN04                       * @THAS802 07140213     *          INSERTED*
               &SGDEVTP(&I) SETA 8                                          * @THAS802 07140214     *          INSERTED*
                        MNOTE *,'     HASP 1403 PRINTER'                    * @THAS802 07140215     *          INSERTED*
                        AGO   .IUN90                                        * @THAS802 07140216     *          INSERTED*
               .IUN04   AIF   ('&OA' NE '1443').IUN99                       * @THAS802 07140217     *          INSERTED*
               &SGDEVTP(&I) SETA 10                                         * @THAS802 07140218     *          INSERTED*
                        MNOTE *,'     HASP 1443 PRINTER'                    * @THAS802 07140219     *          INSERTED*
                        AGO   .IUN90                                        * @THAS802 07140220     *          INSERTED*
               .IUN10   AIF   (K'&UNIT NE 10).IUN99   INVALID DEV TYPE.     * @THAS802 07140221     *          INSERTED*
               &OA      SETC  '&UNIT'(6,5)                                  * @THAS802 07140222     *          INSERTED*
                        AIF   ('&OA' NE '2540R').IUN11                      * @THAS802 07140223     *          INSERTED*
               &SGDEVTP(&I) SETA 1                                          * @THAS802 07140224     *          INSERTED*
                        MNOTE *,'     HASP 2540 READER '                    * @THAS802 07140225     *          INSERTED*
                        AGO   .IUN90                                        * @THAS802 07140226     *          INSERTED*
               .IUN11   AIF   ('&OA' NE '2540P').IUN99                      * @THAS802 07140227     *          INSERTED*
               &SGDEVTP(&I) SETA 2                                          * @THAS802 07140228     *          INSERTED*
                        MNOTE *,'     HASP 2540 PUNCH  '                    * @THAS802 07140229     *          INSERTED*
               .IUN90   ANOP                                                * @THAS802 07140230     *          INSERTED*
               &SGETABA(&I) SETA &SGDEVTP(&I)   SET DEV TYP LOW BYTE.       * @THAS802 07140231     *          INSERTED*
               &SGDEVTP(&I) SETA X'500008'           SET DEV TYP HIGH BYTES.* @THAS802 07140232     *          INSERTED*
               &SGDEVB(1) SETB 1  SET FOR DEV TAB INSP                      * @THAS802 07140233     *          INSERTED*
                        AGO   .DD     HANDLE SAME AS DUMMY DEVICE.          * @THAS802 07140234     *          INSERTED*
               .******* End of code for HASP pseudo-device support ********** @THAS802 07140235     *          INSERTED*
IEB817I MEMBER NAME (IODEVICE) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002


       ./ CHANGE NAME=SGIEC202
               .******* Start of code for HASP pseudo-device support ******** @THAS802 08920200     *          INSERTED*
                        AIF   (NOT &UNPSUDO(&COUNTB)).IUNX1                 * @THAS802 08920201     *          INSERTED*
               &THISDEV SETC  'DUM'              CALL IT A DUMMY DEVICE.    * @THAS802 08920202     *          INSERTED*
                        AGO   .QOPCK                                        * @THAS802 08920203     *          INSERTED*
               .IUNX1   ANOP                                                * @THAS802 08920204     *          INSERTED*
               .******* End of code for HASP pseudo-device support ********** @THAS802 08920205     *          INSERTED*
               .******* Start of code for HASP pseudo-device support ******** @THAS802 14070200     *          INSERTED*
                        AIF   (NOT &UNPSUDO(&COUNTB)).IUNX2                 * @THAS802 14070201     *          INSERTED*
               &TYPC    SETC  'SUD'         INDICATE PSEUDODEV FOR UCB MACRO* @THAS802 14070202     *          INSERTED*
               .IUNX2   ANOP                                                * @THAS802 14070203     *          INSERTED*
               .******* End of code for HASP pseudo-device support ********** @THAS802 14070204     *          INSERTED*
               .******* Start of code for HASP pseudo-device support ******** @THAS802 14100200     *          INSERTED*
                        AIF   ('&TYPC' NE 'SUD').IUNX3                      * @THAS802 14100201     *          INSERTED*
               &TYPC    SETC  'DUM'         SET IT BACK TO DUMMY DEV TYPE.  * @THAS802 14100202     *          INSERTED*
               .IUNX3   ANOP                                                * @THAS802 14100203     *          INSERTED*
               .******* End of code for HASP pseudo-device support ********** @THAS802 14100204     *          INSERTED*
IEB817I MEMBER NAME (SGIEC202) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0003


       ./ REPL NAME=SGGBLPAK
        GBLA &SGTESTA(2),&HEX,&SGCTRLA(2),&SGFORTA(8),&SGSUPRA(2)              00160020
        GBLA &SGUNNMA(514),&SGCNTRA(10),&SGDADRA(768),&SGCBLEA(2)              00180095
        GBLA &SGCPRGA(23),&SGOPCHA,&SGDASDA,&SGACTR                            00200095
        GBLA &IEALOA,&IEAHIA,&IEALMTA,&SGPL11A(10),&SGSTMGA,&SGMAXDV           00240000
        GBLA &SGCBLFA(3),&SGMAXA(3),&SGFORLA(5),&SGCBLUA(3)                    00280018
        GBLA &SGSCHDA(20),&SGUTSZA,&SGALGOA(1),&SG2314A,&SG5450A,&SGSCNYA(2)   00320021
        GBLA &SGSCHAA(12),&SGSCNPA(31),&SGAR01A(31),&SGAR02A(31),&SGAR03A(31)  00324021
        GBLA &SGAR04A(31),&SGAR05A(31),&SGAR06A(31),&SGAR07A(31),&SGAR08A(31)  00324821
        GBLA &SGAR09A(31),&SGAR10A(31),&SGAR11A(31),&SGAR12A(31)               00325621
        GBLA &SG3330A,&SG2305A,&SGTGRIA(32),&SGTGROA(32)                       00332021
        GBLA &SG3505A,&SG3525A                                                 00336021
        GBLA &SGCKPA(6),&SG2321A,&SG2311A,&SGLDRA,&SGCPRNA(1),&SGBSCA          00360019
        GBLA &SGCPRPA(104),&SGLINKA(8),&SGSCNXA,&SGSCNZA                       00400017
        GBLA &SGDNBFA(768),&SGDEVTP(768),&SGETABA(768)                         00410095
        GBLA &SGCUN1A(255)                                                     00420095
        GBLA &SGGJUA(15),&SGGJCA(11)                                           00430095
        GBLA &SGEDITA(25),&SGTSOPA(4),&SGMODA(1),&SGEDT2A(25),&SGEDT3A(25)     00449421
        GBLA &SGEDT4A(25),&SGEDT5A(25)                                         00453221
        GBLB &SGGJCB(8),&SGLDRB(5)                                             00460095
        GBLB &SGCHANB(240),&SGQUITB,&SGMENTB(89),&SGSUPRB(48),&SGCPRGB(14)     00470000
        GBLB &SGUNU1B(255),&SGUNU2B(255),&SGUNU3B(255),&SGUNU4B(255)           00480095
        GBLB &SGUNU5B(255),&SGUNU6B(255),&SGUNU7B(255),&SGUNU8B(255)           00500095
        GBLB &SGUNM1B(255),&SGUNM2B(255),&SGUNM3B(255),&SGUNM4B(255)           00520095
        GBLB &SGUNM6B(255),&SGUNF4B(255),&SGUNF5B(255),&SGUNT3B(255)           00540095
        GBLB &SGUNF6B(255)                                                     00560095
        GBLB &SGUNF1B(255),&SGUNF2B(255),&SGUNF3B(255),&SGUNM5B(255)           00580095
        GBLB &SGUNT1B(255),&SGUNT2B(255),&SGTESTB(6)                           00600095
        GBLB &SGSCHDB(44),&SGDMGTB(5),&SGCPUB(54),&SGSTMGB(17),&SGDCLSB(83)    00690021
        GBLB &SGUCSIB(12),&SGUCSDB(12),&SGCKPB(56),&SGCBLUB(24)                00710017
        GBLB &SGUCSEB(2),&SG2CSIB(5),&SG2CSDB(5)                               00716020
        GBLB &SGDT01B(768),&SGDT02B(768),&SGDT03B(768),&SGDT04B(768),&LIMIT(4) 00720095
        GBLB &SGDT05B(768),&SGDT06B(768),&SGDT07B(768),&SGDT08B(768)           00730095
        GBLB &SGDT12B(768),&SG3410B(768)                                       00740095
        GBLB  &SGBRSTB(16)                                                     00750095
        GBLB &SGDU01B(768),&SGDU02B(768),&SGDU03B(768),&SGDU04B(768)           00760095
        GBLB &SGDU05B(768),&SGDU06B(768),&SGDU07B(768),&SGDU08B(768)           00770095
        GBLB &SGDU09B(768),&SGDU10B(768),&SGDU11B(768)                         00780095
        GBLB &SGDM01B(768),&SGDM02B(768),&SGDM03B(768),&SGDM04B(768)           00790095
        GBLB &SGDM05B(768),&SGDM06B(768),&SGDM07B(768),&SGDM08B(768)           00800095
        GBLB &SGDM09B(768),&SGOPSUB(768),&SG2321B(768),&SGDASWB(768)           00810095
        GBLB &SGDF01B(768),&SGDF02B(768),&SGDF03B(768),&SGDF04B(768)           00820095
        GBLB &SGDF05B(768),&SGDF06B(768),&SGDF07B(768),&SGDF08B(768)           00830095
        GBLB &SGDF09B(768),&SGDF10B(768),&SGDF11B(768),&SGDF12B(768)           00840095
        GBLB &SGDF13B(768),&SGDF14B(768),&SGDF15B(768)                         00850095
        GBLB &SGDAP1B(768),&SGDAP2B(768),&SGDAP3B(768)                         00860095
        GBLB &SGDAP4B(768),&SGDAP5B(768),&SGDAP6B(768),&SGDRQ1B(768)           00870095
        GBLB &SGDAP7B(768),&SGDAP8B(768),&SGDAP9B(768),&SGDAPAB(768)           00880095
        GBLB &SGDAPBB(768),&SGDAPCB(768),&SGDAPDB(768),&SGDAPEB(768)           00900095
        GBLB &SGDAPFB(768)                                                     00920095
        GBLB &SGDRQ2B(768)                                                     00940095
        GBLB &SGDAD1B(768),&SGDAD2B(768),&SGDAD3B(768),&SGDAD4B(768)           00960095
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0004


        GBLB &SGDAD5B(768),&SGDAD6B(768),&SGDAD7B(768),&SGDAD8B(768)           00980095
        GBLB &SGDSQ1B(768),&SGDSQ2B(768),&SGTRMDB(768),&SGSVCAB(255)           01000095
        GBLB &SGCOBLB(4),&SGSVCBB(255),&SGSVCCB(255),&SGSVCDB(255),&SGMALB(11) 01040021
        GBLB &SGSVCEB(255),&SGSVCFB(255),&SGFORTB(52),&SGLINKB(19),&SGCBLEB(6) 01080019
        GBLB &SGCBLFB(11),&SGLOADB(3),&SGOVERB(4),&SGASSEB(3),&SGPL11B(160)    01120000
        GBLB &SGCTRLB(16),&GETB(3),&SGFORLB(5),&SGGRPHB(4),&SGALGOB(5)         01160018
        GBLB &SGCHK1B(2),&SGPTOPB(1),&SGNODEV,&SGMOD1B(5),&SGMOD2B(5)          01183017
        GBLB  &SGMOD3B(5),&SGMOD4B(5),&SGMOD5B(5),&SGMOD6B(5)                  01189021
        GBLB &SGMOD7B(5),&SGMOD8B(5),&SGMOD9B(5),&SGMODAB(5),&SGMODBB(5)       01191400
        GBLB &SGSIZ1B(5),&SGSIZ2B(5),&SGSIZ3B(5),&SGSIZ4B(5),&SGSIZ5B(5)       01195000
        GBLB &SGSIZ6B(5),&SGSIZ7B(5),&SGSIZ8B(5),&SGSIZ9B(5),&SGSIZ0B(5)       01197000
        GBLB &SGEMULB(1),&SGUTILB(3)                                           01199000
        GBLB &SGSER1B(5),&SGSER2B(5),&SGSER3B(5),&SGSER4B(5),&SGMCSTB(4)       01201017
        GBLB &SGSCHRB(16),&SGSCHOB(16),&SGSCHHB(16),&SGLCPB(1)                 01208018
            GBLB &SGCKPLB(4),&SGCKFTB(4)                                       01210019
        GBLB &SGRT01B(31),&SGRT02B(31),&SGRT03B(31),&SGRT04B(31),&SGRT05B(31)  01212017
        GBLB &SGRT06B(31),&SGRT07B(31),&SGRT08B(31),&SGRT09B(31),&SGRT10B(31)  01214017
        GBLB &SGRT11B(31),&SGRT12B(31),&SGRT13B(31),&SGRT14B(31),&SGRT15B(31)  01216017
        GBLB &SGRT16B(31),&SGCMD1B(31),&SGCMD2B(31),&SGCMD3B(31),&SGCMD4B(31)  01218017
        GBLB &SGSCSDB(31),&SGSCMSB(31)                                         01218821
        GBLB &SGDUMMY(768),&SGDEVB(1),&SGTYPEB(96)                             01220095
                GBLB  &UNPSUDO(768)                                   @THAS802 01230296
                GBLB  &SGITELB(8)                                       ITEL   01230496
        GBLC &SGGJCC(11),&SGLDRC(3)                                            01240095
        GBLC &SGRESMC(11),&SGUNNMC(100),&SGCTRLC(66)                           01260095
        GBLC &SGCPRGC(26)                                                      01280017
        GBLC &SGSCHDC(15),&EBCDIC,&SGLNKLC(21),&SGSVCLC(51)                    01300095
        GBLC &SGCNTRU,&SGSCNCC(31),&SGSCNAC(31)                                01320095
        GBLC &SGCLASC(1),&SGEDITC(25),&SGEDT2C(25),&SGEDT3C(25),&SGEDT4C(25)   01331021
        GBLC &SGEDT5C(25),&SGEDT6C(25),&SGEDT7C(25)                            01333421
       ./ ENDUP
IEB817I MEMBER NAME (SGGBLPAK) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR13.R0000059     SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.GENLIB                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.GENTEMP                                 CATALOGED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000060     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000060     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /GENLIB  / START 78240.1942
IEF374I STEP /GENLIB  / STOP  78240.1942 CPU   0MIN 00.21SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:42:45.98   ALLOC START    19:42:45.99   MAIN REGION ----- 768K                          *
*   STEP NAME GENLIB     STEP END TIME  19:42:46.30   PGM START TIME 19:42:46.06   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.32   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.21   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0159 ---------- 151       0250 ---------- 105       0353 ---------- 116       0130 ---------- 142                              *
************************************************************************************************************************************

//SCRATCH EXEC PGM=IEHPROGM,REGION=128K,COND=(0,NE)
//SYSPRINT DD  SYSOUT=A
//ASPDLB   DD  DISP=OLD,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSIN    DD  *
IEF236I ALLOC. FOR SY20ZR13 SCRATCH
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO ASPDLB
IEF237I 130   ALLOCATED TO SYSIN


SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0001



 SCRATCH DSNAME=SYS1.GENLIB,VOL=3330=ASPDLB,MEMBER=IODEVICE
NORMAL END OF TASK RETURNED FROM SCRATCH



 SCRATCH DSNAME=SYS1.GENLIB,VOL=3330=ASPDLB,MEMBER=SGIEC202
NORMAL END OF TASK RETURNED FROM SCRATCH



 SCRATCH DSNAME=SYS1.GENLIB,VOL=3330=ASPDLB,MEMBER=SGGBLPAK
NORMAL END OF TASK RETURNED FROM SCRATCH



UTILITY END


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR13.R0000061     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.R0000062     KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000063     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000063     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SCRATCH / START 78240.1942
IEF374I STEP /SCRATCH / STOP  78240.1942 CPU   0MIN 00.06SEC MAIN  30K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 19:42:46.33   ALLOC START    19:42:46.34   MAIN REGION ----- 768K                          *
*   STEP NAME SCRATCH    STEP END TIME  19:42:46.48   PGM START TIME 19:42:46.39   MAIN STORAGE ----- 30K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.15   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHPROGM   STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0353 ----------- 12       0250 ------------ 0       0130 ------------ 4                                                        *
************************************************************************************************************************************

//COMPRESS EXEC PGM=IEBCOPY,REGION=128K,COND=(0,NE)
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DISP=SHR,DSN=SYS1.GENLIB,
//            UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT2   DD DISP=SHR,DSN=SYS1.GENLIB,
//            UNIT=SYSDA,VOL=SER=ASPDLB
//SYSIN    DD DUMMY
***
IEF236I ALLOC. FOR SY20ZR13 COMPRESS
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSUT2


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


IEB161I  COMPRESS TO BE DONE USING INDD NAMED SYSUT1
IEB152I  SGIEA2TB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKF200 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKM400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  MACLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC3TP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFD500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  COBLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  EDIT     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SVCTABLE COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SYSUTILS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY SYSUT1   -
IEB154I  ALGLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  ALGOL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  ASSEMBLR HAS BEEN SUCCESSFULLY COPIED
IEB154I  CENPROCS HAS BEEN SUCCESSFULLY COPIED
IEB154I  CHANNEL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CHECKER  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CKPTREST HAS BEEN SUCCESSFULLY COPIED
IEB154I  CMDLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  COBLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  COBOL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CONVERT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CTRLPROG HAS BEEN SUCCESSFULLY COPIED
IEB154I  CUPOINT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  DATAMGT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  DCMLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  EDIT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  EDITOR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  EMULATOR HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTLIB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTRAN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  GENERATE HAS BEEN SUCCESSFULLY COPIED
IEB154I  GENTSO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  GJOBCTL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  GRAPHICS HAS BEEN SUCCESSFULLY COPIED
IEB154I  HELP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMAGELIB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IOCHECK  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IOCONTRL HAS BEEN SUCCESSFULLY COPIED
IEB154I  JOBSEP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  LINKLIB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOADER   HAS BEEN SUCCESSFULLY COPIED
IEB154I  MACLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  OUTPUT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PARMLIB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  PARTITNS HAS BEEN SUCCESSFULLY COPIED
IEB154I  PL1      HAS BEEN SUCCESSFULLY COPIED
IEB154I  PL1LIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PROCLIB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  PTOP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  RESMODS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  RPG      HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0002


IEB154I  SCHEDULR HAS BEEN SUCCESSFULLY COPIED
IEB154I  SECMODS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SECONSLE HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGASMPAK HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGGEN100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2AT HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2BK HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2CV HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2MS HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2NP HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2NU HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2ST HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2SU HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2SV HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2TA HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2TB HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2TC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2TR HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2WP HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA3IC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA3IL HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA3IS HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA5SU HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC2DT HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC2GR HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC2PT HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC2UC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC3FB HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC3TP HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC4UC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5DI HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5DM HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5IS HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5PI HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5PL HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5PS HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5PV HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5TP HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC513 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC519 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC520 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE2DC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE301 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE4DC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF2QM HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF202 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF211 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF212 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF241 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0003


IEB154I  SGIEF441 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF442 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF443 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF444 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEH201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEH401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEH402 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEH501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEI2SV HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK205 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK405 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK406 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK502 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEM2A0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEM4T0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEM5C0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEP200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEP400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEP500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEP501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIER201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIER401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIER501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIES401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEU401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW250 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW450 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW550 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEX201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEX401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEX402 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEX501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEY201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEY401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFC201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFC300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFC400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFC600 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFD400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFD500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFF2BM HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFF3RN HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFF5LS HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFF523 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIGF200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIGF300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIGF400 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0004


IEB154I  SGIGG501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHB200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE2X1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE4X1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE5LA HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE5PB HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE5PC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHG400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHG500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHI401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHI501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHJ500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHK400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHK401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHK402 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHK500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHK501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKA201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKA401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKA501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKD5TP HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKF200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKF400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKF500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKF501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ2EB HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ2EF HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ2LP HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4EA HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4EB HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4EC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4EF HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4EG HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4EH HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4IE HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ445 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5EA HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5EB HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5EC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5EF HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5EG HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5EH HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5IE HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ540 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKM400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKM500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIMA401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIMA402 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIMA501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIMB401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIPD400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIPD500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGLEDPK1 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0005


IEB154I  SGLEDPK2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGPAK248 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGPAK96  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGRELLEV HAS BEEN SUCCESSFULLY COPIED
IEB154I  SORTLIB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SORTMERG HAS BEEN SUCCESSFULLY COPIED
IEB154I  SUPRVSOR HAS BEEN SUCCESSFULLY COPIED
IEB154I  SVCLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  SVCTABLE HAS BEEN SUCCESSFULLY COPIED
IEB154I  SYSUTILS HAS BEEN SUCCESSFULLY COPIED
IEB154I  TELCMLIB HAS BEEN SUCCESSFULLY COPIED
IEB154I  TSASMPAK HAS BEEN SUCCESSFULLY COPIED
IEB154I  TSGEN100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  TSOPTION HAS BEEN SUCCESSFULLY COPIED
IEB154I  UADS     HAS BEEN SUCCESSFULLY COPIED
IEB154I  UCS      HAS BEEN SUCCESSFULLY COPIED
IEB154I  UNITNAME HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000075 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR13.R0000064     SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS1.GENLIB                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.GENLIB                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF373I STEP /COMPRESS/ START 78240.1942
IEF374I STEP /COMPRESS/ STOP  78240.1942 CPU   0MIN 00.86SEC MAIN 766K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  004        STEP INIT TIME 19:42:46.50   ALLOC START    19:42:46.51   MAIN REGION ----- 768K                          *
*   STEP NAME COMPRESS   STEP END TIME  19:42:47.77   PGM START TIME 19:42:46.56   MAIN STORAGE ---- 766K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:01.27   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBCOPY    STEP CPU TIME  00:00:00.86   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0130 ---------- 237       0250 --------- 2113       0250 --------- 4086                                                        *
************************************************************************************************************************************

//COPY    EXEC PGM=IEBCOPY,REGION=128K,COND=(0,NE)
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSN=SYS1.GENTEMP,DISP=OLD
//SYSUT2   DD DISP=SHR,DSN=SYS1.GENLIB,
//            UNIT=SYSDA,VOL=SER=ASPDLB
//SYSIN    DD *
***
IEF236I ALLOC. FOR SY20ZR13 COPY
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


                     COPY INDD=SYSUT1,OUTDD=SYSUT2
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY SYSUT1   -
IEB154I  IODEVICE HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGGBLPAK HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC202 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000041 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR13.R0000065     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.GENTEMP                                 KEPT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.GENLIB                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000066     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000066     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /COPY    / START 78240.1942
IEF374I STEP /COPY    / STOP  78240.1942 CPU   0MIN 00.14SEC MAIN 766K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  005        STEP INIT TIME 19:42:47.80   ALLOC START    19:42:47.81   MAIN REGION ----- 768K                          *
*   STEP NAME COPY       STEP END TIME  19:42:48.08   PGM START TIME 19:42:47.89   MAIN STORAGE ---- 766K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.28   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBCOPY    STEP CPU TIME  00:00:00.14   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0158 ------------ 9       0353 ---------- 243       0250 ---------- 322       0130 ------------ 3                              *
************************************************************************************************************************************

//DELETE  EXEC PGM=IEFBR14,REGION=128K,COND=(0,NE)
//SYSUT1   DD DSN=SYS1.GENTEMP,DISP=(OLD,DELETE)
//
IEF236I ALLOC. FOR SY20ZR13 DELETE
IEF237I 353   ALLOCATED TO SYSUT1
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.GENTEMP                                 UNCATALOGED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.GENTEMP                                 DELETED
IEF285I   VOL SER NOS= PERM01.
IEF373I STEP /DELETE  / START 78240.1942
IEF374I STEP /DELETE  / STOP  78240.1942 CPU   0MIN 00.01SEC MAIN   4K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  006        STEP INIT TIME 19:42:48.10   ALLOC START    19:42:48.11   MAIN REGION ----- 768K                          *
*   STEP NAME DELETE     STEP END TIME  19:42:48.17   PGM START TIME 19:42:48.14   MAIN STORAGE ------ 4K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.07   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEFBR14    STEP CPU TIME  00:00:00.01   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT                                                                                                            *
*   0353 ------------ 0                                                                                                            *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR13/ START 78240.1942
IEF376I  JOB /SY20ZR13/ STOP  78240.1942 CPU   0MIN 01.33SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR13   JOB READ TIME 19:42:45.61   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.33   *
*   JOB CLASS A          JOB INIT TIME 19:42:45.80   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:02.39   *
*   ACCOUNT   1          JOB END TIME  19:42:48.19   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG        1          44    PPPPPPPP   RRRRRRRR   EEEEEEEEE  M       M                            A
            GGGGGGGGG      11         444    PPPPPPPPP  RRRRRRRRR  EEEEEEEEE  MM     MM                           AAA
            GG     GG     111        4444    PP     PP  RR     RR  EE         MMM   MMM                          AA AA
            GG             11       44 44    PP     PP  RR     RR  EE         MMMM MMMM                         AA   AA
            GG             11      44  44    PPPPPPPPP  RRRRRRRRR  EEEEEE     MM MMM MM                        AA     AA
            GG   GGGG      11     44   44    PPPPPPPP   RRRRRRRR   EEEEEE     MM  M  MM                        AA     AA
            GG   GGGG      11     444444444  PP         RR  RR     EE         MM     MM                        AAAAAAAAA
            GG     GG      11     444444444  PP         RR   RR    EE         MM     MM                        AAAAAAAAA
            GGGGGGGGG    111111        44    PP         RR    RR   EEEEEEEEE  MM     MM                        AA     AA
             GGGGGGG     111111        44    PP         RR     RR  EEEEEEEEE  MM     MM                        AA     AA

***********A  START   G14PREM    SYS SYSA   WTR 00E   07:43:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   G14PREM    START  A***********
***********A  START   G14PREM    SYS SYSA   WTR 00E   07:43:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   G14PREM    START  A***********
***********A  START   G14PREM    SYS SYSA   WTR 00E   07:43:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   G14PREM    START  A***********
***********A  START   G14PREM    SYS SYSA   WTR 00E   07:43:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   G14PREM    START  A***********
***********A  START   G14PREM    SYS SYSA   WTR 00E   07:43:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   G14PREM    START  A***********


//G14PREM  JOB 1,'G14PREGEN-MVT',REGION=150K,MSGLEVEL=(1,1),CLASS=A
***********************************************************************
***                                                                 ***
***    Job:      G14PREGEN-MVT                                      ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  ASP pre-sysgen job for MVT.                        ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
********************************************************************************
*** ASP 3.2   PREGEN JOB FOR MVT REL 21.6 , 21.7 AND 21.8                      *
********************************************************************************
***
********************************************************************************
*** NOTE1 - APPLICABLE TO PRE MVT 21.8 RELEASES                                *
***      BEFORE RUNNING THE PREGEN JOB CHANGE THE FOLLOWING SEQUENCE NUMBERS   *
***      IN MACRO SGIEC202: PREGEN JOB IS SET UP FOR REL 21.8.                 *
***       SEQUENCE NUMBER 11286321 MUST BE 11140000 FOR PRE 21.8 GENS          *
***       SEQUENCE NUMBER 11286322 MUST BE 11150017 FOR PRE 21.8 GENS          *
***----------------------------------------------------------------------------*
*** NOTE2 - APPLICABLE TO POSTGEN PROCESSING (MODULE IFG0552X)                 *
***     THE POSTGEN JOB WILL LINKEDIT A SPECIAL VERSION OF MODULE IFG0552X     *
***     INTO SYS1.SVCLIB,THUS REPLACING THE SUPPLIED MODULE. A SUBSEQUENT ASP  *
***     SUPERZAP WILL THEN MODIFY THIS MODULE. IF REL 21.8 WITHOUT OS PTF      *
***     5591 IS BEING INSTALLED,THE POSTGEN JOB MAY BE RUN AS IS. OTHERWISE,   *
***     IF REL 21.8 WITH OS PTF 5591 OR PRE REL 21.8 SYSTEMS ARE BEING         *
***     INSTALLED,ALTER THE POSTGEN JOB AS FOLLOWS:                            *
***       1)  DELETE STEP R21LEOV FROM POSTGEN JCL. STEP CONTAINS 6 STATEMENTS *
***           HAVING 'EOV' IN POSITIONS 78-80.                                 *
***       2)  DELETE SYSIN DATA TO STEP R21LEOV FROM POSTGEN JOB.SYSIN         *
***           DATA AND DELIMITER COMPRISES 24 STATEMENTS.THE FIRST AND LAST    *
***           STATEMENTS HAVE 'EOV' IN POSITIONS 78-80.                        *
********************************************************************************
***
********************************************************************************
***      THE JOB STEPS ARE AS FOLLOWS :                                        *
*** STEP0 - Compresses SYS1.GENLIB, SYS1.MODGEN and SYS1.MODGEN2               *
*** STEP1 - UPDATES MACROS FROM SYS1.GENLIB                                    *
*** STEP2 - UPDATES MACROS FROM SYS1.MODGEN                                    *
*** STEP3 - UPDATES MACROS FROM SYS1.MODGEN2                                   *
*** STEP4 - Compresses SYS1.GENLIB, SYS1.MODGEN and SYS1.MODGEN2               *
*** STEP5 - LINKEDITS THE MODULE 'ASPSVC',A TYPE ONE SVC,INTO SYS1.ASP         *
********************************************************************************
***      THE SYMBOLIC PARAMETERS REPRESENT THE FOLLOWING :                     *
*** DLIB    - VOLSER OF VOLUME CONTAINING SYSGEN MACROS                        *
*** DLUNIT  - UNIT TYPE OF DLIB VOLUME                                         *
*** ASPVOL  - VOLSER OF VOLUME FOR ALLOCATING ASP DATA SETS                    *
*** DAUNIT  - UNIT TYPE OF ASPVOL                                              *
*** MODGEN2 - NAME OF DATA SET CONTAINING NIP MACRO                            *
*** OUTCLAS - THE CLASS TO WHICH THE SYSOUT INFORMATION IS TO BE DIRECTED      *
********************************************************************************
***
//PREGEN PROC DLIB=ASPDLB,DLUNIT=3330,ASPVOL=,DAUNIT=3330,
// MODGEN2=MODGEN2,
// OUTCLAS=A
//*
//STEP0   EXEC PGM=IEBCOPY
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,10)
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,10)
//GENLIB   DD DSN=SYS1.GENLIB,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
//MODGEN   DD DSN=SYS1.MODGEN,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
//MODGEN2  DD DSN=SYS1.&MODGEN2,DISP=SHR,UNIT=&DLUNIT,VOL=SER=&DLIB
//SYSPRINT DD SYSOUT=&OUTCLAS
//*
//STEP1   EXEC PGM=IEBUPDTE
//SYSUT1   DD DSN=SYS1.GENLIB,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
//SYSUT2   DD DSN=SYS1.GENLIB,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
//SYSPRINT DD SYSOUT=&OUTCLAS
//*
//STEP2   EXEC PGM=IEBUPDTE
//SYSUT1   DD DSN=SYS1.MODGEN,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
//SYSUT2   DD DSN=SYS1.MODGEN,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
//SYSPRINT DD SYSOUT=&OUTCLAS
//*
//STEP3   EXEC PGM=IEBUPDTE
//SYSUT1   DD DSN=SYS1.&MODGEN2,DISP=SHR,UNIT=&DLUNIT,VOL=SER=&DLIB
//SYSUT2   DD DSN=SYS1.&MODGEN2,DISP=SHR,UNIT=&DLUNIT,VOL=SER=&DLIB
//SYSPRINT DD SYSOUT=&OUTCLAS
//*
//STEP4   EXEC PGM=IEBCOPY,COND=(0,NE)
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,10)
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,10)
//GENLIB   DD DSN=SYS1.GENLIB,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
//MODGEN   DD DSN=SYS1.MODGEN,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
//MODGEN2  DD DSN=SYS1.&MODGEN2,DISP=SHR,UNIT=&DLUNIT,VOL=SER=&DLIB
//SYSPRINT DD SYSOUT=&OUTCLAS
//*
//STEP5   EXEC PGM=IEWL,PARM='NCAL,LIST,LET,XREF'
//SYSPRINT DD SYSOUT=&OUTCLAS
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(TRK,(20,10))
//SYSLMOD  DD DSN=SYS1.ASP,DISP=(,KEEP),UNIT=&DAUNIT,VOL=SER=&ASPVOL,
// SPACE=(3625,(4,4,1))
//SYSLIN   DD DDNAME=SYSIN
// PEND
********************************************************************************
***      THE FOLLOWING IS A SAMPLE EXEC CARD
***RE EXEC PREGEN,DLUNIT=2314,ASPVOL=DLIB02,DAUNIT=2314
********************************************************************************
//PRE EXEC PREGEN,DLUNIT=3330,ASPVOL=ASPDLB,DAUNIT=3330
********************************************************************************
++PREGEN PROC DLIB=ASPDLB,DLUNIT=3330,ASPVOL=,DAUNIT=3330,
++ MODGEN2=MODGEN2,
++ OUTCLAS=A
***
++STEP0   EXEC PGM=IEBCOPY
++SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,10)
++SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,10)
++GENLIB   DD DSN=SYS1.GENLIB,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
IEF653I SUBSTITUTION JCL - DSN=SYS1.GENLIB,UNIT=3330,DISP=SHR,VOL=SER=ASPDLB
++MODGEN   DD DSN=SYS1.MODGEN,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
IEF653I SUBSTITUTION JCL - DSN=SYS1.MODGEN,UNIT=3330,DISP=SHR,VOL=SER=ASPDLB
++MODGEN2  DD DSN=SYS1.&MODGEN2,DISP=SHR,UNIT=&DLUNIT,VOL=SER=&DLIB
IEF653I SUBSTITUTION JCL - DSN=SYS1.MODGEN2,DISP=SHR,UNIT=3330,VOL=SER=ASPDLB
++SYSPRINT DD SYSOUT=&OUTCLAS
IEF653I SUBSTITUTION JCL - SYSOUT=A
***
//STEP0.SYSIN  DD *
********************************************************************************
IEF236I ALLOC. FOR G14PREM  STEP0    PRE
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 159   ALLOCATED TO SYSUT4
IEF237I 250   ALLOCATED TO GENLIB
IEF237I 250   ALLOCATED TO MODGEN
IEF237I 250   ALLOCATED TO MODGEN2
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSIN


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


                     COPY I=GENLIB,O=GENLIB
IEB161I  COMPRESS TO BE DONE USING INDD NAMED GENLIB
IEB152I  SGIEA2TB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKF200 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKM400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  MACLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC3TP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFD500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  COBLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  EDIT     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SVCTABLE COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SYSUTILS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  TSOPTION COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC2DT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5PV COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5PI COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5PL COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE5LA COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ540 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2TC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  PL1LIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  GJOBCTL  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  ALGOL    COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CHANNEL  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHB200 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ2EB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  PL1      COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CUPOINT  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  ASSEMBLR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5DI COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ4EB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5EB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  PARTITNS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEX402 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE4DC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5EC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC300 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2CV COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIMA501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA3IL COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIMB401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  DCMLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  FORTLIB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  FORTRAN  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SECONSLE COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SUPRVSOR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ4EC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5EG COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE5PC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEM5C0 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5EH COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC2UC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0002


IEB152I  SGIKJ4EA COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5EA COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IMAGELIB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  UCS      COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEH501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFF523 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEM4T0 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF202 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ2LP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKD5TP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ2EF COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5EF COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEU401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  OUTPUT   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CMDLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  DATAMGT  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  HELP     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IOCHECK  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFC201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF2QM COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC3FB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CHECKER  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFC300 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  ALGLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CKPTREST COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  GRAPHICS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  LINKLIB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  PARMLIB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  PROCLIB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  PTOP     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  RESMODS  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  RPG      COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2ST COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2SV COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2TR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA3IS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF241 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEH201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK205 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEP200 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEP400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIER201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW250 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW300 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEX201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEY201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKF400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGLEDPK2 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SORTLIB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SORTMERG COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  TELCMLIB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE2X1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFF3RN COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0003


IEB152I  SGIKA201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2TA COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2WP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEP500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIER401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIES401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEX401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEX501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEY401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHG500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHI401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHI501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHK401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHK402 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHK501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIPD400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHK400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHK500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKM500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE5PB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKF500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKF501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKA501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW550 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEP501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIPD500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIGF200 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  EMULATOR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK502 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIER501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CONVERT  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEM2A0 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKA401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  UADS     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ4IE COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5IE COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW450 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ4EH COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ4EG COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE4X1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ4EF COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2AT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2MS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFF5LS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC519 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CENPROCS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK405 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK406 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  COBOL    COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF442 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFD400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0004


IEB152I  SGIEF212 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SVCLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  TSGEN100 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIGF300 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  LOADER   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SECMODS  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEH401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE301 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF444 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC520 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIGG501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIMA402 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2BK COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA3IC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA5SU COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGRELLEV COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC2GR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFF2BM COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  EDITOR   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SCHEDULR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIGF400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF441 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF443 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGPAK96  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  GENTSO   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5PS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIMA401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ445 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CTRLPROG COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  UNITNAME COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHG400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGPAK248 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF211 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEH402 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC4UC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5DM COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHJ500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC2PT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC513 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2SU COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5IS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE2DC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEI2SV COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFC400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5TP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IOCONTRL COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGGEN100 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2NU COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGASMPAK COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0005


IEB152I  SGLEDPK1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  TSASMPAK COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  GENERATE COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFC600 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2NP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  JOBSEP   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IODEVICE COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC202 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGGBLPAK COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB153I  ALL MEMBERS COMPRESSED - ALL WERE ORIGINALLY COMPRESSED
IEB144I  THERE ARE 0000041 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY GENLIB
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0006


                     COPY I=MODGEN,O=MODGEN
IEB161I  COMPRESS TO BE DONE USING INDD NAMED MODGEN
IEB152I  SGIEC0UC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECVMUG COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECSDSL1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IKJTJBX  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKF000 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECAWR  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEACVTPC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEAQFX   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEAQCH   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBCOB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECULK2  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IKJTSCVT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFTIOT1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IKJRB    COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE0VR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFASCTB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFAJCTB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEEXSA   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEZJSCB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CMT      COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECIUCBA COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECHAIN COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEEGMSLT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IGFINIT  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBDMPA  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SCVT     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SCBDUMP  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEEBASEA COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHLMHOOK COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  HOOK     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK006 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFQMRES COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECGBL   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE0X1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE0X6 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE011 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECICT   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IOSGNIP  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFJFCBX COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBROCTL COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFSD033 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEEBASEB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECIDT   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFSGNOP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF002 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFC000 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  DARMAC   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECILCT  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECIST   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECLNK1  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECULK3  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0007


IEB152I  IEECHATR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFACOMM COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFVTIOT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBTSCE  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBXLE   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBXLENT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBXLIN  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBXLOUT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBXLTAB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  MGCR     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  MPCVT    COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  MPFX     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE001 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF001 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF010 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF011 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF012 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF013 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF015 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF060 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK005 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEP000 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIER001 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW050 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEX001 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEY001 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE0X2 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE0X3 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE0X4 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE0X5 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFSD032 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEZBITS  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFF0BT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF0QM COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IKJTCB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK001 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CVT      COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFJFCBN COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFUCBOB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEAQTR   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEATRC   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IGFCATAP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBABCTL COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEAQBK   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEATCB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECBJH  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECEJM  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECGCB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY MODGEN   -
IEB154I  CMT      HAS BEEN SUCCESSFULLY COPIED
IEB154I  CVT      HAS BEEN SUCCESSFULLY COPIED
IEB154I  DARMAC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  HOOK     HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0008


IEB154I  IEAAIH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAAMS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAAPS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAAPT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAATA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAATC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAAWT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEACVTPC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQAT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQBK   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQCH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQET   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQFX   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQGM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQNU   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQPR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQTR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEATCB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEATRC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECDSECT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECGBL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECICS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECICT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIDT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECILCT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECINT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIOQE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIOS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIOSB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIST   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIUCB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIUCBA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECLNK1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECSDSL1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECSSDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECTBL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECULK1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECULK2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECULK3  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECXCP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECXTCH  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEC23XXF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEEBASEA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEEBASEB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECAWR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECBJH  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECEJM  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECGCB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECHAIN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECHATR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECHCB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECRDCM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECRJK  HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0009


IEB154I  IEECSUB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECUCM  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECVMUG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEEGMSLT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEEXSA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFACOMM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFAJCTB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFASCTB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFJFCBN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFJFCBX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFQMRES HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFSD032 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFSD033 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFSGNOP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFTIOT1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFUCBOB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFVTIOT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEZBITS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEZJSCB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFBSRLOG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGFCATAP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGFINIT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBABCTL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBCOB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBDMPA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBRELNO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBROCTL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBTSCE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBXLE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBXLENT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBXLIN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBXLOUT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBXLTAB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLMHOOK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJRB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTCB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTJB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTJBX  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTSCVT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IORMSCOM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IOSGNIP  HAS BEEN SUCCESSFULLY COPIED
IEB154I  MGCR     HAS BEEN SUCCESSFULLY COPIED
IEB154I  MPCVT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  MPFX     HAS BEEN SUCCESSFULLY COPIED
IEB154I  MVT804A  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SCBDUMP  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SCVT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC0DT HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC0UC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE0VR HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE0VV HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE00V HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE001 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0010


IEB154I  SGIEE011 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF0QM HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF002 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF010 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF011 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF012 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF013 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF015 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF060 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK005 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK006 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEP000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIER001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW050 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEX001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEY001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFC000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFF0BT HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHB000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE0X1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE0X2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE0X3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE0X4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE0X5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE0X6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKF000 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000106 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY MODGEN
IEB149I  THERE ARE 0000015  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0011


                     COPY I=MODGEN2,O=MODGEN2
IEB161I  COMPRESS TO BE DONE USING INDD NAMED MODGEN2
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY MODGEN2  -
IEB154I  IEAANIP  HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000132 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY MODGEN2
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.RV000.G14PREM.R0000067      DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G14PREM.R0000068      DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.GENLIB                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.SV000.G14PREM.R0000069      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G14PREM.S0000070      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G14PREM.S0000070      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /STEP0   / START 78240.1943
IEF374I STEP /STEP0   / STOP  78240.1943 CPU   0MIN 02.18SEC MAIN 254K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:43:05.83   ALLOC START    19:43:05.85   MAIN REGION ----- 256K                          *
*   STEP NAME STEP0      STEP END TIME  19:43:09.07   PGM START TIME 19:43:05.93   MAIN STORAGE ---- 254K    CONDITION CODE 0000   *
*   PSTP NAME PRE        ELAPSED TIME   00:00:03.24   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBCOPY    STEP CPU TIME  00:00:02.18   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0158 ------------ 0       0159 ------------ 0       0250 --------- 2428       0250 --------- 8526       0250 --------- 2060    *
*   0353 ---------- 485       0130 ------------ 5                                                                                  *
************************************************************************************************************************************

++STEP1   EXEC PGM=IEBUPDTE
++SYSUT1   DD DSN=SYS1.GENLIB,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
IEF653I SUBSTITUTION JCL - DSN=SYS1.GENLIB,UNIT=3330,DISP=SHR,VOL=SER=ASPDLB
++SYSUT2   DD DSN=SYS1.GENLIB,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
IEF653I SUBSTITUTION JCL - DSN=SYS1.GENLIB,UNIT=3330,DISP=SHR,VOL=SER=ASPDLB
++SYSPRINT DD SYSOUT=&OUTCLAS
IEF653I SUBSTITUTION JCL - SYSOUT=A
***
//STEP1.SYSIN DD *
IEF236I ALLOC. FOR G14PREM  STEP1    PRE
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./       CHANGE  NAME=IODEVICE
                        GBLB  &CTCDEVS(768)                                   @AA32703 00421000     *          INSERTED*
                        AIF   ('&FEATURE(&A)' EQ 'CTC').CTCFEAT  BR IF CTC SPECD **ASP 09875000     *          INSERTED*
               .CTCFEAT MNOTE *,'        CHANNEL TO CHANNEL DEVICE'              **ASP 10090000     *          INSERTED*
               &CTCDEVS(&I) SETB 1                                            @AA32703 10091000     *          INSERTED*
                        AGO   .MORE1                                             **ASP 10092000     *          INSERTED*
               &A       SETA  1                                                  **ASP 24610000     *          INSERTED*
                        AIF   ('&FEATURE(&A)' NE 'CTC').NOCTC  BR IF NOT CTC     **ASP 24611000     *          INSERTED*
                        MNOTE *,'        CHANNEL TO CHANNEL ADAPTER'             **ASP 24612000     *          INSERTED*
               &CTCDEVS(&I) SETB 1                                            @AA32703 24613000     *          INSERTED*
               .NOCTC   ANOP                                                     **ASP 24614000     *          INSERTED*
IEB816I MEMBER NAME (IODEVICE) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002


       ./       CHANGE  NAME=SGIEC202
                        GBLB  &CTCDEVS(768)                                   @AA32703 00061000     *          INSERTED*
                        LCLB  &CTCPRES                                           **ASP 00530000     *          INSERTED*
               .H01     AIF   (NOT &SGDF01B(&COUNTB)).SETYPA     BR IF 9 TRACK         11286321     *          REPLACED*
               .H01     AIF   (&CTCDEVS(&COUNTB)).CTCFEAT   BR IF CTC DEVICE   AA32703 11286321     *       REPLACEMENT*
                        AIF   (NOT &SGDF01B(&COUNTB)).SETYPA     BR IF 9 TRACK   **ASP 11286322     *          INSERTED*
                        AIF   (NOT &CTCDEVS(&COUNTB)).UCBOPUT                 @AA32703 12370000     *          INSERTED*
                        AGO   .UCBOPUT                                                 12380000     *          REPLACED*
                        AGO   .CTCFEAT                                           **ASP 12380000     *       REPLACEMENT*
               .CTCFEAT ANOP       SET CTC FEATURE BIT AND CHECK DEVICE TABLE    **ASP 12390000     *          INSERTED*
               &CTCPRES SETB  1                   INDICATE CTC PRESENCE          **ASP 12390010     *          INSERTED*
               &LCHCNT  SETA  &LCHCNT+4           SET CTC BIT IN OPT FEATURES    **ASP 12390020     *          INSERTED*
               &ENTCNT  SETA  1                   INITIALIZE COUNT               **ASP 12390030     *          INSERTED*
               .CTCCONT AIF   ('&TYPTAB(&ENTCNT)' EQ 'CTC').CTCDEV  BR IF CTC    **ASP 12390040     *          INSERTED*
               &ENTCNT  SETA  &ENTCNT+1           UPDATE ENTRY COUNT             **ASP 12390050     *          INSERTED*
                        AIF   (&ENTCNT LE &TYPCNT).CTCCONT  BR IF MORE TYPES     **ASP 12390060     *          INSERTED*
               &TYPCNT  SETA  &TYPCNT+1           ADD ONE FOR CTC DEVICE TYPE    **ASP 12390070     *          INSERTED*
               &TYPTAB(&TYPCNT) SETC 'CTC'        INSERT CTC INTO TABLE          **ASP 12390080     *          INSERTED*
               .CTCDEV  ANOP                                                     **ASP 12390090     *          INSERTED*
                        AIF   (NOT &SGSUPRB(26)).CTCNOLT NEED OLTEP ADJUSTMENT         12390092     *          INSERTED*
               &ENTCNT  SETA  (&SGDCLSB(70)+&ENTCNT) YES ADJUST ENTCNT                 12390094     *          INSERTED*
               .CTCNOLT ANOP                                                           12390096     *          INSERTED*
               &DEVTAB  SETA  &ENTCNT*8-8         COMPUTE DEVTAB INDEX FOR UCB   **ASP 12390100     *          INSERTED*
                        AGO   .SETYPA             GO SET UCB TYPE FIELD          **ASP 12390110     *          INSERTED*
                        AIF   (NOT &CTCPRES).NOCTC  SKIP IOS ADDITIONS IF NO CTC **ASP 15276100     *          INSERTED*
                        PUNCH ' IECCTC &I,&TWOBS' INCLUDE ASP IOS MODS           **ASP 15276118     *          INSERTED*
               .NOCTC   ANOP                                                     **ASP 15277118     *          INSERTED*
IEB816I MEMBER NAME (SGIEC202) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.GENLIB                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.GENLIB                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.SV000.G14PREM.R0000071      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G14PREM.S0000072      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G14PREM.S0000072      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /STEP1   / START 78240.1943
IEF374I STEP /STEP1   / STOP  78240.1943 CPU   0MIN 00.16SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:43:09.09   ALLOC START    19:43:09.10   MAIN REGION ----- 256K                          *
*   STEP NAME STEP1      STEP END TIME  19:43:09.36   PGM START TIME 19:43:09.16   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME PRE        ELAPSED TIME   00:00:00.27   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.16   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0250 ---------- 107       0250 ---------- 105       0158 ----------- 44       0130 ----------- 37                              *
************************************************************************************************************************************

++STEP2   EXEC PGM=IEBUPDTE
++SYSUT1   DD DSN=SYS1.MODGEN,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
IEF653I SUBSTITUTION JCL - DSN=SYS1.MODGEN,UNIT=3330,DISP=SHR,VOL=SER=ASPDLB
++SYSUT2   DD DSN=SYS1.MODGEN,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
IEF653I SUBSTITUTION JCL - DSN=SYS1.MODGEN,UNIT=3330,DISP=SHR,VOL=SER=ASPDLB
++SYSPRINT DD SYSOUT=&OUTCLAS
IEF653I SUBSTITUTION JCL - SYSOUT=A
***
//STEP2.SYSIN DD *
IEF236I ALLOC. FOR G14PREM  STEP2    PRE
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSUT2
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./       ADD   NAME=IECCTC
                MACRO                                                          00000000
                IECCTC  &CTLPRG,&TBASE                                         00001000
       .*             &CTLPRG VALUES ARE 1,2 INDICATING MFT,MVT RESPCTVLY      00002000
       *--------------------------------------------------------------------*  00011000
       *                                                                     * 00012000
       *              CLEAR NOT READY FOR CTC TAPE DEVICES                   * 00013000
       *                                                                     * 00014000
       *--------------------------------------------------------------------*  00015000
       CTCENQ   L     APBSRG,ENQAD        GET ADDRESS OF ENQUEUE ROUTINE **ASP 00016000
                TM    UCBTYP+2(UCBREG),X'80' IS THIS A TAPE           @AA23757 00017000
                BZ    CTCENQ20 -          NO,GO ENQUE REQUEST         @AA23757 00018000
                TM    UCBFL1(UCBREG),UCBNRY IS THE DEVICE NOT READY   @AA23757 00019000
                BZ    CTCENQ10 -          NO,CHECK CHANNEL MASK       @AA23757 00020000
                NI    UCBFL1(UCBREG),X'FF'-UCBNRY TURN OFF NOT READY      *ASP 00021000
                B     XCP010A -           GO RETRY THE REQUEST            *ASP 00022000
       CTCENQ10 TM    CHMSK,X'FF' -       ANY RESTART BITS ON         @AA23757 00023000
                BZ    CTCENQ20 -          NO,GO ENQUE REQUEST         @AA23757 00024000
                LH    WKREG1,CTCMUCB -    GET MASTER CTC UCB ADDR     @AA23757 00025000
                LTR   WKREG1,WKREG1 -     IS ADDR VALID               @AA23757 00026000
                BZ    CTCENQ20 -          NO,GO ENQUE REQUEST         @AA23757 00026100
                IC    ICREG,UCBCHA(WKREG1) GET CTC CHANNEL ADDR       @AA23757 00026200
                N     ICREG,CTCMASK -     CLEAR UNWANTED BITS         @AA23757 00026300
                SLL   ICREG,2 -           MULTIPLY CHAN ADDR BY 4     @AA23757 00026400
                LA    WKREG1,IECCST(ICREG) POINT AT CHANNEL TABLE     @AA23757 00026500
                OC    CHMSK(1),LCTMSK(WKREG1) TURN ON CTC CHAN MASK   @AA23757 00026600
                SR    ICREG,ICREG -       CLEAR IC REG                @AA23757 00026700
       CTCENQ20 B     XCPENQ-XCPPNQ(APBSRG) GO ENQUE REQUEST          @AA23757 00027000
                TITLE 'CHANNEL TO CHANNEL ADAPTER START I/O MODULE'      **ASP 00028000
       *---------------------------------------------------------------------* 00029000
       *                                                                     * 00030000
       *        CHECK ADAPTER AVAILABILITY - INSERT DSTL IF REQUIRED         * 00031000
       *        LINK TO USERS SIO APPENDAGE - SET SECONDARY UCB BUSY         * 00032000
       *        LINK TO IOS TO DO THE SIO - FREE THE PROPER UCB(S)           * 00033000
       *        UPDATE THE DSTL IF REQUIRED AND EXIT TO IOS POST SIO         * 00034000
       *                                                                     * 00035000
       *---------------------------------------------------------------------* 00036000
                SPACE 2                                                  **ASP 00037000
       CTCSIO   DS    0H -                                               **ASP 00038000
       CTCSIO10 LH    UCBREG,TSTUCB(TSTREG) - ASSURE VALIDITY OF UCBREG  **ASP 00042000
                LH    WKREG2,CTCMUCB -    POINT TO ADAPTER UCB           **ASP 00043000
                TM    UCBTYP+2(UCBREG),X'80' IS REQ FOR A TAPE DEVICE     *ASP 00043100
                BC    8,CNSLREQ -         NO,BR,MUST BE CONSOE            *ASP 00043200
                TM    CTCMONSW,MNMTENA1 - IS THE DEVICE USABLE        @AA27462 00043300
                BC    1,CNSLREQ -         YES GO ON WITH REQUEST          *ASP 00043400
       CTCABEND MVI   IOBCOD(IOBREG),PERMER SET PERMANENT ERROR IN IOB    *ASP 00043420
       CTCNOIO  DS    0H -                                            @AA33546 00043430
                LH    UAREG,UCBCHA(UCBREG) - RELOAD CHAN/UNIT ADDRESS @AA34010 00043435
                N     UAREG,ADDRMSK -        CLEAR HI ORDER BYTE      @AA34010 00043436
                MVI   CSWLOC+4,CSWCHE+CSWDVE - SET CHAN & DEV END IN CSW **ASP 00043440
                TM    *,X'FF' -           GENERATE A SIO CC OF CSW STORD **ASP 00043460
                LA    LNKRG3,CTCPIO -     POINT TO PIO ENTRY POINT             00043470
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002


                B     LASPPIO -           GO TO IOS FOR POST SIO CLEANUP **ASP 00043480
       CNSLREQ  LTR   WKREG2,WKREG2 -     IS THE MASTER CTC AVAILABLE     *ASP 00043500
                BZ    CTCCTLCM -          NO,DONT START REQ           @AA33546 00043700
                TM    UCBFL1(WKREG2),UCBBSY - IS THE ADAPTER BUSY        **ASP 00044000
                BO    CTCBUSY -           YES,DONT START REQ          @AM00431 00045000
                TM    CTCMONSW,MNASPABN - IS ASP ABENDING             @AA27462 00045100
                BO    CTCBUSY -           YES,DONT START REQ          @AM00431 00045200
                LA    WKREG2,UCBTYP-2(UCBREG) - POINT TO DSTL FOR REQEST **ASP 00046000
                L     WKREG1,IOBST-1(IOBREG) - POINT TO CHANNEL PROGRAM  **ASP 00047000
                CLC   CTCLAST,0(WKREG2) - IS REQ FOR DEVICE LAST USED          00048000
                BE    CTCSIO20 -          YES, GO SET THE CAW            **ASP 00049000
                MVC   CTCCUR,0(WKREG2) -  NO, SET DSTL AS CURRENT              00050000
                MVC   CTCMODE(1),DCBMODE(DCBREG) MOVE IN MODE BYTE       **ASP 00050100
                TM    DCBMACRF(DCBREG),X'80' IS THIS EXCP                **ASP 00050150
                BZ    NOTEXCP -           NO,BRANCH                      **ASP 00050200
                MVC   CTCLRECL(5),DSHEXCP FILL IN DATA FOR EXCP          **ASP 00050250
                TM    DCBMACRF(DCBREG),X'40' IS THE RECFM AVAILABLE      **ASP 00050300
                BO    XCPRECFM -          YES,BRANCH                     **ASP 00050350
                B     EXCP -                                             **ASP 00050400
       NOTEXCP  MVC   CTCBLKSI,DCBBLKSI(DCBREG) MOVE IN BLOCKSIZE        **ASP 00050450
                MVC   CTCLRECL,DCBLRECL(DCBREG) MOVE IN THE LRECL        **ASP 00050500
       XCPRECFM MVC   CTCRECFM,DCBRECFM(DCBREG) MOVE IN THE RECFM        **ASP 00050550
       EXCP     DS    0H -                                               **ASP 00050600
                ST    WKREG1,CTCTIC -     POINT TIC TO USER CHANNEL PROG **ASP 00051000
                MVI   CTCTIC,TICOP -      RESTORE TIC OP CODE            **ASP 00052000
                LA    WKREG1,CTCDSTLW -   POINT TO DSTL WRITE CCW        **ASP 00053000
       CTCSIO20 ST    WKREG1,CAWLOC -     STORE CHAN PROG ADDR INTO CAW  **ASP 00054000
                TM    IOBFL1(IOBREG),IOBERR - IS ERR ROUTINE IN CONTROL  **ASP 00055000
                BO    CTCSIO30 -          YES, DON'T GO TO APPENDAGE     **ASP 00056000
                L     APBSRG,DEBAPG-1(DEBREG) - POINT TO APPENDAGE VECTR **ASP 00057000
                L     APBSRG,APGSIO(APBSRG) - POINT TO SIO APPENDAGE     **ASP 00058000
                BALR  LNKRG2,APBSRG -     LINK TO APPENDAGE ROUTINE      **ASP 00059000
                B     CTCSIO30 -          NORMAL RETURN, GO DO SIO       **ASP 00060000
                LA    LNKRG2,INT025 -     ERROR RETURN, DEQ THE REQUEST  **ASP 00061000
                NI    UCBFL1(UCBREG),X'FF'-UCBASK-UCBDTR-UCBCUB-UCBPST - **ASP 00062000
                B     XCPPDQ -            RESET UCB AND EXIT TO DEQUEUE  **ASP 00063000
       CTCSIO30 NI    UCBCHA(UCBREG),X'FF'-UCBHLT-UCBSMD - RESET HIO/SMD **ASP 00064000
                NI    UCBFL1(UCBREG),X'FF'-UCBCUB-UCBNRY - RESET CUB/NRY **ASP 00065000
                STH   TSTREG,UCBLTS(UCBREG) - CHAIN RQE FROM SECONDARY   **ASP 00067000
                LH    UCBREG,CTCMUCB -    POINT TO THE ADAPTER UCB       **ASP 00068000
                LH    UAREG,UCBCHA(UCBREG) -LOAD CTC UNIT ADDR IN UAREG   *ASP 00069000
                N     UAREG,ADDRMSK -     CLEAR HIGH ORDER BYTE          **ASP 00069100
       CTCSIO35 LA    LNKRG3,CTCPIO -     POINT TO POST SIO ROUTINE      **ASP 00071000
       CTCSIO40 CLI   ATNTAB+4,X'FF' -    IS THIS A LASP SYSTEM          **ASP 00077000
                BNE   XCP110 -            NO, LINK TO IOS TO DO THE SIO  **ASP 00078000
                MVZ   CAWLOC(1),TSTKEY(TSTREG) - SET USER PROTECT KEY    **ASP 00080000
       .ASPSIO4 STH   TSTREG,UCBLTS(UCBREG) - CHAIN RQE FROM ADAPTER UCB **ASP 00083000
                L     APBSRG,ATNTAB+4 -   POINT TO LASP I/O ROUTINE      **ASP 00084000
                BAL   LNKRG3,8(APBSRG) -  GO PROCESS LASP SIO            **ASP 00085000
                SR    WKREG1,WKREG1 -     GENERATE A SIO CC OF STARTED   **ASP 00086000
                BAL   LNKRG3,LASPPIO -    GO TO IOS FOR POST SIO CLEANUP **ASP 00087000
       CTCPIO   EQU   * -                                                **ASP 00088000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0003


       .ASPSIO5 BC    8,CTCPIO10 -        GO UPDATE DSTL IF SIO SUCESFUL **ASP 00089000
                BC    4,CTCPIO5           IF CC=1 CONTINE TESTING              00089100
                BC    1,CTCSIO35 -        CC=3 GO RETRY                 **ASP  00089120
                LH    UCBREG,TSTUCB(TSTREG) POINT TO SECONDARY CTC UCB         00089150
                STH   TSTREG,UCBLTS(UCBREG) CHAIN RQE FROM SECONDARY     **ASP 00089200
                BR    LNKRG3              RETURN TO IOS                        00089300
       CTCPIO5  EQU   *                                                        00089400
                TM    CSWLOC+4,CSWCHE -   DOES CSW SHOW CHANNEL END      **ASP 00090000
                BO    CTCPIO10 -          YES, TREAT AS SUCCESSFUL SIO   **ASP 00091000
                TM    CSWLOC+4,CSWATN -   WAS AN ATTENTION RECEIVED      **ASP 00094000
                BO    CTCPIO20 -          YES, LET IOS POST SIO HANDLE   **ASP 00095000
                NI    UCBFL1(UCBREG),X'FF'-UCBPST-UCBBSY - FREE ADAPTER  **ASP 00096000
                LH    UCBREG,TSTUCB(TSTREG) POINT TO SECONDARY CTC UCB         00097000
                B     CTCPIO20 -          DON'T UPDATE DSTL              **ASP 00098000
       CTCPIO10 MVC   CTCLAST,CTCCUR -    UPDATE DATA SET TITLE LABEL    **ASP 00099000
                LH    WKREG1,TSTUCB(TSTREG) - POINT TO SECONDARY UCB     **ASP 00099100
                OI    UCBFL1(WKREG1),UCBPST+UCBBSY - SET SECONDARY ACTIV **ASP 00099200
       CTCPIO20 TM    IOBCC(IOBREG),IOBCC3 - RESTORE CC PRIOR TO EXIT    **ASP 00100000
                LA    LNKRG3,XCPPIO -     POINT TO IOS POST SIO ROUTINE  **ASP 00101000
                BR    LNKRG3 -            EXIT TO IOS                    **ASP 00102000
       CTCCTLCM L     WKREG1,IOBST-1(IOBREG) -    GET CCW ADDR        @AA33546 00102050
                TM    CCWFLG(WKREG1),X'C0' -      DATA/COMMAND CHAIN  @AA33546 00102060
                BC    4+1,CTCBUSY -               YES,ENQUEUE REQ     @AA33546 00102070
                LA    WKREG2,CTCOPCOD -           COMMAND TABLE ADDR  @AA33546 00102080
                LA    WKREG3,CTCOPNUM -           NUM OF ENTRIES      @AA33546 00102090
       CTCNXTOP CLC   0(1,WKREG1),0(WKREG2) -     SELECTED COMMAND    @AA33546 00102100
                BE    CTCNOIO -                   YES,POST COMPLETE   @AA33546 00102110
                LA    WKREG2,1(WKREG2) -          INCREMENT COUNT     @AA33546 00102120
                BCT   WKREG3,CTCNXTOP -           LOOP UNTIL DONE     @AA33546 00102130
       CTCBUSY  DS    0H -                                            @AA33546 00102190
                IECLNK1 ,BC,15,SELBSY,0,LNKRG1,,&TBASE                @AM00431 00102200
                SPACE 3                                                  **ASP 00103000
       CTCDSTLW CCW   X'FD',CTCCUR,X'60',8 WRITE CURRENT DSTL     ASPHDR **ASP 00104000
       CTCTIC   CCW   TICOP,0,0,0 -       TRANSFER TO USER CHANNEL PROG  **ASP 00105000
       CTCSNCCW CCW   SENSOP,CTCSNBYT,X'20',1 - OBTAIN SENSE BYTE        **ASP 00106000
       CTCCUR   DC    H'0' -              CURRENT DSTL UNIT       ASPHDR **ASP 00107000
       CTCLRECL DC    H'0' -              DSTL LRECL              ASPHDR **ASP 00107100
       CTCBLKSI DC    H'0' -              DSTL BLKSIZE            ASPHDR **ASP 00107200
       CTCRECFM DC    XL1'00',X'00' -     DSTL RECFM              ASPHDR **ASP 00107300
       CTCMODE  EQU   CTCCUR+7                                       DSH **ASP 00107400
       DCBLRECL EQU   82 -                                        ASPHDR **ASP 00107500
       DCBBLKSI EQU   62 -                                        ASPHDR **ASP 00107600
       DCBRECFM EQU   36 -                                        ASPHDR **ASP 00107700
       DCBMODE  EQU   16                                             DSH **ASP 00107800
       DCBMACRF EQU   42 -                                               **ASP 00107900
       DSHEXCP  DC    XL5'C5E7C3D7C0' -                                  **ASP 00107950
       CTCLAST  DC    AL2(0) -            DSTL FOR LAST SECCESSFUL REQ   **ASP 00108000
       CTCMASK  DC    1F'15' -            MASK FOR CTC CHANNEL ADDR   @AA23757 00108100
       CTCMUCB  DC    H'0'                 - POINTER TO ADAPTER UCB      **ASP 00109000
       CTCOUCB  DC    H'0' -              SECONDARY CTC POINTER       @AM00431 00110000
       CTCMONSW DC    X'00'               SW BYTE FOR CTC MONITOR              00110100
       CTCCCWL  DC    H'8' -              LENGTH OF A CCW                **ASP 00111000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0004


       CTCSNBYT DC    X'00' -             ADAPTER SENSE BYTE             **ASP 00112000
       CTCLASP  DC    X'00' -             LOCAL/REAL MAIN INDICATOR      **ASP 00115000
       CTCOPCOD DC    X'07' -                     REW COMMAND         @AA33546 00115100
                DC    X'0F' -                     RUN COMMAND         @AA33546 00115101
                DC    X'1F' -                     WTM COMMAND         @AA33546 00115102
       CTCOPNUM EQU   *-CTCOPCOD -                NUM OF COMM CODES   @AA33546 00115120
       CTCPATCH DC    10F'12837827' -     PATCH AREA                     **ASP 00116000
                SPACE 3                                               @AA27462 00116100
       *        DEFINITION OF CTCMONSW                                @AA27462 00116200
       MNMTENA1 EQU   X'80' -             MAINTASK ENABLED            @AA27462 00116300
       MNMTENA2 EQU   X'40' -             MAINTASK ENABLED            @AA27462 00116400
       MNSWCOMP EQU   X'10' -             CONSOLE SWITCH COMPLETE     @AA27462 00116500
       MNASPABN EQU   X'08' -             ASP ABENDING                @AA27462 00116600
       MNHOTIPL EQU   X'04' -             HOT IPL                     @AA27462 00116700
       MNSWFAIL EQU   X'02' -             CONSOLE SWITCH FAILED       @AA27462 00116800
       MNCTCBSY EQU   X'01' -             CTC BUSY                    @AA27462 00116900
                TITLE 'CHANNEL TO CHANNEL ADAPTER TRAP ROUTINE'          **ASP 00117000
       *---------------------------------------------------------------------* 00118000
       *                                                                     * 00119000
       *        SET UNIT EXCEPTION AT EOF - FREE SECONDARY & ADAPTER UCBS    * 00120000
       *                                                                     * 00122000
       *---------------------------------------------------------------------* 00123000
                SPACE 2                                                  **ASP 00124000
       CTCTRP   DS    0H -                                               **ASP 00125000
                TM    CTCMONSW,MNMTENA1 - ARE CTC TAPES ENABLED       @AA27462 00125100
                BC    8,CTCTRP10 -        NO,SKIP RELOAD OF UCBREG     AA23168 00125200
                LH    UCBREG,CTCOUCB -    RELOAD UCBREG WITH MASTER   @AM00431 00126031
       CTCTRP10 NI    CTCMONSW,X'FF'-MNCTCBSY - TURN OFF CTCBUSY FLAG @AA27462 00129030
                CH    UCBREG,TSTUCB(TSTREG) - WAS THE I/O ON THE CONSOLE **ASP 00129130
                BCR   8,LNKRG2 -          YES, EXIT TO IOS               **ASP 00130000
                NI    UCBFL1(UCBREG),UCBBSY - RESET ALL BUT BSY IN ADPTR **ASP 00131000
                LH    UCBREG,TSTUCB(TSTREG) - POINT TO UCB FOR THIS REQ  **ASP 00132000
                NI    UCBFL1(UCBREG),X'FF'-UCBBSY - RESET BUSY IN SCNDRY **ASP 00133000
                LH    WKREG1,CSWLOC+6 -   GET RESIDUAL BYTE COUNT        **ASP 00134000
                LTR   WKREG1,WKREG1 -     IS THE RESIDUAL ZERO           **ASP 00135000
                BZ    CTCTRP30 -          YES, NO EOF/GO INCR BLK COUNT  **ASP 00136000
                TM    CSWLOC+4,CSWCHE+CSWDVE - CHAN AND DEV END IN CSW   **ASP 00137000
                BNO   CTCTRP30 -          NO, NO EOF/GO INCR BLK COUNT   **ASP 00138000
                L     WKREG1,CSWLOC -     POINT TO THE NEXT CCW          **ASP 00139000
                SH    WKREG1,CTCCCWL -    BACK UP TO CCW JUST EXECUTED   **ASP 00140000
                TM    0(WKREG1),X'01' -   WAS IT A WRITE                 **ASP 00141000
                BO    CTCTRP30 -          YES, NO EOF/GO INCR BLK COUNT  **ASP 00142000
                CLC   6(2,WKREG1),CSWLOC+6 - DOES RESIDUAL CNT = INITIAL **ASP 00143000
                BNE   CTCTRP30 -          NO, NO EOF/GO INCR BLK COUNT   **ASP 00144000
       CTCTRP20 OI    IOBCSW+4(IOBREG),CSWUEX - SET UNIT XCEPTION IN IOB **ASP 00161000
       CTCTRP30 L     WKREG1,DCBBLK(DCBREG) - OBTAIN DCB BLOCK COUNT     **ASP 00162000
                AH    WKREG1,IOBBCI(IOBREG) - INCREMENT IT               **ASP 00163000
                ST    WKREG1,DCBBLK(DCBREG) - STORE UPDATED COUNT        **ASP 00164000
                BR    LNKRG2 -            EXIT TO IOS                    **ASP 00165000
       *********************************************************************** 00165100
       *                                                                     * 00165200
       *        THE FOLLOWING CODE PROVIDES SPECIAL INTERRUPT HANDLING       * 00165300
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0005


       *        FOR ASP CTC DEVICES                                          * 00165350
       *                                                                     * 00165400
       *********************************************************************** 00165500
       CTCINTH  CLI   ATNTAB+4,X'FF' -    IS THIS SUPPORT             **ASP    00166000
                BE    CTCLINT -           YES,BRANCH                  **ASP    00167000
                TM    CSWLOC+4,CSWATN -   IS THIS REALLY ATTENTION    **ASP    00170000
                BZ    INT013 -            NO,GO TO O/S                **ASP    00171000
                LA    WKREG1,CTCSNCCW -   POINT AT ADAPTER SENSE CCW     **ASP 00172000
                ST    WKREG1,CAWLOC -     STORE CCW ADDR & 0 KEY IN CAW  **ASP 00173000
       CTCATN10 SIO   0(UAREG) -          START SENSE COMMAND            **ASP 00174000
                BC    3,CTCATN10 -        RE-ISSUE IF ADAPTER BUSY       **ASP 00175000
       CTCATN20 TIO   0(UAREG) -          TEST SENSE OPERATION STATUS    **ASP 00176000
                BC    8+2+1,CTCATN20 -    LOOP UNTIL CSW STORED          **ASP 00177000
                TM    CSWLOC+4,CSWDVE -   HAS DEVICE END OCCURED         **ASP 00178000
                BZ    CTCATN20 -          NO, LOOP UNTIL IT DOES         **ASP 00179000
                CLI   CTCSNBYT,X'07' -    IS THIS A NORMAL ATTN       @AM00431 00179100
                BE    INTATT2 -           YES GO TO ATN HANDLER       @AM00431 00179200
                CLI   CTCSNBYT,X'F7' -    IS THIS IPL RESPONSE        @AM00431 00180000
                BNE   CTCAERR -           NO,BR ON ERR CONDITION      @AA19292 00181000
                LH    WKREG1,CTCMUCB -    GET MASTER CTC UCB ADR          *ASP 00182000
                LTR   WKREG1,WKREG1 -     TEST FOR UCB ADDR VALID         *ASP 00183000
                BNZ   INT013 -            IGNORE INTERRUPT            @AM00431 00184000
                STH   UCBREG,CTCMUCB -    MAKE THIS RESPONDER MASTER      *ASP 00185000
                STH   UCBREG,CTCOUCB -    SAVE SECOND CTC POINTER     @AM00431 00186000
                B     INTATT2 -           GO TO ATTN HANDLER          **ASP    00190000
       CTCLINT  CH    UCBREG,CTCOUCB -    IS INTRPT ON MASTER CTC     @AM00431 00191000
                BNE   CTCRINT -           NO GO TO ASP                **ASP    00192000
                CLI   CSWLOC+4,X'04' -    IS THIS DE FROM HIO         **ASP    00193000
                BNE   INTATT1 -           NO GO  TO INT HANDLER       **ASP    00194000
                B     INT013 -            YES,GO SKIP INT HANDLING    **ASP    00195000
       CTCRINT  L     APBSRG,CTCATN -     GET POINTER TO CTC ATN ROUTINE **ASP 00196000
                LTR   APBSRG,APBSRG -     IS POINTER VALID            **ASP    00197000
                BZ    INT013 -            NO,RETURN                   **ASP    00198000
                BALR  LNKRG2,APBSRG -     GO TO CTC ATN ROUTINE       **ASP    00199000
                B     INT013 -            RETURN                      **ASP    00200000
       CTCAERR  MVC   CTCSNBYT+1(1),CTCSNBYT TRACE LAST SENSE DATA    @AA19292 00200100
                MVI   CTCSNBYT,X'F7' -    INSERT FAKE SENSE DATA      @AA19292 00200200
                HDV   0(UAREG) -          HALT THE CTC                @AA19292 00200300
                BC    11,CTCATN20 -       GO DO TIO TILL CSW STOREED  @AA19292 00200400
                B     INT013 -            RETURN TO INTR HANDLER      @AA19292 00200500
                TITLE 'TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS'  **ASP 00201000
                MEND                                                           00202000
IEB817I MEMBER NAME (IECCTC  ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0006


       ./       CHANGE  NAME=IECINT
               **************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP 21770519     *          INSERTED*
                        CLI   UCBTYP+1(UCBREG),4 -IS THE ERROR ON A CTC UNIT     **ASP 21771019     *          INSERTED*
                        BNE   INT031 -            NO, GO TO AB. END APG. EXIT    **ASP 21771519     *          INSERTED*
                        LH    WKREG1,TSTUCB(TSTREG) - GET ADDR OF SECONDARY UCB  **ASP 21772019     *          INSERTED*
                        MVI   UCBFL1(WKREG1),0 -  RESET ALL FLAGS IN SECONDARY   **ASP 21772519     *          INSERTED*
               INTATT   TM    CSWLOC+4,CSWCHE+CSWDVE                              IMP2 47250019     *          REPLACED*
               **************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP 47250019     *       REPLACEMENT*
               INTATT   CLI   UCBTYP+1(UCBREG),X'04' IS THIS CTC INTERRUPT    **ASP    47250500     *          INSERTED*
                        BE    CTCINTH -           YES BRANCH                  **ASP    47251000     *          INSERTED*
               INTATT1  TM    CSWLOC+4,CSWCHE+CSWDVE -                        **ASP    47252000     *          INSERTED*
                        CLI   ATNTAB+4,X'FF' -    IS THIS A LASP SYSTEM          **ASP 47532019     *          INSERTED*
                        BNE   NOTLASP -           NO, DO NOT ATTEMPT POSTING ASP **ASP 47533019     *          INSERTED*
                        LR    ICREG,APBSRG -      YES, SAVE ATTN RTN EP ADDRESS  **ASP 47534019     *          INSERTED*
                        L     APBSRG,ATNTAB+4 -   POINT TO CONTRAP ENTRY POINT   **ASP 47535019     *          INSERTED*
               NOTLASP  EQU   * -                                                **ASP 47536019     *          INSERTED*
                        SR    ICREG,ICREG -       CLEAR ICREG                    **ASP 47671019     *          INSERTED*
               *        FOLLOWING CODE MODIFIED FOR ASP                           ASP  72731030     *          INSERTED*
                        BC    8,ASPINTER          NO,BYPASS ASP CODE              ASP  72800019     *          INSERTED*
                        TM    UCBFL1(UCBREG),UCBNRY IS DEVICE READY                ASP 72801030     *          INSERTED*
                        BNO   INTER7C -           BRANCH IF YES                    ASP 72802030     *          INSERTED*
                        TM    UCBTYP+2(UCBREG),X'88' IS DEVICE UR OR TAPE          ASP 72803030     *          INSERTED*
                        BZ    INTER7C -           BRANCH IF NOT                    ASP 72804030     *          INSERTED*
                        TM    44(DCBREG),X'01' -  ASP REQUESTED IO                 ASP 72805030     *          INSERTED*
                        BNO   INTER7C -           BRANCH IF NOT                    ASP 72806030     *          INSERTED*
                        OI    DCBFL(DCBREG),DCBPER SET PERM ERROR                  ASP 72807030     *          INSERTED*
                        IECLNK1 ,LA,LNKRG1,INT027,,,,&TBASE                            72807131     *          INSERTED*
                        B     INT057 -            TO ABN APG                       ASP 72808030     *          INSERTED*
               ASPINTER DS    0H                                                  ASP  72809030     *          INSERTED*
IEB816I MEMBER NAME (IECINT  ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0007


       ./       CHANGE  NAME=IECIOS
               **************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP 02531519     *          INSERTED*
                        CLI   ATNTAB+4,X'FF' -    IS THIS A LASP SYSTEM          **ASP 02532019     *          INSERTED*
                        BNE   NOASPPST -          NO, DON'T ATTEMPT POSTING ASP  **ASP 02532519     *          INSERTED*
                        LR    LCHREG,LNKRG2 -     SAVE IOS LINKAGE REG           **ASP 02533019     *          INSERTED*
                        LR    ICREG,APBSRG -      SAVE POST EP ADDRESS           **ASP 02533519     *          INSERTED*
                        L     APBSRG,ATNTAB+4 -   POINT TO CONTRAP ENTRY POINT   **ASP 02534019     *          INSERTED*
                        BAL   LNKRG2,4(0,APBSRG) -ENTER CONTRAP FOR POSS ASP PST **ASP 02534519     *          INSERTED*
                        LR    LNKRG2,LCHREG -     RESTORE IOS LINKAGE REGISTER   **ASP 02535019     *          INSERTED*
                        LR    APBSRG,ICREG -      RESTORE POST EP ADDRESS        **ASP 02535519     *          INSERTED*
                        SR    ICREG,ICREG -       CLEAR ICREG                    **ASP 02536019     *          INSERTED*
               NOASPPST EQU   * -                                                **ASP 02536519     *          INSERTED*
               **************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP 04650019     *          INSERTED*
                        BCR   8,LNKRG2                 YES - RETURN OK          A24739 04660019     *          REPLACED*
                        BR    LNKRG2 -            NOP KEY ZERO REQ FOR DEBS      **ASP 04660019     *       REPLACEMENT*
               **************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP 06041019     *          INSERTED*
                        CLI   UCBTYP+1(UCBREG),X'04'  IS THIS A CTC DEVICE       **ASP 06042019     *          INSERTED*
                        BNE   XERX02 -            IF NO DONT CLEAR UCB FLGS      **ASP 06042119     *          INSERTED*
                        LH    LNKRG3,CTCMUCB -    POINT TO PRIMARY CTC UCB       **ASP 06042219     *          INSERTED*
                        NI    CTCMONSW,X'FF'-MNCTCBSY - TURN OFF CTCBUSY FLAG @AA27462 06042330     *          INSERTED*
                        MVI   UCBFL1(LNKRG3),0 -  CLEAR ALL FLAGS IN ADAPTER UCB **ASP 06043019     *          INSERTED*
               CTCATN   DC    F'0' -              ASP CTC ATN ENTRY               *ASP 77158030     *          INSERTED*
               CTCINDX  EQU   CTCATN-ATNTAB -     VALUE OF CTC ATN INDEX         **ASP 77158130     *          INSERTED*
                        SPACE 2                                                   *ASP 77159030     *          INSERTED*
IEB816I MEMBER NAME (IECIOS  ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0008


       ./       CHANGE  NAME=IECIOSB
               **************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP 76081020     *          INSERTED*
                        CLI   UCBTYP+1(HINREG),X'04' - IS THIS REQST FOR CTC DEV **ASP 76081520     *          INSERTED*
                        BNE   NOCTCHIO -          NO, PROCEED NORMALLY           **ASP 76082020     *          INSERTED*
                        TM    UCBTYP+2(HINREG),X'88' IS THIS TAPE OR UNIT REC    **ASP 76082130     *          INSERTED*
                        BC    9,NOCTCHIO          NO BRANCH NOT CTC              **ASP 76082230     *          INSERTED*
                        L     HUAREG,CTCADCON -   GET POINTER TO CTC UCB ADCON   **ASP 76082520     *          INSERTED*
                        NI    4(HUAREG),X'FE' -   TURN OFF CTCBUSY FLAG           *ASP 76082630     *          INSERTED*
                        LH    HUAREG,0(HUAREG) -  POINT TO THE ADAPTER UCB       **ASP 76083020     *          INSERTED*
                        OI    UCBCHA(HUAREG),UCBHLT - INDICATE HIO ISSUED        **ASP 76083520     *          INSERTED*
                        NI    UCBFL1(HUAREG),X'FF'-UCBBSY-UCBPST-UCBDTR-UCBASK - **ASP 76084020     *          INSERTED*
                        LH    HUAREG,UCBCHA(HUAREG) - OBTAIN UNIT ADDRESS        **ASP 76084520     *          INSERTED*
                        N     HUAREG,ADMSK -      CLEAR HIGH ORDER BITS          **ASP 76085020     *          INSERTED*
                        B     HIO002 -            GO ISSUE HIO                   **ASP 76086520     *          INSERTED*
               NOCTCHIO EQU   * -                                                **ASP 76087020     *          INSERTED*
               CTCADCON DC    A(CTCMUCB) -        ADDRESS OF THE CTC UCB ADCON   **ASP 89121020     *          INSERTED*
IEB816I MEMBER NAME (IECIOSB ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0009


       ./       CHANGE  NAME=IECTBL
                        AIF   ('&TYPE(&COUNT)' EQ 'CTC').CTCFIFO                 **ASP 12600500     *          INSERTED*
               .CTCFIFO ANOP                                                     **ASP 75000100     *          INSERTED*
               **  CHANNEL TO CHANNEL ADAPTER ENTRY WITH FIFO QUEUEING           **ASP 75000110     *          INSERTED*
                        DC    AL2(CTCENQ-IOSBASE) FIFO QUEUEING FOR CTC          **ASP 75000120     *          INSERTED*
                        DC    AL2(CTCSIO-IOSBASE) SIO CODE FOR CTC               **ASP 75000130     *          INSERTED*
                        DC    AL2(CTCTRP-IOSBASE) TRAP CODE FOR CTC              **ASP 75000140     *          INSERTED*
                        DC    AL2(NORMSEN-IOSBASE) SENSE ENTRY FOR CTC           **ASP 75000150     *          INSERTED*
                        AGO   .TSTLOOP                                           **ASP 75000160     *          INSERTED*
IEB816I MEMBER NAME (IECTBL  ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0010


       ./       CHANGE  NAME=IECXCP
                        ENTRY CTCMUCB                                             *ASP 02012030     *          INSERTED*
                        ENTRY ATNTAB                                              *ASP 02013030     *          INSERTED*
                        ENTRY CTCMONSW                                            *ASP 02014030     *          INSERTED*
                        ENTRY CTCATN                                              *ASP 02015030     *          INSERTED*
               **************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP 74762019     *          INSERTED*
                        BALR  WKREG1,0                 GET RIGHT HALF OF PSW    A27691 74860019     *          REPLACED*
               LASPPIO  BALR  WKREG1,0 -          GET RIGHT HALF OF PSW          **ASP 74860019     *       REPLACEMENT*
               .TBS140  BC    15,INTATT2          TO ATTENTION ROUTINE-EXITS      TBSE 82200019     *          REPLACED*
                        BC    15,INTATT -         TO ATTENTION ROUTINE           **ASP 82200019     *       REPLACEMENT*
IEB816I MEMBER NAME (IECXCP  ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0011


       ./       CHANGE  NAME=IECXTCH
                        ENTRY LASPTCH                                                  62000030     *          INSERTED*
               LASPTCH  B     LASPTCH1 -          BYPASS LASP TCH CODE                 62001030     *          INSERTED*
                        CLI   UCBTYP+1(UCBREG),4 -IS THIS A CTC DEVICE                 62002030     *          INSERTED*
                        BNE   LASPTCH1 -          NO,BRANCH                            62003030     *          INSERTED*
                        TM    UCBTYP+2(UCBREG),X'88' IS THIS A TAPE OR CONSOLE         62004030     *          INSERTED*
                        BM    XCPTCH3A -          YES SKIP TCH FOR LOCAL MAIN          62005030     *          INSERTED*
               LASPTCH1 EQU   *                                                        62006030     *          INSERTED*
IEB816I MEMBER NAME (IECXTCH ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0012


       ./       CHANGE  NAME=IEAQNU
                        TM    PIOPSW+1,X'01' .IS INTERRUPT IN SUPERVISORY CODE.        06380000     *          REPLACED*
                        TM    PIOPSW+1,X'F1' -    IS INTRUPT IN KEY 0 SUPRVSR STATE    06380000     *       REPLACEMENT*
                        L     XNPI1,AIORGSW       GET ADDR OF IOS SWITCH      @AA28026 06416021     *          INSERTED*
                        TM    1(XNPI1),X'F0'      I/O INTERRUPT ACTIVE        @AA28026 06417021     *          INSERTED*
                        BNZ   PLOGADR             YES GOTO ABTERM             @AA28026 06418021     *          INSERTED*
               AIORGSW  DC    A(IORGSW)           ADDRESS OF IOS SWITCH       @AA28026 06794621     *          INSERTED*
IEB816I MEMBER NAME (IEAQNU  ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.SV000.G14PREM.R0000073      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.G14PREM.S0000074      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G14PREM.S0000074      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /STEP2   / START 78240.1943
IEF374I STEP /STEP2   / STOP  78240.1943 CPU   0MIN 00.70SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 19:43:09.38   ALLOC START    19:43:09.39   MAIN REGION ----- 256K                          *
*   STEP NAME STEP2      STEP END TIME  19:43:10.21   PGM START TIME 19:43:09.45   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME PRE        ELAPSED TIME   00:00:00.83   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.70   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0250 ---------- 288       0250 ---------- 288       0159 ---------- 375       0130 ---------- 349                              *
************************************************************************************************************************************

++STEP3   EXEC PGM=IEBUPDTE
++SYSUT1   DD DSN=SYS1.&MODGEN2,DISP=SHR,UNIT=&DLUNIT,VOL=SER=&DLIB
IEF653I SUBSTITUTION JCL - DSN=SYS1.MODGEN2,DISP=SHR,UNIT=3330,VOL=SER=ASPDLB
++SYSUT2   DD DSN=SYS1.&MODGEN2,DISP=SHR,UNIT=&DLUNIT,VOL=SER=&DLIB
IEF653I SUBSTITUTION JCL - DSN=SYS1.MODGEN2,DISP=SHR,UNIT=3330,VOL=SER=ASPDLB
++SYSPRINT DD SYSOUT=&OUTCLAS
IEF653I SUBSTITUTION JCL - SYSOUT=A
***
//STEP3.SYSIN DD *
********************************************************************************
IEF236I ALLOC. FOR G14PREM  STEP3    PRE
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./       CHANGE  NAME=IEAANIP
                        LA    R6,CONSIN -         GET POINTER TO CONSOLE NAME     *ASP 07204030     *          INSERTED*
                        L     R15,CTCINIT -       GET ADDRESS OF CTC INIT ROUTINE *ASP 07205030     *          INSERTED*
                        BALR  R5,R15 -            GO TO CTC INIT ROUTINE          *ASP 07206030     *          INSERTED*
               CTCINIT  DC    V(CTCNMCS)                                          *ASP 07211030     *          INSERTED*
                        NI    UCBESTAT(CNR4),X'7F' MARK CONSOLE OFFLINE IN ADVANCE*ASP 08387130     *          INSERTED*
                        CLI   UCBTYP+1(CNR4),4 -  IS THIS A CTC DEVICE            *ASP 08387230     *          INSERTED*
                        BNE   NOTCTC -            NO,BRANCH                       *ASP 08387330     *          INSERTED*
                        TM    CONSWIT,NMCNSWIT -  IS THIS STILL MASTER CONS SEARCH*ASP 08387430     *          INSERTED*
                        BC    5,NOTMASTR -        NO,SKIP TIO OF CTC,LEAVE OFFLINE*ASP 08387530     *          INSERTED*
                        L     15,CTCINITM -       LOAD POINTER TO CTC INIT ROUTINE*ASP 08387630     *          INSERTED*
                        BALR  CNR5,15 -           GO TO CTC INIT ROUTINE          *ASP 08387730     *          INSERTED*
               NOTCTC   EQU   * -                                                 *ASP 08387830     *          INSERTED*
               NOTMASTR EQU   *                                                   *ASP 08394030     *          INSERTED*
               CTCINITM DC    V(CTCMCS)                                           *ASP 08492020     *          INSERTED*
                        CLI   UCBTYP+1(R9),4 -    IS THIS A CTC DEVICE           **ASP 12657020     *          INSERTED*
                        BE    CTCRDY -            YES,MARK IT READY              **ASP 12658020     *          INSERTED*
               CTCRDY   EQU   *                                                  **ASP 12685020     *          INSERTED*
               CTCRDY   EQU   *                                                  **ASP 12706020     *          INSERTED*
               ************************************************************** @AA30864 61992120     *          INSERTED*
               *  THE FOLLOWING CODE HAS BEEN ADDED FOR ASP TO CLEAR A        @AA30864 61992220     *          INSERTED*
               *  POSSIBLE BUSY CONDITION WHICH MAY OCCUR ON THE CTC WHILE    @AA30864 61992320     *          INSERTED*
               *  IPL'ING. IF NIP HAS INITIATED AN I/O OPERATION AND CSW      @AA30864 61992420     *          INSERTED*
               *  STATUS IS RETURNED INDICATING ATTENTION AND BUSY, A SENSE   @AA30864 61992520     *          INSERTED*
               *  COMMAND MUST BE ISSUED TO CLEAR THE CONDITION TO ALLOW      @AA30864 61992620     *          INSERTED*
               *  NIP TO COMPLETE ITS I/O OPERATION.                          @AA30864 61992720     *          INSERTED*
               ************************************************************** @AA30864 61992820     *          INSERTED*
                        CLI   CSWSTAT,X'90'       MAY BE CTC IF ATTN AND BUSY @AA30864 61992920     *          INSERTED*
                        BNE   CSWNOCTC            CONT- NOT ATTN AND BUSY     @AA30864 61993020     *          INSERTED*
                        L     R7,CAW              SAVE CURRENT CAW FOR RETRY  @AA30864 61993120     *          INSERTED*
                        MVC   CAW(4),IEASNCAW     SET CAW FOR SENSE OPERATION @AA30864 61993220     *          INSERTED*
                        SIO   0(10)               EXECUTE THE SENSE           @AA30864 61993320     *          INSERTED*
               SENSCTCS TIO   0(10)                                           @AA30864 61993420     *          INSERTED*
                        BC    3,SENSCTCS          WAIT FOR STATUS             @AA30864 61993520     *          INSERTED*
                        ST    R7,CAW              RESTORE CAW FOR ORIG I/O    @AA30864 61993620     *          INSERTED*
                        B     IEACON02            RESTART ORIGINAL I/O        @AA30864 61993720     *          INSERTED*
               CSWNOCTC DS    0H                  CONT HERE IF NOT ATTN/BUSY  @AA30864 61993820     *          INSERTED*
               ************************************************************** @AA30864 61993920     *          INSERTED*
IEB816I MEMBER NAME (IEAANIP ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.SV000.G14PREM.R0000075      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G14PREM.S0000076      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G14PREM.S0000076      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /STEP3   / START 78240.1943
IEF374I STEP /STEP3   / STOP  78240.1943 CPU   0MIN 00.52SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  004        STEP INIT TIME 19:43:10.24   ALLOC START    19:43:10.25   MAIN REGION ----- 256K                          *
*   STEP NAME STEP3      STEP END TIME  19:43:11.05   PGM START TIME 19:43:10.30   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME PRE        ELAPSED TIME   00:00:00.81   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.52   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0250 ---------- 339       0250 ---------- 339       0130 ----------- 42       0130 ----------- 39                              *
************************************************************************************************************************************

++STEP4   EXEC PGM=IEBCOPY,COND=(0,NE)
++SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,10)
++SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,10)
++GENLIB   DD DSN=SYS1.GENLIB,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
IEF653I SUBSTITUTION JCL - DSN=SYS1.GENLIB,UNIT=3330,DISP=SHR,VOL=SER=ASPDLB
++MODGEN   DD DSN=SYS1.MODGEN,UNIT=&DLUNIT,DISP=SHR,VOL=SER=&DLIB
IEF653I SUBSTITUTION JCL - DSN=SYS1.MODGEN,UNIT=3330,DISP=SHR,VOL=SER=ASPDLB
++MODGEN2  DD DSN=SYS1.&MODGEN2,DISP=SHR,UNIT=&DLUNIT,VOL=SER=&DLIB
IEF653I SUBSTITUTION JCL - DSN=SYS1.MODGEN2,DISP=SHR,UNIT=3330,VOL=SER=ASPDLB
++SYSPRINT DD SYSOUT=&OUTCLAS
IEF653I SUBSTITUTION JCL - SYSOUT=A
***
//STEP4.SYSIN  DD *
********************************************************************************
IEF236I ALLOC. FOR G14PREM  STEP4    PRE
IEF237I 353   ALLOCATED TO SYSUT3
IEF237I 158   ALLOCATED TO SYSUT4
IEF237I 250   ALLOCATED TO GENLIB
IEF237I 250   ALLOCATED TO MODGEN
IEF237I 250   ALLOCATED TO MODGEN2
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSIN


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


                     COPY I=GENLIB,O=GENLIB
IEB161I  COMPRESS TO BE DONE USING INDD NAMED GENLIB
IEB152I  SGIEA2TB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKF200 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKM400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  MACLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC3TP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFD500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  COBLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  EDIT     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SVCTABLE COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SYSUTILS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  TSOPTION COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC2DT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5PV COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5PI COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5PL COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE5LA COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ540 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2TC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  PL1LIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  GJOBCTL  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  ALGOL    COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CHANNEL  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHB200 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ2EB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  PL1      COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CUPOINT  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  ASSEMBLR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5DI COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ4EB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5EB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  PARTITNS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEX402 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE4DC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5EC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC300 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2CV COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIMA501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA3IL COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIMB401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  DCMLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  FORTLIB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  FORTRAN  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SECONSLE COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SUPRVSOR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ4EC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5EG COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE5PC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEM5C0 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5EH COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC2UC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0002


IEB152I  SGIKJ4EA COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5EA COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IMAGELIB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  UCS      COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEH501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFF523 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEM4T0 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF202 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ2LP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKD5TP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ2EF COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5EF COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEU401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  OUTPUT   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CMDLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  DATAMGT  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  HELP     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IOCHECK  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFC201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF2QM COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC3FB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CHECKER  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFC300 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  ALGLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CKPTREST COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  GRAPHICS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  LINKLIB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  PARMLIB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  PROCLIB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  PTOP     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  RESMODS  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  RPG      COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2ST COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2SV COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2TR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA3IS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF241 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEH201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK205 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEP200 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEP400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIER201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW250 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW300 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEX201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEY201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKF400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGLEDPK2 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SORTLIB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SORTMERG COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  TELCMLIB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE2X1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFF3RN COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0003


IEB152I  SGIKA201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2TA COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2WP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEP500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIER401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIES401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEX401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEX501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEY401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHG500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHI401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHI501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHK401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHK402 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHK501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIPD400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHK400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHK500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKM500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE5PB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKF500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKF501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKA501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW550 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEP501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIPD500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIGF200 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  EMULATOR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK502 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIER501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CONVERT  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEM2A0 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKA401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  UADS     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ4IE COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ5IE COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW450 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ4EH COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ4EG COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE4X1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ4EF COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2AT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2MS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFF5LS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC519 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CENPROCS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK405 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK406 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  COBOL    COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF442 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFD400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0004


IEB152I  SGIEF212 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SVCLIB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  TSGEN100 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIGF300 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  LOADER   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SECMODS  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEH401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE301 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF444 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC520 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIGG501 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIMA402 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2BK COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA3IC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA5SU COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGRELLEV COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC2GR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFF2BM COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  EDITOR   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SCHEDULR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIGF400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF441 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF443 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGPAK96  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  GENTSO   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5PS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIMA401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKJ445 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CTRLPROG COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  UNITNAME COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHG400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGPAK248 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF211 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEH402 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC4UC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5DM COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHJ500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC2PT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC513 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2SU COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5IS COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE2DC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEI2SV COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE201 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFC400 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC500 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEC5TP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IOCONTRL COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGGEN100 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2NU COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGASMPAK COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0005


IEB152I  SGLEDPK1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  TSASMPAK COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  GENERATE COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK401 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFC600 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEA2NP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  JOBSEP   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY GENLIB   -
IEB154I  ALGLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  ALGOL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  ASSEMBLR HAS BEEN SUCCESSFULLY COPIED
IEB154I  CENPROCS HAS BEEN SUCCESSFULLY COPIED
IEB154I  CHANNEL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CHECKER  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CKPTREST HAS BEEN SUCCESSFULLY COPIED
IEB154I  CMDLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  COBLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  COBOL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CONVERT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CTRLPROG HAS BEEN SUCCESSFULLY COPIED
IEB154I  CUPOINT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  DATAMGT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  DCMLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  EDIT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  EDITOR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  EMULATOR HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTLIB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTRAN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  GENERATE HAS BEEN SUCCESSFULLY COPIED
IEB154I  GENTSO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  GJOBCTL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  GRAPHICS HAS BEEN SUCCESSFULLY COPIED
IEB154I  HELP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMAGELIB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IOCHECK  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IOCONTRL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IODEVICE HAS BEEN SUCCESSFULLY COPIED
IEB154I  JOBSEP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  LINKLIB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOADER   HAS BEEN SUCCESSFULLY COPIED
IEB154I  MACLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  OUTPUT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PARMLIB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  PARTITNS HAS BEEN SUCCESSFULLY COPIED
IEB154I  PL1      HAS BEEN SUCCESSFULLY COPIED
IEB154I  PL1LIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PROCLIB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  PTOP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  RESMODS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  RPG      HAS BEEN SUCCESSFULLY COPIED
IEB154I  SCHEDULR HAS BEEN SUCCESSFULLY COPIED
IEB154I  SECMODS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SECONSLE HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0006


IEB154I  SGASMPAK HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGGBLPAK HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGGEN100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2AT HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2BK HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2CV HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2MS HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2NP HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2NU HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2ST HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2SU HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2SV HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2TA HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2TB HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2TC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2TR HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA2WP HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA3IC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA3IL HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA3IS HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEA5SU HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC2DT HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC2GR HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC2PT HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC2UC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC202 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC3FB HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC3TP HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC4UC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5DI HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5DM HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5IS HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5PI HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5PL HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5PS HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5PV HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC5TP HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC513 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC519 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC520 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE2DC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE301 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE4DC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF2QM HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF202 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF211 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF212 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF241 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF441 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0007


IEB154I  SGIEF442 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF443 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF444 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEH201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEH401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEH402 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEH501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEI2SV HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK205 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK405 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK406 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK502 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEM2A0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEM4T0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEM5C0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEP200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEP400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEP500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEP501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIER201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIER401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIER501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIES401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEU401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW250 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW450 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW550 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEX201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEX401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEX402 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEX501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEY201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEY401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFC201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFC300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFC400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFC600 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFD400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFD500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFF2BM HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFF3RN HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFF5LS HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFF523 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIGF200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIGF300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIGF400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIGG501 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0008


IEB154I  SGIHB200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE2X1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE4X1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE5LA HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE5PB HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE5PC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHG400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHG500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHI401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHI501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHJ500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHK400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHK401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHK402 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHK500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHK501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKA201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKA401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKA501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKD5TP HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKF200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKF400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKF500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKF501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ2EB HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ2EF HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ2LP HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4EA HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4EB HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4EC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4EF HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4EG HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4EH HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ4IE HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ445 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5EA HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5EB HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5EC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5EF HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5EG HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5EH HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ5IE HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKJ540 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKM400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKM500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIMA401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIMA402 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIMA501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIMB401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIPD400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIPD500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGLEDPK1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGLEDPK2 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0009


IEB154I  SGPAK248 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGPAK96  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGRELLEV HAS BEEN SUCCESSFULLY COPIED
IEB154I  SORTLIB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SORTMERG HAS BEEN SUCCESSFULLY COPIED
IEB154I  SUPRVSOR HAS BEEN SUCCESSFULLY COPIED
IEB154I  SVCLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  SVCTABLE HAS BEEN SUCCESSFULLY COPIED
IEB154I  SYSUTILS HAS BEEN SUCCESSFULLY COPIED
IEB154I  TELCMLIB HAS BEEN SUCCESSFULLY COPIED
IEB154I  TSASMPAK HAS BEEN SUCCESSFULLY COPIED
IEB154I  TSGEN100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  TSOPTION HAS BEEN SUCCESSFULLY COPIED
IEB154I  UADS     HAS BEEN SUCCESSFULLY COPIED
IEB154I  UCS      HAS BEEN SUCCESSFULLY COPIED
IEB154I  UNITNAME HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000040 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY GENLIB
IEB149I  THERE ARE 0000005  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0010


                     COPY I=MODGEN,O=MODGEN
IEB161I  COMPRESS TO BE DONE USING INDD NAMED MODGEN
IEB152I  SGIEC0UC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECVMUG COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECSDSL1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IKJTJBX  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIKF000 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECAWR  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEACVTPC COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEAQFX   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEAQCH   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBCOB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECULK2  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IKJTSCVT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFTIOT1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IKJRB    COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE0VR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFASCTB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFAJCTB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEEXSA   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEZJSCB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CMT      COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECIUCBA COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECHAIN COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEEGMSLT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IGFINIT  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBDMPA  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SCVT     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SCBDUMP  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEEBASEA COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHLMHOOK COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  HOOK     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK006 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFQMRES COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECGBL   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE0X1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE0X6 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE011 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECICT   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IOSGNIP  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFJFCBX COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBROCTL COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFSD033 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEEBASEB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECIDT   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFSGNOP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF002 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFC000 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  DARMAC   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECILCT  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECIST   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECLNK1  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECULK3  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0011


IEB152I  IEECHATR COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFACOMM COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFVTIOT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBTSCE  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBXLE   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBXLENT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBXLIN  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBXLOUT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBXLTAB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  MGCR     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  MPCVT    COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  MPFX     COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEE001 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF001 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF010 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF011 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF012 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF013 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF015 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF060 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK005 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEP000 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIER001 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEW050 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEX001 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEY001 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE0X2 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE0X3 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE0X4 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIHE0X5 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFSD032 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEZBITS  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIFF0BT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEF0QM COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IKJTCB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SGIEK001 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  CVT      COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFJFCBN COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEFUCBOB COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEAQTR   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEATRC   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IGFCATAP COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IHBABCTL COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEAQBK   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEATCB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECBJH  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECEJM  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECGCB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECRJK  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IEECSUB  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IKJTJB   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECULK1  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  IECICS   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0012


IEB152I  IECIOQE  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY MODGEN   -
IEB154I  CMT      HAS BEEN SUCCESSFULLY COPIED
IEB154I  CVT      HAS BEEN SUCCESSFULLY COPIED
IEB154I  DARMAC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  HOOK     HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAAIH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAAMS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAAPS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAAPT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAATA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAATC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAAWT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEACVTPC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQAT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQBK   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQCH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQET   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQFX   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQGM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQNU   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQPR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAQTR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEATCB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEATRC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECCTC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECDSECT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECGBL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECICS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECICT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIDT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECILCT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECINT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIOQE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIOS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIOSB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIST   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIUCB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECIUCBA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECLNK1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECSDSL1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECSSDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECTBL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECULK1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECULK2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECULK3  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECXCP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECXTCH  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEC23XXF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEEBASEA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEEBASEB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECAWR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECBJH  HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0013


IEB154I  IEECEJM  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECGCB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECHAIN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECHATR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECHCB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECRDCM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECRJK  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECSUB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECUCM  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEECVMUG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEEGMSLT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEEXSA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFACOMM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFAJCTB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFASCTB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFJFCBN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFJFCBX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFQMRES HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFSD032 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFSD033 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFSGNOP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFTIOT1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFUCBOB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFVTIOT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEZBITS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEZJSCB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFBSRLOG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGFCATAP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGFINIT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBABCTL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBCOB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBDMPA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBRELNO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBROCTL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBTSCE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBXLE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBXLENT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBXLIN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBXLOUT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBXLTAB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLMHOOK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJRB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTCB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTJB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTJBX  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTSCVT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IORMSCOM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IOSGNIP  HAS BEEN SUCCESSFULLY COPIED
IEB154I  MGCR     HAS BEEN SUCCESSFULLY COPIED
IEB154I  MPCVT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  MPFX     HAS BEEN SUCCESSFULLY COPIED
IEB154I  MVT804A  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SCBDUMP  HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0014


IEB154I  SCVT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC0DT HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEC0UC HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE0VR HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE0VV HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE00V HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEE011 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF0QM HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF002 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF010 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF011 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF012 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF013 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF015 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEF060 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK005 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEK006 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEP000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIER001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEW050 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEX001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIEY001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFC000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIFF0BT HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHB000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE0X1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE0X2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE0X3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE0X4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE0X5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIHE0X6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SGIKF000 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000104 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY MODGEN
IEB149I  THERE ARE 0000015  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0015


                     COPY I=MODGEN2,O=MODGEN2
IEB161I  COMPRESS TO BE DONE USING INDD NAMED MODGEN2
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY MODGEN2  -
IEB154I  IEAANIP  HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000132 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY MODGEN2
IEB149I  THERE ARE 0000004  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.RV000.G14PREM.R0000077      DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G14PREM.R0000078      DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.GENLIB                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.SV000.G14PREM.R0000079      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G14PREM.S0000080      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G14PREM.S0000080      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /STEP4   / START 78240.1943
IEF374I STEP /STEP4   / STOP  78240.1943 CPU   0MIN 02.05SEC MAIN 254K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  005        STEP INIT TIME 19:43:11.08   ALLOC START    19:43:11.09   MAIN REGION ----- 256K                          *
*   STEP NAME STEP4      STEP END TIME  19:43:14.40   PGM START TIME 19:43:11.17   MAIN STORAGE ---- 254K    CONDITION CODE 0000   *
*   PSTP NAME PRE        ELAPSED TIME   00:00:03.32   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBCOPY    STEP CPU TIME  00:00:02.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0353 ------------ 0       0158 ------------ 0       0250 --------- 2920       0250 --------- 8423       0250 --------- 2067    *
*   0353 ---------- 714       0130 ------------ 5                                                                                  *
************************************************************************************************************************************

++STEP5   EXEC PGM=IEWL,PARM='NCAL,LIST,LET,XREF'
++SYSPRINT DD SYSOUT=&OUTCLAS
IEF653I SUBSTITUTION JCL - SYSOUT=A
++SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(TRK,(20,10))
++SYSLMOD  DD DSN=SYS1.ASP,DISP=(,KEEP),UNIT=&DAUNIT,VOL=SER=&ASPVOL,
IEF653I SUBSTITUTION JCL - DSN=SYS1.ASP,DISP=(,KEEP),UNIT=3330,VOL=SER=ASPDLB,
++ SPACE=(3625,(4,4,1))
++SYSLIN   DD DDNAME=SYSIN
//STEP5.OBJ320 DD DISP=SHR,DSN=ASP.OBJ320,UNIT=SYSDA,VOL=SER=ASPSUP
//STEP5.SYSIN DD *
//
IEF236I ALLOC. FOR G14PREM  STEP5    PRE
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 250   ALLOCATED TO SYSLMOD
IEF237I 130   ALLOCATED TO SYSLIN
IEF237I 151   ALLOCATED TO OBJ320


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,LET,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE OBJ320(MVTSVC)
IEW0000             NAME  ASPSVC(R)
IEW0461  CTCMUCB
IEW0461  ATNTAB
IEW0461  CTCATN
IEW0461  CTCMONSW
IEW0461  IEASCSAV
IEW0461  IEAQTR00
IEW0461  IBMORG
IEW0461  USERORG
IEW0461  LOWUSER
IEW0461  IEATYPE1
IEW0461  LASPTCH


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC246        00     478
                                        CTCMCS       2BA    CTCNMCS      2D2
  MTVT         478      54



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      430            MTVT            MTVT                         488            CTCMUCB        $UNRESOLVED
      48C            ATNTAB         $UNRESOLVED                   490            CTCATN         $UNRESOLVED
      494            CTCMONSW       $UNRESOLVED                   498            IEASCSAV       $UNRESOLVED
      49C            IEAQTR00       $UNRESOLVED                   4A0            IBMORG         $UNRESOLVED
      4A4            USERORG        $UNRESOLVED                   4A8            LOWUSER        $UNRESOLVED
      4AC            IEATYPE1       $UNRESOLVED                   4BC            LASPTCH        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       4D0

****ASPSVC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.




IEF142I - STEP WAS EXECUTED - COND CODE 0004
IEF285I   SYS78240.T193835.SV000.G14PREM.R0000081      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G14PREM.SYSUT1        DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.ASP                                     KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.G14PREM.S0000082      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G14PREM.S0000082      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   ASP.OBJ320                                   KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /STEP5   / START 78240.1943
IEF374I STEP /STEP5   / STOP  78240.1943 CPU   0MIN 00.06SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  006        STEP INIT TIME 19:43:14.43   ALLOC START    19:43:14.44   MAIN REGION ----- 256K                          *
*   STEP NAME STEP5      STEP END TIME  19:43:14.61   PGM START TIME 19:43:14.52   MAIN STORAGE ---- 130K    CONDITION CODE 0004   *
*   PSTP NAME PRE        ELAPSED TIME   00:00:00.18   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0353 ----------- 43       0158 ------------ 0       0250 ------------ 8       0130 ------------ 3       0151 ------------ 2    *
************************************************************************************************************************************

IEF375I  JOB /G14PREM / START 78240.1943
IEF376I  JOB /G14PREM / STOP  78240.1943 CPU   0MIN 05.67SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G14PREM    JOB READ TIME 19:43:05.32   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:05.67   *
*   JOB CLASS A          JOB INIT TIME 19:43:05.83   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:08.80   *
*   ACCOUNT   1          JOB END TIME  19:43:14.63   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG        1     555555555   SSSSSSS   TTTTTTTT    GGGGGGG   EEEEEEEEE       1                    A
            GGGGGGGGG      11     555555555  SSSSSSSSS  TTTTTTTT   GGGGGGGGG  EEEEEEEEE      11                   AAA
            GG     GG     111     55         SS     SS     TT      GG     GG  EE            111                  AA AA
            GG             11     55555555   SS            TT      GG         EE             11                 AA   AA
            GG             11     555555555  SSSSSSSS      TT      GG         EEEEEE         11                AA     AA
            GG   GGGG      11            55   SSSSSSSS     TT      GG   GGGG  EEEEEE         11                AA     AA
            GG   GGGG      11            55         SS     TT      GG   GGGG  EE             11                AAAAAAAAA
            GG     GG      11     55     55  SS     SS     TT      GG     GG  EE             11                AAAAAAAAA
            GGGGGGGGG    111111   555555555  SSSSSSSSS     TT      GGGGGGGGG  EEEEEEEEE    111111              AA     AA
             GGGGGGG     111111    5555555    SSSSSSS      TT       GGGGGGG   EEEEEEEEE    111111              AA     AA

***********A  START   G15STGE1   SYS SYSA   WTR 00E   07:44:08 PM  28 AUG 1978   WTR 00E   SYS SYSA   G15STGE1   START  A***********
***********A  START   G15STGE1   SYS SYSA   WTR 00E   07:44:08 PM  28 AUG 1978   WTR 00E   SYS SYSA   G15STGE1   START  A***********
***********A  START   G15STGE1   SYS SYSA   WTR 00E   07:44:08 PM  28 AUG 1978   WTR 00E   SYS SYSA   G15STGE1   START  A***********
***********A  START   G15STGE1   SYS SYSA   WTR 00E   07:44:08 PM  28 AUG 1978   WTR 00E   SYS SYSA   G15STGE1   START  A***********
***********A  START   G15STGE1   SYS SYSA   WTR 00E   07:44:08 PM  28 AUG 1978   WTR 00E   SYS SYSA   G15STGE1   START  A***********


//G15STGE1 JOB 1,'G15STAGE1',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
***********************************************************************
***                                                                 ***
***    Job:      G15STAGE1                                          ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Run SYSGEN stage 1.                                ***
***    Update:   2006/08/25                                         ***
***                                                                 ***
***    Changes:  2006/08/25 Enabled SMARTNIP.                       ***
***              2006/08/04 Changed 1052 CTCs 03F-05F to 2400s      ***
***                         on channel 6.                           ***
***              2006/07/09 Added printers 11E and 11F              ***
***              2006/07/06 Moved tape CTCs to 660-68F              ***
***              2006/07/06 Added 1052 CTC at 03F, 04F, 05F         ***
***              2006/06/25 Changed CTC console from 020 to 02F     ***
***                                                                 ***
***********************************************************************
***
***  Consoles:
***
***  ! CUA ! Devt ! Type                  ! Alternate   !
***  !-----+------+-----------------------+-------------!
***  ! 010 ! 3158 ! OS Master             ! 02F         !
***  ! 02F ! CTC  ! OS Secons             ! 010         !
***  ! 009 ! 3215 ! OS Secons             ! 01F         !
***  ! 01F ! 3215 ! OS Secons/ASP Console ! 009         !
***  ! 30E ! 1403 ! OS Secons/Hardcopy    ! 010         !
***  ! 014 ! 3277 ! ASP Console           ! 01F         !
***  ! 30F ! 1403 ! ASP MLOG              ! 01F         !
***
***
***  Printers (UCS):
***
***  !      ! Channel 0 ! Channel 1 ! Channel 2 ! Channel 3 !
***  ! Devt ! Cua - Cua ! Cua - Cua ! Cua - Cua ! Cua - Cua !
***  !------+-----------+-----------+-----------+-----------!
***  ! 1403 ! 00E - 00F ! 10E - 10F !           ! 30E - 30F !
***  ! 3211 !           ! 102 - 103 !           !           !
***
***
***  Printers (Non-UCS):
***
***  !      ! Channel 0 ! Channel 1 ! Channel 2 ! Channel 3 !
***  ! Devt ! Cua - Cua ! Cua - Cua ! Cua - Cua ! Cua - Cua !
***  !------+-----------+-----------+-----------+-----------!
***  ! 1403 !           ! 11E - 11F !           !           !
***
***
***  Card Readers/Punches:
***
***  !      ! Channel 0 ! Channel 1 ! Channel 2 ! Channel 3 !
***  ! Devt ! Cua - Cua ! Cua - Cua ! Cua - Cua ! Cua - Cua !
***  !------+-----------+-----------+-----------+-----------!
***  ! 2540R! 00C       ! 10C       !           !           !
***  ! 2540P! 00D       ! 10D       !           !           !
***
***
***  Display Terminals (including display consoles)
***
***  !      ! Channel 0 ! Channel 1 ! Channel 2 ! Channel 3 !
***  ! Devt ! Cua - Cua ! Cua - Cua ! Cua - Cua ! Cua - Cua !
***  !------+-----------+-----------+-----------+-----------!
***  ! 3158 ! 010       !           !           !           !
***  ! 3270 ! 011       !           !           !           !
***  ! 3270 ! 014       !           !           !           !
***  ! 3270 ! 0C0 - 0CF !           !           ! 3C0 - 3CF !
***
***
***  DASD devices
***
***  !      ! Channel 0 ! Channel 1 ! Channel 2 ! Channel 3 !
***  ! Devt ! Cua - Cua ! Cua - Cua ! Cua - Cua ! Cua - Cua !
***  !------+-----------+-----------+-----------+-----------!
***  ! 2311 !           ! 120 - 137 !           !           !
***  ! 2314 !           ! 130 - 137 ! 230 - 237 ! 330 - 337 !
***  ! 3330 !           ! 150 - 15F ! 250 - 25F ! 350 - 35F !
***
***
***  Tape devices
***
***  !      ! Channel 5 !
***  ! Devt ! Cua - Cua !
***  !------+-----------+
***  ! 3420 ! 580 - 58F !
***
***
***  ASP 1052 CTC
***
***  !      ! Channel 0 !
***  ! Devt ! Cua - Cua !
***  !------+-----------!
***  ! 1052 ! 02F       !
***
***
***  ASP 2400 CTCs
***
***  !      ! Channel 6 !
***  ! Devt ! Cua - Cua !
***  !------+-----------!
***  ! 2401 ! 63F       !
***  ! 2401 ! 64F       !
***  ! 2401 ! 65F       !
***  ! 2401 ! 660 - 66F !
***  ! 2401 ! 670 - 67F !
***  ! 2401 ! 680 - 68F !
***
***
***  BSC devices
***
***  !      ! Channel 0 !
***  ! Devt ! Cua - Cua !
***  !------+-----------!
***  ! BSC1 ! 090 - 097 !
***  ! BSC2 ! 0A0 - 0A7 !
***  ! BSC3 ! 0B0 - 0B7 !
***
***
***  HASP pseudodevices
***
***  !      ! Channel 7 !
***  ! Devt ! Cua - Cua !
***  !------+-----------!
***  ! 2540R! 700 - 71F !
***  ! 1403 ! 720 - 767 !
***  ! 2540P! 770 - 77F !
***  ! 2520 ! 780 - 78F !
***
***********************************************************************
***
//STAGE1   EXEC PGM=IEUASM,PARM='LIST,NOLOAD,DECK,NOXREF',REGION=256K
//SYSPRINT DD  SYSOUT=A
***SYSLIB   DD  DSN=SYS1.ASPMOD,UNIT=3330,VOL=SER=ASPDLB,DISP=SHR
//SYSLIB    DD  DSN=SYS1.GENLIB,UNIT=3330,VOL=SER=ASPDLB,DISP=SHR
***SYSPUNCH DD  DUMMY,DCB=BLKSIZE=80
//SYSPUNCH DD  UNIT=00D,DCB=BLKSIZE=80
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(35,10)) ,VOL=SER=WORK01
//SYSUT2   DD  UNIT=SYSDA,SPACE=(CYL,(35,10)) ,VOL=SER=WORK02
//SYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,(50,10)) ,VOL=SER=WORK02
//SYSIN    DD  *
//
IEF236I ALLOC. FOR G15STGE1 STAGE1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 00D   ALLOCATED TO SYSPUNCH
IEF237I 159   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSUT3
IEF237I 130   ALLOCATED TO SYSIN


R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      2 *====================================================================*
                                      3 *                                                                    *
                                      4 *        Include sysgen globals.                                     *
                                      5 *                                                                    *
                                      6 *====================================================================*
                                      7           PRINT OFF

                                     93 *====================================================================*
                                     94 *                                                                    *
                                     95 *        Set override to permit generation of up to 768              *
                                     96 *        I/O devices.                                                *
                                     97 *                                                                    *
                                     98 *====================================================================*
                                     99 *&LIMIT(1) SETB 1                           Allow 248 devices
                                    100 &LIMIT(3) SETB  1                          Allow 768 devices
                                    101 *&SGMENTB(16) SETB 1                        Set diagnostic override

                                    103 *====================================================================*
                                    104 *                                                                    *
                                    105 *        Set flag to generate "TYPRUN=HOLD" on stage 2               *
                                    106 *        JOB cards.                                                  *
                                    107 *                                                                    *
                                    108 *====================================================================*
                                    109 *&SGHOLDB SETB  1                          Set hold flag

                                    111 *====================================================================*
                                    112 *                                                                    *
                                    113 *        Enable DEVSTAT option (SMARTNIP).  Note that usermod        *
                                    114 *        TMVT801 modifies NIP to restrict DEVSTAT processing         *
                                    115 *        to DASD and real tape devices.                              *
                                    116 *                                                                    *
                                    117 *====================================================================*
                                    118 &SGMENTB(87) SETB  1                       Set SMARTNIP flag
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    120 *====================================================================*
                                    121 *                                                                    *
                                    122 *        Control program.                                            *
                                    123 *                                                                    *
                                    124 *====================================================================*

                                    126     CTRLPROG   TYPE=MVT,                   MVT system                  +
                                                       ADDTRAN=15,                 Additional transient areas  +
                                                       FETCH=PCI,                  PCI program fetch           +
                                                       HIARCHY=EXCLUDE,            No storage hierarchies      +
                                                       MAXIO=10,                   Max concurrent I/Os         +
                                                       OPTIONS=(SERVAID),          Include service aids        +
                                                       OVERLAY=ASYCHRON,           Asynch overlay supervisor   +
                                                       QSPACE=24,                  SQA size in 2K blocks       +
                                                       WARN=0                      No power warning feature
                                    127                *,      UP TO 10 SIMULTANEOUS INPUT-OUTPUT REQUESTS
                                    128                *,      MULTIPROGRAMMING WITH A VARIABLE NUMBER OF TASKS
                                    129                *,      PCI FETCH IS REQUESTED
                                    130                *,      ASYCHRON OVERLAY IS REQUESTED
                                    131                *,      15 ADDITIONAL PAIRS OF TRANSIENT AREAS
                                    132                *,      24 2K BLOCKS REQUESTED FOR SYSTEM QUEUE SPACE
                                    133                *,      SERVICE AID PROGRAMS WILL BE INCLUDED
                                    134                *,      NO HIERARCHY STRUCTURE HAS BEEN REQUESTED
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    136 *====================================================================*
                                    137 *                                                                    *
                                    138 *        Central processor.                                          *
                                    139 *                                                                    *
                                    140 *====================================================================*

                                    142     CENPROCS   MODEL=158,                  CPU model                   +
                                                       FEATURE=PROTECT,            Storage protection          +
                                                       INSTSET=UNIV                Universal instruction set
                                    143                *,     MODEL 158
                                    144                *,     UNIV INSTRUCTION SET
                                    145                *,     FOLLOWING FEATURES SPECIFIED
                                    146                *,        STORAGE PROTECTION
                                    147                *,     FOLLOWING FEATURES STANDARD ON MODEL 158
                                    148                *,        DIRECT CONTROL
                                    149                *,        STORAGE PROTECTION
                                    150                *,        INTERVAL TIMER
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    152 *====================================================================*
                                    153 *                                                                    *
                                    154 *        Supervisor.                                                 *
                                    155 *                                                                    *
                                    156 *====================================================================*

                                    158     SUPRVSOR   ASCII=INCTRAN,              ASCII translation           +
                                                       OPTIONS=(APR,               Alternate path retry        +
                                                       CCH,                        Channel check handler       +
                                                       COMM,                       Issue msgIEA101A at IPL     +
                                                       DDR,                        Dynamic device reconfig     +
                                                       IDENTIFY,                   Include IDENTIFY            +
                                                       ONLNTEST,                   Include OLTEP               +
                                                       PROTECT,                    Storage protection          +
                                                       RER,                        Tape reduced error recovery +
                                                       TRSVCTBL),                  Resident SVC TTR table      +
                                                       RESIDNT=(ATTACH,            ATTACH is resident          +
                                                       RENTCODE,                   Modules can be resident     +
                                                       TRSVC),                     T3/4 SVCs can be resident   +
                                                       SER=MCH,                    Hardware error recovery     +
                                                       TIMER=JOBSTEP,              All timing functions        +
                                                       TRACE=200,                  Trace table size            +
                                                       USERERR=YES,                User error exits            +
                                                       WAIT=MULTIPLE               Multiple event wait
                                    159                *,     SUPERVISOR OPTION(S)
                                    160                *,       ALTERNATE PATH RETRY
                                    161                *,       CHANNEL CHECK HANDLER
                                    162                *,       COMMUNICATION
                                    163                *,       DYNAMIC DEVICE RECONFIGURATION
                                    164                *,        IDENTIFY
                                    165                *,       ON-LINE TESTING
                                    166                *,       STORAGE PROTECTION
                                    167                *,       EXTRA VALIDITY CHECKING
                                    168                *,       REDUCED TAPE ERROR RECOVERY
                                    169                *,        TRANSIENT SVC TABLE
                                    170                *,     SUPERVISOR FUNCTIONS TO BE ALWAYS RESIDENT
                                    171                *,         ATTACH
                                    172                *,         RENTCODE
                                    173                *,         TRSVC
                                    174                *,       MACHINE CHECK HANDLER RECOVERY REQUESTED
                                    175                *,     MULTIPLE EVENT WAIT REQUESTED
                                    176                *,      'JOBSTEP TIMING' FUNCTION REQUESTED
                                    177                *,     THERE WILL BE A TRACE TABLE WITH 200 ENTRIES
                                    178                *,     THE USER ASYNCHRONOUS ERROR EXITS OPTION IS INCLUX
                                                       DED
                                    179                *,       THE ASCII TRANSLATE SVC IS INCLUDED TRANSIENT.
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    181 *====================================================================*
                                    182 *                                                                    *
                                    183 *        Job scheduler                                               *
                                    184 *                                                                    *
                                    185 *====================================================================*

                                    187     SCHEDULR   TYPE=MVT,                   MVT system                  +
                                                       ACCTRTN=SMF,                Include SMF                 +
                                                       ALTCONS=02F,                Master console's alternate  +
                                                       CONOPTS=(MCS,EXIT),         Multiple Console Support    +
                                                       CONSOLE=010,                Master console address      +
                                                       ESV=NO,                     No volume error statistics  +
                                                       EVA=NO,                     No error volume analysis    +
                                                       HARDCPY=(30E,ALL,CMDS),     Hardcopy log options        +
                                                       INITQBF=10,                 Buffers for SYSJOBQE tracks +
                                                       JOBQFMT=12,                 Job queue logical track size+
                                                       JOBQLMT=650,                Reserved job queue records  +
                                                       JOBQTMT=60,                 Reserved job queue records  +
                                                       JOBQWTP=10,                 WTP job queue records       +
                                                       MINPART=68,                 Minimum partition size      +
                                                       OPTIONS=(LOG,               Include system log          +
                                                       RJE,                        Include RJE                 +
                                                       CRJE,                       Include CRJE                +
                                                       TSO),                       Include TSO                 +
                                                       PFK=12,                     PF keys for master console  +
                                                       REPLY=30,                   Number of reply elements    +
                                                       ROUTCDE=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16),       +
                                                       STARTI=AUTO,                Start initiator at IPL      +
                                                       SUBMITQ=50,                 JOBQ tracks for FIB jobs    +
                                                       WTLBFRS=10,                 Write-to-log buffers        +
                                                       WTLCLSS=L,                  Write-to-log output class   +
                                                       WTOBFRS=150                 WTO buffers
                                    188                *,       THE MVT SCHEDULR IS INCLUDED
                                    189                *,      7 TRACK TAPE DENSITY IS 800 BPI
                                    190                *,       MULTIPLE CONSOLE SUPPORT WILL BE INCLUDED
                                    191                *,        IN THE GENERATED SYSTEM
                                    192                *,       CONTROL WILL BE EXITED BEFORE THE ROUTING
                                    193                *,        OF WTOR MESSAGES
                                    194                *,       HARD COPY LOG WILL BE IN THE SYSTEM
                                    195                *,       OUTPUT DEVICE 30E TO BE HARD COPY LOG
                                    196                *,       ALL WTOR MESSAGES WILL BE PRINTED ON THE
                                    197                *,        HARD COPY LOG
                                    198                *,       COMMANDS AND RESPONSES WILL BE PRINTED ON
                                    199                *,        THE HARD COPY LOG
                                    200                *,       CONSOLE ADDRESS 010
                                    201                *,       ALTCONS ADDRESS 02F
                                    202                *,       SMF ACCOUNTING SUPPORT IS PROVIDED
                                    203                *,       MAXIMUM NUMBER OF OUTSTANDING REPLY REQUESTS
                                    204                *,        IS 30
                                    205                *,       MAXIMUM NUMBER OF BUFFERS FOR WTO MESSAGES
                                    206                *,        IS 150
                                    207                *,       START INITIATOR COMMAND TO BE EXECUTED AUTOMATIX
                                                       CALLY
                                    208                *,       DEFAULT CLASSNAME FOR SYSTEM LOG SYSOUT IS L
                                    209                *,       NUMBER OF RECORDS PER LOGICAL TRACK FOR JOB
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    210                *,        QUEUE IS 12
                                    211                *,       MAXIMUM NUMBER OF RECORDS FOR WRITE TO
                                    212                *,        PROGRAMMER IS 10
                                    213                *,       THRESHOLD VALUE FOR JOBQUE OVERFLOW IS 650
                                    214                *,       NUMBER OF RECORDS RESERVED FOR JOB TERMINATION
                                    215                *,        IS 60
                                    216                *,       NUMBER OF 1K BLOCKS TO BE USED AS BUFFERS FOR
                                    217                *,        JOB QUEUE IS 10
                                    218                *,     NUMBER OF 1K BLOCKS REQUIRED TO INITIATE A
                                    219                *,        JOB IS 68
                                    220                *,       SCHEDULR OPTIONS AVAILABLE--
                                    221                *,           LOG FUNCTION IN SYSTEM
                                    222                *,            REMOTE JOB ENTRY
                                    223                *,           CONVERSATIONAL REMOTE JOB ENTRY
                                    224                *,       TIME SHARING OPTION
                                    225                *,  MAXIMUM NO. OF TRACKS FOR 'FIB' JOBS IS 50
                                    226                *,       MAXIMUM NUMBER OF BUFFERS FOR WRITE TO LOG
                                    227                *,        MESSAGES IS 10
                                    228                *,       ROUTING CODES ASSIGNED TO MASTER CONSOLE ARE--
                                    229                *,             1
                                    230                *,             2
                                    231                *,             3
                                    232                *,             4
                                    233                *,             5
                                    234                *,             6
                                    235                *,             7
                                    236                *,             8
                                    237                *,             9
                                    238                *,             10
                                    239                *,             11
                                    240                *,             12
                                    241                *,             13
                                    242                *,             14
                                    243                *,             15
                                    244                *,             16
                                    245                *,       MASTER CONSOLE WILL RECEIVE ALL WTOR MESSAGES
                                    246                *,        NOT ASSIGNED ANY ROUTING CODE
                                    247                *,       ERROR STATISTICS BY VOLUME SPECIFIED IS NO
                                    248                *,       MASTER CONSOLE WILL HAVE 12 PROGRAM
                                    249                *,        FUNCTION KEYS
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    251 *====================================================================*
                                    252 *                                                                    *
                                    253 *        Secondary console definitions.                              *
                                    254 *                                                                    *
                                    255 *====================================================================*

                                    257     SECONSLE   CONSOLE=02F,ALTCONS=010,ROUTCDE=ALL,VALDCMD=(1,2,3)
                                    258                *,      CONSOLE ADDRESS 02F
                                    259                *,      ALTCONS ADDRESS 010
                                    260                *,      ALL ROUTING CODES ARE ASSIGNED TO THIS CONSOLE
                                    261                *,      COMMAND CODES ASSIGNED TO THIS CONSOLE ARE--
                                    262                *,         1
                                    263                *,         2
                                    264                *,         3
                                    265     SECONSLE   CONSOLE=011,                                            +
                                                       ALTCONS=010,                                            +
                                                       ROUTCDE=ALL,                                            +
                                                       VALDCMD=(1,2,3),                                        +
                                                       PFK=12,                                                 +
                                                       USE=FC
                                    266                *,      CONSOLE ADDRESS 011
                                    267                *,      ALTCONS ADDRESS 010
                                    268                *,      ALL ROUTING CODES ARE ASSIGNED TO THIS CONSOLE
                                    269                *,      COMMAND CODES ASSIGNED TO THIS CONSOLE ARE--
                                    270                *,         1
                                    271                *,         2
                                    272                *,         3
                                    273                *,      CONSOLE WILL HAVE 12 PROGRAM FUNCTION KEYS
                                    274     SECONSLE   CONSOLE=009,ALTCONS=01F,ROUTCDE=ALL,VALDCMD=(1,2,3)
                                    275                *,      CONSOLE ADDRESS 009
                                    276                *,      ALTCONS ADDRESS 01F
                                    277                *,      ALL ROUTING CODES ARE ASSIGNED TO THIS CONSOLE
                                    278                *,      COMMAND CODES ASSIGNED TO THIS CONSOLE ARE--
                                    279                *,         1
                                    280                *,         2
                                    281                *,         3
                                    282     SECONSLE   CONSOLE=01F,ALTCONS=009,ROUTCDE=ALL,VALDCMD=(1,2,3)
                                    283                *,      CONSOLE ADDRESS 01F
                                    284                *,      ALTCONS ADDRESS 009
                                    285                *,      ALL ROUTING CODES ARE ASSIGNED TO THIS CONSOLE
                                    286                *,      COMMAND CODES ASSIGNED TO THIS CONSOLE ARE--
                                    287                *,         1
                                    288                *,         2
                                    289                *,         3
                                    290     SECONSLE   CONSOLE=O-30E
                                    291                *,      OUTPUT ONLY CONSOLE ADDRESS 30E
                                    292                *,      NO ROUTING CODES ARE ASSIGNED THIS CONSOLE
                                    293                *,      COMMANDS 'DISPLAY,LOG' ARE ASSIGNED THIS CONSOLE
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    295 *====================================================================*
                                    296 *                                                                    *
                                    297 *        Optional access methods and data sets.                      *
                                    298 *                                                                    *
                                    299 *====================================================================*

                                    301     DATAMGT    ACSMETH=(BDAM,ISAM,BTAM,TCAM)
                                    302                *,     OPTIONAL ACCESS METHOD
                                    303                *,        BDAM
                                    304                *,        ISAM
                                    305                *,        BTAM
                                    306                *,        TCAM
                                    307     DCMLIB
                                    308                *,     DCM LIBRARY WILL RESIDE ON LNKVOL
                                    309     GRAPHICS   PORRTNS=INCLUDE,GSP=EXCLUDE
                                    310                *,      GRAPHICS SUPPORT TO BE INCLUDED
                                    311                *,      PROBLEM ORIENTED ROUTINES ARE TO BE INCLUDED
                                    312                *,      GRAPHIC SUBROUTINE PACKAGE IS TO BE EXCLUDED
                                    313     HELP
                                    314                *,      HELP DATA SET WILL RESIDE ON SYSRES
                                    315     IMAGELIB
                                    316                *,     IMAGE LIBRARY WILL RESIDE ON SYSRES
                                    317     MACLIB     EXCLUDE=(QTAM,GPS,OCR)
                                    318                *,      MACRO LIBRARY WILL RESIDE ON SYSRES
                                    319                *,      QTAM MACROS TO BE EXCLUDED FROM THE MACLIB
                                    320                *,      GPS MACROS TO BE EXCLUDED FROM THE MACLIB
                                    321                *,      OCR MACROS TO BE EXCLUDED FROM THE MACLIB
                                    322     PARMLIB
                                    323                *,      PARMLIB WILL RESIDE ON SYSRES
                                    324     PROCLIB
                                    325                *,      PROCESS LIBRARY WILL RESIDE ON SYSRES
                                    326     SORTLIB
                                    327                *,      SORT LIBRARY WILL RESIDE ON SYSRES
                                    328     SORTMERG   SIZE=65536,RECTYPE=(FIXED,VAR,LONG),                    X
                                                       CNTLFLD=(MULTIPLE),                                     X
                                                       MESSAGE=(PRINTER,ALL),                                  +
                                                       SORTDEV=(2311,2314,2301)
                                    329                *,     SIZE 65536 BYTES
                                    330                *,     SORT/MERGE OPTIONS INCLUDE-
                                    331                *,        FIXED LENGTH RECORDS
                                    332                *,        VARIABLE LENGTH RECORDS
                                    333                *,        RECORDS LONGER THAN 256 BYTES
                                    334                *,        MULTIPLE CONTROL FIELDS
                                    335                *,        2311 DISK
                                    336                *,      2314 DIRECT ACCESS STORAGE
                                    337                *,      2301 DRUM
                                    338                *,        SORT/MERGE MESSAGES ON PRINTER
                                    339                *,        ALL SORT/MERGE MESSAGES GENERATED
                                    340     SYSUTILS   SIZE=64K
                                    341                *,      CORE AVAILABLE TO UTILITIES IS 64K BYTES
                                    342     TELCMLIB
                                    343                *,   TELECOMMUNICATION LIBRARY WILL RESIDE ON SYSRES
                                    344     UADS
                                    345                *,      USER ATTRIBUTE DATA SET WILL RESIDE ON SYSRES
                                    346     UCS        UNIT=1403,IMAGE=(AN,PN,TN),DEFAULT=(AN,PN,TN)
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    347                *,      1403 UCS
                                    348                *,       CHARACTER SET IMAGE WITH AN-ID INCLUDED
                                    349                *,       CHARACTER SET IMAGE WITH PN-ID INCLUDED
                                    350                *,       CHARACTER SET IMAGE WITH TN-ID INCLUDED
                                    351                *,       DEFAULT CHARACTER SET WITH AN-ID INCLUDED
                                    352                *,       DEFAULT CHARACTER SET WITH PN-ID INCLUDED
                                    353                *,       DEFAULT CHARACTER SET WITH TN-ID INCLUDED
                                    354     UCS        UNIT=3211,IMAGE=(P11,T11),DEFAULT=(P11,T11)
                                    355                *,      3211 UCS
                                    356                *,      CHARACTER SET IMAGE WITH P11-ID INCLUDED
                                    357                *,      CHARACTER SET IMAGE WITH T11-ID INCLUDED
                                    358                *,      DEFAULT CHARACTER SET WITH P11-ID INCLUDED
                                    359                *,      DEFAULT CHARACTER SET WITH T11-ID INCLUDED
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    361 *====================================================================*
                                    362 *                                                                    *
                                    363 *        Compilers and libraries.                                    *
                                    364 *                                                                    *
                                    365 *====================================================================*

                                    367     ALGOL
                                    368                *,   PUNCH OPTION IS NODECK
                                    369                *,   TYPERUN OPTION IS LOAD
                                    370                *,   SORCODE OPTION IS EBCDIC
                                    371                *,   SORLIST OPTION IS SOURCE
                                    372                *,   SIZE SPECIFIED IS 45056 BYTES OF MAIN STORAGE
                                    373                *,   PRECISN OPTION IS SHORT
                                    374     ALGLIB
                                    375                *,  THE ALGOL LIBRARY WILL RESIDE ON SYSRES
                                    376     ASSEMBLR   DESIGN=F
                                    377     CHECKER    TYPE=FORTRAN,DESIGN=H
                                    378                *,      FORTRAN SYNTAX CHECKER SPECIFIED
                                    379                *,      FORTRAN SYNTAX CHECKER DESIGN(S) ARE-
                                    380                *,      H
                                    381     CHECKER    TYPE=PL1
                                    382                *,      PL1 SYNTAX CHECKER SPECIFIED
                                    383                *,      PL1 SYNTAX CHECKER SIZE(S) ARE-
                                    384                *,      20K
                                    385     CMDLIB
                                    386                *,      THE TSO COMMAND LIBRARY WILL BE INCLUDED
                                    387     COBOL      DESIGN=E
                                    388                *,      COBOL DESIGN LEVEL E SPECIFIED
                                    389                *,      ALL WARNING AND ERROR MESSAGES PRINTED
                                    390                *,      MAXIMUM 60 LINES PER PAGE OF COMPILER OUTPUT
                                    391                *,      RELATIVE LOCATION MAP WILLBE PRINTED
                                    392                *,      PROCEDURE MAP WILLBE PRODUCED
                                    393                *,      LENGTH OF DISPLAYED FIELDS WILL BE CHECKED
                                    394                *,      180 BYTES OF STORAGE AVAILABLE PER WORK BUFFER
                                    395                *,      EDITING FUNCTION OPTION IS REGED
                                    396     COBOL      DESIGN=U
                                    397                *,      COBOL DESIGN LEVEL U SPECIFIED
                                    398                *,      ALL WARNING AND ERROR MESSAGES PRINTED
                                    399                *,      MAXIMUM 60 LINES PER PAGE OF COMPILER OUTPUT
                                    400                *,      81920 BYTES OF STORAGE AVAILABLE FOR COMPILER
                                    401                *,      2768 BYTES OF STORAGE AVAILABLE FOR BUFFERS
                                    402                *,      SOURCE LISTING WILL BE PRODUCED
                                    403                *,      OBJECT DECK OF PROGRAM WILL NOT BE PUNCHED
                                    404                *,      COMPILED PROGRAM WILL BE LINKAGE EDITED
                                    405                *,      CARD SEQUENCE OF PROGRAM WILL BE CHECKED
                                    406                *,      LISTING WILL HAVE 1 SPACES BETWEEN LINES
                                    407                *,      APOSTROPHES WILL BE USED TO DELINEATE LITERALS
                                    408                *,      CROSS REFERENCE LISTING WILL NOT BE PRODUCED
                                    409                *,      CONDENSED LISTING WILL NOT BE PRODUCED
                                    410                *,      OBJECT LISTING WILL NOT BE SUPPRESSED IF E-LEVELX
                                                        MSG IS GENERATED
                                    411                *,      BINARY ITEMS MOVED ACCORDING TO SIZE OF FIELD INX

                                    412                *,       STORAGE
                                    413                *,      RELATIVE LOCATION MAP WILL NOT BE PRINTED
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    414                *,      PROCEDURE MAP WILL NOT BE PRODUCED
                                    415                *,      VERB OPTION WILLBE INCLUDED
                                    416                *,      LIB OPTION WILLBE INCLUDED
                                    417     COBLIB     DESIGN=E
                                    418                *,      COBOL LIBRARY LEVEL E SPECIFIED
                                    419                *,      COBOL LIBRARY WILL RESIDE ON SYSRES
                                    420     COBLIB     DESIGN=U
                                    421                *,      COBOL LIBRARY LEVEL U SPECIFIED
                                    422                *,      COBOL LIBRARY WILL RESIDE ON SYSRES
                                    423     FORTRAN    DESIGN=G
                                    424                *,      FORTRAN DESIGN LEVEL G SPECIFIED
                                    425                *,      PUNCH OPTION FOR OBJECT DECK IS NODECK
                                    426                *,      LISTING OPTION FOR SOURCE PROGRAM IS SOURCE
                                    427                *,      RELATIVE LOCATION MAP OPTION IS NOMAP
                                    428                *,      RUN OPTION FOR OBJECT PROGRAM IS LOAD
                                    429                *,      SOURCE CODE CHARACTER SET OPTION IS EBCDIC
                                    430                *,      LISTING OPTION FOR OBJECT PROGRAM IS NOLIST
                                    431                *,      OBJECT PROGRAM PRINT PAGE IS MAXIMUM OF 50 LINES
                                    432                *,      INTERVAL STATEMENT NUMBERING OPTION IS NOID
                                    433     FORTRAN    DESIGN=H,SIZE=256K
                                    434                *,      FORTRAN DESIGN LEVEL H SPECIFIED
                                    435                *,      PUNCH OPTION FOR OBJECT DECK IS NODECK
                                    436                *,      LISTING OPTION FOR SOURCE PROGRAM IS SOURCE
                                    437                *,      RELATIVE LOCATION MAP OPTION IS NOMAP
                                    438                *,      RUN OPTION FOR OBJECT PROGRAM IS LOAD
                                    439                *,      SOURCE CODE CHARACTER SET OPTION IS EBCDIC
                                    440                *,      LISTING OPTION FOR OBJECT PROGRAM IS NOLIST
                                    441                *,      OBJECT PROGRAM OPTIMIZATION OPTION IS NO OPTIMIZX
                                                       ATION
                                    442                *,      OBJECT PROGRAM PRINT PAGE IS MAXIMUM OF 50 LINES
                                    443                *,      MAIN STORAGE AVAILABLE FOR COMPILER IS 256K BYTEX
                                                       S
                                    444                *,       INTERVAL STATEMENT NUMBERING OPTION IS NOID
                                    445                *,       STRUCTURED SOURCE LISTING OPTION IS NOEDIT
                                    446                *,          SOURCE CROSS REFERENCE OPTION IS NOXREF
                                    447     FORTLIB    DESIGN=H
                                    448                *,      THE LEVEL H FORTRAN LIBRARY WILL RESIDE ON SYSREX
                                                       S
                                    449                *,      I/O UNIT TABLE WILL CONTAIN 08 LOGICAL UNITS
                                    450                *,      UNIT 06 USED FOR 'PRINT' STATEMENTS,
                                    451                *,          ERROR MESSAGES AND DUMPS
                                    452                *,      UNIT 05 USED FOR 'READ' STATEMENTS
                                    453                *,      UNIT 07 USED FOR 'PUNCH' STATEMENTS
                                    454                *,      OBJECT TIME ERROR HANDLING FACILITY IS EXCLUDE
                                    455                *,      BOUNDARY ALIGNMENT SPECIFIED
                                    456     PL1        DESIGN=F
                                    457                *,      PL/1 DESIGN LEVEL F SPECIFIED
                                    458                *,      PUNCH OPTION FOR OBJECT DECK IS NODECK
                                    459                *,      RUN OPTION FOR OBJECT PROGRAM IS LOAD
                                    460                *,      SOURCE CODE CHARACTER SET OPTION IS EBCDIC
                                    461                *,      MAIN STORAGE FOR USE BY COMPILER IS 999999 BYTES
                                    462                *,      LISTING OPTION FOR OBJECT PROGRAM IS NOLIST
                                    463                *,      COMPILATION ERROR MESSAGE OPTION IS FLAGW
                                    464                *,      OBJECT PROGRAM OPTIMIZATION OPTION IS 1
                                    465                *,      LISTING OPTION FOR SOURCE PROGRAM IS SOURCE
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    466                *,      LISTING OPTION FOR MACROS IS SOURCE2
                                    467                *,      LISTING OPTION FOR OBJCODE IS OBJOUT
                                    468                *,      OPTION FOR NUMBER OF CHARACTERS IS CHAR60
                                    469                *,      LISTING OPTION FOR EXTERNAL ENTRIES IS NOEXTREF
                                    470                *,      LISTING OPTION FOR IDENTIFIERS IS NOATR
                                    471                *,      LISTING OPTION FOR REFERENCES IS NOXREF
                                    472                *,      MARGINS FOR COMPILER SCAN ARE 2 AND 72
                                    473                *,      MAXIMUM LINES PER PAGE FOR COMPILER OUTPUT IS 50
                                    474                *,      SOURCE PROGRAM MESSAGE OPTION IS NOSTMT
                                    475                *,      COMPILE TIME PREPROCESSOR OPTION IS NOMACRO
                                    476                *,      COMPILATION PREPROCESSING OPTION IS COMP
                                    477                *, NO SPACING CONTROL PROVIDED
                                    478                *, DEFAULT OPTION FOR GENERATION OF MACRO DECK IS NOMACDX
                                                       ECK
                                    479                *, TYPE OF DICTIONARY REFERENCING MECHANISM IS NOEXTDIC
                                    480                *, OPTION FOR WRITING A COMPLETE LIST OF OPTIONS ON SYSPX
                                                       RINT IS OP
                                    481                *, SOURCE LISTING OPTION FOR DEPTH COUNTS OF BLOCK LEVELX
                                                        AND NESTED DO GROUPS IS NONEST
                                    482                *, SYNTAX CHECKING OPTION IS SYNCHKT
                                    483                *,      ALL COMPILATION OPTION PARAMETERS MAY BE RESPECIX
                                                       FIED AT COMPILE TIME
                                    484     PL1LIB
                                    485                *,      PL1 LIBRARY WILL RESIDE ON SYSRES
                                    486                *,      LIBRARY FUNCTIONS INCLUDED ARE REAL
                                    487     RPG
                                    488                *,   REPORT PROGRAM GENERATOR IS SPECIFIED
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    490 *====================================================================*
                                    491 *                                                                    *
                                    492 *        Linkage editor and loader.                                  *
                                    493 *                                                                    *
                                    494 *====================================================================*

                                    496     EDITOR     DESIGN=F128,SIZE=128K
                                    497                *,      LINKAGE EDITOR F128 IS REQUESTED.
                                    498                *,      128K IS THE MAXIMUM AMOUNT OF MAIN STORAGE THE LX
                                                       INKAGE EDITOR WILL USE.  18K  WILL BE ASSIGNED TO THE TEX
                                                       XT BUFFER.
                                    499     LOADER
                                    500                *,      PARM FIELD DEFAULTS ARE
                                    501                *,           CALL
                                    502                *,           NOLET
                                    503                *,           PRINT
                                    504                *,           NOMAP
                                    505                *,           NORES
                                    506                *,      SIZE VALUE 100K INCLUDED
                                    507                *,      LIN VALUE SYSLIN INCLUDED
                                    508                *,      PRINT VALUE SYSLOUT INCLUDED
                                    509                *,      LIB VALUE SYSLIB INCLUDED
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    511 *====================================================================*
                                    512 *                                                                    *
                                    513 *        TSO options.                                                *
                                    514 *                                                                    *
                                    515 *====================================================================*

                                    517     OUTPUT     CLASS=(A,A)
                                    518                *,      BACKGROUND MESSAGE CLASS DEFAULT WILL BE A
                                    519                *,      PRINT OUTPUT CLASS DEFAULT WILL BE A
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    521 *====================================================================*
                                    522 *                                                                    *
                                    523 *        Channel, control unit and device definitions.               *
                                    524 *                                                                    *
                                    525 *====================================================================*

                                    527 *--------------------------------------------------------------------*
                                    528 *        Channel 0:  Unit record, 3270, BSC.                         *
                                    529 *--------------------------------------------------------------------*
                                    530     CHANNEL   ADDRESS=0,TYPE=MULTIPLEXOR
                                    531                *,     CHANNEL 0 IS PRESENT
                                    532                *,        IT IS A MULTIPLEXOR CHANNEL
                                    533     IOCONTRL  ADDRESS=008,UNIT=2821,MODEL=5
                                    534                *,      MAXIMUM OF 255 I/O CONTROL UNITS ALLOWED
                                    535                *,     2821 READ,PUNCH AND PRINTER CONTROL UNIT
                                    536                *,        MODEL 5
                                    537                *,        ADDRESS=00
                                    538     IODEVICE  ADDRESS=009,UNIT=3215
                                    539                *,      MAXIMUM OF 768 I/O DEVICES ALLOWED
                                    540                *,     3215 CONSOLE
                                    541                *,     ADDRESS 009 SPECIFIED
                                    542                *,     FIFO I/O REQUEST QUEUEING FOR 3215
                                    543     IODEVICE  ADDRESS=00C,UNIT=2540R,MODEL=1
                                    544                *,     2540 CARD READER
                                    545                *,     MODEL 1
                                    546                *,     ADDRESS 00C SPECIFIED
                                    547                *,     FIFO I/O REQUEST QUEUEING FOR 2540R
                                    548     IODEVICE  ADDRESS=00D,UNIT=2540P,MODEL=1
                                    549                *,     2540 CARD PUNCH
                                    550                *,     MODEL 1
                                    551                *,     ADDRESS 00D SPECIFIED
                                    552                *,     FIFO I/O REQUEST QUEUEING FOR 2540P
                                    553     IODEVICE  ADDRESS=00E,UNIT=1403,MODEL=N1,FEATURE=(UNVCHSET)
                                    554                *,     1403 PRINTER
                                    555                *,     MODEL N1
                                    556                *,     FEATURE(S)
                                    557                *,        UNIVERSAL CHARACTER SET
                                    558                *,     ADDRESS 00E SPECIFIED
                                    559                *,     FIFO I/O REQUEST QUEUEING FOR 1403
                                    560     IODEVICE  ADDRESS=00F,UNIT=1403,MODEL=N1,FEATURE=(UNVCHSET)
                                    561                *,     1403 PRINTER
                                    562                *,     MODEL N1
                                    563                *,     FEATURE(S)
                                    564                *,        UNIVERSAL CHARACTER SET
                                    565                *,     ADDRESS 00F SPECIFIED
                                    566                *,     FIFO I/O REQUEST QUEUEING FOR 1403
                                    567     IODEVICE  ADDRESS=010,UNIT=3158
                                    568                *,     3158 DISPLAY UNIT
                                    569                *,     ADDRESS 010 SPECIFIED
                                    570                *,     FIFO I/O REQUEST QUEUEING FOR 3158
                                    571     IODEVICE  ADDRESS=011,UNIT=3158
                                    572                *,     3158 DISPLAY UNIT
                                    573                *,     ADDRESS 011 SPECIFIED
                                    574                *,     FIFO I/O REQUEST QUEUEING FOR 3158
                                    575     IODEVICE  ADDRESS=014,UNIT=3158
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    576                *,     3158 DISPLAY UNIT
                                    577                *,     ADDRESS 014 SPECIFIED
                                    578                *,     FIFO I/O REQUEST QUEUEING FOR 3158
                                    579     IODEVICE  ADDRESS=01F,UNIT=3215
                                    580                *,     3215 CONSOLE
                                    581                *,     ADDRESS 01F SPECIFIED
                                    582                *,     FIFO I/O REQUEST QUEUEING FOR 3215
                                    583     IOCONTRL  ADDRESS=090,UNIT=2703
                                    584                *,     2703 TRANSMISSION CONTROL UNIT
                                    585                *,        ADDRESS=09
                                    586     IODEVICE  ADDRESS=(090,8),UNIT=BSC1,ADAPTER=BSCA
                                    587                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM, TYPE 1
                                    588                *,      BINARY SYNCHRONOUS ADAPTER
                                    589                *,     ADDRESS 090 SPECIFIED
                                    590                *,     FIFO I/O REQUEST QUEUEING FOR BSC1
                                    591                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM, TYPE 1
                                    592                *,      BINARY SYNCHRONOUS ADAPTER
                                    593                *,     ADDRESS 091 SPECIFIED
                                    594                *,     FIFO I/O REQUEST QUEUEING FOR BSC1
                                    595                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM, TYPE 1
                                    596                *,      BINARY SYNCHRONOUS ADAPTER
                                    597                *,     ADDRESS 092 SPECIFIED
                                    598                *,     FIFO I/O REQUEST QUEUEING FOR BSC1
                                    599                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM, TYPE 1
                                    600                *,      BINARY SYNCHRONOUS ADAPTER
                                    601                *,     ADDRESS 093 SPECIFIED
                                    602                *,     FIFO I/O REQUEST QUEUEING FOR BSC1
                                    603                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM, TYPE 1
                                    604                *,      BINARY SYNCHRONOUS ADAPTER
                                    605                *,     ADDRESS 094 SPECIFIED
                                    606                *,     FIFO I/O REQUEST QUEUEING FOR BSC1
                                    607                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM, TYPE 1
                                    608                *,      BINARY SYNCHRONOUS ADAPTER
                                    609                *,     ADDRESS 095 SPECIFIED
                                    610                *,     FIFO I/O REQUEST QUEUEING FOR BSC1
                                    611                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM, TYPE 1
                                    612                *,      BINARY SYNCHRONOUS ADAPTER
                                    613                *,     ADDRESS 096 SPECIFIED
                                    614                *,     FIFO I/O REQUEST QUEUEING FOR BSC1
                                    615                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM, TYPE 1
                                    616                *,      BINARY SYNCHRONOUS ADAPTER
                                    617                *,     ADDRESS 097 SPECIFIED
                                    618                *,     FIFO I/O REQUEST QUEUEING FOR BSC1
                                    619     IOCONTRL  ADDRESS=0A0,UNIT=2703
                                    620                *,     2703 TRANSMISSION CONTROL UNIT
                                    621                *,        ADDRESS=0A
                                    622     IODEVICE  ADDRESS=(0A0,8),UNIT=BSC2,FEATURE=(AUTOCALL,AUTOANSR),   +
                                                       ADAPTER=BSCA
                                    623                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM TYPE 2
                                    624                *,      BINARY SYNCHRONOUS ADAPTER
                                    625                *,       AUTOMATIC CALLING
                                    626                *,       AUTOMATIC ANSWERING
                                    627                *,     ADDRESS 0A0 SPECIFIED
                                    628                *,     FIFO I/O REQUEST QUEUEING FOR BSC2
                                    629                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM TYPE 2
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    630                *,      BINARY SYNCHRONOUS ADAPTER
                                    631                *,       AUTOMATIC CALLING
                                    632                *,       AUTOMATIC ANSWERING
                                    633                *,     ADDRESS 0A1 SPECIFIED
                                    634                *,     FIFO I/O REQUEST QUEUEING FOR BSC2
                                    635                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM TYPE 2
                                    636                *,      BINARY SYNCHRONOUS ADAPTER
                                    637                *,       AUTOMATIC CALLING
                                    638                *,       AUTOMATIC ANSWERING
                                    639                *,     ADDRESS 0A2 SPECIFIED
                                    640                *,     FIFO I/O REQUEST QUEUEING FOR BSC2
                                    641                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM TYPE 2
                                    642                *,      BINARY SYNCHRONOUS ADAPTER
                                    643                *,       AUTOMATIC CALLING
                                    644                *,       AUTOMATIC ANSWERING
                                    645                *,     ADDRESS 0A3 SPECIFIED
                                    646                *,     FIFO I/O REQUEST QUEUEING FOR BSC2
                                    647                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM TYPE 2
                                    648                *,      BINARY SYNCHRONOUS ADAPTER
                                    649                *,       AUTOMATIC CALLING
                                    650                *,       AUTOMATIC ANSWERING
                                    651                *,     ADDRESS 0A4 SPECIFIED
                                    652                *,     FIFO I/O REQUEST QUEUEING FOR BSC2
                                    653                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM TYPE 2
                                    654                *,      BINARY SYNCHRONOUS ADAPTER
                                    655                *,       AUTOMATIC CALLING
                                    656                *,       AUTOMATIC ANSWERING
                                    657                *,     ADDRESS 0A5 SPECIFIED
                                    658                *,     FIFO I/O REQUEST QUEUEING FOR BSC2
                                    659                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM TYPE 2
                                    660                *,      BINARY SYNCHRONOUS ADAPTER
                                    661                *,       AUTOMATIC CALLING
                                    662                *,       AUTOMATIC ANSWERING
                                    663                *,     ADDRESS 0A6 SPECIFIED
                                    664                *,     FIFO I/O REQUEST QUEUEING FOR BSC2
                                    665                *,    BINARY SYNCHRONOUS COMMUNICATION SYSTEM TYPE 2
                                    666                *,      BINARY SYNCHRONOUS ADAPTER
                                    667                *,       AUTOMATIC CALLING
                                    668                *,       AUTOMATIC ANSWERING
                                    669                *,     ADDRESS 0A7 SPECIFIED
                                    670                *,     FIFO I/O REQUEST QUEUEING FOR BSC2
                                    671     IOCONTRL  ADDRESS=0B0,UNIT=2703
                                    672                *,     2703 TRANSMISSION CONTROL UNIT
                                    673                *,        ADDRESS=0B
                                    674     IODEVICE  ADDRESS=(0B0,8),UNIT=BSC3,FEATURE=(AUTOPOLL),            +
                                                       ADAPTER=BSCA
                                    675                *,    BINARY SYNCHRONOUS COMMUNICATIONS SYSTEM, TYPE 3
                                    676                *,      BINARY SYNCHRONOUS ADAPTER
                                    677                *,       AUTOMATIC POLLING
                                    678                *,     ADDRESS 0B0 SPECIFIED
                                    679                *,     FIFO I/O REQUEST QUEUEING FOR BSC3
                                    680                *,    BINARY SYNCHRONOUS COMMUNICATIONS SYSTEM, TYPE 3
                                    681                *,      BINARY SYNCHRONOUS ADAPTER
                                    682                *,       AUTOMATIC POLLING
                                    683                *,     ADDRESS 0B1 SPECIFIED
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    684                *,     FIFO I/O REQUEST QUEUEING FOR BSC3
                                    685                *,    BINARY SYNCHRONOUS COMMUNICATIONS SYSTEM, TYPE 3
                                    686                *,      BINARY SYNCHRONOUS ADAPTER
                                    687                *,       AUTOMATIC POLLING
                                    688                *,     ADDRESS 0B2 SPECIFIED
                                    689                *,     FIFO I/O REQUEST QUEUEING FOR BSC3
                                    690                *,    BINARY SYNCHRONOUS COMMUNICATIONS SYSTEM, TYPE 3
                                    691                *,      BINARY SYNCHRONOUS ADAPTER
                                    692                *,       AUTOMATIC POLLING
                                    693                *,     ADDRESS 0B3 SPECIFIED
                                    694                *,     FIFO I/O REQUEST QUEUEING FOR BSC3
                                    695                *,    BINARY SYNCHRONOUS COMMUNICATIONS SYSTEM, TYPE 3
                                    696                *,      BINARY SYNCHRONOUS ADAPTER
                                    697                *,       AUTOMATIC POLLING
                                    698                *,     ADDRESS 0B4 SPECIFIED
                                    699                *,     FIFO I/O REQUEST QUEUEING FOR BSC3
                                    700                *,    BINARY SYNCHRONOUS COMMUNICATIONS SYSTEM, TYPE 3
                                    701                *,      BINARY SYNCHRONOUS ADAPTER
                                    702                *,       AUTOMATIC POLLING
                                    703                *,     ADDRESS 0B5 SPECIFIED
                                    704                *,     FIFO I/O REQUEST QUEUEING FOR BSC3
                                    705                *,    BINARY SYNCHRONOUS COMMUNICATIONS SYSTEM, TYPE 3
                                    706                *,      BINARY SYNCHRONOUS ADAPTER
                                    707                *,       AUTOMATIC POLLING
                                    708                *,     ADDRESS 0B6 SPECIFIED
                                    709                *,     FIFO I/O REQUEST QUEUEING FOR BSC3
                                    710                *,    BINARY SYNCHRONOUS COMMUNICATIONS SYSTEM, TYPE 3
                                    711                *,      BINARY SYNCHRONOUS ADAPTER
                                    712                *,       AUTOMATIC POLLING
                                    713                *,     ADDRESS 0B7 SPECIFIED
                                    714                *,     FIFO I/O REQUEST QUEUEING FOR BSC3
                                    715     IOCONTRL  ADDRESS=0C0,UNIT=3272,MODEL=2
                                    716                *,     3272 CONTROL UNIT
                                    717                *,        MODEL 2
                                    718                *,        ADDRESS=0C
                                    719     IODEVICE  ADDRESS=(0C0,8),UNIT=3277,MODEL=2,                       +
                                                       FEATURE=(AUDALRM,EBKY3277,NUMLOCK,DOCHAR,KB78KEY)
                                    720                *,     3277 DISPLAY CONSOLE
                                    721                *,     MODEL 2
                                    722                *,     FEATURE(S)
                                    723                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                    724                *,     AUDIBLE ALARM
                                    725                *,     NUMERIC LOCK
                                    726                *,     DOMESTIC CHARACTER GENERATOR
                                    727                *,     ADDRESS 0C0 SPECIFIED
                                    728                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                    729                *,     3277 DISPLAY CONSOLE
                                    730                *,     MODEL 2
                                    731                *,     FEATURE(S)
                                    732                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                    733                *,     AUDIBLE ALARM
                                    734                *,     NUMERIC LOCK
                                    735                *,     DOMESTIC CHARACTER GENERATOR
                                    736                *,     ADDRESS 0C1 SPECIFIED
                                    737                *,     FIFO I/O REQUEST QUEUEING FOR 3277
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    738                *,     3277 DISPLAY CONSOLE
                                    739                *,     MODEL 2
                                    740                *,     FEATURE(S)
                                    741                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                    742                *,     AUDIBLE ALARM
                                    743                *,     NUMERIC LOCK
                                    744                *,     DOMESTIC CHARACTER GENERATOR
                                    745                *,     ADDRESS 0C2 SPECIFIED
                                    746                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                    747                *,     3277 DISPLAY CONSOLE
                                    748                *,     MODEL 2
                                    749                *,     FEATURE(S)
                                    750                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                    751                *,     AUDIBLE ALARM
                                    752                *,     NUMERIC LOCK
                                    753                *,     DOMESTIC CHARACTER GENERATOR
                                    754                *,     ADDRESS 0C3 SPECIFIED
                                    755                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                    756                *,     3277 DISPLAY CONSOLE
                                    757                *,     MODEL 2
                                    758                *,     FEATURE(S)
                                    759                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                    760                *,     AUDIBLE ALARM
                                    761                *,     NUMERIC LOCK
                                    762                *,     DOMESTIC CHARACTER GENERATOR
                                    763                *,     ADDRESS 0C4 SPECIFIED
                                    764                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                    765                *,     3277 DISPLAY CONSOLE
                                    766                *,     MODEL 2
                                    767                *,     FEATURE(S)
                                    768                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                    769                *,     AUDIBLE ALARM
                                    770                *,     NUMERIC LOCK
                                    771                *,     DOMESTIC CHARACTER GENERATOR
                                    772                *,     ADDRESS 0C5 SPECIFIED
                                    773                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                    774                *,     3277 DISPLAY CONSOLE
                                    775                *,     MODEL 2
                                    776                *,     FEATURE(S)
                                    777                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                    778                *,     AUDIBLE ALARM
                                    779                *,     NUMERIC LOCK
                                    780                *,     DOMESTIC CHARACTER GENERATOR
                                    781                *,     ADDRESS 0C6 SPECIFIED
                                    782                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                    783                *,     3277 DISPLAY CONSOLE
                                    784                *,     MODEL 2
                                    785                *,     FEATURE(S)
                                    786                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                    787                *,     AUDIBLE ALARM
                                    788                *,     NUMERIC LOCK
                                    789                *,     DOMESTIC CHARACTER GENERATOR
                                    790                *,     ADDRESS 0C7 SPECIFIED
                                    791                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                    792 *--------------------------------------------------------------------*
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    793 *        Channel 1:  Unit record, DASD.                              *
                                    794 *--------------------------------------------------------------------*
                                    795     CHANNEL   ADDRESS=1,TYPE=BLKMPXR
                                    796                *,     CHANNEL 1 IS PRESENT
                                    797                *,        IT IS A BLKMPXR CHANNEL
                                    798     IOCONTRL  ADDRESS=102,UNIT=3811
                                    799                *,     3811 CONTROL UNIT
                                    800                *,        ADDRESS=10
                                    801     IODEVICE  ADDRESS=102,UNIT=3211
                                    802                *,     3211 PRINTER
                                    803                *,     ADDRESS 102 SPECIFIED
                                    804                *,     FIFO I/O REQUEST QUEUEING FOR 3211
                                    805     IOCONTRL  ADDRESS=103,UNIT=3811
                                    806                *,     3811 CONTROL UNIT
                                    807                *,        ADDRESS=10
                                    808     IODEVICE  ADDRESS=103,UNIT=3211
                                    809                *,     3211 PRINTER
                                    810                *,     ADDRESS 103 SPECIFIED
                                    811                *,     FIFO I/O REQUEST QUEUEING FOR 3211
                                    812     IOCONTRL  ADDRESS=108,UNIT=2821,MODEL=5
                                    813                *,     2821 READ,PUNCH AND PRINTER CONTROL UNIT
                                    814                *,        MODEL 5
                                    815                *,        ADDRESS=10
                                    816     IODEVICE  ADDRESS=10C,UNIT=2540R,MODEL=1
                                    817                *,     2540 CARD READER
                                    818                *,     MODEL 1
                                    819                *,     ADDRESS 10C SPECIFIED
                                    820                *,     FIFO I/O REQUEST QUEUEING FOR 2540R
                                    821     IODEVICE  ADDRESS=10D,UNIT=2540P,MODEL=1
                                    822                *,     2540 CARD PUNCH
                                    823                *,     MODEL 1
                                    824                *,     ADDRESS 10D SPECIFIED
                                    825                *,     FIFO I/O REQUEST QUEUEING FOR 2540P
                                    826     IODEVICE  ADDRESS=10E,UNIT=1403,MODEL=N1,FEATURE=(UNVCHSET)
                                    827                *,     1403 PRINTER
                                    828                *,     MODEL N1
                                    829                *,     FEATURE(S)
                                    830                *,        UNIVERSAL CHARACTER SET
                                    831                *,     ADDRESS 10E SPECIFIED
                                    832                *,     FIFO I/O REQUEST QUEUEING FOR 1403
                                    833     IODEVICE  ADDRESS=10F,UNIT=1403,MODEL=N1,FEATURE=(UNVCHSET)
                                    834                *,     1403 PRINTER
                                    835                *,     MODEL N1
                                    836                *,     FEATURE(S)
                                    837                *,        UNIVERSAL CHARACTER SET
                                    838                *,     ADDRESS 10F SPECIFIED
                                    839                *,     FIFO I/O REQUEST QUEUEING FOR 1403
                                    840     IOCONTRL  ADDRESS=118,UNIT=2821,MODEL=5
                                    841                *,     2821 READ,PUNCH AND PRINTER CONTROL UNIT
                                    842                *,        MODEL 5
                                    843                *,        ADDRESS=11
                                    844     IODEVICE  ADDRESS=11E,UNIT=1403,MODEL=N1
                                    845                *,     1403 PRINTER
                                    846                *,     MODEL N1
                                    847                *,     ADDRESS 11E SPECIFIED
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    848                *,     FIFO I/O REQUEST QUEUEING FOR 1403
                                    849     IODEVICE  ADDRESS=11F,UNIT=1403,MODEL=N1
                                    850                *,     1403 PRINTER
                                    851                *,     MODEL N1
                                    852                *,     ADDRESS 11F SPECIFIED
                                    853                *,     FIFO I/O REQUEST QUEUEING FOR 1403
                                    854     IOCONTRL  ADDRESS=120,UNIT=2841
                                    855                *,     2841 DIRECT ACCESS STORAGE CONTROL UNIT
                                    856                *,        ADDRESS=12
                                    857     IODEVICE  ADDRESS=(120,8),UNIT=2311
                                    858                *,     2311 DISK STORAGE
                                    859                *,     ADDRESS 120 SPECIFIED
                                    860                *,     FIFO I/O REQUEST QUEUEING FOR 2311
                                    861                *,     2311 DISK STORAGE
                                    862                *,     ADDRESS 121 SPECIFIED
                                    863                *,     FIFO I/O REQUEST QUEUEING FOR 2311
                                    864                *,     2311 DISK STORAGE
                                    865                *,     ADDRESS 122 SPECIFIED
                                    866                *,     FIFO I/O REQUEST QUEUEING FOR 2311
                                    867                *,     2311 DISK STORAGE
                                    868                *,     ADDRESS 123 SPECIFIED
                                    869                *,     FIFO I/O REQUEST QUEUEING FOR 2311
                                    870                *,     2311 DISK STORAGE
                                    871                *,     ADDRESS 124 SPECIFIED
                                    872                *,     FIFO I/O REQUEST QUEUEING FOR 2311
                                    873                *,     2311 DISK STORAGE
                                    874                *,     ADDRESS 125 SPECIFIED
                                    875                *,     FIFO I/O REQUEST QUEUEING FOR 2311
                                    876                *,     2311 DISK STORAGE
                                    877                *,     ADDRESS 126 SPECIFIED
                                    878                *,     FIFO I/O REQUEST QUEUEING FOR 2311
                                    879                *,     2311 DISK STORAGE
                                    880                *,     ADDRESS 127 SPECIFIED
                                    881                *,     FIFO I/O REQUEST QUEUEING FOR 2311
                                    882     IODEVICE  ADDRESS=(130,8),UNIT=2314
                                    883                *,     2314 DISK STORAGE
                                    884                *,     ADDRESS 130 SPECIFIED
                                    885                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    886                *,     2314 DISK STORAGE
                                    887                *,     ADDRESS 131 SPECIFIED
                                    888                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    889                *,     2314 DISK STORAGE
                                    890                *,     ADDRESS 132 SPECIFIED
                                    891                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    892                *,     2314 DISK STORAGE
                                    893                *,     ADDRESS 133 SPECIFIED
                                    894                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    895                *,     2314 DISK STORAGE
                                    896                *,     ADDRESS 134 SPECIFIED
                                    897                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    898                *,     2314 DISK STORAGE
                                    899                *,     ADDRESS 135 SPECIFIED
                                    900                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    901                *,     2314 DISK STORAGE
                                    902                *,     ADDRESS 136 SPECIFIED
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    903                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    904                *,     2314 DISK STORAGE
                                    905                *,     ADDRESS 137 SPECIFIED
                                    906                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    907     IODEVICE  ADDRESS=(150,8),UNIT=3330
                                    908                *,     3330 DISK STORAGE
                                    909                *,     ADDRESS 150 SPECIFIED
                                    910                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    911                *,     3330 DISK STORAGE
                                    912                *,     ADDRESS 151 SPECIFIED
                                    913                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    914                *,     3330 DISK STORAGE
                                    915                *,     ADDRESS 152 SPECIFIED
                                    916                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    917                *,     3330 DISK STORAGE
                                    918                *,     ADDRESS 153 SPECIFIED
                                    919                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    920                *,     3330 DISK STORAGE
                                    921                *,     ADDRESS 154 SPECIFIED
                                    922                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    923                *,     3330 DISK STORAGE
                                    924                *,     ADDRESS 155 SPECIFIED
                                    925                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    926                *,     3330 DISK STORAGE
                                    927                *,     ADDRESS 156 SPECIFIED
                                    928                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    929                *,     3330 DISK STORAGE
                                    930                *,     ADDRESS 157 SPECIFIED
                                    931                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    932     IODEVICE  ADDRESS=(158,8),UNIT=3330
                                    933                *,     3330 DISK STORAGE
                                    934                *,     ADDRESS 158 SPECIFIED
                                    935                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    936                *,     3330 DISK STORAGE
                                    937                *,     ADDRESS 159 SPECIFIED
                                    938                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    939                *,     3330 DISK STORAGE
                                    940                *,     ADDRESS 15A SPECIFIED
                                    941                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    942                *,     3330 DISK STORAGE
                                    943                *,     ADDRESS 15B SPECIFIED
                                    944                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    945                *,     3330 DISK STORAGE
                                    946                *,     ADDRESS 15C SPECIFIED
                                    947                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    948                *,     3330 DISK STORAGE
                                    949                *,     ADDRESS 15D SPECIFIED
                                    950                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    951                *,     3330 DISK STORAGE
                                    952                *,     ADDRESS 15E SPECIFIED
                                    953                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    954                *,     3330 DISK STORAGE
                                    955                *,     ADDRESS 15F SPECIFIED
                                    956                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    957 *--------------------------------------------------------------------*
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    958 *        Channel 2:  DASD.                                           *
                                    959 *--------------------------------------------------------------------*
                                    960     CHANNEL   ADDRESS=2,TYPE=BLKMPXR
                                    961                *,     CHANNEL 2 IS PRESENT
                                    962                *,        IT IS A BLKMPXR CHANNEL
                                    963     IODEVICE  ADDRESS=(230,8),UNIT=2314
                                    964                *,     2314 DISK STORAGE
                                    965                *,     ADDRESS 230 SPECIFIED
                                    966                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    967                *,     2314 DISK STORAGE
                                    968                *,     ADDRESS 231 SPECIFIED
                                    969                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    970                *,     2314 DISK STORAGE
                                    971                *,     ADDRESS 232 SPECIFIED
                                    972                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    973                *,     2314 DISK STORAGE
                                    974                *,     ADDRESS 233 SPECIFIED
                                    975                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    976                *,     2314 DISK STORAGE
                                    977                *,     ADDRESS 234 SPECIFIED
                                    978                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    979                *,     2314 DISK STORAGE
                                    980                *,     ADDRESS 235 SPECIFIED
                                    981                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    982                *,     2314 DISK STORAGE
                                    983                *,     ADDRESS 236 SPECIFIED
                                    984                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    985                *,     2314 DISK STORAGE
                                    986                *,     ADDRESS 237 SPECIFIED
                                    987                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                    988     IODEVICE  ADDRESS=(250,8),UNIT=3330
                                    989                *,     3330 DISK STORAGE
                                    990                *,     ADDRESS 250 SPECIFIED
                                    991                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    992                *,     3330 DISK STORAGE
                                    993                *,     ADDRESS 251 SPECIFIED
                                    994                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    995                *,     3330 DISK STORAGE
                                    996                *,     ADDRESS 252 SPECIFIED
                                    997                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                    998                *,     3330 DISK STORAGE
                                    999                *,     ADDRESS 253 SPECIFIED
                                   1000                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1001                *,     3330 DISK STORAGE
                                   1002                *,     ADDRESS 254 SPECIFIED
                                   1003                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1004                *,     3330 DISK STORAGE
                                   1005                *,     ADDRESS 255 SPECIFIED
                                   1006                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1007                *,     3330 DISK STORAGE
                                   1008                *,     ADDRESS 256 SPECIFIED
                                   1009                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1010                *,     3330 DISK STORAGE
                                   1011                *,     ADDRESS 257 SPECIFIED
                                   1012                *,     FIFO I/O REQUEST QUEUEING FOR 3330
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1013     IODEVICE  ADDRESS=(258,8),UNIT=3330
                                   1014                *,     3330 DISK STORAGE
                                   1015                *,     ADDRESS 258 SPECIFIED
                                   1016                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1017                *,     3330 DISK STORAGE
                                   1018                *,     ADDRESS 259 SPECIFIED
                                   1019                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1020                *,     3330 DISK STORAGE
                                   1021                *,     ADDRESS 25A SPECIFIED
                                   1022                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1023                *,     3330 DISK STORAGE
                                   1024                *,     ADDRESS 25B SPECIFIED
                                   1025                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1026                *,     3330 DISK STORAGE
                                   1027                *,     ADDRESS 25C SPECIFIED
                                   1028                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1029                *,     3330 DISK STORAGE
                                   1030                *,     ADDRESS 25D SPECIFIED
                                   1031                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1032                *,     3330 DISK STORAGE
                                   1033                *,     ADDRESS 25E SPECIFIED
                                   1034                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1035                *,     3330 DISK STORAGE
                                   1036                *,     ADDRESS 25F SPECIFIED
                                   1037                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1038 *--------------------------------------------------------------------*
                                   1039 *        Channel 3:  DASD, unit record, 3270.                        *
                                   1040 *--------------------------------------------------------------------*
                                   1041     CHANNEL   ADDRESS=3,TYPE=BLKMPXR
                                   1042                *,     CHANNEL 3 IS PRESENT
                                   1043                *,        IT IS A BLKMPXR CHANNEL
                                   1044     IOCONTRL  ADDRESS=308,UNIT=2821,MODEL=5
                                   1045                *,     2821 READ,PUNCH AND PRINTER CONTROL UNIT
                                   1046                *,        MODEL 5
                                   1047                *,        ADDRESS=30
                                   1048     IODEVICE  ADDRESS=30E,UNIT=1403,MODEL=N1,FEATURE=(UNVCHSET)
                                   1049                *,     1403 PRINTER
                                   1050                *,     MODEL N1
                                   1051                *,     FEATURE(S)
                                   1052                *,        UNIVERSAL CHARACTER SET
                                   1053                *,     ADDRESS 30E SPECIFIED
                                   1054                *,     FIFO I/O REQUEST QUEUEING FOR 1403
                                   1055     IODEVICE  ADDRESS=30F,UNIT=1403,MODEL=N1,FEATURE=(UNVCHSET)
                                   1056                *,     1403 PRINTER
                                   1057                *,     MODEL N1
                                   1058                *,     FEATURE(S)
                                   1059                *,        UNIVERSAL CHARACTER SET
                                   1060                *,     ADDRESS 30F SPECIFIED
                                   1061                *,     FIFO I/O REQUEST QUEUEING FOR 1403
                                   1062     IODEVICE  ADDRESS=(330,8),UNIT=2314
                                   1063                *,     2314 DISK STORAGE
                                   1064                *,     ADDRESS 330 SPECIFIED
                                   1065                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                   1066                *,     2314 DISK STORAGE
                                   1067                *,     ADDRESS 331 SPECIFIED
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1068                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                   1069                *,     2314 DISK STORAGE
                                   1070                *,     ADDRESS 332 SPECIFIED
                                   1071                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                   1072                *,     2314 DISK STORAGE
                                   1073                *,     ADDRESS 333 SPECIFIED
                                   1074                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                   1075                *,     2314 DISK STORAGE
                                   1076                *,     ADDRESS 334 SPECIFIED
                                   1077                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                   1078                *,     2314 DISK STORAGE
                                   1079                *,     ADDRESS 335 SPECIFIED
                                   1080                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                   1081                *,     2314 DISK STORAGE
                                   1082                *,     ADDRESS 336 SPECIFIED
                                   1083                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                   1084                *,     2314 DISK STORAGE
                                   1085                *,     ADDRESS 337 SPECIFIED
                                   1086                *,     FIFO I/O REQUEST QUEUEING FOR 2314
                                   1087     IODEVICE  ADDRESS=(350,8),UNIT=3330
                                   1088                *,     3330 DISK STORAGE
                                   1089                *,     ADDRESS 350 SPECIFIED
                                   1090                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1091                *,     3330 DISK STORAGE
                                   1092                *,     ADDRESS 351 SPECIFIED
                                   1093                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1094                *,     3330 DISK STORAGE
                                   1095                *,     ADDRESS 352 SPECIFIED
                                   1096                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1097                *,     3330 DISK STORAGE
                                   1098                *,     ADDRESS 353 SPECIFIED
                                   1099                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1100                *,     3330 DISK STORAGE
                                   1101                *,     ADDRESS 354 SPECIFIED
                                   1102                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1103                *,     3330 DISK STORAGE
                                   1104                *,     ADDRESS 355 SPECIFIED
                                   1105                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1106                *,     3330 DISK STORAGE
                                   1107                *,     ADDRESS 356 SPECIFIED
                                   1108                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1109                *,     3330 DISK STORAGE
                                   1110                *,     ADDRESS 357 SPECIFIED
                                   1111                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1112     IODEVICE  ADDRESS=(358,8),UNIT=3330
                                   1113                *,     3330 DISK STORAGE
                                   1114                *,     ADDRESS 358 SPECIFIED
                                   1115                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1116                *,     3330 DISK STORAGE
                                   1117                *,     ADDRESS 359 SPECIFIED
                                   1118                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1119                *,     3330 DISK STORAGE
                                   1120                *,     ADDRESS 35A SPECIFIED
                                   1121                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1122                *,     3330 DISK STORAGE
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1123                *,     ADDRESS 35B SPECIFIED
                                   1124                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1125                *,     3330 DISK STORAGE
                                   1126                *,     ADDRESS 35C SPECIFIED
                                   1127                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1128                *,     3330 DISK STORAGE
                                   1129                *,     ADDRESS 35D SPECIFIED
                                   1130                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1131                *,     3330 DISK STORAGE
                                   1132                *,     ADDRESS 35E SPECIFIED
                                   1133                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1134                *,     3330 DISK STORAGE
                                   1135                *,     ADDRESS 35F SPECIFIED
                                   1136                *,     FIFO I/O REQUEST QUEUEING FOR 3330
                                   1137     IOCONTRL  ADDRESS=3C0,UNIT=3272,MODEL=2
                                   1138                *,     3272 CONTROL UNIT
                                   1139                *,        MODEL 2
                                   1140                *,        ADDRESS=3C
                                   1141     IODEVICE  ADDRESS=(3C0,8),UNIT=3277,MODEL=2,                       +
                                                       FEATURE=(AUDALRM,EBKY3277,NUMLOCK,DOCHAR,KB78KEY)
                                   1142                *,     3277 DISPLAY CONSOLE
                                   1143                *,     MODEL 2
                                   1144                *,     FEATURE(S)
                                   1145                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                   1146                *,     AUDIBLE ALARM
                                   1147                *,     NUMERIC LOCK
                                   1148                *,     DOMESTIC CHARACTER GENERATOR
                                   1149                *,     ADDRESS 3C0 SPECIFIED
                                   1150                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                   1151                *,     3277 DISPLAY CONSOLE
                                   1152                *,     MODEL 2
                                   1153                *,     FEATURE(S)
                                   1154                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                   1155                *,     AUDIBLE ALARM
                                   1156                *,     NUMERIC LOCK
                                   1157                *,     DOMESTIC CHARACTER GENERATOR
                                   1158                *,     ADDRESS 3C1 SPECIFIED
                                   1159                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                   1160                *,     3277 DISPLAY CONSOLE
                                   1161                *,     MODEL 2
                                   1162                *,     FEATURE(S)
                                   1163                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                   1164                *,     AUDIBLE ALARM
                                   1165                *,     NUMERIC LOCK
                                   1166                *,     DOMESTIC CHARACTER GENERATOR
                                   1167                *,     ADDRESS 3C2 SPECIFIED
                                   1168                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                   1169                *,     3277 DISPLAY CONSOLE
                                   1170                *,     MODEL 2
                                   1171                *,     FEATURE(S)
                                   1172                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                   1173                *,     AUDIBLE ALARM
                                   1174                *,     NUMERIC LOCK
                                   1175                *,     DOMESTIC CHARACTER GENERATOR
                                   1176                *,     ADDRESS 3C3 SPECIFIED
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1177                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                   1178                *,     3277 DISPLAY CONSOLE
                                   1179                *,     MODEL 2
                                   1180                *,     FEATURE(S)
                                   1181                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                   1182                *,     AUDIBLE ALARM
                                   1183                *,     NUMERIC LOCK
                                   1184                *,     DOMESTIC CHARACTER GENERATOR
                                   1185                *,     ADDRESS 3C4 SPECIFIED
                                   1186                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                   1187                *,     3277 DISPLAY CONSOLE
                                   1188                *,     MODEL 2
                                   1189                *,     FEATURE(S)
                                   1190                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                   1191                *,     AUDIBLE ALARM
                                   1192                *,     NUMERIC LOCK
                                   1193                *,     DOMESTIC CHARACTER GENERATOR
                                   1194                *,     ADDRESS 3C5 SPECIFIED
                                   1195                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                   1196                *,     3277 DISPLAY CONSOLE
                                   1197                *,     MODEL 2
                                   1198                *,     FEATURE(S)
                                   1199                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                   1200                *,     AUDIBLE ALARM
                                   1201                *,     NUMERIC LOCK
                                   1202                *,     DOMESTIC CHARACTER GENERATOR
                                   1203                *,     ADDRESS 3C6 SPECIFIED
                                   1204                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                   1205                *,     3277 DISPLAY CONSOLE
                                   1206                *,     MODEL 2
                                   1207                *,     FEATURE(S)
                                   1208                *,     78-KEY EBCDIC TYPEWRITER KEYBOARD
                                   1209                *,     AUDIBLE ALARM
                                   1210                *,     NUMERIC LOCK
                                   1211                *,     DOMESTIC CHARACTER GENERATOR
                                   1212                *,     ADDRESS 3C7 SPECIFIED
                                   1213                *,     FIFO I/O REQUEST QUEUEING FOR 3277
                                   1214 *--------------------------------------------------------------------*
                                   1215 *        Channel 5:  Tape.                                           *
                                   1216 *--------------------------------------------------------------------*
                                   1217     CHANNEL   ADDRESS=5,TYPE=BLKMPXR
                                   1218                *,     CHANNEL 5 IS PRESENT
                                   1219                *,        IT IS A BLKMPXR CHANNEL
                                   1220     IOCONTRL  ADDRESS=580,UNIT=3803,MODEL=2
                                   1221                *,     3803 MAGNETIC TAPE CONTROL UNIT
                                   1222                *,        MODEL 2
                                   1223                *,        ADDRESS=58
                                   1224     IODEVICE  ADDRESS=(580,8),UNIT=3420,FEATURE=OPT1600,MODEL=6
                                   1225                *,     3420 MAGNETIC TAPE DRIVE
                                   1226                *,     MODEL 6
                                   1227                *,     FEATURE(S)
                                   1228                *,      OPT1600 SPECIFIED
                                   1229                *,     ADDRESS 580 SPECIFIED
                                   1230                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1231                *,     3420 MAGNETIC TAPE DRIVE
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1232                *,     MODEL 6
                                   1233                *,     FEATURE(S)
                                   1234                *,      OPT1600 SPECIFIED
                                   1235                *,     ADDRESS 581 SPECIFIED
                                   1236                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1237                *,     3420 MAGNETIC TAPE DRIVE
                                   1238                *,     MODEL 6
                                   1239                *,     FEATURE(S)
                                   1240                *,      OPT1600 SPECIFIED
                                   1241                *,     ADDRESS 582 SPECIFIED
                                   1242                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1243                *,     3420 MAGNETIC TAPE DRIVE
                                   1244                *,     MODEL 6
                                   1245                *,     FEATURE(S)
                                   1246                *,      OPT1600 SPECIFIED
                                   1247                *,     ADDRESS 583 SPECIFIED
                                   1248                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1249                *,     3420 MAGNETIC TAPE DRIVE
                                   1250                *,     MODEL 6
                                   1251                *,     FEATURE(S)
                                   1252                *,      OPT1600 SPECIFIED
                                   1253                *,     ADDRESS 584 SPECIFIED
                                   1254                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1255                *,     3420 MAGNETIC TAPE DRIVE
                                   1256                *,     MODEL 6
                                   1257                *,     FEATURE(S)
                                   1258                *,      OPT1600 SPECIFIED
                                   1259                *,     ADDRESS 585 SPECIFIED
                                   1260                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1261                *,     3420 MAGNETIC TAPE DRIVE
                                   1262                *,     MODEL 6
                                   1263                *,     FEATURE(S)
                                   1264                *,      OPT1600 SPECIFIED
                                   1265                *,     ADDRESS 586 SPECIFIED
                                   1266                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1267                *,     3420 MAGNETIC TAPE DRIVE
                                   1268                *,     MODEL 6
                                   1269                *,     FEATURE(S)
                                   1270                *,      OPT1600 SPECIFIED
                                   1271                *,     ADDRESS 587 SPECIFIED
                                   1272                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1273     IOCONTRL  ADDRESS=588,UNIT=3803,MODEL=2
                                   1274                *,     3803 MAGNETIC TAPE CONTROL UNIT
                                   1275                *,        MODEL 2
                                   1276                *,        ADDRESS=58
                                   1277     IODEVICE  ADDRESS=(588,8),UNIT=3420,FEATURE=OPT1600,MODEL=6
                                   1278                *,     3420 MAGNETIC TAPE DRIVE
                                   1279                *,     MODEL 6
                                   1280                *,     FEATURE(S)
                                   1281                *,      OPT1600 SPECIFIED
                                   1282                *,     ADDRESS 588 SPECIFIED
                                   1283                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1284                *,     3420 MAGNETIC TAPE DRIVE
                                   1285                *,     MODEL 6
                                   1286                *,     FEATURE(S)
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1287                *,      OPT1600 SPECIFIED
                                   1288                *,     ADDRESS 589 SPECIFIED
                                   1289                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1290                *,     3420 MAGNETIC TAPE DRIVE
                                   1291                *,     MODEL 6
                                   1292                *,     FEATURE(S)
                                   1293                *,      OPT1600 SPECIFIED
                                   1294                *,     ADDRESS 58A SPECIFIED
                                   1295                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1296                *,     3420 MAGNETIC TAPE DRIVE
                                   1297                *,     MODEL 6
                                   1298                *,     FEATURE(S)
                                   1299                *,      OPT1600 SPECIFIED
                                   1300                *,     ADDRESS 58B SPECIFIED
                                   1301                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1302                *,     3420 MAGNETIC TAPE DRIVE
                                   1303                *,     MODEL 6
                                   1304                *,     FEATURE(S)
                                   1305                *,      OPT1600 SPECIFIED
                                   1306                *,     ADDRESS 58C SPECIFIED
                                   1307                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1308                *,     3420 MAGNETIC TAPE DRIVE
                                   1309                *,     MODEL 6
                                   1310                *,     FEATURE(S)
                                   1311                *,      OPT1600 SPECIFIED
                                   1312                *,     ADDRESS 58D SPECIFIED
                                   1313                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1314                *,     3420 MAGNETIC TAPE DRIVE
                                   1315                *,     MODEL 6
                                   1316                *,     FEATURE(S)
                                   1317                *,      OPT1600 SPECIFIED
                                   1318                *,     ADDRESS 58E SPECIFIED
                                   1319                *,     FIFO I/O REQUEST QUEUEING FOR 3420
                                   1320                *,     3420 MAGNETIC TAPE DRIVE
                                   1321                *,     MODEL 6
                                   1322                *,     FEATURE(S)
                                   1323                *,      OPT1600 SPECIFIED
                                   1324                *,     ADDRESS 58F SPECIFIED
                                   1325                *,     FIFO I/O REQUEST QUEUEING FOR 3420
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1327 *====================================================================*
                                   1328 *                                                                    *
                                   1329 *        Esoteric unit names.                                        *
                                   1330 *                                                                    *
                                   1331 *====================================================================*

                                   1333     UNITNAME  NAME=TAPE,                                               +
                                                       UNIT=((580,8),(588,8))    3420
                                   1334                *,      MAXIMUM OF 100 UNIT NAMES ALLOWED
                                   1335                *,      THE MAXIMUM NO. OF UNITS ALLOWED IS 514*2-THE NUX
                                                       MBER OF NAMES
                                   1336                *,     TAPE IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   1337                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   1338                *,        580
                                   1339                *,        581
                                   1340                *,        582
                                   1341                *,        583
                                   1342                *,        584
                                   1343                *,        585
                                   1344                *,        586
                                   1345                *,        587
                                   1346                *,        588
                                   1347                *,        589
                                   1348                *,        58A
                                   1349                *,        58B
                                   1350                *,        58C
                                   1351                *,        58D
                                   1352                *,        58E
                                   1353                *,        58F
                                   1354     UNITNAME  NAME=SYSALLDA,                                           +
                                                       UNIT=((150,8),(158,8),    3330                          +
                                                       (250,8),(258,8),          3330                          +
                                                       (350,8),(358,8),          3330                          +
                                                       (130,8),                  2314                          +
                                                       (230,8),                  2314                          +
                                                       (330,8),                  2314                          +
                                                       (120,8))                  2311
                                   1355                *,     SYSALLDA IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   1356                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   1357                *,        150
                                   1358                *,        151
                                   1359                *,        152
                                   1360                *,        153
                                   1361                *,        154
                                   1362                *,        155
                                   1363                *,        156
                                   1364                *,        157
                                   1365                *,        158
                                   1366                *,        159
                                   1367                *,        15A
                                   1368                *,        15B
                                   1369                *,        15C
                                   1370                *,        15D
                                   1371                *,        15E
                                   1372                *,        15F
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1373                *,        250
                                   1374                *,        251
                                   1375                *,        252
                                   1376                *,        253
                                   1377                *,        254
                                   1378                *,        255
                                   1379                *,        256
                                   1380                *,        257
                                   1381                *,        258
                                   1382                *,        259
                                   1383                *,        25A
                                   1384                *,        25B
                                   1385                *,        25C
                                   1386                *,        25D
                                   1387                *,        25E
                                   1388                *,        25F
                                   1389                *,        350
                                   1390                *,        351
                                   1391                *,        352
                                   1392                *,        353
                                   1393                *,        354
                                   1394                *,        355
                                   1395                *,        356
                                   1396                *,        357
                                   1397                *,        358
                                   1398                *,        359
                                   1399                *,        35A
                                   1400                *,        35B
                                   1401                *,        35C
                                   1402                *,        35D
                                   1403                *,        35E
                                   1404                *,        35F
                                   1405                *,        130
                                   1406                *,        131
                                   1407                *,        132
                                   1408                *,        133
                                   1409                *,        134
                                   1410                *,        135
                                   1411                *,        136
                                   1412                *,        137
                                   1413                *,        230
                                   1414                *,        231
                                   1415                *,        232
                                   1416                *,        233
                                   1417                *,        234
                                   1418                *,        235
                                   1419                *,        236
                                   1420                *,        237
                                   1421                *,        330
                                   1422                *,        331
                                   1423                *,        332
                                   1424                *,        333
                                   1425                *,        334
                                   1426                *,        335
                                   1427                *,        336
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1428                *,        337
                                   1429                *,        120
                                   1430                *,        121
                                   1431                *,        122
                                   1432                *,        123
                                   1433                *,        124
                                   1434                *,        125
                                   1435                *,        126
                                   1436                *,        127
                                   1437     UNITNAME  NAME=SYSDA,                                              +
                                                       UNIT=((150,8),(158,8),    3330                          +
                                                       (250,8),(258,8),          3330                          +
                                                       (350,8),(358,8))          3330
                                   1438                *,     SYSDA IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   1439                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   1440                *,        150
                                   1441                *,        151
                                   1442                *,        152
                                   1443                *,        153
                                   1444                *,        154
                                   1445                *,        155
                                   1446                *,        156
                                   1447                *,        157
                                   1448                *,        158
                                   1449                *,        159
                                   1450                *,        15A
                                   1451                *,        15B
                                   1452                *,        15C
                                   1453                *,        15D
                                   1454                *,        15E
                                   1455                *,        15F
                                   1456                *,        250
                                   1457                *,        251
                                   1458                *,        252
                                   1459                *,        253
                                   1460                *,        254
                                   1461                *,        255
                                   1462                *,        256
                                   1463                *,        257
                                   1464                *,        258
                                   1465                *,        259
                                   1466                *,        25A
                                   1467                *,        25B
                                   1468                *,        25C
                                   1469                *,        25D
                                   1470                *,        25E
                                   1471                *,        25F
                                   1472                *,        350
                                   1473                *,        351
                                   1474                *,        352
                                   1475                *,        353
                                   1476                *,        354
                                   1477                *,        355
                                   1478                *,        356
                                   1479                *,        357
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1480                *,        358
                                   1481                *,        359
                                   1482                *,        35A
                                   1483                *,        35B
                                   1484                *,        35C
                                   1485                *,        35D
                                   1486                *,        35E
                                   1487                *,        35F
                                   1488     UNITNAME  NAME=DISK,                                               +
                                                       UNIT=((150,8),(158,8),    3330                          +
                                                       (250,8),(258,8),          3330                          +
                                                       (350,8),(358,8))          3330
                                   1489                *,     DISK IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   1490                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   1491                *,        150
                                   1492                *,        151
                                   1493                *,        152
                                   1494                *,        153
                                   1495                *,        154
                                   1496                *,        155
                                   1497                *,        156
                                   1498                *,        157
                                   1499                *,        158
                                   1500                *,        159
                                   1501                *,        15A
                                   1502                *,        15B
                                   1503                *,        15C
                                   1504                *,        15D
                                   1505                *,        15E
                                   1506                *,        15F
                                   1507                *,        250
                                   1508                *,        251
                                   1509                *,        252
                                   1510                *,        253
                                   1511                *,        254
                                   1512                *,        255
                                   1513                *,        256
                                   1514                *,        257
                                   1515                *,        258
                                   1516                *,        259
                                   1517                *,        25A
                                   1518                *,        25B
                                   1519                *,        25C
                                   1520                *,        25D
                                   1521                *,        25E
                                   1522                *,        25F
                                   1523                *,        350
                                   1524                *,        351
                                   1525                *,        352
                                   1526                *,        353
                                   1527                *,        354
                                   1528                *,        355
                                   1529                *,        356
                                   1530                *,        357
                                   1531                *,        358
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1532                *,        359
                                   1533                *,        35A
                                   1534                *,        35B
                                   1535                *,        35C
                                   1536                *,        35D
                                   1537                *,        35E
                                   1538                *,        35F
                                   1539     UNITNAME  NAME=SYSSQ,                                              +
                                                       UNIT=((150,8),(158,8),    3330                          +
                                                       (250,8),(258,8),          3330                          +
                                                       (350,8),(358,8))          3330
                                   1540                *,     SYSSQ IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   1541                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   1542                *,        150
                                   1543                *,        151
                                   1544                *,        152
                                   1545                *,        153
                                   1546                *,        154
                                   1547                *,        155
                                   1548                *,        156
                                   1549                *,        157
                                   1550                *,        158
                                   1551                *,        159
                                   1552                *,        15A
                                   1553                *,        15B
                                   1554                *,        15C
                                   1555                *,        15D
                                   1556                *,        15E
                                   1557                *,        15F
                                   1558                *,        250
                                   1559                *,        251
                                   1560                *,        252
                                   1561                *,        253
                                   1562                *,        254
                                   1563                *,        255
                                   1564                *,        256
                                   1565                *,        257
                                   1566                *,        258
                                   1567                *,        259
                                   1568                *,        25A
                                   1569                *,        25B
                                   1570                *,        25C
                                   1571                *,        25D
                                   1572                *,        25E
                                   1573                *,        25F
                                   1574                *,        350
                                   1575                *,        351
                                   1576                *,        352
                                   1577                *,        353
                                   1578                *,        354
                                   1579                *,        355
                                   1580                *,        356
                                   1581                *,        357
                                   1582                *,        358
                                   1583                *,        359
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1584                *,        35A
                                   1585                *,        35B
                                   1586                *,        35C
                                   1587                *,        35D
                                   1588                *,        35E
                                   1589                *,        35F
                                   1590     UNITNAME  NAME=SORT,                                               +
                                                       UNIT=((130,8),            2314                          +
                                                       (230,8),                  2314                          +
                                                       (330,8))                  2314
                                   1591                *,     SORT IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   1592                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   1593                *,        130
                                   1594                *,        131
                                   1595                *,        132
                                   1596                *,        133
                                   1597                *,        134
                                   1598                *,        135
                                   1599                *,        136
                                   1600                *,        137
                                   1601                *,        230
                                   1602                *,        231
                                   1603                *,        232
                                   1604                *,        233
                                   1605                *,        234
                                   1606                *,        235
                                   1607                *,        236
                                   1608                *,        237
                                   1609                *,        330
                                   1610                *,        331
                                   1611                *,        332
                                   1612                *,        333
                                   1613                *,        334
                                   1614                *,        335
                                   1615                *,        336
                                   1616                *,        337
                                   1617     UNITNAME  NAME=SORTWORK,                                           +
                                                       UNIT=((130,8),            2314                          +
                                                       (230,8),                  2314                          +
                                                       (330,8))                  2314
                                   1618                *,     SORTWORK IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   1619                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   1620                *,        130
                                   1621                *,        131
                                   1622                *,        132
                                   1623                *,        133
                                   1624                *,        134
                                   1625                *,        135
                                   1626                *,        136
                                   1627                *,        137
                                   1628                *,        230
                                   1629                *,        231
                                   1630                *,        232
                                   1631                *,        233
                                   1632                *,        234
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1633                *,        235
                                   1634                *,        236
                                   1635                *,        237
                                   1636                *,        330
                                   1637                *,        331
                                   1638                *,        332
                                   1639                *,        333
                                   1640                *,        334
                                   1641                *,        335
                                   1642                *,        336
                                   1643                *,        337
                                   1644     UNITNAME  NAME=SORTWK,                                             +
                                                       UNIT=((130,8),            2314                          +
                                                       (230,8),                  2314                          +
                                                       (330,8))                  2314
                                   1645                *,     SORTWK IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   1646                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   1647                *,        130
                                   1648                *,        131
                                   1649                *,        132
                                   1650                *,        133
                                   1651                *,        134
                                   1652                *,        135
                                   1653                *,        136
                                   1654                *,        137
                                   1655                *,        230
                                   1656                *,        231
                                   1657                *,        232
                                   1658                *,        233
                                   1659                *,        234
                                   1660                *,        235
                                   1661                *,        236
                                   1662                *,        237
                                   1663                *,        330
                                   1664                *,        331
                                   1665                *,        332
                                   1666                *,        333
                                   1667                *,        334
                                   1668                *,        335
                                   1669                *,        336
                                   1670                *,        337
                                   1671     UNITNAME  NAME=BSC1,                                               +
                                                       UNIT=((090,8))            Nonswitched point-to-point BSC
                                   1672                *,     BSC1 IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   1673                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   1674                *,        090
                                   1675                *,        091
                                   1676                *,        092
                                   1677                *,        093
                                   1678                *,        094
                                   1679                *,        095
                                   1680                *,        096
                                   1681                *,        097
                                   1682     UNITNAME  NAME=BSC2,                                               +
                                                       UNIT=((0A0,8))            Switched point-to-point BSC
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1683                *,     BSC2 IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   1684                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   1685                *,        0A0
                                   1686                *,        0A1
                                   1687                *,        0A2
                                   1688                *,        0A3
                                   1689                *,        0A4
                                   1690                *,        0A5
                                   1691                *,        0A6
                                   1692                *,        0A7
                                   1693     UNITNAME  NAME=BSC3,                                               +
                                                       UNIT=((0B0,8))            Nonswitched multipoint BSC
                                   1694                *,     BSC3 IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   1695                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   1696                *,        0B0
                                   1697                *,        0B1
                                   1698                *,        0B2
                                   1699                *,        0B3
                                   1700                *,        0B4
                                   1701                *,        0B5
                                   1702                *,        0B6
                                   1703                *,        0B7
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1705 *====================================================================*
                                   1706 *                                                                    *
                                   1707 *        ASP-related definitions.                                    *
                                   1708 *                                                                    *
                                   1709 *        o  SVCTABLE adds an SVC table entry for the ASP             *
                                   1710 *           type 1 SVC, SVC 246.                                     *
                                   1711 *        o  RESMODS includes the ASP SVC in the nucleus.             *
                                   1712 *        o  Device 02F is a 1052 CTC for intersystem                 *
                                   1713 *           communication.  It is defined as the master              *
                                   1714 *           console's alternate to give ASP a hook to capture        *
                                   1715 *           console traffic.                                         *
                                   1716 *        o  Devices 63F, 64F and 65F are 2400 channel to             *
                                   1717 *           channel adapters for intersystem communication           *
                                   1718 *           with other ASP systems when this system acts as          *
                                   1719 *           an ASP support processor.                                *
                                   1720 *        o  Devices (660,661,...,68E,68F) are 2400 channel           *
                                   1721 *           to channel adapters for spooled I/O.                     *
                                   1722 *        o  UNITNAME defines an esoteric for the 2400 CTCs.          *
                                   1723 *                                                                    *
                                   1724 *====================================================================*

                                   1726     SVCTABLE  SVC-246-T1-S0
                                   1727     RESMODS   PDS=SYS1.ASP,MEMBERS=(ASPSVC)
                                   1728                *,                LISTED MEMBERS OF SYS1.ASP ARE RESIDENX
                                                       T
                                   1729                *,         ASPSVC
                                   1730     IODEVICE  ADDRESS=02F,UNIT=1052,MODEL=7,FEATURE=CTC
                                   1731                *,     1052 PRINTER KEYBOARD
                                   1732                *,      MODEL 7
                                   1733                *,        CHANNEL TO CHANNEL ADAPTER
                                   1734                *,     ADDRESS 02F SPECIFIED
                                   1735                *,     FIFO I/O REQUEST QUEUEING FOR 1052
                                   1736     CHANNEL   ADDRESS=6,TYPE=BLKMPXR
                                   1737                *,     CHANNEL 6 IS PRESENT
                                   1738                *,        IT IS A BLKMPXR CHANNEL
                                   1739     IOCONTRL  ADDRESS=638,UNIT=2803,MODEL=1,FEATURE=7-TRACK
                                   1740                *,     2803 MAGNETIC TAPE CONTROL UNIT
                                   1741                *,        MODEL 1
                                   1742                *,        7-TRACK COMPATIBILITY FEATURE
                                   1743                *,        ADDRESS=63
                                   1744     IODEVICE  ADDRESS=63F,UNIT=2401,MODEL=1,FEATURE=(CTC,7-TRACK)
                                   1745                *,     2401 MAGNETIC TAPE DRIVE
                                   1746                *,     MODEL 1
                                   1747                *,     FEATURE(S)
                                   1748                *,        CHANNEL TO CHANNEL DEVICE
                                   1749                *,        7-TRACK HEAD
                                   1750                *,     ADDRESS 63F SPECIFIED
                                   1751                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1752     IOCONTRL  ADDRESS=648,UNIT=2803,MODEL=1,FEATURE=7-TRACK
                                   1753                *,     2803 MAGNETIC TAPE CONTROL UNIT
                                   1754                *,        MODEL 1
                                   1755                *,        7-TRACK COMPATIBILITY FEATURE
                                   1756                *,        ADDRESS=64
                                   1757     IODEVICE  ADDRESS=64F,UNIT=2401,MODEL=1,FEATURE=(CTC,7-TRACK)
                                   1758                *,     2401 MAGNETIC TAPE DRIVE
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1759                *,     MODEL 1
                                   1760                *,     FEATURE(S)
                                   1761                *,        CHANNEL TO CHANNEL DEVICE
                                   1762                *,        7-TRACK HEAD
                                   1763                *,     ADDRESS 64F SPECIFIED
                                   1764                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1765     IOCONTRL  ADDRESS=658,UNIT=2803,MODEL=1,FEATURE=7-TRACK
                                   1766                *,     2803 MAGNETIC TAPE CONTROL UNIT
                                   1767                *,        MODEL 1
                                   1768                *,        7-TRACK COMPATIBILITY FEATURE
                                   1769                *,        ADDRESS=65
                                   1770     IODEVICE  ADDRESS=65F,UNIT=2401,MODEL=1,FEATURE=(CTC,7-TRACK)
                                   1771                *,     2401 MAGNETIC TAPE DRIVE
                                   1772                *,     MODEL 1
                                   1773                *,     FEATURE(S)
                                   1774                *,        CHANNEL TO CHANNEL DEVICE
                                   1775                *,        7-TRACK HEAD
                                   1776                *,     ADDRESS 65F SPECIFIED
                                   1777                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1778     IOCONTRL  ADDRESS=660,UNIT=2803,MODEL=1,FEATURE=7-TRACK
                                   1779                *,     2803 MAGNETIC TAPE CONTROL UNIT
                                   1780                *,        MODEL 1
                                   1781                *,        7-TRACK COMPATIBILITY FEATURE
                                   1782                *,        ADDRESS=66
                                   1783     IODEVICE  ADDRESS=(660,8),UNIT=2401,MODEL=1,FEATURE=(CTC,7-TRACK)
                                   1784                *,     2401 MAGNETIC TAPE DRIVE
                                   1785                *,     MODEL 1
                                   1786                *,     FEATURE(S)
                                   1787                *,        CHANNEL TO CHANNEL DEVICE
                                   1788                *,        7-TRACK HEAD
                                   1789                *,     ADDRESS 660 SPECIFIED
                                   1790                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1791                *,     2401 MAGNETIC TAPE DRIVE
                                   1792                *,     MODEL 1
                                   1793                *,     FEATURE(S)
                                   1794                *,        CHANNEL TO CHANNEL DEVICE
                                   1795                *,        7-TRACK HEAD
                                   1796                *,     ADDRESS 661 SPECIFIED
                                   1797                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1798                *,     2401 MAGNETIC TAPE DRIVE
                                   1799                *,     MODEL 1
                                   1800                *,     FEATURE(S)
                                   1801                *,        CHANNEL TO CHANNEL DEVICE
                                   1802                *,        7-TRACK HEAD
                                   1803                *,     ADDRESS 662 SPECIFIED
                                   1804                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1805                *,     2401 MAGNETIC TAPE DRIVE
                                   1806                *,     MODEL 1
                                   1807                *,     FEATURE(S)
                                   1808                *,        CHANNEL TO CHANNEL DEVICE
                                   1809                *,        7-TRACK HEAD
                                   1810                *,     ADDRESS 663 SPECIFIED
                                   1811                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1812                *,     2401 MAGNETIC TAPE DRIVE
                                   1813                *,     MODEL 1
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1814                *,     FEATURE(S)
                                   1815                *,        CHANNEL TO CHANNEL DEVICE
                                   1816                *,        7-TRACK HEAD
                                   1817                *,     ADDRESS 664 SPECIFIED
                                   1818                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1819                *,     2401 MAGNETIC TAPE DRIVE
                                   1820                *,     MODEL 1
                                   1821                *,     FEATURE(S)
                                   1822                *,        CHANNEL TO CHANNEL DEVICE
                                   1823                *,        7-TRACK HEAD
                                   1824                *,     ADDRESS 665 SPECIFIED
                                   1825                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1826                *,     2401 MAGNETIC TAPE DRIVE
                                   1827                *,     MODEL 1
                                   1828                *,     FEATURE(S)
                                   1829                *,        CHANNEL TO CHANNEL DEVICE
                                   1830                *,        7-TRACK HEAD
                                   1831                *,     ADDRESS 666 SPECIFIED
                                   1832                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1833                *,     2401 MAGNETIC TAPE DRIVE
                                   1834                *,     MODEL 1
                                   1835                *,     FEATURE(S)
                                   1836                *,        CHANNEL TO CHANNEL DEVICE
                                   1837                *,        7-TRACK HEAD
                                   1838                *,     ADDRESS 667 SPECIFIED
                                   1839                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1840     IOCONTRL  ADDRESS=668,UNIT=2803,MODEL=1,FEATURE=7-TRACK
                                   1841                *,     2803 MAGNETIC TAPE CONTROL UNIT
                                   1842                *,        MODEL 1
                                   1843                *,        7-TRACK COMPATIBILITY FEATURE
                                   1844                *,        ADDRESS=66
                                   1845     IODEVICE  ADDRESS=(668,8),UNIT=2401,MODEL=1,FEATURE=(CTC,7-TRACK)
                                   1846                *,     2401 MAGNETIC TAPE DRIVE
                                   1847                *,     MODEL 1
                                   1848                *,     FEATURE(S)
                                   1849                *,        CHANNEL TO CHANNEL DEVICE
                                   1850                *,        7-TRACK HEAD
                                   1851                *,     ADDRESS 668 SPECIFIED
                                   1852                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1853                *,     2401 MAGNETIC TAPE DRIVE
                                   1854                *,     MODEL 1
                                   1855                *,     FEATURE(S)
                                   1856                *,        CHANNEL TO CHANNEL DEVICE
                                   1857                *,        7-TRACK HEAD
                                   1858                *,     ADDRESS 669 SPECIFIED
                                   1859                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1860                *,     2401 MAGNETIC TAPE DRIVE
                                   1861                *,     MODEL 1
                                   1862                *,     FEATURE(S)
                                   1863                *,        CHANNEL TO CHANNEL DEVICE
                                   1864                *,        7-TRACK HEAD
                                   1865                *,     ADDRESS 66A SPECIFIED
                                   1866                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1867                *,     2401 MAGNETIC TAPE DRIVE
                                   1868                *,     MODEL 1
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1869                *,     FEATURE(S)
                                   1870                *,        CHANNEL TO CHANNEL DEVICE
                                   1871                *,        7-TRACK HEAD
                                   1872                *,     ADDRESS 66B SPECIFIED
                                   1873                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1874                *,     2401 MAGNETIC TAPE DRIVE
                                   1875                *,     MODEL 1
                                   1876                *,     FEATURE(S)
                                   1877                *,        CHANNEL TO CHANNEL DEVICE
                                   1878                *,        7-TRACK HEAD
                                   1879                *,     ADDRESS 66C SPECIFIED
                                   1880                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1881                *,     2401 MAGNETIC TAPE DRIVE
                                   1882                *,     MODEL 1
                                   1883                *,     FEATURE(S)
                                   1884                *,        CHANNEL TO CHANNEL DEVICE
                                   1885                *,        7-TRACK HEAD
                                   1886                *,     ADDRESS 66D SPECIFIED
                                   1887                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1888                *,     2401 MAGNETIC TAPE DRIVE
                                   1889                *,     MODEL 1
                                   1890                *,     FEATURE(S)
                                   1891                *,        CHANNEL TO CHANNEL DEVICE
                                   1892                *,        7-TRACK HEAD
                                   1893                *,     ADDRESS 66E SPECIFIED
                                   1894                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1895                *,     2401 MAGNETIC TAPE DRIVE
                                   1896                *,     MODEL 1
                                   1897                *,     FEATURE(S)
                                   1898                *,        CHANNEL TO CHANNEL DEVICE
                                   1899                *,        7-TRACK HEAD
                                   1900                *,     ADDRESS 66F SPECIFIED
                                   1901                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1902     IOCONTRL  ADDRESS=670,UNIT=2803,MODEL=1,FEATURE=7-TRACK
                                   1903                *,     2803 MAGNETIC TAPE CONTROL UNIT
                                   1904                *,        MODEL 1
                                   1905                *,        7-TRACK COMPATIBILITY FEATURE
                                   1906                *,        ADDRESS=67
                                   1907     IODEVICE  ADDRESS=(670,8),UNIT=2401,MODEL=1,FEATURE=(CTC,7-TRACK)
                                   1908                *,     2401 MAGNETIC TAPE DRIVE
                                   1909                *,     MODEL 1
                                   1910                *,     FEATURE(S)
                                   1911                *,        CHANNEL TO CHANNEL DEVICE
                                   1912                *,        7-TRACK HEAD
                                   1913                *,     ADDRESS 670 SPECIFIED
                                   1914                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1915                *,     2401 MAGNETIC TAPE DRIVE
                                   1916                *,     MODEL 1
                                   1917                *,     FEATURE(S)
                                   1918                *,        CHANNEL TO CHANNEL DEVICE
                                   1919                *,        7-TRACK HEAD
                                   1920                *,     ADDRESS 671 SPECIFIED
                                   1921                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1922                *,     2401 MAGNETIC TAPE DRIVE
                                   1923                *,     MODEL 1
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1924                *,     FEATURE(S)
                                   1925                *,        CHANNEL TO CHANNEL DEVICE
                                   1926                *,        7-TRACK HEAD
                                   1927                *,     ADDRESS 672 SPECIFIED
                                   1928                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1929                *,     2401 MAGNETIC TAPE DRIVE
                                   1930                *,     MODEL 1
                                   1931                *,     FEATURE(S)
                                   1932                *,        CHANNEL TO CHANNEL DEVICE
                                   1933                *,        7-TRACK HEAD
                                   1934                *,     ADDRESS 673 SPECIFIED
                                   1935                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1936                *,     2401 MAGNETIC TAPE DRIVE
                                   1937                *,     MODEL 1
                                   1938                *,     FEATURE(S)
                                   1939                *,        CHANNEL TO CHANNEL DEVICE
                                   1940                *,        7-TRACK HEAD
                                   1941                *,     ADDRESS 674 SPECIFIED
                                   1942                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1943                *,     2401 MAGNETIC TAPE DRIVE
                                   1944                *,     MODEL 1
                                   1945                *,     FEATURE(S)
                                   1946                *,        CHANNEL TO CHANNEL DEVICE
                                   1947                *,        7-TRACK HEAD
                                   1948                *,     ADDRESS 675 SPECIFIED
                                   1949                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1950                *,     2401 MAGNETIC TAPE DRIVE
                                   1951                *,     MODEL 1
                                   1952                *,     FEATURE(S)
                                   1953                *,        CHANNEL TO CHANNEL DEVICE
                                   1954                *,        7-TRACK HEAD
                                   1955                *,     ADDRESS 676 SPECIFIED
                                   1956                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1957                *,     2401 MAGNETIC TAPE DRIVE
                                   1958                *,     MODEL 1
                                   1959                *,     FEATURE(S)
                                   1960                *,        CHANNEL TO CHANNEL DEVICE
                                   1961                *,        7-TRACK HEAD
                                   1962                *,     ADDRESS 677 SPECIFIED
                                   1963                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1964     IOCONTRL  ADDRESS=678,UNIT=2803,MODEL=1,FEATURE=7-TRACK
                                   1965                *,     2803 MAGNETIC TAPE CONTROL UNIT
                                   1966                *,        MODEL 1
                                   1967                *,        7-TRACK COMPATIBILITY FEATURE
                                   1968                *,        ADDRESS=67
                                   1969     IODEVICE  ADDRESS=(678,8),UNIT=2401,MODEL=1,FEATURE=(CTC,7-TRACK)
                                   1970                *,     2401 MAGNETIC TAPE DRIVE
                                   1971                *,     MODEL 1
                                   1972                *,     FEATURE(S)
                                   1973                *,        CHANNEL TO CHANNEL DEVICE
                                   1974                *,        7-TRACK HEAD
                                   1975                *,     ADDRESS 678 SPECIFIED
                                   1976                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1977                *,     2401 MAGNETIC TAPE DRIVE
                                   1978                *,     MODEL 1
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1979                *,     FEATURE(S)
                                   1980                *,        CHANNEL TO CHANNEL DEVICE
                                   1981                *,        7-TRACK HEAD
                                   1982                *,     ADDRESS 679 SPECIFIED
                                   1983                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1984                *,     2401 MAGNETIC TAPE DRIVE
                                   1985                *,     MODEL 1
                                   1986                *,     FEATURE(S)
                                   1987                *,        CHANNEL TO CHANNEL DEVICE
                                   1988                *,        7-TRACK HEAD
                                   1989                *,     ADDRESS 67A SPECIFIED
                                   1990                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1991                *,     2401 MAGNETIC TAPE DRIVE
                                   1992                *,     MODEL 1
                                   1993                *,     FEATURE(S)
                                   1994                *,        CHANNEL TO CHANNEL DEVICE
                                   1995                *,        7-TRACK HEAD
                                   1996                *,     ADDRESS 67B SPECIFIED
                                   1997                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   1998                *,     2401 MAGNETIC TAPE DRIVE
                                   1999                *,     MODEL 1
                                   2000                *,     FEATURE(S)
                                   2001                *,        CHANNEL TO CHANNEL DEVICE
                                   2002                *,        7-TRACK HEAD
                                   2003                *,     ADDRESS 67C SPECIFIED
                                   2004                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2005                *,     2401 MAGNETIC TAPE DRIVE
                                   2006                *,     MODEL 1
                                   2007                *,     FEATURE(S)
                                   2008                *,        CHANNEL TO CHANNEL DEVICE
                                   2009                *,        7-TRACK HEAD
                                   2010                *,     ADDRESS 67D SPECIFIED
                                   2011                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2012                *,     2401 MAGNETIC TAPE DRIVE
                                   2013                *,     MODEL 1
                                   2014                *,     FEATURE(S)
                                   2015                *,        CHANNEL TO CHANNEL DEVICE
                                   2016                *,        7-TRACK HEAD
                                   2017                *,     ADDRESS 67E SPECIFIED
                                   2018                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2019                *,     2401 MAGNETIC TAPE DRIVE
                                   2020                *,     MODEL 1
                                   2021                *,     FEATURE(S)
                                   2022                *,        CHANNEL TO CHANNEL DEVICE
                                   2023                *,        7-TRACK HEAD
                                   2024                *,     ADDRESS 67F SPECIFIED
                                   2025                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2026     IOCONTRL  ADDRESS=680,UNIT=2803,MODEL=1,FEATURE=7-TRACK
                                   2027                *,     2803 MAGNETIC TAPE CONTROL UNIT
                                   2028                *,        MODEL 1
                                   2029                *,        7-TRACK COMPATIBILITY FEATURE
                                   2030                *,        ADDRESS=68
                                   2031     IODEVICE  ADDRESS=(680,8),UNIT=2401,MODEL=1,FEATURE=(CTC,7-TRACK)
                                   2032                *,     2401 MAGNETIC TAPE DRIVE
                                   2033                *,     MODEL 1
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2034                *,     FEATURE(S)
                                   2035                *,        CHANNEL TO CHANNEL DEVICE
                                   2036                *,        7-TRACK HEAD
                                   2037                *,     ADDRESS 680 SPECIFIED
                                   2038                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2039                *,     2401 MAGNETIC TAPE DRIVE
                                   2040                *,     MODEL 1
                                   2041                *,     FEATURE(S)
                                   2042                *,        CHANNEL TO CHANNEL DEVICE
                                   2043                *,        7-TRACK HEAD
                                   2044                *,     ADDRESS 681 SPECIFIED
                                   2045                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2046                *,     2401 MAGNETIC TAPE DRIVE
                                   2047                *,     MODEL 1
                                   2048                *,     FEATURE(S)
                                   2049                *,        CHANNEL TO CHANNEL DEVICE
                                   2050                *,        7-TRACK HEAD
                                   2051                *,     ADDRESS 682 SPECIFIED
                                   2052                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2053                *,     2401 MAGNETIC TAPE DRIVE
                                   2054                *,     MODEL 1
                                   2055                *,     FEATURE(S)
                                   2056                *,        CHANNEL TO CHANNEL DEVICE
                                   2057                *,        7-TRACK HEAD
                                   2058                *,     ADDRESS 683 SPECIFIED
                                   2059                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2060                *,     2401 MAGNETIC TAPE DRIVE
                                   2061                *,     MODEL 1
                                   2062                *,     FEATURE(S)
                                   2063                *,        CHANNEL TO CHANNEL DEVICE
                                   2064                *,        7-TRACK HEAD
                                   2065                *,     ADDRESS 684 SPECIFIED
                                   2066                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2067                *,     2401 MAGNETIC TAPE DRIVE
                                   2068                *,     MODEL 1
                                   2069                *,     FEATURE(S)
                                   2070                *,        CHANNEL TO CHANNEL DEVICE
                                   2071                *,        7-TRACK HEAD
                                   2072                *,     ADDRESS 685 SPECIFIED
                                   2073                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2074                *,     2401 MAGNETIC TAPE DRIVE
                                   2075                *,     MODEL 1
                                   2076                *,     FEATURE(S)
                                   2077                *,        CHANNEL TO CHANNEL DEVICE
                                   2078                *,        7-TRACK HEAD
                                   2079                *,     ADDRESS 686 SPECIFIED
                                   2080                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2081                *,     2401 MAGNETIC TAPE DRIVE
                                   2082                *,     MODEL 1
                                   2083                *,     FEATURE(S)
                                   2084                *,        CHANNEL TO CHANNEL DEVICE
                                   2085                *,        7-TRACK HEAD
                                   2086                *,     ADDRESS 687 SPECIFIED
                                   2087                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2088     IOCONTRL  ADDRESS=688,UNIT=2803,MODEL=1,FEATURE=7-TRACK
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2089                *,     2803 MAGNETIC TAPE CONTROL UNIT
                                   2090                *,        MODEL 1
                                   2091                *,        7-TRACK COMPATIBILITY FEATURE
                                   2092                *,        ADDRESS=68
                                   2093     IODEVICE  ADDRESS=(688,8),UNIT=2401,MODEL=1,FEATURE=(CTC,7-TRACK)
                                   2094                *,     2401 MAGNETIC TAPE DRIVE
                                   2095                *,     MODEL 1
                                   2096                *,     FEATURE(S)
                                   2097                *,        CHANNEL TO CHANNEL DEVICE
                                   2098                *,        7-TRACK HEAD
                                   2099                *,     ADDRESS 688 SPECIFIED
                                   2100                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2101                *,     2401 MAGNETIC TAPE DRIVE
                                   2102                *,     MODEL 1
                                   2103                *,     FEATURE(S)
                                   2104                *,        CHANNEL TO CHANNEL DEVICE
                                   2105                *,        7-TRACK HEAD
                                   2106                *,     ADDRESS 689 SPECIFIED
                                   2107                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2108                *,     2401 MAGNETIC TAPE DRIVE
                                   2109                *,     MODEL 1
                                   2110                *,     FEATURE(S)
                                   2111                *,        CHANNEL TO CHANNEL DEVICE
                                   2112                *,        7-TRACK HEAD
                                   2113                *,     ADDRESS 68A SPECIFIED
                                   2114                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2115                *,     2401 MAGNETIC TAPE DRIVE
                                   2116                *,     MODEL 1
                                   2117                *,     FEATURE(S)
                                   2118                *,        CHANNEL TO CHANNEL DEVICE
                                   2119                *,        7-TRACK HEAD
                                   2120                *,     ADDRESS 68B SPECIFIED
                                   2121                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2122                *,     2401 MAGNETIC TAPE DRIVE
                                   2123                *,     MODEL 1
                                   2124                *,     FEATURE(S)
                                   2125                *,        CHANNEL TO CHANNEL DEVICE
                                   2126                *,        7-TRACK HEAD
                                   2127                *,     ADDRESS 68C SPECIFIED
                                   2128                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2129                *,     2401 MAGNETIC TAPE DRIVE
                                   2130                *,     MODEL 1
                                   2131                *,     FEATURE(S)
                                   2132                *,        CHANNEL TO CHANNEL DEVICE
                                   2133                *,        7-TRACK HEAD
                                   2134                *,     ADDRESS 68D SPECIFIED
                                   2135                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2136                *,     2401 MAGNETIC TAPE DRIVE
                                   2137                *,     MODEL 1
                                   2138                *,     FEATURE(S)
                                   2139                *,        CHANNEL TO CHANNEL DEVICE
                                   2140                *,        7-TRACK HEAD
                                   2141                *,     ADDRESS 68E SPECIFIED
                                   2142                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2143                *,     2401 MAGNETIC TAPE DRIVE
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2144                *,     MODEL 1
                                   2145                *,     FEATURE(S)
                                   2146                *,        CHANNEL TO CHANNEL DEVICE
                                   2147                *,        7-TRACK HEAD
                                   2148                *,     ADDRESS 68F SPECIFIED
                                   2149                *,     FIFO I/O REQUEST QUEUEING FOR 2401
                                   2150     UNITNAME  NAME=CTC,                                                +
                                                       UNIT=((660,8),(668,8),    CTC                           +
                                                       (670,8),(678,8),          CTC                           +
                                                       (680,8),(688,8))          CTC
                                   2151                *,     CTC IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   2152                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   2153                *,        660
                                   2154                *,        661
                                   2155                *,        662
                                   2156                *,        663
                                   2157                *,        664
                                   2158                *,        665
                                   2159                *,        666
                                   2160                *,        667
                                   2161                *,        668
                                   2162                *,        669
                                   2163                *,        66A
                                   2164                *,        66B
                                   2165                *,        66C
                                   2166                *,        66D
                                   2167                *,        66E
                                   2168                *,        66F
                                   2169                *,        670
                                   2170                *,        671
                                   2171                *,        672
                                   2172                *,        673
                                   2173                *,        674
                                   2174                *,        675
                                   2175                *,        676
                                   2176                *,        677
                                   2177                *,        678
                                   2178                *,        679
                                   2179                *,        67A
                                   2180                *,        67B
                                   2181                *,        67C
                                   2182                *,        67D
                                   2183                *,        67E
                                   2184                *,        67F
                                   2185                *,        680
                                   2186                *,        681
                                   2187                *,        682
                                   2188                *,        683
                                   2189                *,        684
                                   2190                *,        685
                                   2191                *,        686
                                   2192                *,        687
                                   2193                *,        688
                                   2194                *,        689
                                   2195                *,        68A
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2196                *,        68B
                                   2197                *,        68C
                                   2198                *,        68D
                                   2199                *,        68E
                                   2200                *,        68F
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2202 *====================================================================*
                                   2203 *                                                                    *
                                   2204 *          HASP-related definitions.                                 *
                                   2205 *                                                                    *
                                   2206 *        o  SVCTABLE adds an SVC table entry for the HASP            *
                                   2207 *           type 1 SVC, SVC 220.                                     *
                                   2208 *        o  Devices 700-70F are HASP pseudoreader devices.           *
                                   2209 *           700 is reserved for HASP HOSRDR use.                     *
                                   2210 *        o  Devices 720-74F are HASP pseudoprinter devices.          *
                                   2211 *           720 is reserved for HASP use in retrieving SMBs.         *
                                   2212 *        o  Devices 770-77F are HASP pseudopunch devices.            *
                                   2213 *        o  Devices 780-78F are HASP internal readers.               *
                                   2214 *        o  UNITNAME macros for R, A, B and INTRDR define            *
                                   2215 *           esoterics required by HASP for pseudodevices.            *
                                   2216 *                                                                    *
                                   2217 *====================================================================*

                                   2219     SVCTABLE  SVC-220-T1-S0                      HASP SVC
                                   2220     CHANNEL   ADDRESS=7,TYPE=BLKMPXR             HASP pseudo devices
                                   2221                *,     CHANNEL 7 IS PRESENT
                                   2222                *,        IT IS A BLKMPXR CHANNEL
                                   2223     IODEVICE  ADDRESS=(700,16),UNIT=HASP-2540R   Pseudo readers
                                   2224                *,     HASP 2540 READER
                                   2225                *,     ADDRESS 700 SPECIFIED
                                   2226                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2227                *,     HASP 2540 READER
                                   2228                *,     ADDRESS 701 SPECIFIED
                                   2229                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2230                *,     HASP 2540 READER
                                   2231                *,     ADDRESS 702 SPECIFIED
                                   2232                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2233                *,     HASP 2540 READER
                                   2234                *,     ADDRESS 703 SPECIFIED
                                   2235                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2236                *,     HASP 2540 READER
                                   2237                *,     ADDRESS 704 SPECIFIED
                                   2238                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2239                *,     HASP 2540 READER
                                   2240                *,     ADDRESS 705 SPECIFIED
                                   2241                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2242                *,     HASP 2540 READER
                                   2243                *,     ADDRESS 706 SPECIFIED
                                   2244                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2245                *,     HASP 2540 READER
                                   2246                *,     ADDRESS 707 SPECIFIED
                                   2247                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2248                *,     HASP 2540 READER
                                   2249                *,     ADDRESS 708 SPECIFIED
                                   2250                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2251                *,     HASP 2540 READER
                                   2252                *,     ADDRESS 709 SPECIFIED
                                   2253                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2254                *,     HASP 2540 READER
                                   2255                *,     ADDRESS 70A SPECIFIED
                                   2256                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2257                *,     HASP 2540 READER
                                   2258                *,     ADDRESS 70B SPECIFIED
                                   2259                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2260                *,     HASP 2540 READER
                                   2261                *,     ADDRESS 70C SPECIFIED
                                   2262                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2263                *,     HASP 2540 READER
                                   2264                *,     ADDRESS 70D SPECIFIED
                                   2265                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2266                *,     HASP 2540 READER
                                   2267                *,     ADDRESS 70E SPECIFIED
                                   2268                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2269                *,     HASP 2540 READER
                                   2270                *,     ADDRESS 70F SPECIFIED
                                   2271                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540R
                                   2272     IODEVICE  ADDRESS=(720,48),UNIT=HASP-1403    Pseudo printers
                                   2273                *,     HASP 1403 PRINTER
                                   2274                *,     ADDRESS 720 SPECIFIED
                                   2275                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2276                *,     HASP 1403 PRINTER
                                   2277                *,     ADDRESS 721 SPECIFIED
                                   2278                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2279                *,     HASP 1403 PRINTER
                                   2280                *,     ADDRESS 722 SPECIFIED
                                   2281                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2282                *,     HASP 1403 PRINTER
                                   2283                *,     ADDRESS 723 SPECIFIED
                                   2284                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2285                *,     HASP 1403 PRINTER
                                   2286                *,     ADDRESS 724 SPECIFIED
                                   2287                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2288                *,     HASP 1403 PRINTER
                                   2289                *,     ADDRESS 725 SPECIFIED
                                   2290                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2291                *,     HASP 1403 PRINTER
                                   2292                *,     ADDRESS 726 SPECIFIED
                                   2293                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2294                *,     HASP 1403 PRINTER
                                   2295                *,     ADDRESS 727 SPECIFIED
                                   2296                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2297                *,     HASP 1403 PRINTER
                                   2298                *,     ADDRESS 728 SPECIFIED
                                   2299                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2300                *,     HASP 1403 PRINTER
                                   2301                *,     ADDRESS 729 SPECIFIED
                                   2302                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2303                *,     HASP 1403 PRINTER
                                   2304                *,     ADDRESS 72A SPECIFIED
                                   2305                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2306                *,     HASP 1403 PRINTER
                                   2307                *,     ADDRESS 72B SPECIFIED
                                   2308                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2309                *,     HASP 1403 PRINTER
                                   2310                *,     ADDRESS 72C SPECIFIED
                                   2311                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2312                *,     HASP 1403 PRINTER
                                   2313                *,     ADDRESS 72D SPECIFIED
                                   2314                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2315                *,     HASP 1403 PRINTER
                                   2316                *,     ADDRESS 72E SPECIFIED
                                   2317                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2318                *,     HASP 1403 PRINTER
                                   2319                *,     ADDRESS 72F SPECIFIED
                                   2320                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2321                *,     HASP 1403 PRINTER
                                   2322                *,     ADDRESS 730 SPECIFIED
                                   2323                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2324                *,     HASP 1403 PRINTER
                                   2325                *,     ADDRESS 731 SPECIFIED
                                   2326                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2327                *,     HASP 1403 PRINTER
                                   2328                *,     ADDRESS 732 SPECIFIED
                                   2329                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2330                *,     HASP 1403 PRINTER
                                   2331                *,     ADDRESS 733 SPECIFIED
                                   2332                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2333                *,     HASP 1403 PRINTER
                                   2334                *,     ADDRESS 734 SPECIFIED
                                   2335                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2336                *,     HASP 1403 PRINTER
                                   2337                *,     ADDRESS 735 SPECIFIED
                                   2338                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2339                *,     HASP 1403 PRINTER
                                   2340                *,     ADDRESS 736 SPECIFIED
                                   2341                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2342                *,     HASP 1403 PRINTER
                                   2343                *,     ADDRESS 737 SPECIFIED
                                   2344                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2345                *,     HASP 1403 PRINTER
                                   2346                *,     ADDRESS 738 SPECIFIED
                                   2347                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2348                *,     HASP 1403 PRINTER
                                   2349                *,     ADDRESS 739 SPECIFIED
                                   2350                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2351                *,     HASP 1403 PRINTER
                                   2352                *,     ADDRESS 73A SPECIFIED
                                   2353                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2354                *,     HASP 1403 PRINTER
                                   2355                *,     ADDRESS 73B SPECIFIED
                                   2356                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2357                *,     HASP 1403 PRINTER
                                   2358                *,     ADDRESS 73C SPECIFIED
                                   2359                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2360                *,     HASP 1403 PRINTER
                                   2361                *,     ADDRESS 73D SPECIFIED
                                   2362                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2363                *,     HASP 1403 PRINTER
                                   2364                *,     ADDRESS 73E SPECIFIED
                                   2365                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2366                *,     HASP 1403 PRINTER
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2367                *,     ADDRESS 73F SPECIFIED
                                   2368                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2369                *,     HASP 1403 PRINTER
                                   2370                *,     ADDRESS 740 SPECIFIED
                                   2371                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2372                *,     HASP 1403 PRINTER
                                   2373                *,     ADDRESS 741 SPECIFIED
                                   2374                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2375                *,     HASP 1403 PRINTER
                                   2376                *,     ADDRESS 742 SPECIFIED
                                   2377                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2378                *,     HASP 1403 PRINTER
                                   2379                *,     ADDRESS 743 SPECIFIED
                                   2380                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2381                *,     HASP 1403 PRINTER
                                   2382                *,     ADDRESS 744 SPECIFIED
                                   2383                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2384                *,     HASP 1403 PRINTER
                                   2385                *,     ADDRESS 745 SPECIFIED
                                   2386                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2387                *,     HASP 1403 PRINTER
                                   2388                *,     ADDRESS 746 SPECIFIED
                                   2389                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2390                *,     HASP 1403 PRINTER
                                   2391                *,     ADDRESS 747 SPECIFIED
                                   2392                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2393                *,     HASP 1403 PRINTER
                                   2394                *,     ADDRESS 748 SPECIFIED
                                   2395                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2396                *,     HASP 1403 PRINTER
                                   2397                *,     ADDRESS 749 SPECIFIED
                                   2398                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2399                *,     HASP 1403 PRINTER
                                   2400                *,     ADDRESS 74A SPECIFIED
                                   2401                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2402                *,     HASP 1403 PRINTER
                                   2403                *,     ADDRESS 74B SPECIFIED
                                   2404                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2405                *,     HASP 1403 PRINTER
                                   2406                *,     ADDRESS 74C SPECIFIED
                                   2407                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2408                *,     HASP 1403 PRINTER
                                   2409                *,     ADDRESS 74D SPECIFIED
                                   2410                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2411                *,     HASP 1403 PRINTER
                                   2412                *,     ADDRESS 74E SPECIFIED
                                   2413                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2414                *,     HASP 1403 PRINTER
                                   2415                *,     ADDRESS 74F SPECIFIED
                                   2416                *,     FIFO I/O REQUEST QUEUEING FOR HASP-1403
                                   2417     IODEVICE  ADDRESS=(770,16),UNIT=HASP-2540P   Pseudo punches
                                   2418                *,     HASP 2540 PUNCH
                                   2419                *,     ADDRESS 770 SPECIFIED
                                   2420                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2421                *,     HASP 2540 PUNCH
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2422                *,     ADDRESS 771 SPECIFIED
                                   2423                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2424                *,     HASP 2540 PUNCH
                                   2425                *,     ADDRESS 772 SPECIFIED
                                   2426                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2427                *,     HASP 2540 PUNCH
                                   2428                *,     ADDRESS 773 SPECIFIED
                                   2429                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2430                *,     HASP 2540 PUNCH
                                   2431                *,     ADDRESS 774 SPECIFIED
                                   2432                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2433                *,     HASP 2540 PUNCH
                                   2434                *,     ADDRESS 775 SPECIFIED
                                   2435                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2436                *,     HASP 2540 PUNCH
                                   2437                *,     ADDRESS 776 SPECIFIED
                                   2438                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2439                *,     HASP 2540 PUNCH
                                   2440                *,     ADDRESS 777 SPECIFIED
                                   2441                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2442                *,     HASP 2540 PUNCH
                                   2443                *,     ADDRESS 778 SPECIFIED
                                   2444                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2445                *,     HASP 2540 PUNCH
                                   2446                *,     ADDRESS 779 SPECIFIED
                                   2447                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2448                *,     HASP 2540 PUNCH
                                   2449                *,     ADDRESS 77A SPECIFIED
                                   2450                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2451                *,     HASP 2540 PUNCH
                                   2452                *,     ADDRESS 77B SPECIFIED
                                   2453                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2454                *,     HASP 2540 PUNCH
                                   2455                *,     ADDRESS 77C SPECIFIED
                                   2456                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2457                *,     HASP 2540 PUNCH
                                   2458                *,     ADDRESS 77D SPECIFIED
                                   2459                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2460                *,     HASP 2540 PUNCH
                                   2461                *,     ADDRESS 77E SPECIFIED
                                   2462                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2463                *,     HASP 2540 PUNCH
                                   2464                *,     ADDRESS 77F SPECIFIED
                                   2465                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2540P
                                   2466     IODEVICE  ADDRESS=(780,16),UNIT=HASP-2520    Internal readers
                                   2467                *,     HASP 2520 PUNCH
                                   2468                *,     ADDRESS 780 SPECIFIED
                                   2469                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2470                *,     HASP 2520 PUNCH
                                   2471                *,     ADDRESS 781 SPECIFIED
                                   2472                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2473                *,     HASP 2520 PUNCH
                                   2474                *,     ADDRESS 782 SPECIFIED
                                   2475                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2476                *,     HASP 2520 PUNCH
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2477                *,     ADDRESS 783 SPECIFIED
                                   2478                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2479                *,     HASP 2520 PUNCH
                                   2480                *,     ADDRESS 784 SPECIFIED
                                   2481                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2482                *,     HASP 2520 PUNCH
                                   2483                *,     ADDRESS 785 SPECIFIED
                                   2484                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2485                *,     HASP 2520 PUNCH
                                   2486                *,     ADDRESS 786 SPECIFIED
                                   2487                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2488                *,     HASP 2520 PUNCH
                                   2489                *,     ADDRESS 787 SPECIFIED
                                   2490                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2491                *,     HASP 2520 PUNCH
                                   2492                *,     ADDRESS 788 SPECIFIED
                                   2493                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2494                *,     HASP 2520 PUNCH
                                   2495                *,     ADDRESS 789 SPECIFIED
                                   2496                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2497                *,     HASP 2520 PUNCH
                                   2498                *,     ADDRESS 78A SPECIFIED
                                   2499                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2500                *,     HASP 2520 PUNCH
                                   2501                *,     ADDRESS 78B SPECIFIED
                                   2502                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2503                *,     HASP 2520 PUNCH
                                   2504                *,     ADDRESS 78C SPECIFIED
                                   2505                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2506                *,     HASP 2520 PUNCH
                                   2507                *,     ADDRESS 78D SPECIFIED
                                   2508                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2509                *,     HASP 2520 PUNCH
                                   2510                *,     ADDRESS 78E SPECIFIED
                                   2511                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2512                *,     HASP 2520 PUNCH
                                   2513                *,     ADDRESS 78F SPECIFIED
                                   2514                *,     FIFO I/O REQUEST QUEUEING FOR HASP-2520
                                   2515     UNITNAME  UNIT=((701,15)),NAME=R             Pseudo readers
                                   2516                *,     R IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   2517                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   2518                *,        701
                                   2519                *,        702
                                   2520                *,        703
                                   2521                *,        704
                                   2522                *,        705
                                   2523                *,        706
                                   2524                *,        707
                                   2525                *,        708
                                   2526                *,        709
                                   2527                *,        70A
                                   2528                *,        70B
                                   2529                *,        70C
                                   2530                *,        70D
                                   2531                *,        70E
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2532                *,        70F
                                   2533     UNITNAME  UNIT=((721,47)),NAME=A             Pseudo printers
                                   2534                *,     A IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   2535                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   2536                *,        721
                                   2537                *,        722
                                   2538                *,        723
                                   2539                *,        724
                                   2540                *,        725
                                   2541                *,        726
                                   2542                *,        727
                                   2543                *,        728
                                   2544                *,        729
                                   2545                *,        72A
                                   2546                *,        72B
                                   2547                *,        72C
                                   2548                *,        72D
                                   2549                *,        72E
                                   2550                *,        72F
                                   2551                *,        730
                                   2552                *,        731
                                   2553                *,        732
                                   2554                *,        733
                                   2555                *,        734
                                   2556                *,        735
                                   2557                *,        736
                                   2558                *,        737
                                   2559                *,        738
                                   2560                *,        739
                                   2561                *,        73A
                                   2562                *,        73B
                                   2563                *,        73C
                                   2564                *,        73D
                                   2565                *,        73E
                                   2566                *,        73F
                                   2567                *,        740
                                   2568                *,        741
                                   2569                *,        742
                                   2570                *,        743
                                   2571                *,        744
                                   2572                *,        745
                                   2573                *,        746
                                   2574                *,        747
                                   2575                *,        748
                                   2576                *,        749
                                   2577                *,        74A
                                   2578                *,        74B
                                   2579                *,        74C
                                   2580                *,        74D
                                   2581                *,        74E
                                   2582                *,        74F
                                   2583     UNITNAME  UNIT=((770,16)),NAME=B             Pseudo punches
                                   2584                *,     B IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   2585                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   2586                *,        770
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2587                *,        771
                                   2588                *,        772
                                   2589                *,        773
                                   2590                *,        774
                                   2591                *,        775
                                   2592                *,        776
                                   2593                *,        777
                                   2594                *,        778
                                   2595                *,        779
                                   2596                *,        77A
                                   2597                *,        77B
                                   2598                *,        77C
                                   2599                *,        77D
                                   2600                *,        77E
                                   2601                *,        77F
                                   2602     UNITNAME  UNIT=((780,16)),NAME=INTRDR        Internal readers
                                   2603                *,     INTRDR IS THE SYMBOLIC NAME ASSOCIATED WITH THE
                                   2604                *,        DEVICES HAVING THE FOLLOWING ADDRESSES
                                   2605                *,        780
                                   2606                *,        781
                                   2607                *,        782
                                   2608                *,        783
                                   2609                *,        784
                                   2610                *,        785
                                   2611                *,        786
                                   2612                *,        787
                                   2613                *,        788
                                   2614                *,        789
                                   2615                *,        78A
                                   2616                *,        78B
                                   2617                *,        78C
                                   2618                *,        78D
                                   2619                *,        78E
                                   2620                *,        78F
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2622 *====================================================================*
                                   2623 *                                                                    *
                                   2624 *        User SVCs.                                                  *
                                   2625 *                                                                    *
                                   2626 *====================================================================*

                                   2628     SVCTABLE  SVC-248-T4-S0
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2630 *====================================================================*
                                   2631 *                                                                    *
                                   2632 *        Generate.                                                   *
                                   2633 *                                                                    *
                                   2634 *====================================================================*

                                   2636     PRINT      NOGEN
                                   2637     GENTSO     GENTYPE=ALL,                Full system generation      +
                                                       ASMPRT=ON,                  Print sysgen assemblies     +
                                                       INDEX=MVT1,                 High level qualifier        +
                                                       LEPRT=(LIST,XREF),          LKED system print options   +
                                                       LNKNAME=3330,               LINKLIB device type         +
                                                       LNKVOL=ASPRES,              LINKLIB volser              +
                                                       OBJPDS=SYS1.OBJPDS,         Sysgen work PDS             +
                                                       RESNAME=3330,               Sysres device type          +
                                                       RESTYPE=3330,               Sysres device type          +
                                                       RESVOL=ASPRES,              Sysres volser               +
                                                       UT1SDS=SYS1.SYSUT1,         Sysgen work SDS             +
                                                       UT2SDS=SYS1.SYSUT2,         Sysgen work SDS             +
                                                       UT3SDS=SYS1.SYSUT3,         Sysgen work SDS             +
                                                       UT4SDS=SYS1.SYSUT4          Sysgen work SDS
                                   2638                *,CMDLIB WILL RESIDE ON SYSRES
                                   2640                *,     THE FOLLOWING EDIT ATTRIBUTES ARE DEFAULTED-
                                   2641                *,           PLIF BLOCK = 400
                                   2642                *,           PLIF FORMAT = FXDONLY
                                   2643                *,           PLIF MAXIMUM FIXED LRECL = 100
                                   2644                *,           PLIF DEFAULT FIXED LRECL = 80
                                   2645                *,           PLIF CONVERT = CAPSONLY
                                   2646                *,           PLIF CHECKER NAME = PLIFSCAN
                                   2647                *,           PLIF PROMPTER SOURCE = DATASET
                                   2648                *,           FORTE BLOCK = 400
                                   2649                *,           FORTE FORMAT = FXDONLY
                                   2650                *,           FORTE MAXIMUM FIXED LRECL = 80
                                   2651                *,           FORTE DEFAULT FIXED LRECL = 80
                                   2652                *,           FORTE CONVERT = CAPSONLY
                                   2653                *,           FORTE CHECKER NAME = IPDSNEXC
                                   2654                *,           FORTE PROMPTER SOURCE = DATASET
                                   2655                *,           FORTG BLOCK = 400
                                   2656                *,           FORTG FORMAT = FXDONLY
                                   2657                *,           FORTG MAXIMUM FIXED LRECL = 80
                                   2658                *,           FORTG DEFAULT FIXED LRECL = 80
                                   2659                *,           FORTG CONVERT = CAPSONLY
                                   2660                *,           FORTG CHECKER NAME = IPDSNEXC
                                   2661                *,           FORTG PROMPTER SOURCE = DATASET
                                   2662                *,           FORTH BLOCK = 400
                                   2663                *,           FORTH FORMAT = FXDONLY
                                   2664                *,           FORTH MAXIMUM FIXED LRECL = 80
                                   2665                *,           FORTH DEFAULT FIXED LRECL = 80
                                   2666                *,           FORTH CONVERT = CAPSONLY
                                   2667                *,           FORTH CHECKER NAME = IPDSNEXC
                                   2668                *,           FORTH PROMPTER SOURCE = DATASET
                                   2669                *,           TEXT BLOCK = 1680
                                   2670                *,           TEXT FORMAT = VAR
                                   2671                *,           TEXT MAXIMUM FIXED LRECL = 255
                                   2672                *,           TEXT MAXIMUM VARIABLE LRECL = 255
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2673                *,           TEXT DEFAULT VARIABLE LRECL = 255
                                   2674                *,           TEXT CONVERT = ASIS
                                   2675                *,           TEXT PROMPTER SOURCE = DATASET
                                   2676                *,           DATA BLOCK = 1680
                                   2677                *,           DATA FORMAT = FIXED
                                   2678                *,           DATA MAXIMUM FIXED LRECL =255
                                   2679                *,           DATA MAXIMUM VAR LRECL = 255
                                   2680                *,           DATA DEFAULT FIXED LRECL = 80
                                   2681                *,           DATA CONVERT = CAPS
                                   2682                *,           DATA PROMPTER SOURCE = DATASET
                                   2683                *,           CLIST BLOCK = 1680
                                   2684                *,           CLIST FORMAT = VAR
                                   2685                *,           CLIST MAXIMUM FIXED LRECL = 255
                                   2686                *,           CLIST MAXIMUM VAR LRECL = 255
                                   2687                *,           CLIST DEFAULT VAR LRECL = 255
                                   2688                *,           CLIST CONVERT = CAPSONLY
                                   2689                *,           CLIST PROMPTER SOURCE = DATASET
                                   2690                *,           CNTL BLOCK = 1680
                                   2691                *,           CNTL FORMAT = FXDONLY
                                   2692                *,           CNTL MAXIMUM FIXED LRECL = 80
                                   2693                *,           CNTL DEFAULT FIXED LRECL = 80
                                   2694                *,           CNTL CONVERT = CAPSONLY
                                   2695                *,           CNTL PROMPTER SOURCE = DATASET
                                   2696                *,           ASM BLOCK = 1680
                                   2697                *,           ASM FORMAT = FXDONLY
                                   2698                *,           ASM MAXIMUM FIXED LRECL = 80
                                   2699                *,           ASM DEFAULT FIXED LRECL = 80
                                   2700                *,           ASM CONVERT = CAPSONLY
                                   2701                *,           ASM PROMPTER NAME = ASM
                                   2702                *,           ASM PROMPTER SOURCE = DATASET
                                   2703                *,           COBOL BLOCK = 400
                                   2704                *,           COBOL FORMAT = FXDONLY
                                   2705                *,           COBOL MAXIMUM FIXED LRECL = 80
                                   2706                *,           COBOL DEFAULT FIXED LRECL = 80
                                   2707                *,           COBOL CONVERT = CAPSONLY
                                   2708                *,           COBOL PROMPTER NAME = COBOL
                                   2709                *,           COBOL PROMPTER SOURCE = DATASET
                                   2710                *,           FORTGI BLOCK = 400
                                   2711                *,           FORTGI FORMAT = FXDONLY
                                   2712                *,           FORTGI MAXIMUM FIXED LRECL = 80
                                   2713                *,           FORTGI DEFAULT FIXED LRECL = 80
                                   2714                *,           FORTGI CONVERT = CAPSONLY
                                   2715                *,           FORTGI CHECKER NAME = IPDSNEXC
                                   2716                *,           FORTGI PROMPTER NAME = FORT
                                   2717                *,           FORTGI PROMPTER SOURCE = DATASET
                                   2718                *,           GOFORT BLOCK = 1680
                                   2719                *,           GOFORT FORMAT = VAR
                                   2720                *,           GOFORT MAXIMUM FIXED LRECL = 255
                                   2721                *,           GOFORT MAXIMUM VAR LRECL = 255
                                   2722                *,           GOFORT DEFAULT VAR LRECL = 255
                                   2723                *,           GOFORT CONVERT = CAPS
                                   2724                *,           GOFORT CHECKER NAME = IPDSNEXC
                                   2725                *,           GOFORT PROMPTER NAME = GOFORT
                                   2726                *,           GOFORT PROMPTER SOURCE = INCORE
                                   2727                *,           BASIC BLOCK = 1680
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2728                *,           BASIC FORMAT = VAR
                                   2729                *,           BASIC MAXIMUM FIXED LRECL = 120
                                   2730                *,           BASIC MAXIMUM VAR LRECL = 120
                                   2731                *,           BASIC DEFAULT VAR LRECL = 120
                                   2732                *,           BASIC CONVERT = CAPSONLY
                                   2733                *,           BASIC CHECKER NAME = IKJNC211
                                   2734                *,           BASIC PROMPTER NAME = IKJNC211
                                   2735                *,           BASIC PROMPTER SOURCE = DATASET
                                   2736                *,           IPLI BLOCK = 1680
                                   2737                *,           IPLI FORMAT = VAR
                                   2738                *,           IPLI MAXIMUM FIXED LRECL = 120
                                   2739                *,           IPLI MAXIMUM VAR LRECL = 120
                                   2740                *,           IPLI DEFAULT VAR LRECL = 120
                                   2741                *,           IPLI CONVERT = CAPSONLY
                                   2742                *,           IPLI CHECKER NAME = IKJNC211
                                   2743                *,           IPLI PROMPTER NAME = IKJNC211
                                   2744                *,           IPLI PROMPTER SOURCE = DATASET
                                   2745                *,           PLI BLOCK = 400
                                   2746                *,           PLI FORMAT = VAR
                                   2747                *,           PLI MAXIMUM FIXED LRECL = 100
                                   2748                *,           PLI MAXIMUM VAR LRECL = 104
                                   2749                *,           PLI DEFAULT VAR LRECL = 104
                                   2750                *,           PLI CONVERT = CAPS
                                   2751                *,           PLI PROMPTER NAME = PLIC
                                   2752                *,           PLI PROMPTER SOURCE = DATASET
                                   2753                *,      TSOPTION WAS NOT CODED - DEFAULTS WERE ASSIGNED X
                                                                      LOGTIME=30,LOGLINE=10,BCLMT=100
                                   2755                *,       S/360  OS SYSTEM GENERATION *** RELEASE LEVEL  X
                                                           21.8
                                   2757                *,      THE SORTED DEVICE A BOXES CONTAIN.
                                   2758                *,         SEQ  ADDRESS  DEVICE POINTER C.U. POINTER
                                   2759                *,         1   009        1              0
                                   2760                *,         2   00C        2              1
                                   2761                *,         3   00D        3              1
                                   2762                *,         4   00E        4              1
                                   2763                *,         5   00F        5              1
                                   2764                *,         6   010        6              0
                                   2765                *,         7   011        7              0
                                   2766                *,         8   014        8              0
                                   2767                *,         9   01F        9              0
                                   2768                *,         10   02F        156              0
                                   2769                *,         11   090        10              2
                                   2770                *,         12   091        11              2
                                   2771                *,         13   092        12              2
                                   2772                *,         14   093        13              2
                                   2773                *,         15   094        14              2
                                   2774                *,         16   095        15              2
                                   2775                *,         17   096        16              2
                                   2776                *,         18   097        17              2
                                   2777                *,         19   0A0        18              3
                                   2778                *,         20   0A1        19              3
                                   2779                *,         21   0A2        20              3
                                   2780                *,         22   0A3        21              3
                                   2781                *,         23   0A4        22              3
                                   2782                *,         24   0A5        23              3
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2783                *,         25   0A6        24              3
                                   2784                *,         26   0A7        25              3
                                   2785                *,         27   0B0        26              4
                                   2786                *,         28   0B1        27              4
                                   2787                *,         29   0B2        28              4
                                   2788                *,         30   0B3        29              4
                                   2789                *,         31   0B4        30              4
                                   2790                *,         32   0B5        31              4
                                   2791                *,         33   0B6        32              4
                                   2792                *,         34   0B7        33              4
                                   2793                *,         35   0C0        34              5
                                   2794                *,         36   0C1        35              5
                                   2795                *,         37   0C2        36              5
                                   2796                *,         38   0C3        37              5
                                   2797                *,         39   0C4        38              5
                                   2798                *,         40   0C5        39              5
                                   2799                *,         41   0C6        40              5
                                   2800                *,         42   0C7        41              5
                                   2801                *,         43   102        42              6
                                   2802                *,         44   103        43              7
                                   2803                *,         45   10C        44              8
                                   2804                *,         46   10D        45              8
                                   2805                *,         47   10E        46              8
                                   2806                *,         48   10F        47              8
                                   2807                *,         49   11E        48              9
                                   2808                *,         50   11F        49              9
                                   2809                *,         51   120        50              10
                                   2810                *,         52   121        51              10
                                   2811                *,         53   122        52              10
                                   2812                *,         54   123        53              10
                                   2813                *,         55   124        54              10
                                   2814                *,         56   125        55              10
                                   2815                *,         57   126        56              10
                                   2816                *,         58   127        57              10
                                   2817                *,         59   130        58              0
                                   2818                *,         60   131        59              0
                                   2819                *,         61   132        60              0
                                   2820                *,         62   133        61              0
                                   2821                *,         63   134        62              0
                                   2822                *,         64   135        63              0
                                   2823                *,         65   136        64              0
                                   2824                *,         66   137        65              0
                                   2825                *,         67   150        66              0
                                   2826                *,         68   151        67              0
                                   2827                *,         69   152        68              0
                                   2828                *,         70   153        69              0
                                   2829                *,         71   154        70              0
                                   2830                *,         72   155        71              0
                                   2831                *,         73   156        72              0
                                   2832                *,         74   157        73              0
                                   2833                *,         75   158        74              0
                                   2834                *,         76   159        75              0
                                   2835                *,         77   15A        76              0
                                   2836                *,         78   15B        77              0
                                   2837                *,         79   15C        78              0
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2838                *,         80   15D        79              0
                                   2839                *,         81   15E        80              0
                                   2840                *,         82   15F        81              0
                                   2841                *,         83   230        82              0
                                   2842                *,         84   231        83              0
                                   2843                *,         85   232        84              0
                                   2844                *,         86   233        85              0
                                   2845                *,         87   234        86              0
                                   2846                *,         88   235        87              0
                                   2847                *,         89   236        88              0
                                   2848                *,         90   237        89              0
                                   2849                *,         91   250        90              0
                                   2850                *,         92   251        91              0
                                   2851                *,         93   252        92              0
                                   2852                *,         94   253        93              0
                                   2853                *,         95   254        94              0
                                   2854                *,         96   255        95              0
                                   2855                *,         97   256        96              0
                                   2856                *,         98   257        97              0
                                   2857                *,         99   258        98              0
                                   2858                *,         100   259        99              0
                                   2859                *,         101   25A        100              0
                                   2860                *,         102   25B        101              0
                                   2861                *,         103   25C        102              0
                                   2862                *,         104   25D        103              0
                                   2863                *,         105   25E        104              0
                                   2864                *,         106   25F        105              0
                                   2865                *,         107   30E        106              11
                                   2866                *,         108   30F        107              11
                                   2867                *,         109   330        108              0
                                   2868                *,         110   331        109              0
                                   2869                *,         111   332        110              0
                                   2870                *,         112   333        111              0
                                   2871                *,         113   334        112              0
                                   2872                *,         114   335        113              0
                                   2873                *,         115   336        114              0
                                   2874                *,         116   337        115              0
                                   2875                *,         117   350        116              0
                                   2876                *,         118   351        117              0
                                   2877                *,         119   352        118              0
                                   2878                *,         120   353        119              0
                                   2879                *,         121   354        120              0
                                   2880                *,         122   355        121              0
                                   2881                *,         123   356        122              0
                                   2882                *,         124   357        123              0
                                   2883                *,         125   358        124              0
                                   2884                *,         126   359        125              0
                                   2885                *,         127   35A        126              0
                                   2886                *,         128   35B        127              0
                                   2887                *,         129   35C        128              0
                                   2888                *,         130   35D        129              0
                                   2889                *,         131   35E        130              0
                                   2890                *,         132   35F        131              0
                                   2891                *,         133   3C0        132              12
                                   2892                *,         134   3C1        133              12
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2893                *,         135   3C2        134              12
                                   2894                *,         136   3C3        135              12
                                   2895                *,         137   3C4        136              12
                                   2896                *,         138   3C5        137              12
                                   2897                *,         139   3C6        138              12
                                   2898                *,         140   3C7        139              12
                                   2899                *,         141   580        140              13
                                   2900                *,         142   581        141              13
                                   2901                *,         143   582        142              13
                                   2902                *,         144   583        143              13
                                   2903                *,         145   584        144              13
                                   2904                *,         146   585        145              13
                                   2905                *,         147   586        146              13
                                   2906                *,         148   587        147              13
                                   2907                *,         149   588        148              14
                                   2908                *,         150   589        149              14
                                   2909                *,         151   58A        150              14
                                   2910                *,         152   58B        151              14
                                   2911                *,         153   58C        152              14
                                   2912                *,         154   58D        153              14
                                   2913                *,         155   58E        154              14
                                   2914                *,         156   58F        155              14
                                   2915                *,         157   63F        157              15
                                   2916                *,         158   64F        158              16
                                   2917                *,         159   65F        159              17
                                   2918                *,         160   660        160              18
                                   2919                *,         161   661        161              18
                                   2920                *,         162   662        162              18
                                   2921                *,         163   663        163              18
                                   2922                *,         164   664        164              18
                                   2923                *,         165   665        165              18
                                   2924                *,         166   666        166              18
                                   2925                *,         167   667        167              18
                                   2926                *,         168   668        168              19
                                   2927                *,         169   669        169              19
                                   2928                *,         170   66A        170              19
                                   2929                *,         171   66B        171              19
                                   2930                *,         172   66C        172              19
                                   2931                *,         173   66D        173              19
                                   2932                *,         174   66E        174              19
                                   2933                *,         175   66F        175              19
                                   2934                *,         176   670        176              20
                                   2935                *,         177   671        177              20
                                   2936                *,         178   672        178              20
                                   2937                *,         179   673        179              20
                                   2938                *,         180   674        180              20
                                   2939                *,         181   675        181              20
                                   2940                *,         182   676        182              20
                                   2941                *,         183   677        183              20
                                   2942                *,         184   678        184              21
                                   2943                *,         185   679        185              21
                                   2944                *,         186   67A        186              21
                                   2945                *,         187   67B        187              21
                                   2946                *,         188   67C        188              21
                                   2947                *,         189   67D        189              21
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2948                *,         190   67E        190              21
                                   2949                *,         191   67F        191              21
                                   2950                *,         192   680        192              22
                                   2951                *,         193   681        193              22
                                   2952                *,         194   682        194              22
                                   2953                *,         195   683        195              22
                                   2954                *,         196   684        196              22
                                   2955                *,         197   685        197              22
                                   2956                *,         198   686        198              22
                                   2957                *,         199   687        199              22
                                   2958                *,         200   688        200              23
                                   2959                *,         201   689        201              23
                                   2960                *,         202   68A        202              23
                                   2961                *,         203   68B        203              23
                                   2962                *,         204   68C        204              23
                                   2963                *,         205   68D        205              23
                                   2964                *,         206   68E        206              23
                                   2965                *,         207   68F        207              23
                                   2966                *,         208   700        208              0
                                   2967                *,         209   701        209              0
                                   2968                *,         210   702        210              0
                                   2969                *,         211   703        211              0
                                   2970                *,         212   704        212              0
                                   2971                *,         213   705        213              0
                                   2972                *,         214   706        214              0
                                   2973                *,         215   707        215              0
                                   2974                *,         216   708        216              0
                                   2975                *,         217   709        217              0
                                   2976                *,         218   70A        218              0
                                   2977                *,         219   70B        219              0
                                   2978                *,         220   70C        220              0
                                   2979                *,         221   70D        221              0
                                   2980                *,         222   70E        222              0
                                   2981                *,         223   70F        223              0
                                   2982                *,         224   720        224              0
                                   2983                *,         225   721        225              0
                                   2984                *,         226   722        226              0
                                   2985                *,         227   723        227              0
                                   2986                *,         228   724        228              0
                                   2987                *,         229   725        229              0
                                   2988                *,         230   726        230              0
                                   2989                *,         231   727        231              0
                                   2990                *,         232   728        232              0
                                   2991                *,         233   729        233              0
                                   2992                *,         234   72A        234              0
                                   2993                *,         235   72B        235              0
                                   2994                *,         236   72C        236              0
                                   2995                *,         237   72D        237              0
                                   2996                *,         238   72E        238              0
                                   2997                *,         239   72F        239              0
                                   2998                *,         240   730        240              0
                                   2999                *,         241   731        241              0
                                   3000                *,         242   732        242              0
                                   3001                *,         243   733        243              0
                                   3002                *,         244   734        244              0
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3003                *,         245   735        245              0
                                   3004                *,         246   736        246              0
                                   3005                *,         247   737        247              0
                                   3006                *,         248   738        248              0
                                   3007                *,         249   739        249              0
                                   3008                *,         250   73A        250              0
                                   3009                *,         251   73B        251              0
                                   3010                *,         252   73C        252              0
                                   3011                *,         253   73D        253              0
                                   3012                *,         254   73E        254              0
                                   3013                *,         255   73F        255              0
                                   3014                *,         256   740        256              0
                                   3015                *,         257   741        257              0
                                   3016                *,         258   742        258              0
                                   3017                *,         259   743        259              0
                                   3018                *,         260   744        260              0
                                   3019                *,         261   745        261              0
                                   3020                *,         262   746        262              0
                                   3021                *,         263   747        263              0
                                   3022                *,         264   748        264              0
                                   3023                *,         265   749        265              0
                                   3024                *,         266   74A        266              0
                                   3025                *,         267   74B        267              0
                                   3026                *,         268   74C        268              0
                                   3027                *,         269   74D        269              0
                                   3028                *,         270   74E        270              0
                                   3029                *,         271   74F        271              0
                                   3030                *,         272   770        272              0
                                   3031                *,         273   771        273              0
                                   3032                *,         274   772        274              0
                                   3033                *,         275   773        275              0
                                   3034                *,         276   774        276              0
                                   3035                *,         277   775        277              0
                                   3036                *,         278   776        278              0
                                   3037                *,         279   777        279              0
                                   3038                *,         280   778        280              0
                                   3039                *,         281   779        281              0
                                   3040                *,         282   77A        282              0
                                   3041                *,         283   77B        283              0
                                   3042                *,         284   77C        284              0
                                   3043                *,         285   77D        285              0
                                   3044                *,         286   77E        286              0
                                   3045                *,         287   77F        287              0
                                   3046                *,         288   780        288              0
                                   3047                *,         289   781        289              0
                                   3048                *,         290   782        290              0
                                   3049                *,         291   783        291              0
                                   3050                *,         292   784        292              0
                                   3051                *,         293   785        293              0
                                   3052                *,         294   786        294              0
                                   3053                *,         295   787        295              0
                                   3054                *,         296   788        296              0
                                   3055                *,         297   789        297              0
                                   3056                *,         298   78A        298              0
                                   3057                *,         299   78B        299              0
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3058                *,         300   78C        300              0
                                   3059                *,         301   78D        301              0
                                   3060                *,         302   78E        302              0
                                   3061                *,         303   78F        303              0
                                   3063                *,      * * * MVT ASSUMED SUPRVSOR FUNCTIONS * * *
                                   3064                *,      IDENTIFY OPTION - TRSVCTBL OPTION - IDENTIFY, EXX
                                                       TRACT, AND SPIE ARE RESIDENT - MULTIPLE WAIT
                                   3065                0,* * * IEIGENW41 FORTRAN H REQUIRES MINIMUM OF 256K STOX
                                                       RAGE
                                   3066                *,CONSOLE ADDRESS 011, STATUS DISPLAY AREA DEFAULTED TOLX
                                                       ENGTH OF 14
                                   4133                *, * * * * * * SVC TABLE * * * * * *
                                   4134                *,      NUMBER           TYPE
                                   4135                *,
                                   4136                *,        0                1
                                   4137                *,        1                1
                                   4138                *,        2                1
                                   4139                *,        3                1
                                   4140                *,        4                1
                                   4141                *,        5                1
                                   4142                *,        6                2
                                   4143                *,        7                2
                                   4144                *,        8                2
                                   4145                *,        9                2
                                   4146                *,        10               1
                                   4147                *,        11               1
                                   4148                *,        12               2
                                   4149                *,        13               4
                                   4150                *,        14               2
                                   4151                *,        15               1
                                   4152                *,        16               2
                                   4153                *,        17               3
                                   4154                *,        18               2
                                   4155                *,        19               4
                                   4156                *,        20               4
                                   4157                *,        21               3
                                   4158                *,        22               3
                                   4159                *,        23               3
                                   4160                *,        24               3
                                   4161                *,        25               3
                                   4162                *,        26               3
                                   4163                *,        27               3
                                   4164                *,        28               3
                                   4165                *,        29               3
                                   4166                *,        30               3
                                   4167                *,        31               3
                                   4168                *,        32               3
                                   4169                *,        33               3
                                   4170                *,        34               4
                                   4171                *,        35               4
                                   4172                *,        36               4
                                   4173                *,        37               2
                                   4174                *,        39               3
                                   4175                *,        40               1
                                   4176                *,        41               2
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4177                *,        42               2
                                   4178                *,        43               2
                                   4179                *,        44               1
                                   4180                *,        45               2
                                   4181                *,        46               1
                                   4182                *,        47               2
                                   4183                *,        48               2
                                   4184                *,        50               5
                                   4185                *,        51               4
                                   4186                *,        52               4
                                   4187                *,        53               3
                                   4188                *,        54               2
                                   4189                *,        55               3
                                   4190                *,        56               2
                                   4191                *,        57               3
                                   4192                *,        58               1
                                   4193                *,        59               3
                                   4194                *,        60               3
                                   4195                *,        61               4
                                   4196                *,        62               2
                                   4197                *,        63               4
                                   4198                *,        64               3
                                   4199                *,        66               4
                                   4200                *,        68               4
                                   4201                *,        69               3
                                   4202                *,        70               2
                                   4203                *,        72               4
                                   4204                *,        76               4
                                   4205                *,        78               3
                                   4206                *,        79               1
                                   4207                *,        81               4
                                   4208                *,        82               4
                                   4209                *,        83               4
                                   4210                *,        84               1
                                   4211                *,        85               4
                                   4212                *,        86               4
                                   4213                *,        87               3
                                   4214                *,        90               4
                                   4215                *,        91               4
                                   4216                *,        92               1
                                   4217                *,        93               4
                                   4218                *,        94               4
                                   4219                *,        95               5
                                   4220                *,        96               3
                                   4221                *,        97               3
                                   4222                *,        98               4
                                   4223                *,        99               4
                                   4224                *,        100              3
                                   4225                *,        101              5
                                   4226                *,        102              1
                                   4227                *,        103              3
                                   4228                *,        104              4
                                   4229                *,        105              3
                                   4230                *,        109              2
                                   4231                *,        110              4
R218       MVT Release 21.8 Stage 1 system generation for ASP                                                  PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4232                *,        116              1
                                   4233                *,        117              2
                                   4234                *,        220              1
                                   4235                *,        246              1
                                   4236                *,        248              4
                                   4237                *, * * * * * * * * * * * * * * * * *
                                  12426                *, TSO WILL USE THE 20K VERSION OF PL/I SYNTAX CHECKER
                                  13033     END
R218                                                  DIAGNOSTICS                                             PAGE     1


STMT  ERROR CODE   MESSAGE                                                                                       8/28/78

 3065  IEU037      MNOTE STATEMENT



    1 STATEMENT  FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =   438      SOURCE RECORDS (SYSLIB) = 53153
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, NOXREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 3322 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G15STGE1.R0000083     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.GENLIB                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.G15STGE1.R0000085     DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.G15STGE1.R0000086     DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G15STGE1.R0000087     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G15STGE1.S0000088     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G15STGE1.S0000088     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /STAGE1  / START 78240.1943
IEF374I STEP /STAGE1  / STOP  78240.1944 CPU   0MIN 41.15SEC MAIN 256K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:43:25.23   ALLOC START    19:43:25.24   MAIN REGION ----- 256K                          *
*   STEP NAME STAGE1     STEP END TIME  19:44:07.93   PGM START TIME 19:43:25.32   MAIN STORAGE ---- 256K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:42.70   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:41.15   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0158 --------- 3323       0250 --------- 2647       000D --------- 9632       0159 --------- 1130       0353 --------- 1309    *
*   0130 -------- 40618       0130 ---------- 440                                                                                  *
************************************************************************************************************************************

IEF375I  JOB /G15STGE1/ START 78240.1943
IEF376I  JOB /G15STGE1/ STOP  78240.1944 CPU   0MIN 41.15SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G15STGE1   JOB READ TIME 19:43:24.99   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:41.15   *
*   JOB CLASS A          JOB INIT TIME 19:43:25.23   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:42.73   *
*   ACCOUNT   1          JOB END TIME  19:44:07.96   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M    00000                                         A
            RRRRRRRRR  222222222      11        AAA     MM     MM   0000000                                       AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  00     00                                     AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM  00    000                                    AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM  00   0 00                                   AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM  00  0  00                                   AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM  00 0   00                                   AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  000    00                                   AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM   0000000                                    AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    00000                                     AA     AA

***********A  START   R21AM0     SYS SYSA   WTR 00E   07:44:50 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM0     START  A***********
***********A  START   R21AM0     SYS SYSA   WTR 00E   07:44:50 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM0     START  A***********
***********A  START   R21AM0     SYS SYSA   WTR 00E   07:44:50 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM0     START  A***********
***********A  START   R21AM0     SYS SYSA   WTR 00E   07:44:50 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM0     START  A***********
***********A  START   R21AM0     SYS SYSA   WTR 00E   07:44:50 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM0     START  A***********


//R21AM0 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG1 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IGF201)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM0   SG1
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.44  8/28/78


IGF201    SD  01 000000 0001B4
CCHPTTAB  LD     000000         01
DDRIOB    LD     000098         01
DDRDEB    LD     0000D4         01
ERPIBFD   ER  02
IGFCAT    ER  03
CHRADTAB  ER  04
IGFRMTCB  ER  05
DDRAPNVT  ER  06
DDRRQE    ER  07
DDRRB     ER  08
DDRDEB    ER  09
IGFDDR02  ER  0A
IGFDDR03  ER  0B
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  IORMSCOM 1,1,0,0,000,SECT=C
                                      3+*
                                      4+* RELEASE 21.8 PTFS
                                      5+*
       IGF201                                                                                                  PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                7+IGF201   CSECT
                                      8+         ENTRY CCHPTTAB
                                      9+         ENTRY DDRIOB
                                     10+         ENTRY DDRDEB
000000                               11+         DS    0F
000000 00000000                      12+CCHPTTAB DC    V(ERPIBFD) ADDR OF CCH ERPIB FIELD
000004 00000000                      13+         DC    F'0' RESERVED FOR CCH
000008 00000000                      14+         DC    V(IGFCAT) CCH ENTRY POINT AND BASE VALUE
00000C 00000000                      15+         DC    V(CHRADTAB)
000010 00000000                      16+         DC    F'0' 2880 LOGOUT POINTER
                                     17+*
                                     18+***      DDRFLGSA
                                     19+*
000014 10                            20+DDRFLGSA DC    X'10' FLAG FIELD
000080                               21+SYSRESOP EQU   X'80' SYSRES OPTION
000020                               22+DDRBUSY  EQU   X'20' DDR PRESENTLY PROCESSING A RQST
000010                               23+DDRON    EQU   X'10' SYS-INITIATED DDR ALLOWED
000008                               24+VALIDATE EQU   X'08' 'TO-DEV' TO BE VALIDATED
000004                               25+NSLUSER  EQU   X'04' USER NSL VERIFICATION
000002                               26+NSLAVAIL EQU   X'02' NSL VERIFICATION RTN AVAILABLE
000001                               27+OPINIT   EQU   X'01' OPERATOR INITIATED DDR
000014                               28+         ORG   *-1 SET LABEL ON FULL WORD BOUNDARY
000014                               29+SYSRESAD DS    CL1
000015 000000                        30+         DC    AL3(0) RESERVED FOR DDR SYSRES
                                     31+*
                                     32+***      DDRFLGSB
                                     33+*
000018 00                            34+DDRFLGSB DC    X'00' FLAG FIELD
000080                               35+SWAPMSG  EQU   X'80' SWAP MSG BIT
000040                               36+INVALID  EQU   X'40' INVALID MSG BIT
000020                               37+SYSRES   EQU   X'20' SYSRES WARNING MSG BIT
000010                               38+DDREND   EQU   X'10' DDR TERMINATED MSG BIT
000008                               39+PROCEED  EQU   X'08' PROCEED MSG BIT
000004                               40+SHRDASD  EQU   X'04' TO INDICATE SHARED DASD
000002                               41+NOTOUCB  EQU   X'02' TO INDICATE 'TO' UCB NOT FOUND
000001                               42+FIRSTIO  EQU   X'01' TO INDICATE FIRST IO FOR CONTRL
000018                               43+         ORG   *-1 SET LABEL ON FULL WORD BOUNDARY
000018                               44+RMSTCB   DS    CL1
000019 000000                        45+         DC    VL3(IGFRMTCB) I/O RMS TACB POINTER
                                     46+*
                                     47+***      DDRFLGSC
                                     48+*
00001C 00                            49+DDRFLGSC DC    X'00' FLAG FIELD
000080                               50+TERMNATE EQU   X'80' TO INDICATE TERMINATION OF DDR
000040                               51+STAE     EQU   X'40' TO INDICATE STAE PROCESSING
000020                               52+CANCEL   EQU   X'20' DDR CANCELED MSG BIT
000010                               53+ERROR    EQU   X'10' ERROR MSG BIT
000008                               54+SWAPUCB  EQU   X'08' TO INDICATE SWAP UCB INFO
000004                               55+REPOSITN EQU   X'04' TO INDICATE REPOSITION TAPE
000002                               56+IONOCTRL EQU   X'02' TO RE-EXCP WITHOUT CONTROL
000001                               57+ERPINPRO EQU   X'01' ERP IN PROCESS MSG BIT
00001C                               58+         ORG   *-1 SET LABEL ON FULL WORD BOUNDARY
00001C                               59+IOSVT    DS    CL1
00001D 000000                        60+         DC    VL3(DDRAPNVT) POINTER TO IOS VECTOR TABLE
                                     61+*
       IGF201                                                                                                  PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     62+***      DDRFLGSD
                                     63+*
000020 00                            64+DDRFLGSD DC    X'00' FLAG FIELD
000080                               65+SYSRESBR EQU   X'80' TO INDICATE BRANCH TO SYSRES
000040                               66+DDRMSG   EQU   X'40' WHEN OFF & SYSRESBR ON, MSG 511
000020                               67+DUMPTAPE EQU   X'20' TO INDICATE DAR DUMP TAPE
000010                               68+READ     EQU   X'10' TO READ A RECORD
000008                               69+STDLABEL EQU   X'08' TO INDICATE STD LABEL TAPE
000004                               70+UNLABELD EQU   X'04' TO INDICATE UNLABELED TAPE
000002                               71+FORSPACE EQU   X'02' TO FOWARD SPACE FILE
000001                               72+IOCONTRL EQU   X'01' TO RE-EXCP WITH CONTROL
000020                               73+         ORG   *-1 SET LABEL ON FULL WORD BOUNDARY
000020                               74+USRTCB   DS    CL1
000021 000000                        75+         DC    3X'00'
000024 00                            76+CNSLID   DC    X'00' CONSOLE ID FIELD
000024                               77+         ORG   *-1 SET LABEL ON FULL WORD BOUNDARY
000024                               78+USRDCB   DS    CL1
000025 000000                        79+         DC    3X'00'
000028 0000                          80+DDRFMUCB DC    H'0'
00002A 0000                          81+DDRTOUCB DC    H'0'
00002C                               82+ALTCUASR DS    F
000030 00000000                      83+         DC    VL4(DDRRQE) POINTER TO DDR RQE
000030                               84+         ORG   *-4 SET COUNTER BACK
000030 0000                          85+USRRQE   DC    H'0' SAVE AREA FOR USER'S RQE
000032                               86+OURRQE   DS    0C
000034                               87+         ORG   *+2 RESET COUNTER
000034 00000000                      88+BLKCNT   DC    F'0' BLOCK COUNTER FOR TAPE
000038 0000                          89+FILECNT  DC    H'0' DDR FILE COUNTER
                                     90+*
                                     91+***      DDRFLGSE
                                     92+*
00003A 00                            93+DDRFLGSE DC    X'00' FLAG FIELD                20201
000080                               94+RETRY    EQU   X'80' TO RETRY USER
000040                               95+WRONGVOL EQU   X'40' WRONG VOLUME MSG BIT
000020                               96+LABLPROC EQU   X'20' TO INDICATE TAPE LABEL PROCESS
000010                               97+READFROM EQU   X'10' TO READ MERLIN BUFFER
000008                               98+FMERROR  EQU   X'08' ERROR READING 'FROM' MERLIN BUF
000004                               99+TOERROR  EQU   X'04' ERROR READING 'TO' MERLIN BUFER
000002                              100+RECRDING EQU   X'02' TO RECORD MERLIN BUFFER
000001                              101+READTO   EQU   X'01' 'TO' DEVICE BUFFER WAS READ
                                    102+*
                                    103+***      DDRFLGSF
                                    104+*
00003B 00                           105+DDRFLGSF DC    X'00' FLAG FIELD
000080                              106+COMPLETE EQU   X'80' COMPLETE MSG BIT
000040                              107+REENTRY  EQU   X'40' TO INDICATE ABNORM APPDGE RENTD
000020                              108+REINIT   EQU   X'20' TO RE-INITIALIZE DDR BLOCK CNT
000010                              109+LABELERR EQU   X'10' TO INDICATE ERROR IN LABEL PROC
000008                              110+DDRCNTRL EQU   X'08' TO INDICATE CONTROL OF UCB
000004                              111+OPCANCEL EQU   X'04' TO INDICATE CANCEL OPER. SWAP
000002                              112+NEGCOUNT EQU   X'02' BLK COUNT TO BE INIT TO -1
                                    113+*
00003C 80                           114+DDRECB   DC    X'80' DDR RESIDENT ROUTINE WAITS FOR
00003D 000000                       115+         DC    VL3(DDRRB) THIS ECB TO BE POSTED
000040 00000000                     116+IOSECB   DC    F'0' IOS POSTS THIS TO RETURN TO DDR
       IGF201                                                                                                  PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000044 40                           117+ALLOCECB DC    X'40' ALLOCATION WAITS ON THIS ECB
000045 000000                       118+         DC    3X'00' TO PREVENT CONCURRENT OPNS
000048 00000000                     119+ALLOCTCB DC    F'0' SAVE AREA FOR ALLOCATION
00004C 00000000                     120+REPLYBUF DC    F'0' REPLY BUFFER FOR DDR MSG'S
000050 00000000                     121+COREADDR DC    F'0' PTR TO OBTAINED STORAGE
000054 0000                         122+ALLOTJID DC    X'0000' TJID SAVE AREA FILLED BY ALLOC
                                    123+*
                                    124+***      DDRFLGSG
                                    125+*
000056 00                           126+DDRFLGSG DC    X'00' FLAG FIELD
000080                              127+WTQPURGD EQU   X'80' WAIT QUEUE ENTRY PURGED
000040                              128+ALLOCENQ EQU   X'40' TASK MARKED NON-DSPCH BY DDR
                                    129+*                                       IS ENQED ON IEEWQE
000020                              130+NEGBLKCT EQU   X'20' USER HAS NEG. BLOCK COUNT
000010                              131+DVCEND   EQU   X'10' DEVICE END PRESENT IN USER
                                    132+*                                       CSW STATUS
000008                              133+RETRIED  EQU   X'08' USER RQE HAS BEEN RETRIED
000004                              134+MSGDOM   EQU   X'04' MSG NEEDS DOMING        @AS77454
000002                              135+RET508   EQU   X'02' RETURN FROM 508E        @SA77454
                                    136+*
000057 00                           137+         DC    X'00' SPARE
000058 00000000                     138+ID511A   DC    F'0' DOM MSG ID FIELD      @SA72584
00005C 00000000                     139+DDRCOUNT DC    AL4(0) RESERVED FOR DDR SYSRES


                                    141+*
                                    142+**
                                    143+***      THE FOLLOWING CODE UP TO AND INCLUDING THE POINTER TO THE
                                    144+***      DDR DEB MUST REMAIN UNCHANGED SO THAT THE CORRECT RELATIONSHIP
                                    145+***      BETWEEN THE DCB BLOCKCOUNT AND DCB DEB POINTER IS MAINTAINED.
                                    146+**
                                    147+*


000060 07000700                     149+         CNOP  4,8
000058                              150+DDRDCB   EQU   *-12
000064 00000000                     151+         DC    F'0' BLOCK COUNT
000068                              152+DDRWORK  DS    7F
000084 00                           153+         DC    X'00'
000085 000000                       154+         DC    VL3(DDRDEB)
000088                              155+XCTLLIST DS    4F XCTL LIST BUILD FOR NSLREPOS



000098                              157+         DS    0D
000098                              158+DDRIOB   EQU   *
000098 02                           159+         DC    X'02' IOBFLAG1
000099 00                           160+         DC    X'00' IOBFLAG2
00009A 00                           161+         DC    X'00' SENSE 0
00009B 00                           162+         DC    X'00' SENSE 1
00009C                              163+         DS    CL1 COMPLETION CODE
00009D 000040                       164+         DC    AL3(IOSECB) ECB ADDRESS
0000A0 00                           165+         DC    X'00' IOBFLAG3
0000A1                              166+         DS    7CL1 IOBCSW
0000A8 00                           167+         DC    X'00' SIO CONDITION CODE
       IGF201                                                                                                  PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000A9 000068                       168+         DC    AL3(DDRWORK) CHANNEL PROGRAM POINTER
0000AC 00                           169+         DC    X'00'
0000AD 000058                       170+         DC    AL3(DDRDCB) DCB POINTER
0000B0 00000000                     171+         DC    F'0'
0000B4 0040                         172+         DC    XL2'0040'
0000B6 0000                         173+         DC    H'0'
0000B8 00                           174+         DC    X'00' M EXTENT
0000B9                              175+         DS    7CL1 SEEK ADDRESS
0000C0                              176+APPVTAB  EQU   *
0000C0 00000104                     177+         DC    A(BRET) END OF EXTENT APPENDAGE
0000C4 00000104                     178+         DC    A(BRET) SIO APPENDAGE
0000C8 00000104                     179+         DC    A(BRET) PCI APPENDAGE
0000CC 00000000                     180+DDRSYSCE DC    V(IGFDDR02) CHANNEL END APPENDAGE PTR
0000D0 00000000                     181+DDRSYSAE DC    V(IGFDDR03) ABNORMAL END APPENDAGE PTR
0000D4                              182+DDRDEB   EQU   *
0000D4 00                           183+         DC    X'00' NMSUB
0000D5 000000                       184+         DC    VL3(IGFRMTCB)
0000D8 00                           185+         DC    X'00' AM LENGTH
0000D9 000000                       186+         DC    AL3(0) NEXT DEB ADDRES
0000DC 00                           187+         DC    X'00' OPEN FLAGS
0000DD 000000                       188+         DC    AL3(0) IRB ADDRESS
0000E0 00                           189+         DC    X'00' OPEN FILE TYPES
0000E1 000000                       190+         DC    AL3(0) SYSTEM PIRGE CHAIN
0000E4 00                           191+         DC    X'00' NMEXT
0000E5 000000                       192+         DC    AL3(0) USER PURGE CHAIN
0000E8 FF                           193+         DC    X'FF' PRIORITY
0000E9 000000                       194+         DC    AL3(0) PURGE LIST ADDRESS
0000EC 0F                           195+         DC    X'0F' PROT TAG, DEB ID
0000ED 000058                       196+         DC    AL3(DDRDCB) DCB ADDRESS
0000F0 02                           197+         DC    X'02' EXTENT SCALE
0000F1 0000C0                       198+         DC    AL3(APPVTAB) APP VECTOR TABLE ADDRESS
0000F4 00                           199+         DC    X'00' MODE SET OR FILE MASK BYTE
0000F5 000000                       200+         DC    AL3(0) UCB POINTER
0000F8 0000000000000000             201+         DC    3F'0' DIRECT ACCESS TRACK LOCATION
000104 07FE                         202+BRET     BCR   15,14 RETURN NORMALLY INSTRUCTION
000106 0000
000108 00000000                     203+ID502E   DC    F'0' 502E DOM ID             @AS77454
                                    204+*
                                    205+***      ERROR MESSAGE IGF503I                                 @AS77454
                                    206+*
00010C                              207+MSG8     DS    0F
00010C 002B                         208+         DC    AL2(43) TEXT LENGTH
00010E 8000                         209+         DC    B'1000000000000000' MCS FLAGS
000110 C9C7C6F5F0F3C940             210+         DC    C'IGF503I ERROR ON XXX, SELECT NEW DEVICE'
000137 1000                         211+         DC    B'0001000000000000' DESCRIPTOR CODES
000139 A000                         212+         DC    B'1010000000000000' ROUTING CODES
                                    213+*
                                    214+***      PROCEED MESSAGE IGF502E                               @AS77454
                                    215+*
00013C                              216+MSG9     DS    0F
00013C 0028                         217+         DC    AL2(40) TEXT LENGTH
00013E 8000                         218+         DC    B'1000000000000000' MCS FLAGS
000140 C9C7C6F5F0F2C540             219+         DC    C'IGF502E PROCEED WITH SWAP XXX TO YYY'
000164 2000                         220+         DC    B'0010000000000000' DESCRIPTOR CODES
000166 B000                         221+         DC    B'1011000000000000' ROUTING CODES
       IGF201                                                                                                  PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    222+*
                                    223+***      CAUTION MESSAGE IGF514I                               @AS77454
                                    224+*
000168                              225+MSG10    DS    0F
000168 0048                         226+         DC    AL2(72) TEXT LENGTH
00016A 8000                         227+         DC    B'1000000000000000' MCS FLAGS
                                    228+         DC    C'IGF514I ///// CAUTION; ENSURE NO HEAD TO DISK PACK INTX
00016C C9C7C6F5F1F4C940                +               ERFEREBCE/////'
0001B0 1000                         229+         DC    B'0001000000000000' DESCRIPTOR CODES
0001B2 B000                         230+         DC    B'1011000000000000' ROUTING CODES
                                    231      END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      08     00009D
   01       01      08     0000A9
   01       01      08     0000AD
   01       01      0C     0000C0
   01       01      0C     0000C4
   01       01      0C     0000C8
   01       01      08     0000ED
   01       01      08     0000F1
   01       02      1C     000000
   01       03      1C     000008
   01       04      1C     00000C
   01       05      18     000019
   01       05      18     0000D5
   01       06      18     00001D
   01       07      1C     000030
   01       08      18     00003D
   01       09      18     000085
   01       0A      1C     0000CC
   01       0B      1C     0000D0
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ALLOCECB 00001 000044 00117
ALLOCENQ 00001 000040 00128
ALLOCTCB 00004 000048 00119
ALLOTJID 00002 000054 00122
ALTCUASR 00004 00002C 00082
APPVTAB  00001 0000C0 00176   0198
BLKCNT   00004 000034 00088
BRET     00002 000104 00202   0177  0178  0179
CANCEL   00001 000020 00052
CCHPTTAB 00004 000000 00012   0008
CNSLID   00001 000024 00076
COMPLETE 00001 000080 00106
COREADDR 00004 000050 00121
DDRBUSY  00001 000020 00022
DDRCNTRL 00001 000008 00110
DDRCOUNT 00004 00005C 00139
DDRDCB   00001 000058 00150   0170  0196
DDRDEB   00001 0000D4 00182   0010
DDRECB   00001 00003C 00114
DDREND   00001 000010 00038
DDRFLGSA 00001 000014 00020
DDRFLGSB 00001 000018 00034
DDRFLGSC 00001 00001C 00049
DDRFLGSD 00001 000020 00064
DDRFLGSE 00001 00003A 00093
DDRFLGSF 00001 00003B 00105
DDRFLGSG 00001 000056 00126
DDRFMUCB 00002 000028 00080
DDRIOB   00001 000098 00158   0009
DDRMSG   00001 000040 00066
DDRON    00001 000010 00023
DDRSYSAE 00004 0000D0 00181
DDRSYSCE 00004 0000CC 00180
DDRTOUCB 00002 00002A 00081
DDRWORK  00004 000068 00152   0168
DUMPTAPE 00001 000020 00067
DVCEND   00001 000010 00131
ERPINPRO 00001 000001 00057
ERROR    00001 000010 00053
FILECNT  00002 000038 00089
FIRSTIO  00001 000001 00042
FMERROR  00001 000008 00098
FORSPACE 00001 000002 00071
ID502E   00004 000108 00203
ID511A   00004 000058 00138
IGF201   00001 000000 00007
INVALID  00001 000040 00036
IOCONTRL 00001 000001 00072
IONOCTRL 00001 000002 00056
IOSECB   00004 000040 00116   0164
IOSVT    00001 00001C 00059
LABELERR 00001 000010 00109
LABLPROC 00001 000020 00096
MSGDOM   00001 000004 00134
MSG10    00004 000168 00225
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MSG8     00004 00010C 00207
MSG9     00004 00013C 00216
NEGBLKCT 00001 000020 00130
NEGCOUNT 00001 000002 00112
NOTOUCB  00001 000002 00041
NSLAVAIL 00001 000002 00026
NSLUSER  00001 000004 00025
OPCANCEL 00001 000004 00111
OPINIT   00001 000001 00027
OURRQE   00001 000032 00086
PROCEED  00001 000008 00039
READ     00001 000010 00068
READFROM 00001 000010 00097
READTO   00001 000001 00101
RECRDING 00001 000002 00100
REENTRY  00001 000040 00107
REINIT   00001 000020 00108
REPLYBUF 00004 00004C 00120
REPOSITN 00001 000004 00055
RETRIED  00001 000008 00133
RETRY    00001 000080 00094
RET508   00001 000002 00135
RMSTCB   00001 000018 00044
SHRDASD  00001 000004 00040
STAE     00001 000040 00051
STDLABEL 00001 000008 00069
SWAPMSG  00001 000080 00035
SWAPUCB  00001 000008 00054
SYSRES   00001 000020 00037
SYSRESAD 00001 000014 00029
SYSRESBR 00001 000080 00065
SYSRESOP 00001 000080 00021
TERMNATE 00001 000080 00050
TOERROR  00001 000004 00099
UNLABELD 00001 000004 00070
USRDCB   00001 000024 00078
USRRQE   00002 000030 00085
USRTCB   00001 000020 00074
VALIDATE 00001 000008 00024
WRONGVOL 00001 000040 00095
WTQPURGD 00001 000080 00127
XCTLLIST 00004 000088 00155



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  1131
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  385 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM0.R0000089       SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM0.S0000090       SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM0.S0000090       DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG1     / START 78240.1944
IEF374I STEP /SG1     / STOP  78240.1944 CPU   0MIN 00.39SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:44:48.32   ALLOC START    19:44:48.34   MAIN REGION ----- 300K                          *
*   STEP NAME SG1        STEP END TIME  19:44:49.87   PGM START TIME 19:44:48.43   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:01.55   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.39   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 33       0250 ------------ 0       0250 ------------ 0       0151 ----------- 17       0151 ----------- 31    *
*   0151 ----------- 55       0353 ----------- 49       0151 ----------- 28       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM0  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1944
IEF374I STEP /ZEND    / STOP  78240.1944 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:44:49.89   ALLOC START    19:44:49.90   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:44:49.93   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM0  / START 78240.1944
IEF376I  JOB /R21AM0  / STOP  78240.1944 CPU   0MIN 00.39SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM0     JOB READ TIME 19:44:48.26   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.39   *
*   JOB CLASS A          JOB INIT TIME 19:44:48.32   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.62   *
*   ACCOUNT              JOB END TIME  19:44:49.94   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       1                                          A
            RRRRRRRRR  222222222      11        AAA     MM     MM      11                                         AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     111                                        AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM      11                                       AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      11                                      AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      11                                      AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM      11                                      AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM      11                                      AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM    111111                                    AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    111111                                    AA     AA

***********A  START   R21AM1     SYS SYSA   WTR 00E   07:44:52 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM1     START  A***********
***********A  START   R21AM1     SYS SYSA   WTR 00E   07:44:52 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM1     START  A***********
***********A  START   R21AM1     SYS SYSA   WTR 00E   07:44:52 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM1     START  A***********
***********A  START   R21AM1     SYS SYSA   WTR 00E   07:44:52 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM1     START  A***********
***********A  START   R21AM1     SYS SYSA   WTR 00E   07:44:52 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM1     START  A***********


//R21AM1 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG2 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEAQGM01)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM1   SG2
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.44  8/28/78


IEAQGM00  SD  01 000000 001354
IGC004    LD     000000         01
IGC005    LD     000720         01
IGC010    LD     000148         01
RMBRANCH  LD     0001B0         01
GMBRANCH  LD     000110         01
FMBRANCH  LD     000780         01
GOVRFLB   LD     001298         01
CDPURGE   LD     001116         01
MRELEASE  LD     00108A         01
GETMAINB  LD     000F76         01
FBQSRCH   LD     000598         01
MSSBASE   LD     000002         01
IEATCBP   ER  02
IEA0AB01  ER  03
CDHKEEP   ER  04
CDDESTRY  ER  05
IEAMSTCB  ER  06
IEA0XE00  ER  07
DISPINIT  ER  08
IEAQPRT0  ER  09
SVCBYTE   LD     001293         01
SPIDSAV   LD     0012D8         01
IEA10FS   LD     0007EC         01
IEAQVLCH  SD  0A 001358 000139
IEA0VL01  ER  0B
SMFTCBSV  LD     001300         01
IEASMFGF  SD  0C 001498 0000AC
GMSMFCRE  LD     001498         0C
SPIDSAV   ER  0D
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2          IEAQGM N,N,N,1,1
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                4+IEAQGM00 START 0
                                      5+         ENTRY IGC004
                                      6+         ENTRY IGC005
                                      7+         ENTRY IGC010
                                      8+         ENTRY RMBRANCH
                                      9+         ENTRY GMBRANCH
                                     10+         ENTRY FMBRANCH
                                     11+         ENTRY GOVRFLB
                                     12+         ENTRY CDPURGE
                                     13+         ENTRY MRELEASE
                                     14+         ENTRY GETMAINB
                                     15+         ENTRY FBQSRCH
                                     16+         ENTRY MSSBASE
                                     17+         EXTRN IEATCBP
                                     18+         EXTRN IEA0AB01
                                     19+         EXTRN CDHKEEP
                                     20+         EXTRN CDDESTRY
                                     21+         EXTRN IEAMSTCB
                                     22+         EXTRN IEA0XE00
                                     23+         EXTRN DISPINIT SWS
                                     24+         EXTRN IEAQPRT0 SWS
                                     25+         ENTRY SVCBYTE
                                     26+         ENTRY SPIDSAV .                                         A32912
                                     27+         ENTRY IEA10FS M3806
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     29+*ROUTINE NAME-           IEAQGM00-MAIN STORAGE SUPERVISOR
                                     30+*
                                     31+*FUNCTION-               THE BASIC FUNCTION OF THE MAIN STORAGE
                                     32+*                        SUPERVISOR IS TO ASSIGN STORAGE BLOCKS FOR THE
                                     33+*                        USE OF VARIOUS TASKS IN THE MULTIPROGRAMMING
                                     34+*                        ENVIRONMENT ACCORDING TO THEIR NEEDS AND IN
                                     35+*                        ORDER OF THEIR PRIORITY WITHIN THE SYSTEM.
                                     36+*                        THIS INVOLVES
                                     37+*                          1) ALLOCATION OF STORAGE BLOCKS ON REQUEST.
                                     38+*                          2) RELEASE OF STORAGE BLOCKS ON REQUEST.
                                     39+*                          3) MAINTAINING OWNERSHIP OF ALL 2K BLOCKS.
                                     40+*                              A) MAINTAINING A RECORD OF ALL 2K BLOCKS
                                     41+*                                 ASSIGNED TO EACH TASK AND TO EACH
                                     42+*                                 SUB-POOL BELONGING TO THAT TASK.
                                     43+*                              B) MAINTAINING A QUEUE OF FREE AREAS
                                     44+*                                 WITHIN THE MAIN STORAGE ASSIGNED TO
                                     45+*                                 EACH TASK SUB-POOL.
                                     46+*                              C) MAINTAINING A RECORD OF ASSOCIATION
                                     47+*                                 OF STORAGE ALLOCATED FROM SUPERVISOR
                                     48+*                                 OWNED STORAGE WHEN REQUESTED TO DO SO
                                     49+*                                                                   SMF
                                     50+*                        A SECONDARY FUNCTION IN SUPPORT OF SYSTEMS SMF
                                     51+*                        MANAGEMENT FACILITIES IS TO PRODUCE        SMF
                                     52+*                        ACTUAL CORE USED VALUES.                   SMF
                                     53+*                        THIS INVOLVES                              SMF
                                     54+*                          1) MONITORING REQUESTS FOR NON ZERO      SMF
                                     55+*                             PROTECT KEY AND SUB POOL 252, AND     SMF
                                     56+*                             MAINTAINING CORE USED FIELDS          SMF
                                     57+*                             ASSOCIATED WITH EACH PP TCB.          SMF
                                     58+*                          2) THE FIELDS MAINTAINED ARE             SMF
                                     59+*                              A) LOW WATER MARK.                   SMF
                                     60+*                              B) HIGH WATER MARK.                  SMF
                                     61+*                              C) MINIMUM DIFFERENCE BETWEEN MARKS. SMF
                                     62+*                          3) EACH TYPE OF CORE AVAILABLE HAS A SET SMF
                                     63+*                             OF RELATED FIELDS.                    SMF
                                     64+*                                                                 20021
                                     65+*                        FOR THE TIME SHARING OPTION(TSO)         20021
                                     66+*                        PROVIDE THE CAPIBILITY TO:               20021
                                     67+*                        1) MAP SUBPOOLS 253, 254, AND 255 INTO   20021
                                     68+*                        LOCAL SQS(LSQS) FOR TIME SHARING TASKS.  20021
                                     69+*                        2) TO ABTERM A TIME SHARING TASK THAT    20021
                                     70+*                        EXHAUSTS ITS LSQS.  TO PREVENT AN ABTERM 20021
                                     71+*                        RECURSION AND ALLOW THE ABTERMING TASK   20021
                                     72+*                        TO COMPLETE, MAIN STORAGE(253, 254 ,255) 20021
                                     73+*                        REQUESTS DURING ABTERM WILL BE HONORED   20021
                                     74+*                        FROM SQS.                                20021
                                     75+*
                                     76+*                        REQUEST FOR SUBPOOLS 243, 244, 245 WILL  20021
                                     77+*                        BE HONORED UNCONDITIONALLY FROM SQS FOR  20021
                                     78+*                        BOTH TIME SHARING AND NON-TIME SHARING   20021
                                     79+*                        TASKS.                                   20021
                                     80+*
                                     81+*ENTRY POINT NAMES-      IGC004-SVC 4 - S-TYPE GETMAIN ENTRY POINT.
                                     82+*                        IGC005-SVC 5 - S-TYPE FREEMAIN ENTRY POINT.
                                     83+*                        IGC010-SVC 10- R-TYPE GETMAIN AND FREEMAIN
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     84+*                                       ENTRY POINT.
                                     85+*                        GMBRANCH-BRANCH ENTRY - S-TYPE GETMAIN.
                                     86+*                        FMBRANCH-BRANCH ENTRY - S-TYPE FREEMAIN.
                                     87+*                        RMBRANCH-BRANCH ENTRY - R-TYPE GETMAIN AND
                                     88+*                                                FREEMAIN.
                                     89+*
                                     90+*CONTAINED IN MODULE-    IEAQGM - MAIN STORAGE SUPERVISOR.
                                     91+*
                                     92+*ATTRIBUTES-             NON-REENTRANT, OPERATES IN SUPERVISOR STATE,
                                     93+*                        RESIDENT, DISABLED FOR ALL MASKABLE INTERRUPTS
                                     94+*                        EXCEPT MACHINE CHECK, TYPE 1 SVC ROUTINE.
                                     95+*
                                     96+*APPLICABILITY-          OPTION 4 ONLY.
                                     97+*
                                     98+*EXTERNAL REFERENCES-    IEA0AB01 - ABTERM
                                     99+*                        CDHKEEP  - CDDESTRY BASE ADDRESS
                                    100+*                        CDDESTRY - CDDESTRY ROUTINE
                                    101+*                        IEAQPRT0 - GET-FREE PARTITION
                                    102+*                        IEATCBP  - LOCATION 'NEW' AND 'OLD'
                                    103+*
                                    104+*SVCS USED-              NONE
                                    105+*
                                    106+*ENTRY POINTS-         1.IGC004 - S-TYPE GETMAIN ENTRY POINT.  GIVEN
                                    107+*                        CONTROL BY SVC FIRST LEVEL INTERRUPT HANDLER
                                    108+*                        (FLIH) VIA LPSW IN ORDER TO PERFORM THE
                                    109+*                        GETMAIN FUNCTION REQUESTED BY THE CALLER.  AN
                                    110+*                        SVC 4 IS ISSUED BY THE CALLER.
                                    111+*
                                    112+*                      2.THE PSW MUST BE DISABLED FOR ALL MASKABLE
                                    113+*                        INTERRUPTS EXCEPT MACHINE CHECK, IN SUPERVISOR
                                    114+*                        MODE, AND HAVE SUPERVISOR PROTECT KEY.
                                    115+*
                                    116+*                      3.THE REGISTERS CONTAIN
                                    117+*                          REGISTER 1 CONTAINS THE ADDRESS OF THE
                                    118+*                          PARAMETER LIST.
                                    119+*                          REGISTER 3 CONTAINS THE ADDRESS OF THE CVT
                                    120+*                          TABLE.
                                    121+*                          REGISTER 4 CONTAINS THE ADDRESS OF THE
                                    122+*                          CURRENT TCB.
                                    123+*                          REGISTER 5 CONTAINS THE ADDRESS OF THE RB AT
                                    124+*                          THE TOP OF THE RB QUEUE.
                                    125+*                          REGISTER 13 CONTAINS THE ADDRESS OF THE
                                    126+*                          ABTERM ROUTINE.
                                    127+*                          REGISTER 14 CONTAINS THE ADDRESS OF THE TYPE
                                    128+*                          1 SVC EXIT HANDLER.
                                    129+*                          REGISTERS 0,2,6-12, AND 15 CONTAIN THE
                                    130+*                          CONTENTS AT THE TIME THE SVC 4 WAS GIVEN.
                                    131+*
                                    132+*                      1.IGC005 - S-TYPE FREEMAIN ENTRY POINT.  GIVEN
                                    133+*                        CONTROL BY SVC FIRST LEVEL INTERRUPT HANDLER
                                    134+*                        (FLIH) VIA LPSW IN ORDER TO PERFORM THE
                                    135+*                        FREEMAIN FUNCTION REQUESTED BY THE CALLER.  AN
                                    136+*                        SVC 5 IS ISSUED BY THE CALLER.
                                    137+*
                                    138+*                      2.THE PSW MUST BE DISABLED FOR ALL MASKABLE
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    139+*                        INTERRUPTS EXCEPT MACHINE CHECK, IN SUPERVISOR
                                    140+*                        MODE, AND HAVE SUPERVISOR PROTECT KEY.
                                    141+*
                                    142+*                      3.THE REGISTERS CONTAIN
                                    143+*                          REGISTER 1 CONTAINS THE ADDRESS OF THE
                                    144+*                          PARAMETER LIST.
                                    145+*                          REGISTER 3 CONTAINS THE ADDRESS OF THE CVT
                                    146+*                          TABLE.
                                    147+*                          REGISTER 4 CONTAINS THE ADDRESS OF THE
                                    148+*                          CURRENT TCB.
                                    149+*                          REGISTER 5 CONTAINS THE ADDRESS OF THE RB AT
                                    150+*                          THE TOP OF THE RB QUEUE.
                                    151+*                          REGISTER 13 CONTAINS THE ADDRESS OF THE
                                    152+*                          ABTERM ROUTINE.
                                    153+*                          REGISTER 14 CONTAINS THE ADDRESS OF THE TYPE
                                    154+*                          1 SVC EXIT HANDLER.
                                    155+*                          REGISTERS 0,2,6-12, AND 15 CONTAIN THE
                                    156+*                          CONTENTS AT THE TIME THE SVC 5 WAS GIVEN.
                                    157+*
                                    158+*                      1.IGC010 - R-TYPE GETMAIN AND FREEMAIN ENTRY
                                    159+*                        POINT.  GIVEN CONTROL BY SVC FIRST LEVEL
                                    160+*                        INTERRUPT HANDLER (FLIH) VIA LPSW IN ORDER TO
                                    161+*                        PERFORM THE GETMAIN OR FREEMAIN FUNCTION
                                    162+*                        REQUESTED BY THE CALLER.  AN SVC 10 IS ISSUED
                                    163+*                        BY THE CALLER.
                                    164+*
                                    165+*                      2.THE PSW MUST BE DISABLED FOR ALL MASKABLE
                                    166+*                        INTERRUPTS EXCEPT MACHINE CHECK, IN SUPERVISOR
                                    167+*                        MODE, AND HAVE SUPERVISOR PROTECT KEY.
                                    168+*
                                    169+*                      3.THE REGISTERS CONTAIN
                                    170+*                          REGISTER 0 CONTAINS THE NUMBER OF THE
                                    171+*                          SUBPOOL REQUESTED IN THE HIGH ORDER BYTE AND
                                    172+*                          THE NUMBER OF BYTES REQUESTED IN THE LOW
                                    173+*                          ORDER THREE BYTES.  IF THE REQUEST IS FOR A
                                    174+*                          FREEMAIN FOR AN ENTIRE SUBPOOL, THE LOW
                                    175+*                          ORDER THREE BYTES MUST BE ZERO.
                                    176+*                          REGISTER 1 CONTAINS ANY NEGATIVE VALUE IF
                                    177+*                          THE REQUEST IS FOR A GETMAIN, OR THE ADDRESS
                                    178+*                          OF THE STORAGE TO BE FREED IF THE REQUEST IS
                                    179+*                          FOR A FREEMAIN.  IF THE REQUEST IS FOR A
                                    180+*                          FREEMAIN FOR AN ENTIRE SUBPOOL, THE ENTIRE
                                    181+*                          REGISTER MUST BE ZERO.
                                    182+*                          REGISTER 3 CONTAINS THE ADDRESS OF THE CVT
                                    183+*                          TABLE.
                                    184+*                          REGISTER 4 CONTAINS THE ADDRESS OF THE
                                    185+*                          CURRENT TCB.
                                    186+*                          REGISTER 5 CONTAINS THE ADDRESS OF THE RB AT
                                    187+*                          THE TOP OF THE RB QUEUE.
                                    188+*                          REGISTER 13 CONTAINS THE ADDRESS OF THE
                                    189+*                          ABTERM ROUTINE.
                                    190+*                          REGISTER 14 CONTAINS THE ADDRESS OF THE TYPE
                                    191+*                          1 SVC EXIT HANDLER.
                                    192+*                          REGISTERS 2,6-12, AND 15 CONTAIN THE
                                    193+*                          CONTENTS AT THE TIME THE SVC 10 WAS GIVEN.
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    194+*
                                    195+*                      1.GMBRANCH - S-TYPE GETMAIN BRANCH ENTRY POINT.
                                    196+*                        GIVEN CONTROL BY THE CALLING SUPERVISOR
                                    197+*                        ROUTINE VIA A BRANCH IN ORDER TO PERFORM THE
                                    198+*                        GETMAIN FUNCTION REQUESTED BY THE CALLER.
                                    199+*
                                    200+*                      2.THE PSW MUST BE DISABLED FOR ALL MASKABLE
                                    201+*                        INTERRUPTS EXCEPT MACHINE CHECK, IN SUPERVISOR
                                    202+*                        MODE, AND HAVE SUPERVISOR PROTECT KEY.
                                    203+*
                                    204+*                      3.THE REGISTERS CONTAIN
                                    205+*                          REGISTER 1 CONTAINS THE ADDRESS OF THE
                                    206+*                          PARAMETER LIST.
                                    207+*                          REGISTER 3 CONTAINS THE ADDRESS OF THE CVT.
                                    208+*                          REGISTER 4 CONTAINS THE ADDRESS OF THE TCB
                                    209+*                          UNDER WHICH STORAGE IS TO BE ALLOCATED.
                                    210+*                          REGISTER 14 CONTAINS THE ADDRESS OF THE
                                    211+*                          LOCATION TO WHICH CONTROL IS TO BE RETURNED.
                                    212+*                          REGISTERS 0,2,5-13 AND 15 CONTAIN
                                    213+*                          INFORMATION FROM THE CALLER WHICH IS NOT
                                    214+*                          USEFUL TO THE MAIN STORAGE SUPERVISOR
                                    215+*                          ROUTINES.
                                    216+*
                                    217+*                      1.FMBRANCH - S-TYPE FREEMAIN BRANCH ENTRY POINT.
                                    218+*                        GIVEN CONTROL BY THE CALLING SUPERVISOR
                                    219+*                        ROUTINE VIA A BRANCH IN ORDER TO PERFORM THE
                                    220+*                        FREEMAIN FUNCTION REQUESTED BY THE CALLER.
                                    221+*
                                    222+*                      2.THE PSW MUST BE DISABLED FOR ALL MASKABLE
                                    223+*                        INTERRUPTS EXCEPT MACHINE CHECK, IN SUPERVISOR
                                    224+*                        MODE, AND HAVE SUPERVISOR PROTECT KEY.
                                    225+*
                                    226+*                      3.THE REGISTERS CONTAIN
                                    227+*                          REGISTER 1 CONTAINS THE ADDRESS OF THE
                                    228+*                          PARAMETER LIST.
                                    229+*                          REGISTER 3 CONTAINS THE ADDRESS OF THE CVT.
                                    230+*                          REGISTER 4 CONTAINS THE ADDRESS OF THE TCB
                                    231+*                          UNDER WHICH STORAGE IS TO BE RELEASED.
                                    232+*                          REGISTER 14 CONTAINS THE ADDRESS OF THE
                                    233+*                          LOCATION TO WHICH CONTROL IS TO BE RETURNED.
                                    234+*                          REGISTERS 0,2,5-13 AND 15 CONTAIN
                                    235+*                          INFORMATION FROM THE CALLER WHICH IS NOT
                                    236+*                          USEFUL TO THE MAIN STORAGE SUPERVISOR
                                    237+*                          ROUTINES.
                                    238+*
                                    239+*                      1.RMBRANCH - R-TYPE GETMAIN AND FREEMAIN ENTRY
                                    240+*                        POINT.  GIVEN CONTROL BY THE CALLING
                                    241+*                        SUPERVISOR ROUTINE VIA A BRANCH IN ORDER TO
                                    242+*                        PERFORM THE GETMAIN OR FREEMAIN FUNCTION
                                    243+*                        REQUESTED BY THE CALLER.
                                    244+*
                                    245+*                      2.THE PSW MUST BE DISABLED FOR ALL MASKABLE
                                    246+*                        INTERRUPTS EXCEPT MACHINE CHECK, IN SUPERVISOR
                                    247+*                        MODE, AND HAVE SUPERVISOR PROTECT KEY.
                                    248+*
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    249+*                      3.THE REGISTERS CONTAIN
                                    250+*
                                    251+*                          REGISTER 0 CONTAINS THE NUMBER OF THE
                                    252+*                          SUBPOOL REQUESTED IN THE HIGH ORDER BYTE AND
                                    253+*                          THE NUMBER OF BYTES REQUESTED IN THE LOW
                                    254+*                          ORDER THREE BYTES.  IF THE REQUEST IS FOR A
                                    255+*                          FREEMAIN FOR AN ENTIRE SUBPOOL, THE LOW
                                    256+*                          ORDER THREE BYTES MUST BE ZERO.
                                    257+*                          REGISTER 1 CONTAINS ANY NEGATIVE VALUE IF
                                    258+*                          THE REQUEST IS FOR A GETMAIN, OR THE ADDRESS
                                    259+*                          OF THE STORAGE TO BE FREED IF THE REQUEST IS
                                    260+*                          FOR A FREEMAIN.  IF THE REQUEST IS FOR A
                                    261+*                          FREEMAIN FOR AN ENTIRE SUBPOOL, THE ENTIRE
                                    262+*                          REGISTER MUST BE ZERO.
                                    263+*                          REGISTER 3 CONTAINS THE ADDRESS OF THE CVT.
                                    264+*                          REGISTER 4 CONTAINS THE ADDRESS OF THE TCB
                                    265+*                          UNDER WHICH THE STORAGE IS TO BE ALLOCATED
                                    266+*                          OR RELEASED.
                                    267+*                          REGISTER 14 CONTAINS THE ADDRESS OF THE
                                    268+*                          LOCATION TO WHICH CONTROL IS TO BE RETURNED.
                                    269+*                          REGISTERS 2,5-13, AND 15 CONTAIN INFORMATION
                                    270+*                          FROM THE CALLER WHICH IS NOT USEFUL TO THE
                                    271+*                          MAIN STORAGE SUPERVISOR ROUTINES.
                                    272+*
                                    273+*EXIT POINTS-          1.TO THE TYPE 1 SVC EXIT ROUTINE VIA A BRANCH ON
                                    274+*                        REGISTER 14 IF ENTRY WAS BY AN SVC OR TO A
                                    275+*                        LOCATION SPECIFIED BY THE CALLER IF ENTRY WAS
                                    276+*                        BY A BRANCH.
                                    277+*
                                    278+*                      2.THE PSW IS DISABLED FOR ALL MASKABLE
                                    279+*                        INTERRUPTS EXCEPT MACHINE CHECK, IN SUPERVISOR
                                    280+*                        MODE, AND HAS SUPERVISOR PROTECT KEY.
                                    281+*
                                    282+*                      3.THE REGISTERS CONTAIN
                                    283+*                          REGISTERS 0-15 CONTAIN MEANINGLESS INFORM-
                                    284+*                          ATION UPON EXIT IF ENTRY WAS BY AN SVC
                                    285+*                          EXCEPT FOR A GETMAIN REQUEST UNDER SVC 10,
                                    286+*                          IN WHICH CASE REGISTER 1 CONTAINS THE
                                    287+*                          ADDRESS OF THE STORAGE ALLOCATED.
                                    288+*                          REGISTERS 2-7 AND 9-14 ARE UNALTERED AND
                                    289+*                          REGISTERS 0,1,8, AND 15 CONTAIN MEANINGLESS
                                    290+*                          INFORMATION IF ENTRY WAS BY A BRANCH EXCEPT
                                    291+*                          FOR A GETMAIN REQUEST UNDER AN ENTRY TO
                                    292+*                          RMBRANCH, IN WHICH CASE REGISTER 1 CONTAINS
                                    293+*                          THE ADDRESS OF THE STORAGE ALLOCATED.
                                    294+*
                                    295+*ERROR EXIT POINTS-    1.TO ABTERM IN ORDER TO CAUSE THE ISSUING TASK
                                    296+*                        TO BE TERMINATED.
                                    297+*
                                    298+*                      2.THE PSW IS DISABLED FOR ALL MASKABLE
                                    299+*                        INTERRUPTS EXCEPT MACHINE CHECK, IN SUPERVISOR
                                    300+*                        MODE, AND HAS SUPERVISOR PROTECT KEY.
                                    301+*
                                    302+*                      3.REGISTER 1 CONTAINS THE ERROR CODE.
                                    303+*                        THE REMAINING REGISTERS CONTAIN MEANINGLESS
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    304+*                        INFORMATION.
                                    305+*
                                    306+*                      4.THE ERROR CODES ARE
                                    307+*                          X'0104' ERROR CODE #1 - OUT OF LOCAL   20021
                                    308+*                          X'010A'                 SQS            20021
                                    309+*                                  ERROR CODE #2 - NOT USED       20021
                                    310+*                          X'0305' ERROR CODE #3 - STORAGE NOT IN
                                    311+*                          X'030A'                 SPECIFIED SUBPOOL.
                                    312+*                          X'040A' ERROR CODE  4 - PROBLEM PROGRAM
                                    313+*                                                  ATTEMPTING TO FREE
                                    314+*                                                  ALL OF SUBPOOL 0.
                                    315+*                          X'0504' ERROR CODE  5 - LENGTH LIST AND
                                    316+*                          X'0505'                 ADDRESS LIST HAVE
                                    317+*                                                  COMMON LOCATIONS
                                    318+*                          X'0604' ERROR CODE  6 - PARAMETER LIST NOT
                                    319+*                                                  IN PROBLEM PROGRAM
                                    320+*                                                  AREA, INPUT LIST
                                    321+*                                                  ADDRESS NOT ON WORD
                                    322+*                                                  BOUNDARY, OR FQE
                                    323+*                                                  QUEUE DESTROYED.
                                    324+*                          X'0804' ERROR CODE #8 - REQUEST FOR MORE
                                    325+*                          X'080A'                 STORAGE THAN IS
                                    326+*                                                  AVAILABLE - UNCONDI-
                                    327+*                                                  TIONAL REQUEST.
                                    328+*                          X'0905' ERROR CODE  9 - ADDRESS OF AREA TO
                                    329+*                                                  BE FREED NOT A
                                    330+*                                                  MULTIPLE OF 8.
                                    331+*                          X'0A05' ERROR CODE #10- AREA BEING FREED
                                    332+*                          X'0A0A'                 OVERLAPS A FREE AREA
                                    333+*                          X'0B04' ERROR CODE #11- PROBLEM PROGRAM
                                    334+*                          X'0B05'                 REQUESTS SUBPOOLS
                                    335+*                          X'0B0A'                 128-255.
                                    336+*                          X'0C04' ERROR CODE =12- GENERAL LCS     LC0A
                                    337+*                                                  ERROR - RELATINGLC0A
                                    338+*                                                  TO INVALID      LC0A
                                    339+*                                                  HIERARCHY       LC0A
                                    340+*                                                  REQUESTS.       LC0A
                                    341+*                          X'0D05' ERROR CODE =13- REQUEST TO FREE 8098
                                    342+*                          X'0D0A'                 CORE FROM SQS - 8098
                                    343+*                                                  NOT OWNED BY    8098
                                    344+*                                                  REQUESTING TASK.8098
                                    345+*
                                    346+*TABLES AND CONTROL
                                    347+*BLOCKS REFERENCED-    1.TCB - TASK CONTROL BLOCK
                                    348+*                        THE CONTROL BLOCK UNDER WHICH THE TASK IS
                                    349+*                        OPERATING.
                                    350+*
                                    351+*                        FIELDS USED BY MAIN STORAGE SUPERVISOR
                                    352+*
                                    353+*                          TCBMSS - POINTER TO THE QUEUE OF SPQES
                                    354+*                                   (SUBPOOL QUEUE ELEMENTS).
                                    355+*
                                    356+*                          TCBJSTCB - JOB STEP TCB POINTER.
                                    357+*
                                    358+*                          TCBPKF - PROTECT KEY.
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    359+*
                                    360+*                          TCBJPQ - JOB PACK QUEUE POINTER.
                                    361+*
                                    362+*                          TCBPQE - PARTITION QUEUE ELEMENT POINTER OR,
                                    363+*                                   IF ROLLOUT/ROLLIN, A POINTER TO THE
                                    364+*                                   DUMMY PQE.
                                    365+*
                                    366+*                          TCBAQE - POINTER TO QUEUE OF SUPERVISOR
                                    367+*                                   QUEUE SPACE ALLOCATED TO THIS TASK.
                                    368+*                                                                   SMF
                                    369+*                          TCBTCT - POINTER TO TIMING CONTROL TABLE.SMF
                                    370+*                                                                 20021
                                    371+*                          TCBRBP - ADDR. OF FIRST RB             20021
                                    372+*                                                                 20021
                                    373+*                          TCBFLGS - TCB FLAGS                    20021
                                    374+*                                                                 20021
                                    375+*                          TCBTSLFG - TCB TSO FLAGS               20021
                                    376+*
                                    377+*                      2.PQE - PARTITION QUEUE ELEMENT
                                    378+*                        A QUEUE ELEMENT IDENTIFYING THE FIRST AND LAST
                                    379+*                        FBQES IN AN FBQE QUEUE, THE NEXT AND PREVIOUS
                                    380+*                        PQES IN A ROLLOUT/ROLLIN ENVIRONMENT, THE SIZE
                                    381+*                        OF THE REGION BEING DESCRIBED AND ITS STARTING
                                    382+*                        ADDRESS.
                                    383+*
                                    384+*                        THESE FIELDS ARE REFERENCED
                                    385+*
                                    386+*                          FWDPTR - A FOUR BYTE FIELD IN WHICH THE
                                    387+*                                   FIRST BYTE IS ZERO AND IN WHICH THE
                                    388+*                                   LAST THREE BYTES CONTAIN A POINTER
                                    389+*                                   TO THE LOWEST ADDRESS FBQE IN THE
                                    390+*                                   REGION OR THE ADDRESS OF THE PQE.
                                    391+*
                                    392+*                          BCKPTR - A FOUR BYTE FIELD IN WHICH THE
                                    393+*                                   FIRST BYTE IS ZERO AND IN WHICH THE
                                    394+*                                   LAST THREE BYTES CONTAIN A POINTER
                                    395+*                                   TO THE HIGHEST ADDRESS FBQE IN THE
                                    396+*                                   REGION OR THE ADDRESS OF THE PQE.
                                    397+*
                                    398+*                          PQENXT - A FOUR BYTE FIELD IN WHICH THE
                                    399+*                                   FIRST BYTE IS ZERO AND IN WHICH THE
                                    400+*                                   LAST THREE BYTES CONTAIN A POINTER
                                    401+*                                   TO THE PQE OF THE NEXT HIGHEST
                                    402+*                                   ADDRESSED PARTITION.
                                    403+*
                                    404+*                          PQEPREV - A FOUR BYTE FIELD IN WHICH THE
                                    405+*                                    FIRST BYTE IS ZERO AND IN WHICH
                                    406+*                                    THE LAST THREE BYTES CONTAIN A
                                    407+*                                    POINTER TO THE PQE OF THE NEXT
                                    408+*                                    LOWEST ADDRESSED PARTITION.
                                    409+*
                                    410+*                          PQETCB - A FOUR BYTE FIELD IN WHICH THE
                                    411+*                                   FIRST BYTE IS ZERO AND IN WHICH THE
                                    412+*                                   LAST THREE BYTES CONTAIN A POINTER
                                    413+*                                   TO THE OWNING TCB.
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    414+*
                                    415+*                          PQERGSZ - A FOUR BYTE FIELD IN WHICH THE
                                    416+*                                    FIRST BYTE IS ZERO AND IN WHICH
                                    417+*                                    THE LAST THREE BYTES CONTAIN THE
                                    418+*                                    SIZE OF THE REGION.
                                    419+*
                                    420+*                          PQESTADD - A FOUR BYTE FIELD IN WHICH THE
                                    421+*                                     FIRST BYTE IS ZERO AND IN WHICH
                                    422+*                                     THE LAST THREE BYTES CONTAIN A
                                    423+*                                     POINTER TO THE STARTING ADDRESS
                                    424+*                                     OF THE REGION.
                                    425+*
                                    426+*                          BORROWED PARTITION BIT - BIT INDICATOR WHICH
                                    427+*                                                   INDICATES THAT THIS
                                    428+*                                                   PARTITION IS OWNED
                                    429+*                                                   BY ANOTHER TASK.
                                    430+*
                                    431+*                                                                  LC0A
                                    432+*                      3.FBQE - FREE BLOCK QUEUE ELEMENT
                                    433+*                        A QUEUE ELEMENT WHICH IDENTIFIES AND DESCRIBES
                                    434+*                        ONE OR MORE CONTIQUOUS FREE 2K BLOCKS.
                                    435+*
                                    436+*                        THESE FIELDS ARE REFERENCED
                                    437+*
                                    438+*                          FWDPTR - A FOUR BYTE FIELD IN WHICH THE
                                    439+*                                   FIRST BYTE IS ZERO AND IN WHICH THE
                                    440+*                                   LAST THREE BYTES CONTAIN A POINTER
                                    441+*                                   TO THE LOWEST ADDRESS FBQE IN THE
                                    442+*                                   REGION.
                                    443+*
                                    444+*                          BCKPTR - A FOUR BYTE FIELD IN WHICH THE
                                    445+*                                   FIRST BYTE IS ZERO AND IN WHICH THE
                                    446+*                                   LAST THREE BYTES CONTAIN A POINTER
                                    447+*                                   TO THE HIGHEST ADDRESS FBQE IN THE
                                    448+*                                   REGION.
                                    449+*
                                    450+*                          SIZE - A FOUR BYTE FIELD IN WHICH THE FIRST
                                    451+*                                 BYTE IS ZERO AND IN WHICH THE LAST
                                    452+*                                 THREE BYTES CONTAIN THE SIZE OF THE
                                    453+*                                 FREE AREA.  THIS IS ALWAYS A MULTIPLE
                                    454+*                                 OF 2K.
                                    455+*
                                    456+*                      4.SPQE - SUBPOOL QUEUE ELEMENT
                                    457+*                        THE QUEUE ELEMENT ESTABLISHED TO IDENTIFY A
                                    458+*                        SUBPOOL.
                                    459+*
                                    460+*                        THESE FIELDS ARE REFERENCED
                                    461+*
                                    462+*                          SHARED SUBPOOL BIT - BIT INDICATOR WHICH
                                    463+*                                               INDICATES THAT THIS
                                    464+*                                               SUBPOOL IS OWNED BY
                                    465+*                                               ANOTHER TASK.
                                    466+*
                                    467+*                          LAST SPQE BIT - BIT INDICATOR WHICH
                                    468+*                                          INDICATES THAT THIS IS THE
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    469+*                                          LAST SPQE IN THE QUEUE.
                                    470+*
                                    471+*                          NEXT SPQE FIELD - A THREE BYTE FIELD WHICH
                                    472+*                                            CONTAINS THE ADDRESS OF
                                    473+*                                            THE NEXT SPQE IN THE QUEUE
                                    474+*                                            EXCEPT IN THE LAST SPQE IN
                                    475+*                                            THE QUEUE IN WHICH CASE IT
                                    476+*                                            CONTAINS ZERO.
                                    477+*
                                    478+*                          SPQEID FIELD - A ONE BYTE FIELD CONTAINING
                                    479+*                                         THE SUBPOOL ID NUMBER.
                                    480+*
                                    481+*                          SPQEDQE FIELD - A THREE BYTE FIELD
                                    482+*                                          CONTAINING THE POINTER TO
                                    483+*                                          THE FIRST DQE (DESCRIPTOR
                                    484+*                                          QUEUE ELEMENT) BELONGING TO
                                    485+*                                          THIS SUBPOOL EXCEPT IN A
                                    486+*                                          SHARED SUBPOOL IN WHICH CASE
                                    487+*                                          THIS FIELD POINTS TO THE
                                    488+*                                          OWNING SPQE.
                                    489+*
                                    490+*                      5.DQE - DESCRIPTOR QUEUE ELEMENT
                                    491+*                        A QUEUE ELEMENT WHICH IDENTIFIES A SET OF
                                    492+*                        CONTIGUOUS 2048 BYTE BLOCKS BELONGING TO A
                                    493+*                        SUBPOOL.
                                    494+*
                                    495+*                        THESE FIELDS ARE REFERENCED
                                    496+*
                                    497+*                          DQEFQE FIELD - THIS IS A THREE BYTE FIELD
                                    498+*                                         WHICH POINTS TO THE FIRST FQE
                                    499+*                                         IN THE SET OF 2048 BYTE
                                    500+*                                         BLOCKS EXCEPT WHEN THERE ARE
                                    501+*                                         NO FREE AREAS.  IT IS THEN
                                    502+*                                         ZERO.
                                    503+*
                                    504+*                          NEXT DQE POINTER FIELD - THIS IS A THREE
                                    505+*                                                   BYTE FIELD WHICH
                                    506+*                                                   POINTS TO THE NEXT
                                    507+*                                                   DQE IN THE QUEUE
                                    508+*                                                   EXCEPT IN THE LAST
                                    509+*                                                   DQE IN THE QUEUE IN
                                    510+*                                                   WHICH IT IS ZERO.
                                    511+*
                                    512+*                          DQE ADDRESS FIELD - THIS IS A FOUR BYTE
                                    513+*                                              FIELD IN WHICH THE FIRST
                                    514+*                                              BYTE IS ZERO AND THE
                                    515+*                                              LAST THREE BYTES CONTAIN
                                    516+*                                              THE ADDRESS OF THE FIRST
                                    517+*                                              2048 BYTE BLOCK
                                    518+*                                              DESCRIBED BY THIS DQE.
                                    519+*
                                    520+*                          DQE LENGTH FIELD - THIS IS A FOUR BYTE FIELD
                                    521+*                                             IN WHICH THE FIRST BYTE
                                    522+*                                             IS ZERO AND THE LAST
                                    523+*                                             THREE BYTES CONTAIN THE
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    524+*                                             NUMBER OF BYTES IN THE
                                    525+*                                             SET OF CONTIGUOUS 2048
                                    526+*                                             BYTE BLOCKS DESCRIBED BY
                                    527+*                                             THIS DQE.
                                    528+*
                                    529+*                      6.FQE - FREE AREA QUEUE ELEMENT
                                    530+*                        A QUEUE ELEMENT WHICH IDENTIFIES AND DESCRIBES
                                    531+*                        A FREE AREA WITHIN THE SET OF 2048 BYTE BLOCKS
                                    532+*                        DESCRIBED BY A DQE.
                                    533+*
                                    534+*                        THESE FIELDS ARE REFERENCED
                                    535+*
                                    536+*                          NEXT FQE FIELD - A FOUR BYTE FIELD IN WHICH
                                    537+*                                           THE FIRST BYTE IS ZERO AND
                                    538+*                                           IN WHICH THE LAST THREE
                                    539+*                                           BYTES CONTAIN A POINTER TO
                                    540+*                                           THE NEXT FREE AREA EXCEPT
                                    541+*                                           IN THE LAST FREE AREA IN
                                    542+*                                           THE QUEUE IN WHICH THIS
                                    543+*                                           FIELD IS ZERO.
                                    544+*
                                    545+*                          FQE LENGTH FIELD - A FOUR BYTE FIELD IN
                                    546+*                                             WHICH THE FIRST BYTE IS
                                    547+*                                             ZERO AND IN WHICH THE
                                    548+*                                             LAST THREE BYTES CONTAIN
                                    549+*                                             THE NUMBER OF BYTES IN
                                    550+*                                             THIS FREE AREA (THIS
                                    551+*                                             INCLUDES THE QUEUE
                                    552+*                                             ELEMENT).
                                    553+*
                                    554+*                      7.AQE - QUEUE ELEMENT FOR STORAGE ALLOCATED TO
                                    555+*                        SUBPOOL 253 OR 254.
                                    556+*
                                    557+*                        THESE FIELDS ARE REFERENCED
                                    558+*
                                    559+*                          NEXT AQE FIELD - A FOUR BYTE FIELD IN WHICH
                                    560+*                                           THE FIRST BYTE IS ZERO AND
                                    561+*                                           IN WHICH THE LAST THREE
                                    562+*                                           BYTES CONTAIN A POINTER TO
                                    563+*                                           THE NEXT AQE FOR THIS TASK
                                    564+*                                           EXCEPT IN THE LAST AQE IN
                                    565+*                                           THE QUEUE FOR THIS TASK IN
                                    566+*                                           WHICH THIS FIELD IS ZERO.
                                    567+*
                                    568+*                          AQE LENGTH FIELD - A FOUR BYTE FIELD IN
                                    569+*                                             WHICH THE FIRST BYTE IS
                                    570+*                                             ZERO AND IN WHICH THE
                                    571+*                                             LAST THREE BYTES CONTAIN
                                    572+*                                             THE NUMBER OF BYTES IN
                                    573+*                                             THIS ALLOCATED AREA (THIS
                                    574+*                                             INCLUDES THE QUEUE
                                    575+*                                             ELEMENT).
                                    576+*
                                    577+*                      8.CDE - CONTENTS DIRECTORY ENTRY
                                    578+*
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    579+*                        THESE FIELDS ARE REFERENCED
                                    580+*
                                    581+*                          CDATTR2 - A ONE BYTE FIELD CONTAINING
                                    582+*                                    ATTRIBUTE FLAGS.
                                    583+*
                                    584+*                          REL - AN ATTRIBUTE FLAG IN CDATTR2
                                    585+*                                INDICATING THAT THE LOAD MODULE IS
                                    586+*                                INACTIVE AND MAY BE RELEASED.
                                    587+*
                                    588+*                      9.DUMMY PQE
                                    589+*                        A QUEUE ELEMENT INDENTIFYING THE FIRST AND
                                    590+*                        LAST PQES ON THE PQE CHAIN
                                    591+*                                                                   SMF
                                    592+*                     10.TCT - TIMING CONTROL TABLE.                SMF
                                    593+*                                                                   SMF
                                    594+*                        THESE FIELDS ARE REFERENCED.               SMF
                                    595+*                                                                   SMF
                                    596+*                          TCTLWM - HIGHEST ADDRESS ALLOCATED FROM  SMF
                                    597+*                                   LOW END OF REGION.              SMF
                                    598+*                                                                   SMF
                                    599+*                          TCTHWM - LOWEST ADDRESS ALLOCATED FROM   SMF
                                    600+*                                   HIGH END OF REGION.             SMF
                                    601+*                                                                   SMF
                                    602+*                          TCTMINC - MINIMUM DIFFERENCE BETWEEN LWM SMF
                                    603+*                                    AND HWM IN 2K VALUE.           SMF
                                    604+*
                                    605+*LIST ORIGINS, TABLES
                                    606+*AND CONTROL BLOCKS
                                    607+*INCLUDED-               NONE
                                    608+*
                                    609+*RESTRICTIONS ON
                                    610+*USE OF ROUTINE-       1.PROBLEM PROGRAMS MAY ONLY USE SUBPOOLS 0-127.
                                    611+*
                                    612+*                      2.PROGRAMS IN SUPERVISOR MODE MAY ALSO USE
                                    613+*                        SUBPOOLS 128-255, BUT ONLY AS  DEFINED BY THE
                                    614+*                        SUPERVISOR.
                                    615+*
                                    616+*                      3.DISABLED ROUTINES MAY NOT USE THE
                                    617+*                        UNCONDITIONAL FORM OF SVC 4 OR THE GETMAIN
                                    618+*                        FORM OF SVC 10.
                                    619+*
                                    620+*NOTES-                  NONE
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    622+*        INPUT PARAMETERS
                                    623+*
                                    624+*    TO REGMAIN (SVC 10)
                                    625+*
                                    626+*        REGISTER 0 = SUBPOOL ID IN THE HIGH ORDER BYTE
                                    627+*                   = LENGTH IN THE LOW ORDER THREE BYTES
                                    628+*
                                    629+*        REGISTER 1 = ANY NEGATIVE VALUE IF REQUEST IS TO GETMAIN
                                    630+*                   = THE POSITIVE ADDRESS OF THE AREA TO BE FREED IF
                                    631+*                          THE REQUEST IS TO FREEMAIN
                                    632+*
                                    633+*
                                    634+*    TO GETMAIN (SVC 4)
                                    635+*
                                    636+*        REGISTER 1 = ADDRESS OF A PRAMETER LIST
                                    637+*
                                    638+*
                                    639+*    TO FREEMAIN (SVC 5)
                                    640+*
                                    641+*        REGISTER 1 = ADDRESS OF A PARAMETER LIST
                                    642+*
                                    643+*    TO BRANCH ENTRY POINTS
                                    644+*
                                    645+*        SAME INPUT AS FOR CORRESPONDING SVC ENTRY EXCEPT THAT IN
                                    646+*        ADDITION THE ENVIRONMENTAL REGISTERS AND THE RETURN REGISTER
                                    647+*        MUST BE SET UP BY THE CALLER SINCE THE INTERRUPT HANDLER IS
                                    648+*        BYPASSED.
                                    649+*
                                    650+*
                                    651+*    PARAMETER LIST FORMAT
                                    652+*
                                    653+*              ********************************************
                                    654+*              * LENGTH REQUESTED IF SINGLE AREA REQUEST  *
                                    655+*              *  OR ADDRESS OF A LIST OF LENGTHS         *
                                    656+*              ********************************************
                                    657+*              * ADDRESS OF A LIST IN WHICH THE ADDRESSES *
                                    658+*              *  OF ALLOCATED AREAS IS TO BE RETURNED    *
                                    659+*              ********************************************
                                    660+*              * CODE     * SUBPOOL  *
                                    661+*              *          *   ID     *
                                    662+*              ***********************
                                    663+*
                                    664+*          CODE VALUES
                                    665+*              X'00' - UNCONDITIONAL SINGLE ELEMENT REQUEST
                                    666+*              X'20' - CONDITIONAL     ''     ''      ''
                                    667+*              X'C0' - UNCONDITIONAL VARIABLE REQUEST
                                    668+*              X'E0' - CONDITIONAL      ''      ''
                                    669+*              X'80' - UNCONDITIONAL LIST REQUEST
                                    670+*              X'A0' - CONDITIONAL    ''    ''
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    672+*    LIST FORMATS
                                    673+*
                                    674+*        SINGLE ELEMENT REQUEST
                                    675+*
                                    676+*           AREA LIST
                                    677+*              ********************************************
                                    678+*              *          * ADDRESS OF AREA ALLOCATED     *
                                    679+*              ********************************************
                                    680+*
                                    681+*        VARIABLE REQUEST
                                    682+*
                                    683+*           LENGTH LIST
                                    684+*              ********************************************
                                    685+*              *    0     * MINIMUM LENGTH REQUESTED      *
                                    686+*              ********************************************
                                    687+*              *    0     * MAXIMUM LENGTH REQUESTED      *
                                    688+*              ********************************************
                                    689+*
                                    690+*           AREA LIST
                                    691+*              ********************************************
                                    692+*              *          * ADDRESS OF AREA ALLOCATED     *
                                    693+*              ********************************************
                                    694+*              *          * ACTUAL LENGTH ALLOCATED       *
                                    695+*              ********************************************
                                    696+*
                                    697+*        LIST REQUEST
                                    698+*
                                    699+*           LENGTH LIST
                                    700+*              ********************************************
                                    701+*              * SIGN = 0 * FIRST LENGTH REQUESTED        *
                                    702+*              ********************************************
                                    703+*              * SIGN = 0 * SECOND LENGTH REQUESTED       *
                                    704+*              ********************************************
                                    705+*              /                                          /
                                    706+*              ********************************************
                                    707+*              * SIGN = 1 * LAST LENGTH REQUESTED         *
                                    708+*              ********************************************
                                    709+*
                                    710+*           AREA LIST
                                    711+*              ********************************************
                                    712+*              *          * ADDR OF AREA FOR FIRST LENGTH *
                                    713+*              ********************************************
                                    714+*              *          * ADDR OF AREA FOR SECOND LENGTH*
                                    715+*              ********************************************
                                    716+*              /                                          /
                                    717+*              ********************************************
                                    718+*              *          * ADDR OF AREA FOR LAST LENGTH  *
                                    719+*              ********************************************
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78




                                    723+*    PQE - PARTITION QUEUE ELEMENT

                                    725+*********************************************************************
                                    726+*        *  FORWARD FBQE POINTER  *        * BACKWARD FBQE POINTER  *
                                    727+*   0    *  OR PQE ADDRESS        *   0    * OR PQE ADDRESS         *
                                    728+*        *         (FWDPTR)       *        *        (BCKPTR)        *
                                    729+*********************************************************************
                                    730+*        *                        *        *                        *
                                    731+*   0    *   FORWARD PQE POINTER  *   0    *  BACKWARD PQE POINTER  *
                                    732+*        *        (PQENXT)        *        *       (PQEPREV)        *
                                    733+*********************************************************************
                                    734+*        *                        *        *                        *
                                    735+*   0    *      TCB POINTER       *    0   *    SIZE OF REGION      *
                                    736+*        *        (PQETCB)        *        *      (PQERGSZ)         *
                                    737+*********************************************************************
                                    738+*        *   ADDRESS OF FIRST     *        *        *               *
                                    739+*   0    *    BYTE IN REGION      * FLAGS  * HI ID  *        0      *
                                    740+*        *      (PQESTADD)        *        *        *               *
                                    741+*********************************************************************

                                    743+*        FLAGS- X'80' - PQE REGION IS BORROWED BY ROLLOUT



                                    745+*    FBQE - FREE BLOCK QUEUE ELEMENT

                                    747+*********************************************************************
                                    748+*        *                        *        *                        *
                                    749+*   0    *     FORWARD POINTER    *    0   *    BACKWARD POINTER    *
                                    750+*        *         (FWDPTR)       *        *        (BCKPTR)        *
                                    751+*********************************************************************
                                    752+*        *                        *
                                    753+*   0    *          SIZE          *
                                    754+*        *                        *
                                    755+***********************************



                                    757+*    SPQE - SUBPOOL QUEUE ELEMENT

                                    759+*********************************************************************
                                    760+*        *  SPQE POINTER OR       * SUBPOOL*  DQE ADDRESS OR        *
                                    761+* FLAGS  *    ZERO (IF LAST SPQE) *   ID   *   SPQE OF HIGHER LEVEL *
                                    762+*        *                        *        *   TASK SHARING SUBPOOL *
                                    763+*********************************************************************

                                    765+*        FLAGS- X'80' - SUBPOOL IS SHARED
                                    766+*             - X'40' - LAST SPQE ON CHAIN



                                    768+*    DQE - DESCRIPTOR QUEUE ELEMENT
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    770+*********************************************************************
                                    771+*        *                        *        *                        *
                                    772+*   0    *    FQE POINTER         *    0   *      DQE POINTER       *
                                    773+*        *   (0 = NO FQES)        *        * (0 = LAST DQE ON CHAIN)*
                                    774+*********************************************************************
                                    775+*        *                        *        *    NUMBER OF BYTES     *
                                    776+*   0    *  FIRST BLOCK ADDRESS   *    0   *       IN BLOCKS        *
                                    777+*        *                        *        *                        *
                                    778+*********************************************************************



                                    780+*    FQE - FREE QUEUE ELEMENT

                                    782+*********************************************************************
                                    783+*        *                        *        *                        *
                                    784+*   0    *    FQE POINTER         *    0   * LENGTH OF FREE AREA    *
                                    785+*        *                        *        *                        *
                                    786+*********************************************************************




                                    788+*    AQE - ALLOCATED SUPERVISOR QUEUE SPACE QUEUE ELEMENT (FOR SUBPOOLS
                                    789+*          253-254)

                                    791+*********************************************************************
                                    792+*        *                        *        *                        *
                                    793+*   0    *    AQE POINTER         *    0   *       LENGTH OF        *
                                    794+*        *                        *        *     ALLOCATED AREA     *
                                    795+*********************************************************************




                                    797+*    TCT - TIMING CONTROL TABLE CORE USED AREA.                     SMF

                                    799+********************************************************************SMF
                                    800+*        *                        *        *                        SMF
                                    801+*   0    *    LOW WATER MARK      *   0    *     HIGH WATER MARK    SMF
                                    802+*        *                        *        *                        SMF
                                    803+********************************************************************SMF
                                    804+*                *                *                                 SMF
                                    805+* MINIMUM DIFF.  *  REGION SIZE   *                                 SMF
                                    806+* (2K BLOCKS)    *  (2K BLOCKS)   *                                 SMF
                                    807+********************************************************************SMF
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    809+*        GETMAIN ENTRY POINT
                                    810+*
000000                              811+         DS    0D
000000 0580                         812+IGC004   BALR  RBASE,0
000002                              813+         USING MSSBASE,RBASE,FREBAS ESTABLISH DOUBLE BASE       20021
                                    814+*
000002 5830 891A            0091C   815+MSSBASE  L     FREBAS,DBASADR ESTABLISH DOUBLE BASE          20021
000006 D200 3290 0021 01292 00021   816+         MVC   MODEBYTE(1),33(0) MOVE INTO MODE BYTE            20021
00000C 9204 3291      01293         817+GMBASE   MVI   SVCBYTE,4
000010 58F0 32F6            012F8   818+         L     IPVLBASE,IPVAL
000014 059F                         819+         BALR  RCOMRET1,IPVLBASE VALIDITY CHECK INPUT PARAMETERS
                                    820+*                  RETURN WITH - RLENGTH = LENGTH/ADDR OF LENGTH LIST
                                    821+*                                 RADDR   = ADDR OF AREA LIST
                                    822+*                                 RSPID   = SUBPOOL ID

000016 91C0 1008      00008         824+         TM    8(RIN1),X'C0' CHECK TYPE OF REQUEST
00001A 4740 802C            0002E   825+         BC    4,GLIST LIST
00001E 4710 8092            00094   826+         BC    1,GVAR VARIABLE
                                    827+*
000022 45D0 83F8            003FA   828+         BAL   RGMRET,GMCOMMON ELEMENT - BRANCH TO GET STORAGE
000026 47F0 83EC            003EE   829+         B     GMSEXIT BRANCH TO S-TYPE REQUEST EXIT
00002A 47F0 81D8            001DA   830+         B     GNOTSAT EXIT-REQUEST NOT SATISFIED

                                    832+*        LIST REQUEST PROCESSING
                                    833+*
00002E 182A                         834+GLIST    LR    RLST,RLENGTH SAVE LENTH LIST ADDR
000030 41D0 83F8            003FA   835+         LA    RGMRET,GMCOMMON ADDR OF COMMON ROUTINE
000034 58A2 0000            00000   836+GLIST1   L     RLENGTH,0(RLST) LOAD REQUESTED LENGTH
000038 41AA 0000            00000   837+GLIST1A  LA    RLENGTH,0(RLENGTH) CLEAR LAST ENTRY INDICATOR      LC0A
00003C 05DD                         838+         BALR  RGMRET,RGMRET BRANCH TO COMMON ROUTINE
00003E 47F0 807A            0007C   839+         B     GLEFND ENTRY FOUND
                                    840+*
                                    841+*        LIST REQUEST NOT SATISFIED-RELEASE CORE ALREADY ALLOCATED
                                    842+*
000042 47F0 81D8            001DA   843+         B     GNOTSAT
000046 5921 0000            00000   844+GLIST2   C     RLST,0(RIN1) IF FIRST LIST ENTRY FAILED
00004A 4780 81F8            001FA   845+         BE    GNOTSAT4 BYPASS FREEING ENTRIES
00004E 4170 0004            00004   846+         LA    RWORK2,4 DECREMENT LIST ADDRESS TO LAST
000052 1B27                         847+         SR    RLST,RWORK2 ENTRY ALLOCATED
000054 9680 2000      00000         848+         OI    0(RLST),X'80' SET TEMPORARY END OF LIST FOR FREEMAIN
000058 5020 8906            00908   849+         ST    RLST,SAVEREGS+LSTREG SAVE CURRENT LIST ADDR    ****
00005C 5821 0000            00000   850+         L     RLST,0(RIN1) LOAD STARTING LIST ADDRESSES
000060 58B1 0004            00004   851+         L     RADDR,4(RIN1)
000064 41D0 8A46            00A48   852+         LA    RFMRET,FCOMMON1
000068 45E0 8746            00748   853+         BAL   RRETURN,FLISTADV FREE LIST ENTRIES ALREADY ALLOCATED
00006C 94F7 3313      01315         854+         NI    FREESW,255-X'08' 21016
000070 98B3 88EA            008EC   855+         LM    RADDR,FREBAS,SAVEREGS RESTORE REGS (11-3)         20021
000074 9780 2000      00000         856+         XI    0(RLST),X'80' TURN OFF TEMPORARY END OF LIST BIT
000078 47F0 81F8            001FA   857+         B     GNOTSAT4 EXIT-REQUEST NOT SATISFIED
                                    858+*
                                    859+*        CHECK FOR MORE LIST ENTRIES
                                    860+*
00007C 9180 2000      00000         861+GLEFND   TM    0(RLST),X'80' IS THIS LAST ENTRY IN LIST
000080 4710 83EC            003EE   862+         BO    GMSEXIT YES - EXIT
                                    863+*
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000084 4122 0004            00004   864+         LA    RLST,4(RLST) NO  - CHECK NEXT ENTRY
000088 41BB 0004            00004   865+         LA    RADDR,4(RADDR)
00008C 41D0 8404            00406   866+         LA    RGMRET,GCOMMON1 ADDR OF COMMON ROUTINE BYPASSING
                                    867+*                                     SPQE SEARCH
000090 47F0 8032            00034   868+         B     GLIST1
                                    869+*
                                    870+*
                                    871+*        VARIABLE REQUEST PROCESSING
                                    872+*
000094 182A                         873+GVAR     LR    RLST,RLENGTH
000096 58A2 0004            00004   874+         L     RLENGTH,4(RLST) LOAD MAXIMUM REQUESTED
00009A 45D0 83F8            003FA   875+         BAL   RGMRET,GMCOMMON GET STORAGE
00009E 47F0 8106            00108   876+         B     GVARFND CORE FOUND
                                    877+*                                  CORE NOT FOUND
0000A2 45D0 3114            01116   878+         BAL   RRET,CDPURGE PURGE JPA AND LPA
0000A6 47F0 826E            00270   879+         B     GMREPEAT IF STORAGE FREED
0000AA                              880+GVFNDR   EQU   * .                                               A31213
0000AA 1255                         881+         LTR   RSPID,RSPID REQUEST FOR SUBPOOL 253 OR 254
0000AC 47B0 80B4            000B6   882+         BC    11,GMINCK NO-CHECK MINIMUM LENGTH
0000B0 41D0 0008            00008   883+         LA    RGMRET,8 DECREMENT MAXIMUM AVAILABLE TO ALLOW
0000B4 1B6D                         884+         SR    RLRGSIZ,RGMRET FOR QEC
                                    885+*
0000B6                              886+GMINCK   EQU   * .                                               A31213
0000B6 18DA                         887+         LR    RGMRET,RLENGTH .          SAVE MAX LENGTH         A31213
0000B8 58A2 0000            00000   888+         L     RLENGTH,0(RLST) .         LOAD MIN LENGTH         A31213
0000BC 59A0 32E2            012E4   889+         C     RLENGTH,FBQESIZ .         IS LENGHT > THAN FBQE?  A31213
0000C0 4720 80CE            000D0   890+         BH    CKMAX .                   YES, BRANCH             A31213
0000C4 58A0 32E2            012E4   891+         L     RLENGTH,FBQESIZ .         LOAD SIZE FOR ALLOC     A31213
0000C8 47F0 80F6            000F8   892+         B     GETMIN .                                          A31213
0000CC                              893+GNTST4   EQU   * .                                               A31213
0000CC 47F0 81F8            001FA   894+         B     GNOTSAT4 .              PROCESS CONDITIONAL REQ   A31213
0000D0                              895+CKMAX    EQU   * .                                               A31213
0000D0 59A0 32DE            012E0   896+         C     RLENGTH,K4080 .      CAN REQUEST BE SAT BY FQE    A31213
0000D4 4720 80CA            000CC   897+         BH    GNTST4 .             NO, PROCESS CONDITIONAL REQ  A31213
0000D8 58A0 32DE            012E0   898+         L     RLENGTH,K4080 .         LARGEST FQE CAN ALLOC  BC A49843
0000DC 58B0 88EA            008EC   899+         L     RADDR,SAVEREGS .                               BC A49843
0000E0 45D0 8404            00406   900+         BAL   RGMRET,GCOMMON1 .      INIT FQESIZE FIELD      BC A49843
0000E4 47F0 8106            00108   901+         B     GVARFND .              CORE FOUND              BC A49843
0000E8 58A2 0000            00000   902+         L     RLENGTH,0(RLST) .     RELOAD MIN LENGTH        BC A49843
0000EC 59A0 32E6            012E8   903+         C     RLENGTH,FQESIZ .     IS FREE CORE AVAIL IN FQE    A31213
0000F0 4720 80CA            000CC   904+         BH    GNTST4 .             NO, PROCESS CONDITIONAL REQ  A31213
0000F4 58A0 32E6            012E8   905+         L     RLENGTH,FQESIZ .     LOAD SIZE OF LARGEST FQE     A31213
0000F8                              906+GETMIN   EQU   * .                                               A31213
0000F8 58B0 88EA            008EC   907+         L     RADDR,SAVEREGS .                                  A31213
                                    908+*
0000FC 45D0 8404            00406   909+         BAL   RGMRET,GCOMMON1 -BYPASS SPID CHECK
000100 47F0 8106            00108   910+         B     GVARFND CORE FOUND
000104 47F0 80CA            000CC   911+         B     GNTST4 NO CORE AVAILABLE, PROCESS COND. REQ    SA66067
                                    912+*
000108 50AB 0004            00004   913+GVARFND  ST    RLENGTH,4(RADDR) STORE ALLOCATED LENGTH IN LIST
00010C 47F0 83EC            003EE   914+         B     GMSEXIT
                                    915+*


                                    917+*        BRANCH ENTRY PROCESSING
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    919+         DROP  FREBAS .            DROP BASE FOR ADDRESSABILITY   M0105
000110 18F8                         920+GMBRANCH LR    RIN15,RBASE SAVE REGISTER 8
000112 0580                         921+         BALR  RBASE,0
000114                              922+         USING *,RBASE
000114 5880 8810            00924   923+         L     RBASE,MSSADR
000002                              924+         USING MSSBASE,RBASE,FREBAS 20021
000118 8000 891E      00920         925+         SSM   CLHIBYTE .           DISABLE                       M3872
00011C 50F0 87CE            007D0   926+         ST    RIN15,BRANCHSV+24 RIN15 = ENTRY CONTENTS OF REG8
000120 41F0 800A            0000C   927+         LA    RIN15,GMBASE SET UP BRANCH TO GETMAIN
000124 9027 87B6            007B8   928+GMBRNCOM STM   RLST,RCOMRET3,BRANCHSV SAVE REGISTERS FOR CALLER   M3872
000128 909E 87D2            007D4   929+         STM   RCOMRET1,RRETURN,BRANCHSV+28
00012C 5830 891A            0091C   930+         L     FREBAS,DBASADR INITIALIZE SECOND BASE         20021
000130 50E0 330E            01310   931+         ST    RRETURN,BRNREG SAVE RETURN REG FOR ABEND INFO    21016
000134 9200 3290      01292         932+         MVI   MODEBYTE,0 SET MODE AS SUPERVISOR
000138 92FF 3282      01284         933+         MVI   BESW,X'FF' SET BRANCH ENTRY SWITCH
00013C 05EF                         934+         BALR  RRETURN,RIN15 BRANCH TO GETMAIN OR FREEMAIN
00013E 9200 3282      01284         935+         MVI   BESW,X'00' RESET BRANCH ENTRY SWITCH
000142 982E 87B6            007B8   936+         LM    RLST,RRETURN,BRANCHSV RESTORE REGISTERS FOR CALLER
000146 07FE                         937+         BR    RRETURN RETURN TO CALLER
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    939+*        REGMAIN ENTRY POINT
                                    940+*
000148                              941+         DS    0D
                                    942+         DROP  FREBAS .    DROP SECOND BASE                       M0105
000148 0580                         943+IGC010   BALR  RBASE,0
00014A                              944+         USING *,RBASE
00014A 5880 87DA            00924   945+         L     RBASE,MSSADR
000002                              946+         USING MSSBASE,RBASE,FREBAS 20021
00014E 5830 891A            0091C   947+         L     FREBAS,DBASADR INITIALIZE SECOND BASE         20021
000152 D200 3290 0021 01292 00021   948+         MVC   MODEBYTE(1),33(0) MODE INTO MODE BYTE
000158 4160 000D            0000D   949+RMBASE   LA    RERROR,GERRCODE SET UP ERROR CODE REGISTER      LC0A
00015C 920A 3291      01293         950+         MVI   SVCBYTE,10
000160 18A0                         951+         LR    RLENGTH,RIN0 LOAD REQUEST LENGTH
000162 41AA 0000            00000   952+         LA    RLENGTH,0(RLENGTH) CLEAR SPID FROM HIGH ORDER BYTE
000166 1850                         953+         LR    RSPID,RIN0 LOAD INPUT SUBPOOL ID
000168 8850 0018            00018   954+         SRL   RSPID,24 SHIFT TO LOW ORDER BYTE
00016C 4250 32D6            012D8   955+         STC   RSPID,SPIDSAV .           SAVE SPID               A32912
000170 4050 32D8            012DA   956+         STH   RSPID,@SPSAVE SAVE SUBPOOL ID             @AS76397
000174 41B0 32B2            012B4   957+         LA    RADDR,RECURSE LOAD ADDRESS OF ACSAVE AREA TO
                                    958+*                                   MAKE REQUEST LOOK LIKE S-TYPE REQ
000178 501B 0000            00000   959+         ST    RIN1,0(RADDR) SAVE INPUT ADDR FOR FREEMAIN
00017C 9400 B000      00000         960+         NI    0(RADDR),0 CLEAR HIGH ORDER BYTE
                                    961+*
                                    962+*
                                    963+*        DETERMINE TYPE OF REQUEST
                                    964+*
000180 1211                         965+         LTR   RIN1,RIN1
000182 4780 8926            00928   966+         BZ    SPFRMAIN SUBPOOL FREEMAIN
000186 4720 8774            00776   967+         BP    FELEMENT BRANCH TO FREE MAIN
                                    968+*
                                    969+*        INTERFACE TO S-TYPE GETMAIN
                                    970+*
00018A 45D0 83F8            003FA   971+RMGM     BAL   RGMRET,GMCOMMON LC0A
00018E 47F0 81A8            001AA   972+         B     RMEXIT CORE FOUND
000192 45D0 3114            01116   973+         BAL   RRET,CDPURGE PURGE JPA AND LPA
000196 47F0 819C            0019E   974+         B     FREEA @AS76858
00019A 47F0 8208            0020A   975+         B     GNOTSAT1 @AS76858
00019E 4250 32D6            012D8   976+FREEA    STC   RSPID,SPIDSAV @AS76858
0001A2 920A 3291      01293         977+         MVI   SVCBYTE,10 @AS76858
0001A6 47F0 826E            00270   978+         B     GMREPEAT @AS76858
                                    979+*
0001AA 1817                         980+RMEXIT   LR    RIN1,RFQE LOAD ADDR OF ASSIGNED CORE
0001AC 47F0 83F6            003F8   981+         B     GRETURN


                                    983+*        BRANCH ENTRY PROCESSING

                                    985+         DROP  FREBAS .    DROP SECOND BASE                       M0105
0001B0 18F8                         986+RMBRANCH LR    RIN15,RBASE SAVE REGISTER 8
0001B2 0580                         987+         BALR  RBASE,0
0001B4                              988+         USING *,RBASE
0001B4 5880 8770            00924   989+         L     RBASE,MSSADR
000002                              990+         USING MSSBASE,RBASE,FREBAS 20021
0001B8 8000 891E      00920         991+         SSM   CLHIBYTE .          DISABLE                        M3872
0001BC 1211                         992+         LTR   RIN1,RIN1 IS IT A FREEMAIN              A28819
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0001BE 47A0 81CC            001CE   993+         BC    10,FMBREN IF POSITIVE, FREEMAIN        A28819
0001C2 50F0 87CE            007D0   994+         ST    RIN15,BRANCHSV+24 RIN15 = ENTRY CONTENTS OF REG8
0001C6 41F0 8156            00158   995+         LA    RIN15,RMBASE SET UP BRANCH TO REGMAIN
0001CA 47F0 8122            00124   996+         B     GMBRNCOM TO BRANCH ENTRY COMMON ROUTINE
0001CE 50F0 8802            00804   997+FMBREN   ST    RIN15,FMBRSAV+24 A28819
0001D2 41F0 8156            00158   998+         LA    RIN15,RMBASE A28819
0001D6 47F0 8792            00794   999+         B     FMBRNCOM A28819
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1001+*        REQUEST NOT SATISFIED - PUT TASK IN WAIT STATE
                                   1002+*
                                   1003+*
                                   1004+*
0001DA 45D0 3114            01116  1005+GNOTSAT  BAL   RRET,CDPURGE PURGE JPA AND LPA
0001DE 47F0 81E4            001E6  1006+         B     XRETRY @SA77169
0001E2 47F0 81F0            001F2  1007+         B     NORETRY @SA77169
0001E6 4250 32D6            012D8  1008+XRETRY   STC   RSPID,SPIDSAV @SA77169
0001EA 9204 3291      01293        1009+         MVI   SVCBYTE,X'04' @SA77169
0001EE 47F0 826E            00270  1010+         B     GMREPEAT IF STORAGE FREED
0001F2                             1011+NORETRY  EQU   * @SA77169
0001F2 91C0 1008      00008        1012+         TM    8(RIN1),X'C0' IS IT LIST REQUEST
0001F6 4740 8044            00046  1013+         BM    GLIST2 YES
0001FA 9120 1008      00008        1014+GNOTSAT4 TM    8(RIN1),32 IS REQUEST CONDITIONAL
0001FE 47E0 8208            0020A  1015+         BC    14,GNOTSAT1 NO
000202 41F0 0004            00004  1016+         LA    RIN15,4 SET RETURN CODE OF 4
000206 47F0 83F6            003F8  1017+         B     GRETURN RETURN



                                   1020+*        ROUTINE FOR HANDLING REQUEST-NOT-SATISFIED CONDITION
                                   1021+*        DETERMINE WHETHER TO ABEND OR PLACE SYSTEM IN WAIT

00020A 5550 32CA            012CC  1023+GNOTSAT1 CL    RSPID,C252 IS REQUEST FOR SQ SPACE
00020E 4720 8262            00264  1024+         BH    GNOTSAT5 YES
000212 4160 000D            0000D  1025+SETERR8  LA    RERROR,GERRCODE SET UP ERROR CODE REGISTER      LC0A
000216 D203 3306 3286 01308 01288  1026+         MVC   ABNDATA(4),ORGLRG SAVE LARGEST SIZE              21016
00021C 58B0 3306            01308  1027+         L     RADDR,ABNDATA 21016
000220 9228 3312      01314        1028+         MVI   MSGLEN,X'28' SET REASON CODE AND LENGTH     21016
000224 47F0 3190            01192  1029+         B     GERROR8
                                   1030+*THIS ROUTINE IS ENTERED WHEN A REQUEST FOR SUPERVISOR QUEUE SPACE SWS
                                   1031+*CANNOT BE SATISFIED.                                              SWS
                                   1032+*IN AN ATTEMPT TO AVOUD A WAIT STATE, THIS ROUTINE WILL EXAMINE THESWS
                                   1033+*SIZE OF THE REQUEST.  IF THE SIZE OF THE REQUEST IS LARGER THAN   SWS
                                   1034+*144 BYTES,THE REQUESTOR WILL BE ABTERMED WITH A E04 COMPLETION    SWS
                                   1035+*CODE                                                              SWS
                                   1036+*IF THE SIZE OF THE REQUEST IS EQUAL TO OR LESS THAN 144 BYTES, A  SWS
                                   1037+*DISABLED WAIT STATE PSW WILL BE LOADED.                           SWS
                                   1038+*                                                                  SWS
000228                             1039+GNOTSAT2 DS    0H SWS
000228 4160 0090            00090  1040+         LA    RWORK1,144 SET UP XR FOR COMPARE            SWS
00022C 5960 333E            01340  1041+         C     RWORK1,REQSIZE ABTERM REQUESTOR IF SIZE         SWS
000230 4740 825A            0025C  1042+         BL    TERM IS LARGER THAN 144               SWS
000234 5810 333A            0133C  1043+         L     RIN1,WAIT+4 PICK UP ABEND CODE               SWS
000238 8910 000C            0000C  1044+         SLL   RIN1,12 SET UP COMPLETION CODE                SWS
00023C 5014 0010            00010  1045+         ST    RIN1,16(RTCB) STORE CODE IN TCB                 SWS
000240 58F0 0010            00010  1046+         L     RIN15,CVTPTR LOCATE CVT                     21014
000244 58FF 0104            00104  1047+         L     RIN15,CVTPURG(RIN15) LOCATE SUBSYSTEM PURGE ROUT 21014
000248 1814                        1048+         LR    RIN1,RTCB MOVE TCB ADDR TO REG 1         21014
00024A 05EF                        1049+         BALR  RRETURN,RIN15 GO TO SUBSYSTEM PURGE          21014
00024C 9680 4010      00010        1050+         OI    16(RTCB),X'80' SET FLAG BIT                      SWS
000250 9601 4021      00021        1051+         OI    33(RTCB),X'01' SET NON-DISPATCHABILITY BIT      SWS
000254 9640 40AD      000AD        1052+         OI    173(RTCB),X'40' INDICATE OUT OF STORAGE         SWS
000258 8200 3336      01338        1053+         LPSW  WAIT PLACE MACHINE IN WAIT STATE      SWS
00025C 5810 333A            0133C  1054+TERM     L     RIN1,WAIT+4 PICK UP ABEND CODE               SWS
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000260 47F0 31A4            011A6  1055+         B     ERRF11 SWS
                                   1056+*
000264                             1057+GNOTSAT5 EQU   * 20021
000264 91FF 328A      0128C        1058+         TM    LSQSSW,LSQSMSK IS REQUEST FOR LSQS?           20021
000268 4770 8276            00278  1059+         BNZ   GNOLSQS YES-BRANCH TO LSQS PROCSSNG     20021
00026C 4590 82F4            002F6  1060+         BAL   RCOMRET1,GNOTSAT3 ATTEMPT TO GET MORE SQS SPACE  20021
000270 98B3 88EA            008EC  1061+GMREPEAT LM    RADDR,FREBAS,SAVEREGS RESTORE REGS (11-3) RETRY   20021
000274 47F0 842E            00430  1062+         B     GCOMMON2 TO REPEAT REQUEST
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1064+*                                                                 20021
                                   1065+*        THIS ROUTINE HANDLES AN OUT OF LSQS CONDITION.  IF THE   20021
                                   1066+*        CALLING TASK IS NOT ABENDING, IT IS ABENDED. IF THE      20021
                                   1067+*        TASK IS ABENDING, THE REQUEST IS RETRIED FROM SQS.       20021
                                   1068+*        SUBPOOL 254, RTCB=JOBSTEP TCB AND A DAUGHTER MAY BE      20021
                                   1069+*        ABENDING.  ALSO, CHECK CURRENT TCB                       20021
000278 1B66                        1070+GNOLSQS  SR    RERROR,RERROR -     SET FIRST TCB                  20021
00027A 9180 401D      0001D        1071+GNOLSQS1 TM    TCBFLG1(RTCB),TCBFA IS CALLING TASK ABENDING       20021
00027E 4770 82D8            002DA  1072+         BNZ   GETSQS -            YES-ALLOCATE FROM SQS          20021
000282 9120 401F      0001F        1073+         TM    TCBFLG3(RTCB),TCBABTRM IS CALLING TASK ABTERMING   20021
000286 4770 82D8            002DA  1074+         BNZ   GETSQS -             YES-ALLOCATE FROM SQS         20021
00028A 9118 401E      0001E        1075+         TM    TCBFLG2(RTCB),TCBMC -TASK MUST COMPLETE            20021
00028E 4770 82D8            002DA  1076+         BNZ   GETSQS -             YES-ALLOCATE FROM SQS         20021
000292 9180 40A0      000A0        1077+         TM    TCBSTAE(RTCB),TCBSTABE IS CALLING TASK STAE EXIT   20021
000296 4770 82D8            002DA  1078+         BNZ   GETSQS -             YES-ALLOCATE FROM SQS         20021
00029A 5814 0000            00000  1079+         L     RIN1,TCBRBP(RTCB) -  GET CURR RB ADDRSS            20021
00029E 91C0 100A      0000A        1080+         TM    RBSTAB(RIN1),X'C0' - IS IT AN SVRB?                20021
0002A2 47E0 82AE            002B0  1081+         BNO   GNOLSQS2 -          NO, CHECK FOR 254              M3872
0002A6 D504 1088 328B 00088 0128D  1082+         CLC   RBEXSAVE+DISP(L5,RIN1),ABENDMSK .  ABEND SVRB ?   M3872
0002AC 4780 82D8            002DA  1083+         BE    GETSQS -            YES-USE SQS                    20021
0002B0 1266                        1084+GNOLSQS2 LTR   RERROR,RERROR -     CHECKING SECOND TCB            20021
0002B2 4770 82D0            002D2  1085+         BNZ   OUTLSQS -           TWO TCBS AND YOUR OUT          20021
0002B6 1375                        1086+         LCR   RWORK2,RSPID -      COMPLEMENT SUBPOOL NUMBER      20021
0002B8 5570 32CE            012D0  1087+         CL    RWORK2,C254 -       SUBPOOL 254                    20021
0002BC 4770 82D0            002D2  1088+         BNE   OUTLSQS -           NO, TERMINATE TASK             20021
0002C0 1864                        1089+         LR    RERROR,RTCB -       SAVE THE JOBSTEP TCB           20021
0002C2 5840 0010            00010  1090+         L     RTCB,16(0) -        GET CURRENT TCB ADDR.          20021
0002C6 5844 0000            00000  1091+         L     RTCB,0(RTCB) -      *                              20021
0002CA 5844 0004            00004  1092+         L     RTCB,4(RTCB) -      *                              20021
0002CE 47F0 8278            0027A  1093+         B     GNOLSQS1 -          CHECK CURRENT TCB              20021
0002D2 4160 000D            0000D  1094+OUTLSQS  LA    RERROR,GERRCODE -   TASK OUT OF LSQS-TERMINATE     20021
0002D6 47F0 3182            01184  1095+         B     GERROR1 -           CALLING TASK (LOADS RTCB)      20021
0002DA 9200 328A      0128C        1096+GETSQS   MVI   LSQSSW,LSQSOFF -    CLEAR LSQS SWITCH              20021
0002DE 1266                        1097+         LTR   RERROR,RERROR -     SECOND TCB                     20021
0002E0 4780 82E4            002E6  1098+         BZ    GETSQS1 -           NO                             20021
0002E4 1846                        1099+         LR    RTCB,RERROR -       YES, RE LOAD TCB ADDR.         20021
0002E6 41C0 3296            01298  1100+GETSQS1  LA    RSPQE,SQESPQE -     ADDR. OF SQS SPQE              20021
0002EA 50C0 88EE            008F0  1101+         ST    RSPQE,SAVEREGS+4 -  STORE IN RETRY REGS(REG 12)    20021
0002EE 98B3 88EA            008EC  1102+         LM    RADDR,FREBAS,SAVEREGS RESTORE REGS(11-3) RETRY     20021
0002F2 47F0 842E            00430  1103+         B     GCOMMON2 -          RETRY REQUEST                  20021
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1105+*        THIS ROUTINE ATTEMPTS TO MAKE STORAGE AVAILABLE FOR SUPERVISOR
                                   1106+*        QUEUE SPACE BY PURGING THE JPA AND THE LPA.  IF THIS IS NOT
                                   1107+*        SUCCESSFUL IN MAKING ENOUGH STORAGE AVAILABLE, THIS ROUTINE
                                   1108+*        WILL EXTEND THE SUPERVISOR QUEUE SPACE BY ONE 2K BLOCK AT A
                                   1109+*        TIME IF THE NEXT ADJACENT 2K BLOCK IS AVAILABLE.  IF THIS
                                   1110+*        ROUTINE IS UNSUCCESSFUL IN MAKING SUFFICIENT SUPERVISOR
                                   1111+*        STORAGE AVAILABLE TO SATISFY THE REQUEST, IT WILL ENTER A
                                   1112+*        MACHINE WAIT STATE.
                                   1113+*           INPUT - RCOMRET1 - RETURN ADDRESS
                                   1114+*           OUTPUT - NONE
                                   1115+*           REGISTERS USED - RCOMRET1,RRET,RWORK1,RDISP,RCOMRET3,
                                   1116+*                           RBLOCK,RDQE,RFQE,RQESIZ,RSIZE,RWORK4,
                                   1117+*                           RWORK5

0002F6 1864                        1119+GNOTSAT3 LR    RWORK1,RTCB SAVE TCB ADDRESS
0002F8 4110 0002            00002  1120+         LA    RWORK4,2 INITIALIZE CORE FREED INDICATOR
0002FC 41D0 8306            00308  1121+         LA    RRET,NEXTTCB SET UP RETURN FROM CDPURGE
000300 5840 32BA            012BC  1122+         L     RTCB,MSCEDADD PICK UP MASTER SCHEDULER TCB ADDRESS
000304 47F0 8310            00312  1123+         B     TSTPRG TO CHECK FOR PURGE OF M.S. JPQ
000308 5844 0074            00074  1124+NEXTTCB  L     RTCB,TCBTCB(RTCB) PICK UP NEXT TCB ON TCB QUEUE
00030C 1244                        1125+         LTR   RTCB,RTCB IS THIS END OF QUEUE
00030E 4780 8328            0032A  1126+         BZ    RSTRTCB YES
000312 9180 402C      0002C        1127+TSTPRG   TM    TCBJPQ(RTCB),X'80' IS PURGE FLAG IN TCB SET
000316 4780 8306            00308  1128+         BZ    NEXTTCB NO - GET NEXT TCB
                                   1129+*                                                                 20021
                                   1130+* DON'T PURGE JPAQ FOR A TIME-SHARING TASK. PURGE WOULD ONLY      20021
                                   1131+* MAKE LSQS AVAILABLE NOT SQS. PURGE COULD RESULT IN AN ABEND     20021
                                   1132+* BECAUSE FREEMAIN FOR A TIME-SHARING TASK WILL GET THE TCB       20021
                                   1133+* ADDRESS FROM 'OLD' WHICH IS NOT THE TCB BEING PURGED.           20021

00031A 9180 4094      00094        1135+         TM    TCBTSFLG(RTCB),TCBTSTSK IS THIS A TIME-SHARING    20021
                                   1136+*                                       TASK?                     20021
00031E 4710 8306            00308  1137+         BO    NEXTTCB YES. GET NEXT TCB.             20021
000322 4110 0000            00000  1138+         LA    RWORK4,0 SET INDICATOR FOR STORAGE FREED
000326 47F0 3114            01116  1139+         B     CDPURGE PURGE JOB PACK QUEUE
00032A 1846                        1140+RSTRTCB  LR    RTCB,RWORK1 RESTORE TCB ADDRESS
00032C 47F1 832E            00330  1141+         B     RETN(RWORK4)
000330 07F9                        1142+RETN     BR    RCOMRET1 IF CORE FREED AS RESULT OF PURGES
000332 58E0 329E            012A0  1143+         L     RBLOCK,GOVRFLB+8 GET PTR TO FREE AREA PQE    @SA70721
000336 58EE 0008            00008  1144+         L     RBLOCK,PQENXT(RBLOCK) GET ONLY OR H0 PQE     @SA70721
00033A 5860 3296            01298  1145+         L     RWORK1,GOVRFLB FIRST BYTE BEYOND SQA       @SA70721
00033E 4166 0000            00000  1146+         LA    RWORK1,0(RWORK1) CLEAR POSSIBLE FLAG         @SA70721
000342 596E 0000            00000  1147+         C     RWORK1,0(RBLOCK) CONTIGUOUS EXPNSN POSBLE?   @SA70721
000346 4770 8226            00228  1148+         BNE   GNOTSAT2 NO                          @SA70721
00034A 4160 0800            00800  1149+         LA    RWORK1,2048 SIZE OF A 2K BLOCK
00034E 1B11                        1150+         SR    RDISP,RDISP SET DISPLACEMENT FOR FBQE POINTER
000350 18F1                        1151+         LR    RSIZE,RDISP INITIALIZE REGISTER
000352 4570 862A            0062C  1152+         BAL   RCOMRET3,FREEPTR GET A 2K BLOCK
000356 47F0 835C            0035E  1153+         B     CONTIGCH 2K BLOCK FOUND
00035A 47F0 8226            00228  1154+         B     GNOTSAT2 NO UNASSIGNED STORAGE
00035E                             1155+CONTIGCH EQU   * A29420
00035E 9180 3296      01298        1156+         TM    GOVRFLB,X'80' .           IS SQS TRIGGER SET      A29420
000362 47E0 8376            00378  1157+         BC    14,CONTIGCK .             NO, BRANCHTO EXPND SQS  A29420
000366 1829                        1158+         LR    RDQE,RCOMRET1 .           SAVE REGISTER           A29420
000368 187B                        1159+         LR    RFQE,RADDR .              SAVE REGISTER           A29420
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00036A 58B0 3342            01344  1160+         L     RADDR,ADPART .            LOAD BASE FOR GET/FRE - A29420
                                   1161+*                                            PART                A29420
00036E 5890 3346            01348  1162+         L     RCOMRET1,ADDISP .         LOAD ADDRESS FOR BALR   A29420
000372 0599                        1163+         BALR  RCOMRET1,RCOMRET1 .       GO TO GET/FREEPART IN   A29420
                                   1164+*                                            IEAQPR              A29420
000374 1892                        1165+         LR    RCOMRET1,RDQE .           RESTORE REG             A29420
000376 18B7                        1166+         LR    RADDR,RFQE .              RESTORE REG             A29420
000378                             1167+CONTIGCK EQU   *
000378 9400 3296      01298        1168+         NI    GOVRFLB,X'00' .           CLEAR HIGH ORDER BYTE   A29420
                                   1169+*                                         FOR COMPARE            A29420
00037C 5820 329A            0129C  1170+         L     RDQE,GOVRFLB+4 PICK UP PTR TO SUPERVISOR DQE
000380 5872 0000            00000  1171+         L     RFQE,DQEFQE(RDQE) PICK UP FIRST FQE
000384 4177 0000            00000  1172+         LA    RFQE,0(RFQE)
000388 5862 000C            0000C  1173+         L     RQESIZ,DQELNTH(RDQE) PICK UP SIZE FROM DQE
00038C 1277                        1174+         LTR   RFQE,RFQE IS THERE AN FQE FOR SQS @JK70115
00038E 4780 83DC            003DE  1175+         BZ    NEWSQFQE NO CREATE NEW FQE       @JK70115
000392 58C7 0004            00004  1176+         L     RFQEUB,FQELNTH(RFQE) PICK UP SIZE OF FREE AREA
000396 1AC7                        1177+         AR    RFQEUB,RFQE COMPUTE UPPER BOUND OF FREE AREA
000398 19CE                        1178+         CR    RFQEUB,RBLOCK IS IT CONTIGUOUS TO NEW BLOCK
00039A 4770 83DC            003DE  1179+         BNE   NEWSQFQE NO - CREATE NEW FQE
00039E 5AF7 0004            00004  1180+         A     RSIZE,FQELNTH(RFQE) COMBINE SIZES
0003A2 50F7 0004            00004  1181+         ST    RSIZE,FQELNTH(RFQE) PUT NEW SIZE IN FQE
0003A6 4166 0800            00800  1182+NEWSQSIZ LA    RQESIZ,2048(RQESIZ) INCREMENT DQE SIZE
0003AA 5062 000C            0000C  1183+         ST    RQESIZ,DQELNTH(RDQE) PUT NEW SIZE IN DQE
0003AE 58E0 329E            012A0  1184+         L     RBLOCK,GOVRFLB+8 PICK UP PTR TO PQE
0003B2 58EE 0008            00008  1185+         L     RBLOCK,DUMFWD(RBLOCK) PICK UP ADDRS OF REAL PQE
0003B6 582E 0014            00014  1186+         L     RWORK5,PQERGSZ(RBLOCK) PICK UP REGION SIZE
0003BA 4B20 32DA            012DC  1187+         SH    RWORK5,KTWO DECREMENT SIZE BY ONE BLOCK
0003BE 502E 0014            00014  1188+         ST    RWORK5,PQERGSZ(RBLOCK) UPDATE RGN SIZE IN PQE
0003C2 5820 3296            01298  1189+         L     RWORK5,GOVRFLB PICK UP SQ SPACE UPPER BOUND
0003C6 4122 0800            00800  1190+         LA    RWORK5,2048(RWORK5) UPDATE SQ SPACE UPPER BOUND
0003CA 5020 3296            01298  1191+         ST    RWORK5,GOVRFLB
0003CE 502E 0018            00018  1192+         ST    RWORK5,PQESTADD(RBLOCK) UPDATE START ADD IN PQE
0003D2 5820 0010            00010  1193+         L     RWORK5,16 LOAD ADDR OF CVT            0697
0003D6 D203 2080 3296 00080 01298  1194+         MVC   CVTNUCB(4,RWORK5),GOVRFLB UPDATE CVT             0697
0003DC 07F9                        1195+         BR    RCOMRET1 RETURN
0003DE 50FE 0004            00004  1196+NEWSQFQE ST    RSIZE,FQELNTH(RBLOCK) STORE SIZE IN NEW FQE
0003E2 507E 0000            00000  1197+         ST    RFQE,FQENXT(RBLOCK) PUT POINTER TO NEXT FQE IN NEW FQE
0003E6 50E2 0000            00000  1198+         ST    RBLOCK,DQEFQE(RDQE) PUT ADDRESS OF NEW FQE IN DQE
0003EA 47F0 83A4            003A6  1199+         B     NEWSQSIZ ADJUST DQE
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1201+*        TERMINATION PROCEDURES - CORE ALLOCATED

0003EE 9120 1008      00008        1203+GMSEXIT  TM    8(RIN1),32 WAS REQUEST CONDITIONAL
0003F2 47E0 83F6            003F8  1204+         BC    14,GRETURN
0003F6 1BFF                        1205+GRETURN1 SR    RIN15,RIN15 YES-SET ERROR CODE TO ZERO.
                                   1206+*
0003F8 07FE                        1207+GRETURN  BR    RRETURN RETURN TO CALLER
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1209+*        MAINLINE CONTROL ROUTINE FOR GETMAIN
                                   1210+*           INPUT - RLENGTH - REQUESTED LENGTH
                                   1211+*                   RSPID   - REQUESTED SUBPOOL ID
                                   1212+*                   RADDR   - ADDR OF LIST ENTRY TO STORE AREA ADDR
                                   1213+*                   RTCB    * ADDR OF TCB FOR REQUESTING TASK
                                   1214+*                   RGMRET  * RETURN REG
                                   1215+*           OUTPUT -
                                   1216+*              IF REQUEST IS SATISFIED (RETURN TO  RGMRET')
                                   1217+*                   ADDRESS OF ALLOCATED AREA IS IN LIST ENTRY
                                   1218+*              IF REQUEST IS NOT SATISFIED (RETURN TO 'RGMRET + 4')
                                   1219+*                   RLRGSIZ - SIZE OF LARGEST AVAILABLE FREE AREA
                                   1220+*           REGISTERS USED - EXCLUDING THOSE USED BY SUBROUTINES
                                   1221+*                   RCOMRET1,RMASK,RWORK1,RLENGTH,RSPID,RFQE,RADDR,
                                   1222+*                   RGMRET
                                   1223+*
0003FA 50A0 333E            01340  1224+GMCOMMON ST    RLENGTH,REQSIZE SAVE SIZE OF REQUEST FOR LATER USE SWS
0003FE 4590 8E28            00E2A  1225+         BAL   RCOMRET1,CSPCHK GET SPQE FOR REQUESTED SUBPOOL   SWS
000402 47F0 86E6            006E8  1226+         B     GSPQESPC NOT FOUND-CREATE SPQE


                                   1228+*        ALTERNATE ENTRY POINT USED FOR LIST AND VARIABLE REQUESTS-
                                   1229+*          AFTER THE FIRST ENTRY IN THE LIST WAS SATISFIED FOR LIST
                                   1230+*          REQUESTS OR TO GET THE MAXIMUM AVAILABLE CORE FOR VARIABLE
                                   1231+*          REQUESTS.     (RSPQE MUST POINT TO THE SPQE FOR THE REQ SP)

000406 12AA                        1233+GCOMMON1 LTR   RLENGTH,RLENGTH Q. IS NEGATIVE LENGTH SPECIFIED 5020
000408 47A0 8426            00428  1234+         BC    10,RNDLNGTH NO - PROCESS NORMALLY        5020
00040C 9120 1008      00008        1235+         TM    8(RIN1),32 Q. IS REQUEST CONDITIONAL       5020
000410 4710 841E            00420  1236+         BC    1,SETRET4 YES - SET RETURN CODE 4      5020
000414 4160 000D            0000D  1237+         LA    RERROR,GERRCODE SET UP ERROR CODE REGISTER      5020
000418 9244 3312      01314        1238+         MVI   MSGLEN,X'44' LENGTH AND REASON CODE         21016
00041C 47F0 3190            01192  1239+         B     GERROR8 5020
000420 41F0 0004            00004  1240+SETRET4  LA    RIN15,4 SET RETURN CODE TO 4            5020
000424 47F0 83F6            003F8  1241+         B     GRETURN 5020
000428 4590 8FC2            00FC4  1242+RNDLNGTH BAL   RCOMRET1,CRNDLNTH ROUND UP LENGTH TO DOUBLE WORD  5020
00042C 90B3 88EA            008EC  1243+         STM   RADDR,FREBAS,SAVEREGS SAVE REGSTRS (11-3)         20021
000430 5800 891E            00920  1244+GCOMMON2 L     RMASK,CLHIBYTE LOAD MASK TO CLEAR HIGH ORDER BYTE
000434 5550 32CA            012CC  1245+         CL    RSPID,C252 IS REQUEST FOR SQ SPACE
000438 47D0 844C            0044E  1246+         BNH   GCOMPSP NO
00043C 4590 84AA            004AC  1247+         BAL   RCOMRET1,GFRECORE SEARCH SQ AREA FOR FREE AREA
000440 47F0 84A2            004A4  1248+         B     GNOTFND SQ SPACE NOT FOUND
000444 1255                        1249+         LTR   RSPID,RSPID IF REQUEST IS FOR SUBPOOL 253-254
000446 4740 846C            0046E  1250+         BM    GAQE BUILD AN AQE FOR ASSIGNED AREA
00044A 47F0 845E            00460  1251+         B     GFQEADJ
00044E                             1252+GCOMPSP  DS    0H I283
00044E 4160 0FF0            00FF0  1253+         LA    RWORK1,4080 IS REQ. LENGTH GREATER THAN     I283
000452 196A                        1254+         CR    RWORK1,RLENGTH MAXIMUM AVAILABLE IN AN FQE
000454 4740 8474            00476  1255+         BL    GM2KPREF YES - GET FREE 2K BLOCKS
                                   1256+*
000458 4590 84AA            004AC  1257+         BAL   RCOMRET1,GFRECORE SEARCH SUBPOOL FOR FREE AREA
00045C 47F0 8486            00488  1258+         B     GM2KT AREA NOT FOUND-GET FREE 2K BLOCKS
                                   1259+*
000460 4590 866E            00670  1260+GFQEADJ  BAL   RCOMRET1,GFQEUPDT REMOVE ASSIGNED AREA FROM FQE

                                   1262+*        RETURN - REQUEST SATISFIED
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1263+*             (RFQE = ADDR OF ASSIGNED AREA)
000464 98B3 88EA            008EC  1264+GFNDRET  LM    RADDR,FREBAS,SAVEREGS RESTORE REGS (11-3)         20021
000468 507B 0000            00000  1265+         ST    RFQE,0(RADDR) STORE AREA'S ADDR IN CALLER'S LIST
00046C 07FD                        1266+         BR    RGMRET RETURN


                                   1268+*
00046E 4590 86B8            006BA  1269+GAQE     BAL   RCOMRET1,GBLDAQE BUILD AQE FOR ASSIGNED 253/254 CORE
000472 47F0 8462            00464  1270+         B     GFNDRET RETURN - STORAGE IS ALLOCATED
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1272+*        GET STORAGE FROM UNASSIGNED 2K BLOCKS
                                   1273+*
000476 1BBB                        1274+GM2KPREF SR    RLRGBLK,RLRGBLK INITIALIZE ADDR OF LARGEST BLOCK
000478 582C 0004            00004  1275+GM2KPRF1 L     RDQE,DQENXT(RSPQE) GET ADDRESS OF DQE              LC0A
00047C 1420                        1276+         NR    RDQE,RMASK FOR SUBPOOL REQUESTED
00047E 4780 848C            0048E  1277+         BZ    GM2K
000482 18C2                        1278+         LR    RPREDQE,RDQE
000484 47F0 8476            00478  1279+         B     GM2KPRF1
                                   1280+*
000488 12AA                        1281+GM2KT    LTR   RLENGTH,RLENGTH IS REQUEST FOR ZERO BYTES
00048A 4780 8462            00464  1282+         BZ    GFNDRET YES - RETURN
00048E 4160 07FF            007FF  1283+GM2K     LA    RWORK1,2047 DETERMINE NUMBER OF 2K BLOCKS NEEDED
000492 1816                        1284+         LR    RWORK4,RWORK1
000494 1A6A                        1285+         AR    RWORK1,RLENGTH TO SATISFY REQUEST
000496 1661                        1286+         OR    RWORK1,RWORK4
000498 1761                        1287+         XR    RWORK1,RWORK4
                                   1288+*
00049A 45D0 8520            00522  1289+         BAL   RCOMRET2,G2KSRCH SEARCH FOR FREE 2K BLOCKS
00049E 47F0 8462            00464  1290+         B     GFNDRET CORE FOUND-RETURN
0004A2 186F                        1291+GSIZCK   LR    RLRGSIZ,RSIZE SAVE SIZE OF LARGEST SET OF FREE BLK
0004A4 98B3 88EA            008EC  1292+GNOTFND  LM    RADDR,FREBAS,SAVEREGS RESTORE REGS (11-3)         20021
0004A8 47FD 0004            00004  1293+         B     4(RGMRET) RETURN - CORE NOT FOUND
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1295+*        SEARCH FREE AREAS OF SUBPOOL FOR AN AREA LARGE ENOUGH TO
                                   1296+*           SATISFY THE REQUEST
                                   1297+*           INPUT - RLENGTH - REQUESTED LENGTH
                                   1298+*                   RSPQE - ADDRESS OF SUBPOOL QUEUE ELEMENT
                                   1299+*           OUTPUT -
                                   1300+*              IF RETURN IS TO  RCOMRET1' (NOT FOUND)
                                   1301+*                RPREDQE = ADDRESS OF LAST DQE FOR SUBPOOL(OR OF SPQE)
                                   1302+*                RLRGSIZ = SIZE OF LARGEST FREE AREA - REQUESTED LENGTH
                                   1303+*                RLRGBLK = ADDR OF FQE FOR LARGEST FREE AREA
                                   1304+*              IF RETURN IS TO 'RCOMRET1 + 4' (FOUND)
                                   1305+*                RFRELNTH- SIZE REMAINING IN FQE
                                   1306+*                RFQE    = ADDR OF FQE SATISFYING REQUEST
                                   1307+*                RPREFQE = ADDR OF PREVIOUS FQE (OR OF DQE)
                                   1308+*           REGISTERS USED - RMASK,RDQE,RPREDQE(=RSPQE),RFQE,RPREFQE,
                                   1309+*                      RLRGBLK,RFRELNTH,RLENGTH,RCOMRET1,RLRGSIZ
                                   1310+*
                                   1311+*
0004AC 1B66                        1312+GFRECORE SR    RLRGSIZ,RLRGSIZ LOAD REGISTERS TO SAVE LENGTH AND
0004AE 18B6                        1313+         LR    RLRGBLK,RLRGSIZ ADDR OF LARGEST AVAILABLE FREE AREA
0004B0 582C 0004            00004  1314+GDQESRCH L     RDQE,DQENXT(RPREDQE) LOAD ADDRESS OF NEXT DQE
0004B4 1420                        1315+         NR    RDQE,RMASK IS THERE A DQE
0004B6 5060 32E6            012E8  1316+         ST    RLRGSIZ,FQESIZ .     STORE SIZE OF LARGEST FQE    A31213
0004BA 0789                        1317+         BCR   8,RCOMRET1 NO-RETURN-FREE AREA NOT FOUND
                                   1318+*
                                   1319+*        SEARCH FQE CHAIN OF DQE FOR FREE AREA
                                   1320+*
0004BC 18E2                        1321+FQESRCH  LR    RPREFQE,RDQE
0004BE 587E 0000            00000  1322+         L     RFQE,FQENXT(RPREFQE) LOAD ADDRESS OF FIRST FQE
0004C2 1470                        1323+         NR    RFQE,RMASK IS THERE AN FQE
0004C4 4780 851A            0051C  1324+         BZ    GDQEADV NO - CHECK NEXT DQE
0004C8 9107 E003      00003        1325+GFQESRCH TM    FQENXT+3(RPREFQE),7 .    CHK FQE ADD FOR VALIDITY A39433
0004CC 4770 8BCA            00BCC  1326+         BC    7,BADFQE 21016
0004D0 91FF E000      00000        1327+         TM    FQENXT(RPREFQE),X'FF' CHK FOR NON-ZERO HIBYTE @SA68309
0004D4 4770 8BCA            00BCC  1328+         BC    7,BADFQE NOT ZERO BRANCH         @SA68309
0004D8 58F7 0004            00004  1329+         L     RFRELNTH,FQELNTH(RFQE) .  IS FREE AREA SUFFICIENT A39433
0004DC 1BFA                        1330+         SR    RFRELNTH,RLENGTH FILL REQUEST
0004DE 47B9 0004            00004  1331+         BC    11,4(RCOMRET1) YES -RETURN-FREE AREA FOUND
                                   1332+*
0004E2 1AFA                        1333+         AR    RFRELNTH,RLENGTH
0004E4 19F6                        1334+         CR    RFRELNTH,RLRGSIZ IS FREE AREA LARGEST SO FAR
0004E6 47D0 84F0            004F2  1335+         BNH   GFQEADV NO-CHECK NEXT FQE
0004EA 186F                        1336+         LR    RLRGSIZ,RFRELNTH SAVE SIZE OF FREE AREA
0004EC 5060 3286            01288  1337+         ST    RLRGSIZ,ORGLRG .    LRGEST BLK OF CORE AVAIL       21016
0004F0 18B7                        1338+         LR    RLRGBLK,RFQE SAVE ADDR OF FQE (FOR VARIABLE)
                                   1339+*
0004F2 18E7                        1340+GFQEADV  LR    RPREFQE,RFQE CHECK NEXT FQE
0004F4 9107 E003      00003        1341+         TM    FQENXT+3(RPREFQE),7 DOES NEXT FQE SPECIFY DOUBLE WORD
0004F8 4770 8BCA            00BCC  1342+         BC    7,BADFQE NO BRANCH OUT           @SA68309
0004FC 91FF E000      00000        1343+         TM    FQENXT(RPREFQE),X'FF' CHK FOR NON-ZERO HIBYTE @SA68309
000500 4770 8BCA            00BCC  1344+         BC    7,BADFQE NOT ZERO BRANCH OUT     @SA68309
000504 587E 0000            00000  1345+FQEOK    L     RFQE,FQENXT(RPREFQE) LOAD ADDRESS OF NEXT FQE      21016
000508 1470                        1346+         NR    RFQE,RMASK IS THERE AN FQE
00050A 4780 851A            0051C  1347+         BZ    GDQEADV NO - CHECK NEXT DQE
00050E 197E                        1348+         CR    RFQE,RPREFQE IS FQE LESS THAN PREVIOUS FQE
000510 4740 84C6            004C8  1349+         BL    GFQESRCH YES
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000514 4160 000D            0000D  1350+SPECERR  LA    RERROR,GERRCODE NO - ERROR - FQE QUEUE DESTROYEDLC0A
000518 47F0 318C            0118E  1351+         B     GERROR6
                                   1352+*
00051C 18C2                        1353+GDQEADV  LR    RPREDQE,RDQE CHECK NEXT DQE
00051E 47F0 84AE            004B0  1354+         B     GDQESRCH
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1356+*        SEARCH FOR FREE 2K BLOCKS
                                   1357+*           INPUT - RWORK1 = NUMBER OF 2K BLOCKS NEEDED
                                   1358+*                   RPREDQE= ADDRESS OF LAST DQE FOR SPQE
                                   1359+*
                                   1360+*           OUTPUT -
                                   1361+*              IF CORE IS FOUND (RETURN TO 'RCOMRET2')
                                   1362+*                RFQE - ADDRESS OF ALLOCATED STORAGE
                                   1363+*              IF CORE IS NOT FOUND (RETURN TO 'RCOMRET2 + 4')
                                   1364+*                RSIZE  = NUMBER OF BLOCKS IN SET OF FREE BLOCKS
                                   1365+*
                                   1366+*        REGISTERS USED - RCDPRGIN,RCOMRET1,RCOMRET2,RCOMRET3,RBLOCK
                                   1367+*
000522 4570 8596            00598  1368+G2KSRCH  BAL   RCOMRET3,FBQSRCH SEARCH FOR FREE BLOCKS
000526 47F0 852C            0052E  1369+         B     GDQEBLD BLOCKS FOUND - CREATE DQE
00052A 47FD 0004            00004  1370+         B     4(RCOMRET2) RETURN - BLOCKS NOT AVAILABLE

                                   1372+*        CREATE DQE

00052E 182E                        1374+GDQEBLD  LR    RBLOCK1,RBLOCK SAVE BLOCK NUMBER AND SIZE
000530 186F                        1375+         LR    RSIZE1,RSIZE
000532 8860 000B            0000B  1376+         SRL   RSIZE1,DIV2048 GET NUMBER OF BLOCKS
000536 4110 0010            00010  1377+         LA    RIN1,16 LOAD DQE SIZE
                                   1378+*
00053A 4590 8F74            00F76  1379+         BAL   RCOMRET1,GETMAINB GET 16 BYTES FOR DQE
00053E 5021 0008            00008  1380+         ST    RBLOCK1,DQEADDR(RIN1) STORE BLOCK ADDRESS IN DQE
000542 50F1 000C            0000C  1381+         ST    RSIZE,DQELNTH(RIN1) STORE SIZE IN DQE
                                   1382+*
                                   1383+*        SET STORAGE KEYS IN 2K BLOCKS ASSIGNED
000546 182E                        1384+         LR    RBLOCK1,RBLOCK
000548 4122 0000            00000  1385+         LA    RBLOCK1,0(RBLOCK1) CLEAR HI BYTE                SA66792
00054C 1B77                        1386+         SR    RWORK2,RWORK2
00054E 5550 32CA            012CC  1387+         CL    RSPID,C252 IF REQUEST IS FOR SP 252-255
000552 4780 8566            00568  1388+         BE    GOCORE BRANCH IF 252-NOT SET KEY    SMF
000556 4720 8570            00572  1389+         BH    GFQEBLD DO NOT SET STORAGE KEY       SMF
00055A 4374 001C            0001C  1390+         IC    RWORK2,TCBPKF(RTCB) LOAD TASKS PROTECT KEY
                                   1391+*
00055E 0872                        1392+GSBSK    SSK   RWORK2,RBLOCK1 SET STORAGE KEY TO TASK'S PROTECT
000560 4122 0800            00800  1393+         LA    RBLOCK1,2048(RBLOCK1) KEY IN ALL ALLOCATED 2K BLOCKS
000564 4660 855C            0055E  1394+         BCT   RSIZE1,GSBSK
                                   1395+*


                                   1397+*                                                                   SMF
                                   1398+*        GO TO SMF CORE ROUTINE FOR GETMAIN                         SMF
                                   1399+*                                                                   SMF
000568 5820 32FA            012FC  1400+GOCORE   L     GMSMFB,GMSMFAD LOAD GETMAIN SMF CORE BASE   SMF
00056C 5860 3302            01304  1401+         L     RWORK1,SMFPQESV LOAD ALLOCATION PQE POINTER  SMF
000570 0572                        1402+         BALR  GMSMFRT,GMSMFB GO TO PROCESS CORE           SMF


                                   1404+*        BUILD FQE FOR ANY REMAINING CORE
                                   1405+*
000572 561C 0004            00004  1406+GFQEBLD  O     RIN1,DQENXT(RPREDQE) STORE DQE ADDRESS IN PREV DQE
000576 501C 0004            00004  1407+         ST    RIN1,DQENXT(RPREDQE)
00057A 1BFA                        1408+         SR    RSIZE,RLENGTH GET EXCESS LENGTH IN 2K BLOCKS
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00057C 417F E000            00000  1409+         LA    RFQE,0(RSIZE,RBLOCK) LOAD ADDR OF ASSIGNED CORE
000580 4780 858A            0058C  1410+         BZ    GAQETST IF LENGTH IS ZERO-CHECK AQE NEEDED
                                   1411+*
000584 50E1 0000            00000  1412+         ST    RBLOCK,DQEFQE(RIN1) STORE FQE ADDRESS IN DQE
000588 50FE 0004            00004  1413+         ST    RSIZE,FQELNTH(RBLOCK) STORE REMAINING LENGTH IN FQE
00058C 1B99                        1414+GAQETST  SR    RWORK3,RWORK3 CLEAR POINTER
00058E 509E 0000            00000  1415+         ST    RWORK3,FQENXT(RBLOCK) TO NEXT FQE
                                   1416+*
000592 4111 0000            00000  1417+         LA    RIN1,0(RIN1) CLEAR HIGH ORDER BYTE
000596 07FD                        1418+         BR    RCOMRET2 RETURN-CORE ALLOCATED
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1420+*        SEARCH FREE BLOCK QUEUE FOR AVAILABLE BLOCKS
                                   1421+*           INPUT - RWORK1 - NUMBER OF BYTES NEEDED
                                   1422+*           OUTPUT - RBLOCK - ADDRESS OF FIRST AVAILABLE BLOCK
                                   1423+*                    RSIZE  - NUMBER OF BYTES AVAILABLE
                                   1424+*           REGISTERS USED - RWORK1,RBLOCK,RSIZE,RDISP,RSPID,RTCB,
                                   1425+*                            RCOMRET3,RWORK4,RWORK5

000598 5070 332E            01330  1427+FBQSRCH  ST    RCOMRET3,RREGSAVE SAVE BAL LINK REG FOR EXIT  20021
00059C 1BFF                        1428+         SR    RSIZE,RSIZE INITIALIZE SIZE REGISTER    20021
00059E 50F0 32E2            012E4  1429+         ST    RSIZE,FBQESIZ .      STORE SIZE OF LARGEST FBQE   A31213
0005A2 4110 0004            00004  1430+         LA    RDISP,BCKPTR INITIALIZE FBQE PTR DISPLACEMENT
0005A6 4950 32C6            012C8  1431+         CH    RSPID,C246 IS IT PP SUBPOOL
0005AA 4740 85BE            005C0  1432+         BL    TCBPART YES - PICK UP TCBPQE
0005AE 5950 32CA            012CC  1433+         C     RSPID,C252 IS IT REQUEST FOR SP 252
0005B2 4780 85BE            005C0  1434+         BE    TCBPART YES - PICK UP TCBPQE
0005B6 4950 32C8            012CA  1435+         CH    RSPID,C248 IS IT REQUEST FOR PARTITION
0005BA 47D0 862A            0062C  1436+         BNH   FREEPTR YES - PICK UP PTR FROM GOVRFLB+8
0005BE 1B11                        1437+         SR    RDISP,RDISP NO - SET DISPLACEMENT FOR FWD PTR
0005C0 58E4 0098            00098  1438+TCBPART  L     RBLOCK,TCBPQE(RTCB) PICK UP TCBPQE
0005C4 12EE                        1439+         LTR   RBLOCK,RBLOCK IS THERE A REGION              SA64994
0005C6 5870 332E            01330  1440+         L     RCOMRET3,RREGSAVE LOAD UP RETURN REG             SA64994
0005CA 4787 0004            00004  1441+         BZ    4(RCOMRET3) NO, DON'T GO ANY FURTHER       SA64994
0005CE 58EE 000C            0000C  1442+NEXTPQE  L     RBLOCK,PQEPREV(RBLOCK) PICK UP NEXT PQE.
0005D2 12EE                        1443+         LTR   RBLOCK,RBLOCK IS THIS THE END OF PQE CHAIN    LC0A
0005D4 5870 332E            01330  1444+         L     RCOMRET3,RREGSAVE RESTORE RETURN REGISTER     20021
0005D8 4787 0004            00004  1445+         BZ    4(RCOMRET3) EXIT - CORE NOT IN OWNED PQE    LC0A
0005DC 187E                        1446+TCBPART1 LR    RWORK2,RBLOCK SAVE PQE ADDRESS            20021
0005DE 58EE 1000            00000  1447+FBQLOOP  L     RBLOCK,0(RBLOCK,RDISP) PICK UP ADDRESS OF FBQE
0005E2 19E7                        1448+         CR    RBLOCK,RWORK2 IS THIS THE OWNING PQE      20021
0005E4 4780 85CC            005CE  1449+         BE    NEXTPQE SEARCH FOR OWNED PQE
0005E8 59FE 0008            00008  1450+         C     RSIZE,FBQESIZE(RBLOCK) IS BLOCK LARGEST THUS FAR
0005EC 47B0 861C            0061E  1451+         BNL   CKLSTBLK NO - CHECK IF LAST FBQE         LC0A
0005F0 58FE 0008            00008  1452+         L     RSIZE,FBQESIZE(RBLOCK) PICK UP SIZE OF BLOCK
0005F4 50F0 32E2            012E4  1453+         ST    RSIZE,FBQESIZ .      STORE SIZE OF LARGEST FBQE   A31213
0005F8 50F0 3286            01288  1454+         ST    RSIZE,ORGLRG .      LARGEST BLOCK AVAILABLE        21016
0005FC 19F6                        1455+         CR    RSIZE,RWORK1 IS BLOCK LARGE ENOUGH
0005FE 4740 861C            0061E  1456+         BL    CKLSTBLK NO - CHECK IF LAST FBQE         LC0A
000602 5070 3302            01304  1457+         ST    RWORK2,SMFPQESV SAVE ALLOCATION PQE FOR SMF       20021
000606 4721 8636            00638  1458+         BH    FBQREPR(RDISP) TOO LARGE
00060A 581E 0000            00000  1459+         L     RWORK4,FWDPTR(RBLOCK) BLOCK IS EXACT SIZE NEEDED
00060E 582E 0004            00004  1460+         L     RWORK5,BCKPTR(RBLOCK)
000612 5012 0000            00000  1461+         ST    RWORK4,FWDPTR(RWORK5) ELIMINATE BLOCK FROM QUEUE
000616 5021 0004            00004  1462+         ST    RWORK5,BCKPTR(RWORK4)
00061A 47F0 8668            0066A  1463+         B     FBBEGOUT RETURNING                      20021
00061E 597E 1000            00000  1464+CKLSTBLK C     RWORK2,0(RBLOCK,RDISP) Q. LAST FBQE              20021
000622 4770 85DC            005DE  1465+         BNE   FBQLOOP NO - CHECK NEXT FBQE            LC0A
000626 18E7                        1466+         LR    RBLOCK,RWORK2 YES - RESTORE PQE ADDRESS AND        20021
000628 47F0 85CC            005CE  1467+         B     NEXTPQE CONTINUE THE SEARCH       LC0A
00062C 58E0 329E            012A0  1468+FREEPTR  L     RBLOCK,GOVRFLB+8 PICK UP PTR TO FREE AREA PQE
000630 5070 332E            01330  1469+         ST    RCOMRET3,RREGSAVE SAVE RETURN ADDRESS             20021
000634 47F0 85CC            005CE  1470+         B     NEXTPQE
000638 47F0 8648            0064A  1471+FBQREPR  B     FBBEG SUBPOOLS 0-127
00063C 1BF6                        1472+         SR    RSIZE,RWORK1 FIND NUMBER OF SURPLUS BYTES
00063E 50FE 0008            00008  1473+         ST    RSIZE,FBQESIZE(RBLOCK) ADJUST FBQE FOR ALLOCATED BLOCKS
000642 1AEF                        1474+         AR    RBLOCK,RSIZE COMPUTE ADDRESS OF ALLOCATED BLOCK
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000644 18F6                        1475+         LR    RSIZE,RWORK1 RETURN SIZE OF ALLOCATED BLOCK
000646 47F0 8668            0066A  1476+         B     FBBEGOUT RETURNING                      20021
00064A 1BF6                        1477+FBBEG    SR    RSIZE,RWORK1 FIND NUMBER OF SURPLUS BYTES
00064C 50FE 0008            00008  1478+         ST    RSIZE,FBQESIZE(RBLOCK) PUT CORRECTED SIZE IN OLD FBQE
000650 18F6                        1479+         LR    RSIZE,RWORK1 RETURN SIZE OF ALLOCATED BLOCK
000652 1A6E                        1480+         AR    RWORK1,RBLOCK COMPUTE ADDRESS OF NEW FBQE
000654 581E 0000            00000  1481+         L     RWORK4,FWDPTR(RBLOCK) PICK UP FWD PTR FROM OLD FBQE
000658 582E 0004            00004  1482+         L     RWORK5,BCKPTR(RBLOCK) PICK UP BACK PTR FROM OLD FBQE
00065C D20B 6000 E000 00000 00000  1483+         MVC   0(FBQELNTH,RWORK1),0(RBLOCK) MOVE FBQE TO NEW LOCATION
000662 5062 0000            00000  1484+         ST    RWORK1,FWDPTR(RWORK5) PUT NEW FBQE ADDRESS IN PREVIOUS
                                   1485+*                                     BLOCK FWD PTR
000666 5061 0004            00004  1486+         ST    RWORK1,BCKPTR(RWORK4) PUT NEW FBQE ADDRESS IN FOLLOWING
                                   1487+*                                     BLOCK BACK POINTER
00066A 5870 332E            01330  1488+FBBEGOUT L     RCOMRET3,RREGSAVE RESTORE RETURN REGISTER        20021
00066E 07F7                        1489+         BR    RCOMRET3 RETURN
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1491+*        UPDATE FQE TO REMOVE ASSIGNED AREA
                                   1492+*           INPUT - RFRELNTH - LENGTH OF REMAINING FREE AREA
                                   1493+*                   RFQE   - FQE TO BE UPDATED
                                   1494+*                   RPREFQE- PREVIOUS FQE ON QUEUE
                                   1495+*           OUTPUT- RFQE   - ADDR OF ASSIGNED AREA
                                   1496+*           REGISTERS USED - RFRELNTH,RFQE,RPREFQE,RCOMRET1,RCOMRET2,
                                   1497+*                            RVALCKIN
                                   1498+*
000670 5550 32CA            012CC  1499+GFQEUPDT CL    RSPID,C252 IS REQUEST FOR SP 252-255
000674 47B0 8682            00684  1500+         BC    11,GFQEUP1 YES - BYPASS VALIDITY CHECK
000678 920C 3312      01314        1501+         MVI   MSGLEN,X'0C' SET TEMP MSG LEN IN CASE OF ABEND   21016
00067C 45D0 8FFA            00FFC  1502+         BAL   RCOMRET2,CFQECHK CHK THAT FQE & PREV FQE IN USER CORE
000680 9200 3312      01314        1503+         MVI   MSGLEN,X'00' TURN OFF MSG LEN               21016
000684 12FF                        1504+GFQEUP1  LTR   RFRELNTH,RFRELNTH IF LENGTH REMAINING IN FQE IS ZERO
000686 4780 86AE            006B0  1505+         BZ    GFQEOUT REMOVE FQE FROM QUEUE
00068A 50F7 0004            00004  1506+         ST    RFRELNTH,FQELNTH(RFQE) STORE REMAINING LNTH IN FQE
00068E 1A7F                        1507+         AR    RFQE,RFRELNTH GET ADDRESS OF ASSIGNED AREA
000690 5550 32CA            012CC  1508+GFQEUP2  CL    RSPID,C252 IS REQUEST FOR SP 252-255
000694 07B9                        1509+         BCR   11,RCOMRET1 YES - RETURN
000696 4117 A000            00000  1510+         LA    RWORK4,0(RFQE,RLENGTH) COMPUTE UPPER BOUND OF FQE
00069A 19E2                        1511+         CR    RPREFQE,RDQE IS PREVIOUS QE A DQE
00069C 4780 86A6            006A8  1512+         BE    GFQEUP3 YES
0006A0 191E                        1513+         CR    RWORK4,RPREFQE IS UPPER BOUND OF FQE AREA LESS
                                   1514+*                                   THAN PREVIOUS FQE
0006A2 0749                        1515+         BCR   4,RCOMRET1 YES - RETURN
0006A4 47F0 8BCA            00BCC  1516+         B     BADFQE NO - ERROR                     21016
0006A8 1916                        1517+GFQEUP3  CR    RWORK4,RWORK6 IS UPPER BOUND OF FQE AREA GREATER
                                   1518+*                                   THAN DQE UPPER BOUND
0006AA 07D9                        1519+         BCR   13,RCOMRET1 NO - RETURN
0006AC 47F0 8BCA            00BCC  1520+         B     BADFQE YES - ERROR                    21016
0006B0 D202 E001 7001 00001 00001  1521+GFQEOUT  MVC   FQENXT+1(3,RPREFQE),FQENXT+1(RFQE) DEQUEUE 0 LENGTH FQE
0006B6 47F0 868E            00690  1522+         B     GFQEUP2 CHECK FOR DESTROYED FQE
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1524+*        BUILD QUEUE ELEMENT (AQE) FOR SUBPOOL 253 OR 254 CORE
                                   1525+*           INPUT - RFRELNTH - LENGTH OF REMAINING FREE AREA
                                   1526+*                   RFQE   - ADDRESS OF FQE
                                   1527+*                   RPREFQE - ADDRESS OF PREVIOUS FQE
                                   1528+*
                                   1529+*           OUTPUT- RFQE   - ADDRESS OF ASSIGNED CORE
                                   1530+*           REGISTERS USED - RFRELNTH,RFQE,RLENGTH,RAQE,RTCB
                                   1531+*                            RCOMRET1
                                   1532+*
0006BA 50F7 0004            00004  1533+GBLDAQE  ST    RFRELNTH,FQELNTH(RFQE) STORE REMAINING LENGTH IN FQE
0006BE 41CF 7000            00000  1534+         LA    RAQE,0(RFRELNTH,RFQE) GET ADDRESS OF AQE
0006C2 12FF                        1535+         LTR   RFRELNTH,RFRELNTH IF FQE LENGTH IS ZERO
0006C4 4770 86CC            006CE  1536+         BC    7,GBLDAQE2
0006C8 D202 E001 7001 00001 00001  1537+         MVC   FQENXT+1(3,RPREFQE),FQENXT+1(RFQE) IF FQE LNTH IS 0,
                                   1538+*                                              REMOVE FROM QUEUE
0006CE D203 C000 409C 00000 0009C  1539+GBLDAQE2 MVC   AQENXT(4,RAQE),TCBAQE(RTCB) PUT POINTER IN NEW AQE
0006D4 50C4 009C            0009C  1540+         ST    RAQE,TCBAQE(RTCB) PUT AQE IN QUEUE
0006D8 50AC 0004            00004  1541+         ST    RLENGTH,AQELNTH(RAQE) PUT LENGTH IN AQE
0006DC 4170 0008            00008  1542+         LA    RFQE,8
0006E0 1BA7                        1543+         SR    RLENGTH,RFQE
0006E2 417C 0008            00008  1544+         LA    RFQE,8(RAQE) GET ADDR OF ASSIGNED CORE
0006E6 07F9                        1545+         BR    RCOMRET1 RETURN
                                   1546+*
                                   1547+*
                                   1548+*
                                   1549+*        CREATE AN SPQE FOR A NEW SUBPOOL
                                   1550+*           INPUT - RTCB - ADDRESS OF TCB
                                   1551+*
                                   1552+*
                                   1553+*
                                   1554+*
0006E8 1861                        1555+GSPQESPC LR    RWORK1,RIN1 SAVE INPUT REG
0006EA 4110 0008            00008  1556+         LA    RIN1,8
0006EE 4590 8F74            00F76  1557+         BAL   RCOMRET1,GETMAINB GET 8 BYTES FOR AN SPQE
0006F2 18C1                        1558+         LR    RSPQE,RIN1
0006F4 D202 C001 4019 00001 00019  1559+         MVC   SPQENXT+1(3,RSPQE),TCBMSS+1(RTCB) NXT SPQE PTR TO SPQE
0006FA 4314 0018            00018  1560+         IC    RWORK4,TCBMSS(RTCB)
0006FE 50C4 0018            00018  1561+         ST    RSPQE,TCBMSS(RTCB) NEW SPQE ADDR TO TCB
000702 4214 0018            00018  1562+         STC   RWORK4,TCBMSS(RTCB)
000706 425C 0004            00004  1563+         STC   RSPID,SPQEID(RSPQE) STORE SUBPOOL ID IN SPQE
                                   1564+***************  CREATE INITIAL SPQE FOR TASK  ***************
00070A D602 C001 C001 00001 00001  1565+         OC    SPQENXT+1(3,RSPQE),SPQENXT+1(RSPQE) FIRST SPQE IF PTR=0
000710 4770 8716            00718  1566+         BNE   GSPQESP1 BRANCH IF NOT FIRST SPQE
000714 9240 C000      00000        1567+         MVI   SPQEFLGS(RSPQE),SPQELAST SET FLAG-SPQE IS LAST ON CHAIN
                                   1568+*************************************************************
000718 1816                        1569+GSPQESP1 LR    RIN1,RWORK1
00071A 47F0 8404            00406  1570+         B     GCOMMON1
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1572+*        ENTRY POINT TO FREEMAIN

000720                             1574+         DS    0D
                                   1575+         DROP  FREBAS .          DROP SECOND BASE                 M0105
000720 0580                        1576+IGC005   BALR  RBASE,0
000722                             1577+         USING *,RBASE
000722 5880 8202            00924  1578+         L     RBASE,MSSADR
000002                             1579+         USING MSSBASE,RBASE,FREBAS 20021


                                   1581+*        ROUTINE TO PICK UP SUBPOOL ID, BRANCH TO VALIDITY CHECK
                                   1582+*           ROUTINE TO CHECK LISTS, AND TO CHECK FOR LIST REQUEST
                                   1583+*           INPUT REGISTER
                                   1584+*              RIN1 - ADDRESS OF PARAMETER LIST
                                   1585+*           OUTPUT REGISTERS
                                   1586+*              RSPID   - SUBPOOL ID
                                   1587+*              RLENGTH - LENGTH OR ADDRESS OF LENGTH LIST
                                   1588+*              RADDR   - ADDRESS OF AREA LIST OR ADDRESS OF LENGTH-AREA
                                   1589+*                          LIST

000726 5830 891A            0091C  1591+         L     FREBAS,DBASADR .    ESTABLISH SECOND BASE          20021
00072A D200 3290 0021 01292 00021  1592+         MVC   MODEBYTE(1),33(0) MODE INTO MODE BYTE
000730 9205 3291      01293        1593+FMBASE   MVI   SVCBYTE,5 .           SAVE THE SVC NUMBER
000734 58F0 32F6            012F8  1594+         L     IPVLBASE,IPVAL .    LOAD ADD OF VALIDY CK RTN      M2198
000738 059F                        1595+         BALR  RCOMRET1,IPVLBASE VALIDITY CHECK INPUT PARAMETERS
00073A 91C0 1008      00008        1596+         TM    TYPE(RIN1),CODE
00073E 47B0 876C            0076E  1597+         BC    NOTLIST,FVARCHK IF NOT A LIST REQUEST


                                   1599+*        ROUTINE TO HANDLE FREEING OF LIST REQUESTS
                                   1600+*           INPUT REGISTERS
                                   1601+*              RLENGTH - ADDRESS OF LENGTH LIST
                                   1602+*              RADDR   - ADDRESS OF AREA LIST
                                   1603+*           OUTPUT REGISTERS
                                   1604+*              RLST    - ADDRESS OF CURRENT LENGTH IN LENGTH LIST
                                   1605+*              RADDR1  - ADDRESS OF CURRENT AREA IN AREA LIST
                                   1606+*              RLENGTH - CURRENT LENGTH
                                   1607+*              RADDR   - CURRENT AREA ADDRESS

000742 182A                        1609+         LR    RLST,RLENGTH SAVE LENGTH LIST ADDRESS
000744 41D0 8A22            00A24  1610+         LA    RFMRET,FMCOMMON
000748 58A2 0000            00000  1611+FLISTADV L     RLENGTH,0(RLST) PICK UP LENGTH FROM LIST
00074C 41AA 0000            00000  1612+         LA    RLENGTH,0(RLENGTH) CLEAR LAST ENTRY INDICATOR
000750 9180 2000      00000        1613+         TM    0(RLST),X'80' IS THIS LAST ENTRY IN LIST
000754 4710 8768            0076A  1614+         BC    1,FLAST
000758 05DD                        1615+         BALR  RFMRET,RFMRET BRANCH TO FREEMAIN COMMON ROUTINE
00075A 4122 0004            00004  1616+         LA    RLST,4(RLST) PICK UP NEXT ENTRY
00075E 41BB 0004            00004  1617+         LA    RADDR,4(RADDR)
000762 41D0 8A46            00A48  1618+         LA    RFMRET,FCOMMON1 BYPASS SPQE SEARCH
000766 47F0 8746            00748  1619+         B     FLISTADV
00076A 05DD                        1620+FLAST    BALR  RFMRET,RFMRET TO FREE LAST ELEMENT IN LIST
00076C 07FE                        1621+         BR    RRETURN


                                   1623+*        ROUTINE TO HANDLE FREEING OF VARIABLE REQUESTS
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1624+*           INPUT REGISTER
                                   1625+*              RADDR   - ADDRESS OF LENGTH-ADDRESS LIST
                                   1626+*           OUTPUT REGISTERS
                                   1627+*              RLENGTH - LENGTH OF AREA TO BE FREED
                                   1628+*              RADDR   - ADDRESS OF AREA TO BE FREED

00076E 4780 8774            00776  1630+FVARCHK  BC    ELEMENT,FELEMENT IF ELEMENT REQUEST
000772 58AB 0004            00004  1631+         L     RLENGTH,VLNTH(RADDR)


                                   1633+*        ROUTINE TO HANDLE FREEING OF ELEMENT REQUESTS
                                   1634+*           INPUT REGISTERS
                                   1635+*              RLENGTH - LENGTH
                                   1636+*              RADDR   - ADDRESS OF LOCATION CONTAINING AREA ADDRESS
                                   1637+*           OUTPUT REGISTERS
                                   1638+*              RLENGTH - LENGTH OF AREA TO BE FREED
                                   1639+*              RADDR   - ADDRESS OF AREA TO BE FREED

000776 9608 3313      01315        1641+FELEMENT OI    FREESW,X'08' 21016
00077A 45D0 8A22            00A24  1642+         BAL   RFMRET,FMCOMMON ELEMENT - BR TO FREE STORAGE   21016
00077E 07FE                        1643+         BR    RRETURN


                                   1645+*        BRANCH ENTRY PROCESSING

                                   1647+         DROP  FREBAS .          DROP SECOND BASE                 M0105
000780 18F8                        1648+FMBRANCH LR    RIN15,RBASE SAVE REGISTER 8
000782 0580                        1649+         BALR  RBASE,0
000784                             1650+         USING *,RBASE
000784 5880 81A0            00924  1651+         L     RBASE,MSSADR
000002                             1652+         USING MSSBASE,RBASE,FREBAS 20021
000788 8000 891E      00920        1653+         SSM   CLHIBYTE .          DISABLE                        M3872
00078C 50F0 8802            00804  1654+         ST    RIN15,FMBRSAV+24 RIN15=ENTRY CONTENTS OF REG8  A28819
000790 41F0 872E            00730  1655+         LA    RIN15,FMBASE SET UP BRANCH TO FREEMAIN      M3872
000794                             1656+FMBRNCOM EQU   * M3872
000794 9027 87EA            007EC  1657+         STM   RLST,RCOMRET3,FMBRSAV A28819
000798 909E 8806            00808  1658+         STM   RCOMRET1,RRETURN,FMBRSAV+28 A28819
00079C 5830 891A            0091C  1659+         L     FREBAS,DBASADR .     ESTABLISH SECOND BASE         M0105
0007A0 50E0 330E            01310  1660+         ST    RRETURN,BRNREG SAVE RETURN REG                  21016
0007A4 9200 3290      01292        1661+         MVI   MODEBYTE,0 .        SET SUPERVISOR MODE           PIT032
0007A8 92FF 3282      01284        1662+         MVI   BESW,X'FF' SET BRANCH ENTRY SWITCH        21016
0007AC 05EF                        1663+         BALR  RRETURN,RIN15
0007AE 9200 3282      01284        1664+         MVI   BESW,X'00' RESET BRANCH ENTRY SWITCH     A28819
0007B2 982E 87EA            007EC  1665+         LM    RLST,RRETURN,FMBRSAV RESTORE CALLERS REGS         A28819
0007B6 07FE                        1666+         BR    RRETURN A28819
                                   1667+*               SAVE AREAS
0007B8                             1668+BRANCHSV DS    13F .                                              M2279
0007EC                             1669+IEA10FS  EQU   * REF USED BY ABEND      M3806
0007EC                             1670+FMBRSAV  DS    16F .     SAVE AREA FOR FM BRANCH ENTRY            M2279
00082C                             1671+FMSAVE   DS    16F .                                              M2279
00086C                             1672+SAVREG2  DS    16F .                                              M2279
0008AC                             1673+SAVEAREA DS    16F .                                              M2279
0008EC                             1674+SAVEREGS DS    12F .                                              M2279
00091C 00001002                    1675+DBASADR  DC    A(MSSBASE+4096) .                                  M2279
000920 00FFFFFF                    1676+CLHIBYTE DC    X'00FFFFFF' .                                      M2279
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000924 00000002                    1677+MSSADR   DC    A(MSSBASE) 21016
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1679+*        SPECIAL SUBPOOL FREEMAIN TO HANDLE FREEING OF A COMPLETE
                                   1680+*        SUBPOOL

000928 9608 3313      01315        1682+SPFRMAIN OI    FREESW,X'08' SET FREEMAIN SWITCH            21016
00092C 12AA                        1683+         LTR   RLENGTH,RLENGTH IS LENGTH ZERO                 21016
00092E 4780 893E            00940  1684+         BZ    LENOK 21016
000932 928C 3312      01314        1685+         MVI   MSGLEN,X'8C' REASON CODE(4) AND LENGTH(12)   21016
000936 5040 3306            01308  1686+         ST    RTCB,ABNDATA STORE TCB SEARCHED              21016
00093A 1BBB                        1687+         SR    RADDR,RADDR SET ZERO FOR SUBPOOL FREEMAIN   21016
00093C 47F0 3186            01188  1688+         B     GERROR3 21016
000940 4190 00FE            000FE  1689+LENOK    LA    RWORK3,254 (21016) ***** TEMPORARY ****
000944 1959                        1690+         CR    RSPID,RWORK3 ***** TEMPORARY *****
000946 47B0 8976            00978  1691+         BNL   GERR4 **TEMP** 254-255 SUBPOOL FREEMAIN ILLEGAL  21016
00094A 4190 00F3            000F3  1692+         LA    RWORK3,243 FREEMAIN OF SUBPOOLS            20021
00094E 1959                        1693+         CR    RSPID,RWORK3 243,244,245 IS ILLEGAL          20021
000950 4740 895C            0095E  1694+         BL    SPOK 20021
000954 4190 00F5            000F5  1695+         LA    RWORK3,245 20021
000958 1959                        1696+         CR    RSPID,RWORK3 20021
00095A 47D0 8976            00978  1697+         BNH   GERR4 21016
00095E                             1698+SPOK     EQU   * 20021
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00095E 9602 3290      01292        1700+         OI    MODEBYTE,2 INDICATE SUBPOOL FREEMAIN
000962 4590 8E28            00E2A  1701+         BAL   RCOMRET1,CSPCHK TO LOCATE SPQE
000966 07FE                        1702+         BR    RRETURN SPQE NOT FOUND
000968 070D                        1703+         BCR   0,RRET NOP
00096A 91F0 3290      01292        1704+         TM    MODEBYTE,X'F0' SUPERVISOR KEY
00096E 4780 8980            00982  1705+         BZ    SPFRMNSV YES
000972 1255                        1706+         LTR   RSPID,RSPID SUBPOOL ZERO?
000974 4770 8980            00982  1707+         BNZ   SPFRMNSV 21016
000978 1BBB                        1708+GERR4    SR    RADDR,RADDR 21016
00097A 9208 3312      01314        1709+         MVI   MSGLEN,X'08' 21016
00097E 47F0 3188            0118A  1710+         B     GERROR4 PROBLEM PGM ATTEMPTING TO FREE 21016
                                   1711+*                                   ALL OF SUBPOOL ZERO
000982 1255                        1712+SPFRMNSV LTR   RSPID,RSPID IS IT SUBPOOL 253
000984 4740 89D8            009DA  1713+         BM    SP253FRE YES, SP253 OR SP254             MP2K
000988 41D0 898E            00990  1714+NOTRMS   LA    RFMRET,SPFRMRET SET UP RETURN              MP2K
00098C 90ED 882A            0082C  1715+         STM   RRETURN,RFMRET,FMSAVE SAVE REGISTERS
000990 582C 0004            00004  1716+SPFRMRET L     RDQE,SPQEDQE(RSPQE) PICK UP DQE
000994 4122 0000            00000  1717+         LA    RDQE,0(RDQE) CLEAR OUT SPID
000998 1222                        1718+         LTR   RDQE,RDQE END OF QUEUE IF ZERO
00099A 078E                        1719+         BCR   8,RRETURN END OF QUEUE - EXIT
00099C 1BFF                        1720+         SR    RSIZE,RSIZE
00099E 18EF                        1721+         LR    RBLOCK,RSIZE
0009A0 58F2 000C            0000C  1722+         L     RSIZE,DQELNTH(RDQE) PICK UP NUMBER OF BYTES
0009A4 58E2 0008            00008  1723+         L     RBLOCK,DQEADDR(RDQE) ADDRESS OF FIRST 2K BLOCK
0009A8 181F                        1724+         LR    RWORK4,RSIZE
0009AA 50C0 331A            0131C  1725+SPFSTDQE ST    RSPQE,PREVDQSV SPQE IS ALWAYS PREVIOUS DQE
0009AE 5824 0098            00098  1726+         L     RPQE,TCBPQE(RTCB) PICK UP ADDR OF PQE
0009B2 5040 32FE            01300  1727+         ST    RTCB,SMFTCBSV SAVE TCB POINTER            SMF
0009B6 5822 000C            0000C  1728+         L     RPQE,DUMBWD(RPQE) PICK UP PTR TO PQE         MP2K
0009BA 59E2 0018            00018  1729+LOOP1    C     RBLOCK,PQESTADD(RPQE) 9IS CORE IN THIS REGION     MP2K
0009BE 47B0 8C6C            00C6E  1730+         BNL   FCOMMON3 YES                        MP2K
0009C2 5822 000C            0000C  1731+         L     RPQE,DUMBWD(RPQE) PICK UP END OF PQE CHAIN   MP2K
0009C6 1222                        1732+         LTR   RPQE,RPQE IS THIS END OF CHAIN?  SC A63059
0009C8 4770 89B8            009BA  1733+         BNZ   LOOP1 21016
0009CC 926C 3312      01314        1734+         MVI   MSGLEN,X'6C' REASON CODE(3) AND LENGTH(12) 21016
0009D0 5040 3306            01308  1735+         ST    RTCB,ABNDATA STORE TCB SEARCHED                21016
0009D4 1BBB                        1736+         SR    RADDR,RADDR SET 0 INPUT TO SUBPOOL FREEMAIN   21016
0009D6 47F0 3186            01188  1737+         B     GERROR3 21016

                                   1739+*        ROUTINE TO FREE SUBPOOL FOR SUBPOOL 253

0009DA 41D0 89EE            009F0  1741+SP253FRE LA    RFMRET,SP253RET
0009DE 5874 0098            00098  1742+         L     RWORK2,TCBPQE(RTCB) 20021
0009E2 1277                        1743+         LTR   RWORK2,RWORK2 BRANCH IF NO               20021
0009E4 4780 89EE            009F0  1744+         BZ    SP253RET PQE                                20021
0009E8 5877 0008            00008  1745+         L     RWORK2,PQENXT(RWORK2) 20021
0009EC 5877 0018            00018  1746+         L     RWORK2,PQESTADD(RWORK2) GET LSQS SPQE ADDRESS     20021
0009F0 58B4 009C            0009C  1747+SP253RET L     RADDR,TCBAQE(RTCB) PICK UP ADDRESS OF FIRST AREA
0009F4 12BB                        1748+         LTR   RADDR,RADDR IS IT ZERO
0009F6 078E                        1749+         BCR   8,RRETURN YES - END OF QUEUE             20021
0009F8 58C0 3296            01298  1750+         L     RSPQE,SQSBOUND .    LOAD SQS + 1 ADDRESS           M1389
0009FC 41CC 0000            00000  1751+         LA    RSPQE,0(RSPQE) .    ZERO HIGH ORDER BYTE           M1389
000A00 19BC                        1752+         CR    RADDR,RSPQE .       IS AQE IN SQS                  M1389
000A02 41C0 3296            01298  1753+         LA    RSPQE,SQESPQE .     LOAD SQS SPQE                  M1389
000A06 4740 8A0A            00A0C  1754+         BL    *+6 YES-BRANCH                   20021
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000A0A 18C7                        1755+         LR    RSPQE,RWORK2 NO-LOAD LSQS SPQE               20021
000A0C 582C 0004            00004  1756+         L     RDQE,SPQEDQE(RSPQE) LOAD DQE                       20021
000A10 4122 0000            00000  1757+         LA    RDQE,0(RDQE) 20021
000A14 58AB 0004            00004  1758+         L     RLENGTH,AQELNTH(RADDR) PICK UP LENGTH OF AREA
000A18 410B A000            00000  1759+         LA    RAREAUB,0(RADDR,RLENGTH) FIND UPPER BOUND OF AQE AREA
000A1C 90ED 882A            0082C  1760+         STM   RRETURN,RFMRET,FMSAVE SAVE REGISTERS
000A20 47F0 8ADC            00ADE  1761+         B     FCOMMON4
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1763+*        **************************************************************
                                   1764+*                           FREEMAIN COMMON ROUTINES
                                   1765+*        **************************************************************


                                   1767+*        THE FREEMAIN COMMON ROUTINES CONSIST OF THE CODE WHICH IS
                                   1768+*        COMMON TO ALL FORMS OF FREEMAIN EXCEPT THE SPECIAL R-FORM
                                   1769+*        FREEING A COMPLETE SUBPOOL.  THIS CODE MAKES USE OF OTHER
                                   1770+*        SUBROUTINES WHICH ARE COMMON TO GETMAIN AND FREEMAIN AND
                                   1771+*        WHICH ARE LOCATED ELSEWHERE IN THIS MODULE.
                                   1772+*           INPUT REGISTERS
                                   1773+*              RSPID   - SUBPOOL ID
                                   1774+*              RLENGTH - LENGTH OF AREA TO BE FREED (IN BYTES)
                                   1775+*              RADDR   - BEGINNING ADDRESS OF AREA TO BE FREED
                                   1776+*              RTCB    - TCB OF REQUESTING TASK

000A24 4590 8E28            00E2A  1778+FMCOMMON BAL   RCOMRET1,CSPCHK TO LOCATE SPQE
000A28 47F0 8DD2            00DD4  1779+         B     SUBPERR ERROR - NOT IN SUBPOOL NAMED   21016


                                   1781+*        IF REQUEST IS FOR LSQS SUBPOOL- CHECK IF AREA WAS        20021
                                   1782+*        OBTAINED FROM LSQS OR SQS. SQS IS ALLOCATED WHEN         20021
                                   1783+*        LSQS IS FULL.                                            20021
000A2C 91FF 328A      0128C        1784+         TM    LSQSSW,LSQSMSK IS REQUEST FOR LSQS?           20021
000A30 4780 8A46            00A48  1785+         BZ    FCOMMON1 NO- CONTINUE.                    20021
000A34 41CC 0000            00000  1786+         LA    RSPQE,0(RSPQE) CLEAR HI-BYTE OF SPQE           20021
000A38 59CB 0000            00000  1787+         C     RSPQE,0(RADDR) STORAGE IN SQS?                20021
000A3C 4740 8A46            00A48  1788+         BL    FCOMMON1 NO- CONTINUE                   20021
000A40 41C0 3296            01298  1789+         LA    RSPQE,SQESPQE LOAD SQS SPQE                  20021
000A44 9200 328A      0128C        1790+         MVI   LSQSSW,LSQSOFF CLEAR LSQS SWITCH.             20021


                                   1792+*        ROUTINE TO LOCATE THE DQE CONTAINING THE STORAGE TO BE FREED
                                   1793+*           A SUCCESSFUL RETURN FROM GSPCHK RETURNS TO THIS POINT
                                   1794+*           INPUT REGISTERS
                                   1795+*              RSPQE   - SPQE ADDRESS
                                   1796+*              RADDR   - ADDRESS OF STORAGE TO BE FREED
                                   1797+*              RLENGTH - LENGTH OF STORAGE TO BE FREED
                                   1798+*           OUTPUT REGISTERS
                                   1799+*              RDQE    - ADDRESS OF DQE CONTAINING STORAGE TO BE FREED
                                   1800+*              RDQELB  - LOWER BOUND OF AREA DESCRIBED BY DQE
                                   1801+*              RDQEUB  - UPPER BOUND OF AREA DESCRIBED BY DQE
                                   1802+*              RAREAUB - UPPER BOUND OF AREA TO BE FREED
                                   1803+*              RPREVDQ - ADDRESS OF PREVIOUS DQE

000A48 90ED 882A            0082C  1805+FCOMMON1 STM   RRETURN,RFMRET,FMSAVE SAVE REGISTERS
000A4C 58BB 0000            00000  1806+         L     RADDR,0(RADDR) PICK UP ADDRESS
000A50 41BB 0000            00000  1807+         LA    RADDR,0(RADDR) CLEAR HI-ORDER BYTE.
000A54 4590 8FC2            00FC4  1808+FCOMMON2 BAL   RCOMRET1,CRNDLNTH TO ROUND UP LENGTH
000A58 12AA                        1809+         LTR   RLENGTH,RLENGTH
000A5A 4780 8DCC            00DCE  1810+         BZ    FCOMRET RETURN IF LENGTH=0 FOR SUBPOOL
                                   1811+*                                   OTHER THAN 253 OR 254
000A5E 147B                        1812+         NR    RWORK2,RADDR RWORK2 CONTAINS 7 FROM CRNDLNTH
000A60 4780 8A7E            00A80  1813+         BE    ADROK ERR - ADDR NOT MULTIPLE OF 8   21016
000A64 920C 3312      01314        1814+         MVI   MSGLEN,X'0C' SET LENGTH EQUAL 12            21016
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000A68 5040 3306            01308  1815+         ST    RTCB,ABNDATA SAVE TCB ADDR                  21016
000A6C 9505 3291      01293        1816+         CLI   SVCBYTE,X'05' SVC 5?                         21016
000A70 4780 3192            01194  1817+         BE    GERROR9 YES. TEMP DATA CORRECT         21016
000A74 9208 3312      01314        1818+         MVI   MSGLEN,X'08' NO. CHANGE LENGTH TO 8         21016
000A78 50B0 3306            01308  1819+         ST    RADDR,ABNDATA SAVE ALTERNATE DATA            21016
000A7C 47F0 3192            01194  1820+         B     GERROR9 GO TO ABEND                    21016
000A80 1255                        1821+ADROK    LTR   RSPID,RSPID IS THIS SUBPOOL 253 OR 254     21016
000A82 47A0 8A8A            00A8C  1822+         BC    NN,STRTSRCH NO
000A86 4190 0008            00008  1823+         LA    RWORK3,QESIZE YES
000A8A 1BB9                        1824+         SR    RADDR,RWORK3 BACK UP ADDRESS TO BEGINNING OF QE
000A8C 182C                        1825+STRTSRCH LR    RDQE,RSPQE
000A8E 18C2                        1826+FADVDQE  LR    RPREVDQ,RDQE SAVE ADDRESS OF PREVIOUS DQE
000A90 5822 0004            00004  1827+         L     RDQE,DQENXT(RDQE) PICK UP ADDRESS OF DQE
000A94 5420 891E            00920  1828+         N     RDQE,CLHIBYTE CLEAR HIGH ORDER BYTE
000A98 4770 8AA6            00AA8  1829+         BNZ   ADRDQE 21016
000A9C 922C 3312      01314        1830+         MVI   MSGLEN,X'2C' REASON CODE(1) AND LENGTH(12) 21016
000AA0 5040 3306            01308  1831+         ST    RTCB,ABNDATA STORE TCB SEARCHED            21016
000AA4 47F0 3186            01188  1832+         B     GERROR3 21016
000AA8 58D2 0008            00008  1833+ADRDQE   L     RDQELB,DQEADDR(RDQE) PICK UP ADDR OF FIRST BLOCK   21016
000AAC 58F2 000C            0000C  1834+         L     RDQEUB,DQELNTH(RDQE) PICK UP NUMBER OF BYTES
000AB0 1AFD                        1835+FCUPRBND AR    RDQEUB,RDQELB COMPUTE UPPER BOUND OF DQE AREA
                                   1836+*                                  COMPUTE UPPER BOUND OF AREA TO BE
                                   1837+*                                   FREED
000AB2 180B                        1838+         LR    RAREAUB,RADDR @JK69892
000AB4 1A0A                        1839+         AR    RAREAUB,RLENGTH @JK69892
                                   1840+*                                  IS AREA TO BE FREED WITHIN DQE
                                   1841+*                                   BOUNDS - IF NOT, PICK UP NEXT DQE
000AB6 19BD                        1842+         CR    RADDR,RDQELB
000AB8 4740 8A8C            00A8E  1843+         BL    FADVDQE
000ABC 190F                        1844+         CR    RAREAUB,RDQEUB
000ABE 4720 8A8C            00A8E  1845+         BH    FADVDQE
000AC2 19BF                        1846+         CR    RADDR,RDQEUB IS START GREATER DQE END    @SA77070
000AC4 4720 8A8C            00A8E  1847+         BH    FADVDQE @SA77070
000AC8 190D                        1848+         CR    RAREAUB,RDQELB IS END LESS THAN DQE START  @SA77070
000ACA 4740 8A8C            00A8E  1849+         BL    FADVDQE @SA77070
000ACE 19B0                        1850+         CR    RADDR,RAREAUB IS START GREATER THAN END   @SA77070
000AD0 4720 8A8C            00A8E  1851+         BH    FADVDQE *                           @SA77070
000AD4 50C0 331A            0131C  1852+         ST    RPREVDQ,PREVDQSV SAVE ADDRESS OF PREVIOUS DQE

000AD8 1255                        1854+         LTR   RSPID,RSPID IS THIS SUBPOOL 253 OR 254
000ADA 47A0 8B78            00B7A  1855+         BC    NN,FRECOMBN NO


                                   1857+*        ROUTINE TO REMOVE FREE SUBPOOL 253 OR 254 STORAGE FROM QUEUE
                                   1858+*           INPUT REGISTERS
                                   1859+*              RADDR   - ADDRESS OF STORAGE TO BE FREED
                                   1860+*              RLENGTH - LENGTH OF STORAGE TO BE FREED
                                   1861+*              RAREAUB - UPPER BOUND OF AREA TO BE FREED
                                   1862+*              RDQE    - ADDRESS OF DQE CONTAINING STORAGE TO BE FREED

                                   1864+*        LOCATE QE LESS THAN OR EQUAL TO RADDR.  SAVE PREVIOUS QE ADDR

000ADE 4174 009C            0009C  1866+FCOMMON4 LA    RQE,TCBAQE(RTCB)
000AE2 5860 7000            00000  1867+         L     RWORK1,0(0,RQE) GET AQE ADDRESS                 8098
000AE6 1266                        1868+         LTR   RWORK1,RWORK1 Q. IS AQE ADDRESS ZERO          8098
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000AE8 4770 8AFA            00AFC  1869+         BNZ   FC4LOOP NO - PROCESS NORMALLY           8098
000AEC 4160 000D            0000D  1870+         LA    RERROR,GERRCODE YES- SET UP ERROR CODE REGISTER 8098
000AF0 9208 3312      01314        1871+FCOMMN4B MVI   MSGLEN,X'08' 21016
000AF4 50B0 3306            01308  1872+         ST    RADDR,ABNDATA 21016
000AF8 47F0 319A            0119C  1873+         B     GERROR13 8098
000AFC 18E7                        1874+FC4LOOP  LR    RPREVQE,RQE SAVE PREVIOUS AQE ADDRESS
000AFE 5870 7000            00000  1875+         L     RQE,0(0,RQE) PICK UP AQE ADDRESS
000B02 19B7                        1876+         CR    RADDR,RQE IS THIS AQE WANTED
000B04 4740 8AFA            00AFC  1877+         BL    FC4LOOP NO - CHECK NEXT AQE
000B08 4160 000D            0000D  1878+         LA    RERROR,GERRCODE SET UP ERROR CODE IN REGISTER SIX  9774
000B0C 1277                        1879+         LTR   RQE,RQE Q. THIS THE END OF THE AQE CHAIN           9774
000B0E 4780 8AEE            00AF0  1880+         BC    8,FCOMMN4B THIS CORE ALREADY FREED             21016

                                   1882+*        COMPUTE UPPER BOUND OF AQE AREA

000B12 5867 0004            00004  1884+         L     RQESIZ,AQELNTH(RQE) PICK UP SIZE
000B16 4117 6000            00000  1885+         LA    RAQEUB,0(RQE,RQESIZ) COMPUTE UPPER BOUND
000B1A 1901                        1886+         CR    RAREAUB,RAQEUB IS AREA WITHIN AQE AREA
000B1C 4720 8AFA            00AFC  1887+         BH    FC4LOOP NO - PICK UP NEXT AQE
000B20 4740 8B44            00B46  1888+         BL    FAQELOWR NOT FREEING UPPER PART OF AQE AREA
000B24 19B7                        1889+         CR    RADDR,RQE
000B26 4770 8B32            00B34  1890+         BNE   FAQEUPPR NOT FREEING LOWER PART OF AQE AREA
                                   1891+*                                  THE FOLLOWING INSTRUCTION REMOVES
                                   1892+*                                   THE FREE AREA FROM THE QUEUE
000B2A D202 E001 7001 00001 00001  1893+         MVC   AQENXT+PTROFST(ADRLNTH,RPREVQE),AQENXT+PTROFST(RQE)
000B30 47F0 8B78            00B7A  1894+         B     FRECOMBN

                                   1896+*        FREEING UPPER PART OF STORAGE DESCRIBED BY AQE

000B34 4190 0008            00008  1898+FAQEUPPR LA    RWORK3,QESIZE
000B38 1AB9                        1899+         AR    RADDR,RWORK3 ADJUST ADDRESS AND SIZE FOR PORTION
000B3A 1BA9                        1900+         SR    RLENGTH,RWORK3 ACTUALLY BEING FREED
000B3C 4780 8DCC            00DCE  1901+         BZ    FCOMRET RETURN IF LENGTH=0
000B40 1B6A                        1902+         SR    RQESIZ,RLENGTH COMPUTE NEW SIZE FOR AQE (BYTES)
000B42 47F0 8B74            00B76  1903+         B     FAQEUPR1

                                   1905+*        FREEING LOWER PART OF STORAGE DESCRIBED BY AQE

000B46 4160 0008            00008  1907+FAQELOWR LA    RWORK1,QESIZE REMOVE 8 BYTES FROM FREE AREA FOR
000B4A 1B06                        1908+         SR    RAREAUB,RWORK1 NEW AQE
000B4C 1BA6                        1909+         SR    RLENGTH,RWORK1
000B4E 500E 0000            00000  1910+         ST    RAREAUB,AQENXT(RPREVQE) PUT NEW AQE IN QUEUE
000B52 1B10                        1911+         SR    RAQEUB,RAREAUB NUMBER OF BYTES FOR NEW AQE
000B54 1890                        1912+         LR    RWORK3,RAREAUB RAREAUB IS REG 0 AND CANNOT BE USED
                                   1913+*                                   AS INDEX
000B56 5019 0004            00004  1914+         ST    RAQEUB,AQELNTH(RWORK3)
000B5A 197B                        1915+         CR    RQE,RADDR
000B5C 4770 8B68            00B6A  1916+         BNE   FAQEMID FREEING MIDDLE OF AQE AREA
000B60 D203 9000 7000 00000 00000  1917+         MVC   AQENXT(4,RWORK3),AQENXT(RQE) PTR INTO NEW AQE
000B66 47F0 8B78            00B7A  1918+         B     FRECOMBN

                                   1920+*        FREEING MIDDLE PART OF STORAGE DESCRIBED BY AQE

000B6A 5079 0000            00000  1922+FAQEMID  ST    RQE,0(RWORK3) POINT NEW AQE TO NEXT QE
000B6E 1AB6                        1923+         AR    RADDR,RWORK1 ADJUST ADDRESS AND SIZE FOR PORTION
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000B70 1BA6                        1924+         SR    RLENGTH,RWORK1 ACTUALLY BEING FREED
000B72 186B                        1925+         LR    RWORK1,RADDR
000B74 1B67                        1926+         SR    RWORK1,RQE SIZE OF REMAINING LOWER PART (BYTES)
000B76 5067 0004            00004  1927+FAQEUPR1 ST    RWORK1,AQELNTH(RQE)


                                   1929+*        ROUTINE TO PUT FREE STORAGE INTO THE QUEUE AND TO COMBINE
                                   1930+*         ADJOINING FREE AREAS
                                   1931+*           INPUT REGISTERS
                                   1932+*              RADDR   - ADDRESS OF STORAGE TO BE FREED
                                   1933+*              RLENGTH - LENGTH OF STORAGE TO BE FREED
                                   1934+*              RAREAUB - UPPER BOUND OF AREA TO BE FREED
                                   1935+*              RDQE    - ADDRESS OF DQE CONTAINING STORAGE TO BE FREED
                                   1936+*              RSPID   - SUBPOOL ID OF STORAGE TO BE FREED
                                   1937+*           OUTPUT REGISTERS
                                   1938+*              RFQE    - ADDRESS OF FQE CONTAINING STORAGE FREED
                                   1939+*              RPREVQE - ADDRESS OF QUEUE ELEMENT PREVIOUS IN QUEUE TO
                                   1940+*                         FQE CONTAINING STORAGE FREED
                                   1941+*              RLENGTH - LENGTH OF STORAGE DESCRIBED BY FQE

                                   1943+*        LOCATE QE LESS THAN OR EQUAL TO RAREAUB. SAVE PREVIOUS QE ADDR

000B7A                             1945+FRECOMBN EQU   * 20021
000B7A 4590 8DE2            00DE4  1946+         BAL   RCOMRET1,QELOCATE
000B7E 5550 32CA            012CC  1947+         CL    RSPID,C252 IS REQUEST FOR SP 252-255
000B82 47B0 8B94            00B96  1948+         BC    11,FRECMBN1 YES - BYPASS VALIDITY CHECK
000B86 189D                        1949+         LR    RWORK3,RDQELB SAVE DQE LOWER BOUND ACROSS CFQECHK
000B88 9210 3312      01314        1950+         MVI   MSGLEN,X'10' SET TEMP MSG LEN IN CASE OF ABEND  21016
000B8C 45D0 8FFA            00FFC  1951+         BAL   RCOMRET2,CFQECHK
000B90 9200 3312      01314        1952+         MVI   MSGLEN,X'00' TURN OFF MSG LENGTH            21016
000B94 18D9                        1953+         LR    RDQELB,RWORK3 RESTORE DQE LOWER BOUND

                                   1955+*        THE 'STRAIGHT THROUGH' PATH IN THIS ROUTINE COMBINES A FREE
                                   1956+*         AREA WITH AN ADJACENT UPPER FREE AREA AND AN ADJACENT LOWER
                                   1957+*         FREE AREA

000B96 1970                        1959+FRECMBN1 CR    RQE,RAREAUB
000B98 4770 8E0C            00E0E  1960+         BNE   FQENDTST UPPER AREA NOT ADJACENT
000B9C 5AA7 0004            00004  1961+         A     RLENGTH,FQELNTH(RQE) COMBINE LENGTH OF FREE AREA AND
                                   1962+*                                    ADJACENT UPPER FREE AREA
000BA0 5877 0000            00000  1963+FQEADV   L     RQE,FQENXT(RQE) PICK UP NEXT QE ADDRESS
000BA4 1277                        1964+         LTR   RQE,RQE IS IT END OF QUEUE
000BA6 4780 8E12            00E14  1965+         BZ    FQREPAIR YES - TIE ONTO END OF QUEUE
                                   1966+*                                   255
                                   1967+* THE HIGH ORDER BYTE OF AN FQE IS ALWAYS ZERO WHEN CORRECT        MP2K
000BAA 91FF 7000      00000        1968+FCHOVRLP TM    FQENXT(RQE),X'FF' CHECK IT                        MP2K
000BAE 4770 8BCA            00BCC  1969+         BNE   BADFQE 21016
000BB2 1817                        1970+         LR    RQEUB,RQE
000BB4 5A17 0004            00004  1971+         A     RQEUB,FQELNTH(RQE) COMPUTE UPPER BOUND OF FQE AREA
000BB8 5550 32CA            012CC  1972+         CL    RSPID,C252 IS REQUEST FOR SP 252-255
000BBC 47B0 8C06            00C08  1973+         BC    11,FQECH2 YES - BYPASS VALIDITY CHECK
000BC0 19E2                        1974+         CR    RPREVQE,RDQE IS PREVIOUS QE A DQE
000BC2 4770 8C00            00C02  1975+         BNE   FQECH1 NO
000BC6 1916                        1976+         CR    RQEUB,RWORK6 IS UPPER BOUND OF FQE AREA GREATER
                                   1977+*                                   THAN DQE UPPER BOUND
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000BC8 47D0 8C06            00C08  1978+         BC    13,FQECH2 NO
000BCC 924C 3312      01314        1979+BADFQE   MVI   MSGLEN,X'4C' SET REASON CODE(2) AND LEN(12) 21016
000BD0 98DE 7000            00000  1980+         LM    13,14,FQENXT(RQE)
000BD4 90DE 3306            01308  1981+         STM   13,14,ABNDATA
000BD8 9505 3291      01293        1982+         CLI   SVCBYTE,X'05' SVC 4, 5, OR A?                21016
000BDC 4740 8512            00514  1983+         BL    SPECERR PROB DETERM DATA OK FOR SVC 04 21016
000BE0 4780 8BEA            00BEC  1984+         BE    BADFQEX SVC 5                          21016
000BE4 94F7 3313      01315        1985+         NI    FREESW,X'FF'-X'08' SVC A , DUMMY FREESW           21016
000BE8 47F0 8512            00514  1986+         B     SPECERR 21016
000BEC 9250 3312      01314        1987+BADFQEX  MVI   MSGLEN,X'50' SET REASON CODE(2) AND LEN(16) 21016
000BF0 47F0 8512            00514  1988+         B     SPECERR 21016
000BF4 1B1B                        1989+OVRLAP   SR    RQEUB,RADDR 21016
000BF6 5010 3306            01308  1990+         ST    RQEUB,ABNDATA 21016
000BFA 920C 3312      01314        1991+         MVI   MSGLEN,X'0C' LENGTH OF VARIABLE DATA        21016
000BFE 47F0 3194            01196  1992+         B     GERROR10 21016
000C02 191E                        1993+FQECH1   CR    RQEUB,RPREVQE IS UPPER BOUND OF FQE AREA LESS
                                   1994+*                                   THAN ADDRESS OF PREVIOUS FQE
000C04 47B0 8BCA            00BCC  1995+         BNL   BADFQE NO - ERROR                     21016
000C08 191B                        1996+FQECH2   CR    RQEUB,RADDR
000C0A 4160 000D            0000D  1997+         LA    RERROR,GERRCODE SET UP ERROR CODE REGISTER      LC0A
000C0E 4720 8BF2            00BF4  1998+         BH    OVRLAP ERROR - OVERLAP                21016
000C12 4740 8E12            00E14  1999+         BL    FQREPAIR LOWER AREA IS NOT ADJACENT
000C16 5AA7 0004            00004  2000+         A     RLENGTH,FQELNTH(RQE) COMBINE LENGTH OF ADJACENT FREE
                                   2001+*                                   AREAS
000C1A 50A7 0004            00004  2002+FCOMPRPR ST    RLENGTH,FQELNTH(RQE) COMBINED SIZE IN FQE
000C1E 507E 0000            00000  2003+         ST    RQE,FQENXT(RPREVQE) REPAIR QUEUE


                                   2005+*        ROUTINE TO DETERMINE WHETHER 2K BLOCKS CAN BE RELEASED
                                   2006+*        IF 2K BLOCKS CAN BE RELEASED, THIS ROUTINE WILL RESTRUCTURE
                                   2007+*         THE QUEUES AS NECESSARY AND RELEASE THE BLOCKS TO FBMAP
                                   2008+*           INPUT REGISTERS
                                   2009+*              RFQE    - ADDRESS OF FQE CONTAINING STORAGE FREED
                                   2010+*              RLENGTH - LENGTH OF STORAGE DESCRIBED BY FQE
                                   2011+*              RPREVQE - ADDRESS OF QUEUE ELEMENT PREVIOUS IN QUEUE TO
                                   2012+*                         FQE CONTAINING STORAGE FREED
                                   2013+*              RDQE    - ADDRESS OF DQE CONTAINING STORAGE FREED
                                   2014+*              RDQEUB  - UPPER BOUND OF STORAGE DESCRIBED BY DQE
                                   2015+*                         CONTAINING STORAGE FREED
                                   2016+*              RPREVDQ - ADDRESS OF DQE PREVIOUS IN QUEUE TO DQE
                                   2017+*                         CONTAINING STORAGE FREED

                                   2019+*        DETERMINE WHETHER THERE ARE 2K BLOCKS TO BE RELEASED

000C22 5550 32CA            012CC  2021+         CL    RSPID,C252 IS IT SQ AREA
000C26 4720 8DCC            00DCE  2022+         BH    FCOMRET YES - DO NOT RELEASE BLOCK
000C2A 4107 A000            00000  2023+         LA    RAREAUB,0(RFQE,RLENGTH) DETERMINE UPPER BOUND OF AREA
000C2E 4160 07FF            007FF  2024+         LA    RWORK1,2047
000C32 18B7                        2025+         LR    RFQRND,RFQE
000C34 1850                        2026+         LR    RUBRND,RAREAUB
000C36 1AB6                        2027+         AR    RFQRND,RWORK1
000C38 16B6                        2028+         OR    RFQRND,RWORK1
000C3A 17B6                        2029+         XR    RFQRND,RWORK1 RFQRND CONTAINS FQE ADDR. ROUNDED UP
                                   2030+*                                   TO NEXT 2K BOUNDARY
000C3C 1656                        2031+         OR    RUBRND,RWORK1
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000C3E 1756                        2032+         XR    RUBRND,RWORK1 RUBRND CONTAINS UPPER BOUND OF FQE
                                   2033+*                                   ROUNDED DOWN TO PREVIOUS 2K BOUND.
000C40 18F5                        2034+         LR    RSIZE,RUBRND
000C42 1BFB                        2035+         SR    RSIZE,RFQRND
000C44 47C0 8DCC            00DCE  2036+         BC    NP,FCOMRET NO 2K BLOCKS TO BE RELEASED

                                   2038+*        DETERMINE NUMBER OF 2K BLOCKS TO BE RELEASED, BLOCK NUMBER OF
                                   2039+*         FIRST BLOCK TO BE RELEASED, THEN TO RELEASE THE BLOCKS TO
                                   2040+*         THE FBQE QUEUE AND SET THE STORAGE KEYS TO ZERO

000C48 50E0 3322            01324  2042+         ST    RPREVQE,PREVQESV
000C4C 18EB                        2043+         LR    RBLOCK,RFQRND
000C4E 5824 0098            00098  2044+         L     RPQE,TCBPQE(RTCB) PICK UP ADDRESS OF PQE
000C52 5822 000C            0000C  2045+LOOP2    L     RPQE,DUMBWD(RPQE) PICK UP END OF PQE CHAIN.
000C56 59B2 0018            00018  2046+         C     RADDR,PQESTADD(RPQE) IS CORE IN THIS REGION.
000C5A 4740 8C50            00C52  2047+         BL    LOOP2 NO. CHECK NEXT PQE.
000C5E 5040 32FE            01300  2048+         ST    RTCB,SMFTCBSV SAVE TCB POINTER             SMF
000C62 1847                        2049+         LR    RFQE1,RFQE SAVE FQE ADDRESS
000C64 5000 331E            01320  2050+         ST    RAREAUB,AREAUBSV SAVE AREA UPPER BOUND
000C68 D203 332A 4000 0132C 00000  2051+         MVC   FQESAVE(FQNXTFLD),FQEOFSET(RFQE1) SAVE FQE PTR
000C6E 4590 3088            0108A  2052+FCOMMON3 BAL   RCOMRET1,MRELEASE RELEASE 2K BLOCKS
000C72 1B66                        2053+         SR    RWORK1,RWORK1
000C74 180F                        2054+         LR    RIN0,RSIZE
000C76 181E                        2055+         LR    RIN1,RBLOCK
000C78 8800 000B            0000B  2056+         SRL   RIN0,11 NUMBER OF 2K BLOCKS
000C7C 4590 8E1C            00E1E  2057+         BAL   RCOMRET1,MSETKEYS SET KEYS OF RELEASED BLOCKS TO ZERO
000C80 5800 331E            01320  2058+         L     RAREAUB,AREAUBSV

                                   2060+*        DETERMINE WHETHER ALL OF SPACE DESCRIBED BY DQE IS FREE AND,
                                   2061+*         IF SO, TO FREE THE SPACE USED BY THE DQE AND REMOVE THE DQE
                                   2062+*         FROM THE QUEUE

000C84 58C0 331A            0131C  2064+         L     RPREVDQ,PREVDQSV PICK UP ADDRESS OF PREVIOUS DQE
000C88 582C 0004            00004  2065+         L     RDQE,DQENXT(RPREVDQ) PICK UP ADDRESS OF DQE
000C8C 5420 891E            00920  2066+         N     RDQE,CLHIBYTE CLEAR OUT HI ORDER BYTE          SA66492
000C90 5862 000C            0000C  2067+         L     RDQESIZ,DQELNTH(RDQE) PICK UP SIZE
000C94 196F                        2068+FDQECMPR CR    RDQESIZ,RSIZE IS STORAGE DESCRIBED BY DQE ALL FREE 20021
000C96 4770 8CC8            00CCA  2069+         BNE   DQENDFCH NO IF TAKEN
000C9A D202 C005 2005 00005 00005  2070+         MVC   DQENXT+PTROFST(ADRLNTH,RPREVDQ),DQENXT+PTROFST(RDQE)
                                   2071+*                                  THE ABOVE INSTRUCTION REMOVES THE
                                   2072+*                                   DQE FROM THE QUEUE
000CA0 41B2 0000            00000  2073+         LA    RADDR,0(RDQE)
000CA4 41A0 0010            00010  2074+         LA    RLENGTH,16

                                   2076+*        FREE SPACE USED FOR DQE

000CA8 58C0 3296            01298  2078+FREEDQE  L     RSPQE,SQSBOUND .     LOAD SQS+1 ADDRESS            M1389
000CAC 41CC 0000            00000  2079+         LA    RSPQE,0(RSPQE) .     ZERO HIGH ORDER BYTE          M1389
000CB0 19BC                        2080+         CR    RADDR,RSPQE .        IS AQE IN SQS                 M1389
000CB2 41C0 3296            01298  2081+         LA    RSPQE,SQESPQE .      LOAD SQS SPQE                 M1389
000CB6 4740 8CBC            00CBE  2082+         BL    FREEDQE1 YES, USE SQS SPQE              20021
000CBA 4590 8FD6            00FD8  2083+         BAL   RCOMRET1,GETLSQS GET LSQS SPQE IF TIME-SHRNG    20021
000CBE                             2084+FREEDQE1 EQU   * 20021
000CBE 4150 00FF            000FF  2085+         LA    RSPID,255 INDICATE SUPERVISOR SUBPOOL
000CC2 4160 000D            0000D  2086+         LA    RERROR,GERRCODE SET UP ERROR CODE REGISTER      LC0A
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000CC6 47F0 8A52            00A54  2087+         B     FCOMMON2 FREE SPACE USED FOR DQE

                                   2089+*        DETERMINE WHETHER SPACE AT UPPER END OF AREA DESCRIBED BY DQE
                                   2090+*         IS FREE AND, IF SO, TO CHANGE THE NUMBER OF BLOCKS IN THE DQE
                                   2091+*         AND TO CHANGE THE LENGTH IN THE FQE

000CCA 18AF                        2093+DQENDFCH LR    RSIZE2,RSIZE SAVE NUMBER OF BLOCKS
000CCC 58F2 0008            00008  2094+         L     RDQEUB,DQEADDR(RDQE) PICK UP BLOCK ADDRESS
000CD0 1AF6                        2095+         AR    RDQEUB,RDQESIZ UPPER BOUND OF DQE
000CD2 19F5                        2096+         CR    RDQEUB,RUBRND IS UPPER END OF AREA DESCRIBED BY
                                   2097+*                                   DQE FREE
000CD4 4770 8CF8            00CFA  2098+         BNE   DQBEGFCH NO IF TAKEN
000CD8 5862 000C            0000C  2099+         L     RDQESIZ,DQELNTH(RDQE) PICK UP NUMBER OF BYTES
000CDC 1B6A                        2100+         SR    RDQESIZ,RSIZE2 COMPUTE NUMBER OF BYTES FOR DQE
000CDE 5062 000C            0000C  2101+         ST    RDQESIZ,DQELNTH(RDQE) CHANGE NUMBER OF BYTES IN DQE
000CE2 1BB4                        2102+         SR    RFQRND,RFQE1 DOES PART OF FQE REMAIN
000CE4 4770 8CF0            00CF2  2103+         BC    NZ,CHNGFQE YES IF TAKEN
000CE8 D202 2001 332B 00001 0132D  2104+         MVC   DQEFQE+PTROFST(ADRLNTH,RDQE),FQESAVE+1
                                   2105+*                                  THE ABOVE INSTRUCTION PUTS THE
                                   2106+*                                   POINTER TO THE NEXT FQE IN THE DQE
000CEE 47F0 8DCC            00DCE  2107+         B     FCOMRET RETURN - 2K BLOCKS RELEASED
000CF2 50B4 0004            00004  2108+CHNGFQE  ST    RFQRND,FQELNTH(RFQE1) STORE NEW LENGTH IN FQE
000CF6 47F0 8DCC            00DCE  2109+         B     FCOMRET RETURN - 2K BLOCKS RELEASED

                                   2111+*        DETERMINE WHETHER SPACE AT BEGINNING OF AREA DESCRIBED BY DQE
                                   2112+*         IS FREE AND, IF SO, TO CHANGE THE NUMBER OF BLOCKS IN THE
                                   2113+*         DQE, THE BLOCK NUMBER IN THE DQE, AND TO ADJUST THE FQE QUEUE

000CFA 58E0 3322            01324  2115+DQBEGFCH L     RPREVQE,PREVQESV
000CFE 19D4                        2116+         CR    RDQELB,RFQE1 IS BEGINNING OF AREA DESCRIBED BY
                                   2117+*                                   DQE FREE
000D00 4770 8D36            00D38  2118+         BNE   DQMIDFRE NO IF TAKEN
000D04 5812 0008            00008  2119+         L     RDQEBLK,DQEADDR(RDQE) PICK UP BLOCK ADDRESS
000D08 1A1A                        2120+         AR    RDQEBLK,RSIZE2 COMPUTE NEW BLOCK ADDRESS
000D0A 5012 0008            00008  2121+         ST    RDQEBLK,DQEADDR(RDQE) CHANGE BLOCK ADDRESS IN DQE
000D0E 5862 000C            0000C  2122+         L     RDQESIZ,DQELNTH(RDQE) PICK UP NUMBER OF BYTES
000D12 1B6A                        2123+         SR    RDQESIZ,RSIZE2 COMPUTE NUMBER OF BYTES FOR DQE
000D14 5062 000C            0000C  2124+         ST    RDQESIZ,DQELNTH(RDQE) CHANGE NUMBER OF BYTES IN DQE
000D18 1B05                        2125+         SR    RAREAUB,RUBRND DOES PART OF FQE REMAIN
000D1A 4770 8D24            00D26  2126+         BC    NZ,MOVEFQE YES IF TAKEN
000D1E 500E 0000            00000  2127+         ST    RAREAUB,FQENXT(RPREVQE) ZERO POINTER IN PREVIOUS FQE.
                                   2128+*                                       IT IS NOW LAST IN QUEUE
000D22 47F0 8DCC            00DCE  2129+         B     FCOMRET RETURN - 2K BLOCKS RELEASED
000D26 505E 0000            00000  2130+MOVEFQE  ST    RUBRND,FQENXT(RPREVQE) CHANGE POINTER IN PREVIOUS FQE TO
000D2A D203 5000 332A 00000 0132C  2131+         MVC   FQEOFSET(FQNXTFLD,RUBRND),FQESAVE
                                   2132+*                                  THE ABOVE INSTRUCTION MOVES THE FQE
                                   2133+*                                   TO THE BEGINNING OF THE NEW FREE
                                   2134+*                                   AREA
000D30 5005 0004            00004  2135+         ST    RAREAUB,FQELNTH(RUBRND) STORE SIZE IN NEW FQE
000D34 47F0 8DCC            00DCE  2136+         B     FCOMRET RETURN - 2K BLOCKS RELEASED

                                   2138+*        FREE SPACE IS IN MIDDLE OF AREA DESCRIBED BY DQE.

                                   2140+*        THIS SECTION OF CODE GETS STORAGE FOR THE ADDITIONAL DQE
                                   2141+*         NEEDED, PUTS IT INTO THE DQE QUEUE, PUTS THE NEW NUMBER OF
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2142+*         BLOCKS INTO EACH DQE, AND PUTS THE BLOCK NUMBER INTO THE NEW
                                   2143+*         DQE
000D38 4110 0010            00010  2144+DQMIDFRE LA    RIN1,16 SIZE FOR DQE
000D3C 4590 8F74            00F76  2145+         BAL   RCOMRET1,GETMAINB GET STORAGE FOR NEW DQE
000D40 D202 1005 2005 00005 00005  2146+         MVC   DQENXT+PTROFST(ADRLNTH,RNEWDQE),DQENXT+PTROFST(RDQE)
                                   2147+*                                  THE ABOVE INSTRUCTION MOVES THE DQE
                                   2148+*                                   POINTER FROM THE OLD DQE TO THE NEW
                                   2149+*                                   DQE
000D46 5012 0004            00004  2150+         ST    RNEWDQE,DQENXT(RDQE) POINT OLD DQE TO NEW DQE
000D4A 186F                        2151+         LR    RWORK1,RDQEUB
000D4C 1B65                        2152+         SR    RWORK1,RUBRND COMPUTE SIZE OF AREA DESCRIBED BY
                                   2153+*                                   NEW DQE
000D4E 4166 0000            00000  2154+         LA    RWORK1,0(RWORK1) .                                A39883
000D52 5061 000C            0000C  2155+         ST    RWORK1,DQELNTH(RNEWDQE) PUT SIZE IN DQE
000D56 5051 0008            00008  2156+         ST    RUBRND,DQEADDR(RNEWDQE) PUT ADDRESS IN DQE
000D5A 186B                        2157+         LR    RWORK1,RFQRND
000D5C 5892 0008            00008  2158+         L     RWORK3,DQEADDR(RDQE)
000D60 1B69                        2159+         SR    RWORK1,RWORK3 COMPUTE ADDRESS FOR OLD DQE
000D62 4166 0000            00000  2160+         LA    RWORK1,0(RWORK1) .   CLEAR HI ORDER BYTE          A34874
000D66 5062 000C            0000C  2161+         ST    RWORK1,DQELNTH(RDQE) PUT FIRST BYTE ADDRESS IN OLD DQE

                                   2163+*        THIS SECTION OF CODE ADJUSTS THE FQE QUEUE FOR THE NEW DQE AND
                                   2164+*         PUTS THE POINTER TO THE QUEUE INTO THE DQE
000D6A 5862 0000            00000  2165+STNEWFQE L     RWORK1,DQEFQE(RDQE) PICK UP FQE POINTER FROM OLD DQE
000D6E 4166 0000            00000  2166+         LA    RWORK1,0(RWORK1) CLEAR HIGH ORDER BYTE
000D72 1964                        2167+         CR    RWORK1,RFQE1
000D74 4720 8D80            00D82  2168+         BH    MVFQEPTR THE BRANCH WILL BE TAKEN IF A PART
                                   2169+*                                   OF THE OLD FQE QUEUE LIES WITHIN
                                   2170+*                                   THE AREA DESCRIBED BY THE NEW DQE.
                                   2171+*                                   OTHERWISE THE FOLLOWING INSTRUCTION
                                   2172+*                                   WILL CLEAR THE FQE POINTER FIELD
                                   2173+*                                   FROM THE NEW DQE
000D78 D702 1001 1001 00001 00001  2174+         XC    DQEFQE+PTROFST(ADRLNTH,RNEWDQE),DQEFQE+PTROFST(RNEWDQE)
000D7E 47F0 8D86            00D88  2175+         B     UPRREMCH
                                   2176+*                                  IF PART OF THE OLD FQE LIES WITHIN
                                   2177+*                                   THE AREA DESCRIBED BY THE NEW DQE,
                                   2178+*                                   IT IS THE BEGINNING OF THE OLD FQE
                                   2179+*                                   QUEUE AND THE FQE POINTER FROM THE
                                   2180+*                                   OLD DQE BECOMES THE FQE POINTER FOR
                                   2181+*                                   THE NEW DQE. THE NEXT INSTRUCTION
                                   2182+*                                   PUTS THE OLD FQE POINTER INTO THE
                                   2183+*                                   NEW DQE
000D82 D202 1001 2001 00001 00001  2184+MVFQEPTR MVC   DQEFQE+PTROFST(ADRLNTH,RNEWDQE),DQEFQE+PTROFST(RDQE)
                                   2185+*                                  THE NEXT FEW INSTRUCTIONS DETERMINE
                                   2186+*                                   THE END OF THE FQE QUEUE FOR THE
                                   2187+*                                   NEW DQE AND COMPLETE THIS QUEUE
000D88 1B05                        2188+UPRREMCH SR    RAREAUB,RUBRND IS THERE A REMAINDER OF FREE AREA
                                   2189+*                                   ABOVE THE 2K BLOCKS BEING FREED
000D8A 4780 8DAC            00DAE  2190+         BZ    STPREVFQ NO IF BRANCH TAKEN
000D8E D703 5000 5000 00000 00000  2191+         XC    FQENXT(FQNXTFLD,RUBRND),FQENXT(RUBRND) A36201
                                   2192+*                                      CLEAR NEW FQE PTR        A36201
000D94 5005 0004            00004  2193+         ST    RAREAUB,FQELNTH(RUBRND) .PUT LENGTH IN NEW FQE    A36201
000D98 19E2                        2194+         CR    RPREVQE,RDQE .           WAS PREV FQE A DQE      A36201
000D9A 4780 8DA4            00DA6  2195+         BE    FQENEWS .                YES NEW FQE IS FIRST     A36201
000D9E 505E 0000            00000  2196+         ST    RUBRND,FQENXT(RPREVQE) . PT PREV FQE TO NEW FQE   A36201
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000DA2 47F0 8DB0            00DB2  2197+         B     STOLDFQE .                                        A36201
000DA6 5051 0000            00000  2198+FQENEWS  ST    RUBRND,FQENXT(RNEWDQE) . THIS IS FIRST FQE        A36201
000DAA 47F0 8DB0            00DB2  2199+         B     STOLDFQE
000DAE 500E 0000            00000  2200+STPREVFQ ST    RAREAUB,FQENXT(RPREVQE) CLEAR POINTER IN PREVIOUS FQE
                                   2201+*                                       IT IS LAST ONE IN THIS QUEUE

                                   2203+*        THIS SECTION OF CODE ADJUSTS THE FQE QUEUE FOR THE OLD DQE AND
                                   2204+*         PUTS THE POINTER TO THE QUEUE INTO THE DQE
000DB2 1BB4                        2205+STOLDFQE SR    RFQRND,RFQE1 IS THERE A REMAINDER OF FREE AREA
                                   2206+*                                   BELOW THE 2K BLOCKS BEING FREED
000DB4 4780 8DC2            00DC4  2207+         BZ    NOLWRREM NO IF BRANCH TAKEN
000DB8 50B4 0004            00004  2208+         ST    RFQRND,FQELNTH(RFQE1) YES - CHANGE LENGTH IN FQE FOR
                                   2209+*                                    AREA TO SIZE OF THIS REMAINDER
000DBC 5042 0000            00000  2210+         ST    RFQE1,DQEFQE(RDQE) PUT POINTER TO FQE QUEUE IN OLD DQE
000DC0 47F0 8DCC            00DCE  2211+         B     FCOMRET RETURN - 2K BLOCKS RELEASED
                                   2212+*                                  IF THERE IS NO LOWER REMAINDER OF
                                   2213+*                                   FREE AREA, THE NEXT INSTRUCTION
                                   2214+*                                   WILL PLACE THE POINTER TO THE LOWER
                                   2215+*                                   PART OF THE OLD FQE QUEUE INTO THE
                                   2216+*                                   OLD DQE AS THE FQE QUEUE POINTER
000DC4 D202 2001 332B 00001 0132D  2217+NOLWRREM MVC   DQEFQE+PTROFST(ADRLNTH,RDQE),FQESAVE+PTROFST
000DCA 47F0 8DCC            00DCE  2218+         B     FCOMRET RETURN - 2K BLOCKS RELEASED

                                   2220+*        COMMON RETURN TO MAINLINE

000DCE 98ED 882A            0082C  2222+FCOMRET  LM    RRETURN,RFMRET,FMSAVE RESTORE REGISTERS
000DD2 07FD                        2223+         BR    RFMRET RETURN
000DD4 58BB 0000            00000  2224+SUBPERR  L     RADDR,0(RADDR) FREEMAIN ADDRESS                   21016
000DD8 924C 3312      01314        2225+         MVI   MSGLEN,X'4C' REASON CODE(2) AND LENGTH(12)  21016
000DDC 5040 3306            01308  2226+         ST    RTCB,ABNDATA STORE TCB SEARCHED            21016
000DE0 47F0 3186            01188  2227+         B     GERROR3 21016
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2229+*        ROUTINE TO LOCATE AN FQE EQUAL TO OR LESS THAN A GIVEN ADDRESS
                                   2230+*           INPUT REGISTERS
                                   2231+*              RDQE   - DQE ADDRESS
                                   2232+*              RWORK1 - GIVEN ADDRESS
                                   2233+*           OUTPUT REGISTERS
                                   2234+*              RQE     - REQUESTED QUEUE ELEMENT ADDRESS
                                   2235+*              RPREVQE - ADDRESS OF QUEUE ELEMENT PREVIOUS TO REQUESTED
                                   2236+*                         QUEUE ELEMENT

000DE4 18E2                        2238+QELOCATE LR    RPREVQE,RDQE SAVE ADDRESS OF PREVIOUS QE
000DE6 587E 0000            00000  2239+         L     RQE,FQENXT(RPREVQE) PICK UP QE PTR
000DEA 4177 0000            00000  2240+         LA    RQE,0(RQE) CLEAR OUT BLOCK NUMBER
000DEE 1970                        2241+FADVQE   CR    RQE,RAREAUB IS IT REQUESTED QUEUE ELEMENT  20021
000DF0 07D9                        2242+         BCR   13,RCOMRET1 YES - RETURN
000DF2 18E7                        2243+         LR    RPREVQE,RQE SAVE ADDRESS OF PREVIOUS QE
000DF4 9107 E003      00003        2244+         TM    FQENXT+3(RPREFQE),7 DOES NEXT FQE SPECIFY DOUBLE WORD
000DF8 4770 8BCA            00BCC  2245+         BC    7,BADFQE NO - FQE DESTROYED             21016
000DFC 587E 0000            00000  2246+         L     RQE,FQENXT(RPREVQE) PICK UP QE PTR
000E00 4177 0000            00000  2247+         LA    RQE,0(RQE) CLEAR HIGH ORDER BYTE (IF DESTROYED
                                   2248+*                                   BY PROBLEM PROGRAM)
000E04 197E                        2249+         CR    RQE,RPREFQE IS FQE LESS THAN PREVIOUS FQE
000E06 4740 8DEC            00DEE  2250+         BL    FADVQE YES
000E0A 47F0 8BCA            00BCC  2251+         B     BADFQE 21016


                                   2253+*        PART OF ROUTINE TO PUT FREE STORAGE INTO THE QUEUE AND TO
                                   2254+*         COMBINE ADJOINING FREE AREAS

                                   2256+*        UPPER AREA NOT ADJACENT

000E0E 1277                        2258+FQENDTST LTR   RQE,RQE IS IT END OF QUEUE
000E10 4770 8BA8            00BAA  2259+         BC    7,FCHOVRLP NO - CHECK FOR OVERLAP

                                   2261+*        LOWER AREA NOT ADJACENT

000E14 507B 0000            00000  2263+FQREPAIR ST    RQE,FQENXT(RADDR) POINTER TO NEXT QE IN NEW FQE
000E18 187B                        2264+         LR    RQE,RADDR QE POINTER TO NEW QE
000E1A 47F0 8C18            00C1A  2265+         B     FCOMPRPR TO COMPLETE REPAIR OF QUEUE


                                   2267+*        THIS ROUTINE SETS THE STORAGE KEYS OF A NUMBER OF CONSECUTIVE
                                   2268+*         BLOCKS
                                   2269+*           INPUT REGISTERS
                                   2270+*              RWORK1 - KEY IN BITS 24 - 27
                                   2271+*              RIN0   - NUMBER OF 2K BLOCKS
                                   2272+*              RIN1   - ADDRESS OF FIRST 2K BLOCK

000E1E 0861                        2274+MSETKEYS SSK   RWORK1,RIN1 SET STORAGE KEY
000E20 4111 0800            00800  2275+         LA    RIN1,TWOK(RIN1) INCREMENT TO NEXT BLOCK
000E24 4600 8E1C            00E1E  2276+         BCT   RIN0,MSETKEYS COUNT DOWN NUMBER OF BLOCKS
                                   2277+* FREEMAIN NO LONGER DOES SMF PROCESSING DUE TO PTF 00110
000E28 07F9                        2278+         BR    RCOMRET1 RETURN
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2281+***********************************************************************
                                   2282+*        SUBROUTINES COMMON TO GETMAIN AND FREEMAIN
                                   2283+***********************************************************************


                                   2285+*
                                   2286+*        SUBROUTINE TO DETERMINE SUBPOOL REQUEST AND TO GET SPQE FOR
                                   2287+*              REQUESTED SUBPOOL
                                   2288+*           INPUT
                                   2289+*              RTCB  - TCB OF REQUESTING TASK
                                   2290+*              RSPID - SUBPOOL ID REQUESTED
                                   2291+*           OUTPUT
                                   2292+*              RSPQE - SPQE ADDRESS
                                   2293+*              RSPID - IS COMPLEMENTED IF REQUEST IS FOR SP253 OR 254
                                   2294+*              RLENGTH- IS INCREMENTED BY 8 IF SPID IS 253 OR 254
000E2A 4170 0080            00080  2295+CSPCHK   LA    RWORK2,128
000E2E 9200 328A      0128C        2296+         MVI   LSQSSW,LSQSOFF CLEAR LSQS SWITCH          20021
000E32 1B75                        2297+         SR    RWORK2,RSPID
000E34 4720 8F2A            00F2C  2298+         BP    PGETSPQE PROBLEM PROGRAM SUBPOOL REQUESTED
                                   2299+*        DETERMINE WHICH SUPERVISOR SUBPOOL IS REQUESTED
000E38 9180 4094      00094        2300+         TM    TCBTSFLG(RTCB),TCBTSTSK TIME-SHARING TASK?         20021
000E3C 4780 8E42            00E44  2301+         BZ    *+8 20021
000E40 92FF 328A      0128C        2302+         MVI   LSQSSW,LSQSMSK YES-SET LSQS SWITCH        20021
000E44 4170 00F3            000F3  2303+         LA    RWORK2,243 20021
000E48 1B75                        2304+         SR    RWORK2,RSPID IS REQUEST FOR A SUPERVISOR
000E4A 1377                        2305+         LCR   RWORK2,RWORK2 SUBPOOL LESS THAN 243?        20021
000E4C 4740 8E62            00E64  2306+         BM    GERRB YES - INVALID SUBPOOL          21016
000E50 8970 0002            00002  2307+         SLL   RWORK2,2
000E54 91F0 3290      01292        2308+         TM    MODEBYTE,X'F0' IS REQUESTOR IN KEY OF ZERO
000E58 4787 8E7A            00E7C  2309+         BZ    TABLE(RWORK2) DETERMINE REQUESTED SUBPOOL
000E5C 9101 3290      01292        2310+         TM    MODEBYTE,1 IS REQUESTOR IN SUPVR MODE  699
000E60 4787 8E7A            00E7C  2311+         BZ    TABLE(RWORK2) DETERMINE REQUESTED SUBPOOL 699
000E64 58BB 0000            00000  2312+GERRB    L     RADDR,0(RADDR) 21016
000E68 9204 3312      01314        2313+         MVI   MSGLEN,X'04' SET REASON CODE(0) AND LENGTH(4)21016
000E6C 9505 3291      01293        2314+         CLI   SVCBYTE,X'05' IS IT SVC 5 ?                   21016
000E70 4770 3196            01198  2315+         BNE   GERROR11 IF NOT SVC 5 MSGLEN = X'04'     21016
000E74 9208 3312      01314        2316+         MVI   MSGLEN,X'08' FOR SVC 5, MSGLEN = 8           21016
000E78 47F0 3196            01198  2317+         B     GERROR11 NOT KEY OF ZERO - ERROR

000E7C 47F0 8EAE            00EB0  2319+TABLE    B     SP243 20021
000E80 47F0 8EAE            00EB0  2320+         B     SP244 20021
000E84 47F0 8EAE            00EB0  2321+         B     SP245 20021
000E88 47F0 3102            01104  2322+         B     PART 20021
000E8C 47F0 3102            01104  2323+         B     PART
000E90 47F0 8E62            00E64  2324+         B     GERRB .            INVALID SUBPOOL            BL   M1536
000E94 47F0 8E62            00E64  2325+         B     GERRB .            INVALID SUBPOOL            BL   M1536
000E98 47F0 8EBE            00EC0  2326+         B     SP250
000E9C 47F0 8ED0            00ED2  2327+         B     SP251
000EA0 47F0 8ED0            00ED2  2328+         B     SP251
000EA4 47F0 8EDC            00EDE  2329+         B     SP253
000EA8 47F0 8ED8            00EDA  2330+         B     SP254
000EAC 47F0 8EDE            00EE0  2331+         B     SP255
                                   2332+*
000EB0 4155 000A            0000A  2333+SP245    LA    RSPID,10(RSPID) CHANGE SP NUMBER TO SQS   20021
000EB0                             2334+SP243    EQU   SP245 20021
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000EB0                             2335+SP244    EQU   SP245 20021
000EB4 9200 328A      0128C        2336+         MVI   LSQSSW,LSQSOFF FORCE ALLOCATION FROM SQS  20021
000EB8 4177 0028            00028  2337+         LA    RWORK2,40(RWORK2) CHANGE BRANCH TABLE DIS-   20021
                                   2338+*                                      PLACEMENT TO SUBPOOL 253,  20021
                                   2339+*                                      254, OR 255.               20021
000EBC 47F7 8E7A            00E7C  2340+         B     TABLE(RWORK2) BRANCH TO PROCESS REQUEST  20021
                                   2341+*                                                                 20021
                                   2342+*
                                   2343+*        SUBPOOL 250 - SYNONYM FOR SUBPOOL ZERO
                                   2344+*
000EC0 1B55                        2345+SP250    SR    RSPID,RSPID
000EC2 47F0 8F3A            00F3C  2346+         B     GETSPQE
                                   2347+*
                                   2348+*        SUPERVISOR REQUEST FOR PP STORAGE - CONVERT TO SP 252
                                   2349+*
000EC6 9102 3290      01292        2350+SUPVPPSP TM    MODEBYTE,2
000ECA 4710 8F3A            00F3C  2351+         BC    1,GETSPQE
000ECE 4150 00FC            000FC  2352+         LA    RSPID,252
                                   2353+*
                                   2354+*        SUBPOOL 251 - GET JOB STEP TCB ADDRESS (JOB PACK AREA SUBPOOL)
                                   2355+*        ALSO SUBPOOL 252 (LINK PACK AREA WITHIN PARTITION)
                                   2356+*
000ED2 5844 007C            0007C  2357+SP251    L     RTCB,TCBJSTCB(RTCB) PICK UP ADDRESS OF JOB STEP TCB
000ED6 47F0 8F3A            00F3C  2358+         B     GETSPQE
                                   2359+*
                                   2360+*        SUBPOOL 254 - GET JOB STEP TCB ADDRESS
                                   2361+*
000EDA 5844 007C            0007C  2362+SP254    L     RTCB,TCBJSTCB(RTCB) PICK UP ADDRESS OF JOB STEP TCB
                                   2363+*
                                   2364+*        SUBPOOL 253 - COMPLEMENT SPID TO INDICATE AQE NEEDED
                                   2365+*
000EDE 1355                        2366+SP253    LCR   RSPID,RSPID
                                   2367+*
                                   2368+*        SUBPOOL 255 - LOAD ADDRESS OF SPQE FOR SUPERVISOR CORE
                                   2369+*                         (ALSO FOR SP253 AND SP254)
000EE0 41C0 3296            01298  2370+SP255    LA    RSPQE,SQESPQE
                                   2371+*
                                   2372+*BEFORE RETURNING TO MAINLINE, THIS ROUTINE WILL DETERMINE WHETHER SWS
                                   2373+*THE TCB READY QUEUE SHOULD BE SCANNED FOR ANY TASKS WHICH ARE     SWS
                                   2374+*NON-DISPATCHABLE BECAUSE THE 2K LIMIT ON QUEUE SPACE HAD BEEN     SWS
                                   2375+*REACHED.  IT WILL PROCEED AS FOLLOWS                              SWS
                                   2376+*DETERMINE IF THE REQUEST IS A FREEMAIN.  AT THIS POINT WE         SWS
                                   2377+*ALREADY KNOW THAT THE REQUEST PERTAINS TO QUEUE SPACE.            SWS
                                   2378+*IF THIS IS A REQUEST TO FREE QUEUE SPACE, THE HIGH ORDER BYTE     SWS
                                   2379+*OF GOB GOVRFLB WILL BE EXAMINED                                   SWS
                                   2380+*IF THE FLAG IS ZERO, THIS ROUTINE WILL RETURN TO MAINLINE         SWS
                                   2381+*IF IT IS NON-ZERO, IT MEANS ONE OR MORE TASKS ARE NON-DISPATCHABLESWS
                                   2382+*BECAUSE OF THE 2K LIMIT ON QUEUE SPACE.  THEREFORE, THIS ROUTINE WILL
                                   2383+*BALR TO A SUBROUTINE WITHIN GETPART/FREEPART CALLED  DISPINIT     SWS
                                   2384+*TO MAKE THESE TASKS DISPATCHABLE AND RESET THE FLAG IN GOVRFLB    SWS
                                   2385+*TO ZERO.                                                          SWS
                                   2386+*THE  DISPINIT  SUBROUTINE WILL SAVE ALL THE XRS ON ENTRY.         SWS
000EE4 9180 3296      01298        2387+         TM    GOVRFLB,X'80' IS THE TRIGGER SET               SWS
000EE8 4780 8F12            00F14  2388+         BZ    OK NO                               SWS
                                   2389+*        FALL THRU HERE MEANS 2K LIMIT IS IN EFFECT AND ONE OR     SWS
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2390+*        QUEUE SPACE (SVC 10,SVC 5, OR BRANCH ENTRY )              SWS
                                   2391+*        MORE TASKS ARE NON-DISPATCHABLE.                          SWS
000EEC 9504 3291      01293        2392+         CLI   SVCBYTE,4 IS THIS A GETMAIN REQUEST - SVC 4SWS
000EF0 4780 8F12            00F14  2393+         BE    OK YES                              SWS
000EF4 1211                        2394+         LTR   RIN1,RIN1 IS THIS A GETMAIN REQUEST - SVC 1SWS
000EF6 4740 8F12            00F14  2395+         BM    OK YES                              SWS
                                   2396+*        FREEMAIN REQUESTS FOR LSQS HAVE NO EFFECT ON SQS.        20021
000EFA 91FF 328A      0128C        2397+         TM    LSQSSW,LSQSMSK 20021
000EFE 4710 8F12            00F14  2398+         BO    OK 20021
                                   2399+*        FALL THRU HERE MEANS REQUEST IS A FREEMAIN FOR            SWS
                                   2400+*        AND THE 2K LIMIT IS IN EFFECT.                            SWS
000F02 18F9                        2401+         LR    RIN15,RCOMRET1 SAVE VOLATILE XRS                SWS
000F04 187B                        2402+         LR    RWORK2,RADDR SWS
000F06 58B0 3342            01344  2403+         L     RADDR,ADPART LOAD BASE XR FOR GETPART         SWS
000F0A 5890 3346            01348  2404+         L     RCOMRET1,ADDISP LOAD ADDR FOR BALR               SWS
000F0E 0599                        2405+         BALR  RCOMRET1,RCOMRET1 LINK TO SUBROUTINE WITHIN GETPARTSWS
000F10 18B7                        2406+         LR    RADDR,RWORK2 RESTORE VOLATILE XRS             SWS
000F12 189F                        2407+         LR    RCOMRET1,RIN15 SWS
000F14                             2408+OK       DS    0H SWS
000F14 91FF 328A      0128C        2409+         TM    LSQSSW,LSQSMSK LSQS REQUESTED?            20021
000F18 4789 0004            00004  2410+         BZ    4(RCOMRET1) NO-RETURN                  20021
000F1C 58C4 0098            00098  2411+         L     RSPQE,TCBPQE(RTCB) YES-LOAD LSQS SPQE         20021
000F20 58CC 0008            00008  2412+         L     RSPQE,PQENXT(RSPQE) 20021
000F24 58CC 0018            00018  2413+         L     RSPQE,PQESTADD(RSPQE) 20021
000F28 47F9 0004            00004  2414+         BC    15,4(RCOMRET1) RETURN-SPQE FOUND
                                   2415+*
                                   2416+*        FIND SUBPOOL QUEUE ELEMENT FOR PROBLEM PROGRAM SUBPOOLS
                                   2417+*              AND FOR SUBPOOL 250 AND 251
                                   2418+*              TEMPORARILY FOR SP128 ALSO                         *****
                                   2419+*
000F2C 9101 3290      01292        2420+PGETSPQE TM    MODEBYTE,1 IS REQUESTOR IN SUPVR MODE  699
000F30 4710 8F3A            00F3C  2421+         BO    GETSPQE NO                          699
000F34 91F0 3290      01292        2422+         TM    MODEBYTE,X'F0' IS REQUESTOR IN KEY OF ZERO 699
000F38 4780 8EC4            00EC6  2423+         BZ    SUPVPPSP YES, DETERMINE SUBPOOL      699
000F3C 58C4 0018            00018  2424+GETSPQE  L     RSPQE,TCBMSS(RTCB) LOAD FIRST SPQE FOR TASK
000F40 41CC 0000            00000  2425+         LA    RSPQE,0(RSPQE)
000F44 9200 328A      0128C        2426+         MVI   LSQSSW,LSQSOFF NOT LSQS REQUEST. RESET SWTCH  20021
000F48 12CC                        2427+         LTR   RSPQE,RSPQE RETURN NOT FOUND IF           ******
000F4A 0789                        2428+         BCR   8,RCOMRET1 SPQE PTR IS ZERO           ******
000F4C 1B77                        2429+         SR    RWORK2,RWORK2
000F4E 437C 0004            00004  2430+GETSPQE1 IC    RWORK2,SPQEID(RSPQE) CHECK IF ID OF SPQE
000F52 1975                        2431+         CR    RWORK2,RSPID IS REQUESTED SPID
000F54 4780 8F64            00F66  2432+         BE    GETSPQE2 YES-BRANCH-CHECK IF SP SHARED
000F58 9140 C000      00000        2433+         TM    SPQEFLGS(RSPQE),SPQELAST IS THIS LAST SPQE
000F5C 0719                        2434+         BCR   1,RCOMRET1 YES-RETURN-SPQE NOT FOUND
000F5E 58CC 0000            00000  2435+         L     RSPQE,SPQENXT(RSPQE) LOAD NEXT SPQE
000F62 47F0 8F4C            00F4E  2436+         B     GETSPQE1
                                   2437+*
000F66 9180 C000      00000        2438+GETSPQE2 TM    SPQEFLGS(RSPQE),SPQESHRD IS SUBPOOL SHARED
000F6A 4789 0004            00004  2439+         BC    8,4(RCOMRET1) NO-RETURN-OWNING SPQE FOUND
000F6E 58CC 0004            00004  2440+         L     RSPQE,SPQEDQE(RSPQE) LOAD OWNING  SPQE
000F72 47F9 0004            00004  2441+         BC    15,4(RCOMRET1) RETURN-SPQE FOUND
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2443+*        GETMAIN FOR AN MSS QUEUE ELEMENT
                                   2444+*           INPUT - RIN1- LENGTH OF REQUEST
                                   2445+*           OUTPUT-RIN1- ADDRESS OF ASSIGNED CORE
                                   2446+*           REGISTERS USED - RIN1,RIN0,RLENGTH,RSPQE,RCOMRET1,RCOMRET2
                                   2447+*
                                   2448+*
000F76 9021 886A            0086C  2449+GETMAINB STM   RLST,RIN1,SAVREG2
000F7A 18A1                        2450+         LR    RLENGTH,RIN1
000F7C 5800 891E            00920  2451+         L     RMASK,CLHIBYTE
000F80 41C0 3296            01298  2452+GMBREPET LA    RSPQE,SQESPQE LOAD SPQE FOR SUPERVISOR
000F84 4590 8FD6            00FD8  2453+         BAL   RCOMRET1,GETLSQS -  GET LSQS SPQE IF TIME-SHRNG    20021
000F88 4150 00FF            000FF  2454+NOSQSPC1 LA    RSPID,255 -         SUBPOOL ID FOR MSS QUEUE ELE   20021
000F8C 4590 84AA            004AC  2455+         BAL   RCOMRET1,GFRECORE SEARCH FOR FREE AREA
000F90 47F0 8FA4            00FA6  2456+         B     NOSQSPC2 NOT FOUND
000F94 4590 866E            00670  2457+         BAL   RCOMRET1,GFQEUPDT FOUND-REMOVE ASSIGNED CORE FROM FQE
000F98 1817                        2458+         LR    RIN1,RFQE LOAD ADDR OF ASSIGNED AREA
000F9A 06A0                        2459+         BCTR  RLENGTH,0 DECREMENT LENGTH TO CLEAR CORE
000F9C 44A0 8FBC            00FBE  2460+         EX    RLENGTH,CLRCORE CLEAR QUEUE ELEMENT SPACE
000FA0 9820 886A            0086C  2461+         LM    RLST,RIN0,SAVREG2
000FA4 07F9                        2462+         BR    RCOMRET1 RETURN
000FA6 91FF 328A      0128C        2463+NOSQSPC2 TM    LSQSSW,LSQSMSK -    LSQS FAIL                      20021
000FAA 4710 8FB0            00FB2  2464+         BO    NOSQSPC3 -          YES, CANNOT GET MORE LSQS      20021
000FAE 4590 82F4            002F6  2465+         BAL   RCOMRET1,GNOTSAT3 - ATTEMPT TO GET MORE SQ SPACE   20021
000FB2 9200 328A      0128C        2466+NOSQSPC3 MVI   LSQSSW,LSQSOFF -    RE SET LSQS SWITCH             20021
000FB6 41C0 3296            01298  2467+         LA    RSPQE,SQESPQE -     LOAD SPQE FOR SUPERVISOR       20021
000FBA 47F0 8F86            00F88  2468+         B     NOSQSPC1 -          REPEAT REQUEST                 20021
                                   2469+*
                                   2470+*
000FBE D700 1000 1000 00000 00000  2471+CLRCORE  XC    0(0,RIN1),0(RIN1)
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2473+*        ROUND UP REQUESTED LENGTH TO DOUBLE WORD BOUNDRY
                                   2474+*           INPUT - RLENGTH - REQUESTED LENGTH
                                   2475+*           OUTPUT- RLENGTH - ROUNDED LENGTH
                                   2476+*           REGISTERS USED - RLENGTH,RWORK2,RCOMRET1
                                   2477+*
000FC4 4170 0007            00007  2478+CRNDLNTH LA    RWORK2,7
000FC8 1AA7                        2479+         AR    RLENGTH,RWORK2
000FCA 16A7                        2480+         OR    RLENGTH,RWORK2
000FCC 17A7                        2481+         XR    RLENGTH,RWORK2
000FCE 1255                        2482+         LTR   RSPID,RSPID IF SUBPOOL 253 IS REQUESTED
000FD0 07B9                        2483+         BCR   11,RCOMRET1
000FD2 41AA 0008            00008  2484+         LA    RLENGTH,8(RLENGTH) ADD 8 BYTES TO LENGTH FOR AQE
000FD6 07F9                        2485+         BR    RCOMRET1
                                   2486+*                                                                 20021
                                   2487+*        GET LSQS SPQE IF THE CALLING TASK IS A TIME-SHARING      20021
                                   2488+*        TASK.                                                    20021
000FD8 5850 0010            00010  2489+GETLSQS  L     RSPID,16(0) -       GET TCB ADDRESS                20021
000FDC 5855 0000            00000  2490+         L     RSPID,0(RSPID) -    *                              20021
000FE0 5855 0004            00004  2491+         L     RSPID,4(RSPID) -    *                              20021
000FE4 9180 5094      00094        2492+         TM    TCBTSFLG(RSPID),TCBTSTSK - TIME SHARING TASK       20021
000FE8 0789                        2493+         BCR   8,RCOMRET1 - (BZ)   NO, RETURN                     20021
000FEA 5855 0098            00098  2494+         L     RSPID,TCBPQE(RSPID) GET PQE ADDRESS                20021
000FEE 5855 0008            00008  2495+         L     RSPID,PQENXT(RSPID) *                              20021
000FF2 58C5 0018            00018  2496+         L     RSPQE,PQESTADD(RSPID) GET LSQS SPQE ADDRESS        20021
000FF6 92FF 328A      0128C        2497+         MVI   LSQSSW,LSQSMSK -    SET LSQS SWITCH                20021
000FFA 07F9                        2498+         BR    RCOMRET1 -          RETURN                         20021
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2500+*
                                   2501+*
                                   2502+*
                                   2503+*
                                   2504+*        INPUT PARAMETERS VALIDITY CHECK ROUTINE
                                   2505+*           INPUT - RIN1 -ADDR OF PARAMETER LIST
                                   2506+*           OUTPUT- RLENGTH - LENGTH/ADDR OF LENGTH LIST
                                   2507+*                 - RADDR   - ADDR OF AREA LIST
                                   2508+*
                                   2509+*
001358                             2510+IEAQVLCH CSECT
001358 05F0                        2511+IPVALCHK BALR  IPVLBASE,0 SET UP BASE REGISTER
00135A                             2512+         USING *,IPVLBASE
00135A 91F0 3290      01292        2513+         TM    MODEBYTE,X'F0' IS CALLER IN KEY ZERO
00135E 4160 000D            0000D  2514+         LA    RERROR,GERRCODE SET UP ERROR CODE REGISTER      LC0A
                                   2515+         ST    FREBAS,SAVE3BAS .    SAVE ALTERNATE BASE REG        M055X
001362 5030 F12E            01488      +               0
001366 4780 F0DE            01438  2516+         BZ    IPVLRET1 RETURN
00136A 1B55                        2517+         SR    RSPID,RSPID . CLEAR REG                 @SA78437
00136C 5871 0004            00004  2518+         L     RWORK2,4(RIN1) . GET ADDRS OF AREA LIST    @SA78437
001370 41A0 0010            00010  2519+         LA    RLENGTH,X'10' . PUT X'FFFFFFF0' IN        @SA78437
001374 13AA                        2520+         LCR   RLENGTH,RLENGTH . RLENGTH FOR AND OF RWORK2 @SA78437
001376 147A                        2521+         NR    RWORK2,RLENGTH . ZERO BITS 28-31           @SA78437
001378 0957                        2522+         ISK   RSPID,RWORK2 . GET PROTECT KEY OF PARMADR@SA78437
00137A 1B77                        2523+         SR    RWORK2,RWORK2 .                           @SA78437
00137C 4370 3290            01292  2524+         IC    RWORK2,MODEBYTE . GET PROTECT KEY OF TASK   @SA78437
001380 147A                        2525+         NR    RWORK2,RLENGTH .                           @SA78437
001382 1957                        2526+         CR    RSPID,RWORK2 . PROTECT KEYS MUST MATCH   @SA78437
001384 4770 F03A            01394  2527+         BNE   BADPARM .                           @SA78437
001388 9103 1007      00007        2528+         TM    7(RIN1),X'03' . WORD BOUNDARY CHECK       @SA78437
00138C 4770 F03A            01394  2529+         BNZ   BADPARM .                           @SA78437
001390 47F0 F040            0139A  2530+         B     PARMSOK .                           @SA78437
001394                             2531+BADPARM  EQU   * @SA78437
001394 1851                        2532+         LR    RSPID,RIN1 . GET BAD PARM ADDRESS      @SA78437
001396 47F0 F106            01460  2533+         B     PARMERR . ERROR GET OUT             @SA78437
00139A                             2534+PARMSOK  EQU   * @SA78437
00139A 41D0 F106            01460  2535+         LA    RGMRET,PARMERR 21016
00139E 1851                        2536+         LR    RSPID,RIN1 SAVE INPUT REG
0013A0 5820 32C2            012C4  2537+         L     RVALBAS,VALIDCHK ADDRESS OF VALIDITY CHECK RTN.  TS0A
0013A4 5830 0010            00010  2538+         L     FREBAS,16(,0) .     PICK UP CVT ADDR               M0550
0013A8 45C2 0004            00004  2539+         BAL   RVALRET,4(RVALBAS) CHECK PARAMETER LIST ADDR
0013AC 5830 F12E            01488  2540+         L     FREBAS,SAVE3BAS .       RESTORE SEC BASE           M2752
0013B0 077D                        2541+         BCR   7,RGMRET .              RETURN                     M2752
                                   2542+*
0013B2 5815 0004            00004  2543+         L     RIN1,4(RSPID) CHECK AREA LIST STARTING ADDRESS
0013B6 45C0 F112            0146C  2544+         BAL   RVALRET,TSTALIN ALIGNMENT & IN MACHINE       @JK69031
                                   2545+*
0013BA 91C0 5008      00008        2546+         TM    8(RSPID),X'C0' IF REQUEST IS FOR A SINGLE AREA
0013BE 4780 F0DC            01436  2547+         BZ    IPVALRET RETURN
0013C2 4710 F0EE            01448  2548+         BO    FREEVAR VARIABLE REQUEST
                                   2549+*
0013C6 5815 0000            00000  2550+LENCHK   L     RIN1,0(RSPID) CHECK LENGTH LIST STARTING ADDRESS
0013CA 45C0 F112            0146C  2551+         BAL   RVALRET,TSTALIN ALIGNMENT & IN MACHINE       @JK69031
                                   2552+*
0013CE 98AB 5000            00000  2553+         LM    RLENGTH,RADDR,0(RSPID)
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0013D2 91C0 5008      00008        2554+         TM    8(RSPID),X'C0' IF REQUEST IS VARIABLE,
0013D6 4710 F090            013EA  2555+         BO    IPV1 CONTINUE
0013DA 9180 A000      00000        2556+         TM    0(RLENGTH),X'80' IF ENTRY IS NOT LAST ON LIST
0013DE 4780 F090            013EA  2557+         BZ    IPV1 CONTINUE
0013E2 4170 0004            00004  2558+         LA    RWORK2,4 LENGTH OF LIST
0013E6 47F0 F0C2            0141C  2559+         B     IPVLOVLP SINGLE ENTRY IN LIST REQUEST
0013EA 1B77                        2560+IPV1     SR    RWORK2,RWORK2

0013EC 4177 0004            00004  2562+IPV2     LA    RWORK2,4(RWORK2) INCREMENT COUNT OF ENTRIES
                                   2563+*
0013F0 4117 A000            00000  2564+         LA    RIN1,0(RWORK2,RLENGTH) CHECK LENGTH LIST ENTRY
0013F4 45C0 F118            01472  2565+         BAL   RVALRET,INMACH ADDR IN MACHINE             @JK69031
                                   2566+*
0013F8 4117 B000            00000  2567+         LA    RIN1,0(RWORK2,RADDR) CHECK AREA LIST ENTRY
0013FC                             2568+FREEVAR1 EQU   * M2752
0013FC 5830 0010            00010  2569+         L     FREBAS,16(0) PICK UP THE CVT ADDRESS              20021
001400 05C2                        2570+         BALR  RVALRET,RVALBAS 20021
001402 5830 F12E            01488  2571+         L     FREBAS,SAVE3BAS .       RESTORE SEC BASE           M2752
001406 077D                        2572+         BCR   7,RGMRET .              RETURN                     M2752
                                   2573+*
001408 91C0 5008      00008        2574+         TM    8(RSPID),X'C0' IF REQUEST IS VARIABLE, ALL ENTRIES
00140C 4710 F0DC            01436  2575+         BO    IPVALRET OMIT CHECK FOR OVERLAP FOR VARIABLE
                                   2576+*
001410 4117 A000            00000  2577+         LA    RIN1,0(RWORK2,RLENGTH)
001414 9180 1000      00000        2578+         TM    0(RIN1),X'80' IF ENTRY IS NOT LAST ON LIST
001418 4780 F092            013EC  2579+         BZ    IPV2 CHECK NEXT ENTRY

00141C 1BAB                        2581+IPVLOVLP SR    RLENGTH,RADDR GET NUMBER OF BYTES BETWEEN
00141E 47B0 F0CA            01424  2582+         BC    11,IPVL3 STARTING ADDRESSES OF LISTS
001422 13AA                        2583+         LCR   RLENGTH,RLENGTH
001424 1BA7                        2584+IPVL3    SR    RLENGTH,RWORK2 GREATER THAN LENGTH OF LIST
001426 47B0 F0DC            01436  2585+         BNM   IPVALRET 21016
00142A 18A5                        2586+         LR    RLENGTH,RSPID SET BAD PARM ADDR AS INPUT REG 21016
00142C 1B55                        2587+         SR    RSPID,RSPID 21016
00142E 9204 3312      01314        2588+         MVI   MSGLEN,X'04' LENGTH OF VARIABLE DATA        21016
001432 47F0 318A            0118C  2589+         B     GERROR5 NO - ERROR LISTS OVERLAP       21016
001436 1815                        2590+IPVALRET LR    RIN1,RSPID RESTORE PARAMETER REG
001438 98AB 1000            00000  2591+IPVLRET1 LM    RLENGTH,RADDR,0(RIN1) LOAD ADDRS OF LENGTH & AREA LST
00143C 1B55                        2592+         SR    RSPID,RSPID
00143E 4351 0009            00009  2593+         IC    RSPID,SPID(RIN1) LOAD SUBPOOL ID
001442 4250 32D6            012D8  2594+         STC   RSPID,SPIDSAV .      SAVE SPID                    A32912
001446 07F9                        2595+         BR    RCOMRET1 RETURN
001448 4199 0000            00000  2596+FREEVAR  LA    RCOMRET1,0(RCOMRET1) CLEAR HIGH ORDER BYTE
00144C 9505 3291      01293        2597+         CLI   SVCBYTE,5 IS IT VARIABLE FREEMAIN
001450 4770 F06C            013C6  2598+         BNE   LENCHK NO - CONTINUE
001454 58B5 0004            00004  2599+         L     RADDR,4(RSPID) YES
001458 411B 0004            00004  2600+         LA    RIN1,4(RADDR) VALIDITY CHECK SECOND ENTRY IN LIST
00145C 47F0 F0A2            013FC  2601+         B     FREEVAR1 AND RETURN
001460 18A5                        2602+PARMERR  LR    RLENGTH,RSPID SET BAD PARM ADDR AS INPUT REG  21016
001462 1B55                        2603+         SR    RSPID,RSPID 21016
001464 9224 3312      01314        2604+         MVI   MSGLEN,X'24' LENGTH AND REASON CODE            21016
001468 47F0 318C            0118E  2605+         B     GERROR6 21016
00146C 4410 F132            0148C  2606+TSTALIN  EX    RIN1,WDTEST ON FULL WORD BOUNDARY       @JK69031
001470 075D                        2607+         BCR   5,RGMRET NO                          @JK69031
001472 5830 0010            00010  2608+INMACH   L     FREBAS,16 GET CVT     M2752           @JK69031
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001476 4111 0000            00000  2609+         LA    RIN1,0(RIN1) @JK69031
00147A 5513 00A4            000A4  2610+         CL    RIN1,164(FREBAS) ADDR WITHIN MACHINE         @JK69031
00147E 5830 F12E            01488  2611+         L     FREBAS,SAVE3BAS RESTORE 2ND BASE  M2752     @JK69031
001482 072D                        2612+         BCR   2,RGMRET NO                          @JK69031
001484 07FC                        2613+         BR    RVALRET @JK69031
001486 0000
001488 00000000                    2614+SAVE3BAS DC    1F'0' 20021
00148C 9100 F136      01490        2615+WDTEST   TM    WORD,X'00' BOUNDARY ALIGNMENT          @JK69031
001490 03                          2616+WORD     DC    X'03' @JK69031
                                   2617+         DROP  IPVLBASE
000000                             2618+IEAQGM00 CSECT





                                   2620+*        VALIDITY CHECK FQE AND PREVIOUS FQE ADDRESSES
                                   2621+*        INPUT - RFQE - ADDRESS OF FQE
                                   2622+*                RPREFQE - ADDRESS OF PREVIOUS FQE
                                   2623+*        OUTPUT- NONE
                                   2624+*        REGISTERS USED -RERROR,RCOMRET2,RVALBAS,RVALRET,RIN1,RFQE,
                                   2625+*                        RPREFQE,RCVT,RTCB,
                                   2626+*
                                   2627+*
000FFC 5020 3326            01328  2628+CFQECHK  ST    RDQE,DQESAVE SAVE DQE ADDRESS ACROSS CFQECHK
001000 5812 0008            00008  2629+         L     RWORK4,DQEADDR(RDQE) PICK UP BLOCK ADDRESS
001004 5862 000C            0000C  2630+         L     RWORK6,DQELNTH(RDQE) PICK UP BLOCK SIZE
001008 1A61                        2631+         AR    RWORK6,RWORK4 COMPUTE UPPER BOUND OF DQE AREA
00100A 1277                        2632+         LTR   RFQE,RFQE IS Q ELEMENT ZERO
00100C 4780 3066            01068  2633+         BZ    FQEZERO YES - BYPASS FQETEST
001010 1971                        2634+         CR    RFQE,RWORK4 IS FQE WITHIN DQE BOUNDS
001012 4740 8BCA            00BCC  2635+         BL    BADFQE NO - FQE QUEUE DESTROYED       21016
001016 1976                        2636+         CR    RFQE,RWORK6
001018 47B0 8BCA            00BCC  2637+         BNL   BADFQE NO - FQE QUEUE DESTROYED       21016
00101C 9500 7004      00004        2638+         CLI   4(RFQE),X'00' .          HI-ORDER BYTE VALID   BC A45998
001020 4770 8BCA            00BCC  2639+         BNE   BADFQE .            NO- INVALID FQE (60A)      BL  M1723
001024 9107 7007      00007        2640+         TM    7(RFQE),X'07' .     BOUNDARY ALIGNMENT OK      BC A45998
001028 4770 8BCA            00BCC  2641+         BC    7,BADFQE .           NO- INVALID FQE (60A)     BL  M1723
00102C 9500 7000      00000        2642+         CLI   0(RFQE),X'00' .     HI ORDER BYTE VALID FOR NEXT
001030 4770 8BCA            00BCC  2643+         BNE   BADFQE .            NO- INVALID FQE
001034 9107 7003      00003        2644+         TM    3(RFQE),X'07' .     DOUBLEWORD ALIGNMENT FOR NEXT
001038 4770 8BCA            00BCC  2645+         BC    7,BADFQE .          NO- INVALID FQE
00103C 5070 317A            0117C  2646+         ST    RFQE,RFQESAVE .                                BC A45998
001040 5A77 0004            00004  2647+         A     RFQE,4(RFQE) .      IS FQE LENGTH              BC A45998
001044 1976                        2648+         CR    RFQE,RWORK6 .       WITHIN DQE BOUNDS          BC A45998
001046 4720 3080            01082  2649+         BH    FQEBAD .            NO LENGTH IS BAD
00104A 5870 317A            0117C  2650+         L     RFQE,RFQESAVE .     RESTORE FQE ADDRESS          SA57395
00104E 5877 0000            00000  2651+         L     RFQE,0(RFQE) .      GET NEXT FQE
001052 1277                        2652+         LTR   RFQE,RFQE .         IS NEXT ZERO
001054 4780 3062            01064  2653+         BZ    NFTHRCHK .          YES
001058 1971                        2654+         CR    RFQE,RWORK4 .       IS FQE WITHIN DQE BOUNDS
00105A 4740 3080            01082  2655+         BL    FQEBAD .            NO- INVALID FQE
00105E 1976                        2656+         CR    RFQE,RWORK6
001060 47B0 3080            01082  2657+         BNL   FQEBAD .            NO- INVALID FQE
001064 5870 317A            0117C  2658+NFTHRCHK L     RFQE,RFQESAVE .     RESTORE PREVIOUS POINTER
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2659+*
001068 59E0 3326            01328  2660+FQEZERO  C     RPREFQE,DQESAVE IS PREVIOUS QE A DQE
00106C 4780 307A            0107C  2661+         BE    CFQERETN YES, DO NOT CHECK PREVIOUS QE
001070 19E1                        2662+         CR    RPREFQE,RWORK4 IS PREVIOUS FQE WITHIN DQE BOUNDS
001072 4740 8BCA            00BCC  2663+         BL    BADFQE NO - FQE QUEUE DESTROYED       21016
001076 1976                        2664+         CR    RFQE,RWORK6
001078 47B0 8BCA            00BCC  2665+         BNL   BADFQE NO - FQE QUEUE DESTROYED       21016
00107C 5820 3326            01328  2666+CFQERETN L     RDQE,DQESAVE RESTORE DQE ADDRESS
001080 07FD                        2667+         BR    RCOMRET2 NO ERROR-RETURN
001082 5870 317A            0117C  2668+FQEBAD   L     RFQE,RFQESAVE .     RESTORE REAL FQE FOR
001086 47F0 8BCA            00BCC  2669+         B     BADFQE .            ABEND
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2671+*        RETURN FREE BLOCKS TO QUEUE OF FREE STORAGE FOR PARTITION
                                   2672+*        RETURN FREE PARTITIONS TO QUEUE OF UNASSIGNED STORAGE

                                   2674+*           INPUT - RBLOCK - BLOCK NUMBER OF FIRST BLOCK
                                   2675+*                   RSIZE  - NUMBER OF BLOCKS
                                   2676+*                   RPQE - ADDRESS OF PQE
                                   2677+*                   RCOMRET1 - RETURN REG
                                   2678+*           REGISTERS USED - RBLOCK,RSIZE,RCOMRET1,RCOMRET3,RFBQE,RPQE,
                                   2679+*                            RFBQEUB,RDISP1,RPRQE,RMASK1

00108A 50FE 0008            00008  2681+MRELEASE ST    RSIZE,FBQESIZE(RBLOCK) PUT SIZE IN NEW FBQE
00108E 41C0 0004            00004  2682+         LA    RDISP1,BCKPTR SET UP DISPLACEMENT FOR BACK QUEUE
001092 41A0 0020            00020  2683+         LA    RMASK1,X'20' SET MASK FOR BH
001096 1812                        2684+         LR    RPRQE,RPQE INITIALIZE RPRQE
001098 4570 30C4            010C6  2685+         BAL   RCOMRET3,MRELEAS1 TO ADJUST BACK POINTERS
00109C 1BCC                        2686+         SR    RDISP1,RDISP1 SET UP DISPLACEMENT FOR FORWARD Q
00109E 41A0 0040            00040  2687+         LA    RMASK1,X'40' SET MASK FOR BL
0010A2 1812                        2688+         LR    RPRQE,RPQE INITIALIZE RPRQE
0010A4 4570 30C4            010C6  2689+         BAL   RCOMRET3,MRELEAS1 TO ADJUST FORWARD POINTERS
0010A8 18CE                        2690+         LR    RBLOCK2,RBLOCK
0010AA 1921                        2691+         CR    RPQE,RPRQE IS PREVIOUS PTR POINTING TO PQE
0010AC 4780 30B2            010B4  2692+         BE    MRELADV YES - NEW BLOCK IS FIRST IN QUEUE
0010B0 4570 30E2            010E4  2693+         BAL   RCOMRET3,MRELCOMB TO COMBINE NEW BLOCK AND PREVIOUS
                                   2694+*                                   BLOCK IF POSSIBLE
0010B4 181E                        2695+MRELADV  LR    RPRQE,RBLOCK ADVANCE ALL BLOCK POINTERS
0010B6 18C6                        2696+         LR    RBLOCK2,RFBQE
0010B8 5866 0000            00000  2697+         L     RFBQE,FWDPTR(RFBQE)
0010BC 4570 30E2            010E4  2698+         BAL   RCOMRET3,MRELCOMB TO COMBINE NEW BLOCK AND NEXT BLOCK
                                   2699+*                                   IF POSSIBLE
0010C0 07F9                        2700+         BR    RCOMRET1 RETURN
0010C2 07F9                        2701+         BR    RCOMRET1 RETURN

                                   2703+*        THIS CODE ELIMINATES FORWARD OR BACK POINTER FROM QUEUE
                                   2704+*        ACCORDING TO SETTING OF RDISP1 AND RMASK

0010C4 1816                        2706+MRELEAS2 LR    RPRQE,RFBQE ADVANCE PTR TO PREVIOUS BLOCK
0010C6 5861 C000            00000  2707+MRELEAS1 L     RFBQE,0(RPRQE,RDISP1) ADVANCE PTR TO FOLLOWING BLOCK
0010CA 1962                        2708+         CR    RFBQE,RPQE DOES NEW BLOCK BELONG ON END OF Q
0010CC 4780 30D8            010DA  2709+         BE    MRELENDQ YES
0010D0 196E                        2710+         CR    RFBQE,RBLOCK IS THIS BLOCK WHICH FOLLOWS NEW BLK
0010D2 44A0 30D4            010D6  2711+         EX    RMASK1,MRELBR NO - ADVANCE PTRS
0010D6 4700 30C2            010C4  2712+MRELBR   BC    0,MRELEAS2 NO - ADVANCE PTRS
0010DA 506E C000            00000  2713+MRELENDQ ST    RFBQE,0(RBLOCK,RDISP1) POINT NEW BLOCK TO FOLLOWING BLK
0010DE 50E1 C000            00000  2714+         ST    RBLOCK,0(RPRQE,RDISP1) POINT PREVIOUS BLOCK TO NEW BLOCK
0010E2 07F7                        2715+         BR    RCOMRET3 RETURN TO MRELEASE MAINLINE

                                   2717+*        THIS CODE CHECKS WHETHER TWO ADJACENT FREE AREAS ARE
                                   2718+*        CONTIGUOUS AND IF SO, COMBINES THEM AND ELIMINATES THE SECOND
                                   2719+*        FBQE FROM THE QUEUE

0010E4 58A1 0008            00008  2721+MRELCOMB L     RSIZE3,FBQESIZE(RPRQE) COMPUTE UPPER BOUND OF PREVIOUS
0010E8 1801                        2722+         LR    RFBQEUB,RPRQE BLOCK
0010EA 1A0A                        2723+         AR    RFBQEUB,RSIZE3
0010EC 190C                        2724+         CR    RFBQEUB,RBLOCK2 ARE BLOCKS ADJACENT
0010EE 0777                        2725+         BCR   7,RCOMRET3 NO - RETURN TO MRELEASE MAINLINE
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0010F0 5AAC 0008            00008  2726+         A     RSIZE3,FBQESIZE(RBLOCK2) COMPUTE COMBINED SIZE OF BLOCKS
0010F4 50A1 0008            00008  2727+         ST    RSIZE3,FBQESIZE(RPRQE) PUT SIZE IN COMBINED FBQE
0010F8 5061 0000            00000  2728+         ST    RFBQE,FWDPTR(RPRQE) PUT PTR TO NEXT FBQE IN COMBINED QE
0010FC 5016 0004            00004  2729+         ST    RPRQE,BCKPTR(RFBQE) PUT BACK PTR TO NEW BLK IN NEXT BLK
001100 47F7 0002            00002  2730+         B     2(RCOMRET3) RETURN TO MRELEASE MAINLINE
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001104                             2732+PART     EQU   * 20021
                                   2733+*        A GETPART OR FREEPART FOR A TIME-SHARING TASK IS         20021
                                   2734+*        INVALID.                                                 20021
001104 9180 4094      00094        2735+         TM    TCBTSFLG(RTCB),TCBTSTSK TIME-SHARING TASK?        20021
001108 4780 310E            01110  2736+         BZ    NOTSPART NO. CONTINUE                    20021
00110C 1BFF                        2737+         SR    RIN15,RIN15 CLEAR RETURN REGISTER.          20021
00110E 07FE                        2738+         BR    RRETURN RETURN TO CALLER.               20021
001110                             2739+NOTSPART EQU   * 20021
001110 58B0 32F2            012F4  2740+         L     RBASE1,PARTADDR
001114 07FB                        2741+         BR    RBASE1 BRANCH TO GET-FREE PARTITION MODULE
                                   2742+***********************************************************************
                                   2743+*                        JOB PACK PURGE ROUTINE                       *
                                   2744+***********************************************************************

                                   2746+*           INPUT - NONE
                                   2747+*           OUTPUT - NONE


001116 900F 88AA            008AC  2749+CDPURGE  STM   0,15,SAVEAREA SAVE REGISTERS
00111A 1B66                        2750+         SR    RSWITCH,RSWITCH INITIALIZE SWITCH
00111C 5844 007C            0007C  2751+         L     RTCB,TCBJSTCB(RTCB) PICK UP ADDRESS OF JOB STEP TCB
001120 9180 402C      0002C        2752+         TM    TCBJPQ(RTCB),X'80' IS PURGE FLAG IN TCB SET
001124 4780 316E            01170  2753+         BC    8,CDRETURN NO - RETURN
001128 9200 402C      0002C        2754+         MVI   TCBJPQ(RTCB),X'00' CLEAR PURGE FLAG
00112C 5854 002C            0002C  2755+         L     RCDE,TCBJPQ(RTCB) GET ADDRESS OF CDE PTR
001130 4155 0000            00000  2756+CDNEXT   LA    RCDE,0(RCDE) CLEAR HIGH ORDER BYTE
001134 12B5                        2757+         LTR   RCDEIN,RCDE ANY MORE ENTRIES
001136 4780 316E            01170  2758+         BC    8,CDRETURN NO - RETURN - PURGE COMPLETE
00113A 5855 0000            00000  2759+CDNEXT1  L     RCDE,0(RCDE) LOAD ADDR OF CD ENTRY
00113E 4155 0000            00000  2760+         LA    RCDE,0(RCDE)
001142 1255                        2761+         LTR   RCDE,RCDE ANY MORE ENTRIES
001144 4780 314E            01150  2762+         BZ    CDREL NO
001148 9104 5000      00000        2763+         TM    CDATTR(RCDE),MIN IS IT MINOR
00114C 4710 3138            0113A  2764+         BO    CDNEXT1 YES
001150 9140 B014      00014        2765+CDREL    TM    CDATTR2(RCDEIN),REL CAN LOAD MODULE BE RELEASED
001154 4780 312E            01130  2766+         BZ    CDNEXT NO - CHECK NEXT ENTRY
001158 5820 32EA            012EC  2767+         L     REXBAS,XCDEXBAS SET UP BASE ADDRESS FOR CDDESTRY
00115C 58C0 32EE            012F0  2768+         L     RRET1,XCDDSTRY SET UP ENTRY POINT TO CDDESTRY
001160 4160 0004            00004  2769+         LA    RSWITCH,4 INDICATE STORAGE FREED
001164 05CC                        2770+         BALR  RRET1,RRET1 TO CDDESTRY
001166 0580                        2771+         BALR  RBASE,0
001168                             2772+         USING *,RBASE
001168 5880 8018            01180  2773+         L     RBASE,MSSADR2 21016
000002                             2774+         USING MSSBASE,RBASE
00116C 47F0 312E            01130  2775+         B     CDNEXT CHECK NEXT ENTRY
001170 1266                        2776+CDRETURN LTR   RSWITCH,RSWITCH
001172 980F 88AA            008AC  2777+         LM    0,15,SAVEAREA
001176 478D 0004            00004  2778+         BZ    4(RRET) IF NO STORAGE HAS BEEN FREED
00117A 07FD                        2779+         BR    RRET IF STORAGE HAS BEEN FREED
00117C 00000000                    2780+RFQESAVE DC    F'0' .                                         BC A45998
001180 00000002                    2781+MSSADR2  DC    A(MSSBASE) 21016
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2783+*        ERROR EXITS - TERMINATE REQUESTING TASK
                                   2784+*
001184 0660                        2785+GERROR1  BCTR  RERROR,0 -          TASK OUT OF LSQS               20021
001186 0660                        2786+NOTUSED  BCTR  RERROR,0 -                                         20021
001188 0660                        2787+GERROR3  BCTR  RERROR,0 STORAGE NOT IN SPECIFIED SUBPOOL
00118A 0660                        2788+GERROR4  BCTR  RERROR,0 PP ATTEMPTING TO FREE ALL OF SP 0
00118C 0660                        2789+GERROR5  BCTR  RERROR,0 LENGTH LIST AND ADDRESS LIST HAVE
                                   2790+*                                   COMMON LOCATIONS
00118E 0660                        2791+GERROR6  BCTR  RERROR,0 PARAMETER LIST OR FQE NOT IN PP AREA
                                   2792+*                                 OR INPUT LIST ADDRS NOT ON WORD BNDRY
001190 0660                        2793+         BCTR  RERROR,0
001192 0660                        2794+GERROR8  BCTR  RERROR,0 CORE UNAVAILABLE - UNCONDITIONAL
                                   2795+*                                   REQUEST
001194 0660                        2796+GERROR9  BCTR  RERROR,0 ADDR TO FREE NOT A MULTIPLE OF 8
001196 0660                        2797+GERROR10 BCTR  RERROR,0 AREA BEING FREED OVERLAPS A FREEAREA
001198 0660                        2798+GERROR11 BCTR  RERROR,0 PROB. PROG. REQUESTS SP 128-255 LC0A
00119A 0660                        2799+GERROR12 BCTR  RERROR,0 GENERAL LCS GM ERROR CODE       LC0A
00119C 1816                        2800+GERROR13 LR    RIN1,RERROR TCBAQE FIELD IS ZERO            8098
                                   2801+*                                  INDICATES A REQUEST TO FREE SQS 8098
                                   2802+*                                  NOT OWNED BY REQUESTING TASK    8098
0011A0                             2803+H8       EQU   *+2
00119E 8910 0008            00008  2804+         SLL   RIN1,8
0011A2 4310 3291            01293  2805+         IC    RIN1,SVCBYTE
0011A6                             2806+ERRF11   DS    0H 21016
0011A6 58E0 32B6            012B8  2807+         L     RRETURN,SVCXT .    SET UP RETURN TO SVCXT          21016
0011AA 58D0 32BE            012C0  2808+         L     RABTERM,ABTERM 21016
0011AE 5890 0010            00010  2809+         L     RWORK3,16(0) GET CVT ADDR              21016
0011B2 5849 0000            00000  2810+         L     RTCB,0(RWORK3) GET OLD NEW               21016
0011B6 5844 0004            00004  2811+         L     RTCB,4(RTCB) ABTERM CURRENT TASK            21016
                                   2812+*
0011BA 5910 333A            0133C  2813+         C     RIN1,WAIT+4 E04 ABEND                  21016
0011BE 4780 3276            01278  2814+         BE    ERRMSGX YES, DO NOT BUILD INFO LIST            21016
0011C2 58F9 00C8            000C8  2815+         L     RIN15,CVTABEND(RWORK3) ADDR OF SECONDARY CVT(SCVT) 21016
0011C6 9180 F098      00098        2816+         TM    SCVTFMSA(RIN15),SCVTSW1 CONDITIONAL FREEMAIN ?    21016
0011CA 4710 3276            01278  2817+         BO    ERRMSGX YES. BYPASS.                   21016
0011CE 58F9 010C            0010C  2818+         L     RIN15,CVTQMSG(RWORK3) ADDR OF INFOLIST             21016
0011D2 589F 0000            00000  2819+         L     RWORK3,0(RIN15) ADDR END OF LIST             21016
0011D6 41FF 0004            00004  2820+         LA    RIN15,4(RIN15) ADDR OF 1ST ENTRY            21016
0011DA 1B77                        2821+         SR    RWORK2,RWORK2 ZERO REG FOR COMPARE         21016
000000                             2822+         USING INFOLIST,RIN15 21016
0011DC 19F9                        2823+ERRMSG1  CR    RIN15,RWORK3 ANY MORE ENTRIES TO SEARCH?     21016
0011DE 4780 3276            01278  2824+         BE    ERRMSGX NO. BYPASS SETTING INFO         21016
0011E2 5970 F004            00004  2825+         C     RWORK2,INFTCB THIS ENTRY AVAILABLE?           21016
0011E6 4780 31F0            011F2  2826+         BE    ERRMSG2 YES. SET UP ENTRIES.            21016
0011EA 41FF 0020            00020  2827+         LA    RIN15,INFLEN(RIN15) NEXT ENTRY.                    21016
0011EE 47F0 31DA            011DC  2828+         B     ERRMSG1 CHECK NEXT.                     21016
                                   2829+*                                                                 21016
0011F2 5040 F004            00004  2830+ERRMSG2  ST    RTCB,INFTCB STORE TCB ADDRRESS              21016
0011F6 9180 4094      00094        2831+         TM    TCBTSFLG(RTCB),TCBTSTSK IS THIS TSO TASK?        A49808
0011FA 4780 320A            0120C  2832+         BZ    ERRM2 NO,BYPASS USER ID              A49808
0011FE 5894 00B4            000B4  2833+         L     RWORK3,TCBJSCB(RTCB) GET ADDR JSCB                A49808
001202 4199 0000            00000  2834+         LA    RWORK3,0(RWORK3) CLEAR HIGH BYTE                  A49808
001206 D201 F002 910C 00002 0010C  2835+         MVC   INFTJID(2),JSCBTJID(RWORK3) PUT USERID IN INFOLISTA49808
00120C 91FF 3282      01284        2836+ERRM2    TM    BESW,X'FF' IS THIS BRANCH ENTRY ?              A49808
001210 4780 321C            0121E  2837+         BZ    SVCENTR MOVE VARIABLE DATA SWITCH            21016
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001214 9680 F00D      0000D        2838+         OI    INFFLG,INFFLG0 SET BRANCH ENTRY SW          21016
001218 D203 F008 330E 00008 01310  2839+         MVC   INFBADDR(4),BRNREG STORE RETURN ADDRESS      21016
00121E 4010 F00E            0000E  2840+SVCENTR  STH   RIN1,INFCC STORE ABEND CODE                21016
001222 1255                        2841+         LTR   RSPID,RSPID IS THIS SUBPOOL 253 OR 254 ?    21016
001224 47A0 324C            0124E  2842+         BC    NN,ERRMSG2A NO. CONTINUE                    21016
001228 1355                        2843+         LCR   RSPID,RSPID YES. SUBPOOL WAS COMPLIMENTED.  21016
00122A 4BA0 319E            011A0  2844+         SH    RLENGTH,H8 - LENGTH INCLUDES 8 BYTE AQE    21016
00122E 4AB0 319E            011A0  2845+         AH    RADDR,H8 - RADDR WAS ADDR OF AQE.        21016
001232 4910 3314            01316  2846+         CH    RIN1,H60A CC '60A' OR '80A'?              21016
001236 4740 324C            0124E  2847+         BL    ERRMSG2A NO.                             21016
00123A 4910 3316            01318  2848+         CH    RIN1,H80A CC '60A' OR '80A'?              21016
00123E 4720 324C            0124E  2849+         BH    ERRMSG2A NO.                             21016
001242 5890 3306            01308  2850+         L     RWORK3,ABNDATA YES.                            21016
001246 4A90 319E            011A0  2851+         AH    RWORK3,H8 ADDR OF AREA MUST BE INCRE-     21016
00124A 5090 3306            01308  2852+         ST    RWORK3,ABNDATA MENTED BY LENGTH OF AQE.      21016
00124E                             2853+ERRMSG2A EQU   * 21016
00124E 50A0 F010            00010  2854+         ST    RLENGTH,INFVAR1 ROUNDED LENGTH                  21016
001252 4250 F010            00010  2855+         STC   RSPID,INFVAR1 STORE SUBPOOL                   21016
001256 9108 3313      01315        2856+         TM    FREESW,X'08' IS THIS A FREEMAIN          21016
00125A 4710 3266            01268  2857+         BO    FREE 21016
00125E D207 F014 3306 00014 01308  2858+         MVC   INFVAR2(8),ABNDATA VARIABLE DATA             21016
001264 47F0 3270            01272  2859+         B     ERRMSG3 21016
001268 D207 F018 3306 00018 01308  2860+FREE     MVC   INFVAR3(8),ABNDATA 21016
00126E 50B0 F014            00014  2861+         ST    RADDR,INFVAR2 21016
001272 D200 F00C 3312 0000C 01314  2862+ERRMSG3  MVC   INFRCL(1),MSGLEN SET REASON CODE AND LENGTH      21016
001278 D70D 3306 3306 01308 01308  2863+ERRMSGX  XC    ABNDATA(ABNDATAL),ABNDATA CLEAR LIST AND SW      21016
00127E 5830 0010            00010  2864+         L     CVTREG,16(0) 21016
001282 07FD                        2865+         BR    RABTERM 21016
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001284 00                          2867+BESW     DC    X'00' 21016
001285 000000
001288 00000000                    2868+ORGLRG   DC    F'0' LARGEST FREECORE IN OWNED REGION21016
                                   2869+**************TS DATA**********                                   20021
000000                             2870+TCBRBP   EQU   0 -                 RB ADDRS IN TCB                20021
00001D                             2871+TCBFLG1  EQU   29 -                TCB FLAGS BYTE 1               20021
00001E                             2872+TCBFLG2  EQU   30 -                STATUS FLAGS IN TCB            20021
00001F                             2873+TCBFLG3  EQU   31 -                TCB FLAGS BYTE 3               20021
000094                             2874+TCBTSFLG EQU   148 -               TCB TIME-SHARING FLAGS         20021
0000A0                             2875+TCBSTAE  EQU   160 -               TCB STAE FLAGS                 20021
000080                             2876+TCBFA    EQU   X'80' -             ABEND IN PROGRESS BIT          20021
000018                             2877+TCBMC    EQU   X'18' -             SET COMPLETE BITS              20021
000020                             2878+TCBABTRM EQU   X'20' -             TASK ABTERM BIT                20021
000080                             2879+TCBTSTSK EQU   X'80' -             TIME SHARING TASK BIT          20021
000080                             2880+TCBSTABE EQU   X'80' -             STAE EXIT BIT                  20021
0000FF                             2881+LSQSMSK  EQU   X'FF' -             MASK FOR TESTING LSQS SWITCH   20021
000000                             2882+LSQSOFF  EQU   X'00' -             MASK FOR RESETTING LSQS SWTCH  20021
00128C 00                          2883+LSQSSW   DC    X'00' -             LSQS SWITCH                    20021
00128D C1C2C5D5C4                  2884+ABENDMSK DC    C'ABEND' .           MASK TO TEST FOR ABEND SVRB   M3872
000060                             2885+RBEXSAVE EQU   X'60' .            BEGIN OF EXSAVE AREA           M3872
000028                             2886+DISP     EQU   X'28' .             DISP INTO EXT SAVE -ABEND SVRB-M3872
000005                             2887+L5       EQU   5 .                 LENGTH OF FIVE                 M3872
000004                             2888+RBABOPSW EQU   4 -                 NAME FIELD IN SVRB             20021
00000A                             2889+RBSTAB   EQU   10 -                STATUS FLAGS IN RB             20021
0000B4                             2890+TCBJSCB  EQU   X'B4' DISPLACEMT OF JSCB IN TCB                 A49808
00010C                             2891+JSCBTJID EQU   X'10C' DISPLACEMT OF USERID IN JSCB              A49808
                                   2892+*******************************                                   20021
001292 00                          2893+MODEBYTE DC    X'00' KEY INDICATION
001293 00                          2894+SVCBYTE  DC    X'00' SVC INDICATION
                                   2895+*******************************************************************LC0A
                                   2896+*                                 GOVRFLB                         *LC0A
                                   2897+*******************************************************************LC0A
001298                             2898+         DS    0D M2279
001298                             2899+GOVRFLB  DS    0CL28 A36186
001298 00000000                    2900+SQSBOUND DC    F'0' UPPER BOUND OF SQS              LC0A
00129C 00000000                    2901+DQESQES  DC    F'0' ADDR. OF DQE DESCRIBING SQS     LC0A
0012A0 00000000                    2902+PQEPTR   DC    F'0' PQE ADDR. DESCRIBING DYN. CORE  LC0A
0012A4 00000000                    2903+SZDPRS   DC    F'0' SIZE OF DYNAMIC PROC. STORAGE   LC0A
0012A8 00000000                    2904+SZDLCS   DC    F'0' SIZE OF DYNAMIC LCS STORAGE     LC0A
0012AC 00000000                    2905+VQEPTR   DC    F'0' VARY QUEUE ELEM. LIST ORIG. PTR MP65
0012B0 00000000                    2906+NIPSQSBD DC    F'0' SQS BOUNDARY FOR NIP & RORI   A36186
                                   2907+*******************************************************************LC0A
0012B4 00000000                    2908+RECURSE  DC    F'0'
0012B8 00000000                    2909+SVCXT    DC    A(IEA0XE00)
0012BC 00000000                    2910+MSCEDADD DC    A(IEAMSTCB)
0012C0 00000000                    2911+ABTERM   DC    A(IEA0AB01)
0012C4 00000000                    2912+VALIDCHK DC    V(IEA0VL01) TS0A
0012C8 00F6                        2913+C246     DC    H'246'
0012CA 00F8                        2914+C248     DC    H'248'
0012CC 000000FC                    2915+C252     DC    A(252)
0012D0 000000FE                    2916+C254     DC    A(254) 20021
0012D4 000000FF                    2917+C255     DC    A(255)
0012D8 00                          2918+SPIDSAV  DC    X'00' .             SAVE AREA FOR SUBPOLL ID      A32912
0012D9 00
0012DA 0000                        2919+@SPSAVE  DC    H'0' SUBPOOL ID SAVE AREA        @AS76397
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0012DC 0800                        2920+KTWO     DC    H'2048' .                                         A31213
0012DE 0000
0012E0 00000FF0                    2921+K4080    DC    F'4080' .                                         A31213
0012E4 00000000                    2922+FBQESIZ  DC    F'0' .              SAVE AREA FOR LARGEST FBQE    A31213
0012E8 00000000                    2923+FQESIZ   DC    F'0' .              SAVE AREA FOR LARGEST FQE     A31213
0012EC 00000002                    2924+XCDEXBAS DC    A(CDHKEEP+2)
0012F0 00000000                    2925+XCDDSTRY DC    A(CDDESTRY)
0012F4 00000000                    2926+PARTADDR DC    V(IEAQPRT0)
0012F8 00001358                    2927+IPVAL    DC    A(IEAQVLCH)
0012FC 00001498                    2928+GMSMFAD  DC    A(GMSMFCRE) ADDRESS OF GM CORE PROCESSOR SMF
                                   2929+         ENTRY SMFTCBSV SMF
001300 00000000                    2930+SMFTCBSV DC    F'0' TCB POINTER SAVE AREA        SMF
001304 00000000                    2931+SMFPQESV DC    F'0' PQE POINTER SAVE AREA        SMF
001308 0000000000000000            2932+ABNDATA  DC    2F'0' 21016
001310 00000000                    2933+BRNREG   DC    F'0' 21016
001314 00                          2934+MSGLEN   DC    X'00' 21016
001315 00                          2935+FREESW   DC    X'00' 21016
00000E                             2936+ABNDATAL EQU   (*-ABNDATA) 21016
001316 060A                        2937+H60A     DC    X'060A' 21016
001318 080A                        2938+H80A     DC    X'080A' 21016
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00131C                             2940+PREVDQSV DS    F
001320                             2941+AREAUBSV DS    F
001324                             2942+PREVQESV DS    F
001328                             2943+DQESAVE  DS    F
00132C                             2944+FQESAVE  DS    F
001330                             2945+RREGSAVE DS    F 20021


00001D                             2947+TCBFRA   EQU   29 DISPATCHABILITY BIT
000010                             2948+CVTPTR   EQU   16 21014
000000                             2949+CVTTCB   EQU   0
00001C                             2950+LSTREG   EQU   28 ******
000104                             2951+CVTPURG  EQU   260 CVT PTR TO SUBSYSTEM PURGE ROUTINE        21014
001298                             2952+SQESPQE  EQU   GOVRFLB
00000D                             2953+GERRCODE EQU   X'0D' BASIC ERROR CODE                8098


                                   2955+*        WAIT STATE PSW - DIASTER CONDITION                       20021
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001338                             2957+         DS    0D 20021
001338 00020000                    2958+WAIT     DC    X'00020000' WAIT STATE PSW              @SA78255
00133C 00000E04                    2959+         DC    X'00000E04' 20021
001340                             2960+REQSIZE  DS    1F SAVE AREA FOR SIZE OF SQS      20021
                                   2961+*                                  REQUEST                        20021
001344 00000002                    2962+ADPART   DC    A(IEAQPRT0+2) BASE ADDRESS OD GETPART        20021
001348 00000000                    2963+ADDISP   DC    A(DISPINIT) ARRR OF RTN WITHIN GETPART     20021
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00134C                             2965+         DS    0F 20021
00134C 00000000                    2966+SAVSIX1  DC    1F'0' 20021
001350 00000000                    2967+SAVSIX2  DC    1F'0' 20021
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2969+********************************************************************SMF
                                   2970+*                                                                   SMF
                                   2971+**************  SMF GETMAIN ROUTINE                           CH A45474
                                   2972+*                                                                   SMF
                                   2973+********************************************************************SMF


                                   2975+*          INPUT - INITIALIZED CORE USED FIELDS IN TCT.             SMF
                                   2976+*                  FIELDS ARE INITIALIZED BY SCHEDULAR.             SMF
                                   2977+*                  REGS:RWPQE=PQE ADDR,RBLOCK=ADDR ALLOC CORE,CH A45474
                                   2978+*                  RSIZE=NUMBER BYTES ALLOCATED.              CH A45474
                                   2979+*                                                                   SMF
                                   2980+*          OUTPUT - MODIFIED CORE USED FIELDS IN TCT.               SMF
                                   2981+*                                                             CH A45474
                                   2982+*        FUNCTION-                                            CH A45474
                                   2983+*                                                             CH A45474
                                   2984+*        DETERMINE IF THERE IS A TCT ASSOCIATED WITH THIS REQUEST.  SMF
                                   2985+*        DETERMINE IF MAIN OR LCS CORE.                             SMF
                                   2986+*        DETERMINE WHEATHER REGION CORE OR BORROWED CORE.           SMF
                                   2987+*              UPDATE WATER MARKS IF NECESSARY.               CH A45474
                                   2988+*              HWM=LOWEST ADDR FROM HIGH END OF REGION.       CH A45474
                                   2989+*              LWM=HIGHEST ADDR FROM LOW END OF REGION.       CH A45474
                                   2990+*              HWM AND LWM MAY OVERLAP                        CH A45474
                                   2991+*              TCTMINC= LARGEST FBQE (IN 2K BLOCKS)NOT USED   CH A45474
                                   2992+*              BY JOB.                                        CH A45474

001498                             2994+IEASMFGF CSECT  SMF
                                   2995+         ENTRY GMSMFCRE SMF
001498 0520                        2996+GMSMFCRE BALR  GMSMFB,0 SMF
00149A                             2997+         USING *,GMSMFB SMF
00149A 90AC 2092            0152C  2998+         STM   10,12,GFSMFSVE SAVE WORK REGISTERS          SMF
00149E 9180 40A4      000A4        2999+         TM    TCBTCT(RTCB),TCBTCTGF . SHOULD TCT BE UPDATED  BC A32900
0014A2 4780 2086            01520  3000+         BZ    RCEXIT .            BRANCH IF NO               BC A32900
0014A6 58A4 00A4            000A4  3001+         L     RTCT,TCBTCT(RTCB) GET TCT POINTER              SMF
0014AA 41AA 0000            00000  3002+         LA    RTCT,0(RTCT) SMF
0014AE 12AA                        3003+         LTR   RTCT,RTCT IS THERE A TCT               SMF
0014B0 4780 2086            01520  3004+         BZ    RCEXIT BRANCH IF NO                 SMF
0014B4 58AA 0008            00008  3005+         L     RCORE,TCTCRTBL(RTCT) INITIALIZE TCT CORE AREA PTR  SMF
0014B8 41BF E000            00000  3006+NOSHRE   LA    RCWRK,0(RSIZE,RBLOCK) .  GET END OF ALLOC AREA CH A45474
0014BC 59EA 0000            00000  3007+         C     RBLOCK,TCTLWM(RCORE) .  IS BEGIN GT LWM       BC A45474
0014C0 4720 203A            014D4  3008+         BH    GMTSTHWM .               YES , TRY HWM UPDATE  BC A47474
0014C4 59BA 0000            00000  3009+         C     RCWRK,TCTLWM(RCORE) .    IS END GT LWM         BC A45474
0014C8 47D0 203A            014D4  3010+         BNH   GMTSTHWM .               NO , TRY HWM          BC A45474
0014CC 50BA 0000            00000  3011+         ST    RCWRK,TCTLWM(RCORE) .  STORE NEW LWM         CH A45474
0014D0 47F0 204E            014E8  3012+         B     GMCKFBQ GO CK MIN DIFF        CH A45474
0014D4 59BA 0004            00004  3013+GMTSTHWM C     RCWRK,TCTHWM(RCORE) IS END LT HWM         BC A45474
0014D8 4740 204E            014E8  3014+         BL    GMCKFBQ .                YES , NO HWM CHANGE   BC A45474
0014DC 59EA 0004            00004  3015+         C     RBLOCK,TCTHWM(RCORE) .   IS BEGIN LT HWM       BC A45474
0014E0 47B0 204E            014E8  3016+         BNL   GMCKFBQ .                NO , GO CK MIN DIFF   BC A45474
0014E4 50EA 0004            00004  3017+         ST    RBLOCK,TCTHWM(RCORE) .  STORE NEW HWM         CH A45474
                                   3018+* SEARCH FOR LARGEST FBQE .IF LARGEST FBQE IS GRTR THAN THE   CH A45474
                                   3019+* MINIMUM DIFFERENCE, MAKE IT NEW TCTMINC.                    CH A45474
0014E8 1BBB                        3020+GMCKFBQ  SR    RCWRK,RCWRK .  INIT LARGEST SIZE=0   CH A45474
0014EA 49BA 0008            00008  3021+         CH    RCWRK,TCTMINC(RCORE) .  IS TCTMINC=0          CH A45474
0014EE 4780 2086            01520  3022+         BE    RCEXIT YES, BYPASS FBQE SRCH CH A45474
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0014F2 58C6 0000            00000  3023+         L     RCFBQREG,FWDPTR(RWPQE) . GET LOWEST FBQE       CH A45474
0014F6 15C6                        3024+GMLSTFBQ CLR   RCFBQREG,RWPQE IS THIS END OF CHAIN  CH A45474
0014F8 4780 2076            01510  3025+         BE    GMCKMIN YES, GO CK IF NEW MIN CH A45474
0014FC 59BC 0008            00008  3026+         C     RCWRK,FBQESIZE(RCFBQREG) IS THIS LARGEST FBQE  CH A45474
001500 47B0 206E            01508  3027+         BNL   GMNXTFBQ NO                    CH A45474
001504 58BC 0008            00008  3028+         L     RCWRK,FBQESIZE(RCFBQREG) SAVE LARGEST FBQE     CH A45474
001508 58CC 0000            00000  3029+GMNXTFBQ L     RCFBQREG,FWDPTR(RCFBQREG) GET NEXT HIGHER FBQE CH A45474
00150C 47F0 205C            014F6  3030+         B     GMLSTFBQ GO CHECK FOR END CHAINCH A45474
001510 88B0 000B            0000B  3031+GMCKMIN  SRL   RCWRK,DIV2048 CONVERT TO 2K BLOCKS  CH A45474
001514 49BA 0008            00008  3032+         CH    RCWRK,TCTMINC(RCORE) IS THIS A NEW MIN DIFFCH A45474
001518 47B0 2086            01520  3033+         BNL   RCEXIT NO                    CH A45474
00151C 40BA 0008            00008  3034+         STH   RCWRK,TCTMINC(RCORE) STORE NEW TCTMINC     CH A45474
001520 98AC 2092            0152C  3035+RCEXIT   LM    10,12,GFSMFSVE RESTORE WORK REGS     CH A45474
001524 07F7                        3036+         BR    GMSMFRT RETURN                CH A45474
                                   3037+         DROP  GMSMFB CH A45474


001526 18BF                        3039+         LR    RCWRK1,RSIZE .                                    A57388
001528 1FBB                        3040+         SLR   RCWRK1,DIV2048 .                                  A57388
00000C                             3041+RCFBQREG EQU   12 ADDR FBQE              BC A45474

00152A FC                          3043+SMF252   DC    X'FC' .                                           A32912
00152B 00
00152C 0000000000000000            3044+GFSMFSVE DC    3F'0' SMF CORE ROUTINES SAVE AREA  SMF
001538 00000000                    3045+SMFFQESV DC    F'0' FQE POINTER SAVE AREA        SMF
00153C 00001300                    3046+ASMFTCB  DC    A(SMFTCBSV) ADDRESS OF TCB PTR SAVE      SMF
001540 00000000                    3047+ADSPSAV  DC    V(SPIDSAV) .        ADDR OF SPIDSAV IN QGM       A32912



000001                             3050+FMSMFRT  EQU   1 RETURN REGISTER              SMF
000080                             3051+TCBTCTGF EQU   X'80' .                                        BC A32900
000002                             3052+GMSMFB   EQU   2 BASE REGISTER                SMF
000002                             3053+RWPQE1   EQU   2 DEALLOCATION PQE POINTER     SMF
000004                             3054+RCWRK2   EQU   4 .                                            BC A32900
000006                             3055+FMSMFB   EQU   6 BASE REGISTER                SMF
000006                             3056+RWPQE    EQU   6 ALLOCATION PQE POINTER       SMF
000007                             3057+GMSMFRT  EQU   7 RETURN REGISTER TO GETMAIN                       20021
00000A                             3058+RTCT     EQU   10 TCT POINTER                  SMF
00000A                             3059+RTCT1    EQU   10 TCT POINTER                  SMF
00000A                             3060+RCORE    EQU   10 CORE AREA POINTER            SMF
00000A                             3061+RCORE1   EQU   10 CORE AREA POINTER            SMF
00000B                             3062+RCWRK    EQU   11 WORK REGISTER                SMF
00000B                             3063+RCWRK1   EQU   11 WORK REGISTER                SMF
00000C                             3064+RCWRKA   EQU   12 WORK REGISTER                SMF

0000A4                             3066+TCBTCT   EQU   164 TCT POINTER                SMF
000010                             3067+TCTCSZE  EQU   16 SIZE OF CORE AREA OF TCT     SMF
000008                             3068+TCTCRTBL EQU   8 ADDR OF TCT CORE TABLE        SMF
000000                             3069+TCTLWM   EQU   0 LOW WATER MARK OF CORE USED  SMF
000004                             3070+TCTHWM   EQU   4 HI WATER MARK OF USED CORE   SMF
000008                             3071+TCTMINC  EQU   8 MINIMUM DIFF BETWEEN LWM/HWM SMF
00000C                             3072+TCTRBC   EQU   12 CURRENT BORROWED CORE        SMF
00000E                             3073+TCTMBC   EQU   14 MAXIMUM BORROWED CORE        SMF
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000800                             3075+TWOK     EQU   2048
000003                             3076+MULT8    EQU   3
00000B                             3077+MULT2048 EQU   11 SHIFT TO MULTIPLY BY 2048
00000B                             3078+DIV2048  EQU   11 SHIFT TO DIVIDE BY 2048

                                   3080+*        CONDITION CODES

000007                             3082+NZ       EQU   7 NOT ZERO
00000A                             3083+NN       EQU   10 NOT NEGATIVE
00000B                             3084+NOTLIST  EQU   11 NOT LIST REQUEST
000008                             3085+ELEMENT  EQU   8 ELEMENT REQUEST
00000C                             3086+NP       EQU   12 NOT POSITIVE

                                   3088+*        PARAMETER LIST OFFSETS

000009                             3090+SPID     EQU   9 OFFSET OF SUBPOOL ID IN PARAMETER
                                   3091+*                                   LIST
000008                             3092+TYPE     EQU   8 OFFSET OF TYPE CODE IN PARAMETER
                                   3093+*                                   LIST
000004                             3094+VLNTH    EQU   4 OFFSET OF LENGTH IN VARIABLE
                                   3095+*                                   LENGTH-ADDRESS LIST

000001                             3097+PTROFST  EQU   1 OFFSET OF POINTER IN AQE, FQE, DQE
000000                             3098+FQEOFSET EQU   0 OFFSET OF BEGINNING OF FQE

000008                             3100+QESIZE   EQU   8 SIZE OF QUEUE ELEMENT
00000C                             3101+FBQELNTH EQU   12 SIZE OF FBQE
000004                             3102+FQNXTFLD EQU   4 LENGTH OF POINTER IN FQE
000003                             3103+ADRLNTH  EQU   3 NUMBER OF BYTES OCCUPIED BY ADDRESS

000000                             3105+DQETEST  EQU   0 MASK TO TEST FOR LARGE DQE
0000C0                             3106+CODE     EQU   X'C0' MASK FOR CHECKING TYPE CODE IN
                                   3107+*                                   PARAMETER LIST


                                   3109+*
                                   3110+*        SPQE FIELDS
                                   3111+*
000000                             3112+SPQEFLGS EQU   0 FLAG BYTE
000000                             3113+SPQENXT  EQU   0 NEXT SPQE POINTER -1
000004                             3114+SPQEID   EQU   4 SUBPOOL ID
000004                             3115+SPQEDQE  EQU   4 FIRST DQE POINTER -1
000080                             3116+SPQESHRD EQU   X'80' MASK FOR FLAG BIT INDICATING SPQE IS SHARED
000040                             3117+SPQELAST EQU   X'40' MASK FOR FLAG BIT INDICATING LAST SPQE FOR TCB
                                   3118+*
                                   3119+*        DQE FIELDS '
                                   3120+*
000000                             3121+DQEFQE   EQU   0 FIRST FQE POINTER -1
000004                             3122+DQENXT   EQU   4 NEXT DQE POINTER -1
000008                             3123+DQEADDR  EQU   8 ADDRESS OF AREA DEFINED BY DQE
00000C                             3124+DQELNTH  EQU   12 LENGTH OF AREA DEFINED BY DQE
                                   3125+*
                                   3126+*        FQE FIELDS
                                   3127+*
000000                             3128+FQENXT   EQU   0 NEXT FQE POINTER
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000004                             3129+FQELNTH  EQU   4 LENGTH OF FREE AREA
                                   3130+*
                                   3131+*        AQE FIELDS
                                   3132+*
000000                             3133+AQENXT   EQU   0 POINTER TO NEXT AQE
000004                             3134+AQELNTH  EQU   4 LENGTH OF ASSIGNED AREA
                                   3135+*
                                   3136+*        PQE FIELDS
000008                             3137+PQENXT   EQU   8 OFFSET OF NEXT PQE PTR IN PQE
00000C                             3138+PQEPREV  EQU   12 OFFSET OF PREVIOUS PQE PTR IN PQE
                                   3139+*
                                   3140+*        FBQE FIELDS
                                   3141+*
                                   3142+*
                                   3143+*        DUMMY PQE FIELDS
                                   3144+*
000008                             3145+DUMFWD   EQU   PQENXT OFFSET OF FORWARD PQE PTR IN DUMMY
00000C                             3146+DUMBWD   EQU   PQEPREV OFFSET OF BACKWARD PQE PTR IN DUMMY
000010                             3147+PQETCB   EQU   16 OFFSET OF TCB POINTER IN PQE
000014                             3148+PQERGSZ  EQU   20 OFFSET OF REGION SIZE IN PQE
000018                             3149+PQESTADD EQU   24 OFFSET OF RGN STRT ADD IN PQE
00001C                             3150+RORIFLG  EQU   28 ROLLOUT FLAG IN PQE
000080                             3151+RGNSHRD  EQU   X'80' MASK FOR FLAG BIT INDICATING REGION
                                   3152+*                                 IS BORROWED
                                   3153+*                        PQES ON THE PQE QUEUE.
                                   3154+*
                                   3155+*                        THESE FIELDS ARE REFERENCED
                                   3156+*
                                   3157+*                          DUMFWD - A FOUR BYTE FIELD IN WHICH THE
                                   3158+*                                   FIRST BYTE IS ZERO AND IN WHCIH THE
                                   3159+*                                   LAST THREE BYTES CONTAIN A POINTER
                                   3160+*                                   TO THE FIRST PQE ON THE CHAIN
                                   3161+*
                                   3162+*                          DUMBWD - A FOUR BYTE FIELD IN WHICH THE
                                   3163+*                                   FIRST BYTE IS ZERO AND IN WHICH THE
                                   3164+*                                   LAST THREE BYTES CONTAIN A POINTER
                                   3165+*                                   TO THE LAST PQE ON THE CHAIN.
000000                             3166+FWDPTR   EQU   0 OFFSET OF FORWARD POINTER IN PQE
000004                             3167+BCKPTR   EQU   4 OFFSET OF BACKWARD POINTER IN PQE
000008                             3168+FBQESIZE EQU   8 OFFSET OF SIZE FIELD IN PQE
                                   3169+*
                                   3170+*        TCB FIELDS REFERENCED
                                   3171+*
00001D                             3172+TCBABND  EQU   29
00001E                             3173+TCBFMC   EQU   30
000074                             3174+TCBTCB   EQU   116
00007C                             3175+TCBJSTCB EQU   124 JOB STEP TCB POINTER
000018                             3176+TCBMSS   EQU   24 SPQE POINTER -1
000021                             3177+TCBFCD1  EQU   33 FIFTH FLAG BYTE IN TCB
00001C                             3178+TCBPKF   EQU   28 PROTECT KEY
00002C                             3179+TCBJPQ   EQU   44 OFFSET FOR TCBJPQ FIELD IN TCB
000098                             3180+TCBPQE   EQU   152 OFFSET OF TCBPQE IN TCB
00009C                             3181+TCBAQE   EQU   156 OFFSET OF TCBAQE IN TCB
                                   3182+*
                                   3183+*        REFERENCES TO CDE
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3184+*
000000                             3185+CDATTR   EQU   0 OFFSET FOR ATTRIBUTE FIELD IN CDE
000014                             3186+CDATTR2  EQU   20 OFFSET FOR ATTRIBUTE FIELD IN CDE
000040                             3187+REL      EQU   X'40' MASK FOR INACTIVE FLAG IN CDE ATTR.
000004                             3188+MIN      EQU   X'04' MASK FOR MINOR FLAG IN CDE ATTR.
                                   3189+*        SYMBOLIC REGISTER ASSIGNMENTS
                                   3190+*
000000                             3191+RIN0     EQU   0
000000                             3192+RMASK    EQU   0
000000                             3193+RFBQEUB  EQU   0
000000                             3194+RAREAUB  EQU   0
000001                             3195+RIN1     EQU   1
000001                             3196+RPRQE    EQU   1
000001                             3197+RDISP    EQU   1
000001                             3198+RAQEUB   EQU   1
000001                             3199+RQEUB    EQU   1
000001                             3200+RDQEBLK  EQU   1
000001                             3201+RWORK4   EQU   1
000001                             3202+RNEWDQE  EQU   1
000002                             3203+RVALBAS  EQU   2
000002                             3204+RLST     EQU   2
000002                             3205+RDQE     EQU   2
000002                             3206+RWORK5   EQU   2
000002                             3207+RPQE     EQU   2
000002                             3208+RBLOCK1  EQU   2
000002                             3209+REXBAS   EQU   2
000003                             3210+FREBAS   EQU   3 BASE REGISTER FOR FREEMAIN                       20021
000003                             3211+CVTREG   EQU   3 CVT REGISTER
000004                             3212+RCVT     EQU   4 20021
000004                             3213+RTCB     EQU   4
000004                             3214+RFQE1    EQU   4
000005                             3215+RSPID    EQU   5
000005                             3216+RUBRND   EQU   5
000005                             3217+RCDE     EQU   5
000006                             3218+RWORK1   EQU   6
000006                             3219+RERROR   EQU   6
000006                             3220+RLRGSIZ  EQU   6
000006                             3221+RQESIZ   EQU   6
000006                             3222+RDQESIZ  EQU   6
000006                             3223+RSWITCH  EQU   6
000006                             3224+RFBQE    EQU   6 20021
000006                             3225+RSIZE1   EQU   6 20021
000006                             3226+RWORK6   EQU   6 20021
000007                             3227+RWORK2   EQU   7
000007                             3228+RFQE     EQU   7
000007                             3229+RCOMRET3 EQU   7
000007                             3230+RQE      EQU   7
000008                             3231+RBASE    EQU   8
000009                             3232+RCOMRET1 EQU   9
000009                             3233+RORIREG  EQU   9
000009                             3234+RWK3CVT  EQU   9 20021
000009                             3235+RWORK3   EQU   9
00000A                             3236+RLENGTH  EQU   10
00000A                             3237+RSIZE2   EQU   10
00000A                             3238+RSIZE3   EQU   10
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00000A                             3239+RMASK1   EQU   10
00000B                             3240+RADDR    EQU   11
00000B                             3241+RFQRND   EQU   11
00000B                             3242+RLRGBLK  EQU   11
00000B                             3243+RCDEIN   EQU   11
00000B                             3244+RBASE1   EQU   11
00000B                             3245+FPQEBASE EQU   11
00000C                             3246+RVALRET  EQU   12
00000C                             3247+RSPQE    EQU   12
00000C                             3248+RPREDQE  EQU   12
00000C                             3249+RAQE     EQU   12
00000C                             3250+RPREVDQ  EQU   12
00000C                             3251+RDISP1   EQU   12
00000C                             3252+RRET1    EQU   12
00000C                             3253+RBLOCK2  EQU   12
00000C                             3254+RFQEUB   EQU   12
00000D                             3255+RABTERM  EQU   13
00000D                             3256+RGMRET   EQU   13
00000D                             3257+RFMRET   EQU   13
00000D                             3258+RCOMRET2 EQU   13
00000D                             3259+RDQELB   EQU   13
00000D                             3260+RRET     EQU   13
00000D                             3261+MP65BASE EQU   13 MP2K
00000E                             3262+RRETURN  EQU   14
00000E                             3263+RPREFQE  EQU   14
00000E                             3264+RBLOCK   EQU   14
00000E                             3265+RPREVQE  EQU   14
00000F                             3266+RIN15    EQU   15
00000F                             3267+RFRELNTH EQU   15
00000F                             3268+RSIZE    EQU   15
00000F                             3269+RDQEUB   EQU   15
00000F                             3270+IPVLBASE EQU   15

                                   3272+***************************************************************   21016
                                   3273+*        DSECT TO COVER INFORMATION LIST ENTRY                    21016
                                   3274+***************************************************************   21016

000000                             3276+INFOLIST DSECT  21016
000000                             3277+INFENTRY DS    H NOT USED                                   A49808
000002                             3278+INFTJID  DS    H USER TSO ID FIELD                          A49808
000004                             3279+INFTCB   DS    F 21016
000008                             3280+INFBADDR DS    F 21016
00000C                             3281+INFRCL   DS    X BITS 0-2 USED FOR REASON CODE(0=>NO RC)      21016
                                   3282+*                    BITS 3-7 USED FOR COUNT OF VARIABLE DATA BYTE21016
00000D                             3283+INFFLG   DS    X FLAG BYTE                                    21016
000080                             3284+INFFLG0  EQU   X'80' BIT 0 ON => BRANCH ENTRY                     21016
00000E                             3285+INFCC    DS    H COMPLETION CODE                              21016
000010                             3286+INFVAR   DS    4F VARIABLE INFORMATION                         21016
000010                             3287+         ORG   INFVAR 21016
000010                             3288+INFVAR1  DS    F 21016
000014                             3289+INFVAR2  DS    F 21016
000018                             3290+INFVAR3  DS    F 21016
00001C                             3291+INFVAR4  DS    F 21016
000020                             3292+INFEND   EQU   * 21016
000020                             3293+INFLEN   EQU   (INFEND-INFENTRY) LENGTH OF ENTRY                A49808
        MVT GETMAIN / FREEMAIN SERVICE ROUTINE                                                                 PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000094                             3295+SCVTMSGS EQU   X'94' 21016
000098                             3296+SCVTFMSA EQU   X'98' ADDR OF CONDITIONAL FREEMAIN BITS  21016
000080                             3297+SCVTSW1  EQU   X'80' CONDITIONAL FREEMAIN BITS.         21016


000004                             3299+CVT0EF00 EQU   4 21016
000080                             3300+CVTNUCB  EQU   128 21016
0000B8                             3301+CVTCRTTR EQU   X'B8' 21016
0000C8                             3302+CVTABEND EQU   X'C8' 21016
00010C                             3303+CVTQMSG  EQU   X'10C' 21016


                                   3305          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     00091C
   01       01      0C     000924
   01       01      0C     001180
   01       03      0C     0012C0
   01       04      0C     0012EC
   01       05      0C     0012F0
   01       06      0C     0012BC
   01       07      0C     0012B8
   01       08      0C     001348
   01       09      1C     0012F4
   01       09      0C     001344
   01       0A      0C     0012F8
   01       0B      1C     0012C4
   01       0C      0C     0012FC
   0C       01      0C     00153C
   0C       0D      1C     001540
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

@SPSAVE  00002 0012DA 02919   0956
ABENDMSK 00005 00128D 02884   1082
ABNDATA  00004 001308 02932   1026  1027  1686  1735  1815  1819  1831  1872  1981  1990  2226  2850  2852  2858  2860
                              2863  2863  2936
ABNDATAL 00001 00000E 02936   2863
ABTERM   00004 0012C0 02911   2808
ADDISP   00004 001348 02963   1162  2404
ADPART   00004 001344 02962   1160  2403
ADRDQE   00004 000AA8 01833   1829
ADRLNTH  00001 000003 03103   1893  2070  2104  2146  2174  2184  2217
ADROK    00002 000A80 01821   1813
ADSPSAV  00004 001540 03047
AQELNTH  00001 000004 03134   1541  1758  1884  1914  1927
AQENXT   00001 000000 03133   1539  1893  1893  1910  1917  1917
AREAUBSV 00004 001320 02941   2050  2058
ASMFTCB  00004 00153C 03046
BADFQE   00004 000BCC 01979   1326  1328  1342  1344  1516  1520  1969  1995  2245  2251  2635  2637  2639  2641  2643
                              2645  2663  2665  2669
BADFQEX  00004 000BEC 01987   1984
BADPARM  00001 001394 02531   2527  2529
BCKPTR   00001 000004 03167   1430  1460  1462  1482  1486  2682  2729
BESW     00001 001284 02867   0933  0935  1662  1664  2836
BRANCHSV 00004 0007B8 01668   0926  0928  0929  0936  0994
BRNREG   00004 001310 02933   0931  1660  2839
CDATTR   00001 000000 03185   2763
CDATTR2  00001 000014 03186   2765
CDDESTRY 00001 000000 00020   2925
CDHKEEP  00001 000000 00019   2924
CDNEXT   00004 001130 02756   2766  2775
CDNEXT1  00004 00113A 02759   2764
CDPURGE  00004 001116 02749   0012  0878  0973  1005  1139
CDREL    00004 001150 02765   2762
CDRETURN 00002 001170 02776   2753  2758
CFQECHK  00004 000FFC 02628   1502  1951
CFQERETN 00004 00107C 02666   2661
CHNGFQE  00004 000CF2 02108   2103
CKLSTBLK 00004 00061E 01464   1451  1456
CKMAX    00001 0000D0 00895   0890
CLHIBYTE 00004 000920 01676   0925  0991  1244  1653  1828  2066  2451
CLRCORE  00006 000FBE 02471   2460
CODE     00001 0000C0 03106   1596
CONTIGCH 00001 00035E 01155   1153
CONTIGCK 00001 000378 01167   1157
CRNDLNTH 00004 000FC4 02478   1242  1808
CSPCHK   00004 000E2A 02295   1225  1701  1778
CVTABEND 00001 0000C8 03302   2815
CVTCRTTR 00001 0000B8 03301
CVTNUCB  00001 000080 03300   1194
CVTPTR   00001 000010 02948   1046
CVTPURG  00001 000104 02951   1047
CVTQMSG  00001 00010C 03303   2818
CVTREG   00001 000003 03211   2864
CVTTCB   00001 000000 02949
CVT0EF00 00001 000004 03299
C246     00002 0012C8 02913   1431
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

C248     00002 0012CA 02914   1435
C252     00004 0012CC 02915   1023  1245  1387  1433  1499  1508  1947  1972  2021
C254     00004 0012D0 02916   1087
C255     00004 0012D4 02917
DBASADR  00004 00091C 01675   0815  0930  0947  1591  1659
DISP     00001 000028 02886   1082
DISPINIT 00001 000000 00023   2963
DIV2048  00001 00000B 03078   1376  3031  3040
DQBEGFCH 00004 000CFA 02115   2098
DQEADDR  00001 000008 03123   1380  1723  1833  2094  2119  2121  2156  2158  2629
DQEFQE   00001 000000 03121   1171  1198  1412  2104  2165  2174  2174  2184  2184  2210  2217
DQELNTH  00001 00000C 03124   1173  1183  1381  1722  1834  2067  2099  2101  2122  2124  2155  2161  2630
DQENDFCH 00002 000CCA 02093   2069
DQENXT   00001 000004 03122   1275  1314  1406  1407  1827  2065  2070  2070  2146  2146  2150
DQESAVE  00004 001328 02943   2628  2660  2666
DQESQES  00004 00129C 02901
DQETEST  00001 000000 03105
DQMIDFRE 00004 000D38 02144   2118
DUMBWD   00001 00000C 03146   1728  1731  2045
DUMFWD   00001 000008 03145   1185
ELEMENT  00001 000008 03085   1630
ERRF11   00002 0011A6 02806   1055
ERRMSGX  00006 001278 02863   2814  2817  2824
ERRMSG1  00002 0011DC 02823   2828
ERRMSG2  00004 0011F2 02830   2826
ERRMSG2A 00001 00124E 02853   2842  2847  2849
ERRMSG3  00006 001272 02862   2859
ERRM2    00004 00120C 02836   2832
FADVDQE  00002 000A8E 01826   1843  1845  1847  1849  1851
FADVQE   00002 000DEE 02241   2250
FAQELOWR 00004 000B46 01907   1888
FAQEMID  00004 000B6A 01922   1916
FAQEUPPR 00004 000B34 01898   1890
FAQEUPR1 00004 000B76 01927   1903
FBBEG    00002 00064A 01477   1471
FBBEGOUT 00004 00066A 01488   1463  1476
FBQELNTH 00001 00000C 03101   1483
FBQESIZ  00004 0012E4 02922   0889  0891  1429  1453
FBQESIZE 00001 000008 03168   1450  1452  1473  1478  2681  2721  2726  2727  3026  3028
FBQLOOP  00004 0005DE 01447   1465
FBQREPR  00004 000638 01471   1458
FBQSRCH  00004 000598 01427   0015  1368
FCHOVRLP 00004 000BAA 01968   2259
FCOMMN4B 00004 000AF0 01871   1880
FCOMMON1 00004 000A48 01805   0852  1618  1785  1788
FCOMMON2 00004 000A54 01808   2087
FCOMMON3 00004 000C6E 02052   1730
FCOMMON4 00004 000ADE 01866   1761
FCOMPRPR 00004 000C1A 02002   2265
FCOMRET  00004 000DCE 02222   1810  1901  2022  2036  2107  2109  2129  2136  2211  2218
FCUPRBND 00002 000AB0 01835
FC4LOOP  00002 000AFC 01874   1869  1877  1887
FDQECMPR 00002 000C94 02068
FELEMENT 00004 000776 01641   0967  1630
FLAST    00002 00076A 01620   1614
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

FLISTADV 00004 000748 01611   0853  1619
FMBASE   00004 000730 01593   1655
FMBRANCH 00002 000780 01648   0010
FMBREN   00004 0001CE 00997   0993
FMBRNCOM 00001 000794 01656   0999
FMBRSAV  00004 0007EC 01670   0997  1654  1657  1658  1665
FMCOMMON 00004 000A24 01778   1610  1642
FMSAVE   00004 00082C 01671   1715  1760  1805  2222
FMSMFB   00001 000006 03055
FMSMFRT  00001 000001 03050
FPQEBASE 00001 00000B 03245
FQEADV   00004 000BA0 01963
FQEBAD   00004 001082 02668   2649  2655  2657
FQECH1   00002 000C02 01993   1975
FQECH2   00002 000C08 01996   1973  1978
FQELNTH  00001 000004 03129   1176  1180  1181  1196  1329  1413  1506  1533  1961  1971  2000  2002  2108  2135  2193
                              2208
FQENDTST 00002 000E0E 02258   1960
FQENEWS  00004 000DA6 02198   2195
FQENXT   00001 000000 03128   1197  1322  1325  1327  1341  1343  1345  1415  1521  1521  1537  1537  1963  1968  1980
                              2003  2127  2130  2191  2191  2196  2198  2200  2239  2244  2246  2263
FQEOFSET 00001 000000 03098   2051  2131
FQEOK    00004 000504 01345
FQESAVE  00004 00132C 02944   2051  2104  2131  2217
FQESIZ   00004 0012E8 02923   0903  0905  1316
FQESRCH  00002 0004BC 01321
FQEZERO  00004 001068 02660   2633
FQNXTFLD 00001 000004 03102   2051  2131  2191
FQREPAIR 00004 000E14 02263   1965  1999
FREBAS   00001 000003 03210   0813  0815  0855  0919  0924  0930  0942  0946  0947  0985  0990  1061  1102  1243  1264
                              1292  1575  1579  1591  1647  1652  1659  2515  2538  2540  2569  2571  2608  2610  2611
FRECMBN1 00002 000B96 01959   1948
FRECOMBN 00001 000B7A 01945   1855  1894  1918
FREE     00006 001268 02860   2857
FREEA    00004 00019E 00976   0974
FREEDQE  00004 000CA8 02078
FREEDQE1 00001 000CBE 02084   2082
FREEPTR  00004 00062C 01468   1152  1436
FREESW   00001 001315 02935   0854  1641  1682  1985  2856
FREEVAR  00004 001448 02596   2548
FREEVAR1 00001 0013FC 02568   2601
FVARCHK  00004 00076E 01630   1597
FWDPTR   00001 000000 03166   1459  1461  1481  1484  2697  2728  3023  3029
GAQE     00004 00046E 01269   1250
GAQETST  00002 00058C 01414   1410
GBLDAQE  00004 0006BA 01533   1269
GBLDAQE2 00006 0006CE 01539   1536
GCOMMON1 00002 000406 01233   0866  0900  0909  1570
GCOMMON2 00004 000430 01244   1062  1103
GCOMPSP  00002 00044E 01252   1246
GDQEADV  00002 00051C 01353   1324  1347
GDQEBLD  00002 00052E 01374   1369
GDQESRCH 00004 0004B0 01314   1354
GERRB    00004 000E64 02312   2306  2324  2325
GERRCODE 00001 00000D 02953   0949  1025  1094  1237  1350  1870  1878  1997  2086  2514
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

GERROR1  00002 001184 02785   1095
GERROR10 00002 001196 02797   1992
GERROR11 00002 001198 02798   2315  2317
GERROR12 00002 00119A 02799
GERROR13 00002 00119C 02800   1873
GERROR3  00002 001188 02787   1688  1737  1832  2227
GERROR4  00002 00118A 02788   1710
GERROR5  00002 00118C 02789   2589
GERROR6  00002 00118E 02791   1351  2605
GERROR8  00002 001192 02794   1029  1239
GERROR9  00002 001194 02796   1817  1820
GERR4    00002 000978 01708   1691  1697
GETLSQS  00004 000FD8 02489   2083  2453
GETMAINB 00004 000F76 02449   0014  1379  1557  2145
GETMIN   00001 0000F8 00906   0892
GETSPQE  00004 000F3C 02424   2346  2351  2358  2421
GETSPQE1 00004 000F4E 02430   2436
GETSPQE2 00004 000F66 02438   2432
GETSQS   00004 0002DA 01096   1072  1074  1076  1078  1083
GETSQS1  00004 0002E6 01100   1098
GFNDRET  00004 000464 01264   1270  1282  1290
GFQEADJ  00004 000460 01260   1251
GFQEADV  00002 0004F2 01340   1335
GFQEBLD  00004 000572 01406   1389
GFQEOUT  00006 0006B0 01521   1505
GFQESRCH 00004 0004C8 01325   1349
GFQEUPDT 00004 000670 01499   1260  2457
GFQEUP1  00002 000684 01504   1500
GFQEUP2  00004 000690 01508   1522
GFQEUP3  00002 0006A8 01517   1512
GFRECORE 00002 0004AC 01312   1247  1257  2455
GFSMFSVE 00004 00152C 03044   2998  3035
GLEFND   00004 00007C 00861   0839
GLIST    00002 00002E 00834   0825
GLIST1   00004 000034 00836   0868
GLIST1A  00004 000038 00837
GLIST2   00004 000046 00844   1013
GMBASE   00004 00000C 00817   0927
GMBRANCH 00002 000110 00920   0009
GMBREPET 00004 000F80 02452
GMBRNCOM 00004 000124 00928   0996
GMCKFBQ  00002 0014E8 03020   3012  3014  3016
GMCKMIN  00004 001510 03031   3025
GMCOMMON 00004 0003FA 01224   0828  0835  0875  0971
GMINCK   00001 0000B6 00886   0882
GMLSTFBQ 00002 0014F6 03024   3030
GMNXTFBQ 00004 001508 03029   3027
GMREPEAT 00004 000270 01061   0879  0978  1010
GMSEXIT  00004 0003EE 01203   0829  0862  0914
GMSMFAD  00004 0012FC 02928   1400
GMSMFB   00001 000002 03052   1400  1402  2996  2997  3037
GMSMFCRE 00002 001498 02996   2928  2995
GMSMFRT  00001 000007 03057   1402  3036
GMTSTHWM 00004 0014D4 03013   3008  3010
GM2K     00004 00048E 01283   1277
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

GM2KPREF 00002 000476 01274   1255
GM2KPRF1 00004 000478 01275   1279
GM2KT    00002 000488 01281   1258
GNOLSQS  00002 000278 01070   1059
GNOLSQS1 00004 00027A 01071   1093
GNOLSQS2 00002 0002B0 01084   1081
GNOTFND  00004 0004A4 01292   1248
GNOTSAT  00004 0001DA 01005   0830  0843
GNOTSAT1 00004 00020A 01023   0975  1015
GNOTSAT2 00002 000228 01039   1148  1154
GNOTSAT3 00002 0002F6 01119   1060  2465
GNOTSAT4 00004 0001FA 01014   0845  0857  0894
GNOTSAT5 00001 000264 01057   1024
GNTST4   00001 0000CC 00893   0897  0904  0911
GOCORE   00004 000568 01400   1388
GOVRFLB  00028 001298 02899   0011  1143  1145  1156  1168  1170  1184  1189  1191  1194  1468  2387  2952
GRETURN  00002 0003F8 01207   0981  1017  1204  1241
GRETURN1 00002 0003F6 01205
GSBSK    00002 00055E 01392   1394
GSIZCK   00002 0004A2 01291
GSPQESPC 00002 0006E8 01555   1226
GSPQESP1 00002 000718 01569   1566
GVAR     00002 000094 00873   0826
GVARFND  00004 000108 00913   0876  0901  0910
GVFNDR   00001 0000AA 00880
G2KSRCH  00004 000522 01368   1289
H60A     00002 001316 02937   2846
H8       00001 0011A0 02803   2844  2845  2851
H80A     00002 001318 02938   2848
IEAMSTCB 00001 000000 00021   2910
IEAQGM00 00001 000000 00004   2618
IEAQPRT0 00001 000000 00024   2962
IEAQVLCH 00001 001358 02510   2927
IEASMFGF 00001 001498 02994
IEATCBP  00001 000000 00017
IEA0AB01 00001 000000 00018   2911
IEA0XE00 00001 000000 00022   2909
IEA10FS  00001 0007EC 01669   0027
IGC004   00002 000000 00812   0005
IGC005   00002 000720 01576   0006
IGC010   00002 000148 00943   0007
INFBADDR 00004 000008 03280   2839
INFCC    00002 00000E 03285   2840
INFEND   00001 000020 03292   3293
INFENTRY 00002 000000 03277   3293
INFFLG   00001 00000D 03283   2838
INFFLG0  00001 000080 03284   2838
INFLEN   00001 000020 03293   2827
INFOLIST 00001 000000 03276   2822
INFRCL   00001 00000C 03281   2862
INFTCB   00004 000004 03279   2825  2830
INFTJID  00002 000002 03278   2835
INFVAR   00004 000010 03286   3287
INFVAR1  00004 000010 03288   2854  2855
INFVAR2  00004 000014 03289   2858  2861
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

INFVAR3  00004 000018 03290   2860
INFVAR4  00004 00001C 03291
INMACH   00004 001472 02608   2565
IPVAL    00004 0012F8 02927   0818  1594
IPVALCHK 00002 001358 02511
IPVALRET 00002 001436 02590   2547  2575  2585
IPVLBASE 00001 00000F 03270   0818  0819  1594  1595  2511  2512  2617
IPVLOVLP 00002 00141C 02581   2559
IPVLRET1 00004 001438 02591   2516
IPVL3    00002 001424 02584   2582
IPV1     00002 0013EA 02560   2555  2557
IPV2     00004 0013EC 02562   2579
JSCBTJID 00001 00010C 02891   2835
KTWO     00002 0012DC 02920   1187
K4080    00004 0012E0 02921   0896  0898
LENCHK   00004 0013C6 02550   2598
LENOK    00004 000940 01689   1684
LOOP1    00004 0009BA 01729   1733
LOOP2    00004 000C52 02045   2047
LSQSMSK  00001 0000FF 02881   1058  1784  2302  2397  2409  2463  2497
LSQSOFF  00001 000000 02882   1096  1790  2296  2336  2426  2466
LSQSSW   00001 00128C 02883   1058  1096  1784  1790  2296  2302  2336  2397  2409  2426  2463  2466  2497
LSTREG   00001 00001C 02950   0849
L5       00001 000005 02887   1082
MIN      00001 000004 03188   2763
MODEBYTE 00001 001292 02893   0816  0932  0948  1592  1661  1700  1704  2308  2310  2350  2420  2422  2513  2524
MOVEFQE  00004 000D26 02130   2126
MP65BASE 00001 00000D 03261
MRELADV  00002 0010B4 02695   2692
MRELBR   00004 0010D6 02712   2711
MRELCOMB 00004 0010E4 02721   2693  2698
MRELEASE 00004 00108A 02681   0013  2052
MRELEAS1 00004 0010C6 02707   2685  2689
MRELEAS2 00002 0010C4 02706   2712
MRELENDQ 00004 0010DA 02713   2709
MSCEDADD 00004 0012BC 02910   1122
MSETKEYS 00002 000E1E 02274   2057  2276
MSGLEN   00001 001314 02934   1028  1238  1501  1503  1685  1709  1734  1814  1818  1830  1871  1950  1952  1979  1987
                              1991  2225  2313  2316  2588  2604  2862
MSSADR   00004 000924 01677   0923  0945  0989  1578  1651
MSSADR2  00004 001180 02781   2773
MSSBASE  00004 000002 00815   0016  0813  0924  0946  0990  1579  1652  1675  1677  2774  2781
MULT2048 00001 00000B 03077
MULT8    00001 000003 03076
MVFQEPTR 00006 000D82 02184   2168
NEWSQFQE 00004 0003DE 01196   1175  1179
NEWSQSIZ 00004 0003A6 01182   1199
NEXTPQE  00004 0005CE 01442   1449  1467  1470
NEXTTCB  00004 000308 01124   1121  1128  1137
NFTHRCHK 00004 001064 02658   2653
NIPSQSBD 00004 0012B0 02906
NN       00001 00000A 03083   1822  1855  2842
NOLWRREM 00006 000DC4 02217   2207
NORETRY  00001 0001F2 01011   1007
NOSHRE   00004 0014B8 03006
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

NOSQSPC1 00004 000F88 02454   2468
NOSQSPC2 00004 000FA6 02463   2456
NOSQSPC3 00004 000FB2 02466   2464
NOTLIST  00001 00000B 03084   1597
NOTRMS   00004 000988 01714
NOTSPART 00001 001110 02739   2736
NOTUSED  00002 001186 02786
NP       00001 00000C 03086   2036
NZ       00001 000007 03082   2103  2126
OK       00002 000F14 02408   2388  2393  2395  2398
ORGLRG   00004 001288 02868   1026  1337  1454
OUTLSQS  00004 0002D2 01094   1085  1088
OVRLAP   00002 000BF4 01989   1998
PARMERR  00002 001460 02602   2533  2535
PARMSOK  00001 00139A 02534   2530
PART     00001 001104 02732   2322  2323
PARTADDR 00004 0012F4 02926   2740
PGETSPQE 00004 000F2C 02420   2298
PQENXT   00001 000008 03137   1144  1745  2412  2495  3145
PQEPREV  00001 00000C 03138   1442  3146
PQEPTR   00004 0012A0 02902
PQERGSZ  00001 000014 03148   1186  1188
PQESTADD 00001 000018 03149   1192  1729  1746  2046  2413  2496
PQETCB   00001 000010 03147
PREVDQSV 00004 00131C 02940   1725  1852  2064
PREVQESV 00004 001324 02942   2042  2115
PTROFST  00001 000001 03097   1893  1893  2070  2070  2104  2146  2146  2174  2174  2184  2184  2217  2217
QELOCATE 00002 000DE4 02238   1946
QESIZE   00001 000008 03100   1823  1898  1907
RABTERM  00001 00000D 03255   2808  2865
RADDR    00001 00000B 03240   0851  0855  0865  0865  0899  0907  0913  0957  0959  0960  1027  1061  1102  1159  1160
                              1166  1243  1264  1265  1292  1617  1617  1631  1687  1687  1708  1708  1736  1736  1747
                              1748  1748  1752  1758  1759  1787  1806  1806  1807  1807  1812  1819  1824  1838  1842
                              1846  1850  1872  1876  1889  1899  1915  1923  1925  1989  1996  2046  2073  2080  2224
                              2224  2263  2264  2312  2312  2402  2403  2406  2553  2567  2581  2591  2599  2600  2845
                              2861
RAQE     00001 00000C 03249   1534  1539  1540  1541  1544
RAQEUB   00001 000001 03198   1885  1886  1911  1914
RAREAUB  00001 000000 03194   1759  1838  1839  1844  1848  1850  1886  1908  1910  1911  1912  1959  2023  2026  2050
                              2058  2125  2127  2135  2188  2193  2200  2241
RBABOPSW 00001 000004 02888
RBASE    00001 000008 03231   0812  0813  0920  0921  0922  0923  0924  0943  0944  0945  0946  0986  0987  0988  0989
                              0990  1576  1577  1578  1579  1648  1649  1650  1651  1652  2771  2772  2773  2774
RBASE1   00001 00000B 03244   2740  2741
RBEXSAVE 00001 000060 02885   1082
RBLOCK   00001 00000E 03264   1143  1144  1144  1147  1178  1184  1185  1185  1186  1188  1192  1196  1197  1198  1374
                              1384  1409  1412  1413  1415  1438  1439  1439  1442  1442  1443  1443  1446  1447  1447
                              1448  1450  1452  1459  1460  1464  1466  1468  1473  1474  1478  1480  1481  1482  1483
                              1721  1723  1729  2043  2055  2681  2690  2695  2710  2713  2714  3006  3007  3015  3017
RBLOCK1  00001 000002 03208   1374  1380  1384  1385  1385  1392  1393  1393
RBLOCK2  00001 00000C 03253   2690  2696  2724  2726
RBSTAB   00001 00000A 02889   1080
RCDE     00001 000005 03217   2755  2756  2756  2757  2759  2759  2760  2760  2761  2761  2763
RCDEIN   00001 00000B 03243   2757  2765
RCEXIT   00004 001520 03035   3000  3004  3022  3033
                                             CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RCFBQREG 00001 00000C 03041   3023  3024  3026  3028  3029  3029
RCOMRET1 00001 000009 03232   0819  0929  1060  1142  1158  1162  1163  1163  1165  1195  1225  1242  1247  1257  1260
                              1269  1317  1331  1379  1509  1515  1519  1545  1557  1595  1658  1701  1778  1808  1946
                              2052  2057  2083  2145  2242  2278  2401  2404  2405  2405  2407  2410  2414  2428  2434
                              2439  2441  2453  2455  2457  2462  2465  2483  2485  2493  2498  2595  2596  2596  2700
                              2701
RCOMRET2 00001 00000D 03258   1289  1370  1418  1502  1951  2667
RCOMRET3 00001 000007 03229   0928  1152  1368  1427  1440  1441  1444  1445  1469  1488  1489  1657  2685  2689  2693
                              2698  2715  2725  2730
RCORE    00001 00000A 03060   3005  3007  3009  3011  3013  3015  3017  3021  3032  3034
RCORE1   00001 00000A 03061
RCVT     00001 000004 03212
RCWRK    00001 00000B 03062   3006  3009  3011  3013  3020  3020  3021  3026  3028  3031  3032  3034
RCWRKA   00001 00000C 03064
RCWRK1   00001 00000B 03063   3039  3040
RCWRK2   00001 000004 03054
RDISP    00001 000001 03197   1150  1150  1151  1430  1437  1437  1447  1458  1464
RDISP1   00001 00000C 03251   2682  2686  2686  2707  2713  2714
RDQE     00001 000002 03205   1158  1165  1170  1171  1173  1183  1198  1275  1276  1278  1314  1315  1321  1353  1511
                              1716  1717  1717  1718  1718  1722  1723  1756  1757  1757  1825  1826  1827  1827  1828
                              1833  1834  1974  2065  2066  2067  2070  2073  2094  2099  2101  2104  2119  2121  2122
                              2124  2146  2150  2158  2161  2165  2184  2194  2210  2217  2238  2628  2629  2630  2666
RDQEBLK  00001 000001 03200   2119  2120  2121
RDQELB   00001 00000D 03259   1833  1835  1842  1848  1949  1953  2116
RDQESIZ  00001 000006 03222   2067  2068  2095  2099  2100  2101  2122  2123  2124
RDQEUB   00001 00000F 03269   1834  1835  1844  1846  2094  2095  2096  2151
RECURSE  00004 0012B4 02908   0957
REL      00001 000040 03187   2765
REQSIZE  00004 001340 02960   1041  1224
RERROR   00001 000006 03219   0949  1025  1070  1070  1084  1084  1089  1094  1097  1097  1099  1237  1350  1870  1878
                              1997  2086  2514  2785  2786  2787  2788  2789  2791  2793  2794  2796  2797  2798  2799
                              2800
RETN     00002 000330 01142   1141
REXBAS   00001 000002 03209   2767
RFBQE    00001 000006 03224   2696  2697  2697  2706  2707  2708  2710  2713  2728  2729
RFBQEUB  00001 000000 03193   2722  2723  2724
RFMRET   00001 00000D 03257   0852  1610  1615  1615  1618  1620  1620  1642  1714  1715  1741  1760  1805  2222  2223
RFQE     00001 000007 03228   0980  1159  1166  1171  1172  1172  1174  1174  1176  1177  1180  1181  1197  1265  1322
                              1323  1329  1338  1340  1345  1346  1348  1409  1506  1507  1510  1521  1533  1534  1537
                              1542  1543  1544  2023  2025  2049  2458  2632  2632  2634  2636  2638  2640  2642  2644
                              2646  2647  2647  2648  2650  2651  2651  2652  2652  2654  2656  2658  2664  2668
RFQESAVE 00004 00117C 02780   2646  2650  2658  2668
RFQEUB   00001 00000C 03254   1176  1177  1178
RFQE1    00001 000004 03214   2049  2051  2102  2108  2116  2167  2205  2208  2210
RFQRND   00001 00000B 03241   2025  2027  2028  2029  2035  2043  2102  2108  2157  2205  2208
RFRELNTH 00001 00000F 03267   1329  1330  1333  1334  1336  1504  1504  1506  1507  1533  1534  1535  1535
RGMRET   00001 00000D 03256   0828  0835  0838  0838  0866  0875  0883  0884  0887  0900  0909  0971  1266  1293  2535
                              2541  2572  2607  2612
RGNSHRD  00001 000080 03151
RIN0     00001 000000 03191   0951  0953  2054  2056  2276  2461
RIN1     00001 000001 03195   0824  0844  0850  0851  0959  0965  0965  0980  0992  0992  1012  1014  1043  1044  1045
                              1048  1054  1079  1080  1082  1203  1235  1377  1380  1381  1406  1407  1412  1417  1417
                              1555  1556  1558  1569  1596  2055  2144  2274  2275  2275  2394  2394  2449  2450  2458
                              2471  2471  2518  2528  2532  2536  2543  2550  2564  2567  2577  2578  2590  2591  2593
                              2600  2606  2609  2609  2610  2800  2804  2805  2813  2840  2846  2848
                                             CROSS-REFERENCE                                                   PAGE    9


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RIN15    00001 00000F 03266   0920  0926  0927  0934  0986  0994  0995  0997  0998  1016  1046  1047  1047  1049  1205
                              1205  1240  1648  1654  1655  1663  2401  2407  2737  2737  2815  2816  2818  2819  2820
                              2820  2822  2823  2827  2827
RLENGTH  00001 00000A 03236   0834  0836  0837  0837  0873  0874  0887  0888  0889  0891  0896  0898  0902  0903  0905
                              0913  0951  0952  0952  1224  1233  1233  1254  1281  1281  1285  1330  1333  1408  1510
                              1541  1543  1609  1611  1612  1612  1631  1683  1683  1758  1759  1809  1809  1839  1900
                              1902  1909  1924  1961  2000  2002  2023  2074  2450  2459  2460  2479  2480  2481  2484
                              2484  2519  2520  2520  2521  2525  2553  2556  2564  2577  2581  2583  2583  2584  2586
                              2591  2602  2844  2854
RLRGBLK  00001 00000B 03242   1274  1274  1313  1338
RLRGSIZ  00001 000006 03220   0884  1291  1312  1312  1313  1316  1334  1336  1337
RLST     00001 000002 03204   0834  0836  0844  0847  0848  0849  0850  0856  0861  0864  0864  0873  0874  0888  0902
                              0928  0936  1609  1611  1613  1616  1616  1657  1665  2449  2461
RMASK    00001 000000 03192   1244  1276  1315  1323  1346  2451
RMASK1   00001 00000A 03239   2683  2687  2711
RMBASE   00004 000158 00949   0995  0998
RMBRANCH 00002 0001B0 00986   0008
RMEXIT   00002 0001AA 00980   0972
RMGM     00004 00018A 00971
RNDLNGTH 00004 000428 01242   1234
RNEWDQE  00001 000001 03202   2146  2150  2155  2156  2174  2174  2184  2198
RORIFLG  00001 00001C 03150
RORIREG  00001 000009 03233
RPQE     00001 000002 03207   1726  1728  1728  1729  1731  1731  1732  1732  2044  2045  2045  2046  2684  2688  2691
                              2708
RPREDQE  00001 00000C 03248   1278  1314  1353  1406  1407
RPREFQE  00001 00000E 03263   1321  1322  1325  1327  1340  1341  1343  1345  1348  1511  1513  1521  1537  2244  2249
                              2660  2662
RPREVDQ  00001 00000C 03250   1826  1852  2064  2065  2070
RPREVQE  00001 00000E 03265   1874  1893  1910  1974  1993  2003  2042  2115  2127  2130  2194  2196  2200  2238  2239
                              2243  2246
RPRQE    00001 000001 03196   2684  2688  2691  2695  2706  2707  2714  2721  2722  2727  2728  2729
RQE      00001 000007 03230   1866  1867  1874  1875  1875  1876  1879  1879  1884  1885  1889  1893  1915  1917  1922
                              1926  1927  1959  1961  1963  1963  1964  1964  1968  1970  1971  1980  2000  2002  2003
                              2239  2240  2240  2241  2243  2246  2247  2247  2249  2258  2258  2263  2264
RQESIZ   00001 000006 03221   1173  1182  1182  1183  1884  1885  1902
RQEUB    00001 000001 03199   1970  1971  1976  1989  1990  1993  1996
RREGSAVE 00004 001330 02945   1427  1440  1444  1469  1488
RRET     00001 00000D 03260   0878  0973  1005  1121  1703  2778  2779
RRETURN  00001 00000E 03262   0853  0929  0931  0934  0936  0937  1049  1207  1621  1643  1658  1660  1663  1665  1666
                              1702  1715  1719  1749  1760  1805  2222  2738  2807
RRET1    00001 00000C 03252   2768  2770  2770
RSIZE    00001 00000F 03268   1151  1180  1181  1196  1291  1375  1381  1408  1409  1413  1428  1428  1429  1450  1452
                              1453  1454  1455  1472  1473  1474  1475  1477  1478  1479  1720  1720  1721  1722  1724
                              2034  2035  2054  2068  2093  2681  3006  3039
RSIZE1   00001 000006 03225   1375  1376  1394
RSIZE2   00001 00000A 03237   2093  2100  2120  2123
RSIZE3   00001 00000A 03238   2721  2723  2726  2727
RSPID    00001 000005 03215   0881  0881  0953  0954  0955  0956  0976  1008  1023  1086  1245  1249  1249  1387  1431
                              1433  1435  1499  1508  1563  1690  1693  1696  1706  1706  1712  1712  1821  1821  1854
                              1854  1947  1972  2021  2085  2297  2304  2333  2333  2345  2345  2352  2366  2366  2431
                              2454  2482  2482  2489  2490  2490  2491  2491  2492  2494  2494  2495  2495  2496  2517
                              2517  2522  2526  2532  2536  2543  2546  2550  2553  2554  2574  2586  2587  2587  2590
                              2592  2592  2593  2594  2599  2602  2603  2603  2841  2841  2843  2843  2855
RSPQE    00001 00000C 03247   1100  1101  1275  1558  1559  1561  1563  1565  1565  1567  1716  1725  1750  1751  1751
                                             CROSS-REFERENCE                                                   PAGE   10


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              1752  1753  1755  1756  1786  1786  1787  1789  1825  2078  2079  2079  2080  2081  2370
                              2411  2412  2412  2413  2413  2424  2425  2425  2427  2427  2430  2433  2435  2435  2438
                              2440  2440  2452  2467  2496
RSTRTCB  00002 00032A 01140   1126
RSWITCH  00001 000006 03223   2750  2750  2769  2776  2776
RTCB     00001 000004 03213   1045  1048  1050  1051  1052  1071  1073  1075  1077  1079  1089  1090  1091  1091  1092
                              1092  1099  1119  1122  1124  1124  1125  1125  1127  1135  1140  1390  1438  1539  1540
                              1559  1560  1561  1562  1686  1726  1727  1735  1742  1747  1815  1831  1866  2044  2048
                              2226  2300  2357  2357  2362  2362  2411  2424  2735  2751  2751  2752  2754  2755  2810
                              2811  2811  2830  2831  2833  2999  3001
RTCT     00001 00000A 03058   3001  3002  3002  3003  3003  3005
RTCT1    00001 00000A 03059
RUBRND   00001 000005 03216   2026  2031  2032  2034  2096  2125  2130  2131  2135  2152  2156  2188  2191  2191  2193
                              2196  2198
RVALBAS  00001 000002 03203   2537  2539  2570
RVALRET  00001 00000C 03246   2539  2544  2551  2565  2570  2613
RWK3CVT  00001 000009 03234
RWORK1   00001 000006 03218   1040  1041  1119  1140  1145  1146  1146  1147  1149  1253  1254  1283  1284  1285  1286
                              1287  1401  1455  1472  1475  1477  1479  1480  1483  1484  1486  1555  1569  1867  1868
                              1868  1907  1908  1909  1923  1924  1925  1926  1927  2024  2027  2028  2029  2031  2032
                              2053  2053  2151  2152  2154  2154  2155  2157  2159  2160  2160  2161  2165  2166  2166
                              2167  2274
RWORK2   00001 000007 03227   0846  0847  1086  1087  1386  1386  1390  1392  1446  1448  1457  1464  1466  1742  1743
                              1743  1745  1745  1746  1746  1755  1812  2295  2297  2303  2304  2305  2305  2307  2309
                              2311  2337  2337  2340  2402  2406  2429  2429  2430  2431  2478  2479  2480  2481  2518
                              2521  2522  2523  2523  2524  2525  2526  2558  2560  2560  2562  2562  2564  2567  2577
                              2584  2821  2821  2825
RWORK3   00001 000009 03235   1414  1414  1415  1689  1690  1692  1693  1695  1696  1823  1824  1898  1899  1900  1912
                              1914  1917  1922  1949  1953  2158  2159  2809  2810  2815  2818  2819  2823  2833  2834
                              2834  2835  2850  2851  2852
RWORK4   00001 000001 03201   1120  1138  1141  1284  1286  1287  1459  1461  1462  1481  1486  1510  1513  1517  1560
                              1562  1724  2629  2631  2634  2654  2662
RWORK5   00001 000002 03206   1186  1187  1188  1189  1190  1190  1191  1192  1193  1194  1460  1461  1462  1482  1484
RWORK6   00001 000006 03226   1517  1976  2630  2631  2636  2648  2656  2664
RWPQE    00001 000006 03056   3023  3024
RWPQE1   00001 000002 03053
SAVEAREA 00004 0008AC 01673   2749  2777
SAVEREGS 00004 0008EC 01674   0849  0855  0899  0907  1061  1101  1102  1243  1264  1292
SAVE3BAS 00004 001488 02614   2515  2540  2571  2611
SAVREG2  00004 00086C 01672   2449  2461
SAVSIX1  00004 00134C 02966
SAVSIX2  00004 001350 02967
SCVTFMSA 00001 000098 03296   2816
SCVTMSGS 00001 000094 03295
SCVTSW1  00001 000080 03297   2816
SETERR8  00004 000212 01025
SETRET4  00004 000420 01240   1236
SMFFQESV 00004 001538 03045
SMFPQESV 00004 001304 02931   1401  1457
SMFTCBSV 00004 001300 02930   1727  2048  2929  3046
SMF252   00001 00152A 03043
SPECERR  00004 000514 01350   1983  1986  1988
SPFRMAIN 00004 000928 01682   0966
SPFRMNSV 00002 000982 01712   1705  1707
SPFRMRET 00004 000990 01716   1714
                                             CROSS-REFERENCE                                                   PAGE   11


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SPFSTDQE 00004 0009AA 01725
SPID     00001 000009 03090   2593
SPIDSAV  00001 0012D8 02918   0026  0955  0976  1008  2594
SPOK     00001 00095E 01698   1694
SPQEDQE  00001 000004 03115   1716  1756  2440
SPQEFLGS 00001 000000 03112   1567  2433  2438
SPQEID   00001 000004 03114   1563  2430
SPQELAST 00001 000040 03117   1567  2433
SPQENXT  00001 000000 03113   1559  1565  1565  2435
SPQESHRD 00001 000080 03116   2438
SP243    00004 000EB0 02334   2319
SP244    00004 000EB0 02335   2320
SP245    00004 000EB0 02333   2321  2334  2335
SP250    00002 000EC0 02345   2326
SP251    00004 000ED2 02357   2327  2328
SP253    00002 000EDE 02366   2329
SP253FRE 00004 0009DA 01741   1713
SP253RET 00004 0009F0 01747   1741  1744
SP254    00004 000EDA 02362   2330
SP255    00004 000EE0 02370   2331
SQESPQE  00028 001298 02952   1100  1753  1789  2081  2370  2452  2467
SQSBOUND 00004 001298 02900   1750  2078
STNEWFQE 00004 000D6A 02165
STOLDFQE 00002 000DB2 02205   2197  2199
STPREVFQ 00004 000DAE 02200   2190
STRTSRCH 00002 000A8C 01825   1822
SUBPERR  00004 000DD4 02224   1779
SUPVPPSP 00004 000EC6 02350   2423
SVCBYTE  00001 001293 02894   0025  0817  0950  0977  1009  1593  1816  1982  2314  2392  2597  2805
SVCENTR  00004 00121E 02840   2837
SVCXT    00004 0012B8 02909   2807
SZDLCS   00004 0012A8 02904
SZDPRS   00004 0012A4 02903
TABLE    00004 000E7C 02319   2309  2311  2340
TCBABND  00001 00001D 03172
TCBABTRM 00001 000020 02878   1073
TCBAQE   00001 00009C 03181   1539  1540  1747  1866
TCBFA    00001 000080 02876   1071
TCBFCD1  00001 000021 03177
TCBFLG1  00001 00001D 02871   1071
TCBFLG2  00001 00001E 02872   1075
TCBFLG3  00001 00001F 02873   1073
TCBFMC   00001 00001E 03173
TCBFRA   00001 00001D 02947
TCBJPQ   00001 00002C 03179   1127  2752  2754  2755
TCBJSCB  00001 0000B4 02890   2833
TCBJSTCB 00001 00007C 03175   2357  2362  2751
TCBMC    00001 000018 02877   1075
TCBMSS   00001 000018 03176   1559  1560  1561  1562  2424
TCBPART  00004 0005C0 01438   1432  1434
TCBPART1 00002 0005DC 01446
TCBPKF   00001 00001C 03178   1390
TCBPQE   00001 000098 03180   1438  1726  1742  2044  2411  2494
TCBRBP   00001 000000 02870   1079
TCBSTABE 00001 000080 02880   1077
                                             CROSS-REFERENCE                                                   PAGE   12


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBSTAE  00001 0000A0 02875   1077
TCBTCB   00001 000074 03174   1124
TCBTCT   00001 0000A4 03066   2999  3001
TCBTCTGF 00001 000080 03051   2999
TCBTSFLG 00001 000094 02874   1135  2300  2492  2735  2831
TCBTSTSK 00001 000080 02879   1135  2300  2492  2735  2831
TCTCRTBL 00001 000008 03068   3005
TCTCSZE  00001 000010 03067
TCTHWM   00001 000004 03070   3013  3015  3017
TCTLWM   00001 000000 03069   3007  3009  3011
TCTMBC   00001 00000E 03073
TCTMINC  00001 000008 03071   3021  3032  3034
TCTRBC   00001 00000C 03072
TERM     00004 00025C 01054   1042
TSTALIN  00004 00146C 02606   2544  2551
TSTPRG   00004 000312 01127   1123
TWOK     00001 000800 03075   2275
TYPE     00001 000008 03092   1596
UPRREMCH 00002 000D88 02188   2175
VALIDCHK 00004 0012C4 02912   2537
VLNTH    00001 000004 03094   1631
VQEPTR   00004 0012AC 02905
WAIT     00004 001338 02958   1043  1053  1054  2813
WDTEST   00004 00148C 02615   2606
WORD     00001 001490 02616   2615
XCDDSTRY 00004 0012F0 02925   2768
XCDEXBAS 00004 0012EC 02924   2767
XRETRY   00004 0001E6 01008   1006



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  4122
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 4022 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM1.R0000091       SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM1.S0000092       SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM1.S0000092       DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG2     / START 78240.1944
IEF374I STEP /SG2     / STOP  78240.1944 CPU   0MIN 01.33SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:44:49.98   ALLOC START    19:44:49.99   MAIN REGION ----- 300K                          *
*   STEP NAME SG2        STEP END TIME  19:44:52.34   PGM START TIME 19:44:50.09   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.36   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:01.33   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 99       0250 ------------ 0       0250 ------------ 0       0151 ---------- 125       0151 ---------- 121    *
*   0151 ---------- 209       0353 ---------- 503       0151 ---------- 112       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM1  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1944
IEF374I STEP /ZEND    / STOP  78240.1944 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:44:52.35   ALLOC START    19:44:52.39   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:44:52.42   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.07   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM1  / START 78240.1944
IEF376I  JOB /R21AM1  / STOP  78240.1944 CPU   0MIN 01.33SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM1     JOB READ TIME 19:44:48.43   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.33   *
*   JOB CLASS A          JOB INIT TIME 19:44:49.98   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:02.45   *
*   ACCOUNT              JOB END TIME  19:44:52.43   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   2222222                                        A
            RRRRRRRRR  222222222      11        AAA     MM     MM  222222222                                      AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  22     22                                     AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM        22                                     AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM       22                                     AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      22                                      AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM     22                                       AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM    22                                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM   22222222                                   AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM  222222222                                   AA     AA

***********A  START   R21AM2     SYS SYSA   WTR 00E   07:45:08 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM2     START  A***********
***********A  START   R21AM2     SYS SYSA   WTR 00E   07:45:08 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM2     START  A***********
***********A  START   R21AM2     SYS SYSA   WTR 00E   07:45:08 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM2     START  A***********
***********A  START   R21AM2     SYS SYSA   WTR 00E   07:45:08 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM2     START  A***********
***********A  START   R21AM2     SYS SYSA   WTR 00E   07:45:08 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM2     START  A***********


//R21AM2 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG3 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEAQPRT0)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM2   SG3
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.44  8/28/78


IEAQPRT0  SD  01 000000 0005E8
DISPINIT  LD     0002F0         01
IEAMSTCB  ER  02
GOVRFLB   ER  03
IEA0AB01  ER  04
IEA0XE00  ER  05
MSSBASE   ER  06
GETMAINB  ER  07
IEA0DS02  ER  08
RMBRANCH  ER  09
CDPURGE   ER  0A
MRELEASE  ER  0B
SVCBYTE   ER  0C
FBQSRCH   ER  0D
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2          IEAQPR N,N,N
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      4+*2970,140400-140800,145100-145500,477480,547200                   9400
000000                                5+IEAQPRT0 CSECT
                                      6+         ENTRY DISPINIT SWS
                                      7+         EXTRN IEAMSTCB
                                      8+         EXTRN GOVRFLB
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     11+***********************************************************************
                                     12+***********************************************************************
                                     13+*    THE GETPART/FREEPART FUNCTION IS AN EXTENSION OF  GETMAIN        *
                                     14+*  (IEAQGM)    IT IS ENTERED VIA A BRANCH FROM GETMAIN WHEN SUBPOOL   *
                                     15+*     246-247-OR-248 HAS BEEN SPECIFIED. THE GETPART MACRO CAN BE     *
                                     16+*  ASSEMBLED WITH ANY OR ALL OF THREE OPTIONS -- '&LCS' INDICATING    *
                                     17+*  LCS SUPPORT, '&RORI' FOR SUPPORT OF ROLLOUT/ROLLIN, AND '&MPS'     *
                                     18+*  FOR MULTIPROCESSING SUPPORT.                                       *
                                     19+*                                                                    *
                                     20+*  ENTRIES TO GETPART INDICATE THE FOLLOWING                         *
                                     21+*                                                                    *
                                     22+*  SUBPOOL 247 - R-FORM  VIA SVC 10                                  *
                                     23+*                                                                    *
                                     24+*              R1 MINUS - GET PARTITION                              *
                                     25+*                                                                    *
                                     26+*              R1 PLUS OF ZERO - FREE PARTITION                      *
                                     27+*                                                                    *
                                     28+*              LIST FORM - VIA SVC 4                                 *
                                     29+*                                                                    *
                                     30+*              R1 - ZERO - GET PARTITION                             *
                                     31+*                                                                    *
                                     32+*              R1 - NON-ZERO - GET PARTITION AT THE ADDRESS          *
                                     33+*            SPECIFIED IN R1                                         *
                                     34+*                                                                    *
                                     35+* SUBPOOL 246   R-FORM   VIA SVC  10                                 *
                                     36+*                                                                    *
                                     37+*              FREE THE PRESENT PARTITION AND THEN GET ANOTHER       *
                                     38+*            OF THE SPECIFIED LENGTH                                 *
                                     39+*                                                                    *
                                     40+*              LIST FORM   VIA SVC 4                                 *
                                     41+*                                                                    *
                                     42+*              R1 - ZERO  SAME AS R-FORM                             *
                                     43+*                                                                    *
                                     44+*              R1 - NON-ZERO FREE PRESENT PARTITION AND OBTAIN NEW   *
                                     45+*            PARTITION AT ADDRESS SPECIFIED IN R1                    *
                                     46+*                                                                    *
                                     47+*  SUBPOOL 248  INDICATES REQUEST FROM ROLLOUT/ROLLIN                *
                                     48+*                                                                    *
                                     49+*  NOTE- THE LENGTHS OF REQUESTS ARE OBTAINED THE SAME AS IN GETMAIN *
                                     50+*                                                                    *
                                     51+*                                                                    *
                                     52+*  RETURNS FROM GETPART                                              *
                                     53+*                                                                    *
                                     54+*            RETURN= '00'  SUCCESSFUL IN OBTAINING PARTITION         *
                                     55+*                                                                    *
                                     56+*            RETURN = '04'  REQUEST CANNOT BE SATISFIED              *
                                     57+*         EC OR LC  ONLY                                             *
                                     58+*                                                                    *
                                     59+*            RETURN = '08' THE REQUEST IS NOT VALID - REQUEST IS TOO *
                                     60+*         LARGE OR FOR AN INVALID ADDRESS                            *
                                     61+*                                                                    *
                                     62+*            IF THE REQUEST IS UNCONDITIONAL AND CANNOT BE SATISFIED *
                                     63+*         BUT IS VALID THE REQUESTING TCB IS PLACED IN A WAIT FOR    *
                                     64+*         CORE                                                        *
                                     65+*                                                                    *
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     66+*                                                                    *
                                     67+*            IF A REQUEST IS MADE FOR A SPECIFIC ADDRESS AND CANNOT   *
                                     68+*                                                                    *
                                     69+*         NOW BE SATISFIED ALL FOLLOWING REQUESTS FOR CORE WILL      *
                                     70+*         NOT BE HONORED UNTIL THE ACTUAL ADDRESS REQUEST            *
                                     71+*         IS SATISFIED                                               *
                                     72+*                                                                    *
                                     73+*                                                                    *
                                     74+*                                                                    *
                                     75+***********************************************************************
                                     76+***********************************************************************
                                     77+*
                                     78+*


000000                               80+         DS    0D
000000 05B0                          81+         BALR  RBASE,0
000002                               82+         USING PART,RBASE
000002 90E1 B5AE            005B0    83+PART     STM   RRETURN,RIN1,RINSAVE SAVE INPUT REGISTERS
000006 D202 B5C2 B5CE 005C4 005D0    84+         MVC   SWITCHES(3),ZEROES
00000C 4170 00F7            000F7    85+         LA    RWORK2,247
000010 1957                          86+         CR    RSPID,RWORK2 IS THIS A FREE-GET REQUEST
000012 4740 B18A            0018C    87+         BL    FREXCHNG YES- SUBPOOL 246 SPECIFIED
000016 5860 B562            00564    88+CKSVCBYT L     RWORK1,ADSVCB ADDRESS OF SVC BYTE
00001A 9504 6000      00000          89+         CLI   0(RWORK1),4 IS THIS AN SVC 4
00001E 4780 B02A            0002C    90+         BE    SVC4 YES
000022 1211                          91+         LTR   RIN1,RIN1 IS REQUEST FREEPART
000024 47A0 B19E            001A0    92+         BC    10,FREEPART YES
000028 47F0 B17C            0017E    93+         B     REGREQ HAS TO BE REGISTER REQUEST FOR GETPART
00002C 9601 B5C2      005C4          94+SVC4     OI    SWITCHES,X'01' INDICATE REQUEST VIA SVC 4
000030 95FF B5C6      005C8          95+         CLI   WAITSW,X'FF' IS WAIT SW ON
000034 4780 B430            00432    96+         BE    CKTCB
000038 91DF 1008      00008          97+TCBOK    TM    8(RIN1),X'DF' TEST FOR ELEMENT REQUEST
00003C 4780 B182            00184    98+         BZ    ELEREQ


                                    100+*****                                                              ****
                                    101+*                                                                     *
                                    102+*                      THIS CODE OBTAINS THE  DESIRED PARTITION(S)    *
                                    103+*                                                                     *
                                    104+*****                                                              ****


000040 1861                         106+GPART    LR    RWORK1,RIN1
000042 4190 0000            00000   107+         LA    RWORK3,0 CLEAR TOTAL LENGTH REG
000046 5866 0000            00000   108+         L     RWORK1,0(RWORK1) PICK UP POINTER TO LENGTH LIST
00004A 5821 0004            00004   109+         L     RADDR,4(RIN1) PICK UP ADDRESS POINTER
00004E 5822 0000            00000   110+         L     RADDR,0(RADDR) PICK UP ADDRESS ENTRY
000052 5876 0000            00000   111+NLCSGP   L     RWORK2,0(RWORK1) PICK UP LENGTH
                                    112+***      THIS SECTION OF CODE DETERMINES THE NUMBER OF 2K    BL A59054
                                    113+*        BLOCKS NEEDED FOR A PARTITION AND GETS THEM         BL A59054
000056 4177 0000            00000   114+         LA    RWORK2,0(RWORK2) .       CLEAR HI BYTE        AC  M5282
00005A 41F0 07FF            007FF   115+         LA    RSIZE,2047 .                                  AC  M5282
00005E 180F                         116+         LR    RIN0,RSIZE .                                  AC  M5282
000060 1AF7                         117+         AR    RSIZE,RWORK2 .  RWORK2 CONTAINS THE LENGTH    AC  M5282
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000062 16F0                         118+         OR    RSIZE,RIN0 .                                  AC  M5282
000064 17F0                         119+         XR    RSIZE,RIN0 .                                  AC  M5282
000066 187F                         120+         LR    RWORK2,RSIZE .                                AC  M5282
000068 9580 6000      00000         121+         CLI   0(RWORK1),X'80' IS THIS THE END OF THE LIST
00006C 4770 B080            00082   122+         BNE   NOSET
000070 9604 B5C2      005C4         123+         OI    SWITCHES,X'04' SET END OF LIST SWITCH
000074 4122 0000            00000   124+         LA    RADDR,0(RADDR) .         INSURE REQUEST IS FOR H0  M6377
000078 1222                         125+         LTR   RADDR,RADDR CHECK FOR A SPECIFIC REQUEST
00007A 4770 B452            00454   126+         BNZ   GETSPEC
00007E 47F0 B090            00092   127+         B     ENDLST END OF LIST PROCESSING
000082 1222                         128+NOSET    LTR   RADDR,RADDR CHECK FOR A SPECIFIC ADDRESS
000084 4770 B452            00454   129+         BNZ   GETSPEC
000088 1A97                         130+NOTH1    AR    RWORK3,RWORK2 COMBINE LENGTH
00008A 4166 0004            00004   131+         LA    RWORK1,4(RWORK1) PICK UP PTR TO NEXT LENGTH
00008E 47F0 B050            00052   132+         B     NLCSGP
000092 1A79                         133+ENDLST   AR    RWORK2,RWORK3 COMBINE FINAL ENTRY
                                    134+****   CHECK FOR SUFFICIENT SPACE IN SQS
                                    135+*A REQUEST FOR A PARTITION WILL NOT BE SATISFIED UNLESS THERE IS   SWS
                                    136+*AT LEAST 2K OF QUEUE SPACE AVAILABLE.  THE 2K LIMIT WILL BE       SWS
                                    137+*COMPUTED BY SCANNING THE FREE QUEUE ELEMENTS. THE PURPOSE OF
                                    138+*THRESHOLD ON QUEUE SPACE IS TO PREVENT THE INITIATION OF NEW WORK SWS
                                    139+*WHENEVER AVAILABLE QUEUE SPACE FALLS BELOW THE PEAK QUEUE SPACE   SWS
                                    140+*REQUIREMENTS OF THE AVERAGE JOB.  THE REASON FORCOMPUTING THE 2K FROM
                                    141+*ONLY THOSE BLOCKS WHICH ARE EQUAL TO OR LARGER THAN 144 BYTES IS  SWS
                                    142+*TO MINIMIZE THE POSSIBILITY OF A E04 WAIT STATE BY INCREASING
                                    143+*THE AVERAGE SIZE OF THE FREE BLOCKS CLOSER TO THE AVERAGE SIZE    SWS
                                    144+*REQUEST GENERETED BY THE INITIATION OF NEW WORK.                  SWS
                                    145+*
                                    146+*        FORMAT OF GOVRFLB                                         SWS
                                    147+*
                                    148+*        ****************************************
                                    149+*        *                                       *
                                    150+*        * FLAG    *  UPPER BOUND OF             *                 SWS
                                    151+*  +0    *  BYTE   *                             *                 SWS
                                    152+*        *         *           S. Q. S.          *                 SWS
                                    153+*        *         *                             *
                                    154+*        *****************************************
                                    155+*        *                                       *
                                    156+*        *  ADDRESS  OF  D.Q.E.                  *                 SWS
                                    157+*  +4    *                                       *
                                    158+*        *   FOR S. Q. S.                        *                 SWS
                                    159+*        *                                       *
                                    160+*        *****************************************
                                    161+*        *                                       *
                                    162+*        *  ADDRESS OF  PQE                      *                 SWS
                                    163+*  +8    *                                       *
                                    164+*        * FOR AVAILABLE MAIN STORAGE            *                 SWS
                                    165+*        *                                       *
                                    166+*        *****************************************
                                    167+*        *                                       *
                                    168+*        *         AVAILABLE                     *                 SWS
                                    169+*  +12   *                                       *                 SWS
                                    170+*        *      CORE STORAGE SIZE IN H0          *                 SWS
                                    171+*        *                                       *
                                    172+*        *****************************************
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    173+*        *                                       *
                                    174+*        *  CORE STORAGE AVAILABLE IN H1         *                 SWS
                                    175+*   +16  *                                       *                 SWS
                                    176+*        *****************************************
                                    177+*        *                                       *
                                    178+*        *  ORIGIN OF THE VQE QUEUE FOR MP65     *                 SWS
                                    179+*  +20   *                                       *                 SWS
                                    180+*        *****************************************
                                    181+*        *                                       *
                                    182+*        * NIPSQSBD SQS BOUNDRY FOR NIP & RORI   *
                                    183+*  +24   *                                       *
                                    184+*        *****************************************
                                    185+*
                                    186+*
                                    187+*  FLAG BYTE AT OFFSET 0                                           SWS
                                    188+*
                                    189+*
                                    190+*  SET TO X'80' WHEN A TASK IA MADE NON-DISPATCHABLE BECAUSE       SWS
                                    191+* INSUFFICIENT QUEUE SPACE WAS AVAILABLE TO START NEW WORK.        SWS
                                    192+*  THIS FLAG BYTE WILL BE RESET TO ZERO WHENEVER EITHER A FREEPART SWS
                                    193+*IS ISSUED OR WHENEVER QUEUE SPACE IS FREED.                       SWS




000094 9180 B5C2      005C4         195+NOSET1   TM    SWITCHES,X'80' IS THIS AN EXCHANGE REQUEST   A29400
000098 4710 B0D0            000D2   196+         BO    COMP2KB YES, BYPASS CHECK ON SQS      A29400
00009C 1B22                         197+         SR    RADDR,RADDR A29400
00009E 5890 B54E            00550   198+         L     RWORK3,OVRFLB GOVRFLB
0000A2 5899 0004            00004   199+         L     RWORK3,4(RWORK3) PTR TO SQS AREA
0000A6 5899 0000            00000   200+         L     RWORK3,FQENXT(RWORK3) .  PTR TO FIRST FQE         A40395
0000AA 1299                         201+         LTR   RWORK3,RWORK3 END OF QUEUE
0000AC 4780 B0C4            000C6   202+         BZ    NOSQS YES-NO SQS AVAILABLE             @JK69023
0000B0 5A29 0004            00004   203+CKLOOP   A     RADDR,FQELNTH(RWORK3) INCR COUNT OF FREE SQS     A40395
0000B4 5920 B5E2            005E4   204+CKTTL    C     RADDR,SQSMIN IS THERE SUFFICIENT SYS QUE SPACE TO 3645
                                    205+*                             INITIATE A JOB STEP
0000B8 47A0 B0D0            000D2   206+         BC    10,COMP2KB YES, 2K OR MORE IS AVAILABLE.  GO
                                    207+*                                 TO PROCESS GETPART REQUEST       SWS
0000BC 5899 0000            00000   208+         L     RWORK3,FQENXT(RWORK3) .    PTR TO NEXT FQE        A40395
0000C0 1299                         209+         LTR   RWORK3,RWORK3 .            END OF QUEUE           A40395
0000C2 4770 B0AE            000B0   210+         BNE   CKLOOP .                 NO                       A40395
0000C6 5890 B54E            00550   211+NOSQS    L     RWORK3,OVRFLB NO-2K OF SQS IS NOT           SWS @JK69023
0000CA 9680 9000      00000         212+         OI    0(RWORK3),X'80' AVAILABLE.                      SWS
0000CE 47F0 B372            00374   213+         B     INITWAIT SET FLAG IN GOVRFLB AND MAKE TASKSWS
                                    214+*                                 NON-DISPATCHABLE                 SWS
0000D2                              215+COMP2KB  DS    0H SWS
                                    216+*****  THIS CODE DETERMINES IF THE REQUEST IS VALID
0000D2 5890 B54E            00550   217+         L     RWORK3,OVRFLB GOVRFLB
0000D6 5899 0008            00008   218+         L     RWORK3,8(RWORK3) DUMMY PQE - 8
0000DA 5899 000C            0000C   219+         L     RWORK3,PQEPREV(RWORK3) LAST OR ONLY PQE
0000DE 5899 0014            00014   220+CKPQEFND L     RWORK3,PQERGSZ(RWORK3) SIZE OF CORE DESCRIBED BY PQE
0000E2 4177 0000            00000   221+         LA    RWORK2,0(RWORK2) CLEAR HI ORDER BYTE
0000E6 1979                         222+         CR    RWORK2,RWORK3 IS REQUEST FOR MORE THAN IS
0000E8 4720 B32C            0032E   223+         BH    RTN08 AVAILABLE - BRANCH IF YES
                                    224+*        THIS SECTION OF CODE DETERMINES THE NUMBER OF 2K BLOCKS
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    225+*        NEEDED FOR A PARTITION AND GETS THEM
0000EC 4160 07FF            007FF   226+         LA    RWORK1,2047
0000F0 1896                         227+         LR    RWORK3,RWORK1
0000F2 1A67                         228+         AR    RWORK1,RWORK2 RWORK2 CONTAINS THE LENGTH
0000F4 1669                         229+         OR    RWORK1,RWORK3
0000F6 1769                         230+         XR    RWORK1,RWORK3
0000F8 5870 B566            00568   231+         L     RCOMRET1,FBSRCH
0000FC 0577                         232+         BALR  RCOMRET1,RCOMRET1
                                    233+** OUTPUT OF FBQSRCH  RBLOCK = ADDRESS OF FIRST AVAILABLE BLOCK (14)
                                    234+****                  RSIZE  = NUMBER OF BYTES (15)
0000FE 47F0 B104            00106   235+COREOK   B     CKONEDN CORE HAS BEEN OBTAINED
000102                              236+SRTN04   DS    0H FROM SPECIFIC REQUEST WHEN UNSATISFIED
000102 47F0 B334            00336   237+         B     RTN04
000106                              238+CKONEDN  DS    0H
000106 5830 B546            00548   239+         L     QGM2BS,DBASADR .            LOAD QGM'S 2ND BAS     M2883
00010A 5A30 B542            00544   240+         A     QGM2BS,CON1K .      ADD 1 K DISP FOR 2ND BAS       M2883
00010E 9180 B5C2      005C4         241+         TM    SWITCHES,X'80' IS THIS AN EXCHANGE REQUEST
000112 4710 B532            00534   242+         BO    PQENH1A DO NOT OBTAIN CORE FOR PQE'S
000116 4110 0008            00008   243+         LA    RIN1,DUMPQESZ LENGTH NEED FOR PQE
00011A 5890 B54A            0054C   244+         L     RCOMRET,PQEMAIN
00011E 0599                         245+         BALR  RCOMRET,RCOMRET GETMAIN FOR DUMMY
000120 4B10 B5D4            005D6   246+         SH    RIN1,DUMQELTH+2 TCB POINTS TO DUMMY - 8
000124 5014 0098            00098   247+         ST    RIN1,TCBPQE(RTCB) INITIALIZE TCBPQE TO POINT TO DUMMY
000128 4110 0020            00020   248+NODUMMY  LA    RIN1,PQESIZE
00012C 5890 B54A            0054C   249+         L     RCOMRET,PQEMAIN
000130 0599                         250+         BALR  RCOMRET,RCOMRET GETMAIN FOR PQE
000132 501E 0000            00000   251+PQENH1   ST    RIN1,FWDPTR(RBLOCK) INITIALIZE FBQE BACKWARD POINTER
000136 501E 0004            00004   252+         ST    RIN1,BCKPTR(RBLOCK) INITIALIZE FBQE BACKWRD POINTER
00013A 50FE 0008            00008   253+         ST    RSIZE,FBQESIZE(RBLOCK) PUT SIZE IN FBQE
00013E 50E1 0018            00018   254+         ST    RBLOCK,PQESTADD(RIN1) INITIALIZE REGION START ADDR
000142 50F1 0014            00014   255+         ST    RSIZE,PQERGSZ(RIN1) INITIALIZE REGION SIZE
000146 50E1 0000            00000   256+         ST    RBLOCK,FWDPTR(RIN1) INITIALIZE PQE FORWARD POINTER
00014A 50E1 0004            00004   257+         ST    RBLOCK,BCKPTR(RIN1) INITIALIZE PQE BACKWARD POINTER
00014E 9180 B5C2      005C4         258+         TM    SWITCHES,X'80' CHECK FOR EXCHANGE REQUEST
000152 4710 B164            00166   259+         BO    CKENDLST SKIP PQE POINTER INITIALIZATION
000156 5041 0010            00010   260+         ST    RTCB,PQETCB(RIN1) INITIALIZE  PQE TCB POINTER
00015A 5864 0098            00098   261+         L     RWORK1,TCBPQE(RTCB) PICK UP DUMMY
00015E 5016 0008            00008   262+         ST    RIN1,PQENXT(RWORK1) SET UP DUMMY TO POINT TO PQE
000162 5016 000C            0000C   263+         ST    RIN1,PQEPREV(RWORK1)
000166                              264+CKENDLST DS    0H
000166 9108 B5C2      005C4         265+         TM    SWITCHES,X'08' WAS REQUEST ACTUAL
00016A 4710 B178            0017A   266+         BO    LISTENCK YES DON'T GET CORE IN SUBPOOL 252
00016E 5800 B5DA            005DC   267+GET252   L     RIN0,RESERVE SET UP TO GET 8 BYTES FROM SP 252
000172 1311                         268+         LCR   RIN1,RIN1 TO RESERVE 2K BLOCK
000174 58E0 B556            00558   269+         L     RBLOCK,REGMAIN
000178 05EE                         270+         BALR  RBLOCK,RBLOCK
00017A                              271+LISTENCK DS    0H
00017A 47F0 B2CA            002CC   272+         B     COMRTN0
00017E 187A                         273+REGREQ   LR    RWORK2,RLENGTH LENGTH OF REGION REQUEST AND SPID
000180 47F0 B186            00188   274+         B     SETLSTED
000184 5871 0000            00000   275+ELEREQ   L     RWORK2,0(RIN1) LENGTH OF REGION REQUEST
000188                              276+SETLSTED DS    0H
000188 47F0 B092            00094   277+         B     NOSET1
00018C 9680 B5C2      005C4         278+FREXCHNG OI    SWITCHES,X'80' INDICATE REQUEST IS EXCHANGE
000190 5860 B562            00564   279+         L     RWORK1,ADSVCB ADDRESS OF SVC BYTE
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000194 9504 6000      00000         280+         CLI   0(RWORK1),4 IS THIS AN SVC 4
000198 4770 B19E            001A0   281+         BNE   FREEPART
00019C 9601 B5C2      005C4         282+         OI    SWITCHES,X'01' INDICATE SVC 4
0001A0 58D0 B55A            0055C   283+FREEPART L     RRET,PURGE
0001A4 05DD                         284+         BALR  RRET,RRET BRANCH TO COPURGE
0001A6 4700 B1A8            001AA   285+         NOP   *+4
0001AA 95FF B5C6      005C8         286+         CLI   WAITSW,X'FF' WAIT SWITCH ON
0001AE 4780 B43C            0043E   287+         BE    WAITOFF
0001B2 4590 B2EE            002F0   288+         BAL   RCOMRET,DISPINIT

                                    290+*
                                    291+*        THIS ROUTINE RELEASES THE EIGHT BYTES IN SUBPOOL 252 USED TO
                                    292+*        RESERVE A 2K BLOCK
                                    293+*
0001B6                              294+SUBPOLCK EQU   * ENTRY TO RELEASE STORAGE        MP1A
0001B6 58C4 0018            00018   295+         L     RSPQE,TCBMSS(RTCB) PICK UP ADDRESS OF FIRST SPQE   MP1A
0001BA 41CC 0000            00000   296+         LA    RSPQE,0(RSPQE) CLEAR HI ORDER BYTE
0001BE 12CC                         297+         LTR   RSPQE,RSPQE Q-TCBMSS ZERO                   MP2K
0001C0 4780 B368            0036A   298+         BZ    RETURN YES EXIT                        MP2K
0001C4 47F0 B1CA            001CC   299+         B     SPQE252B
0001C8 58CC 0000            00000   300+SPQE252  L     RSPQE,0(RSPQE) PICK UP NEXT SPQE
0001CC 95FC C004      00004         301+SPQE252B CLI   SPQID(RSPQE),252 IS IT SPQE FOR SUBPOOL 252
0001D0 4780 B1DE            001E0   302+         BE    SPQE252A
0001D4 9140 C000      00000         303+         TM    SPQEFLGS(RSPQE),SPQELAST
0001D8 4710 B20C            0020E   304+         BC    1,SPQECHK2 LAST SPQE
0001DC 47F0 B1C6            001C8   305+         B     SPQE252 CHECK NEXT SPQE
0001E0 582C 0004            00004   306+SPQE252A L     RDQE,SPQEDQE(RSPQE) PICK UP ADDRESS OF DQE
0001E4 4122 0000            00000   307+         LA    RDQE,0(RDQE)
0001E8 1222                         308+         LTR   RDQE,RDQE HAS SUBPOOL 252 BEEN FREED
0001EA 4780 B20C            0020E   309+         BZ    SPQECHK2 YES
0001EE 5872 0000            00000   310+         L     RFQE,DQEFQE(RDQE) PICK UP ADDRESS OF FQE
0001F2 5817 0004            00004   311+         L     RIN1,FQELNTH(RFQE) PICK UP LENGTH FROM FQE
0001F6 5910 B5DE            005E0   312+         C     RIN1,FQE252 IS 2K BLOCK FREE EXCEPT FOR 8 BYTES    3645
0001FA 4770 B3B6            003B8   313+         BNE   GERROR2 ALL CORE NOT FREE   (GERROR2)
0001FE 4177 0000            00000   314+         LA    RFQE,0(RFQE) CLEAR HIGH ORDER BYTE
000202 1A17                         315+         AR    RIN1,RFQE COMPUTE ADDRESS OF CORE TO BE FREED
000204 5800 B5DA            005DC   316+         L     RIN0,RESERVE SET UP REG 0 FOR REGMAIN
000208 58E0 B556            00558   317+         L     RRETURN,REGMAIN PICK UP ADDRESS OF REGMAIN
00020C 05EE                         318+         BALR  RRETURN,RRETURN FREE 8 BYTES USED TO RESERVE 2K BLCOK

00020E 58C4 0018            00018   320+SPQECHK2 L     RSPQE,TCBMSS(RTCB) PICK UP SPQE POINTER
000212 41CC 0000            00000   321+         LA    RSPQE,0(RSPQE) CLEAR HI ORDER BYTE
000216 12CC                         322+         LTR   RSPQE,RSPQE Q-TCBMSS ZERO                   MP2K
000218 4780 B368            0036A   323+         BZ    RETURN YES EXIT                        MP2K
00021C 582C 0004            00004   324+SPQECHK  L     RDQE,SPQEDQE(RSPQE) PICK UP DQE POINTER FROM SPQE
000220 9180 C000      00000         325+         TM    SPQEFLGS(RSPQE),SPQESHRD IS THIS A SHARED SUBPOOL
000224 4780 B22A            0022C   326+         BZ    NOSHARE1 NO NOT SHARED
000228 5822 0004            00004   327+         L     RDQE,SPQEDQE(RDQE) PICK UP DQE POINTER FROM OWNER
00022C 4122 0000            00000   328+NOSHARE1 LA    RDQE,0(RDQE) CLEAR HI ORDER BYTE
000230 1222                         329+         LTR   RDQE,RDQE ANY STORAGE ASSIGNED TO SUBPOOL
000232 4770 B3B6            003B8   330+         BC    7,GERROR2 ERROR
000236 9140 C000      00000         331+         TM    SPQEFLGS(RSPQE),SPQELAST IS THIS LAST SPQE
00023A 4710 B244            00246   332+         BO    FREEPQE YES
00023E 58CC 0000            00000   333+         L     RSPQE,SPQENXT(RSPQE) NO- PICK UP POINTER TO NEXT SPQE
000242 47F0 B21A            0021C   334+         B     SPQECHK CHECK NEXT SUBPOOL
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000246                              335+FREEPQE  DS    0H
000246 5814 0098            00098   336+         L     RIN1,TCBPQE(RTCB) PICK UP ADDRESS OF DUMMY
00024A 4111 0000            00000   337+         LA    RIN1,0(RIN1) . CLEAR HIGH ORDER BYTE            @JK69389
00024E 1211                         338+         LTR   RIN1,RIN1 .    IS  IT ZERO                      @JK69389
000250 4780 B368            0036A   339+         BZ    RETURN .       YES                              @JK69389
000254 5811 0008            00008   340+         L     RIN1,DUMFWD(RIN1) PICK UP PQE ADDRESS
000258 5010 B5CA            005CC   341+         ST    RIN1,PQESAVE SAVE PQE ADDR FOR USE IN GETPART
00025C 58E1 0000            00000   342+         L     RBLOCK,FWDPTR(RIN1) ADDRESS OF PARTITION
000260 58FE 0008            00008   343+         L     RSIZE,FBQESIZE(RBLOCK) PICK UP PARTITION SIZE
000264 5820 B54E            00550   344+         L     RPQE,OVRFLB
000268 5822 0008            00008   345+         L     RPQE,8(RPQE) ADDRESS OF SYSTEM DUMMY
00026C 5822 000C            0000C   346+         L     RPQE,DUMBWD(RPQE)
000270 5890 B55E            00560   347+         L     RCOMRET,RELEASE
000274 0599                         348+         BALR  RCOMRET,RCOMRET RELEASE PARTITION
000276 9180 B5C2      005C4         349+         TM    SWITCHES,X'80' .         IS THIS AN EXCHANGE      A36202
00027A 4710 B2B4            002B6   350+         BO    YESEXCH1 .                   REQUEST              A36202
00027E 5814 0098            00098   351+         L     RIN1,TCBPQE(RTCB) ADDRESS OF DUMMY
000282 5811 0008            00008   352+         L     RIN1,DUMFWD(RIN1) ACTUAL PQE
000286 5891 0010            00010   353+         L     OWNGTCB,PQETCB(RIN1) .   GET OWING TCB        BL   M0459
00028A 5800 B5D6            005D8   354+         L     RIN0,QELNTH SET REG 0 FOR REGMAIN
00028E 58E0 B556            00558   355+         L     RRETURN,REGMAIN
000292 05EE                         356+         BALR  RRETURN,RRETURN FREE REAL PQE
000294 5814 0098            00098   357+ALLBUTDM L     RIN1,TCBPQE(RTCB) POINTER TO DUMMY - 8
000298 4111 0008            00008   358+         LA    RIN1,8(RIN1) POINTER TO DUMMY
00029C 5800 B5D2            005D4   359+         L     RIN0,DUMQELTH SET REG 0 FOR REGMAIN FOR DUMMY
0002A0 58E0 B556            00558   360+         L     RRETURN,REGMAIN
0002A4 D703 9098 9098 00098 00098   361+         XC    TCBPQE(4,OWNGTCB),TCBPQE(OWNGTCB) . 0 TCBPQE  BL   M0459
0002AA D703 4098 4098 00098 00098   362+         XC    TCBPQE(4,RTCB),TCBPQE(RTCB) SET TCB POINTER TO ZERO
0002B0 05EE                         363+         BALR  RRETURN,RRETURN
0002B2 47F0 B3AE            003B0   364+         B     RTN00
0002B6 98E1 B5AE            005B0   365+YESEXCH1 LM    RRETURN,RIN1,RINSAVE
0002BA 9101 B5C2      005C4         366+         TM    SWITCHES,X'01' IS REQUEST SVC 4
0002BE 4710 B03E            00040   367+         BO    GPART
0002C2 18A0                         368+         LR    RLENGTH,RIN0 SWS
0002C4 41AA 0000            00000   369+         LA    RLENGTH,0(RLENGTH) CLEAR HIGH ORDER BYTE           I283
0002C8 47F0 B17C            0017E   370+         B     REGREQ
0002CC                              371+COMRTN0  DS    0H
0002CC 91C0 B5C2      005C4         372+         TM    SWITCHES,X'C0' IS THIS AN EXCHANGE OR RORI REQ. ?
0002D0 4770 B3AE            003B0   373+         BNZ   RTN00 YES
0002D4 95FF B5C6      005C8         374+         CLI   WAITSW,X'FF' WAIT SW ON
0002D8 4770 B3AE            003B0   375+         BNE   RTN00 NO RETURN
0002DC 9108 B5C2      005C4         376+         TM    SWITCHES,X'08' G/P SPEC REG       M3865
0002E0 4780 B3AE            003B0   377+         BZ    RTN00 NO RETURN         M3865
0002E4 4590 B2EE            002F0   378+         BAL   RCOMRET,DISPINIT SET INITIATORS WAITING FOR A REGION
                                    379+***                          DISPATCHABLE
0002E8 9200 B5C6      005C8         380+         MVI   WAITSW,X'00' TURN OFF WAIT SW
0002EC 47F0 B3AE            003B0   381+         B     RTN00
                                    382+*
                                    383+*
                                    384+*  THIS ROUTINE IS ENTERED TO SCAN THE TCB READY QUEUE FOR TASKS   SWS
                                    385+* WHICH ARE NON-DISPATCHABLE EITHER BECAUSE A GETPART COULD NOT BE SWS
                                    386+* SATISFIED OR BECAUSE THE 2K THRESHOLD ON QUEUE SPACE HAD BEEN    SWS
                                    387+* REACHED.                                                         SWS
                                    388+*  IT IS ENTERED EITHER WHEN A FREEPART IS ISSUED OR A FREEMAIN FORSWS
                                    389+* QUEUE SPACE.                                                     SWS
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    390+*  IT WILL RESET THE FLAG IN GOVRFLB IN ORDER TO PREVENT FREEMAIN  SWS
                                    391+* FROM EXECUTING THIS ROUTINE WHEN IT IS NOT NECESSARY.            SWS
                                    392+*  FREEMAIN E WILL EXECUTE THIS SUBROUTINE ONLY WHEN THE FLAG      SWS
                                    393+* IS ON.                                                           SWS




0002F0 900F B56A            0056C   395+DISPINIT STM   RIN0,RSIZE,RIPSAVE SAVE ALL XRS                    SWS
0002F4 5830 B54E            00550   396+         L     RCVT,OVRFLB GET ADDRESS OF GOVRFLB           SWS
0002F8 947F 3000      00000         397+         NI    0(RCVT),X'7F' RESET GOVRFLB FLAG            A29400
0002FC 5830 0010            00010   398+         L     RCVT,16(0) LOAD CVT POINTER
000300 58A3 00A0            000A0   399+         L     TSWCH,CVTHEAD(RCVT) LOAD HIGHEST PRIORITY TCB IN SYSTEM
000304 12AA                         400+RIP1     LTR   TSWCH,TSWCH ARE WE AT END OF READY QUEUE
000306 4770 B30E            00310   401+         BC    7,RIP2 YES - RETURN
00030A 980F B56A            0056C   402+         LM    RIN0,RSIZE,RIPSAVE RESTORE XRS                     SWS
00030E 07F9                         403+         BR    RCOMRET
000310 9102 A021      00021         404+RIP2     TM    TCBFCD1(TSWCH),2 IS TCB IN WAIT FOR CORE
000314 4780 B324            00326   405+         BZ    RIP3 NO - GET NEXT TCB
000318 94FD A021      00021         406+         NI    TCBFCD1(TSWCH),X'FD' TURN OFF WAIT BIT
00031C 18CB                         407+         LR    RSWCH,RBASE SAVE BASE REGISTER OVER TSWITCH
00031E 58B0 B552            00554   408+         L     RBASE,TASKSWCH GO TO TASK SWITCH ROUTINE
000322 05EB                         409+         BALR  RRETURN,RBASE
000324 18BC                         410+         LR    RBASE,RSWCH RESTORE BASE REG
000326 58AA 0074            00074   411+RIP3     L     TSWCH,TCBTCB(TSWCH) NEXT TCB ON READY QUEUE
00032A 47F0 B302            00304   412+         B     RIP1
00032E 41F0 0008            00008   413+RTN08    LA    RRETREG,8
000332 47F0 B368            0036A   414+         B     RETURN
000336 41F0 0004            00004   415+RTN04    LA    RRETREG,4
00033A 9108 B5C2      005C4         416+         TM    SWITCHES,X'08' WAS REQUEST SPECIFIC
00033E 4780 B354            00356   417+         BZ    CKFORIWT
000342 5860 B5BA            005BC   418+         L     RWORK1,RINSAVE+12 R1 AT ENTRY                 @AS75900
000346 9120 6008      00008         419+         TM    8(RWORK1),X'20' CONDITIONAL REQUEST         @AS75900
00034A 4710 B368            0036A   420+         BO    RETURN YES,NO WAIT NEEDED          @AS75900
00034E 92FF B5C6      005C8         421+         MVI   WAITSW,X'FF' TURN ON WAIT SW
000352 5040 B5AA            005AC   422+         ST    RTCB,TCBSAVE
000356 9101 B5C2      005C4         423+CKFORIWT TM    SWITCHES,X'01' IS REQUEST SVC 4
00035A 4780 B372            00374   424+         BZ    INITWAIT NO CAN'T BE A CONDITIONAL REQUEST
00035E 5860 B5BA            005BC   425+         L     RWORK1,RINSAVE+12 R1 WHEN ENTERED
000362 9120 6008      00008         426+         TM    8(RWORK1),X'20' WAS REQUEST CONDITIONAL
000366 4780 B372            00374   427+         BZ    INITWAIT NO - NOT CONDITIONAL
00036A 58E0 B5AE            005B0   428+RETURN   L     RRETURN,RINSAVE
00036E 9801 B5B6            005B8   429+         LM    RIN0,RIN1,RINSAVE+8 RESTORE REGS
000372 07FE                         430+NORORI   BR    RRETURN RETURN
000374 9602 4021      00021         431+INITWAIT OI    TCBFCD1(RTCB),2 INDICATE INITIATOR WAITING FOR
                                    432+**                             PARTITION OR SQS SPACE
000378 D703 4098 4098 00098 00098   433+         XC    TCBPQE(4,RTCB),TCBPQE(RTCB)
00037E 5860 0024            00024   434+         L     RWORK1,36 LOAD RIGHT HALF OF PSW
000382 4170 0002            00002   435+         LA    RWORK2,2
000386 1266                         436+         LTR   RWORK1,RWORK1 TEST ILC                         @JK69024
000388 47B0 B38C            0038E   437+         BNM   STUPRISS .     ILC FOR HALF WORD                @JK69024
00038C 1A77                         438+         AR    RWORK2,RWORK2 ILC FOR FULL WORD                @JK69024
00038E 1B67                         439+STUPRISS SR    RWORK1,RWORK2 ADDRESS FOR REISSUE              @JK69024
000390 5060 0024            00024   440+         ST    RWORK1,36 STORE PSW
000394 5830 0010            00010   441+         L     RCVT,16(0) RELOAD CVT ADDR
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000398 5893 0000            00000   442+         L     RWORK3,CVTTCB(RCVT) LOAD ADDRESS OF NEW
00039C D503 9000 9004 00000 00004   443+         CLC   0(4,RWORK3),4(RWORK3)
0003A2 4770 B368            0036A   444+         BNE   RETURN .
0003A6 1B66                         445+         SR    RWORK1,RWORK1
0003A8 5069 0000            00000   446+         ST    RWORK1,0(RWORK3) SET NEW TO 0  CAUSE TASK SWITCH
0003AC 47F0 B368            0036A   447+         B     RETURN .
0003B0 41F0 0000            00000   448+RTN00    LA    RRETREG,0
0003B4 47F0 B368            0036A   449+         B     RETURN
0003B8 4110 020A            0020A   450+GERROR2  LA    RIN1,X'20A' SUBTASKS EXIST FOR THE TASK REQUESTING GET,
                                    451+***            FREE,OR REPLACE PARTITION
0003BC 58E0 B53E            00540   452+         L     RRETURN,SVCXT LOAD ADD OF SVC EXIT ROUTINE     8499
0003C0 5840 0010            00010   453+         L     RTCB,16(0) GET THE CVT ADDRESS              8499
0003C4 5844 0000            00000   454+         L     RTCB,0(RTCB) GET THE NEW/OLD DOUBLE WD (PSW)  8499
0003C8 5844 0004            00004   455+         L     RTCB,4(RTCB) TCB OF CURRENT TASK TO ABTERM    8499
0003CC 9180 4094      00094         456+         TM    TCBTSTSK(RTCB),TSOTASK .IF TSO TASK, THEN          21016
0003D0 4710 B426            00428   457+         BO    GERROR2C .                DON'T MAKE ENTRY         21016
0003D4 5830 0010            00010   458+         L     RCVT,16(0) .            ADDR CVT                   21016
0003D8 5833 010C            0010C   459+         L     RCVT,CVTQMSG(RCVT) .    ADDR INFOLIST              21016
0003DC 58D3 0000            00000   460+         L     RABTERM,0(RCVT) .       END OF INFOLIST         AC 21016
0003E0 4133 0004            00004   461+         LA    RCVT,4(RCVT) .          FIRST ENTRY                21016
                                    462+*                                                                 21016
000000                              463+         USING INFOLIST,RCVT .                                    21016
                                    464+*                                                                 21016
0003E4 193D                         465+GERROR2A CR    RCVT,RABTERM .         NO ROOM FOR ENTRY          21016
0003E6 47B0 B426            00428   466+         BNL   GERROR2C .               - THEN BYPASS          AC 21016
0003EA D503 B5CE 3004 005D0 00004   467+         CLC   ZEROES,INFTCB .         THIS ENTRY AVAILABLE?      21016
0003F0 4780 B3FA            003FC   468+         BE    GERROR2B .              YES. GO SET UP INFO        21016
0003F4 4133 0020            00020   469+         LA    RCVT,INFLEN(RCVT) .     NO. CHECK IF MORE ENTRIES  21016
0003F8 47F0 B3E2            003E4   470+         B     GERROR2A .              SEARCH ALL ENTRIES.        21016
0003FC 5040 3004            00004   471+GERROR2B ST    RTCB,INFTCB .           SET UP TCB ADDRESS         21016
000400 9180 4094      00094         472+         TM    TCBTSTSK(RTCB),TSOTASK . IS THIS A TSO TASK    AC A49808
000404 4780 B414            00416   473+         BZ    ERRM2 .                 NO, BYPASS USERID      AC A49808
000408 58D4 00B4            000B4   474+         L     Q13,TCBJSCB(RTCB) .     ADDR OF JSCB           AC A49808
00040C 41DD 0000            00000   475+         LA    Q13,0(Q13) .            CLEAR HI BYTE          AC A49808
000410 D201 3002 D10C 00002 0010C   476+         MVC   INFTJID(2),JSCBTJID(Q13) .USER ID IN INFO LIST AC A49808
000416                              477+ERRM2    EQU   * .                                            AC A49808
000416 4010 300E            0000E   478+         STH   RIN1,INFCC .            SET COMPLETION CODE        21016
00041A 5040 3010            00010   479+         ST    RTCB,INFVAR1 .          @TCB                       21016
00041E D200 3014 C004 00014 00004   480+         MVC   INFVAR2(1),4(RSPQE) .   SPID                       21016
000424 9605 300C      0000C         481+         OI    INFRCL,X'05' .          LENGTH                     21016
                                    482+         DROP  RCVT 21016
000428 58D0 B53A            0053C   483+GERROR2C L     RABTERM,ABTERM .                                   21016
00042C 5830 0010            00010   484+         L     RCVT,16(0) .        GET CVT ADDR FOR ABTERM   BL   M1531
000430 07FD                         485+         BR    RABTERM
000432 5940 B5AA            005AC   486+CKTCB    C     RTCB,TCBSAVE IS THIS THE INITIATOR THAT IS
000436 4780 B036            00038   487+         BE    TCBOK WAITING - TRY FOR REGION
00043A 47F0 B372            00374   488+         B     INITWAIT
00043E 58A0 B5AA            005AC   489+WAITOFF  L     TSWCH,TCBSAVE ADDR OF WAITING TCB
000442 94FD A021      00021         490+         NI    TCBFCD1(TSWCH),X'FD' TURN OFF WAIT BIT
000446 18CB                         491+         LR    RSWCH,RBASE SAVE BASE REGISTER OVER TSWITCH
000448 58B0 B552            00554   492+         L     RBASE,TASKSWCH YES- GO TO TASK SWITCH ROUTINE
00044C 05EB                         493+         BALR  RRETURN,RBASE
00044E 18BC                         494+         LR    RBASE,RSWCH RESTORE BASE REGISTER
000450 47F0 B1B4            001B6   495+         B     SUBPOLCK
                                    496+***********************************************************************
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    497+*        THIS SECTION OF CODE OBTAINS CORE AT AN ACTUAL ADDRESS       *
                                    498+*                                                                     *
                                    499+*        OUTPUT =  RSISE= SIZE OF REGION OBTAINED IN BYTES            *
                                    500+*                                                                     *
                                    501+*                  RBLOCK=ADDRESS OF REGION OBTAINED                  *
                                    502+*                                                                     *
                                    503+*        RETURNS- COREOK = REGION OBTAINED                            *
                                    504+*                                                                     *
                                    505+*                SRTN04 = REGION CANNOT NOW BE OBTAINED               *
                                    506+*                                                                     *
                                    507+*                SRTN08 = INVALID REQUEST                             *
                                    508+*                                                                     *
                                    509+***********************************************************************
000454 9608 B5C2      005C4         510+GETSPEC  OI    SWITCHES,X'08' INDICATE REQUEST SPECIFIC
000458 4177 0000            00000   511+         LA    RWORK2,0(RWORK2) CLEAR END OF LIST INDICATOR
00045C 5860 B54E            00550   512+         L     RWORK1,OVRFLB GOVRFLB
000460 5866 0008            00008   513+         L     RWORK1,8(RWORK1) POINTER TO DUMMY  -  8
000464 5866 0008            00008   514+         L     RWORK1,PQENXT(RWORK1) POINTER TO FIRST OR ONLY PQE
000468 5926 0018            00018   515+RETRY    C     RADDR,PQESTADD(RWORK1) IS THIS A VALID REQUEST
00046C 4740 B526            00528   516+         BL    SRTN08 INVALID REQUEST NOT WITHIN FREE CORE
000470 5896 0018            00018   517+         L     RWORK3,PQESTADD(RWORK1) BEGIN ADDRESS OF SYSTEM PQE
000474 5A96 0014            00014   518+         A     RWORK3,PQERGSZ(RWORK1) END ADDRESS +1 OF SYSTEM REGION
000478 1929                         519+         CR    RADDR,RWORK3 IS REQUEST VALID FOR THIS PQE
00047A 47B0 B526            00528   520+         BNL   SRTN08
00047E 5070 B5BE            005C0   521+         ST    RWORK2,WK2SV
000482 1A72                         522+         AR    RWORK2,RADDR END ADDRESS + 1 OF REQUESTED REGION
000484 1979                         523+         CR    RWORK2,RWORK3 IS THIS AN INVALID REQUEST
000486 4720 B526            00528   524+         BH    SRTN08
00048A 1836                         525+         LR    RWORK6,RWORK1 PQE ADDRESS
00048C 5833 0000            00000   526+FBQELOOP L     RWORK6,FWDPTR(RWORK6) PICK UP ADDRESS OF FBQE
000490 1963                         527+         CR    RWORK1,RWORK6 END OF FBQE CHAIN
000492 4780 B100            00102   528+         BE    SRTN04
000496 1932                         529+         CR    RWORK6,RADDR IS FBQE START GREATER THAN DESIRED
000498 4720 B100            00102   530+         BH    SRTN04 YES REQUEST CANNOT BE SATISFIED
00049C 58A3 0008            00008   531+         L     RWORK4,FBQESIZE(RWORK6)
0004A0 1AA3                         532+         AR    RWORK4,RWORK6 END ADDR + 1 OF SEGMENT DESCRIBED BY FBQE
0004A2 19A2                         533+         CR    RWORK4,RADDR IS END ADDRESS GREATER THAN DESIRED
0004A4 4740 B48A            0048C   534+         BL    FBQELOOP
0004A8 197A                         535+         CR    RWORK2,RWORK4 IS END ADDR OF REQ GREATER THAN END ADDR
0004AA 4720 B100            00102   536+         BH    SRTN04 OF FBQE - YES - CANNOT BE SATISFIED
0004AE 18F2                         537+         LR    RSIZE,RADDR MP2A
0004B0 1BF3                         538+         SR    RSIZE,RWORK6 DESIRED START MINUS FBQE START
0004B2 12FF                         539+         LTR   RSIZE,RSIZE BOTH STARTS EQUAL
0004B4 4780 B52A            0052C   540+         BZ    SET1
0004B8 50F3 0008            00008   541+         ST    RSIZE,FBQESIZE(RWORK6)
0004BC 1BA7                         542+OTHREND  SR    RWORK4,RWORK2 END ADDR OF FBQE (-) END ADDR OF REQUEST
0004BE 18E2                         543+         LR    RBLOCK,RADDR
0004C0 58F0 B5BE            005C0   544+         L     RSIZE,WK2SV
0004C4 12AA                         545+         LTR   RWORK4,RWORK4 RESULT ZERO
0004C6 4780 B50A            0050C   546+         BZ    CKSWX
0004CA 9120 B5C3      005C5         547+         TM    SWITCHES+1,X'20' IS NEW FBQE NEEDED
0004CE 4710 B4EC            004EE   548+         BO    USEOLD NO
0004D2 50A7 0008            00008   549+         ST    RWORK4,FBQESIZE(RWORK2)
0004D6 5823 0000            00000   550+         L     RADDR,FWDPTR(RWORK6) OLD FBQE FWD PTR NOW NEW FWD
0004DA 5027 0000            00000   551+         ST    RADDR,FWDPTR(RWORK2)
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0004DE 5072 0004            00004   552+         ST    RWORK2,BCKPTR(RADDR) OLD BACK NOW POINTS TO NEW
0004E2 5037 0004            00004   553+         ST    RWORK6,BCKPTR(RWORK2) OLD IS NOW PREVIOUS TO NEW
0004E6 5073 0000            00000   554+         ST    RWORK2,FWDPTR(RWORK6) NEW FWD TO PREVIOUS OLD
0004EA 47F0 B0FC            000FE   555+         B     COREOK
0004EE D207 7000 3000 00000 00000   556+USEOLD   MVC   0(8,RWORK2),0(RWORK6) MOVE FWD/BCK PTRS TO NEW LOCATION
0004F4 50A7 0008            00008   557+         ST    RWORK4,FBQESIZE(RWORK2) STORE NEW SIZE IN DISPLACED FBQE
0004F8 5897 0000            00000   558+         L     RWORK3,FWDPTR(RWORK2) STORE NEW ADDR IN BACK POINTER
0004FC 5079 0004            00004   559+         ST    RWORK2,BCKPTR(RWORK3) OF THE FOLLOWING FBQE
000500 5897 0004            00004   560+         L     RWORK3,BCKPTR(RWORK2) STORE NEW ADDR IN FORWARD PTR
000504 5079 0000            00000   561+         ST    RWORK2,FWDPTR(RWORK3) OF THE PREVIOUS FBQE
000508 47F0 B0FC            000FE   562+         B     COREOK
00050C 9120 B5C3      005C5         563+CKSWX    TM    SWITCHES+1,X'20' SHOULD FBQE BE ELIMINATED
000510 4780 B0FC            000FE   564+         BZ    COREOK NO
000514 58A3 0004            00004   565+         L     RWORK4,BCKPTR(RWORK6) PREVIOUS OF ONE TO ELIMINATE
000518 5823 0000            00000   566+         L     RADDR,FWDPTR(RWORK6) NEXT OF ONE TO ELIMINATE
00051C 502A 0000            00000   567+         ST    RADDR,FWDPTR(RWORK4)
000520 50A2 0004            00004   568+         ST    RWORK4,BCKPTR(RADDR)
000524 47F0 B0FC            000FE   569+         B     COREOK
000528                              570+SRTN08   DS    0H
000528 47F0 B32C            0032E   571+         B     RTN08
00052C 9620 B5C3      005C5         572+SET1     OI    SWITCHES+1,X'20' INDICATE REQUEST AND FBQE START EQUAL
000530 47F0 B4BA            004BC   573+         B     OTHREND
000534 5810 B5CA            005CC   574+PQENH1A  L     RIN1,PQESAVE
000538 47F0 B130            00132   575+         B     PQENH1
00053C 00000000                     576+ABTERM   DC    V(IEA0AB01)
000540 00000000                     577+SVCXT    DC    V(IEA0XE00) 8499
                                    578+* END
000544 00001000                     579+CON1K    DC    A(4096) .               CONSTANT OF 1K             M2883
000548 00000000                     580+DBASADR  DC    V(MSSBASE) .             QGM'S BASE ADDRESS        M2883
00054C 00000000                     581+PQEMAIN  DC    V(GETMAINB)
000550 00000000                     582+OVRFLB   DC    A(GOVRFLB)
000554 00000000                     583+TASKSWCH DC    V(IEA0DS02)
000558 00000000                     584+REGMAIN  DC    V(RMBRANCH)
00055C 00000000                     585+PURGE    DC    V(CDPURGE)
000560 00000000                     586+RELEASE  DC    V(MRELEASE)
000564 00000000                     587+ADSVCB   DC    V(SVCBYTE)
000568 00000000                     588+FBSRCH   DC    V(FBQSRCH)
00056C                              589+RIPSAVE  DS    16F SAVE AREA                        MP2A
0005AC 00000000                     590+TCBSAVE  DC    F'0'
0005B0                              591+RINSAVE  DS    4F
0005C0 00000000                     592+WK2SV    DC    F'0'
0005C4 00000000                     593+SWITCHES DC    F'0'
                                    594+* SWITCHES  BY BIT   BYTE 0
                                    595+*              BIT  7 =  SVC 4 REQUEST       BIT 3 =H1 SWITCH
                                    596+*              BIT  6 =  UNUSED              BIT 2 = ONE DONE SWITCH
                                    597+*             BIT 6 =  RO/RI REQUEST       BIT 2 =  ONE DONE SWITCH
                                    598+*              BIT  5 =  END OF LIST         BIT 1 = RORI REQUEST
                                    599+*              BIT  4=   SPECIFIC REQUEST    BIT 0 = EXCHANGE REQUEST
                                    600+* SWITCHES BY BIT BYTE 1
                                    601+*             BIT 7 =  UNUSED              BIT 3 =  UNUSED
                                    602+*             BIT 6 = MP SW FOR BRAN ENTY  BIT 2 =  UNUSED
                                    603+*             BIT 6 =  MP SW FOR BRAN ENTY BIT 2 =  UNUSED
                                    604+*             BIT 5 =  UNUSED              BIT 1 =  SATISFACTORY REQ
                                    605+*             BIT 4 =  UNUSED              BIT 0 =  UNUSED
0005C8 00                           606+WAITSW   DC    X'00'
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0005C9 000000
0005CC 00000000                     607+PQESAVE  DC    F'0'
0005D0 00000000                     608+ZEROES   DC    F'0'
0005D4 FF000008                     609+DUMQELTH DC    X'FF000008'
0005D8 FF000020                     610+QELNTH   DC    X'FF000020' SUBPOOL NUMBER AND LENGTH FOR PQE
0005DC FC000008                     611+RESERVE  DC    X'FC000008'
0005E0 000007F8                     612+FQE252   DC    F'2040' 3645
0005E4 00000800                     613+SQSMIN   DC    F'2048' 3645
                                    614+*
                                    615+*        PQE  FIELDS
                                    616+*
000000                              617+FWDPTR   EQU   0
000004                              618+BCKPTR   EQU   4
000008                              619+PQENXT   EQU   8
00000C                              620+PQEPREV  EQU   12
000010                              621+PQETCB   EQU   16
000014                              622+PQERGSZ  EQU   20
000018                              623+PQESTADD EQU   24
00001D                              624+PQEHID   EQU   29
000020                              625+PQESIZE  EQU   32
000008                              626+FBQESIZE EQU   8
                                    627+*
00010C                              628+CVTQMSG  EQU   X'10C' .           ADDR OF INFO LIST               21016
000080                              629+TSOTASK  EQU   X'80' .            TIME SHARING TASK FLAG          21016
000094                              630+TCBTSTSK EQU   148 .              DISP TO TIME SHARING FLAGS      21016
0000B4                              631+TCBJSCB  EQU   X'B4' DISP OF JSCB IN TCB         AC A49808
00010C                              632+JSCBTJID EQU   X'10C' DISP OF USERID IN JSCB      AC A49808
000000                              633+Q0       EQU   0 NUMERIC 0                        MP1A
000001                              634+Q1       EQU   1 NUMERIC 1                        MP1A
000004                              635+Q4       EQU   4 NUMERIC 4                        MP1A
000008                              636+Q8       EQU   8 NUMERIC 8                        MP1A
00000A                              637+Q10      EQU   10 NUMERIC 10                       MP1A
00000B                              638+Q11      EQU   11 NUMERIC 11                       MP1A
00000D                              639+Q13      EQU   13 NUMERIC 13                       MP1A
000800                              640+Q2048    EQU   2048 NUMERIC 2048                     MP1A
000001                              641+QX01     EQU   X'01' HEX 01                           MP1A
                                    642+*
000009                              643+OWNGTCB  EQU   9 .         REG TO GET OWNING TCB ADD OF PQE  BL   M0459
000000                              644+R0       EQU   0 REGISTER 0                       MP1A
000001                              645+R1       EQU   1 REGISTER 1                       MP1A
000002                              646+R2       EQU   2 REGISTER 2                       MP1A
00000F                              647+R15      EQU   15 REGISTER 15                      MP1A
000000                              648+RIN0     EQU   0
000001                              649+RIN1     EQU   1
000001                              650+RIQE     EQU   1
000002                              651+RADDR    EQU   2
000002                              652+RDQE     EQU   2
000002                              653+RPQE     EQU   2
000003                              654+RWORK6   EQU   3
000003                              655+QGM2BS   EQU   3 .                   QGM' 2DN BAS REG             M2883
000003                              656+RCVT     EQU   3
000004                              657+RTCB     EQU   4
000005                              658+RSPID    EQU   5
000006                              659+RWORK1   EQU   6
000007                              660+RCOMRET1 EQU   7
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000007                              661+RWORK2   EQU   7
000007                              662+RFQE     EQU   7
000009                              663+RWORK3   EQU   9
000009                              664+RCOMRET  EQU   9
00000A                              665+RLENGTH  EQU   10
00000A                              666+RWORK4   EQU   10
00000A                              667+TSWCH    EQU   10
00000B                              668+RBASE    EQU   11
00000C                              669+RSWCH    EQU   12
00000C                              670+RSPQE    EQU   12
00000D                              671+RRET     EQU   13
00000D                              672+RABTERM  EQU   13
00000E                              673+RRETURN  EQU   14
00000E                              674+RBLOCK   EQU   14
00000F                              675+RRETREG  EQU   15
00000F                              676+RSIZE    EQU   15
000004                              677+SPQEDQE  EQU   4
000000                              678+SPQENXT  EQU   0 NEXT SPQE POINTER - 1
000000                              679+SPQEFLGS EQU   0 FLAG BYTE
000004                              680+SPQID    EQU   4
000040                              681+SPQELAST EQU   X'40' MASK FOR FLAG BIT INDICATING LAST SPQE FOR TCB
000080                              682+SPQESHRD EQU   X'80' MASK INDICATING SUBPOOL IS SHARED
000018                              683+TCBMSS   EQU   24 SPQE POINTER -1
000021                              684+TCBFCD1  EQU   33 FIFTH FLAG BYTE - BIT 6 IS USED
000074                              685+TCBTCB   EQU   116
000084                              686+TCBOTC   EQU   132
000098                              687+TCBPQE   EQU   152
000000                              688+CVTTCB   EQU   0
000004                              689+CVT0EF00 EQU   4
0000A0                              690+CVTHEAD  EQU   160
000000                              691+FQENXT   EQU   0
000004                              692+FQELNTH  EQU   4
000000                              693+DQEFQE   EQU   0
000008                              694+DUMPQESZ EQU   8
000008                              695+DUMFWD   EQU   8
00000C                              696+DUMBWD   EQU   12
        MVT GETPART / FREEPART ROUTINE                                                                         PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    698+***************************************************************
                                    699+*        DSECT TO COVER INFORMATION LIST ENTRY
                                    700+***************************************************************

000000                              702+INFOLIST DSECT
000000                              703+INFRESV  DS    H RESERVED              AC A49808
000002                              704+INFTJID  DS    H AC A49808
000004                              705+INFTCB   DS    F
000008                              706+INFBADDR DS    F
00000C                              707+INFRCL   DS    X BITS 0-2 USED FOR REASON CODE(0=>NO RC)
                                    708+*                    BITS 3-7 USED FOR COUNT OF VARIABLE DATA BYTES
00000D                              709+INFFLG   DS    X FLAG BYTE
000010                              710+INFFLG0  EQU   X'10' BIT 0 ON => BRANCH ENTRY
00000E                              711+INFCC    DS    H COMPLETION CODE
000010                              712+INFVAR   DS    4F VARIABLE INFORMATION
000010                              713+         ORG   INFVAR
000010                              714+INFVAR1  DS    F
000014                              715+INFVAR2  DS    F
000018                              716+INFVAR3  DS    F
00001C                              717+INFVAR4  DS    F
000020                              718+INFEND   EQU   *
000020                              719+INFLEN   EQU   (INFEND-INFRESV) LENGTH OF ENTRY
                                    720          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       03      0C     000550
   01       04      1C     00053C
   01       05      1C     000540
   01       06      1C     000548
   01       07      1C     00054C
   01       08      1C     000554
   01       09      1C     000558
   01       0A      1C     00055C
   01       0B      1C     000560
   01       0C      1C     000564
   01       0D      1C     000568
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ABTERM   00004 00053C 00576   0483
ADSVCB   00004 000564 00587   0088  0279
ALLBUTDM 00004 000294 00357
BCKPTR   00001 000004 00618   0252  0257  0552  0553  0559  0560  0565  0568
CKENDLST 00002 000166 00264   0259
CKFORIWT 00004 000356 00423   0417
CKLOOP   00004 0000B0 00203   0210
CKONEDN  00002 000106 00238   0235
CKPQEFND 00004 0000DE 00220
CKSVCBYT 00004 000016 00088
CKSWX    00004 00050C 00563   0546
CKTCB    00004 000432 00486   0096
CKTTL    00004 0000B4 00204
COMP2KB  00002 0000D2 00215   0196  0206
COMRTN0  00002 0002CC 00371   0272
CON1K    00004 000544 00579   0240
COREOK   00004 0000FE 00235   0555  0562  0564  0569
CVTHEAD  00001 0000A0 00690   0399
CVTQMSG  00001 00010C 00628   0459
CVTTCB   00001 000000 00688   0442
CVT0EF00 00001 000004 00689
DBASADR  00004 000548 00580   0239
DISPINIT 00004 0002F0 00395   0006  0288  0378
DQEFQE   00001 000000 00693   0310
DUMBWD   00001 00000C 00696   0346
DUMFWD   00001 000008 00695   0340  0352
DUMPQESZ 00001 000008 00694   0243
DUMQELTH 00004 0005D4 00609   0246  0359
ELEREQ   00004 000184 00275   0098
ENDLST   00002 000092 00133   0127
ERRM2    00001 000416 00477   0473
FBQELOOP 00004 00048C 00526   0534
FBQESIZE 00001 000008 00626   0253  0343  0531  0541  0549  0557
FBSRCH   00004 000568 00588   0231
FQELNTH  00001 000004 00692   0203  0311
FQENXT   00001 000000 00691   0200  0208
FQE252   00004 0005E0 00612   0312
FREEPART 00004 0001A0 00283   0092  0281
FREEPQE  00002 000246 00335   0332
FREXCHNG 00004 00018C 00278   0087
FWDPTR   00001 000000 00617   0251  0256  0342  0526  0550  0551  0554  0558  0561  0566  0567
GERROR2  00004 0003B8 00450   0313  0330
GERROR2A 00002 0003E4 00465   0470
GERROR2B 00004 0003FC 00471   0468
GERROR2C 00004 000428 00483   0457  0466
GETSPEC  00004 000454 00510   0126  0129
GET252   00004 00016E 00267
GOVRFLB  00001 000000 00008   0582
GPART    00002 000040 00106   0367
IEAMSTCB 00001 000000 00007
IEAQPRT0 00001 000000 00005
INFBADDR 00004 000008 00706
INFCC    00002 00000E 00711   0478
INFEND   00001 000020 00718   0719
INFFLG   00001 00000D 00709
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

INFFLG0  00001 000010 00710
INFLEN   00001 000020 00719   0469
INFOLIST 00001 000000 00702   0463
INFRCL   00001 00000C 00707   0481
INFRESV  00002 000000 00703   0719
INFTCB   00004 000004 00705   0467  0471
INFTJID  00002 000002 00704   0476
INFVAR   00004 000010 00712   0713
INFVAR1  00004 000010 00714   0479
INFVAR2  00004 000014 00715   0480
INFVAR3  00004 000018 00716
INFVAR4  00004 00001C 00717
INITWAIT 00004 000374 00431   0213  0424  0427  0488
JSCBTJID 00001 00010C 00632   0476
LISTENCK 00002 00017A 00271   0266
NLCSGP   00004 000052 00111   0132
NODUMMY  00004 000128 00248
NORORI   00002 000372 00430
NOSET    00002 000082 00128   0122
NOSET1   00004 000094 00195   0277
NOSHARE1 00004 00022C 00328   0326
NOSQS    00004 0000C6 00211   0202
NOTH1    00002 000088 00130
OTHREND  00002 0004BC 00542   0573
OVRFLB   00004 000550 00582   0198  0211  0217  0344  0396  0512
OWNGTCB  00001 000009 00643   0353  0361  0361
PART     00004 000002 00083   0082
PQEHID   00001 00001D 00624
PQEMAIN  00004 00054C 00581   0244  0249
PQENH1   00004 000132 00251   0575
PQENH1A  00004 000534 00574   0242
PQENXT   00001 000008 00619   0262  0514
PQEPREV  00001 00000C 00620   0219  0263
PQERGSZ  00001 000014 00622   0220  0255  0518
PQESAVE  00004 0005CC 00607   0341  0574
PQESIZE  00001 000020 00625   0248
PQESTADD 00001 000018 00623   0254  0515  0517
PQETCB   00001 000010 00621   0260  0353
PURGE    00004 00055C 00585   0283
QELNTH   00004 0005D8 00610   0354
QGM2BS   00001 000003 00655   0239  0240
QX01     00001 000001 00641
Q0       00001 000000 00633
Q1       00001 000001 00634
Q10      00001 00000A 00637
Q11      00001 00000B 00638
Q13      00001 00000D 00639   0474  0475  0475  0476
Q2048    00001 000800 00640
Q4       00001 000004 00635
Q8       00001 000008 00636
RABTERM  00001 00000D 00672   0460  0465  0483  0485
RADDR    00001 000002 00651   0109  0110  0110  0124  0124  0125  0125  0128  0128  0197  0197  0203  0204  0515  0519
                              0522  0529  0533  0537  0543  0550  0551  0552  0566  0567  0568
RBASE    00001 00000B 00668   0081  0082  0407  0408  0409  0410  0491  0492  0493  0494
RBLOCK   00001 00000E 00674   0251  0252  0253  0254  0256  0257  0269  0270  0270  0342  0343  0543
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RCOMRET  00001 000009 00664   0244  0245  0245  0249  0250  0250  0288  0347  0348  0348  0378  0403
RCOMRET1 00001 000007 00660   0231  0232  0232
RCVT     00001 000003 00656   0396  0397  0398  0399  0441  0442  0458  0459  0459  0460  0461  0461  0463  0465  0469
                              0469  0482  0484
RDQE     00001 000002 00652   0306  0307  0307  0308  0308  0310  0324  0327  0327  0328  0328  0329  0329
REGMAIN  00004 000558 00584   0269  0317  0355  0360
REGREQ   00002 00017E 00273   0093  0370
RELEASE  00004 000560 00586   0347
RESERVE  00004 0005DC 00611   0267  0316
RETRY    00004 000468 00515
RETURN   00004 00036A 00428   0298  0323  0339  0414  0420  0444  0447  0449
RFQE     00001 000007 00662   0310  0311  0314  0314  0315
RINSAVE  00004 0005B0 00591   0083  0365  0418  0425  0428  0429
RIN0     00001 000000 00648   0116  0118  0119  0267  0316  0354  0359  0368  0395  0402  0429
RIN1     00001 000001 00649   0083  0091  0091  0097  0106  0109  0243  0246  0247  0248  0251  0252  0254  0255  0256
                              0257  0260  0262  0263  0268  0268  0275  0311  0312  0315  0336  0337  0337  0338  0338
                              0340  0340  0341  0342  0351  0352  0352  0353  0357  0358  0358  0365  0429  0450  0478
                              0574
RIPSAVE  00004 00056C 00589   0395  0402
RIP1     00002 000304 00400   0412
RIP2     00004 000310 00404   0401
RIP3     00004 000326 00411   0405
RIQE     00001 000001 00650
RLENGTH  00001 00000A 00665   0273  0368  0369  0369
RPQE     00001 000002 00653   0344  0345  0345  0346  0346
RRET     00001 00000D 00671   0283  0284  0284
RRETREG  00001 00000F 00675   0413  0415  0448
RRETURN  00001 00000E 00673   0083  0317  0318  0318  0355  0356  0356  0360  0363  0363  0365  0409  0428  0430  0452
                              0493
RSIZE    00001 00000F 00676   0115  0116  0117  0118  0119  0120  0253  0255  0343  0395  0402  0537  0538  0539  0539
                              0541  0544
RSPID    00001 000005 00658   0086
RSPQE    00001 00000C 00670   0295  0296  0296  0297  0297  0300  0300  0301  0303  0306  0320  0321  0321  0322  0322
                              0324  0325  0331  0333  0333  0480
RSWCH    00001 00000C 00669   0407  0410  0491  0494
RTCB     00001 000004 00657   0247  0260  0261  0295  0320  0336  0351  0357  0362  0362  0422  0431  0433  0433  0453
                              0454  0454  0455  0455  0456  0471  0472  0474  0479  0486
RTN00    00004 0003B0 00448   0364  0373  0375  0377  0381
RTN04    00004 000336 00415   0237
RTN08    00004 00032E 00413   0223  0571
RWORK1   00001 000006 00659   0088  0089  0106  0108  0108  0111  0121  0131  0131  0226  0227  0228  0229  0230  0261
                              0262  0263  0279  0280  0418  0419  0425  0426  0434  0436  0436  0439  0440  0445  0445
                              0446  0512  0513  0513  0514  0514  0515  0517  0518  0525  0527
RWORK2   00001 000007 00661   0085  0086  0111  0114  0114  0117  0120  0130  0133  0221  0221  0222  0228  0273  0275
                              0435  0438  0438  0439  0511  0511  0521  0522  0523  0535  0542  0549  0551  0552  0553
                              0554  0556  0557  0558  0559  0560  0561
RWORK3   00001 000009 00663   0107  0130  0133  0198  0199  0199  0200  0200  0201  0201  0203  0208  0208  0209  0209
                              0211  0212  0217  0218  0218  0219  0219  0220  0220  0222  0227  0229  0230  0442  0443
                              0443  0446  0517  0518  0519  0523  0558  0559  0560  0561
RWORK4   00001 00000A 00666   0531  0532  0533  0535  0542  0545  0545  0549  0557  0565  0567  0568
RWORK6   00001 000003 00654   0525  0526  0526  0527  0529  0531  0532  0538  0541  0550  0553  0554  0556  0565  0566
R0       00001 000000 00644
R1       00001 000001 00645
R15      00001 00000F 00647
R2       00001 000002 00646
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SETLSTED 00002 000188 00276   0274
SET1     00004 00052C 00572   0540
SPQECHK  00004 00021C 00324   0334
SPQECHK2 00004 00020E 00320   0304  0309
SPQEDQE  00001 000004 00677   0306  0324  0327
SPQEFLGS 00001 000000 00679   0303  0325  0331
SPQELAST 00001 000040 00681   0303  0331
SPQENXT  00001 000000 00678   0333
SPQESHRD 00001 000080 00682   0325
SPQE252  00004 0001C8 00300   0305
SPQE252A 00004 0001E0 00306   0302
SPQE252B 00004 0001CC 00301   0299
SPQID    00001 000004 00680   0301
SQSMIN   00004 0005E4 00613   0204
SRTN04   00002 000102 00236   0528  0530  0536
SRTN08   00002 000528 00570   0516  0520  0524
STUPRISS 00002 00038E 00439   0437
SUBPOLCK 00001 0001B6 00294   0495
SVCXT    00004 000540 00577   0452
SVC4     00004 00002C 00094   0090
SWITCHES 00004 0005C4 00593   0084  0094  0123  0195  0241  0258  0265  0278  0282  0349  0366  0372  0376  0416  0423
                              0510  0547  0563  0572
TASKSWCH 00004 000554 00583   0408  0492
TCBFCD1  00001 000021 00684   0404  0406  0431  0490
TCBJSCB  00001 0000B4 00631   0474
TCBMSS   00001 000018 00683   0295  0320
TCBOK    00004 000038 00097   0487
TCBOTC   00001 000084 00686
TCBPQE   00001 000098 00687   0247  0261  0336  0351  0357  0361  0361  0362  0362  0433  0433
TCBSAVE  00004 0005AC 00590   0422  0486  0489
TCBTCB   00001 000074 00685   0411
TCBTSTSK 00001 000094 00630   0456  0472
TSOTASK  00001 000080 00629   0456  0472
TSWCH    00001 00000A 00667   0399  0400  0400  0404  0406  0411  0411  0489  0490
USEOLD   00006 0004EE 00556   0548
WAITOFF  00004 00043E 00489   0287
WAITSW   00001 0005C8 00606   0095  0286  0374  0380  0421
WK2SV    00004 0005C0 00592   0521  0544
YESEXCH1 00004 0002B6 00365   0350
ZEROES   00004 0005D0 00608   0084  0467



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  2215
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  990 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM2.R0000093       SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM2.S0000094       SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM2.S0000094       DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG3     / START 78240.1944
IEF374I STEP /SG3     / STOP  78240.1944 CPU   0MIN 00.50SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:44:52.47   ALLOC START    19:44:52.48   MAIN REGION ----- 300K                          *
*   STEP NAME SG3        STEP END TIME  19:44:53.46   PGM START TIME 19:44:52.57   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.99   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.50   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 59       0250 ------------ 0       0250 ------------ 0       0151 ----------- 35       0151 ----------- 43    *
*   0151 ----------- 91       0353 ---------- 124       0151 ----------- 40       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM2  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1944
IEF374I STEP /ZEND    / STOP  78240.1944 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:44:53.48   ALLOC START    19:44:53.50   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:44:53.52   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM2  / START 78240.1944
IEF376I  JOB /R21AM2  / STOP  78240.1944 CPU   0MIN 00.50SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM2     JOB READ TIME 19:44:48.48   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.50   *
*   JOB CLASS A          JOB INIT TIME 19:44:52.47   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.07   *
*   ACCOUNT              JOB END TIME  19:44:53.54   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M  333333333                                       A
            RRRRRRRRR  222222222      11        AAA     MM     MM  333333333                                      AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  33    33                                      AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM       33                                      AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      3333                                    AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM     333333                                   AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM         33                                   AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  33     33                                   AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM  333333333                                   AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM   3333333                                    AA     AA

***********A  START   R21AM3     SYS SYSA   WTR 00E   07:45:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM3     START  A***********
***********A  START   R21AM3     SYS SYSA   WTR 00E   07:45:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM3     START  A***********
***********A  START   R21AM3     SYS SYSA   WTR 00E   07:45:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM3     START  A***********
***********A  START   R21AM3     SYS SYSA   WTR 00E   07:45:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM3     START  A***********
***********A  START   R21AM3     SYS SYSA   WTR 00E   07:45:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM3     START  A***********


//R21AM3 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG4 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEAATR00)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM3   SG4
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.44  8/28/78


IEAQTRCE  SD  01 000000 001AA8
TREX      LD     000064         01
TRPI      LD     0000C2         01
TRSVC     LD     000000         01
TRIO      LD     00001A         01
TRDISP    LD     000098         01
TRSIO     LD     000036         01
TRACE     LD     000036         01
TRPTR     LD     000158         01
IECXTRA   LD     0000EC         01
IEATCBP   ER  02
IEATPC    ER  03
IEACVT    ER  04
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2          IEAQTR 200,0
000000                                3+IEAQTRCE START 0
       OPTION 4  TRACE ROUTINE                                                                                 PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      5+*...T R A C E   R O U T I N E...
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      8+* ROUTINE NAME

                                     10+*        IEAQTRCE- OPTION 4 TRACE ROUTINE.


                                     12+* FUNCTION

                                     14+*        PROVIDES A TRACE FUNCTION FOR 6 EVENTS-
                                     15+*        1. EXTERNAL INTERRUPTS.
                                     16+*        2. I/O INTERRUPTS.
                                     17+*        3. PROGRAM INTERRUPTS
                                     18+*        4. SVC INTERRUPTS.
                                     19+*        5. START I/O (FROM IOS)
                                     20+*        6. DISPATCHER EXIT CONDITIONS

                                     22+*        FORMATS FOR EACH EVENT FOLLOW THE COMMENTARY


                                     24+* ENTRY POINT NAMES

                                     26+*        1. TREX-  TRACE ENTRY FOR EXTERNAL INTERRUPTS.
                                     27+*        2. TRIO-  TRACE ENTRY FOR I/O INTERRUPTS.
                                     28+*        3. TRPI-  TRACE ENTRY FOR PROGRAM INTERRUPTS.
                                     29+*        4. TRSVC- TRACE ENTRY FOR SVC INTERRUPTS.
                                     30+*        5. TRSIO- TRACE ENTRY FOR START I/O.
                                     31+*        6. TRDISP-TRACE ENTRY FOR DISPATCHER.
                                     32+*        7. TRSAV- TRACE BUILD AREA.
                                     33+*        8. IECXTRA- TRACE INHIBIT SWITCH.


                                     35+* CONTAINED IN MODULE

                                     37+*        IEAQTRCE- OPTION 4 TRACE ROUTINE.


                                     39+* ATTRIBUTES

                                     41+*        1. SUPERVISOR STATE.
                                     42+*        2. DISABLED FOR ALL MASKABLE INTERRUPTS.
                                     43+*        3. RESIDENT.
                                     44+*        4. SERIALLY REUSABLE.


                                     46+* APPLICABILITY

                                     48+*        OPTION 4 SYSTEMS


                                     50+* EXTERNAL REFERENCES

                                     52+*        1. IEATCBP-   'NEW' AND 'OLD' TCB POINTERS
                                     53+*        2. IEATPC-    TIMER PSEUDO CLOCKS
                                     54+*        3. FUDGESTR-  TEMPORARY LOW CORE REGISTER SAVE AREA.
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     56+* SVC USAGE

                                     58+*        NONE


                                     60+* INPUT

                                     62+*        1. EXTERNAL INTERRUPTS
                                     63+*              .REGS 0,1,15
                                     64+*              .EX OPSW
                                     65+*              .IF TIMER INTERRUPT, 1ST WORD OF TQE TRACED.
                                     66+*              .TIMER VALUE
                                     67+*        2. I/O INTERRUPTS
                                     68+*              .IO OPSW
                                     69+*              .CSW
                                     70+*              .TIMER VALUE
                                     71+*        3. PROGRAM INTERRUPTS
                                     72+*              .REGS 0,1,15
                                     73+*              .PI OPSW
                                     74+*              .CURRENT TCB
                                     75+*              .TIMER VALUE
                                     76+*        4. SVC INTERRUPT
                                     77+*              .REGS 0,1,15
                                     78+*              .SVC OPSW
                                     79+*              .CURRENT TCB
                                     80+*              .TIMER VALUE
                                     81+*        5. START I/O
                                     82+*              .REGS 1,6,10
                                     83+*              .CAW
                                     84+*              .CSW
                                     85+*              .TIMER VALUE
                                     86+*        6. DISPATCHER
                                     87+*              .REGS 0,1,15
                                     88+*              .PSW RECEIVING CONTROL.
                                     89+*              .NEW TCB ADDRESS
                                     90+*              .TIMER VALUE


                                     92+* OUTPUT

                                     94+*        ENTRY IN TRACE TABLE (SEE FORMATS)


                                     96+* ENTRY POINTS

                                     98+*        1. TREX-   TRACE ENTRY FOR EXTERNAL INTERRUPTS.
                                     99+*          .THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IS IN SUPERVISOR
                                    100+*           STATE, AND HAS THE SUPERVISOR PROTECTION KEY.
                                    101+*          .REGISTERS 0,1 ARE AS AT TIME OF INTERRUPT.
                                    102+*          .REGISTERS 2-9 ARE IRRELEVANT.
                                    103+*          .REGISTER 10 CONTAINS THE ENTRY POINT ADDRESS OF THE TRACE
                                    104+*           CODE.
                                    105+*          .REGISTER 11 CONTAINS THE RETURN ADDRESS.
                                    106+*          .REGISTERS 12-14 ARE IRRELEVANT.
                                    107+*          .REGISTER 15 IS AS AT TIME OF INTERRUPT.
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    108+*        2. TRIO-   TRACE ENTRY FOR I/O INTERRUPTS.
                                    109+*          .THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IS IN SUPERVISOR
                                    110+*           STATE, AND HAS THE SUPERVISOR PROTECT KEY.
                                    111+*          .REGISTERS 0-2 ARE AS AT TIME OF INTERRUPT.
                                    112+*          .REGISTERS 3,4 ARE IRRELEVANT.
                                    113+*          .REGISTERS 5-9 ARE AS AT TIME OF INTERRUPT.
                                    114+*          .REGISTERS 10 CONTAINS THE ENTRY POINT ADDRESS OF THE TRACE
                                    115+*           CODE.
                                    116+*          .REGISTER 11 CONTAINS THE RETURN ADDRESS.
                                    117+*          .REGISTERS 12-15 ARE AS AT TIME OF INTERRUPT.
                                    118+*        3. TRPI-   TRACE ENTRY FOR PROGRAM INTERRUPTS.
                                    119+*          .THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IS IN SUPERVISOR
                                    120+*           STATE, AND HAS THE SUPERVISOR PROTECT KEY.
                                    121+*          .REGISTERS 0-9,12-15 ARE AS AT TIME OF INTERRUPT.
                                    122+*          .REGISTER 10 CONTAINS THE ENTRY POINT ADDRESS OF THE TRACE
                                    123+*           CODE.
                                    124+*          .REGISTER 11 CONTAINS THE RETURN ADDRESS.
                                    125+*        4. TRSVC-  TRACE ENTRY FOR SVC INTERRUPTS.
                                    126+*          .THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IS IN SUPERVISOR
                                    127+*           STATE, AND HAS THE SUPERVISOR PROTECT KEY.
                                    128+*          .REGISTERS 0-9,12-15 ARE AS AT TIME OF INTERRUPT.
                                    129+*          .REGISTER 10 CONTAINS THE ENTRY POINT ADDRESS OF THE TRACE
                                    130+*           CODE.
                                    131+*          .REGISTER 11 CONTAINS THE RETURN ADDRESS.
                                    132+*        5. TRSIO-  TRACE ENTRY FOR START I/O.
                                    133+*          .THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IS IN SUPERVISOR
                                    134+*           STATE, AND HAS THE SUPERVISOR PROTECT KEY.
                                    135+*          .REGISTERS 0,2-5,7,8,11-15 CONTAIN IRRELEVANT DATA.
                                    136+*          .REGISTER 1 CONTAINS THE 16* ADDRESS RELATED TO THE SIO.
                                    137+*          .REGISTER 6 CONTAINS THE DEVICE ADDRESS.
                                    138+*          .REGISTER 9 CONTAINS THE ENTRY POINT ADDRESS OF TRSIO.
                                    139+*          .REGISTER 10 CONTAINS THE CONDITION CODE.
                                    140+*        6. TRDISP- TRACE ENTRY FOR DISPATCHER.
                                    141+*          .THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IS IN SUPERVISOR
                                    142+*           STATE, AND HAS THE SUPERVISOR PROTECT KEY.
                                    143+*          .REGISTERS 0-9,13,15 ARE IRRELEVANT.
                                    144+*          .REGISTER 10 CONTAINS THE ENTRY POINT ADDRESS OF THE TRACE
                                    145+*           CODE.
                                    146+*          .REGISTER 11 CONTAINS THE RETURN ADDRESS.
                                    147+*          .REGISTER 12 CONTAINS THE NEW RB ADDRESS.
                                    148+*          .REGISTER 14 CONTAINS THE NEW TCB ADDRESS.


                                    150+* EXIT POINTS

                                    152+*        1. BRANCH BACK TO CALLER
                                    153+*          .THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IS IN SUPERVISOR
                                    154+*           STATE, AND HAS THE SUPERVISOR PROTECT KEY.
                                    155+*          .REGISTERS 0-9,12-15 ARE TRANSPARENT OVER ROUTINE EXCEPT FOR
                                    156+*           DISPATCHER TRACE WHERE 12 AND 13 ARE VOLATILE.
                                    157+*          .REGISTER 10- TRACE CODE BASE REG (IRRELEVANT).
                                    158+*          .REGISTER 11- RETURN ADDRESS.


                                    160+* ERROR EXIT POINTS
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    162+*        NONE


                                    164+* TABLES AND CONTROL BLOCKS REFERENCED

                                    166+*        1. TRACE TABLE-           ALTERED
                                    167+*        2. IEATCBP (NEW AND OLD)- NOT ALTERED


                                    169+* LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED

                                    171+*        1. TRACE TABLE


                                    173+* RESTRICTIONS

                                    175+*        NONE


                                    177+* NOTES

                                    179+*        TO MINIMIZE SYSTEM DEGRADATION AND MAXIMIZE SYSTEM       21014
                                    180+*        PERFORMANCE, THE GTF CODE (21014) SHOULD COME AS         21014
                                    181+*        EARLY IN EACH ENTRY AS POSSIBLE.                         21014
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    183+* NOTE THAT THE IDENTIFIER IS IN THE PSW FOR EXTERNAL, I/O, SVC, AND
                                    184+* PROGRAM INTERRUPT AND DISPATCHER TRACES. IT IS LOCATED IN BIT
                                    185+* POSITION 4 (THE 5TH BIT FROM THE LEFT).



                                    187+* EXTERNAL INTERRUPT

                                    189+* .................................................................
                                    190+* .               .       .       .       .       .       .       .
                                    191+* .    EXTERNAL   .  REG  .  REG  .  REG  . RE-   . TIMER . TIMER .
                                    192+* .     OLD PSW   .   15  .   0   .   1   . SERVED. INTRPT. VALUE .
                                    193+* . IDENTIFIER= 1 .       .       .       .       . TQE   .       .
                                    194+* .               .       .       .       .       . 1ST WD.       .
                                    195+* .0.......4.......8.......C.......0.......4.......8.......C.......



                                    197+* I/O INTERRUPT

                                    199+* .................................................................
                                    200+* .               .               .       .       .       .       .
                                    201+* .      I/O      .      CSW      . RE-   . RE-   . RE-   . TIMER .
                                    202+* .    OLD PSW    .               . SERVED. SERVED. SERVED. VALUE .
                                    203+* . IDENTIFIER= 5 .               .       .       .       .       .
                                    204+* .               .               .       .       .       .       .
                                    205+* .0.......4.......8.......C.......0.......4.......8.......C.......



                                    207+* PROGRAM INTERRUPT

                                    209+* .................................................................
                                    210+* .               .       .       .       .       .       .       .
                                    211+* .      PI       .       .       .       .       .       .       .
                                    212+* .    OLD PSW    .  REG  .  REG  .  REG  . RE-   .CURRENT. TIMER .
                                    213+* . IDENTIFIER= 3 .   15  .   0   .   1   . SERVED.  TCB  . VALUE .
                                    214+* .               .       .       .       .       .       .       .
                                    215+* .0.......4.......8.......C.......0.......4.......8.......C.......
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    217+* SVC INTERRUPT

                                    219+* .................................................................
                                    220+* .               .       .       .       .       .       .       .
                                    221+* .      SVC      .  REG  .  REG  .  REG  . RE-   .CURRENT. TIMER .
                                    222+* .    OLD PSW    .   15  .   0   .   1   . SERVED.  TCB  . VALUE .
                                    223+* . IDENTIFIER= 2 .       .       .       .       .       .       .
                                    224+* .               .       .       .       .       .       .       .
                                    225+* .0.......4.......8.......C.......0.......4.......8.......C.......



                                    227+* START I/O    IDENTIFIER = 0

                                    229+* .................................................................
                                    230+* .   .   .       .               .               .       .       .
                                    231+* . C . D .  CAW  .      CSW      .   RESERVED    . TCB   . TIMER .
                                    232+* . C . E .       .               .               . FROM  . VALUE .
                                    233+* .   . V .       .               .               . 16 *  .       .
                                    234+* .   .   .       .               .               .       .       .
                                    235+* .0.......4.......8.......C.......0.......4.......8.......C.......



                                    237+* DISPATCHER

                                    239+* .................................................................
                                    240+* .               .       .       .       .       .       .       .
                                    241+* . NEW PSW TO BE .  REG  .  REG  .  REG  . RE-   .  NEW  . TIMER .
                                    242+* .    LOADED     .   15  .   0   .   1   . SERVED.  TCB  . VALUE .
                                    243+* . IDENTIFIER= D . (NEW) . (NEW) . (NEW) .       .       .       .
                                    244+* .               .       .       .       .       .       .       .
                                    245+* .0.......4.......8.......C.......0.......4.......8.......C.......



                                    247+*        ENTRY/EXTRN DEFINITION

                                    249+         ENTRY TREX,TRPI,TRSVC,TRIO,TRDISP,TRSIO
                                    250+         ENTRY TRACE
                                    251+         ENTRY TRPTR CURRENT TRACE POINTER
                                    252+         ENTRY IECXTRA TRACE INHIBIT SWITCH             FLSF



                                    254+*        REGISTER EQUATES

000001                              256+R1       EQU   1 REG 1
00000A                              257+RA       EQU   10 .REG 10
00000B                              258+RB       EQU   11 .REG 11
00000C                              259+RC       EQU   12 .REG 12
00000D                              260+RD       EQU   13 .REG 13
00000E                              261+RE       EQU   14 .REG 14
00000F                              262+RF       EQU   15 .REG 15
00000A                              263+XTRBASE  EQU   10
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00000B                              264+XRET     EQU   11
00000C                              265+TRPTRG   EQU   12
00000E                              266+XPIAFFLK EQU   14 .CVTAFFLK IN LAST BYTE      MP65
00000E                              267+XWKA     EQU   14
00000F                              268+XWKB     EQU   15



                                    270+*        COUNT-FIELD EQUATES.
000001                              271+C1       EQU   1 .BYTE
000002                              272+C2       EQU   2 .HALF WORD.
000003                              273+C3       EQU   3 .ADDRESS OR THREE-BYTE TMR. MP65
000004                              274+C4       EQU   4 .FULL WORD.
000008                              275+C8       EQU   8 .DOUBLE WORD.
                                    276+*        GENERAL EQUATES

000000                              278+PSW      EQU   0
000008                              279+REG      EQU   8
000000                              280+DEV      EQU   0
000004                              281+CAW      EQU   4
000008                              282+CSW      EQU   8
000014                              283+VAR      EQU   20
000018                              284+TCB      EQU   24
00001C                              285+TIMER    EQU   28



000018                              287+EXOPSW   EQU   X'18'
000038                              288+IOOPSW   EQU   X'38'
000028                              289+PIOPSW   EQU   X'28'
000020                              290+SVCOPSW  EQU   X'20'
000010                              291+RBOPSW   EQU   16 RESUME PSW IN RB



                                    293+***  TRACE ENTRY FOR SVC INTERRUPTS

000000                              295+         USING *,XTRBASE

000000 50B0 A13C            0013C   297+TRSVC    ST    XRET,TREGSV SAVE RETURN
000004 45A0 A0EA            000EA   298+         BAL   XTRBASE,PRECOM INITIAL PHASE
000008                              299+         USING *,XTRBASE
                                    300+*    RETURN FROM COMMON ROUTINE.
000008 D207 C000 0020 00000 00020   301+         MVC   PSW(8,TRPTRG),SVCOPSW TRACE SVC OLD PSW
00000E 9620 C002      00002         302+         OI    PSW+2(TRPTRG),X'20' FLAG TRACE AS SVC
000012 41A0 A0C2            000CA   303+         LA    XTRBASE,TRPI+8 SET BASE FOR COMMON
0000CA                              304+         USING TRPI+8,XTRBASE
000016 47F0 A00A            000D4   305+         BC    15,TRCOMM GO TO COMMON TRACE



                                    307+***  TRACE ENTRY FOR I/O INTERRUPTS

00001A                              309+         USING *,XTRBASE
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00001A 50B0 A122            0013C   311+TRIO     ST    XRET,TREGSV SAVE RETURN
00001E 45A0 A0D0            000EA   312+         BAL   XTRBASE,PRECOM INITIAL PHASE
000022                              313+         USING *,XTRBASE
                                    314+*    RETURN FROM COMMON ROUTINE.
000022 D207 C000 0038 00000 00038   315+         MVC   PSW(8,TRPTRG),IOOPSW TRACE I/O OLD PSW
000028 9650 C002      00002         316+         OI    PSW+2(TRPTRG),X'50' FALG TRACE AS IO
00002C D207 C008 0040 00008 00040   317+         MVC   CSW(8,TRPTRG),64 TRACE CSW
000032 47F0 A106            00128   318+         BC    15,POSTCOM GO TO CLEAN UP



                                    320+***  TRACE ENTRY FOR SIO

000036                              322+TRACE    DS    0C
000036                              323+         USING *,9
000036 90AB 9102            00138   324+TRSIO    STM   10,11,TREGSV-4 SAVE REGS
00003A 45A0 90B4            000EA   325+         BAL   XTRBASE,PRECOM INITIAL PHASE
                                    326+*    RETURN FROM COMMON ROUTINE
00003E 58A0 9102            00138   327+         L     10,TREGSV-4 RESTORE REG
000042 506C 0000            00000   328+         ST    6,DEV(TRPTRG) STORE DEVICE
000046 42AC 0000            00000   329+         STC   10,DEV(TRPTRG) STORE COND CODE
00004A 9430 C000      00000         330+         NI    DEV(TRPTRG),X'30' CLEAR ILC BITS
00004E D203 C004 0048 00004 00048   331+         MVC   CAW(4,TRPTRG),72 TRACE CAW
000054 D207 C008 0040 00008 00040   332+         MVC   CSW(8,TRPTRG),64 TRACE CSW
00005A D203 C018 100C 00018 0000C   333+         MVC   TCB(4,TRPTRG),12(1) TRACE 16* TCB
000060 47F0 90F2            00128   334+         BC    15,POSTCOM CLEAN UP AND RETURN



                                    336+***  TRACE ENTRY FOR EXTERNAL INTERRUPT

00000C                              338+TQEPTR   EQU   12 TQE PTR OFFSET FROM SHPC
000000                              339+TQETCB   EQU   0

000064                              341+         USING *,XTRBASE
000064 50B0 A0D8            0013C   342+TREX     ST    XRET,TREGSV SAVE RETURN
000068 45A0 A086            000EA   343+         BAL   XTRBASE,PRECOM INITIAL PHASE
00006C                              344+         USING *,XTRBASE
                                    345+*    RETURN FROM COMMON ROUTINE.
00006C 58F0 A0E0            0014C   346+         L     RF,TREGSV+16 .RESTORE REG 15 FOR TRACE  AB  M0447
000070 90F1 C008            00008   347+         STM   15,1,REG(TRPTRG) TRACE 15,0,1
000074 D207 C000 0018 00000 00018   348+         MVC   PSW(8,TRPTRG),EXOPSW TRACE EXTERNAL OLD PSW
00007A 9610 C002      00002         349+         OI    PSW+2(TRPTRG),X'10' FLAG TRACE AS EXTERNAL
00007E 9180 001B      0001B         350+         TM    EXOPSW+3,X'80' Q. IS IT TIMER INT
000082 4780 A0BC            00128   351+         BC    8,POSTCOM NO, PREPARE TO EXIT
000086 58E0 A0E8            00154   352+         L     XWKA,ASHPC GET TIMER PSEUDO CLOCK ADDR
00008A 58EE 000C            0000C   353+         L     XWKA,TQEPTR(XWKA) GET TQE PTR VALUE
00008E D203 C018 E000 00018 00000   354+         MVC   TCB(4,TRPTRG),TQETCB(XWKA) TRACE TQE FLAG AND TCB
000094 47F0 A0BC            00128   355+         BC    15,POSTCOM TO CLEAN UP



                                    357+***  TRACE ENTRY FOR DISPATCHER

000098                              359+         USING *,XTRBASE
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000098 50B0 A0A4            0013C   361+TRDISP   ST    XRET,TREGSV SAVE RETURN
00009C 45A0 A052            000EA   362+         BAL   XTRBASE,PRECOM INITIAL PHASE
0000A0                              363+         USING *,XTRBASE
                                    364+*    RETURN FROM COMMON ROUTINE
0000A0 58D0 A0A0            00140   365+         L     13,TREGSV+4 GET THE RB
0000A4 D207 C000 D010 00000 00010   366+         MVC   PSW(8,TRPTRG),RBOPSW(13) TRACE THE RESUME PSW
0000AA 96D0 C002      00002         367+         OI    PSW+2(TRPTRG),X'D0' FLAG TRACE AS DISPATCHER
0000AE 50EC 0018            00018   368+         ST    14,TCB(TRPTRG) TRACE NEW TCB
0000B2 58DE 006C            0006C   369+         L     13,108(14) GET REG 15 FROM NEW TASK
0000B6 98EF E030            00030   370+         LM    14,15,48(14) GET REGS 081 FROM NEW TASK
0000BA 90DF C008            00008   371+         STM   13,15,REG(TRPTRG) TRACE THE REGS
0000BE 47F0 A088            00128   372+         BC    15,POSTCOM DO CLEAN UP AND RETURN



                                    374+***  TRACE ENTRY FOR PROGRAM INTERRUPTS

0000C2                              376+         USING *,XTRBASE

0000C2 50B0 A07A            0013C   378+TRPI     ST    XRET,TREGSV SAVE RETURN
0000C6 45A0 A028            000EA   379+         BAL   XTRBASE,PRECOM INITIAL PHASE
0000CA                              380+         USING *,XTRBASE
                                    381+*    RETURN FROM COMMON ROUTINE
0000CA D207 C000 0028 00000 00028   382+         MVC   PSW(8,TRPTRG),PIOPSW TRACE PGM INT OLD PSW
0000D0 9230 C002      00002         383+         MVI   PSW+2(TRPTRG),X'30' FLAG TRACE AS PI      AB A46031



                                    385+*    THIS ROUTINE COMMON TO SVC AND PI TRACE

0000D4                              387+TRCOMM   EQU   *
0000D4 58F0 A082            0014C   388+         L     RF,TREGSV+16 .RESTORE REG 15            AB  M0447
0000D8 90F1 C008            00008   389+         STM   15,1,REG(TRPTRG) TRACE REGS 15,0,1
0000DC 58E0 A086            00150   390+         L     14,AIEATCBP GET 'NEW/OLD'
0000E0 D203 C018 E004 00018 00004   391+         MVC   TCB(4,TRPTRG),4(14) TRACE CURRENT
0000E6 47F0 A05E            00128   392+         BC    15,POSTCOM TO CLEAN UP



                                    394+***  PRECOMMON
                                    395+*    PERFORM FUNCTIONS APPLICABLE TO ALL ENTRIES

0000EA                              397+PRECOM   DS    0C
0000EA 05B0                         398+         BALR  XRET,0 SET BASE VALUE
0000EC                              399+         USING *,XRET

0000EC                              401+POINT    DS    0C
                                    402+*        MVZ   IECXTRA+1,X'20'          PICK UP SWITCH
0000EC 4700 B044            00130   403+IECXTRA  BC    0,NOTRACE BRANCH IF SWITCH ON
0000F0 90CF B054            00140   404+         STM   12,15,TREGSV+4 SAVE REGISTERS
                                    405+*  TO MINIMIZE SYSTEM DEGRADATION AND MAXIMIZE SYSTEM PERFORMANCE 21014
                                    406+* THE GTF CODE SHOULD COME AS EARLY AS POSSIBLE                   21014
0000F4 58F0 B094            00180   407+         L     XWKB,ADRCVT GET ADDRESS OF THE CVT
                                    408+*                                  USE INTERNAL POINTER
                                    409+*                                  IN CASE X'10' HAS BEEN
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    410+*                                  CLOBBERED SINCE ABTERM
                                    411+*                                  HAS NOT  RE-INITIALIZED
                                    412+*                                  X'10'
000000                              413+         USING CVTDSECT,XWKB GET CVT ADDRESSABILITY          21014
0000F8 91C0 F0EC      000EC         414+         TM    CVTGTF,CVTGTFS IS GTF ACTIVE                   21014
0000FC 4710 B03C            00128   415+         BO    POSTCOM YES,IGNORE OLD TRACE,GO RETURN  21014
000100 58C0 B06C            00158   416+         L     TRPTRG,TRPTR GET CURRENT ENTRY
000104 41CC 0020            00020   417+         LA    TRPTRG,32(TRPTRG) ADVANCE IT
000108 55C0 B074            00160   418+         CL    TRPTRG,TREND Q. ARE WE AT END OF TABLE
00010C 47A0 B02C            00118   419+         BC    10,*+12 YES, SKIP OVER
000110 50C0 B06C            00158   420+STR      ST    TRPTRG,TRPTR UPDATE CURRENT
000114 47F0 B034            00120   421+         BC    15,*+12 SKIP OVER
000118 58C0 B070            0015C   422+         L     TRPTRG,TRBEG RESET TO BEGINNING OF TABLE
00011C 47F0 B024            00110   423+         BC    15,STR BACK TO STORE IT
000120 D203 C01C 0050 0001C 00050   424+         MVC   TIMER(4,TRPTRG),80 TRACE TIMER
000126 07FA                         425+         BCR   15,XTRBASE RETURN



                                    427+***  POST COMMON
                                    428+*    CEAN UP BEFORE RETURN

000128 05A0                         430+POSTCOM  BALR  XTRBASE,0 ESTABLISH ADDRESSING
00012A                              431+         USING *,XTRBASE
00012A 98BF A012            0013C   432+         LM    11,15,TREGSV RESTORE REGS
00012E 07FB                         433+         BCR   15,XRET RETURN

                                    435+         DROP  XTRBASE
0000EC                              436+         USING POINT,XRET
000130 98AB B04C            00138   437+NOTRACE  LM    10,11,TREGSV-4 RESTORE REGS
000134 07FB                         438+         BCR   15,11 RETURN WITHOUT TRACING
                                    439+***  REGISTER SAVE AREA

000136 0000
000138 00000000                     441+         DC    1F'0'
00013C 0000000000000000             442+TREGSV   DC    5F'0'
00014B                              443+TREGSV15 EQU   TREGSV+15 .(SSM) SAVED AFFIN BYTE.    MP65
                                    444+         EXTRN IEATCBP
000150 00000000                     445+AIEATCBP DC    A(IEATCBP)
                                    446+         EXTRN IEATPC
000154 00000000                     447+ASHPC    DC    A(IEATPC)
000158 00000188                     448+TRPTR    DC    A(IEAQTRA)
00015C 00000188                     449+TRBEG    DC    A(IEAQTRA)
000160 00001AA8                     450+TREND    DC    A(IEAQTRA+6432)
000164 00000000
000168 0000000000000000             451+         DC    3D'0'
000180 00000000                     452+ADRCVT   DC    A(IEACVT) ADDRESS OF THE CVT
                                    453+         EXTRN IEACVT
000188                              454+IEAQTRA  DS    804D
000000                              455+CVTDSECT DSECT  21014
                                    456+*
                                    457+*              OS/360
                                    458+*        COMMUNICATION VECTOR TABLE
                                    459+*
                                    460+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    461+*
000010                              462+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT
                                    463+*
                                    464+*              BEGINNING OF CVT PROPER
                                    465+*
000000                              466+         DS    0F
000000                              467+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE
                                    468+*
000000 00000000                     469+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST
000004 00000000                     470+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE
                                    471+*                              ASYNCHRONOUS EXITS
000008 00000000                     472+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB
00000C 00000000                     473+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB
000010 00000000                     474+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT
                                    475+*                              CONSOLE INTERRUPTION ROUTINE
000014 00000000                     476+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE
000018 00000000                     477+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING
                                    478+*                              ROUTINE FOR SUPERVISOR
00001C 00000000                     479+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                    480+*                              RELATIVE TRACK ADDR TO ABSOLUTE
000020 00000000                     481+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                    482+*                              ABSOLUTE TRACK ADDR TO RELATIVE
000024 00000000                     483+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION
                                    484+*                              IN UCB LOOKUP TABLE
000028 00000000                     485+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION
                                    486+*                              IN UCB LOOKUP TABLE
00002C 00000000                     487+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE
                                    488+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES
000030 00000000                     489+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY
                                    490+*                              IN UCB LOOKUP TABLE
000034 00000000                     491+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE
000038 00000000                     492+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL
00003C 00000000                     493+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)
                                    494+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS
                                    495+*                              MASTER SCHEDULER RESIDENT DATA AREA
000040 00000000                     496+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE
000044 00000000                     497+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE
000048 00000000                     498+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS
                                    499+*                              FOR DAMAGE ASSESSMENT ROUTINES
00004C 00000000                     500+CVT0FN00 DC    A(0) -        RESERVED (MVT)
000050 0A03                         501+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER
000052 07FE                         502+CVTBRET  BR    14 -          RETURN TO CALLER
000054 00000000                     503+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB
000058 00000000                     504+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER
                                    505+*                              ROUTINE (SHPC FIRST)
00005C 00000000                     506+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL
000060 00000000                     507+CVTSJQ   DC    A(0) -        RESERVED (MVT)
000064 00000000                     508+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR
000068 00000000                     509+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE
                                    510+*                              FOR INTERVAL TIMER
00006C 00000000                     511+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE
                                    512+*                              FOR INTERVAL TIMER
000070 00000000                     513+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE
000074 10                           514+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM
000040                              515+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                              516+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS
000010                              517+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1
000004                              518+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING
000075 000000                       519+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC
000078 00000000                     520+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE
00007C 00000000                     521+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER
000080 00000000                     522+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS
000084 00000000                     523+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE
000088 00000000                     524+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER
00008C 00000000                     525+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE
000090 00000000                     526+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE
000094 00000000                     527+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT
                                    528+*                              DATA AREA (MVT/MFT)
000098 00000000                     529+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE
00009C 00000000                     530+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE
0000A0 00000000                     531+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE
0000A4 00000000                     532+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS
0000A8 00000000                     533+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)
0000AC 00000000                     534+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD
                                    535+*                              (0 IF GFX INACTIVE) MVT
0000B0 00000000                     536+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA
                                    537+*                              (MVT/MFT)
0000B4 0000                         538+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER
0000B6 00                           539+CVTOPTA  DC    AL1(00) -     MISCELLANEOUS FLAGS
000080                              540+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)
000040                              541+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --
                                    542+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000020                              543+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --
                                    544+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000010                              545+CVTNIP   EQU   X'10' -       NIP RUNNING
000008                              546+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)
000004                              547+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE
000002                              548+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT
000001                              549+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT
0000B7 00                           550+CVTOPTB  DC    AL1(00) - MISCELLANEOUS FLAGS
000080                              551+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)
000020                              552+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)
                                    553+*
                                    554+*              PCP OVERLAY
                                    555+*
0000B8                              556+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART
0000BB                              557+CVTSTUSA DS    B -           STATUS BYTE A
000008                              558+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART
                                    559+*                              WAS INITIATED INTRASTEP
000004                              560+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART
                                    561+*                              WAS INITIATED INTERSTEP
000002                              562+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM
                                    563+*                              AND DATA HAS NOT BEEN READ
0000BC                              564+         DS    CL2 -         RESERVED
0000BE                              565+         DS    CL2 -         RESERVED
                                    566+*
                                    567+*              MVT/MFT OVERLAY
                                    568+*
0000B8                              569+         ORG   CVTCRTTR
                                    570+*
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000B8 00000000                     571+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR
0000BC 00000000                     572+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE
                                    573+*
                                    574+*              END OF OVERLAYS
                                    575+*
0000C0 00000000                     576+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)
0000C4 00000000                     577+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA
0000C8 00000000                     578+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT
                                    579+*                              (MVT/MPS)
0000CC 00000000                     580+CVTUSER  DC    A(0) -        A WORD TO THE USER
                                    581+*
                                    582+*              MFT/MVT CVT EXTENSION
                                    583+*
0000D0 00000000                     584+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT
0000D4 0A0D                         585+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)
0000D6 0A06                         586+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)
0000D8 00000000                     587+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT
0000DC 00000000                     588+CVTPATCH DC    A(0) -        ADDR OF FE PATCH AREA
0000E0 00000000                     589+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA
                                    590+*                              (MVT/MFT)
0000E4                              591+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)
0000E4 00                           592+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)
000080                              593+CVTTSRDY EQU   X'80' -       TIME SHARING READY
0000E5 000000                       594+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)
0000E8 00000000                     595+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)
0000EC                              596+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)
0000EC 00                           597+CVTGTFST DC    B'0' -        STATUS FLAGS
0000C0                              598+CVTGTFS  EQU   X'C0' -       STATE
                                    599+*/       00    CVTGTFIN      INACTIVE
                                    600+*/       01    CVTGTFSR      STARTING
                                    601+*/       10    CVTGTFSP      STOPPING
                                    602+*/       11    CVTGTFAC      ACTIVE
000020                              603+CVTSTATE EQU   X'20' -       IN CONTROL
000010                              604+CVTMODE  EQU   X'10' -       EXT MODE
000008                              605+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA
000004                              606+CVTUSR   EQU   X'04' -       USR TRACE
000002                              607+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID
0000ED 000000                       608+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE
0000F0                              609+CVTTCMFG DS    0B -          TCAM FLAGS
000080                              610+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)
0000F0 00000000                     611+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF
                                    612+*                            TCAM ADDRESS VECTOR TABLE
                                    613+*
                                    614+*              MVT CVT EXTENSION
                                    615+*
0000F4                              616+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE
                                    617+*                            (PWF)                               S21167
0000F4 80                           618+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY
                                    619+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167
000080                              620+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167
0000F5 000000                       621+CVTVOLT2 DC    AL3(0) -  PWF RECHECK TIME DELAY.  THIS VALUE IS
                                    622+*                            OVERLAID BY CVTVOLM2 AFTER PWF
                                    623+*                            INITIALIZATION                      S21167
0000F8 00000000                     624+         DC    A(0) -        RESERVED
                                    625+*
                    COMMENTARY FOR TRACE ROUTINE                                                               PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    626+*              MVT/MFT CVT EXTENSION
                                    627+*
0000FC 00000114                     628+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1
                                    629+*                            (ICB421)                APAR'S 47331,47332
000100                              630+         DS    F -           RESERVED
000104                              631+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE
000104                              632+         DS    X -           RESERVED
000105 000000                       633+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE
000108                              634+         DS    F -           RESERVED
00010C                              635+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307
00010C                              636+         DS    X -           RESERVED                            ICB307
00010D 000000                       637+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND
                                    638+*                            COMMUNICATION AREA                  ICB307
000110                              639+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308
000110                              640+         DS    X -           RESERVED                            ICB308
000111 000000                       641+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY
                                    642+*                            ROUTINE                             ICB308
                                    643+*
                                    644+*              COMMON EXTENSION 1
                                    645+*              ADDRESS OF EXTENSION IS IN CVTEXT1
                                    646+*
                                    647+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,
                                    648+*              YOU SHOULD CODE -
                                    649+*
                                    650+*              L     REG,CVTEXT1
                                    651+*              USING CVTXTNT1,REG
                                    652+*
                                    653+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.
                                    654+*
000114                              655+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1
                                    656+*                            (ICB421)                APAR'S 47331,47332
000114 00000000                     657+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS
                                    658+*                            (ISAM) (ICB421)         APAR'S 47331,47332
                                    659+*
                                    660+*              END OF CVT PROPER
                                    661+*
                                    662+*
                                    663+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT
                                    664+*
                                    665          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000158
   01       01      0C     00015C
   01       01      0C     000160
   01       02      0C     000150
   01       03      0C     000154
   01       04      0C     000180
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ADRCVT   00004 000180 00452   0407
AIEATCBP 00004 000150 00445   0390
ASHPC    00004 000154 00447   0352
CAW      00001 000004 00281   0331
CSW      00001 000008 00282   0317  0332
CVTABEND 00004 0000C8 00578
CVTAPR   00001 000040 00541
CVTAQAVT 00004 0000F0 00611
CVTASCII 00001 000002 00548
CVTATTCH 00001 000008 00546
CVTBRET  00002 000052 00502
CVTBTERM 00004 000034 00491
CVTBUF   00004 000010 00474
CVTCCH   00001 000080 00540
CVTCHPTR 00001 000008 00558
CVTCMT   00003 0000ED 00608
CVTCRTTR 00003 0000B8 00556   0569
CVTCUCB  00004 000064 00508
CVTDAR   00004 000048 00498
CVTDATA  00001 000002 00562
CVTDATE  00004 000038 00492
CVTDCB   00001 000074 00514
CVTDCBA  00003 000075 00519
CVTDDR   00001 000020 00543
CVTDMSR  00004 000110 00639
CVTDMSRA 00003 000111 00641
CVTDSECT 00001 000000 00455   0413
CVTEXIT  00002 000050 00501
CVTEXT1  00004 0000FC 00628
CVTFACHN 00004 000114 00657
CVTFBOSV 00004 000084 00523
CVTFORM  00001 000008 00605
CVTGTF   00004 0000EC 00596   0414
CVTGTFS  00001 0000C0 00598   0414
CVTGTFST 00001 0000EC 00597
CVTHEAD  00004 0000A0 00531
CVTHIAR  00001 000004 00547
CVTIERLC 00004 000090 00526
CVTILCH  00004 00008C 00525
CVTILK1  00004 000024 00483
CVTILK2  00004 000028 00485
CVTIOQET 00004 000078 00520
CVTIXAVL 00004 00007C 00521
CVTJOB   00004 00000C 00473
CVTLINK  00004 000008 00472
CVTLNKSC 00002 0000D6 00586
CVTMAP   00001 000000 00467
CVTMCTYP 00001 000002 00607
CVTMDLDS 00004 0000D0 00584
CVTMODE  00001 000010 00604
CVTMPCVT 00004 0000C0 00576
CVTMSER  00004 000094 00527
CVTMSLT  00004 00003C 00493
CVTMZ00  00004 0000A4 00532
CVTNIP   00001 000010 00545
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTNUCB  00004 000080 00522
CVTOPTA  00001 0000B6 00539
CVTOPTB  00001 0000B7 00550
CVTPATCH 00004 0000DC 00588
CVTPBLDL 00004 00005C 00506
CVTPCNVT 00004 00001C 00479
CVTPRLTV 00004 000020 00481
CVTPROT  00001 000080 00551
CVTPTR   00001 000010 00462
CVTPURG  00004 000104 00631
CVTPURGA 00003 000105 00633
CVTQABST 00002 0000D4 00585
CVTQCDSR 00004 0000B8 00571
CVTQLPAQ 00004 0000BC 00572
CVTQMSG  00004 00010C 00635
CVTQMSGA 00003 00010D 00637
CVTQMWR  00004 0000B0 00536
CVTQOCR  00004 0000AC 00534
CVTQTD00 00004 00006C 00511
CVTQTE00 00004 000068 00509
CVTRMS   00004 0000E0 00589
CVTSJQ   00004 000060 00507
CVTSMCA  00004 0000C4 00577
CVTSNCTR 00002 0000B4 00538
CVTSTATE 00001 000020 00603
CVTSTB   00004 000070 00513
CVTSTEPR 00001 000004 00560
CVTSTUSA 00001 0000BB 00557
CVTSVDCB 00004 000054 00503
CVTSYSAD 00004 000030 00489
CVTTCBP  00004 000000 00469
CVTTCMFG 00001 0000F0 00609
CVTTCRDY 00001 000080 00610
CVTTOD   00001 000020 00552
CVTTPC   00004 000058 00504
CVTTRMTB 00004 00009C 00530
CVTTSCE  00004 0000D8 00587
CVTTSCVB 00003 0000E5 00594
CVTTSCVT 00004 0000E4 00591
CVTTSFLG 00001 0000E4 00592
CVTTSRDY 00001 000080 00593
CVTUSER  00004 0000CC 00580
CVTUSR   00001 000004 00606
CVTVOLF2 00001 0000F4 00618
CVTVOLI2 00001 000080 00620
CVTVOLM2 00004 0000F4 00616
CVTVOLT2 00003 0000F5 00621
CVTXAPG  00004 000014 00476
CVTXITP  00004 000044 00497
CVTXPFP  00001 000001 00549
CVTXTLER 00004 00002C 00487
CVTXTNT1 00001 000114 00655   0628
CVTZDTAB 00004 000040 00496
CVT0DS   00004 000088 00524
CVT0EF00 00004 000004 00470
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVT0FN00 00004 00004C 00500
CVT0PT01 00004 000098 00529
CVT0SCR1 00004 0000E8 00595
CVT0VL00 00004 000018 00477
CVT1EF00 00004 0000A8 00533
CVT1SSS  00001 000040 00515
CVT2SPS  00001 000020 00516
CVT4MPS  00001 000004 00518
CVT4MS1  00001 000010 00517
C1       00001 000001 00271
C2       00001 000002 00272
C3       00001 000003 00273
C4       00001 000004 00274
C8       00001 000008 00275
DEV      00001 000000 00280   0328  0329  0330
EXOPSW   00001 000018 00287   0348  0350
IEACVT   00001 000000 00453   0452
IEAQTRA  00008 000188 00454   0448  0449  0450
IEAQTRCE 00001 000000 00003
IEATCBP  00001 000000 00444   0445
IEATPC   00001 000000 00446   0447
IECXTRA  00004 0000EC 00403   0252
IOOPSW   00001 000038 00288   0315
NOTRACE  00004 000130 00437   0403
PIOPSW   00001 000028 00289   0382
POINT    00001 0000EC 00401   0436
POSTCOM  00002 000128 00430   0318  0334  0351  0355  0372  0392  0415
PRECOM   00001 0000EA 00397   0298  0312  0325  0343  0362  0379
PSW      00001 000000 00278   0301  0302  0315  0316  0348  0349  0366  0367  0382  0383
RA       00001 00000A 00257
RB       00001 00000B 00258
RBOPSW   00001 000010 00291   0366
RC       00001 00000C 00259
RD       00001 00000D 00260
RE       00001 00000E 00261
REG      00001 000008 00279   0347  0371  0389
RF       00001 00000F 00262   0346  0388
R1       00001 000001 00256
STR      00004 000110 00420   0423
SVCOPSW  00001 000020 00290   0301
TCB      00001 000018 00284   0333  0354  0368  0391
TIMER    00001 00001C 00285   0424
TQEPTR   00001 00000C 00338   0353
TQETCB   00001 000000 00339   0354
TRACE    00001 000036 00322   0250
TRBEG    00004 00015C 00449   0422
TRCOMM   00001 0000D4 00387   0305
TRDISP   00004 000098 00361   0249
TREGSV   00004 00013C 00442   0297  0311  0324  0327  0342  0346  0361  0365  0378  0388  0404  0432  0437  0443
TREGSV15 00004 00014B 00443
TREND    00004 000160 00450   0418
TREX     00004 000064 00342   0249
TRIO     00004 00001A 00311   0249
TRPI     00004 0000C2 00378   0249  0303  0304
TRPTR    00004 000158 00448   0251  0416  0420
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TRPTRG   00001 00000C 00265   0301  0302  0315  0316  0317  0328  0329  0330  0331  0332  0333  0347  0348  0349  0354
                              0366  0367  0368  0371  0382  0383  0389  0391  0416  0417  0417  0418  0420  0422  0424
TRSIO    00004 000036 00324   0249
TRSVC    00004 000000 00297   0249
VAR      00001 000014 00283
XPIAFFLK 00001 00000E 00266
XRET     00001 00000B 00264   0297  0311  0342  0361  0378  0398  0399  0433  0436
XTRBASE  00001 00000A 00263   0295  0298  0299  0303  0304  0309  0312  0313  0325  0341  0343  0344  0359  0362  0363
                              0376  0379  0380  0425  0430  0431  0435
XWKA     00001 00000E 00267   0352  0353  0353  0354
XWKB     00001 00000F 00268   0407  0413



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  1846
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  846 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM3.R0000095       SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM3.S0000096       SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM3.S0000096       DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG4     / START 78240.1944
IEF374I STEP /SG4     / STOP  78240.1944 CPU   0MIN 00.39SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:44:53.56   ALLOC START    19:44:53.57   MAIN REGION ----- 300K                          *
*   STEP NAME SG4        STEP END TIME  19:44:54.19   PGM START TIME 19:44:53.65   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.63   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.39   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 51       0250 ------------ 0       0250 ------------ 0       0151 ----------- 31       0151 ----------- 41    *
*   0151 ----------- 68       0353 ---------- 106       0151 ----------- 16       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM3  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1944
IEF374I STEP /ZEND    / STOP  78240.1944 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:44:54.22   ALLOC START    19:44:54.25   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:44:54.27   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM3  / START 78240.1944
IEF376I  JOB /R21AM3  / STOP  78240.1944 CPU   0MIN 00.39SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM3     JOB READ TIME 19:44:48.53   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.39   *
*   JOB CLASS A          JOB INIT TIME 19:44:53.56   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.73   *
*   ACCOUNT              JOB END TIME  19:44:54.29   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       44                                         A
            RRRRRRRRR  222222222      11        AAA     MM     MM      444                                        AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     4444                                       AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM    44 44                                      AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM   44  44                                     AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM  44   44                                     AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM  444444444                                   AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  444444444                                   AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM       44                                     AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM       44                                     AA     AA

***********A  START   R21AM4     SYS SYSA   WTR 00E   07:45:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM4     START  A***********
***********A  START   R21AM4     SYS SYSA   WTR 00E   07:45:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM4     START  A***********
***********A  START   R21AM4     SYS SYSA   WTR 00E   07:45:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM4     START  A***********
***********A  START   R21AM4     SYS SYSA   WTR 00E   07:45:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM4     START  A***********
***********A  START   R21AM4     SYS SYSA   WTR 00E   07:45:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM4     START  A***********


//R21AM4 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG5 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEFQMSGV)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM4   SG5
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.44  8/28/78


IEFQMSGV  SD  01 000000 00000A
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  SGIEF0QM 12,650,60,10,50
000000                                3+IEFQMSGV CSECT
000000 000C                           4+         DC    AL2(12) NO. RECORDS PER LOGICAL TRACK
000002 028A                           5+         DC    AL2(650) THRESHOLD VALUE FOR INIT PROCESSING
000004 003C                           6+         DC    AL2(60) NO. RECORDS RESERVED FOR TERMINATION  M6526
000006 000A                           7+         DC    AL2(10) JOBQWTP LIMIT VALUE         I254
000008 0032                           8+         DC    AL2(50) LIMIT OF RECORDS FOR SUBMIT          M6526
                                      9  END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEFQMSGV 00001 000000 00003



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =    10
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   22 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM4.R0000097       SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM4.S0000098       SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM4.S0000098       DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG5     / START 78240.1944
IEF374I STEP /SG5     / STOP  78240.1944 CPU   0MIN 00.11SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:44:54.31   ALLOC START    19:44:54.33   MAIN REGION ----- 300K                          *
*   STEP NAME SG5        STEP END TIME  19:44:54.61   PGM START TIME 19:44:54.41   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.30   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.11   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 2       0250 ------------ 0       0250 ------------ 0       0151 ----------- 11       0151 ----------- 11    *
*   0151 ------------ 8       0158 ------------ 3       0151 ------------ 3       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM4  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1944
IEF374I STEP /ZEND    / STOP  78240.1944 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:44:54.63   ALLOC START    19:44:54.64   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:44:54.67   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM4  / START 78240.1944
IEF376I  JOB /R21AM4  / STOP  78240.1944 CPU   0MIN 00.11SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM4     JOB READ TIME 19:44:48.58   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.11   *
*   JOB CLASS A          JOB INIT TIME 19:44:54.31   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.37   *
*   ACCOUNT              JOB END TIME  19:44:54.68   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     TTTTTTTT       A      555555555                                       A
            RRRRRRRRR  222222222      11     TTTTTTTT      AAA     555555555                                      AAA
            RR     RR  22     22     111        TT        AA AA    55                                            AA AA
            RR     RR        22       11        TT       AA   AA   55555555                                     AA   AA
            RRRRRRRRR       22        11        TT      AA     AA  555555555                                   AA     AA
            RRRRRRRR       22         11        TT      AA     AA         55                                   AA     AA
            RR  RR        22          11        TT      AAAAAAAAA         55                                   AAAAAAAAA
            RR   RR      22           11        TT      AAAAAAAAA  55     55                                   AAAAAAAAA
            RR    RR    22222222    111111      TT      AA     AA  555555555                                   AA     AA
            RR     RR  222222222    111111      TT      AA     AA   5555555                                    AA     AA

***********A  START   R21TA5     SYS SYSA   WTR 00E   07:45:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA5     START  A***********
***********A  START   R21TA5     SYS SYSA   WTR 00E   07:45:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA5     START  A***********
***********A  START   R21TA5     SYS SYSA   WTR 00E   07:45:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA5     START  A***********
***********A  START   R21TA5     SYS SYSA   WTR 00E   07:45:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA5     START  A***********
***********A  START   R21TA5     SYS SYSA   WTR 00E   07:45:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA5     START  A***********


//R21TA5 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG6 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(4,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.TSOGEN,DISP=(SHR,PASS)
//  DD DSN=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.TSOMAC,DISP=(SHR,PASS),VOLUME=(,RETAIN)
// DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//            DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//            SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEAQAT00)
//SYSIN DD *
IEF236I ALLOC. FOR R21TA5   SG6
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.44  8/28/78


IGC042    SD  01 000000 0009F2
IEAMSTCB  ER  02
IEA0DS    ER  03
IEAQCS01  ER  04
IEAHEAD   ER  05
IEA0DS02  ER  06
IEA0AB00  ER  07
RMBRANCH  ER  08
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1      PRINT  ON,NODATA
                                      2  IEAQAT NOSLICE,4,TTIME,FPREGS,1
                                      3+* THIS MODULE HAS FURTHER BEEN ALTERED TO PROVIDE CODE TO         20021
                                      4+* SUPPORT THE TIME SHARING OPTION (TSO) FOR RELEASE 20.           20021
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                6+IGC042   START


                                      8+*ROUTINE NAME-
                                      9+*              IEAQAT00-ATTACH SVC SERVICE ROUTINE.


                                     11+*FUNCTIONS-

                                     13+*            1-REQUEST ALLOCATION OF AND INITIALIZE A NEW TCB BASED
                                     14+*              ON THE CONTENTS OF THE SUPERVISOR PARAMETER LIST.
                                     15+*            2-DETERMINE IF THE ATTACHED OR ATTACHING TASK IS TO
                                     16+*              RECEIVE CONTROL AFTER COMPLETION OF THE ATTACH SERVICE
                                     17+*              ROUTINE.INDICATE CONCLUSION TO THE DISPATCHER.
                                     18+*            3-CONSTRUCT PARAMETERS FOR LINK ROUTINE WHICH WILL BE THE
                                     19+*              FIRST PROGRAM TO BE EXECUTED IN THE NEW TASK.


                                     21+*ENTRY POINT NAMES-

                                     23+*              IGC042-ATTACH SVC ENTRY POINT.


                                     25+*CONTAINED IN MODULE-

                                     27+*              IEAQAT00-ATTACH.


                                     29+*ATTRIBUTES-

                                     31+*              RESIDENT,REENTERABLE,SUPERVISOR STATE,TYPE 2 SVC.


                                     33+*APPLICABILITY-          OPTION 4 ONLY


                                     35+*EXTERNAL REFERENCES-

                                     37+*              IEA0DS00-DISPATCHER'S ENTRY POINT.
                                     38+*              IEAHEAD -ADDRESS OF FIRST TCB IN READY QUEUE.
                                     39+*              IEAQCS01-ADDRESS OF MAIN LINE LINK RTN.(NON-SVC ENTRY)
                                     40+*              IEA0DS02-ADDRESS OF TASK SWITCH ROUTINE             65MP
                                     41+*              IEAMSTCB-ADDRESS OF MASTER SCHEDULER TCB            MO17


                                     43+*SVC'S USED-

                                     45+*              SVC   3 -SVC EXIT                                   STAE
                                     46+*              SVC  10 -REGISTER FORM OF GETMAIN
                                     47+*              SVC  13 -ABEND
                                     48+*              SVC  43 -CREATE IRB


                                     50+*INPUT-
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     52+*            1-SUPERVISOR PARAMETER LIST(SPL)-IN CALLER'S STORAGE AREA
                                     53+*              THE SUPERVISOR PARMLIST IS 52 BYTES IN LENGTH.     20021
                                     54+*              IT BEGINS ON A FULL WORD BOUNDARY.                 20021

                                     56+*              FORMAT-
                                     57+*                           EP ADDRESS GIVEN=0                     RORI
                                     58+*                           ADDRESS OF EP NAME GIVEN=0
                                     59+*                     BITS1-7= RESERVED
                                     60+*               BYTES1-3= ADDRESS OF EP NAME OR DE.
                                     61+*               BYTE4=RESERVED
                                     62+*               BYTES5-7=DCB ADDRESS
                                     63+*               BYTE8,BIT 0-4=RESERVED                            20021
                                     64+*                    BIT  5  = RCT ATTACHING LOGON                20021
                                     65+*                    BIT  6  =TASKLIB DCB ADDR GIVEN              20021
                                     66+*                    BIT  7  =STAI EXIT ADDR GIVEN                20021
                                     67+*               BYTES9-11=ECB ADDRESS
                                     68+*               BYTE12,BIT0= GIVE SUBPOOL,VALUE=0
                                     69+*                          = GIVE SUBPOOL,LIST =1
                                     70+*                     BITS1-7= RESERVED
                                     71+*               BYTES13-15=VALUE OR ADDRESS OF LIST OF VALUES(GIVE SP)
                                     72+*               BYTE16,BIT0= SHARE SUBPOOL,VALUE=0
                                     73+*                          = SHARE SUBPOOL,LIST =1
                                     74+*                     BITS1-7= RESERVED
                                     75+*               BYTES17-19=VALUE OR ADDRESS OF LIST OF VALUES(SHARE SP)
                                     76+*               BYTE 20,BITS0-5=RESERVED                           I270
                                     77+*                       BIT6=ROLL PARAMETER 1,1=STEP CANNOT BE     I270
                                     78+*                                                  ROLLED OUT      I270
                                     79+*                                             0=STEP CAN BE        I270
                                     80+*                                                 ROLLED OUT       I270
                                     81+*                       BIT7=ROLL PARAMETER 2,1=STEP CAN INVOKE    I270
                                     82+*                                                  ROLLOUT         I270
                                     83+*                                             0=STEP CANNOT        I270
                                     84+*                                                  INVOKE          I270
                                     85+*                                                  ROLLOUT         I270
                                     86+*               BYTES21-23=ADDRESS OF ETXR ROUTINE
                                     87+*               BYTES24-25=DISPATCHING PRIORITY SUBTRAHEND.
                                     88+*               BYTE26=LIMIT PRIORITY SUBTRAHEND.
                                     89+*               BYTE 27,BIT0=RESERVED                              I270
                                     90+*                       BIT1=JSCB PARAMETER,1=JSCB ADDR GIVEN      I270
                                     91+*                                           0=JSCB ADDR NOT        I270
                                     92+*                                               GIVEN              I270
                                     93+*                      BIT2=GIVEJPQ PARAMETER,1=JOB PACK AREA      I270
                                     94+*                                                 GIVEN            I270
                                     95+*                                             0=JOB PACK AREA      I270
                                     96+*                                                 NOT GIVEN        I270
                                     97+*                       BIT3=KEY PARAMETER,1=PROTECT KEY ZERO      I270
                                     98+*                                          0=PROPAGATE PROTECT     I270
                                     99+*                                              KEY                 I270
                                    100+*                       BIT4=SZERO PARAMETER,1=SUBPOOL ZERO NOT    I270
                                    101+*                                                SHARED            I270
                                    102+*                                            0=SUBPOOL ZERO        I270
                                    103+*                                                SHARED            I270
                                    104+*                       BIT5=SVAREA PARAMETER,1=NO SAVE AREA       I270
                                    105+*                                             0=SAVE AREA          I270
                                    106+*                       BIT6=JSTCB PARAMETER,1=JSTCB POINTS TO     I270
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    107+*                                                ATTACHEE          I270
                                    108+*                                            0=PROPAGATE JSTCB     I270
                                    109+*                       BIT7=SM PARAMETER,1=SUPERVISOR MODE        I270
                                    110+*                                         0=PROBLEM PROGRAM MODE   I270
                                    111+*               BYTES28-35=PROGRAM NAME
                                    112+*               BYTES36-39=ADDRESS OF JSCB IF GIVEN                I270
                                    113+*                    BYTES40-43=ADDRESS OF STAI PARAM. LIST       20021
                                    114+*                    BYTES44-47=ADDRESS OF STAI EXIT              20021
                                    115+*                    BYTES48-51=ADDRESS OF TASKLIB DCB            20021

                                    117+*            2-PROBLEM PROGRAM PARAMETER LIST(PPL)-IN CALLER'S STORAGE
                                    118+*               THE PROBLEM PROGRAM PARAMETER LIST IS A VARIABLE LENGTH
                                    119+*               LIST CONSISTING OF FULL WORDS FOR EACH OPERAND.EACH
                                    120+*               FULL WORD IS ALIGNED ON A FULL WORD BOUNDARY,AND CON-
                                    121+*               TAINS IN ITS THREE LOW-ORDER BYTES,THE ADDRESS TO BE
                                    122+*               PASSED. THE SIGN BIT IN THE LAST WORD SIGNALS THE LAST
                                    123+*               WORD IN THE TABLE.
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    125+*MACRO EXPANSION EXAMPLES


000000                              127+DUMMY    DSECT
000000                              128+         USING *,15


                                    130+*  EXAMPLE 1.......WILL CREATE  TWO PARAMETER LISTS.  A SUPERVISOR
                                    131+*                  LIST WITH IT'S ADDRESS RETURNED IN REGISTER
                                    132+*                  15 AND A PROBLEM PROGRAM LIST WITH IT'S
                                    133+*                  ADDRESS IN REGISTER 1.
                                    134+*
                                    135+*
                                    136+*        ATTACH EP=ABENDXT,DCB=(5),PARAM=(ERROR2,ERROR4,0,(2)),    MO17
                                    137+*              VL=1,ECB=DPATCHER+4,GSPV=10,SHSPV=2,ETXR=SETTCB,    MO17
                                    138+*              LPMOD=10,DPMOD=-25                                  MO17

000000 5020 F018            00018   140+         ST    (2),IHB0003+12 STORE INTO PARAM. LIST
000004 9280 F018      00018         141+         MVI   IHB0003+12,X'80' SET LAST WORD BIT ON
000008                              142+         CNOP  0,4
000008 4510 F01C            0001C   143+         BAL   1,IHB0003A LOAD LIST ADDR IN REG1
00000C                              144+IHB0003  EQU   *
00000C 00000974                     145+         DC    A(ERROR2) PROB.PROG.PARAMETER
000010 00000984                     146+         DC    A(ERROR4) PROB.PROG.PARAMETER
000014 00000000                     147+         DC    A(0) PROB.PROG.PARAMETER
000018 00000000                     148+         DC    A(0) PROB. PROG. PARAMETER
00001C                              149+IHB0003A EQU   *
00001C 41F0 F034            00034   150+         LA    15,IHB0002 LOAD 15 WITH LIST ADDR
000020 18E5                         151+         LR    14,5 PICK UP DCB ADDRESS              LCS1
000022 40EF 0006            00006   152+         STH   14,6(15) STORE                            LCS1
000026 88E0 0010            00010   153+         SRL   14,16 DCB                             LCS1
00002A 42EF 0005            00005   154+         STC   14,5(15) INTO LIST                      LCS1
00002E 47F0 F034            00034   155+         B     52(0,15) .AROUND LIST.                        20021
000034                              156+IHB0002  DS    0F SUP. PARAM. LIST
000034 00000050                     157+         DC    A(*+28) ADDRESS OF SYMB NAME
000038 00                           158+         DC    AL1(0) NO HIARCHY                       LCS1
000039 000000                       159+         DC    AL3(0) DCB ADDRESS                 LCS1
00003C 000009B0                     160+         DC    A(DPATCHER+4) ECB ADDRESS
000040 0000000A                     161+         DC    A(10) GSPV VALUE
000044 00000002                     162+         DC    A(2) SHSPV VALUE
000048 02                           163+         DC    AL1(2) SET ROLLOUT BITS  RORI
000049 0008DE                       164+         DC    AL3(SETTCB) EXIT ROUT. ADDRESS    RORI
00004C FFE7                         165+         DC    AL2(0-25) DPMOD VALUE
00004E 0A                           166+         DC    AL1(10) LPMOD VALUE
00004F 00                           167+         DC    AL1(0)
000050 C1C2C5D5C4E7E340             168+         DC    CL8'ABENDXT' EP SYMBOL
000058 00000000                     169+         DC    A(0) ADDRESS OF JSCB                  I270
00005C 0000000000000000             170+         DC    A(0,0) .NO STAI PARM LIST OR EXIT ADDR.     20021
000064 00000000                     171+         DC    A(0) .NO TASKLIB.                         20021
000068 0A2A                         172+         SVC   42 ISSUE ATTACH SVC


                                    174+*  EXAMPLE 2 ......WILL CREATE ONLY A SUPERVISOR PARAMETER
                                    175+*                  LIST AND RETURN IT'S ADDRESS IN REGISTER 15.
                                    176+*
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    177+*
                                    178+*        ATTACH EPLOC=IGC042,SHSPL=SPSHARE,DCB=ATDCBADR            MO17

00006A 41F0 F074            00074   180+         LA    15,IHB0004 LOAD 15 WITH LIST ADDR
00006E 47F0 F034            00034   181+         B     52(0,15) .AROUND LIST.                        20021
000074                              182+IHB0004  DS    0F SUP. PARAM. LIST
000074 00000000                     183+         DC    A(IGC042) ADDRESS OF SYMB NAME
000078 00                           184+         DC    AL1(0) NO HIARCHY                       LCS1
000079 000004                       185+         DC    AL3(ATDCBADR) DCB ADDRESS                 LCS1
00007C 00000000                     186+         DC    A(0) ECB ADDRESS
000080 00000000                     187+         DC    A(0) GSPV VALUE OR GSPL ADR
000084 01                           188+         DC    AL1(1) SET LIST BIT ON
000085 00056C                       189+         DC    AL3(SPSHARE) SHSPL ADDRESS
000088 02                           190+         DC    AL1(2) SET ROLLOUT BITS  RORI
000089 000000                       191+         DC    AL3(0) ETXR ROUT. ADDRESS    RORI
00008C 0000                         192+         DC    AL2(0) DPMOD VALUE
00008E 00                           193+         DC    AL1(0) LPMOD VALUE
00008F 00                           194+         DC    AL1(0)
000090 4040404040404040             195+         DC    CL8' ' I270
000098 00000000                     196+         DC    A(0) ADDRESS OF JSCB                  I270
00009C 0000000000000000             197+         DC    A(0,0) .NO STAI PARM LIST OR EXIT ADDR.     20021
0000A4 00000000                     198+         DC    A(0) .NO TASKLIB.                         20021
0000A8 0A2A                         199+         SVC   42 ISSUE ATTACH SVC


                                    201+*  EXAMPLE 3.......WILL ALTER ONLY THE 'NAME' FIELD OF THE
                                    202+*                  EXISTING SUPERVISOR LIST.
                                    203+*
                                    204+*
                                    205+*        ATTACH DE=IHB0003+4,SF=(E,*+500)                          MO17

0000AA 41F0 F29E            0029E   207+         LA    15,*+500 LOAD LIST ADDR INTO 15
0000AE 41E0 F010            00010   208+         LA    14,IHB0003+4 PICK UP DE ADDRESS
0000B2 50EF 0000            00000   209+         ST    14,0(15,0) INSERT DE INTO LIST
0000B6 9280 F000      00000         210+         MVI   0(15),X'80' SET BIT INDICATING DE
0000BA 0A2A                         211+         SVC   42 ISSUE ATTACH SVC


                                    213+*  EXAMPLE 4 ......WILL ALTER ONLY THE FIFTH WORD OF THE EXISTING
                                    214+*                  REMOTE PROBLEM PROGRAM PARAMETER LIST AT
                                    215+*                  LOCATION ' IEAPKTBL+25 '.
                                    216+*
                                    217+*
                                    218+*        ATTACH MF=(E,IHB0002),PARAM=(,,,,25),EP=MASTER            MO17

0000BC 4110 F034            00034   220+         LA    1,IHB0002 LOAD PARAMETER REG 1
0000C0 41E0 0019            00019   221+         LA    14,25 PICKUP PARAMETER
0000C4 50E0 1010            00010   222+         ST    14,16(0,1) STORE INTO PARAM. LIST
0000C8 41F0 F0D0            000D0   223+         LA    15,IHB0006 LOAD 15 WITH LIST ADDR
0000CC 47F0 F034            00034   224+         B     52(0,15) .AROUND LIST.                        20021
0000D0                              225+IHB0006  DS    0F SUP. PARAM. LIST
0000D0 000000EC                     226+         DC    A(*+28) ADDRESS OF SYMB NAME
0000D4 00                           227+         DC    AL1(0) NO HIARCHY                       LCS1
0000D5 000000                       228+         DC    AL3(0) DCB ADDRESS                 LCS1
0000D8 00000000                     229+         DC    A(0) ECB ADDRESS
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000DC 00000000                     230+         DC    A(0) GSPV VALUE OR GSPL ADR
0000E0 00000000                     231+         DC    A(0) SHSPL OR SHSPV
0000E4 02                           232+         DC    AL1(2) SET ROLLOUT BITS  RORI
0000E5 000000                       233+         DC    AL3(0) ETXR ROUT. ADDRESS    RORI
0000E8 0000                         234+         DC    AL2(0) DPMOD VALUE
0000EA 00                           235+         DC    AL1(0) LPMOD VALUE
0000EB 00                           236+         DC    AL1(0)
0000EC D4C1E2E3C5D94040             237+         DC    CL8'MASTER' EP SYMBOL
0000F4 00000000                     238+         DC    A(0) ADDRESS OF JSCB                  I270
0000F8 0000000000000000             239+         DC    A(0,0) .NO STAI PARM LIST OR EXIT ADDR.     20021
000100 00000000                     240+         DC    A(0) .NO TASKLIB.                         20021
000104 0A2A                         241+         SVC   42 ISSUE ATTACH SVC


                                    243+*  EXAMPLE 5 ......WILL CREATE ONLY AN IN LINE SUPERVISOR
                                    244+*                  PARAMERTER LIST AND RETURN IT'S ADDRESS
                                    245+*                  IN REGISTER 15.
                                    246+*
                                    247+*
                                    248+*        ATTACH SF=L,EP=ABENDXT,DCB=ATDCBADR,ECB=ATECBADR,LPMOD=5, MO17
                                    249+*              DPMOD=10,GSPV=10,SHSPV=25                           MO17

000108                              251+         DS    0F
000108 00000124                     252+         DC    A(*+28) POINTER TO SYMB NAME
00010C 00                           253+         DC    AL1(0) NO HIARCHY                       LCS1
00010D 000004                       254+         DC    AL3(ATDCBADR) LCS1
000110 00                           255+         DC    AL1(0) 20021
000111 000008                       256+         DC    AL3(ATECBADR) ECB ADDRESS      20028
000114 0000000A                     257+         DC    A(10) GSPV VALUE
000118 00000019                     258+         DC    A(25) SHSPV VALUE
00011C 02                           259+         DC    AL1(2) SET ROLLOUT BITS  RORI
00011D 000000                       260+         DC    AL3(0) EXIT ROUT. ADDRESS    RORI
000120 000A                         261+         DC    AL2(10) DPMOD VALUE
000122 05                           262+         DC    AL1(5) LPMOD VALUE
000123 00                           263+         DC    AL1(0)
000124 C1C2C5D5C4E7E340             264+         DC    CL8'ABENDXT' EP SYMBOL
00012C 00000000                     265+         DC    A(0) .                                          20028
000130 0000000000000000             266+         DC    A(0,0) .STAI PARM LIST+EXIT ADD. 20021
000138 00000000                     267+         DC    A(0) .TASKLIB.                 20021


                                    269+*        THE ABOVE MACRO EXPANSIONS ARE NOT TO BE MISCONSTRUED
                                    270+*     AS BEING AN EXECUTABLE PORTION OF THIS THE ATTACH SVC
                                    271+*     SERVICE ROUTINE.  THESE MACRO EXPANSIONS SERVE ONLY
                                    272+*     TO ILLUSTRATE WHAT SOME OF THE VARIOUS FORMS OF THE
                                    273+*     EXPANSION LOOK LIKE.
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    275+*OUTPUT-

                                    277+*            1- TCB OF THE ATTACHED TASK(IN SUPERVISOR STORAGE,SP=253)
                                    278+*               THESE FIELDS ARE SET-

                                    280+*                    TCBTIO             TCBFSA
                                    281+*                    TCBMSS             TCBTCB
                                    282+*                    TCBPKF             TCBJSTCB
                                    283+*                    TCBFLGS            TCBNTC
                                    284+*                    TCBFSM             TCBOTC                     RORI
                                    285+*                    TCBFETXR           TCBLTC                     RORI
                                    286+*                    TCBLMP             TCBIQE
                                    287+*                    TCBDSP             TCBECB
                                    288+*                    TCBJLB             TCBPQE
                                    289+*                    TCBJSCB            TCBJSE                     I270
                                    290+*                    TCBTCT                                        SMF1
                                    291+*                    TCBGRS0 = PARAM LIST ADDRESS
                                    292+*                    TCBGRS1 = DCB ADDRESS
                                    293+*        TCBTSFLG                                                 20021
                                    294+*        TCBTSLP                                                  20021
                                    295+*        TCBTSDP                                                  20021
                                    296+*               ALL OTHER FIELDS,WITH THE EXCEPTION OF TCBGRS(1-9) ARE
                                    297+*               INITIALIZED TO ZERO.

                                    299+*            2- AN IQE FOR THE ETXR ROUTINE(IN SUPV.STORAGE,SP=253)

                                    301+*              FORMAT-
                                    302+*               BYTES(0-3)-IQENXT-LINK FIELD TO NEXT IQE
                                    303+*                                 SET TO ZERO
                                    304+*               BYTES(4-7)-IQEPAR-PARAMETER VALUE
                                    305+*                                 SET TO ADDRESS OF ATTACHED TCB.
                                    306+*               BYTES(8-11)-IQEIRB-ADDRESS OF IRB TO BE SCHEDULED.
                                    307+*                                 SET TO ZERO
                                    308+*               BYTES(12-15)-IQETCB-ADDRESS OF TCB ON WHICH THE IQE'S
                                    309+*                                   IRB IS TO BE SCHEDULED
                                    310+*                                 SET TO TCB OF ATTACHING TASK.

                                    312+*            3-SUBPOOL QUEUE ELEMENT(SPQE) (SP=255)

                                    314+*              FORMAT-
                                    315+*               BYTE0=RESERVED
                                    316+*               BYTES1-3=POINTER TO NEXT SUBPOOL QUEUE ELEMENT OR TCB.
                                    317+*               BYTE4=
                                    318+*                 BIT0- 1=SHARED,0=OWNED
                                    319+*                 BIT1- 1=BYTES1-3 ARE TCB ADDRESS
                                    320+*                       0=BYTES1-3 ARE SPQE ADDRESS
                                    321+*                 BIT2- 1=OWNED AND SHARED
                                    322+*                       0=NOT(OWNED AND SHARED)
                                    323+*                 BITS3-7  RESERVED
                                    324+*              BYTES5-7= POINTER TO DATA BLOCK QUEUE ELEMENT.


                                    326+*ENTRY POINTS-

                                    328+*           1-IGC042-ATTACH SVC SERVICE ROUTINE'S ENTRY POINT.
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    329+*             ENTERED BY THE SVC FLIH BY AN LPSW IN ORDER TO PERFORM
                                    330+*             THE ATTACH FUNCTION REQUESTED BY THE CALLER ISSUING
                                    331+*             SVC 42.

                                    333+*            -THE PSW MUST BE,
                                    334+*              DISABLED FOR ALL MASKABLE INTERRUPTS EXCEPT MACHINE
                                    335+*              CHECK,IN SUPERVISOR MODE,HAVE SUPERVISOR PROTECT KEY(0).

                                    337+*            -THE REGISTERS MUST CONTAIN,
                                    338+*              REG.1=ADDRESS OF THE PROBLEM PROGRAM PARAMETER LIST(PPL)
                                    339+*              REG.15=ADDRESS OF THE SUPERVISOR PARAMETER LIST(SPL).
                                    340+*              REGS.0 AND 2-14=CONTENTS AT THE TIME OF THE SVC42 INTRPT


                                    342+*EXIT POINTS-

                                    344+*           1-TO THE DISPATCHER.THE DISPATCHER WILL PERFORM THE FUNC-
                                    345+*             TION OF PASSING CPU CONTROL TO THE ATTACHING OR ATTACHED
                                    346+*             TASK DEPENDING ON TASK DISPATCHING PRIORITY.

                                    348+*              EXIT IS VIA A BRANCH.

                                    350+*              THE PSW IS,
                                    351+*               DISABLED FOR ALL MASKABLE INTERRUPTS EXCEPT MACHINE
                                    352+*               CHECK,IN SUPERVISOR MODE,HAVE SUPERVISOR PROTECT KEY(0)

                                    354+*              THE REGISTERS CONTAIN,
                                    355+*               REGS.2-9 HAVE THEIR CONTENTS AT THE TIME OF THE SVC 42
                                    356+*                        INTERRUPT.
                                    357+*               REGS.10-1 HAVE MEANINGLESS INFORMATION.

                                    359+*           2-TO LINK. IF A SAVE AREA IS PROVIDED FOR THE          I270
                                    360+*             SUBTASK, ATTACH BRANCHES TO THE DISPATCHER BEFORE    I270
                                    361+*             GETTING A SAVE AREA. ATTACH REGAINS CONTROL UNDER    I270
                                    362+*             THE DAUGHTER TO GET THE SAVE AREA. THEN IT EXITS     I270
                                    363+*             TO LINK.                                             I270

                                    365+*             EXIT IS VIA A BRANCH                                 I270

                                    367+*             THE PSW IS,                                          I270
                                    368+*              DISABLED FOR ALL MASKABLE INTERRUPTS EXCEPT         I270
                                    369+*              MACHINE CHECK, IN SUPERVISOR MODE, HAS SUPERVISOR   I270
                                    370+*              PROTECT KEY(0).                                     I270

                                    372+*             THE REGISTERS CONTAIN,                               I270
                                    373+*              REG0 HAS DCB ADDRESS                                I270
                                    374+*              REG1 HAS ENTRY POINT FOR DAUGHTER TASK              I270
                                    375+*              REG2 HAS MEANINGLESS INFORMATION                    I270
                                    376+*              REGS.3-5 HAVE CVT,TCB,AND RB POINTERS               I270
                                    377+*              REGS.6-12 HAVE MEANINGLESS INFORMATION              I270
                                    378+*              REG13 HAS SAVE AREA ADDRESS                         I270
                                    379+*              REGS.14-15 HAVE MEANINGLESS INFORMATION             I270


                                    381+*ERROR EXIT POINTS-
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    383+*            1-TO ABEND IN ORDER TO CAUSE THE ISSUING TASK TO BE
                                    384+*              TERMINATED.

                                    386+*              THE PSW IS,
                                    387+*               DISABLED FOR ALL MASKABLE INTERRUPTS EXCEPT MACHINE
                                    388+*               CHECK,IN SUPERVISOR MODE,HAVE SUPERVISOR PROTECT KEY(0)

                                    390+*              THE REGISTERS CONTAIN,
                                    391+*               REG.15= SPL ADDRESS
                                    392+*               REGS.0,2-14=MEANINGLESS INFORMATION.
                                    393+*               REG.1=ERROR CODE.

                                    395+*              THE ERROR CODES ARE,
                                    396+*                X'012A' ERROR CODE 1  AN ATTEMPT IS BEING MADE TO
                                    397+*                                      GIVE A SHARED SUBPOOL.

                                    399+*                X'022A' ERROR CODE 2  AN ATTEMPT IS BEING MADE TO
                                    400+*                                      GIVE OR SHARE A SUPERVISOR
                                    401+*                                      SUBPOOL (128-255).

                                    403+*                '032A' ERROR CODE 3  AN ATTEMPT IS BEING MADE     I270
                                    404+*                                      TO GIVE THE JOBPACK QUEUE   I270
                                    405+*                                      WHEN IT CONTAINS CDE'S      I270
                                    406+*                                      WITH USE COUNT NOT ZERO     I270

                                    408+*                X'042A' ERROR CODE 4  THE ECB ADDRESS IS NOT VALID.
                                    409+*                                      1.NOT ON A WORD BOUNDARY
                                    410+*                                      2.LARGER THAN CORE SIZE
                                    411+*                                      3.WRONG PROTECT KEY

                                    413+*                X'052A' ERROR CODE 5: WHILE ATTACHING A TASK     M3891
                                    414+*                                      W/0 A STAI, A FAILURE      M3891
                                    415+*                                      OCCURRED WHILE TRYING TO   M3891
                                    416+*                                      PROPAGATE A STAI EXISTING  M3891
                                    417+*                                      FOR THE ATTACHOR.          M3891


                                    419+*TABLES AND CONTROL BLOCKS REFERENCED-

                                    421+*            1-SVRB WHICH THE ATTACH SERVICE ROUTINE ALTERS FOR THE
                                    422+*               RUNNING OF THE LINK ROUTINE.(SP=255)

                                    424+*               THESE FIELDS ARE SET,

                                    426+*                 RBOPSW- SET TO FULLY DISABLED EXCEPT FOR MACHINE
                                    427+*                         CHECK,SUPERVISOR MODE, RESUME ADDRESS=
                                    428+*                         IEAQCS01(MAIN-LINE OF LINK ROUTINE).

                                    430+*                 RBGRSAVE-
                                    431+*                         SLOTS FOR REGISTERS 14,15 ARE SET TO EITHER
                                    432+*                         PROGRAM NAME OR FIRST TWO WORDS OF DE.REG.13
                                    433+*                         SLOT IS SET TO THE ADDRESS OF THE PP PARA-
                                    434+*                         METER LIST.

                                    436+*                 RBEXSAVE-
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    437+*                         SET TO REMAINING PORTION OF THE DE.

                                    439+*                 RBTCBNXT-SET ON TO INDICATE THAT THE TCB IS POINTED
                                    440+*                          TO FROM THE RBLINK FIELD.

                                    442+*                 RBLINK-SET TO INDICATE THE TCB ADDRESS.
                                    443+*               (THE RBTCBNXT AND RBLINK FIELDS ARE ALSO TESTED).

                                    445+*            2-TCB OF THE ATTACHING TASK(SP=253)

                                    447+*               THESE FIELDS ARE SET,

                                    449+*                 TCBGRS
                                    450+*                    REGS.10 THROUGH 0 - SET FROM SVRB RBGRSAVE'S
                                    451+*                     CORRESPONDING SLOTS.
                                    452+*                    REG1-SET TO THE ADDRESS OF THE ATTACHED TCB.

                                    454+*               THESE FIELDS ARE TESTED,
                                    455+*                 TCBRBP
                                    456+*                 TCBFLGS
                                    457+*                 TCBFSM                                           RORI
                                    458+*                 TCBLMP
                                    459+*                 TCBDSP
                                    460+*                 TCBTCB
                                    461+*                 TCBFTC
                                    462+*        TCBTSFLG                                                 20021
                                    463+*        TCBTSLP                                                  20021
                                    464+*        TCBTSDP                                                  20021

                                    466+*            3-IEATCBP
                                    467+*                 DOUBLE WORD CONTAINING TCB POINTERS.
                                    468+*                 FIRST WORD,TERMED 'NEW', IS TESTED AND SET.
                                    469+*                 SECOND WORD,TERMED 'OLD',IS TESTED.

                                    471+*            4-IEAHEAD
                                    472+*                 ADDRESS OF THE FIRST TCB ON THE READY QUEUE.(TESTED)


                                    474+*LIST ORIGINS,TABLES,CONTROL BLOCKS INCLUDED.

                                    476+*        NONE                                                      RORI


                                    478+*RESTRICTIONS ON USAGE OF THE ROUTINE-
                                    479+*        NONE
                                    480+*NOTES-
                                    481+*        NONE
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    483+*********************************************************************
                                    484+*00              * ENTRY POINT ADDRESSS OR ADDRESS OF DOUBLE WORD   *
                                    485+* FLAG FOR       * OR DIRECTORY ENTRY ADDRESS OF FIRST PROGRAM TO   *
                                    486+* DE/EP/NAME     * BE ENTERED                                       *
                                    487+*********************************************************************
                                    488+*04                                                                 *
                                    489+*                * DCB ADDRESS                                      *
                                    490+*                *                                                  *
                                    491+*********************************************************************
                                    492+*08                                                                 *
                                    493+* FLAG FOR STAI  * ECB ADDRESS                                    20021
                                    494+* EXIT/TASKLIB/& *                                                20021
                                    495+* LOGON          *                                                20021
                                    496+*********************************************************************
                                    497+*12              *                                                  *
                                    498+* FLAG FOR GIVE  * GIVE SUBPOOL VALUE OR ADDRESS OF LIST OF         *
                                    499+* VALUE OR LIST  * SUBPOOL VALUE                                    *
                                    500+*********************************************************************
                                    501+*16              *                                                  *
                                    502+* FLAG FOR SHARE * SHARE SUBPOOL VALUE OR ADDRESS OF LIST OF        *
                                    503+* VALUE OR LIST  * SUBPOOL VALUE                                    *
                                    504+*********************************************************************
                                    505+*20              *                                                  *
                                    506+*                * ETXR ROUTINE ADDRESS                             *
                                    507+*                *                                                  *
                                    508+*********************************************************************
                                    509+*24                               *                *FLAGS FOR  *   I270
                                    510+*                                 *                *JSCB,      *   I270
                                    511+*      DISPATCHING PRIORITY       * LIMIT PRIORITY *GIVEJPQ,   *   I270
                                    512+*                                 *                *KEY,SZERO, *   I270
                                    513+*                                 *                *SVAREA,    *   I270
                                    514+*                                 *                *JSTCB,SM   *   I270
                                    515+*********************************************************************
                                    516+*28                                                                 *
                                    517+*                P R O G R A M                                      *
                                    518+*                                                                   *
                                    519+*********************************************************************
                                    520+*32                                                                 *
                                    521+*                   N A M E                                         *
                                    522+*                                                                   *
                                    523+*********************************************************************
                                    524+*36              *                                             *   I270
                                    525+*                *  EXTENSION OF SPL FOR JSCB ADDRESS             20021
                                    526+*                *                                             *   I270
                                    527+****************************************************************   I270
                                    528+*40              *                                             *  20021
                                    529+*                *  STAI PARAMETER LIST ADDRESS                *  20021
                                    530+*                *                                             *  20021
                                    531+****************************************************************  20021
                                    532+*44              *                                             *  20021
                                    533+*                *  STAI EXIT ROUTINE ADDRESS                  *  20021
                                    534+*                *                                             *  20021
                                    535+****************************************************************  20021
                                    536+*48              *                                             *  20021
                                    537+*                *  TASKLIB DCB ADDRESS                        *  20021
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    538+*                *                                             *  20021
                                    539+****************************************************************  20021

                                    541+* BYTE 0, BIT 0, ON MEANS DIRECTORY ADDRESS.
                                    542+* BYTE 0, BIT 0, OFF MEANS ENTRY POINT ADDRESS OR ADDRESS OF PGM NAME.
                                    543+* BYTE 8,BIT 5, ON MEANS RCT IS ATTACHING LOGON                   20021
                                    544+*        BIT 6, ON MEANS TASKLIB DCB ADDRESS GIVEN                20021
                                    545+*        BIT 7, ON MEANS STAI EXIT ADDRESS GIVEN                  20021
                                    546+* BYTE 12/16, BIT 7, ON MEANS ADDRESS.
                                    547+* BYTE 12/16, BIT 7, OFF MEANS VALUE.
                                    548+* BYTE 20,BITS0-5=RESERVED                                         I270
                                    549+*        BIT6=ROLL PARAMETER 1,1=STEP CANNOT BE ROLLED OUT         I270
                                    550+*                              0=STEP CAN BE ROLLED OUT            I270
                                    551+*        BIT7=ROLL PARAMETER 2,1=STEP CAN INVOKE ROLLOUT           I270
                                    552+*                              0=STEP CANNOT INVOKE ROLLOUT        I270
                                    553+* BYTE 27,BIT0=RESERVED                                            I270
                                    554+*         BIT1=JSCB PARAMETER,1=JSCB ADDR GIVEN                    I270
                                    555+*                             0=JSCB ADDR NOT GIVEN                I270
                                    556+*        BIT2=GIVEJPQ PARAMETER,1=JOB PACK AREA GIVEN              I270
                                    557+*                               0=JOB PACK AREA NOT GIVEN          I270
                                    558+*        BIT3=KEY PARAMETER,1=PROTECT KEY ZERO                     I270
                                    559+*                           0=PROPAGATE PROTECT KEY                I270
                                    560+*        BIT4=SZERO PARAMETER,1=SUBPOOL ZERO NOT SHARED            I270
                                    561+*                             0=SUBPOOL ZERO SHARED                I270
                                    562+*        BIT5=SVAREA PARAMETER,1=NO SAVE AREA                      I270
                                    563+*                              0=SAVE AREA                         I270
                                    564+*        BIT6=JSTCB PARAMETER,1=JSTCB POINTS TO ATTACHEE           I270
                                    565+*                             0=PROPAGATE JSTCB                    I270
                                    566+*        BIT7=SM PARAMETER,1=SUPERVISOR MODE                       I270
                                    567+*                          0=PROBLEM PROGRAM MODE                  I270
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    569+* REGISTER EQUATES

000000                              571+XR0      EQU   0 WORK REGISTER
000000                              572+SIZEREG  EQU   0 .       GETMAIN PARAMETER REGS                  A35419
000001                              573+GETREG   EQU   1 .                                               A35419
000001                              574+XR1      EQU   1 REGISTER 1
000001                              575+XRCOREAD EQU   1 ADDRESS OF  GOTTEN CORE
000001                              576+XRIRB    EQU   1 IRB ADDRESS
000001                              577+XRSPQE   EQU   1 SPQE ADDRESS
000002                              578+XR2      EQU   2 REGISTER 2
000002                              579+XRNEW    EQU   2 REGISTER 2
000002                              580+XRTCB    EQU   2 WORK TCB REGISTER
000003                              581+XR3      EQU   3 REGISTER 3
000003                              582+XRCVT    EQU   3 CONTROL VECTOR TABLE ADDRESS
000004                              583+XROTCB   EQU   4 CONTENT OF 'OLD'
000005                              584+XR5      EQU   5 REGISTER 5 READY TCB ADDRESS
000005                              585+XRORB    EQU   5 TOP RB ON QUEUE OF 'OLD' TCB
000006                              586+XR6      EQU   6 REGISTER 6
000006                              587+XRECB    EQU   6 INPUT ECB ADDRESS
000006                              588+XRPRB    EQU   6 ATTACHOR'S PRB ADDRESS
000006                              589+XRTCBPTR EQU   6 TCB ADDRESS ON READY QUEUE
000006                              590+XRTCBSPQ EQU   6 TCB'S SPQE FIELD COUNTER
000006                              591+XRJSCB   EQU   6 INPUT JSCB ADR                   I270
000007                              592+XR7      EQU   7 REGISTER 7
000007                              593+XRETXR   EQU   7 INPUT ETXR ADDRESS
000007                              594+XRSPID   EQU   7 SUB POOL IDENTIFICATION
000007                              595+XRSVRB14 EQU   7 ADDRESS OF SVRB REGISTER 14 SAVE AREA
000008                              596+XR8      EQU   8 REGISTER 8
000008                              597+XRASTCB  EQU   8 ATTACHED TCB'S SISTER TCB ADDRESS
000008                              598+XRDE     EQU   8 ADDRESS OF DIRECTORY ENTRY
000008                              599+XRDQE    EQU   8 DQE ADDRESS
000008                              600+XRINDPRI EQU   8 INPUT DISPATCH OR ATTACHOR'S AND INPUT ADDED
000008                              601+XRLPRI   EQU   8 ATTACHOR'S LIMIT PRIORITY
000008                              602+XRPKEY   EQU   8 PROTECT KEY OF ATTACHORS
000008                              603+XRSPCTR  EQU   8 SUB POOL ID COUNTER
000008                              604+XRIQEW   EQU   8 CIRB MACRO IQE ADDRESS
000008                              605+CDEREG   EQU   8 ADDRESS OF CDE                   I270
000009                              606+XR9      EQU   9 REGISTER 9
000009                              607+XRDPRI   EQU   9 ATTACHOR'S DISPATCH PRIORITY
000009                              608+XRFQE    EQU   9 FQE ADDRESS
000009                              609+XRINLPRI EQU   9 INPUT LIMIT PRIORITY OR DIFFERENCE FROM ATT'OR
000009                              610+XRIQE    EQU   9 IQE ADDRESS
000009                              611+XRSPADR  EQU   9 SUB POOL IDENTIFICATION ADDRESS
00000A                              612+XRATCB   EQU   10 ATTACHED TCB ADDRESS
00000B                              613+XRBASE   EQU   11 BASE REGISTER
00000C                              614+XRLINK   EQU   12 LINK REGISTER
00000C                              615+XRCOUNT  EQU   12 COUNT REGISTER
00000C                              616+XRLENGTH EQU   12 LENGTH REGISTER
00000D                              617+XRWORKAD EQU   13 ADDRESS OF ATTACHED TCB'S WORK AREA
00000D                              618+XRSAVE   EQU   13 SAVE REGISTER 1
00000E                              619+XRPARA   EQU   14 INPUT PARAMETER ADDRESS
00000E                              620+XRRETURN EQU   14 RETURN REGISTER
00000F                              621+XR15     EQU   15 WORK REG 15
00000F                              622+XRSPQPTR EQU   15 ADDRESS OF SPQE POINTER
00000F                              623+RGETMAIN EQU   15 .          REG FOR BRANCHING TO GETMAIN        A35419
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    625+* TCB DISPLACEMENT EQUATES

00001D                              627+TCBFLAGS EQU   X'1D' .            OFFSET TO TCB FLAGS FIELD      A53372
000080                              628+TCBFC    EQU   X'80' .            TASK TERMINATED BIT            A53372
000023                              629+DPRI     EQU   35 DISPATCH PRIORITY
00008C                              630+IQEFLD   EQU   140 IQE PTR
000074                              631+LINKTCB  EQU   116 LINKED TCB PTR
000080                              632+SISPTR   EQU   128 POINTER TO SISTER
000070                              633+TCBIDFLD EQU   112 ID FIELD
000018                              634+TCBMSSS  EQU   24 SPQE PTR IN TCB
000000                              635+TCBRB    EQU   0 RB PTR
000030                              636+TCBXR0   EQU   48 REG 0  - TCB
000034                              637+TCBXR1   EQU   52 REG 1  - TCB
000058                              638+TCBXR10  EQU   88 REG 10 - TCB
000097                              639+TSDPRI   EQU   151 TIME SHARING DISPATCH PRIORITY  20021
0000DF                              640+TCBATOFF EQU   X'DF' 20021

                                    642+* PRB, IRB AND SVRB DISPLACEMENT

000000                              644+RBTMFLD  EQU   0 FLAGS FOR TIMER
000001                              645+RBPPSAV  EQU   1 PTR TO PP REG SAVE AREA
000004                              646+RBABOPSW EQU   4 BITS 32-63 OF USER PSW
000008                              647+RBWCSA   EQU   8 WAIT COUNT SAVE AREA
000009                              648+RBSIZE   EQU   9 SIZE OF RB IN DOUBLE WORDS
00000A                              649+RBSTAB   EQU   10 STATUS AND ATTRIBUTE BITS
00000B                              650+RBSTAB2  EQU   11 STATUS AND ATTRIBUTE BITS  20021
000020                              651+RBATTN   EQU   X'20' .  BIT SET IN A PRB BY STAX, SIGNIFYING      M2014
                                    652+*                         PREVENTION OF ATTENTION EXITS.  TCB     M1678
                                    653+*                         BIT WILL ALSO BE ON.                    M1678
00000C                              654+RBEP     EQU   12 ENTRY POINT ADDRESS
000010                              655+RBOPSW   EQU   16 OLD PSW
000018                              656+RBUSE    EQU   24 USE COUNT
000019                              657+RBIQE    EQU   25 LIST ORIGIN FOR IQE'S
00001C                              658+RBWCF    EQU   28 WAIT COUNT
00001C                              659+RBLINK   EQU   28 POINTER TO NEXT RB ON QUEUE
000020                              660+RBGRSAVE EQU   32 REGISTER SAVE AREA
000060                              661+RBEXSAVE EQU   96 EXTENDED SAVE AREA             20021
000080                              662+RBTCBNXT EQU   X'80' 20021
0000C0                              663+RBFTSVRB EQU   X'C0' 20021
000020                              664+SVRBXR0  EQU   32 REG 0  - SVRB
000024                              665+SVRBXR1  EQU   36 REG 1  - SVRB
000028                              666+SVRBXR2  EQU   40 REG 2  - SVRB
000048                              667+SVRBXR10 EQU   72 REG 10 - SVRB
000054                              668+SVRBXR13 EQU   84 REG 13 - SVRB
000058                              669+SVRBXR14 EQU   88 REG 14 - SVRB

                                    671+* IQE DISPLACEMENTS

000004                              673+FSTWD    EQU   4 FIRST WORD OF IQE
000008                              674+IRBADR   EQU   8 ADDRESS OF IRB
00000C                              675+MOMTCB   EQU   12 ADDRESS OF ATTACHING TCB
000060                              676+IQEDISP  EQU   96 DISPLACEMENT OF IQE         1505
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    678+* GENERAL EQUATES


0000A0                              680+HEADPTR  EQU   160 LOGICAL ADR TO 'HEAD' PTR
000000                              681+NEWPTR   EQU   0 LOGICAL ADR TO 'NEW' PTR
0000A4                              682+MACHSIZE EQU   164 LOGICAL ADR TO MACHINE SIZE
000000                              683+ZERO     EQU   X'00' ZERO BYTE
000000                              684+SMODEKEY EQU   0 SUPERVISER MODE KEY.
000000                              685+ZERONUM  EQU   0 20021
000001                              686+ONE      EQU   1 DISPLACEMENT OF ONE
000002                              687+TWO      EQU   2 20021
000003                              688+THREE    EQU   3 20021
000004                              689+FOUR     EQU   4 20021
000008                              690+EIGHT    EQU   8 20021
00000C                              691+TWELVE   EQU   12 20021
000018                              692+N24      EQU   24 NUMBER EQUATE                  20021
0000FF                              693+N255     EQU   255 20021
000100                              694+N256     EQU   256 20021
000001                              695+TESTBIT  EQU   1 TEST BIT (TEST AVAILABLE P KEY)
000000                              696+CDELINK  EQU   0 PTR TO NEXT CDE             I270
000010                              697+CDUSE    EQU   16 USE COUNT IN CDE            I270
000008                              698+ATDFLT   EQU   X'08' DEFAULT MASK FOR GIVEJPQ,   I270
                                    699+*                                      JSTCB,KEY,SVAREA,AND SM     I270
000040                              700+ATJSCB   EQU   X'40' INPUT FLAG FOR JSCB         I270
                                    701+*                                      ADDRESS IN SPL              I270
000022                              702+ATJOBPQ  EQU   X'22' INPUT FLAG TO GIVE JOB      I270
                                    703+*                                      PACK AREA                   I270
000010                              704+ATKEY    EQU   X'10' INPUT FLAG FOR KEY ZERO     I270
000008                              705+ATZERO   EQU   X'08' INPUT FLAG TO SHARE SP0     I270
000004                              706+ATSAVE   EQU   X'04' INPUT FLAG FOR SAVE AREA    I270
000002                              707+ATJST    EQU   X'02' INPUT FLAG FOR JSTCB TO     I270
                                    708+*                                      POINT TO ATTACHEE           I270
000001                              709+ATMODE   EQU   X'01' INPUT FLAG FOR MODE         I270
00042A                              710+INVECB   EQU   X'042A' I250
000001                              711+GIVEL    EQU   X'01' INPUT GIVE SP LIST FLAG
000001                              712+SHAREL   EQU   X'01' SHARE SP LIST FLAG
000001                              713+ROLABLY  EQU   X'01' ROLLOUTABILITY FLAG         RORI
000002                              714+PROPKEY  EQU   X'02' INPUT FLAG TO PROP. KEY
000002                              715+ETXRFLG  EQU   X'02' TCB FLAG ETXR PRESENT
000002                              716+NROLABLY EQU   X'02' NON-ROLLOUTABLE COUNT       RORI
00000C                              717+IRBSIZE  EQU   12 IRB SIZE IN DOUBLE WORDS    1505
000010                              718+IRBRES   EQU   X'10' RESCHEDUL FLAG IN IRB
000020                              719+PKEYWAIT EQU   X'20' TCB WAITING FOR PROTECT KEY
000020                              720+OSFLAG   EQU   X'20' SPQE OWN/SHARED FLAG
000040                              721+IRBFLAG  EQU   X'40' IRB INDICATER IN RB
000040                              722+LASTSPQE EQU   X'40' LAST SPQE FLAG
00007F                              723+PPMODE   EQU   X'7F' UNFLAG SUPERVISER MODE
000080                              724+TCBFSM   EQU   X'80' SUPERVISOR MODE FLAG
000080                              725+SHARESP  EQU   X'80' SHARED SPQE FLAG
000010                              726+EMUL     EQU   X'10' .                 TASK IS AN EMULATOR       A54872
000080                              727+RECRSBIT EQU   X'80' STAE RECURSION FLAG         STAE
000004                              728+RETCODE4 EQU   4 STAE RECURSION RETURN CODE  STAE
000002                              729+TLIBFLAG EQU   X'02' IND. A TASKLIB DCB ADDR.   20021
000001                              730+STAIFLAG EQU   X'01' FLAG REQUESTING STAI SCB   20021
000020                              731+STAISCB  EQU   X'20' FLAG TO INDICATE STAI SCB  20021
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                              732+TCBATT   EQU   X'20' .  ATTENTION BIT IN TCB/TSO FLAG BYTE        M4393
000004                              733+LOGONFLG EQU   X'04' FLAG INDICATING LOGON IS   20021
                                    734+*                                      BEING ATTACHED.            20021
000003                              735+SVCEXIT  EQU   3 SVC EXIT ROUTINE CALL
000004                              736+TESTRBIT EQU   X'04' TEST BIT IN TCB
0000FF                              737+P255     EQU   255 PLUS 255
0000FC                              738+SP252    EQU   252 SUBPOOL 252 ID
0000FB                              739+SP251    EQU   251 SUBPOOL 251 ID              I270
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    742+* DSECT FOR ATTACH INPUT PARAMETER (BASE REGISTER 14)


000000                              744+ATPRMS   DSECT
000000                              745+ATDEFLAG DS    CL1 FLAG TO INDICATE ENTRY POINT
000001                              746+ATPGNADR DS    CL3 ENTRY ADDRESS
000004                              747+ATDCBADR DS    CL4 DCB ADDRESS
000008                              748+ATECBADR DS    CL1 FLAG FOR LOGON,TASKLIB,STAI20021
000009                              749+         DS    CL3 ECB ADDRESS                20021
00000C                              750+ATGSFLAG DS    CL1 GIVE SP FLAG INDICATE VALUE/ADR
00000D                              751+ATGSFLD  DS    CL3 GIVE SP VALUE OR ADDRESS
000010                              752+ATSHFLAG DS    CL1 SHARE SP FLAG INDICATE VALUE/ADR
000011                              753+ATSHFLD  DS    CL3 SHARE SP VALUE OR ADDRESS
000014                              754+ATROLL   DS    CL1 ROLLOUT BITS                RORI
000015                              755+ATETXR   DS    CL3 ETXR ROUTINE ADDRESS        RORI
000018                              756+ATDPMOD  DS    CL2 DISPACHING PRIORITY VALUE
00001A                              757+ATLPMOD  DS    CL1 LIMIT PRIORITY VALUE
00001B                              758+ATINDS   DS    CL1 FLAG FOR JSCB,GIVEJPQ,      I270
                                    759+*                                      KEY,SZERO,SVAREA,JSTCB,     I270
                                    760+*                                      AND SM PARAMETERS           I270
00001C                              761+ATPRGNM  DS    CL8 PROGRAM NAME
000024                              762+ATJSCBAD DS    CL4 JSCB ADDRESS                I270
000028                              763+ATSTPLAD DS    CL4 STAI PARAM LIST ADDR       20021
00002C                              764+ATEXRTAD DS    CL4 EXIT RTN ADDR FOR STAI     20021
000030                              765+ATASKLIB DS    CL4 TASKLIB DCB ADDRESS        20021
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    767+* ATTACH ROUTINE REQUESTOR TCB DSECT (BASE REGISTER 4)


000000                              769+TCBFLDSP DSECT
000000                              770+TCBRBPP  DS    CL4 RB ADR
000004                              771+TCBPIEP  DS    CL4 PIE ADR
000008                              772+TCBDEBP  DS    CL4 DEB ADR
00000C                              773+TCBTIOP  DS    CL4 TASK I/O TABLE ADR
000010                              774+TCBCMPP  DS    CL4 TASK COMPLETION CODE
000014                              775+TCBTRNP  DS    CL4 TESTRAN FIELD
000018                              776+TCBNROCP DS    CL1 NON-ROLLOUT COUNT           RORI
000019                              777+TCBMSSP  DS    CL3 DATA BLOCK QUEUE ELEMENT    RORI
00001C                              778+TCBPKFP  DS    CL1 PROTECT KEY
00001D                              779+TCBFLGSP DS    CL5 FLAG BYTES
000022                              780+TCBLMPP  DS    CL1 LIMIT PRIORITY
000023                              781+TCBDSPP  DS    CL1 DISPACHING PRIORITY
000024                              782+TCBLLSP  DS    CL4 LOADED PROGRAM LIST ADR
000028                              783+TCBJLBP  DS    CL4 JOB LIBRARY DCB ADR
00002C                              784+TCBJSEP  DS    CL4 JOB STEP INDEX ELEMENT ADR
000030                              785+TCBGRSP  DS    CL64 GENERAL REGISTER SAVE AREA
000070                              786+TCBFSAP  DS    CL4 ADR. OF FIRST PP SAVE AREA
000074                              787+TCBTCBP  DS    CL4 ADR OF NEXT TCB ON READY QUEUE
000078                              788+TCBTMEP  DS    CL4 ADR OF TIMER ELEMENT
00007C                              789+TCBITBP  DS    CL4 INITIATOR/TERMINATOR TCB ADR
000080                              790+TCBNTCP  DS    CL4 TCB'S NEXT TCB ADR
000084                              791+TCBOTCP  DS    CL4 TCB'S ORIGIN TCB ADR
000088                              792+TCBLTCP  DS    CL4 TCB'S LAST TCB ADR
00008C                              793+TCBIQEP  DS    CL4 IQE ADR FOR ETXR ROUTINE
000090                              794+TCBECBP  DS    CL4 ECB ADR
000094                              795+TCBTSFLP DS    C TIME SHARING FLAGS         20021
000080                              796+TCBTSTSP EQU   X'80' INDICATES TASK IS A TIME   20021
                                    797+*                                      SHARING TSK.               20021
000095                              798+TCBSTPCP DS    C 20021
000096                              799+TCBTSLPP DS    C TIME SHARING LIMIT PRIORITY20021
000097                              800+TCBTSDPP DS    C TIME SHARING DISPAT PRIO   20021
000098                              801+TCBPQEP  DS    CL4 PARTITION QUEUE ELEMENT ADDR
00009C                              802+TCBAQEP  DS    CL4 ALLOCATED QUEUE ELEM. ADDR  MO17
0000A0                              803+TCBNSTAP DS    CL4 STAE CONTROL BLOCK ADDRESS  STAE
0000A4                              804+TCBTCTP  DS    CL4 TIMING CONTROL TABLE ADDR   STCB
0000A8                              805+TCBUSERP DS    CL4 RESERVED                    STCB
0000AC                              806+TCBDARP  DS    CL1 DAMAGE ASSESSMENT BITS                           DAR
0000AD                              807+TCBDISPP DS    CL3 SECONDARY DISPATCHABILITY   I270
                                    808+*                                       FLAGS                      I270
0000B0                              809+TCBRESP  DS    CL4 RESERVED                    I270
0000B4                              810+TCBJSCBP DS    CL4 JSCB ADDRESS                I270
0000B8                              811+         DS    CL4 RESERVED               BD A58667
0000BC                              812+         DS    CL4 TCBIOBRC               BD A58667
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    814+* ATTACHED TCB DSECT (BASE REGISTER 10)


000000                              816+TCBFLDS  DSECT
000000                              817+TCBRBP   DS    CL4 RB ADR
000004                              818+TCBPIE   DS    CL4 PIE ADR
000008                              819+TCBDEB   DS    CL4 DEB ADR
00000C                              820+TCBTIO   DS    CL4 TASK I/O TABLE ADR
000010                              821+TCBCMP   DS    CL4 TASK COMPLETION CODE
000014                              822+TCBTRN   DS    CL4 TESTRAN FIELD
000018                              823+TCBNROC  DS    CL1 NON-ROLLOUT COUNT           RORI
000019                              824+TCBMSS   DS    CL3 DATA BLOCK QUEUE ELEMENT    RORI
00001C                              825+TCBPKF   DS    CL1 PROTECT KEY
00001D                              826+TCBFLGS  DS    CL5 FLAG BYTES
000022                              827+TCBLMP   DS    CL1 LIMIT PRIORITY
000023                              828+TCBDSP   DS    CL1 DISPACHING PRIORITY
000024                              829+TCBLLS   DS    CL4 LOADED PROGRAM LIST ADR
000028                              830+TCBJLB   DS    CL4 JOB LIBRARY DCB ADR
00002C                              831+TCBJSE   DS    CL4 JOB STEP INDEX ELEMENT ADR
000030                              832+TCBGRS   DS    CL64 GENERAL REGISTER SAVE AREA
000070                              833+TCBFSA   DS    CL4 ADR. OF FIRST PP SAVE AREA
000074                              834+TCBTCB   DS    CL4 ADR OF NEXT TCB ON READY QUEUE
000078                              835+TCBTME   DS    CL4 ADR OF TIMER ELEMENT
00007C                              836+TCBITB   DS    CL4 INITIATOR/TERMINATOR TCB ADR
000080                              837+TCBNTC   DS    CL4 TCB'S NEXT TCB ADR
000084                              838+TCBOTC   DS    CL4 TCB'S ORIGIN TCB ADR
000088                              839+TCBLTC   DS    CL4 TCB'S LAST TCB ADR
00008C                              840+TCBIQE   DS    CL4 IQE ADR FOR ETXR ROUTINE
000090                              841+TCBECB   DS    CL4 ECB ADR
000094                              842+TCBTSFLG DS    C TIME SHARING FLAGS         20021
000080                              843+TCBTSTSK EQU   X'80' INDICATES TIME SHAR TSK    20021
000095                              844+TCBSTPCT DS    C 20021
000096                              845+TCBTSLP  DS    C TIME SHARING LIMIT PRIOR   20021
000097                              846+TCBTSDP  DS    C TIME SHARING DISPAT PRIOR  20021
000098                              847+TCBPQE   DS    CL4 PARTITION QUEUE ELEMENT ADDR
00009C                              848+TCBAQE   DS    CL4 ALLOCATED QUEUE ELEM. ADDR  MO17
0000A0                              849+TCBNSTAE DS    CL4 STAE CONTROL BLOCK ADDRESS  STAE
0000A4                              850+TCBTCT   DS    CL4 TIMING CONTROL TABLE ADDR   STCB
0000A8                              851+TCBUSER  DS    CL4 RESERVED                    STCB
0000AC                              852+TCBDAR   DS    CL1 DAMAGE ASSESSMENT BITS                           DAR
0000AD                              853+TCBDISP  DS    CL3 SECONDARY DISPATCHABILITY   I270
                                    854+*                                       FLAGS                      I270
0000B0                              855+TCBRES   DS    CL4 RESERVED                    I270
0000B4                              856+TCBJSCB  DS    CL4 JSCB ADDRESS                I270
0000B8                              857+         DS    CL4 RESERVED               BD A58667
0000BC                              858+         DS    CL4 TCBIOBRC               BD A58667
000000                              859+XCCVT    DSECT
                                    860+*
                                    861+*              OS/360
                                    862+*        COMMUNICATION VECTOR TABLE
                                    863+*
                                    864+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5
                                    865+*
000010                              866+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT
                                    867+*
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    868+*              BEGINNING OF CVT PROPER
                                    869+*
000000                              870+         DS    0F
000000                              871+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE
                                    872+*
000000 00000000                     873+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST
000004 00000000                     874+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE
                                    875+*                              ASYNCHRONOUS EXITS
000008 00000000                     876+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB
00000C 00000000                     877+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB
000010 00000000                     878+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT
                                    879+*                              CONSOLE INTERRUPTION ROUTINE
000014 00000000                     880+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE
000018 00000000                     881+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING
                                    882+*                              ROUTINE FOR SUPERVISOR
00001C 00000000                     883+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                    884+*                              RELATIVE TRACK ADDR TO ABSOLUTE
000020 00000000                     885+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                    886+*                              ABSOLUTE TRACK ADDR TO RELATIVE
000024 00000000                     887+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION
                                    888+*                              IN UCB LOOKUP TABLE
000028 00000000                     889+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION
                                    890+*                              IN UCB LOOKUP TABLE
00002C 00000000                     891+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE
                                    892+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES
000030 00000000                     893+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY
                                    894+*                              IN UCB LOOKUP TABLE
000034 00000000                     895+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE
000038 00000000                     896+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL
00003C 00000000                     897+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)
                                    898+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS
                                    899+*                              MASTER SCHEDULER RESIDENT DATA AREA
000040 00000000                     900+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE
000044 00000000                     901+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE
000048 00000000                     902+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS
                                    903+*                              FOR DAMAGE ASSESSMENT ROUTINES
00004C 00000000                     904+CVT0FN00 DC    A(0) -        RESERVED (MVT)
000050 0A03                         905+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER
000052 07FE                         906+CVTBRET  BR    14 -          RETURN TO CALLER
000054 00000000                     907+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB
000058 00000000                     908+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER
                                    909+*                              ROUTINE (SHPC FIRST)
00005C 00000000                     910+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL
000060 00000000                     911+CVTSJQ   DC    A(0) -        RESERVED (MVT)
000064 00000000                     912+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR
000068 00000000                     913+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE
                                    914+*                              FOR INTERVAL TIMER
00006C 00000000                     915+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE
                                    916+*                              FOR INTERVAL TIMER
000070 00000000                     917+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE
000074 10                           918+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM
000040                              919+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS
000020                              920+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS
000010                              921+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1
000004                              922+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000075 000000                       923+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC
000078 00000000                     924+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE
00007C 00000000                     925+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER
000080 00000000                     926+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS
000084 00000000                     927+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE
000088 00000000                     928+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER
00008C 00000000                     929+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE
000090 00000000                     930+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE
000094 00000000                     931+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT
                                    932+*                              DATA AREA (MVT/MFT)
000098 00000000                     933+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE
00009C 00000000                     934+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE
0000A0 00000000                     935+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE
0000A4 00000000                     936+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS
0000A8 00000000                     937+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)
0000AC 00000000                     938+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD
                                    939+*                              (0 IF GFX INACTIVE) MVT
0000B0 00000000                     940+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA
                                    941+*                              (MVT/MFT)
0000B4 0000                         942+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER
0000B6 00                           943+CVTOPTA  DC    AL1(00) -     MISCELLANEOUS FLAGS
000080                              944+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)
000040                              945+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --
                                    946+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000020                              947+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --
                                    948+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000010                              949+CVTNIP   EQU   X'10' -       NIP RUNNING
000008                              950+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)
000004                              951+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE
000002                              952+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT
000001                              953+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT
0000B7 00                           954+CVTOPTB  DC    AL1(00) - MISCELLANEOUS FLAGS
000080                              955+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)
000020                              956+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)
                                    957+*
                                    958+*              PCP OVERLAY
                                    959+*
0000B8                              960+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART
0000BB                              961+CVTSTUSA DS    B -           STATUS BYTE A
000008                              962+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART
                                    963+*                              WAS INITIATED INTRASTEP
000004                              964+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART
                                    965+*                              WAS INITIATED INTERSTEP
000002                              966+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM
                                    967+*                              AND DATA HAS NOT BEEN READ
0000BC                              968+         DS    CL2 -         RESERVED
0000BE                              969+         DS    CL2 -         RESERVED
                                    970+*
                                    971+*              MVT/MFT OVERLAY
                                    972+*
0000B8                              973+         ORG   CVTCRTTR
                                    974+*
0000B8 00000000                     975+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR
0000BC 00000000                     976+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE
                                    977+*
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    978+*              END OF OVERLAYS
                                    979+*
0000C0 00000000                     980+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)
0000C4 00000000                     981+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA
0000C8 00000000                     982+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT
                                    983+*                              (MVT/MPS)
0000CC 00000000                     984+CVTUSER  DC    A(0) -        A WORD TO THE USER
                                    985+*
                                    986+*              MFT/MVT CVT EXTENSION
                                    987+*
0000D0 00000000                     988+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT
0000D4 0A0D                         989+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)
0000D6 0A06                         990+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)
0000D8 00000000                     991+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT
0000DC 00000000                     992+CVTPATCH DC    A(0) -        ADDR OF FE PATCH AREA
0000E0 00000000                     993+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA
                                    994+*                              (MVT/MFT)
0000E4                              995+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)
0000E4 00                           996+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)
000080                              997+CVTTSRDY EQU   X'80' -       TIME SHARING READY
0000E5 000000                       998+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)
0000E8 00000000                     999+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)
0000EC                             1000+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)
0000EC 00                          1001+CVTGTFST DC    B'0' -        STATUS FLAGS
0000C0                             1002+CVTGTFS  EQU   X'C0' -       STATE
                                   1003+*/       00    CVTGTFIN      INACTIVE
                                   1004+*/       01    CVTGTFSR      STARTING
                                   1005+*/       10    CVTGTFSP      STOPPING
                                   1006+*/       11    CVTGTFAC      ACTIVE
000020                             1007+CVTSTATE EQU   X'20' -       IN CONTROL
000010                             1008+CVTMODE  EQU   X'10' -       EXT MODE
000008                             1009+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA
000004                             1010+CVTUSR   EQU   X'04' -       USR TRACE
000002                             1011+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID
0000ED 000000                      1012+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE
0000F0                             1013+CVTTCMFG DS    0B -          TCAM FLAGS
000080                             1014+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)
0000F0 00000000                    1015+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF
                                   1016+*                            TCAM ADDRESS VECTOR TABLE
                                   1017+*
                                   1018+*              MVT CVT EXTENSION
                                   1019+*
0000F4                             1020+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE
                                   1021+*                            (PWF)                               S21167
0000F4 80                          1022+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY
                                   1023+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167
000080                             1024+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167
0000F5 000000                      1025+CVTVOLT2 DC    AL3(0) -  PWF RECHECK TIME DELAY.  THIS VALUE IS
                                   1026+*                            OVERLAID BY CVTVOLM2 AFTER PWF
                                   1027+*                            INITIALIZATION                      S21167
0000F8 00000000                    1028+         DC    A(0) -        RESERVED
                                   1029+*
                                   1030+*              MVT/MFT CVT EXTENSION
                                   1031+*
0000FC 00000114                    1032+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1033+*                            (ICB421)                APAR'S 47331,47332
000100                             1034+         DS    F -           RESERVED
000104                             1035+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE
000104                             1036+         DS    X -           RESERVED
000105 000000                      1037+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE
000108                             1038+         DS    F -           RESERVED
00010C                             1039+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307
00010C                             1040+         DS    X -           RESERVED                            ICB307
00010D 000000                      1041+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND
                                   1042+*                            COMMUNICATION AREA                  ICB307
000110                             1043+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308
000110                             1044+         DS    X -           RESERVED                            ICB308
000111 000000                      1045+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY
                                   1046+*                            ROUTINE                             ICB308
                                   1047+*
                                   1048+*              COMMON EXTENSION 1
                                   1049+*              ADDRESS OF EXTENSION IS IN CVTEXT1
                                   1050+*
                                   1051+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,
                                   1052+*              YOU SHOULD CODE -
                                   1053+*
                                   1054+*              L     REG,CVTEXT1
                                   1055+*              USING CVTXTNT1,REG
                                   1056+*
                                   1057+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.
                                   1058+*
000114                             1059+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1
                                   1060+*                            (ICB421)                APAR'S 47331,47332
000114 00000000                    1061+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS
                                   1062+*                            (ISAM) (ICB421)         APAR'S 47331,47332
                                   1063+*
                                   1064+*              END OF CVT PROPER
                                   1065+*
                                   1066+*
                                   1067+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT
                                   1068+*
000000                             1069+TSCVT    DSECT
000000                             1070+TSCVTTJB DS    A .      POINTER TO TJB TABLE
000004                             1071+TSCVTRCB DS    A .      POINTER TO RCB TABLE
000008                             1072+TSCVTRPT DS    A .      PTR TO REFERENCE POINTER TABLE
00000C                             1073+TSCVTFLG DS    X .      FLAGS TO INDICATE FUNCT REQUESTED OF TSC
00000D                             1074+         DS    X
000080                             1075+TSCSWPND EQU   X'80' .  SWAP ENDED
000040                             1076+TSCSWPBG EQU   X'40' .  SWAP SHOULD BE STARTED
000020                             1077+TSCLOGON EQU   X'20' .  A LOGON IS TO BE PROCESSED
000010                             1078+TSCDISC  EQU   X'10' .  A DISCONNECT IS TO BE PROCESSED
                                   1079+*        BITS  4-15     RESERVED
00000E                             1080+TSCVTFL1 DS    X .      FLAGS TO INDICATE FUNCT REQUESTED OF TSC
00000F                             1081+         DS    X
000080                             1082+TSCSSTOP EQU   X'80' .  SYSTEM STOP REQUESTED AND TSC IS STOPPING
000040                             1083+TSCRSTOP EQU   X'40' .  REGION STOP REQUESTED
000020                             1084+TSCASTOP EQU   X'20' .  ABEND-STOP TS FLG. SET BY TSO/RMS IF TCAM MCH'S
                                   1085+*                       SET BY TCAM STAE EXIT IF TCAM ABENDS
000010                             1086+TSCLOGPR EQU   X'10' .  SET BY S02 WHEN NOT ENOUGH SWAP SPACE IS
                                   1087+*                       ALLOCATED WHEN LOGON IMAGE BEING PROCESSED
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1088+*        BITS  4-15     RESERVED
000010                             1089+TSCVTSDC DS    A .      PTR TO 1ST DCB FOR SWAP DS
000014                             1090+TSCVTCUS DS    1H .     CURR NO. OF USERS LOGGED ON TSO
000016                             1091+TSCVTLUS DS    H .      CURRENT LIMIT NO. OF USERS LOGGED ON TO TSO
                                   1092+*                       SET BY TSC
000018                             1093+TSCVTNTJ DS    1H .     NO.TJB-TSB'S ALLOC BY TSO INITIALLY
00001A                             1094+TSCVTSZU DS    1H .     SIZE OF TJB
00001C                             1095+TSCVTCTR DS    1H .     NO. OF RCB'S ALLOC BY TSO INITIALLY
00001E                             1096+TSCVTMUS DS    H .      MAX NUMBER OF USERS LOGGED ON TO TSO
                                   1097+*                       SET BY START AND MODIFY COMMANDS (TSC)
000020                             1098+TSCVTSAV DS    A .      PTR TO SAV AREA FOR TSC,TSIP&TS DISP
000024                             1099+TSCVTECB DS    A .      PTR TO TSECBTAB CTL BLK OF ECB'S
000028                             1100+TSCVTSIA DS    A .      PTR TO TSIA
00002C                             1101+TSCVTICB DS    A .      PTR TO TSICB
000030                             1102+TSCVTI01 DS    A .      ADDRESS OF ENTRY POINT IKJEAI01 TSIP BR ENTRY
000034                             1103+TSCVTTQE DS    A .      PTR TO TQE FOR TSO'S TIME SLICING
000038                             1104+TSCVTI02 DS    A .      ADDRESS OF ENTRY POINT IKJEAI02 IN TS DISPATCH
00003C                             1105+TSCVTI03 DS    A .      ADDRESS OF ENTRY POINT IKJEAI03 IN TS DISPATCH
000040                             1106+TSCVTD02 DS    A .      ADDRESS OF ENTRY POINT IKJEAD02 IN TS DRIVER
000044                             1107+TSCVTLCQ DS    A .      ADDR OF TOP ELEM ON LOGON COMM. QUE
000048                             1108+TSCVTTRB DS    A .      ADDR OF TRACE CTL BLK CHAIN
00004C                             1109+TSCVTLPA DS    A .      ADDR OF 1ST CDE IN TS LINK PACK AREA
000050                             1110+TSCVTSLF DS    1F .     SYSTEM INIATED LOGOFF
000054                             1111+TSCVTTSC DS    A .      ADDR OF THE  TSC TASK'S TCB. (TSC)
000058                             1112+TSCVTSPL DS    A .      ADDRESS OF START PARAMETER LIST
00005C                             1113+TSCVTRSZ DS    H .      MIN REGION SIZE FOR LOGON
00005E                             1114+         DS    CL2 .    RESERVED
000060                             1115+TSCVTSVT DS    CL4 .    SVCTBL ENTRY FOR TSIP PRIOR TO START TS
000064                             1116+TSCVTSVQ DS    CL4 .    SVCTBL ENTRY FOR QTIP PRIOR TO START TS
000068                             1117+TSCVTABN DS    A .      ADDR OF OUT-OF-CORE ABEND RTN(IKJEAT07)
00006C                             1118+TSCVTD03 DS    A .      ADDR OF EP IKJEAD03 IN TS DRIVER
000070                             1119+TSCVTFLM DS    A .      ADDRESS OF ENTRY POINT - IKJEFLM
000074                             1120+TSCVTQTP DS    A .      ADDRESS OF ENTRY FOR QTIP SVC - IKJGGQT1
000078                             1121+TSCVTT08 DS    A .      ENTRY POINT ADDRESS OF IKJEAT08
00007C                             1122+TSCVTDMP DS    A .      ADDRESS OF TSO DUMP CONTROL BLOCK-IKJTSDMP
000080                             1123+TSCVTT06 DS    A .      ADDRESS OF TCB FOR IKJEAT06
000084                             1124+TSCVTLS3 DS    A .      ADDRSS OF LOGON OUT OF CORE ABEND RTN
                                   1125+**/
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             1127+TJB      DSECT
000000                             1128+TJBTSB   DS    A .       ADDR OF TSB FOR THIS JOB,0-STARTED BY OPERATOR
000004                             1129+TJBATTN  DS    CL1 .     NUMBER OF UNPROCESSED ATTNS FOR THIS JOB
000005                             1130+TJBSTAX  DS    CL1 .     NUMBER OF STAX EXITS YET UNSCHEDULED
000006                             1131+TJBSTAT  DS    X .       STATUS FLAGS
000080                             1132+TJBNJB   EQU   X'80' .   NO JOB,THIS TJB IS CURRENTLY UNUSED
000040                             1133+TJBINCOR EQU   X'40' .   USER IN CORE
000020                             1134+TJBLOGON EQU   X'20' .   LOGON START,SET BY TIOC AT DIAL-UP,TSC RESET
000010                             1135+TJBIWAIT EQU   X'10' .   INPUT WAIT,TERMINAL JOB IS IN INPUT WAIT
000008                             1136+TJBOWAIT EQU   X'08' .   OUTPUT WAIT,TERMINAL JOB IS IN OUTPUT WAIT
000004                             1137+TJBSILF  EQU   X'04' .   SYSTEM INITIATED LOGOFF
000002                             1138+TJBDISC  EQU   X'02' .   DISCONNECT SET TO REQUEST TIOC TO DISCON LINE
000001                             1139+TJBSILF2 EQU   X'01' .   SYSTEM INITIATED LOGOFF
000007                             1140+TJBSTAT2 DS    X .       STATUS FLAGS
000080                             1141+TJBHUNG  EQU   X'80' .   HUNG UP
000040                             1142+TJBHOLD  EQU   X'40' .   USER IS IN OWAIT DUE TO HOLD OPTIONS
000020                             1143+TJBOCAB  EQU   X'20' .   TSO FAILURE RESULTING IN OUT-OF-CORE ABEND
000010                             1144+TJBRNAV  EQU   X'10' .   USER CANNOT BE LOGGED ON BECAUSE MACHINE CHECK
                                   1145+*                        IN REGION OR NO REGION LARGE ENOUGH
000008                             1146+TJBSURSV EQU   X'08' .   ON NEXT SWAP IN, DO NOT MARK SWAP UNIT
                                   1147+*                        AVAILABLE FOR USE.
000004                             1148+TJBQUIS  EQU   X'04' .   QUIESCE STARTED FOR USER
000002                             1149+TJBUSERR EQU   X'02' .   USER READY TO RUN
000001                             1150+TJBDEAD  EQU   X'01' .   INDICATE ABEND RECURSION TO IKJEAT07
000008                             1151+TJBEXTNT DS    A .       POINTER TO TJB IN SWAPPED OUT JOB IMAGE
00000C                             1152+TJBRCB   DS    A .       POINTER TO RCB FOR THIS REGION
000010                             1153+TJBUMSM  DS    A .       POINTER TO UMSM
000014                             1154+TJBSDCB  DS    A .       POINTER TO SWAP DCB FOR THIS USER
000018                             1155+TJBUTTMQ DS    H .       OFFSET IN TT MAP OF TT MAP Q FOR THIS USER
000080                             1156+TJBUTTMP EQU   X'80' .   IF ON INDICATES PARALLEL SWAP
00001A                             1157+TJBRSTOR DS    X .       RESTORE FLAGS, TESTED BY RCT RESTORE
000080                             1158+TJBOWP   EQU   X'80' .   POST OUTPUT WAIT,SET BY TIOC,ENDS AN OWAIT
000040                             1159+TJBIWP   EQU   X'40' .   POST INPUT WAIT,SET BY TIOC,ENDS AN IWAIT
                                   1160+*        EQU   X'20' .   RESERVED
000010                             1161+TJBLOGP  EQU   X'10' .   POST LOGON,POST ECB WAITED ON BY LOGON IMAGE
000008                             1162+TJBLWAIT EQU   X'08' .   USER IN LONG WAIT,SWAP OUT IF NOT MADE READY
                                   1163+*                        BY RESTORE PROCESSING
000004                             1164+TJBDDRD  EQU   X'04' .   WHEN ON RESTORE WILL RESET DDR NON      A41399
                                   1165+*                        DISPATCHABILITY BIT                     A41399
000002                             1166+TJBFAT   EQU   X'02' .   AN ATTN EXIT IS REQ FOR THIS USER
000001                             1167+TJBDDRND EQU   X'01' .   INDICATES TO RESTORE TO SET TCB NON     A41399
                                   1168+*                        DISPATCHABLE WHEN JOB SWAPPED IN        A41399
00001B                             1169+TJBUMSMN DS    CL1 .     NUMBER OF MAP ENTRIES IN UMSM
00001C                             1170+TJBUSER  DS    CL8 .     USERID OF THIS JOB OWNER,PADDED RT WITH BLANKS
000024                             1171+TJBIPPB  DS    F .       IPPB CHAIN OF ECB'S TO BE POSTED BY RESTORE
000028                             1172+TJBNEWID DS    CL1 .     RGN ID INTO WHICH THIS USER SHOULD BE LOGGED
                                   1173+*                        ON. 0 IF SELECTED BY DRIVER
000029                             1174+TJBFLUSL DS    CL1 .     STAX LEV OF LAST STAX ISSUED WITH NOPURGE
                                   1175+*                        OPTION
00002A                             1176+TJBTJID  DS    CL2 .     TERMINAL JOB ID
00002C                             1177+TJBMONI  DS    X .       MONITOR CMD INDICATING INFO REQUESTED
000080                             1178+TJBMDSN  EQU   X'80' .   DSNAMES
000040                             1179+TJBMJBN  EQU   X'40' .   JOBNAMES
000020                             1180+TJBMSES  EQU   X'20' .   SESSION
000010                             1181+TJBMSPA  EQU   X'10' .   SPACE
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                             1182+TJBMSTA  EQU   X'08' .   STATUS
000004                             1183+TJBGETBF EQU   X'04' .   THIS BIT INDICATES TPUT SHOULD ATTEMPT TO GET
                                   1184+*                        ADDITIONAL BUFFERS FOR USER BEFORE GOING INTO
                                   1185+*                        A WAIT STATE
00002D                             1186+TJBSTAT3 DS    X .       STATUS FLAGS
000080                             1187+TJBDISC2 EQU   X'80' .     INDICATES TO IKJEAT03 WE ARE DISCONNECTING
                                   1188+*                        THIS TJB AND NEXT TIME THRU IF THIS BIT IS
                                   1189+*                        ON DO NOT DECREMENT RCB USE COUNT
000004                             1190+TJBSOEM  EQU   X'04' .   SWAP OUT ERROR MESSAGE RECURSION FLG    A44022
00002E                             1191+TJBLINE  DS    CL2 .     CONTAINS BINARY REP OF THE UNIT ADDRESS OF
                                   1192+*                        THE LINE BEING USED.
000030                             1193+TJBEND   DS    0F
                                   1194+**/
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             1196+TJBX     DSECT
000000                             1197+TJBXFST  DS    A . ADDR LOGON TCB WHICH IS FIRST IN USER READY QUEUE
000004                             1198+TJBXLAST DS    A . ADDR LAST TCB IN USER READY QUEUE
000008                             1199+TJBXDSE  DS    A . ADDR OF DSE USED BY TSO'S DYN ALLOC
00000C                             1200+TJBXSVRB DS    A . ADDR FIRST SVRB PURGED FROM TRANSIENT AREA QUEUE
000010                             1201+TJBXRQE  DS    A . ADDR FIRST RQE PURGED FROM ASYNCHRONOUS EXIT QUEUE A
000014                             1202+TJBXIQE  DS    A . ADDR FIRST IQE PURGED FROM ASYNCHRONOUS EXIT QUEUE J
000018                             1203+TJBXTAXE DS    F . QUEUE OF TAXE'S USED TO SCHEDULE ATTENTION EXITS
00001C                             1204+TJBXLECB DS    F . LOGON ECB POSTED BY RCT
000020                             1205+TJBXPSWD DS    CL8 USERS LOGON PASSWORD-IF BLANK-NOT REQUIRED
000028                             1206+TJBXATTR DS    1F .PTR TO CHAIN OF ATTRIBUTE CONTROL BLOCKS USED  99236
                                   1207+*                  BY DYN ALLOC & CONTAINS DCB INFO FOR ATTRIB COMMAND
00002C                             1208+TJBXAIQE DS    A . ADDR ATTN IQE CURRENTLY BEING PROCESSED
000030                             1209+TJBXQPL  DS    A . ADDR QUIECSE PARM LIST
000034                             1210+TJBXNQPE DS    H . NUMBER ENTRIES IN QPL
000036                             1211+TJBXNTCB DS    H . NUMBER TCBS ACTIVE IN USER JOB STEP
000038                             1212+TJBXLQPL DS    H . LENGTH QPL
00003A                             1213+TJBXHBFL DS    CL1 CUR VAL OF LAST HOLDBUF LEVEL. USED BY STAX
                                   1214+*                  SVC ROUTINE
00003B                             1215+         DS    CL1 RESERVED
00003C                             1216+TJBXACT  DS    1F .TTR OF ACT ON SYSJOBQE
000040                             1217+TJBXAECB DS    A . POINTER TO LOGON/LOGOFF ECB UNTIL LOGON PROCESSING
                                   1218+*                  THEN TO CSCB CANCEL ECB AFTER CSCB IS CREATED
000044                             1219+TJBXKEYA DS    A . ADDRESS OF A STORAGE KEY SAVE AREA- THIS IS
                                   1220+*                  OBTAINED AND USED BY THE RCT
                                   1221+**/


                                   1223+***********************************************************************
                                   1224+*                                                                     *
                                   1225+*  NAME        ***** JOB/STEP CONTROL BLOCK *****                     *
                                   1226+*                                                                     *
                                   1227+*  FUNCTION    COMMUNICATION OF JOB OR STEP RELATED DATA ITEMS        *
                                   1228+*                                                                     *
                                   1229+*  ACCESSING        L     REG,TCBJSCB                                 *
                                   1230+*  PROCEDURE        USING IEZJSCB,REG                                 *
                                   1231+*                                                                     *
                                   1232+*  NOTE        IN ADDITION TO THE MANDATORY USE OF THIS MACRO FOR     *
                                   1233+*              REFERENCES TO THE JSCB, MODULES IN MFT OR MVT WHICH    *
                                   1234+*              ALLOCATE AND/OR FREE THE JSCB ARE REQUIRED TO USE      *
                                   1235+*              THE GETJSCB AND FREEJSCB MACROS.                       *
                                   1236+*                                                                     *
                                   1237+*  RELEASE 20.2, 4/05/71, LEVEL=1                                     *
                                   1238+*  RELEASE 21, 08/05/71, LEVEL=3                                      *
                                   1239+***********************************************************************
000000                             1240+IEZJSCB  DSECT
0000F0                             1241+         ORG   IEZJSCB+240 -  ALLOWS ADDRESSIBILITY FROM TCBJSCB ICB359

                                   1243+*---------------------------------------------------------------------*
                                   1244+*                                                                     *
                                   1245+*  SECTION 1   DATA ITEMS USED IN PCP, MFT, AND MVT                   *
                                   1246+*                                                                     *
                                   1247+*---------------------------------------------------------------------*
0000F0                             1248+JSCBSEC1 EQU   * -            START OF JSCB SECTION 1
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000F0                             1250+JSCBTTTR DS    XL3 -          JOB Q ADDRESS (TTR) OF TIOT EXTENSION
0000F3                             1251+JSCBSWT1 DS    B -            STATUS SWITCHES
000080                             1252+JSCBPASS EQU   X'80' -        WHEN THIS BIT IS SET TO ONE AND A
                                   1253+*                             CORRESPONDING BIT IN THE DCB IS SET TO
                                   1254+*                             ONE THE OPEN WILL BYPASS PASSWORD
                                   1255+*                             PROTECTION FOR THE DATA SET BEING OPENED
000020                             1256+JSCBLONG EQU   X'20' -        LONG RUNNING TASK IN PARTITION -
                                   1257+*                             FAIL REDEFINE  (MFT)               ICB359
0000F4                             1258+JSCBQMPI DS    A -            ADDRESS OF THE QMPA FOR THE JOB'S INPUT
                                   1259+*                             QUEUE TABLE ENTRIES
0000F8                             1260+JSCBQMPO DS    A -            ADDRESS OF THE QMPA FOR THE JOB'S OUTPUT
                                   1261+*                             MSGCLASS QUEUE ENTRY
0000FC                             1262+JSCBWTP  DS    A -            ADDRESS OF WRITE-TO-PROGRAMMER
                                   1263+*                             WORK AREA USED FOR WRITING MESSAGES
                                   1264+*                             TO THE JOB'S SYSOUT LISTING

000010                             1266+JSCBS1LN EQU   (*-JSCBSEC1) - LENGTH OF SECTION 1

                                   1268+*---------------------------------------------------------------------*
                                   1269+*                                                                     *
                                   1270+*  SECTION 2   DATA ITEMS USED IN BOTH MFT AND MVT                    *
                                   1271+*                                                                     *
                                   1272+*---------------------------------------------------------------------*
000100                             1273+JSCBSEC2 EQU   * -            START OF JSCB SECTION 2

000100                             1275+JSCBCSCB DS    A -            ADDRESS OF CSCB USED FOR PROCESSING
                                   1276+*                              COMMANDS RECEIVED FOR JOB
000104                             1277+JSCBJCT  DS    0F -           SAME AS JSCBJCTA BELOW
000104                             1278+         DS    X -            RESERVED
000105                             1279+JSCBJCTA DS    CL3 -          TTR OF JOB'S JCT

000008                             1281+JSCBS2LN EQU   (*-JSCBSEC2) - LENGTH OF SECTION 2

                                   1283+*---------------------------------------------------------------------*
                                   1284+*                                                                     *
                                   1285+*  SECTION 3   DATA ITEMS USED ONLY IN PCP                            *
                                   1286+*                                                                     *
                                   1287+*---------------------------------------------------------------------*
000100                             1288+         ORG   JSCBSEC2
000100                             1289+JSCBSEC3 EQU   * -            START OF JSCB SECTION 3

                                   1291+*  CURRENTLY NO PCP ONLY DATA ITEMS

000000                             1293+JSCBS3LN EQU   (*-JSCBSEC3) -

                                   1295+*---------------------------------------------------------------------*
                                   1296+*                                                                     *
                                   1297+*  SECTION 4   DATA ITEMS USED ONLY IN MFT                            *
                                   1298+*                                                                     *
                                   1299+*---------------------------------------------------------------------*
000108                             1300+         ORG   JSCBSEC2+JSCBS2LN
000108                             1301+JSCBSEC4 EQU   * -            START OF JSCB SECTION 4

                                   1303+*  CURRENTLY NO MFT ONLY DATA ITEMS
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             1305+JSCBS4LN EQU   (*-JSCBSEC4) - LENGTH OF SECTION 4

                                   1307+*---------------------------------------------------------------------*
                                   1308+*                                                                     *
                                   1309+*  SECTION 5   DATA ITEMS USED ONLY IN MVT                            *
                                   1310+*                                                                     *
                                   1311+*---------------------------------------------------------------------*
000108                             1312+         ORG   JSCBSEC4
000108                             1313+JSCBSEC5 EQU   * -            START OF JSCB SECTION 5

000108                             1315+JSCBPSCB DS    A -            ADDRESS OF TSO PROTECTED STEP CONTROL
                                   1316+*                             BLOCK
00010C                             1317+JSCBTJID DS    H -            TSO TERMINAL JOB IDENTIFIER
00010E                             1318+         DS    XL2 -          RESERVED
000110                             1319+JSCBIECB DS    F -            ECB USED FOR COMMUNICATION BETWEEN
                                   1320+*                             DYNAMIC ALLOCATION AND THE INITIATOR
                                   1321+*                             IN ORDER TO PERFORM DATA SET INTEGRITY

00000C                             1323+JSCBS5LN EQU   (*-JSCBSEC5) - LENGTH OF SECTION 5

                                   1325+*---------------------------------------------------------------------*

0000F0                             1327+JSCBDISP EQU   (256-JSCBS1LN) -    DISPLACEMENT OF FIRST JSCB DATA BYTE
000018                             1328+JSCBMFTL EQU   JSCBS1LN+JSCBS2LN+JSCBS4LN -  MFT JSCB LENGTH
000024                             1329+JSCBMVTL EQU   JSCBS1LN+JSCBS2LN+JSCBS5LN -  MVT JSCB LENGTH
                                   1330+***********************************************************************
                                   1331+*              END OF JSCB
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1333+* ATTACH ROUTINE (SVC 42)


000000                             1335+IGC042   CSECT
                                   1336+         EXTRN IEAMSTCB
                                   1337+         EXTRN IEA0DS
                                   1338+         EXTRN IEAQCS01
                                   1339+         EXTRN IEAHEAD
                                   1340+         EXTRN IEA0DS02 65MP
                                   1341+         EXTRN IEA0AB00 .              BRANCH ENTRY TO ABTERM    A33614
                                   1342+         EXTRN RMBRANCH .              BRANCH ENTRY TO REGMAIN   A35419
000000                             1343+         CNOP  0,8
000000 05B0                        1344+         BALR  XRBASE,0
000002                             1345+         USING *,XRBASE ATTACH ROUTINE BASE REGISTER
000000                             1346+         USING ATPRMS,XRPARA INPUT PARAMETER BASE REGISTER
000000                             1347+         USING TCBFLDSP,XROTCB ATTACHOR'S TCB BASE REGISTER
000000                             1348+         USING TCBFLDS,XRATCB ATTACHED TCB BASE REGISTER


                                   1350+* TEST OF STAE RECURSION BIT TO DETERMINE WHETHER A PROGRAM NOW    STAE
                                   1351+* EXECUTING A STAE ROUTINE HAS ATTEMPTED TO ISSUE ANOTHER ATTACH.  STAE

000002 9180 40A0      000A0        1353+         TM    TCBNSTAP,RECRSBIT Q. IS ATTACHOR ALREADY IN   STAE
000006 4780 B00E            00010  1354+         BZ    NOSTAE A STAE ROUTINE--BR IF NOT   STAE
00000A 41F0 0004            00004  1355+         LA    XR15,RETCODE4 OR SET RETURN CODE          STAE
00000E 0A03                        1356+         SVC   SVCEXIT AND RETURN TO ATTACHOR      STAE
000010                             1357+NOSTAE   DS    0H ATTACH REQUEST ACCEPTED     STAE
                                   1358+*  ENTERED WITH ATTACH INPUT REGISTER IN REGISTER 15. SAVE THE ADDRESS
                                   1359+* IN THE DSECT BASE REGISTER.

000010 18EF                        1361+         LR    XRPARA,15
                                   1362+*                                      ASSOCIATE INPUT S.P.L.ADDRESS
                                   1363+*                                      IN REG. 15 TO REG.14 WHICH
                                   1364+*                                      IS USED AS A BASE TO REFER-
                                   1365+*                                      ENCE THE SUPERVISOR PARA.
                                   1366+*                                      DSECT.

                                   1368+*    GIVE ZERO RETURN CODE TO ATTACHOR.  THIS MAY BE ALTERED      M3891
                                   1369+*        LATER IN AN MVT SYSTEM BY AN ATTACH WITH THE             M3891
                                   1370+*        STAI PARAMETER.                                          M3891

000012 17FF                        1372+         XR    XR15,XR15 .                  GET ZERO CODE         M3891
000014 50F5 005C            0005C  1373+         ST    XR15,SVRBXR0+60(XRORB) .     PUT IN SVRB           M3891
                                   1374+*                                           REG 15 SLOT           M3891
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78



000000                             1377+         USING XCCVT,XRCVT .           SET UP CVT DSECT          A53341

000018 5865 000C            0000C  1379+         L     XRPRB,XRLINK(XRORB) .   REG 6 = ATTACHOR'S RB     A53341
00001C 91F0 6011      00011        1380+         TM    RBOPSW+1(XRPRB),X'F0' . Q.KEY ZERO ATTACHOR       A53341
000020 4780 B06C            0006E  1381+         BZ    PARMOK .                YES.DON'T DO CHECKING     A53341
000024 41EE 0000            00000  1382+         LA    XRPARA,0(XRPARA) .                                A53341
000028 59E0 30A4            000A4  1383+         C     XRPARA,CVTMZ00 .        Q.PARM LIST ADDR IN CORE  A53341
00002C 4720 B066            00068  1384+         BH    ABEND72A .              NO.BRANCH                 A53341
000030 4170 0003            00003  1385+         LA    XRETXR,3 .                                        A53341
000034 147E                        1386+         NR    XRETXR,XRPARA .         Q.PARMLIST ON WORD BOUND  A53341
000036 4770 B066            00068  1387+         BNZ   ABEND72A .              NO.ABEND                  A53341
00003A D502 E001 30A5 00001 000A5  1388+         CLC   ATPGNADR,CVTMZ00+1 .    Q.NAME/DE ADDR IN CORE    A53341
000040 4720 B066            00068  1389+         BH    ABEND72A .              NO.BRANCH                 A53341
000044 9101 E00C      0000C        1390+         TM    ATGSFLAG,GIVEL .        Q.GIVE SUBPOOL LIST       A53341
000048 47E0 B054            00056  1391+         BNO   SHARETST .              NO.DON'T CHECK            A53341
00004C D502 E00D 30A5 0000D 000A5  1392+         CLC   ATGSFLD,CVTMZ00+1 .     Q.LIST ADDR WITHIN CORE   A53341
000052 4720 B066            00068  1393+         BH    ABEND72A .              NO.BRANCH                 A53341

000056                             1395+SHARETST EQU   * .                                               A53341
000056 9101 E010      00010        1396+         TM    ATSHFLAG,SHAREL .       Q.SHARE SP LIST EXIST     A53341
00005A 47E0 B06C            0006E  1397+         BNO   PARMOK .                NO.NO MORE CHECKING       A53341
00005E D502 E011 30A5 00011 000A5  1398+         CLC   ATSHFLD,CVTMZ00+1 .     Q.LIST ADDR WITHIN CORE   A53341
000064 4740 B06C            0006E  1399+         BL    PARMOK .                YES.BRANCH                A53341
                                   1400+         DROP  XRCVT .                                           A53341

000068                             1402+ABEND72A EQU   * .                                               A53341
000068 5810 B9DE            009E0  1403+         L     XR1,PARMFAIL .          GET X'72A' ABEND CODE     A53341
00006C                             1404+         DS    0H
00006C 0A0D                        1405+         SVC   13 LINK TO ABEND ROUTINE

00006E                             1407+PARMOK   EQU   * .                                               A53341
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1409+* ETXR PARAMETER PROCESSING
                                   1410+*
                                   1411+*  CHECK ETXR INPUT PARAMETER. IF ZERO, GO TO 'GETTCB'. IF
                                   1412+* NOT ZERO, SET ETXR PRESENT FLAG IN ATTACHED TCB. STORE THE IQE
                                   1413+* ADDRESS IN THE ATTACHED TCB. CHECK FOR SISTER TCB'S AND DETERMINE
                                   1414+* WHEATHER THEY ARE USING THE SAME ETXR. IF THE SAME ETXR ADDRESS
                                   1415+* IS FOUND, STORE THE ATTACHOR'S TCB ADDRESS AND THE ETXR'S IRB
                                   1416+* ADDRESS IN THE ATTACHED TCB'S IQE. IF A SIMILAR ETXR ADDRESS
                                   1417+* CANNOT BE FOUND, AN IRB IS BUILT AND INITIALIZED.

                                   1419+*  CORE USED TO CONSTRUCT THE NEW TCB CAN BE OBTAINED BY ONE OF
                                   1420+* THE FOLLOWING--(1)A GETMAIN FROM SP 253 FOR THE TCB ALONE, OR    STCB
                                   1421+* (2)A GETMAIN FROM SP 253 FOR THE TCB AND AN IQE, OR (3)A CIRB    STCB
                                   1422+* SPECIFYING A WORKAREA SIZE SUFFICIENT FOR THE TCB AND AN IQE.    STCB

00006E 5870 E014            00014  1424+         L     XRETXR,ATROLL LOAD ETXR ADDRESS           RORI
000072 4170 7000            00000  1425+         LA    XRETXR,0(0,XRETXR) CLEAR HIGH ORDER BYTE       RORI
000076 1277                        1426+         LTR   XRETXR,XRETXR Q.ETXR ADDR ZERO
000078 4780 B12A            0012C  1427+         BZ    GETTCB YES - BRANCH
00007C 5880 4088            00088  1428+         L     XRASTCB,TCBLTCP LD ATTACHOR'S DAUG TCB ADDR
000080 1288                        1429+ETXRLOOP LTR   XRASTCB,XRASTCB Q,ATTACHOR'S DAUG PRESENT
000082 4780 B0CE            000D0  1430+         BZ    GETIRB NO - BRANCH
000086 9180 8021      00021        1431+         TM    TCBFLAGS+4(XRASTCB),TCBFC .  Q.SUBTASK TERMINATED A53372
00008A 4710 B0C6            000C8  1432+         BO    ETXRNEXT .     YES.IRB MAY ALREADY BE FREED       A53372
00008E 5898 008C            0008C  1433+         L     XRIQE,IQEFLD(XRASTCB) LOAD IQE PTR
000092 1299                        1434+         LTR   XRIQE,XRIQE Q.IQE PTR ZERO
000094 4780 B0C6            000C8  1435+         BZ    ETXRNEXT YES - BRANCH
000098 58F9 0008            00008  1436+         L     XR15,IRBADR(XRIQE) LOAD IRB PTR                    I250
00009C 58F0 F00C            0000C  1437+         L     XR15,RBEP(0,XR15) . ENTRY POINT ADDRESS            M1175
0000A0 41F0 F000            00000  1438+         LA    XR15,0(0,XR15) .    ZERO USE COUNT                 M1175
0000A4 197F                        1439+         CR    XRETXR,XR15 .       ETXR ADDR = IRB'S ENTRY POINT  M1175
0000A6 4770 B0C6            000C8  1440+         BNE   ETXRNEXT NO - BRANCH
                                   1441+* GET STORAGE FOR TCB AND IQE

0000AA 0700                        1443+         CNOP  0,4
0000AC 4510 B0B2            000B4  1444+         BAL   1,*+8 BRANCH AROUND SP+LV
0000B0 FD                          1445+         DC    AL1(253) SUBPOOL VALUE
0000B1 0000F0                      1446+         DC    AL3(240) LENGTH
0000B4 5801 0000            00000  1447+         L     0,0(1,0) LOAD SP AND LV
0000B8 0A0A                        1448+         SVC   10 ISSUE GETMAIN SVC

0000BA 41A1 0030            00030  1450+         LA    XRATCB,48(XRCOREAD) $LD ADDR OF NEW TCB
0000BE 1881                        1451+         LR    XRIQEW,XRCOREAD $LD ADDR OF NEW IQE
0000C0 5819 0008            00008  1452+         L     XRIRB,IRBADR(XRIQE) LD IRB PTR FROM EXISTING IQE
0000C4 47F0 B0F4            000F6  1453+         B     ETXRIQE
0000C8 5888 0080            00080  1454+ETXRNEXT L     XRASTCB,SISPTR(XRASTCB) GET TCB'S SISTER
0000CC 47F0 B07E            00080  1455+         B     ETXRLOOP

0000D0                             1457+GETIRB   DS    0H ISSUE CIRB FOR SPACE FOR TCB AND IQE       STCB
0000D0 1807                        1458+         LR    0,XRETXR LOAD PARAMETER REG 0
0000D2 0700                        1459+         CNOP  0,4
0000D4 47F0 B0DA            000DC  1460+         B     *+8 BRANCH AROUND CONST.
0000D8 470A                        1461+         DC    BL2'0100011100001010' 1505
0000DA 001E                        1462+         DC    AL2(30) WORK AREA SIZE
0000DC 5810 B0D6            000D8  1463+         L     1,*-4 LOAD REG 1 WITH CONST.
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000E0 0A2B                        1464+         SVC   43 ISSUE CIRB SVC

0000E2 4181 0060            00060  1466+         LA    XRIQEW,IQEDISP(XRIRB) $LD ADDR OF NEW IQE          1505
0000E6 9618 100B      0000B        1467+         OI    RBSTAB+1(XRIRB),24 TURN ON USER IQE FLAGS IN IRB  1505
                                   1468+*
                                   1469+* MODIFY LENGTH OF IRB NOT TO INCLUDE AREA USED FOR THE NEW TCB
                                   1470+*
0000EA 41C0 000C            0000C  1471+         LA    XRLENGTH,IRBSIZE IRB LENGTH IN DOUBLE WORDS
0000EE 42C1 0009            00009  1472+         STC   XRLENGTH,RBSIZE(XRIRB) MODIFY LENGTH OF IRB
0000F2 41A1 0090            00090  1473+         LA    XRATCB,144(XRIRB) $LD ADDR OF NEW TCB          1505
0000F6 D72F A000 A000 00000 00000  1474+ETXRIQE  XC    TCBRBP(48),TCBRBP ZERO NEW TCB TO TCBGRS      STCB
0000FC D74F A070 A070 00070 00070  1475+         XC    TCBFSA(80),TCBFSA ZERO FROM TCBGRS TO END   A58667
000102 D70F 8000 8000 00000 00000  1476+         XC    0(16,XRIQEW),0(XRIQEW) CLEAR IQE TO ZERO
000108 9602 A01E      0001E        1477+         OI    TCBFLGS+1,ETXRFLG SET NEW TCB'S ETXR FLAG
00010C 5080 A08C            0008C  1478+         ST    XRIQEW,TCBIQE STORE ADDR OF NEW IQE IN TCB
000110 50A8 0004            00004  1479+         ST    XRATCB,FSTWD(XRIQEW) STORE NEW TCB ADDR IN IQE
000114 5018 0008            00008  1480+         ST    XRIRB,IRBADR(XRIQEW) STORE IRB ADDR IN IQE
000118 5048 000C            0000C  1481+         ST    XROTCB,MOMTCB(XRIQEW) STORE ATTACHOR'S ADDR IN IQE
00011C 43C1 0018            00018  1482+         IC    XRCOUNT,RBUSE(XRIRB) GET IRB USE COUNT
000120 41CC 0001            00001  1483+         LA    XRCOUNT,1(XRCOUNT) ADD 1
000124 42C1 0018            00018  1484+         STC   XRCOUNT,RBUSE(XRIRB) STORE UPDATED USE COUNT
000128 47F0 B148            0014A  1485+         B     COMN CPRS

00012C                             1487+GETTCB   DS    0H GET STORAGE FOR TCB ONLY    STCB
00012C                             1488+         CNOP  0,4
00012C 4510 B132            00134  1489+         BAL   1,*+8 BRANCH AROUND SP+LV
000130 FD                          1490+         DC    AL1(253) SUBPOOL VALUE
000131 0000E0                      1491+         DC    AL3(224) LENGTH
000134 5801 0000            00000  1492+         L     0,0(1,0) LOAD SP AND LV
000138 0A0A                        1493+         SVC   10 ISSUE GETMAIN SVC

00013A 41A1 0020            00020  1495+         LA    XRATCB,32(XRCOREAD) $LD ADDR OF NEW TCB
00013E D72F A000 A000 00000 00000  1496+         XC    TCBRBP(48),TCBRBP ZERO NEW TCB TO TCBGRS      STCB
000144 D74F A070 A070 00070 00070  1497+         XC    TCBFSA(80),TCBFSA ZERO FROM TCBGRS TO END   A58667


                                   1499+*                                                                  CPRS
                                   1500+* PROPAGATE BYTE 20                                                CPRS

00014A                             1502+COMN     EQU   * 20021


                                   1504+*    GET DUMMY PRB IN CASE OF ABEND BEFORE ATTACH'S SVRB IS       M4385
                                   1505+*        QUEUED ONTO THE DAUGHTER TCB.                            M4385

00014A 0700                        1507+         CNOP  0,4
00014C 4510 B152            00154  1508+         BAL   1,*+8 BRANCH AROUND SP+LV
000150 FF                          1509+         DC    AL1(255) SUBPOOL VALUE
000151 000020                      1510+         DC    AL3(32) LENGTH
000154 5801 0000            00000  1511+         L     0,0(1,0) LOAD SP AND LV
000158 0A0A                        1512+         SVC   10 ISSUE GETMAIN SVC
00015A D71B 1000 1000 00000 00000  1513+         XC    0(28,XR1),0(XR1) .      ZERO OUT THE RB            M4385
000160 5010 A000            00000  1514+         ST    XR1,TCBRBP .            CHAIN DUMMY RB TO TCB      M4385
000164 50A1 001C            0001C  1515+         ST    XRATCB,RBLINK(XR1) .                               M4385
000168 9280 100B      0000B        1516+         MVI   RBSTAB+1(XR1),X'80' .   RB POINTS TO THE TCB       M4385
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00016C 9204 1011      00011        1517+         MVI   RBOPSW+1(XR1),X'04' .   ENABLE FOR MACH. CHK.      M4385
000170 9204 1009      00009        1518+         MVI   RBSIZE(XR1),X'04' .     SET RB SIZE IN DBW'S       M4385

                                   1520+* TEST IF ATTACHOR IS A TIME SHAR TASK. IF YES THEN TURN ON       20021
                                   1521+* BIT IN ATTACHED TCB INDICATING IT IS A TIME SHAR TSK.           20021

000174 9180 4094      00094        1523+         TM    TCBTSFLP,TCBTSTSP Q.IS ATTACHOR A TS TASK         M1373
000178 4780 B17E            00180  1524+         BZ    NTSTSK NO.BRANCH                       M1373
00017C 9680 A094      00094        1525+         OI    TCBTSFLG,TCBTSTSK YES.SET BIT INDICATING THAT     M1373
                                   1526+*                                      ATTACHEE IS A TS TASK      M1373
000180                             1527+NTSTSK   EQU   * M1373

000180 9104 4014      00014        1529+         TM    TCBTRNP,TESTRBIT IS TEST BIT ON                  20021
000184 4780 B190            00192  1530+         BZ    NOTSO7B NO BRANCH                       20021
000188 D203 A014 4014 00014 00014  1531+         MVC   TCBTRN(FOUR),TCBTRNP YES - PROPAGATE FOUR BYTES    20021
00018E 47F0 B19A            0019C  1532+         B     STAEPROC CONTINUE ATTACH                 20021
000192                             1533+NOTSO7B  EQU   * 20021
000192 D200 A014 4014 00014 00014  1534+         MVC   TCBTRN(ONE),TCBTRNP NO PROPAGATE ONE BYTE         20021
000198 94EF A014      00014        1535+         NI    TCBTRN,255-EMUL .   TURN OFF EMULATOR BIT IN SUBT A54872
                                   1536+*                                                                  CPRS


                                   1538+* THIS SECTION CHECKS TO SEE IF A STAI SCB IS REQUESTEDBY THE     20021
                                   1539+* TCB BEING ATTACHED. IF IT IS REQUESTED THEN A STAI SCB IS BUILT 20021
                                   1540+* AND QUEUED TO IT.IT ALSO PROPAGATES ANY STAI SCB'S THAT EXIST   20021
                                   1541+* ON THE ATTACHOR TO THE ATTACHED TCB.                            20021


00019C                             1543+STAEPROC EQU   * 20021
00019C 9101 E008      00008        1544+         TM    ATECBADR,STAIFLAG IS STAI REQUESTED               20021
0001A0 4780 B1D2            001D4  1545+         BZ    NOTREQ NO- BRANCH TO DETERMINE IF      20021
                                   1546+*                                 STAI TO BE PROPAGATED           20021
                                   1547+*                                 TO DAUGHTER TCB                 20021
0001A4 5820 E028            00028  1548+         L     XR2,ATSTPLAD LOAD STAI PARAMETER LIST ADR    20021
0001A8 5860 E02C            0002C  1549+         L     XR6,ATEXRTAD LOAD EXIT RTN ADDR              20021
0001AC D200 5060 E02C 00060 0002C  1550+         MVC   RBEXSAVE(1,XRORB),ATEXRTAD INSERT FLAGS IN LIST    M2997
0001B2 4580 B20E            00210  1551+         BAL   XR8,STLOOP .        ISSUE STAE                     M2191
0001B6 49F0 B9E2            009E4  1552+         CH    XR15,RETCD4 .      Q.RCODE = 4                     M3891
0001BA 4740 B1D2            001D4  1553+         BL    NOTREQ .           NO.CODE = 0, ALL OK             M3891
0001BE 4720 B1C2            001C4  1554+         BH    NTRC4 .            NO.CODE GT 4, LEAVE IT ALONE    M3891
0001C2 1AFF                        1555+         AR    XR15,XR15 .        YES.MAKE IT X'08'               M3891
                                   1556+*                                 (FAILURE TO CREATE A STAI)      M3891
0001C4                             1557+NTRC4    EQU   * .                                                M3891
0001C4 50F5 005C            0005C  1558+         ST    XR15,SVRBXR0+60(XRORB) . SAVE RCODE FOR ATTACHOR   M3891
0001C8 4520 B25C            0025E  1559+         BAL   XR2,UTHNASIA .     CLEAN UP THE DAUGHTER           M3891
0001CC 58F5 005C            0005C  1560+         L     XR15,SVRBXR0+60(XRORB) . LOAD RCODE FOR ATTACHOR   M3891
0001D0 1711                        1561+         XR    XR1,XR1 .          ZERO OUT TCB ADDRESS REG        M3891
0001D2 0A03                        1562+         SVC   3 .                RETURN TO ATTACHOR              M3891
0001D4                             1563+NOTREQ   EQU   * .                                                M2191
0001D4 4180 B1DE            001E0  1564+         LA    XR8,STAELOOP .      SET RETURN ADDR                M2191
0001D8 5890 40A0            000A0  1565+         L     XR9,TCBNSTAP .      GET ADDR 1ST SCB ON ATTACHOR   M2191
0001DC 47F0 B1E4            001E6  1566+         B     BREED .            START THE PROPAGATION LOOP      M3891
0001E0                             1567+STAELOOP EQU   * .                                                M2191
0001E0 12FF                        1568+         LTR   XR15,XR15 .        Q.RCODE = 0                     M3891
0001E2 4770 B236            00238  1569+         BNZ   RETCODE .           NO.CLEAN UP AND LEAVE          M3891
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0001E6                             1570+BREED    EQU   * .                                                M3891
0001E6 4190 9000            00000  1571+         LA    XR9,ZERONUM(XR0,XR9) .CLEAR HI ORDER BYTE          M2191
0001EA 1299                        1572+         LTR   XR9,XR9 .           ANY SCB'S ON ATTACHOR          M2191
0001EC 4780 B302            00304  1573+         BZ    ROLL .              NO-CONTINUE                    M2191
0001F0 9120 900C      0000C        1574+         TM    TWELVE(XR9),STAISCB .IS IT A STAI SCB              M2191
0001F4 4780 B302            00304  1575+         BZ    ROLL .              NO                             M2191
0001F8 4320 9008            00008  1576+         IC    XR2,EIGHT(XR0,XR9) .GET FLAGS IN HI BYTE OF PARAM  M2191
                                   1577+*                                  ADDR IN SCB                    M2191
0001FC 4225 0060            00060  1578+         STC   XR2,RBEXSAVE(XRORB) STORE IN LIST                  M2997
000200 5860 9004            00004  1579+         L     XR6,FOUR(XR0,XR9) . GET EXIT RTN ADDR              M2191
000204 5820 9008            00008  1580+         L     XR2,EIGHT(XR0,XR9) .GET PARM LIST ADDR             M2191
000208 4120 2000            00000  1581+         LA    XR2,ZERONUM(XR0,XR2) .CLEAR HI BYTE OF FLAGS       M2191
00020C 5890 9000            00000  1582+         L     XR9,ZERONUM(XR0,XR9) .GET ADDR NEXT SCB            M2191
000210                             1583+STLOOP   EQU   * .                                                M2191
000210 4115 0060            00060  1584+         LA    XR1,RBEXSAVE(XRORB) 20021
000214 D702 1001 1001 00001 00001  1585+         XC    1(3,1),1(1) .            CLEAR EXIT ADDR. IN LIST
00021A 4106 0000            00000  1586+         LA    0,0(6) . ADDRESS OF EXIT ROUTINE   @AS78034
00021E 5601 0000            00000  1587+         O     0,0(1) . OR EXIT ADR INTO LIST     @AS78034
000222 5001 0000            00000  1588+         ST    0,0(1) @AS78034
000226 9680 1000      00000        1589+         OI    0(1),128 .            FLAGS FOR TCB,
                                   1590+*                                       PURGE AND ASYNCH
00022A 5021 0004            00004  1591+         ST    (2),4(1) .           MODIFY LIST - PARAM ADDR
00022E 50A1 0008            00008  1592+         ST    (10),8(1) .         MODIFY LIST - TCB ADDR
000232 1B00                        1593+         SR    0,0 .                   INDICATE CREATE OPTION
000234 0A3C                        1594+         SVC   60 .                    ISSUE STAE SVC
000236 07F8                        1595+         BR    XR8 .               CONTINUE SEARCH                M2191

000238 89F0 0002            00002  1597+RETCODE  SLL   XR15,2 .           MAKE RCODE = X'10'.  ONLY       M3891
                                   1598+*                                 POSSIBLE CODE FROM STAI IS 4    M3891
00023C 50F5 005C            0005C  1599+         ST    XR15,SVRBXR0+60(XRORB) . SAVE RCODE FOR ATTACHOR   M3891
000240 186E                        1600+         LR    XR6,XRPARA .       SAVE PARAMLST ADDR OVER FMAIN   M3891
000242 4520 B25C            0025E  1601+         BAL   XR2,UTHNASIA .     CLEAN UP THE DAUGHTER           M3891
000246 18E6                        1602+         LR    XRPARA,XR6 .       RESTORE PARAMLST ADDR           M3891
000248 9101 E008      00008        1603+         TM    ATECBADR,STAIFLAG .Q.ATTACH WITH STAI              M3891
00024C 4780 B256            00258  1604+         BZ    ERROR5 .           NO.ABEND WITH X'052A'           M3891
000250 58F5 005C            0005C  1605+         L     XR15,SVRBXR0+60(XRORB) . LOAD RCODE FOR ATTACHOR   M3891
000254 1711                        1606+         XR    XR1,XR1 .          ZERO OUT TCB ADDRESS REG        M3891
000256 0A03                        1607+         SVC   3 .                YES.RETURN TO ATTACHOR          M3891

000258 5810 B9DA            009DC  1609+ERROR5   L     XR1,PROPFAIL .     GET CODE INTO REG 1             M3891
00025C 0A0D                        1610+         SVC   13 .               BOOM                            M3891


                                   1612+***************************************************************   M3891
                                   1613+*    EUTHANASIA SUBROUTINE:  CLEAN UP A PARTIALLY CREATED         M3891
                                   1614+*        DAUGHTER TASK SHOULD STAI CREATION OR PROPAGATION FAIL   M3891
                                   1615+***************************************************************   M3891

00025E                             1617+UTHNASIA EQU   * .                                                M3891
00025E 5890 A08C            0008C  1618+         L     XR9,TCBIQE .       GET IQE ADDR FROM THE TCB       M3891
000262 1299                        1619+         LTR   XR9,XR9 .          Q.DOES IQE EXIST                M3891
000264 4780 B2B4            002B6  1620+         BZ    TCBFREE .          NO.ONLY FREE THE TCB            M3891
000268 5889 0008            00008  1621+         L     XR8,IQEIRB(XR9) .  YES.GET IRB ADDR FROM THE IQE   M3891
00026C 1B77                        1622+         SR    XR7,XR7 .                                          M3891
00026E 4378 0018            00018  1623+         IC    XR7,IRBUSE(XR8) .  GET IRB USE COUNT               M3891
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000272 0670                        1624+         BCTR  XR7,0 .            DECREMENT THE USE COUNT         21B72
000274 4278 0018            00018  1625+         STC   XR7,IRBUSE(XR8) .  UPDATE THE IRB USE COUNT        21B72
000278 1277                        1626+         LTR   XR7,XR7 .          Q.COUNT EQUAL ZERO              21B72
00027A 4770 B2A6            002A8  1627+         BNZ   IQEFREE .          NO.ONLY FREE THE IQE            21B72
                                   1628+*                                 YES.FREE THE IRB ,ALSO          21B72
00027E                             1629+FREEIRB  EQU   * .                                                M3891
00027E 5818 0000            00000  1630+         L     XR1,IRBSAVE(XR8) . GET SAVE AREA ADDR              M3891
000282 4111 0000            00000  1631+         LA    XR1,0(XR1) .       CLEAR HIGH BYTE                 M3891
000286 1211                        1632+         LTR   XR1,XR1 .          Q.SAVE AREA EXISTS              M3891
000288 4780 B298            0029A  1633+         BZ    NOSAVE .           NO.BRANCH                       M3891
00028C 5800 B2EA            002EC  1634+         L     SIZEREG,SAVEAREA . GET SAVEAREA SIZE AND SUBPOOL   M3891
000290 4111 0000            00000  1635+         LA    XR1,0(XR1) .       INDICATE FREEMAIN               M3891
000294 58F0 B9D6            009D8  1636+         L     RGETMAIN,RMBRNCHA .GET ADDR OF FREEMAIN BRANCH     M3891
000298 05EF                        1637+         BALR  XRRETURN,RGETMAIN .GO TO FREEMAIN                  M3891
00029A                             1638+NOSAVE   EQU   * .                                                M3891
00029A 5800 B2EE            002F0  1639+         L     SIZEREG,SIZEIRB .  GET IRB SIZE AND SUBPOOL        M3891
00029E 4118 0000            00000  1640+         LA    XR1,0(XR8) .       INDICATE FREEMAIN               M3891
0002A2 58F0 B9D6            009D8  1641+         L     RGETMAIN,RMBRNCHA .GET ADDR OF FREEMAIN BRANCH     M3891
0002A6 05EF                        1642+         BALR  XRRETURN,RGETMAIN .GO TO FREEMAIN                  M3891

0002A8                             1644+IQEFREE  EQU   * .                                                M3891
0002A8 5800 B2F2            002F4  1645+         L     SIZEREG,IQESIZE .  GET IQE SIZE AND SUBPOOL        M3891
0002AC 4119 0000            00000  1646+         LA    XR1,0(XR9) .       GET IQE ADDR                    M3891
0002B0 58F0 B9D6            009D8  1647+         L     RGETMAIN,RMBRNCHA .GET ADDR OF FREEMAIN BRANCH     M3891
0002B4 05EF                        1648+         BALR  XRRETURN,RGETMAIN .GO TO FREEMAIN                  M3891

0002B6                             1650+TCBFREE  EQU   * .                                                M3891
0002B6 5890 A0A0            000A0  1651+         L     XR9,TCBNSTAE .     GET SCB FROM TCB                M3891
0002BA 4199 0000            00000  1652+FINDSCB  LA    XR9,0(XR9) .       CLEAR OFF FLAGS                 M3891
0002BE 1299                        1653+         LTR   XR9,XR9 .          Q.ANY SCB'S LEFT                M3891
0002C0 4780 B2D6            002D8  1654+         BZ    TASK .             NO.GO TO FREE THE TCB           M3891
0002C4 5800 B2F6            002F8  1655+         L     SIZEREG,SCBSIZE .  GET SCB SUBPOOL AND SIZE        M3891
0002C8 1819                        1656+         LR    XR1,XR9 .          GET ADDR INTO REG 1             M3891
0002CA 58F0 B9D6            009D8  1657+         L     RGETMAIN,RMBRNCHA .GET ADDR OF FREEMAIN BRANCH     M3891
0002CE 05EF                        1658+         BALR  XRRETURN,RGETMAIN .GO TO FREEMAIN                  M3891
0002D0 5899 0000            00000  1659+         L     XR9,NEXTSCB(XR9) . GET NEXT SCB                    M3891
0002D4 47F0 B2B8            002BA  1660+         B     FINDSCB .          LOOP                            M3891
0002D8                             1661+TASK     EQU   * .                                                M3891
0002D8 5800 B2FA            002FC  1662+         L     SIZEREG,TCBSIZE .  GET TCB SIZE AND SUBPOOL        M3891
0002DC 4110 0020            00020  1663+         LA    XR1,32 .           GET CONSTANT TO ADDR FPREGS     M3891
0002E0 1311                        1664+         LCR   XR1,XR1 .          MAKE IT MINUS                   M3891
0002E2 1A1A                        1665+         AR    XR1,XRATCB .       GET REAL STARTING ADDR OF TCB   M3891
0002E4 58F0 B9D6            009D8  1666+         L     RGETMAIN,RMBRNCHA .GET ADDR OF FREEMAIN BRANCH     M3891
0002E8 05EF                        1667+         BALR  XRRETURN,RGETMAIN .GO TO FREEMAIN                  M3891
0002EA 07F2                        1668+         BR    XR2 .              RETURN TO CALLER                M3891

000000                             1670+NEXTSCB  EQU   0 .                OFFSET OF SCB CHAIN FIELD       M3891
000000                             1671+IRBSAVE  EQU   0 .                OFFSET OF SAVEAREA ADDR IN IRB  M3891
000008                             1672+IQEIRB   EQU   8 .                OFFSET OF IRB ADDR IN THE IQE   M3891
000018                             1673+IRBUSE   EQU   24 .               OFFSET OF USE COUNT IN THE IRB  M3891

0002EC                             1675+         DS    0F .                                               M3891
0002EC FA000048                    1676+SAVEAREA DC    AL1(250),AL3(72) . SAVEAREA SUBPOOL AND SIZE       M3891
0002F0 FD000060                    1677+SIZEIRB  DC    AL1(253),AL3(96) . IRB SUBPOOL AND SIZE            M3891
0002F4 FD000010                    1678+IQESIZE  DC    AL1(253),AL3(16) . IQE SUBPOOL AND SIZE            M3891
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0002F8 FF000010                    1679+SCBSIZE  DC    AL1(255),AL3(16) . SCB SUBPOOL AND SIZE            M3891
0002FC FD0000D8                    1680+TCBSIZE  DC    AL1(253),AL3(216) .TCB SUBPOOL AND SIZE            M3891
000300 FF000020                    1681+PRBSIZE  DC    AL1(255),AL3(32) .PRB SUBPOOL AND SIZE      M5403


                                   1683+*  ROLLOUT BIT PROCESSING                                          RORI
                                   1684+* THE VALUE AT OFFSET 20.6 IN THE PARAMETER LIST IS REFLECTED      RORI
                                   1685+* IN TCBNROC BYTE (NON-ROLLOUTABLE COUNT) AT OFFSET 24 IN THE      RORI
                                   1686+* JOB STEP TCB AND SUB-TASKS.  THE VALUE AT OFFSET 20.7 IS         RORI
                                   1687+* REFLECTED IN THE TCBFRA FLAG(ROLLOUTABILITY) AT OFFSET 30.2      RORI
                                   1688+* IN THE JOB STEP TCB AND SUB-TASKS.                               RORI


000304 9102 E014      00014        1690+ROLL     TM    ATROLL,NROLABLY Q. IS TASK ROLLOUTABLE       RORI
000308 4710 B30E            00310  1691+         BO    INVOKE YES,TAKE BRANCH ROCOUNT = 00     RORI
00030C 9601 A018      00018        1692+         OI    TCBNROC,X'01' SET ROLLOUTABLE COUNT       RORI
000310 9101 E014      00014        1693+INVOKE   TM    ATROLL,ROLABLY Q. CAN STEP INVOKE ROLLOUT    RORI
000314 4780 B31A            0031C  1694+         BZ    ATOK1 NO, TAKE BRANCH             RORI
000318 9620 A01E      0001E        1695+         OI    TCBFLGS+1,X'20' SET CAN INVOKE ROLLOUT      RORI


                                   1697+* JOB STEP,MODE,AND KEY PARAMETER PROCESSING IN THE TCB            I270

                                   1699+* THE JOB STEP FIELD IS PROPAGATED TO THE ATTACHEE'S TCB. IF THE   I270
                                   1700+* ATTACHOR HAS NON-ZERO PROTECT KEY, THE GIVEJPQ,KEY,SVAREA,       I270
                                   1701+* JSTCB, AND SM BITS IN BYTE 27 OF THE INPUT PARAMETER LIST ARE    I270
                                   1702+* SET TO THE DEFAULT VALUES FOR THESE PARAMETERS. THE JOB STEP     I270
                                   1703+* FIELD REMAINS PROPAGATED, THE MODE IS PROBLEM PROGRAM, AND THE   I270
                                   1704+* PROTECT KEY IS PROPAGATED. IF A KEY ZERO ATTACHOR SPECIFIES      I270
                                   1705+* JSTCB=YES, THE JOB STEP FIELD IS SET TO THE ADDRESS OF THE       I270
                                   1706+* ATTACHEE'S TCB. IF HE SPECIFIES KEY=ZERO, THE KEY IS NOT         I270
                                   1707+* PROPAGATED. IF HE SPECIFIES SM=SUPV, THE MODE BIT IS SET TO      I270
                                   1708+* INDICATE SUPERVISOR MODE.                                        I270

00031C D203 A098 4098 00098 00098  1710+ATOK1    MVC   TCBPQE(4),TCBPQEP PROPAGATE PARTITION Q ELEMENT    I270
000322 D203 A07C 407C 0007C 0007C  1711+         MVC   TCBITB(4),TCBITBP PROPAGATE JOB STEP FIELD         I270
000328 D203 A0A4 40A4 000A4 000A4  1712+         MVC   TCBTCT(L'TCBTCT),TCBTCTP PROPAGATE TCT POINTER     SMF1
00032E 5865 001C            0001C  1713+         L     XRPRB,RBLINK(XRORB) GET REQUESTOR'S PRB             I270
000332 91F0 6011      00011        1714+         TM    RBOPSW+1(XRPRB),X'F0' Q.KEY ZERO ATTACHOR           I270
000336 4780 B33C            0033E  1715+         BZ    JSTEST Y8S,BRANCH AROUND DEFAULTS       I270
00033A 9408 E01B      0001B        1716+         NI    ATINDS,ATDFLT DEFAULT SM,JSTCB,SVAREA,KEY,     I270
                                   1717+*                                 AND GIVEJPQ IN BYTE 27           I270
00033E 9102 E01B      0001B        1718+JSTEST   TM    ATINDS,ATJST Q.IS JSTCB PARAMETER=YES         I270
000342 4780 B348            0034A  1719+         BZ    SMTEST NO,LEAVE JOB STEP FIELD          I270
                                   1720+*                                 PROPAGATED                       I270
000346 50A0 A07C            0007C  1721+         ST    XRATCB,TCBITB SET JSTCB FIELD IN AT'EE TCB     I270
00034A 9101 E01B      0001B        1722+SMTEST   TM    ATINDS,ATMODE Q.IS SM PARAMETER=SUPV          I270
00034E 4780 B354            00356  1723+         BZ    KEYTEST NO,LEAVE MODE P/P                I270
000352 9280 A01F      0001F        1724+         MVI   TCBFLGS+2,TCBFSM SET MODE TO SUPV                 I270
000356 9110 E01B      0001B        1725+KEYTEST  TM    ATINDS,ATKEY Q.IS KEY PARAMETER=ZERO          I270
00035A 4710 B362            00364  1726+         BO    TIOTPRO YES,LEAVE KEY ZERO               I270
00035E D200 A01C 401C 0001C 0001C  1727+         MVC   TCBPKF(1),TCBPKFP PROPAGATE PROTECT KEY            I270


                                   1729+*  PROPAGATE TASK I/O TABLE POINTER AND THE JOB LIBRARY POINTER.
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1730+* IF A TASKLIB DCB ADDRESS HAS BEEN GIVEN, PLACE IT IN THE        20021
                                   1731+* JOBLIB FIELD OF THE ATTACHEE.                                   20021

000364 D203 A00C 400C 0000C 0000C  1733+TIOTPRO  MVC   TCBTIO(4),TCBTIOP PROPOGATE TIOT FIELD
00036A D203 A028 4028 00028 00028  1734+         MVC   TCBJLB(4),TCBJLBP PROPOGATE JOB LIBRARY FIELD
                                   1735+* TEST FOR TASKLIB REQ'D FOR PREVIOUS RELEASE ASSY. COMPATABILITY 20021
000370 9102 E008      00008        1736+         TM    ATECBADR,TLIBFLAG Q.IS TASKLIB DCB GIVEN          20021
000374 4780 B384            00386  1737+         BZ    ZCONT NO-BRANCH AROUND MOVE         20021
000378 5860 E030            00030  1738+         L     XR6,ATASKLIB GET TASKLIB DCB ADDR      M0122
00037C 1266                        1739+         LTR   XR6,XR6 Q.DCB ADDR = 0            M0122
00037E 4780 B384            00386  1740+         BZ    ZCONT YES.BRANCH                M0122
000382 5060 A028            00028  1741+         ST    XR6,TCBJLB NO.PUT NEW ADDR IN TCB    M0122
000386                             1742+ZCONT    EQU   * 20021


                                   1744+*                                                                  I270
                                   1745+* JSCB PARAMETER PROCESSING                                        I270
                                   1746+*                                                                  I270
                                   1747+* IF THE JSCB BIT IN BYTE 27 IS ZERO, THE TCBJSCB FIELD IS         I270
                                   1748+* PROPAGATED FROM THE MOTHER TO THE DAUGHTER TCB. IF THE JSCB      I270
                                   1749+* BIT IS ONE, THE REQUESTOR'S PROTECT KEY IN THE RB IS CHECKED.    I270
                                   1750+* IF THE PROTECT KEY IS NOT ZERO, THE TCBJSCB FIELD IS             I270
                                   1751+* PROPAGATED FROM THE MOTHER TCB. IF THE PROTECT KEY IS ZERO       I270
                                   1752+* THE JSCB ADDRESS GIVEN IN BYTES 37-39 OF THE SPL IS MOVED TO     I270
                                   1753+* THE TCBJSCB FIELD IN THE DAUGHTER'S TCB.                         I270

000386 9140 E01B      0001B        1755+JSCB     TM    ATINDS,ATJSCB Q.IS JSCB PARAMETER GIVEN        I270
00038A 4780 B3A2            003A4  1756+         BZ    PROPJSCB NO,BRANCH                        I270
00038E 5865 001C            0001C  1757+         L     XRPRB,RBLINK(XRORB) GET REQUESTOR'S PRB             I270
000392 91F0 6011      00011        1758+         TM    RBOPSW+1(XRPRB),X'F0' Q.KEY ZERO ATTACHOR           I270
000396 4770 B3A2            003A4  1759+         BC    7,PROPJSCB NO,BRANCH                        I270
00039A D202 A0B5 E025 000B5 00025  1760+         MVC   TCBJSCB+1(3),ATJSCBAD+1 STORE JSCB ADR IN AT'ED     I270
                                   1761+*                                      TCB                         I270
0003A0 47F0 B3A8            003AA  1762+         B     ECB BRANCH TO ECB PROCESSING         I270
0003A4 D202 A0B5 40B5 000B5 000B5  1763+PROPJSCB MVC   TCBJSCB+1(3),TCBJSCBP+1 PROPAGATE JSCB FIELD        I270


                                   1765+* ECB PARAMETER PROCESSING.
                                   1766+* IF THE ECB PARAMETER IS ZERO THIS SECTION OF CODE IS BY-PASSED.IF NOT
                                   1767+* CHECK THE VALIDITY OF THE ECB ADDRESS. IF THE ECB ADDRESS IS INVALID
                                   1768+* GO TO ERROR ROUTINE (ABEND). IF THE ECB ADDRESS IS OK CHECK PROTECT
                                   1769+* KEY TO SEE IF EQUAL TO ATTACHORS PROTECT KEY. IF NOT EQUAL WAS
                                   1770+* ATTACHOR IN SUPERVISER MODE. NO, GO TO ABEND.

0003AA 5860 E008            00008  1772+ECB      L     XRECB,ATECBADR LOAD INPUT ECB ADR               I270
0003AE 4166 0000            00000  1773+         LA    XRECB,0(XRECB) CLEAR HI ORDER BYTE
0003B2 1266                        1774+         LTR   XRECB,XRECB Q.ECB PTR ZERO
0003B4 4780 B3F0            003F2  1775+         BZ    ATOK2 YES BRANCH
0003B8 5060 A090            00090  1776+         ST    XRECB,TCBECB ST ECB ADR IN ATTACHED TCB
0003BC 5865 001C            0001C  1777+         L     XRPRB,RBLINK(XRORB) GET REQUESTOR'S RB
0003C0 91F0 6011      00011        1778+         TM    RBOPSW+1(XRPRB),X'F0' Q.REQUESTOR'S KEY 0
0003C4 4780 B3F0            003F2  1779+         BC    8,ATOK2 YES, TAKE BRANCH NO VAL. CHECK
0003C8 5860 A090            00090  1780+         L     XRECB,TCBECB RESTORE ECB REG
0003CC 9103 E00B      0000B        1781+         TM    ATECBADR+3,X'03' Q.ECB ADR ON FULL WORD BOUNDRY
0003D0 4770 B982            00984  1782+         BC    7,ERROR4 *** NO - BRANCH
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0003D4 5963 00A4            000A4  1783+         C     XRECB,MACHSIZE(XRCVT) Q.ECB ADR OUT OF CORE RANGE
0003D8 4720 B982            00984  1784+         BH    ERROR4 YES - BRANCH
0003DC 4360 B3E9            003EB  1785+         IC    XRECB,PKEYTEST+1 ZERO REG BITS 24-31
0003E0 0966                        1786+         ISK   XRECB,XRECB LD ECB PROTECT KEY
0003E2 4460 B3E8            003EA  1787+         EX    XRECB,PKEYTEST Q.ECB PROTECT KEY SAME WITH ATOR
0003E6 4780 B3F0            003F2  1788+         BE    ATOK2 YES BRANCH
0003EA 9500 401C      0001C        1789+PKEYTEST CLI   TCBPKFP,SMODEKEY Q.ATTACHOR IN SUPERVISER MODE
0003EE 4770 B982            00984  1790+         BNE   ERROR4 *** NO - BRANCH


                                   1792+* PRIORITY PARAMETER PROCESSING.

                                   1794+* FOR NON TIME SHARING TASKS                                      20021

                                   1796+*  CHECK LIMIT PRIORITY PARAMETER. IF ZERO, PROPOGATE
                                   1797+* THE ATTACHOR'S LIMIT PRIORITY, OTHERWISE SUBTRACK THE LIMIT
                                   1798+* PRIORITY PARAMETER FROM THE ATTACHOR'S LIMIT PRIORITY. IF
                                   1799+* THE RESULT IS ZERO OR LESS, STORE A ZERO IN THE ATTACHED
                                   1800+* TCB'S LIMIT PRIORITY, IF PLUS, STORE RESULT.
                                   1801+*
                                   1802+*  CHECK THE DISPATCHING PRIORITY. IF ZERO, COMPARE THE
                                   1803+* ATTACHED LIMIT PRIORITY AGAINST THE ATTACHOR'S DISPATCHING
                                   1804+* PRIORITY AND STORE THE LOWER IN THE ATTACHED TCB'S DISPATCH FIELD. IF
                                   1805+* THE INPUT DISPATCH PRIORITY WASN'T ZERO, ADD THE INPUT AND THE
                                   1806+* ATTACHORS TCB'S DISPATCH PRIORITY. IF THE ADDED RESULT IS ZERO OR
                                   1807+* LESS, STORE ZERO IN THE ATTACHED TCB DISPATCH FIELD. IF THE ADDED
                                   1808+* RESULT WASN'T ZERO OR LESS, COMPARE IT AGAINST THE ATTACHED LIMIT
                                   1809+* PRIORITY AND STORE THE SMALLER IN THE ATTACHED TCB'S DISPATCH FIELD.

                                   1811+* FOR TIME SHARING TASKS.                                         20021

                                   1813+* TEST IF LOGON IS BEING ATTACHED. IF NOT BEING ATTACHED, THEN    20021
                                   1814+* PROPAGATE THE REAL LIMIT AND THE REAL DISPATCHING PRIORITIES    20021
                                   1815+* FROM THE ATTACHOR TO THE ATTACHED TCB, AND MODIFY THE TIME      20021
                                   1816+* SHARING LIMIT AND DISPATCHING PRIORITIES IF ANY PARAMETERS ARE  20021
                                   1817+* PASSED. IF PARAMETERS ARE NOT PASSED THEN PROPAGATE THE TIME    20021
                                   1818+* SHARING LIMIT AND DISPATCHING PRIORITIES.                       20021
                                   1819+*                                                                 20021
                                   1820+* WHEN LOGON IS BEING ATTACHED, DECREMENT ATTACHOR'S(RCT) REAL    20021
                                   1821+* LIMIT AND DISPATCHING PRIORITY BY ONE AND PUT IT IN LOGON'S     20021
                                   1822+* REAL LIMIT AND REAL DISPATCHING PRIORITY FIELDS,AND ALSO IN     20021
                                   1823+* LOGON'S TIME SHARING LIMIT AND DISPATCHING PRIORITY FIELDS.     20021
0003F2 1B88                        1824+ATOK2    SR    XRLPRI,XRLPRI
0003F4 1B99                        1825+         SR    XRINLPRI,XRINLPRI
0003F6 9180 4094      00094        1826+         TM    TCBTSFLP,TCBTSTSP IS ATTACHOR A TIME SHARING TSK  20021
0003FA 4780 B426            00428  1827+         BZ    NOTSO1 NO- BRANCH                      20021
0003FE 9104 E008      00008        1828+         TM    ATECBADR,LOGONFLG IS LOGON BEING ATTACHED         20021
000402 47E0 B410            00412  1829+         BNO   NTLOGATT .          NO                             M2173
000406 5860 501C            0001C  1830+         L     XR6,RBLINK(XR0,XR5) .R B OF ATTACHOR               M2173
00040A 91F0 6011      00011        1831+         TM    RBOPSW+1(XR6),X'F0' ATTACHOR HAVE KEY 0            M2173
00040E 4780 B4C6            004C8  1832+         BZ    LOGONATT .          YES                            M2173
000412                             1833+NTLOGATT EQU   * .                                                M2173
000412 D201 A022 4022 00022 00022  1834+         MVC   TCBLMP(TWO),TCBLMPP PROP REAL LIM AND DSPCH PRIOR  20021
000418 4380 4096            00096  1835+         IC    XRLPRI,TCBTSLPP LD ATTACHORS TS LIM PRIOR       20021
00041C 91FF E01A      0001A        1836+         TM    ATLPMOD,X'FF' IS THERE A LIM PRI PARAM        20021
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000420 4780 B444            00446  1837+         BZ    PROPLMPR NO  BRANCH                      20021
000424 47F0 B432            00434  1838+         B     ATOK2A 20021
000428                             1839+NOTSO1   EQU   * 20021
000428 4380 4022            00022  1840+         IC    XRLPRI,TCBLMPP LD ATTACHORS LIMIT PRIORITY
00042C 91FF E01A      0001A        1841+         TM    ATLPMOD,X'FF' Q.LIMIT PRIORITY TO BE PROPAGATE
000430 4780 B450            00452  1842+         BZ    STLPRI YES BRANCH
000434                             1843+ATOK2A   EQU   * 20021
000434 4390 E01A            0001A  1844+         IC    XRINLPRI,ATLPMOD LD PARAMETER LIMIT PRIORITY
000438 1B89                        1845+         SR    XRLPRI,XRINLPRI SUBTRACT INPUT FROM ATTACHOR
00043A 47D0 B4DC            004DE  1846+         BNH   ATOK4 Q.DIFF. 0 OR LESS(YES BRANCH)
00043E 9180 4094      00094        1847+         TM    TCBTSFLP,TCBTSTSP IS THIS A TIME SHARING TSK      20021
000442 4780 B450            00452  1848+         BZ    NOTSO2 NO- BRANCH                      20021
000446 4280 A096            00096  1849+PROPLMPR STC   XRLPRI,TCBTSLP ST ATTACHORS LIM                20021
                                   1850+*                                 OR REDUCED LIMIT PRI IN         20021
                                   1851+*                                 ATTACHED TCB                    20021
00044A 4390 4097            00097  1852+         IC    XRDPRI,TCBTSDPP LD ATTACHORS TS DISPAT PRI      20021
00044E 47F0 B458            0045A  1853+         B     ATOK2B 20021
000452                             1854+NOTSO2   EQU   * 20021
000452 4280 A022            00022  1855+STLPRI   STC   XRLPRI,TCBLMP ST ATTACHOR'S OR REDUCED LIMIT
                                   1856+*                                       PRIORITY IN ATTACHED TCB
000456 4390 4023            00023  1857+         IC    XRDPRI,TCBDSPP LD ATTACHOR'S DISPATCH PRIORITY
00045A                             1858+ATOK2B   EQU   * 20021
00045A 4880 E018            00018  1859+         LH    XRINDPRI,ATDPMOD LD PARAMETER DISPATCH PRIORITY
00045E 1A89                        1860+         AR    XRINDPRI,XRDPRI Q.ADD ATTACHOR'S DISPATCH AND
000460 4740 B4DC            004DE  1861+         BM    ATOK4 INPUT DISPATCH(NEGITIVE BRANCH)
000464 9180 4094      00094        1862+         TM    TCBTSFLP,TCBTSTSP IS THIS A TIME SHARING TSK      20021
000468 4780 B48A            0048C  1863+         BZ    NOTSO3 NO- BRANCH                      20021
00046C 1989                        1864+         CR    XRINDPRI,XRDPRI Q.WAS INPUT DISPATCH PRIORITY 0   20021
00046E 4780 B47C            0047E  1865+         BE    STDISPRI YES BRANCH                      20021
000472 92FF A097      00097        1866+         MVI   TCBTSDP,P255 SETT ATTACHED DISPAT PRI TO 255 20021
000476 4980 B9E8            009EA  1867+         CH    XRINDPRI,PLUS255 IS ADDED RESULT GR THAN 255     20021
00047A 4720 B480            00482  1868+         BH    TESTPRI YES BRANCH                      20021
00047E 4280 A097            00097  1869+STDISPRI STC   XRINDPRI,TCBTSDP ST ADDEDTS DISP PRI IN          20021
                                   1870+*                                 ATTACHED TCB                    20021
000482 D500 A096 A097 00096 00097  1871+TESTPRI  CLC   TCBTSLP(ONE),TCBTSDP IS ATTACHED TCB LIM PRI GR    20021
                                   1872+*                                 THAN ITS TS DISPAT PRI          20021
000488 47F0 B4A6            004A8  1873+         B     ATOK2C 20021
00048C                             1874+NOTSO3   EQU   * 20021
00048C 1989                        1875+         CR    XRINDPRI,XRDPRI Q.WAS INPUT DISPATCH PRIORITY 0
00048E 4780 B49C            0049E  1876+         BE    STNEWD YES BRANCH
000492 92FF A023      00023        1877+         MVI   TCBDSP,P255 SET ATTACHED TCB D PRIORITY 255
000496 4980 B9E8            009EA  1878+         CH    XRINDPRI,PLUS255 Q.IS RESULT GR THAN 255
00049A 4720 B4A0            004A2  1879+         BH    ATDPPROC YES/ BRANCH
00049E 4280 A023            00023  1880+STNEWD   STC   XRINDPRI,TCBDSP ST ADDED DISPATCH IN ATTACHED
0004A2 D500 A022 A023 00022 00023  1881+ATDPPROC CLC   TCBLMP(1),TCBDSP Q.ATTACHED LIMIT HIGHER THAN
0004A8                             1882+ATOK2C   EQU   * 20021
0004A8 47B0 B4DC            004DE  1883+         BNL   ATOK4 .             IT'S DISPATCHABLE (YES BRANCH) 21B72
0004AC 9180 4094      00094        1884+         TM    TCBTSFLP,TCBTSTSP IS THIS A TIME SHARING TSK      20021
0004B0 4780 B4BC            004BE  1885+         BZ    NOTSO4 NO- BRANCH                      20021
0004B4 D200 A097 A096 00097 00096  1886+         MVC   TCBTSDP(ONE),TCBTSLP PROP TS LIM PRI TO ITS TS     20021
                                   1887+*                                 DISPATCHING PRIORITY            20021
0004BA 47F0 B4DC            004DE  1888+         B     ATOK2D CONTINUE ATTACH                 20021
0004BE                             1889+NOTSO4   EQU   * 20021
0004BE D200 A023 A022 00023 00022  1890+         MVC   TCBDSP(1),TCBLMP PROPAGATE LIMIT TO DISPATCH
0004C4 47F0 B4DC            004DE  1891+         B     ATOK2D BRANCH AND CONTINUE             20021
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0004C8 4390 4023            00023  1892+LOGONATT IC    XR9,TCBDSPP GET ATTACHOR'S REAL LIMIT PRIOR 20021
0004CC 0690                        1893+         BCTR  XR9,ZERONUM DECREMENT IT BY ONE             20021
0004CE 4290 A022            00022  1894+         STC   XR9,TCBLMP STORE IN LOGON'S REAL LIM PRIOR 20021
0004D2 4290 A096            00096  1895+         STC   XR9,TCBTSLP STORE IN LOGON'S TS LIM PRIOR   20021
0004D6 4290 A023            00023  1896+         STC   XR9,TCBDSP STORE IN LOGON'S REAL DISP PRI  20021
0004DA 4290 A097            00097  1897+         STC   XR9,TCBTSDP STORE IN LOGON'S TS DISP PRIOR  20021
0004DE                             1898+ATOK2D   EQU   * 20021
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1900+* SPQE
                                   1901+***********************************************
                                   1902+* ATTRIBUTE *   LINK FIELD                    *
                                   1903+*   FLAGS   *     POINTS TO NEXT SPQE OR TCB  *
                                   1904+***********************************************
                                   1905+*  SUBPOOL  *   DQE ADDRESS OF OWNED SPQE     *
                                   1906+*    ID     *     OR ADDRESS OF SHARED SPQE   *
                                   1907+***********************************************

                                   1909+*  ATTRIBUTE FLAGS.
                                   1910+* BIT 0 ON MEANS SUBPOOL SHARED
                                   1911+* BIT 0 OFF MEANS SUBPOOL OWNED
                                   1912+* BIT 1 ON MEANS LAST SUBPOOL IN QUEUE, AND LINK FIELD POINTS TO TCB
                                   1913+* BIT 2 ON MEANS SUBPOOL IS OWNED BUT IS SHARED WITH ANOTHER TCB

                                   1915+* SUB POOL PROCESSING.
                                   1916+*  THIS SECTION PROCESS THE GIVING AND SHARING OF SUB POOL. THE GIVING
                                   1917+* OR SHARING SP ZERO IS IGNORED. SP ZERO IS AUTOMATICALLY SHARED
                                   1918+* WHEN A TCB OF THE SAME JOB STEP IS ATTACHED.
                                   1919+*  ATTACH REQUESTOR IN PROBLEM PROGRAM MODE CAN ONLY USE SP 0-127. ANY
                                   1920+* SP OTHER THAN THAT WILL CAUSE IT TO ABEND.


                                   1922+* REQUESTING SUBPOOL IDENTIFICATION IN REGISTER 7.
                                   1923+* REQUESTING SUBPOOL QUANTITY IN REGISTER 8.
                                   1924+* REQUESTING SUBPOOL ID LIST ADDRESS (UPDATED) IN REGISTER 9.


0004DE 5890 E00C            0000C  1926+ATOK4    L     XRSPADR,ATGSFLAG LOAD 'GIVE SP' PARAMETER
0004E2 4199 0000            00000  1927+         LA    XRSPADR,0(XRSPADR) ZERO REG BITS S-7
0004E6 4170 0001            00001  1928+         LA    XRSPID,ONE INITIALIZE SP ID TO ONE          I270
0004EA 1B88                        1929+         SR    XRSPCTR,XRSPCTR CLEAR SP COUNTER


                                   1931+*  TEST GIVE SP INPUT PARAMETER. IF ZERO, GO TO SHARE SP
                                   1932+* PROCESSING. IF IT ISN'T ZERO CONTINUE PROCESS OF GIVE SP.

0004EC 1299                        1934+         LTR   XRSPADR,XRSPADR Q.GIVE SP PARAMETER ZERO
0004EE 4780 B56A            0056C  1935+         BZ    SPSHARE YES BRANCH


                                   1937+*  THE GIVE SECTION TEST THE INPUT GIVE PARAMETER IF IT IS ZERO. IF IT
                                   1938+* IS ZERO, GO TO THE SHARE SP SECTION. NOT ZERO, IS THE PARAMETER
                                   1939+* A VALUE OR A LIST. IF A VALUE, GET THE SP ID AND PUT
                                   1940+* A ONE IN THE SP COUNTER. IF LIST, GET THE SP COUNT FROM THE FIRST
                                   1941+* BYTE OF THE LIST AND THE FOLLOWING BYTES WILL BE THE GIVE SP ID.
                                   1942+*  GIVE SP SECTION TESTS THE GIVE SP ID IF IT IS ZERO. IF THE SP ID IS
                                   1943+* ZERO, DECREMENT THE SP COUNTER WITHOUT PROCESSING THE ID. IF THE SP
                                   1944+* COUNTER IS NOT ZERO GET THE NEXT ID AND TRY PROCESSING.
                                   1945+*  THE GIVE SP, CHECKS THE ATTACH REQUESTOR'S TCB FIRST, IF THE SP ID
                                   1946+* IS FOUND IN ANY OF IT'S SUB POOL QUEUE ELEMENT (SPQE). IF THE SP ID
                                   1947+* IS FOUND, THE SPQE IS DEQUEUED FROM THE ATTACHOR'S TCB AND QUEUED ON
                                   1948+* THE ATTACHED TCB'S SP QUEUE. IF THE SP ID IS NOT FOUND ON THE
                                   1949+* ATTACHOR'S TCB'S SP QUEUE, THE ATTACHED TCB SP QUEUE IS SEARCHED. IF
                                   1950+* FOUND IN THE ATTACHED TCB, THE SP COUNT IS DECREMENTED WITHOUT
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1951+* FURTHER PROCESSING.
                                   1952+*  IF THE SP ID IS NOT FOUND IN THE ATTACHOR'S TCB OR THE ATTACHED TCB.
                                   1953+* A SPQE IS BUILT AND QUEUED TO THE ATTACHED TCB.
                                   1954+*  WHEN A SPQE IS QUEUED TO THE ATTACHED TCB IT IS FLAGGED 'OWNED'.
                                   1955+*  IF AN ATTACHOR TRIES TO GIVE A SPQE THAT IT OWNS, BUT IS SHARING IT
                                   1956+* WITH ANOTHER TCB, THE ATTACHOR IS ABEND.

0004F2 9101 E00C      0000C        1958+         TM    ATGSFLAG,GIVEL Q.GIVE PARAMETER IS AN ID LIST
0004F6 4710 B504            00506  1959+         BO    GSPLIST YES BRANCH
0004FA 4180 0001            00001  1960+         LA    XRSPCTR,ONE $LD 1 IN SP COUNTER FOR VALUE
0004FE 4190 E00F            0000F  1961+         LA    XRSPADR,ATGSFLD+2 $LD SP ID ADR FOR VALUE
000502 47F0 B50C            0050E  1962+         B     GSPVALUE
000506 4389 0000            00000  1963+GSPLIST  IC    XRSPCTR,0(XRSPADR) $LD SP CTR FROM 1ST BYTE OF LIST
00050A 4199 0001            00001  1964+GSPNEXT  LA    XRSPADR,1(XRSPADR) $UPDATE SP ID LIST ADR
00050E 4379 0000            00000  1965+GSPVALUE IC    XRSPID,0(XRSPADR) $LD SP ID
000512 1277                        1966+         LTR   XRSPID,XRSPID Q.TRYING TO GIVE SP ZERO
000514 4780 B566            00568  1967+         BZ    GSPEND YES BRANCH
000518 4970 B9E4            009E6  1968+         CH    XRSPID,SUPVSPID Q.SUPERVISOR SUBPOOL ID (128-255)
00051C 47A0 B972            00974  1969+         BC    10,ERROR2 *** YES - BRANCH
000520 1824                        1970+         LR    XRTCB,XROTCB $LOAD ATTACHOR'S TCB ADDR.
000522 45C0 B6BA            006BC  1971+         BAL   XRLINK,SPSEARCH **Q.IS GIVE SP ID IN ATTACHOR QUE
000526 4780 B55A            0055C  1972+         BZ    SEARCHED NO BRANCH
00052A 9120 1000      00000        1973+         TM    0(XRSPQE),OSFLAG Q.GIVING OWN/SHARED SPQE
00052E 4710 B96A            0096C  1974+         BO    ERROR1 *** YES - BRANCH
000532 9180 1000      00000        1975+         TM    0(XRSPQE),SHARESP .     Q.SUBPOOL ALREADY SHARED  A53367
000536 47E0 B54C            0054E  1976+         BNO   GIVEIT .                NO.CAN GIVE IT            A53367
                                   1977+*                                      YES.MUST BUILD A NEW SPQE A53367
00053A 18D1                        1978+         LR    XRSAVE,XRSPQE .         SAVE ADDR OF EXISTING ONE A53367
00053C 45C0 B67A            0067C  1979+         BAL   XRLINK,BLDSPQE .                                  A53367
000540 9680 1000      00000        1980+         OI    0(XRSPQE),SHARESP .     FLAG IT SHARED            A53367
000544 D202 1005 D005 00005 00005  1981+         MVC   5(3,XRSPQE),5(XRSAVE) . PUT IN OWNING SPQE ADDR   A53367
00054A 47F0 B566            00568  1982+         B     GSPEND .                CONTINUE                  A53367

00054E                             1984+GIVEIT   EQU   * .                                               A53367
00054E 45C0 B6EA            006EC  1985+         BAL   XRLINK,DEQSP .          DEQ NON-SHARED SPQE       A53367
000552 41C0 B566            00568  1986+         LA    XRLINK,GSPEND $LD RETURN ADR
000556 182A                        1987+         LR    XRTCB,XRATCB $LD ATTACHED TCB ADR
000558 47F0 B696            00698  1988+         B     SPCHAIN **QUEUE FOUND SPQE TO ATTACHED
00055C 45C0 B6B8            006BA  1989+SEARCHED BAL   XRLINK,SPSRCH **Q.IS GIVE SP ID IN ATTACHED QUE
000560 4720 B566            00568  1990+         BP    GSPEND YES BRANCH
000564 45C0 B67A            0067C  1991+         BAL   XRLINK,BLDSPQE **BUILD SPQE FOR ATTACHED TCB
000568 4680 B508            0050A  1992+GSPEND   BCT   XRSPCTR,GSPNEXT Q.LAST GIVE SP PROCESSED (NO BR)


                                   1994+*  SHARE SP SECTION CHECKS SHARE SP PARAMETER. IF ZERO, GO TO THE
                                   1995+* GIVE OR SHARE SP ZERO SECTION. IF NOT ZERO, TEST IF IT IS A
                                   1996+* VALUE OR A LIST OF SP ID'S. IF A VALUE, LOAD SP ID FROM THE INPUT
                                   1997+* PARAMETER AND PUT A ONE IN THE SP COUNTER. IF PARAMETER IS A LIST,
                                   1998+* GET THE FIRST BYTE FROM THE LIST AND PUT IT IN THE SP COUNTER. THE
                                   1999+* FOLLOWING BYTES WILL BE THE SP IDS.
                                   2000+*  SHARING OF SP ZERO IS IGNORED AND SP COUNTER IS DECREMENTED.
                                   2001+*  THE ATTACHED TCB IS CHECKED FIRST IF THE SP ID IS PRESENT. IF YES,
                                   2002+* DECREMENT SP COUNTER AND GO TO PROCESS THE NEXT SP ID. IF NOT IN
                                   2003+* ATTACHED TCB, CHECK ATTACHING TCB. IF PRESENT, TEST IF ATTACHOR
                                   2004+* OWNS IT. IF OWNED, FLAG IT OWN/SHARED. IF THE ATTACHOR HAS THE
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2005+* SP ID, BUILD A SPQE FOR THE ATTACHED TCB AND FLAG IT SHARED.
                                   2006+*  IF SP ID IS NOT FOUND IN ATTACHOR OR ATTACHED TCB, BUILD SPQE FOR
                                   2007+* ATTACHOR AND FLAG OWN AND OWN/SHARED. THEN BUILD SPQE FOR ATTACHED
                                   2008+* AND FLAG SHARED.

00056C                             2010+SPSHARE  EQU   * .                                               A53365
00056C 4170 0001            00001  2011+         LA    XRSPID,ONE .       RECURSION INDICATOR FOR SHARE0 A53365
000570 5890 E010            00010  2012+         L     XRSPADR,ATSHFLAG LOAD SP PARM            BD M5009
000574 4199 0000            00000  2013+         LA    XRSPADR,0(XRSPADR) ZERO BITS S-7
000578 1299                        2014+         LTR   XRSPADR,XRSPADR Q.SHARE PARAMETER ZERO
00057A 4780 B602            00604  2015+         BZ    SHARE0 YES - BRANCH
00057E 9101 E010      00010        2016+         TM    ATSHFLAG,SHAREL Q.SHARE PARAMETER IS ID LIST
000582 4710 B590            00592  2017+         BO    SSPLIST YES BRANCH
000586 4180 0001            00001  2018+         LA    XRSPCTR,1 $LD 1 IN SP COUNTER FOR VALUE
00058A 4190 E013            00013  2019+         LA    XRSPADR,ATSHFLD+2 $LD SP ID ADR FOR VALUE
00058E 47F0 B598            0059A  2020+         B     SSPVALUE
000592 4389 0000            00000  2021+SSPLIST  IC    XRSPCTR,0(XRSPADR) $LD SP CTR FROM 1ST BYTE OF LIST
000596 4199 0001            00001  2022+SSPNEXT  LA    XRSPADR,1(XRSPADR) $UPDATE SP ID ADR
00059A 4379 0000            00000  2023+SSPVALUE IC    XRSPID,0(XRSPADR) $LD SP ID
00059E 4970 B9E4            009E6  2024+         CH    XRSPID,SUPVSPID Q.SUPERVISOR SUBPOOL ID (128-255)
0005A2 47A0 B972            00974  2025+         BC    10,ERROR2 *** YES - BRANCH
0005A6 1277                        2026+         LTR   XRSPID,XRSPID Q.IS SP ID ZERO
0005A8 4770 B5B6            005B8  2027+         BC    7,SSPSRCH NOT ZERO - BRANCH
0005AC 4680 B594            00596  2028+         BCT   XRSPCTR,SSPNEXT Q.DECREM. SP CTR. (NOT 0 BRANCH)
0005B0 4170 0001            00001  2029+         LA    XRSPID,ONE .       RECURSION INDICATOR FOR SHARE0 A53365
0005B4 47F0 B602            00604  2030+         B     SHARE0
0005B8 45C0 B6B8            006BA  2031+SSPSRCH  BAL   XRLINK,SPSRCH **SEARCH ATTACHED TCB FOR SP ID
0005BC 4720 B5FE            00600  2032+         BP    SSPEND FOUND BRANCH
0005C0 1824                        2033+ZEROSRCH LR    XRTCB,XROTCB LOAD ATTACHOR TCB ADDR
0005C2 45C0 B6BA            006BC  2034+         BAL   XRLINK,SPSEARCH **SEARCH ATTACHOR TCB FOR SP ID
0005C6 4780 B5D4            005D6  2035+         BZ    SPBLDOR NOT FOUND BRANCH
0005CA 9180 1000      00000        2036+ZEROSHAR TM    0(XRSPQE),SHARESP Q.SPQE OWNED
0005CE 4710 B5DE            005E0  2037+         BO    SPQUE1 NO BRANCH
0005D2 47F0 B5DA            005DC  2038+         B     SPQUE
0005D6 1824                        2039+SPBLDOR  LR    XRTCB,XROTCB $LD ATTACHOR TCB ADR
0005D8 45C0 B67E            00680  2040+         BAL   XRLINK,BLDSPQE1 **BUILD SPQE FOR ATTACHOR TCB
0005DC 9620 1000      00000        2041+SPQUE    OI    0(XRSPQE),OSFLAG FLAG JUST BUILT SPQE OWN/SHARED
0005E0 18D1                        2042+SPQUE1   LR    XRSAVE,XRSPQE SAVE ADR OF ATTACHOR SPQE
0005E2 45C0 B67A            0067C  2043+         BAL   XRLINK,BLDSPQE **BUILD SPQE FOR ATTACHED TCB
0005E6 9680 1000      00000        2044+         OI    0(XRSPQE),SHARESP FLAG JUST BUILT SPQE SHARED
0005EA 50D1 0004            00004  2045+         ST    XRSAVE,4(XRSPQE) ST ADR OF OWNER IN BUILT SPQE
0005EE 9180 D000      00000        2046+         TM    0(XRSAVE),SHARESP Q.SPQE SHAREOR THE OWNER
0005F2 4780 B5FA            005FC  2047+         BZ    STSPID YES BRANCH
0005F6 D203 1004 D004 00004 00004  2048+         MVC   4(4,XRSPQE),4(XRSAVE) PROPAGATE THE OWNERS ADDRESS
0005FC 4271 0004            00004  2049+STSPID   STC   XRSPID,4(XRSPQE) ST SP ID IN JUST BUILT SPQE
000600 4680 B594            00596  2050+SSPEND   BCT   XRSPCTR,SSPNEXT Q.DECREMENT SP CTR (NOT 0 BR)


                                   2052+* SHARE ZERO AND GIVE JOB PACK AREA PARAMETER PROCESSING           I270

                                   2054+* IF THE SZERO BIT IN BYTE 27 INDICATES TO SHARE SUBPOOL ZERO,     I270
                                   2055+* THE SHARING IS ACCOMPLISHED BY BOTH THE ATTACHOR AND THE         I270
                                   2056+* ATTACHEE HAVING AN SPQE FOR SUBPOOL ZERO ON THEIR QUEUES. THE    I270
                                   2057+* ATTACHEE'S SPQE IS MARKED 'SHARED'. IF THE ATTACHOR IS THE       I270
                                   2058+* OWNER, HIS SPQE IS MARKED 'OWNED/SHARED'. OTHERWISE IT TOO IS    I270
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2059+* MARKED 'SHARED'. IF THE GIVEJPQ BIT IN BYTE 27 INDICATES TO      I270
                                   2060+* GIVE THE JOB PACK AREA, THE JSTCB BIT IS EXAMINED. IF THIS       I270
                                   2061+* INDICATES THAT THE TCBJSTCB FIELD IS TO POINT TO THE ATTACHEE,   I270
                                   2062+* THEN THE ATTACHOR'S CDE QUEUE FOR PROGRAMS IN THE JOB PACK       I270
                                   2063+* AREA IS TO BE SEARCHED. IF ANY CDE'S CONTAIN A USE COUNT         I270
                                   2064+* GREATER THAN ZERO THE ATTACHOR IS ABENDED WITH A '32A'           I270
                                   2065+* COMPLETION CODE. IF NONE ARE FOUND HIS SPQE CHAIN IS SEARCHED.   I270
                                   2066+* IF AN SPQE FOR SUBPOOL 252 IS FOUND, IT IS TAKEN OFF THE         I270
                                   2067+* ATTACHOR'S QUEUE AND PLACED ON THE ATTACHEE'S. IF IT IS NOT      I270
                                   2068+* FOUND, NEITHER THE ATTACHOR NOR THE ATTACHEE WILL GET AN SPQE    I270
                                   2069+* FOR SUBPOOL 252. IF THE JSTCB BIT INDICATES TO PROPAGATE THE     I270
                                   2070+* JOB STEP FIELD, THEN NO ATTEMPT IS MADE TO GIVE SUBPOOL 252.     I270
                                   2071+* IF SUBPOOL 252 IS GIVEN, AN ATTEMPT IS MADE TO GIVE SUBPOOL      I270
                                   2072+* 251 ALSO AND THE POINTER TO THE JOB PACK QUEUE(TCBJPQ) IS        I270
                                   2073+* GIVEN TO THE SUBTASK FROM THE ATTACHOR'S FIELD.                  I270

000604 1277                        2075+SHARE0   LTR   XRSPID,XRSPID Q.IS SP ID ZERO                 I270
000606 4780 B61A            0061C  2076+         BC    8,TEST252 YES,BRANCH TO PREVENT RECURSION   I270
00060A 9108 E01B      0001B        2077+         TM    ATINDS,ATZERO Q. IS SZERO PARAMETER=NO         I270
00060E 4710 B61A            0061C  2078+         BO    TEST252 YES,BYPASS SP ZERO PROCESSING    I270
000612 1B77                        2079+         SR    XRSPID,XRSPID SET SP ID TO ZERO                I270
000614 4180 0001            00001  2080+         LA    XRSPCTR,1 SET SP COUNTER TO ONE            I270
000618 47F0 B5BE            005C0  2081+         B     ZEROSRCH SHARE SP0                        I270
00061C 9122 E01B      0001B        2082+TEST252  TM    ATINDS,ATJOBPQ Q.IS GIVEJPQ PARAMETER=YES       I270
                                   2083+*                                 AND JSTCB PARAMETER=YES          I270
000620 47E0 B716            00718  2084+         BNO   SETFIELD NO,BYPASS GIVING SP252           I270
000624 4180 402C            0002C  2085+         LA    CDEREG,TCBJSEP GET ADR OF PTR TO FIRST CDE      I270
000628 5888 0000            00000  2086+CDELOOP  L     CDEREG,CDELINK(CDEREG) GET ADR OF CDE               I270
00062C 4188 0000            00000  2087+         LA    CDEREG,0(CDEREG) ZERO BITS 0-7                    I270
000630 1288                        2088+         LTR   CDEREG,CDEREG IS THERE A CDE                   I270
000632 4780 B640            00642  2089+         BC    8,GIVE252 NO,BRANCH                        I270
000636 9500 8010      00010        2090+         CLI   CDUSE(CDEREG),0 IS USE COUNT 0                   I270
00063A 4720 B97A            0097C  2091+         BC    2,ERROR3 NO,ABEND BECAUSE JPQ CANNOT BE   I270
                                   2092+*                                 GIVEN                            I270
00063E 47F0 B626            00628  2093+         B     CDELOOP I270
000642 4170 00FC            000FC  2094+GIVE252  LA    XRSPID,SP252 SET SP ID TO 252                 I270
000646 4590 B660            00662  2095+         BAL   XR9,GIVESP GIVE SUBPOOL 252                 I270
00064A 4170 00FB            000FB  2096+GIVE251  LA    XRSPID,SP251 SET SP ID TO 251                 I270
00064E 4590 B660            00662  2097+         BAL   XR9,GIVESP GIVE SUBPOOL 251                 I270
000652 D203 A02C 402C 0002C 0002C  2098+GIVEJPQ  MVC   TCBJSE(4),TCBJSEP GIVE PTR TO JPQ TO ATTACHEE      I270
000658 D703 402C 402C 0002C 0002C  2099+         XC    TCBJSEP(4),TCBJSEP CLEAR AT'OR'S JPQ PTR            I270
00065E 47F0 B716            00718  2100+         B     SETFIELD SET MOM/DAUGHTER/SISTER FIELDS   I270
000662 4180 0001            00001  2101+GIVESP   LA    XRSPCTR,1 SET SP COUNTER TO ONE            I270
000666 1824                        2102+         LR    XRTCB,XROTCB GET ATTACHOR TCB ADDR            I270
000668 5620 B9B6            009B8  2103+         O     XRTCB,CON249 FLAG TCB TO DEQUEUE SPQE         I270
00066C 45C0 B6BA            006BC  2104+         BAL   XRLINK,SPSEARCH IS SPQE(252) ON AT'OR'S QUEUE    I270
000670 4780 B716            00718  2105+         BZ    SETFIELD NO,BYPASS GIVING SP252           I270
000674 182A                        2106+         LR    XRTCB,XRATCB GET ATTACHEE TCB                 I270
000676 45C0 B696            00698  2107+         BAL   XRLINK,SPCHAIN QUEUE SPQE(252) TO AT'EE TCB     I270
00067A 07F9                        2108+         BR    XR9 I270


                                   2110+* BUILD SPQE.
                                   2111+*  ENTER BLDSPQE IF SPQE IS TO BE BUILT FOR ATTACHED TCB. ENTER
                                   2112+* BLDSPQE1 IF SPQE IS TO BE BUIT FOR ATTACHOR.
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00067C 182A                        2114+BLDSPQE  LR    XRTCB,XRATCB $LD ATTACHED TCB ADR
00067E 0700                        2115+         CNOP  0,4
000680 4510 B686            00688  2116+BLDSPQE1 BAL   1,*+8 BRANCH AROUND SP+LV
000684 FF                          2117+         DC    AL1(255) SUBPOOL VALUE
000685 000008                      2118+         DC    AL3(8) LENGTH
000688 5801 0000            00000  2119+         L     0,0(1,0) LOAD SP AND LV
00068C 0A0A                        2120+         SVC   10 ISSUE GETMAIN SVC
00068E D707 1000 1000 00000 00000  2121+         XC    0(8,XRCOREAD),0(XRCOREAD) CLEAR SPQE
000694 4271 0004            00004  2122+         STC   XRSPID,4(XRCOREAD) $ST SP ID IN SPQE


                                   2124+* CHAIN SPQE.
                                   2125+*  QUEUE  A SPQE TO THE TOP OF THE TCB'S SPQE QUEUE. SET THE LAST SPQE
                                   2126+* FLAG IN THE SPQE IF IT IS THE ONLY ONE ON THE QUEUE.

000698 5862 0018            00018  2128+SPCHAIN  L     XRTCBSPQ,TCBMSSS(XRTCB) LD TCB'S SPQE FIELD CONTENT
00069C 4166 0000            00000  2129+         LA    XRTCBSPQ,0(XRTCBSPQ) CLEAR BITS S-7
0006A0 5061 0000            00000  2130+         ST    XRTCBSPQ,0(XRSPQE) ST TCB'S SPQE PTB IN SPQE
0006A4 4302 0018            00018  2131+         IC    XR0,TCBMSSS(XRTCB) OBTAIN RO COUNT             RORI
0006A8 5012 0018            00018  2132+         ST    XRSPQE,TCBMSSS(XRTCB) ST SPQE ADR IN TCB'S SPQE FIELD
0006AC 4202 0018            00018  2133+         STC   XR0,TCBMSSS(XRTCB) STORE RO COUNT IN TCB       RORI
0006B0 1266                        2134+         LTR   XRTCBSPQ,XRTCBSPQ Q.TCB'S SPQE PTR ZERO
0006B2 077C                        2135+         BCR   7,XRLINK NO BRANCH
0006B4 9640 1000      00000        2136+         OI    0(XRSPQE),LASTSPQE SET SPQE'S LAST FLAG
0006B8 07FC                        2137+         BR    XRLINK


                                   2139+* SEARCH FOR SPQE.
                                   2140+*  ENTER  SPSRCH IF ATTACHED TCB IS TO BE SEARCHED FOR A SP ID. ENTER
                                   2141+* SPSEARCH IF ATTACHOR TCB IS TO BE SEARCHED. ENTER SPSEARCH IF A SPQE
                                   2142+* IS TO BE DEQUEUED IF FOUND, WITH THE TCB ADDRESS COMPLIMENTED.

0006BA 182A                        2144+SPSRCH   LR    XRTCB,XRATCB $LD ATTACHED TCB ADR
0006BC 5862 0018            00018  2145+FINDSPQE L     XRTCBSPQ,TCBMSSS(XRTCB) LD TCB'S SPQE FIELD CONTENT
0006BC                             2146+SPSEARCH EQU   FINDSPQE
0006C0 41F2 0018            00018  2147+         LA    XRSPQPTR,TCBMSSS(XRTCB) LOAD ADR. OF SPQE ADDR.
0006C4 4116 0000            00000  2148+         LA    XRSPQE,0(XRTCBSPQ) LD ADR OF SPQE
0006C8 1211                        2149+         LTR   XRSPQE,XRSPQE Q.SPQE PTR ZERO
0006CA 078C                        2150+         BCR   8,XRLINK *YES BRANCH
0006CC 4470 B712            00714  2151+LOOP4    EX    XRSPID,TESTSPID Q.IS THIS THE SPQE WE WANT
0006D0 4780 B6E4            006E6  2152+         BE    DEQSW YES BRANCH
0006D4 18F1                        2153+         LR    XRSPQPTR,XRSPQE SAVE LAST SPQE ADR
0006D6 9140 1000      00000        2154+         TM    0(XRSPQE),LASTSPQE Q.WAS THAT THE LAST SPQE IN TCB
0006DA 4710 B70E            00710  2155+         BO    NOTFOUND YES BRANCH
0006DE 5811 0000            00000  2156+         L     XRSPQE,0(XRSPQE) GET NEXT SPQE ADR
0006E2 47F0 B6CA            006CC  2157+         B     LOOP4
0006E6 1222                        2158+DEQSW    LTR   XRTCB,XRTCB Q. NEGATIVE FLAG SET
0006E8 4720 B706            00708  2159+         BP    NOTDEQ NO TAKE BRANCH
0006EC                             2160+DEQSP    EQU   * .                                               A53367
0006EC D202 F001 1001 00001 00001  2161+         MVC   1(3,XRSPQPTR),1(XRSPQE) PROPAGATE SPQE LINK FIELD
0006F2 9140 1000      00000        2162+         TM    0(XRSPQE),LASTSPQE IS LAST SPQE BEING REMOVED       I270
0006F6 4780 B706            00708  2163+         BC    8,NOTDEQ NO,BRANCH                        I270
0006FA 4102 0018            00018  2164+         LA    XR0,TCBMSSS(XRTCB) GET ADDR. OF TCBMSS FLD.   M4671
0006FE 190F                        2165+         CR    XR0,XRSPQPTR Q. SPQPTR POINT TO TCBMSS  M4671
000700 4780 B706            00708  2166+         BE    NOTDEQ YES, DON'T SET 'LAST' FLAG M4671
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000704 9640 F000      00000        2167+         OI    0(XRSPQPTR),LASTSPQE SET NEW LAST SPQE FLAG         I270
000708 4111 0000            00000  2168+NOTDEQ   LA    XRSPQE,0(XRSPQE) ZERO BITS S-7
00070C 1211                        2169+         LTR   XRSPQE,XRSPQE Q.SPQE ADR PRESENT
00070E 07FC                        2170+         BR    XRLINK *RETURN
000710 1B11                        2171+NOTFOUND SR    XRSPQE,XRSPQE CLEAR SPQE PTR
000712 07FC                        2172+         BR    XRLINK *RETURN
000714 9500 1004      00004        2173+TESTSPID CLI   4(XRSPQE),X'00'





                                   2177+*  SET MOTHER/DAUGHTER/SISTER FIELD FIELD IN ATTACHED TCB.

000718 41C0 B968            0096A  2179+SETFIELD LA    XRLINK,EXIT SET LINK REG TO NORMAL EXIT
00071C D203 A080 4088 00080 00088  2180+ABTERM   MVC   TCBNTC(4),TCBLTCP TCB'S LAST TCB ADDR -
                                   2181+*                                       FIELD TO ATTACHED SISTER FIELD
000722 50A0 4088            00088  2182+         ST    XRATCB,TCBLTCP ST ATTACHED TCB ADR IN ATT'EE
                                   2183+*                                       DAUGHTER FIELD.
000726 5040 A084            00084  2184+         ST    XROTCB,TCBOTC TCB'S ORIGN TCB ADR.
                                   2185+*                                       MOTHER FIELD.


                                   2187+*  TEST WHETHER THE ATTACHOR IS A TIME SHARING TASK. IF NOT THEN  20021
                                   2188+*  BRANCH AROUND THIS CODE. IF IT IS A TS TASK THEN WE HAVE TO    20021
                                   2189+*  TEST WHETHER LOGON IS BEING ATTACHED. IF YES INITIALIZE THE    20021
                                   2190+*  FIRST AND LAST POINTERS IN THE TJBX WITH THE ADDR OF LOGON'S   20021
                                   2191+*  TCB. WE ALSO INITIALIZE THE NUMBER OF ACTIVE TCB'S IN THE      20021
                                   2192+*  TJBX TO ONE. FOR ALL OTHER TIME SHARING TASKS WE HAVE TO       20021
                                   2193+*  PUT THE TASK ON THE READY QUEUE WITHIN ITS SUBGROUP. THERE     20021
                                   2194+*  IS ONE SUBGROUP PER USER AND A SUBGROUP IS IDENTIFIED BY THE   20021
                                   2195+*  USER ID.THE USER ID IS OBTAINED FROM THE JSCB WHICH IS         20021
                                   2196+*  POINTED TO BY THE TCB. TIME SHARING TASKS ARE PUT WITHIN THE   20021
                                   2197+*  SUBGROUP BY ORDER OF TS DISPATCHING PRIORITY. THERE IS A       20021
                                   2198+*  LAST POINTER FOR EACH SUBGROUP IN THE TJBX WHICH HAS TO        20021
                                   2199+*  BE UPDATED IF IT IS AFFECTED BY ATTACHING A TS TCB.            20021


00072A 9180 4094      00094        2201+         TM    TCBTSFLP,TCBTSTSP IS ATTACHOR A TS TASK           20021
00072E 4780 B80C            0080E  2202+         BZ    NOTSO N0 - BRANCH AND CONTINUE        20021
000732 5870 40B4            000B4  2203+         L     XR7,TCBJSCBP GET JOBSTEP CB PTR OF ATTACHOR        20021
000000                             2204+         USING IEZJSCB,XR7 20021
000736 4870 710C            0010C  2205+         LH    XR7,JSCBTJID GET TJID                             20021
00073A 5890 0010            00010  2206+         L     XR9,CVTPTR GET ADDR CVT                    20021
000000                             2207+         USING XCCVT,XR9 20021
00073E 5890 90E4            000E4  2208+         L     XR9,CVTTSCVT GET ADDR TSCVT                  20021
000000                             2209+         USING TSCVT,XR9 20021
000742 4C70 901A            0001A  2210+         MH    XR7,TSCVTSZU MULT ID BY SIZE                 20021
000746 5A70 9000            00000  2211+         A     XR7,TSCVTTJB ADD BASE TO GET ADDR TJB        20021
000000                             2212+         USING TJB,XR7 20021
00074A 5870 7008            00008  2213+         L     XR7,TJBEXTNT GET ADDR TJBX                   20021
000000                             2214+         USING TJBX,XR7 20021
00074E 9104 E008      00008        2215+         TM    ATECBADR,LOGONFLG IS LOGON BEING ATTACHED         20021
000752 47E0 B760            00762  2216+         BNO   NOTLGN .           NO.BRANCH                      A53366
000756 5865 001C            0001C  2217+         L     XR6,RBLINK(XR5) .  GET RB OF ATTACHOR             A53366
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00075A 91F0 6011      00011        2218+         TM    RBOPSW+1(XR6),X'F0' .   Q.ATTACHOR KEY = 0        A53366
00075E 4780 B7FC            007FE  2219+         BZ    LOGONTSK .         YES.ALLOW ATTACH AS 'LOGON'    A53366
                                   2220+*                                 NO.TREAT AS A USER SUBTASK     A53366
000762                             2221+NOTLGN   EQU   * .                                               A53366
000762 5810 7000            00000  2222+         L     XR1,TJBXFST GET FIRST TCB ON QUEUE           20021
                                   2223+         DROP  XR9 20021
000766 D500 A097 1097 00097 00097  2224+         CLC   TCBTSDP(ONE),TSDPRI(XR1) Q.ATTACHED PRI GREATER    M0118
                                   2225+*                                            THAN LOGON           M0118
00076C 47D0 B774            00776  2226+         BNH   TCBLOOP NO.BRANCH                 M0118
000770 D200 A097 1097 00097 00097  2227+         MVC   TCBTSDP(ONE),TSDPRI(XR1) MAKE DISP EQ LIMIT-TS     M0118
000776 5891 0074            00074  2228+TCBLOOP  L     XR9,LINKTCB(XR1) GET NEXT TCB                     20021
00077A 5910 7004            00004  2229+         C     XR1,TJBXLAST IS TCB THE LAST TCB              20021
00077E 4780 B790            00792  2230+         BE    LASTTCB YES- BRANCH                     20021
000782 D500 A097 9097 00097 00097  2231+         CLC   TCBTSDP(ONE),TSDPRI(XR9) IS TS DISPAT PRIOR OF     20021
                                   2232+*                                 ATTACHED GR THAN TS DISPAT PRI  20021
                                   2233+*                                 OF THIS TCB ON QUEUE            20021
000788 4720 B794            00796  2234+         BH    TCBPTR YES- UPDATE TCB PTRS            20021
00078C 1819                        2235+         LR    XR1,XR9 NO- GET NEXT TCB ON QUEUE       20021
00078E 47F0 B774            00776  2236+         B     TCBLOOP CONTINUE CHKING TS DISPAT PRIO  20021
000792 50A0 7004            00004  2237+LASTTCB  ST    XRATCB,TJBXLAST UPDATE PTR TO LAST TCB FOR      20021
                                   2238+*                                 THIS SUBGROUP IN TJBX           20021
000796 5090 A074            00074  2239+TCBPTR   ST    XR9,TCBTCB PUT ADDR IN ATTACHED PTR FIELD  20021
00079A 50A1 0074            00074  2240+         ST    XRATCB,LINKTCB(XR1) PUT ADDR ATTTACHEDTCB IN      20021
                                   2241+*                                 PTR FIELD OF THIS TCB           20021


                                   2243+* THIS SECTION INSURES THAT THE QUIESCE PARAMETER LIST(QPL) FOR A 20021
                                   2244+* USER IS BIG ENOUGH FOR ALL THE USER'S ACTIVE TCB'S.IF THE NO.   20021
                                   2245+* OF QPL ENTRIES IS GREATER THAN OR EQUAL TO THE NO. OF TCB'S     20021
                                   2246+* FOR A USER THEN WE BRANCH AND CONTINUE ATTACH.IF THE NO. OF     20021
                                   2247+* QPL ENTRIES IS LESS THEN WE HAVE TO FREEMAIN THE AR FOR TH QPL  20021
                                   2248+* AND GETMAIN AN AREA FOR TWICE AS MANY QPL ENTRIES.WE MUST UPDATE20021
                                   2249+* THE NECESSARY FIELDS IN THE TJBX WHICH ARE AFFECTED BY THIS     20021
                                   2250+* CHANGE.                                                         20021


00079E 4890 7036            00036  2252+NUMBTCB  LH    XR9,TJBXNTCB GET NO ACTIVE TCB'S FOR USER    20021
0007A2 4199 0001            00001  2253+         LA    XR9,ONE(XR9) UPDATE NO BY ONE                20021
0007A6 4090 7036            00036  2254+         STH   XR9,TJBXNTCB PUT RESULT IN TJBX              20021
0007AA 4890 7034            00034  2255+         LH    XR9,TJBXNQPE GET NO OF QPL ENTRIES           20021
0007AE 4990 7036            00036  2256+         CH    XR9,TJBXNTCB .     Q.NO. OF QPL ENTRIES            M4396
                                   2257+*                                 GREATER THAN NO. OF TCB'S.      M4396
0007B2 4720 B85E            00860  2258+         BH    NEWTEST1 .         YES.BRANCH                      M4396
                                   2259+*                                 NO.GET A NEW QPL                M4396

                                   2261+*    THE NUMBER OF QPL ENTRIES MUST BE EQUAL TO THE NUMBER        M4396
                                   2262+*        OF TCB'S, INCLUDING THE NEWLY CREATED TASK, SINCE A      M4396
                                   2263+*        10A ABEND MAY RESULT WHEN TRYING TO GET THE NEW QPL.     M4396
                                   2264+*        THIS WILL ENSURE THAT THE OLD LIST WILL BE LARGE         M4396
                                   2265+*        ENOUGH IN CASE QUIESCE/RESTORE OPERATE DURING ABEND      M4396
                                   2266+*        PROCESSING; THAT IS, DURING SWAP.                        M4396

0007B6 182F                        2268+         LR    XR2,XR15 SAVE REG15 ACROSS GETMAIN       20021
0007B8 4800 7038            00038  2269+         LH    XR0,TJBXLQPL GET LENGTH QPL                  20021
0007BC 1A00                        2270+         AR    XR0,XR0 DOUBLE LENGTH                   20021
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0007BE 1860                        2271+         LR    XR6,XR0 .          SAVE NEW SIZE ACROSS GETMAIN    M4396
0007C0 5600 B9EA            009EC  2272+         O     XR0,CON255 SET SUBPOOL ID=255              20021
0007C4 4510 B7C6            007C8  2273+         BAL   1,*+4 INDICATE GETMAIN
0007C8 0A0A                        2274+         SVC   10 ISSUE GETMAIN SVC
0007CA 4800 7038            00038  2275+         LH    XR0,TJBXLQPL .     GET SIZE OF OLD QPL             M4396
0007CE 5880 7030            00030  2276+         L     XR8,TJBXQPL .      GET ADDR OF OLD QPL             M4396
0007D2 5010 7030            00030  2277+         ST    XR1,TJBXQPL PUT ADDR QPL IN TJBX            20021
0007D6 4060 7038            00038  2278+         STH   XR6,TJBXLQPL .     UPDATE QPL SIZE                 M4396
0007DA 1A99                        2279+         AR    XR9,XR9 DOUBLE NO QPL ENTRIES           20021
0007DC 4090 7034            00034  2280+         STH   XR9,TJBXNQPE PUT RESULT IN TJBX              20021
0007E0 4118 0000            00000  2281+         LA    XR1,0(XR8) .       GET ADDR OF OLD QPL IN REG 1    M4396
0007E4 5600 B9EA            009EC  2282+         O     XR0,CON255 .       SET SUBPOOL ID = 255            M4396

                                   2284+*   FREEMAIN THE OLD QPL                                          M4396

0007E8 4111 0000            00000  2286+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
0007EC 0A0A                        2287+         SVC   10 ISSUE FREEMAIN SVC         P2504
0007EE 5810 7030            00030  2288+         L     XR1,TJBXQPL RESTORE REG 1 TO NEW QPL ADDR M5761
0007F2 D703 1000 1000 00000 00000  2289+         XC    ZERONUM(4,XR1),ZERONUM(XR1) ZERO 1ST WORD OF QPL  M5761
0007F8 18F2                        2290+         LR    XR15,XR2 RESTORE REG15 AFTER GETMAIN     20021
0007FA 47F0 B85E            00860  2291+         B     NEWTEST1
0007FE 50A0 7000            00000  2292+LOGONTSK ST    XRATCB,TJBXFST STORE ADR LOGON TCB IN TJBXFST  20021
000802 50A0 7004            00004  2293+         ST    XRATCB,TJBXLAST STORE ADR LOGON TCB IN TJBXLST  20021
000806 4190 0001            00001  2294+         LA    XR9,ONE GET NUMBER TCB'S=1              20021
00080A 4090 7036            00036  2295+         STH   XR9,TJBXNTCB INITIALIZE NUMBER OF TS TCB'S   20021
                                   2296+*                                 ATTACHED IN TJBX                20021
                                   2297+         DROP  XR7 20021
00080E                             2298+NOTSO    EQU   * 20021
                                   2299+* PUT ATTACHED TCB IN TCB READY QUEUE AND CHANGE 'NEW' TO ATTACHED TCB
                                   2300+* ADDRESS IF IT IS OF HSGER DISPATCH PRIORITY AND READY.

00080E 5823 00A0            000A0  2302+         L     XRTCB,HEADPTR(XRCVT) LD HEAD TCB PTR'S PTR ADR
000812 1222                        2303+LOOP5    LTR   XRTCB,XRTCB Q.HEAD OR QUEUED TCB THE LAST
000814 4780 B856            00858  2304+         BZ    TCBHI YES BRANCH
000818 D500 A023 2023 00023 00023  2305+         CLC   TCBDSP(1),DPRI(XRTCB) Q.ATTACHED TCB'S DISPATCH
                                   2306+*                                       PRIORITY HIGHER THAN QUEUED TCB
00081E 4720 B856            00858  2307+         BH    TCBHI YES BRANCH
000822 4780 B830            00832  2308+         BE    TCBEQPRI .         CHECK FOR TSO-TASK-GROUP       A47090
000826                             2309+LOOP5A   EQU   * .                                               A47090
000826 4162 0074            00074  2310+         LA    XRTCBPTR,LINKTCB(XRTCB) LD ADR OF QUEUED TCB LINK FIELD
00082A 5826 0000            00000  2311+         L     XRTCB,0(XRTCBPTR) LD CONTENT OF LINK FIELD
00082E 47F0 B810            00812  2312+         B     LOOP5

000832                             2314+TCBEQPRI EQU   * .                                               A47090

                                   2316+*    ALL SWAPPABLE TSO TASKS IN THE SYSTEM WILL HAVE THE SAME    A47090
                                   2317+*        REAL DISPATCHING PRIORITY.  IN ADDITION, THEY MUST ALL  A47090
                                   2318+*        BE CONTIGUOUS ON THE TCB DISPATCHING QUEUE BY REGION    A47090
                                   2319+*        GROUP.                                                  A47090
                                   2320+*    THIS CODE ENSURES THAT LOGON WILL BE PLACED BEHIND          A47090
                                   2321+*        THE LAST TSO USER TASK IN THE PREVIOUS TSO REGION.      A47090
                                   2322+*        CODE NEAR THE LABEL "TCBLOOP" ENSURES THAT EACH USER    A47090
                                   2323+*        WITHIN A GIVEN REGION IS CONTIGUOUS.                    A47090

000832 9180 A094      00094        2325+         TM    TCBTSFLG,TCBTSTSK .Q.PRI EQUAL.TEST FOR TSO       A47090
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2326+*                                    TASK BEING ATTACHED         A47090
000836 47E0 B824            00826  2327+         BNO   LOOP5A .           NO.SEARCH FOR END OF EQUAL     A47090
                                   2328+*                                    PRIORITY GROUP              A47090
00083A 9180 2094      00094        2329+         TM    TCBTSFLG-TCBFLDS(XRTCB),TCBTSTSK .                A47090
                                   2330+*                                 Q.IS QUEUED TCB A TSO TASK     A47090
00083E 47E0 B824            00826  2331+         BNO   LOOP5A .           NO.CONTINUE TO SEARCH          A47090

000842                             2333+TSOSRCH  EQU   * .                YES.FIND END OF TSO-TASK-GROUP A47090
000842 4162 0074            00074  2334+         LA    XRTCBPTR,LINKTCB(XRTCB) .                         A47090
000846 5826 0000            00000  2335+         L     XRTCB,0(XRTCBPTR) .GET NEXT TASK                  A47090
00084A 1222                        2336+         LTR   XRTCB,XRTCB .      Q.END OF DISP. QUEUE           A47090
00084C 4780 B856            00858  2337+         BZ    TCBHI .            YES.CHAIN UP THE NEW TCB       A47090
000850 9180 2094      00094        2338+         TM    TCBTSFLG-TCBFLDS(XRTCB),TCBTSTSK . Q.STILL        A47090
                                   2339+*                                    WITHIN TSO TASKS            A47090
000854 4710 B840            00842  2340+         BO    TSOSRCH .          YES.FIND END OF TSO-TASK-GROUP A47090
                                   2341+*                                 NO.CHAIN THE NEW TCB           A47090

000858 5020 A074            00074  2343+TCBHI    ST    XRTCB,TCBTCB ST ADR OF LOW PRI TCB IN ATT'ED
00085C 50A6 0000            00000  2344+         ST    XRATCB,0(XRTCBPTR) ST ATT'ED TCB ADR IN HI'ER TCB

                                   2346+*****************************************************************  65MP
                                   2347+*   EXECUTE THE TASK SWITCH ROUTINE  TO DETERMINE WHETHER       *  65MP
                                   2348+*   THE NEW TASK SHOULD DISPLACE ONE OF THE CURRENT TASKS       *  65MP
                                   2349+*****************************************************************  65MP

000860                             2351+NEWTEST1 EQU   * 20021
000860 186B                        2352+         LR    XR6,XRBASE SAVE THE BASE REGISTER     65MP
000862 182E                        2353+         LR    XR2,XRPARA SAVE SPVSR PARM LIST ADDR  65MP
000864 58B0 B9B2            009B4  2354+         L     XRBASE,AIEDS02 ADDR TASK SW ROUTINE       65MP
000868 05EB                        2355+         BALR  XRRETURN,XRBASE EXECUTE TASK SWITCH - INP  65MP
                                   2356+*                                       REGISTER 10 ALREADY SET    65MP
00086A 18B6                        2357+         LR    XRBASE,XR6 RESTORE THE SAVED REGS     65MP
00086C 18E2                        2358+         LR    XRPARA,XR2 65MP


00086E 1815                        2360+         LR    XR1,XRORB 20021
000870 9180 100B      0000B        2361+NXTRB    TM    RBSTAB2(XR1),RBTCBNXT IS TCB NEXT                 20021
000874 4710 B892            00894  2362+         BO    SETATT YES RESET PREVENT ATTENTIONS    20021
000878 5811 001C            0001C  2363+         L     XR1,RBLINK(XR1) GET NEXT RB                   20021
00087C 91C0 100A      0000A        2364+         TM    RBSTAB(XR1),RBFTSVRB IS NEXT RB A SVRB           20021
000880 4710 B896            00898  2365+         BO    NOSETATT YES SKIP RESET PREVENT ATTENT   20021
000884 4740 B86E            00870  2366+         BM    NXTRB .            AN (S)IRB, GET NEXT RB          M1678
000888 9120 100B      0000B        2367+         TM    RBSTAB2(XR1),RBATTN .   Q.IS RB ATTN BIT ON        M1678
00088C 4710 B896            00898  2368+         BO    NOSETATT .         YES SKIP RESET PREVENT ATTENT   M1678
000890 47F0 B86E            00870  2369+         B     NXTRB NO GET NEXT RB                  20021
000894 94DF 4094      00094        2370+SETATT   NI    TCBTSFLP,TCBATOFF .TURN OFF BIT IN THE MOTHER      20021
000898                             2371+NOSETATT EQU   * 20021
000898 9620 A094      00094        2372+         OI    TCBTSFLG,TCBATT .  TURN ON ATTN BIT IN DAUGHTER    M4393

                                   2374+*  SET UP REGISTERS 0 - 15 OF ATTACHOR TCB

00089C D23F 4030 5020 00030 00020  2376+         MVC   TCBXR0(64,XROTCB),SVRBXR0(XRORB) SVRB REGS 0 - 15
                                   2377+*                                       TO ATTACHOR TCB
0008A2 50A4 0034            00034  2378+         ST    XRATCB,TCBXR1(XROTCB) ST ADR OF ATTACHED TCB IN AT'OR
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2380+*  PROCESS ATTACH SVRB EXTENDED SAVE AREA.

0008A6 5880 E000            00000  2382+         L     XRDE,ATDEFLAG LD ADR OF DE OR NAME
0008AA 4175 0058            00058  2383+         LA    XRSVRB14,SVRBXR14(XRORB) LD ADR OF SVRB REG 14 SAVE AREA
0008AE 9180 E000      00000        2384+         TM    ATDEFLAG,X'80' Q.IS DE PARAMETER AN ADR
0008B2 4780 B8D6            008D8  2385+         BZ    NOTDEADR NO BRANCH
0008B6 D237 7000 8000 00000 00000  2386+         MVC   0(56,XRSVRB14),0(XRDE) PROPAGATE DE TO SVRB REG 14SAVE
00000C                             2387+DEZBYTE  EQU   12 @SA78067
000001                             2388+R1       EQU   1 @SA75551
0008BC 1B11                        2389+         SR    R1,R1 @SA75551
0008BE 4317 000C            0000C  2390+         IC    R1,DEZBYTE(XRSVRB14) @SA75551
0008C2 9502 700C      0000C        2391+         CLI   DEZBYTE(XRSVRB14),2 @SA75551
0008C6 4740 B8D0            008D2  2392+         BL    DE @SA75551
0008CA 4111 0001            00001  2393+         LA    R1,1(R1) @SA75551
0008CE 4217 000C            0000C  2394+         STC   R1,DEZBYTE(XRSVRB14) @SA75551
0008D2                             2395+DE       EQU   * @SA78067
0008D2 1377                        2396+         LCR   XRSVRB14,XRSVRB14 LD COMPLIMENT OF SVRB REG 14
0008D4 47F0 B8DC            008DE  2397+         B     SETTCB
0008D8 D207 7000 8000 00000 00000  2398+NOTDEADR MVC   0(8,XRSVRB14),0(XRDE) MOVE NAME TO SVRB REG 14-15SAVE
                                   2399+*  DEQUE ATTACH SVRB FROM ATTACHOR TCB AND QUEUE IT TO ATTACHED TCB.
                                   2400+* CHANGE SVRB TO PRB.

0008DE D202 4001 501D 00001 0001D  2402+SETTCB   MVC   TCBRBPP+1(3),RBLINK+1(XRORB) PROPAGATE SVRB LINK-   I270
0008E4 5810 A000            00000  2403+         L     XR1,TCBRBP .       SAVE DUMMY RB ADDR FOR FMAIN    M4385
0008E8 5050 A000            00000  2404+         ST    XRORB,TCBRBP ST SVRB ADR IN ATTACHED TCB      I270
0008EC 50A5 001C            0001C  2405+         ST    XRATCB,RBLINK(XRORB) ST ATTACHED TCB ADR IN SVRB    I270
0008F0 9680 500B      0000B        2406+         OI    RBSTAB+1(XRORB),X'80' SET LAST RB FLAG IN SVRB      I270
0008F4 D203 A030 E004 00030 00004  2407+         MVC   TCBXR0(4,XRATCB),ATDCBADR PUT DCB ADR IN AT'EE      I270
                                   2408+*                                        TCB REG ZERO SLOT         I270

0008FA 90EF A034            00034  2410+         STM   XRRETURN,RGETMAIN,TCBXR1(XRATCB) SAVE 14 + 15  BD A57900
0008FE 4111 0000            00000  2411+         LA    XR1,0(XR1) SET UP REG 1 FOR FREEMAIN  BD A57900
000902 5800 B2FE            00300  2412+         L     XR0,PRBSIZE SUBPOOL AND SIZE           BD A57900
000906 58F0 B9D6            009D8  2413+         L     RGETMAIN,RMBRNCHA FREEMAIN BRANCH ENTRY      BD A57900
00090A 05EF                        2414+         BALR  XRRETURN,RGETMAIN GO TO FREEMAIN             BD A57900
00090C 98EF A034            00034  2415+         LM    XRRETURN,RGETMAIN,TCBXR1(XRATCB) RESTORE 14 + 15  A57900
                                   2416+* PROCESS SAVE AREA PARAMETER                                      I270


000910 9104 E01B      0001B        2418+SAVETEST TM    ATINDS,ATSAVE Q. IS SVAREA PARAMETER=YES       I270
000914 58E0 B9AA            009AC  2419+         L     XRRETURN,DPATCHER LOAD DISPATCHER ADDR             I270
000918 4770 B956            00958  2420+         BC    7,SETLINK NO,SET UP FOR LINK               I270
00091C 901F A034            00034  2421+         STM   XR1,XR15,TCBXR1(XRATCB) YES,SAVE REGS FOR RETURN    I270
                                   2422+*                                  TO IEAQAT                       I270
000920 D207 5010 B9C2 00010 009C4  2423+         MVC   RBOPSW(8,XRORB),ATTACH LOAD ADDR OF GETSAVE INTO    I270
                                   2424+*                                 SVRB PSW                         I270
000926 07FC                        2425+         BR    XRLINK GO TO EXIT FOR NORMAL EXIT;      I270
                                   2426+*                                 GO TO ABENDXT2 FOR ABEND         I270


000928                             2428+GETSAVE  EQU   * .           RE-ENTRY TO ATTACH UNDER NEW TCB    A35419
000928                             2429+         CNOP  0,4 .                   ENSURE A WORD BOUNDARY    A35419
000928 4510 B92E            00930  2430+         BAL   GETREG,SKIPCON .        BR AROUND GMAIN CONSTANT  A35419
00092C FA                          2431+         DC    AL1(250) .              SUBPOOL 250 = SUBPOOL 0   A35419
00092D 000048                      2432+         DC    AL3(72) .               SAVE AREA LENGTH          A35419
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000930 5801 0000            00000  2433+SKIPCON  L     SIZEREG,0(GETREG) .     SETUP REG 0 FOR GETMAIN   A35419
000934 58F0 B9D6            009D8  2434+         L     RGETMAIN,RMBRNCHA .     GET ADDR OF REGMAIN       A35419
000938 184A                        2435+         LR    XROTCB,XRATCB .         CURRENT TCB = ATTACHEE    A35419
00093A 05EF                        2436+         BALR  XRRETURN,RGETMAIN .     GO TO REGMAIN             A35419
00093C 18D1                        2437+         LR    XRWORKAD,XRCOREAD SAVE GOTTEN CORE ADDRESS         I270
00093E 5010 A070            00070  2438+         ST    XRCOREAD,TCBFSA STORE ADDRESS IN ATTACHEE TCB    I270
000942 D747 1000 1000 00000 00000  2439+         XC    0(72,XRCOREAD),0(XRCOREAD) CLEAR GOTTEN CORE        I270
000948 D203 5054 A070 00054 00070  2440+         MVC   SVRBXR13(4,XRORB),TCBFSA ST NEW SAVE AREA IN RB     I270
00094E 580A 0030            00030  2441+         L     XR0,TCBXR0(XRATCB) LOAD REG0 WITH DCB ADDR         M0763
000952 1817                        2442+         LR    XR1,XRSVRB14 .     LOAD REG1 WITH EP               M0763
                                   2443+*                                      FOR BRANCH ENTRY TO LINK   M0763
000954 58E0 B9CE            009D0  2444+         L     XRRETURN,LINK+4 LOAD LINK ADDR                   I270
000958 507A 0034            00034  2445+SETLINK  ST    XRSVRB14,TCBXR1(XRATCB) ST EP IN AT'EE TCB REG 1   M0763
00095C 184A                        2446+         LR    XROTCB,XRATCB TRANS. ATTACHED TCB TO           I270
                                   2447+*                                      CURRENT TCB FOR LINK
00095E 9035 A03C            0003C  2448+         STM   XRCVT,XRORB,60(XRATCB) ST CVT,TCB AND SVRB ADDRESS'S
                                   2449+*                                      INTO ATTACHED TCB FOR LINK
                                   2450+*   THE TWO PRECEEDING INSTRUCTIONS PERMIT LINK TO RE-ESTABLISH
                                   2451+* ENVIRONMENTAL REGISTERS.


000962 D207 5010 B9CA 00010 009CC  2453+         MVC   RBOPSW(8,XRORB),LINK LOAD ADDR OF LINK IN        I270
                                   2454+*                                      SVRB PSW                    I270
000968 07FC                        2455+         BR    XRLINK GO TO EXIT FOR NORMAL EXIT       I270
                                   2456+*                                 GO TO ABENDXT2 FOR ABEND         I270
00096A 07FE                        2457+EXIT     BR    XRRETURN GO TO DISPATCHER IF NO SAVE      I270
                                   2458+*                                 AREA IS TO BE PROVIDED OR IF     I270
                                   2459+*                                 ONE IS TO BE BUT HAS NOT BEEN;   I270
                                   2460+*                                 GO TO LINK IF SAVE AREA HAS      I270
                                   2461+*                                 BEEN PROVIDED.                   I270
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2463+* ERROR EXITS.

00096C 41F0 012A            0012A  2465+ERROR1   LA    XR15,X'012A' TRYING TO GIVE A SHARED SP
000970 47F0 B986            00988  2466+         B     ABENDXT
000974 41F0 022A            0022A  2467+ERROR2   LA    XR15,X'022A' TRYING TO GIVE/SHARE A SUPV.SP
000978 47F0 B986            00988  2468+         B     ABENDXT
00097C 41F0 032A            0032A  2469+ERROR3   LA    XR15,X'032A' TRYING TO GIVE JPQ WITH          I270
                                   2470+*                                 PROGRAMS WITH USE COUNT NOT 0    I270
000980 47F0 B986            00988  2471+         B     ABENDXT I270
000984 41F0 042A            0042A  2472+ERROR4   LA    XR15,X'042A' INVALID ECB ADDR
000988 89F0 000C            0000C  2473+ABENDXT  SLL   XR15,12 SHIFT ERROR CODE TO PROPER BITS
00098C 45C0 B71A            0071C  2474+         BAL   XRLINK,ABTERM HOOK ATTACHED TCB ON READY QUEUE
000990 182F                        2475+ABENDXT2 LR    XR2,XR15 .         SAVE ERROR CODE ACROSS ABTERM   M4392
000992 1B11                        2476+         SR    XR1,XR1 .          GIVE DAUGHTER COMP CODE = 0     M4392
000994 180A                        2477+         LR    XR0,XRATCB .       SET UP PARAMS FOR ABTERM       A33614
000996 58C0 B9D2            009D4  2478+         L     XRLINK,ABTRMAD .                                  A33614
00099A 05EC                        2479+         BALR  XRRETURN,XRLINK .  GOTO ABTERM THE ATTACHED TASK  A33614
00099C 1812                        2480+         LR    XR1,XR2 .          RESTORE COMP CODE OF ATTACHOR   M4392
00099E                             2481+         DS    0H
00099E 4100 0080            00080  2482+         LA    0,128 PICK UP DUMP/STEP CODE
0009A2 8900 0018            00018  2483+         SLL   0,24(0) SHIFT TO HIGH BYTE
0009A6 1610                        2484+         OR    1,0 OR IN WITH COMPCODE
0009A8 0A0D                        2485+         SVC   13 LINK TO ABEND ROUTINE
                     OS/360 OPTION 4 - ATTACH SERVICE ROUTINE                                                  PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2487+* DEFINE CONSTANT.

0009AA 0000
0009AC 00000000                    2489+DPATCHER DC    A(IEA0DS) DISPATCHER ADDRESS
0009B0 00000000                    2490+HEADADR  DC    A(IEAHEAD) ADDR OF THE 'HEAD' (TOP) TCB
0009B4 00000000                    2491+AIEDS02  DC    A(IEA0DS02) ADDR TASK SWITCH ROUTINE
0009B8 F9000000                    2492+CON249   DC    X'F9000000' SUB-POOL 249
0009BC 0000FFFF                    2493+CON250   DC    X'0000FFFF'
0009C0 00FFFFFC                    2494+MASK2    DC    X'00FFFFFC' ROUND TO FULL WORD
0009C4 00040000                    2495+ATTACH   DC    X'00040000' SPECIAL RETURN ADDR IN IEAQAT    I270
0009C8 00000928                    2496+         DC    A(GETSAVE) TO GET SAVEAREA UNDER ATTACHEE   I270
0009CC 00040000                    2497+LINK     DC    X'00040000'
0009D0 00000000                    2498+         DC    A(IEAQCS01) LINK ADDRESS
0009D4 00000000                    2499+ABTRMAD  DC    A(IEA0AB00) .      ADDRESS OF ABTERM BR ENTRY     A33614
0009D8 00000000                    2500+RMBRNCHA DC    A(RMBRANCH) .      ADDR OF REGMAIN BR ENTRY       A35419

0009DC 8052A000                    2502+PROPFAIL DC    X'8052A000' .      CODE TO INDICATE ATTACH W/O     M3891
                                   2503+*                                 STAI BUT A FAILURE OCCURRED     M3891
                                   2504+*                                 DURING PROPAGATION OF STAI'S    M3891

0009E0 8072A000                    2506+PARMFAIL DC    X'8072A000' .      ABEND CODE IF PARMLIST ADDR    A53341
                                   2507+*                                 OR ADDR WITHIN LIST ARE BAD.   A53341
                                   2508+*                                 SPECIFICALLY: THE NAME/DE      A53341
                                   2509+*                                 ADDR, THE GIVE SUBPOOL LIST    A53341
                                   2510+*                                 ADDR, AND THE SHARE SUBPOOL    A53341
                                   2511+*                                 LIST ADDR.                     A53341
0009E4 0004                        2512+RETCD4   DC    H'4' .
0009E6 0080                        2513+SUPVSPID DC    H'128'
0009E8 FF                          2514+ENABLE   DC    X'FF' ENABLE INTERRUPT MASK
0009E9 00                          2515+DISABLE  DC    X'00' DISABLE INTERRUPT MASK
0009EA 00FF                        2516+PLUS255  DC    H'255'

0009EC                             2518+         DS    0F 20021
0009EC FF000000                    2519+CON255   DC    X'FF000000' SUBPOOL ID=255                  20021
0009F0 0100                        2520+H256     DC    H'256' 20021
                                   2521     END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     0009C8
   01       03      0C     0009AC
   01       04      0C     0009D0
   01       05      0C     0009B0
   01       06      0C     0009B4
   01       07      0C     0009D4
   01       08      0C     0009D8
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ABENDXT  00004 000988 02473   2466  2468  2471
ABENDXT2 00002 000990 02475
ABEND72A 00001 000068 01402   1384  1387  1389  1393
ABTERM   00006 00071C 02180   2474
ABTRMAD  00004 0009D4 02499   2478
AIEDS02  00004 0009B4 02491   2354
ATASKLIB 00004 000030 00765   1738
ATDCBADR 00004 000004 00747   0185  0254  2407
ATDEFLAG 00001 000000 00745   2382  2384
ATDFLT   00001 000008 00698   1716
ATDPMOD  00002 000018 00756   1859
ATDPPROC 00006 0004A2 01881   1879
ATECBADR 00001 000008 00748   0256  1544  1603  1736  1772  1781  1828  2215
ATETXR   00003 000015 00755
ATEXRTAD 00004 00002C 00764   1549  1550
ATGSFLAG 00001 00000C 00750   1390  1926  1958
ATGSFLD  00003 00000D 00751   1392  1961
ATINDS   00001 00001B 00758   1716  1718  1722  1725  1755  2077  2082  2418
ATJOBPQ  00001 000022 00702   2082
ATJSCB   00001 000040 00700   1755
ATJSCBAD 00004 000024 00762   1760
ATJST    00001 000002 00707   1718
ATKEY    00001 000010 00704   1725
ATLPMOD  00001 00001A 00757   1836  1841  1844
ATMODE   00001 000001 00709   1722
ATOK1    00006 00031C 01710   1694
ATOK2    00002 0003F2 01824   1775  1779  1788
ATOK2A   00001 000434 01843   1838
ATOK2B   00001 00045A 01858   1853
ATOK2C   00001 0004A8 01882   1873
ATOK2D   00001 0004DE 01898   1888  1891
ATOK4    00004 0004DE 01926   1846  1861  1883
ATPGNADR 00003 000001 00746   1388
ATPRGNM  00008 00001C 00761
ATPRMS   00001 000000 00744   1346
ATROLL   00001 000014 00754   1424  1690  1693
ATSAVE   00001 000004 00706   2418
ATSHFLAG 00001 000010 00752   1396  2012  2016
ATSHFLD  00003 000011 00753   1398  2019
ATSTPLAD 00004 000028 00763   1548
ATTACH   00004 0009C4 02495   2423
ATZERO   00001 000008 00705   2077
BLDSPQE  00002 00067C 02114   1979  1991  2043
BLDSPQE1 00004 000680 02116   2040
BREED    00001 0001E6 01570   1566
CDELINK  00001 000000 00696   2086
CDELOOP  00004 000628 02086   2093
CDEREG   00001 000008 00605   2085  2086  2086  2087  2087  2088  2088  2090
CDUSE    00001 000010 00697   2090
COMN     00001 00014A 01502   1485
CON249   00004 0009B8 02492   2103
CON250   00004 0009BC 02493
CON255   00004 0009EC 02519   2272  2282
CVTABEND 00004 0000C8 00982
CVTAPR   00001 000040 00945
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTAQAVT 00004 0000F0 01015
CVTASCII 00001 000002 00952
CVTATTCH 00001 000008 00950
CVTBRET  00002 000052 00906
CVTBTERM 00004 000034 00895
CVTBUF   00004 000010 00878
CVTCCH   00001 000080 00944
CVTCHPTR 00001 000008 00962
CVTCMT   00003 0000ED 01012
CVTCRTTR 00003 0000B8 00960   0973
CVTCUCB  00004 000064 00912
CVTDAR   00004 000048 00902
CVTDATA  00001 000002 00966
CVTDATE  00004 000038 00896
CVTDCB   00001 000074 00918
CVTDCBA  00003 000075 00923
CVTDDR   00001 000020 00947
CVTDMSR  00004 000110 01043
CVTDMSRA 00003 000111 01045
CVTEXIT  00002 000050 00905
CVTEXT1  00004 0000FC 01032
CVTFACHN 00004 000114 01061
CVTFBOSV 00004 000084 00927
CVTFORM  00001 000008 01009
CVTGTF   00004 0000EC 01000
CVTGTFS  00001 0000C0 01002
CVTGTFST 00001 0000EC 01001
CVTHEAD  00004 0000A0 00935
CVTHIAR  00001 000004 00951
CVTIERLC 00004 000090 00930
CVTILCH  00004 00008C 00929
CVTILK1  00004 000024 00887
CVTILK2  00004 000028 00889
CVTIOQET 00004 000078 00924
CVTIXAVL 00004 00007C 00925
CVTJOB   00004 00000C 00877
CVTLINK  00004 000008 00876
CVTLNKSC 00002 0000D6 00990
CVTMAP   00001 000000 00871
CVTMCTYP 00001 000002 01011
CVTMDLDS 00004 0000D0 00988
CVTMODE  00001 000010 01008
CVTMPCVT 00004 0000C0 00980
CVTMSER  00004 000094 00931
CVTMSLT  00004 00003C 00897
CVTMZ00  00004 0000A4 00936   1383  1388  1392  1398
CVTNIP   00001 000010 00949
CVTNUCB  00004 000080 00926
CVTOPTA  00001 0000B6 00943
CVTOPTB  00001 0000B7 00954
CVTPATCH 00004 0000DC 00992
CVTPBLDL 00004 00005C 00910
CVTPCNVT 00004 00001C 00883
CVTPRLTV 00004 000020 00885
CVTPROT  00001 000080 00955
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTPTR   00001 000010 00866   2206
CVTPURG  00004 000104 01035
CVTPURGA 00003 000105 01037
CVTQABST 00002 0000D4 00989
CVTQCDSR 00004 0000B8 00975
CVTQLPAQ 00004 0000BC 00976
CVTQMSG  00004 00010C 01039
CVTQMSGA 00003 00010D 01041
CVTQMWR  00004 0000B0 00940
CVTQOCR  00004 0000AC 00938
CVTQTD00 00004 00006C 00915
CVTQTE00 00004 000068 00913
CVTRMS   00004 0000E0 00993
CVTSJQ   00004 000060 00911
CVTSMCA  00004 0000C4 00981
CVTSNCTR 00002 0000B4 00942
CVTSTATE 00001 000020 01007
CVTSTB   00004 000070 00917
CVTSTEPR 00001 000004 00964
CVTSTUSA 00001 0000BB 00961
CVTSVDCB 00004 000054 00907
CVTSYSAD 00004 000030 00893
CVTTCBP  00004 000000 00873
CVTTCMFG 00001 0000F0 01013
CVTTCRDY 00001 000080 01014
CVTTOD   00001 000020 00956
CVTTPC   00004 000058 00908
CVTTRMTB 00004 00009C 00934
CVTTSCE  00004 0000D8 00991
CVTTSCVB 00003 0000E5 00998
CVTTSCVT 00004 0000E4 00995   2208
CVTTSFLG 00001 0000E4 00996
CVTTSRDY 00001 000080 00997
CVTUSER  00004 0000CC 00984
CVTUSR   00001 000004 01010
CVTVOLF2 00001 0000F4 01022
CVTVOLI2 00001 000080 01024
CVTVOLM2 00004 0000F4 01020
CVTVOLT2 00003 0000F5 01025
CVTXAPG  00004 000014 00880
CVTXITP  00004 000044 00901
CVTXPFP  00001 000001 00953
CVTXTLER 00004 00002C 00891
CVTXTNT1 00001 000114 01059   1032
CVTZDTAB 00004 000040 00900
CVT0DS   00004 000088 00928
CVT0EF00 00004 000004 00874
CVT0FN00 00004 00004C 00904
CVT0PT01 00004 000098 00933
CVT0SCR1 00004 0000E8 00999
CVT0VL00 00004 000018 00881
CVT1EF00 00004 0000A8 00937
CVT1SSS  00001 000040 00919
CVT2SPS  00001 000020 00920
CVT4MPS  00001 000004 00922
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVT4MS1  00001 000010 00921
DE       00001 0008D2 02395   2392
DEQSP    00001 0006EC 02160   1985
DEQSW    00002 0006E6 02158   2152
DEZBYTE  00001 00000C 02387   2390  2391  2394
DISABLE  00001 0009E9 02515
DPATCHER 00004 0009AC 02489   0160  2419
DPRI     00001 000023 00629   2305
DUMMY    00001 000000 00127
ECB      00004 0003AA 01772   1762
EIGHT    00001 000008 00690   1576  1580
EMUL     00001 000010 00726   1535
ENABLE   00001 0009E8 02514
ERROR1   00004 00096C 02465   1974
ERROR2   00004 000974 02467   0145  1969  2025
ERROR3   00004 00097C 02469   2091
ERROR4   00004 000984 02472   0146  1782  1784  1790
ERROR5   00004 000258 01609   1604
ETXRFLG  00001 000002 00715   1477
ETXRIQE  00006 0000F6 01474   1453
ETXRLOOP 00002 000080 01429   1455
ETXRNEXT 00004 0000C8 01454   1432  1435  1440
EXIT     00002 00096A 02457   2179
FINDSCB  00004 0002BA 01652   1660
FINDSPQE 00004 0006BC 02145   2146
FOUR     00001 000004 00689   1531  1579
FREEIRB  00001 00027E 01629
FSTWD    00001 000004 00673   1479
GETIRB   00002 0000D0 01457   1430
GETREG   00001 000001 00573   2430  2433
GETSAVE  00001 000928 02428   2496
GETTCB   00002 00012C 01487   1427
GIVEIT   00001 00054E 01984   1976
GIVEJPQ  00006 000652 02098
GIVEL    00001 000001 00711   1390  1958
GIVESP   00004 000662 02101   2095  2097
GIVE251  00004 00064A 02096
GIVE252  00004 000642 02094   2089
GSPEND   00004 000568 01992   1967  1982  1986  1990
GSPLIST  00004 000506 01963   1959
GSPNEXT  00004 00050A 01964   1992
GSPVALUE 00004 00050E 01965   1962
HEADADR  00004 0009B0 02490
HEADPTR  00001 0000A0 00680   2302
H256     00002 0009F0 02520
IEAHEAD  00001 000000 01339   2490
IEAMSTCB 00001 000000 01336
IEAQCS01 00001 000000 01338   2498
IEA0AB00 00001 000000 01341   2499
IEA0DS   00001 000000 01337   2489
IEA0DS02 00001 000000 01340   2491
IEZJSCB  00001 000000 01240   1241  2204
IGC042   00001 000000 00006   0183  1335
IHB0002  00004 000034 00156   0150  0220
IHB0003  00001 00000C 00144   0140  0141  0208
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IHB0003A 00001 00001C 00149   0143
IHB0004  00004 000074 00182   0180
IHB0006  00004 0000D0 00225   0223
INVECB   00001 00042A 00710
INVOKE   00004 000310 01693   1691
IQEDISP  00001 000060 00676   1466
IQEFLD   00001 00008C 00630   1433
IQEFREE  00001 0002A8 01644   1627
IQEIRB   00001 000008 01672   1621
IQESIZE  00001 0002F4 01678   1645
IRBADR   00001 000008 00674   1436  1452  1480
IRBFLAG  00001 000040 00721
IRBRES   00001 000010 00718
IRBSAVE  00001 000000 01671   1630
IRBSIZE  00001 00000C 00717   1471
IRBUSE   00001 000018 01673   1623  1625
JSCB     00004 000386 01755
JSCBCSCB 00004 000100 01275
JSCBDISP 00001 0000F0 01327
JSCBIECB 00004 000110 01319
JSCBJCT  00004 000104 01277
JSCBJCTA 00003 000105 01279
JSCBLONG 00001 000020 01256
JSCBMFTL 00001 000018 01328
JSCBMVTL 00001 000024 01329
JSCBPASS 00001 000080 01252
JSCBPSCB 00004 000108 01315
JSCBQMPI 00004 0000F4 01258
JSCBQMPO 00004 0000F8 01260
JSCBSEC1 00001 0000F0 01248   1266
JSCBSEC2 00001 000100 01273   1281  1288  1300
JSCBSEC3 00001 000100 01289   1293
JSCBSEC4 00001 000108 01301   1305  1312
JSCBSEC5 00001 000108 01313   1323
JSCBSWT1 00001 0000F3 01251
JSCBS1LN 00001 000010 01266   1327  1328  1329
JSCBS2LN 00001 000008 01281   1300  1328  1329
JSCBS3LN 00001 000000 01293
JSCBS4LN 00001 000000 01305   1328
JSCBS5LN 00001 00000C 01323   1329
JSCBTJID 00002 00010C 01317   2205
JSCBTTTR 00003 0000F0 01250
JSCBWTP  00004 0000FC 01262
JSTEST   00004 00033E 01718   1715
KEYTEST  00004 000356 01725   1723
LASTSPQE 00001 000040 00722   2136  2154  2162  2167
LASTTCB  00004 000792 02237   2230
LINK     00004 0009CC 02497   2444  2453
LINKTCB  00001 000074 00631   2228  2240  2310  2334
LOGONATT 00004 0004C8 01892   1832
LOGONFLG 00001 000004 00733   1828  2215
LOGONTSK 00004 0007FE 02292   2219
LOOP4    00004 0006CC 02151   2157
LOOP5    00002 000812 02303   2312
LOOP5A   00001 000826 02309   2327  2331
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MACHSIZE 00001 0000A4 00682   1783
MASK2    00004 0009C0 02494
MOMTCB   00001 00000C 00675   1481
NEWPTR   00001 000000 00681
NEWTEST1 00001 000860 02351   2258  2291
NEXTSCB  00001 000000 01670   1659
NOSAVE   00001 00029A 01638   1633
NOSETATT 00001 000898 02371   2365  2368
NOSTAE   00002 000010 01357   1354
NOTDEADR 00006 0008D8 02398   2385
NOTDEQ   00004 000708 02168   2159  2163  2166
NOTFOUND 00002 000710 02171   2155
NOTLGN   00001 000762 02221   2216
NOTREQ   00001 0001D4 01563   1545  1553
NOTSO    00001 00080E 02298   2202
NOTSO1   00001 000428 01839   1827
NOTSO2   00001 000452 01854   1848
NOTSO3   00001 00048C 01874   1863
NOTSO4   00001 0004BE 01889   1885
NOTSO7B  00001 000192 01533   1530
NROLABLY 00001 000002 00716   1690
NTLOGATT 00001 000412 01833   1829
NTRC4    00001 0001C4 01557   1554
NTSTSK   00001 000180 01527   1524
NUMBTCB  00004 00079E 02252
NXTRB    00004 000870 02361   2366  2369
N24      00001 000018 00692
N255     00001 0000FF 00693
N256     00001 000100 00694
ONE      00001 000001 00686   1534  1871  1886  1928  1960  2011  2029  2224  2227  2231  2253  2294
OSFLAG   00001 000020 00720   1973  2041
PARMFAIL 00004 0009E0 02506   1403
PARMOK   00001 00006E 01407   1381  1397  1399
PKEYTEST 00004 0003EA 01789   1785  1787
PKEYWAIT 00001 000020 00719
PLUS255  00002 0009EA 02516   1867  1878
PPMODE   00001 00007F 00723
PRBSIZE  00001 000300 01681   2412
PROPFAIL 00004 0009DC 02502   1609
PROPJSCB 00006 0003A4 01763   1756  1759
PROPKEY  00001 000002 00714
PROPLMPR 00004 000446 01849   1837
P255     00001 0000FF 00737   1866  1877
RBABOPSW 00001 000004 00646
RBATTN   00001 000020 00651   2367
RBEP     00001 00000C 00654   1437
RBEXSAVE 00001 000060 00661   1550  1578  1584
RBFTSVRB 00001 0000C0 00663   2364
RBGRSAVE 00001 000020 00660
RBIQE    00001 000019 00657
RBLINK   00001 00001C 00659   1515  1713  1757  1777  1830  2217  2363  2402  2405
RBOPSW   00001 000010 00655   1380  1517  1714  1758  1778  1831  2218  2423  2453
RBPPSAV  00001 000001 00645
RBSIZE   00001 000009 00648   1472  1518
RBSTAB   00001 00000A 00649   1467  1516  2364  2406
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RBSTAB2  00001 00000B 00650   2361  2367
RBTCBNXT 00001 000080 00662   2361
RBTMFLD  00001 000000 00644
RBUSE    00001 000018 00656   1482  1484
RBWCF    00001 00001C 00658
RBWCSA   00001 000008 00647
RECRSBIT 00001 000080 00727   1353
RETCD4   00002 0009E4 02512   1552
RETCODE  00004 000238 01597   1569
RETCODE4 00001 000004 00728   1355
RGETMAIN 00001 00000F 00623   1636  1637  1641  1642  1647  1648  1657  1658  1666  1667  2410  2413  2414  2415  2434
                              2436
RMBRANCH 00001 000000 01342   2500
RMBRNCHA 00004 0009D8 02500   1636  1641  1647  1657  1666  2413  2434
ROLABLY  00001 000001 00713   1693
ROLL     00004 000304 01690   1573  1575
R1       00001 000001 02388   2389  2389  2390  2393  2393  2394
SAVEAREA 00001 0002EC 01676   1634
SAVETEST 00004 000910 02418
SCBSIZE  00001 0002F8 01679   1655
SEARCHED 00004 00055C 01989   1972
SETATT   00004 000894 02370   2362
SETFIELD 00004 000718 02179   2084  2100  2105
SETLINK  00004 000958 02445   2420
SETTCB   00006 0008DE 02402   0164  2397
SHAREL   00001 000001 00712   1396  2016
SHARESP  00001 000080 00725   1975  1980  2036  2044  2046
SHARETST 00001 000056 01395   1391
SHARE0   00002 000604 02075   2015  2030
SISPTR   00001 000080 00632   1454
SIZEIRB  00001 0002F0 01677   1639
SIZEREG  00001 000000 00572   1634  1639  1645  1655  1662  2433
SKIPCON  00004 000930 02433   2430
SMODEKEY 00001 000000 00684   1789
SMTEST   00004 00034A 01722   1719
SPBLDOR  00002 0005D6 02039   2035
SPCHAIN  00004 000698 02128   1988  2107
SPQUE    00004 0005DC 02041   2038
SPQUE1   00002 0005E0 02042   2037
SPSEARCH 00004 0006BC 02146   1971  2034  2104
SPSHARE  00001 00056C 02010   0189  1935
SPSRCH   00002 0006BA 02144   1989  2031
SP251    00001 0000FB 00739   2096
SP252    00001 0000FC 00738   2094
SSPEND   00004 000600 02050   2032
SSPLIST  00004 000592 02021   2017
SSPNEXT  00004 000596 02022   2028  2050
SSPSRCH  00004 0005B8 02031   2027
SSPVALUE 00004 00059A 02023   2020
STAELOOP 00001 0001E0 01567   1564
STAEPROC 00001 00019C 01543   1532
STAIFLAG 00001 000001 00730   1544  1603
STAISCB  00001 000020 00731   1574
STDISPRI 00004 00047E 01869   1865
STLOOP   00001 000210 01583   1551
                                             CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

STLPRI   00004 000452 01855   1842
STNEWD   00004 00049E 01880   1876
STSPID   00004 0005FC 02049   2047
SUPVSPID 00002 0009E6 02513   1968  2024
SVCEXIT  00001 000003 00735   1356
SVRBXR0  00001 000020 00664   1373  1558  1560  1599  1605  2376
SVRBXR1  00001 000024 00665
SVRBXR10 00001 000048 00667
SVRBXR13 00001 000054 00668   2440
SVRBXR14 00001 000058 00669   2383
SVRBXR2  00001 000028 00666
TASK     00001 0002D8 01661   1654
TCBAQE   00004 00009C 00848
TCBAQEP  00004 00009C 00802
TCBATOFF 00001 0000DF 00640   2370
TCBATT   00001 000020 00732   2372
TCBCMP   00004 000010 00821
TCBCMPP  00004 000010 00774
TCBDAR   00001 0000AC 00852
TCBDARP  00001 0000AC 00806
TCBDEB   00004 000008 00819
TCBDEBP  00004 000008 00772
TCBDISP  00003 0000AD 00853
TCBDISPP 00003 0000AD 00807
TCBDSP   00001 000023 00828   1877  1880  1881  1890  1896  2305
TCBDSPP  00001 000023 00781   1857  1892
TCBECB   00004 000090 00841   1776  1780
TCBECBP  00004 000090 00794
TCBEQPRI 00001 000832 02314   2308
TCBFC    00001 000080 00628   1431
TCBFLAGS 00001 00001D 00627   1431
TCBFLDS  00001 000000 00816   1348  2329  2338
TCBFLDSP 00001 000000 00769   1347
TCBFLGS  00005 00001D 00826   1477  1695  1724
TCBFLGSP 00005 00001D 00779
TCBFREE  00001 0002B6 01650   1620
TCBFSA   00004 000070 00833   1475  1475  1497  1497  2438  2440
TCBFSAP  00004 000070 00786
TCBFSM   00001 000080 00724   1724
TCBGRS   00064 000030 00832
TCBGRSP  00064 000030 00785
TCBHI    00004 000858 02343   2304  2307  2337
TCBIDFLD 00001 000070 00633
TCBIQE   00004 00008C 00840   1478  1618
TCBIQEP  00004 00008C 00793
TCBITB   00004 00007C 00836   1711  1721
TCBITBP  00004 00007C 00789   1711
TCBJLB   00004 000028 00830   1734  1741
TCBJLBP  00004 000028 00783   1734
TCBJSCB  00004 0000B4 00856   1760  1763
TCBJSCBP 00004 0000B4 00810   1763  2203
TCBJSE   00004 00002C 00831   2098
TCBJSEP  00004 00002C 00784   2085  2098  2099  2099
TCBLLS   00004 000024 00829
TCBLLSP  00004 000024 00782
                                             CROSS-REFERENCE                                                   PAGE    9


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBLMP   00001 000022 00827   1834  1855  1881  1890  1894
TCBLMPP  00001 000022 00780   1834  1840
TCBLOOP  00004 000776 02228   2226  2236
TCBLTC   00004 000088 00839
TCBLTCP  00004 000088 00792   1428  2180  2182
TCBMSS   00003 000019 00824
TCBMSSP  00003 000019 00777
TCBMSSS  00001 000018 00634   2128  2131  2132  2133  2145  2147  2164
TCBNROC  00001 000018 00823   1692
TCBNROCP 00001 000018 00776
TCBNSTAE 00004 0000A0 00849   1651
TCBNSTAP 00004 0000A0 00803   1353  1565
TCBNTC   00004 000080 00837   2180
TCBNTCP  00004 000080 00790
TCBOTC   00004 000084 00838   2184
TCBOTCP  00004 000084 00791
TCBPIE   00004 000004 00818
TCBPIEP  00004 000004 00771
TCBPKF   00001 00001C 00825   1727
TCBPKFP  00001 00001C 00778   1727  1789
TCBPQE   00004 000098 00847   1710
TCBPQEP  00004 000098 00801   1710
TCBPTR   00004 000796 02239   2234
TCBRB    00001 000000 00635
TCBRBP   00004 000000 00817   1474  1474  1496  1496  1514  2403  2404
TCBRBPP  00004 000000 00770   2402
TCBRES   00004 0000B0 00855
TCBRESP  00004 0000B0 00809
TCBSIZE  00001 0002FC 01680   1662
TCBSTPCP 00001 000095 00798
TCBSTPCT 00001 000095 00844
TCBTCB   00004 000074 00834   2239  2343
TCBTCBP  00004 000074 00787
TCBTCT   00004 0000A4 00850   1712  1712
TCBTCTP  00004 0000A4 00804   1712
TCBTIO   00004 00000C 00820   1733
TCBTIOP  00004 00000C 00773   1733
TCBTME   00004 000078 00835
TCBTMEP  00004 000078 00788
TCBTRN   00004 000014 00822   1531  1534  1535
TCBTRNP  00004 000014 00775   1529  1531  1534
TCBTSDP  00001 000097 00846   1866  1869  1871  1886  1897  2224  2227  2231
TCBTSDPP 00001 000097 00800   1852
TCBTSFLG 00001 000094 00842   1525  2325  2329  2338  2372
TCBTSFLP 00001 000094 00795   1523  1826  1847  1862  1884  2201  2370
TCBTSLP  00001 000096 00845   1849  1871  1886  1895
TCBTSLPP 00001 000096 00799   1835
TCBTSTSK 00001 000080 00843   1525  2325  2329  2338
TCBTSTSP 00001 000080 00796   1523  1826  1847  1862  1884  2201
TCBUSER  00004 0000A8 00851
TCBUSERP 00004 0000A8 00805
TCBXR0   00001 000030 00636   2376  2407  2441
TCBXR1   00001 000034 00637   2378  2410  2415  2421  2445
TCBXR10  00001 000058 00638
TESTBIT  00001 000001 00695
                                             CROSS-REFERENCE                                                   PAGE   10


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TESTPRI  00006 000482 01871   1868
TESTRBIT 00001 000004 00736   1529
TESTSPID 00004 000714 02173   2151
TEST252  00004 00061C 02082   2076  2078
THREE    00001 000003 00688
TIOTPRO  00006 000364 01733   1726
TJB      00001 000000 01127   2212
TJBATTN  00001 000004 01129
TJBDDRD  00001 000004 01164
TJBDDRND 00001 000001 01167
TJBDEAD  00001 000001 01150
TJBDISC  00001 000002 01138
TJBDISC2 00001 000080 01187
TJBEND   00004 000030 01193
TJBEXTNT 00004 000008 01151   2213
TJBFAT   00001 000002 01166
TJBFLUSL 00001 000029 01174
TJBGETBF 00001 000004 01183
TJBHOLD  00001 000040 01142
TJBHUNG  00001 000080 01141
TJBINCOR 00001 000040 01133
TJBIPPB  00004 000024 01171
TJBIWAIT 00001 000010 01135
TJBIWP   00001 000040 01159
TJBLINE  00002 00002E 01191
TJBLOGON 00001 000020 01134
TJBLOGP  00001 000010 01161
TJBLWAIT 00001 000008 01162
TJBMDSN  00001 000080 01178
TJBMJBN  00001 000040 01179
TJBMONI  00001 00002C 01177
TJBMSES  00001 000020 01180
TJBMSPA  00001 000010 01181
TJBMSTA  00001 000008 01182
TJBNEWID 00001 000028 01172
TJBNJB   00001 000080 01132
TJBOCAB  00001 000020 01143
TJBOWAIT 00001 000008 01136
TJBOWP   00001 000080 01158
TJBQUIS  00001 000004 01148
TJBRCB   00004 00000C 01152
TJBRNAV  00001 000010 01144
TJBRSTOR 00001 00001A 01157
TJBSDCB  00004 000014 01154
TJBSILF  00001 000004 01137
TJBSILF2 00001 000001 01139
TJBSOEM  00001 000004 01190
TJBSTAT  00001 000006 01131
TJBSTAT2 00001 000007 01140
TJBSTAT3 00001 00002D 01186
TJBSTAX  00001 000005 01130
TJBSURSV 00001 000008 01146
TJBTJID  00002 00002A 01176
TJBTSB   00004 000000 01128
TJBUMSM  00004 000010 01153
                                             CROSS-REFERENCE                                                   PAGE   11


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TJBUMSMN 00001 00001B 01169
TJBUSER  00008 00001C 01170
TJBUSERR 00001 000002 01149
TJBUTTMP 00001 000080 01156
TJBUTTMQ 00002 000018 01155
TJBX     00001 000000 01196   2214
TJBXACT  00004 00003C 01216
TJBXAECB 00004 000040 01217
TJBXAIQE 00004 00002C 01208
TJBXATTR 00004 000028 01206
TJBXDSE  00004 000008 01199
TJBXFST  00004 000000 01197   2222  2292
TJBXHBFL 00001 00003A 01213
TJBXIQE  00004 000014 01202
TJBXKEYA 00004 000044 01219
TJBXLAST 00004 000004 01198   2229  2237  2293
TJBXLECB 00004 00001C 01204
TJBXLQPL 00002 000038 01212   2269  2275  2278
TJBXNQPE 00002 000034 01210   2255  2280
TJBXNTCB 00002 000036 01211   2252  2254  2256  2295
TJBXPSWD 00008 000020 01205
TJBXQPL  00004 000030 01209   2276  2277  2288
TJBXRQE  00004 000010 01201
TJBXSVRB 00004 00000C 01200
TJBXTAXE 00004 000018 01203
TLIBFLAG 00001 000002 00729   1736
TSCASTOP 00001 000020 01084
TSCDISC  00001 000010 01078
TSCLOGON 00001 000020 01077
TSCLOGPR 00001 000010 01086
TSCRSTOP 00001 000040 01083
TSCSSTOP 00001 000080 01082
TSCSWPBG 00001 000040 01076
TSCSWPND 00001 000080 01075
TSCVT    00001 000000 01069   2209
TSCVTABN 00004 000068 01117
TSCVTCTR 00002 00001C 01095
TSCVTCUS 00002 000014 01090
TSCVTDMP 00004 00007C 01122
TSCVTD02 00004 000040 01106
TSCVTD03 00004 00006C 01118
TSCVTECB 00004 000024 01099
TSCVTFLG 00001 00000C 01073
TSCVTFLM 00004 000070 01119
TSCVTFL1 00001 00000E 01080
TSCVTICB 00004 00002C 01101
TSCVTI01 00004 000030 01102
TSCVTI02 00004 000038 01104
TSCVTI03 00004 00003C 01105
TSCVTLCQ 00004 000044 01107
TSCVTLPA 00004 00004C 01109
TSCVTLS3 00004 000084 01124
TSCVTLUS 00002 000016 01091
TSCVTMUS 00002 00001E 01096
TSCVTNTJ 00002 000018 01093
                                             CROSS-REFERENCE                                                   PAGE   12


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TSCVTQTP 00004 000074 01120
TSCVTRCB 00004 000004 01071
TSCVTRPT 00004 000008 01072
TSCVTRSZ 00002 00005C 01113
TSCVTSAV 00004 000020 01098
TSCVTSDC 00004 000010 01089
TSCVTSIA 00004 000028 01100
TSCVTSLF 00004 000050 01110
TSCVTSPL 00004 000058 01112
TSCVTSVQ 00004 000064 01116
TSCVTSVT 00004 000060 01115
TSCVTSZU 00002 00001A 01094   2210
TSCVTTJB 00004 000000 01070   2211
TSCVTTQE 00004 000034 01103
TSCVTTRB 00004 000048 01108
TSCVTTSC 00004 000054 01111
TSCVTT06 00004 000080 01123
TSCVTT08 00004 000078 01121
TSDPRI   00001 000097 00639   2224  2227  2231
TSOSRCH  00001 000842 02333   2340
TWELVE   00001 00000C 00691   1574
TWO      00001 000002 00687   1834
UTHNASIA 00001 00025E 01617   1559  1601
XCCVT    00001 000000 00859   1377  2207
XRASTCB  00001 000008 00597   1428  1429  1429  1431  1433  1454  1454
XRATCB   00001 00000A 00612   1348  1450  1473  1479  1495  1515  1665  1721  1987  2106  2114  2144  2182  2237  2240
                              2292  2293  2344  2378  2405  2407  2410  2415  2421  2435  2441  2445  2446  2448  2477
XRBASE   00001 00000B 00613   1344  1345  2352  2354  2355  2357
XRCOREAD 00001 000001 00575   1450  1451  1495  2121  2121  2122  2437  2438  2439  2439
XRCOUNT  00001 00000C 00615   1482  1483  1483  1484
XRCVT    00001 000003 00582   1377  1400  1783  2302  2448
XRDE     00001 000008 00598   2382  2386  2398
XRDPRI   00001 000009 00607   1852  1857  1860  1864  1875
XRDQE    00001 000008 00599
XRECB    00001 000006 00587   1772  1773  1773  1774  1774  1776  1780  1783  1785  1786  1786  1787
XRETXR   00001 000007 00593   1385  1386  1424  1425  1425  1426  1426  1439  1458
XRFQE    00001 000009 00608
XRINDPRI 00001 000008 00600   1859  1860  1864  1867  1869  1875  1878  1880
XRINLPRI 00001 000009 00609   1825  1825  1844  1845
XRIQE    00001 000009 00610   1433  1434  1434  1436  1452
XRIQEW   00001 000008 00604   1451  1466  1476  1476  1478  1479  1480  1481
XRIRB    00001 000001 00576   1452  1466  1467  1472  1473  1480  1482  1484
XRJSCB   00001 000006 00591
XRLENGTH 00001 00000C 00616   1471  1472
XRLINK   00001 00000C 00614   1379  1971  1979  1985  1986  1989  1991  2031  2034  2040  2043  2104  2107  2135  2137
                              2150  2170  2172  2179  2425  2455  2474  2478  2479
XRLPRI   00001 000008 00601   1824  1824  1835  1840  1845  1849  1855
XRNEW    00001 000002 00579
XRORB    00001 000005 00585   1373  1379  1550  1558  1560  1578  1584  1599  1605  1713  1757  1777  2360  2376  2383
                              2402  2404  2405  2406  2423  2440  2448  2453
XROTCB   00001 000004 00583   1347  1481  1970  2033  2039  2102  2184  2376  2378  2435  2446
XRPARA   00001 00000E 00619   1346  1361  1382  1382  1383  1386  1600  1602  2353  2358
XRPKEY   00001 000008 00602
XRPRB    00001 000006 00588   1379  1380  1713  1714  1757  1758  1777  1778
XRRETURN 00001 00000E 00620   1637  1642  1648  1658  1667  2355  2410  2414  2415  2419  2436  2444  2457  2479
                                             CROSS-REFERENCE                                                   PAGE   13


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

XRSAVE   00001 00000D 00618   1978  1981  2042  2045  2046  2048
XRSPADR  00001 000009 00611   1926  1927  1927  1934  1934  1961  1963  1964  1964  1965  2012  2013  2013  2014  2014
                              2019  2021  2022  2022  2023
XRSPCTR  00001 000008 00603   1929  1929  1960  1963  1992  2018  2021  2028  2050  2080  2101
XRSPID   00001 000007 00594   1928  1965  1966  1966  1968  2011  2023  2024  2026  2026  2029  2049  2075  2075  2079
                              2079  2094  2096  2122  2151
XRSPQE   00001 000001 00577   1973  1975  1978  1980  1981  2036  2041  2042  2044  2045  2048  2049  2130  2132  2136
                              2148  2149  2149  2153  2154  2156  2156  2161  2162  2168  2168  2169  2169  2171  2171
                              2173
XRSPQPTR 00001 00000F 00622   2147  2153  2161  2165  2167
XRSVRB14 00001 000007 00595   2383  2386  2390  2391  2394  2396  2396  2398  2442  2445
XRTCB    00001 000002 00580   1970  1987  2033  2039  2102  2103  2106  2114  2128  2131  2132  2133  2144  2145  2147
                              2158  2158  2164  2302  2303  2303  2305  2310  2311  2329  2334  2335  2336  2336  2338
                              2343
XRTCBPTR 00001 000006 00589   2310  2311  2334  2335  2344
XRTCBSPQ 00001 000006 00590   2128  2129  2129  2130  2134  2134  2145  2148
XRWORKAD 00001 00000D 00617   2437
XR0      00001 000000 00571   1571  1576  1579  1580  1581  1582  1830  2131  2133  2164  2165  2269  2270  2270  2271
                              2272  2275  2282  2412  2441  2477
XR1      00001 000001 00574   1403  1513  1513  1514  1515  1516  1517  1518  1561  1561  1584  1606  1606  1609  1630
                              1631  1631  1632  1632  1635  1635  1640  1646  1656  1663  1664  1664  1665  2222  2224
                              2227  2228  2229  2235  2240  2277  2281  2288  2289  2289  2360  2361  2363  2363  2364
                              2367  2403  2411  2411  2421  2442  2476  2476  2480
XR15     00001 00000F 00621   1355  1372  1372  1373  1436  1437  1437  1438  1438  1439  1552  1555  1555  1558  1560
                              1568  1568  1597  1599  1605  2268  2290  2421  2465  2467  2469  2472  2473  2475
XR2      00001 000002 00578   1548  1559  1576  1578  1580  1581  1581  1601  1668  2268  2290  2353  2358  2475  2480
XR3      00001 000003 00581
XR5      00001 000005 00584   1830  2217
XR6      00001 000006 00586   1549  1579  1600  1602  1738  1739  1739  1741  1830  1831  2217  2218  2271  2278  2352
                              2357
XR7      00001 000007 00592   1622  1622  1623  1624  1625  1626  1626  2203  2204  2205  2210  2211  2212  2213  2214
                              2297
XR8      00001 000008 00596   1551  1564  1595  1621  1623  1625  1630  1640  2276  2281
XR9      00001 000009 00606   1565  1571  1571  1572  1572  1574  1576  1579  1580  1582  1582  1618  1619  1619  1621
                              1646  1651  1652  1652  1653  1653  1656  1659  1659  1892  1893  1894  1895  1896  1897
                              2095  2097  2108  2206  2207  2208  2209  2223  2228  2231  2235  2239  2252  2253  2253
                              2254  2255  2256  2279  2279  2280  2294  2295
ZCONT    00001 000386 01742   1737  1740
ZERO     00001 000000 00683
ZERONUM  00001 000000 00685   1571  1581  1582  1893  2289  2289
ZEROSHAR 00004 0005CA 02036
ZEROSRCH 00002 0005C0 02033   2081



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  5432
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 3156 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.TSOGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21TA5.R0000099       SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21TA5.S0000100       SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21TA5.S0000100       DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG6     / START 78240.1944
IEF374I STEP /SG6     / STOP  78240.1944 CPU   0MIN 01.49SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:44:54.71   ALLOC START    19:44:54.72   MAIN REGION ----- 300K                          *
*   STEP NAME SG6        STEP END TIME  19:44:56.80   PGM START TIME 19:44:54.82   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.09   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:01.49   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ---------- 147       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0    *
*   0151 ---------- 107       0151 ---------- 169       0151 ---------- 356       0353 ---------- 395       0151 ----------- 54    *
*   0130 ------------ 5                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21TA5  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1944
IEF374I STEP /ZEND    / STOP  78240.1944 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:44:56.83   ALLOC START    19:44:56.84   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:44:56.87   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.TSOGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21TA5  / START 78240.1944
IEF376I  JOB /R21TA5  / STOP  78240.1944 CPU   0MIN 01.49SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21TA5     JOB READ TIME 19:44:48.63   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.49   *
*   JOB CLASS A          JOB INIT TIME 19:44:54.71   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:02.18   *
*   ACCOUNT              JOB END TIME  19:44:56.89   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     TTTTTTTT       A           66                                         A
            RRRRRRRRR  222222222      11     TTTTTTTT      AAA         66                                         AAA
            RR     RR  22     22     111        TT        AA AA       66                                         AA AA
            RR     RR        22       11        TT       AA   AA     66                                         AA   AA
            RRRRRRRRR       22        11        TT      AA     AA   6666666                                    AA     AA
            RRRRRRRR       22         11        TT      AA     AA  666666666                                   AA     AA
            RR  RR        22          11        TT      AAAAAAAAA  66     66                                   AAAAAAAAA
            RR   RR      22           11        TT      AAAAAAAAA  66     66                                   AAAAAAAAA
            RR    RR    22222222    111111      TT      AA     AA  666666666                                   AA     AA
            RR     RR  222222222    111111      TT      AA     AA   6666666                                    AA     AA

***********A  START   R21TA6     SYS SYSA   WTR 00E   07:45:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA6     START  A***********
***********A  START   R21TA6     SYS SYSA   WTR 00E   07:45:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA6     START  A***********
***********A  START   R21TA6     SYS SYSA   WTR 00E   07:45:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA6     START  A***********
***********A  START   R21TA6     SYS SYSA   WTR 00E   07:45:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA6     START  A***********
***********A  START   R21TA6     SYS SYSA   WTR 00E   07:45:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA6     START  A***********


//R21TA6 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG7 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(4,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.TSOGEN,DISP=(SHR,PASS)
//  DD DSN=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.TSOMAC,DISP=(SHR,PASS),VOLUME=(,RETAIN)
// DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//            DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//            SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEAQCH00)
//SYSIN DD *
IEF236I ALLOC. FOR R21TA6   SG7
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.44  8/28/78


IGC044    SD  01 000000 00025C
IEA0VL01  ER  02
IEA0AB01  ER  03
IEA0DS02  ER  04
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1      PRINT  ON,NODATA
                                      2  IEAQCH NOSLICE,4,1
                                      3+*417000,421000,423000-424000                                       MO18
000000                                4+IGC044   START
                                      5+*  KEYS FOR COMMENTS
                                      6+*        INITIALIZATION                 $
                                      7+*        EXIT-NORMAL                    *
                                      8+*        EXIT-SUBROUTINE                **
                                      9+*        EXIT-ERROR                     ***
                                     10+*        SPECIAL ENTRY POINT            /
                                     11+*        INTEROGATIVE OPERATION         Q.


                                     13+* REGISTER ASSIGNMENTS

000001                               15+XRERCODE EQU   1 ERROR CODE IN REGISTER BEFORE GOING TO ABTERM
000001                               16+XRTESTWD EQU   1 WORD TO BE TESTED FOR VALIDITY
000002                               17+XRTSTADR EQU   2 ADDRESS OF VALIDITY CHECK ROUTINE
000003                               18+XRCVT    EQU   3 ADDRESS OF VECTOR TABLE (SVC HANDLER SETS)
000004                               19+XROTCB   EQU   4 CONTENT OF 'OLD' (SVC HANDLER SETS)
000005                               20+XRORB    EQU   5 ADDRESS OF TOP RB OF 'OLD' (SVC HANDLER SETS)
000006                               21+XRSAVE   EQU   6 SAVE REGISTER 1 CONTENT
00000C                               22+XRLINK   EQU   12 LINK REGISTER
00000D                               23+XRABTERM EQU   13 ABTERM ROUTINE ADDRESS (SVC HANDLER SETS)
00000E                               24+XRRETURN EQU   14 TYPE 1 SVC EXIT ADDRESS (SVC HANDLER SETS)
00000F                               25+XRBASE   EQU   15 BASE REGISTER

                                     27+*  CHAP ROUTINE


000000                               29+XRCVALUE EQU   0 INPUT PARAMETER CHAP VALUE
000000                               30+XR0      EQU   0 REG  0                     I250
000001                               31+XRCTCB   EQU   1 INPUT PARAMETER DAUGHTER TCB ADR OR 0
000001                               32+OLDPRE   EQU   1 PREV. TCB ABOVE CHAPPED TCB
000002                               33+CHAPTCB  EQU   2 CHAPPED TCB
000002                               34+XRWTCB   EQU   2 WORK TCB (DAUGHTER OR REQUESTING TCB ADR)
000006                               35+CURTCB   EQU   6 CURRENT TCB ON R.Q. UNDER INVESTIGATION
000007                               36+LASTCB   EQU   7 TCB FROM WHICH CURR. TCB IS OBTAINED
000008                               37+XRDSP    EQU   8 TOTAL ADDED DISPATCHING PRIORITY
000008                               38+XRRB     EQU   8 CHAP WORK RB ADDRESS
000009                               39+NEWPRE   EQU   9 TCB ABOVE WHICH CHAPPED TCB IS TO BE PLAC'ED
00000A                               40+XRNEWOLD EQU   10 CONTENT OF EITHER 'NEW' OR 'OLD'
000008                               41+EQUAL    EQU   8 M4631
00000B                               42+NOTLOW   EQU   11 M4631
00000A                               43+XTJBXLST EQU   10 PTR TO LAST TCB IN TIME-SHARING USER'S  20021
                                     44+*                         TASK GROUP                              20021
00000B                               45+XRTCBTST EQU   11
00000C                               46+TEMPREG  EQU   12 TEMPORARY WORK REGISTER


                                     48+*  TASK CONTROL BLOCK DISPLACEMENT (TCB)
000000                               49+TCBRBP   EQU   0 PTR TO TOP RB
000004                               50+TCBPIE   EQU   4 PTR PROGRAM INTERUPT ELEMENT (PIE)
000008                               51+TCBDEB   EQU   8 PTR TO DATA ELEMENT BLOCK (DEB)
00000C                               52+TCBTIO   EQU   12 PTR TO TASK I/O TABLE (TIOT)
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000010                               53+TCBCMP   EQU   16 TCB COMPLETION CODE
000014                               54+TCBTRN   EQU   20 TESTRAN FIELD
000018                               55+TCBMSS   EQU   24 PTR TO SUBPOOL QUEUE ELEMENT (SPQE)
00001C                               56+TCBPKF   EQU   28 TASK PROTECT KEY
00001D                               57+TCBFLG   EQU   29 FLAGS
000080                               58+TCBFC    EQU   X'80' TASK COMPLETE FLAG                        I250
000021                               59+TCBFL5   EQU   33 FLAG BYTE 5  BIT 0=1=TASK COMPLETE        MO18
000022                               60+TCBLMP   EQU   34 TCB'S LIMIT PRIORITY
000023                               61+TCBDSP   EQU   35 TCB'S DISPATCHING PRIORITY
000024                               62+TCBLLS   EQU   36 PTR TO LOADED PROGRAM LIST ADR
000028                               63+TCBJLB   EQU   40 PTR TO JOB LIBRARY DATA CONTROL BLOCK
00002C                               64+TCBJSE   EQU   44 PTR TO JOB STEP INDEX ELEMENT (JSIE)
000030                               65+TCBGRS   EQU   48 GENERAL REGISTER SAVE AREA
000070                               66+TCBIDF   EQU   112 TCB'S ID
000071                               67+TCBFSA   EQU   113 PTR TO FIRST PROBLEM PROGRAM SAVE AREA
000074                               68+TCBTCB   EQU   116 PTR TO NEXT TCB ON READY QUEUE
000078                               69+TCBTME   EQU   120 PTR TO TIMER ELEMENT
00007C                               70+TCBITB   EQU   124 PTR TO INITIATOR/TERMINATOR TCB
000080                               71+TCBSTC   EQU   128 PTR TO SISTER TCB
000084                               72+TCBMTC   EQU   132 PTR TO MOTHER TCB
000088                               73+TCBDTC   EQU   136 PTR TO DAUGHTER TCB
00008C                               74+TCBIQE   EQU   140 PTR TO INTERUPT QUEUE ELEMENT (IQE)
000090                               75+TCBECB   EQU   144 PTR TO EVENT CONTROL BLOCK (ECB)
000094                               76+TCBTSFLG EQU   148 TIME SHARING FLAGS        20021
000080                               77+TCBTSTSK EQU   X'80' SWAPPED TS TASK INDICAT   20021
000096                               78+TCBTSLP  EQU   150 LIMIT PRIORITY OF TS TAS  20021
000097                               79+TCBTSDP  EQU   151 DISP. PRIORITY OF TS TAS  20021
0000B4                               80+TCBJSCB  EQU   180 PTR. TO JOB STEP C.B.     20021


                                     82+*  REQUEST BLOCK DISPLACEMENT (RB)
000004                               83+RBABOPSW EQU   4 BITS 32-36 OF USER'S PSW
000008                               84+RBSIZE   EQU   8 SIZE OF RB IN DOUBLE WORD
00000A                               85+RBSTAB   EQU   10 STATUS AND ATTRIBUTE BITS (STAB)
00000C                               86+RBCDFLGS EQU   12 CONTENT CONTROL FLAGS
00000C                               87+RBEP     EQU   12 IRB'S ENTRY POINT ADDRESS
00000D                               88+RBCDE    EQU   13 PTR TO CONTENT DIRECTORY ENTRY
000010                               89+RBOPSW   EQU   16 INTERRUPT OPSW
000018                               90+RBPGMQ   EQU   24 QUEUE FIELD FOR SERIALLY REUSABLE PROGRAM
00001C                               91+RBWCF    EQU   28 WAIT COUNT
00001D                               92+RBLINK   EQU   29 PTR TO NEXT RB ON QUEUE, OR TCB IF LAST RB
00001C                               93+NXTRBS   EQU   28 PTR. TO NEXT RB.


                                     95+* GENERAL EQUATES
000003                               96+Q3       EQU   3 DECIMAL EQUIVALENT 3        I250
00000D                               97+ABEND    EQU   13 ABEND SVC NUMBER                I250
000001                               98+X01      EQU   X'01' HEX 1                      I250
000008                               99+TSKSWA   EQU   8 ENTRY PT ADDR OF TSK SW     I250
                                    100+*                                      IS IN DISPATCHER            I250
                                    101+*                                        SWITCH IN EXIT EFFECTOR   I250
00002C                              102+SVCCHAP  EQU   44 .                                           BD A47511
000020                              103+SVCOLD   EQU   32 .                                           BD A47511
0000A0                              104+HEADADR  EQU   160 DISPLACMENT IN VECTOR TABLE TO 'HEAD' POINTER
00012C                              105+ERRCHAP  EQU   X'012C' CHAP'S DAUGHTER'S ADDRESS INVALID
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00022C                              106+ERRCHP2  EQU   X'022C' INPUT ADR OF SUBTASK TO BE CHAPPED IS INVALID
000000                              107+ZERO     EQU   X'00' ZERO BYTE
000001                              108+ONE      EQU   1 .INSTRUCTION VALUE.         20021
000004                              109+FOUR     EQU   4 GENERAL PURPOSE NO.       20021



000000                              111+XCCVT    DSECT
                                    112+*
                                    113+*              OS/360
                                    114+*        COMMUNICATION VECTOR TABLE
                                    115+*
                                    116+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5
                                    117+*
000010                              118+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT
                                    119+*
                                    120+*              BEGINNING OF CVT PROPER
                                    121+*
000000                              122+         DS    0F
000000                              123+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE
                                    124+*
000000 00000000                     125+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST
000004 00000000                     126+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE
                                    127+*                              ASYNCHRONOUS EXITS
000008 00000000                     128+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB
00000C 00000000                     129+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB
000010 00000000                     130+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT
                                    131+*                              CONSOLE INTERRUPTION ROUTINE
000014 00000000                     132+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE
000018 00000000                     133+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING
                                    134+*                              ROUTINE FOR SUPERVISOR
00001C 00000000                     135+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                    136+*                              RELATIVE TRACK ADDR TO ABSOLUTE
000020 00000000                     137+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                    138+*                              ABSOLUTE TRACK ADDR TO RELATIVE
000024 00000000                     139+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION
                                    140+*                              IN UCB LOOKUP TABLE
000028 00000000                     141+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION
                                    142+*                              IN UCB LOOKUP TABLE
00002C 00000000                     143+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE
                                    144+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES
000030 00000000                     145+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY
                                    146+*                              IN UCB LOOKUP TABLE
000034 00000000                     147+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE
000038 00000000                     148+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL
00003C 00000000                     149+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)
                                    150+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS
                                    151+*                              MASTER SCHEDULER RESIDENT DATA AREA
000040 00000000                     152+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE
000044 00000000                     153+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE
000048 00000000                     154+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS
                                    155+*                              FOR DAMAGE ASSESSMENT ROUTINES
00004C 00000000                     156+CVT0FN00 DC    A(0) -        RESERVED (MVT)
000050 0A03                         157+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER
000052 07FE                         158+CVTBRET  BR    14 -          RETURN TO CALLER
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000054 00000000                     159+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB
000058 00000000                     160+CVTTPC   DC    A(0) -        RESERVED (NO INTERVAL TIMER)
00005C 00000000                     161+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL
000060 00000000                     162+CVTSJQ   DC    A(0) -        RESERVED (MVT)
000064 00000000                     163+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR
000068 00000000                     164+CVTQTE00 DC    A(0) -        RESERVED (NO INTERVAL TIMER)
00006C 00000000                     165+CVTQTD00 DC    A(0) -        RESERVED (NO INTERVAL TIMER)
000070 00000000                     166+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE
000074 10                           167+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM
000040                              168+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS
000020                              169+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS
000010                              170+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1
000004                              171+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING
000075 000000                       172+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC
000078 00000000                     173+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE
00007C 00000000                     174+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER
000080 00000000                     175+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS
000084 00000000                     176+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE
000088 00000000                     177+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER
00008C 00000000                     178+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE
000090 00000000                     179+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE
000094 00000000                     180+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT
                                    181+*                              DATA AREA (MVT/MFT)
000098 00000000                     182+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE
00009C 00000000                     183+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE
0000A0 00000000                     184+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE
0000A4 00000000                     185+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS
0000A8 00000000                     186+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)
0000AC 00000000                     187+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD
                                    188+*                              (0 IF GFX INACTIVE) MVT
0000B0 00000000                     189+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA
                                    190+*                              (MVT/MFT)
0000B4 0000                         191+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER
0000B6 00                           192+CVTOPTA  DC    AL1(00) -     MISCELLANEOUS FLAGS
000080                              193+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)
000040                              194+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --
                                    195+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000020                              196+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --
                                    197+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000010                              198+CVTNIP   EQU   X'10' -       NIP RUNNING
000008                              199+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)
000004                              200+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE
000002                              201+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT
000001                              202+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT
0000B7 00                           203+CVTOPTB  DC    AL1(00) - MISCELLANEOUS FLAGS
000080                              204+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)
000020                              205+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)
                                    206+*
                                    207+*              PCP OVERLAY
                                    208+*
0000B8                              209+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART
0000BB                              210+CVTSTUSA DS    B -           STATUS BYTE A
000008                              211+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART
                                    212+*                              WAS INITIATED INTRASTEP
000004                              213+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART
                                                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    214+*                              WAS INITIATED INTERSTEP
000002                              215+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM
                                    216+*                              AND DATA HAS NOT BEEN READ
0000BC                              217+         DS    CL2 -         RESERVED
0000BE                              218+         DS    CL2 -         RESERVED
                                    219+*
                                    220+*              MVT/MFT OVERLAY
                                    221+*
0000B8                              222+         ORG   CVTCRTTR
                                    223+*
0000B8 00000000                     224+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR
0000BC 00000000                     225+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE
                                    226+*
                                    227+*              END OF OVERLAYS
                                    228+*
0000C0 00000000                     229+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)
0000C4 00000000                     230+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA
0000C8 00000000                     231+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT
                                    232+*                              (MVT/MPS)
0000CC 00000000                     233+CVTUSER  DC    A(0) -        A WORD TO THE USER
                                    234+*
                                    235+*              MFT/MVT CVT EXTENSION
                                    236+*
0000D0 00000000                     237+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT
0000D4 0A0D                         238+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)
0000D6 0A06                         239+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)
0000D8 00000000                     240+CVTTSCE  DC    V(IEATSCE) -  ADDR OF FIRST TIME SLICE CONTROL ELEMENT
0000DC 00000000                     241+CVTPATCH DC    A(0) -        ADDR OF FE PATCH AREA
0000E0 00000000                     242+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA
                                    243+*                              (MVT/MFT)
0000E4                              244+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)
0000E4 00                           245+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)
000080                              246+CVTTSRDY EQU   X'80' -       TIME SHARING READY
0000E5 000000                       247+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)
0000E8 00000000                     248+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)
0000EC                              249+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)
0000EC 00                           250+CVTGTFST DC    B'0' -        STATUS FLAGS
0000C0                              251+CVTGTFS  EQU   X'C0' -       STATE
                                    252+*/       00    CVTGTFIN      INACTIVE
                                    253+*/       01    CVTGTFSR      STARTING
                                    254+*/       10    CVTGTFSP      STOPPING
                                    255+*/       11    CVTGTFAC      ACTIVE
000020                              256+CVTSTATE EQU   X'20' -       IN CONTROL
000010                              257+CVTMODE  EQU   X'10' -       EXT MODE
000008                              258+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA
000004                              259+CVTUSR   EQU   X'04' -       USR TRACE
000002                              260+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID
0000ED 000000                       261+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE
0000F0                              262+CVTTCMFG DS    0B -          TCAM FLAGS
000080                              263+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)
0000F0 00000000                     264+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF
                                    265+*                            TCAM ADDRESS VECTOR TABLE
                                    266+*
                                    267+*              MVT CVT EXTENSION
                                    268+*
                                                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000F4                              269+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE
                                    270+*                            (PWF)                               S21167
0000F4 80                           271+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY
                                    272+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167
000080                              273+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167
0000F5 000000                       274+CVTVOLT2 DC    AL3(0) -  PWF RECHECK TIME DELAY.  THIS VALUE IS
                                    275+*                            OVERLAID BY CVTVOLM2 AFTER PWF
                                    276+*                            INITIALIZATION                      S21167
0000F8 00000000                     277+         DC    A(0) -        RESERVED
                                    278+*
                                    279+*              MVT/MFT CVT EXTENSION
                                    280+*
0000FC 00000114                     281+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1
                                    282+*                            (ICB421)                APAR'S 47331,47332
000100                              283+         DS    F -           RESERVED
000104                              284+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE
000104                              285+         DS    X -           RESERVED
000105 000000                       286+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE
000108                              287+         DS    F -           RESERVED
00010C                              288+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307
00010C                              289+         DS    X -           RESERVED                            ICB307
00010D 000000                       290+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND
                                    291+*                            COMMUNICATION AREA                  ICB307
000110                              292+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308
000110                              293+         DS    X -           RESERVED                            ICB308
000111 000000                       294+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY
                                    295+*                            ROUTINE                             ICB308
                                    296+*
                                    297+*              COMMON EXTENSION 1
                                    298+*              ADDRESS OF EXTENSION IS IN CVTEXT1
                                    299+*
                                    300+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,
                                    301+*              YOU SHOULD CODE -
                                    302+*
                                    303+*              L     REG,CVTEXT1
                                    304+*              USING CVTXTNT1,REG
                                    305+*
                                    306+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.
                                    307+*
000114                              308+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1
                                    309+*                            (ICB421)                APAR'S 47331,47332
000114 00000000                     310+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS
                                    311+*                            (ISAM) (ICB421)         APAR'S 47331,47332
                                    312+*
                                    313+*              END OF CVT PROPER
                                    314+*
                                    315+*
                                    316+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT
                                    317+*
000000                              318+TSCVT    DSECT
000000                              319+TSCVTTJB DS    A .      POINTER TO TJB TABLE
000004                              320+TSCVTRCB DS    A .      POINTER TO RCB TABLE
000008                              321+TSCVTRPT DS    A .      PTR TO REFERENCE POINTER TABLE
00000C                              322+TSCVTFLG DS    X .      FLAGS TO INDICATE FUNCT REQUESTED OF TSC
00000D                              323+         DS    X
                                                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000080                              324+TSCSWPND EQU   X'80' .  SWAP ENDED
000040                              325+TSCSWPBG EQU   X'40' .  SWAP SHOULD BE STARTED
000020                              326+TSCLOGON EQU   X'20' .  A LOGON IS TO BE PROCESSED
000010                              327+TSCDISC  EQU   X'10' .  A DISCONNECT IS TO BE PROCESSED
                                    328+*        BITS  4-15     RESERVED
00000E                              329+TSCVTFL1 DS    X .      FLAGS TO INDICATE FUNCT REQUESTED OF TSC
00000F                              330+         DS    X
000080                              331+TSCSSTOP EQU   X'80' .  SYSTEM STOP REQUESTED AND TSC IS STOPPING
000040                              332+TSCRSTOP EQU   X'40' .  REGION STOP REQUESTED
000020                              333+TSCASTOP EQU   X'20' .  ABEND-STOP TS FLG. SET BY TSO/RMS IF TCAM MCH'S
                                    334+*                       SET BY TCAM STAE EXIT IF TCAM ABENDS
000010                              335+TSCLOGPR EQU   X'10' .  SET BY S02 WHEN NOT ENOUGH SWAP SPACE IS
                                    336+*                       ALLOCATED WHEN LOGON IMAGE BEING PROCESSED
                                    337+*        BITS  4-15     RESERVED
000010                              338+TSCVTSDC DS    A .      PTR TO 1ST DCB FOR SWAP DS
000014                              339+TSCVTCUS DS    1H .     CURR NO. OF USERS LOGGED ON TSO
000016                              340+TSCVTLUS DS    H .      CURRENT LIMIT NO. OF USERS LOGGED ON TO TSO
                                    341+*                       SET BY TSC
000018                              342+TSCVTNTJ DS    1H .     NO.TJB-TSB'S ALLOC BY TSO INITIALLY
00001A                              343+TSCVTSZU DS    1H .     SIZE OF TJB
00001C                              344+TSCVTCTR DS    1H .     NO. OF RCB'S ALLOC BY TSO INITIALLY
00001E                              345+TSCVTMUS DS    H .      MAX NUMBER OF USERS LOGGED ON TO TSO
                                    346+*                       SET BY START AND MODIFY COMMANDS (TSC)
000020                              347+TSCVTSAV DS    A .      PTR TO SAV AREA FOR TSC,TSIP&TS DISP
000024                              348+TSCVTECB DS    A .      PTR TO TSECBTAB CTL BLK OF ECB'S
000028                              349+TSCVTSIA DS    A .      PTR TO TSIA
00002C                              350+TSCVTICB DS    A .      PTR TO TSICB
000030                              351+TSCVTI01 DS    A .      ADDRESS OF ENTRY POINT IKJEAI01 TSIP BR ENTRY
000034                              352+TSCVTTQE DS    A .      PTR TO TQE FOR TSO'S TIME SLICING
000038                              353+TSCVTI02 DS    A .      ADDRESS OF ENTRY POINT IKJEAI02 IN TS DISPATCH
00003C                              354+TSCVTI03 DS    A .      ADDRESS OF ENTRY POINT IKJEAI03 IN TS DISPATCH
000040                              355+TSCVTD02 DS    A .      ADDRESS OF ENTRY POINT IKJEAD02 IN TS DRIVER
000044                              356+TSCVTLCQ DS    A .      ADDR OF TOP ELEM ON LOGON COMM. QUE
000048                              357+TSCVTTRB DS    A .      ADDR OF TRACE CTL BLK CHAIN
00004C                              358+TSCVTLPA DS    A .      ADDR OF 1ST CDE IN TS LINK PACK AREA
000050                              359+TSCVTSLF DS    1F .     SYSTEM INIATED LOGOFF
000054                              360+TSCVTTSC DS    A .      ADDR OF THE  TSC TASK'S TCB. (TSC)
000058                              361+TSCVTSPL DS    A .      ADDRESS OF START PARAMETER LIST
00005C                              362+TSCVTRSZ DS    H .      MIN REGION SIZE FOR LOGON
00005E                              363+         DS    CL2 .    RESERVED
000060                              364+TSCVTSVT DS    CL4 .    SVCTBL ENTRY FOR TSIP PRIOR TO START TS
000064                              365+TSCVTSVQ DS    CL4 .    SVCTBL ENTRY FOR QTIP PRIOR TO START TS
000068                              366+TSCVTABN DS    A .      ADDR OF OUT-OF-CORE ABEND RTN(IKJEAT07)
00006C                              367+TSCVTD03 DS    A .      ADDR OF EP IKJEAD03 IN TS DRIVER
000070                              368+TSCVTFLM DS    A .      ADDRESS OF ENTRY POINT - IKJEFLM
000074                              369+TSCVTQTP DS    A .      ADDRESS OF ENTRY FOR QTIP SVC - IKJGGQT1
000078                              370+TSCVTT08 DS    A .      ENTRY POINT ADDRESS OF IKJEAT08
00007C                              371+TSCVTDMP DS    A .      ADDRESS OF TSO DUMP CONTROL BLOCK-IKJTSDMP
000080                              372+TSCVTT06 DS    A .      ADDRESS OF TCB FOR IKJEAT06
000084                              373+TSCVTLS3 DS    A .      ADDRSS OF LOGON OUT OF CORE ABEND RTN
                                    374+**/
000000                              375+TJB      DSECT
000000                              376+TJBTSB   DS    A .       ADDR OF TSB FOR THIS JOB,0-STARTED BY OPERATOR
000004                              377+TJBATTN  DS    CL1 .     NUMBER OF UNPROCESSED ATTNS FOR THIS JOB
000005                              378+TJBSTAX  DS    CL1 .     NUMBER OF STAX EXITS YET UNSCHEDULED
                                                                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000006                              379+TJBSTAT  DS    X .       STATUS FLAGS
000080                              380+TJBNJB   EQU   X'80' .   NO JOB,THIS TJB IS CURRENTLY UNUSED
000040                              381+TJBINCOR EQU   X'40' .   USER IN CORE
000020                              382+TJBLOGON EQU   X'20' .   LOGON START,SET BY TIOC AT DIAL-UP,TSC RESET
000010                              383+TJBIWAIT EQU   X'10' .   INPUT WAIT,TERMINAL JOB IS IN INPUT WAIT
000008                              384+TJBOWAIT EQU   X'08' .   OUTPUT WAIT,TERMINAL JOB IS IN OUTPUT WAIT
000004                              385+TJBSILF  EQU   X'04' .   SYSTEM INITIATED LOGOFF
000002                              386+TJBDISC  EQU   X'02' .   DISCONNECT SET TO REQUEST TIOC TO DISCON LINE
000001                              387+TJBSILF2 EQU   X'01' .   SYSTEM INITIATED LOGOFF
000007                              388+TJBSTAT2 DS    X .       STATUS FLAGS
000080                              389+TJBHUNG  EQU   X'80' .   HUNG UP
000040                              390+TJBHOLD  EQU   X'40' .   USER IS IN OWAIT DUE TO HOLD OPTIONS
000020                              391+TJBOCAB  EQU   X'20' .   TSO FAILURE RESULTING IN OUT-OF-CORE ABEND
000010                              392+TJBRNAV  EQU   X'10' .   USER CANNOT BE LOGGED ON BECAUSE MACHINE CHECK
                                    393+*                        IN REGION OR NO REGION LARGE ENOUGH
000008                              394+TJBSURSV EQU   X'08' .   ON NEXT SWAP IN, DO NOT MARK SWAP UNIT
                                    395+*                        AVAILABLE FOR USE.
000004                              396+TJBQUIS  EQU   X'04' .   QUIESCE STARTED FOR USER
000002                              397+TJBUSERR EQU   X'02' .   USER READY TO RUN
000001                              398+TJBDEAD  EQU   X'01' .   INDICATE ABEND RECURSION TO IKJEAT07
000008                              399+TJBEXTNT DS    A .       POINTER TO TJB IN SWAPPED OUT JOB IMAGE
00000C                              400+TJBRCB   DS    A .       POINTER TO RCB FOR THIS REGION
000010                              401+TJBUMSM  DS    A .       POINTER TO UMSM
000014                              402+TJBSDCB  DS    A .       POINTER TO SWAP DCB FOR THIS USER
000018                              403+TJBUTTMQ DS    H .       OFFSET IN TT MAP OF TT MAP Q FOR THIS USER
000080                              404+TJBUTTMP EQU   X'80' .   IF ON INDICATES PARALLEL SWAP
00001A                              405+TJBRSTOR DS    X .       RESTORE FLAGS, TESTED BY RCT RESTORE
000080                              406+TJBOWP   EQU   X'80' .   POST OUTPUT WAIT,SET BY TIOC,ENDS AN OWAIT
000040                              407+TJBIWP   EQU   X'40' .   POST INPUT WAIT,SET BY TIOC,ENDS AN IWAIT
                                    408+*        EQU   X'20' .   RESERVED
000010                              409+TJBLOGP  EQU   X'10' .   POST LOGON,POST ECB WAITED ON BY LOGON IMAGE
000008                              410+TJBLWAIT EQU   X'08' .   USER IN LONG WAIT,SWAP OUT IF NOT MADE READY
                                    411+*                        BY RESTORE PROCESSING
000004                              412+TJBDDRD  EQU   X'04' .   WHEN ON RESTORE WILL RESET DDR NON      A41399
                                    413+*                        DISPATCHABILITY BIT                     A41399
000002                              414+TJBFAT   EQU   X'02' .   AN ATTN EXIT IS REQ FOR THIS USER
000001                              415+TJBDDRND EQU   X'01' .   INDICATES TO RESTORE TO SET TCB NON     A41399
                                    416+*                        DISPATCHABLE WHEN JOB SWAPPED IN        A41399
00001B                              417+TJBUMSMN DS    CL1 .     NUMBER OF MAP ENTRIES IN UMSM
00001C                              418+TJBUSER  DS    CL8 .     USERID OF THIS JOB OWNER,PADDED RT WITH BLANKS
000024                              419+TJBIPPB  DS    F .       IPPB CHAIN OF ECB'S TO BE POSTED BY RESTORE
000028                              420+TJBNEWID DS    CL1 .     RGN ID INTO WHICH THIS USER SHOULD BE LOGGED
                                    421+*                        ON. 0 IF SELECTED BY DRIVER
000029                              422+TJBFLUSL DS    CL1 .     STAX LEV OF LAST STAX ISSUED WITH NOPURGE
                                    423+*                        OPTION
00002A                              424+TJBTJID  DS    CL2 .     TERMINAL JOB ID
00002C                              425+TJBMONI  DS    X .       MONITOR CMD INDICATING INFO REQUESTED
000080                              426+TJBMDSN  EQU   X'80' .   DSNAMES
000040                              427+TJBMJBN  EQU   X'40' .   JOBNAMES
000020                              428+TJBMSES  EQU   X'20' .   SESSION
000010                              429+TJBMSPA  EQU   X'10' .   SPACE
000008                              430+TJBMSTA  EQU   X'08' .   STATUS
000004                              431+TJBGETBF EQU   X'04' .   THIS BIT INDICATES TPUT SHOULD ATTEMPT TO GET
                                    432+*                        ADDITIONAL BUFFERS FOR USER BEFORE GOING INTO
                                    433+*                        A WAIT STATE
                                                                                                               PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00002D                              434+TJBSTAT3 DS    X .       STATUS FLAGS
000080                              435+TJBDISC2 EQU   X'80' .     INDICATES TO IKJEAT03 WE ARE DISCONNECTING
                                    436+*                        THIS TJB AND NEXT TIME THRU IF THIS BIT IS
                                    437+*                        ON DO NOT DECREMENT RCB USE COUNT
000004                              438+TJBSOEM  EQU   X'04' .   SWAP OUT ERROR MESSAGE RECURSION FLG    A44022
00002E                              439+TJBLINE  DS    CL2 .     CONTAINS BINARY REP OF THE UNIT ADDRESS OF
                                    440+*                        THE LINE BEING USED.
000030                              441+TJBEND   DS    0F
                                    442+**/
000000                              443+TJBX     DSECT
000000                              444+TJBXFST  DS    A . ADDR LOGON TCB WHICH IS FIRST IN USER READY QUEUE
000004                              445+TJBXLAST DS    A . ADDR LAST TCB IN USER READY QUEUE
000008                              446+TJBXDSE  DS    A . ADDR OF DSE USED BY TSO'S DYN ALLOC
00000C                              447+TJBXSVRB DS    A . ADDR FIRST SVRB PURGED FROM TRANSIENT AREA QUEUE
000010                              448+TJBXRQE  DS    A . ADDR FIRST RQE PURGED FROM ASYNCHRONOUS EXIT QUEUE A
000014                              449+TJBXIQE  DS    A . ADDR FIRST IQE PURGED FROM ASYNCHRONOUS EXIT QUEUE J
000018                              450+TJBXTAXE DS    F . QUEUE OF TAXE'S USED TO SCHEDULE ATTENTION EXITS
00001C                              451+TJBXLECB DS    F . LOGON ECB POSTED BY RCT
000020                              452+TJBXPSWD DS    CL8 USERS LOGON PASSWORD-IF BLANK-NOT REQUIRED
000028                              453+TJBXATTR DS    1F .PTR TO CHAIN OF ATTRIBUTE CONTROL BLOCKS USED  99236
                                    454+*                  BY DYN ALLOC & CONTAINS DCB INFO FOR ATTRIB COMMAND
00002C                              455+TJBXAIQE DS    A . ADDR ATTN IQE CURRENTLY BEING PROCESSED
000030                              456+TJBXQPL  DS    A . ADDR QUIECSE PARM LIST
000034                              457+TJBXNQPE DS    H . NUMBER ENTRIES IN QPL
000036                              458+TJBXNTCB DS    H . NUMBER TCBS ACTIVE IN USER JOB STEP
000038                              459+TJBXLQPL DS    H . LENGTH QPL
00003A                              460+TJBXHBFL DS    CL1 CUR VAL OF LAST HOLDBUF LEVEL. USED BY STAX
                                    461+*                  SVC ROUTINE
00003B                              462+         DS    CL1 RESERVED
00003C                              463+TJBXACT  DS    1F .TTR OF ACT ON SYSJOBQE
000040                              464+TJBXAECB DS    A . POINTER TO LOGON/LOGOFF ECB UNTIL LOGON PROCESSING
                                    465+*                  THEN TO CSCB CANCEL ECB AFTER CSCB IS CREATED
000044                              466+TJBXKEYA DS    A . ADDRESS OF A STORAGE KEY SAVE AREA- THIS IS
                                    467+*                  OBTAINED AND USED BY THE RCT
                                    468+**/
                                    469+***********************************************************************
                                    470+*                                                                     *
                                    471+*  NAME        ***** JOB/STEP CONTROL BLOCK *****                     *
                                    472+*                                                                     *
                                    473+*  FUNCTION    COMMUNICATION OF JOB OR STEP RELATED DATA ITEMS        *
                                    474+*                                                                     *
                                    475+*  ACCESSING        L     REG,TCBJSCB                                 *
                                    476+*  PROCEDURE        USING IEZJSCB,REG                                 *
                                    477+*                                                                     *
                                    478+*  NOTE        IN ADDITION TO THE MANDATORY USE OF THIS MACRO FOR     *
                                    479+*              REFERENCES TO THE JSCB, MODULES IN MFT OR MVT WHICH    *
                                    480+*              ALLOCATE AND/OR FREE THE JSCB ARE REQUIRED TO USE      *
                                    481+*              THE GETJSCB AND FREEJSCB MACROS.                       *
                                    482+*                                                                     *
                                    483+*  RELEASE 20.2, 4/05/71, LEVEL=1                                     *
                                    484+*  RELEASE 21, 08/05/71, LEVEL=3                                      *
                                    485+***********************************************************************
000000                              486+IEZJSCB  DSECT
0000F0                              487+         ORG   IEZJSCB+240 -  ALLOWS ADDRESSIBILITY FROM TCBJSCB ICB359
                                                                                                               PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    489+*---------------------------------------------------------------------*
                                    490+*                                                                     *
                                    491+*  SECTION 1   DATA ITEMS USED IN PCP, MFT, AND MVT                   *
                                    492+*                                                                     *
                                    493+*---------------------------------------------------------------------*
0000F0                              494+JSCBSEC1 EQU   * -            START OF JSCB SECTION 1

0000F0                              496+JSCBTTTR DS    XL3 -          JOB Q ADDRESS (TTR) OF TIOT EXTENSION
0000F3                              497+JSCBSWT1 DS    B -            STATUS SWITCHES
000080                              498+JSCBPASS EQU   X'80' -        WHEN THIS BIT IS SET TO ONE AND A
                                    499+*                             CORRESPONDING BIT IN THE DCB IS SET TO
                                    500+*                             ONE THE OPEN WILL BYPASS PASSWORD
                                    501+*                             PROTECTION FOR THE DATA SET BEING OPENED
000020                              502+JSCBLONG EQU   X'20' -        LONG RUNNING TASK IN PARTITION -
                                    503+*                             FAIL REDEFINE  (MFT)               ICB359
0000F4                              504+JSCBQMPI DS    A -            ADDRESS OF THE QMPA FOR THE JOB'S INPUT
                                    505+*                             QUEUE TABLE ENTRIES
0000F8                              506+JSCBQMPO DS    A -            ADDRESS OF THE QMPA FOR THE JOB'S OUTPUT
                                    507+*                             MSGCLASS QUEUE ENTRY
0000FC                              508+JSCBWTP  DS    A -            ADDRESS OF WRITE-TO-PROGRAMMER
                                    509+*                             WORK AREA USED FOR WRITING MESSAGES
                                    510+*                             TO THE JOB'S SYSOUT LISTING

000010                              512+JSCBS1LN EQU   (*-JSCBSEC1) - LENGTH OF SECTION 1

                                    514+*---------------------------------------------------------------------*
                                    515+*                                                                     *
                                    516+*  SECTION 2   DATA ITEMS USED IN BOTH MFT AND MVT                    *
                                    517+*                                                                     *
                                    518+*---------------------------------------------------------------------*
000100                              519+JSCBSEC2 EQU   * -            START OF JSCB SECTION 2

000100                              521+JSCBCSCB DS    A -            ADDRESS OF CSCB USED FOR PROCESSING
                                    522+*                              COMMANDS RECEIVED FOR JOB
000104                              523+JSCBJCT  DS    0F -           SAME AS JSCBJCTA BELOW
000104                              524+         DS    X -            RESERVED
000105                              525+JSCBJCTA DS    CL3 -          TTR OF JOB'S JCT

000008                              527+JSCBS2LN EQU   (*-JSCBSEC2) - LENGTH OF SECTION 2

                                    529+*---------------------------------------------------------------------*
                                    530+*                                                                     *
                                    531+*  SECTION 3   DATA ITEMS USED ONLY IN PCP                            *
                                    532+*                                                                     *
                                    533+*---------------------------------------------------------------------*
000100                              534+         ORG   JSCBSEC2
000100                              535+JSCBSEC3 EQU   * -            START OF JSCB SECTION 3

                                    537+*  CURRENTLY NO PCP ONLY DATA ITEMS

000000                              539+JSCBS3LN EQU   (*-JSCBSEC3) -

                                    541+*---------------------------------------------------------------------*
                                    542+*                                                                     *
                                    543+*  SECTION 4   DATA ITEMS USED ONLY IN MFT                            *
                                                                                                               PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    544+*                                                                     *
                                    545+*---------------------------------------------------------------------*
000108                              546+         ORG   JSCBSEC2+JSCBS2LN
000108                              547+JSCBSEC4 EQU   * -            START OF JSCB SECTION 4

                                    549+*  CURRENTLY NO MFT ONLY DATA ITEMS

000000                              551+JSCBS4LN EQU   (*-JSCBSEC4) - LENGTH OF SECTION 4

                                    553+*---------------------------------------------------------------------*
                                    554+*                                                                     *
                                    555+*  SECTION 5   DATA ITEMS USED ONLY IN MVT                            *
                                    556+*                                                                     *
                                    557+*---------------------------------------------------------------------*
000108                              558+         ORG   JSCBSEC4
000108                              559+JSCBSEC5 EQU   * -            START OF JSCB SECTION 5

000108                              561+JSCBPSCB DS    A -            ADDRESS OF TSO PROTECTED STEP CONTROL
                                    562+*                             BLOCK
00010C                              563+JSCBTJID DS    H -            TSO TERMINAL JOB IDENTIFIER
00010E                              564+         DS    XL2 -          RESERVED
000110                              565+JSCBIECB DS    F -            ECB USED FOR COMMUNICATION BETWEEN
                                    566+*                             DYNAMIC ALLOCATION AND THE INITIATOR
                                    567+*                             IN ORDER TO PERFORM DATA SET INTEGRITY

00000C                              569+JSCBS5LN EQU   (*-JSCBSEC5) - LENGTH OF SECTION 5

                                    571+*---------------------------------------------------------------------*

0000F0                              573+JSCBDISP EQU   (256-JSCBS1LN) -    DISPLACEMENT OF FIRST JSCB DATA BYTE
000018                              574+JSCBMFTL EQU   JSCBS1LN+JSCBS2LN+JSCBS4LN -  MFT JSCB LENGTH
000024                              575+JSCBMVTL EQU   JSCBS1LN+JSCBS2LN+JSCBS5LN -  MVT JSCB LENGTH
                                    576+***********************************************************************
                                    577+*              END OF JSCB
                                    578+* ENTRY AND EXTRN STATEMENTS


                                    580+         ENTRY IGC044
                                    581+*
                                    582+*ROUTINE NAME-           IGC044- CHAP -  SVC ROUTINE
                                    583+*
                                    584+*FUNCTIONS-              TO CHANGE THE DISPATCHING PRIORITY
                                    585+*                        OF THE TASK ISSUING THE CHAP MACRO
                                    586+*                        INSTRUCTION OR ANY OF IT'S SUBTASKS.
                                    587+*                        FOR SWAPPABLE TSO TASKS, THE TS DISPAT-  20021
                                    588+*                        CHING PRIORITY OF THE TASK BEING CHAP-   20021
                                    589+*                        PED IS MODIFIED AND THE TASK IS RE-      20021
                                    590+*                        STRUNG ON THE TCB READY QUEUE WITHIN     20021
                                    591+*                        THE 'SUBGROUP' OF USERS TASKS FOR A      20021
                                    592+*                        PARTICULAR REGION. NOTE-THE FIRST SUCH   20021
                                    593+*                        TASK OF A 'SUBGROUP' IS NOT TO BE CHAP-  20021
                                    594+*                        PED AND MUST REMAIN FIRST ON THE 'SUB-   20021
                                    595+*                        GROUP' QUEUE.                            20021
                                    596+*
                                    597+*
                                                                                                               PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    598+*
                                    599+*ENTRY POINT NAMES-      IGC044- CHAP-   SVC ENTRY POINT
                                    600+*
                                    601+*CONTAINED IN MODULE-    IEAQTB00- TASK CONTROL BLOCK EFFECTOR
                                    602+*
                                    603+*ATTRIBUTES-             RESIDENT,RE-ENTRANT,SUPERVISOR STATE,
                                    604+*                        TYPE 1 SVC ROUTINE
                                    605+*
                                    606+*APPLICABILITY-          OPTION 4 ONLY
                                    607+*
                                    608+*EXTERNAL REFERENCES-    IEATCBP- LOCATION 'NEW' AND'OLD'
                                    609+*                        IEABTERM- ABTERM
                                    610+*                        SVCXT- TYPE 1 SVC EXIT ROUTINE
                                    611+*                        IEAHEAD- TCB AT THE TOP OF THE READY QUEUE
                                    612+*
                                    613+*SVC'S USED-             NONE
                                    614+*
                                    615+*INPUT-                  REGISTER 0 CONTAINS THE NUMERIC VALUE
                                    616+*                        BY WHICH THE SPECIFIED TCB'S DISPATCHING
                                    617+*                        PRIORITY IS TO BE ALTERED.
                                    618+*
                                    619+*                        REGISTER 1 CONTAINS A POINTER TO A FULLWORD
                                    620+*                        WHICH CONTAINS THE ADDRESS OF THE TCB TO BE
                                    621+*                        CHAPPED.  IF REGISTER 1 CONTAINS ZERO,
                                    622+*                        THE REQUESTORS TCB WILL BE CHAPPED.
                                    623+*
                                    624+*
                                    625+* EXAMPLES OF MACRO EXPANSIONS
                                    626+*
000000                              627+DUMMY3   DSECT
000000                              628+         USING *,1


                                    630+* EXAMPLE 1.........SPECIFIES THAT REGISTERS 0 AND 1 HAVE BEEN PRE-
                                    631+*                   LOADED. REGISTER 1 INDICATES,IF PRE-LOADED WITH
                                    632+*                   ZERO, THAT THE ISSUING TASK'S TCB IS TO BE CHAPPED.
                                    633+*                   A NON-ZERO SPECIFIES A SUB-TASK TO BE CHAPPED.
                                    634+*                   REGISTER  0 INDICATES THE VALUE BY WHICH THE
                                    635+*                   DISPATCHING PRIORITY OF THE INDICATED TCB IS TO
                                    636+*                   BE ALTERED.


                                    638+*        CHAP  (0),(1)                                            20021
000000 0A2C                         639+         SVC   44 ISSUE CHAP SVC


                                    641+* EXAMPLE 2.........MAY INCREASE THE DISPATCHING PRIORITY OF THE
                                    642+*                   ISSUING TASK BY 10.


                                    644+*        CHAP  10,'S'                                             20021
000002 1B11                         645+         SR    1,1 NO SUBTASK TCBLOC
000004 4100 000A            0000A   646+         LA    0,10 LOAD VALUE
000008 0A2C                         647+         SVC   44 ISSUE CHAP SVC
                                                                                                               PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    649+* EXAMPLE 4.........MAY INCREASE OR DECREASE THE DISPATCHING
                                    650+*                   PRIORITY OF THE ISSUING TASK.


                                    652+*        CHAP  (0),'S'                                            20021
00000A 1B11                         653+         SR    1,1 NO SUBTASK TCBLOC
00000C 0A2C                         654+         SVC   44 ISSUE CHAP SVC


                                    656+*        THE ABOVE MACRO EXPANSIONS ARE NOT TO BE MISCONSTRUED
                                    657+*   AS BEING AN EXECUTABLE PORTION OF THIS CHAP SVC SERVICE ROUTINE.
                                    658+*   THESE MACRO EXPANSIONS SERVE ONLY TO ILLUSTRATE WHAT SOME OF
                                    659+*   THE VARIOUS FORMS OF THE EXPANSION LOOK LIKE.
                                    660+*OUTPUT-                 NONE
                                    661+*
                                    662+*ENTRY POINTS-         1.IGC044- CHAP-   SVC ROUTINE ENTRY POINT.
                                    663+*                        GIVEN CONTROL BY THE SVC FIRST LEVEL
                                    664+*                        INTERRUPT HANDLER (FLIH) VIA AN LPSW,
                                    665+*                        IN ORDER TO PERFORM THE CHAP FUNCTION
                                    666+*                        REQUESTED BY THE CALLER. AN SVC 44
                                    667+*                        IS ISSUED BY THE CALLER.
                                    668+*
                                    669+*                      2.THE PSW MUST BE
                                    670+*                        DISABLED FOR ALL MASKABLE INTERRUPTS
                                    671+*                        EXCEPT MACHINE CHECK,IN SUPERVISOR
                                    672+*                        MODE AND HAVE SUPERVISOR PROTECT KEY.
                                    673+*
                                    674+*                      3.THE REGISTERS CONTAIN.
                                    675+*
                                    676+*                        REGISTER 1 CONTAINS A POINTER TO A FULLWORD
                                    677+*                        WHICH CONTAINS THE ADDRESS OF THE TCB TO BE
                                    678+*                        CHAPPED.  IF REGISTER 1 CONTAINS ZERO, THE
                                    679+*                        REQUESTOR WILL BE CHAPPED.
                                    680+*                        REGISTER  0 CONTAINS THE VALUE BY
                                    681+*                        WHICH THE SPECIFIED DISPATCHING PRIORITY IS
                                    682+*                        TO BE ALTERED.
                                    683+*
                                    684+*                        REGISTERS   2,6-12 AND 15 CONTAIN
                                    685+*                        THE CONTENTS AT THE TIME SVC 44 WAS
                                    686+*                        GIVEN.
                                    687+*
                                    688+*                        REGISTER 3 CONTAINS THE ADDRESS OF THE
                                    689+*                        CVT TABLE.
                                    690+*
                                    691+*                        REGISTER 4 CONTAINS THE ADDRESS OF THE
                                    692+*                        CURRENT TCB.
                                    693+*
                                    694+*                        REGISTER 5 CONTAINS THE ADDRESS OF THE
                                    695+*                        RB AT THE TOP OF THE RB QUEUE.
                                    696+*
                                    697+*                        REGISTER 14 CONTAINS THE RETURN
                                    698+*                        ADDRESS OF THE CALLER.IN THE
                                    699+*                        CASE OF THE SVC FLIH BEING THE
                                    700+*                        CALLER REGISTER 14 CONTAINS
                                    701+*                        THE ADDRESS OF THE TYPE 1 SVC
                                                                                                               PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    702+*                        EXIT ROUTINE.(SVCXT)
                                    703+*
                                    704+*EXIT POINT-           1.TO THE CALLING ROUTINE VIA
                                    705+*                        A BRANCH REGISTER 14.
                                    706+*
                                    707+*                      2.THE PSW IS.
                                    708+*                        DISABLED FOR ALL MASKABLE INTERRUPTS
                                    709+*                        EXCEPT MACHINE CHECK,IN SUPERVISOR
                                    710+*                        MODE AND HAVE SUPERVISOR PROTECT KEY
                                    711+*                        OF 0.
                                    712+*
                                    713+*                      3.REGISTER 13 CONTAINS THE ADDRESS OF THE
                                    714+*                        ABTERM ROUTINE.
                                    715+*
                                    716+*ERROR EXIT POINTS-    1.TO ABTERM IN ORDED TO CAUSE THE ISSUING
                                    717+*                        TASK TO BE TERMINATED.
                                    718+*
                                    719+*                      2.THE PSW IS.
                                    720+*                        DISABLED FOR ALL MASKABLE INTERRUPTS
                                    721+*                        EXCEPT FOR MACHINE CHECK, IN SUPERVISOR
                                    722+*                        MODE AND HAVE A PROTECT KEY OF 0.
                                    723+*
                                    724+*                      3.REGISTER 1 WILL CONTAIN THE ERROR CODE.
                                    725+*
                                    726+*                      4.REGISTERS 0,3-5    AND 14 CONTAIN THE
                                    727+*                        INFORMATION IN THEM AT THE TIME SVC
                                    728+*                        44 WAS GIVEN CONTROL.
                                    729+*
                                    730+*                      5.THE ERROR CODE IS.
                                    731+*                        X'012C' ERROR # 1 THE ADDRESS OF THE
                                    732+*                                          INPUT SUB-TASK IS
                                    733+*                                          INVALID OR TASK IS
                                    734+*                                          COMPLETE.
                                    735+*                       X'022C' ERROR # 2  INPUT ADDRESS OF PTR
                                    736+*                                          TO TCB TO BE CHAP-
                                    737+*                                          ED IS INVALID.
                                    738+*
                                    739+*                      6.REGISTER 13 CONTAINS THE ADDRESS OF THE
                                    740+*                        ABTERM ROUTINE.
                                    741+*
                                    742+*TABLES AND CONTROL
                                    743+*BLOCKS REFERENCED-    1.TCB TASK CONTROL BLOCK
                                    744+*                        THE CONTROLING BLOCK UNDER WHICH
                                    745+*                        THE TASK IS OPERATING.
                                    746+*
                                    747+*                        TCBLMP- LIMIT PRIORITY,
                                    748+*                                TESTED AND SET BY CHAP.
                                    749+*
                                    750+*                        TCBDSP- DISPATCHING PRIORITY,
                                    751+*                                SET BY CHAP.
                                    752+*
                                    753+*                        TCBTCB- POINTER TO NEXT TCB ON READY QUEUE,
                                    754+*                                TESTED AND SET BY CHAP.
                                    755+*
                                    756+*                        TCBFC,TCBFWFPK,TCBFRO,TCBFCKT,TCBFTMWT,
                                                                                                               PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    757+*                        TCBFCD1,TCBNOP. NON-DISPATCHABILITY FLAGS
                                    758+*                        TESTED BY CHAP.
                                    759+*
                                    760+*                        TCBTSTSK-FLAG TESTED BY TSO CHAP.        20021
                                    761+*                        ON INDICATES A SWAPPABLE TSO TASK.       20021
                                    762+*                                                                 20021
                                    763+*TCBLTC-                 FIRST SUB-TASK TCB ADDRESS,
                                    764+*                                TESTED BY CHAP.
                                    765+*TCBNTC-                 POINTER TO NEXT SUB-TASK,
                                    766+*                                TESTED BY CHAP.
                                    767+*
                                    768+*                        TCBRBP- POINTER TO RB,
                                    769+*                                TESTED BY CHAP.
                                    770+*
                                    771+*                        TCBTSFLG- FLAG FIELD FOR TSO             20021
                                    772+*                                  TESTED BY CHAP                 20021
                                    773+*                        TCBTSLP - TIME SHARING LIMIT PRIORITY    20021
                                    774+*                                  TESTED AND MODIFIED BY CHAP    20021
                                    775+*                        TCBTSDP - TIME SHARING DISP. PRIORITY    20021
                                    776+*                                  TESTED AND MODIFIED BY CHAP    20021
                                    777+*                        TCBJSCB - PTR. TO JOB STEP CTRL. BK.     20021
                                    778+*                                - ACCESSED BY TSO CHAP           20021
                                    779+*                                                                 20021
                                    780+*                      2.RB REQUEST BLOCK
                                    781+*                        THE CONTROLING BLOCK UNDER WHICH
                                    782+*                        THE ROUTINE IS OPERATING.
                                    783+*
                                    784+*                        RBWCF- RB WAIT COUNT FIELD,
                                    785+*                               TESTED BY CHAP.
                                    786+*
                                    787+*                      3.IEATCBP- DOUBLE WORD CONTAING TCB POINTERS,
                                    788+*                                 FIRST WORD 'NEW' ALTERED WHEN
                                    789+*                                 CHAP FINDS A HIGHER PRIORITY TASK.
                                    790+*
                                    791+*LIST ORIGINS,TABLES
                                    792+*AND CONTROL BLOCKS-     NONE
                                    793+*
                                    794+*CONTROL BLOCKS FOR TSO-                                          20021
                                    795+*                                                                 20021
                                    796+*                      1. COMMUNICATIONS VECTOR TABLE             20021
                                    797+*                      2. TIME SHARING SECONDARY CVT              20021
                                    798+*                      3. TIME SHARING JOB BLOCK                  20021
                                    799+*                      4. TIME SHARING JOB BLOCK EXTENTION        20021
                                    800+*                      5. JOB STEP CONTROL BLOCK                  20021
                                    801+*                                                                 20021
                                    802+*RESTRICTIONS ON
                                    803+*USE OF ROUTINE-       1.THE DISPATCHING PRIORITY OF A TASK
                                    804+*                        MUST BE EQUAL TO IT'S OWN LIMIT PRIORITY
                                    805+*                        OR BETWEEN IT'S OWN LIMIT PRIORITY AND 0.
                                    806+*                      2.A TASK ATTEMPTING TO CHANGE ITS
                                    807+*                        OWN DISPATCHING PRIORITY TO A NEGITIVE
                                    808+*                        VALUE WILL CAUSE THE DISPATCHING PRIORITY
                                    809+*                        TO BE SET TO ZERO.
                                    810+*                      3.A TASK ATTEMPTING TO INCREASE IT'S OWN
                                    811+*                        DISPATCHING PRIORITY TO A VALUE GREATER
                                                                                                               PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    812+*                        THAN IT'S LIMIT PRIORITY WILL CAUSE THE
                                    813+*                        DISPATCHING PRIORITY TO BE SET EQUAL TO
                                    814+*                        THE EXISTING LIMIT PRIORITY.
                                    815+*                      4.A TASK MAY CHANGE THE DISPATCHING PRIORITY
                                    816+*                        OF A SUBTASK UP TO IT'S OWN LIMIT PRIORITY.
                                    817+*                        IF THE LIMIT OF THE SUBTASK IS LESS THAN
                                    818+*                        THE DISPATCHING PRIORITY ESTABLISHED BY
                                    819+*                        CHAP,CHAP WILL ALSO SET THE LIMIT PRIORITY
                                    820+*                        OF THE SUBTASK TO THE DISPATCHING PRIORITY
                                    821+*                        OF THE SUBTASK.
                                    822+*
                                    823+*NOTES-                  IF THE DISPATCHING PRIORITY OF THE
                                    824+*                        ISSUING TASK IS REDUCED BELOW THAT OF
                                    825+*                        ANOTHER TASK WAITING FOR CONTROL THIS
                                    826+*                        OTHER TASK WILL GET CONTROL IMMEDIATELY
                                    827+*                        AFTER CHAP.
                                    828+*                          IF A SUPERVISOR ROUTINE IS AWARE
                                    829+*                        THAT IT IS REFERENCING DATA WHO'S
                                    830+*                        STORAGE KEY IS VALID BUT WILL NOT
                                    831+*                        PASS THE VALIDITY CHECK ROUTINE
                                    832+*                        EMPLOYED BY THIS ROUTINE ,A BRANCH
                                    833+*                        ENTRY SHOULD BE USED.  THAT IS
                                    834+*                        THIS ROUTINE'S ADDRESS + 12.
                                    835+*
                                                                                                               PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              837+IGC044   CSECT
                                    838+* CHAP ROUTINE (SVC 44)
                                    839+*  CHAP ROUTINE
                                    840+*        THIS ROUTINE CHANGES THE DISPATCHING PRIORITY OF REQUESTING
                                    841+* TCB OR DAUGHTER TCB. IF INPUT REGISTER (1) IS 0 CHAP REQUESTING TCB.
                                    842+*IF THE REQUESTOR HAS A NON-ZERO PROTECT KEY, THE CONTENTS OF REGISTER
                                    843+*ONE ARE VALIDITY CHECKED IF IT IS NOT ZERO.  IN ADDITION, THE TCB
                                    844+*POINTED TO FROM THE PARAMETER LIST IS CHECKED TO ENSURE THAT IT IS
                                    845+*A SUBTASK OF THE REQUESTOR AND IS STILL ACTIVE.  FAILURE OF ANY OF
                                    846+*THESE TESTS CAUSES THE REQUESTOR TO BE ABTERMED.
                                    847+*        AFTER FINDING THE TCB TO CHAP, ADD INPUT CHAP VALUE (REGISTER
                                    848+* 0) AND DISPATCHING PRIORITY OF REQUESTING TCB OR DAUGHTER, WHICH EVER
                                    849+* SPECIFIED BY INPUT REGISTER. IF RESULTING TOTAL IS 0 OR LESS, 0 IS
                                    850+* PUT IN THE DISPATCHING PRIORITY OF THE CHAP TCB. IF RESULT IS NOT 0
                                    851+* OR LESS IT IS COMPARED WITH THE LIMIT PRIORITY OF THE REQUESTING TCB
                                    852+* AND THE SMALLER VALUE IS STORED IN THE DIS. PRIORITY FIELD OF CHAP'D
                                    853+* TCB.
                                    854+*        NEXT COMPARE DISPATCHING PRIORITY AND LIMIT PRIORITY OF CHAP
                                    855+* TCB. IF DISPATCH PRIORITY IS EQUAL OR LESS GO TO REQUEUE TCB. IF NOT
                                    856+* EQUAL OR LESS, PROPAGATE DISPATCHING PRIORITY TO LIMIT PRIORITY IN
                                    857+* CHAP TCB.
                                    858+*        NOW REQUEUE CHAP TCB IN TCB READY QUEUE BY IT'S DISPATCHING
                                    859+* PRIORITY. QUEUE IT JUST ABOVE A TCB OF LOWER DISPATCHING PRIORITY OR
                                    860+* AT THE END OF QUEUE IF LOWER DISPATCHING PRIORITY NOT FOUND.
                                    861+*        WHILE TESTING TCB'S TO FIND POSITION OF CHAP TCB IN QUEUE,
                                    862+* CHECK IF HIGHER PRIORITY TCB HAS BEEN MADE READY. IF A TCB OF HIGHER
                                    863+* PRIORITY IS FOUND PUT IT'S ADDRESS IN 'NEW' AND SET INDICATER SO
                                    864+* 'NEW' WILL NOT BE CHANGED AGAIN BY CHAP.
                                    865+*        CHAP MAXIMUM OF 255 OR MINIMUM OF MINUS 255.
                                    866+*        FOR SWAPABLE TSO TASKS, THE TS DISPATCHING AND TS        20021
                                    867+* LIMIT FIELDS OF THE TCBS ARE EMPLOYED. THE TCBDSP AND           20021
                                    868+* TCBLMP FIELDS ARE NOT USED BY TSO CHAP. ONLY TASKS WITHIN A     20021
                                    869+* PARTICULAR USERS SUBGROUP (KEPT TOGETHER BY REGION) MAY BE      20021
                                    870+* CHAPPED. HOWEVER, THE FIRST TASK OF A PARTICULAR GROUP IS NOT   20021
                                    871+* CHAPPABLE.                                                      20021
                                    872+*                                                                 20021


000000                              874+         CNOP  0,8
000000 05F0                         875+         BALR  XRBASE,0
000002                              876+         USING *,XRBASE
000000                              877+         USING XCCVT,XRCVT 20021

                                    879+*  TEST IF REQUESTING TCB WANTS TO CHAP OWN TCB OR DAUGHTER.


000002 1211                         881+         LTR   XRCTCB,XRCTCB Q.INPUT TCB PTR TO DAUGHTER TCB
000004 4780 F066            00068   882+         BZ    OWNTCB ** NO BRANCH
000008 47F0 F00E            00010   883+         B     *+8 SVC ENTRY PATH
00000C 47F0 F066            00068   884+         B     OWNTCB BRANCH ENTRY PATH
000010 91F0 0021      00021         885+         TM    33,X'F0' .              Q.IS PROTECT KEY   ZERO    47511
000014 4750 F01E            00020   886+         BC    5,VALCHK NO. VALIDITY CHECK INPUT ADDR
000018                              887+LOADTCB  EQU   * .
000018 5820 1000            00000   888+         L     XRWTCB,0(0,XRCTCB) GET TCB ADDR TO CHAP
00001C 47F0 F068            0006A   889+         B     DOCHAP
                                                                                                               PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                              890+VALCHK   DS    0H
000020 58D0 F24E            00250   891+         L     XRABTERM,ABTERM LOAD ABTERM'S ADDRESS
000024 1861                         892+         LR    XRSAVE,XRCTCB SAVE INPUT ADR OF PRAMTR LIST
000026 5820 F252            00254   893+         L     XRTSTADR,CHECK ABTERM' ADDRESS
00002A 45C2 0004            00004   894+         BAL   XRLINK,4(XRTSTADR) Q. ADDRESS OF TCB PTR. VALID
00002E 4770 F060            00062   895+         BNE   ERROR2 ***NNO BRANCH
000032 1816                         896+         LR    XRCTCB,XRSAVE RESTORE INPUT REGISTER
000034 5811 0000            00000   897+         L     XRCTCB,0(XRCTCB) LOAD TCB ADDRESS
000038 4111 0000            00000   898+         LA    XRCTCB,0(XRCTCB) CLEAR BITS S-7

                                    900+*  TEST IF INPUT TCB ADDRESS IS CORRECT ADDRESS OF DAUGHTER.


00003C 5824 0088            00088   902+         L     XRWTCB,TCBDTC(XROTCB) LOAD DAUGHTER TCB
000040 1222                         903+LOOP     LTR   XRWTCB,XRWTCB Q.IS DAUGHTER TCB PRESENT
000042 4780 F05A            0005C   904+         BZ    ERROR ***NO ERROR
000046 1912                         905+         CR    XRCTCB,XRWTCB Q.DAUGHTER TCB FOUND
000048 4780 F052            00054   906+         BE    CMPLTEST YES, BR TO COMPLETE TEST   MO18
00004C 5822 0080            00080   907+         L     XRWTCB,TCBSTC(XRWTCB) LD NEXT DAUGHTER TCB ADDR
000050 47F0 F03E            00040   908+         B     LOOP
000054                              909+CMPLTEST EQU   * MO18
000054 9180 1021      00021         910+         TM    TCBFL5(XRCTCB),TCBFC IS SUBTASK STILL ACTIVE    MO18
000058 4780 F068            0006A   911+         BZ    DOCHAP YES, BRANCH                MO18
00005C 4110 012C            0012C   912+ERROR    LA    XRERCODE,ERRCHAP CHAP'S DAUGHTER ADDRESS INVALID
000060 07FD                         913+         BR    XRABTERM ***GO TO ABTERM
000062 4110 022C            0022C   914+ERROR2   LA    XRERCODE,ERRCHP2 ADDRESS OF INPUT PTR TO SUB-
000066 07FD                         915+         BR    XRABTERM TASK IS INVALID. BR TO ABTERM
                                    916+*  LOAD OWN TCB ADDRESS TO CHAP.


000068 1824                         918+OWNTCB   LR    XRWTCB,XROTCB LD REQUESTING TCB ADR
                                    919+*  ADD INPUT PARAMETER VALUE TO CHAP TCB DISPATCHING PRIORITY AND TEST
                                    920+*  RESULTS.


00006A 1B88                         922+DOCHAP   SR    XRDSP,XRDSP
                                                                                                               PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    924+* TEST TO DETERMINE IF REQUESTING TCB IS A TIME SHARING USER'S    20021
                                    925+* TASK. IF SO, THE TS CHAP ROUTINE, WHICH USES TIME SHARING       20021
                                    926+* DISPATCHING AND LIMIT PRIORITIES, IS USED.                      20021
                                    927+*                                                                 20021
00006C 9180 2094      00094         928+         TM    TCBTSFLG(XRWTCB),TCBTSTSK Q. CHAPPED TASK TS      20021
000070 4780 F174            00176   929+         BZ    DOCHAP1 NO                   20021

                                    931+*-NOTE-THE FIRST TIME SHARING USER TCB IS TO REMAIN FIRST ON THE  20021
                                    932+* TCB READY QUEUE FOR HIS 'SUBGROUP'.                             20021

000074 4380 2097            00097   934+         IC    XRDSP,TCBTSDP(,XRWTCB) .CHAP TS DISP.PRIORITY.    20021
000078 1A80                         935+         AR    XRDSP,XRCVALUE ADD CHAP VALUE       20021
00007A 47C0 F0B0            000B2   936+         BC    12,TSZSTRE BR ON 0 OR MINUS     20021
00007E 4980 F24A            0024C   937+         CH    XRDSP,P255 Q.TOTAL HIGHER THAN 255      20021
000082 4720 F08C            0008E   938+         BH    TSYADEH YES  TAKE BRANCH     20021
000086 4480 F23E            00240   939+         EX    XRDSP,TSLMPRTE Q.TOT LESS THAN TSLIMIT      20021
00008A 47B0 F09C            0009E   940+         BNL   TSWSTPR YES  TAKE BRANCH     20021
00008E                              941+TSYADEH  EQU   * 20021
                                    942+* PROPOGATE REQUESTING TCBS TS LIMIT PRIORITY TO TS DISPATCHING   20021
                                    943+* AND LIMIT PRIORITY OF CHAP                                      20021
00008E D200 2097 4096 00097 00096   944+         MVC   TCBTSDP(ONE,XRWTCB),TCBTSLP(XROTCB) .TO DISPAT.    20021
000094 D200 2096 4096 00096 00096   945+         MVC   TCBTSLP(ONE,XRWTCB),TCBTSLP(XROTCB) .TO LIMIT.     20021
                                    946+*                                                                 20021
00009A 47F0 F0B4            000B6   947+         B     TSXREST GO FIX TCB QUE ETC.  20021
00009E                              948+TSWSTPR  EQU   * 20021
00009E 4280 2097            00097   949+         STC   XRDSP,TCBTSDP(,XRWTCB) .RESULT IN TS DISP. PRI.   20021
0000A2 4480 F242            00244   950+         EX    XRDSP,TSDSPRTE Q.CHAP DISP.GREATER THAN LI  20021
0000A6 47B0 F0B4            000B6   951+         BNL   TSXREST NO-RESTRING TCB Q. ETC.   20021
0000AA 4280 2096            00096   952+         STC   XRDSP,TCBTSLP(,XRWTCB) .UPDATE CHAP TS LIMIT PRI  20021
0000AE 47F0 F0B4            000B6   953+         B     TSXREST 20021
0000B2                              954+TSZSTRE  EQU   * 20021
0000B2 9200 2097      00097         955+         MVI   TCBTSDP(XRWTCB),ZERO IN TS DISP PRI. OF CHAP   20021
                                    956+*                                                                 20021
                                    957+* FIND TS USER 'SUBGROUP' OF TCBS ON TCB READY QUEUE THRU TJB +   20021
                                    958+* TJBX DSECTS. PLACE CHAPPED TCB JUST PRIOR TO TCB OF LOWER       20021
                                    959+* DISPATCHING PRIORITY IN USER SUBGROUP. IF NONE LOWER, PUT CHAP  20021
                                    960+* TCB AT END OF SAME. ADJUST TJBX LAST POINTER IF REQUIRED. THEN  20021
                                    961+* ADJUST TCB NEW POINTER,IF REQUIRED, BY USING TASK SWITCH ROUT.  20021
                                    962+*
0000B6                              963+TSXREST  EQU   *
0000B6 58C0 20B4            000B4   964+         L     TEMPREG,TCBJSCB(,XRWTCB) PTR. TO JOB STEP CB       20021
000000                              965+         USING IEZJSCB,TEMPREG 20021
0000BA 4880 C10C            0010C   966+         LH    XRDSP,JSCBTJID .GET TJID FROM JSCB.        20021
                                    967+         DROP  TEMPREG 20021
0000BE 58C0 30E4            000E4   968+         L     TEMPREG,CVTTSCVT PTR TO TSO SECONDARY CVT  20021
000000                              969+         USING TSCVT,TEMPREG 20021
0000C2 4C80 C01A            0001A   970+         MH    XRDSP,TSCVTSZU SIZE OF TJB               20021
0000C6 5A80 C000            00000   971+         A     XRDSP,TSCVTTJB ADDRESS OF TJB            20021
                                    972+         DROP  TEMPREG 20021
000000                              973+         USING TJB,XRDSP 20021
0000CA 5880 8008            00008   974+         L     XRDSP,TJBEXTNT ADDRESS OF TJBX           20021
                                    975+         DROP  XRDSP 20021
000000                              976+         USING TJBX,XRDSP 20021
0000CE 5870 8000            00000   977+         L     LASTCB,TJBXFST PTR TO TS USER'S 1ST TASK  20021
0000D2 58A0 8004            00004   978+         L     XTJBXLST,TJBXLAST PTR TO TS USER'S LAST TSK  20021
                                                                                                               PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000D6 1927                         979+         CR    CHAPTCB,LASTCB TS USER'S LOGON TASK?      20021
0000D8 4770 F0F8            000FA   980+         BNE   TSOVERB .NO.                      20021
0000DC 58C0 2074            00074   981+         L     TEMPREG,TCBTCB(,CHAPTCB) .YES-GO TO SECOND TK  20021
0000E0                              982+TSOVERA  EQU   * 20021
0000E0 D500 2097 C097 00097 00097   983+         CLC   TCBTSDP(ONE,CHAPTCB),TCBTSDP(TEMPREG) Q.FIRST LOW  20021
0000E6 07BE                         984+         BCR   NOTLOW,XRRETURN .     NO-DON'T ADJUST LOWER-RETURN M4631
0000E8 D200 C097 2097 00097 00097   985+         MVC   TCBTSDP(ONE,TEMPREG),TCBTSDP(CHAPTCB) .YES-ADJUST  20021
0000EE 19CA                         986+         CR    TEMPREG,XTJBXLST .Q.LAST USERS TASK DONE.    20021
0000F0 078E                         987+         BCR   EQUAL,XRRETURN .      YES-DON'T CONTINUE-RETURN    M4631
0000F2 58C0 C074            00074   988+         L     TEMPREG,TCBTCB(,TEMPREG) .STEP TO NEXT TASK.       20021
0000F6 47F0 F0DE            000E0   989+         B     TSOVERA 20021
0000FA                              990+TSOVERB  EQU   * 20021
0000FA 1B99                         991+         SR    NEWPRE,NEWPRE CLEAR NEW PREV. POINTER    20021
0000FC D500 2097 7097 00097 00097   992+         CLC   TCBTSDP(ONE,CHAPTCB),TCBTSDP(LASTCB) CHAP HI FIR   20021
000102 47D0 F10A            0010C   993+         BNH   TSOVER .NO.                      20021
000106 D200 2097 7097 00097 00097   994+         MVC   TCBTSDP(ONE,CHAPTCB),TCBTSDP(LASTCB) YES- MAKE FI  20021
00010C 5867 0074            00074   995+TSOVER   L     CURTCB,TCBTCB(LASTCB) CURR.TCB IS NXT. AFTR LST  20021
000110 1299                         996+         LTR   NEWPRE,NEWPRE Q.IS NEW PREV. FOUND YET     20021
000112 4770 F126            00128   997+         BC    7,TSQUEUE YES BRANCH                 20021
000116 197A                         998+         CR    LASTCB,XTJBXLST END OF USER'S TASK GROUP?  20021
000118 4780 F124            00126   999+         BE    TSDEQUE QUEUE CHAP TCB TO LAST OR  20021
                                   1000+*                                      NEW PREVIOUS.              20021
00011C D500 6097 2097 00097 00097  1001+         CLC   TCBTSDP(ONE,CURTCB),TCBTSDP(CHAPTCB) IS CURRENT    20021
                                   1002+*                                      LOWER THAN CHAP TCB?       20021
000122 47B0 F126            00128  1003+         BNL   TSQUEUE NO BRANCH                  20021
000126 1897                        1004+TSDEQUE  LR    NEWPRE,LASTCB IT'S LAST OR NEW PREV.     20021
000128 1926                        1005+TSQUEUE  CR    CHAPTCB,CURTCB CHAP THE CURRENT TCB?      20021
00012A 4770 F12E            00130  1006+         BNE   TSBUMPUP NO                         20021
00012E 1817                        1007+         LR    OLDPRE,LASTCB YES LAST IS OLD PREV.      20021
000130 197A                        1008+TSBUMPUP CR    LASTCB,XTJBXLST LAST TCB IN TASK GROUP?    20021
000132 1876                        1009+         LR    LASTCB,CURTCB CURRENT TCB BECOMES LAST   20021
000134 4770 F10A            0010C  1010+         BNE   TSOVER NOT LAST. CONTINUE SEARCH  20021
000138 1992                        1011+         CR    NEWPRE,CHAPTCB IS CHAPPED TCB IN PLACE    20021
00013A 078E                        1012+         BCR   EQUAL,XRRETURN .      YES-DON'T CONTINUE-RETURN    M4631
00013C 58C1 0074            00074  1013+         L     TEMPREG,TCBTCB(OLDPRE) NO, ENQUE CHAPPED TCB      20021
000140 D203 1074 2074 00074 00074  1014+         MVC   TCBTCB(FOUR,OLDPRE),TCBTCB(CHAPTCB) 20021
000146 D203 2074 9074 00074 00074  1015+         MVC   TCBTCB(FOUR,CHAPTCB),TCBTCB(NEWPRE) 20021
00014C 50C9 0074            00074  1016+         ST    TEMPREG,TCBTCB(NEWPRE) 20021
000150 192A                        1017+         CR    CHAPTCB,XTJBXLST Q.CHAPPED TCB EQ. USERS LAS  20021
000152 4770 F15C            0015E  1018+         BNE   TSLSTCH .NO.                      20021
000156 5010 8004            00004  1019+         ST    OLDPRE,TJBXLAST .YES-UPDATE LAST PTR.      20021
00015A 47F0 F16A            0016C  1020+         B     SETFORTS .           SET FOR TS TASK SWITCH        M4631
00015E                             1021+TSLSTCH  EQU   * 20021
00015E D500 2097 A097 00097 00097  1022+         CLC   TCBTSDP(ONE,CHAPTCB),TCBTSDP(XTJBXLST) IS CHAP     20021
                                   1023+*                                      TCB BELOW LAST TCB IN TS   20021
                                   1024+*                                      USER'S TASK GROUP?         20021
000164 4720 F16A            0016C  1025+         BH    SETFORTS .           SET FOR TS TASK SWITCH        M4631
000168 5020 8004            00004  1026+         ST    CHAPTCB,TJBXLAST UPDATE TS TASK GROUP PTR.  20021
00016C                             1027+SETFORTS EQU   * .
00016C 18CE                        1028+         LR    TEMPREG,XRRETURN .   SAVE RET REG FOR TASK SWITCH  M4631
00016E 58A0 8000            00000  1029+         L     XRNEWOLD,TJBXFST .   POINTER TO USERS FIRST TASK   M4631
000172 47F0 F21E            00220  1030+         B     COMPARE .            SET FOR TS TASK SWITCH        M4631
                                   1031+         DROP  XRDSP
                                                                                                               PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000176                             1033+DOCHAP1  EQU   *
000176 4382 0023            00023  1034+         IC    XRDSP,TCBDSP(XRWTCB) LD CHAP TCB DISPATCH PRIORITY
00017A 1A80                        1035+         AR    XRDSP,XRCVALUE ADD CHAP VALUE
00017C 47D0 F1B2            001B4  1036+         BNH   STZERO Q.TOTAL 0 OR NEGATIVE (YES BR)
000180 4980 F24A            0024C  1037+         CH    XRDSP,P255 Q.TOTAL HIGHER THAN 255
000184 4720 F18E            00190  1038+         BH    ADDEDHI YES BRANCH
000188 4480 F236            00238  1039+         EX    XRDSP,TESTLPRI Q.TOTAL LESS THAN LIMIT PRIORITY
                                   1040+*                                       OF REQUESTING TCB
00018C 47B0 F19E            001A0  1041+         BNL   STDPRI YES BRANCH

                                   1043+*  TOTAL ADDED RESULT NOT 0 OR NEGATIVE AND HIGHER THAN REQUESTING TCB
                                   1044+*  LIMIT PRIORITY. PROPAGATE LIMIT PRIORITY OF REQUESTING TCB TO CHAP
                                   1045+*  TCB'S DISPATCHING AND LIMIT PRIORITY FIELD.


000190 D200 2023 4022 00023 00022  1047+ADDEDHI  MVC   TCBDSP(1,XRWTCB),TCBLMP(XROTCB) PROPAGATE REQUESTING TCB
000196 D200 2022 4022 00022 00022  1048+         MVC   TCBLMP(1,XRWTCB),TCBLMP(XROTCB) L PRI TO D AND L OF CHAP
00019C 47F0 F1B6            001B8  1049+         B     LOCPLACE UNCONDITIONALLY

                                   1051+*  TOTAL ADDED RESULT NOT 0 OR NEGATIVE AND LOWER THAN REQUESTING TCB'S
                                   1052+*  LIMIT PRIORITY. ST RESULT IN DISPATCHING PRIORITY FIELD OF CHAP TCB.
                                   1053+*  THAN COMPARE DISPATCH AND LIMIT PRIORITY OF CHAP TCB. STORE THE
                                   1054+*  HIGHER OF THE TWO IN THE LIMIT PRIORITY FIELD OF THE CHAP'D TCB.


0001A0 4282 0023            00023  1056+STDPRI   STC   XRDSP,TCBDSP(XRWTCB) ST ADDED RESULT IN CHAP D PRI
0001A4 4480 F23A            0023C  1057+         EX    XRDSP,TESTLCH Q.CHAP D GREATER THAN IT'S L PRI
0001A8 47B0 F1B6            001B8  1058+         BNL   LOCPLACE
0001AC 4282 0022            00022  1059+         STC   XRDSP,TCBLMP(XRWTCB) ST ADDED RESULT IN CHAP L PRI
0001B0 47F0 F1B6            001B8  1060+         B     LOCPLACE BR UNCOND

                                   1062+*  TOTAL ADDED RESULT 0 OR NEGATIVE STORE 0 IN DISPATCHING PRIORITY
                                   1063+*  FIELD OF CHAP TCB


0001B4 9200 2023      00023        1065+STZERO   MVI   TCBDSP(XRWTCB),X'00' ST 0 IN D PRIORITY OF CHAP TCB

                                   1067+*  FIND POSITION IN READY QUEUE WHERE CHAP TCB BELONGS. PUT IT JUST
                                   1068+*  PRIOR TO TCB OF LOWER DISPATCHING PRIORITY. IF NO LOWER PRIORITY TCB
                                   1069+* FOUND, PUT IT AT END OF THE QUEUE. WHILE CHECK'G THRU QUEUE TO FIND
                                   1070+* POSITION OF CHAP'D TCB. CHECK TO SEE IF TCB OF H'ER PRIORITY HAS
                                   1071+*  BEEN MADE READY. IF HIGHER PRIORITY TCB FOUND READY PUT IT'S ADDRESS
                                   1072+*  IN 'NEW' AND SET INDICATER SO 'NEW' WON'T BE CHANGED AGAIN IN THIS
                                   1073+*  REQUESTING CHAP.


0001B8                             1075+LOCPLACE EQU   * 20021
0001B8 41C0 0074            00074  1076+         LA    TEMPREG,X'74' LD. PTR. TO TCBTCB FIELD   20021
0001BC 4173 00A0            000A0  1077+         LA    LASTCB,HEADADR(XRCVT) LOAD ADR. OF 1ST TCB ON R.Q.
0001C0 1B7C                        1078+         SR    LASTCB,TEMPREG SET PSEUDO POINTER TO NXT TCB
0001C2 1B99                        1079+         SR    NEWPRE,NEWPRE CLEAR NEW PREV. POINTER
0001C4 5867 0074            00074  1080+OVER     L     CURTCB,TCBTCB(LASTCB) CURR.TCB IS NXT. AFTER LST.
0001C8 1299                        1081+         LTR   NEWPRE,NEWPRE Q.IS NEW PREV. FOUND YET
0001CA 4770 F1F2            001F4  1082+         BC    7,QUEUE YES BRANCH
0001CE 1266                        1083+         LTR   CURTCB,CURTCB Q. IS LASTCB END OF QUEUE
                                                                                                               PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0001D0 4780 F1F0            001F2  1084+         BZ    DEQUEUE YES BRANCH
0001D4 D500 6023 2023 00023 00023  1085+         CLC   TCBDSP(1,CURTCB),TCBDSP(CHAPTCB) NO CUR. LO'R THAN CHAP
0001DA 4720 F1F2            001F4  1086+         BH    QUEUE .                 PRI HIGHER, BRANCH         M0197
0001DE 4740 F1F0            001F2  1087+         BL    DEQUEUE .               PRI LOWER, BRANCH          M0197
0001E2 9500 6023      00023        1088+         CLI   TCBDSP(CURTCB),ZERO .   Q.PRI = O                  M0197
0001E6 4770 F1F2            001F4  1089+         BNZ   QUEUE .                 NO.CONTINUE                M0197

                                   1091+* IF CURRENT = TSTASK, QUEUE CHAPPED TASK AHEAD OF IT (PRI = 0)   M0197

0001EA 9180 6094      00094        1093+         TM    TCBTSFLG(CURTCB),TCBTSTSK .  Q.CURRENT = TSTASK    M0197
0001EE 47E0 F1F2            001F4  1094+         BNO   QUEUE .                      NO.BRANCH             M0197
0001F2 1897                        1095+DEQUEUE  LR    NEWPRE,LASTCB YES, IT'S LAST, OR NEW PREV.
0001F4 1926                        1096+QUEUE    CR    CHAPTCB,CURTCB IS CURRENT TCB TO BE CHAPPED
0001F6 4770 F1FA            001FC  1097+         BNE   BUMPUP NO
0001FA 1817                        1098+         LR    OLDPRE,LASTCB YES LAST IS OLD PREV.
0001FC 1276                        1099+BUMPUP   LTR   LASTCB,CURTCB CURRENT TCB BECOMES LASTCB
0001FE 4770 F1C2            001C4  1100+         BC    7,OVER
000202 1992                        1101+         CR    NEWPRE,CHAPTCB IS CHAPPED TCB IN PLACE
000204 078E                        1102+         BCR   EQUAL,XRRETURN .      YES-DON'T CONTINUE           M4631
000206 58C1 0074            00074  1103+         L     TEMPREG,TCBTCB(OLDPRE) NO, ENQUE CHAPPED TCB
00020A D203 1074 2074 00074 00074  1104+         MVC   TCBTCB(4,OLDPRE),TCBTCB(CHAPTCB)
000210 D203 2074 9074 00074 00074  1105+         MVC   TCBTCB(4,CHAPTCB),TCBTCB(NEWPRE)
000216 50C9 0074            00074  1106+         ST    TEMPREG,TCBTCB(NEWPRE)
00021A 18CE                        1107+SETNEW   LR    TEMPREG,XRRETURN SAVE RETURN REG
00021C 58A3 00A0            000A0  1108+         L     XRNEWOLD,HEADADR(XRCVT) GET HEAD TCB
000220 19A2                        1109+COMPARE  CR    XRNEWOLD,CHAPTCB Q. CHAP TCB FOUND
000222 58B0 F256            00258  1110+         L     XRTCBTST,TSKSWTR LOAD ADDR. OF TSK. SWT. RT.
000226 4780 F232            00234  1111+         BC    8,OUT YES TAKE BRANCH                  MTS0
00022A 05EB                        1112+         BALR  XRRETURN,XRTCBTST BRANCH TO TSK. SWT. RT.
00022C 58AA 0074            00074  1113+         L     XRNEWOLD,TCBTCB(XRNEWOLD) GET NEXT TCB
000230 47F0 F21E            00220  1114+         B     COMPARE
000234 18EC                        1115+OUT      LR    XRRETURN,TEMPREG RESTORE RETURN REG.
000236 07FB                        1116+         BR    XRTCBTST MTS0
                                   1117+*
                                   1118+*
000238 9500 4022      00022        1119+TESTLPRI CLI   TCBLMP(XROTCB),ZERO
00023C 9500 2022      00022        1120+TESTLCH  CLI   TCBLMP(XRWTCB),ZERO
000240 9500 4096      00096        1121+TSLMPRTE CLI   TCBTSLP(XROTCB),ZERO TEST TS LIMIT PRIORITY     20021
000244 9500 2096      00096        1122+TSDSPRTE CLI   TCBTSLP(XRWTCB),ZERO TEST TS DISP. PRIORITY     20021
                                   1123+* DEFINE CONSTANT

000248                             1125+         DS    0F
000248 0000FFFF                    1126+HALF0    DC    X'0000FFFF'
00024C 00FF                        1127+P255     DC    H'255'
000250                             1128+         DS    0F
                                   1129+         EXTRN IEA0VL01,IEA0AB01,IEA0DS02
000250 00000000                    1130+ABTERM   DC    A(IEA0AB01) ABTERM'S ADDRESS
000254 00000000                    1131+CHECK    DC    A(IEA0VL01) VALIDITY CHECK ADDRESS
000258 00000000                    1132+TSKSWTR  DC    A(IEA0DS02) ADR OF TASK SWITCH ROUTINE
                                   1133     END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       02      0C     000254
   01       03      0C     000250
   01       04      0C     000258
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ABEND    00001 00000D 00097
ABTERM   00004 000250 01130   0891
ADDEDHI  00006 000190 01047   1038
BUMPUP   00002 0001FC 01099   1097
CHAPTCB  00001 000002 00033   0979  0981  0983  0985  0992  0994  1001  1005  1011  1014  1015  1017  1022  1026  1085
                              1096  1101  1104  1105  1109
CHECK    00004 000254 01131   0893
CMPLTEST 00001 000054 00909   0906
COMPARE  00002 000220 01109   1030  1114
CURTCB   00001 000006 00035   0995  1001  1005  1009  1080  1083  1083  1085  1088  1093  1096  1099
CVTABEND 00004 0000C8 00231
CVTAPR   00001 000040 00194
CVTAQAVT 00004 0000F0 00264
CVTASCII 00001 000002 00201
CVTATTCH 00001 000008 00199
CVTBRET  00002 000052 00158
CVTBTERM 00004 000034 00147
CVTBUF   00004 000010 00130
CVTCCH   00001 000080 00193
CVTCHPTR 00001 000008 00211
CVTCMT   00003 0000ED 00261
CVTCRTTR 00003 0000B8 00209   0222
CVTCUCB  00004 000064 00163
CVTDAR   00004 000048 00154
CVTDATA  00001 000002 00215
CVTDATE  00004 000038 00148
CVTDCB   00001 000074 00167
CVTDCBA  00003 000075 00172
CVTDDR   00001 000020 00196
CVTDMSR  00004 000110 00292
CVTDMSRA 00003 000111 00294
CVTEXIT  00002 000050 00157
CVTEXT1  00004 0000FC 00281
CVTFACHN 00004 000114 00310
CVTFBOSV 00004 000084 00176
CVTFORM  00001 000008 00258
CVTGTF   00004 0000EC 00249
CVTGTFS  00001 0000C0 00251
CVTGTFST 00001 0000EC 00250
CVTHEAD  00004 0000A0 00184
CVTHIAR  00001 000004 00200
CVTIERLC 00004 000090 00179
CVTILCH  00004 00008C 00178
CVTILK1  00004 000024 00139
CVTILK2  00004 000028 00141
CVTIOQET 00004 000078 00173
CVTIXAVL 00004 00007C 00174
CVTJOB   00004 00000C 00129
CVTLINK  00004 000008 00128
CVTLNKSC 00002 0000D6 00239
CVTMAP   00001 000000 00123
CVTMCTYP 00001 000002 00260
CVTMDLDS 00004 0000D0 00237
CVTMODE  00001 000010 00257
CVTMPCVT 00004 0000C0 00229
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTMSER  00004 000094 00180
CVTMSLT  00004 00003C 00149
CVTMZ00  00004 0000A4 00185
CVTNIP   00001 000010 00198
CVTNUCB  00004 000080 00175
CVTOPTA  00001 0000B6 00192
CVTOPTB  00001 0000B7 00203
CVTPATCH 00004 0000DC 00241
CVTPBLDL 00004 00005C 00161
CVTPCNVT 00004 00001C 00135
CVTPRLTV 00004 000020 00137
CVTPROT  00001 000080 00204
CVTPTR   00001 000010 00118
CVTPURG  00004 000104 00284
CVTPURGA 00003 000105 00286
CVTQABST 00002 0000D4 00238
CVTQCDSR 00004 0000B8 00224
CVTQLPAQ 00004 0000BC 00225
CVTQMSG  00004 00010C 00288
CVTQMSGA 00003 00010D 00290
CVTQMWR  00004 0000B0 00189
CVTQOCR  00004 0000AC 00187
CVTQTD00 00004 00006C 00165
CVTQTE00 00004 000068 00164
CVTRMS   00004 0000E0 00242
CVTSJQ   00004 000060 00162
CVTSMCA  00004 0000C4 00230
CVTSNCTR 00002 0000B4 00191
CVTSTATE 00001 000020 00256
CVTSTB   00004 000070 00166
CVTSTEPR 00001 000004 00213
CVTSTUSA 00001 0000BB 00210
CVTSVDCB 00004 000054 00159
CVTSYSAD 00004 000030 00145
CVTTCBP  00004 000000 00125
CVTTCMFG 00001 0000F0 00262
CVTTCRDY 00001 000080 00263
CVTTOD   00001 000020 00205
CVTTPC   00004 000058 00160
CVTTRMTB 00004 00009C 00183
CVTTSCE  00004 0000D8 00240
CVTTSCVB 00003 0000E5 00247
CVTTSCVT 00004 0000E4 00244   0968
CVTTSFLG 00001 0000E4 00245
CVTTSRDY 00001 000080 00246
CVTUSER  00004 0000CC 00233
CVTUSR   00001 000004 00259
CVTVOLF2 00001 0000F4 00271
CVTVOLI2 00001 000080 00273
CVTVOLM2 00004 0000F4 00269
CVTVOLT2 00003 0000F5 00274
CVTXAPG  00004 000014 00132
CVTXITP  00004 000044 00153
CVTXPFP  00001 000001 00202
CVTXTLER 00004 00002C 00143
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTXTNT1 00001 000114 00308   0281
CVTZDTAB 00004 000040 00152
CVT0DS   00004 000088 00177
CVT0EF00 00004 000004 00126
CVT0FN00 00004 00004C 00156
CVT0PT01 00004 000098 00182
CVT0SCR1 00004 0000E8 00248
CVT0VL00 00004 000018 00133
CVT1EF00 00004 0000A8 00186
CVT1SSS  00001 000040 00168
CVT2SPS  00001 000020 00169
CVT4MPS  00001 000004 00171
CVT4MS1  00001 000010 00170
DEQUEUE  00002 0001F2 01095   1084  1087
DOCHAP   00002 00006A 00922   0889  0911
DOCHAP1  00001 000176 01033   0929
DUMMY3   00001 000000 00627
EQUAL    00001 000008 00041   0987  1012  1102
ERRCHAP  00001 00012C 00105   0912
ERRCHP2  00001 00022C 00106   0914
ERROR    00004 00005C 00912   0904
ERROR2   00004 000062 00914   0895
FOUR     00001 000004 00109   1014  1015
HALF0    00004 000248 01126
HEADADR  00001 0000A0 00104   1077  1108
IEA0AB01 00001 000000 01129   1130
IEA0DS02 00001 000000 01129   1132
IEA0VL01 00001 000000 01129   1131
IEZJSCB  00001 000000 00486   0487  0965
IGC044   00001 000000 00004   0580  0837
JSCBCSCB 00004 000100 00521
JSCBDISP 00001 0000F0 00573
JSCBIECB 00004 000110 00565
JSCBJCT  00004 000104 00523
JSCBJCTA 00003 000105 00525
JSCBLONG 00001 000020 00502
JSCBMFTL 00001 000018 00574
JSCBMVTL 00001 000024 00575
JSCBPASS 00001 000080 00498
JSCBPSCB 00004 000108 00561
JSCBQMPI 00004 0000F4 00504
JSCBQMPO 00004 0000F8 00506
JSCBSEC1 00001 0000F0 00494   0512
JSCBSEC2 00001 000100 00519   0527  0534  0546
JSCBSEC3 00001 000100 00535   0539
JSCBSEC4 00001 000108 00547   0551  0558
JSCBSEC5 00001 000108 00559   0569
JSCBSWT1 00001 0000F3 00497
JSCBS1LN 00001 000010 00512   0573  0574  0575
JSCBS2LN 00001 000008 00527   0546  0574  0575
JSCBS3LN 00001 000000 00539
JSCBS4LN 00001 000000 00551   0574
JSCBS5LN 00001 00000C 00569   0575
JSCBTJID 00002 00010C 00563   0966
JSCBTTTR 00003 0000F0 00496
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JSCBWTP  00004 0000FC 00508
LASTCB   00001 000007 00036   0977  0979  0992  0994  0995  0998  1004  1007  1008  1009  1077  1078  1080  1095  1098
                              1099
LOADTCB  00001 000018 00887
LOCPLACE 00001 0001B8 01075   1049  1058  1060
LOOP     00002 000040 00903   0908
NEWPRE   00001 000009 00039   0991  0991  0996  0996  1004  1011  1015  1016  1079  1079  1081  1081  1095  1101  1105
                              1106
NOTLOW   00001 00000B 00042   0984
NXTRBS   00001 00001C 00093
OLDPRE   00001 000001 00032   1007  1013  1014  1019  1098  1103  1104
ONE      00001 000001 00108   0944  0945  0983  0985  0992  0994  1001  1022
OUT      00002 000234 01115   1111
OVER     00004 0001C4 01080   1100
OWNTCB   00002 000068 00918   0882  0884
P255     00002 00024C 01127   0937  1037
QUEUE    00002 0001F4 01096   1082  1086  1089  1094
Q3       00001 000003 00096
RBABOPSW 00001 000004 00083
RBCDE    00001 00000D 00088
RBCDFLGS 00001 00000C 00086
RBEP     00001 00000C 00087
RBLINK   00001 00001D 00092
RBOPSW   00001 000010 00089
RBPGMQ   00001 000018 00090
RBSIZE   00001 000008 00084
RBSTAB   00001 00000A 00085
RBWCF    00001 00001C 00091
SETFORTS 00001 00016C 01027   1020  1025
SETNEW   00002 00021A 01107
STDPRI   00004 0001A0 01056   1041
STZERO   00004 0001B4 01065   1036
SVCCHAP  00001 00002C 00102
SVCOLD   00001 000020 00103
TCBCMP   00001 000010 00053
TCBDEB   00001 000008 00051
TCBDSP   00001 000023 00061   1034  1047  1056  1065  1085  1085  1088
TCBDTC   00001 000088 00073   0902
TCBECB   00001 000090 00075
TCBFC    00001 000080 00058   0910
TCBFLG   00001 00001D 00057
TCBFL5   00001 000021 00059   0910
TCBFSA   00001 000071 00067
TCBGRS   00001 000030 00065
TCBIDF   00001 000070 00066
TCBIQE   00001 00008C 00074
TCBITB   00001 00007C 00070
TCBJLB   00001 000028 00063
TCBJSCB  00001 0000B4 00080   0964
TCBJSE   00001 00002C 00064
TCBLLS   00001 000024 00062
TCBLMP   00001 000022 00060   1047  1048  1048  1059  1119  1120
TCBMSS   00001 000018 00055
TCBMTC   00001 000084 00072
TCBPIE   00001 000004 00050
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBPKF   00001 00001C 00056
TCBRBP   00001 000000 00049
TCBSTC   00001 000080 00071   0907
TCBTCB   00001 000074 00068   0981  0988  0995  1013  1014  1014  1015  1015  1016  1080  1103  1104  1104  1105  1105
                              1106  1113
TCBTIO   00001 00000C 00052
TCBTME   00001 000078 00069
TCBTRN   00001 000014 00054
TCBTSDP  00001 000097 00079   0934  0944  0949  0955  0983  0983  0985  0985  0992  0992  0994  0994  1001  1001  1022
                              1022
TCBTSFLG 00001 000094 00076   0928  1093
TCBTSLP  00001 000096 00078   0944  0945  0945  0952  1121  1122
TCBTSTSK 00001 000080 00077   0928  1093
TEMPREG  00001 00000C 00046   0964  0965  0967  0968  0969  0972  0981  0983  0985  0986  0988  0988  1013  1016  1028
                              1076  1078  1103  1106  1107  1115
TESTLCH  00004 00023C 01120   1057
TESTLPRI 00004 000238 01119   1039
TJB      00001 000000 00375   0973
TJBATTN  00001 000004 00377
TJBDDRD  00001 000004 00412
TJBDDRND 00001 000001 00415
TJBDEAD  00001 000001 00398
TJBDISC  00001 000002 00386
TJBDISC2 00001 000080 00435
TJBEND   00004 000030 00441
TJBEXTNT 00004 000008 00399   0974
TJBFAT   00001 000002 00414
TJBFLUSL 00001 000029 00422
TJBGETBF 00001 000004 00431
TJBHOLD  00001 000040 00390
TJBHUNG  00001 000080 00389
TJBINCOR 00001 000040 00381
TJBIPPB  00004 000024 00419
TJBIWAIT 00001 000010 00383
TJBIWP   00001 000040 00407
TJBLINE  00002 00002E 00439
TJBLOGON 00001 000020 00382
TJBLOGP  00001 000010 00409
TJBLWAIT 00001 000008 00410
TJBMDSN  00001 000080 00426
TJBMJBN  00001 000040 00427
TJBMONI  00001 00002C 00425
TJBMSES  00001 000020 00428
TJBMSPA  00001 000010 00429
TJBMSTA  00001 000008 00430
TJBNEWID 00001 000028 00420
TJBNJB   00001 000080 00380
TJBOCAB  00001 000020 00391
TJBOWAIT 00001 000008 00384
TJBOWP   00001 000080 00406
TJBQUIS  00001 000004 00396
TJBRCB   00004 00000C 00400
TJBRNAV  00001 000010 00392
TJBRSTOR 00001 00001A 00405
TJBSDCB  00004 000014 00402
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TJBSILF  00001 000004 00385
TJBSILF2 00001 000001 00387
TJBSOEM  00001 000004 00438
TJBSTAT  00001 000006 00379
TJBSTAT2 00001 000007 00388
TJBSTAT3 00001 00002D 00434
TJBSTAX  00001 000005 00378
TJBSURSV 00001 000008 00394
TJBTJID  00002 00002A 00424
TJBTSB   00004 000000 00376
TJBUMSM  00004 000010 00401
TJBUMSMN 00001 00001B 00417
TJBUSER  00008 00001C 00418
TJBUSERR 00001 000002 00397
TJBUTTMP 00001 000080 00404
TJBUTTMQ 00002 000018 00403
TJBX     00001 000000 00443   0976
TJBXACT  00004 00003C 00463
TJBXAECB 00004 000040 00464
TJBXAIQE 00004 00002C 00455
TJBXATTR 00004 000028 00453
TJBXDSE  00004 000008 00446
TJBXFST  00004 000000 00444   0977  1029
TJBXHBFL 00001 00003A 00460
TJBXIQE  00004 000014 00449
TJBXKEYA 00004 000044 00466
TJBXLAST 00004 000004 00445   0978  1019  1026
TJBXLECB 00004 00001C 00451
TJBXLQPL 00002 000038 00459
TJBXNQPE 00002 000034 00457
TJBXNTCB 00002 000036 00458
TJBXPSWD 00008 000020 00452
TJBXQPL  00004 000030 00456
TJBXRQE  00004 000010 00448
TJBXSVRB 00004 00000C 00447
TJBXTAXE 00004 000018 00450
TSBUMPUP 00002 000130 01008   1006
TSCASTOP 00001 000020 00333
TSCDISC  00001 000010 00327
TSCLOGON 00001 000020 00326
TSCLOGPR 00001 000010 00335
TSCRSTOP 00001 000040 00332
TSCSSTOP 00001 000080 00331
TSCSWPBG 00001 000040 00325
TSCSWPND 00001 000080 00324
TSCVT    00001 000000 00318   0969
TSCVTABN 00004 000068 00366
TSCVTCTR 00002 00001C 00344
TSCVTCUS 00002 000014 00339
TSCVTDMP 00004 00007C 00371
TSCVTD02 00004 000040 00355
TSCVTD03 00004 00006C 00367
TSCVTECB 00004 000024 00348
TSCVTFLG 00001 00000C 00322
TSCVTFLM 00004 000070 00368
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TSCVTFL1 00001 00000E 00329
TSCVTICB 00004 00002C 00350
TSCVTI01 00004 000030 00351
TSCVTI02 00004 000038 00353
TSCVTI03 00004 00003C 00354
TSCVTLCQ 00004 000044 00356
TSCVTLPA 00004 00004C 00358
TSCVTLS3 00004 000084 00373
TSCVTLUS 00002 000016 00340
TSCVTMUS 00002 00001E 00345
TSCVTNTJ 00002 000018 00342
TSCVTQTP 00004 000074 00369
TSCVTRCB 00004 000004 00320
TSCVTRPT 00004 000008 00321
TSCVTRSZ 00002 00005C 00362
TSCVTSAV 00004 000020 00347
TSCVTSDC 00004 000010 00338
TSCVTSIA 00004 000028 00349
TSCVTSLF 00004 000050 00359
TSCVTSPL 00004 000058 00361
TSCVTSVQ 00004 000064 00365
TSCVTSVT 00004 000060 00364
TSCVTSZU 00002 00001A 00343   0970
TSCVTTJB 00004 000000 00319   0971
TSCVTTQE 00004 000034 00352
TSCVTTRB 00004 000048 00357
TSCVTTSC 00004 000054 00360
TSCVTT06 00004 000080 00372
TSCVTT08 00004 000078 00370
TSDEQUE  00002 000126 01004   0999
TSDSPRTE 00004 000244 01122   0950
TSKSWA   00001 000008 00099
TSKSWTR  00004 000258 01132   1110
TSLMPRTE 00004 000240 01121   0939
TSLSTCH  00001 00015E 01021   1018
TSOVER   00004 00010C 00995   0993  1010
TSOVERA  00001 0000E0 00982   0989
TSOVERB  00001 0000FA 00990   0980
TSQUEUE  00002 000128 01005   0997  1003
TSWSTPR  00001 00009E 00948   0940
TSXREST  00001 0000B6 00963   0947  0951  0953
TSYADEH  00001 00008E 00941   0938
TSZSTRE  00001 0000B2 00954   0936
VALCHK   00002 000020 00890   0886
XCCVT    00001 000000 00111   0877
XRABTERM 00001 00000D 00023   0891  0913  0915
XRBASE   00001 00000F 00025   0875  0876
XRCTCB   00001 000001 00031   0881  0881  0888  0892  0896  0897  0897  0898  0898  0905  0910
XRCVALUE 00001 000000 00029   0935  1035
XRCVT    00001 000003 00018   0877  1077  1108
XRDSP    00001 000008 00037   0922  0922  0934  0935  0937  0939  0949  0950  0952  0966  0970  0971  0973  0974  0975
                              0976  1031  1034  1035  1037  1039  1056  1057  1059
XRERCODE 00001 000001 00015   0912  0914
XRLINK   00001 00000C 00022   0894
XRNEWOLD 00001 00000A 00040   1029  1108  1109  1113  1113
                                             CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

XRORB    00001 000005 00020
XROTCB   00001 000004 00019   0902  0918  0944  0945  1047  1048  1119  1121
XRRB     00001 000008 00038
XRRETURN 00001 00000E 00024   0984  0987  1012  1028  1102  1107  1112  1115
XRSAVE   00001 000006 00021   0892  0896
XRTCBTST 00001 00000B 00045   1110  1112  1116
XRTESTWD 00001 000001 00016
XRTSTADR 00001 000002 00017   0893  0894
XRWTCB   00001 000002 00034   0888  0902  0903  0903  0905  0907  0907  0918  0928  0934  0944  0945  0949  0952  0955
                              0964  1034  1047  1048  1056  1059  1065  1120  1122
XR0      00001 000000 00030
XTJBXLST 00001 00000A 00043   0978  0986  0998  1008  1017  1022
X01      00001 000001 00098
ZERO     00001 000000 00107   0955  1088  1119  1120  1121  1122



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  2378
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 1553 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.TSOGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21TA6.R0000101       SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21TA6.S0000102       SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21TA6.S0000102       DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG7     / START 78240.1944
IEF374I STEP /SG7     / STOP  78240.1944 CPU   0MIN 00.60SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:44:56.92   ALLOC START    19:44:56.93   MAIN REGION ----- 300K                          *
*   STEP NAME SG7        STEP END TIME  19:44:57.81   PGM START TIME 19:44:57.03   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.89   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.60   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 65       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0    *
*   0151 ----------- 53       0151 ----------- 79       0151 ---------- 142       0159 ---------- 195       0151 ----------- 17    *
*   0130 ------------ 5                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21TA6  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1944
IEF374I STEP /ZEND    / STOP  78240.1944 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:44:57.84   ALLOC START    19:44:57.85   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:44:57.88   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.TSOGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21TA6  / START 78240.1944
IEF376I  JOB /R21TA6  / STOP  78240.1944 CPU   0MIN 00.60SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21TA6     JOB READ TIME 19:44:48.68   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.60   *
*   JOB CLASS A          JOB INIT TIME 19:44:56.92   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.98   *
*   ACCOUNT              JOB END TIME  19:44:57.90   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     TTTTTTTT       A      777777777                                       A
            RRRRRRRRR  222222222      11     TTTTTTTT      AAA     777777777                                      AAA
            RR     RR  22     22     111        TT        AA AA    77     77                                     AA AA
            RR     RR        22       11        TT       AA   AA         77                                     AA   AA
            RRRRRRRRR       22        11        TT      AA     AA       77                                     AA     AA
            RRRRRRRR       22         11        TT      AA     AA      77                                      AA     AA
            RR  RR        22          11        TT      AAAAAAAAA     77                                       AAAAAAAAA
            RR   RR      22           11        TT      AAAAAAAAA     77                                       AAAAAAAAA
            RR    RR    22222222    111111      TT      AA     AA     77                                       AA     AA
            RR     RR  222222222    111111      TT      AA     AA     77                                       AA     AA

***********A  START   R21TA7     SYS SYSA   WTR 00E   07:45:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA7     START  A***********
***********A  START   R21TA7     SYS SYSA   WTR 00E   07:45:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA7     START  A***********
***********A  START   R21TA7     SYS SYSA   WTR 00E   07:45:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA7     START  A***********
***********A  START   R21TA7     SYS SYSA   WTR 00E   07:45:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA7     START  A***********
***********A  START   R21TA7     SYS SYSA   WTR 00E   07:45:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA7     START  A***********


//R21TA7 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG8 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(4,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.TSOGEN,DISP=(SHR,PASS)
//  DD DSN=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.TSOMAC,DISP=(SHR,PASS),VOLUME=(,RETAIN)
// DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//            DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//            SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEAQET00)
//SYSIN DD *
IEF236I ALLOC. FOR R21TA7   SG8
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.44  8/28/78


IGC003    SD  01 000000 001098
CDEXIT    LD     00050C         01
CDHKEEP   LD     0006A0         01
CDDESTRY  LD     0006EE         01
IEAQPGTM  LD     00099C         01
IEAQABL   LD     000A2C         01
IEAQSPET  LD     000A84         01
IEAQERA   LD     000B40         01
IEASCSAV  ER  02
IEAQTR01  ER  03
IEA0DS01  ER  04
INT025    ER  05
FMBRANCH  ER  06
RMBRANCH  ER  07
IEATYPE1  ER  08
IEAQTR02  ER  09
IEA0DS02  ER  0A
IEAQJSTM  ER  0B
IEAQCS02  ER  0C
IEAQCS03  ER  0D
IGC002    ER  0E
IFFGRTTR  ER  0F
IEAQTD01  ER  10
IEA0AB00  ER  11
IGC07902  ER  12
GOVRFLB   ER  13
IEABEND   LD     000D9C         01
IEECVPRG  ER  14
IEAQTAQ   ER  15
IEAQQCB0  ER  16
IEA0EQ01  ER  17
IGC016    ER  18
IECXTRA   ER  19
TRPTR     ER  1A
GMBRANCH  ER  1B
TAUSERCT  ER  1C
IEARCTRS  ER  1D
IEAROQUE  ER  1E
IEAROIRB  ER  1F
IEAROTCB  ER  20
IEECVCTW  ER  21
SCEDWAIT  ER  22
TBNOTFND  ER  23
IGFRMTCB  ER  24
IEECVTCB  ER  25
IEAERTCB  ER  26
IECITSAR  ER  27
IBMORG    ER  28
IEAKJXP   ER  29
IEATSELM  ER  2A
IORMSSVC  ER  2B
IEAQMSGS  ER  2C
IEA10FS   ER  2D
IEADQTCB  LD     000E38         01
IEAKJXP   LD     000F2A         01
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1      PRINT  ON,NODATA
                                      2  IEAQET NOSLICE,1
          SVC 3 ......EXIT MODULE                                                                              PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                4+IGC003   START



000000                                6+CVTSECT  DSECT
                                      7+*
                                      8+*              OS/360
                                      9+*        COMMUNICATION VECTOR TABLE
                                     10+*
                                     11+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5
                                     12+*
000010                               13+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT
                                     14+*
                                     15+*              BEGINNING OF CVT PROPER
                                     16+*
000000                               17+         DS    0F
000000                               18+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE
                                     19+*
000000 00000000                      20+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST
000004 00000000                      21+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE
                                     22+*                              ASYNCHRONOUS EXITS
000008 00000000                      23+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB
00000C 00000000                      24+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB
000010 00000000                      25+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT
                                     26+*                              CONSOLE INTERRUPTION ROUTINE
000014 00000000                      27+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE
000018 00000000                      28+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING
                                     29+*                              ROUTINE FOR SUPERVISOR
00001C 00000000                      30+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                     31+*                              RELATIVE TRACK ADDR TO ABSOLUTE
000020 00000000                      32+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                     33+*                              ABSOLUTE TRACK ADDR TO RELATIVE
000024 00000000                      34+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION
                                     35+*                              IN UCB LOOKUP TABLE
000028 00000000                      36+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION
                                     37+*                              IN UCB LOOKUP TABLE
00002C 00000000                      38+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE
                                     39+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES
000030 00000000                      40+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY
                                     41+*                              IN UCB LOOKUP TABLE
000034 00000000                      42+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE
000038 00000000                      43+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL
00003C 00000000                      44+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)
                                     45+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS
                                     46+*                              MASTER SCHEDULER RESIDENT DATA AREA
000040 00000000                      47+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE
000044 00000000                      48+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE
000048 00000000                      49+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS
                                     50+*                              FOR DAMAGE ASSESSMENT ROUTINES
00004C 00000000                      51+CVT0FN00 DC    A(0) -        RESERVED (MVT)
000050 0A03                          52+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER
000052 07FE                          53+CVTBRET  BR    14 -          RETURN TO CALLER
000054 00000000                      54+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB
000058 00000000                      55+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER
                                     56+*                              ROUTINE (SHPC FIRST)
          SVC 3 ......EXIT MODULE                                                                              PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00005C 00000000                      57+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL
000060 00000000                      58+CVTSJQ   DC    A(0) -        RESERVED (MVT)
000064 00000000                      59+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR
000068 00000000                      60+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE
                                     61+*                              FOR INTERVAL TIMER
00006C 00000000                      62+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE
                                     63+*                              FOR INTERVAL TIMER
000070 00000000                      64+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE
000074 10                            65+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM
000040                               66+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS
000020                               67+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS
000010                               68+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1
000004                               69+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING
000075 000000                        70+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC
000078 00000000                      71+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE
00007C 00000000                      72+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER
000080 00000000                      73+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS
000084 00000000                      74+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE
000088 00000000                      75+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER
00008C 00000000                      76+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE
000090 00000000                      77+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE
000094 00000000                      78+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT
                                     79+*                              DATA AREA (MVT/MFT)
000098 00000000                      80+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE
00009C 00000000                      81+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE
0000A0 00000000                      82+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE
0000A4 00000000                      83+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS
0000A8 00000000                      84+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)
0000AC 00000000                      85+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD
                                     86+*                              (0 IF GFX INACTIVE) MVT
0000B0 00000000                      87+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA
                                     88+*                              (MVT/MFT)
0000B4 0000                          89+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER
0000B6 00                            90+CVTOPTA  DC    AL1(00) -     MISCELLANEOUS FLAGS
000080                               91+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)
000040                               92+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --
                                     93+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000020                               94+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --
                                     95+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000010                               96+CVTNIP   EQU   X'10' -       NIP RUNNING
000008                               97+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)
000004                               98+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE
000002                               99+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT
000001                              100+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT
0000B7 00                           101+CVTOPTB  DC    AL1(00) - MISCELLANEOUS FLAGS
000080                              102+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)
000020                              103+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)
                                    104+*
                                    105+*              PCP OVERLAY
                                    106+*
0000B8                              107+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART
0000BB                              108+CVTSTUSA DS    B -           STATUS BYTE A
000008                              109+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART
                                    110+*                              WAS INITIATED INTRASTEP
000004                              111+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART
          SVC 3 ......EXIT MODULE                                                                              PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    112+*                              WAS INITIATED INTERSTEP
000002                              113+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM
                                    114+*                              AND DATA HAS NOT BEEN READ
0000BC                              115+         DS    CL2 -         RESERVED
0000BE                              116+         DS    CL2 -         RESERVED
                                    117+*
                                    118+*              MVT/MFT OVERLAY
                                    119+*
0000B8                              120+         ORG   CVTCRTTR
                                    121+*
0000B8 00000000                     122+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR
0000BC 00000000                     123+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE
                                    124+*
                                    125+*              END OF OVERLAYS
                                    126+*
0000C0 00000000                     127+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)
0000C4 00000000                     128+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA
0000C8 00000000                     129+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT
                                    130+*                              (MVT/MPS)
0000CC 00000000                     131+CVTUSER  DC    A(0) -        A WORD TO THE USER
                                    132+*
                                    133+*              MFT/MVT CVT EXTENSION
                                    134+*
0000D0 00000000                     135+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT
0000D4 0A0D                         136+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)
0000D6 0A06                         137+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)
0000D8 00000000                     138+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT
0000DC 00000000                     139+CVTPATCH DC    A(0) -        ADDR OF FE PATCH AREA
0000E0 00000000                     140+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA
                                    141+*                              (MVT/MFT)
0000E4                              142+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)
0000E4 00                           143+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)
000080                              144+CVTTSRDY EQU   X'80' -       TIME SHARING READY
0000E5 000000                       145+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)
0000E8 00000000                     146+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)
0000EC                              147+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)
0000EC 00                           148+CVTGTFST DC    B'0' -        STATUS FLAGS
0000C0                              149+CVTGTFS  EQU   X'C0' -       STATE
                                    150+*/       00    CVTGTFIN      INACTIVE
                                    151+*/       01    CVTGTFSR      STARTING
                                    152+*/       10    CVTGTFSP      STOPPING
                                    153+*/       11    CVTGTFAC      ACTIVE
000020                              154+CVTSTATE EQU   X'20' -       IN CONTROL
000010                              155+CVTMODE  EQU   X'10' -       EXT MODE
000008                              156+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA
000004                              157+CVTUSR   EQU   X'04' -       USR TRACE
000002                              158+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID
0000ED 000000                       159+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE
0000F0                              160+CVTTCMFG DS    0B -          TCAM FLAGS
000080                              161+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)
0000F0 00000000                     162+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF
                                    163+*                            TCAM ADDRESS VECTOR TABLE
                                    164+*
                                    165+*              MVT CVT EXTENSION
                                    166+*
          SVC 3 ......EXIT MODULE                                                                              PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000F4                              167+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE
                                    168+*                            (PWF)                               S21167
0000F4 80                           169+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY
                                    170+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167
000080                              171+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167
0000F5 000000                       172+CVTVOLT2 DC    AL3(0) -  PWF RECHECK TIME DELAY.  THIS VALUE IS
                                    173+*                            OVERLAID BY CVTVOLM2 AFTER PWF
                                    174+*                            INITIALIZATION                      S21167
0000F8 00000000                     175+         DC    A(0) -        RESERVED
                                    176+*
                                    177+*              MVT/MFT CVT EXTENSION
                                    178+*
0000FC 00000114                     179+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1
                                    180+*                            (ICB421)                APAR'S 47331,47332
000100                              181+         DS    F -           RESERVED
000104                              182+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE
000104                              183+         DS    X -           RESERVED
000105 000000                       184+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE
000108                              185+         DS    F -           RESERVED
00010C                              186+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307
00010C                              187+         DS    X -           RESERVED                            ICB307
00010D 000000                       188+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND
                                    189+*                            COMMUNICATION AREA                  ICB307
000110                              190+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308
000110                              191+         DS    X -           RESERVED                            ICB308
000111 000000                       192+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY
                                    193+*                            ROUTINE                             ICB308
                                    194+*
                                    195+*              COMMON EXTENSION 1
                                    196+*              ADDRESS OF EXTENSION IS IN CVTEXT1
                                    197+*
                                    198+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,
                                    199+*              YOU SHOULD CODE -
                                    200+*
                                    201+*              L     REG,CVTEXT1
                                    202+*              USING CVTXTNT1,REG
                                    203+*
                                    204+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.
                                    205+*
000114                              206+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1
                                    207+*                            (ICB421)                APAR'S 47331,47332
000114 00000000                     208+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS
                                    209+*                            (ISAM) (ICB421)         APAR'S 47331,47332
                                    210+*
                                    211+*              END OF CVT PROPER
                                    212+*
                                    213+*
                                    214+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT
                                    215+*
          SVC 3 ......EXIT MODULE                                                                              PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    217+* LOW CORE EQUATES
000020                              218+SVCOPSW  EQU   32
000068                              219+PINPSW   EQU   104
0000BE                              220+SVCSAV   EQU   190 SVC FLIH SAVE AREA
                    EXIT MODULE EQUATES                                                                        PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    222+**             TASK CONTROL BLOCK
                                    223+**             RELEASE 21.7, 11/28/72, LEVEL=5
                                    224+**
                                    225+**             TCB PREFIX
                                    226+**
000000                              227+TCBFIX   DSECT  ,       TCBPTR-32
                                    228+**
000000                              229+TCBFRS   DS    0CL32 - FLOATING POINT REGISTER SAVE AREA
000000                              230+TCBFRS0  DS    D -     SAVE AREA FOR FLOATING POINT REGISTER 0
000008                              231+TCBFRS2  DS    D -     SAVE AREA FOR FLOATING POINT REGISTER 2
000010                              232+TCBFRS4  DS    D -     SAVE AREA FOR FLOATING POINT REGISTER 4
000018                              233+TCBFRS6  DS    D -     SAVE AREA FOR FLOATING POINT REGISTER 6
                                    234+**
                                    235+**             TCB PROPER
                                    236+**
000000                              237+TCB      DSECT  ,       TCBPTR
                                    238+**
000000                              239+TCBRBP   DS    A -     PTR TO TOP RB ON RB CHAIN
000004                              240+TCBPIE   DS    A -     ADDR OF PROGRAM INTERRUPT ELEMENT (PIE)
000008                              241+TCBDEB   DS    A -     ADDR OF THE DEB QUEUE
00000C                              242+TCBTIO   DS    A -     ADDR OF THE TASK I/O TABLE (TIOT)
000010                              243+TCBCMP   DS    0BL4 -  TASK COMPLETION CODE
000010                              244+TCBCMPF  DS    B -     COMPLETION FLAGS
000080                              245+TCBCREQ  EQU   X'80' - A DUMP HAS BEEN REQUESTED
000040                              246+TCBCSTEP EQU   X'40' - A STEP ABEND HAS BEEN REQUESTED (MVT)
000020                              247+TCBCPP   EQU   X'20' - SECOND ABEND LOAD OVERLAID PP STORAGE (PCP/MFT)
                                    248+*                      FOR FIRST LOAD OVERLAY SEE TCBFLGS
                                    249+*                      (ICBI # 383)                               35198
000008                              250+TCBCDBL  EQU   X'08' - A DOUBLE ABEND HAS OCCURRED  (MFT)
000004                              251+TCBCWTO  EQU   X'04' - DUMP MSG TO BE ISSUED TO OPR  (MFT)
000002                              252+TCBCIND  EQU   X'02' - SCHEDULER TO PRINT INDICATIVE DUMP  (MFT)
000001                              253+TCBCMSG  EQU   X'01' - ABEND MSG PROVIDED TO BE PRINTED BY ABDUMP (MFT)
000011                              254+TCBCMPC  DS    BL3 -   SYSTEM (FIRST 12 BITS) AND USER (SECOND 12)
                                    255+*                      COMPLETION CODES
000014                              256+TCBTRN   DS    0A -    ADDR OF CONTROL CORE TABLE
000014                              257+TCBABF   DS    B -     FLAG BYTE
000080                              258+TCBMOD91 EQU   X'80' - BOTH TESTRAN AND DECIMAL SIMULATOR ON A MOD 91
000040                              259+TCBNOCHK EQU   X'40' - SUPPRESS TAKING CHECKPOINTS FOR THIS STEP
                                    260+*                      (MVT/MFT JOB STEP TCB)
000020                              261+TCBGRPH  EQU   X'20' - GRAPHICS FOREGROUND JOB OR GRAPHIC JOB PROCESSOR
000008                              262+TCBTCPP  EQU   X'08' - TCAM POST-PENDING  (RORI)
000004                              263+TCBTCP   EQU   X'04' - TEST TASK - USED BY TEST SVC
000002                              264+TCBOLTEP EQU   X'02' - OLTEP FUNCTIONS REQUIRE CLEAN-UP BEFORE ABNORMAL
                                    265+*                      TERMINATION CAN BE INVOKED
000015                              266+TCBTRNB  DS    AL3 -   ADDR OF CONTROL CORE TABLE
000018                              267+TCBMSS   DS    0A -    ADDR OF THE BOUNDARY BOX (PCP/MFT)
                                    268+*                      ADDR OF LAST SPQE ON MSS QUEUE (MVT)
000018                              269+TCBNROC  DS    FL1 -   NONROLLOUTABLE COUNT FIELD (MVT ONLY)
                                    270+*                      ZERO MEANING ROLLOUTABLE
000019                              271+TCBMSSB  DS    AL3 -   ADDR OF THE BOUNDARY BOX (PCP/MFT)
                                    272+*                      ADDR OF LAST SPQE ON MSS QUEUE (MVT)
00001C                              273+TCBPKF   DS    B -     STORAGE PROTECTION KEY
0000F0                              274+TCBFLAG  EQU   X'F0' - PROTECTION KEY
00000F                              275+TCBZERO  EQU   X'0F' - ZERO
00001D                              276+TCBFLGS  DS    0BL5 -  FLAGS
                    EXIT MODULE EQUATES                                                                        PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00001D                              277+TCBFLGS1 DS    B -     FIRST TCB FLAG BYTE
000080                              278+TCBFA    EQU   X'80' - ABNORMAL TERMINATION IN PROGRESS
000040                              279+TCBFE    EQU   X'40' - NORMAL TERMINATION IN PROGRESS
000020                              280+TCBFERA  EQU   X'20' - ABEND INITIATED BY RESIDENT ABTERM (PCP/MFT)
                                    281+*                      ENTER ABEND ERASE ROUTINE
                                    282+*                      WHEN IN CONTROL AGAIN (MVT)
000010                              283+TCBGTOFM EQU   X'10' - COMPLETE GTF TRACE SUSPENSION HAS BEEN REQUESTED
                                    284+*                      DURING PROCESSING OF THIS TASK BY A ROUTINE
                                    285+*                      SUCH AS DAR, SNAP, ABEND, ABDUMP OR SVCDUMP
                                    286+*                      (MFT/MVT)                                 ICB264
000008                              287+TCBPDUMP EQU   X'08' - PREVENT DUMP INDICATOR  (MVT)
000004                              288+TCBFT    EQU   X'04' - TOP TASK IN TREE BEING ABTERMED (MVT)
                                    289+*                      DUMP PROCESSING INITIATED IN ABEND (PCP)
000004                              290+TCBPOOL  EQU   X'04' - ABEND SVRB POOL HAS BEEN ASSIGNED TO THIS TASK
                                    291+*                      (MFT)  (ICBI # 383)                        35198
000002                              292+TCBFS    EQU   X'02' - ABTERM DUMP COMPLETED (MVT)
                                    293+*                      ABEND OVERLAID PROBLEM PROGRAM STORAGE
                                    294+*                      (MFT) (ICBI # 383)                         35198
000001                              295+TCBFX    EQU   X'01' - PROHIBIT ASYNCHRONOUS EXIT QUEUEING
                                    296+*                      (MVT/MFT ONLY)
00001E                              297+TCBFLGS2 DS    B -     SECOND FLAG BYTE
000080                              298+TCBFOINP EQU   X'80' - ABEND OPERANDS SAVED IN TCBCMP
                                    299+*                      (MVT)
                                    300+*                      ABEND PROHIBITED FOR THIS SYSTEM TASK
                                    301+*                      (PCP/MFT)
000040                              302+TCBFSTI  EQU   X'40' - SECOND JOB STEP INTERVAL HAS EXPIRED
                                    303+*                      (MVT INITIATOR TCB)
000020                              304+TCBFRA   EQU   X'20' - JOB STEP CAN CAUSE ROLLOUT
                                    305+*                      (MVT JOBSTEP TCB)
000010                              306+TCBFSMC  EQU   X'10' - TASK HAS ISSUED SYSTEM MUST COMPLETE AND SET
                                    307+*                      ALL OTHER TASKS IN THE SYSTEM NONDISPATCHABLE
000008                              308+TCBFJMC  EQU   X'08' - TASK HAS ISSUED STEP MUST COMPLETE AND TURNED
                                    309+*                      OFF ALL OTHER TASKS IN THE STEP
000004                              310+TCBFDSOP EQU   X'04' - SYSABEND OPEN FOR JOBSTEP
                                    311+*                      (MVT)
                                    312+*                      DUMP PROCESSING INITIATED IN ABEND (PCP/MFT)
000002                              313+TCBFETXR EQU   X'02' - ETXR TO BE SCHEDULED
000001                              314+TCBFTS   EQU   X'01' - MEMBER OF TIME-SLICING GROUP
                                    315+*                      (MVT/MFT)
00001F                              316+TCBFLGS3 DS    B -     THIRD FLAG BYTE
000080                              317+TCBFSM   EQU   X'80' - ALL PSW'S IN SUPERVISOR STATE
                                    318+*                      (MVT)
000040                              319+TCBFRI   EQU   X'40' - STEP HAS CAUSED ROLLOUTS THAT ARE STILL IN
                                    320+*                      EFFECT
                                    321+*                      (MVT JOBSTEP TCB)
000020                              322+TCBABTRM EQU   X'20' - ABTERM BIT TO PREVENT MULTIPLE ABENDS
                                    323+*                      (MVT)
                                    324+*                      EXIT EFFECTOR--SYSTEM ERROR ROUTINES OPERATING
                                    325+*                      FOR THIS TASK
                                    326+*                      (PCP/MFT)
000010                              327+TCBSXPK0 EQU   X'10' - RB FOR THIS STAE WAS IN KEY ZERO (MVT)      6516
                                    328+*                      RESERVED (MFT) (ICBI # 343)                 6516
000008                              329+TCBFLREG EQU   X'08' - FLOATING POINT REGISTERS EXIST
                                    330+*                      (PCP/MFT)
000004                              331+TCBSCH   EQU   X'04' - JOB SCHEDULER ROUTINES IN PROCESS
                    EXIT MODULE EQUATES                                                                        PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    332+*                      (PCP/MFT)
000002                              333+TCBPKCHG EQU   X'02' - XCTL IS CHANGING PROTECT KEY IN PSW FROM ZERO
                                    334+*                      TO THAT USED BY PROBLEM PROGRAM
                                    335+*                      (PCP/MFT)
000001                              336+TCBTCTRM EQU   X'01' - TCAM TERMINATION INVOKED  (MFT)           ICB267
000001                              337+TCBDWSTA EQU   X'01' - TASK WAS DISPATCHED WITH STAE=YES OPTION (MVT)
                                    338+*                                                                ICB314
000020                              339+TCBFLGS4 DS    B -     NONDISPATCHABILITY FLAGS
                                    340+*                      (MVT)
000080                              341+TCBNDUMP EQU   X'80' - ABDUMP NON-DISP. INDICATOR
000040                              342+TCBSER   EQU   X'40' - SER1 NON-DISP. INDICATOR
000020                              343+TCBRQENA EQU   X'20' - I/O RQE'S EXHAUSTED
000008                              344+TCBUXNDV EQU   X'08' - TASK IS TEMPORARILY NON-DISPATCHABLE BECAUSE
                                    345+*                      SMF TIME LIMIT OR SYSOUT LIMIT USER EXIT
                                    346+*                      ROUTINE IS BEING EXECUTED FOR THIS STEP
000004                              347+TCBMPCVQ EQU   X'04' - VARY OR QUIESCE IN MULTIPROCESSING SYSTEM
000002                              348+TCBMPCND EQU   X'02' - M65 MULTIPROCESSING NON-DISP. INDICATOR FOR ALL
                                    349+*                      CPU'S
000001                              350+TCBONDSP EQU   X'01' - CURRENT TASK ABTERMED AND NDSP WHILE DUMP DATA
                                    351+*                      SET BEING OPENED FOR ANOTHER TASK IN SAME
                                    352+*                      JOB STEP
000021                              353+TCBFLGS5 DS    B -     MORE NONDISPATCHABILITY FLAGS
000080                              354+TCBFC    EQU   X'80' - TASK TERMINATED (MVT)
000040                              355+TCBABWF  EQU   X'40' - ABNORMAL WAIT (MVT)
000040                              356+TCBUXNDF EQU   X'40' - TASK IS TEMPORARILY NONDISPATCHABLE BECAUSE
                                    357+*                      SMF TIME LIMIT OR SYSOUT LIMIT USER EXIT ROUTINE
                                    358+*                      IS BEING EXECUTED FOR THIS STEP.  BIT IS ONE IN
                                    359+*                      ALL TCB'S EXCEPT JOB STEP TCB.  (MFT)     ICB263
000020                              360+TCBWFC   EQU   X'20' - TASK IS WAITING FOR SPACE REQUESTED BY ROLLOUT
                                    361+*                      (MVT)
000010                              362+TCBFRO   EQU   X'10' - JOB STEP HAS BEEN ROLLED OUT  (MVT)
000008                              363+TCBSYS   EQU   X'08' - ANOTHER TASK IS IN SYSTEM MUST COMPLETE STATUS
                                    364+*                      (MVT)
000004                              365+TCBSTP   EQU   X'04' - ANOTHER TASK IN JS IS IN STEP MUST COMPLETE
                                    366+*                      STATUS  (MVT)
000002                              367+TCBFCD1  EQU   X'02' - INITIATOR WAITING FOR REGION  (MVT)
000001                              368+TCBPNDSP EQU   X'01' - PRIMARY NONDISPATCHABILITY FLAG
                                    369+*                      (SECONDARY NDSP FLAG TCBNDSP2 SET)
000022                              370+TCBLMP   DS    FL1 -   TASK LIMIT PRIORITY
                                    371+*                      (MVT)
                                    372+*                      ENQUEUE COUNT
                                    373+*                      (PCP/MFT)
000023                              374+TCBDSP   DS    FL1 -   DISPATCHING PRIORITY
000024                              375+TCBLLS   DS    A -     ADDR OF LAST LLE IN LOAD LIST
                                    376+*                      (MVT)
                                    377+*                      ADDR OF LAST RB FOR PROGRAM LOADED VIA LOAD
                                    378+*                      (PCP/MFT)
000028                              379+TCBJLB   DS    A -     ADDR OF JOBLIB DCB
00002C                              380+TCBJPQ   DS    0A -    ADDR OF LAST CDE FOR JPA CONTROL QUEUE
                                    381+*                      (MVT)
                                    382+*                      ADDR OF FIRST TCB FOR JOBSTEP
                                    383+*                      (MFT WITH SUBTASKING)
00002C                              384+TCBPURGE DS    B -     PURGE FLAGS
                                    385+*                      (MVT)
000080                              386+TCBJPQF  EQU   X'80' - JPQ PURGE FLAG
                    EXIT MODULE EQUATES                                                                        PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00002D                              387+TCBJPQB  DS    AL3 -   ADDR OF LAST CDE FOR JPA CONTROL QUEUE
                                    388+*                      (MVT)
                                    389+*                      ADDR OF FIRST TCB FOR JOBSTEP
                                    390+*                      (MFT WITH SUBTASKING)
000030                              391+TCBGRS   DS    0CL64 - GENERAL REGISTER SAVE AREA
000030                              392+TCBGRS0  DS    F -     SAVE AREA FOR GENERAL REGISTER 0
000034                              393+TCBGRS1  DS    F -     SAVE AREA FOR GENERAL REGISTER 1
000038                              394+TCBGRS2  DS    F -     SAVE AREA FOR GENERAL REGISTER 2
00003C                              395+TCBGRS3  DS    F -     SAVE AREA FOR GENERAL REGISTER 3
000040                              396+TCBGRS4  DS    F -     SAVE AREA FOR GENERAL REGISTER 4
000044                              397+TCBGRS5  DS    F -     SAVE AREA FOR GENERAL REGISTER 5
000048                              398+TCBGRS6  DS    F -     SAVE AREA FOR GENERAL REGISTER 6
00004C                              399+TCBGRS7  DS    F -     SAVE AREA FOR GENERAL REGISTER 7
000050                              400+TCBGRS8  DS    F -     SAVE AREA FOR GENERAL REGISTER 8
000054                              401+TCBGRS9  DS    F -     SAVE AREA FOR GENERAL REGISTER 9
000058                              402+TCBGRS10 DS    F -     SAVE AREA FOR GENERAL REGISTER 10
00005C                              403+TCBGRS11 DS    F -     SAVE AREA FOR GENERAL REGISTER 11
000060                              404+TCBGRS12 DS    F -     SAVE AREA FOR GENERAL REGISTER 12
000064                              405+TCBGRS13 DS    F -     SAVE AREA FOR GENERAL REGISTER 13
000068                              406+TCBGRS14 DS    F -     SAVE AREA FOR GENERAL REGISTER 14
00006C                              407+TCBGRS15 DS    F -     SAVE AREA FOR GENERAL REGISTER 15
000070                              408+TCBFSA   DS    0A -    ADDR OF FIRST PROBLEM PROGRAM SAVE AREA
000070                              409+TCBQEL   DS    FL1 -   ENQUEUE COUNT
                                    410+*                      (MVT)
                                    411+*                      TCB IDENTIFIER FIELD
                                    412+*                      (PCP/MFT)
000071                              413+TCBFSAB  DS    AL3 -   ADDR OF FIRST PROBLEM PROGRAM SAVE AREA
000074                              414+TCBTCB   DS    A -     ADDR OF NEXT LOWER PRIRTITY TCB ON READY QUEUE
                                    415+*                      (MVT/MFT)
000078                              416+TCBTME   DS    A -     ADDRESS OF TIMER QUEUE ELEMENT
00007C                              417+TCBJSTCB DS    0A -    ADDR OF PARTITION INFORMATION BLOCK
                                    418+*                      (MFT)
                                    419+*                      ADDR OF FIRST JOBSTEP TCB (MVT)
                                    420+*                      OR OF THIS TCB IF KEY ZERO
00007C                              421+TCBPIBT  DS    B -     PARTITION TYPE  (MFT)
0000C0                              422+TCBPART  EQU   X'C0' - PARTITION FLAG BITS
                                    423+*                      (MFT ONLY)
                                    424+*/       11    TCBPP   PROCESSING PROGRAM PARTITION
                                    425+*/       10    TCBWTR  WRITER PARTITION
                                    426+*/       01    TCBRDR  READER PARTITION
                                    427+*/       00    TCBSYSP SYSTEM TASK PARTITION
000020                              428+TCBSIZE  EQU   X'20' - LARGE PARTITION (1)--SMALL PARTITION (0)
000010                              429+TCBSTOP  EQU   X'10' - CPU TIMING STOPPED BY FINCH
                                    430+*                      UNTIL TRANSIENT LOADED
000002                              431+TCBWRITE EQU   X'02' - WTR PART (USED BY ABEND)
000001                              432+TCBSCHED EQU   X'01' - SCHEDULER IN CONTROL - USED BY ABEND -
                                    433+*                      TURNED OFF WHEN TIOT WRITTEN TO JOB QUEUE
00007D                              434+TCBJSTCA DS    AL3 -   ADDR OF PARTITION INFORMATION BLOCK
                                    435+*                      (MFT)
                                    436+*                      ADDR OF FIRST JOBSTEP TCB (MVT)
                                    437+*                      OR OF THIS TCB IF KEY ZERO
000080                              438+TCBNTC   DS    A -     ADDR OF NEXT SISTER TCB (ZERO IF THIS IS LAST
                                    439+*                      SUBTASK)
                                    440+*                      (MFT WITH SUBTASKING AND MVT)
000084                              441+TCBOTC   DS    A -     ADDR OF MOTHER TCB
                    EXIT MODULE EQUATES                                                                        PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    442+*                      (MFT WITH SUBTASKING AND MVT)
000088                              443+TCBLTC   DS    A -     ADDR OF LAST DAUGHTER TCB ( ZERO IF THIS IS IT )
                                    444+*                      (MFT WITH SUBTASKING AND MVT)
00008C                              445+TCBIQE   DS    A -     ADDR OF IQE FOR EXTR SCHEDULING
                                    446+*                      (MFT WITH SUBTASKING AND MVT)
000090                              447+TCBECB   DS    A -     ADDR OF ECB TO BE POSTED UPON TERMINATION
                                    448+*                      (MFT WITH SUBTASKING AND MVT)
000094                              449+TCBTSFLG DS    B -     TIME SHARING FLAGS
000080                              450+TCBTSTSK EQU   X'80' - SWAPPED TS TASK
000040                              451+TCBSTPPR EQU   X'40' - TASK SHOULD BE MADE NDSP VIA TCBSTPP
                                    452+*                      WHEN IT IS NO LONGER RUNNING A PRIVILEGED PGM
000020                              453+TCBATT   EQU   X'20' - TASK SHOULD NOT HAVE ATTENTION EXITS
                                    454+*                      SCHEDULED ON IT BY EXIT EFFECTOR
000010                              455+TCBTIOTG EQU   X'10' - PURGE TGET/TPUT AFTER ATTENTION
000002                              456+TCBDYDSP EQU   X'02' - M195 TASK IS MEMBER OF DYNAMIC DISPATCHING
                                    457+*                      GROUP                                     ICB262
000001                              458+TCBCPUBN EQU   X'01' - FOR M195, ZERO MEANS I/O BOUND AND ONE MEANS
                                    459+*                      CPU BOUND                                 ICB262
000095                              460+TCBSTPCT DS    FL1 -   NUMBER OF SETTASK STARTS WHICH MUST BE
                                    461+*                      ISSUED BEFORE TASK IS MADE DISPATCHABLE -
                                    462+*                      FIELD NOT RESTRICTED TO TSO
000096                              463+TCBTSLP  DS    FL1 -   LIMIT PRIORITY OF TS TASK
000097                              464+TCBTSDP  DS    B -     DISPATCHING PRIORITY OF TS TASK
                                    465+*
                                    466+*              MVT OVERLAY
                                    467+*
000098                              468+TCBPQE   DS    A -     POINTER TO DPQE MINUS 8 FOR THE JOB STEP
                                    469+*                      (MVT)
                                    470+*
                                    471+*              MFT OVERLAY
                                    472+*
000098                              473+         ORG   TCBPQE
                                    474+*
000098                              475+TCBFTLMP DS    FL1 -   TASK LIMIT PRIORITY (MFT)
000099                              476+TCBFTFLG DS    0BL3 -  ABEND FLAGS (MFT WITH SUBTASKS)
000099                              477+TCBFTFL1 DS    B -     ABEND FLAGS (MFT WITH SUBTASKS)
000004                              478+TCBFTTOP EQU   X'04' - TOP TASK IN TREE BEING ABTERMED
000002                              479+TCBFTCOM EQU   X'02' - ABTERM DUMP SUCCESSFULLY COMPLETED
000001                              480+TCBFTSYN EQU   X'01' - ASYNCHRONOUS EXITS MAY NOT BE SCHEDULED
00009A                              481+TCBFTFL2 DS    B -     ABEND FLAGS (MFT WITH SUBTASKS)
000004                              482+TCBFTOPN EQU   X'04' - SYSABEND OPEN (JOBSTEP TCB)
000002                              483+TCBFTETX EQU   X'02' - ETXR EXIT REQUESTED BY ATTACHER
00009B                              484+TCBFTFL3 DS    B -     ABEND FLAGS (MFT WITH SUBTASKS)
000004                              485+TCBFTDUM EQU   X'04' - NO ABTERM DUMPS MAY BE PROVIDED IN THIS STEP
                                    486+*
                                    487+*              END OF OVERLAYS
                                    488+*
00009C                              489+TCBAQE   DS    A -     LIST ORIGIN OF AQE(S) FOR THIS TASK
                                    490+*                      (MVT)
0000A0                              491+TCBSTAB  DS    0A -    ADDR OF STAE CONTROL BLOCK
0000A0                              492+TCBNSTAE DS    B -     STAE FLAGS
000080                              493+TCBSTABE EQU   X'80' - ABEND ENTERED BECAUSE OF ERROR IN STAE PROC
000040                              494+TCBQUIES EQU   X'40' - STAE INVOKED PURGE I/O ROUTINE WITH QUIESCE I/O
                                    495+*                      OPTION
000020                              496+TCBXCTL  EQU   X'20' - CURRENT SCB HAS XCTL=YES OPTION
                    EXIT MODULE EQUATES                                                                        PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000010                              497+TCBSCAT  EQU   X'10' - SCB WAS CREATED BY A PROGRAM THAT IS SCATTER
                                    498+*                      LOADED
000008                              499+TCBHALT  EQU   X'08' - PURGE I/O ROUTINE DID NOT SUCCESSFULLY QUIESCE
                                    500+*                      I/O BUT I/O WAS HALTED
000004                              501+TCBSUPER EQU   X'04' - PROGRAM USING STAE IS IN SUPERVISOR MODE
000002                              502+TCBRETRY EQU   X'02' - STAE USER REQUESTED THAT A RETRY ROUTINE BE
                                    503+*                      SCHEDULED BUT THAT THE RB CHAIN NOT BE PURGED
000001                              504+TCBVALID EQU   X'01' - RETRY ROUTINE AND PARAMETER LIST ADDRESSES ARE
                                    505+*                      VALID
0000A1                              506+TCBSTABB DS    AL3 -   ADDR OF STAE CONTROL BLOCK
0000A4                              507+TCBTCT   DS    0A -    ADDR OF TCT (MFT WITH SUBTASKING - OTHERWISE 0)
0000A4                              508+         DS    C -     RESERVED
0000A5                              509+TCBTCTB  DS    AL3 -   ADDR OF TCT (MFT WITH SUBTASKING - OTHERWISE 0)
0000A8                              510+TCBUSER  DS    A -     FIELD AVAILABLE TO THE USER
0000AC                              511+TCBDAR   DS    B - -   DAMAGE ASSESSMENT ROUTINE FLAGS
000080                              512+TCBDARP  EQU   X'80' - PRIMARY DAR RECURSION - -
                                    513+*                      DAR FAILURE WHILE WRITING CORE IMAGE
000040                              514+TCBDARS  EQU   X'40' - SECONDARY DAR RECURSION - -
                                    515+*                      DAR FAILURE WHILE ATTEMPTING
                                    516+*                      TO REINSTATE FAILING REGION/PARTITION
000020                              517+TCBDARD  EQU   X'20' - A DUMP HAS BEEN REQUESTED FOR A WRITER OR
                                    518+*                      SCHEDULER ABEND AND THE USER HAS PROVIDED NO
                                    519+*                      SYSABEND DD CARD (MFT)
000010                              520+TCBDARC  EQU   X'10' - RECURSION PERMITTED IN CLOSE -
                                    521+*                      AFTER DAR PROCESSING COMPLETED (PCP)
000010                              522+TCBDARMC EQU   X'10' - DAR HAS BEEN ENTERED TO HANDLE A VALID RECURSION
                                    523+*                      IN MUST COMPLETE STATUS THROUGH ABEND
                                    524+*                      (MFT/MVT)                                 ICB264
000008                              525+TCBDARO  EQU   X'08' - SYSTEM ERROR TASK IS FAILING.  DAR DUMP SHOULD
                                    526+*                      NOT REQUEST ANY ERP PROCESSING  (MVT)     ICB315
000008                              527+TCBDAROL EQU   X'08' - PROBLEM PROGRAM STORAGE HAS BEEN OVERLAID TO
                                    528+*                      PROCESS DAR (MFT)                         ICB315
000004                              529+TCBDARWT EQU   X'04' - WTO IN PROCESS FOR DAR  (MFT/MVT)         ICB264
000001                              530+TCBEXSVC EQU   X'01' - SVC DUMP IS EXECUTING FOR THIS TASK
0000AD                              531+TCBSCNDY DS    0BL3 -  SECONDARY NONDISPATCHABILITY FLAGS -
                                    532+*                      (IF ANY BIT IN THESE BYTES IS ON,
                                    533+*                      THEN SO IS THE PRIMARY NDSP FLAG)
0000AD                              534+TCBNDSP1 DS    B - -   FIRST BYTE
000080                              535+TCBDARTN EQU   X'80' - TASK TEMPORARILY NONDISPATCHABLE -
                                    536+*                      (DAR)
000080                              537+TNONDISP EQU   TCBDARTN * ALIAS *
000040                              538+TCBDARPN EQU   X'40' - TASK PERMANENTLY NONDISPATCHABLE -
                                    539+*                      (DAR)
000040                              540+PNONDISP EQU   TCBDARPN * ALIAS *
000020                              541+TCBRSTND EQU   X'20' - TASK TEMPORARILY NONDISPATCHABLE -
                                    542+*                      (RMS/SER)
000010                              543+TCBRSPND EQU   X'10' - TASK PERMANENTLY NONDISPATCHABLE -
                                    544+*                      (RMS/SER)
                                    545+*                      (IF THIS FLAG IS ON THEN THE PREVIOUS
                                    546+*                      ONE MUST BE TOO)
000008                              547+TCBDDRND EQU   X'08' - TASK IS IN DEVICE ALLOCATION AND DYNAMIC DEVICE
                                    548+*                      RECONFIGURATION (DDR) HAS MADE IT
                                    549+*                      NONDISPATCHABLE
000004                              550+TCBTPSP  EQU   X'04' - DISPATCHING OF TCAM TASK MUST BE DELAYED
                                    551+*                      UNTIL TCAM I/O APPENDAGE OR SVC ROUTINE HAS
                    EXIT MODULE EQUATES                                                                        PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    552+*                      COMPLETED EXECUTION  (TCAM IN
                                    553+*                      MULTIPROCESSING ENVIRONMENT)
0000AE                              554+TCBNDSP2 DS    B - -   SECOND BYTE
000080                              555+TCBABD   EQU   X'80' - SET BY ABDUMP -
                                    556+*                      (MFT WITH SUBTASKING)
000040                              557+TCBSTPP  EQU   X'40' - TASK NDSP BECAUSE STOPPED BY SETTASK
000020                              558+TCBNDSVC EQU   X'20' - TASK NDSP BECAUSE SVC DUMP IS EXECUTING FOR
                                    559+*                      ANOTHER TASK
000010                              560+TCBNDTS  EQU   X'10' - TASK NDSP BECAUSE BEING SWAPPED OUT
000008                              561+TCBIWAIT EQU   X'08' - TASK NDSP DUE TO INPUT WAIT
000004                              562+TCBOWAIT EQU   X'04' - TASK NDSP DUE TO OUTPUT WAIT
000001                              563+TCBABE   EQU   X'01' - ABEND ENTERED FOR THIS TASK -
                                    564+*                      WHILE SYSABEND DCB OPEN FOR ANOTHER TASK
                                    565+*                      (MFT WITH SUBTASKING)
0000AF                              566+TCBNDSP3 DS    B - -   THIRD BYTE
000080                              567+TCBTERM  EQU   X'80' - TERMINATED -
                                    568+*                      (MFT WITH SUBTASKING)
000040                              569+TCBABTER EQU   X'40' - TO BE TERMINATED BY ABEND -
                                    570+*                      (MFT WITH SUBTASKING)
0000B0                              571+TCBMDIDS DS    F - -   RESERVED FOR MODEL-DEPENDENT SUPPORT AND FOR
                                    572+*                      IBM PROPRIETARY PROGRAMMING SUPPORT       ICBXXX
0000B4                              573+TCBJSCB  DS    0A - -  ADDR OF JOB STEP CONTROL BLOCK
0000B4                              574+TCBRECDE DS    B -     ABEND RECURSION BYTE                      ICB264
000080                              575+TCBREC   EQU   X'80' - VALID REENTRY TO ABEND INDICATED IF NON-ZERO
                                    576+*                      VALUE IN FOLLOWING 7 BITS                 ICB264
0000B5                              577+TCBJSCBB DS    AL3 -   ADDR OF JOB STEP CONTROL BLOCK
0000B8                              578+TCBRV001 DS    A -     RESERVED                                 SA58677
0000BC                              579+TCBIOBRC DS    A -     POINTER TO THE IOB RESTORE CHAIN FOR I/O
                                    580+*                      QUEUED BY EOT                            SA58677
                                    581+*
                                    582+*                      END OF TCB
                    EXIT MODULE EQUATES                                                                        PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              584+RBSECT   DSECT  , -            RBSECPTR



                                    587+*                                  ************************************
                                    588+*                                  *                                  *
                                    589+*                                  *    SYMBOLIC BIT DEFINITIONS      *
                                    590+*                                  *                                  *
                                    591+*                                  ************************************


000080                              593+BIT0     EQU   128
000040                              594+BIT1     EQU   64
000020                              595+BIT2     EQU   32
000010                              596+BIT3     EQU   16
000008                              597+BIT4     EQU   8
000004                              598+BIT5     EQU   4
000002                              599+BIT6     EQU   2
000001                              600+BIT7     EQU   1

                                    602+***********************************************************************
                                    603+*
                                    604+*        THIS MACRO MAPS MVT REQUEST BLOCKS
                                    605+*
                                    606+*        SVRB - SUPERVISOR REQUEST BLOCK FOR TRANSIENT SVC ROUTINES
                                    607+*        SVRB - SUPERVISOR REQUEST BLOCK FOR RESIDENT SVC ROUTINES
                                    608+*        IRB  - INTERRUPTION REQUEST BLOCK
                                    609+*        SIRB - SYSTEM INTERRUPT REQUEST BLOCK
                                    610+*        PRB  - PROGRAM REQUEST BLOCK
                                    611+*
                                    612+*    RELEASE 21, 11/11/71, LEVEL=2
                                    613+***********************************************************************

000000                              615+RBTABNO  DS    H -            DISPLACEMENT FROM BEGINNING OF TACT TO
                                    616+*                             ENTRY FOR MODULE REPRESENTED BY THIS SVRB
                                    617+*                             (SVRB-TRANS)
000002                              618+RBRTLNTH DS    H -            LENGTH OF SVC ROUTINE IN BYTES
                                    619+*                             (SVRB-TRANS)
000004                              620+RBABOPSW DS    CL4 -          AFTER EXECUTION OF TRANSIENT AREA HANDLER
                                    621+*                             ROUTINE - FOUR LOW-ORDER BYTES OF NAME OF
                                    622+*                             REQUESTED ROUTINE  (SVRB-TRANS)
                                    623+*                             AFTER EXECUTION OF ABTERM ROUTINE -
                                    624+*                             RIGHT HALF OF USER'S OLD PSW ---
                                    625+*                             OTHERWISE - ZERO
                                    626+*                             (SVRB-BOTH, IRB, PRB)
000008                              627+RBWCSA   DS    FL1 -          NUMBER OF REQUESTS WAITING AT TIME OF
                                    628+*                             TERMINATION (WAIT COUNT SAVE AREA)
                                    629+*                             (ALL RB'S)
000009                              630+RBSIZE   DS    FL1 -          SIZE OF THIS RB IN DOUBLEWORDS (ALL RB'S)
00000A                              631+RBSTAB   DS    0BL2 -         STATUS AND ATTRIBUTE BITS
00000A                              632+RBSTAB1  DS    B -            FIRST BYTE OF STATUS AND ATTRIBUTE BITS
0000C0                              633+RBFTP    EQU   BIT0+BIT1 -    TYPE OF RB
000000                              634+RBFTPRB  EQU   X'00' -        PRB
000040                              635+RBFTIRB  EQU   BIT1 -         IRB
000080                              636+RBFTSIRB EQU   BIT0 -         SIRB
                    EXIT MODULE EQUATES                                                                        PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000C0                              637+RBFTSVRB EQU   BIT0+BIT1 -    SVRB
000010                              638+RBTRSVRB EQU   BIT3 -         SVRB FOR TRANSIENT SVC ROUTINES
000008                              639+RBWAITP  EQU   BIT4 -         INDICATE TO ABEND THAT AN ECB IS POINTING
                                    640+*                             AT THE RB.  ABEND WILL TURN OFF THE WAIT
                                    641+*                             BIT IN THE ECB IN ORDER TO NOP ANY POST.
                                    642+*                             (ICB416)                       APAR 45983
000004                              643+RBFTCKPT EQU   BIT5 -         A CHECKPOINT MAY BE TAKEN IN A USER EXIT
                                    644+*                             FROM THIS SVC ROUTINE (SVRB-BOTH)
00000B                              645+RBSTAB2  DS    B -            SECOND BYTE OF STATUS AND ATTRIBUTE BITS
000080                              646+RBTCBNXT EQU   BIT0 -         RBLINK FIELD POINTS TO TCB (ALL RB'S)
000040                              647+RBFACTV  EQU   BIT1 -         IRB OR SIRB IS QUEUED TO TCB - PROGRAM IS
                                    648+*                             ACTIVE
000020                              649+RBATTN   EQU   BIT2 -         EXITING PROGRAM IS AN ATTENTION EXIT
                                    650+*                             (IRB)
000010                              651+RBETXR   EQU   BIT3 -         IRB IS FOR AN ETXR EXIT ROUTINE
00000C                              652+RBIQETP  EQU   BIT4+BIT5 -    EXPLAINED BELOW
000000                              653+RBRQENR  EQU   X'00' -        REQUEST QUEUE ELEMENT IS NOT TO BE
                                    654+*                             RETURNED
000004                              655+RBIRBAER EQU   BIT5 -         IRB HAS QUEUE ELEMENTS FOR ASYNCHRONOUSLY
                                    656+*                             EXECUTED ROUTINES THAT ARE RQE'S
000008                              657+RBIQENR  EQU   BIT4 -         IQE IS NOT TO BE RETURNED AT EXIT
00000C                              658+RBIRBAIQ EQU   BIT4+BIT5 -    IRB HAS QUEUE ELEMENTS FOR ASYNCHRONOUSLY
                                    659+*                             EXECUTED ROUTINES THAT ARE IQE'S
000002                              660+RBFDYN   EQU   BIT6 -         RB STORAGE CAN BE FREED AT EXIT
000001                              661+RBECBWT  EQU   BIT7 -         IF ZERO, WAIT FOR A SINGLE EVENT OR ALL
                                    662+*                             OF A NUMBER OF EVENTS ---
                                    663+*                             IF ONE, WAIT FOR A NUMBER OF EVENTS THAT
                                    664+*                             IS LESS THAN THE TOTAL NUMBER OF EVENTS
                                    665+*                             WAITING
00000C                              666+RBSVTQN  DS    A -            ADDRESS OF NEXT REQUEST BLOCK ON QUEUE OF
                                    667+*                             TRANSIENT ROUTINES
000010                              668+RBOPSW   DS    CL8 -          USER'S OLD PSW (ALL RB'S)
000018                              669+RBTAWCSA DS    FL1 -          SAVE AREA FOR NUMBER OF REQUESTS FIELD,
                                    670+*                             USED IF TRANSIENT ROUTINE IS OVERLAID
                                    671+*                             (SVRB-TRANS)
000019                              672+RBSVTTR  DS    CL3 -          TTR FOR SVC ROUTINE (SVRB-TRANS)
00001C                              673+RBLINK   DS    0A -           SAME AS FOR RBLINKB BELOW
00001C                              674+RBWCF    DS    FL1 -          NUMBER OF REQUESTS WAITING (WAIT COUNT)
                                    675+*                             (ALL RB'S)
00001D                              676+RBLINKB  DS    AL3 -          ADDRESS OF PREVIOUS RB, OR ADDRESS OF TCB
                                    677+*                             WHEN THIS IS FIRST RB ON THE QUEUE
                                    678+*                             (ALL RB'S)
000020                              679+PRBEND   DS    0F -           END OF PRB
000020                              680+RBGRSAVE DS    0CL64 -        GENERAL REGISTER SAVE AREA
                                    681+*                             (SVRB-BOTH, IRB, SIRB)
000020                              682+RBGRS0   DS    F -            SAVE AREA FOR GENERAL REGISTER 0
000024                              683+RBGRS1   DS    F -            SAVE AREA FOR GENERAL REGISTER 1
000028                              684+RBGRS2   DS    F -            SAVE AREA FOR GENERAL REGISTER 2
00002C                              685+RBGRS3   DS    F -            SAVE AREA FOR GENERAL REGISTER 3
000030                              686+RBGRS4   DS    F -            SAVE AREA FOR GENERAL REGISTER 4
000034                              687+RBGRS5   DS    F -            SAVE AREA FOR GENERAL REGISTER 5
000038                              688+RBGRS6   DS    F -            SAVE AREA FOR GENERAL REGISTER 6
00003C                              689+RBGRS7   DS    F -            SAVE AREA FOR GENERAL REGISTER 7
000040                              690+RBGRS8   DS    F -            SAVE AREA FOR GENERAL REGISTER 8
000044                              691+RBGRS9   DS    F -            SAVE AREA FOR GENERAL REGISTER 9
                    EXIT MODULE EQUATES                                                                        PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000048                              692+RBGRS10  DS    F -            SAVE AREA FOR GENERAL REGISTER 10
00004C                              693+RBGRS11  DS    F -            SAVE AREA FOR GENERAL REGISTER 11
000050                              694+RBGRS12  DS    F -            SAVE AREA FOR GENERAL REGISTER 12
000054                              695+RBGRS13  DS    F -            SAVE AREA FOR GENERAL REGISTER 13
000058                              696+RBGRS14  DS    F -            SAVE AREA FOR GENERAL REGISTER 14
00005C                              697+RBGRS15  DS    F -            SAVE AREA FOR GENERAL REGISTER 15
000060                              698+SIRBEND  DS    0F -           END OF SIRB
000060                              699+RBEXSAVE DS    12F -          EXTENDED SAVE AREA FOR SVC ROUTINES
                                    700+*                             (SVRB-BOTH)
000090                              701+SVRBEND  DS    0F -           END OF SVRB (BOTH)


000000                              703+         ORG   RBTABNO -      FOR SIRB
000000                              704+RBEXRTNM DS    CL8 -          EIGHT-CHARACTER NAME OF ERROR EXIT
                                    705+*                             ROUTINE (SIRB)


000000                              707+         ORG   RBTABNO -      FOR IRB
000000                              708+RBPPSAV  DS    0A -           ADDRESS OF PROBLEM PROGRAM REGISTER SAVE
                                    709+*                             AREA (IRB)
000000                              710+RBTMFLD  DS    B -            INDICATORS FOR TIMER ROUTINES.  WHEN
                                    711+*                             THERE ARE NO TIMER ROUTINES, THIS FIELD
                                    712+*                             IS ZERO.  (IRB)
000080                              713+RBTMQUE  EQU   BIT0 -         TIMER ELEMENT NOT ON QUEUE
000040                              714+RBTMTOD  EQU   BIT1 -         LOCAL TIME-OF-DAY OPTION IS USED
000030                              715+RBTMIND1 EQU   BIT2+BIT3 -    TIME INTERVAL REQUEST FORM
000000                              716+RBTITU   EQU   X'00' -        TIME INTERVAL REQUESTED IN TIMER UNITS
000010                              717+RBTIB    EQU   BIT3 -         TIME INTERVAL REQUESTED IN BINARY FORM
000030                              718+RBTID    EQU   BIT2+BIT3 -    TIME INTERVAL REQUESTED IN DECIMAL FORM
000008                              719+RBTMCMP  EQU   BIT4 -         INTERVAL HAS EXPIRED
000004                              720+RBTMIND2 EQU   BIT5 -         EXIT SPECIFIED WITH TASK OR REAL REQUEST
000003                              721+RBTMIND3 EQU   BIT6+BIT7 -    TYPE OF REQUEST
000000                              722+RBTREQ   EQU   X'00' -        TASK REQUEST
000001                              723+RBWREQ   EQU   BIT7 -         WAIT REQUEST
000003                              724+RBRREQ   EQU   BIT6+BIT7 -    REAL REQUEST
000001                              725+RBPPSAV1 DS    AL3 -          ADDRESS OF PROBLEM PROGRAM REGISTER SAVE
                                    726+*                             AREA (IRB)


00000C                              728+         ORG   RBSVTQN -      FOR SVRB-RES AND PRB
00000C                              729+RBCDE    DS    0A -           SAME AS RBCDE1 BELOW
00000C                              730+RBCDFLGS DS    B -            CONTROL FLAGS
000008                              731+RBCDWORK EQU   BIT4 -         A WORK AREA HAS BEEN ESTABLISHED FOR BLDL
                                    732+*                             AND FETCH
000004                              733+RBCDSYNC EQU   BIT5 -         SYNCH MACRO INSTRUCTION REQUESTED
000002                              734+RBCDXCTL EQU   BIT6 -         XCTL MACRO INSTRUCTION REQUESTED
000001                              735+RBCDLOAD EQU   BIT7 -         LOAD MACRO INSTRUCTION REQUESTED
00000D                              736+RBCDE1   DS    AL3 -          ADDRESS OF CDE FOR MODULE THAT THIS RB IS
                                    737+*                             ASSOCIATED WITH (SVRB-RES, PRB)


00000C                              739+         ORG   RBSVTQN -      FOR IRB AND SIRB
00000C                              740+RBEP     DS    A -            ENTRY POINT ADDRESS OF ASYNCHRONOUSLY
                                    741+*                             EXECUTED ROUTINE (IRB, SIRB)
                    EXIT MODULE EQUATES                                                                        PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000018                              743+         ORG   RBTAWCSA -     FOR SVRB-RES AND PRB
000018                              744+RBPGMQ   DS    0A -           SAME AS RBPGMQ1 BELOW
000018                              745+         DS    X -            ZERO
000019                              746+RBPGMQ1  DS    AL3 -          ADDRESS OF RB INDICATING A REQUEST TO USE
                                    747+*                             SAME SERIALLY REUSABLE PROGRAM
                                    748+*                             (SVRB-RES, PRB)


000018                              750+         ORG   RBTAWCSA -     FOR IRB (3-BYTE LINK FIELD SEGMENT)
000018                              751+RBIQE    DS    0A -           LIST ORIGIN FOR IQE (IRB)
000018                              752+RBUSE    DS    FL1 -          USE COUNT USED BY ATTACH (IRB)
000019                              753+RBIQE1   DS    AL3 -          LIST ORIGIN FOR IQE (IRB)


000018                              755+         ORG   RBTAWCSA -     FOR IRB (2-BYTE LINK FIELD SEGMENT), SIRB
000018                              756+RBIQE2   DS    0F -
000018                              757+         DS    XL2 -          RESERVED
00001A                              758+RBIQEA   DS    H -            LIST ORIGIN FOR RQE (IRB WITH 2-BYTE LINK
                                    759+*                             FIELD SEGMENT, SIRB)


000060                              761+         ORG   RBEXSAVE -     FOR IRB--FIELDS PRESENT ONLY IF REQUESTED
000060                              762+RBNEXAV  DS    A -            ADDRESS OF NEXT AVAILABLE IQE (IRB)
000064                              763+RBIQEWRK DS    F -            IQE WORK SPACE, VARIABLE LENGTH,
                                    764+*                             MAXIMUM SIZE IS 1984 BYTES (IRB)
                    EXIT MODULE EQUATES                                                                        PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              766+TSECB    DSECT
000000                              767+TSCECB   DS    1F .     WORD FOR POSTING
000004                              768+TSCECB1  DS    1F .     ECB FOR POSTING TSC SUB TASK
000008                              769+TSCECB2  DS    1F .     TERMINATION ECB FOR IKJEAT06
00000C                              770+TSCECB3  DS    1F .     ECB POSTED BY RCT QUIESCE AND TSIP FOR SWAP IN
                                    771+*                       WAITED ON BY IKJEAT03 DURING LOGON IMAGE PROC
000010                              772+TSCECB4  DS    1F .     ECB WAITED ON BY IKJEAT06 WHEN  MODIFY FOR
                                    773+*                       REGION IS IN PROGRESS- IT IS POSTED BY
                                    774+*                       T03 WHEN REGION COMPLETLY INITIALIZED OR BY
                                    775+*                       T05 WHEN REGION CANNOT INITIALIZE
000014                              776+TSCECB5  DS    1F WAITED ON BY IKJEAT06 FOR TERM.
                                    777+*                                 POSTED BY IKJEAT03
000018                              778+TSCECB6  DS    1F IKJEAT06 WTOR ECB
00001C                              779+TSCECB7  DS    1F WAITED ON BY IKJEAT03 WHEN DEAD
                                    780+*                                 RCTS ARE FOUND DURING STOP PROCESS.
                                    781+*                                 IMPORTANT..IT IS NEVER POSTED.
000020                              782+TSCECB8  DS    1F IKJEAT06 FSTOP WTOR ECB
                                    783+**/
                    EXIT MODULE EQUATES                                                                        PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              785+TAXE     DSECT
                                    786+************   STANDARD IRB   *****************
000000                              787+TAXEIRB  DS    24F .         IRB
000060                              788+TAXENIQE DS    A .           PTR NEXT AVAILABLE IQE
                                    789+************   STANDARD IQE   *********************
000064                              790+TIQELNK  DS    A .           ADDR OF NEXT IQE ON IQE QUEUE
000068                              791+TIQEPARM DS    A .           PARM TO ASYNCHRONOUS EXIT ROUTINE
00006C                              792+TIQEIRB  DS    A .           ADDR OF IRB TO BE SCHEDULED
000070                              793+TAXETCB  DS    A .           PTR TO TCB
                                    794+************   WORK AREA OF IRB   *****************
000074                              795+TAXELNK  DS    A .           PTR TO NEXT TAXE ON QUEUE
                                    796+**   THE FOLLOWING FIELD MUST BE ON A DOUBLE WORD BOUNDARY  **
000078                              797+TAXEXPSW DS    A .           LEFT HALF PSW FOR USER ATTN RTN
00007C                              798+TAXEEXIT DS    A .           PTR TO USER ATTENTION EXIT RTN
000080                              799+TAXESTAT DS    0X .          STATUS OF PROGRAM ISSUING THE STAX SVC
000020                              800+TAXEFREQ EQU   X'20' .       STATUS FLAG FOR REQUESTED TAXE
000040                              801+TAXEFMOD EQU   X'40' .       STATUS FLAG FOR PROBLEM MODE
000080                              802+TAXEFKEY EQU   X'80' .       STATUS FLAG FOR PROBLEM KEY
000080                              803+TAXEPARM DS    A .           PTR TO PARAMETER LIST TO STAX
000084                              804+TAXETAIE DS    A .           PTR TO TAIE
000088                              805+TAXEIBUF DS    A .           PTR TO USER INPUT BUFFER
00008C                              806+TAXEUSER DS    A .           PTR TO USER PARAMETER
                                    807+**/
                    EXIT MODULE EQUATES                                                                        PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              809+TJB      DSECT
000000                              810+TJBTSB   DS    A .       ADDR OF TSB FOR THIS JOB,0-STARTED BY OPERATOR
000004                              811+TJBATTN  DS    CL1 .     NUMBER OF UNPROCESSED ATTNS FOR THIS JOB
000005                              812+TJBSTAX  DS    CL1 .     NUMBER OF STAX EXITS YET UNSCHEDULED
000006                              813+TJBSTAT  DS    X .       STATUS FLAGS
000080                              814+TJBNJB   EQU   X'80' .   NO JOB,THIS TJB IS CURRENTLY UNUSED
000040                              815+TJBINCOR EQU   X'40' .   USER IN CORE
000020                              816+TJBLOGON EQU   X'20' .   LOGON START,SET BY TIOC AT DIAL-UP,TSC RESET
000010                              817+TJBIWAIT EQU   X'10' .   INPUT WAIT,TERMINAL JOB IS IN INPUT WAIT
000008                              818+TJBOWAIT EQU   X'08' .   OUTPUT WAIT,TERMINAL JOB IS IN OUTPUT WAIT
000004                              819+TJBSILF  EQU   X'04' .   SYSTEM INITIATED LOGOFF
000002                              820+TJBDISC  EQU   X'02' .   DISCONNECT SET TO REQUEST TIOC TO DISCON LINE
000001                              821+TJBSILF2 EQU   X'01' .   SYSTEM INITIATED LOGOFF
000007                              822+TJBSTAT2 DS    X .       STATUS FLAGS
000080                              823+TJBHUNG  EQU   X'80' .   HUNG UP
000040                              824+TJBHOLD  EQU   X'40' .   USER IS IN OWAIT DUE TO HOLD OPTIONS
000020                              825+TJBOCAB  EQU   X'20' .   TSO FAILURE RESULTING IN OUT-OF-CORE ABEND
000010                              826+TJBRNAV  EQU   X'10' .   USER CANNOT BE LOGGED ON BECAUSE MACHINE CHECK
                                    827+*                        IN REGION OR NO REGION LARGE ENOUGH
000008                              828+TJBSURSV EQU   X'08' .   ON NEXT SWAP IN, DO NOT MARK SWAP UNIT
                                    829+*                        AVAILABLE FOR USE.
000004                              830+TJBQUIS  EQU   X'04' .   QUIESCE STARTED FOR USER
000002                              831+TJBUSERR EQU   X'02' .   USER READY TO RUN
000001                              832+TJBDEAD  EQU   X'01' .   INDICATE ABEND RECURSION TO IKJEAT07
000008                              833+TJBEXTNT DS    A .       POINTER TO TJB IN SWAPPED OUT JOB IMAGE
00000C                              834+TJBRCB   DS    A .       POINTER TO RCB FOR THIS REGION
000010                              835+TJBUMSM  DS    A .       POINTER TO UMSM
000014                              836+TJBSDCB  DS    A .       POINTER TO SWAP DCB FOR THIS USER
000018                              837+TJBUTTMQ DS    H .       OFFSET IN TT MAP OF TT MAP Q FOR THIS USER
000080                              838+TJBUTTMP EQU   X'80' .   IF ON INDICATES PARALLEL SWAP
00001A                              839+TJBRSTOR DS    X .       RESTORE FLAGS, TESTED BY RCT RESTORE
000080                              840+TJBOWP   EQU   X'80' .   POST OUTPUT WAIT,SET BY TIOC,ENDS AN OWAIT
000040                              841+TJBIWP   EQU   X'40' .   POST INPUT WAIT,SET BY TIOC,ENDS AN IWAIT
                                    842+*        EQU   X'20' .   RESERVED
000010                              843+TJBLOGP  EQU   X'10' .   POST LOGON,POST ECB WAITED ON BY LOGON IMAGE
000008                              844+TJBLWAIT EQU   X'08' .   USER IN LONG WAIT,SWAP OUT IF NOT MADE READY
                                    845+*                        BY RESTORE PROCESSING
000004                              846+TJBDDRD  EQU   X'04' .   WHEN ON RESTORE WILL RESET DDR NON      A41399
                                    847+*                        DISPATCHABILITY BIT                     A41399
000002                              848+TJBFAT   EQU   X'02' .   AN ATTN EXIT IS REQ FOR THIS USER
000001                              849+TJBDDRND EQU   X'01' .   INDICATES TO RESTORE TO SET TCB NON     A41399
                                    850+*                        DISPATCHABLE WHEN JOB SWAPPED IN        A41399
00001B                              851+TJBUMSMN DS    CL1 .     NUMBER OF MAP ENTRIES IN UMSM
00001C                              852+TJBUSER  DS    CL8 .     USERID OF THIS JOB OWNER,PADDED RT WITH BLANKS
000024                              853+TJBIPPB  DS    F .       IPPB CHAIN OF ECB'S TO BE POSTED BY RESTORE
000028                              854+TJBNEWID DS    CL1 .     RGN ID INTO WHICH THIS USER SHOULD BE LOGGED
                                    855+*                        ON. 0 IF SELECTED BY DRIVER
000029                              856+TJBFLUSL DS    CL1 .     STAX LEV OF LAST STAX ISSUED WITH NOPURGE
                                    857+*                        OPTION
00002A                              858+TJBTJID  DS    CL2 .     TERMINAL JOB ID
00002C                              859+TJBMONI  DS    X .       MONITOR CMD INDICATING INFO REQUESTED
000080                              860+TJBMDSN  EQU   X'80' .   DSNAMES
000040                              861+TJBMJBN  EQU   X'40' .   JOBNAMES
000020                              862+TJBMSES  EQU   X'20' .   SESSION
000010                              863+TJBMSPA  EQU   X'10' .   SPACE
                    EXIT MODULE EQUATES                                                                        PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                              864+TJBMSTA  EQU   X'08' .   STATUS
000004                              865+TJBGETBF EQU   X'04' .   THIS BIT INDICATES TPUT SHOULD ATTEMPT TO GET
                                    866+*                        ADDITIONAL BUFFERS FOR USER BEFORE GOING INTO
                                    867+*                        A WAIT STATE
00002D                              868+TJBSTAT3 DS    X .       STATUS FLAGS
000080                              869+TJBDISC2 EQU   X'80' .     INDICATES TO IKJEAT03 WE ARE DISCONNECTING
                                    870+*                        THIS TJB AND NEXT TIME THRU IF THIS BIT IS
                                    871+*                        ON DO NOT DECREMENT RCB USE COUNT
000004                              872+TJBSOEM  EQU   X'04' .   SWAP OUT ERROR MESSAGE RECURSION FLG    A44022
00002E                              873+TJBLINE  DS    CL2 .     CONTAINS BINARY REP OF THE UNIT ADDRESS OF
                                    874+*                        THE LINE BEING USED.
000030                              875+TJBEND   DS    0F
                                    876+**/
                    EXIT MODULE EQUATES                                                                        PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              878+TJBX     DSECT
000000                              879+TJBXFST  DS    A . ADDR LOGON TCB WHICH IS FIRST IN USER READY QUEUE
000004                              880+TJBXLAST DS    A . ADDR LAST TCB IN USER READY QUEUE
000008                              881+TJBXDSE  DS    A . ADDR OF DSE USED BY TSO'S DYN ALLOC
00000C                              882+TJBXSVRB DS    A . ADDR FIRST SVRB PURGED FROM TRANSIENT AREA QUEUE
000010                              883+TJBXRQE  DS    A . ADDR FIRST RQE PURGED FROM ASYNCHRONOUS EXIT QUEUE A
000014                              884+TJBXIQE  DS    A . ADDR FIRST IQE PURGED FROM ASYNCHRONOUS EXIT QUEUE J
000018                              885+TJBXTAXE DS    F . QUEUE OF TAXE'S USED TO SCHEDULE ATTENTION EXITS
00001C                              886+TJBXLECB DS    F . LOGON ECB POSTED BY RCT
000020                              887+TJBXPSWD DS    CL8 USERS LOGON PASSWORD-IF BLANK-NOT REQUIRED
000028                              888+TJBXATTR DS    1F .PTR TO CHAIN OF ATTRIBUTE CONTROL BLOCKS USED  99236
                                    889+*                  BY DYN ALLOC & CONTAINS DCB INFO FOR ATTRIB COMMAND
00002C                              890+TJBXAIQE DS    A . ADDR ATTN IQE CURRENTLY BEING PROCESSED
000030                              891+TJBXQPL  DS    A . ADDR QUIECSE PARM LIST
000034                              892+TJBXNQPE DS    H . NUMBER ENTRIES IN QPL
000036                              893+TJBXNTCB DS    H . NUMBER TCBS ACTIVE IN USER JOB STEP
000038                              894+TJBXLQPL DS    H . LENGTH QPL
00003A                              895+TJBXHBFL DS    CL1 CUR VAL OF LAST HOLDBUF LEVEL. USED BY STAX
                                    896+*                  SVC ROUTINE
00003B                              897+         DS    CL1 RESERVED
00003C                              898+TJBXACT  DS    1F .TTR OF ACT ON SYSJOBQE
000040                              899+TJBXAECB DS    A . POINTER TO LOGON/LOGOFF ECB UNTIL LOGON PROCESSING
                                    900+*                  THEN TO CSCB CANCEL ECB AFTER CSCB IS CREATED
000044                              901+TJBXKEYA DS    A . ADDRESS OF A STORAGE KEY SAVE AREA- THIS IS
                                    902+*                  OBTAINED AND USED BY THE RCT
                                    903+**/
                    EXIT MODULE EQUATES                                                                        PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              905+TSCVT    DSECT
000000                              906+TSCVTTJB DS    A .      POINTER TO TJB TABLE
000004                              907+TSCVTRCB DS    A .      POINTER TO RCB TABLE
000008                              908+TSCVTRPT DS    A .      PTR TO REFERENCE POINTER TABLE
00000C                              909+TSCVTFLG DS    X .      FLAGS TO INDICATE FUNCT REQUESTED OF TSC
00000D                              910+         DS    X
000080                              911+TSCSWPND EQU   X'80' .  SWAP ENDED
000040                              912+TSCSWPBG EQU   X'40' .  SWAP SHOULD BE STARTED
000020                              913+TSCLOGON EQU   X'20' .  A LOGON IS TO BE PROCESSED
000010                              914+TSCDISC  EQU   X'10' .  A DISCONNECT IS TO BE PROCESSED
                                    915+*        BITS  4-15     RESERVED
00000E                              916+TSCVTFL1 DS    X .      FLAGS TO INDICATE FUNCT REQUESTED OF TSC
00000F                              917+         DS    X
000080                              918+TSCSSTOP EQU   X'80' .  SYSTEM STOP REQUESTED AND TSC IS STOPPING
000040                              919+TSCRSTOP EQU   X'40' .  REGION STOP REQUESTED
000020                              920+TSCASTOP EQU   X'20' .  ABEND-STOP TS FLG. SET BY TSO/RMS IF TCAM MCH'S
                                    921+*                       SET BY TCAM STAE EXIT IF TCAM ABENDS
000010                              922+TSCLOGPR EQU   X'10' .  SET BY S02 WHEN NOT ENOUGH SWAP SPACE IS
                                    923+*                       ALLOCATED WHEN LOGON IMAGE BEING PROCESSED
                                    924+*        BITS  4-15     RESERVED
000010                              925+TSCVTSDC DS    A .      PTR TO 1ST DCB FOR SWAP DS
000014                              926+TSCVTCUS DS    1H .     CURR NO. OF USERS LOGGED ON TSO
000016                              927+TSCVTLUS DS    H .      CURRENT LIMIT NO. OF USERS LOGGED ON TO TSO
                                    928+*                       SET BY TSC
000018                              929+TSCVTNTJ DS    1H .     NO.TJB-TSB'S ALLOC BY TSO INITIALLY
00001A                              930+TSCVTSZU DS    1H .     SIZE OF TJB
00001C                              931+TSCVTCTR DS    1H .     NO. OF RCB'S ALLOC BY TSO INITIALLY
00001E                              932+TSCVTMUS DS    H .      MAX NUMBER OF USERS LOGGED ON TO TSO
                                    933+*                       SET BY START AND MODIFY COMMANDS (TSC)
000020                              934+TSCVTSAV DS    A .      PTR TO SAV AREA FOR TSC,TSIP&TS DISP
000024                              935+TSCVTECB DS    A .      PTR TO TSECBTAB CTL BLK OF ECB'S
000028                              936+TSCVTSIA DS    A .      PTR TO TSIA
00002C                              937+TSCVTICB DS    A .      PTR TO TSICB
000030                              938+TSCVTI01 DS    A .      ADDRESS OF ENTRY POINT IKJEAI01 TSIP BR ENTRY
000034                              939+TSCVTTQE DS    A .      PTR TO TQE FOR TSO'S TIME SLICING
000038                              940+TSCVTI02 DS    A .      ADDRESS OF ENTRY POINT IKJEAI02 IN TS DISPATCH
00003C                              941+TSCVTI03 DS    A .      ADDRESS OF ENTRY POINT IKJEAI03 IN TS DISPATCH
000040                              942+TSCVTD02 DS    A .      ADDRESS OF ENTRY POINT IKJEAD02 IN TS DRIVER
000044                              943+TSCVTLCQ DS    A .      ADDR OF TOP ELEM ON LOGON COMM. QUE
000048                              944+TSCVTTRB DS    A .      ADDR OF TRACE CTL BLK CHAIN
00004C                              945+TSCVTLPA DS    A .      ADDR OF 1ST CDE IN TS LINK PACK AREA
000050                              946+TSCVTSLF DS    1F .     SYSTEM INIATED LOGOFF
000054                              947+TSCVTTSC DS    A .      ADDR OF THE  TSC TASK'S TCB. (TSC)
000058                              948+TSCVTSPL DS    A .      ADDRESS OF START PARAMETER LIST
00005C                              949+TSCVTRSZ DS    H .      MIN REGION SIZE FOR LOGON
00005E                              950+         DS    CL2 .    RESERVED
000060                              951+TSCVTSVT DS    CL4 .    SVCTBL ENTRY FOR TSIP PRIOR TO START TS
000064                              952+TSCVTSVQ DS    CL4 .    SVCTBL ENTRY FOR QTIP PRIOR TO START TS
000068                              953+TSCVTABN DS    A .      ADDR OF OUT-OF-CORE ABEND RTN(IKJEAT07)
00006C                              954+TSCVTD03 DS    A .      ADDR OF EP IKJEAD03 IN TS DRIVER
000070                              955+TSCVTFLM DS    A .      ADDRESS OF ENTRY POINT - IKJEFLM
000074                              956+TSCVTQTP DS    A .      ADDRESS OF ENTRY FOR QTIP SVC - IKJGGQT1
000078                              957+TSCVTT08 DS    A .      ENTRY POINT ADDRESS OF IKJEAT08
00007C                              958+TSCVTDMP DS    A .      ADDRESS OF TSO DUMP CONTROL BLOCK-IKJTSDMP
000080                              959+TSCVTT06 DS    A .      ADDRESS OF TCB FOR IKJEAT06
                    EXIT MODULE EQUATES                                                                        PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000084                              960+TSCVTLS3 DS    A .      ADDRSS OF LOGON OUT OF CORE ABEND RTN
                                    961+**/
                    EXIT MODULE EQUATES                                                                        PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              963+TAIE     DSECT
000000                              964+TAIEMSGL DS    CL2 .    MESSAGE LENGTH
000002                              965+TAIETGET DS    CL1 .    RET CODE FROM TGET ISSUED BY ATTN PROL LOG
                                    966+*                       TO BE CHECKED BY USER ATTN RTN
000003                              967+         DS    CL1 .    RESERVED
000004                              968+TAIEIAD  DS    1F .     RIGHT HALF OF INTERRUPT PSW
000008                              969+TAIERSAV DS    CL64 .   REGS. STORED HERE WHEN AN INTERRUPT
                                    970+*                       TO MAINLINE OR ATTEN. EXIT OCCURS
                                    971+**/
                    EXIT MODULE EQUATES                                                                        PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              973+RCB      DSECT
000000                              974+RCBRCT   DS    A .       ADDR OF RCT'S TCB
000004                              975+RCBECB   DS    1F .      RCT'S ECB
000008                              976+RCBDIECB DS    1F .      TSC'S ECB
00000C                              977+RCBTJID  DS    1H .      TERM JOB ID OF CURRENT TS JOB EXEC IN REGION
00000E                              978+RCBRSIZE DS    1H .      SIZE OF THIS TS REGION
000010                              979+RCBLSQSZ DS    1H .      SIZE OF LOCAL SQS FOR THIS TS REGION
000012                              980+RCBNMBR  DS    CL1 .     REGION NUMBER ASSIGNED TO THIS REGION
000013                              981+RCBPKEY  DS    CL1 .     PROTECT KEY OF CURRENT TS JOB IN THIS REGION
000014                              982+RCBUMSMN DS    CL1 .     NO OF MAIN STORAGE MAP ENTRIES
000015                              983+RCBFLG   DS    X .       FIRST BYTE OF RCB FLAGS
000080                              984+RCBFQU   EQU   X'80' .   QUIESCE FLAG-CURR USER SHOULD BE QUIESCED
000040                              985+RCBFSO   EQU   X'40' .   SWAP OUT    -CURR USER SHOULD BE SWAPPED OUT
000020                              986+RCBFSI   EQU   X'20' .   SWAP IN     -CURR USER SHOULD BE SWAPPED IN
                                    987+*                        USERS TJID IS IN THE RCB
000010                              988+RCBFRS   EQU   X'10' .   RESTORE FLAG-USER WHOSE TJID IS IN THE RCB
000008                              989+RCBOCAB  EQU   X'08' .   FUNCTION FLAG SET BY IKJEAS02 TO INVOKE
                                    990+*                        IKJEAT07
000004                              991+RCBSTR3  EQU   X'04' .   INDICATES TO T05 MODIFY FOR REGION STOP WAS
                                    992+*                        ISSUED AND T05 MUST POST TSCECB4 TO GET T06
                                    993+*                        OUT OF WAIT
000002                              994+RCBFAT   EQU   X'02' .   ATTENTION EXIT- A ATTN EXIT IS REQ FOR A USER
000001                              995+RCBFND   EQU   X'01' .   END RCT - RCT SHOULD RETURN TO TSC-NORMALLY
000016                              996+RCBFLG2  DS    X .       SECOND BYTE OF RCB FLAGS
000080                              997+RCBFSE   EQU   X'80' .   SWAP END FLAG-SWAP I/O HAS COMPLETED
000040                              998+RCBSTOP  EQU   X'40' .   REGION STOP REQUESTED
000020                              999+RCBACTV  EQU   X'20' .   INDICATES ACTIVE RCT. SET TO 1 BY RCT INIT
                                   1000+*                        RESET TO 0 BY RCT TERM
000010                             1001+RCBSTR1  EQU   X'10' .   INDICATES REGION START REQUESTED;ATTACH AN RCT
000008                             1002+RCBSTR2  EQU   X'08' .   INDICATES REGION START REQUESTED; CREATE SWAP
                                   1003+*                        LOGON IMAGE
000004                             1004+RCBDEAD  EQU   X'04' .   INDICATES THE REGION HAS TERMINATED ABNORMALLY
000002                             1005+RCBLOGPR EQU   X'02' .   INDICATE LOGON IMAGE PROCESSING IN IKJEAT03
000001                             1006+RCBMODFY EQU   X'01' .   INDICATES TO T06 MODIFY IN PROGRESS FOR THIS
                                   1007+*                        REGION - DO NOT ACCEPT ANOTHER MODIFY UNTIL
                                   1008+*                        RESET BY R01 WHEN REG INIT COMPLETE OR R00
                                   1009+*                        IF REGION CANCELLED DUE TO INSUFF CORE
000017                             1010+RCBFBQE  DS    CL1 .     USED TO SAVE NUMBER OF FBQE'S
000018                             1011+RCBUTTMQ DS    1H .      TT MAP QUE PTR TO LOC OF LOGON IMAGE ON SWAP
00001A                             1012+RCBCUSE  DS    1H .      NO OF USERS CURR LOGGED ON IN THIS REGION
                                   1013+*                        TSC WILL INCREMENT COUNT BEFORE DISCONNECT
                                   1014+*                        TSC WILL DECREMENT COUNT IN LOGON
00001C                             1015+RCBEXTNT DS    A .       PTR TO TJBX CREATED SURING LOGON INIT FOR REG
000020                             1016+RCBUMSM  DS    A .       PTR TO MS MAP DESCRIBING THIS REGION LOGON
000024                             1017+RCBSDCB  DS    A .       ADDR OF SWAP DS CONTROL BLOCK
000028                             1018+RCBPQE   DS    A .       ADDR OF PQE PTR IN SQS-FOR RCT'S REGION INIT
00002C                             1019+RCBPRG   DS    CL16 .    SVC PURGE I/O PARM LIST
000038                             1020+RCBQPL   EQU   RCBPRG+12 ADDR OF QUIESCE I/O  PARM LIST
00003C                             1021+RCBSTECB DS    1F .      ECB WAITED ON BY THE TSC. USED TO INDICATE
                                   1022+*                        END OF RTC PROCESSING IN EVENT OF SUBSYSTEM
                                   1023+*                        RECOVERY
000040                             1024+RCBRCOVR DS    X .       INDICATE CURRENT STATE OF RCT FOR RECOVERY
                                   1025+*                        PURPOSES IN EVENT SUBSYSTEM FAILURE
000000                             1026+RCBRCOV0 EQU   X'00' .   RCT RECOVER IKJEAR01 INIT
000004                             1027+RCBRCOV1 EQU   X'04' .   RCT RECOVER IKJEAR01 MAINLINE
                    EXIT MODULE EQUATES                                                                        PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                             1028+RCBRCOV2 EQU   X'08' .   RCT RECOVER RCBOCAB-IKJEAT07
00000C                             1029+RCBRCOV3 EQU   X'0C' .   RCT RECOVER RCBFRS-IKJEAR03
000010                             1030+RCBRCOV4 EQU   X'10' .   RCT RECOVER RCBFAT-IKJEAR04
000014                             1031+RCBRCOV5 EQU   X'14' .   RCT RECOVER RCBFQU-IKJEAR02
000018                             1032+RCBRCOV6 EQU   X'18' .   RCT RECOVER RCBFND RCBCUSE EQ0
00001C                             1033+RCBRCOV7 EQU   X'1C' .   RCT RECOVER RCBFND RCBCUSE NE0
000041                             1034+RCBRSFLG DS    X .       INDICATORS FOR OUT OF CORE ABEND
000080                             1035+RCBRSTRT EQU   X'80' .   INDICATE RESTORE STARTED
000040                             1036+RCBTCBDN EQU   X'40' .   INDICATE TCBS REQUEUED
000020                             1037+RCBQELCM EQU   X'20' .   INDICATE QEL RESTORE PROCESSING COMPLETE
000010                             1038+RCBTQECM EQU   X'10' .   INDICATE TQE RESTORE PROCESSING COMPLETE
000008                             1039+RCBRQIQC EQU   X'08' .   INDICATE RQE AND IQE RESTORE PROCESSING COMP
000004                             1040+RCBIORSC EQU   X'04' .   INDICATE I/O RESTORE PROCESSING COMPLETE
000002                             1041+RCBWTORC EQU   X'02' .   INDICATE WTOR RESTORE PROCESSING COMPLETE
000001                             1042+RCBTACMP EQU   X'01' .   INDICATE TRANSIENT AREA RESTORE  COMPLETE
000042                             1043+RCBQUFLG DS    X .       INDICATIONS FOR OUT OF CORE ABEND
000080                             1044+RCBQUSTR EQU   X'80' .   QUIESCE STARTED
000040                             1045+RCBIOSTR EQU   X'40' .   INDICATE 1ST ENTRY I/O PURGE COMPLETE
000020                             1046+RCBTADON EQU   X'20' .   TRANSIENT AREA QUIESCE DONE
000010                             1047+RCBWTORD EQU   X'10' .   WTOR QUIESCE DONE
000008                             1048+RCBQELDN EQU   X'08' .   QEL QUIESCE DONE
000004                             1049+RCBIODON EQU   X'04' .   INDICATE 2ND ENTRY I/O PURGE COMPLETE
000002                             1050+RCBTQEDN EQU   X'02' .   TQE QUIESCE  COMPLETE
000001                             1051+RCBRQIQD EQU   X'01' .   INDICATE IQE AND RQE COMPLETE
000043                             1052+RCBSWTCH DS    X .       SET & RESET BY IKJEAT07 TO INDICATE METHOD OF
                                   1053+*                        SEARCH BY IKJEAT07
000080                             1054+RCBSTSP  EQU   X'80' .   FLAG USED FOR STATUS STOP RECURSION     A44022
000040                             1055+RCBSWTON EQU   X'40' .   WHEN SET WITH BIT 0 SEARCH BY TJID & TCB ADDR
000020                             1056+RCBEXTRN EQU   X'20' .   INDICATE USAGE OF EXTERNAL RTN BY IKJEAR02
                                   1057+*                        AND IKJEAR03
000010                             1058+RCBRMSAL EQU   X'10' .   SOLID MACHINE CHECK IN USER REGION
000008                             1059+RCBRMS1U EQU   X'08' .   INTERMITTENT MACHINE CHECK IN USER REGION
000004                             1060+RCBZQRF  EQU   X'04' .   IF ON,ZERO RCBRSFLG AND RCBQUFLG        A44022
                                   1061+*                        BEFORE TSEVENT LOGOFF                   A44022
000044                             1062+RCBCONID DS    CL1 .     CONSOLE ID OF START OR MODIFY COMMAND
000045                             1063+RCBSTAEN DS    X .       INDEX VALUE TO SCHEDULE STAE RETRY ROUTINES
                                   1064+*                        FOR THE RCT
000000                             1065+RCBSTAE0 EQU   X'00' .   STAE EXIT 0
000004                             1066+RCBSTAE1 EQU   X'04' .   STAE EXIT 1
000008                             1067+RCBSTAE2 EQU   X'08' .   STAE EXIT 2
00000C                             1068+RCBSTAE3 EQU   X'0C' .   STAE EXIT 3
000010                             1069+RCBSTAE4 EQU   X'10' .   STAE EXIT 4
000014                             1070+RCBSTAE5 EQU   X'14' .   STAE EXIT 5
000018                             1071+RCBSTAE6 EQU   X'18' .   STAE EXIT 6
00001C                             1072+RCBSTAE7 EQU   X'1C' .   STAE EXIT 7
000046                             1073+         DS    CL2 .     RESERVED
000048                             1074+RCBEND   DS    0F .
                                   1075+**/
                    EXIT MODULE EQUATES                                                                        PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1077+***********************************************************************
                                   1078+*                                                                     *
                                   1079+*  NAME        ***** JOB/STEP CONTROL BLOCK *****                     *
                                   1080+*                                                                     *
                                   1081+*  FUNCTION    COMMUNICATION OF JOB OR STEP RELATED DATA ITEMS        *
                                   1082+*                                                                     *
                                   1083+*  ACCESSING        L     REG,TCBJSCB                                 *
                                   1084+*  PROCEDURE        USING IEZJSCB,REG                                 *
                                   1085+*                                                                     *
                                   1086+*  NOTE        IN ADDITION TO THE MANDATORY USE OF THIS MACRO FOR     *
                                   1087+*              REFERENCES TO THE JSCB, MODULES IN MFT OR MVT WHICH    *
                                   1088+*              ALLOCATE AND/OR FREE THE JSCB ARE REQUIRED TO USE      *
                                   1089+*              THE GETJSCB AND FREEJSCB MACROS.                       *
                                   1090+*                                                                     *
                                   1091+*  RELEASE 20.2, 4/05/71, LEVEL=1                                     *
                                   1092+*  RELEASE 21, 08/05/71, LEVEL=3                                      *
                                   1093+***********************************************************************
000000                             1094+IEZJSCB  DSECT
0000F0                             1095+         ORG   IEZJSCB+240 -  ALLOWS ADDRESSIBILITY FROM TCBJSCB ICB359

                                   1097+*---------------------------------------------------------------------*
                                   1098+*                                                                     *
                                   1099+*  SECTION 1   DATA ITEMS USED IN PCP, MFT, AND MVT                   *
                                   1100+*                                                                     *
                                   1101+*---------------------------------------------------------------------*
0000F0                             1102+JSCBSEC1 EQU   * -            START OF JSCB SECTION 1

0000F0                             1104+JSCBTTTR DS    XL3 -          JOB Q ADDRESS (TTR) OF TIOT EXTENSION
0000F3                             1105+JSCBSWT1 DS    B -            STATUS SWITCHES
000080                             1106+JSCBPASS EQU   X'80' -        WHEN THIS BIT IS SET TO ONE AND A
                                   1107+*                             CORRESPONDING BIT IN THE DCB IS SET TO
                                   1108+*                             ONE THE OPEN WILL BYPASS PASSWORD
                                   1109+*                             PROTECTION FOR THE DATA SET BEING OPENED
000020                             1110+JSCBLONG EQU   X'20' -        LONG RUNNING TASK IN PARTITION -
                                   1111+*                             FAIL REDEFINE  (MFT)               ICB359
0000F4                             1112+JSCBQMPI DS    A -            ADDRESS OF THE QMPA FOR THE JOB'S INPUT
                                   1113+*                             QUEUE TABLE ENTRIES
0000F8                             1114+JSCBQMPO DS    A -            ADDRESS OF THE QMPA FOR THE JOB'S OUTPUT
                                   1115+*                             MSGCLASS QUEUE ENTRY
0000FC                             1116+JSCBWTP  DS    A -            ADDRESS OF WRITE-TO-PROGRAMMER
                                   1117+*                             WORK AREA USED FOR WRITING MESSAGES
                                   1118+*                             TO THE JOB'S SYSOUT LISTING

000010                             1120+JSCBS1LN EQU   (*-JSCBSEC1) - LENGTH OF SECTION 1

                                   1122+*---------------------------------------------------------------------*
                                   1123+*                                                                     *
                                   1124+*  SECTION 2   DATA ITEMS USED IN BOTH MFT AND MVT                    *
                                   1125+*                                                                     *
                                   1126+*---------------------------------------------------------------------*
000100                             1127+JSCBSEC2 EQU   * -            START OF JSCB SECTION 2

000100                             1129+JSCBCSCB DS    A -            ADDRESS OF CSCB USED FOR PROCESSING
                                   1130+*                              COMMANDS RECEIVED FOR JOB
000104                             1131+JSCBJCT  DS    0F -           SAME AS JSCBJCTA BELOW
                    EXIT MODULE EQUATES                                                                        PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000104                             1132+         DS    X -            RESERVED
000105                             1133+JSCBJCTA DS    CL3 -          TTR OF JOB'S JCT

000008                             1135+JSCBS2LN EQU   (*-JSCBSEC2) - LENGTH OF SECTION 2

                                   1137+*---------------------------------------------------------------------*
                                   1138+*                                                                     *
                                   1139+*  SECTION 3   DATA ITEMS USED ONLY IN PCP                            *
                                   1140+*                                                                     *
                                   1141+*---------------------------------------------------------------------*
000100                             1142+         ORG   JSCBSEC2
000100                             1143+JSCBSEC3 EQU   * -            START OF JSCB SECTION 3

                                   1145+*  CURRENTLY NO PCP ONLY DATA ITEMS

000000                             1147+JSCBS3LN EQU   (*-JSCBSEC3) -

                                   1149+*---------------------------------------------------------------------*
                                   1150+*                                                                     *
                                   1151+*  SECTION 4   DATA ITEMS USED ONLY IN MFT                            *
                                   1152+*                                                                     *
                                   1153+*---------------------------------------------------------------------*
000108                             1154+         ORG   JSCBSEC2+JSCBS2LN
000108                             1155+JSCBSEC4 EQU   * -            START OF JSCB SECTION 4

                                   1157+*  CURRENTLY NO MFT ONLY DATA ITEMS

000000                             1159+JSCBS4LN EQU   (*-JSCBSEC4) - LENGTH OF SECTION 4

                                   1161+*---------------------------------------------------------------------*
                                   1162+*                                                                     *
                                   1163+*  SECTION 5   DATA ITEMS USED ONLY IN MVT                            *
                                   1164+*                                                                     *
                                   1165+*---------------------------------------------------------------------*
000108                             1166+         ORG   JSCBSEC4
000108                             1167+JSCBSEC5 EQU   * -            START OF JSCB SECTION 5

000108                             1169+JSCBPSCB DS    A -            ADDRESS OF TSO PROTECTED STEP CONTROL
                                   1170+*                             BLOCK
00010C                             1171+JSCBTJID DS    H -            TSO TERMINAL JOB IDENTIFIER
00010E                             1172+         DS    XL2 -          RESERVED
000110                             1173+JSCBIECB DS    F -            ECB USED FOR COMMUNICATION BETWEEN
                                   1174+*                             DYNAMIC ALLOCATION AND THE INITIATOR
                                   1175+*                             IN ORDER TO PERFORM DATA SET INTEGRITY

00000C                             1177+JSCBS5LN EQU   (*-JSCBSEC5) - LENGTH OF SECTION 5

                                   1179+*---------------------------------------------------------------------*

0000F0                             1181+JSCBDISP EQU   (256-JSCBS1LN) -    DISPLACEMENT OF FIRST JSCB DATA BYTE
000018                             1182+JSCBMFTL EQU   JSCBS1LN+JSCBS2LN+JSCBS4LN -  MFT JSCB LENGTH
000024                             1183+JSCBMVTL EQU   JSCBS1LN+JSCBS2LN+JSCBS5LN -  MVT JSCB LENGTH
                                   1184+***********************************************************************
                                   1185+*              END OF JSCB
                    EXIT MODULE EQUATES                                                                        PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             1187+IQESECT  DSECT
                                   1188+* IQE DISPLACEMENT EQUATES.
000000                             1189+RQELNK   DS    0H .                     RQE LINK FIELD.
000000                             1190+IQELNK   DS    F .                      IEQ LINK FIELD.
000004                             1191+RQEIOB   DS    0H .                     RQE IOB ADDRESS.
000004                             1192+IQEPARM  DS    F .                      IQE PARAMETER.
000008                             1193+IQEIRB   DS    F .                      ADDRESS OF IRB            20021
00000C                             1194+IQETCB   DS    F .                      ADDRESS OF TCB            20021



                                   1196+* CONTENTS DIRECTORY ENTRY (CDE)
000000                             1197+CDESECT  DSECT
000000                             1198+CDATTR   DS    C .                      ATTRIBUTE BYTE.
000001                             1199+CDCHAIN  DS    3C .                     ADDR OF NEXT CDE.
000004                             1200+CDROLL   DS    C .                      COUNT OF ROLL OUTS.
000005                             1201+CDRBP    DS    3C .                     ADDR OF PRB.
000008                             1202+CDNAME   DS    8C .                     NAME OF PROGRAM.
000010                             1203+CDUSE    DS    C .                      USE/RESPONSIBILITY COUNT.
000011                             1204+CDENTPT  DS    3C .                     RELOCATED ENTRY POINT ADDR.
000014                             1205+CDATTR2  DS    C .                      ATTRIBUTE BYTE.
000015                             1206+CDXLMJP  DS    3C



                                   1208+* CDE EQUATES
000080                             1209+NIP      EQU   X'80'
000040                             1210+NIC      EQU   X'40'
000020                             1211+REN      EQU   X'20'
000010                             1212+SER      EQU   X'10'
000008                             1213+NFN      EQU   X'08'
000004                             1214+MIN      EQU   X'04'
000002                             1215+JPA      EQU   X'02'
000001                             1216+NLR      EQU   X'01'
000080                             1217+SPZ      EQU   X'80' .                  IND PGM IN SP ZERO        20008
000040                             1218+REL      EQU   X'40'





000000                             1221+IGC003   CSECT



                                   1223+* MISC EQUATES
000080                             1224+XCTLSTAE EQU   X'80' .                  XCTL OPTION.               STAE
0000BF                             1225+STPPROFF EQU   255-TCBSTPPR .                                     20021
000020                             1226+SCBSTAI  EQU   X'20' .       SCB FLAG INDICATING STAI SCB         20021
00000C                             1227+FLAG     EQU   12 .          DISPLACEMENT FOR FLAG FLD IN SCB.    20021
000001                             1228+XSCBCURR EQU   1 .           ADDRESS OF CURRENT SCB TO FREE.      20021
000007                             1229+XSCBNEXT EQU   7 .           ADDRESS OF NEXT SCB.                 20021
000000                             1230+ZERO     EQU   0 .                                                20021
000000                             1231+XSPNOBYT EQU   0 .           SUBPOOL NUM AND LENGTH FOR FREEMAIN  20021
00000E                             1232+XRET     EQU   14 .                                               20021
                    EXIT MODULE EQUATES                                                                        PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00000F                             1233+XNTRY    EQU   15 .                                               20021
0000F0                             1234+KEYZERO  EQU   X'F0' .       PROTECT KEY ZERO IN PSW.             20021
000001                             1235+ONE      EQU   1 .                                                20021
00000E                             1236+X14      EQU   14 .                                               20021


                                   1238+* PIE DISPLACEMENT EQUATES.
000004                             1239+PIEPSW   EQU   4 .                 OLD PSW SAVED IN PIE.

                                   1241+* LOAD LIST ELEMENT
000001                             1242+LLCHAIN  EQU   1
000004                             1243+LLRESPCT EQU   4
000005                             1244+LLCDPTR  EQU   5

                                   1246+* EXTENT LIST
000008                             1247+ELLNGTH  EQU   8

                                   1249+* TIMER QUEUE ELEMENT EQUATES.
000000                             1250+TQEFLGS  EQU   0 .                      TQE FLAG BYTE.
000018                             1251+TQESAADR EQU   24 .                     TQE PP SAVE AREA ADDR.
000060                             1252+TQEECB   EQU   96 @ OF ECB IN WAIT TYPE TQE   @PD64485

000018                             1254+DEBDCBAD EQU   X'18' .                  DEB DCB OFFSET.
                    EXIT MODULE EQUATES                                                                        PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1256+* REGISTER EQUATES.
000000                             1257+X0       EQU   0
000000                             1258+XLNGH    EQU   0
000000                             1259+XNIQE    EQU   0
000001                             1260+X1       EQU   1
000001                             1261+XLOC     EQU   1
000002                             1262+XIOB     EQU   2
000002                             1263+XBSE     EQU   2
000003                             1264+XDEB     EQU   XIOB+1
000003                             1265+XCVT     EQU   3
000004                             1266+XTCB     EQU   4
000005                             1267+XRB      EQU   5
000005                             1268+XIOBSE   EQU   5
000006                             1269+XPIE     EQU   6
000006                             1270+XIQE     EQU   6
000006                             1271+XNRB     EQU   6
000007                             1272+XNEW     EQU   7
000007                             1273+XW       EQU   7
000007                             1274+XWKA     EQU   7
000007                             1275+X7       EQU   7
000008                             1276+X8       EQU   8
000008                             1277+XWKB     EQU   8
000008                             1278+XWK      EQU   8
000008                             1279+XNXA     EQU   8
000008                             1280+XRE02    EQU   8
000009                             1281+XEN02    EQU   9
00000A                             1282+X10      EQU   10
00000B                             1283+X11      EQU   11
00000B                             1284+XTOWAITR EQU   11 .                                           AH A57089
00000C                             1285+XNOWAITR EQU   12 .                                           AH A57089
00000C                             1286+XEN01    EQU   12
00000C                             1287+XEN03    EQU   12
00000D                             1288+XPSAV    EQU   13
00000E                             1289+XRETN    EQU   14
00000F                             1290+XEP      EQU   15
00000F                             1291+X15      EQU   15
0000A0                             1292+RMSID    EQU   X'A0' .                  DISPL FOR FLAG               2K
000001                             1293+RMSCODE  EQU   X'01' .                  TO TEST IF RMS IS CALLER

                                   1295+* CDEXIT REGISTERS.
000002                             1296+XCDBSE   EQU   2
000007                             1297+XCS03    EQU   7
00000A                             1298+XREUS    EQU   10
00000B                             1299+XCDEP    EQU   11
00000B                             1300+XCDE     EQU   11
00000D                             1301+XCT      EQU   13
00000E                             1302+XCDRETN  EQU   14

                                   1304+* CDHKEEP REGISTERS.
00000D                             1305+XHKRETN  EQU   13

                                   1307+* CDDESTRY REGISTERS
000008                             1308+XXL      EQU   8
00000A                             1309+XCDWK    EQU   10
00000C                             1310+XDMRETN  EQU   12
                    EXIT MODULE EQUATES                                                                        PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1313+* MAIN LINE EOT REGS.
000006                             1314+XOCREP   EQU   6

                                   1316+* ORDER CD QUEUE REGISTERS.
000008                             1317+XORWK    EQU   8
00000E                             1318+XODRETN  EQU   14

                                   1320+* MSS EOT REGISTERS
000002                             1321+XSPQE    EQU   2
000006                             1322+XMBSE    EQU   6

                                   1324+* EOT CLOSE
000006                             1325+XCBSE    EQU   6
000009                             1326+XWKC     EQU   9


                                   1329+* RELEASE LOADED PROGRAMS REGISTERS
000006                             1330+XSUBSE   EQU   6

                                   1332+* EOT ERASE PHASE REGISTERS.
000006                             1333+XSBSE    EQU   6
000006                             1334+XRBSE    EQU   6
000007                             1335+XDTCB    EQU   7



                                   1339+* PURGE TIMER REGISTERS.
000002                             1340+XTMENTR  EQU   2
000006                             1341+XTMBSE   EQU   6

                                   1343+* EOT POST REGS.
000009                             1344+XOTCB    EQU   9
00000C                             1345+XRBSAV   EQU   12
                    EXIT MODULE EQUATES                                                                        PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1348+*  EQUATES FOR TSO                                                20021
000001                             1349+XJSCB    EQU   1 .                      ADDRESS OF JSCB           20021
000008                             1350+XTJID    EQU   8 .                      TJID USED TO              20021
                                   1351+*                                       DETERMINE TJB ADDRESS     20021
000009                             1352+XTSCVT   EQU   9 .                      ADDRESS TSCVT             20021
000003                             1353+XWORK3   EQU   3 .                                                20021
000002                             1354+XTJB     EQU   2 .                      ADDRESS TJB               20021
000007                             1355+XTJBX    EQU   7 .                      ADDRESS TJBX              20021
000004                             1356+WORD     EQU   4 .                                                20021
000000                             1357+NONEWID  EQU   X'00' .                  NO NEW TJID               20021
00000B                             1358+XPECB    EQU   11 .                     ECB ADDR FOR POST         20021
00000C                             1359+XPTCB    EQU   12 .                     TCB ADDR FOR POST         20021
000007                             1360+XSAVE    EQU   7 .                      SAVE REG FOR RETURN       20021
                                   1361+*                                       OF MAIN ROUTINE           20021
000003                             1362+THREE    EQU   3 .                                                20021
000008                             1363+XNXTCB   EQU   8 .                                                20021
00000A                             1364+XCODE    EQU   10 .                     ECB CODE USED BY POST.    20021
000002                             1365+TSCCODE  EQU   X'02' .                  CODE FOR TSC ECB.         20021
00000A                             1366+XTCBNUM  EQU   10 .                     NUMBER USER TCBS.         20021
000040                             1367+WORD16   EQU   64 .                                               20021
00000A                             1368+XFIRST   EQU   10 .                                               20021
000007                             1369+BYTES7   EQU   7 .                                                20021
000000                             1370+ZEROFL   EQU   X'00' .                  ZERO FLUSH LEVEL IN TJB   20021
0000BF                             1371+HOLDOFF  EQU   255-TJBHOLD .            MASK TO TURN OFF HOLD FLG 20021
00000C                             1372+BYTES12  EQU   12 .                                               20021
00000F                             1373+XPOST    EQU   15 .                     ADDR OF POST BRANCH ENTRY 20021
00000A                             1374+XRCB     EQU   10 .                                               20021
00000A                             1375+XRCT     EQU   10 .                     ADDRESS OF RCT.           20021
000008                             1376+XWORK    EQU   8 .                                                20021
00000F                             1377+XLINK    EQU   15 .                                               20021
00000E                             1378+XRETURN  EQU   14 .                                               20021
000009                             1379+XTAXE    EQU   9 .                                                20021
00000F                             1380+XBASE    EQU   15 .               BASE FOR ATTENTION IRB EXIT     20021
00000D                             1381+XPREV    EQU   13 .                                               20021
00000B                             1382+XACTV    EQU   11 .                                               20021
00000F                             1383+XSTATUS  EQU   15 .                                               20021
00000A                             1384+XWTAXE   EQU   10 .                                               20021
000008                             1385+XAIQE    EQU   8 .                                                20021
000007                             1386+START    EQU   X'07' .                                            20021
00000C                             1387+XSTAX    EQU   12 .                                               20021
00000F                             1388+XENTRY   EQU   15 .                                               20021
000001                             1389+XTAIE    EQU   1 .                                                20021
0000DF                             1390+REQOFF   EQU   255-TAXEFREQ .                                     20021
00000A                             1391+XTCBSW   EQU   10 .                                               20021
000001                             1392+XWKTXP   EQU   1 .                                                20021
000006                             1393+XPBASE   EQU   6 .                      BASE FOR IEAKJTXP         20021
00000A                             1394+XGETTJB  EQU   10 .                     EP REG FOR GETTJB RTN     20021
000000                             1395+ZEROATTN EQU   X'00' .                                            20021
000008                             1396+IQEIRBA  EQU   8 .                      OFFSET TO IRB ADDRESS     20021
00000C                             1397+IQETCBA  EQU   12 .                     OFFSET TO TCB ADDRESS     20021
000000                             1398+IQELINK  EQU   0 .                      OFFSET TO NEXT IQE ADDR   20021
                    EXIT MODULE EQUATES                                                                        PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000006                             1400+IQEQUE   EQU   6 .                      1ST IQE OFST FROM BEG AH A57089
                    EXIT MODULE                                                                                PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1402+* MODULE USING STATEMENTS.
000000                             1403+         USING CVTSECT,XCVT
000000                             1404+         USING TCB,XTCB .                                         20021
000000                             1405+         USING RBSECT,XRB
000000                             1406+         USING IQESECT,XIQE
000000                             1407+         USING CDESECT,XCDE


                                   1409+* ENTRY FROM SVC 3.
000000 0520                        1410+         BALR  XBSE,0
000002                             1411+         USING EDBSE,XBSE
000002                             1412+EDBSE    DS    0H .                     MODULE BASE ADDRESS.
000002 5880 2CBA            00CBC  1413+         L     XWK,AIEATYP1 .           GET ADDR OF TYPE 1 SWITCH.
000006 9200 8000      00000        1414+         MVI   0(XWK),0 .               SET TYPE 1 SWITCH OFF.
00000A 4700 2038            0003A  1415+EDRELCM  NOP   EDRELCM1 NOP/UNCOND.                 @SA72278
00000E 96F0 2009      0000B        1416+         OI    EDRELCM+1,X'F0' PASS THIS WAY ONLY ONCE     @SA72278
000012 4180 0004            00004  1417+         LA    XWK,4 FIND RELEASEE LEVEL         @SA72278
000016 1B38                        1418+         SR    XCVT,XWK FROM CVT                    @SA72278
000018 D503 3000 2CC2 00000 00CC4  1419+         CLC   0(4,XCVT),REL217 @SA72278
00001E 4130 3004            00004  1420+         LA    XCVT,4(,XCVT) RESTORE CVT POINTER         @SA72278
000022 47B0 2038            0003A  1421+         BNL   EDRELCM1 @SA72278
                                   1422+*                                                              @SA72278
                                   1423+** FOR RELEASE 21.0-21.6                                       @SA72278
                                   1424+** (1) SVC 109 (AT LABEL ETPURGE) ELIMINATED                   @SA72278
                                   1425+** (2) TCB SIZE = X'D8'                                        @SA72278
                                   1426+*                                                              @SA72278
000026 96F0 2983      00985        1427+         OI    ETPURGE1+1,X'F0' ELIMINATE SVC 109           @SA72278
00002A 92D8 2D0D      00D0F        1428+         MVI   K216F253+3,X'D8' TCB SIZE                    @SA72278
00002E 47F0 2038            0003A  1429+         B     EDRELCM1 SKIP ID                     @SA75035
000032 E4E2F0F6F0F1F6              1430+         DC    C'US06016' PTF LEVEL                   @SA75035
00003A                             1431+         DS    0H ALIGNMENT                   @SA75035
00003A                             1432+EDRELCM1 EQU   * @SA72278
                                   1433+* IF EXIT IS FROM USER ERROR RTN., THE ADDR. IN SVCOPSW = PINPSW.
00003A D502 0025 006D 00025 0006D  1434+         CLC   SVCOPSW+5(3),PINPSW+5 .  IS EXIT FROM USER ERROR RTN.
000040 4780 2292            00294  1435+         BE    EDUX .                   BR IF YES.
                                   1436+*
                                   1437+* SAVE REGS ACCROSS SVC 10 AND SVC 1  TO MINIMIZE RES CODE    AH A57089
                                   1438+* IT IS ASSUMED THAT NO BR IS TAKEN OUT OF CODE FROM HERE TO  AH A57089
                                   1439+* TO 30 MIN WAIT CODE APARS 38869 AND 57089                   AH A57089
                                   1440+*
000044 900F 2D1E            00D20  1441+         STM   X0,X15,EXITSAVE .        SAVE REGS ACCRS WAIT  AH A49817
000048 9180 401D      0001D        1442+         TM    TCBFLGS,X'80' .          IS ABEND IS PROCESS.       STAE
00004C 4710 2094            00096  1443+         BO    BYSTAE .                 IF YES,BYPASS STAE PROCESSING
                                   1444+*      * LR    X11,X0 .                 SAVE GEN REG ZERO     AH A57089
                                   1445+*      * LR    XEN01,X1 .               SAVE GEN REG ONE      AH A57089
                                   1446+*      * LR    6,15 .                   SAVE REGISTER 15      AH A57089
000050 4190 40A0            000A0  1447+         LA    XWKC,TCBNSTAE .          ADDRESS OF TCBNSTAE FIELD. STAE
000054 5879 0000            00000  1448+STAELOOP L     XWKA,0(XWKC) .           ADDRESS OF SCB.            STAE
000058 1277                        1449+         LTR   XWKA,XWKA .              SCB PRESENT          AD   M2001
00005A 4780 2094            00096  1450+         BZ    NOSCB .                  NO, SKIP SCB PROCESSING   20021
00005E 9120 700C      0000C        1451+         TM    FLAG(XWKA),SCBSTAI .     IS SCB A STAI SCB         20021
000062 4710 208E            00090  1452+         BO    NXTSCB .                 YES, GET NEXT SCB    AD   M2001
000066 D502 4001 700D 00001 0000D  1453+         CLC   1(3,XTCB),13(XWKA) .     EXITING PGM          AD   M2001
                                   1454+*                                       ISSUE STAE .         AD   M2001
00006C 4770 2094            00096  1455+         BNE   NOSCB .                  NO, BRANCH.                STAE
                    EXIT MODULE                                                                                PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000070 9180 700C      0000C        1456+         TM    12(XWKA),XCTLSTAE .      XCTL OPTION SPECIFIED.     STAE
000074 4710 208E            00090  1457+         BO    NXTSCB .                 YES, GET NEXT SCB    AD   M2001
000078 4117 0000            00000  1458+         LA    XLOC,0(XWKA) .           START LOC FOR FREEMAIN.    STAE
00007C D203 9000 7000 00000 00000  1459+         MVC   0(4,XWKC),0(XWKA) .      UPDATE SCB ADDR PTR        STAE
000082 5800 2C96            00C98  1460+         L     XLNGH,K16F255 .          LENGTH 16, SUB-POOL 255.  M0183
000086 5880 2CB6            00CB8  1461+         L     8,ARMBRNCH ,             GET BR ENTRY TO FREEMAIN.  STAE
00008A 05E8                        1462+         BALR  14,8 .                   TO FREEMAIN OF SCB.        STAE
00008C 47F0 2052            00054  1463+         B     STAELOOP .               BR TO CONTINUE SCB SEARCH. STAE
000090 1897                        1464+NXTSCB   LR    XWKC,XWKA .              UPDTE SEARCH SCB PTR AD   M2001
000092 47F0 2052            00054  1465+         B     STAELOOP .               BR TO CONTINUE SCB SEARCH. STAE
000096                             1466+NOSCB    EQU   * .                                                 STAE
                                   1467+*      * LR    X0,X11 .                 RESTORE GEN REG ZERO  AH A57089
                                   1468+*      * LR    X1,XEN01 .               RESTORE GEN REG ONE   AH A57089
                                   1469+*      * LR    15,6 .                   RESTORE REGISTER 15   AH A57089
000096                             1470+BYSTAE   EQU   * .                                                 STAE
                                   1471+*
                                   1472+* CHECK IF EVERY OTHER TCB IN THE JOBSTEP IS WAITING. IF SO   AH A38869
                                   1473+* WAIT HAS A HOOK TO Q THE 30 MIN REAL TQE                    AH A57089
                                   1474+*
000096 5830 0010            00010  1475+         L     XCVT,CVTPTR .            ADDRESS THE CVT       AH A57089
00009A 41C0 20E6            000E8  1476+         LA    XNOWAITR,BYPSWAIT .      NO WAIT IF FINISHED   AH A57089
00009E 4140 4000            00000  1477+         LA    XTCB,0(,XTCB) .          DROP POSSIBLE NOISE   AH A57089
0000A2 9180 500B      0000B        1478+         TM    RBSTAB2,RBTCBNXT .       Q. LAST RB ON Q       AH A57089
0000A6 071C                        1479+         BCR   1,XNOWAITR .             YES. CHECKED IN 'EOT' AH A57089
0000A8 5860 501C            0001C  1480+         L     XNRB,RBLINK .            GET NEXT RB           AH A38869
                                   1481+         DROP  XRB .                                          AH A38869
000000                             1482+         USING RBSECT,XNRB .                                  AH A38869
0000AC 9108 600A      0000A        1483+         TM    RBSTAB,8 .               Q. RB WAITING ON ECB  AH  M4926
0000B0 078C                        1484+         BCR   8,XNOWAITR .             NO. NO 30 MIN WAIT    AH A38869
                                   1485+         DROP  XNRB .                                         AH A38869
000000                             1486+         USING RBSECT,XRB .                                   AH A38869
0000B2 5880 2C86            00C88  1487+         L     X8,AIEA0DS1 .  IF 3RD STAGE EXIT EFFECTOR      PDOS64911
0000B6 91F0 8001      00001        1488+         TM    1(X8),X'F0' .       HAS ENTRY, SKIP QUEUING OF PDOS64911
0000BA 077C                        1489+         BCR   7,XNOWAITR .        30 MIN WAIT TQE            PDOS64911
0000BC 91C0 500A      0000A        1490+         TM    RBSTAB1,RBFTP (S)IRB ?                    @SA75022
0000C0 47B0 20DC            000DE  1491+         BNM   EXTOWAIT NO--GO QUEUE TQE            @SA75022
0000C4 5880 5018            00018  1492+         L     X8,RBIQE SEE IF ANOTHER              @SA75022
0000C8 4180 8000            00000  1493+         LA    X8,0(,X8) IQE TO BE                   @SA75022
0000CC 1288                        1494+         LTR   X8,X8 SCHEDULED FOR               @SA75022
0000CE 4780 20DC            000DE  1495+         BZ    EXTOWAIT THIS IRB.                   @SA75022
0000D2 5880 8000            00000  1496+         L     X8,IQELNK-IQESECT(,X8) IF NOT,                  @SA75022
0000D6 4180 8000            00000  1497+         LA    X8,0(,X8) THEN QUEUE                  @SA75022
0000DA 1288                        1498+         LTR   X8,X8 TQE. OTHERWISE              @SA75022
0000DC 077C                        1499+         BCR   7,XNOWAITR SKIP TQE ENQUEUE.           @SA75022
0000DE                             1500+EXTOWAIT EQU   * .                 TAKE ENTRY INTO WAIT PGM   PDOS64911
0000DE 5880 2CCA            00CCC  1501+         L     X8,WTJSTIME .       WHICH QUEUES 30-MIN WAIT   PDOS64911
0000E2 05E8                        1502+         BALR  XRETN,X8 .          TQE TO INIT TCB IF ALL     PDOS64911
0000E4 5820 EB98            00B98  1503+         L     XBSE,AEDBSE-*(,XRETN) . TCBS IN SVC WAIT       PDOS64911
                                   1504+*                                  (IMMEDIATE RETURN)         PDOS64911
0000E8                             1505+BYPSWAIT EQU   * .                                            AH A38869
0000E8 980F 2D1E            00D20  1506+         LM    X0,X15,EXITSAVE .        RESTORE GENERAL REGS  AH A38869
                                   1507+*
                                   1508+* TEST EXITING RB TYPE. PRB=00, IRB=01, SIRB=10, SVRB=11.
0000EC 9180 401D      0001D        1509+         TM    TCBFLGS1,TCBFA ABEND IN PROGRESS           @SA72248
0000F0 4710 2126            00128  1510+         BO    DEFERSKP YES--BYPASS ATTN PROCESS    @SA72248
                    EXIT MODULE                                                                                PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000F4 18C5                        1511+         LR    XEN01,XRB .              SAVE INPUT RB ADDRESS     20021
0000F6                             1512+DEFRLOOP EQU   * 20021
0000F6 9180 500B      0000B        1513+         TM    RBSTAB2,RBTCBNXT .       LAST RB ON QUEUE          20021
0000FA 4710 2120            00122  1514+         BO    DEFEROFF .               YES, TURN OFF DEFER BIT   20021
0000FE 5850 501C            0001C  1515+         L     XRB,RBLINK .             GET PREVIOUS RB ADDRESS   20021
000102 91C0 500A      0000A        1516+         TM    RBSTAB1,RBFTSVRB .       IS THIS AN SVRB           20021
000106 4710 2124            00126  1517+         BO    DEFERLON .               YES, LEAVE ATTENTION BIT  20021
00010A 4740 20F4            000F6  1518+         BM    DEFRLOOP .               NO, AN (S)IRB GET NEXT RB 20021
00010E 9512 5009      00009        1519+         CLI   RBSIZE,X'12' .           Q. IS THIS AN SVRB ?  AH A50570
000112 4780 2124            00126  1520+         BE    DEFERLON .               YES, DO NOT RESET BIT AH A50570
000116 9120 500B      0000B        1521+         TM    RBSTAB2,RBATTN .         IS THE ATTENTION BIT ON   20021
00011A 4710 2124            00126  1522+         BO    DEFERLON .               YES, DO NOT RESET BIT     20021
00011E 47F0 20F4            000F6  1523+         B     DEFRLOOP .               CONTINUE TILL END OF CHAIN20021
000122                             1524+DEFEROFF EQU   * .                                                20021
000122 94DF 4094      00094        1525+         NI    TCBTSFLG,255-TCBATT TURN OFF ATTENTION        20021
000126                             1526+DEFERLON EQU   * 20021
000126 185C                        1527+         LR    XRB,XEN01 RESTOR SAVED REGISTER     20021
000128                             1528+DEFERSKP EQU   * @SA72248
000128 91C0 500A      0000A        1529+         TM    RBSTAB,X'C0' .           TEST RB TYPE.
00012C 4740 22C0            002C2  1530+         BC    4,EDIRB .                BR IF (S)IRB.
000130 58C0 2C82            00C84  1531+         L     XEN01,ATH .              LOAD ENTRY TO TRANS HANDLER
000134 4710 2156            00158  1532+         BC    1,EDCM .                 BR IF SVRB EXITING
000138 5880 2C7E            00C80  1533+         L     XWK,AIEASCSV .           GET ADDR OF SVC SAVE AREA.
00013C D23F 4030 8000 00030 00000  1534+         MVC   TCBGRS(64),0(XWK) .      SAVE ALL REGS IN TCB.
000142 9180 500B      0000B        1535+         TM    RBSTAB+1,RBTCBNXT .      IS EXIT FROM LAST PRB.
000146 4710 27F0            007F2  1536+         BO    EOT .                    BR IF YES.
00014A 5860 501C            0001C  1537+         L     XNRB,RBLINK .            PICK UP PREV RB ADDR       RORI
00014E D203 4068 6014 00068 00014  1538+         MVC   TCBGRS+56(4),20(XNRB) .  RESUME ADDR TO TCB REG 14  RORI
000154 41C0 250A            0050C  1539+         LA    XEN01,CDEXIT .           LOAD ADDRESS OF CDEXIT (PRB'S).
000158                             1540+EDCM     EQU   * .                                                20021
000158 9512 5009      00009        1541+         CLI   RBSIZE,X'12' .           Q. IS THIS AN SVRB ?      M4255
00015C 4770 216C            0016E  1542+         BNE   INITRB .                 NO, BR TO CONTINUE        M4255
000160 D504 5088 2C9E 00088 00CA0  1543+         CLC   RBEXSAVE+40(5),ABEND .   Q. IS THIS THE ABEND RB   M4255
000166 4770 216C            0016E  1544+         BNE   INITRB .                 NO, BR TO CONTINUE        M4255
00016A 925C 508C      0008C        1545+         MVI   RBEXSAVE+44,C'*' .       YES, OVERLAY D IN ABEND   M4255
00016E                             1546+INITRB   EQU   * .                                                M4255
000000                             1547+         USING IQESECT,XIQE .                                     20021
000000                             1548+         USING RBSECT,XRB .                                       20021
                                   1549+* IF TAH ENTERED, 0,1,&15 ARE AS WHEN SVC RTN EXITED              20021
00016E                             1550+EDTR     EQU   * .                                                20021
00016E 05EC                        1551+         BALR  XRETN,XEN01 .            TO T.A.H. OR CDEXIT       20021
000170 05E0                        1552+         BALR  XRETN,0
000172                             1553+         USING *,XRETN
000172 5820 EB0A            00C7C  1554+         L     XBSE,AEDBSE .            SET UP ADDRESSABILITY
                                   1555+         DROP  XRETN
                                   1556+* CHECK IF TASK SWITCH IS NECESSARY DUE TO WAITING RB.
000176 9180 500B      0000B        1557+EDTNX    TM    RBSTAB+1,RBTCBNXT .      IS TCB NEXT (POSSIBLE IF
                                   1558+*                                       IN ABEND STATUS) .
00017A 4710 2284            00286  1559+         BO    EDABSPL .                BR IF YES
00017E 9140 4094      00094        1560+         TM    TCBTSFLG,TCBSTPPR .      IS TCB TO BE STOPPED      20021
000182 4780 21E8            001EA  1561+         BZ    EDWT .                   NO, SKIP SET NONDISPATBL  20021
000186 9120 4094      00094        1562+         TM    TCBTSFLG,TCBATT .        IS THE ATTENTION BIT SET  20021
00018A 4710 21E8            001EA  1563+         BO    EDWT .                   YES, SKIP SET NONDISP.    20021
                                   1564+*                                                                 20021
                                   1565+*   TEST FOR ABEND STATUS BEFORE SET NON-DISPATCHABLE             20021
                    EXIT MODULE                                                                                PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1566+*                                                                 20021
00018E 9180 401D      0001D        1567+         TM    TCBFLGS1,TCBFA .         IS TASK ABENDING          20021
000192 4710 21A4            001A6  1568+         BO    NOSTOP .                 YES- BYPASS STOPPING      20021
000196 9120 401F      0001F        1569+         TM    TCBFLGS3,TCBABTRM .      IS TASK BEING ABTERMED    20021
00019A 4710 21A4            001A6  1570+         BO    NOSTOP .                 YES- BYPASS STOP          20021
00019E 9180 40A0      000A0        1571+         TM    TCBNSTAE,TCBSTABE .      IS TASK IN STAE EXIT      20021
0001A2 4780 21AC            001AE  1572+         BZ    CONTSTOP .               NO-CONT STOP PROCESS      20021
0001A6                             1573+NOSTOP   EQU   * .                                                20021
0001A6 94BF 4094      00094        1574+         NI    TCBTSFLG,STPPROFF .      TURN OFF TCBSTPPR FLAG    20021
0001AA 47F0 21E8            001EA  1575+         B     EDWT .                   CONTINUE EXIT PROCESS     20021
0001AE                             1576+CONTSTOP EQU   * .                                                20021
0001AE 5860 501C            0001C  1577+         L     XNRB,RBLINK .            GET ADDR NXT RB ON CHAIN  20021
                                   1578+         DROP  XRB .                                              20021
000000                             1579+         USING RBSECT,XNRB .                                      20021
0001B2                             1580+EDCKNXRB EQU   * .                                                20021
0001B2 91C0 600A      0000A        1581+         TM    RBSTAB1,RBFTSVRB .       NEXT RB A SVRB            20021
0001B6 4710 21E8            001EA  1582+         BO    EDWT .                   YES, DO NOT STOP TCB      20021
0001BA 9120 600B      0000B        1583+         TM    RBSTAB2,RBATTN .         IS IT AN ATTENTION RB     20021
0001BE 4710 21D8            001DA  1584+         BO    SETSTOP .                YES-SET NONDISPATCHABLE   20021
0001C2 91F0 6011      00011        1585+         TM    RBOPSW+1,KEYZERO .       DOES RB HAVE PROT KEY=0   20021
0001C6 4780 21E8            001EA  1586+         BZ    EDWT .                   YES-SKIP RESET NONDISPAT  20021
0001CA 9180 600B      0000B        1587+         TM    RBSTAB2,RBTCBNXT .       IS THIS LAST RB ON QUEUE  20021
0001CE 4770 21D8            001DA  1588+         BNZ   SETSTOP .                YES- BR TO STOP           20021
0001D2 5860 601C            0001C  1589+         L     XNRB,RBLINK .            NO- ADR OF NEXT RB        20021
0001D6 47F0 21B0            001B2  1590+         B     EDCKNXRB .               BRANCH TO CHECK NXT RB    20021
                                   1591+         DROP  XNRB .                                             20021
000000                             1592+         USING RBSECT,XRB .                                       20021
000000                             1593+         USING IQESECT,XIQE .                                     20021
0001DA                             1594+SETSTOP  EQU   * .                                                20021
0001DA 9601 4021      00021        1595+         OI    TCBFLGS5,TCBPNDSP .      TURN ON SECOND NONDISP BIT20021
0001DE 9640 40AE      000AE        1596+         OI    TCBNDSP2,TCBSTPP .       SET TASK NONDISPATCHABLE  20021
0001E2 94BF 4094      00094        1597+         NI    TCBTSFLG,STPPROFF .      RESET STOP FLAG           20021
0001E6 47F0 21F4            001F6  1598+         B     EDSW .                   CAUSE A TASK SWITCH       20021
0001EA                             1599+EDWT     EQU   * .                                                20021
0001EA 5860 501C            0001C  1600+         L     XNRB,RBLINK .            ADDR OF NEXT RB ON CHAIN  20021
0001EE 91FF 601C      0001C        1601+         TM    RBWCF-RBSECT(XNRB),X'FF' .IS NEXT RB WAITING
0001F2 4780 2206            00208  1602+         BZ    EDACT .                  BR IF NOT.
                                   1603+* NEXT RB LEVEL IS WAITING. FORCE TASK SWITCH IF NOT ALREADY INDICATED.
0001F6 5870 3000            00000  1604+EDSW     L     XNEW,CVTTCBP .           GET 'NEW' POINTER.
0001FA 5940 7000            00000  1605+         C     XTCB,0(0,XNEW) .         IS 'NEW' = CURRENT TCB.
0001FE 4770 2206            00208  1606+         BNE   EDACT .                  BR IF NOT.
000202 1B88                        1607+         SR    XWK,XWK .                ZERO WORK REG.
000204 5080 7000            00000  1608+         ST    XWK,0(0,XNEW) .          ZERO 'NEW' TO FORCE TASK SWTCH.
                                   1609+* DEACTIVATE AND DEQUEUE RB.
000208 94BF 500B      0000B        1610+EDACT    NI    RBSTAB+1,255-RBFACTV .   SET RB INACTIVE.
00020C D202 4001 501D 00001 0001D  1611+         MVC   TCBRBP+1(3),RBLINK+1 .   DEQUEUE EXITING RB .
                                   1612+* FREE CORE IF RB FLAGGED AS DYNAMIC.
                                   1613+* SET REG 12 TO EXIT TO TRANSIENT AREA REFRESH RTN.
                                   1614+* RETURN IS TO DISPATCHER AFTER REFRESH.
000212 58C0 2CBE            00CC0  1615+         L     12,ATAR .                GET T/A REFRESH ADDR. AH A57089
000216 9102 500B      0000B        1616+         TM    RBSTAB+1,RBFDYN .        CAN RB BE FREED.
00021A 078C                        1617+         BCR   8,12 .                   BR IF NOT TO REFRESH. AH A57089
00021C 91C0 500A      0000A        1618+         TM    RBSTAB,X'C0' .           IS AN IRB EXITING.
000220 4790 2246            00248  1619+         BC    9,EDFRB .                BR IF NOT.
000224 9500 5018      00018        1620+         CLI   RBIQE,0 .                IS IRB USE CT = 0.
                    EXIT MODULE                                                                                PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000228 077C                        1621+         BCR   7,12 .                   BR IF NOT TO REFRESH. AH A57089
                                   1622+*                                       FREE IRB.
                                   1623+* FREE P.P. REG SAVE AREA ASSOCIATED WITH IRB.
00022A 5810 5000            00000  1624+         L     XLOC,RBPPSAV .           GET ADDRESS OF AREA.
00022E 4110 1000            00000  1625+         LA    XLOC,0(0,XLOC) .         CLEAR HI ORDER BYTE.
000232 1211                        1626+         LTR   XLOC,XLOC .              IS ADDRESS PRESENT.
000234 4780 223E            00240  1627+         BZ    EDFIRB .                 BR IF NOT.
000238 5800 2C92            00C94  1628+         L     XLNGH,K72F250 .          SET FREEMAIN PARAMETER.
00023C 45E0 2C3E            00C40  1629+         BAL   XRETN,FREEMAIN .         CONDITIONALLY S/A     AH  M1545
000240                             1630+EDFIRB   DS    0H
000240 4800 5008            00008  1631+         LH    XLNGH,RBSIZE-1 .         SET IRB LENGTH FOR FREEMAIN.
000244 47F0 224C            0024E  1632+         B     EDFREEX
                                   1633+* FREE RB CORE.
000248                             1634+EDFRB    DS    0H
000248 1B00                        1635+         SR    XLNGH,XLNGH .            ZERO REG.
00024A 4300 5009            00009  1636+         IC    XLNGH,RBSIZE .           GET RB LENGTH.
00024E                             1637+EDFREEX  DS    0H
00024E 1815                        1638+         LR    XLOC,XRB .               SET START LOC FOR FREEMAIN.
000250 8900 0003            00003  1639+         SLL   XLNGH,3 .                DEVELOP BYTES (FROM DBL WDS).
000254 5600 2C8E            00C90  1640+         O     XLNGH,K255 .             SET SUB-POOL TO 255 FOR P/SVRB.
000258 91C0 500A      0000A        1641+         TM    RBSTAB,X'C0' .           IS IRB EXITING.
00025C 4790 2278            0027A  1642+         BC    9,EDFREE .               BR IF NOT.
000260 5400 2C8A            00C8C  1643+         N     XLNGH,K253CMP .          SET SUB-POOL TO 253 FOR IRB.
000264 5880 2D8E            00D90  1644+         L     8,AGOVRFLB GOVERFLB                    @SA70798
000268 5880 8000            00000  1645+         L     8,0(,8) END OF SQA                  @SA70798
00026C 4180 8000            00000  1646+         LA    8,0(,8) CLEAR FLAG                  @SA70798
000270 1918                        1647+         CR    XLOC,8 IF XLOC HIGH                @SA70798
000272 47B0 2278            0027A  1648+         BNL   EDFREE THEN LSQA                   @SA70798
000276 5700 2D8A            00D8C  1649+         X     XLNGH,K243N253 ELSE SQA                    @SA70798
00027A 5880 2CB6            00CB8  1650+EDFREE   L     8,ARMBRNCH .             GET BR ENTRY TO FREEMAIN.
00027E 05E8                        1651+         BALR  14,8 .                   TO FREEMAIN FOR RB.


                                   1654+*
                                   1655+* CODE FOR 30 MINUTE TQE WAS MOVED FROM HERE TO AN EARLIER    AH A57089
                                   1656+* POINT IN THE MODULE. .                                      AH A57089
                                   1657+*
000280 58C0 2CBE            00CC0  1658+         L     12,ATAR .
000284 07FC                        1659+         BR    12 .                     TO T/A REFRESH.




                                   1661+* SPECIAL HANDLING FOR REMOVING ABENDED TCB FROM READY QUEUE.
000286                             1662+EDABSPL  DS    0H
000286 58E0 2D76            00D78  1663+         L     XRETN,ADQTCB REMOVE TCB FROM             @SA75035
00028A 05EE                        1664+         BALR  XRETN,XRETN READY QUEUE                 @SA75035
00028C 9680 4021      00021        1665+         OI    TCBFLGS+4,TCBFC .        SET TERMINATION FLAG.
000290 47F0 21F4            001F6  1666+         B     EDSW
                            USER EXIT PROCESSING                                                               PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1668+* THIS ROUTINE IS ENTERED UPON RETURN FROM A USER EXIT ROUTINE.
000294                             1669+EDUX     DS    0H
000294 5860 4004            00004  1670+         L     XPIE,TCBPIE .            GET PIE PTR FROM TCB.
000298 947F 6000      00000        1671+         NI    0(XPIE),X'7F' .          RESET 1ST TIME LOGIC SWITCH.
00029C 987C 6008            00008  1672+         LM    XW,XW+5,PIEPSW+4(XPIE) . GET RH SAVED PSW AND REGS 14-2.
0002A0 5070 5014            00014  1673+         ST    XW,RBOPSW+4 .            SET RH PSW IN CURRENT RB.
0002A4 9089 4068            00068  1674+         STM   XW+1,XW+2,TCBGRS+56 .    STORE REGS 14 AND 15 IN TCB.
0002A8 90AC 4030            00030  1675+         STM   XW+3,XW+5,TCBGRS .       STORE REGS 0,1, AND 2 IN TCB.
0002AC 58E0 2C7E            00C80  1676+         L     XRETN,AIEASCSV .         GET ADDRESS OF SVC SAVE AREA
0002B0 D22B 403C E00C 0003C 0000C  1677+         MVC   TCBGRS+12(44),12(XRETN) .MOVE REGS 3-13 FROM
                                   1678+*                                       SAVE AREA TO TCB
0002B6 D201 5010 0020 00010 00020  1679+         MVC   RBOPSW(2),SVCOPSW .      SET LH PSW IN CURRENT RB.
0002BC 58E0 3088            00088  1680+         L     XRETN,CVT0DS .           GET ADDR OF DISPATCHER.
0002C0 07FE                        1681+         BR    XRETN .                  BR TO DISPATCHER.
                    (S)IRB PROCESSING                                                                          PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0002C2                             1683+EDIRB    DS    0H
0002C2 9120 500B      0000B        1684+         TM    RBSTAB2,RBATTN .         IS ATTENTION IRB EXITING  20021
0002C6 4780 22CE            002D0  1685+         BZ    SKIPATTN .               NO,SKIP ATTN IRB PROCESS  20021
0002CA 58F0 2D7E            00D80  1686+         L     XLINK,ATTNEXIT .         ADR ATTENTION IRB EXIT RTN20021
0002CE 05EF                        1687+         BALR  XRETURN,XLINK .          BRANCH TO RTN             20021
0002D0                             1688+SKIPATTN EQU   * .                                                20021
0002D0 910C 500B      0000B        1689+         TM    RBSTAB+1,X'0C' .         TEST IQE TYPE.
0002D4 4780 2174            00176  1690+         BZ    EDTNX .                  BR IF IQE NOT TO BE RETURNED.
0002D8 5860 5018            00018  1691+         L     XIQE,RBIQE .             GET IQE FROM RB.
0002DC 4166 0000            00000  1692+         LA    XIQE,0(XIQE) .           CLEAR HI ORDER BYTE       20472
0002E0 4710 22FA            002FC  1693+         BO    EDIQE .                  BR IF IQE TO BE RETURNED   RORI
0002E4 9108 500B      0000B        1694+         TM    RBSTAB+1,X'08' .         TEST IF IQE                RORI
0002E8 4780 2358            0035A  1695+         BZ    EDRQE .                  BR IF RQE TO BE RETURNED   RORI
0002EC 5806 0000            00000  1696+         L     XNIQE,0(XIQE) .          IQE NOT TO BE RETURNED     RORI
0002F0 9110 500B      0000B        1697+         TM    RBSTAB+1,X'10' .         IS IT AN USER IQE          1505
0002F4 4710 22FA            002FC  1698+         BO    EDIQE .                  BR IF YES.                 1505
0002F8 47F0 2382            00384  1699+         B     EDIND .                  PREPARE TO FREE IRB
0002FC 1B11                        1700+EDIQE    SR    X1,X1 .                  ZERO REGISTER
0002FE 4310 5018            00018  1701+         IC    X1,RBIQE .               PICK UP IRB USE COUNT.
000302 1211                        1702+         LTR   X1,X1 .                  IS CT = 0.
000304 4780 2308            0030A  1703+         BZ    *+6 .                    BR IF YES.
000308 0610                        1704+         BCTR  X1,0 .                   DECREMENT IRB USE COUNT.
00030A 5800 6000            00000  1705+         L     XNIQE,IQELNK .           GET LINK FIELD FROM EXIT'G IQE
00030E 1870                        1706+         LR    X7,XNIQE .               SAVE IQE ADDRESS.          1505
000310 5000 5018            00018  1707+         ST    XNIQE,RBIQE .            UPDATE RB IQE LINK FIELD.
000314 4210 5018            00018  1708+         STC   X1,RBIQE .               STORE IRB USE COUNT.
000318 4810 5008            00008  1709+         LH    X1,RBSIZE-1 .            GET IRB SIZE.
00031C 5510 2CAA            00CAC  1710+         CL    X1,K13 .                 IS WORK AREA PRESENT.
000320 4740 2332            00334  1711+         BL    FRIQE .                  BR IF NOT.                 1505
000324 5880 5060            00060  1712+         L     XNXA,RBNEXAV .           GET NEXT AVAILABLE PTR.
000328 5080 6000            00000  1713+         ST    XNXA,IQELNK .            LINK NEXT AVL TO RETURNING IQE.
00032C 5060 5060            00060  1714+         ST    XIQE,RBNEXAV .           RETURN IQE TO NEXT AVAILABLE.
000330 47F0 234A            0034C  1715+         B     EDRES .                                             1505
000334                             1716+FRIQE    EQU   * 1505
000334 9110 500B      0000B        1717+         TM    RBSTAB+1,X'10' .         IS IQE TO BE FREED.        1505
000338 4780 234A            0034C  1718+         BZ    EDRES .                  BR IF NOT.                 1505
00033C 1816                        1719+         LR    XLOC,XIQE .              LOAD FREEMAIN              1505
00033E 5800 2C9A            00C9C  1720+         L     XLNGH,K16F253 .          PARAMETERS.                1505
000342 4111 0000            00000  1721+         LA    XLOC,0(XLOC) .           CLEAR HIGH ORDER BYTE.     1505
000346 5880 2CB6            00CB8  1722+         L     8,ARMBRNCH .             GET BR ENTRY TO FREEMAIN.  1505
00034A 05E8                        1723+         BALR  14,8 .                   BR TO FREEMAIN             1505
00034C                             1724+EDRES    DS    0H
00034C 1217                        1725+         LTR   X1,X7 .                  IS THERE A QUEUED REQUEST. 1505
00034E 4780 2382            00384  1726+         BZ    EDIND .                  BR IF NOT.
000352 5810 1004            00004  1727+         L     X1,IQEPARM-IQESECT(0,X1) .SET REG1 FOR REENTRY
000356 47F0 238E            00390  1728+         B     EDREN .                  TO INITIALIZE FOR REENTRY.

                                   1730+* EXIT FROM RQE SCHEDULED A.E.R.
00035A                             1731+EDRQE    DS    0H
00035A 4800 6000            00000  1732+         LH    X0,RQELNK .              GET LINK FIELD FROM EXIT'G RQE.
00035E 4000 501A            0001A  1733+         STH   X0,RBIQE+2 .             UPDATE RB IQE LINK FIELD.
000362 5850 2CA6            00CA8  1734+         L     XIOBSE,K4096 .           SET-UP IOS BASE REG.
000366 5890 2CAE            00CB0  1735+         L     XEN02,AINT025 .          GET IOS ENTRY ADDRESS.
00036A 9823 6004            00004  1736+         LM    XIOB,XDEB,RQEIOB .       SET-UP FOR IOS INTERFACE.
00036E 1816                        1737+         LR    X1,XIQE .                SET-UP 16* ADDR FOR IOS.
                    (S)IRB PROCESSING                                                                          PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000370 0589                        1738+         BALR  XRE02,XEN02 .            TO IOS RTN TO RETURN RQE'S.
                                   1739+* NOTE- REGS 0,4, AND 6 ARE ASSUMED TRANSPARENT OVER IOS ROUTE.
000372                             1740+         USING *,XRE02 .
000372 5820 890A            00C7C  1741+         L     XBSE,AEDBSE .            REESTABLISH ADDRESSABILITY.
                                   1742+         DROP  XRE02
                                   1743+* REESTABLISH REGISTER VALUES.
000376 5830 0010            00010  1744+         L     XCVT,16 .                CVT PTR.
00037A 5850 4000            00000  1745+         L     XRB,TCBRBP .             RB PTR.
00037E 1200                        1746+         LTR   X0,X0 .                  IS THERE A QUEUED REQUEST.
000380 4770 238C            0038E  1747+         BC    7,EDSR1 .                BR IF YES.
                                   1748+* PREPARE TO FREE IRB.
000384                             1749+EDIND    DS    0H
000384 D23F 4030 5020 00030 00020  1750+         MVC   TCBGRS(64),RBGRSAVE .    MOVE REGS FROM IRB TO TCB.
00038A 47F0 2174            00176  1751+         B     EDTNX .                  RETURN TO COMMON CODE.

00038E 1810                        1753+EDSR1    LR    X1,X0 .                  SET REG 1 FOR REENTRY.
                                   1754+* REEINTIALIZE REGS AND IRB FOR REENTRY.
000390 58D0 5000            00000  1755+EDREN    L     XPSAV,RBPPSAV .          SET-UP PP SAVE ADDR.
000394 41D0 D000            00000  1756+         LA    XPSAV,0(0,XPSAV) .       CLEAR HI-ORDER BYTE.
000398 41E0 3050            00050  1757+         LA    XRETN,CVTEXIT .          SET-UP RETURN REG.
00039C 58F0 500C            0000C  1758+         L     XEP,RBEP .               SET-UP ENTRY POINT REG.
0003A0 50F0 5014            00014  1759+         ST    XEP,RBOPSW+4 .           INITIALIZE EP IN IRB OPSW.
0003A4 9001 4030            00030  1760+         STM   0,1,TCBGRS .             STORE REGS IN TCB.
0003A8 90DF 4064            00064  1761+         STM   13,15,TCBGRS+52 .
0003AC 58C0 3088            00088  1762+         L     XEN03,CVT0DS .           GET ADDR OF DISPATCHER.
0003B0 07FC                        1763+         BR    XEN03 .                  TO DISPATCHER.
           ATTENTION IRB PROCESSING                                                                            PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1765+*                                                                 20021
                                   1766+*  EXIT OF IRB FOR TERMINAL ATTENTION EXIT                        20021
                                   1767+*                                                                 20021
0003B2                             1768+         DS    0H 20021
0003B2                             1769+IKJATTNX EQU   * 20021
0003B2                             1770+         USING *,XBASE .                                          20021
0003B2 900F F96E            00D20  1771+         STM   X0,X15,EXITSAVE .        SAVE CALLER REGS          20021
                                   1772+*                                                                 20021
                                   1773+*  TEST IS TASK IN ABEND, ABTERM OR STAE EXIT                     20021
                                   1774+*  IF SO JUST FREE TAIE                                           20021
                                   1775+*                                                                 20021
0003B6 58A0 F9D2            00D84  1776+         L     XGETTJB,TJBGET .         ADR OF RTN TO GET TJB ADR 20021
0003BA 05EA                        1777+         BALR  XRETURN,XGETTJB .        BRANCH TO GETTJB          20021
000000                             1778+         USING TJBX,XTJBX .                                       20021
000000                             1779+         USING TSCVT,XTSCVT .                                     20021
000000                             1780+         USING TJB,XTJB .                                         20021
0003BC 5890 7018            00018  1781+         L     XTAXE,TJBXTAXE .         ADR FIRST TAXE FROM TJBX. 20021
0003C0 41D0 7018            00018  1782+         LA    XPREV,TJBXTAXE .         SAVE ADR LINK FIELD.      20021
0003C4 1BBB                        1783+         SR    XACTV,XACTV .            ZERO REG FOR ACTIVE TAXE  20021
000000                             1784+         USING RBSECT,XTAXE .                                     20021
0003C6                             1785+TSTEST   EQU   * .                                                20021
0003C6 4199 0000            00000  1786+         LA    XTAXE,0(XTAXE) .         CLEAR OUT HIGH BYTE       M1268
0003CA 1299                        1787+         LTR   XTAXE,XTAXE .            Q. END OF TJBXTAXE        M1268
0003CC 4780 F108            004BA  1788+         BZ    FREETAIE .               YES, NO MATCH- FREE TAIE  M1268
0003D0 9140 900B      0000B        1789+         TM    RBSTAB2,RBFACTV .        THIS TAXE OR IRB ACTIVE.  20021
0003D4 4780 F02E            003E0  1790+         BZ    GETNXT .                 NO, GET NEXT TAXE         20021
                                   1791+         DROP  XTAXE .                                            20021
000000                             1792+         USING TAXE,XTAXE .                                       20021
0003D8 1995                        1793+         CR    XTAXE,XRB .              ACT IRB, SAME IRB EXITING.20021
0003DA 4780 F03A            003EC  1794+         BE    TSOCURNT .               YES, CURR IRB ONE EXITING.20021
0003DE 18B9                        1795+         LR    XACTV,XTAXE .            SVE ADR OF ACTIVE TAXE.   20021
0003E0                             1796+GETNXT   EQU   * .                                                20021
0003E0 41D0 9074            00074  1797+         LA    XPREV,TAXELNK .          SVE ADR PREVIOUS LNK FIELD20021
0003E4 5890 9074            00074  1798+         L     XTAXE,TAXELNK .          ADDRESS OF NEXT TAXE      20021
0003E8 47F0 F014            003C6  1799+         B     TSTEST .                 TEST NEXT TAXE            20021
                                   1800+         DROP  XTAXE .                                            20021
0003EC                             1801+TSOCURNT EQU   * .                                                20021
000000                             1802+         USING RBSECT,XTAXE .                                     20021
0003EC 9102 900B      0000B        1803+         TM    RBSTAB2,RBFDYN .         IS DYNAMIC FLAG ON IN     20021
                                   1804+*                                        CURRENT IRB INDICATING   20021
                                   1805+*                                        TAXE TO BE CANCELLED     20021
0003F0 4780 F048            003FA  1806+         BZ    SKPDEQ .                 NO, SKIP DEQUEUEING TAXE. 20021
                                   1807+         DROP  XTAXE .                                            20021
000000                             1808+         USING TAXE,XTAXE .                                       20021
0003F4 D203 D000 9074 00000 00074  1809+         MVC   ZERO(WORD,XPREV),TAXELNK .DEQUEUE EXITING TAXE.    20021
                                   1810+*                                        WITH CANCEL SPECIFIED.   20021
0003FA                             1811+SKPDEQ   EQU   * .                                                20021
0003FA 45A0 F12A            004DC  1812+         BAL   X10,RESTART .            RESET STOPS FOR SUBTSKS   20021
                                   1813+*                                        OF EXITING IRB TCB       20021
0003FE 1BCC                        1814+         SR    XSTAX,XSTAX .            CLEAR STAX COUNT REG      20021
000400 43C0 2005            00005  1815+         IC    XSTAX,TJBSTAX .          CURR STAX COUNT FROM TJB  20021
000404 58A0 7018            00018  1816+         L     XWTAXE,TJBXTAXE .        ADR FIRST TAXE ON QUEUE   20021
                                   1817+         DROP  XTAXE .                                            20021
000000                             1818+         USING TAXE,XWTAXE .                                      20021
000408                             1819+TESTNEXT EQU   * .                                                20021
           ATTENTION IRB PROCESSING                                                                            PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000408 12AA                        1820+         LTR   XWTAXE,XWTAXE .          LAST TAXE                 20021
00040A 4780 F07A            0042C  1821+         BZ    CKACTV .                 YES, BR TO CHECK ACTIVE   20021
                                   1822+*                                       TAXE OTHER TH EXITING ONE 20021
00040E 9120 A080      00080        1823+         TM    TAXESTAT,TAXEFREQ .      Q. IS TAXE AVAILABLE? AI A45359
000412 4780 F06C            0041E  1824+         BZ    CHKCURNT .               YES. SKIP RESET       AI A45359
000416 94DF A080      00080        1825+         NI    TAXESTAT,REQOFF .        MAKE TAXE AVAILABLE       20021
00041A 41CC 0001            00001  1826+         LA    XSTAX,ONE(XSTAX) .       INCREMENT STAX COUNT      20021
00041E                             1827+CHKCURNT EQU   * .                                            AI A45359
00041E 19A5                        1828+         CR    XWTAXE,XRB .             Q. IS THIS TAXE EXITING?  M4058
000420 4780 F07A            0042C  1829+         BE    CKACTV .                 YES, NOW CHECK            20021
                                   1830+*                                       OTHER ACTIVE TAXES        20021
000424 58A0 A074            00074  1831+         L     XWTAXE,TAXELNK .         ADDR NEXT TAXE ON QUEUE   20021
000428 47F0 F056            00408  1832+         B     TESTNEXT .               TEST THIS TAXE            20021
                                   1833+*                                       FOR EXITING ONE           20021
00042C                             1834+CKACTV   EQU   * .                                                20021
00042C 12BB                        1835+         LTR   XACTV,XACTV .            ANY OTHER ACT TAXES FOUND 20021
00042E 4770 F092            00444  1836+         BNZ   ACTVFND .                YES- BRANCH TO PROCESS    20021
                                   1837+         DROP  XWTAXE .                                           20021
000000                             1838+         USING TAXE,XTAXE .                                       20021
000432 58B0 9074            00074  1839+         L     XACTV,TAXELNK .          ADR FIRST TAXE AFTER ONE  20021
                                   1840+*                                       THAT IS EXITING           20021
000436 12BB                        1841+         LTR   XACTV,XACTV .            ANY MORE TAXES            20021
000438 4780 F0CC            0047E  1842+         BZ    STCOUNT .                NO, BR TO ST STAX COUNT   20021
                                   1843+         DROP  XTAXE .                                            20021
                                   1844+         DROP  XCDE .                   DROP ADDRESSABILITY OF CDE20021
000000                             1845+         USING TAXE,XACTV .                                       20021
00043C 9120 B080      00080        1846+         TM    TAXESTAT,TAXEFREQ .      IS THE TAXE REQUESTED     20021
                                   1847+*                                       INDICAT AN ACT TAXE ON Q  20021
000440 4780 F0CC            0047E  1848+         BZ    STCOUNT .                NO, NO MORE ACTIVE TAXES  20021
                                   1849+         DROP  XACTV .                                            20021
000000                             1850+         USING TAXE,XWTAXE .                                      20021
000444                             1851+ACTVFND  EQU   * .                                                20021
000444 58A0 7018            00018  1852+         L     XWTAXE,TJBXTAXE .        ADR FIRST TAXE ON QUEUE   20021
000448                             1853+CONTACTV EQU   * .                                                20021
000448 12AA                        1854+         LTR   XWTAXE,XWTAXE .          LAST TAXE ON QUEUE        20021
00044A 4780 F0B0            00462  1855+         BZ    ACTV .                   YES, PROCESS LAST TAXE    20021
00044E 19BA                        1856+         CR    XACTV,XWTAXE .           NO, IS IT THE ACTIVE TAXE 20021
000450 4780 F0B0            00462  1857+         BE    ACTV .                   YES, PROCESS LAST ONE     20021
000454 9620 A080      00080        1858+         OI    TAXESTAT,TAXEFREQ .      MAKE TAXE UNAVAILABLE     20021
000458 06C0                        1859+         BCTR  XSTAX,X0 .               DECREMETN STAX COUNT      20021
00045A 58A0 A074            00074  1860+         L     XWTAXE,TAXELNK .         ADDR NEXT TAXE ON QUEUE   20021
00045E 47F0 F096            00448  1861+         B     CONTACTV .               CONT ACTIVE TAXE SEARCH   20021
                                   1862+         DROP  XWTAXE .                                           20021
000000                             1863+         USING TAXE,XACTV .                                       20021
000462                             1864+ACTV     EQU   * .                                                20021
000462 58A0 B070            00070  1865+         L     XTCBSW,TAXETCB .         GET CORRESPONDING TCB AH A43824
000466 9120 B080      00080        1866+         TM    TAXESTAT,TAXEFREQ .      IS THE ACT TAXE UNAVAIL   20021
00046A 4710 F0C2            00474  1867+         BO    TASKSW .                 YES, NOW DO A TASK SWITCH 20021
00046E 9620 B080      00080        1868+         OI    TAXESTAT,TAXEFREQ .      MAKE ACTIVE TAXE UNAVAIL  20021
000472 06C0                        1869+         BCTR  XSTAX,X0 .               DECREMENT STAX COUNT      20021
000474                             1870+TASKSW   EQU   * .                                                20021
000474 183F                        1871+         LR    XWORK3,XBASE .           SAVE BASE OVER TASK SW    20021
000476 58F0 FA12            00DC4  1872+         L     XENTRY,SCVTTASW .        ENTRY POINT OF TASK SW    20021
00047A 05EF                        1873+         BALR  XRETURN,XENTRY .         BRANCH TO TASK SWITCH RTN 20021
00047C 18F3                        1874+         LR    XBASE,XWORK3 .           RESTORE BASE REGISTER     20021
           ATTENTION IRB PROCESSING                                                                            PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00047E                             1875+STCOUNT  EQU   * .                                                20021
00047E 42C0 2005            00005  1876+         STC   XSTAX,TJBSTAX .          STORE CURR COUNT OF STAX  20021
                                   1877+         DROP  XACTV .                                            20021
000000                             1878+         USING CDESECT,XCDE .           SET UP ADDRESSAB FOR CDE  20021
000000                             1879+         USING TAXE,XRB .                                         20021
000482 5810 5084            00084  1880+         L     XTAIE,TAXETAIE .         ADDRESS OF TAIE           20021
000486 1211                        1881+         LTR   XTAIE,XTAIE .            IS THERE A TAIE           20021
000488 4780 F124            004D6  1882+         BZ    DONE .                   NO, PROCESSING COMPLETE   20021
00048C 94DF 5080      00080        1883+         NI    TAXESTAT,REQOFF .        TURN OFF REQUESTED FLAG   20021
                                   1884+         DROP  XRB .                                              20021
000490 1885                        1885+         LR    XWORK,XRB .              ADDR.CURRENT RB           M3482
000000                             1886+         USING TAIE,XTAIE .             ADDRESSIBILITY ON TAIE    M3482
000000                             1887+         USING TAXE,XRB .               ADDRESSIBILITY ON TAXE    M3482
000492                             1888+CKRB     EQU   * .                                                M3482
000492 4180 8000            00000  1889+         LA    XWORK,0(,XWORK) .        CLEAR HI BYTE             M3482
000496 5980 5068            00068  1890+         C     XWORK,TIQEPARM .         IS THE CURRENT RB THE     M3482
                                   1891+*                                        ONE WHOSE REGS WERE IN   M3482
                                   1892+*                                        THE TAIE WHICH WAS       M3482
                                   1893+*                                        MOVED FROM?              M3482
00049A 4780 F0F4            004A6  1894+         BE    TAIEPROC .                YES. USE TAIE TO RESTORE M3482
                                   1895+*                                         REGS TO IRB             M3482
000000                             1896+         USING RBSECT,XWORK .            ADDR ON CURRENT RB CHECK M3482
00049E 5880 801C            0001C  1897+         L     XWORK,RBLINK .            ADDR NEXT RB ON CHAIN    M3482
0004A2 47F0 F0E0            00492  1898+         B     CKRB .                    NOW CHECK NEXT RB        M3482
0004A6                             1899+TAIEPROC EQU   *
0004A6 D23F 8020 1008 00020 00008  1900+         MVC   RBGRSAVE(WORD16),TAIERSAV MOVE INTERRUPTED REGS    M3482
                                   1901+*                                         FROM TAIE BACK TO IRB   M3482
0004AC 5880 801C            0001C  1902+         L     XWORK,RBLINK .            ADDR OF PRB OR ATTN IRB  M3482
                                   1903+*                                         AFTER IRB               M3482
0004B0 D203 8014 1004 00014 00004  1904+         MVC   RBOPSW+4(WORD),TAIEIAD .  MOVE RIGHT HALF PSW      M3482
                                   1905+*                                         FROM TAIE BACK TO PRB   M3482
                                   1906+*                                         OR ATENTION IRB         M3482
0004B6 5050 5068            00068  1907+         ST    XRB,TIQEPARM .             RESTORE IQE PARM FLD IN M3482
                                   1908+*                                          TAXE RO POINT TO TAXE  M3482
                                   1909+         DROP  XWORK .                                            20021
                                   1910+         DROP  XTAIE .                                            20021
000000                             1911+         USING TAXE,XRB .                                         20021
0004BA                             1912+FREETAIE EQU   * .                                                20021
0004BA 5810 5084            00084  1913+         L     XTAIE,TAXETAIE .         ADDRESS OF TAIE           20021
0004BE 1211                        1914+         LTR   XTAIE,XTAIE .            IS THERE A TAIE           20021
0004C0 4780 F124            004D6  1915+         BZ    DONE .                   NO, BYPASS FREEING        20021
0004C4 D702 5085 5085 00085 00085  1916+         XC    TAXETAIE+1(3),TAXETAIE+1 . ZERO TAIE PTR           M3525
                                   1917+         DROP  XRB .                                              20021
000000                             1918+         USING RBSECT,XRB .                                       20021
0004CA 5800 F8E2            00C94  1919+         L     X0,K72F250 .             LENGTH OF TAIE AND SP 250 20021
0004CE 183F                        1920+         LR    XWORK3,XBASE .           SAVE BASE OVER FREEMAIN   20021
0004D0 45E0 F88E            00C40  1921+         BAL   XRETN,FREEMAIN .         CONDITIONALLY TAIE    AH  M1545
0004D4 18F3                        1922+         LR    XBASE,XWORK3 .           RESTORE BASE REGISTER     20021
0004D6                             1923+DONE     EQU   * .                                                20021
0004D6 980F F96E            00D20  1924+         LM    X0,X15,EXITSAVE .        RESTORE CALLER REGISTERS  20021
0004DA 07FE                        1925+         BR    XRETURN .                RETURN TO CALLER          20021
0004DC                             1926+RESTART  EQU   * .                                                20021
0004DC 4100 0007            00007  1927+         LA    X0,START .               CODE FOR STARTING TCBS    20021
0004E0 1B11                        1928+         SR    X1,X1 .                  ZERO REG 1 TO             20021
                                   1929+*                                       INDICATE NO TCB ADDRESS   20021
           ATTENTION IRB PROCESSING                                                                            PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0004E2 183F                        1930+         LR    XWORK3,XBASE .           SAVE BASE OVER STATUS     20021
0004E4 58F0 F9CA            00D7C  1931+         L     XSTATUS,ENTRYSET .       BRANCH ENTRY TO STATUS    20021
0004E8 05EF                        1932+         BALR  XRETURN,XSTATUS .        BRANCH TO STATUS          20021
0004EA 18F3                        1933+         LR    XBASE,XWORK3 .           RESTORE BASE REGISTER     20021
0004EC 07FA                        1934+         BR    X10 .                    RETURN TO CALLER          20021
                                   1935+         DROP  XBASE .                                            20021
         OBTAIN TIME SHARING JOB BLOCK ADDRESS                                                                 PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0004EE                             1937+         DS    0H .                                               20021
0004EE                             1938+GETTJB   EQU   * 20021
0004EE                             1939+         USING *,XGETTJB .                                        20021
000000                             1940+         USING TCB,XTCB .                                         20021
0004EE 5810 40B4            000B4  1941+         L     XJSCB,TCBJSCB .          ADDR OF JSCB              20021
000000                             1942+         USING IEZJSCB,XJSCB .                                    20021
0004F2 4880 110C            0010C  1943+         LH    XTJID,JSCBTJID .         TJID FROM JSCB            20021
                                   1944+         DROP  XJSCB .                                            20021
0004F6 5890 30E4            000E4  1945+         L     XTSCVT,CVTTSCVT .        ADDR TSCVT                20021
000000                             1946+         USING TSCVT,XTSCVT .                                     20021
0004FA 1828                        1947+         LR    XTJB,XTJID .                                       20021
0004FC 4C20 901A            0001A  1948+         MH    XTJB,TSCVTSZU .          COMPUTE ADR OF TJB FOR    20021
000500 5A20 9000            00000  1949+         A     XTJB,TSCVTTJB .          THIS TJID BY ADDING THE   20021
                                   1950+*                                       PROD OF TJID AND TJB SIZE 20021
                                   1951+*                                       TO ADR OF TJB INDEX TABLE 20021
000000                             1952+         USING TJB,XTJB .                                         20021
000504 5870 2008            00008  1953+         L     XTJBX,TJBEXTNT .         ADR OF TJB EXTENS - TJBX  20021
000508 07FE                        1954+         BR    XRETURN .                RETURN TO CALLER          20021
                                   1955+         DROP  XTJB .                                             20021
                                   1956+         DROP  XGETTJB .                                          20021
                                   1957+         DROP  XTSCVT .                                           20021
               EXIT MODULE - CDEXIT                                                                            PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1959+* CDEXIT
                                   1960+         ENTRY CDEXIT
00050C                             1961+CDEXIT   DS    0F
00050C 0520                        1962+         BALR  XCDBSE,0
00050E                             1963+         USING CDXBSE,XCDBSE
000000                             1964+         USING RBSECT,XRB
00050E                             1965+CDXBSE   DS    0H
00050E 58B0 500C            0000C  1966+         L     XCDE,RBCDE .             GET CDE ADDR.
000512 41B0 B000            00000  1967+         LA    XCDE,0(0,XCDE) .         CLEAR HI ORDER BYTE.
000516 12BB                        1968+         LTR   XCDE,XCDE .              DOES PRB HAVE CDE.
000518 078E                        1969+         BCR   8,XCDRETN .              RETURN TO CALLER IF NOT.
00051A 91C0 500A      0000A        1970+         TM    RBSTAB,X'C0' PRB                   @YA78441
00051E 077E                        1971+         BCR   7,XCDRETN NO                       @YA78441
                                   1972+*
                                   1973+********  AH 39386******AND******  AH 39970******806 AFTER STAE*******
                                   1974+* THE FOLLOWING CODE IS INCLUDED BECAUSE EXIT FAILS TO PROPERLY
                                   1975+* REINITIALIZE THE REST OF THE WAITING SVRB'S, IF ANY, IN THE CASE
                                   1976+* OF 806 ABEND AFTER THE STAE RETRY ROUTINE EXITS. THIS CODE IS
                                   1977+* INTENDED TO REINITIALIZE ANY OTHER WAITING SVRB SO AS TO REISSUE
                                   1978+* THE REQUEST FOR A VALID 806 ( IF LOAD INVALID ) OR POSSIBLE
                                   1979+* SUCCESSFUL LOAD AFTER I/O ERROR.
                                   1980+********  AH 39386******AND******  AH 39970******806 AFTER STAE*******
000520 9104 B000      00000        1981+         TM    CDATTR,MIN POINT TO                    @SA70930
000524 4780 2022            00530  1982+         BZ    *+12 MAJOR                       @SA70930
000528 58B0 B014            00014  1983+         L     XCDE,CDXLMJP-1 CDE                         @SA70930
00052C 41B0 B000            00000  1984+         LA    XCDE,0(,XCDE) CLEAR FLAGS                 @SA70930
000530 9140 B000      00000        1985+         TM    CDATTR,NIC MODULE IN CORE ?            @SA70930
000534 4780 20D2            005E0  1986+         BZ    MODNCORE YES--SEE IF REUS/RENT       @SA70930
000538 18A5                        1987+         LR    XREUS,XRB .             GET THE NEXT SVRB ON WAIT LIST
00053A 47F0 2058            00566  1988+         B     WTFSTNTY .              PROCESS EXITING PRB
00053E                             1989+NXTWTNG  EQU   *
                                   1990+         DROP  XRB .
000000                             1991+         USING RBSECT,XREUS .
00053E 9200 A01C      0001C        1992+         MVI   RBWCF,0 .               CLEAR WAIT COUNT/SET SVRB READY
000542 D203 A014 27C2 00014 00CD0  1993+         MVC   RBOPSW+4(4),CDQCNTRL .  RETRY REQUEST          AH  M2072
000548 188A                        1994+         LR    XWKB,XREUS .            SAVE CURR SUBJECT WAIT RB
00054A                             1995+NXTRBSWT EQU   *
00054A 9180 A00B      0000B        1996+         TM    RBSTAB2,RBTCBNXT .      Q. DOES THIS RB POINT TO TCB
00054E 58A0 A01C            0001C  1997+         L     XREUS,RBLINK .          GET TCB/PREVIOUS RB
000552 4780 203C            0054A  1998+         BZ    NXTRBSWT .              NO. GET NEXT RB
000556 187B                        1999+         LR    X7,XCDE .               SAVE CDE REG ACCROSS TASKSWITCH
000558 58F0 27BA            00CC8  2000+         L     X15,AIEADS02 .          GET TASKSWITCH ENTRY POINT
00055C 18DE                        2001+         LR    XCT,XCDRETN .           SET UP RETURN FROM CDHKEEP.
00055E 05EF                        2002+         BALR  XCDRETN,X15 .           TO TASKSWITCH
000560 18B7                        2003+         LR    XCDE,X7 .               RESTORE CDE REG
000562 18A8                        2004+         LR    XREUS,XWKB .            RESTORE CURRENT WAIT RB
000564 18ED                        2005+         LR    XCDRETN,XCT .           RESTORE RETURN POINT
000566                             2006+WTFSTNTY EQU   *
000566 9108 A00C      0000C        2007+         TM    RBCDE,X'08' .           Q. DOES FETCH WORK AREA EXIST
00056A 4780 2078            00586  2008+         BZ    NOFETCHA .              NO. BYPASS FREEING IT
00056E 94F7 A00C      0000C        2009+         NI    RBCDE,X'F7' .           RESET FETCH WORK AREA FLAG
000572 5810 A060            00060  2010+         L     X1,RBEXSAVE .           GET ADDRESSS OF FETCH WORK AREA
000576 4111 0000            00000  2011+         LA    X1,0(X1) .              CLEAR POSSIBLE NOISE
00057A 18DE                        2012+         LR    XCT,XCDRETN .           SAVE CALLER'S RETURN POINT
00057C 5800 27C6            00CD4  2013+         L     X0,K500F252 .           GET LENGTH AND SP ID
               EXIT MODULE - CDEXIT                                                                            PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000580 45E0 2732            00C40  2014+         BAL   XCDRETN,FREEMAIN .      FREE FETCH WORK AREA
000584 18ED                        2015+         LR    XCDRETN,XCT .           PICK UP RETURN ADDRESS
000586                             2016+NOFETCHA EQU   *
000586 D702 A00D A00D 0000D 0000D  2017+         XC    RBCDE+1(3),RBCDE+1 .    ZERO CDE ADDRESS
00058C 5810 B004            00004  2018+         L     X1,CDRBP-1 RB IN                       @SA70930
000590 4110 1000            00000  2019+         LA    X1,0(,X1) CONTROL                     @SA70930
000594 1915                        2020+         CR    X1,XRB = OUR RB ?                  @SA70930
000596 4780 20B2            005C0  2021+         BE    CDTOPRB YES--RESTART OTHERS         @SA70930
00059A 1211                        2022+         LTR   X1,X1 @SA70930
00059C 078E                        2023+         BCR   8,XCDRETN @SA70930
                                   2024+*                                                              @SA70930
                                   2025+** RB NOT FETCHING                                             @SA70930
                                   2026+** JUST DEQUEUE RB                                             @SA70930
                                   2027+*                                                              @SA70930
00059E                             2028+NCDTOPRB EQU   * @SA70930
00059E 1871                        2029+         LR    X7,X1 SAVE PREV RB                @SA70930
0005A0 5810 7018            00018  2030+         L     X1,RBPGMQ-RBSECT(,X7) NXT RB ON CDE Q           @SA70930
0005A4 4110 1000            00000  2031+         LA    X1,0(,X1) CLEAR FLGS                  @SA70930
0005A8 1211                        2032+         LTR   X1,X1 ANY LEFT?                   @SA70930
0005AA 078E                        2033+         BCR   8,XCDRETN NO--DONE                    @SA70930
0005AC 1915                        2034+         CR    X1,XRB THIS OUR RB                 @SA70930
0005AE 4770 2090            0059E  2035+         BNE   NCDTOPRB NO--TRY NEXT RB             @SA70930
0005B2 D202 7019 1019 00019 00019  2036+         MVC   RBPGMQ+1-RBSECT(3,X7),RBPGMQ+1-RBSECT(X1) DEQ   @SA70930
0005B8 D702 1019 1019 00019 00019  2037+         XC    RBPGMQ+1-RBSECT(3,X1),RBPGMQ+1-RBSECT(X1) RB    @SA70930
0005BE 07FE                        2038+         BR    XCDRETN RETURN                      @SA70930
                                   2039+*                                                              @SA70930
                                   2040+** RB ON TOP OF Q -- MODULE BEING FETCHED                      @SA70930
                                   2041+*                                                              @SA70930
0005C0                             2042+CDTOPRB  EQU   * @SA70930
0005C0 181A                        2043+         LR    X1,XREUS GET SUBJECT RB              @SA70930
                                   2044+         DROP  XREUS @SA70930
000000                             2045+         USING RBSECT,X1 @SA70930
0005C2 58A0 1018            00018  2046+         L     XREUS,RBPGMQ NEXT RB                     @SA70930
                                   2047+         DROP  X1
000000                             2048+         USING RBSECT,XRB
0005C6 41AA 0000            00000  2049+         LA    XREUS,0(XREUS) .        DROP POSSIBLE FLAGS
0005CA 12AA                        2050+         LTR   XREUS,XREUS .           Q. ANYMORE WAITING SVRB'S
0005CC 4780 20D2            005E0  2051+         BZ    MODNCORE @SA76869
0005D0 D202 B005 1019 00005 00019  2052+         MVC   CDRBP(3),RBPGMQ+1-RBSECT(X1) @SA76869
0005D6 D702 1019 1019 00019 00019  2053+         XC    RBPGMQ+1-RBSECT(3,X1),RBPGMQ+1-RBSECT(X1) @SA76869
0005DC 47F0 2030            0053E  2054+         B     NXTWTNG @SA76869
0005E0                             2055+MODNCORE EQU   *
                                   2056+****END APARS*AH 39386****AND*AH 39970****EXCEPT VCON CDQCNTRL****
                                   2057+*
0005E0 1BDD                        2058+         SR    XCT,XCT .                ZERO REG FOR TEST        A31517
0005E2 43D0 B010            00010  2059+         IC    XCT,CDUSE .              GET USE RESPONSIBILITY COUNT
0005E6 9180 B000      00000        2060+         TM    0(XCDE),NIP .            Q. LOADED BY NIP?         M0102
0005EA 4710 20EC            005FA  2061+         BO    DECDONE .                YES. BYPASS DECREMENT     M0102
0005EE 12DD                        2062+         LTR   XCT,XCT .                IS USE COUNT ZERO        A31517
0005F0 4780 20EC            005FA  2063+         BZ    DECDONE .                YES, SKIP DECREMENT      A31517
0005F4 06D0                        2064+         BCTR  XCT,0 .                  DECREMENT BY ONE.
0005F6 42D0 B010            00010  2065+         STC   XCT,CDUSE .              STORE BACK INTO CDE
0005FA                             2066+DECDONE  EQU   * A31517
0005FA 9140 B000      00000        2067+         TM    CDATTR,NIC IF MODULE IS NOT LOADED, THE @AS76407
                                   2068+*                                 REENTERANT BIT WILL BE ON IF @AS76407
               EXIT MODULE - CDEXIT                                                                            PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2069+*                                 MODULE IS REENTEREANT OR NOT @AS76407
0005FE 4710 20FC            0060A  2070+         BO    CKQUE @AS76407
000602 9120 B000      00000        2071+         TM    CDATTR,REN RE-ENTERANT?                 @AS74290
000606 4710 2140            0064E  2072+         BO    CDHKP YES--SKIP CHECK             @SA74290
00060A                             2073+CKQUE    EQU   * @AS76407
00060A 58A0 B004            00004  2074+         L     XREUS,CDRBP-1 TOP RB                      @SA70930
00060E 41A0 A000            00000  2075+         LA    XREUS,0(,XREUS) CLEAR FLAGS                 @SA70930
000612 12AA                        2076+         LTR   XREUS,XREUS ANY ?                       @SA70930
000614 4780 2140            0064E  2077+         BZ    CDHKP NO--GO TO CDHKEEP           @SA70930
000618 195A                        2078+         CR    XRB,XREUS WE TOP RB?                  @SA70930
00061A 4780 2132            00640  2079+         BE    CDTPQ YES--GIVE TO NEXT PROGRAM   @SA70930
00061E                             2080+CDMIDQ   EQU   * NO--DEQ FROM MIDDLE         @SA70930
00061E 18DA                        2081+         LR    XCT,XREUS SAVE PREVIOUS RB @          @SA70930
000620 58A0 D018            00018  2082+         L     XREUS,RBPGMQ-RBSECT(,XCT) NEXT RB               @SA70930
000624 41A0 A000            00000  2083+         LA    XREUS,0(,XREUS) CLEAR FLAGS                 @SA70930
000628 12AA                        2084+         LTR   XREUS,XREUS ANY?                        @SA70930
00062A 078E                        2085+         BCR   8,XCDRETN NO--EXIT                    @SA70930
00062C 195A                        2086+         CR    XRB,XREUS US?                         @SA70930
00062E 4770 2110            0061E  2087+         BNE   CDMIDQ NO--NEXT RB                 @SA70930
000632 D202 D019 5019 00019 00019  2088+         MVC   RBPGMQ+1-RBSECT(3,XCT),RBPGMQ+1-RBSECT(XRB) DEQ @SA70930
000638 D702 5019 5019 00019 00019  2089+         XC    RBPGMQ+1-RBSECT(3,XRB),RBPGMQ+1-RBSECT(XRB) @SA70930
00063E 07FE                        2090+         BR    XCDRETN RETURN                      @SA70930
000640                             2091+CDTPQ    EQU   * @SA70930
000640 58A0 5018            00018  2092+         L     XREUS,RBPGMQ .           GET PROG QUEUE FROM CURR RB.
000644 41A0 A000            00000  2093+         LA    XREUS,0(,XREUS) CLEAR BYTE 0              M1997
000648 12AA                        2094+         LTR   XREUS,XREUS .            ANY ADDITIONAL REQUESTS FOR PGM
00064A 4760 214C            0065A  2095+         BC    6,CDADD .                BR IF YES.
00064E                             2096+CDHKP    EQU   * @SA70930
00064E D702 B005 B005 00005 00005  2097+         XC    CDRBP(3),CDRBP NO ONE WAITING              @SA71591
000654 18DE                        2098+         LR    XHKRETN,XCDRETN .        SET UP RETURN FROM CDHKEEP.
000656 47F0 2192            006A0  2099+         B     CDHKEEP .                TO CDHKEEP RTN
00065A 9110 B000      00000        2100+CDADD    TM    CDATTR,SER CDE STILL REUS              @SA71591
00065E 4710 216A            00678  2101+         BO    CDADD1 YES--GIVE NEXT RB CONTROL   @SA71591
000662 D702 5019 5019 00019 00019  2102+         XC    RBPGMQ+1(3),RBPGMQ+1 STAE RETRY--RESTART OTHERS @SA71591
000668 43D0 B010            00010  2103+         IC    XCT,CDUSE UP COUNT SINCE              @SA71591
00066C 41D0 D001            00001  2104+         LA    XCT,1(,XCT) WILL GO THRU DECREMENT      @SA71591
000670 42D0 B010            00010  2105+         STC   XCT,CDUSE CODE TWICE                  @SA71591
000674 47F0 2030            0053E  2106+         B     NXTWTNG RESTART WAITING RBS         @SA71591
000678                             2107+CDADD1   EQU   * @SA71591
000678 D202 B005 5019 00005 00019  2108+         MVC   CDRBP(3),RBPGMQ+1 UPDATE RB POINTER IN CDE    @SA71591
00067E 9200 A01C      0001C        2109+         MVI   RBWCF-RBSECT(XREUS),0 SET RB READY              @SA71591
000682 5870 27CA            00CD8  2110+         L     XCS03,AIEACS03 .        GET ENTRY TO LINK CODE    A39970
000686 5070 A014            00014  2111+         ST    XCS03,RBOPSW+4-RBSECT(0,XREUS) .SET UP ENTRY TO LNK CODE
00068A 9180 A00B      0000B        2112+CDRBLP   TM    RBSTAB+1-RBSECT(XREUS),RBTCBNXT .IS TCB NEXT
00068E 58A0 A01C            0001C  2113+         L     XREUS,RBLINK-RBSECT(0,XREUS) .GET NEXT RB OR TCB ADDR
000692 4780 217C            0068A  2114+         BC    8,CDRBLP .               BR IF TCB NOT NEXT.
000696 41A0 A000            00000  2115+         LA    XREUS,0(0,XREUS) .       CLEAR HI ORDER BYTE.
00069A 58B0 27BA            00CC8  2116+         L     XCDEP,AIEADS02 .         GET ADDR OF TASK SWITCH RTN.
00069E 07FB                        2117+         BR    XCDEP .                  TO TASK SWITCH RTN.
                                   2118+* NOTE THAT REG 14 WILL CAUSE RETURN TO CALLER FROM TASK SWITCH RTN.
                 EXIT MODULE - CDHKEEP                                                                         PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2120+* CDHKEEP
                                   2121+         ENTRY CDHKEEP
0006A0                             2122+CDHKEEP  DS    0H
0006A0 0520                        2123+         BALR  XCDBSE,0
0006A2                             2124+         USING *,XCDBSE
0006A2 9608 B000      00000        2125+         OI    CDATTR,NFN .             FLAG INDICATING NOT REUSEABLE
                                   2126+*                                       PROGRAM USED ONCE.
0006A6 9500 B010      00010        2127+         CLI   CDUSE,0 .                IS USE RESPON. COUNT=0
0006AA 072D                        2128+         BCR   2,XHKRETN .              RETURN IF NOT.
0006AC 9180 B000      00000        2129+         TM    CDATTR,NIP .             IS MOD IN SYS LPA.
0006B0 071D                        2130+         BCR   1,XHKRETN .              BR IF YES.
0006B2 9130 B000      00000        2131+         TM    CDATTR,REN+SER .         IS PROGARM REUSABLE.
0006B6 4780 204A            006EC  2132+         BZ    CDEM .                   BRANCH IF NOT
0006BA 9180 4094      00094        2133+         TM    TCBTSFLG,TCBTSTSK .      IS PGM FOR TIME SHAR TSK  20021
0006BE 4710 204A            006EC  2134+         BO    CDEM .                   YES, DELTETE THE PGM      20021
                                   2135+*      A CHECK IS MADE TO SEE IF ROLLOUT IS IN EFFECT FOR THE JOB
                                   2136+*  STEP. IF SO THE PROGRAM SHOULD BE FREED TO ALLOW A POSSIBLE ROLLIN.
                                   2137+*      IF, HOWEVER, ABEND IS IN PROCESS, THE STORAGE SHOULD NOT BE
                                   2138+*  FREED SINCE THAT AREA MAY ALREADY HAVE BEEN FREED BY ABEND IF ABEND
                                   2139+*  NEEDED TO STEAL CORE FOR THE CLOSE DATA SETS FUNCTION.  IF THE
                                   2140+*  STORAGE HAS NOT BEEN FREED, ABEND WILL FREE IT LATER. THIS WOULD
                                   2141+*  PERTAIN ONLY TO A JOB STEP ABEND.
0006C2 5880 407C            0007C  2142+         L     XWKB,TCBJSTCB .          GET ADDR OF JS.TCB         RORI
000000                             2143+         USING TCB,XWKB .
0006C6 9140 801F      0001F        2144+         TM    TCBFLGS+2,X'40' .        ROLLOUT INVOKED            RORI
0006CA 4710 2042            006E4  2145+         BO    CDTSTFA .                                         A24966
                                   2146+* NIC ON AND REENTRANT OR REUSEABLE IS POSSIBLE AFTER DAR         20472
                                   2147+* OR STAE/STAI.                                                   20472
0006CE 9140 B000      00000        2148+         TM    CDATTR,NIC .             MOD IN CORE               20472
0006D2 4710 2042            006E4  2149+         BO    CDTSTFA .                NO, CHCK ABOUT FREE OF AR 20472
0006D6                             2150+CDSTREL  DS    0H .                     BR IF YES                A24966
0006D6 9640 B014      00014        2151+         OI    CDATTR2,REL .            SET RELEASE INDICATOR IN CDE
0006DA 4180 802C            0002C  2152+         LA    XWKB,TCBJPQ-TCB(0,XWKB) .GET ADDRESS OF J. S. CDE PT
0006DE 9680 8000      00000        2153+CDSPG    OI    0(XWKB),X'80' .          SET PURGE FLAG ON.
0006E2 07FD                        2154+CDOUT    BR    XHKRETN .                RETURN TO CALLER           0157
0006E4                             2155+CDTSTFA  DS    0H A24966
0006E4 9180 801D      0001D        2156+         TM    TCBFLGS,TCBFA .          IS JOB STEP ABENDING     A24966
0006E8 4710 2034            006D6  2157+         BO    CDSTREL .                YES DO NOT FREE PGM      A24966
                                   2158+         DROP  XWKB .                                            A24966
0006EC 18CD                        2159+CDEM     LR    XDMRETN,XHKRETN .        SET RETURN FROM CDDESTRY
                                   2160+* FALL THROUGH TO CDDESTRY WHICH MUST FOLLOW.
               EXIT MODULE - CDDESTRY                                                                          PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2162+* CDDESTRY
                                   2163+         ENTRY CDDESTRY
0006EE                             2164+CDDESTRY DS    0H
                                   2165+* REMOVE CDE FROM JPACQ.
0006EE 9101 40A0      000A0        2166+         TM    TCBNSTAE,RMSCODE .       ABEND BY STORAGE RECONFIG    2K
0006F2 4710 20B6            00758  2167+         BO    DESTX .                  YES, BRANCH                  2K
0006F6                             2168+CDEM01   EQU   * 2K
0006F6 5880 B014            00014  2169+         L     XXL,CDXLMJP-1 .          LOAD EXTENT LIST POINTER.
0006FA 4180 8000            00000  2170+         LA    XXL,0(0,XXL) .           CLEAR HI ORDER BYTE.
0006FE 1288                        2171+         LTR   XXL,XXL .                IS THERE AN EXTENT LIST?  M0120
000700 4780 20B6            00758  2172+         BZ    DESTX .                  NO. DONT TRY TO FREE IT   M2546
000704 5810 8004            00004  2173+         L     X1,4(0,XXL) .            LOAD NO. OF CONTROL SECTIONS.
000708 4180 8008            00008  2174+         LA    XXL,ELLNGTH(0,XXL) .     LOAD REG WITH THE ADDR OF LNGTH
00070C 5080 263E            00CE0  2175+         ST    XXL,FMLNGH .             SET LENGTH PARM. FOR FREEMAIN
000710 8910 0002            00002  2176+         SLL   X1,2 .                   MULT NO. IN LIST BY 4.
000714 1A81                        2177+         AR    XXL,X1 .                 XXL PTS TO ELADDR
000716 5080 2642            00CE4  2178+         ST    XXL,FMADDR .             SET ADDR PARM. FOR FREEMAIN.
00071A 1A18                        2179+         AR    X1,XXL .                 FIND END OF EXTENT LIST   M0120
00071C 4100 0004            00004  2180+         LA    X0,4 .                   POINT TO LAST WORD OF     M0120
000720 1B10                        2181+         SR    X1,X0 .                  EXTENT LIST               M0120
000722 D402 1001 1001 00001 00001  2182+         NC    1(3,X1),1(X1) .          Q. IS EXTENT LIST FILLED  M0120
000728 4780 20B6            00758  2183+         BZ    DESTX .                  NO. SKIP FREE OF PROGRAM  M0120
00072C 9180 B014      00014        2184+         TM    CDATTR2,SPZ .            IS PGM IN SP ZERO         20008
000730 4780 209A            0073C  2185+         BZ    NOTSPZ .                 NO,TRY 251 OR 252         20008
000734 92FA 2647      00CE9        2186+         MVI   FMSP,250 .               SET PARM TO FREE SP ZERO  20008
000738 47F0 20AA            0074C  2187+         B     CDFRPGM .                GO TO ISSUE FREEMAIN      20008
00073C                             2188+NOTSPZ   DS    0H 20008
00073C 92FC 2647      00CE9        2189+         MVI   FMSP,252 .               SET SUBPOOL ID FOR LPA.
000740 9102 B000      00000        2190+CDPGMTST TM    CDATTR,JPA .             IS PGM FROM LINK PACK AREA 0157
000744 47C0 20AA            0074C  2191+         BC    12,CDFRPGM .             BR IF YES.
000748 92FB 2647      00CE9        2192+         MVI   FMSP,251 .               SET SUBPOOL ID FOR JPA.
00074C                             2193+CDFRPGM  DS    0H
00074C 4110 263E            00CE0  2194+         LA    1,FMPLIST .              LOAD PARAMETER ADDR.
000750 9620 2792      00E34        2195+         OI    SCVTFMSA,SCVTSW3 .       SET SW FOR FM TEST        M3806
000754 45E0 259E            00C40  2196+         BAL   14,FREEMAIN TO FREE PROGRAM           M3806
                                   2197+* ENTRY FOR FREEING EXTENT LIST AND CDE'S BY EOT
000758                             2198+DESTX    DS    0H
000758 0520                        2199+         BALR  XCDBSE,0
00075A                             2200+         USING *,XCDBSE
00075A 45E0 2044            0079E  2201+         BAL   XODRETN,ORDERCDQ .       TO ORDER CD Q.
00075E 5810 B014            00014  2202+         L     X1,CDXLMJP-1 .           LOAD EXTENT LIST POINTER.
                                   2203+*
                                   2204+*   FOLLOWING IS CHECK FOR EXISTENCE OF EXTENT LIST.  THIS PTR
                                   2205+*   MAY BE ZERO, E.G. STAE RETRY AFTER 806 ABEND HAS BEEN ACCOMPLISHED
                                   2206+*
000762 4111 0000            00000  2207+         LA    X1,0(X1) .               CLEAR OUT ATTR2 BYTE      M1180
000766 1211                        2208+         LTR   X1,X1 .                  IS EXTENT LIST PRESENT
000768 4780 2022            0077C  2209+         BZ    CDDMLP .                 NO,BRANCH TO GET NEXT CDE
00076C 5800 1000            00000  2210+         L     X0,0(0,X1) .             GET EXTENT LIST LENGTH.
000770 5600 2536            00C90  2211+         O     X0,K255 .                SET SUBPOOL ID
000774 4110 1000            00000  2212+         LA    X1,0(0,X1) .             CLEAR HI ORDER BYTE
000778 45E0 24E6            00C40  2213+         BAL   14,FREEMAIN .            TO FREE EXTENT LIST.      M3806
00077C 58A0 B000            00000  2214+CDDMLP   L     XCDWK,CDCHAIN-1 .        GET NEXT CDE
000780 41A0 A000            00000  2215+         LA    XCDWK,0(0,XCDWK) .       CLEAR HI ORDER BYTE
000784 5800 2582            00CDC  2216+         L     X0,K24F255 .             SET UP FOR FREEMAIN.
               EXIT MODULE - CDDESTRY                                                                          PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000788 181B                        2217+         LR    X1,XCDE .                SET CDE ADDR IN REG 1.
00078A 45E0 24E6            00C40  2218+         BAL   14,FREEMAIN .            TO FREE CDE.              M3806
00078E 12AA                        2219+         LTR   XCDWK,XCDWK .            ANY MORE CDE'S
000790 078C                        2220+         BCR   8,XDMRETN .              RETURN IF NOT
000792 9104 A000      00000        2221+         TM    CDATTR-CDESECT(XCDWK),MIN .IS CDE A MINOR
000796 078C                        2222+         BCR   8,XDMRETN .              RETURN IF NOT.
000798 18BA                        2223+         LR    XCDE,XCDWK .             LOOP SET-UP.
00079A 47F0 2022            0077C  2224+         B     CDDMLP
               EXIT MODULE - CDDESTRY                                                                          PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2226+*
00079E                             2227+ORDERCDQ DS    0H
00079E 5880 407C            0007C  2228+         L     XORWK,TCBJSTCB .         GET J/S TCB ADDR.
0007A2 4180 802C            0002C  2229+         LA    XORWK,TCBJPQ-TCB(0,XORWK) GET JPQ CDE PTR ADDR    A32002
0007A6                             2230+ORNEXT   EQU   * .                                               A32002
0007A6 5810 8000            00000  2231+         L     X1,0(0,XORWK) .          GET NEXT CDE             A32002
0007AA 4110 1000            00000  2232+         LA    X1,0(0,X1) .             ZERO HI ORDER BYTE.
0007AE 19B1                        2233+         CR    XCDE,X1 .                DOES CDE ON JPACQ = SUBJECT CDE
0007B0 4780 2064            007BE  2234+         BE    ORLP .                   BR IF YES
0007B4 1211                        2235+         LTR   X1,X1 .                  Q. END OF CHAIN?         A32002
0007B6 078E                        2236+         BCR   8,XODRETN END OF QUEUE -- RETURN      @SA73526
0007B8 1881                        2237+         LR    XORWK,X1 .               SET UP FOR LOOP
0007BA 47F0 204C            007A6  2238+         B     ORNEXT

0007BE 5810 1000            00000  2240+ORLP     L     X1,CDCHAIN-1-CDESECT(0,X1) .GET NEXT CDE
0007C2 4110 1000            00000  2241+         LA    X1,0(0,X1) .             ZERO HI ORDER BYTE.
0007C6 1211                        2242+         LTR   X1,X1 .                  IS THERE A CDE.
0007C8 4780 207A            007D4  2243+         BE    OCNT .                   BR IF NOT.
0007CC 9104 1000      00000        2244+         TM    CDATTR-CDESECT(X1),MIN . IS ENTRY A MINOR
0007D0 4710 2064            007BE  2245+         BC    1,ORLP .                 BR IF YES.
0007D4                             2246+OCNT     DS    0H
0007D4 4300 8000            00000  2247+         IC    X0,0(0,XORWK) .          SAVE ATTR
0007D8 5010 8000            00000  2248+         ST    X1,0(0,XORWK) .          UPDATE CDE.
0007DC 4200 8000            00000  2249+         STC   X0,0(0,XORWK) .          RESTORE ATTR
0007E0 5810 407C            0007C  2250+         L     X1,TCBJSTCB .            GET ADDR OF JOBSTEP TCB  A39035
000000                             2251+         USING TCB,X1 .                 ESTABLISH ADDRESSABILITY A39035
0007E4 D402 402D 402D 0002D 0002D  2252+         NC    TCBJPQ+1(3),TCBJPQ+1 .   WAS SUBJECT CDE THE ONLY A39035
0007EA 077E                        2253+         BCR   7,XODRETN .              NO. RETURN CONTROL       A39035
0007EC 947F 402C      0002C        2254+         NI    TCBJPQ,X'7F' .           RESET PURGE BIT          A39035
                                   2255+         DROP  X1 .                                              A39035
0007F0 07FE                        2256+         BR    XODRETN .                RETURN TO CALLER.
                                   2257+         DROP  XCDBSE
               EXIT MODULE - END OF TASK                                                                       PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2259+* END OF TASK MAIN LINE.

000002                             2261+         USING EDBSE,XBSE
0007F2                             2262+EOT      DS    0H
                                   2263+*        BAL   XRETN,ETAER .            HANDLE DEFERRED A.E.R'S.
                                   2264+* PURGE ATTENTION IRBS FROM IQE QUEUE                             20021
0007F2 58E0 2D92            00D94  2265+         L     XRETN,AETAER HANDLE                      @SA75035
0007F6 05EE                        2266+         BALR  XRETN,XRETN DEFERRED ATTENTION          @SA75035
                                   2267+* TEST FOR DEPENDENTS.
0007F8 5870 4088            00088  2268+         L     XWKA,TCBLTC .            GET ADDR OF DEPENDENT TCB
0007FC 1277                        2269+         LTR   XWKA,XWKA .              ANY DEPENDENTS.
0007FE 4770 2928            0092A  2270+         BC    7,ETDPN .                BR IF YES- ERROR CONDITION.
                                   2271+* STORE COMPLETION CODE.
000802 D202 4011 406D 00011 0006D  2272+         MVC   TCBCMP+1(3),TCBGRS+60+1 .STORE COMPLETION CODE.
000808 9200 4010      00010        2273+         MVI   TCBCMP,0 .          RESET HI ORDER TO ZERO     PDOS65744
                                   2274+* CANCEL SPIE- RELEASE PIE.
00080C 5810 4004            00004  2275+         L     X1,TCBPIE .              GET PIE ADDR.
000810 1211                        2276+         LTR   X1,X1 .                  IS PIE PRESENT.
000812 4780 2822            00824  2277+         BZ    ETB01 .                  BR IF NOT.
000816 5800 2CEA            00CEC  2278+         L     X0,K32F250 .             SET PARM TO FREE PIE.
00081A 45E0 2C3E            00C40  2279+         BAL   XRETN,FREEMAIN .         CONDITIONALLY PIE     AH  M1545
00081E 1B11                        2280+         SR    X1,X1
000820 5010 4004            00004  2281+         ST    X1,TCBPIE .              ZERO PIE POINTER.
                                   2282+* PURGE TIMER INTERFACE.
000824                             2283+ETB01    DS    0H
000824 45E0 299A            0099C  2284+         BAL   XRETN,ETME .             PURGE INCOMPLETE TIME INTERVALS
                                   2285+* TEST FOR OUTSTANDING ENQ REQUESTS.
000828 9180 401D      0001D        2286+         TM    TCBFLGS,TCBFA IS ENTRY FROM ABEND            @SA77157
00082C 4710 283C            0083E  2287+         BO    CLOSE YES,BRANCH AROUND PURGE        @SA77157
                                   2288+* PURGE OCR INTERFACE.
                                   2289+* BYPASS WTOR PURGE IF ENTRY TO EOT IS FROM ABEND TO AVOID
                                   2290+* DUPLICAATE 'MESSAGES CANCELLED' MESSAGES
000830 9500 4070      00070        2291+         CLI   TCBQEL,0 ENQ CT =0                      @SA77157
000834 4770 2936            00938  2292+         BNE   ETNQERR NOT 0                          @SA77157
000838 5860 2D9E            00DA0  2293+         L     XOCREP,IEABEND+4 .       GET ADDR OF WTOR PURGE RTN.
00083C 05E6                        2294+         BALR  XRETN,XOCREP .           BR TO WTOR PURGE RTN.
                                   2295+* CLOSE DATA SET INTERFACE.
00083E                             2296+CLOSE    DS    0H .                                               20909
00083E 45E0 2944            00946  2297+         BAL   XRETN,ETCLOSE .          CLOSE DATA SETS.
                                   2298+*
                                   2299+* AT THIS POINT, ALL PROCESSING DONE ON BEHALF OF THE TASK   AD . M2001
                                   2300+* IS COMPLETE. EOT WILL NOW BEGIN FUNCTIONING PURELY ON A    AD . M2001
                                   2301+* SYSTEM LEVEL. THEREFORE, ALL STAI SCBS MUST BE FREED SINCE AD . M2001
                                   2302+* THEY REPRESENT TASK-ORIENTED CONTROL ONLY. ALL STAE SCBS   AD . M2001
                                   2303+* HAVE ALREADY BEEN FREED IN EXIT.                           AD . M2001
                                   2304+*
000842 4190 40A0            000A0  2305+         LA    XWKC,TCBNSTAE .          PTR TO SCB CHAIN     AD   M2001
000846                             2306+STAILOOP EQU   * .                                           AD   M2001
000846 5889 0000            00000  2307+         L     XWKB,0(XWKC) .           ADDR FIRST STAI SCB  AD   M2001
00084A 4188 0000            00000  2308+         LA    XWKB,0(XWKB) .           DROP POSSIBLE FLAG   AD   M2001
00084E 1288                        2309+         LTR   XWKB,XWKB .              SCB PRESENT          AD   M2001
000850 4780 286A            0086C  2310+         BZ    BYSTAI .                 NO-LEAVE SCB PROCESS AD   M2001
000854 4118 0000            00000  2311+         LA    XLOC,0(XWKB) .           ADDR FOR FREEMAIN    AD   M2001
000858 D203 9000 8000 00000 00000  2312+         MVC   0(4,XWKC),0(XWKB) .      DEQ SCB BEING FREED  AD   M2001
00085E 5800 2C96            00C98  2313+         L     XLNGH,K16F255 .          LENGTH-16, SP-255    AD   M2001
               EXIT MODULE - END OF TASK                                                                       PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000862 5880 2CB6            00CB8  2314+         L     8,ARMBRNCH .             FREEMAIN ENTRY PT    AD   M2001
000866 05E8                        2315+         BALR  14,8 .                   GO FREE THE SCB      AD   M2001
000868 47F0 2844            00846  2316+         B     STAILOOP .               SEARCH FOR MORE SCBS AD   M2001
00086C                             2317+BYSTAI   EQU   * .                                           AD   M2001
00086C 58F0 2CF6            00CF8  2318+         L     X15,GRAPHTTR .           BRANCH TO GRAPHICS
000870 05EF                        2319+         BALR  XRETN,X15 .              EOT ROUTINE
                                   2320+*    IF GRAPHICS IS NOT IN THE SYSTEM, THE EFFECT OF THIS
                                   2321+*    BRANCH IS AN IMMEDIATE RETURN FROM A DUMMY GRAPHICS
                                   2322+*    CSECT, IFFGRTTR.

                                   2324+***********************************************************   AH  M2063
                                   2325+* PURGE POSSIBLE OUTSTANDING I/O                              AH  M2063
                                   2326+***********************************************************   AH  M2063
000872 41F0 297E            00980  2327+         LA    X15,ETPURGE .           GO PURGE ANY          AD  A56556
000876 05EF                        2328+         BALR  XRETN,X15 .             OUTSTANDING I/O       AD  A56556
                                   2329+*
                                   2330+* BEFORE PERFORMING FINAL PURGES,                                A39943
                                   2331+* CHECK TO SEE IF MOTHER IS ABENDING                             A39943
                                   2332+*                                                                A39943
000878 5860 4084            00084  2333+         L     XNRB,TCBOTC .           R6 EQ MOTHER TCB          A39943
000000                             2334+         USING TCB,XNRB .                                        A39943
00087C 9180 601D      0001D        2335+         TM    TCBFLGS1,TCBFA .        Q. IS MOTHER ABENDING     A39943
                                   2336+         DROP  XNRB .                                            A39943
000880 4780 289E            008A0  2337+         BZ    CONT01 .                NO, CONTINUE              A39943
000884 9640 4021      00021        2338+         OI    TCBFLGS5,TCBABWF .      SET TASK NON-DISP         A39943
000888 5870 3000            00000  2339+         L     XNEW,CVTTCBP .          R7 EQ NEW,OLD             A39943
00088C 5940 7000            00000  2340+         C     XTCB,0(0,XNEW) .        IS 'NEW' EQ CURRENT TCB   A39943
000890 4770 2898            0089A  2341+         BNE   DSP01 .                 NO,GO TO DISPATCHER       A39943
000894 1B66                        2342+         SR    XNRB,XNRB .             ZERO WORK REG             A39943
000896 5060 7000            00000  2343+         ST    XNRB,0(0,XNEW) .        ZERO 'NEW' FORCE TASK SW  A39943
00089A 58E0 3088            00088  2344+DSP01    L     XRETN,CVT0DS .          GET ADDR OF DISPATCHER    A39943
00089E 07FE                        2345+         BR    XRETN .                 BRANCH TO DISPATCHER      A39943
0008A0                             2346+CONT01   DS    0H .                                             A39943
                                   2347+* CDEXIT INTERFACE.
0008A0 45E0 250A            0050C  2348+         BAL   XRETN,CDEXIT .           CDEXIT.
0008A4 0520                        2349+         BALR  XBSE,0 .                 REESTABLISH ADDRESSABILITY.
0008A6                             2350+         USING *,XBSE
                                   2351+*
                                   2352+* QUEUE THE 30 MIN REAL TQE FOR NON-JOBSTEP ENTRY IF EVERY    AH A57089
                                   2353+* OTHER TCB IN JOBSTEP IS WAITING.                            AH A57089
0008A6 5860 407C            0007C  2354+         L     XIQE,TCBJSTCB .          GET JOBSTEP TCB       AH A57089
0008AA 4160 6000            00000  2355+         LA    XIQE,0(,XIQE) .          DROP POSSIBLE NOISE   AH A57089
0008AE 1546                        2356+         CLR   XTCB,XIQE .              Q. JOBSTEP TRMINATION AH A57089
0008B0 4780 201C            008C2  2357+         BE    ETNOWAIT .               DO NOT Q 30 MIN TQE   AH A57089
0008B4 900F 247A            00D20  2358+         STM   X0,X15,EXITSAVE .        SAVE REGS ACCRS WAIT  AH A57089
0008B8 5880 2426            00CCC  2359+         L     X8,WTJSTIME .            ENTRY POINT TO WAIT   AH A57089
0008BC 05E8                        2360+         BALR  XRETN,X8 .               TAKE A BRANCH TO WAIT AH A57089
0008BE                             2361+         USING *,XRETN .                TO RESTORE BASEREG    AH A57089
0008BE 980F E462            00D20  2362+         LM    X0,X15,EXITSAVE .        RESTORE GENERAL REGS  AH A57089
                                   2363+         DROP  XRETN .                                        AH A57089
0008C2                             2364+ETNOWAIT EQU   * .                                            AH A57089
                                   2365+* RELEASE LOADED PROGRAMS.
0008C2 4530 2186            00A2C  2366+         BAL   XCVT,ETLDP .             RELEASE LOADED PROGS.
0008C6                             2367+         USING *,XCVT
                                   2368+* MSS EOT INTERFACE.
               EXIT MODULE - END OF TASK                                                                       PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0008C6 4530 31BE            00A84  2369+         BAL   XCVT,ETMSS .             MSS EOT.
0008CA                             2370+         USING *,XCVT
0008CA 5820 33B2            00C7C  2371+         L     XBSE,AEDBSE .            REESTABLISH ADDRESSABILITY.
                                   2372+         DROP  XCVT
000002                             2373+         USING EDBSE,XBSE
0008CE 5830 0010            00010  2374+         L     XCVT,16 .                REESTABLISH CVT ADDRESS.
000000                             2375+         USING CVTSECT,XCVT
                                   2376+* SCHEDULE ETXR IF INDICATED.
0008D2 45E0 2BA2            00BA4  2377+         BAL   XRETN,ETXR .             SCHEDULE ETXR.
                                   2378+* REMOVE TCB FROM READY QUEUE.
0008D6 58E0 2D76            00D78  2379+         L     XRETN,ADQTCB REMOVE TCB FROM             @SA75035
0008DA 05EE                        2380+         BALR  XRETN,XRETN READY QUEUE                 @SA75035
                                   2381+* SET COMPLETION FLAGS.
0008DC 9640 401D      0001D        2382+         OI    TCBFLGS,TCBFE .          SET NORMAL COMPL BIT.
0008E0 9680 4021      00021        2383+         OI    TCBFLGS+4,TCBFC .        SET TERM BIT.
                                   2384+* POST ECB IF INDICATED.
0008E4 45E0 2BB4            00BB6  2385+         BAL   XRETN,ETPOST .           POST ORIGIN TASK.
                                   2386+* NOTE- DISPLACEMENT BETWEEN ETB03 AND ETB02 IS USED BY POST RTN. IF
                                   2387+* CHANGE IS MADE, ALSO CHANGE RETURN FROM POST RTN AT LOCATION
                                   2388+* 'ETPSTRET'.
0008E8                             2389+ETB03    DS    0H
0008E8 9102 401E      0001E        2390+         TM    TCBFLGS+1,TCBFETXR .     IS THERE AN ETXR.
0008EC 4710 290C            0090E  2391+         BO    ETB02 .                  BR IF YES.
0008F0 1874                        2392+         LR    XDTCB,XTCB .             SET REG FOR ERASE PHASE.
0008F2 45E0 2B3E            00B40  2393+         BAL   XRETN,IEAQERA .          ERASE TCB.
0008F6 5810 3000            00000  2394+         L     X1,CVTTCBP OLD NEW                  @YA78625
0008FA 5971 0004            00004  2395+         C     XDTCB,4(X1) OLD=ERASE                @YA78625
0008FE 4770 290C            0090E  2396+         BNE   ETB NO                       @YA78625
000902 D203 1004 30A0 00004 000A0  2397+         MVC   4(4,X1),CVTHEAD INITIALIZE TO FIRST      @YA78625
000908 D703 1000 1000 00000 00000  2398+         XC    0(4,X1),0(X1) TASK SWITCH              @YA78625
00090E                             2399+ETB      DS    0H @YA78625
00090E                             2400+ETB02    DS    0H
                                   2401+* FORCE TASK SWITCH
00090E 5810 3000            00000  2402+         L     X1,CVTTCBP .             GET ADDR OF 'NEW'
000912 58D0 3088            00088  2403+         L     XRETN-1,CVT0DS .         SET REG FOR RETURN TO DISP.
000916 D502 1001 1005 00001 00005  2404+         CLC   1(3,X1),5(X1) .          IS TASK SWITCH SET UP.
00091C 4770 2246            00248  2405+         BNE   EDFRB .                  BR IF YES.
000920 1B77                        2406+         SR    XWKA,XWKA
000922 5070 1000            00000  2407+         ST    XWKA,0(0,X1) .           ZERO 'NEW'
000926 47F0 2246            00248  2408+         B     EDFRB .                  TO FREE RB.



                                   2410+* ABEND TASK DUE TO OUTSTANDING DESCENDENTS.
00092A                             2411+ETDPN    DS    0H
00092A 5810 2D06            00D08  2412+         L     X1,ETABCD1 .             LOAD ABEND ERROR CODE.
00092E 5800 4030            00030  2413+         L     X0,TCBGRS .              RESTORE REGS FOR ABEND DUMP.
000932 982F 4038            00038  2414+         LM    2,15,TCBGRS+8
000936                             2415+         DS    0H
000936 0A0D                        2416+         SVC   13 LINK TO ABEND ROUTINE



                                   2418+* ABEND TASK DUE TO INCOMPLETE ENQ REQUESTS.
000938                             2419+ETNQERR  DS    0H
               EXIT MODULE - END OF TASK                                                                       PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000938 5810 2CF2            00CF4  2420+         L     X1,ETNQCD .              LOAD ABEND ERROR CODE
00093C 5800 4030            00030  2421+         L     X0,TCBGRS .              RESTORE REGS FOR ABEND DUMP.
000940 982F 4038            00038  2422+         LM    2,15,TCBGRS+8
000944                             2423+         DS    0H
000944 0A0D                        2424+         SVC   13 LINK TO ABEND ROUTINE

000026                             2426+RINC     EQU   ETB02-ETB03
                    CLOSE DATA SETS                                                                            PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2429+* CLOSE ANY OPEN DATA SETS.
000946                             2430+ETCLOSE  DS    0H
000946 0560                        2431+         BALR  XCBSE,0
000948                             2432+         USING *,XCBSE
000948 5870 4008            00008  2433+         L     XWKA,TCBDEB .            GET DCB ADDR FROM TCB.
00094C 1277                        2434+         LTR   XWKA,XWKA .              ANY DATA SETS OPEN.
00094E 078E                        2435+         BCR   8,XRETN .                RETURN TO CALLER IF NO.
                                   2436+* THIS CORE WILL BE FREED IN MSS EOT PROCESSING.
000950                             2437+         CNOP  0,4
000950 4510 6010            00958  2438+         BAL   1,*+8 BRANCH AROUND SP+LV
000954 FD                          2439+         DC    AL1(253) SUBPOOL VALUE
000955 000008                      2440+         DC    AL3(8) LENGTH
000958 5801 0000            00000  2441+         L     0,0(1,0) LOAD SP AND LV
00095C 0A0A                        2442+         SVC   10 ISSUE GETMAIN SVC
00095E 1881                        2443+         LR    XWKB,1 .                 SAVE PARM LIST ADDR.
000960 D202 8001 7019 00001 00019  2444+ETCLSLP  MVC   1(3,XWKB),DEBDCBAD+1(XWKA) .PUT DCB ADDR IN PARM LIST.
000966 9280 8000      00000        2445+         MVI   0(XWKB),X'80' .          SET LAST ENTRY IND FOR CLOSE.
00096A 1818                        2446+         LR    1,(XWKB) LOAD PARAMETER REG 1
00096C 0A14                        2447+         SVC   20 ISSUE CLOSE SVC
00096E 5890 4008            00008  2448+         L     XWKC,TCBDEB .            GET DEB ADDR FROM TCB.
000972 1997                        2449+         CR    XWKC,XWKA .              HAS CLOSE REJECTED DEB.
000974 4780 6046            0098E  2450+         BE    ETCLAB .                 BR IF YES- ABEND.
000978 1279                        2451+         LTR   XWKA,XWKC .              ANY DATA SETS OPEN.
00097A 4770 6018            00960  2452+         BC    7,ETCLSLP .              BR IF YES
00097E 07FE                        2453+         BR    XRETN .                  RETURN.
                                   2454+*
000980                             2455+ETPURGE  EQU   * .                                            AH  M2063
                                   2456+*
                                   2457+* THE CODE RELATING TO PTM 2063 WAS ADDED BECAUSE A SUBTASK   AH  M2063
                                   2458+* DOING I/O UNDER A DCB OPENED UNDER/BY THE MOTHER COULD BE   AH  M2063
                                   2459+*  TERMINATING NORMALLY WITH OUTSTANDING I/O                  AH  M2063
000980 9180 401D      0001D        2460+         TM    TCBFLGS,TCBFA .         Q. ENTRY FROM ABEND    AH  M2063
000984                             2461+ETPURGE1 EQU   * NEXT INSTR. TO BCR 15,--    @SA72278
                                   2462+*                                  IF REL 21.0 - 21.6          @SA72278
000984 071E                        2463+         BCR   1,XRETN .               YES. PURGE DONE        AH  M2063
000986 41F0 000F            0000F  2464+         LA    X15,15 .                ENTRY PARAM TO PURGE  AD  A56556
00098A 0A6D                        2465+         SVC   109 .                   PURGE OUTSTANDING I/O AD  A56556
00098C 07FE                        2466+         BR    XRETN .               BACK TO MAIN LINE      AH  M2063




                                   2469+* ABEND TASK DUE TO BAD DEB INFO ON CLOSE.
00098E                             2470+ETCLAB   DS    0H
00098E 5810 63B4            00CFC  2471+         L     X1,ETCLABCD .            LOAD ABEND ERROR CODE.
000992 5800 4030            00030  2472+         L     X0,TCBGRS .              RESTORE REGS FOR ABEND DUMP.
000996 982F 4038            00038  2473+         LM    2,15,TCBGRS+8
00099A                             2474+         DS    0H
00099A 0A0D                        2475+         SVC   13 LINK TO ABEND ROUTINE
                                   2476+         DROP  XCBSE
                    PURGE TIMER ROUTINE                                                                        PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2478+* PURGE TIMER
                                   2479+         ENTRY IEAQPGTM
00099C                             2480+IEAQPGTM DS    0H
00099C                             2481+ETME     DS    0H
00099C 0560                        2482+         BALR  XTMBSE,0
00099E                             2483+         USING *,XTMBSE
00099E                             2484+ETMBSE   DS    0H
                                   2485+*                                                                 20021
                                   2486+*    PURGE TAXE INTERFACE                                         20021
                                   2487+*                                                                 20021
000000                             2488+         USING TCB,XTCB .                                         20021
00099E 9180 4094      00094        2489+         TM    TCBTSFLG,TCBTSTSK .      IS THIS TSO TASK          20021
0009A2 4780 6012            009B0  2490+         BZ    SKPTAXPG .               NO- SKIP TSO PROCESSING   20021
0009A6 187E                        2491+         LR    XSAVE,XRETURN .          SVE RET ACROSS TAXE PURGE 20021
0009A8 58F0 63FA            00D98  2492+         L     XENTRY,ATAXEPRG @ OF TAXE PURGE RTN         @SA75035
0009AC 05EF                        2493+         BALR  XRETURN,XENTRY .         BRANCH TO PURGE TAXES     20021
0009AE 18E7                        2494+         LR    XRETURN,XSAVE .          RESTORE RETURN REG        20021
0009B0                             2495+SKPTAXPG EQU   * .                                                20021
0009B0 5810 4078            00078  2496+         L     X1,TCBTME .              GET TQE ADDR.
0009B4 1211                        2497+         LTR   X1,X1 .                  IS THERE A TQE PRESENT.
0009B6 078E                        2498+         BCR   8,XRETN .                RETURN IF NOT.
0009B8 9180 1000      00000        2499+         TM    TQEFLGS(X1),X'80' .      IS TQE OFF QUEUE.
0009BC 4710 603C            009DA  2500+         BO    ETMFREE .                BR IF YES.
0009C0 9019 6382            00D20  2501+         STM   1,9,EXITSAVE .           SAVE REGS OVER CANCEL     20021
0009C4 58F0 6376            00D14  2502+         L     X15,KANCEL .             SET UP CANCEL BASE.
0009C8 58A0 3058            00058  2503+         L     X10,CVTTPC .             SET UP TIMR PSEUDO CLCK ADR 385
0009CC 5820 306C            0006C  2504+         L     XTMENTR,CVTQTD00 .       GET ADDR OF TIMER CANCEL RTN.
0009D0 18CE                        2505+         LR    12,XRETN .               SAVE RETURN ADDR          M4483
0009D2 0522                        2506+         BALR  XTMENTR,XTMENTR .        CANCEL TQE.
0009D4                             2507+         USING *,XTMENTR
0009D4 9819 234C            00D20  2508+         LM    1,9,EXITSAVE .           RESTORE REGS              20021
                                   2509+         DROP  XTMENTR
0009D8 18EC                        2510+         LR    XRETN,12 .               RESTORE RETURN ADDR       M4483
00099E                             2511+         USING ETMBSE,XTMBSE
0009DA                             2512+ETMFREE  DS    0H
0009DA 18A8                        2513+         LR    X10,X8 .                 SAVE REGS            PD OS63088
0009DC 18BE                        2514+         LR    X11,XRETN .              ACCROSS FREEMAINS    PD OS63088
0009DE 1871                        2515+         LR    X7,X1 .                  SAVE TQE ADDR.
0009E0 5810 1018            00018  2516+         L     X1,TQESAADR(0,X1) .      GET ADDR OF PP SAVE AREA.
0009E4 4110 1000            00000  2517+         LA    X1,0(,X1) .              DROP NOISE            AH A50601
0009E8 1211                        2518+         LTR   X1,X1 .                  Q.DOES P/P SAVE EXIST AH A50601
0009EA 4780 605E            009FC  2519+         BZ    NOPPSAVE .               RETURN IF NOT.        AH A50601
0009EE D702 7019 7019 00019 00019  2520+         XC    TQESAADR+1(3,X7),TQESAADR+1(X7) . ZERO SA PTR  AH A50601
0009F4                             2521+ETMFRX   DS    0H
0009F4 5800 62F6            00C94  2522+         L     X0,K72F250 .             SET PARM FOR FREEING S/A.
0009F8 45E0 62A2            00C40  2523+         BAL   XRETN,FREEMAIN .         CONDITIONALLY S/A     AH  M1545
0009FC                             2524+NOPPSAVE EQU   * AH A50601
0009FC 9101 7000      00000        2525+         TM    TQEFLGS(X7),X'01' IF TQE FOR                  @PD64485
000A00 4780 6076            00A14  2526+         BZ    TQENWT 'STIMER WAIT'               @PD64485
000A04 9102 7000      00000        2527+         TM    TQEFLGS(X7),X'02' THEN TURN OFF               @PD64485
000A08 4710 6076            00A14  2528+         BO    TQENWT WAIT ISSUED                 @PD64485
000A0C 5810 7060            00060  2529+         L     X1,TQEECB(,X7) BIT IN RB SO                @PD64485
000A10 94F7 100A      0000A        2530+         NI    RBSTAB1-RBSECT(X1),255-RBWAITP ABEND DOES       @PD64485
                                   2531+*                                  NOT PSEUDO-POST             @PD64485
                                   2532+*                                  NON-OWNED CORE              @PD64485
                    PURGE TIMER ROUTINE                                                                        PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000A14                             2533+TQENWT   EQU   * @PD64485
000A14 1817                        2534+         LR    X1,X7 .                  SET TQE ADDR TO FREE.
000A16 5800 637A            00D18  2535+         L     X0,K112F243 .            SET PARM FOR FM           20021
000A1A 5880 631A            00CB8  2536+         L     8,ARMBRNCH .             GET FM BR EP.
000A1E 05E8                        2537+         BALR  14,8 .                   TO FREE TQE.
000A20 18EB                        2538+         LR    XRETN,X11 .              RESTORE REGS.
000A22 188A                        2539+         LR    8,X10 .
000A24 1BAA                        2540+ZEROPTR  SR    X10,X10 .
000A26 50A0 4078            00078  2541+         ST    X10,TCBTME .             ZERO TCB TQE POINTER.
000A2A 07FE                        2542+         BR    XRETN .                  RETURN TO CALLER.
                    RELEASE LOADED PROGRAMS                                                                    PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2545+* RELEASE LOADED PROGRAMS.
                                   2546+         ENTRY IEAQABL
000A2C                             2547+IEAQABL  DS    0H
000A2C                             2548+ETLDP    DS    0H
000A2C 0560                        2549+         BALR  XSUBSE,0
000A2E                             2550+         USING *,XSUBSE
000A2E 5870 4024            00024  2551+         L     XWKA,TCBLLS .            GET LLE FROM TCB.
000A32 1277                        2552+ETLDLP   LTR   XWKA,XWKA .              IS LLE PRESENT.
000A34 0783                        2553+         BCR   8,XCVT .                 BR IF NOT.
000A36 58B0 7004            00004  2554+         L     XCDE,LLCDPTR-1(0,XWKA) . GET CDE ADDR FROM LLE.
000A3A 41B0 B000            00000  2555+         LA    XCDE,0(0,XCDE) .         CLEAR HI ORDER BYTE.
000A3E 9104 B000      00000        2556+         TM    0(XCDE),MIN .            Q. IS THIS A MAJOR CDE     8764
000A42 4780 6020            00A4E  2557+         BZ    ETCTADJ .                YES,GO ADJUST              8764
                                   2558+*                                       RESPONSE/USE COUNT         8764
000A46 58B0 B014            00014  2559+         L     XCDE,CDXLMJP-1 .         NO-LOAD MAJOR CDE ADR      8764
000A4A 41B0 B000            00000  2560+         LA    XCDE,0(0,XCDE) .         CLEAR HI ORDER BYTE        8764
000A4E 1B00                        2561+ETCTADJ  SR    X0,X0 .                  ZERO REGS
000A50 1810                        2562+         LR    X1,X0 .
000A52 9180 B000      00000        2563+         TM    0(XCDE),NIP .            Q. LOADED BY NIP?         M0102
000A56 4710 6040            00A6E  2564+         BO    NOUPDT .                 YES. DON'T ADJ USE COUNT  M0102
000A5A 4300 7004            00004  2565+         IC    X0,LLRESPCT(0,XWKA) .    GET RESPONSIBILITY CT FROM LLE.
000A5E 4310 B010            00010  2566+         IC    X1,CDUSE .               GET USE RESP. COUNT FROM CDE
000A62 1B10                        2567+         SR    X1,X0 .                  CALC UPDATED RESPONS. CT.
000A64 4210 B010            00010  2568+         STC   X1,CDUSE .               STORE UPDATED COUNT.
000A68 5820 62D2            00D00  2569+         L     XCDBSE,ACDHKEEP .        GET ADDR OF HKEEP RTN.
000A6C 05D2                        2570+         BALR  XHKRETN,XCDBSE .         TO CDHKEEP.
                                   2571+* REGS 3-7 MUST BE TRANSPARENT OVER SUB-RTN.
000A6E                             2572+NOUPDT   EQU   * .                                                M0102
000A6E 1817                        2573+         LR    X1,XWKA .                SAVE LLE ADDR.
000A70 5870 7000            00000  2574+         L     XWKA,LLCHAIN-1(0,XWKA) . GET NEXT LLE.
000A74 5070 4024            00024  2575+         ST    XWKA,TCBLLS .            STORE INTO TCB.
000A78 5800 62D6            00D04  2576+         L     X0,K8F255 .              SET PARM FOR FREEMAIN.
000A7C 45E0 6212            00C40  2577+         BAL   14,FREEMAIN .            TO FREE LLE.              M3806
000A80 47F0 6004            00A32  2578+         B     ETLDLP
                    MAIN STORAGE EOT                                                                           PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2580+* MAIN STORAGE EOT.
                                   2581+         ENTRY IEAQSPET
000A84                             2582+IEAQSPET DS    0H
000A84                             2583+ETMSS    DS    0H
000A84 0560                        2584+         BALR  XMBSE,0
000A86                             2585+         USING *,XMBSE
000A86 5540 407C            0007C  2586+         CL    XTCB,TCBJSTCB .          IS J/S TCB AT EOT.
000A8A 4770 6020            00AA6  2587+         BNE   ETSPQE .                 BR IF NOT.
000A8E 58B0 402C            0002C  2588+ETMSLP   L     XCDE,TCBJPQ .            GET JOB PACK CDE.
000A92 41B0 B000            00000  2589+         LA    XCDE,0(0,XCDE) .         CLEAR HI ORDER BYTE.
000A96 12BB                        2590+         LTR   XCDE,XCDE .              ANY PROGRAMS IN JOB PACK AREA.
000A98 4780 6020            00AA6  2591+         BZ    ETSPQE .                 BR IF NOT.
000A9C 5820 62DE            00D64  2592+         L     XCDBSE,ADESTX .          GET EP TO CDDESTRY FOR MSS EOT.
000AA0 05C2                        2593+         BALR  XDMRETN,XCDBSE .         TO FREE CDE AND EXTENT LIST.
000AA2 47F0 6008            00A8E  2594+         B     ETMSLP
000AA6 5820 4018            00018  2595+ETSPQE   L     XSPQE,TCBMSS .           GET SPQE ADDR.
000AAA 4120 2000            00000  2596+         LA    XSPQE,0(0,XSPQE) .       CLEAR HI ORDER BYTE.
000AAE 1222                        2597+         LTR   XSPQE,XSPQE .            IS POINTER ZERO.
000AB0 0783                        2598+         BCR   8,XCVT .                 BR IF YES.
000AB2 1B00                        2599+         SR    X0,X0 .                  CLEAR X0             PD OS63452
000AB4 9180 2000      00000        2600+         TM    0(XSPQE),X'80' .         IF SUBPOOL IS NOT    PD OS63452
000AB8 4780 6070            00AF6  2601+         BZ    ETNSPQE0 .               SHARED, RELEASE CORE PD OS63452
000ABC 5540 407C            0007C  2602+         CL    XTCB,TCBJSTCB .          IF JOBSTEP           PD OS63452
000AC0 4770 6088            00B0E  2603+         BNE   ETFSPQE .                TASK                 PD OS63452
000AC4 9500 401C      0001C        2604+         CLI   TCBPKF,0 .               AND NOT KEY 0        PD OS63452
000AC8 4780 6088            00B0E  2605+         BE    ETFSPQE .                AND IS USER          PD OS63452
000ACC 95FB 2004      00004        2606+         CLI   4(XSPQE),251 .           SUBPOOL              PD OS63452
000AD0 4780 6056            00ADC  2607+         BE    ETFQE0 .                 (0-127 OR 251)       PD OS63452
000AD4 9580 2004      00004        2608+         CLI   4(XSPQE),128 .           THEN                 PD OS63452
000AD8 47B0 6088            00B0E  2609+         BNL   ETFSPQE .                SET THE FQE POINTER  PD OS63452
000ADC                             2610+ETFQE0   EQU   * .                      IN EVERY             PD OS63452
000ADC 5810 2004            00004  2611+         L     X1,4(,XSPQE) .           DQE TO 0             PD OS63452
000AE0 5810 1004            00004  2612+ETFQE    L     X1,4(,X1) .              THIS PREVENTS ABEND  PD OS63452
000AE4 4110 1000            00000  2613+         LA    X1,0(,X1) .              IN ORIGINATING TASK  PD OS63452
000AE8 1211                        2614+         LTR   X1,X1 .                  WHICH SHARES USER'S  PD OS63452
000AEA 4780 6088            00B0E  2615+         BZ    ETFSPQE .                SUBPOOLS.            PD OS63452
000AEE 5000 1000            00000  2616+         ST    X0,0(,X1) .              (IN CASE USER HAS    PD OS63452
000AF2 47F0 605A            00AE0  2617+         B     ETFQE .                  CLOBBERED UNPROTECTEDPD OS63452
000AF6                             2618+ETNSPQE0 EQU   * .                      FQE'S.)              PD OS63452
000AF6 1810                        2619+         LR    X1,X0 .                  SET X0/X1 TO 0       PD OS63452
000AF8 4300 2004            00004  2620+         IC    X0,4(0,XSPQE) .          GET SP ID FROM SPQE.
000AFC 1200                        2621+         LTR   X0,X0 .                  IS SP ID ZERO              I270
000AFE 4770 6080            00B06  2622+         BC    7,SHIFT .                NO-BRANCH                  I270
000B02 5010 4070            00070  2623+         ST    X1,TCBFSA .              YES,SAVE AREA IS FREED WITH
                                   2624+*                                       SUBPOOL ZERO               I270
000B06 8900 0018            00018  2625+SHIFT    SLL   X0,24 .                  MVE SP ID TO HI ORDER BYTE I270
000B0A 45E0 61BA            00C40  2626+         BAL   14,FREEMAIN .            TO FREE SUB-POOL.         M3806
000B0E                             2627+ETFSPQE  DS    0H
000B0E D202 4019 2001 00019 00001  2628+         MVC   TCBMSS+1(3),1(XSPQE) .   UNCHAIN SPQE
000B14 5800 627E            00D04  2629+         L     X0,K8F255 .              SET UP SPQE LENGTH.
000B18 4110 2000            00000  2630+         LA    X1,0(0,XSPQE) .          SET UP SPQE ADDR.
000B1C 9140 2000      00000        2631+         TM    0(XSPQE),X'40' .         LAST SPQE.
000B20 4710 60A6            00B2C  2632+         BO    ETFLST .                 BR IF YES.
000B24 45E0 61BA            00C40  2633+         BAL   14,FREEMAIN .            TO FREE SPQE.             M3806
000B28 47F0 6020            00AA6  2634+         B     ETSPQE .                 LOOP
                    MAIN STORAGE EOT                                                                           PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000B2C                             2635+ETFLST   DS    0H
000B2C 45E0 61BA            00C40  2636+         BAL   14,FREEMAIN .            TO FREE LAST SPQE.        M3806
000B30 1B11                        2637+         SR    X1,X1 .
000B32 5010 4018            00018  2638+         ST    X1,TCBMSS .              STORE ZEROS IN TCB
000B36 5800 62DA            00D60  2639+         L     X0,K253 .                SET UP TO FREE SUB-POOL 253.
000B3A 45E0 61BA            00C40  2640+         BAL   14,FREEMAIN .            TO FREE SUB-POOL 253.     M3806
000B3E 07F3                        2641+         BR    XCVT .                   RETURN.
               EOT - ERASE PHASE                                                                               PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2643+         ENTRY IEAQERA
000B40                             2644+IEAQERA  DS    0H
000B40 0560                        2645+         BALR  XSBSE,0
000B42                             2646+         USING *,XSBSE
000B42 5880 7084            00084  2647+         L     XWKB,TCBOTC-TCB(0,XDTCB) .GET ADDR. OF ORIGIN TCB
000B46 5570 8088            00088  2648+         CL    XDTCB,TCBLTC-TCB(0,XWKB) .IS THIS TCB TO FREE
000B4A 4770 6016            00B58  2649+         BNE   EPSIS
000B4E D203 8088 7080 00088 00080  2650+         MVC   TCBLTC-TCB(4,XWKB),TCBNTC-TCB(XDTCB)
000B54 47F0 6030            00B72  2651+         B     EPOUT
                                   2652+* SEARCH ALONG SISTER CHAIN.
000B58 5880 8088            00088  2653+EPSIS    L     XWKB,TCBLTC-TCB(0,XWKB) .GET SUB TASK ADDRESS
000B5C 5570 8080            00080  2654+EPSISLP  CL    XDTCB,TCBNTC-TCB(0,XWKB) .IS THIS TCB TO FREE
000B60 4780 602A            00B6C  2655+         BE    EPFOUND .                BR IF YES.
000B64 5880 8080            00080  2656+         L     XWKB,TCBNTC-TCB(0,XWKB) .GET NEXT SISTER
000B68 47F0 601A            00B5C  2657+         B     EPSISLP
                                   2658+* TCB FOUND.
000B6C D203 8080 7080 00080 00080  2659+EPFOUND  MVC   TCBNTC-TCB(4,XWKB),TCBNTC-TCB(XDTCB)
000B72                             2660+EPOUT    DS    0H
000B72 18DE                        2661+         LR    XRETN-1,XRETN .          SAVE RETURN REG.
000B74 5840 7084            00084  2662+         L     XTCB,TCBOTC-TCB(0,XDTCB) .GET ORIGIN TCB
000B78 5830 0010            00010  2663+         L     XCVT,16 .                GET CVT ADDR.
000B7C 5800 6152            00C94  2664+         L     X0,K72F250 .             GET FM PARM.
000000                             2665+         USING TCB,XDTCB
000B80 5810 7070            00070  2666+         L     X1,TCBFSA .              GET S/A ADDR
                                   2667+         DROP  XDTCB
000B84 4110 1000            00000  2668+         LA    X1,0(0,X1) .             CLEAR HI ORDER BYTE.
000B88 1211                        2669+         LTR   X1,X1 .                  IS THERE A SAVE AREA.
000B8A 4780 6050            00B92  2670+         BZ    EP01 .                   BR IF NOT.
000B8E 45E0 60FE            00C40  2671+         BAL   14,FREEMAIN .            TO FREE S/A.              M3806
000B92                             2672+EP01     DS    0H
000B92 5800 61CA            00D0C  2673+         L     X0,K216F253 .            SET PARM FOR FM            I270
000B96 1817                        2674+         LR    X1,XDTCB .               SET UP TCB ADDR FOR FREEMAIN.
000B98 5B10 61CE            00D10  2675+         S     X1,K32 .                 REF F.P. SAVE AREA.
000B9C 45E0 60FE            00C40  2676+         BAL   14,FREEMAIN .            TO FREEMAIN FOR TCB.      M3806
000BA0 18ED                        2677+         LR    XRETN,XRETN-1 .          RESTORE REG.
000BA2 07FE                        2678+         BR    XRETN
                                   2679+         DROP  XSBSE
               EOT - ERASE PHASE                                                                               PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2681+* SCHEDULE ETXR ASYNCHRONOUS EXIT ROUTINE.
000BA4 9102 401E      0001E        2682+ETXR     TM    TCBFLGS+1,TCBFETXR .     IS THERE AN ETXR INDICATED.
000BA8 078E                        2683+         BCR   8,XRETN .                RETURN IF NOT
000BAA 58B0 3004            00004  2684+         L     11,CVT0EF00 .            GET ADDR OF EXIT EFFECTOR.
000BAE 5810 408C            0008C  2685+         L     X1,TCBIQE .              GET IQE ADDR.
000BB2 1311                        2686+         LCR   X1,X1 .                  COMPLEMENT ADDR.
000BB4 07FB                        2687+         BR    11 .                     TO SCHEDULE ETXR.
                                   2688+* REG 14 CONTAINS RETURN TO MAIN-LINE EOT.



                                   2690+* POST ECB IF INDICATED.
000002                             2691+         USING EDBSE,XBSE
000000                             2692+         USING TCB,XTCB
000BB6 5810 4090            00090  2693+ETPOST   L     X1,TCBECB .              GET ECB ADDR FROM TCB.
000BBA 1211                        2694+         LTR   X1,X1 .                  IS ECB PRESENT.
000BBC 078E                        2695+         BCR   8,XRETN .                BR IF NOT
                                   2696+* VALIDITY CHECK ECB.
000BBE 5940 407C            0007C  2697+         C     XTCB,TCBJSTCB .          IS J/S AT EOT
000BC2 4780 2C1A            00C1C  2698+         BE    ETPSU .                  BR IF YES.
000BC6 5870 1000            00000  2699+         L     XWKA,0(0,X1) .           GET RB FROM ECB.
000BCA 4170 7000            00000  2700+         LA    XWKA,0(0,XWKA)
000BCE 4160 2C2C            00C2E  2701+         LA    6,ETECBER .              GET ADDR OF ERROR RTN.
000BD2 9140 1000      00000        2702+         TM    0(X1),X'40' .            IS THE ECB POSTED.
000BD6 0716                        2703+         BCR   1,6 .                    BR IF YES TO ABTERM.
000BD8 9180 1000      00000        2704+         TM    0(X1),X'80' .            IS ECB WAITING
000BDC 47C0 2C1A            00C1C  2705+         BC    12,ETPSU .               NO, POST ECB
000BE0 9103 1003      00003        2706+         TM    3(X1),X'03' .            IS RB ADDR ON WD BOUNDARY.
000BE4 0756                        2707+         BCR   5,6 .                    BR IF NOT TO ABEND.
000BE6 5970 30A4            000A4  2708+         C     XWKA,CVTMZ00 .           IS ADDR WITHIN MACH SIZE.
000BEA 07A6                        2709+         BCR   10,6 .                   BR IF NOT TO ABEND.
000BEC 95FF 7010      00010        2710+         CLI   RBOPSW-RBSECT(XWKA),X'FF' .IS STORED PSW ENABLED.
000BF0 0776                        2711+         BCR   7,6 .                    BR IF NOT TO ABEND.
000BF2 1BFF                        2712+         SR    X15,X15 .
000BF4 1887                        2713+         LR    XWKB,XWKA .
000BF6 4380 2D72            00D74  2714+         IC    XWKB,K0 .                SET LOW ORDER 8 BITS TO '0'.
000BFA 09F8                        2715+         ISK   X15,XWKB .               GET STORAGE KEY.
000BFC 12FF                        2716+         LTR   X15,X15 .                IS KEY = 0.
000BFE 0776                        2717+         BCR   7,6 .                    BR IF NOT TO ABEND.
000C00 58F0 7014            00014  2718+         L     X15,RBOPSW+4-RBSECT(0,XWKA) .GET RH PSW.
000C04 5BF0 2D6E            00D70  2719+         S     X15,K2 .                 SUBTR 2 FROM ADDR.
000C08 D501 F000 2D74 00000 00D76  2720+         CLC   0(2,X15),K0A01 .         WAS SVC 01 ISSUED.
000C0E 4780 2C1A            00C1C  2721+         BE    ETPSU .                  BR IF YES.
000C12 5BF0 2D6E            00D70  2722+         S     X15,K2 .                 SUBTR 2 FROM ADDR.
000C16 9544 F000      00000        2723+         CLI   0(X15),X'44' .           WAS AN 'EX' ISSUED.
000C1A 0776                        2724+         BCR   7,6 .                    BR IF NOT.
000C1C 5800 4010            00010  2725+ETPSU    L     X0,TCBCMP .              SET UP COMPL CODE FOR POST.
000C20                             2726+ETPSTRET DS    0H
000C20 41E0 E026            00026  2727+         LA    XRETN,ETB02-ETB03(0,XRETN) INC BYPASS ERASE    @YA78625
000C24 58F0 2CEE            00CF0  2728+         L     X15,AIGC002B .           GET POST RTN BASE ADDR.
000C28 18C4                        2729+         LR    XRBSAV,XTCB .            SAVE REG XTCB OVER POST.
000C2A 47F0 F004            00004  2730+         B     4(0,X15) .               TO POST BR ENTRY. RETURN IN 14.
                                   2731+* NOTE- REGS 0-3,5,6,12 AND 14 ASSUMED TRANSPARENT OVER POST.

                                   2733+* ABTERM ORIGIN TASK DUE TO INVALID ECB.
               EOT - ERASE PHASE                                                                               PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000C2E                             2734+ETECBER  DS    0H
000C2E 5800 4084            00084  2735+         L     X0,TCBOTC .              SET ORIGIN TCB ADDRESS.
000C32 5810 2D6A            00D6C  2736+         L     X1,ETPSCD1 .             SET ERROR CODE.
000C36 58D0 2D66            00D68  2737+         L     13,AIEAB01 .             GET ENTRY TO ABTERM.
000C3A 05ED                        2738+         BALR  XRETN,13 .               TO ABTERM ORIGIN TASK.
000C3C 47F0 290C            0090E  2739+         B     ETB02 .
               EOT - ERASE PHASE                                                                               PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2741+*            THE FOLLOWING ROUTINE WILL CAUSE A CONDITIONAL FREEMAIN TO
                                   2742+*         BE ISSUED IF ABEND IS IN CONTROL.  THIS IS ACCOMPLISHED BY
                                   2743+*         SETTING A BIT WHICH ABTERM WILL TEST IF ENTERED.  IF THE BIT
                                   2744+*         IS ON IN ABTERM, RETURN WILL BE MADE TO ABEND.          M3806
                                   2745+*
000C40 0580                        2746+FREEMAIN BALR  8,0 .                     SET UP BASE              M3806
000C42                             2747+         USING *,8 .                     USE REGISTER 8 AS BASE   M3806
000C42 50E0 8036            00C78  2748+         ST    14,SAVERTN .              SAVE RETURN REGISTER     M3806
000C46 9140 81F2      00E34        2749+         TM    SCVTFMSA,SCVTSW2 .        Q. IS ABEND IN CONTROL?  M3806
000C4A 4780 8010            00C52  2750+         BZ    OVER .                    NO. CONTINUE             M3806
000C4E 9680 81F2      00E34        2751+         OI    SCVTFMSA,SCVTSW1 .        YES.CAUSE CONDITNAL FREE M3806
000C52 9120 81F2      00E34        2752+OVER     TM    SCVTFMSA,SCVTSW3 .        Q. IS THIS FMPAR ENTRY   M3806
000C56 4780 8024            00C66  2753+         BZ    OVERA .                   NO. CONTINUE             M3806
000C5A 94DF 81F2      00E34        2754+         NI    SCVTFMSA,255-SCVTSW3 .    TURN FMPAR SW OFF        M3806
000C5E 58F0 8072            00CB4  2755+         L     15,AFMBRNCH .             LOAD ENTRY TO FREEMAIN   M3806
000C62 47F0 8028            00C6A  2756+         B     OVERB .                   TO FREEMAIN              M3806
000C66 58F0 8076            00CB8  2757+OVERA    L     15,ARMBRNCH .             GET ENTRY TO FREEMAIN    M3806
000C6A 05EF                        2758+OVERB    BALR  14,15 .                   TO FREEMAIN              M3806
                                   2759+         DROP  8 .                                                M3806
000C6C                             2760+         USING *,14 .                    SET UP ADDRESSABILITY    M3806
000C6C 947F E1C8      00E34        2761+         NI    SCVTFMSA,255-SCVTSW1 .    TURN OFF SW IF ON        M3806
000C70 58E0 E00C            00C78  2762+         L     14,SAVERTN .              RESTORE RETURN REG       M3806
000C74 07FE                        2763+         BR    14 .                      RETURN                   M3806
                                   2764+*
000C78                             2765+SAVERTN  DS    1F .                      SAVE AREA FOR REG RETURN M3806
                                   2766+*
               EXIT MODULE CONSTANTS                                                                           PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2768+* EXIT PHASE
000C7C 00000002                    2769+AEDBSE   DC    A(EDBSE) .               ADDRESSABILITY OF EXIT.
000C80 00000000                    2770+AIEASCSV DC    V(IEASCSAV) .            SVC REG SAVE AREA.
000C84 00000000                    2771+ATH      DC    V(IEAQTR01) .            TYPE 2,3,4 SVC EXIT.
                                   2772+*                                  ADDRESS OF 3RD STAGE       PDOS64911
000C88 00000000                    2773+AIEA0DS1 DC    V(IEA0DS01) .  EXIT SWITCH (BC15-BC00)         PDOS64911
000C8C FDFFFFFF                    2774+K253CMP  DC    X'FDFFFFFF'
000C90 FF000000                    2775+K255     DC    X'FF000000' .
000C94 FA000048                    2776+K72F250  DC    X'FA000048' .            FREE 72 BYTES FROM SUB-POOL 250
000C98 FF000010                    2777+K16F255  DC    X'FF000010' .            FREE 16 BYTES FROM        M0183
                                   2778+*                                       SUB-POOL 255.             M0183
000C9C FD000010                    2779+K16F253  DC    X'FD000010' FREE IQE                   1505
000CA0 C1C2C5D5C4                  2780+ABEND    DC    C'ABEND' .               TEST FOR ABEND FLAG-SVRB  M3525
000CA5 000000
000CA8 00001000                    2781+K4096    DC    F'4096' .
000CAC 0000000D                    2782+K13      DC    F'13' .                  CONSTANT FOR IRB WORK AREA TEST
000CB0 00000000                    2783+AINT025  DC    V(INT025) .              IOS ENTRY TO RETURN 16*'S
000CB4 00000000                    2784+AFMBRNCH DC    V(FMBRANCH) .            BR ENTRY TO FREEMAIN.
000CB8 00000000                    2785+ARMBRNCH DC    V(RMBRANCH) .            BR ENTRY TO REGMAIN
000CBC 00000000                    2786+AIEATYP1 DC    V(IEATYPE1) .            TYPE 1 SVC SWITCH ADDR.
000CC0 00000000                    2787+ATAR     DC    V(IEAQTR02) .            T/A REFRESH ENTRY ADDR.
000CC4 F2F1F740                    2788+REL217   DC    CL4'217 ' REL WHEN SVC 107 ADDED      @SA72278
                                   2789+*                                  TO EXIT & TCB SIZE          @SA72278
                                   2790+*                                  INCREASED                   @SA72278

                                   2792+* CONTENTS DIRECTORY PHASE
000CC8 00000000                    2793+AIEADS02 DC    V(IEA0DS02) .            TASK SWITCH ROUTINE.
000CCC 00000000                    2794+WTJSTIME DC    V(IEAQJSTM) .            ADDRESS OF 30MIN WAIT AH A38869
000CD0 00000000                    2795+CDQCNTRL DC    V(IEAQCS02) .           RETRY ENTRY TO QLK     AH A39386
000CD4 FC000500                    2796+K500F252 DC    X'FC000500' .           LEN & SP ID FOR FETCH  AH A39970
000CD8 00000000                    2797+AIEACS03 DC    V(IEAQCS03) .           ENTRY TO CDEPILOG         A39970
000CDC FF000018                    2798+K24F255  DC    X'FF000018' .           FREE 24 BYTES FROM SP 255.
                                   2799+*
000CE0                             2800+FMPLIST  DS    0F
000CE0 00000000                    2801+FMLNGH   DC    A(0)
000CE4 00000000                    2802+FMADDR   DC    A(0)
000CE8 80                          2803+         DC    X'80' .                  CODE FOR L TYPE MACRO.
000CE9 00                          2804+FMSP     DC    X'00' .                  DYNAMIC SUB-POOL NUMBER.

                                   2806+* CONSTANTS FOR EOT MAIN LINE.
000CEC                             2807+         DS    0F
000CEC FA000020                    2808+K32F250  DC    X'FA000020' .            USED TO FREE PIE.
                                   2809+         EXTRN IGC002
000CF0 00000002                    2810+AIGC002B DC    A(IGC002+2) .            POST RTN ADDRESSABILITY.
000CF4 80D03000                    2811+ETNQCD   DC    X'80D03000' .            ERROR CD FOR INCOMPLETE ENQS.
000CF8 00000000                    2812+GRAPHTTR DC    V(IFFGRTTR) .            EP NAME OF GRAPHICS EOT RTN

                                   2814+* CONSTANTS FOR CLOSE EOT.
000CFC                             2815+         DS    0F
000CFC 80C03000                    2816+ETCLABCD DC    X'80C03000' .            ERR CD FOR CLOSE ERROR.

                                   2818+* CONSTANTS FOR LOADED PROGRAM RELEASE (IEAQABL)
000D00 000006A0                    2819+ACDHKEEP DC    A(CDHKEEP) .             ADDR OF CDHKEEP.
000D04 FF000008                    2820+K8F255   DC    X'FF000008' .            PARM FOR FREEING LLE.
000D08 80A03000                    2821+ETABCD1  DC    X'80A03000' .            ERR CD FOR OUTSTD'G DESCENDENTS
               EXIT MODULE CONSTANTS                                                                           PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2823+* CONSTANTS FOR ERASE PHASE
000D0C                             2824+         DS    0F
000D0C FD0000E0                    2825+K216F253 DC    X'FD0000E0' .     PARM FOR FREEING TCB        AD  A58667
000D10 00000020                    2826+K32      DC    F'32' USE TO REF F.P. SAVE AREA.

                                   2828+* PURGE TIMER.
                                   2829+         EXTRN IEAQTD01
000D14 00000002                    2830+KANCEL   DC    A(IEAQTD01+2) .          ADDRESSABILITY FOR TIMER CANCEL
000D18 F3000070                    2831+K112F243 DC    X'F3000070' .            FREE 112 BYTES FR SP 243  20021
000D1C 0000099E                    2832+AETMBSE  DC    A(ETMBSE) .              ADDRESSABILITY FOR PURGE TIMER.
000D20                             2833+EXITSAVE DS    16F .                    REG SAVE AREA             20021

                                   2835+* MSS EOT.
000D60                             2836+         DS    0F
000D60 FD000000                    2837+K253     DC    X'FD000000'

                                   2839+* MSS EOT CONSTANTS.
000D64 00000758                    2840+ADESTX   DC    A(DESTX) .               MSS EOT ENTRY TO CDDESTRY.

                                   2842+* CONSTANTS FOR POST RTN.
000D68 00000000                    2843+AIEAB01  DC    V(IEA0AB00)
000D6C 80103000                    2844+ETPSCD1  DC    X'80103000' .            ERR CD FOR INVALID EOT ECB.
000D70 00000002                    2845+K2       DC    F'2'
000D74 0000                        2846+K0       DC    H'0'
000D76 0A01                        2847+K0A01    DC    X'0A01'
                                   2848+** ADDRESSES OF OUT-OF-LINE SUBROUTINES                        @SA75035
000D78 00000E38                    2849+ADQTCB   DC    A(IEADQTCB) DEQUEUE TCB ROUTINE         @SA75035


                                   2851+*  CONSTANTS FOR TSO                                              20021
000D7C 00000000                    2852+ENTRYSET DC    V(IGC07902) .            ENTRY POINT SETTASK       M0600
000D80 000003B2                    2853+ATTNEXIT DC    A(IKJATTNX) .            ADR RTN PROC ATTENTION IRB20021
000D84 000004EE                    2854+TJBGET   DC    A(GETTJB) .              ADR OF GET TJB ADDR RTN   20021
000D88 00000048                    2855+K72F0    DC    X'00000048' .            FREE 72 BYTES FROM SP 0   20021
000D8C 0E000000                    2856+K243N253 DC    X'0E000000' CHG SP FROM 253 TO 243      @SA70798
000D90 00000000                    2857+AGOVRFLB DC    V(GOVRFLB) @SA70798
                                   2858+** ADDRESSES OF OUT-OF-LINE SUBROUTINES                        @SA75035
000D94 00000FE0                    2859+AETAER   DC    A(ETAER) DEFERRED ATTENTION RTN      @SA75035
000D98 00000F2A                    2860+ATAXEPRG DC    A(TAXEPRG) TAXE PURGE                   @SF75035
               EXIT MODULE CONSTANTS                                                                           PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2862+***********************************************************************
                                   2863+*                                                                     *
                                   2864+* THE FOLLOWING ADCON LIST IS USED BY SVC ABEND TO REFERENCE RESIDENT *
                                   2865+* ROUTINES.  LOCATION IEABEND IS POINTED TO BY CVTABEND IN THE CVT.   *
                                   2866+*                                                                     *
                                   2867+***********************************************************************
                                   2868+         ENTRY IEABEND
000D9C                             2869+IEABEND  DS    0F
000D9C 0000099C                    2870+SCVTPGTM DC    A(IEAQPGTM) ADDR OF EOT TIMER PURGE ROUTINE
000DA0 00000000                    2871+SCVTPGWR DC    V(IEECVPRG) ADDR OF WTOR PURGE ROUTINE
000DA4 00000A84                    2872+SCVTSPET DC    A(IEAQSPET) ADDR OF EOT SUBPOOL RELEASE
                                   2873+         EXTRN IEAQTAQ
000DA8 00000000                    2874+SCVTTACT DC    A(IEAQTAQ) ADDR OF T.A. CONTROL TABLE
000DAC 00000B40                    2875+SCVTERAS DC    A(IEAQERA) ADDR OF EOT ERASE PHASE
                                   2876+         EXTRN IEAQQCB0
000DB0 00000000                    2877+SCVTQCBO DC    A(IEAQQCB0) ADDR OF QCB ORIGIN
000DB4 00000000                    2878+SCVTPGEQ DC    V(IEA0EQ01) ADDR OF ENQ/DEQ PURGE ROUTINE
000DB8 00000000                    2879+SCVTRMBR DC    V(RMBRANCH) ADDR OF REGMAIN BRANCH ENTRY
000DBC 00000000                    2880+SCVTPGIO DC    V(IGC016) ADDR OF I/O PURGE ROUTINE
000DC0 00000000                    2881+SCVTRACE DC    V(IECXTRA) ADDR OF TRACE ROUTINE SWITCH
000DC4 00000000                    2882+SCVTTASW DC    V(IEA0DS02) ADDR OF TASK SWITCHING ROUTINE
000DC8 00000000                    2883+SCVTCDCL DC    V(IEAQCS02) ADDR OF CDCONTRL IN LINK
000DCC 00000000                    2884+SCVTLFRM DC    V(FMBRANCH) LIST FORMAT FREEMAIN BRANCH EP
000DD0 00000A2C                    2885+SCVTPABL DC    A(IEAQABL) ADDR OF CDABDEL IN EOT
000DD4 00000E38                    2886+SCVTDQTC DC    A(IEADQTCB) ADDR OF TCB DEQ RTN IN EOT
000DD8 000006A0                    2887+SCVTHSKP DC    A(CDHKEEP) ADDR OF CDHKEEP IN EOT
                                   2888+         EXTRN TRPTR
000DDC 00000000                    2889+SCVTRPTR DC    A(TRPTR) ADDR OF TRACE TABLE POINTERS
000DE0 00000000                    2890+SCVTGMBR DC    V(GMBRANCH) LIST FORMAT GETMAIN BRANCH EP
                                   2891+         EXTRN TAUSERCT
000DE4 00000000                    2892+SCVTAUCT DC    A(TAUSERCT) TRANSIENT AREA USER COUNT
                                   2893+         EXTRN IEARCTRS RORI
000DE8 00000000                    2894+SCVTROCT DC    A(IEARCTRS) ADDRESS OF ROLLOUT COUNTERS   RORI
                                   2895+         EXTRN IEAROQUE RORI
000DEC 00000000                    2896+SCVTROQ  DC    A(IEAROQUE) ADDRESS OF ROLLOUT QUEUE   RORI
                                   2897+         EXTRN IEAROIRB RORI
000DF0 00000000                    2898+SCVTRIRB DC    A(IEAROIRB) ADDRESS OF ROLLOUT IRB     RORI
                                   2899+         EXTRN IEAROTCB RORI
000DF4 00000000                    2900+SCVTRTCB DC    A(IEAROTCB) ADDRESS OF ROLLOUT TCB     RORI
000DF8 00000000                    2901+SCVTCOMM DC    V(IEECVCTW) ENTRY IN COMM TASK          ABND
000DFC 00000000                    2902+SCVTABLK DC    V(SCEDWAIT) ADDR IN ABTERM              ABND
000E00 00000000                    2903+SCVTNFND DC    V(TBNOTFND) ADDR IN IEQRT33             ABND
000E04 00000000                    2904+SCVTRMTC DC    V(IGFRMTCB) RMS TCB                    19022
000E08 00000000                    2905+SCVTMSSQ DC    V(GOVRFLB) ORIGIN OF MAIN STOR QUEUES  ABND
000E0C 00000000                    2906+SCVTCTCB DC    V(IEECVTCB) COMM TASK TCB               ABND
000E10 00000000                    2907+SCVTETCB DC    V(IEAERTCB) SYSTEM ERROR TCB            ABND
000E14 00000000                    2908+SCVTRXLQ DC    A(0) .                  RECOVERY EXTNT LIST        20021
000E18 00000000                    2909+SCVTRQND DC    V(IECITSAR) .           END OF I/O RQE TABLE       20021
000E1C 00000000                    2910+SCVTTAR  DC    V(IEAQTR02) .           TRAN AREA REFRESH RTN      20021
000E20 00000000                    2911+SCVTSVCT DC    V(IBMORG) .             ORIGIN OF SVC TABLE        20021
000E24 00000000                    2912+SCVTSTXP DC    V(IEAKJXP) .            STAX PURGE RTN             20021
000E28 00000000                    2913+SCVTTQE  DC    V(IEATSELM) .           TSO SUBSYSTEM'S TQE        20021
000E2C 00000000                    2914+SCVTRMSV DC    V(IORMSSVC) RMS SVC                    19022
000E30 00000000                    2915+SCVTMSGS DC    V(IEAQMSGS) .           INFORMATION LIST MODULE    21016
000E34 00000000                    2916+SCVTFMSA DC    V(IEA10FS) .             ADDRESS OF FREE SAVE AREA M3806
               EXIT MODULE CONSTANTS                                                                           PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000080                             2917+SCVTSW1  EQU   X'80' .                  SW SET BEFORE ENTERING    M3806
                                   2918+*                                        FREEMAIN                 M3806
000040                             2919+SCVTSW2  EQU   X'40' .                  SW SET BEFORE ENTERING    M3806
                                   2920+*                                        EXIT                     M3806
000020                             2921+SCVTSW3  EQU   X'20' .                  SW SET BEFORE FMPAR       21472
                                   2922+*                                        ENTRY IN EXIT FROM ABEND 21472
                                   2923+         EJECT  ,                                               @SA7503X
               EXIT MODULE CONSTANTS                                                                           PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2924+*                                                              @SA75035
                                   2925+** THE FOLLOWING ROUTINES HAVE BEEN MOVED TO THE               @SA75035
                                   2926+** END OF THE MODULE TO INCREASE ADDRESSABILITY.               @SA75035
                                   2927+** FICHE FLAGS HAVE BEEN ADDED ONLY TO THOSE                   @SA75035
                                   2928+** STATEMENTS WHICH HAVE BEEN CHANGED, NOT TO THOSE            @SA75035
                                   2929+** WHICH HAVE BEEN MOVE.                                       @SA75035
                                   2930+*                                                              @SA75035





                                   2932+* SUBROUTINE TO REMOVE TCB FROM TCB READY QUEUE.
                                   2933+         ENTRY IEADQTCB .               ENTRY FOR ERASE PHASE + ABEND
000E38                             2934+IEADQTCB DS    0H
000E38 0560                        2935+         BALR  XRBSE,0
000E3A                             2936+         USING *,XRBSE
000000                             2937+         USING TCB,XTCB
000E3A 9180 4094      00094        2938+         TM    TCBTSFLG,TCBTSTSK .      IS THIS TSO TASK          20021
000E3E 4780 60CE            00F08  2939+         BZ    NOTSO6A .                NO, SKIP TSO PROCESSING   20021
000E42 900F 620E            01048  2940+         STM   X0,X15,SAVEEXIT . SAVE REGS                 @SA75035
000E46 58A0 6252            0108C  2941+         L     XGETTJB,TJBGETA . ADR OF RTN TO GET TJB ADR @SA75035
000E4A 05EA                        2942+         BALR  XRETURN,XGETTJB .        GET TJB, TJBX ADDR        20021
000000                             2943+         USING TJB,XTJB .                                         20021
000000                             2944+         USING TSCVT,XTSCVT .                                     20021
000000                             2945+         USING TJBX,XTJBX .                                       20021
000E4C 48A0 7036            00036  2946+         LH    XTCBNUM,TJBXNTCB .       NUMBER USER TCBS          20021
000E50 06A0                        2947+         BCTR  XTCBNUM,X0 .             DECREMENT TCB NUMB BY ONE 20021
000E52 40A0 7036            00036  2948+         STH   XTCBNUM,TJBXNTCB .       PLACE CURR NUMBER IN TJBX 20021
000E56 58A0 7000            00000  2949+         L     XFIRST,TJBXFST .         ADDRESS LOGON TCB         20021
000E5A 59A0 7004            00004  2950+         C     XFIRST,TJBXLAST .        LOGON TCB ON EXITING      20021
000E5E 4770 60B0            00EEA  2951+         BNE   NORMALTS .               NO,NORMAL TSO EOT PROCESS 20021
000E62 9500 2028      00028        2952+         CLI   TJBNEWID,NONEWID .       NEW TJID SPECIFIED FOR REG20021
000E66 4780 603C            00E76  2953+         BE    LOGONXIT .               NO- LOG USER OFF          20021
000E6A 9220 2006      00006        2954+         MVI   TJBSTAT,TJBLOGON .       YES-TURN ON TSC LOGON FLG 20021
000E6E 9620 900C      0000C        2955+         OI    TSCVTFLG,TSCLOGON .      TURN ON TSC LOGON FLAG    20021
000E72 47F0 6068            00EA2  2956+         B     CNTRELOG .               CONTINUE RELOGON PROCESS  20021
000E76                             2957+LOGONXIT EQU   * .                                                20021
000E76 D703 2008 2008 00008 00008  2958+         XC    TJBEXTNT(WORD),TJBEXTNT .REINITIALIZE TJB          20021
000E7C D706 2014 2014 00014 00014  2959+         XC    TJBSDCB(BYTES7),TJBSDCB .TO MAKE AVAILABLE         20021
000E82 D70B 201C 201C 0001C 0001C  2960+         XC    TJBUSER(BYTES12),TJBUSER FOR ANOTHER USER          20021
000E88 D703 202C 202C 0002C 0002C  2961+         XC    TJBMONI(WORD),TJBMONI .  CLEAR FIELD               20021
000E8E 94BF 2007      00007        2962+         NI    TJBSTAT2,HOLDOFF .       TURN OFF HOLD FLAG        20021
000E92 58F0 200C            0000C  2963+         L     X15,TJBRCB .             GET RCB ADDR          AH A46544
000000                             2964+         USING RCB,X15 .                SET UP ADDRESSABILITY AH A46544
000E96 94BF F015      00015        2965+         NI    RCBFLG,255-RCBFSO .      RESET FLAG            AH A46544
                                   2966+         DROP  X15 .                                          AH A46544
000E9A                             2967+LOGOFF   EQU   * .                                                20021
000E9A 9282 2006      00006        2968+         MVI   TJBSTAT,TJBDISC+TJBNJB . TURN ON TJB DISCONECT     20021
                                   2969+*                                        AND NO JOB FLAGS         20021
000E9E 9610 900C      0000C        2970+         OI    TSCVTFLG,TSCDISC .       TURN ON TSC DISCONECT FLG 20021
000EA2                             2971+CNTRELOG EQU   * .                                                20021
000EA2 9180 30E4      000E4        2972+         TM    CVTTSFLG,CVTTSRDY .      IS TS STILL ACTIVE        20021
000EA6 4780 60CA            00F04  2973+         BZ    RESTORE .                NO, BYPASS REMAINING      20021
                                   2974+*                                       TS PROCESSING             20021
               EXIT MODULE CONSTANTS                                                                           PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000EAA 58F0 9030            00030  2975+         L     XENTRY,TSCVTI01 .        ENTRY POINT OF TSIP       20021
                                   2976+*  BRANCH ENTRY TO TSIP TO LOG USER OFF                           20021
000EAE 1808                        2977+         LR    0,(XTJID) TJID INTO REG 0
000EB0 8900 0010            00010  2978+         SLL   0,16 ALIGN TJID FOR TSIP
000EB4 4300 6083            00EBD  2979+         IC    0,*+9 PICK UP ENTRY CODE
000EB8 47F0 6084            00EBE  2980+         B     *+6 AROUND ECODE ADCON
000EBC 001D                        2981+         DC    AL2(29)
000EBE 05EF                        2982+         BALR  14,15 TO TSIP
                                   2983+*                                                                 20021
                                   2984+*  BRANCH ENTRY TO POST TO POST TSC ECB                           20021
000EC0 1BAA                        2985+         SR    XCODE,XCODE .            ZERO REG                  20021
000EC2 41A0 0002            00002  2986+         LA    XCODE,TSCCODE .          CDE USED BY POST FOR ECB  20472
000EC6 58B0 9024            00024  2987+         L     XPECB,TSCVTECB .         ADDR ECB TABLE            20021
000000                             2988+         USING TSECB,XPECB .                                      20021
000ECA 41B0 B000            00000  2989+         LA    XPECB,TSCECB .           ADDR OF TSC ECB           20021
                                   2990+         DROP  XPECB .                                            20021
000ECE 58C0 9054            00054  2991+         L     XPTCB,TSCVTTSC .         ADDR TSC TCB              20021
000ED2 58F0 3098            00098  2992+         L     XPOST,CVT0PT01 .         ADDR OF BRANCH ENTRY POST 20021
000ED6 05EF                        2993+         BALR  X14,XPOST .              POST TSC ECB              20021
000ED8 58A0 200C            0000C  2994+         L     XRCB,TJBRCB .            ADDR OF RCB               20021
000000                             2995+         USING RCB,XRCB .                                         20021
000EDC 58A0 A000            00000  2996+         L     XRCT,RCBRCT .            ADDR OF RCT TCB           20021
                                   2997+         DROP  XRCB .                                             20021
000000                             2998+         USING TCB,XRCT .                                         20021
000EE0 1B88                        2999+         SR    XWORK,XWORK .            ZERO WORK REG             20021
000EE2 5080 A088            00088  3000+         ST    XWORK,TCBLTC .           ZERO LTC OF RCT TCB       20021
000EE6 47F0 60CA            00F04  3001+         B     RESTORE .                BRANCH TO RESTORE REGS    20021
                                   3002+         DROP  XRCT .                                             20021
000000                             3003+         USING TCB,XNXTCB .                                       20021
000EEA                             3004+NORMALTS EQU   * .                                                20021
000EEA 5940 7004            00004  3005+         C     XTCB,TJBXLAST .          IS THIS EOT FOR           20021
                                   3006+*                                       LAST TS TASK              20021
000EEE 4770 60CA            00F04  3007+         BNE   RESTORE .                NO, DO NOT UPDATE         20021
                                   3008+*                                       TJBXLAST POINTER          20021
000EF2 188A                        3009+         LR    XNXTCB,XFIRST .                                    20021
000EF4                             3010+SRCHTCB  EQU   * .                                                20021
000EF4 18A8                        3011+         LR    XFIRST,XNXTCB .          UPDTE TO LAST TCB CHECKED 20021
000EF6 5880 8074            00074  3012+         L     XNXTCB,TCBTCB .          ADR NXT TCB ON TS READY Q 20021
000EFA 1984                        3013+         CR    XNXTCB,XTCB .            IS THIS TCB EXITING       20021
000EFC 4770 60BA            00EF4  3014+         BNE   SRCHTCB .                NO, CONTINUE SEARCH       20021
                                   3015+*                                       OF TS READY               20021
000F00 50A0 7004            00004  3016+         ST    XFIRST,TJBXLAST .        UPDATE TJBX LAST POINTER  20021
                                   3017+         DROP  XNXTCB .                                           20021
000F04                             3018+RESTORE  EQU   * .                                                20021
000F04 980F 620E            01048  3019+         LM    X0,X15,SAVEEXIT . RESTORE REGS              @SA75035
000F08                             3020+NOTSO6A  EQU   * .                                                20021
000F08 5810 30A0            000A0  3021+         L     X1,CVTHEAD .             GET ADDR OF TOP TCB.
000F0C                             3022+EPTCBLP  DS    0H
000F0C 1514                        3023+         CLR   X1,XTCB .                IS THIS THE TCB AT EOT?
000F0E 4780 60E2            00F1C  3024+         BE    EPFND .                  BR IF YES.
000F12 1881                        3025+         LR    XWKB,X1 .                SAVE ADDR OF LAST TCB.
000F14 5810 1074            00074  3026+         L     X1,TCBTCB-TCB(0,X1) .    GET NEXT TCB ON READY QUEUE
000F18 47F0 60D2            00F0C  3027+         B     EPTCBLP
000F1C                             3028+EPFND    DS    0H
000F1C D203 8074 4074 00074 00074  3029+         MVC   TCBTCB-TCB(4,XWKB),TCBTCB .UPDATE TCB READY QUEUE.
               EXIT MODULE CONSTANTS                                                                           PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000F22 D703 4000 4000 00000 00000  3030+         XC    TCBRBP(4),TCBRBP .        ZERO RB POINTER SO RB    M3329
                                   3031+*                                          CANNOT BE PICKED UP AS M3329
                                   3032+*                                          VALID RB               M3329
000F28 07FE                        3033+         BR    XRETN .                  RETURN TO CALLER.
                                   3034+         DROP  XRBSE
          TAXE PURGE ROUTINE                                                                                   PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3036+         ENTRY IEAKJXP .                                          20021
000F2A                             3037+         DS    0H .                                               20021
000F2A                             3038+IEAKJXP  EQU   * .                                                20021
000F2A                             3039+TAXEPRG  EQU   * .                                                20021
000F2A 05F0                        3040+         BALR  X15,X0 .                                           20021
000F2C                             3041+         USING *,X15 .                                            20021
000000                             3042+         USING TCB,XTCB .                                         20021
000000                             3043+         USING TJB,XTJB .                                         20021
000000                             3044+         USING TJBX,XTJBX .                                       20021
000000                             3045+         USING CVTSECT,XCVT .                                     20021
000F2C 900F F11C            01048  3046+         STM   X0,X15,SAVEEXIT . SAVE REGS OF CALLER       @SA75035
                                   3047+         DROP  X15 .                                              20021
000F30 0560                        3048+         BALR  XPBASE,X0 .                                        20021
000F32                             3049+         USING *,XPBASE .                                         20021
000F32 5830 0010            00010  3050+         L     XCVT,CVTPTR .            ADDRESS OF CVT            20021
                                   3051+*                                       NOT PASSED ABEND          20021
000F36 58A0 615A            0108C  3052+         L     XGETTJB,TJBGETA . ADR OF RTN TO GET TJB ADR @SA75035
000F3A 05EA                        3053+         BALR  XRETURN,XGETTJB .        BRANCH TO GET TJB ADDR    20021
                                   3054+*        ADDRESS OF IQE FOR AN IRB WHICH INDICATES USER EXIT      20021
000F3C 5880 702C            0002C  3055+         L     XAIQE,TJBXAIQE .         ROUTINE BEING SCHEDULED   20021
000F40 1288                        3056+         LTR   XAIQE,XAIQE .            IQE ADDRESS NONZERO       20021
000F42 4780 6022            00F54  3057+         BZ    NOSCHED .                NO,BR AROUND PROCESSING   20021
                                   3058+*                                       FOR ATTN EXIT BEING SCHED 20021
000000                             3059+         USING IQESECT,XAIQE .                                    20021
000F46 5940 800C            0000C  3060+         C     XTCB,IQETCB .            IQE FOR THIS TCB          20021
000F4A 4770 6022            00F54  3061+         BNE   NOSCHED .                NO,BRANCH AROUND IQE PROC 20021
000F4E D703 702C 702C 0002C 0002C  3062+         XC    TJBXAIQE(WORD),TJBXAIQE .ZERO AIQE FIELD SINCE     20021
                                   3063+*                                       TAXE WILL BE FREED        20021
000F54                             3064+NOSCHED  EQU   * .                                                20021
000F54 9200 2004      00004        3065+         MVI   TJBATTN,ZEROATTN .       ZERO ATTENTION CNT IN TJB 20021
000F58 1BCC                        3066+         SR    XSTAX,XSTAX .            CLEAR REG FOR STAX COUNT  20021
000F5A 43C0 2005            00005  3067+         IC    XSTAX,TJBSTAX .          STAX COUNT FROM TJB       20021
000F5E 5890 7018            00018  3068+         L     XTAXE,TJBXTAXE .         ADDRESS FIRST TAXE ON QU  20021
000F62 41D0 7018            00018  3069+         LA    XPREV,TJBXTAXE .         ADDRESS LINK FLD FOR TAXE 20021
000F66 1299                        3070+         LTR   XTAXE,XTAXE .            ANY TAXES ON QUEUE        20021
000F68 4780 60A8            00FDA  3071+         BZ    COMPLETE .               NO-PURGE COMPLETE         20021
000F6C                             3072+TCBCK    EQU   * .                                                20021
000000                             3073+         USING TAXE,XTAXE .                                       M2952
000F6C 58A0 9074            00074  3074+         L     XWTAXE,TAXELNK .         ADDRESS OF NEXT TAXE      M2952
000F70 5940 9070            00070  3075+         C     XTCB,TAXETCB .           TAXE FOR THIS TCB         M2952
000F74 4780 604E            00F80  3076+         BE    TAXEFND .                YES-DEQUEUE THIS TAXE     M2952
000F78 41D0 9074            00074  3077+         LA    XPREV,TAXELNK .          ADDRESS OF LINK FIELD     M2952
000F7C 47F0 608C            00FBE  3078+         B     NXTAXECK .               BRANCH TO CHECK NEXT TAXE M2952
000F80                             3079+TAXEFND  EQU   * .                                                20021
                                   3080+         DROP  XTAXE .                                            M2952
000000                             3081+         USING RBSECT,XTAXE .                                     20021
000F80 9140 900B      0000B        3082+         TM    RBSTAB2,RBFACTV .        TAXE ACTIVE               20021
000F84 4780 605E            00F90  3083+         BZ    NOACTV .                 NO- TAXE NOT ON RB QUEUE  20021
000F88 9602 900B      0000B        3084+         OI    RBSTAB2,RBFDYN .         MARK RB TO BE FREED AT EX 20021
000F8C 47F0 607C            00FAE  3085+         B     TAXEDEQ .                BRANCH TO DEQUEUE TAXE    M2180
000F90                             3086+NOACTV   EQU   * .                                                20021
                                   3087+*                                                                 20021
                                   3088+*  BRANCH ENTRY TO FREEMAIN TO FREE P/P SAVE AREA                 20021
                                   3089+*                                                                 20021
000F90 5810 9000            00000  3090+         L     XWKTXP,RBPPSAV .         ADDRESS OF P/P SAVE AREA  20021
          TAXE PURGE ROUTINE                                                                                   PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000F94 4111 0000            00000  3091+         LA    XWKTXP,0(XWKTXP) .       CLEAR HIGH ORDER BYTE     M2952
000F98 1211                        3092+         LTR   XWKTXP,XWKTXP .          Q. IS THIS A RECURSION?   M2952
000F9A 4780 607C            00FAE  3093+         BZ    TAXEDEQ .                YES. SKIP FREEQUE PROC    M2952
000F9E D703 9000 9000 00000 00000  3094+         XC    RBPPSAV(4),RBPPSAV .     ZERO NOW. POSIBL RECURSN  M2180
000FA4 5800 615E            01090  3095+         L     X0,K72F250A . SUBPOOL NUMBER AND LENGTH @SA75035
000FA8 58E0 6156            01088  3096+         L     XRETN,AFREE . @ CONDITIONAL FREEMAIN    @SA75035
000FAC 05EE                        3097+         BALR  XRETN,XRETN . GOTO CONDITIONAL FREEMAIN @SA75035
                                   3098+         DROP  XTAXE .                                            M2180
000000                             3099+         USING TAXE,XTAXE .                                       M2180
000FAE                             3100+TAXEDEQ  EQU   * .                                                M2180
000FAE D203 D000 9074 00000 00074  3101+         MVC   ZERO(WORD,XPREV),TAXELNK .DEQUEUE TAXE             20021
000FB4 9120 9080      00080        3102+         TM    TAXESTAT,TAXEFREQ .      IS TAXE AVAILABLE         20021
000FB8 4710 608C            00FBE  3103+         BO    SKPDECR .                NO-SKIP DECREMNT STAX CNT 20021
000FBC 06C0                        3104+         BCTR  XSTAX,ZERO .             DECREMENT STAX COUNT BY 1 20021
000FBE                             3105+SKPDECR  EQU   * .                                                20021
                                   3106+         DROP  XTAXE .                                            20021
000FBE                             3107+NXTAXECK EQU   * .                                                M2952
000FBE 12AA                        3108+         LTR   XWTAXE,XWTAXE .          ANY MORE TAXES            20021
000FC0 4780 6098            00FCA  3109+         BZ    FINISH .                 NO, ALL TAXES             20021
                                   3110+*                                       THIS TASK GONE            20021
000FC4 189A                        3111+         LR    XTAXE,XWTAXE .           NXT TAXE NOW CURRENT TAXE 20021
000FC6 47F0 603A            00F6C  3112+         B     TCBCK .                  CHECK OUT NEXT TAXE       20021
000FCA                             3113+FINISH   EQU   * .                                                20021
                                   3114+*                                                                 20021
                                   3115+*  STATUS MACRO TO START ANY STOPPED SUBTASKS                     20021
                                   3116+*                                                                 20021
000FCA 4100 0007            00007  3117+         LA    X0,7 .                   PUT START CODE IN RG0 AH  M1545
000FCE 1B11                        3118+         SR    X1,X1 .                  ALL TASK CHANGE IND   AH  M1545
000FD0 58F0 6162            01094  3119+         L     XSTATUS,ENTRYSTA . GET ENTRY TO SVC 79       @SA75035
000FD4 05EF                        3120+         BALR  XRETN,XSTATUS .          TO SVC 79             AH  M1545
000FD6 42C0 2005            00005  3121+         STC   XSTAX,TJBSTAX .          UPDTE AVAILABLE STAX CNT  20021
000FDA                             3122+COMPLETE EQU   * .                                                20021
000FDA 980F 6116            01048  3123+         LM    X0,X15,SAVEEXIT . RESTORE REGS              @SA75035
                                   3124+         DROP  XPBASE .                                           20021
000FDE 07FE                        3125+         BR    XRETURN .                RETURN TO CALLER          20021
                     ATTENTION IRB PURGE                                                                       PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000FE0                             3127+ETAER    EQU   * .                                                20021
000FE0 9180 4094      00094        3128+         TM    TCBTSFLG,TCBTSTSK .      IS THIS A TIME-SHARING TSK20021
000FE4 078E                        3129+         BCR   8,XRETN .                NO, RETURN TO MAINLINE EOT20021
000FE6 0560                        3130+         BALR  XTMBSE,0 .                                         20021
000FE8                             3131+         USING *,XTMBSE .                                         20021
000FE8 908B 6050            01038  3132+         STM   XWK,X11,DEFRSAVE .       SAVE SOME REGISTERS       20021
000FEC 5830 0010            00010  3133+         L     XCVT,CVTPTR .            GET CVT ADDRESS           20021
000FF0 5880 3090            00090  3134+         L     XWK,CVTIERLC .           GET ADDRESS RQE QUEUE     20021
000FF4 4188 0006            00006  3135+         LA    XWK,IQEQUE(XWK) .        INCREMENT TO IQE QUEUE    20021
000FF8 18B8                        3136+         LR    X11,XWK .                SAVE ADDR OF BEGIN OF Q   20021
000FFA                             3137+DEFERNO2 EQU   * 20021
000FFA 1898                        3138+         LR    XEN02,XWK .              SAVE IQE PTR              20021
000FFC 5889 0000            00000  3139+         L     XWK,IQELINK(XEN02) .     GET CURRENT IQE ADDRESS   20021
001000 1288                        3140+         LTR   XWK,XWK .                TEST FOR END OF QUEUE     20021
001002 4740 604A            01032  3141+         BM    DEFERNO3 .               BR IF END OF IQE QUEUE    20021
001006 58A8 000C            0000C  3142+         L     X10,IQETCBA(XWK) .       GET TCB ADDR FROM IQE     20021
00100A 41AA 0000            00000  3143+         LA    X10,0(X10) .             CLEAR HIGH ORDER BYTE     20021
00100E 19A4                        3144+         CR    X10,XTCB .               IQE FOR THIS TCB          20021
001010 4770 6012            00FFA  3145+         BNE   DEFERNO2 .               NO, GET NEXT IQE          20021
001014 58A8 0008            00008  3146+         L     X10,IQEIRBA(XWK) .       GET IRB ADDR FROM IQE     20021
000000                             3147+         USING RBSECT,X10 .                                       20021
001018 9120 A00B      0000B        3148+         TM    RBSTAB2,RBATTN .         IS IRB AN ATTENTION IRB   20021
00101C 4780 6012            00FFA  3149+         BZ    DEFERNO2 .               NO, GET NEXT IQE          20021
                                   3150+         DROP  X10 .                                              20021
001020 D203 9000 8000 00000 00000  3151+         MVC   IQELINK(4,XEN02),IQELINK(XWK) . DEQUEUE IQE        20021
001026 558B 0004            00004  3152+         CL    XWK,4(X11) .             LAST IQE DEQUEUED         20021
00102A 4770 604A            01032  3153+         BNE   DEFERNO3 .               BR IF NOT                 20021
00102E 509B 0004            00004  3154+         ST    XEN02,4(X11) SET PTR TO LAST IQE       20021
001032                             3155+DEFERNO3 EQU   * 20021
001032 988B 6050            01038  3156+         LM    XWK,X11,DEFRSAVE .       RESTORE SAVED REGISTERS   20021
001036 07FE                        3157+         BR    XRETN .                  RETURN TO CALLER          20021
001038                             3158+DEFRSAVE DS    4F .               SAVE AREA FOR IQE DEQUEUE       20021
                                   3159+         DROP  XTMBSE .                                           20021
                                   3160+         EJECT  ,                                               @SA7503X
                     ATTENTION IRB PURGE                                                                       PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3161+*                                                              @SA75035
                                   3162+** CONSTANTS REQUIRED BY ABOVE TSO ROUTINES                    @SA75035
                                   3163+*                                                              @SA75035
001048 0000000000000000            3164+SAVEEXIT DC    16A(0) REGISTER SAVEAREA           @SA75035
001088 00000C40                    3165+AFREE    DC    A(FREEMAIN) @ CONDITIONAL FREEMAIN      @SA75035
00108C 000004EE                    3166+TJBGETA  DC    A(GETTJB) @ GET TJB ADDR RTN          @SA75035
001090 FA000048                    3167+K72F250A DC    X'FA000048' FREE 72 BYTES SP0           @SA75035
001094 00000000                    3168+ENTRYSTA DC    V(IGC07902) @ SETTASK RTN               @SA75035
                    EXIT MODULE COMMENTARY                                                                     PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3170+*-ROUTINE NAME- EXIT

                                   3172+*-FUNCTIONS-
                                   3173+*            THIS CODE IS ENTERED AS THE RESULT OF ISSUING AN SVC 3
                                   3174+*         INSTRUCTION. THE FUNCTION OF EXIT CODE IS TO RELEASE
                                   3175+*         CERTAIN RESOURCES NO LONGER NEEDED DUE TO THE COMPLETION OF
                                   3176+*         A PARTICULAR PROGRAM LEVEL (RB LEVEL) ON A PARTICULAR TASK.
                                   3177+*         IN ADDITION, EXIT PREPARES THE SYSTEM ENVIRONMENT FOR
                                   3178+*         THE NEXT PROGRAM LEVEL OF THE TASK.
                                   3179+*            SPECIFIC HANDLING IS BASED UPON THE TYPE OF RB EXITING
                                   3180+*         OR OTHER DISTINGUISHING CONDITION  AS FOLLOWS-
                                   3181+*         1. IF EXIT IS FROM A PRB, REGISTERS 0-15 (IN IEASCSAV) ARE
                                   3182+*            SAVED IN THE TCB. IF THE PRB IS NOT THE LAST PRB ON THE
                                   3183+*            TCB, CDEXIT IS ENTERED. WHEN CDEXIT RETURNS CONTROL, THE
                                   3184+*            FINAL STAGE (SEE ITEM NO.5) IS PERFORMED. IF EXIT IS FROM
                                   3185+*            THE LAST PRB ON THE TCB, EOT IS ENTERED.
                                   3186+*         2. IF EXIT IS FROM AN SVRB, THE TRANSIENT AREA HANDLER IS
                                   3187+*            ENTERED TO PERFORM SVRB EXITING FUNCTIONS. WHEN CONTROL IS
                                   3188+*            RETURNED BY THE T.A.H., THE REGISTERS THAT HAD BEEN SAVED
                                   3189+*            IN THE SVRB (2-14) AND REGISTERS 0,1 AND 15 PASSED BACK BY
                                   3190+*            THE SVC ROUTINE WILL BE IN THE TCB. THE FINAL STAGE OF
                                   3191+*            EXIT (SEE ITEM NO.5) IS PERFORMED.
                                   3192+*         3. IF EXIT IS FROM AN IRB, THE IQE IS RETURNED TO THE
                                   3193+*            'NEXT AVAILABLE' POINTER AND IF ANY ADDITIONAL IQE'S ARE
                                   3194+*            QUEUED ON THE IRB, PREPARATION IS MADE TO REENTER THE
                                   3195+*            ASYNCHRONOUS ROUTINE AND THE DISPATCHER ENTERED. IF NO
                                   3196+*            ADDITIONAL REQUESTS ARE PRESENT, REGISTERS ARE MOVED FROM
                                   3197+*            THE IRB TO THE TCB AND THE FINAL STAGE OF EXIT (SEE ITEM
                                   3198+*            NO.5) IS PERFORMED.
                                   3199+*         4. IF EXIT IS FROM AN SIRB, THE SIRB IS DEQUEUED FROM THE
                                   3200+*            SYSTEM ERROR TCB, THE RB ACTIVE BIT TURNED OFF AND THE
                                   3201+*            DISPATCHER ENTERED.
                                   3202+*         5. FINAL STAGE OF EXIT-
                                   3203+*            IN THIS STAGE OF EXIT, THE EXITING RB IS DEQUEUED FROM
                                   3204+*            ITS TCB'S RB QUEUE AND FREED IF FLAGGED DYNAMIC. A CHECK
                                   3205+*            IS MADE TO DETERMINE WHETHER THE PREVIOUS RB LEVEL IS
                                   3206+*            WAITING AND IF IT IS, A TASK SWITCH IS PERFORMED BY
                                   3207+*            SETTING 'NEW' = 0. AN ADDITIONAL CHECK IS MADE ON EXITING
                                   3208+*            IRB'S. IF THE IRB USE COUNT IS NOT = 0, THE RB IS NOT
                                   3209+*            FREED EVEN THOUGH THE DYNAMIC BIT IS ON. PROBLEM PROGRAM
                                   3210+*            SAVE AREAS ASSOCIATED WITH IRB'S ARE FREED ALONG WITH THE
                                   3211+*            IRB'S.

                                   3213+*-ENTRY POINT NAMES-
                                   3214+*         1. IGC003 (SVC EXIT)

                                   3216+*-CONTAINED IN MODULE- IEAQED00

                                   3218+*-ATTRIBUTES-
                                   3219+*         .TYPE 1 SVC.
                                   3220+*         .SUPERVISOR STATE AND KEY.
                                   3221+*         .REENTRANT
                                   3222+*         .SERIALLY REUSABLE.

                                   3224+*-APPLICABILITY- OPTION 4 SYSTEMS.
                    EXIT MODULE COMMENTARY                                                                     PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3226+*-EXTERNAL REFERENCES
                                   3227+*         .IEAQTR01- SVRB EXIT TO PROCESS RETURNING TYPE 2,3,4 SVC'S.
                                   3228+*         .IEAQTR02- ENTRY PT. TO T/A REFRESH.
                                   3229+*         .IEASCSAV- SVC REG SAVE AREA.
                                   3230+*         .FMBRANCH- BRANCH ENTRY POINT TO FREEMAIN.
                                   3231+*         .INT025-   IOS INTERFACE TO RETURN 16*'S.

                                   3233+*-SVC USAGE
                                   3234+*         .FREEMAIN (BRANCH ENTRY) SUB POOLS 250, 253 AND 255.

                                   3236+*-INPUT- NONE

                                   3238+*-OUTPUT- NONE

                                   3240+*-ENTRY POINTS-
                                   3241+*         1. IGC003- THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IN
                                   3242+*                    SUPERVISOR STATE WITH THE SUPERVISOR PROTECTION
                                   3243+*                    KEY.
                                   3244+*                    REGISTERS-
                                   3245+*                    0,1,15 ARE SAME AS WHEN THE ROUTINE EXITED.
                                   3246+*                    3-     CVT ADDRESS.
                                   3247+*                    4-     CURRENT TCB ADDRESS.
                                   3248+*                    5-     CURRENT RB ADDRESS.
                                   3249+*                    14-    RETURN ADDRESS (NOTE USED BY EXIT. RETURN
                                   3250+*                           IS MADE TO THE DISPATCHER.
                                   3251+*                    2,6-13 ARE IRRELEVANT.
                                   3252+*                    (NOTE- ALL REGISTERS FROM EXITING CODE ARE SAVED
                                   3253+*                     IN LOCATION 'IEASCSAV' IN LOW CORE).

                                   3255+*-EXIT POINTS-
                                   3256+*         .EOT- SEE INTERFACES BELOW.
                                   3257+*         .RETURN TO DISPATCHER AFTER DEQUEUING RB.
                                   3258+*           PSW- SUPV STATE, SUPV KEY, DISABLED FOR SYSTEM INTERRUPTS.
                                   3259+*           REGS- IRRELEVANT. CURRENT REGS FOR EXITING TASK ARE STORED
                                   3260+*           IN ITS TCB.
                                   3261+*         .RETURN TO DISPATCHER AFTER RESCHEDULING IRB.
                                   3262+*           PSW- SUPV STATE, SUPV KEY, DISABLED FOR SYSTEM INTERRUPTS.
                                   3263+*           REGS- IRRELEVANT. REENTRY REGS FOR ASYNCH RTN. ARE IN TCB.

                                   3265+*-ERROR EXIT POINTS- NONE

                                   3267+*-TABLES AND CONTROL BLOCKS REFERENCED.
                                   3268+*         .CVT-
                                   3269+*           CVT0DS   (NOT ALTERED)
                                   3270+*           CVTEXIT  (NOT ALTERED)
                                   3271+*           CVTTCBP  (NOT ALTERED)
                                   3272+*         .TCB-
                                   3273+*           TCBRBP   (ALTERED)
                                   3274+*           TCBPIE   (NOT ALTERED)
                                   3275+*           TCBGRS   (ALTERED)
                                   3276+*         .RB
                                   3277+*           RBPPSAV  (NOT ALTERED)
                                   3278+*           RBSIZE   (NOT ALTERED)
                                   3279+*           RBSTAB   (ALTERED)
                                   3280+*           RBEP     (NOT ALTERED)
                    EXIT MODULE COMMENTARY                                                                     PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3281+*           RBOPSW   (ALTERED)
                                   3282+*           RBIQE    (ALTERED)
                                   3283+*           RBWCF    (NOT ALTERED)
                                   3284+*           RBLINK   (ALTERED)
                                   3285+*           RBGRSAV  (NOT ALTERED)
                                   3286+*         .IQE- (16*)
                                   3287+*           IQELNK   (ALTERED)
                                   3288+*           IQEPARM  (NOT ALTERED)
                                   3289+*           RQEIOB   (NOT ALTERED)
                                   3290+*           RQEDEB   (NOT ALTERED)
                                   3291+*         .PIE-
                                   3292+*           PIEPSW   (NOT ALTERED)
                                   3293+*           (1ST TIME LOGIC SWITCH) (ALTERED)

                                   3295+*-LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED- NONE

                                   3297+*-RESTRICTIONS ON USE OF ROUTINE- NONE

                                   3299+*-NOTES- NONE

                                   3301+*-INTERFACES-
                                   3302+*         .EOT-  BRANCH TO END OF TASK WHEN CONTROL RETURNS FROM LAST
                                   3303+*                RB LEVEL ON TASK. CURRENT SYSTEM EXPECTS EOT CONDITION
                                   3304+*                TO OCCUR UPON EXIT FROM A PRB ONLY. CONTROL DOES NOT
                                   3305+*                RETURN FROM EOT PROCESSING TO EXIT.
                                   3306+*           PSW- DISABLED, SUPV STATE, SUPV KEY.
                                   3307+*           REGISTERS-
                                   3308+*                2-           ADDRESSABILITY (EDBSE)
                                   3309+*                3-           CVT ADDRESS
                                   3310+*                4-           CURRENT TCB ADDRESS
                                   3311+*                5-           CURRENT RB ADDRESS
                                   3312+*                14-          RETURN REG (ADDRESS OF TYPE 1 EXIT)
                                   3313+*                0,1,6-13,15- IRRELEVANT.
                                   3314+*         .SVRB EXIT- BR TO TRANSIT AREA HANDLER CODE TO RESTORE REGS
                                   3315+*                FROM SVRB AND PERFORM EXIT HANDLING FOR TYPE 3 AND 4
                                   3316+*                SVC ROUTINES. CONTROL RETURNS TO EXIT CODE.
                                   3317+*           PSW- DISABLED, SUPV STATE, SUPV KEY.
                                   3318+*           REGISTERS-
                                   3319+*                0,1,15-  PASS-BACK REGS FROM SVC RTN.
                                   3320+*                3-5-     ENVIRONMENTAL REGS.
                                   3321+*                2-11,13- IRRELEVANT.
                                   3322+*                12-      ADDRESS OF TAH RTN BEING ENTERED.
                                   3323+*                14-      RETURN ADDRESS.
                                   3324+*           REGISTERS CONSIDERED TRANSPARENT OVER INTERFACE-
                                   3325+*                3-5
                                   3326+*         .IEAQTR02- BR TO T/A REFRESH FUNCTION. CONTROL IS GIVEN TO
                                   3327+*          DISPATCHER AFTER REFRESH.
                                   3328+*           PSW- DISABLED, SUPV STATE AND KEY.
                                   3329+*           REGISTERS-
                                   3330+*                0-2,5-11,13-15  IRRELEVENT.
                                   3331+*                3               CVT ADDR.
                                   3332+*                4               CURRENT TCB ADDR.
                                   3333+*                12              ADDR OF IEAQTR02.
                                   3334+*         .CDEXIT- BR TO CONTENTS DIRECTORY EXIT CODE. CONTROL IS
                                   3335+*                RETURNED VIA RETURN REG.
                    EXIT MODULE COMMENTARY                                                                     PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3336+*           PSW- DISABLED, SUPV STATE, SUPV KEY.
                                   3337+*           REGISTERS-
                                   3338+*                3-5        ENVIRONMENTAL REGS.
                                   3339+*                0-2,6-13-  IRRELEVANT
                                   3340+*                14-        RETURN REG.
                                   3341+*           REGISTERS CONSIDERED TRANSPARENT OVER INTERFACE-
                                   3342+*                3-5
                                   3343+*         .BRANCH ENTRIES (2) TO FREEMAIN (R FORM)- TO FREE PP SAVE
                                   3344+*                AREA AND RB. CONTROL IS RETURNED VIA RETURN REG.
                                   3345+*           PSW- DISABLED, SUPV STATE, SUPV KEY.
                                   3346+*           REGISTERS-
                                   3347+*                0,1,3-5,14-  STD SVC INTERFACE VALUES.
                                   3348+*                2,6-13,15-   IRRELEVANT TO GETMAIN.
                                   3349+*           REGISTERS CONSIDERED TRANSPARENT OVER INTERFACE-
                                   3350+*                2-7,9-13
                                   3351+*         .INT025 (IOS)- BR TO IOS RTN TO RETURN 16*'S THAT WERE USED
                                   3352+*                TO SCHEDULE ASYNCHRONOUS EXIT RTNS. NOTE AN EXCEPTION
                                   3353+*                TO THIS FOR 16* SCHEDULING OF THE SIRB. IN THIS
                                   3354+*                INSTANCE THE 16* IS RETURNED BY THE ERROR RTN OR
                                   3355+*                PURGE (IN CASE OF AN ABEND)
                                   3356+*           PSW- DISABLED, SUPV STATE, SUPV KEY.
                                   3357+*           REGISTERS-
                                   3358+*                1 -            ADDR OF 16* BEING RETURNED.
                                   3359+*                2 -            ADDR OF IOB FROM 16*.
                                   3360+*                3 -            ADDR OF DEB FROM 16*.
                                   3361+*                5 -            IOS BASE VALUE.
                                   3362+*                8 -            RETURN REG
                                   3363+*                9 -            ENTRY POINT ADDR (INT025)
                                   3364+*                0,4,6,7,10-15- IRRELEVANT TO IOS.
                                   3365+*           REGISTERS CONSIDERED TRANSPARENT OVER INTERFACE-
                                   3366+*                0,4,6
                    CONTENTS DIRECTORY EXIT FUNCTIONS                                                          PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3368+*-ROUTINE NAMES- CDEXIT (CONTENTS DIRECTORY EXIT)
                                   3369+*                CDHKEEP (CONTENTS DIRECTORY HOUSEKEEPING)
                                   3370+*                CDDESTRY (CONTENTS DIRECTORY FREE CONTROL BLOCKS)

                                   3372+*-FUNCTIONS-
                                   3373+*        -CDEXIT-
                                   3374+*           CDEXIT DECREMENT THE USE/RESPONSIBILIY COUNT IN THE MAJOR
                                   3375+*           CDE OF THE EXITING MODULE AND PLACE THE RBPGMQ FIELD
                                   3376+*           CONTENTS OF THE EXITING RB INTO THE MAJOR CDE RB POINTER
                                   3377+*           FIELD. IF THERE IS AN ADDITIONAL REQUEST FOR THE USE OF
                                   3378+*           THE MODULE, THE QUEUED, WAITING RB IS MADE READY AND ITS
                                   3379+*           PSW IS ALTERED TO ENTER CONTENTS SUPERVISOR CODE AT
                                   3380+*           LOCATION 'CDEPILOG'. REENTRY INTO THE MODULE IS THUS
                                   3381+*           IMPLEMENTED WHEN THE READIED RB GETS CONTROL. THE TASK
                                   3382+*           SWITCH ROUTINE IS INVOKED TO SWITCH CONTROL TO THE NEWLY
                                   3383+*           READIED TASK IF IT OF HIGHER PRIORITY THEN THE CURRENT
                                   3384+*           TASK. IF THERE ARE NO ADDITIONAL REQUESTS FOR THE MODULE,
                                   3385+*           'CDHKEEP' IS ENTERED.
                                   3386+*        -CDHKEEP-
                                   3387+*           THIS ROUTINE CHECKS WHETHER THE EXITING MODULE SHOULD BE
                                   3388+*           FREED FROM OR KEPT IN THE SYSTEM. IF THE USE/RESPONSIBILITY
                                   3389+*           COUNT IS NOT ZERO THE MODULE IS KEPT. IF THE COUNT IS ZERO
                                   3390+*           AND THE MODULE IS NOT REUSABLE, 'CDDESTRY' IS ENTERED TO
                                   3391+*           FREE THE MODULE. IF THE MODULE IS EITHER REENTRANT OR
                                   3392+*           SERIALLY REUSABLE, THE RELEASE FLAG IS SET IN THE MAJOR
                                   3393+*           CDE OF THE MODULE AND THE PURGE FLAG SET IN THE QUEUE
                                   3394+*           ORIGIN FIELD OF THE APPROPRIATE CDE QUEUE. THUS, IF IT IS
                                   3395+*           NECESSARY TO RELEASE STORAGE SPACE, OTHER SYSTEM FUNCTIONS
                                   3396+*           WILL BE ABLE TO FREE THE CORE OCCUPIED BY THE UNUSED
                                   3397+*           MODULES AND CONTROL ELEMENTS.
                                   3398+*        -CDDESTRY-
                                   3399+*           THIS ROUTINE FREES THE CORE WHICH THE MODULE OCCUPIES
                                   3400+*           USING THE EXTENT LIST AS THE INPUT PARAMETER LIST TO
                                   3401+*           FREEMAIN. THE CDE'S, BOTH THE MAJOR AND ALL MINORS THAT
                                   3402+*           MAY FOLLOW, ARE DEQUEUED FROM THE JPAQ. THE EXTENT LIST
                                   3403+*           AND THE CDE'S ARE THEN FREED.

                                   3405+*-ENTRY POINT NAMES-
                                   3406+*        .CDEXIT  - ENTRY TO CONTENTS SUPV EXIT PROCESSING.
                                   3407+*        .CDHKEEP - ENTRY TO C/S EXIT HOUSEKEEPING PROCESSING.
                                   3408+*        .CDDESTRY- ENTRY TO C/S EXIT PROCESSING TO FREE CORE USED BY
                                   3409+*                   THE EXITING MODULE AND IT CONTROL BLOCK ELEMENTS.

                                   3411+*-CONTAINED IN MODULE- IEAQED00

                                   3413+*-ATTRIBUTES-
                                   3414+*        RESIDENT, SUPERVISOR STATE, DISSABLED, REENTRANT.

                                   3416+*-APPLICABILITY- OPTION 4 SYSTEMS.

                                   3418+*-EXTERNAL REFERENCES-
                                   3419+*        .IEAQCS03 (CDEPILOG) - LAST PHASE OF LINK PROCESSING
                                   3420+*                               PREPARATIVE FOR ENTERING A MODULE.
                                   3421+*        .IEA0DS02 - TASK SWITCH ROUTINE.
                                   3422+*        .FMBRANCH - BRANCH ENTRY TO MSS FOR SVC 5.
                    CONTENTS DIRECTORY EXIT FUNCTIONS                                                          PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3423+*        .RMBRANCH - BRANCH ENTRY TO MSS FOR SVC 10.

                                   3425+*-SVC USAGE-
                                   3426+*        .FREEMAIN (BRANCH ENTRY) SUB-POOLS 251,252,255.

                                   3428+*-INPUT-
                                   3429+*        NONE EXPLICITLY (SEE ENTRY POINTS)

                                   3431+*-OUTPUT- NONE

                                   3433+*-ENTRY POINTS-
                                   3434+*        .CDEXIT - THE PSW MUST BE DISABLED, IN SUPERVISOR STATE AND
                                   3435+*                  HAVE THE SUPERVISOR PROTECTION KEY.
                                   3436+*              REGISTERS- (INPUT)
                                   3437+*                  3 - ADDRESS OF CVT
                                   3438+*                  4 - ADDRESS OF TCB OF EXITING RB.
                                   3439+*                  5 - ADDRESS OF EXITING RB.
                                   3440+*                  14- RETURN ADDRESS TO CALLER.
                                   3441+*        .CDHKEEP - PSW SAME AS CDEXIT.
                                   3442+*              REGISTERS
                                   3443+*                  3 - CVT ADDR
                                   3444+*                  4 - ADDR OF TCB OF SUBJECT RB.
                                   3445+*                  5 - ADDR OF SUBJECT RB.
                                   3446+*                  11- ADDR OF SUBJECT MAJOR CDE.
                                   3447+*                  13- RETURN ADDR.
                                   3448+*        .CDDESTRY - PSW SAME AS CDEXIT.
                                   3449+*              REGISTERS
                                   3450+*                  3 - CVT ADDR
                                   3451+*                  4 - ADDR OF TCB OF SUBJECT RB.
                                   3452+*                  5 - ADDR OF SUBJECT RB
                                   3453+*                  11- ADDR OF SUBJECT MAJOR CDE.
                                   3454+*                  12- RETURN ADDR.

                                   3456+*-EXIT POINTS- (SEE INTERFACES)
                                   3457+*        .RETURN TO CALLER VIA RETURN REGISTERS

                                   3459+*-ERROR EXIT POINTS- NONE

                                   3461+*-TABLES AND CONTROL BLOCKS REFERENCED-
                                   3462+*        .TCB-
                                   3463+*          TCBJSTCB- NOT ALTERED
                                   3464+*          TCBJPQ  - ALTERED
                                   3465+*        .RB
                                   3466+*          RBCDE   - NOT ALTERED
                                   3467+*          RBOPSW  - ALTERED
                                   3468+*          RBWCF   - ALTERED
                                   3469+*          RBLINK  - NOT ALTERED
                                   3470+*        .CDE
                                   3471+*          CDATTR  - ALTERED
                                   3472+*          CDCHAIN - ALTERED
                                   3473+*          CDRBP   - ALTERED
                                   3474+*          CDXLMJP - NOT ALTERED
                                   3475+*        .EXTENT LIST - FREED

                                   3477+*-LIST ORIGINS, TABLES, AND CONTROL BLOCKS INCLUDED - NONE.
                    CONTENTS DIRECTORY EXIT FUNCTIONS                                                          PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3479+*-NOTES- NONE

                                   3481+*-INTERFACES-
                                   3482+*        .CDEXIT
                                   3483+*          PSW- DISABLED, SUPV STATE AND KEY.
                                   3484+*          INPUT REGS-
                                   3485+*              4 - ADDRESS OF TCB FOR SUBJECT RB.
                                   3486+*              5 - SUBJECT RB ADDR.
                                   3487+*              14- RETURN ADDR.
                                   3488+*              0,1,6-13,15- IRRELEVANT
                                   3489+*          TRANSPARENT REGS-
                                   3490+*              3-6,9
                                   3491+*        .CDHKEEP
                                   3492+*          PSW- DISABLED, SUPV STATE AND KEY.
                                   3493+*          INPUT REGS-
                                   3494+*              11- ADDR OF SUBJECT CDE.
                                   3495+*              13- RETURN ADDR.
                                   3496+*          TRANSPARENT REGS-
                                   3497+*              3-7,9,13
                                   3498+*        .CDDESTRY-
                                   3499+*          PSW- DISABLED, SUPV STATE AND KEY.
                                   3500+*          INPUT REGS-
                                   3501+*              2 - BASE VALUE OF A(CDHKEEP+2)
                                   3502+*              4 - ADDR OF TCB FOR SUBJECT TASK.
                                   3503+*              11- ADDR OF SUBJECT CDE.
                                   3504+*              12- RETURN ADDR.
                                   3505+*          TRANSPARENT REGS-
                                   3506+*              2-7,9,13
                    EOT COMMENTARY                                                                             PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3508+*-ROUTINE NAME- END OF TASK (EOT)

                                   3510+*-FUNCTIONS-
                                   3511+*              THIS CODE IS ENTERED WHENEVER CONTROL IS RETURNED FROM
                                   3512+*        THE HIGHEST LEVEL (CHRONOLOGICALLY OLDEST) RB. EOT PROCESSING
                                   3513+*        CONCERNS THE RELEASING OF TASK ACQUIRED RESOURCES AND THE
                                   3514+*        PURGING OF TASK RELATED CONTROL BLOCKS AND QUEUES. IN THE
                                   3515+*        FOLLOWING SECTION, THE VARIOUS FUNCTIONAL COMPONENTS OF EOT
                                   3516+*        PROCESSING ARE DESCRIBED.

                                   3518+*        -EOT MAIN LINE-
                                   3519+*        1. TESTS FOR INCOMPLETE DESCENDENTS AND ABENDS IF FOUND.
                                   3520+*        2. STORES COMPLETION CODE IN THE TCB FROM REGISTER 15.
                                   3521+*        3. FREES THE PIE IF PRESENT.
                                   3522+*        4. INTERFACES WITH CODE TO PURGE UNEXPIRED TIME INTERVALS.
                                   3523+*        5. TESTS FOR UNRELEASED ENQUEUED RESOURCES AND ABENDS IF FOUND
                                   3524+*        6. INTERFACES WITH WTO PURGE CODE.
                                   3525+*        7. INTERFACES WITH CODE TO CLOSE OPENED DATA SETS.
                                   3526+*        7A. INTERFACES WITH GRAPHICS EOT ROUTINE
                                   3527+*        8. INTERFACES WITH CDEXIT CODE.
                                   3528+*        9. INTERFACES WITH CODE TO RELEASE LOADED PROGRAMS.
                                   3529+*        10.INTERFACES WITH CODE TO RELEASE MAIN STORAGE.
                                   3530+*        11.SETS COMPLETION FLAGS.
                                   3531+*        12.SCHEDULES ETXR ASYNCHRONOUS EXIT ROUTINES.
                                   3532+*          UPDATES THE TIME-SLICE CONTROL ELEMENT  (TSCE), IF THE
                                   3533+*          TIME-SLICE BIT IS SET IN THE TCB.
                                   3534+*        13.REMOVES TCB FROM THE TCB READY QUEUE.
                                   3535+*        14.POSTS AN ECB IF PRESENT.
                                   3536+*        15.REMOVES TCB FROM FAMILY QUEUE AND FREES TCB IF NEITHER AN
                                   3537+*           ECB NOR ETXR PRESENT.
                                   3538+*        16.ENSURES A TASK SWITCH SET UP.
                                   3539+*        17.FREE RB CORE.
                                   3540+*        18.ENTERS THE DISPATCHER.

                                   3542+*        -WTOR REPLY PURGE ROUTINE-
                                   3543+*           THIS ROUNTINE CLEANS UP THE COMMUN. TASK QUEUES RELATED TO
                                   3544+*           THE ENDING TASK
                                   3545+*        -TIMER PURGE ROUTINE-
                                   3546+*           IF A TIMER INTERVAL IS UNEXPIRED FOR THE ENDING TASK, THIS
                                   3547+*           ROUTINE CANCELS THE INTERVAL REQUEST AND FREES THE TQE AND
                                   3548+*           PP REG SAVE AREA ASSOCIATED WITH THE REQUEST.

                                   3550+*        -CLOSE DATA SETS ROUTINE-
                                   3551+*           IF A TASK COMPLETES WITH UNCLOSED DATA SETS, THIS ROUTINE
                                   3552+*           ISSUES A 'CLOSE' FOR EACH UNCLOSED DATA SET.

                                   3554+*GRAPHICS EOT ROUTINE - IFFGRTTR
                                   3555+*AT SYSGEN TIME, IF GRAPHICS IS TO BE INCLUDED IN THE SYSTEM,
                                   3556+*A GRAPHICS MODULE WILL BE LINK EDITED INTO THE NUCLEUS. TO
                                   3557+*PERFORM GRAPHICS EOT CLEANUP.  BECAUSE OF THE POSSIBILITY OF A
                                   3558+*RECURSION THRU ABEND, THE GRAPHICS EOT ROUTINE TESTS IF ABEND
                                   3559+*IS IN PROCESS BEFORE ATTEMPTING TO FREE SP 253 CORE.  ABEND WILL
                                   3560+*HAVE FREED SP 253 BEFORE EXITING.  HENCE ANY ATTEMPT BY GRAPHICS
                                   3561+* TO FREE SP 253 CORE WHILE A TASK IS ABENDING WILL CAUSE A
                                   3562+*RECURSION THRU ABEND.
                    EOT COMMENTARY                                                                             PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3563+*
                                   3564+*  IF GRAPHICS IS NOT INCLUDED IN THE SYSTEM, A CSECT WILL
                                   3565+*HAVE BEEN LINK EDITED TO THE NUCLEUS TO RETURN IMMEDIATELY
                                   3566+*TO EOT MAINLINE.
                                   3567+*
                                   3568+*
                                   3569+*        -CDEXIT-
                                   3570+*           THIS ROUTINE PERFORMS CONTENTS DIRECTORY EXIT FUNCTIONS FOR
                                   3571+*           THE LAST PRB ON THE ENDING TASK.

                                   3573+*        -RELEASE LOADED PROGRAMS ROUNTINE-
                                   3574+*           THIS CODE FREES LOAD LIST ELEMENTS (LLE'S) FOR THE
                                   3575+*           COMPLETED TASK (FOUND ON TCBLLS FIELD) AND REDUCES THE
                                   3576+*           USE/RESPONSIBILITY COUNT IN THE CDE RELATED TO EACH LLE.
                                   3577+*           AN INTERFACE IS MADE WITH 'CDHKEEP' TO MAINTAIN THE
                                   3578+*           CONTENTS DIR. QUEUES PROPERLY BASED UPON THE DECREMENTED
                                   3579+*           USE/RESP COUNTS.

                                   3581+*        -RELEASE MAIN STORAGE (SPEOT)-
                                   3582+*           THE PRIMARY FUNCTION OF THIS CODE IS TO RELEASE CORE
                                   3583+*           RELATED UNIQUELY TO THE COMPLETED TASK. ALL SPQE'S FOUND
                                   3584+*           ON THE 'TCBMSS' FIELD ARE USED TO FREE UNSHARED SUB-POOLS.
                                   3585+*           THE SPQE'S ARE REMOVED FROM THE TCB AND ARE FREED
                                   3586+*           SUMMARILY. AN ADDITIONAL FUNCTION IS PERFORMED FOR
                                   3587+*           COMPLETED JOB STEP TCB'S. CONTENTS DIRECTORY CODE IS
                                   3588+*           ENTERED TO FREE CDE'S AND EXTENT LISTS POINTED TO BY THE
                                   3589+*           'TCBJPQ' FIELD IN THE J/S TCB.
                                   3590+*           ALL FQE POINTERS IN THE DQE'S BELONGING TO       PD OS63452
                                   3591+*           USER SUBPOOLS ARE ALSO ZEROED TO PREVENT AN      PD OS63452
                                   3592+*           ABEND IN THE MOTHER TASK.                        PD OS63452

                                   3594+*        -ETXR SCHEDULER-
                                   3595+*           THIS ROUTINE INTERFACES WITH STAGE 2 OF THE EXIT EFFECTOR
                                   3596+*           TO SCHEDULE AN ETXR IF ONE IS INDICATED.

                                   3598+*        -DEQUEUE TCB-
                                   3599+*           THIS ROUTINE REMOVES THE COMPLETED TCB FROM THE TCB READY
                                   3600+*           QUEUE. THIS FUNCTION IS DONE UNCONDITIONALLY FOR ALL
                                   3601+*           ENDING TASKS. NOTE THAT THE COMPLETED TCB WILL, HOWEVER,
                                   3602+*           REMAIN ON THE 'FAMILY' QUEUE IF EITHER AN ETXR OR ECB OR
                                   3603+*           IF THE TIME-SLICE BIT (TCBFTS) IS SET IN THE TCB, ANY
                                   3604+*           REFERENCE TO THE TERMINATING TASK IS ELIMINATED FROM
                                   3605+*           THE CORRESPONDING TIME-SLICE CONTROL ELEMENT (TSCE).
                                   3606+*           BOTH IS PRESENT INDICATING A SUBSEQUENT DETACH OF THE TASK.

                                   3608+*        -EOT POSTING ROUTINE-
                                   3609+*           IF AN ECB IS GIVEN TO BE POSTED AT EOT, THIS ROUTINE
                                   3610+*           VALIDITY CHECKS THE RB ADDR IN THE ECB AND ENTERS POST
                                   3611+*           VIA A BRANCH ENTRY. NO VALIDITY CHECK IS MADE FOR THE
                                   3612+*           JOB STEP TCB BECAUSE THE ECB RESIDES IN PROTECTED CORE.

                                   3614+*        -ERASE PHASE-
                                   3615+*           THIS ROUTINE REMOVES A TCB FROM THE FAMILY QUEUE, I.E.,
                                   3616+*           THE QUEUE OF SUBTASKS REFERENCED BY THE ORIGIN TASK AND
                                   3617+*           FREES THE TCB AND THE TASK'S PROBLEM PROGRAM REGISTER SAVE
                    EOT COMMENTARY                                                                             PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3618+*           AREA. THIS FUNCTION IS PERFORMED FOR TASK NOT SPECIFYING AN
                                   3619+*           EOT ETXR ROUTINE OR ECB.

                                   3621+*-ENTRY POINT NAMES-
                                   3622+*        1. IEAQPGTM- ENTRY TO TIMER PURGE FUNCTION.
                                   3623+*        2. IEAQABL - ENTRY TO RELEASE LOADED PROGRAMS FUNCTION.
                                   3624+*        3. IEAQSPET- ENTRY TO MAIN STORAGE EOT FUNCTION.
                                   3625+*        4. IEAQERA - ENTRY TO ERASE PHASE
                                   3626+*        5. IEADQTCB- ENTRY TO TCB DQ RTN.
                                   3627+*        6. IEABEND - SECONDARY CVT USED BY ABEND.
                                   3628+*        NOTE- ENTRY TO EOT IS FROM EXIT CODE AN IS NOT AN 'ENTRY'.

                                   3630+*-CONTAINED IN MODULE-IEAQED00

                                   3632+*-ATTRIBUTES-
                                   3633+*        RESIDENT, SUPERVISOR STATE, DISABLED, REENTRANT(RECURSION IS
                                   3634+*        POSSIBLE)

                                   3636+*-APPLICABILITY- OPTION 4 SYSTEMS

                                   3638+*-EXTERNAL REFERENCES-
                                   3639+*        1. IEECVPRG- WTOR PURGE RTN.
                                   3640+*        2. IEAQTD01- TIMER DEQUEUE RTN (FOR ADDRESSABILITY).
                                   3641+*        3. IGC002  - POST (SVC RTN).
                                   3642+*        4. IEA0DS02- TASK SWITCH RTN.
                                   3643+*        5. RMBRANCH- BRANCH ENTRY TO MSS FOR SVC 10.
                                   3644+*        6. FMBRANCH- BRANCH ENTRY TO MSS FOR SVC 5
                                   3645+*        6A.IEA0AB01- NORMAL ABTERM ENTRY.
                                   3646+*     THE FOLLOW REFERENCES ARE IN THE SECONDARY CVT AND NOT USED BY
                                   3647+*     EXIT OR EOT CODE-
                                   3648+*        7 .IEAQQCB0- ADDR OF QCB ORIGIN
                                   3649+*        8 .IEA0EQ01- ENQ/DEQ PURGE RTN.
                                   3650+*        9 .IGC016  - SVC PURGE ENTRY POINT.
                                   3651+*        10.IEAQTAQ - ADDR OF TRANS. AREA CTL TABLE.

                                   3653+*-SVC USAGE-
                                   3654+*        1. ABEND
                                   3655+*        2. CLOSE
                                   3656+*        3. GETMAIN (SP 253)
                                   3657+*     BRANCH ENTRIES TO-
                                   3658+*        1. FREEMAIN (SP 250,253,255)
                                   3659+*        2. POST

                                   3661+*-INPUT- NONE EXPLICITLY, USES ENVIRONMENTAL REGISTERS.

                                   3663+*-OUTPUT- NONE

                                   3665+*-ENTRY POINTS-
                                   3666+*        1. IEAQPGTM- THE PSW IS DISABLED FOR SYSTEM INTERRUPTS,IS IN
                                   3667+*                     SUPERVISOR STATE AND HAS THE SUPV PROTECTION KEY.
                                   3668+*              REGISTERS-
                                   3669+*                     0-2   IRRELEVANT
                                   3670+*                     3     CVT ADDR.
                                   3671+*                     4     CURRENT TCB ADDR.
                                   3672+*                     5-13  IRRELEVANT
                    EOT COMMENTARY                                                                             PAGE   91


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3673+*                     14    RETURN ADDR.
                                   3674+*                     15    IRRELEVANT

                                   3676+*        2. IEAQABL- THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IS IN
                                   3677+*                    SUPERVISOR STATE AND HAS THE SUPV PROTECTION KEY.
                                   3678+*              REGISTERS-
                                   3679+*                     0-2   IRRELEVANT
                                   3680+*                     3     RETURN ADDR.
                                   3681+*                     4     CURRENT TCB ADDR.
                                   3682+*                     5-15  IRRELEVANT

                                   3684+*        3. IEAQSPET- THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IS IN
                                   3685+*                     SUPERVISOR STATE AND HAS THE SUPV PROTECTION KEY.
                                   3686+*              REGISTERS-
                                   3687+*                     0-2   IRRELEVANT
                                   3688+*                     3     RETURN ADDR.
                                   3689+*                     4     CURRENT TCB ADDR.
                                   3690+*                     5-15  IRRELEVANT

                                   3692+*        4. IEAQERA-  THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IS IN
                                   3693+*                     SUPERVISOR STATE AND HAS THE SUPV PROTECTION KEY.
                                   3694+*              REGISTERS-
                                   3695+*                     0-6   IRRELEVANT
                                   3696+*                     7     ADDR OF TCB TO BE 'ERASED'
                                   3697+*                     8-13  IRRELEVANT
                                   3698+*                     14    RETURN ADDR.
                                   3699+*                     15    IRRELEVANT

                                   3701+*        5. IEADQTCB- THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IS IN
                                   3702+*                     SUPERVISOR STATE AND HAS THE SUPV PROTECTION KEY.
                                   3703+*              REGISTERS-
                                   3704+*                     0-2   IRRELEVANT
                                   3705+*                     3     CVT ADDR.
                                   3706+*                     4     ADDR OF TCB TO BE REMOVED FROM THE READY Q.
                                   3707+*                     5-13  IRRELEVANT
                                   3708+*                     14    RETURN ADDR.
                                   3709+*                     15    IRRELEVANT

                                   3711+*-EXIT POINTS-
                                   3712+*        1. BRANCH TO THE DISPATCHER AT COMPLETION OF EOT PROCESSING.
                                   3713+*           THE PSW IS DISABLED FOR SYSTEM INTERRUPTS, IS IN SUPERVISOR
                                   3714+*           STATE AND HAS THE SUPV PROTECTION KEY.
                                   3715+*           THE REGISTERS ARE IRRELEVANT.

                                   3717+*-ERROR EXIT POINTS-
                                   3718+*        1. ABEND DUE TO OUTSTANDING DESCENDENTS (ERR CODE X'80A03000')
                                   3719+*        2. ABEND DUE TO INCOMPLETE ENQ REQUESTS (ERR CODE X'80D03000')
                                   3720+*        3. ABEND DUE TO BAD DEB INFO FOR CLOSE  (ERROCODE X'80C03000')
                                   3721+*        4. ABEND DUE TO INVALID ECB/ECB INFO    (ERR CODE X'80103000')
                                   3722+*        5. ABEND DUE TO OUTSTANDING WTOR REPLIES(ERR CODE X'80B03000')

                                   3724+*-TABLES AND CONTROL BLOCKS REFERENCED-
                                   3725+*        CVT-
                                   3726+*           CVTTCBP  (NOT ALTERED)
                                   3727+*           CVT0DS   (NOT ALTERED)
                    EOT COMMENTARY                                                                             PAGE   92


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3728+*           CVTQTD00 (NOT ALTERED)
                                   3729+*           CVTHEAD  (NOT ALTERED)
                                   3730+*           CVT0EF00 (NOT ALTERED)
                                   3731+*           CVTMZ00  (NOT ALTERED)
                                   3732+*        TCB-
                                   3733+*           TCBPIE   (NOT ALTERED)
                                   3734+*           TCBDEB   (NOT ALTERED IN EOT, BUT ALTERED IN CLOSE RTN)
                                   3735+*           TCBCMP   (ALTERED)
                                   3736+*           TCBMSS   (ALTERED)
                                   3737+*           TCBPKF   (NOT ALTERED)
                                   3738+*           TCBFLGS-
                                   3739+*           .TCBFTS  (NOT ALTERED)
                                   3740+*           .TCBFE   (ALTERED)
                                   3741+*           .TCVFETXR(NOT ALTERED)
                                   3742+*           .TCBFC   (ALTERED)
                                   3743+*           TCBLLS   (ALTERED)
                                   3744+*           TCBJPQ   (NOT ALTERED)
                                   3745+*           TCBGRS   (NOT ALTERED)
                                   3746+*           TCBQEL   (NOT ALTERED)
                                   3747+*           TCBFSA   (NOT ALTERED)
                                   3748+*           TCBTCB   (ALTERED)
                                   3749+*           TCBTME   (ALTERED)
                                   3750+*           TCBJSTCB (NOT ALTERED)
                                   3751+*           TCBNTC   (ALTERED)
                                   3752+*           TCBOTC   (NOT ALTERED)
                                   3753+*           TCBLTC   (ALTERED)
                                   3754+*           TCBIQE   (NOT ALTERED)
                                   3755+*           TCBECB   (NOT ALTERED)
                                   3756+*        RB-
                                   3757+*           RBTMFLD  (ALTERED) (RBTMFLD AND TQEFLGS ARE SAME FIELD)
                                   3758+*           RBPPSAV  (NOT ALTERED) (RBPPSAV AND TQEFLGS+1 ARE SAME FLD)
                                   3759+*           RBSTAB   (ALTERED)
                                   3760+*           RBOPSW   (NOT ALTERED)
                                   3761+*        CDE-
                                   3762+*           CDUSE    (ALTERED)
                                   3763+*        LLE-
                                   3764+*        TSCE (TIMESLICE CONTROL ELEMENT)
                                   3765+*           TSDPRTY  (NOT ALTERED)
                                   3766+*           TSFIRST  (ALTERED)
                                   3767+*           TSLAST   (ALTERED)
                                   3768+*           TSNEXT   (ALTERED)
                                   3769+*           LLCHAIN  (NOT ALTERED)
                                   3770+*           LLCDPTR  (NOT ALTERED)
                                   3771+*           LLRESPCT (NOT ALTERED)
                                   3772+*        SPQE-
                                   3773+*           1ST BYTE (NOT ALTERED)
                                   3774+*        TQE-
                                   3775+*           TQEFLGS  (ALTERED)
                                   3776+*           TQESAADR (NOT ALTERED)

                                   3778+*-LIST ORIGINS, TABLES, AND CONTROL BLOCKS INCLUDED-
                                   3779+*        SECONDARY CVT- 'IEABEND'

                                   3781+*-RESTRICTIONS ON USE OF ROUTINE- NONE
                    EOT COMMENTARY                                                                             PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3783+*-NOTES- NONE

                                   3785+*-INTERFACES-
                                   3786+*        1. ALL BRANCH ENTRIES TO FREEMAIN
                                   3787+*             .PSW DISABLED, SUPV STATE, SUPV PROT KEY.
                                   3788+*             .INPUT REGS
                                   3789+*               0     SP AND NO. OF BYTES TO FREE.
                                   3790+*               1     STARTING ADDRESS TO FREE.
                                   3791+*               2-3   IRRELEVANT
                                   3792+*               4     CURRENT TCB
                                   3793+*               5-7   IRRELEVANT
                                   3794+*               8     ENTRY POINT TO FREEMAIN
                                   3795+*               9-13  IRRELEVANT
                                   3796+*               14    RETURN ADDR
                                   3797+*               15    IRRELEVANT
                                   3798+*             .OUTPUT REGS- NONE
                                   3799+*             .TRANSPARENT REGS
                                   3800+*               2-7,9-14
                                   3801+*        2. ENTRY TO EOT AT 'EOT'
                                   3802+*             .PSW DISABLED, SUPV STATE, SUPV PROT KEY.
                                   3803+*             .INPUT REGS
                                   3804+*               0,1   IRRELEVANT
                                   3805+*               2     BASE REG = ADDR OF 'EDBSE'
                                   3806+*               3     CVT ADDR
                                   3807+*               4     CURRENT TCB (AT EOT)
                                   3808+*               5     CURRENT RB
                                   3809+*               6-15  IRRELEVANT
                                   3810+*        3. IEAQPGTM SUBROUTINE
                                   3811+*             .PSW DISABLED, SUPV STATE, SUPV PROT KEY.
                                   3812+*             .INPUT REGS
                                   3813+*               0-2   IRRELEVANT
                                   3814+*               3     CVT ADDR
                                   3815+*               4     CURRENT TCB
                                   3816+*               5-13  IRRELEVANT
                                   3817+*               14    RETURN ADDR
                                   3818+*               15    IRRELEVANT
                                   3819+*             .TRANSPARENT REGS
                                   3820+*               2-5,9,14
                                   3821+*        4. IEECVPRG (WTOR PURGE) SUBROUTINE (EXTERNAL CODE)
                                   3822+*             .PSW DISABLED, SUPV STATE, SUPV PROT KEY.
                                   3823+*             .INPUT REGS
                                   3824+*               0-2   IRRELEVANT
                                   3825+*               3     CVT ADDR
                                   3826+*               4     CURRENT TCB
                                   3827+*               5     CURRENT RB
                                   3828+*               6     ENTRY POINT
                                   3829+*               7-13  IRRELEVANT
                                   3830+*               14    RETURN ADDR
                                   3831+*               15    IRRELEVANT
                                   3832+*             .OUTPUT REGS
                                   3833+*               15    RETURN CODE (0= NO REPLIES CANCELLED, 4= REPLIES
                                   3834+*                     CANCELLED)
                                   3835+*             .TRANSPARENT REGS
                                   3836+*               2-5,9
                                   3837+*        5. CLOSE SUBROUTINE
                    EOT COMMENTARY                                                                             PAGE   94


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3838+*             .PSW DISABLED, SUPV STATE, SUPV PROT KEY.
                                   3839+*             .INPUT REGS
                                   3840+*               0-3   IRRELEVANT
                                   3841+*               4     CURRENT TCB AT EOT
                                   3842+*               5-13  IRRELEVANT
                                   3843+*               14    RETURN ADDRESS
                                   3844+*               15    IRRELEVANT
                                   3845+*             .TRANSPARENT REGS
                                   3846+*               2-5,10-14
                                   3847+*        6. CDEXIT SUBROUTINE (EXTERNAL TO EOT CODE)
                                   3848+*             .PSW DISABLED, SUPV STATE, SUPV PROT KEY.
                                   3849+*             .INPUT REGS
                                   3850+*               0-4,6-13,15  IRRELEVANT
                                   3851+*               5            CURRENT RB
                                   3852+*               14           RETURN ADDR
                                   3853+*             .TRANSPARENT REGS
                                   3854+*               3-6,9
                                   3855+*        7. IEAQABL SUBROUTINE
                                   3856+*             .PSW DISABLED, SUPV STATE, SUPV PROT KEY.
                                   3857+*             .INPUT REGS
                                   3858+*               0-2   IRRELEVANT
                                   3859+*               3     RETURN ADDR
                                   3860+*               4     ADDR OF CURRENT TCB
                                   3861+*               5-15  IRRELEVANT
                                   3862+*             .TRANSPARENT REGS
                                   3863+*               3-5,9
                                   3864+*        8. IEAQSPET SUBROUTINE
                                   3865+*             .PSW DISABLED, SUPV STATE, SUPV PROT KEY.
                                   3866+*             .INPUT REGS
                                   3867+*               0-2   IRRELEVANT
                                   3868+*               3     RETURN ADDR
                                   3869+*               4     ADDR OF CURRENT TCB
                                   3870+*               5-15  IRRELEVANT
                                   3871+*             .TRANSPARENT REGS
                                   3872+*               3-5,7,9,13
                                   3873+*        9. IEADQTCB SUBROUTINE
                                   3874+*             .PSW DISABLED, SUPV STATE, SUPV PROT KEY.
                                   3875+*             .INPUT REGS
                                   3876+*               0-2   IRRELEVANT
                                   3877+*               3     CVT ADDR
                                   3878+*               4     ADDR OF TCB TO BE DEQUEUED
                                   3879+*               5-13  IRRELEVANT
                                   3880+*               14    RETURN ADDR
                                   3881+*               15    IRRELEVANT
                                   3882+*             .TRANSPARENT REGS
                                   3883+*               0,2-5,7,9-15
                                   3884+*        10.ERASE PHASE IEAQERA
                                   3885+*             .PSW DISABLED, SUPV STATE, SUPV PROT KEY.
                                   3886+*             .INPUT REGS
                                   3887+*               0-6   IRRELEVANT
                                   3888+*               7     ADDR OF TCB TO BE ERASED.
                                   3889+*               8-15  IRRELEVANT
                                   3890+*             .OUTPUT REGS
                                   3891+*               3     CVT ADDR
                                   3892+*               4     ORIGIN TASK OF ERASED TASK
                    EOT COMMENTARY                                                                             PAGE   95


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3893+*             .TRANSPARENT REGS
                                   3894+*               2,5,7,9-12,14,15
                                   3895+*        11. ABTERM (FROM EOT POST)
                                   3896+*             .PSW DISABLED, SUPV STATE, SUPV PROT KEY.
                                   3897+*               0     ADDR OF TCB TO BE ABTERM'D
                                   3898+*               1     ERROR CODE
                                   3899+*               14    RETURN ADDR
                                   3900+*             .TRANSPARENT REGS
                                   3901+*               2-14
                    EOT COMMENTARY                                                                             PAGE   96


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3903+***********************************************************************
                                   3904+*                                                                     *
                                   3905+*                                                                     *
                                   3906+*            RELEASE 20 MODIFICATIONS AND ADDITIONS                   *
                                   3907+*                                                                     *
                                   3908+*                   FOR EXIT PROCESSING                               *
                                   3909+*                                                                     *
                                   3910+*                                                                     *
                                   3911+**********************************************************************





                                   3913+*        (1)  FREE ONLY THE STAE/STAI CONTROL BLOCK (SCB) FOR     20021
                                   3914+*             STAE WHICH, BECAUSE OF STAI, IS NOT ALWAYS THE      20021
                                   3915+*             FIRST SCB OFF THE TCB.                              20021
                                   3916+*                                                                     *
                                   3917+*        (2)   FREE ALL STAI SCBS AT EOT.                         20021
                                   3918+*                                                                     *
                                   3919+*        (3)   FOR EXIT OF ANY RB EXCEPT THE LAST RB ON THE RB    20021
                                   3920+*              CHAIN, CHECK THE TCBSTPPR FLAG AND THE TCBATT FLAG.20021
                                   3921+*              IF BOTH ARE ON, BYPASS THE SETTING OF THIS TASK    20021
                                   3922+*              NONDISPATCHABLE.  IF ONLY THE TCBSTPPR FLAG IS ON  20021
                                   3923+*              THIS TASK IS TO BE SET NON-DISPATCHABLE IF NO      20021
                                   3924+*              OTHER SVRBS ARE ON THE TCB RB QUEUE.               20021
                                   3925+*                                                                     *
                                   3926+*        (4)   FOR EXIT OF A PRB OR AN SVRB, ALLOW TERMINAL       20021
                                   3927+*              ATTENTION EXITS TO BE SCHEDULED IF NO OTHER SVRBS  20021
                                   3928+*              REMAIN ON THE RB QUEUE OR IF NO OTHER PRBS WITH    20021
                                   3929+*              THE RBATTN BIT ON REMAIN ON THE RB QUEUE.  THIS IS 20021
                                   3930+*              ACCOMPLISHED BY RESETTING THE TCBATT FLAG TO 0.    20021
                                   3931+*                                                                     *
                                   3932+*        (5)   RECOGNIZE AND PROCESS TERMINAL ATTENTION IRB       20021
                                   3933+*              EXITS.                                             20021
                    EOT COMMENTARY                                                                             PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3935+*                                                                     *
                                   3936+*  ROUTINE NAME - IKJATTNX                                        20021
                                   3937+*                                                                     *
                                   3938+*  FUNCTION -                                                     20021
                                   3939+*        (1)   LOCATE EXITING IRB ON TAXE QUEUE                   20021
                                   3940+*        (2)   FOR CANCEL REQUEST DEQUEUE TAXE                    20021
                                   3941+*        (3)   CHECK FOR ANOTHER ACTIVE TAXE                      20021
                                   3942+*              (A)  IF NOT FOUND, START ALL SUBTASKS WITH         20021
                                   3943+*                   STATUS MACRO USING A BRANCH ENTRY.            20021
                                   3944+*              (B)  IF FOUND AND TAXE IS FOR ANOTHER TASK,        20021
                                   3945+*                   START SUBTASKS USING STATUS AND DO A TASK     20021
                                   3946+*                   SWITCH.                                       20021
                                   3947+*        (4)   UPDATE TAXE QUEUE BY MARKING TAXES AVAILABLE       20021
                                   3948+*        (5)   UPDATE STAX COUNT IN TJB                           20021
                                   3949+*        (6)   USE TAIE TO SET UP RESUME FOR TASK                 20021
                                   3950+*        (7)   FREE TAIE                                          20021
                                   3951+*                                                                     *
                                   3952+*  EXTERNAL REFERENCES -                                          20021
                                   3953+*        (1)   IGC07901 - BRANCH ENTRY TO STATUS TO START         20021
                                   3954+*                         SUBTASKS                                20021
                                   3955+*        (2)   IEA0DS02 - TASK SWITCH ROUTING-WHEN TASK OTHER     20021
                                   3956+*                         THAN ONE WITH IRB EXITING HAS ANOTHER   20021
                                   3957+*                         ACTIVE TAXE WHICH WAS INTERRUPTED       20021
                                   3958+*        (3)   FREEMAIN - BRANCH ENTRY TO FREE TAIE               20021
                                   3959+*                                                                     *
                                   3960+*  INPUT -     REGISTERS  3 - CVT ADDR                            20021
                                   3961+*                          4 - TCB ADDR                           20021
                                   3962+*                          5 - IRB ADDR                           20021
                                   3963+*                          14 - RETURN ADDR                       20021
                                   3964+*                          15 - ENTRY POINT ADDR                  20021
                                   3965+*                                                                     *
                                   3966+*  EXIT -      BRANCH ON REG 14                                   20021
                                   3967+*                                                                     *
                                   3968+***********************************************************************
                    EOT COMMENTARY                                                                             PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3970+***********************************************************************
                                   3971+*                                                                     *
                                   3972+*                                                                     *
                                   3973+*            RELEASE 20 MODIFICATIONS AND ADDITONS                    *
                                   3974+*                                                                     *
                                   3975+*                   FOR END OF TASK PROCESSING                        *
                                   3976+*                                                                     *
                                   3977+*                                                                     *
                                   3978+***********************************************************************





                                   3980+*        (1)   RECOGNIZE AND PROCESS EOT FOR A TSO TASK           20021
                                   3981+*              (A)  NORMALLY                                      20021
                                   3982+*                   FOR END OF TASK FOR A TSO TASK, THE POINTERS  20021
                                   3983+*                   IN THE TJB MUST BE UPDATED TO REFLECT THAT    20021
                                   3984+*                   THE LAST TCB HAS ENDED NORMALLY. ALSO, THE    20021
                                   3985+*                   TCB COUNT IN THE TJB MUST BE DECREMENTED BY   20021
                                   3986+*                   ONE.                                          20021
                                   3987+*                                                                     *
                                   3988+*              (B)  LOGON EOT                                     20021
                                   3989+*                   FOR LOGON EOT, TWO CONDITIONS CAN EXIST       20021
                                   3990+*                   ONE, NORMAL LOGOFF WHEN THE TJBNWID IS ZERO.  20021
                                   3991+*                   IN THIS CASE, COMPLETE LOGOFF OF              20021
                                   3992+*                   THE USER IS RQUIRED.  TO ACCOMPLISH THIS THE  20021
                                   3993+*                   DISCONNECT FLAGS IN THE TJB AND THE           20021
                                   3994+*                   TSCVT ARE SET AND TSEVENT MACRO ISSUED FOR    20021
                                   3995+*                   LOGOFF.  THEN THE TSCVT FLAG FOR TSC IS SET,  20021
                                   3996+*                   AND TSC ECB POSTED. THE OTHER CASE OCCURS     20021
                                   3997+*                   WHEN TJBNWID IS NONZERO INDICATING THE USER   20021
                                   3998+*                   IS BEING ASSIGNED A NEW REGION AND IN EFFECT  20021
                                   3999+*                   BEING RELOGGED ON. IN THIS INSTANCE THE LOGON 20021
                                   4000+*                   FLAGS IN THE TJB AND TSCVT ARE SET AND TSEVENT20021
                                   4001+*                   MACRO ISSUED FOR LOGOFFTHEN TSC POSTED. IN    20021
                                   4002+*                   BOTH CASES THE TJB MUST BE REINITIALIZED BY   20021
                                   4003+*                   CLEARING ALL FIELDS EXECPT THE ONES SET       20021
                                   4004+*                   AT INITIALIZATION AND THE ONES REFERENCED     20021
                                   4005+*                   AND THEN CLEARED BY TSEVENT AND TSC. IN       20021
                                   4006+*                   ADDITION, FOR LOGON EOT THE LTC FIELD OF      20021
                                   4007+*                   RCT'S TCB MUST BE ZEROED.                     20021
                                   4008+*                                                                     *
                                   4009+*        (3)   A SUBROUTINE TO PURGE ANY TERMINAL ATTENTION       20021
                                   4010+*              EXIT ELEMENTS(TAXES) HAS BEEN ADDED. THIS ROUTINE  20021
                                   4011+*              IS DESIGNED TO RECOGNIZE AND PURGE ONLY TAXES FOR  20021
                                   4012+*              THE TCB ENDING.  THIS SUBROUTINE IS ALSO USED BY   20021
                                   4013+*              ABEND AT ABNORMAL EOT.                             20021
                                   4014+*                                                                     *
                                   4015+*        (4)   A SUBROUTINE TO PURGE ATTENTION IRBS HAS ALSO BEEN 20021
                                   4016+*              ADDED.  THIS SUBROUTINE HAS BEEN DESIGNED TO       20021
                                   4017+*              RECOGNIZE AND PURGE ONLY ATTENTION IRBS FOR THE    20021
                                   4018+*              TERMINATING TCB.                                   20021
                                   4019+*                                                                     *
                                   4020+*                                                                     *
                    EOT COMMENTARY                                                                             PAGE   99


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4021+*  ROUTINE NAME - IEAKJXP                                         20021
                                   4022+*                                                                     *
                                   4023+*  ENTRY POINTS - IEAKJXP -FROM ABEND                             20021
                                   4024+*                 TAXEPRG - FROM EOT                              20021
                                   4025+*                                                                     *
                                   4026+*  FUNCTION -                                                         *
                                   4027+*        (1)   DETERMINE USER EXIT ROUTINE FOR THIS TASK BEING    20021
                                   4028+*              SCHEDULED, IF IT IS THEN ZERO TJBXAIQE FIELD       20021
                                   4029+*        (2)   ZERO ATTENTION COUNT IN TJB                        20021
                                   4030+*        (3)   RECOGNIZE EXISTENCE OF ANY TAXES FOR USER          20021
                                   4031+*        (4)   RECOGNIZE AND DEQUEUE ANY TAXES FOR THIS TASK      20021
                                   4032+*              AND DECREMENT THE STAX COUNT IN THE TJB            20021
                                   4033+*        (5)   SET RBFDYN FLAG SO THAT IRB WILL BE FREED BY EXIT  20021
                                   4034+*              (IF IRB ON TCB RB QUEUE)                           20021
                                   4035+*        (6)   FREE PROBLEM PROGRAM SAVE AREA IF IRB OR TAXE ON   20021
                                   4036+*              TCB RB QUEUE                                       20021
                                   4037+*        (7)   FREE TAIE IF IT EXISTS                             20021
                                   4038+*        (8)   FREE TAXE IF NOT ACTIVE ( ON RB QUEUE)             20021
                                   4039+*        (9)   BRANCH ENTRY TO STATUS TO START ANY STOPPED        20021
                                   4040+*              SUBTASKS                                           20021
                                   4041+*                                                                     *
                                   4042+*  EXTERNAL REFERENCES - (1)  STATUS - MACRO WITH START OPTION    20021
                                   4043+*                                        TO START SUBTASKS        20021
                                   4044+*                       (2)  FREEMAIN - BRANCH ENTRY TO FREE      20021
                                   4045+*                                       P/P SAVE AREA, TAIE,TAXE  20021
                                   4046+*                                                                     *
                                   4047+*  INPUT - REGISTERS 4 - TCB ADDR                                 20021
                                   4048+*                   14 - RETURN ADDR                              20021
                                   4049+*                  15 - ENTRY ADDR                                20021
                                   4050+*                                                                     *
                                   4051+*  EXIT - BRANCH ON REGISTER 14                                   20021
                                   4052+*                                                                     *
                                   4053+*  ROUTINE NAME - ETAER                                           20021
                                   4054+*                                                                     *
                                   4055+*  ENTRY POINTS - ETAER - FROM EOT                                20021
                                   4056+*                                                                     *
                                   4057+*  FUNCTION -                                                     20021
                                   4058+*        (1)   SEARCH THE ASYNCHRONOUS EXIT QUEUE (AEQ) FOR IQES  20021
                                   4059+*              BELONGING TO THE TERMINATING TCB.                  20021
                                   4060+*        (2)   RECOGNIZE IQES REPRESENTING ATTENTION IRBS FOR     20021
                                   4061+*              THIS TCB AND DEQUEUE THEM FROM THE AEQ.            20021
                                   4062+*                                                                     *
                                   4063+*  EXTERNAL REFERENCES - NONE                                     20021
                                   4064+*                                                                     *
                                   4065+*  INPUT - REGISTER 4 - ADDR OF THE TERMINATING TCB               20021
                                   4066+*          REGISTER 14 - RETURN ADDR                              20021
                                   4067+*                                                                     *
                                   4068+*  OUTPUT - REGISTER 3 - ADDR OF CVT                              20021
                                   4069+*                                                                     *
                                   4070+*  TRANSPARENT REGISTERS - 0-2,4,5,7-15                           20021
                                   4071+*                                                                     *
                                   4072+*  TABLES AND CONTROL BLOCKS REFERENCED -                         20021
                                   4073+*        CVT                                                      20021
                                   4074+*              CVTIERLC (NOT ALTERED)                             20021
                                   4075+*        AEQ                                                      20021
                    EOT COMMENTARY                                                                             PAGE  100


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4076+*              AEQJ     (ALTERED)                                 20021
                                   4077+*              AEQK     (ALTERED)                                 20021
                                   4078+*                                                                     *
                                   4079+*  EXIT - BRANCH ON REGISTER 14                                   20021
                                   4080+*                                                                     *
                                   4081+***********************************************************************
                                   4082          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000C7C
   01       01      0C     000D00
   01       01      0C     000D1C
   01       01      0C     000D64
   01       01      0C     000D78
   01       01      0C     000D80
   01       01      0C     000D84
   01       01      0C     000D94
   01       01      0C     000D98
   01       01      0C     000D9C
   01       01      0C     000DA4
   01       01      0C     000DAC
   01       01      0C     000DD0
   01       01      0C     000DD4
   01       01      0C     000DD8
   01       01      0C     001088
   01       01      0C     00108C
   01       02      1C     000C80
   01       03      1C     000C84
   01       04      1C     000C88
   01       05      1C     000CB0
   01       06      1C     000CB4
   01       06      1C     000DCC
   01       07      1C     000CB8
   01       07      1C     000DB8
   01       08      1C     000CBC
   01       09      1C     000CC0
   01       09      1C     000E1C
   01       0A      1C     000CC8
   01       0A      1C     000DC4
   01       0B      1C     000CCC
   01       0C      1C     000CD0
   01       0C      1C     000DC8
   01       0D      1C     000CD8
   01       0E      0C     000CF0
   01       0F      1C     000CF8
   01       10      0C     000D14
   01       11      1C     000D68
   01       12      1C     000D7C
   01       12      1C     001094
   01       13      1C     000D90
   01       13      1C     000E08
   01       14      1C     000DA0
   01       15      0C     000DA8
   01       16      0C     000DB0
   01       17      1C     000DB4
   01       18      1C     000DBC
   01       19      1C     000DC0
   01       1A      0C     000DDC
   01       1B      1C     000DE0
   01       1C      0C     000DE4
   01       1D      0C     000DE8
   01       1E      0C     000DEC
   01       1F      0C     000DF0
   01       20      0C     000DF4
                                                 RELOCATION DICTIONARY                                          PAGE   2


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       21      1C     000DF8
   01       22      1C     000DFC
   01       23      1C     000E00
   01       24      1C     000E04
   01       25      1C     000E0C
   01       26      1C     000E10
   01       27      1C     000E18
   01       28      1C     000E20
   01       29      1C     000E24
   01       2A      1C     000E28
   01       2B      1C     000E2C
   01       2C      1C     000E30
   01       2D      1C     000E34
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ABEND    00005 000CA0 02780   1543
ACDHKEEP 00004 000D00 02819   2569
ACTV     00001 000462 01864   1855  1857
ACTVFND  00001 000444 01851   1836
ADESTX   00004 000D64 02840   2592
ADQTCB   00004 000D78 02849   1663  2379
AEDBSE   00004 000C7C 02769   1503  1554  1741  2371
AETAER   00004 000D94 02859   2265
AETMBSE  00004 000D1C 02832
AFMBRNCH 00004 000CB4 02784   2755
AFREE    00004 001088 03165   3096
AGOVRFLB 00004 000D90 02857   1644
AIEAB01  00004 000D68 02843   2737
AIEACS03 00004 000CD8 02797   2110
AIEADS02 00004 000CC8 02793   2000  2116
AIEASCSV 00004 000C80 02770   1533  1676
AIEATYP1 00004 000CBC 02786   1413
AIEA0DS1 00004 000C88 02773   1487
AIGC002B 00004 000CF0 02810   2728
AINT025  00004 000CB0 02783   1735
ARMBRNCH 00004 000CB8 02785   1461  1650  1722  2314  2536  2757
ATAR     00004 000CC0 02787   1615  1658
ATAXEPRG 00004 000D98 02860   2492
ATH      00004 000C84 02771   1531
ATTNEXIT 00004 000D80 02853   1686
BIT0     00001 000080 00593   0633  0636  0637  0646  0713
BIT1     00001 000040 00594   0633  0635  0637  0647  0714
BIT2     00001 000020 00595   0649  0715  0718
BIT3     00001 000010 00596   0638  0651  0715  0717  0718
BIT4     00001 000008 00597   0639  0652  0657  0658  0719  0731
BIT5     00001 000004 00598   0643  0652  0655  0658  0720  0733
BIT6     00001 000002 00599   0660  0721  0724  0734
BIT7     00001 000001 00600   0661  0721  0723  0724  0735
BYPSWAIT 00001 0000E8 01505   1476
BYSTAE   00001 000096 01470   1443
BYSTAI   00001 00086C 02317   2310
BYTES12  00001 00000C 01372   2960
BYTES7   00001 000007 01369   2959
CDADD    00004 00065A 02100   2095
CDADD1   00001 000678 02107   2101
CDATTR   00001 000000 01198   1981  1985  2067  2071  2100  2125  2129  2131  2148  2190  2221  2244
CDATTR2  00001 000014 01205   2151  2184
CDCHAIN  00001 000001 01199   2214  2240
CDDESTRY 00002 0006EE 02164   2163
CDDMLP   00004 00077C 02214   2209  2224
CDEM     00002 0006EC 02159   2132  2134
CDEM01   00001 0006F6 02168
CDENTPT  00001 000011 01204
CDESECT  00001 000000 01197   1407  1878  2221  2240  2244
CDEXIT   00004 00050C 01961   1539  1960  2348
CDFRPGM  00002 00074C 02193   2187  2191
CDHKEEP  00002 0006A0 02122   2099  2121  2819  2887
CDHKP    00001 00064E 02096   2072  2077
CDMIDQ   00001 00061E 02080   2087
CDNAME   00001 000008 01202
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CDOUT    00002 0006E2 02154
CDPGMTST 00004 000740 02190
CDQCNTRL 00004 000CD0 02795   1993
CDRBLP   00004 00068A 02112   2114
CDRBP    00001 000005 01201   2018  2052  2074  2097  2097  2108
CDROLL   00001 000004 01200
CDSPG    00004 0006DE 02153
CDSTREL  00002 0006D6 02150   2157
CDTOPRB  00001 0005C0 02042   2021
CDTPQ    00001 000640 02091   2079
CDTSTFA  00002 0006E4 02155   2145  2149
CDUSE    00001 000010 01203   2059  2065  2103  2105  2127  2566  2568
CDXBSE   00002 00050E 01965   1963
CDXLMJP  00001 000015 01206   1983  2169  2202  2559
CHKCURNT 00001 00041E 01827   1824
CKACTV   00001 00042C 01834   1821  1829
CKQUE    00001 00060A 02073   2070
CKRB     00001 000492 01888   1898
CLOSE    00002 00083E 02296   2287
CNTRELOG 00001 000EA2 02971   2956
COMPLETE 00001 000FDA 03122   3071
CONTACTV 00001 000448 01853   1861
CONTSTOP 00001 0001AE 01576   1572
CONT01   00002 0008A0 02346   2337
CVTABEND 00004 0000C8 00129
CVTAPR   00001 000040 00092
CVTAQAVT 00004 0000F0 00162
CVTASCII 00001 000002 00099
CVTATTCH 00001 000008 00097
CVTBRET  00002 000052 00053
CVTBTERM 00004 000034 00042
CVTBUF   00004 000010 00025
CVTCCH   00001 000080 00091
CVTCHPTR 00001 000008 00109
CVTCMT   00003 0000ED 00159
CVTCRTTR 00003 0000B8 00107   0120
CVTCUCB  00004 000064 00059
CVTDAR   00004 000048 00049
CVTDATA  00001 000002 00113
CVTDATE  00004 000038 00043
CVTDCB   00001 000074 00065
CVTDCBA  00003 000075 00070
CVTDDR   00001 000020 00094
CVTDMSR  00004 000110 00190
CVTDMSRA 00003 000111 00192
CVTEXIT  00002 000050 00052   1757
CVTEXT1  00004 0000FC 00179
CVTFACHN 00004 000114 00208
CVTFBOSV 00004 000084 00074
CVTFORM  00001 000008 00156
CVTGTF   00004 0000EC 00147
CVTGTFS  00001 0000C0 00149
CVTGTFST 00001 0000EC 00148
CVTHEAD  00004 0000A0 00082   2397  3021
CVTHIAR  00001 000004 00098
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTIERLC 00004 000090 00077   3134
CVTILCH  00004 00008C 00076
CVTILK1  00004 000024 00034
CVTILK2  00004 000028 00036
CVTIOQET 00004 000078 00071
CVTIXAVL 00004 00007C 00072
CVTJOB   00004 00000C 00024
CVTLINK  00004 000008 00023
CVTLNKSC 00002 0000D6 00137
CVTMAP   00001 000000 00018
CVTMCTYP 00001 000002 00158
CVTMDLDS 00004 0000D0 00135
CVTMODE  00001 000010 00155
CVTMPCVT 00004 0000C0 00127
CVTMSER  00004 000094 00078
CVTMSLT  00004 00003C 00044
CVTMZ00  00004 0000A4 00083   2708
CVTNIP   00001 000010 00096
CVTNUCB  00004 000080 00073
CVTOPTA  00001 0000B6 00090
CVTOPTB  00001 0000B7 00101
CVTPATCH 00004 0000DC 00139
CVTPBLDL 00004 00005C 00057
CVTPCNVT 00004 00001C 00030
CVTPRLTV 00004 000020 00032
CVTPROT  00001 000080 00102
CVTPTR   00001 000010 00013   1475  3050  3133
CVTPURG  00004 000104 00182
CVTPURGA 00003 000105 00184
CVTQABST 00002 0000D4 00136
CVTQCDSR 00004 0000B8 00122
CVTQLPAQ 00004 0000BC 00123
CVTQMSG  00004 00010C 00186
CVTQMSGA 00003 00010D 00188
CVTQMWR  00004 0000B0 00087
CVTQOCR  00004 0000AC 00085
CVTQTD00 00004 00006C 00062   2504
CVTQTE00 00004 000068 00060
CVTRMS   00004 0000E0 00140
CVTSECT  00001 000000 00006   1403  2375  3045
CVTSJQ   00004 000060 00058
CVTSMCA  00004 0000C4 00128
CVTSNCTR 00002 0000B4 00089
CVTSTATE 00001 000020 00154
CVTSTB   00004 000070 00064
CVTSTEPR 00001 000004 00111
CVTSTUSA 00001 0000BB 00108
CVTSVDCB 00004 000054 00054
CVTSYSAD 00004 000030 00040
CVTTCBP  00004 000000 00020   1604  2339  2394  2402
CVTTCMFG 00001 0000F0 00160
CVTTCRDY 00001 000080 00161
CVTTOD   00001 000020 00103
CVTTPC   00004 000058 00055   2503
CVTTRMTB 00004 00009C 00081
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTTSCE  00004 0000D8 00138
CVTTSCVB 00003 0000E5 00145
CVTTSCVT 00004 0000E4 00142   1945
CVTTSFLG 00001 0000E4 00143   2972
CVTTSRDY 00001 000080 00144   2972
CVTUSER  00004 0000CC 00131
CVTUSR   00001 000004 00157
CVTVOLF2 00001 0000F4 00169
CVTVOLI2 00001 000080 00171
CVTVOLM2 00004 0000F4 00167
CVTVOLT2 00003 0000F5 00172
CVTXAPG  00004 000014 00027
CVTXITP  00004 000044 00048
CVTXPFP  00001 000001 00100
CVTXTLER 00004 00002C 00038
CVTXTNT1 00001 000114 00206   0179
CVTZDTAB 00004 000040 00047
CVT0DS   00004 000088 00075   1680  1762  2344  2403
CVT0EF00 00004 000004 00021   2684
CVT0FN00 00004 00004C 00051
CVT0PT01 00004 000098 00080   2992
CVT0SCR1 00004 0000E8 00146
CVT0VL00 00004 000018 00028
CVT1EF00 00004 0000A8 00084
CVT1SSS  00001 000040 00066
CVT2SPS  00001 000020 00067
CVT4MPS  00001 000004 00069
CVT4MS1  00001 000010 00068
DEBDCBAD 00001 000018 01254   2444
DECDONE  00001 0005FA 02066   2061  2063
DEFERLON 00001 000126 01526   1517  1520  1522
DEFERNO2 00001 000FFA 03137   3145  3149
DEFERNO3 00001 001032 03155   3141  3153
DEFEROFF 00001 000122 01524   1514
DEFERSKP 00001 000128 01528   1510
DEFRLOOP 00001 0000F6 01512   1518  1523
DEFRSAVE 00004 001038 03158   3132  3156
DESTX    00002 000758 02198   2167  2172  2183  2840
DONE     00001 0004D6 01923   1882  1915
DSP01    00004 00089A 02344   2341
EDABSPL  00002 000286 01662   1559
EDACT    00004 000208 01610   1602  1606
EDBSE    00002 000002 01412   1411  2261  2373  2691  2769
EDCKNXRB 00001 0001B2 01580   1590
EDCM     00001 000158 01540   1532
EDFIRB   00002 000240 01630   1627
EDFRB    00002 000248 01634   1619  2405  2408
EDFREE   00004 00027A 01650   1642  1648
EDFREEX  00002 00024E 01637   1632
EDIND    00002 000384 01749   1699  1726
EDIQE    00002 0002FC 01700   1693  1698
EDIRB    00002 0002C2 01683   1530
EDRELCM  00004 00000A 01415   1416
EDRELCM1 00001 00003A 01432   1415  1421  1429
EDREN    00004 000390 01755   1728
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

EDRES    00002 00034C 01724   1715  1718
EDRQE    00002 00035A 01731   1695
EDSR1    00002 00038E 01753   1747
EDSW     00004 0001F6 01604   1598  1666
EDTNX    00004 000176 01557   1690  1751
EDTR     00001 00016E 01550
EDUX     00002 000294 01669   1435
EDWT     00001 0001EA 01599   1561  1563  1575  1582  1586
ELLNGTH  00001 000008 01247   2174
ENTRYSET 00004 000D7C 02852   1931
ENTRYSTA 00004 001094 03168   3119
EOT      00002 0007F2 02262   1536
EPFND    00002 000F1C 03028   3024
EPFOUND  00006 000B6C 02659   2655
EPOUT    00002 000B72 02660   2651
EPSIS    00004 000B58 02653   2649
EPSISLP  00004 000B5C 02654   2657
EPTCBLP  00002 000F0C 03022   3027
EP01     00002 000B92 02672   2670
ETABCD1  00004 000D08 02821   2412
ETAER    00001 000FE0 03127   2859
ETB      00002 00090E 02399   2396
ETB01    00002 000824 02283   2277
ETB02    00002 00090E 02400   2391  2426  2727  2739
ETB03    00002 0008E8 02389   2426  2727
ETCLAB   00002 00098E 02470   2450
ETCLABCD 00004 000CFC 02816   2471
ETCLOSE  00002 000946 02430   2297
ETCLSLP  00006 000960 02444   2452
ETCTADJ  00002 000A4E 02561   2557
ETDPN    00002 00092A 02411   2270
ETECBER  00002 000C2E 02734   2701
ETFLST   00002 000B2C 02635   2632
ETFQE    00004 000AE0 02612   2617
ETFQE0   00001 000ADC 02610   2607
ETFSPQE  00002 000B0E 02627   2603  2605  2609  2615
ETLDLP   00002 000A32 02552   2578
ETLDP    00002 000A2C 02548   2366
ETMBSE   00002 00099E 02484   2511  2832
ETME     00002 00099C 02481   2284
ETMFREE  00002 0009DA 02512   2500
ETMFRX   00002 0009F4 02521
ETMSLP   00004 000A8E 02588   2594
ETMSS    00002 000A84 02583   2369
ETNOWAIT 00001 0008C2 02364   2357
ETNQCD   00004 000CF4 02811   2420
ETNQERR  00002 000938 02419   2292
ETNSPQE0 00001 000AF6 02618   2601
ETPOST   00004 000BB6 02693   2385
ETPSCD1  00004 000D6C 02844   2736
ETPSTRET 00002 000C20 02726
ETPSU    00004 000C1C 02725   2698  2705  2721
ETPURGE  00001 000980 02455   2327
ETPURGE1 00001 000984 02461   1427
ETSPQE   00004 000AA6 02595   2587  2591  2634
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ETXR     00004 000BA4 02682   2377
EXITSAVE 00004 000D20 02833   1441  1506  1771  1924  2358  2362  2501  2508
EXTOWAIT 00001 0000DE 01500   1491  1495
FINISH   00001 000FCA 03113   3109
FLAG     00001 00000C 01227   1451
FMADDR   00004 000CE4 02802   2178
FMLNGH   00004 000CE0 02801   2175
FMPLIST  00004 000CE0 02800   2194
FMSP     00001 000CE9 02804   2186  2189  2192
FREEMAIN 00002 000C40 02746   1629  1921  2014  2196  2213  2218  2279  2523  2577  2626  2633  2636  2640  2671  2676
                              3165
FREETAIE 00001 0004BA 01912   1788
FRIQE    00001 000334 01716   1711
GETNXT   00001 0003E0 01796   1790
GETTJB   00001 0004EE 01938   2854  3166
GRAPHTTR 00004 000CF8 02812   2318
HOLDOFF  00001 0000BF 01371   2962
IEABEND  00004 000D9C 02869   2293  2868
IEADQTCB 00002 000E38 02934   2849  2886  2933
IEAKJXP  00001 000F2A 03038   3036
IEAQABL  00002 000A2C 02547   2546  2885
IEAQERA  00002 000B40 02644   2393  2643  2875
IEAQPGTM 00002 00099C 02480   2479  2870
IEAQQCB0 00001 000000 02876   2877
IEAQSPET 00002 000A84 02582   2581  2872
IEAQTAQ  00001 000000 02873   2874
IEAQTD01 00001 000000 02829   2830
IEARCTRS 00001 000000 02893   2894
IEAROIRB 00001 000000 02897   2898
IEAROQUE 00001 000000 02895   2896
IEAROTCB 00001 000000 02899   2900
IEZJSCB  00001 000000 01094   1095  1942
IGC002   00001 000000 02809   2810
IGC003   00001 000000 00004   1221
IKJATTNX 00001 0003B2 01769   2853
INITRB   00001 00016E 01546   1542  1544
IQEIRB   00004 000008 01193
IQEIRBA  00001 000008 01396   3146
IQELINK  00001 000000 01398   3139  3151  3151
IQELNK   00004 000000 01190   1496  1705  1713
IQEPARM  00004 000004 01192   1727
IQEQUE   00001 000006 01400   3135
IQESECT  00001 000000 01187   1406  1496  1547  1593  1727  3059
IQETCB   00004 00000C 01194   3060
IQETCBA  00001 00000C 01397   3142
JPA      00001 000002 01215   2190
JSCBCSCB 00004 000100 01129
JSCBDISP 00001 0000F0 01181
JSCBIECB 00004 000110 01173
JSCBJCT  00004 000104 01131
JSCBJCTA 00003 000105 01133
JSCBLONG 00001 000020 01110
JSCBMFTL 00001 000018 01182
JSCBMVTL 00001 000024 01183
JSCBPASS 00001 000080 01106
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JSCBPSCB 00004 000108 01169
JSCBQMPI 00004 0000F4 01112
JSCBQMPO 00004 0000F8 01114
JSCBSEC1 00001 0000F0 01102   1120
JSCBSEC2 00001 000100 01127   1135  1142  1154
JSCBSEC3 00001 000100 01143   1147
JSCBSEC4 00001 000108 01155   1159  1166
JSCBSEC5 00001 000108 01167   1177
JSCBSWT1 00001 0000F3 01105
JSCBS1LN 00001 000010 01120   1181  1182  1183
JSCBS2LN 00001 000008 01135   1154  1182  1183
JSCBS3LN 00001 000000 01147
JSCBS4LN 00001 000000 01159   1182
JSCBS5LN 00001 00000C 01177   1183
JSCBTJID 00002 00010C 01171   1943
JSCBTTTR 00003 0000F0 01104
JSCBWTP  00004 0000FC 01116
KANCEL   00004 000D14 02830   2502
KEYZERO  00001 0000F0 01234   1585
K0       00002 000D74 02846   2714
K0A01    00002 000D76 02847   2720
K112F243 00004 000D18 02831   2535
K13      00004 000CAC 02782   1710
K16F253  00004 000C9C 02779   1720
K16F255  00004 000C98 02777   1460  2313
K2       00004 000D70 02845   2719  2722
K216F253 00004 000D0C 02825   1428  2673
K24F255  00004 000CDC 02798   2216
K243N253 00004 000D8C 02856   1649
K253     00004 000D60 02837   2639
K253CMP  00004 000C8C 02774   1643
K255     00004 000C90 02775   1640  2211
K32      00004 000D10 02826   2675
K32F250  00004 000CEC 02808   2278
K4096    00004 000CA8 02781   1734
K500F252 00004 000CD4 02796   2013
K72F0    00004 000D88 02855
K72F250  00004 000C94 02776   1628  1919  2522  2664
K72F250A 00004 001090 03167   3095
K8F255   00004 000D04 02820   2576  2629
LLCDPTR  00001 000005 01244   2554
LLCHAIN  00001 000001 01242   2574
LLRESPCT 00001 000004 01243   2565
LOGOFF   00001 000E9A 02967
LOGONXIT 00001 000E76 02957   2953
MIN      00001 000004 01214   1981  2221  2244  2556
MODNCORE 00001 0005E0 02055   1986  2051
NCDTOPRB 00001 00059E 02028   2035
NFN      00001 000008 01213   2125
NIC      00001 000040 01210   1985  2067  2148
NIP      00001 000080 01209   2060  2129  2563
NLR      00001 000001 01216
NOACTV   00001 000F90 03086   3083
NOFETCHA 00001 000586 02016   2008
NONEWID  00001 000000 01357   2952
                                             CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

NOPPSAVE 00001 0009FC 02524   2519
NORMALTS 00001 000EEA 03004   2951
NOSCB    00001 000096 01466   1450  1455
NOSCHED  00001 000F54 03064   3057  3061
NOSTOP   00001 0001A6 01573   1568  1570
NOTSO6A  00001 000F08 03020   2939
NOTSPZ   00002 00073C 02188   2185
NOUPDT   00001 000A6E 02572   2564
NXTAXECK 00001 000FBE 03107   3078
NXTRBSWT 00001 00054A 01995   1998
NXTSCB   00002 000090 01464   1452  1457
NXTWTNG  00001 00053E 01989   2054  2106
OCNT     00002 0007D4 02246   2243
ONE      00001 000001 01235   1826
ORDERCDQ 00002 00079E 02227   2201
ORLP     00004 0007BE 02240   2234  2245
ORNEXT   00001 0007A6 02230   2238
OVER     00004 000C52 02752   2750
OVERA    00004 000C66 02757   2753
OVERB    00002 000C6A 02758   2756
PIEPSW   00001 000004 01239   1672
PINPSW   00001 000068 00219   1434
PNONDISP 00001 000040 00540
PRBEND   00004 000020 00679
RBABOPSW 00004 000004 00620
RBATTN   00001 000020 00649   1521  1583  1684  3148
RBCDE    00004 00000C 00729   1966  2007  2009  2017  2017
RBCDE1   00003 00000D 00736
RBCDFLGS 00001 00000C 00730
RBCDLOAD 00001 000001 00735
RBCDSYNC 00001 000004 00733
RBCDWORK 00001 000008 00731
RBCDXCTL 00001 000002 00734
RBECBWT  00001 000001 00661
RBEP     00004 00000C 00740   1758
RBETXR   00001 000010 00651
RBEXRTNM 00008 000000 00704
RBEXSAVE 00004 000060 00699   0761  1543  1545  2010
RBFACTV  00001 000040 00647   1610  1789  3082
RBFDYN   00001 000002 00660   1616  1803  3084
RBFTCKPT 00001 000004 00643
RBFTIRB  00001 000040 00635
RBFTP    00001 0000C0 00633   1490
RBFTPRB  00001 000000 00634
RBFTSIRB 00001 000080 00636
RBFTSVRB 00001 0000C0 00637   1516  1581
RBGRSAVE 00064 000020 00680   1750  1900
RBGRS0   00004 000020 00682
RBGRS1   00004 000024 00683
RBGRS10  00004 000048 00692
RBGRS11  00004 00004C 00693
RBGRS12  00004 000050 00694
RBGRS13  00004 000054 00695
RBGRS14  00004 000058 00696
RBGRS15  00004 00005C 00697
                                             CROSS-REFERENCE                                                   PAGE    9


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RBGRS2   00004 000028 00684
RBGRS3   00004 00002C 00685
RBGRS4   00004 000030 00686
RBGRS5   00004 000034 00687
RBGRS6   00004 000038 00688
RBGRS7   00004 00003C 00689
RBGRS8   00004 000040 00690
RBGRS9   00004 000044 00691
RBIQE    00004 000018 00751   1492  1620  1691  1701  1707  1708  1733
RBIQEA   00002 00001A 00758
RBIQENR  00001 000008 00657
RBIQETP  00001 00000C 00652
RBIQEWRK 00004 000064 00763
RBIQE1   00003 000019 00753
RBIQE2   00004 000018 00756
RBIRBAER 00001 000004 00655
RBIRBAIQ 00001 00000C 00658
RBLINK   00004 00001C 00673   1480  1515  1537  1577  1589  1600  1611  1897  1902  1997  2113
RBLINKB  00003 00001D 00676
RBNEXAV  00004 000060 00762   1712  1714
RBOPSW   00008 000010 00668   1585  1673  1679  1759  1904  1993  2111  2710  2718
RBPGMQ   00004 000018 00744   2030  2036  2036  2037  2037  2046  2052  2053  2053  2082  2088  2088  2089  2089  2092
                              2102  2102  2108
RBPGMQ1  00003 000019 00746
RBPPSAV  00004 000000 00708   1624  1755  3090  3094  3094
RBPPSAV1 00003 000001 00725
RBRQENR  00001 000000 00653
RBRREQ   00001 000003 00724
RBRTLNTH 00002 000002 00618
RBSECT   00001 000000 00584   1405  1482  1486  1548  1579  1592  1601  1784  1802  1896  1918  1964  1991  2030  2036
                              2036  2037  2037  2045  2048  2052  2053  2053  2082  2088  2088  2089  2089  2109  2111
                              2112  2113  2530  2710  2718  3081  3147
RBSIZE   00001 000009 00630   1519  1541  1631  1636  1709
RBSTAB   00002 00000A 00631   1483  1529  1535  1557  1610  1616  1618  1641  1689  1694  1697  1717  1970  2112
RBSTAB1  00001 00000A 00632   1490  1516  1581  2530
RBSTAB2  00001 00000B 00645   1478  1513  1521  1583  1587  1684  1789  1803  1996  3082  3084  3148
RBSVTQN  00004 00000C 00666   0728  0739
RBSVTTR  00003 000019 00672
RBTABNO  00002 000000 00615   0703  0707
RBTAWCSA 00001 000018 00669   0743  0750  0755
RBTCBNXT 00001 000080 00646   1478  1513  1535  1557  1587  1996  2112
RBTIB    00001 000010 00717
RBTID    00001 000030 00718
RBTITU   00001 000000 00716
RBTMCMP  00001 000008 00719
RBTMFLD  00001 000000 00710
RBTMIND1 00001 000030 00715
RBTMIND2 00001 000004 00720
RBTMIND3 00001 000003 00721
RBTMQUE  00001 000080 00713
RBTMTOD  00001 000040 00714
RBTREQ   00001 000000 00722
RBTRSVRB 00001 000010 00638
RBUSE    00001 000018 00752
RBWAITP  00001 000008 00639   2530
                                             CROSS-REFERENCE                                                   PAGE   10


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RBWCF    00001 00001C 00674   1601  1992  2109
RBWCSA   00001 000008 00627
RBWREQ   00001 000001 00723
RCB      00001 000000 00973   2964  2995
RCBACTV  00001 000020 00999
RCBCONID 00001 000044 01062
RCBCUSE  00002 00001A 01012
RCBDEAD  00001 000004 01004
RCBDIECB 00004 000008 00976
RCBECB   00004 000004 00975
RCBEND   00004 000048 01074
RCBEXTNT 00004 00001C 01015
RCBEXTRN 00001 000020 01056
RCBFAT   00001 000002 00994
RCBFBQE  00001 000017 01010
RCBFLG   00001 000015 00983   2965
RCBFLG2  00001 000016 00996
RCBFND   00001 000001 00995
RCBFQU   00001 000080 00984
RCBFRS   00001 000010 00988
RCBFSE   00001 000080 00997
RCBFSI   00001 000020 00986
RCBFSO   00001 000040 00985   2965
RCBIODON 00001 000004 01049
RCBIORSC 00001 000004 01040
RCBIOSTR 00001 000040 01045
RCBLOGPR 00001 000002 01005
RCBLSQSZ 00002 000010 00979
RCBMODFY 00001 000001 01006
RCBNMBR  00001 000012 00980
RCBOCAB  00001 000008 00989
RCBPKEY  00001 000013 00981
RCBPQE   00004 000028 01018
RCBPRG   00016 00002C 01019   1020
RCBQELCM 00001 000020 01037
RCBQELDN 00001 000008 01048
RCBQPL   00016 000038 01020
RCBQUFLG 00001 000042 01043
RCBQUSTR 00001 000080 01044
RCBRCOVR 00001 000040 01024
RCBRCOV0 00001 000000 01026
RCBRCOV1 00001 000004 01027
RCBRCOV2 00001 000008 01028
RCBRCOV3 00001 00000C 01029
RCBRCOV4 00001 000010 01030
RCBRCOV5 00001 000014 01031
RCBRCOV6 00001 000018 01032
RCBRCOV7 00001 00001C 01033
RCBRCT   00004 000000 00974   2996
RCBRMSAL 00001 000010 01058
RCBRMS1U 00001 000008 01059
RCBRQIQC 00001 000008 01039
RCBRQIQD 00001 000001 01051
RCBRSFLG 00001 000041 01034
RCBRSIZE 00002 00000E 00978
                                             CROSS-REFERENCE                                                   PAGE   11


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RCBRSTRT 00001 000080 01035
RCBSDCB  00004 000024 01017
RCBSTAEN 00001 000045 01063
RCBSTAE0 00001 000000 01065
RCBSTAE1 00001 000004 01066
RCBSTAE2 00001 000008 01067
RCBSTAE3 00001 00000C 01068
RCBSTAE4 00001 000010 01069
RCBSTAE5 00001 000014 01070
RCBSTAE6 00001 000018 01071
RCBSTAE7 00001 00001C 01072
RCBSTECB 00004 00003C 01021
RCBSTOP  00001 000040 00998
RCBSTR1  00001 000010 01001
RCBSTR2  00001 000008 01002
RCBSTR3  00001 000004 00991
RCBSTSP  00001 000080 01054
RCBSWTCH 00001 000043 01052
RCBSWTON 00001 000040 01055
RCBTACMP 00001 000001 01042
RCBTADON 00001 000020 01046
RCBTCBDN 00001 000040 01036
RCBTJID  00002 00000C 00977
RCBTQECM 00001 000010 01038
RCBTQEDN 00001 000002 01050
RCBUMSM  00004 000020 01016
RCBUMSMN 00001 000014 00982
RCBUTTMQ 00002 000018 01011
RCBWTORC 00001 000002 01041
RCBWTORD 00001 000010 01047
RCBZQRF  00001 000004 01060
REL      00001 000040 01218   2151
REL217   00004 000CC4 02788   1419
REN      00001 000020 01211   2071  2131
REQOFF   00001 0000DF 01390   1825  1883
RESTART  00001 0004DC 01926   1812
RESTORE  00001 000F04 03018   2973  3001  3007
RINC     00002 000026 02426
RMSCODE  00001 000001 01293   2166
RMSID    00001 0000A0 01292
RQEIOB   00002 000004 01191   1736
RQELNK   00002 000000 01189   1732
SAVEEXIT 00004 001048 03164   2940  3019  3046  3123
SAVERTN  00004 000C78 02765   2748  2762
SCBSTAI  00001 000020 01226   1451
SCVTABLK 00004 000DFC 02902
SCVTAUCT 00004 000DE4 02892
SCVTCDCL 00004 000DC8 02883
SCVTCOMM 00004 000DF8 02901
SCVTCTCB 00004 000E0C 02906
SCVTDQTC 00004 000DD4 02886
SCVTERAS 00004 000DAC 02875
SCVTETCB 00004 000E10 02907
SCVTFMSA 00004 000E34 02916   2195  2749  2751  2752  2754  2761
SCVTGMBR 00004 000DE0 02890
                                             CROSS-REFERENCE                                                   PAGE   12


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SCVTHSKP 00004 000DD8 02887
SCVTLFRM 00004 000DCC 02884
SCVTMSGS 00004 000E30 02915
SCVTMSSQ 00004 000E08 02905
SCVTNFND 00004 000E00 02903
SCVTPABL 00004 000DD0 02885
SCVTPGEQ 00004 000DB4 02878
SCVTPGIO 00004 000DBC 02880
SCVTPGTM 00004 000D9C 02870
SCVTPGWR 00004 000DA0 02871
SCVTQCBO 00004 000DB0 02877
SCVTRACE 00004 000DC0 02881
SCVTRIRB 00004 000DF0 02898
SCVTRMBR 00004 000DB8 02879
SCVTRMSV 00004 000E2C 02914
SCVTRMTC 00004 000E04 02904
SCVTROCT 00004 000DE8 02894
SCVTROQ  00004 000DEC 02896
SCVTRPTR 00004 000DDC 02889
SCVTRQND 00004 000E18 02909
SCVTRTCB 00004 000DF4 02900
SCVTRXLQ 00004 000E14 02908
SCVTSPET 00004 000DA4 02872
SCVTSTXP 00004 000E24 02912
SCVTSVCT 00004 000E20 02911
SCVTSW1  00001 000080 02917   2751  2761
SCVTSW2  00001 000040 02919   2749
SCVTSW3  00001 000020 02921   2195  2752  2754
SCVTTACT 00004 000DA8 02874
SCVTTAR  00004 000E1C 02910
SCVTTASW 00004 000DC4 02882   1872
SCVTTQE  00004 000E28 02913
SER      00001 000010 01212   2100  2131
SETSTOP  00001 0001DA 01594   1584  1588
SHIFT    00004 000B06 02625   2622
SIRBEND  00004 000060 00698
SKIPATTN 00001 0002D0 01688   1685
SKPDECR  00001 000FBE 03105   3103
SKPDEQ   00001 0003FA 01811   1806
SKPTAXPG 00001 0009B0 02495   2490
SPZ      00001 000080 01217   2184
SRCHTCB  00001 000EF4 03010   3014
STAELOOP 00004 000054 01448   1463  1465
STAILOOP 00001 000846 02306   2316
START    00001 000007 01386   1927
STCOUNT  00001 00047E 01875   1842  1848
STPPROFF 00001 0000BF 01225   1574  1597
SVCOPSW  00001 000020 00218   1434  1679
SVCSAV   00001 0000BE 00220
SVRBEND  00004 000090 00701
TAIE     00001 000000 00963   1886
TAIEIAD  00004 000004 00968   1904
TAIEMSGL 00002 000000 00964
TAIEPROC 00001 0004A6 01899   1894
TAIERSAV 00064 000008 00969   1900
                                             CROSS-REFERENCE                                                   PAGE   13


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TAIETGET 00001 000002 00965
TASKSW   00001 000474 01870   1867
TAUSERCT 00001 000000 02891   2892
TAXE     00001 000000 00785   1792  1808  1818  1838  1845  1850  1863  1879  1887  1911  3073  3099
TAXEDEQ  00001 000FAE 03100   3085  3093
TAXEEXIT 00004 00007C 00798
TAXEFKEY 00001 000080 00802
TAXEFMOD 00001 000040 00801
TAXEFND  00001 000F80 03079   3076
TAXEFREQ 00001 000020 00800   1390  1823  1846  1858  1866  1868  3102
TAXEIBUF 00004 000088 00805
TAXEIRB  00004 000000 00787
TAXELNK  00004 000074 00795   1797  1798  1809  1831  1839  1860  3074  3077  3101
TAXENIQE 00004 000060 00788
TAXEPARM 00004 000080 00803
TAXEPRG  00001 000F2A 03039   2860
TAXESTAT 00001 000080 00799   1823  1825  1846  1858  1866  1868  1883  3102
TAXETAIE 00004 000084 00804   1880  1913  1916  1916
TAXETCB  00004 000070 00793   1865  3075
TAXEUSER 00004 00008C 00806
TAXEXPSW 00004 000078 00797
TCB      00001 000000 00237   1404  1940  2143  2152  2229  2251  2334  2488  2647  2648  2650  2650  2653  2654  2656
                              2659  2659  2662  2665  2692  2937  2998  3003  3026  3029  3042
TCBABD   00001 000080 00555
TCBABE   00001 000001 00563
TCBABF   00001 000014 00257
TCBABTER 00001 000040 00569
TCBABTRM 00001 000020 00322   1569
TCBABWF  00001 000040 00355   2338
TCBAQE   00004 00009C 00489
TCBATT   00001 000020 00453   1525  1562
TCBCDBL  00001 000008 00250
TCBCIND  00001 000002 00252
TCBCK    00001 000F6C 03072   3112
TCBCMP   00004 000010 00243   2272  2273  2725
TCBCMPC  00003 000011 00254
TCBCMPF  00001 000010 00244
TCBCMSG  00001 000001 00253
TCBCPP   00001 000020 00247
TCBCPUBN 00001 000001 00458
TCBCREQ  00001 000080 00245
TCBCSTEP 00001 000040 00246
TCBCWTO  00001 000004 00251
TCBDAR   00001 0000AC 00511
TCBDARC  00001 000010 00520
TCBDARD  00001 000020 00517
TCBDARMC 00001 000010 00522
TCBDARO  00001 000008 00525
TCBDAROL 00001 000008 00527
TCBDARP  00001 000080 00512
TCBDARPN 00001 000040 00538   0540
TCBDARS  00001 000040 00514
TCBDARTN 00001 000080 00535   0537
TCBDARWT 00001 000004 00529
TCBDDRND 00001 000008 00547
                                             CROSS-REFERENCE                                                   PAGE   14


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBDEB   00004 000008 00241   2433  2448
TCBDSP   00001 000023 00374
TCBDWSTA 00001 000001 00337
TCBDYDSP 00001 000002 00456
TCBECB   00004 000090 00447   2693
TCBEXSVC 00001 000001 00530
TCBFA    00001 000080 00278   1509  1567  2156  2286  2335  2460
TCBFC    00001 000080 00354   1665  2383
TCBFCD1  00001 000002 00367
TCBFDSOP 00001 000004 00310
TCBFE    00001 000040 00279   2382
TCBFERA  00001 000020 00280
TCBFETXR 00001 000002 00313   2390  2682
TCBFIX   00001 000000 00227
TCBFJMC  00001 000008 00308
TCBFLAG  00001 0000F0 00274
TCBFLGS  00005 00001D 00276   1442  1665  2144  2156  2286  2382  2383  2390  2460  2682
TCBFLGS1 00001 00001D 00277   1509  1567  2335
TCBFLGS2 00001 00001E 00297
TCBFLGS3 00001 00001F 00316   1569
TCBFLGS4 00001 000020 00339
TCBFLGS5 00001 000021 00353   1595  2338
TCBFLREG 00001 000008 00329
TCBFOINP 00001 000080 00298
TCBFRA   00001 000020 00304
TCBFRI   00001 000040 00319
TCBFRO   00001 000010 00362
TCBFRS   00032 000000 00229
TCBFRS0  00008 000000 00230
TCBFRS2  00008 000008 00231
TCBFRS4  00008 000010 00232
TCBFRS6  00008 000018 00233
TCBFS    00001 000002 00292
TCBFSA   00004 000070 00408   2623  2666
TCBFSAB  00003 000071 00413
TCBFSM   00001 000080 00317
TCBFSMC  00001 000010 00306
TCBFSTI  00001 000040 00302
TCBFT    00001 000004 00288
TCBFTCOM 00001 000002 00479
TCBFTDUM 00001 000004 00485
TCBFTETX 00001 000002 00483
TCBFTFLG 00003 000099 00476
TCBFTFL1 00001 000099 00477
TCBFTFL2 00001 00009A 00481
TCBFTFL3 00001 00009B 00484
TCBFTLMP 00001 000098 00475
TCBFTOPN 00001 000004 00482
TCBFTS   00001 000001 00314
TCBFTSYN 00001 000001 00480
TCBFTTOP 00001 000004 00478
TCBFX    00001 000001 00295
TCBGRPH  00001 000020 00261
TCBGRS   00064 000030 00391   1534  1538  1674  1675  1677  1750  1760  1761  2272  2413  2414  2421  2422  2472  2473
TCBGRS0  00004 000030 00392
                                             CROSS-REFERENCE                                                   PAGE   15


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBGRS1  00004 000034 00393
TCBGRS10 00004 000058 00402
TCBGRS11 00004 00005C 00403
TCBGRS12 00004 000060 00404
TCBGRS13 00004 000064 00405
TCBGRS14 00004 000068 00406
TCBGRS15 00004 00006C 00407
TCBGRS2  00004 000038 00394
TCBGRS3  00004 00003C 00395
TCBGRS4  00004 000040 00396
TCBGRS5  00004 000044 00397
TCBGRS6  00004 000048 00398
TCBGRS7  00004 00004C 00399
TCBGRS8  00004 000050 00400
TCBGRS9  00004 000054 00401
TCBGTOFM 00001 000010 00283
TCBHALT  00001 000008 00499
TCBIOBRC 00004 0000BC 00579
TCBIQE   00004 00008C 00445   2685
TCBIWAIT 00001 000008 00561
TCBJLB   00004 000028 00379
TCBJPQ   00004 00002C 00380   2152  2229  2252  2252  2254  2588
TCBJPQB  00003 00002D 00387
TCBJPQF  00001 000080 00386
TCBJSCB  00004 0000B4 00573   1941
TCBJSCBB 00003 0000B5 00577
TCBJSTCA 00003 00007D 00434
TCBJSTCB 00004 00007C 00417   2142  2228  2250  2354  2586  2602  2697
TCBLLS   00004 000024 00375   2551  2575
TCBLMP   00001 000022 00370
TCBLTC   00004 000088 00443   2268  2648  2650  2653  3000
TCBMDIDS 00004 0000B0 00571
TCBMOD91 00001 000080 00258
TCBMPCND 00001 000002 00348
TCBMPCVQ 00001 000004 00347
TCBMSS   00004 000018 00267   2595  2628  2638
TCBMSSB  00003 000019 00271
TCBNDSP1 00001 0000AD 00534
TCBNDSP2 00001 0000AE 00554   1596
TCBNDSP3 00001 0000AF 00566
TCBNDSVC 00001 000020 00558
TCBNDTS  00001 000010 00560
TCBNDUMP 00001 000080 00341
TCBNOCHK 00001 000040 00259
TCBNROC  00001 000018 00269
TCBNSTAE 00001 0000A0 00492   1447  1571  2166  2305
TCBNTC   00004 000080 00438   2650  2654  2656  2659  2659
TCBOLTEP 00001 000002 00264
TCBONDSP 00001 000001 00350
TCBOTC   00004 000084 00441   2333  2647  2662  2735
TCBOWAIT 00001 000004 00562
TCBPART  00001 0000C0 00422
TCBPDUMP 00001 000008 00287
TCBPIBT  00001 00007C 00421
TCBPIE   00004 000004 00240   1670  2275  2281
                                             CROSS-REFERENCE                                                   PAGE   16


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBPKCHG 00001 000002 00333
TCBPKF   00001 00001C 00273   2604
TCBPNDSP 00001 000001 00368   1595
TCBPOOL  00001 000004 00290
TCBPQE   00004 000098 00468   0473
TCBPURGE 00001 00002C 00384
TCBQEL   00001 000070 00409   2291
TCBQUIES 00001 000040 00494
TCBRBP   00004 000000 00239   1611  1745  3030  3030
TCBREC   00001 000080 00575
TCBRECDE 00001 0000B4 00574
TCBRETRY 00001 000002 00502
TCBRQENA 00001 000020 00343
TCBRSPND 00001 000010 00543
TCBRSTND 00001 000020 00541
TCBRV001 00004 0000B8 00578
TCBSCAT  00001 000010 00497
TCBSCH   00001 000004 00331
TCBSCHED 00001 000001 00432
TCBSCNDY 00003 0000AD 00531
TCBSER   00001 000040 00342
TCBSIZE  00001 000020 00428
TCBSTAB  00004 0000A0 00491
TCBSTABB 00003 0000A1 00506
TCBSTABE 00001 000080 00493   1571
TCBSTOP  00001 000010 00429
TCBSTP   00001 000004 00365
TCBSTPCT 00001 000095 00460
TCBSTPP  00001 000040 00557   1596
TCBSTPPR 00001 000040 00451   1225  1560
TCBSUPER 00001 000004 00501
TCBSXPK0 00001 000010 00327
TCBSYS   00001 000008 00363
TCBTCB   00004 000074 00414   3012  3026  3029  3029
TCBTCP   00001 000004 00263
TCBTCPP  00001 000008 00262
TCBTCT   00004 0000A4 00507
TCBTCTB  00003 0000A5 00509
TCBTCTRM 00001 000001 00336
TCBTERM  00001 000080 00567
TCBTIO   00004 00000C 00242
TCBTIOTG 00001 000010 00455
TCBTME   00004 000078 00416   2496  2541
TCBTPSP  00001 000004 00550
TCBTRN   00004 000014 00256
TCBTRNB  00003 000015 00266
TCBTSDP  00001 000097 00464
TCBTSFLG 00001 000094 00449   1525  1560  1562  1574  1597  2133  2489  2938  3128
TCBTSLP  00001 000096 00463
TCBTSTSK 00001 000080 00450   2133  2489  2938  3128
TCBUSER  00004 0000A8 00510
TCBUXNDF 00001 000040 00356
TCBUXNDV 00001 000008 00344
TCBVALID 00001 000001 00504
TCBWFC   00001 000020 00360
                                             CROSS-REFERENCE                                                   PAGE   17


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBWRITE 00001 000002 00431
TCBXCTL  00001 000020 00496
TCBZERO  00001 00000F 00275
TESTNEXT 00001 000408 01819   1832
THREE    00001 000003 01362
TIQEIRB  00004 00006C 00792
TIQELNK  00004 000064 00790
TIQEPARM 00004 000068 00791   1890  1907
TJB      00001 000000 00809   1780  1952  2943  3043
TJBATTN  00001 000004 00811   3065
TJBDDRD  00001 000004 00846
TJBDDRND 00001 000001 00849
TJBDEAD  00001 000001 00832
TJBDISC  00001 000002 00820   2968
TJBDISC2 00001 000080 00869
TJBEND   00004 000030 00875
TJBEXTNT 00004 000008 00833   1953  2958  2958
TJBFAT   00001 000002 00848
TJBFLUSL 00001 000029 00856
TJBGET   00004 000D84 02854   1776
TJBGETA  00004 00108C 03166   2941  3052
TJBGETBF 00001 000004 00865
TJBHOLD  00001 000040 00824   1371
TJBHUNG  00001 000080 00823
TJBINCOR 00001 000040 00815
TJBIPPB  00004 000024 00853
TJBIWAIT 00001 000010 00817
TJBIWP   00001 000040 00841
TJBLINE  00002 00002E 00873
TJBLOGON 00001 000020 00816   2954
TJBLOGP  00001 000010 00843
TJBLWAIT 00001 000008 00844
TJBMDSN  00001 000080 00860
TJBMJBN  00001 000040 00861
TJBMONI  00001 00002C 00859   2961  2961
TJBMSES  00001 000020 00862
TJBMSPA  00001 000010 00863
TJBMSTA  00001 000008 00864
TJBNEWID 00001 000028 00854   2952
TJBNJB   00001 000080 00814   2968
TJBOCAB  00001 000020 00825
TJBOWAIT 00001 000008 00818
TJBOWP   00001 000080 00840
TJBQUIS  00001 000004 00830
TJBRCB   00004 00000C 00834   2963  2994
TJBRNAV  00001 000010 00826
TJBRSTOR 00001 00001A 00839
TJBSDCB  00004 000014 00836   2959  2959
TJBSILF  00001 000004 00819
TJBSILF2 00001 000001 00821
TJBSOEM  00001 000004 00872
TJBSTAT  00001 000006 00813   2954  2968
TJBSTAT2 00001 000007 00822   2962
TJBSTAT3 00001 00002D 00868
TJBSTAX  00001 000005 00812   1815  1876  3067  3121
                                             CROSS-REFERENCE                                                   PAGE   18


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TJBSURSV 00001 000008 00828
TJBTJID  00002 00002A 00858
TJBTSB   00004 000000 00810
TJBUMSM  00004 000010 00835
TJBUMSMN 00001 00001B 00851
TJBUSER  00008 00001C 00852   2960  2960
TJBUSERR 00001 000002 00831
TJBUTTMP 00001 000080 00838
TJBUTTMQ 00002 000018 00837
TJBX     00001 000000 00878   1778  2945  3044
TJBXACT  00004 00003C 00898
TJBXAECB 00004 000040 00899
TJBXAIQE 00004 00002C 00890   3055  3062  3062
TJBXATTR 00004 000028 00888
TJBXDSE  00004 000008 00881
TJBXFST  00004 000000 00879   2949
TJBXHBFL 00001 00003A 00895
TJBXIQE  00004 000014 00884
TJBXKEYA 00004 000044 00901
TJBXLAST 00004 000004 00880   2950  3005  3016
TJBXLECB 00004 00001C 00886
TJBXLQPL 00002 000038 00894
TJBXNQPE 00002 000034 00892
TJBXNTCB 00002 000036 00893   2946  2948
TJBXPSWD 00008 000020 00887
TJBXQPL  00004 000030 00891
TJBXRQE  00004 000010 00883
TJBXSVRB 00004 00000C 00882
TJBXTAXE 00004 000018 00885   1781  1782  1816  1852  3068  3069
TNONDISP 00001 000080 00537
TQEECB   00001 000060 01252   2529
TQEFLGS  00001 000000 01250   2499  2525  2527
TQENWT   00001 000A14 02533   2526  2528
TQESAADR 00001 000018 01251   2516  2520  2520
TRPTR    00001 000000 02888   2889
TSCASTOP 00001 000020 00920
TSCCODE  00001 000002 01365   2986
TSCDISC  00001 000010 00914   2970
TSCECB   00004 000000 00767   2989
TSCECB1  00004 000004 00768
TSCECB2  00004 000008 00769
TSCECB3  00004 00000C 00770
TSCECB4  00004 000010 00772
TSCECB5  00004 000014 00776
TSCECB6  00004 000018 00778
TSCECB7  00004 00001C 00779
TSCECB8  00004 000020 00782
TSCLOGON 00001 000020 00913   2955
TSCLOGPR 00001 000010 00922
TSCRSTOP 00001 000040 00919
TSCSSTOP 00001 000080 00918
TSCSWPBG 00001 000040 00912
TSCSWPND 00001 000080 00911
TSCVT    00001 000000 00905   1779  1946  2944
TSCVTABN 00004 000068 00953
                                             CROSS-REFERENCE                                                   PAGE   19


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TSCVTCTR 00002 00001C 00931
TSCVTCUS 00002 000014 00926
TSCVTDMP 00004 00007C 00958
TSCVTD02 00004 000040 00942
TSCVTD03 00004 00006C 00954
TSCVTECB 00004 000024 00935   2987
TSCVTFLG 00001 00000C 00909   2955  2970
TSCVTFLM 00004 000070 00955
TSCVTFL1 00001 00000E 00916
TSCVTICB 00004 00002C 00937
TSCVTI01 00004 000030 00938   2975
TSCVTI02 00004 000038 00940
TSCVTI03 00004 00003C 00941
TSCVTLCQ 00004 000044 00943
TSCVTLPA 00004 00004C 00945
TSCVTLS3 00004 000084 00960
TSCVTLUS 00002 000016 00927
TSCVTMUS 00002 00001E 00932
TSCVTNTJ 00002 000018 00929
TSCVTQTP 00004 000074 00956
TSCVTRCB 00004 000004 00907
TSCVTRPT 00004 000008 00908
TSCVTRSZ 00002 00005C 00949
TSCVTSAV 00004 000020 00934
TSCVTSDC 00004 000010 00925
TSCVTSIA 00004 000028 00936
TSCVTSLF 00004 000050 00946
TSCVTSPL 00004 000058 00948
TSCVTSVQ 00004 000064 00952
TSCVTSVT 00004 000060 00951
TSCVTSZU 00002 00001A 00930   1948
TSCVTTJB 00004 000000 00906   1949
TSCVTTQE 00004 000034 00939
TSCVTTRB 00004 000048 00944
TSCVTTSC 00004 000054 00947   2991
TSCVTT06 00004 000080 00959
TSCVTT08 00004 000078 00957
TSECB    00001 000000 00766   2988
TSOCURNT 00001 0003EC 01801   1794
TSTEST   00001 0003C6 01785   1799
WORD     00001 000004 01356   1809  1904  2958  2961  3062  3101
WORD16   00001 000040 01367   1900
WTFSTNTY 00001 000566 02006   1988
WTJSTIME 00004 000CCC 02794   1501  2359
XACTV    00001 00000B 01382   1783  1783  1795  1835  1835  1839  1841  1841  1845  1849  1856  1863  1877
XAIQE    00001 000008 01385   3055  3056  3056  3059
XBASE    00001 00000F 01380   1770  1871  1874  1920  1922  1930  1933  1935
XBSE     00001 000002 01263   1410  1411  1503  1554  1741  2261  2349  2350  2371  2373  2691
XCBSE    00001 000006 01325   2431  2432  2476
XCDBSE   00001 000002 01296   1962  1963  2123  2124  2199  2200  2257  2569  2570  2592  2593
XCDE     00001 00000B 01300   1407  1844  1878  1966  1967  1967  1968  1968  1983  1984  1984  1999  2003  2060  2217
                              2223  2233  2554  2555  2555  2556  2559  2560  2560  2563  2588  2589  2589  2590  2590
XCDEP    00001 00000B 01299   2116  2117
XCDRETN  00001 00000E 01302   1969  1971  2001  2002  2005  2012  2014  2015  2023  2033  2038  2085  2090  2098
XCDWK    00001 00000A 01309   2214  2215  2215  2219  2219  2221  2223
                                             CROSS-REFERENCE                                                   PAGE   20


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

XCODE    00001 00000A 01364   2985  2985  2986
XCS03    00001 000007 01297   2110  2111
XCT      00001 00000D 01301   2001  2005  2012  2015  2058  2058  2059  2062  2062  2064  2065  2081  2082  2088  2103
                              2104  2104  2105
XCTLSTAE 00001 000080 01224   1456
XCVT     00001 000003 01265   1403  1418  1419  1420  1420  1475  1744  2366  2367  2369  2370  2372  2374  2375  2553
                              2598  2641  2663  3045  3050  3133
XDEB     00001 000003 01264   1736
XDMRETN  00001 00000C 01310   2159  2220  2222  2593
XDTCB    00001 000007 01335   2392  2395  2647  2648  2650  2654  2659  2662  2665  2667  2674
XENTRY   00001 00000F 01388   1872  1873  2492  2493  2975
XEN01    00001 00000C 01286   1511  1527  1531  1539  1551
XEN02    00001 000009 01281   1735  1738  3138  3139  3151  3154
XEN03    00001 00000C 01287   1762  1763
XEP      00001 00000F 01290   1758  1759
XFIRST   00001 00000A 01368   2949  2950  3009  3011  3016
XGETTJB  00001 00000A 01394   1776  1777  1939  1956  2941  2942  3052  3053
XHKRETN  00001 00000D 01305   2098  2128  2130  2154  2159  2570
XIOB     00001 000002 01262   1264  1736
XIOBSE   00001 000005 01268   1734
XIQE     00001 000006 01270   1406  1547  1593  1691  1692  1692  1696  1714  1719  1737  2354  2355  2355  2356
XJSCB    00001 000001 01349   1941  1942  1944
XLINK    00001 00000F 01377   1686  1687
XLNGH    00001 000000 01258   1460  1628  1631  1635  1635  1636  1639  1640  1643  1649  1720  2313
XLOC     00001 000001 01261   1458  1624  1625  1625  1626  1626  1638  1647  1719  1721  1721  2311
XMBSE    00001 000006 01322   2584  2585
XNEW     00001 000007 01272   1604  1605  1608  2339  2340  2343
XNIQE    00001 000000 01259   1696  1705  1706  1707
XNOWAITR 00001 00000C 01285   1476  1479  1484  1489  1499
XNRB     00001 000006 01271   1480  1482  1485  1537  1538  1577  1579  1589  1591  1600  1601  2333  2334  2336  2342
                              2342  2343
XNTRY    00001 00000F 01233
XNXA     00001 000008 01279   1712  1713
XNXTCB   00001 000008 01363   3003  3009  3011  3012  3013  3017
XOCREP   00001 000006 01314   2293  2294
XODRETN  00001 00000E 01318   2201  2236  2253  2256
XORWK    00001 000008 01317   2228  2229  2229  2231  2237  2247  2248  2249
XOTCB    00001 000009 01344
XPBASE   00001 000006 01393   3048  3049  3124
XPECB    00001 00000B 01358   2987  2988  2989  2990
XPIE     00001 000006 01269   1670  1671  1672
XPOST    00001 00000F 01373   2992  2993
XPREV    00001 00000D 01381   1782  1797  1809  3069  3077  3101
XPSAV    00001 00000D 01288   1755  1756  1756
XPTCB    00001 00000C 01359   2991
XRB      00001 000005 01267   1405  1481  1486  1511  1515  1527  1548  1578  1592  1638  1745  1793  1828  1879  1884
                              1885  1887  1907  1911  1917  1918  1964  1987  1990  2020  2034  2048  2078  2086  2088
                              2089  2089
XRBSAV   00001 00000C 01345   2729
XRBSE    00001 000006 01334   2935  2936  3034
XRCB     00001 00000A 01374   2994  2995  2997
XRCT     00001 00000A 01375   2996  2998  3002
XRET     00001 00000E 01232
XRETN    00001 00000E 01289   1502  1503  1551  1552  1553  1555  1629  1663  1664  1664  1676  1677  1680  1681  1757
                              1921  2265  2266  2266  2279  2284  2294  2297  2319  2328  2344  2345  2348  2360  2361
                                             CROSS-REFERENCE                                                   PAGE   21


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              2363  2377  2379  2380  2380  2385  2393  2403  2435  2453  2463  2466  2498  2505  2510
                              2514  2523  2538  2542  2661  2661  2677  2677  2678  2683  2695  2727  2727  2738  3033
                              3096  3097  3097  3120  3129  3157
XRETURN  00001 00000E 01378   1687  1777  1873  1925  1932  1954  2491  2493  2494  2942  3053  3125
XREUS    00001 00000A 01298   1987  1991  1994  1997  2004  2043  2044  2046  2049  2049  2050  2050  2074  2075  2075
                              2076  2076  2078  2081  2082  2083  2083  2084  2084  2086  2092  2093  2093  2094  2094
                              2109  2111  2112  2113  2113  2115  2115
XRE02    00001 000008 01280   1738  1740  1742
XSAVE    00001 000007 01360   2491  2494
XSBSE    00001 000006 01333   2645  2646  2679
XSCBCURR 00001 000001 01228
XSCBNEXT 00001 000007 01229
XSPNOBYT 00001 000000 01231
XSPQE    00001 000002 01321   2595  2596  2596  2597  2597  2600  2606  2608  2611  2620  2628  2630  2631
XSTATUS  00001 00000F 01383   1931  1932  3119  3120
XSTAX    00001 00000C 01387   1814  1814  1815  1826  1826  1859  1869  1876  3066  3066  3067  3104  3121
XSUBSE   00001 000006 01330   2549  2550
XTAIE    00001 000001 01389   1880  1881  1881  1886  1910  1913  1914  1914
XTAXE    00001 000009 01379   1781  1784  1786  1786  1787  1787  1791  1792  1793  1795  1798  1800  1802  1807  1808
                              1817  1838  1843  3068  3070  3070  3073  3080  3081  3098  3099  3106  3111
XTCB     00001 000004 01266   1404  1453  1477  1477  1605  1940  2340  2356  2392  2488  2586  2602  2662  2692  2697
                              2729  2937  3005  3013  3023  3042  3060  3075  3144
XTCBNUM  00001 00000A 01366   2946  2947  2948
XTCBSW   00001 00000A 01391   1865
XTJB     00001 000002 01354   1780  1947  1948  1949  1952  1955  2943  3043
XTJBX    00001 000007 01355   1778  1953  2945  3044
XTJID    00001 000008 01350   1943  1947  2977
XTMBSE   00001 000006 01341   2482  2483  2511  3130  3131  3159
XTMENTR  00001 000002 01340   2504  2506  2506  2507  2509
XTOWAITR 00001 00000B 01284
XTSCVT   00001 000009 01352   1779  1945  1946  1957  2944
XW       00001 000007 01273   1672  1672  1673  1674  1674  1675  1675
XWK      00001 000008 01278   1413  1414  1417  1418  1533  1534  1607  1607  1608  3132  3134  3135  3135  3136  3138
                              3139  3140  3140  3142  3146  3151  3152  3156
XWKA     00001 000007 01274   1448  1449  1449  1451  1453  1456  1458  1459  1464  2268  2269  2269  2406  2406  2407
                              2433  2434  2434  2444  2449  2451  2551  2552  2552  2554  2565  2573  2574  2574  2575
                              2699  2700  2700  2708  2710  2713  2718
XWKB     00001 000008 01277   1994  2004  2142  2143  2152  2152  2153  2158  2307  2308  2308  2309  2309  2311  2312
                              2443  2444  2445  2446  2647  2648  2650  2653  2653  2654  2656  2656  2659  2713  2714
                              2715  3025  3029
XWKC     00001 000009 01326   1447  1448  1459  1464  2305  2307  2312  2448  2449  2451
XWKTXP   00001 000001 01392   3090  3091  3091  3092  3092
XWORK    00001 000008 01376   1885  1889  1889  1890  1896  1897  1902  1909  2999  2999  3000
XWORK3   00001 000003 01353   1871  1874  1920  1922  1930  1933
XWTAXE   00001 00000A 01384   1816  1818  1820  1820  1828  1831  1837  1850  1852  1854  1854  1856  1860  1862  3074
                              3108  3108  3111
XXL      00001 000008 01308   2169  2170  2170  2171  2171  2173  2174  2174  2175  2177  2178  2179
X0       00001 000000 01257   1441  1506  1732  1733  1746  1746  1753  1771  1859  1869  1919  1924  1927  2013  2180
                              2181  2210  2211  2216  2247  2249  2278  2358  2362  2413  2421  2472  2522  2535  2561
                              2561  2562  2565  2567  2576  2599  2599  2616  2619  2620  2621  2621  2625  2629  2639
                              2664  2673  2725  2735  2940  2947  3019  3040  3046  3048  3095  3117  3123
X1       00001 000001 01260   1700  1700  1701  1702  1702  1704  1708  1709  1710  1725  1727  1727  1737  1753  1928
                              1928  2010  2011  2011  2018  2019  2019  2020  2022  2022  2029  2030  2031  2031  2032
                              2032  2034  2036  2037  2037  2043  2045  2047  2052  2053  2053  2173  2176  2177  2179
                              2181  2182  2182  2202  2207  2207  2208  2208  2210  2212  2212  2217  2231  2232  2232
                                             CROSS-REFERENCE                                                   PAGE   22


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              2233  2235  2235  2237  2240  2240  2241  2241  2242  2242  2244  2248  2250  2251  2255
                              2275  2276  2276  2280  2280  2281  2394  2395  2397  2398  2398  2402  2404  2404  2407
                              2412  2420  2471  2496  2497  2497  2499  2515  2516  2516  2517  2517  2518  2518  2529
                              2530  2534  2562  2566  2567  2568  2573  2611  2612  2612  2613  2613  2614  2614  2616
                              2619  2623  2630  2637  2637  2638  2666  2668  2668  2669  2669  2674  2675  2685  2686
                              2686  2693  2694  2694  2699  2702  2704  2706  2736  3021  3023  3025  3026  3026  3118
                              3118
X10      00001 00000A 01282   1812  1934  2503  2513  2539  2540  2540  2541  3142  3143  3143  3144  3146  3147  3150
X11      00001 00000B 01283   2514  2538  3132  3136  3152  3154  3156
X14      00001 00000E 01236   2993
X15      00001 00000F 01291   1441  1506  1771  1924  2000  2002  2318  2319  2327  2328  2358  2362  2464  2502  2712
                              2712  2715  2716  2716  2718  2719  2720  2722  2723  2728  2730  2940  2963  2964  2966
                              3019  3040  3041  3046  3047  3123
X7       00001 000007 01275   1706  1725  1999  2003  2029  2030  2036  2515  2520  2520  2525  2527  2529  2534
X8       00001 000008 01276   1487  1488  1492  1493  1493  1494  1494  1496  1496  1497  1497  1498  1498  1501  1502
                              2359  2360  2513
ZERO     00001 000000 01230   1809  3101  3104
ZEROATTN 00001 000000 01395   3065
ZEROFL   00001 000000 01370
ZEROPTR  00002 000A24 02540



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  5798
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 5456 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.TSOGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21TA7.R0000103       SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21TA7.S0000104       SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21TA7.S0000104       DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG8     / START 78240.1944
IEF374I STEP /SG8     / STOP  78240.1945 CPU   0MIN 01.79SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:44:57.92   ALLOC START    19:44:57.93   MAIN REGION ----- 300K                          *
*   STEP NAME SG8        STEP END TIME  19:45:00.23   PGM START TIME 19:44:58.02   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.31   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:01.79   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ---------- 157       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0    *
*   0151 ---------- 169       0151 ---------- 207       0151 ---------- 384       0353 ---------- 683       0151 ---------- 139    *
*   0130 ------------ 5                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21TA7  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:00.26   ALLOC START    19:45:00.28   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:00.31   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.TSOGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21TA7  / START 78240.1944
IEF376I  JOB /R21TA7  / STOP  78240.1945 CPU   0MIN 01.79SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21TA7     JOB READ TIME 19:44:48.74   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.79   *
*   JOB CLASS A          JOB INIT TIME 19:44:57.92   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:02.41   *
*   ACCOUNT              JOB END TIME  19:45:00.33   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   8888888                                        A
            RRRRRRRRR  222222222      11        AAA     MM     MM  888888888                                      AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  88     88                                     AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM  88     88                                    AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM   8888888                                    AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM   8888888                                    AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM  88     88                                   AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  88     88                                   AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM  888888888                                   AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM   8888888                                    AA     AA

***********A  START   R21AM8     SYS SYSA   WTR 00E   07:46:06 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM8     START  A***********
***********A  START   R21AM8     SYS SYSA   WTR 00E   07:46:06 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM8     START  A***********
***********A  START   R21AM8     SYS SYSA   WTR 00E   07:46:06 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM8     START  A***********
***********A  START   R21AM8     SYS SYSA   WTR 00E   07:46:06 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM8     START  A***********
***********A  START   R21AM8     SYS SYSA   WTR 00E   07:46:06 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM8     START  A***********


//R21AM8 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG9 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEAQBK00)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM8   SG9
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IGFDDR01  ER  01
IGFDDRSR  ER  02
IEAQBK00  SD  03 000000 00BDC8
IEAHEAD   LD     000020         03
IEWFTRAN  ER  04
IEAQTR00  ER  05
IEAQTR04  ER  06
IEAERTCB  LD     002920         03
IEAMSTCB  LD     002C30         03
IEECVTCB  LD     002A30         03
IEATCB1   LD     000020         03
IEATCB2   LD     000168         03
IEATCB3   LD     0002B0         03
IEATCB4   LD     0003F8         03
IEATCB5   LD     000540         03
IEATCB6   LD     000688         03
IEATCB7   LD     0007D0         03
IEATCB8   LD     000918         03
IEATCB9   LD     000A60         03
IEATCB10  LD     000BA8         03
IEATCB11  LD     000CF0         03
IEATCB12  LD     000E38         03
IEATCB13  LD     000F80         03
IEATCB14  LD     0010C8         03
IEATCB15  LD     001210         03
IEATCB16  LD     001358         03
IEATCB17  LD     0014A0         03
IEATCB18  LD     0015E8         03
IEATCB19  LD     001730         03
IEATCB20  LD     001878         03
IEATCB21  LD     0019C0         03
IEATCB22  LD     001B08         03
IEATCB23  LD     001C50         03
IEATCB24  LD     001D98         03
IEATCB25  LD     001EE0         03
IEATCB26  LD     002028         03
IEATCB27  LD     002170         03
IEATCB28  LD     0022B8         03
IEATCB29  LD     002400         03
IEATCB30  LD     002548         03
IEATCB31  LD     002690         03
IEATCB32  LD     0027D8         03
IEAROTCB  LD     002A00         03
IEAROIRB  LD     002A08         03
IEECVPRB  LD     002AF0         03
IEECVCTW  ER  07
IGFRMTCB  LD     002B30         03
DDRRB     LD     002BF0         03
DDRDEB    ER  08
IGF201    ER  09
IORMSWT   ER  0A
IORMSSVC  ER  0B
IEAQTAQ   LD     002D10         03
IEAQTAQ1  LD     002F18         03
TAIOB1    LD     002F18         03
                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    2
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                             8/28/78


TAIOB2    LD     003360         03
TAIOB3    LD     0037A8         03
TAIOB4    LD     003BF0         03
TAIOB5    LD     004038         03
TAIOB6    LD     004480         03
TAIOB7    LD     0048C8         03
TAIOB8    LD     004D10         03
TAIOB9    LD     005158         03
TAIOB10   LD     0055A0         03
TAIOB11   LD     0059E8         03
TAIOB12   LD     005E30         03
TAIOB13   LD     006278         03
TAIOB14   LD     0066C0         03
TAIOB15   LD     006B08         03
TAIOB16   LD     006F50         03
TAIOB17   LD     007398         03
TAIOB18   LD     0077E0         03
TAIOB19   LD     007C28         03
TAIOB20   LD     008070         03
TAIOB21   LD     0084B8         03
TAIOB22   LD     008900         03
TAIOB23   LD     008D48         03
TAIOB24   LD     009190         03
TAIOB25   LD     0095D8         03
TAIOB26   LD     009A20         03
TAIOB27   LD     009E68         03
TAIOB28   LD     00A2B0         03
TAIOB29   LD     00A6F8         03
TAIOB30   LD     00AB40         03
TAIOB31   LD     00AF88         03
TAIOB32   LD     00B3D0         03
IEAERRTA  LD     00B860         03
IEAERWA   LD     00B818         03
LINKDCB   LD     00BC34         03
SVCDCB    LD     00BC38         03
IEAQLPAQ  LD     00BC68         03
IECXAPG   ER  0C
IEASVDCB  LD     00BC38         03
IEFLINK   LD     00BC34         03
IEATSCE   LD     00BC70         03
IEATSTQE  LD     00BC78         03
IEATCBP   ER  0D
IEA0EF00  ER  0E
IEFLINK   ER  0F
IEFJOB    ER  10
IEA0VL00  ER  11
IECPCNVT  ER  12
IECPRLTV  ER  13
IECILK1   ER  14
IECILK2   ER  15
IECXTLER  ER  16
IEA0AB00  ER  17
IEEMSER   ER  18
IECZDTAB  ER  19
IECXITP   ER  1A
                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    3
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                             8/28/78


IEASVDCB  ER  1B
IEATPC    ER  1C
IECPBLDL  ER  1D
IEECUCB   ER  1E
IEAQTE00  ER  1F
IEAQTD00  ER  20
IECSTB    ER  21
IFBDCB    ER  22
IECIOQET  ER  23
IECIXAVL  ER  24
IEWFBOSV  ER  25
IEA0DS    ER  26
IECILCH   ER  27
IECIERLC  ER  28
IEA0PT01  ER  29
IEAHEAD   ER  2A
IEFQMWR   ER  2B
IEAQCDSR  ER  2C
IEAQLPAQ  ER  2D
IEABEND   ER  2E
IEATSCE   ER  2F
IEAPATCH  ER  30
IEC0SCR1  ER  31
IHLCMT    ER  32
IEAASPRG  ER  33
IEAQMSGS  ER  34
IFG019RA  ER  35
IEACVT    LD     00BCA0         03
IEA0VL01  ER  36
IEARCTRS  LD     00BDBC         03
IEAROICT  LD     00BDBC         03
IEAROQCT  LD     00BDBE         03
IEAROQUE  LD     00BDC0         03
IEAROPRM  LD     00BDC4         03
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2         IEAQBK 15,,                                        XXXXXXXXXXXXXXX
                                                       ,                                              XXXXXXXXXX
                                                       (0,0,                                            XXXXXXXX
                                                       0,0,                                             XXXXXXXX
                                                       0,0,                                             XXXXXXXX
                                                       0,0,                                             XXXXXXXX
                                                       0,0,                                             XXXXXXXX
                                                       0,0,                                             XXXXXXXX
                                                       0,0,                                             XXXXXXXX
                                                       0),0,         MP65                               XXXXXXXX
                                                       1,                      19022                    XXXXXXXXX
                                                       FLAG=226,FLAGB=32,           20071                  XXXXXXXXXX
                                                       PATCH=YES,RPS=YES,WARN=0
                                      3+         EXTRN IGFDDR01 19022
                                      4+         EXTRN IGFDDRSR 19022
000000                                5+IEAQBK00 START 0 RORI
                                      6+         ENTRY IEAHEAD RORI
                                      7+         EXTRN IEWFTRAN RORI
                                      8+         EXTRN IEAQTR00 RORI
                                      9+         EXTRN IEAQTR04 RORI
                                     10+         ENTRY IEAERTCB RORI
                                     11+         ENTRY IEAMSTCB RORI
                                     12+         ENTRY IEECVTCB RORI
                                     13+         ENTRY IEATCB1


000000                               15+         DS    0D RORI
000000 0000000000000000              16+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
000020                               17+IEAHEAD  DS    0D RORI
000020 000000E0                      18+IEATCB1  DC    A(RB1) TCB POINTER TO TOP RB              RORI
000024 00000000                      19+         DC    A(0) TCB POINTER TO PIE                 RORI
000028 00000000                      20+         DC    A(0) TCB POINTER TO DEB              19022
00002C 00000000                      21+         DC    A(0) TCB POINTER TO TIOT
000030 00000000                      22+         DC    F'0' TCB COMPLETION CODE
000034 00000000                      23+         DC    F'0' TCB TEST RAN FIELD
000038 00000000                      24+         DC    A(0) TCB POINTER TO SPQE
00003C 00                            25+         DC    X'00' TCB PROTECT KEY
00003D 00                            26+         DC    X'00' TCB 1ST BYTE OF FLAGS
00003E 00                            27+         DC    X'00' TCB 2ND BYTE OF FLAGS
00003F 80                            28+         DC    X'80' 0CB 3RD BYTE OF FLAGS
000040 0000                          29+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
000042 FF                            30+         DC    X'FF' TCB LIMIT PRIORITY
000043 FF                            31+         DC    X'FF' TCB DISPATCHING PRIORITY
000044 00000000                      32+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
000048 00000000                      33+         DC    A(0) TCB POINTER TO JOB LIB DCB
00004C 00000000                      34+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
000050 00000000                      35+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
000054 00000000                      36+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
000058 00002D18                      37+         DC    A(TACT1) TCB SAVE AREA FOR GENERAL REGISTER2
00005C 0000BCA0                      38+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
000060 00000020                      39+         DC    A(IEATCB1) TCB SAVE AREA FOR GENERAL REGISTER4
000064 000000E0                      40+         DC    A(RB1) TCB SAVE AREA FOR GENERAL REGISTER5
000068 00000000                      41+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
00006C 00002F18                      42+         DC    A(TAIOB1) TCB SAVE AREA FOR GENERAL REGISTER7
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000070 00000000                      43+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
000074 00000000                      44+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
000078 00002D10                      45+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
00007C 00000000                      46+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
000080 00000000                      47+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
000084 00000000                      48+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
000088 00000000                      49+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
00008C 00000000                      50+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
000090 00                            51+         DC    X'00' TCB NUMBER OF QUEUED QELS
000091 000000                        52+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
000094 00000168                      53+         DC    A(IEATCB2) TCB POINTER TO NEXT TCB ON READY Q.
000098 00000000                      54+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
00009C 00000020                      55+         DC    A(IEATCB1) TCB POINTER TO JOB STEP TCB
0000A0 00000000                      56+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
0000A4 00002C30                      57+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
0000A8 00000000                      58+         DC    A(0) TCB POINTER TO LAST TCB.       19022
0000AC 00000000                      59+         DC    A(0) TCB POINTER TO IQE
0000B0 00000000                      60+         DC    A(0) TCB POINTER TO ECB
0000B4 00000000                      61+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
0000B8 00000000                      62+         DC    A(0) TCB POINTER TO PQE
0000BC 00000000                      63+         DC    A(0) TCB POINTER TO AQE              MO17
0000C0 00000000                      64+         DC    A(0) TCB POINTER TO STAE             MO17
0000C4 00000000                      65+         DC    A(0) TCB POINTER TO TCT              MO17
0000C8 00000000                      66+         DC    A(0) TCB POINTER TO USER FIELD       MO17
0000CC 00                            67+         DC    AL1(0) TCB DAR FLAGS                   DAR
0000CD 000000                        68+         DC    AL3(0) RESERVED                        DAR
0000D0 00000000                      69+         DC    AL4(0) RESERVED                        I254
0000D4 00                            70+         DC    AL1(0) RESERVED                        I254
0000D5 000000                        71+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
0000D8 0000000000000000              72+         DC    2F'0' BD A58667
                                     73+*
                                     74                *, RB AT TOP OF IEATCB1 'S RB QUEUE
                                     75+*
0000E0                               76+RB1      DS    0D START RB
0000E0 00000000                      77+         DC    F'0' NOT USED
0000E4 00000000                      78+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
0000E8 00                            79+         DC    X'00' WAIT COUNT SAVE AREA
0000E9 0D                            80+         DC    X'0D' RB SIZE
0000EA C080                          81+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
0000EC 00000000                      82+         DC    F'0' CONTENTS FIELD
0000F0 00040000                      83+         DC    X'00040000' 1ST WORD OF RBOPSW
0000F4 00000000                      84+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
0000F8 00000000                      85+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
0000FC 01                            86+         DC    X'01' WAIT COUNT
0000FD 000020                        87+         DC    AL3(IEATCB1) RB POINTER TO TCB
000100 0000000000000000              88+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                     89+         ENTRY IEATCB2


000148                               91+         DS    0D RORI
000148 0000000000000000              92+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
000168                               93+         DS    0D RORI
000168 00000228                      94+IEATCB2  DC    A(RB2) TCB POINTER TO TOP RB              RORI
00016C 00000000                      95+         DC    A(0) TCB POINTER TO PIE                 RORI
000170 00000000                      96+         DC    A(0) TCB POINTER TO DEB              19022
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000174 00000000                      97+         DC    A(0) TCB POINTER TO TIOT
000178 00000000                      98+         DC    F'0' TCB COMPLETION CODE
00017C 00000000                      99+         DC    F'0' TCB TEST RAN FIELD
000180 00000000                     100+         DC    A(0) TCB POINTER TO SPQE
000184 00                           101+         DC    X'00' TCB PROTECT KEY
000185 00                           102+         DC    X'00' TCB 1ST BYTE OF FLAGS
000186 00                           103+         DC    X'00' TCB 2ND BYTE OF FLAGS
000187 80                           104+         DC    X'80' 0CB 3RD BYTE OF FLAGS
000188 0000                         105+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
00018A FF                           106+         DC    X'FF' TCB LIMIT PRIORITY
00018B FF                           107+         DC    X'FF' TCB DISPATCHING PRIORITY
00018C 00000000                     108+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
000190 00000000                     109+         DC    A(0) TCB POINTER TO JOB LIB DCB
000194 00000000                     110+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
000198 00000000                     111+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
00019C 00000000                     112+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
0001A0 00002D28                     113+         DC    A(TACT2) TCB SAVE AREA FOR GENERAL REGISTER2
0001A4 0000BCA0                     114+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
0001A8 00000168                     115+         DC    A(IEATCB2) TCB SAVE AREA FOR GENERAL REGISTER4
0001AC 00000228                     116+         DC    A(RB2) TCB SAVE AREA FOR GENERAL REGISTER5
0001B0 00000000                     117+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
0001B4 00003360                     118+         DC    A(TAIOB2) TCB SAVE AREA FOR GENERAL REGISTER7
0001B8 00000000                     119+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
0001BC 00000000                     120+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
0001C0 00002D10                     121+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
0001C4 00000000                     122+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
0001C8 00000000                     123+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
0001CC 00000000                     124+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
0001D0 00000000                     125+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
0001D4 00000000                     126+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
0001D8 00                           127+         DC    X'00' TCB NUMBER OF QUEUED QELS
0001D9 000000                       128+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
0001DC 000002B0                     129+         DC    A(IEATCB3) TCB POINTER TO NEXT TCB ON READY Q.
0001E0 00000000                     130+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
0001E4 00000168                     131+         DC    A(IEATCB2) TCB POINTER TO JOB STEP TCB
0001E8 00000000                     132+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
0001EC 00002C30                     133+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
0001F0 00000000                     134+         DC    A(0) TCB POINTER TO LAST TCB.       19022
0001F4 00000000                     135+         DC    A(0) TCB POINTER TO IQE
0001F8 00000000                     136+         DC    A(0) TCB POINTER TO ECB
0001FC 00000000                     137+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
000200 00000000                     138+         DC    A(0) TCB POINTER TO PQE
000204 00000000                     139+         DC    A(0) TCB POINTER TO AQE              MO17
000208 00000000                     140+         DC    A(0) TCB POINTER TO STAE             MO17
00020C 00000000                     141+         DC    A(0) TCB POINTER TO TCT              MO17
000210 00000000                     142+         DC    A(0) TCB POINTER TO USER FIELD       MO17
000214 00                           143+         DC    AL1(0) TCB DAR FLAGS                   DAR
000215 000000                       144+         DC    AL3(0) RESERVED                        DAR
000218 00000000                     145+         DC    AL4(0) RESERVED                        I254
00021C 00                           146+         DC    AL1(0) RESERVED                        I254
00021D 000000                       147+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
000220 0000000000000000             148+         DC    2F'0' BD A58667
                                    149+*
                                    150                *, RB AT TOP OF IEATCB2 'S RB QUEUE
                                    151+*
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000228                              152+RB2      DS    0D START RB
000228 00000000                     153+         DC    F'0' NOT USED
00022C 00000000                     154+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
000230 00                           155+         DC    X'00' WAIT COUNT SAVE AREA
000231 0D                           156+         DC    X'0D' RB SIZE
000232 C080                         157+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
000234 00000000                     158+         DC    F'0' CONTENTS FIELD
000238 00040000                     159+         DC    X'00040000' 1ST WORD OF RBOPSW
00023C 00000000                     160+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
000240 00000000                     161+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
000244 01                           162+         DC    X'01' WAIT COUNT
000245 000168                       163+         DC    AL3(IEATCB2) RB POINTER TO TCB
000248 0000000000000000             164+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                    165+         ENTRY IEATCB3


000290                              167+         DS    0D RORI
000290 0000000000000000             168+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
0002B0                              169+         DS    0D RORI
0002B0 00000370                     170+IEATCB3  DC    A(RB3) TCB POINTER TO TOP RB              RORI
0002B4 00000000                     171+         DC    A(0) TCB POINTER TO PIE                 RORI
0002B8 00000000                     172+         DC    A(0) TCB POINTER TO DEB              19022
0002BC 00000000                     173+         DC    A(0) TCB POINTER TO TIOT
0002C0 00000000                     174+         DC    F'0' TCB COMPLETION CODE
0002C4 00000000                     175+         DC    F'0' TCB TEST RAN FIELD
0002C8 00000000                     176+         DC    A(0) TCB POINTER TO SPQE
0002CC 00                           177+         DC    X'00' TCB PROTECT KEY
0002CD 00                           178+         DC    X'00' TCB 1ST BYTE OF FLAGS
0002CE 00                           179+         DC    X'00' TCB 2ND BYTE OF FLAGS
0002CF 80                           180+         DC    X'80' 0CB 3RD BYTE OF FLAGS
0002D0 0000                         181+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
0002D2 FF                           182+         DC    X'FF' TCB LIMIT PRIORITY
0002D3 FF                           183+         DC    X'FF' TCB DISPATCHING PRIORITY
0002D4 00000000                     184+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
0002D8 00000000                     185+         DC    A(0) TCB POINTER TO JOB LIB DCB
0002DC 00000000                     186+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
0002E0 00000000                     187+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
0002E4 00000000                     188+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
0002E8 00002D38                     189+         DC    A(TACT3) TCB SAVE AREA FOR GENERAL REGISTER2
0002EC 0000BCA0                     190+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
0002F0 000002B0                     191+         DC    A(IEATCB3) TCB SAVE AREA FOR GENERAL REGISTER4
0002F4 00000370                     192+         DC    A(RB3) TCB SAVE AREA FOR GENERAL REGISTER5
0002F8 00000000                     193+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
0002FC 000037A8                     194+         DC    A(TAIOB3) TCB SAVE AREA FOR GENERAL REGISTER7
000300 00000000                     195+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
000304 00000000                     196+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
000308 00002D10                     197+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
00030C 00000000                     198+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
000310 00000000                     199+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
000314 00000000                     200+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
000318 00000000                     201+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
00031C 00000000                     202+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
000320 00                           203+         DC    X'00' TCB NUMBER OF QUEUED QELS
000321 000000                       204+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
000324 000003F8                     205+         DC    A(IEATCB4) TCB POINTER TO NEXT TCB ON READY Q.
                                                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000328 00000000                     206+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
00032C 000002B0                     207+         DC    A(IEATCB3) TCB POINTER TO JOB STEP TCB
000330 00000000                     208+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
000334 00002C30                     209+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
000338 00000000                     210+         DC    A(0) TCB POINTER TO LAST TCB.       19022
00033C 00000000                     211+         DC    A(0) TCB POINTER TO IQE
000340 00000000                     212+         DC    A(0) TCB POINTER TO ECB
000344 00000000                     213+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
000348 00000000                     214+         DC    A(0) TCB POINTER TO PQE
00034C 00000000                     215+         DC    A(0) TCB POINTER TO AQE              MO17
000350 00000000                     216+         DC    A(0) TCB POINTER TO STAE             MO17
000354 00000000                     217+         DC    A(0) TCB POINTER TO TCT              MO17
000358 00000000                     218+         DC    A(0) TCB POINTER TO USER FIELD       MO17
00035C 00                           219+         DC    AL1(0) TCB DAR FLAGS                   DAR
00035D 000000                       220+         DC    AL3(0) RESERVED                        DAR
000360 00000000                     221+         DC    AL4(0) RESERVED                        I254
000364 00                           222+         DC    AL1(0) RESERVED                        I254
000365 000000                       223+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
000368 0000000000000000             224+         DC    2F'0' BD A58667
                                    225+*
                                    226                *, RB AT TOP OF IEATCB3 'S RB QUEUE
                                    227+*
000370                              228+RB3      DS    0D START RB
000370 00000000                     229+         DC    F'0' NOT USED
000374 00000000                     230+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
000378 00                           231+         DC    X'00' WAIT COUNT SAVE AREA
000379 0D                           232+         DC    X'0D' RB SIZE
00037A C080                         233+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
00037C 00000000                     234+         DC    F'0' CONTENTS FIELD
000380 00040000                     235+         DC    X'00040000' 1ST WORD OF RBOPSW
000384 00000000                     236+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
000388 00000000                     237+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
00038C 01                           238+         DC    X'01' WAIT COUNT
00038D 0002B0                       239+         DC    AL3(IEATCB3) RB POINTER TO TCB
000390 0000000000000000             240+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                    241+         ENTRY IEATCB4


0003D8                              243+         DS    0D RORI
0003D8 0000000000000000             244+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
0003F8                              245+         DS    0D RORI
0003F8 000004B8                     246+IEATCB4  DC    A(RB4) TCB POINTER TO TOP RB              RORI
0003FC 00000000                     247+         DC    A(0) TCB POINTER TO PIE                 RORI
000400 00000000                     248+         DC    A(0) TCB POINTER TO DEB              19022
000404 00000000                     249+         DC    A(0) TCB POINTER TO TIOT
000408 00000000                     250+         DC    F'0' TCB COMPLETION CODE
00040C 00000000                     251+         DC    F'0' TCB TEST RAN FIELD
000410 00000000                     252+         DC    A(0) TCB POINTER TO SPQE
000414 00                           253+         DC    X'00' TCB PROTECT KEY
000415 00                           254+         DC    X'00' TCB 1ST BYTE OF FLAGS
000416 00                           255+         DC    X'00' TCB 2ND BYTE OF FLAGS
000417 80                           256+         DC    X'80' 0CB 3RD BYTE OF FLAGS
000418 0000                         257+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
00041A FF                           258+         DC    X'FF' TCB LIMIT PRIORITY
00041B FF                           259+         DC    X'FF' TCB DISPATCHING PRIORITY
                                                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00041C 00000000                     260+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
000420 00000000                     261+         DC    A(0) TCB POINTER TO JOB LIB DCB
000424 00000000                     262+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
000428 00000000                     263+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
00042C 00000000                     264+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
000430 00002D48                     265+         DC    A(TACT4) TCB SAVE AREA FOR GENERAL REGISTER2
000434 0000BCA0                     266+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
000438 000003F8                     267+         DC    A(IEATCB4) TCB SAVE AREA FOR GENERAL REGISTER4
00043C 000004B8                     268+         DC    A(RB4) TCB SAVE AREA FOR GENERAL REGISTER5
000440 00000000                     269+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
000444 00003BF0                     270+         DC    A(TAIOB4) TCB SAVE AREA FOR GENERAL REGISTER7
000448 00000000                     271+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
00044C 00000000                     272+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
000450 00002D10                     273+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
000454 00000000                     274+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
000458 00000000                     275+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
00045C 00000000                     276+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
000460 00000000                     277+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
000464 00000000                     278+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
000468 00                           279+         DC    X'00' TCB NUMBER OF QUEUED QELS
000469 000000                       280+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
00046C 00000540                     281+         DC    A(IEATCB5) TCB POINTER TO NEXT TCB ON READY Q.
000470 00000000                     282+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
000474 000003F8                     283+         DC    A(IEATCB4) TCB POINTER TO JOB STEP TCB
000478 00000000                     284+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
00047C 00002C30                     285+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
000480 00000000                     286+         DC    A(0) TCB POINTER TO LAST TCB.       19022
000484 00000000                     287+         DC    A(0) TCB POINTER TO IQE
000488 00000000                     288+         DC    A(0) TCB POINTER TO ECB
00048C 00000000                     289+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
000490 00000000                     290+         DC    A(0) TCB POINTER TO PQE
000494 00000000                     291+         DC    A(0) TCB POINTER TO AQE              MO17
000498 00000000                     292+         DC    A(0) TCB POINTER TO STAE             MO17
00049C 00000000                     293+         DC    A(0) TCB POINTER TO TCT              MO17
0004A0 00000000                     294+         DC    A(0) TCB POINTER TO USER FIELD       MO17
0004A4 00                           295+         DC    AL1(0) TCB DAR FLAGS                   DAR
0004A5 000000                       296+         DC    AL3(0) RESERVED                        DAR
0004A8 00000000                     297+         DC    AL4(0) RESERVED                        I254
0004AC 00                           298+         DC    AL1(0) RESERVED                        I254
0004AD 000000                       299+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
0004B0 0000000000000000             300+         DC    2F'0' BD A58667
                                    301+*
                                    302                *, RB AT TOP OF IEATCB4 'S RB QUEUE
                                    303+*
0004B8                              304+RB4      DS    0D START RB
0004B8 00000000                     305+         DC    F'0' NOT USED
0004BC 00000000                     306+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
0004C0 00                           307+         DC    X'00' WAIT COUNT SAVE AREA
0004C1 0D                           308+         DC    X'0D' RB SIZE
0004C2 C080                         309+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
0004C4 00000000                     310+         DC    F'0' CONTENTS FIELD
0004C8 00040000                     311+         DC    X'00040000' 1ST WORD OF RBOPSW
0004CC 00000000                     312+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
0004D0 00000000                     313+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
0004D4 01                           314+         DC    X'01' WAIT COUNT
                                                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0004D5 0003F8                       315+         DC    AL3(IEATCB4) RB POINTER TO TCB
0004D8 0000000000000000             316+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                    317+         ENTRY IEATCB5


000520                              319+         DS    0D RORI
000520 0000000000000000             320+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
000540                              321+         DS    0D RORI
000540 00000600                     322+IEATCB5  DC    A(RB5) TCB POINTER TO TOP RB              RORI
000544 00000000                     323+         DC    A(0) TCB POINTER TO PIE                 RORI
000548 00000000                     324+         DC    A(0) TCB POINTER TO DEB              19022
00054C 00000000                     325+         DC    A(0) TCB POINTER TO TIOT
000550 00000000                     326+         DC    F'0' TCB COMPLETION CODE
000554 00000000                     327+         DC    F'0' TCB TEST RAN FIELD
000558 00000000                     328+         DC    A(0) TCB POINTER TO SPQE
00055C 00                           329+         DC    X'00' TCB PROTECT KEY
00055D 00                           330+         DC    X'00' TCB 1ST BYTE OF FLAGS
00055E 00                           331+         DC    X'00' TCB 2ND BYTE OF FLAGS
00055F 80                           332+         DC    X'80' 0CB 3RD BYTE OF FLAGS
000560 0000                         333+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
000562 FF                           334+         DC    X'FF' TCB LIMIT PRIORITY
000563 FF                           335+         DC    X'FF' TCB DISPATCHING PRIORITY
000564 00000000                     336+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
000568 00000000                     337+         DC    A(0) TCB POINTER TO JOB LIB DCB
00056C 00000000                     338+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
000570 00000000                     339+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
000574 00000000                     340+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
000578 00002D58                     341+         DC    A(TACT5) TCB SAVE AREA FOR GENERAL REGISTER2
00057C 0000BCA0                     342+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
000580 00000540                     343+         DC    A(IEATCB5) TCB SAVE AREA FOR GENERAL REGISTER4
000584 00000600                     344+         DC    A(RB5) TCB SAVE AREA FOR GENERAL REGISTER5
000588 00000000                     345+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
00058C 00004038                     346+         DC    A(TAIOB5) TCB SAVE AREA FOR GENERAL REGISTER7
000590 00000000                     347+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
000594 00000000                     348+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
000598 00002D10                     349+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
00059C 00000000                     350+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
0005A0 00000000                     351+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
0005A4 00000000                     352+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
0005A8 00000000                     353+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
0005AC 00000000                     354+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
0005B0 00                           355+         DC    X'00' TCB NUMBER OF QUEUED QELS
0005B1 000000                       356+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
0005B4 00000688                     357+         DC    A(IEATCB6) TCB POINTER TO NEXT TCB ON READY Q.
0005B8 00000000                     358+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
0005BC 00000540                     359+         DC    A(IEATCB5) TCB POINTER TO JOB STEP TCB
0005C0 00000000                     360+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
0005C4 00002C30                     361+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
0005C8 00000000                     362+         DC    A(0) TCB POINTER TO LAST TCB.       19022
0005CC 00000000                     363+         DC    A(0) TCB POINTER TO IQE
0005D0 00000000                     364+         DC    A(0) TCB POINTER TO ECB
0005D4 00000000                     365+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
0005D8 00000000                     366+         DC    A(0) TCB POINTER TO PQE
0005DC 00000000                     367+         DC    A(0) TCB POINTER TO AQE              MO17
0005E0 00000000                     368+         DC    A(0) TCB POINTER TO STAE             MO17
                                                                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0005E4 00000000                     369+         DC    A(0) TCB POINTER TO TCT              MO17
0005E8 00000000                     370+         DC    A(0) TCB POINTER TO USER FIELD       MO17
0005EC 00                           371+         DC    AL1(0) TCB DAR FLAGS                   DAR
0005ED 000000                       372+         DC    AL3(0) RESERVED                        DAR
0005F0 00000000                     373+         DC    AL4(0) RESERVED                        I254
0005F4 00                           374+         DC    AL1(0) RESERVED                        I254
0005F5 000000                       375+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
0005F8 0000000000000000             376+         DC    2F'0' BD A58667
                                    377+*
                                    378                *, RB AT TOP OF IEATCB5 'S RB QUEUE
                                    379+*
000600                              380+RB5      DS    0D START RB
000600 00000000                     381+         DC    F'0' NOT USED
000604 00000000                     382+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
000608 00                           383+         DC    X'00' WAIT COUNT SAVE AREA
000609 0D                           384+         DC    X'0D' RB SIZE
00060A C080                         385+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
00060C 00000000                     386+         DC    F'0' CONTENTS FIELD
000610 00040000                     387+         DC    X'00040000' 1ST WORD OF RBOPSW
000614 00000000                     388+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
000618 00000000                     389+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
00061C 01                           390+         DC    X'01' WAIT COUNT
00061D 000540                       391+         DC    AL3(IEATCB5) RB POINTER TO TCB
000620 0000000000000000             392+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                    393+         ENTRY IEATCB6


000668                              395+         DS    0D RORI
000668 0000000000000000             396+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
000688                              397+         DS    0D RORI
000688 00000748                     398+IEATCB6  DC    A(RB6) TCB POINTER TO TOP RB              RORI
00068C 00000000                     399+         DC    A(0) TCB POINTER TO PIE                 RORI
000690 00000000                     400+         DC    A(0) TCB POINTER TO DEB              19022
000694 00000000                     401+         DC    A(0) TCB POINTER TO TIOT
000698 00000000                     402+         DC    F'0' TCB COMPLETION CODE
00069C 00000000                     403+         DC    F'0' TCB TEST RAN FIELD
0006A0 00000000                     404+         DC    A(0) TCB POINTER TO SPQE
0006A4 00                           405+         DC    X'00' TCB PROTECT KEY
0006A5 00                           406+         DC    X'00' TCB 1ST BYTE OF FLAGS
0006A6 00                           407+         DC    X'00' TCB 2ND BYTE OF FLAGS
0006A7 80                           408+         DC    X'80' 0CB 3RD BYTE OF FLAGS
0006A8 0000                         409+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
0006AA FF                           410+         DC    X'FF' TCB LIMIT PRIORITY
0006AB FF                           411+         DC    X'FF' TCB DISPATCHING PRIORITY
0006AC 00000000                     412+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
0006B0 00000000                     413+         DC    A(0) TCB POINTER TO JOB LIB DCB
0006B4 00000000                     414+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
0006B8 00000000                     415+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
0006BC 00000000                     416+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
0006C0 00002D68                     417+         DC    A(TACT6) TCB SAVE AREA FOR GENERAL REGISTER2
0006C4 0000BCA0                     418+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
0006C8 00000688                     419+         DC    A(IEATCB6) TCB SAVE AREA FOR GENERAL REGISTER4
0006CC 00000748                     420+         DC    A(RB6) TCB SAVE AREA FOR GENERAL REGISTER5
0006D0 00000000                     421+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
0006D4 00004480                     422+         DC    A(TAIOB6) TCB SAVE AREA FOR GENERAL REGISTER7
                                                                                                               PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0006D8 00000000                     423+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
0006DC 00000000                     424+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
0006E0 00002D10                     425+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
0006E4 00000000                     426+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
0006E8 00000000                     427+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
0006EC 00000000                     428+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
0006F0 00000000                     429+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
0006F4 00000000                     430+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
0006F8 00                           431+         DC    X'00' TCB NUMBER OF QUEUED QELS
0006F9 000000                       432+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
0006FC 000007D0                     433+         DC    A(IEATCB7) TCB POINTER TO NEXT TCB ON READY Q.
000700 00000000                     434+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
000704 00000688                     435+         DC    A(IEATCB6) TCB POINTER TO JOB STEP TCB
000708 00000000                     436+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
00070C 00002C30                     437+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
000710 00000000                     438+         DC    A(0) TCB POINTER TO LAST TCB.       19022
000714 00000000                     439+         DC    A(0) TCB POINTER TO IQE
000718 00000000                     440+         DC    A(0) TCB POINTER TO ECB
00071C 00000000                     441+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
000720 00000000                     442+         DC    A(0) TCB POINTER TO PQE
000724 00000000                     443+         DC    A(0) TCB POINTER TO AQE              MO17
000728 00000000                     444+         DC    A(0) TCB POINTER TO STAE             MO17
00072C 00000000                     445+         DC    A(0) TCB POINTER TO TCT              MO17
000730 00000000                     446+         DC    A(0) TCB POINTER TO USER FIELD       MO17
000734 00                           447+         DC    AL1(0) TCB DAR FLAGS                   DAR
000735 000000                       448+         DC    AL3(0) RESERVED                        DAR
000738 00000000                     449+         DC    AL4(0) RESERVED                        I254
00073C 00                           450+         DC    AL1(0) RESERVED                        I254
00073D 000000                       451+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
000740 0000000000000000             452+         DC    2F'0' BD A58667
                                    453+*
                                    454                *, RB AT TOP OF IEATCB6 'S RB QUEUE
                                    455+*
000748                              456+RB6      DS    0D START RB
000748 00000000                     457+         DC    F'0' NOT USED
00074C 00000000                     458+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
000750 00                           459+         DC    X'00' WAIT COUNT SAVE AREA
000751 0D                           460+         DC    X'0D' RB SIZE
000752 C080                         461+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
000754 00000000                     462+         DC    F'0' CONTENTS FIELD
000758 00040000                     463+         DC    X'00040000' 1ST WORD OF RBOPSW
00075C 00000000                     464+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
000760 00000000                     465+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
000764 01                           466+         DC    X'01' WAIT COUNT
000765 000688                       467+         DC    AL3(IEATCB6) RB POINTER TO TCB
000768 0000000000000000             468+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                    469+         ENTRY IEATCB7


0007B0                              471+         DS    0D RORI
0007B0 0000000000000000             472+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
0007D0                              473+         DS    0D RORI
0007D0 00000890                     474+IEATCB7  DC    A(RB7) TCB POINTER TO TOP RB              RORI
0007D4 00000000                     475+         DC    A(0) TCB POINTER TO PIE                 RORI
0007D8 00000000                     476+         DC    A(0) TCB POINTER TO DEB              19022
                                                                                                               PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0007DC 00000000                     477+         DC    A(0) TCB POINTER TO TIOT
0007E0 00000000                     478+         DC    F'0' TCB COMPLETION CODE
0007E4 00000000                     479+         DC    F'0' TCB TEST RAN FIELD
0007E8 00000000                     480+         DC    A(0) TCB POINTER TO SPQE
0007EC 00                           481+         DC    X'00' TCB PROTECT KEY
0007ED 00                           482+         DC    X'00' TCB 1ST BYTE OF FLAGS
0007EE 00                           483+         DC    X'00' TCB 2ND BYTE OF FLAGS
0007EF 80                           484+         DC    X'80' 0CB 3RD BYTE OF FLAGS
0007F0 0000                         485+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
0007F2 FF                           486+         DC    X'FF' TCB LIMIT PRIORITY
0007F3 FF                           487+         DC    X'FF' TCB DISPATCHING PRIORITY
0007F4 00000000                     488+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
0007F8 00000000                     489+         DC    A(0) TCB POINTER TO JOB LIB DCB
0007FC 00000000                     490+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
000800 00000000                     491+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
000804 00000000                     492+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
000808 00002D78                     493+         DC    A(TACT7) TCB SAVE AREA FOR GENERAL REGISTER2
00080C 0000BCA0                     494+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
000810 000007D0                     495+         DC    A(IEATCB7) TCB SAVE AREA FOR GENERAL REGISTER4
000814 00000890                     496+         DC    A(RB7) TCB SAVE AREA FOR GENERAL REGISTER5
000818 00000000                     497+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
00081C 000048C8                     498+         DC    A(TAIOB7) TCB SAVE AREA FOR GENERAL REGISTER7
000820 00000000                     499+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
000824 00000000                     500+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
000828 00002D10                     501+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
00082C 00000000                     502+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
000830 00000000                     503+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
000834 00000000                     504+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
000838 00000000                     505+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
00083C 00000000                     506+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
000840 00                           507+         DC    X'00' TCB NUMBER OF QUEUED QELS
000841 000000                       508+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
000844 00000918                     509+         DC    A(IEATCB8) TCB POINTER TO NEXT TCB ON READY Q.
000848 00000000                     510+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
00084C 000007D0                     511+         DC    A(IEATCB7) TCB POINTER TO JOB STEP TCB
000850 00000000                     512+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
000854 00002C30                     513+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
000858 00000000                     514+         DC    A(0) TCB POINTER TO LAST TCB.       19022
00085C 00000000                     515+         DC    A(0) TCB POINTER TO IQE
000860 00000000                     516+         DC    A(0) TCB POINTER TO ECB
000864 00000000                     517+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
000868 00000000                     518+         DC    A(0) TCB POINTER TO PQE
00086C 00000000                     519+         DC    A(0) TCB POINTER TO AQE              MO17
000870 00000000                     520+         DC    A(0) TCB POINTER TO STAE             MO17
000874 00000000                     521+         DC    A(0) TCB POINTER TO TCT              MO17
000878 00000000                     522+         DC    A(0) TCB POINTER TO USER FIELD       MO17
00087C 00                           523+         DC    AL1(0) TCB DAR FLAGS                   DAR
00087D 000000                       524+         DC    AL3(0) RESERVED                        DAR
000880 00000000                     525+         DC    AL4(0) RESERVED                        I254
000884 00                           526+         DC    AL1(0) RESERVED                        I254
000885 000000                       527+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
000888 0000000000000000             528+         DC    2F'0' BD A58667
                                    529+*
                                    530                *, RB AT TOP OF IEATCB7 'S RB QUEUE
                                    531+*
                                                                                                               PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000890                              532+RB7      DS    0D START RB
000890 00000000                     533+         DC    F'0' NOT USED
000894 00000000                     534+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
000898 00                           535+         DC    X'00' WAIT COUNT SAVE AREA
000899 0D                           536+         DC    X'0D' RB SIZE
00089A C080                         537+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
00089C 00000000                     538+         DC    F'0' CONTENTS FIELD
0008A0 00040000                     539+         DC    X'00040000' 1ST WORD OF RBOPSW
0008A4 00000000                     540+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
0008A8 00000000                     541+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
0008AC 01                           542+         DC    X'01' WAIT COUNT
0008AD 0007D0                       543+         DC    AL3(IEATCB7) RB POINTER TO TCB
0008B0 0000000000000000             544+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                    545+         ENTRY IEATCB8


0008F8                              547+         DS    0D RORI
0008F8 0000000000000000             548+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
000918                              549+         DS    0D RORI
000918 000009D8                     550+IEATCB8  DC    A(RB8) TCB POINTER TO TOP RB              RORI
00091C 00000000                     551+         DC    A(0) TCB POINTER TO PIE                 RORI
000920 00000000                     552+         DC    A(0) TCB POINTER TO DEB              19022
000924 00000000                     553+         DC    A(0) TCB POINTER TO TIOT
000928 00000000                     554+         DC    F'0' TCB COMPLETION CODE
00092C 00000000                     555+         DC    F'0' TCB TEST RAN FIELD
000930 00000000                     556+         DC    A(0) TCB POINTER TO SPQE
000934 00                           557+         DC    X'00' TCB PROTECT KEY
000935 00                           558+         DC    X'00' TCB 1ST BYTE OF FLAGS
000936 00                           559+         DC    X'00' TCB 2ND BYTE OF FLAGS
000937 80                           560+         DC    X'80' 0CB 3RD BYTE OF FLAGS
000938 0000                         561+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
00093A FF                           562+         DC    X'FF' TCB LIMIT PRIORITY
00093B FF                           563+         DC    X'FF' TCB DISPATCHING PRIORITY
00093C 00000000                     564+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
000940 00000000                     565+         DC    A(0) TCB POINTER TO JOB LIB DCB
000944 00000000                     566+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
000948 00000000                     567+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
00094C 00000000                     568+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
000950 00002D88                     569+         DC    A(TACT8) TCB SAVE AREA FOR GENERAL REGISTER2
000954 0000BCA0                     570+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
000958 00000918                     571+         DC    A(IEATCB8) TCB SAVE AREA FOR GENERAL REGISTER4
00095C 000009D8                     572+         DC    A(RB8) TCB SAVE AREA FOR GENERAL REGISTER5
000960 00000000                     573+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
000964 00004D10                     574+         DC    A(TAIOB8) TCB SAVE AREA FOR GENERAL REGISTER7
000968 00000000                     575+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
00096C 00000000                     576+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
000970 00002D10                     577+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
000974 00000000                     578+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
000978 00000000                     579+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
00097C 00000000                     580+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
000980 00000000                     581+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
000984 00000000                     582+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
000988 00                           583+         DC    X'00' TCB NUMBER OF QUEUED QELS
000989 000000                       584+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
00098C 00000A60                     585+         DC    A(IEATCB9) TCB POINTER TO NEXT TCB ON READY Q.
                                                                                                               PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000990 00000000                     586+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
000994 00000918                     587+         DC    A(IEATCB8) TCB POINTER TO JOB STEP TCB
000998 00000000                     588+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
00099C 00002C30                     589+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
0009A0 00000000                     590+         DC    A(0) TCB POINTER TO LAST TCB.       19022
0009A4 00000000                     591+         DC    A(0) TCB POINTER TO IQE
0009A8 00000000                     592+         DC    A(0) TCB POINTER TO ECB
0009AC 00000000                     593+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
0009B0 00000000                     594+         DC    A(0) TCB POINTER TO PQE
0009B4 00000000                     595+         DC    A(0) TCB POINTER TO AQE              MO17
0009B8 00000000                     596+         DC    A(0) TCB POINTER TO STAE             MO17
0009BC 00000000                     597+         DC    A(0) TCB POINTER TO TCT              MO17
0009C0 00000000                     598+         DC    A(0) TCB POINTER TO USER FIELD       MO17
0009C4 00                           599+         DC    AL1(0) TCB DAR FLAGS                   DAR
0009C5 000000                       600+         DC    AL3(0) RESERVED                        DAR
0009C8 00000000                     601+         DC    AL4(0) RESERVED                        I254
0009CC 00                           602+         DC    AL1(0) RESERVED                        I254
0009CD 000000                       603+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
0009D0 0000000000000000             604+         DC    2F'0' BD A58667
                                    605+*
                                    606                *, RB AT TOP OF IEATCB8 'S RB QUEUE
                                    607+*
0009D8                              608+RB8      DS    0D START RB
0009D8 00000000                     609+         DC    F'0' NOT USED
0009DC 00000000                     610+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
0009E0 00                           611+         DC    X'00' WAIT COUNT SAVE AREA
0009E1 0D                           612+         DC    X'0D' RB SIZE
0009E2 C080                         613+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
0009E4 00000000                     614+         DC    F'0' CONTENTS FIELD
0009E8 00040000                     615+         DC    X'00040000' 1ST WORD OF RBOPSW
0009EC 00000000                     616+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
0009F0 00000000                     617+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
0009F4 01                           618+         DC    X'01' WAIT COUNT
0009F5 000918                       619+         DC    AL3(IEATCB8) RB POINTER TO TCB
0009F8 0000000000000000             620+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                    621+         ENTRY IEATCB9


000A40                              623+         DS    0D RORI
000A40 0000000000000000             624+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
000A60                              625+         DS    0D RORI
000A60 00000B20                     626+IEATCB9  DC    A(RB9) TCB POINTER TO TOP RB              RORI
000A64 00000000                     627+         DC    A(0) TCB POINTER TO PIE                 RORI
000A68 00000000                     628+         DC    A(0) TCB POINTER TO DEB              19022
000A6C 00000000                     629+         DC    A(0) TCB POINTER TO TIOT
000A70 00000000                     630+         DC    F'0' TCB COMPLETION CODE
000A74 00000000                     631+         DC    F'0' TCB TEST RAN FIELD
000A78 00000000                     632+         DC    A(0) TCB POINTER TO SPQE
000A7C 00                           633+         DC    X'00' TCB PROTECT KEY
000A7D 00                           634+         DC    X'00' TCB 1ST BYTE OF FLAGS
000A7E 00                           635+         DC    X'00' TCB 2ND BYTE OF FLAGS
000A7F 80                           636+         DC    X'80' 0CB 3RD BYTE OF FLAGS
000A80 0000                         637+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
000A82 FF                           638+         DC    X'FF' TCB LIMIT PRIORITY
000A83 FF                           639+         DC    X'FF' TCB DISPATCHING PRIORITY
                                                                                                               PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000A84 00000000                     640+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
000A88 00000000                     641+         DC    A(0) TCB POINTER TO JOB LIB DCB
000A8C 00000000                     642+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
000A90 00000000                     643+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
000A94 00000000                     644+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
000A98 00002D98                     645+         DC    A(TACT9) TCB SAVE AREA FOR GENERAL REGISTER2
000A9C 0000BCA0                     646+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
000AA0 00000A60                     647+         DC    A(IEATCB9) TCB SAVE AREA FOR GENERAL REGISTER4
000AA4 00000B20                     648+         DC    A(RB9) TCB SAVE AREA FOR GENERAL REGISTER5
000AA8 00000000                     649+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
000AAC 00005158                     650+         DC    A(TAIOB9) TCB SAVE AREA FOR GENERAL REGISTER7
000AB0 00000000                     651+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
000AB4 00000000                     652+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
000AB8 00002D10                     653+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
000ABC 00000000                     654+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
000AC0 00000000                     655+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
000AC4 00000000                     656+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
000AC8 00000000                     657+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
000ACC 00000000                     658+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
000AD0 00                           659+         DC    X'00' TCB NUMBER OF QUEUED QELS
000AD1 000000                       660+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
000AD4 00000BA8                     661+         DC    A(IEATCB10) TCB POINTER TO NEXT TCB ON READY Q.
000AD8 00000000                     662+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
000ADC 00000A60                     663+         DC    A(IEATCB9) TCB POINTER TO JOB STEP TCB
000AE0 00000000                     664+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
000AE4 00002C30                     665+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
000AE8 00000000                     666+         DC    A(0) TCB POINTER TO LAST TCB.       19022
000AEC 00000000                     667+         DC    A(0) TCB POINTER TO IQE
000AF0 00000000                     668+         DC    A(0) TCB POINTER TO ECB
000AF4 00000000                     669+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
000AF8 00000000                     670+         DC    A(0) TCB POINTER TO PQE
000AFC 00000000                     671+         DC    A(0) TCB POINTER TO AQE              MO17
000B00 00000000                     672+         DC    A(0) TCB POINTER TO STAE             MO17
000B04 00000000                     673+         DC    A(0) TCB POINTER TO TCT              MO17
000B08 00000000                     674+         DC    A(0) TCB POINTER TO USER FIELD       MO17
000B0C 00                           675+         DC    AL1(0) TCB DAR FLAGS                   DAR
000B0D 000000                       676+         DC    AL3(0) RESERVED                        DAR
000B10 00000000                     677+         DC    AL4(0) RESERVED                        I254
000B14 00                           678+         DC    AL1(0) RESERVED                        I254
000B15 000000                       679+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
000B18 0000000000000000             680+         DC    2F'0' BD A58667
                                    681+*
                                    682                *, RB AT TOP OF IEATCB9 'S RB QUEUE
                                    683+*
000B20                              684+RB9      DS    0D START RB
000B20 00000000                     685+         DC    F'0' NOT USED
000B24 00000000                     686+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
000B28 00                           687+         DC    X'00' WAIT COUNT SAVE AREA
000B29 0D                           688+         DC    X'0D' RB SIZE
000B2A C080                         689+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
000B2C 00000000                     690+         DC    F'0' CONTENTS FIELD
000B30 00040000                     691+         DC    X'00040000' 1ST WORD OF RBOPSW
000B34 00000000                     692+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
000B38 00000000                     693+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
000B3C 01                           694+         DC    X'01' WAIT COUNT
                                                                                                               PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000B3D 000A60                       695+         DC    AL3(IEATCB9) RB POINTER TO TCB
000B40 0000000000000000             696+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                    697+         ENTRY IEATCB10


000B88                              699+         DS    0D RORI
000B88 0000000000000000             700+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
000BA8                              701+         DS    0D RORI
000BA8 00000C68                     702+IEATCB10 DC    A(RB10) TCB POINTER TO TOP RB              RORI
000BAC 00000000                     703+         DC    A(0) TCB POINTER TO PIE                 RORI
000BB0 00000000                     704+         DC    A(0) TCB POINTER TO DEB              19022
000BB4 00000000                     705+         DC    A(0) TCB POINTER TO TIOT
000BB8 00000000                     706+         DC    F'0' TCB COMPLETION CODE
000BBC 00000000                     707+         DC    F'0' TCB TEST RAN FIELD
000BC0 00000000                     708+         DC    A(0) TCB POINTER TO SPQE
000BC4 00                           709+         DC    X'00' TCB PROTECT KEY
000BC5 00                           710+         DC    X'00' TCB 1ST BYTE OF FLAGS
000BC6 00                           711+         DC    X'00' TCB 2ND BYTE OF FLAGS
000BC7 80                           712+         DC    X'80' 0CB 3RD BYTE OF FLAGS
000BC8 0000                         713+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
000BCA FF                           714+         DC    X'FF' TCB LIMIT PRIORITY
000BCB FF                           715+         DC    X'FF' TCB DISPATCHING PRIORITY
000BCC 00000000                     716+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
000BD0 00000000                     717+         DC    A(0) TCB POINTER TO JOB LIB DCB
000BD4 00000000                     718+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
000BD8 00000000                     719+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
000BDC 00000000                     720+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
000BE0 00002DA8                     721+         DC    A(TACT10) TCB SAVE AREA FOR GENERAL REGISTER2
000BE4 0000BCA0                     722+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
000BE8 00000BA8                     723+         DC    A(IEATCB10) TCB SAVE AREA FOR GENERAL REGISTER4
000BEC 00000C68                     724+         DC    A(RB10) TCB SAVE AREA FOR GENERAL REGISTER5
000BF0 00000000                     725+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
000BF4 000055A0                     726+         DC    A(TAIOB10) TCB SAVE AREA FOR GENERAL REGISTER7
000BF8 00000000                     727+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
000BFC 00000000                     728+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
000C00 00002D10                     729+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
000C04 00000000                     730+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
000C08 00000000                     731+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
000C0C 00000000                     732+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
000C10 00000000                     733+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
000C14 00000000                     734+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
000C18 00                           735+         DC    X'00' TCB NUMBER OF QUEUED QELS
000C19 000000                       736+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
000C1C 00000CF0                     737+         DC    A(IEATCB11) TCB POINTER TO NEXT TCB ON READY Q.
000C20 00000000                     738+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
000C24 00000BA8                     739+         DC    A(IEATCB10) TCB POINTER TO JOB STEP TCB
000C28 00000000                     740+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
000C2C 00002C30                     741+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
000C30 00000000                     742+         DC    A(0) TCB POINTER TO LAST TCB.       19022
000C34 00000000                     743+         DC    A(0) TCB POINTER TO IQE
000C38 00000000                     744+         DC    A(0) TCB POINTER TO ECB
000C3C 00000000                     745+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
000C40 00000000                     746+         DC    A(0) TCB POINTER TO PQE
000C44 00000000                     747+         DC    A(0) TCB POINTER TO AQE              MO17
000C48 00000000                     748+         DC    A(0) TCB POINTER TO STAE             MO17
                                                                                                               PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000C4C 00000000                     749+         DC    A(0) TCB POINTER TO TCT              MO17
000C50 00000000                     750+         DC    A(0) TCB POINTER TO USER FIELD       MO17
000C54 00                           751+         DC    AL1(0) TCB DAR FLAGS                   DAR
000C55 000000                       752+         DC    AL3(0) RESERVED                        DAR
000C58 00000000                     753+         DC    AL4(0) RESERVED                        I254
000C5C 00                           754+         DC    AL1(0) RESERVED                        I254
000C5D 000000                       755+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
000C60 0000000000000000             756+         DC    2F'0' BD A58667
                                    757+*
                                    758                *, RB AT TOP OF IEATCB10 'S RB QUEUE
                                    759+*
000C68                              760+RB10     DS    0D START RB
000C68 00000000                     761+         DC    F'0' NOT USED
000C6C 00000000                     762+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
000C70 00                           763+         DC    X'00' WAIT COUNT SAVE AREA
000C71 0D                           764+         DC    X'0D' RB SIZE
000C72 C080                         765+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
000C74 00000000                     766+         DC    F'0' CONTENTS FIELD
000C78 00040000                     767+         DC    X'00040000' 1ST WORD OF RBOPSW
000C7C 00000000                     768+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
000C80 00000000                     769+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
000C84 01                           770+         DC    X'01' WAIT COUNT
000C85 000BA8                       771+         DC    AL3(IEATCB10) RB POINTER TO TCB
000C88 0000000000000000             772+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                    773+         ENTRY IEATCB11


000CD0                              775+         DS    0D RORI
000CD0 0000000000000000             776+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
000CF0                              777+         DS    0D RORI
000CF0 00000DB0                     778+IEATCB11 DC    A(RB11) TCB POINTER TO TOP RB              RORI
000CF4 00000000                     779+         DC    A(0) TCB POINTER TO PIE                 RORI
000CF8 00000000                     780+         DC    A(0) TCB POINTER TO DEB              19022
000CFC 00000000                     781+         DC    A(0) TCB POINTER TO TIOT
000D00 00000000                     782+         DC    F'0' TCB COMPLETION CODE
000D04 00000000                     783+         DC    F'0' TCB TEST RAN FIELD
000D08 00000000                     784+         DC    A(0) TCB POINTER TO SPQE
000D0C 00                           785+         DC    X'00' TCB PROTECT KEY
000D0D 00                           786+         DC    X'00' TCB 1ST BYTE OF FLAGS
000D0E 00                           787+         DC    X'00' TCB 2ND BYTE OF FLAGS
000D0F 80                           788+         DC    X'80' 0CB 3RD BYTE OF FLAGS
000D10 0000                         789+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
000D12 FF                           790+         DC    X'FF' TCB LIMIT PRIORITY
000D13 FF                           791+         DC    X'FF' TCB DISPATCHING PRIORITY
000D14 00000000                     792+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
000D18 00000000                     793+         DC    A(0) TCB POINTER TO JOB LIB DCB
000D1C 00000000                     794+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
000D20 00000000                     795+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
000D24 00000000                     796+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
000D28 00002DB8                     797+         DC    A(TACT11) TCB SAVE AREA FOR GENERAL REGISTER2
000D2C 0000BCA0                     798+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
000D30 00000CF0                     799+         DC    A(IEATCB11) TCB SAVE AREA FOR GENERAL REGISTER4
000D34 00000DB0                     800+         DC    A(RB11) TCB SAVE AREA FOR GENERAL REGISTER5
000D38 00000000                     801+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
000D3C 000059E8                     802+         DC    A(TAIOB11) TCB SAVE AREA FOR GENERAL REGISTER7
                                                                                                               PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000D40 00000000                     803+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
000D44 00000000                     804+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
000D48 00002D10                     805+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
000D4C 00000000                     806+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
000D50 00000000                     807+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
000D54 00000000                     808+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
000D58 00000000                     809+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
000D5C 00000000                     810+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
000D60 00                           811+         DC    X'00' TCB NUMBER OF QUEUED QELS
000D61 000000                       812+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
000D64 00000E38                     813+         DC    A(IEATCB12) TCB POINTER TO NEXT TCB ON READY Q.
000D68 00000000                     814+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
000D6C 00000CF0                     815+         DC    A(IEATCB11) TCB POINTER TO JOB STEP TCB
000D70 00000000                     816+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
000D74 00002C30                     817+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
000D78 00000000                     818+         DC    A(0) TCB POINTER TO LAST TCB.       19022
000D7C 00000000                     819+         DC    A(0) TCB POINTER TO IQE
000D80 00000000                     820+         DC    A(0) TCB POINTER TO ECB
000D84 00000000                     821+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
000D88 00000000                     822+         DC    A(0) TCB POINTER TO PQE
000D8C 00000000                     823+         DC    A(0) TCB POINTER TO AQE              MO17
000D90 00000000                     824+         DC    A(0) TCB POINTER TO STAE             MO17
000D94 00000000                     825+         DC    A(0) TCB POINTER TO TCT              MO17
000D98 00000000                     826+         DC    A(0) TCB POINTER TO USER FIELD       MO17
000D9C 00                           827+         DC    AL1(0) TCB DAR FLAGS                   DAR
000D9D 000000                       828+         DC    AL3(0) RESERVED                        DAR
000DA0 00000000                     829+         DC    AL4(0) RESERVED                        I254
000DA4 00                           830+         DC    AL1(0) RESERVED                        I254
000DA5 000000                       831+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
000DA8 0000000000000000             832+         DC    2F'0' BD A58667
                                    833+*
                                    834                *, RB AT TOP OF IEATCB11 'S RB QUEUE
                                    835+*
000DB0                              836+RB11     DS    0D START RB
000DB0 00000000                     837+         DC    F'0' NOT USED
000DB4 00000000                     838+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
000DB8 00                           839+         DC    X'00' WAIT COUNT SAVE AREA
000DB9 0D                           840+         DC    X'0D' RB SIZE
000DBA C080                         841+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
000DBC 00000000                     842+         DC    F'0' CONTENTS FIELD
000DC0 00040000                     843+         DC    X'00040000' 1ST WORD OF RBOPSW
000DC4 00000000                     844+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
000DC8 00000000                     845+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
000DCC 01                           846+         DC    X'01' WAIT COUNT
000DCD 000CF0                       847+         DC    AL3(IEATCB11) RB POINTER TO TCB
000DD0 0000000000000000             848+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                    849+         ENTRY IEATCB12


000E18                              851+         DS    0D RORI
000E18 0000000000000000             852+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
000E38                              853+         DS    0D RORI
000E38 00000EF8                     854+IEATCB12 DC    A(RB12) TCB POINTER TO TOP RB              RORI
000E3C 00000000                     855+         DC    A(0) TCB POINTER TO PIE                 RORI
000E40 00000000                     856+         DC    A(0) TCB POINTER TO DEB              19022
                                                                                                               PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000E44 00000000                     857+         DC    A(0) TCB POINTER TO TIOT
000E48 00000000                     858+         DC    F'0' TCB COMPLETION CODE
000E4C 00000000                     859+         DC    F'0' TCB TEST RAN FIELD
000E50 00000000                     860+         DC    A(0) TCB POINTER TO SPQE
000E54 00                           861+         DC    X'00' TCB PROTECT KEY
000E55 00                           862+         DC    X'00' TCB 1ST BYTE OF FLAGS
000E56 00                           863+         DC    X'00' TCB 2ND BYTE OF FLAGS
000E57 80                           864+         DC    X'80' 0CB 3RD BYTE OF FLAGS
000E58 0000                         865+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
000E5A FF                           866+         DC    X'FF' TCB LIMIT PRIORITY
000E5B FF                           867+         DC    X'FF' TCB DISPATCHING PRIORITY
000E5C 00000000                     868+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
000E60 00000000                     869+         DC    A(0) TCB POINTER TO JOB LIB DCB
000E64 00000000                     870+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
000E68 00000000                     871+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
000E6C 00000000                     872+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
000E70 00002DC8                     873+         DC    A(TACT12) TCB SAVE AREA FOR GENERAL REGISTER2
000E74 0000BCA0                     874+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
000E78 00000E38                     875+         DC    A(IEATCB12) TCB SAVE AREA FOR GENERAL REGISTER4
000E7C 00000EF8                     876+         DC    A(RB12) TCB SAVE AREA FOR GENERAL REGISTER5
000E80 00000000                     877+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
000E84 00005E30                     878+         DC    A(TAIOB12) TCB SAVE AREA FOR GENERAL REGISTER7
000E88 00000000                     879+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
000E8C 00000000                     880+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
000E90 00002D10                     881+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
000E94 00000000                     882+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
000E98 00000000                     883+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
000E9C 00000000                     884+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
000EA0 00000000                     885+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
000EA4 00000000                     886+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
000EA8 00                           887+         DC    X'00' TCB NUMBER OF QUEUED QELS
000EA9 000000                       888+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
000EAC 00000F80                     889+         DC    A(IEATCB13) TCB POINTER TO NEXT TCB ON READY Q.
000EB0 00000000                     890+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
000EB4 00000E38                     891+         DC    A(IEATCB12) TCB POINTER TO JOB STEP TCB
000EB8 00000000                     892+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
000EBC 00002C30                     893+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
000EC0 00000000                     894+         DC    A(0) TCB POINTER TO LAST TCB.       19022
000EC4 00000000                     895+         DC    A(0) TCB POINTER TO IQE
000EC8 00000000                     896+         DC    A(0) TCB POINTER TO ECB
000ECC 00000000                     897+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
000ED0 00000000                     898+         DC    A(0) TCB POINTER TO PQE
000ED4 00000000                     899+         DC    A(0) TCB POINTER TO AQE              MO17
000ED8 00000000                     900+         DC    A(0) TCB POINTER TO STAE             MO17
000EDC 00000000                     901+         DC    A(0) TCB POINTER TO TCT              MO17
000EE0 00000000                     902+         DC    A(0) TCB POINTER TO USER FIELD       MO17
000EE4 00                           903+         DC    AL1(0) TCB DAR FLAGS                   DAR
000EE5 000000                       904+         DC    AL3(0) RESERVED                        DAR
000EE8 00000000                     905+         DC    AL4(0) RESERVED                        I254
000EEC 00                           906+         DC    AL1(0) RESERVED                        I254
000EED 000000                       907+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
000EF0 0000000000000000             908+         DC    2F'0' BD A58667
                                    909+*
                                    910                *, RB AT TOP OF IEATCB12 'S RB QUEUE
                                    911+*
                                                                                                               PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000EF8                              912+RB12     DS    0D START RB
000EF8 00000000                     913+         DC    F'0' NOT USED
000EFC 00000000                     914+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
000F00 00                           915+         DC    X'00' WAIT COUNT SAVE AREA
000F01 0D                           916+         DC    X'0D' RB SIZE
000F02 C080                         917+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
000F04 00000000                     918+         DC    F'0' CONTENTS FIELD
000F08 00040000                     919+         DC    X'00040000' 1ST WORD OF RBOPSW
000F0C 00000000                     920+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
000F10 00000000                     921+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
000F14 01                           922+         DC    X'01' WAIT COUNT
000F15 000E38                       923+         DC    AL3(IEATCB12) RB POINTER TO TCB
000F18 0000000000000000             924+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                    925+         ENTRY IEATCB13


000F60                              927+         DS    0D RORI
000F60 0000000000000000             928+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
000F80                              929+         DS    0D RORI
000F80 00001040                     930+IEATCB13 DC    A(RB13) TCB POINTER TO TOP RB              RORI
000F84 00000000                     931+         DC    A(0) TCB POINTER TO PIE                 RORI
000F88 00000000                     932+         DC    A(0) TCB POINTER TO DEB              19022
000F8C 00000000                     933+         DC    A(0) TCB POINTER TO TIOT
000F90 00000000                     934+         DC    F'0' TCB COMPLETION CODE
000F94 00000000                     935+         DC    F'0' TCB TEST RAN FIELD
000F98 00000000                     936+         DC    A(0) TCB POINTER TO SPQE
000F9C 00                           937+         DC    X'00' TCB PROTECT KEY
000F9D 00                           938+         DC    X'00' TCB 1ST BYTE OF FLAGS
000F9E 00                           939+         DC    X'00' TCB 2ND BYTE OF FLAGS
000F9F 80                           940+         DC    X'80' 0CB 3RD BYTE OF FLAGS
000FA0 0000                         941+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
000FA2 FF                           942+         DC    X'FF' TCB LIMIT PRIORITY
000FA3 FF                           943+         DC    X'FF' TCB DISPATCHING PRIORITY
000FA4 00000000                     944+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
000FA8 00000000                     945+         DC    A(0) TCB POINTER TO JOB LIB DCB
000FAC 00000000                     946+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
000FB0 00000000                     947+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
000FB4 00000000                     948+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
000FB8 00002DD8                     949+         DC    A(TACT13) TCB SAVE AREA FOR GENERAL REGISTER2
000FBC 0000BCA0                     950+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
000FC0 00000F80                     951+         DC    A(IEATCB13) TCB SAVE AREA FOR GENERAL REGISTER4
000FC4 00001040                     952+         DC    A(RB13) TCB SAVE AREA FOR GENERAL REGISTER5
000FC8 00000000                     953+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
000FCC 00006278                     954+         DC    A(TAIOB13) TCB SAVE AREA FOR GENERAL REGISTER7
000FD0 00000000                     955+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
000FD4 00000000                     956+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
000FD8 00002D10                     957+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
000FDC 00000000                     958+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
000FE0 00000000                     959+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
000FE4 00000000                     960+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
000FE8 00000000                     961+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
000FEC 00000000                     962+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
000FF0 00                           963+         DC    X'00' TCB NUMBER OF QUEUED QELS
000FF1 000000                       964+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
000FF4 000010C8                     965+         DC    A(IEATCB14) TCB POINTER TO NEXT TCB ON READY Q.
                                                                                                               PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000FF8 00000000                     966+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
000FFC 00000F80                     967+         DC    A(IEATCB13) TCB POINTER TO JOB STEP TCB
001000 00000000                     968+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
001004 00002C30                     969+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
001008 00000000                     970+         DC    A(0) TCB POINTER TO LAST TCB.       19022
00100C 00000000                     971+         DC    A(0) TCB POINTER TO IQE
001010 00000000                     972+         DC    A(0) TCB POINTER TO ECB
001014 00000000                     973+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
001018 00000000                     974+         DC    A(0) TCB POINTER TO PQE
00101C 00000000                     975+         DC    A(0) TCB POINTER TO AQE              MO17
001020 00000000                     976+         DC    A(0) TCB POINTER TO STAE             MO17
001024 00000000                     977+         DC    A(0) TCB POINTER TO TCT              MO17
001028 00000000                     978+         DC    A(0) TCB POINTER TO USER FIELD       MO17
00102C 00                           979+         DC    AL1(0) TCB DAR FLAGS                   DAR
00102D 000000                       980+         DC    AL3(0) RESERVED                        DAR
001030 00000000                     981+         DC    AL4(0) RESERVED                        I254
001034 00                           982+         DC    AL1(0) RESERVED                        I254
001035 000000                       983+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
001038 0000000000000000             984+         DC    2F'0' BD A58667
                                    985+*
                                    986                *, RB AT TOP OF IEATCB13 'S RB QUEUE
                                    987+*
001040                              988+RB13     DS    0D START RB
001040 00000000                     989+         DC    F'0' NOT USED
001044 00000000                     990+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
001048 00                           991+         DC    X'00' WAIT COUNT SAVE AREA
001049 0D                           992+         DC    X'0D' RB SIZE
00104A C080                         993+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
00104C 00000000                     994+         DC    F'0' CONTENTS FIELD
001050 00040000                     995+         DC    X'00040000' 1ST WORD OF RBOPSW
001054 00000000                     996+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
001058 00000000                     997+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
00105C 01                           998+         DC    X'01' WAIT COUNT
00105D 000F80                       999+         DC    AL3(IEATCB13) RB POINTER TO TCB
001060 0000000000000000            1000+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1001+         ENTRY IEATCB14


0010A8                             1003+         DS    0D RORI
0010A8 0000000000000000            1004+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
0010C8                             1005+         DS    0D RORI
0010C8 00001188                    1006+IEATCB14 DC    A(RB14) TCB POINTER TO TOP RB              RORI
0010CC 00000000                    1007+         DC    A(0) TCB POINTER TO PIE                 RORI
0010D0 00000000                    1008+         DC    A(0) TCB POINTER TO DEB              19022
0010D4 00000000                    1009+         DC    A(0) TCB POINTER TO TIOT
0010D8 00000000                    1010+         DC    F'0' TCB COMPLETION CODE
0010DC 00000000                    1011+         DC    F'0' TCB TEST RAN FIELD
0010E0 00000000                    1012+         DC    A(0) TCB POINTER TO SPQE
0010E4 00                          1013+         DC    X'00' TCB PROTECT KEY
0010E5 00                          1014+         DC    X'00' TCB 1ST BYTE OF FLAGS
0010E6 00                          1015+         DC    X'00' TCB 2ND BYTE OF FLAGS
0010E7 80                          1016+         DC    X'80' 0CB 3RD BYTE OF FLAGS
0010E8 0000                        1017+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
0010EA FF                          1018+         DC    X'FF' TCB LIMIT PRIORITY
0010EB FF                          1019+         DC    X'FF' TCB DISPATCHING PRIORITY
                                                                                                               PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0010EC 00000000                    1020+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
0010F0 00000000                    1021+         DC    A(0) TCB POINTER TO JOB LIB DCB
0010F4 00000000                    1022+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
0010F8 00000000                    1023+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
0010FC 00000000                    1024+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
001100 00002DE8                    1025+         DC    A(TACT14) TCB SAVE AREA FOR GENERAL REGISTER2
001104 0000BCA0                    1026+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
001108 000010C8                    1027+         DC    A(IEATCB14) TCB SAVE AREA FOR GENERAL REGISTER4
00110C 00001188                    1028+         DC    A(RB14) TCB SAVE AREA FOR GENERAL REGISTER5
001110 00000000                    1029+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
001114 000066C0                    1030+         DC    A(TAIOB14) TCB SAVE AREA FOR GENERAL REGISTER7
001118 00000000                    1031+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
00111C 00000000                    1032+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
001120 00002D10                    1033+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
001124 00000000                    1034+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
001128 00000000                    1035+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
00112C 00000000                    1036+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
001130 00000000                    1037+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
001134 00000000                    1038+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
001138 00                          1039+         DC    X'00' TCB NUMBER OF QUEUED QELS
001139 000000                      1040+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
00113C 00001210                    1041+         DC    A(IEATCB15) TCB POINTER TO NEXT TCB ON READY Q.
001140 00000000                    1042+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
001144 000010C8                    1043+         DC    A(IEATCB14) TCB POINTER TO JOB STEP TCB
001148 00000000                    1044+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
00114C 00002C30                    1045+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
001150 00000000                    1046+         DC    A(0) TCB POINTER TO LAST TCB.       19022
001154 00000000                    1047+         DC    A(0) TCB POINTER TO IQE
001158 00000000                    1048+         DC    A(0) TCB POINTER TO ECB
00115C 00000000                    1049+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
001160 00000000                    1050+         DC    A(0) TCB POINTER TO PQE
001164 00000000                    1051+         DC    A(0) TCB POINTER TO AQE              MO17
001168 00000000                    1052+         DC    A(0) TCB POINTER TO STAE             MO17
00116C 00000000                    1053+         DC    A(0) TCB POINTER TO TCT              MO17
001170 00000000                    1054+         DC    A(0) TCB POINTER TO USER FIELD       MO17
001174 00                          1055+         DC    AL1(0) TCB DAR FLAGS                   DAR
001175 000000                      1056+         DC    AL3(0) RESERVED                        DAR
001178 00000000                    1057+         DC    AL4(0) RESERVED                        I254
00117C 00                          1058+         DC    AL1(0) RESERVED                        I254
00117D 000000                      1059+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
001180 0000000000000000            1060+         DC    2F'0' BD A58667
                                   1061+*
                                   1062                *, RB AT TOP OF IEATCB14 'S RB QUEUE
                                   1063+*
001188                             1064+RB14     DS    0D START RB
001188 00000000                    1065+         DC    F'0' NOT USED
00118C 00000000                    1066+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
001190 00                          1067+         DC    X'00' WAIT COUNT SAVE AREA
001191 0D                          1068+         DC    X'0D' RB SIZE
001192 C080                        1069+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
001194 00000000                    1070+         DC    F'0' CONTENTS FIELD
001198 00040000                    1071+         DC    X'00040000' 1ST WORD OF RBOPSW
00119C 00000000                    1072+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
0011A0 00000000                    1073+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
0011A4 01                          1074+         DC    X'01' WAIT COUNT
                                                                                                               PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0011A5 0010C8                      1075+         DC    AL3(IEATCB14) RB POINTER TO TCB
0011A8 0000000000000000            1076+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1077+         ENTRY IEATCB15


0011F0                             1079+         DS    0D RORI
0011F0 0000000000000000            1080+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
001210                             1081+         DS    0D RORI
001210 000012D0                    1082+IEATCB15 DC    A(RB15) TCB POINTER TO TOP RB              RORI
001214 00000000                    1083+         DC    A(0) TCB POINTER TO PIE                 RORI
001218 00000000                    1084+         DC    A(0) TCB POINTER TO DEB              19022
00121C 00000000                    1085+         DC    A(0) TCB POINTER TO TIOT
001220 00000000                    1086+         DC    F'0' TCB COMPLETION CODE
001224 00000000                    1087+         DC    F'0' TCB TEST RAN FIELD
001228 00000000                    1088+         DC    A(0) TCB POINTER TO SPQE
00122C 00                          1089+         DC    X'00' TCB PROTECT KEY
00122D 00                          1090+         DC    X'00' TCB 1ST BYTE OF FLAGS
00122E 00                          1091+         DC    X'00' TCB 2ND BYTE OF FLAGS
00122F 80                          1092+         DC    X'80' 0CB 3RD BYTE OF FLAGS
001230 0000                        1093+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
001232 FF                          1094+         DC    X'FF' TCB LIMIT PRIORITY
001233 FF                          1095+         DC    X'FF' TCB DISPATCHING PRIORITY
001234 00000000                    1096+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
001238 00000000                    1097+         DC    A(0) TCB POINTER TO JOB LIB DCB
00123C 00000000                    1098+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
001240 00000000                    1099+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
001244 00000000                    1100+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
001248 00002DF8                    1101+         DC    A(TACT15) TCB SAVE AREA FOR GENERAL REGISTER2
00124C 0000BCA0                    1102+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
001250 00001210                    1103+         DC    A(IEATCB15) TCB SAVE AREA FOR GENERAL REGISTER4
001254 000012D0                    1104+         DC    A(RB15) TCB SAVE AREA FOR GENERAL REGISTER5
001258 00000000                    1105+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
00125C 00006B08                    1106+         DC    A(TAIOB15) TCB SAVE AREA FOR GENERAL REGISTER7
001260 00000000                    1107+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
001264 00000000                    1108+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
001268 00002D10                    1109+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
00126C 00000000                    1110+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
001270 00000000                    1111+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
001274 00000000                    1112+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
001278 00000000                    1113+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
00127C 00000000                    1114+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
001280 00                          1115+         DC    X'00' TCB NUMBER OF QUEUED QELS
001281 000000                      1116+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
001284 00001358                    1117+         DC    A(IEATCB16) TCB POINTER TO NEXT TCB ON READY Q.
001288 00000000                    1118+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
00128C 00001210                    1119+         DC    A(IEATCB15) TCB POINTER TO JOB STEP TCB
001290 00000000                    1120+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
001294 00002C30                    1121+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
001298 00000000                    1122+         DC    A(0) TCB POINTER TO LAST TCB.       19022
00129C 00000000                    1123+         DC    A(0) TCB POINTER TO IQE
0012A0 00000000                    1124+         DC    A(0) TCB POINTER TO ECB
0012A4 00000000                    1125+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
0012A8 00000000                    1126+         DC    A(0) TCB POINTER TO PQE
0012AC 00000000                    1127+         DC    A(0) TCB POINTER TO AQE              MO17
0012B0 00000000                    1128+         DC    A(0) TCB POINTER TO STAE             MO17
                                                                                                               PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0012B4 00000000                    1129+         DC    A(0) TCB POINTER TO TCT              MO17
0012B8 00000000                    1130+         DC    A(0) TCB POINTER TO USER FIELD       MO17
0012BC 00                          1131+         DC    AL1(0) TCB DAR FLAGS                   DAR
0012BD 000000                      1132+         DC    AL3(0) RESERVED                        DAR
0012C0 00000000                    1133+         DC    AL4(0) RESERVED                        I254
0012C4 00                          1134+         DC    AL1(0) RESERVED                        I254
0012C5 000000                      1135+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
0012C8 0000000000000000            1136+         DC    2F'0' BD A58667
                                   1137+*
                                   1138                *, RB AT TOP OF IEATCB15 'S RB QUEUE
                                   1139+*
0012D0                             1140+RB15     DS    0D START RB
0012D0 00000000                    1141+         DC    F'0' NOT USED
0012D4 00000000                    1142+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
0012D8 00                          1143+         DC    X'00' WAIT COUNT SAVE AREA
0012D9 0D                          1144+         DC    X'0D' RB SIZE
0012DA C080                        1145+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
0012DC 00000000                    1146+         DC    F'0' CONTENTS FIELD
0012E0 00040000                    1147+         DC    X'00040000' 1ST WORD OF RBOPSW
0012E4 00000000                    1148+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
0012E8 00000000                    1149+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
0012EC 01                          1150+         DC    X'01' WAIT COUNT
0012ED 001210                      1151+         DC    AL3(IEATCB15) RB POINTER TO TCB
0012F0 0000000000000000            1152+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1153+         ENTRY IEATCB16


001338                             1155+         DS    0D RORI
001338 0000000000000000            1156+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
001358                             1157+         DS    0D RORI
001358 00001418                    1158+IEATCB16 DC    A(RB16) TCB POINTER TO TOP RB              RORI
00135C 00000000                    1159+         DC    A(0) TCB POINTER TO PIE                 RORI
001360 00000000                    1160+         DC    A(0) TCB POINTER TO DEB              19022
001364 00000000                    1161+         DC    A(0) TCB POINTER TO TIOT
001368 00000000                    1162+         DC    F'0' TCB COMPLETION CODE
00136C 00000000                    1163+         DC    F'0' TCB TEST RAN FIELD
001370 00000000                    1164+         DC    A(0) TCB POINTER TO SPQE
001374 00                          1165+         DC    X'00' TCB PROTECT KEY
001375 00                          1166+         DC    X'00' TCB 1ST BYTE OF FLAGS
001376 00                          1167+         DC    X'00' TCB 2ND BYTE OF FLAGS
001377 80                          1168+         DC    X'80' 0CB 3RD BYTE OF FLAGS
001378 0000                        1169+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
00137A FF                          1170+         DC    X'FF' TCB LIMIT PRIORITY
00137B FF                          1171+         DC    X'FF' TCB DISPATCHING PRIORITY
00137C 00000000                    1172+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
001380 00000000                    1173+         DC    A(0) TCB POINTER TO JOB LIB DCB
001384 00000000                    1174+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
001388 00000000                    1175+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
00138C 00000000                    1176+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
001390 00002E08                    1177+         DC    A(TACT16) TCB SAVE AREA FOR GENERAL REGISTER2
001394 0000BCA0                    1178+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
001398 00001358                    1179+         DC    A(IEATCB16) TCB SAVE AREA FOR GENERAL REGISTER4
00139C 00001418                    1180+         DC    A(RB16) TCB SAVE AREA FOR GENERAL REGISTER5
0013A0 00000000                    1181+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
0013A4 00006F50                    1182+         DC    A(TAIOB16) TCB SAVE AREA FOR GENERAL REGISTER7
                                                                                                               PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0013A8 00000000                    1183+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
0013AC 00000000                    1184+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
0013B0 00002D10                    1185+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
0013B4 00000000                    1186+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
0013B8 00000000                    1187+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
0013BC 00000000                    1188+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
0013C0 00000000                    1189+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
0013C4 00000000                    1190+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
0013C8 00                          1191+         DC    X'00' TCB NUMBER OF QUEUED QELS
0013C9 000000                      1192+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
0013CC 000014A0                    1193+         DC    A(IEATCB17) TCB POINTER TO NEXT TCB ON READY Q.
0013D0 00000000                    1194+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
0013D4 00001358                    1195+         DC    A(IEATCB16) TCB POINTER TO JOB STEP TCB
0013D8 00000000                    1196+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
0013DC 00002C30                    1197+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
0013E0 00000000                    1198+         DC    A(0) TCB POINTER TO LAST TCB.       19022
0013E4 00000000                    1199+         DC    A(0) TCB POINTER TO IQE
0013E8 00000000                    1200+         DC    A(0) TCB POINTER TO ECB
0013EC 00000000                    1201+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
0013F0 00000000                    1202+         DC    A(0) TCB POINTER TO PQE
0013F4 00000000                    1203+         DC    A(0) TCB POINTER TO AQE              MO17
0013F8 00000000                    1204+         DC    A(0) TCB POINTER TO STAE             MO17
0013FC 00000000                    1205+         DC    A(0) TCB POINTER TO TCT              MO17
001400 00000000                    1206+         DC    A(0) TCB POINTER TO USER FIELD       MO17
001404 00                          1207+         DC    AL1(0) TCB DAR FLAGS                   DAR
001405 000000                      1208+         DC    AL3(0) RESERVED                        DAR
001408 00000000                    1209+         DC    AL4(0) RESERVED                        I254
00140C 00                          1210+         DC    AL1(0) RESERVED                        I254
00140D 000000                      1211+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
001410 0000000000000000            1212+         DC    2F'0' BD A58667
                                   1213+*
                                   1214                *, RB AT TOP OF IEATCB16 'S RB QUEUE
                                   1215+*
001418                             1216+RB16     DS    0D START RB
001418 00000000                    1217+         DC    F'0' NOT USED
00141C 00000000                    1218+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
001420 00                          1219+         DC    X'00' WAIT COUNT SAVE AREA
001421 0D                          1220+         DC    X'0D' RB SIZE
001422 C080                        1221+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
001424 00000000                    1222+         DC    F'0' CONTENTS FIELD
001428 00040000                    1223+         DC    X'00040000' 1ST WORD OF RBOPSW
00142C 00000000                    1224+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
001430 00000000                    1225+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
001434 01                          1226+         DC    X'01' WAIT COUNT
001435 001358                      1227+         DC    AL3(IEATCB16) RB POINTER TO TCB
001438 0000000000000000            1228+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1229+         ENTRY IEATCB17


001480                             1231+         DS    0D RORI
001480 0000000000000000            1232+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
0014A0                             1233+         DS    0D RORI
0014A0 00001560                    1234+IEATCB17 DC    A(RB17) TCB POINTER TO TOP RB              RORI
0014A4 00000000                    1235+         DC    A(0) TCB POINTER TO PIE                 RORI
0014A8 00000000                    1236+         DC    A(0) TCB POINTER TO DEB              19022
                                                                                                               PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0014AC 00000000                    1237+         DC    A(0) TCB POINTER TO TIOT
0014B0 00000000                    1238+         DC    F'0' TCB COMPLETION CODE
0014B4 00000000                    1239+         DC    F'0' TCB TEST RAN FIELD
0014B8 00000000                    1240+         DC    A(0) TCB POINTER TO SPQE
0014BC 00                          1241+         DC    X'00' TCB PROTECT KEY
0014BD 00                          1242+         DC    X'00' TCB 1ST BYTE OF FLAGS
0014BE 00                          1243+         DC    X'00' TCB 2ND BYTE OF FLAGS
0014BF 80                          1244+         DC    X'80' 0CB 3RD BYTE OF FLAGS
0014C0 0000                        1245+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
0014C2 FF                          1246+         DC    X'FF' TCB LIMIT PRIORITY
0014C3 FF                          1247+         DC    X'FF' TCB DISPATCHING PRIORITY
0014C4 00000000                    1248+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
0014C8 00000000                    1249+         DC    A(0) TCB POINTER TO JOB LIB DCB
0014CC 00000000                    1250+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
0014D0 00000000                    1251+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
0014D4 00000000                    1252+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
0014D8 00002E18                    1253+         DC    A(TACT17) TCB SAVE AREA FOR GENERAL REGISTER2
0014DC 0000BCA0                    1254+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
0014E0 000014A0                    1255+         DC    A(IEATCB17) TCB SAVE AREA FOR GENERAL REGISTER4
0014E4 00001560                    1256+         DC    A(RB17) TCB SAVE AREA FOR GENERAL REGISTER5
0014E8 00000000                    1257+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
0014EC 00007398                    1258+         DC    A(TAIOB17) TCB SAVE AREA FOR GENERAL REGISTER7
0014F0 00000000                    1259+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
0014F4 00000000                    1260+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
0014F8 00002D10                    1261+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
0014FC 00000000                    1262+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
001500 00000000                    1263+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
001504 00000000                    1264+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
001508 00000000                    1265+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
00150C 00000000                    1266+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
001510 00                          1267+         DC    X'00' TCB NUMBER OF QUEUED QELS
001511 000000                      1268+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
001514 000015E8                    1269+         DC    A(IEATCB18) TCB POINTER TO NEXT TCB ON READY Q.
001518 00000000                    1270+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
00151C 000014A0                    1271+         DC    A(IEATCB17) TCB POINTER TO JOB STEP TCB
001520 00000000                    1272+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
001524 00002C30                    1273+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
001528 00000000                    1274+         DC    A(0) TCB POINTER TO LAST TCB.       19022
00152C 00000000                    1275+         DC    A(0) TCB POINTER TO IQE
001530 00000000                    1276+         DC    A(0) TCB POINTER TO ECB
001534 00000000                    1277+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
001538 00000000                    1278+         DC    A(0) TCB POINTER TO PQE
00153C 00000000                    1279+         DC    A(0) TCB POINTER TO AQE              MO17
001540 00000000                    1280+         DC    A(0) TCB POINTER TO STAE             MO17
001544 00000000                    1281+         DC    A(0) TCB POINTER TO TCT              MO17
001548 00000000                    1282+         DC    A(0) TCB POINTER TO USER FIELD       MO17
00154C 00                          1283+         DC    AL1(0) TCB DAR FLAGS                   DAR
00154D 000000                      1284+         DC    AL3(0) RESERVED                        DAR
001550 00000000                    1285+         DC    AL4(0) RESERVED                        I254
001554 00                          1286+         DC    AL1(0) RESERVED                        I254
001555 000000                      1287+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
001558 0000000000000000            1288+         DC    2F'0' BD A58667
                                   1289+*
                                   1290                *, RB AT TOP OF IEATCB17 'S RB QUEUE
                                   1291+*
                                                                                                               PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001560                             1292+RB17     DS    0D START RB
001560 00000000                    1293+         DC    F'0' NOT USED
001564 00000000                    1294+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
001568 00                          1295+         DC    X'00' WAIT COUNT SAVE AREA
001569 0D                          1296+         DC    X'0D' RB SIZE
00156A C080                        1297+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
00156C 00000000                    1298+         DC    F'0' CONTENTS FIELD
001570 00040000                    1299+         DC    X'00040000' 1ST WORD OF RBOPSW
001574 00000000                    1300+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
001578 00000000                    1301+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
00157C 01                          1302+         DC    X'01' WAIT COUNT
00157D 0014A0                      1303+         DC    AL3(IEATCB17) RB POINTER TO TCB
001580 0000000000000000            1304+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1305+         ENTRY IEATCB18


0015C8                             1307+         DS    0D RORI
0015C8 0000000000000000            1308+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
0015E8                             1309+         DS    0D RORI
0015E8 000016A8                    1310+IEATCB18 DC    A(RB18) TCB POINTER TO TOP RB              RORI
0015EC 00000000                    1311+         DC    A(0) TCB POINTER TO PIE                 RORI
0015F0 00000000                    1312+         DC    A(0) TCB POINTER TO DEB              19022
0015F4 00000000                    1313+         DC    A(0) TCB POINTER TO TIOT
0015F8 00000000                    1314+         DC    F'0' TCB COMPLETION CODE
0015FC 00000000                    1315+         DC    F'0' TCB TEST RAN FIELD
001600 00000000                    1316+         DC    A(0) TCB POINTER TO SPQE
001604 00                          1317+         DC    X'00' TCB PROTECT KEY
001605 00                          1318+         DC    X'00' TCB 1ST BYTE OF FLAGS
001606 00                          1319+         DC    X'00' TCB 2ND BYTE OF FLAGS
001607 80                          1320+         DC    X'80' 0CB 3RD BYTE OF FLAGS
001608 0000                        1321+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
00160A FF                          1322+         DC    X'FF' TCB LIMIT PRIORITY
00160B FF                          1323+         DC    X'FF' TCB DISPATCHING PRIORITY
00160C 00000000                    1324+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
001610 00000000                    1325+         DC    A(0) TCB POINTER TO JOB LIB DCB
001614 00000000                    1326+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
001618 00000000                    1327+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
00161C 00000000                    1328+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
001620 00002E28                    1329+         DC    A(TACT18) TCB SAVE AREA FOR GENERAL REGISTER2
001624 0000BCA0                    1330+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
001628 000015E8                    1331+         DC    A(IEATCB18) TCB SAVE AREA FOR GENERAL REGISTER4
00162C 000016A8                    1332+         DC    A(RB18) TCB SAVE AREA FOR GENERAL REGISTER5
001630 00000000                    1333+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
001634 000077E0                    1334+         DC    A(TAIOB18) TCB SAVE AREA FOR GENERAL REGISTER7
001638 00000000                    1335+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
00163C 00000000                    1336+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
001640 00002D10                    1337+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
001644 00000000                    1338+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
001648 00000000                    1339+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
00164C 00000000                    1340+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
001650 00000000                    1341+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
001654 00000000                    1342+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
001658 00                          1343+         DC    X'00' TCB NUMBER OF QUEUED QELS
001659 000000                      1344+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
00165C 00001730                    1345+         DC    A(IEATCB19) TCB POINTER TO NEXT TCB ON READY Q.
                                                                                                               PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001660 00000000                    1346+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
001664 000015E8                    1347+         DC    A(IEATCB18) TCB POINTER TO JOB STEP TCB
001668 00000000                    1348+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
00166C 00002C30                    1349+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
001670 00000000                    1350+         DC    A(0) TCB POINTER TO LAST TCB.       19022
001674 00000000                    1351+         DC    A(0) TCB POINTER TO IQE
001678 00000000                    1352+         DC    A(0) TCB POINTER TO ECB
00167C 00000000                    1353+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
001680 00000000                    1354+         DC    A(0) TCB POINTER TO PQE
001684 00000000                    1355+         DC    A(0) TCB POINTER TO AQE              MO17
001688 00000000                    1356+         DC    A(0) TCB POINTER TO STAE             MO17
00168C 00000000                    1357+         DC    A(0) TCB POINTER TO TCT              MO17
001690 00000000                    1358+         DC    A(0) TCB POINTER TO USER FIELD       MO17
001694 00                          1359+         DC    AL1(0) TCB DAR FLAGS                   DAR
001695 000000                      1360+         DC    AL3(0) RESERVED                        DAR
001698 00000000                    1361+         DC    AL4(0) RESERVED                        I254
00169C 00                          1362+         DC    AL1(0) RESERVED                        I254
00169D 000000                      1363+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
0016A0 0000000000000000            1364+         DC    2F'0' BD A58667
                                   1365+*
                                   1366                *, RB AT TOP OF IEATCB18 'S RB QUEUE
                                   1367+*
0016A8                             1368+RB18     DS    0D START RB
0016A8 00000000                    1369+         DC    F'0' NOT USED
0016AC 00000000                    1370+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
0016B0 00                          1371+         DC    X'00' WAIT COUNT SAVE AREA
0016B1 0D                          1372+         DC    X'0D' RB SIZE
0016B2 C080                        1373+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
0016B4 00000000                    1374+         DC    F'0' CONTENTS FIELD
0016B8 00040000                    1375+         DC    X'00040000' 1ST WORD OF RBOPSW
0016BC 00000000                    1376+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
0016C0 00000000                    1377+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
0016C4 01                          1378+         DC    X'01' WAIT COUNT
0016C5 0015E8                      1379+         DC    AL3(IEATCB18) RB POINTER TO TCB
0016C8 0000000000000000            1380+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1381+         ENTRY IEATCB19


001710                             1383+         DS    0D RORI
001710 0000000000000000            1384+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
001730                             1385+         DS    0D RORI
001730 000017F0                    1386+IEATCB19 DC    A(RB19) TCB POINTER TO TOP RB              RORI
001734 00000000                    1387+         DC    A(0) TCB POINTER TO PIE                 RORI
001738 00000000                    1388+         DC    A(0) TCB POINTER TO DEB              19022
00173C 00000000                    1389+         DC    A(0) TCB POINTER TO TIOT
001740 00000000                    1390+         DC    F'0' TCB COMPLETION CODE
001744 00000000                    1391+         DC    F'0' TCB TEST RAN FIELD
001748 00000000                    1392+         DC    A(0) TCB POINTER TO SPQE
00174C 00                          1393+         DC    X'00' TCB PROTECT KEY
00174D 00                          1394+         DC    X'00' TCB 1ST BYTE OF FLAGS
00174E 00                          1395+         DC    X'00' TCB 2ND BYTE OF FLAGS
00174F 80                          1396+         DC    X'80' 0CB 3RD BYTE OF FLAGS
001750 0000                        1397+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
001752 FF                          1398+         DC    X'FF' TCB LIMIT PRIORITY
001753 FF                          1399+         DC    X'FF' TCB DISPATCHING PRIORITY
                                                                                                               PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001754 00000000                    1400+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
001758 00000000                    1401+         DC    A(0) TCB POINTER TO JOB LIB DCB
00175C 00000000                    1402+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
001760 00000000                    1403+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
001764 00000000                    1404+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
001768 00002E38                    1405+         DC    A(TACT19) TCB SAVE AREA FOR GENERAL REGISTER2
00176C 0000BCA0                    1406+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
001770 00001730                    1407+         DC    A(IEATCB19) TCB SAVE AREA FOR GENERAL REGISTER4
001774 000017F0                    1408+         DC    A(RB19) TCB SAVE AREA FOR GENERAL REGISTER5
001778 00000000                    1409+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
00177C 00007C28                    1410+         DC    A(TAIOB19) TCB SAVE AREA FOR GENERAL REGISTER7
001780 00000000                    1411+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
001784 00000000                    1412+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
001788 00002D10                    1413+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
00178C 00000000                    1414+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
001790 00000000                    1415+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
001794 00000000                    1416+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
001798 00000000                    1417+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
00179C 00000000                    1418+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
0017A0 00                          1419+         DC    X'00' TCB NUMBER OF QUEUED QELS
0017A1 000000                      1420+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
0017A4 00001878                    1421+         DC    A(IEATCB20) TCB POINTER TO NEXT TCB ON READY Q.
0017A8 00000000                    1422+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
0017AC 00001730                    1423+         DC    A(IEATCB19) TCB POINTER TO JOB STEP TCB
0017B0 00000000                    1424+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
0017B4 00002C30                    1425+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
0017B8 00000000                    1426+         DC    A(0) TCB POINTER TO LAST TCB.       19022
0017BC 00000000                    1427+         DC    A(0) TCB POINTER TO IQE
0017C0 00000000                    1428+         DC    A(0) TCB POINTER TO ECB
0017C4 00000000                    1429+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
0017C8 00000000                    1430+         DC    A(0) TCB POINTER TO PQE
0017CC 00000000                    1431+         DC    A(0) TCB POINTER TO AQE              MO17
0017D0 00000000                    1432+         DC    A(0) TCB POINTER TO STAE             MO17
0017D4 00000000                    1433+         DC    A(0) TCB POINTER TO TCT              MO17
0017D8 00000000                    1434+         DC    A(0) TCB POINTER TO USER FIELD       MO17
0017DC 00                          1435+         DC    AL1(0) TCB DAR FLAGS                   DAR
0017DD 000000                      1436+         DC    AL3(0) RESERVED                        DAR
0017E0 00000000                    1437+         DC    AL4(0) RESERVED                        I254
0017E4 00                          1438+         DC    AL1(0) RESERVED                        I254
0017E5 000000                      1439+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
0017E8 0000000000000000            1440+         DC    2F'0' BD A58667
                                   1441+*
                                   1442                *, RB AT TOP OF IEATCB19 'S RB QUEUE
                                   1443+*
0017F0                             1444+RB19     DS    0D START RB
0017F0 00000000                    1445+         DC    F'0' NOT USED
0017F4 00000000                    1446+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
0017F8 00                          1447+         DC    X'00' WAIT COUNT SAVE AREA
0017F9 0D                          1448+         DC    X'0D' RB SIZE
0017FA C080                        1449+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
0017FC 00000000                    1450+         DC    F'0' CONTENTS FIELD
001800 00040000                    1451+         DC    X'00040000' 1ST WORD OF RBOPSW
001804 00000000                    1452+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
001808 00000000                    1453+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
00180C 01                          1454+         DC    X'01' WAIT COUNT
                                                                                                               PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00180D 001730                      1455+         DC    AL3(IEATCB19) RB POINTER TO TCB
001810 0000000000000000            1456+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1457+         ENTRY IEATCB20


001858                             1459+         DS    0D RORI
001858 0000000000000000            1460+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
001878                             1461+         DS    0D RORI
001878 00001938                    1462+IEATCB20 DC    A(RB20) TCB POINTER TO TOP RB              RORI
00187C 00000000                    1463+         DC    A(0) TCB POINTER TO PIE                 RORI
001880 00000000                    1464+         DC    A(0) TCB POINTER TO DEB              19022
001884 00000000                    1465+         DC    A(0) TCB POINTER TO TIOT
001888 00000000                    1466+         DC    F'0' TCB COMPLETION CODE
00188C 00000000                    1467+         DC    F'0' TCB TEST RAN FIELD
001890 00000000                    1468+         DC    A(0) TCB POINTER TO SPQE
001894 00                          1469+         DC    X'00' TCB PROTECT KEY
001895 00                          1470+         DC    X'00' TCB 1ST BYTE OF FLAGS
001896 00                          1471+         DC    X'00' TCB 2ND BYTE OF FLAGS
001897 80                          1472+         DC    X'80' 0CB 3RD BYTE OF FLAGS
001898 0000                        1473+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
00189A FF                          1474+         DC    X'FF' TCB LIMIT PRIORITY
00189B FF                          1475+         DC    X'FF' TCB DISPATCHING PRIORITY
00189C 00000000                    1476+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
0018A0 00000000                    1477+         DC    A(0) TCB POINTER TO JOB LIB DCB
0018A4 00000000                    1478+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
0018A8 00000000                    1479+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
0018AC 00000000                    1480+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
0018B0 00002E48                    1481+         DC    A(TACT20) TCB SAVE AREA FOR GENERAL REGISTER2
0018B4 0000BCA0                    1482+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
0018B8 00001878                    1483+         DC    A(IEATCB20) TCB SAVE AREA FOR GENERAL REGISTER4
0018BC 00001938                    1484+         DC    A(RB20) TCB SAVE AREA FOR GENERAL REGISTER5
0018C0 00000000                    1485+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
0018C4 00008070                    1486+         DC    A(TAIOB20) TCB SAVE AREA FOR GENERAL REGISTER7
0018C8 00000000                    1487+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
0018CC 00000000                    1488+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
0018D0 00002D10                    1489+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
0018D4 00000000                    1490+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
0018D8 00000000                    1491+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
0018DC 00000000                    1492+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
0018E0 00000000                    1493+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
0018E4 00000000                    1494+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
0018E8 00                          1495+         DC    X'00' TCB NUMBER OF QUEUED QELS
0018E9 000000                      1496+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
0018EC 000019C0                    1497+         DC    A(IEATCB21) TCB POINTER TO NEXT TCB ON READY Q.
0018F0 00000000                    1498+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
0018F4 00001878                    1499+         DC    A(IEATCB20) TCB POINTER TO JOB STEP TCB
0018F8 00000000                    1500+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
0018FC 00002C30                    1501+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
001900 00000000                    1502+         DC    A(0) TCB POINTER TO LAST TCB.       19022
001904 00000000                    1503+         DC    A(0) TCB POINTER TO IQE
001908 00000000                    1504+         DC    A(0) TCB POINTER TO ECB
00190C 00000000                    1505+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
001910 00000000                    1506+         DC    A(0) TCB POINTER TO PQE
001914 00000000                    1507+         DC    A(0) TCB POINTER TO AQE              MO17
001918 00000000                    1508+         DC    A(0) TCB POINTER TO STAE             MO17
                                                                                                               PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00191C 00000000                    1509+         DC    A(0) TCB POINTER TO TCT              MO17
001920 00000000                    1510+         DC    A(0) TCB POINTER TO USER FIELD       MO17
001924 00                          1511+         DC    AL1(0) TCB DAR FLAGS                   DAR
001925 000000                      1512+         DC    AL3(0) RESERVED                        DAR
001928 00000000                    1513+         DC    AL4(0) RESERVED                        I254
00192C 00                          1514+         DC    AL1(0) RESERVED                        I254
00192D 000000                      1515+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
001930 0000000000000000            1516+         DC    2F'0' BD A58667
                                   1517+*
                                   1518                *, RB AT TOP OF IEATCB20 'S RB QUEUE
                                   1519+*
001938                             1520+RB20     DS    0D START RB
001938 00000000                    1521+         DC    F'0' NOT USED
00193C 00000000                    1522+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
001940 00                          1523+         DC    X'00' WAIT COUNT SAVE AREA
001941 0D                          1524+         DC    X'0D' RB SIZE
001942 C080                        1525+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
001944 00000000                    1526+         DC    F'0' CONTENTS FIELD
001948 00040000                    1527+         DC    X'00040000' 1ST WORD OF RBOPSW
00194C 00000000                    1528+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
001950 00000000                    1529+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
001954 01                          1530+         DC    X'01' WAIT COUNT
001955 001878                      1531+         DC    AL3(IEATCB20) RB POINTER TO TCB
001958 0000000000000000            1532+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1533+         ENTRY IEATCB21


0019A0                             1535+         DS    0D RORI
0019A0 0000000000000000            1536+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
0019C0                             1537+         DS    0D RORI
0019C0 00001A80                    1538+IEATCB21 DC    A(RB21) TCB POINTER TO TOP RB              RORI
0019C4 00000000                    1539+         DC    A(0) TCB POINTER TO PIE                 RORI
0019C8 00000000                    1540+         DC    A(0) TCB POINTER TO DEB              19022
0019CC 00000000                    1541+         DC    A(0) TCB POINTER TO TIOT
0019D0 00000000                    1542+         DC    F'0' TCB COMPLETION CODE
0019D4 00000000                    1543+         DC    F'0' TCB TEST RAN FIELD
0019D8 00000000                    1544+         DC    A(0) TCB POINTER TO SPQE
0019DC 00                          1545+         DC    X'00' TCB PROTECT KEY
0019DD 00                          1546+         DC    X'00' TCB 1ST BYTE OF FLAGS
0019DE 00                          1547+         DC    X'00' TCB 2ND BYTE OF FLAGS
0019DF 80                          1548+         DC    X'80' 0CB 3RD BYTE OF FLAGS
0019E0 0000                        1549+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
0019E2 FF                          1550+         DC    X'FF' TCB LIMIT PRIORITY
0019E3 FF                          1551+         DC    X'FF' TCB DISPATCHING PRIORITY
0019E4 00000000                    1552+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
0019E8 00000000                    1553+         DC    A(0) TCB POINTER TO JOB LIB DCB
0019EC 00000000                    1554+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
0019F0 00000000                    1555+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
0019F4 00000000                    1556+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
0019F8 00002E58                    1557+         DC    A(TACT21) TCB SAVE AREA FOR GENERAL REGISTER2
0019FC 0000BCA0                    1558+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
001A00 000019C0                    1559+         DC    A(IEATCB21) TCB SAVE AREA FOR GENERAL REGISTER4
001A04 00001A80                    1560+         DC    A(RB21) TCB SAVE AREA FOR GENERAL REGISTER5
001A08 00000000                    1561+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
001A0C 000084B8                    1562+         DC    A(TAIOB21) TCB SAVE AREA FOR GENERAL REGISTER7
                                                                                                               PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001A10 00000000                    1563+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
001A14 00000000                    1564+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
001A18 00002D10                    1565+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
001A1C 00000000                    1566+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
001A20 00000000                    1567+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
001A24 00000000                    1568+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
001A28 00000000                    1569+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
001A2C 00000000                    1570+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
001A30 00                          1571+         DC    X'00' TCB NUMBER OF QUEUED QELS
001A31 000000                      1572+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
001A34 00001B08                    1573+         DC    A(IEATCB22) TCB POINTER TO NEXT TCB ON READY Q.
001A38 00000000                    1574+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
001A3C 000019C0                    1575+         DC    A(IEATCB21) TCB POINTER TO JOB STEP TCB
001A40 00000000                    1576+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
001A44 00002C30                    1577+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
001A48 00000000                    1578+         DC    A(0) TCB POINTER TO LAST TCB.       19022
001A4C 00000000                    1579+         DC    A(0) TCB POINTER TO IQE
001A50 00000000                    1580+         DC    A(0) TCB POINTER TO ECB
001A54 00000000                    1581+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
001A58 00000000                    1582+         DC    A(0) TCB POINTER TO PQE
001A5C 00000000                    1583+         DC    A(0) TCB POINTER TO AQE              MO17
001A60 00000000                    1584+         DC    A(0) TCB POINTER TO STAE             MO17
001A64 00000000                    1585+         DC    A(0) TCB POINTER TO TCT              MO17
001A68 00000000                    1586+         DC    A(0) TCB POINTER TO USER FIELD       MO17
001A6C 00                          1587+         DC    AL1(0) TCB DAR FLAGS                   DAR
001A6D 000000                      1588+         DC    AL3(0) RESERVED                        DAR
001A70 00000000                    1589+         DC    AL4(0) RESERVED                        I254
001A74 00                          1590+         DC    AL1(0) RESERVED                        I254
001A75 000000                      1591+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
001A78 0000000000000000            1592+         DC    2F'0' BD A58667
                                   1593+*
                                   1594                *, RB AT TOP OF IEATCB21 'S RB QUEUE
                                   1595+*
001A80                             1596+RB21     DS    0D START RB
001A80 00000000                    1597+         DC    F'0' NOT USED
001A84 00000000                    1598+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
001A88 00                          1599+         DC    X'00' WAIT COUNT SAVE AREA
001A89 0D                          1600+         DC    X'0D' RB SIZE
001A8A C080                        1601+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
001A8C 00000000                    1602+         DC    F'0' CONTENTS FIELD
001A90 00040000                    1603+         DC    X'00040000' 1ST WORD OF RBOPSW
001A94 00000000                    1604+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
001A98 00000000                    1605+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
001A9C 01                          1606+         DC    X'01' WAIT COUNT
001A9D 0019C0                      1607+         DC    AL3(IEATCB21) RB POINTER TO TCB
001AA0 0000000000000000            1608+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1609+         ENTRY IEATCB22


001AE8                             1611+         DS    0D RORI
001AE8 0000000000000000            1612+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
001B08                             1613+         DS    0D RORI
001B08 00001BC8                    1614+IEATCB22 DC    A(RB22) TCB POINTER TO TOP RB              RORI
001B0C 00000000                    1615+         DC    A(0) TCB POINTER TO PIE                 RORI
001B10 00000000                    1616+         DC    A(0) TCB POINTER TO DEB              19022
                                                                                                               PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001B14 00000000                    1617+         DC    A(0) TCB POINTER TO TIOT
001B18 00000000                    1618+         DC    F'0' TCB COMPLETION CODE
001B1C 00000000                    1619+         DC    F'0' TCB TEST RAN FIELD
001B20 00000000                    1620+         DC    A(0) TCB POINTER TO SPQE
001B24 00                          1621+         DC    X'00' TCB PROTECT KEY
001B25 00                          1622+         DC    X'00' TCB 1ST BYTE OF FLAGS
001B26 00                          1623+         DC    X'00' TCB 2ND BYTE OF FLAGS
001B27 80                          1624+         DC    X'80' 0CB 3RD BYTE OF FLAGS
001B28 0000                        1625+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
001B2A FF                          1626+         DC    X'FF' TCB LIMIT PRIORITY
001B2B FF                          1627+         DC    X'FF' TCB DISPATCHING PRIORITY
001B2C 00000000                    1628+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
001B30 00000000                    1629+         DC    A(0) TCB POINTER TO JOB LIB DCB
001B34 00000000                    1630+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
001B38 00000000                    1631+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
001B3C 00000000                    1632+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
001B40 00002E68                    1633+         DC    A(TACT22) TCB SAVE AREA FOR GENERAL REGISTER2
001B44 0000BCA0                    1634+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
001B48 00001B08                    1635+         DC    A(IEATCB22) TCB SAVE AREA FOR GENERAL REGISTER4
001B4C 00001BC8                    1636+         DC    A(RB22) TCB SAVE AREA FOR GENERAL REGISTER5
001B50 00000000                    1637+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
001B54 00008900                    1638+         DC    A(TAIOB22) TCB SAVE AREA FOR GENERAL REGISTER7
001B58 00000000                    1639+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
001B5C 00000000                    1640+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
001B60 00002D10                    1641+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
001B64 00000000                    1642+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
001B68 00000000                    1643+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
001B6C 00000000                    1644+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
001B70 00000000                    1645+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
001B74 00000000                    1646+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
001B78 00                          1647+         DC    X'00' TCB NUMBER OF QUEUED QELS
001B79 000000                      1648+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
001B7C 00001C50                    1649+         DC    A(IEATCB23) TCB POINTER TO NEXT TCB ON READY Q.
001B80 00000000                    1650+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
001B84 00001B08                    1651+         DC    A(IEATCB22) TCB POINTER TO JOB STEP TCB
001B88 00000000                    1652+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
001B8C 00002C30                    1653+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
001B90 00000000                    1654+         DC    A(0) TCB POINTER TO LAST TCB.       19022
001B94 00000000                    1655+         DC    A(0) TCB POINTER TO IQE
001B98 00000000                    1656+         DC    A(0) TCB POINTER TO ECB
001B9C 00000000                    1657+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
001BA0 00000000                    1658+         DC    A(0) TCB POINTER TO PQE
001BA4 00000000                    1659+         DC    A(0) TCB POINTER TO AQE              MO17
001BA8 00000000                    1660+         DC    A(0) TCB POINTER TO STAE             MO17
001BAC 00000000                    1661+         DC    A(0) TCB POINTER TO TCT              MO17
001BB0 00000000                    1662+         DC    A(0) TCB POINTER TO USER FIELD       MO17
001BB4 00                          1663+         DC    AL1(0) TCB DAR FLAGS                   DAR
001BB5 000000                      1664+         DC    AL3(0) RESERVED                        DAR
001BB8 00000000                    1665+         DC    AL4(0) RESERVED                        I254
001BBC 00                          1666+         DC    AL1(0) RESERVED                        I254
001BBD 000000                      1667+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
001BC0 0000000000000000            1668+         DC    2F'0' BD A58667
                                   1669+*
                                   1670                *, RB AT TOP OF IEATCB22 'S RB QUEUE
                                   1671+*
                                                                                                               PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001BC8                             1672+RB22     DS    0D START RB
001BC8 00000000                    1673+         DC    F'0' NOT USED
001BCC 00000000                    1674+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
001BD0 00                          1675+         DC    X'00' WAIT COUNT SAVE AREA
001BD1 0D                          1676+         DC    X'0D' RB SIZE
001BD2 C080                        1677+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
001BD4 00000000                    1678+         DC    F'0' CONTENTS FIELD
001BD8 00040000                    1679+         DC    X'00040000' 1ST WORD OF RBOPSW
001BDC 00000000                    1680+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
001BE0 00000000                    1681+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
001BE4 01                          1682+         DC    X'01' WAIT COUNT
001BE5 001B08                      1683+         DC    AL3(IEATCB22) RB POINTER TO TCB
001BE8 0000000000000000            1684+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1685+         ENTRY IEATCB23


001C30                             1687+         DS    0D RORI
001C30 0000000000000000            1688+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
001C50                             1689+         DS    0D RORI
001C50 00001D10                    1690+IEATCB23 DC    A(RB23) TCB POINTER TO TOP RB              RORI
001C54 00000000                    1691+         DC    A(0) TCB POINTER TO PIE                 RORI
001C58 00000000                    1692+         DC    A(0) TCB POINTER TO DEB              19022
001C5C 00000000                    1693+         DC    A(0) TCB POINTER TO TIOT
001C60 00000000                    1694+         DC    F'0' TCB COMPLETION CODE
001C64 00000000                    1695+         DC    F'0' TCB TEST RAN FIELD
001C68 00000000                    1696+         DC    A(0) TCB POINTER TO SPQE
001C6C 00                          1697+         DC    X'00' TCB PROTECT KEY
001C6D 00                          1698+         DC    X'00' TCB 1ST BYTE OF FLAGS
001C6E 00                          1699+         DC    X'00' TCB 2ND BYTE OF FLAGS
001C6F 80                          1700+         DC    X'80' 0CB 3RD BYTE OF FLAGS
001C70 0000                        1701+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
001C72 FF                          1702+         DC    X'FF' TCB LIMIT PRIORITY
001C73 FF                          1703+         DC    X'FF' TCB DISPATCHING PRIORITY
001C74 00000000                    1704+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
001C78 00000000                    1705+         DC    A(0) TCB POINTER TO JOB LIB DCB
001C7C 00000000                    1706+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
001C80 00000000                    1707+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
001C84 00000000                    1708+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
001C88 00002E78                    1709+         DC    A(TACT23) TCB SAVE AREA FOR GENERAL REGISTER2
001C8C 0000BCA0                    1710+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
001C90 00001C50                    1711+         DC    A(IEATCB23) TCB SAVE AREA FOR GENERAL REGISTER4
001C94 00001D10                    1712+         DC    A(RB23) TCB SAVE AREA FOR GENERAL REGISTER5
001C98 00000000                    1713+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
001C9C 00008D48                    1714+         DC    A(TAIOB23) TCB SAVE AREA FOR GENERAL REGISTER7
001CA0 00000000                    1715+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
001CA4 00000000                    1716+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
001CA8 00002D10                    1717+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
001CAC 00000000                    1718+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
001CB0 00000000                    1719+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
001CB4 00000000                    1720+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
001CB8 00000000                    1721+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
001CBC 00000000                    1722+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
001CC0 00                          1723+         DC    X'00' TCB NUMBER OF QUEUED QELS
001CC1 000000                      1724+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
001CC4 00001D98                    1725+         DC    A(IEATCB24) TCB POINTER TO NEXT TCB ON READY Q.
                                                                                                               PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001CC8 00000000                    1726+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
001CCC 00001C50                    1727+         DC    A(IEATCB23) TCB POINTER TO JOB STEP TCB
001CD0 00000000                    1728+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
001CD4 00002C30                    1729+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
001CD8 00000000                    1730+         DC    A(0) TCB POINTER TO LAST TCB.       19022
001CDC 00000000                    1731+         DC    A(0) TCB POINTER TO IQE
001CE0 00000000                    1732+         DC    A(0) TCB POINTER TO ECB
001CE4 00000000                    1733+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
001CE8 00000000                    1734+         DC    A(0) TCB POINTER TO PQE
001CEC 00000000                    1735+         DC    A(0) TCB POINTER TO AQE              MO17
001CF0 00000000                    1736+         DC    A(0) TCB POINTER TO STAE             MO17
001CF4 00000000                    1737+         DC    A(0) TCB POINTER TO TCT              MO17
001CF8 00000000                    1738+         DC    A(0) TCB POINTER TO USER FIELD       MO17
001CFC 00                          1739+         DC    AL1(0) TCB DAR FLAGS                   DAR
001CFD 000000                      1740+         DC    AL3(0) RESERVED                        DAR
001D00 00000000                    1741+         DC    AL4(0) RESERVED                        I254
001D04 00                          1742+         DC    AL1(0) RESERVED                        I254
001D05 000000                      1743+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
001D08 0000000000000000            1744+         DC    2F'0' BD A58667
                                   1745+*
                                   1746                *, RB AT TOP OF IEATCB23 'S RB QUEUE
                                   1747+*
001D10                             1748+RB23     DS    0D START RB
001D10 00000000                    1749+         DC    F'0' NOT USED
001D14 00000000                    1750+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
001D18 00                          1751+         DC    X'00' WAIT COUNT SAVE AREA
001D19 0D                          1752+         DC    X'0D' RB SIZE
001D1A C080                        1753+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
001D1C 00000000                    1754+         DC    F'0' CONTENTS FIELD
001D20 00040000                    1755+         DC    X'00040000' 1ST WORD OF RBOPSW
001D24 00000000                    1756+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
001D28 00000000                    1757+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
001D2C 01                          1758+         DC    X'01' WAIT COUNT
001D2D 001C50                      1759+         DC    AL3(IEATCB23) RB POINTER TO TCB
001D30 0000000000000000            1760+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1761+         ENTRY IEATCB24


001D78                             1763+         DS    0D RORI
001D78 0000000000000000            1764+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
001D98                             1765+         DS    0D RORI
001D98 00001E58                    1766+IEATCB24 DC    A(RB24) TCB POINTER TO TOP RB              RORI
001D9C 00000000                    1767+         DC    A(0) TCB POINTER TO PIE                 RORI
001DA0 00000000                    1768+         DC    A(0) TCB POINTER TO DEB              19022
001DA4 00000000                    1769+         DC    A(0) TCB POINTER TO TIOT
001DA8 00000000                    1770+         DC    F'0' TCB COMPLETION CODE
001DAC 00000000                    1771+         DC    F'0' TCB TEST RAN FIELD
001DB0 00000000                    1772+         DC    A(0) TCB POINTER TO SPQE
001DB4 00                          1773+         DC    X'00' TCB PROTECT KEY
001DB5 00                          1774+         DC    X'00' TCB 1ST BYTE OF FLAGS
001DB6 00                          1775+         DC    X'00' TCB 2ND BYTE OF FLAGS
001DB7 80                          1776+         DC    X'80' 0CB 3RD BYTE OF FLAGS
001DB8 0000                        1777+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
001DBA FF                          1778+         DC    X'FF' TCB LIMIT PRIORITY
001DBB FF                          1779+         DC    X'FF' TCB DISPATCHING PRIORITY
                                                                                                               PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001DBC 00000000                    1780+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
001DC0 00000000                    1781+         DC    A(0) TCB POINTER TO JOB LIB DCB
001DC4 00000000                    1782+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
001DC8 00000000                    1783+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
001DCC 00000000                    1784+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
001DD0 00002E88                    1785+         DC    A(TACT24) TCB SAVE AREA FOR GENERAL REGISTER2
001DD4 0000BCA0                    1786+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
001DD8 00001D98                    1787+         DC    A(IEATCB24) TCB SAVE AREA FOR GENERAL REGISTER4
001DDC 00001E58                    1788+         DC    A(RB24) TCB SAVE AREA FOR GENERAL REGISTER5
001DE0 00000000                    1789+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
001DE4 00009190                    1790+         DC    A(TAIOB24) TCB SAVE AREA FOR GENERAL REGISTER7
001DE8 00000000                    1791+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
001DEC 00000000                    1792+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
001DF0 00002D10                    1793+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
001DF4 00000000                    1794+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
001DF8 00000000                    1795+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
001DFC 00000000                    1796+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
001E00 00000000                    1797+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
001E04 00000000                    1798+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
001E08 00                          1799+         DC    X'00' TCB NUMBER OF QUEUED QELS
001E09 000000                      1800+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
001E0C 00001EE0                    1801+         DC    A(IEATCB25) TCB POINTER TO NEXT TCB ON READY Q.
001E10 00000000                    1802+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
001E14 00001D98                    1803+         DC    A(IEATCB24) TCB POINTER TO JOB STEP TCB
001E18 00000000                    1804+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
001E1C 00002C30                    1805+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
001E20 00000000                    1806+         DC    A(0) TCB POINTER TO LAST TCB.       19022
001E24 00000000                    1807+         DC    A(0) TCB POINTER TO IQE
001E28 00000000                    1808+         DC    A(0) TCB POINTER TO ECB
001E2C 00000000                    1809+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
001E30 00000000                    1810+         DC    A(0) TCB POINTER TO PQE
001E34 00000000                    1811+         DC    A(0) TCB POINTER TO AQE              MO17
001E38 00000000                    1812+         DC    A(0) TCB POINTER TO STAE             MO17
001E3C 00000000                    1813+         DC    A(0) TCB POINTER TO TCT              MO17
001E40 00000000                    1814+         DC    A(0) TCB POINTER TO USER FIELD       MO17
001E44 00                          1815+         DC    AL1(0) TCB DAR FLAGS                   DAR
001E45 000000                      1816+         DC    AL3(0) RESERVED                        DAR
001E48 00000000                    1817+         DC    AL4(0) RESERVED                        I254
001E4C 00                          1818+         DC    AL1(0) RESERVED                        I254
001E4D 000000                      1819+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
001E50 0000000000000000            1820+         DC    2F'0' BD A58667
                                   1821+*
                                   1822                *, RB AT TOP OF IEATCB24 'S RB QUEUE
                                   1823+*
001E58                             1824+RB24     DS    0D START RB
001E58 00000000                    1825+         DC    F'0' NOT USED
001E5C 00000000                    1826+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
001E60 00                          1827+         DC    X'00' WAIT COUNT SAVE AREA
001E61 0D                          1828+         DC    X'0D' RB SIZE
001E62 C080                        1829+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
001E64 00000000                    1830+         DC    F'0' CONTENTS FIELD
001E68 00040000                    1831+         DC    X'00040000' 1ST WORD OF RBOPSW
001E6C 00000000                    1832+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
001E70 00000000                    1833+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
001E74 01                          1834+         DC    X'01' WAIT COUNT
                                                                                                               PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001E75 001D98                      1835+         DC    AL3(IEATCB24) RB POINTER TO TCB
001E78 0000000000000000            1836+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1837+         ENTRY IEATCB25


001EC0                             1839+         DS    0D RORI
001EC0 0000000000000000            1840+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
001EE0                             1841+         DS    0D RORI
001EE0 00001FA0                    1842+IEATCB25 DC    A(RB25) TCB POINTER TO TOP RB              RORI
001EE4 00000000                    1843+         DC    A(0) TCB POINTER TO PIE                 RORI
001EE8 00000000                    1844+         DC    A(0) TCB POINTER TO DEB              19022
001EEC 00000000                    1845+         DC    A(0) TCB POINTER TO TIOT
001EF0 00000000                    1846+         DC    F'0' TCB COMPLETION CODE
001EF4 00000000                    1847+         DC    F'0' TCB TEST RAN FIELD
001EF8 00000000                    1848+         DC    A(0) TCB POINTER TO SPQE
001EFC 00                          1849+         DC    X'00' TCB PROTECT KEY
001EFD 00                          1850+         DC    X'00' TCB 1ST BYTE OF FLAGS
001EFE 00                          1851+         DC    X'00' TCB 2ND BYTE OF FLAGS
001EFF 80                          1852+         DC    X'80' 0CB 3RD BYTE OF FLAGS
001F00 0000                        1853+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
001F02 FF                          1854+         DC    X'FF' TCB LIMIT PRIORITY
001F03 FF                          1855+         DC    X'FF' TCB DISPATCHING PRIORITY
001F04 00000000                    1856+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
001F08 00000000                    1857+         DC    A(0) TCB POINTER TO JOB LIB DCB
001F0C 00000000                    1858+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
001F10 00000000                    1859+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
001F14 00000000                    1860+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
001F18 00002E98                    1861+         DC    A(TACT25) TCB SAVE AREA FOR GENERAL REGISTER2
001F1C 0000BCA0                    1862+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
001F20 00001EE0                    1863+         DC    A(IEATCB25) TCB SAVE AREA FOR GENERAL REGISTER4
001F24 00001FA0                    1864+         DC    A(RB25) TCB SAVE AREA FOR GENERAL REGISTER5
001F28 00000000                    1865+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
001F2C 000095D8                    1866+         DC    A(TAIOB25) TCB SAVE AREA FOR GENERAL REGISTER7
001F30 00000000                    1867+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
001F34 00000000                    1868+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
001F38 00002D10                    1869+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
001F3C 00000000                    1870+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
001F40 00000000                    1871+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
001F44 00000000                    1872+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
001F48 00000000                    1873+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
001F4C 00000000                    1874+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
001F50 00                          1875+         DC    X'00' TCB NUMBER OF QUEUED QELS
001F51 000000                      1876+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
001F54 00002028                    1877+         DC    A(IEATCB26) TCB POINTER TO NEXT TCB ON READY Q.
001F58 00000000                    1878+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
001F5C 00001EE0                    1879+         DC    A(IEATCB25) TCB POINTER TO JOB STEP TCB
001F60 00000000                    1880+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
001F64 00002C30                    1881+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
001F68 00000000                    1882+         DC    A(0) TCB POINTER TO LAST TCB.       19022
001F6C 00000000                    1883+         DC    A(0) TCB POINTER TO IQE
001F70 00000000                    1884+         DC    A(0) TCB POINTER TO ECB
001F74 00000000                    1885+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
001F78 00000000                    1886+         DC    A(0) TCB POINTER TO PQE
001F7C 00000000                    1887+         DC    A(0) TCB POINTER TO AQE              MO17
001F80 00000000                    1888+         DC    A(0) TCB POINTER TO STAE             MO17
                                                                                                               PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001F84 00000000                    1889+         DC    A(0) TCB POINTER TO TCT              MO17
001F88 00000000                    1890+         DC    A(0) TCB POINTER TO USER FIELD       MO17
001F8C 00                          1891+         DC    AL1(0) TCB DAR FLAGS                   DAR
001F8D 000000                      1892+         DC    AL3(0) RESERVED                        DAR
001F90 00000000                    1893+         DC    AL4(0) RESERVED                        I254
001F94 00                          1894+         DC    AL1(0) RESERVED                        I254
001F95 000000                      1895+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
001F98 0000000000000000            1896+         DC    2F'0' BD A58667
                                   1897+*
                                   1898                *, RB AT TOP OF IEATCB25 'S RB QUEUE
                                   1899+*
001FA0                             1900+RB25     DS    0D START RB
001FA0 00000000                    1901+         DC    F'0' NOT USED
001FA4 00000000                    1902+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
001FA8 00                          1903+         DC    X'00' WAIT COUNT SAVE AREA
001FA9 0D                          1904+         DC    X'0D' RB SIZE
001FAA C080                        1905+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
001FAC 00000000                    1906+         DC    F'0' CONTENTS FIELD
001FB0 00040000                    1907+         DC    X'00040000' 1ST WORD OF RBOPSW
001FB4 00000000                    1908+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
001FB8 00000000                    1909+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
001FBC 01                          1910+         DC    X'01' WAIT COUNT
001FBD 001EE0                      1911+         DC    AL3(IEATCB25) RB POINTER TO TCB
001FC0 0000000000000000            1912+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1913+         ENTRY IEATCB26


002008                             1915+         DS    0D RORI
002008 0000000000000000            1916+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
002028                             1917+         DS    0D RORI
002028 000020E8                    1918+IEATCB26 DC    A(RB26) TCB POINTER TO TOP RB              RORI
00202C 00000000                    1919+         DC    A(0) TCB POINTER TO PIE                 RORI
002030 00000000                    1920+         DC    A(0) TCB POINTER TO DEB              19022
002034 00000000                    1921+         DC    A(0) TCB POINTER TO TIOT
002038 00000000                    1922+         DC    F'0' TCB COMPLETION CODE
00203C 00000000                    1923+         DC    F'0' TCB TEST RAN FIELD
002040 00000000                    1924+         DC    A(0) TCB POINTER TO SPQE
002044 00                          1925+         DC    X'00' TCB PROTECT KEY
002045 00                          1926+         DC    X'00' TCB 1ST BYTE OF FLAGS
002046 00                          1927+         DC    X'00' TCB 2ND BYTE OF FLAGS
002047 80                          1928+         DC    X'80' 0CB 3RD BYTE OF FLAGS
002048 0000                        1929+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
00204A FF                          1930+         DC    X'FF' TCB LIMIT PRIORITY
00204B FF                          1931+         DC    X'FF' TCB DISPATCHING PRIORITY
00204C 00000000                    1932+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
002050 00000000                    1933+         DC    A(0) TCB POINTER TO JOB LIB DCB
002054 00000000                    1934+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
002058 00000000                    1935+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
00205C 00000000                    1936+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
002060 00002EA8                    1937+         DC    A(TACT26) TCB SAVE AREA FOR GENERAL REGISTER2
002064 0000BCA0                    1938+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
002068 00002028                    1939+         DC    A(IEATCB26) TCB SAVE AREA FOR GENERAL REGISTER4
00206C 000020E8                    1940+         DC    A(RB26) TCB SAVE AREA FOR GENERAL REGISTER5
002070 00000000                    1941+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
002074 00009A20                    1942+         DC    A(TAIOB26) TCB SAVE AREA FOR GENERAL REGISTER7
                                                                                                               PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002078 00000000                    1943+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
00207C 00000000                    1944+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
002080 00002D10                    1945+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
002084 00000000                    1946+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
002088 00000000                    1947+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
00208C 00000000                    1948+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
002090 00000000                    1949+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
002094 00000000                    1950+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
002098 00                          1951+         DC    X'00' TCB NUMBER OF QUEUED QELS
002099 000000                      1952+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
00209C 00002170                    1953+         DC    A(IEATCB27) TCB POINTER TO NEXT TCB ON READY Q.
0020A0 00000000                    1954+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
0020A4 00002028                    1955+         DC    A(IEATCB26) TCB POINTER TO JOB STEP TCB
0020A8 00000000                    1956+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
0020AC 00002C30                    1957+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
0020B0 00000000                    1958+         DC    A(0) TCB POINTER TO LAST TCB.       19022
0020B4 00000000                    1959+         DC    A(0) TCB POINTER TO IQE
0020B8 00000000                    1960+         DC    A(0) TCB POINTER TO ECB
0020BC 00000000                    1961+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
0020C0 00000000                    1962+         DC    A(0) TCB POINTER TO PQE
0020C4 00000000                    1963+         DC    A(0) TCB POINTER TO AQE              MO17
0020C8 00000000                    1964+         DC    A(0) TCB POINTER TO STAE             MO17
0020CC 00000000                    1965+         DC    A(0) TCB POINTER TO TCT              MO17
0020D0 00000000                    1966+         DC    A(0) TCB POINTER TO USER FIELD       MO17
0020D4 00                          1967+         DC    AL1(0) TCB DAR FLAGS                   DAR
0020D5 000000                      1968+         DC    AL3(0) RESERVED                        DAR
0020D8 00000000                    1969+         DC    AL4(0) RESERVED                        I254
0020DC 00                          1970+         DC    AL1(0) RESERVED                        I254
0020DD 000000                      1971+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
0020E0 0000000000000000            1972+         DC    2F'0' BD A58667
                                   1973+*
                                   1974                *, RB AT TOP OF IEATCB26 'S RB QUEUE
                                   1975+*
0020E8                             1976+RB26     DS    0D START RB
0020E8 00000000                    1977+         DC    F'0' NOT USED
0020EC 00000000                    1978+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
0020F0 00                          1979+         DC    X'00' WAIT COUNT SAVE AREA
0020F1 0D                          1980+         DC    X'0D' RB SIZE
0020F2 C080                        1981+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
0020F4 00000000                    1982+         DC    F'0' CONTENTS FIELD
0020F8 00040000                    1983+         DC    X'00040000' 1ST WORD OF RBOPSW
0020FC 00000000                    1984+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
002100 00000000                    1985+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
002104 01                          1986+         DC    X'01' WAIT COUNT
002105 002028                      1987+         DC    AL3(IEATCB26) RB POINTER TO TCB
002108 0000000000000000            1988+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   1989+         ENTRY IEATCB27


002150                             1991+         DS    0D RORI
002150 0000000000000000            1992+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
002170                             1993+         DS    0D RORI
002170 00002230                    1994+IEATCB27 DC    A(RB27) TCB POINTER TO TOP RB              RORI
002174 00000000                    1995+         DC    A(0) TCB POINTER TO PIE                 RORI
002178 00000000                    1996+         DC    A(0) TCB POINTER TO DEB              19022
                                                                                                               PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00217C 00000000                    1997+         DC    A(0) TCB POINTER TO TIOT
002180 00000000                    1998+         DC    F'0' TCB COMPLETION CODE
002184 00000000                    1999+         DC    F'0' TCB TEST RAN FIELD
002188 00000000                    2000+         DC    A(0) TCB POINTER TO SPQE
00218C 00                          2001+         DC    X'00' TCB PROTECT KEY
00218D 00                          2002+         DC    X'00' TCB 1ST BYTE OF FLAGS
00218E 00                          2003+         DC    X'00' TCB 2ND BYTE OF FLAGS
00218F 80                          2004+         DC    X'80' 0CB 3RD BYTE OF FLAGS
002190 0000                        2005+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
002192 FF                          2006+         DC    X'FF' TCB LIMIT PRIORITY
002193 FF                          2007+         DC    X'FF' TCB DISPATCHING PRIORITY
002194 00000000                    2008+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
002198 00000000                    2009+         DC    A(0) TCB POINTER TO JOB LIB DCB
00219C 00000000                    2010+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
0021A0 00000000                    2011+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
0021A4 00000000                    2012+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
0021A8 00002EB8                    2013+         DC    A(TACT27) TCB SAVE AREA FOR GENERAL REGISTER2
0021AC 0000BCA0                    2014+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
0021B0 00002170                    2015+         DC    A(IEATCB27) TCB SAVE AREA FOR GENERAL REGISTER4
0021B4 00002230                    2016+         DC    A(RB27) TCB SAVE AREA FOR GENERAL REGISTER5
0021B8 00000000                    2017+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
0021BC 00009E68                    2018+         DC    A(TAIOB27) TCB SAVE AREA FOR GENERAL REGISTER7
0021C0 00000000                    2019+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
0021C4 00000000                    2020+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
0021C8 00002D10                    2021+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
0021CC 00000000                    2022+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
0021D0 00000000                    2023+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
0021D4 00000000                    2024+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
0021D8 00000000                    2025+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
0021DC 00000000                    2026+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
0021E0 00                          2027+         DC    X'00' TCB NUMBER OF QUEUED QELS
0021E1 000000                      2028+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
0021E4 000022B8                    2029+         DC    A(IEATCB28) TCB POINTER TO NEXT TCB ON READY Q.
0021E8 00000000                    2030+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
0021EC 00002170                    2031+         DC    A(IEATCB27) TCB POINTER TO JOB STEP TCB
0021F0 00000000                    2032+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
0021F4 00002C30                    2033+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
0021F8 00000000                    2034+         DC    A(0) TCB POINTER TO LAST TCB.       19022
0021FC 00000000                    2035+         DC    A(0) TCB POINTER TO IQE
002200 00000000                    2036+         DC    A(0) TCB POINTER TO ECB
002204 00000000                    2037+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
002208 00000000                    2038+         DC    A(0) TCB POINTER TO PQE
00220C 00000000                    2039+         DC    A(0) TCB POINTER TO AQE              MO17
002210 00000000                    2040+         DC    A(0) TCB POINTER TO STAE             MO17
002214 00000000                    2041+         DC    A(0) TCB POINTER TO TCT              MO17
002218 00000000                    2042+         DC    A(0) TCB POINTER TO USER FIELD       MO17
00221C 00                          2043+         DC    AL1(0) TCB DAR FLAGS                   DAR
00221D 000000                      2044+         DC    AL3(0) RESERVED                        DAR
002220 00000000                    2045+         DC    AL4(0) RESERVED                        I254
002224 00                          2046+         DC    AL1(0) RESERVED                        I254
002225 000000                      2047+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
002228 0000000000000000            2048+         DC    2F'0' BD A58667
                                   2049+*
                                   2050                *, RB AT TOP OF IEATCB27 'S RB QUEUE
                                   2051+*
                                                                                                               PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002230                             2052+RB27     DS    0D START RB
002230 00000000                    2053+         DC    F'0' NOT USED
002234 00000000                    2054+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
002238 00                          2055+         DC    X'00' WAIT COUNT SAVE AREA
002239 0D                          2056+         DC    X'0D' RB SIZE
00223A C080                        2057+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
00223C 00000000                    2058+         DC    F'0' CONTENTS FIELD
002240 00040000                    2059+         DC    X'00040000' 1ST WORD OF RBOPSW
002244 00000000                    2060+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
002248 00000000                    2061+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
00224C 01                          2062+         DC    X'01' WAIT COUNT
00224D 002170                      2063+         DC    AL3(IEATCB27) RB POINTER TO TCB
002250 0000000000000000            2064+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   2065+         ENTRY IEATCB28


002298                             2067+         DS    0D RORI
002298 0000000000000000            2068+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
0022B8                             2069+         DS    0D RORI
0022B8 00002378                    2070+IEATCB28 DC    A(RB28) TCB POINTER TO TOP RB              RORI
0022BC 00000000                    2071+         DC    A(0) TCB POINTER TO PIE                 RORI
0022C0 00000000                    2072+         DC    A(0) TCB POINTER TO DEB              19022
0022C4 00000000                    2073+         DC    A(0) TCB POINTER TO TIOT
0022C8 00000000                    2074+         DC    F'0' TCB COMPLETION CODE
0022CC 00000000                    2075+         DC    F'0' TCB TEST RAN FIELD
0022D0 00000000                    2076+         DC    A(0) TCB POINTER TO SPQE
0022D4 00                          2077+         DC    X'00' TCB PROTECT KEY
0022D5 00                          2078+         DC    X'00' TCB 1ST BYTE OF FLAGS
0022D6 00                          2079+         DC    X'00' TCB 2ND BYTE OF FLAGS
0022D7 80                          2080+         DC    X'80' 0CB 3RD BYTE OF FLAGS
0022D8 0000                        2081+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
0022DA FF                          2082+         DC    X'FF' TCB LIMIT PRIORITY
0022DB FF                          2083+         DC    X'FF' TCB DISPATCHING PRIORITY
0022DC 00000000                    2084+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
0022E0 00000000                    2085+         DC    A(0) TCB POINTER TO JOB LIB DCB
0022E4 00000000                    2086+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
0022E8 00000000                    2087+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
0022EC 00000000                    2088+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
0022F0 00002EC8                    2089+         DC    A(TACT28) TCB SAVE AREA FOR GENERAL REGISTER2
0022F4 0000BCA0                    2090+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
0022F8 000022B8                    2091+         DC    A(IEATCB28) TCB SAVE AREA FOR GENERAL REGISTER4
0022FC 00002378                    2092+         DC    A(RB28) TCB SAVE AREA FOR GENERAL REGISTER5
002300 00000000                    2093+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
002304 0000A2B0                    2094+         DC    A(TAIOB28) TCB SAVE AREA FOR GENERAL REGISTER7
002308 00000000                    2095+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
00230C 00000000                    2096+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
002310 00002D10                    2097+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
002314 00000000                    2098+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
002318 00000000                    2099+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
00231C 00000000                    2100+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
002320 00000000                    2101+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
002324 00000000                    2102+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
002328 00                          2103+         DC    X'00' TCB NUMBER OF QUEUED QELS
002329 000000                      2104+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
00232C 00002400                    2105+         DC    A(IEATCB29) TCB POINTER TO NEXT TCB ON READY Q.
                                                                                                               PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002330 00000000                    2106+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
002334 000022B8                    2107+         DC    A(IEATCB28) TCB POINTER TO JOB STEP TCB
002338 00000000                    2108+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
00233C 00002C30                    2109+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
002340 00000000                    2110+         DC    A(0) TCB POINTER TO LAST TCB.       19022
002344 00000000                    2111+         DC    A(0) TCB POINTER TO IQE
002348 00000000                    2112+         DC    A(0) TCB POINTER TO ECB
00234C 00000000                    2113+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
002350 00000000                    2114+         DC    A(0) TCB POINTER TO PQE
002354 00000000                    2115+         DC    A(0) TCB POINTER TO AQE              MO17
002358 00000000                    2116+         DC    A(0) TCB POINTER TO STAE             MO17
00235C 00000000                    2117+         DC    A(0) TCB POINTER TO TCT              MO17
002360 00000000                    2118+         DC    A(0) TCB POINTER TO USER FIELD       MO17
002364 00                          2119+         DC    AL1(0) TCB DAR FLAGS                   DAR
002365 000000                      2120+         DC    AL3(0) RESERVED                        DAR
002368 00000000                    2121+         DC    AL4(0) RESERVED                        I254
00236C 00                          2122+         DC    AL1(0) RESERVED                        I254
00236D 000000                      2123+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
002370 0000000000000000            2124+         DC    2F'0' BD A58667
                                   2125+*
                                   2126                *, RB AT TOP OF IEATCB28 'S RB QUEUE
                                   2127+*
002378                             2128+RB28     DS    0D START RB
002378 00000000                    2129+         DC    F'0' NOT USED
00237C 00000000                    2130+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
002380 00                          2131+         DC    X'00' WAIT COUNT SAVE AREA
002381 0D                          2132+         DC    X'0D' RB SIZE
002382 C080                        2133+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
002384 00000000                    2134+         DC    F'0' CONTENTS FIELD
002388 00040000                    2135+         DC    X'00040000' 1ST WORD OF RBOPSW
00238C 00000000                    2136+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
002390 00000000                    2137+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
002394 01                          2138+         DC    X'01' WAIT COUNT
002395 0022B8                      2139+         DC    AL3(IEATCB28) RB POINTER TO TCB
002398 0000000000000000            2140+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   2141+         ENTRY IEATCB29


0023E0                             2143+         DS    0D RORI
0023E0 0000000000000000            2144+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
002400                             2145+         DS    0D RORI
002400 000024C0                    2146+IEATCB29 DC    A(RB29) TCB POINTER TO TOP RB              RORI
002404 00000000                    2147+         DC    A(0) TCB POINTER TO PIE                 RORI
002408 00000000                    2148+         DC    A(0) TCB POINTER TO DEB              19022
00240C 00000000                    2149+         DC    A(0) TCB POINTER TO TIOT
002410 00000000                    2150+         DC    F'0' TCB COMPLETION CODE
002414 00000000                    2151+         DC    F'0' TCB TEST RAN FIELD
002418 00000000                    2152+         DC    A(0) TCB POINTER TO SPQE
00241C 00                          2153+         DC    X'00' TCB PROTECT KEY
00241D 00                          2154+         DC    X'00' TCB 1ST BYTE OF FLAGS
00241E 00                          2155+         DC    X'00' TCB 2ND BYTE OF FLAGS
00241F 80                          2156+         DC    X'80' 0CB 3RD BYTE OF FLAGS
002420 0000                        2157+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
002422 FF                          2158+         DC    X'FF' TCB LIMIT PRIORITY
002423 FF                          2159+         DC    X'FF' TCB DISPATCHING PRIORITY
                                                                                                               PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002424 00000000                    2160+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
002428 00000000                    2161+         DC    A(0) TCB POINTER TO JOB LIB DCB
00242C 00000000                    2162+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
002430 00000000                    2163+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
002434 00000000                    2164+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
002438 00002ED8                    2165+         DC    A(TACT29) TCB SAVE AREA FOR GENERAL REGISTER2
00243C 0000BCA0                    2166+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
002440 00002400                    2167+         DC    A(IEATCB29) TCB SAVE AREA FOR GENERAL REGISTER4
002444 000024C0                    2168+         DC    A(RB29) TCB SAVE AREA FOR GENERAL REGISTER5
002448 00000000                    2169+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
00244C 0000A6F8                    2170+         DC    A(TAIOB29) TCB SAVE AREA FOR GENERAL REGISTER7
002450 00000000                    2171+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
002454 00000000                    2172+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
002458 00002D10                    2173+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
00245C 00000000                    2174+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
002460 00000000                    2175+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
002464 00000000                    2176+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
002468 00000000                    2177+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
00246C 00000000                    2178+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
002470 00                          2179+         DC    X'00' TCB NUMBER OF QUEUED QELS
002471 000000                      2180+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
002474 00002548                    2181+         DC    A(IEATCB30) TCB POINTER TO NEXT TCB ON READY Q.
002478 00000000                    2182+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
00247C 00002400                    2183+         DC    A(IEATCB29) TCB POINTER TO JOB STEP TCB
002480 00000000                    2184+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
002484 00002C30                    2185+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
002488 00000000                    2186+         DC    A(0) TCB POINTER TO LAST TCB.       19022
00248C 00000000                    2187+         DC    A(0) TCB POINTER TO IQE
002490 00000000                    2188+         DC    A(0) TCB POINTER TO ECB
002494 00000000                    2189+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
002498 00000000                    2190+         DC    A(0) TCB POINTER TO PQE
00249C 00000000                    2191+         DC    A(0) TCB POINTER TO AQE              MO17
0024A0 00000000                    2192+         DC    A(0) TCB POINTER TO STAE             MO17
0024A4 00000000                    2193+         DC    A(0) TCB POINTER TO TCT              MO17
0024A8 00000000                    2194+         DC    A(0) TCB POINTER TO USER FIELD       MO17
0024AC 00                          2195+         DC    AL1(0) TCB DAR FLAGS                   DAR
0024AD 000000                      2196+         DC    AL3(0) RESERVED                        DAR
0024B0 00000000                    2197+         DC    AL4(0) RESERVED                        I254
0024B4 00                          2198+         DC    AL1(0) RESERVED                        I254
0024B5 000000                      2199+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
0024B8 0000000000000000            2200+         DC    2F'0' BD A58667
                                   2201+*
                                   2202                *, RB AT TOP OF IEATCB29 'S RB QUEUE
                                   2203+*
0024C0                             2204+RB29     DS    0D START RB
0024C0 00000000                    2205+         DC    F'0' NOT USED
0024C4 00000000                    2206+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
0024C8 00                          2207+         DC    X'00' WAIT COUNT SAVE AREA
0024C9 0D                          2208+         DC    X'0D' RB SIZE
0024CA C080                        2209+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
0024CC 00000000                    2210+         DC    F'0' CONTENTS FIELD
0024D0 00040000                    2211+         DC    X'00040000' 1ST WORD OF RBOPSW
0024D4 00000000                    2212+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
0024D8 00000000                    2213+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
0024DC 01                          2214+         DC    X'01' WAIT COUNT
                                                                                                               PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0024DD 002400                      2215+         DC    AL3(IEATCB29) RB POINTER TO TCB
0024E0 0000000000000000            2216+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   2217+         ENTRY IEATCB30


002528                             2219+         DS    0D RORI
002528 0000000000000000            2220+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
002548                             2221+         DS    0D RORI
002548 00002608                    2222+IEATCB30 DC    A(RB30) TCB POINTER TO TOP RB              RORI
00254C 00000000                    2223+         DC    A(0) TCB POINTER TO PIE                 RORI
002550 00000000                    2224+         DC    A(0) TCB POINTER TO DEB              19022
002554 00000000                    2225+         DC    A(0) TCB POINTER TO TIOT
002558 00000000                    2226+         DC    F'0' TCB COMPLETION CODE
00255C 00000000                    2227+         DC    F'0' TCB TEST RAN FIELD
002560 00000000                    2228+         DC    A(0) TCB POINTER TO SPQE
002564 00                          2229+         DC    X'00' TCB PROTECT KEY
002565 00                          2230+         DC    X'00' TCB 1ST BYTE OF FLAGS
002566 00                          2231+         DC    X'00' TCB 2ND BYTE OF FLAGS
002567 80                          2232+         DC    X'80' 0CB 3RD BYTE OF FLAGS
002568 0000                        2233+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
00256A FF                          2234+         DC    X'FF' TCB LIMIT PRIORITY
00256B FF                          2235+         DC    X'FF' TCB DISPATCHING PRIORITY
00256C 00000000                    2236+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
002570 00000000                    2237+         DC    A(0) TCB POINTER TO JOB LIB DCB
002574 00000000                    2238+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
002578 00000000                    2239+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
00257C 00000000                    2240+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
002580 00002EE8                    2241+         DC    A(TACT30) TCB SAVE AREA FOR GENERAL REGISTER2
002584 0000BCA0                    2242+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
002588 00002548                    2243+         DC    A(IEATCB30) TCB SAVE AREA FOR GENERAL REGISTER4
00258C 00002608                    2244+         DC    A(RB30) TCB SAVE AREA FOR GENERAL REGISTER5
002590 00000000                    2245+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
002594 0000AB40                    2246+         DC    A(TAIOB30) TCB SAVE AREA FOR GENERAL REGISTER7
002598 00000000                    2247+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
00259C 00000000                    2248+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
0025A0 00002D10                    2249+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
0025A4 00000000                    2250+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
0025A8 00000000                    2251+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
0025AC 00000000                    2252+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
0025B0 00000000                    2253+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
0025B4 00000000                    2254+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
0025B8 00                          2255+         DC    X'00' TCB NUMBER OF QUEUED QELS
0025B9 000000                      2256+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
0025BC 00002690                    2257+         DC    A(IEATCB31) TCB POINTER TO NEXT TCB ON READY Q.
0025C0 00000000                    2258+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
0025C4 00002548                    2259+         DC    A(IEATCB30) TCB POINTER TO JOB STEP TCB
0025C8 00000000                    2260+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
0025CC 00002C30                    2261+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
0025D0 00000000                    2262+         DC    A(0) TCB POINTER TO LAST TCB.       19022
0025D4 00000000                    2263+         DC    A(0) TCB POINTER TO IQE
0025D8 00000000                    2264+         DC    A(0) TCB POINTER TO ECB
0025DC 00000000                    2265+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
0025E0 00000000                    2266+         DC    A(0) TCB POINTER TO PQE
0025E4 00000000                    2267+         DC    A(0) TCB POINTER TO AQE              MO17
0025E8 00000000                    2268+         DC    A(0) TCB POINTER TO STAE             MO17
                                                                                                               PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0025EC 00000000                    2269+         DC    A(0) TCB POINTER TO TCT              MO17
0025F0 00000000                    2270+         DC    A(0) TCB POINTER TO USER FIELD       MO17
0025F4 00                          2271+         DC    AL1(0) TCB DAR FLAGS                   DAR
0025F5 000000                      2272+         DC    AL3(0) RESERVED                        DAR
0025F8 00000000                    2273+         DC    AL4(0) RESERVED                        I254
0025FC 00                          2274+         DC    AL1(0) RESERVED                        I254
0025FD 000000                      2275+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
002600 0000000000000000            2276+         DC    2F'0' BD A58667
                                   2277+*
                                   2278                *, RB AT TOP OF IEATCB30 'S RB QUEUE
                                   2279+*
002608                             2280+RB30     DS    0D START RB
002608 00000000                    2281+         DC    F'0' NOT USED
00260C 00000000                    2282+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
002610 00                          2283+         DC    X'00' WAIT COUNT SAVE AREA
002611 0D                          2284+         DC    X'0D' RB SIZE
002612 C080                        2285+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
002614 00000000                    2286+         DC    F'0' CONTENTS FIELD
002618 00040000                    2287+         DC    X'00040000' 1ST WORD OF RBOPSW
00261C 00000000                    2288+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
002620 00000000                    2289+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
002624 01                          2290+         DC    X'01' WAIT COUNT
002625 002548                      2291+         DC    AL3(IEATCB30) RB POINTER TO TCB
002628 0000000000000000            2292+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   2293+         ENTRY IEATCB31


002670                             2295+         DS    0D RORI
002670 0000000000000000            2296+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
002690                             2297+         DS    0D RORI
002690 00002750                    2298+IEATCB31 DC    A(RB31) TCB POINTER TO TOP RB              RORI
002694 00000000                    2299+         DC    A(0) TCB POINTER TO PIE                 RORI
002698 00000000                    2300+         DC    A(0) TCB POINTER TO DEB              19022
00269C 00000000                    2301+         DC    A(0) TCB POINTER TO TIOT
0026A0 00000000                    2302+         DC    F'0' TCB COMPLETION CODE
0026A4 00000000                    2303+         DC    F'0' TCB TEST RAN FIELD
0026A8 00000000                    2304+         DC    A(0) TCB POINTER TO SPQE
0026AC 00                          2305+         DC    X'00' TCB PROTECT KEY
0026AD 00                          2306+         DC    X'00' TCB 1ST BYTE OF FLAGS
0026AE 00                          2307+         DC    X'00' TCB 2ND BYTE OF FLAGS
0026AF 80                          2308+         DC    X'80' 0CB 3RD BYTE OF FLAGS
0026B0 0000                        2309+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
0026B2 FF                          2310+         DC    X'FF' TCB LIMIT PRIORITY
0026B3 FF                          2311+         DC    X'FF' TCB DISPATCHING PRIORITY
0026B4 00000000                    2312+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
0026B8 00000000                    2313+         DC    A(0) TCB POINTER TO JOB LIB DCB
0026BC 00000000                    2314+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
0026C0 00000000                    2315+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
0026C4 00000000                    2316+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
0026C8 00002EF8                    2317+         DC    A(TACT31) TCB SAVE AREA FOR GENERAL REGISTER2
0026CC 0000BCA0                    2318+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
0026D0 00002690                    2319+         DC    A(IEATCB31) TCB SAVE AREA FOR GENERAL REGISTER4
0026D4 00002750                    2320+         DC    A(RB31) TCB SAVE AREA FOR GENERAL REGISTER5
0026D8 00000000                    2321+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
0026DC 0000AF88                    2322+         DC    A(TAIOB31) TCB SAVE AREA FOR GENERAL REGISTER7
                                                                                                               PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0026E0 00000000                    2323+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
0026E4 00000000                    2324+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
0026E8 00002D10                    2325+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
0026EC 00000000                    2326+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
0026F0 00000000                    2327+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
0026F4 00000000                    2328+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
0026F8 00000000                    2329+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
0026FC 00000000                    2330+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
002700 00                          2331+         DC    X'00' TCB NUMBER OF QUEUED QELS
002701 000000                      2332+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
002704 000027D8                    2333+         DC    A(IEATCB32) TCB POINTER TO NEXT TCB ON READY Q.
002708 00000000                    2334+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
00270C 00002690                    2335+         DC    A(IEATCB31) TCB POINTER TO JOB STEP TCB
002710 00000000                    2336+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
002714 00002C30                    2337+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
002718 00000000                    2338+         DC    A(0) TCB POINTER TO LAST TCB.       19022
00271C 00000000                    2339+         DC    A(0) TCB POINTER TO IQE
002720 00000000                    2340+         DC    A(0) TCB POINTER TO ECB
002724 00000000                    2341+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
002728 00000000                    2342+         DC    A(0) TCB POINTER TO PQE
00272C 00000000                    2343+         DC    A(0) TCB POINTER TO AQE              MO17
002730 00000000                    2344+         DC    A(0) TCB POINTER TO STAE             MO17
002734 00000000                    2345+         DC    A(0) TCB POINTER TO TCT              MO17
002738 00000000                    2346+         DC    A(0) TCB POINTER TO USER FIELD       MO17
00273C 00                          2347+         DC    AL1(0) TCB DAR FLAGS                   DAR
00273D 000000                      2348+         DC    AL3(0) RESERVED                        DAR
002740 00000000                    2349+         DC    AL4(0) RESERVED                        I254
002744 00                          2350+         DC    AL1(0) RESERVED                        I254
002745 000000                      2351+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
002748 0000000000000000            2352+         DC    2F'0' BD A58667
                                   2353+*
                                   2354                *, RB AT TOP OF IEATCB31 'S RB QUEUE
                                   2355+*
002750                             2356+RB31     DS    0D START RB
002750 00000000                    2357+         DC    F'0' NOT USED
002754 00000000                    2358+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
002758 00                          2359+         DC    X'00' WAIT COUNT SAVE AREA
002759 0D                          2360+         DC    X'0D' RB SIZE
00275A C080                        2361+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
00275C 00000000                    2362+         DC    F'0' CONTENTS FIELD
002760 00040000                    2363+         DC    X'00040000' 1ST WORD OF RBOPSW
002764 00000000                    2364+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
002768 00000000                    2365+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
00276C 01                          2366+         DC    X'01' WAIT COUNT
00276D 002690                      2367+         DC    AL3(IEATCB31) RB POINTER TO TCB
002770 0000000000000000            2368+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
                                   2369+         ENTRY IEATCB32


0027B8                             2371+         DS    0D RORI
0027B8 0000000000000000            2372+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
0027D8                             2373+         DS    0D RORI
0027D8 00002898                    2374+IEATCB32 DC    A(RB32) TCB POINTER TO TOP RB              RORI
0027DC 00000000                    2375+         DC    A(0) TCB POINTER TO PIE                 RORI
0027E0 00000000                    2376+         DC    A(0) TCB POINTER TO DEB              19022
                                                                                                               PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0027E4 00000000                    2377+         DC    A(0) TCB POINTER TO TIOT
0027E8 00000000                    2378+         DC    F'0' TCB COMPLETION CODE
0027EC 00000000                    2379+         DC    F'0' TCB TEST RAN FIELD
0027F0 00000000                    2380+         DC    A(0) TCB POINTER TO SPQE
0027F4 00                          2381+         DC    X'00' TCB PROTECT KEY
0027F5 00                          2382+         DC    X'00' TCB 1ST BYTE OF FLAGS
0027F6 00                          2383+         DC    X'00' TCB 2ND BYTE OF FLAGS
0027F7 80                          2384+         DC    X'80' 0CB 3RD BYTE OF FLAGS
0027F8 0000                        2385+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
0027FA FF                          2386+         DC    X'FF' TCB LIMIT PRIORITY
0027FB FF                          2387+         DC    X'FF' TCB DISPATCHING PRIORITY
0027FC 00000000                    2388+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
002800 00000000                    2389+         DC    A(0) TCB POINTER TO JOB LIB DCB
002804 00000000                    2390+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
002808 00000000                    2391+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
00280C 00000000                    2392+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
002810 00002F08                    2393+         DC    A(TACT32) TCB SAVE AREA FOR GENERAL REGISTER2
002814 0000BCA0                    2394+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
002818 000027D8                    2395+         DC    A(IEATCB32) TCB SAVE AREA FOR GENERAL REGISTER4
00281C 00002898                    2396+         DC    A(RB32) TCB SAVE AREA FOR GENERAL REGISTER5
002820 00000000                    2397+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
002824 0000B3D0                    2398+         DC    A(TAIOB32) TCB SAVE AREA FOR GENERAL REGISTER7
002828 00000000                    2399+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
00282C 00000000                    2400+         DC    A(IEWFTRAN) TCB SAVE AREA FOR GENERAL REGISTER9
002830 00002D10                    2401+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
002834 00000000                    2402+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
002838 00000000                    2403+         DC    A(IEAQTR00) TCB SAVE AREA FOR GENERAL REGISTERC
00283C 00000000                    2404+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
002840 00000000                    2405+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
002844 00000000                    2406+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
002848 00                          2407+         DC    X'00' TCB NUMBER OF QUEUED QELS
002849 000000                      2408+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
00284C 00002920                    2409+         DC    A(IEAERTCB) TCB POINTER TO NEXT TCB ON READY Q.
002850 00000000                    2410+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
002854 000027D8                    2411+         DC    A(IEATCB32) TCB POINTER TO JOB STEP TCB
002858 00000000                    2412+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
00285C 00002C30                    2413+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
002860 00000000                    2414+         DC    A(0) TCB POINTER TO LAST TCB.       19022
002864 00000000                    2415+         DC    A(0) TCB POINTER TO IQE
002868 00000000                    2416+         DC    A(0) TCB POINTER TO ECB
00286C 00000000                    2417+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
002870 00000000                    2418+         DC    A(0) TCB POINTER TO PQE
002874 00000000                    2419+         DC    A(0) TCB POINTER TO AQE              MO17
002878 00000000                    2420+         DC    A(0) TCB POINTER TO STAE             MO17
00287C 00000000                    2421+         DC    A(0) TCB POINTER TO TCT              MO17
002880 00000000                    2422+         DC    A(0) TCB POINTER TO USER FIELD       MO17
002884 00                          2423+         DC    AL1(0) TCB DAR FLAGS                   DAR
002885 000000                      2424+         DC    AL3(0) RESERVED                        DAR
002888 00000000                    2425+         DC    AL4(0) RESERVED                        I254
00288C 00                          2426+         DC    AL1(0) RESERVED                        I254
00288D 000000                      2427+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
002890 0000000000000000            2428+         DC    2F'0' BD A58667
                                   2429+*
                                   2430                *, RB AT TOP OF IEATCB32 'S RB QUEUE
                                   2431+*
                                                                                                               PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002898                             2432+RB32     DS    0D START RB
002898 00000000                    2433+         DC    F'0' NOT USED
00289C 00000000                    2434+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
0028A0 00                          2435+         DC    X'00' WAIT COUNT SAVE AREA
0028A1 0D                          2436+         DC    X'0D' RB SIZE
0028A2 C080                        2437+         DC    XL2'C080' TYPE AND LINK FIELD INDICATORS
0028A4 00000000                    2438+         DC    F'0' CONTENTS FIELD
0028A8 00040000                    2439+         DC    X'00040000' 1ST WORD OF RBOPSW
0028AC 00000000                    2440+         DC    A(IEAQTR04) 2ND WORD OF ROBPSW
0028B0 00000000                    2441+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
0028B4 01                          2442+         DC    X'01' WAIT COUNT
0028B5 0027D8                      2443+         DC    AL3(IEATCB32) RB POINTER TO TCB
0028B8 0000000000000000            2444+         DC    18X'00000000' RB REGISTER SAVE + 2 EXTENDED WD
002900                             2445+         DS    0D RORI
002900 0000000000000000            2446+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
002920                             2447+         DS    0D RORI
002920 000029E0                    2448+IEAERTCB DC    A(RB34) TCB POINTER TO TOP RB              RORI
002924 00000000                    2449+         DC    A(0) TCB POINTER TO PIE                 RORI
002928 00000000                    2450+         DC    A(0) TCB POINTER TO DEB              19022
00292C 00000000                    2451+         DC    A(0) TCB POINTER TO TIOT
002930 00000000                    2452+         DC    F'0' TCB COMPLETION CODE
002934 00000000                    2453+         DC    F'0' TCB TEST RAN FIELD
002938 00000000                    2454+         DC    A(0) TCB POINTER TO SPQE
00293C 00                          2455+         DC    X'00' TCB PROTECT KEY
00293D 00                          2456+         DC    X'00' TCB 1ST BYTE OF FLAGS
00293E 00                          2457+         DC    X'00' TCB 2ND BYTE OF FLAGS
00293F 80                          2458+         DC    X'80' 0CB 3RD BYTE OF FLAGS
002940 0000                        2459+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
002942 FF                          2460+         DC    X'FF' TCB LIMIT PRIORITY
002943 FF                          2461+         DC    X'FF' TCB DISPATCHING PRIORITY
002944 00000000                    2462+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
002948 00000000                    2463+         DC    A(0) TCB POINTER TO JOB LIB DCB
00294C 00000000                    2464+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
002950 00000000                    2465+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
002954 00000000                    2466+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
002958 00000000                    2467+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER2
00295C 00000000                    2468+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER3
002960 00000000                    2469+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER4
002964 00000000                    2470+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER5
002968 00000000                    2471+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
00296C 00000000                    2472+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER7
002970 00000000                    2473+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
002974 00000000                    2474+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER9
002978 00002D10                    2475+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
00297C 00000000                    2476+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
002980 00000000                    2477+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERC
002984 00000000                    2478+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
002988 00000000                    2479+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
00298C 00000000                    2480+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
002990 00                          2481+         DC    X'00' TCB NUMBER OF QUEUED QELS
002991 000000                      2482+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
002994 00002A30                    2483+         DC    A(IEECVTCB) TCB POINTER TO NEXT TCB ON READY Q.
002998 00000000                    2484+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
00299C 00002920                    2485+         DC    A(IEAERTCB) TCB POINTER TO JOB STEP TCB
0029A0 00000000                    2486+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
                                                                                                               PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0029A4 00002C30                    2487+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
0029A8 00000000                    2488+         DC    A(0) TCB POINTER TO LAST TCB.       19022
0029AC 00000000                    2489+         DC    A(0) TCB POINTER TO IQE
0029B0 00000000                    2490+         DC    A(0) TCB POINTER TO ECB
0029B4 00000000                    2491+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
0029B8 00000000                    2492+         DC    A(0) TCB POINTER TO PQE
0029BC 00000000                    2493+         DC    A(0) TCB POINTER TO AQE              MO17
0029C0 00000000                    2494+         DC    A(0) TCB POINTER TO STAE             MO17
0029C4 00000000                    2495+         DC    A(0) TCB POINTER TO TCT              MO17
0029C8 00000000                    2496+         DC    A(0) TCB POINTER TO USER FIELD       MO17
0029CC 00                          2497+         DC    AL1(0) TCB DAR FLAGS                   DAR
0029CD 000000                      2498+         DC    AL3(0) RESERVED                        DAR
0029D0 00000000                    2499+         DC    AL4(0) RESERVED                        I254
0029D4 00                          2500+         DC    AL1(0) RESERVED                        I254
0029D5 000000                      2501+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
0029D8 0000000000000000            2502+         DC    2F'0' BD A58667
                                   2503+*
                                   2504                *, RB AT TOP OF IEAERTCB 'S RB QUEUE
                                   2505+*
0029E0                             2506+RB34     DS    0D START RB
0029E0 00000000                    2507+         DC    F'0' NOT USED
0029E4 00000000                    2508+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
0029E8 00                          2509+         DC    X'00' WAIT COUNT SAVE AREA
0029E9 04                          2510+         DC    X'04' RB SIZE
0029EA 0080                        2511+         DC    XL2'0080' TYPE AND LINK FIELD INDICATORS
0029EC 00000000                    2512+         DC    F'0' CONTENTS FIELD
0029F0 00040000                    2513+         DC    X'00040000' 1ST WORD OF RBOPSW
0029F4 00000000                    2514+         DC    A(0) 2ND WORD OF ROBPSW
0029F8 00000000                    2515+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
0029FC 01                          2516+         DC    X'01' WAIT COUNT
0029FD 002920                      2517+         DC    AL3(IEAERTCB) RB POINTER TO TCB
                                   2518+*                                                                  RORI
                                   2519                *,GENERATE DUMMY TCB + IRB IN ABSENCE OF ROLLOUT
                                   2520+*                                                                  RORI
                                   2521+         ENTRY IEAROTCB RORI
                                   2522+         ENTRY IEAROIRB RORI
002A00                             2523+         DS    0D RORI
002A00 00000000                    2524+IEAROTCB DC    F'0' ADDRESS OF NEXT RB ON RB QUEUE  RORI
002A04 00000000                    2525+         DC    F'0' PAD TO DOUBLE WORD BOUNDARY     RORI
002A08 0000000000000000            2526+IEAROIRB DC    2F'0' DUMMY IRB                  RORI
002A10                             2527+         DS    0D RORI
002A10 0000000000000000            2528+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
002A30                             2529+         DS    0D RORI
002A30 00002AF0                    2530+IEECVTCB DC    A(RB35) TCB POINTER TO TOP RB              RORI
002A34 00000000                    2531+         DC    A(0) TCB POINTER TO PIE                 RORI
002A38 00000000                    2532+         DC    A(0) TCB POINTER TO DEB              19022
002A3C 00000000                    2533+         DC    A(0) TCB POINTER TO TIOT
002A40 00000000                    2534+         DC    F'0' TCB COMPLETION CODE
002A44 00000000                    2535+         DC    F'0' TCB TEST RAN FIELD
002A48 00000000                    2536+         DC    A(0) TCB POINTER TO SPQE
002A4C 00                          2537+         DC    X'00' TCB PROTECT KEY
002A4D 00                          2538+         DC    X'00' TCB 1ST BYTE OF FLAGS
002A4E 00                          2539+         DC    X'00' TCB 2ND BYTE OF FLAGS
002A4F 80                          2540+         DC    X'80' 0CB 3RD BYTE OF FLAGS
002A50 0000                        2541+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
                                                                                                               PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002A52 FF                          2542+         DC    X'FF' TCB LIMIT PRIORITY
002A53 FF                          2543+         DC    X'FF' TCB DISPATCHING PRIORITY
002A54 00000000                    2544+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
002A58 00000000                    2545+         DC    A(0) TCB POINTER TO JOB LIB DCB
002A5C 00000000                    2546+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
002A60 00000000                    2547+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
002A64 00000000                    2548+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
002A68 00000000                    2549+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER2
002A6C 00000000                    2550+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER3
002A70 00000000                    2551+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER4
002A74 00000000                    2552+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER5
002A78 00000000                    2553+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
002A7C 00000000                    2554+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER7
002A80 00000000                    2555+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
002A84 00000000                    2556+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER9
002A88 00002D10                    2557+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
002A8C 00000000                    2558+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
002A90 00000000                    2559+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERC
002A94 00000000                    2560+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
002A98 00000000                    2561+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
002A9C 00000000                    2562+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
002AA0 00                          2563+         DC    X'00' TCB NUMBER OF QUEUED QELS
002AA1 000000                      2564+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
002AA4 00002B30                    2565+         DC    A(IGFRMTCB) TCB POINTER TO NEXT TCB ON READY Q.
002AA8 00000000                    2566+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
002AAC 00002A30                    2567+         DC    A(IEECVTCB) TCB POINTER TO JOB STEP TCB
002AB0 00000000                    2568+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
002AB4 00002C30                    2569+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
002AB8 00000000                    2570+         DC    A(0) TCB POINTER TO LAST TCB.       19022
002ABC 00000000                    2571+         DC    A(0) TCB POINTER TO IQE
002AC0 00000000                    2572+         DC    A(0) TCB POINTER TO ECB
002AC4 00000000                    2573+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
002AC8 00000000                    2574+         DC    A(0) TCB POINTER TO PQE
002ACC 00000000                    2575+         DC    A(0) TCB POINTER TO AQE              MO17
002AD0 00000000                    2576+         DC    A(0) TCB POINTER TO STAE             MO17
002AD4 00000000                    2577+         DC    A(0) TCB POINTER TO TCT              MO17
002AD8 00000000                    2578+         DC    A(0) TCB POINTER TO USER FIELD       MO17
002ADC 00                          2579+         DC    AL1(0) TCB DAR FLAGS                   DAR
002ADD 000000                      2580+         DC    AL3(0) RESERVED                        DAR
002AE0 00000000                    2581+         DC    AL4(0) RESERVED                        I254
002AE4 00                          2582+         DC    AL1(0) RESERVED                        I254
002AE5 000000                      2583+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
002AE8 0000000000000000            2584+         DC    2F'0' BD A58667
                                   2585+*
                                   2586                *, RB AT TOP OF IEECVTCB 'S RB QUEUE
                                   2587+*
                                   2588+         ENTRY IEECVPRB
                                   2589+         EXTRN IEECVCTW
002AF0                             2590+RB35     DS    0D
002AF0                             2591+IEECVPRB EQU   RB35
002AF0 00000000                    2592+         DC    F'0' NOT USED
002AF4 00000000                    2593+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
002AF8 00                          2594+         DC    X'00' WAIT COUNT SAVE AREA
002AF9 04                          2595+         DC    X'04' RB SIZE
002AFA 0080                        2596+         DC    XL2'0080' TYPE AND LINK FIELD INDICATORS
                                                                                                               PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002AFC 00000000                    2597+         DC    F'0' CONTENTS FIELD
002B00 00040000                    2598+         DC    X'00040000' 1ST WORD OF RBOPSW
002B04 00000000                    2599+         DC    A(IEECVCTW) 2ND WORD OF ROBPSW
002B08 00000000                    2600+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
002B0C 01                          2601+         DC    X'01' WAIT COUNT
002B0D 002A30                      2602+         DC    AL3(IEECVTCB) RB POINTER TO TCB
                                   2603+         ENTRY IGFRMTCB 19022
                                   2604+         ENTRY DDRRB 19022
                                   2605+         EXTRN DDRDEB 19022
                                   2606+         EXTRN IGF201 19022
                                   2607+         EXTRN IORMSWT 19022
                                   2608+         EXTRN IORMSSVC 19022
002B10                             2609+         DS    0D RORI
002B10 0000000000000000            2610+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
002B30                             2611+         DS    0D RORI
002B30 00002BF0                    2612+IGFRMTCB DC    A(RB36) TCB POINTER TO TOP RB              RORI
002B34 00000000                    2613+         DC    A(0) TCB POINTER TO PIE                 RORI
002B38 00000000                    2614+         DC    A(DDRDEB) TCB POINTER TO DEB              19022
002B3C 00000000                    2615+         DC    A(0) TCB POINTER TO TIOT
002B40 00000000                    2616+         DC    F'0' TCB COMPLETION CODE
002B44 00000000                    2617+         DC    F'0' TCB TEST RAN FIELD
002B48 00000000                    2618+         DC    A(0) TCB POINTER TO SPQE
002B4C 00                          2619+         DC    X'00' TCB PROTECT KEY
002B4D 00                          2620+         DC    X'00' TCB 1ST BYTE OF FLAGS
002B4E 00                          2621+         DC    X'00' TCB 2ND BYTE OF FLAGS
002B4F 80                          2622+         DC    X'80' 0CB 3RD BYTE OF FLAGS
002B50 0000                        2623+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
002B52 FF                          2624+         DC    X'FF' TCB LIMIT PRIORITY
002B53 FF                          2625+         DC    X'FF' TCB DISPATCHING PRIORITY
002B54 00000000                    2626+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
002B58 00000000                    2627+         DC    A(0) TCB POINTER TO JOB LIB DCB
002B5C 00000000                    2628+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
002B60 00000000                    2629+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
002B64 00000000                    2630+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
002B68 00000000                    2631+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER2
002B6C 0000BCA0                    2632+         DC    A(IEACVT) TCB SAVE AREA FOR GENERAL REGISTER3
002B70 00002B30                    2633+         DC    A(IGFRMTCB) TCB SAVE AREA FOR GENERAL REGISTER4
002B74 00002BF0                    2634+         DC    A(RB36) TCB SAVE AREA FOR GENERAL REGISTER5
002B78 00000000                    2635+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
002B7C 00000000                    2636+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER7
002B80 00000000                    2637+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
002B84 00000000                    2638+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER9
002B88 00002D10                    2639+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
002B8C 00000000                    2640+         DC    A(IGF201) TCB SAVE AREA FOR GENERAL REGISTERB
002B90 00000000                    2641+         DC    A(IGFDDR01) TCB SAVE AREA FOR GENERAL REGISTERC
002B94 00000000                    2642+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
002B98 00000000                    2643+         DC    A(IORMSWT) TCB SAVE AREA FOR GENERAL REGISTERE
002B9C 00000000                    2644+         DC    A(IGFDDRSR) TCB SAVE AREA FOR GENERAL REGISTERF
002BA0 00                          2645+         DC    X'00' TCB NUMBER OF QUEUED QELS
002BA1 000000                      2646+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
002BA4 00002C30                    2647+         DC    A(IEAMSTCB) TCB POINTER TO NEXT TCB ON READY Q.
002BA8 00000000                    2648+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
002BAC 00002B30                    2649+         DC    A(IGFRMTCB) TCB POINTER TO JOB STEP TCB
002BB0 00000000                    2650+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
002BB4 00002C30                    2651+         DC    A(IEAMSTCB) TCB POINTER TO ORIGIN TCB
                                                                                                               PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002BB8 00000000                    2652+         DC    A(0) TCB POINTER TO LAST TCB.       19022
002BBC 00000000                    2653+         DC    A(0) TCB POINTER TO IQE
002BC0 00000000                    2654+         DC    A(0) TCB POINTER TO ECB
002BC4 00000000                    2655+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
002BC8 00000000                    2656+         DC    A(0) TCB POINTER TO PQE
002BCC 00000000                    2657+         DC    A(0) TCB POINTER TO AQE              MO17
002BD0 00000000                    2658+         DC    A(0) TCB POINTER TO STAE             MO17
002BD4 00000000                    2659+         DC    A(0) TCB POINTER TO TCT              MO17
002BD8 00000000                    2660+         DC    A(0) TCB POINTER TO USER FIELD       MO17
002BDC 00                          2661+         DC    AL1(0) TCB DAR FLAGS                   DAR
002BDD 000000                      2662+         DC    AL3(0) RESERVED                        DAR
002BE0 00000000                    2663+         DC    AL4(0) RESERVED                        I254
002BE4 00                          2664+         DC    AL1(0) RESERVED                        I254
002BE5 000000                      2665+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
002BE8 0000000000000000            2666+         DC    2F'0' BD A58667
                                   2667+*
                                   2668                *, RB AT TOP OF IGFRMTCB 'S RB QUEUE
                                   2669+*
002BF0                             2670+RB36     DS    0D START RB
002BF0 00000000                    2671+         DC    F'0' NOT USED
002BF4 00000000                    2672+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
002BF8 00                          2673+         DC    X'00' WAIT COUNT SAVE AREA
002BF9 04                          2674+         DC    X'04' RB SIZE
002BFA 0080                        2675+         DC    XL2'0080' TYPE AND LINK FIELD INDICATORS
002BFC 00000000                    2676+         DC    F'0' CONTENTS FIELD
002C00 00040000                    2677+         DC    X'00040000' 1ST WORD OF RBOPSW
002C04 00000000                    2678+         DC    A(IORMSSVC) 2ND WORD OF ROBPSW
002C08 00000000                    2679+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
002C0C 01                          2680+         DC    X'01' WAIT COUNT
002C0D 002B30                      2681+         DC    AL3(IGFRMTCB) RB POINTER TO TCB
002BF0                             2682+DDRRB    EQU   RB36 19022
002C10                             2683+         DS    0D RORI
002C10 0000000000000000            2684+         DC    4D'0' FLOATING PT. SAVE AREA      RORI
002C30                             2685+         DS    0D RORI
002C30 00002CF0                    2686+IEAMSTCB DC    A(RB38) TCB POINTER TO TOP RB              RORI
002C34 00000000                    2687+         DC    A(0) TCB POINTER TO PIE                 RORI
002C38 00000000                    2688+         DC    A(0) TCB POINTER TO DEB              19022
002C3C 00000000                    2689+         DC    A(0) TCB POINTER TO TIOT
002C40 00000000                    2690+         DC    F'0' TCB COMPLETION CODE
002C44 00000000                    2691+         DC    F'0' TCB TEST RAN FIELD
002C48 00000000                    2692+         DC    A(0) TCB POINTER TO SPQE
002C4C 00                          2693+         DC    X'00' TCB PROTECT KEY
002C4D 00                          2694+         DC    X'00' TCB 1ST BYTE OF FLAGS
002C4E 00                          2695+         DC    X'00' TCB 2ND BYTE OF FLAGS
002C4F 80                          2696+         DC    X'80' 0CB 3RD BYTE OF FLAGS
002C50 0000                        2697+         DC    XL2'0000' TCB 4TH AND 5TH BYTE OF FLAGS
002C52 FF                          2698+         DC    X'FF' TCB LIMIT PRIORITY
002C53 FF                          2699+         DC    X'FF' TCB DISPATCHING PRIORITY
002C54 00000000                    2700+         DC    A(0) TCB POINTER TO LIST OF LOADED PGMS
002C58 00000000                    2701+         DC    A(0) TCB POINTER TO JOB LIB DCB
002C5C 00000000                    2702+         DC    A(0) TCB POINTER TO JOB PACK QUEUE ELEMNT
002C60 00000000                    2703+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER0
002C64 00000000                    2704+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER1
002C68 00000000                    2705+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER2
002C6C 00000000                    2706+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER3
                                                                                                               PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002C70 00000000                    2707+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER4
002C74 00000000                    2708+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER5
002C78 00000000                    2709+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER6
002C7C 00000000                    2710+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER7
002C80 00000000                    2711+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER8
002C84 00000000                    2712+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTER9
002C88 00002D10                    2713+         DC    A(IEAQTAQ) TCB SAVE AREA FOR GENERAL REGISTERA
002C8C 00000000                    2714+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERB
002C90 00000000                    2715+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERC
002C94 00000000                    2716+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERD
002C98 00000000                    2717+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERE
002C9C 00000000                    2718+         DC    A(0) TCB SAVE AREA FOR GENERAL REGISTERF
002CA0 00                          2719+         DC    X'00' TCB NUMBER OF QUEUED QELS
002CA1 000000                      2720+         DC    AL3(0) TCB POINTER TO 1ST PROB.PGM.SAVE A.
002CA4 00000000                    2721+         DC    A(0) TCB POINTER TO NEXT TCB ON READY Q.
002CA8 00000000                    2722+         DC    A(0) TCB POINTER TO TIMER QUEUE ELEMENT
002CAC 00002C30                    2723+         DC    A(IEAMSTCB) TCB POINTER TO JOB STEP TCB
002CB0 00000000                    2724+         DC    A(0) TCB PTR TO NEXT SUBTASK TCB DAR
002CB4 00000000                    2725+         DC    A(0) TCB POINTER TO ORIGIN TCB
002CB8 00002B30                    2726+         DC    A(IGFRMTCB) TCB POINTER TO LAST TCB.       19022
002CBC 00000000                    2727+         DC    A(0) TCB POINTER TO IQE
002CC0 00000000                    2728+         DC    A(0) TCB POINTER TO ECB
002CC4 00000000                    2729+         DC    A(0) TCB POINTER TO SELF-END-OF-TASK
002CC8 00000000                    2730+         DC    A(0) TCB POINTER TO PQE
002CCC 00000000                    2731+         DC    A(0) TCB POINTER TO AQE              MO17
002CD0 00000000                    2732+         DC    A(0) TCB POINTER TO STAE             MO17
002CD4 00000000                    2733+         DC    A(0) TCB POINTER TO TCT              MO17
002CD8 00000000                    2734+         DC    A(0) TCB POINTER TO USER FIELD       MO17
002CDC 00                          2735+         DC    AL1(0) TCB DAR FLAGS                   DAR
002CDD 000000                      2736+         DC    AL3(0) RESERVED                        DAR
002CE0 00000000                    2737+         DC    AL4(0) RESERVED                        I254
002CE4 00                          2738+         DC    AL1(0) RESERVED                        I254
002CE5 000000                      2739+         DC    AL3(0) TCB WTP POINTER TCBJSCB         I254
002CE8 0000000000000000            2740+         DC    2F'0' BD A58667
                                   2741+*
                                   2742                *, RB AT TOP OF IEAMSTCB 'S RB QUEUE
                                   2743+*
002CF0                             2744+RB38     DS    0D START RB
002CF0 00000000                    2745+         DC    F'0' NOT USED
002CF4 00000000                    2746+         DC    F'0' BITS 32-63 OF PSW(SAVED BY ABEND)
002CF8 00                          2747+         DC    X'00' WAIT COUNT SAVE AREA
002CF9 04                          2748+         DC    X'04' RB SIZE
002CFA 0080                        2749+         DC    XL2'0080' TYPE AND LINK FIELD INDICATORS
002CFC 00000000                    2750+         DC    F'0' CONTENTS FIELD
002D00 00040000                    2751+         DC    X'00040000' 1ST WORD OF RBOPSW
002D04 00000000                    2752+         DC    A(0) 2ND WORD OF ROBPSW
002D08 00000000                    2753+         DC    A(0) QUEUE FIELD FOR SERIALLY REUSEABLE P
002D0C 00                          2754+         DC    X'00' WAIT COUNT
002D0D 002C30                      2755+         DC    AL3(IEAMSTCB) RB POINTER TO TCB
                                   2756+*
                                   2757+*   TRANSIENT AREA CONTROL TABLE
                                   2758+*
                                   2759+         ENTRY IEAQTAQ
                                   2760+         ENTRY IEAQTAQ1
002D10                             2761+IEAQTAQ  DS    0D
                                                                                                               PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002D10 00000000                    2762+         DC    F'0'
002D14 00000020                    2763+         DC    F'32' TOTAL NUMBER OF TACT ENTRIES
002D18 20                          2764+TACT1    DC    X'20'
002D19 002F60                      2765+         DC    AL3(TRAREA1) ADDRESS OF ASSOCIATED T. AREA
002D1C 00000000                    2766+         DC    F'0'
002D20 00000000                    2767+         DC    F'0'
002D24 00000020                    2768+         DC    A(IEATCB1) ADDRESS OF ASSOCIATED T. AREA TCB
002D28 20                          2769+TACT2    DC    X'20'
002D29 0033A8                      2770+         DC    AL3(TRAREA2) ADDRESS OF ASSOCIATED T. AREA
002D2C 00000000                    2771+         DC    F'0'
002D30 00000000                    2772+         DC    F'0'
002D34 00000168                    2773+         DC    A(IEATCB2) ADDRESS OF ASSOCIATED T. AREA TCB
002D38 20                          2774+TACT3    DC    X'20'
002D39 0037F0                      2775+         DC    AL3(TRAREA3) ADDRESS OF ASSOCIATED T. AREA
002D3C 00000000                    2776+         DC    F'0'
002D40 00000000                    2777+         DC    F'0'
002D44 000002B0                    2778+         DC    A(IEATCB3) ADDRESS OF ASSOCIATED T. AREA TCB
002D48 20                          2779+TACT4    DC    X'20'
002D49 003C38                      2780+         DC    AL3(TRAREA4) ADDRESS OF ASSOCIATED T. AREA
002D4C 00000000                    2781+         DC    F'0'
002D50 00000000                    2782+         DC    F'0'
002D54 000003F8                    2783+         DC    A(IEATCB4) ADDRESS OF ASSOCIATED T. AREA TCB
002D58 20                          2784+TACT5    DC    X'20'
002D59 004080                      2785+         DC    AL3(TRAREA5) ADDRESS OF ASSOCIATED T. AREA
002D5C 00000000                    2786+         DC    F'0'
002D60 00000000                    2787+         DC    F'0'
002D64 00000540                    2788+         DC    A(IEATCB5) ADDRESS OF ASSOCIATED T. AREA TCB
002D68 20                          2789+TACT6    DC    X'20'
002D69 0044C8                      2790+         DC    AL3(TRAREA6) ADDRESS OF ASSOCIATED T. AREA
002D6C 00000000                    2791+         DC    F'0'
002D70 00000000                    2792+         DC    F'0'
002D74 00000688                    2793+         DC    A(IEATCB6) ADDRESS OF ASSOCIATED T. AREA TCB
002D78 20                          2794+TACT7    DC    X'20'
002D79 004910                      2795+         DC    AL3(TRAREA7) ADDRESS OF ASSOCIATED T. AREA
002D7C 00000000                    2796+         DC    F'0'
002D80 00000000                    2797+         DC    F'0'
002D84 000007D0                    2798+         DC    A(IEATCB7) ADDRESS OF ASSOCIATED T. AREA TCB
002D88 20                          2799+TACT8    DC    X'20'
002D89 004D58                      2800+         DC    AL3(TRAREA8) ADDRESS OF ASSOCIATED T. AREA
002D8C 00000000                    2801+         DC    F'0'
002D90 00000000                    2802+         DC    F'0'
002D94 00000918                    2803+         DC    A(IEATCB8) ADDRESS OF ASSOCIATED T. AREA TCB
002D98 20                          2804+TACT9    DC    X'20'
002D99 0051A0                      2805+         DC    AL3(TRAREA9) ADDRESS OF ASSOCIATED T. AREA
002D9C 00000000                    2806+         DC    F'0'
002DA0 00000000                    2807+         DC    F'0'
002DA4 00000A60                    2808+         DC    A(IEATCB9) ADDRESS OF ASSOCIATED T. AREA TCB
002DA8 20                          2809+TACT10   DC    X'20'
002DA9 0055E8                      2810+         DC    AL3(TRAREA10) ADDRESS OF ASSOCIATED T. AREA
002DAC 00000000                    2811+         DC    F'0'
002DB0 00000000                    2812+         DC    F'0'
002DB4 00000BA8                    2813+         DC    A(IEATCB10) ADDRESS OF ASSOCIATED T. AREA TCB
002DB8 20                          2814+TACT11   DC    X'20'
002DB9 005A30                      2815+         DC    AL3(TRAREA11) ADDRESS OF ASSOCIATED T. AREA
002DBC 00000000                    2816+         DC    F'0'
                                                                                                               PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002DC0 00000000                    2817+         DC    F'0'
002DC4 00000CF0                    2818+         DC    A(IEATCB11) ADDRESS OF ASSOCIATED T. AREA TCB
002DC8 20                          2819+TACT12   DC    X'20'
002DC9 005E78                      2820+         DC    AL3(TRAREA12) ADDRESS OF ASSOCIATED T. AREA
002DCC 00000000                    2821+         DC    F'0'
002DD0 00000000                    2822+         DC    F'0'
002DD4 00000E38                    2823+         DC    A(IEATCB12) ADDRESS OF ASSOCIATED T. AREA TCB
002DD8 20                          2824+TACT13   DC    X'20'
002DD9 0062C0                      2825+         DC    AL3(TRAREA13) ADDRESS OF ASSOCIATED T. AREA
002DDC 00000000                    2826+         DC    F'0'
002DE0 00000000                    2827+         DC    F'0'
002DE4 00000F80                    2828+         DC    A(IEATCB13) ADDRESS OF ASSOCIATED T. AREA TCB
002DE8 20                          2829+TACT14   DC    X'20'
002DE9 006708                      2830+         DC    AL3(TRAREA14) ADDRESS OF ASSOCIATED T. AREA
002DEC 00000000                    2831+         DC    F'0'
002DF0 00000000                    2832+         DC    F'0'
002DF4 000010C8                    2833+         DC    A(IEATCB14) ADDRESS OF ASSOCIATED T. AREA TCB
002DF8 20                          2834+TACT15   DC    X'20'
002DF9 006B50                      2835+         DC    AL3(TRAREA15) ADDRESS OF ASSOCIATED T. AREA
002DFC 00000000                    2836+         DC    F'0'
002E00 00000000                    2837+         DC    F'0'
002E04 00001210                    2838+         DC    A(IEATCB15) ADDRESS OF ASSOCIATED T. AREA TCB
002E08 20                          2839+TACT16   DC    X'20'
002E09 006F98                      2840+         DC    AL3(TRAREA16) ADDRESS OF ASSOCIATED T. AREA
002E0C 00000000                    2841+         DC    F'0'
002E10 00000000                    2842+         DC    F'0'
002E14 00001358                    2843+         DC    A(IEATCB16) ADDRESS OF ASSOCIATED T. AREA TCB
002E18 20                          2844+TACT17   DC    X'20'
002E19 0073E0                      2845+         DC    AL3(TRAREA17) ADDRESS OF ASSOCIATED T. AREA
002E1C 00000000                    2846+         DC    F'0'
002E20 00000000                    2847+         DC    F'0'
002E24 000014A0                    2848+         DC    A(IEATCB17) ADDRESS OF ASSOCIATED T. AREA TCB
002E28 20                          2849+TACT18   DC    X'20'
002E29 007828                      2850+         DC    AL3(TRAREA18) ADDRESS OF ASSOCIATED T. AREA
002E2C 00000000                    2851+         DC    F'0'
002E30 00000000                    2852+         DC    F'0'
002E34 000015E8                    2853+         DC    A(IEATCB18) ADDRESS OF ASSOCIATED T. AREA TCB
002E38 20                          2854+TACT19   DC    X'20'
002E39 007C70                      2855+         DC    AL3(TRAREA19) ADDRESS OF ASSOCIATED T. AREA
002E3C 00000000                    2856+         DC    F'0'
002E40 00000000                    2857+         DC    F'0'
002E44 00001730                    2858+         DC    A(IEATCB19) ADDRESS OF ASSOCIATED T. AREA TCB
002E48 20                          2859+TACT20   DC    X'20'
002E49 0080B8                      2860+         DC    AL3(TRAREA20) ADDRESS OF ASSOCIATED T. AREA
002E4C 00000000                    2861+         DC    F'0'
002E50 00000000                    2862+         DC    F'0'
002E54 00001878                    2863+         DC    A(IEATCB20) ADDRESS OF ASSOCIATED T. AREA TCB
002E58 20                          2864+TACT21   DC    X'20'
002E59 008500                      2865+         DC    AL3(TRAREA21) ADDRESS OF ASSOCIATED T. AREA
002E5C 00000000                    2866+         DC    F'0'
002E60 00000000                    2867+         DC    F'0'
002E64 000019C0                    2868+         DC    A(IEATCB21) ADDRESS OF ASSOCIATED T. AREA TCB
002E68 20                          2869+TACT22   DC    X'20'
002E69 008948                      2870+         DC    AL3(TRAREA22) ADDRESS OF ASSOCIATED T. AREA
002E6C 00000000                    2871+         DC    F'0'
                                                                                                               PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002E70 00000000                    2872+         DC    F'0'
002E74 00001B08                    2873+         DC    A(IEATCB22) ADDRESS OF ASSOCIATED T. AREA TCB
002E78 20                          2874+TACT23   DC    X'20'
002E79 008D90                      2875+         DC    AL3(TRAREA23) ADDRESS OF ASSOCIATED T. AREA
002E7C 00000000                    2876+         DC    F'0'
002E80 00000000                    2877+         DC    F'0'
002E84 00001C50                    2878+         DC    A(IEATCB23) ADDRESS OF ASSOCIATED T. AREA TCB
002E88 20                          2879+TACT24   DC    X'20'
002E89 0091D8                      2880+         DC    AL3(TRAREA24) ADDRESS OF ASSOCIATED T. AREA
002E8C 00000000                    2881+         DC    F'0'
002E90 00000000                    2882+         DC    F'0'
002E94 00001D98                    2883+         DC    A(IEATCB24) ADDRESS OF ASSOCIATED T. AREA TCB
002E98 20                          2884+TACT25   DC    X'20'
002E99 009620                      2885+         DC    AL3(TRAREA25) ADDRESS OF ASSOCIATED T. AREA
002E9C 00000000                    2886+         DC    F'0'
002EA0 00000000                    2887+         DC    F'0'
002EA4 00001EE0                    2888+         DC    A(IEATCB25) ADDRESS OF ASSOCIATED T. AREA TCB
002EA8 20                          2889+TACT26   DC    X'20'
002EA9 009A68                      2890+         DC    AL3(TRAREA26) ADDRESS OF ASSOCIATED T. AREA
002EAC 00000000                    2891+         DC    F'0'
002EB0 00000000                    2892+         DC    F'0'
002EB4 00002028                    2893+         DC    A(IEATCB26) ADDRESS OF ASSOCIATED T. AREA TCB
002EB8 20                          2894+TACT27   DC    X'20'
002EB9 009EB0                      2895+         DC    AL3(TRAREA27) ADDRESS OF ASSOCIATED T. AREA
002EBC 00000000                    2896+         DC    F'0'
002EC0 00000000                    2897+         DC    F'0'
002EC4 00002170                    2898+         DC    A(IEATCB27) ADDRESS OF ASSOCIATED T. AREA TCB
002EC8 20                          2899+TACT28   DC    X'20'
002EC9 00A2F8                      2900+         DC    AL3(TRAREA28) ADDRESS OF ASSOCIATED T. AREA
002ECC 00000000                    2901+         DC    F'0'
002ED0 00000000                    2902+         DC    F'0'
002ED4 000022B8                    2903+         DC    A(IEATCB28) ADDRESS OF ASSOCIATED T. AREA TCB
002ED8 20                          2904+TACT29   DC    X'20'
002ED9 00A740                      2905+         DC    AL3(TRAREA29) ADDRESS OF ASSOCIATED T. AREA
002EDC 00000000                    2906+         DC    F'0'
002EE0 00000000                    2907+         DC    F'0'
002EE4 00002400                    2908+         DC    A(IEATCB29) ADDRESS OF ASSOCIATED T. AREA TCB
002EE8 20                          2909+TACT30   DC    X'20'
002EE9 00AB88                      2910+         DC    AL3(TRAREA30) ADDRESS OF ASSOCIATED T. AREA
002EEC 00000000                    2911+         DC    F'0'
002EF0 00000000                    2912+         DC    F'0'
002EF4 00002548                    2913+         DC    A(IEATCB30) ADDRESS OF ASSOCIATED T. AREA TCB
002EF8 20                          2914+TACT31   DC    X'20'
002EF9 00AFD0                      2915+         DC    AL3(TRAREA31) ADDRESS OF ASSOCIATED T. AREA
002EFC 00000000                    2916+         DC    F'0'
002F00 00000000                    2917+         DC    F'0'
002F04 00002690                    2918+         DC    A(IEATCB31) ADDRESS OF ASSOCIATED T. AREA TCB
002F08 20                          2919+TACT32   DC    X'20'
002F09 00B418                      2920+         DC    AL3(TRAREA32) ADDRESS OF ASSOCIATED T. AREA
002F0C 00000000                    2921+         DC    F'0'
002F10 00000000                    2922+         DC    F'0'
002F14 000027D8                    2923+         DC    A(IEATCB32) ADDRESS OF ASSOCIATED T. AREA TCB
002F18                             2924+IEAQTAQ1 DS    0CL4
                                   2925+*
                                   2926+*     TRANSIENT AREA IOB
                                                                                                               PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2927+*
                                   2928+         ENTRY TAIOB1
002F18                             2929+TAIOB1   DS    0D
002F18 02                          2930+         DC    X'02'
002F19 000000                      2931+         DC    X'000000'
002F1C 00002F58                    2932+         DC    A(ECB1) TAIOB POINTER TO ASSOCIATED ECB
002F20 00000000                    2933+         DC    F'0'
002F24 00000000                    2934+         DC    F'0'
002F28 00002F40                    2935+         DC    A(CCW1) TAIOB POINTER TO ASSOCIATED CCW
002F2C 0000BC38                    2936+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
002F30 00000000                    2937+         DC    F'0'
002F34 00000000                    2938+         DC    F'0'
002F38 00000000                    2939+SEEK1    DC    F'0'
002F3C 00000000                    2940+         DC    F'0'
002F40 31                          2941+CCW1     DC    X'31'
002F41 002F3B                      2942+         DC    AL3(SEEK1+3) TAIOB POINTER TO SEEK ADDRESS +3.
002F44 60                          2943+         DC    X'60'
002F45 000005                      2944+         DC    X'000005'
002F48 08                          2945+         DC    X'08'
002F49 002F40                      2946+         DC    AL3(CCW1) TAIOB POINTER TO CCW
002F4C 40                          2947+         DC    X'40'
002F4D 000001                      2948+         DC    X'000001'
002F50 06                          2949+         DC    X'06'
002F51 002F60                      2950+         DC    AL3(TRAREA1) TAIOB POINTER TO ASSOCIATED T. AREA
002F54 00000000                    2951+         DC    F'0'
002F58 00000000                    2952+ECB1     DC    F'0'
002F60                             2953+         DS    0D
002F60 0000000000000000            2954+TRAREA1  DC    128X'0000000000000000'
                                   2955+         ENTRY TAIOB2
003360                             2956+TAIOB2   DS    0D
003360 02                          2957+         DC    X'02'
003361 000000                      2958+         DC    X'000000'
003364 000033A0                    2959+         DC    A(ECB2) TAIOB POINTER TO ASSOCIATED ECB
003368 00000000                    2960+         DC    F'0'
00336C 00000000                    2961+         DC    F'0'
003370 00003388                    2962+         DC    A(CCW2) TAIOB POINTER TO ASSOCIATED CCW
003374 0000BC38                    2963+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
003378 00000000                    2964+         DC    F'0'
00337C 00000000                    2965+         DC    F'0'
003380 00000000                    2966+SEEK2    DC    F'0'
003384 00000000                    2967+         DC    F'0'
003388 31                          2968+CCW2     DC    X'31'
003389 003383                      2969+         DC    AL3(SEEK2+3) TAIOB POINTER TO SEEK ADDRESS +3.
00338C 60                          2970+         DC    X'60'
00338D 000005                      2971+         DC    X'000005'
003390 08                          2972+         DC    X'08'
003391 003388                      2973+         DC    AL3(CCW2) TAIOB POINTER TO CCW
003394 40                          2974+         DC    X'40'
003395 000001                      2975+         DC    X'000001'
003398 06                          2976+         DC    X'06'
003399 0033A8                      2977+         DC    AL3(TRAREA2) TAIOB POINTER TO ASSOCIATED T. AREA
00339C 00000000                    2978+         DC    F'0'
0033A0 00000000                    2979+ECB2     DC    F'0'
0033A8                             2980+         DS    0D
0033A8 0000000000000000            2981+TRAREA2  DC    128X'0000000000000000'
                                                                                                               PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2982+         ENTRY TAIOB3
0037A8                             2983+TAIOB3   DS    0D
0037A8 02                          2984+         DC    X'02'
0037A9 000000                      2985+         DC    X'000000'
0037AC 000037E8                    2986+         DC    A(ECB3) TAIOB POINTER TO ASSOCIATED ECB
0037B0 00000000                    2987+         DC    F'0'
0037B4 00000000                    2988+         DC    F'0'
0037B8 000037D0                    2989+         DC    A(CCW3) TAIOB POINTER TO ASSOCIATED CCW
0037BC 0000BC38                    2990+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
0037C0 00000000                    2991+         DC    F'0'
0037C4 00000000                    2992+         DC    F'0'
0037C8 00000000                    2993+SEEK3    DC    F'0'
0037CC 00000000                    2994+         DC    F'0'
0037D0 31                          2995+CCW3     DC    X'31'
0037D1 0037CB                      2996+         DC    AL3(SEEK3+3) TAIOB POINTER TO SEEK ADDRESS +3.
0037D4 60                          2997+         DC    X'60'
0037D5 000005                      2998+         DC    X'000005'
0037D8 08                          2999+         DC    X'08'
0037D9 0037D0                      3000+         DC    AL3(CCW3) TAIOB POINTER TO CCW
0037DC 40                          3001+         DC    X'40'
0037DD 000001                      3002+         DC    X'000001'
0037E0 06                          3003+         DC    X'06'
0037E1 0037F0                      3004+         DC    AL3(TRAREA3) TAIOB POINTER TO ASSOCIATED T. AREA
0037E4 00000000                    3005+         DC    F'0'
0037E8 00000000                    3006+ECB3     DC    F'0'
0037F0                             3007+         DS    0D
0037F0 0000000000000000            3008+TRAREA3  DC    128X'0000000000000000'
                                   3009+         ENTRY TAIOB4
003BF0                             3010+TAIOB4   DS    0D
003BF0 02                          3011+         DC    X'02'
003BF1 000000                      3012+         DC    X'000000'
003BF4 00003C30                    3013+         DC    A(ECB4) TAIOB POINTER TO ASSOCIATED ECB
003BF8 00000000                    3014+         DC    F'0'
003BFC 00000000                    3015+         DC    F'0'
003C00 00003C18                    3016+         DC    A(CCW4) TAIOB POINTER TO ASSOCIATED CCW
003C04 0000BC38                    3017+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
003C08 00000000                    3018+         DC    F'0'
003C0C 00000000                    3019+         DC    F'0'
003C10 00000000                    3020+SEEK4    DC    F'0'
003C14 00000000                    3021+         DC    F'0'
003C18 31                          3022+CCW4     DC    X'31'
003C19 003C13                      3023+         DC    AL3(SEEK4+3) TAIOB POINTER TO SEEK ADDRESS +3.
003C1C 60                          3024+         DC    X'60'
003C1D 000005                      3025+         DC    X'000005'
003C20 08                          3026+         DC    X'08'
003C21 003C18                      3027+         DC    AL3(CCW4) TAIOB POINTER TO CCW
003C24 40                          3028+         DC    X'40'
003C25 000001                      3029+         DC    X'000001'
003C28 06                          3030+         DC    X'06'
003C29 003C38                      3031+         DC    AL3(TRAREA4) TAIOB POINTER TO ASSOCIATED T. AREA
003C2C 00000000                    3032+         DC    F'0'
003C30 00000000                    3033+ECB4     DC    F'0'
003C38                             3034+         DS    0D
003C38 0000000000000000            3035+TRAREA4  DC    128X'0000000000000000'
                                   3036+         ENTRY TAIOB5
                                                                                                               PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004038                             3037+TAIOB5   DS    0D
004038 02                          3038+         DC    X'02'
004039 000000                      3039+         DC    X'000000'
00403C 00004078                    3040+         DC    A(ECB5) TAIOB POINTER TO ASSOCIATED ECB
004040 00000000                    3041+         DC    F'0'
004044 00000000                    3042+         DC    F'0'
004048 00004060                    3043+         DC    A(CCW5) TAIOB POINTER TO ASSOCIATED CCW
00404C 0000BC38                    3044+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
004050 00000000                    3045+         DC    F'0'
004054 00000000                    3046+         DC    F'0'
004058 00000000                    3047+SEEK5    DC    F'0'
00405C 00000000                    3048+         DC    F'0'
004060 31                          3049+CCW5     DC    X'31'
004061 00405B                      3050+         DC    AL3(SEEK5+3) TAIOB POINTER TO SEEK ADDRESS +3.
004064 60                          3051+         DC    X'60'
004065 000005                      3052+         DC    X'000005'
004068 08                          3053+         DC    X'08'
004069 004060                      3054+         DC    AL3(CCW5) TAIOB POINTER TO CCW
00406C 40                          3055+         DC    X'40'
00406D 000001                      3056+         DC    X'000001'
004070 06                          3057+         DC    X'06'
004071 004080                      3058+         DC    AL3(TRAREA5) TAIOB POINTER TO ASSOCIATED T. AREA
004074 00000000                    3059+         DC    F'0'
004078 00000000                    3060+ECB5     DC    F'0'
004080                             3061+         DS    0D
004080 0000000000000000            3062+TRAREA5  DC    128X'0000000000000000'
                                   3063+         ENTRY TAIOB6
004480                             3064+TAIOB6   DS    0D
004480 02                          3065+         DC    X'02'
004481 000000                      3066+         DC    X'000000'
004484 000044C0                    3067+         DC    A(ECB6) TAIOB POINTER TO ASSOCIATED ECB
004488 00000000                    3068+         DC    F'0'
00448C 00000000                    3069+         DC    F'0'
004490 000044A8                    3070+         DC    A(CCW6) TAIOB POINTER TO ASSOCIATED CCW
004494 0000BC38                    3071+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
004498 00000000                    3072+         DC    F'0'
00449C 00000000                    3073+         DC    F'0'
0044A0 00000000                    3074+SEEK6    DC    F'0'
0044A4 00000000                    3075+         DC    F'0'
0044A8 31                          3076+CCW6     DC    X'31'
0044A9 0044A3                      3077+         DC    AL3(SEEK6+3) TAIOB POINTER TO SEEK ADDRESS +3.
0044AC 60                          3078+         DC    X'60'
0044AD 000005                      3079+         DC    X'000005'
0044B0 08                          3080+         DC    X'08'
0044B1 0044A8                      3081+         DC    AL3(CCW6) TAIOB POINTER TO CCW
0044B4 40                          3082+         DC    X'40'
0044B5 000001                      3083+         DC    X'000001'
0044B8 06                          3084+         DC    X'06'
0044B9 0044C8                      3085+         DC    AL3(TRAREA6) TAIOB POINTER TO ASSOCIATED T. AREA
0044BC 00000000                    3086+         DC    F'0'
0044C0 00000000                    3087+ECB6     DC    F'0'
0044C8                             3088+         DS    0D
0044C8 0000000000000000            3089+TRAREA6  DC    128X'0000000000000000'
                                   3090+         ENTRY TAIOB7
0048C8                             3091+TAIOB7   DS    0D
                                                                                                               PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0048C8 02                          3092+         DC    X'02'
0048C9 000000                      3093+         DC    X'000000'
0048CC 00004908                    3094+         DC    A(ECB7) TAIOB POINTER TO ASSOCIATED ECB
0048D0 00000000                    3095+         DC    F'0'
0048D4 00000000                    3096+         DC    F'0'
0048D8 000048F0                    3097+         DC    A(CCW7) TAIOB POINTER TO ASSOCIATED CCW
0048DC 0000BC38                    3098+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
0048E0 00000000                    3099+         DC    F'0'
0048E4 00000000                    3100+         DC    F'0'
0048E8 00000000                    3101+SEEK7    DC    F'0'
0048EC 00000000                    3102+         DC    F'0'
0048F0 31                          3103+CCW7     DC    X'31'
0048F1 0048EB                      3104+         DC    AL3(SEEK7+3) TAIOB POINTER TO SEEK ADDRESS +3.
0048F4 60                          3105+         DC    X'60'
0048F5 000005                      3106+         DC    X'000005'
0048F8 08                          3107+         DC    X'08'
0048F9 0048F0                      3108+         DC    AL3(CCW7) TAIOB POINTER TO CCW
0048FC 40                          3109+         DC    X'40'
0048FD 000001                      3110+         DC    X'000001'
004900 06                          3111+         DC    X'06'
004901 004910                      3112+         DC    AL3(TRAREA7) TAIOB POINTER TO ASSOCIATED T. AREA
004904 00000000                    3113+         DC    F'0'
004908 00000000                    3114+ECB7     DC    F'0'
004910                             3115+         DS    0D
004910 0000000000000000            3116+TRAREA7  DC    128X'0000000000000000'
                                   3117+         ENTRY TAIOB8
004D10                             3118+TAIOB8   DS    0D
004D10 02                          3119+         DC    X'02'
004D11 000000                      3120+         DC    X'000000'
004D14 00004D50                    3121+         DC    A(ECB8) TAIOB POINTER TO ASSOCIATED ECB
004D18 00000000                    3122+         DC    F'0'
004D1C 00000000                    3123+         DC    F'0'
004D20 00004D38                    3124+         DC    A(CCW8) TAIOB POINTER TO ASSOCIATED CCW
004D24 0000BC38                    3125+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
004D28 00000000                    3126+         DC    F'0'
004D2C 00000000                    3127+         DC    F'0'
004D30 00000000                    3128+SEEK8    DC    F'0'
004D34 00000000                    3129+         DC    F'0'
004D38 31                          3130+CCW8     DC    X'31'
004D39 004D33                      3131+         DC    AL3(SEEK8+3) TAIOB POINTER TO SEEK ADDRESS +3.
004D3C 60                          3132+         DC    X'60'
004D3D 000005                      3133+         DC    X'000005'
004D40 08                          3134+         DC    X'08'
004D41 004D38                      3135+         DC    AL3(CCW8) TAIOB POINTER TO CCW
004D44 40                          3136+         DC    X'40'
004D45 000001                      3137+         DC    X'000001'
004D48 06                          3138+         DC    X'06'
004D49 004D58                      3139+         DC    AL3(TRAREA8) TAIOB POINTER TO ASSOCIATED T. AREA
004D4C 00000000                    3140+         DC    F'0'
004D50 00000000                    3141+ECB8     DC    F'0'
004D58                             3142+         DS    0D
004D58 0000000000000000            3143+TRAREA8  DC    128X'0000000000000000'
                                   3144+         ENTRY TAIOB9
005158                             3145+TAIOB9   DS    0D
005158 02                          3146+         DC    X'02'
                                                                                                               PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005159 000000                      3147+         DC    X'000000'
00515C 00005198                    3148+         DC    A(ECB9) TAIOB POINTER TO ASSOCIATED ECB
005160 00000000                    3149+         DC    F'0'
005164 00000000                    3150+         DC    F'0'
005168 00005180                    3151+         DC    A(CCW9) TAIOB POINTER TO ASSOCIATED CCW
00516C 0000BC38                    3152+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
005170 00000000                    3153+         DC    F'0'
005174 00000000                    3154+         DC    F'0'
005178 00000000                    3155+SEEK9    DC    F'0'
00517C 00000000                    3156+         DC    F'0'
005180 31                          3157+CCW9     DC    X'31'
005181 00517B                      3158+         DC    AL3(SEEK9+3) TAIOB POINTER TO SEEK ADDRESS +3.
005184 60                          3159+         DC    X'60'
005185 000005                      3160+         DC    X'000005'
005188 08                          3161+         DC    X'08'
005189 005180                      3162+         DC    AL3(CCW9) TAIOB POINTER TO CCW
00518C 40                          3163+         DC    X'40'
00518D 000001                      3164+         DC    X'000001'
005190 06                          3165+         DC    X'06'
005191 0051A0                      3166+         DC    AL3(TRAREA9) TAIOB POINTER TO ASSOCIATED T. AREA
005194 00000000                    3167+         DC    F'0'
005198 00000000                    3168+ECB9     DC    F'0'
0051A0                             3169+         DS    0D
0051A0 0000000000000000            3170+TRAREA9  DC    128X'0000000000000000'
                                   3171+         ENTRY TAIOB10
0055A0                             3172+TAIOB10  DS    0D
0055A0 02                          3173+         DC    X'02'
0055A1 000000                      3174+         DC    X'000000'
0055A4 000055E0                    3175+         DC    A(ECB10) TAIOB POINTER TO ASSOCIATED ECB
0055A8 00000000                    3176+         DC    F'0'
0055AC 00000000                    3177+         DC    F'0'
0055B0 000055C8                    3178+         DC    A(CCW10) TAIOB POINTER TO ASSOCIATED CCW
0055B4 0000BC38                    3179+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
0055B8 00000000                    3180+         DC    F'0'
0055BC 00000000                    3181+         DC    F'0'
0055C0 00000000                    3182+SEEK10   DC    F'0'
0055C4 00000000                    3183+         DC    F'0'
0055C8 31                          3184+CCW10    DC    X'31'
0055C9 0055C3                      3185+         DC    AL3(SEEK10+3) TAIOB POINTER TO SEEK ADDRESS +3.
0055CC 60                          3186+         DC    X'60'
0055CD 000005                      3187+         DC    X'000005'
0055D0 08                          3188+         DC    X'08'
0055D1 0055C8                      3189+         DC    AL3(CCW10) TAIOB POINTER TO CCW
0055D4 40                          3190+         DC    X'40'
0055D5 000001                      3191+         DC    X'000001'
0055D8 06                          3192+         DC    X'06'
0055D9 0055E8                      3193+         DC    AL3(TRAREA10) TAIOB POINTER TO ASSOCIATED T. AREA
0055DC 00000000                    3194+         DC    F'0'
0055E0 00000000                    3195+ECB10    DC    F'0'
0055E8                             3196+         DS    0D
0055E8 0000000000000000            3197+TRAREA10 DC    128X'0000000000000000'
                                   3198+         ENTRY TAIOB11
0059E8                             3199+TAIOB11  DS    0D
0059E8 02                          3200+         DC    X'02'
0059E9 000000                      3201+         DC    X'000000'
                                                                                                               PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0059EC 00005A28                    3202+         DC    A(ECB11) TAIOB POINTER TO ASSOCIATED ECB
0059F0 00000000                    3203+         DC    F'0'
0059F4 00000000                    3204+         DC    F'0'
0059F8 00005A10                    3205+         DC    A(CCW11) TAIOB POINTER TO ASSOCIATED CCW
0059FC 0000BC38                    3206+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
005A00 00000000                    3207+         DC    F'0'
005A04 00000000                    3208+         DC    F'0'
005A08 00000000                    3209+SEEK11   DC    F'0'
005A0C 00000000                    3210+         DC    F'0'
005A10 31                          3211+CCW11    DC    X'31'
005A11 005A0B                      3212+         DC    AL3(SEEK11+3) TAIOB POINTER TO SEEK ADDRESS +3.
005A14 60                          3213+         DC    X'60'
005A15 000005                      3214+         DC    X'000005'
005A18 08                          3215+         DC    X'08'
005A19 005A10                      3216+         DC    AL3(CCW11) TAIOB POINTER TO CCW
005A1C 40                          3217+         DC    X'40'
005A1D 000001                      3218+         DC    X'000001'
005A20 06                          3219+         DC    X'06'
005A21 005A30                      3220+         DC    AL3(TRAREA11) TAIOB POINTER TO ASSOCIATED T. AREA
005A24 00000000                    3221+         DC    F'0'
005A28 00000000                    3222+ECB11    DC    F'0'
005A30                             3223+         DS    0D
005A30 0000000000000000            3224+TRAREA11 DC    128X'0000000000000000'
                                   3225+         ENTRY TAIOB12
005E30                             3226+TAIOB12  DS    0D
005E30 02                          3227+         DC    X'02'
005E31 000000                      3228+         DC    X'000000'
005E34 00005E70                    3229+         DC    A(ECB12) TAIOB POINTER TO ASSOCIATED ECB
005E38 00000000                    3230+         DC    F'0'
005E3C 00000000                    3231+         DC    F'0'
005E40 00005E58                    3232+         DC    A(CCW12) TAIOB POINTER TO ASSOCIATED CCW
005E44 0000BC38                    3233+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
005E48 00000000                    3234+         DC    F'0'
005E4C 00000000                    3235+         DC    F'0'
005E50 00000000                    3236+SEEK12   DC    F'0'
005E54 00000000                    3237+         DC    F'0'
005E58 31                          3238+CCW12    DC    X'31'
005E59 005E53                      3239+         DC    AL3(SEEK12+3) TAIOB POINTER TO SEEK ADDRESS +3.
005E5C 60                          3240+         DC    X'60'
005E5D 000005                      3241+         DC    X'000005'
005E60 08                          3242+         DC    X'08'
005E61 005E58                      3243+         DC    AL3(CCW12) TAIOB POINTER TO CCW
005E64 40                          3244+         DC    X'40'
005E65 000001                      3245+         DC    X'000001'
005E68 06                          3246+         DC    X'06'
005E69 005E78                      3247+         DC    AL3(TRAREA12) TAIOB POINTER TO ASSOCIATED T. AREA
005E6C 00000000                    3248+         DC    F'0'
005E70 00000000                    3249+ECB12    DC    F'0'
005E78                             3250+         DS    0D
005E78 0000000000000000            3251+TRAREA12 DC    128X'0000000000000000'
                                   3252+         ENTRY TAIOB13
006278                             3253+TAIOB13  DS    0D
006278 02                          3254+         DC    X'02'
006279 000000                      3255+         DC    X'000000'
00627C 000062B8                    3256+         DC    A(ECB13) TAIOB POINTER TO ASSOCIATED ECB
                                                                                                               PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

006280 00000000                    3257+         DC    F'0'
006284 00000000                    3258+         DC    F'0'
006288 000062A0                    3259+         DC    A(CCW13) TAIOB POINTER TO ASSOCIATED CCW
00628C 0000BC38                    3260+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
006290 00000000                    3261+         DC    F'0'
006294 00000000                    3262+         DC    F'0'
006298 00000000                    3263+SEEK13   DC    F'0'
00629C 00000000                    3264+         DC    F'0'
0062A0 31                          3265+CCW13    DC    X'31'
0062A1 00629B                      3266+         DC    AL3(SEEK13+3) TAIOB POINTER TO SEEK ADDRESS +3.
0062A4 60                          3267+         DC    X'60'
0062A5 000005                      3268+         DC    X'000005'
0062A8 08                          3269+         DC    X'08'
0062A9 0062A0                      3270+         DC    AL3(CCW13) TAIOB POINTER TO CCW
0062AC 40                          3271+         DC    X'40'
0062AD 000001                      3272+         DC    X'000001'
0062B0 06                          3273+         DC    X'06'
0062B1 0062C0                      3274+         DC    AL3(TRAREA13) TAIOB POINTER TO ASSOCIATED T. AREA
0062B4 00000000                    3275+         DC    F'0'
0062B8 00000000                    3276+ECB13    DC    F'0'
0062C0                             3277+         DS    0D
0062C0 0000000000000000            3278+TRAREA13 DC    128X'0000000000000000'
                                   3279+         ENTRY TAIOB14
0066C0                             3280+TAIOB14  DS    0D
0066C0 02                          3281+         DC    X'02'
0066C1 000000                      3282+         DC    X'000000'
0066C4 00006700                    3283+         DC    A(ECB14) TAIOB POINTER TO ASSOCIATED ECB
0066C8 00000000                    3284+         DC    F'0'
0066CC 00000000                    3285+         DC    F'0'
0066D0 000066E8                    3286+         DC    A(CCW14) TAIOB POINTER TO ASSOCIATED CCW
0066D4 0000BC38                    3287+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
0066D8 00000000                    3288+         DC    F'0'
0066DC 00000000                    3289+         DC    F'0'
0066E0 00000000                    3290+SEEK14   DC    F'0'
0066E4 00000000                    3291+         DC    F'0'
0066E8 31                          3292+CCW14    DC    X'31'
0066E9 0066E3                      3293+         DC    AL3(SEEK14+3) TAIOB POINTER TO SEEK ADDRESS +3.
0066EC 60                          3294+         DC    X'60'
0066ED 000005                      3295+         DC    X'000005'
0066F0 08                          3296+         DC    X'08'
0066F1 0066E8                      3297+         DC    AL3(CCW14) TAIOB POINTER TO CCW
0066F4 40                          3298+         DC    X'40'
0066F5 000001                      3299+         DC    X'000001'
0066F8 06                          3300+         DC    X'06'
0066F9 006708                      3301+         DC    AL3(TRAREA14) TAIOB POINTER TO ASSOCIATED T. AREA
0066FC 00000000                    3302+         DC    F'0'
006700 00000000                    3303+ECB14    DC    F'0'
006708                             3304+         DS    0D
006708 0000000000000000            3305+TRAREA14 DC    128X'0000000000000000'
                                   3306+         ENTRY TAIOB15
006B08                             3307+TAIOB15  DS    0D
006B08 02                          3308+         DC    X'02'
006B09 000000                      3309+         DC    X'000000'
006B0C 00006B48                    3310+         DC    A(ECB15) TAIOB POINTER TO ASSOCIATED ECB
006B10 00000000                    3311+         DC    F'0'
                                                                                                               PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

006B14 00000000                    3312+         DC    F'0'
006B18 00006B30                    3313+         DC    A(CCW15) TAIOB POINTER TO ASSOCIATED CCW
006B1C 0000BC38                    3314+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
006B20 00000000                    3315+         DC    F'0'
006B24 00000000                    3316+         DC    F'0'
006B28 00000000                    3317+SEEK15   DC    F'0'
006B2C 00000000                    3318+         DC    F'0'
006B30 31                          3319+CCW15    DC    X'31'
006B31 006B2B                      3320+         DC    AL3(SEEK15+3) TAIOB POINTER TO SEEK ADDRESS +3.
006B34 60                          3321+         DC    X'60'
006B35 000005                      3322+         DC    X'000005'
006B38 08                          3323+         DC    X'08'
006B39 006B30                      3324+         DC    AL3(CCW15) TAIOB POINTER TO CCW
006B3C 40                          3325+         DC    X'40'
006B3D 000001                      3326+         DC    X'000001'
006B40 06                          3327+         DC    X'06'
006B41 006B50                      3328+         DC    AL3(TRAREA15) TAIOB POINTER TO ASSOCIATED T. AREA
006B44 00000000                    3329+         DC    F'0'
006B48 00000000                    3330+ECB15    DC    F'0'
006B50                             3331+         DS    0D
006B50 0000000000000000            3332+TRAREA15 DC    128X'0000000000000000'
                                   3333+         ENTRY TAIOB16
006F50                             3334+TAIOB16  DS    0D
006F50 02                          3335+         DC    X'02'
006F51 000000                      3336+         DC    X'000000'
006F54 00006F90                    3337+         DC    A(ECB16) TAIOB POINTER TO ASSOCIATED ECB
006F58 00000000                    3338+         DC    F'0'
006F5C 00000000                    3339+         DC    F'0'
006F60 00006F78                    3340+         DC    A(CCW16) TAIOB POINTER TO ASSOCIATED CCW
006F64 0000BC38                    3341+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
006F68 00000000                    3342+         DC    F'0'
006F6C 00000000                    3343+         DC    F'0'
006F70 00000000                    3344+SEEK16   DC    F'0'
006F74 00000000                    3345+         DC    F'0'
006F78 31                          3346+CCW16    DC    X'31'
006F79 006F73                      3347+         DC    AL3(SEEK16+3) TAIOB POINTER TO SEEK ADDRESS +3.
006F7C 60                          3348+         DC    X'60'
006F7D 000005                      3349+         DC    X'000005'
006F80 08                          3350+         DC    X'08'
006F81 006F78                      3351+         DC    AL3(CCW16) TAIOB POINTER TO CCW
006F84 40                          3352+         DC    X'40'
006F85 000001                      3353+         DC    X'000001'
006F88 06                          3354+         DC    X'06'
006F89 006F98                      3355+         DC    AL3(TRAREA16) TAIOB POINTER TO ASSOCIATED T. AREA
006F8C 00000000                    3356+         DC    F'0'
006F90 00000000                    3357+ECB16    DC    F'0'
006F98                             3358+         DS    0D
006F98 0000000000000000            3359+TRAREA16 DC    128X'0000000000000000'
                                   3360+         ENTRY TAIOB17
007398                             3361+TAIOB17  DS    0D
007398 02                          3362+         DC    X'02'
007399 000000                      3363+         DC    X'000000'
00739C 000073D8                    3364+         DC    A(ECB17) TAIOB POINTER TO ASSOCIATED ECB
0073A0 00000000                    3365+         DC    F'0'
0073A4 00000000                    3366+         DC    F'0'
                                                                                                               PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0073A8 000073C0                    3367+         DC    A(CCW17) TAIOB POINTER TO ASSOCIATED CCW
0073AC 0000BC38                    3368+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
0073B0 00000000                    3369+         DC    F'0'
0073B4 00000000                    3370+         DC    F'0'
0073B8 00000000                    3371+SEEK17   DC    F'0'
0073BC 00000000                    3372+         DC    F'0'
0073C0 31                          3373+CCW17    DC    X'31'
0073C1 0073BB                      3374+         DC    AL3(SEEK17+3) TAIOB POINTER TO SEEK ADDRESS +3.
0073C4 60                          3375+         DC    X'60'
0073C5 000005                      3376+         DC    X'000005'
0073C8 08                          3377+         DC    X'08'
0073C9 0073C0                      3378+         DC    AL3(CCW17) TAIOB POINTER TO CCW
0073CC 40                          3379+         DC    X'40'
0073CD 000001                      3380+         DC    X'000001'
0073D0 06                          3381+         DC    X'06'
0073D1 0073E0                      3382+         DC    AL3(TRAREA17) TAIOB POINTER TO ASSOCIATED T. AREA
0073D4 00000000                    3383+         DC    F'0'
0073D8 00000000                    3384+ECB17    DC    F'0'
0073E0                             3385+         DS    0D
0073E0 0000000000000000            3386+TRAREA17 DC    128X'0000000000000000'
                                   3387+         ENTRY TAIOB18
0077E0                             3388+TAIOB18  DS    0D
0077E0 02                          3389+         DC    X'02'
0077E1 000000                      3390+         DC    X'000000'
0077E4 00007820                    3391+         DC    A(ECB18) TAIOB POINTER TO ASSOCIATED ECB
0077E8 00000000                    3392+         DC    F'0'
0077EC 00000000                    3393+         DC    F'0'
0077F0 00007808                    3394+         DC    A(CCW18) TAIOB POINTER TO ASSOCIATED CCW
0077F4 0000BC38                    3395+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
0077F8 00000000                    3396+         DC    F'0'
0077FC 00000000                    3397+         DC    F'0'
007800 00000000                    3398+SEEK18   DC    F'0'
007804 00000000                    3399+         DC    F'0'
007808 31                          3400+CCW18    DC    X'31'
007809 007803                      3401+         DC    AL3(SEEK18+3) TAIOB POINTER TO SEEK ADDRESS +3.
00780C 60                          3402+         DC    X'60'
00780D 000005                      3403+         DC    X'000005'
007810 08                          3404+         DC    X'08'
007811 007808                      3405+         DC    AL3(CCW18) TAIOB POINTER TO CCW
007814 40                          3406+         DC    X'40'
007815 000001                      3407+         DC    X'000001'
007818 06                          3408+         DC    X'06'
007819 007828                      3409+         DC    AL3(TRAREA18) TAIOB POINTER TO ASSOCIATED T. AREA
00781C 00000000                    3410+         DC    F'0'
007820 00000000                    3411+ECB18    DC    F'0'
007828                             3412+         DS    0D
007828 0000000000000000            3413+TRAREA18 DC    128X'0000000000000000'
                                   3414+         ENTRY TAIOB19
007C28                             3415+TAIOB19  DS    0D
007C28 02                          3416+         DC    X'02'
007C29 000000                      3417+         DC    X'000000'
007C2C 00007C68                    3418+         DC    A(ECB19) TAIOB POINTER TO ASSOCIATED ECB
007C30 00000000                    3419+         DC    F'0'
007C34 00000000                    3420+         DC    F'0'
007C38 00007C50                    3421+         DC    A(CCW19) TAIOB POINTER TO ASSOCIATED CCW
                                                                                                               PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

007C3C 0000BC38                    3422+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
007C40 00000000                    3423+         DC    F'0'
007C44 00000000                    3424+         DC    F'0'
007C48 00000000                    3425+SEEK19   DC    F'0'
007C4C 00000000                    3426+         DC    F'0'
007C50 31                          3427+CCW19    DC    X'31'
007C51 007C4B                      3428+         DC    AL3(SEEK19+3) TAIOB POINTER TO SEEK ADDRESS +3.
007C54 60                          3429+         DC    X'60'
007C55 000005                      3430+         DC    X'000005'
007C58 08                          3431+         DC    X'08'
007C59 007C50                      3432+         DC    AL3(CCW19) TAIOB POINTER TO CCW
007C5C 40                          3433+         DC    X'40'
007C5D 000001                      3434+         DC    X'000001'
007C60 06                          3435+         DC    X'06'
007C61 007C70                      3436+         DC    AL3(TRAREA19) TAIOB POINTER TO ASSOCIATED T. AREA
007C64 00000000                    3437+         DC    F'0'
007C68 00000000                    3438+ECB19    DC    F'0'
007C70                             3439+         DS    0D
007C70 0000000000000000            3440+TRAREA19 DC    128X'0000000000000000'
                                   3441+         ENTRY TAIOB20
008070                             3442+TAIOB20  DS    0D
008070 02                          3443+         DC    X'02'
008071 000000                      3444+         DC    X'000000'
008074 000080B0                    3445+         DC    A(ECB20) TAIOB POINTER TO ASSOCIATED ECB
008078 00000000                    3446+         DC    F'0'
00807C 00000000                    3447+         DC    F'0'
008080 00008098                    3448+         DC    A(CCW20) TAIOB POINTER TO ASSOCIATED CCW
008084 0000BC38                    3449+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
008088 00000000                    3450+         DC    F'0'
00808C 00000000                    3451+         DC    F'0'
008090 00000000                    3452+SEEK20   DC    F'0'
008094 00000000                    3453+         DC    F'0'
008098 31                          3454+CCW20    DC    X'31'
008099 008093                      3455+         DC    AL3(SEEK20+3) TAIOB POINTER TO SEEK ADDRESS +3.
00809C 60                          3456+         DC    X'60'
00809D 000005                      3457+         DC    X'000005'
0080A0 08                          3458+         DC    X'08'
0080A1 008098                      3459+         DC    AL3(CCW20) TAIOB POINTER TO CCW
0080A4 40                          3460+         DC    X'40'
0080A5 000001                      3461+         DC    X'000001'
0080A8 06                          3462+         DC    X'06'
0080A9 0080B8                      3463+         DC    AL3(TRAREA20) TAIOB POINTER TO ASSOCIATED T. AREA
0080AC 00000000                    3464+         DC    F'0'
0080B0 00000000                    3465+ECB20    DC    F'0'
0080B8                             3466+         DS    0D
0080B8 0000000000000000            3467+TRAREA20 DC    128X'0000000000000000'
                                   3468+         ENTRY TAIOB21
0084B8                             3469+TAIOB21  DS    0D
0084B8 02                          3470+         DC    X'02'
0084B9 000000                      3471+         DC    X'000000'
0084BC 000084F8                    3472+         DC    A(ECB21) TAIOB POINTER TO ASSOCIATED ECB
0084C0 00000000                    3473+         DC    F'0'
0084C4 00000000                    3474+         DC    F'0'
0084C8 000084E0                    3475+         DC    A(CCW21) TAIOB POINTER TO ASSOCIATED CCW
0084CC 0000BC38                    3476+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
                                                                                                               PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0084D0 00000000                    3477+         DC    F'0'
0084D4 00000000                    3478+         DC    F'0'
0084D8 00000000                    3479+SEEK21   DC    F'0'
0084DC 00000000                    3480+         DC    F'0'
0084E0 31                          3481+CCW21    DC    X'31'
0084E1 0084DB                      3482+         DC    AL3(SEEK21+3) TAIOB POINTER TO SEEK ADDRESS +3.
0084E4 60                          3483+         DC    X'60'
0084E5 000005                      3484+         DC    X'000005'
0084E8 08                          3485+         DC    X'08'
0084E9 0084E0                      3486+         DC    AL3(CCW21) TAIOB POINTER TO CCW
0084EC 40                          3487+         DC    X'40'
0084ED 000001                      3488+         DC    X'000001'
0084F0 06                          3489+         DC    X'06'
0084F1 008500                      3490+         DC    AL3(TRAREA21) TAIOB POINTER TO ASSOCIATED T. AREA
0084F4 00000000                    3491+         DC    F'0'
0084F8 00000000                    3492+ECB21    DC    F'0'
008500                             3493+         DS    0D
008500 0000000000000000            3494+TRAREA21 DC    128X'0000000000000000'
                                   3495+         ENTRY TAIOB22
008900                             3496+TAIOB22  DS    0D
008900 02                          3497+         DC    X'02'
008901 000000                      3498+         DC    X'000000'
008904 00008940                    3499+         DC    A(ECB22) TAIOB POINTER TO ASSOCIATED ECB
008908 00000000                    3500+         DC    F'0'
00890C 00000000                    3501+         DC    F'0'
008910 00008928                    3502+         DC    A(CCW22) TAIOB POINTER TO ASSOCIATED CCW
008914 0000BC38                    3503+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
008918 00000000                    3504+         DC    F'0'
00891C 00000000                    3505+         DC    F'0'
008920 00000000                    3506+SEEK22   DC    F'0'
008924 00000000                    3507+         DC    F'0'
008928 31                          3508+CCW22    DC    X'31'
008929 008923                      3509+         DC    AL3(SEEK22+3) TAIOB POINTER TO SEEK ADDRESS +3.
00892C 60                          3510+         DC    X'60'
00892D 000005                      3511+         DC    X'000005'
008930 08                          3512+         DC    X'08'
008931 008928                      3513+         DC    AL3(CCW22) TAIOB POINTER TO CCW
008934 40                          3514+         DC    X'40'
008935 000001                      3515+         DC    X'000001'
008938 06                          3516+         DC    X'06'
008939 008948                      3517+         DC    AL3(TRAREA22) TAIOB POINTER TO ASSOCIATED T. AREA
00893C 00000000                    3518+         DC    F'0'
008940 00000000                    3519+ECB22    DC    F'0'
008948                             3520+         DS    0D
008948 0000000000000000            3521+TRAREA22 DC    128X'0000000000000000'
                                   3522+         ENTRY TAIOB23
008D48                             3523+TAIOB23  DS    0D
008D48 02                          3524+         DC    X'02'
008D49 000000                      3525+         DC    X'000000'
008D4C 00008D88                    3526+         DC    A(ECB23) TAIOB POINTER TO ASSOCIATED ECB
008D50 00000000                    3527+         DC    F'0'
008D54 00000000                    3528+         DC    F'0'
008D58 00008D70                    3529+         DC    A(CCW23) TAIOB POINTER TO ASSOCIATED CCW
008D5C 0000BC38                    3530+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
008D60 00000000                    3531+         DC    F'0'
                                                                                                               PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

008D64 00000000                    3532+         DC    F'0'
008D68 00000000                    3533+SEEK23   DC    F'0'
008D6C 00000000                    3534+         DC    F'0'
008D70 31                          3535+CCW23    DC    X'31'
008D71 008D6B                      3536+         DC    AL3(SEEK23+3) TAIOB POINTER TO SEEK ADDRESS +3.
008D74 60                          3537+         DC    X'60'
008D75 000005                      3538+         DC    X'000005'
008D78 08                          3539+         DC    X'08'
008D79 008D70                      3540+         DC    AL3(CCW23) TAIOB POINTER TO CCW
008D7C 40                          3541+         DC    X'40'
008D7D 000001                      3542+         DC    X'000001'
008D80 06                          3543+         DC    X'06'
008D81 008D90                      3544+         DC    AL3(TRAREA23) TAIOB POINTER TO ASSOCIATED T. AREA
008D84 00000000                    3545+         DC    F'0'
008D88 00000000                    3546+ECB23    DC    F'0'
008D90                             3547+         DS    0D
008D90 0000000000000000            3548+TRAREA23 DC    128X'0000000000000000'
                                   3549+         ENTRY TAIOB24
009190                             3550+TAIOB24  DS    0D
009190 02                          3551+         DC    X'02'
009191 000000                      3552+         DC    X'000000'
009194 000091D0                    3553+         DC    A(ECB24) TAIOB POINTER TO ASSOCIATED ECB
009198 00000000                    3554+         DC    F'0'
00919C 00000000                    3555+         DC    F'0'
0091A0 000091B8                    3556+         DC    A(CCW24) TAIOB POINTER TO ASSOCIATED CCW
0091A4 0000BC38                    3557+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
0091A8 00000000                    3558+         DC    F'0'
0091AC 00000000                    3559+         DC    F'0'
0091B0 00000000                    3560+SEEK24   DC    F'0'
0091B4 00000000                    3561+         DC    F'0'
0091B8 31                          3562+CCW24    DC    X'31'
0091B9 0091B3                      3563+         DC    AL3(SEEK24+3) TAIOB POINTER TO SEEK ADDRESS +3.
0091BC 60                          3564+         DC    X'60'
0091BD 000005                      3565+         DC    X'000005'
0091C0 08                          3566+         DC    X'08'
0091C1 0091B8                      3567+         DC    AL3(CCW24) TAIOB POINTER TO CCW
0091C4 40                          3568+         DC    X'40'
0091C5 000001                      3569+         DC    X'000001'
0091C8 06                          3570+         DC    X'06'
0091C9 0091D8                      3571+         DC    AL3(TRAREA24) TAIOB POINTER TO ASSOCIATED T. AREA
0091CC 00000000                    3572+         DC    F'0'
0091D0 00000000                    3573+ECB24    DC    F'0'
0091D8                             3574+         DS    0D
0091D8 0000000000000000            3575+TRAREA24 DC    128X'0000000000000000'
                                   3576+         ENTRY TAIOB25
0095D8                             3577+TAIOB25  DS    0D
0095D8 02                          3578+         DC    X'02'
0095D9 000000                      3579+         DC    X'000000'
0095DC 00009618                    3580+         DC    A(ECB25) TAIOB POINTER TO ASSOCIATED ECB
0095E0 00000000                    3581+         DC    F'0'
0095E4 00000000                    3582+         DC    F'0'
0095E8 00009600                    3583+         DC    A(CCW25) TAIOB POINTER TO ASSOCIATED CCW
0095EC 0000BC38                    3584+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
0095F0 00000000                    3585+         DC    F'0'
0095F4 00000000                    3586+         DC    F'0'
                                                                                                               PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0095F8 00000000                    3587+SEEK25   DC    F'0'
0095FC 00000000                    3588+         DC    F'0'
009600 31                          3589+CCW25    DC    X'31'
009601 0095FB                      3590+         DC    AL3(SEEK25+3) TAIOB POINTER TO SEEK ADDRESS +3.
009604 60                          3591+         DC    X'60'
009605 000005                      3592+         DC    X'000005'
009608 08                          3593+         DC    X'08'
009609 009600                      3594+         DC    AL3(CCW25) TAIOB POINTER TO CCW
00960C 40                          3595+         DC    X'40'
00960D 000001                      3596+         DC    X'000001'
009610 06                          3597+         DC    X'06'
009611 009620                      3598+         DC    AL3(TRAREA25) TAIOB POINTER TO ASSOCIATED T. AREA
009614 00000000                    3599+         DC    F'0'
009618 00000000                    3600+ECB25    DC    F'0'
009620                             3601+         DS    0D
009620 0000000000000000            3602+TRAREA25 DC    128X'0000000000000000'
                                   3603+         ENTRY TAIOB26
009A20                             3604+TAIOB26  DS    0D
009A20 02                          3605+         DC    X'02'
009A21 000000                      3606+         DC    X'000000'
009A24 00009A60                    3607+         DC    A(ECB26) TAIOB POINTER TO ASSOCIATED ECB
009A28 00000000                    3608+         DC    F'0'
009A2C 00000000                    3609+         DC    F'0'
009A30 00009A48                    3610+         DC    A(CCW26) TAIOB POINTER TO ASSOCIATED CCW
009A34 0000BC38                    3611+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
009A38 00000000                    3612+         DC    F'0'
009A3C 00000000                    3613+         DC    F'0'
009A40 00000000                    3614+SEEK26   DC    F'0'
009A44 00000000                    3615+         DC    F'0'
009A48 31                          3616+CCW26    DC    X'31'
009A49 009A43                      3617+         DC    AL3(SEEK26+3) TAIOB POINTER TO SEEK ADDRESS +3.
009A4C 60                          3618+         DC    X'60'
009A4D 000005                      3619+         DC    X'000005'
009A50 08                          3620+         DC    X'08'
009A51 009A48                      3621+         DC    AL3(CCW26) TAIOB POINTER TO CCW
009A54 40                          3622+         DC    X'40'
009A55 000001                      3623+         DC    X'000001'
009A58 06                          3624+         DC    X'06'
009A59 009A68                      3625+         DC    AL3(TRAREA26) TAIOB POINTER TO ASSOCIATED T. AREA
009A5C 00000000                    3626+         DC    F'0'
009A60 00000000                    3627+ECB26    DC    F'0'
009A68                             3628+         DS    0D
009A68 0000000000000000            3629+TRAREA26 DC    128X'0000000000000000'
                                   3630+         ENTRY TAIOB27
009E68                             3631+TAIOB27  DS    0D
009E68 02                          3632+         DC    X'02'
009E69 000000                      3633+         DC    X'000000'
009E6C 00009EA8                    3634+         DC    A(ECB27) TAIOB POINTER TO ASSOCIATED ECB
009E70 00000000                    3635+         DC    F'0'
009E74 00000000                    3636+         DC    F'0'
009E78 00009E90                    3637+         DC    A(CCW27) TAIOB POINTER TO ASSOCIATED CCW
009E7C 0000BC38                    3638+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
009E80 00000000                    3639+         DC    F'0'
009E84 00000000                    3640+         DC    F'0'
009E88 00000000                    3641+SEEK27   DC    F'0'
                                                                                                               PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

009E8C 00000000                    3642+         DC    F'0'
009E90 31                          3643+CCW27    DC    X'31'
009E91 009E8B                      3644+         DC    AL3(SEEK27+3) TAIOB POINTER TO SEEK ADDRESS +3.
009E94 60                          3645+         DC    X'60'
009E95 000005                      3646+         DC    X'000005'
009E98 08                          3647+         DC    X'08'
009E99 009E90                      3648+         DC    AL3(CCW27) TAIOB POINTER TO CCW
009E9C 40                          3649+         DC    X'40'
009E9D 000001                      3650+         DC    X'000001'
009EA0 06                          3651+         DC    X'06'
009EA1 009EB0                      3652+         DC    AL3(TRAREA27) TAIOB POINTER TO ASSOCIATED T. AREA
009EA4 00000000                    3653+         DC    F'0'
009EA8 00000000                    3654+ECB27    DC    F'0'
009EB0                             3655+         DS    0D
009EB0 0000000000000000            3656+TRAREA27 DC    128X'0000000000000000'
                                   3657+         ENTRY TAIOB28
00A2B0                             3658+TAIOB28  DS    0D
00A2B0 02                          3659+         DC    X'02'
00A2B1 000000                      3660+         DC    X'000000'
00A2B4 0000A2F0                    3661+         DC    A(ECB28) TAIOB POINTER TO ASSOCIATED ECB
00A2B8 00000000                    3662+         DC    F'0'
00A2BC 00000000                    3663+         DC    F'0'
00A2C0 0000A2D8                    3664+         DC    A(CCW28) TAIOB POINTER TO ASSOCIATED CCW
00A2C4 0000BC38                    3665+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
00A2C8 00000000                    3666+         DC    F'0'
00A2CC 00000000                    3667+         DC    F'0'
00A2D0 00000000                    3668+SEEK28   DC    F'0'
00A2D4 00000000                    3669+         DC    F'0'
00A2D8 31                          3670+CCW28    DC    X'31'
00A2D9 00A2D3                      3671+         DC    AL3(SEEK28+3) TAIOB POINTER TO SEEK ADDRESS +3.
00A2DC 60                          3672+         DC    X'60'
00A2DD 000005                      3673+         DC    X'000005'
00A2E0 08                          3674+         DC    X'08'
00A2E1 00A2D8                      3675+         DC    AL3(CCW28) TAIOB POINTER TO CCW
00A2E4 40                          3676+         DC    X'40'
00A2E5 000001                      3677+         DC    X'000001'
00A2E8 06                          3678+         DC    X'06'
00A2E9 00A2F8                      3679+         DC    AL3(TRAREA28) TAIOB POINTER TO ASSOCIATED T. AREA
00A2EC 00000000                    3680+         DC    F'0'
00A2F0 00000000                    3681+ECB28    DC    F'0'
00A2F8                             3682+         DS    0D
00A2F8 0000000000000000            3683+TRAREA28 DC    128X'0000000000000000'
                                   3684+         ENTRY TAIOB29
00A6F8                             3685+TAIOB29  DS    0D
00A6F8 02                          3686+         DC    X'02'
00A6F9 000000                      3687+         DC    X'000000'
00A6FC 0000A738                    3688+         DC    A(ECB29) TAIOB POINTER TO ASSOCIATED ECB
00A700 00000000                    3689+         DC    F'0'
00A704 00000000                    3690+         DC    F'0'
00A708 0000A720                    3691+         DC    A(CCW29) TAIOB POINTER TO ASSOCIATED CCW
00A70C 0000BC38                    3692+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
00A710 00000000                    3693+         DC    F'0'
00A714 00000000                    3694+         DC    F'0'
00A718 00000000                    3695+SEEK29   DC    F'0'
00A71C 00000000                    3696+         DC    F'0'
                                                                                                               PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00A720 31                          3697+CCW29    DC    X'31'
00A721 00A71B                      3698+         DC    AL3(SEEK29+3) TAIOB POINTER TO SEEK ADDRESS +3.
00A724 60                          3699+         DC    X'60'
00A725 000005                      3700+         DC    X'000005'
00A728 08                          3701+         DC    X'08'
00A729 00A720                      3702+         DC    AL3(CCW29) TAIOB POINTER TO CCW
00A72C 40                          3703+         DC    X'40'
00A72D 000001                      3704+         DC    X'000001'
00A730 06                          3705+         DC    X'06'
00A731 00A740                      3706+         DC    AL3(TRAREA29) TAIOB POINTER TO ASSOCIATED T. AREA
00A734 00000000                    3707+         DC    F'0'
00A738 00000000                    3708+ECB29    DC    F'0'
00A740                             3709+         DS    0D
00A740 0000000000000000            3710+TRAREA29 DC    128X'0000000000000000'
                                   3711+         ENTRY TAIOB30
00AB40                             3712+TAIOB30  DS    0D
00AB40 02                          3713+         DC    X'02'
00AB41 000000                      3714+         DC    X'000000'
00AB44 0000AB80                    3715+         DC    A(ECB30) TAIOB POINTER TO ASSOCIATED ECB
00AB48 00000000                    3716+         DC    F'0'
00AB4C 00000000                    3717+         DC    F'0'
00AB50 0000AB68                    3718+         DC    A(CCW30) TAIOB POINTER TO ASSOCIATED CCW
00AB54 0000BC38                    3719+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
00AB58 00000000                    3720+         DC    F'0'
00AB5C 00000000                    3721+         DC    F'0'
00AB60 00000000                    3722+SEEK30   DC    F'0'
00AB64 00000000                    3723+         DC    F'0'
00AB68 31                          3724+CCW30    DC    X'31'
00AB69 00AB63                      3725+         DC    AL3(SEEK30+3) TAIOB POINTER TO SEEK ADDRESS +3.
00AB6C 60                          3726+         DC    X'60'
00AB6D 000005                      3727+         DC    X'000005'
00AB70 08                          3728+         DC    X'08'
00AB71 00AB68                      3729+         DC    AL3(CCW30) TAIOB POINTER TO CCW
00AB74 40                          3730+         DC    X'40'
00AB75 000001                      3731+         DC    X'000001'
00AB78 06                          3732+         DC    X'06'
00AB79 00AB88                      3733+         DC    AL3(TRAREA30) TAIOB POINTER TO ASSOCIATED T. AREA
00AB7C 00000000                    3734+         DC    F'0'
00AB80 00000000                    3735+ECB30    DC    F'0'
00AB88                             3736+         DS    0D
00AB88 0000000000000000            3737+TRAREA30 DC    128X'0000000000000000'
                                   3738+         ENTRY TAIOB31
00AF88                             3739+TAIOB31  DS    0D
00AF88 02                          3740+         DC    X'02'
00AF89 000000                      3741+         DC    X'000000'
00AF8C 0000AFC8                    3742+         DC    A(ECB31) TAIOB POINTER TO ASSOCIATED ECB
00AF90 00000000                    3743+         DC    F'0'
00AF94 00000000                    3744+         DC    F'0'
00AF98 0000AFB0                    3745+         DC    A(CCW31) TAIOB POINTER TO ASSOCIATED CCW
00AF9C 0000BC38                    3746+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
00AFA0 00000000                    3747+         DC    F'0'
00AFA4 00000000                    3748+         DC    F'0'
00AFA8 00000000                    3749+SEEK31   DC    F'0'
00AFAC 00000000                    3750+         DC    F'0'
00AFB0 31                          3751+CCW31    DC    X'31'
                                                                                                               PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00AFB1 00AFAB                      3752+         DC    AL3(SEEK31+3) TAIOB POINTER TO SEEK ADDRESS +3.
00AFB4 60                          3753+         DC    X'60'
00AFB5 000005                      3754+         DC    X'000005'
00AFB8 08                          3755+         DC    X'08'
00AFB9 00AFB0                      3756+         DC    AL3(CCW31) TAIOB POINTER TO CCW
00AFBC 40                          3757+         DC    X'40'
00AFBD 000001                      3758+         DC    X'000001'
00AFC0 06                          3759+         DC    X'06'
00AFC1 00AFD0                      3760+         DC    AL3(TRAREA31) TAIOB POINTER TO ASSOCIATED T. AREA
00AFC4 00000000                    3761+         DC    F'0'
00AFC8 00000000                    3762+ECB31    DC    F'0'
00AFD0                             3763+         DS    0D
00AFD0 0000000000000000            3764+TRAREA31 DC    128X'0000000000000000'
                                   3765+         ENTRY TAIOB32
00B3D0                             3766+TAIOB32  DS    0D
00B3D0 02                          3767+         DC    X'02'
00B3D1 000000                      3768+         DC    X'000000'
00B3D4 0000B410                    3769+         DC    A(ECB32) TAIOB POINTER TO ASSOCIATED ECB
00B3D8 00000000                    3770+         DC    F'0'
00B3DC 00000000                    3771+         DC    F'0'
00B3E0 0000B3F8                    3772+         DC    A(CCW32) TAIOB POINTER TO ASSOCIATED CCW
00B3E4 0000BC38                    3773+         DC    A(SVCDCB) TAIOB POINTER TO SVC DCB
00B3E8 00000000                    3774+         DC    F'0'
00B3EC 00000000                    3775+         DC    F'0'
00B3F0 00000000                    3776+SEEK32   DC    F'0'
00B3F4 00000000                    3777+         DC    F'0'
00B3F8 31                          3778+CCW32    DC    X'31'
00B3F9 00B3F3                      3779+         DC    AL3(SEEK32+3) TAIOB POINTER TO SEEK ADDRESS +3.
00B3FC 60                          3780+         DC    X'60'
00B3FD 000005                      3781+         DC    X'000005'
00B400 08                          3782+         DC    X'08'
00B401 00B3F8                      3783+         DC    AL3(CCW32) TAIOB POINTER TO CCW
00B404 40                          3784+         DC    X'40'
00B405 000001                      3785+         DC    X'000001'
00B408 06                          3786+         DC    X'06'
00B409 00B418                      3787+         DC    AL3(TRAREA32) TAIOB POINTER TO ASSOCIATED T. AREA
00B40C 00000000                    3788+         DC    F'0'
00B410 00000000                    3789+ECB32    DC    F'0'
00B418                             3790+         DS    0D
00B418 0000000000000000            3791+TRAREA32 DC    128X'0000000000000000'
                                   3792+*
                                   3793+*  ERROR TCB TRANSIENT AREA IOB
                                   3794+*
                                   3795+         ENTRY IEAERRTA
                                   3796+         ENTRY IEAERWA
00B818                             3797+IEAERWA  DS    0D
00B818 02                          3798+ERRIOB   DC    X'02'
00B819 000000                      3799+         DC    X'000000'
00B81C 0000B858                    3800+         DC    A(ERRECB)
00B820 00000000                    3801+         DC    F'0'
00B824 00000000                    3802+         DC    F'0'
00B828 0000B840                    3803+         DC    A(ERRCCW1)
00B82C 0000BC38                    3804+         DC    A(SVCDCB)
00B830 00000000                    3805+         DC    F'0'
00B834 00000000                    3806+         DC    F'0'
                                                                                                               PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00B838 00000000                    3807+ERRSEEK  DC    F'0'
00B83C 00000000                    3808+         DC    F'0'
00B840 31                          3809+ERRCCW1  DC    X'31'
00B841 00B83B                      3810+         DC    AL3(ERRSEEK+3)
00B844 60                          3811+         DC    X'60'
00B845 000005                      3812+         DC    X'000005'
00B848 08                          3813+ERRCCW2  DC    X'08'
00B849 00B840                      3814+         DC    AL3(ERRCCW1)
00B84C 40                          3815+         DC    X'40'
00B84D 000001                      3816+         DC    X'000001'
00B850 06                          3817+ERRCCW3  DC    X'06'
00B851 00B860                      3818+         DC    AL3(IEAERRTA)
00B854 00000000                    3819+         DC    F'0'
00B858 00000000                    3820+ERRECB   DC    F'0'
                                   3821+*
                                   3822+*   ERROR TCB TRANSIENT AREA
                                   3823+*
00B860                             3824+IEAERRTA DS    0D
00B860 0000000000000000            3825+         DC    128D'0' EXPANDED TO 1024 FOR REL. 15.   RORI
                                                                                                               PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3827+*
                                   3828+*    SVC/LINK  LIBRARY'S DEBS AND DCBS
                                   3829+*
                                   3830+         ENTRY LINKDCB
                                   3831+         ENTRY SVCDCB
                                   3832+         ENTRY IEAQLPAQ
                                   3833+         EXTRN IECXAPG
                                   3834+*
00BC60                             3835+         DS    0D
00BC34                             3836+LINKDCB  EQU   *-44
00BC60 00000000                    3837+         DC    F'0' MXMV
00BC38                             3838+SVCDCB   EQU   *-44
00BC64 00000000                    3839+         DC    F'0' MXMV
                                   3840+*
                                   3841+         ENTRY IEASVDCB
                                   3842+         ENTRY IEFLINK
00BC34                             3843+IEFLINK  EQU   LINKDCB
00BC38                             3844+IEASVDCB EQU   SVCDCB
00BC68 00000000                    3845+IEAQLPAQ DC    F'0'
                                   3846+*                                                                  MTS0
                                   3847+*        TIME SLICE CONTROL ELEMENTS                               MTS0
                                   3848+*                                                                  MTS0
                                   3849+         ENTRY IEATSCE MTS0
                                   3850+         ENTRY IEATSTQE MTS0
00BC70                             3851+IEATSCE  DS    0D MTS0
00BC6C                             3852+         ORG   *-4 MTS0
00BC6C 80                          3853+         DC    X'80' END OF TSCE BLOCKS         MTS0
00BC71                             3854+         ORG   *+4 MTS0
00BC78                             3855+IEATSTQE DS    0D MTS0
00BC78                             3856+TSTQE    EQU   * MTS0
00BC78 80                          3857+         DC    X'80' MTS0
00BC79 00000000                    3858+         DC    X'00000000' MTS0
00BC7D 000000                      3859+TQEFLNK  DC    X'000000' MTS0
00BC80 00                          3860+         DC    X'00' MTS0
00BC81 000000                      3861+TQEBLNK  DC    X'000000' MTS0
00BC84 00000000                    3862+TQEVAL   DC    F'0' MTS0
00BC88 0000000000000000            3863+         DC    4F'0' M0138
                                   3864+*                                                                  MTS0
                                   3865+*  GENERATE THE CVT TABLE FOR MS1 SYSTEM
                                   3866+*
00BC98 00000000                    3867+         DC    A(0) 19026
00BC9C                             3868+         DS    0F ALIGN CVT ON FULLWORK BOUNDRY
00BC9C F2F1F8                      3869+CVTRELNO DC    CL3'218' RELEASE NUMBER
00BC9F C6                          3870+         DC    CL1'F' UPDATED DLIB LEVEL IDENTIFIER 218F
                                   3871+*
                                   3872+*              OS/360
                                   3873+*        COMMUNICATION VECTOR TABLE
                                   3874+*
                                   3875+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5
                                   3876+*
000010                             3877+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT
                                   3878+*
                                   3879+*              BEGINNING OF CVT PROPER
                                   3880+*
00BCA0                             3881+         DS    0F
                                                                                                               PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00BCA0                             3882+IEACVT   EQU   * -           CVTPTR CONTENT POINTS HERE
                                   3883+*
00BCA0 00000000                    3884+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST
00BCA4 00000000                    3885+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE
                                   3886+*                              ASYNCHRONOUS EXITS
00BCA8 00000000                    3887+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB
00BCAC 00000000                    3888+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB
00BCB0 00000000                    3889+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT
                                   3890+*                              CONSOLE INTERRUPTION ROUTINE
00BCB4 00000000                    3891+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE
00BCB8 00000000                    3892+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING
                                   3893+*                              ROUTINE FOR SUPERVISOR
00BCBC 00000000                    3894+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                   3895+*                              RELATIVE TRACK ADDR TO ABSOLUTE
00BCC0 00000000                    3896+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                   3897+*                              ABSOLUTE TRACK ADDR TO RELATIVE
00BCC4 00000000                    3898+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION
                                   3899+*                              IN UCB LOOKUP TABLE
00BCC8 00000000                    3900+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION
                                   3901+*                              IN UCB LOOKUP TABLE
00BCCC 00000000                    3902+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE
                                   3903+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES
00BCD0 00000000                    3904+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY
                                   3905+*                              IN UCB LOOKUP TABLE
00BCD4 00000000                    3906+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE
00BCD8 00000000                    3907+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL
00BCDC 00000000                    3908+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)
                                   3909+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS
                                   3910+*                              MASTER SCHEDULER RESIDENT DATA AREA
00BCE0 00000000                    3911+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE
00BCE4 00000000                    3912+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE
00BCE8 00000000                    3913+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS
                                   3914+*                              FOR DAMAGE ASSESSMENT ROUTINES
00BCEC 00000000                    3915+CVT0FN00 DC    A(0) -        RESERVED (MVT)
00BCF0 0A03                        3916+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER
00BCF2 07FE                        3917+CVTBRET  BR    14 -          RETURN TO CALLER
00BCF4 00000000                    3918+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB
00BCF8 00000000                    3919+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER
                                   3920+*                              ROUTINE (SHPC FIRST)
00BCFC 00000000                    3921+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL
00BD00 00000000                    3922+CVTSJQ   DC    A(0) -        RESERVED (MVT)
00BD04 00000000                    3923+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR
00BD08 00000000                    3924+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE
                                   3925+*                              FOR INTERVAL TIMER
00BD0C 00000000                    3926+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE
                                   3927+*                              FOR INTERVAL TIMER
00BD10 00000000                    3928+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE
00BD14 10                          3929+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM
000040                             3930+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS
000020                             3931+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS
000010                             3932+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1
000004                             3933+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING
00BD15 000000                      3934+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC
00BD18 00000000                    3935+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE
00BD1C 00000000                    3936+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER
                                                                                                               PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00BD20 00000000                    3937+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS
00BD24 00000000                    3938+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE
00BD28 00000000                    3939+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER
00BD2C 00000000                    3940+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE
00BD30 00000000                    3941+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE
00BD34 00000000                    3942+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT
                                   3943+*                              DATA AREA (MVT/MFT)
00BD38 00000000                    3944+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE
00BD3C 00000000                    3945+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE
00BD40 00000000                    3946+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE
00BD44 00000000                    3947+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS
00BD48 00000000                    3948+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)
00BD4C 00000000                    3949+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD
                                   3950+*                              (0 IF GFX INACTIVE) MVT
00BD50 00000000                    3951+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA
                                   3952+*                              (MVT/MFT)
00BD54 0000                        3953+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER
00BD56 E2                          3954+CVTOPTA  DC    AL1(226) -     MISCELLANEOUS FLAGS
000080                             3955+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)
000040                             3956+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --
                                   3957+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000020                             3958+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --
                                   3959+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000010                             3960+CVTNIP   EQU   X'10' -       NIP RUNNING
000008                             3961+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)
000004                             3962+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE
000002                             3963+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT
000001                             3964+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT
00BD57 20                          3965+CVTOPTB  DC    AL1(32) - MISCELLANEOUS FLAGS
000080                             3966+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)
000020                             3967+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)
                                   3968+*
                                   3969+*              PCP OVERLAY
                                   3970+*
00BD58                             3971+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART
00BD5B                             3972+CVTSTUSA DS    B -           STATUS BYTE A
000008                             3973+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART
                                   3974+*                              WAS INITIATED INTRASTEP
000004                             3975+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART
                                   3976+*                              WAS INITIATED INTERSTEP
000002                             3977+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM
                                   3978+*                              AND DATA HAS NOT BEEN READ
00BD5C                             3979+         DS    CL2 -         RESERVED
00BD5E                             3980+         DS    CL2 -         RESERVED
                                   3981+*
                                   3982+*              MVT/MFT OVERLAY
                                   3983+*
00BD58                             3984+         ORG   CVTCRTTR
                                   3985+*
00BD58 00000000                    3986+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR
00BD5C 00000000                    3987+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE
                                   3988+*
                                   3989+*              END OF OVERLAYS
                                   3990+*
00BD60 00000000                    3991+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)
                                                                                                               PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00BD64 00000000                    3992+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA
00BD68 00000000                    3993+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT
                                   3994+*                              (MVT/MPS)
00BD6C 00000000                    3995+CVTUSER  DC    A(0) -        A WORD TO THE USER
                                   3996+*
                                   3997+*              MFT/MVT CVT EXTENSION
                                   3998+*
00BD70 00000000                    3999+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT
00BD74 0A0D                        4000+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)
00BD76 0A06                        4001+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)
00BD78 00000000                    4002+CVTTSCE  DC    V(IEATSCE) -  ADDR OF FIRST TIME SLICE CONTROL ELEMENT
00BD7C 00000000                    4003+CVTPATCH DC    V(IEAPATCH) - ADDR OF FE PATCH AREA
00BD80 00000000                    4004+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA
                                   4005+*                              (MVT/MFT)
00BD84                             4006+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)
00BD84 00                          4007+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)
000080                             4008+CVTTSRDY EQU   X'80' -       TIME SHARING READY
00BD85 000000                      4009+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)
00BD88 00000000                    4010+CVT0SCR1 DC    V(IEC0SCR1) - ADDR OF RPS SECTOR CONVERTER (MVT/MFT)
00BD8C                             4011+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)
00BD8C 00                          4012+CVTGTFST DC    B'0' -        STATUS FLAGS
0000C0                             4013+CVTGTFS  EQU   X'C0' -       STATE
                                   4014+*/       00    CVTGTFIN      INACTIVE
                                   4015+*/       01    CVTGTFSR      STARTING
                                   4016+*/       10    CVTGTFSP      STOPPING
                                   4017+*/       11    CVTGTFAC      ACTIVE
000020                             4018+CVTSTATE EQU   X'20' -       IN CONTROL
000010                             4019+CVTMODE  EQU   X'10' -       EXT MODE
000008                             4020+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA
000004                             4021+CVTUSR   EQU   X'04' -       USR TRACE
000002                             4022+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID
00BD8D 000000                      4023+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE
00BD90                             4024+CVTTCMFG DS    0B -          TCAM FLAGS
000080                             4025+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)
00BD90 00000000                    4026+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF
                                   4027+*                            TCAM ADDRESS VECTOR TABLE
                                   4028+*
                                   4029+*              MVT CVT EXTENSION
                                   4030+*
00BD94                             4031+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE
                                   4032+*                            (PWF)                               S21167
00BD94 80                          4033+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY
                                   4034+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167
000080                             4035+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167
00BD95 000000                      4036+CVTVOLT2 DC    AL3(0) -  PWF RECHECK TIME DELAY.  THIS VALUE IS
                                   4037+*                            OVERLAID BY CVTVOLM2 AFTER PWF
                                   4038+*                            INITIALIZATION                      S21167
00BD98 00000000                    4039+         DC    A(0) -        RESERVED
                                   4040+*
                                   4041+*              MVT/MFT CVT EXTENSION
                                   4042+*
00BD9C 0000BDB4                    4043+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1
                                   4044+*                            (ICB421)                APAR'S 47331,47332
00BDA0                             4045+         DS    F -           RESERVED
00BDA4                             4046+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE
                                                                                                               PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00BDA4                             4047+         DS    X -           RESERVED
00BDA5 000000                      4048+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE
00BDA8                             4049+         DS    F -           RESERVED
00BDAC                             4050+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307
00BDAC                             4051+         DS    X -           RESERVED                            ICB307
00BDAD 000000                      4052+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND
                                   4053+*                            COMMUNICATION AREA                  ICB307
00BDB0                             4054+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308
00BDB0                             4055+         DS    X -           RESERVED                            ICB308
00BDB1 000000                      4056+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY
                                   4057+*                            ROUTINE                             ICB308
                                   4058+*
                                   4059+*              COMMON EXTENSION 1
                                   4060+*              ADDRESS OF EXTENSION IS IN CVTEXT1
                                   4061+*
                                   4062+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,
                                   4063+*              YOU SHOULD CODE -
                                   4064+*
                                   4065+*              L     REG,CVTEXT1
                                   4066+*              USING CVTXTNT1,REG
                                   4067+*
                                   4068+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.
                                   4069+*
00BDB4                             4070+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1
                                   4071+*                            (ICB421)                APAR'S 47331,47332
00BDB4 00000000                    4072+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS
                                   4073+*                            (ISAM) (ICB421)         APAR'S 47331,47332
                                   4074+*
                                   4075+*              END OF CVT PROPER
                                   4076+*
                                   4077+*
                                   4078+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT
                                   4079+*
                                   4080+         ENTRY IEACVT
                                   4081+         EXTRN IEA0VL01
00BDB8 00000000                    4082+         DC    A(IEA0VL01)
                                   4083+*
                                   4084+*   ROLLOUT/ROLLIN COUNTERS                                        RORI
                                   4085+*                                                                  RORI
                                   4086+         ENTRY IEARCTRS,IEAROICT,IEAROQCT,IEAROQUE RORI
                                   4087+         ENTRY IEAROPRM RORI
00BDBC                             4088+IEARCTRS DS    0F RORI
00BDBC 0000                        4089+IEAROICT DC    H'0' NUMBER OF ROLLOUTS INVOKED      RORI
00BDBE 0000                        4090+IEAROQCT DC    H'0' NUMBER OF REQUESTS QUEUED       RORI
00BDC0 00000000                    4091+IEAROQUE DC    F'0' ADDRESS OF FIRST IQE QUEUED AS A  RORI
                                   4092+*                                  REQUEST FOR ROLLOUT             RORI
00BDC4 00000000                    4093+IEAROPRM DC    F'0' ADDRESS OF ROLLOUT/ROLLIN  RORI
                                   4094+*                                       PARAMETER LIST             RORI
                                   4095          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       01      0C     002B90
   03       02      0C     002B9C
   03       03      0C     000020
   03       03      0C     000058
   03       03      0C     00005C
   03       03      0C     000060
   03       03      0C     000064
   03       03      0C     00006C
   03       03      0C     000078
   03       03      0C     000094
   03       03      0C     00009C
   03       03      0C     0000A4
   03       03      08     0000FD
   03       03      0C     000168
   03       03      0C     0001A0
   03       03      0C     0001A4
   03       03      0C     0001A8
   03       03      0C     0001AC
   03       03      0C     0001B4
   03       03      0C     0001C0
   03       03      0C     0001DC
   03       03      0C     0001E4
   03       03      0C     0001EC
   03       03      08     000245
   03       03      0C     0002B0
   03       03      0C     0002E8
   03       03      0C     0002EC
   03       03      0C     0002F0
   03       03      0C     0002F4
   03       03      0C     0002FC
   03       03      0C     000308
   03       03      0C     000324
   03       03      0C     00032C
   03       03      0C     000334
   03       03      08     00038D
   03       03      0C     0003F8
   03       03      0C     000430
   03       03      0C     000434
   03       03      0C     000438
   03       03      0C     00043C
   03       03      0C     000444
   03       03      0C     000450
   03       03      0C     00046C
   03       03      0C     000474
   03       03      0C     00047C
   03       03      08     0004D5
   03       03      0C     000540
   03       03      0C     000578
   03       03      0C     00057C
   03       03      0C     000580
   03       03      0C     000584
   03       03      0C     00058C
   03       03      0C     000598
   03       03      0C     0005B4
   03       03      0C     0005BC
                                                 RELOCATION DICTIONARY                                          PAGE   2


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       03      0C     0005C4
   03       03      08     00061D
   03       03      0C     000688
   03       03      0C     0006C0
   03       03      0C     0006C4
   03       03      0C     0006C8
   03       03      0C     0006CC
   03       03      0C     0006D4
   03       03      0C     0006E0
   03       03      0C     0006FC
   03       03      0C     000704
   03       03      0C     00070C
   03       03      08     000765
   03       03      0C     0007D0
   03       03      0C     000808
   03       03      0C     00080C
   03       03      0C     000810
   03       03      0C     000814
   03       03      0C     00081C
   03       03      0C     000828
   03       03      0C     000844
   03       03      0C     00084C
   03       03      0C     000854
   03       03      08     0008AD
   03       03      0C     000918
   03       03      0C     000950
   03       03      0C     000954
   03       03      0C     000958
   03       03      0C     00095C
   03       03      0C     000964
   03       03      0C     000970
   03       03      0C     00098C
   03       03      0C     000994
   03       03      0C     00099C
   03       03      08     0009F5
   03       03      0C     000A60
   03       03      0C     000A98
   03       03      0C     000A9C
   03       03      0C     000AA0
   03       03      0C     000AA4
   03       03      0C     000AAC
   03       03      0C     000AB8
   03       03      0C     000AD4
   03       03      0C     000ADC
   03       03      0C     000AE4
   03       03      08     000B3D
   03       03      0C     000BA8
   03       03      0C     000BE0
   03       03      0C     000BE4
   03       03      0C     000BE8
   03       03      0C     000BEC
   03       03      0C     000BF4
   03       03      0C     000C00
   03       03      0C     000C1C
   03       03      0C     000C24
                                                 RELOCATION DICTIONARY                                          PAGE   3


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       03      0C     000C2C
   03       03      08     000C85
   03       03      0C     000CF0
   03       03      0C     000D28
   03       03      0C     000D2C
   03       03      0C     000D30
   03       03      0C     000D34
   03       03      0C     000D3C
   03       03      0C     000D48
   03       03      0C     000D64
   03       03      0C     000D6C
   03       03      0C     000D74
   03       03      08     000DCD
   03       03      0C     000E38
   03       03      0C     000E70
   03       03      0C     000E74
   03       03      0C     000E78
   03       03      0C     000E7C
   03       03      0C     000E84
   03       03      0C     000E90
   03       03      0C     000EAC
   03       03      0C     000EB4
   03       03      0C     000EBC
   03       03      08     000F15
   03       03      0C     000F80
   03       03      0C     000FB8
   03       03      0C     000FBC
   03       03      0C     000FC0
   03       03      0C     000FC4
   03       03      0C     000FCC
   03       03      0C     000FD8
   03       03      0C     000FF4
   03       03      0C     000FFC
   03       03      0C     001004
   03       03      08     00105D
   03       03      0C     0010C8
   03       03      0C     001100
   03       03      0C     001104
   03       03      0C     001108
   03       03      0C     00110C
   03       03      0C     001114
   03       03      0C     001120
   03       03      0C     00113C
   03       03      0C     001144
   03       03      0C     00114C
   03       03      08     0011A5
   03       03      0C     001210
   03       03      0C     001248
   03       03      0C     00124C
   03       03      0C     001250
   03       03      0C     001254
   03       03      0C     00125C
   03       03      0C     001268
   03       03      0C     001284
   03       03      0C     00128C
                                                 RELOCATION DICTIONARY                                          PAGE   4


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       03      0C     001294
   03       03      08     0012ED
   03       03      0C     001358
   03       03      0C     001390
   03       03      0C     001394
   03       03      0C     001398
   03       03      0C     00139C
   03       03      0C     0013A4
   03       03      0C     0013B0
   03       03      0C     0013CC
   03       03      0C     0013D4
   03       03      0C     0013DC
   03       03      08     001435
   03       03      0C     0014A0
   03       03      0C     0014D8
   03       03      0C     0014DC
   03       03      0C     0014E0
   03       03      0C     0014E4
   03       03      0C     0014EC
   03       03      0C     0014F8
   03       03      0C     001514
   03       03      0C     00151C
   03       03      0C     001524
   03       03      08     00157D
   03       03      0C     0015E8
   03       03      0C     001620
   03       03      0C     001624
   03       03      0C     001628
   03       03      0C     00162C
   03       03      0C     001634
   03       03      0C     001640
   03       03      0C     00165C
   03       03      0C     001664
   03       03      0C     00166C
   03       03      08     0016C5
   03       03      0C     001730
   03       03      0C     001768
   03       03      0C     00176C
   03       03      0C     001770
   03       03      0C     001774
   03       03      0C     00177C
   03       03      0C     001788
   03       03      0C     0017A4
   03       03      0C     0017AC
   03       03      0C     0017B4
   03       03      08     00180D
   03       03      0C     001878
   03       03      0C     0018B0
   03       03      0C     0018B4
   03       03      0C     0018B8
   03       03      0C     0018BC
   03       03      0C     0018C4
   03       03      0C     0018D0
   03       03      0C     0018EC
   03       03      0C     0018F4
                                                 RELOCATION DICTIONARY                                          PAGE   5


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       03      0C     0018FC
   03       03      08     001955
   03       03      0C     0019C0
   03       03      0C     0019F8
   03       03      0C     0019FC
   03       03      0C     001A00
   03       03      0C     001A04
   03       03      0C     001A0C
   03       03      0C     001A18
   03       03      0C     001A34
   03       03      0C     001A3C
   03       03      0C     001A44
   03       03      08     001A9D
   03       03      0C     001B08
   03       03      0C     001B40
   03       03      0C     001B44
   03       03      0C     001B48
   03       03      0C     001B4C
   03       03      0C     001B54
   03       03      0C     001B60
   03       03      0C     001B7C
   03       03      0C     001B84
   03       03      0C     001B8C
   03       03      08     001BE5
   03       03      0C     001C50
   03       03      0C     001C88
   03       03      0C     001C8C
   03       03      0C     001C90
   03       03      0C     001C94
   03       03      0C     001C9C
   03       03      0C     001CA8
   03       03      0C     001CC4
   03       03      0C     001CCC
   03       03      0C     001CD4
   03       03      08     001D2D
   03       03      0C     001D98
   03       03      0C     001DD0
   03       03      0C     001DD4
   03       03      0C     001DD8
   03       03      0C     001DDC
   03       03      0C     001DE4
   03       03      0C     001DF0
   03       03      0C     001E0C
   03       03      0C     001E14
   03       03      0C     001E1C
   03       03      08     001E75
   03       03      0C     001EE0
   03       03      0C     001F18
   03       03      0C     001F1C
   03       03      0C     001F20
   03       03      0C     001F24
   03       03      0C     001F2C
   03       03      0C     001F38
   03       03      0C     001F54
   03       03      0C     001F5C
                                                 RELOCATION DICTIONARY                                          PAGE   6


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       03      0C     001F64
   03       03      08     001FBD
   03       03      0C     002028
   03       03      0C     002060
   03       03      0C     002064
   03       03      0C     002068
   03       03      0C     00206C
   03       03      0C     002074
   03       03      0C     002080
   03       03      0C     00209C
   03       03      0C     0020A4
   03       03      0C     0020AC
   03       03      08     002105
   03       03      0C     002170
   03       03      0C     0021A8
   03       03      0C     0021AC
   03       03      0C     0021B0
   03       03      0C     0021B4
   03       03      0C     0021BC
   03       03      0C     0021C8
   03       03      0C     0021E4
   03       03      0C     0021EC
   03       03      0C     0021F4
   03       03      08     00224D
   03       03      0C     0022B8
   03       03      0C     0022F0
   03       03      0C     0022F4
   03       03      0C     0022F8
   03       03      0C     0022FC
   03       03      0C     002304
   03       03      0C     002310
   03       03      0C     00232C
   03       03      0C     002334
   03       03      0C     00233C
   03       03      08     002395
   03       03      0C     002400
   03       03      0C     002438
   03       03      0C     00243C
   03       03      0C     002440
   03       03      0C     002444
   03       03      0C     00244C
   03       03      0C     002458
   03       03      0C     002474
   03       03      0C     00247C
   03       03      0C     002484
   03       03      08     0024DD
   03       03      0C     002548
   03       03      0C     002580
   03       03      0C     002584
   03       03      0C     002588
   03       03      0C     00258C
   03       03      0C     002594
   03       03      0C     0025A0
   03       03      0C     0025BC
   03       03      0C     0025C4
                                                 RELOCATION DICTIONARY                                          PAGE   7


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       03      0C     0025CC
   03       03      08     002625
   03       03      0C     002690
   03       03      0C     0026C8
   03       03      0C     0026CC
   03       03      0C     0026D0
   03       03      0C     0026D4
   03       03      0C     0026DC
   03       03      0C     0026E8
   03       03      0C     002704
   03       03      0C     00270C
   03       03      0C     002714
   03       03      08     00276D
   03       03      0C     0027D8
   03       03      0C     002810
   03       03      0C     002814
   03       03      0C     002818
   03       03      0C     00281C
   03       03      0C     002824
   03       03      0C     002830
   03       03      0C     00284C
   03       03      0C     002854
   03       03      0C     00285C
   03       03      08     0028B5
   03       03      0C     002920
   03       03      0C     002978
   03       03      0C     002994
   03       03      0C     00299C
   03       03      0C     0029A4
   03       03      08     0029FD
   03       03      0C     002A30
   03       03      0C     002A88
   03       03      0C     002AA4
   03       03      0C     002AAC
   03       03      0C     002AB4
   03       03      08     002B0D
   03       03      0C     002B30
   03       03      0C     002B6C
   03       03      0C     002B70
   03       03      0C     002B74
   03       03      0C     002B88
   03       03      0C     002BA4
   03       03      0C     002BAC
   03       03      0C     002BB4
   03       03      08     002C0D
   03       03      0C     002C30
   03       03      0C     002C88
   03       03      0C     002CAC
   03       03      0C     002CB8
   03       03      08     002D0D
   03       03      08     002D19
   03       03      0C     002D24
   03       03      08     002D29
   03       03      0C     002D34
   03       03      08     002D39
                                                 RELOCATION DICTIONARY                                          PAGE   8


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       03      0C     002D44
   03       03      08     002D49
   03       03      0C     002D54
   03       03      08     002D59
   03       03      0C     002D64
   03       03      08     002D69
   03       03      0C     002D74
   03       03      08     002D79
   03       03      0C     002D84
   03       03      08     002D89
   03       03      0C     002D94
   03       03      08     002D99
   03       03      0C     002DA4
   03       03      08     002DA9
   03       03      0C     002DB4
   03       03      08     002DB9
   03       03      0C     002DC4
   03       03      08     002DC9
   03       03      0C     002DD4
   03       03      08     002DD9
   03       03      0C     002DE4
   03       03      08     002DE9
   03       03      0C     002DF4
   03       03      08     002DF9
   03       03      0C     002E04
   03       03      08     002E09
   03       03      0C     002E14
   03       03      08     002E19
   03       03      0C     002E24
   03       03      08     002E29
   03       03      0C     002E34
   03       03      08     002E39
   03       03      0C     002E44
   03       03      08     002E49
   03       03      0C     002E54
   03       03      08     002E59
   03       03      0C     002E64
   03       03      08     002E69
   03       03      0C     002E74
   03       03      08     002E79
   03       03      0C     002E84
   03       03      08     002E89
   03       03      0C     002E94
   03       03      08     002E99
   03       03      0C     002EA4
   03       03      08     002EA9
   03       03      0C     002EB4
   03       03      08     002EB9
   03       03      0C     002EC4
   03       03      08     002EC9
   03       03      0C     002ED4
   03       03      08     002ED9
   03       03      0C     002EE4
   03       03      08     002EE9
   03       03      0C     002EF4
                                                 RELOCATION DICTIONARY                                          PAGE   9


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       03      08     002EF9
   03       03      0C     002F04
   03       03      08     002F09
   03       03      0C     002F14
   03       03      0C     002F1C
   03       03      0C     002F28
   03       03      0C     002F2C
   03       03      08     002F41
   03       03      08     002F49
   03       03      08     002F51
   03       03      0C     003364
   03       03      0C     003370
   03       03      0C     003374
   03       03      08     003389
   03       03      08     003391
   03       03      08     003399
   03       03      0C     0037AC
   03       03      0C     0037B8
   03       03      0C     0037BC
   03       03      08     0037D1
   03       03      08     0037D9
   03       03      08     0037E1
   03       03      0C     003BF4
   03       03      0C     003C00
   03       03      0C     003C04
   03       03      08     003C19
   03       03      08     003C21
   03       03      08     003C29
   03       03      0C     00403C
   03       03      0C     004048
   03       03      0C     00404C
   03       03      08     004061
   03       03      08     004069
   03       03      08     004071
   03       03      0C     004484
   03       03      0C     004490
   03       03      0C     004494
   03       03      08     0044A9
   03       03      08     0044B1
   03       03      08     0044B9
   03       03      0C     0048CC
   03       03      0C     0048D8
   03       03      0C     0048DC
   03       03      08     0048F1
   03       03      08     0048F9
   03       03      08     004901
   03       03      0C     004D14
   03       03      0C     004D20
   03       03      0C     004D24
   03       03      08     004D39
   03       03      08     004D41
   03       03      08     004D49
   03       03      0C     00515C
   03       03      0C     005168
   03       03      0C     00516C
                                                 RELOCATION DICTIONARY                                          PAGE  10


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       03      08     005181
   03       03      08     005189
   03       03      08     005191
   03       03      0C     0055A4
   03       03      0C     0055B0
   03       03      0C     0055B4
   03       03      08     0055C9
   03       03      08     0055D1
   03       03      08     0055D9
   03       03      0C     0059EC
   03       03      0C     0059F8
   03       03      0C     0059FC
   03       03      08     005A11
   03       03      08     005A19
   03       03      08     005A21
   03       03      0C     005E34
   03       03      0C     005E40
   03       03      0C     005E44
   03       03      08     005E59
   03       03      08     005E61
   03       03      08     005E69
   03       03      0C     00627C
   03       03      0C     006288
   03       03      0C     00628C
   03       03      08     0062A1
   03       03      08     0062A9
   03       03      08     0062B1
   03       03      0C     0066C4
   03       03      0C     0066D0
   03       03      0C     0066D4
   03       03      08     0066E9
   03       03      08     0066F1
   03       03      08     0066F9
   03       03      0C     006B0C
   03       03      0C     006B18
   03       03      0C     006B1C
   03       03      08     006B31
   03       03      08     006B39
   03       03      08     006B41
   03       03      0C     006F54
   03       03      0C     006F60
   03       03      0C     006F64
   03       03      08     006F79
   03       03      08     006F81
   03       03      08     006F89
   03       03      0C     00739C
   03       03      0C     0073A8
   03       03      0C     0073AC
   03       03      08     0073C1
   03       03      08     0073C9
   03       03      08     0073D1
   03       03      0C     0077E4
   03       03      0C     0077F0
   03       03      0C     0077F4
   03       03      08     007809
                                                 RELOCATION DICTIONARY                                          PAGE  11


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       03      08     007811
   03       03      08     007819
   03       03      0C     007C2C
   03       03      0C     007C38
   03       03      0C     007C3C
   03       03      08     007C51
   03       03      08     007C59
   03       03      08     007C61
   03       03      0C     008074
   03       03      0C     008080
   03       03      0C     008084
   03       03      08     008099
   03       03      08     0080A1
   03       03      08     0080A9
   03       03      0C     0084BC
   03       03      0C     0084C8
   03       03      0C     0084CC
   03       03      08     0084E1
   03       03      08     0084E9
   03       03      08     0084F1
   03       03      0C     008904
   03       03      0C     008910
   03       03      0C     008914
   03       03      08     008929
   03       03      08     008931
   03       03      08     008939
   03       03      0C     008D4C
   03       03      0C     008D58
   03       03      0C     008D5C
   03       03      08     008D71
   03       03      08     008D79
   03       03      08     008D81
   03       03      0C     009194
   03       03      0C     0091A0
   03       03      0C     0091A4
   03       03      08     0091B9
   03       03      08     0091C1
   03       03      08     0091C9
   03       03      0C     0095DC
   03       03      0C     0095E8
   03       03      0C     0095EC
   03       03      08     009601
   03       03      08     009609
   03       03      08     009611
   03       03      0C     009A24
   03       03      0C     009A30
   03       03      0C     009A34
   03       03      08     009A49
   03       03      08     009A51
   03       03      08     009A59
   03       03      0C     009E6C
   03       03      0C     009E78
   03       03      0C     009E7C
   03       03      08     009E91
   03       03      08     009E99
                                                 RELOCATION DICTIONARY                                          PAGE  12


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       03      08     009EA1
   03       03      0C     00A2B4
   03       03      0C     00A2C0
   03       03      0C     00A2C4
   03       03      08     00A2D9
   03       03      08     00A2E1
   03       03      08     00A2E9
   03       03      0C     00A6FC
   03       03      0C     00A708
   03       03      0C     00A70C
   03       03      08     00A721
   03       03      08     00A729
   03       03      08     00A731
   03       03      0C     00AB44
   03       03      0C     00AB50
   03       03      0C     00AB54
   03       03      08     00AB69
   03       03      08     00AB71
   03       03      08     00AB79
   03       03      0C     00AF8C
   03       03      0C     00AF98
   03       03      0C     00AF9C
   03       03      08     00AFB1
   03       03      08     00AFB9
   03       03      08     00AFC1
   03       03      0C     00B3D4
   03       03      0C     00B3E0
   03       03      0C     00B3E4
   03       03      08     00B3F9
   03       03      08     00B401
   03       03      08     00B409
   03       03      0C     00B81C
   03       03      0C     00B828
   03       03      0C     00B82C
   03       03      08     00B841
   03       03      08     00B849
   03       03      08     00B851
   03       03      0C     00BD9C
   03       04      0C     000074
   03       04      0C     0001BC
   03       04      0C     000304
   03       04      0C     00044C
   03       04      0C     000594
   03       04      0C     0006DC
   03       04      0C     000824
   03       04      0C     00096C
   03       04      0C     000AB4
   03       04      0C     000BFC
   03       04      0C     000D44
   03       04      0C     000E8C
   03       04      0C     000FD4
   03       04      0C     00111C
   03       04      0C     001264
   03       04      0C     0013AC
   03       04      0C     0014F4
                                                 RELOCATION DICTIONARY                                          PAGE  13


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       04      0C     00163C
   03       04      0C     001784
   03       04      0C     0018CC
   03       04      0C     001A14
   03       04      0C     001B5C
   03       04      0C     001CA4
   03       04      0C     001DEC
   03       04      0C     001F34
   03       04      0C     00207C
   03       04      0C     0021C4
   03       04      0C     00230C
   03       04      0C     002454
   03       04      0C     00259C
   03       04      0C     0026E4
   03       04      0C     00282C
   03       05      0C     000080
   03       05      0C     0001C8
   03       05      0C     000310
   03       05      0C     000458
   03       05      0C     0005A0
   03       05      0C     0006E8
   03       05      0C     000830
   03       05      0C     000978
   03       05      0C     000AC0
   03       05      0C     000C08
   03       05      0C     000D50
   03       05      0C     000E98
   03       05      0C     000FE0
   03       05      0C     001128
   03       05      0C     001270
   03       05      0C     0013B8
   03       05      0C     001500
   03       05      0C     001648
   03       05      0C     001790
   03       05      0C     0018D8
   03       05      0C     001A20
   03       05      0C     001B68
   03       05      0C     001CB0
   03       05      0C     001DF8
   03       05      0C     001F40
   03       05      0C     002088
   03       05      0C     0021D0
   03       05      0C     002318
   03       05      0C     002460
   03       05      0C     0025A8
   03       05      0C     0026F0
   03       05      0C     002838
   03       06      0C     0000F4
   03       06      0C     00023C
   03       06      0C     000384
   03       06      0C     0004CC
   03       06      0C     000614
   03       06      0C     00075C
   03       06      0C     0008A4
   03       06      0C     0009EC
                                                 RELOCATION DICTIONARY                                          PAGE  14


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       06      0C     000B34
   03       06      0C     000C7C
   03       06      0C     000DC4
   03       06      0C     000F0C
   03       06      0C     001054
   03       06      0C     00119C
   03       06      0C     0012E4
   03       06      0C     00142C
   03       06      0C     001574
   03       06      0C     0016BC
   03       06      0C     001804
   03       06      0C     00194C
   03       06      0C     001A94
   03       06      0C     001BDC
   03       06      0C     001D24
   03       06      0C     001E6C
   03       06      0C     001FB4
   03       06      0C     0020FC
   03       06      0C     002244
   03       06      0C     00238C
   03       06      0C     0024D4
   03       06      0C     00261C
   03       06      0C     002764
   03       06      0C     0028AC
   03       07      0C     002B04
   03       08      0C     002B38
   03       09      0C     002B8C
   03       0A      0C     002B98
   03       0B      0C     002C04
   03       0C      1C     00BCB4
   03       0D      1C     00BCA0
   03       0E      1C     00BCA4
   03       0F      1C     00BCA8
   03       10      1C     00BCAC
   03       11      1C     00BCB8
   03       12      1C     00BCBC
   03       13      1C     00BCC0
   03       14      1C     00BCC4
   03       15      1C     00BCC8
   03       16      1C     00BCCC
   03       17      1C     00BCD4
   03       18      1C     00BCDC
   03       18      1C     00BD34
   03       19      1C     00BCE0
   03       1A      1C     00BCE4
   03       1B      1C     00BCF4
   03       1C      1C     00BCF8
   03       1D      1C     00BCFC
   03       1E      1C     00BD04
   03       1F      1C     00BD08
   03       20      1C     00BD0C
   03       21      1C     00BD10
   03       22      18     00BD15
   03       23      1C     00BD18
   03       24      1C     00BD1C
                                                 RELOCATION DICTIONARY                                          PAGE  15


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   03       25      1C     00BD24
   03       26      1C     00BD28
   03       27      1C     00BD2C
   03       28      1C     00BD30
   03       29      1C     00BD38
   03       2A      1C     00BD40
   03       2B      1C     00BD50
   03       2C      1C     00BD58
   03       2D      1C     00BD5C
   03       2E      1C     00BD68
   03       2F      1C     00BD78
   03       30      1C     00BD7C
   03       31      1C     00BD88
   03       32      18     00BD8D
   03       33      18     00BDA5
   03       34      18     00BDAD
   03       35      18     00BDB1
   03       36      0C     00BDB8
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CCW1     00001 002F40 02941   2935  2946
CCW10    00001 0055C8 03184   3178  3189
CCW11    00001 005A10 03211   3205  3216
CCW12    00001 005E58 03238   3232  3243
CCW13    00001 0062A0 03265   3259  3270
CCW14    00001 0066E8 03292   3286  3297
CCW15    00001 006B30 03319   3313  3324
CCW16    00001 006F78 03346   3340  3351
CCW17    00001 0073C0 03373   3367  3378
CCW18    00001 007808 03400   3394  3405
CCW19    00001 007C50 03427   3421  3432
CCW2     00001 003388 02968   2962  2973
CCW20    00001 008098 03454   3448  3459
CCW21    00001 0084E0 03481   3475  3486
CCW22    00001 008928 03508   3502  3513
CCW23    00001 008D70 03535   3529  3540
CCW24    00001 0091B8 03562   3556  3567
CCW25    00001 009600 03589   3583  3594
CCW26    00001 009A48 03616   3610  3621
CCW27    00001 009E90 03643   3637  3648
CCW28    00001 00A2D8 03670   3664  3675
CCW29    00001 00A720 03697   3691  3702
CCW3     00001 0037D0 02995   2989  3000
CCW30    00001 00AB68 03724   3718  3729
CCW31    00001 00AFB0 03751   3745  3756
CCW32    00001 00B3F8 03778   3772  3783
CCW4     00001 003C18 03022   3016  3027
CCW5     00001 004060 03049   3043  3054
CCW6     00001 0044A8 03076   3070  3081
CCW7     00001 0048F0 03103   3097  3108
CCW8     00001 004D38 03130   3124  3135
CCW9     00001 005180 03157   3151  3162
CVTABEND 00004 00BD68 03993
CVTAPR   00001 000040 03956
CVTAQAVT 00004 00BD90 04026
CVTASCII 00001 000002 03963
CVTATTCH 00001 000008 03961
CVTBRET  00002 00BCF2 03917
CVTBTERM 00004 00BCD4 03906
CVTBUF   00004 00BCB0 03889
CVTCCH   00001 000080 03955
CVTCHPTR 00001 000008 03973
CVTCMT   00003 00BD8D 04023
CVTCRTTR 00003 00BD58 03971   3984
CVTCUCB  00004 00BD04 03923
CVTDAR   00004 00BCE8 03913
CVTDATA  00001 000002 03977
CVTDATE  00004 00BCD8 03907
CVTDCB   00001 00BD14 03929
CVTDCBA  00003 00BD15 03934
CVTDDR   00001 000020 03958
CVTDMSR  00004 00BDB0 04054
CVTDMSRA 00003 00BDB1 04056
CVTEXIT  00002 00BCF0 03916
CVTEXT1  00004 00BD9C 04043
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTFACHN 00004 00BDB4 04072
CVTFBOSV 00004 00BD24 03938
CVTFORM  00001 000008 04020
CVTGTF   00004 00BD8C 04011
CVTGTFS  00001 0000C0 04013
CVTGTFST 00001 00BD8C 04012
CVTHEAD  00004 00BD40 03946
CVTHIAR  00001 000004 03962
CVTIERLC 00004 00BD30 03941
CVTILCH  00004 00BD2C 03940
CVTILK1  00004 00BCC4 03898
CVTILK2  00004 00BCC8 03900
CVTIOQET 00004 00BD18 03935
CVTIXAVL 00004 00BD1C 03936
CVTJOB   00004 00BCAC 03888
CVTLINK  00004 00BCA8 03887
CVTLNKSC 00002 00BD76 04001
CVTMCTYP 00001 000002 04022
CVTMDLDS 00004 00BD70 03999
CVTMODE  00001 000010 04019
CVTMPCVT 00004 00BD60 03991
CVTMSER  00004 00BD34 03942
CVTMSLT  00004 00BCDC 03908
CVTMZ00  00004 00BD44 03947
CVTNIP   00001 000010 03960
CVTNUCB  00004 00BD20 03937
CVTOPTA  00001 00BD56 03954
CVTOPTB  00001 00BD57 03965
CVTPATCH 00004 00BD7C 04003
CVTPBLDL 00004 00BCFC 03921
CVTPCNVT 00004 00BCBC 03894
CVTPRLTV 00004 00BCC0 03896
CVTPROT  00001 000080 03966
CVTPTR   00001 000010 03877
CVTPURG  00004 00BDA4 04046
CVTPURGA 00003 00BDA5 04048
CVTQABST 00002 00BD74 04000
CVTQCDSR 00004 00BD58 03986
CVTQLPAQ 00004 00BD5C 03987
CVTQMSG  00004 00BDAC 04050
CVTQMSGA 00003 00BDAD 04052
CVTQMWR  00004 00BD50 03951
CVTQOCR  00004 00BD4C 03949
CVTQTD00 00004 00BD0C 03926
CVTQTE00 00004 00BD08 03924
CVTRELNO 00003 00BC9C 03869
CVTRMS   00004 00BD80 04004
CVTSJQ   00004 00BD00 03922
CVTSMCA  00004 00BD64 03992
CVTSNCTR 00002 00BD54 03953
CVTSTATE 00001 000020 04018
CVTSTB   00004 00BD10 03928
CVTSTEPR 00001 000004 03975
CVTSTUSA 00001 00BD5B 03972
CVTSVDCB 00004 00BCF4 03918
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTSYSAD 00004 00BCD0 03904
CVTTCBP  00004 00BCA0 03884
CVTTCMFG 00001 00BD90 04024
CVTTCRDY 00001 000080 04025
CVTTOD   00001 000020 03967
CVTTPC   00004 00BCF8 03919
CVTTRMTB 00004 00BD3C 03945
CVTTSCE  00004 00BD78 04002
CVTTSCVB 00003 00BD85 04009
CVTTSCVT 00004 00BD84 04006
CVTTSFLG 00001 00BD84 04007
CVTTSRDY 00001 000080 04008
CVTUSER  00004 00BD6C 03995
CVTUSR   00001 000004 04021
CVTVOLF2 00001 00BD94 04033
CVTVOLI2 00001 000080 04035
CVTVOLM2 00004 00BD94 04031
CVTVOLT2 00003 00BD95 04036
CVTXAPG  00004 00BCB4 03891
CVTXITP  00004 00BCE4 03912
CVTXPFP  00001 000001 03964
CVTXTLER 00004 00BCCC 03902
CVTXTNT1 00001 00BDB4 04070   4043
CVTZDTAB 00004 00BCE0 03911
CVT0DS   00004 00BD28 03939
CVT0EF00 00004 00BCA4 03885
CVT0FN00 00004 00BCEC 03915
CVT0PT01 00004 00BD38 03944
CVT0SCR1 00004 00BD88 04010
CVT0VL00 00004 00BCB8 03892
CVT1EF00 00004 00BD48 03948
CVT1SSS  00001 000040 03930
CVT2SPS  00001 000020 03931
CVT4MPS  00001 000004 03933
CVT4MS1  00001 000010 03932
DDRDEB   00001 000000 02605   2614
DDRRB    00008 002BF0 02682   2604
ECB1     00004 002F58 02952   2932
ECB10    00004 0055E0 03195   3175
ECB11    00004 005A28 03222   3202
ECB12    00004 005E70 03249   3229
ECB13    00004 0062B8 03276   3256
ECB14    00004 006700 03303   3283
ECB15    00004 006B48 03330   3310
ECB16    00004 006F90 03357   3337
ECB17    00004 0073D8 03384   3364
ECB18    00004 007820 03411   3391
ECB19    00004 007C68 03438   3418
ECB2     00004 0033A0 02979   2959
ECB20    00004 0080B0 03465   3445
ECB21    00004 0084F8 03492   3472
ECB22    00004 008940 03519   3499
ECB23    00004 008D88 03546   3526
ECB24    00004 0091D0 03573   3553
ECB25    00004 009618 03600   3580
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ECB26    00004 009A60 03627   3607
ECB27    00004 009EA8 03654   3634
ECB28    00004 00A2F0 03681   3661
ECB29    00004 00A738 03708   3688
ECB3     00004 0037E8 03006   2986
ECB30    00004 00AB80 03735   3715
ECB31    00004 00AFC8 03762   3742
ECB32    00004 00B410 03789   3769
ECB4     00004 003C30 03033   3013
ECB5     00004 004078 03060   3040
ECB6     00004 0044C0 03087   3067
ECB7     00004 004908 03114   3094
ECB8     00004 004D50 03141   3121
ECB9     00004 005198 03168   3148
ERRCCW1  00001 00B840 03809   3803  3814
ERRCCW2  00001 00B848 03813
ERRCCW3  00001 00B850 03817
ERRECB   00004 00B858 03820   3800
ERRIOB   00001 00B818 03798
ERRSEEK  00004 00B838 03807   3810
IEACVT   00001 00BCA0 03882   0038  0114  0190  0266  0342  0418  0494  0570  0646  0722  0798  0874  0950  1026  1102
                              1178  1254  1330  1406  1482  1558  1634  1710  1786  1862  1938  2014  2090  2166  2242
                              2318  2394  2632  4080
IEAERRTA 00008 00B860 03824   3795  3818
IEAERTCB 00004 002920 02448   0010  2409  2485  2517
IEAERWA  00008 00B818 03797   3796
IEAHEAD  00008 000020 00017   0006
IEAMSTCB 00004 002C30 02686   0011  0057  0133  0209  0285  0361  0437  0513  0589  0665  0741  0817  0893  0969  1045
                              1121  1197  1273  1349  1425  1501  1577  1653  1729  1805  1881  1957  2033  2109  2185
                              2261  2337  2413  2487  2569  2647  2651  2723  2755
IEAQBK00 00001 000000 00005
IEAQLPAQ 00004 00BC68 03845   3832
IEAQTAQ  00008 002D10 02761   0045  0121  0197  0273  0349  0425  0501  0577  0653  0729  0805  0881  0957  1033  1109
                              1185  1261  1337  1413  1489  1565  1641  1717  1793  1869  1945  2021  2097  2173  2249
                              2325  2401  2475  2557  2639  2713  2759
IEAQTAQ1 00004 002F18 02924   2760
IEAQTR00 00001 000000 00008   0047  0123  0199  0275  0351  0427  0503  0579  0655  0731  0807  0883  0959  1035  1111
                              1187  1263  1339  1415  1491  1567  1643  1719  1795  1871  1947  2023  2099  2175  2251
                              2327  2403
IEAQTR04 00001 000000 00009   0084  0160  0236  0312  0388  0464  0540  0616  0692  0768  0844  0920  0996  1072  1148
                              1224  1300  1376  1452  1528  1604  1680  1756  1832  1908  1984  2060  2136  2212  2288
                              2364  2440
IEARCTRS 00004 00BDBC 04088   4086
IEAROICT 00002 00BDBC 04089   4086
IEAROIRB 00004 002A08 02526   2522
IEAROPRM 00004 00BDC4 04093   4087
IEAROQCT 00002 00BDBE 04090   4086
IEAROQUE 00004 00BDC0 04091   4086
IEAROTCB 00004 002A00 02524   2521
IEASVDCB 00001 00BC38 03844   3841
IEATCB1  00004 000020 00018   0013  0039  0055  0087  2768
IEATCB10 00004 000BA8 00702   0661  0697  0723  0739  0771  2813
IEATCB11 00004 000CF0 00778   0737  0773  0799  0815  0847  2818
IEATCB12 00004 000E38 00854   0813  0849  0875  0891  0923  2823
IEATCB13 00004 000F80 00930   0889  0925  0951  0967  0999  2828
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEATCB14 00004 0010C8 01006   0965  1001  1027  1043  1075  2833
IEATCB15 00004 001210 01082   1041  1077  1103  1119  1151  2838
IEATCB16 00004 001358 01158   1117  1153  1179  1195  1227  2843
IEATCB17 00004 0014A0 01234   1193  1229  1255  1271  1303  2848
IEATCB18 00004 0015E8 01310   1269  1305  1331  1347  1379  2853
IEATCB19 00004 001730 01386   1345  1381  1407  1423  1455  2858
IEATCB2  00004 000168 00094   0053  0089  0115  0131  0163  2773
IEATCB20 00004 001878 01462   1421  1457  1483  1499  1531  2863
IEATCB21 00004 0019C0 01538   1497  1533  1559  1575  1607  2868
IEATCB22 00004 001B08 01614   1573  1609  1635  1651  1683  2873
IEATCB23 00004 001C50 01690   1649  1685  1711  1727  1759  2878
IEATCB24 00004 001D98 01766   1725  1761  1787  1803  1835  2883
IEATCB25 00004 001EE0 01842   1801  1837  1863  1879  1911  2888
IEATCB26 00004 002028 01918   1877  1913  1939  1955  1987  2893
IEATCB27 00004 002170 01994   1953  1989  2015  2031  2063  2898
IEATCB28 00004 0022B8 02070   2029  2065  2091  2107  2139  2903
IEATCB29 00004 002400 02146   2105  2141  2167  2183  2215  2908
IEATCB3  00004 0002B0 00170   0129  0165  0191  0207  0239  2778
IEATCB30 00004 002548 02222   2181  2217  2243  2259  2291  2913
IEATCB31 00004 002690 02298   2257  2293  2319  2335  2367  2918
IEATCB32 00004 0027D8 02374   2333  2369  2395  2411  2443  2923
IEATCB4  00004 0003F8 00246   0205  0241  0267  0283  0315  2783
IEATCB5  00004 000540 00322   0281  0317  0343  0359  0391  2788
IEATCB6  00004 000688 00398   0357  0393  0419  0435  0467  2793
IEATCB7  00004 0007D0 00474   0433  0469  0495  0511  0543  2798
IEATCB8  00004 000918 00550   0509  0545  0571  0587  0619  2803
IEATCB9  00004 000A60 00626   0585  0621  0647  0663  0695  2808
IEATSCE  00008 00BC70 03851   3849
IEATSTQE 00008 00BC78 03855   3850
IEA0VL01 00001 000000 04081   4082
IECXAPG  00001 000000 03833
IEECVCTW 00001 000000 02589   2599
IEECVPRB 00008 002AF0 02591   2588
IEECVTCB 00004 002A30 02530   0012  2483  2567  2602
IEFLINK  00001 00BC34 03843   3842
IEWFTRAN 00001 000000 00007   0044  0120  0196  0272  0348  0424  0500  0576  0652  0728  0804  0880  0956  1032  1108
                              1184  1260  1336  1412  1488  1564  1640  1716  1792  1868  1944  2020  2096  2172  2248
                              2324  2400
IGFDDRSR 00001 000000 00004   2644
IGFDDR01 00001 000000 00003   2641
IGFRMTCB 00004 002B30 02612   2565  2603  2633  2649  2681  2726
IGF201   00001 000000 02606   2640
IORMSSVC 00001 000000 02608   2678
IORMSWT  00001 000000 02607   2643
LINKDCB  00001 00BC34 03836   3830  3843
RB1      00008 0000E0 00076   0018  0040
RB10     00008 000C68 00760   0702  0724
RB11     00008 000DB0 00836   0778  0800
RB12     00008 000EF8 00912   0854  0876
RB13     00008 001040 00988   0930  0952
RB14     00008 001188 01064   1006  1028
RB15     00008 0012D0 01140   1082  1104
RB16     00008 001418 01216   1158  1180
RB17     00008 001560 01292   1234  1256
RB18     00008 0016A8 01368   1310  1332
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RB19     00008 0017F0 01444   1386  1408
RB2      00008 000228 00152   0094  0116
RB20     00008 001938 01520   1462  1484
RB21     00008 001A80 01596   1538  1560
RB22     00008 001BC8 01672   1614  1636
RB23     00008 001D10 01748   1690  1712
RB24     00008 001E58 01824   1766  1788
RB25     00008 001FA0 01900   1842  1864
RB26     00008 0020E8 01976   1918  1940
RB27     00008 002230 02052   1994  2016
RB28     00008 002378 02128   2070  2092
RB29     00008 0024C0 02204   2146  2168
RB3      00008 000370 00228   0170  0192
RB30     00008 002608 02280   2222  2244
RB31     00008 002750 02356   2298  2320
RB32     00008 002898 02432   2374  2396
RB34     00008 0029E0 02506   2448
RB35     00008 002AF0 02590   2530  2591
RB36     00008 002BF0 02670   2612  2634  2682
RB38     00008 002CF0 02744   2686
RB4      00008 0004B8 00304   0246  0268
RB5      00008 000600 00380   0322  0344
RB6      00008 000748 00456   0398  0420
RB7      00008 000890 00532   0474  0496
RB8      00008 0009D8 00608   0550  0572
RB9      00008 000B20 00684   0626  0648
SEEK1    00004 002F38 02939   2942
SEEK10   00004 0055C0 03182   3185
SEEK11   00004 005A08 03209   3212
SEEK12   00004 005E50 03236   3239
SEEK13   00004 006298 03263   3266
SEEK14   00004 0066E0 03290   3293
SEEK15   00004 006B28 03317   3320
SEEK16   00004 006F70 03344   3347
SEEK17   00004 0073B8 03371   3374
SEEK18   00004 007800 03398   3401
SEEK19   00004 007C48 03425   3428
SEEK2    00004 003380 02966   2969
SEEK20   00004 008090 03452   3455
SEEK21   00004 0084D8 03479   3482
SEEK22   00004 008920 03506   3509
SEEK23   00004 008D68 03533   3536
SEEK24   00004 0091B0 03560   3563
SEEK25   00004 0095F8 03587   3590
SEEK26   00004 009A40 03614   3617
SEEK27   00004 009E88 03641   3644
SEEK28   00004 00A2D0 03668   3671
SEEK29   00004 00A718 03695   3698
SEEK3    00004 0037C8 02993   2996
SEEK30   00004 00AB60 03722   3725
SEEK31   00004 00AFA8 03749   3752
SEEK32   00004 00B3F0 03776   3779
SEEK4    00004 003C10 03020   3023
SEEK5    00004 004058 03047   3050
SEEK6    00004 0044A0 03074   3077
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SEEK7    00004 0048E8 03101   3104
SEEK8    00004 004D30 03128   3131
SEEK9    00004 005178 03155   3158
SVCDCB   00001 00BC38 03838   2936  2963  2990  3017  3044  3071  3098  3125  3152  3179  3206  3233  3260  3287  3314
                              3341  3368  3395  3422  3449  3476  3503  3530  3557  3584  3611  3638  3665  3692  3719
                              3746  3773  3804  3831  3844
TACT1    00001 002D18 02764   0037
TACT10   00001 002DA8 02809   0721
TACT11   00001 002DB8 02814   0797
TACT12   00001 002DC8 02819   0873
TACT13   00001 002DD8 02824   0949
TACT14   00001 002DE8 02829   1025
TACT15   00001 002DF8 02834   1101
TACT16   00001 002E08 02839   1177
TACT17   00001 002E18 02844   1253
TACT18   00001 002E28 02849   1329
TACT19   00001 002E38 02854   1405
TACT2    00001 002D28 02769   0113
TACT20   00001 002E48 02859   1481
TACT21   00001 002E58 02864   1557
TACT22   00001 002E68 02869   1633
TACT23   00001 002E78 02874   1709
TACT24   00001 002E88 02879   1785
TACT25   00001 002E98 02884   1861
TACT26   00001 002EA8 02889   1937
TACT27   00001 002EB8 02894   2013
TACT28   00001 002EC8 02899   2089
TACT29   00001 002ED8 02904   2165
TACT3    00001 002D38 02774   0189
TACT30   00001 002EE8 02909   2241
TACT31   00001 002EF8 02914   2317
TACT32   00001 002F08 02919   2393
TACT4    00001 002D48 02779   0265
TACT5    00001 002D58 02784   0341
TACT6    00001 002D68 02789   0417
TACT7    00001 002D78 02794   0493
TACT8    00001 002D88 02799   0569
TACT9    00001 002D98 02804   0645
TAIOB1   00008 002F18 02929   0042  2928
TAIOB10  00008 0055A0 03172   0726  3171
TAIOB11  00008 0059E8 03199   0802  3198
TAIOB12  00008 005E30 03226   0878  3225
TAIOB13  00008 006278 03253   0954  3252
TAIOB14  00008 0066C0 03280   1030  3279
TAIOB15  00008 006B08 03307   1106  3306
TAIOB16  00008 006F50 03334   1182  3333
TAIOB17  00008 007398 03361   1258  3360
TAIOB18  00008 0077E0 03388   1334  3387
TAIOB19  00008 007C28 03415   1410  3414
TAIOB2   00008 003360 02956   0118  2955
TAIOB20  00008 008070 03442   1486  3441
TAIOB21  00008 0084B8 03469   1562  3468
TAIOB22  00008 008900 03496   1638  3495
TAIOB23  00008 008D48 03523   1714  3522
TAIOB24  00008 009190 03550   1790  3549
                                             CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TAIOB25  00008 0095D8 03577   1866  3576
TAIOB26  00008 009A20 03604   1942  3603
TAIOB27  00008 009E68 03631   2018  3630
TAIOB28  00008 00A2B0 03658   2094  3657
TAIOB29  00008 00A6F8 03685   2170  3684
TAIOB3   00008 0037A8 02983   0194  2982
TAIOB30  00008 00AB40 03712   2246  3711
TAIOB31  00008 00AF88 03739   2322  3738
TAIOB32  00008 00B3D0 03766   2398  3765
TAIOB4   00008 003BF0 03010   0270  3009
TAIOB5   00008 004038 03037   0346  3036
TAIOB6   00008 004480 03064   0422  3063
TAIOB7   00008 0048C8 03091   0498  3090
TAIOB8   00008 004D10 03118   0574  3117
TAIOB9   00008 005158 03145   0650  3144
TQEBLNK  00003 00BC81 03861
TQEFLNK  00003 00BC7D 03859
TQEVAL   00004 00BC84 03862
TRAREA1  00008 002F60 02954   2765  2950
TRAREA10 00008 0055E8 03197   2810  3193
TRAREA11 00008 005A30 03224   2815  3220
TRAREA12 00008 005E78 03251   2820  3247
TRAREA13 00008 0062C0 03278   2825  3274
TRAREA14 00008 006708 03305   2830  3301
TRAREA15 00008 006B50 03332   2835  3328
TRAREA16 00008 006F98 03359   2840  3355
TRAREA17 00008 0073E0 03386   2845  3382
TRAREA18 00008 007828 03413   2850  3409
TRAREA19 00008 007C70 03440   2855  3436
TRAREA2  00008 0033A8 02981   2770  2977
TRAREA20 00008 0080B8 03467   2860  3463
TRAREA21 00008 008500 03494   2865  3490
TRAREA22 00008 008948 03521   2870  3517
TRAREA23 00008 008D90 03548   2875  3544
TRAREA24 00008 0091D8 03575   2880  3571
TRAREA25 00008 009620 03602   2885  3598
TRAREA26 00008 009A68 03629   2890  3625
TRAREA27 00008 009EB0 03656   2895  3652
TRAREA28 00008 00A2F8 03683   2900  3679
TRAREA29 00008 00A740 03710   2905  3706
TRAREA3  00008 0037F0 03008   2775  3004
TRAREA30 00008 00AB88 03737   2910  3733
TRAREA31 00008 00AFD0 03764   2915  3760
TRAREA32 00008 00B418 03791   2920  3787
TRAREA4  00008 003C38 03035   2780  3031
TRAREA5  00008 004080 03062   2785  3058
TRAREA6  00008 0044C8 03089   2790  3085
TRAREA7  00008 004910 03116   2795  3112
TRAREA8  00008 004D58 03143   2800  3139
TRAREA9  00008 0051A0 03170   2805  3166
TSTQE    00001 00BC78 03856
                                                      DIAGNOSTICS                                             PAGE     1


                                                                                                                 8/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =    15      SOURCE RECORDS (SYSLIB) =  1068
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 5652 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM8.R0000105       SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM8.S0000106       SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM8.S0000106       DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG9     / START 78240.1945
IEF374I STEP /SG9     / STOP  78240.1945 CPU   0MIN 01.98SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:00.36   ALLOC START    19:45:00.37   MAIN REGION ----- 300K                          *
*   STEP NAME SG9        STEP END TIME  19:45:03.31   PGM START TIME 19:45:00.45   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.95   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:01.98   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 31       0250 ------------ 0       0250 ------------ 0       0151 ---------- 173       0151 ---------- 133    *
*   0151 ---------- 259       0130 ---------- 707       0151 --------- 1083       0130 ----------- 17                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM8  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:03.34   ALLOC START    19:45:03.36   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:03.39   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM8  / START 78240.1945
IEF376I  JOB /R21AM8  / STOP  78240.1945 CPU   0MIN 01.98SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM8     JOB READ TIME 19:44:48.79   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.98   *
*   JOB CLASS A          JOB INIT TIME 19:45:00.36   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:03.04   *
*   ACCOUNT              JOB END TIME  19:45:03.40   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   9999999                                        A
            RRRRRRRRR  222222222      11        AAA     MM     MM  999999999                                      AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  99     99                                     AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM  99     99                                    AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM  999999999                                   AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM   9999999                                    AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM       99                                     AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM      99                                      AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM     99                                       AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    99                                        AA     AA

***********A  START   R21AM9     SYS SYSA   WTR 00E   07:46:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM9     START  A***********
***********A  START   R21AM9     SYS SYSA   WTR 00E   07:46:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM9     START  A***********
***********A  START   R21AM9     SYS SYSA   WTR 00E   07:46:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM9     START  A***********
***********A  START   R21AM9     SYS SYSA   WTR 00E   07:46:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM9     START  A***********
***********A  START   R21AM9     SYS SYSA   WTR 00E   07:46:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM9     START  A***********


//R21AM9 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG10 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IGC018)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM9   SG10
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IGC018    SD  01 000000 000556
SVC018    LD     000000         01
IECPBLDL  LD     000110         01
IEA0IO02  ER  02
IEATCBP   ER  03
IEFLINK   ER  04
IEASVDCB  ER  05
IECPRLTV  LD     0003C0         01
IECPCNVT  LD     000446         01
QMRDEB    ER  06
QMHPT     ER  07
IECZDTAB  LD     00051C         01
IEC0SCR1  SD  08 000558 00009E
IEFQCNVT  ER  09
IEFQCNVT  SD  0A 0005F8 0000B0
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  SGIEC0DT NO,YES,1,TYPE=(1,0,0,0,0,0,0,1,1)
                                      3+*          RELEASE 21 DELETIONS/CHANGES
                                      4+*                                                               SA60740
                                      5+*                                                               SA63933
                                      6+*                                                               SA62451
                                      7+*                                                                SM0011
                                      8+* 1195
                                      9+* 119456,120600,125600,126200,126400,126600,138800,141600,144800,S20201
                                     10+* 146200,146400,146800,149200-150000,165000-165200,S20201
                                     11+* 167400,167800-169700,169800
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     13+*FUNCTION - THIS RESIDENT MODULE SEARCHES A DIRECTORY OF A PARTITIONED
                                     14+*           ORGANIZATION DATA SET FOR A NAME OR LIST OF NAMES, AND
                                     15+*           RETURNS INFORMATION STORED IN THE DIRECTORY ASSOCIATED WITH
                                     16+*           EACH NAME. THE FORMAT OF THE DIRECTORY AND OF THE RETURNED
                                     17+*           INFORMATION IS DESCRIBED IN THE PUBLICATION          A25998
                                     18+*           'SUPERVISOR AND DATA MANAGEMENT SERVICES' UNDER      A25998
                                     19+*           THE HEADING 'PROCESSING A PARTITIONED DATA SET'.     A25998
                                     20+*
                                     21+*           THIS MODULE ALSO CONTAINS ENTRY POINTS TO ROUTINES WHICH
                                     22+*           CONVERT AN ABSOLUTE DIRECT ACCESS ADDRESS, MBBCCHHR, TO AND
                                     23+*           FROM ITS RELATIVE EQUIVALENT, TTR.
                                     24+*
                                     25+*ENTRY POINTS --
                                     26+*              IGC018   -ENTERED FROM SVC SUPERVISOR AFTER MAINLINE
                                     27+*                        CODE ISSUES  SVC 18 IN A CALLING SEQUENCE
                                     28+*                        GENERATED BY ONE OF THE FOLLOWING MACROS--
                                     29+*
                                     30+*                             FIND  DCBADDR,NAMEADDR        FIND MACRO
                                     31+*
                                     32+*                             LA    0,NAMEADDR                       GN
                                     33+*                             LA    1,DCBADDR                        GN
                                     34+*                             LCR   1,1                              GN
                                     35+*                             SVC   18                           A25998
                                     36+*
                                     37+*                             BLDL  DCBADDR,LISTADDR        BLDL MACRO
                                     38+*
                                     39+*                             LA    0,LISTADDR                       GN
                                     40+*                             LA    1,DCBADDR                        GN
                                     41+*                             SVC   18                               GN
                                     42+*
                                     43+*              IECPBLDL -ENTRY VIA A BALR IN ORDER TO BYPASS SVC ENTRY
                                     44+*                        TO BLDL AND IN ORDER TO SUPPLY A WORKAREA TO
                                     45+*                        BLDL. NOTE-- THIS ENTRY CAN ONLY BE     A25998
                                     46+*                        USED BY PROGRAMS OPERATING IN THE       A25998
                                     47+*                        'SUPERVISOR' STATE. REGISTER CONVEN-    A25998
                                     48+*                        TIONS UPON ENTRY AND UPON EXIT ARE      A25998
                                     49+*                        AS FOLLOWS--                            A25998
                                     50+*
                                     51+*                           REGISTER         ENTRY             EXIT
                                     52+*                             0          BLDL LIST ADDRESS  DESTROYED
                                     53+*                             1          DCB ADDRESS        DESTROYED
                                     54+*                             2-12       IGNORED            DESTROYED
                                     55+*                             13         400 BYTE           TRANSPARENT
                                     56+*                                          WORKAREA ADDRESS
                                     57+*                             14         RETURN ADDRESS     TRANSPARENT
                                     58+*                             15         IGNORED            ERROR CODE
                                     59+*
                                     60+*              IECPRLTV -ENTRY TO ROUTINE VIA A BALR THAT CONVERTS AN
                                     61+*                        ABSOLUTE DIRECT ACCESS ADDRESS, MBBCCHHR, INTO
                                     62+*                        ITS RELATIVE EQUIVALENT, TTR0. REGISTER
                                     63+*                        CONVENTIONS UPON ENTRY AND UPON EXIT ARE AS
                                     64+*                        FOLLOWS--
                                     65+*
                                     66+*                           REGISTER         ENTRY             EXIT
                                     67+*                             0          IGNORED            TTR0 RESULT
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     68+*                             1          DEB ADDRESS        TRANSPARENT
                                     69+*                             2          ADDRESS OF         TRANSPARENT
                                     70+*                                          MBBCCHHR IN CORE
                                     71+*                             3-8        IGNORED            TRANSPARENT
                                     72+*                             9-13       IGNORED            DESTROYED
                                     73+*                             14         RETURN ADDRESS     TRANSPARENT
                                     74+*                             15         ENTRY ADDRESS      ZERO
                                     75+*
                                     76+*              IECPCNVT -ENTRY TO ROUTINE VIA A BALR THAT CONVERTS A
                                     77+*                        RELATIVE DIRECT ACCESS ADDRESS AND
                                     78+*                        CONCATENATION NUMBER, TTRN, INTO ITS ABSOLUTE
                                     79+*                        EQUIVALENT, MBBCCHHR. REGISTER CONVENTIONS
                                     80+*                        UPON ENTRY AND UPON EXIT ARE AS FOLLOWS--
                                     81+*
                                     82+*                           REGISTER         ENTRY             EXIT
                                     83+*                             0          ACTUAL TTRN        DESTROYED
                                     84+*                             1          DEB ADDRESS        TRANSPARENT
                                     85+*                             2          ADDRESS OF 8 BYTE  TRANSPARENT
                                     86+*                                          AREA FOR MBBCCHHR
                                     87+*                             3-8        IGNORED            TRANSPARENT
                                     88+*                             9-13       IGNORED            DESTROYED
                                     89+*                             14         RETURN ADDRESS     TRANSPARENT
                                     90+*                             15         ENTRY ADDRESS      ERROR CODE
                                     91+*
                                     92+*                        THE ERROR CODE FOR IECPCNVT WILL BE 0 FOR
                                     93+*                        SUCCESSFUL CONVERSION, OR 4 IF VALUE OF TT
                                     94+*                        EXCEEDS TOTAL EXTENTS ASSIGNED.
                                     95+*
                                     96+*INPUT  -THE BASIC INPUTS TO IGC018 ARE DESCRIBED ABOVE UNDER    A25998
                                     97+*        'ENTRY POINTS'. IN ADDITION, THE SVC SUPERVISOR WILL    A25998
                                     98+*        PROVIDE THE FOLLOWING INPUTS--                          A25998
                                     99+*                                                                A25998
                                    100+*           REGISTER                CONTENTS                     A25998
                                    101+*              3     COMMUNICATIONS VECTOR TABLE (CVT) ADDRESS   A25998
                                    102+*              4     TASK CONTROL BLOCK (TCB) ADDRESS OF THE     A25998
                                    103+*                      TASK THAT CALLED THIS SVC ROUTINE         A25998
                                    104+*              5     SUPERVISOR REQUEST BLOCK (SVRB) ADDRESS     A25998
                                    105+*                      FOR THIS SVC ROUTINE                      A25998
                                    106+*                                                                A25998
                                    107+*
                                    108+*       -INPUT TO IECPBLDL IS AS DESCRIBED ABOVE UNDER ENTRY POINTS.
                                    109+*        THE BLDL LIST HAS THE SAME FORMAT AS WHEN EXECUTING THE MACRO
                                    110+*        WITH THE FOLLOWING ADDITION-- IF THE NUMBER OF FIELDS, FF, IS
                                    111+*        ZERO, IT REALLY MEANS ONE FIELD BUT THAT BLDL'S SEARCH IS TO
                                    112+*        START AT BLOCK IDENTIFIED BY TTR0 IMMEDIATELY FOLLOWING NAME
                                    113+*        IN LIST.
                                    114+*
                                    115+*       -INPUTS TO IECPRLTV AND IECPCNVT ARE DESCRIBED ABOVE UNDER
                                    116+*        ENTRY POINTS.
                                    117+*                                                                A25998
                                    118+*OUTPUT -OUTPUTS FROM IGC018 ARE DESCRIBED UNDER THE 'FIND'      A25998
                                    119+*        AND 'BLDL' MACROS IN THE PUBLICATION 'SUPERVISOR AND    A25998
                                    120+*        DATA MANAGEMENT MACRO INSTRUCTIONS'.                    A25998
                                    121+*
                                    122+*       -OUTPUT FROM IECPBLDL IS THE SAME AS FOR IGC018 ENTERED VIA
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    123+*        BLDL MACRO, WITH THE ADDITION THAT THE LAST DIRECTORY OR
                                    124+*        CATALOG BLOCK READ BY BLDL, ITS CCHHR, AND THE IOB AND CHANNEL
                                    125+*        PROGRAM USED TO READ IT APPEAR IN THE 400 BYTE WORKAREA
                                    126+*        DESCRIBED LATER IN THIS LISTING BY THE DSECT LABELED WORKAREA.
                                    127+*
                                    128+*       -OUTPUTS FROM IECPRLTV AND IECPCNVT ARE AS DESCRIBED ABOVE
                                    129+*        UNDER ENTRY POINTS.
                                    130+*
                                    131+*EXTERNAL ROUTINES -GETMAIN       -USED TO GET WORKAREA.
                                    132+*                   FREEMAIN      -USED TO FREE WORKAREA.
                                    133+*                   EXCP          -USED TO START CHANNEL PROGRAM FOR
                                    134+*                                  DIRECTORY SEARCH.
                                    135+*                   WAIT          -USED TO WAIT FOR CHANNEL PROGRAM TO
                                    136+*                                  COMPLETE.
                                    137+*EXITS  -EXITING CONDITIONS ARE DESCRIBED UNDER 'FIND' AND 'BLDL'
                                    138+*        MACROS IN CONTROL PROGRAM SERVICES MANUAL.
                                    139+*
                                    140+*TABLES AND WORKAREAS ARE DESCRIBED BY DSECTS LATER IN LISTING.
                                    141+*
                                    142+*ATTRIBUTES-   REENTRANT, PRIVILEGED, ENABLED
                                    143+*
                                    144+*
                                    145+*
                                    146+*
                                    147+*WORK AREA DEFINITION
000000                              148+WORKAREA DSECT
000000                              149+FIRST    DS    0D
000000                              150+RDAREA   DS    64F 256 BYTE READIN AREA
000100                              151+NEWCNT   DS    2F
000108                              152+CCW      DS    0D
000108                              153+CCW1     DS    D
000110                              154+CCW2     DS    D
000118                              155+CCW3     DS    D
000120                              156+CCW4     DS    D
000128                              157+CCW5     DS    D
000130                              158+CCW6     DS    D
000138                              159+ECB      DS    F
00013C                              160+IOB      DS    8F
00015C                              161+MBB      DS    C'MBB'
00015F                              162+CCHHR    DS    C'CCHHR'
000164                              163+ERCODE   DS    F
000168                              164+FNDLST1  DS    F
00016C                              165+FNDLST2  DS    CL8
000174                              166+FNDLST3  DS    F
000178                              167+REPSW    DS    X 'AVT REPLACED' INDICATOR      M4214
000179                              168+SAVEAVT  DS    3X SAVE AREA FOR USER'S AVT PT   A27543
000180                              169+LAST     DS    0D
                                    170+*
                                    171+*EQUATE STATEMENTS
                                    172+******
000001                              173+ONE      EQU   1 A27543
000003                              174+EXIT     EQU   3
000000                              175+C0       EQU   0 GENERAL CONSTANT 0
000001                              176+C1       EQU   1 GENERAL CONST 1
000002                              177+C2       EQU   2 GENERAL CONST 2
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000003                              178+C3       EQU   3 GENERAL CONST 3
000004                              179+C4       EQU   4 GENERAL CONST 4
000008                              180+C8       EQU   8 GENERAL CONST 8
000010                              181+KEY2321  EQU   16 KEYCONST FOR 2321
000040                              182+CVTZDTAB EQU   64 DEVICE TABLE ADDR IN CVT
000001                              183+REPAVT   EQU   X'01' INDICATES USER'S AVT REPLACED BY IOS' AVT   M4214
000002                              184+POMASK   EQU   X'02' MASK INDICATING PARTITIONED ORGANIZATION    A28189
00000F                              185+OUTMASK  EQU   X'0F' MASK INDICATING NOT INPUT PROCESSING        A28189
000010                              186+CVTPT    EQU   X'10' ABSOLUTE ADDRESS OF CVT POINTER             A27543
                                    187+*CONTROL BLOCK EQUATES
000028                              188+TCBJLB   EQU   40
000010                              189+UCBTYP   EQU   16 DEVICE TYPE DISPLACEMENT IN UCB
000002                              190+DVTHH    EQU   2
                                    191+******
                                    192+*        REGISTERS--
000000                              193+RGADDR   EQU   0
000001                              194+RGDCB    EQU   1
000002                              195+RGA      EQU   2
000003                              196+RGB      EQU   3
000004                              197+RGC      EQU   4
000005                              198+RGD      EQU   5
000006                              199+RGE      EQU   6
000007                              200+RGF      EQU   7
000008                              201+RGG      EQU   8
000009                              202+RGH      EQU   9
00000A                              203+RGI      EQU   10
00000B                              204+RGJ      EQU   11
00000C                              205+RGK      EQU   12
00000D                              206+RGAREA   EQU   13
00000E                              207+RGRET    EQU   14
00000F                              208+RGBASE   EQU   15
                                    209+*
                                    210+*CONVERT ROUTINES REGISTERS--
000000                              211+RGTTR    EQU   0
000001                              212+RGDEB    EQU   1
000002                              213+RGMBB    EQU   2
000009                              214+RGV      EQU   9
00000A                              215+RGW      EQU   10
00000B                              216+RGX      EQU   11
00000C                              217+RGY      EQU   12
00000D                              218+RGZ      EQU   13
                                    219+*
                                    220+*THE FOLLOWING EQUATES ARE FOR REGISTERS WITH WELL DEFINED ABSOLUTE
                                    221+*USAGE, AND FOR TEMPORARY WORK REGISTERS--
000000                              222+R0       EQU   0
000001                              223+R1       EQU   1
000002                              224+R2       EQU   2
000003                              225+R3       EQU   3
000004                              226+R4       EQU   4
000005                              227+R5       EQU   5
000006                              228+R6       EQU   6
000007                              229+R7       EQU   7
000008                              230+R8       EQU   8
000009                              231+R9       EQU   9
00000A                              232+R10      EQU   10
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00000B                              233+R11      EQU   11
00000C                              234+R12      EQU   12
00000D                              235+R13      EQU   13
00000E                              236+R14      EQU   14
00000F                              237+R15      EQU   15
                                    238+***********************************************************************
                                    239+*
                                    240+*CVT DEFINITION--                                                A27543
000000                              241+IHACVT   DSECT  A27543
000000                              242+         DS    5F A27543
000014                              243+CVTXAPG  DS    F ADDR OF IOS APPENDAGE TABLE    A27543
000018                              244+CVT0VL00 DS    F ADDR OF VALIDITY-CHECKING RTN  A27543
00001C                              245+         DS    48F A27543
                                    246+*                                                                A27543
                                    247+*************************                                        A27543
                                    248+*                                                                A27543
                                    249+*DCB DEFINITION--
000000                              250+IHADCB   DSECT
000000                              251+         DS    26X 13547
00001A                              252+DCBDSORG DS    H 13547
00001C                              253+         DS    16X 13547
00002C                              254+DCBDEBAD DS    F
000030                              255+         DS    36X
000054                              256+DCBPOINT DS    F
                                    257+*
                                    258+*************************                                        A27543
                                    259+*                                                                A27543
                                    260+*DEB DEFINITION--
000000                              261+IHADEB   DSECT
000000                              262+         DS    F
000004                              263+DEBAMLNG DS    X LENGTH OF DEB A/M SECTION      A28189
000005                              264+         DS    3X 5798
000008                              265+DEBOFLGS DS    X OPEN FLAGS                       5798
000009                              266+         DS    3X A28189
00000C                              267+DEBOPATB DS    X METHOD OF I/O PROCESSING       A28189
00000D                              268+         DS    3X A28189
000010                              269+DEBNMEXT DS    X
000011                              270+         DS    12X A27543
00001D                              271+DEBAPPAD DS    3X APPENDAGE VECTOR TABLE ADDRESS A27543
000020                              272+DEBDVMOD DS    F
000024                              273+DEBBINUM DS    H
000026                              274+DEBSTRCC DS    H
000028                              275+DEBSTRHH DS    H
00002A                              276+DEBENDCC DS    H
00002C                              277+DEBENDHH DS    H
00002E                              278+DEBNMTRK DS    H
                                    279+*                                                                A27543
                                    280+*************************                                        M4214
                                    281+*                                                                M4214
                                    282+*REQUEST BLOCK DEFINITION--                                      M4214
000000                              283+IHARB    DSECT  M4214
000000                              284+         DS    4F M4214
000010                              285+RBOPSW   DS    2F USER'S OLD PSW                M4214
000018                              286+         DS    F M4214
00001C                              287+RBLINK   DS    F ADDR OF NEXT RB OR THE TCB    M4214
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                              288+         DS    28F M4214
                                    289+*                                                                M4214
                                    290+**************************************************************** A27543
                                    291+*                                                                A27543
000000                              292+IGC018   CSECT
                                    293+*03051018,46400,119400                                             5798
                                    294+         ENTRY SVC018
000000                              295+SVC018   EQU   *
000000 05C0                         296+         BALR  RGK,0
000002                              297+         USING BASE1,RGK
000002 8000 C329      0032B         298+BASE1    SSM   G+1 ENABLE INTERRUPTS
000006 1820                         299+         LR    RGA,RGADDR SAVE LIST ADDRESS             A25998
000008 1231                         300+         LTR   RGB,RGDCB SAVE DCB ADDR, TST FOR 'FIND' A25998
00000A 4740 C072            00074   301+         BM    GETCORE BR IF 'FIND' TO GET WK AREA A25998
                                    302+*                                                                A25998
                                    303+***      TEST THE VALIDITY OF A USER-GENERATED 'BLDL' LIST       A25998
                                    304+*                                                                A25998
00000E 41F0 0004            00004   305+         LA    R15,4 LOAD 'BADLIST' ERROR CODE     A25998
000012 1B77                         306+         SR    R7,R7 INITLZ FOR ENTRIES TEST       A25998
000014 4972 0000            00000   307+         CH    R7,0(RGA) TEST FOR ZERO OR NEG ENTRIES, A25998
000018 47B0 C0DE            000E0   308+         BNL   A3 BR IF YES TO RETURN- ERROR  A25998
00001C 4870 C378            0037A   309+         LH    R7,TWELVE INITLZ FOR LENGTH TEST        M3385
000020 4972 0002            00002   310+         CH    R7,2(RGA) TEST FOR LESS THAN MIN LNG,   A25998
000024 4720 C0DE            000E0   311+         BH    A3 BR IF YES TO RETURN-ERROR M5729
000000                              312+         USING IHARB,R5 ESTABLISH RB REGISTER     M5729
000028 5870 501C            0001C   313+         L     R7,RBLINK GET LOC OF CALLER RB      M5729
                                    314+         DROP  R5 M5729
000000                              315+         USING IHARB,R7 ESTABLISH RB REGISTER     M5729
00002C 91F0 7011      00011         316+         TM    RBOPSW+1,X'F0' BR IF CALLER IS IN      SA63933
000030 4780 C072            00074   317+         BZ    GETCORE SUPERVISOR STATE         M5729
                                    318+*
                                    319+*
000034 4892 0000            00000   320+         LH    R9,0(RGA) LOAD NO. OF ENTRIES      P3845
000038 48A2 0002            00002   321+         LH    R10,2(RGA) LOAD ENTRY SIZE           P3845
00003C 1C8A                         322+         MR    R8,R10 FIND SIZE OF USER LIST    P3845
00003E 1288                         323+         LTR   R8,R8 TEST IF USER LIST TOO BIG P3845
000040 4770 C0DE            000E0   324+         BNZ   A3 BR IF YES-ERROR          P3845
000044 41A2 9002            00002   325+         LA    R10,2(RGA,R9) FIND HIGH LOC OF LIST     P3845
000048 4192 0002            00002   326+         LA    R9,2(RGA) SAVE LOC OF 1ST LIST ENT  P3845
00004C 8890 000B            0000B   327+         SRL   R9,11(0) GET SUB-POOL BOUNDARY     P3845
000050 8990 000B            0000B   328+         SLL   R9,11(0) OF LIST                   P3845
000054 4380 7011            00011   329+         IC    R8,RBOPSW+1 GET USER KEY              P3845
                                    330+         DROP  R7 P3845
000058 8880 0004            00004   331+         SRL   R8,4(0) ZERO AMWP AREA            P3845
00005C 8980 0004            00004   332+         SLL   R8,4(0) RESTORE   *               P3845
000060 1B77                         333+         SR    R7,R7 INIT REGISTER             P3845
000062 0979                         334+LOOP1    ISK   R7,R9 LOAD STORAGE KEY AND      P3845
000064 1978                         335+         CR    R7,R8 TEST IF LIST STILL       P3845
                                    336+*                                       WITHIN SAME KEY          P3845
000066 4770 C0DE            000E0   337+         BNE   A3 TAKE ERROR EXIT IF NO     P3845
00006A 4190 9800            00800   338+         LA    R9,2048(0,R9) POINT TO NEXT POOL BNDRY  P3845
00006E 199A                         339+         CR    R9,R10 TEST AND BR IF NOT BEYOND P3845
000070 47D0 C060            00062   340+         BNH   LOOP1 USER LIST AREA           P3845
000074                              341+GETCORE  EQU   * A25998
000074 4100 0180            00180   342+         LA    R0,LAST-FIRST SP=0, NO.OF BYTES
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000078 4510 C07A            0007C   343+         BAL   1,*+4 INDICATE GETMAIN
00007C 0A0A                         344+         SVC   10 ISSUE GETMAIN SVC
00007E 18D1                         345+         LR    RGAREA,R1
000000                              346+         USING WORKAREA,RGAREA
000080 D703 D178 D178 00178 00178   347+         XC    REPSW(4),REPSW SET AVT SW AND SAVE AREA TO 0 M4214
000086 1213                         348+         LTR   RGDCB,RGB
000088 47A0 C0E0            000E2   349+         BC    10,A2 Q. BLDL
00008C 1311                         350+         LCR   RGDCB,RGDCB
00008E D203 D168 C376 00168 00378   351+         MVC   FNDLST1,DC1 INIT BLDL LIST FOR FIND
000094 D207 D16C 2000 0016C 00000   352+         MVC   FNDLST2,0(RGA) MOVE NAME
00009A 4100 D168            00168   353+         LA    RGADDR,FNDLST1
00009E 45E0 C0EA            000EC   354+         BAL   RGRET,SYSTEST BRANCH TO EXECUTE 'BLDL'      M4214
                                    355+         DROP  RGK
0000A2                              356+         USING BASE2,RGRET
0000A2 12FF                         357+BASE2    LTR   R15,R15
0000A4 4720 E01A            000BC   358+         BP    A1 Q. ERROR ON BLDL
0000A8 181B                         359+         LR    R1,RGJ
000000                              360+         USING IHADCB,RGJ
0000AA D203 B000 D174 00000 00174   361+         MVC   IHADCB(4),FNDLST3 MOVE TO RELAD
0000B0 1801                         362+         LR    R0,R1 POINT TO RELAD
0000B2 58F0 B054            00054   363+         L     R15,DCBPOINT USE POINT ROUTINE
0000B6 45EF 0004            00004   364+         BAL   R14,4(R15)
0000BA 1BFF                         365+         SR    R15,R15 SET NO ERROR
0000C0                              366+         USING RESTORE,RGRET ESTABLISH NEW BASE ADDRESS    M4214
0000BC                              367+A1       EQU   * M4214
0000BC 182F                         368+         LR    RGA,R15 SAVE ERROR CODE               M4214
0000BE 05E0                         369+         BALR  RGRET,0 RE-INITIALIZE BASE REGISTER   M4214
0000C0                              370+RESTORE  EQU   * M4214
0000C0 9101 D178      00178         371+         TM    REPSW,REPAVT TEST FOR 'REPLACED AVT',      M4214
0000C4 4780 E012            000D2   372+         BZ    FREECORE BYPASS AVT RESTORE IF NOT   M4214
                                    373+*                                                                M3385
                                    374+***      RESTORE USER'S APPENDAGE VECTOR TABLE POINTER TO DEB    M3385
                                    375+***      PRIOR TO EXITING                                        M3385
                                    376+*                                                                M3385
0000C8 5890 B02C            0002C   377+         L     R9,DCBDEBAD GET DEB ADDRESS AND      M3385
000000                              378+         USING IHADEB,R9 USE IT AS BASE         M3385
0000CC D202 901D D179 0001D 00179   379+         MVC   DEBAPPAD(3),SAVEAVT RESTORE USER'S AVT PT    M3385
                                    380+         DROP  R9 DROP 'R9' AS DEB BASE    M3385
                                    381+*                                                                M3385
0000D2                              382+FREECORE EQU   *
0000D2 4100 0180            00180   383+         LA    R0,LAST-FIRST FREEMAIN BYTES
0000D6 181D                         384+         LR    1,RGAREA LOAD AREA ADDRESS
0000D8 4111 0000            00000   385+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
0000DC 0A0A                         386+         SVC   10 ISSUE FREEMAIN SVC         P2504
0000DE 18F2                         387+         LR    R15,RGA RESTORE ERROR CODE
0000E0                              388+A3       EQU   *
0000E0 0A03                         389+         SVC   EXIT
                                    390+*
                                    391+         DROP  RGRET
000002                              392+         USING BASE1,RGK
0000E2 41E0 C0BA            000BC   393+A2       LA    RGRET,A1 RETURN TO A1
0000E6 1802                         394+         LR    RGADDR,RGA RESTORE LIST ADDRESS
0000E8 4780 C10E            00110   395+         BZ    IECPBLDL BYPASS AVT SWAP IF 'BLDL' FOR M4214
                                    396+*                                    JOBLIB OR LINKLIB           M4214
0000EC                              397+SYSTEST  EQU   * M4214
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000EC 4111 0000            00000   398+         LA    R1,0(R1) CLEAR HIGH BYTE           SA62451
0000F0 5910 C38A            0038C   399+         C     R1,FINDSVC SVC LIB REQUEST?          SA62451
0000F4 4780 C10E            00110   400+         BE    IECPBLDL BYPASS AVT SWAP IF SO     SA62451
                                    401+*                                                                M4214
0000F8                              402+SWAPAVT  EQU   * M3385
                                    403+*                                                                M3385
                                    404+***      USE IOS' INSTEAD OF USER'S APPENDAGE VECTOR TABLE (AVT) M3385
                                    405+*                                                                M3385
                                    406+         DROP  RGJ DROP 'RGJ' AS DCB BASE,  M3385
000000                              407+         USING IHADCB,RGDCB USE 'RGDCB' INSTEAD    M3385
0000F8 9601 D178      00178         408+         OI    REPSW,REPAVT IND AVT HAS BEEN REPLACED     M4214
0000FC 5820 102C            0002C   409+         L     R2,DCBDEBAD GET DEB ADDRESS AND      M3385
000000                              410+         USING IHADEB,R2 USE IT AS A BASE       M3385
000100 D202 D179 201D 00179 0001D   411+         MVC   SAVEAVT(3),DEBAPPAD SAVE USER'S AVT POINTER  M3385
000106 5830 0010            00010   412+         L     R3,CVTPT GET CVT ADDRESS AND      M3385
000000                              413+         USING IHACVT,R3 USE IT AS A BASE       M3385
00010A D202 201D 3015 0001D 00015   414+         MVC   DEBAPPAD(3),CVTXAPG+ONE MOVE IOS AVT PT INTO DEB M3385
                                    415+         DROP  R2 DROP 'R2' AS DEB BASE    M3385
                                    416+         DROP  R3 DROP 'R3' AS CVT BASE    M3385
                                    417+         DROP  RGDCB DROP 'RGDCB' AS DCB BASE M3385
                                    418+*
                                    419+         ENTRY IECPBLDL THIS ENTRY POINT FOR BLDL TO BYPASS SVC
000110 05F0                         420+IECPBLDL BALR  RGBASE,0
000112                              421+         USING BASE3,RGBASE
000112 1B22                         422+BASE3    SR    RGA,RGA
000114 4110 1000            00000   423+         LA    RGDCB,0(,RGDCB) CLEAR TOP BYTE OF DCB    SM0029
000118 41D0 D000            00000   424+         LA    RGAREA,0(,RGAREA) CLEAR HI-ORDER BYTE
00011C 5020 D164            00164   425+         ST    RGA,ERCODE ERCODE, C.N., Z TO ZERO
000120 98BC F276            00388   426+         LM    RGJ,RGK,FINDLINK LOAD LINKLIB,SVCLIB DCB LOC
000124 19B1                         427+         CR    RGJ,RGDCB TEST FOR LINKLIB REQUEST
000126 4780 F038            0014A   428+         BE    INLINK IF LINKLIB,INDICATE SO
00012A 12B1                         429+NOLNKSVC LTR   RGJ,RGDCB RGJ HAS DCB ADDRESS
00012C 4720 F03C            0014E   430+         BP    BBBB1 Q. NOT LINKLIB OPTION
000130 9222 D167      00167         431+         MVI   ERCODE+3,X'22' Z=2 INDICATES JOBLIB      SM0011
000134 5820 F272            00384   432+         L     R2,FINDTCBP ADDR OF TCB POINTER
000138 5822 0004            00004   433+         L     R2,4(R2) TCB ADDR
00013C 58B2 0028            00028   434+         L     RGJ,TCBJLB(R2) JOBLIB DCB ADDR
000140 12BB                         435+         LTR   RGJ,RGJ
000142 4720 F03C            0014E   436+         BP    BBBB1 Q. JOBLIB ASSIGNED TO THIS TASK
000146 58B0 F276            00388   437+         L     RGJ,FINDLINK LINKLIB DCB ADDR
00014A 9201 D167      00167         438+INLINK   MVI   ERCODE+3,1 Z=1 INDICATE LINKLIB
00014E 18C0                         439+BBBB1    LR    RGK,RGADDR RGK POINTS TO FFLL
000150 906B D000            00000   440+         STM   6,11,RDAREA TEMP SAVE
                                    441+*                                                                A27543
                                    442+***      CONSTRUCT CHANNEL PROGRAM, ECB, AND IOB FOR READING     A27543
                                    443+***      DIRECTORY BLOCKS                                        A27543
                                    444+*                                                                A27543
000154 980B F27E            00390   445+         LM    R0,R11,CHANPROG MOVE AND RELOCATE CHAN PROG
000158 1E0D                         446+         ALR   R0,RGAREA
00015A 1E2D                         447+         ALR   R2,RGAREA
00015C 1A4D                         448+         AR    R4,RGAREA
00015E 1A8D                         449+         AR    R8,RGAREA
000160 1AAD                         450+         AR    R10,RGAREA
000162 900B D108            00108   451+         STM   R0,R11,CCW
000166 1B00                         452+         SR    R0,R0 ZERO ECB
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000168 4120 D138            00138   453+         LA    R2,ECB MOVE AND RELOCATE IOB
00016C 4150 D108            00108   454+         LA    R5,CCW
000170 1B88                         455+         SR    R8,R8 ZERO BLK INCR FIELD
000172 9008 D138            00138   456+         STM   R0,R8,ECB ECB AND IOB TO WORKAREA
000176 9202 D13C      0013C         457+         MVI   IOB,X'02' SET NON-RELATED FLAG
00017A 986B D000            00000   458+         LM    6,11,RDAREA RESTORE REGS
00017E 417C 0004            00004   459+         LA    RGF,4(RGK) SET TO FIRST ENTRY
000182 4A0C 0000            00000   460+         AH    0,0(RGK) PICKUP NO. OF FIELDS
000186 4780 F252            00364   461+         BZ    H Q. TTR START SUPPLIED
00018A 182C                         462+         LR    RGA,RGK INIT USERS LIST
00018C 9200 200E      0000E         463+BBB1     MVI   14(RGA),0 ZERO R FIELD
000190 4A2C 0002            00002   464+         AH    RGA,2(RGK) GO TO NEXT FIELD IN LIST
000194 4600 F07A            0018C   465+         BCT   0,BBB1 Q. ANOTHER FIELD
000198 488C 0000            00000   466+         LH    RGG,0(RGK) GET NO. OF ENTRIES
00019C 1B00                         467+BB1      SR    0,0 SET TTR START TO 000
00019E 4300 D166            00166   468+BB1A     IC    0,ERCODE+2 INSERT C.N.
000000                              469+         USING IHADCB,RGJ GET ADDRESSABILITY FOR DCB
0001A2 5810 B02C            0002C   470+BB2      L     1,DCBDEBAD
0001A6 4120 D15C            0015C   471+         LA    2,MBB FOR RESULT MBBCCHHR
0001AA 183D                         472+         LR    3,RGAREA
0001AC 90BF D000            00000   473+         STM   11,15,RDAREA SAVE VOLATILE REGISTERS
0001B0 41F0 F334            00446   474+         LA    15,IECPCNVT USE TTR CONVERT ROUTINE
0001B4 05EF                         475+         BALR  14,15
0001B6 12FF                         476+         LTR   R15,R15 WAS USER TTR VALID
0001B8 98BF 3000            00000   477+         LM    11,15,RDAREA-FIRST(3) RESTORE VOLATILE REGISTERS
0001BC 4770 F0EC            001FE   478+         BNZ   BADIO BRANCH IF INVALID TTR
0001C0 1897                         479+         LR    RGH,RGF POINT TO FIRST EMPTY ENTRY
0001C2 18A8                         480+         LR    RGI,RGG NO. OF ENTRIES REMAINING
0001C4 50B0 D150            00150   481+         ST    RGJ,IOB+20 DCB ADDR INTO IOB
0001C8 5A90 F296            003A8   482+         A     RGH,SKEH SEARCH CCW OP
0001CC 5090 D120            00120   483+B1       ST    RGH,CCW4 INIT SEARCH
0001D0 182F                         484+         LR    2,15 SAVE BASE
0001D2 4110 D13C            0013C   485+         LA    1,IOB LOAD PARAMETER REG 1
0001D6 0A00                         486+         SVC   0 ISSUE SVC FOR EXCP
                                    487+         DROP  RGBASE
000112                              488+         USING BASE3,2
0001D8 8000 2219      0032B         489+         SSM   G+1 ENABLE ALL INTERRUPTS           9688
0001DC 58F0 226E            00380   490+         L     15,PDVCON
0001E0 91F0 F001      00001         491+         TM    1(15),X'F0' TEST PSEUDO-DISABLE BYTE
0001E4 4710 20E0            001F2   492+         BO    WAITLOOP Q. P-D MODE, BYPASS WAIT
0001E8 4110 D138            00138   493+         LA    1,ECB LOAD PARAMETER REG 1
0001EC 4100 0001            00001   494+         LA    0,1(0,0) LOAD PARAMETER REG 0
0001F0 0A01                         495+         SVC   1 LINK TO WAIT ROUTINE
0001F2 9160 D138      00138         496+WAITLOOP TM    ECB,X'60' CHECK COMPLETE AND ERROR BITS
0001F6 4780 20E0            001F2   497+         BZ    WAITLOOP Q. NOT YET COMPLETE
0001FA 4710 20F2            00204   498+         BO    GOODIO CONTINUE IF NO ERRORS
0001FE 41F0 0008            00008   499+BADIO    LA    R15,8 GET I/O ERROR CODE
000202 07FE                         500+         BR    RGRET RETURN                   M3385
000204                              501+GOODIO   EQU   *
000204 18F2                         502+         LR    R15,R2 RESTORE BASE
                                    503+         DROP  R2
000112                              504+         USING BASE3,RGBASE
                                    505+*SCAN DIRECTORY BLOCK
000206 183D                         506+         LR    R3,RGAREA
000208 0630                         507+         BCTR  R3,0
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00020A 4A30 D000            00000   508+         AH    R3,RDAREA SET END ADDR-1
00020E 4110 D002            00002   509+         LA    R1,RDAREA+2 SET START ADDR
000212 4100 001F            0001F   510+         LA    R0,31 SET MASK FOR C BYTE
000216 D507 1000 9000 00000 00000   511+C        CLC   0(8,R1),0(RGH) COMPARE NAMES
00021C 4780 F12A            0023C   512+         BE    D Q. FOUND
000220 4720 F218            0032A   513+         BH    G Q. NOT IN THIS DIRECTORY SECTION
000224 4321 000B            0000B   514+         IC    R2,11(R1) GET USERS FIELD LENGTH
000228 1420                         515+         NR    R2,R0 MASK 3 H.O. BITS
00022A 4122 200C            0000C   516+         LA    R2,12(R2,R2) ENTIRE ENTRY LENGTH IN 2
00022E 8712 F104            00216   517+         BXLE  R1,R2,C Q. MORE ENTRIES IN BLOCK
000232 D204 D15F D100 0015F 00100   518+         MVC   CCHHR,NEWCNT SET NEW START
000238 47F0 F0BA            001CC   519+         B     B1
                                    520+*
00023C D202 9008 1008 00008 00008   521+D        MVC   8(3,RGH),8(1) MOVE TTR
000242 4341 000B            0000B   522+         IC    4,11(1) GET C FROM DIRECTORY
000246 1440                         523+         NR    R4,R0 MASK 3 H.O. BITS
000248 485C 0002            00002   524+         LH    R5,2(RGK) GET USERS LL
00024C 4B50 F26A            0037C   525+         SH    R5,C14
000250 4740 F162            00274   526+         BM    E1 Q. LL LESS THAN 14
000254 8744 F148            0025A   527+         BXLE  R4,R4,E
000258 1845                         528+         LR    R4,R5 USE REG 4
00025A 4440 F260            00372   529+E        EX    R4,MOVE MOVE INTO USERS LIST
00025E 1B44                         530+         SR    R4,R4 CLEAR REGISTER          SA60740
000260 4340 D167            00167   531+         IC    R4,ERCODE+3 PREPARE TO SET 'Z'      SA60740
000264 9102 D167      00167         532+         TM    ERCODE+3,X'02' TEST FOR JOBLIB         SA60740
000268 47E0 F15E            00270   533+         BNO   E2 BRANCH IF NOT           SA60740
00026C 8840 0004            00004   534+         SRL   R4,4 CLEAR LOWER HALF BYTE   SA60740
000270                              535+E2       EQU   * SA60740
000270 4249 000C            0000C   536+         STC   R4,12(RGH) SET 'Z'                 SA60740
000274 4340 D166            00166   537+E1       IC    R4,ERCODE+2 GET C.N.
000278 4249 000B            0000B   538+         STC   R4,11(RGH) C.N. INTO USERS LIST
00027C 46A0 F208            0031A   539+F        BCT   RGI,F2 Q. ANOTHER LIST ENTRY
000280 18AF                         540+F1       LR    RGI,R15 SAVE BASE
                                    541+         DROP  RGBASE
000112                              542+         USING BASE3,RGI
000282 48F0 D164            00164   543+         LH    R15,ERCODE
000286 12FF                         544+         LTR   R15,R15 TEST FOR ERROR,          A27543
000288 078E                         545+         BCR   8,RGRET BR IF NOT TO RETURN    M3385
                                    546+*                                                                A28189
                                    547+***      DETERMINE WHETHER OR NOT THERE ARE CONCATENATED DATA    A28189
                                    548+***      SETS IN WHICH TO SEARCH FOR A MEMBER. THIS CAN BE       A28189
                                    549+***      DONE ONLY IF THE DATA SET IS PARTITIONED AND HAS BEEN   A28189
                                    550+***      OPENED FOR INPUT.                                       A28189
                                    551+*                                                                A28189
00028A 5820 B02C            0002C   552+         L     RGA,DCBDEBAD
000000                              553+         USING IHADEB,RGA
00028E D500 2004 D166 00004 00166   554+         CLC   DEBAMLNG,ERCODE+2 TEST FOR MORE DATA SETS,      A28189
000294 4720 A1F0            00302   555+         BH    CNCK BR IF YES FOR VALIDITY CHK  A28189
000298 9102 D167      00167         556+         TM    ERCODE+3,2 TEST FOR JOBLIB DCB,         SA60740
00029C 07EE                         557+         BCR   14,RGRET BR IF NOT TO RETURN     SA72718
00029E 58F0 A272            00384   558+         L     R15,FINDTCBP GET THE CURRENT TCB     SA60740
0002A2 58FF 0004            00004   559+         L     R15,4(R15) GET THE CURRENT TCB     SA60740
0002A6 1B22                         560+         SR    R2,R2 CLEAR REGISTER          SA60740
0002A8 4320 D167            00167   561+         IC    R2,ERCODE+3 GET 'Z'                 SA60740
0002AC 8820 0004            00004   562+         SRL   R2,4 STRIP LIB INDICATOR     SA60740
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0002B0 0620                         563+         BCTR  R2,0 SET LOOP CONTROL        SA60740
0002B2 9222 D167      00167         564+         MVI   ERCODE+3,X'22' RESET 'Z'               SA60740
0002B6                              565+TAGZ1    EQU   * SA60740
0002B6 58FF 0084            00084   566+         L     R15,132(R15) GET MOTHER TCB ADDR     SA60740
0002BA 589F 0028            00028   567+         L     R9,TCBJLB(R15) GET THE JOBLIB          SA60740
0002BE 1299                         568+         LTR   R9,R9 IS IT ZERO              SA60740
0002C0 4770 A1B6            002C8   569+         BNZ   TAGZ2 GO SET Z IF NOT         SA60740
0002C4 47F0 A1D2            002E4   570+         B     TAGH YES, GO SET LINK LIB    SA72718
0002C8                              571+TAGZ2    EQU   * SA60740
0002C8 4340 D167            00167   572+         IC    R4,ERCODE+3 UPDATE 'Z'              SA60740
0002CC 4144 0010            00010   573+         LA    R4,16(R4) UPDATE 'Z'              SA60740
0002D0 4240 D167            00167   574+         STC   R4,ERCODE+3 UPDATE 'Z'              SA60740
0002D4 199B                         575+         CR    R9,R11 JOBLIB,OLD DCB SAME?    SA60740
0002D6 4780 A1A4            002B6   576+         BE    TAGZ1 GET MOTHER TCB IF SO    SA60740
0002DA 18B9                         577+         LR    R11,R9 USE NEW JOBLIB DCB      SA60740
0002DC 4620 A1A4            002B6   578+         BCT   R2,TAGZ1 GO SERCH NEW TCB        SA60740
0002E0 47F0 A1DA            002EC   579+         B     FF2 GO SETC. N.             SA60740
0002E4 9201 D167      00167         580+TAGH     MVI   ERCODE+3,1 'Z'=1 INDICATES LINKLIB  TS2466
0002E8 58B0 A276            00388   581+         L     RGJ,FINDLINK LINKLIB DCB ADDR
0002EC 4140 00FF            000FF   582+FF2      LA    R4,255 FORCE C.N. TO ZERO        M4612
                                    583+*                                                                A28189
0002F0 4144 0001            00001   584+FF1      LA    R4,1(R4) INCREMENT C.N.
0002F4 4240 D166            00166   585+         STC   R4,ERCODE+2
0002F8 9200 D165      00165         586+         MVI   ERCODE+1,0 ZERO ERROR CODE
0002FC 18FA                         587+         LR    R15,RGI
0002FE 47F0 A08A            0019C   588+         B     BB1
                                    589+*
000302                              590+CNCK     EQU   * 13547
000302 9103 D167      00167         591+         TM    ERCODE+3,X'03' CHECK FOR LINKLIB OR JOBLIB     13547
000306 4740 A1DE            002F0   592+         BM    FF1 BRANCH IF EITHER                13547
00030A 9102 B01A      0001A         593+         TM    DCBDSORG,POMASK TEST FOR PARTITIONED DATA SET, A28189
00030E 07EE                         594+         BCR   14,RGRET BR IF NOT TO RETURN          M3385
000310 910F 200C      0000C         595+         TM    DEBOPATB,OUTMASK TEST FOR INPUT,                A28189
000314 075E                         596+         BCR   5,RGRET BR IF NOT TO RETURN          M3385
                                    597+         DROP  RGA .                                              22232
000316 47F0 A1DE            002F0   598+         B     FF1 13547
                                    599+*
                                    600+         DROP  RGI
000112                              601+         USING BASE3,RGBASE
00031A 4A9C 0002            00002   602+F2       AH    RGH,2(RGK) GO TO NEXT ENTRY
00031E 9500 900A      0000A         603+         CLI   10(RGH),0 FIND NEXT ZERO R
000322 4780 F104            00216   604+         BE    C Q. EMPTY ENTRY
000326 47F0 F16A            0027C   605+         B     F GO SEE IF ANOTHER EMPTY ENTRY
                                    606+*
00032A 95FF 1000      00000         607+G        CLI   0(R1),X'FF' CHECK FOR CONTINUATION POINTER
00032E 4740 F23C            0034E   608+         BL    G1 Q. NOT HIGH NAME
000332 D506 1001 1000 00001 00000   609+         CLC   1(7,R1),0(R1) MAKE SURE
000338 4740 F23C            0034E   610+         BL    G1 Q. REALLY NOT HIGH NAME
00033C D203 D174 1008 00174 00008   611+GG1      MVC   FNDLST3,8(R1) GET TTR0 ON WORD BOUNDARY
000342 5800 D174            00174   612+         L     R0,FNDLST3
000346 4B00 F2AC            003BE   613+         SH    R0,H256 DECREMENT R BY 1
00034A 47A0 F08C            0019E   614+         BC    10,BB1A Q. CONTINUATION POINTER
00034E 9504 D165      00165         615+G1       CLI   ERCODE+1,4
000352 4780 F162            00274   616+         BE    E1 Q. PREVIOUS ERROR
000356 4179 0000            00000   617+         LA    RGF,0(RGH) POINT TO FIRST EMPTY ENTRY, ZERO H.O. BYTE
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00035A 188A                         618+         LR    RGG,RGI NO. OF ENTRIES REMAINING
00035C 9204 D165      00165         619+         MVI   ERCODE+1,4 SET ERROR CODE 4
000360 47F0 F162            00274   620+         B     E1
                                    621+*
000364 4180 0001            00001   622+H        LA    RGG,R1 SET FOR ONE ENTRY
000368 1817                         623+         LR    R1,RGF MAKE MOVE AT GG1 WORK
00036A 1897                         624+         LR    RGH,RGF POINT TO ENTRY
00036C 18A8                         625+         LR    RGI,RGG
00036E 47F0 F22A            0033C   626+         B     GG1
                                    627+*
                                    628+*        CONSTANTS
000372 D200 900D 100B 0000D 0000B   629+MOVE     MVC   13(1,RGH),11(R1) BLDL MOVE
000378 0001                         630+DC1      DC    H'1'
00037A 000C                         631+TWELVE   DC    H'12' MUST IMMEDIATELY FOLLOW DC1   A25998
00037C 000E                         632+C14      DC    H'14'
00037E 0000
000380 00000000                     633+PDVCON   DC    V(IEA0IO02)
000384 00000000                     634+FINDTCBP DC    V(IEATCBP)
000388 00000000                     635+FINDLINK DC    V(IEFLINK)
00038C 00000000                     636+FINDSVC  DC    V(IEASVDCB)
                                    637+*
                                    638+*CHANNEL PROGRAM---
                                    639+*
000390                              640+CHANPROG DS    0F
                                    641+*CCW1
000390 31                           642+         DC    X'31' SEARCH ID EQUAL
000391 00015F                       643+         DC    AL3(0+CCHHR-FIRST)
000394 4000                         644+         DC    X'4000' COMMAND CHAIN
000396 0005                         645+         DC    H'5' COUNT
                                    646+*CCW2
000398 08                           647+         DC    X'08' TIC
000399 000108                       648+         DC    AL3(0+CCW1-FIRST)
00039C 00000000                     649+         DC    F'0'
                                    650+*CCW3
0003A0 92                           651+         DC    X'92' RD COUNT, M/T
0003A1 000100                       652+         DC    AL3(NEWCNT-FIRST)
0003A4 4000                         653+         DC    X'4000'
0003A6 0008                         654+         DC    H'8'
                                    655+*CCW4
0003A8 69                           656+SKEH     DC    X'69' SEARCH EQ HI KEY
0003A9 000000                       657+         DC    AL3(0)
0003AC 4000                         658+         DC    X'4000' COMMAND CHAIN
0003AE 0008                         659+         DC    H'8' COUNT
                                    660+*CCW5
0003B0 08                           661+         DC    X'08' TIC
0003B1 000118                       662+         DC    AL3(0+CCW3-FIRST)
0003B4 00000000                     663+         DC    F'0'
                                    664+*CCW6
0003B8 06                           665+         DC    X'06' READ DATA
0003B9 000000                       666+         DC    AL3(0+RDAREA-FIRST)
0003BC 0000                         667+         DC    H'0'
0003BE 0100                         668+H256     DC    H'256'
                                    669+*
                                    670+*
                                    671+***********************************************************************
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    672+*
                                    673+*IECPRLTV-- MBBCCHHR TO TTR0 CONVERT ROUTINE
                                    674+*REGISTER CONVENTION--
                                    675+*        0     CONTAINS RESULT TTR0
                                    676+*        1     ADDRESS OF DEB
                                    677+*        2     ADDRESS OF MBBCCHHR INPUT
                                    678+*        3-8   TRANSPARENT
                                    679+*        9-13  VOLATILE
                                    680+*        14    RETURN ADDRESS
                                    681+*        15    ENTRY ADDRESS-- USED FOR BASE
                                    682+*
                                    683+         ENTRY IECPRLTV
0003C0                              684+         USING IECPRLTV,R15
0003C0 1B00                         685+IECPRLTV SR    RGTTR,RGTTR
0003C2 18D1                         686+         LR    RGZ,RGDEB
000000                              687+         USING IHADEB,RGZ
0003C4 1BCC                         688+         SR    RGY,RGY
0003C6 1BAA                         689+         SR    RGW,RGW CLEAR REG
0003C8 43C2 0000            00000   690+         IC    RGY,0(RGMBB) PICKUP M
0003CC 9101 D008      00008         691+         TM    DEBOFLGS,1 CHECK FOR PDS CONCATENATION      5798
0003D0 4780 F03E            003FE   692+         BZ    RLTVZ BR. IF NOT                       5798
0003D4 1B99                         693+         SR    RGV,RGV ZERO OUT REGISTER # 9            5798
0003D6 4390 D010            00010   694+         IC    RGV,DEBNMEXT GET NUMBER OF EXTENTS            5798
0003DA 8990 0004            00004   695+         SLL   RGV,4 MULTIPLY BY 16                   5798
0003DE 1A91                         696+         AR    RGV,RGDEB ADD DEB ADDR.                    5798
0003E0 43A0 D004            00004   697+         IC    RGW,DEBAMLNG GET LENGTH OF DEB A/M SECTION  A28189
                                    698+         DROP  RGZ 5798
000000                              699+         USING IHADEB,RGV 5798
0003E4 1BBB                         700+         SR    RGX,RGX CLEAR REGISTER # 11              5798
0003E6 43BA 901F            0001F   701+RLTVX    IC    RGX,DEBDVMOD-1(RGW) GET M FOR DATA SET N           5798
0003EA 19CB                         702+         CR    RGY,RGX COMPARE WITH USERS M             5798
0003EC 47B0 F036            003F6   703+         BNL   RLTVY BR. IF CORRECT DATA SET          5798
0003F0 46A0 F026            003E6   704+         BCT   RGW,RLTVX BR. IF ANOTHER D.S. TO CHECK     5798
0003F4 1BBB                         705+         SR    RGX,RGX M OF FIRST DATA SET IS ZERO      5798
0003F6 1BCB                         706+RLTVY    SR    RGY,RGX ADJUST USERS M                   5798
0003F8 89B0 0004            00004   707+         SLL   RGX,4 MULTIPLY BY 16                   5798
0003FC 1ADB                         708+         AR    RGZ,RGX ADJUST DEB POINTER               5798
                                    709+         DROP  RGV 5798
000000                              710+         USING IHADEB,RGZ 5798
0003FE                              711+RLTVZ    EQU   * 5798
0003FE 12CC                         712+         LTR   RGY,RGY
000400 4780 F050            00410   713+         BZ    RLTVB Q. IS M ZERO
000404 4A00 D02E            0002E   714+RLTVA    AH    RGTTR,DEBNMTRK NO. OF TRKS IN EXT
000408 41DD 0010            00010   715+         LA    RGZ,16(RGZ) GO TO NEXT EXTENT
00040C 46C0 F044            00404   716+         BCT   RGY,RLTVA Q. ANY MORE EXTENTS
000410 45A0 F11E            004DE   717+RLTVB    BAL   RGW,CNVTDVC PICKUP DEVICE CONSTANT
000000                              718+         USING DEVTYPE,RGY
000414 1BAA                         719+         SR    RGW,RGW
000416 43A2 0003            00003   720+         IC    RGW,C3(RGMBB) GET FIRST CC BYTE
00041A 8BA0 0008            00008   721+         SLA   RGW,C8 SHIFT FOR NEXT CC BYTE
00041E 43A2 0004            00004   722+         IC    RGW,4(RGMBB) GET ACTUAL C
000422 4BA0 D026            00026   723+         SH    RGW,DEBSTRCC MINUS START CC
000426 4CA0 C002            00002   724+         MH    RGW,DEVTRK MULTIPLY CYL TIMES TRK/CYL
00042A 43B2 0006            00006   725+         IC    RGX,6(RGMBB) GET ACTUAL H
00042E 1AAB                         726+         AR    RGW,RGX PLUS TRKS IN CC
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000430 4BA0 D028            00028   727+         SH    RGW,DEBSTRHH MINUS START HH
000434 1A0A                         728+         AR    RGTTR,RGW DEVELOP TOTAL TT
000436 8900 0008            00008   729+         SLL   RGTTR,8
00043A 4302 0007            00007   730+         IC    RGTTR,7(RGMBB) PICKUP R
00043E 8900 0008            00008   731+         SLL   RGTTR,8
000442 1BFF                         732+         SR    R15,R15
000444 07FE                         733+         BR    R14 RETURN
                                    734+*******************************************************************
                                    735+*
                                    736+*IECPCNVT--- TTRN TO MBBCCHHR CONVERT ROUTINE
                                    737+*
                                    738+*THIS ROUTINE WILL CONVERT RELATIVE TRACK TT TO  ABSOLUTE TRACK MBBCCHH
                                    739+*REGISTER CONVENTION--
                                    740+*        0     CONTAINS TTRN, WHERE N IS CONCATENATION NO.
                                    741+*        1     ADDRESS OF DEB
                                    742+*        2     ADDRESS OF 8 BYTE FIELD FOR RESULT MBBCCHHR
                                    743+*        3-8   TRANSPARENT
                                    744+*        9-13  VOLATILE
                                    745+*        14    RETURN ADDRESS
                                    746+*        15    ENTRY ADDRESS-- USED FOR BASE
                                    747+*
                                    748+         ENTRY IECPCNVT
                                    749+         EXTRN QMRDEB S20076
                                    750+         EXTRN QMHPT S20076
000000                              751+         USING IHADEB,RGDEB
000446                              752+         USING IECPCNVT,R15
000446 1B99                         753+IECPCNVT SR    RGV,RGV
                                    754+         DROP  RGZ
000448 4390 1010            00010   755+         IC    RGV,DEBNMEXT NUMBER OF EXTENTS
00044C 18A9                         756+         LR    RGW,RGV USE FOR LIMIT
00044E 41D0 00FF            000FF   757+         LA    RGZ,X'FF' MASK
000452 14D0                         758+         NR    RGZ,RGTTR CONCATENATION NUMBER (N)
000454 4780 F024            0046A   759+         BZ    CNVTA Q. N IS ZERO
000458 18C9                         760+         LR    RGY,RGV NUMBER OF EXTENTS
00045A 89C0 0004            00004   761+         SLL   RGY,4 TIMES 16
00045E 1ACD                         762+         AR    RGY,RGZ ADD N
000460 43DC 101F            0001F   763+         IC    RGZ,DEBDVMOD-1(RGY) FIRST M OF DATA SET N
000464 1BAD                         764+         SR    RGW,RGZ ADJUST LIMIT
000466 89D0 0004            00004   765+         SLL   RGZ,4 TIMES 16
00046A 1AD1                         766+CNVTA    AR    RGZ,RGDEB ADJUST DEB PTR
                                    767+         DROP  RGDEB
000000                              768+         USING IHADEB,RGZ
00046C 8800 0008            00008   769+         SRL   RGTTR,8
000470 4202 0007            00007   770+         STC   RGTTR,7(RGMBB) SAVE R
000474 4111 0000            00000   771+         LA    RGDEB,0(RGDEB) CLEAR HI BYTE            S20076
000478 5910 F056            0049C   772+         C     RGDEB,CNVTQDEB TEST FOR JOBQUE DEB      S20076
00047C 4770 F05E            004A4   773+         BNE   CNVTAA NO.CONTINUE              S20076
000480 9500 2007      00007         774+         CLI   7(RGMBB),X'00' REC NU ZERO              S20076
000484 4770 F05E            004A4   775+         BNE   CNVTAA NO-CONTINUE                     4750
000488 5810 F05A            004A0   776+CNVTABEN L     R1,CNVTABCD GET ABEND CODE           S20076
00048C                              777+         DS    0H
00048C 4100 0080            00080   778+         LA    0,128 PICK UP DUMP/STEP CODE
000490 8900 0018            00018   779+         SLL   0,24(0) SHIFT TO HIGH BYTE
000494 1610                         780+         OR    1,0 OR IN WITH COMPCODE
000496 0A0D                         781+         SVC   13 LINK TO ABEND ROUTINE
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000498                              782+         DS    F S20076
00049C 00000000                     783+CNVTQDEB DC    A(QMRDEB) ADDR OF JOBQUE DEB       S20076
0004A0 001B0000                     784+CNVTABCD DC    X'001B0000' ABEND CODE FOR BAD       S20076
                                    785+*                  JOB QUE TTR                                   S20076
0004A4                              786+CNVTAA   EQU   * S20076
0004A4 8800 0008            00008   787+         SRL   RGTTR,8 DEVELOP TT
0004A8 4B00 D02E            0002E   788+CNVTB    SH    RGTTR,DEBNMTRK DECREASE BY TRKS IN EXTENT
0004AC 4740 F080            004C6   789+         BM    CNVTC Q. PROPER EXTENT
0004B0 41DD 0010            00010   790+         LA    RGZ,16(RGZ) GO TO NEXT EXTENT
0004B4 46A0 F062            004A8   791+         BCT   RGW,CNVTB Q. STILL WITHIN DEB
0004B8 5910 F056            0049C   792+         C     RGDEB,CNVTQDEB ANOTHER JOBQUE DEB       S20076
0004BC 4780 F042            00488   793+         BE    CNVTABEN YES-ABEND                S20076
0004C0 41F0 0004            00004   794+         LA    R15,4 SET ERROR CODE
0004C4 07FE                         795+         BR    R14 RETURN
0004C6 1B9A                         796+CNVTC    SR    RGV,RGW DEVELOP M
0004C8 4292 0000            00000   797+         STC   RGV,0(RGMBB) STORE M
0004CC D205 2001 D024 00001 00024   798+         MVC   1(6,RGMBB),DEBBINUM MOVE BBCCHH FROM DEB
0004D2 1BFF                         799+         SR    R15,R15 ZERO ERROR CODE
                                    800+         DROP  R15
0004D4 4A00 D02E            0002E   801+         AH    RGTTR,DEBNMTRK ADD BACK OVERDRAW
0004D8 078E                         802+         BCR   8,R14 Q. DIVIDE UNNECESSARY
0004DA 41A0 0001            00001   803+         LA    RGW,1 FORCE RGW TO ZERO ON BCTR
                                    804+*PICKUP LOCATION OF APPROPRIATE DEVICE CONSTANTS
0004DE 58C0 D020            00020   805+CNVTDVC  L     RGY,DEBDVMOD UCB ADDRESS
0004E2 41B0 000F            0000F   806+         LA    RGX,15 MASK
0004E6 54BC 0010            00010   807+         N     RGX,UCBTYP(RGY) DEVICE TYPE CODE
0004EA 58C0 0010            00010   808+         L     RGY,CVTAD GET CVT ADDR
0004EE 58CC 0040            00040   809+         L     RGY,CVTZDTAB(RGY) GET DEVICE TABLE
0004F2 43BC B000            00000   810+         IC    RGX,C0(RGY,RGX) GET DEVICE OFFSET
0004F6 1ACB                         811+         AR    RGY,RGX GET DEVICE ENTRY
0004F8 06AA                         812+         BCTR  RGW,RGW Q. RETURN TO RLTV ROUTINE
000000                              813+         USING DEVTYPE,RGY
0004FA 4890 C002            00002   814+         LH    RGV,DEVTRK GET TRACKS/ CYL
0004FE 18B0                         815+         LR    RGX,RGTTR DIVIDE REG
000500 4AB0 D028            00028   816+         AH    RGX,DEBSTRHH STARTING HH
000504 1DA9                         817+         DR    RGW,RGV QUO=CYLS, REM=TRKS
000506 42A2 0006            00006   818+         STC   RGW,6(RGMBB) STORE H
00050A 4AB0 D026            00026   819+         AH    RGX,DEBSTRCC PLUS CC START
00050E 42B2 0004            00004   820+         STC   RGX,4(RGMBB) STORE C
000512 8AB0 0008            00008   821+         SRA   RGX,C8 SHIFT FOR HIGH C
000516 42B2 0003            00003   822+         STC   RGX,C3(RGMBB) GET BYTE
00051A 07FE                         823+         BR    R14 RETURN
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    825+*RESIDENT DIRECT ACCESS DEVICE CONSTANT TABLE--
                                    826+         ENTRY IECZDTAB
00051C                              827+IECZDTAB EQU   *
00051C 03                           828+         DC    X'03' TURN ON RER BIT IN LABELING BYTE.     RER1
00051D 0A                           829+         DC    AL1(Z10001-IECZDTAB)
00051E 00                           830+         DC    X'00'
00051F 00                           831+         DC    X'00'
000520 00                           832+         DC    X'00'
000521 00                           833+         DC    X'00'
000522 00                           834+         DC    X'00'
000523 00                           835+         DC    X'00'
000524 18                           836+         DC    AL1(Z80001-IECZDTAB)
000525 28                           837+         DC    AL1(Z90001-IECZDTAB)
000526                              838+Z10001   DS    0H OC58
000526 00                           839+         DC    X'0' 2311
000527 CB                           840+         DC    AL1(203)
000528 00                           841+         DC    X'0'
000529 0A                           842+         DC    X'A' NO.OF TRACKS/CYLINDER
00052A 0E29                         843+         DC    FL2'3625' TRACK LENGTH
00052C 51                           844+         DC    FL1'81' OVERHEAD LAST RECORD
00052D 14                           845+         DC    FL1'20' OVERHEAD FOR NON-KEY
00052E 14                           846+         DC    FL1'20'
00052F 01                           847+         DC    X'01' FLAG
000530 0219                         848+         DC    FL2'537' TOLERANCE
000532 001E                         849+         DC    X'001E' NO.ALTERNATE TRACKS         OC58
000534                              850+Z80001   DS    0H OC58
000534 00CB                         851+         DC    AL2(203)
000536 0014                         852+         DC    AL2(20)
000538 1C7E                         853+         DC    FL2'7294'
00053A 92                           854+         DC    AL1(146)
00053B 2D                           855+         DC    FL1'45'
00053C 2D                           856+         DC    FL1'45'
00053D 01                           857+         DC    X'01'
00053E 0216                         858+         DC    FL2'534'
000540 003C                         859+         DC    X'003C' NO. ALTERNATE TRACKS        OC58
000544                              860+Z90001   DS    0F
000544 019B                         861+         DC    AL2(411) CYLINDERS
000546 0013                         862+         DC    AL2(19) TRKS/CYL
000548 336D                         863+         DC    AL2(13165) BYTES/TRK
00054A BF                           864+         DC    AL1(191) OVERHEAD/BLOCK
00054B BF                           865+         DC    AL1(191) OVERHEAD LAST BLOCK
00054C 38                           866+         DC    AL1(56) KEY CONST
00054D 01                           867+         DC    AL1(01)
00054E 0200                         868+         DC    AL2(512) TOLERANCE
000550 0085                         869+         DC    AL2(133) ALT TRACKS
000552 00ED                         870+         DC    AL2(237) R0 OVERHEAD
000554 80                           871+         DC    AL1(128) NO. OF SECTORS
000555 7C                           872+         DC    AL1(124) NO. DATA SECTR
000000                              873+DEVTYPE  DSECT
000000                              874+DEVCYL   DS    H NUMBER OF CYLINDERS
000002                              875+DEVTRK   DS    H TRACKS/ CYLINDER
000004                              876+DEVBYTE  DS    H BYTES PER TRACK
000006                              877+DEVOVR1  DS    C OVERHEAD PER BLOCK
000007                              878+DEVOVR2  DS    C OVERHEAD LAST BLOCK
000008                              879+DEVKEY   DS    C KEY OVERHEAD
       IGC018 - FIND/BLDL AND TTR CONVERT ROUTINES                                                             PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000009                              880+         DS    C BLANK
00000A                              881+DEVTOL   DS    H TOLERANCE
00000C                              882+DEVALT   DS    H NUMBER TO ALT TRACKS
       SECTOR CONVERT ROUTINE                                                                                  PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000558                              884+IEC0SCR1 CSECT
                                    885+*
                                    886+**********************************************************************
                                    887+*
                                    888+*        RELEASE 22 DELETIONS
                                    889+*        RELEASE 21 DELETIONS
                                    890+*        RELEASE 20 DELETIONS
                                    891+*
                                    892+* FUNCTION     THIS ROUTINE CONVERTS THE RECORD NUMBER OF A FIX-
                                    893+*              ED OR VARIABLE LENGTH RECORD DATA SET INTO THE
                                    894+*              CORRESPONDING SECTOR VALUE FOR USE WITH AN I/O
                                    895+*              DEVICE HAVING THE ROTATIONAL POSITION SENSING
                                    896+*              (RPS) FEATURE.
                                    897+*
                                    898+* INPUT FOR FIXED LENGTH RECORDS --
                                    899+*            - REGISTER 0 IS LOADED WITH A FOUR-BYTE VALUE IN
                                    900+*              THE FORM OF 'DDKR' WHERE 'DD' IS A TWO-BYTE FIELD
                                    901+*              CONTAINING THE PHYSICAL BLOCK SIZE, 'K' IS A ONE
                                    902+*              BYTE FIELD CONTAINING THE KEY LENGTH, AND 'R' IS
                                    903+*              THE RECORD NUMBER FOR WHICH A SECTOR VALUE IS
                                    904+*              DESIRED.
                                    905+*            - REGISTER 2 CONTAINS THE ONE-BYTE UCB DEVICE TYPE
                                    906+*              CODE (UCB + 19) IN THE HIGH ORDER BYTE, AND THE
                                    907+*              REMAINING 3 BYTES ARE THE ADDRESS OF A ONE BYTE
                                    908+*              AREA THAT IS TO RECEIVE THE SECTOR VALUE.
                                    909+*            - REGISTER 14 CONTAINS THE ADDRESS TO WHICH CONTROL
                                    910+*              IS TO BE RETURNED AFTER EXECUTION OF THE SECTOR
                                    911+*              CONVERT ROUTINE.
                                    912+*            - REGISTER 15 CONTAINS THE ADDRESS OF THE ENTRY
                                    913+*              POINT TO THIS ROUTINE AND IS USED AS A BASE
                                    914+*              REGISTER.
                                    915+*       FOR VARIABLE LENGTH RECORDS --
                                    916+*            - REGISTER 0 IS LOADED WITH A FOUR-BYTE VALUE IN THE
                                    917+*              FORM OF BBIR, WHERE BB IS THE TOTAL NUMBER OF KEY
                                    918+*              AND DATA BYTES UP TO BUT NOT INCLUDING THE TARGET
                                    919+*              RECORD, I IS A ONE-BYTE KEY INDICATOR ( 1 FOR KEYED
                                    920+*              RECORDS, 0 FOR NON-KEYED RECORDS), AND R IS THE SAME
                                    921+*              AS FOR FIXED LENGTH RECORDS.  THE HIGH ORDER BIT OF
                                    922+*              THIS REGISTER MUST BE TURNED ON TO INDICATE VLR.
                                    923+*            - REGISTERS 2, 14, 15 ARE THE SAME AS FOR FIXED LENGTH
                                    924+*              RECORDS.
                                    925+*
                                    926+* OUTPUT       THE SECTOR VALUE CORRESPONDING TO THE RECORD
                                    927+*              NUMBER PASSED TO THE CONVERT ROUTINE IN THE LOW-
                                    928+*              ORDER BYTE OF REGISTER 0 IS PLACED AT THE ADDRESS
                                    929+*              INDICATED REGISTER 2.
                                    930+*
                                    931+* EXIT         CONTROL IS RETURNED TO THE ADDRESS PASSED IN REG-
                                    932+*              ISTER 14.
                                    933+*
                                    934+* ATTRIBUTES   REENTRANT
                                    935+*
                                    936+**********************************************************************
                                    937+*
                                    938+**********************************************************************
       SECTOR CONVERT ROUTINE                                                                                  PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    939+*        GENERAL REGISTER USAGE                                      *
                                    940+**********************************************************************
                                    941+*
000000                              942+REG00    EQU   0 USED IN BCTR INSTRUCTION
000000                              943+PARM1    EQU   0 INPUT PARAMETER REG.
000001                              944+REG01    EQU   1 NOT USED
000002                              945+PARM2    EQU   2 INPUT PARAMETER REG.
000003                              946+REG03    EQU   3 NOT USED
000004                              947+REG04    EQU   4 NOT USED
000005                              948+REG05    EQU   5 NOT USED
000006                              949+REG06    EQU   6 NOT USED
000007                              950+REG07    EQU   7 NOT USED
000008                              951+REG08    EQU   8 NOT USED
000009                              952+DCTREG   EQU   9 ADDR OF DEVICE ENTRY
00000A                              953+WORK1    EQU   10 WORK REGISTER
00000B                              954+WORK2    EQU   11 WORK REGISTER
00000C                              955+REG12    EQU   12 NOT USED
00000D                              956+REG13    EQU   13 NOT USED
00000E                              957+RETRG    EQU   14 POINTS TO PLACE OF RETURN
00000F                              958+BASRG    EQU   15 BASE REGISTER
                                    959+*
                                    960+**********************************************************************
                                    961+*        OTHER EQUATES - CONSTANT NUMBERS AND DISPLACEMENTS          *
                                    962+**********************************************************************
                                    963+*
000000                              964+CON0     EQU   0 CONSTANT NUMBER 0
000004                              965+TCDS     EQU   4 DCT DISP. FOR TRK. CAP.
000006                              966+BODS     EQU   6 DCT DISP. FOR BLOCK OVRHD.
000008                              967+EQU      EQU   8 CONDITION CODE FOR 'BE'
000008                              968+KCDS     EQU   8 DCT DISP. FOR KEY CONST.
000008                              969+SHFT1    EQU   8 NO. BITS FOR 1-BYTE SHIFT
00000E                              970+R0ODS    EQU   14 DCT DISP. FOR R0 OVRHD.
000010                              971+SHFT2    EQU   16 BITS FOR TWO-BYTE SHIFT
000011                              972+NOSDS    EQU   17 GET NO. SECTR
000010                              973+CVTAD    EQU   16 CVT ADDRESS
000018                              974+SHFT3    EQU   24 NO. BITS FOR 3-BYTE SHIFT
000020                              975+SHFT4    EQU   32 BITS FOR FOUR-BYTE SHIFT
000040                              976+TIXDS    EQU   64 DISP. FOR TABLE INDEX
000009                              977+FLAG1    EQU   9 DCT DISP TO FLAG
000008                              978+TWOBIT   EQU   X'08' 2 BYTE BLOCK OVERHEAD
                                    979+*
                                    980+**********************************************************************
                                    981+*        CALCULATE EFFECTIVE BLOCK LENGTH                            *
                                    982+**********************************************************************
                                    983+*
000558                              984+         USING *,BASRG ESTABLISH ADDRESSABILITY
000558 47F0 F008            00560   985+         B     NOTQCNVT BRANCH AROUND ADCON
00055C 00000000                     986+         DC    V(IEFQCNVT) ADDR OF ALT CONVERT RTN
000560                              987+NOTQCNVT EQU   *
000560 4202 0000            00000   988+         STC   PARM1,CON0(PARM2) SAVE R IN THETA
000564 9500 2000      00000         989+         CLI   CON0(PARM2),CON0 DOES R=0 ?
000568 078E                         990+         BCR   EQU,RETRG IF YES, RETURN
00056A 12A0                         991+         LTR   WORK1,PARM1 VARIABLE-LENGTH RECORDS ?
00056C 4740 F090            005E8   992+         BM    VLR BRANCH IF YES
000570 8CA0 0010            00010   993+         SRDL  WORK1,SHFT2 SHIFT OUT K&R
       SECTOR CONVERT ROUTINE                                                                                  PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000574 88B0 0018            00018   994+         SRL   WORK2,SHFT3 PUT K IN LOW ORDER BYTE
000578 1AAB                         995+         AR    WORK1,WORK2 KEY LENGTH + DATA LENGTH
00057A 8CA0 0020            00020   996+         SRDL  WORK1,SHFT4 CLEAR 1, PUT SUM IN 2
00057E 43A2 0000            00000   997+         IC    WORK1,CON0(PARM2) GET R
000582 06A0                         998+         BCTR  WORK1,REG00 SUBTRACT 1 FROM R
000584 1CAA                         999+         MR    WORK1,WORK1 (R-1)(KL+DL)
                                   1000+*
                                   1001+**********************************************************************
                                   1002+*        CALCULATE NUMBER OF BYTES ON TRACK PRIOR TO RECORD 'R'      *
                                   1003+**********************************************************************
                                   1004+*
000586                             1005+HERE     EQU   *
000586 18A0                        1006+         LR    WORK1,PARM1 PUT PARAM.S IN WORK REG.
000588 180B                        1007+         LR    PARM1,WORK2 SAVE TOTAL SO FAR
00058A 5890 0010            00010  1008+         L     DCTREG,CVTAD GET CVT ADDRESS
00058E 5899 0040            00040  1009+         L     DCTREG,TIXDS(DCTREG) GET DCT INDEX TABLE ADDR
000592 18B2                        1010+         LR    WORK2,PARM2
000594 88B0 0018            00018  1011+         SRL   WORK2,SHFT3 GET DEVICE CODE
000598 43BB 9000            00000  1012+         IC    WORK2,CON0(WORK2,DCTREG) GET DCT INDEX BYTE
00059C 419B 9000            00000  1013+         LA    DCTREG,CON0(WORK2,DCTREG) GET DCT ENTRY ADDRESS
0005A0 8CA0 0010            00010  1014+         SRDL  WORK1,SHFT2 SHIFT OUT K&R
0005A4 88B0 0018            00018  1015+         SRL   WORK2,SHFT3 PUT K IN LOW ORDER BYTE
0005A8 18AB                        1016+         LR    WORK1,WORK2 PUT K IN WORK1 ALSO
0005AA 43B9 0006            00006  1017+         IC    WORK2,BODS(DCTREG) GET BLOCK OVERHEAD
0005AE 9108 9009      00009        1018+         TM    FLAG1(DCTREG),TWOBIT IS THIS A TWO BYTE DEVICE
0005B2 4780 F062            005BA  1019+         BZ    ONEBYTE BRANCH IF ONE BYTE
0005B6 48B9 0006            00006  1020+         LH    WORK2,BODS(DCTREG) GET BLOCK OVERHEAD
0005BA                             1021+ONEBYTE  EQU   *
0005BA 12AA                        1022+         LTR   WORK1,WORK1 KEYED RECORDS ?
0005BC 4720 F06E            005C6  1023+         BP    KEYED BRANCH IF YES
0005C0 43A9 0008            00008  1024+         IC    WORK1,KCDS(DCTREG) GET SUBTRACTION FACTOR
0005C4 1BBA                        1025+         SR    WORK2,WORK1 SUBTRACT FOR NO KEY
0005C6                             1026+KEYED    EQU   *
0005C6 1BAA                        1027+         SR    WORK1,WORK1 CLEAR REGISTER
0005C8 43A2 0000            00000  1028+         IC    WORK1,CON0(PARM2) GET R
0005CC 06A0                        1029+         BCTR  WORK1,REG00 SUBTRACT ONE FROM R
0005CE 1CAA                        1030+         MR    WORK1,WORK1 (R-1)(Y-K)
0005D0 4AB9 000E            0000E  1031+         AH    WORK2,R0ODS(DCTREG) ADD RECORD 0 OVERHEAD
0005D4 1AB0                        1032+         AR    WORK2,PARM1 ADD BB OR K+DD
                                   1033+*
                                   1034+**********************************************************************
                                   1035+*        CALCULATE AND STORE THE SECTOR VALUE, RETURN                *
                                   1036+**********************************************************************
                                   1037+*
0005D6 43A9 0011            00011  1038+         IC    WORK1,NOSDS(DCTREG) GET NUMBER OF SECTORS
0005DA 1CAA                        1039+         MR    WORK1,WORK1 (#SECTORS)(TOTAL SO FAR)
0005DC 4899 0004            00004  1040+         LH    DCTREG,TCDS(DCTREG) TRACK CAPACITY
0005E0 1DA9                        1041+         DR    WORK1,DCTREG DIVIDE TOTAL BY TRACK CAP
0005E2 42B2 0000            00000  1042+         STC   WORK2,CON0(PARM2) STORE SECTOR
0005E6 07FE                        1043+         BR    RETRG RETURN
0005E8                             1044+VLR      EQU   *
0005E8 89A0 0001            00001  1045+         SLL   WORK1,ONE SHIFT OUT SIGN
0005EC 88A0 0011            00011  1046+         SRL   WORK1,SHFT2+1 SHIFT OUT I&R
0005F0 18BA                        1047+         LR    WORK2,WORK1 MATCH REG. SETUP
0005F2 47F0 F02E            00586  1048+         B     HERE
       SECTOR CONVERT ROUTINE                                                                                  PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0005F8                             1049+IEFQCNVT CSECT
                                   1050+***********************************************************************
                                   1051+*                                                                     *
                                   1052+*          CONVERSION ROUTINE FOR RPS JOBQUEUE                        *
                                   1053+*                                                                     *
                                   1054+***********************************************************************
                                   1055+*    *     *     *     *       *     *     *    *    *     *    *     *
                                   1056+*                                                                     *
                                   1057+*FUNCTION - TO COMPUTE THE NUMBER OF DATA BYTES PRECEEDING A JOBQUEUE *
                                   1058+*           RECORD OR A LOGICAL TRACK HEADER RECORD FOR INPUT TO THE  *
                                   1059+*           SECTOR CONVERT ROUTINE                                    *
                                   1060+*                                                                     *
                                   1061+*    *     *     *     *       *     *     *    *    *     *    *     *
                                   1062+*                                                                     *
                                   1063+*INPUT    - R0 - CONTAINS THE TTR0 OF THE LTH OR RECORD               *
                                   1064+*                                                                     *
                                   1065+*         - R3 - ADDRESS OF QUEUE MANAGER RESIDENT CORE               *
                                   1066+*                                                                     *
                                   1067+*         - R14 - RETURN ADDRESS                                      *
                                   1068+*                                                                     *
                                   1069+*         - R15 - ADDRESS OF THE ENTRY POINT OF THIS ROUTINE AND IS   *
                                   1070+*                 USED IS THE BASE REGISTER                           *
                                   1071+*                                                                     *
                                   1072+*    *     *     *     *       *     *     *    *    *     *    *     *
                                   1073+*                                                                     *
                                   1074+*OUTPUT   - R0 - SET UP FOR ENTRY TO THE SECTOR CONVERT ROUTINE IN    *
                                   1075+*                BBKR FORM WHERE BB IS THE NUMBER OF PRECEEDING BYTES *
                                   1076+*                K=0 FOR NON-KEYED RECORDS, AND R IS THE RECORD       *
                                   1077+*                NUMBER                                               *
                                   1078+*                                                                     *
                                   1079+*           R3- SAME AS INPUT                                         *
                                   1080+*                                                                     *
                                   1081+*         - REGISTERS 1,2,9-13 ARE USED BY THIS ROUTINE AND ARE NOT   *
                                   1082+*           RESTORED.                                                 *
                                   1083+*    *     *     *     *       *     *     *    *    *     *    *     *
                                   1084+*                                                                     *
                                   1085+*EXIT     -  RETURN TO CALLER VIA REGISTER 14                         *
                                   1086+*    *     *     *     *       *     *     *    *    *     *    *     *
                                   1087+*ATTRIBUTES - REENTRANT                                               *
                                   1088+*    *     *     *     *       *     *     *    *    *     *    *     *
                                   1089+***********************************************************************
000001                             1090+D1       EQU   1
000014                             1091+LTHLH    EQU   20 LTH LENGTH
000024                             1092+QCRLG    EQU   36 QUEUE CONTROL RECORD LENGTH
0000B0                             1093+RECLH    EQU   176 QUEUE RECORD LENGTH
0005F8                             1094+         USING *,R15 ESTABLISH ADDRESSABILITY FOR ROUTINE
000000                             1095+         USING QMCVTRES,R3
0005F8 1820                        1096+         LR    R2,R0 TTR INTO WORK REGISTER
0005FA 1810                        1097+         LR    R1,R0 SAVE TTR
0005FC 8820 0010            00010  1098+         SRL   R2,16 ISOLATE TT AND TEST FOR > OR = TO
000600 4890 307A            0007A  1099+         LH    R9,QMKTT TT OF FIRST TRACK WITH NO QCR'S
000604 1929                        1100+         CR    R2,R9 IF NOT,RECORD IS ON MIXED TRACK,
000606 4740 F08C            00684  1101+         BL    MIXED BRANCH FOR SPECIAL CONVERSION
00060A 1B99                        1102+         SR    R9,R9 ZERO INDICATOR REGISTER
00060C 1820                        1103+         LR    R2,R0 ISOLATE RECORD NUMBER OF TTR0 TO
       SECTOR CONVERT ROUTINE                                                                                  PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00060E 8920 0010            00010  1104+         SLL   R2,16 BE CONVERTED
000612 8820 0018            00018  1105+         SRL   R2,24
000616                             1106+COMPUTE  EQU   *
000616 1222                        1107+         LTR   R2,R2 IF R=0 OR 1 THERE IS NO PRECEEDING
000618 4780 F086            0067E  1108+         BZ    SET1 JOB QUEUE RECORD., GO CHECK FOR
00061C 5520 F0A8            006A0  1109+         CL    R2,ONES QCR'S BEFORE RETURNING
000620 4780 F086            0067E  1110+         BE    SET1
000624 48C0 3080            00080  1111+         LH    R12,QMLPT GET NUMBER OF RECORDS PER LOGICAL
                                   1112+*                                 TRACK
000628 18B2                        1113+         LR    R11,R2 GET NUMBER OF RECORDS PRECEEDING
00062A 06B0                        1114+         BCTR  R11,R0 THIS RECORD
00062C 1BAA                        1115+         SR    R10,R10 ZERO FOR DIVISION
00062E 41CC 0001            00001  1116+         LA    R12,D1(R12) ADD ONE FOR LTH ON EACH TRACK
000632 1DAC                        1117+         DR    R10,R12 DIVIDE NUMBER OF PRECEEDING RECORDS
                                   1118+*                                 BY NUMBER OF RECORDS PER LOGICAL
                                   1119+*                                 TRACK INCLUDING THE LTH
000634 41D0 0014            00014  1120+         LA    R13,LTHLH LENGTH OF TTH FOR MULTIPLICATION
000638 41D0 0014            00014  1121+         LA    R13,LTHLH LENGTH OF LTH FOR MULTIPLICATION
00063C 12AA                        1122+         LTR   R10,R10 IS THERE A REMAINDER? YES,
00063E 4770 F050            00648  1123+         BNZ   REMAIN ADD ONE TO QUOTIENT BEFORE
                                   1124+*                                 COMPUTING LTH BYTES
000642 1CCB                        1125+         MR    R12,R11 NO,QUOTIENT= NUMBER OF LTH'S,
                                   1126+*                                 MULTIPLY X 20 FOR TOTAL LTH BYTES
000644 47F0 F05A            00652  1127+         B     RECBYTES GO COMPUTE RECORD BYTES
000648                             1128+REMAIN   EQU   * REMAINING RECORDS MAY CONTAIN ONE
000648 41BB 0001            00001  1129+         LA    R11,D1(R11) LTH SO INCREMENT AND MULTIPLY FOR
00064C 1CCB                        1130+         MR    R12,R11 TOTAL LTH BYTES
00064E 06B0                        1131+         BCTR  R11,R0 SUBTRACT ONE FROM QUOTIENT TO GET
                                   1132+*                                 NUMBER OF PRECEEDING LOGICAL TRKS
000650 06A0                        1133+         BCTR  R10,R0 SUBTRACT ONE FROM RECORDS REMAINING
                                   1134+*                                 SINCE ONE WAS ADDED TO LTH'S
000652                             1135+RECBYTES EQU   * COMPUTE NUMBER OF BYTES FOR 176 BYTE
000652 180D                        1136+         LR    R0,R13 RECORDS. SAVE LTH BYTES.
000654 48D0 3080            00080  1137+         LH    R13,QMLPT NUMBER OF RECORDS PER LOGICAL TRACK
000658 1CCB                        1138+         MR    R12,R11 MULTIPLY X NUMBER OF TRACKS
00065A 1ADA                        1139+         AR    R13,R10 ADD REMAINDER TO NUMBER OF RECORDS
00065C 41A0 00B0            000B0  1140+         LA    R10,RECLH GET RECORD LENGTH
000660 1CCA                        1141+         MR    R12,R10 MULTIPLY FOR TOTAL RECORD BYTES
000662 1A0D                        1142+         AR    R0,R13 ADD TO TOTAL LTH BYTES. R0 NOW HAS
                                   1143+*                                 TOTAL PRECEEDING BYTES.
000664                             1144+RET      EQU   *
000664 1A09                        1145+         AR    R0,R9 ADD IN QCR BYTES, IF ANY
000666 8810 0008            00008  1146+         SRL   R1,8 GET RID OF CONCATENATION AND TT
00066A 8910 0018            00018  1147+         SLL   R1,24 BYTES
00066E 8810 0008            00008  1148+         SRL   R1,8 GET 0R00 FORMAT
000672 8D00 0010            00010  1149+         SLDL  R0,16 R0 NOW = # BYTES-0-R
000676 5810 F0AC            006A4  1150+         L     R1,MASK SET HIGH ORDER BIT TO ONE FOR
00067A 1601                        1151+         OR    R0,R1 VARIABLE LENGTH INDICATION
00067C 07FE                        1152+         BR    R14 AND RETURN TO CALLER
00067E                             1153+SET1     EQU   *
00067E 1B00                        1154+         SR    R0,R0 FIRST RECORD HAS NO PRECEEDING
                                   1155+*                                 RECORD BYTES
000680 47F0 F06C            00664  1156+         B     RET RETURN
000684                             1157+MIXED    EQU   *
000684 4890 3084            00084  1158+         LH    R9,QMNHM NUMBER OF QCR'S ON MIXED TRACK
       SECTOR CONVERT ROUTINE                                                                                  PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000688 41B0 0024            00024  1159+         LA    R11,QCRLG NUMBER BYTES PER QCR
00068C 1CA9                        1160+         MR    R10,R9 MULTIPLY FOR TOTAL QCR BYTES
00068E 1820                        1161+         LR    R2,R0 ISOLATE RECORD VALUE IN REGISTER
000690 8920 0010            00010  1162+         SLL   R2,16 TWO FOR COMPUTATION ROUTINE
000694 8820 0018            00018  1163+         SRL   R2,24
000698 1B29                        1164+         SR    R2,R9 GET NUMBER OF RECORDS PRECEEDING ONE
                                   1165+*                                 TO CONVERT EXCLUDING THE QCR'S
00069A 189B                        1166+         LR    R9,R11 SAVE TOTAL QCR BYTES
00069C 47F0 F01E            00616  1167+         B     COMPUTE GO COMPUTE RECORD BYTES
0006A0                             1168+         DS    0F
0006A0 00000001                    1169+ONES     DC    X'00000001'
0006A4 80000000                    1170+MASK     DC    X'80000000' MASK FOR SETTING HIGH ORDER BIT
000000                             1171+QMCVTRES DSECT
000000 0000000000000000            1172+QMRDCB   DC    2F'0' DCB
000008 0000                        1173+         DC    H'0' SPACE
00000A 00                          1174+QMWTPLMT DC    X'00' SPACE
00000B 00
00000C 0000000000000000            1175+         DC    8F'0' SPACE
00002C 00000034                    1176+         DC    A(QMRDEB1) DEB POINTER              S20076
000030 00000000                    1177+         DC    F'0' SPACE
000034 0000000000000000            1178+QMRDEB1  DC    6F'0' QUEUE MANAGER DEB        S20076
00004C 0F                          1179+         DC    X'0F' DEB ID
00004D 000000                      1180+         DC    AL3(QMRDCB) DCB POINTER
000050 00000000                    1181+QMRAPG   DC    F'0' APPANDAGE POINTER
000054 00000000                    1182+QMRUCB   DC    F'0' UCB POINTER
000058 0000                        1183+         DC    H'0' SPACE
00005A 0001                        1184+QMRSCC   DC    X'0001' START CC
00005C 0000                        1185+QMRSHH   DC    X'0000' START HH
00005E 0002                        1186+QMRECC   DC    X'0002' END CC
000060 0000                        1187+QMREHH   DC    X'0000' END HH
000062 0014                        1188+QMRNTR   DC    X'0014' ASSIGNED TRKS
000064 0000000000000000            1189+QMHDA    DC    2F'0' MBBCCHHR
00006C 00                          1190+         DC    X'00' SPACE
00006D 0000                        1191+QMFLTM   DC    X'0000' NUMBER OF LOGICAL TRKS
00006F 00                          1192+QMQBK    DC    X'00' FLAG
000001                             1193+QMRSV    EQU   X'01' SPACE RESERVED BIT
000070 0000                        1194+QMTLNM   DC    H'0' TOTAL LOGICAL TRKS
000072 0000                        1195+QMNOTM   DC    H'0' AVAILABLE LOGICAL TRKS
000074 0000                        1196+QMHKT    DC    H'0' THRESHOLD
000076 0000                        1197+QMTBT    DC    H'0' TOTAL THRESHOLD
000078 0000                        1198+QMTIDM   DC    H'0' NUMBER OF AVAILABLE TRKS
00007A 0000                        1199+QMKTT    DC    H'0' NUMBER OF 1ST LTRK
00007C 0000                        1200+QMHPT1   DC    H'0' NUMBER OF HANDLES        S20076
00007E 0000                        1201+QMRPT    DC    H'0' NUMBEF OF RECORDS PER PHY TRK
000080 0000                        1202+QMLPT    DC    H'0' NUMBER OF RECORDS PER LOG TRK
000082 0000                        1203+QMTRS    DC    H'0' THRESHOLD OF LTRKS
000084 0000                        1204+QMNHM    DC    H'0' NUMBER OF HANDLES
000086 0000                        1205+QMFQR    DC    H'0' NUMBER OF 1ST JOBQUE R
000088 00000000                    1206+QMECBA   DC    F'0' ECB
00008C 00000000                    1207+QMRPS    DC    F'0' RPS INDICATOR
                                   1208          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       02      1C     000380
   01       03      1C     000384
   01       04      1C     000388
   01       05      1C     00038C
   01       06      0C     00049C
   08       09      1C     00055C
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

A1       00001 0000BC 00367   0358  0393
A2       00004 0000E2 00393   0349
A3       00001 0000E0 00388   0308  0311  0324  0337
BADIO    00004 0001FE 00499   0478
BASE1    00004 000002 00298   0297  0392
BASE2    00002 0000A2 00357   0356
BASE3    00002 000112 00422   0421  0488  0504  0542  0601
BASRG    00001 00000F 00958   0984
BBBB1    00002 00014E 00439   0430  0436
BBB1     00004 00018C 00463   0465
BB1      00002 00019C 00467   0588
BB1A     00004 00019E 00468   0614
BB2      00004 0001A2 00470
BODS     00001 000006 00966   1017  1020
B1       00004 0001CC 00483   0519
C        00006 000216 00511   0517  0604
CCHHR    00005 00015F 00162   0518  0643
CCW      00008 000108 00152   0451  0454
CCW1     00008 000108 00153   0648
CCW2     00008 000110 00154
CCW3     00008 000118 00155   0662
CCW4     00008 000120 00156   0483
CCW5     00008 000128 00157
CCW6     00008 000130 00158
CHANPROG 00004 000390 00640   0445
CNCK     00001 000302 00590   0555
CNVTA    00002 00046A 00766   0759
CNVTAA   00001 0004A4 00786   0773  0775
CNVTABCD 00004 0004A0 00784   0776
CNVTABEN 00004 000488 00776   0793
CNVTB    00004 0004A8 00788   0791
CNVTC    00002 0004C6 00796   0789
CNVTDVC  00004 0004DE 00805   0717
CNVTQDEB 00004 00049C 00783   0772  0792
COMPUTE  00001 000616 01106   1167
CON0     00001 000000 00964   0988  0989  0989  0997  1012  1013  1028  1042
CVTAD    00001 000010 00973   0808  1008
CVTPT    00001 000010 00186   0412
CVTXAPG  00004 000014 00243   0414
CVTZDTAB 00001 000040 00182   0809
CVT0VL00 00004 000018 00244
C0       00001 000000 00175   0810
C1       00001 000001 00176
C14      00002 00037C 00632   0525
C2       00001 000002 00177
C3       00001 000003 00178   0720  0822
C4       00001 000004 00179
C8       00001 000008 00180   0721  0821
D        00006 00023C 00521   0512
DCBDEBAD 00004 00002C 00254   0377  0409  0470  0552
DCBDSORG 00002 00001A 00252   0593
DCBPOINT 00004 000054 00256   0363
DCTREG   00001 000009 00952   1008  1009  1009  1012  1013  1013  1017  1018  1020  1024  1031  1038  1040  1040  1041
DC1      00002 000378 00630   0351
DEBAMLNG 00001 000004 00263   0554  0697
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DEBAPPAD 00001 00001D 00271   0379  0411  0414
DEBBINUM 00002 000024 00273   0798
DEBDVMOD 00004 000020 00272   0701  0763  0805
DEBENDCC 00002 00002A 00276
DEBENDHH 00002 00002C 00277
DEBNMEXT 00001 000010 00269   0694  0755
DEBNMTRK 00002 00002E 00278   0714  0788  0801
DEBOFLGS 00001 000008 00265   0691
DEBOPATB 00001 00000C 00267   0595
DEBSTRCC 00002 000026 00274   0723  0819
DEBSTRHH 00002 000028 00275   0727  0816
DEVALT   00002 00000C 00882
DEVBYTE  00002 000004 00876
DEVCYL   00002 000000 00874
DEVKEY   00001 000008 00879
DEVOVR1  00001 000006 00877
DEVOVR2  00001 000007 00878
DEVTOL   00002 00000A 00881
DEVTRK   00002 000002 00875   0724  0814
DEVTYPE  00001 000000 00873   0718  0813
DVTHH    00001 000002 00190
D1       00001 000001 01090   1116  1129
E        00004 00025A 00529   0527
ECB      00004 000138 00159   0453  0456  0493  0496
EQU      00001 000008 00967   0990
ERCODE   00004 000164 00163   0425  0431  0438  0468  0531  0532  0537  0543  0554  0556  0561  0564  0572  0574  0580
                              0585  0586  0591  0615  0619
EXIT     00001 000003 00174   0389
E1       00004 000274 00537   0526  0616  0620
E2       00001 000270 00535   0533
F        00004 00027C 00539   0605
FF1      00004 0002F0 00584   0592  0598
FF2      00004 0002EC 00582   0579
FINDLINK 00004 000388 00635   0426  0437  0581
FINDSVC  00004 00038C 00636   0399
FINDTCBP 00004 000384 00634   0432  0558
FIRST    00008 000000 00149   0342  0383  0477  0643  0648  0652  0662  0666
FLAG1    00001 000009 00977   1018
FNDLST1  00004 000168 00164   0351  0353
FNDLST2  00008 00016C 00165   0352
FNDLST3  00004 000174 00166   0361  0611  0612
FREECORE 00001 0000D2 00382   0372
F1       00002 000280 00540
F2       00004 00031A 00602   0539
G        00004 00032A 00607   0298  0489  0513
GETCORE  00001 000074 00341   0301  0317
GG1      00006 00033C 00611   0626
GOODIO   00001 000204 00501   0498
G1       00004 00034E 00615   0608  0610
H        00004 000364 00622   0461
HERE     00001 000586 01005   1048
H256     00002 0003BE 00668   0613
IECPBLDL 00002 000110 00420   0395  0400  0419
IECPCNVT 00002 000446 00753   0474  0748  0752
IECPRLTV 00002 0003C0 00685   0683  0684
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IECZDTAB 00001 00051C 00827   0826  0829  0836  0837
IEC0SCR1 00001 000558 00884
IEFQCNVT 00001 0005F8 01049
IGC018   00001 000000 00292
IHACVT   00001 000000 00241   0413
IHADCB   00001 000000 00250   0360  0361  0407  0469
IHADEB   00001 000000 00261   0378  0410  0553  0687  0699  0710  0751  0768
IHARB    00001 000000 00283   0312  0315
INLINK   00004 00014A 00438   0428
IOB      00004 00013C 00160   0457  0481  0485
KCDS     00001 000008 00968   1024
KEYED    00001 0005C6 01026   1023
KEY2321  00001 000010 00181
LAST     00008 000180 00169   0342  0383
LOOP1    00002 000062 00334   0340
LTHLH    00001 000014 01091   1120  1121
MASK     00004 0006A4 01170   1150
MBB      00003 00015C 00161   0471
MIXED    00001 000684 01157   1101
MOVE     00006 000372 00629   0529
NEWCNT   00004 000100 00151   0518  0652
NOLNKSVC 00002 00012A 00429
NOSDS    00001 000011 00972   1038
NOTQCNVT 00001 000560 00987   0985
ONE      00001 000001 00173   0414  1045
ONEBYTE  00001 0005BA 01021   1019
ONES     00004 0006A0 01169   1109
OUTMASK  00001 00000F 00185   0595
PARM1    00001 000000 00943   0988  0991  1006  1007  1032
PARM2    00001 000002 00945   0988  0989  0997  1010  1028  1042
PDVCON   00004 000380 00633   0490
POMASK   00001 000002 00184   0593
QCRLG    00001 000024 01092   1159
QMCVTRES 00001 000000 01171   1095
QMECBA   00004 000088 01206
QMFLTM   00002 00006D 01191
QMFQR    00002 000086 01205
QMHDA    00004 000064 01189
QMHKT    00002 000074 01196
QMHPT    00001 000000 00750
QMHPT1   00002 00007C 01200
QMKTT    00002 00007A 01199   1099
QMLPT    00002 000080 01202   1111  1137
QMNHM    00002 000084 01204   1158
QMNOTM   00002 000072 01195
QMQBK    00001 00006F 01192
QMRAPG   00004 000050 01181
QMRDCB   00004 000000 01172   1180
QMRDEB   00001 000000 00749   0783
QMRDEB1  00004 000034 01178   1176
QMRECC   00002 00005E 01186
QMREHH   00002 000060 01187
QMRNTR   00002 000062 01188
QMRPS    00004 00008C 01207
QMRPT    00002 00007E 01201
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

QMRSCC   00002 00005A 01184
QMRSHH   00002 00005C 01185
QMRSV    00001 000001 01193
QMRUCB   00004 000054 01182
QMTBT    00002 000076 01197
QMTIDM   00002 000078 01198
QMTLNM   00002 000070 01194
QMTRS    00002 000082 01203
QMWTPLMT 00001 00000A 01174
RBLINK   00004 00001C 00287   0313
RBOPSW   00004 000010 00285   0316  0329
RDAREA   00004 000000 00150   0440  0458  0473  0477  0508  0509  0666
RECBYTES 00001 000652 01135   1127
RECLH    00001 0000B0 01093   1140
REG00    00001 000000 00942   0998  1029
REG01    00001 000001 00944
REG03    00001 000003 00946
REG04    00001 000004 00947
REG05    00001 000005 00948
REG06    00001 000006 00949
REG07    00001 000007 00950
REG08    00001 000008 00951
REG12    00001 00000C 00955
REG13    00001 00000D 00956
REMAIN   00001 000648 01128   1123
REPAVT   00001 000001 00183   0371  0408
REPSW    00001 000178 00167   0347  0347  0371  0408
RESTORE  00001 0000C0 00370   0366
RET      00001 000664 01144   1156
RETRG    00001 00000E 00957   0990  1043
RGA      00001 000002 00195   0299  0307  0310  0320  0321  0325  0326  0352  0368  0387  0394  0422  0422  0425  0462
                              0463  0464  0552  0553  0597
RGADDR   00001 000000 00193   0299  0353  0394  0439
RGAREA   00001 00000D 00206   0345  0346  0384  0424  0424  0446  0447  0448  0449  0450  0472  0506
RGB      00001 000003 00196   0300  0348
RGBASE   00001 00000F 00208   0420  0421  0487  0504  0541  0601
RGC      00001 000004 00197
RGD      00001 000005 00198
RGDCB    00001 000001 00194   0300  0348  0350  0350  0407  0417  0423  0423  0427  0429
RGDEB    00001 000001 00212   0686  0696  0751  0766  0767  0771  0771  0772  0792
RGE      00001 000006 00199
RGF      00001 000007 00200   0459  0479  0617  0623  0624
RGG      00001 000008 00201   0466  0480  0618  0622  0625
RGH      00001 000009 00202   0479  0482  0483  0511  0521  0536  0538  0602  0603  0617  0624  0629
RGI      00001 00000A 00203   0480  0539  0540  0542  0587  0600  0618  0625
RGJ      00001 00000B 00204   0359  0360  0406  0426  0427  0429  0434  0435  0435  0437  0469  0481  0581
RGK      00001 00000C 00205   0296  0297  0355  0392  0426  0439  0459  0460  0462  0464  0466  0524  0602
RGMBB    00001 000002 00213   0690  0720  0722  0725  0730  0770  0774  0797  0798  0818  0820  0822
RGRET    00001 00000E 00207   0354  0356  0366  0369  0391  0393  0500  0545  0557  0594  0596
RGTTR    00001 000000 00211   0685  0685  0714  0728  0729  0730  0731  0758  0769  0770  0787  0788  0801  0815
RGV      00001 000009 00214   0693  0693  0694  0695  0696  0699  0709  0753  0753  0755  0756  0760  0796  0797  0814
                              0817
RGW      00001 00000A 00215   0689  0689  0697  0701  0704  0717  0719  0719  0720  0721  0722  0723  0724  0726  0727
                              0728  0756  0764  0791  0796  0803  0812  0812  0817  0818
RGX      00001 00000B 00216   0700  0700  0701  0702  0705  0705  0706  0707  0708  0725  0726  0806  0807  0810  0810
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              0811  0815  0816  0819  0820  0821  0822
RGY      00001 00000C 00217   0688  0688  0690  0702  0706  0712  0712  0716  0718  0760  0761  0762  0763  0805  0807
                              0808  0809  0809  0810  0811  0813
RGZ      00001 00000D 00218   0686  0687  0698  0708  0710  0715  0715  0754  0757  0758  0762  0763  0764  0765  0766
                              0768  0790  0790
RLTVA    00004 000404 00714   0716
RLTVB    00004 000410 00717   0713
RLTVX    00004 0003E6 00701   0704
RLTVY    00002 0003F6 00706   0703
RLTVZ    00001 0003FE 00711   0692
R0       00001 000000 00222   0342  0362  0383  0445  0446  0451  0452  0452  0456  0510  0515  0523  0612  0613  1096
                              1097  1103  1114  1131  1133  1136  1142  1145  1149  1151  1154  1154  1161
R0ODS    00001 00000E 00970   1031
R1       00001 000001 00223   0345  0359  0362  0398  0398  0399  0509  0511  0514  0517  0607  0609  0609  0611  0622
                              0623  0629  0776  1097  1146  1147  1148  1150  1151
R10      00001 00000A 00232   0321  0322  0325  0339  0450  1115  1115  1117  1122  1122  1133  1139  1140  1141  1160
R11      00001 00000B 00233   0445  0451  0575  0577  1113  1114  1125  1129  1129  1130  1131  1138  1159  1166
R12      00001 00000C 00234   1111  1116  1116  1117  1125  1130  1138  1141
R13      00001 00000D 00235   1120  1121  1136  1137  1139  1142
R14      00001 00000E 00236   0364  0733  0795  0802  0823  1152
R15      00001 00000F 00237   0305  0357  0357  0363  0364  0365  0365  0368  0387  0476  0476  0499  0502  0540  0543
                              0544  0544  0558  0559  0559  0566  0566  0567  0587  0684  0732  0732  0752  0794  0799
                              0799  0800  1094
R2       00001 000002 00224   0409  0410  0415  0432  0433  0433  0434  0447  0453  0502  0503  0514  0515  0516  0516
                              0516  0517  0560  0560  0561  0562  0563  0578  1096  1098  1100  1103  1104  1105  1107
                              1107  1109  1113  1161  1162  1163  1164
R3       00001 000003 00225   0412  0413  0416  0506  0507  0508  1095
R4       00001 000004 00226   0448  0523  0527  0527  0528  0529  0530  0530  0531  0534  0536  0537  0538  0572  0573
                              0573  0574  0582  0584  0584  0585
R5       00001 000005 00227   0312  0314  0454  0524  0525  0528
R6       00001 000006 00228
R7       00001 000007 00229   0306  0306  0307  0309  0310  0313  0315  0330  0333  0333  0334  0335
R8       00001 000008 00230   0322  0323  0323  0329  0331  0332  0335  0449  0455  0455  0456
R9       00001 000009 00231   0320  0325  0326  0327  0328  0334  0338  0338  0339  0377  0378  0380  0567  0568  0568
                              0575  0577  1099  1100  1102  1102  1145  1158  1160  1164  1166
SAVEAVT  00001 000179 00168   0379  0411
SET1     00001 00067E 01153   1108  1110
SHFT1    00001 000008 00969
SHFT2    00001 000010 00971   0993  1014  1046
SHFT3    00001 000018 00974   0994  1011  1015
SHFT4    00001 000020 00975   0996
SKEH     00001 0003A8 00656   0482
SVC018   00001 000000 00295   0294
SWAPAVT  00001 0000F8 00402
SYSTEST  00001 0000EC 00397   0354
TAGH     00004 0002E4 00580   0570
TAGZ1    00001 0002B6 00565   0576  0578
TAGZ2    00001 0002C8 00571   0569
TCBJLB   00001 000028 00188   0434  0567
TCDS     00001 000004 00965   1040
TIXDS    00001 000040 00976   1009
TWELVE   00002 00037A 00631   0309
TWOBIT   00001 000008 00978   1018
UCBTYP   00001 000010 00189   0807
VLR      00001 0005E8 01044   0992
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

WAITLOOP 00004 0001F2 00496   0492  0497
WORKAREA 00001 000000 00148   0346
WORK1    00001 00000A 00953   0991  0993  0995  0996  0997  0998  0999  0999  1006  1014  1016  1022  1022  1024  1025
                              1027  1027  1028  1029  1030  1030  1038  1039  1039  1041  1045  1046  1047
WORK2    00001 00000B 00954   0994  0995  1007  1010  1011  1012  1012  1013  1015  1016  1017  1020  1025  1031  1032
                              1042  1047
Z10001   00002 000526 00838   0829
Z80001   00002 000534 00850   0836
Z90001   00004 000544 00860   0837



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  2712
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 1581 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM9.R0000107       SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM9.S0000108       SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM9.S0000108       DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG10    / START 78240.1945
IEF374I STEP /SG10    / STOP  78240.1945 CPU   0MIN 00.86SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:03.43   ALLOC START    19:45:03.44   MAIN REGION ----- 300K                          *
*   STEP NAME SG10       STEP END TIME  19:45:04.96   PGM START TIME 19:45:03.53   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:01.53   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.86   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 76       0250 ------------ 0       0250 ------------ 0       0151 ----------- 49       0151 ----------- 71    *
*   0151 ---------- 160       0353 ---------- 198       0151 ----------- 43       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM9  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:04.98   ALLOC START    19:45:05.00   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:05.02   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM9  / START 78240.1945
IEF376I  JOB /R21AM9  / STOP  78240.1945 CPU   0MIN 00.86SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM9     JOB READ TIME 19:44:48.84   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.86   *
*   JOB CLASS A          JOB INIT TIME 19:45:03.43   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.60   *
*   ACCOUNT              JOB END TIME  19:45:05.03   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       1       00000                              A
            RRRRRRRRR  222222222      11        AAA     MM     MM      11      0000000                            AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     111     00     00                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM      11     00    000                         AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      11     00   0 00                        AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      11     00  0  00                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM      11     00 0   00                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM      11     000    00                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM    111111    0000000                         AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    111111     00000                          AA     AA

***********A  START   R21AM10    SYS SYSA   WTR 00E   07:46:50 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM10    START  A***********
***********A  START   R21AM10    SYS SYSA   WTR 00E   07:46:50 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM10    START  A***********
***********A  START   R21AM10    SYS SYSA   WTR 00E   07:46:50 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM10    START  A***********
***********A  START   R21AM10    SYS SYSA   WTR 00E   07:46:50 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM10    START  A***********
***********A  START   R21AM10    SYS SYSA   WTR 00E   07:46:50 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM10    START  A***********


//R21AM10 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG11 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEEVIPL)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM10  SG11
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEEVIPL   SD  01 000000 000DC4
ICFBIE00  ER  02
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  SGIEE00V ,,,,,,INIT,,,L,10,1,1,100
                                      3+*
        IPL WITH MS/1 CONSOLE                                                                                  PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                5+IEEVIPL  CSECT
                                      6+* D 068000, 079324-079360                                       SA72193
                                      7+* A 064820-064980                                               SA72193
                                      8+* A 046194-046284,046344,095169                                  A52614
                                      9+* C 062600,093100,093300                                          M1874
                                     10+* A 030820-030900,093100-093300                                  A40047
                                     11+* A 088100                                                       A42562
                                     12+*                                                                 M5510
                                     13+*                                                                A31300
                                     14+*                                                                A31761
                                     15+* 000600,093400,093601,100610                                     20030
                                     16+*AABA OCIP #9,REL #16
                                     17+* 048600-048800                                                  A24430
                                     18+*1735024600-024800,028000-028200,048000,051200,051800,052250,      OC43
                                     19+*1735053000,054400,075400,079600,091600                            OC43
                                     20+* 069200,076400                                                    I270
                                     21+* 112430-112550                                                   M0035
                                     22+* 045300,049100                                                   20071
                                     23+* 095120                                                          M3230
                                     24+* 046000,046630-046640,046830-046860,047090,047120                M1866
                                     25+* 046080-046090,095132                                            M5381
                                     26+***********************************************************************
                                     27+*
                                     28+*  MODULE NAME-IEEVIPL
                                     29+*
                                     30+*  FUNCTION   -THIS IS THE FIRST MODULE OF MASTER SCHEDULER. IT IS
                                     31+*              RESPONSIBLE FOR SCHEDULER INITIALIZATION.
                                     32+*  PROGRAM
                                     33+*        FLOW -LINKS TO THE CONSOLE INITIALIZATION MODULE-IEECVCTI AND
                                     34+*              POSTS THE COMMUNICATIONS TASK
                                     35+*             -DETERMINES THE VOLUMES ON WHICH THE JOB QUEUE AND THE
                                     36+*              PROCEDURE LIBRARY WILL RESIDE.
                                     37+*             -WRITES TO THE OPERATOR THE SYSTEM 'READY' MESSAGE
                                     38+*             -WRITES-TO-OPERATOR THE INITIAL COMMANDS AVAILABLE
                                     39+*             -IN SYSTEMS WITH THE TOD CLOCK, WRITES TO THE OP-   20071
                                     40+*              ERATOR THE CURRENT TIME OF DAY, OR ASKS HIM FOR    20071
                                     41+*              SET PARAMETERS SO THAT AN INTERNAL SET COMMAND CAN 20071
                                     42+*              BE ISSUED.                                         20071
                                     43+*             -WAITS ON POSTING FROM THE SET DATE COMMAND
                                     44+*             -OR, WAITS FOR RETURN FROM SVC 34 AFTER THE VALID   20071
                                     45+*              SET COMMAND HAS BEEN PROCESSED, AND THE TOD CLOCK  20071
                                     46+*              HAS BEEN SET.                                      20071
                                     47+*             -MOVES THE MASTER TIOT-ASSEMBLED WITHIN THE IEEVIPL
                                     48+*              MODULE INTO SUPERVISOR CORE-SUBPOOL 255
                                     49+* DETERMINES WHERE THE SYS1.SYSJOBQE AND SYS1.PROCLIB DATA SETS    AABA
                                     50+* RESIDE. THE UNIT AND VOLUME ARE CHOSEN IN THE FOLLOWING HIERARCHYAABA
                                     51+* 1. THE UNIT SPECIFIED IN THE SET COMMAND                         AABA
                                     52+* 2. THE CATALOG-THE UNIT CONTAINING THE INDICATED VOLUME          AABA
                                     53+* 3. THE UNIT SPECIFIED AT SYSGEN TIME                             AABA
                                     54+* 4. THE IPL VOLUME                                                AABA
                                     55+*             -CATALOGS SYS1.PROCLIB
                                     56+*             -SETS INTO THE TIOT THE UCB POINTERS FOR QUEUE AND PROCLB
                                     57+*             -ATTACHES THE JOB QUEUE INITIALIZATION TASK -IEFQINTZ
                                     58+*             -WAITS ON TASK COMPLETION
                                     59+*             -DETACHES THE QUEUE INITIALIZATION TASK
        IPL WITH MS/1 CONSOLE                                                                                  PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     60+*             -WRITES-TO-OPERATOR COMMANDS SELECTED THROUGH THE SET
                                     61+*              DATE COMMAND AND SCHEDULES THEIR EXECUTION
                                     62+*             -PASSES CONTROL TO THE MASTER SCHEDULER WAIT MODULE
                                     63+*               IEEVWAIT
                                     64+*              -PASSES CONTROL TO LOG INITIALIZATION VIA XCTL IF LOG
                                     65+*               IS IN SYSTEM
                                     66+*              -PASSES CONTROL TO SYS1.BRODCAST INITIALIZATION VIA LINK
                                     67+*               IF TSO IS IN SYSTEM
                                     68+*
                                     69+*  ENTRY      -LINK FROM NIP -NUCLEUS INITIALIZATION
                                     70+*
                                     71+*  EXTERNAL   -IEECVCTI-CONSOLE INITIALIZATION
                                     72+*   REFERENCES-IEEVLIN-LOG INITIALIZATION
                                     73+*             -IEE0503D-WTO MESSAGE MODULE- ERROR EXIT
                                     74+*             -IEEVWAIT-NORMAL EXIT
                                     75+*             -IEEVSIPL-SYS1.BRODCAST INITIALIZATION              20030
                                     76+*
                                     77+*  ATTRIBUTES -NONREENTRANT
                                     78+*             -CHARACTER DEPENDENCE-TYPE C
                                     79+*
                                     80+*  MACROS AND -CVT -COMMUNICATIONS VECTOR TABLE MAPPING
                                     81+*    MAPPINGS -IEFVTIOT-MASTER TIOT
                                     82+*             -IEEBASEA-MAPPING OF MASTER RESIDENT CORE
                                     83+*             -IEEXSA-MAPPING OF EXTENDED SAVE AREA
                                     84+*             -IEFUCBOB-MAPPING OF THE UNIT CONTROL BLOCK
                                     85+*             -LINK                     -ATTACH
                                     86+*             -GETMAIN                  -FREEMAIN
                                     87+*             -WRITE-TO-OPERATOR        -DETACH
                                     88+*             -POST                     -MGCR
                                     89+***********************************************************************
                                     90+*
                                     91+*SYMBOL        VALUE     RTN USED(BY LABEL)       FOR PURPOSE
                                     92+*
000000                               93+R0       EQU   0
000001                               94+R1       EQU   1
000002                               95+R2       EQU   2 IP500,                             WORK
000003                               96+R3       EQU   3 IP700
000004                               97+R4       EQU   4
000005                               98+R5       EQU   5 IP100,IP300,IP400,IP500,IP700      WORK
000006                               99+R6       EQU   6 IP400,IP700,                       WORK
000007                              100+R7       EQU   7 IP400                              WORK
000008                              101+R8       EQU   8 ALL                      PROGRAM BASE     OC43
000009                              102+R9       EQU   9 IP300,IP400,IP600,IP700  RETURN REG       OC43
00000A                              103+R10      EQU   10 ALL                      VTIOT BASE
00000B                              104+R11      EQU   11 ALL                      RESIDENT CORE BASE
00000C                              105+R12      EQU   12 ALL                      CVT BASE
00000D                              106+R13      EQU   13 ALL                      REGISTER SAVE POINTER
00000E                              107+R14      EQU   14
00000F                              108+R15      EQU   15
000002                              109+TWO      EQU   2 A31761
000003                              110+THREE    EQU   3 A31761
000004                              111+FOUR     EQU   4 A31761
00002C                              112+CODEDISP EQU   44 IP516                                    A31761
0000F0                              113+FOXZERO  EQU   240 A31761
                                    114+*
        IPL WITH MS/1 CONSOLE                                                                                  PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    115+*
                                    116+***********************************************************************
                                    117+***********************************************************************
                                    118+*                                                                     *
                                    119+*                               CONSTANTS USED BY TOD CLOCK       20071
                                    120+*                               ROUTINE FOR OFFSETS,LENGTHS,ETC.  20071
000000                              121+K0       EQU   0 **                 20071
000001                              122+K1       EQU   1 **                 20071
000002                              123+K2       EQU   2 **                 20071
000003                              124+K3       EQU   3 **                 20071
000004                              125+K4       EQU   4 **                 20071
000005                              126+K5       EQU   5 **                 20071
000006                              127+K6       EQU   6 **                 20071
000007                              128+K7       EQU   7 **                 20071
000008                              129+K8       EQU   8 **                 20071
00000C                              130+K12      EQU   12 **                 20071
00000D                              131+K13      EQU   13 **                 20071
00000F                              132+K15      EQU   15 **                 20071
00001A                              133+K26      EQU   26 **                 20071
000077                              134+K119     EQU   119 **                 20071
000020                              135+BITS32   EQU   32 **                 20071
00003C                              136+SIXTY    EQU   60 FIRST YEAR OF TOD CLOCK        20071
000000                              137+HEX00    EQU   X'00' MASK FOR COND CODE 0           20071
000003                              138+HEX03    EQU   X'03' MASK FOR COND CODE 2           20071
0000DD                              139+HEXDD    EQU   X'DD' MASK FOR NO SET, INTRN SET BITS20071
000040                              140+BLANK    EQU   C' ' BLANK CHARACTER                20071
00004B                              141+DOT      EQU   C'.' 'DOT' CHARACTER                20071
00007D                              142+QUOTE    EQU   C'''' 'QUOTE' CHARACTER              20071
                                    143+***********************************************************************
00000C                              144+TCBTIO   EQU   12
000064                              145+CAT      EQU   100 CATALOG INDICATOR
00004C                              146+STATUS   EQU   76 SVC 76                     20070
                                    147+*
                                    148+*
                                    149+***********************************************************************
                                    150+*              INITIALIZE SYSTEM TO SYSTEM RESIDENCE
                                    151+*                UCB POINTERS LOCATED VIA CVT
                                    152+***********************************************************************
000000 0580                         153+         BALR  R8,0 SET BASE REG                OC43
000002                              154+         USING *,R8 OC43
000002 5090 8C82            00C84   155+         ST    R9,PARMSAVE SAVE PARMLIB UCB POINTER    OC43
000006 47F0 8018            0001A   156+         B     IP001
00000A EEEE                         157+         DC    X'EEEE'
00000C C9C5C5E5C9D7D340             158+         DC    CL8'IEEVIPL' MODULE IDENTIFICATION
000014 02171969                     159+         DC    X'02171969'
000018 EEEE                         160+         DC    X'EEEE'

                                    162+**********************************************************************

00001A                              164+IP001    DS    0H
00001A 58C0 0010            00010   165+         L     R12,CVTPTR
000000                              166+         USING CVT,R12
00001E 58B0 C094            00094   167+         L     R11,CVTMSER
000000                              168+         USING BASE,R11
                                    169+*                                                                A40047
        IPL WITH MS/1 CONSOLE                                                                                  PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    170+* THE FOLLOWING GETMAIN IS FOR 8 BYTES OUT OF SUBPOOL 250 AND    A40047
                                    171+* THE SOLE PURPOSE OF IT IS TO SET UP THE MASTER'S REGION.       A40047
                                    172+* THE MASTER'S REGION, IN ORDER TO ENSURE DESIGN POINTS BEING    A40047
                                    173+* MET, MUST HAVE ITS SUBPOOL 250 (0) CORE IN THE HIGHEST         A40047
                                    174+* 2K SLOT OF THE MASTER'S REGION. THESE 8 BYTES WILL NEVER       A40047
                                    175+* BE FREED TO KEEP THIS CONFIGURATION.                           A40047
000022 0700                         176+         CNOP  0,4
000024 4510 802A            0002C   177+         BAL   1,*+8 BRANCH AROUND SP+LV
000028 FA                           178+         DC    AL1(250) SUBPOOL VALUE
000029 000008                       179+         DC    AL3(8) LENGTH
00002C 5801 0000            00000   180+         L     0,0(1,0) LOAD SP AND LV
000030 0A0A                         181+         SVC   10 ISSUE GETMAIN SVC

000032 0700                         183+         CNOP  0,4
000034 4510 803A            0003C   184+         BAL   1,*+8 BRANCH AROUND SP+LV
000038 FF                           185+         DC    AL1(255) SUBPOOL VALUE
000039 000048                       186+         DC    AL3(72) LENGTH
00003C 5801 0000            00000   187+         L     0,0(1,0) LOAD SP AND LV
000040 0A0A                         188+         SVC   10 ISSUE GETMAIN SVC
000042 1851                         189+         LR    R5,R1
000044 18D1                         190+         LR    R13,R1 STANDARD SAVE PTR
                                    191+*                                 CONSOLE INITIALIZATION
000046 0700                         192+         CNOP  0,4
000048 45F0 805A            0005C   193+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
00004C 00000054                     194+         DC    A(*+8) ADDR OF EP PARAMETER
000050 00000000                     195+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000054 C9C5C5C3E5C3E3C9             196+         DC    CL8'IEECVCTI' EP PARAMETER
00005C 0A06                         197+         SVC   6 ISSUE LINK SVC
                                    198+*
00005E 1B00                         199+         SR    R0,R0
000060 4110 B00C            0000C   200+         LA    R1,BAIPL ECB ADDRESS
                                    201+*
000064 4110 1000            00000   202+         LA    1,0(0,1) . LOAD ECB REG 1, CLEAR HI BYTE
000068 0A02                         203+         SVC   2 . ISSUE THE POST SVC
00006A 1815                         204+         LR    R1,R5
                                    205+*
00006C                              206+         CNOP  0,4
00006C 47F0 8072            00074   207+         B     *+8 BRANCH AROUND SP+LV
000070 FF                           208+         DC    AL1(255) SUBPOOL VALUE
000071 000048                       209+         DC    AL3(72) LENGTH
000074 5800 806E            00070   210+         L     0,*-4 LOAD SP AND LV
000078 4111 0000            00000   211+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
00007C 0A0A                         212+         SVC   10 ISSUE FREEMAIN SVC         P2504
                                    213+*
                                    214+*
                                    215+**********************************************************************
                                    216+*                            CONTINUE HERE AFTER INITIALIZATION.
00007E                              217+IP100    EQU   *

00007E 41D0 8CBE            00CC0   219+         LA    R13,IPREGSV
000082 58C0 0010            00010   220+         L     R12,CVTPTR CVT BASE
                                    221+*                                IEFJOB APPENDAGE PTR.
000086 5810 C00C            0000C   222+         L     R1,CVTJOB
00008A D203 1050 C014 00050 00014   223+         MVC   80(4,R1),CVTXAPG
                                    224+*                                      DATE SIGN-CODE.
        IPL WITH MS/1 CONSOLE                                                                                  PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000090 4110 000F            0000F   225+         LA    R1,15 'F' FOR SIGN.
000094 5010 C038            00038   226+         ST    R1,CVTDATE
                                    227+*
000098 58B0 C094            00094   228+         L     R11,CVTMSER MASTER RESIDENT CORE BASE
00009C D700 B00C B00C 0000C 0000C   229+         XC    BAIPL,BAIPL CLEARED FOR SET COMMAND.
0000A2 947F B020      00020         230+         NI    BASFL,255-BAIN AND CLEAR IPL SWITCH
0000A6 D707 B010 B010 00010 00010   231+         XC    BAQ(8),BAQ JOBQE AND PROCLIB UCB POINTERS ZERO  AABA
                                    232+***********************************************************************
                                    233+*
                                    234+*              WRITES READY MESSAGE TO OPERATOR, BRANCHES TO
                                    235+*              COMMAND WRITE SUBROUTINE (IP700) WHICH RETURNS CONTROL
                                    236+*              TO AWAIT POSTING FROM SET COMMAND
                                    237+*              OR, IN SYSTEMS WITH TOD CLOCK SUPPORT, WRITES A    20071
                                    238+*              MESSAGE TO THE OPERATOR TO WHICH HE MUST REPLY     20071
                                    239+*              WITH SET PARAMETERS OR 'U', ISSUES AN INTERNAL SET 20071
                                    240+*              COMMAND, AND WAITS FOR RETURN FROM SVC 34.         20071
                                    241+*              ON RETURN FROM SVC 34, IF THE SET COMMAND IS IN-   20071
                                    242+*              VALID, REISSUES THE WTOR ASKING FOR SET PARAMETERS.20071
                                    243+*              NOTES.STOP AREA IS PRESET FOR NO STOPS=ALL N'S AND
                                    244+*                    FLAG SET TO WTO ONLY ON ENTERING COMMAND WRITE
                                    245+*                    SUBROUTINE
                                    246+*                   .STOP AREA MADE AVAILABLE TO STOP COMMAND BEFORE
                                    247+*                    AWAITING SET COMMAND
                                    248+*
                                    249+***********************************************************************
                                    250+*
0000AC                              251+IP300    EQU   *
0000AC 4110 8BFA            00BFC   252+         LA    R1,RDYMSG ISSUE 'READY' MESSAGE       XMCS
0000B0 0A23                         253+         SVC   35 ISSUE SVC
                                    254+*
                                    255+***********************************************************************
                                    256+*             ROUTINE CREATES TIOT BY GETMAIN FROM CORE SUBPOOL 255
                                    257+*               AND MOVING THE MASTER TIOT ASSEMBLED WITHIN THE
                                    258+*              IPL MODULE BY MACRO IEFVTIOT INTO THE GOTTEN CORE
                                    259+*              TIOT IS REQUIRED FOR LOG INITIALIZATION
                                    260+***********************************************************************
0000B2 4150 8AE2            00AE4   261+         LA    R5,CB8 PT TO STOP INDICATOR      A24430
0000B6 5050 B018            00018   262+         ST    R5,BACV AREA BEFORE WAIT          A24430
0000BA 5800 8B26            00B28   263+         L     R0,CX108 108 BYTES OF SUBPOOL 255  LMCS
                                    264+*                                      OR NOLOG EXCLUDES LOG
0000BE 5E00 8952            00954   265+         AL    R0,LOGTIOT IF LOG ADD TIOT SPACE     LMCS
0000C2 D201 B01E 8B37 0001E 00B39   266+         MVC   BALOG+2(2),IPLCS SAVE OPTIONS FOR LOG INITIAL LM
0000C8 5E00 8D5E            00D60   267+         AL    R0,SMFTIOT ADD SMF TIOT SIZE            SMF
0000CC 5E00 8D5A            00D5C   268+         AL    R0,SENDTIOT ADD TIOT FOR SYS1.BROADCAST     20030
0000D0 4510 80D2            000D4   269+         BAL   1,*+4 INDICATE GETMAIN
0000D4 0A0A                         270+         SVC   10 ISSUE GETMAIN SVC
0000D6 41A0 8C16            00C18   271+         LA    R10,VTIOT
0000DA D26B 1000 A000 00000 00000   272+         MVC   0(108,R1),0(R10) MOVE TIOT INTO GOTTEN CORE LMCS
0000E0 18A1                         273+         LR    R10,R1 SETUP TIOT BASE
000C18                              274+         USING VTIOT,R10
0000E2 5820 C000            00000   275+         L     R2,CVTTCBP LOCATE TCB
0000E6 5822 0004            00004   276+         L     R2,4(R2)
0000EA 50A2 000C            0000C   277+         ST    R10,TCBTIO(R2) STORE TIOT PTR IN TCB
0000EE 9200 8AEA      00AEC         278+         MVI   CB1,X'00' FLAG-00=WTO ONLY-NO MGCR
0000F2 4190 80F8            000FA   279+         LA    R9,IP308 SET WRITE COMMAND RETURN    OC43
        IPL WITH MS/1 CONSOLE                                                                                  PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000F6 47F0 87DC            007DE   280+         B     IP700 GO WRITE COMMANDS
                                    281+*
0000FA                              282+IP308    EQU   * A24430
                                    283+***********************************************************************
                                    284+*                                                                     *
                                    285+*       THIS ROUTINE HANDLES TOD CLOCK SUPPORT                    20071
                                    286+*                                                                     *
                                    287+* 1. STCK IS ISSUED TO DETERMINE THE STATE OF THE TOD CLOCK-      20071
                                    288+*         CONDITION CODE 0 = CLOCK SET                            20071
                                    289+*         CONDITION CODE 1 = CLOCK NOT SET                        20071
                                    290+*         CONDITION CODE 2 = CLOCK IN ERROR STATE                 20071
                                    291+* 2. IF CC=0, THE TOD VALUE IS CONVERTED TO DECIMAL AND MESSAGE   20071
                                    292+*    IEE114A IS ISSUED.  THE OPERATOR CAN REPLY WITH ANY VALID    20071
                                    293+*    SET PARAMETERS OR 'U'.                                       20071
                                    294+* 3. IF CC=1 OR 2,MESSAGE IEE116A IS ISSUED. THE OPERATOR CAN     20071
                                    295+*    REPLY WITH ANY VALID SET PARAMETERS,BUT HE MUST INCLUDE AT   20071
                                    296+*    LEAST DATE.                                                  20071
                                    297+* 4. AN INTERNAL SET COMMAND IS BUILT USING THE OPERATOR'S PARAM- 20071
                                    298+*    ETERS AND/OR TOD VALUES, AND SVC 34 IS ISSUED.(MGCR)         20071
                                    299+* 5. ON RETURN FROM SVC 34, IF THE SET COMMAND IS INVALID, THE    20071
                                    300+*    ORIGINAL MESSAGE WILL BE REPEATED UNTIL A VALID COMMAND IS   20071
                                    301+*    RECEIVED.                                                    20071
                                    302+* 6. THE ' NO IPL ' BIT IS TURNED OFF.                            20071
                                    303+***********************************************************************
0000FA 94DD B020      00020         304+         NI    BASFL,HEXDD TURN OFF NO SET, INTRN SET BITS20071
0000FE 9120 C0B7      000B7         305+         TM    CVTOPTB,CVTTOD IS TOD SUPPORTED               20071
000102 4780 830A            0030C   306+         BZ    NOTOD NO, BRANCH AROUND TOD CODE     20071
000106 B205 895E      00960         307+         STCK  TIMEAREA READ THE TOD VALUE             20071
00010A 4780 812C            0012E   308+         BZ    CCZERO IF CC IS 0, GO TO CONVERT RTN  20071
00010E 4740 8118            0011A   309+         BC    K4,CCONE IF CC IS 1, SET BITS TO X'01'  20071
000112 9603 8AB3      00AB5         310+         OI    CCBITS,HEX03 CC IS 2, SET BITS TO X'11'     20071
000116 47F0 811C            0011E   311+         B     TODWTOR1 GO SET UP FOR WTOR             20071
00011A                              312+CCONE    EQU   * 20071
00011A 9601 8AB3      00AB5         313+         OI    CCBITS,BA7 SET BIT TO 1 FOR CC=1          20071
00011E                              314+TODWTOR1 EQU   * 20071
00011E 9103 8AB3      00AB5         315+         TM    CCBITS,HEX03 WAS CC=0 (CLOCK IS SET WITH    M1866
                                    316+*                                  YEAR 2000 OR MORE)             M1866
000122 4780 8118            0011A   317+         BZ    CCONE CHANGE CCBITS TO CC=1          M1866
000126 4110 8966            00968   318+         LA    R1,TODMSG1 PUT MSG ADDR IN REG1 FOR WTOR  20071
00012A 47F0 8218            0021A   319+         B     SETWTOR GO SET UP FOR WTOR,TOD INVALID 20071
00012E                              320+CCZERO   EQU   * 20071
00012E 9400 8AB3      00AB5         321+         NI    CCBITS,HEX00 INDICATE CC=0 (BITS=00)        20071
                                    322+***********************************************************************
                                    323+*                                                                     *
                                    324+*                 TOD CLOCK CONVERSION ROUTINE                    20071
                                    325+*                                                                     *
                                    326+***********************************************************************
                                    327+* NOTES-                                                          20071
                                    328+*                                                                     *
                                    329+*    THE TOD CLOCK IS A DOUBLE WORD WHOSE HIGH-ORDER WORD IS      20071
                                    330+*    VALID TO 1.048576 MICRO SECONDS.  TO CALCULATE THE EXACT     20071
                                    331+*    NUMBER OF SECONDS, THE NUMBER OF MICRO SECONDS IN THE HIGH   20071
                                    332+*    ORDER WORD IS MULTIPLIED BY 16384 AND DIVIDED BY 15625. THIS 20071
                                    333+*    IS THE SAME AS MULIIPLYING BY 1.048576, BUT ELIMINATES THE   20071
                                    334+*    DECIMAL POINT.                                               20071
        IPL WITH MS/1 CONSOLE                                                                                  PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    335+*    THE CONSTANTS, 16384 AND 15625 ARE ALSO USED BY IEE6503D,    20071
                                    336+*    AND THERE WILL BE A TIME DISCREPANCY IF THEY ARE UPDATED IN  20071
                                    337+*    ONE MODULE AND NOT THE OTHER.                                20071
                                    338+*    THE TOD CLOCK STARTS AT JAN 1,1960 AND RUNS FOR 142 YEARS.   20071
                                    339+*    HOWEVER, THIS ROUTINE DOES NOT RECOGNIZE ANY YEAR OVER 1999  20071
                                    340+*    AS VALID. ANY YEAR GREATER THAN 1999 WILL BE TREATED AS IF   M1866
                                    341+*    THE CONDITION CODE FROM THE STORE CLOCK(STCK) HAD BEEN = 1.  M1866
                                    342+***********************************************************************
000132                              343+CONVERT  EQU   * 20071
000132 5870 895E            00960   344+         L     R7,TIMEAREA LOAD HIGH ORDER WORD OF TOD    20071
                                    345+*                                  CLOCK-VALID TO 1.048576 MIC SEC20071
000136 5570 8AB6            00AB8   346+         CL    R7,YR2000 IS TOD GT JAN 1,2000           M5381
00013A 47B0 811C            0011E   347+         BNL   TODWTOR1 YES,ERROR. TOD INVALID         M5381
00013E 5C60 8ABA            00ABC   348+         M     R6,D16384 TOD VALUE MULT BY DEC 16384    20071
000142 5D60 8ABE            00AC0   349+         D     R6,D15625 DIVIDE BY DECIMAL 15625 FOR    20071
                                    350+*                                  NUMBER OF SECONDS IN TOD CLOCK 20071
000146 1766                         351+         XR    R6,R6 CLEAR REMAINDER REG            20071
000148 5D60 8AC2            00AC4   352+         D     R6,D86400 DIV BY SEC PER DAY TO GET DAYS 20071
00014C 1846                         353+         LR    R4,R6 SAVE CONTENTS-REM=HH.MM.SS     20071
00014E 5970 8ACA            00ACC   354+         C     R7,D366 IS NO. DAYS LESS THAN 366      20071
000152 4740 81A8            001AA   355+         BL    LOWYEAR YES. YEAR IS 1960              20071
000156 5B70 8ACA            00ACC   356+         S     R7,D366 SUBTRACT 366 FROM NO. DAYS     20071
00015A 1766                         357+         XR    R6,R6 ZERO REMAINDER REG             20071
00015C 5D60 8ADE            00AE0   358+         D     R6,D1461 DIV NO.DAYS LEFT BY NO.DAYS    20071
                                    359+*                                  IN 4 YEARS- COUNTS LEAP YEAR   20071
000160 1857                         360+         LR    R5,R7 SAVE NO. 4 YEAR BLOCKS         20071
000162 5960 8ADA            00ADC   361+         C     R6,D1460 CK FOR LAST DAY OF LEAP YEAR  A52614
000166 4770 8174            00176   362+         BNE   NOTLAST BRANCH IF NO                  A52614
00016A 4170 0003            00003   363+         LA    R7,N3 SET QUOTIENT TO 3 YEARS       A52614
00016E 5860 8AC6            00AC8   364+         L     R6,D365 SET REMAINDER TO 365 DAYS     A52614
000172 47F0 817C            0017E   365+         B     LASTDAY GO TO FIGURE LAST DAY OF LEAP A52614
000003                              366+N3       EQU   3 A52614
000176                              367+NOTLAST  EQU   * A52614
000176 8C60 0020            00020   368+         SRDL  R6,BITS32 MOVE EVEN REG TO ODD REG       20071
00017A 5D60 8AC6            00AC8   369+         D     R6,D365 GET NO. YRS SINCE LEAP YEAR    20071
00017E                              370+LASTDAY  EQU   * A52614
00017E 4177 003C            0003C   371+         LA    R7,SIXTY(R7) ADD NO. YEARS SINCE LEAP YEAR  20071
                                    372+*                                  TO 1960(FIRST YEAR OF CLOCK)   20071
000182 8950 0002            00002   373+         SLL   R5,K2 NO. OF YEARS = NO. OF FOUR     20071
                                    374+*                                  YEAR BLOCKS TIMES FOUR         20071
000186 1A75                         375+         AR    R7,R5 ADD NO. OF 4 YEAR BLKS TO (60+ 20071
                                    376+*                                  NO. OF YEARS SINCE LEAP YEAR   20071
                                    377+*   NOTE- IT IS NECESSARY TO ADD 1,BECAUSE THE CLOCK STARTS AT 0  20071
                                    378+*         ON JAN 1,1960, BUT WE REFER TO THAT DAY AS DAY 1.       20071
000188 4177 0001            00001   379+         LA    R7,K1(R7) ADD ONE. TOTAL= CURRENT YEAR   20071
00018C 4166 0001            00001   380+         LA    R6,K1(R6) ADD ONE. TOTAL= CURRENT DAY    20071
000190 4C70 8AB4            00AB6   381+         MH    R7,TEN SET UP YEAR FOR CVD            20071
000194 4E70 8956            00958   382+         CVD   R7,DOUBLE MAKE YEAR PACKED DECIMAL       20071
000198 F321 8A84 895C 00A86 0095E   383+         UNPK  YDATE(K3),DOUBLE+K6(K2) UNPACK YEAR (YY)          20071
00019E 4C60 8AB4            00AB6   384+         MH    R6,TEN SET UP FOR CVD                 20071
0001A2 4E60 8956            00958   385+         CVD   R6,DOUBLE MAKE DAY PACKED DECIMAL        20071
0001A6 47F0 81BA            001BC   386+         B     SETDAY GO PUT DDD IN BUFFER           20071
0001AA                              387+LOWYEAR  EQU   * 20071
0001AA D201 8A84 8AD0 00A86 00AD2   388+         MVC   YDATE(K2),D60 YEAR IS 1960                   20071
0001B0 4177 0001            00001   389+         LA    R7,K1(R7) ADD ONE DAY FOR LEAP YEAR      20071
        IPL WITH MS/1 CONSOLE                                                                                  PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0001B4 4C70 8AB4            00AB6   390+         MH    R7,TEN SET UP DAY FOR CVD             20071
0001B8 4E70 8956            00958   391+         CVD   R7,DOUBLE MAKE DAY PACKED DECIMAL        20071
0001BC                              392+SETDAY   EQU   * 20071
0001BC F332 8A87 895B 00A89 0095D   393+         UNPK  DDATE(K4),DOUBLE+K5(K3) UNPACK DAY (DDD)          20071
0001C2 924B 8A86      00A88         394+         MVI   YDATE+K2,DOT SET UP FOR COMMAND (YY.DDD)   20071
0001C6 1874                         395+         LR    R7,R4 GET HOURS, MIN, SEC           20071
0001C8 1766                         396+         XR    R6,R6 ZERO REMAINDER REG            20071
0001CA 5D60 8AD6            00AD8   397+         D     R6,D3600 DIVIDE BY NO.SEC PER HOUR     20071
0001CE 4C70 8AB4            00AB6   398+         MH    R7,TEN SET UP HOURS FOR CVD          20071
0001D2 4E70 8956            00958   399+         CVD   R7,DOUBLE MAKE HOURS PACKED DECIMAL     20071
0001D6 F321 8A8A 895C 00A8C 0095E   400+         UNPK  HTIME(K3),DOUBLE+K6(K2) UNPACK HOURS (HH)         20071
0001DC 924B 8A8C      00A8E         401+         MVI   HTIME+K2,DOT SET UP FOR COMMAND (HH.MM.SS) 20071
0001E0 8C60 0020            00020   402+         SRDL  R6,BITS32 MOVE MIN AND SEC INTO ODD REG 20071
0001E4 1766                         403+         XR    R6,R6 ZERO REMAINDER REG            20071
0001E6 5D60 8AD2            00AD4   404+         D     R6,F60 DIVIDE BY NO. SEC PER MINUTE  20071
0001EA 4C70 8AB4            00AB6   405+         MH    R7,TEN SET UP MINUTES FOR CVD        20071
0001EE 4E70 8956            00958   406+         CVD   R7,DOUBLE MAKE MINUTES PACKED DECIMAL   20071
0001F2 F321 8A8D 895C 00A8F 0095E   407+         UNPK  MTIME(K3),DOUBLE+K6(K2) UNPACK MINUTES (MM)        20071
0001F8 924B 8A8F      00A91         408+         MVI   MTIME+K2,DOT SET UP FOR COMMAND (HH.MM.SS) 20071
0001FC 4C60 8AB4            00AB6   409+         MH    R6,TEN SET UP SECONDS FOR CVD        20071
000200 4E60 8956            00958   410+         CVD   R6,DOUBLE MAKE SECONDS PACKED DECIMAL   20071
000204 F321 8A90 895C 00A92 0095E   411+         UNPK  STIME(K3),DOUBLE+K6(K2) UNPACK SECONDS (SS)       20071
00020A                              412+TODWTOR2 EQU   * 20071
00020A 4110 89AA            009AC   413+         LA    R1,TODMSG2 GET ADDR OF WTOR MSG           20071
00020E D205 89C3 8A84 009C5 00A86   414+         MVC   MSGCHNG+K13(K6),YDATE PUT CURRENT TOD DATE IN MSG  20071
000214 D207 89D0 8A8A 009D2 00A8C   415+         MVC   MSGCHNG+K26(K8),HTIME PUT CURRENT TOD TIME IN MSG  20071
00021A                              416+SETWTOR  EQU   * 20071
00021A 9240 8A0A      00A0C         417+         MVI   TODREPLY,BLANK PUT BLANK IN FIRST BYTE        20071
00021E D276 8A0B 8A0A 00A0D 00A0C   418+         MVC   TODREPLY+K1(K119),TODREPLY CLEAR REPLY AREA       20071
000224 9200 89FE      00A00         419+         MVI   TODECB,HEX00 CLEAR ECB FOR TOD MSG WTOR     20071
000228 41F0 8A0A            00A0C   420+         LA    15,TODREPLY LOAD REPLY ADDR                 M4520
00022C 50F1 0000            00000   421+         ST    15,0(1,0) STORE RPLY ADDR                 M4520
000230 9278 1000      00000         422+         MVI   0(1),120 MOVE IN REPLY LENGTH
000234 41E0 89FE            00A00   423+         LA    14,TODECB LOAD ADDRESS OF ECB
000238 50E1 0004            00004   424+         ST    14,4(1,0) STORE ECB ADDRESS
00023C 0A23                         425+         SVC   35 ISSUE WTOR SVC
00023E 4110 89FE            00A00   426+         LA    1,TODECB LOAD PARAMETER REG 1
000242 4100 0001            00001   427+         LA    0,1(0,0) COUNT OMITTED,1 USED
000246 0A01                         428+         SVC   1 LINK TO WAIT ROUTINE
000248 4150 8A0A            00A0C   429+         LA    R5,TODREPLY GET ADDR OF REPLY              20071
00024C D501 5000 8ACE 00000 00AD0   430+         CLC   K0(K2,R5),U YES. WAS REPLY 'U'             20071
000252 4770 826C            0026E   431+         BNE   DATECHK NO. SEE IF DATE WAS SPECIFIED  20071
000256 9103 8AB3      00AB5         432+         TM    CCBITS,HEX03 WAS YHE CC=0                   20071
00025A 4770 82EC            002EE   433+         BNZ   SETUP NO, GO ISSUE SET COMMAND       20071
00025E D204 8A0A 8A94 00A0C 00A96   434+         MVC   TODREPLY(K5),DATE MOVE 'DATE=' INTO BUFFER       20071
000264 D205 8A0F 8A84 00A11 00A86   435+         MVC   TODREPLY+K5(K6),YDATE MOVE YY.DDD INTO BUFFER     20071
00026A 47F0 82E8            002EA   436+         B     NOSET GO SET NO SET BIT              20071
00026E                              437+DATECHK  EQU   * 20071
00026E D504 5000 8A94 00000 00A96   438+         CLC   K0(K5,R5),DATE WAS 'DATE=' SPECIFIED          20071
000274 4780 82A4            002A6   439+         BE    TIMECHK YES. CHECK FOR 'CLOCK='        20071
000278 D504 5000 8A99 00000 00A9B   440+         CLC   K0(K5,R5),LOWCASE1 WAS IT LOWER CASE 'DATE='      M1866
00027E 4780 82A4            002A6   441+         BE    TIMECHK YES. CHECK FOR 'CLOCK='        M1866
000282 4155 0001            00001   442+         LA    R5,K1(R5) NO. POINT TO NEXT CHAR         20071
000286 9540 5000      00000         443+         CLI   K0(R5),BLANK IS CHAR BLANK(END OF COMMAND)  20071
00028A 4770 826C            0026E   444+         BNE   DATECHK NO. CHECK FOR 'DATE=' AGAIN    20071
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00028E 9103 8AB3      00AB5         445+         TM    CCBITS,HEX03 IS CC=0                        20071
000292 4770 82EC            002EE   446+         BNZ   SETUP NO. ERROR. PASS CMND AS IS     20071
000296 D205 5000 8A93 00000 00A95   447+         MVC   K0(K6,R5),COMDATE YES. ADD 'DATE=' TO PARAMS     20071
00029C D205 5006 8A84 00006 00A86   448+         MVC   K6(K6,R5),YDATE DATE=TOD DATE FOR SET COMMAND  20071
0002A2 4155 0001            00001   449+         LA    R5,K1(R5) ADD 1 SO REG POINTS TO 'DATE=' 20071
0002A6                              450+TIMECHK  EQU   * 20071
0002A6 1865                         451+         LR    R6,R5 SAVE POINTER TO 'DATE='        20071
0002A8 4150 8A0A            00A0C   452+         LA    R5,TODREPLY POINT TO START OF REPLY        20071
0002AC                              453+TIMECHK2 EQU   * 20071
0002AC D505 5000 8A9F 00000 00AA1   454+         CLC   K0(K6,R5),CLOCK WAS 'CLOCK=' SPECIFIED         20071
0002B2 4780 82EC            002EE   455+         BE    SETUP 'DATE=', 'CLOCK=' SPECIFIED    20071
0002B6 D505 5000 8AAD 00000 00AAF   456+         CLC   K0(K6,R5),LOWCASE2 WAS IT LOWER CASE 'CLOCK='     M1866
0002BC 4780 82EC            002EE   457+         BE    SETUP YES. GO ISSUE COMMAND          M1866
0002C0 4155 0001            00001   458+         LA    R5,K1(R5) POINT TO NEXT CHAR             20071
0002C4 9540 5000      00000         459+         CLI   K0(R5),BLANK IS CHARACTER BLANK(END OF CMND)20071
0002C8 4770 82AA            002AC   460+         BNE   TIMECHK2 NO. CHECK FOR 'CLOCK='         20071
0002CC 1815                         461+         LR    R1,R5 TEMP SAVE PTR TO COMMAND END   20071
0002CE 9103 8AB3      00AB5         462+         TM    CCBITS,HEX03 WHAT IS COND CODE FROM STCK    20071
0002D2 4780 82DE            002E0   463+         BZ    DATECHK2 CC=0. SEE IF TOD DATE=REPLY    20071
                                    464+*                                  DATE. IF YES,TOD WONT BE SET   20071
0002D6 D20E 5000 8A9E 00000 00AA0   465+         MVC   K0(K15,R5),COMCLOCK CC NOT 0- CLOCK=00.00.00       M1866
0002DC 47F0 82EC            002EE   466+         B     SETUP GO ISSUE SET COMMAND           20071
0002E0                              467+DATECHK2 EQU   * 20071
0002E0 D505 6005 8A84 00005 00A86   468+         CLC   K5(K6,R6),YDATE IS REPLY DATE=TOD DATE         20071
0002E6 4770 82EC            002EE   469+         BNE   SETUP NO. GO ISSUE SET COMMAND       20071
0002EA                              470+NOSET    EQU   * 20071
0002EA 9602 B020      00020         471+         OI    BASFL,BANOSET TURN ON NO SET BIT             20071
0002EE                              472+SETUP    EQU   * 20071
0002EE 1700                         473+         XR    R0,R0 ZERO REG0- INDICATE SYSTEM     20071
                                    474+*                                  COMMAND FOR SVC 34             20071
0002F0 9620 B020      00020         475+         OI    BASFL,BAINTSET TURN ON INTERNAL SET BIT       20071
0002F4 D700 B00C B00C 0000C 0000C   476+         XC    BAIPL,BAIPL CLEAR RETURN CODE ECB          20071
0002FA 4110 8A02            00A04   477+         LA    1,TODBUF
0002FE 0A22                         478+         SVC   34 ISSUE MGCR SVC
000300 9508 B00F      0000F         479+         CLI   BAIPL+K3,K8 WAS SET COMMAND OK (IF NOT,    20071
                                    480+*                                  RET CODE PASSED IN ECB)        20071
000304 4780 80F8            000FA   481+         BE    IP308 NO.  CLOCK COULD NOT BE SET. GO20071
                                    482+*                                  BACK AND REISSUE TOD MESSAGE   20071
000308 47F0 8314            00316   483+         B     ENDIPL SET COMMAND OK. IPL OVER       20071
00030C                              484+NOTOD    EQU   * 20071
00030C 4110 B00C            0000C   485+         LA    1,BAIPL LOAD PARAMETER REG 1
000310 4100 0001            00001   486+         LA    0,1(0,0) COUNT OMITTED,1 USED
000314 0A01                         487+         SVC   1 LINK TO WAIT ROUTINE
000316                              488+ENDIPL   EQU   * 20071
000316 9680 B020      00020         489+         OI    BASFL,BAIN TURN ON 'NO IPL' BIT           20071
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    491+*******************************************************************AABA
                                    492+*                                                                  AABA
                                    493+*  THE FOLLOWING DETERMINES THE LOCATION OF SYS1.SYSJOBQE AND      AABA
                                    494+*  SYS1.PROCLIB AND VERIFIES THAT THE DATA SET EXISTS ON THE INDICAAABA
                                    495+*  UNIT.                                                           AABA
                                    496+*                                                                  AABA
                                    497+*  THE FOLLOWING POSSIBILITIES EXIST:                              AABA
                                    498+*                                                                  AABA
                                    499+*      1) THE UNIT WAS SPECIFIED IN THE SET COMMAND                AABA
                                    500+*            A)LOCATIONS BAQ AND/OR BAPRC WILL NOT BE ZERO         AABA
                                    501+*      2) THE DATA SET IS CATALOGUED                               AABA
                                    502+*      3) SYSGEN VALUES ARE USED                                   AABA
                                    503+*      4) THE IPL VOLUME CONTAINS THE DATA SET                     AABA
                                    504+*                                                                  AABA
                                    505+*  THE FOLLOWING ERRORS ARE POSSIBLE:                              AABA
                                    506+*                                                                  AABA
                                    507+*      1) THE VOLUME INDICATED BY THE CATALOGUE IS NOT MOUNTED     AABA
                                    508+*      2) THE SELECTED VOLUME DOES NOT CONTAIN THE DATA SET        AABA
                                    509+*                                                                  AABA
                                    510+*  WHEN THE LOCATION OF SYS1.PROCLIB IS ASCERTAINED,THE DATA SET WIAABA
                                    511+*  BE RECATALOGUED                                                 AABA
                                    512+*                                                                  AABA
                                    513+***********************************************************************
00031A                              514+IP325    DS    0H AABA
                                    515+* GETMAIN AND SET UP WORKAREA FOR LOCATE AND OBTAIN MACROS         AABA
00031A 0700                         516+         CNOP  0,4
00031C 4510 8322            00324   517+         BAL   1,*+8 BRANCH AROUND SP+LV
000320 FF                           518+         DC    AL1(255) SUBPOOL VALUE
000321 0001A2                       519+         DC    AL3(IPWKEND) LENGTH
000324 5801 0000            00000   520+         L     0,0(1,0) LOAD SP AND LV
000328 0A0A                         521+         SVC   10 ISSUE GETMAIN SVC
00032A 1841                         522+         LR    R4,R1 WORKAREA ADDRESS TO R4          AABA
000000                              523+         USING IPWKST,R4 ADDRESSABILTY                   AABA
00032C 9240 4170      00170         524+         MVI   DSNAREA,X'40' BLANK DATA SET NAME AREA        AABA
000330 D22A 4171 4170 00171 00170   525+         MVC   DSNAREA+1(43),DSNAREA AABA
                                    526+* SET UP PARAMETER LIST                                            AABA
000336 5040 416C            0016C   527+         ST    R4,PARM4 ADDRESS OF WORKAREA             AABA
00033A 4110 4170            00170   528+         LA    R1,DSNAREA ADDRESS OF DATA SET NAME AREA   AABA
00033E 5010 4164            00164   529+         ST    R1,PARM2 AABA
                                    530+* SET UP TO VERIFY THE LOCATION OF SYS1.SYSJOBQE                   AABA
000342 D205 8B56 8B86 00B58 00B88   531+         MVC   IP400WKR(6),BLNKS BLANK WORK AREA                 AABA
000348 D20D 4170 8B5E 00170 00B60   532+         MVC   DSNAREA(14),JOBQDSN JOBQ DATA SET NAME TO PARAMETR  AABA
00034E 91FF B010      00010         533+         TM    BAQ,X'FF' UNIT NAME SPECIFIED ON SET COMMAAABA
                                    534+*                                  FOR SYS1.SYSJOBQE               AABA
000352 4770 8384            00386   535+         BC    7,IP340 BRANCH IF Q UNITNAME SPECIFIED  AABA
000356 4590 83C6            003C8   536+         BAL   R9,IP350 IF NOT SPECIFIED IN SET COMMAND,      OC43
                                    537+*                                  GO TO SEARCH CATALOG FOR DATA SEAABA
                                    538+* UPON RETURN, UCB ADDRESS OF THE UNIT CONTAINING JOBQ IS CONTAINEDAABA
                                    539+* IN R1                                                            AABA
00035A                              540+IP327    DS    0H AABA
000000                              541+         USING UCBOB,R6 *AABA
00035A 9604 6003      00003         542+         OI    SRTESTAT,SRTEPRES SET VOLUME PERM. RES.          *AABA
00035E 5060 B010            00010   543+         ST    R6,BAQ SAVE JOBQ UCB ADDRESS           AABA
                                    544+* DETERMINE AND VERIFY THE LOCATION OF SYS1.PROCLIB                AABA
000362 D205 8B56 8B86 00B58 00B88   545+         MVC   IP400WKR(6),BLNKS BLANK WORK AREA                 AABA
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000368                              546+IP330    DS    0H AABA
000368 D20D 4170 8B6C 00170 00B6E   547+         MVC   DSNAREA(14),PROCDSN PROC3IB DATA SET NAME TO PARM ARAABA
00036E 91FF B014      00014         548+         TM    BAPRC,X'FF' PROCLIB UNIT NAME SPECIFIED     AABA
000372 4770 839E            003A0   549+         BC    7,IP345 BRANCH IF UNIT NAME SPECIFIED   AABA
000376 4590 83C6            003C8   550+         BAL   R9,IP350 IF NOT SPECIFIED,BRANCH TO LOCATE     OC43
                                    551+* UPON RETURN, UCB ADDRESS OF THE UNIT CONTAINING THE PROCEDURE    AABA
                                    552+* LIBRARY IS CONTAINED IN R1                                       AABA
00037A                              553+IP333    DS    0H AABA
00037A 9604 6003      00003         554+         OI    SRTESTAT,SRTEPRES SET VOLUME PERM. RES.          *AABA
                                    555+         DROP  R6 *AABA
00037E 5060 B014            00014   556+         ST    R6,BAPRC SAVE PROC UCB ADDRESS           AABA
000382 47F0 85A8            005AA   557+         B     IP500 BRANCH TO NEXT PHASE            AABA
                                    558+* Q UNIT NAME SPECIFIED IN SET COMMAND                             AABA
000386                              559+IP340    DS    0H ALIGNMENT                       AABA
000386 D202 8B56 B010 00B58 00010   560+         MVC   IP400WKR(3),BAQ UNIT NAME TO WORKAREA           AABA
00038C 4190 8358            0035A   561+         LA    R9,IP327 RETURN ADDRESS                  OC43
000390 9280 8B4E      00B50         562+IP343    MVI   IP400SW,BIT0 INDICATE SEARCH ON UNIT NAME    AABA
000394 4530 8486            00488   563+         BAL   R3,IP400 GO TO UCB SEARCH ROUTINE        AABA
000398 47F0 854C            0054E   564+         B     IP413 UCBNAME NOT VERIFIED            AABA
00039C 47F0 83F0            003F2   565+         B     IP360 BRANCH TO OBTAIN ROUTINE        AABA
                                    566+* PROC UNIT NAME SPECIFIED IN SET COMMAND                          AABA
0003A0                              567+IP345    DS    0H AABA
0003A0 D202 8B56 B014 00B58 00014   568+         MVC   IP400WKR(3),BAPRC UNIT NAME TO WORK AREA          AABA
0003A6 9540 B017      00017         569+         CLI   BAPRC+3,C' ' IS 2321 INDICATED               AABA
0003AA 4780 83BE            003C0   570+         BE    IP346 NO,BRANCH                       AABA
0003AE 9261 8B59      00B5B         571+         MVI   IP400WKR+3,C'/' SLASH TO WORKAREA               AABA
0003B2 D200 8B5A B017 00B5C 00017   572+         MVC   IP400WKR+4(1),BAPRC+3 BIN NUMBER TO WORK AREA       AABA
0003B8 95F0 8B5A      00B5C         573+         CLI   IP400WKR+4,X'F0' IS BIN NUMBER VALID             AABA
0003BC 4740 854C            0054E   574+         BL    IP413 NO,ERROR                        AABA
0003C0                              575+IP346    DS    0H AABA
0003C0 4190 8378            0037A   576+         LA    R9,IP333 RETURN ADDRESS                  OC43
0003C4 47F0 838E            00390   577+         B     IP343 BRANCH                          AANA
                                    578+* ISSUE LOCATE FOR REQUIRED DATA SET                               AABA
0003C8                              579+IP350    DS    0H ALIGNMENT                       AABA
0003C8 D203 4160 8B7A 00160 00B7C   580+         MVC   PARM1(4),LOCCNTRL LOCATE CONTROL BYTE             AABA
0003CE D703 4168 4168 00168 00168   581+         XC    PARM3(4),PARM3 ZERO PARM3 FOR LOCATE           AABA
0003D4 4110 4160            00160   582+         LA    R1,PARM1 INDICATE PARAMETER AREA         AABA
                                    583+*                                                                  AABA
0003D8 0A1A                         584+         SVC   26 LINK TO SERVICE ROUT.
                                    585+*                                                                  AABA
0003DA 12FF                         586+         LTR   R15,R15 WAS LOCATE SUCCESSFUL           AABA
0003DC 4770 840C            0040E   587+         BC    7,IP370 NO,BRANCH DATA SET NOT CATALOGEDAABA
0003E0 D205 419C 4006 0019C 00006   588+         MVC   VOLSRAR(6),VCBVOLSN MOVE VOLUME SERIAL TO WORK AREA AABA
0003E6 9240 8B4E      00B50         589+         MVI   IP400SW,BIT1 INDICATE SEARCH FOR VOL SERIAL  AABA
0003EA 4530 8486            00488   590+         BAL   R3,IP400 DETERMINE IF VOLUME MOUNTED     AABA
0003EE 47F0 845C            0045E   591+         B     IP380 VOLUME NOT MOUNTED,BRANCH       AABA
                                    592+* VOLUME HAS BEEN SELECTED,DETERMINE IF DATA SET EXISTS ON VOLUME  AABA
0003F2                              593+IP360    DS    0H NORMAL RETURN FROM ABOVE AND    AABA
                                    594+*                                  ENTRY TO OBTAIN ROUTINE         AABA
0003F2 4110 419C            0019C   595+         LA    R1,VOLSRAR ADDRESS OF VOLUME SERIAL FOR    AABA
0003F6 5010 4168            00168   596+         ST    R1,PARM3 OBTAIN TO WORK AREA             AABA
0003FA D203 4160 8B7E 00160 00B80   597+         MVC   PARM1(4),OBTCNTRL OBTAIN CONTROL BYTE             AABA
000400 4110 4160            00160   598+         LA    R1,PARM1 INDICATE PARAMETERS             AABA
                                    599+*                                                                  AABA
000404 0A1B                         600+         SVC   27 ISSUE OBTAIN SVC
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    601+*                                                                  AABA
000406 12FF                         602+         LTR   R15,R15 WAS OBTAIN SUCCESSFUL           AABA
000408 4770 8470            00472   603+         BC    7,IP390 OBTAIN FAILED, BRANCH           AABA
00040C 07F9                         604+         BR    R9 RETURN                          OC43
                                    605+* LOCATE FAILED  DETERMINE VOLUME BY LOOKING AT SYSGEN VALUE FOR   AABA
                                    606+* DATA SET OR IPL VOLUME IF NO SYSGEN VALUE WAS SPECIFIED          AABA
00040E                              607+IP370    DS    0H AABA
00040E D506 4170 8B5E 00170 00B60   608+         CLC   DSNAREA(7),JOBQDSN IS SEARCH FOR JOBQ DEVICE       AABA
000414 4780 843A            0043C   609+         BE    IP372 YES,BRANCH                      AABA
000418 9540 8B32      00B34         610+         CLI   IPSGPL,C' ' SYSGEN VALUE FOR PROCLIB        AABA
00041C 4780 844C            0044E   611+         BE    IP375 NO,SEARCH FOR IPL VOLUME        AABA
000420 D204 8B56 8B32 00B58 00B34   612+         MVC   IP400WKR(5),IPSGPL PROCLIB UNITNAME FOR UCB SRCH   AABA
000426                              613+IP371    DS    0H AABA
000426 9280 8B4E      00B50         614+         MVI   IP400SW,BIT0 INDICATE SEARCH ON UNIT NAME    AABA
00042A 4530 8486            00488   615+IP371A   BAL   R3,IP400 BRANCH TO UCB SEARCH            AABA
000000                              616+         USING UCBOB,R6 AABA
00042E 47F0 854C            0054E   617+         B     IP413 ERROR,NOT VERIFIED              AABA
000432                              618+IP371B   DS    0H AABA
000432 D205 419C 601C 0019C 0001C   619+         MVC   VOLSRAR(6),SRTEVOLI VOLUME SERIAL TO WORKAREA       AABA
000438 47F0 83F0            003F2   620+         B     IP360 BRANCH TO OBTAIN ROUTINE        AABA
00043C                              621+IP372    DS    0H SEARCH IS FOR JOBQ DEVICE       AABA
00043C 9540 8B2E      00B30         622+         CLI   IPSGJQ,C' ' SYSGEN VALUE FOR JOBQ DEVICE    AABA
000440 4780 844C            0044E   623+         BE    IP375 NO,SEARCH FOR IPL VOLUME        AABA
000444 D202 8B56 8B2E 00B58 00B30   624+         MVC   IP400WKR(3),IPSGJQ PROCLIB UNIT ADDRESS FOR UCB SEARCH
00044A 47F0 8424            00426   625+         B     IP371 GO TO SEARCH ROUTINE            AABA
                                    626+* SYSGEN VALUES NOT SPECIFIED,SEARCH FOR IPL VOLUME                AABA
00044E                              627+IP375    DS    0H AABA
00044E 5860 C030            00030   628+         L     R6,CVTSYSAD LOAD UCB ADDRESS OF IPL VOLUME  AABA
000452 1856                         629+         LR    R5,R6 R5,ADDRESS OF IPL VOLUME UCB    AABA
000454 D202 8BF0 600D 00BF2 0000D   630+         MVC   IP394(3),UCBNAME UCB NAME TO MESSAGE AREA        AABA
00045A 47F0 8430            00432   631+         B     IP371B CONTINUE                        AABA
                                    632+* THE VOLUME INDICATED BY THE CATALOGUE IS NOT MOUNTED             AABA
00045E                              633+IP380    DS    0H AABA
00045E 4110 8B8A            00B8C   634+         LA    R1,IP381 ADDRESS OF MESSAGE              AABA
000462 D20D 8B9F 4170 00BA1 00170   635+         MVC   IP383(14),DSNAREA DATA SET NAME TO MESSAGE        AABA
000468 D205 8B97 419C 00B99 0019C   636+         MVC   IP382(6),VOLSRAR VOLUME SERIAL TO MESSAGE        AABA
00046E 47F0 8480            00482   637+         B     IP380390 BRANCH TO WRITE                 AABA
                                    638+* REQUIRED DATA SET NOT FOUND ON SELECTED VOLUME                   AABA
000472                              639+IP390    DS    0H AABA
000472 4110 8BBE            00BC0   640+         LA    R1,IP391 ADDRESS OF MESSAGE              AABA
000476 D20D 8BCB 4170 00BCD 00170   641+         MVC   IP392(14),DSNAREA DATA SET NAME TO                AABA
00047C D205 8BE8 419C 00BEA 0019C   642+         MVC   IP393(6),VOLSRAR VOLUME SERIAL TO MESSAGE        AABA
000482                              643+IP380390 DS    0H AABA
000482 0A23                         644+         SVC   35 ISSUE SVC
000484 47F0 858C            0058E   645+         B     IP450 FREE CORE                       AABA
                                    646+**********************************************************************
                                    647+*                                                                  AABA
                                    648+* UCB SEARCH:                                                      AABA
                                    649+*                                                                  AABA
                                    650+*        IP400SW INDICATES THE TYPE OF SEARCH TO MAKE              AABA
                                    651+*              BIT0=UNITNAME                                       AABA
                                    652+*              BIT1=VOLUME SERIAL NUMBER                           AABA
                                    653+*              BIT2=IPL VOLUME                                     AABA
                                    654+*        IP400WKR CONTAINS 3 OR 5 BYTE UCB NAME                    AABA
                                    655+*        VOLSRAR CONTAINS THE VOLUME SERIAL NUMBER                 AABA
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    656+*                                                                  AABA
                                    657+*        NORMAL EXIT                                               AABA
                                    658+*              R6 CONTAINS UCB ADDRESS                             AABA
                                    659+*              BRANCH R3                                           AABA
                                    660+*                                                                  AABA
                                    661+**********************************************************************
000488                              662+IP400    DS    0H AABA
000488 5870 C028            00028   663+         L     R7,CVTILK2 SRT TABLE ADDRESS               AABA
00048C 4867 0000            00000   664+IP401    LH    R6,0(R7) UCB ADDRESS                     AABA
000490 1266                         665+         LTR   R6,R6 HOLE IN TABLE                   AABA
000492 4780 84A2            004A4   666+         BZ    IP403 YES,BRANCH TO GET NEXT ADDRESS  AABA
000496 5460 8B2A            00B2C   667+         N     R6,CF0F ZERO HIGH ORDER BITS            AABA
00049A 5560 8B2A            00B2C   668+         CL    R6,CF0F END OF UCB LIST                 AABA
00049E 4770 84AA            004AC   669+         BNE   IP404 BRANCH TO CHECK UCB             AABA
0004A2 07F3                         670+IP402    BR    R3 END OF UCB LIST ZND NOT FOUND   AABA
                                    671+*                                  ERROR RETURN                    AABA
0004A4 4177 0002            00002   672+IP403    LA    R7,2(R7) INCREMENT TO NEXT ENTRY         AABA
0004A8 47F0 848A            0048C   673+         B     IP401 CHECK ENTRY                     AABA
0004AC D202 8BF0 600D 00BF2 0000D   674+IP404    MVC   IP394(3),UCBNAME SAVE UNIT NAME                  AABA
000000                              675+         USING UCBOB,R6 AABA
0004B2 9180 8B4E      00B50         676+         TM    IP400SW,BIT0 SEARCH ON UCB NAME              AABA
0004B6 4710 84EC            004EE   677+         BO    IP407 YES,BRANCH                      AABA
0004BA                              678+IP405    DS    0H SEARCH ON VOLUME SERIAL         AABA
0004BA 1856                         679+         LR    R5,R6 MAIN UCB ADDRESS TO R5          AABA
0004BC D505 601C 419C 0001C 0019C   680+         CLC   SRTEVOLI(6),VOLSRAR VOLUME SERIALS MATCH            AABA
0004C2 4783 0004            00004   681+         BE    4(R3) YES,RETURN                      AABA
0004C6 D501 6012 8B3B 00012 00B3D   682+         CLC   UCBTYP+2(2),TYPE2321 IS DEVICE A 2321               AABA
0004CC 4770 84A2            004A4   683+         BNE   IP403 NO GET NEXT UCB                 AABA
0004D0 4110 000A            0000A   684+         LA    R1,10(0,0) LOOP CONTROL                    AABA
0004D4 4160 6038            00038   685+         LA    R6,DATACELL-UCBOB(0,R6) INCREMENT TO SUB UCBS       AABA
0004D8                              686+IP406    DS    0H AABA
000038                              687+         USING DATACELL,R6 AABA
0004D8 D505 6004 419C 0003C 0019C   688+         CLC   DCELVOLI(6),VOLSRAR VOLUME SERIALS MATCH            AABA
0004DE 4783 0004            00004   689+         BE    4(R3) YES,RETURN                      AABA
0004E2 4166 0010            00010   690+         LA    R6,16(R6,0) INCREMENT TO NEXT SUB UCB       AABA
0004E6 4610 84D6            004D8   691+         BCT   R1,IP406 AABA
0004EA 47F0 84A2            004A4   692+         B     IP403 CESSED;GET NEXT UCB             AABA
0004EE                              693+IP407    DS    0H SEARCH ON UNITNAME              AABA
000000                              694+         USING UCBOB,R5 AABA
0004EE 1856                         695+         LR    R5,R6 ADDRESS OF MAIN UCB TO R5       AABA
0004F0 D502 500D 8B56 0000D 00B58   696+         CLC   UCBNAME(3),IP400WKR UCB NAMES MATCH                 AABA
0004F6 4770 84A2            004A4   697+         BNE   IP403 NO,GET NEXT UCB                 AABA
0004FA 9561 8B59      00B5B         698+         CLI   IP400WKR+3,C'/' IS 2321 SPECIFIED               AABA
0004FE 4780 851E            00520   699+         BE    IP408 YES,BRANCH                      AABA
000502 D501 5012 8B3B 00012 00B3D   700+         CLC   UCBTYP+2(2),TYPE2321 IS IT 2321                     AABA
000508 4780 854C            0054E   701+         BE    IP413 YES,ERROR                       AABA
00050C D605 501C 501C 0001C 0001C   702+         OC    SRTEVOLI,SRTEVOLI VOLUME READY                    AABA
000512 4780 854C            0054E   703+         BZ    IP413 NO,BRANCH                       AABA
000516 D205 419C 501C 0019C 0001C   704+         MVC   VOLSRAR(6),SRTEVOLI VOLUME SERIAL TO WORKAREA       AABA
00051C 47F3 0004            00004   705+         B     4(R3) RETURN                          AABA
000520                              706+IP408    DS    0H AABA
000520 D501 5012 8B3B 00012 00B3D   707+         CLC   UCBTYP+2(2),TYPE2321 IS IT 2321                     AABA
000526 4773 0000            00000   708+         BNE   0(R3) NO,ERROR                        AABA
00052A                              709+IP409    DS    0H AABA
00052A 4360 8B5A            00B5C   710+         IC    R6,IP400WKR+4 BIN NUMBER                      AABA
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00052E 5460 8B82            00B84   711+         N     R6,CF00F ZERO ZONE AND THREE HIGH BYTES  AABA
000532 8960 0004            00004   712+         SLL   R6,4 TIMES 16                        AABA
000536 4165 6038            00038   713+         LA    R6,DATACELL-UCBOB(R5,R6) INCREMENT TO SUB UCB       AABA
00053A D605 6004 6004 0003C 0003C   714+         OC    DCELVOLI,DCELVOLI DEVICE READY                    AABA
000540 4780 854C            0054E   715+         BZ    IP413 NO,BRANCH                       AABA
000544 D205 419C 6004 0019C 0003C   716+         MVC   VOLSRAR(6),DCELVOLI VOLUME SERIAL TO WORKAREA       AABA
00054A 47F3 0004            00004   717+         B     4(R3) NORMAL RETURN                   AABA
                                    718+*                                                                  AABA
00054E                              719+IP413    EQU   *
                                    720+         DROP  R10
000000                              721+         USING XSA,R2
00054E 4120 8C96            00C98   722+         LA    R2,IPXSA SETUP MSG TO PRINT
000552 9240 2018      00018         723+         MVI   XAV,X'40' BLANK VERB AREA
000556 D206 2019 2018 00019 00018   724+         MVC   XAV+1(7),XAV
00055C 920D 2010      00010         725+         MVI   XAR,X'0D' INSERT MSG NO
000560 D204 2018 8B56 00018 00B58   726+         MVC   XAV(5),IP400WKR INSERT INVALID UNIT REF         AABA
000566 D201 202A 8AEC 0002A 00AEE   727+         MVC   XAJ(TWO),HALFZERO CLEAR OUT TJID FIELD           M5510
00056C                              728+IP455    EQU   *
00056C 41E0 8588            0058A   729+         LA    R14,IP449 RETURN POINT                    AABA
000570 5040 8B4A            00B4C   730+         ST    R4,MAINSVE SAVE ADDRESS OF GOTTEN AREA     AABA
000574                              731+         CNOP  0,4
000574 45F0 8586            00588   732+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
000578 00000580                     733+         DC    A(*+8) ADDR OF EP PARAMETER
00057C 00000000                     734+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000580 C9C5C5F0F5F0F3C4             735+         DC    CL8'IEE0503D' EP PARAMETER
000588 0A06                         736+         SVC   6 ISSUE LINK SVC
00058A 5840 8B4A            00B4C   737+IP449    L     R4,MAINSVE RESTORE GOTTEN CORE POINTER     AABA
00058E 947F B020      00020         738+IP450    NI    BASFL,255-BAIN ZERO IPL FLAG
000592 1814                         739+         LR    R1,R4 ADDRESS OF AREA TO FREE         AABA
000594                              740+         CNOP  0,4
000594 47F0 859A            0059C   741+         B     *+8 BRANCH AROUND SP+LV
000598 FF                           742+         DC    AL1(255) SUBPOOL VALUE
000599 0001A2                       743+         DC    AL3(IPWKEND) LENGTH
00059C 5800 8596            00598   744+         L     0,*-4 LOAD SP AND LV
0005A0 4111 0000            00000   745+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
0005A4 0A0A                         746+         SVC   10 ISSUE FREEMAIN SVC         P2504
0005A6 47F0 871C            0071E   747+         B     IP540 M1874
                                    748+         DROP  R6 AABA
000000                              749+         USING UCBOB,R5 AABA
                                    750+         DROP  R2
                                    751+***********************************************************************
                                    752+*             CATALOG SYS1.PROCLIB
                                    753+*             FILL IN TIOT WITH THE UCB ADDRESSES FOR JOB QUEUE AND
                                    754+*              PROCLIB BEFORE GOING TO IEFQINTZ TO INITIALIZE
                                    755+*              JOB QUEUE
                                    756+***********************************************************************
                                    757+*
0005AA                              758+IP500    EQU   *
0005AA 1814                         759+         LR    R1,R4 ADDRESS OF AREA TO FREE         AABA
0005AC                              760+         CNOP  0,4
0005AC 47F0 85B2            005B4   761+         B     *+8 BRANCH AROUND SP+LV
0005B0 FF                           762+         DC    AL1(255) SUBPOOL VALUE
0005B1 0001A2                       763+         DC    AL3(IPWKEND) LENGTH
0005B4 5800 85AE            005B0   764+         L     0,*-4 LOAD SP AND LV
0005B8 4111 0000            00000   765+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0005BC 0A0A                         766+         SVC   10 ISSUE FREEMAIN SVC         P2504
0005BE D203 8B0E 5010 00B10 00010   767+         MVC   IPDEVTYP(4),UCBTYP DEVICE TYPE
0005C4 94FE 8B0F      00B11         768+         NI    IPDEVTYP+1,X'FE' S21167
                                    769+         DROP  R5 *AABA
000000                              770+         USING UCBOB,R6 *AABA
0005C8 95FF 6002      00002         771+         CLI   UCBID,X'FF' IS THIS MAIN UCB
0005CC 4770 85D8            005DA   772+         BNE   IP510 YES
0005D0 D205 8B12 601C 00B14 0001C   773+         MVC   IPVOLSER(6),SRTEVOLI VOLUME SER NO
0005D6 47F0 85DE            005E0   774+         B     IP515
0005DA                              775+IP510    EQU   *
0005DA D205 8B12 6004 00B14 00004   776+         MVC   IPVOLSER(6),DCELVOLI-DATACELL(R6) VOLUME SERIAL     AABA
                                    777+         DROP  R6 *AABA
0005E0                              778+IP515    EQU   *
0005E0 4110 8AEE            00AF0   779+         LA    1,IPCAT LOAD PARAMETER REG 1
0005E4 0A1A                         780+         SVC   26 LINK TO SERVICE ROUT.
0005E6 59F0 8B1A            00B1C   781+         C     R15,CB08 IS RETURN CODE 8
0005EA 4770 865A            0065C   782+         BNE   IP517 NO. CONTINUE
0005EE 9564 8AEE      00AF0         783+         CLI   IPCAT,CAT IS THIS SECOND FAILURE
0005F2 4780 85FC            005FE   784+         BE    IP516 YES-ERROR EXIT                 A31761
0005F6 9264 8AEE      00AF0         785+         MVI   IPCAT,CAT INDICATE CATALOG
0005FA 47F0 85DE            005E0   786+         B     IP515 TRY CATALOG
0005FE 4EF0 864E            00650   787+IP516    CVD   R15,WORK1 PREPARE TO PRINT RETURN CODE   A31761
000602 F333 8656 8652 00658 00654   788+         UNPK  WORK2(4),WORK1+FOUR(4) FROM CATALOG IN ERROR MSG  A31761
000608 96F0 8659      0065B         789+         OI    WORK2+THREE,FOXZERO MAKE PRINTABLE LAST DIGIT   A31761
00060C D201 863E 8658 00640 0065A   790+         MVC   NOIPLMSG+CODEDISP(2),WORK2+TWO PUT RETURN CODE   A31761
                                    791+*                                 INTO THE MESSAGE               A31761
000612 0700                         792+         CNOP  0,4
000614 4510 8644            00646   793+NOIPLMSG BAL   1,IHB0032A BRANCH AROUND MESSAGE
000618 002A                         794+         DC    AL2(42) TEXT LENGTH
00061A 8000                         795+         DC    B'1000000000000000' MCS FLAGS
00061C C9C5C5F1F3F9C940             796+         DC    C'IEE139I INITIALIZATION FAILED  CODE=  '
000642 1000                         797+         DC    B'0001000000000000' DESCRIPTOR CODES
000644 4000                         798+         DC    B'0100000000000000' ROUTING CODES
000646                              799+IHB0032A DS    0H
000646 0A23                         800+         SVC   35
000648 47F0 871C            0071E   801+         B     IP540 A31761
000650                              802+WORK1    DS    D WORKAREA--USED TO PREPARE CATALOG RETURN A31761
000658                              803+WORK2    DS    F CODE FOR ERROR MESSAGE                   A31761
00065C                              804+IP517    EQU   *
00065C 12FF                         805+         LTR   R15,R15 TEST RETURN CODE
00065E 4770 85FC            005FE   806+         BNZ   IP516 ERROR EXIT
000C18                              807+         USING VTIOT,R10
000662 D202 A065 B011 00C7D 00011   808+         MVC   VJUCBPT+1(3),BAQ+1 INITIALIZE JQ TIOT UCB PTR
000668 D202 A051 B015 00C69 00015   809+         MVC   VPUCBPT+1(3),BAPRC+1 PROC LB TIOT UCB PTR
                                    810+*************************************************************** SA72193
                                    811+*              INTERFACE WITH POWER WARNING                     SA72193
                                    812+*************************************************************** SA72193
                                    813+         DROP  R10 SA72193
00066E D70F 8C86 8C86 00C88 00C88   814+         XC    IPQPAM(16),IPQPAM ZERO PARM LIST           SA72193
000674 50A0 8C86            00C88   815+         ST    R10,IPQPAM PASS TIOT PTR            SA72193
000678 4110 8C86            00C88   816+         LA    R1,IPQPAM SETUP PARM PTR           SA72193
00067C 58F0 8DBE            00DC0   817+         L     R15,VCONBIE0 SA72193
000680 05EF                         818+         BALR  R14,R15 SA72193
                                    819+*
                                    820+***********************************************************************
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    821+*              QUEUE MANAGER TO INITIALIZE THE JOB QUEUE--
                                    822+*              INTERFACE- R1 - POINTS TO 4 WORD PARAMETER LIST ON ENTRY
                                    823+*                              .WORD 1 CONTAINS UCB ADDRESS FOR JOB Q
                                    824+*                         R2 -CONTAINS THE ECB ADDRESS-BAIPL- FOR
                                    825+*                            POSTING WAIT FROM IEFQINTZ AND THE
                                    826+*                            RETURN CODE FROM THE QUEUE INITIALIZATION
                                    827+*                              .ZERO -INITIALIZATION COMPLETE
                                    828+*                              .NOTZERO=ERROR=NOT COMPLETE
                                    829+*              ERROR DETECTION-FREES TIOT CORE,ZERO TIOT PTR IN TCB
                                    830+*                              AND RETURNS TO MODULE BEGINNING TO TRY
                                    831+*                              AGAIN
                                    832+*                             -SUPPRESS AUTO STARTS IF QCR ERROR A31300
                                    833+*                              OCCURRED DURING WARM START        A31300
                                    834+***********************************************************************
                                    835+*
000682 D203 8C86 B010 00C88 00010   836+IP520    MVC   IPQPAM(4),BAQ INIT JOB Q
000688 D200 8C86 B018 00C88 00018   837+         MVC   IPQPAM(1),BACV PICK UP Q FORMAT IND..
00068E 9180 B018      00018         838+         TM    BACV,X'80' WARM START INDICATED         SMF
000692 4770 8698            0069A   839+         BC    7,IP527 NO                           SMF
000696 9601 8D65      00D67         840+         OI    SMFOPT+3,X'01' YES, INDICATE IT             SMF
00069A                              841+IP527    EQU   * SMF
00069A 4110 8C86            00C88   842+IP530    LA    R1,IPQPAM SETUP QM
00069E D700 B00C B00C 0000C 0000C   843+         XC    BAIPL,BAIPL CLEAR ECB FOR ATTACH
0006A4 4120 B00C            0000C   844+         LA    R2,BAIPL SETUP ECB ADDRESSIN R2
0006A8 41F0 86B2            006B4   845+         LA    15,IHB0033 LOAD 15 WITH LIST ADDR
0006AC 5020 F008            00008   846+         ST    2,8(0,15) STORE ECB INTO LIST
0006B0 47F0 F034            00034   847+         B     52(0,15) .AROUND LIST.                        20021
0006B4                              848+IHB0033  DS    0F SUP. PARAM. LIST
0006B4 000006D0                     849+         DC    A(*+28) ADDRESS OF SYMB NAME
0006B8 00                           850+         DC    AL1(0) NO HIARCHY                       LCS1
0006B9 000000                       851+         DC    AL3(0) DCB ADDRESS                 LCS1
0006BC 00000000                     852+         DC    A(0) ECB ADDRESS
0006C0 00000000                     853+         DC    A(0) GSPV VALUE OR GSPL ADR
0006C4 00000000                     854+         DC    A(0) SHSPL OR SHSPV
0006C8 02                           855+         DC    AL1(2) SET ROLLOUT BITS  RORI
0006C9 000000                       856+         DC    AL3(0) ETXR ROUT. ADDRESS    RORI
0006CC 0000                         857+         DC    AL2(0) DPMOD VALUE
0006CE 00                           858+         DC    AL1(0) LPMOD VALUE
0006CF 1E                           859+         DC    AL1(30)
0006D0 C9C5C6D8C9D5E3E9             860+         DC    CL8'IEFQINTZ' EP SYMBOL
0006D8 00000000                     861+         DC    A(0) ADDRESS OF JSCB                  I270
0006DC 0000000000000000             862+         DC    A(0,0) .NO STAI PARM LIST OR EXIT ADDR.     20021
0006E4 00000000                     863+         DC    A(0) .NO TASKLIB.                         20021
0006E8 0A2A                         864+         SVC   42 ISSUE ATTACH SVC
0006EA 5010 8B1E            00B20   865+         ST    R1,CB10 TEMP SAVE TCB OF SUBTASK
0006EE 4110 B00C            0000C   866+         LA    1,BAIPL LOAD PARAMETER REG 1
0006F2 4100 0001            00001   867+         LA    0,1(0,0) COUNT OMITTED,1 USED
0006F6 0A01                         868+         SVC   1 LINK TO WAIT ROUTINE
0006F8 4110 8B1E            00B20   869+         LA    R1,CB10 RESET SUBTASK TCB TO DETACH
0006FC 0A3E                         870+         SVC   62 ISSUE DETACH SVC
0006FE D501 B00E 8B2A 0000E 00B2C   871+         CLC   BAIPL+2(2),CF0F TEST FOR ERROR-IS ECB ZERO
000704 4770 871C            0071E   872+         BNE   IP540 ERROR - FREE TIOT AND GO  A31300
                                    873+*                                           TO BEGINNING AGAIN   A31300
000708 9140 8C86      00C88         874+         TM    IPQPAM,X'40' QCR ERR DURING WARM START A31300
00070C 4780 8748            0074A   875+         BZ    IP560 NO - CONTINUE             A31300
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000710 92E8 8AE3      00AE5         876+         MVI   CB8+1,C'Y' YES - SUPPRESS AUTO START A31300
000714 D205 8AE4 8AE3 00AE6 00AE5   877+         MVC   CB8+2(6),CB8+1 COMMANDS             A31300
00071A 47F0 8748            0074A   878+         B     IP560 CONTINUE WITH NORMAL PATH A31300
00071E                              879+IP540    EQU   *
00071E 5820 C000            00000   880+         L     R2,CVTTCBP LOCATE START ADDR TO FREE
000722 5822 0004            00004   881+         L     R2,4(R2) ADDR IN TCBTIO OF TCB
000726 5812 000C            0000C   882+         L     R1,TCBTIO(R2)
00072A 1700                         883+         XR    R0,R0 ZERO TCBTIO
00072C 5002 000C            0000C   884+         ST    R0,TCBTIO(R2)
000730 5800 8B26            00B28   885+         L     R0,CX108 LMCS
000734 5E00 8952            00954   886+         AL    R0,LOGTIOT ADD LOG TIOT LENGTH         LMCS
000738 5E00 8D5E            00D60   887+         AL    R0,SMFTIOT ADD SMF TIOT SIZE            SMF
00073C 5E00 8D5A            00D5C   888+         AL    R0,SENDTIOT ADD TIOT FOR SYS1.BRODCAST  20030
000740 4111 0000            00000   889+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
000744 0A0A                         890+         SVC   10 ISSUE FREEMAIN SVC         P2504
000746 47F0 807C            0007E   891+         B     IP100
                                    892+*
                                    893+*             IEFPRES - TO INITIALIZE VOLUME ATTRIBUTES FOR ALL TAPE
                                    894+*              AND DIRECT ACCESS DEVICES
                                    895+*             .INTERFACE - R1 - POINTS TO 4 WORD PARAMETER LIST ON
                                    896+*                               ENTRY -WORD 1 CONTAINS THE UCB ADDRESS
                                    897+*                               FOR SYS1.PROCLIB
                                    898+*                          R2 - CONTAINS THE ECB ADDRESS-BAIPL- FOR
                                    899+*                               POSTING FROM ATTACHED TASK AND RETURN
                                    900+*                               CODE
                                    901+*                          R5 - CONTAINS TCB ADDR OF SUBTASK FOR DETACH
                                    902+*                               PURPOSES
                                    903+*
                                    904+*
00074A                              905+IP560    EQU   *
00074A D70F 8C86 8C86 00C88 00C88   906+         XC    IPQPAM(16),IPQPAM ZERO PARAM AREA
000750 5820 8C82            00C84   907+         L     R2,PARMSAVE GET PARMLIB UCB POINTER         OC43
000754 1222                         908+         LTR   R2,R2 IS PARMLIB PRESENT              OC43
000756 4780 87CE            007D0   909+         BZ    IP600 NO, BYPASS VOLUME INITIALIZATION      OC43
00075A 5020 8C86            00C88   910+         ST    R2,IPQPAM SET UCB POINTER FOR PARMLIB     OC43
00075E 4110 8C86            00C88   911+         LA    R1,IPQPAM PASS ON PARAM LIST
000762 D703 B00C B00C 0000C 0000C   912+         XC    BAIPL(4),BAIPL ZERO ECB
000768 4120 B00C            0000C   913+         LA    R2,BAIPL SETUP ECB ADDR
                                    914+*
00076C 41F0 8776            00778   915+         LA    15,IHB0041 LOAD 15 WITH LIST ADDR
000770 5020 F008            00008   916+         ST    2,8(0,15) STORE ECB INTO LIST
000774 47F0 F034            00034   917+         B     52(0,15) .AROUND LIST.                        20021
000778                              918+IHB0041  DS    0F SUP. PARAM. LIST
000778 00000794                     919+         DC    A(*+28) ADDRESS OF SYMB NAME
00077C 00                           920+         DC    AL1(0) NO HIARCHY                       LCS1
00077D 000000                       921+         DC    AL3(0) DCB ADDRESS                 LCS1
000780 00000000                     922+         DC    A(0) ECB ADDRESS
000784 00000000                     923+         DC    A(0) GSPV VALUE OR GSPL ADR
000788 00000000                     924+         DC    A(0) SHSPL OR SHSPV
00078C 02                           925+         DC    AL1(2) SET ROLLOUT BITS  RORI
00078D 000000                       926+         DC    AL3(0) ETXR ROUT. ADDRESS    RORI
000790 0000                         927+         DC    AL2(0) DPMOD VALUE
000792 00                           928+         DC    AL1(0) LPMOD VALUE
000793 1E                           929+         DC    AL1(30)
000794 C9C5C5D7D7D9C5E2             930+         DC    CL8'IEEPPRES' EP SYMBOL
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00079C 00000000                     931+         DC    A(0) ADDRESS OF JSCB                  I270
0007A0 0000000000000000             932+         DC    A(0,0) .NO STAI PARM LIST OR EXIT ADDR.     20021
0007A8 00000000                     933+         DC    A(0) .NO TASKLIB.                         20021
0007AC 0A2A                         934+         SVC   42 ISSUE ATTACH SVC
0007AE 5010 8B1E            00B20   935+         ST    R1,CB10 SAVE TCB ADDR OF ATTACHED TASK
0007B2 4110 B00C            0000C   936+         LA    1,BAIPL LOAD PARAMETER REG 1
0007B6 4100 0001            00001   937+         LA    0,1(0,0) COUNT OMITTED,1 USED
0007BA 0A01                         938+         SVC   1 LINK TO WAIT ROUTINE
0007BC 4110 8B1E            00B20   939+         LA    R1,CB10 SET TO DETACH
0007C0 0A3E                         940+         SVC   62 ISSUE DETACH SVC
0007C2 D501 B00E 8B2A 0000E 00B2C   941+         CLC   BAIPL+2(2),CF0F RETURN CODE ZERO
0007C8 4780 87CE            007D0   942+         BE    IP600 BCH ON ZERO
0007CC 47F0 871C            0071E   943+         B     IP540 ERROR- FREE TIOT AND REINITIALIZE
                                    944+***********************************************************************
                                    945+*
                                    946+*              ISSUE SVC 76 TO WRITE IPL RECORD TO SYS1.LOGREC.   20070
                                    947+*              IF RELIABILITY DATA EXTRACTOR (RDE) IS NOT         20070
                                    948+*              SYSGENED, NO RECORD IS WRITTEN AND RETURN          20070
                                    949+*              IS MADE TO THIS ROUTINE.                           20070
                                    950+*
                                    951+*              SETUP TO WRITE AND EXECUTE CANNED COMMANDS PROVIDING
                                    952+*              NO STOPS WERE GIVEN
                                    953+*              .FLAG=FF MGCR IF NECESSARY
                                    954+***********************************************************************
                                    955+*
0007D0                              956+IP600    EQU   *
0007D0 5800 8B1A            00B1C   957+         L     R0,CB08 INDICATE IPL ENTRY         20070
0007D4 0A4C                         958+         SVC   STATUS GO WRITE IPL RECORD        20070
0007D6 92FF 8AEA      00AEC         959+         MVI   CB1,X'FF' FLAG-FF=EXECUTE MGCR
0007DA 4190 88EC            008EE   960+         LA    R9,IP800 OC43
                                    961+         EJECT  ,                                               @TMVT80X
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    962+*****    START OF STATEMENTS INSERTED BY TMVT804        *****  @TMVT804
                                    963+************************************************************** @TMVT804
                                    964+*                                                            * @TMVT804
                                    965+*        TMVT804:  Automatic commands processing.            * @TMVT804
                                    966+*                                                            * @TMVT804
                                    967+*        If AUTO=NONE was not specified on the SET           * @TMVT804
                                    968+*        command, attach SYSVICMD to process COMMNDxx        * @TMVT804
                                    969+*        member of SYS1.PARMLIB.                             * @TMVT804
                                    970+*                                                            * @TMVT804
                                    971+************************************************************** @TMVT804

                                    973+*------------------------------------------------------------* @TMVT804
                                    974+*        Test for initial WTO-only call and return           * @TMVT804
                                    975+*        immediately if so.                                  * @TMVT804
                                    976+*------------------------------------------------------------* @TMVT804
0007DE                              977+IP700    DS    0H -                Auto commands subroutine    @TMVT804
0007DE 9500 8AEA      00AEC         978+         CLI   CB1,X'00' -         Initial WTO-only call?      @TMVT804
0007E2 4780 88EA            008EC   979+         BE    IP799 -             Return if so                @TMVT804

                                    981+*------------------------------------------------------------* @TMVT804
                                    982+*        Select the appropriate COMMNDxx suffix              * @TMVT804
                                    983+*        based on user specification of AUTO flags.          * @TMVT804
                                    984+*------------------------------------------------------------* @TMVT804
0007E6 41E0 8AE3            00AE5   985+         LA    R14,CB8+1 -         Point to stop flags         @TMVT804
0007EA 41F0 0007            00007   986+         LA    R15,7 -             Set count of stop flags     @TMVT804
0007EE                              987+IP760    DS    0H -                Loop looking at stop flags  @TMVT804
0007EE 95E8 E000      00000         988+         CLI   0(R14),C'Y' -       Did user specify "Y"?       @TMVT804
0007F2 4770 8800            00802   989+         BNE   IP763 -             Branch if so to do it       @TMVT804
0007F6 41E0 E001            00001   990+         LA    R14,1(,R14) -       Else point to next stop     @TMVT804
0007FA 46F0 87EC            007EE   991+         BCT   R15,IP760 -         Back to look at it          @TMVT804
0007FE 47F0 889E            008A0   992+         B     IP777 -             All "N", skip commands      @TMVT804
000802                              993+IP763    DS    0H -                Use this COMMNDxx suffix    @TMVT804
000802 4110 0007            00007   994+         LA    R1,7 -              Calculate                   @TMVT804
000806 1B1F                         995+         SR    R1,R15 -             offset                     @TMVT804
000808 8910 0001            00001   996+         SLL   R1,1 -                to suffix                 @TMVT804
00080C 4111 88DC            008DE   997+         LA    R1,COMMNDSF(R1) -      and point to it          @TMVT804

                                    999+*------------------------------------------------------------* @TMVT804
                                   1000+*        Attach SYSVICMD subtask to issue commands           * @TMVT804
                                   1001+*        from COMMNDxx member of SYS1.PARMLIB.               * @TMVT804
                                   1002+*------------------------------------------------------------* @TMVT804
000810 5820 8C82            00C84  1003+         L     R2,PARMSAVE -       Get PARMLIB UCB pointer     @TMVT804
000814 1222                        1004+         LTR   R2,R2 -             Is PARMLIB present?         @TMVT804
000816 4780 88EA            008EC  1005+         BZ    IP799 -             Skip auto commands if not   @TMVT804
00081A D70F 8C86 8C86 00C88 00C88  1006+         XC    IPQPAM(16),IPQPAM - Zero parm list              @TMVT804
000820 5020 8C86            00C88  1007+         ST    R2,IPQPAM -         Set UCB pointer in PARMLIB  @TMVT804
000824 5010 8C8A            00C8C  1008+         ST    R1,IPQPAM+4 -       Set suffix pointer in plist @TMVT804
000828 4110 8C86            00C88  1009+         LA    R1,IPQPAM -         Point to parm list          @TMVT804
00082C D703 B00C B00C 0000C 0000C  1010+         XC    BAIPL(4),BAIPL -    Zero subtask ECB            @TMVT804
000832 4120 B00C            0000C  1011+         LA    R2,BAIPL -          Point to UCB for attach     @TMVT804
                                   1012+*        ATTACH EP=SYSVICMD,       Attach command subtask      @TMVT804
                                   1013+*              ECB=(R2),           R2 points to subtask ECB    @TMVT804
                                   1014+*              KEY=ZERO,           Place subtask in key zero   @TMVT804
                                   1015+*              SM=SUP,             And supervisor state        @TMVT804
                                   1016+*              JSTCB=YES,          Must be job step TCB        @TMVT804
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1017+*              SVAREA=YES,         Provide subtask save area   @TMVT804
                                   1018+*              SZERO=NO,           Don't share subpool zero    @TMVT804
                                   1019+*              GIVEJPQ=NO,         Don't pass job pack queue   @TMVT804
                                   1020+*              MF=(E,(1))          Use remote parameter list   @TMVT804
000836 41F0 8842            00844  1021+         LA    15,IHB0048 LOAD 15 WITH LIST ADDR
00083A 5020 F008            00008  1022+         ST    R2,8(0,15) STORE ECB INTO LIST
00083E 47F0 F034            00034  1023+         B     52(0,15) .AROUND LIST.                        20021
000844                             1024+IHB0048  DS    0F SUP. PARAM. LIST
000844 00000860                    1025+         DC    A(*+28) ADDRESS OF SYMB NAME
000848 00                          1026+         DC    AL1(0) NO HIARCHY                       LCS1
000849 000000                      1027+         DC    AL3(0) DCB ADDRESS                 LCS1
00084C 00000000                    1028+         DC    A(0) ECB ADDRESS
000850 00000000                    1029+         DC    A(0) GSPV VALUE OR GSPL ADR
000854 00000000                    1030+         DC    A(0) SHSPL OR SHSPV
000858 02                          1031+         DC    AL1(2) SET ROLLOUT BITS  RORI
000859 000000                      1032+         DC    AL3(0) ETXR ROUT. ADDRESS    RORI
00085C 0000                        1033+         DC    AL2(0) DPMOD VALUE
00085E 00                          1034+         DC    AL1(0) LPMOD VALUE
00085F 1A                          1035+         DC    AL1(26)
000860 E2E8E2E5C9C3D4C4            1036+         DC    CL8'SYSVICMD' EP SYMBOL
000868 00000000                    1037+         DC    A(0) ADDRESS OF JSCB                  I270
00086C 0000000000000000            1038+         DC    A(0,0) .NO STAI PARM LIST OR EXIT ADDR.     20021
000874 00000000                    1039+         DC    A(0) .NO TASKLIB.                         20021
000878 0A2A                        1040+         SVC   42 ISSUE ATTACH SVC
00087A 5010 8B1E            00B20  1041+         ST    R1,CB10 -           Save subtask TCB address    @TMVT804
                                   1042+*        WAIT  ECB=BAIPL -         Wait for subtask to end     @TMVT804
00087E 4110 B00C            0000C  1043+         LA    1,BAIPL LOAD PARAMETER REG 1
000882 4100 0001            00001  1044+         LA    0,1(0,0) COUNT OMITTED,1 USED
000886 0A01                        1045+         SVC   1 LINK TO WAIT ROUTINE
000888 4110 8B1E            00B20  1046+         LA    R1,CB10 -           Point to subtask TCB addr   @TMVT804
                                   1047+*        DETACH (1) -              Detach the subtask          @TMVT804
00088C 0A3E                        1048+         SVC   62 ISSUE DETACH SVC
00088E 5810 B00C            0000C  1049+         L     R1,BAIPL -          Get subtask RC              @TMVT804
000892 8910 0008            00008  1050+         SLL   R1,8 -              Shift out                   @TMVT804
000896 8810 0008            00008  1051+         SRL   R1,8 -               possible flag bits         @TMVT804
00089A 1211                        1052+         LTR   R1,R1 -             Did subtask end normally?   @TMVT804
00089C 4780 88EA            008EC  1053+         BZ    IP799 -             Branch if so                @TMVT804

0008A0                             1055+IP777    DS    0H -                COMMND processing not done  @TMVT804
0008A0 9500 8AEA      00AEC        1056+         CLI   CB1,X'00' -         Initial WTO only call?      @TMVT804
0008A4 4780 88EA            008EC  1057+         BE    IP799 -             Exit if so                  @TMVT804
                                   1058+*        WTO   'IEA208I COMMND FUNCTION INOPERATIVE', -        @TMVT804
                                   1059+*              ROUTCDE=2 -                                     @TMVT804
0008A8                             1060+         CNOP  0,4
0008A8 4510 88D6            008D8  1061+         BAL   1,IHB0055A BRANCH AROUND MESSAGE
0008AC 0027                        1062+         DC    AL2(39) TEXT LENGTH
0008AE 8000                        1063+         DC    B'1000000000000000' MCS FLAGS
0008B0 C9C5C1F2F0F8C940            1064+         DC    C'IEA208I COMMND FUNCTION INOPERATIVE'
0008D3 0000                        1065+         DC    B'0000000000000000' DESCRIPTOR CODES
0008D5 4000                        1066+         DC    B'0100000000000000' ROUTING CODES
0008D8                             1067+IHB0055A DS    0H
0008D8 0A23                        1068+         SVC   35
0008DA 47F0 88EA            008EC  1069+         B     IP799 -             Done with commands          @TMVT804
0008DE F0F0F0F1F0F2F0F3            1070+COMMNDSF DC    C'00010203040506' COMMNDxx suffixes           @TMVT804
                                   1071+*****    END OF STATEMENTS INSERTED BY TMVT804          *****  @TMVT804
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0008EC 07F9                        1072+IP799    BR    R9 RETURN                      OC43
                                   1073+*
                                   1074+***********************************************************************
                                   1075+*              EXIT TO LOG INITIALIZATION MODULE
                                   1076+*                   .CLEAR PTR TO STOP INDICATOR AREA
                                   1077+***********************************************************************
0008EE                             1078+IP800    EQU   *
0008EE 4100 88F4            008F6  1079+         LA    0,*+8 LOAD PARAMETER INTO REGISTER ZERO
0008F2 47F0 88FC            008FE  1080+         B     *+12 BRANCH AROUND CONSTANT(S)
0008F6 C9C5C5E5D3C9D540            1081+         DC    CL8'IEEVLIN' ENTRY POINT NAME
0008FE 1B11                        1082+         SR    1,1 SHOW NO DCB PRESENT
000900 0A08                        1083+         SVC   8 ISSUE LOAD SVC
000902 D703 B018 B018 00018 00018  1084+         XC    BACV(4),BACV ZERO STOP IND ADDRESS
                                   1085+*                                      IS NO LONGER IPL           20030
000908 D201 B036 8B39 00036 00B3B  1086+         MVC   BABCMAX(L'BCLMT),BCLMT MOVE LIMIT TO BASEA        20030
00090E 5830 8C82            00C84  1087+         L     R3,PARMSAVE PASS PARMLIB UCB PTR       M0419
000912 58C0 0010            00010  1088+         L     R12,CVTPTR M0419
000916 58A0 8D62            00D64  1089+         L     R10,SMFOPT GET SMF OPTION FIELDS      M0419
00091A 89A0 0018            00018  1090+         SLL   R10,24 ISOLATE SMFOPT+3 IN HI-ORDER    M0419
00091E 50A0 C0C4            000C4  1091+         ST    R10,CVTSMCA BYTE OF CVTSMCA SLOT       M0419
000922 0700                        1092+         CNOP  0,4
000924 45F0 8936            00938  1093+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
000928 00000930                    1094+         DC    A(*+8) ADDR OF EP PARAMETER
00092C 00000000                    1095+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000930 C9C5C5E5E2C9D7D3            1096+         DC    CL8'IEEVSIPL' EP PARAMETER
000938 0A06                        1097+         SVC   6 ISSUE LINK SVC
00093A 0700                        1098+         CNOP  0,4
00093C 45F0 894E            00950  1099+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
000940 00000948                    1100+         DC    A(*+8) ADDR OF EP PARAMETER
000944 00000000                    1101+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000948 C9C5C5E5D3C9D540            1102+         DC    CL8'IEEVLIN' EP PARAMETER
000950 0A07                        1103+         SVC   7 ISSUE XCTL SVC
                                   1104+*
                                   1105+*        LOG CONSTANTS                                             LMCS
000952 0000
000954 00000028                    1106+LOGTIOT  DC    F'40' LENGTH OF LOG TIOT ENTRIES  LMCS
                                   1107+***********************************************************************
                                   1108+*
                                   1109+*              MODULE CONSTANTS
                                   1110+*
                                   1111+***********************************************************************
                                   1112+*
                                   1113+***********************************************************************
                                   1114+*                                                                     *
                                   1115+*               TOD CLOCK CONSTANTS                                   *
                                   1116+*                                                                     *
                                   1117+***********************************************************************
000958                             1118+         DS    0D 20071
000958 F040404040404040            1119+DOUBLE   DC    CL8'0' UNPACKING DOUBLE WORD          20071
000960 00000000                    1120+TIMEAREA DC    F'0' DOUBLE WORD FOR                20071
000964 00000000                    1121+         DC    F'0' TOD CLOCK VALUE                20071
000968                             1122+TODMSG1  DS    0F
000968 00                          1123+         DC    AL1(0) REPLY LENGTH
000969 000000                      1124+         DC    AL3(0) REPLY ADDRESS
00096C 00000000                    1125+         DC    A(0) ECB ADDRESS
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000970 0038                        1126+         DC    AL2(56) TEXT LENGTH
000972 8000                        1127+         DC    B'1000000000000000' MCS FLAGS
000974 C9C5C5F1F1F6C140            1128+         DC    C'IEE116A TOD CLOCK INVALID- REPLY WITH SET PARAMETERS'
0009A8 4000                        1129+         DC    B'0100000000000000' DESCRIPTOR CODES
0009AA 8000                        1130+         DC    B'1000000000000000' ROUTING CODES
0009AC                             1131+TODMSG2  DS    0F
0009AC 00                          1132+         DC    AL1(0) REPLY LENGTH
0009AD 000000                      1133+         DC    AL3(0) REPLY ADDRESS
0009B0 00000000                    1134+         DC    A(0) ECB ADDRESS
0009B4 0047                        1135+         DC    AL2(71) TEXT LENGTH
0009B6 8000                        1136+         DC    B'1000000000000000' MCS FLAGS
                                   1137+         DC    C'IEE114A DATE=00.000,CLOCK=00.00.00 - REPLY WITH SET PAX
0009B8 C9C5C5F1F1F4C140                +               RAMETERS OR U'
0009FB 4000                        1138+         DC    B'0100000000000000' DESCRIPTOR CODES
0009FD 8000                        1139+         DC    B'1000000000000000' ROUTING CODES
0009B8                             1140+MSGCHNG  EQU   TODMSG2+K12 SET UP EQUATE TO DYNAMICALLY   20071
                                   1141+*                                  CHANGE MESSAGE                 20071
0009FF 00
000A00 00000000                    1142+TODECB   DC    F'0' TOD WTOR ECB                   20071
000A04 0078                        1143+TODBUF   DC    X'0078' START OF REPLY BUFFER          20071
000A06 0000                        1144+         DC    X'0000' **                    20071
000A08 E2C5E340                    1145+TODSET   DC    CL4'SET' ALREADY IN REPLY BUFFER FOR    20071
                                   1146+*                                  LATER INTERNAL SET COMMAND     20071
000A0C 4040404040404040            1147+TODREPLY DC    CL122' ' REPLY AREA FOR TOD WTORS       20071
000A86 F04040                      1148+YDATE    DC    CL3'0' *             KEEP THIS        20071
000A89 F04040                      1149+DDATE    DC    CL3'0' *          AREA TOGETHER       20071
000A8C F04040                      1150+HTIME    DC    CL3'0' *           FOR INTERNAL       20071
000A8F F04040                      1151+MTIME    DC    CL3'0' *            SET-UP OF         20071
000A92 F04040                      1152+STIME    DC    CL3'0' *           DATE AND TIME      20071
000A95 6B                          1153+COMDATE  DC    C',' COMMA MUST PRECEDE 'DATE='     20071
000A96 C4C1E3C57E                  1154+DATE     DC    C'DATE=' DATE PARAM FOR SET COMMAND     20071
000A9B 8481A3857E                  1155+LOWCASE1 DC    X'8481A3857E' 'DATE=' IN LOWER CASE          M1866
000AA0 6B                          1156+COMCLOCK DC    C',' COMMA MUST PRECEDE 'CLOCK='    20071
000AA1 C3D3D6C3D27EF0F0            1157+CLOCK    DC    C'CLOCK=00.00.00' CLOCK PARAM FOR SET COMMAND    M3230
000AAF 83939683927E                1158+LOWCASE2 DC    X'83939683927E' 'CLOCK=' IN LOWER CASE         M1866
000AB5 00                          1159+CCBITS   DC    X'00' SAVE COND CODE FROM STCK       20071
000AB6 000A                        1160+TEN      DC    H'10' USED IN CONVERTING TO DECIMAL  20071
000AB8 47C0F0D8                    1161+YR2000   DC    F'1203826904' MIC SEC IN TOD ON JAN 1,2000   M5381
000ABC 00004000                    1162+D16384   DC    F'16384' SECOND CONVERSION CONSTANT     20071
000AC0 00003D09                    1163+D15625   DC    F'15625' **                 20071
000AC4 00015180                    1164+D86400   DC    F'86400' NO. SECONDS PER DAY            20071
000AC8 0000016D                    1165+D365     DC    F'365' NO. DAYS IN REGULAR YEAR       20071
000ACC 0000016E                    1166+D366     DC    F'366' NO. DAYS IN LEAP YEAR          20071
000AD0 E440                        1167+U        DC    CL2'U' CHARACTER 'U' FOR REPLY        20071
000AD2 F6F0                        1168+D60      DC    C'60' CHAR 60 FOR FIRST YEAR OF TOD  20071
000AD4 0000003C                    1169+F60      DC    F'60' NO. SECONDS PER MINUTE         20071
000AD8 00000E10                    1170+D3600    DC    F'3600' NO. SECONDS PER HOUR           20071
000ADC 000005B4                    1171+D1460    DC    F'1460' NO. DAYS PER FOUR YEARS-1     A52614
000AE0 000005B5                    1172+D1461    DC    F'1461' NO. DAYS PER FOUR YEARS        20071
                                   1173+***********************************************************************
000AE4                             1174+         DS    0F
000AE4 00                          1175+CB8      DC    X'00' KEEP        8 BYTE AREA
000AE5 D5D5D5D5D5D5D5              1176+         DC    C'NNNNNNN' TOGETHER      FOR STOP FLAGS
000AEC 00                          1177+CB1      DC    X'00'
000AEE                             1178+         DS    0H M5510
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000AEE 0000                        1179+HALFZERO DC    H'0' TJID ZEROES OVERLAY            M5510
                                   1180+*
000AF0                             1181+         DS    0F
000AF0                             1182+IPCAT    DS    0F ALIGN ON FULL WORD
000AF0 54                          1183+         DC    AL1(84) THREE BYTES OF FLAGS
000AF1 00                          1184+         DC    AL1(0) INDICATING THE FUNC-
000AF2 00                          1185+         DC    AL1(0) TION TO BE PERFORMED
000AF3 00                          1186+         DC    AL1(0) NO OPTION THREE
000AF4 00000B00                    1187+         DC    A(IPDSN) PARAMETER TWO
000AF8 00000000                    1188+         DC    A(0) PARAM. THREE OMMITTED
000AFC 00000B0E                    1189+         DC    A(IPVOLS) PARAMETER FOUR
000B00 E2E8E2F14BD7D9D6            1190+IPDSN    DC    C'SYS1.PROCLIB ' PROCLIB NAME
000B0D 00
000B0E 0001                        1191+IPVOLS   DC    H'1' RESIDES ON 1 VOLUME
000B10                             1192+IPDEVTYP DS    4C DEVICE TYPE
000B14                             1193+IPVOLSER DS    6C VOL SER NO
000B1A 0000                        1194+         DC    H'0' ZERO SEQUENCE NUMBER
000B1C 00000008                    1195+CB08     DC    F'8'
000B20                             1196+CB10     DS    1F
000B24 00000004                    1197+CF04     DC    F'4'
000B28 FF00006C                    1198+CX108    DC    X'FF00006C' GET CORE CONSTANT FOR 108 IN S
000B2C 0000FFFF                    1199+CF0F     DC    X'0000FFFF'
000B30 40404040                    1200+IPSGJQ   DC    CL4' ' SYSGEN JOB QUEUE UNIT.
000B34 4040404040                  1201+IPSGPL   DC    CL5' '
000B39 D3                          1202+IPLCS    DC    CL1'L'
000B3A 0A                          1203+IPLCT    DC    AL1(10) LOG QUEUE LIMIT.
000B3B 0064                        1204+BCLMT    DC    AL2(100) LIMIT OF BROADCAST MSG RECORDS
                                   1205+*                                      FOR TSO SEND CP            20030
000B3D 2005                        1206+TYPE2321 DC    X'2005' 2321 ID
000B3F F0F1F2F3F4F5F6F7            1207+BINTABLE DC    C'012345678' BIN ID'S
000B48 F9                          1208+BINLAST  DC    C'9' LAST ENTRY IN TABLE
000B4C                             1209+MAINSVE  DS    F AABA
000B50                             1210+         DS    0F
000B50 00                          1211+IP400SW  DC    X'00' AABA
000B58                             1212+IP400WKR DS    D AABA
000B60 E2E8E2F14BE2E8E2            1213+JOBQDSN  DC    CL14'SYS1.SYSJOBQE ' AABA
000B6E E2E8E2F14BD7D9D6            1214+PROCDSN  DC    CL14'SYS1.PROCLIB  ' AABA
000B7C 44000000                    1215+LOCCNTRL DC    X'44000000' LOCATE CONTROL BYTE                   AABA
000B80 C1000000                    1216+OBTCNTRL DC    X'C1000000' OBTAIN CONTROL BYTE                   AABA
000B84 0000000F                    1217+CF00F    DC    X'0000000F' AABA
000B88 40404040                    1218+BLNKS    DC    X'40404040' AABA
000B8C                             1219+         DS    0F AABA
000B8C 0030                        1220+IP381    DC    AL2(IP384-*) **MESSAGE LENGTH                AABA
000B8E 0000                        1221+         DC    AL2(0) **                              AABA
000B90 C9C5C5F3F4F3C540            1222+         DC    C'IEE343E  ' **MESSAGE NUMBER                 WMCS
000B99 4040404040406B40            1223+IP382    DC    C'      , ' **VOLUME SERIAL NUMBER          AABA
000BA1 4040404040404040            1224+IP383    DC    CL14'              ' *DATA SET NAME                 AABA
000BAF 6B40D5D6E340D4D6            1225+         DC    C', NOT MOUNTED' **                              AABA
000BBC                             1226+IP384    EQU   *
000BBC 2000                        1227+         DC    X'2000' DESCRIPTOR CODES                 WMCS
000BBE 9000                        1228+         DC    X'9000' ROUTING CODES                    WMCS
000BC0                             1229+         DS    0F AABA
000BC0 0037                        1230+IP391    DC    AL2(IP395-*) **MESSAGE LENGTH                AABA
000BC2 0000                        1231+         DC    AL2(0) **                              AABA
000BC4 C9C5C5F3F4F4C540            1232+         DC    C'IEE344E  ' **MESSAGE NUMBER                 WMCS
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000BCD 4040404040404040            1233+IP392    DC    CL14'              ' *DATA SET NAME                 AABA
000BDB 6B40D5D6E340C6D6            1234+         DC    C', NOT FOUND ON ' **                              AABA
000BEA 4040404040406B40            1235+IP393    DC    C'      , ' **VOLUME SERIAL                 AABA
000BF2 4040404040                  1236+IP394    DC    C'     ' **UNIT NAME                     AABA
000BF7                             1237+IP395    EQU   *
000BF7 2000                        1238+         DC    X'2000' DESCRIPTOR CODES                 WMCS
000BF9 9000                        1239+         DC    X'9000' ROUTING CODES                    WMCS
000BFC                             1240+RDYMSG   DS    0F
000BFC 0011                        1241+         DC    AL2(17) TEXT LENGTH
000BFE 8000                        1242+         DC    B'1000000000000000' MCS FLAGS
000C00 C9C5C5F1F0F1C140            1243+         DC    C'IEE101A READY'
000C0D 2000                        1244+         DC    B'0010000000000000' DESCRIPTOR CODES
000C0F 8000                        1245+         DC    B'1000000000000000' ROUTING CODES
                                   1246+*
                                   1247+*
                                   1248+*                  ****************************
                                   1249+*                  *                          *
                                   1250+*                  *                          *
                                   1251+*                  *       VTIOT  MACRO       *
                                   1252+*                  *                          *
                                   1253+*                  *                          *
                                   1254+*                  ****************************
000C18                             1255+VTIOT    DS    0D
000C18 D4C1E2E3C5D94040            1256+         DC    CL8'MASTER' JOB NAME
000C20 E2C3C8C5C4E4D3D9            1257+         DC    CL16'SCHEDULR'
                                   1258+*
000C30 14                          1259+VRENTRY  DC    XL1'14' TIOT ENTRY LENGTH
000C31 00                          1260+         DC    XL1'00' STATUS A
000C32 0000                        1261+         DC    XL2'0000' REL. LOC OF POOL
000C34 C9C5C6D9C4C5D940            1262+VRDNAME  DC    CL8'IEFRDER' READER DDNAME
000C3C 00000000                    1263+VRJFCBT  DC    F'0' DISK ADDR OF JFCB AND STATUS C
000C40 80000000                    1264+VRUCBPT  DC    X'80000000' STATUS B AND UCB POINTER
                                   1265+*
000C44 14                          1266+VDENTRY  DC    XL1'14' TIOT ENTRY LENGTH
000C45 00                          1267+         DC    XL1'00' STATUS A
000C46 0000                        1268+         DC    XL2'0000' REL. LOC OF POOL
000C48 C9C5C6C4C1E3C140            1269+VDDNAME  DC    CL8'IEFDATA' SYSIN DATA DDNAME
000C50 00000000                    1270+VDJFCBT  DC    F'0' DISK ADDR OF JFCB AND STATUS C
000C54 80000000                    1271+VDUCBPT  DC    X'80000000' STATUS B AND UCB POINTER
                                   1272+*
000C58 14                          1273+VPENTRY  DC    XL1'14' TIOT ENTRY LENGTH
000C59 00                          1274+         DC    XL1'00' STATUS A
000C5A 0000                        1275+         DC    XL2'0000' REL. LOC OF POOL
000C5C C9C5C6D7C4E2C940            1276+VPDNAME  DC    CL8'IEFPDSI' PROCEDURE LIBRARY DDNAME
000C64 00000000                    1277+VPJFCBT  DC    F'0' DISK ADDR OF JFCB AND STATUS C
000C68 80000000                    1278+VPUCBPT  DC    X'80000000' STATUS B AND UCB POINTER
                                   1279+*
000C6C 14                          1280+VJENTRY  DC    XL1'14' TIOT ENTRY LENGTH
000C6D 00                          1281+         DC    XL1'00' STATUS A
000C6E 0000                        1282+         DC    XL2'0000' REL. LOC OF POOL
000C70 E2E8E2D1D6C2D8C5            1283+VJDNAME  DC    CL8'SYSJOBQE' SYSTEM JOB QUEUE DDNAME
000C78 00000000                    1284+VJJFCBT  DC    F'0' DISK ADDR OF JFCB AND STATUS C
000C7C 80000000                    1285+VJUCBPT  DC    X'80000000' STATUS B AND UCB POINTER
000C80 00000000                    1286+VTIOTEND DC    F'0' FINAL END
                                   1287+*
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000C84 00000000                    1288+PARMSAVE DC    F'0' PARMLIB UCB POINTER SAVE   OC43
000C88                             1289+IPQPAM   DS    4F QUEUE MANAGER PARAMETER LIST
                                   1290+*
000C98                             1291+IPXSA    DS    10F ERROR MESSAGE AREA
                                   1292+*
000CC0                             1293+IPREGSV  DS    18F REGISTER SAVE
                                   1294+*
000D08 0050                        1295+IPWTO    DC    X'0050'
000D0A 0000                        1296+         DC    X'0000'
000D0C 4040404040404040            1297+IPCC     DC    4CL20' '
000D5C 00000014                    1298+SENDTIOT DC    F'20' LENGTH OF SYS1.BRODCAST TIOT ENTRY       20030
000D60 0000003C                    1299+SMFTIOT  DC    F'60' LENGTH OF SMF TIOT ENTRIES   SMF
000D64 00000001                    1300+SMFOPT   DC    F'1' SMF SYSGEN OPTIONS           SMF
                                   1301+*                                                                   SMF
                                   1302+* BIT REPRESENTATIONS FOR SMFOPT+3                                  SMF
                                   1303+*                                                                   SMF
                                   1304+*        BIT0 - SMF REQUESTED                                       SMF
                                   1305+*        BIT1 -                                                     SMF
                                   1306+*        BIT2 -                                                     SMF
                                   1307+*        BIT3 -                                                     SMF
                                   1308+*        BIT4 -                                                     SMF
                                   1309+*        BIT5 -                                                     SMF
                                   1310+*        BIT6 -                                                     SMF
                                   1311+*        BIT7 - WARM START                                          SMF
                                   1312+*                                                                   SMF
000D68                             1313+         DS    0F
                                   1314+*
                                   1315+***********************************************************************
000D68                             1316+CCBGN    EQU   *
000D68                             1317+         ORG
000D68 4040404040404040            1318+INITC    DC    4CL20' '
000D68                             1319+         ORG   INITC
000D68 C9C5C5F1F0F3C940            1320+         DC    C'IEE103I S INIT' CREATE S UNIT               XMCS
000D76 405C                        1321+         DC    C' *'
000D78 1000                        1322+         DC    X'1000' DESCRIPTOR CODES                 WMCS
000D7A 8000                        1323+         DC    X'8000' ROUTING CODES                    WMCS
000DB8                             1324+         ORG
000DB8                             1325+CCEND    EQU   *
000DB8 00000050                    1326+CCNBR    DC    A(CCEND-CCBGN) TOTAL NO. BYTES
000DBC 00000000                    1327+CCURNT   DC    F'0'
000DC0 00000000                    1328+VCONBIE0 DC    V(ICFBIE00)
000DC4                             1329+         DS    0F
                                   1330+*
                                   1331+***********************************************************************
                                   1332+*
000000                             1333+BASE     DSECT

                                   1335+* THE FOLLOWING VALUES DEFINE BIT PATTERNS FOR SWITCHES

000080                             1337+BA0      EQU   128
000040                             1338+BA1      EQU   64
000020                             1339+BA2      EQU   32
000010                             1340+BA3      EQU   16
000008                             1341+BA4      EQU   8
000004                             1342+BA5      EQU   4
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000002                             1343+BA6      EQU   2
000001                             1344+BA7      EQU   1

000000 00000000                    1346+BACHN    DC    F'0' HANDLE TO COMMAND SCHEDULING CHAIN
000004 00000000                    1347+BATRM    DC    F'0' GROUP QUEUE POINTER
000008 00000000                    1348+BALAD    DC    F'0' ECB FOR ADDED CHAIN ELEMENT
00000C 80                          1349+BAIPL    DC    AL1(128) ECB FOR IPL-COMMUNICATIONS TASK
00000D 000000                      1350+         DC    VL3(IEECVPRB) WAITS ON IT--POSTED BY IEEVIPL
000010 00000000                    1351+BAQ      DC    F'0' POINTER TO JOB QUEUE UCB
000014 00000000                    1352+BAPRC    DC    F'0' POINTER TO PROCLIB UCB
000018 00000000                    1353+BACV     DC    F'0' WARM START INDICATOR AND AUTO =
                                   1354+*                             SET COMMAND AND IEEVIPL
00001C 00000000                    1355+BALOG    DC    F'0' POINTER TO LOG CONTROL TABLE

000020                             1357+BARSW    DS    0C
000020 00                          1358+BASFL    DC    X'00'
000080                             1359+BAIN     EQU   BA0 IPL FLAG
000040                             1360+BAJN     EQU   BA1 JOBNAMES FLAG
000020                             1361+BAINTSET EQU   BA2 INDICATES INTERNAL SET FOR TOD              20071
000010                             1362+BAVU     EQU   BA3 VARY/UNLOAD SUMMARY FLAG
000008                             1363+BAHR     EQU   BA4 Q HOLD-RELEASE FLAG
000004                             1364+BADSP    EQU   BA5 DISPLAY A PROCESSING FLAG
000002                             1365+BANOSET  EQU   BA6 TOD CLOCK SHOULD NOT BE SET                 20071
000001                             1366+BADSET   EQU   BA7 INVALID SET COMMAND INDICATOR FOR TOD CLOCK 20071

000021 00                          1368+BATRST   DC    X'00' NO. TRACKS IN INITIATOR STACK
000022 0000                        1369+BAICTR   DC    H'0' INTERPRETER COUNTER
000024 0000                        1370+BAPKES   DC    H'0' MASK OF INITIATOR PROTECT KEYS
000026 002C                        1371+BAMINPAR DC    H'44' MINIMUM INITIATOR PARTITION.        A21606
                                   1372+*                            MFT2 - NO. 1 K BYTES OF STORAGE     A21606
                                   1373+*                            NECESSARY TO RUN INITIATOR;         A21606
                                   1374+*                            MINIMUM SCHEDULER SIZE              A21606
000028 0000                        1375+BAMIPAR2 DC    H'00' MINIMUM/MINIMUM PARTITION SIZE
00002A 00                          1376+MSLOGST  DC    X'00' LOG STATUS                           XMCS
000080                             1377+MSLOGENQ EQU   BA0 LOG DATASET SCHEDULED TO BE     XMCS
                                   1378+*                                 QUEUED TO SYSOUT WRITER         XMCS
000040                             1379+MSLOGTHD EQU   BA1 LOG NOT SUPPORTED BIT           XMCS
000020                             1380+MSLOGCOM EQU   BA2 SIGNAL FOR COM TASK TO STOP     XMCS
                                   1381+*                                 ISSUING WTLS                    XMCS
000010                             1382+MSLOGDAR EQU   BA3 CONTROL BIT TO IDENTIFY         M2092
                                   1383+*                                 REENTRY OF IEELOGWR FROM        M2092
                                   1384+*                                 DAR(DUE TO 80A ABEND)           M2092
00002B 00                          1385+BASPBYTE DC    X'00' MSTR SCH INIT CPL          20030
000080                             1386+BAMSCPLT EQU   X'80' MSTR SCHED INITIALIZATION  M4300
                                   1387+*                                      IS COMPLETE BIT-SET ON     M4300
                                   1388+*                                      ENTRY TO IEEVWAIT          M4300
00002C 00000000                    1389+BALOGECB DC    F'0' LOG ECB                          XMCS
000030 00000000                    1390+BADSO    DC    F'0' ORIGIN OF DSO CONTROL BLOCK CHAIN     O99
000034 00                          1391+BAMONITR DC    X'00' MONITOR FLAGS (TERMINALS-TJB CHAIN, 20030
                                   1392+*                             CONSOLES-UCME CHAIN)                20030
000080                             1393+BAMJN    EQU   BA0 JOBNAMES FLAG FOR TERMINALS     20030
000040                             1394+BAMDSN   EQU   BA1 DSNAME FLAG FOR TERMINALS       20030
000020                             1395+BAMSPACE EQU   BA2 SPACE FLAG FOR TERMINALS        20030
000010                             1396+BAMSTAT  EQU   BA3 STATUS FLAG FOR TERMINALS       20030
000008                             1397+BAMSESST EQU   BA4 SESSIONS FLAG FOR TERMINALS     20030
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000004                             1398+BAMSESSC EQU   BA5 SESSIONS FLAG FOR CONSOLES      20030
000002                             1399+BAMACTVE EQU   BA6 MONITOR FLAG FOR CONSOLES       21002
000035 00                          1400+BAMONTR2 DC    X'00' RESERVED FOR MONITOR                20030
000036 0000                        1401+BABCMAX  DC    H'00' MAX NUMBER OF BROADCAST MESSAGES    20030
000038 00                          1402+BADUMPID DC    X'00' DUMP ID FOR STAE IN MASTER          20030
000039 000000                      1403+BASP5    DC    X'000000' SPARE                               20030
00003C 00000000                    1404+BASP6    DC    F'0' SPARE
000040 00000000                    1405+BASP7    DC    F'0' SPARE
000044 00000000                    1406+BASP8    DC    F'0' SPARE
000048 00000000                    1407+BASP9    DC    F'0' SPARE
00004C 00000000                    1408+BASP10   DC    F'0' SPARE
000050 00000000                    1409+BASP11   DC    F'0' SPARE
000054 00000000                    1410+BASP12   DC    F'0' SPARE
000058                             1411+         DS    12F


                                   1413+*                                  ************************************
                                   1414+*                                  *                                  *
                                   1415+*                                  *    SYMBOLIC BIT DEFINITIONS      *
                                   1416+*                                  *                                  *
                                   1417+*                                  ************************************


000080                             1419+BIT0     EQU   128
000040                             1420+BIT1     EQU   64
000020                             1421+BIT2     EQU   32
000010                             1422+BIT3     EQU   16
000008                             1423+BIT4     EQU   8
000004                             1424+BIT5     EQU   4
000002                             1425+BIT6     EQU   2
000001                             1426+BIT7     EQU   1
000088                             1427+MS1BASEX EQU   *
000088 0000000000000000            1428+         DC    XL20'0'
00009C 0000000000000000            1429+         DC    XL20'0'
0000B0 0000000000000000            1430+         DC    XL8'0' 48 BYTES ZEROED.
000088                             1431+         ORG   MS1BASEX

000088                             1433+MSNTAL   DS    C INITIALIZATION BYTE.
000080                             1434+MSNIP    EQU   BIT0 IPL SWITCH
                                   1435+*              BIT1     SYSOUT IPL.
                                   1436+*              BIT2     SYSOUT JOB START.
000004                             1437+MSCURE34 EQU   BIT5 34 SECURITY BIT.
000002                             1438+MSQNIP   EQU   BIT6 Q INITIALIZED.
000001                             1439+MSPNIP   EQU   BIT7 PROCEDURE CATALOG INITIALIZED.
000089                             1440+MSSSB    DS    C SSS SYSTEM EXCLUSIVE     BYTE 2
000080                             1441+MSCONFLG EQU   BIT0 CONSOLE FLAG
000040                             1442+MSCANFLG EQU   BIT1 CANCEL FLAG FOR ABENDT
000020                             1443+MSROLFLG EQU   BIT2 ROLL-OUT FLAG
000010                             1444+MSSO     EQU   BIT3 SPINOFF FLAG(CANCEL)
000089                             1445+MSBTN    EQU   MSSSB TIME NOTE BIT IS BIT 6
000002                             1446+MSTN     EQU   2 VALUE TO TURN ON TIME NOTE
000008                             1447+MSSSDSN  EQU   BIT4 DISPLAY DATASET NAME                      AABA
000004                             1448+MSSSPACE EQU   BIT5 DISPLAY SPACE                             AABA

00008A                             1450+MSPFG    DS    C PENDING FLAGS...
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000080                             1451+MSDATE   EQU   BIT0 IPL DATE
000040                             1452+MSPNB    EQU   BIT1 PARTITION BUSY.
000020                             1453+MSCMC    EQU   BIT2 COMMAND MOVE COMPLETED.
000010                             1454+MSICR    EQU   BIT3 INTERPRETER COMMAND RETURN.
000008                             1455+MSSYN    EQU   BIT4 SYSTEM INPUT CONTROL PURGE REQUEST.
000004                             1456+MSSYT    EQU   BIT5 SYSTEM OUTPUT CONTROL PURGE REQUEST.
000002                             1457+MSBSP    EQU   BIT6 BLANK START PENDING(REQ=1,START BLANK=0)
000001                             1458+MSCCS    EQU   BIT7 CONSOLE COMMAND SUPPRESSED.

00008B                             1460+MSECBFL  DS    C ECB FLAGS...
000080                             1461+MSEXT    EQU   BIT0 EXTERNAL INTERRUPT.
000040                             1462+MSWTO    EQU   BIT1 WRITE TO OPERATOR.
000020                             1463+MSWTL    EQU   BIT2 WRITE TO LOG.
000010                             1464+MSATTN   EQU   BIT3 CONSOLE ATTENTION.
000008                             1465+MSYSIN   EQU   BIT4 SYSTEM INPUT.
000004                             1466+MSYSOUT  EQU   BIT5 SYSTEM OUTPUT.
000002                             1467+MSMCR    EQU   BIT6 MASTER COMMAND ROUTINE
000001                             1468+MSSUM    EQU   BIT7 SUMMARY BIT, VARY UCB SCAN REQUIRED.

00008C                             1470+MSSSA    DS    0C SSS RESIDENT SWITCHES.
00008C                             1471+MSTUS    DS    C STATUS FLAGS...
000080                             1472+MSINLSW  EQU   BIT0 MASTER INITIALIZATION SWITCH.
000080                             1473+MSSSSIPL EQU   BIT0 IPL.
000040                             1474+MSWRPEN  EQU   BIT1 WTO PENDING.
000020                             1475+MSNUPSW  EQU   BIT2 CONSOLE USAGE,PRINCIPLEOR ALTERNATE.
000010                             1476+MSWRLOG  EQU   BIT3 LOG PURGE REQUEST.
000008                             1477+MSREOF   EQU   BIT4 READER END OF FILE.
000008                             1478+MSSRDR   EQU   BIT4 START READER.
000004                             1479+MSNRP    EQU   BIT5 NEW READER PENDING.
000002                             1480+MSNWP    EQU   BIT6 NEW WRITER PENDING.
000002                             1481+MSYOUT   EQU   BIT6 NEW WRITER PENDING(MODIFY).
000001                             1482+MSJNF    EQU   BIT7 JOB NOTIFICATION FLAG(1=YES).

00008D                             1484+MSFHF    DS    C FETCH FLAGS...
000080                             1485+MSNMF    EQU   BIT0 NAMED     FETCH
000040                             1486+MSCSD    EQU   BIT1 CURRENT COMMAND EXECUTION SEQUENCE DEFER.
000020                             1487+MSTTT    EQU   BIT2 TCB TREE TRACE  FETCH (LOCATE).
000010                             1488+MSFAX    EQU   BIT3 AUXILARY FETCH GIVEN.
000008                             1489+MSREPLYB EQU   BIT4 REPLY BIT TO REQUEST ATTENTION
000004                             1490+MSPSDT   EQU   BIT5 PSEUDO-SYSOUT FLAG
000002                             1491+MSDISPST EQU   BIT6 STATUS NOTIFICATION FLAG
000001                             1492+MSQHR    EQU   BIT7 Q HOLD-RELEASE

00008E                             1494+MSVRB    DS    8C COMMAND VERB.
000096                             1495+MSPASS   DS    8C VARIABLE COMMUNICATION FIELD
00009E                             1496+MSERM    DS    H MESSAGE GENERATION CONTROL.
0000A0                             1497+MSPBP    DS    F P POINTER. POINTS TO CHAR. BEFORE LIST.

0000A4                             1499+MSECB    DS    F MASTER ECB.
0000A8                             1500+MSSJQ    DS    F ADDR OF ECB IN SJQ ENTRY OF JOB USING CONSOLE.
                                   1501+*                       CURRENT UCB POINTED AT FROM IEECUCB.
0000AC                             1502+MSBOBECB DS    F ECB FOR ALLOCATION INTERNAL USE.
                                   1503+*                                                UCB POINTERS.
0000B0                             1504+MSUCBPR  DS    F PRIMARY        UCB
0000B4                             1505+MSUCBAL  DS    F ALTERNATE      UCB
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000B8 00000000                    1506+MSABL    DC    V(IEA0IO02) PSEUDO-DISABLE SWITCH.
0000BC                             1507+MSSPARE  DS    2F
                                   1508+***********************************************************************
                                   1509+*
000000                             1510+SXSA     DSECT
000000                             1511+         DS    0F
                                   1512+*                           EXTENDED SAVE AREA MACRO
                                   1513+*
                                   1514+*              ADDRESSABILITY MAY ALWAYS BE HAD WITH THESE INSTRUCTIONS
                                   1515+*
                                   1516+*        L R,16 / L R,0(R) / L R,4(R) / L R,0(R) / LA R,96(R)
                                   1517+*


000000                             1519+XSA      DS    0D BEGINNING OF SAVE AREA

                                   1521+*                      MODULE TRANSITION PARAMETER LIST

000000                             1523+XAP      DS    F POINTER TO XCTL NAME
000004                             1524+XAD      DS    F DCB PTR. (0)
000008                             1525+XAX      DS    D XCTL NAME
000010                             1526+XAE      DS    0C ERROR CODE
000010                             1527+XAR      DS    F PTR TO PARM LIST (REG1)
000014                             1528+XAN      DS    0C VERB INDEX
000014                             1529+XAL      DS    F PTR TO LIST POSITION
000018                             1530+XAV      DS    D VERB
000020                             1531+XAS      DS    D TEMORARY SAVE AREA
000028                             1532+XAU      DS    C UCM ENTRY INDICATOR            20030
000029                             1533+         DS    C RESERVED                       20030
00002A                             1534+XAJ      DS    H TJID ENTRY INDICATOR           20030
00002C                             1535+         DS    F RESERVED                       20030

                                   1537+*                           MESSAGE AREA TABLE

000000                             1539+         ORG   XSA
000000                             1540+XAH      DS    F RECORD HEADER
000004                             1541+XAI      DS    2F MESSAGE ID
00000C                             1542+XAF      DS    2F FILL (VARIABLE TEXT)
000014                             1543+XAT      DS    6F PRE-FORMATTED TEXT,
                                   1544+*                                  DESCRIPTOR CODE,
                                   1545+*                                  ROUTING CODE
00002C                             1546+         DS    F RESERVED
                                   1547+*
                                   1548+***********************************************************************
                                   1549+*
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1551+***                                                                AABA
                                   1552+* THE FOLLOWING DSECT MAPS THE WORK AREA IN GOTTEN CORE THAT IS USED  *
                                   1553+* BY THE OBTAIN AND LOCATE ROUTINES                                AABA
                                   1554+***                                                                AABA
000000                             1555+IPWKAREA DSECT  AABA
000000                             1556+         DS    0D AABA
000000                             1557+IPWKST   EQU   * AABA
000000                             1558+VCBCOUNT DS    CL2 *COUNT OF VOLUMES IN VCB      *****            AABA
000002                             1559+VCBDEVTP DS    CL4 *DEVICE TYPE FOR VOLUME           *            AABA
000006                             1560+VCBVOLSN DS    CL6 *VOLUME SERIAL NUMBER             *            AABA
00000C                             1561+VCBDSSQN DS    CL2 *DATA SET SEQ NUMBER              *            AABA
00000E                             1562+         DS    CL228 ***LOCATE    AABA
0000F2                             1563+VCBSPARE DS    CL10 *                                 *            AABA
0000FC                             1564+VCBNXTCB DS    CL4 *TTR OF NEXT VCB                  *            AABA
000100                             1565+VCBINDXA DS    CL3 *TTR OF THIS INDEX BLOCK                        AABA
000103                             1566+VCBCVOLM DS    CL6 *CNTRL VOL ID FIELD           *****            AABA
                                   1567+*                                                     ***OBTAIN    AABA
000109                             1568+OBTWK    DS    CL85 *TO MAKE WORK AREA FOR OBTAIN *****            AABA
                                   1569+*PARAMETER LIST FOR LOCATE AND OBTAIN ROUTINES                     AABA
000160                             1570+         DS    0F AABA
000160                             1571+PARM1    DS    F LOCATE/OBTAIN CONTROL BYTE                     AABA
000164                             1572+PARM2    DS    A ADDRESS OF DATA SET NAME                        AABA
000168                             1573+PARM3    DS    F ZERO FOR LOCATE                                AABA
                                   1574+*                  ADDRESS OF VOLUME SERIAL FOR OBTAIN             AABA
00016C                             1575+PARM4    DS    A ADDRESS OF WORKAREA                            AABA
                                   1576+*DATA AREAS                                                        AABA
000170                             1577+DSNAREA  DS    CL44 DATA SET NAME AREA                             AABA
00019C                             1578+VOLSRAR  DS    CL6 VOLUME SERIAL AREA                             AABA
0001A2                             1579+IPWKEND  EQU   *-IPWKST AABA
000000                             1580+CVT      DSECT
                                   1581+*
                                   1582+*              OS/360
                                   1583+*        COMMUNICATION VECTOR TABLE
                                   1584+*
                                   1585+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5
                                   1586+*
000010                             1587+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT
                                   1588+*
                                   1589+*              BEGINNING OF CVT PROPER
                                   1590+*
000000                             1591+         DS    0F
000000                             1592+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE
                                   1593+*
000000 00000000                    1594+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST
000004 00000000                    1595+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE
                                   1596+*                              ASYNCHRONOUS EXITS
000008 00000000                    1597+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB
00000C 00000000                    1598+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB
000010 00000000                    1599+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT
                                   1600+*                              CONSOLE INTERRUPTION ROUTINE
000014 00000000                    1601+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE
000018 00000000                    1602+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING
                                   1603+*                              ROUTINE FOR SUPERVISOR
00001C 00000000                    1604+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                   1605+*                              RELATIVE TRACK ADDR TO ABSOLUTE
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020 00000000                    1606+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                   1607+*                              ABSOLUTE TRACK ADDR TO RELATIVE
000024 00000000                    1608+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION
                                   1609+*                              IN UCB LOOKUP TABLE
000028 00000000                    1610+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION
                                   1611+*                              IN UCB LOOKUP TABLE
00002C 00000000                    1612+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE
                                   1613+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES
000030 00000000                    1614+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY
                                   1615+*                              IN UCB LOOKUP TABLE
000034 00000000                    1616+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE
000038 00000000                    1617+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL
00003C 00000000                    1618+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)
                                   1619+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS
                                   1620+*                              MASTER SCHEDULER RESIDENT DATA AREA
000040 00000000                    1621+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE
000044 00000000                    1622+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE
000048 00000000                    1623+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS
                                   1624+*                              FOR DAMAGE ASSESSMENT ROUTINES
00004C 00000000                    1625+CVT0FN00 DC    A(0) -        RESERVED (MVT)
000050 0A03                        1626+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER
000052 07FE                        1627+CVTBRET  BR    14 -          RETURN TO CALLER
000054 00000000                    1628+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB
000058 00000000                    1629+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER
                                   1630+*                              ROUTINE (SHPC FIRST)
00005C 00000000                    1631+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL
000060 00000000                    1632+CVTSJQ   DC    A(0) -        RESERVED (MVT)
000064 00000000                    1633+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR
000068 00000000                    1634+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE
                                   1635+*                              FOR INTERVAL TIMER
00006C 00000000                    1636+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE
                                   1637+*                              FOR INTERVAL TIMER
000070 00000000                    1638+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE
000074 10                          1639+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM
000040                             1640+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS
000020                             1641+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS
000010                             1642+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1
000004                             1643+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING
000075 000000                      1644+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC
000078 00000000                    1645+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE
00007C 00000000                    1646+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER
000080 00000000                    1647+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS
000084 00000000                    1648+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE
000088 00000000                    1649+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER
00008C 00000000                    1650+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE
000090 00000000                    1651+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE
000094 00000000                    1652+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT
                                   1653+*                              DATA AREA (MVT/MFT)
000098 00000000                    1654+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE
00009C 00000000                    1655+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE
0000A0 00000000                    1656+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE
0000A4 00000000                    1657+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS
0000A8 00000000                    1658+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)
0000AC 00000000                    1659+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD
                                   1660+*                              (0 IF GFX INACTIVE) MVT
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000B0 00000000                    1661+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA
                                   1662+*                              (MVT/MFT)
0000B4 0000                        1663+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER
0000B6 00                          1664+CVTOPTA  DC    AL1(00) -     MISCELLANEOUS FLAGS
000080                             1665+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)
000040                             1666+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --
                                   1667+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000020                             1668+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --
                                   1669+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000010                             1670+CVTNIP   EQU   X'10' -       NIP RUNNING
000008                             1671+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)
000004                             1672+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE
000002                             1673+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT
000001                             1674+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT
0000B7 00                          1675+CVTOPTB  DC    AL1(00) - MISCELLANEOUS FLAGS
000080                             1676+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)
000020                             1677+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)
                                   1678+*
                                   1679+*              PCP OVERLAY
                                   1680+*
0000B8                             1681+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART
0000BB                             1682+CVTSTUSA DS    B -           STATUS BYTE A
000008                             1683+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART
                                   1684+*                              WAS INITIATED INTRASTEP
000004                             1685+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART
                                   1686+*                              WAS INITIATED INTERSTEP
000002                             1687+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM
                                   1688+*                              AND DATA HAS NOT BEEN READ
0000BC                             1689+         DS    CL2 -         RESERVED
0000BE                             1690+         DS    CL2 -         RESERVED
                                   1691+*
                                   1692+*              MVT/MFT OVERLAY
                                   1693+*
0000B8                             1694+         ORG   CVTCRTTR
                                   1695+*
0000B8 00000000                    1696+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR
0000BC 00000000                    1697+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE
                                   1698+*
                                   1699+*              END OF OVERLAYS
                                   1700+*
0000C0 00000000                    1701+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)
0000C4 00000000                    1702+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA
0000C8 00000000                    1703+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT
                                   1704+*                              (MVT/MPS)
0000CC 00000000                    1705+CVTUSER  DC    A(0) -        A WORD TO THE USER
                                   1706+*
                                   1707+*              MFT/MVT CVT EXTENSION
                                   1708+*
0000D0 00000000                    1709+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT
0000D4 0A0D                        1710+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)
0000D6 0A06                        1711+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)
0000D8 00000000                    1712+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT
0000DC 00000000                    1713+CVTPATCH DC    A(0) -        ADDR OF FE PATCH AREA
0000E0 00000000                    1714+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA
                                   1715+*                              (MVT/MFT)
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000E4                             1716+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)
0000E4 00                          1717+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)
000080                             1718+CVTTSRDY EQU   X'80' -       TIME SHARING READY
0000E5 000000                      1719+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)
0000E8 00000000                    1720+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)
0000EC                             1721+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)
0000EC 00                          1722+CVTGTFST DC    B'0' -        STATUS FLAGS
0000C0                             1723+CVTGTFS  EQU   X'C0' -       STATE
                                   1724+*/       00    CVTGTFIN      INACTIVE
                                   1725+*/       01    CVTGTFSR      STARTING
                                   1726+*/       10    CVTGTFSP      STOPPING
                                   1727+*/       11    CVTGTFAC      ACTIVE
000020                             1728+CVTSTATE EQU   X'20' -       IN CONTROL
000010                             1729+CVTMODE  EQU   X'10' -       EXT MODE
000008                             1730+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA
000004                             1731+CVTUSR   EQU   X'04' -       USR TRACE
000002                             1732+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID
0000ED 000000                      1733+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE
0000F0                             1734+CVTTCMFG DS    0B -          TCAM FLAGS
000080                             1735+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)
0000F0 00000000                    1736+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF
                                   1737+*                            TCAM ADDRESS VECTOR TABLE
                                   1738+*
                                   1739+*              MVT CVT EXTENSION
                                   1740+*
0000F4                             1741+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE
                                   1742+*                            (PWF)                               S21167
0000F4 80                          1743+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY
                                   1744+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167
000080                             1745+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167
0000F5 000000                      1746+CVTVOLT2 DC    AL3(0) -  PWF RECHECK TIME DELAY.  THIS VALUE IS
                                   1747+*                            OVERLAID BY CVTVOLM2 AFTER PWF
                                   1748+*                            INITIALIZATION                      S21167
0000F8 00000000                    1749+         DC    A(0) -        RESERVED
                                   1750+*
                                   1751+*              MVT/MFT CVT EXTENSION
                                   1752+*
0000FC 00000114                    1753+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1
                                   1754+*                            (ICB421)                APAR'S 47331,47332
000100                             1755+         DS    F -           RESERVED
000104                             1756+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE
000104                             1757+         DS    X -           RESERVED
000105 000000                      1758+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE
000108                             1759+         DS    F -           RESERVED
00010C                             1760+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307
00010C                             1761+         DS    X -           RESERVED                            ICB307
00010D 000000                      1762+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND
                                   1763+*                            COMMUNICATION AREA                  ICB307
000110                             1764+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308
000110                             1765+         DS    X -           RESERVED                            ICB308
000111 000000                      1766+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY
                                   1767+*                            ROUTINE                             ICB308
                                   1768+*
                                   1769+*              COMMON EXTENSION 1
                                   1770+*              ADDRESS OF EXTENSION IS IN CVTEXT1
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1771+*
                                   1772+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,
                                   1773+*              YOU SHOULD CODE -
                                   1774+*
                                   1775+*              L     REG,CVTEXT1
                                   1776+*              USING CVTXTNT1,REG
                                   1777+*
                                   1778+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.
                                   1779+*
000114                             1780+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1
                                   1781+*                            (ICB421)                APAR'S 47331,47332
000114 00000000                    1782+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS
                                   1783+*                            (ISAM) (ICB421)         APAR'S 47331,47332
                                   1784+*
                                   1785+*              END OF CVT PROPER
                                   1786+*
                                   1787+*
                                   1788+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT
                                   1789+*
                                   1790+*
                                   1791+***********************************************************************
                                   1792+*
000118                             1793+         DS    0F
000000                             1794+UCB      DSECT
                                   1795+***********************************************************************
                                   1796+*
                                   1797+*              U N I T   C O N T R O L   B L O C K
                                   1798+*
                                   1799+***********************************************************************
                                   1800+*
                                   1801+*       STATUS
                                   1802+*
                                   1803+*             RELEASES 21.6,21.7,21.8, 10/12/73, LEVEL=6
                                   1804+*
                                   1805+*       FUNCTION
                                   1806+*
                                   1807+*         A UNIT CONTROL BLOCK
                                   1808+*           INCORPORATING A SYSTEM RESOURCE TABLE
                                   1809+*             RECORDS THE STATUS OF
                                   1810+*               A PHYSICAL INPUT OUTPUT DEVICE ADDRESS
                                   1811+*             IS CREATED AND INITIALIZED DURING SYSTEM GENERATION
                                   1812+*             RESIDES IN THE NUCLEUS BELOW 32 K
                                   1813+*             POINTS TO A DEVICE TYPE DEPENDENT EXTENSION
                                   1814+*               RESIDING HIGHER IN THE NUCLEUS
                                   1815+*             IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY
                                   1816+*               A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS
                                   1817+*             MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES
                                   1818+*               AND DATA EXTENT BLOCKS
                                   1819+*             CONTAINS INDICES INTO TABLES FOR
                                   1820+*               DEVICE STATISTICS ATTENTION LOGICAL CHANNEL
                                   1821+*             MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS
                                   1822+*
                                   1823+*       ENTRY
                                   1824+*
                                   1825+*             IEFUCBOB
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1826+*
                                   1827+*       INPUT
                                   1828+*
                                   1829+*             BAL: DSECT
                                   1830+*             BSL: DCL (UCBPTR, UCBDCPTR) PTR
                                   1831+*
                                   1832+*       OUTPUT
                                   1833+*
                                   1834+*             SYSGEN INDEPENDENT COMMON SECTION
                                   1835+*               INCLUDING UCBTYP WORD
                                   1836+*             DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)
                                   1837+*               DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE
                                   1838+*               DATACELL
                                   1839+*                 (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)
                                   1840+*               UNIT RECORD WITH UNIVERSAL CHARACTER SET
                                   1841+*               GRAPHICS (EXCEPT M85 CRT CONSOLE)
                                   1842+*               TAPE CARTRIDGE READER AND OPTICAL READER
                                   1843+*             CELL DESCRIPTION FOR ONE OF THE TEN CELLS
                                   1844+*               IN THE DATACELL DEVICE SEGMENT ABOVE
                                   1845+*             UCB EXTENSION (ONE OF THE FOLLOWING)
                                   1846+*               DIRECT ACCESS
                                   1847+*               MAGNETIC TAPE
                                   1848+*               TAPE CARTRIDGE READER
                                   1849+*               OPTICAL READER
                                   1850+*               UNIVERSAL CHARACTER SET
                                   1851+*             M65 MULTIPROCESSING PREFIX
                                   1852+*               (CONTIGUOUSLY PRECEDING COMMON SECTION)
                                   1853+*
                                   1854+*       ATTRIBUTES
                                   1855+*
                                   1856+*             BILINGUAL
                                   1857+*
                                   1858+***********************************************************************
                                   1859+*
                                   1860+*       SYSGEN-INDEPENDENT
                                   1861+*       COMMON SECTION
                                   1862+*
000000                             1863+         DS    0D -                    UNIT CONTROL BLOCK PROPER
                                   1864+*
000000                             1865+UCBOB    EQU   * -                     UCBPTR -> UCBOB
                                   1866+*
                                   1867+***********************************************************************
                                   1868+*
000000                             1869+UCBJBNR  DS    B -                     INTERNAL JOB ID
0000F0                             1870+UCBKEY   EQU   X'F0' -                 JOB PROTECTION KEY
                                   1871+*                                        (SET FOR RETAIN OR PASS)
000008                             1872+UCBTEPDC EQU   X'08' -                 DEVICE NOT ALLOCATABLE BECAUSE
                                   1873+*                                      OWNED BY OLTEP           SA59673
000002                             1874+UCBDEM   EQU   X'02' -                 DEMOUNT AND RETAIN OR PASS
                                   1875+*                                        (SET DURING DEVICE ALLOC)
000001                             1876+UCBMONT  EQU   X'01' -                 MOUNT AND RETAIN OR PASS
                                   1877+*                                        (SET DURING DEVICE ALLOC)
000001                             1878+UCBFL5   DS    B -                     FLAGS
000020                             1879+UCBTICBT EQU   X'20' -                 CHANNEL END AND/OR DEVICE END
                                   1880+*                                      OR MOUNT CONDITION PENDING.
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1881+*                                      USED ONLY WITH PTF.       ICB289
000010                             1882+UCBVSDR  EQU   X'10' -                 DEVICE HAS VARIABLE LENGTH SDRS
000008                             1883+UCBEXTSN EQU   X'08' -                 UCBNBRSN CONTAINS LENGTH AND
                                   1884+*                                        UCBSNADR ADDRESS OF SENSE INFO
000004                             1885+UCBNALOC EQU   X'04' -                 DEVICE NOT ALLOCATABLE   SA59673
000002                             1886+UCBALTCU EQU   X'02' -                 DEVICE HAS ALTERNATE CU ADDRESS
000001                             1887+UCBALTPH EQU   X'01' -                 DEVICE HAS ALTERNATE PATH
000002                             1888+UCBID    DS    C -                     UCB ID (FF)
000003                             1889+UCBSTAT  DS    B -                     DEVICE STATUS
000080                             1890+UCBONLI  EQU   X'80' -                 DEVICE ONLINE
000040                             1891+UCBCHGS  EQU   X'40' -                 DEVICE TO BE VARIED OFFLINE
000020                             1892+UCBRESV  EQU   X'20' -                 VOLUME RESERVED
000010                             1893+UCBUNLD  EQU   X'10' -                 UNLOAD PENDING
000008                             1894+UCBALOC  EQU   X'08' -                 DEVICE ALLOCATED
000004                             1895+UCBPRES  EQU   X'04' -                 VOLUME PERMANENTLY RESIDENT
000002                             1896+UCBSYSR  EQU   X'02' -                 EITHER SYSTEM RESIDENCE
                                   1897+*                                        OR PRIMARY CONSOLE
000001                             1898+UCBDADI  EQU   X'01' -                 EITHER STANDARD TAPE LABELS
                                   1899+*                                        VERIFIED OR ALTERNATE CONSOLE
000004                             1900+UCBCHA   DS    B -                     CHANNEL ADDRESS FLAGS
000080                             1901+UCBHIO   EQU   X'80' -                 HALT I/O
000040                             1902+UCBMOD   EQU   X'40' -                 STATUS MODIFIER
000020                             1903+UCBDSNS  EQU   X'20' -                 DELAYED SENSE
000010                             1904+UCBDHIO  EQU   X'10' -                 DELAYED HALT I/O
00000F                             1905+UCBCHANA EQU   X'0F' -                 CHANNEL ADDRESS
000005                             1906+UCBUA    DS    FL1 -                   UNIT ADDRESS
000006                             1907+UCBFL1   DS    B -                     FLAGS
000080                             1908+UCBBUSYD EQU   X'80' -                 DEVICE BUSY
000040                             1909+UCBNOTRD EQU   X'40' -                 DEVICE NOT READY
000020                             1910+UCBUSING EQU   X'20' -                 CHANNEL PROGRAM EXECUTED
                                   1911+*                                        AND NOT YET POSTED COMPLETE
000010                             1912+UCBINTER EQU   X'10' -                 DEVICE END ERROR
                                   1913+*                                        AFTER CHANNEL END
                                   1914+*                                        (IOB INTERCEPT)
000008                             1915+UCBNOTRC EQU   X'08' -                 CONTROL UNIT BUSY
000006                             1916+UCBSTS   EQU   X'06' -                 DEVICE STATUS
                                   1917+*/       01    UCBNTRAN                DIRECT ACCESS ARM SEEKING
                                   1918+*                                        (IOS STANDALONE CP EXECUTED)
                                   1919+*                                        OR TC RECEIVE STATUS
                                   1920+*                                        (INHIBIT HIO)
                                   1921+*/       11    UCBTRANS                DIRECT ACCESS DATA TRANSFER
                                   1922+*                                        (USER CP EXECUTING)
000001                             1923+UCBERR   EQU   X'01' -                 ERROR ROUTINE USING DEVICE
                                   1924+*                                        EXCLUSIVELY
000007                             1925+UCBDTI   DS    FL1 -                   DEVICE TABLE INDEX
000008                             1926+UCBETI   DS    FL1 -                   ERROR TABLE INDEX
                                   1927+*                                        (ERROR ROUTINE SUFFIX)
000009                             1928+UCBSTI   DS    FL1 -                   STATUS TABLE INDEX
                                   1929+*                                        (*10 = STATAB INDEX)
00000A                             1930+UCBLCI   DS    FL1 -                   LOGICAL CHANNEL WORD TABLE INDEX
                                   1931+*                                        (*8 = LCHTAB INDEX)
00000B                             1932+UCBATI   DS    FL1 -                   ATTENTION TABLE (ANTAB) INDEX
00000C                             1933+UCBWGT   DS    B -                     FLAGS AND CHANNEL MASK
000080                             1934+UCBIN    EQU   X'80' -                 SYSIN
000040                             1935+UCBOUT   EQU   X'40' -                 SYSOUT
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                             1936+UCBPUB   EQU   X'20' -                 ASSUME PUBLIC VOLUME
000010                             1937+UCBREW   EQU   X'10' -                 REWIND COMMAND
00000F                             1938+UCBPATH  EQU   X'0F' -                 INOPERATIVE PATHS
000008                             1939+UCBPATH0 EQU   X'08' -                 PRIMARY PATH INOPERATIVE
000004                             1940+UCBPATH1 EQU   X'04' -                 OPTIONAL PATH 1 INOPERATIVE
000002                             1941+UCBPATH2 EQU   X'02' -                 OPTIONAL PATH 2 INOPERATIVE
000001                             1942+UCBPATH3 EQU   X'01' -                 OPTIONAL PATH 3 INOPERATIVE
00000D                             1943+UCBNAME  DS    CL3 -                   EBCDIC UNIT NAME
000010                             1944+UCBTYP   DS    0CL4 -                  DEVICE DESCRIPTION
000010                             1945+UCBTBYT1 DS    B -                     MODEL BITS
000080                             1946+UCB1FEA0 EQU   X'80' -                 BIT 0
000040                             1947+UCB1FEA1 EQU   X'40' -                 BIT 1
000020                             1948+UCB1FEA2 EQU   X'20' -                 BIT 2
000010                             1949+UCB1FEA3 EQU   X'10' -                 BIT 3
000008                             1950+UCB1FEA4 EQU   X'08' -                 BIT 4
000004                             1951+UCB1FEA5 EQU   X'04' -                 BIT 5
000002                             1952+UCB1FEA6 EQU   X'02' -                 BIT 6
000001                             1953+UCB1FEA7 EQU   X'01' -                 BIT 7
000011                             1954+UCBTBYT2 DS    B -                     OPTION FLAGS
000080                             1955+UCB2OPT0 EQU   X'80' -                 FLAG 0
000040                             1956+UCB2OPT1 EQU   X'40' -                 FLAG 1
000020                             1957+UCB2OPT2 EQU   X'20' -                 FLAG 2
000010                             1958+UCB2OPT3 EQU   X'10' -                 FLAG 3
000008                             1959+UCB2OPT4 EQU   X'08' -                 FLAG 4
000004                             1960+UCB2OPT5 EQU   X'04' -                 FLAG 5
000002                             1961+UCB2OPT6 EQU   X'02' -                 FLAG 6
000002                             1962+UCBVLPWR EQU   X'02' -                 VOLUME REQUIRES ALTERNATE POWER
                                   1963+*                                      SOURCE DEVICE             S21167
000001                             1964+UCB2OPT7 EQU   X'01' -                 FLAG 7
000001                             1965+UCBDVPWR EQU   X'01' -                 DEVICE HAS ALTERNATE POWER
                                   1966+*                                      SOURCE                    S21167
000012                             1967+UCBTBYT3 DS    B -                     CLASS BITS
000080                             1968+UCB3TAPE EQU   X'80' -                 TAPE
000040                             1969+UCB3COMM EQU   X'40' -                 COMMUNICATIONS
000020                             1970+UCB3DACC EQU   X'20' -                 DIRECT ACCESS
000010                             1971+UCB3DISP EQU   X'10' -                 DISPLAY
000008                             1972+UCB3UREC EQU   X'08' -                 UNIT RECORD
000004                             1973+UCB3CHAR EQU   X'04' -                 CHARACTER READER
000013                             1974+UCBTBYT4 DS    C -                     DEVICE CODE
000014                             1975+UCBLTS   DS    CL2 -                   LAST REQUEST ELEMENT
000016                             1976+UCBSNS   DS    0CL2 -                  SENSE INFORMATION FOR DEVICES
                                   1977+*                                      WITHOUT EXTENDED SENSE    ICB425
000016                             1978+UCBFL7   DS    B -                     FLAG BYTE FOR DEVICES WITH
                                   1979+*                                      EXTENDED SENSE            ICB425
000080                             1980+UCBASDEP EQU   X'80' -                 INDICATES CANCEL KEY DEPRESSED
                                   1981+*                                      ON 3211                   ICB425
000017                             1982+         DS    X -                     RESERVED BYTE FOR DEVICES WITH
                                   1983+*                                      EXTENDED SENSE            ICB425
                                   1984+*
000000                             1985+SRTEJBNR EQU   UCBJBNR -               ALIAS
000001                             1986+SRTEMNT  EQU   UCBMONT -               ALIAS
000003                             1987+SRTESTAT EQU   UCBSTAT -               ALIAS
000080                             1988+SRTEONLI EQU   UCBONLI -               ALIAS
000040                             1989+SRTECHGS EQU   UCBCHGS -               ALIAS
000020                             1990+SRTERESV EQU   UCBRESV -               ALIAS
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000010                             1991+SRTEUNLD EQU   UCBUNLD -               ALIAS
000008                             1992+SRTEALOC EQU   UCBALOC -               ALIAS
000004                             1993+SRTEPRES EQU   UCBPRES -               ALIAS
000002                             1994+SRTESYSR EQU   UCBSYSR -               ALIAS
000001                             1995+SRTEDADI EQU   UCBDADI -               ALIAS
000006                             1996+UCBFL2   EQU   UCBFL1 -                ALIAS (UCBCHA WAS ONCE UCBFL1)
                                   1997+*
                                   1998+***********************************************************************
                                   1999+*
                                   2000+*        DEVICE-DEPENDENT UCB SEGMENTS
                                   2001+*
000018                             2002+UCBDEV   EQU   *
                                   2003+*
                                   2004+***********************************************************************
                                   2005+*
                                   2006+*             DIRECT ACCESS (2300)
                                   2007+*             (EXCEPT DATA CELL)
                                   2008+*             AND MAGNETIC TAPE (2400)
                                   2009+*             UCB SEGMENT
                                   2010+*
000018                             2011+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT
                                   2012+*
                                   2013+***********************************************************************
                                   2014+*
000018                             2015+UCBSENSE DS    0CL4 -                  ADDITIONAL SENSE INFORMATION FOR
                                   2016+*                                      DEVICES WITH SIX SENSE BYTES
000018                             2017+UCBSENSB DS    0A -                    SAME AS UCBSENSA BELOW
000018                             2018+UCBSENSN DS    FL1 -                   NUMBER OF EXPANDED SENSE BYTES
000019                             2019+UCBSENSA DS    AL3 -                   ADDRESS OF EXPANDED SENSE
                                   2020+*                                      INFORMATION
00001C                             2021+UCBVOLI  DS    CL6 -                   VOLUME SERIAL NUMBER
000022                             2022+UCBSTAB  DS    B -                     VOLUME STATUS
000080                             2023+UCBBSVL  EQU   X'80' -                 NOT SHARABLE (DIRECT ACCESS)
000080                             2024+UCBDVSHR EQU   X'80' -                 WHEN ONE, DEVICE SHARABLE AMONG
                                   2025+*                                      SEVERAL CPU'S (3420 MAGNETIC
                                   2026+*                                      TAPE DEVICES ONLY)        ICB485
000040                             2027+UCBBVSC  EQU   X'40' -                 RESERVED
000020                             2028+UCBBALB  EQU   X'20' -                 MORE VOLUME LABEL PROCESSING
000020                             2029+UCBPRSRS EQU   X'20' -                 THIS DEVICE WAS SPECIFIED IN
                                   2030+*                                      PRESRES BUT WAS NOT MOUNTED AT
                                   2031+*                                      IPL
000010                             2032+UCBBPRV  EQU   X'10' -                 PRIVATE USE
000008                             2033+UCBBPUB  EQU   X'08' -                 PUBLIC USE
000004                             2034+UCBBSTR  EQU   X'04' -                 STORAGE USE (DA)
                                   2035+*                                        ANSI LABEL (MT)
000002                             2036+UCBBJLB  EQU   X'02' -                 JOBLIB VOLUME (DA)
000001                             2037+UCBBNUL  EQU   X'01' -                 MCS MOUNT/DEMOUNT MSGS ISSUED
                                   2038+*                                        (MESSAGE IDS IN UCBFSER) (MT)
                                   2039+*                                        CONTROL VOLUME (DA)
000023                             2040+UCBDMCT  DS    B -                     VOLUME USE BYTE
000080                             2041+UCBMOUNT EQU   X'80' -                 MOUNTED OR REQUEST ISSUED
                                   2042+*                                        (OFF MEANS MOUNT VERIFIED)
00007F                             2043+UCBDMC   EQU   X'7F' -                 NUMBER OF OPEN DCBS
000024                             2044+UCBVTOC  DS    0CL4 -                  TTR0 OF VTOC (DA)
000024                             2045+UCBFSCT  DS    H -                     DATASET SEQUENCE COUNT (MT)
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000026                             2046+UCBFSEQ  DS    H -                     DATASET SEQUENCE NUMBER (MT)
000028                             2047+UCBFSER  DS    0CL8 -                  DATASET SERIAL NUMBER
                                   2048+*                                        (MT AFTER OPEN) OR
                                   2049+*                                        MESSAGE IDS  (MT BEFORE OPEN)
                                   2050+*                                        PLUS TWO RESERVED BYTES (MT)
000028                             2051+UCBSQC   DS    FL1 -                   NUMBER OF RESERVE MACROS
                                   2052+*                                        (DA INCLUDING DATACELL)
000029                             2053+UCBDVRES DS    FL1 -                   DEVICE RESERVATION (SHARED DASD)
                                   2054+*                                        (DA INCLUDING DATACELL)
                                   2055+*                                        SET TO UCBSQC AFTER GOOD SIO
00002A                             2056+UCBRQESV DS    H -                     ADDRESS OF RQE TO VERIFY
                                   2057+*                                        VOL SER NUMBER IN UCB
                                   2058+*                                        (SET FROM UCBLTS AFTER
                                   2059+*                                        UNSOLICITED DEVICE END)
                                   2060+*                                        (DA INCLUDING DATACELL)
00002C                             2061+UCBORSVA DS    0A -                    ADDRESS OF DEB FOR FIRST USER
                                   2062+*                                        ON QUEUE FOR DEVICE
                                   2063+*                                        (DA INCLUDING DATACELL)
00002C                             2064+UCBFL4   DS    B -                     FLAGS (DA INCLUDING DATACELL)
0000F8                             2065+UCBDAV   EQU   X'F8' -                 VOLUME VERIFICATION FLAGS
000080                             2066+UCBMNT   EQU   X'80' -                 VOL SER VERIFIER ISSUED MOUNT
000040                             2067+UCBVVRTN EQU   X'40' -                 VOL SER VERIFIER IN CONTROL
000020                             2068+UCBFT    EQU   X'20' -                 FIRST VERIFIER ENTRY FOR VOL
000010                             2069+UCBTCC   EQU   X'10' -                 ALTERNATE TRACK PROCEDURE
                                   2070+*                                        HANDLING VOL LABEL
000008                             2071+UCBVER   EQU   X'08' -                 VERIFIER VERIFIED VOL
000007                             2072+UCBORCNT EQU   X'07' -                 NUMBER OF REQUESTS FOR DEVICE
                                   2073+*                                        FROM FIRST USER ON QUEUE
00002D                             2074+UCBORSVB DS    AL3 -                   ADDRESS OF DEB FOR FIRST USER
                                   2075+*                                        ON QUEUE FOR DEVICE
                                   2076+*                                        (DA INCLUDING DATACELL)
000030                             2077+UCBSKA   DS    0CL8 -                  MBBCCHHR OF LAST SEEK
                                   2078+*                                        (DA INCLUDING DATACELL)
000030                             2079+UCBXTN   DS    0A -                    ADDRESS OF UCB EXTENSION (MT)
000030                             2080+UCBVOPT  DS    B -                     VOLUME STATISTIC FLAGS
000080                             2081+UCBESV   EQU   X'80' -                 ESV RECORDS KEPT
000040                             2082+UCBEVA   EQU   X'40' -                 EVA RECORDS MAY BE KEPT
000020                             2083+UCBESVC  EQU   X'20' -                 ESV RECORDS SENT TO CONSOLE
                                   2084+*                                        AS OPPOSED TO SYS1.MAN
000010                             2085+UCBERPC  EQU   X'10' -                 ERROR RECOVERY PROC IN CONTROL
000008                             2086+UCBESVE  EQU   X'08' -                 ESV RECORD ISSUED FOR VOLUME
                                   2087+*                                        BECAUSE OF EOV
000001                             2088+UCBASNDE EQU   X'01' -                 UNSOLICITED DEVICE END OCCURRED
                                   2089+*                                      ON 3420                   ICB277
000031                             2090+UCBXTNB  DS    AL3 -                   ADDRESS OF UCB EXTENSION (MT)
                                   2091+*                                        (MAP BELOW)
000034                             2092+         DS    CL4 -                   UCBSKA PADDING (NOT IN UCB)
                                   2093+*                                         NO LONGER EXISTS (MT)
000038                             2094+UCBECBB  DS    0A -                    ECB ADDRESS (DA)
000038                             2095+UCBUSER  DS    FL1 -                   NUMBER OF CURRENT USERS (DA)
000039                             2096+UCBECBA  DS    AL3 -                   ECB ADDRESS (DA)
00003C                             2097+UCBEXT   DS    0A -                    ADDRESS OF UCB EXTENSION (DA)
                                   2098+*                                        (MAPPED BELOW)
00003C                             2099+UCBWKADB DS    A -                     ALIAS
                                   2100+*
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00001C                             2101+SRTEVOLI EQU   UCBVOLI -               ALIAS
000022                             2102+SRTESTAB EQU   UCBSTAB -               ALIAS
000080                             2103+SRTEBSVL EQU   UCBBSVL -               ALIAS
000040                             2104+SRTEBVSC EQU   UCBBVSC -               ALIAS
000020                             2105+SRTEBALB EQU   UCBBALB -               ALIAS
000010                             2106+SRTEBPRV EQU   UCBBPRV -               ALIAS
000008                             2107+SRTEBPUB EQU   UCBBPUB -               ALIAS
000004                             2108+SRTEBSTR EQU   UCBBSTR -               ALIAS
000004                             2109+SRTEASCI EQU   UCBBSTR -               ALIAS
000004                             2110+UCBASCI  EQU   SRTEASCI -              ALIAS
000004                             2111+SRTEBVQS EQU   SRTEBSTR -              ALIAS
000002                             2112+SRTEBJLB EQU   UCBBJLB -               ALIAS
000001                             2113+SRTEBNUL EQU   UCBBNUL -               ALIAS
000023                             2114+SRTEDMCT EQU   UCBDMCT -               ALIAS
000024                             2115+SRTEFSCT EQU   UCBFSCT -               ALIAS
000026                             2116+SRTEFSEQ EQU   UCBFSEQ -               ALIAS
000038                             2117+SRTEUSER EQU   UCBUSER -               ALIAS
000039                             2118+SRTEECBA EQU   UCBECBA -               ALIAS
                                   2119+*
                                   2120+***********************************************************************
                                   2121+*
                                   2122+*             DATA CELL (2321)
                                   2123+*             UCB SEGMENT
                                   2124+*
000018                             2125+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT
                                   2126+*
                                   2127+***********************************************************************
                                   2128+*
000018                             2129+UCBSEN   DS    CL4 -                   MORE SENSE INFORMATION
00001C                             2130+UCBERPA  DS    CL12 -                  ERROR RECOVERY WORK AREA A
000028                             2131+UCBDASD  DS    CL16 -                  DATA CELL FIELDS MAPPED BY
                                   2132+*                                        UCBSQC (1 BYTE)
                                   2133+*                                        UCBDVRES (1 BYTE)
                                   2134+*                                        UCBRQESV (2 BYTES)
                                   2135+*                                        UCBFL4 (1 FLAG BYTE)
                                   2136+*                                        UCBORSVA/B (3 BYTES)
                                   2137+*                                        UCBSKA (8 BYTES)
                                   2138+*                                        UNDER DIRECT ACCESS ABOVE
000038                             2139+UCBCELLS DS    0CL160 -                CELL DESCRIPTIONS (MAPPED BELOW)
000038                             2140+UCBCELL0 DS    CL16 -                  CELL 0
000048                             2141+UCBCELL1 DS    CL16 -                  CELL 1
000058                             2142+UCBCELL2 DS    CL16 -                  CELL 2
000068                             2143+UCBCELL3 DS    CL16 -                  CELL 3
000078                             2144+UCBCELL4 DS    CL16 -                  CELL 4
000088                             2145+UCBCELL5 DS    CL16 -                  CELL 5
000098                             2146+UCBCELL6 DS    CL16 -                  CELL 6
0000A8                             2147+UCBCELL7 DS    CL16 -                  CELL 7
0000B8                             2148+UCBCELL8 DS    CL16 -                  CELL 8
0000C8                             2149+UCBCELL9 DS    CL16 -                  CELL 9
0000D8                             2150+UCBDC    DS    0A -                    ADDRESS OF DATACELL UCB EXT
                                   2151+*                                        (MAPPED BELOW)
0000D8                             2152+UCBWKADA DS    A -                     ALIAS
                                   2153+*
                                   2154+***********************************************************************
                                   2155+*
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2156+*             UNIT RECORD WITH
                                   2157+*             UNIVERSAL CHARACTER SET (1403, 3211)
                                   2158+*             UCB SEGMENT
                                   2159+*
000018                             2160+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT
                                   2161+*
                                   2162+***********************************************************************
                                   2163+*
000018                             2164+UCBNBRSN DS    FL1 -                   LENGTH OF SENSE INFO (3211)
000019                             2165+UCBSNADR DS    AL3 -                   ADDR OF SENSE INFO --
                                   2166+*                                        THAT OF UCBSNS (1403)
                                   2167+*                                        OR UCBSNSXT (3211)
00001C                             2168+UCBXTADR DS    A -                     ADDR OF UCS UCB EXTENSION
                                   2169+*
                                   2170+***********************************************************************
                                   2171+*
                                   2172+*             GRAPHICS EXCEPT
                                   2173+*             M85 CRT CONSOLE
                                   2174+*             UCB SEGMENT
                                   2175+*
000018                             2176+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT
                                   2177+*
                                   2178+***********************************************************************
                                   2179+*
000018                             2180+UCBSENS  DS    CL2 -                   MORE SENSE INFORMATION
00001A                             2181+UCBOPEN  DS    FL1 -                   NUMBER OF OPEN DCBS
00001B                             2182+UCBGCB   DS    C -                     GRAPHIC CONTROL BYTE
00001C                             2183+UCBTEB   DS    A -                     ADDRESS OF TASK ENTRY BLOCK
000020                             2184+UCBSTART DS    A -                     RESTART ADDRESS
000024                             2185+UCBBTA   DS    0A -                    ADDRESS OF BUFFER TABLE
000024                             2186+UCBDI    DS    FL1 -                   DEVICES ON A CONTROL UNIT
                                   2187+*                                        TO WHICH BUFFER SECTIONS
                                   2188+*                                        ARE ASSIGNED
000025                             2189+UCBBTB   DS    AL3 -                   ADDRESS OF BUFFER TABLE
                                   2190+*
                                   2191+***********************************************************************
                                   2192+*
                                   2193+*             TAPE CARTRIDGE READER (2495)
                                   2194+*             AND OPTICAL READER (1285, 1287, 1288)
                                   2195+*             UCB SEGMENT
                                   2196+*
000018                             2197+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT
                                   2198+*
                                   2199+***********************************************************************
                                   2200+*
000018                             2201+UCBCRWKA DS    A -                     ADDRESS OF UCB EXTENSION
                                   2202+*                                        FOR THIS DEVICE
                                   2203+*                                        (MAPPED BELOW)
                                   2204+*
                                   2205+***********************************************************************
                                   2206+*
                                   2207+*       CELL DESCRIPTION
                                   2208+*       FOR UCBCELL0/.../9
                                   2209+*       IN DATACELL (2321)
                                   2210+*
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000038                             2211+         ORG   UCBUSER
                                   2212+*
000038                             2213+UCBDCLL  EQU   * -                     UCBDCPTR -> UCBDCLL
                                   2214+*
                                   2215+***********************************************************************
                                   2216+*
000038                             2217+UCBDCELL DS    0CL16 -                 ONE OF TEN CELLS
                                   2218+*
000038                             2219+UCBDBBNR DS    H -                     BIN NUMBER
00003A                             2220+UCBDSTAB DS    B -                     VOLUME STATUS BYTE B
                                   2221+*                                        (ANALOGOUS TO UCBSTAB)
000080                             2222+UCBDBSVL EQU   X'80' -                 NOT SHARABLE
000020                             2223+UCBDBPRS EQU   X'20' -                 THIS DEVICE WAS SPECIFIED IN
                                   2224+*                                      PRESRES BUT WAS NOT MOUNTED AT
                                   2225+*                                      IPL
000010                             2226+UCBDBPRV EQU   X'10' -                 PRIVATE USE
000008                             2227+UCBDBPUB EQU   X'08' -                 PUBLIC USE
000004                             2228+UCBDBSTR EQU   X'04' -                 STORAGE USE
000002                             2229+UCBDBJLB EQU   X'02' -                 JOBLIB VOLUME
000001                             2230+UCBDBNUL EQU   X'01' -                 CONTROL VOLUME
00003B                             2231+UCBDSTAT DS    B -                     CELL/BIN STATUS
                                   2232+*                                        (ANALOGOUS TO UCBSTAT)
000080                             2233+UCBDNORM EQU   X'80' -                 ONLINE WITH NORMAL CELL
                                   2234+*                                        (NOT OFFLINE OR BALLAST)
000020                             2235+UCBDRESV EQU   X'20' -                 RESERVED CELL
000010                             2236+UCBDUNLD EQU   X'10' -                 UNLOAD PENDING
000008                             2237+UCBDALOC EQU   X'08' -                 BIN ALLOCATED
000004                             2238+UCBDPRES EQU   X'04' -                 CELL PERMANENTLY RESIDENT
00003C                             2239+UCBDVOLI DS    CL6 -                   VOLUME SERIAL NUMBER
000042                             2240+UCBDJBNR DS    FL1 -                   INTERNAL JOB NUMBER
000043                             2241+UCBDDMCT DS    FL1 -                   NUMBER OF OPEN DCBS FOR THIS
                                   2242+*                                      CELL (BITS 1-7)
000080                             2243+UCBDDMNT EQU   X'80' -                 IF 0, MOUNT VERIFICATION HAS
                                   2244+*                                      BEEN PERFORMED ---
                                   2245+*                                      IF 1, MOUNT REQUEST HAS BEEN
                                   2246+*                                      ISSUED
000044                             2247+UCBDVTOC DS    CL3 -                   TTR OF VTOC
000047                             2248+UCBDUSER DS    FL1 -                   CURRENT NUMBER OF DATASETS
                                   2249+*
000038                             2250+DATACELL EQU   UCBDCELL -              ALIAS
000038                             2251+DCELBBNR EQU   UCBDBBNR -              ALIAS
00003A                             2252+DCELSTAB EQU   UCBDSTAB -              ALIAS
00003B                             2253+DCELSTAT EQU   UCBDSTAT -              ALIAS
00003C                             2254+DCELVOLI EQU   UCBDVOLI -              ALIAS
000042                             2255+DCELJBNR EQU   UCBDJBNR -              ALIAS
000043                             2256+DCELDMCT EQU   UCBDDMCT -              ALIAS
000044                             2257+DCELVTOC EQU   UCBDVTOC -              ALIAS
000047                             2258+DCELUSER EQU   UCBDUSER -              ALIAS
                                   2259+*
                                   2260+***********************************************************************
                                   2261+*
                                   2262+*       UNIT CONTROL BLOCK EXTENSIONS
                                   2263+*
                                   2264+***********************************************************************
                                   2265+*
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2266+*             DIRECT ACCESS (2300)
                                   2267+*             UCB EXTENSION
                                   2268+*
000000                             2269+UCBDA    DSECT  ,                       UCBEXT -> UCBDA
                                   2270+*
                                   2271+***********************************************************************
                                   2272+*
000000                             2273+         DS    CL104 -                 OFFSET
000068                             2274+UCBERP   DS    CL40 -                  ERROR RECOVERY WORK AREA
000090                             2275+UCBOVFLW DS    CL40 -                  TRACK OVERFLOW WORK AREA
                                   2276+*                                        (OPTIONAL)
                                   2277+*
                                   2278+***********************************************************************
                                   2279+*
                                   2280+*             MAGNETIC TAPE (2400)
                                   2281+*             UCB EXTENSION
                                   2282+*
000000                             2283+UCBMT    DSECT  ,                       UCBXTN -> UCBMT
                                   2284+*
                                   2285+***********************************************************************
                                   2286+*
000000                             2287+UCBROR   DS    CL8 -                   READ OPPOSITE DIRECTION
                                   2288+*                                        RECOVERY CCW
000008                             2289+         DS    CL2 -                   RESERVED                  ICB463
00000A                             2290+UCBTRT   DS    FL1 -                   TEMP READ ERROR THRESHOLD
                                   2291+*                                        (IF ZERO THEN EVA ABSENT)
00000B                             2292+UCBTWT   DS    FL1 -                   TEMP WRITE ERROR THRESHOLD
                                   2293+*                                        (IF ZERO THEN EVA ABSENT)
00000C                             2294+UCBTR    DS    FL1 -                   TEMP READ ERROR COUNT
00000D                             2295+UCBTW    DS    FL1 -                   TEMP WRITE ERROR COUNT
00000E                             2296+UCBSIO   DS    H -                     SIO COUNT
000010                             2297+UCBPR    DS    FL1 -                   PERM READ ERROR COUNT
000011                             2298+UCBPW    DS    FL1 -                   PERM WRITE ERROR COUNT
000012                             2299+UCBNB    DS    FL1 -                   NOISE BLOCK COUNT
000013                             2300+UCBMS    DS    CL1 -                   MODE SET OPERATION CODE FOR DATA
                                   2301+*                                      BLOCKS ON 3420            ICB277
000014                             2302+UCBERG   DS    H -                     ERASE GAP COUNT
000016                             2303+UCBCLN   DS    H -                     CLEANER ACTION COUNT
                                   2304+*
                                   2305+***********************************************************************
                                   2306+*
                                   2307+*             TAPE CARTRIDGE READER (2495)
                                   2308+*             UCB EXTENSION
                                   2309+*
000000                             2310+UCBTCR   DSECT  ,                       UCBCRWKA -> UCBTCR
                                   2311+*
                                   2312+***********************************************************************
                                   2313+*
000000                             2314+UCBTCERP DS    0CL24 -                 ERROR RECOVERY CHANNEL PROGRAM
000000                             2315+UCBRCCW1 DS    D -                     RETRY CCW 1
000008                             2316+UCBRCCW2 DS    D -                     RETRY CCW 2
000010                             2317+UCBRCCW3 DS    D -                     RETRY CCW 3
000018                             2318+UCBCSWSA DS    CL8 -                   CSW SAVE AREA
                                   2319+*
                                   2320+***********************************************************************
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2321+*
                                   2322+*            OPTICAL READER (1285, 1287, 1288)
                                   2323+*            UCB EXTENSION
                                   2324+*
000000                             2325+UCBOR    DSECT  ,                       UCBCRWKA -> UCBOR
                                   2326+*
                                   2327+***********************************************************************
                                   2328+*
000000                             2329+UCBCRDDC DS    FL1 -                   DATA CHECK ERROR COUNT
000001                             2330+UCBCRILC DS    FL1 -                   INCORRECT LENGTH ERROR COUNT
000002                             2331+UCBCRECC DS    FL1 -                   EQUIPMENT CHECK ERROR COUNT
000003                             2332+         DS    CL5 -                   RESERVED
                                   2333+*
                                   2334+***********************************************************************
                                   2335+*
                                   2336+*              UNIT RECORD WITH
                                   2337+*              UNIVERSAL CHARACTER SET (1403, 3211)
                                   2338+*              UCB EXTENSION
                                   2339+*
000000                             2340+UCBUCS   DSECT  ,                       UCBXTADR -> UCBUCS
                                   2341+*
                                   2342+***********************************************************************
                                   2343+*
000000                             2344+UCBUCSID DS    CL4 -                   ID OF UCS IMAGE IN BUFFER
000004                             2345+UCBUCSOP DS    B -                     FORMAT OF UCS IMAGE IN BUFFER
                                   2346+*                                        (O FOR OPTION)
000080                             2347+UCBUCSO1 EQU   X'80' -                 DEFAULT IMAGE
000040                             2348+UCBUCSO2 EQU   X'40' -                 FOLD MODE
000001                             2349+UCBUCSPE EQU   X'01' -                 IMAGE HAS PARITY ERROR (3211)
000005                             2350+UCBFCBOP DS    B -                     RESERVED (1403) OR FLAGS (3211)
                                   2351+*                                        (O FOR OPTION)
000080                             2352+UCBFCBO1 EQU   X'80' -                 FCB DEFAULT IMAGE
000006                             2353+         DS    X -                     RESERVED
000007                             2354+UCBERCNT DS    FL1 -                   COUNT OF ERRORS THAT HAVE
                                   2355+*                                      OCCURRED (3211)
000008                             2356+UCBFCBID DS    CL4 -                   FCB IMAGE ID
00000C                             2357+UCBERADR DS    A -                     ADDR OF ERP LOGOUT AREA
                                   2358+*
                                   2359+***********************************************************************
                                   2360+*
                                   2361+*              3211 SENSE INFORMATION UCB EXTENSION
                                   2362+*
                                   2363+*        THIS EXTENSION IS POINTED TO BY THE UCBSNADR FIELD OF THE
                                   2364+*        UCB AND IS NOT CONTIGUOUS TO THE UCB.
                                   2365+*
000000                             2366+UCBSNINF DSECT  ,
                                   2367+*
                                   2368+***********************************************************************
                                   2369+*
000000                             2370+UCBSNSXT DS    CL6 -                   SENSE INFORMATION
000006                             2371+         DS    XL2 -                   RESERVED
                                   2372+*
                                   2373+***********************************************************************
                                   2374+*
                                   2375+*       MODEL 65 MULTIPROCESSING UCB PREFIX
        IPL WITH MS/1 CONSOLE                                                                                  PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2376+*
000000                             2377+UCBM65MP DSECT  , -                     UCBPTR-4 IF MP65
                                   2378+*
                                   2379+***********************************************************************
                                   2380+*
000000                             2381+UCBFL3   DS    B -                     M65MP FLAGS
000080                             2382+UCBACU   EQU   X'80' -                 ALTERNATE CONTROL UNITS EXIST
000020                             2383+UCBHIOB  EQU   X'20' -                 CPU B TO USE HIO
000010                             2384+UCBHIOA  EQU   X'10' -                 CPU A TO USE HIO
000008                             2385+UCBSIOB  EQU   X'08' -                 CPU B ISSUED LAST SIO
000002                             2386+UCBNOB   EQU   X'02' -                 NO PATH TO CPU B
000001                             2387+UCBNOA   EQU   X'01' -                 NO PATH TO CPU A
000001                             2388+         DS    CL2 -                   RESERVED
000003                             2389+UCBMPFLG DS    B -                     FLAGS
000020                             2390+UCBRIC   EQU   X'20' -                 DURING NIP - DEVICE IS RESERVED
                                   2391+*                                      TO IPLED CPU
000010                             2392+UCBRNIC  EQU   X'10' -                 DURING NIP - DEVICE IS RESERVED
                                   2393+*                                      TO NON-IPLED CPU
000004                             2394+UCBNRO   EQU   X'04' -                 DURING NIP - DEVICE IS NOT
                                   2395+*                                      RESERVED BECAUSE OF OPERATOR'S
                                   2396+*                                      REQUEST
000002                             2397+UCBPROC  EQU   X'02' -                 USED BY PROCESSING PROGRAMS
000001                             2398+UCBIPL   EQU   X'01' -                 DEVICE OFFLINE AT IPL
                                   2399+*
                                   2400+***********************************************************************
                                   2401+*
                                   2402+*              U N I T   C O N T R O L   B L O C K
                                   2403+*
                                   2404+***********************************************************************
                                   2405+*
                                   2406  END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     00004C
   01       01      0C     000578
   01       01      0C     0006B4
   01       01      0C     000778
   01       01      0C     000844
   01       01      0C     000928
   01       01      0C     000940
   01       01      0C     000AF4
   01       01      0C     000AFC
   01       02      1C     000DC0
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

BABCMAX  00002 000036 01401   1086
BACHN    00004 000000 01346
BACV     00004 000018 01353   0262  0837  0838  1084  1084
BADSET   00001 000001 01366
BADSO    00004 000030 01390
BADSP    00001 000004 01364
BADUMPID 00001 000038 01402
BAHR     00001 000008 01363
BAICTR   00002 000022 01369
BAIN     00001 000080 01359   0230  0489  0738
BAINTSET 00001 000020 01361   0475
BAIPL    00001 00000C 01349   0200  0229  0229  0476  0476  0479  0485  0843  0843  0844  0866  0871  0912  0912  0913
                              0936  0941  1010  1010  1011  1043  1049
BAJN     00001 000040 01360
BALAD    00004 000008 01348
BALOG    00004 00001C 01355   0266
BALOGECB 00004 00002C 01389
BAMACTVE 00001 000002 01399
BAMDSN   00001 000040 01394
BAMINPAR 00002 000026 01371
BAMIPAR2 00002 000028 01375
BAMJN    00001 000080 01393
BAMONITR 00001 000034 01391
BAMONTR2 00001 000035 01400
BAMSCPLT 00001 000080 01386
BAMSESSC 00001 000004 01398
BAMSESST 00001 000008 01397
BAMSPACE 00001 000020 01395
BAMSTAT  00001 000010 01396
BANOSET  00001 000002 01365   0471
BAPKES   00002 000024 01370
BAPRC    00004 000014 01352   0548  0556  0568  0569  0572  0809
BAQ      00004 000010 01351   0231  0231  0533  0543  0560  0808  0836
BARSW    00001 000020 01357
BASE     00001 000000 01333   0168
BASFL    00001 000020 01358   0230  0304  0471  0475  0489  0738
BASPBYTE 00001 00002B 01385
BASP10   00004 00004C 01408
BASP11   00004 000050 01409
BASP12   00004 000054 01410
BASP5    00003 000039 01403
BASP6    00004 00003C 01404
BASP7    00004 000040 01405
BASP8    00004 000044 01406
BASP9    00004 000048 01407
BATRM    00004 000004 01347
BATRST   00001 000021 01368
BAVU     00001 000010 01362
BA0      00001 000080 01337   1359  1377  1393
BA1      00001 000040 01338   1360  1379  1394
BA2      00001 000020 01339   1361  1380  1395
BA3      00001 000010 01340   1362  1382  1396
BA4      00001 000008 01341   1363  1397
BA5      00001 000004 01342   1364  1398
BA6      00001 000002 01343   1365  1399
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

BA7      00001 000001 01344   0313  1366
BCLMT    00002 000B3B 01204   1086  1086
BINLAST  00001 000B48 01208
BINTABLE 00009 000B3F 01207
BITS32   00001 000020 00135   0368  0402
BIT0     00001 000080 01419   0562  0614  0676  1434  1441  1451  1461  1472  1473  1485
BIT1     00001 000040 01420   0589  1442  1452  1462  1474  1486
BIT2     00001 000020 01421   1443  1453  1463  1475  1487
BIT3     00001 000010 01422   1444  1454  1464  1476  1488
BIT4     00001 000008 01423   1447  1455  1465  1477  1478  1489
BIT5     00001 000004 01424   1437  1448  1456  1466  1479  1490
BIT6     00001 000002 01425   1438  1457  1467  1480  1481  1491
BIT7     00001 000001 01426   1439  1458  1468  1482  1492
BLANK    00001 000040 00140   0417  0443  0459
BLNKS    00004 000B88 01218   0531  0545
CAT      00001 000064 00145   0783  0785
CB08     00004 000B1C 01195   0781  0957
CB1      00001 000AEC 01177   0278  0959  0978  1056
CB10     00004 000B20 01196   0865  0869  0935  0939  1041  1046
CB8      00001 000AE4 01175   0261  0876  0877  0877  0985
CCBGN    00001 000D68 01316   1326
CCBITS   00001 000AB5 01159   0310  0313  0315  0321  0432  0445  0462
CCEND    00001 000DB8 01325   1326
CCNBR    00004 000DB8 01326
CCONE    00001 00011A 00312   0309  0317
CCURNT   00004 000DBC 01327
CCZERO   00001 00012E 00320   0308
CF0F     00004 000B2C 01199   0667  0668  0871  0941
CF00F    00004 000B84 01217   0711
CF04     00004 000B24 01197
CLOCK    00014 000AA1 01157   0454
CODEDISP 00001 00002C 00112   0790
COMCLOCK 00001 000AA0 01156   0465
COMDATE  00001 000A95 01153   0447
COMMNDSF 00014 0008DE 01070   0997
CONVERT  00001 000132 00343
CVT      00001 000000 01580   0166
CVTABEND 00004 0000C8 01703
CVTAPR   00001 000040 01666
CVTAQAVT 00004 0000F0 01736
CVTASCII 00001 000002 01673
CVTATTCH 00001 000008 01671
CVTBRET  00002 000052 01627
CVTBTERM 00004 000034 01616
CVTBUF   00004 000010 01599
CVTCCH   00001 000080 01665
CVTCHPTR 00001 000008 01683
CVTCMT   00003 0000ED 01733
CVTCRTTR 00003 0000B8 01681   1694
CVTCUCB  00004 000064 01633
CVTDAR   00004 000048 01623
CVTDATA  00001 000002 01687
CVTDATE  00004 000038 01617   0226
CVTDCB   00001 000074 01639
CVTDCBA  00003 000075 01644
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTDDR   00001 000020 01668
CVTDMSR  00004 000110 01764
CVTDMSRA 00003 000111 01766
CVTEXIT  00002 000050 01626
CVTEXT1  00004 0000FC 01753
CVTFACHN 00004 000114 01782
CVTFBOSV 00004 000084 01648
CVTFORM  00001 000008 01730
CVTGTF   00004 0000EC 01721
CVTGTFS  00001 0000C0 01723
CVTGTFST 00001 0000EC 01722
CVTHEAD  00004 0000A0 01656
CVTHIAR  00001 000004 01672
CVTIERLC 00004 000090 01651
CVTILCH  00004 00008C 01650
CVTILK1  00004 000024 01608
CVTILK2  00004 000028 01610   0663
CVTIOQET 00004 000078 01645
CVTIXAVL 00004 00007C 01646
CVTJOB   00004 00000C 01598   0222
CVTLINK  00004 000008 01597
CVTLNKSC 00002 0000D6 01711
CVTMAP   00001 000000 01592
CVTMCTYP 00001 000002 01732
CVTMDLDS 00004 0000D0 01709
CVTMODE  00001 000010 01729
CVTMPCVT 00004 0000C0 01701
CVTMSER  00004 000094 01652   0167  0228
CVTMSLT  00004 00003C 01618
CVTMZ00  00004 0000A4 01657
CVTNIP   00001 000010 01670
CVTNUCB  00004 000080 01647
CVTOPTA  00001 0000B6 01664
CVTOPTB  00001 0000B7 01675   0305
CVTPATCH 00004 0000DC 01713
CVTPBLDL 00004 00005C 01631
CVTPCNVT 00004 00001C 01604
CVTPRLTV 00004 000020 01606
CVTPROT  00001 000080 01676
CVTPTR   00001 000010 01587   0165  0220  1088
CVTPURG  00004 000104 01756
CVTPURGA 00003 000105 01758
CVTQABST 00002 0000D4 01710
CVTQCDSR 00004 0000B8 01696
CVTQLPAQ 00004 0000BC 01697
CVTQMSG  00004 00010C 01760
CVTQMSGA 00003 00010D 01762
CVTQMWR  00004 0000B0 01661
CVTQOCR  00004 0000AC 01659
CVTQTD00 00004 00006C 01636
CVTQTE00 00004 000068 01634
CVTRMS   00004 0000E0 01714
CVTSJQ   00004 000060 01632
CVTSMCA  00004 0000C4 01702   1091
CVTSNCTR 00002 0000B4 01663
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTSTATE 00001 000020 01728
CVTSTB   00004 000070 01638
CVTSTEPR 00001 000004 01685
CVTSTUSA 00001 0000BB 01682
CVTSVDCB 00004 000054 01628
CVTSYSAD 00004 000030 01614   0628
CVTTCBP  00004 000000 01594   0275  0880
CVTTCMFG 00001 0000F0 01734
CVTTCRDY 00001 000080 01735
CVTTOD   00001 000020 01677   0305
CVTTPC   00004 000058 01629
CVTTRMTB 00004 00009C 01655
CVTTSCE  00004 0000D8 01712
CVTTSCVB 00003 0000E5 01719
CVTTSCVT 00004 0000E4 01716
CVTTSFLG 00001 0000E4 01717
CVTTSRDY 00001 000080 01718
CVTUSER  00004 0000CC 01705
CVTUSR   00001 000004 01731
CVTVOLF2 00001 0000F4 01743
CVTVOLI2 00001 000080 01745
CVTVOLM2 00004 0000F4 01741
CVTVOLT2 00003 0000F5 01746
CVTXAPG  00004 000014 01601   0223
CVTXITP  00004 000044 01622
CVTXPFP  00001 000001 01674
CVTXTLER 00004 00002C 01612
CVTXTNT1 00001 000114 01780   1753
CVTZDTAB 00004 000040 01621
CVT0DS   00004 000088 01649
CVT0EF00 00004 000004 01595
CVT0FN00 00004 00004C 01625
CVT0PT01 00004 000098 01654
CVT0SCR1 00004 0000E8 01720
CVT0VL00 00004 000018 01602
CVT1EF00 00004 0000A8 01658
CVT1SSS  00001 000040 01640
CVT2SPS  00001 000020 01641
CVT4MPS  00001 000004 01643
CVT4MS1  00001 000010 01642
CX108    00004 000B28 01198   0263  0885
DATACELL 00016 000038 02250   0685  0687  0713  0776
DATE     00005 000A96 01154   0434  0438
DATECHK  00001 00026E 00437   0431  0444
DATECHK2 00001 0002E0 00467   0463
DCELBBNR 00002 000038 02251
DCELDMCT 00001 000043 02256
DCELJBNR 00001 000042 02255
DCELSTAB 00001 00003A 02252
DCELSTAT 00001 00003B 02253
DCELUSER 00001 000047 02258
DCELVOLI 00006 00003C 02254   0688  0714  0714  0716  0776
DCELVTOC 00003 000044 02257
DDATE    00003 000A89 01149   0393
DOT      00001 00004B 00141   0394  0401  0408
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DOUBLE   00008 000958 01119   0382  0383  0385  0391  0393  0399  0400  0406  0407  0410  0411
DSNAREA  00044 000170 01577   0524  0525  0525  0528  0532  0547  0608  0635  0641
D1460    00004 000ADC 01171   0361
D1461    00004 000AE0 01172   0358
D15625   00004 000AC0 01163   0349
D16384   00004 000ABC 01162   0348
D3600    00004 000AD8 01170   0397
D365     00004 000AC8 01165   0364  0369
D366     00004 000ACC 01166   0354  0356
D60      00002 000AD2 01168   0388
D86400   00004 000AC4 01164   0352
ENDIPL   00001 000316 00488   0483
FOUR     00001 000004 00111   0788
FOXZERO  00001 0000F0 00113   0789
F60      00004 000AD4 01169   0404
HALFZERO 00002 000AEE 01179   0727
HEXDD    00001 0000DD 00139   0304
HEX00    00001 000000 00137   0321  0419
HEX03    00001 000003 00138   0310  0315  0432  0445  0462
HTIME    00003 000A8C 01150   0400  0401  0415
IEEVIPL  00001 000000 00005
IHB0032A 00002 000646 00799   0793
IHB0033  00004 0006B4 00848   0845
IHB0041  00004 000778 00918   0915
IHB0048  00004 000844 01024   1021
IHB0055A 00002 0008D8 01067   1061
INITC    00020 000D68 01318   1319
IPCAT    00004 000AF0 01182   0779  0783  0785
IPCC     00020 000D0C 01297
IPDEVTYP 00001 000B10 01192   0767  0768
IPDSN    00013 000B00 01190   1187
IPLCS    00001 000B39 01202   0266
IPLCT    00001 000B3A 01203
IPQPAM   00004 000C88 01289   0814  0814  0815  0816  0836  0837  0842  0874  0906  0906  0910  0911  1006  1006  1007
                              1008  1009
IPREGSV  00004 000CC0 01293   0219
IPSGJQ   00004 000B30 01200   0622  0624
IPSGPL   00005 000B34 01201   0610  0612
IPVOLS   00002 000B0E 01191   1189
IPVOLSER 00001 000B14 01193   0773  0776
IPWKAREA 00001 000000 01555
IPWKEND  00001 0001A2 01579   0519  0743  0763
IPWKST   00001 000000 01557   0523  1579
IPWTO    00002 000D08 01295
IPXSA    00004 000C98 01291   0722
IP001    00002 00001A 00164   0156
IP100    00001 00007E 00217   0891
IP300    00001 0000AC 00251
IP308    00001 0000FA 00282   0279  0481
IP325    00002 00031A 00514
IP327    00002 00035A 00540   0561
IP330    00002 000368 00546
IP333    00002 00037A 00553   0576
IP340    00002 000386 00559   0535
IP343    00004 000390 00562   0577
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IP345    00002 0003A0 00567   0549
IP346    00002 0003C0 00575   0570
IP350    00002 0003C8 00579   0536  0550
IP360    00002 0003F2 00593   0565  0620
IP370    00002 00040E 00607   0587
IP371    00002 000426 00613   0625
IP371A   00004 00042A 00615
IP371B   00002 000432 00618   0631
IP372    00002 00043C 00621   0609
IP375    00002 00044E 00627   0611  0623
IP380    00002 00045E 00633   0591
IP380390 00002 000482 00643   0637
IP381    00002 000B8C 01220   0634
IP382    00008 000B99 01223   0636
IP383    00014 000BA1 01224   0635
IP384    00001 000BBC 01226   1220
IP390    00002 000472 00639   0603
IP391    00002 000BC0 01230   0640
IP392    00014 000BCD 01233   0641
IP393    00008 000BEA 01235   0642
IP394    00005 000BF2 01236   0630  0674
IP395    00001 000BF7 01237   1230
IP400    00002 000488 00662   0563  0590  0615
IP400SW  00001 000B50 01211   0562  0589  0614  0676
IP400WKR 00008 000B58 01212   0531  0545  0560  0568  0571  0572  0573  0612  0624  0696  0698  0710  0726
IP401    00004 00048C 00664   0673
IP402    00002 0004A2 00670
IP403    00004 0004A4 00672   0666  0683  0692  0697
IP404    00006 0004AC 00674   0669
IP405    00002 0004BA 00678
IP406    00002 0004D8 00686   0691
IP407    00002 0004EE 00693   0677
IP408    00002 000520 00706   0699
IP409    00002 00052A 00709
IP413    00001 00054E 00719   0564  0574  0617  0701  0703  0715
IP449    00004 00058A 00737   0729
IP450    00004 00058E 00738   0645
IP455    00001 00056C 00728
IP500    00001 0005AA 00758   0557
IP510    00001 0005DA 00775   0772
IP515    00001 0005E0 00778   0774  0786
IP516    00004 0005FE 00787   0784  0806
IP517    00001 00065C 00804   0782
IP520    00006 000682 00836
IP527    00001 00069A 00841   0839
IP530    00004 00069A 00842
IP540    00001 00071E 00879   0747  0801  0872  0943
IP560    00001 00074A 00905   0875  0878
IP600    00001 0007D0 00956   0909  0942
IP700    00002 0007DE 00977   0280
IP760    00002 0007EE 00987   0991
IP763    00002 000802 00993   0989
IP777    00002 0008A0 01055   0992
IP799    00002 0008EC 01072   0979  1005  1053  1057  1069
IP800    00001 0008EE 01078   0960
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JOBQDSN  00014 000B60 01213   0532  0608
K0       00001 000000 00121   0430  0438  0440  0443  0447  0454  0456  0459  0465
K1       00001 000001 00122   0379  0380  0389  0418  0442  0449  0458
K119     00001 000077 00134   0418
K12      00001 00000C 00130   1140
K13      00001 00000D 00131   0414
K15      00001 00000F 00132   0465
K2       00001 000002 00123   0373  0383  0388  0394  0400  0401  0407  0408  0411  0430
K26      00001 00001A 00133   0415
K3       00001 000003 00124   0383  0393  0400  0407  0411  0479
K4       00001 000004 00125   0309  0393
K5       00001 000005 00126   0393  0434  0435  0438  0440  0468
K6       00001 000006 00127   0383  0400  0407  0411  0414  0435  0447  0448  0448  0454  0456  0468
K7       00001 000007 00128
K8       00001 000008 00129   0415  0479
LASTDAY  00001 00017E 00370   0365
LOCCNTRL 00004 000B7C 01215   0580
LOGTIOT  00004 000954 01106   0265  0886
LOWCASE1 00005 000A9B 01155   0440
LOWCASE2 00006 000AAF 01158   0456
LOWYEAR  00001 0001AA 00387   0355
MAINSVE  00004 000B4C 01209   0730  0737
MSABL    00004 0000B8 01506
MSATTN   00001 000010 01464
MSBOBECB 00004 0000AC 01502
MSBSP    00001 000002 01457
MSBTN    00001 000089 01445
MSCANFLG 00001 000040 01442
MSCCS    00001 000001 01458
MSCMC    00001 000020 01453
MSCONFLG 00001 000080 01441
MSCSD    00001 000040 01486
MSCURE34 00001 000004 01437
MSDATE   00001 000080 01451
MSDISPST 00001 000002 01491
MSECB    00004 0000A4 01499
MSECBFL  00001 00008B 01460
MSERM    00002 00009E 01496
MSEXT    00001 000080 01461
MSFAX    00001 000010 01488
MSFHF    00001 00008D 01484
MSGCHNG  00004 0009B8 01140   0414  0415
MSICR    00001 000010 01454
MSINLSW  00001 000080 01472
MSJNF    00001 000001 01482
MSLOGCOM 00001 000020 01380
MSLOGDAR 00001 000010 01382
MSLOGENQ 00001 000080 01377
MSLOGST  00001 00002A 01376
MSLOGTHD 00001 000040 01379
MSMCR    00001 000002 01467
MSNIP    00001 000080 01434
MSNMF    00001 000080 01485
MSNRP    00001 000004 01479
MSNTAL   00001 000088 01433
                                             CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MSNUPSW  00001 000020 01475
MSNWP    00001 000002 01480
MSPASS   00001 000096 01495
MSPBP    00004 0000A0 01497
MSPFG    00001 00008A 01450
MSPNB    00001 000040 01452
MSPNIP   00001 000001 01439
MSPSDT   00001 000004 01490
MSQHR    00001 000001 01492
MSQNIP   00001 000002 01438
MSREOF   00001 000008 01477
MSREPLYB 00001 000008 01489
MSROLFLG 00001 000020 01443
MSSJQ    00004 0000A8 01500
MSSO     00001 000010 01444
MSSPARE  00004 0000BC 01507
MSSRDR   00001 000008 01478
MSSSA    00001 00008C 01470
MSSSB    00001 000089 01440   1445
MSSSDSN  00001 000008 01447
MSSSPACE 00001 000004 01448
MSSSSIPL 00001 000080 01473
MSSUM    00001 000001 01468
MSSYN    00001 000008 01455
MSSYT    00001 000004 01456
MSTN     00001 000002 01446
MSTTT    00001 000020 01487
MSTUS    00001 00008C 01471
MSUCBAL  00004 0000B4 01505
MSUCBPR  00004 0000B0 01504
MSVRB    00001 00008E 01494
MSWRLOG  00001 000010 01476
MSWRPEN  00001 000040 01474
MSWTL    00001 000020 01463
MSWTO    00001 000040 01462
MSYOUT   00001 000002 01481
MSYSIN   00001 000008 01465
MSYSOUT  00001 000004 01466
MS1BASEX 00001 000088 01427   1431
MTIME    00003 000A8F 01151   0407  0408
NOIPLMSG 00004 000614 00793   0790
NOSET    00001 0002EA 00470   0436
NOTLAST  00001 000176 00367   0362
NOTOD    00001 00030C 00484   0306
N3       00001 000003 00366   0363
OBTCNTRL 00004 000B80 01216   0597
OBTWK    00085 000109 01568
PARMSAVE 00004 000C84 01288   0155  0907  1003  1087
PARM1    00004 000160 01571   0580  0582  0597  0598
PARM2    00004 000164 01572   0529
PARM3    00004 000168 01573   0581  0581  0596
PARM4    00004 00016C 01575   0527
PROCDSN  00014 000B6E 01214   0547
QUOTE    00001 00007D 00142
RDYMSG   00004 000BFC 01240   0252
                                             CROSS-REFERENCE                                                   PAGE    9


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

R0       00001 000000 00093   0199  0199  0263  0265  0267  0268  0473  0473  0883  0883  0884  0885  0886  0887  0888
                              0957
R1       00001 000001 00094   0189  0190  0200  0204  0222  0223  0225  0226  0252  0272  0273  0318  0413  0461  0522
                              0528  0529  0582  0595  0596  0598  0634  0640  0684  0691  0739  0759  0816  0842  0865
                              0869  0882  0911  0935  0939  0994  0995  0996  0997  0997  1008  1009  1041  1046  1049
                              1050  1051  1052  1052
R10      00001 00000A 00103   0271  0272  0273  0274  0277  0720  0807  0813  0815  1089  1090  1091
R11      00001 00000B 00104   0167  0168  0228
R12      00001 00000C 00105   0165  0166  0220  1088
R13      00001 00000D 00106   0190  0219
R14      00001 00000E 00107   0729  0818  0985  0988  0990  0990
R15      00001 00000F 00108   0586  0586  0602  0602  0781  0787  0805  0805  0817  0818  0986  0991  0995
R2       00001 000002 00095   0275  0276  0276  0277  0721  0722  0750  0844  0880  0881  0881  0882  0884  0907  0908
                              0908  0910  0913  1003  1004  1004  1007  1011  1022
R3       00001 000003 00096   0563  0590  0615  0670  0681  0689  0705  0708  0717  1087
R4       00001 000004 00097   0353  0395  0522  0523  0527  0730  0737  0739  0759
R5       00001 000005 00098   0189  0204  0261  0262  0360  0373  0375  0429  0430  0438  0440  0442  0442  0443  0447
                              0448  0449  0449  0451  0452  0454  0456  0458  0458  0459  0461  0465  0629  0679  0694
                              0695  0713  0749  0769
R6       00001 000006 00099   0348  0349  0351  0351  0352  0353  0357  0357  0358  0361  0364  0368  0369  0380  0380
                              0384  0385  0396  0396  0397  0402  0403  0403  0404  0409  0410  0451  0468  0541  0543
                              0555  0556  0616  0628  0629  0664  0665  0665  0667  0668  0675  0679  0685  0685  0687
                              0690  0690  0695  0710  0711  0712  0713  0713  0748  0770  0776  0777
R7       00001 000007 00100   0344  0346  0354  0356  0360  0363  0371  0371  0375  0379  0379  0381  0382  0389  0389
                              0390  0391  0395  0398  0399  0405  0406  0663  0664  0672  0672
R8       00001 000008 00101   0153  0154
R9       00001 000009 00102   0155  0279  0536  0550  0561  0576  0604  0960  1072
SENDTIOT 00004 000D5C 01298   0268  0888
SETDAY   00001 0001BC 00392   0386
SETUP    00001 0002EE 00472   0433  0446  0455  0457  0466  0469
SETWTOR  00001 00021A 00416   0319
SIXTY    00001 00003C 00136   0371
SMFOPT   00004 000D64 01300   0840  1089
SMFTIOT  00004 000D60 01299   0267  0887
SRTEALOC 00001 000008 01992
SRTEASCI 00001 000004 02109   2110
SRTEBALB 00001 000020 02105
SRTEBJLB 00001 000002 02112
SRTEBNUL 00001 000001 02113
SRTEBPRV 00001 000010 02106
SRTEBPUB 00001 000008 02107
SRTEBSTR 00001 000004 02108   2111
SRTEBSVL 00001 000080 02103
SRTEBVQS 00001 000004 02111
SRTEBVSC 00001 000040 02104
SRTECHGS 00001 000040 01989
SRTEDADI 00001 000001 01995
SRTEDMCT 00001 000023 02114
SRTEECBA 00003 000039 02118
SRTEFSCT 00002 000024 02115
SRTEFSEQ 00002 000026 02116
SRTEJBNR 00001 000000 01985
SRTEMNT  00001 000001 01986
SRTEONLI 00001 000080 01988
SRTEPRES 00001 000004 01993   0542  0554
                                             CROSS-REFERENCE                                                   PAGE   10


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SRTERESV 00001 000020 01990
SRTESTAB 00001 000022 02102
SRTESTAT 00001 000003 01987   0542  0554
SRTESYSR 00001 000002 01994
SRTEUNLD 00001 000010 01991
SRTEUSER 00001 000038 02117
SRTEVOLI 00006 00001C 02101   0619  0680  0702  0702  0704  0773
STATUS   00001 00004C 00146   0958
STIME    00003 000A92 01152   0411
SXSA     00001 000000 01510
TCBTIO   00001 00000C 00144   0277  0882  0884
TEN      00002 000AB6 01160   0381  0384  0390  0398  0405  0409
THREE    00001 000003 00110   0789
TIMEAREA 00004 000960 01120   0307  0344
TIMECHK  00001 0002A6 00450   0439  0441
TIMECHK2 00001 0002AC 00453   0460
TODBUF   00002 000A04 01143   0477
TODECB   00004 000A00 01142   0419  0423  0426
TODMSG1  00004 000968 01122   0318
TODMSG2  00004 0009AC 01131   0413  1140
TODREPLY 00122 000A0C 01147   0417  0418  0418  0420  0429  0434  0435  0452
TODSET   00004 000A08 01145
TODWTOR1 00001 00011E 00314   0311  0347
TODWTOR2 00001 00020A 00412
TWO      00001 000002 00109   0727  0790
TYPE2321 00002 000B3D 01206   0682  0700  0707
U        00002 000AD0 01167   0430
UCB      00001 000000 01794
UCBACU   00001 000080 02382
UCBALOC  00001 000008 01894   1992
UCBALTCU 00001 000002 01886
UCBALTPH 00001 000001 01887
UCBASCI  00001 000004 02110
UCBASDEP 00001 000080 01980
UCBASNDE 00001 000001 02088
UCBATI   00001 00000B 01932
UCBBALB  00001 000020 02028   2105
UCBBJLB  00001 000002 02036   2112
UCBBNUL  00001 000001 02037   2113
UCBBPRV  00001 000010 02032   2106
UCBBPUB  00001 000008 02033   2107
UCBBSTR  00001 000004 02034   2108  2109
UCBBSVL  00001 000080 02023   2103
UCBBTA   00004 000024 02185
UCBBTB   00003 000025 02189
UCBBUSYD 00001 000080 01908
UCBBVSC  00001 000040 02027   2104
UCBCELLS 00160 000038 02139
UCBCELL0 00016 000038 02140
UCBCELL1 00016 000048 02141
UCBCELL2 00016 000058 02142
UCBCELL3 00016 000068 02143
UCBCELL4 00016 000078 02144
UCBCELL5 00016 000088 02145
UCBCELL6 00016 000098 02146
                                             CROSS-REFERENCE                                                   PAGE   11


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBCELL7 00016 0000A8 02147
UCBCELL8 00016 0000B8 02148
UCBCELL9 00016 0000C8 02149
UCBCHA   00001 000004 01900
UCBCHANA 00001 00000F 01905
UCBCHGS  00001 000040 01891   1989
UCBCLN   00002 000016 02303
UCBCRDDC 00001 000000 02329
UCBCRECC 00001 000002 02331
UCBCRILC 00001 000001 02330
UCBCRWKA 00004 000018 02201
UCBCSWSA 00008 000018 02318
UCBDA    00001 000000 02269
UCBDADI  00001 000001 01898   1995
UCBDALOC 00001 000008 02237
UCBDASD  00016 000028 02131
UCBDAV   00001 0000F8 02065
UCBDBBNR 00002 000038 02219   2251
UCBDBJLB 00001 000002 02229
UCBDBNUL 00001 000001 02230
UCBDBPRS 00001 000020 02223
UCBDBPRV 00001 000010 02226
UCBDBPUB 00001 000008 02227
UCBDBSTR 00001 000004 02228
UCBDBSVL 00001 000080 02222
UCBDC    00004 0000D8 02150
UCBDCELL 00016 000038 02217   2250
UCBDCLL  00001 000038 02213
UCBDDMCT 00001 000043 02241   2256
UCBDDMNT 00001 000080 02243
UCBDEM   00001 000002 01874
UCBDEV   00001 000018 02002   2011  2125  2160  2176  2197
UCBDHIO  00001 000010 01904
UCBDI    00001 000024 02186
UCBDJBNR 00001 000042 02240   2255
UCBDMC   00001 00007F 02043
UCBDMCT  00001 000023 02040   2114
UCBDNORM 00001 000080 02233
UCBDPRES 00001 000004 02238
UCBDRESV 00001 000020 02235
UCBDSNS  00001 000020 01903
UCBDSTAB 00001 00003A 02220   2252
UCBDSTAT 00001 00003B 02231   2253
UCBDTI   00001 000007 01925
UCBDUNLD 00001 000010 02236
UCBDUSER 00001 000047 02248   2258
UCBDVOLI 00006 00003C 02239   2254
UCBDVPWR 00001 000001 01965
UCBDVRES 00001 000029 02053
UCBDVSHR 00001 000080 02024
UCBDVTOC 00003 000044 02247   2257
UCBECBA  00003 000039 02096   2118
UCBECBB  00004 000038 02094
UCBERADR 00004 00000C 02357
UCBERCNT 00001 000007 02354
                                             CROSS-REFERENCE                                                   PAGE   12


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBERG   00002 000014 02302
UCBERP   00040 000068 02274
UCBERPA  00012 00001C 02130
UCBERPC  00001 000010 02085
UCBERR   00001 000001 01923
UCBESV   00001 000080 02081
UCBESVC  00001 000020 02083
UCBESVE  00001 000008 02086
UCBETI   00001 000008 01926
UCBEVA   00001 000040 02082
UCBEXT   00004 00003C 02097
UCBEXTSN 00001 000008 01883
UCBFCBID 00004 000008 02356
UCBFCBOP 00001 000005 02350
UCBFCBO1 00001 000080 02352
UCBFL1   00001 000006 01907   1996
UCBFL2   00001 000006 01996
UCBFL3   00001 000000 02381
UCBFL4   00001 00002C 02064
UCBFL5   00001 000001 01878
UCBFL7   00001 000016 01978
UCBFSCT  00002 000024 02045   2115
UCBFSEQ  00002 000026 02046   2116
UCBFSER  00008 000028 02047
UCBFT    00001 000020 02068
UCBGCB   00001 00001B 02182
UCBHIO   00001 000080 01901
UCBHIOA  00001 000010 02384
UCBHIOB  00001 000020 02383
UCBID    00001 000002 01888   0771
UCBIN    00001 000080 01934
UCBINTER 00001 000010 01912
UCBIPL   00001 000001 02398
UCBJBNR  00001 000000 01869   1985
UCBKEY   00001 0000F0 01870
UCBLCI   00001 00000A 01930
UCBLTS   00002 000014 01975
UCBMNT   00001 000080 02066
UCBMOD   00001 000040 01902
UCBMONT  00001 000001 01876   1986
UCBMOUNT 00001 000080 02041
UCBMPFLG 00001 000003 02389
UCBMS    00001 000013 02300
UCBMT    00001 000000 02283
UCBM65MP 00001 000000 02377
UCBNALOC 00001 000004 01885
UCBNAME  00003 00000D 01943   0630  0674  0696
UCBNB    00001 000012 02299
UCBNBRSN 00001 000018 02164
UCBNOA   00001 000001 02387
UCBNOB   00001 000002 02386
UCBNOTRC 00001 000008 01915
UCBNOTRD 00001 000040 01909
UCBNRO   00001 000004 02394
UCBOB    00001 000000 01865   0541  0616  0675  0685  0694  0713  0749  0770
                                             CROSS-REFERENCE                                                   PAGE   13


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBONLI  00001 000080 01890   1988
UCBOPEN  00001 00001A 02181
UCBOR    00001 000000 02325
UCBORCNT 00001 000007 02072
UCBORSVA 00004 00002C 02061
UCBORSVB 00003 00002D 02074
UCBOUT   00001 000040 01935
UCBOVFLW 00040 000090 02275
UCBPATH  00001 00000F 01938
UCBPATH0 00001 000008 01939
UCBPATH1 00001 000004 01940
UCBPATH2 00001 000002 01941
UCBPATH3 00001 000001 01942
UCBPR    00001 000010 02297
UCBPRES  00001 000004 01895   1993
UCBPROC  00001 000002 02397
UCBPRSRS 00001 000020 02029
UCBPUB   00001 000020 01936
UCBPW    00001 000011 02298
UCBRCCW1 00008 000000 02315
UCBRCCW2 00008 000008 02316
UCBRCCW3 00008 000010 02317
UCBRESV  00001 000020 01892   1990
UCBREW   00001 000010 01937
UCBRIC   00001 000020 02390
UCBRNIC  00001 000010 02392
UCBROR   00008 000000 02287
UCBRQESV 00002 00002A 02056
UCBSEN   00004 000018 02129
UCBSENS  00002 000018 02180
UCBSENSA 00003 000019 02019
UCBSENSB 00004 000018 02017
UCBSENSE 00004 000018 02015
UCBSENSN 00001 000018 02018
UCBSIO   00002 00000E 02296
UCBSIOB  00001 000008 02385
UCBSKA   00008 000030 02077
UCBSNADR 00003 000019 02165
UCBSNINF 00001 000000 02366
UCBSNS   00002 000016 01976
UCBSNSXT 00006 000000 02370
UCBSQC   00001 000028 02051
UCBSTAB  00001 000022 02022   2102
UCBSTART 00004 000020 02184
UCBSTAT  00001 000003 01889   1987
UCBSTI   00001 000009 01928
UCBSTS   00001 000006 01916
UCBSYSR  00001 000002 01896   1994
UCBTBYT1 00001 000010 01945
UCBTBYT2 00001 000011 01954
UCBTBYT3 00001 000012 01967
UCBTBYT4 00001 000013 01974
UCBTCC   00001 000010 02069
UCBTCERP 00024 000000 02314
UCBTCR   00001 000000 02310
                                             CROSS-REFERENCE                                                   PAGE   14


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBTEB   00004 00001C 02183
UCBTEPDC 00001 000008 01872
UCBTICBT 00001 000020 01879
UCBTR    00001 00000C 02294
UCBTRT   00001 00000A 02290
UCBTW    00001 00000D 02295
UCBTWT   00001 00000B 02292
UCBTYP   00004 000010 01944   0682  0700  0707  0767
UCBUA    00001 000005 01906
UCBUCS   00001 000000 02340
UCBUCSID 00004 000000 02344
UCBUCSOP 00001 000004 02345
UCBUCSO1 00001 000080 02347
UCBUCSO2 00001 000040 02348
UCBUCSPE 00001 000001 02349
UCBUNLD  00001 000010 01893   1991
UCBUSER  00001 000038 02095   2117  2211
UCBUSING 00001 000020 01910
UCBVER   00001 000008 02071
UCBVLPWR 00001 000002 01962
UCBVOLI  00006 00001C 02021   2101
UCBVOPT  00001 000030 02080
UCBVSDR  00001 000010 01882
UCBVTOC  00004 000024 02044
UCBVVRTN 00001 000040 02067
UCBWGT   00001 00000C 01933
UCBWKADA 00004 0000D8 02152
UCBWKADB 00004 00003C 02099
UCBXTADR 00004 00001C 02168
UCBXTN   00004 000030 02079
UCBXTNB  00003 000031 02090
UCB1FEA0 00001 000080 01946
UCB1FEA1 00001 000040 01947
UCB1FEA2 00001 000020 01948
UCB1FEA3 00001 000010 01949
UCB1FEA4 00001 000008 01950
UCB1FEA5 00001 000004 01951
UCB1FEA6 00001 000002 01952
UCB1FEA7 00001 000001 01953
UCB2OPT0 00001 000080 01955
UCB2OPT1 00001 000040 01956
UCB2OPT2 00001 000020 01957
UCB2OPT3 00001 000010 01958
UCB2OPT4 00001 000008 01959
UCB2OPT5 00001 000004 01960
UCB2OPT6 00001 000002 01961
UCB2OPT7 00001 000001 01964
UCB3CHAR 00001 000004 01973
UCB3COMM 00001 000040 01969
UCB3DACC 00001 000020 01970
UCB3DISP 00001 000010 01971
UCB3TAPE 00001 000080 01968
UCB3UREC 00001 000008 01972
VCBCOUNT 00002 000000 01558
VCBCVOLM 00006 000103 01566
                                             CROSS-REFERENCE                                                   PAGE   15


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

VCBDEVTP 00004 000002 01559
VCBDSSQN 00002 00000C 01561
VCBINDXA 00003 000100 01565
VCBNXTCB 00004 0000FC 01564
VCBSPARE 00010 0000F2 01563
VCBVOLSN 00006 000006 01560   0588
VCONBIE0 00004 000DC0 01328   0817
VDDNAME  00008 000C48 01269
VDENTRY  00001 000C44 01266
VDJFCBT  00004 000C50 01270
VDUCBPT  00004 000C54 01271
VJDNAME  00008 000C70 01283
VJENTRY  00001 000C6C 01280
VJJFCBT  00004 000C78 01284
VJUCBPT  00004 000C7C 01285   0808
VOLSRAR  00006 00019C 01578   0588  0595  0619  0636  0642  0680  0688  0704  0716
VPDNAME  00008 000C5C 01276
VPENTRY  00001 000C58 01273
VPJFCBT  00004 000C64 01277
VPUCBPT  00004 000C68 01278   0809
VRDNAME  00008 000C34 01262
VRENTRY  00001 000C30 01259
VRJFCBT  00004 000C3C 01263
VRUCBPT  00004 000C40 01264
VTIOT    00008 000C18 01255   0271  0274  0807
VTIOTEND 00004 000C80 01286
WORK1    00008 000650 00802   0787  0788
WORK2    00004 000658 00803   0788  0789  0790
XAD      00004 000004 01524
XAE      00001 000010 01526
XAF      00004 00000C 01542
XAH      00004 000000 01540
XAI      00004 000004 01541
XAJ      00002 00002A 01534   0727
XAL      00004 000014 01529
XAN      00001 000014 01528
XAP      00004 000000 01523
XAR      00004 000010 01527   0725
XAS      00008 000020 01531
XAT      00004 000014 01543
XAU      00001 000028 01532
XAV      00008 000018 01530   0723  0724  0724  0726
XAX      00008 000008 01525
XSA      00008 000000 01519   0721  1539
YDATE    00003 000A86 01148   0383  0388  0394  0414  0435  0448  0468
YR2000   00004 000AB8 01161   0346



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  5920
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 3339 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM10.R0000109      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM10.S0000110      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM10.S0000110      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG11    / START 78240.1945
IEF374I STEP /SG11    / STOP  78240.1945 CPU   0MIN 01.61SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:05.06   ALLOC START    19:45:05.07   MAIN REGION ----- 300K                          *
*   STEP NAME SG11       STEP END TIME  19:45:07.66   PGM START TIME 19:45:05.16   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.60   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:01.61   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ---------- 180       0250 ------------ 0       0250 ------------ 0       0151 ---------- 101       0151 ---------- 183    *
*   0151 ---------- 741       0158 ---------- 418       0151 ----------- 94       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM10  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:07.70   ALLOC START    19:45:07.72   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:07.74   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM10 / START 78240.1945
IEF376I  JOB /R21AM10 / STOP  78240.1945 CPU   0MIN 01.61SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM10    JOB READ TIME 19:44:48.89   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.61   *
*   JOB CLASS A          JOB INIT TIME 19:45:05.06   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:02.69   *
*   ACCOUNT              JOB END TIME  19:45:07.75   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       1          1                               A
            RRRRRRRRR  222222222      11        AAA     MM     MM      11         11                              AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     111        111                             AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM      11         11                            AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      11         11                           AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      11         11                           AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM      11         11                           AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM      11         11                           AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM    111111     111111                         AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    111111     111111                         AA     AA

***********A  START   R21AM11    SYS SYSA   WTR 00E   07:47:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM11    START  A***********
***********A  START   R21AM11    SYS SYSA   WTR 00E   07:47:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM11    START  A***********
***********A  START   R21AM11    SYS SYSA   WTR 00E   07:47:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM11    START  A***********
***********A  START   R21AM11    SYS SYSA   WTR 00E   07:47:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM11    START  A***********
***********A  START   R21AM11    SYS SYSA   WTR 00E   07:47:09 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM11    START  A***********


//R21AM11 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG12 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEE3203D)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM11  SG12
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEE3203D  SD  01 000000 000184
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  SGIEE0VR 1,1,0,1,0
       IEE3203D, VARY KEYWORD SCAN ROUTINE                                                                     PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                4+IEE3203D CSECT
                                      5+*A 694500,784500-787500                                          A32191
                                      6+*C 007000,121400-121996,694500                                   A32191
                                      7+* MODULE CLEANUP--A MACRO CALL AND AN END STATEMENT FOLLOWING THE 21774
                                      8+* MEND CARD IS INCORRECT AND WAS DELETED                          21774
                                      9+*D 882000-932000                                                  21774
                                     10+* 008000,113600,125000,127400,748000                              20002
                                     11+***********************************************************************
                                     12+* TITLE- IEE3203D   VARY KEYWORD SCAN MODULE                          *
                                     13+* FUNCTION- THIS MODULE SCANS THE VARY COMMAND OPERAND FIELD FOR THE  *
                                     14+*              KEYWORD AND THEN COMPARES THIS KEYWORD TO EACH ENTRY   *
                                     15+*              IN A TABLE OF VALID VARY KEYWORDS. A KEYWORD IS VALID  *
                                     16+*              ACCORDING TO THE OPTIONS SPECIFIED AT SYSGEN TIME. FOR *
                                     17+*              THIS SYSTEM, THESE KEYWORDS ARE VALID-                 *
                                     18+*                  ONLINE    VALID FOR ALL SYSTEMS                    *
                                     19+*                  OFFLINE             ''                             *
                                     20+*                  CONSOLE   VALID FOR MULTIPLE CONSOLE SUPPORT OPT.  *
                                     21+*                  HARDCPY             ''                             *
                                     22+*                  MSTCONS             ''                             *
                                     23+*                  PATH      VALID FOR ALTERNATE PATH RETRY OPTION    *
                                     24+*                  ONTP      VALID FOR TCAM OPTION                20002
                                     25+*                  OFFTP               ''                         20002
                                     26+***********************************************************************
                                     27+* ENTRY POINT- IEE3203D FROM COMMAND ROUTER MODULE, IEE0403D          *
                                     28+***********************************************************************
                                     29+* ATTRIBUTES- REENTRANT, SVC TRANSIENT, READ-ONLY, SELF RELOCATING    *
                                     30+***********************************************************************
                                     31+* APPLICABILITY- MFT,MVT                                              *
                                     32+***********************************************************************
                                     33+* EXTERNAL REFERENCES- EXTENDED SAVE AREA (XSA)                       *
                                     34+***********************************************************************
                                     35+* EXITS(NORMAL)- IN THIS SYSTEM IEE3203D EXITS TO-                    *
                                     36+*              IEE3303D FOR KEYWORDS- ONLINE, OFFLINE, CONSOLE        *
                                     37+*              IEE4703D FOR KEYWORD- HARDCPY                          *
                                     38+*              IEE4303D FOR KEYWORD- MSTCONS                          *
                                     39+*              IEE2403D FOR KEYWORD- PATH                             *
                                     40+*              IGC1303D FOR KEYWORDS- ONTP, OFFTP                 20002
                                     41+***********************************************************************
                                     42+* EXITS(ERROR)- EXIT TO MESSAGE MODULE IEE0503D                       *
                                     43+*        MESSAGES-                                                    *
                                     44+*              'IEE3111 VARY  PARAMETER MISSING'                      *
                                     45+*                WHEN POINTER TO COMMAND PARAM LIST IN XAL IS 0       *
                                     46+*              'IEE3071 VARY  DELIMITER ERROR'                        *
                                     47+*                WHEN NO COMMA AFTER PARENS, UNBALENCED PARENS, OR NO *
                                     48+*                COMMA BEFORE KEYWORD.                                *
                                     49+*              'IEE3091 VARY  UNIDENTIFIABLE KEYWORD'                 *
                                     50+*                WHEN THE KEYWD DOES NOT MATCH ANY ENTRY IN THE TABLE *
                                     51+***********************************************************************
                                     52+* INPUT- REGISTER 2 CONTAINS A POINTER TO THE XSA                     *
                                     53+***********************************************************************
                                     54+* OUTPUT- CONTROL IS PASSED TO THE CORRECT COMMAND PROCESSOR, OR THE  *
                                     55+*              MESSAGE MODULE, IEE0503D                               *
                                     56+***********************************************************************
                                     57+* OPERATION- IEE3203D SCANS THE VARY COMMAND OPERAND FOR THE KEYWORD  *
                                     58+*              WHICH IS DEFINED AS THE WORD FOLLOWING THE FIRST COMMA *
       IEE3203D, VARY KEYWORD SCAN ROUTINE                                                                     PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     59+*              NOT EMBEDDED IN PARENS. R9 IS USED TO INDEX THROUGH THE*
                                     60+*              OPERAND TO FIND ',KEYWORD'. COMMANDS OF THE FOLLOWING  *
                                     61+*              FORMS ARE ACCEPTABLE-                                  *
                                     62+*                  V  UNIT,KEYWORD                                    *
                                     63+*                  V  UNIT(MULTIPLE UNITS),KEYWORD                    *
                                     64+*                  V  (MULTIPLE UNITS),KEYWORD                        *
                                     65+*                  V  (MULTIPLE UNITS)UNIT,KEYWORD                    *
                                     66+*                  (ANY NUMBER OF BALANCED INNER/OUTER PARENS MAY BE  *
                                     67+*                   SPECIFIED)                                        *
                                     68+*                  V  ,KEYWORD                                        *
                                     69+*              WHEN THE COMMA PRECEDING THE KEYWORD IS FOUND,A POINTER*
                                     70+*              TO THE START OF THE KEYWORD IS SAVED AND THE SCAN CON- *
                                     71+*              TINUES UNTIL A COMMA, BLANK, OR THE END OF BUFFER IS   *
                                     72+*              FOUND. WHEN THE COMPLETE KEYWORD IS FOUND, IT IS COM-  *
                                     73+*              PARED TO EACH ENTRY IN THE VALID KEYWORD TABLE UNTIL A *
                                     74+*              MATCH OR THE END OF THE TABLE IS FOUND. EACH ENTRY     *
                                     75+*              CONSISTS OF A 9 BYTE KEYWORD SLOT FOLLOWED BY ITS 2    *
                                     76+*              BYTE MODULE CODE. THE TABLE SCAN IS DONE BY ESTABLISH- *
                                     77+*              ING ADDRESSABILITY TO THE TABLE AND THEN INCREMENTING  *
                                     78+*              THE BASE REGISTER BY THE LENGTH OF AN ENTRY AS EACH NON*
                                     79+*              MATCH IS FOUND. THIS METHOD INSURES FUTURE FLEXIBILITY *
                                     80+*              BECAUSE NO MATTER HOW MANY NEW KEYWORDS ARE ADDED TO   *
                                     81+*              THE TABLE, THE LABELS 'KEYTAB' AND 'XCTLMOD' WILL AL-  *
                                     82+*              WAYS POINT TO THE CURRENT KEYWORD AND ITS MODULE CODE. *
                                     83+*              WHEN A MATCH IS FOUND, THE MODULE CODE AT 'XCTLMOD' IS *
                                     84+*              INSERTED INTO THE MODULE NAME IN THE XAX AND POINTERS  *
                                     85+*              FOR THE XCTL ARE PLACED IN THE XSA. FOR AN ERROR, THE  *
                                     86+*              MESSAGE MODULE NAME IS PLACED IN THE XAX, AN ERROR CODE*
                                     87+*              IS PLACED IN THE XAE,AND THE XCTL PROCEDURE IS FOLLOWED*
                                     88+***********************************************************************
                                     89+* NOTES- THIS SCAN DOES NOT SUPPORT KEYWORDS OF MORE THAN 8 CHARACTERS*
                                     90+***********************************************************************
                                     91+* REGISTER ASIGNMENTS
000001                               92+R1       EQU   1
000002                               93+R2       EQU   2 XSA BASE
000003                               94+R3       EQU   3
000004                               95+R4       EQU   4 COUNTER FOR KEYWORD CHARACTERS
000005                               96+R5       EQU   5
000006                               97+R6       EQU   6 PTR TO FIRST CHAR OF KEYWORD
000007                               98+R7       EQU   7 POINTER TO END OF BUFFER
000008                               99+R8       EQU   8 WORK REG
000009                              100+R9       EQU   9 PTR TO CURRENT CHAR OF OPERAND FIELD
00000A                              101+R10      EQU   10
00000B                              102+R11      EQU   11 BASE FOR VALID KEYWORD TABLE
00000C                              103+R12      EQU   12 PGM BASE
00000D                              104+R13      EQU   13
00000E                              105+R14      EQU   14
00000F                              106+R15      EQU   15
                                    107+*    EQUATES
000000                              108+C0       EQU   0
000001                              109+C1       EQU   1
000002                              110+C2       EQU   2
000003                              111+C3       EQU   3
000008                              112+C8       EQU   8
00000B                              113+LENG     EQU   11 LENGTH OF KEYWORD-MODULE CODE ENTRY
       IEE3203D, VARY KEYWORD SCAN ROUTINE                                                                     PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00006B                              114+COMMA    EQU   C',' COMMA CHAR
00004D                              115+LFTPAREN EQU   C'(' LEFT PAREN CHAR
00005D                              116+RGTPAREN EQU   C')' RIGHT PAREN CHAR
000040                              117+BLANK    EQU   C' ' BLANK CHAR
000003                              118+PARENSW  EQU   3 SWITCH FOR BALANCED PARENS
000007                              119+ERR7     EQU   07 ERR CODE   DELIM ERROR
000009                              120+ERR9     EQU   9 ERR CODE   UNIDENT KEYWORD
00000B                              121+ERR11    EQU   11 ERR CODE   PARAM MISSING
                                    122+***********************************************************************










                                    124+***********************************************************************
                                    125+* FUNCTIONS OF THIS ROUTINE-                                          *
                                    126+*     1. ESTABLISHES PROGRAM AND XSA ADDRESSABILITY                   *
                                    127+*     2. INITIALIZES A BALANCED PAREN SWITCH AND A CHARACTER COUNTER  *
                                    128+*     3. CHECKS XAL FOR 0. (IF 0, BRANCHES TO ERROR ROUTINE.)         *
                                    129+*     4. COMPUTES THE END OF BUFFER                                   *
                                    130+***********************************************************************
000000 05C0                         131+         BALR  R12,C0 ESTABLISH PGM ADDRESSABILITY
000002                              132+         USING *,R12
000002 47F0 C014            00016   133+         B     BRANCH BRANCH AROUND MODULE ID
000006 EEEE                         134+         DC    X'EEEE' MODULE IDENTIFIER
000008 C9C5C5F3F2F0F3C4             135+         DC    CL8'IEE3203D' ..
000010 F9F1F2F2                     136+         DC    CL4'9122' ..
000014 EEEE                         137+         DC    X'EEEE' ..
000016                              138+BRANCH   EQU   *
000000                              139+         USING XSA,R2 BASE FOR EXTENDED SAVE AREA
                                    140+         L     R9,XAL REG 9 POINTS TO OPERAND FIELD OF                 X
000016 5890 2014            00014      +                      VARY COMMAND
00001A 4199 0000            00000   141+         LA    R9,C0(R9) ZERO OUT HIGH ORDER BYTE
00001E 1299                         142+         LTR   R9,R9 IS PARAMETER PTR 0 (NO KEYWORD)
000020 4150 000B            0000B   143+         LA    R5,ERR11 SET ERR CODE FOR MSG 'PARAM MISSING'
000024 4780 C104            00106   144+         BZ    ERREXIT YES,PTR IS 0, GO TO ERROR ROUTINE
000028 5870 2010            00010   145+         L     R7,XAR LOAD POINTER TO THE BUFFER THAT
00002C 4177 0000            00000   146+         LA    R7,C0(R7) CONTAINS THE VARY COMMAND
000030 4A77 0000            00000   147+         AH    R7,C0(R7) COMPUTE END OF BUFFER
000034 1B33                         148+         SR    PARENSW,PARENSW INITIALIZE PAREN SWITCH TO 0
000036 1B44                         149+         SR    R4,R4 INITIALIZE CHARACTER COUNTER TO 0
       IEE3203D, VARY KEYWORD SCAN ROUTINE                                                                     PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    151+***********************************************************************
                                    152+* THE COMMAND OPERAND IS SCANNED FOR A LEFT PAREN OR A COMMA. IF A    *
                                    153+* LEFT PAREN IS FOUND, THE OPERAND IS SCANNED FOR BALANCED PARENS AND *
                                    154+* THEN THE KEYWORD. IF THERE IS NO LEFT PAREN, AND A COMMA IS FOUND,  *
                                    155+* THE KEYWORD SHOULD FOLLOW.                                          *
                                    156+***********************************************************************
000038                              157+PARENSCN EQU   *
000038 954D 9000      00000         158+CHECK    CLI   C0(R9),LFTPAREN IS FIRST CHAR A LEFT PAREN
00003C 4780 C054            00056   159+         BE    INCSWTCH YES,GO TO CHECK FOR BAL PARENS
000040 956B 9000      00000         160+         CLI   C0(R9),COMMA IS CURRENT CHAR A COMMA
000044 4780 C08E            00090   161+         BE    SAVEPTR YES, GO TO SCAN KEYWORD
000048 4199 0001            00001   162+         LA    R9,C1(R9) INCREMENT PTR TO NEXT CHAR
00004C 1997                         163+         CR    R9,R7 HAS END OF BUFFER BEEN REACHED
00004E 4780 C07A            0007C   164+         BE    DELIMERR YES,GO TO ERR RTN, COMMA MISSING
000052 47F0 C036            00038   165+         B     CHECK GO BACK TO CHECK NEXT CHAR
                                    166+***********************************************************************
                                    167+* THIS ROUTINE SCANS THE PARAMETER LIST FOR BALANCED PARENS. WHEN A   *
                                    168+* LEFT PAREN IS FOUND, PARENSW IS INCREMENTED BY 1, FOR A RIGHT PAREN *
                                    169+* IT IS DECREMENTED BY 1. WHEN PARENSW IS 0, BALANCED PARENS HAVE BEEN*
                                    170+* FOUND, AND A COMMA AND THE KEYWORD SHOULD FOLLOW.                   *
                                    171+***********************************************************************
000056 4133 0001            00001   172+INCSWTCH LA    PARENSW,C1(PARENSW) INCREMENT BY 1 FOR LEFT PAREN
00005A 4199 0001            00001   173+CHARSCAN LA    R9,C1(R9) INCREMENT PTR TO NEXT CHAR
00005E 954D 9000      00000         174+         CLI   C0(R9),LFTPAREN IS CURRENT CHAR A LEFT PAREN
000062 4780 C054            00056   175+         BE    INCSWTCH YES,CHAR IS'(',SET SWTCH,CHECK AGAIN
000066 955D 9000      00000         176+         CLI   C0(R9),RGTPAREN IS CURRENT CHAR A RIGHT PAREN
00006A 4770 C06E            00070   177+         BNE   CHKSWTCH NO,CHECK PAREN SWITCH FOR 0
00006E 0630                         178+DECSWTCH BCTR  PARENSW,C0 DECREMENT BY 1 FOR RIGHT PAREN
000070 1233                         179+CHKSWTCH LTR   PARENSW,PARENSW IS SWITCH 0 (BALANCED PARENS)
000072 4780 C082            00084   180+         BZ    KEYSCAN YES,GO TO SCAN KEYWORD AFTER PARENS
000076 1997                         181+         CR    R9,R7 NO, CHECK FOR END OF BUFFER REACHED
000078 4770 C058            0005A   182+         BNE   CHARSCAN NO,GO BACK TO CHECK NEXT CHAR
00007C 4150 0007            00007   183+DELIMERR LA    R5,ERR7 DELIM ERR UNBAL PARENS OR NO COMMA
000080 47F0 C104            00106   184+         B     ERREXIT GO TO ERROR RTN TO SET UP XCTL










                                    186+***********************************************************************
                                    187+* THIS ROUTINE CHECKS FOR A COMMA PRECEDING A KEYWORD AND IF THE COMMA*
                                    188+* IS PRESENT, SCANS THE KEYWORD. A POINTER TO THE FIRST CHAR OF THE   *
                                    189+* KEYWORD IS SAVED. (A KEYWORD IS DEFINED AS THE FIRST WORD FOLLOWING *
                                    190+* A COMMA NOT EMBEDDED IN PARENS.) THE KEYWORD IS COMPLETE WHEN A     *
                                    191+* COMMA, A BLANK, OR END OF BUFFER IS FOUND.                          *
                                    192+***********************************************************************
000084                              193+KEYSCAN  EQU   *
000084 4199 0001            00001   194+         LA    R9,C1(R9) INCREMENT PTR TO NEXT CHAR
000088 956B 9000      00000         195+         CLI   C0(R9),COMMA IS CURRENT CHAR A COMMA
00008C 4770 C07A            0007C   196+         BNE   DELIMERR NO.COMMA MUST PRECEDE KEYWORD
       IEE3203D, VARY KEYWORD SCAN ROUTINE                                                                     PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000090 4169 0001            00001   197+SAVEPTR  LA    R6,C1(R9) SAVE PTR TO 1ST CHAR OF KEYWORD
000094 4199 0001            00001   198+SCAN1    LA    R9,C1(R9) INCREMENT PTR TO CURR CHAR OF KEYWD
000098 956B 9000      00000         199+         CLI   C0(R9),COMMA IS CURRENT CHAR A COMMA
00009C 4780 C0B4            000B6   200+         BE    TABSCAN YES,COMMA MEANS END OF KEYWD FOUND
0000A0 9540 9000      00000         201+         CLI   C0(R9),BLANK NO,CHECK CURRENT CHAR FOR BLANK
0000A4 4780 C0B4            000B6   202+         BE    TABSCAN YES,BLANK MEANS END OF KEYWD FOUND
0000A8 1997                         203+         CR    R9,R7 NO,CHECK FOR END OF BUFFER
0000AA 4780 C0B4            000B6   204+         BE    TABSCAN GO TO SCAN TABLE
0000AE 4144 0001            00001   205+         LA    R4,C1(R4) INCREMENT KEYWORD CHAR COUNTER
0000B2 47F0 C092            00094   206+         B     SCAN1 GO BACK TO CHECK NEXT CHAR OF KEYWD










                                    208+***********************************************************************
                                    209+* THIS ROUTINE COMPARES THE KEYWORD WITH EACH ENTRY IN A TABLE OF     *
                                    210+* VALID VARY KEYWORDS UNTIL A MATCH, OR THE END OF THE TABLE IS FOUND.*
                                    211+* WHEN A MATCH IS FOUND,THE CORRECT XCTL MODULE NAME IS PLACED IN THE *
                                    212+* XAX, AND PTRS FOR THE XCTL ARE SET UP IN THE XSA.                   *
                                    213+***********************************************************************
0000B6                              214+TABSCAN  EQU   *
0000B6 41B0 C12A            0012C   215+         LA    R11,KEYTAB PUT ADDRESS OF KEYWORD TABLE IN A
00012C                              216+         USING KEYTAB,R11 REG AND ESTABLISH ADDRESSABILITY
0000BA 4180 B04D            00179   217+         LA    R8,TABEND PUT ADDRESS OF END OF TABLE IN A REG
0000BE 0640                         218+         BCTR  R4,C0 DECREMENT CHAR COUNTER FOR EX INSTR
0000C0                              219+SCAN2    EQU   *
0000C0 15B8                         220+         CLR   R11,R8 HAS END OF TABLE BEEN REACHED
0000C2 4150 0009            00009   221+         LA    R5,ERR9 PRESET CODE FOR UNIDENT KEYWORD MSG
0000C6 4720 C104            00106   222+         BH    ERREXIT YES, THE VERB IS INVALID
0000CA 4440 C112            00114   223+         EX    R4,DOCLC INSERT KEYWORD LENGTH IN CLC INSTR
0000CE 4780 C0D8            000DA   224+         BE    XMOD IF KEYWDS MATCH,GOTO SET UP XCTL MOD
0000D2 41BB 000B            0000B   225+INCPTR   LA    R11,LENG(R11) IF NOT, INCREMENT PTR TO NEXT KEYWD
0000D6 47F0 C0BE            000C0   226+         B     SCAN2 GO TO CHECK NEXT ENTRY
0000DA 418B 0001            00001   227+XMOD     LA    R8,C1(R11) COMPUTE A POINTER TO THE FIRST
0000DE 1A48                         228+         AR    R4,R8 CHARACTER AFTER THE KEYWORD
0000E0 9540 4000      00000         229+         CLI   C0(R4),BLANK IS THE CHARACTER BLANK
0000E4 4770 C0D0            000D2   230+         BNE   INCPTR IF NOT, A FALSE MATCH HAS BEEN FOUND
                                    231+*                                  EG. KEYWORD 'ABC' WOULD MATCH TABLE
                                    232+*                                  ENTRY 'ABCD' BECAUSE ONLY THE FIRST
                                    233+*                                  3 CHARACTERS WERE COMPARED.
0000E8                              234+XCTLRTN1 EQU   *
0000E8 D207 2008 C122 00008 00124   235+         MVC   XAX(C8),XCTLNAME PUT XCTL MOD NAME IN XAX
0000EE D201 200B B009 0000B 00135   236+         MVC   XAX+C3(C2),XCTLMOD PUT MOD IDENT CODE IN XCTL MOD NAME
0000F4                              237+XCTLRTN2 EQU   *
0000F4 1BFF                         238+         SR    R15,R15 ZERO  OUT A REG
0000F6 50F0 2004            00004   239+         ST    R15,XAD USE IT TO ZERO OUT DCB PTR IN LIST
0000FA 41F0 2008            00008   240+         LA    R15,XAX GET PTR TO XCTL MOD NAME IN LIST
0000FE 50F0 2000            00000   241+         ST    R15,XAP PUT PTR TO XCTL MOD NAME INTO LIST
000102 18F2                         242+         LR    R15,R2 PUT PTR TO LIST IN REG 15
       IEE3203D, VARY KEYWORD SCAN ROUTINE                                                                     PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000104 0A07                         243+         SVC   7 ISSUE XCTL SVC










                                    245+***********************************************************************
                                    246+* EXIT ROUTINE-                                                       *
                                    247+* THE CORRECT ERROR CODE AND THE MESSAGE MODULE NAME,IGC0503D, ARE    *
                                    248+* PUT IN THE XAE AND THEN THE XCTL PROCEDURE IS FOLLOWED.             *
                                    249+***********************************************************************
000106                              250+ERREXIT  EQU   *
000106 4250 2010            00010   251+         STC   R5,XAE PUT ERROR CODE IN XAE
00010A D207 2008 C11A 00008 0011C   252+         MVC   XAX(C8),MSGMOD PUT IGC0503D IN XAX
000110 47F0 C0F2            000F4   253+         B     XCTLRTN2 BRANCH TO COMPLETE XCTL










000114 D500 B000 6000 00000 00000   255+DOCLC    CLC   C0(C0,R11),C0(R6) DOES CURRENT TABLE ENTRY EQU KEYWD
00011C                              256+         DS    0F ALIGN ON FULL WORD BOUNDARY
00011C C9C7C3F0F5F0F3C4             257+MSGMOD   DC    C'IGC0503D' ERROR MSG MODULE
000124 C9C7C3F0F0F0F3C4             258+XCTLNAME DC    CL8'IGC0003D' XCTL MODULE NAME
                                    259+***********************************************************************
00012C                              260+KEYTAB   EQU   * START OF VALID KEYWORD TABLE
                                    261+*                                  ****KEYWORD FOLLOWED BY ITS****
                                    262+*                                  ****   XCTL MODULE CODE    ****
00012C D6D5D3C9D5C54040             263+         DC    CL9'ONLINE' ..
000135                              264+XCTLMOD  EQU   *
000135 F3F3                         265+         DC    CL2'33' ..
000137 D6C6C6D3C9D5C540             266+         DC    CL9'OFFLINE' ..
000140 F3F3                         267+         DC    CL2'33' ..
000142 C3D6D5E2D6D3C540             268+         DC    CL9'CONSOLE' ..
00014B F3F3                         269+         DC    CL2'33' ..
00014D C8C1D9C4C3D7E840             270+         DC    CL9'HARDCPY' ..
000156 F4F7                         271+         DC    CL2'47' ..
000158 D4E2E3C3D6D5E240             272+         DC    CL9'MSTCONS' ..
000161 F4F3                         273+         DC    CL2'43' ..
000163 D7C1E3C840404040             274+         DC    CL9'PATH' ..
00016C F2F4                         275+         DC    CL2'24' ..
00016E D6D5E3D740404040             276+         DC    CL9'ONTP' ..                     20002
000177 F1F3                         277+         DC    CL2'13' ..                     20002
000179 D6C6C6E3D7404040             278+         DC    CL9'OFFTP' ..                     20002
000182 F1F3                         279+         DC    CL2'13' ..                     20002
       IEE3203D, VARY KEYWORD SCAN ROUTINE                                                                     PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000179                              280+TABEND   EQU   *-LENG
                                    281+***********************************************************************
000000                              282+SETXSA   DSECT
                                    283+*                           EXTENDED SAVE AREA MACRO
                                    284+*
                                    285+*              ADDRESSABILITY MAY ALWAYS BE HAD WITH THESE INSTRUCTIONS
                                    286+*
                                    287+*        L R,16 / L R,0(R) / L R,4(R) / L R,0(R) / LA R,96(R)
                                    288+*


000000                              290+XSA      DS    0D BEGINNING OF SAVE AREA

                                    292+*                      MODULE TRANSITION PARAMETER LIST

000000                              294+XAP      DS    F POINTER TO XCTL NAME
000004                              295+XAD      DS    F DCB PTR. (0)
000008                              296+XAX      DS    D XCTL NAME
000010                              297+XAE      DS    0C ERROR CODE
000010                              298+XAR      DS    F PTR TO PARM LIST (REG1)
000014                              299+XAN      DS    0C VERB INDEX
000014                              300+XAL      DS    F PTR TO LIST POSITION
000018                              301+XAV      DS    D VERB
000020                              302+XAS      DS    D TEMORARY SAVE AREA
000028                              303+XAU      DS    C UCM ENTRY INDICATOR            20030
000029                              304+         DS    C RESERVED                       20030
00002A                              305+XAJ      DS    H TJID ENTRY INDICATOR           20030
00002C                              306+         DS    F RESERVED                       20030

                                    308+*                           MESSAGE AREA TABLE

000000                              310+         ORG   XSA
000000                              311+XAH      DS    F RECORD HEADER
000004                              312+XAI      DS    2F MESSAGE ID
00000C                              313+XAF      DS    2F FILL (VARIABLE TEXT)
000014                              314+XAT      DS    6F PRE-FORMATTED TEXT,
                                    315+*                                  DESCRIPTOR CODE,
                                    316+*                                  ROUTING CODE
00002C                              317+         DS    F RESERVED
                                    318  END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

BLANK    00001 000040 00117   0201  0229
BRANCH   00001 000016 00138   0133
CHARSCAN 00004 00005A 00173   0182
CHECK    00004 000038 00158   0165
CHKSWTCH 00002 000070 00179   0177
COMMA    00001 00006B 00114   0160  0195  0199
C0       00001 000000 00108   0131  0141  0146  0147  0158  0160  0174  0176  0178  0195  0199  0201  0218  0229  0255
                              0255  0255
C1       00001 000001 00109   0162  0172  0173  0194  0197  0198  0205  0227
C2       00001 000002 00110   0236
C3       00001 000003 00111   0236
C8       00001 000008 00112   0235  0252
DECSWTCH 00002 00006E 00178
DELIMERR 00004 00007C 00183   0164  0196
DOCLC    00006 000114 00255   0223
ERREXIT  00001 000106 00250   0144  0184  0222
ERR11    00001 00000B 00121   0143
ERR7     00001 000007 00119   0183
ERR9     00001 000009 00120   0221
IEE3203D 00001 000000 00004
INCPTR   00004 0000D2 00225   0230
INCSWTCH 00004 000056 00172   0159  0175
KEYSCAN  00001 000084 00193   0180
KEYTAB   00001 00012C 00260   0215  0216
LENG     00001 00000B 00113   0225  0280
LFTPAREN 00001 00004D 00115   0158  0174
MSGMOD   00008 00011C 00257   0252
PARENSCN 00001 000038 00157
PARENSW  00001 000003 00118   0148  0148  0172  0172  0178  0179  0179
RGTPAREN 00001 00005D 00116   0176
R1       00001 000001 00092
R10      00001 00000A 00101
R11      00001 00000B 00102   0215  0216  0220  0225  0225  0227  0255
R12      00001 00000C 00103   0131  0132
R13      00001 00000D 00104
R14      00001 00000E 00105
R15      00001 00000F 00106   0238  0238  0239  0240  0241  0242
R2       00001 000002 00093   0139  0242
R3       00001 000003 00094
R4       00001 000004 00095   0149  0149  0205  0205  0218  0223  0228  0229
R5       00001 000005 00096   0143  0183  0221  0251
R6       00001 000006 00097   0197  0255
R7       00001 000007 00098   0145  0146  0146  0147  0147  0163  0181  0203
R8       00001 000008 00099   0217  0220  0227  0228
R9       00001 000009 00100   0140  0141  0141  0142  0142  0158  0160  0162  0162  0163  0173  0173  0174  0176  0181
                              0194  0194  0195  0197  0198  0198  0199  0201  0203
SAVEPTR  00004 000090 00197   0161
SCAN1    00004 000094 00198   0206
SCAN2    00001 0000C0 00219   0226
SETXSA   00001 000000 00282
TABEND   00001 000179 00280   0217
TABSCAN  00001 0000B6 00214   0200  0202  0204
XAD      00004 000004 00295   0239
XAE      00001 000010 00297   0251
XAF      00004 00000C 00313
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

XAH      00004 000000 00311
XAI      00004 000004 00312
XAJ      00002 00002A 00305
XAL      00004 000014 00300   0140
XAN      00001 000014 00299
XAP      00004 000000 00294   0241
XAR      00004 000010 00298   0145
XAS      00008 000020 00302
XAT      00004 000014 00314
XAU      00001 000028 00303
XAV      00008 000018 00301
XAX      00008 000008 00296   0235  0236  0240  0252
XCTLMOD  00001 000135 00264   0236
XCTLNAME 00008 000124 00258   0235
XCTLRTN1 00001 0000E8 00234
XCTLRTN2 00001 0000F4 00237   0253
XMOD     00004 0000DA 00227   0224
XSA      00008 000000 00290   0139  0310



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  1381
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  423 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM11.R0000111      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM11.S0000112      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM11.S0000112      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG12    / START 78240.1945
IEF374I STEP /SG12    / STOP  78240.1945 CPU   0MIN 00.36SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:07.77   ALLOC START    19:45:07.78   MAIN REGION ----- 300K                          *
*   STEP NAME SG12       STEP END TIME  19:45:08.53   PGM START TIME 19:45:07.85   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.76   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.36   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 42       0250 ------------ 0       0250 ------------ 0       0151 ----------- 23       0151 ----------- 43    *
*   0151 ----------- 56       0353 ----------- 53       0151 ----------- 10       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM11  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:08.54   ALLOC START    19:45:08.56   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:08.59   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM11 / START 78240.1945
IEF376I  JOB /R21AM11 / STOP  78240.1945 CPU   0MIN 00.36SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM11    JOB READ TIME 19:44:48.94   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.36   *
*   JOB CLASS A          JOB INIT TIME 19:45:07.77   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.83   *
*   ACCOUNT              JOB END TIME  19:45:08.60   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       1      2222222                             A
            RRRRRRRRR  222222222      11        AAA     MM     MM      11     222222222                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     111     22     22                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM      11           22                          AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      11          22                          AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      11         22                           AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM      11        22                            AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM      11       22                             AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM    111111    22222222                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    111111   222222222                        AA     AA

***********A  START   R21AM12    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM12    START  A***********
***********A  START   R21AM12    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM12    START  A***********
***********A  START   R21AM12    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM12    START  A***********
***********A  START   R21AM12    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM12    START  A***********
***********A  START   R21AM12    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM12    START  A***********


//R21AM12 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG13 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEECVUCM)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM12  SG13
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEEUCMC   SD  01 000000 000434
IEA0PT02  ER  02
IEECVXIT  ER  03
IEECMENQ  ER  04
IEECMDOM  ER  05
IEECUCB   LD     0000B0         01
IEECVUCM  LD     0000B0         01
IEECVTCB  ER  06
IEECVH1   ER  07
IEECVH2   ER  08
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 IEEUCMC CSECT
                                      3  IEECUCM (010,                                                         X
                                                       02F,                                                    X
                                                       011,                                                    X
                                                       009,                                                    X
                                                       01F,                                                    X
                                                       30E),                                                   X
                                                       (51,                                                    X
                                                       01,                                                     X
                                                       51,                                                     X
                                                       01,                                                     X
                                                       01,                                                     X
                                                       21),                                                    X
                                                       (WAXA,                                                  R
                                                       WAXN,                                                   A
                                                       WAXN,                                                   A
                                                       WAXN,                                                   A
                                                       WAXN,                                                   A
                                                       WNXN),U,                                                X
                                                       (E,                                                     X
                                                       0,                                                      X
                                                       E,                                                      X
                                                       0,                                                      X
                                                       0,                                                      X
                                                       0),                          S21003                    XX
                                                       (F,                          S21003                    XX
                                                       F,                           S21003                    XX
                                                       F,                           S21003                    XX
                                                       F,                           S21003                    XX
                                                       F,                           S21003                    XX
                                                       F),REPLY=30,BUFFERS=150, 21003                       XXXXXXXXX
                                                       EXIT=USEREXIT,                                          D
                                                       MCS=MCS,                                                I
                                                       MASTCON=010,                                            C
                                                       ROUTCDE=(FFFF,                                          E
                                                       FFFF,                                                   R
                                                       FFFF,                                                   R
                                                       FFFF,                                                   R
                                                       FFFF,                                                   R
                                                       0000),                                                  A
                                                       HARDCDE=FFFF,                                           D
                                                       OLDWCDE=0000,                                           I
                                                       ALTCON=(02F,                                            C
                                                       010,                                                    X
                                                       010,                                                    X
                                                       01F,                                                    X
                                                       009,                                                    X
                                                       010),                                                   X
                                                       HARDCPY=(30E,CMDS,HCPY),                        XXXXXXXXX
                                                       AUTH=(E0,                                               X
                                                       E0,                                                     X
                                                       E0,                                                     X
                                                       E0,                                                     X
                                                       E0,                                                     X
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                                       00),                                                    X
                                                       COMPCON=(FFF,                                           X
                                                       FFF,                                                    H
                                                       FFF,                                                    H
                                                       FFF,                                                    H
                                                       FFF,                                                    H
                                                       FFF),                                                   O
                                                       ALTCOMP=(FFF,                                           H
                                                       FFF,                                                    E
                                                       FFF,                                                    E
                                                       FFF,                                                    E
                                                       FFF,                                                    E
                                                       FFF)

                                      5+*                             UNIT CONTROL MODULE MAP (UCM).

000000                                7+UCM2EXT  DS    0D UCM EXTENTION                  M3883
000000 0000                           8+UCM2WID  DC    H'0' TJID OF TASK FOR UCMWQECB      M3883
000002 0000                           9+UCM2RID  DC    H'0' TJID OF TASK FOR UCMRQECB      M3883
000004 00000000                      10+UCM2PST  DC    V(IEA0PT02) MVTPOST BRANCH ENTRY            21016
000008                               11+UCMPRFX  DS    0D MCS PREFIX AREA                M3883
000008 00000284                      12+UCMMCENT DC    A(UCMMCUCM) PTR MASTER CONSOLE UCM NTRY MCS
00000C                               13+UCMSAVE0 DS    18F RESIDENT SAVE AREA          MCS
000054 00000000                      14+UCMDOME  DC    F'0' PTR 1ST DOM ELEMENT          MCS
000058 00000000                      15+UCMWTOX  DC    V(IEECVXIT) PTR USER WTO/R EXIT RTN.    MCS
00005C 64                            16+UCMSFLGS DC    X'64' MCS
00005D 04                            17+         DC    X'4' MCS
000080                               18+UCMSYSA  EQU   128 RESERVED
000040                               19+UCMSYSB  EQU   64 HARD COPY SUPPORT REQUIRED   MCS
000020                               20+UCMSYSC  EQU   32 COMMANDS TO HARD COPY        MCS
000010                               21+UCMSYSD  EQU   16 CONSOLE SWITCH IS FOR MASTER MCS
000008                               22+UCMSYSE  EQU   8 NO CONSOLES EXIST            MCS
000004                               23+UCMSYSF  EQU   4 GRAPHIC CONSOLES EXIST       MCS
000002                               24+UCMSYSG  EQU   2 HARD COPY DEVICE IS SYSLOG   MCS
000001                               25+UCMSYSH  EQU   1 TIMER IS PRESENT & OPERATING MCS
000080                               26+UCMSYSI  EQU   X'80' WQE CLEANUP NEEDED               MCS
000040                               27+UCMSYSJ  EQU   X'40' HARD COPY TO BE DONE                      MCS
000020                               28+UCMSYSK  EQU   X'20' NEW CONSOLE IS COMPOSITE         MCS
000010                               29+UCMSYSL  EQU   X'10' OPEN BEING ISSUED TO RING ALARM  MCS
000008                               30+UCMSYSM  EQU   X'08' FAILING CONSOLE IS COMPOSITE               MCS
000004                               31+UCMSYSN  EQU   X'04' GRAPHIC CONSOLE PRESENT        19029
000002                               32+UCMSYSO  EQU   X'02' USED BY WTL                    19772
00005E 0000                          33+UCMOWTOR DC    X'0000'
000060 00000001                      34+UCMCMID  DC    F'1' CURRENT MESSAGE ID NUMBER    MCS
000064 000003EC                      35+UCMHCUCM DC    A(UCMHARD)
000068 00                            36+UCMXCT   DC    X'00' EXTERNAL REQUEST COUNT       MCS
000069 0001B4                        37+UCMUEXIT DC    AL3(UCMEXIT) PTR USER EXIT DATA           MCS
00006C FFFF                          38+UCMHRDRT DC    X'FFFF'
00006E 0000                          39+         DC    X'0000'
000070 00000078                      40+UCMXSA   DC    A(UCM3WD)
000074                               41+         DS    1F
000078                               42+UCM3WD   DS    4F
000088 00000000                      43+UCMQRTN  DC    V(IEECMENQ)
00008C                               44+UCMRUTCK DS    1F ROUTE CHECKING FIELD
000090 00000000                      45+UCMDOMRT DC    V(IEECMDOM) DOM MOD ENTRY PT
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000094 00000000                      46+UCMTPPTR DC    A(0)
000098 00000000                      47+UCMNPECB DC    F'0' POSTED WHEN NIP'S H.C. CAN BE WRITTEN MCS
00009C 00000000                      48+UCMLOGAD DC    F'0' ADDRESS OF LOG TCB                  A33710
0000A0 00000BB8                      49+UCMDTINT DC    F'3000' DYNAMIC DISPLAY TIME INTERVAL      S21002
                                     50+*                      THIS IS FOR STIMER BINTVL=UCMDTINT        S21002
                                     51+*                      THIS DEFAULT IS 30 SECONDS.               S21002
0000A4 00                            52+UCMSDS1  DC    AL1(0) STATUS DISPLAY CONTROL BYTE 1      S21002
000080                               53+UCMSDS1A EQU   X'80' STCMDS TO HARDCOPY                 S21002
000040                               54+UCMSDS1B EQU   X'40' INCMDS TO HARDCOPY                 S21002
000020                               55+UCMSDS1C EQU   X'20' S21002
000010                               56+UCMSDS1D EQU   X'10' S21002
000008                               57+UCMSDS1E EQU   X'08' S21002
000004                               58+UCMSDS1F EQU   X'04' S21002
000002                               59+UCMSDS1G EQU   X'02' S21002
000001                               60+UCMSDS1H EQU   X'01' S21002
0000A5                               61+UCMSDS2  DS    XL3 RESERVED FOR SDS                   S21002
0000A8                               62+         DS    0D ALIGNMENT FOR PREFIX PTRS     S21002
0000A8 00000000                      63+         DC    A(UCM2EXT) PTR TO UCM EXTENSION          S21002
0000AC 00000008                      64+         DC    A(UCMPRFX) PTR TO MCS PREFIX             S21002


                                     66+         ENTRY IEECUCB
0000B0                               67+IEECUCB  EQU   *
                                     68+         ENTRY IEECVUCM
0000B0                               69+IEECVUCM EQU   *
                                     70+*                             FIXED ECBS.
0000B0 00000000                      71+UCMXECB  DC    F'0' EXTERNAL INTERRUPT.
0000B4 00000000                      72+UCMAECB  DC    F'0' ATTENTION INTERRUPT.
0000B8 00000000                      73+UCMOECB  DC    F'0' WTO-WTOR REQUEST.
0000BC                               74+UCMDECB  EQU   *
0000BC 00000000                      75+UCMLECB  DC    F'0' WTL REQUEST.
0000C0 00000000                      76+UCMRECB  DC    F'0' RMS REQUEST ECB                 20061

                                     78+*                             ECB LIST PTR (EIL).
0000C4 00000180                      79+UCMLSTP  DC    A(UCMEIL)

                                     81+*                            WTO/WTOR CONTROL FIELDS.
0000C8 00000000                      82+UCMWTOQ  DC    F'0' WQE PTR.
0000CC 00000000                      83+UCMRPYQ  DC    F'0' RQE PTR.
0000D0 0000000000000000              84+UCMRPYI  DC    3F'0' REPLY ID ASSIGNMENT PATTERN.
0000DC 00                            85+         DC    X'00'
0000DD 1E                            86+UCMRQLM  DC    AL1(30) ID ASSIGNMENT LIMIT
0000DE 0096                          87+UCMWQLM  DC    AL2(150) BUFFER STACKING REQUIREMENTS
0000E0 00000000                      88+UCMRQECB DC    F'0' REPLY REQUEST WAITING ECB.
0000E4 00000000                      89+UCMWQECB DC    F'0' BUFFER REQUEST WAITING ECB.
0000E8 0000                          90+UCMRQNR  DC    H'0' CURRENT RQE COUNT.
0000EA 0000                          91+UCMWQNR  DC    H'0' CURRENT WQE COUNT.
0000EC 00000000                      92+UCMWQEND DC    F'0' PTS TO LAST WQE, OR ZERO.
0000F0 00000000                      93+UCMPXA   DC    V(IEECVTCB) ADDR OF COMM. TASK TCB (U MODE ONLY)
0000F4                               94+UCMPXB   EQU   *
0000F4 02                            95+UCMMODE  DC    X'2' 01 - FIXED BUFFER MODE        P
                                     96+*                                       00 - UNLIMITED                P
                                     97+*                                      02 - MCS IN SYSTEM          MCS
000008                               98+UCMAMFA  EQU   X'08' ACCEPT MSTCONS FROM ANYONE       MCS
000004                               99+UCMOGCE  EQU   X'04' ONLY GRAPHICS CONSOLES EXIST     MCS
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000002                              100+UCMMCS   EQU   X'02'
000001                              101+UCMFIX   EQU   X'01'
0000F5 00                           102+UCMCORE  DC    X'00'
0000F6 00                           103+UCMMODEL DC    X'00'
0000F7 00                           104+UCMINCR  DC    X'00'
000080                              105+UCMFREE  EQU   X'80'

                                    107+*                            VARIALBE ENTRY CONTROL FIELDS.
0000F8 00000284                     108+UCMVEA   DC    A(UCMLIST) 1ST ENTRY PTR. * SUITABLE FOR
0000FC 00000048                     109+UCMVEZ   DC    A(UCMESIZE) ENTRY SIZE.    *   LM - BXLE
000100 000003EC                     110+UCMVEL   DC    A(UCMEND) LAST ENTRY PTR.* COMBINATION.
000104                              111+UCMSAVE3 DS    14F SAVE FOR ED2
00013C                              112+UCMSAVE4 DS    16F SAVE FOR CRA
00017C                              113+UCMR9SV  DS    F SAVE FOR ED2
000180                              114+         DS    0D ALLIGNMENT                   MCS



000180 0D                           116+UCMEIL   DC    AL1(6+7) LENGTH OF MCS EIL               20061
000181 00                           117+         DC    X'00' MCS
000182                              118+         DS    CL6 MCS
000188 000000B0                     119+         DC    A(UCMXECB)
00018C 000000B4                     120+         DC    A(UCMAECB)
000190 000000B8                     121+         DC    A(UCMOECB)
000194 000000BC                     122+         DC    A(UCMDECB)
000198 000000C0                     123+         DC    A(UCMRECB) 20061
000181                              124+UCMRPYL  EQU   UCMEIL+1 MCS
00019C 00000284                     125+         DC    A(UCMLIST+0*(72+144*0)) S21002
0001A0 000002CC                     126+         DC    A(UCMLIST+1*(72+144*0)) S21002
0001A4 00000314                     127+         DC    A(UCMLIST+2*(72+144*0)) S21002
0001A8 0000035C                     128+         DC    A(UCMLIST+3*(72+144*0)) S21002
0001AC 000003A4                     129+         DC    A(UCMLIST+4*(72+144*0)) S21002
0001B0 80                           130+         DC    X'80'
0001B1 0003EC                       131+         DC    AL3(UCMLIST+5*(72+144*0)) S21002

                                    133+**  USER EXIT WORK AREA  **
0001B4                              134+UCMEXIT  DS    0F MCS
0001B4                              135+UCMMSTXT DS    128C MESSAGE TEXT                     MCS
000234                              136+UCMROUTC DS    1F ROUTE CODES                      MCS
000238                              137+UCMDESCD DS    1F DESCRIPTOR CODES                 MCS
00023C                              138+UCMXTSAV DS    18F USER EXIT SAVE AREA          MCS
                                    139+*                            INDIVIDUAL ENTRY MAP.
                                    140+*                            EACH ENTRY DEFINES CONSOLE UNIT SUPPORT.

000284                              142+UCMLIST  DS    0F ENTRY ORIGIN.
000284                              143+UCMECB   DS    F I/O COMPLETION ECB.
000288                              144+UCMSBR   DS    F PROCESSOR PTR.
00028C                              145+UCMDCB   DS    F CONTROL BLOCKS MODULE PTR.
000290                              146+UCMUCB   DS    F UCB PTR/UCB NAME.
000294                              147+UCMNAME  DS    CL8 PROCESSING MODULE NAME.

00029C                              149+UCMSTS   DS    CL1 STATUS FLAGS.            TEST ORDER.
000080                              150+UCMAF    EQU   128 ATTENTION FLAG.     3
000040                              151+UCMPF    EQU   64 OUTPUT(WTO) FLAG.   4
000020                              152+UCMBF    EQU   32 BUSY FLAG.          2
                                                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000010                              153+UCMCF    EQU   16 CLOSE FLAG.         1
000008                              154+UCMTA    EQU   8 OPEN
000004                              155+UCMTB    EQU   4 DEQ APPROPRIATE OUTPUT Q ENTRIES
000002                              156+UCMTD    EQU   2 I/O RETRY FLAG              @SA76542
000001                              157+UCMTC    EQU   1 WORKING ON INLINE MLWTO             S21002

00029D                              159+UCMATR   DS    CL1 ATTRIBUTE FLAGS.
000080                              160+UCMOF    EQU   128 WTO SUPPORT.
000040                              161+UCMIF    EQU   64 ATTENTION SUPPORT.
000020                              162+UCMXF    EQU   32 EXTERNAL SWITCH SENSITIVE.
000010                              163+UCMUF    EQU   16 USE FLAG (0-INACTIVE,1-ACTIVE).
000008                              164+UCMLF    EQU   8 LOAD FLAG.
000004                              165+UCMAT04  EQU   X'04' DEVICE STATUS TO CHANGE                  MCS

00029E                              167+UCMID    EQU   * MCS
00029E                              168+UCMXA    DS    H
0002A0                              169+UCMXB    DS    F
0002A4 0000                         170+UCMRTCD  DC    X'0000'
0002A6 0000                         171+         DC    X'0000'
0002A8 00000000                     172+UCMOUTQ  DC    F'0' PTR OUTPUT QUEUE
0002AC 00                           173+UCMAUTH  DC    X'00'
                                    174+*        COMMAND GROUP 0 IS ALWAYS PRESENT FOR A CONSOLE         S21003
000080                              175+UCMAUTH1 EQU   X'80' COMMAND GROUP 1 (SYS)               S21003
000040                              176+UCMAUTH2 EQU   X'40' COMMAND GROUP 2 (I/O)               S21003
000020                              177+UCMAUTH3 EQU   X'20' COMMAND GROUP 3 (CONS)              S21003
0002AD 00                           178+         DC    X'00'
0002AE                              179+UCMDISP  DS    CL2 DISPOSITION FLAGS
000080                              180+UCMDISPA EQU   128 MASTER CONSOLE               MCS
000040                              181+UCMDISPB EQU   64 HARD COPY DEVICE/CONSOLE     MCS
000020                              182+UCMDISPC EQU   32 GRAPHICS                     MCS
000010                              183+UCMDISPD EQU   16 OUTPUT ONLY                  MCS
000008                              184+UCMDISPE EQU   8 CONSOLE HAS FULL I/O CAPABILITY     S21003
000004                              185+UCMDISPF EQU   4 CONSOLE IS MESSAGE STREAM ONLY      S21003
000002                              186+UCMDISPG EQU   2 CONSOLE IS STATUS DISPLAY ONLY      S21003
000001                              187+UCMDISPH EQU   1 MCS
0002B0 00000000                     188+UCMALTEN DC    F'0' MCS
0002B4 00000000                     189+UCMOAOEN DC    F'0' PTR OUTPUT/ALTERNATE
                                    190+*                                      OUTPUT UCM ENTRY
0002B8 00000000                     191+UCMWLAST DC    F'0' PTR LAST WQE IN INPUT Q
0002BC 00000000                     192+UCMCOMPC DC    F'0' PTR TO OTHER HALF OF
                                    193+*                                      COMPOSITE CONSOLE
0002C0                              194+UCMMSG   DS    CL2 MESSAGE TYPE FLAGS
000080                              195+UCMMSGA  EQU   128 DISPLAY JOBNAMES REQUESTED   MCS
000040                              196+UCMMSGB  EQU   64 DISPLAY STATUS REQUESTED     MCS
000020                              197+UCMMSGC  EQU   32 MONITOR ACTIVE                      S21002
000010                              198+UCMMSGD  EQU   16 RESERVED                     MCS
000008                              199+UCMMSGE  EQU   8 SHOW REQUESTED             19006
000004                              200+UCMMSGF  EQU   4 MONITOR SESS               20034
000002                              201+UCMMSGG  EQU   2 RESERVED                     MCS
000001                              202+UCMMSGH  EQU   1 RESERVED                     MCS
0002C2 00                           203+UCMXOR   DC    X'00' USED TO XOR CHANGE BYTE-UCB  MCS
0002C3                              204+UCMDEVC  DS    CL1 DEVICE CONTROL FLAGS
000080                              205+UCMDEVA  EQU   128 FULL SCREEN ON GRAPHIC CONS  MCS
000040                              206+UCMDEVB  EQU   64 PREPARE COMMAND ISSUED       MCS
000020                              207+UCMDEVCC EQU   32 TESTED FOR CONSOLE SWITCH
                                                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000010                              208+UCMDEVD  EQU   16 DOM ISSUED
000008                              209+UCMDEVE  EQU   8 I/O COMPLETE
000004                              210+UCMDEVF  EQU   4 MODIFIED DCM FOR DOM       20772
000002                              211+UCMDEVG  EQU   2 HALT I/O ON 2740           20772
000001                              212+UCMDEVH  EQU   1 RESERVED                     MCS
0002C4 00000000                     213+UCMMLAST DC    F'0' PTR TO LAST MINOR WQE HANDLED      S21002
0002C8                              214+UCMRCT   EQU   * TO LOAD RCT ADDRESS                S21002
0002C8 00                           215+UCMSDS5  DC    X'00' STATUS DISPLAY CONTROL BYTE 5      S21002
000080                              216+UCMSDS5A EQU   X'80' MLWTO LINE NEEDED TO KEEP WRITING   S21002
000040                              217+UCMSDS5B EQU   X'40' INLINE OUTPUT PENDING                   S21002
000020                              218+UCMSDS5C EQU   X'20' OUT-OF-LINE OUTPUT PENDING              S21002
000010                              219+UCMSDS5D EQU   X'10' TRANSIENT DCM BLOCKED                   S21003
000008                              220+UCMSDS5E EQU   X'08' TRANSIENT DCM LOCKED                    S21003
000004                              221+UCMSDS5F EQU   X'04' FOR CRT, UCMMLAST VALID       S21002
000002                              222+UCMSDS5G EQU   X'02' I/O HARDWARE IN OUTPUT-ONLY STATUS    S21002
000001                              223+UCMSDS5H EQU   X'01' S21002
0002C9 000000                       224+         DC    AL3(0) POINTER TO ROUTING CONTROL TABLE   S21002

000048                              226+UCMESIZE EQU   *-UCMLIST SIZE OF ENTRY IN BYTES.
                                                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000284                              228+         ORG   UCMLIST

000284                              230+UCMMCUCM DS    0F
000284                              231+UCMALT1  DS    0F
                                    232+*                       ENTRY.
000284 0000000000000000             233+         DC    3F'0' MCS
000290 F0F1F0                       234+         DC    CL3'010' UNIT NAME.
000293 40                           235+         DC    CL1' '
000294 C9C7C3F5F1F0F7C2             236+         DC    CL8'IGC5107B' PROCESSOR NAME.
00029C 00                           237+         DC    XL1'0'
00029D F0                           238+         DC    AL1(240) ATTRIBUTES
00029E 01                           239+         DC    AL1(1) UNIQUE ENTRY ID                19029
00029F 00                           240+         DC    X'00' 19029
0002A0 00000000                     241+         DC    V(IEECVH1) DCM FOR ANR19                S21003
0002A4 FFFF                         242+         DC    X'FFFF'
0002A6 0000                         243+         DC    X'0000'
0002A8 00000000                     244+         DC    F'0' PTR OUTPUT Q                 MCS
0002AC E0                           245+         DC    X'E0'
0002AD 00                           246+         DC    X'00'
0002AE A8                           247+         DC    B'10101000'
0002AF 00                           248+         DC    X'00'
0002B0 000002CC                     249+         DC    A(UCMALT2) PTR TO ALT                           M2956
0002B4 00000000                     250+         DC    F'0' ALT NOT A COMPOSITE                  M2956
0002B8 00000000                     251+         DC    F'0' PTR LAST WQE
0002BC 00000000                     252+         DC    A(0)
0002C0 00000000                     253+         DC    F'0' MESSAGE,XOR,& DEVICE FIELDS
0002C4 00000000                     254+         DC    F'0' PTR TO LAST MINOR HANDLED           S21002
0002C8 00                           255+         DC    X'00' SDS FLAGS                           S21002
0002C9 000000                       256+         DC    AL3(0) PTR TO ROUTING CONTROL TABLE        S21002

0002CC                              258+UCMALT2  DS    0F
                                    259+*                       ENTRY.
0002CC 0000000000000000             260+         DC    3F'0' MCS
0002D8 F0F2C6                       261+         DC    CL3'02F' UNIT NAME.
0002DB 40                           262+         DC    CL1' '
0002DC C9C7C3F0F1F0F7C2             263+         DC    CL8'IGC0107B' PROCESSOR NAME.
0002E4 00                           264+         DC    XL1'0'
0002E5 E0                           265+         DC    AL1(224) ATTRIBUTES
0002E6 02                           266+         DC    AL1(2) UNIQUE ENTRY ID
0002E7 0000000000                   267+         DC    XL5'0' MCS
0002EC FFFF                         268+         DC    X'FFFF'
0002EE 0000                         269+         DC    X'0000'
0002F0 00000000                     270+         DC    F'0' PTR OUTPUT Q                 MCS
0002F4 E0                           271+         DC    X'E0'
0002F5 00                           272+         DC    X'00'
0002F6 08                           273+         DC    B'00001000'
0002F7 00                           274+         DC    X'00'
0002F8 00000284                     275+         DC    A(UCMALT1) PTR TO ALT                           M2956
0002FC 00000000                     276+         DC    F'0' ALT NOT A COMPOSITE                  M2956
000300 00000000                     277+         DC    F'0' PTR LAST WQE
000304 00000000                     278+         DC    A(0)
000308 00000000                     279+         DC    F'0' MESSAGE,XOR,& DEVICE FIELDS
00030C 00000000                     280+         DC    F'0' PTR TO LAST MINOR HANDLED           S21002
000310 00                           281+         DC    X'00' SDS FLAGS                           S21002
000311 000000                       282+         DC    AL3(0) PTR TO ROUTING CONTROL TABLE        S21002
                                                                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    284+*                       ENTRY.
000314 0000000000000000             285+         DC    3F'0' MCS
000320 F0F1F1                       286+         DC    CL3'011' UNIT NAME.
000323 40                           287+         DC    CL1' '
000324 C9C7C3F5F1F0F7C2             288+         DC    CL8'IGC5107B' PROCESSOR NAME.
00032C 00                           289+         DC    XL1'0'
00032D E0                           290+         DC    AL1(224) ATTRIBUTES
00032E 03                           291+         DC    AL1(3) UNIQUE ENTRY ID                19029
00032F 00                           292+         DC    X'00' 19029
000330 00000000                     293+         DC    V(IEECVH2) DCM FOR ANR19                S21003
000334 FFFF                         294+         DC    X'FFFF'
000336 0000                         295+         DC    X'0000'
000338 00000000                     296+         DC    F'0' PTR OUTPUT Q                 MCS
00033C E0                           297+         DC    X'E0'
00033D 00                           298+         DC    X'00'
00033E 28                           299+         DC    B'00101000'
00033F 00                           300+         DC    X'00'
000340 00000284                     301+         DC    A(UCMALT1) PTR TO ALT                           M2956
000344 00000000                     302+         DC    F'0' ALT NOT A COMPOSITE                  M2956
000348 00000000                     303+         DC    F'0' PTR LAST WQE
00034C 00000000                     304+         DC    A(0)
000350 00000000                     305+         DC    F'0' MESSAGE,XOR,& DEVICE FIELDS
000354 00000000                     306+         DC    F'0' PTR TO LAST MINOR HANDLED           S21002
000358 00                           307+         DC    X'00' SDS FLAGS                           S21002
000359 000000                       308+         DC    AL3(0) PTR TO ROUTING CONTROL TABLE        S21002

00035C                              310+UCMALT4  DS    0F
                                    311+*                       ENTRY.
00035C 0000000000000000             312+         DC    3F'0' MCS
000368 F0F0F9                       313+         DC    CL3'009' UNIT NAME.
00036B 40                           314+         DC    CL1' '
00036C C9C7C3F0F1F0F7C2             315+         DC    CL8'IGC0107B' PROCESSOR NAME.
000374 00                           316+         DC    XL1'0'
000375 E0                           317+         DC    AL1(224) ATTRIBUTES
000376 04                           318+         DC    AL1(4) UNIQUE ENTRY ID
000377 0000000000                   319+         DC    XL5'0' MCS
00037C FFFF                         320+         DC    X'FFFF'
00037E 0000                         321+         DC    X'0000'
000380 00000000                     322+         DC    F'0' PTR OUTPUT Q                 MCS
000384 E0                           323+         DC    X'E0'
000385 00                           324+         DC    X'00'
000386 08                           325+         DC    B'00001000'
000387 00                           326+         DC    X'00'
000388 000003A4                     327+         DC    A(UCMALT5) PTR TO ALT                           M2956
00038C 00000000                     328+         DC    F'0' ALT NOT A COMPOSITE                  M2956
000390 00000000                     329+         DC    F'0' PTR LAST WQE
000394 00000000                     330+         DC    A(0)
000398 00000000                     331+         DC    F'0' MESSAGE,XOR,& DEVICE FIELDS
00039C 00000000                     332+         DC    F'0' PTR TO LAST MINOR HANDLED           S21002
0003A0 00                           333+         DC    X'00' SDS FLAGS                           S21002
0003A1 000000                       334+         DC    AL3(0) PTR TO ROUTING CONTROL TABLE        S21002

0003A4                              336+UCMALT5  DS    0F
                                    337+*                       ENTRY.
0003A4 0000000000000000             338+         DC    3F'0' MCS
                                                                                                               PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0003B0 F0F1C6                       339+         DC    CL3'01F' UNIT NAME.
0003B3 40                           340+         DC    CL1' '
0003B4 C9C7C3F0F1F0F7C2             341+         DC    CL8'IGC0107B' PROCESSOR NAME.
0003BC 00                           342+         DC    XL1'0'
0003BD E0                           343+         DC    AL1(224) ATTRIBUTES
0003BE 05                           344+         DC    AL1(5) UNIQUE ENTRY ID
0003BF 0000000000                   345+         DC    XL5'0' MCS
0003C4 FFFF                         346+         DC    X'FFFF'
0003C6 0000                         347+         DC    X'0000'
0003C8 00000000                     348+         DC    F'0' PTR OUTPUT Q                 MCS
0003CC E0                           349+         DC    X'E0'
0003CD 00                           350+         DC    X'00'
0003CE 08                           351+         DC    B'00001000'
0003CF 00                           352+         DC    X'00'
0003D0 0000035C                     353+         DC    A(UCMALT4) PTR TO ALT                           M2956
0003D4 00000000                     354+         DC    F'0' ALT NOT A COMPOSITE                  M2956
0003D8 00000000                     355+         DC    F'0' PTR LAST WQE
0003DC 00000000                     356+         DC    A(0)
0003E0 00000000                     357+         DC    F'0' MESSAGE,XOR,& DEVICE FIELDS
0003E4 00000000                     358+         DC    F'0' PTR TO LAST MINOR HANDLED           S21002
0003E8 00                           359+         DC    X'00' SDS FLAGS                           S21002
0003E9 000000                       360+         DC    AL3(0) PTR TO ROUTING CONTROL TABLE        S21002

0003EC                              362+UCMHARD  DS    0F
                                    363+*                       ENTRY.
0003EC 0000000000000000             364+         DC    3F'0' MCS
0003F8 F3F0C5                       365+         DC    CL3'30E' UNIT NAME.
0003FB 40                           366+         DC    CL1' '
0003FC C9C7C3F2F1F0F7C2             367+         DC    CL8'IGC2107B' PROCESSOR NAME.
000404 00                           368+         DC    XL1'0'
000405 A0                           369+         DC    AL1(160) ATTRIBUTES
000406 06                           370+         DC    AL1(6) UNIQUE ENTRY ID
000407 0000000000                   371+         DC    XL5'0' MCS
00040C 0000                         372+         DC    X'0000'
00040E 0000                         373+         DC    X'0000'
000410 00000000                     374+         DC    F'0' PTR OUTPUT Q                 MCS
000414 00                           375+         DC    X'00'
000415 00                           376+         DC    X'00'
000416 54                           377+         DC    B'01010100'
000417 00                           378+         DC    X'00'
000418 00000284                     379+         DC    A(UCMALT1) PTR TO ALT                           M2956
00041C 00000000                     380+         DC    F'0' ALT NOT A COMPOSITE                  M2956
000420 00000000                     381+         DC    F'0' PTR LAST WQE
000424 00000000                     382+         DC    A(0)
000428 00000000                     383+         DC    F'0' MESSAGE,XOR,& DEVICE FIELDS
00042C 00000000                     384+         DC    F'0' PTR TO LAST MINOR HANDLED           S21002
000430 00                           385+         DC    X'00' SDS FLAGS                           S21002
000431 000000                       386+         DC    AL3(0) PTR TO ROUTING CONTROL TABLE        S21002

0003EC                              388+UCMEND   EQU   *-UCMESIZE
                                    389          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000008
   01       01      0C     000064
   01       01      08     000069
   01       01      0C     000070
   01       01      0C     0000A8
   01       01      0C     0000AC
   01       01      0C     0000C4
   01       01      0C     0000F8
   01       01      0C     000100
   01       01      0C     000188
   01       01      0C     00018C
   01       01      0C     000190
   01       01      0C     000194
   01       01      0C     000198
   01       01      0C     00019C
   01       01      0C     0001A0
   01       01      0C     0001A4
   01       01      0C     0001A8
   01       01      0C     0001AC
   01       01      08     0001B1
   01       01      0C     0002B0
   01       01      0C     0002F8
   01       01      0C     000340
   01       01      0C     000388
   01       01      0C     0003D0
   01       01      0C     000418
   01       02      1C     000004
   01       03      1C     000058
   01       04      1C     000088
   01       05      1C     000090
   01       06      1C     0000F0
   01       07      1C     0002A0
   01       08      1C     000330
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEECUCB  00001 0000B0 00067   0066
IEECVUCM 00001 0000B0 00069   0068
IEEUCMC  00001 000000 00002
UCMAECB  00004 0000B4 00072   0120
UCMAF    00001 000080 00150
UCMALTEN 00004 0002B0 00188
UCMALT1  00004 000284 00231   0275  0301  0379
UCMALT2  00004 0002CC 00258   0249
UCMALT4  00004 00035C 00310   0353
UCMALT5  00004 0003A4 00336   0327
UCMAMFA  00001 000008 00098
UCMATR   00001 00029D 00159
UCMAT04  00001 000004 00165
UCMAUTH  00001 0002AC 00173
UCMAUTH1 00001 000080 00175
UCMAUTH2 00001 000040 00176
UCMAUTH3 00001 000020 00177
UCMBF    00001 000020 00152
UCMCF    00001 000010 00153
UCMCMID  00004 000060 00034
UCMCOMPC 00004 0002BC 00192
UCMCORE  00001 0000F5 00102
UCMDCB   00004 00028C 00145
UCMDECB  00001 0000BC 00074   0122
UCMDESCD 00004 000238 00137
UCMDEVA  00001 000080 00205
UCMDEVB  00001 000040 00206
UCMDEVC  00001 0002C3 00204
UCMDEVCC 00001 000020 00207
UCMDEVD  00001 000010 00208
UCMDEVE  00001 000008 00209
UCMDEVF  00001 000004 00210
UCMDEVG  00001 000002 00211
UCMDEVH  00001 000001 00212
UCMDISP  00002 0002AE 00179
UCMDISPA 00001 000080 00180
UCMDISPB 00001 000040 00181
UCMDISPC 00001 000020 00182
UCMDISPD 00001 000010 00183
UCMDISPE 00001 000008 00184
UCMDISPF 00001 000004 00185
UCMDISPG 00001 000002 00186
UCMDISPH 00001 000001 00187
UCMDOME  00004 000054 00014
UCMDOMRT 00004 000090 00045
UCMDTINT 00004 0000A0 00049
UCMECB   00004 000284 00143
UCMEIL   00001 000180 00116   0079  0124
UCMEND   00001 0003EC 00388   0110
UCMESIZE 00001 000048 00226   0109  0388
UCMEXIT  00004 0001B4 00134   0037
UCMFIX   00001 000001 00101
UCMFREE  00001 000080 00105
UCMHARD  00004 0003EC 00362   0035
UCMHCUCM 00004 000064 00035
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCMHRDRT 00002 00006C 00038
UCMID    00001 00029E 00167
UCMIF    00001 000040 00161
UCMINCR  00001 0000F7 00104
UCMLECB  00004 0000BC 00075
UCMLF    00001 000008 00164
UCMLIST  00004 000284 00142   0108  0125  0126  0127  0128  0129  0131  0226  0228
UCMLOGAD 00004 00009C 00048
UCMLSTP  00004 0000C4 00079
UCMMCENT 00004 000008 00012
UCMMCS   00001 000002 00100
UCMMCUCM 00004 000284 00230   0012
UCMMLAST 00004 0002C4 00213
UCMMODE  00001 0000F4 00095
UCMMODEL 00001 0000F6 00103
UCMMSG   00002 0002C0 00194
UCMMSGA  00001 000080 00195
UCMMSGB  00001 000040 00196
UCMMSGC  00001 000020 00197
UCMMSGD  00001 000010 00198
UCMMSGE  00001 000008 00199
UCMMSGF  00001 000004 00200
UCMMSGG  00001 000002 00201
UCMMSGH  00001 000001 00202
UCMMSTXT 00001 0001B4 00135
UCMNAME  00008 000294 00147
UCMNPECB 00004 000098 00047
UCMOAOEN 00004 0002B4 00189
UCMOECB  00004 0000B8 00073   0121
UCMOF    00001 000080 00160
UCMOGCE  00001 000004 00099
UCMOUTQ  00004 0002A8 00172
UCMOWTOR 00002 00005E 00033
UCMPF    00001 000040 00151
UCMPRFX  00008 000008 00011   0064
UCMPXA   00004 0000F0 00093
UCMPXB   00001 0000F4 00094
UCMQRTN  00004 000088 00043
UCMRCT   00001 0002C8 00214
UCMRECB  00004 0000C0 00076   0123
UCMROUTC 00004 000234 00136
UCMRPYI  00004 0000D0 00084
UCMRPYL  00001 000181 00124
UCMRPYQ  00004 0000CC 00083
UCMRQECB 00004 0000E0 00088
UCMRQLM  00001 0000DD 00086
UCMRQNR  00002 0000E8 00090
UCMRTCD  00002 0002A4 00170
UCMRUTCK 00004 00008C 00044
UCMR9SV  00004 00017C 00113
UCMSAVE0 00004 00000C 00013
UCMSAVE3 00004 000104 00111
UCMSAVE4 00004 00013C 00112
UCMSBR   00004 000288 00144
UCMSDS1  00001 0000A4 00052
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCMSDS1A 00001 000080 00053
UCMSDS1B 00001 000040 00054
UCMSDS1C 00001 000020 00055
UCMSDS1D 00001 000010 00056
UCMSDS1E 00001 000008 00057
UCMSDS1F 00001 000004 00058
UCMSDS1G 00001 000002 00059
UCMSDS1H 00001 000001 00060
UCMSDS2  00003 0000A5 00061
UCMSDS5  00001 0002C8 00215
UCMSDS5A 00001 000080 00216
UCMSDS5B 00001 000040 00217
UCMSDS5C 00001 000020 00218
UCMSDS5D 00001 000010 00219
UCMSDS5E 00001 000008 00220
UCMSDS5F 00001 000004 00221
UCMSDS5G 00001 000002 00222
UCMSDS5H 00001 000001 00223
UCMSFLGS 00001 00005C 00016
UCMSTS   00001 00029C 00149
UCMSYSA  00001 000080 00018
UCMSYSB  00001 000040 00019
UCMSYSC  00001 000020 00020
UCMSYSD  00001 000010 00021
UCMSYSE  00001 000008 00022
UCMSYSF  00001 000004 00023
UCMSYSG  00001 000002 00024
UCMSYSH  00001 000001 00025
UCMSYSI  00001 000080 00026
UCMSYSJ  00001 000040 00027
UCMSYSK  00001 000020 00028
UCMSYSL  00001 000010 00029
UCMSYSM  00001 000008 00030
UCMSYSN  00001 000004 00031
UCMSYSO  00001 000002 00032
UCMTA    00001 000008 00154
UCMTB    00001 000004 00155
UCMTC    00001 000001 00157
UCMTD    00001 000002 00156
UCMTPPTR 00004 000094 00046
UCMUCB   00004 000290 00146
UCMUEXIT 00003 000069 00037
UCMUF    00001 000010 00163
UCMVEA   00004 0000F8 00108
UCMVEL   00004 000100 00110
UCMVEZ   00004 0000FC 00109
UCMWLAST 00004 0002B8 00191
UCMWQECB 00004 0000E4 00089
UCMWQEND 00004 0000EC 00092
UCMWQLM  00002 0000DE 00087
UCMWQNR  00002 0000EA 00091
UCMWTOQ  00004 0000C8 00082
UCMWTOX  00004 000058 00015
UCMXA    00002 00029E 00168
UCMXB    00004 0002A0 00169
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCMXCT   00001 000068 00036
UCMXECB  00004 0000B0 00071   0119
UCMXF    00001 000020 00162
UCMXOR   00001 0002C2 00203
UCMXSA   00004 000070 00040
UCMXTSAV 00004 00023C 00138
UCM2EXT  00008 000000 00007   0063
UCM2PST  00004 000004 00010
UCM2RID  00002 000002 00009
UCM2WID  00002 000000 00008
UCM3WD   00004 000078 00042   0040



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =    69      SOURCE RECORDS (SYSLIB) =   827
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  688 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM12.R0000113      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM12.S0000114      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM12.S0000114      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG13    / START 78240.1945
IEF374I STEP /SG13    / STOP  78240.1945 CPU   0MIN 00.36SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:08.63   ALLOC START    19:45:08.64   MAIN REGION ----- 300K                          *
*   STEP NAME SG13       STEP END TIME  19:45:09.27   PGM START TIME 19:45:08.73   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.64   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.36   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 21       0250 ------------ 0       0250 ------------ 0       0151 ----------- 40       0151 ----------- 33    *
*   0151 ---------- 121       0353 ----------- 87       0151 ----------- 32       0130 ----------- 71                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM12  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:09.29   ALLOC START    19:45:09.30   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:09.33   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM12 / START 78240.1945
IEF376I  JOB /R21AM12 / STOP  78240.1945 CPU   0MIN 00.36SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM12    JOB READ TIME 19:44:48.99   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.36   *
*   JOB CLASS A          JOB INIT TIME 19:45:08.63   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.71   *
*   ACCOUNT              JOB END TIME  19:45:09.34   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       1     333333333                            A
            RRRRRRRRR  222222222      11        AAA     MM     MM      11     333333333                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     111     33    33                           AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM      11          33                           AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      11         3333                         AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      11        333333                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM      11            33                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM      11     33     33                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM    111111   333333333                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    111111    3333333                         AA     AA

***********A  START   R21AM13    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM13    START  A***********
***********A  START   R21AM13    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM13    START  A***********
***********A  START   R21AM13    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM13    START  A***********
***********A  START   R21AM13    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM13    START  A***********
***********A  START   R21AM13    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM13    START  A***********


//R21AM13 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG14 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEACVTPC)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM13  SG14
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


TPC       SD  01 000000 000154
IEATPC    LD     000000         01
IEATSELM  LD     000074         01
IEACLOCK  LD     000090         01
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  IEACVTPC   I,02,46,C,1,1,1
                                      3+*******************************************************************
                                      4+*  THIS MACRO DEFINES RESIDENT CORE FOR ALL DYNAMIC INFORMATION    *
                                      5+*  PRETAINING TO THE TIMER ROUTINES.  THE SIGNIFICANCE OF THE      *
                                      6+*  INPUT PARAMETERS IS AS FOLLOWS-   &T- TIME(T) OR INTERVAL(I)    *
                                      7+*  TIMER.  (I) IS THE DEFAULT VALUE.   &SHELM,&MIDELM-  VALUES     *
                                      8+*  FOR THE 6 HR PSEUDO CLOCK AND MIDNIGHT SUPVR ELEMENTS.  THE     *
                                      9+*  VALUES DIFFER FOR MVT AND MFT II,PCP.  MFT II,PCP IS THE DE-    *
                                     10+*  FAULT VALUE  & SECT-  DUMMY OR CONTROL SECTION.  THE DUMMY      *
                                     11+*  SECTION IS THE DEFAULT VALUE.  THUS THE DSECT CALL IS SIM-      *
                                     12+*  PLY IEACVTPC.                                                   *
                                     13+*  &TOD SET TO 1 INDICATES A TIME OF DAY EXPANSION IS REQUIRED    20071
                                     14+*******************************************************************
                                     15+* A24887,M0756
000000                               16+TPC      CSECT
                                     17+         ENTRY IEATPC
                                     18+         ENTRY IEATSELM 20021
000000                               19+         DS    0F REFR
000000                               20+IEATPC   EQU   *
000000 31704000                      21+SHPC     DC    X'31704000' .6 HR PSEUDO CLOCK            A24887
000000                               22+TSS6     EQU   SHPC REFR
000004 00000000                      23+T4PC     DC    F'0' .24HR PSEUDO CLOCK                    REFR
000008                               24+TQPTROF4 EQU   * REFR
000008 00000000                      25+LTPC     DC    F'0' .LOCAL TIME PSEUDO CLOCK              REFR
00000C 00000018                      26+TQPTR    DC    A(SHELM) .RUDIMENTARY TIMER QUEUE              REFR
000010 0000000C                      27+ATQPTR   DC    A(TQPTR) REFR
000014 00000000                      28+         DC    F'0' REFR
000018 02000000                      29+SHELM    DC    X'02000000' .6HR SUPERVISOR ELM                   REFR
00001C 00000028                      30+         DC    A(MIDELM) REFR
000020 00000008                      31+         DC    A(TQPTR-4) REFR
000024 31704000                      32+         DC    X'31704000' A24887
000028 46000000                      33+MIDELM   DC    X'46000000' .MIDNIGHT SUPR ELM
000029                               34+         ORG   *-3 20071
000029 000064                        35+         DC    AL3(EXTEN-32) 20071
00002C 00000030                      36+         DC    A(ENDELM-8) REFR
000030 00000018                      37+         DC    A(SHELM) REFR
000034 C5C10000                      38+         DC    X'C5C10000' A24887
000038 00000028                      39+ENDELM   DC    A(MIDELM) .ENDELM                               REFR
00003C FFFFFFFF                      40+         DC    F'-1' REFR
000040                               41+PTIMER   DS    F
000044                               42+PTIMER2  DS    F
000048                               43+SAVER10  DS    F
00004C                               44+TTIMSAV  DS    F
000050 00000008                      45+TOPQ     DC    A(TQPTR-4)
000054 00000000
000058 0000000000000000              46+TSDBLDAT DC    D'0' .WORKSPACE                            REFR
000060 82000000                      47+TENMELM  DC    X'82000000' .10 MIN. SUPV. ELEMENT              M3039
000064 00000000                      48+         DC    A(0) M3039
000068 00000000                      49+         DC    A(0) M3039
00006C 015F9000                      50+         DC    X'015F9000' A24887
000070                               51+RTNSAVE  DS    F 20021
000074 82000000                      52+IEATSELM DC    X'82000000' TQE FOR TIME-SHARING DRIVER         20021
000078 00000000                      53+         DC    A(0) 20021
00007C 00000000                      54+         DC    A(0) 20021
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000080 00000000                      55+         DC    X'00000000' 20021
000084                               56+EXTEN    EQU   * 20071
000084 00000000                      57+MNIGHT   DC    F'0' 20071
000088 00000000                      58+MIDSYNC  DC    F'0' BIT 0 IS SYNC BIT FOR      20071
                                     59+*                                      THE MIDNIGHT TQE           20071
                                     60+         ENTRY IEACLOCK 20071
00008C 00000000
000090 0000000000000000              61+IEACLOCK DC    D'0' AREA USED TO STORE CLOCK   20071
000098                               62+TSLIHSAV DS    16F .REG SAVE AREA FOR TIMER SLIH    A31240
0000D8                               63+TQTDSAV  DS    15F .               REGISTER SAVE AREA        BB   M1701
000114                               64+SAVESIX  DS    F .                 SAVEAREA FOR REG. SIX     BB   M1701
000118 00000000                      65+POSTZERO DC    F'0' .              SAVEAREA FOR REG. ZERO    BB   M1701
000118                               66+POSTSA   EQU   POSTZERO .          SAVEAREA FOR POST R10-MFT  GF A50267
00011C 00000000                      67+POSTTWO  DC    F'0' .              SAVEAREA FOR REG. TWO     BB   M1701
000120 0000000000000000              68+POSTBC   DC    2F'0' .   SAVEAREA FOR REGS. 11,12            BB   M1701
000128 0000000000000000              69+REGSAVE1 DC    3F'0' . SAVE AREA BEFORE GOING TO POST        BB   M1703
000134 0000000000000000              70+REGSAV   DC    4F'0' .   SAVEAREA FOR SMF                    BB   M1703
000144                               71+REGSAVE2 DS    4F . SAVEAREA BEFORE GOING TO TSEVENT         BB   M1703
                                     72  END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     00000C
   01       01      0C     000010
   01       01      0C     00001C
   01       01      0C     000020
   01       01      08     000029
   01       01      0C     00002C
   01       01      0C     000030
   01       01      0C     000038
   01       01      0C     000050
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ATQPTR   00004 000010 00027
ENDELM   00004 000038 00039   0036
EXTEN    00001 000084 00056   0035
IEACLOCK 00008 000090 00061   0060
IEATPC   00001 000000 00020   0017
IEATSELM 00004 000074 00052   0018
LTPC     00004 000008 00025
MIDELM   00004 000028 00033   0030  0039
MIDSYNC  00004 000088 00058
MNIGHT   00004 000084 00057
POSTBC   00004 000120 00068
POSTSA   00004 000118 00066
POSTTWO  00004 00011C 00067
POSTZERO 00004 000118 00065   0066
PTIMER   00004 000040 00041
PTIMER2  00004 000044 00042
REGSAV   00004 000134 00070
REGSAVE1 00004 000128 00069
REGSAVE2 00004 000144 00071
RTNSAVE  00004 000070 00051
SAVER10  00004 000048 00043
SAVESIX  00004 000114 00064
SHELM    00004 000018 00029   0026  0037
SHPC     00004 000000 00021   0022
TENMELM  00004 000060 00047
TOPQ     00004 000050 00045
TPC      00001 000000 00016
TQPTR    00004 00000C 00026   0027  0031  0045
TQPTROF4 00001 000008 00024
TQTDSAV  00004 0000D8 00063
TSDBLDAT 00008 000058 00046
TSLIHSAV 00004 000098 00062
TSS6     00004 000000 00022
TTIMSAV  00004 00004C 00044
T4PC     00004 000004 00023



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =   150
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  137 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM13.R0000115      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM13.S0000116      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM13.S0000116      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG14    / START 78240.1945
IEF374I STEP /SG14    / STOP  78240.1945 CPU   0MIN 00.15SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:09.36   ALLOC START    19:45:09.37   MAIN REGION ----- 300K                          *
*   STEP NAME SG14       STEP END TIME  19:45:09.73   PGM START TIME 19:45:09.45   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.37   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.15   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 5       0250 ------------ 0       0250 ------------ 0       0151 ----------- 13       0151 ----------- 13    *
*   0151 ----------- 12       0159 ----------- 18       0151 ------------ 9       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM13  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:09.76   ALLOC START    19:45:09.77   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:09.80   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM13 / START 78240.1945
IEF376I  JOB /R21AM13 / STOP  78240.1945 CPU   0MIN 00.15SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM13    JOB READ TIME 19:44:49.06   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.15   *
*   JOB CLASS A          JOB INIT TIME 19:45:09.36   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.45   *
*   ACCOUNT              JOB END TIME  19:45:09.81   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       1          44                              A
            RRRRRRRRR  222222222      11        AAA     MM     MM      11         444                             AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     111        4444                            AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM      11       44 44                           AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      11      44  44                          AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      11     44   44                          AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM      11     444444444                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM      11     444444444                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM    111111        44                          AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    111111        44                          AA     AA

***********A  START   R21AM14    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM14    START  A***********
***********A  START   R21AM14    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM14    START  A***********
***********A  START   R21AM14    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM14    START  A***********
***********A  START   R21AM14    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM14    START  A***********
***********A  START   R21AM14    SYS SYSA   WTR 00E   07:47:11 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM14    START  A***********


//R21AM14 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG15 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEECVR1)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM14  SG15
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEECVR1   SD  01 000000 000A98
IEECVSUB  ER  02
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 IEECVR1 CSECT
000000 0000000000000000               3      DC   3D'0'
000018 00000000                       4  DC  V(IEECVSUB)
00001C 00000000                       5  DC  F'0'
                                      6             IEECHCB USE=FC
                                      7+*   DCM FOR 3277 MOD 2
                                      8+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                      9+*                                                                     *
                                     10+*                         WORK AND SAVE AREAS                         *
                                     11+*                                                                     *
                                     12+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000020                               13+DCMSTART DS    0F FULL WORD ALLIGNMENT
000020 0A78                          14+         DC    AL2(DCMEND-DCMSTART) DCM LENGTH
000022 08DA                          15+DCMRELOC DC    AL2(DCMENTRY-DCMSTART) ADCON RELOCATE VALUE




000024 00                            17+DCMFLG1  DC    X'00' DCM AREA INDICATORS


000010                               19+DCMQUE   EQU   X'10' QUEUE THIS DCM FOR WRITE
000002                               20+DCMOUTPT EQU   X'02' DCM UPDATED FOR OUTPUT ONLY
000001                               21+DCMUSED  EQU   X'01' DCM HAS BEEN ASSIGNED




000025 00                            23+DCMATI   DC    X'00' SAVED UCB ATTN INDEX       MH A55058
000026 0000                          24+         DC    FL2'0' RESERVED                   MH A55058


000028 00000852                      26+DCMWTINT DC    A(DCMBLNK1) INIT FOR DCMWTBUF INPUT/OUTPUT
00002C                               27+DCMLNCNT DS    H NUMBER OF LINES TO BLANK   MH A53462
00002E 00                            28+DCMLNNUM DC    X'00' FIRST LINE TO BLANK        MH A53462
00002F 00                            29+         DC    X'00' RESERVED                   MH A53462
000030                               30+         DS    0D BOUNDRY ALIGNMENT          MH A53462
000030 00000000                      31+DCMPACK  DC    F'0' AREA TO PLACE NUMBER FOR PACKING
000034 00000000                      32+DCMCVBIN DC    F'0' AREA FOR CONVERSION TO BINARY


000038 00                            34+DCMTIMES DC    X'00' TIME RTNS INDICATOR BYTE


000080                               36+DCMTIMER EQU   X'80' TIME ELAPSED FOR THIS DISPLAY
000040                               37+DCMOPTTI EQU   X'40' OPTIONS TO TI RTN
000020                               38+DCMGROLL EQU   X'20' DISPLAY READY TO ROLL
000010                               39+DCMOTTMM EQU   X'10' OPTIONS OR TI RTNS TO MSG MODULE
000008                               40+DCMSTTMR EQU   X'08' STIMER SHOULD BE ISSUED
000004                               41+DCMTASYN EQU   X'04' TIMER SET FOR ASYNC ERROR MSG
000002                               42+DCMOCTTI EQU   X'02' OPEN-CLOSE TO TI RTN
000001                               43+DCMRMTTI EQU   X'01' ROLL MODE TO TIMER ROUTINE
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000039 00
00003A 007D                          45+DCMELGN  DC    H'125' ENTRY AREA LAST CHARACTER POINTER


00003C 00000000                      47+DCMBUFAD DC    F'0' POINTER TO BUFFER ADDRESS TABLE
000040 000009F0                      48+DCMDOMPK DC    A(DCMDOM1) ADDRESS OF FIRST DOM NUMBER
000044 00000A4C                      49+DCMAMTAB DC    A(DCMMSG1) ADDRESS OF FIRST SCT ENTRY
000048 00000A7B                      50+DCMADSEC DC    A(DCMSEC1) ADDRESS OF FIRST SSCT ENTRY
00004C 00000A70                      51+DCMADDRL DC    A(DCMMSG19) ADDRESS OF LAST SCT ENTRY
000050 00000216                      52+DCMASCRN DC    A(DCMMFRST) POINTER TO SCREEN IMAGE BUFFER
000054 000007FE                      53+DCMLSCRN DC    A(DCMLN18) POINTER TO LAST BUFFER LINE
000058 00000852                      54+DCMWTBUF DC    A(DCMBLNK1) SCREEN LENGTH POINTER
00005C 000008A6                      55+DCMAINS  DC    A(DCMINSTR) POINTER TO INSTRUCTION LINE
000060 000008FA                      56+DCMAENTR DC    A(DCMENTRY) POINTER TO ENTRY AREA
000064 000009A2                      57+DCMAWARN DC    A(DCMWARN) POINTER TO WARNING LINE
000068 00000178                      58+DCMADCHP DC    A(DCMCHPGM) ADDRESS OF CHANNEL PROGRAM AREA
00006C 0000084C                      59+DCMPFKLN DC    A(DCMPFKAR) POINTER TO PFK LINE
000070 00000000                      60+DCMCXSVE DC    F'0' CXSA SAVE AREA
000074 00000000                      61+DCMADOPN DC    F'0' ADDRESS OF COMMAND OPERAND
000078 0000000000000000              62+DCMDSAV  DC    5F'0' SAVE AND WORK AREA


                                     64+*           INPUT BUFFER FOR ISSUING SVC 34 AND SVC 35                *
                                     65+*           FIELDS DCMWQEXP THROUGH DCMINPUT MUST REMAIN IN ORDER     *
00008C                               66+DCMWQEXP DS    0F ENSURE FULL WORD BOUNDARY
00008C 0000                          67+DCMINLGN DC    H'0' FIELD FOR INPUT LENGTH
00008E 0000                          68+DCMMCSFL DC    H'0' MCS FLAGS FIELD
000090 0000000000000000              69+DCMINPUT DC    32F'0' INPUT MESSAGE TEXT


000110 4040404040404040              71+DCMRQDEL DC    8X'40' BUFFER FOR PENDING DELETE REQUESTS


000118 004E                          73+DCMLGNTH DC    H'78' LENGTH OF ANR-19 DCM LINE
00011A 0000                          74+DCMBAINC DC    H'0' ADDRESS TO INSERT CURSOR
00011C 0000                          75+DCMIRCTR DC    H'0' INTERVENTION REQ'D MSG COUNTER
00011E 0000                          76+DCMBADLN DC    H'0' BUFFER ADDR TO BEGIN MSG WRITE
000120 0000                          77+DCMBYTCT DC    H'0' NUMBER OF BYTES TO WRITE
000122 0000                          78+DCMADNUM DC    H'0' NEXT LINE NUMBER
000124 004B                          79+DCMAXLGN DC    H'75' MAXIMUM LINE LENGTH ON SCREEN
000126 0013                          80+DCMMSGAL DC    H'19' NUMBER OF LINES IN MESSAGE AREA
000128 0000                          81+DCMRMINC DC    H'0' 3277 INCREMENT INTO RMI
00012A 0002                          82+DCMSCTCN DC    H'2' LENGTH OF ONE SCT ENTRY
00012C 0054                          83+DCMCORLN DC    H'84' LENGTH OF DCM LINE IN CORE
00012E 0000                          84+         DC    H'0' FORMER DCMTMCTR
000130 FF                            85+DCMPFKNM DC    X'FF' NUMBER OF KEY BEING PROCESSED
000131 FF                            86+DCMPFKKN DC    X'FF' LIST KEY NUMBER


                                     88+*        THIS LINE DELETED BY -------------------------------- @TMVT803
000132 D540                          89+DCMDEL   DC    C'N ' DEL VALUE                   @TMVT803
000134 D5                            90+DCMCON   DC    C'N' CON VALUE                   @TMVT803
000135 13                            91+DCMSEG   DC    FL1'19' SEG VALUE
000136 08                            92+DCMDL    DC    FL1'8' DISPLAY AREA OPTION
000137 01                            93+DCMRNUM  DC    FL1'1' ROLL NUMBER INITIAL VALUE   @TMVT803
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000138 0001                          94+DCMRTME  DC    H'1' ROLL TIME VALUE             @TMVT803


                                     96+*  DEFAULT VALUES FOR OPTIONS
00013A 13                            97+DCMSEGDF DC    FL1'19' SEG DEFAULT
00013B 01                            98+DCMRNUMD DC    FL1'1' RNUM DEFAULT                @TMVT803
00013C 0001                          99+DCMRTMED DC    H'1' RTME DEFAULT                @TMVT803


00013E 7D                           101+DCMASKEN DC    X'7D' 3277 ENTER MASK
00013F 6E                           102+DCMASKCN DC    X'6E' 3277 CANCEL MASK
000140 00                           103+DCMASKCR DC    X'00' NOT USED FOR 3277
000141 7E                           104+DCMASKLP DC    X'7E' 3277 LIGHT PEN MASK
000142 70                           105+DCMASKPF DC    X'70' 3277 PFK MASK
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    107+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                    108+*                                                                     *
                                    109+*                         COMMUNICATIONS AREA                         *
                                    110+*                                                                     *
                                    111+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *




000143 60                           113+DCMOPTST DC    X'60' SCREEN CONTROL OPTIONS      @TMVT803


000080                              115+DCMOPTVR EQU   X'80' DELETE VERIFICATION  CON=(Y=1,N=0)
000040                              116+DCMOPTAD EQU   X'40' AUTOMATIC DELETION   DEL=(Y=1,N=0)
000020                              117+DCMOPTSG EQU   X'20' DEFAULT SEGMENT SPECIFIED  SEG=(0=0)
000010                              118+DCMOPRLL EQU   X'10' ROLL MODE  (Y=1,N=0)




000144 40                           120+DCMCS    DC    X'40' OPEN/CLOSE REQUEST


000080                              122+DCMCSC   EQU   X'80' CLOSE REQUEST
000040                              123+DCMCSO   EQU   X'40' OPEN REQUEST




000145 00                           125+DCMUTILT DC    X'00' RESERVED


000080                              127+DCMUTILA EQU   X'80' THESE BITS ARE
000040                              128+DCMUTILB EQU   X'40' INITIALIZED AND USED
000020                              129+DCMUTILC EQU   X'20' SOLELY WITHIN
000010                              130+DCMUTILD EQU   X'10' EACH MODULE
000008                              131+DCMUTILE EQU   X'08' THEY ARE NEVER
000004                              132+DCMUTILF EQU   X'04' USED FOR INTERFACE
000002                              133+DCMTEST1 EQU   X'02' FOR TESTING
000001                              134+DCMTEST2 EQU   X'01' FOR TESTING




000146 00                           136+DCMDSTAT DC    X'00' CURRENT DISPLAY STATUS


000080                              138+DCMDSTFL EQU   X'80' FULL SCREEN
000040                              139+DCMUNVW  EQU   X'40' UNVIEWABLE MSG MSG WRITTEN TO SCRN
000020                              140+DCMDSTNM EQU   X'20' MESSAGES ARE NUMBERED
000010                              141+DCMDSTNH EQU   X'10' MSGS NUMBERED - HOLD OPTION
000008                              142+DCMDSINR EQU   X'08' INTERVENTION REQ'D DELETION TRIED
000004                              143+DCMDSAUT EQU   X'04' AUTOMATIC DELETION TRIED
                                                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000147 00                           145+DCMMCSST DC    X'00' MCS INTERFACE BYTE


000080                              147+DCMDUSE  EQU   X'80' OUR SUPPORT IN CONTROL
000040                              148+DCMNOHRD EQU   X'40' NO HARD COPY MESSAGE WRITTEN
000004                              149+DCMOOMSS EQU   X'04' MESSAGE STREAM ENTRY
000001                              150+DCMOOSDS EQU   X'01' STATUS DISPLAY ENTRY




000148 0C                           152+DCMIOUNQ DC    X'0C' UNIQUE I/O BYTE


                                    154+*  UNIQUE INTERFACE BITS FOR 2260
000080                              155+DCMIO226 EQU   X'80' RMI PERFORMED
000040                              156+DCMRPCUR EQU   X'40' ADVANCE CURSOR TO BLANKS
000020                              157+DCMFRSCN EQU   X'20' PUT OUTPUT IN HOLD MODE
                                    158+*  UNIQUE INTERFACE BITS FOR 2250
000010                              159+DCMRDARM EQU   X'10' PERFORM READ AFTER RMI
000008                              160+DCMW2250 EQU   X'08' DEVICE HAS LIGHT PEN
000004                              161+DCMINNOR EQU   X'04' NORMAL INSTRUCTION LINE
000002                              162+DCMINERR EQU   X'02' ERROR INSTRUCTION LINE




000149 00                           164+DCMIOCM1 DC    X'00' IO COMMUNICATIONS BYTE 1


000080                              166+DCMDORMI EQU   X'80' ISSUE RMI
000040                              167+DCMSOUND EQU   X'40' SOUND ALARM
000020                              168+DCMWRWRN EQU   X'20' WRITE WARNING LINE
000010                              169+DCMWRMSG EQU   X'10' WRITE FULL MESSAGE AREA
000008                              170+DCMWRPAR EQU   X'08' WRITE PARTIAL MESSAGE AREA
000004                              171+DCMWRINS EQU   X'04' WRITE INSTRUCTION LINE
000002                              172+DCMWRENT EQU   X'02' WRITE ENTRY AREA
000001                              173+DCMINSC  EQU   X'01' INSERT CURSOR




00014A 00                           175+DCMIOCM2 DC    X'00' IO COMMUNICATIONS BYTE 2


000080                              177+DCMBLENT EQU   X'80' BLANK ENTRY AREA
000040                              178+DCMBLWRL EQU   X'40' BLANK LEFT HALF WARNING LINE
000020                              179+DCMBLWRR EQU   X'20' BLANK RIGHT HALF WARNING LINE
000010                              180+DCMINSSH EQU   X'10' INIT AND SHIFT INSTRUCTION LINE
000008                              181+DCMWINFD EQU   X'08' WRITE INFORMATIONAL DISPLAY
000004                              182+DCMERASE EQU   X'04' PERFORM ERASE
000002                              183+DCMIOCRD EQU   X'02' PERFORM READ (2250,22DOC,3277)
000001                              184+DCMWRASY EQU   X'01' WRITE ASYNC ERROR MSG TO MID-SCREEN
                                                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00014B 00                           186+DCMIOCM3 DC    X'00' IO COMMUNICATIONS BYTE 3
000080                              187+DCMOPRMI EQU   X'80' RMI AFTER OPEN TO UNLOCK KEYBOARD
000040                              188+DCMSSRG  EQU   X'40' SUPPRESS START REGENERATION
000010                              189+DCMWRPFK EQU   X'10' DCM WRITE PFK AREA
000008                              190+DCMPFKAT EQU   X'08' PFK ATTENTION
000004                              191+DCMRDPFK EQU   X'04' PFK AREA READ
000002                              192+DCMACPFK EQU   X'02' TURN PFK LIGHTS OFF
000001                              193+DCMLTPFK EQU   X'01' TURN ALL PFK LIGHTS ON




00014C 00                           195+DCMLINEN DC    X'00' LINE NUMBER TO BEGIN WRITE


00014D 00                           197+DCMCULNO DC    X'00' LINE IN ENTRY AREA TO INSERT CURSOR


00014E 00                           199+DCMPOSCU DC    X'00' POSITION TO INSERT CURSOR




00014F 00                           201+DCMASYNC DC    X'00' ASYN ERROR COMMUNICATIONS/RETRY BYTE


000080                              203+DCMASCAN EQU   X'80' ASYNCHRONOUS ERROR MESSAGE ON SCREEN
000040                              204+DCMASDA  EQU   X'40' RETRY BIT
000020                              205+DCMASIN  EQU   X'20' RETRY BIT
000010                              206+DCMASBA  EQU   X'10' RETRY BIT
000008                              207+DCMASLOG EQU   X'08' LOG ASYNCHRONOUS ERROR
000004                              208+DCMASEQ  EQU   X'04' RETRY BIT                   @SA67421




000150 00                           210+DCMCOM1  DC    X'00' COMMUNICATIONS BYTE


000080                              212+DCMLPENT EQU   X'80' ENTER BY LP OR CURSOR
000040                              213+DCMIOPRD EQU   X'40' READ PERFORMED
000020                              214+DCMCOMRM EQU   X'20' RMI PERFORMED
000010                              215+DCMCOMAU EQU   X'10' PERFORM AUTO DELETE
000008                              216+DCMCOMRD EQU   X'08' PERFORM REGULAR DELETE
000004                              217+DCMCOMNM EQU   X'04' NUMBER MESSAGES
000001                              218+DCMCANCL EQU   X'01' INDICATE CANCEL TO COMMAND ROUTINE




000151 00                           220+DCMCOM2  DC    X'00' COMMUNICATIONS BYTE


000080                              222+DCMCM2I  EQU   X'80' INPUT TO BE PROCESSED
000040                              223+DCMSPLIT EQU   X'40' MSG TO BE SPLIT
                                                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                              224+DCMCOMAR EQU   X'20' ACCEPTED REPLY
000008                              225+DCMERPF  EQU   X'08' ERASE PERF-PROC CAN NOW CLOSE DEVICE
000004                              226+DCMCMIN5 EQU   X'04' RETURN TO INTER 5 FOR BLNK
000002                              227+DCMCBLNK EQU   X'02' BLANKING REQUIRED
000001                              228+DCMAE    EQU   X'01' CLEANUP FPR ASYN ERROR




000152 00                           230+DCMCOM3  DC    X'00' COMMUNICATIONS BYTE


000080                              232+DCMCDSP3 EQU   X'80' DISPLAY 3 COMPLETED WORK
000040                              233+DCMRTPFK EQU   X'40' RETURN TO PFK ROUTINE
000020                              234+DCMVLPFK EQU   X'20' VERIFYING LAST COMMAND
000010                              235+DCMXINT1 EQU   X'10' ENTRY FOR INTERFACE 1 ROUTINE
000008                              236+DCMOLUNV EQU   X'08' O-O-L MSG CAUSED UNVIEW MSG
000002                              237+DCMOLHLD EQU   X'02' OUT-OF-LINE MESSAGES HELD      M1708
000001                              238+DCMCMIN7 EQU   X'01' RETURN TO INTER. 7 FOR BLANK




000153 00                           240+DCMCMSG1 DC    X'00' MSG MODULE COMMUNICATIONS BYTE 1


000080                              242+DCMMSGWT EQU   X'80' MOVE IN MESSAGE WAITING
000040                              243+DCMUNMSG EQU   X'40' MOVE IN UNVIEWABLE MESSAGE
000010                              244+DCMCHOPT EQU   X'10' MOVE IN CHANGE OPTIONS
000008                              245+DCMELONG EQU   X'08' MOVE IN ENTRY TOO LONG
000004                              246+DCMWRCDL EQU   X'04' MOVE IN CON=N,DEL=Y
000002                              247+DCMDELNT EQU   X'02' MOVE IN DEL UNCHANGED, NO TIMER
000001                              248+DCMMNHRD EQU   X'01' MOVE IN NO HARD COPY MESSAGE




000154 00                           250+DCMCMSG2 DC    X'00' MSG MODULE COMMUNICATIONS BYTE 2


000080                              252+DCMDLREQ EQU   X'80' MOVE IN DELETION REQUESTED
000040                              253+DCMRQINC EQU   X'40' MOVE IN REQUEST INCONSISTENT
000020                              254+DCMMSGCR EQU   X'20' MOVE IN INVALID CURSOR OPERATION
000010                              255+DCMINVOP EQU   X'10' MOVE IN INVALID OPERAND
000008                              256+DCMCILLP EQU   X'08' MOVE IN ILLEGAL LP OPERATION
000004                              257+DCMDELRI EQU   X'04' MOVE IN DELETE REQUEST INCONSISTANT
000002                              258+DCMASYRT EQU   X'02' MOVE IN ASYN ERROR RETRYABLE
000001                              259+DCMASYCD EQU   X'01' MOVE IN ASYN ERROR MAYBE RETRYABLE




000155 00                           261+DCMCMSG3 DC    X'00' MSG MODULE COMMUNICATIONS BYTE 3
                                                                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000080                              263+DCMCMRLL EQU   X'80' MOVE IN ROLL MODE MESSAGE
000040                              264+DCMCDLR1 EQU   X'40' NO DELETABLE MESSAGES
000020                              265+DCMCDLR2 EQU   X'20' INVALID RANGE
000010                              266+DCMCDLR3 EQU   X'10' SEG EQU TO ZERO
000008                              267+DCMCDLR4 EQU   X'08' DISPLAY NOT ON SCREEN
000004                              268+DCMCDLR5 EQU   X'04' INVALID OPERAND
000002                              269+DCMNHCIN EQU   X'02' MOVE NO HARD COPY MSG TO INSTR LINE
000001                              270+DCMDTBSY EQU   X'01' COMMAND REJECTED - TASK BUSY




000156 00                           272+DCMCMSG4 DC    X'00' MSG MODULE COMMUNICATIONS BYTE 4


000080                              274+DCMPFKNA EQU   X'80' MOVE IN PFK NOT ALLOCATED FOR
000040                              275+DCMPFKND EQU   X'40' MOVE IN PFK NOT DEFINED
000020                              276+DCMPFKNO EQU   X'20' MOVE IN NO PFK ALLOCATION
000010                              277+DCMPFKIP EQU   X'10' MOVE IN PFK IN PROCESS




000157 00                           279+DCMSVC34 DC    X'00' SVC 34 COMMUNICATION BYTE
000080                              280+DCMMYCMD EQU   X'80' COMMAND TO BE HANDLED BY THIS CONS
000040                              281+DCMINVLD EQU   X'40' INVALID K COMMAND
000020                              282+DCMTYPE1 EQU   X'20' K COMMAND IS NOT ROUTABLE


000158 00                           284+         DC    X'00' RESERVED COMMUNICATION BYTE
                                    285+**                                                                   **
                                    286+*                        MODULE NAMES                                 *
                                    287+**                                                                   **


0000F5                              289+DCMNFIVE EQU   C'5' FOR IGC5 ROUTINES
0000F6                              290+DCMNSIX  EQU   C'6' FOR IGC6 ROUTINES


0000F1                              292+DCMNPRZ  EQU   C'1' PROCESSOR 0 LOAD ONE
0000E9                              293+DCMNPRZZ EQU   C'Z' PROCESSOR 0 LOAD TWO
0000F1                              294+DCMNPROC EQU   C'1' PROCESSOR ROUTINE LOAD ONE
0000E9                              295+DCMNP1L2 EQU   C'Z' PROCESSOR ROUTINE LOAD TWO
0000F2                              296+DCMNDSP1 EQU   C'2' DISPLAY ROUTINE 1
0000F3                              297+DCMNDSP2 EQU   C'3' DISPLAY ROUTINE 2
0000F2                              298+DCMNDSP3 EQU   C'2' DISPLAY ROUTINE 3
0000F4                              299+DCMNCMD1 EQU   C'4' COMMAND ROUTINE 1
0000F5                              300+DCMNHNDK EQU   C'5' K HANDLER ROUTINE
0000F6                              301+DCMNDEL1 EQU   C'6' DELETE ROUTINE 1
0000F7                              302+DCMNDEL2 EQU   C'7' DELETE ROUTINE 2
0000F8                              303+DCMNDEL3 EQU   C'8' DELETE ROUTINE 3
0000F9                              304+DCMNDEL4 EQU   C'9' DELETE ROUTINE 4
0000C1                              305+DCMNOPT1 EQU   C'A' OPTIONS ROUTINE 1
0000C1                              306+DCMNPFK1 EQU   C'A' PFK ROUTINE 1
0000C2                              307+DCMNPFK2 EQU   C'B' PFK ROUTINE 2
                                                                                                               PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000C3                              308+DCMNERRO EQU   C'C' ASYNCHRONOUS ERROR ROUTINE
0000C4                              309+DCMNMSG1 EQU   C'D' MESSAGE ROUTINES 1 AND 3
0000C5                              310+DCMNMSG2 EQU   C'E' MESSAGE ROUTINE 2
0000C6                              311+DCMNLPCR EQU   C'F' LIGHT PEN/CURSOR SERVICE ROUTINE
0000C7                              312+DCMNOPCL EQU   C'G' OPEN-CLOSE ROUTINE
0000C7                              313+DCMNCLN  EQU   C'G' CLEANUP MODULE
0000D1                              314+DCMNROLL EQU   C'J' ROLL MODE ROUTINE
0000D2                              315+DCMNTIMR EQU   C'K' TIMER INTERPRETER ROUTINE
0000D3                              316+DCMNINT1 EQU   C'L' INTERFACE 1 ROUTINE
0000D4                              317+DCMNINT2 EQU   C'M' INTERFACE 2 ROUTINE
0000D5                              318+DCMNINT3 EQU   C'N' INTERFACE 3 ROUTINE
0000D6                              319+DCMNINT4 EQU   C'O' INTERFACE 4 ROUTINE
0000D7                              320+DCMNINT5 EQU   C'P' INTERFACE 5 ROUTINE
0000D8                              321+DCMNINT6 EQU   C'Q' INTERFACE 6 ROUTINE
0000E3                              322+DCMNINT7 EQU   C'T' INTERFACE 7 ROUTINE
000159 E4                           323+DCMIORTN DC    C'U' IO ROUTINE 1 FOR 3277
0000D8                              324+DCMNIRT2 EQU   C'Q' IO ROUTINE FOR 2250 2
0000E5                              325+DCMIOR2  EQU   C'V' IO ROUTINE 2 FOR 3277      MB




00015A 0000                         327+DCMTEST  DC    H'0' RESERVED FOR TESTING




00015C 11D7F0                       329+DCMPFKC  DC    X'11D7F0' SBA-A1-A2 FOR PFK LINE
000160                              330+         DS    0D PADDING





000160 00                           332+DCMWCC   DC    X'00' WRITE CONTROL CHARACTER
000161 114B503C4B5040               333+DCMERSDT DC    X'114B503C4B5040' ERASE SCREEN DATA
                                    334+*                                  (SBA-A1-A2-RA-A1-A2-BLANK)
000168 11404013                     335+DCMCRSDT DC    X'11404013' INSERT CURSOR DATA
                                    336+*                                  (SBA-A1-A2-IC)








000170                              338+         DS    0D
000170 0B00000040000001             339+DCMCCWS  CCW   SELECT,0,COMCHAN,1 SELECT CCW
00000B                              340+SELECT   EQU   X'0B' SELECT COMMAND CODE
000040                              341+COMCHAN  EQU   X'40' COMMAND CHAINING FLAG
000178 0000000000000000             342+DCMCHPGM DC    38F'0' CHANNEL PROGRAM AREA
                                                                                                               PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    344+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                    345+*                                                                     *
                                    346+*                         SCREEN IMAGE BUFFER                         *
                                    347+*                                                                     *
                                    348+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000210                              349+         DS    0F
000210 1140401DE440                 350+DCMSTRT  DC    X'1140401DE440' SBA-A1-A2-SF-AT-DE
000216                              351+DCMLN00  EQU   *
000216                              352+DCMMFRST EQU   *
000216 40404040                     353+         DC    4C' '
00021A 0000000000000000             354+         DC    74X'00'
000264 11C1501DE440                 355+         DC    X'11C1501DE440' SBA-A1-A2-SF-AT-DE
00026A 40404040                     356+DCMLN01  DC    4C' ' LINE NUMBER AND FLAGS
00026E 0000000000000000             357+         DC    74X'00' TEXT OF LINE
0002B8 11C2601DE440                 358+         DC    X'11C2601DE440' SBA-A1-A2-SF-AT-DE
0002BE 40404040                     359+DCMLN02  DC    4C' ' LINE NUMBER AND FLAGS
0002C2 0000000000000000             360+         DC    74X'00' TEXT OF LINE
00030C 11C3F01DE440                 361+         DC    X'11C3F01DE440' SBA-A1-A2-SF-AT-DE
000312 40404040                     362+DCMLN03  DC    4C' ' LINE NUMBER AND FLAGS
000316 0000000000000000             363+         DC    74X'00' TEXT OF LINE
000360 11C5401DE440                 364+         DC    X'11C5401DE440' SBA-A1-A2-SF-AT-DE
000366 40404040                     365+DCMLN04  DC    4C' ' LINE NUMBER AND FLAGS
00036A 0000000000000000             366+         DC    74X'00' TEXT OF LINE
0003B4 11C6501DE440                 367+         DC    X'11C6501DE440' SBA-A1-A2-SF-AT-DE
0003BA 40404040                     368+DCMLN05  DC    4C' ' LINE NUMBER AND FLAGS
0003BE 0000000000000000             369+         DC    74X'00' TEXT OF LINE
000408 11C7601DE440                 370+         DC    X'11C7601DE440' SBA-A1-A2-SF-AT-DE
00040E 40404040                     371+DCMLN06  DC    4C' ' LINE NUMBER AND FLAGS
000412 0000000000000000             372+         DC    74X'00' TEXT OF LINE
00045C 11C8F01DE440                 373+         DC    X'11C8F01DE440' SBA-A1-A2-SF-AT-DE
000462 40404040                     374+DCMLN07  DC    4C' ' LINE NUMBER AND FLAGS
000466 0000000000000000             375+         DC    74X'00' TEXT OF LINE
0004B0 114A401DE440                 376+         DC    X'114A401DE440' SBA-A1-A2-SF-AT-DE
0004B6 40404040                     377+DCMLN08  DC    4C' ' LINE NUMBER AND FLAGS
0004BA 0000000000000000             378+         DC    74X'00' TEXT OF LINE
000504 114B501DE440                 379+         DC    X'114B501DE440' SBA-A1-A2-SF-AT-DE
00050A 40404040                     380+DCMLN09  DC    4C' ' LINE NUMBER AND FLAGS
00050E 0000000000000000             381+         DC    74X'00' TEXT OF LINE
000558 114C601DE440                 382+         DC    X'114C601DE440' SBA-A1-A2-SF-AT-DE
00055E 40404040                     383+DCMLN10  DC    4C' ' LINE NUMBER AND FLAGS
000562 0000000000000000             384+         DC    74X'00' TEXT OF LINE
0005AC 114DF01DE440                 385+         DC    X'114DF01DE440' SBA-A1-A2-SF-AT-DE
0005B2 40404040                     386+DCMLN11  DC    4C' ' LINE NUMBER AND FLAGS
0005B6 0000000000000000             387+         DC    74X'00' TEXT OF LINE
000600 114F401DE440                 388+         DC    X'114F401DE440' SBA-A1-A2-SF-AT-DE
000606 40404040                     389+DCMLN12  DC    4C' ' LINE NUMBER AND FLAGS
00060A 0000000000000000             390+         DC    74X'00' TEXT OF LINE
000654 1150501DE440                 391+         DC    X'1150501DE440' SBA-A1-A2-SF-AT-DE
00065A 40404040                     392+DCMLN13  DC    4C' ' LINE NUMBER AND FLAGS
00065E 0000000000000000             393+         DC    74X'00' TEXT OF LINE
0006A8 11D1601DE440                 394+         DC    X'11D1601DE440' SBA-A1-A2-SF-AT-DE
0006AE 40404040                     395+DCMLN14  DC    4C' ' LINE NUMBER AND FLAGS
0006B2 0000000000000000             396+         DC    74X'00' TEXT OF LINE
0006FC 11D2F01DE440                 397+         DC    X'11D2F01DE440' SBA-A1-A2-SF-AT-DE
000702 40404040                     398+DCMLN15  DC    4C' ' LINE NUMBER AND FLAGS
                                                                                                               PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000706 0000000000000000             399+         DC    74X'00' TEXT OF LINE
000750 11D4401DE440                 400+         DC    X'11D4401DE440' SBA-A1-A2-SF-AT-DE
000756 40404040                     401+DCMLN16  DC    4C' ' LINE NUMBER AND FLAGS
00075A 0000000000000000             402+         DC    74X'00' TEXT OF LINE
0007A4 11D5501DE440                 403+         DC    X'11D5501DE440' SBA-A1-A2-SF-AT-DE
0007AA 40404040                     404+DCMLN17  DC    4C' ' LINE NUMBER AND FLAGS
0007AE 0000000000000000             405+         DC    74X'00' TEXT OF LINE
0007F8 11D6601DE440                 406+         DC    X'11D6601DE440' SBA-A1-A2-SF-AT-DE
0007FE                              407+DCMMLAST EQU   *
0007FE 40404040                     408+DCMLN18  DC    4C' ' LINE NUMBER AND FLAGS
000802 0000000000000000             409+         DC    74X'00' TEXT OF LINE
00084C 000000000000                 410+DCMPFKAR DC    X'000000000000' DUMMY SBA-A1-A2-SF-AT-DE
000852                              411+DCMBLNK1 EQU   *
000852 40404040                     412+DCMLN19  DC    4C' ' LINE NUMBER AND FLAGS
000856 0000000000000000             413+         DC    74X'00' TEXT OF LINE
0008A0 11D9401D6040                 414+         DC    X'11D9401D6040' SBA-A1-A2-SF-AT-DE
0008A6                              415+DCMINSTR EQU   *
0008A6 40404040                     416+DCMLN20  DC    4C' ' LINE NUMBER AND FLAGS
0008AA 0000000000000000             417+         DC    74X'00' TEXT OF LINE
0008F4 115A50401DC4                 418+         DC    X'115A50401DC4' SBA-A1-A2-B-SF-AT
0008FA                              419+DCMENTRY EQU   *
0008FA 40404040                     420+DCMLN21  DC    4C' ' LINE NUMBER AND FLAGS
0008FE 0000000000000000             421+         DC    74X'00'
000948 404040404040                 422+         DC    6C' ' DUMMY COMMAND AREA
00094E                              423+DCMENTR2 EQU   *
00094E 40404040                     424+DCMLN22  DC    4C' ' LINE NUMBER AND FLAGS
000952 0000000000000000             425+         DC    74X'00' TEXT OF LINE
00099C 115CF01DE840                 426+         DC    X'115CF01DE840' SBA-A1-A2-SF-AT-DE
0009A2                              427+DCMWARN  EQU   *
0009A2 40404040                     428+DCMLN23  DC    4C' ' LINE NUMBER AND FLAGS
0009A6 0000000000000000             429+         DC    74X'00' TEXT OF LINE
                                                                                                               PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    431+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                    432+*                                                                     *
                                    433+*                     DOM IDENTIFICATION NUMBERS                      *
                                    434+*                                                                     *
                                    435+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0009F0 00000000                     436+DCMDOM1  DC    F'0' DOM NUMBER
0009F4 00000000                     437+DCMDOM2  DC    F'0' DOM NUMBER
0009F8 00000000                     438+DCMDOM3  DC    F'0' DOM NUMBER
0009FC 00000000                     439+DCMDOM4  DC    F'0' DOM NUMBER
000A00 00000000                     440+DCMDOM5  DC    F'0' DOM NUMBER
000A04 00000000                     441+DCMDOM6  DC    F'0' DOM NUMBER
000A08 00000000                     442+DCMDOM7  DC    F'0' DOM NUMBER
000A0C 00000000                     443+DCMDOM8  DC    F'0' DOM NUMBER
000A10 00000000                     444+DCMDOM9  DC    F'0' DOM NUMBER
000A14 00000000                     445+DCMDOM10 DC    F'0' DOM NUMBER
000A18 00000000                     446+DCMDOM11 DC    F'0' DOM NUMBER
000A1C 00000000                     447+DCMDOM12 DC    F'0' DOM NUMBER
000A20 00000000                     448+DCMDOM13 DC    F'0' DOM NUMBER
000A24 00000000                     449+DCMDOM14 DC    F'0' DOM NUMBER
000A28 00000000                     450+DCMDOM15 DC    F'0' DOM NUMBER
000A2C 00000000                     451+DCMDOM16 DC    F'0' DOM NUMBER
000A30 00000000                     452+DCMDOM17 DC    F'0' DOM NUMBER
000A34 00000000                     453+DCMDOM18 DC    F'0' DOM NUMBER
000A38 00000000                     454+DCMDOM19 DC    F'0' DOM NUMBER
000A3C 00000000                     455+DCMDOM20 DC    F'0' DOM NUMBER
000A40 00000000                     456+DCMDOM21 DC    F'0' DOM NUMBER
000A44 00000000                     457+DCMDOM22 DC    F'0' DOM NUMBER
000A48 00000000                     458+DCMDOM23 DC    F'0' DOM NUMBER
                                                                                                               PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    460+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                    461+*                                                                     *
                                    462+*                        SCREEN CONTROL TABLES                        *
                                    463+*                                                                     *
                                    464+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000A4C 00                           465+DCMMSG1  DC    X'00' SCREEN CONTROL ENTRY
000A4D 00                           466+         DC    X'00' SECOND BYTE
000A4E 00                           467+DCMMSG2  DC    X'00' SCREEN CONTROL ENTRY
000A4F 00                           468+         DC    X'00' SECOND BYTE
000A50 00                           469+DCMMSG3  DC    X'00' SCREEN CONTROL ENTRY
000A51 00                           470+         DC    X'00' SECOND BYTE
000A52 00                           471+DCMMSG4  DC    X'00' SCREEN CONTROL ENTRY
000A53 00                           472+         DC    X'00' SECOND BYTE
000A54 00                           473+DCMMSG5  DC    X'00' SCREEN CONTROL ENTRY
000A55 00                           474+         DC    X'00' SECOND BYTE
000A56 00                           475+DCMMSG6  DC    X'00' SCREEN CONTROL ENTRY
000A57 00                           476+         DC    X'00' SECOND BYTE
000A58 00                           477+DCMMSG7  DC    X'00' SCREEN CONTROL ENTRY
000A59 00                           478+         DC    X'00' SECOND BYTE
000A5A 00                           479+DCMMSG8  DC    X'00' SCREEN CONTROL ENTRY
000A5B 00                           480+         DC    X'00' SECOND BYTE
000A5C 00                           481+DCMMSG9  DC    X'00' SCREEN CONTROL ENTRY
000A5D 00                           482+         DC    X'00' SECOND BYTE
000A5E 00                           483+DCMMSG10 DC    X'00' SCREEN CONTROL ENTRY
000A5F 00                           484+         DC    X'00' SECOND BYTE
000A60 00                           485+DCMMSG11 DC    X'00' SCREEN CONTROL ENTRY
000A61 00                           486+         DC    X'00' SECOND BYTE
000A62 00                           487+DCMMSG12 DC    X'00' SCREEN CONTROL ENTRY
000A63 00                           488+         DC    X'00' SECOND BYTE
000A64 00                           489+DCMMSG13 DC    X'00' SCREEN CONTROL ENTRY
000A65 00                           490+         DC    X'00' SECOND BYTE
000A66 00                           491+DCMMSG14 DC    X'00' SCREEN CONTROL ENTRY
000A67 00                           492+         DC    X'00' SECOND BYTE
000A68 00                           493+DCMMSG15 DC    X'00' SCREEN CONTROL ENTRY
000A69 00                           494+         DC    X'00' SECOND BYTE
000A6A 00                           495+DCMMSG16 DC    X'00' SCREEN CONTROL ENTRY
000A6B 00                           496+         DC    X'00' SECOND BYTE
000A6C 00                           497+DCMMSG17 DC    X'00' SCREEN CONTROL ENTRY
000A6D 00                           498+         DC    X'00' SECOND BYTE
000A6E 00                           499+DCMMSG18 DC    X'00' SCREEN CONTROL ENTRY
000A6F 00                           500+         DC    X'00' SECOND BYTE
000A70 00                           501+DCMMSG19 DC    X'00' SCREEN CONTROL ENTRY
000A71 00                           502+         DC    X'00' SECOND BYTE
000A72 00                           503+DCMMSG20 DC    X'00' SCREEN CONTROL ENTRY
000A73 00                           504+         DC    X'00' SECOND BYTE
000A74 00                           505+DCMMSG21 DC    X'00' SCREEN CONTROL ENTRY
000A75 00                           506+         DC    X'00' SECOND BYTE
000A76 00                           507+DCMMSG22 DC    X'00' SCREEN CONTROL ENTRY
000A77 00                           508+         DC    X'00' SECOND BYTE
000A78 00                           509+DCMMSG23 DC    X'00' SCREEN CONTROL ENTRY
000A79 00                           510+         DC    X'00' SECOND BYTE
000A7A 00                           511+         DC    X'00' OUTPUT ONLY STOPPER LOCATION
000A72                              512+         ORG   DCMMSG19+2 INSERT CORRECT STOPPER
000A72 01                           513+DCMMSGND DC    X'01' STOPPER FOR SCT
000A7B                              514+         ORG
                                                                                                               PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    516+*  SECONDARY SCREEN CONTROL TABLE
000A7B 00                           517+DCMSEC1  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A7C 00                           518+DCMSEC2  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A7D 00                           519+DCMSEC3  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A7E 00                           520+DCMSEC4  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A7F 00                           521+DCMSEC5  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A80 00                           522+DCMSEC6  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A81 00                           523+DCMSEC7  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A82 00                           524+DCMSEC8  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A83 00                           525+DCMSEC9  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A84 00                           526+DCMSEC10 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A85 00                           527+DCMSEC11 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A86 00                           528+DCMSEC12 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A87 00                           529+DCMSEC13 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A88 00                           530+DCMSEC14 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A89 00                           531+DCMSEC15 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A8A 00                           532+DCMSEC16 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A8B 00                           533+DCMSEC17 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A8C 00                           534+DCMSEC18 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A8D 00                           535+DCMSEC19 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A8E 00                           536+DCMSEC20 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A8F 00                           537+DCMSEC21 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A90 00                           538+DCMSEC22 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A91 00                           539+DCMSEC23 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A92 00                           540+         DC    X'00' OUTPUT ONLY STOPPER LOCATION
000A8E                              541+         ORG   DCMSEC19+1 INSERT CORRECT STOPPER
000A8E 01                           542+DCMSECND DC    X'01' STOPPER FOR SSCT
000A93                              543+         ORG


                                    545+*  FIRST BYTE OF SCT ENTRIES
000080                              546+DCMMSGWR EQU   X'80' WTOR MESSAGE DISPLAYED IN LINE
000040                              547+DCMMSGIN EQU   X'40' MESSAGE DISPLAYED IN LINE
000020                              548+DCMMSGCN EQU   X'20' MESSAGE CONTINUED ON NEXT LINE
000010                              549+DCMMSGJK EQU   X'10' TO WRITE OUT-OF-LINE DISPLAY FROM
                                    550+*                                  MAY CONTAIN JUNK (SDS INTERFACE 2)
000008                              551+DCMMSGAD EQU   X'08' MESSAGE CAN BE DELETED AUTOMATICALLY
000004                              552+DCMMSGRD EQU   X'04' REQUEST HAS SPECIFIED MSG BE REMOVED
000002                              553+DCMMSGIF EQU   X'02' INFORMATIONAL MESSAGE IN LINE
000001                              554+DCMMSGST EQU   X'01' END OF TABLE INDICATOR


                                    556+*  SECOND BYTE OF SCT ENTRIES
000080                              557+DCMMSGAC EQU   X'80' ACTION MESSAGE
000040                              558+DCMMSGC7 EQU   X'40' DESCRIPTOR CODE 7 MESSAGE
000020                              559+DCMMSGDM EQU   X'20' MESSAGE HAS BEEN DOMMED
000010                              560+DCMMSGAR EQU   X'10' MESSAGE IS AN ACCEPTED REPLY
000008                              561+DCMMSGIR EQU   X'08' INTERVENTION REQUIRED MESSAGE
000004                              562+DCMMSGCT EQU   X'04' CONTINUATION LINE
000002                              563+DCMMSGPP EQU   X'02' ISSUED BY PROBLEM PROGRAM
000001                              564+DCMMSGCL EQU   X'01' CONTROL LINE OF IN LINE MLWTO


                                    566+*  SECONDARY SCT ENTRIES
000080                              567+DCMSECCL EQU   X'80' CONTROL LINE OF OUT OF LINE DISPLAY
                                                                                                               PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000040                              568+DCMSECLL EQU   X'40' LABEL LINE OF OUT OF LINE DISPLAY
000020                              569+DCMSECDL EQU   X'20' DATA LINE OF OUT OF LINE DISPLAY
000010                              570+DCMSECBL EQU   X'10' THIS LINE IS BLANKED
000002                              571+DCMSECDD EQU   X'02' LINE RESERVED FOR DYNAMIC DISPLAY
000001                              572+DCMSECST EQU   X'01' END OF TABLE INDICATOR


                                    574+*  BIT DEFINITIONS FOR DCMSTS BYTES, FOR PFK SUPPORT
000080                              575+DCMPFKDF EQU   X'80' THIS KEY HAS BEEN DEFINED
000040                              576+DCMPFKPR EQU   X'40' PROCESSING OF THIS KEY IN PROGRESS
000020                              577+DCMPFKCN EQU   X'20' KEY SET FOR CONVERSATIONAL MODE
000010                              578+DCMPFKVR EQU   X'10' KEY NOW BEING VERIFIED
000008                              579+DCMPFKKY EQU   X'08' THIS KEY EQUALS A SERIES OF KEYS
000A98                              580+         DS    0D PAD TO DOUBLE WORD
000A98                              581+DCMEND   EQU   *
                                    582  END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000028
   01       01      0C     000040
   01       01      0C     000044
   01       01      0C     000048
   01       01      0C     00004C
   01       01      0C     000050
   01       01      0C     000054
   01       01      0C     000058
   01       01      0C     00005C
   01       01      0C     000060
   01       01      0C     000064
   01       01      0C     000068
   01       01      0C     00006C
   01       02      1C     000018
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

COMCHAN  00001 000040 00341   0339
DCMACPFK 00001 000002 00192
DCMADCHP 00004 000068 00058
DCMADDRL 00004 00004C 00051
DCMADNUM 00002 000122 00078
DCMADOPN 00004 000074 00061
DCMADSEC 00004 000048 00050
DCMAE    00001 000001 00228
DCMAENTR 00004 000060 00056
DCMAINS  00004 00005C 00055
DCMAMTAB 00004 000044 00049
DCMASBA  00001 000010 00206
DCMASCAN 00001 000080 00203
DCMASCRN 00004 000050 00052
DCMASDA  00001 000040 00204
DCMASEQ  00001 000004 00208
DCMASIN  00001 000020 00205
DCMASKCN 00001 00013F 00102
DCMASKCR 00001 000140 00103
DCMASKEN 00001 00013E 00101
DCMASKLP 00001 000141 00104
DCMASKPF 00001 000142 00105
DCMASLOG 00001 000008 00207
DCMASYCD 00001 000001 00259
DCMASYNC 00001 00014F 00201
DCMASYRT 00001 000002 00258
DCMATI   00001 000025 00023
DCMAWARN 00004 000064 00057
DCMAXLGN 00002 000124 00079
DCMBADLN 00002 00011E 00076
DCMBAINC 00002 00011A 00074
DCMBLENT 00001 000080 00177
DCMBLNK1 00001 000852 00411   0026  0054
DCMBLWRL 00001 000040 00178
DCMBLWRR 00001 000020 00179
DCMBUFAD 00004 00003C 00047
DCMBYTCT 00002 000120 00077
DCMCANCL 00001 000001 00218
DCMCBLNK 00001 000002 00227
DCMCCWS  00008 000170 00339
DCMCDLR1 00001 000040 00264
DCMCDLR2 00001 000020 00265
DCMCDLR3 00001 000010 00266
DCMCDLR4 00001 000008 00267
DCMCDLR5 00001 000004 00268
DCMCDSP3 00001 000080 00232
DCMCHOPT 00001 000010 00244
DCMCHPGM 00004 000178 00342   0058
DCMCILLP 00001 000008 00256
DCMCMIN5 00001 000004 00226
DCMCMIN7 00001 000001 00238
DCMCMRLL 00001 000080 00263
DCMCMSG1 00001 000153 00240
DCMCMSG2 00001 000154 00250
DCMCMSG3 00001 000155 00261
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMCMSG4 00001 000156 00272
DCMCM2I  00001 000080 00222
DCMCOMAR 00001 000020 00224
DCMCOMAU 00001 000010 00215
DCMCOMNM 00001 000004 00217
DCMCOMRD 00001 000008 00216
DCMCOMRM 00001 000020 00214
DCMCOM1  00001 000150 00210
DCMCOM2  00001 000151 00220
DCMCOM3  00001 000152 00230
DCMCON   00001 000134 00090
DCMCORLN 00002 00012C 00083
DCMCRSDT 00004 000168 00335
DCMCS    00001 000144 00120
DCMCSC   00001 000080 00122
DCMCSO   00001 000040 00123
DCMCULNO 00001 00014D 00197
DCMCVBIN 00004 000034 00032
DCMCXSVE 00004 000070 00060
DCMDEL   00002 000132 00089
DCMDELNT 00001 000002 00247
DCMDELRI 00001 000004 00257
DCMDL    00001 000136 00092
DCMDLREQ 00001 000080 00252
DCMDOMPK 00004 000040 00048
DCMDOM1  00004 0009F0 00436   0048
DCMDOM10 00004 000A14 00445
DCMDOM11 00004 000A18 00446
DCMDOM12 00004 000A1C 00447
DCMDOM13 00004 000A20 00448
DCMDOM14 00004 000A24 00449
DCMDOM15 00004 000A28 00450
DCMDOM16 00004 000A2C 00451
DCMDOM17 00004 000A30 00452
DCMDOM18 00004 000A34 00453
DCMDOM19 00004 000A38 00454
DCMDOM2  00004 0009F4 00437
DCMDOM20 00004 000A3C 00455
DCMDOM21 00004 000A40 00456
DCMDOM22 00004 000A44 00457
DCMDOM23 00004 000A48 00458
DCMDOM3  00004 0009F8 00438
DCMDOM4  00004 0009FC 00439
DCMDOM5  00004 000A00 00440
DCMDOM6  00004 000A04 00441
DCMDOM7  00004 000A08 00442
DCMDOM8  00004 000A0C 00443
DCMDOM9  00004 000A10 00444
DCMDORMI 00001 000080 00166
DCMDSAUT 00001 000004 00143
DCMDSAV  00004 000078 00062
DCMDSINR 00001 000008 00142
DCMDSTAT 00001 000146 00136
DCMDSTFL 00001 000080 00138
DCMDSTNH 00001 000010 00141
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMDSTNM 00001 000020 00140
DCMDTBSY 00001 000001 00270
DCMDUSE  00001 000080 00147
DCMELGN  00002 00003A 00045
DCMELONG 00001 000008 00245
DCMEND   00001 000A98 00581   0014
DCMENTRY 00001 0008FA 00419   0015  0056
DCMENTR2 00001 00094E 00423
DCMERASE 00001 000004 00182
DCMERPF  00001 000008 00225
DCMERSDT 00007 000161 00333
DCMFLG1  00001 000024 00017
DCMFRSCN 00001 000020 00157
DCMGROLL 00001 000020 00038
DCMINERR 00001 000002 00162
DCMINLGN 00002 00008C 00067
DCMINNOR 00001 000004 00161
DCMINPUT 00004 000090 00069
DCMINSC  00001 000001 00173
DCMINSSH 00001 000010 00180
DCMINSTR 00001 0008A6 00415   0055
DCMINVLD 00001 000040 00281
DCMINVOP 00001 000010 00255
DCMIOCM1 00001 000149 00164
DCMIOCM2 00001 00014A 00175
DCMIOCM3 00001 00014B 00186
DCMIOCRD 00001 000002 00183
DCMIOPRD 00001 000040 00213
DCMIORTN 00001 000159 00323
DCMIOR2  00001 0000E5 00325
DCMIOUNQ 00001 000148 00152
DCMIO226 00001 000080 00155
DCMIRCTR 00002 00011C 00075
DCMLGNTH 00002 000118 00073
DCMLINEN 00001 00014C 00195
DCMLNCNT 00002 00002C 00027
DCMLNNUM 00001 00002E 00028
DCMLN00  00001 000216 00351
DCMLN01  00001 00026A 00356
DCMLN02  00001 0002BE 00359
DCMLN03  00001 000312 00362
DCMLN04  00001 000366 00365
DCMLN05  00001 0003BA 00368
DCMLN06  00001 00040E 00371
DCMLN07  00001 000462 00374
DCMLN08  00001 0004B6 00377
DCMLN09  00001 00050A 00380
DCMLN10  00001 00055E 00383
DCMLN11  00001 0005B2 00386
DCMLN12  00001 000606 00389
DCMLN13  00001 00065A 00392
DCMLN14  00001 0006AE 00395
DCMLN15  00001 000702 00398
DCMLN16  00001 000756 00401
DCMLN17  00001 0007AA 00404
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMLN18  00001 0007FE 00408   0053
DCMLN19  00001 000852 00412
DCMLN20  00001 0008A6 00416
DCMLN21  00001 0008FA 00420
DCMLN22  00001 00094E 00424
DCMLN23  00001 0009A2 00428
DCMLPENT 00001 000080 00212
DCMLSCRN 00004 000054 00053
DCMLTPFK 00001 000001 00193
DCMMCSFL 00002 00008E 00068
DCMMCSST 00001 000147 00145
DCMMFRST 00001 000216 00352   0052
DCMMLAST 00001 0007FE 00407
DCMMNHRD 00001 000001 00248
DCMMSGAC 00001 000080 00557
DCMMSGAD 00001 000008 00551
DCMMSGAL 00002 000126 00080
DCMMSGAR 00001 000010 00560
DCMMSGCL 00001 000001 00564
DCMMSGCN 00001 000020 00548
DCMMSGCR 00001 000020 00254
DCMMSGCT 00001 000004 00562
DCMMSGC7 00001 000040 00558
DCMMSGDM 00001 000020 00559
DCMMSGIF 00001 000002 00553
DCMMSGIN 00001 000040 00547
DCMMSGIR 00001 000008 00561
DCMMSGJK 00001 000010 00549
DCMMSGND 00001 000A72 00513
DCMMSGPP 00001 000002 00563
DCMMSGRD 00001 000004 00552
DCMMSGST 00001 000001 00554
DCMMSGWR 00001 000080 00546
DCMMSGWT 00001 000080 00242
DCMMSG1  00001 000A4C 00465   0049
DCMMSG10 00001 000A5E 00483
DCMMSG11 00001 000A60 00485
DCMMSG12 00001 000A62 00487
DCMMSG13 00001 000A64 00489
DCMMSG14 00001 000A66 00491
DCMMSG15 00001 000A68 00493
DCMMSG16 00001 000A6A 00495
DCMMSG17 00001 000A6C 00497
DCMMSG18 00001 000A6E 00499
DCMMSG19 00001 000A70 00501   0051  0512
DCMMSG2  00001 000A4E 00467
DCMMSG20 00001 000A72 00503
DCMMSG21 00001 000A74 00505
DCMMSG22 00001 000A76 00507
DCMMSG23 00001 000A78 00509
DCMMSG3  00001 000A50 00469
DCMMSG4  00001 000A52 00471
DCMMSG5  00001 000A54 00473
DCMMSG6  00001 000A56 00475
DCMMSG7  00001 000A58 00477
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMMSG8  00001 000A5A 00479
DCMMSG9  00001 000A5C 00481
DCMMYCMD 00001 000080 00280
DCMNCLN  00001 0000C7 00313
DCMNCMD1 00001 0000F4 00299
DCMNDEL1 00001 0000F6 00301
DCMNDEL2 00001 0000F7 00302
DCMNDEL3 00001 0000F8 00303
DCMNDEL4 00001 0000F9 00304
DCMNDSP1 00001 0000F2 00296
DCMNDSP2 00001 0000F3 00297
DCMNDSP3 00001 0000F2 00298
DCMNERRO 00001 0000C3 00308
DCMNFIVE 00001 0000F5 00289
DCMNHCIN 00001 000002 00269
DCMNHNDK 00001 0000F5 00300
DCMNINT1 00001 0000D3 00316
DCMNINT2 00001 0000D4 00317
DCMNINT3 00001 0000D5 00318
DCMNINT4 00001 0000D6 00319
DCMNINT5 00001 0000D7 00320
DCMNINT6 00001 0000D8 00321
DCMNINT7 00001 0000E3 00322
DCMNIRT2 00001 0000D8 00324
DCMNLPCR 00001 0000C6 00311
DCMNMSG1 00001 0000C4 00309
DCMNMSG2 00001 0000C5 00310
DCMNOHRD 00001 000040 00148
DCMNOPCL 00001 0000C7 00312
DCMNOPT1 00001 0000C1 00305
DCMNPFK1 00001 0000C1 00306
DCMNPFK2 00001 0000C2 00307
DCMNPROC 00001 0000F1 00294
DCMNPRZ  00001 0000F1 00292
DCMNPRZZ 00001 0000E9 00293
DCMNP1L2 00001 0000E9 00295
DCMNROLL 00001 0000D1 00314
DCMNSIX  00001 0000F6 00290
DCMNTIMR 00001 0000D2 00315
DCMOCTTI 00001 000002 00042
DCMOLHLD 00001 000002 00237
DCMOLUNV 00001 000008 00236
DCMOOMSS 00001 000004 00149
DCMOOSDS 00001 000001 00150
DCMOPRLL 00001 000010 00118
DCMOPRMI 00001 000080 00187
DCMOPTAD 00001 000040 00116
DCMOPTSG 00001 000020 00117
DCMOPTST 00001 000143 00113
DCMOPTTI 00001 000040 00037
DCMOPTVR 00001 000080 00115
DCMOTTMM 00001 000010 00039
DCMOUTPT 00001 000002 00020
DCMPACK  00004 000030 00031
DCMPFKAR 00006 00084C 00410   0059
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMPFKAT 00001 000008 00190
DCMPFKC  00003 00015C 00329
DCMPFKCN 00001 000020 00577
DCMPFKDF 00001 000080 00575
DCMPFKIP 00001 000010 00277
DCMPFKKN 00001 000131 00086
DCMPFKKY 00001 000008 00579
DCMPFKLN 00004 00006C 00059
DCMPFKNA 00001 000080 00274
DCMPFKND 00001 000040 00275
DCMPFKNM 00001 000130 00085
DCMPFKNO 00001 000020 00276
DCMPFKPR 00001 000040 00576
DCMPFKVR 00001 000010 00578
DCMPOSCU 00001 00014E 00199
DCMQUE   00001 000010 00019
DCMRDARM 00001 000010 00159
DCMRDPFK 00001 000004 00191
DCMRELOC 00002 000022 00015
DCMRMINC 00002 000128 00081
DCMRMTTI 00001 000001 00043
DCMRNUM  00001 000137 00093
DCMRNUMD 00001 00013B 00098
DCMRPCUR 00001 000040 00156
DCMRQDEL 00001 000110 00071
DCMRQINC 00001 000040 00253
DCMRTME  00002 000138 00094
DCMRTMED 00002 00013C 00099
DCMRTPFK 00001 000040 00233
DCMSCTCN 00002 00012A 00082
DCMSECBL 00001 000010 00570
DCMSECCL 00001 000080 00567
DCMSECDD 00001 000002 00571
DCMSECDL 00001 000020 00569
DCMSECLL 00001 000040 00568
DCMSECND 00001 000A8E 00542
DCMSECST 00001 000001 00572
DCMSEC1  00001 000A7B 00517   0050
DCMSEC10 00001 000A84 00526
DCMSEC11 00001 000A85 00527
DCMSEC12 00001 000A86 00528
DCMSEC13 00001 000A87 00529
DCMSEC14 00001 000A88 00530
DCMSEC15 00001 000A89 00531
DCMSEC16 00001 000A8A 00532
DCMSEC17 00001 000A8B 00533
DCMSEC18 00001 000A8C 00534
DCMSEC19 00001 000A8D 00535   0541
DCMSEC2  00001 000A7C 00518
DCMSEC20 00001 000A8E 00536
DCMSEC21 00001 000A8F 00537
DCMSEC22 00001 000A90 00538
DCMSEC23 00001 000A91 00539
DCMSEC3  00001 000A7D 00519
DCMSEC4  00001 000A7E 00520
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMSEC5  00001 000A7F 00521
DCMSEC6  00001 000A80 00522
DCMSEC7  00001 000A81 00523
DCMSEC8  00001 000A82 00524
DCMSEC9  00001 000A83 00525
DCMSEG   00001 000135 00091
DCMSEGDF 00001 00013A 00097
DCMSOUND 00001 000040 00167
DCMSPLIT 00001 000040 00223
DCMSSRG  00001 000040 00188
DCMSTART 00004 000020 00013   0014  0015
DCMSTRT  00006 000210 00350
DCMSTTMR 00001 000008 00040
DCMSVC34 00001 000157 00279
DCMTASYN 00001 000004 00041
DCMTEST  00002 00015A 00327
DCMTEST1 00001 000002 00133
DCMTEST2 00001 000001 00134
DCMTIMER 00001 000080 00036
DCMTIMES 00001 000038 00034
DCMTYPE1 00001 000020 00282
DCMUNMSG 00001 000040 00243
DCMUNVW  00001 000040 00139
DCMUSED  00001 000001 00021
DCMUTILA 00001 000080 00127
DCMUTILB 00001 000040 00128
DCMUTILC 00001 000020 00129
DCMUTILD 00001 000010 00130
DCMUTILE 00001 000008 00131
DCMUTILF 00001 000004 00132
DCMUTILT 00001 000145 00125
DCMVLPFK 00001 000020 00234
DCMWARN  00001 0009A2 00427   0057
DCMWCC   00001 000160 00332
DCMWINFD 00001 000008 00181
DCMWQEXP 00004 00008C 00066
DCMWRASY 00001 000001 00184
DCMWRCDL 00001 000004 00246
DCMWRENT 00001 000002 00172
DCMWRINS 00001 000004 00171
DCMWRMSG 00001 000010 00169
DCMWRPAR 00001 000008 00170
DCMWRPFK 00001 000010 00189
DCMWRWRN 00001 000020 00168
DCMWTBUF 00004 000058 00054
DCMWTINT 00004 000028 00026
DCMW2250 00001 000008 00160
DCMXINT1 00001 000010 00235
IEECVR1  00001 000000 00002
SELECT   00001 00000B 00340   0339
                                                      DIAGNOSTICS                                             PAGE     1


                                                                                                                 8/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     7      SOURCE RECORDS (SYSLIB) =   574
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  990 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM14.R0000117      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM14.S0000118      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM14.S0000118      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG15    / START 78240.1945
IEF374I STEP /SG15    / STOP  78240.1945 CPU   0MIN 00.34SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:09.86   ALLOC START    19:45:09.87   MAIN REGION ----- 300K                          *
*   STEP NAME SG15       STEP END TIME  19:45:10.68   PGM START TIME 19:45:09.96   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.82   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.34   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 15       0250 ------------ 0       0250 ------------ 0       0151 ----------- 31       0151 ----------- 27    *
*   0151 ----------- 34       0353 ---------- 124       0151 ----------- 59       0130 ------------ 9                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM14  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:10.70   ALLOC START    19:45:10.72   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:10.75   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM14 / START 78240.1945
IEF376I  JOB /R21AM14 / STOP  78240.1945 CPU   0MIN 00.34SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM14    JOB READ TIME 19:44:49.11   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.34   *
*   JOB CLASS A          JOB INIT TIME 19:45:09.86   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.91   *
*   ACCOUNT              JOB END TIME  19:45:10.77   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       1     555555555                            A
            RRRRRRRRR  222222222      11        AAA     MM     MM      11     555555555                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     111     55                                 AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM      11     55555555                          AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      11     555555555                        AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      11            55                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM      11            55                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM      11     55     55                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM    111111   555555555                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    111111    5555555                         AA     AA

***********A  START   R21AM15    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM15    START  A***********
***********A  START   R21AM15    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM15    START  A***********
***********A  START   R21AM15    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM15    START  A***********
***********A  START   R21AM15    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM15    START  A***********
***********A  START   R21AM15    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM15    START  A***********


//R21AM15 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG16 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEECVH1)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM15  SG16
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEECVH1   SD  01 000000 000030
IEECVR1   ER  02
SUBAN48   ER  03
IEECVK0   ER  04
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 IEECVH1   CSECT
                                      3       IEECRDCM DEV=E,                                            CCCCCCCCCCC
                                                       KEY=IEECVK0,                                      CCCCCCCCCCC
                                                       T=R1
000000 00000000                       4+DCMADTRN DC    V(IEECVR1) POINTER TO TRANSIENT AREA
000004 00                             5+DCMINDEX DC    FL1'0' DISPLAY CONSOLE INDEX NUMBER
000005 00                             6+DCMRFLGS DC    X'00' FLAGS
000080                                7+DCMREAD  EQU   X'80' DCM READ IN PROCESS
000040                                8+DCMTYPE  EQU   X'40' CONSOLE USES TRANS DCM
000020                                9+DCMWRITE EQU   X'20' DCM WRITE IN PROCESS
000010                               10+DCMDOM   EQU   X'10' DOM MUST BE TRIED
000008                               11+DCMNIPP  EQU   X'08' DCM WAS USED BY NIP
000004                               12+DCMMOD   EQU   X'04' REWRITE FOR PRIOR DOM      MC A63438
000002                               13+DCMFRSRD EQU   X'02' FIRST READ OF DCM
000001                               14+DCMSRCH  EQU   X'01' PROC ZERO ROUTING FLAG
000006 0000                          15+DCMLEN   DC    H'0' LENGTH OF TRANS DCM
000008 00000000                      16+DCMADKP  DC    A(0) ADDRESS OF ROUTED K COMMAND
                                     17+*                                       PARAMETER LIST
00000C 00                            18+DCMTOPAR DC    X'00'
00000D 00                            19+DCMTOPDS DC    X'00' TOP DISPLAY ON SCREEN
00000E 00                            20+DCMRESTA DC    X'00' SPECIAL FLAGS FOR ATTN AND OPEN
000080                               21+DCMATTN  EQU   X'80' ATTENTION STATUS HAS BEEN SAVED
000040                               22+DCMOPNSV EQU   X'40' OPEN STATUS HAS BEEN SAVED
00000F 00                            23+DCMDEVTY DC    X'00' DEVICE TYPE FLAGS
000080                               24+DCMTY60  EQU   X'80' DEVICE IS A 2260
000040                               25+DCMTY50  EQU   X'40' DEVICE IS A 2250
000010 00000000                      26+DCMADSDS DC    F'0' POINTER TO FIRST SDS SUPPORT AREA
000014 03                            27+DCMRMS   DC    X'03' NUMBER OF CCWS TO WRITE
000015 000000                        28+DCMADRMS DC    VL3(SUBAN48) POINTER TO RMS CCWS
000018 00000000                      29+DCMWLAST DC    F'0' PT CON Q ENTRY LAST OUT (O-O-L)
00001C 0000                          30+DCMRMSAL DC    H'0' NUMBER LINES IN MSG AREA
00001E 0000                          31+         DC    H'0' RESERVED
000020 00000000                      32+DCMMSGSV DC    F'0' POINTER TO SAVED NIP MESSAGES
000024 00000000                      33+DCMADPFK DC    V(IEECVK0) POINTER TO RESIDENT PFK AREA
000028 0000                          34+DCMINTVL DC    H'0' INTERVAL FOR THIS DCM
00002A 0000                          35+DCMTMCTR DC    H'0' TIME COUNTER FOR THIS DCM
00002C 00                            36+DCMR2FLG DC    X'00' TIMER FLAGS
000080                               37+DCMRXSFL EQU   X'80' FULL SCREEN FLAG
000040                               38+DCMRXUNV EQU   X'40' UNVIEWABLE MESSAGE DISPLAYED
000020                               39+DCMRXTMR EQU   X'20' TIMER FLAG
000010                               40+DCMRXRLL EQU   X'10' READY TO ROLL
000008                               41+DCMRXDEL EQU   X'08' PENDING DELETE REQUEST
000002                               42+DCMRXTIM EQU   X'02' TIMER ELAPSED FOR THIS DISPLAY
000001                               43+DCMRXDCM EQU   X'01' T DCM IS IN CORE
00002D 00                            44+DCMR3FLG DC    X'00' MISC FLAGS
000080                               45+DCMSTSWT EQU   X'80' CHANGING STATUS OF OUTPUT ONLY CON
000040                               46+DCMKVIP  EQU   X'40' ENTRY FOR K VARY COMMAND
000020                               47+DCMCLPR  EQU   X'20' CLOSE IN PROCESS
000010                               48+DCMRXSCN EQU   X'10' ASY ERROR MESSAGE ON SCREEN
00002E 0000                          49+         DC    XL2'0' RESERVED
                                     50  END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       02      1C     000000
   01       03      18     000015
   01       04      1C     000024
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMADKP  00004 000008 00016
DCMADPFK 00004 000024 00033
DCMADRMS 00003 000015 00028
DCMADSDS 00004 000010 00026
DCMADTRN 00004 000000 00004
DCMATTN  00001 000080 00021
DCMCLPR  00001 000020 00047
DCMDEVTY 00001 00000F 00023
DCMDOM   00001 000010 00010
DCMFRSRD 00001 000002 00013
DCMINDEX 00001 000004 00005
DCMINTVL 00002 000028 00034
DCMKVIP  00001 000040 00046
DCMLEN   00002 000006 00015
DCMMOD   00001 000004 00012
DCMMSGSV 00004 000020 00032
DCMNIPP  00001 000008 00011
DCMOPNSV 00001 000040 00022
DCMREAD  00001 000080 00007
DCMRESTA 00001 00000E 00020
DCMRFLGS 00001 000005 00006
DCMRMS   00001 000014 00027
DCMRMSAL 00002 00001C 00030
DCMRXDCM 00001 000001 00043
DCMRXDEL 00001 000008 00041
DCMRXRLL 00001 000010 00040
DCMRXSCN 00001 000010 00048
DCMRXSFL 00001 000080 00037
DCMRXTIM 00001 000002 00042
DCMRXTMR 00001 000020 00039
DCMRXUNV 00001 000040 00038
DCMR2FLG 00001 00002C 00036
DCMR3FLG 00001 00002D 00044
DCMSRCH  00001 000001 00014
DCMSTSWT 00001 000080 00045
DCMTMCTR 00002 00002A 00035
DCMTOPAR 00001 00000C 00018
DCMTOPDS 00001 00000D 00019
DCMTYPE  00001 000040 00008
DCMTY50  00001 000040 00025
DCMTY60  00001 000080 00024
DCMWLAST 00004 000018 00029
DCMWRITE 00001 000020 00009
IEECVH1  00001 000000 00002



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     6      SOURCE RECORDS (SYSLIB) =   207
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  116 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM15.R0000119      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM15.S0000120      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM15.S0000120      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG16    / START 78240.1945
IEF374I STEP /SG16    / STOP  78240.1945 CPU   0MIN 00.14SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:10.80   ALLOC START    19:45:10.81   MAIN REGION ----- 300K                          *
*   STEP NAME SG16       STEP END TIME  19:45:11.17   PGM START TIME 19:45:10.88   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.37   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.14   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 6       0250 ------------ 0       0250 ------------ 0       0151 ----------- 13       0151 ----------- 11    *
*   0151 ----------- 14       0130 ----------- 15       0151 ------------ 5       0130 ------------ 8                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM15  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:11.19   ALLOC START    19:45:11.21   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:11.23   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM15 / START 78240.1945
IEF376I  JOB /R21AM15 / STOP  78240.1945 CPU   0MIN 00.14SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM15    JOB READ TIME 19:44:49.16   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.14   *
*   JOB CLASS A          JOB INIT TIME 19:45:10.80   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.44   *
*   ACCOUNT              JOB END TIME  19:45:11.24   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       1          66                              A
            RRRRRRRRR  222222222      11        AAA     MM     MM      11         66                              AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     111        66                              AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM      11       66                              AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      11      6666666                         AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      11     666666666                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM      11     66     66                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM      11     66     66                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM    111111   666666666                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    111111    6666666                         AA     AA

***********A  START   R21AM16    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM16    START  A***********
***********A  START   R21AM16    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM16    START  A***********
***********A  START   R21AM16    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM16    START  A***********
***********A  START   R21AM16    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM16    START  A***********
***********A  START   R21AM16    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM16    START  A***********


//R21AM16 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG17 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEECVR2)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM16  SG17
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEECVR2   SD  01 000000 000A98
IEECVSUB  ER  02
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 IEECVR2 CSECT
000000 0000000000000000               3      DC   3D'0'
000018 00000000                       4  DC  V(IEECVSUB)
00001C 00000000                       5  DC  F'0'
                                      6             IEECHCB USE=FC
                                      7+*   DCM FOR 3277 MOD 2
                                      8+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                      9+*                                                                     *
                                     10+*                         WORK AND SAVE AREAS                         *
                                     11+*                                                                     *
                                     12+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000020                               13+DCMSTART DS    0F FULL WORD ALLIGNMENT
000020 0A78                          14+         DC    AL2(DCMEND-DCMSTART) DCM LENGTH
000022 08DA                          15+DCMRELOC DC    AL2(DCMENTRY-DCMSTART) ADCON RELOCATE VALUE




000024 00                            17+DCMFLG1  DC    X'00' DCM AREA INDICATORS


000010                               19+DCMQUE   EQU   X'10' QUEUE THIS DCM FOR WRITE
000002                               20+DCMOUTPT EQU   X'02' DCM UPDATED FOR OUTPUT ONLY
000001                               21+DCMUSED  EQU   X'01' DCM HAS BEEN ASSIGNED




000025 00                            23+DCMATI   DC    X'00' SAVED UCB ATTN INDEX       MH A55058
000026 0000                          24+         DC    FL2'0' RESERVED                   MH A55058


000028 00000852                      26+DCMWTINT DC    A(DCMBLNK1) INIT FOR DCMWTBUF INPUT/OUTPUT
00002C                               27+DCMLNCNT DS    H NUMBER OF LINES TO BLANK   MH A53462
00002E 00                            28+DCMLNNUM DC    X'00' FIRST LINE TO BLANK        MH A53462
00002F 00                            29+         DC    X'00' RESERVED                   MH A53462
000030                               30+         DS    0D BOUNDRY ALIGNMENT          MH A53462
000030 00000000                      31+DCMPACK  DC    F'0' AREA TO PLACE NUMBER FOR PACKING
000034 00000000                      32+DCMCVBIN DC    F'0' AREA FOR CONVERSION TO BINARY


000038 00                            34+DCMTIMES DC    X'00' TIME RTNS INDICATOR BYTE


000080                               36+DCMTIMER EQU   X'80' TIME ELAPSED FOR THIS DISPLAY
000040                               37+DCMOPTTI EQU   X'40' OPTIONS TO TI RTN
000020                               38+DCMGROLL EQU   X'20' DISPLAY READY TO ROLL
000010                               39+DCMOTTMM EQU   X'10' OPTIONS OR TI RTNS TO MSG MODULE
000008                               40+DCMSTTMR EQU   X'08' STIMER SHOULD BE ISSUED
000004                               41+DCMTASYN EQU   X'04' TIMER SET FOR ASYNC ERROR MSG
000002                               42+DCMOCTTI EQU   X'02' OPEN-CLOSE TO TI RTN
000001                               43+DCMRMTTI EQU   X'01' ROLL MODE TO TIMER ROUTINE
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000039 00
00003A 007D                          45+DCMELGN  DC    H'125' ENTRY AREA LAST CHARACTER POINTER


00003C 00000000                      47+DCMBUFAD DC    F'0' POINTER TO BUFFER ADDRESS TABLE
000040 000009F0                      48+DCMDOMPK DC    A(DCMDOM1) ADDRESS OF FIRST DOM NUMBER
000044 00000A4C                      49+DCMAMTAB DC    A(DCMMSG1) ADDRESS OF FIRST SCT ENTRY
000048 00000A7B                      50+DCMADSEC DC    A(DCMSEC1) ADDRESS OF FIRST SSCT ENTRY
00004C 00000A70                      51+DCMADDRL DC    A(DCMMSG19) ADDRESS OF LAST SCT ENTRY
000050 00000216                      52+DCMASCRN DC    A(DCMMFRST) POINTER TO SCREEN IMAGE BUFFER
000054 000007FE                      53+DCMLSCRN DC    A(DCMLN18) POINTER TO LAST BUFFER LINE
000058 00000852                      54+DCMWTBUF DC    A(DCMBLNK1) SCREEN LENGTH POINTER
00005C 000008A6                      55+DCMAINS  DC    A(DCMINSTR) POINTER TO INSTRUCTION LINE
000060 000008FA                      56+DCMAENTR DC    A(DCMENTRY) POINTER TO ENTRY AREA
000064 000009A2                      57+DCMAWARN DC    A(DCMWARN) POINTER TO WARNING LINE
000068 00000178                      58+DCMADCHP DC    A(DCMCHPGM) ADDRESS OF CHANNEL PROGRAM AREA
00006C 0000084C                      59+DCMPFKLN DC    A(DCMPFKAR) POINTER TO PFK LINE
000070 00000000                      60+DCMCXSVE DC    F'0' CXSA SAVE AREA
000074 00000000                      61+DCMADOPN DC    F'0' ADDRESS OF COMMAND OPERAND
000078 0000000000000000              62+DCMDSAV  DC    5F'0' SAVE AND WORK AREA


                                     64+*           INPUT BUFFER FOR ISSUING SVC 34 AND SVC 35                *
                                     65+*           FIELDS DCMWQEXP THROUGH DCMINPUT MUST REMAIN IN ORDER     *
00008C                               66+DCMWQEXP DS    0F ENSURE FULL WORD BOUNDARY
00008C 0000                          67+DCMINLGN DC    H'0' FIELD FOR INPUT LENGTH
00008E 0000                          68+DCMMCSFL DC    H'0' MCS FLAGS FIELD
000090 0000000000000000              69+DCMINPUT DC    32F'0' INPUT MESSAGE TEXT


000110 4040404040404040              71+DCMRQDEL DC    8X'40' BUFFER FOR PENDING DELETE REQUESTS


000118 004E                          73+DCMLGNTH DC    H'78' LENGTH OF ANR-19 DCM LINE
00011A 0000                          74+DCMBAINC DC    H'0' ADDRESS TO INSERT CURSOR
00011C 0000                          75+DCMIRCTR DC    H'0' INTERVENTION REQ'D MSG COUNTER
00011E 0000                          76+DCMBADLN DC    H'0' BUFFER ADDR TO BEGIN MSG WRITE
000120 0000                          77+DCMBYTCT DC    H'0' NUMBER OF BYTES TO WRITE
000122 0000                          78+DCMADNUM DC    H'0' NEXT LINE NUMBER
000124 004B                          79+DCMAXLGN DC    H'75' MAXIMUM LINE LENGTH ON SCREEN
000126 0013                          80+DCMMSGAL DC    H'19' NUMBER OF LINES IN MESSAGE AREA
000128 0000                          81+DCMRMINC DC    H'0' 3277 INCREMENT INTO RMI
00012A 0002                          82+DCMSCTCN DC    H'2' LENGTH OF ONE SCT ENTRY
00012C 0054                          83+DCMCORLN DC    H'84' LENGTH OF DCM LINE IN CORE
00012E 0000                          84+         DC    H'0' FORMER DCMTMCTR
000130 FF                            85+DCMPFKNM DC    X'FF' NUMBER OF KEY BEING PROCESSED
000131 FF                            86+DCMPFKKN DC    X'FF' LIST KEY NUMBER


                                     88+*        THIS LINE DELETED BY -------------------------------- @TMVT803
000132 D540                          89+DCMDEL   DC    C'N ' DEL VALUE                   @TMVT803
000134 D5                            90+DCMCON   DC    C'N' CON VALUE                   @TMVT803
000135 13                            91+DCMSEG   DC    FL1'19' SEG VALUE
000136 08                            92+DCMDL    DC    FL1'8' DISPLAY AREA OPTION
000137 01                            93+DCMRNUM  DC    FL1'1' ROLL NUMBER INITIAL VALUE   @TMVT803
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000138 0001                          94+DCMRTME  DC    H'1' ROLL TIME VALUE             @TMVT803


                                     96+*  DEFAULT VALUES FOR OPTIONS
00013A 13                            97+DCMSEGDF DC    FL1'19' SEG DEFAULT
00013B 01                            98+DCMRNUMD DC    FL1'1' RNUM DEFAULT                @TMVT803
00013C 0001                          99+DCMRTMED DC    H'1' RTME DEFAULT                @TMVT803


00013E 7D                           101+DCMASKEN DC    X'7D' 3277 ENTER MASK
00013F 6E                           102+DCMASKCN DC    X'6E' 3277 CANCEL MASK
000140 00                           103+DCMASKCR DC    X'00' NOT USED FOR 3277
000141 7E                           104+DCMASKLP DC    X'7E' 3277 LIGHT PEN MASK
000142 70                           105+DCMASKPF DC    X'70' 3277 PFK MASK
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    107+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                    108+*                                                                     *
                                    109+*                         COMMUNICATIONS AREA                         *
                                    110+*                                                                     *
                                    111+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *




000143 60                           113+DCMOPTST DC    X'60' SCREEN CONTROL OPTIONS      @TMVT803


000080                              115+DCMOPTVR EQU   X'80' DELETE VERIFICATION  CON=(Y=1,N=0)
000040                              116+DCMOPTAD EQU   X'40' AUTOMATIC DELETION   DEL=(Y=1,N=0)
000020                              117+DCMOPTSG EQU   X'20' DEFAULT SEGMENT SPECIFIED  SEG=(0=0)
000010                              118+DCMOPRLL EQU   X'10' ROLL MODE  (Y=1,N=0)




000144 40                           120+DCMCS    DC    X'40' OPEN/CLOSE REQUEST


000080                              122+DCMCSC   EQU   X'80' CLOSE REQUEST
000040                              123+DCMCSO   EQU   X'40' OPEN REQUEST




000145 00                           125+DCMUTILT DC    X'00' RESERVED


000080                              127+DCMUTILA EQU   X'80' THESE BITS ARE
000040                              128+DCMUTILB EQU   X'40' INITIALIZED AND USED
000020                              129+DCMUTILC EQU   X'20' SOLELY WITHIN
000010                              130+DCMUTILD EQU   X'10' EACH MODULE
000008                              131+DCMUTILE EQU   X'08' THEY ARE NEVER
000004                              132+DCMUTILF EQU   X'04' USED FOR INTERFACE
000002                              133+DCMTEST1 EQU   X'02' FOR TESTING
000001                              134+DCMTEST2 EQU   X'01' FOR TESTING




000146 00                           136+DCMDSTAT DC    X'00' CURRENT DISPLAY STATUS


000080                              138+DCMDSTFL EQU   X'80' FULL SCREEN
000040                              139+DCMUNVW  EQU   X'40' UNVIEWABLE MSG MSG WRITTEN TO SCRN
000020                              140+DCMDSTNM EQU   X'20' MESSAGES ARE NUMBERED
000010                              141+DCMDSTNH EQU   X'10' MSGS NUMBERED - HOLD OPTION
000008                              142+DCMDSINR EQU   X'08' INTERVENTION REQ'D DELETION TRIED
000004                              143+DCMDSAUT EQU   X'04' AUTOMATIC DELETION TRIED
                                                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000147 00                           145+DCMMCSST DC    X'00' MCS INTERFACE BYTE


000080                              147+DCMDUSE  EQU   X'80' OUR SUPPORT IN CONTROL
000040                              148+DCMNOHRD EQU   X'40' NO HARD COPY MESSAGE WRITTEN
000004                              149+DCMOOMSS EQU   X'04' MESSAGE STREAM ENTRY
000001                              150+DCMOOSDS EQU   X'01' STATUS DISPLAY ENTRY




000148 0C                           152+DCMIOUNQ DC    X'0C' UNIQUE I/O BYTE


                                    154+*  UNIQUE INTERFACE BITS FOR 2260
000080                              155+DCMIO226 EQU   X'80' RMI PERFORMED
000040                              156+DCMRPCUR EQU   X'40' ADVANCE CURSOR TO BLANKS
000020                              157+DCMFRSCN EQU   X'20' PUT OUTPUT IN HOLD MODE
                                    158+*  UNIQUE INTERFACE BITS FOR 2250
000010                              159+DCMRDARM EQU   X'10' PERFORM READ AFTER RMI
000008                              160+DCMW2250 EQU   X'08' DEVICE HAS LIGHT PEN
000004                              161+DCMINNOR EQU   X'04' NORMAL INSTRUCTION LINE
000002                              162+DCMINERR EQU   X'02' ERROR INSTRUCTION LINE




000149 00                           164+DCMIOCM1 DC    X'00' IO COMMUNICATIONS BYTE 1


000080                              166+DCMDORMI EQU   X'80' ISSUE RMI
000040                              167+DCMSOUND EQU   X'40' SOUND ALARM
000020                              168+DCMWRWRN EQU   X'20' WRITE WARNING LINE
000010                              169+DCMWRMSG EQU   X'10' WRITE FULL MESSAGE AREA
000008                              170+DCMWRPAR EQU   X'08' WRITE PARTIAL MESSAGE AREA
000004                              171+DCMWRINS EQU   X'04' WRITE INSTRUCTION LINE
000002                              172+DCMWRENT EQU   X'02' WRITE ENTRY AREA
000001                              173+DCMINSC  EQU   X'01' INSERT CURSOR




00014A 00                           175+DCMIOCM2 DC    X'00' IO COMMUNICATIONS BYTE 2


000080                              177+DCMBLENT EQU   X'80' BLANK ENTRY AREA
000040                              178+DCMBLWRL EQU   X'40' BLANK LEFT HALF WARNING LINE
000020                              179+DCMBLWRR EQU   X'20' BLANK RIGHT HALF WARNING LINE
000010                              180+DCMINSSH EQU   X'10' INIT AND SHIFT INSTRUCTION LINE
000008                              181+DCMWINFD EQU   X'08' WRITE INFORMATIONAL DISPLAY
000004                              182+DCMERASE EQU   X'04' PERFORM ERASE
000002                              183+DCMIOCRD EQU   X'02' PERFORM READ (2250,22DOC,3277)
000001                              184+DCMWRASY EQU   X'01' WRITE ASYNC ERROR MSG TO MID-SCREEN
                                                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00014B 00                           186+DCMIOCM3 DC    X'00' IO COMMUNICATIONS BYTE 3
000080                              187+DCMOPRMI EQU   X'80' RMI AFTER OPEN TO UNLOCK KEYBOARD
000040                              188+DCMSSRG  EQU   X'40' SUPPRESS START REGENERATION
000010                              189+DCMWRPFK EQU   X'10' DCM WRITE PFK AREA
000008                              190+DCMPFKAT EQU   X'08' PFK ATTENTION
000004                              191+DCMRDPFK EQU   X'04' PFK AREA READ
000002                              192+DCMACPFK EQU   X'02' TURN PFK LIGHTS OFF
000001                              193+DCMLTPFK EQU   X'01' TURN ALL PFK LIGHTS ON




00014C 00                           195+DCMLINEN DC    X'00' LINE NUMBER TO BEGIN WRITE


00014D 00                           197+DCMCULNO DC    X'00' LINE IN ENTRY AREA TO INSERT CURSOR


00014E 00                           199+DCMPOSCU DC    X'00' POSITION TO INSERT CURSOR




00014F 00                           201+DCMASYNC DC    X'00' ASYN ERROR COMMUNICATIONS/RETRY BYTE


000080                              203+DCMASCAN EQU   X'80' ASYNCHRONOUS ERROR MESSAGE ON SCREEN
000040                              204+DCMASDA  EQU   X'40' RETRY BIT
000020                              205+DCMASIN  EQU   X'20' RETRY BIT
000010                              206+DCMASBA  EQU   X'10' RETRY BIT
000008                              207+DCMASLOG EQU   X'08' LOG ASYNCHRONOUS ERROR
000004                              208+DCMASEQ  EQU   X'04' RETRY BIT                   @SA67421




000150 00                           210+DCMCOM1  DC    X'00' COMMUNICATIONS BYTE


000080                              212+DCMLPENT EQU   X'80' ENTER BY LP OR CURSOR
000040                              213+DCMIOPRD EQU   X'40' READ PERFORMED
000020                              214+DCMCOMRM EQU   X'20' RMI PERFORMED
000010                              215+DCMCOMAU EQU   X'10' PERFORM AUTO DELETE
000008                              216+DCMCOMRD EQU   X'08' PERFORM REGULAR DELETE
000004                              217+DCMCOMNM EQU   X'04' NUMBER MESSAGES
000001                              218+DCMCANCL EQU   X'01' INDICATE CANCEL TO COMMAND ROUTINE




000151 00                           220+DCMCOM2  DC    X'00' COMMUNICATIONS BYTE


000080                              222+DCMCM2I  EQU   X'80' INPUT TO BE PROCESSED
000040                              223+DCMSPLIT EQU   X'40' MSG TO BE SPLIT
                                                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                              224+DCMCOMAR EQU   X'20' ACCEPTED REPLY
000008                              225+DCMERPF  EQU   X'08' ERASE PERF-PROC CAN NOW CLOSE DEVICE
000004                              226+DCMCMIN5 EQU   X'04' RETURN TO INTER 5 FOR BLNK
000002                              227+DCMCBLNK EQU   X'02' BLANKING REQUIRED
000001                              228+DCMAE    EQU   X'01' CLEANUP FPR ASYN ERROR




000152 00                           230+DCMCOM3  DC    X'00' COMMUNICATIONS BYTE


000080                              232+DCMCDSP3 EQU   X'80' DISPLAY 3 COMPLETED WORK
000040                              233+DCMRTPFK EQU   X'40' RETURN TO PFK ROUTINE
000020                              234+DCMVLPFK EQU   X'20' VERIFYING LAST COMMAND
000010                              235+DCMXINT1 EQU   X'10' ENTRY FOR INTERFACE 1 ROUTINE
000008                              236+DCMOLUNV EQU   X'08' O-O-L MSG CAUSED UNVIEW MSG
000002                              237+DCMOLHLD EQU   X'02' OUT-OF-LINE MESSAGES HELD      M1708
000001                              238+DCMCMIN7 EQU   X'01' RETURN TO INTER. 7 FOR BLANK




000153 00                           240+DCMCMSG1 DC    X'00' MSG MODULE COMMUNICATIONS BYTE 1


000080                              242+DCMMSGWT EQU   X'80' MOVE IN MESSAGE WAITING
000040                              243+DCMUNMSG EQU   X'40' MOVE IN UNVIEWABLE MESSAGE
000010                              244+DCMCHOPT EQU   X'10' MOVE IN CHANGE OPTIONS
000008                              245+DCMELONG EQU   X'08' MOVE IN ENTRY TOO LONG
000004                              246+DCMWRCDL EQU   X'04' MOVE IN CON=N,DEL=Y
000002                              247+DCMDELNT EQU   X'02' MOVE IN DEL UNCHANGED, NO TIMER
000001                              248+DCMMNHRD EQU   X'01' MOVE IN NO HARD COPY MESSAGE




000154 00                           250+DCMCMSG2 DC    X'00' MSG MODULE COMMUNICATIONS BYTE 2


000080                              252+DCMDLREQ EQU   X'80' MOVE IN DELETION REQUESTED
000040                              253+DCMRQINC EQU   X'40' MOVE IN REQUEST INCONSISTENT
000020                              254+DCMMSGCR EQU   X'20' MOVE IN INVALID CURSOR OPERATION
000010                              255+DCMINVOP EQU   X'10' MOVE IN INVALID OPERAND
000008                              256+DCMCILLP EQU   X'08' MOVE IN ILLEGAL LP OPERATION
000004                              257+DCMDELRI EQU   X'04' MOVE IN DELETE REQUEST INCONSISTANT
000002                              258+DCMASYRT EQU   X'02' MOVE IN ASYN ERROR RETRYABLE
000001                              259+DCMASYCD EQU   X'01' MOVE IN ASYN ERROR MAYBE RETRYABLE




000155 00                           261+DCMCMSG3 DC    X'00' MSG MODULE COMMUNICATIONS BYTE 3
                                                                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000080                              263+DCMCMRLL EQU   X'80' MOVE IN ROLL MODE MESSAGE
000040                              264+DCMCDLR1 EQU   X'40' NO DELETABLE MESSAGES
000020                              265+DCMCDLR2 EQU   X'20' INVALID RANGE
000010                              266+DCMCDLR3 EQU   X'10' SEG EQU TO ZERO
000008                              267+DCMCDLR4 EQU   X'08' DISPLAY NOT ON SCREEN
000004                              268+DCMCDLR5 EQU   X'04' INVALID OPERAND
000002                              269+DCMNHCIN EQU   X'02' MOVE NO HARD COPY MSG TO INSTR LINE
000001                              270+DCMDTBSY EQU   X'01' COMMAND REJECTED - TASK BUSY




000156 00                           272+DCMCMSG4 DC    X'00' MSG MODULE COMMUNICATIONS BYTE 4


000080                              274+DCMPFKNA EQU   X'80' MOVE IN PFK NOT ALLOCATED FOR
000040                              275+DCMPFKND EQU   X'40' MOVE IN PFK NOT DEFINED
000020                              276+DCMPFKNO EQU   X'20' MOVE IN NO PFK ALLOCATION
000010                              277+DCMPFKIP EQU   X'10' MOVE IN PFK IN PROCESS




000157 00                           279+DCMSVC34 DC    X'00' SVC 34 COMMUNICATION BYTE
000080                              280+DCMMYCMD EQU   X'80' COMMAND TO BE HANDLED BY THIS CONS
000040                              281+DCMINVLD EQU   X'40' INVALID K COMMAND
000020                              282+DCMTYPE1 EQU   X'20' K COMMAND IS NOT ROUTABLE


000158 00                           284+         DC    X'00' RESERVED COMMUNICATION BYTE
                                    285+**                                                                   **
                                    286+*                        MODULE NAMES                                 *
                                    287+**                                                                   **


0000F5                              289+DCMNFIVE EQU   C'5' FOR IGC5 ROUTINES
0000F6                              290+DCMNSIX  EQU   C'6' FOR IGC6 ROUTINES


0000F1                              292+DCMNPRZ  EQU   C'1' PROCESSOR 0 LOAD ONE
0000E9                              293+DCMNPRZZ EQU   C'Z' PROCESSOR 0 LOAD TWO
0000F1                              294+DCMNPROC EQU   C'1' PROCESSOR ROUTINE LOAD ONE
0000E9                              295+DCMNP1L2 EQU   C'Z' PROCESSOR ROUTINE LOAD TWO
0000F2                              296+DCMNDSP1 EQU   C'2' DISPLAY ROUTINE 1
0000F3                              297+DCMNDSP2 EQU   C'3' DISPLAY ROUTINE 2
0000F2                              298+DCMNDSP3 EQU   C'2' DISPLAY ROUTINE 3
0000F4                              299+DCMNCMD1 EQU   C'4' COMMAND ROUTINE 1
0000F5                              300+DCMNHNDK EQU   C'5' K HANDLER ROUTINE
0000F6                              301+DCMNDEL1 EQU   C'6' DELETE ROUTINE 1
0000F7                              302+DCMNDEL2 EQU   C'7' DELETE ROUTINE 2
0000F8                              303+DCMNDEL3 EQU   C'8' DELETE ROUTINE 3
0000F9                              304+DCMNDEL4 EQU   C'9' DELETE ROUTINE 4
0000C1                              305+DCMNOPT1 EQU   C'A' OPTIONS ROUTINE 1
0000C1                              306+DCMNPFK1 EQU   C'A' PFK ROUTINE 1
0000C2                              307+DCMNPFK2 EQU   C'B' PFK ROUTINE 2
                                                                                                               PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000C3                              308+DCMNERRO EQU   C'C' ASYNCHRONOUS ERROR ROUTINE
0000C4                              309+DCMNMSG1 EQU   C'D' MESSAGE ROUTINES 1 AND 3
0000C5                              310+DCMNMSG2 EQU   C'E' MESSAGE ROUTINE 2
0000C6                              311+DCMNLPCR EQU   C'F' LIGHT PEN/CURSOR SERVICE ROUTINE
0000C7                              312+DCMNOPCL EQU   C'G' OPEN-CLOSE ROUTINE
0000C7                              313+DCMNCLN  EQU   C'G' CLEANUP MODULE
0000D1                              314+DCMNROLL EQU   C'J' ROLL MODE ROUTINE
0000D2                              315+DCMNTIMR EQU   C'K' TIMER INTERPRETER ROUTINE
0000D3                              316+DCMNINT1 EQU   C'L' INTERFACE 1 ROUTINE
0000D4                              317+DCMNINT2 EQU   C'M' INTERFACE 2 ROUTINE
0000D5                              318+DCMNINT3 EQU   C'N' INTERFACE 3 ROUTINE
0000D6                              319+DCMNINT4 EQU   C'O' INTERFACE 4 ROUTINE
0000D7                              320+DCMNINT5 EQU   C'P' INTERFACE 5 ROUTINE
0000D8                              321+DCMNINT6 EQU   C'Q' INTERFACE 6 ROUTINE
0000E3                              322+DCMNINT7 EQU   C'T' INTERFACE 7 ROUTINE
000159 E4                           323+DCMIORTN DC    C'U' IO ROUTINE 1 FOR 3277
0000D8                              324+DCMNIRT2 EQU   C'Q' IO ROUTINE FOR 2250 2
0000E5                              325+DCMIOR2  EQU   C'V' IO ROUTINE 2 FOR 3277      MB




00015A 0000                         327+DCMTEST  DC    H'0' RESERVED FOR TESTING




00015C 11D7F0                       329+DCMPFKC  DC    X'11D7F0' SBA-A1-A2 FOR PFK LINE
000160                              330+         DS    0D PADDING





000160 00                           332+DCMWCC   DC    X'00' WRITE CONTROL CHARACTER
000161 114B503C4B5040               333+DCMERSDT DC    X'114B503C4B5040' ERASE SCREEN DATA
                                    334+*                                  (SBA-A1-A2-RA-A1-A2-BLANK)
000168 11404013                     335+DCMCRSDT DC    X'11404013' INSERT CURSOR DATA
                                    336+*                                  (SBA-A1-A2-IC)








000170                              338+         DS    0D
000170 0B00000040000001             339+DCMCCWS  CCW   SELECT,0,COMCHAN,1 SELECT CCW
00000B                              340+SELECT   EQU   X'0B' SELECT COMMAND CODE
000040                              341+COMCHAN  EQU   X'40' COMMAND CHAINING FLAG
000178 0000000000000000             342+DCMCHPGM DC    38F'0' CHANNEL PROGRAM AREA
                                                                                                               PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    344+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                    345+*                                                                     *
                                    346+*                         SCREEN IMAGE BUFFER                         *
                                    347+*                                                                     *
                                    348+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000210                              349+         DS    0F
000210 1140401DE440                 350+DCMSTRT  DC    X'1140401DE440' SBA-A1-A2-SF-AT-DE
000216                              351+DCMLN00  EQU   *
000216                              352+DCMMFRST EQU   *
000216 40404040                     353+         DC    4C' '
00021A 0000000000000000             354+         DC    74X'00'
000264 11C1501DE440                 355+         DC    X'11C1501DE440' SBA-A1-A2-SF-AT-DE
00026A 40404040                     356+DCMLN01  DC    4C' ' LINE NUMBER AND FLAGS
00026E 0000000000000000             357+         DC    74X'00' TEXT OF LINE
0002B8 11C2601DE440                 358+         DC    X'11C2601DE440' SBA-A1-A2-SF-AT-DE
0002BE 40404040                     359+DCMLN02  DC    4C' ' LINE NUMBER AND FLAGS
0002C2 0000000000000000             360+         DC    74X'00' TEXT OF LINE
00030C 11C3F01DE440                 361+         DC    X'11C3F01DE440' SBA-A1-A2-SF-AT-DE
000312 40404040                     362+DCMLN03  DC    4C' ' LINE NUMBER AND FLAGS
000316 0000000000000000             363+         DC    74X'00' TEXT OF LINE
000360 11C5401DE440                 364+         DC    X'11C5401DE440' SBA-A1-A2-SF-AT-DE
000366 40404040                     365+DCMLN04  DC    4C' ' LINE NUMBER AND FLAGS
00036A 0000000000000000             366+         DC    74X'00' TEXT OF LINE
0003B4 11C6501DE440                 367+         DC    X'11C6501DE440' SBA-A1-A2-SF-AT-DE
0003BA 40404040                     368+DCMLN05  DC    4C' ' LINE NUMBER AND FLAGS
0003BE 0000000000000000             369+         DC    74X'00' TEXT OF LINE
000408 11C7601DE440                 370+         DC    X'11C7601DE440' SBA-A1-A2-SF-AT-DE
00040E 40404040                     371+DCMLN06  DC    4C' ' LINE NUMBER AND FLAGS
000412 0000000000000000             372+         DC    74X'00' TEXT OF LINE
00045C 11C8F01DE440                 373+         DC    X'11C8F01DE440' SBA-A1-A2-SF-AT-DE
000462 40404040                     374+DCMLN07  DC    4C' ' LINE NUMBER AND FLAGS
000466 0000000000000000             375+         DC    74X'00' TEXT OF LINE
0004B0 114A401DE440                 376+         DC    X'114A401DE440' SBA-A1-A2-SF-AT-DE
0004B6 40404040                     377+DCMLN08  DC    4C' ' LINE NUMBER AND FLAGS
0004BA 0000000000000000             378+         DC    74X'00' TEXT OF LINE
000504 114B501DE440                 379+         DC    X'114B501DE440' SBA-A1-A2-SF-AT-DE
00050A 40404040                     380+DCMLN09  DC    4C' ' LINE NUMBER AND FLAGS
00050E 0000000000000000             381+         DC    74X'00' TEXT OF LINE
000558 114C601DE440                 382+         DC    X'114C601DE440' SBA-A1-A2-SF-AT-DE
00055E 40404040                     383+DCMLN10  DC    4C' ' LINE NUMBER AND FLAGS
000562 0000000000000000             384+         DC    74X'00' TEXT OF LINE
0005AC 114DF01DE440                 385+         DC    X'114DF01DE440' SBA-A1-A2-SF-AT-DE
0005B2 40404040                     386+DCMLN11  DC    4C' ' LINE NUMBER AND FLAGS
0005B6 0000000000000000             387+         DC    74X'00' TEXT OF LINE
000600 114F401DE440                 388+         DC    X'114F401DE440' SBA-A1-A2-SF-AT-DE
000606 40404040                     389+DCMLN12  DC    4C' ' LINE NUMBER AND FLAGS
00060A 0000000000000000             390+         DC    74X'00' TEXT OF LINE
000654 1150501DE440                 391+         DC    X'1150501DE440' SBA-A1-A2-SF-AT-DE
00065A 40404040                     392+DCMLN13  DC    4C' ' LINE NUMBER AND FLAGS
00065E 0000000000000000             393+         DC    74X'00' TEXT OF LINE
0006A8 11D1601DE440                 394+         DC    X'11D1601DE440' SBA-A1-A2-SF-AT-DE
0006AE 40404040                     395+DCMLN14  DC    4C' ' LINE NUMBER AND FLAGS
0006B2 0000000000000000             396+         DC    74X'00' TEXT OF LINE
0006FC 11D2F01DE440                 397+         DC    X'11D2F01DE440' SBA-A1-A2-SF-AT-DE
000702 40404040                     398+DCMLN15  DC    4C' ' LINE NUMBER AND FLAGS
                                                                                                               PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000706 0000000000000000             399+         DC    74X'00' TEXT OF LINE
000750 11D4401DE440                 400+         DC    X'11D4401DE440' SBA-A1-A2-SF-AT-DE
000756 40404040                     401+DCMLN16  DC    4C' ' LINE NUMBER AND FLAGS
00075A 0000000000000000             402+         DC    74X'00' TEXT OF LINE
0007A4 11D5501DE440                 403+         DC    X'11D5501DE440' SBA-A1-A2-SF-AT-DE
0007AA 40404040                     404+DCMLN17  DC    4C' ' LINE NUMBER AND FLAGS
0007AE 0000000000000000             405+         DC    74X'00' TEXT OF LINE
0007F8 11D6601DE440                 406+         DC    X'11D6601DE440' SBA-A1-A2-SF-AT-DE
0007FE                              407+DCMMLAST EQU   *
0007FE 40404040                     408+DCMLN18  DC    4C' ' LINE NUMBER AND FLAGS
000802 0000000000000000             409+         DC    74X'00' TEXT OF LINE
00084C 000000000000                 410+DCMPFKAR DC    X'000000000000' DUMMY SBA-A1-A2-SF-AT-DE
000852                              411+DCMBLNK1 EQU   *
000852 40404040                     412+DCMLN19  DC    4C' ' LINE NUMBER AND FLAGS
000856 0000000000000000             413+         DC    74X'00' TEXT OF LINE
0008A0 11D9401D6040                 414+         DC    X'11D9401D6040' SBA-A1-A2-SF-AT-DE
0008A6                              415+DCMINSTR EQU   *
0008A6 40404040                     416+DCMLN20  DC    4C' ' LINE NUMBER AND FLAGS
0008AA 0000000000000000             417+         DC    74X'00' TEXT OF LINE
0008F4 115A50401DC4                 418+         DC    X'115A50401DC4' SBA-A1-A2-B-SF-AT
0008FA                              419+DCMENTRY EQU   *
0008FA 40404040                     420+DCMLN21  DC    4C' ' LINE NUMBER AND FLAGS
0008FE 0000000000000000             421+         DC    74X'00'
000948 404040404040                 422+         DC    6C' ' DUMMY COMMAND AREA
00094E                              423+DCMENTR2 EQU   *
00094E 40404040                     424+DCMLN22  DC    4C' ' LINE NUMBER AND FLAGS
000952 0000000000000000             425+         DC    74X'00' TEXT OF LINE
00099C 115CF01DE840                 426+         DC    X'115CF01DE840' SBA-A1-A2-SF-AT-DE
0009A2                              427+DCMWARN  EQU   *
0009A2 40404040                     428+DCMLN23  DC    4C' ' LINE NUMBER AND FLAGS
0009A6 0000000000000000             429+         DC    74X'00' TEXT OF LINE
                                                                                                               PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    431+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                    432+*                                                                     *
                                    433+*                     DOM IDENTIFICATION NUMBERS                      *
                                    434+*                                                                     *
                                    435+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0009F0 00000000                     436+DCMDOM1  DC    F'0' DOM NUMBER
0009F4 00000000                     437+DCMDOM2  DC    F'0' DOM NUMBER
0009F8 00000000                     438+DCMDOM3  DC    F'0' DOM NUMBER
0009FC 00000000                     439+DCMDOM4  DC    F'0' DOM NUMBER
000A00 00000000                     440+DCMDOM5  DC    F'0' DOM NUMBER
000A04 00000000                     441+DCMDOM6  DC    F'0' DOM NUMBER
000A08 00000000                     442+DCMDOM7  DC    F'0' DOM NUMBER
000A0C 00000000                     443+DCMDOM8  DC    F'0' DOM NUMBER
000A10 00000000                     444+DCMDOM9  DC    F'0' DOM NUMBER
000A14 00000000                     445+DCMDOM10 DC    F'0' DOM NUMBER
000A18 00000000                     446+DCMDOM11 DC    F'0' DOM NUMBER
000A1C 00000000                     447+DCMDOM12 DC    F'0' DOM NUMBER
000A20 00000000                     448+DCMDOM13 DC    F'0' DOM NUMBER
000A24 00000000                     449+DCMDOM14 DC    F'0' DOM NUMBER
000A28 00000000                     450+DCMDOM15 DC    F'0' DOM NUMBER
000A2C 00000000                     451+DCMDOM16 DC    F'0' DOM NUMBER
000A30 00000000                     452+DCMDOM17 DC    F'0' DOM NUMBER
000A34 00000000                     453+DCMDOM18 DC    F'0' DOM NUMBER
000A38 00000000                     454+DCMDOM19 DC    F'0' DOM NUMBER
000A3C 00000000                     455+DCMDOM20 DC    F'0' DOM NUMBER
000A40 00000000                     456+DCMDOM21 DC    F'0' DOM NUMBER
000A44 00000000                     457+DCMDOM22 DC    F'0' DOM NUMBER
000A48 00000000                     458+DCMDOM23 DC    F'0' DOM NUMBER
                                                                                                               PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    460+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                    461+*                                                                     *
                                    462+*                        SCREEN CONTROL TABLES                        *
                                    463+*                                                                     *
                                    464+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000A4C 00                           465+DCMMSG1  DC    X'00' SCREEN CONTROL ENTRY
000A4D 00                           466+         DC    X'00' SECOND BYTE
000A4E 00                           467+DCMMSG2  DC    X'00' SCREEN CONTROL ENTRY
000A4F 00                           468+         DC    X'00' SECOND BYTE
000A50 00                           469+DCMMSG3  DC    X'00' SCREEN CONTROL ENTRY
000A51 00                           470+         DC    X'00' SECOND BYTE
000A52 00                           471+DCMMSG4  DC    X'00' SCREEN CONTROL ENTRY
000A53 00                           472+         DC    X'00' SECOND BYTE
000A54 00                           473+DCMMSG5  DC    X'00' SCREEN CONTROL ENTRY
000A55 00                           474+         DC    X'00' SECOND BYTE
000A56 00                           475+DCMMSG6  DC    X'00' SCREEN CONTROL ENTRY
000A57 00                           476+         DC    X'00' SECOND BYTE
000A58 00                           477+DCMMSG7  DC    X'00' SCREEN CONTROL ENTRY
000A59 00                           478+         DC    X'00' SECOND BYTE
000A5A 00                           479+DCMMSG8  DC    X'00' SCREEN CONTROL ENTRY
000A5B 00                           480+         DC    X'00' SECOND BYTE
000A5C 00                           481+DCMMSG9  DC    X'00' SCREEN CONTROL ENTRY
000A5D 00                           482+         DC    X'00' SECOND BYTE
000A5E 00                           483+DCMMSG10 DC    X'00' SCREEN CONTROL ENTRY
000A5F 00                           484+         DC    X'00' SECOND BYTE
000A60 00                           485+DCMMSG11 DC    X'00' SCREEN CONTROL ENTRY
000A61 00                           486+         DC    X'00' SECOND BYTE
000A62 00                           487+DCMMSG12 DC    X'00' SCREEN CONTROL ENTRY
000A63 00                           488+         DC    X'00' SECOND BYTE
000A64 00                           489+DCMMSG13 DC    X'00' SCREEN CONTROL ENTRY
000A65 00                           490+         DC    X'00' SECOND BYTE
000A66 00                           491+DCMMSG14 DC    X'00' SCREEN CONTROL ENTRY
000A67 00                           492+         DC    X'00' SECOND BYTE
000A68 00                           493+DCMMSG15 DC    X'00' SCREEN CONTROL ENTRY
000A69 00                           494+         DC    X'00' SECOND BYTE
000A6A 00                           495+DCMMSG16 DC    X'00' SCREEN CONTROL ENTRY
000A6B 00                           496+         DC    X'00' SECOND BYTE
000A6C 00                           497+DCMMSG17 DC    X'00' SCREEN CONTROL ENTRY
000A6D 00                           498+         DC    X'00' SECOND BYTE
000A6E 00                           499+DCMMSG18 DC    X'00' SCREEN CONTROL ENTRY
000A6F 00                           500+         DC    X'00' SECOND BYTE
000A70 00                           501+DCMMSG19 DC    X'00' SCREEN CONTROL ENTRY
000A71 00                           502+         DC    X'00' SECOND BYTE
000A72 00                           503+DCMMSG20 DC    X'00' SCREEN CONTROL ENTRY
000A73 00                           504+         DC    X'00' SECOND BYTE
000A74 00                           505+DCMMSG21 DC    X'00' SCREEN CONTROL ENTRY
000A75 00                           506+         DC    X'00' SECOND BYTE
000A76 00                           507+DCMMSG22 DC    X'00' SCREEN CONTROL ENTRY
000A77 00                           508+         DC    X'00' SECOND BYTE
000A78 00                           509+DCMMSG23 DC    X'00' SCREEN CONTROL ENTRY
000A79 00                           510+         DC    X'00' SECOND BYTE
000A7A 00                           511+         DC    X'00' OUTPUT ONLY STOPPER LOCATION
000A72                              512+         ORG   DCMMSG19+2 INSERT CORRECT STOPPER
000A72 01                           513+DCMMSGND DC    X'01' STOPPER FOR SCT
000A7B                              514+         ORG
                                                                                                               PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    516+*  SECONDARY SCREEN CONTROL TABLE
000A7B 00                           517+DCMSEC1  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A7C 00                           518+DCMSEC2  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A7D 00                           519+DCMSEC3  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A7E 00                           520+DCMSEC4  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A7F 00                           521+DCMSEC5  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A80 00                           522+DCMSEC6  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A81 00                           523+DCMSEC7  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A82 00                           524+DCMSEC8  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A83 00                           525+DCMSEC9  DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A84 00                           526+DCMSEC10 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A85 00                           527+DCMSEC11 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A86 00                           528+DCMSEC12 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A87 00                           529+DCMSEC13 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A88 00                           530+DCMSEC14 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A89 00                           531+DCMSEC15 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A8A 00                           532+DCMSEC16 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A8B 00                           533+DCMSEC17 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A8C 00                           534+DCMSEC18 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A8D 00                           535+DCMSEC19 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A8E 00                           536+DCMSEC20 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A8F 00                           537+DCMSEC21 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A90 00                           538+DCMSEC22 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A91 00                           539+DCMSEC23 DC    X'00' SECONDARY SCREEN CONTROL ENTRY
000A92 00                           540+         DC    X'00' OUTPUT ONLY STOPPER LOCATION
000A8E                              541+         ORG   DCMSEC19+1 INSERT CORRECT STOPPER
000A8E 01                           542+DCMSECND DC    X'01' STOPPER FOR SSCT
000A93                              543+         ORG


                                    545+*  FIRST BYTE OF SCT ENTRIES
000080                              546+DCMMSGWR EQU   X'80' WTOR MESSAGE DISPLAYED IN LINE
000040                              547+DCMMSGIN EQU   X'40' MESSAGE DISPLAYED IN LINE
000020                              548+DCMMSGCN EQU   X'20' MESSAGE CONTINUED ON NEXT LINE
000010                              549+DCMMSGJK EQU   X'10' TO WRITE OUT-OF-LINE DISPLAY FROM
                                    550+*                                  MAY CONTAIN JUNK (SDS INTERFACE 2)
000008                              551+DCMMSGAD EQU   X'08' MESSAGE CAN BE DELETED AUTOMATICALLY
000004                              552+DCMMSGRD EQU   X'04' REQUEST HAS SPECIFIED MSG BE REMOVED
000002                              553+DCMMSGIF EQU   X'02' INFORMATIONAL MESSAGE IN LINE
000001                              554+DCMMSGST EQU   X'01' END OF TABLE INDICATOR


                                    556+*  SECOND BYTE OF SCT ENTRIES
000080                              557+DCMMSGAC EQU   X'80' ACTION MESSAGE
000040                              558+DCMMSGC7 EQU   X'40' DESCRIPTOR CODE 7 MESSAGE
000020                              559+DCMMSGDM EQU   X'20' MESSAGE HAS BEEN DOMMED
000010                              560+DCMMSGAR EQU   X'10' MESSAGE IS AN ACCEPTED REPLY
000008                              561+DCMMSGIR EQU   X'08' INTERVENTION REQUIRED MESSAGE
000004                              562+DCMMSGCT EQU   X'04' CONTINUATION LINE
000002                              563+DCMMSGPP EQU   X'02' ISSUED BY PROBLEM PROGRAM
000001                              564+DCMMSGCL EQU   X'01' CONTROL LINE OF IN LINE MLWTO


                                    566+*  SECONDARY SCT ENTRIES
000080                              567+DCMSECCL EQU   X'80' CONTROL LINE OF OUT OF LINE DISPLAY
                                                                                                               PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000040                              568+DCMSECLL EQU   X'40' LABEL LINE OF OUT OF LINE DISPLAY
000020                              569+DCMSECDL EQU   X'20' DATA LINE OF OUT OF LINE DISPLAY
000010                              570+DCMSECBL EQU   X'10' THIS LINE IS BLANKED
000002                              571+DCMSECDD EQU   X'02' LINE RESERVED FOR DYNAMIC DISPLAY
000001                              572+DCMSECST EQU   X'01' END OF TABLE INDICATOR


                                    574+*  BIT DEFINITIONS FOR DCMSTS BYTES, FOR PFK SUPPORT
000080                              575+DCMPFKDF EQU   X'80' THIS KEY HAS BEEN DEFINED
000040                              576+DCMPFKPR EQU   X'40' PROCESSING OF THIS KEY IN PROGRESS
000020                              577+DCMPFKCN EQU   X'20' KEY SET FOR CONVERSATIONAL MODE
000010                              578+DCMPFKVR EQU   X'10' KEY NOW BEING VERIFIED
000008                              579+DCMPFKKY EQU   X'08' THIS KEY EQUALS A SERIES OF KEYS
000A98                              580+         DS    0D PAD TO DOUBLE WORD
000A98                              581+DCMEND   EQU   *
                                    582  END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000028
   01       01      0C     000040
   01       01      0C     000044
   01       01      0C     000048
   01       01      0C     00004C
   01       01      0C     000050
   01       01      0C     000054
   01       01      0C     000058
   01       01      0C     00005C
   01       01      0C     000060
   01       01      0C     000064
   01       01      0C     000068
   01       01      0C     00006C
   01       02      1C     000018
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

COMCHAN  00001 000040 00341   0339
DCMACPFK 00001 000002 00192
DCMADCHP 00004 000068 00058
DCMADDRL 00004 00004C 00051
DCMADNUM 00002 000122 00078
DCMADOPN 00004 000074 00061
DCMADSEC 00004 000048 00050
DCMAE    00001 000001 00228
DCMAENTR 00004 000060 00056
DCMAINS  00004 00005C 00055
DCMAMTAB 00004 000044 00049
DCMASBA  00001 000010 00206
DCMASCAN 00001 000080 00203
DCMASCRN 00004 000050 00052
DCMASDA  00001 000040 00204
DCMASEQ  00001 000004 00208
DCMASIN  00001 000020 00205
DCMASKCN 00001 00013F 00102
DCMASKCR 00001 000140 00103
DCMASKEN 00001 00013E 00101
DCMASKLP 00001 000141 00104
DCMASKPF 00001 000142 00105
DCMASLOG 00001 000008 00207
DCMASYCD 00001 000001 00259
DCMASYNC 00001 00014F 00201
DCMASYRT 00001 000002 00258
DCMATI   00001 000025 00023
DCMAWARN 00004 000064 00057
DCMAXLGN 00002 000124 00079
DCMBADLN 00002 00011E 00076
DCMBAINC 00002 00011A 00074
DCMBLENT 00001 000080 00177
DCMBLNK1 00001 000852 00411   0026  0054
DCMBLWRL 00001 000040 00178
DCMBLWRR 00001 000020 00179
DCMBUFAD 00004 00003C 00047
DCMBYTCT 00002 000120 00077
DCMCANCL 00001 000001 00218
DCMCBLNK 00001 000002 00227
DCMCCWS  00008 000170 00339
DCMCDLR1 00001 000040 00264
DCMCDLR2 00001 000020 00265
DCMCDLR3 00001 000010 00266
DCMCDLR4 00001 000008 00267
DCMCDLR5 00001 000004 00268
DCMCDSP3 00001 000080 00232
DCMCHOPT 00001 000010 00244
DCMCHPGM 00004 000178 00342   0058
DCMCILLP 00001 000008 00256
DCMCMIN5 00001 000004 00226
DCMCMIN7 00001 000001 00238
DCMCMRLL 00001 000080 00263
DCMCMSG1 00001 000153 00240
DCMCMSG2 00001 000154 00250
DCMCMSG3 00001 000155 00261
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMCMSG4 00001 000156 00272
DCMCM2I  00001 000080 00222
DCMCOMAR 00001 000020 00224
DCMCOMAU 00001 000010 00215
DCMCOMNM 00001 000004 00217
DCMCOMRD 00001 000008 00216
DCMCOMRM 00001 000020 00214
DCMCOM1  00001 000150 00210
DCMCOM2  00001 000151 00220
DCMCOM3  00001 000152 00230
DCMCON   00001 000134 00090
DCMCORLN 00002 00012C 00083
DCMCRSDT 00004 000168 00335
DCMCS    00001 000144 00120
DCMCSC   00001 000080 00122
DCMCSO   00001 000040 00123
DCMCULNO 00001 00014D 00197
DCMCVBIN 00004 000034 00032
DCMCXSVE 00004 000070 00060
DCMDEL   00002 000132 00089
DCMDELNT 00001 000002 00247
DCMDELRI 00001 000004 00257
DCMDL    00001 000136 00092
DCMDLREQ 00001 000080 00252
DCMDOMPK 00004 000040 00048
DCMDOM1  00004 0009F0 00436   0048
DCMDOM10 00004 000A14 00445
DCMDOM11 00004 000A18 00446
DCMDOM12 00004 000A1C 00447
DCMDOM13 00004 000A20 00448
DCMDOM14 00004 000A24 00449
DCMDOM15 00004 000A28 00450
DCMDOM16 00004 000A2C 00451
DCMDOM17 00004 000A30 00452
DCMDOM18 00004 000A34 00453
DCMDOM19 00004 000A38 00454
DCMDOM2  00004 0009F4 00437
DCMDOM20 00004 000A3C 00455
DCMDOM21 00004 000A40 00456
DCMDOM22 00004 000A44 00457
DCMDOM23 00004 000A48 00458
DCMDOM3  00004 0009F8 00438
DCMDOM4  00004 0009FC 00439
DCMDOM5  00004 000A00 00440
DCMDOM6  00004 000A04 00441
DCMDOM7  00004 000A08 00442
DCMDOM8  00004 000A0C 00443
DCMDOM9  00004 000A10 00444
DCMDORMI 00001 000080 00166
DCMDSAUT 00001 000004 00143
DCMDSAV  00004 000078 00062
DCMDSINR 00001 000008 00142
DCMDSTAT 00001 000146 00136
DCMDSTFL 00001 000080 00138
DCMDSTNH 00001 000010 00141
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMDSTNM 00001 000020 00140
DCMDTBSY 00001 000001 00270
DCMDUSE  00001 000080 00147
DCMELGN  00002 00003A 00045
DCMELONG 00001 000008 00245
DCMEND   00001 000A98 00581   0014
DCMENTRY 00001 0008FA 00419   0015  0056
DCMENTR2 00001 00094E 00423
DCMERASE 00001 000004 00182
DCMERPF  00001 000008 00225
DCMERSDT 00007 000161 00333
DCMFLG1  00001 000024 00017
DCMFRSCN 00001 000020 00157
DCMGROLL 00001 000020 00038
DCMINERR 00001 000002 00162
DCMINLGN 00002 00008C 00067
DCMINNOR 00001 000004 00161
DCMINPUT 00004 000090 00069
DCMINSC  00001 000001 00173
DCMINSSH 00001 000010 00180
DCMINSTR 00001 0008A6 00415   0055
DCMINVLD 00001 000040 00281
DCMINVOP 00001 000010 00255
DCMIOCM1 00001 000149 00164
DCMIOCM2 00001 00014A 00175
DCMIOCM3 00001 00014B 00186
DCMIOCRD 00001 000002 00183
DCMIOPRD 00001 000040 00213
DCMIORTN 00001 000159 00323
DCMIOR2  00001 0000E5 00325
DCMIOUNQ 00001 000148 00152
DCMIO226 00001 000080 00155
DCMIRCTR 00002 00011C 00075
DCMLGNTH 00002 000118 00073
DCMLINEN 00001 00014C 00195
DCMLNCNT 00002 00002C 00027
DCMLNNUM 00001 00002E 00028
DCMLN00  00001 000216 00351
DCMLN01  00001 00026A 00356
DCMLN02  00001 0002BE 00359
DCMLN03  00001 000312 00362
DCMLN04  00001 000366 00365
DCMLN05  00001 0003BA 00368
DCMLN06  00001 00040E 00371
DCMLN07  00001 000462 00374
DCMLN08  00001 0004B6 00377
DCMLN09  00001 00050A 00380
DCMLN10  00001 00055E 00383
DCMLN11  00001 0005B2 00386
DCMLN12  00001 000606 00389
DCMLN13  00001 00065A 00392
DCMLN14  00001 0006AE 00395
DCMLN15  00001 000702 00398
DCMLN16  00001 000756 00401
DCMLN17  00001 0007AA 00404
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMLN18  00001 0007FE 00408   0053
DCMLN19  00001 000852 00412
DCMLN20  00001 0008A6 00416
DCMLN21  00001 0008FA 00420
DCMLN22  00001 00094E 00424
DCMLN23  00001 0009A2 00428
DCMLPENT 00001 000080 00212
DCMLSCRN 00004 000054 00053
DCMLTPFK 00001 000001 00193
DCMMCSFL 00002 00008E 00068
DCMMCSST 00001 000147 00145
DCMMFRST 00001 000216 00352   0052
DCMMLAST 00001 0007FE 00407
DCMMNHRD 00001 000001 00248
DCMMSGAC 00001 000080 00557
DCMMSGAD 00001 000008 00551
DCMMSGAL 00002 000126 00080
DCMMSGAR 00001 000010 00560
DCMMSGCL 00001 000001 00564
DCMMSGCN 00001 000020 00548
DCMMSGCR 00001 000020 00254
DCMMSGCT 00001 000004 00562
DCMMSGC7 00001 000040 00558
DCMMSGDM 00001 000020 00559
DCMMSGIF 00001 000002 00553
DCMMSGIN 00001 000040 00547
DCMMSGIR 00001 000008 00561
DCMMSGJK 00001 000010 00549
DCMMSGND 00001 000A72 00513
DCMMSGPP 00001 000002 00563
DCMMSGRD 00001 000004 00552
DCMMSGST 00001 000001 00554
DCMMSGWR 00001 000080 00546
DCMMSGWT 00001 000080 00242
DCMMSG1  00001 000A4C 00465   0049
DCMMSG10 00001 000A5E 00483
DCMMSG11 00001 000A60 00485
DCMMSG12 00001 000A62 00487
DCMMSG13 00001 000A64 00489
DCMMSG14 00001 000A66 00491
DCMMSG15 00001 000A68 00493
DCMMSG16 00001 000A6A 00495
DCMMSG17 00001 000A6C 00497
DCMMSG18 00001 000A6E 00499
DCMMSG19 00001 000A70 00501   0051  0512
DCMMSG2  00001 000A4E 00467
DCMMSG20 00001 000A72 00503
DCMMSG21 00001 000A74 00505
DCMMSG22 00001 000A76 00507
DCMMSG23 00001 000A78 00509
DCMMSG3  00001 000A50 00469
DCMMSG4  00001 000A52 00471
DCMMSG5  00001 000A54 00473
DCMMSG6  00001 000A56 00475
DCMMSG7  00001 000A58 00477
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMMSG8  00001 000A5A 00479
DCMMSG9  00001 000A5C 00481
DCMMYCMD 00001 000080 00280
DCMNCLN  00001 0000C7 00313
DCMNCMD1 00001 0000F4 00299
DCMNDEL1 00001 0000F6 00301
DCMNDEL2 00001 0000F7 00302
DCMNDEL3 00001 0000F8 00303
DCMNDEL4 00001 0000F9 00304
DCMNDSP1 00001 0000F2 00296
DCMNDSP2 00001 0000F3 00297
DCMNDSP3 00001 0000F2 00298
DCMNERRO 00001 0000C3 00308
DCMNFIVE 00001 0000F5 00289
DCMNHCIN 00001 000002 00269
DCMNHNDK 00001 0000F5 00300
DCMNINT1 00001 0000D3 00316
DCMNINT2 00001 0000D4 00317
DCMNINT3 00001 0000D5 00318
DCMNINT4 00001 0000D6 00319
DCMNINT5 00001 0000D7 00320
DCMNINT6 00001 0000D8 00321
DCMNINT7 00001 0000E3 00322
DCMNIRT2 00001 0000D8 00324
DCMNLPCR 00001 0000C6 00311
DCMNMSG1 00001 0000C4 00309
DCMNMSG2 00001 0000C5 00310
DCMNOHRD 00001 000040 00148
DCMNOPCL 00001 0000C7 00312
DCMNOPT1 00001 0000C1 00305
DCMNPFK1 00001 0000C1 00306
DCMNPFK2 00001 0000C2 00307
DCMNPROC 00001 0000F1 00294
DCMNPRZ  00001 0000F1 00292
DCMNPRZZ 00001 0000E9 00293
DCMNP1L2 00001 0000E9 00295
DCMNROLL 00001 0000D1 00314
DCMNSIX  00001 0000F6 00290
DCMNTIMR 00001 0000D2 00315
DCMOCTTI 00001 000002 00042
DCMOLHLD 00001 000002 00237
DCMOLUNV 00001 000008 00236
DCMOOMSS 00001 000004 00149
DCMOOSDS 00001 000001 00150
DCMOPRLL 00001 000010 00118
DCMOPRMI 00001 000080 00187
DCMOPTAD 00001 000040 00116
DCMOPTSG 00001 000020 00117
DCMOPTST 00001 000143 00113
DCMOPTTI 00001 000040 00037
DCMOPTVR 00001 000080 00115
DCMOTTMM 00001 000010 00039
DCMOUTPT 00001 000002 00020
DCMPACK  00004 000030 00031
DCMPFKAR 00006 00084C 00410   0059
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMPFKAT 00001 000008 00190
DCMPFKC  00003 00015C 00329
DCMPFKCN 00001 000020 00577
DCMPFKDF 00001 000080 00575
DCMPFKIP 00001 000010 00277
DCMPFKKN 00001 000131 00086
DCMPFKKY 00001 000008 00579
DCMPFKLN 00004 00006C 00059
DCMPFKNA 00001 000080 00274
DCMPFKND 00001 000040 00275
DCMPFKNM 00001 000130 00085
DCMPFKNO 00001 000020 00276
DCMPFKPR 00001 000040 00576
DCMPFKVR 00001 000010 00578
DCMPOSCU 00001 00014E 00199
DCMQUE   00001 000010 00019
DCMRDARM 00001 000010 00159
DCMRDPFK 00001 000004 00191
DCMRELOC 00002 000022 00015
DCMRMINC 00002 000128 00081
DCMRMTTI 00001 000001 00043
DCMRNUM  00001 000137 00093
DCMRNUMD 00001 00013B 00098
DCMRPCUR 00001 000040 00156
DCMRQDEL 00001 000110 00071
DCMRQINC 00001 000040 00253
DCMRTME  00002 000138 00094
DCMRTMED 00002 00013C 00099
DCMRTPFK 00001 000040 00233
DCMSCTCN 00002 00012A 00082
DCMSECBL 00001 000010 00570
DCMSECCL 00001 000080 00567
DCMSECDD 00001 000002 00571
DCMSECDL 00001 000020 00569
DCMSECLL 00001 000040 00568
DCMSECND 00001 000A8E 00542
DCMSECST 00001 000001 00572
DCMSEC1  00001 000A7B 00517   0050
DCMSEC10 00001 000A84 00526
DCMSEC11 00001 000A85 00527
DCMSEC12 00001 000A86 00528
DCMSEC13 00001 000A87 00529
DCMSEC14 00001 000A88 00530
DCMSEC15 00001 000A89 00531
DCMSEC16 00001 000A8A 00532
DCMSEC17 00001 000A8B 00533
DCMSEC18 00001 000A8C 00534
DCMSEC19 00001 000A8D 00535   0541
DCMSEC2  00001 000A7C 00518
DCMSEC20 00001 000A8E 00536
DCMSEC21 00001 000A8F 00537
DCMSEC22 00001 000A90 00538
DCMSEC23 00001 000A91 00539
DCMSEC3  00001 000A7D 00519
DCMSEC4  00001 000A7E 00520
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMSEC5  00001 000A7F 00521
DCMSEC6  00001 000A80 00522
DCMSEC7  00001 000A81 00523
DCMSEC8  00001 000A82 00524
DCMSEC9  00001 000A83 00525
DCMSEG   00001 000135 00091
DCMSEGDF 00001 00013A 00097
DCMSOUND 00001 000040 00167
DCMSPLIT 00001 000040 00223
DCMSSRG  00001 000040 00188
DCMSTART 00004 000020 00013   0014  0015
DCMSTRT  00006 000210 00350
DCMSTTMR 00001 000008 00040
DCMSVC34 00001 000157 00279
DCMTASYN 00001 000004 00041
DCMTEST  00002 00015A 00327
DCMTEST1 00001 000002 00133
DCMTEST2 00001 000001 00134
DCMTIMER 00001 000080 00036
DCMTIMES 00001 000038 00034
DCMTYPE1 00001 000020 00282
DCMUNMSG 00001 000040 00243
DCMUNVW  00001 000040 00139
DCMUSED  00001 000001 00021
DCMUTILA 00001 000080 00127
DCMUTILB 00001 000040 00128
DCMUTILC 00001 000020 00129
DCMUTILD 00001 000010 00130
DCMUTILE 00001 000008 00131
DCMUTILF 00001 000004 00132
DCMUTILT 00001 000145 00125
DCMVLPFK 00001 000020 00234
DCMWARN  00001 0009A2 00427   0057
DCMWCC   00001 000160 00332
DCMWINFD 00001 000008 00181
DCMWQEXP 00004 00008C 00066
DCMWRASY 00001 000001 00184
DCMWRCDL 00001 000004 00246
DCMWRENT 00001 000002 00172
DCMWRINS 00001 000004 00171
DCMWRMSG 00001 000010 00169
DCMWRPAR 00001 000008 00170
DCMWRPFK 00001 000010 00189
DCMWRWRN 00001 000020 00168
DCMWTBUF 00004 000058 00054
DCMWTINT 00004 000028 00026
DCMW2250 00001 000008 00160
DCMXINT1 00001 000010 00235
IEECVR2  00001 000000 00002
SELECT   00001 00000B 00340   0339
                                                      DIAGNOSTICS                                             PAGE     1


                                                                                                                 8/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     7      SOURCE RECORDS (SYSLIB) =   574
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  990 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM16.R0000121      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM16.S0000122      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM16.S0000122      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG17    / START 78240.1945
IEF374I STEP /SG17    / STOP  78240.1945 CPU   0MIN 00.32SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:11.26   ALLOC START    19:45:11.27   MAIN REGION ----- 300K                          *
*   STEP NAME SG17       STEP END TIME  19:45:11.81   PGM START TIME 19:45:11.35   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.55   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.32   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 15       0250 ------------ 0       0250 ------------ 0       0151 ----------- 31       0151 ----------- 27    *
*   0151 ----------- 34       0353 ---------- 124       0151 ----------- 59       0130 ------------ 9                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM16  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:11.83   ALLOC START    19:45:11.85   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:11.87   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM16 / START 78240.1945
IEF376I  JOB /R21AM16 / STOP  78240.1945 CPU   0MIN 00.32SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM16    JOB READ TIME 19:44:49.23   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.32   *
*   JOB CLASS A          JOB INIT TIME 19:45:11.26   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.62   *
*   ACCOUNT              JOB END TIME  19:45:11.88   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       1     777777777                            A
            RRRRRRRRR  222222222      11        AAA     MM     MM      11     777777777                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     111     77     77                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM      11           77                          AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      11          77                          AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      11         77                           AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM      11        77                            AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM      11        77                            AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM    111111      77                            AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    111111      77                            AA     AA

***********A  START   R21AM17    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM17    START  A***********
***********A  START   R21AM17    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM17    START  A***********
***********A  START   R21AM17    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM17    START  A***********
***********A  START   R21AM17    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM17    START  A***********
***********A  START   R21AM17    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM17    START  A***********


//R21AM17 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG18 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEECVH2)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM17  SG18
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEECVH2   SD  01 000000 000030
IEECVR2   ER  02
SUBAN48   ER  03
IEECVK2   ER  04
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 IEECVH2   CSECT
                                      3       IEECRDCM DEV=E,                                            CCCCCCCCCCC
                                                       KEY=IEECVK2,                                      CCCCCCCCCCC
                                                       A=(14,                                               CATCHALL
                                                       ),                                                    XXXXXXXX
                                                       T=R2
000000 00000000                       4+DCMADTRN DC    V(IEECVR2) POINTER TO TRANSIENT AREA
000004 00                             5+DCMINDEX DC    FL1'0' DISPLAY CONSOLE INDEX NUMBER
000005 00                             6+DCMRFLGS DC    X'00' FLAGS
000080                                7+DCMREAD  EQU   X'80' DCM READ IN PROCESS
000040                                8+DCMTYPE  EQU   X'40' CONSOLE USES TRANS DCM
000020                                9+DCMWRITE EQU   X'20' DCM WRITE IN PROCESS
000010                               10+DCMDOM   EQU   X'10' DOM MUST BE TRIED
000008                               11+DCMNIPP  EQU   X'08' DCM WAS USED BY NIP
000004                               12+DCMMOD   EQU   X'04' REWRITE FOR PRIOR DOM      MC A63438
000002                               13+DCMFRSRD EQU   X'02' FIRST READ OF DCM
000001                               14+DCMSRCH  EQU   X'01' PROC ZERO ROUTING FLAG
000006 0000                          15+DCMLEN   DC    H'0' LENGTH OF TRANS DCM
000008 00000000                      16+DCMADKP  DC    A(0) ADDRESS OF ROUTED K COMMAND
                                     17+*                                       PARAMETER LIST
00000C 00                            18+DCMTOPAR DC    X'00'
00000D 00                            19+DCMTOPDS DC    X'00' TOP DISPLAY ON SCREEN
00000E 00                            20+DCMRESTA DC    X'00' SPECIAL FLAGS FOR ATTN AND OPEN
000080                               21+DCMATTN  EQU   X'80' ATTENTION STATUS HAS BEEN SAVED
000040                               22+DCMOPNSV EQU   X'40' OPEN STATUS HAS BEEN SAVED
00000F 00                            23+DCMDEVTY DC    X'00' DEVICE TYPE FLAGS
000080                               24+DCMTY60  EQU   X'80' DEVICE IS A 2260
000040                               25+DCMTY50  EQU   X'40' DEVICE IS A 2250
000010 00000000                      26+DCMADSDS DC    F'0' POINTER TO FIRST SDS SUPPORT AREA
000014 03                            27+DCMRMS   DC    X'03' NUMBER OF CCWS TO WRITE
000015 000000                        28+DCMADRMS DC    VL3(SUBAN48) POINTER TO RMS CCWS
000018 00000000                      29+DCMWLAST DC    F'0' PT CON Q ENTRY LAST OUT (O-O-L)
00001C 0000                          30+DCMRMSAL DC    H'0' NUMBER LINES IN MSG AREA
00001E 0000                          31+         DC    H'0' RESERVED
000020 00000000                      32+DCMMSGSV DC    F'0' POINTER TO SAVED NIP MESSAGES
000024 00000000                      33+DCMADPFK DC    V(IEECVK2) POINTER TO RESIDENT PFK AREA
000028 0000                          34+DCMINTVL DC    H'0' INTERVAL FOR THIS DCM
00002A 0000                          35+DCMTMCTR DC    H'0' TIME COUNTER FOR THIS DCM
00002C 00                            36+DCMR2FLG DC    X'00' TIMER FLAGS
000080                               37+DCMRXSFL EQU   X'80' FULL SCREEN FLAG
000040                               38+DCMRXUNV EQU   X'40' UNVIEWABLE MESSAGE DISPLAYED
000020                               39+DCMRXTMR EQU   X'20' TIMER FLAG
000010                               40+DCMRXRLL EQU   X'10' READY TO ROLL
000008                               41+DCMRXDEL EQU   X'08' PENDING DELETE REQUEST
000002                               42+DCMRXTIM EQU   X'02' TIMER ELAPSED FOR THIS DISPLAY
000001                               43+DCMRXDCM EQU   X'01' T DCM IS IN CORE
00002D 00                            44+DCMR3FLG DC    X'00' MISC FLAGS
000080                               45+DCMSTSWT EQU   X'80' CHANGING STATUS OF OUTPUT ONLY CON
000040                               46+DCMKVIP  EQU   X'40' ENTRY FOR K VARY COMMAND
000020                               47+DCMCLPR  EQU   X'20' CLOSE IN PROCESS
000010                               48+DCMRXSCN EQU   X'10' ASY ERROR MESSAGE ON SCREEN
00002E 0000                          49+         DC    XL2'0' RESERVED
                                     50  END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       02      1C     000000
   01       03      18     000015
   01       04      1C     000024
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCMADKP  00004 000008 00016
DCMADPFK 00004 000024 00033
DCMADRMS 00003 000015 00028
DCMADSDS 00004 000010 00026
DCMADTRN 00004 000000 00004
DCMATTN  00001 000080 00021
DCMCLPR  00001 000020 00047
DCMDEVTY 00001 00000F 00023
DCMDOM   00001 000010 00010
DCMFRSRD 00001 000002 00013
DCMINDEX 00001 000004 00005
DCMINTVL 00002 000028 00034
DCMKVIP  00001 000040 00046
DCMLEN   00002 000006 00015
DCMMOD   00001 000004 00012
DCMMSGSV 00004 000020 00032
DCMNIPP  00001 000008 00011
DCMOPNSV 00001 000040 00022
DCMREAD  00001 000080 00007
DCMRESTA 00001 00000E 00020
DCMRFLGS 00001 000005 00006
DCMRMS   00001 000014 00027
DCMRMSAL 00002 00001C 00030
DCMRXDCM 00001 000001 00043
DCMRXDEL 00001 000008 00041
DCMRXRLL 00001 000010 00040
DCMRXSCN 00001 000010 00048
DCMRXSFL 00001 000080 00037
DCMRXTIM 00001 000002 00042
DCMRXTMR 00001 000020 00039
DCMRXUNV 00001 000040 00038
DCMR2FLG 00001 00002C 00036
DCMR3FLG 00001 00002D 00044
DCMSRCH  00001 000001 00014
DCMSTSWT 00001 000080 00045
DCMTMCTR 00002 00002A 00035
DCMTOPAR 00001 00000C 00018
DCMTOPDS 00001 00000D 00019
DCMTYPE  00001 000040 00008
DCMTY50  00001 000040 00025
DCMTY60  00001 000080 00024
DCMWLAST 00004 000018 00029
DCMWRITE 00001 000020 00009
IEECVH2  00001 000000 00002



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     8      SOURCE RECORDS (SYSLIB) =   207
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  118 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM17.R0000123      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM17.S0000124      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM17.S0000124      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG18    / START 78240.1945
IEF374I STEP /SG18    / STOP  78240.1945 CPU   0MIN 00.15SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:11.91   ALLOC START    19:45:11.92   MAIN REGION ----- 300K                          *
*   STEP NAME SG18       STEP END TIME  19:45:12.26   PGM START TIME 19:45:12.00   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.35   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.15   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 6       0250 ------------ 0       0250 ------------ 0       0151 ----------- 13       0151 ----------- 11    *
*   0151 ----------- 14       0158 ----------- 15       0151 ------------ 5       0130 ----------- 10                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM17  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:12.28   ALLOC START    19:45:12.30   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:12.32   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM17 / START 78240.1945
IEF376I  JOB /R21AM17 / STOP  78240.1945 CPU   0MIN 00.15SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM17    JOB READ TIME 19:44:49.31   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.15   *
*   JOB CLASS A          JOB INIT TIME 19:45:11.91   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.44   *
*   ACCOUNT              JOB END TIME  19:45:12.35   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       1      8888888                             A
            RRRRRRRRR  222222222      11        AAA     MM     MM      11     888888888                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     111     88     88                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM      11     88     88                         AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      11      8888888                         AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      11      8888888                         AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM      11     88     88                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM      11     88     88                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM    111111   888888888                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    111111    8888888                         AA     AA

***********A  START   R21AM18    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM18    START  A***********
***********A  START   R21AM18    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM18    START  A***********
***********A  START   R21AM18    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM18    START  A***********
***********A  START   R21AM18    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM18    START  A***********
***********A  START   R21AM18    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM18    START  A***********


//R21AM18 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG19 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEECVSUB)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM18  SG19
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEECVSUB  SD  01 000000 00026E
IEEPFKEY  ER  02
SUBAN48   LD     000050         01
SUBAN19   LD     000050         01
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 IEECVSUB CSECT
                                      3  IEECSUB 2,0,,Y,,,,PFK=24
                                      4+*A321100-321484                                               MC A61227
                                      5+*D321500-330000                                               MC A61227
                                      6+*C342000,345500                                               MC A61227
                                      7+*C321400                                                       @SA68606
                                      8+***********************************************************************
                                      9+*        CONTAINS FLAGS FOR DA I/O AND SPECIAL ROUTING FLAGS          *
                                     10+***********************************************************************

000000 00                            12+SUBDAIO  DC    X'00' DA I/O FLAGS
000080                               13+SUBIOUSE EQU   X'80' I/O ROUTINE IN USE
000040                               14+SUBREAD  EQU   X'40' READ IN PROCESS
000020                               15+SUBWRITE EQU   X'20' WRITE IN PROCESS
000010                               16+SUBEXP   EQU   X'10' EXPECTING CONTROL RECORD
000008                               17+SUBPFK   EQU   X'08' PFK WRITE IN PROCESS
000001 00                            18+SUBFLGS  DC    X'00' SPECIAL ROUTING FLAGS
000080                               19+SUBACT   EQU   X'80' EXIT TO PROC-1 IF ON
000040                               20+SUBINIT  EQU   X'40' INIT SUB ON FIRST ENTRY
000020                               21+SUBK     EQU   X'20' UNUSED
000010                               22+SUBL     EQU   X'10' UNUSED
000008                               23+SUBPFKWR EQU   X'08' WRITE PFK UPDATES TO LIB
000004                               24+SUBPKLIB EQU   X'04' PF KEYS ARE SUPPORTED
000002 0000                          25+SUBNUM   DC    FL2'0' NUMBER TRANSIENT CONSOLES

                                     27+***********************************************************************
                                     28+*        THE FOLLOWING ADCONS ARE ALWAYS GENERATED                    *
                                     29+***********************************************************************

000004 00000048                      31+SUBDOM   DC    A(SUBKEY) POINTER TO DOM LIST
000008 000001DC                      32+SUBPBASE DC    A(SUBDCMB) POINTER TO BASE DCM
00000C 000000E8                      33+SUBTIOT  DC    A(SUBTASK) POINTER TO TASK I/O TABLE
000010 00000024                      34+SUBSPACE DC    A(SUBAREA) POINTER TO SUB WORK AREA

                                     36+***********************************************************************
                                     37+*        THESE ADCONS GENERATED IF ANY TRANSIENT DCMS ARE PRESENT     *
                                     38+***********************************************************************
000014 0000004C                      39+SUBQUE   DC    A(SUBREQ) POINTER TO DCM REQUEST QUEUE
000018 0000004C                      40+SUBBLDL  DC    A(SUBTTR) POINTER TO DCM BLDL LIST
00001C 00000070                      41+SUBBLK   DC    A(SUBDCB) POINTER TO D A DCB
000020 00000000                      42+SUBPFKAD DC    V(IEEPFKEY) POINTER TO PFK AREA
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     44+***********************************************************************
                                     45+*        SUB WORK AREA                                                *
                                     46+***********************************************************************
000024                               47+SUBAREA  EQU   * SUB WORK AREA
000024 00000000                      48+SUBCXSVE DC    F'0' CXSA SAVE AREA
000028 0000000000000000              49+SUBRGSVE DC    6F'0' REGISTER SAVE AREA
000040 00000000                      50+SUBRLPTR DC    F'0' POINTER TO TTR ELEMENT
000044 00000000                      51+SUBTRACK DC    F'0' TTR OF READ/WRITE IN PROCESS

                                     53+***********************************************************************
                                     54+*        DOM ELEMENTS FOR EACH GRAPHIC CONSOLE IN SYSTEM              *
                                     55+***********************************************************************
000048                               56+SUBKEY   EQU   * DOM BY PROT KEY LIST
000048 0000                          57+         DC    H'0' DOM ELEMENT
00004A 0000                          58+         DC    H'0' DOM ELEMENT
00004C                               59+         DS    0F ALIGN TO FULL WORD BOUNDRY

                                     61+***********************************************************************
                                     62+*        DCM REQUEST ELEMENTS FOR ALL TRANSIENT CONSOLES              *
                                     63+***********************************************************************
00004C                               64+SUBREQ   EQU   * DCM REQUEST ELEMENTS

                                     66+***********************************************************************
                                     67+*        DCM BLDL LIST FOR ALL TRANSIENT DCMS IN SYSTEM               *
                                     68+***********************************************************************
00004C                               69+SUBTTR   EQU   * DCM BLDL ELEMENTS
                                     70+***********************************************************************
                                     71+*        RMS/SER CHAN PROGS FOR ALL GRAPHIC CONSOLES IN SYSTEM        *
                                     72+***********************************************************************
                                     73+*
                                     74+*        THESE CCW CHAINS ARE USED BY-
                                     75+*           1. RMS- WHEN THE SYSTEM IS DEAD
                                     76+*           2. IORMS- WHEN SWITCHING RESIDENT PACKS
                                     77+*        THE FOLLOWING INSTRUCTIONS ARE IN IORMS CODE
                                     78+*        SET BIT TO CAUSE PURGING OF STATUS DISPLAYS
                                     79+*        OI    DCMASYNC,DCMASCAN
                                     80+*        SET FULL SCREEN ON GRAPHIC CONSOLE
                                     81+*        OI    DCMDSTAT,DCMDSTFL
                                     82+*        STOP ROLL ON GRAPHIC CONSOLE
                                     83+*        MVI   DCMRQDEL,C'Z'
                                     84+*
                                     85+         ENTRY SUBAN48 3277 MODEL 1               MC  M1510
                                     86+         ENTRY SUBAN19 3277 MODEL 2               MC  M1510
00004C 00000000
000050 0500006BA0000001              87+SUBAN19  CCW   WR,WCC,DATAX,1 INITIAL WRITE             MC A61227
000050                               88+SUBAN48  EQU   SUBAN19 3277 MODEL 1              MC A61227
000058 05000068A0000003              89+         CCW   WR,BUFDATA,DATAX,3 WRITE BUFFER DATA         MC A61227
000060 0500000020000000              90+         CCW   WR,0,SLI,0 WRITE USER MESSAGE           @SA68606
000068 11C650                        91+BUFDATA  DC    X'11C650' BUFFER DATA               MC A61227
00006B C4                            92+WCC      DC    X'C4' SOUND ALARM ORDERS        MC A61227
000020                               93+SLI      EQU   X'20' SLI FLAG                  MC A61227
000005                               94+WR       EQU   X'05' WRITE OP CODE             MC A61227
000008                               95+TIC      EQU   X'08' TRANSFER IN CHANNEL       MC A61227
0000A0                               96+DATAX    EQU   X'A0' DATA CHAIN AND SLI FLAGS  MC A61227
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     98+***********************************************************************
                                     99+*        CONTROL BLOCKS GENERATED IF ANY TRANSIENT DCMS IN SYSTEM     *
                                    100+***********************************************************************
000070                              101+         DS    0D DOUBLE WORD ALLIGNMENT


                                    103+*                       DATA CONTROL BLOCK
                                    104+*
000070                              105+SUBDCB   DC    0F'0' ORIGIN ON WORD BOUNDARY

                                    107+*                       DIRECT ACCESS DEVICE INTERFACE

000070 0000000000000000             109+         DC    BL16'0' FDAD,DVTBL
000080 00000000                     110+         DC    A(0) KEYLE,DEVT,TRBAL

                                    112+*                       COMMON ACCESS METHOD INTERFACE

000084 00                           114+         DC    AL1(0) BUFNO
000085 000001                       115+         DC    AL3(1) BUFCB
000088 0000                         116+         DC    AL2(0) BUFL
00008A 0200                         117+         DC    BL2'0000001000000000' DSORG
00008C 00000001                     118+         DC    A(1) IOBAD

                                    120+*                       FOUNDATION EXTENSION

000090 00                           122+         DC    BL1'00000000' BFTEK,BFLN,HIARCHY
000091 000001                       123+         DC    AL3(1) EODAD
000094 40                           124+         DC    BL1'01000000' RECFM
000095 000000                       125+         DC    AL3(0) EXLST

                                    127+*                       FOUNDATION BLOCK

000098 C4C3D4C4E2404040             129+         DC    CL8'DCMDS' DDNAME
0000A0 02                           130+         DC    BL1'00000010' OFLGS
0000A1 00                           131+         DC    BL1'00000000' IFLG
0000A2 D008                         132+         DC    BL2'1101000000001000' MACR
0000A8                              133+         DS    0D
0000A8 420000                       134+IOB      DC    X'420000'
0000AB 00                           135+IOBSEN   DC    X'00' SENSE BYTE
000008                              136+IOBNR    EQU   X'08' NO RECORD FOUND
0000AC 00000000                     137+         DC    A(0)
0000B0 000000000000                 138+         DC    XL6'0'
0000B6 0000                         139+RESCNT   DC    H'0' RESIDUAL COUNT
0000B8 000000D0                     140+         DC    A(CCW)
0000BC 00000070                     141+         DC    A(SUBDCB)
0000C0 0000000000000000             142+         DC    2F'0'
0000C8 0000000000000000             143+SEEK     DC    2F'0'
0000D0 31                           144+CCW      DC    X'31'
0000D1 0000CB                       145+         DC    AL3(SEEK+3)
0000D4 4000                         146+         DC    X'4000'
0000D6 0005                         147+         DC    H'5'
0000D8 08                           148+         DC    X'08'
0000D9 0000D0                       149+         DC    AL3(CCW)
0000DC 00000000                     150+         DC    F'0'
0000E0 00                           151+TYPE     DC    X'00'
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000E1 000000                       152+DATA     DC    AL3(0)
0000E4 2000                         153+         DC    X'2000'
0000E6 0000                         154+LENGTH   DC    H'0'

0000E8 4040404040404040             156+SUBTASK  DC    CL8' '
0000F0 4040404040404040             157+         DC    CL8' '
0000F8 4040404040404040             158+         DC    CL8' '
000100 14                           159+         DC    X'14'
000101 00                           160+         DC    X'00'
000102 0000                         161+         DC    H'0'
000104 C4C3D4C4E2404040             162+PNTDDN   DC    CL8'DCMDS'
00010C 000000                       163+PNTTR    DC    XL3'00'
00010F 00                           164+         DC    X'00'
000110                              165+PNTUCB   DS    0F
000110 00                           166+         DC    X'00'
000111 000000                       167+         DC    FL3'0'
000114 00000000                     168+PNEND    DC    F'0'
000118                              169+         DS    0D
000118 80                           170+PNJEF    DC    X'80'
000119 000000                       171+         DC    FL3'0'
00011C 87                           172+PNXLST   DC    X'87'
00011D 000120                       173+         DC    AL3(PNJFCB)
000120                              174+PNJFCB   DS    0D
000120 E2E8E2F14BC4C3D4             175+PNJNAME  DC    C'SYS1.DCMLIB '
00012C 4040404040404040             176+         DC    32C' '
00014C 0000000000000000             177+         DC    XL8'0'
000154 88000000                     178+         DC    X'88000000'
000158 0000000000000000             179+         DC    XL31'0'
000177 40                           180+         DC    X'40'
000178 0000000000000000             181+         DC    XL10'0'
000182 02                           182+         DC    X'02'
000183 0000000000000000             183+         DC    XL18'0'
000195 01                           184+         DC    X'01'
000196 E2E8E2D9C5E2                 185+SUBVOL   DC    C'SYSRES'
00019C 0000000000000000             186+         DC    XL52'0'

0001D0 00000000                     188+SUBECB   DC    F'0' SPECIAL ECB FOR PFKS
0001D4 0000000000000000             189+SUBPFTTR DC    XL8'0' TTR OF PFK MEMBER

                                    191+***********************************************************************
                                    192+*        EXECUTABLE BASE DCM CODE CONTAINED HERE                      *
                                    193+***********************************************************************
0001DC                              194+         DS    0F MH A54211
0001DC                              195+SUBDCMB  EQU   * BASE DCM
                                    196+*
       IEECVDCC  BASE, DISPLAY CONTROL MODULE  (BASE DCM)                                                      PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    198+*
                                    199+*  STATUS    CHANGE LEVEL 0
                                    200+*
                                    201+*  FUNCTION    THIS MODULE GAINS DONTROL AUTOMATICALLY WHENEVER THE
                                    202+*            STIMER ELAPSES.  IT THEN POSTS A DCM SO THAT THE TIMER-
                                    203+*            INTERPRETER CAN GET IN TO ANALYZE THE SITUATION.
                                    204+*
                                    205+*  ENTRY POINT    THE SOLE ENTRY POINT IS AT DCMSTART, AT A DISPLACE-
                                    206+*               MENT OF X'12' FROM THE BEGINNING OF THE MODULE.
                                    207+*
                                    208+*  INPUT    NONE
                                    209+*
                                    210+*  OUTPUT    NONE
                                    211+*
                                    212+*  EXTERNAL REFERENCES    NONE
                                    213+*
                                    214+*  EXITS    NORMAL    TO CALLER, VIA BR 14.
                                    215+*
                                    216+*           ERROR    NONE
                                    217+*
                                    218+*  TABLES/WORK AREAS    DISPLAY CONTROL MODULE  (DCM)
                                    219+*
                                    220+*  ATTRIBUTES    RESIDENT, SERIALLY REUSABLE
                                    221+*
                                    222+*  NOTES     THIS MODULE REFERENCES DCMTIMES, IN THE DCM, BY ITS
                                    223+*            ABSOLUTE DISPLACEMENT (X'18').  A CHANGE IN THAT
                                    224+*            DISPLACEMENT WOULD REQUIRE A CHANGE IN THE OI INSTRUCTION
                                    225+*            REFERENCING IT.
                                    226+*
0001DC 00000000                     227+DCMSTMR  DC    F'0' TIME INTERVAL FOR STIMER
0001E0 00000000                     228+DCMSVDCM DC    F'0' TI RTN SAVES DCM ADDR HERE
0001E4 00000000                     229+DCMUAD   DC    F'0' TO PASS UCM ADDR
0001E8 00                           230+DCMIND   DC    X'00' INDICATOR BYTE
000080                              231+DCMTMRST EQU   X'80' STIMER IN EFFECT
000040                              232+DCMENTOP EQU   X'40' ENTRY WAS FROM OPTIONS
000020                              233+DCMSWCH  EQU   X'20' INTERNAL TIMER RTN SWITCH
0001E9 00                           234+DCMINTI  DC    X'00' BYTE OF BITS FOR INTERNAL USE OF TI
000080                              235+DCMTMRCH EQU   X'80' TIMER INTERVAL HAS BEEN CHANGED
000040                              236+DCM1FULL EQU   X'40' AT LEAST 1 DCM HAS FULL SCREEN
000020                              237+DCMDYRL  EQU   X'20' AT LEAST 1 DCM READY TO ROLL
0001EA 0000                         238+DCMIVGCD DC    H'0' TIME INTERVAL, IN SECONDS
0001EC 0000                         239+DCMNEXTT DC    H'0' TIME INTERVAL FOR NEXT STIMER MACRO
0001EE                              240+DCMSTART DS    0H
0001EE 90EC D00C            0000C   241+         STM   14,12,12(13) SAVE REGISTERS
0001F2 18CF                         242+         LR    BASERC,RF ESTABLISH INITIAL ADDRESSABILITY
0001EE                              243+         USING DCMSTART,BASERC
0001F4 4BC0 C074            00262   244+         SH    BASERC,HW18 POINT BASE REG TO INITIAL DC'S
0001DC                              245+         USING DCMSTMR,BASERC
0001F8 50D0 C08C            00268   246+         ST    RD,DCMSVADR SAVE AREA ADDR
0001FC 947F C00C      001E8         247+         NI    DCMIND,OFFTMRST TURN OFF STIMER RUNNING BIT
000200 5840 C008            001E4   248+         L     UCMR4,DCMUAD PICK UP UCM ENTRY ADDR
                                    249+* THE FOLLOWING LINES NEED TO BE CHECKED CAREFULLY
                                    250+* TO PICK UP DCM RIGHT AND SET CORRECT FLAG.
000204 5834 001C            0001C   251+         L     DCMR3,XXVIII(UCMR4) PICK UP DCM ADDRESS
000208 9602 302C      0002C         252+         OI    44(DCMR3),X'02' SET ON TIMER ELAPSED
       IEECVDCC  BASE, DISPLAY CONTROL MODULE  (BASE DCM)                                                      PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00020C 9140 3005      00005         253+         TM    5(DCMR3),X'40' TRANSIENT DCM
000210 4780 C07E            0025A   254+         BZ    AAA NO, BRANCH
000214 5833 0000            00000   255+         L     DCMR3,0(DCMR3)
000218 1823                         256+         LR    2,DCMR3 LOAD T DCM ADDRESS
00021A 4B20 C090            0026C   257+         SH    2,FORE GET PREFIX
00021E D502 C009 2001 001E5 00001   258+         CLC   DCMUAD+1(3),1(2) DCM IN CORE
000224 4770 C050            0022C   259+         BNE   CCC NO, BRANCH
000228 9680 3018      00018         260+BBB      OI    24(DCMR3),X'80' SET ON TIMER FLAG
00022C 9120 4018      00018         261+CCC      TM    XXIV(UCMR4),H20 BUSY BIT ON
000230 4710 C074            00250   262+         BO    DCMRESTR IF SO, DO NOT POST
000234 9580 4000      00000         263+         CLI   Z(UCMR4),H80 DEVICE WAITING
000238 4780 C068            00244   264+         BE    DCMPOST IF SO, POST
00023C 9500 4000      00000         265+         CLI   Z(UCMR4),H00 DEVICE READY
000240 4770 C074            00250   266+         BNE   DCMRESTR IF NOT, EXIT
000244                              267+DCMPOST  EQU   *
000244 1814                         268+         LR    R1,UCMR4 SET PARAMETERS
000246 4111 0000            00000   269+         LA    R1,0(R1) CLEAR HIGH BYTE
00024A 4800 C088            00264   270+         LH    R0,HW255
00024E 0A02                         271+         SVC   II POST
000250                              272+DCMRESTR EQU   *
000250 58D0 C08C            00268   273+         L     RD,DCMSVADR EXIT CODING
000254 98EC D00C            0000C   274+         LM    14,12,12(13) RESTORE THE REGISTERS
000258 07FE                         275+         BR    14 RETURN
00025A 5833 0000            00000   276+AAA      L     DCMR3,0(DCMR3) LOAD T DCM POINTER
00025E 47F0 C04C            00228   277+         B     BBB BRANCH TO SET ON FLAG
000262 0012                         278+HW18     DC    H'18' VALUE
000264 00FF                         279+HW255    DC    H'255' VALUE
000266 0000
000268 00000000                     280+DCMSVADR DC    F'0' TO STORE SAVE AREA ADDR
00026C 0004                         281+FORE     DC    H'4' CONSTANT
                                    282+*     REGISTER EQUATES
00000C                              283+BASERC   EQU   12 PROGRAM BASE REG
000003                              284+DCMR3    EQU   3 DCM PTR REG
000004                              285+UCMR4    EQU   4 UCM PTR REG
000000                              286+R0       EQU   0 REGISTER 0
000001                              287+R1       EQU   1 REGISTER 1
00000C                              288+RC       EQU   12 REGISTER 12
00000D                              289+RD       EQU   13 REGISTER 13
00000E                              290+RE       EQU   14 REGISTER 14
00000F                              291+RF       EQU   15 REGISTER 15
                                    292+*     EQUATES
000000                              293+H00      EQU   X'00' BIT SETTING
000020                              294+H20      EQU   X'20' BIT SETTING
000038                              295+H38      EQU   X'38'
000080                              296+H80      EQU   X'80' BIT SETTING
00007F                              297+OFFTMRST EQU   255-DCMTMRST TO TURN BIT OFF
000000                              298+Z        EQU   0 NUMBER
000002                              299+II       EQU   2 NUMBER
000018                              300+XXIV     EQU   24 NUMBER
00001C                              301+XXVIII   EQU   28 NUMBER
                                    302  END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000004
   01       01      0C     000008
   01       01      0C     00000C
   01       01      0C     000010
   01       01      0C     000014
   01       01      0C     000018
   01       01      0C     00001C
   01       01      08     000051
   01       01      08     000059
   01       01      0C     0000B8
   01       01      0C     0000BC
   01       01      08     0000D1
   01       01      08     0000D9
   01       01      08     00011D
   01       02      1C     000020
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

AAA      00004 00025A 00276   0254
BASERC   00001 00000C 00283   0242  0243  0244  0245
BBB      00004 000228 00260   0277
BUFDATA  00003 000068 00091   0089
CCC      00004 00022C 00261   0259
CCW      00001 0000D0 00144   0140  0149
DATA     00003 0000E1 00152
DATAX    00001 0000A0 00096   0087  0089
DCMDYRL  00001 000020 00237
DCMENTOP 00001 000040 00232
DCMIND   00001 0001E8 00230   0247
DCMINTI  00001 0001E9 00234
DCMIVGCD 00002 0001EA 00238
DCMNEXTT 00002 0001EC 00239
DCMPOST  00001 000244 00267   0264
DCMRESTR 00001 000250 00272   0262  0266
DCMR3    00001 000003 00284   0251  0252  0253  0255  0255  0256  0260  0276  0276
DCMSTART 00002 0001EE 00240   0243
DCMSTMR  00004 0001DC 00227   0245
DCMSVADR 00004 000268 00280   0246  0273
DCMSVDCM 00004 0001E0 00228
DCMSWCH  00001 000020 00233
DCMTMRCH 00001 000080 00235
DCMTMRST 00001 000080 00231   0297
DCMUAD   00004 0001E4 00229   0248  0258
DCM1FULL 00001 000040 00236
FORE     00002 00026C 00281   0257
HW18     00002 000262 00278   0244
HW255    00002 000264 00279   0270
H00      00001 000000 00293   0265
H20      00001 000020 00294   0261
H38      00001 000038 00295
H80      00001 000080 00296   0263
IEECVSUB 00001 000000 00002
II       00001 000002 00299   0271
IOB      00003 0000A8 00134
IOBNR    00001 000008 00136
IOBSEN   00001 0000AB 00135
LENGTH   00002 0000E6 00154
OFFTMRST 00001 00007F 00297   0247
PNEND    00004 000114 00168
PNJEF    00001 000118 00170
PNJFCB   00008 000120 00174   0173
PNJNAME  00012 000120 00175
PNTDDN   00008 000104 00162
PNTTR    00003 00010C 00163
PNTUCB   00004 000110 00165
PNXLST   00001 00011C 00172
RC       00001 00000C 00288
RD       00001 00000D 00289   0246  0273
RE       00001 00000E 00290
RESCNT   00002 0000B6 00139
RF       00001 00000F 00291   0242
R0       00001 000000 00286   0270
R1       00001 000001 00287   0268  0269  0269
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SEEK     00004 0000C8 00143   0145
SLI      00001 000020 00093   0090
SUBACT   00001 000080 00019
SUBAN19  00008 000050 00087   0086  0088
SUBAN48  00008 000050 00088   0085
SUBAREA  00001 000024 00047   0034
SUBBLDL  00004 000018 00040
SUBBLK   00004 00001C 00041
SUBCXSVE 00004 000024 00048
SUBDAIO  00001 000000 00012
SUBDCB   00004 000070 00105   0041  0141
SUBDCMB  00001 0001DC 00195   0032
SUBDOM   00004 000004 00031
SUBECB   00004 0001D0 00188
SUBEXP   00001 000010 00016
SUBFLGS  00001 000001 00018
SUBINIT  00001 000040 00020
SUBIOUSE 00001 000080 00013
SUBK     00001 000020 00021
SUBKEY   00001 000048 00056   0031
SUBL     00001 000010 00022
SUBNUM   00002 000002 00025
SUBPBASE 00004 000008 00032
SUBPFK   00001 000008 00017
SUBPFKAD 00004 000020 00042
SUBPFKWR 00001 000008 00023
SUBPFTTR 00008 0001D4 00189
SUBPKLIB 00001 000004 00024
SUBQUE   00004 000014 00039
SUBREAD  00001 000040 00014
SUBREQ   00001 00004C 00064   0039
SUBRGSVE 00004 000028 00049
SUBRLPTR 00004 000040 00050
SUBSPACE 00004 000010 00034
SUBTASK  00008 0000E8 00156   0033
SUBTIOT  00004 00000C 00033
SUBTRACK 00004 000044 00051
SUBTTR   00001 00004C 00069   0040
SUBVOL   00006 000196 00185
SUBWRITE 00001 000020 00015
TIC      00001 000008 00095
TYPE     00001 0000E0 00151
UCMR4    00001 000004 00285   0248  0251  0261  0263  0265  0268
WCC      00001 00006B 00092   0087
WR       00001 000005 00094   0087  0089  0090
XXIV     00001 000018 00300   0261
XXVIII   00001 00001C 00301   0251
Z        00001 000000 00298   0263  0265



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     4      SOURCE RECORDS (SYSLIB) =  2931
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  429 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM18.R0000125      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM18.S0000126      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM18.S0000126      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG19    / START 78240.1945
IEF374I STEP /SG19    / STOP  78240.1945 CPU   0MIN 00.61SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:12.37   ALLOC START    19:45:12.37   MAIN REGION ----- 300K                          *
*   STEP NAME SG19       STEP END TIME  19:45:13.35   PGM START TIME 19:45:12.46   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.98   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.61   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 82       0250 ------------ 0       0250 ------------ 0       0151 ----------- 19       0151 ----------- 59    *
*   0151 ----------- 86       0353 ----------- 54       0151 ----------- 21       0130 ------------ 6                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM18  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:13.37   ALLOC START    19:45:13.39   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:13.41   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM18 / START 78240.1945
IEF376I  JOB /R21AM18 / STOP  78240.1945 CPU   0MIN 00.61SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM18    JOB READ TIME 19:44:49.41   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.61   *
*   JOB CLASS A          JOB INIT TIME 19:45:12.37   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.07   *
*   ACCOUNT              JOB END TIME  19:45:13.44   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       1      9999999                             A
            RRRRRRRRR  222222222      11        AAA     MM     MM      11     999999999                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     111     99     99                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM      11     99     99                         AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      11     999999999                        AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      11      9999999                         AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM      11          99                          AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM      11         99                           AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM    111111      99                            AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM    111111     99                             AA     AA

***********A  START   R21AM19    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM19    START  A***********
***********A  START   R21AM19    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM19    START  A***********
***********A  START   R21AM19    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM19    START  A***********
***********A  START   R21AM19    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM19    START  A***********
***********A  START   R21AM19    SYS SYSA   WTR 00E   07:47:12 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM19    START  A***********


//R21AM19 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG20 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEEPFKEY)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM19  SG20
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEEPFKEY  SD  01 000000 000A64
IEECVK0   LD     000012         01
IEECVK2   LD     00053B         01
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 IEEPFKEY CSECT
000000 0000000E                       3    DC  A(KEY)
000004 0000000000000000               4     DC  (1)X'00000000000000000000'
00000E 0A64                           5 KEY DC  AL2(ENDPFK-IEEPFKEY)
000010 0000                           6     DC  H'0'
                                      7         ENTRY IEECVK0
000012                                8 IEECVK0 EQU  *
000012 01                             9          DC    FL1'1'
000013 00                            10          DC    X'00'
000014 4040404040404040              11          DC    108C' '
000080 02                            12          DC    FL1'2'
000081 00                            13          DC    X'00'
000082 4040404040404040              14          DC    108C' '
0000EE 03                            15          DC    FL1'3'
0000EF 00                            16          DC    X'00'
0000F0 4040404040404040              17          DC    108C' '
00015C 04                            18          DC    FL1'4'
00015D 00                            19          DC    X'00'
00015E 4040404040404040              20          DC    108C' '
0001CA 05                            21          DC    FL1'5'
0001CB 00                            22          DC    X'00'
0001CC 4040404040404040              23          DC    108C' '
000238 06                            24          DC    FL1'6'
000239 00                            25          DC    X'00'
00023A 4040404040404040              26          DC    108C' '
0002A6 07                            27          DC    FL1'7'
0002A7 00                            28          DC    X'00'
0002A8 4040404040404040              29          DC    108C' '
000314 08                            30          DC    FL1'8'
000315 00                            31          DC    X'00'
000316 4040404040404040              32          DC    108C' '
000382 09                            33          DC    FL1'9'
000383 00                            34          DC    X'00'
000384 4040404040404040              35          DC    108C' '
0003F0 0A                            36          DC    FL1'10'
0003F1 00                            37          DC    X'00'
0003F2 4040404040404040              38          DC    108C' '
00045E 0B                            39          DC    FL1'11'
00045F 00                            40          DC    X'00'
000460 4040404040404040              41          DC    108C' '
0004CC 0C                            42          DC    FL1'12'
0004CD 00                            43          DC    X'00'
0004CE 4040404040404040              44          DC    108C' '
00053A 64                            45           DC   FL1'100'
                                     46        ENTRY IEECVK2
00053B                               47 IEECVK2 EQU  *
00053B 01                            48          DC    FL1'1'
00053C 00                            49          DC    X'00'
00053D 4040404040404040              50          DC    108C' '
0005A9 02                            51          DC    FL1'2'
0005AA 00                            52          DC    X'00'
0005AB 4040404040404040              53          DC    108C' '
000617 03                            54          DC    FL1'3'
000618 00                            55          DC    X'00'
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000619 4040404040404040              56          DC    108C' '
000685 04                            57          DC    FL1'4'
000686 00                            58          DC    X'00'
000687 4040404040404040              59          DC    108C' '
0006F3 05                            60          DC    FL1'5'
0006F4 00                            61          DC    X'00'
0006F5 4040404040404040              62          DC    108C' '
000761 06                            63          DC    FL1'6'
000762 00                            64          DC    X'00'
000763 4040404040404040              65          DC    108C' '
0007CF 07                            66          DC    FL1'7'
0007D0 00                            67          DC    X'00'
0007D1 4040404040404040              68          DC    108C' '
00083D 08                            69          DC    FL1'8'
00083E 00                            70          DC    X'00'
00083F 4040404040404040              71          DC    108C' '
0008AB 09                            72          DC    FL1'9'
0008AC 00                            73          DC    X'00'
0008AD 4040404040404040              74          DC    108C' '
000919 0A                            75          DC    FL1'10'
00091A 00                            76          DC    X'00'
00091B 4040404040404040              77          DC    108C' '
000987 0B                            78          DC    FL1'11'
000988 00                            79          DC    X'00'
000989 4040404040404040              80          DC    108C' '
0009F5 0C                            81          DC    FL1'12'
0009F6 00                            82          DC    X'00'
0009F7 4040404040404040              83          DC    108C' '
000A63 64                            84          DC    FL1'100'
000A64                               85 ENDPFK EQU *
                                     86   END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000000
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ENDPFK   00001 000A64 00085   0005
IEECVK0  00001 000012 00008   0007
IEECVK2  00001 00053B 00047   0046
IEEPFKEY 00001 000000 00002   0005
KEY      00002 00000E 00005   0003



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =    86
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  110 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM19.R0000127      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM19.S0000128      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM19.S0000128      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG20    / START 78240.1945
IEF374I STEP /SG20    / STOP  78240.1945 CPU   0MIN 00.19SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:13.46   ALLOC START    19:45:13.47   MAIN REGION ----- 300K                          *
*   STEP NAME SG20       STEP END TIME  19:45:13.88   PGM START TIME 19:45:13.55   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.42   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.19   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0151 ----------- 22       0151 ----------- 13    *
*   0151 ------------ 5       0353 ----------- 14       0151 ----------- 51       0130 ----------- 88                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM19  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:13.91   ALLOC START    19:45:13.93   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:13.94   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM19 / START 78240.1945
IEF376I  JOB /R21AM19 / STOP  78240.1945 CPU   0MIN 00.19SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM19    JOB READ TIME 19:44:49.57   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.19   *
*   JOB CLASS A          JOB INIT TIME 19:45:13.46   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.50   *
*   ACCOUNT              JOB END TIME  19:45:13.96   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   2222222     00000                              A
            RRRRRRRRR  222222222      11        AAA     MM     MM  222222222   0000000                            AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  22     22  00     00                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM        22   00    000                         AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM       22    00   0 00                        AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      22     00  0  00                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM     22      00 0   00                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM    22       000    00                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM   22222222   0000000                         AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM  222222222    00000                          AA     AA

***********A  START   R21AM20    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM20    START  A***********
***********A  START   R21AM20    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM20    START  A***********
***********A  START   R21AM20    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM20    START  A***********
***********A  START   R21AM20    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM20    START  A***********
***********A  START   R21AM20    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM20    START  A***********


//R21AM20 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG21 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IFBCTA00)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM20  SG21
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IFBCTA00  SD  01 000000 000008
IFBACTA   LD     000000         01
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  SGIFC000 6777077700000000
000000                                3+IFBCTA00 CSECT
                                      4+         ENTRY IFBACTA
000000                                5+         DS    0F
000000 6777077700000000               6+IFBACTA  DC    XL8'6777077700000000'
                                      7  END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IFBACTA  00008 000000 00006   0004
IFBCTA00 00001 000000 00003



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =     7
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   22 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM20.R0000129      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM20.S0000130      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM20.S0000130      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG21    / START 78240.1945
IEF374I STEP /SG21    / STOP  78240.1945 CPU   0MIN 00.12SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:13.98   ALLOC START    19:45:13.99   MAIN REGION ----- 300K                          *
*   STEP NAME SG21       STEP END TIME  19:45:14.29   PGM START TIME 19:45:14.07   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.31   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 2       0250 ------------ 0       0250 ------------ 0       0151 ----------- 11       0151 ----------- 11    *
*   0151 ------------ 8       0159 ------------ 3       0151 ------------ 3       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM20  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:14.31   ALLOC START    19:45:14.33   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:14.36   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM20 / START 78240.1945
IEF376I  JOB /R21AM20 / STOP  78240.1945 CPU   0MIN 00.12SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM20    JOB READ TIME 19:44:50.12   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.12   *
*   JOB CLASS A          JOB INIT TIME 19:45:13.98   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.39   *
*   ACCOUNT              JOB END TIME  19:45:14.37   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   2222222        1                               A
            RRRRRRRRR  222222222      11        AAA     MM     MM  222222222      11                              AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  22     22     111                             AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM        22       11                            AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM       22        11                           AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      22         11                           AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM     22          11                           AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM    22           11                           AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM   22222222    111111                         AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM  222222222    111111                         AA     AA

***********A  START   R21AM21    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM21    START  A***********
***********A  START   R21AM21    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM21    START  A***********
***********A  START   R21AM21    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM21    START  A***********
***********A  START   R21AM21    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM21    START  A***********
***********A  START   R21AM21    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM21    START  A***********


//R21AM21 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG22 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEFSGOPT)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM21  SG22
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEFSGOPT  SD  01 000000 00001C
IEFSEPAR  ER  02
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2     SGIEF002  0,0,0,0,0,0,0,0,0,0,0,                                   X
                                                       0,0,0,0,1,0,0,0,0,0,10
000000                                3+IEFSGOPT CSECT
000000 00                             4+         DC    XL1'0' * --------------------------------------
000001 00                             5+         DC    XL1'0' * 00000000000000000000000000000000000000
000002 00                             6+         DC    XL1'0' * --------------------------------------
000003 00                             7+         DC    XL1'0' *  A P A T T T T T T T T O R V T T S S S
000004 00                             8+         DC    XL1'0' *  C R C S S S S S S S S P E L A A Y Y Y
000005 00                             9+         DC    XL1'0' *  N G C Y Y Y Y Y Y Y Y T S M V V S S S
000006 00                            10+         DC    XL1'0' *  R R T S S S S S S S S I J O R R J J A
000007 00                            11+         DC    XL1'0' *  E E R I I I I O O O O O O V 5 8 C C L
000008 00                            12+         DC    XL1'0' *  Q Q T N N 1 2 T T 1 2 N B N     L L L
000009 00                            13+         DC    XL1'0' *      N 5 8 6 4 5 8 6 4 S Q T     1 2 1
00000A 00                            14+         DC    XL1'0' I68
00000B 00                            15+         DC    XL1'0' I68
00000C 00                            16+         DC    XL1'0' I68
00000D 00                            17+         DC    XL1'0' I68
00000E 00                            18+         DC    XL1'0' I68
00000F 01                            19+         DC    XL1'1' I68
000010 00                            20+         DC    XL1'0' I68
000011 00                            21+         DC    XL1'0' I68
000012 00                            22+         DC    XL1'0' I68
                                     23+*                                  --FIVE WORD TEST PATERN--       I68*
                                     24+***********************************************************************
                                     25+**  THIS FIVE WORD CONFIGURATION IS CREATED BY THE MACRO SGIEF201, I68*
                                     26+**  WHICH INSPECTS THE GLOBAL SWITCHES SET BY THE "SCHEDULR" MACRO.   *
                                     27+**  DEPENDENT UPON THE OPTIONS SELECTED FOR THE SCHEDULER, THE PROPER *
                                     28+**  BITS ARE SET IN THE TEST PATTERN.      (EXAMPLE)                  *
                                     29+**  IEF6OUT2 INSPECTS THE "OPTIONS" BYTE TO DETERMINE IF "BYPASS      *
                                     30+**  LABEL PROCESSING" WAS SPECIFIED AT SYSGEN TIME.                   *
                                     31+***********************************************************************
                                     32+*
000013 0A                            33+SWTP     DC    AL1(10) JOBQWTP LIMIT VALUE         I254
000014 00000000                      34+SEPRATOR DC    V(IEFSEPAR) IBM SEPARATOR ROUTINES FOR CLASS
                                     35+*                                  A HAVE NOT BEEN REQUESTED.
000018 00000000                      36+SEPRATRB DC    V(IEFSEPAR) IBM SEPARATOR ROUTINES FOR CLASS
                                     37+*                                  B HAVE NOT BEEN REQUESTED.
                                     38     END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       02      1C     000014
   01       02      1C     000018
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEFSGOPT 00001 000000 00003
SEPRATOR 00004 000014 00034
SEPRATRB 00004 000018 00036
SWTP     00001 000013 00033



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     4      SOURCE RECORDS (SYSLIB) =    60
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   60 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM21.R0000131      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM21.S0000132      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM21.S0000132      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG22    / START 78240.1945
IEF374I STEP /SG22    / STOP  78240.1945 CPU   0MIN 00.14SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:14.40   ALLOC START    19:45:14.41   MAIN REGION ----- 300K                          *
*   STEP NAME SG22       STEP END TIME  19:45:14.73   PGM START TIME 19:45:14.51   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.33   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.14   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 3       0250 ------------ 0       0250 ------------ 0       0151 ----------- 11       0151 ----------- 11    *
*   0151 ----------- 10       0353 ------------ 8       0151 ------------ 4       0130 ------------ 6                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM21  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:14.75   ALLOC START    19:45:14.77   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:14.79   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM21 / START 78240.1945
IEF376I  JOB /R21AM21 / STOP  78240.1945 CPU   0MIN 00.14SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM21    JOB READ TIME 19:44:50.29   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.14   *
*   JOB CLASS A          JOB INIT TIME 19:45:14.40   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.39   *
*   ACCOUNT              JOB END TIME  19:45:14.79   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   2222222    2222222                             A
            RRRRRRRRR  222222222      11        AAA     MM     MM  222222222  222222222                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  22     22  22     22                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM        22         22                          AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM       22         22                          AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      22         22                           AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM     22         22                            AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM    22         22                             AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM   22222222   22222222                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM  222222222  222222222                        AA     AA

***********A  START   R21AM22    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM22    START  A***********
***********A  START   R21AM22    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM22    START  A***********
***********A  START   R21AM22    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM22    START  A***********
***********A  START   R21AM22    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM22    START  A***********
***********A  START   R21AM22    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM22    START  A***********


//R21AM22 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG23 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEFYRCDS)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM22  SG23
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEFYRCDS  SD  01 000000 000064
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  SGIEF060 NE=(0000000000000000000,                                     X
                                                       000000000000000000,                             XXXXXXXXXXXXXXXX
                                                       00000000000)                                           X
000000                                3+IEFYRCDS CSECT
000000 0062                           4+         DC    AL2(ENDTAB-IEFYRCDS)
000002 0001                           5+         DC    XL2'0001'
000004 0031                           6+         DC    XL2'0031'
000006 0033                           7+         DC    XL2'0033'
000008 003A                           8+         DC    XL2'003A'
00000A 00A3                           9+         DC    XL2'00A3'
00000C 00B0                          10+         DC    XL2'00B0'
00000E 00F3                          11+         DC    XL2'00F3'
000010 0100                          12+         DC    XL2'0100'
000012 0106                          13+         DC    XL2'0106'
000014 0113                          14+         DC    XL2'0113'
000016 0117                          15+         DC    XL2'0117'
000018 0137                          16+         DC    XL2'0137'
00001A 020A                          17+         DC    XL2'020A'
00001C 0213                          18+         DC    XL2'0213'
00001E 0214                          19+         DC    XL2'0214'
000020 0217                          20+         DC    XL2'0217'
000022 0313                          21+         DC    XL2'0313'
000024 0314                          22+         DC    XL2'0314'
000026 0317                          23+         DC    XL2'0317'
000028 0413                          24+         DC    XL2'0413'
00002A 0414                          25+         DC    XL2'0414'
00002C 0417                          26+         DC    XL2'0417'
00002E 0513                          27+         DC    XL2'0513'
000030 0514                          28+         DC    XL2'0514'
000032 0613                          29+         DC    XL2'0613'
000034 0614                          30+         DC    XL2'0614'
000036 0626                          31+         DC    XL2'0626'
000038 0637                          32+         DC    XL2'0637'
00003A 0700                          33+         DC    XL2'0700'
00003C 0714                          34+         DC    XL2'0714'
00003E 0717                          35+         DC    XL2'0717'
000040 0806                          36+         DC    XL2'0806'
000042 0813                          37+         DC    XL2'0813'
000044 0837                          38+         DC    XL2'0837'
000046 0906                          39+         DC    XL2'0906'
000048 0913                          40+         DC    XL2'0913'
00004A 0926                          41+         DC    XL2'0926'
00004C 0937                          42+         DC    XL2'0937'
00004E 0A14                          43+         DC    XL2'0A14'
000050 0B14                          44+         DC    XL2'0B14'
000052 0B37                          45+         DC    XL2'0B37'
000054 0C13                          46+         DC    XL2'0C13'
000056 0E37                          47+         DC    XL2'0E37'
000058 0E1F                          48+         DC    XL2'0E1F'
00005A 032D                          49+         DC    XL2'032D'
00005C 0737                          50+         DC    XL2'0737'
00005E 0422                          51+         DC    XL2'0422'
000060 02F3                          52+         DC    XL2'02F3'
000062 0002                          53+ENDTAB   DC    AL2(USEREND-ENDTAB)
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000064                               54+USEREND  EQU   *
                                     55     END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ENDTAB   00002 000062 00053   0004  0053
IEFYRCDS 00001 000000 00003   0004
USEREND  00001 000064 00054   0053



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     5      SOURCE RECORDS (SYSLIB) =    26
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   74 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM22.R0000133      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM22.S0000134      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM22.S0000134      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG23    / START 78240.1945
IEF374I STEP /SG23    / STOP  78240.1945 CPU   0MIN 00.14SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:14.81   ALLOC START    19:45:14.82   MAIN REGION ----- 300K                          *
*   STEP NAME SG23       STEP END TIME  19:45:15.22   PGM START TIME 19:45:14.90   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.41   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.14   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 2       0250 ------------ 0       0250 ------------ 0       0151 ----------- 11       0151 ----------- 11    *
*   0151 ------------ 8       0130 ----------- 10       0151 ------------ 4       0130 ------------ 7                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM22  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:15.24   ALLOC START    19:45:15.26   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:15.28   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM22 / START 78240.1945
IEF376I  JOB /R21AM22 / STOP  78240.1945 CPU   0MIN 00.14SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM22    JOB READ TIME 19:44:50.46   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.14   *
*   JOB CLASS A          JOB INIT TIME 19:45:14.81   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.48   *
*   ACCOUNT              JOB END TIME  19:45:15.29   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   2222222   333333333                            A
            RRRRRRRRR  222222222      11        AAA     MM     MM  222222222  333333333                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  22     22  33    33                           AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM        22        33                           AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM       22        3333                         AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      22        333333                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM     22             33                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM    22       33     33                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM   22222222  333333333                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM  222222222   3333333                         AA     AA

***********A  START   R21AM23    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM23    START  A***********
***********A  START   R21AM23    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM23    START  A***********
***********A  START   R21AM23    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM23    START  A***********
***********A  START   R21AM23    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM23    START  A***********
***********A  START   R21AM23    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM23    START  A***********


//R21AM23 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG24 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(UCSIMAGE)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM23  SG24
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


UCS1AN    SD  01 000000 0000F7
UCS1PN    SD  02 0000F8 0000F6
UCS1TN    SD  03 0001F0 0000F6
UCS2P11   SD  04 0002E8 000212
UCS2T11   SD  05 000500 00020C
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  SGIEC0UC  (AN,D,                                          XXXXXXXXXXXXXXXXX
                                                       PN,D,                                        XXXXXXXXXXXXXXXX
                                                       TN,D,                                        XXXXXXXXXXXXXXXX
                                                       P11,D,                                        XXXXXXXXXXXXXXXX
                                                       T11,D)
       IBM STANDARD UCS IMAGE - AN                                                                             PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      4+***********************************************************************
                                      5+*
                                      6                *,IBM STANDARD UCS IMAGE - AN
                                      7+*
                                      8+***********************************************************************
                                      9+*
                                     10+*    (1) MEMBER NAME
                                     11                *,'UCS1AN'
                                     12+*
                                     13+***********************************************************************
                                     14+*
                                     15+*    (2) CHARACTER SET-ID
                                     16                *,'AN'
                                     17+*
                                     18+***********************************************************************
                                     19+*
000000                               20+UCS1AN   CSECT
                                     21+*
                                     22+***********************************************************************
                                     23+*
                                     24+*    (3) DEFAULT OPTION
                                     25+*
                                     26+***********************************************************************
                                     27+*
000000 80                            28+         DC    X'80' DEFAULT CHARACTER SET
                                     29+*
                                     30+***********************************************************************
                                     31+*
                                     32+*    (4) NUMBER OF LINES TO BE PRINTED FOR VERIFICATION
                                     33                *,5 LINES
                                     34+*
                                     35+***********************************************************************
                                     36+*
000001 05                            37+         DC    AL1(5) NUMBER OF LINES FOR VERIFICATION
                                     38+*
                                     39+***********************************************************************
                                     40+*
                                     41+*    (5) NUMBER OF CHARACTERS PER LINE
                                     42+*
                                     43+***********************************************************************
                                     44+*
000002 30                            45+         DC    AL1(48) CHARACTERS/1ST LINE
000003 30                            46+         DC    AL1(48) CHARACTERS/2ND LINE
000004 30                            47+         DC    AL1(48) CHARACTERS/3RD LINE
000005 30                            48+         DC    AL1(48) CHARACTERS/4TH LINE
000006 30                            49+         DC    AL1(48) CHARACTERS/5TH LINE
                                     50+*
                                     51+***********************************************************************
                                     52+*
                                     53+*    (6) UCS IMAGE
                                     54+*        'AN' - ALPHANUMERIC (48 GRAPHICS)
                                     55+*
                                     56+***********************************************************************
                                     57+*
000007 F1F2F3F4F5F6F7F8              58+         DC    C'1234567890#@/STUVWXYZ&&,%JKLMNOPQR-$*ABCDEFGHI+.<'
       IBM STANDARD UCS IMAGE - AN                                                                             PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000037 F1F2F3F4F5F6F7F8              59+         DC    C'1234567890#@/STUVWXYZ&&,%JKLMNOPQR-$*ABCDEFGHI+.<'
000067 F1F2F3F4F5F6F7F8              60+         DC    C'1234567890#@/STUVWXYZ&&,%JKLMNOPQR-$*ABCDEFGHI+.<'
000097 F1F2F3F4F5F6F7F8              61+         DC    C'1234567890#@/STUVWXYZ&&,%JKLMNOPQR-$*ABCDEFGHI+.<'
0000C7 F1F2F3F4F5F6F7F8              62+         DC    C'1234567890#@/STUVWXYZ&&,%JKLMNOPQR-$*ABCDEFGHI+.<'
                                     63+*
                                     64+***********************************************************************
       IBM STANDARD UCS IMAGE - PN                                                                             PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     66+***********************************************************************
                                     67+*
                                     68                *,IBM STANDARD UCS IMAGE - PN
                                     69+*
                                     70+***********************************************************************
                                     71+*
                                     72+*    (1) MEMBER NAME
                                     73                *,'UCS1PN'
                                     74+*
                                     75+***********************************************************************
                                     76+*
                                     77+*    (2) CHARACTER SET-ID
                                     78                *,'PN'
                                     79+*
                                     80+***********************************************************************
                                     81+*
0000F8                               82+UCS1PN   CSECT
                                     83+*
                                     84+***********************************************************************
                                     85+*
                                     86+*    (3) DEFAULT OPTION
                                     87+*
                                     88+***********************************************************************
                                     89+*
0000F8 80                            90+         DC    X'80' DEFAULT CHARACTER SET
                                     91+*
                                     92+***********************************************************************
                                     93+*
                                     94+*    (4) NUMBER OF LINES TO BE PRINTED FOR VERIFICATION
                                     95                *,4 LINES
                                     96+*
                                     97+***********************************************************************
                                     98+*
0000F9 04                            99+         DC    AL1(4) NUMBER OF LINES FOR VERIFICATION
                                    100+*
                                    101+***********************************************************************
                                    102+*
                                    103+*    (5) NUMBER OF CHARACTERS PER LINE
                                    104+*
                                    105+***********************************************************************
                                    106+*
0000FA 3C                           107+         DC    AL1(60) CHARACTERS/1ST LINE
0000FB 3C                           108+         DC    AL1(60) CHARACTERS/2ND LINE
0000FC 3C                           109+         DC    AL1(60) CHARACTERS/3RD LINE
0000FD 3C                           110+         DC    AL1(60) CHARACTERS/4TH LINE
                                    111+*
                                    112+***********************************************************************
                                    113+*
                                    114+*    (6) UCS IMAGE
                                    115+*        'PN' - PL/1 (60 GRAPHICS)
                                    116+*
                                    117+***********************************************************************
                                    118+*
                                    119+         DC    C'1234567890XY/STUVW:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&X
0000FE F1F2F3F4F5F6F7F8                +               @<;^''?>'
       IBM STANDARD UCS IMAGE - PN                                                                             PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    120+         DC    C'1234567890XY/STUVW:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&X
00013A F1F2F3F4F5F6F7F8                +               @<;^''?>'
                                    121+         DC    C'1234567890XY/STUVW:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&X
000176 F1F2F3F4F5F6F7F8                +               @<;^''?>'
                                    122+         DC    C'1234567890XY/STUVW:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&X
0001B2 F1F2F3F4F5F6F7F8                +               @<;^''?>'
                                    123+*
                                    124+***********************************************************************
       IBM STANDARD UCS IMAGE - TN                                                                             PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    126+***********************************************************************
                                    127+*
                                    128                *,IBM STANDARD UCS IMAGE - TN
                                    129+*
                                    130+***********************************************************************
                                    131+*
                                    132+*    (1) MEMBER NAME
                                    133                *,'UCS1TN'
                                    134+*
                                    135+***********************************************************************
                                    136+*
                                    137+*    (2) CHARACTER SET-ID
                                    138                *,'TN'
                                    139+*
                                    140+***********************************************************************
                                    141+*
0001F0                              142+UCS1TN   CSECT
                                    143+*
                                    144+***********************************************************************
                                    145+*
                                    146+*    (3) DEFAULT OPTION
                                    147+*
                                    148+***********************************************************************
                                    149+*
0001F0 80                           150+         DC    X'80' DEFAULT CHARACTER SET
                                    151+*
                                    152+***********************************************************************
                                    153+*
                                    154+*    (4) NUMBER OF LINES TO BE PRINTED FOR VERIFICATION
                                    155                *,4 LINES
                                    156+*
                                    157+***********************************************************************
                                    158+*
0001F1 04                           159+         DC    AL1(4) NUMBER OF LINES FOR VERIFICATION
                                    160+*
                                    161+***********************************************************************
                                    162+*
                                    163+*    (5) NUMBER OF CHARACTERS PER LINE
                                    164+*
                                    165+***********************************************************************
                                    166+*
0001F2 3C                           167+         DC    AL1(60) CHARACTERS/1ST LINE
0001F3 3C                           168+         DC    AL1(60) CHARACTERS/2ND LINE
0001F4 3C                           169+         DC    AL1(60) CHARACTERS/3RD LINE
0001F5 3C                           170+         DC    AL1(60) CHARACTERS/4TH LINE
                                    171+*
                                    172+***********************************************************************
                                    173+*
                                    174+*    (6) UCS IMAGE
                                    175+*        'TN' - TEXT PRINTING (120 GRAPHICS)
                                    176+*
                                    177+***********************************************************************
                                    178+*
                                    179+         DC    C'1234567890=./STUVWXYZ,#&&JKLMNOPQR-":ABCDEFGHI+abcdefgX
                                       +               hijklmnopqrstuvwxyz@''?;!$*%~^()><X
       IBM STANDARD UCS IMAGE - TN                                                                             PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0001F6 F1F2F3F4F5F6F7F8                +               []򯨳_'
                                    180+         DC    C'1234567890=./STUVWXYZ,#&&JKLMNOPQR-":ABCDEFGHI+abcdefgX
                                       +               hijklmnopqrstuvwxyz@''?;!$*%~^()><X
00026E F1F2F3F4F5F6F7F8                +               []򯨳_'
                                    181+*
                                    182+***********************************************************************
       IBM STANDARD UCS IMAGE - P11                                                                            PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    184+***********************************************************************
                                    185+*
                                    186                *,IBM STANDARD UCS IMAGE - P11
                                    187+*
                                    188+***********************************************************************
                                    189+*
                                    190+*    (1) MEMBER NAME
                                    191                *,'UCS2P11'
                                    192+*
                                    193+***********************************************************************
                                    194+*
                                    195+*    (2) CHARACTER SET-ID
                                    196                *,'P11'
                                    197+*
                                    198+***********************************************************************
                                    199+*
0002E8                              200+UCS2P11  CSECT
                                    201+*
                                    202+***********************************************************************
                                    203+*
                                    204+*    (3) DEFAULT OPTION
                                    205+*
                                    206+***********************************************************************
                                    207+*
0002E8 80                           208+         DC    X'80' DEFAULT CHARACTER SET
                                    209+*
                                    210+***********************************************************************
                                    211+*
                                    212+*    (4) NUMBER OF LINES TO BE PRINTED FOR VERIFICATION
0002E9 10                           213+         DC    AL1(16)
                                    214+*
                                    215+*    (5) NUMBER OF CHARACTERS PER LINE
                                    216+*
0002EA 1B1B1B1B1B1B1B1B             217+         DC    16AL1(27)
                                    218+*
                                    219+*    (6) UCS IMAGE
                                    220+*        'P11' - PL/1 (60 GRAPHICS)
                                    221+*
                                    222+         DC    4C'1''BDJL-5K*C(NA@=E0?)S^#R>V92"68<XYTGF%H._UO7/P3WMIQX
                                       +               ,41''BDJL-5K*C(N0$=E:#)SA&&RZV9+G682;YT<XF%H._UO7/P3WMIQX
0002FA F17DC2C4D1D360F5                +               ,4'
                                    223+*
                                    224+*        BLANK SPACE
                                    225+*
0004AA D7F1F10000000000             226+         DC    X'D7F1F1000000000000000000000000C0'
                                    227+*
                                    228+*        ASSOCIATIVE BITS - 64 BYTES
                                    229+*
                                    230+         DC    X'101010101010101010004040404040401010101010101010100040X
                                       +               40404040404010101010101010100040404040401010101010101010X
0004BA 1010101010101010                +               101040404040404000'
                                    231+*
                                    232+***********************************************************************
       IBM STANDARD UCS IMAGE - T11                                                                            PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    234+***********************************************************************
                                    235+*
                                    236                *,IBM STANDARD UCS IMAGE - T11
                                    237+*
                                    238+***********************************************************************
                                    239+*
                                    240+*    (1) MEMBER NAME
                                    241                *,'UCS2T11'
                                    242+*
                                    243+***********************************************************************
                                    244+*
                                    245+*    (2) CHARACTER SET-ID
                                    246                *,'T11'
                                    247+*
                                    248+***********************************************************************
                                    249+*
000500                              250+UCS2T11  CSECT
                                    251+*
                                    252+***********************************************************************
                                    253+*
                                    254+*    (3) DEFAULT OPTION
                                    255+*
                                    256+***********************************************************************
                                    257+*
000500 80                           258+         DC    X'80' DEFAULT CHARACTER SET
                                    259+*
                                    260+***********************************************************************
                                    261+*
                                    262+*    (4) NUMBER OF LINES TO BE PRINTED FOR VERIFICATION
000501 0A                           263+         DC    AL1(10)
                                    264+*
                                    265+*    (5) NUMBER OF CHARACTERS PER LINE
                                    266+*
000502 2D2D2D2D2D2D2D2D             267+         DC    9AL1(45)
00050B 1B                           268+         DC    AL1(27)
                                    269+*
                                    270+*    (6) UCS IMAGE
                                    271+*        'T11' - TEXT PRINTING (120 GRAPHICS)
                                    272+*
                                    273+         DC    3C'1QXgRebJG3HYfITpm-uUhr9cl,4BdMSP_F7.=NLtsOn8EoiCAa><X
                                       +               60!D*5~21Re"3^IT@-ꜝr9;4[]%Sjz?7.X
00050C F1D8E787D98582D1                +               &&t:8Eq''AZx#60v$kD*w+)5(KW/yV2'
                                    274+*
                                    275+*        BLANK SPACE
                                    276+*
0006BC E3F1F10000000000             277+         DC    X'E3F1F1000000000000000000000000C0'
                                    278+         DC    X'303030303030303030406060606060403030303030303030304060X
                                       +               60606060606030303030303030300060606060603030303030303030X
0006CC 3030303030303030                +               303040606060606000'
                                    279+*
                                    280+***********************************************************************
                                    281          END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCS1AN   00001 000000 00020
UCS1PN   00001 0000F8 00082
UCS1TN   00001 0001F0 00142
UCS2P11  00001 0002E8 00200
UCS2T11  00001 000500 00250



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     7      SOURCE RECORDS (SYSLIB) =   415
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  333 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM23.R0000135      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM23.S0000136      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM23.S0000136      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG24    / START 78240.1945
IEF374I STEP /SG24    / STOP  78240.1945 CPU   0MIN 00.21SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:15.32   ALLOC START    19:45:15.33   MAIN REGION ----- 300K                          *
*   STEP NAME SG24       STEP END TIME  19:45:15.89   PGM START TIME 19:45:15.42   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.57   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.21   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 11       0250 ------------ 0       0250 ------------ 0       0151 ----------- 17       0151 ----------- 19    *
*   0151 ----------- 31       0353 ----------- 42       0151 ----------- 38       0130 ------------ 9                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM23  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:15.91   ALLOC START    19:45:15.92   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:15.95   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM23 / START 78240.1945
IEF376I  JOB /R21AM23 / STOP  78240.1945 CPU   0MIN 00.21SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM23    JOB READ TIME 19:44:50.62   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.21   *
*   JOB CLASS A          JOB INIT TIME 19:45:15.32   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.64   *
*   ACCOUNT              JOB END TIME  19:45:15.96   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   2222222        44                              A
            RRRRRRRRR  222222222      11        AAA     MM     MM  222222222      444                             AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  22     22     4444                            AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM        22     44 44                           AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM       22     44  44                          AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      22     44   44                          AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM     22      444444444                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM    22       444444444                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM   22222222       44                          AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM  222222222       44                          AA     AA

***********A  START   R21AM24    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM24    START  A***********
***********A  START   R21AM24    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM24    START  A***********
***********A  START   R21AM24    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM24    START  A***********
***********A  START   R21AM24    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM24    START  A***********
***********A  START   R21AM24    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM24    START  A***********


//R21AM24 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG25 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEWLM128)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM24  SG25
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEWLMDEF  SD  01 000000 000018
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
       IEWLMDEF   F128  EDITOR DEFAULT SIZE PARAMETERS                                                         PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      3          SGIEW001  VAL1=131072,VAL2=18432,DPVAL=131072
       IEWLMDEF   F128  EDITOR DEFAULT SIZE PARAMETERS                                                         PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                5+IEWLMDEF CSECT
000000 D4C4C5C6                       6+         DC    C'MDEF' MODULE IDENTIFIER
000004 00020000                       7+         DC    AL4(131072) DESIGN POINT VALUE
000008 00020000                       8+         DC    AL4(131072) DEFAULT VALUE 1
00000C 00004800                       9+         DC    AL4(18432) DEFAULT VALUE 2
000010 C6F1F2F8                      10+         DC    C'F128' EDITOR NAME

                                     12          IHBRELNO
000014                               13+         DS    0F ALIGN CVT ON FULLWORK BOUNDRY
000014 F2F1F8                        14+CVTRELNO DC    CL3'218' RELEASE NUMBER
000017 C6                            15+         DC    CL1'F' UPDATED DLIB LEVEL IDENTIFIER 218F
                                     16          END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTRELNO 00003 000014 00014
IEWLMDEF 00001 000000 00005



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     5      SOURCE RECORDS (SYSLIB) =    30
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   31 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM24.R0000137      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM24.S0000138      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM24.S0000138      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG25    / START 78240.1945
IEF374I STEP /SG25    / STOP  78240.1945 CPU   0MIN 00.13SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:15.99   ALLOC START    19:45:15.99   MAIN REGION ----- 300K                          *
*   STEP NAME SG25       STEP END TIME  19:45:16.40   PGM START TIME 19:45:16.08   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.41   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.13   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 4       0250 ------------ 0       0250 ------------ 0       0151 ----------- 12       0151 ----------- 13    *
*   0151 ----------- 13       0158 ------------ 4       0151 ------------ 4       0130 ------------ 7                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM24  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:16.44   ALLOC START    19:45:16.46   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:16.48   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM24 / START 78240.1945
IEF376I  JOB /R21AM24 / STOP  78240.1945 CPU   0MIN 00.13SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM24    JOB READ TIME 19:44:50.75   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.13   *
*   JOB CLASS A          JOB INIT TIME 19:45:15.99   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.50   *
*   ACCOUNT              JOB END TIME  19:45:16.49   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   2222222   555555555                            A
            RRRRRRRRR  222222222      11        AAA     MM     MM  222222222  555555555                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  22     22  55                                 AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM        22   55555555                          AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM       22    555555555                        AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      22            55                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM     22             55                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM    22       55     55                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM   22222222  555555555                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM  222222222   5555555                         AA     AA

***********A  START   R21AM25    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM25    START  A***********
***********A  START   R21AM25    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM25    START  A***********
***********A  START   R21AM25    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM25    START  A***********
***********A  START   R21AM25    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM25    START  A***********
***********A  START   R21AM25    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM25    START  A***********


//R21AM25 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG26 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEK201)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM25  SG26
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEKAA01   SD  01 000000 00003C
IEKAAD    SD  02 000040 001004
IEKJA2    SD  03 001048 003810
IEKJA4    SD  04 004858 003430
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2          SGIEK001   OPTN=0,MAP=0,TYPE=1,PNCH=0,OBLST=0,CODE=0,         *
                                                       SRLST=1,LINCNT=50,SZE=262144,ID=0,EDIT=0,XREF=0
000000                                3+IEKAA01  CSECT
000000 40404040D4C1C9D5               4+DEFAULTS DC    CL8'    MAIN' NAME GIVEN TO MAIN PGM BY DEFAULT
000008 00000000                       5+         DC    F'0' OPTIMIZATION LEVEL
00000C 00000000                       6+         DC    F'0' TRACE SWITCH
000010 00000000                       7+         DC    F'0' SIZE FOR COMPILATION
000014 00000032                       8+         DC    F'50'
                                      9+*              XREF,ID,EDIT,MAP,LOAD,DECK,LIST,BCD,SOURCE
                                     10+*                            ARE INDICATED BY BITS ON
000018 00000011                      11+         DC    BL4'000010001'
00001C 00018B00                      12+         DC    F'101120'
000020 40D3C5E5C5D340F2              13+         DC    CL28' LEVEL 21.8 ( JUN 74 )      '



000040                               15+IEKAAD   CSECT
000040 00000400                      16+         DC    F'1024'
000044                               17+         DS    1024F






001048                               20+IEKJA2   CSECT
001048 0000000000000000              21+         DC    4F'0' TEMP,N,MCOORD,NPX
001058 0000003C                      22+         DC    F'60' KPAD1
00105C 00000050                      23+         DC    F'80' KPAD2
001060 7FFFFFFF                      24+         DC    X'7FFFFFFF' LONES(32)
001064 BFFFFFFF                      25+         DC    X'BFFFFFFF'
001068 DFFFFFFF                      26+         DC    X'DFFFFFFF'
00106C EFFFFFFF                      27+         DC    X'EFFFFFFF'
001070 F7FFFFFF                      28+         DC    X'F7FFFFFF'
001074 FBFFFFFF                      29+         DC    X'FBFFFFFF'
001078 FDFFFFFF                      30+         DC    X'FDFFFFFF'
00107C FEFFFFFF                      31+         DC    X'FEFFFFFF'
001080 FF7FFFFF                      32+         DC    X'FF7FFFFF'
001084 FFBFFFFF                      33+         DC    X'FFBFFFFF'
001088 FFDFFFFF                      34+         DC    X'FFDFFFFF'
00108C FFEFFFFF                      35+         DC    X'FFEFFFFF'
001090 FFF7FFFF                      36+         DC    X'FFF7FFFF'
001094 FFFBFFFF                      37+         DC    X'FFFBFFFF'
001098 FFFDFFFF                      38+         DC    X'FFFDFFFF'
00109C FFFEFFFF                      39+         DC    X'FFFEFFFF'
0010A0 FFFF7FFF                      40+         DC    X'FFFF7FFF'
0010A4 FFFFBFFF                      41+         DC    X'FFFFBFFF'
0010A8 FFFFDFFF                      42+         DC    X'FFFFDFFF'
0010AC FFFFEFFF                      43+         DC    X'FFFFEFFF'
0010B0 FFFFF7FF                      44+         DC    X'FFFFF7FF'
0010B4 FFFFFBFF                      45+         DC    X'FFFFFBFF'
0010B8 FFFFFDFF                      46+         DC    X'FFFFFDFF'
0010BC FFFFFEFF                      47+         DC    X'FFFFFEFF'
0010C0 FFFFFF7F                      48+         DC    X'FFFFFF7F'
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0010C4 FFFFFFBF                      49+         DC    X'FFFFFFBF'
0010C8 FFFFFFDF                      50+         DC    X'FFFFFFDF'
0010CC FFFFFFEF                      51+         DC    X'FFFFFFEF'
0010D0 FFFFFFF7                      52+         DC    X'FFFFFFF7'
0010D4 FFFFFFFB                      53+         DC    X'FFFFFFFB'
0010D8 FFFFFFFD                      54+         DC    X'FFFFFFFD'
0010DC FFFFFFFE                      55+         DC    X'FFFFFFFE'
0010E0 80000000                      56+         DC    X'80000000' MASK1(32)
0010E4 40000000                      57+         DC    X'40000000'
0010E8 20000000                      58+         DC    X'20000000'
0010EC 10000000                      59+         DC    X'10000000'
0010F0 08000000                      60+         DC    X'08000000'
0010F4 04000000                      61+         DC    X'04000000'
0010F8 02000000                      62+         DC    X'02000000'
0010FC 01000000                      63+         DC    X'01000000'
001100 00800000                      64+         DC    X'00800000'
001104 00400000                      65+         DC    X'00400000'
001108 00200000                      66+         DC    X'00200000'
00110C 00100000                      67+         DC    X'00100000'
001110 00080000                      68+         DC    X'00080000'
001114 00040000                      69+         DC    X'00040000'
001118 00020000                      70+         DC    X'00020000'
00111C 00010000                      71+         DC    X'00010000'
001120 00008000                      72+         DC    X'00008000'
001124 00004000                      73+         DC    X'00004000'
001128 00002000                      74+         DC    X'00002000'
00112C 00001000                      75+         DC    X'00001000'
001130 00000800                      76+         DC    X'00000800'
001134 00000400                      77+         DC    X'00000400'
001138 00000200                      78+         DC    X'00000200'
00113C 00000100                      79+         DC    X'00000100'
001140 00000080                      80+         DC    X'00000080'
001144 00000040                      81+         DC    X'00000040'
001148 00000020                      82+         DC    X'00000020'
00114C 00000010                      83+         DC    X'00000010'
001150 00000008                      84+         DC    X'00000008'
001154 00000004                      85+         DC    X'00000004'
001158 00000002                      86+         DC    X'00000002'
00115C 00000001                      87+         DC    X'00000001'
001160 00000004                      88+         DC    F'4' NOPTAB(49)
001164 00000004                      89+         DC    F'4'
001168 00000001                      90+         DC    F'1'
00116C 00000001                      91+         DC    F'1'
001170 00000002                      92+         DC    F'2'
001174 00000001                      93+         DC    F'1'
001178 00000001                      94+         DC    F'1'
00117C 00000004                      95+         DC    F'4'
001180 00000001                      96+         DC    F'1'
001184 00000001                      97+         DC    F'1'
001188 00000001                      98+         DC    F'1'
00118C 00000001                      99+         DC    F'1'
001190 00000001                     100+         DC    F'1'
001194 00000003                     101+         DC    F'3'
001198 00000005                     102+         DC    F'5'
00119C 00000008                     103+         DC    F'8'
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0011A0 00000008                     104+         DC    F'8'
0011A4 00000008                     105+         DC    F'8'
0011A8 00000008                     106+         DC    F'8'
0011AC 00000008                     107+         DC    F'8'
0011B0 00000008                     108+         DC    F'8'
0011B4 00000006                     109+         DC    F'6'
0011B8 00000004                     110+         DC    F'4'
0011BC 00000009                     111+         DC    F'9'
0011C0 00000002                     112+         DC    F'2'
0011C4 00000002                     113+         DC    F'2'
0011C8 00000002                     114+         DC    F'2'
0011CC 00000007                     115+         DC    F'7'
0011D0 00000007                     116+         DC    F'7'
0011D4 00000007                     117+         DC    F'7'
0011D8 00000004                     118+         DC    F'4'
0011DC 00000008                     119+         DC    F'8'
0011E0 00000008                     120+         DC    F'8'
0011E4 00000008                     121+         DC    F'8'
0011E8 00000008                     122+         DC    F'8'
0011EC 00000008                     123+         DC    F'8'
0011F0 00000008                     124+         DC    F'8'
0011F4 00000002                     125+         DC    F'2'
0011F8 00000001                     126+         DC    F'1'
0011FC 00000002                     127+         DC    F'2'
001200 00000008                     128+         DC    F'8'
001204 00000008                     129+         DC    F'8'
001208 00000003                     130+         DC    F'3'
00120C 00000005                     131+         DC    F'5'
001210 00000004                     132+         DC    F'4'
001214 00000004                     133+         DC    F'4'
001218 00000002                     134+         DC    F'2'
00121C 00000005                     135+         DC    F'5'
001220 00000002                     136+         DC    F'2'
001224                              137+         DS    128F MVD(128)
001424 00000D0A                     138+SIZMAJ   DC    F'3338'
001428                              139+         DS    3340F



004858                              141+IEKJA4   CSECT
004858                              142+         DS    3340F
                                    143          END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DEFAULTS 00008 000000 00004
IEKAAD   00001 000040 00015
IEKAA01  00001 000000 00003
IEKJA2   00001 001048 00020
IEKJA4   00001 004858 00141
SIZMAJ   00004 001424 00138



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     4      SOURCE RECORDS (SYSLIB) =   175
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  169 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM25.R0000139      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM25.S0000140      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM25.S0000140      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG26    / START 78240.1945
IEF374I STEP /SG26    / STOP  78240.1945 CPU   0MIN 00.27SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:16.51   ALLOC START    19:45:16.52   MAIN REGION ----- 300K                          *
*   STEP NAME SG26       STEP END TIME  19:45:17.34   PGM START TIME 19:45:16.60   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.83   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.27   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 6       0250 ------------ 0       0250 ------------ 0       0151 ----------- 15       0151 ----------- 13    *
*   0151 ----------- 10       0353 ----------- 22       0151 ----------- 16       0130 ------------ 6                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM25  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:17.36   ALLOC START    19:45:17.39   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:17.41   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM25 / START 78240.1945
IEF376I  JOB /R21AM25 / STOP  78240.1945 CPU   0MIN 00.27SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM25    JOB READ TIME 19:44:50.86   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.27   *
*   JOB CLASS A          JOB INIT TIME 19:45:16.51   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.92   *
*   ACCOUNT              JOB END TIME  19:45:17.43   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   2222222        66                              A
            RRRRRRRRR  222222222      11        AAA     MM     MM  222222222      66                              AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  22     22     66                              AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM        22     66                              AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM       22     6666666                         AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      22     666666666                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM     22      66     66                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM    22       66     66                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM   22222222  666666666                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM  222222222   6666666                         AA     AA

***********A  START   R21AM26    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM26    START  A***********
***********A  START   R21AM26    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM26    START  A***********
***********A  START   R21AM26    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM26    START  A***********
***********A  START   R21AM26    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM26    START  A***********
***********A  START   R21AM26    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM26    START  A***********


//R21AM26 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG27 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEY201)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM26  SG27
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEYFORT1  SD  01 000000 00000D
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2          SGIEY001   50,0,1,0,0,0,1,0
000000                                3+IEYFORT1 CSECT
                                      4+* DEFAULT NAME FOR MAIN PROGRAM
000000 D4C1C9D540404040               5+PROGNAME DC    C'MAIN    '
                                      6+* PRINTER LINE COUNT FOR COMPILER
000008 00000032                       7+LINECNT  DC    F'50'

                                      9+* MAP,LOAD,DECK,LIST,SOURCE,BCD AND ID ARE INDICATED BY THE        4663
                                     10+* BITS IN THE FOLLOWING BYTE BEING SET TO 1. ZERO BITS INDICATE THE
                                     11+* OPPOSITE OPTIONS.

00000C 48                            13+         DC    BL1'01001000' 4663
                                     14          END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEYFORT1 00001 000000 00003
LINECNT  00004 000008 00007
PROGNAME 00008 000000 00005



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =    17
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   27 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM26.R0000141      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM26.S0000142      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM26.S0000142      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG27    / START 78240.1945
IEF374I STEP /SG27    / STOP  78240.1945 CPU   0MIN 00.12SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:17.45   ALLOC START    19:45:17.46   MAIN REGION ----- 300K                          *
*   STEP NAME SG27       STEP END TIME  19:45:17.84   PGM START TIME 19:45:17.54   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.39   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 2       0250 ------------ 0       0250 ------------ 0       0151 ----------- 11       0151 ----------- 11    *
*   0151 ------------ 8       0353 ------------ 4       0151 ------------ 3       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM26  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:17.87   ALLOC START    19:45:17.88   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:17.90   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM26 / START 78240.1945
IEF376I  JOB /R21AM26 / STOP  78240.1945 CPU   0MIN 00.12SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM26    JOB READ TIME 19:44:51.00   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.12   *
*   JOB CLASS A          JOB INIT TIME 19:45:17.45   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.47   *
*   ACCOUNT              JOB END TIME  19:45:17.92   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   2222222   777777777                            A
            RRRRRRRRR  222222222      11        AAA     MM     MM  222222222  777777777                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  22     22  77     77                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM        22         77                          AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM       22         77                          AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      22         77                           AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM     22         77                            AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM    22          77                            AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM   22222222     77                            AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM  222222222     77                            AA     AA

***********A  START   R21AM27    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM27    START  A***********
***********A  START   R21AM27    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM27    START  A***********
***********A  START   R21AM27    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM27    START  A***********
***********A  START   R21AM27    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM27    START  A***********
***********A  START   R21AM27    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM27    START  A***********


//R21AM27 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG28 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEK205)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM27  SG28
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IHCUATBL  SD  01 000000 000088
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2          SGIEK005   8,6,5,6,7,6,5,7
       IHCUATBL UNIT ASSIGNMENT TABLE                                                                          PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      4+*
                                      5+* STATUS.  CHANGE LEVEL 002,17MAR69  RELEASE 18
                                      6+*
                                      7+*FUNCTION/OPERATION.   THIS MODULE IS THE UNIT TABLE GENERATION AND
                                      8+*   FORTRAN OBJECT TIME ERROR MESSAGE WRITER SPECIFICATION MODULE.
                                      9+*   IT GENERATES A SPECIFIED OR IMPLIED NUMBER OF UNIT TABLE BLOCKS
                                     10+*   AND ASSIGNS A SPECIFIED OR IMPLIED UNIT AS THE OBJECT TIME ERROR
                                     11+*   MESSAGE WRITER.
                                     12+*
                                     13+*ENTRY POINT.   THIS MODULE IS ACTIVATED DURING ASSEMBLY BY ITS MACRO
                                     14+*   STATEMENT.
                                     15+*   DATA PASSED BY STATEMENT PARAMETERS COMPRISES --
                                     16+*   1.  NUMBER OF UNIT BLOCKS,  8 THROUGH 99.
                                     17+*         &UTAB=NN    DEFAULT VALUE=08
                                     18+*   2.  UNIT NUMBER FOR OBJECT TIME ERROR MESSAGE WRITER.
                                     19+*         &OBJERR=NN   DEFAULT VALUE=06.
                                     20+*   3.  UNIT NUMBER FOR ONLINE READ.
                                     21+*         &ONRD#=NN    DEFAULT VALUE=05. H AND G ONLY.
                                     22+*   4.  UNIT NUMBER FOR ONLINE PRINT.
                                     23+*         &ONPRNT#     IDENTICAL TO ONLINE PUNCH. H AND G ONLY.
                                     24+*   5.  UNIT NUMBER FOR ONLINE PUNCH.
                                     25+*         &ONNPH#=NN   DEFAULT VALUE=07. H AND G ONLY.
                                     26+*
                                     27+*INPUT.   N/A
                                     28+*
                                     29+*OUTPUT.   N/A
                                     30+*
                                     31+*EXTERNAL ROUTINES.   N/A
                                     32+*
                                     33+*EXITS.   CONCLUSION OF MACRO FUNCTION ALLOWS FORTRAN LOAD MODULE
                                     34+*   EXECUTION OF INPUT/OUTPUT STATEMENTS.
                                     35+*
                                     36+*TABLES/WORK AREAS.    A TABLE OF UNIT BLOCKS 1 THROUGH N (&UTAB)
                                     37+*   STARTS WITH THE NAME 'UB1'.
                                     38+*   EACH ENTRY IN THE TABLE CONTAINS FOUR WORDS, TWO OF WHICH ARE
                                     39+*   INITIALIZED AT ONE. THE FIRST OF THESE IS FOR THE ADDRESS OF
                                     40+*   THE DCB FIELD, AND THE SECOND IS FOR THE DIRECT ACCESS DATA
                                     41+*   SET PARAMETER LIST.
                                     42+*
                                     43+*ATTRIBUTES.   N/A
                                     44+*
                                     45+*NOTES.
                                     46+*   THE FOLLOWING UNIT ASSIGNMENT TABLE PROVIDES FOR (UTABLE) NUMBER
                                     47+*   OF UNITS.
                                     48+*    THE RECORD FORMAT FIELD -RECFM- MAY CONTAIN THE FOLLOWING-
                                     49+*        RECFM=11000000 UNDEFINED
                                     50+*        RECFN=10000000  FIXED
                                     51+*        RECFM=11000100  UNDEFINED,ASA CARRIAGE CONTROL CHARACTER
                                     52+*
000000                               53+IHCUATBL START 0
000000 0000                          54+         DC    X'0000' RESERVED
000002 0080                          55+ENDT     DC    AL2(END-UTENTRY)
000004 06                            56+         DC    AL1(6) OBJERR DATA SET REFERENCE NUMBER
000005 05                            57+         DC    AL1(5) READ DSRN.
000006 06                            58+         DC    AL1(6) PRINT DSRN.
       IHCUATBL UNIT ASSIGNMENT TABLE                                                                          PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000007 07                            59+         DC    AL1(7) PUNCH DSRN.


000008                               61+UTENTRY  EQU   *
                                     62                *,UNIT 1
000008 00000001                      63+UB1      DC    F'1' ADDRESS OF DCB FIELD
00000C 70                            64+         DC    B'01110000' DEFAULT OPTIONS
00000D 00                            65+         DC    X'00' UNUSED DEFAULT FIELD
00000E 0320                          66+         DC    AL2(800) BLKSIZE
000010 C0                            67+         DC    B'11000000' RECFM
000011 02                            68+         DC    AL1(2) BUFNO
000012 8000                          69+         DC    AL2(32768)
000014 00000001                      70+         DC    F'1' DIRECT ACCESS DATA SET PARM LIST

                                     72                *,UNIT 2
000018 00000001                      73+UB2      DC    F'1' ADDRESS OF DCB FIELD
00001C 70                            74+         DC    B'01110000' DEFAULT OPTIONS
00001D 00                            75+         DC    X'00' UNUSED DEFAULT FIELD
00001E 0320                          76+         DC    AL2(800) BLKSIZE
000020 C0                            77+         DC    B'11000000' RECFM
000021 02                            78+         DC    AL1(2) BUFNO
000022 8000                          79+         DC    AL2(32768)
000024 00000001                      80+         DC    F'1' DIRECT ACCESS DATA SET PARM LIST

                                     82                *,UNIT 3
000028 00000001                      83+UB3      DC    F'1' ADDRESS OF DCB FIELD
00002C 70                            84+         DC    B'01110000' DEFAULT OPTIONS
00002D 00                            85+         DC    X'00' UNUSED DEFAULT FIELD
00002E 0320                          86+         DC    AL2(800) BLKSIZE
000030 C0                            87+         DC    B'11000000' RECFM
000031 02                            88+         DC    AL1(2) BUFNO
000032 8000                          89+         DC    AL2(32768)
000034 00000001                      90+         DC    F'1' DIRECT ACCESS DATA SET PARM LIST

                                     92                *,UNIT 4
000038 00000001                      93+UB4      DC    F'1' ADDRESS OF DCB FIELD
00003C 70                            94+         DC    B'01110000' DEFAULT OPTIONS
00003D 00                            95+         DC    X'00' UNUSED DEFAULT FIELD
00003E 0320                          96+         DC    AL2(800) BLKSIZE
000040 C0                            97+         DC    B'11000000' RECFM
000041 02                            98+         DC    AL1(2) BUFNO
000042 8000                          99+         DC    AL2(32768)
000044 00000001                     100+         DC    F'1' DIRECT ACCESS DATA SET PARM LIST

                                    102                *,UNIT 5
000048 00000001                     103+UB5      DC    F'1' ADDRESS OF DCB FIELD
00004C 70                           104+         DC    B'01110000' DEFAULT OPTIONS
00004D 00                           105+         DC    X'00' UNUSED DEFAULT FIELD
00004E 0050                         106+         DC    AL2(80) BLKSIZE
000050 80                           107+         DC    B'10000000' RECFM
000051 02                           108+         DC    AL1(2) BUFNO
000052 0050                         109+         DC    AL2(80)
000054 00000001                     110+         DC    F'1' DIRECT ACCESS DATA SET PARM LIST

                                    112                *,UNIT 6
       IHCUATBL UNIT ASSIGNMENT TABLE                                                                          PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000058 00000001                     113+UB6      DC    F'1' ADDRESS OF DCB FIELD
00005C 70                           114+         DC    B'01110000' DEFAULT OPTIONS
00005D 00                           115+         DC    X'00' UNUSED DEFAULT FIELD
00005E 0085                         116+         DC    AL2(133) BLKSIZE
000060 C4                           117+         DC    B'11000100' RECFM
000061 02                           118+         DC    AL1(2) BUFNO
000062 8000                         119+         DC    AL2(32768)
000064 00000001                     120+         DC    F'1' DIRECT ACCESS DATA SET PARM LIST

                                    122                *,UNIT 7
000068 00000001                     123+UB7      DC    F'1' ADDRESS OF DCB FIELD
00006C 70                           124+         DC    B'01110000' DEFAULT OPTIONS
00006D 00                           125+         DC    X'00' UNUSED DEFAULT FIELD
00006E 0050                         126+         DC    AL2(80) BLKSIZE
000070 80                           127+         DC    B'10000000' RECFM
000071 02                           128+         DC    AL1(2) BUFNO
000072 0050                         129+         DC    AL2(80)
000074 00000001                     130+         DC    F'1' DIRECT ACCESS DATA SET PARM LIST

                                    132                *,UNIT 8
000078 00000001                     133+UB8      DC    F'1' ADDRESS OF DCB FIELD
00007C 70                           134+         DC    B'01110000' DEFAULT OPTIONS
00007D 00                           135+         DC    X'00' UNUSED DEFAULT FIELD
00007E 0320                         136+         DC    AL2(800) BLKSIZE
000080 C0                           137+         DC    B'11000000' RECFM
000081 02                           138+         DC    AL1(2) BUFNO
000082 8000                         139+         DC    AL2(32768)
000084 00000001                     140+         DC    F'1' DIRECT ACCESS DATA SET PARM LIST

000088                              142+END      EQU   *
                                    143          END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

END      00001 000088 00142   0055
ENDT     00002 000002 00055
IHCUATBL 00001 000000 00053
UB1      00004 000008 00063
UB2      00004 000018 00073
UB3      00004 000028 00083
UB4      00004 000038 00093
UB5      00004 000048 00103
UB6      00004 000058 00113
UB7      00004 000068 00123
UB8      00004 000078 00133
UTENTRY  00001 000008 00061   0055



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =    98
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  163 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM27.R0000143      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM27.S0000144      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM27.S0000144      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG28    / START 78240.1945
IEF374I STEP /SG28    / STOP  78240.1945 CPU   0MIN 00.14SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:17.94   ALLOC START    19:45:17.95   MAIN REGION ----- 300K                          *
*   STEP NAME SG28       STEP END TIME  19:45:18.30   PGM START TIME 19:45:18.05   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.36   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.14   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 4       0250 ------------ 0       0250 ------------ 0       0151 ----------- 15       0151 ----------- 13    *
*   0151 ----------- 16       0158 ----------- 21       0151 ------------ 5       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM27  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:18.31   ALLOC START    19:45:18.33   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:18.35   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM27 / START 78240.1945
IEF376I  JOB /R21AM27 / STOP  78240.1945 CPU   0MIN 00.14SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM27    JOB READ TIME 19:44:51.16   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.14   *
*   JOB CLASS A          JOB INIT TIME 19:45:17.94   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.42   *
*   ACCOUNT              JOB END TIME  19:45:18.36   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   2222222    8888888                             A
            RRRRRRRRR  222222222      11        AAA     MM     MM  222222222  888888888                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  22     22  88     88                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM        22   88     88                         AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM       22     8888888                         AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      22      8888888                         AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM     22      88     88                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM    22       88     88                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM   22222222  888888888                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM  222222222   8888888                         AA     AA

***********A  START   R21AM28    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM28    START  A***********
***********A  START   R21AM28    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM28    START  A***********
***********A  START   R21AM28    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM28    START  A***********
***********A  START   R21AM28    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM28    START  A***********
***********A  START   R21AM28    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM28    START  A***********


//R21AM28 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG29 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEK206)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM28  SG29
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IHCUOPT   SD  01 000000 000008
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2     SGIEK006  0,0,1
000000                                3+IHCUOPT  CSECT
                                      4+*
                                      5+* STATUS - CHANGE LEVEL 2, 21OCT70  RELEASE 20
                                      6+*
                                      7+*D323000,326000                                                   MAINT
                                      8+*D305000                                                         A37107
                                      9+*A175000                                                         A37107
                                     10+*
000000 00000000                      11+         DC    F'0'
000004 40                            12+         DC    B'01000000'
000005 FF                            13+         DC    X'FF'
000006 0A00                          14+         DC    XL2'0A00'
                                     15     END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IHCUOPT  00001 000000 00003



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =    65
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   28 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM28.R0000145      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM28.S0000146      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM28.S0000146      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG29    / START 78240.1945
IEF374I STEP /SG29    / STOP  78240.1945 CPU   0MIN 00.12SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:18.38   ALLOC START    19:45:18.38   MAIN REGION ----- 300K                          *
*   STEP NAME SG29       STEP END TIME  19:45:18.98   PGM START TIME 19:45:18.75   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.60   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 3       0250 ------------ 0       0250 ------------ 0       0151 ----------- 11       0151 ----------- 11    *
*   0151 ------------ 8       0159 ------------ 4       0151 ------------ 3       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM28  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:19.00   ALLOC START    19:45:19.01   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:19.05   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM28 / START 78240.1945
IEF376I  JOB /R21AM28 / STOP  78240.1945 CPU   0MIN 00.12SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM28    JOB READ TIME 19:44:51.25   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.12   *
*   JOB CLASS A          JOB INIT TIME 19:45:18.38   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.68   *
*   ACCOUNT              JOB END TIME  19:45:19.06   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M   2222222    9999999                             A
            RRRRRRRRR  222222222      11        AAA     MM     MM  222222222  999999999                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  22     22  99     99                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM        22   99     99                         AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM       22    999999999                        AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM      22      9999999                         AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM     22           99                          AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM    22           99                           AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM   22222222     99                            AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM  222222222    99                             AA     AA

***********A  START   R21AM29    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM29    START  A***********
***********A  START   R21AM29    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM29    START  A***********
***********A  START   R21AM29    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM29    START  A***********
***********A  START   R21AM29    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM29    START  A***********
***********A  START   R21AM29    SYS SYSA   WTR 00E   07:47:13 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM29    START  A***********


//R21AM29 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG30 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEPCBL00)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM29  SG30
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEPCBL00  SD  01 000000 0004D8
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  SGIEP000 0,0,0,0,60,176,0
000000                                3+IEPCBL00 CSECT
                                      4+*(
                                      5+*2300                                                              0772
                                      6+*)
000000                                7+CR0      EQU   0 ***  REGISTER EQUATES FOR CIOP  ***
000001                                8+CR1      EQU   1
000002                                9+CR2      EQU   2
000003                               10+CR3      EQU   3
000004                               11+CR4      EQU   4
000005                               12+CR5      EQU   5
000006                               13+CR6      EQU   6
000007                               14+CR7      EQU   7
000008                               15+CR8      EQU   8
000009                               16+CR9      EQU   9
00000A                               17+CR10     EQU   10
00000B                               18+CR11     EQU   11
00000C                               19+CR12     EQU   12
00000D                               20+CR13     EQU   13
00000E                               21+CR14     EQU   14
00000F                               22+CR15     EQU   15
000000                               23+C0       EQU   0 ***  REGISTER EQUATES FOR PHASES  **
000001                               24+C1       EQU   1
000002                               25+C2       EQU   2
00000D                               26+C3       EQU   13
00000E                               27+C4       EQU   14
00000F                               28+C5       EQU   15
000005                               29+B1       EQU   5 BASE REG NO. 1
000006                               30+B2       EQU   6 BASE REG NO. 2
000007                               31+B3       EQU   7 BASE REG NO. 3
000008                               32+L1       EQU   8 LINK REG
000009                               33+P1       EQU   9 PARM REG
00000A                               34+W1       EQU   10
00000B                               35+W2       EQU   11
00000C                               36+W3       EQU   12
000003                               37+S1       EQU   3 INPUT REG
000004                               38+S2       EQU   4 OUTPUT REG
                                     39+*                 EQUATE INSTRUCTIONS FOR COMMON AREA
                                     40+*  INSTRUCTION           STOR/ALLOC              DESCRIPTION
000000                               41+UPCRD    EQU   0 CL80  FIRST CARD OF PROCEDURE DIV.
000050                               42+UPNAM    EQU   80 D  PROGRAM NAME FROM SOURCE
000058                               43+UBASE    EQU   88 F  DISPLACEMENT FROM MAP PARM
00005C                               44+UERRS    EQU   92 C   DIAGNOSTIC SEVERITY LEVEL SWITCH
                                     45+* BIT 0 - D , BIT 1 - E , BIT 2 - C , BIT 3 - W
00005E                               46+USUBR    EQU   94 2D  OBJ. TIME SUBROUTINES CALLED
000070                               47+UIOTB    EQU   112 INDICATES OBJECT TIME SUBROUTINES
000073                               48+USMTB    EQU   115 INDICATES OBJECT TIME SUBROUTINES
000076                               49+UTEMB    EQU   118 INDICATES OBJECT TIME SUBROUTINES
000079                               50+USTBA    EQU   121 INDICATES OBJECT TIME SUBROUTINES
000080                               51+UATSG    EQU   128 C    NO. OF SEGMENTS
000081                               52+USGTB    EQU   129 4C    NOTEWORD OF SEG TABLE
00008B                               53+UGTEM    EQU   139 C  NUMBER OF GENERATED TEMPORARIES
00008C                               54+USSEQ    EQU   140 3H  PREVIOUS SOURCE SEQ. NUMBER
000092                               55+USRCE    EQU   146 H  COUNT OF SOURCE
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000094                               56+URGBL    EQU   148 3H  REG/BL OF LABEL REC DATA NAME
00009A                               57+UBLOC    EQU   154 H  COUNT OF BASE LOCATORS
00009C                               58+UDCBF    EQU   156 9C  DCB FOR FORMS OFLO NAME
0000A5                               59+UWORK    EQU   165 C  SIZE OF WORK AREAS
0000A6                               60+UATBL    EQU   166 H  SIZE OF ATTRIBUTE TABLE
0000A8                               61+UWSIZ    EQU   168 F  WORKING STORAGE CORE SIZE
0000AC                               62+UISEQ    EQU   172 H  INTERNAL SEQUENCE NUMBER
0000AE                               63+USTBL    EQU   174 H  SIZE OF SUPP. ATRIB. TABLE
0000B0                               64+UGNLB    EQU   176 H  COUNT OF GENERATED LABELS
0000B2                               65+UAOPT    EQU   178 H  ACCEPT OPTION USED
0000B6                               66+UCLOS    EQU   182 H   1ST B.L. IN FILE SECTION
0000BB                               67+UALST    EQU   187 C  NUMBER OF ALTERNATE STATEMENTS
0000BF                               68+UWSRG    EQU   191 C  REG. ASSIGNED TO WORKING STOR.
0000C0                               69+UBDIS    EQU   192 3C  ADR. IN BASE/DIS. FORM
0000C3                               70+UDOPT    EQU   195
0000C4                               71+UNEXT    EQU   196 3C  NEXT BASE/DIS IN W.S. (END)
0000C7                               72+USWCH    EQU   199 C  SWITCH BYTE
                                     73+*  0 BIT - TRACE SWITCH                1 BIT - SEGMENTED ATRIB TABLE
                                     74+*  2 BIT - ALTER SWITCH                3 BIT - PERFORM SWITCH
                                     75+*  4 BIT - SECTION SWITCH              5 BIT - FLOATING POINT
                                     76+*  6 BIT - SUBPROGRAM
0000CB                               77+UHASH    EQU   203 3C HASH TABLE ADDRESS
0000D1                               78+ULINK    EQU   209 C  LAST BASE ASSIGNED TO LINKAGE
0000D2                               79+UGENL    EQU   210 H  HIGHEST GENERATED LABEL USED
0000E4                               80+UNSLA    EQU   228 H  NUMBER OF SOURCE LABELS
0000E6                               81+UNEXC    EQU   230 H  NO. ENTRY PNTS. FOR EXTRN CALL
0000E8                               82+UNALS    EQU   232 H  NO. OF ALTERED STATEMENTS
0000EA                               83+UNCSR    EQU   234 H  NO. OF SUBROUTINES CALLED
0000EC                               84+UNLIT    EQU   236 H  NUMBER OF LITERALS
0000EE                               85+UNUST    EQU   238 C  NO. EXITS FOR CHKPT OR LABELS
0000EF                               86+UCOMA    EQU   239 C  AREA FOR COMMA
0000F0                               87+UPOIN    EQU   240 C  AREA FOR PERIOD
0000F1                               88+UBYPAS   EQU   241 ONE BYTE AREA FOR PHASE BYPASS SCHEME           8102
                                     89+*                                  BIT 0 = LOG FILE SW             8102
                                     90+*                                  BIT 1 = DST TO BE CALLED IF ON  8102
0000F1                               91+CUBYPS   EQU   UBYPAS EQUATE DOS AND OS SYMBOLS FOR SYS INDEP.     8102
0000F4                               92+UDCBR    EQU   244 F  ADDR OF DCB FOR RERUN
0000F8                               93+UBUCK    EQU   248 F  CTR FOR 01 & 77 IN LINKAGE SEC
00012C                               94+ULNCT    EQU   300 2H  LINES/PAGE & LINE COUNTER
000130                               95+UCNCD    EQU   304
000040                               96+UXDSP    EQU   X'40' UCNCD-DISPLAY OBJECT CHECK-1 IS YES
000020                               97+UXFLG    EQU   X'20' UCNCD-DIAGS, 1 IS NO WARNINGS
000010                               98+UXEDT    EQU   X'10' UCNCD-PICTURE. 1 FOR INVERTED EDIT
000008                               99+UXBUG    EQU   X'8' UCNCD-1 FOR DEBUG OPTION
000001                              100+UXPF2    EQU   X'1' UCNCD- 00 - PFM1 01 - PFM2
000002                              101+UXPF3    EQU   X'2' UCNCD            10 - PFM3
000131                              102+UCNCE    EQU   305
000080                              103+UXLST    EQU   X'80' UCNCE- 1 FOR NO SOURCE LIST
000040                              104+UXDEK    EQU   X'40' UCNCE- 1 FOR NO DECK
000020                              105+UXDMP    EQU   X'20' UCNCE- 1 FOR NO DMAP
000010                              106+UXPMP    EQU   X'10' UCNCE- 1 FOR NO PMAP
000008                              107+UXERR    EQU   X'8' UCNCE- 1 IF NO DIAGS
000096                              108+USTSZ    EQU   150 SEG TABLE SIZE--NOT IN COMM AREA
000190                              109+UCWKA    EQU   400 POINTERS TO WORK A DECB'S
000198                              110+UCWKB    EQU   408 POINTERS TO WORK B DECB'S
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0001A0                              111+UCWKC    EQU   416 POINTERS TO WORK C DECB'S
0001A8                              112+UCDCBIN  EQU   424 ADR OF SYSIN DCB
0001AC                              113+UCDCBOUT EQU   428 ADR OF SYSOUT DCB--SYS,SIS,ASW
0001B0                              114+UCDCBLIB EQU   432 ADR OF SYSLIB DCB--SYS,SIS
0001B4                              115+UCDCBA   EQU   436 ADR OF SYSUT1 DCB
0001B8                              116+UCDCBB   EQU   440 ADR OF SYSUT2 DCB
0001BC                              117+UCDCBC   EQU   444 ADR OF SYSUT3 DCB
0001C0                              118+UCDCBPCH EQU   448 ADR OF SYSPUNCH DCB--ASP
0001C4                              119+UCTBADR  EQU   452 ADR OF CORE FROM LATEST GETMAIN
0001C8                              120+UCTBSZ   EQU   456 SIZE OF CORE FROM LATEST GETMAIN
0001D0                              121+UCATAB   EQU   464 SIZE OF GETMAIN FOR ATRIB. TABLE
0001D0                              122+UCPSEQ   EQU   464 3C   WORK AREA FOR SEQ. OBJECT
0001D4                              123+UCDEBUG  EQU   468
0001D8                              124+UCSW     EQU   472
000080                              125+CXIFA    EQU   X'80' ON IF INVERTED FILE ASSIGNMENTS
0001E0                              126+UCMAX    EQU   480
0001E4                              127+UCREP    EQU   484
0001F4                              128+UCINVLST EQU   500 ADDR. IF INVOCATION PARAMS
                                    129+*DISPLACEMENTS OF FIELDS IN DCBS
000011                              130+CDEVT    EQU   17 DCBDEVT
000020                              131+CEODAD   EQU   32 DCBEODAD
00003E                              132+CBLKSI   EQU   62 DCBBLKSIZE
                                    133+*DISPLACEMENTS OF FIELDS IN THE EXTENDED DECB           **STORED BY **
000004                              134+CTTP     EQU   4 TYPE OPERAND         COPEN
000006                              135+CTLT     EQU   6 LENGTH OPERAND       CPUT
000008                              136+CTDCB    EQU   8 DCB ADDRESS          CONSTANT
00000C                              137+CTAR     EQU   12 AREA POINTER         BUFFER ASSIGN
000014                              138+CTPT     EQU   20 POSITION IN BUFFER   CPUT & CGET
000018                              139+CTLX     EQU   24 LIMIT OF BUFFER      COPEN
00001C                              140+CTSZ     EQU   28 BUFFER SIZE          SET
00001E                              141+CTSWCH   EQU   30 ONE BYTE FOR SWITCHES
000080                              142+CDWRT    EQU   X'80' ON WHEN BUFFER HAS BEEN WRITTEN ONCE
000000 90EC D00C            0000C   143+CETCBL   STM   CR14,CR12,12(CR13)
000004 0550                         144+         BALR  B1,0
000006                              145+         USING *,B1
000006 50D0 506A            00070   146+         ST    CR13,CRSAVE+4 STORE HIGHER LEVEL S.A. POINTER
00000A 5010 52A2            002A8   147+         ST    CR1,TOP+UCINVLST STORE ADR OF PARAM LIST FOR SET
00000E 4120 50AE            000B4   148+         LA    CR2,TOP POINT TO COMMUNICATION AREA WITH CR2
000012 41F0 505E            00064   149+         LA    CR15,CPHADR POINT TO MODULE NAME POINTER
000016 41D0 5066            0006C   150+         LA    CR13,CRSAVE POINT TO S.A. FOR C.P. USE
00001A 0A06                         151+         SVC   6
00001C 9180 5282      00288         152+         TM    TOP+UCDEBUG,X'80' T   WAS DEBUG MODULE LOADED
000020 4780 502C            00032   153+         BZ    CEXIT T   IF NOT, DONT DELETE
000024 4500 502A            00030   154+         BAL   0,*+12 LOAD ADDR OF EP SYMBOL
000028 C9C5D7C4C5C2E4C7             155+         DC    CL8'IEPDEBUG' EP SYMBOL
000030 0A09                         156+         SVC   9 ISSUE DELETE SVC
000032 1BFF                         157+CEXIT    SR    CR15,CR15 CLEAR REG FOR RETURN CODE
000034 43F0 510A            00110   158+         IC    CR15,TOP+UERRS LOAD CODE FROM DIAGNOSTIC PHASE
000038 88F0 0004            00004   159+         SRL   CR15,4 CONVERT TO O.S. STANDARD
00003C 43FF 504C            00052   160+         IC    CR15,RCODE(CR15) CONVERT CODE TO O/S VERSION     1461
000040 58D0 506A            00070   161+         L     CR13,CRSAVE+4 LOAD ADR OF TASK SAVE AREA
000044 58ED 000C            0000C   162+         L     CR14,12(CR13) LOAD RETURN REGISTER
000048 980C D014            00014   163+         LM    CR0,CR12,20(CR13) RESTORE OTHER REGISTERS
00004C 07FE                         164+         BR    CR14 AND EXIT
00004E 47F8 0002            00002   165+NOOP     B     2(L1) NO-OP DEBUG ROUTINE
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000052 000408080C0C0C0C             166+RCODE    DC    X'000408080C0C0C0C10' 1461
00005B C9C5D7E2E8E2F0F0             167+CPHLN    DC    C'IEPSYS00'
000063 00
000064 0000005B                     168+CPHADR   DC    A(CPHLN)
000068 00000000                     169+         DC    A(0)
00006C 0000000000000000             170+CRSAVE   DC    18F'0' SAVE AREA FOR C.P. USE
0000B4                              171+TOP      DC    0F'0' START OF COMMON AREA
0000B4 0000000000000000             172+         DC    4XL100'00'
0001E4                              173+         ORG   TOP+UCNCD
0001E4 40                           174+         DC    B'01000000' 0772
0001E5                              175+         ORG   TOP+UCNCE
0001E5 00                           176+         DC    B'00000000'
000134                              177+         ORG   TOP+UATSG
000134 01                           178+         DC    X'1'
0001A3                              179+         ORG   TOP+UCOMA
0001A3 6B4B                         180+         DC    C',.'
0001A5                              181+         ORG   TOP+UBYPAS 8102
0001A5 00                           182+         DC    XL1'00' BIT0= LOG FILE SW, BIT1= BYPASS DST IF OFF 8102
000288                              183+         ORG   TOP+UCDEBUG T
000288 80                           184+         DC    X'80' T   INDICATES MODULE NOT LOADED
000289 00004E                       185+         DC    AL3(NOOP) T   ADR OF DEBUG MODULE OR DUMMY
0001E0                              186+         ORG   TOP+ULNCT
0001E0 003C                         187+         DC    H'60'
0001E2 003C                         188+         DC    H'60'
00028C                              189+         ORG   TOP+UCSW
00028C 00                           190+         DC    X'0'
000244                              191+         ORG   TOP+UCWKA
000244 00000418                     192+         DC    A(DECB1A)
000248 00000438                     193+         DC    A(DECB2A)
00024C 00000458                     194+         DC    A(DECB1B)
000250 00000478                     195+         DC    A(DECB2B)
000254 00000498                     196+         DC    A(DECB1C)
000258 000004B8                     197+         DC    A(DECB2C)
00025C                              198+         ORG   TOP+UCDCBIN
00025C 000003C0                     199+         DC    A(DCBIN)
000268                              200+         ORG   TOP+UCDCBA
000268 000002B0                     201+         DC    A(DCBUT1)
00026C 0000030C                     202+         DC    A(DCBUT2)
000270 00000368                     203+         DC    A(DCBUT3)
0002AC                              204+         ORG   TOP+504
0002AC 00000000                     205+NOTEWD1  DC    F'0'


                                    207+*                       DATA CONTROL BLOCK
                                    208+*
0002B0                              209+DCBUT1   DC    0F'0' ORIGIN ON WORD BOUNDARY

                                    211+*                       DIRECT ACCESS DEVICE INTERFACE

0002B0 0000000000000000             213+         DC    BL16'0' FDAD,DVTBL
0002C0 00000000                     214+         DC    A(0) KEYLE,DEVT,TRBAL

                                    216+*                       COMMON ACCESS METHOD INTERFACE

0002C4 00                           218+         DC    AL1(0) BUFNO
                                                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0002C5 000001                       219+         DC    AL3(1) BUFCB
0002C8 0000                         220+         DC    AL2(0) BUFL
0002CA 4000                         221+         DC    BL2'0100000000000000' DSORG
0002CC 00000001                     222+         DC    A(1) IOBAD

                                    224+*                       FOUNDATION EXTENSION

0002D0 00                           226+         DC    BL1'00000000' BFTEK,BFLN,HIARCHY
0002D1 000001                       227+         DC    AL3(1) EODAD
0002D4 C0                           228+         DC    BL1'11000000' RECFM
0002D5 000000                       229+         DC    AL3(0) EXLST

                                    231+*                       FOUNDATION BLOCK

0002D8 E2E8E2E4E3F14040             233+         DC    CL8'SYSUT1' DDNAME
0002E0 02                           234+         DC    BL1'00000010' OFLGS
0002E1 00                           235+         DC    BL1'00000000' IFLG
0002E2 2424                         236+         DC    BL2'0010010000100100' MACR

                                    238+*                       BSAM-BPAM-QSAM INTERFACE

0002E4 00                           240+         DC    BL1'00000000' RER1
0002E5 000001                       241+         DC    AL3(1) CHECK, GERR, PERR
0002E8 00000001                     242+         DC    A(1) SYNAD
0002EC 0000                         243+         DC    H'0' CIND1, CIND2
0002EE 0E29                         244+         DC    AL2(3625) BLKSIZE
0002F0 00000000                     245+         DC    F'0' WCPO, WCPL, OFFSR, OFFSW
0002F4 00000001                     246+         DC    A(1) IOBA
0002F8 02                           247+         DC    AL1(2) NCP
0002F9 000001                       248+         DC    AL3(1) EOBR, EOBAD

                                    250+*                         BSAM-BPAM INTERFACE

0002FC 00000001                     252+         DC    A(1) EOBW
000300 0000                         253+         DC    H'0' DIRCT
000302 0000                         254+         DC    AL2(0) LRECL
000304 00000001                     255+         DC    A(1) CNTRL, NOTE, POINT
000308 00000000                     256+NOTEWD2  DC    F'0'


                                    258+*                       DATA CONTROL BLOCK
                                    259+*
00030C                              260+DCBUT2   DC    0F'0' ORIGIN ON WORD BOUNDARY

                                    262+*                       DIRECT ACCESS DEVICE INTERFACE

00030C 0000000000000000             264+         DC    BL16'0' FDAD,DVTBL
00031C 00000000                     265+         DC    A(0) KEYLE,DEVT,TRBAL

                                    267+*                       COMMON ACCESS METHOD INTERFACE

000320 00                           269+         DC    AL1(0) BUFNO
000321 000001                       270+         DC    AL3(1) BUFCB
000324 0000                         271+         DC    AL2(0) BUFL
000326 4000                         272+         DC    BL2'0100000000000000' DSORG
                                                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000328 00000001                     273+         DC    A(1) IOBAD

                                    275+*                       FOUNDATION EXTENSION

00032C 00                           277+         DC    BL1'00000000' BFTEK,BFLN,HIARCHY
00032D 000001                       278+         DC    AL3(1) EODAD
000330 C0                           279+         DC    BL1'11000000' RECFM
000331 000000                       280+         DC    AL3(0) EXLST

                                    282+*                       FOUNDATION BLOCK

000334 E2E8E2E4E3F24040             284+         DC    CL8'SYSUT2' DDNAME
00033C 02                           285+         DC    BL1'00000010' OFLGS
00033D 00                           286+         DC    BL1'00000000' IFLG
00033E 2424                         287+         DC    BL2'0010010000100100' MACR

                                    289+*                       BSAM-BPAM-QSAM INTERFACE

000340 00                           291+         DC    BL1'00000000' RER1
000341 000001                       292+         DC    AL3(1) CHECK, GERR, PERR
000344 00000001                     293+         DC    A(1) SYNAD
000348 0000                         294+         DC    H'0' CIND1, CIND2
00034A 0E29                         295+         DC    AL2(3625) BLKSIZE
00034C 00000000                     296+         DC    F'0' WCPO, WCPL, OFFSR, OFFSW
000350 00000001                     297+         DC    A(1) IOBA
000354 02                           298+         DC    AL1(2) NCP
000355 000001                       299+         DC    AL3(1) EOBR, EOBAD

                                    301+*                         BSAM-BPAM INTERFACE

000358 00000001                     303+         DC    A(1) EOBW
00035C 0000                         304+         DC    H'0' DIRCT
00035E 0000                         305+         DC    AL2(0) LRECL
000360 00000001                     306+         DC    A(1) CNTRL, NOTE, POINT
000364 00000000                     307+NOTEWD3  DC    F'0'


                                    309+*                       DATA CONTROL BLOCK
                                    310+*
000368                              311+DCBUT3   DC    0F'0' ORIGIN ON WORD BOUNDARY

                                    313+*                       DIRECT ACCESS DEVICE INTERFACE

000368 0000000000000000             315+         DC    BL16'0' FDAD,DVTBL
000378 00000000                     316+         DC    A(0) KEYLE,DEVT,TRBAL

                                    318+*                       COMMON ACCESS METHOD INTERFACE

00037C 00                           320+         DC    AL1(0) BUFNO
00037D 000001                       321+         DC    AL3(1) BUFCB
000380 0000                         322+         DC    AL2(0) BUFL
000382 4000                         323+         DC    BL2'0100000000000000' DSORG
000384 00000001                     324+         DC    A(1) IOBAD

                                    326+*                       FOUNDATION EXTENSION
                                                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000388 00                           328+         DC    BL1'00000000' BFTEK,BFLN,HIARCHY
000389 000001                       329+         DC    AL3(1) EODAD
00038C C0                           330+         DC    BL1'11000000' RECFM
00038D 000000                       331+         DC    AL3(0) EXLST

                                    333+*                       FOUNDATION BLOCK

000390 E2E8E2E4E3F34040             335+         DC    CL8'SYSUT3' DDNAME
000398 02                           336+         DC    BL1'00000010' OFLGS
000399 00                           337+         DC    BL1'00000000' IFLG
00039A 2424                         338+         DC    BL2'0010010000100100' MACR

                                    340+*                       BSAM-BPAM-QSAM INTERFACE

00039C 00                           342+         DC    BL1'00000000' RER1
00039D 000001                       343+         DC    AL3(1) CHECK, GERR, PERR
0003A0 00000001                     344+         DC    A(1) SYNAD
0003A4 0000                         345+         DC    H'0' CIND1, CIND2
0003A6 0E29                         346+         DC    AL2(3625) BLKSIZE
0003A8 00000000                     347+         DC    F'0' WCPO, WCPL, OFFSR, OFFSW
0003AC 00000001                     348+         DC    A(1) IOBA
0003B0 02                           349+         DC    AL1(2) NCP
0003B1 000001                       350+         DC    AL3(1) EOBR, EOBAD

                                    352+*                         BSAM-BPAM INTERFACE

0003B4 00000001                     354+         DC    A(1) EOBW
0003B8 0000                         355+         DC    H'0' DIRCT
0003BA 0000                         356+         DC    AL2(0) LRECL
0003BC 00000001                     357+         DC    A(1) CNTRL, NOTE, POINT


                                    359+*                       DATA CONTROL BLOCK
                                    360+*
0003C0                              361+DCBIN    DC    0F'0' ORIGIN ON WORD BOUNDARY

                                    363+*                       DIRECT ACCESS DEVICE INTERFACE

0003C0 0000000000000000             365+         DC    BL16'0' FDAD,DVTBL
0003D0 00000000                     366+         DC    A(0) KEYLE,DEVT,TRBAL

                                    368+*                       COMMON ACCESS METHOD INTERFACE

0003D4 00                           370+         DC    AL1(0) BUFNO
0003D5 000001                       371+         DC    AL3(1) BUFCB
0003D8 0000                         372+         DC    AL2(0) BUFL
0003DA 4000                         373+         DC    BL2'0100000000000000' DSORG
0003DC 00000001                     374+         DC    A(1) IOBAD

                                    376+*                       FOUNDATION EXTENSION

0003E0 00                           378+         DC    BL1'00000000' BFTEK,BFLN,HIARCHY
0003E1 000001                       379+         DC    AL3(1) EODAD
0003E4 80                           380+         DC    BL1'10000000' RECFM
0003E5 000000                       381+         DC    AL3(0) EXLST
                                                                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    383+*                       FOUNDATION BLOCK

0003E8 E2E8E2C9D5404040             385+         DC    CL8'SYSIN' DDNAME
0003F0 02                           386+         DC    BL1'00000010' OFLGS
0003F1 00                           387+         DC    BL1'00000000' IFLG
0003F2 2000                         388+         DC    BL2'0010000000000000' MACR

                                    390+*                       BSAM-BPAM-QSAM INTERFACE

0003F4 00                           392+         DC    BL1'00000000' RER1
0003F5 000001                       393+         DC    AL3(1) CHECK, GERR, PERR
0003F8 00000001                     394+         DC    A(1) SYNAD
0003FC 0000                         395+         DC    H'0' CIND1, CIND2
0003FE 0050                         396+         DC    AL2(80) BLKSIZE
000400 00000000                     397+         DC    F'0' WCPO, WCPL, OFFSR, OFFSW
000404 00000001                     398+         DC    A(1) IOBA
000408 00                           399+         DC    AL1(0) NCP
000409 000001                       400+         DC    AL3(1) EOBR, EOBAD

                                    402+*                         BSAM-BPAM INTERFACE

00040C 00000001                     404+         DC    A(1) EOBW
000410 0000                         405+         DC    H'0' DIRCT
000412 0000                         406+         DC    AL2(0) LRECL
000414 00000001                     407+         DC    A(1) CNTRL, NOTE, POINT
000418 00000000                     408+DECB1A   DC    F'0' EXTENDED DECB NO. 1 FOR SYSUT1
00041C 0000                         409+         DC    H'0' TYPE FLAG--PLUGGED BY COPEN
00041E 0000                         410+         DC    H'0' LENGTH--PLUGGED BY CPUT
000420 000002B0                     411+         DC    A(DCBUT1)
000424 00000000                     412+         DC    F'0' AREA ADDRESS, PLUGGED WHEN OPENED
000428 00000000                     413+         DC    F'0' STATUS
00042C 00000000                     414+         DC    F'0' POINTER
000430 00000000                     415+         DC    F'0' BUFFER LIMIT-EXTENSION OF DECB
000434 00B0                         416+         DC    H'176' SIZE OF BUFFER
000436 0000                         417+         DC    H'0' SWITCH BYTE AND SLACK BYTE
000438 00000000                     418+DECB2A   DC    F'0' EXTENDED DECB NO. 2 FOR SYSUT1
00043C 0000                         419+         DC    H'0' TYPE FLAG--PLUGGED BY COPEN
00043E 0000                         420+         DC    H'0' LENGTH--PLUGGED BY CPUT
000440 000002B0                     421+         DC    A(DCBUT1)
000444 00000000                     422+         DC    F'0' AREA ADDRESS, PLUGGED WHEN OPENED
000448 00000000                     423+         DC    F'0' STATUS
00044C 00000000                     424+         DC    F'0' POINTER
000450 00000000                     425+         DC    F'0' BUFFER LIMIT-EXTENSION OF DECB
000454 00B0                         426+         DC    H'176' SIZE OF BUFFER
000456 0000                         427+         DC    H'0' SWITCH BYTE AND SLACK BYTE
000458 00000000                     428+DECB1B   DC    F'0' EXTENDED DECB NO. 1 FOR SYSUT2
00045C 0000                         429+         DC    H'0' TYPE FLAG--PLUGGED BY COPEN
00045E 0000                         430+         DC    H'0' LENGTH--PLUGGED BY CPUT
000460 0000030C                     431+         DC    A(DCBUT2)
000464 00000000                     432+         DC    F'0' AREA ADDRESS, PLUGGED WHEN OPENED
000468 00000000                     433+         DC    F'0' STATUS
00046C 00000000                     434+         DC    F'0' POINTER
000470 00000000                     435+         DC    F'0' BUFFER LIMIT-EXTENSION OF DECB
000474 00B0                         436+         DC    H'176' SIZE OF BUFFER
000476 0000                         437+         DC    H'0' SWITCH BYTE AND SLACK BYTE
                                                                                                               PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000478 00000000                     438+DECB2B   DC    F'0' EXTENDED DECB NO. 2 FOR SYSUT2
00047C 0000                         439+         DC    H'0' TYPE FLAG--PLUGGED BY COPEN
00047E 0000                         440+         DC    H'0' LENGTH--PLUGGED BY CPUT
000480 0000030C                     441+         DC    A(DCBUT2)
000484 00000000                     442+         DC    F'0' AREA ADDRESS, PLUGGED WHEN OPENED
000488 00000000                     443+         DC    F'0' STATUS
00048C 00000000                     444+         DC    F'0' POINTER
000490 00000000                     445+         DC    F'0' BUFFER LIMIT-EXTENSION OF DECB
000494 00B0                         446+         DC    H'176' SIZE OF BUFFER
000496 0000                         447+         DC    H'0' SWITCH BYTE AND SLACK BYTE
000498 00000000                     448+DECB1C   DC    F'0' EXTENDED DECB NO. 1 FOR SYSUT3
00049C 0000                         449+         DC    H'0' TYPE FLAG--PLUGGED BY COPEN
00049E 0000                         450+         DC    H'0' LENGTH--PLUGGED BY CPUT
0004A0 00000368                     451+         DC    A(DCBUT3)
0004A4 00000000                     452+         DC    F'0' AREA ADDRESS, PLUGGED WHEN OPENED
0004A8 00000000                     453+         DC    F'0' STATUS
0004AC 00000000                     454+         DC    F'0' POINTER
0004B0 00000000                     455+         DC    F'0' BUFFER LIMIT-EXTENSION OF DECB
0004B4 00B0                         456+         DC    H'176' SIZE OF BUFFER
0004B6 0000                         457+         DC    H'0' SWITCH BYTE AND SLACK BYTE
0004B8 00000000                     458+DECB2C   DC    F'0' EXTENDED DECB NO. 2 FOR SYSUT3
0004BC 0000                         459+         DC    H'0' TYPE FLAG--PLUGGED BY COPEN
0004BE 0000                         460+         DC    H'0' LENGTH--PLUGGED BY CPUT
0004C0 00000368                     461+         DC    A(DCBUT3)
0004C4 00000000                     462+         DC    F'0' AREA ADDRESS, PLUGGED WHEN OPENED
0004C8 00000000                     463+         DC    F'0' STATUS
0004CC 00000000                     464+         DC    F'0' POINTER
0004D0 00000000                     465+         DC    F'0' BUFFER LIMIT-EXTENSION OF DECB
0004D4 00B0                         466+         DC    H'176' SIZE OF BUFFER
0004D6 0000                         467+         DC    H'0' SWITCH BYTE AND SLACK BYTE
                                    468  END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000064
   01       01      0C     000244
   01       01      0C     000248
   01       01      0C     00024C
   01       01      0C     000250
   01       01      0C     000254
   01       01      0C     000258
   01       01      0C     00025C
   01       01      0C     000268
   01       01      0C     00026C
   01       01      0C     000270
   01       01      08     000289
   01       01      0C     000420
   01       01      0C     000440
   01       01      0C     000460
   01       01      0C     000480
   01       01      0C     0004A0
   01       01      0C     0004C0
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

B1       00001 000005 00029   0144  0145
B2       00001 000006 00030
B3       00001 000007 00031
CBLKSI   00001 00003E 00132
CDEVT    00001 000011 00130
CDWRT    00001 000080 00142
CEODAD   00001 000020 00131
CETCBL   00004 000000 00143
CEXIT    00002 000032 00157   0153
CPHADR   00004 000064 00168   0149
CPHLN    00008 00005B 00167   0168
CRSAVE   00004 00006C 00170   0146  0150  0161
CR0      00001 000000 00007   0163
CR1      00001 000001 00008   0147
CR10     00001 00000A 00017
CR11     00001 00000B 00018
CR12     00001 00000C 00019   0143  0163
CR13     00001 00000D 00020   0143  0146  0150  0161  0162  0163
CR14     00001 00000E 00021   0143  0162  0164
CR15     00001 00000F 00022   0149  0157  0157  0158  0159  0160  0160
CR2      00001 000002 00009   0148
CR3      00001 000003 00010
CR4      00001 000004 00011
CR5      00001 000005 00012
CR6      00001 000006 00013
CR7      00001 000007 00014
CR8      00001 000008 00015
CR9      00001 000009 00016
CTAR     00001 00000C 00137
CTDCB    00001 000008 00136
CTLT     00001 000006 00135
CTLX     00001 000018 00139
CTPT     00001 000014 00138
CTSWCH   00001 00001E 00141
CTSZ     00001 00001C 00140
CTTP     00001 000004 00134
CUBYPS   00001 0000F1 00091
CXIFA    00001 000080 00125
C0       00001 000000 00023
C1       00001 000001 00024
C2       00001 000002 00025
C3       00001 00000D 00026
C4       00001 00000E 00027
C5       00001 00000F 00028
DCBIN    00004 0003C0 00361   0199
DCBUT1   00004 0002B0 00209   0201  0411  0421
DCBUT2   00004 00030C 00260   0202  0431  0441
DCBUT3   00004 000368 00311   0203  0451  0461
DECB1A   00004 000418 00408   0192
DECB1B   00004 000458 00428   0194
DECB1C   00004 000498 00448   0196
DECB2A   00004 000438 00418   0193
DECB2B   00004 000478 00438   0195
DECB2C   00004 0004B8 00458   0197
IEPCBL00 00001 000000 00003
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

L1       00001 000008 00032   0165
NOOP     00004 00004E 00165   0185
NOTEWD1  00004 0002AC 00205
NOTEWD2  00004 000308 00256
NOTEWD3  00004 000364 00307
P1       00001 000009 00033
RCODE    00009 000052 00166   0160
S1       00001 000003 00037
S2       00001 000004 00038
TOP      00004 0000B4 00171   0147  0148  0152  0158  0173  0175  0177  0179  0181  0183  0186  0189  0191  0198  0200
                              0204
UALST    00001 0000BB 00067
UAOPT    00001 0000B2 00065
UATBL    00001 0000A6 00060
UATSG    00001 000080 00051   0177
UBASE    00001 000058 00043
UBDIS    00001 0000C0 00069
UBLOC    00001 00009A 00057
UBUCK    00001 0000F8 00093
UBYPAS   00001 0000F1 00088   0091  0181
UCATAB   00001 0001D0 00121
UCDCBA   00001 0001B4 00115   0200
UCDCBB   00001 0001B8 00116
UCDCBC   00001 0001BC 00117
UCDCBIN  00001 0001A8 00112   0198
UCDCBLIB 00001 0001B0 00114
UCDCBOUT 00001 0001AC 00113
UCDCBPCH 00001 0001C0 00118
UCDEBUG  00001 0001D4 00123   0152  0183
UCINVLST 00001 0001F4 00128   0147
UCLOS    00001 0000B6 00066
UCMAX    00001 0001E0 00126
UCNCD    00001 000130 00095   0173
UCNCE    00001 000131 00102   0175
UCOMA    00001 0000EF 00086   0179
UCPSEQ   00001 0001D0 00122
UCREP    00001 0001E4 00127
UCSW     00001 0001D8 00124   0189
UCTBADR  00001 0001C4 00119
UCTBSZ   00001 0001C8 00120
UCWKA    00001 000190 00109   0191
UCWKB    00001 000198 00110
UCWKC    00001 0001A0 00111
UDCBF    00001 00009C 00058
UDCBR    00001 0000F4 00092
UDOPT    00001 0000C3 00070
UERRS    00001 00005C 00044   0158
UGENL    00001 0000D2 00079
UGNLB    00001 0000B0 00064
UGTEM    00001 00008B 00053
UHASH    00001 0000CB 00077
UIOTB    00001 000070 00047
UISEQ    00001 0000AC 00062
ULINK    00001 0000D1 00078
ULNCT    00001 00012C 00094   0186
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UNALS    00001 0000E8 00082
UNCSR    00001 0000EA 00083
UNEXC    00001 0000E6 00081
UNEXT    00001 0000C4 00071
UNLIT    00001 0000EC 00084
UNSLA    00001 0000E4 00080
UNUST    00001 0000EE 00085
UPCRD    00001 000000 00041
UPNAM    00001 000050 00042
UPOIN    00001 0000F0 00087
URGBL    00001 000094 00056
USGTB    00001 000081 00052
USMTB    00001 000073 00048
USRCE    00001 000092 00055
USSEQ    00001 00008C 00054
USTBA    00001 000079 00050
USTBL    00001 0000AE 00063
USTSZ    00001 000096 00108
USUBR    00001 00005E 00046
USWCH    00001 0000C7 00072
UTEMB    00001 000076 00049
UWORK    00001 0000A5 00059
UWSIZ    00001 0000A8 00061
UWSRG    00001 0000BF 00068
UXBUG    00001 000008 00099
UXDEK    00001 000040 00104
UXDMP    00001 000020 00105
UXDSP    00001 000040 00096
UXEDT    00001 000010 00098
UXERR    00001 000008 00107
UXFLG    00001 000020 00097
UXLST    00001 000080 00103
UXPF2    00001 000001 00100
UXPF3    00001 000002 00101
UXPMP    00001 000010 00106
W1       00001 00000A 00034
W2       00001 00000B 00035
W3       00001 00000C 00036



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  2838
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  617 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM29.R0000147      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM29.S0000148      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM29.S0000148      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG30    / START 78240.1945
IEF374I STEP /SG30    / STOP  78240.1945 CPU   0MIN 00.68SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:19.09   ALLOC START    19:45:19.09   MAIN REGION ----- 300K                          *
*   STEP NAME SG30       STEP END TIME  19:45:20.32   PGM START TIME 19:45:19.18   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:01.23   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.68   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 80       0250 ------------ 0       0250 ------------ 0       0151 ----------- 25       0151 ----------- 63    *
*   0151 ---------- 171       0353 ----------- 78       0151 ----------- 36       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM29  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:20.36   ALLOC START    19:45:20.37   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:20.39   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM29 / START 78240.1945
IEF376I  JOB /R21AM29 / STOP  78240.1945 CPU   0MIN 00.68SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM29    JOB READ TIME 19:44:51.35   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.68   *
*   JOB CLASS A          JOB INIT TIME 19:45:19.09   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.31   *
*   ACCOUNT              JOB END TIME  19:45:20.40   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M  333333333    00000                              A
            RRRRRRRRR  222222222      11        AAA     MM     MM  333333333   0000000                            AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  33    33   00     00                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM       33    00    000                         AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      3333   00   0 00                        AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM     333333  00  0  00                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM         33  00 0   00                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  33     33  000    00                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM  333333333   0000000                         AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM   3333333     00000                          AA     AA

***********A  START   R21AM30    SYS SYSA   WTR 00E   07:47:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM30    START  A***********
***********A  START   R21AM30    SYS SYSA   WTR 00E   07:47:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM30    START  A***********
***********A  START   R21AM30    SYS SYSA   WTR 00E   07:47:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM30    START  A***********
***********A  START   R21AM30    SYS SYSA   WTR 00E   07:47:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM30    START  A***********
***********A  START   R21AM30    SYS SYSA   WTR 00E   07:47:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM30    START  A***********


//R21AM30 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG31 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IKFCBL01)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM30  SG31
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


PH01                                          EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IKFCBL01  SD  01 000000 0008A0
IKF011    SD  02 0008A0 000DF4
ZBLDL01   SD  03 001698 0004D4
IKF012    SD  04 001B70 002FAE
PH01                                                                                                           PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  SGIKF000 1,0,1,1,1,1,00,                                              X
                                                       60,2768,81920,1,0,0,0,0,0,0,1
PH01   IKFCBL01                                                                                                PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      4+*     THIS IS A MACRO GENERATING COBOL COMMON AS A DSECT USED
                                      5+*      BY EVERY PHASE OF THE COBOL COMPILER
                                      6+*
                                      7+***********************************************************************
                                      8+*      COMMON - THE COMMUNICATIONS AREA
                                      9+***********************************************************************
                                     10+*      THIS TABLE IS LOCATED IN PH0 FOLLOWING THE ENTRY POINT- COS.
                                     11+*      AT ENTRY TO EACH PHASE R1 POINTS TO THE SLOT CONTAINING COSADDR.
000000                               12+COS      DSECT
000000                               13+         DS    3F EXECUTABLE CODE IN PH0
00000C                               14+TIB0     DS    2F
000014                               15+TIB1     DS    2F
00001C                               16+TIB2     DS    2F
000024                               17+TIB3     DS    2F
00002C                               18+TIB4     DS    2F
000034                               19+TIB5     DS    2F
00003C                               20+TIB6     DS    2F
000044                               21+TIB7     DS    2F
00004C                               22+TIB8     DS    2F
000054                               23+TIB9     DS    2F
00005C                               24+TIB10    DS    2F
000064                               25+TIB11    DS    2F
00006C                               26+TIB12    DS    2F
000074                               27+TIB13    DS    2F
00007C                               28+TIB14    DS    2F
000084                               29+TIB15    DS    2F
00008C                               30+TIB16    DS    2F
000094                               31+TIB17    DS    2F
00009C                               32+TIB18    DS    2F
0000A4                               33+TIB19    DS    2F
0000AC                               34+TIB20    DS    2F
0000B4                               35+TIB21    DS    2F
0000BC                               36+TIB22    DS    2F
0000C4                               37+TIB23    DS    2F
0000CC                               38+TIB24    DS    2F
0000D4                               39+TIB25    DS    2F
0000DC                               40+TIB26    DS    2F
0000E4                               41+TIB27    DS    2F
0000EC                               42+TIB28    DS    2F
0000F4                               43+TIB29    DS    2F
0000FC                               44+TIB30    DS    2F
000104                               45+TIB31    DS    2F
00010C                               46+TIB32    DS    2F
000114                               47+TIB33    DS    2F
00011C                               48+TIB34    DS    2F
000124                               49+TIB35    DS    2F
00012C                               50+APRIME   DS    F ADDRESS OF SUBROUTINE-PRIME   IN TAMER
000130                               51+AINSRT   DS    F ADDRESS OF SUBROUTINE-INSERT  IN TAMER
000134                               52+ADSTAT   DS    F ADDRESS OF SUBROUTINE-STATIC  IN TAMER
000138                               53+RELADD   DS    F ADDRESS OF SUBROUTINE-TABREL  IN TAMER
00013C                               54+TAMNAD   DS    F
000140                               55+ACCESW   DS    C ACCESS INITIALIZATION SWITCH
000141                               56+AMAINF   DS    CL3 POINTER TO THE MAIN FREE AREA FOR TABLES/DICT.
000144                               57+ALSTAM   DS    F POINTER TO THE LAST ENTRY IN TAMM
000148                               58+LOCCTR   DS    F RELATIVE ADDRESS OF THE NEXT AVAILABLE LOC
PH01   IKFCBL01                                                                                                PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00014C                               59+LOCCTR1  DS    F
000150                               60+PROGID   DS    CL8 PROGRAM-ID FROM THE IDENTICATION DIVISION
000158                               61+LABELS   DS    H CONTAINS LABEL INFORMATION.
00015A                               62+SEGCNTR  DS    H NUMBER OF SEGMENTS HIGHER THAN SEGMENT LIMIT -
                                     63+*                        USED BY PHASE 6
00015C                               64+PNCTR    DS    H COUNTER FOR ASSIGNING PB NUMBERS TO PROC.NAMES
00015E                               65+GNCTR    DS    H CTR. ASSIGNING GN NO.TO GENERATED PROC. NAMES
000160                               66+DCBCTR   DS    H CTR. ASSIGNING ID.NO.TO DCB'S
000162                               67+VIRCTR   DS    H CTR. ASSIGNING ID.NO.TO VIRTUALS
000164                               68+LTLCTR   DS    H CTR. ASSIGNING ID.NO.TO LITERALS
000166                               69+WCMAX    DS    H SIZE OF THE LARGEST WORK AREA FOR LIBRARY SUBR
000168                               70+TSMAX    DS    H SIZE OF THE TEMP. STORAGE FOR ARITHM. STMNTS
00016A                               71+TS2MAX   DS    H SAME AS ABOVE FOR NON-ARITHMETIC STATEMENTS
00016C                               72+ODOCTR   DS    H NUMBER OF Q-ROUTINES
00016E                               73+CKPCTR   DS    H NUMBER OF CHECKPOINT REQUESTS
000170                               74+INDCTR   DS    H AVAILABLE
000172                               75+SBLOMX   DS    H AVAILABLE
000174                               76+VLCOMX   DS    H AVAILABLE
000176                               77+SBLIMX   DS    H SAME AS SBLOMX FOR IN-LINE PROC.
000178                               78+VLCIMX   DS    H SAME AS VLCOMX FOR IN-LINE PROC.
00017A                               79+SBLCTR   DS    H COUNTER FOR ASSIGNING  SBL'S
00017C                               80+VLCCTR   DS    H USED TO DETERMINE VLCOMX AND VLCIMX
00017E                               81+BLLCTR   DS    H CTR. FOR ASSIGNING ID. NO.TO LINKAGE SEC. BL'S
000180                               82+SEQERR   DS    H NO. OF OUT-OF-SEQUENCE CARDS
000182                               83+SWITCH   DS    H
                                     84+*                        BITS MARKED BY * MAY STILL BE IN USE BY
                                     85+*                        COBOLF - ASSIGN THESE AS A LAST RESORT
000080                               86+SWTRCE   EQU   X'80' BIT 0  TRACE
                                     87+*              *         BIT 1
                                     88+*              *         BIT 2
000010                               89+SPILL    EQU   X'10' BIT 3  SET IF DICTIONARY SPILL
                                     90+*              *         BIT 4
000004                               91+MQVAR    EQU   X'04' BIT 5  SET IF PH2 BUILDS A QVAR TABLE
                                     92+*              *         BIT 6
000001                               93+MQFILE   EQU   X'01' BIT 7  SET IF PH2 BUILDS A QFILE TABLE
                                     94+*
                                     95+*                        SECOND BYTE OF SWITCH
                                     96+*              *         BIT 0
                                     97+*              *         BIT 1
000020                               98+SORTRTN  EQU   X'20' BIT 2  SORT RETURN SET BY PHASE2 USED BY PH5
000010                               99+RERUNN   EQU   X'10' BIT 3  RERUN USED BY PHASE 1, 2 AND 5
000008                              100+DSOU     EQU   X'08' BIT 4  SOURCE INDICATOR FOR STATISTICS
000004                              101+NOFITSW  EQU   X'04' BIT 5  SET BY PH6 IF E-TEXT ON FILE3
                                    102+*                               USED BY PH7 & PH00
000002                              103+DOPH7    EQU   X'02' BIT 6  PH6 LOOK AHEAD FOR PH7 YES OR NO
000001                              104+RDERRFIL EQU   X'01' BIT 7  PH6 INPUT INDICATOR
000184                              105+DICND2   DS    F DICTIONARY POINTER USED IN PH2
000188                              106+DICND1   DS    F DICTIONARY POINTER USED IN PH1
00018C                              107+DATE     DS    CL15 DATE/TIME OF COMPILATION
                                    108+*                        REUSED IN PHASE1 AS FOLLOWS
                                    109+*                                  BYTES 1-4 NUMBER OF DATA NAMES
                                    110+*                                        5-8 NUMBER OF VERBS
                                    111+*                                        9-12 NUMBER OF SOURCE CARDS
                                    112+*                                       13-15 NOT USED
00019B                              113+WSDEF    DS    0CL7 LAST 7 BYTES OF DATA A-TEXT EL.FOR WORK.ST.SEC
PH01   IKFCBL01                                                                                                PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00019B                              114+         DS    CL3
00019E                              115+WSBL     DS    C
00019F                              116+WSSIZE   DS    CL3
0001A2                              117+ERRSEV   DS    C HIGHEST ERROR SEVERITY LEVEL
0001A3                              118+PHZSW    DS    C OPTIONS SWITCH :
000080                              119+LIST     EQU   X'80' SOURCE(OS)
000040                              120+LISTX    EQU   X'40' PMAP
000020                              121+DECK     EQU   X'20'
000010                              122+LINK     EQU   X'10' LOAD
000008                              123+SEQ      EQU   X'08'
000004                              124+FLAGW    EQU   X'04'
000002                              125+LIBR     EQU   X'02'
000001                              126+ZWB      EQU   X'01'
0001A4                              127+PHZSW1   DS    C
000080                              128+XREF     EQU   X'80'
000040                              129+CLIST    EQU   X'40'
000020                              130+SYM      EQU   X'20' DMAP
000010                              131+PDT      EQU   X'10'
000004                              132+APOST    EQU   X'04'
000002                              133+MAPSP    EQU   X'02'
000001                              134+TRUNC    EQU   X'01'
0001A5                              135+PHZSW2   DS    C RESERVED FOR ADDITIONAL OPTIONS
000080                              136+STAT     EQU   X'80' RESERVED FOR STATEMENT NUMBER OPTION
000002                              137+NO6A     EQU   X'02' SET BY PH6 TO TELL PH7 THAT PH6A WAS BYPASSED
0001A8                              138+DICADR   DS    F
0001AC                              139+DLSVAL   DS    F ACCESS RTN. COMMUNICATION CELL
0001B0                              140+DICPTR   DS    C ACCESS RTN. COMMUNICATION CELL
0001B1                              141+DCPTR    DS    3C ACCESS RTN. COMMUNICATION CELL
0001B4                              142+RPTSAV   DS    H REPORT SAVE AREA CELL
0001B6                              143+BLSCTR   DS    H AVAILABLE
0001B8                              144+LCSECT   DS    F
0001BC                              145+PH7LOD   DS    F
0001C0                              146+RGNCTR   DS    H COUNT OF UNIQUE GN'S
0001C2                              147+ERF4SW   DS    C SWITCH USED BY PH6/PH7
0001C3                              148+PTYNO    DS    C CURRENT PRIORITY NO
                                    149+*                                  SET BY PH5  USED BY PH00
0001C4                              150+COMMAD   DS    H
0001C6                              151+PHZSW3   DS    C OPTION SWITCH
000001                              152+VERBR    EQU   X'01' LISTING A-TEXT
0001C7                              153+PHZSW4   DS    C RESERVED FOR ADDITIONAL OPTIONS
0001C8                              154+AMOVDC   DS    F
0001CC                              155+SDSIZ    DS    F BIGGEST SD IN PGM.
0001D0                              156+SEGLMT   DS    C
0001D1                              157+DTFNUM   DS    C
0001D2                              158+CURSGN   DS    C
0001D3                              159+PH1BYTE  DS    C PHASE 1 COMMUNICATION TO PHASE 2
000001                              160+UPSIBT   EQU   X'01' PASSES INFORMATION FROM PHASE 1A TO PHASE 2
000002                              161+EOPPH1   EQU   X'02' PASSES INFORMATION FROM PHASE 1A TO PHASE 1B
000004                              162+INITBIT  EQU   X'04' PASSES INFORMATION FROM PHASE 1A TO PHASE 2
000008                              163+BASINSQ  EQU   X'08' PH1A TO PH1B
000020                              164+BASIS    EQU   X'20'
000080                              165+F3TEXT   EQU   X'80'
0001D4                              166+DECBCT   DS    H NO OF DECB'S FOR PGM
0001D6                              167+INDEXS   DS    H AVAILABLE
0001D8                              168+INDEX1   DS    H # INDEX NAMES DEFNED IN IN-LINE FILES
PH01   IKFCBL01                                                                                                PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0001DA                              169+CYCTOTAL DS    H AVAILABLE
0001DC                              170+IOPTRCTR DS    H # I/O POINTERS FOR APPLY-WRITE-ONLY
0001DE                              171+TS3MAX   DS    H
0001E0                              172+TS4MAX   DS    H
0001E4                              173+BUFSIZE  DS    F USED FOR STATISTICS
0001E8                              174+CORESIZE DS    F USED FOR STATISTICS
0001EC                              175+CNTLINE  DS    H USED FOR STATISTICS
0001EE                              176+CURCRD   DS    H
0001F0                              177+SPACING  DS    C USED FOR STATISTICS
0001F1                              178+PDTCHR   DS    C SET BY PH01 USED BY PH6
0001F2                              179+         DS    H
0001F4                              180+BASINS   DS    1F
0001F8                              181+         DS    1F
                                    182+*
                                    183+*
0001FC                              184+         DS    0F
0001FC                              185+AGETALL  DS    F ADDRESS OF TAMER RTN - GETALL
000200                              186+         DS    F AVAILABLE
000204                              187+RPDNUM   DS    H AVAILABLE
000206                              188+CYCNUM   DS    H AVAILABLE
000208                              189+IDENTL   DS    F REL. LOC. OF CODING IN OBJECT MODULE FOR THE
                                    190+*                        RANDOM PROC IDENTIFIED IN RPDNUM
00020C                              191+BLCTR    DS    H ID NO ASSIGNED TO BL'S FOR FILES
00020E                              192+VNCTR    DS    H COUNTER FOR ASSIGNING VN NUMBERS
000210                              193+ONCTR    DS    H COUNTER FOR ASSIGNING ID NO.TO ON CONTROL CELL
000212                              194+PFMCTR   DS    H COUNTER FOR ASSIGNING ID NO.TO PERFORM CELLS
000214                              195+PSVCTR   DS    H CTR FOR ASSIGNING ID'S TO PERFORM SAVE CELLS
000216                              196+XSACTR   DS    H LOC  WITHIN EXHIBIT OR SORT SAVE AREA
000218                              197+XSWCTR   DS    H CTR FOR ASSIGNING ID'S TO EXHIBIT/ON SWITCHES
00021C                              198+RELLOC   DS    F DISPL OF TGT/SGT FROM THE BEG. OF OBJECT MOD.
000220                              199+GTLNG    DS    H LENGTH OF TGT OR SGT SPECIFIED IN RELLOC
000222                              200+RPILOC   DS    H AVAILABLE
000224                              201+VNILOC   DS    H DISPL OF VNI FIELDS IN PGT
000226                              202+VNLOC    DS    H DISPL OF VN FIELDS IN TGT OR SGT
000228                              203+SUBCTR   DS    H CTR TO ASSIGN ID'S TO SUBSCRIPTED REFERENCES
00022A                              204+PARMAX   DS    H SIZE OF PARAMETER AREA
00022C                              205+BLSVAL   DS    H AVAILABLE
00022E                              206+BLSLOC   DS    H AVAILABLE
000230                              207+CMTBSW   DS    H AVAILABLE
000232                              208+SA2CTR   DS    H SET IF OPTION 2 OF USE  SPECIFIED
000234                              209+SA3CTR   DS    H SET IF OPTION 5 OF USE  SPECIFIED
000236                              210+BLSEND   DS    H AVAILABLE
000238                              211+INDEX    DS    F
00023C                              212+INDEX0   DS    H AVAILABLE
000240                              213+         DS    6F
                                    214+*
                                    215+*      END OF COMMON
                                    216+*
                                    217+*
PH01   IKFCBL01                                                                                                PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    219+*
                                    220+*TITLE:
                                    221+*
                                    222+*        'IKFCBL01'
                                    223+*
                                    224+*STATUS:
                                    225+*   CHANGE LEVEL 000
                                    226+*
                                    227+*FUNCTION/OPERATION:
                                    228+*
                                    229+*   PERFORMS COMPILER INITIALIZATION.  DETERMINES BUFFER AREA.
                                    230+*   PROCESSES THE EXEC CARD OR THE CALL, LINK, XCTL OR ATTACH MACRO
                                    231+*     COMPILATION PARAMETERS.  OBTAINS STORAGES FOR TABLES, THE
                                    232+*   DICTIONARY AND THE BUFFERS.
                                    233+*   PERFORMS THE BASIS AND COPY FUNCTIONS.
                                    234+*
                                    235+*ENTRY POINTS:
                                    236+*
                                    237+*        'IKFCBL01'
                                    238+*
                                    239+*INPUT - INTERNAL:
                                    240+*
                                    241+*        COMPILATION PARAMETERS FROM PHASE 00
                                    242+*
                                    243+*INPUT - EXTERNAL:
                                    244+*   (ONLY FOR BASIS AND COPY FUNCTIONS)
                                    245+*   SYSIN - SOURCE PROGRAM
                                    246+*   SYSLIB - SOURCE PROGRAM
                                    247+*
                                    248+*OUTPUT - INTERNAL:
                                    249+*
                                    250+*   MODIFIED DCB
                                    251+*   SWITCH INDICATING THE COMPILATION OPTIONS
                                    252+*   LINE COUNT INDICATION
                                    253+*   INDICATION OF DIFFERENCE BETWEEN THA MAX AMOUNT OF CORE STORAGE
                                    254+*   REQUESTED AND THE AMOUNT ACTUALLY RECEIVED FOR TABLES, DICTIONA
                                    255+*   AND BUFFERS.
                                    256+*   BUFFERS ADDRESSES AND LENGTHS
                                    257+*   SYSUT3  E-TEXT FOR BASIS AND COPY STATEMENTS
                                    258+*   SYSUT4  SOURCE PROGRAM FOR PHASE 1 SCAN IF LIB OPTION
                                    259+*           IS IN EFFECT
                                    260+*
                                    261+*OUTPUT - EXTERNAL:
                                    262+*
                                    263+*   SYSPRINT  SOURCE PROGRAM LISTING (IF LIB OPTION IS IN EFFECT)
                                    264+*
                                    265+*EXTERNAL ROUTINES:
                                    266+*
                                    267+*   PHASE 00  LINK TO I-O AND INTERPHASE COMMON REGION
                                    268+*   PRIME  ASSIGN AN AREA IN A TABLE REGION
                                    269+*   TAMEIN  TAMER INITIALIZATION ROUTINE
                                    270+*   INSERT  GET ROOM FOR AN ENTRY IN A TABLE
                                    271+*   TABREL  RELEASE TABLE, FREE AREA IF NO LONGER NEEDED
                                    272+*   STATIC  NOTE NO NEW ENTRY TO BE MADE
                                    273+*
PH01   IKFCBL01                                                                                                PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    274+*EXITS NORMAL:
                                    275+*
                                    276+*   RETURNS TO PHASE 00
                                    277+*
                                    278+*EXISTS - ERROR:
                                    279+*
                                    280+*   RETURN TO PHASE 00
                                    281+*TABLE/WORK AREAS:
                                    282+*
                                    283+*   REPTAB (REPLACING TABLE) FOR THE COPY FUNCTION
                                    284+*        WITH THE REPLACING OPTION
                                    285+*
                                    286+*ATTRIBUTES:
                                    287+*
                                    288+*   NOT REUSABLE
                                    289+*
                                    290+*NOTES:
                                    291+*
                                    292+*   GENERAL ORGANIZATION:
                                    293+*   1.   EQU'S
                                    294+*   2.   CONSTANTS
                                    295+*   3.   PHASE 01 HOUSEKEEPING AND INITIALIZATION
                                    296+*   4.   SUBROUTINES
                                    297+*   5.   BASIS AND COPY ROUTINES
                                    298+*
                                    299+*
                                    300+*   GENERAL CONSIDERATION IN PHASE 01:
                                    301+*   PHASE 01 IS LOGICALLY A SUBSET OF PHASE 00, BUT IT IS A SEPARAT
                                    302+*   LOAD MODULE, SINCE IT IS NOT NEEDED IN CORE STORAGE THROUGHOUT
                                    303+*   COMPILATION.
                                    304+*
                                    305+*
                                    306+*   THE BUFFER AND TAMER TABLES ARE DESCRIBED IN DETAIL IN PLM
                                    307+*   AND LISTING.
                                    308+*
                                    309+*
                                    310+*
PH01   IKFCBL01                                                                                                PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              312+IKFCBL01 CSECT
                                    313+* (SEE THE SECTION LABELED 'BUFFERS'
                                    314+*     THESE ARE  THE REGISTER EQUATES
000000                              315+R0       EQU   0
000001                              316+R1       EQU   1
000002                              317+R2       EQU   2
000003                              318+R3       EQU   3
000004                              319+R4       EQU   4
000005                              320+R5       EQU   5
000006                              321+R6       EQU   6
000007                              322+R7       EQU   7
000008                              323+R8       EQU   8
000009                              324+R9       EQU   9
00000A                              325+R10      EQU   10
00000B                              326+R11      EQU   11
00000C                              327+R12      EQU   12
00000D                              328+R13      EQU   13
00000E                              329+R14      EQU   14
00000F                              330+R15      EQU   15
                                    331+*
0000FF                              332+HEXFF    EQU   255 46891
                                    333+*
                                    334+*
                                    335+*
                                    336+*
                                    337+*
000000 90EC D00C            0000C   338+START    STM   14,12,12(13)
000004 0550                         339+         BALR  R5,0
000006                              340+         USING *,R5
0008A0                              341+         USING MYSAVE,R13
000006 D22B 507A 1000 00080 00000   342+         MVC   COSADR(L44),D0(R1) MOVE LINK PARMS           40329
00000C 47F0 54DE            004E4   343+         B     GO
000010 C9D2C6C3C2D3F0F1             344+         DC    C'IKFCBL01'
000018 C2                           345+         DC    C'B'
000019 1C                           346+         DC    X'1C'
00001C                              347+IKFPATCH DS    0F PATCH AREA
00001C 47F0 5016            0001C   348+         B     IKFPATCH EASES CODING OF BRANCH ADDRESS
000020 0000000000000000             349+         DC    24F'0'
000080                              350+COSADR   DS    F
000084                              351+BUFAD    DS    F
000088                              352+LISTAD   DS    F
00008C                              353+DCBAD    DS    F
000090                              354+BUFXAD   DS    F
000094                              355+ADSWIT   DS    F ADRESS OF PARAMETER SWITCH
000098                              356+ERRSEV1  DS    F
00009C                              357+SEGSAVE  DS    F
0000A0                              358+APCBSPT  DS    F
0000A4                              359+ZALNKNPT DS    F ADDR OF 1ST VARIABLE PORTION OF LINKNAME USED BY
                                    360+*    BLDL ROUT = A(LINKNAME+10) IN PHASE00                        9330
0000A8                              361+ADECBLIB DS    F ADDR OF DECB FOR LIB                         40329
00002C                              362+L44      EQU   44 40329
000024                              363+D36      EQU   36 40329
000008                              364+D8       EQU   8 40329
0000C0                              365+UNDEF    EQU   X'C0' 40329
0000AC                              366+SAVER13  DS    F
PH01   IKFCBL01                                                                                                PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000B0 0008                         367+EIGHT    DC    H'8'
0000B2 0000D4                       368+ADD80    DC    AL3(LIST80)
0000B5 0000D8                       369+ADD80P   DC    AL3(LIST80P)
0000B8 0000DC                       370+ADDIN    DC    AL3(LISTIN)
0000BB 0000E0                       371+ADDOU    DC    AL3(LISTOU)
0000BE 4B40 50AA            000B0   372+DDCOM    SH    R4,EIGHT
0000C2 47C0 55FA            00600   373+         BC    12,HEADER
0000C6 41FF 0008            00008   374+         LA    R15,8(R15)
0000CA D503 50DE F000 000E4 00000   375+         CLC   ZEROES,0(R15)
0000D0 078B                         376+         BCR   8,R11 NO NEW DD
0000D2 07FC                         377+         BR    R12 NEW DD
000000                              378+DS1      EQU   0
000058                              379+DS2      EQU   88 LOCATIONS  OF DCB'S RELATIVE TO DS1
0000B0                              380+DS3      EQU   176
000108                              381+DS4      EQU   264
000160                              382+SPILL1   EQU   352
0001B8                              383+IN       EQU   440
000210                              384+OUT      EQU   528
000268                              385+LIB      EQU   616
0002C0                              386+PCH      EQU   704
000318                              387+GOF      EQU   792
000370                              388+DDNTBL   EQU   880 LOC OF SYATBL RELATIVE TO DS1
000028                              389+DNAME    EQU   40 DO NAME  FIELD
000025                              390+XLST     EQU   37 EXLIST FIELD
00003E                              391+BLKSZE   EQU   62
000000                              392+D0       EQU   0 9330
000001                              393+D1       EQU   1 9330
000002                              394+D2       EQU   2 9330
000003                              395+D3       EQU   3 9330
000004                              396+D4       EQU   4 9330
000006                              397+D6       EQU   6 9330
00000B                              398+D11      EQU   11 9330
000010                              399+D16      EQU   16 9330
000014                              400+D20      EQU   20 9330
000028                              401+D40      EQU   40 9330
000000                              402+L0       EQU   0 9330
000028                              403+L40      EQU   40 9330
000010                              404+MVTBIT   EQU   X'10' 9330
000074                              405+CONFIG   EQU   116 9330
0000D4                              406+         DS    0F
0000D4 85                           407+LIST80   DC    X'85'
0000D5 000108                       408+         DC    AL3(EDIT80)
0000D8 85                           409+LIST80P  DC    X'85'
0000D9 000100                       410+         DC    AL3(EDIT80P)
0000DC 85                           411+LISTIN   DC    X'85'
0000DD 0000F0                       412+         DC    AL3(EDITIN)
0000E0 85                           413+LISTOU   DC    X'85'
0000E1 0000E8                       414+         DC    AL3(EDITOU)
0000E4 00000000                     415+ZEROES   DC    F'0'
0000E8 4840 5130            00136   416+EDITOU   LH    R4,ONE21
0000EC 47F0 50F2            000F8   417+         B     EDINOU
0000F0 4840 512E            00134   418+EDITIN   LH    R4,EIGHTY
0000F4 9200 1014      00014         419+         MVI   D20(R1),D0 ZERO OUT BUFNO BYTE IN DCB            7643
0000F8 4160 0FFF            00FFF   420+EDINOU   LA    R6,4095
0000FC 47F0 510A            00110   421+         B     EDIT8B
PH01   IKFCBL01                                                                                                PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000100 4160 0FFF            00FFF   422+EDIT80P  LA    R6,4095
000104 47F0 5106            0010C   423+         B     EDIT8A
000108 4160 0028            00028   424+EDIT80   LA    R6,40
00010C 4840 512E            00134   425+EDIT8A   LH    R4,EIGHTY
000110 1B22                         426+EDIT8B   SR    R2,R2
000112 4831 003E            0003E   427+         LH    R3,BLKSZE(1)
000116 1233                         428+         LTR   R3,R3
000118 4780 5128            0012E   429+         BZ    EDIT8D
00011C 1D24                         430+         DR    R2,R4 NOTE R2+R3 MUST BE EVEN/ODD PAIR
00011E 1222                         431+         LTR   R2,R2
000120 4770 5124            0012A   432+         BC    7,EDIT8C NOT AN EVEN MULTIPLE
000124 1936                         433+         CR    R3,R6
000126 47D0 512C            00132   434+         BNH   EDIT8E
00012A 4570 5132            00138   435+EDIT8C   BAL   R7,TERMINAT
00012E 4041 003E            0003E   436+EDIT8D   STH   R4,BLKSZE(1)
000132                              437+EDIT8E   DS    0H
000132 07FE                         438+         BR    14 RETURN
000134 0050                         439+EIGHTY   DC    H'80'
000136 0079                         440+ONE21    DC    H'121'
000138 4861 003E            0003E   441+TERMINAT LH    R6,BLKSZE(1) SENDS WARNING MESSAGES
00013C 4E60 518A            00190   442+         CVD   R6,TERMWK ON INPROPER BLOCK SIZES
000140 D205 5163 5192 00169 00198   443+         MVC   MES1,MASK1
000146 DE05 5163 518F 00169 00195   444+         ED    MES1,TERMWK+5
00014C 90EF 518A            00190   445+         STM   R14,R15,TERMWK
000150 41F0 5158            0015E   446+         LA    R15,MESA
000154 45E0 D048            008E8   447+         BAL   R14,QUE
000158 98EF 518A            00190   448+         LM    R14,R15,TERMWK
00015C 07F7                         449+         BR    R7
00015E 0030                         450+MESA     DC    H'48'
000160 C9D2C6F0F0F0F5C9             451+         DC    C'IKF0005I-'
000169                              452+MES1     DS    CL6
00016F 40C9D5E5C1D3C9C4             453+         DC    C' INVALID BLOCKSIZE,DEFAULT USED'
000190                              454+TERMWK   DS    D
000198 402020202020                 455+MASK1    DC    X'402020202020'
00019E 91F0 6000      00000         456+CONVERT  TM    0(R6),X'F0' THIS ROUTINE COVERTS EXTERNAL
0001A2 4710 51AA            001B0   457+         BO    CONVERTA DECIMAL TO PACKED DECIMAL AND
0001A6 4166 0001            00001   458+         LA    R6,1(R6) BINARY, R6  POINTS  TO SCAN AREA
0001AA 4640 5198            0019E   459+         BCT   R4,CONVERT R2 CONTAINS BINARY  VALUE
0001AE 07FB                         460+         BR    R11 ERROR EXIT       PARWK CONTAINS INTERNAL DECIMAL
0001B0 1826                         461+CONVERTA LR    R2,R6 R4 THE MAX SCAN LENGTH
0001B2 91F0 2000      00000         462+CONVA    TM    0(R2),X'F0'
0001B6 4710 51F2            001F8   463+         BO    CONVB
0001BA 4144 0001            00001   464+CONVW    LA    R4,1(R4)
0001BE 1B26                         465+         SR    R2,R6
0001C0 D707 51EA 51EA 001F0 001F0   466+CONVX    XC    PARWK,PARWK
0001C6 0620                         467+         BCTR  R2,0
0001C8 4420 51E0            001E6   468+         EX    R2,PARPACK
0001CC 1A62                         469+         AR    R6,R2
0001CE 4F20 51EA            001F0   470+         CVB   R2,PARWK
0001D2 95D2 6001      00001         471+         CLI   1(R6),C'K'
0001D6 4770 51DE            001E4   472+         BNE   CONVXBR
0001DA 8920 000A            0000A   473+         SLL   R2,10
0001DE 0640                         474+         BCTR  R4,0
0001E0 4166 0001            00001   475+         LA    R6,1(R6)
0001E4 07FF                         476+CONVXBR  BR    R15
PH01   IKFCBL01                                                                                                PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0001E6 F270 51EA 6000 001F0 00000   477+PARPACK  PACK  PARWK,0(0,R6)
0001F0                              478+PARWK    DS    1D
0001F8 4122 0001            00001   479+CONVB    LA    R2,1(R2)
0001FC 4640 51AC            001B2   480+         BCT   R4,CONVA
000200 47F0 51B4            001BA   481+         B     CONVW
                                    482+* THIS  ROUTINE  TESTS'NO' IN PARAMS
                                    483+* IT EXITS TO  R15 IF YES,TO R14 IF NO
000204 0660                         484+NOTEST   BCTR  R6,0
000206 9400 5220      00226         485+         NI    NOSW,X'00'
00020A 95D6 6000      00000         486+         CLI   0(R6),C'O'
00020E 4770 5210            00216   487+         BNE   NOTSTA
000212 96FF 5220      00226         488+         OI    NOSW,X'FF'
000216 4166 0001            00001   489+NOTSTA   LA    R6,1(R6)
00021A 91FF 5220      00226         490+         TM    NOSW,X'FF'
00021E 4710 521E            00224   491+         BO    NOTESTB
000222 07FF                         492+         BR    R15
000224 07FE                         493+NOTESTB  BR    R14 IT IS A NO ENVIRONMENT
000226 00                           494+NOSW     DC    X'00'
000227 00
000228                              495+         CNOP  0,4
000228 C3D5E340                     496+PARMS    DC    C'CNT '
00022C 00000336                     497+         DC    A(COUNT)
000230 E2C5D840                     498+         DC    C'SEQ '
000234 00000344                     499+         DC    A(SEQ1)
000238 D3C1C740                     500+         DC    C'LAG '
00023C 0000035C                     501+         DC    A(NOWARN)
000240 E2C9E940                     502+         DC    C'SIZ '
000244 00000374                     503+         DC    A(SIZE1)
000248 C2E4C640                     504+         DC    C'BUF '
00024C 00000394                     505+         DC    A(BUF)
000250 E2D6E440                     506+         DC    C'SOU '
000254 000003A4                     507+         DC    A(SOURCE)
000258 C4C5C340                     508+         DC    C'DEC '
00025C 000003BC                     509+         DC    A(DEC)
000260 D3D6C140                     510+         DC    C'LOA '
000264 000003D4                     511+         DC    A(LOAD)
000268 C1C3C540                     512+         DC    C'ACE '
00026C 00000306                     513+         DC    A(SPACE)
000270 D7D4C140                     514+         DC    C'PMA '
000274 000003EC                     515+         DC    A(PMAP)
000278 C4D4C140                     516+         DC    C'DMA '
00027C 00000408                     517+         DC    A(DMAP)
000280 E2E4D740                     518+         DC    C'SUP '
000284 0000043C                     519+         DC    A(SUPMAP)
000288 C3D3C940                     520+         DC    C'CLI '
00028C 00000420                     521+         DC    A(CLIST1)
000290 E7D9C540                     522+         DC    C'XRE '
000294 00000454                     523+         DC    A(XREF1)
000298 E3D9E4D5                     524+         DC    C'TRUN'
00029C 0000046C                     525+         DC    A(TRUNC1)
0002A0 E9E6C240                     526+         DC    C'ZWB '
0002A4 00000484                     527+         DC    A(ZWB1)
0002A8 C1D7D640                     528+         DC    C'APO '
0002AC 0000049C                     529+         DC    A(APOST1)
0002B0 D8E4D640                     530+         DC    C'QUO '
PH01   IKFCBL01                                                                                                PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0002B4 000004A4                     531+         DC    A(QUOT)
0002B8 D3C9C240                     532+         DC    C'LIB '
0002BC 000004AC                     533+         DC    A(LIB1)
0002C0 E5C5D940                     534+         DC    C'VER '
0002C4 000004C4                     535+         DC    A(VERB1)
000014                              536+PARMLIM  EQU   (*-PARMS)/8
0002C8 0003                         537+THREE    DC    H'3'
                                    538+*
                                    539+*
0002CA 4180 0014            00014   540+SCANA    LA    R8,PARMLIM SET SCAN FOR 19 PARAMS
0002CE 4170 5222            00228   541+         LA    R7,PARMS EXEC PARAMS
0002D2 D502 6000 7000 00000 00000   542+SCANB    CLC   0(3,R6),0(R7)
0002D8 4780 52E8            002EE   543+         BE    SCANC
0002DC 4177 0008            00008   544+         LA    R7,8(R7)
0002E0 4680 52CC            002D2   545+         BCT   R8,SCANB
0002E4 4166 0001            00001   546+SCAND    LA    R6,1(R6)
0002E8 4640 52C4            002CA   547+         BCT   R4,SCANA
0002EC 07FB                         548+         BR    R11
0002EE 58F7 0004            00004   549+SCANC    L     R15,4(R7)
0002F2 07FF                         550+         BR    R15 ASUMED
0002F4 4166 0003            00003   551+SCANE    LA    R6,3(R6)
0002F8 4B40 52C2            002C8   552+         SH    R4,THREE
0002FC 07CB                         553+         BCR   12,R11
0002FE 47F0 52C4            002CA   554+         B     SCANA
                                    555+* * * * * * * * * * * * *
                                    556+*                       *
                                    557+* PHZSW  FORMAT         *
                                    558+* BIT 0  SOURCE         *
                                    559+*     1  PMAP           *
                                    560+*     2  DECK           *
                                    561+*     3  LOAD           *
                                    562+*     4  SEQ            *
                                    563+*     5  FLAGW          *
                                    564+*     6  LIB            *                                         51886
                                    565+*     7  ZWB
                                    566+*                       *
                                    567+* PHZSW1 FORMAT         *
                                    568+* BIT 0  XREF           *
                                    569+* BIT 1  CLIST          *
                                    570+* BIT 2  DMAP           *
                                    571+* BIT 5  APOST          *
                                    572+* BIT 6  SUPMAP         *
                                    573+* BIT 7  TRUNC          *
                                    574+*                       *
                                    575+* PHZSW2 FORMAT         *
                                    576+* NOT USED              *
                                    577+*                       *                                         51886
                                    578+* PHZSW3 FORMAT         *                                         51886
                                    579+* BIT 7  VERB           *                                         51886
                                    580+* * * * * * * * * * * * *
000080                              581+SOURCEQ  EQU   X'80'
000040                              582+PMAPQ    EQU   X'40'
000020                              583+DECKQ    EQU   X'20'
000010                              584+LOADQ    EQU   X'10'
000008                              585+SEQQ     EQU   X'08'
PH01   IKFCBL01                                                                                                PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000004                              586+FLAGWQ   EQU   X'04'
000080                              587+XREFQ    EQU   X'80'
000040                              588+CLISTQ   EQU   X'40'
000020                              589+DMAPQ    EQU   X'20'
000010                              590+PDTQ     EQU   X'10'
000002                              591+LIBRQ    EQU   X'02'
000004                              592+APOSTQ   EQU   X'04'
000002                              593+SUPMAPQ  EQU   X'02'
000001                              594+VERBRQ   EQU   X'01'
000001                              595+TRUNCQ   EQU   X'01'
000001                              596+ZWBSW    EQU   X'01'
                                    597+*
                                    598+*                                  ASUMED  OPTIONS
000302 9F                           599+ASUMED   DC    B'10011111' 51886
000303 04                           600+ASUMED1  DC    B'00000100' 51886
000304 01                           601+ASUMED3  DC    B'00000001' USE FOR PHZSW3
000305 00
000306 95F2 6003      00003         602+SPACE    CLI   3(R6),C'2'
00030A 4780 5328            0032E   603+         BE    SPACEA
00030E 95F3 6003      00003         604+         CLI   3(R6),C'3'
000312 4770 5318            0031E   605+         BNE   SPACEB
000316 9260 538C      00392         606+         MVI   BLANK1,C'-'
00031A 47F0 52EE            002F4   607+         B     SCANE
00031E 95F1 6003      00003         608+SPACEB   CLI   3(R6),C'1'
000322 4770 52EE            002F4   609+         BNE   SCANE
000326 9240 538C      00392         610+         MVI   BLANK1,C' '
00032A 47F0 52EE            002F4   611+         B     SCANE
00032E 92F0 538C      00392         612+SPACEA   MVI   BLANK1,C'0'
000332 47F0 52EE            002F4   613+         B     SCANE
000336 45F0 5198            0019E   614+COUNT    BAL   R15,CONVERT
00033A D201 538A 51F0 00390 001F6   615+         MVC   SIXTY,PARWK+6 NEW LINE COUNT
000340 47F0 52DE            002E4   616+         B     SCAND
000344 41F0 534E            00354   617+SEQ1     LA    R15,SEQA
000348 45E0 51FE            00204   618+         BAL   R14,NOTEST
00034C 94F7 52FC      00302         619+         NI    ASUMED,255-SEQQ TURN OFF SEQ    BIT
000350 47F0 52EE            002F4   620+         B     SCANE
000354 9608 52FC      00302         621+SEQA     OI    ASUMED,SEQQ TURN ON  SEQ    BIT
000358 47F0 52EE            002F4   622+         B     SCANE
00035C 95E6 6003      00003         623+NOWARN   CLI   3(R6),C'W'
000360 4780 5366            0036C   624+         BE    NOWARNA
000364 94FB 52FC      00302         625+         NI    ASUMED,255-FLAGWQ TURN OFF FLAGW  BIT
000368 47F0 52EE            002F4   626+         B     SCANE
00036C 9604 52FC      00302         627+NOWARNA  OI    ASUMED,FLAGWQ TURN ON  FLAGW  BIT
000370 47F0 52EE            002F4   628+         B     SCANE
000374 45F0 5198            0019E   629+SIZE1    BAL   R15,CONVERT
000378 5020 5382            00388   630+         ST    R2,CORE
00037C 960F 537E      00384         631+         OI    BFGVSW,X'0F'
000380 47F0 52DE            002E4   632+         B     SCAND
000384 00                           633+BFGVSW   DC    X'00'
000385 000000
000388 00014000                     634+CORE     DC    F'81920'
                                    635+*
00038C 00000AD0                     636+BUFSZ    DC    F'2768'
000390 060C                         637+SIXTY    DC    X'60C'
000392 40                           638+BLANK1   DC    C' '
PH01   IKFCBL01                                                                                                PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000393 00
000394 45F0 5198            0019E   639+BUF      BAL   R15,CONVERT
000398 5020 5386            0038C   640+         ST    R2,BUFSZ
00039C 96F0 537E      00384         641+         OI    BFGVSW,X'F0'
0003A0 47F0 52DE            002E4   642+         B     SCAND
0003A4 41F0 53AE            003B4   643+SOURCE   LA    R15,SOURCEA
0003A8 45E0 51FE            00204   644+         BAL   R14,NOTEST
0003AC 947F 52FC      00302         645+         NI    ASUMED,255-SOURCEQ TURN OFF SOURCE BIT
0003B0 47F0 52EE            002F4   646+         B     SCANE
0003B4 9680 52FC      00302         647+SOURCEA  OI    ASUMED,SOURCEQ TURN ON  SOURCE BIT
0003B8 47F0 52EE            002F4   648+         B     SCANE
                                    649+*
0003BC 41F0 53C6            003CC   650+DEC      LA    R15,DECA
0003C0 45E0 51FE            00204   651+         BAL   R14,NOTEST
0003C4 94DF 52FC      00302         652+         NI    ASUMED,255-DECKQ TURN OFF DECK   BIT
0003C8 47F0 52EE            002F4   653+         B     SCANE
0003CC 9620 52FC      00302         654+DECA     OI    ASUMED,DECKQ TURN ON  DECK   BIT
0003D0 47F0 52EE            002F4   655+         B     SCANE
0003D4 41F0 53DE            003E4   656+LOAD     LA    R15,LOADA
0003D8 45E0 51FE            00204   657+         BAL   R14,NOTEST
0003DC 94EF 52FC      00302         658+         NI    ASUMED,255-LOADQ TURN OFF LOAD   BIT
0003E0 47F0 52EE            002F4   659+         B     SCANE
0003E4 9610 52FC      00302         660+LOADA    OI    ASUMED,LOADQ TURN ON  LOAD   BIT
0003E8 47F0 52EE            002F4   661+         B     SCANE
0003EC 41F0 53F6            003FC   662+PMAP     LA    R15,PMAPA
0003F0 45E0 51FE            00204   663+         BAL   R14,NOTEST
0003F4 94BF 52FC      00302         664+         NI    ASUMED,255-PMAPQ TURN OFF PMAP BIT
0003F8 47F0 52EE            002F4   665+         B     SCANE
0003FC 9640 52FC      00302         666+PMAPA    OI    ASUMED,PMAPQ TURN ON  PMAP BIT
000400 94BF 52FD      00303         667+         NI    ASUMED1,255-CLISTQ TURN OFF CLIST BIT
000404 47F0 52EE            002F4   668+         B     SCANE
000408 41F0 5412            00418   669+DMAP     LA    R15,DMAPA
00040C 45E0 51FE            00204   670+         BAL   R14,NOTEST
000410 94DF 52FD      00303         671+         NI    ASUMED1,255-DMAPQ TURN OFF DMAP   BIT
000414 47F0 52EE            002F4   672+         B     SCANE
000418 9620 52FD      00303         673+DMAPA    OI    ASUMED1,DMAPQ TURN ON  DMAP   BIT
00041C 47F0 52EE            002F4   674+         B     SCANE
000420 41F0 542A            00430   675+CLIST1   LA    R15,CLISTA
000424 45E0 51FE            00204   676+         BAL   R14,NOTEST
000428 94BF 52FD      00303         677+         NI    ASUMED1,255-CLISTQ TURN OFF CLIST  BIT
00042C 47F0 52EE            002F4   678+         B     SCANE
000430 9640 52FD      00303         679+CLISTA   OI    ASUMED1,CLISTQ TURN ON  CLIST  BIT
000434 94BF 52FC      00302         680+         NI    ASUMED,255-PMAPQ TURN OFF PMAP BIT
000438 47F0 52EE            002F4   681+         B     SCANE
00043C 41F0 5446            0044C   682+SUPMAP   LA    R15,SUPMAPA
000440 45E0 51FE            00204   683+         BAL   R14,NOTEST
000444 94FD 52FD      00303         684+         NI    ASUMED1,255-SUPMAPQ TURN ON SUPMAP BIT
000448 47F0 52EE            002F4   685+         B     SCANE
00044C 9602 52FD      00303         686+SUPMAPA  OI    ASUMED1,SUPMAPQ TURN OFF SUPMAP BIT
000450 47F0 52EE            002F4   687+         B     SCANE
000454 41F0 545E            00464   688+XREF1    LA    R15,XREFA
000458 45E0 51FE            00204   689+         BAL   R14,NOTEST
00045C 947F 52FD      00303         690+         NI    ASUMED1,255-XREFQ
000460 47F0 52EE            002F4   691+         B     SCANE
000464 9680 52FD      00303         692+XREFA    OI    ASUMED1,XREFQ
PH01   IKFCBL01                                                                                                PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000468 47F0 52EE            002F4   693+         B     SCANE
00046C 41F0 5476            0047C   694+TRUNC1   LA    R15,TRUNCA
000470 45E0 51FE            00204   695+         BAL   R14,NOTEST
000474 94FE 52FD      00303         696+         NI    ASUMED1,255-TRUNCQ TURN OFF TRUNC BIT
000478 47F0 52EE            002F4   697+         B     SCANE SCAN FOR NEXT PARM
00047C 9601 52FD      00303         698+TRUNCA   OI    ASUMED1,TRUNCQ TURN ON  TRUNC BIT
000480 47F0 52EE            002F4   699+         B     SCANE SCAN FOR NEXT PARM
000484 41F0 548E            00494   700+ZWB1     LA    R15,ZWBA
000488 45E0 51FE            00204   701+         BAL   R14,NOTEST CHECK FOR NOZWB
00048C 94FE 52FC      00302         702+         NI    ASUMED,255-ZWBSW
000490 47F0 52EE            002F4   703+         B     SCANE CONTINUE
000494 9601 52FC      00302         704+ZWBA     OI    ASUMED,ZWBSW
000498 47F0 52EE            002F4   705+         B     SCANE CONTINUE
00049C 9604 52FD      00303         706+APOST1   OI    ASUMED1,APOSTQ TURN ON APOST BIT
0004A0 47F0 52EE            002F4   707+         B     SCANE SCAN FOR NEXT PARM
0004A4 94FB 52FD      00303         708+QUOT     NI    ASUMED1,255-APOSTQ TURN OFF APOST BIT
0004A8 47F0 52EE            002F4   709+         B     SCANE SCAN FOR NEXT PARM
0004AC 41F0 54B6            004BC   710+LIB1     LA    R15,LIBRA
0004B0 45E0 51FE            00204   711+         BAL   R14,NOTEST
0004B4 94FD 52FC      00302         712+         NI    ASUMED,BITSET-LIBRQ TURN OFF BIT
0004B8 47F0 52EE            002F4   713+         B     SCANE
0004BC 9602 52FC      00302         714+LIBRA    OI    ASUMED,LIBRQ TURN ON LIB BIT
0004C0 47F0 52EE            002F4   715+         B     SCANE
0004C4 41F0 54CE            004D4   716+VERB1    LA    R15,VERBA
0004C8 45E0 51FE            00204   717+         BAL   R14,NOTEST
0004CC 94FE 52FE      00304         718+         NI    ASUMED3,BITSET-VERBRQ TURN OFF LISTING A-TEXT BIT
0004D0 47F0 52EE            002F4   719+         B     SCANE SCAN NEXT PARM
0004D4 9601 52FE      00304         720+VERBA    OI    ASUMED3,VERBRQ TURN ON LISTING A-TEXT BIT
0004D8 47F0 52EE            002F4   721+         B     SCANE SCAN NEXT PARM
                                    722+*
                                    723+*  THAT IS ALL OF THE EXEC PARAMETERS SCAN
                                    724+*
0004DC 000008A0                     725+MYSAVAD  DC    A(MYSAVE)
0004E0 0004                         726+FOUR     DC    H'4'
0004E2                              727+INDATE   DS    H
0004E4 50D0 50A6            000AC   728+GO       ST    13,SAVER13
0004E8 58D0 54D6            004DC   729+         L     R13,MYSAVAD
0004EC 50B0 54F2            004F8   730+         ST    R11,ZSAVE11 SAVE R11                            9330
0004F0 58B0 54F6            004FC   731+         L     R11,ZABLDL01 ***                                9330
0004F4 07FB                         732+         BR    R11 BR TO DO BLDL                               9330
0004F8                              733+ZSAVE11  DS    F SAVE FOR R11                                   9330
0004FC 00001698                     734+ZABLDL01 DC    A(ZBLDL01) ADCON TO BLDL CSECT                   9330
000500                              735+ZBLDLRET DS    0H 9330
000500 58B0 54F2            004F8   736+         L     R11,ZSAVE11 RESTORE R11 AT RETURN FROM BLDL      9330
000504 5860 507E            00084   737+         L     R6,BUFAD
000508 18F6                         738+         LR    R15,R6
00050A 41FF 0000            00000   739+         LA    R15,0(R15)
00050E 4BF0 50AA            000B0   740+         SH    R15,EIGHT
000512 50F0 507E            00084   741+         ST    R15,BUFAD ADDRESS OF BUFFER CTL BLOCKS
000516 4846 0000            00000   742+         LH    R4,0(R6)
00051A 4166 0002            00002   743+         LA    R6,2(R6)
00051E 9601 52FC      00302         744+         OI    ASUMED,ZWBSW
000522 1244                         745+         LTR   R4,R4
000524 4780 5526            0052C   746+         BZ    NEWDDS
000528 45B0 52C4            002CA   747+         BAL   R11,SCANA
PH01   IKFCBL01                                                                                                PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000080                              748+CORELEFT EQU   128
00052C 5860 507E            00084   749+NEWDDS   L     R6,BUFAD
000530 5866 0080            00080   750+         L     R6,CORELEFT(R6)
000534 9180 6000      00000         751+         TM    0(R6),X'80'
000538 4710 5642            00648   752+         BO    LASTPARM
00053C 4166 0004            00004   753+         LA    R6,4(R6)
000540 5866 0000            00000   754+         L     R6,0(R6)
000544 4846 0000            00000   755+         LH    R4,0(R6)
000548 41F6 0002            00002   756+         LA    R15,2(R6)
00054C 5880 5086            0008C   757+         L     R8,DCBAD
000550 4A40 50AA            000B0   758+         AH    R4,EIGHT
000554 4BF0 50AA            000B0   759+         SH    R15,EIGHT
000558 41B0 5560            00566   760+         LA    R11,DDA
00055C 45C0 50B8            000BE   761+         BAL   R12,DDCOM
000560 D207 8340 F000 00340 00000   762+         MVC   GOF+DNAME(8,R8),0(R15) NEW SYSLIN
000566 41B0 557A            00580   763+DDA      LA    R11,DDB
00056A 41FF 0010            00010   764+         LA    R15,16(R15)
00056E 4B40 50AA            000B0   765+         SH    R4,EIGHT
000572 4B40 50AA            000B0   766+         SH    R4,EIGHT
000576 45C0 50B8            000BE   767+         BAL   R12,DDCOM
00057A D207 8290 F000 00290 00000   768+         MVC   LIB+DNAME(8,R8),0(R15) NEW LIB
000580 41B0 5588            0058E   769+DDB      LA    R11,DDC
000584 45C0 50B8            000BE   770+         BAL   R12,DDCOM
000588 D207 81E0 F000 001E0 00000   771+         MVC   IN+DNAME(8,R8),0(R15) NEW SYSIN
00058E 41B0 5596            0059C   772+DDC      LA    R11,DDD
000592 45C0 50B8            000BE   773+         BAL   R12,DDCOM
000596 D207 8238 F000 00238 00000   774+         MVC   OUT+DNAME(8,R8),0(R15) NEW SYSPRINT
00059C 41B0 55A4            005AA   775+DDD      LA    R11,DDE
0005A0 45C0 50B8            000BE   776+         BAL   R12,DDCOM
0005A4 D207 82E8 F000 002E8 00000   777+         MVC   PCH+DNAME(8,R8),0(R15) NEW SYSPUNCH
0005AA 41B0 55BE            005C4   778+DDE      LA    R11,DDF
0005AE 45C0 50B8            000BE   779+         BAL   R12,DDCOM
0005B2 D207 8028 F000 00028 00000   780+         MVC   DS1+DNAME(8,R8),0(R15) SYSUT1
0005B8 D207 8188 F000 00188 00000   781+         MVC   SPILL1+DNAME(8,R8),0(R15) AND SPILL
0005BE D207 D280 F000 00B20 00000   782+         MVC   DDX,0(R15)
                                    783+*
                                    784+*
0005C4 41B0 55D2            005D8   785+DDF      LA    R11,DDG
0005C8 45C0 50B8            000BE   786+         BAL   R12,DDCOM
0005CC D207 8080 F000 00080 00000   787+         MVC   DS2+DNAME(8,R8),0(R15) SYSUT2
0005D2 D207 D288 F000 00B28 00000   788+         MVC   DDX+8,0(R15)
0005D8 41B0 55E6            005EC   789+DDG      LA    R11,DDH
0005DC 45C0 50B8            000BE   790+         BAL   R12,DDCOM
0005E0 D207 80D8 F000 000D8 00000   791+         MVC   DS3+DNAME(8,R8),0(R15) SYSUT3
0005E6 D207 D290 F000 00B30 00000   792+         MVC   DDX+16,0(R15)
0005EC 41C0 55FA            00600   793+DDH      LA    R12,HEADER
0005F0 45C0 50B8            000BE   794+         BAL   R12,DDCOM
0005F4 D207 8130 F000 00130 00000   795+         MVC   DS4+DNAME(8,R8),0(R15) SYSUT4
0005FA D207 D298 F000 00B38 00000   796+         MVC   DDX+24,0(R15)
000600 5860 507E            00084   797+HEADER   L     R6,BUFAD
000604 5866 0080            00080   798+         L     R6,CORELEFT(R6)
000608 4166 0004            00004   799+         LA    R6,4(R6)
00060C 9180 6000      00000         800+         TM    0(R6),X'80'
000610 4710 5642            00648   801+         BO    LASTPARM
000614 5866 0004            00004   802+         L     R6,4(R6)
PH01   IKFCBL01                                                                                                PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000618 4846 0000            00000   803+         LH    R4,0(R6)
00061C 1244                         804+         LTR   R4,R4
00061E 4780 5642            00648   805+         BZ    LASTPARM
000622 5870 507E            00084   806+         L     R7,BUFAD
000626 5877 0000            00000   807+         L     R7,0(R7)
00062A 5067 0000            00000   808+         ST    R6,0(R7) NEW  OVERFLOW INFO
00062E 4120 0004            00004   809+         LA    R2,4
000632 4166 0002            00002   810+         LA    R6,2(R6)
000636 45F0 51BA            001C0   811+         BAL   R15,CONVX
00063A 5860 507E            00084   812+         L     R6,BUFAD
00063E 5866 0000            00000   813+         L     R6,0(R6)
000642 D202 600A 51EF 0000A 001F5   814+         MVC   10(3,R6),PARWK+5
000648 5860 507E            00084   815+LASTPARM L     R6,BUFAD
00064C 5866 0000            00000   816+         L     R6,0(R6)
000650 FB10 538A 565A 00390 00660   817+         SP    SIXTY(2),PCON3(1)
000656 D202 600D 538A 0000D 00390   818+         MVC   13(3,R6),SIXTY
00065C 47F0 56B6            006BC   819+         B     DATER
000660 3C                           820+PCON3    DC    X'3C'
000661 D1C1D54040F56BF1             821+DATE1    DC    CL15'JAN  5,1966'
000670 D1C1D5                       822+TABLE    DC    C'JAN'
000673 031C                         823+         DC    X'031C'
000675 C6C5C2                       824+         DC    C'FEB'
000678 028C                         825+         DC    X'028C'
00067A D4C1D9                       826+         DC    C'MAR'
00067D 031C                         827+         DC    X'031C'
00067F C1D7D9                       828+         DC    C'APR'
000682 030C                         829+         DC    X'030C'
000684 D4C1E8                       830+         DC    C'MAY'
000687 031C                         831+         DC    X'031C'
000689 D1E4D5                       832+         DC    C'JUN'
00068C 030C                         833+         DC    X'030C'
00068E D1E4D3                       834+         DC    C'JUL'
000691 031C                         835+         DC    X'031C'
000693 C1E4C7                       836+         DC    C'AUG'
000696 031C                         837+         DC    X'031C'
000698 E2C5D7                       838+         DC    C'SEP'
00069B 030C                         839+         DC    X'030C'
00069D D6C3E3                       840+         DC    C'OCT'
0006A0 031C                         841+         DC    X'031C'
0006A2 D5D6E5                       842+         DC    C'NOV'
0006A5 030C                         843+         DC    X'030C'
0006A7 C4C5C3                       844+         DC    C'DEC'
0006AA 031C                         845+         DC    X'031C'
0006AC 4212 0000            00000   846+DEPACK   STC   R1,0(R2) DEPACK SUBROUTINE
0006B0 8810 0004            00004   847+         SRL   R1,4
0006B4 96F0 2000      00000         848+         OI    0(R2),X'F0'
0006B8 0620                         849+         BCTR  R2,0
0006BA 07F6                         850+         BR    R6
0006BC 4110 0002            00002   851+DATER    LA    1,2(0,0) LOAD 1 TO SPECIFY UNIT
0006C0 0A0B                         852+         SVC   11 ISSUE TIME SVC
0006C2 4120 5665            0066B   853+         LA    R2,DATE1+10
0006C6 1871                         854+         LR    R7,R1
0006C8 8810 0010            00010   855+         SRL   R1,16
0006CC 4560 56A6            006AC   856+         BAL   R6,DEPACK PUT IN YEAR
0006D0 4560 56A6            006AC   857+         BAL   R6,DEPACK
PH01   IKFCBL01                                                                                                PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0006D4 0620                         858+         BCTR  R2,0
0006D6 0620                         859+         BCTR  R2,0
0006D8 0620                         860+         BCTR  R2,0
0006DA 1817                         861+         LR    R1,R7
0006DC 8910 0010            00010   862+         SLL   R1,16
0006E0 8810 0014            00014   863+         SRL   R1,20
0006E4 9101 5665      0066B         864+         TM    DATE1+10,X'01'
0006E8 4710 570A            00710   865+         BO    NOLEAP
0006EC 9101 5664      0066A         866+         TM    DATE1+9,X'01'
0006F0 4710 56FA            00700   867+         BO    DATDECOD DECADE ODD
0006F4 9102 5665      0066B         868+         TM    DATE1+10,X'02'
0006F8 4710 570A            00710   869+         BO    NOLEAP
0006FC 47F0 5702            00708   870+         B     LEAP
000700 9102 5665      0066B         871+DATDECOD TM    DATE1+10,X'02'
000704 4780 570A            00710   872+         BZ    NOLEAP
000708 4140 009C            0009C   873+LEAP     LA    R4,156
00070C 4240 5673            00679   874+         STC   R4,TABLE+9
000710 8910 0004            00004   875+NOLEAP   SLL   R1,4
000714 4111 000C            0000C   876+         LA    R1,12(1) PUT IN PACKED SIGN
000718 4010 54DC            004E2   877+         STH   R1,INDATE
00071C 4160 566A            00670   878+         LA    R6,TABLE
000720 41C0 000C            0000C   879+         LA    R12,12
000724 F911 54DC 6003 004E2 00003   880+DATEA    CP    INDATE(2),3(2,R6)
00072A 47D0 5736            0073C   881+         BNH   DATEB
00072E FB11 54DC 6003 004E2 00003   882+         SP    INDATE(2),3(2,R6)
000734 4166 0005            00005   883+         LA    R6,5(R6)
000738 46C0 571E            00724   884+         BCT   R12,DATEA
00073C 4810 54DC            004E2   885+DATEB    LH    R1,INDATE
000740 8810 0004            00004   886+         SRL   R1,4
000744 D202 565B 6000 00661 00000   887+         MVC   DATE1(3),0(R6)
00074A 4560 56A6            006AC   888+         BAL   R6,DEPACK
00074E 1211                         889+         LTR   R1,R1
000750 4780 5752            00758   890+         BZ    DATEC
000754 4560 56A6            006AC   891+         BAL   R6,DEPACK
000758 5860 507E            00084   892+DATEC    L     R6,BUFAD
00075C 5866 0004            00004   893+         L     R6,4(R6)
000760 D20E 6000 565B 00000 00661   894+         MVC   0(15,R6),DATE1
                                    895+* THIS  FINISHES THE DATE ROUTINE
                                    896+*  MOVE DD NAMES TO TABLE
000766 5880 5086            0008C   897+         L     R8,DCBAD
00076A D207 8370 8028 00370 00028   898+         MVC   DDNTBL(8,R8),DNAME+DS1(R8)
000770 D207 8378 8080 00378 00080   899+         MVC   DDNTBL+8(8,R8),DNAME+DS2(R8)
000776 D207 8380 80D8 00380 000D8   900+         MVC   DDNTBL+16(8,R8),DNAME+DS3(R8)
00077C D207 8388 8130 00388 00130   901+         MVC   DDNTBL+24(8,R8),DNAME+DS4(R8)
000782 D207 8390 8188 00390 00188   902+         MVC   DDNTBL+32(8,R8),DNAME+SPILL1(R8)
000788 D207 8398 81E0 00398 001E0   903+         MVC   DDNTBL+40(8,R8),DNAME+IN(R8)
00078E D207 83A0 8238 003A0 00238   904+         MVC   DDNTBL+48(8,R8),DNAME+OUT(R8)
000794 D207 83A8 8290 003A8 00290   905+         MVC   DDNTBL+56(8,R8),DNAME+LIB(R8)
00079A D207 83B0 82E8 003B0 002E8   906+         MVC   DDNTBL+64(8,R8),DNAME+PCH(R8)
0007A0 D207 83B8 8340 003B8 00340   907+         MVC   DDNTBL+72(8,R8),DNAME+GOF(R8)
                                    908+*  NOW CHECK THE FILES
0007A6 D202 5810 8235 00816 00235   909+         MVC   HOUT,OUT+XLST(R8)
0007AC D202 5813 81DD 00819 001DD   910+         MVC   HSIN,IN+XLST(8)
0007B2 D202 5816 82E5 0081C 002E5   911+         MVC   HPCH,PCH+XLST(R8)
0007B8 D202 5819 833D 0081F 0033D   912+         MVC   HGOF,GOF+XLST(R8)
PH01   IKFCBL01                                                                                                PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0007BE D202 8235 50B5 00235 000BB   913+         MVC   OUT+XLST(3,R8),ADDOU
0007C4 D202 81DD 50B2 001DD 000B8   914+         MVC   IN+XLST(3,R8),ADDIN
0007CA D202 82E5 50AF 002E5 000B5   915+         MVC   PCH+XLST(3,R8),ADD80P
0007D0 D202 833D 50AC 0033D 000B2   916+         MVC   GOF+XLST(3,R8),ADD80
0007D6 5810 5082            00088   917+         L     R1,LISTAD
0007DA 4111 0004            00004   918+         LA    R1,4(R1)
0007DE 9680 1008      00008         919+         OI    8(R1),X'80'
0007E2 1881                         920+         LR    R8,R1
                                    921+*OPEN  DS2, DS3, DS4
0007E4 0A13                         922+         SVC   19 ISSUE OPEN SVC
                                    923+*
                                    924+*
0007E6 4188 0008            00008   925+         LA    R8,8(R8)
0007EA 947F 8000      00000         926+         NI    0(R8),X'7F'
0007EE 4188 0004            00004   927+         LA    R8,4(R8)
0007F2 1818                         928+         LR    R1,R8
0007F4 0A13                         929+         SVC   19 ISSUE OPEN SVC
                                    930+*OPEN  GOF,PCH,OUT,IN,LIB,SPILL
                                    931+*
                                    932+*
                                    933+* MUST  RECLOSE GOF AND  PCH
0007F6 5880 5086            0008C   934+         L     R8,DCBAD
0007FA D202 8235 5810 00235 00816   935+         MVC   OUT+XLST(3,R8),HOUT EXTINGUISH  EXLISTS
000800 D202 81DD 5813 001DD 00819   936+         MVC   IN+XLST(3,8),HSIN
000806 D202 82E5 5816 002E5 0081C   937+         MVC   PCH+XLST(3,R8),HPCH
00080C D202 833D 5819 0033D 0081F   938+         MVC   GOF+XLST(3,R8),HGOF
000812 47F0 581C            00822   939+         B     OPEN
000816                              940+HOUT     DS    CL3
000819                              941+HSIN     DS    CL3
00081C                              942+HPCH     DS    CL3
00081F                              943+HGOF     DS    CL3
000822                              944+OPEN     DS    0H
000822 D201 5840 81F6 00846 001F6   945+         MVC   BUFVAL+2,IN+BLKSZE(R8)
000828 D201 583E 824E 00844 0024E   946+         MVC   BUFVAL,OUT+BLKSZE(R8)
00082E D201 5842 82A6 00848 002A6   947+         MVC   BUFVAL+4,LIB+BLKSZE(R8)
000834 D201 5844 82FE 0084A 002FE   948+         MVC   BUFVAL+6,PCH+BLKSZE(R8)
00083A D201 5846 8356 0084C 00356   949+         MVC   BUFVAL+8,GOF+BLKSZE(R8)
000840 47F0 5848            0084E   950+         B     OPENB
000844 0079                         951+BUFVAL   DC    H'121' SYSPRINT       EDITING  FACTORS
000846 0050                         952+         DC    H'80' SYSIN
000848 0050                         953+         DC    H'80' SYSLIB
00084A 0050                         954+         DC    H'80' SYSPUNCH
00084C 0050                         955+         DC    H'80' SYSLIN
                                    956+*
                                    957+*NOW WE TEST THE STATUS OF OPENS
000030                              958+OPENOK   EQU   48
00084E                              959+OPENB    DS    0H
00084E 5880 5086            0008C   960+         L     R8,DCBAD
000852 4190 0009            00009   961+         LA    R9,9
000856 4188 0058            00058   962+OPENK2   LA    R8,88(R8) START WITH OS2 AND INCREMENT
00085A 9110 8030      00030         963+         TM    OPENOK(R8),X'10'
00085E 4710 586E            00874   964+         BO    OPENK1
000862 18F9                         965+         LR    R15,R9
000864 06F0                         966+         BCTR  R15,0
000866 89F0 0002            00002   967+         SLL   R15,2
PH01   IKFCBL01                                                                                                PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00086A 41FF 5876            0087C   968+         LA    R15,NOPED(R15)
00086E 58FF 0000            00000   969+         L     R15,0(R15)
000872 07FF                         970+         BR    R15
000874 4690 5850            00856   971+OPENK1   BCT   R9,OPENK2
000878 47F0 D20E            00AAE   972+         B     CLOSEDS
00087C 000009EC                     973+NOPED    DC    A(NOSYSGF) COULD  NOT OPEN  DATA SET     SYSLIN
000880 00000A42                     974+         DC    A(NOSYSPH) SYSPUNC
000884 00000A9A                     975+         DC    A(NOSYSLB) SYSLIB
000888 000009DE                     976+         DC    A(NOSYSPR) SYSPUNC
00088C 000009D4                     977+         DC    A(NOSYSIN) SYSIN
000890 00000932                     978+         DC    A(NODS1) SYSUT1
000894 000009CA                     979+         DC    A(NODS4) SYSUT4
000898 000009C0                     980+         DC    A(NODS3) SYSUT5
00089C 000009B6                     981+         DC    A(NODS2) SYSUT6
0008A0                              982+IKF011   CSECT
0008A0                              983+MYSAVE   DS    18F
                                    984+* THIS ROUTINE GUES MESSAGES TO WRITE ON SYSPRINT OR CONSOLE
                                    985+* IF SYSPRINT IS NOT OPENABLE
                                    986+*
                                    987+* RETURN IS  VIA  REG 14 (R14)
                                    988+* REGISTER 15 (R15) POINTS TO MESSAGE
                                    989+* FORMAT OF  MESSAGE IS
                                    990+*      LENGTH - HALF WORD
                                    991+*      TEXT  FOLOWING
                                    992+*
0008E8 90AB D080            00920   993+QUE      STM   R10,R11,QUESAVE
0008EC 48A0 D088            00928   994+         LH    R10,MSUSED
0008F0 4AAF 0000            00000   995+         AH    R10,0(R15)
0008F4 41AA 0002            00002   996+         LA    R10,2(R10)
0008F8 49A0 D08A            0092A   997+         CH    R10,MSLNGTH
0008FC 4720 D078            00918   998+         BH    QUEB
                                    999+*
000900 41B0 DA0A            012AA  1000+QUEA     LA    R11,MSGS
000904 4AB0 D088            00928  1001+         AH    R11,MSUSED
000908 40A0 D088            00928  1002+         STH   R10,MSUSED
00090C 48AF 0000            00000  1003+         LH    R10,0(R15)
000910 41AA 0001            00001  1004+         LA    R10,1(R10)
000914 44A0 D08C            0092C  1005+         EX    R10,MOVEQUE
000918 98AB D080            00920  1006+QUEB     LM    R10,R11,QUESAVE
00091C 07FE                        1007+         BR    R14
000920                             1008+QUESAVE  DS    2F
000928 0000                        1009+MSUSED   DC    H'0'
00092A 03E7                        1010+MSLNGTH  DC    H'999'
00092C D200 B000 F000 00000 00000  1011+MOVEQUE  MVC   0(0,R11),0(R15)
000932 D207 D0B3 D0E6 00953 00986  1012+NODS1    MVC   MESSB,MSYSD1
000938 96FF D1C1      00A61        1013+NODS1A   OI    NORUN,X'FF'
00093C 41F0 D0A8            00948  1014+         LA    R15,MESSAX
000940 45E0 D048            008E8  1015+         BAL   R14,QUE
000944 47F0 586E            00874  1016+         B     OPENK1
000948 003C                        1017+MESSAX   DC    H'60'
00094A C9D2C6F0F0F0F6C9            1018+         DC    C'IKF0006I-'
000953                             1019+MESSB    DS    CL8
00095B 40                          1020+         DC    CL1' '
00095C C4C1E3C1E2C5E340            1021+         DC    C'DATASET NOT USABLE,JOB STEP CANNOT EXECUTE'
000986 E2E8E2E4E3F14040            1022+MSYSD1   DC    CL8'SYSUT1'
PH01   IKFCBL01                                                                                                PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00098E E2E8E2E4E3F24040            1023+MSYSD2   DC    CL8'SYSUT2'
000996 E2E8E2E4E3F34040            1024+MSYSD3   DC    CL8'SYSUT3'
00099E E2E8E2E4E3F44040            1025+MSYSD4   DC    CL8'SYSUT4'
0009A6 E2E8E2D7D9C9D5E3            1026+MSYSOU   DC    CL8'SYSPRINT'
0009AE E2E8E2C9D5404040            1027+MSYSIN   DC    CL8'SYSIN'
0009B6 D207 D0B3 D0EE 00953 0098E  1028+NODS2    MVC   MESSB,MSYSD2
0009BC 47F0 D098            00938  1029+         B     NODS1A
0009C0 D207 D0B3 D0F6 00953 00996  1030+NODS3    MVC   MESSB,MSYSD3
0009C6 47F0 D098            00938  1031+         B     NODS1A
0009CA D207 D0B3 D0FE 00953 0099E  1032+NODS4    MVC   MESSB,MSYSD4
0009D0 47F0 D098            00938  1033+         B     NODS1A
0009D4 D207 D0B3 D10E 00953 009AE  1034+NOSYSIN  MVC   MESSB,MSYSIN
0009DA 47F0 D098            00938  1035+         B     NODS1A
0009DE D207 D0B3 D106 00953 009A6  1036+NOSYSPR  MVC   MESSB,MSYSOU
0009E4 96FF D1C0      00A60        1037+         OI    NOPR,X'FF'
0009E8 47F0 D098            00938  1038+         B     NODS1A
0009EC 9110 52FC      00302        1039+NOSYSGF  TM    ASUMED,X'10'
0009F0 4780 586E            00874  1040+         BZ    OPENK1
0009F4 94EF 52FC      00302        1041+         NI    ASUMED,X'EF'
0009F8 D201 5846 D404 0084C 00CA4  1042+         MVC   BUFVAL+8,ZERO
0009FE 41F0 D16A            00A0A  1043+         LA    R15,NOGOF
000A02 41E0 586E            00874  1044+         LA    R14,OPENK1
000A06 47F0 D048            008E8  1045+         B     QUE
000A0A 0035                        1046+NOGOF    DC    H'53' MESSAGE LENGTH
000A0C C9D2C6F0F0F0F7C9            1047+         DC    C'IKF0007I-W SYSLIN   NOT USABLE, LOAD OPTION CANCELLED'
000A41 00
000A42 9120 52FC      00302        1048+NOSYSPH  TM    ASUMED,X'20'
000A46 4780 586E            00874  1049+         BZ    OPENK1
000A4A 41F0 D1C2            00A62  1050+         LA    R15,NODEC
000A4E 41E0 586E            00874  1051+         LA    R14,OPENK1
000A52 94DF 52FC      00302        1052+         NI    ASUMED,X'DF'
000A56 D201 5844 D404 0084A 00CA4  1053+         MVC   BUFVAL+6,ZERO
000A5C 47F0 D048            008E8  1054+         B     QUE
000A60 00                          1055+NOPR     DC    X'00'
000A61 00                          1056+NORUN    DC    X'00'
000A62 0034                        1057+NODEC    DC    H'52'
000A64 C9D2C6F0F0F0F8C9            1058+         DC    C'IKF0008I-W SYSPUNCH NOT USABLE, DECK OPTION CANCELLED'
000A99 00
000A9A 94FD 52FC      00302        1059+NOSYSLB  NI    ASUMED,X'FD'
000A9E D201 5842 D404 00848 00CA4  1060+         MVC   BUFVAL+4,ZERO
000AA4 96FF D20C      00AAC        1061+         OI    NOLIB,X'FF'
000AA8 47F0 586E            00874  1062+         B     OPENK1
000AAC 00                          1063+NOLIB    DC    X'00'
000AAD 00
000AAE 5880 5082            00088  1064+CLOSEDS  L     R8,LISTAD
000AB2 4118 0010            00010  1065+         LA    R1,16(R8)
000AB6 9680 8014      00014        1066+         OI    20(R8),X'80'
000ABA 0A14                        1067+         SVC   20 ISSUE CLOSE SVC
000ABC 947F 8014      00014        1068+         NI    20(R8),X'7F'
000AC0 5810 50A2            000A8  1069+         L     R1,ADECBLIB GET ADDR OF DECB FOR SYSLIB          40329
000AC4 5881 0008            00008  1070+         L     R8,D8(R1) GET  ADDR OF SYSLIB DCB                 40329
000AC8 91C0 8024      00024        1071+         TM    D36(R8),UNDEF IS REC FORMAT UNDEFINED           40329
000ACC 47E0 D236            00AD6  1072+         BNO   CLOSEDS1 NO, BRANCH                         40329
000AD0 D201 1006 803E 00006 0003E  1073+         MVC   D6(D2,R1),BLKSZE(R8) MOVE BLKSIZE TO SYSLIB DECB 40329
000AD6                             1074+CLOSEDS1 DS    0H 40329
PH01   IKFCBL01                                                                                                PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1075+*
                                   1076+*
                                   1077+*
                                   1078+*
                                   1079+*
                                   1080+*
                                   1081+*
                                   1082+*                                                                *
                                   1083+*
000AD6 41A0 0004            00004  1084+         LA    R10,4
000ADA 4190 D280            00B20  1085+         LA    9,DDX
000ADE D207 D26A 9000 00B0A 00000  1086+DEVB     MVC   DATASET,0(R9)
000AE4 4199 0008            00008  1087+         LA    R9,8(R9)
000AE8 4110 D26A            00B0A  1088+         LA    1,DATASET LOAD PARAMETER REG 1
000AEC 4100 D274            00B14  1089+         LA    0,INFO LOAD PARAMETER REG 0
000AF0 0A18                        1090+         SVC   24
000AF2 5870 D278            00B18  1091+         L     R7,INFO+4
000AF6 5970 D27C            00B1C  1092+         C     R7,MINDEV
000AFA 4720 D262            00B02  1093+         BH    DEVC
000AFE 5070 D27C            00B1C  1094+         ST    R7,MINDEV
000B02 46A0 D23E            00ADE  1095+DEVC     BCT   R10,DEVB
000B06 47F0 D2A0            00B40  1096+         B     CORAVAL
                                   1097+*
                                   1098+*
                                   1099+*
000B0A                             1100+DATASET  DS    CL8
000B14                             1101+INFO     DS    1F
000B18 00000E10                    1102+         DC    F'3600'
000B1C 0000FDE8                    1103+MINDEV   DC    F'65000'
000B20 E2E8E2E4E3F14040            1104+DDX      DC    CL8'SYSUT1'
000B28 E2E8E2E4E3F24040            1105+         DC    CL8'SYSUT2'
000B30 E2E8E2E4E3F34040            1106+         DC    CL8'SYSUT3'
000B38 E2E8E2E4E3F44040            1107+         DC    CL8'SYSUT4'
                                   1108+*
                                   1109+*
                                   1110+*        CALCULATE AMOUNT OF CORE AVAILABLE FOR TABLE SPACE, BUFFER
                                   1111+*                AND DICTIONARY SPACE.
                                   1112+*        TABLE, DICTIONARY AND BUFFER SIZE =
                                   1113+*               ALLOCATED CORE SIZE   MINUS
                                   1114+*              (LENGTH OF PH00 + LENGTH OF PHASE 5
                                   1115+*               + DATA MANAGEMENT SPACE
                                   1116+*               + SUPERVISOR WORK AREA )
                                   1117+*
                                   1118+*
                                   1119+*        TABLE AND DICTIONARY SPACE MUST BE AT LEAST 5174 BYTES
                                   1120+*


000B40 91FF D1C1      00A61        1122+CORAVAL  TM    NORUN,HEXFF NO RUN?                        46891
000B44 4710 D4B2            00D52  1123+         BO    EOJMSG 46891
000B48 58F0 5382            00388  1124+         L     R15,CORE GET SIZE PARAMETER             46891
000B4C 59F0 D468            00D08  1125+         C     R15,ASSUMSIZ
000B50 47B0 D2D2            00B72  1126+         BNL   BCB
                                   1127+*   SIZE IS LESS THAN ASSUMED.
                                   1128+*  THIS IS NOW TREATED AS AN ERROR.  AN ERROR MESSAGE IS GIVEN AND
PH01   IKFCBL01                                                                                                PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1129+*   THE MINIMUM SIZE IS USED
000B54 41F0 D378            00C18  1130+         LA    R15,SZBFIG MESSAGE ADDRESS
000B58 D206 D39D D35B 00C3D 00BFB  1131+         MVC   SZBFIG+37(7),CMIN
000B5E D203 D385 D370 00C25 00C10  1132+         MVC   SZBFIG+13(4),CSIZE
000B64 45E0 D048            008E8  1133+         BAL   R14,QUE PUT IN PRINT QUE
000B68 D203 5382 D468 00388 00D08  1134+         MVC   CORE,ASSUMSIZ USE MINIMUM SIZE
000B6E 47F0 D560            00E00  1135+         B     BUFGVN
000B72 91FF 537E      00384        1136+BCB      TM    BFGVSW,X'FF' TEST IF BUFF AND SIZE GIVEN
000B76 4790 D560            00E00  1137+         BC    9,BUFGVN BRANCH IF BOTH OR NONE
000B7A 91F0 537E      00384        1138+         TM    BFGVSW,X'F0' TEST IF BUFF GIVEN
000B7E 4710 D560            00E00  1139+         BO    BUFGVN YES
000B82 58F0 5382            00388  1140+         L     R15,CORE
000B86 5BF0 D468            00D08  1141+         S     R15,ASSUMSIZ GIVE 1/4 CORE ABOVE 80K TO BUFFERS
000B8A 47C0 D580            00E20  1142+         BC    12,BUFDEFLT
000B8E 88F0 0002            00002  1143+         SRL   R15,2
000B92 5AF0 D598            00E38  1144+         A     R15,NORMBUF ADD IN DEFAULT BUFFER SIZE           41505
000B96 50F0 5386            0038C  1145+         ST    R15,BUFSZ
000B9A 58F0 5382            00388  1146+COR1     L     R15,CORE
000B9E 5BF0 D590            00E30  1147+         S     R15,LONGPHSE SUBTRACT LONG PHASE AND PHSE 00
000BA2 5BF0 D368            00C08  1148+         S     R15,DATAMAN SUBTRACT DATA MAN SPACE + SUP WK
000BA6 50F0 D5A0            00E40  1149+         ST    R15,CORENEED STORE AMOUNT AVAIL FOR GETMAIN
000BAA 5BF0 5386            0038C  1150+         S     R15,BUFSZ SUBTRACT BUFFER SIZE GIVEN
000BAE 59F0 D364            00C04  1151+         C     R15,MINSP IS MINIMUM TABLE SPACE AVAIL
000BB2 47B0 D408            00CA8  1152+         BNL   BUFFERS BRANCH IF YES
000BB6 5AF0 5386            0038C  1153+         A     R15,BUFSZ ADD BACK BUFSZ
000BBA 5BF0 D598            00E38  1154+         S     R15,NORMBUF SUBTRACT USER DEFAULT BUFSI
000BBE 59F0 D364            00C04  1155+         C     R15,MINSP IS MINIMUM SPACE AVAILABLE
000BC2 4740 D336            00BD6  1156+         BL    USEMIN IF STILL NO,MUST USE MINBUF
000BC6 D203 5386 D598 0038C 00E38  1157+         MVC   BUFSZ,NORMBUF OTHERWISE,USE NORMBUF
000BCC D206 D39D D354 00C3D 00BF4  1158+         MVC   SZBFIG+37(7),CDEFLT MOVE WORD DEFAULT TO MESSAG
000BD2 47F0 D342            00BE2  1159+         B     USEMIN+12
000BD6 D203 5386 D59C 0038C 00E3C  1160+USEMIN   MVC   BUFSZ,MINBUF MOVE MINIMUM BUF TO BUFSZ
000BDC D206 D39D D35B 00C3D 00BFB  1161+         MVC   SZBFIG+37(7),CMIN MOVE WORD MINIMUM TO MESSAG
000BE2 41F0 D378            00C18  1162+         LA    R15,SZBFIG LOAD ADDRESS OF MESSAGE,IGNORE B
000BE6 D203 D385 D374 00C25 00C14  1163+         MVC   SZBFIG+13(4),CBUFFER MOVE BUFFER WORD TO MESSAGE
000BEC 45E0 D048            008E8  1164+         BAL   R14,QUE
000BF0 47F0 D408            00CA8  1165+         B     BUFFERS
                                   1166+*
                                   1167+*
                                   1168+* NOW  WE ARE  READY TO BUILD THE BUFFERS
                                   1169+*
000BF4 C4C5C6C1E4D3E3              1170+CDEFLT   DC    C'DEFAULT'
000BFB D4C9D5C9D4E4D4              1171+CMIN     DC    C'MINIMUM'
000C02 0000
000C04 00000800                    1172+MINSP    DC    F'2048' MININUM SPACE FOR TABLES
000C08                             1173+         DS    0F
000C08 00001C00                    1174+DATAMAN  DC    XL4'1C00' THIS CONSTANT IS ASSEMBLED FOR MFT OR PCP
000C0C 00001800                    1175+SIXK     DC    F'6144' 6K
000C10 E2C9E9C5                    1176+CSIZE    DC    C'SIZE'
000C14 40C2E4C6                    1177+CBUFFER  DC    C' BUF'
000C18 0030                        1178+SZBFIG   DC    H'48'
000C1A C9D2C6F0F0F0F9C9            1179+         DC    C'IKF0009I-W SIZE PARAMETER IGNORED, DEFAULT USED.'
000C4A 0000
000C4C 00000500                    1180+BUFMIN   DC    F'1280'
000C50                             1181+SAVE15   DS    F
PH01   IKFCBL01                                                                                                PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000C54 004B                        1182+BUFERR   DC    H'75'
                                   1183+         DC    C'IKF0015I-C BUF PARM TOO SMALL FOR DD-CARD BLKSIZES - CX
000C56 C9D2C6F0F0F1F5C9                +               OMPILATION ABANDONED.'
                                   1184+*
000CA1 000000
000CA4 00000000                    1185+ZERO     DC    F'0'
000CA8 9120 52FC      00302        1186+BUFFERS  TM    ASUMED,X'20' NO DECK
000CAC 4710 D416            00CB6  1187+         BO    BA SET DEFAULTED  DATASET
000CB0 D201 5844 D404 0084A 00CA4  1188+         MVC   BUFVAL+6,ZERO BLOCKSIZES TO  ZERO
000CB6 9110 52FC      00302        1189+BA       TM    ASUMED,X'10'
000CBA 4710 D424            00CC4  1190+         BO    BB
000CBE D201 5846 D404 0084C 00CA4  1191+         MVC   BUFVAL+8,ZERO NO  LOAD
000CC4 91FF D20C      00AAC        1192+BB       TM    NOLIB,X'FF' NO   LIBRARY
000CC8 4780 D432            00CD2  1193+         BZ    BC
000CCC D201 5842 D404 00848 00CA4  1194+         MVC   BUFVAL+4,ZERO
                                   1195+*
                                   1196+* NOW  WE DETERMINE THE SIZE OF BUFFER SIX
                                   1197+*
                                   1198+*
000CD2 48E0 583E            00844  1199+BC       LH    R14,BUFVAL SYSPRINT
000CD6 18FE                        1200+         LR    R15,R14
000CD8 4AE0 5840            00846  1201+         AH    R14,BUFVAL+2 R14=SYSPRINT+SYSIN+SYSLIB
000CDC 4AE0 5842            00848  1202+         AH    R14,BUFVAL+4
000CE0 4AF0 5844            0084A  1203+         AH    R15,BUFVAL+6 R15=SYSPRINT+SYSPUNCH+SYSLIN
000CE4 4AF0 5846            0084C  1204+         AH    R15,BUFVAL+8
000CE8 8DE0 0001            00001  1205+         SLDL  R14,1
000CEC 19EF                        1206+         CR    R14,R15
000CEE 4720 D460            00D00  1207+         BH    BCA
000CF2 50F0 D45C            00CFC  1208+         ST    R15,SZSIX SIZE OF BUFFER SIX
000CF6 47F0 D464            00D04  1209+         B     BCC
000CFC                             1210+SZSIX    DS    F
000D00 50E0 D45C            00CFC  1211+BCA      ST    R14,SZSIX
000D04 47F0 D47C            00D1C  1212+BCC      B     BUFGIVEN
000D08 00014000                    1213+ASSUMSIZ DC    F'81920'
000D0C 00000006                    1214+BUF6     DC    F'6'
000D10 00000005                    1215+BUF5     DC    F'5'
000D14                             1216+SZFIVE   DS    F
000D18                             1217+SZBUF    DS    F
000D1C 58F0 5386            0038C  1218+BUFGIVEN L     R15,BUFSZ
000D20 1BEE                        1219+         SR    R14,R14 COMPUTE  A=B/6
000D22 5DE0 D46C            00D0C  1220+         D     R14,BUF6
000D26 50F0 D474            00D14  1221+         ST    R15,SZFIVE
000D2A 59F0 D45C            00CFC  1222+         C     R15,SZSIX IS   D GT OR  EQ  BUFFER6
000D2E 47B0 D512            00DB2  1223+         BNL   C
000D32 58F0 5386            0038C  1224+         L     R15,BUFSZ
000D36 5BF0 D45C            00CFC  1225+         S     R15,SZSIX SUBTRACT FROM TOTAL BUF BUF
000D3A 59F0 D3AC            00C4C  1226+         C     R15,BUFMIN DO WE HAVE SPACE FOR BUF1-B
000D3E 47B0 D508            00DA8  1227+         BNL   BUFOK IF ENOUGH SPACE,BYPASS ERRO
000D42 50F0 D3B0            00C50  1228+         ST    R15,SAVE15 SAVE BUF
000D46 41F0 D3B4            00C54  1229+         LA    R15,BUFERR PICK UP ERROR MESSAGE WITH
000D4A 45E0 D048            008E8  1230+         BAL   R14,QUE BRANCH AND LINK R14 TO QUE
000D4E 96FF D1C1      00A61        1231+         OI    NORUN,X'FF'
000D52 48F0 583E            00844  1232+EOJMSG   LH    R15,BUFVAL BUFF FOR OUT/TERM              46891
000D56 49F0 5130            00136  1233+         CH    R15,ONE21
000D5A 4780 D4C8            00D68  1234+         BE    PRNTSPCE
PH01   IKFCBL01                                                                                                PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000D5E 58F0 5086            0008C  1235+         L     R15,DCBAD
000D62 D201 F24E 5130 0024E 00136  1236+         MVC   OUT+BLKSZE(2,R15),ONE21
000D68                             1237+         CNOP  0,4
000D68 4510 D4D6            00D76  1238+PRNTSPCE BAL   1,*+14 BRANCH AROUND LIST
000D6C 00000DA0                    1239+         DC    A(EOJMINSP) ADDR. OF LENGTH LIST
000D70 00000E40                    1240+         DC    A(CORENEED) ADDR. OF ADDR. LIST
000D74 C0                          1241+         DC    X'C0' VU MODE
000D75 00                          1242+         DC    AL1(0) SUBPOOL VALUE
000D76 0A04                        1243+         SVC   4 ISSUE GETMAIN SVC
000D78 4120 D698            00F38  1244+         LA    R2,BUFCTLS+48
000D7C 5830 D5A0            00E40  1245+         L     R3,CORENEED
000D80 4140 5130            00136  1246+         LA    R4,ONE21
000D84 45E0 D650            00EF0  1247+         BAL   R14,ECOMM BUILD SYSPRINT BUFFER CONTROL
000D88 45E0 D650            00EF0  1248+         BAL   R14,ECOMM BLOCKS
000D8C 5880 507E            00084  1249+         L     R8,BUFAD
000D90 D20F 8038 D698 00038 00F38  1250+         MVC   SPRINT(16,R8),BUFCTLS+48
000D96 96FF D58C      00E2C        1251+         OI    BUFGOT,BYES SIGNAL THAT GETMAIN IS DONE           40616
000D9A 47F0 D618            00EB8  1252+         B     CE
000D9E 0000
000DA0 000000F8                    1253+EOJMINSP DC    F'248'
000DA4 00000800                    1254+EOJMAXSP DC    F'2048'
000DA8 1BEE                        1255+BUFOK    SR    R14,R14 CLEAR R14 TO ZERO
000DAA 5DE0 D470            00D10  1256+         D     R14,BUF5 DIVIDE REMAINING BUF BY 5
000DAE 50F0 D474            00D14  1257+         ST    R15,SZFIVE SET  D=(A-B)/5
000DB2 58F0 D474            00D14  1258+C        L     R15,SZFIVE
000DB6 59F0 D27C            00B1C  1259+         C     R15,MINDEV
000DBA 4740 D524            00DC4  1260+         BL    CA
000DBE D203 D474 D27C 00D14 00B1C  1261+         MVC   SZFIVE,MINDEV
000DC4 58F0 D474            00D14  1262+CA       L     R15,SZFIVE
000DC8 59F0 D45C            00CFC  1263+         C     R15,SZSIX
000DCC 4740 D534            00DD4  1264+         BL    CB
000DD0 50F0 D45C            00CFC  1265+         ST    R15,SZSIX MAKE SIX= ONE-FIVE
000DD4 89F0 0002            00002  1266+CB       SLL   R15,2
000DD8 5AF0 D474            00D14  1267+         A     R15,SZFIVE
000DDC 5AF0 D45C            00CFC  1268+         A     R15,SZSIX COMPUTE  D=5XEN+LAREROF(EN OR C)
000DE0 50F0 D478            00D18  1269+         ST    R15,SZBUF
000DE4 9103 D47B      00D1B        1270+         TM    SZBUF+3,X'03' TEST IF TOTAL BUF FACTOR OF 4
000DE8 4780 D5B0            00E50  1271+         BZ    CC BRANCH IF YES
000DEC 88F0 0002            00002  1272+         SRL   R15,2 ADD TO
000DF0 89F0 0002            00002  1273+         SLL   R15,2 MAKE SIZE
000DF4 41FF 0004            00004  1274+         LA    R15,4(R15) MULTPLE OF 4
000DF8 50F0 D478            00D18  1275+         ST    R15,SZBUF
000DFC 47F0 D5B0            00E50  1276+         B     CC
000E00 58F0 D59C            00E3C  1277+BUFGVN   L     R15,MINBUF LOAD R15 WITH BUFFER MINIMUM
                                   1278+*                             IS SPECIFIED BUFFER ENOUGH
000E04 59F0 5386            0038C  1279+         C     R15,BUFSZ IF NOT-DEFAULT
000E08 47D0 D2FA            00B9A  1280+         BNH   COR1
000E0C 41F0 D378            00C18  1281+         LA    R15,SZBFIG
000E10 D203 D385 D374 00C25 00C14  1282+         MVC   SZBFIG+13(4),CBUFFER
000E16 D206 D39D D35B 00C3D 00BFB  1283+         MVC   SZBFIG+37(7),CMIN
000E1C 45E0 D048            008E8  1284+         BAL   R14,QUE
000E20 58F0 D59C            00E3C  1285+BUFDEFLT L     R15,MINBUF MINIMUM BUFFERS
000E24 50F0 5386            0038C  1286+         ST    R15,BUFSZ
000E28 47F0 D2FA            00B9A  1287+         B     COR1
000E2C                             1288+         DS    0F
PH01   IKFCBL01                                                                                                PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000E2C 00                          1289+BUFGOT   DC    X'00' INDICATES IF BUF SPACE WAS GETMAINED       40616
0000FF                             1290+BYES     EQU   X'FF' 40616
000E2D 000000
000E30 00000000                    1291+LONGPHSE DC    F'0' LONG PHASE = PH00 + LONGEST PHASE 9330
000E34 00000000                    1292+COREXTRA DC    F'0'
000E38 00000AD0                    1293+NORMBUF  DC    F'2768'
000E3C 00000AD0                    1294+MINBUF   DC    F'2768'
000E40                             1295+CORENEED DS    1D
000E48                             1296+ADRESS   DS    F
000E48                             1297+RESULTS  EQU   ADRESS
000E4C                             1298+LENGTH   DS    F
000E50 5800 D5A0            00E40  1299+CC       L     R0,CORENEED LOAD REG WITH AMOUNT OF CORE NEE
000E54 8800 0003            00003  1300+         SRL   R0,3 ROUND TO NEAREST DOUBLE WORD
000E58 8900 0003            00003  1301+         SLL   R0,3
000E5C 5000 D5AC            00E4C  1302+         ST    R0,RESULTS+4 STORE AMOUNT
000E60 5800 D478            00D18  1303+         L     R0,SZBUF
000E64 5A00 D364            00C04  1304+         A     R0,MINSP
000E68 8800 0003            00003  1305+         SRL   R0,3
000E6C 8900 0003            00003  1306+         SLL   R0,3
000E70 5000 D5A8            00E48  1307+         ST    R0,RESULTS
000E74 95FF DDF1      01691        1308+         CLI   MVTSW,MVTYES IS IT MVT                            9330
000E78 4770 D608            00EA8  1309+         BNE   CD NO IT MFT OR PCP                            9330
000E7C 5870 D5A8            00E48  1310+         L     R7,RESULTS R7 EQUALS MINIMUM LENGTH REQUIRED
000E80 4A70 DDF2            01692  1311+         AH    R7,MVTROUND ROUND MINIMUM LENGTH REQUIRED
000E84 8870 000B            0000B  1312+         SRL   R7,11 UP TO 2K MULTIPLE
000E88 8970 000B            0000B  1313+         SLL   R7,11 TO HELP INSURE CONTIGUOUS
000E8C 5070 D5A8            00E48  1314+         ST    R7,RESULTS MAIN FREE AREA
000E90 5870 D5AC            00E4C  1315+         L     R7,RESULTS+4 R7 EQUALS MAXIMUM LENGTH REQUIRED
000E94 4A70 DDF2            01692  1316+         AH    R7,MVTROUND ROUND MAXIMUM LENGTH REQUIRED
000E98 8870 000B            0000B  1317+         SRL   R7,11 UP TO 2K MULTIPLE
000E9C 8970 000B            0000B  1318+         SLL   R7,11 TO HELP INSURE CONTIGUOUS
000EA0 5A70 D36C            00C0C  1319+         A     R7,SIXK ADD IN AMOUNT NEEDED FOR MVT
000EA4 5070 D5AC            00E4C  1320+         ST    R7,RESULTS+4 MAIN FREE AREA
000EA8                             1321+         CNOP  0,4
000EA8 4510 D616            00EB6  1322+CD       BAL   1,*+14 BRANCH AROUND LIST
000EAC 00000E48                    1323+         DC    A(RESULTS) ADDR. OF LENGTH LIST
000EB0 00000E40                    1324+         DC    A(CORENEED) ADDR. OF ADDR. LIST
000EB4 C0                          1325+         DC    X'C0' VU MODE
000EB5 00                          1326+         DC    AL1(0) SUBPOOL VALUE
000EB6 0A04                        1327+         SVC   4 ISSUE GETMAIN SVC
000EB8 5800 D5A4            00E44  1328+CE       L     R0,CORENEED+4 R0 = LENGTH OF GETMAINED AREA
000EBC 5810 D5A0            00E40  1329+         L     R1,CORENEED
000EC0 5010 D644            00EE4  1330+         ST    R1,TAMERUSE
000EC4 1A01                        1331+         AR    R0,R1
000EC6 5000 D64C            00EEC  1332+         ST    R0,TAMERUSE+8
000ECA 91FF D58C      00E2C        1333+         TM    BUFGOT,BYES IS PRINT BUFFER BUILT                 40616
000ECE 4710 D764            01004  1334+         BO    E3 YES - NEED SYSPRINT BUFFER ONLY
000ED2 5B00 D478            00D18  1335+         S     R0,SZBUF
000ED6 5000 D648            00EE8  1336+         ST    R0,TAMERUSE+4
000EDA 5000 D5A8            00E48  1337+         ST    R0,RESULTS
                                   1338+*
                                   1339+*
000EDE 47F0 D6EC            00F8C  1340+         B     E1
000EE4                             1341+TAMERUSE DS    F START  TAMER AREA
000EE8                             1342+         DS    F END OF TAMER AREA
PH01   IKFCBL01                                                                                                PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000EEC                             1343+         DS    F ADDRESS OF END OF GETMAINED AREA
                                   1344+* THIS  SUBROUTINE  BUILDS  BUFFER CTL BLOCKS AND STORES THEM
                                   1345+*      R2=   WHERE TO  STORE  BUFCTLBLOCKS
                                   1346+*      R3=   ADD  BUFFER
                                   1347+*      R4=   POINTS TO HALF WORD LENGTH
                                   1348+*      RETURN   VIA  REG 14
                                   1349+*      UPDATES  R3
000EF0 5032 0000            00000  1350+ECOMM    ST    R3,0(R2)
000EF4 48F4 0000            00000  1351+         LH    R15,0(R4)
000EF8 50F2 0004            00004  1352+         ST    R15,4(R2)
000EFC 4122 0008            00008  1353+         LA    R2,8(R2)
000F00 1A3F                        1354+         AR    R3,R15
000F02 07FE                        1355+         BR    R14
000F08                             1356+BUFCTLS  DS    16D
000F88                             1357+BUFSVE   DS    F
                                   1358+*
                                   1359+*
                                   1360+*
000F8C 5840 D474            00D14  1361+E1       L     R4,SZFIVE
000F90 8840 0002            00002  1362+         SRL   R4,2
000F94 8940 0002            00002  1363+         SLL   R4,2
000F98 5040 D474            00D14  1364+         ST    R4,SZFIVE
000F9C 4140 D476            00D16  1365+         LA    R4,SZFIVE+2
000FA0 4120 D668            00F08  1366+         LA    R2,BUFCTLS
000FA4 5830 D5A8            00E48  1367+         L     R3,RESULTS SET UP BUFFERS  1-5
000FA8 4190 0005            00005  1368+         LA    R9,5
000FAC 45E0 D650            00EF0  1369+E2       BAL   R14,ECOMM
000FB0 4690 D70C            00FAC  1370+         BCT   R9,E2
000FB4 5030 D6E8            00F88  1371+         ST    R3,BUFSVE
                                   1372+*
000FB8 45E0 D650            00EF0  1373+         BAL   R14,ECOMM SET  BUF  SIX AS A WHOLE
000FBC 5830 D6E8            00F88  1374+         L     R3,BUFSVE
000FC0 4140 583E            00844  1375+         LA    R4,BUFVAL
000FC4 45E0 D650            00EF0  1376+         BAL   R14,ECOMM SYSOUT
000FC8 45E0 D650            00EF0  1377+         BAL   R14,ECOMM SYSOUT
000FCC 5030 D6E8            00F88  1378+         ST    R3,BUFSVE
000FD0 4144 0002            00002  1379+         LA    R4,2(R4)
000FD4 45E0 D650            00EF0  1380+         BAL   R14,ECOMM SYSIN
000FD8 45E0 D650            00EF0  1381+         BAL   R14,ECOMM SYSIN
000FDC 4144 0002            00002  1382+         LA    R4,2(R4)
                                   1383+*
000FE0 45E0 D650            00EF0  1384+         BAL   R14,ECOMM SYSLIB
000FE4 45E0 D650            00EF0  1385+         BAL   R14,ECOMM SYSLIB
000FE8 4144 0002            00002  1386+         LA    R4,2(R4)
000FEC 5830 D6E8            00F88  1387+         L     R3,BUFSVE
000FF0 45E0 D650            00EF0  1388+         BAL   R14,ECOMM SYSPUNCH
000FF4 45E0 D650            00EF0  1389+         BAL   R14,ECOMM SYSPUNCH
000FF8 4144 0002            00002  1390+         LA    R4,2(R4)
000FFC 45E0 D650            00EF0  1391+         BAL   R14,ECOMM SYSLIN
001000 45E0 D650            00EF0  1392+         BAL   R14,ECOMM SYSLIN
                                   1393+* ALL  BUFFERS  BUILT
                                   1394+*      NOW   WE MOVE THE  PARAMS TO  PHASE0
001004 5880 507E            00084  1395+E3       L     R8,BUFAD
001008 D207 8000 D6E0 00000 00F80  1396+         MVC   0(8,R8),BUFCTLS+120
00100E D277 8008 D668 00008 00F08  1397+         MVC   8(120,R8),BUFCTLS
PH01   IKFCBL01                                                                                                PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001014 D201 8090 804E 00090 0004E  1398+         MVC   INBUF(LX2,R8),DX78(R8) STORE SYSIN BLKSIZE         40329
00101A D201 808E 805E 0008E 0005E  1399+         MVC   LIBSIZE(LX2,R8),DX94(R8) STORE SYSLIB BLKSIZE      40329
001020 D207 8084 D644 00084 00EE4  1400+         MVC   132(8,R8),TAMERUSE TAMER START,END
001026 D203 8080 D64C 00080 00EEC  1401+         MVC   128(4,R8),TAMERUSE+8
00102C 5880 508E            00094  1402+         L     R8,ADSWIT
001030 9280 8000      00000        1403+         MVI   0(R8),X'80' ACTIVATE PRINTER
001034 4120 D990            01230  1404+         LA    2,IDENTMS
001038 D20A D9FE 565B 0129E 00661  1405+         MVC   IDATE+5(11),DATE1
00103E 91FF D1C0      00A60        1406+         TM    NOPR,X'FF' WAS PRINTER OPENED
001042 4710 D840            010E0  1407+         BO    F NO, DON'T PRINT
001046 45B0 D7C6            01066  1408+         BAL   11,PRINT PRINT HEADER
00104A 4120 D988            01228  1409+         LA    2,BLKPRNT
00104E 45B0 D7C6            01066  1410+         BAL   11,PRINT
001052 5820 5086            0008C  1411+         L     R2,DCBAD LOAD REG WITH DCB1 ADD IN PH00
001056 4B20 50AA            000B0  1412+         SH    R2,EIGHT SUBTRACT EIGHT
00105A 5822 0000            00000  1413+         L     R2,0(R2) GET ADDRESS OF CARRIAGE CONT CHA
00105E 92F1 2000      00000        1414+         MVI   0(R2),X'F1' MOVE SKIP PAGE CHARACTER
001062 47F0 D840            010E0  1415+         B     F
                                   1416+* THIS  ROUTINE PRINTS OUT  ACCUMULATED  MESAGES
001066 1B33                        1417+PRINT    SR    R3,R3
001068 4332 0001            00001  1418+         IC    R3,1(R2)
00106C 5810 507A            00080  1419+         L     R1,COSADR
001070 4122 0002            00002  1420+         LA    R2,2(R2)
001074 0501                        1421+         BALR  0,R1
001076 16                          1422+         DC    X'16'
001077 00
001078 5810 507A            00080  1423+         L     R1,COSADR
00107C 0501                        1424+         BALR  0,R1
00107E 86                          1425+         DC    X'86'
00107F 00
001080 0620                        1426+         BCTR  R2,0
001082 0620                        1427+         BCTR  R2,0
001084 07FB                        1428+         BR    R11
001086 D201 D93C 2000 011DC 00000  1429+TYPE     MVC   TYPEA,0(R2)
00108C 1B11                        1430+         SR    R1,R1
00108E 4312 0001            00001  1431+         IC    R1,1(R2)
001092 0610                        1432+         BCTR  R1,0
001094 4210 D7FD            0109D  1433+         STC   R1,MOVET+1
001098 4110 D93C            011DC  1434+         LA    R1,TYPEA
00109C D247 D940 2002 011E0 00002  1435+MOVET    MVC   TYPEB,2(R2)
0010A2 48F0 D93C            011DC  1436+         LH    R15,TYPEA
0010A6 41FF 0004            00004  1437+         LA    R15,4(R15)
0010AA 40F0 D93C            011DC  1438+         STH   R15,TYPEA
0010AE 0A23                        1439+         SVC   35
0010B0 07FB                        1440+         BR    R11
0010B2 91FF D1C0      00A60        1441+PUT      TM    NOPR,X'FF' PUT OUT  MESAGES
0010B6 4710 D822            010C2  1442+         BO    PUTA
0010BA 45B0 D7C6            01066  1443+         BAL   R11,PRINT
0010BE 47F0 D826            010C6  1444+         B     PUTB
0010C2 45B0 D7E6            01086  1445+PUTA     BAL   R11,TYPE
0010C6 0640                        1446+PUTB     BCTR  R4,0
0010C8 0640                        1447+         BCTR  R4,0
0010CA 1BFF                        1448+         SR    R15,R15
0010CC 43F2 0001            00001  1449+         IC    R15,1(R2)
0010D0 1B4F                        1450+         SR    R4,R15
PH01   IKFCBL01                                                                                                PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0010D2 47C0 D85E            010FE  1451+         BC    12,G
0010D6 1A2F                        1452+         AR    R2,R15
0010D8 4122 0002            00002  1453+         LA    R2,2(R2)
0010DC 47F0 D812            010B2  1454+         B     PUT
0010E0 4840 D088            00928  1455+F        LH    R4,MSUSED
0010E4 1244                        1456+         LTR   R4,R4
0010E6 47C0 D85E            010FE  1457+         BC    12,G
0010EA 5820 507A            00080  1458+         L     R2,COSADR
0010EE 5820 5092            00098  1459+         L     R2,ERRSEV1
0010F2 9204 2000      00000        1460+         MVI   0(R2),X'04'
0010F6 4120 DA0A            012AA  1461+         LA    R2,MSGS
0010FA 47F0 D812            010B2  1462+         B     PUT
0010FE                             1463+G        EQU   *
0010FE 91FF D1C1      00A61        1464+         TM    NORUN,X'FF'
001102 4780 D87A            0111A  1465+         BZ    H
001106 91FF D1C0      00A60        1466+         TM    NOPR,X'FF'
00110A 4780 D872            01112  1467+         BZ    K
00110E 947F 8000      00000        1468+         NI    0(R8),X'7F' DE-ACTIVATE PRINTER
001112 5810 507A            00080  1469+K        L     R1,COSADR INDICATE END OF JOB
001116 0501                        1470+         BALR  0,R1
001118 B1                          1471+         DC    X'B1'
001119 00
00111A 5880 507E            00084  1472+H        L     R8,BUFAD
00111E D200 808C D20C 0008C 00AAC  1473+         MVC   140(1,R8),NOLIB
000000                             1474+         USING COS,R1
001124 5810 507A            00080  1475+         L     R1,COSADR
001128 9140 52FC      00302        1476+         TM    ASUMED,PMAPQ PMAP
00112C 4710 D89C            0113C  1477+         BO    HI YES
001130 9140 52FD      00303        1478+         TM    ASUMED1,CLISTQ CLIST
001134 4710 D89C            0113C  1479+         BO    HI YES
001138 94FE 52FE      00304        1480+         NI    ASUMED3,BITSET-VERBRQ TURN OFF LISTING A-TEXT
00113C D200 11A3 52FC 001A3 00302  1481+HI       MVC   PHZSW,ASUMED FIRST PHASE SWITCH SWITCH TO COMMON
001142 D200 11A4 52FD 001A4 00303  1482+         MVC   PHZSW1,ASUMED1 SECOND PHASE SWITCH TO COMMON
001148 D200 11C6 52FE 001C6 00304  1483+         MVC   PHZSW3,ASUMED3 THIRD PHASE SWITCH TO COMMON
                                   1484+* * *
                                   1485+*                                  CONVERT SPACING TO ZONED DECIMAL
                                   1486+* * *
00114E 9560 538C      00392        1487+         CLI   BLANK1,C'-'
001152 4770 D8BE            0115E  1488+         BNE   BL1
001156 92F3 D98E      0122E        1489+         MVI   TEMPBLNK,X'F3'
00115A 47F0 D8D2            01172  1490+         B     MOVEBLNK
00115E 95F0 538C      00392        1491+BL1      CLI   BLANK1,C'0'
001162 4770 D8CE            0116E  1492+         BNE   BL2
001166 92F2 D98E      0122E        1493+         MVI   TEMPBLNK,X'F2'
00116A 47F0 D8D2            01172  1494+         B     MOVEBLNK
                                   1495+* * *
                                   1496+*                                  IT MUST BE EITHER 1 OR BLANK
                                   1497+*
00116E 92F1 D98E      0122E        1498+BL2      MVI   TEMPBLNK,X'F1'
001172 D200 11F0 D98E 001F0 0122E  1499+MOVEBLNK MVC   SPACING,TEMPBLNK
                                   1500+* * *
                                   1501+*                                  CONVERT CORESIZE AND BUFFERSIZE
                                   1502+*                                  PACKED DECIMAL; LINECNT CONVERTE
                                   1503+*                                  TO ZONED DECIMAL
                                   1504+* * *
PH01   IKFCBL01                                                                                                PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001178 58B0 5382            00388  1505+         L     R11,CORE
00117C 4EB0 51EA            001F0  1506+         CVD   R11,PARWK
001180 D203 11E8 51EE 001E8 001F4  1507+         MVC   CORESZ(4,R1),PARWK+4
001186 58B0 5386            0038C  1508+         L     R11,BUFSZ
00118A 4EB0 51EA            001F0  1509+         CVD   R11,PARWK
00118E D203 11E4 51EE 001E4 001F4  1510+         MVC   BUFFSIZE(4,R1),PARWK+4
001194 F311 11EC 538A 001EC 00390  1511+         UNPK  CNTLINE(D2),SIXTY
00119A 9102 52FC      00302        1512+         TM    ASUMED,LIBRQ
00119E 47E0 D910            011B0  1513+         BNO   PH01OUT RETURN TO PH00
0011A2 5810 507A            00080  1514+         L     R1,COSADR PASS ADDR OF COS TO PREPROC
0011A6 58E0 D90C            011AC  1515+         L     R14,APBEG03 ADDR OF PREPROCESSOR
0011AA 07FE                        1516+         BR    R14 PERFORM BASIS/COPY FUNCTION
                                   1517+         DROP  R1
0011AC 00001B70                    1518+APBEG03  DC    A(PBEG03) ADDR OF PREPROC
0011B0 0501                        1519+PH01OUT  BALR  0,R1
0011B2 A1                          1520+         DC    X'A1'
                                   1521+*
                                   1522+*
                                   1523+*                                  MVT CONSTANTS FOR COBOL SPACE
                                   1524+*
                                   1525+*                                  KEEP FOLLOWING 10 CARDS TOGETHER
0011B4                             1526+         DS    0F
0011B4 00002800                    1527+MVTCONST DC    XL4'2800' MVT COBOL SPACE PH1A
0011B8 00007800                    1528+         DC    XL4'7800' MVT COBOL SPACE PH1B
0011BC 00002800                    1529+         DC    XL4'2800' MVT COBOL SPACE PH20
0011C0 0000B800                    1530+         DC    XL4'B800' MVT COBOL SPACE PH30
0011C4 00005000                    1531+         DC    XL4'5000' MVT COBOL SPACE PH40
0011C8 00000000                    1532+         DC    XL4'0000' MVT COBOL SPACE PH50
0011CC 00007800                    1533+         DC    XL4'7800' MVT COBOL SPACE PH60
0011D0 0000E000                    1534+         DC    XL4'E000' MVT COBOL SPACE PH6A
0011D4 00004000                    1535+         DC    XL4'4000' MVT COBOL SPACE PH70
0011D8 00004000                    1536+         DC    XL4'4000' MVT COBOL SPACE PH70 CONSTANT
0011DC 0000                        1537+TYPEA    DC    AL2(0)
0011DE 0000                        1538+         DC    AL2(0)
0011E0 4040404040404040            1539+TYPEB    DC    CL72' '
001228 0004                        1540+BLKPRNT  DC    H'4'
00122A 40404040                    1541+         DC    C'    '
00122E 00                          1542+TEMPBLNK DC    X'00'
0001E4                             1543+BUFFSIZE EQU   X'1E4'
0001E8                             1544+CORESZ   EQU   X'1E8'
0000FF                             1545+MVTYES   EQU   X'FF'
000090                             1546+INBUF    EQU   X'90' IN PHASE 00                    40329
00008E                             1547+LIBSIZE  EQU   X'8E' IN PHASE 00                    40329
00004E                             1548+DX78     EQU   78 40329
00005E                             1549+DX94     EQU   94 40329
000038                             1550+SPRINT   EQU   X'38'
0000FF                             1551+BITSET   EQU   255
00122F 00
001230 0078                        1552+IDENTMS  DC    H'120'
001232 4040C3C2F5F4F540            1553+         DC    CL41'  CB545 V2 LVL78 01MAY72' COBOL HEADER
00125B C9C2D440D6E240C1            1554+         DC    CL62'IBM OS AMERICAN NATIONAL STANDARD COBOL' X
001299 C4C1E3C540404040            1555+IDATE    DC    CL17'DATE' X
0012AA                             1556+MSGS     DS    CL999
001691 00                          1557+MVTSW    DC    X'00'
001692 07FF                        1558+MVTROUND DC    H'2047' EQUALS 2K-1
PH01   IKFCBL01                                                                                                PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1560+**********************************************************************
                                   1561+**********************************************************************
                                   1562+**THIS ROUTINE CALCULATES THE VALUE OF LONGPHSE AND SETS THE COBOL9330
                                   1563+**SPACE CONSTANTS IN PHASE00.                                     9330
                                   1564+**********************************************************************
                                   1565+**********************************************************************
                                   1566+*                                                                 9330
                                   1567+**BUILD LIST OF ALL PHASE NAMES IN THIS COMPILER , WITH THE EXCEPTION
                                   1568+** OF PHASE01 ,WHOSE SIZE IS NOT NEEDED.                          9330
                                   1569+*                                                                 9330
001698                             1570+         USING ZBLDL01,R11 9330
001698                             1571+ZBLDL01  CSECT  9330
001698 900F B19C            01834  1572+         STM   R0,R15,ZBSAVE 9330
00169C 921C B23F      018D7        1573+         MVI   ZLL+D1,ZNTRYLEN SET ENTRY LENGTH IN LIST        9330
0016A0 58A0 509E            000A4  1574+         L     R10,ZALNKNPT PT TO 1ST 2-BYTE VARIABLE PORTION
                                   1575+*                                  OF LINKNAME IN PHASE00         9330
0016A4 D227 B48C A000 01B24 00000  1576+         MVC   TEMPLIST(40),D0(R10) 9330
0016AA 4160 B48C            01B24  1577+         LA    R6,TEMPLIST 9330
0016AE 4180 0001            00001  1578+         LA    R8,D1 ENTRY CTR. PH00 ENTRY IS ASSEMBLED.
0016B2 4190 B25C            018F4  1579+         LA    R9,ZNAME2 PT TO NAME FIELD IN 2ND ENTRY   9330
0016B6 58A0 509E            000A4  1580+ZB00     L     R10,ZALNKNPT GET ADDR OF PHASE NAMES   9330
0016BA 1B77                        1581+         SR    R7,R7 9330
0016BC 1836                        1582+         LR    R3,R6 SAVE  ADDR OF TEMPLIST                     9330
0016BE D501 6000 3002 00000 00002  1583+ZB01     CLC   D0(D2,R6),D2(R3) ARE TWO LINK VARIABLES IN SEQUENCE
0016C4 47D0 B042            016DA  1584+         BNH   ZB01A YES BRANCH                               9330
0016C8 D701 6000 3002 00000 00002  1585+         XC    D0(D2,R6),D2(R3) INTERCHANGE
0016CE D701 3002 6000 00002 00000  1586+         XC    D2(D2,R3),D0(R6) THESE TWO
0016D4 D701 6000 3002 00000 00002  1587+         XC    D0(D2,R6),D2(R3) NAMES
0016DA 95FF 3002      00002        1588+ZB01A    CLI   D2(R3),ZXFF IS IT THE LAST LINK VARIABLE       9330
0016DE 4780 B052            016EA  1589+         BE    ZB02 YES  GO TO STORE THAT NAME IN BLDL LIST     9330
0016E2 4133 0002            00002  1590+         LA    R3,D2(R3) 9330
0016E6 47F0 B026            016BE  1591+         B     ZB01 CHECK NEXT NAME                            9330
0016EA D501 A000 6000 00000 00000  1592+ZB02     CLC   D0(D2,R10),D0(R6) FIND MATCH IN ORIGINAL LINK
0016F0 4780 B068            01700  1593+         BE    ZB02A BRANCH ON HIT TO SAVE POSITION BEFORE SORT
0016F4 41AA 0002            00002  1594+         LA    R10,D2(R10) 9330
0016F8 4177 0001            00001  1595+         LA    R7,D1(R7) 9330
0016FC 47F0 B052            016EA  1596+         B     ZB02 9330
001700 8B70 0002            00002  1597+ZB02A    SLA   R7,D2 9330
001704 4278 B4B3            01B4B  1598+         STC   R7,INVERSE-D1(R8) 9330
001708 D205 9000 B240 00000 018D8  1599+         MVC   D0(D6,R9),ZNAME1
00170E D201 9006 6000 00006 00000  1600+         MVC   D6(D2,R9),D0(R6)
001714 4188 0001            00001  1601+         LA    R8,D1(R8) 9330
001718 95FF 6002      00002        1602+         CLI   D2(R6),ZXFF 9330
00171C 4780 B094            0172C  1603+         BE    ZB02B 9330
001720 4166 0002            00002  1604+         LA    R6,D2(R6) 9330
001724 4199 001C            0001C  1605+         LA    R9,ZNTRYLEN(R9) PT TO NEXT ENTRY                9330
                                   1606+*                                                                 9330
                                   1607+*                                                                 9330
001728 4770 B01E            016B6  1608+         BNE   ZB00 NO                              9330
                                   1609+*                                                                 9330
                                   1610+**THE LIST HAS NOW BEEN BUILT.  ISSUE BLDL AND MOVE SIZES TO WORK AREA.
00172C                             1611+ZB02B    DS    0H *                                            9330
00172C 4080 B23C            018D4  1612+         STH   R8,ZFF SET NUM OF ENTRIES              9330
                                   1613+*                                                                 9330
001730 4110 0000            00000  1614+         LA    1,0 LOAD PARAMETER REG 1
PH01   IKFCBL01                                                                                                PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001734 4100 B23C            018D4  1615+         LA    0,ZBLIST LOAD PARAMETER REG 0
001738 4111 0000            00000  1616+         LA    1,0(1)
00173C 0A12                        1617+         SVC   18 LINK TO BLDL ROUTINE
                                   1618+*                                                                 9330
00173E 980F B19C            01834  1619+         LM    R0,R15,ZBSAVE 9330
                                   1620+*                                                                 9330
001742 41A0 B274            0190C  1621+         LA    R10,ZPH00SIZ+ZNTRYLEN PNT TO 2ND MOD SIZE IN LIST  9330
001746 1B33                        1622+         SR    R3,R3 CLEAR  R3                                 9330
001748 D202 B1DD B258 01875 018F0  1623+         MVC   ZPHSIZES+1(D3),ZPH00SIZ MOVE PH0 SIZE INTO WORKAREA
00174E 4880 B23C            018D4  1624+         LH    R8,ZFF GET NUM OF ENTRIES              9330
001752 0680                        1625+         BCTR  R8,R0 9330
001754 1B77                        1626+         SR    R7,R7 9330
001756 4160 B4B4            01B4C  1627+         LA    R6,INVERSE 9330
00175A                             1628+ZB03     DS    0H *                                          9330
00175A 4190 B1E0            01878  1629+         LA    R9,ZPHSIZES+4 POINT TO 2ND ENTRY IN WORKAREA      9330
00175E 4337 B4B4            01B4C  1630+         IC    R3,INVERSE(R7) LOCATE ORIGINAL POSITION FOR EACH PHASE
001762 1A93                        1631+         AR    R9,R3 BEFORE THE SORT AND ADD IT TO WORK AREA     9330
001764 D202 9001 A000 00001 00000  1632+         MVC   D1(D3,R9),D0(R10)
00176A D502 9001 B231 00001 018C9  1633+         CLC   D1(D3,R9),ZLONG+D1
001770 47D0 B0E2            0177A  1634+         BNH   ZB04 *                               9330
001774 D202 B231 9001 018C9 00001  1635+         MVC   ZLONG+D1(D3),D1(R9)
00177A                             1636+ZB04     DS    0H *                               9330
00177A 41AA 001C            0001C  1637+         LA    R10,ZNTRYLEN(R10) 9330
00177E 4177 0001            00001  1638+         LA    R7,D1(R7) 9330
001782 4680 B0C2            0175A  1639+         BCT   R8,ZB03 *                               9330
                                   1640+*
                                   1641+*
                                   1642+*
                                   1643+*                                                                 9330
                                   1644+**WE NOW HAVE ALL PHASE SIZES AND LONGEST PHASE SIZE.             9330
                                   1645+*                                                                 9330
                                   1646+*                                                                 9330
001786 1B11                        1647+         SR    R1,R1 9330
001788 5821 0010            00010  1648+         L     R2,D16(R1) POINT TO CVT                        9330
00178C 9110 2074      00074        1649+         TM    CONFIG(D2),MVTBIT 9330
001790 47E0 B146            017DE  1650+         BNO   ZB07 THIS IS NOT MVT
001794 5810 B4C8            01B60  1651+         L     R1,AMVTSW 9330
001798 92FF 1000      00000        1652+         MVI   D0(R1),MVTYES 9330
00179C 5810 B4CC            01B64  1653+         L     R1,ADATAMAN GET ADDR OF DATA MAN CON
0017A0 D203 1000 B4D0 00000 01B68  1654+         MVC   D0(D4,R1),MVTDAMAN MOVE 6K TO DATAMAN  FOR MVT
                                   1655+*ROUND UP TO 2K MULTIPLE                                          9330
0017A6 4880 B23C            018D4  1656+         LH    R8,ZFF 9330
0017AA 41A0 B1DC            01874  1657+         LA    R10,ZPHSIZES 9330
0017AE                             1658+ZB05     DS    0H *                               9330
0017AE 589A 0000            00000  1659+         L     R9,D0(R10) 9330
0017B2 4A90 B238            018D0  1660+         AH    R9,ZMVTRND 9330
0017B6 8890 000B            0000B  1661+         SRL   R9,D11 9330
0017BA 8990 000B            0000B  1662+         SLL   R9,D11 9330
0017BE 509A 0000            00000  1663+         ST    R9,D0(R10) 9330
0017C2 41AA 0004            00004  1664+         LA    R10,D4(R10) 9330
0017C6 4680 B116            017AE  1665+         BCT   R8,ZB05 *                               9330
0017CA 5890 B230            018C8  1666+         L     R9,ZLONG 9330
0017CE 4A90 B238            018D0  1667+         AH    R9,ZMVTRND 9330
0017D2 8890 000B            0000B  1668+         SRL   R9,D11 9330
0017D6 8990 000B            0000B  1669+         SLL   R9,D11 9330
PH01   IKFCBL01                                                                                                PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0017DA 5090 B230            018C8  1670+         ST    R9,ZLONG 9330
                                   1671+*                                                                 9330
                                   1672+**SET LONGPHSE (= PH00 + LONGEST PHASE) AND COBOL SPACE CONSTANTS.9330
                                   1673+*                                                                 9330
0017DE                             1674+ZB06     DS    0H *                               9330
0017DE                             1675+ZB07     DS    0H *                               9330
0017DE 5890 B230            018C8  1676+         L     R9,ZLONG LONGEST PHASE
0017E2 5A90 B1DC            01874  1677+         A     R9,ZPH00LEN ADD IN PHASE0
0017E6 5090 D590            00E30  1678+         ST    R9,LONGPHSE STORE IN LONG PHASE
0017EA                             1679+ZB08     DS    0H *                               9330
0017EA D703 B1DC B1DC 01874 01874  1680+         XC    ZPH00LEN(D4),ZPH00LEN NO COBOL SPACE CONST FOR PH00
0017F0 58A0 509A            000A0  1681+         L     R10,APCBSPT PT TO COBOL SPACE CONSTANTS IN PH00
0017F4 58AA 0000            00000  1682+         L     R10,0(R10) *                             9330
0017F8 4190 B1DC            01874  1683+         LA    R9,ZPHSIZES PT TO SIZES IN WORK AREA        9330
0017FC 4880 B23C            018D4  1684+         LH    R8,ZFF NUM OF ENTRIES                  9330
001800                             1685+ZB09     DS    0H *                               9330
001800 D503 9000 B234 00000 018CC  1686+         CLC   D0(D4,R9),ZZEROES
001806 4780 B182            0181A  1687+         BE    ZB10 NO COBOL SPACE CONSTANT FOR THIS PH
00180A 5870 B230            018C8  1688+         L     R7,ZLONG 9330
00180E 5B79 0000            00000  1689+         S     R7,D0(R9) COBOL SPACE = LONGEST PH - THIS PH
001812 507A 0000            00000  1690+         ST    R7,D0(R10) 9330
001816 41AA 0004            00004  1691+         LA    R10,D4(R10) 9330
00181A                             1692+ZB10     DS    0H *                               9330
00181A 4199 0004            00004  1693+         LA    R9,D4(R9) 9330
00181E 4680 B168            01800  1694+         BCT   R8,ZB09 *                               9330
001822 4BA0 B23A            018D2  1695+         SH    R10,ZHW4 LAST CONSTANT IS REPEATED       9330
001826 D203 A004 A000 00004 00000  1696+         MVC   D4(D4,R10),D0(R10)
00182C 980F B19C            01834  1697+         LM    R0,R15,ZBSAVE RESTORE REGS                    9330
001830 47F0 54FA            00500  1698+         B     ZBLDLRET AND RETURN                      9330
                                   1699+*                                                                 9330
001834                             1700+ZBSAVE   DS    16F *                               9330
001874 0000000000000000            1701+ZPHSIZES DC    21F'0' ALLOW FOR 21 PHASES             9330
001874                             1702+ZPH00LEN EQU   ZPHSIZES *                               9330
0018C8 00000000                    1703+ZLONG    DC    F'0' 9330
0018CC 00000000                    1704+ZZEROES  DC    F'0' *                               9330
0018D0 07FF                        1705+ZMVTRND  DC    H'2047' *                                          9330
0018D2 0004                        1706+ZHW4     DC    H'4' *                               9330
                                   1707+*                                                                 9330
0018D4                             1708+ZBLIST   DS    0H BLDL LIST                       9330
0018D4                             1709+ZFF      DS    H NUMBER OF ENTRIES               9330
0018D6 0000                        1710+ZLL      DC    H'0' LENGTH OF EACH ENTRY (MUST BE EVEN)
0018D8 C9D2C6C3C2D3F0F0            1711+ZNAME1   DC    CL8'IKFCBL00' FIRST ENTRY IN LIST             9330
0018E0                             1712+         DS    6X *                               9330
0018E6                             1713+ZUSERDAT EQU   * 9330
0018E6                             1714+         DS    10X *                               9330
0018F0                             1715+ZPH00SIZ DS    3X MODULE SIZE IN BYTES 23,24,25               9330
                                   1716+*                                                                 9330
0018F3                             1717+         DS    X *                               9330
0018F4                             1718+ZNAME2   DS    20XL28 ALLOW FOR MAX OF 20 MORE ENTRIES9330
001B24 0000000000000000            1719+TEMPLIST DC    40X'00' *                                      9330
001B4C 0000000000000000            1720+INVERSE  DC    20X'00' *                                         9330
001B60 00001691                    1721+AMVTSW   DC    A(MVTSW) ADCON                              9330
001B64 00000C08                    1722+ADATAMAN DC    A(DATAMAN) ADCON
001B68 00001800                    1723+MVTDAMAN DC    F'6144' DATAMAN CON FOR MVT IS 6K
0000FF                             1724+ZXFF     EQU   X'FF' 9330
PH01   IKFCBL01                                                                                                PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00001C                             1725+ZNTRYLEN EQU   28 9330
                                   1726+*
001B70                             1727+IKF012   CSECT
                                   1728+***
                                   1729+*                      PREPROCESSOR EQUATES
                                   1730+***
                                   1731+*****
                                   1732+*        GENERAL REGISTER SYMBOLIC EQUATES
                                   1733+*****
000000                             1734+C0       EQU   0 WORK REGISTERS
000001                             1735+C1       EQU   1
000002                             1736+C2       EQU   2
000003                             1737+C3       EQU   3
00000D                             1738+C13      EQU   13 SAVEAREA REGISTER
00000E                             1739+C4       EQU   14
00000F                             1740+C5       EQU   15
000005                             1741+B1       EQU   5 BASE REGISTERS
000006                             1742+B2       EQU   6
000007                             1743+B3       EQU   7
000009                             1744+B4       EQU   9
00000A                             1745+W1       EQU   10 WORK REGISTERS
00000B                             1746+W2       EQU   11
00000C                             1747+W3       EQU   12
000008                             1748+L1       EQU   8 BRANCH AND LINK REGISTER
000004                             1749+S1       EQU   4 INPUT POINTER
                                   1750+*****
                                   1751+*        AFTER TEST UNDER MASK INSTRUCTIONS
                                   1752+*****
000001                             1753+ALLON    EQU   1
000004                             1754+MIXED    EQU   4
000008                             1755+ALLOFF   EQU   8
                                   1756+*****
                                   1757+*        AFTER COMPARE INSTRUCTIONS
                                   1758+*****
000008                             1759+EQ       EQU   8
000007                             1760+NE       EQU   7
000002                             1761+GT       EQU   2
000004                             1762+LT       EQU   4
00000B                             1763+GE       EQU   11
00000D                             1764+LE       EQU   13
                                   1765+*****
                                   1766+*        AFTER ARITHMETIC INSTRUCTIONS
                                   1767+*****
000008                             1768+TZERO    EQU   8
000007                             1769+NZERO    EQU   7
000002                             1770+PLUS     EQU   2
000004                             1771+MINUS    EQU   4
000001                             1772+OVFL     EQU   1
00000D                             1773+NPLUS    EQU   13
00000B                             1774+NMINUS   EQU   11
                                   1775+*****
                                   1776+*        DISPLACEMENT AND LENGTH EQUATES
                                   1777+*****
000000                             1778+DX0      EQU   0
000001                             1779+DX1      EQU   1
PH01   IKFCBL01                                                                                                PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000002                             1780+DX2      EQU   2
000003                             1781+DX3      EQU   3
000004                             1782+DX4      EQU   4
000005                             1783+DX5      EQU   5
000006                             1784+DX6      EQU   6
000007                             1785+DX7      EQU   7
000008                             1786+DX8      EQU   8
00000B                             1787+DX11     EQU   11
00000C                             1788+DX12     EQU   12
00000D                             1789+DX13     EQU   13
000018                             1790+DX24     EQU   24
000019                             1791+DX25     EQU   25
00003C                             1792+DX60     EQU   60
00003D                             1793+DX61     EQU   61
000042                             1794+LX66     EQU   66
000047                             1795+DX71     EQU   71
000048                             1796+DX72     EQU   72

000000                             1798+LX0      EQU   0
000001                             1799+LX1      EQU   1
000002                             1800+LX2      EQU   2
000003                             1801+LX3      EQU   3
000004                             1802+LX4      EQU   4
000005                             1803+LX5      EQU   5
000006                             1804+LX6      EQU   6
000007                             1805+LX7      EQU   7
000008                             1806+LX8      EQU   8
000009                             1807+LX9      EQU   9
00000A                             1808+LX10     EQU   10
00000F                             1809+LX15     EQU   15
000010                             1810+LX16     EQU   16
000014                             1811+LX20     EQU   20
00002F                             1812+LX47     EQU   47
000031                             1813+LX49     EQU   49
000041                             1814+LX65     EQU   65
000048                             1815+LX72     EQU   72
00004D                             1816+LX77     EQU   77
000050                             1817+LX80     EQU   80
000058                             1818+LX88     EQU   88
000084                             1819+LX132    EQU   132
0000C6                             1820+LX198    EQU   198
PH01   IKFCBL01                                                                                                PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1822+*        ENTRY TO PREPROCESSOR - HOUSEKEEPING
                                   1823+*
001B70                             1824+PBEG03   EQU   *
001B70 0550                        1825+         BALR  B1,C0 SET UP ADDR IN BASE REG 1
001B72                             1826+         USING *,B1,B2,B3,B4 ESTABLISH ADDRESSABILITY
                                   1827+*        BASE REGISTER ASSIGNMENT AND LOAD FOR PREPROCESSOR
001B72 5860 5096            01C08  1828+PREPROC  L     B2,BASE2 SET UP ADDR IN BASE REG 2
001B76 5870 509A            01C0C  1829+         L     B3,BASE3 SET UP ADDR IN BASE REG 3
001B7A 5890 509E            01C10  1830+         L     B4,BASE4 SET UP ADDR IN BASE REG 4
                                   1831+*        I M P O R T A N T -
                                   1832+*              REG15 (C5) SHOULD ALWAYS POINT TO COS SO THAT
                                   1833+*              PH0 AND THE COMMUNICATION AREA CAN BE REFERENCED
                                   1834+*
                                   1835+*     SAVE ADDRESS OF COS IN PHASE0
000000                             1836+         USING COS,C5
001B7E 5010 50A2            01C14  1837+         ST    C1,COSADDR SAVE ADDR OF COS
001B82 58F0 50A2            01C14  1838+         L     C5,COSADDR GET ADDR OF COS
001B86 D213 50A6 F12C 01C18 0012C  1839+         MVC   ADPRIM(LX20),APRIME
                                   1840+*
                                   1841+*     INITIALIZE TAMER
001B8C 58F0 50B6            01C28  1842+         L     C5,ADTAMN CALL TAMEIN
001B90 05EF                        1843+         BALR  C4,C5 BRANCH TO TAMEIN
                                   1844+*     PRIME THE COPY...REPLACING TABLE (TIB 29)
001B92 4110 50BA            01C2C  1845+         LA    C1,PARREP REPLACING TABLE
001B96 58F0 50A6            01C18  1846+         L     C5,ADPRIM ADDR OF PRIME
001B9A 05EF                        1847+         BALR  C4,C5 PRIME TABLE
001B9C 58F0 50A2            01C14  1848+         L     C5,COSADDR GET ADDR OF COS
001BA0 47F0 50C2            01C34  1849+         B     STARTPP BEGIN PROCESSING
001BA4                             1850+IKFPATCI DS    0F PATCH AREA
001BA4 47F0 5032            01BA4  1851+         B     IKFPATCI EASES CODING OF BRANCH ADDRESS
001BA8 0000000000000000            1852+         DC    24F'0'
                                   1853+***********************************************************************
                                   1854+*
                                   1855+*        ADCONS
                                   1856+*
                                   1857+***********************************************************************
001C08 00002B72                    1858+BASE2    DC    A(PREPROC+4096) ADDR FOR BASE REG 2
001C0C 00003B72                    1859+BASE3    DC    A(PREPROC+8192) ADDR FOR BASE REG 3
001C10 00004B72                    1860+BASE4    DC    A(PREPROC+12288) ADDR FOR BASE REG 4
001C14 00000000                    1861+COSADDR  DC    A(0) ADDRESS OF COS
                                   1862+*
                                   1863+*        TAMER EQUATES
                                   1864+*
00012C                             1865+PRIME    EQU   APRIME-COS PRIME
000130                             1866+INSERTA  EQU   AINSRT-COS INSERT
000134                             1867+STATIC   EQU   ADSTAT-COS STATIC
000138                             1868+TABREL   EQU   RELADD-COS RELEASE
00013C                             1869+TAMEIN   EQU   TAMNAD-COS TAMEIN
                                   1870+*
001C18 0000012C                    1871+ADPRIM   DC    A(PRIME) PRIME
001C1C 00000130                    1872+ADSERT   DC    A(INSERTA) INSERT
001C20 00000134                    1873+ADSTAC   DC    A(STATIC) STATIC
001C24 00000138                    1874+ADTREL   DC    A(TABREL) RELEASE
001C28 0000013C                    1875+ADTAMN   DC    A(TAMEIN) TAMEIN
                                   1876+*
PH01   IKFCBL01                                                                                                PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001C2C                             1877+         DS    0F
0000F4                             1878+REPTAB   EQU   TIB29-COS
001C2C                             1879+CRPCON   EQU   *
001C2C 00                          1880+PARREP   DC    X'00' PARAM FOR REPLACING TABLE
001C2D 0000F4                      1881+         DC    AL3(REPTAB) TIB ADDR
001C30 00640000                    1882+         DC    X'00640000' 100 BYTES
                                   1883+*
                                   1884+*
                                   1885+*
PH01   IKFCBL01                                                                                                PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001C34 4580 67D8            0334A  1887+STARTPP  BAL   L1,GETCARD GET THE FIRST CARD
                                   1888+*
                                   1889+*     REGISTER S1 CONTAINS THE ADDRESS OF COLUMN 7 (FROM GETCARD)
                                   1890+*
001C38 58B0 7086            03BF8  1891+         L     W2,AIOA1I ADDRESS OF COL1 IN BUFFER
001C3C 41A0 7230            03DA2  1892+         LA    W1,LIBWORK LIBWORK IS INITIALLY BLANKED OUT
001C40 1B11                        1893+         SR    C1,C1 CLEAR REG1 FOR TRT
001C42 DD47 B000 6EB8 00000 03A2A  1894+         TRT   DX0(LX72,W2),TRTTAB SCAN BUFFER FOR NON BLANK
001C48 4780 50C2            01C34  1895+         BC    ALLOFF,STARTPP BLANK CARD
001C4C D504 1000 768A 00000 041FC  1896+         CLC   DX0(LX5,C1),BASISK IS IT BASIS
001C52 4770 514A            01CBC  1897+         BNE   NOTBASIS CANNOT POSSIBLY BE BASIS
001C56 D705 7280 7280 03DF2 03DF2  1898+START0   XC    SEQSAVE(LX6),SEQSAVE BASIS ON 1ST SCAN- ZERO SEQSAVE
001C5C D204 A007 1000 00007 00000  1899+         MVC   DX7(LX5,W1),DX0(C1) MOVE BASIS TO COL 8
001C62 9680 747B      03FED        1900+START1   OI    ABASISW,INBASIS INDICATE READ FROM LIBRARY
001C66 DD40 1006 6EB8 00006 03A2A  1901+         TRT   DX6(LX65,C1),TRTTAB SCAN BUFFER FOR LIBNAME
001C6C D207 A00D 1000 0000D 00000  1902+         MVC   DX13(LX8,W1),DX0(C1) MOVE LIBNAME TO COL 14
001C72 50A0 7086            03BF8  1903+         ST    W1,AIOA1I SAVE ADDRESS FOR WRITE ROUTINE
001C76 18B1                        1904+         LR    W2,C1 SAVE LIBNAME ADDRESS
001C78 1BCC                        1905+         SR    W3,W3 CLEAR
001C7A 41CC 0001            00001  1906+START2   LA    W3,DX1(W3) KEEP COUNT OF CHARACTERS IN LIBNAME
001C7E 4111 0001            00001  1907+         LA    C1,1(C1) INCREMENT ADDRESS
001C82 9540 1000      00000        1908+         CLI   DX0(C1),BLANK CHECK FOR END OF LIBNAME
001C86 4770 5108            01C7A  1909+         BNE   START2 NOT END, CONTINUE COUNTING
001C8A 42C0 70FB            03C6D  1910+         STC   W3,SIZE ELSE STORE SIZE
001C8E 06C0                        1911+         BCTR  W3,0 DECREMENT TO
001C90 44C0 518C            01CFE  1912+         EX    W3,MVBASIS MOVE NAME TO WORD
001C94 4580 529C            01E0E  1913+         BAL   L1,EXTNAME CHECK EXTERNAL NAME
001C98 D207 70FC 74AE 03C6E 04020  1914+         MVC   WORD(LX8),BLANKS INVALID EXTERNAL NAME RETURN
001C9E 48C0 70FA            03C6C  1915+         LH    W3,SIZEWORD GET SIZE OF LIBNAME
001CA2 06C0                        1916+         BCTR  W3,0 DECREMENT TO
001CA4 44C0 5192            01D04  1917+         EX    W3,MVBASIS1 MOVE LIBNAME TO BASIS CALL
001CA8 9620 F1D3      001D3        1918+         OI    PH1BYTE,BASIS SET BASIS BIT IN COMMON
001CAC 9640 747B      03FED        1919+         OI    ABASISW,IDELCARD INDICATE INSERT/DELETE CARDS
001CB0 4580 6C10            03782  1920+         BAL   L1,IDREAD READ SYSIN FOR INSERT/DELETE
001CB4 9640 747E      03FF0        1921+         OI    ASWITCH,WRITESUP INDICATE NO WRITE FOR BASIS CARD
001CB8 4580 67D8            0334A  1922+         BAL   L1,GETCARD READ FIRST RECORD FROM BASIS
001CBC 41B0 6104            02C76  1923+NOTBASIS LA    W2,ID10 LOAD STARTING STRING ADDR
                                   1924+*
                                   1925+*   REGISTER S1 CONTAINS THE ADDRESS OF COLUMN 7 FOR GETWORD
                                   1926+*   AS A RESULT OF GOING THROUGH GETCARD ROUTINE
                                   1927+*
001CC0 50B0 70E2            03C54  1928+         ST    W2,NXTSTRNG SAVE IT IN NEXT STRING ADDR
001CC4 4580 6306            02E78  1929+DRIVER   BAL   L1,GETWORD GET A WORD
001CC8 9120 747E      03FF0        1930+DRIVER1  TM    ASWITCH,KEYWORD IS IT A KEYWORD
001CCC 4780 5152            01CC4  1931+         BC    ALLOFF,DRIVER NO, THUS CANT CONTAIN A COPY STMT
001CD0 433B 0000            00000  1932+NEXT     IC    C3,0(W2) INSERT FIRST BYTE OF STRING      DA1
001CD4 8930 001C            0001C  1933+         SLL   C3,28 GET RID OF 1ST HALF              DA1
001CD8 8830 001B            0001B  1934+         SRL   C3,27 MULTIPLY ORIGINAL CONNECTOR BY 2
001CDC 4823 6094            02C06  1935+         LH    C2,CONTAB(C3) PIXK UP ADDR OF FALSE TEST RETURN
001CE0 4020 526E            01DE0  1936+         STH   C2,FALSE+2 AND SAVE IT IF TEST PROVES FALSE
001CE4 1B33                        1937+         SR    C3,C3 CLEAR AGAIN FOR TEST ADDR        DA1
001CE6 433B 0000            00000  1938+         IC    C3,0(W2) INSERT FIRST BYTE OF STRING      DA1
001CEA 8A30 0004            00004  1939+         SRA   C3,4 GET RID OF 2ND HALF              DA1
001CEE 8B30 0001            00001  1940+         SLA   C3,1 MULTIPLY BY TWO
001CF2 4823 51F4            01D66  1941+         LH    C2,TESTTAB(C3) PICK UP ADDR OF TEST ROUTINE
PH01   IKFCBL01                                                                                                PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001CF6 4020 519A            01D0C  1942+         STH   C2,TEST+2 MOVE TO BR INST
001CFA 4400 5198            01D0A  1943+         EX    C0,TEST BRANCH TO CORRECT TEST ROUTINE

                                   1945+*   THE FOLLOWING INSTRUCTIONS ARE TO BE EXECUTED
001CFE D200 70FC B000 03C6E 00000  1946+MVBASIS  MVC   WORD(LX0),DX0(W2) MOVE LIBNAME TO WORD
001D04 D200 6B5B 70FC 036CD 03C6E  1947+MVBASIS1 MVC   BASNAM(LX0),WORD MOVE LIBNAME TO BASIS CALL
001D0A 47F0 51F4            01D66  1948+TEST     B     TESTTAB BR ADDR IS REPLACED WITH S-CON
                                   1949+*

                                   1951+*        ROUTINE TO CALCULATE ACTION AND UPDATE FOR NEXT STRING     DA1
                                   1952+*                                                                   DA1
001D0E 1B33                        1953+CALCACT  SR    C3,C3 CLEAR FOR CALCULATING ACTION RT  DA1
001D10 50B0 70E6            03C58  1954+         ST    W2,NOWSTRNG SAVE ENTRY PTR-POSSIBLY MORE
                                   1955+*                                  THAN ONE CLAUSE OF THIS TYPE
001D14 433B 0001            00001  1956+         IC    C3,1(W2) INSERT ACTION BYTE FROM STRING   DA1
001D18 4133 5886            023F8  1957+         LA    C3,ACTTAB(C3) ADD STARTING ADDR OF ACTION TBL  DA1
001D1C D201 51F2 3000 01D64 00000  1958+         MVC   ACTION+2(2),0(C3) STORE S-CON OF ACTION ROUTINE IN DA1
                                   1959+*                                  INSTRUCTION TO BE EX'ED          DA1
001D22 1B33                        1960+CALCACT0 SR    C3,C3 CLEAR
001D24 910E B000      00000        1961+         TM    DX0(W2),K14 TEST FOR ERROR BYTE PRESENT
001D28 4780 51BE            01D30  1962+         BC    ALLOFF,CALCACT1 IF ZERO OR ONE, NOT AN ERROR BYTE
001D2C 4130 0001            00001  1963+         LA    C3,1 ADD 1 FOR ERROR BYTE             DA1
001D30 9540 B000      00000        1964+CALCACT1 CLI   0(W2),K80 TEST FOR RESERVED WORD TYPE STRING
001D34 47B0 51CA            01D3C  1965+         BNL   CALCACT2 NOT A RESERVED WORD STRING       DA1
001D38 41BB 0002            00002  1966+         LA    W2,2(W2) RSVD WORD TYPE, THUS 2 BYTES EXTRA
001D3C 91FF B002      00002        1967+CALCACT2 TM    2(W2),FF IS RETURN TO NEXT STRING         DA1
001D40 4750 51DC            01D4E  1968+         BC    ALLON+MIXED,CALCACT4 NO, CALCULATE                   DA1
001D44 41BB 0003            00003  1969+         LA    W2,3(W2) UPDATE TO NEXT STRING            DA1
001D48 1AB3                        1970+         AR    W2,C3 ADD ERRBYTE IF THERE             DA1
001D4A 4400 51F0            01D62  1971+CALCACT3 EX    0,ACTION DA1

001D4E 1B22                        1973+CALCACT4 SR    C2,C2 CLEAR                            DA1
001D50 413B 0003            00003  1974+         LA    C3,DX3(W2) PTR MAIN STRING- ASVPTR RTN
001D54 432B 0002            00002  1975+         IC    C2,2(W2) GET INCREMENT TO CURRENT STRING  DA1
001D58 41B0 6104            02C76  1976+         LA    W2,ID10 GET CURRENT STRING
001D5C 1AB2                        1977+         AR    W2,C2 ADD INCREMENT                    DA1
001D5E 47F0 51D8            01D4A  1978+         B     CALCACT3 CALCULATE REST                   DA1
                                   1979+*        THIS INSTRUCTION IS EX'ED                                  DA1
001D62 47F0 5886            023F8  1980+ACTION   B     ACTTAB BR ADDR IS REPLACED WITH S-CON   DA1
                                   1981+*                                  OF ACTION ROUTINE                DA1
PH01   IKFCBL01                                                                                                PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1983+**********************************************************************
                                   1984+****                          TEST TABLE                            DA1
                                   1985+*                                                                   DA1
                                   1986+*                   POINTERS TO ROUTINES TO TEST CURRENT WORD       DA1
                                   1987+*     STRING HAS 1ST HALFBYTE OF                                    DA1
001D66                             1988+TESTTAB  EQU   * STARTING ADDRESS                 DA1
001D66 5206                        1989+         DC    S(TMARGINA) 00   TEST MARGIN A
001D68 5270                        1990+         DC    S(TNMARGA) 10   TEST NON-MARGIN A
001D6A 520A                        1991+         DC    S(EITHERAB) 20   TEST EITHER MARGIN A OR B
001D6C 53D2                        1992+         DC    S(CHGPTR) 30   NO TEST, CHANGE STARTING POINTER
001D6E 52A4                        1993+         DC    S(TEXNAME) 40   TEST VALID EXTERNAL NAME
001D70 534C                        1994+         DC    S(DNM) 50   TEST VALID DATA-NAME
001D72 5430                        1995+         DC    S(PROCNM) 60   PROCEDURE NAME TEST
001D74 543C                        1996+         DC    S(REPWRD1) 70   WORD1 COPY REPLACING TEST
001D76 5458                        1997+         DC    S(REPWRD2) 80   WORD2 COPY REPLACING TEST
                                   1998+***********************************************************************
                                   1999+*                                                                   DA1
                                   2000+*                             TEST  ROUTINES                        DA1
                                   2001+*                                                                   DA1
                                   2002+***********************************************************************
001D78 9602 747F      03FF1        2003+TMARGINA OI    MISCSW,TSTMARGA TURN ON MUST BE MARGIN A SW
001D7C 41C0 74C5            04037  2004+EITHERAB LA    W3,COBOLWDS SET UP FOR COMPARE TO RESRVD WD  DA1
001D80 1B33                        2005+         SR    C3,C3 CLEAR
001D82 433B 0002            00002  2006+         IC    C3,2(W2) GET LENGTH OF RESERVED WORD
001D86 8A30 0004            00004  2007+         SRA   C3,4 SHIFT FOR COMPARE
001D8A D201 70F8 B002 03C6A 00002  2008+         MVC   FULLWORD+2(2),2(W2) MOVE DISP IN RESERVED WORD TABL  DA1
001D90 940F 70F8      03C6A        2009+         NI    FULLWORD+2,K15 TURN OFF LENGTH BITS
001D94 4AC0 70F8            03C6A  2010+         AH    W3,FULLWORD+2 TO BOUNDRY AND ADD TO TBL ADDR   DA1
001D98 4820 70FA            03C6C  2011+         LH    C2,SIZEWORD SIZE OF WORD
001D9C 1932                        2012+         CR    C3,C2 COMPARE FOR SAME LENGTH
001D9E 4770 524E            01DC0  2013+         BNE   UPDATE
001DA2 0620                        2014+         BCTR  C2,0 DECR FOR EX INSTRUCTION
001DA4 4420 5266            01DD8  2015+         EX    C2,RWCOMP COMPARE TO RESERVED WORD
001DA8 4770 524E            01DC0  2016+         BNE   UPDATE NOT A MATCH, UPDATE STRING
001DAC 9102 747F      03FF1        2017+         TM    MISCSW,TSTMARGA WAS IT SUPPOSED TO BE MARGIN A
001DB0 4710 5278            01DEA  2018+         BC    ALLON,CHKMARGA YES, CHECK THAT IT WAS
001DB4 9104 747F      03FF1        2019+         TM    MISCSW,TSTMARGB WAS IT SUPPOSED TO BE MARGB
001DB8 4710 5284            01DF6  2020+         BC    ALLON,CHKMARGB YES, CHECK THAT IT WAS
001DBC 47F0 519C            01D0E  2021+         B     CALCACT DIDN'T MATTER, WORD IS OK

001DC0 94F9 747F      03FF1        2023+UPDATE   NI    MISCSW,FF-TSTMARGA-TSTMARGB TURN OFF REQ SWITCHES
001DC4 910F B000      00000        2024+         TM    0(W2),K15
001DC8 4780 525E            01DD0  2025+         BC    ALLOFF,UPDATEB OPTIONAL
001DCC 4400 526C            01DDE  2026+UPDATEA  EX    C0,FALSE GO TO DIAGNOSTIC ROUTINE

001DD0 41BB 0005            00005  2028+UPDATEB  LA    W2,5(W2) UPDATE TO NEXT ELEMENT IN STRING
001DD4 47F0 515E            01CD0  2029+         B     NEXT GO TO STRINGS
                                   2030+*                                                                   DA1
001DD8 D500 70FC C000 03C6E 00000  2031+RWCOMP   CLC   WORD(0),0(W3) THIS INST IS EX'ED               DA1
001DDE 47F0 6094            02C06  2032+FALSE    B     CONTAB THIS INSTRUCTION IS EX'ED
                                   2033+*                                                                   DA1
001DE2 9604 747F      03FF1        2034+TNMARGA  OI    MISCSW,TSTMARGB TURN ON MUST BE MARGIN B SW
001DE6 47F0 520A            01D7C  2035+         B     EITHERAB CHECK WORD

001DEA 9102 747E      03FF0        2037+CHKMARGA TM    ASWITCH,MARGA IS IT IN MARGIN A
PH01   IKFCBL01                                                                                                PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001DEE 4710 519C            01D0E  2038+         BC    ALLON,CALCACT YES, CONTINUE
001DF2 47F0 5152            01CC4  2039+         B     DRIVER GET A KEYWORD

001DF6 9102 747E      03FF0        2041+CHKMARGB TM    ASWITCH,MARGA IS IT IN MARGIN A
001DFA 4780 5292            01E04  2042+         BC    ALLOFF,CKMARGB1 NO, WORD IS OK
001DFE 4580 61F6            02D68  2043+MSG1087  BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
001E02 01                          2044+         DC    X'01' W-LEVEL, 1 INSERT IN WORD
001E03 57                          2045+         DC    X'57' MESSAGE NUMBER 1087
001E04 9101 747D      03FEF        2046+CKMARGB1 TM    REPWD2SW,WD2MRGB DO WE RETURN TO WORD2 TEST
001E08 4780 519C            01D0E  2047+         BC    ALLOFF,CALCACT NO, PERFORM ACTION
001E0C 07F2                        2048+         BR    C2 RETURN TO WORD2 TEST


001E0E 9680 747F      03FF1        2051+EXTNAME  OI    MISCSW,TSTNAME INDICATE TEST FOR BASIS LIBNAME
001E12 5080 70DE            03C50  2052+         ST    L1,ENAMSVL1 SAVE LINK REGISTER
001E16 D500 70FC 74C4 03C6E 04036  2053+TEXNAME  CLC   WORD(LX1),LITSIGN CHECK FOR QUOTES
001E1C 4770 52CC            01E3E  2054+         BC    NE,TEXNAME0 AROUND EXTERNAL NAME
001E20 4830 70FA            03C6C  2055+         LH    C3,SIZEWORD IF THERE ARE NO QUOTES
001E24 41E3 70FB            03C6D  2056+         LA    C4,WORD-DX1(C3) CONT. WITH TEST
001E28 D500 E000 74C4 00000 04036  2057+         CLC   DX0(LX1,C4),LITSIGN OTHERWISE-
001E2E 4770 52CC            01E3E  2058+         BC    NE,TEXNAME0 REMOVE QUOTES BY
001E32 4B30 7486            03FF8  2059+         SH    C3,TWO DECREMENTING CNT FOR
001E36 4230 70FB            03C6D  2060+         STC   C3,SIZE WORD AND SHIFTING THE
001E3A 4430 5318            01E8A  2061+         EX    C3,MOVELIT FIRST QUOTE OUT OF WORD
001E3E 4520 53FA            01F6C  2062+TEXNAME0 BAL   C2,PNM0 DO PGM NAME TEST
001E42 47F0 5330            01EA2  2063+         B     MSG1015 INVALID EXTERNAL NAME RETURN
001E46 9508 70FB      03C6D        2064+         CLI   SIZE,K8 IS NAME GREATER THAN 8 CHARACTERS
001E4A 47D0 52E0            01E52  2065+         BNH   TEXNAME1 NO
001E4E 9208 70FB      03C6D        2066+         MVI   SIZE,K8 YES, TRUNCATE TO 8
001E52 95F0 70FC      03C6E        2067+TEXNAME1 CLI   WORD,EXTZERO IS FIRST CHARACTER NUMERIC
001E56 4130 0007            00007  2068+         LA    C3,K7 INITIALIZE REGISTER
001E5A 4780 531E            01E90  2069+         BE    TEXNAME4 YES, ZERO
001E5E 4720 5326            01E98  2070+         BH    TEXNAME5 YES, HIGHER
001E62 41E3 70FC            03C6E  2071+TEXNAME2 LA    C4,WORD(C3) GET LAST CHARACTER
001E66 9560 E000      00000        2072+         CLI   DX0(C4),HYPHEN IS CHARACTER A HYPHEN
001E6A 4770 5300            01E72  2073+         BNE   TEXNAME3 NO, VALID
001E6E 92F0 E000      00000        2074+         MVI   DX0(C4),EXTZERO REPLACE WITH ZERO
001E72 4630 52F0            01E62  2075+TEXNAME3 BCT   C3,TEXNAME2 NO, CONTINUE SCAN
001E76 9180 747F      03FF1        2076+         TM    MISCSW,TSTNAME ARE WE CHECKING BASIS LIBNAME
001E7A 4780 5284            01DF6  2077+         BC    ALLOFF,CHKMARGB NO CHECK FOR MARGIN B
001E7E 947F 747F      03FF1        2078+         NI    MISCSW,FF-TSTNAME TURN OFF BASIS LIBNAME SWITCH
001E82 5880 70DE            03C50  2079+         L     L1,ENAMSVL1 RESTORE LINK REGISTER
001E86 47F8 0006            00006  2080+         B     DX6(L1) VALID EXTERNAL NAME ROUTINE

001E8A D200 70FC 70FD 03C6E 03C6F  2082+MOVELIT  MVC   WORD(LX0),WORD+DX1 REMOVE QUOTES
001E90 92D1 70FC      03C6E        2083+TEXNAME4 MVI   WORD,J MOVE IN THE LETTER J
001E94 47F0 52F0            01E62  2084+         B     TEXNAME2 CONTINUE SCAN

001E98 D300 70FC 00C1 03C6E 000C1  2086+TEXNAME5 MVZ   WORD(LX1),A MOVE PLUS ZONE TO NUMERIC
001E9E 47F0 52F0            01E62  2087+         B     TEXNAME2 CONTINUE SCAN

001EA2 4580 61F6            02D68  2089+MSG1015  BAL   L1,DIAGNOSE INVALID EXTERNAL NAME
001EA6 21                          2090+         DC    X'21' E-LEVEL  1 INSERT
001EA7 0F                          2091+         DC    X'0F' MESSAGE 15
001EA8 9180 747F      03FF1        2092+         TM    MISCSW,TSTNAME ARE WE CHECKING BASIS LIBNAME
PH01   IKFCBL01                                                                                                PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001EAC 4780 524E            01DC0  2093+         BC    ALLOFF,UPDATE NO GO TO DIAGNOSTIC ROUTINE
001EB0 947F 747F      03FF1        2094+         NI    MISCSW,FF-TSTNAME TURN OFF BASIS LIBNAME SWITCH
001EB4 9208 70FB      03C6D        2095+         MVI   SIZE,K8 LENGTH FOR INVALID BASIS NAME MV
001EB8 5880 70DE            03C50  2096+         L     L1,ENAMSVL1 RESTORE LINK REGISTER
001EBC 07F8                        2097+         BR    L1 INVALID EXTERNAL NAME RETURN

001EBE 4520 5370            01EE2  2099+DNM      BAL   C2,DNM0 DO DATA-NAME TEST
001EC2 47F0 5360            01ED2  2100+         B     UPDATE1 INVALID - RECOVER IN MAIN STRING
001EC6 9101 747F      03FF1        2101+         TM    MISCSW,FNDALPHA WAS ALPHABETIC FOUND
001ECA 4780 519C            01D0E  2102+         BC    ALLOFF,CALCACT NO-ASSUME VALID,PHASE1 WILL DIAGNOSE
001ECE 47F0 519C            01D0E  2103+         B     CALCACT DATANAME IS OK

001ED2 910F B000      00000        2105+UPDATE1  TM    0(W2),K15 WAS IT AN OPTIONAL TEST
001ED6 4750 525A            01DCC  2106+         BC    ALLON+MIXED,UPDATEA NO, ERROR
001EDA 41BB 0003            00003  2107+         LA    W2,3(W2) YES, UPDATE TO NEXT STRING
001EDE 47F0 515E            01CD0  2108+         B     NEXT GO TO STRINGS

001EE2                             2110+DNM0     EQU   * VALID DATA-NAME TEST
001EE2 9108 747E      03FF0        2111+         TM    ASWITCH,RESWORD IS IT A RESERVED WORD
001EE6 4780 538A            01EFC  2112+         BC    ALLOFF,DNM1 CHECK VALID FORMAT
001EEA 9190 747C      03FEE        2113+         TM    COPYSW,CPYSTMT+INCPYLIB PROCESSING COPY
001EEE 4742 0000            00000  2114+         BC    MIXED,DX0(C2) YES - DNM INVALID
001EF2 D505 70FC 7801 03C6E 04373  2115+         CLC   WORD(L'FILLER),FILLER IS IT FILLER
001EF8 4770 5360            01ED2  2116+         BNE   UPDATE1 INVALID                          DA1
001EFC 4830 70FA            03C6C  2117+DNM1     LH    C3,SIZEWORD SIZE OF WORD
001F00 41E3 70FB            03C6D  2118+         LA    C4,WORD-1(C3) GET ADDR OF CHAR TO BE TESTED
001F04 94FE 747F      03FF1        2119+         NI    MISCSW,FF-FNDALPHA TURN OFF FOUND ALPHA SW
001F08 9560 70FC      03C6E        2120+         CLI   WORD,HYPHEN DOES IT START WITH HYPHEN
001F0C 4782 0000            00000  2121+         BE    DX0(C2) INVALID EXTNAME RETURN
001F10 9560 E000      00000        2122+         CLI   0(C4),HYPHEN DOES IT END WITH HYPHEN
001F14 4782 0000            00000  2123+         BE    DX0(C2) INVALID EXTNAME RETURN
001F18 41E3 70FB            03C6D  2124+DNM2     LA    C4,WORD-1(C3) GET ADDR OF CURRENT CHARACTER
001F1C 95C1 E000      00000        2125+         CLI   0(C4),A IS IT HIGHER THAN A
001F20 47B0 53C2            01F34  2126+         BNL   DNM4
001F24 9560 E000      00000        2127+         CLI   0(C4),HYPHEN IS IT A HYPHEN
001F28 4772 0000            00000  2128+         BNE   DX0(C2) INVALID EXTNAME RETURN
001F2C 4630 53A6            01F18  2129+DNM3     BCT   C3,DNM2 CHECK NEXT CHARACTER
001F30 47F2 0004            00004  2130+         B     DX4(C2) VALID RETURN

001F34 95F0 E000      00000        2132+DNM4     CLI   0(C4),EXTZERO CHECK NUMERIC
001F38 47B0 53BA            01F2C  2133+         BNL   DNM3 YES
001F3C 9601 747F      03FF1        2134+         OI    MISCSW,FNDALPHA INDICATE ALPHABETIC FOUND
001F40 47F0 53BA            01F2C  2135+         B     DNM3

001F44 9101 B000      00000        2137+CHGPTR   TM    DX0(W2),K1 SHOULD WE SKIP TO NEXT KEYWORD
001F48 4710 53EA            01F5C  2138+         BC    ALLON,CHGPTR1 YES - THIS KEY WORD IS AN ERROR
001F4C 58B0 70E2            03C54  2139+CHGPTR2  L     W2,NXTSTRNG GET NEXT MAIN STRING POINTER
001F50 9104 7480      03FF2        2140+         TM    MISCSW2,PROCSW PROCEDURE DIVISION PROCESSING
001F54 4710 515E            01CD0  2141+         BC    ALLON,NEXT YES - PROCESS FROM STRING ID80
001F58 47F0 5156            01CC8  2142+         B     DRIVER1 CHECK IF THIS IS A KEYWORD
001F5C 58B0 70E2            03C54  2143+CHGPTR1  L     W2,NXTSTRNG GET NEXT MAIN STRING POINTER
001F60 47F0 5152            01CC4  2144+         B     DRIVER GET ANOTHER KEYWORD

001F64 9104 7480      03FF2        2146+PNM      TM    MISCSW2,PROCSW IN PROCEDURE DIVISION
001F68 4780 5370            01EE2  2147+         BC    ALLOFF,DNM0 NO - CHECK VALID DNM
PH01   IKFCBL01                                                                                                PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001F6C 9108 747E      03FF0        2148+PNM0     TM    ASWITCH,RESWORD IS IT A RESERVED WORD
001F70 4780 538A            01EFC  2149+         BC    ALLOFF,DNM1 CHECK VALID FORMAT
001F74 D501 70FC 750A 03C6E 0407C  2150+         CLC   WORD(L'LEVEL01),LEVEL01 IS IT 01
001F7A 4782 0004            00004  2151+         BE    DX4(C2) PERMISSIBLE PROCEDURE NAME
001F7E D500 70FC 7E5C 03C6E 049CE  2152+         CLC   WORD(L'LEVEL1),LEVEL1 IS IT 1
001F84 4782 0004            00004  2153+         BE    DX4(C2) PERMISSIBLE PROCEDURE NAME
001F88 D501 70FC 750D 03C6E 0407F  2154+         CLC   WORD(L'LEV77),LEV77 IS IT 77
001F8E 4782 0004            00004  2155+         BE    DX4(C2) PERMISSIBLE PROCEDURE NAME
001F92 4772 0000            00000  2156+         BNE   DX0(C2) INVALID PNM OR DNM
001F96 4580 6306            02E78  2157+PROCNM0  BAL   L1,GETWORD GET A WORD
001F9A 9102 747E      03FF0        2158+         TM    ASWITCH,MARGA IS IT IN MARGIN A
001F9E 4780 5424            01F96  2159+         BC    ALLOFF,PROCNM0 NO- GET ANOTHER WORD
001FA2 4520 53FA            01F6C  2160+PROCNM   BAL   C2,PNM0 CHECK FOR PROCEDURE NAME
001FA6 47F0 5424            01F96  2161+         B     PROCNM0 INVALID - GET ANOTHER WORD
001FAA 47F0 519C            01D0E  2162+         B     CALCACT PERFORM ACTION

001FAE                             2164+REPWRD1  EQU   * WORD1 COPY REPLACING OPTION TEST
001FAE 4520 53F2            01F64  2165+         BAL   C2,PNM DO DNM/PNM TEST
001FB2 47F0 524E            01DC0  2166+         B     UPDATE INVALID - RECOVER IN MAIN STRING
001FB6 9104 7480      03FF2        2167+         TM    MISCSW2,PROCSW IS COPY STMT IN PROCEDURE DIV
001FBA 4710 5284            01DF6  2168+         BC    ALLON,CHKMARGB YES(MAY BE NUMERIC PROC NAME)
001FBE 9101 747F      03FF1        2169+         TM    MISCSW,FNDALPHA WAS ALPHABETIC FOUND
001FC2 4780 524E            01DC0  2170+         BC    ALLOFF,UPDATE NO - GO TO DIAGNOSTIC RTN
001FC6 47F0 5284            01DF6  2171+         B     CHKMARGB OTHERWISE - CHECK MARGIN B,CONTINUE

001FCA                             2173+REPWRD2  EQU   * WORD2 COPY REPLACING OPTION TEST
001FCA D500 70FC 74C4 03C6E 04036  2174+         CLC   WORD(LX1),LITSIGN IS WORD2 A ALPHANUMERIC LITERAL
001FD0 4780 5284            01DF6  2175+         BC    EQ,CHKMARGB YES - CHECK MARGIN-B PERFORM ACTION
                                   2176+*   NOT AN ALPHANUMERIC LITERAL - NOW CHECK FOR A NUMERIC LITERAL
                                   2177+*        A SYNTAX CHECK FOR FIXED-POINT AND FLOATING POINT LITERAL
                                   2178+*        IS MADE HERE. NO CHECK IS MADE FOR THE MAXIMUM SIZE
                                   2179+*        REPRESENTED BY A FLOATING-POINT LITERAL(.72E+76) - THIS
                                   2180+*        CHECK IS MADE BY PHASE 1. PREPROCESSOR ASSUMES OK.
                                   2181+*        THE SAME IS TRUE FOR A FIXED-POINT NUMERIC LITERAL.
001FD4 9400 747D      03FEF        2182+         NI    REPWD2SW,K0 INITIALIZE WORD 2 SWITCH
001FD8 4830 70FA            03C6C  2183+         LH    C3,SIZEWORD GET WORD SIZE AND
001FDC 4133 70FC            03C6E  2184+         LA    C3,WORD(C3) MOVE A BLANK AT
001FE0 9240 3000      00000        2185+         MVI   DX0(C3),BLANK THE END OF WORD
001FE4 1B33                        2186+         SR    C3,C3 INITIALIZE COUNT REGISTER
001FE6 41E0 70FC            03C6E  2187+         LA    C4,WORD GET ADDRESS OF WORD 2
001FEA 4520 569E            02210  2188+         BAL   C2,SIGNSCAN CHECK FOR + OR - SIGN
001FEE 9680 747D      03FEF        2189+         OI    REPWD2SW,SIGNSW INDICATE SIGN FOUND
001FF2 4520 56B8            0222A  2190+REPWD2A  BAL   C2,DIGITSCN CHECK FOR DIGITS
001FF6 D500 E000 74C3 00000 04035  2191+         CLC   DX0(LX1,C4),DECPNT IS THIS CHARACTER A DECIMAL-PT
001FFC 4770 54A2            02014  2192+         BNE   REPWD2B NO - SAVE NUMBER COUNT
002000 9140 747D      03FEF        2193+         TM    REPWD2SW,POINTSW HAS DECIMAL ALREADY BEEN FOUND
002004 4710 62E2            02E54  2194+         BC    ALLON,MSG1017 YES - INVALID WORD 2
002008 9640 747D      03FEF        2195+         OI    REPWD2SW,POINTSW INDICATE DECIMAL FOUND
00200C 41EE 0001            00001  2196+         LA    C4,DX1(C4) INCREMENT WORD POINTER
002010 47F0 5480            01FF2  2197+         B     REPWD2A CONTINUE SCANNING DIGITS
002014 4030 7176            03CE8  2198+REPWD2B  STH   C3,MANTISSA SAVE NUMBER COUNT
002018 95C5 E000      00000        2199+         CLI   DX0(C4),E IS CHARACTER AN E
00201C 4780 5574            020E6  2200+         BE    REPWD2F YES - CHECK FOR FLOPNT NUMBER
002020 9540 E000      00000        2201+         CLI   DX0(C4),BLANK IS CHARACTER A BLANK
002024 4780 54C2            02034  2202+         BE    REPWD2C YES - CHECK VALID NUMERIC LIT
PH01   IKFCBL01                                                                                                PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002028 91C0 747D      03FEF        2203+         TM    REPWD2SW,SIGNSW+POINTSW ANY WORD 2 SWITCHES SET
00202C 4750 62E2            02E54  2204+         BC    ALLON+MIXED,MSG1017 YES - INVALID WORD 2
002030 47F0 5710            02282  2205+         B     WORD2ID OTHERWISE CHECK FOR VALID DNM
                                   2206+*
                                   2207+*      CHECK IF WORD2 IS A VALID FIXED-POINT NUMERIC LITERAL
                                   2208+*
002034 4930 748E            04000  2209+REPWD2C  CH    C3,H18 IS NUMBER GREATER THAN 18 DIGITS
002038 4720 54E4            02056  2210+         BC    GT,REPWD2D YES - CHECK IF PROCEDURE NAME
00203C 1233                        2211+         LTR   C3,C3 ARE THERE ANY DIGITS AT ALL
00203E 4780 62E2            02E54  2212+         BC    TZERO,MSG1017 NO - INVALID WORD 2
002042 91C0 747D      03FEF        2213+         TM    REPWD2SW,SIGNSW+POINTSW ANY WORD 2 SWITCHES SET
002046 4750 5284            01DF6  2214+         BC    ALLON+MIXED,CHKMARGB YES - CANNOT BE QUAL PROC NAME
00204A 9104 7480      03FF2        2215+         TM    MISCSW2,PROCSW ARE WE PROCESSING IN PROC DIV
00204E 4780 5284            01DF6  2216+         BC    ALLOFF,CHKMARGB NO - PERFORM ACTION
002052 47F0 551E            02090  2217+         B     REPWD2E CHECK FOR NUMERIC QUAL PROC NAME
                                   2218+*
002056 91C0 747D      03FEF        2219+REPWD2D  TM    REPWD2SW,SIGNSW+POINTSW ANY WORD 2 SWITCHES SET
00205A 4750 54F4            02066  2220+         BC    ALLON+MIXED,MSG1082 YES - LITERAL TOO LONG
00205E 9104 7480      03FF2        2221+         TM    MISCSW2,PROCSW ARE WE PROCESSING IN PROC DIV
002062 4710 551E            02090  2222+         BC    ALLON,REPWD2E CHECK FOR NUMERIC QUAL PROC NAME
002066 06E0                        2223+MSG1082  BCTR  C4,0 POINT TO LAST CHARACTER
002068 4B30 748E            04000  2224+         SH    C3,H18 SUBTRACT AMOUNT OVER 18 DIGITS
00206C 1BE3                        2225+         SR    C4,C3 AND ADJUST WORD POINTER
00206E D500 E000 74C3 00000 04035  2226+         CLC   DX0(LX1,C4),DECPNT IS LAST CHARACTER DECIMAL-POINT
002074 4770 550A            0207C  2227+         BNE   MSG1082A NO - STORE SIZE
002078 4133 0001            00001  2228+         LA    C3,DX1(C3) INCREASE COUNT TO DECREMENT
00207C 4820 70FA            03C6C  2229+MSG1082A LH    C2,SIZEWORD GET WORD SIZE
002080 1B23                        2230+         SR    C2,C3 ADJUST SIZE
002082 4020 70FA            03C6C  2231+         STH   C2,SIZEWORD TO PROPER LENGTH
002086 4580 61F6            02D68  2232+         BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
00208A 10                          2233+         DC    X'10' C-LEVEL, NO INSERT
00208B 52                          2234+         DC    X'52' MESSAGE 1082
00208C 47F0 5284            01DF6  2235+         B     CHKMARGB PERFORM ACTION
                                   2236+*
                                   2237+*    CHECK FOR A QUALIFIED NUMERIC PROCEDURE NAME
                                   2238+*              PROCEDURE MAY HAVE ONLY ONE QUALIFIER
                                   2239+*
002090 9601 747D      03FEF        2240+REPWD2E  OI    REPWD2SW,WD2MRGB SET FOR RETURN FROM MARGINB TEST
002094 4520 5284            01DF6  2241+         BAL   C2,CHKMARGB CHECK IF WORD IS IN MARGINB
002098 41A0 70FC            03C6E  2242+         LA    W1,WORD ADDRESS OF CURRENT WORD
00209C 41C0 7375            03EE7  2243+         LA    W3,REPWRK+DX1 ADDRESS OF TEMP SAVE FOR TABSERT
0020A0 4520 56FA            0226C  2244+         BAL   C2,WRD2MOV1 MOVE WORD TO TEMPORARY SAVE
0020A4 4580 6306            02E78  2245+         BAL   L1,GETWORD GET NEXT WORD
0020A8 4580 56D4            02246  2246+         BAL   L1,QUALCHK CHECK FOR QUALIFICATION
0020AC 47F0 556C            020DE  2247+         B     REPWD2E2 NO QUAL RETURN
0020B0 4520 5284            01DF6  2248+         BAL   C2,CHKMARGB CHECK IF WORD IS IN MARGINB
0020B4 4520 56F2            02264  2249+         BAL   C2,WRD2MOVE MOVE BLANK AND WORD TO TEMP SAVE
0020B8 4580 6306            02E78  2250+         BAL   L1,GETWORD GET NEXT WORD
0020BC 4520 5284            01DF6  2251+         BAL   C2,CHKMARGB CHECK IF WORD IS IN MARGINB
0020C0 4520 53FA            01F6C  2252+         BAL   C2,PNM0 CHECK FOR VALID PNM QUALIFIER
0020C4 47F0 524E            01DC0  2253+         B     UPDATE INVALID RETURN
0020C8 4520 56F2            02264  2254+         BAL   C2,WRD2MOVE MOVE BLANK AND WORD TO TEMP SAVE
0020CC 41A0 7375            03EE7  2255+REPWD2E1 LA    W1,REPWRK+DX1 SUBTRACT BEGINNING OF WORD
0020D0 1BCA                        2256+         SR    W3,W1 FROM END TO GET SIZE
0020D2 42C0 7374            03EE6  2257+         STC   W3,REPWRK SAVE SIZE
PH01   IKFCBL01                                                                                                PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0020D6 9601 7482      03FF4        2258+         OI    MISCSW4,WORD2SW INDICATE WORD IN REPWRK BUFFER
0020DA 47F0 519C            01D0E  2259+         B     CALCACT PERFORM ACTION
0020DE 9610 747F      03FF1        2260+REPWD2E2 OI    MISCSW,DUMMYGET INDICATE HAVE WORD TO GETWORD
0020E2 47F0 555A            020CC  2261+         B     REPWD2E1 CALCULATE LENGTH
                                   2262+*
                                   2263+*    CHECK FOR A FLOATING POINT NUMERIC LITERAL
                                   2264+*
0020E6 D501 7176 7484 03CE8 03FF6  2265+REPWD2F  CLC   MANTISSA(LX2),HZERO ANY DIGITS IN MANTISSA         53544
0020EC 4780 5710            02282  2266+         BE    WORD2ID NO - CHECK FOR VALID DNM       53544
0020F0 9620 747D      03FEF        2267+         OI    REPWD2SW,FLOPTSW INDICATE POSSIBLE FLOPNT NUMBER53544
0020F4 50E0 70EA            03C5C  2268+         ST    C4,FLOPTSAV SAVE 'E' POINTER
0020F8 41EE 0001            00001  2269+         LA    C4,DX1(C4) INCREMENT WORD POINTER
0020FC 1B33                        2270+         SR    C3,C3 INITIALIZE EXPONENT COUNT
0020FE 4520 569E            02210  2271+REPWD2F1 BAL   C2,SIGNSCAN CHECK FOR + OR - SIGN
002102 9610 747D      03FEF        2272+         OI    REPWD2SW,SIGNSW2 INDICATE FLOPNT SIGN
002106 4520 56B8            0222A  2273+REPWD2F2 BAL   C2,DIGITSCN CHECK FOR EXPONENT
00210A 9140 747D      03FEF        2274+         TM    REPWD2SW,POINTSW WAS DECIMAL-POINT FOUND
00210E 4710 55AC            0211E  2275+         BC    ALLON,REPWD2G YES - SEE IF AT END OF LITERAL
002112 9190 747D      03FEF        2276+         TM    REPWD2SW,SIGNSW+SIGNSW2 WERE THERE ANY SIGNS
002116 4750 62E2            02E54  2277+         BC    ALLON+MIXED,MSG1017 YES - INVALID WORD2
00211A 47F0 5710            02282  2278+         B     WORD2ID OTHERWISE CHECK FOR VALID DNM
00211E 9540 E000      00000        2279+REPWD2G  CLI   DX0(C4),BLANK IS CHARACTER A BLANK           53544
002122 4780 55C6            02138  2280+         BE    REPWD2H CHECK VALID SIZE
002126 1233                        2281+         LTR   C3,C3 ANY EXPONENT DIGITS
002128 4770 562A            0219C  2282+         BC    NZERO,MSG1072 YES - FOUND AN INVALID CHARACTER
00212C 9110 747D      03FEF        2283+         TM    REPWD2SW,SIGNSW2 WAS THERE AN EXPONENT SIGN
002130 4780 5644            021B6  2284+         BC    ALLOFF,MSG1073 NO - 'E' FOLLOWED BY INVALID CHAR
002134 47F0 565E            021D0  2285+         B     MSG1074 YES - INVALID CHARACTER AFTER SIGN
                                   2286+*
002138 1233                        2287+REPWD2H  LTR   C3,C3 EXPONENT SPECIFIED             53544
00213A 4780 62E2            02E54  2288+         BZ    MSG1017 NO - INVALID WORD2             53544
00213E 4930 7486            03FF8  2289+         CH    C3,TWO IS EXPONENT GREATER THAN TWO   53544
002142 47D0 55E8            0215A  2290+         BC    LE,REPWD2J NO - CHECK FOR MANTISSA GT 16
002146 4580 61F6            02D68  2291+         BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
00214A 10                          2292+         DC    X'10' C-LEVEL, NO INSERTS
00214B 47                          2293+         DC    X'47' MESSAGE 1071
00214C 4B30 7486            03FF8  2294+         SH    C3,TWO EXPONENT IS GREATER THAN TWO
002150 4820 70FA            03C6C  2295+         LH    C2,SIZEWORD MUST TRUNCATE TO TWO
002154 1B23                        2296+         SR    C2,C3 AND ADJUST THE SIZE OF
002156 4020 70FA            03C6C  2297+         STH   C2,SIZEWORD THE LITERAL
                                   2298+*
00215A D501 7176 748C 03CE8 03FFE  2299+REPWD2J  CLC   MANTISSA(LX2),H16 IS MANTISSA GREATER THAN 16
002160 47D0 5284            01DF6  2300+         BC    LE,CHKMARGB NO - PERFORM ACTION
002164 4580 61F6            02D68  2301+         BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
002168 10                          2302+         DC    X'10' C-LEVEL, NO INSERTS
002169 46                          2303+         DC    X'46' MESSAGE 1070
00216A 4830 7176            03CE8  2304+         LH    C3,MANTISSA GER MANTISSA LENGTH,
00216E 58E0 70EA            03C5C  2305+         L     C4,FLOPTSAV POINTER TO 'E',
002172 4820 70FA            03C6C  2306+         LH    C2,SIZEWORD AND WORD SIZE
002176 4B30 748C            03FFE  2307+         SH    C3,H16 ADJUST THE WORD
00217A 1B23                        2308+         SR    C2,C3 SIZE FOR A MANTISSA
00217C 4020 70FA            03C6C  2309+         STH   C2,SIZEWORD LENGTH OF 16
002180 4120 0004            00004  2310+         LA    C2,DX4 NUMBER OF CHARACTERS TO MOVE
002184 06E0                        2311+REPWD2K  BCTR  C4,C0 POINT TO CHARACTER BEFORE 'E'
002186 D500 E000 74C3 00000 04035  2312+         CLC   DX0(LX1,C4),DECPNT IS IT A DECIMAL POINT
PH01   IKFCBL01                                                                                                PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00218C 4780 5612            02184  2313+         BE    REPWD2K YES - DECREMENT POINTER
002190 4420 5698            0220A  2314+         EX    C2,SHIFTLIT SHIFT OVER MANTISSA (E+NN SHIFTED)
002194 4630 5612            02184  2315+         BCT   C3,REPWD2K IS MANTISSA STILL TO LARGE
002198 47F0 5284            01DF6  2316+         B     CHKMARGB PERFORM ACTION
                                   2317+*
00219C 9108 747D      03FEF        2318+MSG1072  TM    REPWD2SW,MSG72SW HAS MSG BEEN ISSUED
0021A0 4710 563C            021AE  2319+         BC    ALLON,MSG1072A YES - ADJUST WORD ONLY
0021A4 9608 747D      03FEF        2320+         OI    REPWD2SW,MSG72SW INDICATE MSG72 ISSUED
0021A8 4580 61F6            02D68  2321+         BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
0021AC 10                          2322+         DC    X'10' C-LEVEL, NO INSERTS
0021AD 48                          2323+         DC    X'48' MESSAGE 1072
0021AE 4580 5678            021EA  2324+MSG1072A BAL   L1,CHARADEL DELETE INVALID CHARACTER,DECR SIZE
0021B2 47F0 5594            02106  2325+         B     REPWD2F2 CONTINUE SCANNING
                                   2326+*
0021B6 9104 747D      03FEF        2327+MSG1073  TM    REPWD2SW,MSG73SW HAS MSG BEEN ISSUED
0021BA 4710 5656            021C8  2328+         BC    ALLON,MSG1073A YES - ADJUST WORD ONLY
0021BE 9604 747D      03FEF        2329+         OI    REPWD2SW,MSG73SW INDICATE MSG7& ISSUED
0021C2 4580 61F6            02D68  2330+         BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
0021C6 10                          2331+         DC    X'10' C-LEVEL, NO INSERTS
0021C7 49                          2332+         DC    X'49' MESSAGE 1073
0021C8 4580 5678            021EA  2333+MSG1073A BAL   L1,CHARADEL DELETE INVALID CHARACTER,DECR SIZE
0021CC 47F0 558C            020FE  2334+         B     REPWD2F1 CONTINUE SCANNING
                                   2335+*
0021D0 9102 747D      03FEF        2336+MSG1074  TM    REPWD2SW,MSG74SW HAS MSG BEEN ISSUED
0021D4 4710 5670            021E2  2337+         BC    ALLON,MSG1074A YES - ADJUST WORD ONLY
0021D8 9602 747D      03FEF        2338+         OI    REPWD2SW,MSG74SW INDICATE MSG74 ISSUED
0021DC 4580 61F6            02D68  2339+         BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
0021E0 10                          2340+         DC    X'10' C-LEVEL, NO INSERTS
0021E1 4A                          2341+         DC    X'4A' MESSAGE 1074
0021E2 4580 5678            021EA  2342+MSG1074A BAL   L1,CHARADEL DELETE INVALID CHARACTER,DECR SIZE
0021E6 47F0 5594            02106  2343+         B     REPWD2F2 CONTINUE SCANNING
                                   2344+*
0021EA 182E                        2345+CHARADEL LR    C2,C4 GET WORD POINTER
0021EC 4122 0001            00001  2346+CHARDEL1 LA    C2,DX1(C2) INCREMENT AND
0021F0 9540 2000      00000        2347+         CLI   DX0(C2),BLANK SCAN FOR THE BLANK
0021F4 4770 567A            021EC  2348+         BNE   CHARDEL1 DELIMITER
0021F8 1B2E                        2349+         SR    C2,C4 GET NUMBER OF CHARACTERS
0021FA 4420 5698            0220A  2350+         EX    C2,SHIFTLIT TO SHIFT
0021FE 4820 70FA            03C6C  2351+         LH    C2,SIZEWORD SAVE THE NEW SIZE
002202 0620                        2352+         BCTR  C2,0 AFTER DECREMENTING
002204 4020 70FA            03C6C  2353+         STH   C2,SIZEWORD FOR INVALID CHARACTER
002208 07F8                        2354+         BR    L1 RETURN

00220A D200 E000 E001 00000 00001  2356+SHIFTLIT MVC   DX0(LX0,C4),DX1(C4) SHIFT OVER THE INVALID CHARACTER
                                   2357+*
                                   2358+*
002210 954E E000      00000        2359+SIGNSCAN CLI   DX0(C4),CPLUS IS CHARACTER + SIGN
002214 4780 56B2            02224  2360+         BE    SIGNSCN1 YES - INCREMENT WORD POINTER
002218 9560 E000      00000        2361+         CLI   DX0(C4),CMINUS IS CHARACTER - SIGN
00221C 4780 56B2            02224  2362+         BE    SIGNSCN1 YES - INCREMENT WORD POINTER
002220 47F2 0004            00004  2363+         B     DX4(C2) NEITHER + NOT - SIGN  RETURN
002224 41EE 0001            00001  2364+SIGNSCN1 LA    C4,DX1(C4) INCREMENT WORD POINTER
002228 07F2                        2365+         BR    C2 RETURN AND SET APPROPRIATE SIGN SW
                                   2366+*
00222A 95F0 E000      00000        2367+DIGITSCN CLI   DX0(C4),EXTZERO IS THE CHARACTER
PH01   IKFCBL01                                                                                                PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00222E 4742 0000            00000  2368+         BL    DX0(C2) A NUMERIC CHARACTER
002232 95F9 E000      00000        2369+         CLI   DX0(C4),EXTNINE IF NOT, RETURN
002236 4722 0000            00000  2370+         BH    DX0(C2) OTHERWISE
00223A 41EE 0001            00001  2371+         LA    C4,DX1(C4) INCREMENT THE WORD POINTER
00223E 4133 0001            00001  2372+         LA    C3,DX1(C3) INCREMENT NUMBER COUNT
002242 47F0 56B8            0222A  2373+         B     DIGITSCN CONTINUE SCANNING
                                   2374+*
002246 9502 70FB      03C6D        2375+QUALCHK  CLI   SIZE,K2 IS WORD SIZE = TWO
00224A 4778 0000            00000  2376+         BNE   DX0(L1) NO, NOT A QUALIFIER
00224E D501 70FC 74E9 03C6E 0405B  2377+         CLC   WORD(LX2),OF IS WORD 'OF'
002254 4788 0004            00004  2378+         BE    DX4(L1) YES, PREPARE FOR QUALIFICATION
002258 D501 70FC 74E0 03C6E 04052  2379+         CLC   WORD(LX2),INCON IS WORD 'IN'
00225E 4788 0004            00004  2380+         BE    DX4(L1) YES, PREPARE FOR QUALIFICATION
002262 07F8                        2381+         BR    L1 NO QUALIFICATION RETURN
                                   2382+*
002264 9240 C000      00000        2383+WRD2MOVE MVI   DX0(W3),BLANK MOVE A BLANK TO SAVEAREA
002268 41CC 0001            00001  2384+         LA    W3,DX1(W3) INCREMENT SAVEAREA POINTER
00226C 4830 70FA            03C6C  2385+WRD2MOV1 LH    C3,SIZEWORD GET CURRENT WORD SIZE
002270 0630                        2386+         BCTR  C3,C0 DECREMENT FOR EXECUTE
002272 4430 570A            0227C  2387+         EX    C3,MOVEWD2 EXECUTE MOVE TO SAVEAREA
002276 41C3 C001            00001  2388+         LA    W3,DX1(C3,W3) BUMP POINTER TO NEXT AVAIL PLACE
00227A 07F2                        2389+         BR    C2 RETURN
                                   2390+*
00227C D200 C000 A000 00000 00000  2391+MOVEWD2  MVC   DX0(LX0,W3),DX0(W1) MOVE WORD TO SAVEAREA
                                   2392+*
                                   2393+*
                                   2394+*   NOT AN ALPHANUMERIC LITERAL NOR A NUMERIC LITERAL
                                   2395+*        CHECK FOR A DATANAME OR AN IDENTIFIER(QUALIFIED BY WORDS
                                   2396+*        'OF' OR 'IN', SUBSCRIPTED, OR INDEXED)
                                   2397+*
002282 9601 747D      03FEF        2398+WORD2ID  OI    REPWD2SW,WD2MRGB SET FOR RETURN FROM MARGINB TEST
002286 41A0 70FC            03C6E  2399+         LA    W1,WORD ADDRESS OF CURRENT WORD
00228A 41C0 7375            03EE7  2400+         LA    W3,REPWRK+DX1 ADDRESS OF TEMP SAVE FOR TABSERT
00228E 4520 5370            01EE2  2401+WORD2ID1 BAL   C2,DNM0 CHECK FOR VALID DATANAME
002292 47F0 524E            01DC0  2402+         B     UPDATE INVALID RETURN
002296 9101 747F      03FF1        2403+         TM    MISCSW,FNDALPHA WAS ALPHABETIC FOUND
00229A 4780 524E            01DC0  2404+         BC    ALLOFF,UPDATE NO - INVALID DATANAME
00229E 4520 5284            01DF6  2405+         BAL   C2,CHKMARGB CHECK IF WORD IS IN MARGINB
0022A2 4520 56FA            0226C  2406+         BAL   C2,WRD2MOV1 MOVE WORD TO TEMPORARY SAVEAREA
0022A6 4580 6306            02E78  2407+         BAL   L1,GETWORD GET NEXT WORD
0022AA 4580 56D4            02246  2408+         BAL   L1,QUALCHK CHECK FOR QUALIFICATION
0022AE 47F0 5758            022CA  2409+         B     WORD2ID2 NO QUAL - CHECK IF INDEX/SUBSCRIPT
0022B2 4520 5284            01DF6  2410+         BAL   C2,CHKMARGB CHECK IF WORD IS IN MARGINB
0022B6 4520 56F2            02264  2411+         BAL   C2,WRD2MOVE MOVE BLANK AND WORD TO TEMP SAVE
0022BA 4580 6306            02E78  2412+         BAL   L1,GETWORD GET NEXT WORD
0022BE 9240 C000      00000        2413+         MVI   DX0(W3),BLANK MOVE BLANK TO TEMP
0022C2 41CC 0001            00001  2414+         LA    W3,DX1(W3) INCREMENT TEMP PTR
0022C6 47F0 571C            0228E  2415+         B     WORD2ID1 CHECK FOR DATANAME
                                   2416+*
0022CA 954D 70FC      03C6E        2417+WORD2ID2 CLI   WORD,LPAREN IS WORD A LEFT PARENTHESIS
0022CE 4770 556C            020DE  2418+         BNE   REPWD2E2 NO - WRAP UP WORD2
0022D2 924D C000      00000        2419+         MVI   DX0(W3),LPAREN YES - MUST BE INDEXED/SUBSCRIPTED
0022D6 41CC 0001            00001  2420+         LA    W3,DX1(W3) INCREMENT TEMP SAVE POINTER
0022DA 4580 6306            02E78  2421+WORD2ID3 BAL   L1,GETWORD GET NEXT WORD
0022DE D504 70FC 7756 03C6E 042C8  2422+WORD2IDA CLC   WORD(L'TALLY),TALLY IS SUBSCRIPT TALLY
PH01   IKFCBL01                                                                                                PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0022E4 4780 5822            02394  2423+         BE    WORD2IDC MOVE WORD TO TEMP AREA
0022E8 4520 5370            01EE2  2424+         BAL   C2,DNM0 CHECK FOR A VALID DATANAME
0022EC 47F0 57C2            02334  2425+         B     WORD2IDB NOT DNM - CHECK FOR NUM SUBSCRIPT
0022F0 9101 747F      03FF1        2426+         TM    MISCSW,FNDALPHA WAS ALPHABETIC FOUND
0022F4 4780 57C2            02334  2427+         BC    ALLOFF,WORD2IDB NO - CHECK FOR NUMERIC SUBSCRIPT
0022F8 4520 5284            01DF6  2428+WORD2ID4 BAL   C2,CHKMARGB CHECK IF WORD IS IN MARGINB
0022FC 4520 56FA            0226C  2429+         BAL   C2,WRD2MOV1 MOVE WORD TO TEMPORARY SAVE
002300 4580 6306            02E78  2430+         BAL   L1,GETWORD GET NEXT WORD
002304 4580 56D4            02246  2431+         BAL   L1,QUALCHK CHECK FOR QUALIFICATION
002308 47F0 57F2            02364  2432+         B     WORD2ID5 NO QUAL RETURN
00230C 4520 5284            01DF6  2433+         BAL   C2,CHKMARGB CHECK IF WORD IS IN MARGINB
002310 4520 56F2            02264  2434+         BAL   C2,WRD2MOVE MOVE BLANK AND WORD TO TEMP SAVE
002314 4580 6306            02E78  2435+         BAL   L1,GETWORD GET NEXT WORD
002318 4520 5370            01EE2  2436+         BAL   C2,DNM0 CHECK FOR A VALID DATANAME
00231C 47F0 524E            01DC0  2437+         B     UPDATE INVALID
002320 9101 747F      03FF1        2438+         TM    MISCSW,FNDALPHA WAS ALPHABETIC FOUND
002324 4780 524E            01DC0  2439+         BC    ALLOFF,UPDATE NO - INVALID DATANAME
002328 9240 C000      00000        2440+         MVI   DX0(W3),BLANK MOVE BLANK TO TEMP
00232C 41CC 0001            00001  2441+         LA    W3,DX1(W3) INCREMENT TEMP POINTER
002330 47F0 5786            022F8  2442+         B     WORD2ID4 CONTINUE
                                   2443+*
002334 4820 70FA            03C6C  2444+WORD2IDB LH    C2,SIZEWORD GET WORD SIZE
002338 954E 70FC      03C6E        2445+         CLI   WORD,CPLUS IS FIRST CHARACTER '+' SIGN
00233C 4770 57DA            0234C  2446+         BNE   WORD2ID7 NO - CONTINUE LIT CHECK
002340 4130 70FD            03C6F  2447+         LA    C3,WORD+DX1 POINT TO NEXT CHARACTER
002344 0620                        2448+         BCTR  C2,C0 DECREMENT WORD COUNT
002346 1222                        2449+         LTR   C2,C2 ANY MORE CHARACTERS
002348 4780 524E            01DC0  2450+         BC    TZERO,UPDATE NO - INVALID
00234C 4580 586A            023DC  2451+WORD2ID7 BAL   L1,WRD2SCN1 CHECK FOR INTERNAL NUMERIC LIT
002350 47F0 57E6            02358  2452+         B     WORD2IDE NOT A SUBSCRIPT/INDEX - CHECK RPAREN
002354 47F0 5822            02394  2453+         B     WORD2IDC MOVE WORD TO TEMP AREA
002358 955D 70FC      03C6E        2454+WORD2IDE CLI   WORD,RPAREN IS WORD A RIGHT PAREN
00235C 4770 524E            01DC0  2455+         BNE   UPDATE INVALID SUBSCRIPT/INDEX
002360 47F0 5852            023C4  2456+         B     WORD2IDD MOVE RPAREN AND WRAP UP
                                   2457+*
002364 9501 70FB      03C6D        2458+WORD2ID5 CLI   SIZE,K1 IF WORD IS LARGER THAN ONE
002368 4770 583A            023AC  2459+         BNE   WORD2ID6 CHARACTER, CHECK IF VALID
00236C 954E 70FC      03C6E        2460+         CLI   WORD,CPLUS IS WORD A PLUS SIGN
002370 4770 583A            023AC  2461+         BNE   WORD2ID6 NO, CHECK FOR VALID SUBSCRIPT/INDEX
002374 9560 70FC      03C6E        2462+         CLI   WORD,CMINUS IS WORD A MINUS SIGN
002378 4770 583A            023AC  2463+         BNE   WORD2ID6 NO, CHECK FOR VALID SUBSCRIPT/INDEX
00237C 4520 56F2            02264  2464+         BAL   C2,WRD2MOVE MOVE BLANK AND SIGN TO TEMP SAVE
002380 4580 6306            02E78  2465+         BAL   L1,GETWORD GET NEXT WORD
002384 4580 5862            023D4  2466+         BAL   L1,WRD2SCN CHECK FOR INTEGRAL NUMERIC LIT
002388 47F0 524E            01DC0  2467+         B     UPDATE NO - INVALID RETURN
00238C 9240 C000      00000        2468+         MVI   DX0(W3),BLANK MOVE A BLANK TO TEMP AND
002390 41CC 0001            00001  2469+         LA    W3,DX1(W3) INCREMENT PTR TO NEXT AVAIL PLACE
002394 4520 5284            01DF6  2470+WORD2IDC BAL   C2,CHKMARGB CHECK IF WORD IS IN MARGINB
002398 4520 56FA            0226C  2471+         BAL   C2,WRD2MOV1 MOVE WORD TO TEMPORARY SAVE
00239C 926B C000      00000        2472+         MVI   DX0(W3),COMMA MOVE COMMA
0023A0 9240 C001      00001        2473+         MVI   DX1(W3),BLANK MOVE BLANK
0023A4 41CC 0002            00002  2474+         LA    W3,DX2(W3) INCREMENT PTR TO NEXT AVAIL PLACE
0023A8 47F0 5768            022DA  2475+         B     WORD2ID3 GET NEXT SUBSCRIPT/INDEX
                                   2476+*
0023AC 4520 5284            01DF6  2477+WORD2ID6 BAL   C2,CHKMARGB CHECK IF WORD IS IN MARGINB
PH01   IKFCBL01                                                                                                PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0023B0 926B C000      00000        2478+         MVI   DX0(W3),COMMA MOVE COMMA TO TEMP
0023B4 9240 C001      00001        2479+         MVI   DX1(W3),BLANK MOVE BLANK TO TEMP
0023B8 41CC 0002            00002  2480+         LA    W3,DX2(W3) INCREMENT PTR TO NEXT AVAIL PLACE
0023BC 955D 70FC      03C6E        2481+         CLI   WORD,RPAREN IS WORD A RIGHT PAREN
0023C0 4770 576C            022DE  2482+         BNE   WORD2IDA CONTINUE PROCESSING SUBSCRIPT/INDEX
0023C4 4BC0 7486            03FF8  2483+WORD2IDD SH    W3,TWO DECREMENT TEMP PTR
0023C8 925D C000      00000        2484+         MVI   DX0(W3),RPAREN MOVE RIGHT PAREN TO TEMP
0023CC 41CC 0001            00001  2485+         LA    W3,DX1(W3) INCREMENT PTR
0023D0 47F0 555A            020CC  2486+         B     REPWD2E1 WRAP UP
                                   2487+*
0023D4 4820 70FA            03C6C  2488+WRD2SCN  LH    C2,SIZEWORD GET SIZE OF WORD
0023D8 4130 70FC            03C6E  2489+         LA    C3,WORD ADDRESS OF CURRENT WORD
0023DC 95F0 3000      00000        2490+WRD2SCN1 CLI   DX0(C3),EXTZERO CHECK FOR  AN INTEGRAL
0023E0 4748 0000            00000  2491+         BL    DX0(L1) NUMERIC LITERAL
0023E4 95F9 3000      00000        2492+         CLI   DX0(C3),EXTNINE IF NOT,
0023E8 4728 0000            00000  2493+         BH    DX0(L1) RETURN INVALID
0023EC 4133 0001            00001  2494+         LA    C3,DX1(C3) IF SO,
0023F0 4620 586A            023DC  2495+         BCT   C2,WRD2SCN1 RETURN IS VALID
0023F4 47F8 0004            00004  2496+         B     DX4(L1) VALID RETURN
                                   2497+*
PH01   IKFCBL01                                                                                                PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2499+**********************************************************************
                                   2500+****                          ACTION TABLE                          DA1
                                   2501+*                                                                   DA1
                                   2502+*                   POINTERS TO ROUTINES TO DO THE ACTION           DA1
                                   2503+***********************************************************************
0023F8                             2504+ACTTAB   EQU   * STARTING ADDRESS
0023F8 58B2                        2505+TSUBDC   DC    S(ASUBDC) SUBSTITUTE DATE COMPILED
0023FA 593A                        2506+TREMARKS DC    S(AREMARKS) SKIP PAST REMARKS SECTION
0023FC 597E                        2507+TNOWPTR  DC    S(ANOWPTR) SAVE PRESENT  ENTRY POINTER
0023FE 598A                        2508+TSVPTR   DC    S(ASVPTR) SAVE MAIN STRING POINTER
002400 598E                        2509+TNOACT   DC    S(AGET) GET NEXT WORD AND NEXT STRING ENTRY
002402 59B6                        2510+TDECPNT  DC    S(ADECPNT) CHANGE DECIMAL POINT TO COMMA
002404 597A                        2511+TFDPTR   DC    S(AFDPTR) SAVE FD POINTER AND SET FD SWITCH
002406 596E                        2512+TSDPTR   DC    S(ASDPTR) SAVE SD POINTER AND SET SD SWITCH
002408 5996                        2513+TWSPTR   DC    S(AWSPTR) SAVE WORKING-STORAGE PTR, WRKSTSW
00240A 59AA                        2514+TRDPTR   DC    S(ARDPTR) SAVE RD POINTER AND SET RD SWITCH
00240C 59E6                        2515+TREDEF   DC    S(AREDEF) REDEFINES ROUTINE
00240E 59EE                        2516+TLEVEL   DC    S(ALEVEL) LEVEL 01 ROUTINE
002410 59BE                        2517+TSAVDNM  DC    S(ASAVDNM) SAVE 01 LEVEL DATANAME
002412 5A2A                        2518+TPROC    DC    S(APROC) PROCEDURE DIVISION ACTION
002414 5A4A                        2519+TSECT    DC    S(ASECT) CHECK FOR PRIORITY NUMBER
002416 5A7E                        2520+TCOPYCLS DC    S(ACOPYCLS) INDICATE COPY STATEMENT IN PROCESS
002418 5A86                        2521+TLIB     DC    S(ALIB) SAVE COPY LIBRARY NAME
00241A 5ABE                        2522+TSUPP    DC    S(ASUPP) TURN ON SUPPRESS INDICATOR
00241C 5AC6                        2523+TREP     DC    S(AREP) PREPARE REPLACING TABLE
00241E 5B26                        2524+TSETCPY  DC    S(ASETCPY) START COPY PROCESSING
002420 5ACE                        2525+TWORD1   DC    S(AWORD1) WORD1 TO REPLACING TABLE
002422 5AE2                        2526+TWORD2   DC    S(AWORD2) WORD2 TO REPLACING TABLE
PH01   IKFCBL01                                                                                                PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2528+***********************************************************************
                                   2529+*                                                                   DA1
                                   2530+*                             ACTION ROUTINES                       DA1
                                   2531+*                                                                   DA1
                                   2532+***********************************************************************

002424 9180 7480      03FF2        2534+ASUBDC   TM    MISCSW2,DCOMPILE WAS DATE-COMPILED REACHED ALREADY
002428 4710 5152            01CC4  2535+         BC    ALLON,DRIVER GET A KEYWORD
00242C 9680 7480      03FF2        2536+         OI    MISCSW2,DCOMPILE INDICATE DATE-COMPILED FOUND
002430 5820 7086            03BF8  2537+         L     C2,AIOA1I LOAD ADDRESS OF INPUT BUFFER
002434 9240 2018      00018        2538+         MVI   DX24(C2),BLANK BLANK OUT POSSIBLE 1ST COL AFTER
002438 D22E 2019 2018 00019 00018  2539+         MVC   DX25(LX47,C2),DX24(C2) PERIOD, THEN BLANK OUT REST
00243E 9240 4001      00001        2540+         MVI   DX1(S1),BLANK BLANK POSITION BEFORE DATE
002442 D20E 4002 F18C 00002 0018C  2541+         MVC   DX2(LX15,S1),DATE MOVE IN DATE FROM COMMON
002448 924B 400D      0000D        2542+         MVI   DX13(S1),PERIOD MOVE A PERIOD
00244C 4580 6E0A            0397C  2543+         BAL   L1,WRITE WRITE DATE-COMPILED
002450 4580 6972            034E4  2544+ASUBDC1  BAL   L1,GETIPT GET NEXT RECORD
002454 94B7 747F      03FF1        2545+         NI    MISCSW,FF-LP-RP OFF LP, RP IN ORDER TO GET 1ST WD
002458 94FB 747E      03FF0        2546+         NI    ASWITCH,FF-EOS OFF END OF STMT INDICATOR
00245C 4580 689A            0340C  2547+         BAL   L1,SKPEJECT CHK FOR SKIP OR EJECT
002460 47F0 58DE            02450  2548+         B     ASUBDC1 GET AGAIN-SKIP/EJECT
002464 955C 4006      00006        2549+         CLI   DX6(S1),ASTERISK IS IT A COMMENT
002468 4780 58DE            02450  2550+         BE    ASUBDC1 GET AGAIN
00246C 4144 0006            00006  2551+         LA    S1,DX6(S1) UPDATE TO COLUMN 7 OF CARD
002470 9560 4000      00000        2552+         CLI   DX0(S1),HYPHEN IS IT CONTINUATION CARD        52763
002474 4780 58DE            02450  2553+         BE    ASUBDC1 YES,NOT MERGA RESERVED WORD    52763
002478 9620 7481      03FF3        2554+         OI    MISCSW3,CDSURP PREVENT GETWORD'S GETTING CARD 52763
00247C 4580 6306            02E78  2555+         BAL   L1,GETWORD GET A WORD
002480 910A 747E      03FF0        2556+         TM    ASWITCH,MARGA+RESWORD IS IT RESERVED WORD IN MARGINA
002484 47C0 58DE            02450  2557+         BC    ALLOFF+MIXED,ASUBDC1 NO GET NEXT RECORD - NO PRINT
002488 5040 709A            03C0C  2558+         ST    S1,NBLKPTR SAVE GETWORD POINTER           53113
00248C 5840 7086            03BF8  2559+         L     S1,AIOA1I GET COL 1 ADDR                 53113
002490 4180 592A            0249C  2560+         LA    L1,ASUBDC2 SAVE THE RETURN ADDRESS        53113
002494 5080 70AE            03C20  2561+         ST    L1,GCSAVEL1 FROM GETCARD ROUTINE           53113
002498 4580 6804            03376  2562+         BAL   L1,GC4 CHECK SEQ AND INSERT INDICATOR 53113
00249C 5840 709A            03C0C  2563+ASUBDC2  L     S1,NBLKPTR RESTORE GETWORD POINTER        53113
0024A0 94DF 7481      03FF3        2564+         NI    MISCSW3,FF-CDSURP OFF GETCARD SUPPRESS           52763
0024A4 41B0 6104            02C76  2565+         LA    W2,ID10 SET RETURN TO DATE-COMPILED STRING
0024A8 47F0 5156            01CC8  2566+         B     DRIVER1 GET A KEYWORD

0024AC 9640 747E      03FF0        2568+AREMARKS OI    ASWITCH,WRITESUP SUPPRESS WRITE TO PHASE 1
0024B0 4580 67D8            0334A  2569+         BAL   L1,GETCARD GET NEXT RECORD
0024B4 94B7 747F      03FF1        2570+         NI    MISCSW,FF-LP-RP OFF LP, RP IN ORDER TO GET 1ST WD
0024B8 94FB 747E      03FF0        2571+         NI    ASWITCH,FF-EOS OFF END OF STMT INDICATOR
0024BC 9560 4000      00000        2572+         CLI   DX0(S1),HYPHEN IS IT CONTINUATION CARD        52763
0024C0 4780 593A            024AC  2573+         BE    AREMARKS YES,NOT MERGA RESERVED WORD    52763
0024C4 9620 7481      03FF3        2574+         OI    MISCSW3,CDSURP PREVENT GETWORD'S GETTING CARD 52763
0024C8 4580 6306            02E78  2575+         BAL   L1,GETWORD GET A WORD
0024CC 910A 747E      03FF0        2576+         TM    ASWITCH,MARGA+RESWORD IS IT RESERVED WORD IN MARGIN A
0024D0 47C0 593A            024AC  2577+         BC    ALLOFF+MIXED,AREMARKS NO, GET NEXT WORD
0024D4 94DF 7481      03FF3        2578+         NI    MISCSW3,FF-CDSURP OFF GETCARD SUPPRESS           52763
0024D8 41B0 6104            02C76  2579+         LA    W2,ID10 SET RETURN TO DATE-COMPILED STRING
0024DC 47F0 5156            01CC8  2580+         B     DRIVER1 GET A KEYWORD

0024E0 9620 7480      03FF2        2582+ASDPTR   OI    MISCSW2,FDSDSW SET THE SD SWITCH
PH01   IKFCBL01                                                                                                PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0024E4 4130 6131            02CA3  2583+         LA    C3,ID12 GET LAST STRING ENTRY
0024E8 47F0 5982            024F4  2584+         B     OFFLEV1 SINCE SD MAY OCCUR BEFORE AN FD)

0024EC 9620 7480      03FF2        2586+AFDPTR   OI    MISCSW2,FDSDSW SET THE FD SWITCH
0024F0 5830 70E6            03C58  2587+ANOWPTR  L     C3,NOWSTRNG RETURN TO PRESENT STRING ENTRY
0024F4 94BF 7480      03FF2        2588+OFFLEV1  NI    MISCSW2,FF-LEV1SW TURN OFF LEVEL 1 SWITCH
0024F8 94DF 747F      03FF1        2589+         NI    MISCSW,FF-REDEF TURN OFF REDEFINES SWITCH
0024FC 5030 70E2            03C54  2590+ASVPTR   ST    C3,NXTSTRNG SAVE NEXT MAIN STRING POINTER
002500 4580 6306            02E78  2591+AGET     BAL   L1,GETWORD GET A WORD
002504 47F0 515E            01CD0  2592+         B     NEXT TRUE TEST RETURN- ALTERNATE STRING

002508 949F 7480      03FF2        2594+AWSPTR   NI    MISCSW2,FF-FDSDSW-LEV1SW NO MORE FD OR SD ITEMS
00250C 94DF 747F      03FF1        2595+         NI    MISCSW,FF-REDEF TURN OFF REDEFINES SWITCH
002510 9610 7480      03FF2        2596+         OI    MISCSW2,WRKSTSW SET WORKING-STORAGE SWITCH
002514 50B0 70E2            03C54  2597+         ST    W2,NXTSTRNG SAVE ID15 PTR (INLINE AFTER W-S)
002518 47F0 5152            01CC4  2598+         B     DRIVER GET A KEYWORD

00251C 94CF 7480      03FF2        2600+ARDPTR   NI    MISCSW2,FF-FDSDSW-WRKSTSW NO MORE FD, SD, OR W-S ITEMS
002520 9608 7480      03FF2        2601+         OI    MISCSW2,RDSW SET THE RD SWITCH
002524 47F0 597E            024F0  2602+         B     ANOWPTR SAVE THIS STRING PTR, OFF LEV1SW

002528 926B 74C3      04035        2604+ADECPNT  MVI   DECPNT,COMMA CHANGE DECIMAL POINT TO COMMA
00252C 47F0 515E            01CD0  2605+         B     NEXT FOR WORD2 REPLACING OPTION TEST

002530 4830 70FA            03C6C  2607+ASAVDNM  LH    C3,SIZEWORD GET DATANAME SIZE
002534 9120 747F      03FF1        2608+         TM    MISCSW,REDEF WAS REDEFINES SPECIFIED
002538 4710 59D2            02544  2609+         BC    ALLON,ASAVDNM1 YES - MOVE REDEFINED DATANAME
00253C 4430 59DA            0254C  2610+         EX    C3,MOVDNM1 SAVE DATANAME FOR COPY
002540 47F0 598E            02500  2611+         B     AGET GET NEXT WORD
002544 4430 59E0            02552  2612+ASAVDNM1 EX    C3,MOVDNM2 SAVE REDEFINED DATANAME
002548 47F0 598E            02500  2613+         B     AGET GET NEXT WORD
                                   2614+*
00254C D200 7286 70FB 03DF8 03C6D  2615+MOVDNM1  MVC   DATANAM1(LX0),SIZE MOVE SIZE AND WORD
002552 D200 72A5 70FB 03E17 03C6D  2616+MOVDNM2  MVC   DATANAM2(LX0),SIZE MOVE SIZE AND WORD

002558 9620 747F      03FF1        2618+AREDEF   OI    MISCSW,REDEF INDICATE REDEFINES SPECIFIED
00255C 47F0 598E            02500  2619+         B     AGET GET NEXT WORD

002560 9640 7480      03FF2        2621+ALEVEL   OI    MISCSW2,LEV1SW INDICATE A LEVEL 1 ITEM
002564 94DF 747F      03FF1        2622+         NI    MISCSW,FF-REDEF TURN OFF REDEF SW
002568 9120 7480      03FF2        2623+         TM    MISCSW2,FDSDSW ARE WE WITHIN FD OR SD
00256C 4710 598E            02500  2624+         BC    ALLON,AGET YES - CONTINUE SCAN
002570 9108 7480      03FF2        2625+         TM    MISCSW2,RDSW ARE WE WITHIN RD
002574 4710 598E            02500  2626+         BC    ALLON,AGET YES - CONTINUE SCAN
002578 9110 7480      03FF2        2627+ALEVELA  TM    MISCSW2,WRKSTSW ARE WE WITHIN WORKING-STORAGE
00257C 4710 598E            02500  2628+         BC    ALLON,AGET YES - CONTINUE SCAN
002580 9102 747E      03FF0        2629+         TM    ASWITCH,MARGA IS IT A MARGIN A WORD
002584 4710 5A1E            02590  2630+         BC    ALLON,ALEVELB YES - ASSUME WORKING-STORAGE
002588 94BF 7480      03FF2        2631+         NI    MISCSW2,FF-LEV1SW TURN OFF LEVEL 01 SWITCH
                                   2632+*DEL
00258C 47F0 53EA            01F5C  2633+         B     CHGPTR1 GET A KEYWORD
002590 9610 7480      03FF2        2634+ALEVELB  OI    MISCSW2,WRKSTSW ASSUME WORKING-STORAGE
002594 4130 614A            02CBC  2635+         LA    C3,ID15 CHANGE MAIN STRING POINTER
002598 47F0 598A            024FC  2636+         B     ASVPTR SAVE PTR AND CONTINUE SCAN
PH01   IKFCBL01                                                                                                PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00259C 9604 7480      03FF2        2638+APROC    OI    MISCSW2,PROCSW INDICATE WITHIN PROCEDURE DIV
0025A0 94BF 7480      03FF2        2639+         NI    MISCSW2,FF-LEV1SW TURN OFF LEVEL 01 SWITCH
0025A4 94DF 747F      03FF1        2640+         NI    MISCSW,FF-REDEF TURN OFF REDEFINES SWITCH
0025A8 50B0 70E2            03C54  2641+         ST    W2,NXTSTRNG UPDATE MAIN STRING PTR - ID80
0025AC 4580 6306            02E78  2642+APROC1   BAL   L1,GETWORD GET A WORD
0025B0 9102 747E      03FF0        2643+         TM    ASWITCH,MARGA IS IT IN MARGIN A
0025B4 4780 5A3A            025AC  2644+         BC    ALLOFF,APROC1 NO-GET ANOTHER WORD
0025B8 47F0 515E            01CD0  2645+         B     NEXT GO TO NEXT STRING

0025BC 4580 6306            02E78  2647+ASECT    BAL   L1,GETWORD GET A WORD
0025C0 9502 70FB      03C6D        2648+         CLI   SIZE,K2 IS WORD MORE THAN 2 CHARACTERS
0025C4 4720 515E            01CD0  2649+         BC    GT,NEXT YES - NOT A PRIORITY NUMBER
0025C8 4820 70FA            03C6C  2650+         LH    C2,SIZEWORD GET WORD SIZE
0025CC 4130 70FC            03C6E  2651+         LA    C3,WORD GET ADDRESS OF WORD
0025D0 95F0 3000      00000        2652+ASECT1   CLI   DX0(C3),EXTZERO IS CHARACTER GREATER THAN 0
0025D4 4740 515E            01CD0  2653+         BL    NEXT NO - NOT A PRIORITY NUMBER
0025D8 95F9 3000      00000        2654+         CLI   DX0(C3),EXTNINE IS CHARACTER LESS THAN 9
0025DC 4720 515E            01CD0  2655+         BH    NEXT NO - NOT A PRIORITY NUMBER
0025E0 4620 5A5E            025D0  2656+         BCT   C2,ASECT1 CONTINUE TEST
0025E4 9102 747E      03FF0        2657+         TM    ASWITCH,MARGA IS WORD A PROCEDURE NAME
0025E8 4710 53DA            01F4C  2658+         BC    ALLON,CHGPTR2 YES - PROCESS FROM STRING ID80
0025EC 47F0 598E            02500  2659+         B     AGET PRIORITY NUMBER - GET ANOTHER WORD

0025F0 9680 747C      03FEE        2661+ACOPYCLS OI    COPYSW,CPYSTMT INDICATE COPY STMT SCAN IN EFFECT
0025F4 47F0 598E            02500  2662+         B     AGET GET NEXT WORD

0025F8 D207 6A9F 74AE 03611 04020  2664+ALIB     MVC   CPYLNAM(LX8),BLANKS BLANK OUT NAME FIELD IN CALLING SEQ
0025FE D207 6B23 74AE 03695 04020  2665+         MVC   CPYLNAM2(LX8),BLANKS BLANK OUT NAME FIELD IN CALLING SEQ
002604 4820 70FA            03C6C  2666+         LH    C2,SIZEWORD GET THE SIZE OF COPY LIB NAME
002608 0620                        2667+         BCTR  C2,0 AND DECREMENT FOR EXECUTE
00260A 4420 5AB2            02624  2668+         EX    C2,CPYMOVE EXECUTE MOVE TO CALLING SEQUENCES
00260E 4420 5AB8            0262A  2669+         EX    C2,CPYMOV2 EXECUTE MOVE TO 2ND CALL TO COPY
002612 5820 50BA            01C2C  2670+         L     C2,CRPCON TIB ADDR (REPLACING TABLE)     53556
002616 5832 0000            00000  2671+         L     C3,DX0(C2) TAMM ADDR                      53556
00261A D201 3004 7484 00004 03FF6  2672+         MVC   DX4(LX2,C3),HZERO ZERO TABLE DISPLACEMENT IN TAMM53556
002620 47F0 598E            02500  2673+         B     AGET GET NEXT WORD
                                   2674+*
002624 D200 6A9F 70FC 03611 03C6E  2675+CPYMOVE  MVC   CPYLNAM(LX0),WORD MOVE NAME TO LIBNAME FIELD
00262A D200 6B23 70FC 03695 03C6E  2676+CPYMOV2  MVC   CPYLNAM2(LX0),WORD MOVE NAME TO 2ND LIBNAME FIELD

002630 9640 747C      03FEE        2678+ASUPP    OI    COPYSW,CPYSUPP INDICATE COPY SUPPRESS
002634 47F0 598E            02500  2679+         B     AGET GET NEXT WORD

002638 9620 747C      03FEE        2681+AREP     OI    COPYSW,CPYREP INDICATE COPY REPLACING
00263C 47F0 598E            02500  2682+         B     AGET GET NEXT WORD

002640 41C0 70FB            03C6D  2684+AWORD1   LA    W3,SIZE ADDR OF ENTRY
002644 48A0 70FA            03C6C  2685+         LH    W1,SIZEWORD GET SIZE OF WORD
002648 41AA 0001            00001  2686+AWORD21  LA    W1,DX1(W1) SIZE + 1 FOR COUNT
00264C 4580 5B00            02672  2687+         BAL   L1,TABSERT ENTER WORD INTO REP TABLE
002650 47F0 598E            02500  2688+         B     AGET GET NEXT WORD
                                   2689+*
002654 9101 7482      03FF4        2690+AWORD2   TM    MISCSW4,WORD2SW IS REPLACING WORD IN WORK BUFFER
002658 4780 5ACE            02640  2691+         BC    ALLOFF,AWORD1 NO
00265C 94FE 7482      03FF4        2692+         NI    MISCSW4,FF-WORD2SW INIT INDICATOR FOR WORD2
PH01   IKFCBL01                                                                                                PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002660 1BAA                        2693+         SR    W1,W1 CLEAR REG
002662 43A0 7374            03EE6  2694+         IC    W1,REPWRK GET WORD SIZE
002666 41C0 7374            03EE6  2695+         LA    W3,REPWRK GET ADDRESS OF ENTRY
00266A 94FE 747D      03FEF        2696+         NI    REPWD2SW,FF-WD2MRGB TURN OFF MARGINB TEST INDICATOR
00266E 47F0 5AD6            02648  2697+         B     AWORD21 ENTER INTO REP TABLE



                                   2699+***********************************************************************
                                   2700+*                                                                     *
                                   2701+*     INSERT ROUTINE FOR THE COPY...REPLACING TABLE                   *
                                   2702+*              C1 = A(REPLACING TABLE) C5 = A(INSERT ROUTINE)
                                   2703+*              C0 AND W1 = SIZE OF ENTRY
                                   2704+*              W3 = POINTER TO ENTRY (SIZE AND WORD)
                                   2705+*                                                                     *
                                   2706+***********************************************************************
002672 5810 50BA            01C2C  2707+TABSERT  L     C1,CRPCON REPLACING TABLE ADDR
002676 58F0 50AA            01C1C  2708+         L     C5,ADSERT ADDR OF INSERT
00267A 9200 1000      00000        2709+         MVI   DX0(C1),K0 SET TIB 'N' TO 0
00267E 180A                        2710+         LR    C0,W1 SIZE OF ENTRY
002680 05EF                        2711+         BALR  C4,C5 CALL INSERT IN TAMER
002682 58F0 50A2            01C14  2712+         L     C5,COSADDR RESTORE COS ADDR
002686 4122 0000            00000  2713+         LA    C2,DX0(C2) CLEARS HI-ORDER BYTE
00268A 06A0                        2714+         BCTR  W1,C0 REDUCE SIZE FOR EXECUTE
00268C 44A0 5B20            02692  2715+         EX    W1,TIBMOVE EXECUTE MOVE TO OUTPUT
002690 07F8                        2716+         BR    L1 RETURN

002692 D200 2000 C000 00000 00000  2718+TIBMOVE  MVC   DX0(LX0,C2),DX0(W3) MOVE WORD TO OUTPUT
                                   2719+***********************************************************************

002698 41A0 0002            00002  2721+ASETCPY  LA    W1,DX2 SIZE OF HALFWORD ZEROES        53556
00269C 41C0 7484            03FF6  2722+         LA    W3,HZERO ADDRESS OF ZERO ENTRY
0026A0 4580 5B00            02672  2723+         BAL   L1,TABSERT STORE ZERO TO END REP TABLE
0026A4 9610 747C      03FEE        2724+ASETCPY1 OI    COPYSW,INCPYLIB INDICATE READING FROM COPY LIB
0026A8 D201 70FA 7484 03C6C 03FF6  2725+         MVC   SIZEWORD(LX2),HZERO CLEAR SIZEWORD
0026AE 4580 67D8            0334A  2726+ASETCPY2 BAL   L1,GETCARD WRITE COPY STMT, GET 1ST LIB CARD
0026B2 9140 7480      03FF2        2727+         TM    MISCSW2,LEV1SW IS THIS COPY FOR A DATA LEVEL ITEM
0026B6 4710 5B50            026C2  2728+         BC    ALLON,ASETCPY3 YES - PROCEED TO REPLACE DATA ITEM
0026BA 9120 747C      03FEE        2729+         TM    COPYSW,CPYREP IS THE REPLACING OPTION IN EFFECT
0026BE 4780 5B3C            026AE  2730+         BC    ALLOFF,ASETCPY2 NO - WRITE AND GET ANOTHER RECORD
                                   2731+*
                                   2732+*     INITIALIZE WORK AREAS FOR REPLACING OPTION AND LEVEL
                                   2733+*      NUMBER DATA ITEMS. REG W2 (STRING PTR REGISTER) IS
                                   2734+*      USED BUT IS RESTORED TO POINT TO THE PROPER SYNTAX
                                   2735+*      STRING WHEN COPY REPLACING PROCESSING IS COMPLETE.
                                   2736+*
0026C2 9240 7373      03EE5        2737+ASETCPY3 MVI   CPYHYP,BLANK INITIALIZE COPY...REPLACING
0026C6 D2C5 7374 7373 03EE6 03EE5  2738+         MVC   REPWRK(LX198),CPYHYP WORKAREAS WITH
0026CC D240 743A 7373 03FAC 03EE5  2739+         MVC   REPWRK4(LX65),CPYHYP BLANKS
0026D2 58B0 50BA            01C2C  2740+         L     W2,CRPCON TIB ADDRESS
0026D6 58BB 0000            00000  2741+         L     W2,DX0(W2) TAMM ADDRESS
0026DA 58BB 0000            00000  2742+         L     W2,DX0(W2) START OF TABLE
0026DE 41BB 0000            00000  2743+         LA    W2,DX0(W2) ZERO HI-ORDER BYTE
0026E2 41A0 7374            03EE6  2744+         LA    W1,REPWRK ADDR OF REPLACING WORKAREA
0026E6 48C0 7488            03FFA  2745+         LH    W3,H65 SET SIZE OF WORKAREA
PH01   IKFCBL01                                                                                                PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0026EA 9108 7481      03FF3        2746+         TM    MISCSW3,FULLBUFS WERE ALL WORKAREAS USED FOR
0026EE 4780 5B90            02702  2747+         BC    ALLOFF,ASETCPYA THIS CARD - NO, PROCESS NEW CARD
0026F2 94F7 7481      03FF3        2748+         NI    MISCSW3,FF-FULLBUFS TURN OFF INDICATOR
0026F6 9140 7482      03FF4        2749+         TM    MISCSW4,LASTWRD PROCESSING LAST WORD ON CARD
0026FA 4710 5F90            02B02  2750+         BC    ALLON,ASETEXTB YES - SETUP MOVE TO WORK
0026FE 47F0 5BC4            02736  2751+         B     ASTNTAB2 PROCESS LAST WORD OBTAINED
002702                             2752+ASETCPYA DS    0H GET FIRST WORD ON CARD
002702 4580 5F32            02AA4  2753+         BAL   L1,CGETWRD GET FIRST WORD ON CARD
002706 5820 709A            03C0C  2754+         L     C2,NBLKPTR ADDR OF 1ST WORD ON CARD
                                   2755+*
                                   2756+*   CHECK FOR DEBUG STATEMENT TO SEE IF DEBUG LOCATION
                                   2757+*   IS TO BE REPLACED.
00270A 9101 7480      03FF2        2758+         TM    MISCSW2,DBUGSW IS THIS A DEBUG CARD
00270E 4710 5CCA            0283C  2759+         BC    ALLON,ASETDBUG SET IF LOCATION TO BE REPLACED
002712 5B20 708E            03C00  2760+ASETCPY4 S     C2,COLUMN8 GET DISP OF WORD FROM COL 8
002716 41A2 A000            00000  2761+         LA    W1,DX0(C2,W1) ADDR FOR 1ST ENTRY IN WORKAREA
00271A 1BC2                        2762+         SR    W3,C2 REMAINING SPACE IN WORKAREA
                                   2763+*   CHECK FOR A LEVEL NUMBER DATA ITEM (01, 1, OR 77)
                                   2764+*   FOR DATANAME REPLACEMENT
                                   2765+*
00271C 9140 7480      03FF2        2766+ASETCPY5 TM    MISCSW2,LEV1SW EXPECTING LEVEL NUMBER ITEM
002720 4710 5D1A            0288C  2767+         BC    ALLON,ASETLEV YES - REPLACE DATANAME
                                   2768+*
                                   2769+*   CHECK EACH WORD ON A CARD FOR REPLACEMENT PROCESSING. IF THE
                                   2770+*     WORD IS A BCD NAME, SCAN THE REPLACING TABLE FOR A MATCH AND
                                   2771+*     REPLACEMENT. OTHERWISE, MOVE CURRENT WORD TO THE COPY...REP
                                   2772+*     WORKAREA AND GET THE NEXT WORD. REPEAT PROCESS UNTIL END OF
                                   2773+*     CARD.
002724 4580 5C02            02774  2774+ASETSCN1 BAL   L1,BCDSCAN IS WORD A BCD NAME
002728 47F0 5C6A            027DC  2775+         B     ASETSEEK BCD RETURN - SEARCH REP TABLE
00272C 4580 5F32            02AA4  2776+ASETNTAB BAL   L1,CGETWRD NO BCD RETURN - GET NEXT WORD
002730 5810 709A            03C0C  2777+ASTNTAB1 L     C1,NBLKPTR ADDR OF NEW WORD IN BUFFER
002734 1B12                        2778+         SR    C1,C2 DISP OF WORD FROM LAST WORD
002736 1BC1                        2779+ASTNTAB2 SR    W3,C1 CAN IT FIT IN PRESENT WORKAREA
002738 4740 5DCE            02940  2780+         BM    ASETSIZ1 NO - MAY HAVE TO START NEW WORK
00273C 0610                        2781+ASTNTABX BCTR  C1,C0 REDUCE SIZE FOR EXECUTE
00273E 4410 5C5E            027D0  2782+         EX    C1,BCDREP MOVE WORD TO WORKAREA
002742 41A1 A001            00001  2783+         LA    W1,DX1(C1,W1) POINT TO NEXT AVAIL POSITION
002746 9101 747C      03FEE        2784+         TM    COPYSW,REPHIT JUST REPLACED A WORD
00274A 4780 5BAA            0271C  2785+         BC    ALLOFF,ASETCPY5 NO - CONTINUE WITH NEXT WORD
00274E 94FE 747C      03FEE        2786+         NI    COPYSW,FF-REPHIT ELSE TURN OFF INDICATOR
002752 9501 70FB      03C6D        2787+         CLI   SIZE,K1 COULD A RIGHT PAREN
002756 4770 5BF8            0276A  2788+         BNE   ASTNTAB3 OR PERIOD POSSIBLY FOLLOW
00275A 954B 70FC      03C6E        2789+         CLI   WORD,PERIOD IF SO DO NOT
00275E 4780 5BAA            0271C  2790+         BE    ASETCPY5 INCREMENT WORKAREA POINTER
002762 955D 70FC      03C6E        2791+         CLI   WORD,RPAREN NOR DECREMENT COUNT
002766 4780 5BAA            0271C  2792+         BE    ASETCPY5 CONTINUE
00276A 41AA 0001            00001  2793+ASTNTAB3 LA    W1,DX1(W1) INCREMENT WORKAREA POINTER
00276E 06C0                        2794+         BCTR  W3,C0 DECREMENT WORKAREA COUNT
002770 47F0 5BAA            0271C  2795+         B     ASETCPY5 CONTINUE
                                   2796+*
                                   2797+*  BCDSCAN CHECKS FOR A VALID DATANAME TO BE REPLACED- RETURN ON L1
                                   2798+*  DNM1 ROUTINE USES REGS C3 AND C2  -   NOT NECESSARY TO SAVE THEM
002774 910C 7482      03FF4        2799+BCDSCAN  TM    MISCSW4,PNOTESW+SNOTESW IS THIS A NOTE STATEMENT
002778 4780 5C12            02784  2800+         BC    ALLOFF,BCDSCAN1 NO - CONTINUE
PH01   IKFCBL01                                                                                                PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00277C 947F 7481      03FF3        2801+         NI    MISCSW3,FF-COBCLAUS DONT RECOGNIZE CLAUSE IN NOTE
002780 47F0 5C56            027C8  2802+         B     BCDSCAN5 NO REPLACEMENT
002784 94FD 7482      03FF4        2803+BCDSCAN1 NI    MISCSW4,FF-MAYBNOTE INITIALIZE MARGIN-A NOTE SWITCH
002788 4520 53F2            01F64  2804+         BAL   C2,PNM CHECK VALID NAME REPLACEMENT
00278C 47F0 5C56            027C8  2805+         B     BCDSCAN5 INVALID RETURN
002790 9180 7481      03FF3        2806+         TM    MISCSW3,COBCLAUS WORD MAY BE NUMERIC PROC NAME
002794 4710 5C40            027B2  2807+         BC    ALLON,BCDSCAN3 YES - CONTINUE
002798 9104 7480      03FF2        2808+         TM    MISCSW2,PROCSW IN PROCEDURE DIVISION
00279C 4780 5C4E            027C0  2809+         BC    ALLOFF,BCDSCAN4 NO - NOT A PROCEDURE NAME
0027A0 9102 747E      03FF0        2810+         TM    ASWITCH,MARGA ELSE CHECK FOR PROC NAME
0027A4 4780 5C4E            027C0  2811+         BC    ALLOFF,BCDSCAN4 NOT MARGA - CHECK ALPHABETIC
0027A8 9602 7482      03FF4        2812+         OI    MISCSW4,MAYBNOTE SET MARGIN-A SWITCH FOR NOTE
0027AC 5820 709A            03C0C  2813+BCDSCAN2 L     C2,NBLKPTR SET UP WORD POINTER
0027B0 07F8                        2814+         BR    L1 RETURN
0027B2 D502 72C4 7570 03E36 040E2  2815+BCDSCAN3 CLC   SAVECLS(L'PIC),PIC IS WORD A PICTURE
0027B8 4770 5C3A            027AC  2816+         BNE   BCDSCAN2 NO - VALID REPLACING ITEM
0027BC 47F0 5C56            027C8  2817+         B     BCDSCAN5 PICTURE NOT REPLACING ITEM
0027C0 9101 747F      03FF1        2818+BCDSCAN4 TM    MISCSW,FNDALPHA IS ALPHABETIC IN WORD
0027C4 4710 5C3A            027AC  2819+         BC    ALLON,BCDSCAN2 VALID BCD
0027C8 4188 0004            00004  2820+BCDSCAN5 LA    L1,DX4(L1) SET UP NON-BCD RETURN
0027CC 47F0 5C3A            027AC  2821+         B     BCDSCAN2 RETURN
                                   2822+*
                                   2823+*
0027D0 D200 A000 2000 00000 00000  2824+BCDREP   MVC   DX0(LX0,W1),DX0(C2) MOVE TO WORKAREA
0027D6 D500 3000 E000 00000 00000  2825+ASETCOMP CLC   DX0(LX0,C3),DX0(C4) COMPARE BCD NAME TO TABLE ARGUMENT
                                   2826+*
                                   2827+*
                                   2828+*  THE FOLLOWING ROUTINE CHECKS THE CURRENT WORD AGAINST THE
                                   2829+*  REPLACING TABLE (TIB29) TO SEE IF REPLACEMENT IS NECESSARY
0027DC 4130 70FB            03C6D  2830+ASETSEEK LA    C3,SIZE ADDR OF WORD SIZE
0027E0 18EB                        2831+ASETSEK1 LR    C4,W2 TABLE ADDR TO REG
0027E2 1B11                        2832+         SR    C1,C1 CLEAR REG
0027E4 431E 0000            00000  2833+ASETSEK2 IC    C1,DX0(C4) SIZE OF BCD NAME IN TABLE
0027E8 4410 5C64            027D6  2834+         EX    C1,ASETCOMP TAB ARG = BCD NAME
0027EC 4770 5CA2            02814  2835+         BNE   ASETNFND NOT FOUND
0027F0 4121 E001            00001  2836+         LA    C2,DX1(C1,C4) ADDR OF TAB FUNCTION CNT BYTE
0027F4 4312 0000            00000  2837+         IC    C1,DX0(C2) SIZE OF TAB FUNCTION
0027F8 4210 70FB            03C6D  2838+         STC   C1,SIZE SIZE OF REPLACED WORD IN SIZE
0027FC 4122 0001            00001  2839+         LA    C2,DX1(C2) ADDR OF FUNCTION
002800 9601 747C      03FEE        2840+ASETSEK3 OI    COPYSW,REPHIT INDICATE REPLACED WORD
002804 9140 7482      03FF4        2841+         TM    MISCSW4,LASTWRD LAST WORD
002808 4710 5BC4            02736  2842+         BC    ALLON,ASTNTAB2 YES - PROCESS LAST WORD
00280C 4580 5F32            02AA4  2843+         BAL   L1,CGETWRD GET NEXT WORD
002810 47F0 5BC4            02736  2844+         B     ASTNTAB2 ENTER INTO WORKAREA
                                   2845+*
002814 4910 7484            03FF6  2846+ASETNFND CH    C1,HZERO END OF TABLE
002818 4770 5CBA            0282C  2847+         BNE   ASETNEND NO - SEARCH AGAIN
00281C 4313 0000            00000  2848+         IC    C1,DX0(C3) SIZE OF BCD NAME
002820 9140 7482      03FF4        2849+         TM    MISCSW4,LASTWRD LAST WORD TO BE PROCESSED
002824 4710 5BC4            02736  2850+         BC    ALLON,ASTNTAB2 YES - ENTER INTO WORKAREA
002828 47F0 5BBA            0272C  2851+         B     ASETNTAB GET A WORD
                                   2852+*
00282C 41E1 E001            00001  2853+ASETNEND LA    C4,DX1(C1,C4) ADDR OF FUNCTION SIZE BYTE
002830 431E 0000            00000  2854+         IC    C1,DX0(C4) SIZE OF FUNCTION
002834 41E1 E001            00001  2855+         LA    C4,DX1(C1,C4) LOC OF NXT ARG IN TAVLE
PH01   IKFCBL01                                                                                                PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002838 47F0 5C72            027E4  2856+         B     ASETSEK2 CONTINUE TABLE SEARCH
                                   2857+*
                                   2858+*  THE FOLLOWING ROUTINE SETS UP THE DEBUG CARD FOR POSSIBLE
                                   2859+*  REPLACEMENT OF THE PROC NAME. BCDSCAN SETS UP WORD POINTER
00283C 9680 7481      03FF3        2860+ASETDBUG OI    MISCSW3,COBCLAUS DEBUG MAY HAVE NUMERIC PROC NAME
002840 5920 708E            03C00  2861+         C     C2,COLUMN8 DOES PROC NAME BEGIN AFTER COL8
002844 4780 5BA0            02712  2862+         BE    ASETCPY4 COL8 - DEBUG CARD OK
002848 4720 5D02            02874  2863+         BH    ASTDBUG2 AFTER COL 8 - MOVE DEBUG TO WORK
00284C 41E0 70FC            03C6E  2864+         LA    C4,WORD ADDR OF WORD
002850 4830 70FA            03C6C  2865+         LH    C3,SIZEWORD BEFORE COL 8 -  MUST BE COL7
002854 0630                        2866+         BCTR  C3,C0 GET PROC NAME SIZE
002856 4230 5CE9            0285B  2867+         STC   C3,ASTDBUG1+DX1 AND MOVE TO
00285A D200 2001 E000 00001 00000  2868+ASTDBUG1 MVC   DX1(LX0,C2),DX0(C4) COL8
002860 9240 2000      00000        2869+         MVI   DX0(C2),BLANK BLANK OUT COL7 SO WONT SHOW
002864 4122 0001            00001  2870+         LA    C2,DX1(C2) IN PRINTOUT
002868 5020 709A            03C0C  2871+         ST    C2,NBLKPTR INCREMENT WORD POINTER
00286C 4144 0001            00001  2872+         LA    S1,DX1(S1) INCREMENT INPUT PTR
002870 47F0 5BA0            02712  2873+         B     ASETCPY4 DEBUG CARD READY
002874 1832                        2874+ASTDBUG2 LR    C3,C2 SAVE NONBLANK PTR
002876 5B30 708E            03C00  2875+         S     C3,COLUMN8 DISPLACEMENT FROM COL8
00287A 0630                        2876+         BCTR  C3,C0 DECREMENT FOR EXECUTE
00287C 5820 708E            03C00  2877+         L     C2,COLUMN8 GET COL8 PTR
002880 4430 5C5E            027D0  2878+         EX    C3,BCDREP MOVE THAT PART OF 'DEBUG' PAST
002884 4123 2001            00001  2879+         LA    C2,DX1(C3,C2) COL8 TO WORK - RESTORE NBLKPTR
002888 47F0 5BA0            02712  2880+         B     ASETCPY4 DEBUG READY
                                   2881+*
                                   2882+*  THE FOLLOWING ROUTINE REPLACES DATA LEVEL NAME IN THE LIBRARY
                                   2883+*  WITH THE DATANAME SPECIFIED ON THE COPY STATEMENT
00288C 4830 718C            03CFE  2884+ASETLEV  LH    C3,LEVINDX GET LEVEL TABLE INDEX
002890 41E3 0001            00001  2885+         LA    C4,DX1(C3) INCREMENT FOR NEXT TIME THIS RTN
002894 40E0 718C            03CFE  2886+         STH   C4,LEVINDX SAVE NEW INDEX
002898 8930 0002            00002  2887+         SLL   C3,LX2 MULTIPLY INDEX BY FOUR
00289C 5833 5DBE            02930  2888+         L     C3,LEVTAB(C3) ADDR OF LEVEL TABLE
0028A0 07F3                        2889+         BR    C3 GET RTN ADDR -BRANCH
                                   2890+*
0028A2 D501 70FC 750A 03C6E 0407C  2891+ASETL1   CLC   WORD(L'LEVEL01),LEVEL01 IS IT 01
0028A8 4780 5BB2            02724  2892+         BE    ASETSCN1 RESET C2 - MOVE TO WORK
0028AC D500 70FC 7E5C 03C6E 049CE  2893+         CLC   WORD(L'LEVEL1),LEVEL1 IS IT 01
0028B2 4780 5BB2            02724  2894+         BE    ASETSCN1 RESET C2 - MOVE TO WORK
0028B6 D501 70FC 750D 03C6E 0407F  2895+         CLC   WORD(L'LEV77),LEV77 IS IT 77
0028BC 4780 5BB2            02724  2896+         BE    ASETSCN1 RESET C2 - MOVE TO WORK
0028C0 94BF 7480      03FF2        2897+ASETEST  NI    MISCSW2,FF-LEV1SW OFF LEVEL ITEM INDICATOR
0028C4 D701 718C 718C 03CFE 03CFE  2898+         XC    LEVINDX(LX2),LEVINDX REINIT LEVEL INDEX
0028CA 47F0 5BB2            02724  2899+         B     ASETSCN1 CONTINUE PROCESSING
                                   2900+*
0028CE 4520 5370            01EE2  2901+ASETL2   BAL   C2,DNM0 CHECK VALID DNM
0028D2 47F0 5D4E            028C0  2902+         B     ASETEST INVALID
0028D6 951E 70FB      03C6D        2903+         CLI   SIZE,K30 DOES WORD EXCEED 30 CHARACTERS
0028DA 4720 5D4E            028C0  2904+         BH    ASETEST INVALID
0028DE 4120 7286            03DF8  2905+         LA    C2,DATANAM1 ADDR OF REPLACING DNM
0028E2 9120 747F      03FF1        2906+         TM    MISCSW,REDEF REDEFINES SPECIFIED
0028E6 4780 5D80            028F2  2907+         BC    ALLOFF,ASETL21 NO - JUST REPLACE DNM
0028EA 9610 747F      03FF1        2908+         OI    MISCSW,DUMMYGET DONT GETWORD - MUST PROCESS REDEF
0028EE 47F0 5D8A            028FC  2909+         B     ASETL22 CONTINUE
0028F2 94BF 7480      03FF2        2910+ASETL21  NI    MISCSW2,FF-LEV1SW OFF LEVEL ITEM INDICATOR
PH01   IKFCBL01                                                                                                PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0028F6 D701 718C 718C 03CFE 03CFE  2911+         XC    LEVINDX(LX2),LEVINDX REINIT LEVEL INDEX
0028FC 1B11                        2912+ASETL22  SR    C1,C1 CLEAR REG
0028FE 4312 0000            00000  2913+         IC    C1,DX0(C2) LENGTH OF REPLACING DNM
002902 4122 0001            00001  2914+         LA    C2,DX1(C2) PTR TO DNM
002906 47F0 5C8E            02800  2915+         B     ASETSEK3 MOVE TO WORKAREA
                                   2916+*
00290A 9610 747F      03FF1        2917+ASETL3   OI    MISCSW,DUMMYGET SET DUMMYGET FOR DATANAM2 REP
00290E 4120 7B11            04683  2918+         LA    C2,REDEFINE ADDR OF WORD
002912 4110 0009            00009  2919+         LA    C1,LX9 LENGTH OF WORD
002916 47F0 5C8E            02800  2920+         B     ASETSEK3 MOVE TO WORKAREA
                                   2921+*
00291A 94EF 747F      03FF1        2922+ASETL4   NI    MISCSW,FF-DUMMYGET MAKE SURE GETWORD - REDEF COMPLETE
00291E 4120 72A5            03E17  2923+         LA    C2,DATANAM2 ADDR OF REDEFINED DNM
002922 94BF 7480      03FF2        2924+         NI    MISCSW2,FF-LEV1SW OFF LEVEL ITEM INDICATOR
002926 D701 718C 718C 03CFE 03CFE  2925+         XC    LEVINDX(LX2),LEVINDX REINIT LEVEL TABLE INDEX
00292C 47F0 5D8A            028FC  2926+         B     ASETL22 MOVE TO WORKAREA
                                   2927+*
002930 000028A2                    2928+LEVTAB   DC    A(ASETL1) ADDR OF LEVEL RTN
002934 000028CE                    2929+         DC    A(ASETL2) ADDR OF DNM1 RTN
002938 0000290A                    2930+         DC    A(ASETL3) ADDR OF REDEF RTN
00293C 0000291A                    2931+         DC    A(ASETL4) ADDR OF DNM2 RTN
                                   2932+*
                                   2933+*
                                   2934+*   THE FOLLOWING ROUTINE WILL SET UP ALTERNATE WORKAREAS
                                   2935+*   IF THE FIRST WORKAREA IS FILLED IN PROCESSING A CARD.
002940 94EF 7481      03FF3        2936+ASETSIZ1 NI    MISCSW3,FF-REPQUOT INIT CONT QUOTE SW
002944 9101 747C      03FEE        2937+         TM    COPYSW,REPHIT TRYING TO FIT A REPLACING WORD
002948 4710 5E06            02978  2938+         BC    ALLON,ASETSIZE GET NEW WORKAREA
00294C 1AC1                        2939+         AR    W3,C1 GET AREA LEFT BY ADDING SIZE BACK
00294E 4810 718E            03D00  2940+         LH    C1,SAVSIZ GET ACTUAL WORD SIZE
002952 1BC1                        2941+         SR    W3,C1 DOES ACTUAL WORD FIT IN WORKAREA
002954 4740 5DEE            02960  2942+         BM    ASETSIZP CHECK FOR CONT PERIOD
002958 9601 747C      03FEE        2943+         OI    COPYSW,REPHIT SET INDICATOR TO UP WORK PTR
00295C 47F0 5BCA            0273C  2944+         B     ASTNTABX AFTER MOVING WORD TO WORK
002960 9501 718F      03D01        2945+ASETSIZP CLI   SAVSIZ+DX1,K1 LENGTH OF ONE
002964 4770 5E06            02978  2946+         BNE   ASETSIZE NO - CONTINUE
002968 954B 2000      00000        2947+         CLI   DX0(C2),PERIOD IS IT PERIOD
00296C 4780 5ED8            02A4A  2948+         BE    ASIZMOV1 SET CONTINUATION
002970 955D 2000      00000        2949+         CLI   DX0(C2),RPAREN IS IT RPAREN
002974 4780 5ED8            02A4A  2950+         BE    ASIZMOV1 SET CONTINUATION
002978 947F 7482      03FF4        2951+ASETSIZE NI    MISCSW4,FF-CONTSW INIT CONTINUATION SWITCH
00297C 41C0 003D            0003D  2952+         LA    W3,DX61 SIZE OF WORKAREA
002980 191C                        2953+         CR    C1,W3 IS WORD SIZE GREATER THAN WORK
002982 47D0 5E18            0298A  2954+         BNH   ASETSIZ2 NO - CONTINUE
002986 9680 7482      03FF4        2955+         OI    MISCSW4,CONTSW SET CONTINUATION SWITCH
00298A 1B33                        2956+ASETSIZ2 SR    C3,C3 CLEAR REG
00298C 4330 74C1            04033  2957+         IC    C3,REPINDX GET BUFFER TABLE INDEX
002990 8930 0002            00002  2958+         SLL   C3,DX2 MULTIPLY INDEX BY 4
002994 58E3 5F22            02A94  2959+         L     C4,CBUFTAB(C3) ADDR OF BUF RTN TO PROCESS
002998 8830 0002            00002  2960+         SRL   C3,DX2 RESET INDEX
00299C 4133 0001            00001  2961+         LA    C3,DX1(C3) INCREMENT INDEX
0029A0 4230 74C1            04033  2962+         STC   C3,REPINDX AND SAVE
0029A4 07FE                        2963+         BR    C4 BRANCH TO RTN
                                   2964+*
0029A6 41A0 73BA            03F2C  2965+ASETSIZ3 LA    W1,REPWRK2+4 ADDR OF COL 12 WORK2
PH01   IKFCBL01                                                                                                PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0029AA 9601 7481      03FF3        2966+         OI    MISCSW3,REPBUF2 INDICATE 2ND WORK BEING USED
0029AE D500 2000 74C4 00000 04036  2967+         CLC   DX0(LX1,C2),LITSIGN ALPHA LITERAL
0029B4 4770 5EA4            02A16  2968+         BNE   ASIZMOVE MOVE TO WORK
0029B8 9180 7482      03FF4        2969+         TM    MISCSW4,CONTSW IS CONTINUATION NECESSARY
0029BC 4780 5E52            029C4  2970+         BC    ALLOFF,ASETSIZD NO - CONTINUE
0029C0 9610 7481      03FF3        2971+         OI    MISCSW3,REPQUOT CONTINUATION QUOTE WILL BE NEC
0029C4 41CC 0001            00001  2972+ASETSIZD LA    W3,DX1(W3) IS SIZE OF WORD
0029C8 191C                        2973+         CR    C1,W3 62 CHARACTERS
0029CA 4770 5E62            029D4  2974+         BNE   ASETSIZA NO - CONTINUE
0029CE 41AA 0001            00001  2975+         LA    W1,DX1(W1) ADJUST BUFFER PTR AND MOVE CNT
0029D2 06C0                        2976+         BCTR  W3,C0 SO QUOTE ONLY IS NOT IN NXT BUF
0029D4 06C0                        2977+ASETSIZA BCTR  W3,C0 DECREMENT TO ORIGINAL COUNT
0029D6 47F0 5EA4            02A16  2978+         B     ASIZMOVE MOVE TO WORK
                                   2979+*
0029DA 41A0 73FC            03F6E  2980+ASETSIZ4 LA    W1,REPWRK3+4 ADDR OF COL 12 WORK3
0029DE 9602 7481      03FF3        2981+         OI    MISCSW3,REPBUF3 INDICATE 3RD WORK BEING USED
0029E2 9110 7481      03FF3        2982+ASETSIZC TM    MISCSW3,REPQUOT SHOULD THERE BE CONT-QUOTE
0029E6 4780 5EA4            02A16  2983+         BC    ALLOFF,ASIZMOVE NO - MOVE TO WORK
0029EA 191C                        2984+         CR    C1,W3 IS WORD 61 CHARACTERS
0029EC 4770 5E88            029FA  2985+         BNE   ASETSIZB NO - CONTINUE
0029F0 9680 7482      03FF4        2986+         OI    MISCSW4,CONTSW SET CONTINUATION SWITCH
0029F4 41AA 0001            00001  2987+         LA    W1,DX1(W1) ADJUST BUFFER PTR AND MOVE CNT
0029F8 06C0                        2988+         BCTR  W3,C0 SO QUOTE ONLY IS NOT IN NXT BUF
0029FA D200 A000 74C4 00000 04036  2989+ASETSIZB MVC   DX0(LX1,W1),LITSIGN MOVE CONT QUOTE TO WORK
002A00 41AA 0001            00001  2990+         LA    W1,DX1(W1) UP WORK POINTER
002A04 06C0                        2991+         BCTR  W3,C0 DECREMENT MOVE COUNT
002A06 47F0 5EA4            02A16  2992+         B     ASIZMOVE MOVE TO WORK
                                   2993+*
002A0A 41A0 743E            03FB0  2994+ASETSIZ5 LA    W1,REPWRK4+4 ADDR OF COL 12 WORK4
002A0E 9604 7481      03FF3        2995+         OI    MISCSW3,REPBUF4 INDICATE 4TH WORK BEING USED
002A12 47F0 5E70            029E2  2996+         B     ASETSIZC CHECK FOR CONT QUOTE
                                   2997+*
002A16 9180 7482      03FF4        2998+ASIZMOVE TM    MISCSW4,CONTSW IS CONTINUATION SW,ON
002A1A 4780 5BC4            02736  2999+         BC    ALLOFF,ASTNTAB2 NO - CONTINUE SCAN
002A1E 06C0                        3000+         BCTR  W3,C0 DECREMENT FOR EXECUTE
002A20 44C0 5C5E            027D0  3001+         EX    W3,BCDREP MOVE TO WORKAREA
002A24 41CC 0001            00001  3002+         LA    W3,DX1(W3) RESTORE LENGTH
002A28 1B1C                        3003+         SR    C1,W3 REDUCE SIZE BY AMOUNT MOVED
002A2A 1A2C                        3004+         AR    C2,W3 INCREMENT PTF BY AMOUNT MOVED
002A2C 9110 7481      03FF3        3005+         TM    MISCSW3,REPQUOT PROCESSING CONT ALPHA NUM LIT
002A30 4710 5ED8            02A4A  3006+         BC    ALLON,ASIZMOV1 MOVE HYPHEN TO NEXT WORK
002A34 9540 2000      00000        3007+         CLI   DX0(C2),BLANK IS NXT CHAR TO MOVE A BLANK
002A38 4780 5E06            02978  3008+         BE    ASETSIZE YES-CONTINUE (NO HYPHEN)
002A3C 0620                        3009+         BCTR  C2,C0 LOOK AT LAST CHAR MOVED
002A3E 9540 2000      00000        3010+         CLI   DX0(C2),BLANK IS IT A BLANK
002A42 4122 0001            00001  3011+         LA    C2,DX1(C2) RESTORE PTF
002A46 4780 5E06            02978  3012+         BE    ASETSIZE YES-CONTINUE (NO HYPHEN)
002A4A 9501 74C1      04033        3013+ASIZMOV1 CLI   REPINDX,K1 CONT FOR WORK3
002A4E 4720 5EEC            02A5E  3014+         BH    ASIZMOV2 OR WORK4
002A52 4740 5EF4            02A66  3015+         BL    ASIZMOV3 OR WORK 2
002A56 9260 73F7      03F69        3016+         MVI   CPYHYP3,HYPHEN HYPHEN TO COL7 FOR WORK3
002A5A 47F0 5E06            02978  3017+         B     ASETSIZE CONTINUE
002A5E 9260 7439      03FAB        3018+ASIZMOV2 MVI   CPYHYP4,HYPHEN HYPHEN TO COL7 FOR WORK4
002A62 47F0 5E06            02978  3019+         B     ASETSIZE CONTINUE
002A66 9260 73B5      03F27        3020+ASIZMOV3 MVI   CPYHYP2,HYPHEN SET HYPHEN FOR WORK 2
PH01   IKFCBL01                                                                                                PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002A6A 47F0 5E06            02978  3021+         B     ASETSIZE CONTINUE
                                   3022+*
002A6E 9608 7481      03FF3        3023+ASETSIZ6 OI    MISCSW3,FULLBUFS INDICATE WORKAREAS FILLED
002A72 9012 70CA            03C3C  3024+         STM   C1,C2,C1C2SAVE SAVE POINTER REGS FOR CARD
002A76 D24F 7230 72D3 03DA2 03E45  3025+         MVC   LIBWORK(LX80),CPYWRK1 SAVE THE CURRENT LIB CARD
002A7C 47F0 5F12            02A84  3026+         B     ASETOUT SHIFT WORKAREAS
002A80 94BF 7482      03FF4        3027+ASETEXT  NI    MISCSW4,FF-LASTWRD RESET LAST WORD SWITCH
002A84 D240 72DA 7374 03E4C 03EE6  3028+ASETOUT  MVC   CPYWRK1+DX7(LX65),REPWRK WORKAREA TO GETCARD BUFF
002A8A D2C5 7373 73B5 03EE5 03F27  3029+         MVC   CPYHYP(LX198),CPYHYP2 SHIFT WORK AREAS
002A90 47F0 5B3C            026AE  3030+         B     ASETCPY2 WRITE STMTS AND GET NEW CARD
                                   3031+*
002A94 000029A6                    3032+CBUFTAB  DC    A(ASETSIZ3) RTN FOR REPWRK2
002A98 000029DA                    3033+         DC    A(ASETSIZ4) RTN FOR REPWRK3
002A9C 00002A0A                    3034+         DC    A(ASETSIZ5) RTN FOR REPWRK4
002AA0 00002A6E                    3035+         DC    A(ASETSIZ6) RTN TO CLEAN UP
                                   3036+*
                                   3037+*
                                   3038+*  THE FOLLOWING ROUTINE SETS THE CARD SURPRESS SW AND GETS A WORD
                                   3039+*  IF A NEW CARD MUST BE READ, GETWORD RETURNS WITHOUT GETTING THE
                                   3040+*  CARD AND TURNS OFF THE SWITCH. GET WORD SAVES W1,W2,W3 REGS.
002AA4 5080 70DE            03C50  3041+CGETWRD  ST    L1,ENAMSVL1 SAVE LINK REGISTER
002AA8 9012 70CA            03C3C  3042+         STM   C1,C2,C1C2SAVE SAVE WROD POINTER REGS
002AAC D201 718E 70FA 03D00 03C6C  3043+         MVC   SAVSIZ(LX2),SIZEWORD SAVE WORD SIZE
002AB2 9620 7481      03FF3        3044+         OI    MISCSW3,CDSURP SET GETCARD SURPRESS
002AB6 4580 6306            02E78  3045+         BAL   L1,GETWORD GET A WORD
002ABA 9812 70CA            03C3C  3046+         LM    C1,C2,C1C2SAVE RESTORE REGS
002ABE 9120 7481      03FF3        3047+         TM    MISCSW3,CDSURP NEED A NEW CARD
002AC2 4780 5F5A            02ACC  3048+         BC    ALLOFF,ASETEXIT YES - SET BUFFERS AND EXIT
002AC6 5880 70DE            03C50  3049+CGETWRD1 L     L1,ENAMSVL1 RESTORE LINK REG
002ACA 07F8                        3050+         BR    L1 RETURN
                                   3051+*
                                   3052+*  THE FOLLOWING ROUTINE GETS CONTROL WHEN WE HAVE REACHED THE END
                                   3053+*  OF THE CARD IMAGE IN GETWORD. IF SIZE=0, LASTWRD SWITCH IS SET
                                   3054+*  AND THE LAST WORD IS PROCESSED. IF SIZE NE 0, THE LAST WORD IS
                                   3055+*  EITHER CONTINUED OR IT ENDS IN COL 72, IN THIS CASE THE NEXT TO
                                   3056+*  LAST WORD IS PROCESSED. SINCE THE INPUT PTR IS PAST COL 72, THE
                                   3057+*  NEXT CALL TO GETWORD RETURNS A SIZE=0. THE LASTWORD IS THEN
                                   3058+*  PROCESSED.
002ACC 9140 7482      03FF4        3059+ASETEXIT TM    MISCSW4,LASTWRD HAS LAST WORD BEEN PROCESSED
002AD0 4710 5FF8            02B6A  3060+         BO    ASETEXTA YES - SEE IF CONT PERIOD
002AD4 9500 70FB      03C6D        3061+         CLI   SIZE,K0 CONT WORD OR WORD ENDING COL 72
002AD8 4770 6010            02B82  3062+         BNE   ASETEXT1 YES - BRANCH
002ADC 4830 718E            03D00  3063+         LH    C3,SAVSIZ IS ANYTHING IN THE WORKAREA
002AE0 1233                        3064+         LTR   C3,C3 OR ANYTHING TO BE MOVED
002AE2 4780 5B3C            026AE  3065+         BZ    ASETCPY2 NO - GET NEXT CARD
002AE6 9640 7482      03FF4        3066+         OI    MISCSW4,LASTWRD INDICATE LAST WORD
002AEA 9200 70FB      03C6D        3067+         MVI   SIZE,K0 STOPPER FOR SEARCH OF TABLE
002AEE 9101 747C      03FEE        3068+         TM    COPYSW,REPHIT IS CURRENT WORD BEING REPLACED
002AF2 4780 5F90            02B02  3069+         BC    ALLOFF,ASETEXTB NO - GET WORD
002AF6 9201 70FB      03C6D        3070+         MVI   SIZE,K1 MOVE PERIOD TO WORD SO
002AFA 924B 70FC      03C6E        3071+         MVI   WORD,PERIOD WORKAREA POINTER IS NOT
002AFE 47F0 5BC4            02736  3072+         B     ASTNTAB2 INCREMENTED IF CONTPER IS SET
002B02 4810 718E            03D00  3073+ASETEXTB LH    C1,SAVSIZ GET SIZE OF CURRENT WORD
002B06 4120 70FC            03C6E  3074+ASETEXTD LA    C2,WORD POINT TO WORD
002B0A 9110 7482      03FF4        3075+         TM    MISCSW4,CONTLIT IS LAST WORD A CONT LIT
PH01   IKFCBL01                                                                                                PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002B0E 4780 5BC4            02736  3076+         BC    ALLOFF,ASTNTAB2 NO - MOVE WORD TO WORK
002B12 19C1                        3077+         CR    W3,C1 DOES CONT LIT FIT IN WORKAREA
002B14 47B0 5FE8            02B5A  3078+         BNL   ASETEXTC YES - MOVE TO SAME RELATIVE POS
002B18 9502 74C1      04033        3079+         CLI   REPINDX,K2 IS THERE ANOTHER WORKAREA
002B1C 4720 5EFC            02A6E  3080+         BH    ASETSIZ6 TO PUT CONT LIT. NO - GET OUT
002B20 94EF 7481      03FF3        3081+         NI    MISCSW3,FF-REPQUOT INDICATE NO CONT QUOTE
002B24 94EF 7482      03FF4        3082+         NI    MISCSW4,FF-CONTLIT TURN OFF INDICATOR
002B28 41C0 003D            0003D  3083+         LA    W3,DX61 SIZE OF WORKAREA
002B2C 1BC1                        3084+         SR    W3,C1 SUBTRACT WORD SIZE
002B2E 41AC 70FC            03C6E  3085+         LA    W1,WORD(W3) SAME RELATIVE POS IN WORD
002B32 0610                        3086+         BCTR  C1,C0 DECREMENT FOR MOVE
002B34 4410 5C5E            027D0  3087+         EX    C1,BCDREP C2 HAS NBLKPTR OF WORD
002B38 9240 70FC      03C6E        3088+         MVI   WORD,BLANK MOVE A BLANK BEFORE WORD
002B3C 06C0                        3089+         BCTR  W3,C0 DECREMENT COUNT
002B3E 4110 003D            0003D  3090+         LA    C1,DX61 SIZE TO BE MOVED
002B42 4120 70FC            03C6E  3091+         LA    C2,WORD ADDR OF DATA TO MOVE
002B46 12CC                        3092+         LTR   W3,W3 MUST WE PAD WITH ANYMORE BLANKS
002B48 4780 5E06            02978  3093+         BZ    ASETSIZE NO - GET WORKAREA AND MOVE DATA
002B4C 41A2 0001            00001  3094+         LA    W1,DX1(C2) NEXT POS TO PAD WITH BLANKS
002B50 06C0                        3095+         BCTR  W3,C0 DECREMENT FOR EXECUTE
002B52 44C0 5C5E            027D0  3096+         EX    W3,BCDREP PAD WITH BLANKS
002B56 47F0 5E06            02978  3097+         B     ASETSIZE GET WORKAREA AND MOVE DATA
                                   3098+*
002B5A 94EF 7482      03FF4        3099+ASETEXTC NI    MISCSW4,FF-CONTLIT TURN OFF INDICATOR
002B5E 1BC1                        3100+         SR    W3,C1 SUBTRACT WORD SIZE
002B60 41AC A000            00000  3101+         LA    W1,DX0(W3,W1) SAME REL POS IN WORK AS BUFFER
002B64 18C1                        3102+         LR    W3,C1 SIZE OF CONT LIT
002B66 47F0 5BC4            02736  3103+         B     ASTNTAB2 C2 HAS NBLKPTR - MOVE TO WORK
002B6A 9120 7482      03FF4        3104+ASETEXTA TM    MISCSW4,CONTPER PERIOD AFTER CONT WORD
002B6E 4780 5F0E            02A80  3105+         BC    ALLOFF,ASETEXT NO
002B72 94DF 7482      03FF4        3106+         NI    MISCSW4,FF-CONTPER TURN OFF EOS INDICATOR
002B76 4110 0001            00001  3107+         LA    C1,DX1 SIZE OF PERIOD
002B7A 924B 70FC      03C6E        3108+         MVI   WORD,PERIOD PERIOD TO WORD
002B7E 47F0 5F94            02B06  3109+         B     ASETEXTD SET WORD PTR
                                   3110+*
002B82 D500 70FC 74C4 03C6E 04036  3111+ASETEXT1 CLC   WORD(LX1),LITSIGN IS WORD A LITERAL
002B88 4780 608C            02BFE  3112+         BE    ASETEXT7 INDICATE CONT LIT
002B8C 9560 7329      03E9B        3113+         CLI   CPYWRK2+DX6,HYPHEN IS THIS A CONTINUED WORD
002B90 4770 5F54            02AC6  3114+         BNE   CGETWRD1 NO  - RETURN
002B94 9240 7329      03E9B        3115+         MVI   CPYWRK2+DX6,BLANK BLANK OUT CONTINUATION
002B98 4130 7329            03E9B  3116+         LA    C3,CPYWRK2+DX6 ADDR OF COL 7 2ND BUFFER
002B9C 4133 0001            00001  3117+ASETEXT2 LA    C3,DX1(C3) NEXT COLUMN
002BA0 9540 3000      00000        3118+         CLI   DX0(C3),BLANK IS IT BLANK
002BA4 4780 602A            02B9C  3119+         BE    ASETEXT2 CONTINUE
002BA8 41E0 736B            03EDD  3120+         LA    C4,CPYWRK2+DX72 ADDR OF COL 73
002BAC 193E                        3121+         CR    C3,C4 COL 72 HIT
002BAE 47B0 5F54            02AC6  3122+         BNL   CGETWRD1 YES - RETURN
002BB2 48E0 70FA            03C6C  3123+         LH    C4,SIZEWORD GET SIZE OF WORD IN WORD
002BB6 188E                        3124+         LR    L1,C4 GET WORD SIZE
002BB8 41EE 70FC            03C6E  3125+         LA    C4,WORD(C4) POINT TO END OF WORD
002BBC 9540 3000      00000        3126+ASETEXT3 CLI   DX0(C3),BLANK POINTING TO BLANK
002BC0 4780 6084            02BF6  3127+         BE    ASETEXT6 END OF CONT WORD
002BC4 D200 E000 3000 00000 00000  3128+         MVC   DX0(LX1,C4),DX0(C3) MOVE TO CHARACTER TO WORD
002BCA 9240 3000      00000        3129+         MVI   DX0(C3),BLANK BLANK OUT BUFFER 2
002BCE 954B E000      00000        3130+         CLI   DX0(C4),PERIOD WAS CHARACTER A PERIOD
PH01   IKFCBL01                                                                                                PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002BD2 4770 6074            02BE6  3131+         BNE   ASETEXT4 NO - CONTINUE
002BD6 9540 3001      00001        3132+         CLI   DX1(C3),BLANK IS IT FOLLOWED BY A BLANK
002BDA 4770 6074            02BE6  3133+         BNE   ASETEXT4 NO - CONTINUE
002BDE 9620 7482      03FF4        3134+         OI    MISCSW4,CONTPER END OF SENTENCE
002BE2 47F0 6084            02BF6  3135+         B     ASETEXT6 SAVE SIZE
002BE6 4133 0001            00001  3136+ASETEXT4 LA    C3,DX1(C3) UP BUFFER PTR
002BEA 4188 0001            00001  3137+         LA    L1,DX1(L1) UP COUNT
002BEE 41EE 0001            00001  3138+         LA    C4,DX1(C4) UP WORD PTR
002BF2 47F0 604A            02BBC  3139+         B     ASETEXT3 CONTINUE
002BF6 4280 70FB            03C6D  3140+ASETEXT6 STC   L1,SIZE SAVE SIZE
002BFA 47F0 5F54            02AC6  3141+         B     CGETWRD1 RETURN
002BFE 9610 7482      03FF4        3142+ASETEXT7 OI    MISCSW4,CONTLIT INDICATE CONTINUED LITERAL
002C02 47F0 5F54            02AC6  3143+         B     CGETWRD1 RETURN
PH01   IKFCBL01                                                                                                PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3145+**********************************************************************
                                   3146+*
                                   3147+*                             CONNECTOR TABLE
                                   3148+*
                                   3149+*              2ND HALFBYTE OF 1ST BYTE IN STRING ENTRY CONTAINS A
                                   3150+*              POINTER TO FALSE TEST ROUTINE IN THIS TABLE
                                   3151+*
                                   3152+*
                                   3153+***********************************************************************
002C06                             3154+CONTAB   EQU   * STARTING ADDR
002C06 515E                        3155+         DC    S(NEXT) 00   OPTIONAL WORD
002C08 53EA                        3156+         DC    S(CHGPTR1) 01   REQ COND, PHASE 1 WILL DIAGNOSE
002C0A 60A8                        3157+         DC    S(IGNORE) 02   E-LEVEL, 0 INSERT SKIP TO KEYWORD
002C0C 60B0                        3158+         DC    S(IGNORE1) 03   E-LEVEL, 1 INSERT SKIP TO KEYWORD
002C0E 60B8                        3159+         DC    S(IGNORE2) 04   E-LEVEL, 2 INSERT SKIP TO KEYWORD
                                   3160+***********************************************************************
                                   3161+*
                                   3162+*                             ERROR RECOVERY ROUTINES
                                   3163+*
                                   3164+***********************************************************************
002C10 D200 60CF B003 02C41 00003  3165+IGNOREB  MVC   MSGNO,K3(W2) MOVE MSG NUMBER TO DIAGNOSTIC CALL
002C16 47F0 60CA            02C3C  3166+         B     DIAG123 GO TO DIAGNOSTIC CALL
                                   3167+*
002C1A 9220 60CE      02C40        3168+IGNORE   MVI   LEVINSRT,X'20' E-LEVEL, NO INSERTS
002C1E 47F0 60BC            02C2E  3169+         B     IGNOREA FINISH DIAGNOSTIC CALL
                                   3170+*
002C22 9221 60CE      02C40        3171+IGNORE1  MVI   LEVINSRT,X'21' E-LEVEL, ONE INSERT
002C26 47F0 60BC            02C2E  3172+         B     IGNOREA FINISH DIAGNOSTIC CALL
                                   3173+*
002C2A 9224 60CE      02C40        3174+IGNORE2  MVI   LEVINSRT,X'24' E-LEVEL, TWO INSERTS (2ND IS COPY)
                                   3175+*
002C2E 9540 B000      00000        3176+IGNOREA  CLI   DX0(W2),K80 TEST FOR RESERVED WORD TYPE ENTRY
002C32 47B0 609E            02C10  3177+         BNL   IGNOREB NOT A RESERVED TYPE
002C36 D200 60CF B005 02C41 00005  3178+         MVC   MSGNO,K5(W2) MOVE MSG NUMBER TO DIAGNOSTIC CALL
002C3C 4580 61F6            02D68  3179+DIAG123  BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
002C40                             3180+LEVINSRT DS    1C LEVEL AND NUMBER OF INSERTS
002C41                             3181+MSGNO    DS    1C MESSAGE NUMBER
                                   3182+*
002C42 9400 747C      03FEE        3183+         NI    COPYSW,K0 INDICATE COPY NOT IN EFFECT
002C46 9400 747D      03FEF        3184+         NI    REPWD2SW,K0 REINITIALIZE WORD2 INDICATORS
002C4A 9640 7483      03FF5        3185+         OI    MISCSW5,BADCOPY INDICATE BAD COPY STATEMENT
002C4E 4580 6306            02E78  3186+IGNOREC  BAL   L1,GETWORD COPY INVALID - GET A WORD
002C52 9102 747E      03FF0        3187+         TM    ASWITCH,MARGA MARGIN A WORD
002C56 4710 53DA            01F4C  3188+         BC    ALLON,CHGPTR2 RETURN TO STRING PROCESSING
002C5A 9501 70FB      03C6D        3189+         CLI   SIZE,K1 UNTIL THE END
002C5E 4770 60DC            02C4E  3190+         BNE   IGNOREC OF SENTENCE
002C62 954B 70FC      03C6E        3191+         CLI   WORD,PERIOD WHEN END OF
002C66 4770 60DC            02C4E  3192+         BNE   IGNOREC SENTENCE IS FOUND
002C6A 4580 67D8            0334A  3193+         BAL   L1,GETCARD GET NEXT CARD
002C6E 4580 6306            02E78  3194+         BAL   L1,GETWORD GET A WORD
002C72 47F0 53DA            01F4C  3195+         B     CHGPTR2 RETURN TO STRING PROCESSING
PH01   IKFCBL01                                                                                                PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3197+****                          INTERPRETIVE STRINGS                 ****
                                   3198+*
                                   3199+*                   EACH ENTRY IS MADE UP OF 1 TO 6 BYTES
                                   3200+*                   WHICH LOOK AS FOLLOWS
                                   3201+*
                                   3202+*                   / 1   / 2   / 3 4   / 5   / 6   /
                                   3203+*                  /X'JK'/X'LL'/X'MNNN'/X'PP'/X'QQ'/
                                   3204+*
                                   3205+*                   WHERE
                                   3206+*                   J = DISPLACEMENT INTO TESTTAB -LIST OF ROUTINES
                                   3207+*                       WHICH DO TESTS ON WORDS
                                   3208+*                   K = DISPLACEMENT INTO CONNECTOR TABLE (CONTAB)
                                   3209+*                       IF TEST PROVES FALSE, CONTAB ADDRESS
                                   3210+*                       DETERMINES WHETHER ALLOWABLE AND WHERE TO GO
                                   3211+*                       TO DO THE SYSTEM ACTION ROUTINE
                                   3212+*                       THIS HALFBYTE HAS SPECIAL MEANING FOR THE
                                   3213+*                       CHANGE-STRING-POINTER ROUTINE (J = 3)
                                   3214+*                   LL = DISPLACEMENT INTO ACTION TABLE (ACTTAB)
                                   3215+*                       IF TEST IS TRUE, ACTTAB GIVES ADDRESS OF
                                   3216+*                       ROUTINE TO BRANCH TO
                                   3217+*                   (MNNN ARE OPTIONAL BYTES, MISSING IF TEST IS NOT
                                   3218+*                   FOR A RESERVED WORD)
                                   3219+*                   M = LENGTH OF WORD (2 THRU F)
                                   3220+*                  NNN= DISPLACEMENT INTO RESERVED WORD LIST FOR
                                   3221+*                       COMPARE OF CURRENT WORD
                                   3222+*                   PP= IF NON ZERO IT IS POINTER TO NEXT STRING
                                   3223+*                       IF ZERO, USE NEXT STRING IN LINE
                                   3224+*                   (QQ IS AN OPTIONAL BYTE, MISSING IF FAILURE TO
                                   3225+*                    SATISFY THE TEST DOES NOT CONSTITUTE AN ERROR
                                   3226+*                    FOR A COPY STATEMENT)
                                   3227+*                   QQ= ERROR BYTE WHICH CONTAINS THE MESSAGE NUMBER
                                   3228+*                       FOR DIAGNOSTICS IF THE TEST ROUTINE WAS NOT
                                   3229+*                       SATISFIED
                                   3230+*
                                   3231+*                   THE CHANGE-STRING-POINTER ROUTINE IS A ONE
                                   3232+*                   BYTE ENTRY
                                   3233+*
                                   3234+*                   REFERENCE TO THE LAST STRING LABEL MUST NOT
                                   3235+*                   EXCEED X'FF' SINCE PP= 1-BYTE.IF THE STRING GROWS
                                   3236+*                   SUCH THAT A POINTER TO THE LAST LABEL EXCEEDS
                                   3237+*                   X'FF', A SPLITTING OF THE STRING IS NECESSARY.
                                   3238+*                   THIS REQUIRES A CHANGE TO THE CALCACT4 ROUTINE
                                   3239+*                   WHICH GETS THE BEGINNING OF THE CURRENT STRING
                                   3240+*                   TO DETERMINE WHICH ENTRY TO BRANCH TO WITHIN
                                   3241+*                   THE STRING. ALSO THE STRING WITHIN WHICH
                                   3242+*                   PROCESSING IS TAKING PLACE AT ANY TIME, SHOULD
                                   3243+*                   HAVE HAD ITS BEGINNING ADDRESS SAVED IN ORDER
                                   3244+*                   TO REFERENCE ANY LABELS WITHIN THAT STRING
                                   3245+***********************************************************************
002C76 00                          3246+ID10     DC    X'00' MARGIN A TEST, OPTIONAL
002C77 00                          3247+         DC    AL1(TSUBDC-ACTTAB) SUBSTITUTE DATE-COMPILED ROUTINE
002C78 D893                        3248+         DC    AL2(L13+DATECOMP-COBOLWDS) DISP OF DATE-COMPILED LN 13
002C7A 00                          3249+         DC    X'00' DUMMY RETURN - SET BY ACTION RTN

002C7B 20                          3251+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
PH01   IKFCBL01                                                                                                PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002C7C 02                          3252+         DC    AL1(TREMARKS-ACTTAB) SKIP REMARKS SECTION
002C7D 74C8                        3253+         DC    AL2(L7+REMARKS-COBOLWDS) DISP OF REMARKS - LENGTH 7
002C7F 00                          3254+         DC    X'00' DUMMY RETURN - SET BY ACTION RTN

002C80 20                          3256+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002C81 06                          3257+         DC    AL1(TSVPTR-ACTTAB) SAVE STRING POINTER
002C82 F976                        3258+         DC    AL2(L15+SOURCECM-COBOLWDS) DISP OF SOURCE-COMPUTER L15
002C84 6A                          3259+         DC    AL1(ID20-ID10) RETURN TO STRING ID20

002C85 20                          3261+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002C86 06                          3262+         DC    AL1(TSVPTR-ACTTAB) SAVE STRING POINTER
002C87 F956                        3263+         DC    AL2(L15+OBJECTCM-COBOLWDS) DISP OF OBJECT-COMPUTER L15
002C89 6A                          3264+         DC    AL1(ID20-ID10) RETURN TO STRING ID20

002C8A 20                          3266+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002C8B 06                          3267+         DC    AL1(TSVPTR-ACTTAB) SAVE STRING POINTER
002C8C D8BD                        3268+         DC    AL2(L13+SPECIALN-COBOLWDS) DISP OF SPECIAL-NAMES LN 13
002C8E 6A                          3269+         DC    AL1(ID20-ID10) RETURN TO STRING ID20

002C8F 20                          3271+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002C90 06                          3272+         DC    AL1(TSVPTR-ACTTAB) SAVE STRING POINTER
002C91 D8A1                        3273+         DC    AL2(L13+DECPOINT-COBOLWDS) DISP OF DECIMAL-POINT  LN 13
002C93 75                          3274+         DC    AL1(ID30-ID10) RETURN TO STRING ID30

002C94 20                          3276+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002C95 06                          3277+         DC    AL1(TSVPTR-ACTTAB) SAVE STRING POINTER
002C96 C7E7                        3278+         DC    AL2(L12+FILECON-COBOLWDS) DISP OF FILE-CONTROL LN 12
002C98 6A                          3279+         DC    AL1(ID20-ID10) RETURN TO STRING ID20

002C99 20                          3281+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002C9A 04                          3282+         DC    AL1(TNOWPTR-ACTTAB) SAVE THIS PTR-MAY BE SELECT AGAIN
002C9B 63B3                        3283+         DC    AL2(L6+SELECT-COBOLWDS) DISP OF SELECT - LENGTH 6
002C9D 80                          3284+         DC    AL1(ID40-ID10) RETURN TO STRING ID40

002C9E 20                          3286+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002C9F 06                          3287+         DC    AL1(TSVPTR-ACTTAB) SAVE STRING POINTER
002CA0 B75E                        3288+         DC    AL2(L11+IOCONTRL-COBOLWDS) DISP OF I-O-CONTROL LN 11
002CA2 6A                          3289+         DC    AL1(ID20-ID10) RETURN TO STRING ID20

002CA3 20                          3291+ID12     DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CA4 0C                          3292+         DC    AL1(TFDPTR-ACTTAB) SAVE THIS PTR- MAY BE FD,SD,01 AGAIN
002CA5 200F                        3293+         DC    AL2(L2+FD-COBOLWDS) DISP OF FD - LENGTH 2
002CA7 85                          3294+         DC    AL1(ID50-ID10) RETURN TO STRING ID50

002CA8 20                          3296+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CA9 0E                          3297+         DC    AL1(TSDPTR-ACTTAB) SAVE LAST ENTRY PTR (FD ENTRY)
002CAA 203C                        3298+         DC    AL2(L2+SD-COBOLWDS) DISP OF SD - LENGTH 2
002CAC 85                          3299+         DC    AL1(ID50-ID10) RETURN TO STRING ID50

002CAD 20                          3301+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CAE 16                          3302+         DC    AL1(TLEVEL-ACTTAB) DISP OF LEVEL 01,77 OR 1 ROUTINE
002CAF 2045                        3303+         DC    AL2(L2+LEVEL01-COBOLWDS) DISP OF 01 - LENGTH 2
002CB1 85                          3304+         DC    AL1(ID50-ID10) RETURN TO STRING ID50

002CB2 20                          3306+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
PH01   IKFCBL01                                                                                                PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002CB3 16                          3307+         DC    AL1(TLEVEL-ACTTAB) DISP OF LEVEL 01,77 OR 1 ROUTINE
002CB4 1997                        3308+         DC    AL2(LN+LEVEL1-COBOLWDS) DISP OF 1 - LENGTH 1
002CB6 85                          3309+         DC    AL1(ID50-ID10) RETURN TO STRING ID50

002CB7 20                          3311+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CB8 10                          3312+         DC    AL1(TWSPTR-ACTTAB) SAVE PTR, GET KEYWORD, SET WRSTSW
002CB9 F986                        3313+         DC    AL2(L15+WORKSTOR-COBOLWDS) DISP OF WORKING-STORAGE L 15
002CBB 00                          3314+         DC    X'00' RETURN TO FOLLOWING STRING

002CBC 20                          3316+ID15     DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CBD 16                          3317+         DC    AL1(TLEVEL-ACTTAB) DISP OF LEVEL 77 ROUTINE
002CBE 2048                        3318+         DC    AL2(L2+LEV77-COBOLWDS) DISP OF 77 - LENGTH 2
002CC0 8E                          3319+         DC    AL1(ID60-ID10) RETURN TO STRING ID60          52763

002CC1 20                          3321+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CC2 16                          3322+         DC    AL1(TLEVEL-ACTTAB) DISP OF LEVEL 01,77 OR 1 ROUTINE
002CC3 2045                        3323+         DC    AL2(L2+LEVEL01-COBOLWDS) DISP OF 01 - LENGTH 2
002CC5 8E                          3324+         DC    AL1(ID60-ID10) RETURN TO STRING ID60

002CC6 20                          3326+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CC7 16                          3327+         DC    AL1(TLEVEL-ACTTAB) DISP OF LEVEL 01,77 OR 1 ROUTINE
002CC8 1997                        3328+         DC    AL2(LN+LEVEL1-COBOLWDS) DISP OF 1 - LENGTH 1
002CCA 8E                          3329+         DC    AL1(ID60-ID10) RETURN TO STRING ID60

002CCB 20                          3331+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CCC 12                          3332+         DC    AL1(TRDPTR-ACTTAB) SAVE THIS PTR- MAY BE RD,01 AGAIN
002CCD 2033                        3333+         DC    AL2(L2+RD-COBOLWDS) DISP OF RD - LENGTH 2
002CCF 9C                          3334+         DC    AL1(ID70-ID10) RETURN TO STRING ID70

002CD0 20                          3336+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CD1 16                          3337+         DC    AL1(TLEVEL-ACTTAB) DISP OF LEVEL 01,77 OR 1 ROUTINE
002CD2 2045                        3338+         DC    AL2(L2+LEVEL01-COBOLWDS) DISP OF 01 - LENGTH 2
002CD4 AF                          3339+         DC    AL1(ID75-ID10) RETURN TO STRING ID75

002CD5 20                          3341+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CD6 16                          3342+         DC    AL1(TLEVEL-ACTTAB) DISP OF LEVEL 01,77 OR 1 ROUTINE
002CD7 1997                        3343+         DC    AL2(LN+LEVEL1-COBOLWDS) DISP OF 1 - LENGTH 1
002CD9 AF                          3344+         DC    AL1(ID75-ID10) RETURN TO STRING ID75

002CDA 20                          3346+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CDB 1A                          3347+         DC    AL1(TPROC-ACTTAB) PROCEDURE DIVISION ACTION
002CDC 9638                        3348+         DC    AL2(L9+PROCED-COBOLWDS) DISP OF PROCEDURE - LENGTH 9
002CDE B8                          3349+         DC    AL1(ID80-ID10) RETURN TO STRING ID80

002CDF 31                          3351+         DC    X'31' GET KEYWORD AND CHANGE STRING PTR

002CE0 20                          3353+ID20     DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CE1 08                          3354+         DC    AL1(TNOACT-ACTTAB) NO ACTION REQUIRED
002CE2 1996                        3355+         DC    AL2(LN+CPERIOD-COBOLWDS) DISP OF PERIOD - LENGTH 1
002CE4 00                          3356+         DC    X'00' RETURN TO STRING FOLLOWING

002CE5 10                          3358+         DC    X'10' NON-MARGIN A TEST, OPTIONAL
002CE6 1E                          3359+         DC    AL1(TCOPYCLS-ACTTAB) COPY CLAUSE ROUTINE
002CE7 40DB                        3360+         DC    AL2(L4+COPY-COBOLWDS) DISP OF COPY - LENGTH 4
002CE9 CB                          3361+         DC    AL1(CPY1-ID10) RETURN TO STRING CPY1
PH01   IKFCBL01                                                                                                PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002CEA 30                          3363+         DC    X'30' GET KEYWORD AND CHANGE STRING PTR

002CEB 20                          3365+ID30     DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CEC 08                          3366+         DC    AL1(TNOACT-ACTTAB) NO ACTION REQUIRED
002CED 201E                        3367+         DC    AL2(L2+IS-COBOLWDS) DISP OF IS - LENGTH 2
002CEF 00                          3368+         DC    X'00' RETURN TO STRING FOLLOWING

002CF0 20                          3370+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CF1 0A                          3371+         DC    AL1(TDECPNT-ACTTAB) DECIMAL-POINT ROUTINE
002CF2 51E3                        3372+         DC    AL2(L5+COMMA5-COBOLWDS) DISP OF COMMA - LENGTH 5
002CF4 00                          3373+         DC    X'00' RETURN TO STRING

002CF5 30                          3375+         DC    X'30' GET KEYWORD AND CHANGE STRING PTR

002CF6 20                          3377+ID40     DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002CF7 08                          3378+         DC    AL1(TNOACT-ACTTAB) NO ACTION REQUIRED
002CF8 8572                        3379+         DC    AL2(L8+OPTIONAL-COBOLWDS) DISP OF OPTIONAL - LENGTH 8
002CFA 00                          3380+         DC    X'00' RETURN TO FOLLOWING STRING

002CFB 51                          3382+ID50     DC    X'51' VALID DATA-NAME TEST, REQ COND
002CFC 18                          3383+         DC    AL1(TSAVDNM-ACTTAB) SAVE DATANAME FOR POSSIBLE COPY
002CFD 00                          3384+         DC    X'00' RETURN TO FOLLOWING STRING

002CFE 10                          3386+         DC    X'10' NON-MARGIN A TEST, OPTIONAL
002CFF 1E                          3387+         DC    AL1(TCOPYCLS-ACTTAB) COPY CLAUSE ROUTINE
002D00 40DB                        3388+         DC    AL2(L4+COPY-COBOLWDS) DISP OF COPY - LENGTH 4
002D02 CB                          3389+         DC    AL1(CPY1-ID10) RETURN TO STRING CPY1

002D03 30                          3391+         DC    X'30' GET KEYWORD AND CHANGE STRING PTR

002D04 51                          3393+ID60     DC    X'51' VALID DATA-NAME TEST, REQ COND
002D05 18                          3394+         DC    AL1(TSAVDNM-ACTTAB) SAVE DATANAME FOR POSSIBLE COPY
002D06 00                          3395+         DC    X'00' RETURN TO FOLLOWING STRING

002D07 20                          3397+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002D08 14                          3398+         DC    AL1(TREDEF-ACTTAB) SET REDEFINES SWITCH
002D09 964C                        3399+         DC    AL2(L9+REDEFINE-COBOLWDS) DISP OF REDEFINES - LENGTH 9
002D0B 85                          3400+         DC    AL1(ID50-ID10) RETURN TO STRING ID50

002D0C 10                          3402+         DC    X'10' NON-MARGIN A TEST, OPTIONAL
002D0D 1E                          3403+         DC    AL1(TCOPYCLS-ACTTAB) COPY CLAUSE ROUTINE
002D0E 40DB                        3404+         DC    AL2(L4+COPY-COBOLWDS) DISP OF COPY - LENGTH 4
002D10 CB                          3405+         DC    AL1(CPY1-ID10) RETURN TO STRING CPY1

002D11 30                          3407+         DC    X'30' GET KEYWORD AND CHANGE STRING PTR

002D12 51                          3409+ID70     DC    X'51' VALID DATA-NAME TEST, REQ COND
002D13 08                          3410+         DC    AL1(TNOACT-ACTTAB) NO ACTION REQUIRED
002D14 00                          3411+         DC    X'00' RETURN TO FOLLOWING STRING

002D15 20                          3413+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002D16 08                          3414+         DC    AL1(TNOACT-ACTTAB) NO ACTION REQUIRED
002D17 41A3                        3415+         DC    AL2(L4+WITH-COBOLWDS) DISP OF WITH - LENGTH 4
002D19 00                          3416+         DC    X'00' RETURN TO FOLLOWING STRING
PH01   IKFCBL01                                                                                                PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002D1A 20                          3418+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002D1B 08                          3419+         DC    AL1(TNOACT-ACTTAB) NO ACTION REQUIRED
002D1C 40D1                        3420+         DC    AL2(L4+CODE-COBOLWDS) DISP OF CODE - LENGTH 4
002D1E 85                          3421+         DC    AL1(ID50-ID10) RETURN TO STRING ID75

002D1F 10                          3423+         DC    X'10' NON-MARGIN A TEST, OPTIONAL
002D20 1E                          3424+         DC    AL1(TCOPYCLS-ACTTAB) COPY CLAUSE ROUTINE
002D21 40DB                        3425+         DC    AL2(L4+COPY-COBOLWDS) DISP OF COPY - LENGTH 4
002D23 CB                          3426+         DC    AL1(CPY1-ID10) RETURN TO STRING CPY1

002D24 30                          3428+         DC    X'30' GET KEYWORD AND CHANGE STRING PTR

002D25 50                          3430+ID75     DC    X'50' VALID DATA-NAME TEST, OPTIONAL
002D26 18                          3431+         DC    AL1(TSAVDNM-ACTTAB) SAVE DATANAME FOR POSSIBLE COPY
002D27 00                          3432+         DC    X'00' RETURN TO FOLLOWING STRING

002D28 10                          3434+         DC    X'10' NON-MAEGIN A TEST, OPTIONAL
002D29 1E                          3435+         DC    AL1(TCOPYCLS-ACTTAB) COPY CLAUSE ROUTINE
002D2A 40DB                        3436+         DC    AL2(L4+COPY-COBOLWDS) DISP OF COPY - LENGTH 4
002D2C CB                          3437+         DC    AL1(CPY1-ID10) RETURN TO STRING CPY1

002D2D 30                          3439+         DC    X'30' GET KEYWORD AND CHANGE STRING PTR

002D2E 60                          3441+ID80     DC    X'60' PROCEDURE NAME TEST
002D2F 08                          3442+         DC    AL1(TNOACT-ACTTAB) NO ACTION REQUIRED
002D30 00                          3443+         DC    X'00' RETURN TO STRING FOLLOWING

002D31 20                          3445+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002D32 1C                          3446+         DC    AL1(TSECT-ACTTAB) CHECK FOR PRIORITY NUMBER
002D33 74F8                        3447+         DC    AL2(L7+SECTION-COBOLWDS) DISP OF SECTION - LENGTH 7
002D35 00                          3448+         DC    X'00' RETURN TO STRING FOLLOWING

002D36 20                          3450+         DC    X'20' EITHER MARGIN A OR B, OPTIONAL
002D37 08                          3451+         DC    AL1(TNOACT-ACTTAB) NO ACTION REQUIRED
002D38 1996                        3452+         DC    AL2(LN+CPERIOD-COBOLWDS) DISP OF PERIOD - LENGTH 1
002D3A 00                          3453+         DC    X'00' RETURN TO STRING FOLLOWING

002D3B 10                          3455+         DC    X'10' NON-MARGIN A TEST, OPTIONAL
002D3C 1E                          3456+         DC    AL1(TCOPYCLS-ACTTAB) COPY CLAUSE ROUTINE
002D3D 40DB                        3457+         DC    AL2(L4+COPY-COBOLWDS) DISP OF COPY - LENGTH 4
002D3F CB                          3458+         DC    AL1(CPY1-ID10) RETURN TO STRING CPY1

002D40 30                          3460+         DC    X'30' CHANGE STRING PTR

002D41 42                          3462+CPY1     DC    X'42' VALID EXTERNAL NAME, REQ COND
002D42 20                          3463+         DC    AL1(TLIB-ACTTAB) SAVE COPY LIBRARY NAME
002D43 00                          3464+         DC    X'00' RETURN TO FOLLOWING STRING
002D44 13                          3465+         DC    X'13' ERROR 1019

002D45 10                          3467+         DC    X'10' NON-MARGIN A TEST, OPTIONAL
002D46 22                          3468+         DC    AL1(TSUPP-ACTTAB) TURN ON SUPPRESS INDICATOR
002D47 85BA                        3469+         DC    AL2(L8+SUPPRESS-COBOLWDS) DISP OF SUPPRESS - LENGTH 8
002D49 00                          3470+         DC    X'00' RETURN TO STRING FOLLOWING

002D4A 10                          3472+         DC    X'10' NON-MARGIN A TEST, OPTIONAL
PH01   IKFCBL01                                                                                                PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002D4B 24                          3473+         DC    AL1(TREP-ACTTAB) INITIALIZE FOR REPLACING OPTION
002D4C 9660                        3474+         DC    AL2(L9+REPLACE-COBOLWDS) DISP OF REPLACING - LENGTH 9
002D4E E4                          3475+         DC    AL1(CPY3-ID10) RETURN TO STRING CPY3

002D4F 14                          3477+         DC    X'14' NON-MARGIN A TEST, REQ COND
002D50 26                          3478+         DC    AL1(TSETCPY-ACTTAB) SET COPY INDICATORS - DO COPY
002D51 1996                        3479+         DC    AL2(LN+CPERIOD-COBOLWDS) DISP OF PERIOD - LENGTH 1
002D53 00                          3480+         DC    X'00' DUMMY RETURN- SET BY ASETCPY
002D54 11                          3481+         DC    X'11' MESSAGE 1017


002D55 10                          3484+CPY2     DC    X'10' NON-MARGIN A TEST, OPTIONAL
002D56 26                          3485+         DC    AL1(TSETCPY-ACTTAB) SET COPY INDICATORS - DO COPY
002D57 1996                        3486+         DC    AL2(LN+CPERIOD-COBOLWDS) DISP OF PERIOD - LENGTH 1
002D59 00                          3487+         DC    X'00' DUMMY RETURN- SET BY ASETCPY

002D5A 73                          3489+CPY3     DC    X'73' WORD1 TEST, REQ COND
002D5B 28                          3490+         DC    AL1(TWORD1-ACTTAB) SET UP WORD1 IN REP TABLE
002D5C 00                          3491+         DC    X'00' RETURN TO STRING FOLLOWING
002D5D 3E                          3492+         DC    X'3E' MESSAGE 1062

002D5E 14                          3494+         DC    X'14' NON-MARGIN A TEST, REQ COND
002D5F 08                          3495+         DC    AL1(TNOACT-ACTTAB) NO ACTION REQUIRED
002D60 2003                        3496+         DC    AL2(L2+BY-COBOLWDS) DISP OF BY - LENGTH 2
002D62 00                          3497+         DC    X'00' RETURN TO STRING FOLLOWING
002D63 11                          3498+         DC    X'11' MESSAGE 1017

002D64 83                          3500+         DC    X'83' WORD2 TEST, REQ COND
002D65 2A                          3501+         DC    AL1(TWORD2-ACTTAB) SET UP WORD2 IN REP TABLE
002D66 DF                          3502+         DC    AL1(CPY2-ID10) RETURN TO STRING CPY2
002D67 3E                          3503+         DC    X'3E' MESSAGE 1062
PH01   IKFCBL01                                                                                                PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3505+***********************************************************************
                                   3506+*
                                   3507+*                        DIAGNOSTIC ROUTINE
                                   3508+*
                                   3509+*        CALLED AS FOLLOWS:
                                   3510+*              BAL L1,DIAGNOSE
                                   3511+*              DC  X'AB'      WHERE A=0 FOR W-LEVEL  B=0 FOR NO INSERT
                                   3512+*              DC  X'YY'              1 FOR C-LEVEL    1 FOR 1  INSERT
                                   3513+*                                     2 FOR E-LEVEL    2 FOR CARD IMAGE
                                   3514+*                                                            INSERT
                                   3515+*                                                      4 FOR 2 INSERTS
                                   3516+*                             YY=MESSAGE NUMBER
                                   3517+*        MESSAGES AND PARAMETERS ARE WRITTEN VIA:
                                   3518+*              LA   C2,ADDRESS-OF-RECORD
                                   3519+*              BALR C0,C5     WHERE C5= A(COS)
                                   3520+*              DC   X'23'     WRITE ON FILE 3
                                   3521+*
                                   3522+*        RETURN TO CALLING ROUTINE VIA L1 REGISTER
                                   3523+*
                                   3524+***********************************************************************
002D68 9013 70D2            03C44  3525+DIAGNOSE STM   C1,C3,DIAGSAVE SAVE REGS USED BY DIAG.
002D6C 5080 70AA            03C1C  3526+         ST    L1,WRSAVEL1 SAVE THE LINK REGISTER
002D70 9102 8000      00000        3527+         TM    DX0(L1),K2 IS THIS AN INSERT/DELETE MESSAGE
002D74 4710 6222            02D94  3528+         BC    ALLON,DIAG YES, PREPARE PARAM TEXT FOR MSG
002D78 9180 747F      03FF1        3529+         TM    MISCSW,TSTNAME MSG FOR BASIS EXTERNAL NAME
002D7C 4710 6216            02D88  3530+         BC    ALLON,DIAG00 YES - WRITE E-TEXT
002D80 9180 747C      03FEE        3531+         TM    COPYSW,CPYSTMT IS COPY STMT SCAN IN EFFECT
002D84 4788 0002            00002  3532+         BC    ALLOFF,DX2(L1) NO - PHASE 1 WILL DIAGNOSE
002D88 9105 8000      00000        3533+DIAG00   TM    DX0(L1),K5 ARE THERE ANY INSERTS
002D8C 4780 6240            02DB2  3534+         BC    ALLOFF,DIAG0 NO - PREPARE ERROR MSG TEXT
002D90 47F0 6294            02E06  3535+         B     DIAG3 PREPARE COPY MSG TEXT - NO INSERTS
002D94                             3536+DIAG     EQU   * PREPARE INSERT/DELETE PARAMETER
002D94 D201 7EDD 7484 04A4F 03FF6  3537+         MVC   MSGGCN,HZERO ZERO OUT SEQUENCE NUMBER FIELD
002D9A 924A 7EE1      04A53        3538+         MVI   EPARNN+DX1,K74 MOVE BYTE COUNT TO PARAM TEXT
002D9E D201 7EE2 74BF 04A54 04031  3539+         MVC   EPARAM(LX2),CODECNT MOVE CODE/COUNT TO PARAM TEXT
002DA4 4130 71E0            03D52  3540+         LA    C3,IDELWORK GET ADDR OF BUFFER
002DA8 D247 7EE4 3000 04A56 00000  3541+         MVC   EPARAM+DX2(LX72),DX0(C3) MOVE CARD IMAGE TO PARAM TEXT
002DAE 47F0 6246            02DB8  3542+         B     DIAG1 PREPARE REST OF E-TEXT
002DB2                             3543+DIAG0    EQU   * PREPATE GEN SEQ NUMBER
002DB2 D201 7EDD 718A 04A4F 03CFC  3544+         MVC   MSGGCN(LX2),CURGCN MOVE GEN SEQ NUMBER
002DB8 D200 7EDC 8001 04A4E 00001  3545+DIAG1    MVC   MSGNUM+DX1(LX1),DX1(L1) MOVE MSG NUMBER TO E-TEXT
002DBE D300 7EDF 8000 04A51 00000  3546+         MVZ   MSGSP(LX1),DX0(L1) MOVE SEVERITY CODE IN E-TEXT
                                   3547+*
                                   3548+*     WRITE ERROR MESSAGE
                                   3549+*
002DC4 4120 7ED8            04A4A  3550+         LA    C2,MSGDEF MESSAGE TEXT AREA
002DC8 050F                        3551+         BALR  C0,C5 CALL TO PHASE 0 TO WRITE
002DCA 23                          3552+         DC    X'23' MESSAGE ON FILE 3
                                   3553+*
002DCB 00
002DCC 9107 8000      00000        3554+         TM    DX0(L1),K7 IS THERE PARAMETER TEXT AFTER MSG
002DD0 4780 6288            02DFA  3555+         BC    ALLOFF,DIAG2 NO RETURN
002DD4 4120 7EE0            04A52  3556+         LA    C2,EPARNN PARAMETER TEXT AREA
002DD8 050F                        3557+         BALR  C0,C5 CALL TO PHASE 0 TO WRITE
002DDA 23                          3558+         DC    X'23' MSG PARAMETER ON FILE 3
PH01   IKFCBL01                                                                                                PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002DDB 00
002DDC 9104 8000      00000        3559+         TM    DX0(L1),K4 ARE THERE TWO INSERTS
002DE0 4780 6288            02DFA  3560+         BC    ALLOFF,DIAG2 NO - RETURN
002DE4 9206 7EE1      04A53        3561+         MVI   EPARNN+DX1,K6 TOTAL LENGTH OF PARAMETER
002DE8 9223 7EE2      04A54        3562+         MVI   EPARAM,X'23' SET UP BCD NAME CODE
002DEC 9204 7EE3      04A55        3563+         MVI   EPARAM+DX1,K4 LENGTH OF WORD
002DF0 D203 7EE4 75A0 04A56 04112  3564+         MVC   EPARAM+DX2(LX4),COPY COPY CLAUSE MESSAGE
002DF6 050F                        3565+         BALR  C0,C5 WRITE PARAM  C2=A(PARAM) C5=A(COS)
002DF8 23                          3566+         DC    X'23' MSG PARAMETER ON FILE 3
002DF9 00
002DFA 9813 70D2            03C44  3567+DIAG2    LM    C1,C3,DIAGSAVE RESTORE REGS
002DFE 5880 70AA            03C1C  3568+         L     L1,WRSAVEL1 RESTORE LINK REGISTER
002E02 47F8 0002            00002  3569+         B     DX2(L1) RETURN

002E06                             3571+DIAG3    EQU   * INSERT IS IN WORD
002E06 4130 70FC            03C6E  3572+         LA    C3,WORD ADDRESS OF WORD
002E0A 4820 70FA            03C6C  3573+         LH    C2,SIZEWORD SIZE OF WORD
002E0E D500 70FC 74C4 03C6E 04036  3574+         CLC   WORD(LX1),LITSIGN IS WORD ALPHANUMERIC
002E14 4780 62C4            02E36  3575+         BE    DIAG5 YES - SET UP AS ALPHANUMERIC
002E18 9223 7EE2      04A54        3576+         MVI   EPARAM,X'23' SET UP AS EBCDIC NAME
002E1C 0620                        3577+DIAG4    BCTR  C2,0 DECREMENT FOR EXECUTE
002E1E 4420 62D4            02E46  3578+         EX    C2,MVETEXT MOVE WORD TO TEXT
002E22 4122 0001            00001  3579+         LA    C2,DX1(C2) RESTORE SIZE
002E26 4220 7EE3            04A55  3580+         STC   C2,EPARAM+DX1 STORE IN ETEXT
002E2A 4122 0002            00002  3581+         LA    C2,DX2(C2) ADJUST LENGTH FOR 'N' AND CODE
002E2E 4220 7EE1            04A53  3582+         STC   C2,EPARNN+DX1 STORE IN ETEXT
002E32 47F0 6240            02DB2  3583+         B     DIAG0 WRITE MESSAGE AND PARAMETER TEXT
002E36 9234 7EE2      04A54        3584+DIAG5    MVI   EPARAM,X'34' ALPHANUMERIC CODE
002E3A 4133 0001            00001  3585+         LA    C3,DX1(C3) POINT PAST QUOTE IN WORD
002E3E 4B20 7486            03FF8  3586+         SH    C2,TWO ADJUST SIZE W/O QUOTES
002E42 47F0 62AA            02E1C  3587+         B     DIAG4 PREPARE E-TEXT

002E46 D200 7EE4 3000 04A56 00000  3589+MVETEXT  MVC   EPARAM+DX2(LX0),DX0(C3) MOVE WORD TO PARAMETER TEXT

                                   3591+*
002E4C 4580 61F6            02D68  3592+MSG1010  BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
002E50 00                          3593+         DC    X'00' W-LEVEL, NO INSERTS
002E51 0A                          3594+         DC    X'0A' MESSAGE 1010
002E52 07F2                        3595+         BR    C2 RETURN
                                   3596+*
002E54 4580 61F6            02D68  3597+MSG1017  BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC FOR COPY WORD2
002E58 24                          3598+         DC    X'24' E-LEVEL, 2 INSERTS
002E59 11                          3599+         DC    X'11' MESSAGE 1017
002E5A 47F0 60B0            02C22  3600+         B     IGNORE1 ISSUE MSG 1062, TURN OFF COPY SW
                                   3601+*
002E5E 4580 61F6            02D68  3602+MSG1078  BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
002E62 00                          3603+         DC    X'00' W-LEVEL, NO INSERTS
002E63 4E                          3604+         DC    X'4E' MESSAGE 1078
002E64 07F2                        3605+         BR    C2 RETURN

002E66 4580 61F6            02D68  3607+MSG1077  BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
002E6A 10                          3608+         DC    X'10' C-LEVEL, NO INSERTS
002E6B 4D                          3609+         DC    X'4D' MESSAGE 1077
002E6C 07F2                        3610+         BR    C2 RETURN, ASSUME OK
                                   3611+*
PH01   IKFCBL01                                                                                                PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002E6E 4580 61F6            02D68  3612+MSG1160  BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
002E72 20                          3613+         DC    X'20' E-LEVEL, NO INSERTS
002E73 A0                          3614+         DC    X'A0' MESSAGE 1160
002E74 47F0 66AA            0321C  3615+         B     GW6 RETURN - ASSUME B MARGIN
                                   3616+*
PH01   IKFCBL01                                                                                                PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3618+***********************************************************************
                                   3619+*                                                                     *
                                   3620+*                        GET WORD SUBROUTINE                          *
                                   3621+*                                                                     *
                                   3622+*              REGISTERS SAVED:  L1  -  LINK REGISTER                 *
                                   3623+*                                W2  -  STRING POINTER REG (USED BY   *
                                   3624+*                                       ALL STRING PROCESSING RTNS)   *
                                   3625+*              WORD BEING PROCESSED IS PLACED IN 'WORD'. IF WORD      *
                                   3626+*                   IS AN ALPHANUMERIC LITERAL, THE QUOTES ARE        *
                                   3627+*                   INCLUDED. THE WORD SIZE IS PLACED IN 'SIZE'.      *
                                   3628+*                                                                     *
                                   3629+***********************************************************************
002E78 5080 70A2            03C14  3630+GETWORD  ST    L1,GWSAVEL1 SAVE LINK REGISTER               DA1
002E7C 94F9 747F      03FF1        3631+         NI    MISCSW,FF-TSTMARGA-TSTMARGB TURN OFF  REQ MARG SWS
002E80 9110 747F      03FF1        3632+         TM    MISCSW,DUMMYGET IS WORD ALREADY THERE
002E84 4710 67A8            0331A  3633+         BC    ALLON,GETWORDU YES
002E88 90AC 70BE            03C30  3634+         STM   W1,W3,SVW1W2W3 SAVE WORD2 REGS AND STRING PTR
002E8C 9445 747E      03FF0        3635+GETWORDA NI    ASWITCH,FF-MARGA-RESWORD-TRUNCATE-NOSPACE-KEYWORD
002E90 9200 74C2      04034        3636+         MVI   RESCODE,K0 INIT RESERVED WORD STATUS
002E94 1BAA                        3637+         SR    W1,W1 CLEAR                            DA1
002E96 42A0 70FB            03C6D  3638+         STC   W1,SIZE INITIALIZE WORD SIZE TO ZERO
002E9A 9104 747E      03FF0        3639+         TM    ASWITCH,EOS TEST FOR END OF STATEMENT
002E9E 4710 6784            032F6  3640+         BC    ALLON,GETWORDQ END OF STMT IS THE CASE
002EA2 9108 747F      03FF1        3641+         TM    MISCSW,RP DID RIGHT PAREN END LAST WORD
002EA6 4710 6760            032D2  3642+         BC    ALLON,ENDWORD YES, MUST NOW OUTPUT IT
002EAA 9540 4000      00000        3643+GETNEXT  CLI   DX0(S1),BLANK FIRST CHAR SHOULD BE BLANK
002EAE 4780 634C            02EBE  3644+         BE    SCANAA UNLESS PRECEDED BY LIT OR PAREN
002EB2 9148 747F      03FF1        3645+         TM    MISCSW,RP+LP RPAREN OR LPAREN RECEIVED
002EB6 4780 670A            0327C  3646+         BC    ALLOFF,GETWORDP NO, MUST BE FORMER OR ERROR
002EBA 47F0 6388            02EFA  3647+         B     NONBLANK START A NEW WORD
002EBE 94F7 747F      03FF1        3648+SCANAA   NI    MISCSW,FF-RP TURN OFF RIGHT PAREN SWITCH
002EC2 9140 747F      03FF1        3649+         TM    MISCSW,LP WAS LAST GET A LEFT PAREN
002EC6 4780 635C            02ECE  3650+         BC    ALLOFF,SCAN NO, CONTINUE
002ECA 4520 62DA            02E4C  3651+         BAL   C2,MSG1010 YES, SHOULD NOT HAVE SPACE FOLLOWING
002ECE 4144 0001            00001  3652+SCAN     LA    S1,1(S1) UPDATE TO NEXT COLUMN            DA1
002ED2 5540 7096            03C08  3653+         CL    S1,COLUMN72 END OF CARD                      DA1
002ED6 4720 6374            02EE6  3654+         BH    SCAN1 YES, GET NEXT CARD               DA1
002EDA 9540 4000      00000        3655+         CLI   0(S1),BLANK SCAN TO FIRST NON-BLANK          DA1
002EDE 4770 6388            02EFA  3656+         BNE   NONBLANK NON-BLANK FOUND                  DA1
002EE2 47F0 635C            02ECE  3657+         B     SCAN CONTINUE SCAN                    DA1

002EE6 94B7 747F      03FF1        3659+SCAN1    NI    MISCSW,FF-LP-RP REINITIALIZE SWITCHES
002EEA 9120 7481      03FF3        3660+         TM    MISCSW3,CDSURP CARD SURPRESS ON (COPY...REP)
002EEE 4770 649C            0300E  3661+         BC    NZERO,GWEXIT1 RETURN WITHOUT GETTING CARD
002EF2 4580 67D8            0334A  3662+         BAL   L1,GETCARD GET A NEW CARD
002EF6 47F0 635C            02ECE  3663+         B     SCAN RESUME SCAN                      DA1

002EFA 5040 709A            03C0C  3665+NONBLANK ST    S1,NBLKPTR SAVE NONBLANK ADDR OF CARD
002EFE 1BAA                        3666+         SR    W1,W1 CLEAR REG
002F00 5540 7092            03C04  3667+NONBLNK  CL    S1,MARGINB SEE IF WORD IN B MARGIN
002F04 47B0 639E            02F10  3668+         BNL   MOVE YES, IN MARGIN B                 DA1
002F08 9602 747E      03FF0        3669+         OI    ASWITCH,MARGA NO, SET MARGIN A SW
002F0C 94F7 7482      03FF4        3670+         NI    MISCSW4,FF-PNOTESW TERMINATE POSSIBLE NOTE PARAGRAPH
002F10 41BA 70FC            03C6E  3671+MOVE     LA    W2,WORD(W1) POINT TO PLACE TO INSERT CHAR    DA1
002F14 D200 B000 4000 00000 00000  3672+         MVC   0(1,W2),0(S1) INSERT CHAR                      DA1
PH01   IKFCBL01                                                                                                PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002F1A 955D B000      00000        3673+         CLI   DX0(W2),RPAREN FIRST CHARACTER A RIGHT PAREN
002F1E 4780 6742            032B4  3674+         BE    FOUNDRP VALID IF MULTIPLE RP'S
002F22 9108 747F      03FF1        3675+         TM    MISCSW,RP WAS LAST GET A RP
002F26 4780 63D4            02F46  3676+         BC    ALLOFF,MOVEA NO, CONTINUE
002F2A 954B B000      00000        3677+         CLI   DX0(W2),PERIOD IS IT EOS
002F2E 4780 6784            032F6  3678+         BE    GETWORDQ YES, OK
002F32 956B B000      00000        3679+         CLI   DX0(W2),COMMA IS IT A COMMA
002F36 47F0 64F6            03068  3680+         B     ENDCLAS0 YES, OK                        51899
002F3A 955E B000      00000        3681+         CLI   DX0(W2),SEMICOL IS IT A SEMICOLON
002F3E 47F0 64F6            03068  3682+         B     ENDCLAS0 YES, OK                        51899
002F42 9610 747E      03FF0        3683+         OI    ASWITCH,NOSPACE DIAGNOSE MISSING SPACE
002F46 954D B000      00000        3684+MOVEA    CLI   DX0(W2),LPAREN IS FIRST CHARACTER A LEFT PAREN
002F4A 4780 6522            03094  3685+         BE    FOUNDLP YES, RETURN
002F4E 94BF 747F      03FF1        3686+         NI    MISCSW,FF-LP TURN OFF LEFT PAREN SWITCH
002F52 D500 B000 74C3 00000 04035  3687+         CLC   DX0(LX1,W2),DECPNT IS FIRST CHARACTER A DECIMAL
002F58 4780 6402            02F74  3688+         BE    GETWORDB YES, KEEP SCANNING
002F5C 956B B000      00000        3689+         CLI   DX0(W2),COMMA FIRST CHARACTER A COMMA
002F60 4780 63FA            02F6C  3690+         BE    NOMOVE YES, SHOULD NOT BE PRECEDED BY SPACE
002F64 955E B000      00000        3691+         CLI   DX0(W2),SEMICOL FIRST CHARACTER A SEMICOLON
002F68 4770 6402            02F74  3692+         BNE   GETWORDB NO, CONTINUE
002F6C 4144 0001            00001  3693+NOMOVE   LA    S1,DX1(S1) INCREMENT TO NEXT COLUMN
002F70 47F0 64F0            03062  3694+         B     MSG1084 SPACE SHOULD NOT PRECEDE COMMA
002F74 4144 0001            00001  3695+GETWORDB LA    S1,1(S1) INCREMENT TO NEXT COLUMN         DA1
002F78 49A0 748A            03FFC  3696+         CH    W1,K120 IS WORD TOO LONG
002F7C 4720 64A8            0301A  3697+         BH    TRUNCIT WORD MUST BE TRUNCATED
002F80 5540 7096            03C08  3698+GW1      CL    S1,COLUMN72 END OF CARD
002F84 41AA 0001            00001  3699+         LA    W1,1(W1) INCREMENT TO NEXT POS OF WORD    DA1
002F88 41BA 70FC            03C6E  3700+         LA    W2,WORD(W1) POINT TO PLACE TO INSERT CHAR
002F8C 4720 65F4            03166  3701+         BH    CHKLIT YES, CHECK WORD
002F90 D200 B000 4000 00000 00000  3702+         MVC   0(1,W2),0(S1) INSERT CHAR                      DA1
002F96 D500 70FC 74C4 03C6E 04036  3703+         CLC   WORD(1),LITSIGN ARE WE IN A LITERAL              DA1
002F9C 4770 6548            030BA  3704+         BNE   NONLIT NO, PROCESS AS REGULAR WORD      DA1
002FA0 D500 B000 74C4 00000 04036  3705+         CLC   0(1,W2),LITSIGN YES, BUT DOES THIS END IT        DA1
002FA6 4770 6402            02F74  3706+         BNE   GETWORDB NO, CONTINUE SCAN                DA1
002FAA 41AA 0001            00001  3707+GW2      LA    W1,1(W1) ADD 1 TO GET CORRECT SIZE
002FAE 4144 0001            00001  3708+GETWORDC LA    S1,1(S1) UPDATE COLUMN FOR NEXT TIME      DA1
002FB2 42A0 70FB            03C6D  3709+GW3      STC   W1,SIZE STORE SIZE OF WORD OBTAINED      DA1
002FB6 D500 70FC 74C4 03C6E 04036  3710+         CLC   WORD(1),LITSIGN WAS IT A LITERAL WE FOUND        DA1
002FBC 4780 6502            03074  3711+         BE    LITFOUND YES, SEE IF SIZE OK              DA1
002FC0 9502 70FB      03C6D        3712+         CLI   SIZE,K2 SEE IF RESERVE WORD TEST NEC     DA1
002FC4 4740 64C8            0303A  3713+         BL    SIZEONE NOT NECESSARY                    DA1
002FC8 950F 70FB      03C6D        3714+         CLI   SIZE,K15 MAY STILL NOT BE NECESSARY       DA1
002FCC 4720 646A            02FDC  3715+         BH    GWEXIT JUST EXIT                        DA1
002FD0 41E0 70FB            03C6D  3716+         LA    C4,SIZE PARAMETER OOR RESERVED WORD ROUT DA1
002FD4 4580 6FFC            03B6E  3717+         BAL   L1,RESWDTST DO THE TEST                      DA1
002FD8 4580 67AE            03320  3718+         BAL   L1,GETNOTE CHECK FOR A NOTE STMT
002FDC 951E 70FB      03C6D        3719+GWEXIT   CLI   SIZE,K30 DOES WORD EXCEED 30 CHARACTERS
002FE0 47D0 6484            02FF6  3720+         BNH   GWEXIT2 NO, NORMAL EXIT
002FE4 9110 747C      03FEE        3721+         TM    COPYSW,INCPYLIB READING FROM COPY LIBRARY
002FE8 4710 6484            02FF6  3722+         BC    ALLON,GWEXIT2 YES-DO NOT TAKE CORRECTIVE ACTION
002FEC 921E 70FB      03C6D        3723+         MVI   SIZE,K30 TRUNCATE TO 30
002FF0 4580 61F6            02D68  3724+         BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
002FF4 10                          3725+         DC    X'10' C-LEVEL, NO INSERTS
002FF5 55                          3726+         DC    X'55' MESSAGE NUMBER 1085
002FF6 9110 747E      03FF0        3727+GWEXIT2  TM    ASWITCH,NOSPACE MUST WE PUT OUT MESSAGE
PH01   IKFCBL01                                                                                                PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002FFA 4780 6492            03004  3728+         BC    ALLOFF,GWEXIT3 NO
002FFE 4580 61F6            02D68  3729+         BAL   L1,DIAGNOSE YES, ISSUE DIAGNOSTIC
003002 01                          3730+         DC    X'01' W-LEVEL, ONE INSERT
003003 07                          3731+         DC    X'07' MESSAGE NUMBER 1007
003004 5880 70A2            03C14  3732+GWEXIT3  L     L1,GWSAVEL1 RESTORE RETURN REGISTERS
003008 98AC 70BE            03C30  3733+         LM    W1,W3,SVW1W2W3 RESTORE WORD2 REGS AND STRING PTR
00300C 07F8                        3734+         BR    L1 RETURN

00300E 42A0 70FB            03C6D  3736+GWEXIT1  STC   W1,SIZE STORE NUMBER OF CHARACTERS RECEIVED
003012 94DF 7481      03FF3        3737+         NI    MISCSW3,FF-CDSURP SET CARD SURPRESS INDICATOR OFF
003016 47F0 6492            03004  3738+         B     GWEXIT3 RETURN
                                   3739+*
00301A D500 70FC 74C4 03C6E 04036  3740+TRUNCIT  CLC   WORD(LX1),LITSIGN ARE WE IN A LITERAL
003020 4770 64C4            03036  3741+         BNE   BYPASS NO,BYPASS MESSAGE
003024 9180 747E      03FF0        3742+         TM    ASWITCH,TRUNCATE IS WORD ALREADY BEING TRUNCATED
003028 4710 64C4            03036  3743+         BC    ALLON,BYPASS YES,DONT PUT OUT MESSAGE AGAIN
00302C 9680 747E      03FF0        3744+         OI    ASWITCH,TRUNCATE TURN ON TRUNCATE SW
003030 4580 61F6            02D68  3745+         BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
003034 10                          3746+         DC    X'10' C-LEVEL, NO INSERTS
003035 4C                          3747+         DC    X'4C' MESSAGE NUMBER 1076
003036 46A0 640E            02F80  3748+BYPASS   BCT   W1,GW1 GO BACK
00303A D500 70FC 7E5C 03C6E 049CE  3749+SIZEONE  CLC   WORD(LX1),LEVEL1 IS WORD A LEVEL 1
003040 4770 64DE            03050  3750+         BNE   SIZEONEA NO - BRANCH
003044 9285 74C2      04034        3751+         MVI   RESCODE,K85 INDICATE LEVEL 1 CODE
003048 9628 747E      03FF0        3752+         OI    ASWITCH,RESWORD+KEYWORD INDICATE KEY RESERVED WORD
00304C 47F0 6492            03004  3753+         B     GWEXIT3 EXIT
003050 954B 70FC      03C6E        3754+SIZEONEA CLI   WORD,PERIOD IS IT A SINGLE PERIOD          51899
003054 4770 646A            02FDC  3755+         BNE   GWEXIT EXIT                             DA1
003058 4580 61F6            02D68  3756+         BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC                 DA1
00305C 00                          3757+         DC    X'00' W-LEVEL, NO INSERTS
00305D 50                          3758+         DC    X'50' MESSAGE NUMBER 1080
00305E 47F0 6784            032F6  3759+         B     GETWORDQ EXIT
003062 4580 61F6            02D68  3760+MSG1084  BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
003066 10                          3761+         DC    X'10' C-LEVEL, NO INSERTS
003067 54                          3762+         DC    X'54' MESSAGE 1084
003068 925D 70FC      03C6E        3763+ENDCLAS0 MVI   WORD,RPAREN ENCODE ) PRECEDING , FOR COPY  51899
                                   3764+*                                    ....REPLACING                51899
00306C 94B7 747F      03FF1        3765+ENDCLAUS NI    MISCSW,FF-LP-RP REINITIALIZE SWITCHES
003070 47F0 631A            02E8C  3766+         B     GETWORDA

003074 9502 70FB      03C6D        3768+LITFOUND CLI   SIZE,K2 LENGTH MUST BE GREATER THAN 2    DA1
003078 4720 6484            02FF6  3769+         BH    GWEXIT2 IT IS
00307C 4580 61F6            02D68  3770+         BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
003080 10                          3771+         DC    X'10' C-LEVEL, NO INSERTS
003081 4F                          3772+         DC    X'4F' MESSAGE NUMBER 1079
003082 9240 70FD      03C6F        3773+         MVI   WORD+1,BLANK MOVE BLANK TO WORD               DA1
003086 D200 70FE 74C4 03C70 04036  3774+         MVC   WORD+2(1),LITSIGN MOVE LITERAL SIGN TO WORD        DA1
00308C 9203 70FB      03C6D        3775+         MVI   SIZE,K3 SIZE OF 3                        DA1
003090 47F0 646A            02FDC  3776+         B     GWEXIT EXIT                             DA1

003094 9640 747F      03FF1        3778+FOUNDLP  OI    MISCSW,LP INDICATE LP FOUND
003098 47F0 6438            02FAA  3779+         B     GW2 RETURN ( IN WORD AREA
00309C 06B0                        3780+FOUNDLP1 BCTR  W2,C0 GO BACK ONE CH ARACTER
00309E 954E B000      00000        3781+         CLI   DX0(W2),CPLUS UNARY PLUS PRECEDES IT
0030A2 4780 6540            030B2  3782+         BE    FOUNDLP2 YES, OK NO SPACE
PH01   IKFCBL01                                                                                                PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0030A6 9560 B000      00000        3783+         CLI   DX0(W2),CMINUS UNARY MINUS PRECEDES IT
0030AA 4780 6540            030B2  3784+         BE    FOUNDLP2 YES, OK NO SPACE
0030AE 9610 747E      03FF0        3785+         OI    ASWITCH,NOSPACE NO, THEN SPACE MISSING
0030B2 9640 7480      03FF2        3786+FOUNDLP2 OI    MISCSW2,LP INDICATE LP FOUND
0030B6 47F0 6440            02FB2  3787+         B     GW3 LEAVE S1 POINTING TO (

0030BA 95C1 B000      00000        3789+NONLIT   CLI   DX0(W2),A IF A-Z OR 0-9
0030BE 47B0 6402            02F74  3790+         BNL   GETWORDB THEN CONTINUE
0030C2 9540 B000      00000        3791+         CLI   DX0(W2),BLANK IS WORD DELIMITED
0030C6 4780 65FE            03170  3792+         BE    NLITEND YES, BY BLANK (SEE IF AFTER DEC) DA1
0030CA 955E B000      00000        3793+         CLI   0(W2),SEMICOL OR IS IT SEMICOLON               DA1
0030CE 4780 643C            02FAE  3794+         BE    GETWORDC SAME AS IF COMMA                 DA1
0030D2 D500 B000 74C4 00000 04036  3795+         CLC   0(1,W2),LITSIGN IS LITERAL SIGN NEXT
0030D8 4780 6440            02FB2  3796+         BE    GW3 NO SPACE BEFORE LITERAL
0030DC D502 72C4 7570 03E36 040E2  3797+         CLC   SAVECLS(3),PIC ARE WE PROCESSING PICTURE CLAUSE DA1
0030E2 4780 6402            02F74  3798+         BE    GETWORDB ONLY BLANK OR ; VALID DELIMITER  DA1
0030E6 D504 72C4 7780 03E36 042F2  3799+         CLC   SAVECLS(5),VALUE ARE WE PROCESSING VALUE CLAUSE
0030EC 4780 6402            02F74  3800+         BE    GETWORDB YES, THEREFORE MAY NOT BE EOS
0030F0 954D B000      00000        3801+         CLI   DX0(W2),LPAREN IS IT A LEFT PARENTHESIS
0030F4 4780 652A            0309C  3802+         BE    FOUNDLP1 SEE WHY NOT FIRST CHARACTER
0030F8 955D B000      00000        3803+         CLI   DX0(W2),RPAREN IS IT RIGHT PARENTHESIS
0030FC 4780 65EC            0315E  3804+         BE    ENDER1 YES, WRAP UP
003100 D500 B000 74C3 00000 04035  3805+         CLC   DX0(LX1,W2),DECPNT CHARACTER FOR DECIMAL
003106 4780 65B0            03122  3806+         BE    DECLIT YES, SEE IF IN MIDDLE OF LITERAL
00310A 956B B000      00000        3807+         CLI   DX0(W2),COMMA NOT A PICTURE, WAS IT A COMMA
00310E 4780 643C            02FAE  3808+         BE    GETWORDC YES, WRAP UP                     DA1
003112 954B B000      00000        3809+         CLI   0(W2),PERIOD WAS IT A PERIOD                  DA1
003116 4770 6402            02F74  3810+         BNE   GETWORDB NO, CONTINUE                     DA1
00311A 9604 747E      03FF0        3811+         OI    ASWITCH,EOS YES, INDICATE END OF SENTENCE
00311E 47F0 6440            02FB2  3812+         B     GW3 WRAP UP

003122 95F0 70FC      03C6E        3814+DECLIT   CLI   WORD,EXTZERO IS THE FIRST CHARACTER
003126 4740 65C4            03136  3815+         BC    LT,DECLIT1 A DIGIT
00312A 95F9 70FC      03C6E        3816+         CLI   WORD,EXTNINE IF NOT, CHECK FOR + - OR .
00312E 4720 65C4            03136  3817+         BC    GT,DECLIT1 IF YES, THEN ASSUME THIS IS A
003132 47F0 6402            02F74  3818+         B     GETWORDB NUMERIC LITERAL AND CONTINUE
003136 954E 70FC      03C6E        3819+DECLIT1  CLI   WORD,CPLUS IS FIRST CHARACTER
00313A 4780 6402            02F74  3820+         BE    GETWORDB IS + SIGN
00313E 9504 70FC      03C6E        3821+         CLI   WORD,MINUS OR - SIGN
003142 4780 6402            02F74  3822+         BE    GETWORDB OR A PERIOD
003146 954B 70FC      03C6E        3823+         CLI   WORD,PERIOD THEN ASSUME NUMERIC LITERAL
00314A 4780 6402            02F74  3824+         BE    GETWORDB AND CONTINUE PROCESSING
00314E 954B B000      00000        3825+         CLI   DX0(W2),PERIOD IF PRESENT CHARACTER NOT A
003152 4770 643C            02FAE  3826+         BNE   GETWORDC PERIOD, TREAT AS COMMA
003156 9604 747E      03FF0        3827+ENDER    OI    ASWITCH,EOS SET END OF SENTENCE SWITCH
00315A 47F0 6440            02FB2  3828+         B     GW3 WRAP UP
00315E 9608 747F      03FF1        3829+ENDER1   OI    MISCSW,RP INDICATE RP FOUND
003162 47F0 6440            02FB2  3830+         B     GW3 WRAP UP

003166 D500 70FC 74C4 03C6E 04036  3832+CHKLIT   CLC   WORD(1),LITSIGN WERE WE PROCESSING LITERAL
00316C 4780 663A            031AC  3833+         BE    GETWORDH YES, CHECK NEXT CARD FOR CONTIN
003170 18B4                        3834+NLITEND  LR    W2,S1 POINTER TO BLANK THAT DELIMITED
003172 06B0                        3835+         BCTR  W2,0 GO BACK ONE CHARACTER
003174 956B B000      00000        3836+         CLI   0(W2),COMMA WAS COMMA AT END OF WORD         DA1
003178 4780 6618            0318A  3837+         BE    NLITEND1 YES, SUBTRACT 1 FROM COUNT       DA1
PH01   IKFCBL01                                                                                                PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00317C 954B B000      00000        3838+         CLI   0(W2),PERIOD WAS PERIOD AT END OF WORD
003180 4770 661E            03190  3839+         BNE   GETWORDG NO, NORMAL BLANK DELIMITER       DA1
003184 9604 747E      03FF0        3840+         OI    ASWITCH,EOS YES, ASSUME END OF SENTENCE
003188 0640                        3841+         BCTR  S1,C0 MOVE SCAN POINTER BACK TO PERIOD
00318A 06A0                        3842+NLITEND1 BCTR  W1,0 LENGTH - 1 FOR PUNCTUATION
00318C 47F0 6440            02FB2  3843+         B     GW3

003190 5540 7096            03C08  3845+GETWORDG CL    S1,COLUMN72 SCAN TO FIRST NON-BLANK OR END   DA1
003194 4720 663A            031AC  3846+         BH    GETWORDH END - GET A NEW CARD
003198 9540 4000      00000        3847+         CLI   DX0(S1),BLANK IS IT BLANK
00319C 4770 6636            031A8  3848+         BNE   GW4 NON-BLANK, WRAP UP
0031A0 4144 0001            00001  3849+         LA    S1,DX1(S1) TRY NEXT COLUMN
0031A4 47F0 661E            03190  3850+         B     GETWORDG CONTINUE SCAN
0031A8 4640 6440            02FB2  3851+GW4      BCT   S1,GW3 DECR POINTER TO BLANK
0031AC 9120 7481      03FF3        3852+GETWORDH TM    MISCSW3,CDSURP CARD SURPRESS ON (COPY...REP)
0031B0 4770 649C            0300E  3853+         BC    NZERO,GWEXIT1 RETURN WITHOUT GETTING CARD
0031B4 4580 67D8            0334A  3854+         BAL   L1,GETCARD GET A NEW CARD
0031B8 9560 4000      00000        3855+         CLI   0(S1),HYPHEN IS IT A CONTINUATION
0031BC 4780 6696            03208  3856+         BE    GETWORDL YES, SEE IF OK
0031C0 D500 70FC 74C4 03C6E 04036  3857+         CLC   WORD(1),LITSIGN WERE WE PROCESSING A LITERAL     DA1
0031C6 4770 6440            02FB2  3858+         BNE   GW3 NO, DO NON-LITERAL ENDING        DA1
0031CA 4144 0001            00001  3859+GETWORDI LA    S1,DX1(S1) UPDATE TO COLUMN 8
0031CE 5540 7096            03C08  3860+         CL    S1,COLUMN72 FIND FIRST NON-BLANK
0031D2 4720 663A            031AC  3861+         BH    GETWORDH THIS CARD MUST BE BLANK
0031D6 9540 4000      00000        3862+         CLI   0(S1),BLANK IS THIS COLUMN BLANK             DA1
0031DA 4770 6670            031E2  3863+         BNE   GETWORDJ NO, DO NON LITERAL ENDING        DA1
0031DE 47F0 6658            031CA  3864+         B     GETWORDI TRY AGAIN                        DA1

0031E2 D500 4000 74C4 00000 04036  3866+GETWORDJ CLC   0(1,S1),LITSIGN IS IT A LITERAL SIGN             DA1
0031E8 4770 6682            031F4  3867+         BNE   GETWORDK NO, DIAGNOSE
0031EC 4520 62EC            02E5E  3868+         BAL   C2,MSG1078 ISSUE DIAGNOSTIC
0031F0 46A0 6402            02F74  3869+GETWRDJJ BCT   W1,GETWORDB ASSUME PRESENT
0031F4 4B40 7486            03FF8  3870+GETWORDK SH    S1,TWO SUBTRACT FOR NEXT GETWORD
0031F8 D200 B000 74C4 00000 04036  3871+         MVC   0(1,W2),LITSIGN END LITERAL ON LAST CARD
0031FE 4580 61F6            02D68  3872+         BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
003202 10                          3873+         DC    X'10' C-LEVEL, NO INSERTS
003203 62                          3874+         DC    X'62' MESSAGE 1098
003204 47F0 6438            02FAA  3875+         B     GW2 GET CORRECT SIZE

003208 D500 70FC 74C4 03C6E 04036  3877+GETWORDL CLC   WORD(1),LITSIGN IS IT A CONTINUED LITERAL        DA1
00320E 4780 66D2            03244  3878+         BE    GW5 YES, SCAN TO FIRST NON-BLANK     DA1
003212 D503 4001 74AE 00001 04020  3879+         CLC   1(4,S1),BLANKS NOT LITERAL, CHECK MARGIN A
003218 4770 62FC            02E6E  3880+         BNE   MSG1160 DIAGNOSE, BUT ASSUME B
00321C 4144 0001            00001  3881+GW6      LA    S1,DX1(S1) INCREMENT COLUMN
003220 5540 7096            03C08  3882+         CL    S1,COLUMN72 END OF CARD
003224 4720 663A            031AC  3883+         BH    GETWORDH GET ANOTHER CARD
003228 9540 4000      00000        3884+         CLI   DX0(S1),BLANK SCAN TO FIRST NON-BLANK
00322C 4770 638E            02F00  3885+         BNE   NONBLNK CONTINUE WORD SCAN
003230 47F0 66AA            0321C  3886+         B     GW6 TRY AGAIN

003234 5540 7096            03C08  3888+GETWORDM CL    S1,COLUMN72 SCAN FOR LITERAL SIGN            DA1
003238 4720 663A            031AC  3889+         BH    GETWORDH THIS CARD MUST BE BLANK          DA1
00323C 9540 4000      00000        3890+         CLI   0(S1),BLANK IS THIS COLUMN BLANK             DA1
003240 4770 66DA            0324C  3891+         BNE   GETWORDN NO, SEE IF LITSIGN               DA1
003244 4144 0001            00001  3892+GW5      LA    S1,1(S1) UPDATE TO NEXT COLUMN            DA1
PH01   IKFCBL01                                                                                                PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003248 47F0 66C2            03234  3893+         B     GETWORDM REPEAT SCAN                      DA1

00324C                             3895+GETWORDN EQU   * DA1
00324C 06A0                        3896+         BCTR  W1,0 DECR COUNT BY 1 FOR LITERAL      DA1
00324E D500 4000 74C4 00000 04036  3897+         CLC   0(1,S1),LITSIGN DOES CONTINUED LIT HAVE LITSIGN  DA1
003254 4780 66FA            0326C  3898+         BE    GETWORDO YES, CHECK MARGIN
003258 4520 62EC            02E5E  3899+         BAL   C2,MSG1078 ISSUE DIAGNOSTIC
00325C 5540 7092            03C04  3900+         CL    S1,MARGINB SEE IF WORD IN MARGIN A OR B
003260 47B0 640E            02F80  3901+         BNL   GW1 CONTINUATION OK
003264 4520 62F4            02E66  3902+         BAL   C2,MSG1077 ERROR, DIAGNOSE
003268 47F0 640E            02F80  3903+         B     GW1 ASSUME PRESENT
00326C 5540 7092            03C04  3904+GETWORDO CL    S1,MARGINB CONTINUATION OK, MOVE REST OF LIT
003270 47B0 6402            02F74  3905+         BNL   GETWORDB NOT IN MARGIN A
003274 4520 62F4            02E66  3906+         BAL   C2,MSG1077 ERROR, DIAGNOSE
003278 47F0 6402            02F74  3907+         B     GETWORDB MOVE REST OF LIT


00327C 5540 7096            03C08  3910+GETWORDP CL    S1,COLUMN72 ARE WE AT END OF CARD
003280 4720 6374            02EE6  3911+         BH    SCAN1 YES, GET NEW CARD
003284 5540 708A            03BFC  3912+         CL    S1,COLUMN7 IS IT COLUMN 7
003288 4780 635C            02ECE  3913+         BE    SCAN YES, IGNORE
00328C 954B 4000      00000        3914+         CLI   0(S1),PERIOD IS NONBLANK CHAR A PERIOD
003290 4780 6784            032F6  3915+         BE    GETWORDQ YES, THEN IT IS OK, PROCESS     DA1
003294 956B 4000      00000        3916+         CLI   0(S1),COMMA IS IT A COMMA                    DA1
003298 4780 635C            02ECE  3917+         BE    SCAN YES, IGNORE IT                   DA1
00329C 955E 4000      00000        3918+         CLI   0(S1),SEMICOL SAME FOR SEMICOLON               DA1
0032A0 4780 635C            02ECE  3919+         BE    SCAN PROCESS NEX COLUMN               DA1
0032A4 955D 4000      00000        3920+         CLI   DX0(S1),RPAREN IS IT A RIGHT PAREN
0032A8 4780 6750            032C2  3921+         BE    FOUNDRP1 YES
0032AC 9610 747E      03FF0        3922+         OI    ASWITCH,NOSPACE INDICATE MSG1007 TO BE PUT OUT
0032B0 47F0 6388            02EFA  3923+         B     NONBLANK PROCESS
0032B4 9108 747F      03FF1        3924+FOUNDRP  TM    MISCSW,RP IN A SERIES OF PARENS
0032B8 4710 6754            032C6  3925+         BC    ALLON,FOUNDRP2 YES - OK
0032BC 4580 61F6            02D68  3926+         BAL   L1,DIAGNOSE RIGHT PAREN PRECEDED BY SPACE
0032C0 00                          3927+         DC    X'00' W-LEVEL, NO INSERTS
0032C1 08                          3928+         DC    X'08' MESSAGE 1008
0032C2 9608 747F      03FF1        3929+FOUNDRP1 OI    MISCSW,RP INDICATE RP FOUND
0032C6 5040 709A            03C0C  3930+FOUNDRP2 ST    S1,NBLKPTR SAVE ) ADDR FOR COPY...REP
0032CA 4144 0001            00001  3931+         LA    S1,DX1(S1) INCREMENT WORD POINTER
0032CE 47F0 676C            032DE  3932+         B     ENDWORD1 MOVE PAREN TO WORD
                                   3933+*
0032D2 9140 7481      03FF3        3934+ENDWORD  TM    MISCSW3,RPOUT WAS RIGHT PAREN PUT OUT
0032D6 4710 677C            032EE  3935+         BC    ALLON,ENDWORD2 YES - CONTINUE SCAN
0032DA 47F0 6754            032C6  3936+         B     FOUNDRP2 SAVE ) ADDR FOR COPY...REP
0032DE 925D 70FC      03C6E        3937+ENDWORD1 MVI   WORD,RPAREN MOVE RPAREN TO WORD
0032E2 9201 70FB      03C6D        3938+         MVI   SIZE,K1 INDICATE SIZE OF WORD
0032E6 9640 7481      03FF3        3939+         OI    MISCSW3,RPOUT INDICATOR FOR RIGHT PAREN IN WORD
0032EA 47F0 6484            02FF6  3940+         B     GWEXIT2 WRAP UP
0032EE 94BF 7481      03FF3        3941+ENDWORD2 NI    MISCSW3,FF-RPOUT INITIALIZE RP INDICATOR
0032F2 47F0 6338            02EAA  3942+         B     GETNEXT SCAN NEXT WORD

0032F6 5040 709A            03C0C  3944+GETWORDQ ST    S1,NBLKPTR SAVE ADDR OF PERIOD FOR COPY
0032FA 4144 0001            00001  3945+         LA    S1,DX1(S1) UPDATE TO NEXT COLUMN
0032FE 94FB 747E      03FF0        3946+         NI    ASWITCH,FF-EOS TURN OFF END OF STMT SW
003302 94B7 747F      03FF1        3947+         NI    MISCSW,FF-LP-RP INITIALIZE PAREN SWITCHES
PH01   IKFCBL01                                                                                                PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003306 947F 7481      03FF3        3948+         NI    MISCSW3,FF-COBCLAUS INITIALIZE CLAUSE SWITCH
00330A 94FB 7482      03FF4        3949+         NI    MISCSW4,FF-SNOTESW TERMINATE POSSIBLE NOTE SENTENCE
00330E 9201 70FB      03C6D        3950+         MVI   SIZE,K1 MOVE SIZE OF 1 TO WORD           DA1
003312 924B 70FC      03C6E        3951+         MVI   WORD,PERIOD MOVE PERIOD TO WORD              DA1
003316 47F0 646A            02FDC  3952+         B     GWEXIT EXIT

00331A 94EF 747F      03FF1        3954+GETWORDU NI    MISCSW,FF-DUMMYGET TURN OFF DUMMYGET SW
00331E 07F8                        3955+         BR    L1 RETURN
                                   3956+*
003320 9104 7480      03FF2        3957+GETNOTE  TM    MISCSW2,PROCSW IN PROCEDURE DIVISION
003324 4788 0000            00000  3958+         BC    ALLOFF,DX0(L1) NO - CANNOT BE NOTE
003328 D503 72C4 75FF 03E36 04171  3959+         CLC   SAVECLS(L'NOTE),NOTE IS WORD 'NOTE'
00332E 4778 0000            00000  3960+         BNE   DX0(L1) NO - RETURN
003332 9240 72C4      03E36        3961+         MVI   SAVECLS,BLANK INIT SAVECLS
003336 9102 7482      03FF4        3962+         TM    MISCSW4,MAYBNOTE NOTE PARAGRAPH
00333A 4780 67D2            03344  3963+         BC    ALLOFF,GETNOTE1 NO - NOTE SENTENCE
00333E 970A 7482      03FF4        3964+         XI    MISCSW4,MAYBNOTE+PNOTESW OFF MRGA SW , ON PARA NOTE
003342 07F8                        3965+         BR    L1 RETURN
003344 9604 7482      03FF4        3966+GETNOTE1 OI    MISCSW4,SNOTESW INDICATE NOTE SENTENCE
003348 07F8                        3967+         BR    L1 RETURN
PH01   IKFCBL01                                                                                                PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3969+***********************************************************************
                                   3970+*                                                                   DA1
                                   3971+*                        GET CARD SUBROUTINE                        DA1
                                   3972+*                                                                   DA1
                                   3973+***********************************************************************
00334A                             3974+GETCARD  EQU   * ENTRY POINT                      DA1
00334A 90AC 70B2            03C24  3975+         STM   W1,W3,CDW1W2W3 SAVE WORK REGS
00334E 5080 70AE            03C20  3976+         ST    L1,GCSAVEL1 SAVE LINK REGISTER               DA1
003352 9101 747E      03FF0        3977+         TM    ASWITCH,NOTFIRST IS THIS THE FIRST GET
003356 4710 6880            033F2  3978+         BC    ALLON,GETCARD4 NO, PROCEED WITH GETCARD         DA1
00335A 9601 747E      03FF0        3979+         OI    ASWITCH,NOTFIRST TURN ON NOT FIRST TIME SW
00335E 9104 F1A4      001A4        3980+         TM    PHZSW1,APOST TEST FOR A SINGLE QUOTE
003362 4710 67F8            0336A  3981+         BC    ALLON,GETCARD1 APOSTROPHE ALREADY ASSUMED       DA1
003366 927F 74C4      04036        3982+         MVI   LITSIGN,QUOTE REPLACE WITH X'7F' FOR QUOTE     DA1
00336A 4580 6972            034E4  3983+GETCARD1 BAL   L1,GETIPT GET A CARD - RETURN REG3=A(INPUT)
00336E 4580 689A            0340C  3984+GC       BAL   L1,SKPEJECT CHECK FOR SKIP OR EJECT
003372 47F0 67F8            0336A  3985+         B     GETCARD1 GET ANOTHER CARD
003376 4580 688C            033FE  3986+GC4      BAL   L1,GETGCN GET GCN AND CHECK NUM OPTION
00337A 9110 747C      03FEE        3987+         TM    COPYSW,INCPYLIB ARE WE IN COPY LIBRARY
00337E 4710 6856            033C8  3988+         BC    ALLON,GC2 YES - BYPASS SEQ CHECK
003382 D201 74B6 74AE 04028 04020  3989+         MVC   SEQIND,BLANKS INIT SEQUENCE INDICATOR
003388 9108 F1A3      001A3        3990+         TM    PHZSW,SEQ MUST WE CHECK SEQUENCE
00338C 4780 684A            033BC  3991+         BC    ALLOFF,GC1 NO, RETURN
003390 D505 4000 74AE 00000 04020  3992+         CLC   0(6,S1),BLANKS IS  SEQUENCE BLANK               DA1
003396 4780 684A            033BC  3993+         BE    GC1 YES, DONT BOTHER CHECKING
00339A D505 4000 7280 00000 03DF2  3994+         CLC   0(6,S1),SEQSAVE IS IT HIGHER THAN PREVIOUS       DA1
0033A0 4720 6844            033B6  3995+         BH    GETCARD2 YES, SAVE NEW SEQ NO             DA1
0033A4 D201 74B6 74AC 04028 0401E  3996+         MVC   SEQIND,STARS INDICATOR TO SHOW OUT OF SEQ     DA1
0033AA 48C0 F180            00180  3997+         LH    W3,SEQERR UPDATE NUMBER OF
0033AE 41CC 0001            00001  3998+         LA    W3,DX1(W3) ERRORS ENCOUNTERED
0033B2 40C0 F180            00180  3999+         STH   W3,SEQERR IN SEQUENCE
0033B6 D205 7280 4000 03DF2 00000  4000+GETCARD2 MVC   SEQSAVE,0(S1) SAVE NEW SEQUENCE                DA1
0033BC 9101 747B      03FED        4001+GC1      TM    ABASISW,ININSERT IS IT BASIS-INSERT MODE
0033C0 4780 6856            033C8  4002+         BC    ALLOFF,GC2 NO
0033C4 92C9 74B6      04028        4003+         MVI   SEQIND,C'I' MOVE I FOR LISTING
0033C8 9101 7480      03FF2        4004+GC2      TM    MISCSW2,DBUGSW IS THIS DEBUG CARD
0033CC 4780 6866            033D8  4005+         BC    ALLOFF,GC21 NO
0033D0 5840 70F2            03C64  4006+         L     S1,DBUGPTR YES - RESTORE ADDR OF DEBUG LOC
0033D4 47F0 6872            033E4  4007+         B     GC22 RETURN
0033D8 955C 4006      00006        4008+GC21     CLI   DX6(S1),ASTERISK IS IT A COMMENT
0033DC 4780 687C            033EE  4009+         BE    GETCARD3 YES - GET ANOTHER CARD
0033E0 4144 0006            00006  4010+         LA    S1,DX6(S1) UPDATE TO COLUMN 7 OF CARD
0033E4 98AC 70B2            03C24  4011+GC22     LM    W1,W3,CDW1W2W3 RESTORE WORK REGS
0033E8 5880 70AE            03C20  4012+         L     L1,GCSAVEL1 RESTORE REGISTER                 DA1
0033EC 07F8                        4013+         BR    L1 EXIT                             DA1

0033EE 9640 747E      03FF0        4015+GETCARD3 OI    ASWITCH,WRITESUP SUPPRESS WRITE TO PHASE 1
0033F2 4580 6E0A            0397C  4016+GETCARD4 BAL   L1,WRITE PRINT PREVIOUS CARD
0033F6 4580 6972            034E4  4017+GC3      BAL   L1,GETIPT GET A CARD - RETURN OF INPUT
0033FA 47F0 67FC            0336E  4018+         B     GC BUFFER IN REG 3

                                   4020+***                                                                 ***
                                   4021+*   THE FOLLOWING ROUTINE UPDATES THE INTERNAL GENERATED SEQUENCE     *
                                   4022+*        NUMBER AND CHECKS THE NUM OPTION                             *
                                   4023+**                                                                  ***
PH01   IKFCBL01                                                                                                PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0033FE 48C0 718A            03CFC  4024+GETGCN   LH    W3,CURGCN CURRENT SEQ NO (INTERNAL)
003402 41CC 0001            00001  4025+         LA    W3,DX1(W3) INCREMENT BY ONE AND
003406 40C0 718A            03CFC  4026+         STH   W3,CURGCN STORE NEW INTERNAL CARD NO.
00340A 07F8                        4027+         BR    L1 RETURN
                                   4028+*****************************************************************
                                   4029+*        THE FOLLOWING ROUTINE CHECKS FOR COMMENTS(* IN COL 7), *
                                   4030+*              SKIP1, SKIP2, SKIP3, OR EJECT. THESE STATEMENTS  *
                                   4031+*              MAY APPEAR ANYWHERE IN A SOURCE PROGRAM, EVEN    *
                                   4032+*              BEFORE THE IDENTIFICATION DIVISION CARD. IF THE   *
                                   4033+*              STATEMENT IS A COMMENT, WE RETURN TO INCREMENT   *
                                   4034+*              THE INTERNAL SEQUENCE NUMBER AND GET A CARD. IF  *
                                   4035+*              IT IS A SKIP OR EJECT, WE GET A CARD.            *
                                   4036+*****************************************************************
00340C 955C 4006      00006        4037+SKPEJECT CLI   DX6(S1),ASTERISK IS IT A COMMENT
003410 4788 0004            00004  4038+         BE    DX4(L1) YES-RETURN VIA REG8
003414 41C4 0048            00048  4039+         LA    W3,DX72(S1) SET COL 73 AS SCAN LIMIT
003418 DD4F 4007 6EB8 00007 03A2A  4040+         TRT   DX7(LX80,S1),TRTTAB SCAN TO NON BLANK
00341E 4788 0004            00004  4041+         BC    ALLOFF,DX4(L1) BLANK CARD
003422 191C                        4042+         CR    C1,W3 PAST COL 73
003424 47B8 0004            00004  4043+         BNL   DX4(L1) A BLANK CARD
003428 18B1                        4044+         LR    W2,C1 SAVE BEGINNING ADDRESS OF NON BLANK
00342A 4111 0005            00005  4045+         LA    C1,DX5(C1) SKIPN OR EJECT LENGTH
00342E DD4F 1000 6EB8 00000 03A2A  4046+         TRT   DX0(LX80,C1),TRTTAB SCAN TO NON BLANK
003434 4780 68CC            0343E  4047+         BC    ALLOFF,SKPEJT2 CARD BLANK
003438 191C                        4048+         CR    C1,W3 IS CARD BLANK
00343A 4748 0004            00004  4049+         BL    DX4(L1) NO, RETURN
00343E 1BCC                        4050+SKPEJT2  SR    W3,W3 CLEAR
003440 D504 B000 76B4 00000 04226  4051+         CLC   DX0(LX5,W2),EJECT IS WORD EJECT
003446 4780 6902            03474  4052+         BE    SKPEJT1 IT IS EJECT
00344A 41CC 0001            00001  4053+         LA    W3,DX1(W3) UPDATE FOR COMPILER DIRECTING CODE
00344E D504 B000 7732 00000 042A4  4054+         CLC   DX0(LX5,W2),SKIP1 IS WORD SKIP1
003454 4780 6902            03474  4055+         BE    SKPEJT1 YES CALL TO SKIP 1 LINE
003458 41CC 0001            00001  4056+         LA    W3,DX1(W3) UPDATE FOR COMPILER DIRECTING CODE
00345C D504 B000 7738 00000 042AA  4057+         CLC   DX0(LX5,W2),SKIP2 IS WORD SKIP2
003462 4780 6902            03474  4058+         BE    SKPEJT1 YES CALL TO SKIP 2 LINES
003466 41CC 0001            00001  4059+         LA    W3,DX1(W3) UPDATE FOR COMPILER DIRECTING CODE
00346A D504 B000 773E 00000 042B0  4060+         CLC   DX0(LX5,W2),SKIP3 IS WORD SKIP3
003470 4778 0004            00004  4061+         BNE   DX4(L1) NO-RET YES-CALL TO SKP 3 LINES
003474 9102 747C      03FEE        4062+SKPEJT1  TM    COPYSW,CPYSURP COPY SUPPRESS IN EFFECT
003478 4718 0000            00000  4063+         BC    ALLON,DX0(L1) RETURN TO GET A CARD
00347C 9180 F1A3      001A3        4064+         TM    PHZSW,LIST SOURCE REQUESTED
003480 4788 0000            00000  4065+         BC    ALLOFF,DX0(L1) NO, GET A CARD
                                   4066+*DEL
                                   4067+*DEL
003484 42C0 6919            0348B  4068+         STC   W3,SKIP+DX3 INSERT CODE FOR SKIP
003488 050F                        4069+SKIP     BALR  C0,C5 REQUEST SKIP-CALL PH0
00348A D600                        4070+         DC    X'D600' 2ND BYTE IS NO. OF LINES
00348C 07F8                        4071+         BR    L1 RETURN TO GET A CARD
                                   4072+*DEL
                                   4073+*DEL
                                   4074+*DEL



                                   4076+***********************************************************************
PH01   IKFCBL01                                                                                                PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4077+*              DEBUG SCAN                                             *
                                   4078+*                   THE FOLLOWING ROUTINE CHECKS TO SEE IF A DEBUG    *
                                   4079+*                   CARD WAS READ. IF IT IS A DEBUG CARD, A CHECK     *
                                   4080+*                   IS MADE TO SEE IF IT IS WITHIN COL 6 IN WHICH     *
                                   4081+*                   CASE DBUGC6 IS SET FOR THE GETCARD SEQUENCE       *
                                   4082+*                   CHECKING ROUTINE                                  *
                                   4083+***********************************************************************
00348E                             4084+DEBUGSCN EQU   * CHECK FOR DEBUG STATEMENT
00348E 9104 7480      03FF2        4085+         TM    MISCSW2,PROCSW ARE WE IN PROCEDURE DIVISION
003492 4788 0000            00000  4086+         BC    ALLOFF,DX0(L1) NO - THEN DONT CHECK FOR DEBUG
003496 41A4 0005            00005  4087+         LA    W1,DX5(S1) COL 6 ADDR FOR DEBUG IN SEQ FIELD
00349A 41C4 0047            00047  4088+         LA    W3,DX71(S1) SET COL 73 AS A SCAN LIMIT
00349E DD4F 4000 6EB8 00000 03A2A  4089+         TRT   DX0(LX80,S1),TRTTAB SCAN TO NON BLANK
0034A4 4788 0000            00000  4090+         BC    ALLOFF,DX0(L1) BLANK CARD RETURN
0034A8 191C                        4091+         CR    C1,W3 PAST COL 73
0034AA 47B8 0000            00000  4092+         BNL   DX0(L1) BLANK CARD - RETURN
0034AE 19A1                        4093+         CR    W1,C1 HIT ADDRESS IS PAST COL 6
0034B0 4740 6950            034C2  4094+         BC    LT,DEBUGSN1 YES - SEE IF IT IS DEBUG
0034B4 D505 1000 7490 00000 04002  4095+         CLC   DX0(LX6,C1),DEBUG SEE IF DEBUG IS WITHIN COL 6
0034BA 4780 695E            034D0  4096+         BE    DEBUGSN2 YES - SET DEBUG-WITHIN-COL6 SW
0034BE 47F8 0000            00000  4097+         B     DX0(L1) RETURN
0034C2 D505 1000 7490 00000 04002  4098+DEBUGSN1 CLC   DX0(LX6,C1),DEBUG SEE IF DEBUG
0034C8 4778 0000            00000  4099+         BNE   DX0(L1) NO - RETURN
0034CC 47F0 6962            034D4  4100+         B     DEBUGSN3 SET SWITCHES
0034D0 9602 7480      03FF2        4101+DEBUGSN2 OI    MISCSW2,DBUGC6 INDICATE DEBUG WITHIN COL 6
0034D4 9601 7480      03FF2        4102+DEBUGSN3 OI    MISCSW2,DBUGSW SET DEBUG SWITCH
0034D8 4111 0005            00005  4103+         LA    C1,DX5(C1) POINT BEYOND SWITCH
0034DC 5010 70F2            03C64  4104+         ST    C1,DBUGPTR SAVE THIS AS GETWORD PTR
0034E0 47F8 0000            00000  4105+         B     DX0(L1) RETURN FOR DEBUG WITHIN COL 6
PH01   IKFCBL01                                                                                                PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4107+*****************************************************************
                                   4108+*        CALL TO PHASE 0 TO GET A CARD FROM SYSIN
                                   4109+*              C0 POINTS TO CALLING PARAMETER VIA BALR INST
                                   4110+*              C5 HAS THE ADDRESS OF PHASE 0
                                   4111+*        RETURNS
                                   4112+*              C0+2      LAST CARD NOT READ  C0 =ADDR OF INPUT
                                   4113+*              C0+6      LAST CARD READ
                                   4114+*****************************************************************
0034E4 5080 70A6            03C18  4115+GETIPT   ST    L1,RDSAVEL1 SAVE LINK REGISTER
0034E8 94FC 7480      03FF2        4116+         NI    MISCSW2,FF-DBUGC6-DBUGSW TURN OFF DEBUG INDICATORS
0034EC 9110 747C      03FEE        4117+         TM    COPYSW,INCPYLIB ARE WE IN COPY LIBRARY
0034F0 4710 6A28            0359A  4118+         BC    ALLON,GETCOPY READ COPY MEMBER
0034F4 94FD 747C      03FEE        4119+         NI    COPYSW,FF-CPYSURP OFF COPY SUPPRESS (SET IN CPYEND)
0034F8 9180 747B      03FED        4120+         TM    ABASISW,INBASIS ARE WE IN BASIS LIBRARY
0034FC 4710 6B48            036BA  4121+         BC    ALLON,GETBASIS READ FROM LIBRARY
003500 050F                        4122+         BALR  C0,C5 READ CARD FROM SYSIN
003502 75                          4123+         DC    X'75' FROM SYSIN
003503 00
003504 4770 699A            0350C  4124+         BC    NZERO,GETIPT2 NOT LAST CARD - BRANCH
003508 47F0 69DA            0354C  4125+         B     LASTCARD READ LAST CARD ALREADY
                                   4126+*
                                   4127+*        THE FOLLOWING ROUTINE SAVES THE ADDRESS OF THE
                                   4128+*              INPUT BUFFER, MARGIN B, AND COLUMN 72
                                   4129+*
00350C                             4130+GETIPT2  EQU   *
00350C 1840                        4131+         LR    S1,C0 ADDRESS OF INPUT BUFFER
00350E 4580 691C            0348E  4132+GETIPT21 BAL   L1,DEBUGSCN CHECK FOR DEBUG
003512 5040 7086            03BF8  4133+GETIPT3  ST    S1,AIOA1I SAVE INPUT BUFFER ADDRESS
003516 41C4 0006            00006  4134+         LA    W3,DX6(S1) UPDATE TO COLUMN7
00351A 50C0 708A            03BFC  4135+         ST    W3,COLUMN7 SAVE IT
00351E 41CC 0001            00001  4136+         LA    W3,DX1(W3) UPDATE TO COLUMN 8
003522 50C0 708E            03C00  4137+         ST    W3,COLUMN8 SAVE IT
003526 41CC 0004            00004  4138+         LA    W3,DX4(W3) UPDATE TO COLUMN 12
00352A 50C0 7092            03C04  4139+         ST    W3,MARGINB SAVE FOR MARGINB COMPARE
00352E 41CC 003C            0003C  4140+         LA    W3,DX60(W3) UPDATE TO COLUMN 72
003532 50C0 7096            03C08  4141+         ST    W3,COLUMN72 SAVE FOR END OF CARD COMPARE
003536 9102 7480      03FF2        4142+         TM    MISCSW2,DBUGC6 IS THIS DEBUG WITHIN COL 6
00353A 4780 69D4            03546  4143+         BC    ALLOFF,GETIPT4 NO
00353E 4140 74AE            04020  4144+         LA    S1,BLANKS YES- POINT TO BLANKS FOR
003542 47F0 6804            03376  4145+         B     GC4 SEQUENCE CHECK IN GETCARD RTN
003546 5880 70A6            03C18  4146+GETIPT4  L     L1,RDSAVEL1 RESTORE LINK REGISTER
00354A 07F8                        4147+         BR    L1 RETURN TO CALLING RTN
                                   4148+*        RETURN TO CALLING ROUTINE VIA L1 (REG8)
                                   4149+*
PH01   IKFCBL01                                                                                                PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4151+***********************************************************************
                                   4152+*              LASTCARD ROUTINE                                       *
                                   4153+*                1  LASTCARD GETS CONTROL WHEN THE LAST RECORD FROM   *
                                   4154+*                   SYSIN OR SYSLIB(BASIS) HAS BEEN READ.             *
                                   4155+*                2  IF WE ARE PROCESSING FROM BASIS, A CHECK IS MADE  *
                                   4156+*                   FOR ANY PENDING INSERT OR DELETE. IF AN INSERT    *
                                   4157+*                   OR DELETE IS PENDING, IT IS IN ERROR.             *
                                   4158+*                3  THE REPLACING TABLE IS RELEASED AND A
                                   4159+*                   RETURN TO PHASE 0 IS MADE
                                   4160+***********************************************************************
00354C 9680 7483      03FF5        4161+LASTCARD OI    MISCSW5,LSTBASIS INDICATE LAST BASIS READ
003550 9140 747B      03FED        4162+         TM    ABASISW,IDELCARD INSERT OR DELETE IN EFFECT
003554 4780 6A0E            03580  4163+         BC    ALLOFF,LSTCARD2 NO - WRITE LAST RECORD
003558 D205 7280 7190 03DF2 03D02  4164+         MVC   SEQSAVE(LX6),BASWORK GET LAST BASIS READ SEQ NUM
00355E 9110 747B      03FED        4165+         TM    ABASISW,INDELETE IS DELETE IN EFFECT
003562 4780 69FE            03570  4166+         BC    ALLOFF,LSTCARD1 NO-CHECK INSERT
003566 4580 61F6            02D68  4167+         BAL   L1,DIAGNOSE DELETE NUMBER GREATER THAN LAST
00356A 22                          4168+         DC    X'22' SEVERITY E
00356B 75                          4169+         DC    X'75' MESSAGE 117
00356C 47F0 6A0E            03580  4170+         B     LSTCARD2 WRITE LAST RECORD
003570 D505 7280 7178 03DF2 03CEA  4171+LSTCARD1 CLC   SEQSAVE(LX6),INSNUM INSERT AFTER LAST CARD
003576 47B0 6BEA            0375C  4172+         BC    GE,GETBAS9 YES - DO INSERT
00357A 4580 61F6            02D68  4173+         BAL   L1,DIAGNOSE INSERT NUMBER GREATER THAN LAST
00357E 22                          4174+         DC    X'22' SEVERITY E
00357F 76                          4175+         DC    X'76' MESSAGE 118
                                   4176+*
003580                             4177+LSTCARD2 EQU   * PREPARE FOR RETURN TO PHASE 0
003580 58F0 50B2            01C24  4178+         L     C5,ADTREL ADDR OF RELEASE (TAMER)
003584 5810 50BA            01C2C  4179+         L     C1,CRPCON ADDR OF REPLACING TABLE
003588 05EF                        4180+         BALR  C4,C5 RELEASE TABLE
00358A 58F0 50A2            01C14  4181+         L     C5,COSADDR GET ADDR OF COS
00358E 050F                        4182+         BALR  C0,C5 PURGE
003590 F4                          4183+         DC    X'F4' FILE 4
003591 CC                          4184+         DC    X'CC' *
003592 050F                        4185+         BALR  C0,C5 TCLOSE FILE FOUR
003594 64                          4186+         DC    X'64' FOR PHASE1 READS
003595 00
003596 050F                        4187+         BALR  C0,C5 END OF PREPROCESSOR
003598 A0                          4188+         DC    X'A0' RETURN TO PHASE 0
PH01   IKFCBL01                                                                                                PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4190+***********************************************************************
                                   4191+*        CALL TO PHASE 0 TO GET A CARD FROM THE COPY LIBRARY          *
                                   4192+*              C0 POINTS TO CALLING PARAMETER VIA BALR INST           *
                                   4193+*              C5 HAS THE ADDRESS OF PHASE 0                          *
                                   4194+*        RETURNS                                                      *
                                   4195+*              C0+10      GOOD READ                                   *
                                   4196+*                         IF CONDITION CODE = 0,LAST CARD             *
                                   4197+*                         WAS READ                                    *
                                   4198+*            C0+14        NO LIBRARY
                                   4199+*            C0+18        BAD TRACK
                                   4200+*            C0+22        NO MEMBER
                                   4201+*        TWO BUFFERS ARE MAINTAINED BECAUSE OF THE REPLACING          *
                                   4202+*              OPTION AND THE REPLACING OF 01 AND 77 LEVEL DATA       *
                                   4203+*              ITEMS.                                                 *
                                   4204+***********************************************************************
003599 00
00359A 9101 7481      03FF3        4205+GETCOPY  TM    MISCSW3,REPBUF2 2 BUFFERS USED BY COPY REP
00359E 4780 6A6A            035DC  4206+         BC    ALLOFF,GETCPY3 NO - CHECK IF 4 WORKAREAS USED
0035A2 94EF 7481      03FF3        4207+         NI    MISCSW3,FF-REPQUOT INIT CONTINUATION QUOTE SWITCH
0035A6 D700 74C1 74C1 04033 04033  4208+         XC    REPINDX(LX1),REPINDX INIT TABLE INDEX
0035AC D241 72D9 7373 03E4B 03EE5  4209+         MVC   CPYWRK1+6(LX66),CPYHYP WORKAREA TO GETCARD BUFFER
0035B2 9102 7481      03FF3        4210+         TM    MISCSW3,REPBUF3 3 BUFFERS USED BY COPY REP
0035B6 4710 6A4C            035BE  4211+         BC    ALLON,GETCPY1 YES - MOVE BUFFERS
0035BA 94FE 7481      03FF3        4212+         NI    MISCSW3,FF-REPBUF2 SET OFF BUFFER 2 SW
0035BE D283 7373 73B5 03EE5 03F27  4213+GETCPY1  MVC   CPYHYP(LX132),CPYHYP2 SHIFT WORKAREAS
0035C4 9104 7481      03FF3        4214+         TM    MISCSW3,REPBUF4 4 BUFFERS USED BY COPY REP
0035C8 4710 6A5E            035D0  4215+         BC    ALLON,GETCPY2 YES
0035CC 94FD 7481      03FF3        4216+         NI    MISCSW3,FF-REPBUF3 SET OFF BUFFER 3 SW
0035D0 94FB 7481      03FF3        4217+GETCPY2  NI    MISCSW3,FF-REPBUF4 SET OFF BUFFER 4 SW
0035D4 4580 688C            033FE  4218+         BAL   L1,GETGCN SET GENERATED SEQUENCE NUM
0035D8 47F0 6880            033F2  4219+         B     GETCARD4 WRITE AND GET ANOTHER RECORD
0035DC 9108 7481      03FF3        4220+GETCPY3  TM    MISCSW3,FULLBUFS ALL WORKAREAS USED
0035E0 4780 6A84            035F6  4221+         BC    ALLOFF,GETCPY4 NO - SCAN A NEW CARD
0035E4 D24F 72D3 7230 03E45 03DA2  4222+         MVC   CPYWRK1(LX80),LIBWORK RESTORE ORIGINAL CARD
0035EA 4580 688C            033FE  4223+         BAL   L1,GETGCN GET GENERATED SEQ NUM
0035EE 9812 70CA            03C3C  4224+         LM    C1,C2,C1C2SAVE RESTORE POINTER REGS FOR WORD
0035F2 47F0 5B50            026C2  4225+         B     ASETCPY3 CONTINUE PROCESSING CARD
0035F6 9108 747C      03FEE        4226+GETCPY4  TM    COPYSW,LASTCPY WAS LAST COPY READ
0035FA 4770 6ADA            0364C  4227+         BC    NZERO,CPYEND YES - END COPY PROCESSING
0035FE 9104 747C      03FEE        4228+         TM    COPYSW,DBLCPY 2 BUFFERS PRESENTLY USED
003602 4780 6A9C            0360E  4229+         BC    TZERO,CPYRD1 NO - READ 1ST COPY MEMBER
003606 41E0 7323            03E95  4230+         LA    C4,CPYWRK2 ADDR OF 2ND BUFFER
00360A 47F0 6B10            03682  4231+         B     CPYRD2 MOVE CARD IMAGE TO 1ST COPY AREA
                                   4232+*
00360E 050F                        4233+CPYRD1   BALR  C0,C5 READ CARD
003610 09                          4234+         DC    X'09' FROM COPY
003611 F040404040404040            4235+CPYLNAM  DC    CL8'0' LIBRARY-NAME
003619 00
00361A 47F0 6AD6            03648  4236+         B     CPYLST GOOD READ
00361E 47F0 6ABE            03630  4237+         B     CPYNOLIB NO LIBRARY
003622 47F0 6AC8            0363A  4238+         B     CPYBADTK BAD TRACK
003626 4580 61F6            02D68  4239+         BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
00362A 20                          4240+         DC    X'20' E-LEVEL, NO INSERTS
00362B 2E                          4241+         DC    X'2E' MESSAGE 1046
00362C 47F0 6ACE            03640  4242+         B     CPYEND1 TERMINATE COPY PROCESSING
PH01   IKFCBL01                                                                                                PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003630 4580 61F6            02D68  4243+CPYNOLIB BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
003634 20                          4244+         DC    X'20' E-LEVEL, NO INSERTS
003635 2F                          4245+         DC    X'2F' MESSAGE 1047
003636 47F0 6ACE            03640  4246+         B     CPYEND1 TERMINATE COPY PROCESSING
00363A 4580 61F6            02D68  4247+CPYBADTK BAL   L1,DIAGNOSE ISSUE DIAGNOSTIC
00363E 20                          4248+         DC    X'20' E-LEVEL, NO INSERTS
00363F 30                          4249+         DC    X'30' MESSAGE 1048
003640 9620 7483      03FF5        4250+CPYEND1  OI    MISCSW5,NOCPYMEM INDICATE NO MEMBER ON 1ST STMT
                                   4251+*                                  AFTER COPY STMT
003644 47F0 6ADA            0364C  4252+         B     CPYEND TERMINATE COPY PROCESSING
                                   4253+*
003648 4770 6AFA            0366C  4254+CPYLST   BC    NZERO,CPYRDSUP NOT LAST CARD - CONTINUE COPY
00364C 9400 747C      03FEE        4255+CPYEND   NI    COPYSW,K0 RESET COPY SWITCHES
003650 94DF 7481      03FF3        4256+         NI    MISCSW3,FF-CDSURP RESET COPY SWITCHES
003654 9602 747C      03FEE        4257+         OI    COPYSW,CPYSURP SUPPRESS PRINTING AND WRITING
003658 9640 747E      03FF0        4258+         OI    ASWITCH,WRITESUP TO AVOID LAST COPY REC TWICE
00365C 4580 67D8            0334A  4259+         BAL   L1,GETCARD GET A CARD (SYSIN OR BASIS)
003660 94FD 747C      03FEE        4260+         NI    COPYSW,FF-CPYSURP RESET COPY SWITCH
003664 4580 6306            02E78  4261+         BAL   L1,GETWORD GET A WORD
003668 47F0 53DA            01F4C  4262+         B     CHGPTR2 RETURN TO STRING PROCESSING
                                   4263+*
00366C 947F 747C      03FEE        4264+CPYRDSUP NI    COPYSW,FF-CPYSTMT SUPPRESS 'CO' INDICATOR IN PRINT
003670 9604 747C      03FEE        4265+         OI    COPYSW,DBLCPY INDICATE DOUBLE COPY READ
003674 9140 747C      03FEE        4266+         TM    COPYSW,CPYSUPP IF THE SUPPRESS OPTION
003678 4780 6B0E            03680  4267+         BC    ALLOFF,CPYRDSP1 WAS SPECIFIED INDICATE TO
00367C 9602 747C      03FEE        4268+         OI    COPYSW,CPYSURP WRITE ROUTINE TO SUPPRESS PRINT
003680 18E0                        4269+CPYRDSP1 LR    C4,C0 ADDR OF CARD IN BUFFER
003682 D24F 72D3 E000 03E45 00000  4270+CPYRD2   MVC   CPYWRK1(LX80),DX0(C4) MOVE CARD IMAGE 1ST COPY AREA
003688 D201 74B6 74AA 04028 0401C  4271+         MVC   SEQIND(LX2),CBLANK SAVE LISTING INDICATOR FOR PRINT
00368E 4140 72D3            03E45  4272+         LA    S1,CPYWRK1 ADDR OF COPY RECORD WORK AREA
                                   4273+*
003692 050F                        4274+         BALR  C0,C5 SECOND READ
003694 09                          4275+         DC    X'09' FOR COPY
003695 F040404040404040            4276+CPYLNAM2 DC    CL8'0' LIBRARY NAME
00369D 00
00369E 4770 6B3C            036AE  4277+         BC    NZERO,CPYRD2MV NOT LAST CARD
0036A2 9608 747C      03FEE        4278+         OI    COPYSW,LASTCPY LAST COPY RECORD READ
0036A6 9240 7329      03E9B        4279+         MVI   CPYWRK2+DX6,BLANK BLANK OUT COL 7 IN DBL BUFFER
0036AA 47F0 699C            0350E  4280+         B     GETIPT21 SAVE INPUT BUFFER ADDRESS
0036AE 18E0                        4281+CPYRD2MV LR    C4,C0 ADDR OF BUFFER
0036B0 D24F 7323 E000 03E95 00000  4282+         MVC   CPYWRK2(LX80),DX0(C4) MOVE CARD IMAGE TO 2ND COPY AREA
0036B6 47F0 699C            0350E  4283+         B     GETIPT21 SAVE INPUT BUFFER ADDRESS
PH01   IKFCBL01                                                                                                PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4285+***********************************************************************
                                   4286+*              CALL TO PHASE 0 TO GET A RECORD FROM THE BASIS LIBRARY *
                                   4287+*                   C0 POINTS TO CALLING PARAMETER VIA BALR INST      *
                                   4288+*                   C5 HAS THE ADDRESS OF PHASE 0                     *
                                   4289+*              RETURNS                                                *
                                   4290+*                   C0+10      GOOD READ                              *
                                   4291+*                              IF CONDITION CODE = 0,LAST CARD        *
                                   4292+*                              WAS READ                               *
                                   4293+*              LINK REGISTER IS SAVED SINCE IT IS USED IN ROUTINE     *
                                   4294+***********************************************************************
0036BA                             4295+GETBASIS DS    0H
0036BA 9101 747B      03FED        4296+         TM    ABASISW,ININSERT ARE WE INSERTING NOW
0036BE 4780 6B58            036CA  4297+         BC    ALLOFF,GETBAS1 NO-READ FROM BASIS
0036C2 94FE 747B      03FED        4298+         NI    ABASISW,FF-ININSERT YES-TURN OFF INSERT NOW SWITCH
0036C6 47F0 6B74            036E6  4299+         B     GETBAS3 CHECK IF INSERT/DELETE NOW
                                   4300+*
0036CA 050F                        4301+GETBAS1  BALR  C0,C5 READ CARD
0036CC 09                          4302+         DC    X'09' FROM BASIS
0036CD F040404040404040            4303+BASNAM   DC    CL8'0' LIBRARY MEMBER NAME
0036D5 C2                          4304+         DC    C'B' TELLS PHASE 0 IT IS BASIS READ
0036D6 4770 6B6C            036DE  4305+         BC    NZERO,GETBAS2 NOT LAST CARD - GOOD READ
                                   4306+*        B     *                   (NO LIBRARY)
                                   4307+*        B     *                   (BAD TRACK)
                                   4308+*        B     *                   (NO MEMBER)
0036DA 47F0 69DA            0354C  4309+         B     LASTCARD LAST CARD READ
                                   4310+*
                                   4311+*
                                   4312+*   THIS CARD IS SAVED SO THAT IT CAN BE PROCESSED AFTER ANY
                                   4313+*   INSERT OR DELETE THAT MAY BE IN EFFECT.
                                   4314+*
0036DE 1840                        4315+GETBAS2  LR    S1,C0 ADDR OF CARD
0036E0 D24F 7190 4000 03D02 00000  4316+         MVC   BASWORK(LX80),DX0(S1) SAVE CARD READ FROM LIBRARY
                                   4317+*
                                   4318+*   CHECK IF ANY INSERTS OR DELETES ARE IN EFFECT
                                   4319+*
0036E6 9140 747B      03FED        4320+GETBAS3  TM    ABASISW,IDELCARD INSERT/DELETE CARDS IN SYSIN
0036EA 4780 6C00            03772  4321+         BC    ALLOFF,GETBAS10 NO- PROCESS CARD READ FROM BASIS
0036EE 9102 747B      03FED        4322+         TM    ABASISW,DELNOW DELETE THRU IN PROGRESS
0036F2 4710 6BBC            0372E  4323+         BC    ALLON,GETBAS6 YES-SEE IF REACHED LAST CARD
0036F6 9110 747B      03FED        4324+         TM    ABASISW,INDELETE IS DELETE CARD IN EFFECT
0036FA 4780 6BD6            03748  4325+         BC    ALLOFF,GETBAS8 NO-THEN ARE WE INSERTING
0036FE 9108 747B      03FED        4326+         TM    ABASISW,DELTHRU IS DELETE THRU CARD IN EFFECT
003702 4710 6BAE            03720  4327+         BC    ALLON,GETBAS5 YES-CHECK IF FIRST CARD REACHED
                                   4328+*
003706 D505 7190 717E 03D02 03CF0  4329+         CLC   BASWORK(LX6),DEL1NUM IS THIS THE CARD TO BE DELETED
00370C 4740 6C00            03772  4330+         BC    LT,GETBAS10 NOT YET REACHED
003710 4720 6BCA            0373C  4331+         BC    GT,GETBAS7 NOT FOUND
003714 94E5 747B      03FED        4332+GETBAS4  NI    ABASISW,FF-INDELETE-DELTHRU-DELNOW FOUND - DELETE NO
                                   4333+*                                                 LONGER IN EFFECT
003718 4580 6CBA            0382C  4334+         BAL   L1,IDREADX CHECK FOR DELETE
00371C 47F0 6B48            036BA  4335+         B     GETBASIS READ FROM BASIS
003720 D505 7190 717E 03D02 03CF0  4336+GETBAS5  CLC   BASWORK(LX6),DEL1NUM IS THIS THE FIRST CARD TO DELETE
003726 4740 6C00            03772  4337+         BC    LT,GETBAS10 NOT YET REACHED
00372A 9602 747B      03FED        4338+         OI    ABASISW,DELNOW INDICATE DELETE THRU IN PROGRESS
00372E D505 7190 7184 03D02 03CF6  4339+GETBAS6  CLC   BASWORK(LX6),DEL2NUM IS THIS THE LAST CARD TO DELETE
PH01   IKFCBL01                                                                                                PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003734 4740 6B48            036BA  4340+         BC    LT,GETBASIS NOT YET REACHED
003738 4780 6BA2            03714  4341+         BC    EQ,GETBAS4 REACHED-CHECK FOR MORE DELETES
00373C 94E5 747B      03FED        4342+GETBAS7  NI    ABASISW,FF-INDELETE-DELTHRU-DELNOW DELETE NO LONGER
003740 4580 6CBA            0382C  4343+         BAL   L1,IDREADX CHECK FOR DELETE
003744 47F0 6B74            036E6  4344+         B     GETBAS3 CHECK IF TIME TO INSERT/DELETE
003748 D505 7280 7178 03DF2 03CEA  4345+GETBAS8  CLC   SEQSAVE(LX6),INSNUM INSERT AFTER LAST CARD
00374E 4780 6BEA            0375C  4346+         BC    EQ,GETBAS9 YES-INSERT CARD INLINE
003752 D505 7190 7178 03D02 03CEA  4347+         CLC   BASWORK(LX6),INSNUM INSERT BEFORE CURRENT CARD
003758 47D0 6C00            03772  4348+         BC    LE,GETBAS10 NO- CARD FROM BASIS INLINE
00375C D24F 7230 71E0 03DA2 03D52  4349+GETBAS9  MVC   LIBWORK(LX80),IDELWORK MOVE INSERTING CARD INLINE
003762 9601 747B      03FED        4350+         OI    ABASISW,ININSERT INDICATE INSERTING THIS CARD
003766 4580 6C10            03782  4351+         BAL   L1,IDREAD READ INSERT/DELETE CARD
00376A 4140 7230            03DA2  4352+         LA    S1,LIBWORK INPUT BUFFER ADDRESS
00376E 47F0 699C            0350E  4353+         B     GETIPT21 CHECK FOR DEBUG
003772 4140 7190            03D02  4354+GETBAS10 LA    S1,BASWORK INPUT BUFFER ADDRESS
003776 9180 7483      03FF5        4355+         TM    MISCSW5,LSTBASIS LAST BASIS READ
00377A 4780 699C            0350E  4356+         BC    ALLOFF,GETIPT21 NO - RETURN
00377E 47F0 69DA            0354C  4357+         B     LASTCARD YES - MUST BE AT EOP
                                   4358+*



                                   4360+***********************************************************************
                                   4361+*              INSERT/DELETE READ AND SCAN SUBROUTINE                 *
                                   4362+*                                                                     *
                                   4363+*        CALL TO PHASE 0 TO GET A CARD FROM SYSIN                     *
                                   4364+*              C0 POINTS TO CALLING PARAMETER VIA BALR INST           *
                                   4365+*              C5 HAS THE ADDRESS OF PHASE 0                          *
                                   4366+*        RETURNS FROM PHASE 0                                         *
                                   4367+*              C0+2      LAST CARD NOT READ - SCAN FOR INSERT/DELETE  *
                                   4368+*                        C0 = ADDR OF INPUT                           *
                                   4369+*              C0+6      LAST CARD READ                               *
                                   4370+*        THE LINK REGISTER IS SAVED SINCE IT IS USED EXTENSIVELY
                                   4371+*              THROUGHOUT THE INSERT/DELETE SCAN
                                   4372+***********************************************************************
003782 5080 709E            03C10  4373+IDREAD   ST    L1,IDSAVEL1 SAVE LINK REG
003786 050F                        4374+IDREAD1  BALR  C0,C5 CALL PHASE 0 TO
003788 75                          4375+         DC    X'75' READ SYSIN FILE
003789 00
00378A 4770 6C26            03798  4376+         BC    NZERO,IDREAD2 NOT LAST CARD-SCAN
00378E 94BF 747B      03FED        4377+IDREADL  NI    ABASISW,FF-IDELCARD INDICATE NO MORE CARDS FROM SYSIN
003792 5880 709E            03C10  4378+         L     L1,IDSAVEL1 RESTORE LINK REG
003796 07F8                        4379+         BR    L1 RETURN
003798                             4380+IDREAD2  EQU   *
003798 18E0                        4381+         LR    C4,C0 ADDR OF BUFFER
00379A D24F 71E0 E000 03D52 00000  4382+         MVC   IDELWORK(LX80),DX0(C4) SAVE BUFFER ADDRESS
0037A0 DD4F 71E0 6EB8 03D52 03A2A  4383+         TRT   IDELWORK(LX80),TRTTAB SCAN TO NONBLANK
0037A6 4780 6C14            03786  4384+         BC    ALLOFF,IDREAD1 BLANK CARD - READ ANOTHER CARD
0037AA 18E1                        4385+IDREADA  LR    C4,C1 HIT ADDRESS INTO C4
0037AC D506 E000 749D 00000 0400F  4386+         CLC   DX0(LX7,C4),INSERT IS IT INSERT
0037B2 4780 6C52            037C4  4387+         BE    IDREAD3 YES-SCAN INSERT CARD
0037B6 D506 E000 7496 00000 04008  4388+         CLC   DX0(LX7,C4),DELETE IS IT DELETE
0037BC 4780 6CAE            03820  4389+         BE    IDREAD7 YES-SCAN DELETE CARD
0037C0 47F0 6DEC            0395E  4390+         B     IDREAD23 SEE IF WITHIN INSERT/DELETE
                                   4391+*
PH01   IKFCBL01                                                                                                PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4392+*              INSERT CARD SCAN
                                   4393+*
0037C4 DD40 E007 6EB8 00007 03A2A  4394+IDREAD3  TRT   DX7(LX65,C4),TRTTAB SCAN TO NON-BLANK
0037CA 4780 6C14            03786  4395+         BC    ALLOFF,IDREAD1 EMPTY CARD - READ ANOTHER CARD
0037CE 18E1                        4396+         LR    C4,C1 SAVE START ADDR OF SCAN
0037D0 41C1 0006            00006  4397+         LA    W3,DX6(C1) ADDR WHERE NUMBER SHOULD END
0037D4 4580 6FCE            03B40  4398+         BAL   L1,NUMSCAN CHANGE TRTTAB FOR DIGIT SCAN
0037D8 DD40 1000 6EB8 00000 03A2A  4399+         TRT   DX0(LX65,C1),TRTTAB SCAN NUMBER FIELD
0037DE 4580 6FF0            03B62  4400+         BAL   L1,NBLKSCN CHANGE TRTTAB FOR NONBLK SCAN
0037E2 15C1                        4401+         CLR   W3,C1 IS SIZE SIX
0037E4 4780 6C80            037F2  4402+         BC    EQ,IDREAD4 SIZE IF OK
0037E8 4580 61F6            02D68  4403+         BAL   L1,DIAGNOSE INCORRECT SIZE
0037EC 22                          4404+         DC    X'22' SEVERITY E
0037ED 71                          4405+         DC    X'71' MESSAGE 113
0037EE 47F0 6CA2            03814  4406+         B     IDREAD6 GO INDICATE ERROR,READ AGAIN
0037F2 D505 E000 7178 00000 03CEA  4407+IDREAD4  CLC   DX0(LX6,C4),INSNUM IS INSERT IN SEQUENCE
0037F8 4740 6C9C            0380E  4408+         BC    LT,IDREAD5 NO OUT OF SEQUENCE
0037FC D205 7178 E000 03CEA 00000  4409+         MVC   INSNUM(LX6),DX0(C4) HOLD INSERT SEQUENCE NUMBER
003802 9620 747B      03FED        4410+         OI    ABASISW,IDELSRC INDICATE SOURCE CARDS MAY FOLLOW
003806 94FB 747B      03FED        4411+         NI    ABASISW,FF-IDELERR TURN OFF ERROR INDICATOR
00380A 47F0 6C14            03786  4412+         B     IDREAD1 READ ANOTHER CARD
00380E 4580 61F6            02D68  4413+IDREAD5  BAL   L1,DIAGNOSE OUT OF SEQUENCE
003812 22                          4414+         DC    X'22' SEVERITY E
003813 59                          4415+         DC    X'59' MESSAGE 89
003814 9604 747B      03FED        4416+IDREAD6  OI    ABASISW,IDELERR SET ERROR INDICATOR
003818 94CF 747B      03FED        4417+         NI    ABASISW,FF-INDELETE-IDELSRC OFF DELETE AND BYPASS SOURCE
00381C 47F0 6C14            03786  4418+         B     IDREAD1 READ ANOTHER CARD
                                   4419+*
                                   4420+*              DELETE CARD SCAN
                                   4421+*
003820 411E 0006            00006  4422+IDREAD7  LA    C1,DX6(C4) POINT WORD DELETE
003824 927F 7228      03D9A        4423+         MVI   IDELWORK+DX72,QUOTE STOPPER FOR TRT INST.
003828 47F0 6CC2            03834  4424+         B     IDREAD8 GO SCAN REMAINDER OF CARD
                                   4425+*
00382C 5080 709E            03C10  4426+IDREADX  ST    L1,IDSAVEL1 SAVE LINK REG
003830 5810 70EE            03C60  4427+         L     C1,DELPTRSV GET DELETE POINTER - NEXT ADDR
                                   4428+*
003834 DD4F 1000 6EB8 00000 03A2A  4429+IDREAD8  TRT   DX0(LX80,C1),TRTTAB SCAN TO NON-BLANK
00383A 41C0 7227            03D99  4430+         LA    W3,IDELWORK+DX71 COLUMN 72
00383E 191C                        4431+         CR    C1,W3 END OF CARD
003840 47B0 6C14            03786  4432+         BC    GE,IDREAD1 YES READ ANOTHER CARD
003844 95F0 1000      00000        4433+         CLI   DX0(C1),EXTZERO IS THE NEXT CHARACTER
003848 4740 6CE2            03854  4434+         BL    IDREAD9 A DIGIT
00384C 95F9 1000      00000        4435+         CLI   DX0(C1),EXTNINE IF SO SCAN FOR NUMBER
003850 47D0 6D08            0387A  4436+         BC    LE,IDREAD11 ON DELETE STATEMENT
003854 956B 1000      00000        4437+IDREAD9  CLI   DX0(C1),COMMA IS CHARACTER A COMMA
003858 4780 6CFA            0386C  4438+         BC    EQ,IDREAD10 IF SO, IT IS EXTRANEOUS
00385C 9560 1000      00000        4439+         CLI   DX0(C1),HYPHEN IS CHARACTER A HYPHEN
003860 4780 6CFA            0386C  4440+         BC    EQ,IDREAD10 IF SO, IT IS EXTRANEOUS
003864 4111 0006            00006  4441+         LA    C1,DX6(C1) UPDATE TO NEXT POSSIBLE NUMBER
003868 47F0 6D22            03894  4442+         B     IDREAD12 PUT OUT MESSAGE 113
00386C 4580 61F6            02D68  4443+IDREAD10 BAL   L1,DIAGNOSE EXTRANEOUS CHARACTER MSG
003870 10                          4444+         DC    X'10' SEVERITY C  NO INSERT
003871 72                          4445+         DC    X'72' MESSAGE 114
003872 4111 0001            00001  4446+         LA    C1,DX1(C1) SET UP ADDR
PH01   IKFCBL01                                                                                                PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003876 47F0 6DE0            03952  4447+         B     IDREAD22 INDICATE ERROR,CONTINUE SCAN
                                   4448+*
00387A 18E1                        4449+IDREAD11 LR    C4,C1 SAVE SCAN ADDR
00387C 41C1 0006            00006  4450+         LA    W3,DX6(C1) ADDR WHERE SCAN SHOULD END
003880 4580 6FCE            03B40  4451+         BAL   L1,NUMSCAN CHANGE TRTTAB FOR DIGIT SCAN
003884 DD40 1001 6EB8 00001 03A2A  4452+         TRT   DX1(LX65,C1),TRTTAB SCAN NUMBER FIELD
00388A 4580 6FF0            03B62  4453+         BAL   L1,NBLKSCN CHANGE TRTTAB FOR NONBLK SCAN
00388E 15C1                        4454+         CLR   W3,C1 IS SIZE SIX
003890 4780 6D3A            038AC  4455+         BC    EQ,IDREAD14 SIZE IS OK
003894 4580 61F6            02D68  4456+IDREAD12 BAL   L1,DIAGNOSE EXPECTING SIX DIGIT NUMBER
003898 22                          4457+         DC    X'22' SEVERITY E
003899 71                          4458+         DC    X'71' MESSAGE 113
00389A 4580 6FB8            03B2A  4459+IDREAD13 BAL   L1,NOLDHSCN SET TRTTAB FOR NON-LETTER,DIGIT,HYP
00389E DD4F 1000 6EB8 00000 03A2A  4460+         TRT   DX0(LX80,C1),TRTTAB SCAN
0038A4 4580 6FDA            03B4C  4461+         BAL   L1,NBLKSCAN RESET TRTTAB FOR NONBLK SCAN
0038A8 47F0 6DE0            03952  4462+         B     IDREAD22 GO SET SWITCHES
                                   4463+*
0038AC D505 E000 7178 00000 03CEA  4464+IDREAD14 CLC   DX0(LX6,C4),INSNUM IS NUMBER IN SEQUENCE
0038B2 4740 6DDA            0394C  4465+         BC    LT,IDREAD21 NO SEQUENCE ERROR
0038B6 D205 717E E000 03CF0 00000  4466+         MVC   DEL1NUM(LX6),DX0(C4) SET UP DEL1NUM
0038BC D205 7178 E000 03CEA 00000  4467+         MVC   INSNUM(LX6),DX0(C4) SET UP INSERT NUMBER
0038C2 9610 747B      03FED        4468+         OI    ABASISW,INDELETE DELETE INDICATOR
0038C6 9540 1000      00000        4469+IDREAD15 CLI   DX0(C1),BLANK IS IT A BLANK
0038CA 4780 6D76            038E8  4470+         BC    EQ,IDREAD17 GO SET SWITCHES, RETURN
0038CE 956B 1000      00000        4471+         CLI   DX0(C1),COMMA IS IT A COMMA
0038D2 4780 6D72            038E4  4472+         BC    EQ,IDREAD16 GO SET UP ADDR, RETURN
0038D6 9560 1000      00000        4473+         CLI   DX0(C1),HYPHEN IS IT A HYPHEN
0038DA 4780 6D88            038FA  4474+         BC    EQ,IDREAD18 CONTINUE SCAN
0038DE 4580 61F6            02D68  4475+         BAL   L1,DIAGNOSE NO PUNCTUATION-ASSUME BLANK
0038E2 22                          4476+         DC    X'22' SEVERITY E
0038E3 73                          4477+         DC    X'73' MESSAGE 115
0038E4 4111 0001            00001  4478+IDREAD16 LA    C1,DX1(C1) SET UP ADDR
0038E8 5010 70EE            03C60  4479+IDREAD17 ST    C1,DELPTRSV SAVE DELETE POINTER
0038EC 9620 747B      03FED        4480+         OI    ABASISW,IDELSRC INDICATE SOURCE CARDS MAY FOLLOW
0038F0 94FB 747B      03FED        4481+         NI    ABASISW,FF-IDELERR SET OFF ERROR INDICATOR
0038F4 5880 709E            03C10  4482+IDREADR  L     L1,IDSAVEL1 RESTORE LINK REGISTER
0038F8 07F8                        4483+         BR    L1 RETURN
0038FA 41E1 0001            00001  4484+IDREAD18 LA    C4,DX1(C1) SAVE START ADDR
0038FE 41C1 0007            00007  4485+         LA    W3,DX7(C1) ADDR WHERE SCAN SHOULD END
003902 4580 6FCE            03B40  4486+         BAL   L1,NUMSCAN CHANGE TRTTAB FOR DIGIT SCAN
003906 DD40 1001 6EB8 00001 03A2A  4487+         TRT   DX1(LX65,C1),TRTTAB SCAN TO NON DIGIT
00390C 4580 6FF0            03B62  4488+         BAL   L1,NBLKSCN CHANGE TRTTAB FOR NONBLK SCAN
003910 15C1                        4489+         CLR   W3,C1 IS SIZE SIX
003912 4780 6DB2            03924  4490+         BC    EQ,IDREAD19 SIZE IS OK
003916 4580 61F6            02D68  4491+         BAL   L1,DIAGNOSE IGNORE DELETE THRU NUMBER
00391A 22                          4492+         DC    X'22' SEVERITY E
00391B 74                          4493+         DC    X'74' MESSAGE 116
00391C 94EF 747B      03FED        4494+         NI    ABASISW,FF-INDELETE TURN OFF DELETE INDICATOR
003920 47F0 6D28            0389A  4495+         B     IDREAD13 CONTINUE SCAN
                                   4496+*
003924 D505 E000 7178 00000 03CEA  4497+IDREAD19 CLC   DX0(LX6,C4),INSNUM IS NUMBER IN SEQUENCE
00392A 47B0 6DC6            03938  4498+         BC    GE,IDREAD20 SEQUENCE IS OK
00392E 4580 61F6            02D68  4499+         BAL   L1,DIAGNOSE DELETE THRU NUMBER OUT OF SEQ
003932 22                          4500+         DC    X'22' SEVERITY E
003933 5A                          4501+         DC    X'5A' MESSAGE 90
PH01   IKFCBL01                                                                                                PAGE   91


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003934 47F0 6DE0            03952  4502+         B     IDREAD22 GO SET SWITCHES
003938 D205 7184 E000 03CF6 00000  4503+IDREAD20 MVC   DEL2NUM(LX6),DX0(C4) SET UP DELETE THRU NUMBER
00393E D205 7178 E000 03CEA 00000  4504+         MVC   INSNUM(LX6),DX0(C4) SET UP INSERT NUMBER
003944 9608 747B      03FED        4505+         OI    ABASISW,DELTHRU INDICATE DELETE THRU IN EFFECT
003948 47F0 6D54            038C6  4506+         B     IDREAD15 CONTINUE SCAN
00394C 4580 61F6            02D68  4507+IDREAD21 BAL   L1,DIAGNOSE NUMBER IS OUT OF SEQUENCE
003950 22                          4508+         DC    X'22' SEVERITY E
003951 59                          4509+         DC    X'59' MESSAGE 89
003952 9604 747B      03FED        4510+IDREAD22 OI    ABASISW,IDELERR INDICATE ERROR
003956 94DF 747B      03FED        4511+         NI    ABASISW,FF-IDELSRC INDICATE SOURCE SHOULD BE BYPASSED
00395A 47F0 6CC2            03834  4512+         B     IDREAD8 CONTINUE SCAN
                                   4513+*
00395E 9120 747B      03FED        4514+IDREAD23 TM    ABASISW,IDELSRC SHOULD WE INS/DEL THIS SOURCE CARD
003962 4710 6D82            038F4  4515+         BC    ALLON,IDREADR YES THEN RETURN
003966 9104 747B      03FED        4516+         TM    ABASISW,IDELERR IS ERROR INDICATOR ON
00396A 4710 6C14            03786  4517+         BC    ALLON,IDREAD1 YES-THEN READ ANOTHER CARD
00396E 9604 747B      03FED        4518+         OI    ABASISW,IDELERR ELSE INDICATE ERROR
003972 4580 61F6            02D68  4519+IDREAD24 BAL   L1,DIAGNOSE MISSING INSERT/DELETE CARD
003976 22                          4520+         DC    X'22' SEVERITY E
003977 58                          4521+         DC    X'58' MESSAGE 88
003978 47F0 6C14            03786  4522+         B     IDREAD1 READ ANOTHER CARD



                                   4524+*****************************************************************
                                   4525+*        CALL TO PHASE 0 TO PRINT A RECORD
                                   4526+*              C0 POINTS TO CALLING PARAMETER VIA BALR INST
                                   4527+*              C5 HAS THE ADDRESS OF PHASE 0
                                   4528+*              C2 HAS ADDRESS OF RECORD TO PRINT
                                   4529+*              C3 HAS THE SIZE OF THE RECORD
                                   4530+*****************************************************************

00397C 5080 70AA            03C1C  4532+WRITE    ST    L1,WRSAVEL1 SAVE LINK REG                    DA1
003980 9180 F1A3      001A3        4533+         TM    PHZSW,LIST IS SOURCE LISTING REQUESTED
003984 4780 6E52            039C4  4534+         BC    ALLOFF,PH1WRITE NO, WRITE TO PHASE 1
003988 9102 747C      03FEE        4535+         TM    COPYSW,CPYSURP PRINT SUPPRESSED
00398C 4710 6E52            039C4  4536+         BC    ALLON,PH1WRITE YES, WRITE TO PHASE 1
003990 48C0 718A            03CFC  4537+WRITE1   LH    W3,CURGCN LOAD GENERATED SEQUENCE NUMBER
003994 4EC0 707E            03BF0  4538+         CVD   W3,DOUBLE CONVERT TO DECIMAL
003998 D206 7E7E 74B8 049F0 0402A  4539+         MVC   PINTSEQ(LX7),EDITMASK MOVE EDITMASK TO PRINT BUFFER
00399E DE06 7E7E 7082 049F0 03BF4  4540+         ED    PINTSEQ(LX7),DOUBLE+DX4 AND EDIT INTERNAL SEQUENCE
0039A4 D201 7E86 74B6 049F8 04028  4541+WRITE2   MVC   PSTARS,SEQIND MOVE SEQ ERROR INDICATOR
0039AA 58C0 7086            03BF8  4542+         L     W3,AIOA1I GET ADDRESS OF CARD IMAGE
0039AE D24F 7E88 C000 049FA 00000  4543+         MVC   PCARD(LX80),DX0(W3) MOVE CARD IMAGE TO LISTING
                                   4544+*                                  WORK AREA
0039B4 4120 7E80            049F2  4545+         LA    C2,PINTSEQ+DX2 ADDR OF CARD BUFFER
0039B8 4130 0058            00058  4546+         LA    C3,LX88 SIZE OF CARD BUFFER
0039BC 050F                        4547+         BALR  C0,C5 CALL PH0 TO MOVE CARD
0039BE 16                          4548+         DC    X'16' BUFFER TO PRINT AREA
                                   4549+*
0039BF 00
0039C0 050F                        4550+         BALR  C0,C5 CALL PH0 TO
0039C2 86                          4551+         DC    X'86' PRINT A SOURCE LINE
                                   4552+*
                                   4553+*      ROUTINE WHICH SETS UP TO WRITE A RECORD TO PHASE 1
PH01   IKFCBL01                                                                                                PAGE   92


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4554+*
0039C3 00
0039C4 9140 747E      03FF0        4555+PH1WRITE TM    ASWITCH,WRITESUP WRITE TO PHASE 1 SUPPRESSED
0039C8 4710 6EAE            03A20  4556+         BC    ALLON,PH1WRTB YES - RETURN TO CALLER
0039CC 58C0 7086            03BF8  4557+         L     W3,AIOA1I GET ADDRESS OF CARD IMAGE
0039D0 D24C 7F5C C000 04ACE 00000  4558+         MVC   PH1CARD(LX77),DX0(W3) MOVE CARD IMAGE TO PH1 RECORD
0039D6 D201 7FAA 718A 04B1C 03CFC  4559+         MVC   PH1ISEQ+DX1(LX2),CURGCN MOVE GCN TO PH1 RECORD
0039DC D201 7FA6 7484 04B18 03FF6  4560+PH1WRTA  MVC   PH1ID(LX2),HZERO INITIALIZE ID AREA
0039E2 9180 747C      03FEE        4561+         TM    COPYSW,CPYSTMT IS COPY STMT IN EFFECT
0039E6 4780 6E7E            039F0  4562+         BC    ALLOFF,PH1WRTAA NO WRITE RECORD
0039EA D201 7FA6 74A4 04B18 04016  4563+         MVC   PH1ID(LX2),CO INDICATE TO PHASE 1 THIS IS COPY
0039F0 9140 7483      03FF5        4564+PH1WRTAA TM    MISCSW5,BADCOPY BAD COPY STMT
0039F4 4780 6E90            03A02  4565+         BC    ALLOFF,PH1WRTAB NO WRITE RECORD
0039F8 94BF 7483      03FF5        4566+         NI    MISCSW5,FF-BADCOPY OFF BAD COPY INDICATOR
0039FC D201 7FA6 74A6 04B18 04018  4567+         MVC   PH1ID(LX2),CP INDICATE BAD COPY TO PHASE 1
003A02 9120 7483      03FF5        4568+PH1WRTAB TM    MISCSW5,NOCPYMEM COPY MEMBER FOUND
003A06 4780 6EA2            03A14  4569+         BC    ALLOFF,PH1WRTAC YES
003A0A 94DF 7483      03FF5        4570+         NI    MISCSW5,FF-NOCPYMEM OFF NO MEMBER FOUND
003A0E D201 7FA6 74A8 04B18 0401A  4571+         MVC   PH1ID(LX2),CN INDICATE NO MEMBER
003A14 4120 7F5C            04ACE  4572+PH1WRTAC LA    C2,PH1CARD ADDRESS OF PH1 RECORD
003A18 4130 0050            00050  4573+         LA    C3,LX80 LENGTH OF RECORD
003A1C 050F                        4574+         BALR  C0,C5 CALL PH0 TO
003A1E 14                          4575+         DC    X'14' WRITE ON FILE FOUR
003A1F 00
003A20 94BF 747E      03FF0        4576+PH1WRTB  NI    ASWITCH,FF-WRITESUP TURN OFF SUPPRESS SWITCH
003A24 5880 70AA            03C1C  4577+         L     L1,WRSAVEL1 RESTORE LINK REG                 DA1
003A28 07F8                        4578+         BR    L1 RETURN TO CALLER                 DA1
PH01   IKFCBL01                                                                                                PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4580+***********************************************************************
                                   4581+*        TRTTAB AND ROUTINES WHICH ALTER TRTTAB                       *
                                   4582+*              TRTTAB IS SET UP TO SCAN FOR NON-BLANK                 *
                                   4583+*              ENTRY POINTS-                                          *
                                   4584+*                   NOLDHSCN - CHANGES TABLE TO SCAN NON LETTER,      *
                                   4585+*                                  DIGIT, HYPHEN                      *
                                   4586+*                   NUMSCAN - CHANGES TABLE TO SCAN TO NON-DIGIT      *
                                   4587+*                   NBLKSCAN,NBLKSCN - REINITIALIZE TABLE             *
                                   4588+***********************************************************************
003A2A                             4589+TRTTAB   EQU   *
003A2A 0101010101010101            4590+         DC    64X'01' *
003A6A 00                          4591+TRTBLK   DC    X'00' BLANK
003A6B 0101010101010101            4592+         DC    31X'01' *
003A8A 01                          4593+TRTHYP   DC    X'01' HYPHEN
003A8B 0101010101010101            4594+         DC    96X'01' *
003AEB 0101010101010101            4595+TRTLT1   DC    9X'01' LETTERS A-I
003AF4 01010101010101              4596+         DC    7X'01' *
003AFB 0101010101010101            4597+TRTLT2   DC    9X'01' LETTERS J-R
003B04 0101010101010101            4598+         DC    8X'01' *
003B0C 0101010101010101            4599+TRTLT3   DC    8X'01' LETTERS S-Z
003B14 010101010101                4600+         DC    6X'01' *
003B1A 0101010101010101            4601+TRTNUM   DC    10X'01' NUMBERS
003B24 010101010101                4602+         DC    6X'01' *
                                   4603+*
                                   4604+*
003B2A 9400 6F18      03A8A        4605+NOLDHSCN NI    TRTHYP,K0 ALTER TRTTAB
003B2E D708 6F79 6F79 03AEB 03AEB  4606+         XC    TRTLT1(LX9),TRTLT1 TO BYPASS
003B34 D708 6F89 6F89 03AFB 03AFB  4607+         XC    TRTLT2(LX9),TRTLT2 HYPHEN
003B3A D707 6F9A 6F9A 03B0C 03B0C  4608+         XC    TRTLT3(LX8),TRTLT3 LETTERS
003B40 D709 6FA8 6FA8 03B1A 03B1A  4609+NUMSCAN  XC    TRTNUM(LX10),TRTNUM NUMBERS
003B46 9201 6EF8      03A6A        4610+         MVI   TRTBLK,K1 TO RECOGNIZE BLANKS
003B4A 07F8                        4611+         BR    L1 RETURN
                                   4612+*
                                   4613+*
003B4C 9201 6F18      03A8A        4614+NBLKSCAN MVI   TRTHYP,K1 REINITIALIZE TRTTAB
003B50 D208 6F79 6F78 03AEB 03AEA  4615+         MVC   TRTLT1(LX9),TRTLT1-DX1 TO RECOGNIZE
003B56 D208 6F89 6F79 03AFB 03AEB  4616+         MVC   TRTLT2(LX9),TRTLT1 HYPHEN
003B5C D207 6F9A 6F79 03B0C 03AEB  4617+         MVC   TRTLT3(LX8),TRTLT1 LETTERS
003B62 D209 6FA8 6FA7 03B1A 03B19  4618+NBLKSCN  MVC   TRTNUM(LX10),TRTNUM-DX1 NUMBERS
003B68 9200 6EF8      03A6A        4619+         MVI   TRTBLK,K0 TO BYPASS BLANKS
003B6C 07F8                        4620+         BR    L1 RETURN
                                   4621+***********************************************************************
                                   4622+*                                                                   DA1
                                   4623+*                           RESERVED WORD TEST                      DA1
                                   4624+*                                                                   DA1
                                   4625+***********************************************************************
003B6E                             4626+RESWDTST EQU   * DA1
003B6E 1BBB                        4627+         SR    W2,W2 DA1
003B70 43BE 0000            00000  4628+         IC    W2,DX0(C4) GET LENGTH OF TEST WORD
003B74 4BB0 7486            03FF8  4629+         SH    W2,TWO TO GET DISP INTO ADCOB, SUB 2
003B78 89B0 0001            00001  4630+         SLL   W2,LX1 THEN MULTIPLY BY 2
003B7C 48AB 7E5E            049D0  4631+         LH    W1,ADCOB(W2) GET LOWER BOUND DISP FROM COBOLWDS
003B80 48CB 7E60            049D2  4632+         LH    W3,ADCOB+DX2(W2) GET UPPER BOUND DISP FROM COBOLWDS
003B84 41BA 74C5            04037  4633+         LA    W2,COBOLWDS(W1) GET ADDR OF LOWER BOUND          DA1
003B88 41CC 74C5            04037  4634+         LA    W3,COBOLWDS(W3) GET ADDR OF UPPER BOUND          DA1
PH01   IKFCBL01                                                                                                PAGE   94


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003B8C 1BAA                        4635+         SR    W1,W1 NO LONGER NEED ADDR OF ADCOB     DA1
003B8E 43AE 0000            00000  4636+         IC    W1,DX0(C4) GET LENGTH OF TEST WORD AGAIN
003B92 06A0                        4637+         BCTR  W1,0 SUB 1 FOR EX INSTRUCTION         DA1
003B94 44A0 7038            03BAA  4638+COBTST   EX    W1,COMPWD COMPARE TEST WORD TO RESERVED WORD
003B98 4780 7044            03BB6  4639+         BE    COBCODE A RESERVED WORD, GO SAVE CODE    DA1
003B9C 0748                        4640+         BCR   LT,L1 RETURN                           DA1
003B9E 41BA B002            00002  4641+         LA    W2,DX2(W1,W2) ADD LENGTH+2-1 TO ADDR
003BA2 19BC                        4642+         CR    W2,W3 DOES LOWER BD = UPPER BD         DA1
003BA4 0788                        4643+         BCR   EQ,L1 WORD PAST RANGE, RETURN          DA1
003BA6 47F0 7022            03B94  4644+         B     COBTST NO, COMPARE WITH NEXT RESERVED WORD

                                   4646+***                                                                 DA1
003BAA D500 E001 B000 00001 00000  4647+COMPWD   CLC   DX1(LX0,C4),DX0(W2) COMPARE TEST WORD TO RESERVED WORD
003BB0 D200 72C4 E001 03E36 00001  4648+MVCOBWD  MVC   SAVECLS(LX0),DX1(C4) MOVE CLAUSE TO SAVEAREA
                                   4649+***                                                                 DA1
003BB6 1ABA                        4650+COBCODE  AR    W2,W1 ADD LENGTH-1 FACTOR TO ADDR      DA1
003BB8 D200 74C2 B001 04034 00001  4651+         MVC   RESCODE(LX1),DX1(W2) SAVE 1-BYTE CODE
003BBE 9180 B001      00001        4652+         TM    DX1(W2),KEIGHTY IS RESERVED WORD A KEYWORD
003BC2 4780 7058            03BCA  4653+         BC    ALLOFF,COBCODE1 NO
003BC6 9620 747E      03FF0        4654+         OI    ASWITCH,KEYWORD TURN ON KEYWORD FOUND SW
003BCA 9101 B001      00001        4655+COBCODE1 TM    DX1(W2),K1 IS THIS A COBOL CLAUSE
003BCE 4780 7078            03BEA  4656+         BC    ALLOFF,COBCODE2 NO
003BD2 9240 72C4      03E36        4657+         MVI   SAVECLS,BLANK INITIALIZE SAVEAREA FOR CLAUSE
003BD6 947F 7481      03FF3        4658+         NI    MISCSW3,FF-COBCLAUS INITIALIZE SW FOR COPY..REP
003BDA 9140 B001      00001        4659+         TM    DX1(W2),K80 IS THIS CLAUSE CONSIDERED BY
003BDE 4780 7078            03BEA  4660+         BC    ALLOFF,COBCODE2 GETWORD OR COPY...REPLACING
003BE2 44A0 703E            03BB0  4661+         EX    W1,MVCOBWD SAVE CLAUSE
003BE6 9680 7481      03FF3        4662+         OI    MISCSW3,COBCLAUS SET SWITCH FOR COPY...REPLACING
003BEA 9608 747E      03FF0        4663+COBCODE2 OI    ASWITCH,RESWORD TURN ON RESWORD FOUND SW
003BEE 07F8                        4664+         BR    L1 GO BACK INLINE                   DA1

                                   4666+***********************************************************************
                                   4667+*                                                                   DA1
                                   4668+*        SAVE AREAS                                                 DA1
                                   4669+*                                                                   DA1
                                   4670+***********************************************************************
003BF0                             4671+         DS    0D DA1
003BF0                             4672+DOUBLE   DS    D FOR CONVERSION IN GETCARD
003BF8                             4673+AIOA1I   DS    F ADDRESS OF INPUT AREA
003BFC                             4674+COLUMN7  DS    F SAVE AREA FOR COLUMN 7
003C00                             4675+COLUMN8  DS    F SAVE AREA FOR COLUMN 8
003C04                             4676+MARGINB  DS    F ADDR OF MARGIN B                 DA1
003C08                             4677+COLUMN72 DS    F ADDR OF END OF CARD              DA1
003C0C                             4678+NBLKPTR  DS    F ADDR OF BEGINNING OF WORD ON CARD
003C10                             4679+IDSAVEL1 DS    F SAVE LINK REG FOR INSERT/DELETE
003C14                             4680+GWSAVEL1 DS    F SAVE LINK REG FOR GETWORD        DA1
003C18                             4681+RDSAVEL1 DS    F SAVE LINK REG FOR GET ROUTINE
003C1C                             4682+WRSAVEL1 DS    F SAVE LINK REG FOR PRINT          DA1
003C20                             4683+GCSAVEL1 DS    F SAVE LINK REG FOR GETCARD        DA1
003C24                             4684+CDW1W2W3 DS    3F SAVE WORK REGS IN GETCARD
003C30                             4685+SVW1W2W3 DS    3F SAVES WD2 AND STRING REGS IN GETWORD
003C3C                             4686+C1C2SAVE DS    2F REGISTER SAVE FOR COPY...REP
003C44                             4687+DIAGSAVE DS    3F DIAG. RTN REGISTER SAVE
003C50                             4688+ENAMSVL1 DS    F SAVE LINK REG FOR BASIS NAME TEST
003C54                             4689+NXTSTRNG DS    F SAVE ADDR OF NEXT MAIN STRING
PH01   IKFCBL01                                                                                                PAGE   95


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003C58                             4690+NOWSTRNG DS    F SAVE ADDR OF THIS MAIN STRING
003C5C                             4691+FLOPTSAV DS    F POINTER TO 'E' IN FLOPNT LITERAL
003C60                             4692+DELPTRSV DS    F SAVES ADDR OF DELETE POINTER
003C64                             4693+DBUGPTR  DS    F DEBUG LOCATION PTR
003C68 00000000                    4694+FULLWORD DC    F'0' FOR ALIGNING TO BOUNDARY         DA1
003C6C                             4695+SIZEWORD DS    0H USE THIS NAME FOR LOADING SIZE
003C6C 00                          4696+         DC    X'00' MUST ALWAYS BE ZERO
                                   4697+*                                  SIZE AND WORD MUST BE CONTIGUOUS DA1
003C6D                             4698+SIZE     DS    CL1 SIZE OF WORD FROM GETWORD        DA1
003C6E                             4699+WORD     DS    CL122 ACTUAL WORD-LITERAL SIGNS        DA1
                                   4700+*                                  INCLUDED IF LITERAL              DA1
003CE8                             4701+MANTISSA DS    H SIZE OF MANTISSA OF FLOPNT LITERAL
003CEA 000000000000                4702+INSNUM   DC    3H'0' NUMBER TO INSERT AFTER
003CF0 000000000000                4703+DEL1NUM  DC    3H'0' NUMBER TO DELETE FROM
003CF6 000000000000                4704+DEL2NUM  DC    3H'0' NUMBER TO DELETE THRU
003CFC 0000                        4705+CURGCN   DC    H'0' GENERATED CARD SEQ NUMBER(INTERNAL)
003CFE 0000                        4706+LEVINDX  DC    H'0' INDEX FOR COPY LEVEL ITEM RTN
003D00 0000                        4707+SAVSIZ   DC    H'0' SIZEWORD SAVE FOR COPY...REP
003D02                             4708+BASWORK  DS    CL80 SAVEAREA FOR BASIS READ
003D52                             4709+IDELWORK DS    CL80 SAVEAREA FOR INSERT/DELETE
003DA2 4040404040404040            4710+LIBWORK  DC    CL80' ' INITIALIZED TO BLANKS FOR BASIS
003DF2 000000000000                4711+SEQSAVE  DC    XL6'00' SAVES PROGRAMMER'S SEQ NO-COL1-6 DA1
003DF8                             4712+DATANAM1 DS    31C SAVE LEVEL DATANAME FOR COPY
003E17                             4713+DATANAM2 DS    31C SAVE REDEFINED DNM FOR COPY
003E36                             4714+SAVECLS  DS    CL15 SAVES CURRENT CLAUSE FOR DIAGNOSTIC
                                   4715+*
                                   4716+*   THE FOLLOWING SAVEAREAS ARE USED FOR COPY AND COPY...REPLACING
                                   4717+*
003E45                             4718+CPYWRK1  DS    CL80 COPY BUFFER 1
003E95                             4719+CPYWRK2  DS    CL80 COPY BUFFER 2
                                   4720+*
003EE5                             4721+CPYHYP   DS    CL1 CONTINUATION COLUMN WORK 1
003EE6                             4722+REPWRK   DS    CL65 COPY...REPLACING WORKAREA 1
003F27                             4723+CPYHYP2  DS    CL1 CONTINUATION COLUMN WORK 2
003F28                             4724+REPWRK2  DS    CL65 COPY...REPLACING WORKAREA 2
003F69                             4725+CPYHYP3  DS    CL1 CONTINUATION COLUMN WORK 3
003F6A                             4726+REPWRK3  DS    CL65 COPY...REPLACING WORKAREA 3
003FAB                             4727+CPYHYP4  DS    CL1 CONTINUATION COLUMN WORK 4
003FAC                             4728+REPWRK4  DS    CL65 COPY...REPLACING WORKAREA 4
                                   4729+*
                                   4730+***********************************************************************
                                   4731+*                                                                   DA1
                                   4732+*        SWITCHES                                                   DA1
                                   4733+*                                                                   DA1
                                   4734+***********************************************************************
003FED 00                          4735+ABASISW  DC    X'00' BASIS/INSERT/DELETE SWITCH
000080                             4736+INBASIS  EQU   X'80' READ FROM BASIS LIB IF ON
000040                             4737+IDELCARD EQU   X'40' ON IF INSERT/DELETE CARDS IN SYSIN
000020                             4738+IDELSRC  EQU   X'20' ON IF IN THE INSERT MODE
000010                             4739+INDELETE EQU   X'10' ON IF DELETE IS IN EFFECT
000008                             4740+DELTHRU  EQU   X'08' ON IF DELETE THRU IS IN EFFECT
000004                             4741+IDELERR  EQU   X'04' ON IF INSERT/DELETE ERROR
000002                             4742+DELNOW   EQU   X'02' ON IF DELETE THRU IS IN PROGRESS
000001                             4743+ININSERT EQU   X'01' ON IF INSERTING IS IN PROGRESS
                                   4744+*
PH01   IKFCBL01                                                                                                PAGE   96


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003FEE 00                          4745+COPYSW   DC    X'00' COPY SWITCH
000080                             4746+CPYSTMT  EQU   X'80' ON IF COPY STMT SCAN IN EFFECT
000040                             4747+CPYSUPP  EQU   X'40' ON IF SUPPRESS OPTION SPECIFIED
000020                             4748+CPYREP   EQU   X'20' ON IF REPLACING OPTION SPECIFIED
000010                             4749+INCPYLIB EQU   X'10' ON IF READING COPY MEMBER
000008                             4750+LASTCPY  EQU   X'08' ON IF LAST COPY WAS READ
000004                             4751+DBLCPY   EQU   X'04' ON IF DOUBLE BUFFER COPY
000002                             4752+CPYSURP  EQU   X'02' ON IF PRINT SUPPRESS FOR COPY
000001                             4753+REPHIT   EQU   X'01' ON IF JUST REPLACED A WORD
                                   4754+*
003FEF 00                          4755+REPWD2SW DC    X'00' COPY REPLACING WORD 2 SWITCH
000080                             4756+SIGNSW   EQU   X'80' ON IF MANTISSA SIGN FOUND
000040                             4757+POINTSW  EQU   X'40' ON IF DECIMAL POINT FOUND
000020                             4758+FLOPTSW  EQU   X'20' ON IF 'E' FOUND
000010                             4759+SIGNSW2  EQU   X'10' ON IF EXPONENT SIGN FOUND
000008                             4760+MSG72SW  EQU   X'08' ON IF MSG1072 ALREADY ISSUED
000004                             4761+MSG73SW  EQU   X'04' ON IF MSG1073 ALREADY ISSUED
000002                             4762+MSG74SW  EQU   X'02' ON IF MSG1074 ALREADY ISSUED
000001                             4763+WD2MRGB  EQU   X'01' ON IF WORD2 CHECK FOR MARGINB NEC
                                   4764+*
003FF0 00                          4765+ASWITCH  DC    X'00' ALL SWITCHES ARE CONTAINED HERE
000001                             4766+NOTFIRST EQU   X'01' ON AFTER FIRST GET EXECUTED      DA1
000002                             4767+MARGA    EQU   X'02' ON IF WORD FOUND IN COLS 8-11    DA1
000004                             4768+EOS      EQU   X'04' ON IF LAST GET WAS A '. '        DA1
000008                             4769+RESWORD  EQU   X'08' ON IF WORD PASSES RES WORD TEST  DA1
000010                             4770+NOSPACE  EQU   X'10' ON IF MSG 1007 TO BE PUT OUT
000020                             4771+KEYWORD  EQU   X'20' ON IF RESERVED WORD IS A KEY WORD
000040                             4772+WRITESUP EQU   X'40' ON FOR WRITE SUPPRESS
000080                             4773+TRUNCATE EQU   X'80' ON TO TRUNCATE LARGER THAN 120 LIT
                                   4774+*
003FF1 00                          4775+MISCSW   DC    X'00' MISCELLANEOUS SWITCH
000001                             4776+FNDALPHA EQU   X'01' ON IF ALPHABETIC FOUND
000002                             4777+TSTMARGA EQU   X'02' ON IF WORD MUST BE IN AREA A
000004                             4778+TSTMARGB EQU   X'04' ON IF WORD MUST BE IN AREA B
000008                             4779+RP       EQU   X'08' ON IF A RIGHT PAREN WAS FOUND
000010                             4780+DUMMYGET EQU   X'10' ON IF ALREADY HAVE WORD
000020                             4781+REDEF    EQU   X'20' ON IF REDEFINES FOR COPY
000040                             4782+LP       EQU   X'40' ON IF A LEFT PAREN WAS FOUND
000080                             4783+TSTNAME  EQU   X'80' ON IF EXTNAME TEST FOR BASIS
                                   4784+*
003FF2 00                          4785+MISCSW2  DC    X'00' MISCELLANEOUS SWITCH
000080                             4786+DCOMPILE EQU   X'80' ON IF DATA-COMPILED WAS CHANGED
000040                             4787+LEV1SW   EQU   X'40' ON IF LEVEL 01 DNM TO BE SAVED
000020                             4788+FDSDSW   EQU   X'20' ON IF WITHIN FD OR SD
000010                             4789+WRKSTSW  EQU   X'10' ON IF WITHIN WORKING-STORAGE
000008                             4790+RDSW     EQU   X'08' ON IF WITHIN RD
000004                             4791+PROCSW   EQU   X'04' ON IF WITHIN PROCEDURE DIVISION
000002                             4792+DBUGC6   EQU   X'02' ON IF DEBUG WITHIN COL 6
000001                             4793+DBUGSW   EQU   X'01' ON IF A DEBUG CARD IN PROCESS
                                   4794+*
003FF3 00                          4795+MISCSW3  DC    X'00' MISCELLANEOUS SWITCH
000080                             4796+COBCLAUS EQU   X'80' ON IF COBOL CLAUSE WITH CODE 41
000040                             4797+RPOUT    EQU   X'40' ON IF RPAREN ALREADY PUT IN WORD
000020                             4798+CDSURP   EQU   X'20' ON FOR CARD SUPP OF CPY REP GETWORD
000010                             4799+REPQUOT  EQU   X'10' ON IF CONT QUOTE NECESSARY
PH01   IKFCBL01                                                                                                PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                             4800+FULLBUFS EQU   X'08' ON IF ALL WORKAREAS USED
000004                             4801+REPBUF4  EQU   X'04' ON IF WORKAREA 4 USED
000002                             4802+REPBUF3  EQU   X'02' ON IF WORKAREA 3 USED
000001                             4803+REPBUF2  EQU   X'01' ON IF WORKAREA 2 USED
                                   4804+*
003FF4 00                          4805+MISCSW4  DC    X'00' MISCELLANEOUS SWITCH
000080                             4806+CONTSW   EQU   X'80' ON IF ANOTHER WORKAREA NECESSARY
000040                             4807+LASTWRD  EQU   X'40' ON IF LAST WORD ON CARD-CPY REP
000020                             4808+CONTPER  EQU   X'20' ON IF PERIOD ENDS CONT WORD (COPY)
000010                             4809+CONTLIT  EQU   X'10' ON IF CONT WORD IS ALPHA LITERAL
000008                             4810+PNOTESW  EQU   X'08' ON IF IN NOTE PARAGRAPH
000004                             4811+SNOTESW  EQU   X'04' ON IF IN NOTE SENTENCE
000002                             4812+MAYBNOTE EQU   X'02' ON IF MRGA WORD JUST COPY...REP'ED
000001                             4813+WORD2SW  EQU   X'01' ON IF WORD2 IS IN WORK BUFFER
                                   4814+*
003FF5 00                          4815+MISCSW5  DC    X'00' MISCELLANEOUS SWITCH
000080                             4816+LSTBASIS EQU   X'80' ON IF LAST BASIS RECORD READ
000040                             4817+BADCOPY  EQU   X'40' ON IF BAD COPY STMT FOUND
000020                             4818+NOCPYMEM EQU   X'20' ON IF NO COPY MEMBER FOUND
                                   4819+***********************************************************************
                                   4820+*                                                                   DA1
                                   4821+*        CONSTANTS                                                  DA1
                                   4822+*                                                                   DA1
                                   4823+***********************************************************************
003FF6                             4824+         DS    0H DA1
003FF6 0000                        4825+HZERO    DC    H'0' CONSTANT OF ZERO
003FF8 0002                        4826+TWO      DC    H'2' CONSTANT OF TWO
003FFA 0041                        4827+H65      DC    H'65' CONSTANT 65 FOR COPY WORK LENGTH
003FFC 0078                        4828+K120     DC    H'120' TO COMPARE AGAINST LARGEST LITERAL
003FFE 0010                        4829+H16      DC    H'16' CONSTANT 16 FOR WORD2 CHECK
004000 0012                        4830+H18      DC    H'18' CONSTANT 18 FOR WORD2 CHECK
004002 C4C5C2E4C740                4831+DEBUG    DC    C'DEBUG ' FOR DEBUG SCAN
004008 C4C5D3C5E3C540              4832+DELETE   DC    C'DELETE ' DELETE CONSTANT
00400F C9D5E2C5D9E340              4833+INSERT   DC    C'INSERT ' INSERT CONSTANT
004016 C3D6                        4834+CO       DC    C'CO' COPY IDENTIFIER FOR PHASE 1
004018 C3D7                        4835+CP       DC    C'CP' BAD COPY IDENTIFIER FOR PHASE 1
00401A C3D5                        4836+CN       DC    C'CN' NO COPY MEMBER INDICATOR FOR PHASE 1
00401C C340                        4837+CBLANK   DC    C'C ' COPY INDICATOR FOR LISTING
00401E 5C5C                        4838+STARS    DC    C'**' FOR OUT OF SEQUENCE ON LIST      DA1
004020 4040404040404040            4839+BLANKS   DC    CL8' ' FOR TESTING MARGA OR SEQ BLANK   DA1
004028 4040                        4840+SEQIND   DC    CL2' ' FOR COLUMNS 15-16 ON LIST        DA1
00402A 20212020202020              4841+EDITMASK DC    X'20212020202020' FOR GENERATED SEQUENCE NUMBER
004031 2348                        4842+CODECNT  DC    X'2348' CONSTANT FOR INS/DEL ERROR TEXT
004033 00                          4843+REPINDX  DC    X'00' INDEX FOR COPY WRKAREA PTOCESSING
004034 00                          4844+RESCODE  DC    X'00' DA1
004035 4B                          4845+DECPNT   DC    C'.' FOR WORD2 TEST - CHANGED BY ADECPNT
004036 7D                          4846+LITSIGN  DC    X'7D' APOSTROPHE FOR LITERALS -        DA1
00007F                             4847+QUOTE    EQU   X'7F' OVERLAID WITH X'7F' IF QUOTE     DA1
000040                             4848+BLANK    EQU   X'40' FOR SCANNING TO NON-BLANK        DA1
000000                             4849+K0       EQU   X'00' CONSTAND OT ZERO
000001                             4850+K1       EQU   X'01' CONSTANT                         DA1
000002                             4851+K2       EQU   X'02' FOR COMPARING SIZE OF WORD       DA1
000003                             4852+K3       EQU   X'03' FOR COMPARING SIZE OF WORD
000004                             4853+K4       EQU   X'04' FOR TESTING BIT 5 ON
000005                             4854+K5       EQU   X'05' FOR COMPARING SIZE OF WORD
PH01   IKFCBL01                                                                                                PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000006                             4855+K6       EQU   X'06' CONSTANT OF 6                    DA1
000007                             4856+K7       EQU   X'07' FOR COMPARING SIZE OF WORD
000008                             4857+K8       EQU   X'08'
00000A                             4858+K10      EQU   10 FOR COMPARING SIZE OF WORD       DA1
00000E                             4859+K14      EQU   X'0E' FOR ERROR BYTE TEST IN CALCACT RTN
00000F                             4860+K15      EQU   X'0F' FOR COMPARING SIZE OF WORD       DA1
000010                             4861+K16      EQU   X'10' FOR TURNING ON BIT 3             DA1
000019                             4862+K25      EQU   25 CONSTANT OF 25                   DA1
00001E                             4863+K30      EQU   30 CONSTANT OF 30
00004A                             4864+K74      EQU   X'4A' CONSTANT OF 74
000080                             4865+KEIGHTY  EQU   X'80' FOR COBOL CLAUSE CHECK
000040                             4866+K80      EQU   X'40' FOR COMPARING TEST TYPE
000085                             4867+K85      EQU   X'85'
0000FF                             4868+FF       EQU   X'FF' FOR IMMEDIATE INSTRUCTIONSS      DA1
00004D                             4869+LPAREN   EQU   C'(' LEFT PAREN
00005D                             4870+RPAREN   EQU   C')' RIGHT PAREN
00006B                             4871+COMMA    EQU   C',' FOR COMPARING SINGLE CHAR WORD   DA1
00004E                             4872+CPLUS    EQU   C'+' PLUS SIGN
000060                             4873+CMINUS   EQU   C'-' MINUS SIGN
00004B                             4874+PERIOD   EQU   C'.' FOR COMPARING SINGLE CHAR WORD   DA1
000060                             4875+HYPHEN   EQU   X'60' FOR TESTING CONTINUATION         DA1
00005C                             4876+ASTERISK EQU   C'*' FOR COMMENT COMPARE              DA1
00005E                             4877+SEMICOL  EQU   X'5E' FOR FINDING DELIMITER            DA1
0000F1                             4878+EXTONE   EQU   X'F1' EXTERNAL ONE-UNPACKED            DA1
0000C1                             4879+A        EQU   C'A' CHARACTER A
0000C5                             4880+E        EQU   C'E' CHARACTER E
0000D1                             4881+J        EQU   C'J' CHARACTER J
0000F0                             4882+EXTZERO  EQU   X'F0' EXTERNAL ZERO-UNPACKED           DA1
0000F9                             4883+EXTNINE  EQU   X'F9' EXTERNAL NINE-UNPACKED           DA1
001000                             4884+LN       EQU   4096 LENGTH OF 1 FOR STRINGS
002000                             4885+L2       EQU   8192 LENGTH OF 2 FOR STRINGS
003000                             4886+L3       EQU   12288 LENGTH OF 3 FOR STRINGS
004000                             4887+L4       EQU   16384 LENGTH OF 4 FOR STRINGS
005000                             4888+L5       EQU   20480 LENGTH OF 5 FOR STRINGS
006000                             4889+L6       EQU   24576 LENGTH OF 6 FOR STRINGS
007000                             4890+L7       EQU   28672 LENGTH OF 7 FOR STRINGS
008000                             4891+L8       EQU   32768 LENGTH OF 8 FOR STRINGS
009000                             4892+L9       EQU   36864 LENGTH OF 9 FOR STRINGS
00A000                             4893+L10      EQU   40960 LENGTH OF 10 FOR STRINGS
00B000                             4894+L11      EQU   45056 LENGTH OF 11 FOR STRINGS
00C000                             4895+L12      EQU   49152 LENGTH OF 12 FOR STRINGS
00D000                             4896+L13      EQU   53248 LENGTH OF 13 FOR STRINGS
00E000                             4897+L14      EQU   57344 LENGTH OF 14 FOR STRINGS
00F000                             4898+L15      EQU   61440 LENGTH OF 15 FOR STRINGS
PH01   IKFCBL01                                                                                                PAGE   99


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4900+***********************************************************************
                                   4901+*
                                   4902+*        COBOL RESERVED WORD TABLE
                                   4903+*
                                   4904+*              THE COBOL RESERVED WORDS ARE LISTED ACCORDING TO
                                   4905+*              SIZE AND MUST BE IN ALPHABETICAL
                                   4906+*              ORDER.THE BITS OF THE CODE BYTE FOLLOWING EACH
                                   4907+*              WORD HAVE THE FOLLOWING MEANING:
                                   4908+*
                                   4909+*              B'10000000'    KEYWORD - SEARCHED BY COPY SYNTAX SCAN
                                   4910+*              B'01000000'    PARAGRAPH NAME, PIC, AND VALUE CLAUSES
                                   4911+*              B'00100000'    NOT USED
                                   4912+*              B'00010000'    WORD RESERVED FOR FUTURE USE
                                   4913+*              B'00001000'    ONLY LEGAL WITHIN THE PROCEDURE DIVISION
                                   4914+*              B'00000100'    MARGIN-A MAJOR RESERVED WORD
                                   4915+*              B'00000010'    MINOR WORD - OCCURS WITHIN A CLAUSE
                                   4916+*              B'00000001'    BEGINNING OF A COBOL CLAUSE
                                   4917+*
                                   4918+*              WHEN THOSE WORDS WHICH ARE RESERVED FOR FUTURE USE ARE
                                   4919+*              IMPLEMENTED, THEIR CODES SHOULD BE CHANGED TO THE
                                   4920+*              PROPER CODE AS ILLUSTRATED ABOVE.
                                   4921+*
                                   4922+***********************************************************************
004037                             4923+COBOLWDS EQU   * DA1
                                   4924+*                                                                   DA1
                                   4925+*        LENGTH OF 2                                                DA1
                                   4926+*                                                                   DA1
004037 C1E3                        4927+COB2     DC    C'AT' AT                               DA1
004039 08                          4928+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00403A C2E8                        4929+BY       DC    C'BY' BY                               DA1
00403C 02                          4930+         DC    X'02' MINOR WORD                  DA1
00403D C3C6                        4931+         DC    C'CF' CF
00403F 01                          4932+         DC    X'01' BEGINNING OF CLAUSE
004040 C3C8                        4933+         DC    C'CH' CH
004042 01                          4934+         DC    X'01' BEGINNING OF CLAUSE
004043 C4C5                        4935+         DC    C'DE' DE
004045 01                          4936+         DC    X'01' BEGINNING OF CLAUSE
004046 C6C4                        4937+FD       DC    C'FD' FD                               DA1
004048 85                          4938+         DC    X'85' MARGIN-A RESWORD AND KEYWORD
004049 C7D6                        4939+         DC    C'GO' GO                               DA1
00404B 49                          4940+         DC    X'49' PROC DIV CLAUSE (COPY...REP)
00404C C9C4                        4941+ID       DC    C'ID' ID SAME AS IDENTIFICATION        DA1
00404E 05                          4942+         DC    X'05' MARGIN A MAJOR RESERVED WORD
00404F C9C6                        4943+         DC    C'IF' IF                               DA1
004051 09                          4944+         DC    X'09' PROC DIV CLAUSE
004052 C9D5                        4945+INCON    DC    C'IN' IN
004054 02                          4946+         DC    X'02' MINOR WORD                  DA1
004055 C9E2                        4947+IS       DC    C'IS' IS                               DA1
004057 02                          4948+         DC    X'02' MINOR WORD                  DA1
004058 D5D6                        4949+NO       DC    C'NO' NO                               DA1
00405A 02                          4950+         DC    X'02' MINOR WORD                  DA1
00405B D6C6                        4951+OF       DC    C'OF' OF                               DA1
00405D 02                          4952+         DC    X'02' MINOR WORD                  DA1
00405E D6D5                        4953+ON       DC    C'ON' ON                               DA1
004060 02                          4954+         DC    X'02' MINOR WORD                  DA1
PH01   IKFCBL01                                                                                                PAGE  100


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004061 D6D9                        4955+         DC    C'OR' OR                               DA1
004063 08                          4956+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004064 D7C6                        4957+         DC    C'PF' PF
004066 01                          4958+         DC    X'01' BEGINNING OF CLAUSE
004067 D7C8                        4959+         DC    C'PH' PH
004069 01                          4960+         DC    X'01' BEGINNING OF CLAUSE
00406A D9C4                        4961+RD       DC    C'RD' RD
00406C 85                          4962+         DC    X'85' MARGIN-A RESWORD AND KEYWORD
00406D D9C6                        4963+         DC    C'RF' RF
00406F 01                          4964+         DC    X'01' BEGINNING OF CLAUSE
004070 D9C8                        4965+         DC    C'RH' RH
004072 01                          4966+         DC    X'01' BEGINNING OF CLAUSE
004073 E2C4                        4967+SD       DC    C'SD' SD
004075 85                          4968+         DC    X'85' MARGIN-A RESWORD AND KEYWORD
004076 E3D6                        4969+TO       DC    C'TO' TO                               DA1
004078 02                          4970+         DC    X'02' MINOR WORD                  DA1
004079 E4D7                        4971+         DC    C'UP' UP                               DA1
00407B 08                          4972+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00407C F0F1                        4973+LEVEL01  DC    C'01' LEVEL 01
00407E 85                          4974+         DC    X'85' MARGIN-A RESWORD AND KEYWORD
00407F F7F7                        4975+LEV77    DC    C'77' LEVEL 77
004081 85                          4976+         DC    X'85' MARGIN A RESWORD AND KEYWORD
                                   4977+*                                                                   DA1
                                   4978+*        LENGTH OF 3                                                DA1
                                   4979+*                                                                   DA1
004082 C1C4C4                      4980+COB3     DC    C'ADD' ADD                              DA1
004085 09                          4981+         DC    X'09' PROC DIV CLAUSE
004086 C1D3D3                      4982+ALL      DC    C'ALL' ALL
004089 02                          4983+         DC    X'02' MINOR WORD                  DA1
00408A C1D5C4                      4984+         DC    C'AND' AND                              DA1
00408D 08                          4985+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00408E C1D9C5                      4986+ARE      DC    C'ARE' ARE                              DA1
004091 02                          4987+         DC    X'02' MINOR WORD                  DA1
004092 C3E2D7                      4988+         DC    C'CSP' CSP                              DA1
004095 01                          4989+         DC    X'01' BEGINNING OF CLAUSE
004096 C3F0F1                      4990+         DC    C'C01' C01                              DA1
004099 01                          4991+         DC    X'01' BEGINNING OF CLAUSE
00409A C3F0F2                      4992+         DC    C'C02' C02                              DA1
00409D 01                          4993+         DC    X'01' BEGINNING OF CLAUSE
00409E C3F0F3                      4994+         DC    C'C03' C03                              DA1
0040A1 01                          4995+         DC    X'01' BEGINNING OF CLAUSE
0040A2 C3F0F4                      4996+         DC    C'C04' C04                              DA1
0040A5 01                          4997+         DC    X'01' BEGINNING OF CLAUSE
0040A6 C3F0F5                      4998+         DC    C'C05' C05                              DA1
0040A9 01                          4999+         DC    X'01' BEGINNING OF CLAUSE
0040AA C3F0F6                      5000+         DC    C'C06' C06                              DA1
0040AD 01                          5001+         DC    X'01' BEGINNING OF CLAUSE
0040AE C3F0F7                      5002+         DC    C'C07' C07                              DA1
0040B1 01                          5003+         DC    X'01' BEGINNING OF CLAUSE
0040B2 C3F0F8                      5004+         DC    C'C08' C08                              DA1
0040B5 01                          5005+         DC    X'01' BEGINNING OF CLAUSE
0040B6 C3F0F9                      5006+         DC    C'C09' C09                              DA1
0040B9 01                          5007+         DC    X'01' BEGINNING OF CLAUSE
0040BA C3F1F0                      5008+         DC    C'C10' C10                              DA1
0040BD 01                          5009+         DC    X'01' BEGINNING OF CLAUSE
PH01   IKFCBL01                                                                                                PAGE  101


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0040BE C3F1F1                      5010+         DC    C'C11' C11                              DA1
0040C1 01                          5011+         DC    X'01' BEGINNING OF CLAUSE
0040C2 C3F1F2                      5012+         DC    C'C12' C12                              DA1
0040C5 01                          5013+         DC    X'01' BEGINNING OF CLAUSE
0040C6 C5D5C4                      5014+         DC    C'END' END                              DA1
0040C9 08                          5015+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0040CA C5D6D7                      5016+         DC    C'EOP' EOP  SAME AS END-OF-PAGE         DA1
0040CD 08                          5017+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0040CE C6D6D9                      5018+FOR      DC    C'FOR' FOR                              DA1
0040D1 02                          5019+         DC    X'02' MINOR WORD                  DA1
0040D2 C960D6                      5020+         DC    C'I-O' I-O                              DA1
0040D5 08                          5021+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0040D6 D2C5E8                      5022+KEY      DC    C'KEY' KEY                              DA1
0040D9 02                          5023+         DC    X'02' MINOR WORD                  DA1
0040DA D5D6E3                      5024+         DC    C'NOT' NOT                              DA1
0040DD 08                          5025+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0040DE D6C6C6                      5026+OFF      DC    C'OFF' OFF                              DA1
0040E1 02                          5027+         DC    X'02' MINOR WORD                  DA1
0040E2 D7C9C3                      5028+PIC      DC    C'PIC' PIC  SAME AS PICTURE             DA1
0040E5 41                          5029+         DC    X'41' BEGINNING OF CLAUSE(COPY REP)
0040E6 D9E4D5                      5030+         DC    C'RUN' RUN                              DA1
0040E9 08                          5031+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0040EA E2C5E3                      5032+         DC    C'SET' SET                              DA1
0040ED 09                          5033+         DC    X'09' PROC DIV CLAUSE
0040EE E2E4D4                      5034+         DC    C'SUM' SUM
0040F1 01                          5035+         DC    X'01' BEGINNING OF CLAUSE
0040F2 E2F0F1                      5036+         DC    C'S01' S01                              DA1
0040F5 01                          5037+         DC    X'01' BEGINNING OF CLAUSE         DA1
0040F6 E2F0F2                      5038+         DC    C'S02' S02                              DA1
0040F9 01                          5039+         DC    X'01' BEGINNING OF CLAUSE         DA1
0040FA E4E2C5                      5040+         DC    C'USE' USE                              DA1
0040FD 09                          5041+         DC    X'09' PROC DIV CLAUSE
                                   5042+*                                                                   DA1
                                   5043+*        LENGTH OF 4                                                DA1
                                   5044+*                                                                   DA1
0040FE                             5045+COB4     EQU   * DA1
0040FE C1D9C5C1                    5046+AREA     DC    C'AREA' AREA SAME AS AREAS               DA1
004102 02                          5047+         DC    X'02' MINOR WORD                  DA1
004103 C3C1D3D3                    5048+         DC    C'CALL' CALL                             DA1
004107 09                          5049+         DC    X'09' PROC DIV CLAUSE
004108 C3D6C4C5                    5050+CODE     DC    C'CODE' CODE
00410C 01                          5051+         DC    X'01' BEGINNING OF CLAUSE
00410D C3D6D4D7                    5052+COMP     DC    C'COMP' COMP SAME AS COMPUTATIONAL       DA1
004111 01                          5053+         DC    X'01' BEGINNING OF CLAUSE         DA1
004112 C3D6D7E8                    5054+COPY     DC    C'COPY' COPY                             DA1
004116 01                          5055+         DC    X'01' BEGINNING OF CLAUSE
004117 C3D6D9D9                    5056+         DC    C'CORR' CORR SAME AS CORRESPONDING       DA1
00411B 08                          5057+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00411C C4C1E3C1                    5058+DATA     DC    C'DATA' DATA                             DA1
004120 05                          5059+         DC    X'05' MARGIN A MAJOR RESERVED WORD
004121 C4C9E2D7                    5060+         DC    C'DISP' DISP
004125 08                          5061+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004126 C4D6E6D5                    5062+         DC    C'DOWN' DOWN                             DA1
00412A 08                          5063+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00412B C5D3E2C5                    5064+         DC    C'ELSE' ELSE SAME AS OTHERWISE           DA1
PH01   IKFCBL01                                                                                                PAGE  102


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00412F 08                          5065+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004130 C5E7C9E3                    5066+         DC    C'EXIT' EXIT                             DA1
004134 09                          5067+         DC    X'09' PROC DIV CLAUSE
004135 C6C9D3C5                    5068+FILE     DC    C'FILE' FILE                             DA1
004139 05                          5069+         DC    X'05' MARGIN A MAJOR RESERVED WORD
00413A C6D9D6D4                    5070+         DC    C'FROM' FROM                             DA1
00413E 08                          5071+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00413F C9D5E3D6                    5072+         DC    C'INTO' INTO                             DA1
004143 08                          5073+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004144 D1E4E2E3                    5074+JUST     DC    C'JUST' JUST SAME AS JUSTIFIED           DA1
004148 01                          5075+         DC    X'01' BEGINNING OF CLAUSE
004149 D3C1E2E3                    5076+         DC    C'LAST' LAST
00414D 01                          5077+         DC    X'01' BEGINNING OF CLAUSE
00414E D3C5C6E3                    5078+LEFT     DC    C'LEFT' LEFT                             DA1
004152 02                          5079+         DC    X'02' MINOR WORD                  DA1
004153 D3C5E2E2                    5080+         DC    C'LESS' LESS                             DA1
004157 08                          5081+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004158 D3C9D5C5                    5082+         DC    C'LINE' LINE NOT SAME AS LINES           DA1
00415C 08                          5083+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00415D D3D6C3D2                    5084+         DC    C'LOCK' LOCK                             DA1
004161 08                          5085+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004162 D4D6C4C5                    5086+MODE     DC    C'MODE' MODE                             DA1
004166 02                          5087+         DC    X'02' MINOR WORD                  DA1
004167 D4D6E5C5                    5088+         DC    C'MOVE' MOVE                             DA1
00416B 09                          5089+         DC    X'09' PROC DIV CLAUSE
00416C D5C5E7E3                    5090+         DC    C'NEXT' NEXT                             DA1
004170 01                          5091+         DC    X'01' BEGINNING OF CLAUSE
004171 D5D6E3C5                    5092+NOTE     DC    C'NOTE' NOTE
004175 49                          5093+         DC    X'49' PROC DIV CLAUSE (COPY...REP)
004176 D6D7C5D5                    5094+         DC    C'OPEN' OPEN                             DA1
00417A 09                          5095+         DC    X'09' PROC DIV CLAUSE
00417B D7C1C7C5                    5096+         DC    C'PAGE' PAGE
00417F 01                          5097+         DC    X'01' BEGINNING OF CLAUSE
004180 D7D3E4E2                    5098+         DC    C'PLUS' PLUS
004184 02                          5099+         DC    X'02' MINOR WORD
004185 D9C5C1C4                    5100+         DC    C'READ' READ                             DA1
004189 09                          5101+         DC    X'09' PROC DIV CLAUSE
00418A D9C5C5D3                    5102+REEL     DC    C'REEL' REEL                             DA1
00418E 02                          5103+         DC    X'02' MINOR WORD                  DA1
00418F E2C1D4C5                    5104+SAME     DC    C'SAME' SAME                             DA1
004193 01                          5105+         DC    X'01' BEGINNING OF CLAUSE         DA1
004194 E2C5C5D2                    5106+         DC    C'SEEK' SEEK                             DA1
004198 09                          5107+         DC    X'09' PROC DIV CLAUSE
004199 E2C9C7D5                    5108+SIGN     DC    C'SIGN' SIGN                             DA1
00419D 01                          5109+         DC    X'01' BEGINNING OF CLAUSE         DA1
00419E E2C9E9C5                    5110+SIZE4    DC    C'SIZE' SIZE                             DA1
0041A2 08                          5111+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0041A3 E2D6D9E3                    5112+         DC    C'SORT' SORT
0041A7 49                          5113+         DC    X'49' PROC DIV CLAUSE (COPY...REP)
0041A8 E2E3D6D7                    5114+         DC    C'STOP' STOP                             DA1
0041AC 09                          5115+         DC    X'09' PROC DIV CLAUSE
0041AD E2E8D5C3                    5116+SYNC     DC    C'SYNC' SYNC SAME AS SYNCHRONIZED        DA1
0041B1 01                          5117+         DC    X'01' BEGINNING OF CLAUSE         DA1
0041B2 E3C1D7C5                    5118+TAPE     DC    C'TAPE' DA1
0041B6 02                          5119+         DC    X'02' MINOR WORD                  DA1
PH01   IKFCBL01                                                                                                PAGE  103


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0041B7 E3C8C1D5                    5120+         DC    C'THAN' THAN                             DA1
0041BB 08                          5121+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0041BC E3C8C5D5                    5122+         DC    C'THEN' THEN                             DA1
0041C0 08                          5123+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0041C1 E3C8D9E4                    5124+THRU     DC    C'THRU' THRU SAME AS THROUGFH
0041C5 02                          5125+         DC    X'02' MINOR WORD                  DA1
0041C6 E3E8D7C5                    5126+         DC    C'TYPE' TYPE
0041CA 01                          5127+         DC    X'01' BEGINNING OF CLAUSE
0041CB E4D5C9E3                    5128+UNIT     DC    C'UNIT' UNIT                             DA1
0041CF 02                          5129+         DC    X'02' MINOR WORD                  DA1
0041D0 E4D7D6D5                    5130+         DC    C'UPON' UPON                             DA1
0041D4 08                          5131+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0041D5 E6C8C5D5                    5132+WHEN     DC    C'WHEN' WHEN                             DA1
0041D9 02                          5133+         DC    X'02' MINOR WORD                  DA1
0041DA E6C9E3C8                    5134+WITH     DC    C'WITH' WITH
0041DE 08                          5135+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0041DF E9C5D9D6                    5136+ZER      DC    C'ZERO' ZERO                             DA1
0041E3 02                          5137+         DC    X'02' MINOR WORD                  DA1
                                   5138+*                                                                   DA1
                                   5139+*        LENGTH OF 5                                                DA1
                                   5140+*                                                                   DA1
0041E4 C1C6E3C5D9                  5141+COB5     DC    C'AFTER' AFTER                            DA1
0041E9 08                          5142+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0041EA C1D3E3C5D9                  5143+         DC    C'ALTER' ALTER                            DA1
0041EF 49                          5144+         DC    X'49' PROC DIV CLAUSE (COPY...REP)
0041F0 C1D7D7D3E8                  5145+APPLY    DC    C'APPLY' APPLY                            DA1
0041F5 01                          5146+         DC    X'01' BEGINNING OF CLAUSE         DA1
0041F6 C1D9C5C1E2                  5147+AREAS    DC    C'AREAS' AREAS SAME AS AREA               DA1
0041FB 02                          5148+         DC    X'02' MINOR WORD                  DA1
0041FC C2C1E2C9E2                  5149+BASISK   DC    C'BASIS' BASIS
004201 01                          5150+         DC    X'01' BEGINNING OF CLAUSE
004202 C2D3C1D5D2                  5151+BLNK     DC    C'BLANK' BLANK                            DA1
004207 01                          5152+         DC    X'01' BEGINNING OF CLAUSE         DA1
004208 C2D3D6C3D2                  5153+BLOCK    DC    C'BLOCK' BLOCK                            DA1
00420D 01                          5154+         DC    X'01' BEGINNING OF CLAUSE         DA1
00420E C3D3D6E2C5                  5155+         DC    C'CLOSE' CLOSE                            DA1
004213 09                          5156+         DC    X'09' PROC DIV CLAUSE
004214 C3D6C2D6D3                  5157+         DC    C'COBOL' COBOL
004219 08                          5158+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00421A C3D6D4D4C1                  5159+COMMA5   DC    C'COMMA' COMMA                            DA1
00421F 02                          5160+         DC    X'02' MINOR WORD                  DA1
004220 C4C5C2E4C7                  5161+         DC    C'DEBUG' DEBUG                            DA1
004225 49                          5162+         DC    X'49' PROC DIV CLAUSE (COPY...REP)
004226 C5D1C5C3E3                  5163+EJECT    DC    C'EJECT' EJECT
00422B 01                          5164+         DC    X'01' MAJOR RESERVED WORD
00422C C5D5E3C5D9                  5165+         DC    C'ENTER' ENTER                            DA1
004231 49                          5166+         DC    X'49' PROC DIV CLAUSE (COPY...REP)
004232 C5D5E3D9E8                  5167+         DC    C'ENTRY' ENTRY                            DA1
004237 09                          5168+         DC    X'09' PROC DIV CLAUSE
004238 C5D8E4C1D3                  5169+         DC    C'EQUAL' EQUAL                            DA1
00423D 08                          5170+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00423E C5D9D9D6D9                  5171+         DC    C'ERROR' ERROR                            DA1
004243 08                          5172+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004244 C5E5C5D9E8                  5173+EVERY    DC    C'EVERY' EVERY                            DA1
004249 08                          5174+         DC    X'08' ONLY LEGAL IN PROC DIVISION
PH01   IKFCBL01                                                                                                PAGE  104


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00424A C6C9D5C1D3                  5175+         DC    C'FINAL' FINAL
00424F 02                          5176+         DC    X'02' MINOR WORD
004250 C6C9D9E2E3                  5177+         DC    C'FIRST' FIRST                            DA1
004255 08                          5178+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004256 C7D9D6E4D7                  5179+         DC    C'GROUP' GROUP
00425B 01                          5180+         DC    X'01' BEGINNING OF CALUSE
00425C C9D5C4C5E7                  5181+         DC    C'INDEX' INDEX
004261 01                          5182+         DC    X'01' BEGINNING OF CLAUSE         DA1
004262 C9D5D7E4E3                  5183+         DC    C'INPUT' INPUT                            DA1
004267 08                          5184+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004268 D3C1C2C5D3                  5185+LABEL    DC    C'LABEL' LABEL                            DA1
00426D 01                          5186+         DC    X'01' BEGINNING OF CLAUSE         DA1
00426E D3C5C1E5C5                  5187+         DC    C'LEAVE' LEAVE
004273 08                          5188+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004274 D3C9D4C9E3                  5189+         DC    C'LIMIT' LIMIT
004279 02                          5190+         DC    X'02' MINOR WORD
00427A D3C9D5C5E2                  5191+         DC    C'LINES' LINES NOT SAME AS LINE           DA1
00427F 08                          5192+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004280 D5C1D4C5C4                  5193+         DC    C'NAMED' NAMED                            DA1
004285 08                          5194+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004286 D8E4D6E3C5                  5195+         DC    C'QUOTE' QUOTE                            DA1
00428B 02                          5196+         DC    X'02' MINOR WORD                  DA1
00428C D9C5C1C4E8                  5197+         DC    C'READY' READY                            DA1
004291 09                          5198+         DC    X'09' PROC DIV CLAUSE
004292 D9C5D9E4D5                  5199+RERUN    DC    C'RERUN' RERUN                            DA1
004297 01                          5200+         DC    X'01' BEGINNING OF CLAUSE         DA1
004298 D9C5E2C5E3                  5201+         DC    C'RESET' RESET                            DA1
00429D 09                          5202+         DC    X'09' PROC DIV CLAUSE
00429E D9C9C7C8E3                  5203+RIGHT    DC    C'RIGHT' RIGHT                            DA1
0042A3 02                          5204+         DC    X'02' MINOR WORD                  DA1
0042A4 E2D2C9D7F1                  5205+SKIP1    DC    C'SKIP1' SKIP1
0042A9 01                          5206+         DC    X'01' MAJOR RESERVED WORD
0042AA E2D2C9D7F2                  5207+SKIP2    DC    C'SKIP2' SKIP2
0042AF 01                          5208+         DC    X'01' MAJOR RESERVED WORD
0042B0 E2D2C9D7F3                  5209+SKIP3    DC    C'SKIP3' SKIP3
0042B5 01                          5210+         DC    X'01' MAJOR RESERVED WORD
0042B6 E2D7C1C3C5                  5211+         DC    C'SPACE' SPACE                            DA1
0042BB 02                          5212+         DC    X'02' MINOR WORD                  DA1
0042BC E2E3C1D9E3                  5213+         DC    C'START' START                            DA1
0042C1 09                          5214+         DC    X'09' PROC DIV CLAUSE
0042C2 E2E8E2C9D5                  5215+         DC    C'SYSIN' SYSIN
0042C7 01                          5216+         DC    X'01' BEGINNING OF CLAUSE
0042C8 E3C1D3D3E8                  5217+TALLY    DC    C'TALLY' TALLY
0042CD 08                          5218+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0042CE E3C9D4C5E2                  5219+TIMES    DC    C'TIMES' TIMES                            DA1
0042D3 02                          5220+         DC    X'02' MINOR WORD                  DA1
0042D4 E3D9C1C3C5                  5221+         DC    C'TRACE' TRACE                            DA1
0042D9 08                          5222+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0042DA E3D9C1C3D2                  5223+         DC    C'TRACK' TRACK
0042DF 02                          5224+         DC    X'02' MINOR WORD
0042E0 E4D5E3C9D3                  5225+         DC    C'UNTIL' UNTIL                            DA1
0042E5 08                          5226+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0042E6 E4E2C1C7C5                  5227+USAGE    DC    C'USAGE' USAGE                            DA1
0042EB 01                          5228+         DC    X'01' BEGINNING OF CLAUSE         DA1
0042EC E4E2C9D5C7                  5229+         DC    C'USING' USING                            DA1
PH01   IKFCBL01                                                                                                PAGE  105


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0042F1 08                          5230+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0042F2 E5C1D3E4C5                  5231+VALUE    DC    C'VALUE' VALUE SAME AS VALUES             DA1
0042F7 41                          5232+         DC    X'41' BEGINNING OF CLAUSE
0042F8 E6D6D9C4E2                  5233+WORDS    DC    C'WORDS' WORDS                            DA1
0042FD 01                          5234+         DC    X'01' BEGINNING OF CLAUSE         DA1
0042FE E6D9C9E3C5                  5235+         DC    C'WRITE' WRITE                            DA1
004303 09                          5236+         DC    X'09' PROC DIV CLAUSE
004304 E9C5D9D6E2                  5237+         DC    C'ZEROS' ZEROS SAME AS ZERO AND ZEROES    DA1
004309 02                          5238+         DC    X'02' MINOR WORD                  DA1
                                   5239+*                                                                   DA1
                                   5240+*        LENGTH OF 6                                                DA1
                                   5241+*                                                                   DA1
00430A C1C3C3C5D7E3                5242+COB6     DC    C'ACCEPT' ACCEPT                           DA1
004310 09                          5243+         DC    X'09' PROC DIV CLAUSE
004311 C1C3C3C5E2E2                5244+ACCESS   DC    C'ACCESS' ACCESS                           DA1
004317 01                          5245+         DC    X'01' BEGINNING OF CLAUSE         DA1
004318 C1C3E3E4C1D3                5246+ACTUAL   DC    C'ACTUAL' ACTUAL                           DA1
00431E 01                          5247+         DC    X'01' BEGINNING OF CLAUSE         DA1
00431F C1E2E2C9C7D5                5248+ASSIGN   DC    C'ASSIGN' ASSIGN                           DA1
004325 01                          5249+         DC    X'01' BEGINNING OF CLAUSE         DA1
004326 C1E4E3C8D6D9                5250+AUTHOR   DC    C'AUTHOR' AUTHOR                      DA1
00432C 05                          5251+         DC    X'05' MARGIN A MAJOR RESERVED WORD
00432D C2C5C6D6D9C5                5252+         DC    C'BEFORE' BEFORE                           DA1
004333 08                          5253+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004334 C3D6D3E4D4D5                5254+         DC    C'COLUMN' COLUMN
00433A 01                          5255+         DC    X'01' BEGINNING OF CLAUSE
00433B C3D6D4D760F1                5256+COMP1    DC    C'COMP-1' COMP-1                           DA1
004341 01                          5257+         DC    X'01' BEGINNING OF CLAUSE         DA1
004342 C3D6D4D760F2                5258+COMP2    DC    C'COMP-2' COMP-2                           DA1
004348 01                          5259+         DC    X'01' BEGINNING OF CLAUSE         DA1
004349 C3D6D4D760F3                5260+COMP3    DC    C'COMP-3' COMP-3                           DA1
00434F 01                          5261+         DC    X'01' BEGINNING OF CLAUSE         DA1
004350 C3E8C3D3C5E2                5262+         DC    C'CYCLES' CYCLES
004356 02                          5263+         DC    X'02' MINOR WORD
004357 C4C5D3C5E3C5                5264+         DC    C'DELETE' DELETE
00435D 02                          5265+         DC    X'02' MINOR WORD
00435E C4C5E3C1C9D3                5266+         DC    C'DETAIL' DETAIL
004364 01                          5267+         DC    X'01' BEGINNING OF CLAUSE
004365 C4C9E5C9C4C5                5268+         DC    C'DIVIDE' DIVIDE                           DA1
00436B 09                          5269+         DC    X'09' PROC DIV CLAUSE
00436C C5D5C4C9D5C7                5270+         DC    C'ENDING' ENDING                           DA1
004372 08                          5271+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004373 C6C9D3D3C5D9                5272+FILLER   DC    C'FILLER' FILLER
004379 02                          5273+         DC    X'02' MINOR WORD                  DA1
00437A C7C9E5C9D5C7                5274+         DC    C'GIVING' GIVING                           DA1
004380 08                          5275+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004381 C7D6C2C1C3D2                5276+         DC    C'GOBACK' GOBACK                           DA1
004387 09                          5277+         DC    X'09' PROC DIV CLAUSE
004388 C9D5E2C5D9E3                5278+         DC    C'INSERT' INSERT
00438E 02                          5279+         DC    X'02' MINOR WORD
00438F D3C9D4C9E3E2                5280+         DC    C'LIMITS' LIMITS
004395 02                          5281+         DC    X'02' MINOR WORD
004396 D4C5D4D6D9E8                5282+MEMORY   DC    C'MEMORY' MEMORY                           DA1
00439C 01                          5283+         DC    X'01' BEGINNING OF CLAUSE         DA1
00439D D5E4D4C2C5D9                5284+         DC    C'NUMBER' NUMBER
PH01   IKFCBL01                                                                                                PAGE  106


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0043A3 02                          5285+         DC    X'02' MINOR WORD
0043A4 D6C3C3E4D9E2                5286+OCCURS   DC    C'OCCURS' OCCURS                           DA1
0043AA 01                          5287+         DC    X'01' BEGINNING OF CLAUSE         DA1
0043AB D6E4E3D7E4E3                5288+         DC    C'OUTPUT' OUTPUT                           DA1
0043B1 08                          5289+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0043B2 D8E4D6E3C5E2                5290+         DC    C'QUOTES' QUOTES SAME AS QUOTE             DA1
0043B8 02                          5291+         DC    X'02' MINOR WORD                  DA1
0043B9 D9C1D5C4D6D4                5292+RANDOM   DC    C'RANDOM' RANDOM                           DA1
0043BF 02                          5293+         DC    X'02' MINOR WORD                  DA1
0043C0 D9C5C3D6D9C4                5294+RECORD   DC    C'RECORD' RECORD                           DA1
0043C6 01                          5295+         DC    X'01' BEGINNING OF CLAUSE         DA1
0043C7 D9C5D7D6D9E3                5296+         DC    C'REPORT' REPORT
0043CD 05                          5297+         DC    X'05' MARGIN A MAJOR RESERVED WORD
0043CE D9C5D9C5C1C4                5298+         DC    C'REREAD' REREAD
0043D4 08                          5299+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0043D5 D9C5E3E4D9D5                5300+         DC    C'RETURN' RETURN
0043DB 09                          5301+         DC    X'09' PROC DIV CLAUSE
0043DC D9C5E6C9D5C4                5302+         DC    C'REWIND' REWIND                           DA1
0043E2 08                          5303+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0043E3 E2C5C1D9C3C8                5304+         DC    C'SEARCH' SEARCH
0043E9 09                          5305+         DC    X'09' PROC DIV CLAUSE
0043EA E2C5D3C5C3E3                5306+SELECT   DC    C'SELECT' SELECT                           DA1
0043F0 85                          5307+         DC    X'85' RESERVED WORD AND KEYWORD MRGA TYPE
0043F1 E2D6E4D9C3C5                5308+         DC    C'SOURCE' SOURCE
0043F7 01                          5309+         DC    X'01' BEGINNING OF CLAUSE
0043F8 E2D7C1C3C5E2                5310+         DC    C'SPACES' SPACES SAME AS SPACE             DA1
0043FE 02                          5311+         DC    X'02' MINOR WORD                  DA1
0043FF E2E3C1E3E4E2                5312+STATUS   DC    C'STATUS' STATUS                           DA1
004405 02                          5313+         DC    X'02' MINOR WORD                  DA1
004406 E2E8E2C9D7E3                5314+SYSIPT   DC    C'SYSIPT' SYSIPT                           DA1
00440C 01                          5315+         DC    X'01' BEGINNING OF CLAUSE         DA1
00440D E2E8E2D3E2E3                5316+         DC    C'SYSLST' SYSLST                           DA1
004413 01                          5317+         DC    X'01' BEGINNING OF CLAUSE         DA1
004414 E2E8E2D6E4E3                5318+         DC    C'SYSOUT' SYSOUT
00441A 01                          5319+         DC    X'01' BEGINNING OF CLAUSE
00441B E2E8E2D7C3C8                5320+         DC    C'SYSPCH' SYSPCH NOT SAME AS SYSPUNCH      DA1
004421 01                          5321+         DC    X'01' BEGINNING OF CLAUSE         DA1
004422 E3D9C1C3D2E2                5322+TRACKS   DC    C'TRACKS' TRACKS                           DA1
004428 02                          5323+         DC    X'02' MINOR WORD                  DA1
004429 E5C1D3E4C5E2                5324+VALUES   DC    C'VALUES' VALUES SAME AS VALUE             DA1
00442F 41                          5325+         DC    X'41' BEGINNING OF CLAUSE
004430 E9C5D9D6C5E2                5326+         DC    C'ZEROES' ZEROES SAME AS ZERO AND ZEROS    DA1
004436 02                          5327+         DC    X'02' MINOR WORD                  DA1
                                   5328+*                                                                   DA1
                                   5329+*        LENGTH OF 7                                                DA1
                                   5330+*                                                                   DA1
004437 C1C4C4D9C5E2E2              5331+COB7     DC    C'ADDRESS' ADDRESS
00443E 02                          5332+         DC    X'02' MINOR WORD
00443F C3C8C1D5C7C5C4              5333+         DC    C'CHANGED' CHANGED
004446 08                          5334+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004447 C3D6D4D7E4E3C5              5335+         DC    C'COMPUTE' COMPUTE                          DA1
00444E 09                          5336+         DC    X'09' PROC DIV CLAUSE
00444F C3D6D5E2D6D3C5              5337+         DC    C'CONSOLE' CONSOLE                          DA1
004456 01                          5338+         DC    X'01' BEGINNING OF CLAUSE
004457 C3D6D5E3D9D6D3              5339+         DC    C'CONTROL' CONTROL
PH01   IKFCBL01                                                                                                PAGE  107


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00445E 01                          5340+         DC    X'01' BEGINNING OF CLAUSE
00445F C4C9E2D7D3C1E8              5341+DISPLAY  DC    C'DISPLAY' DISPLAY                          DA1
004466 01                          5342+         DC    X'01' BEGINNING OF CLAUSE         DA1
004467 C5E7C1D4C9D5C5              5343+         DC    C'EXAMINE' EXAMINE                          DA1
00446E 09                          5344+         DC    X'09' PROC DIV CLAUSE
00446F C5E7C8C9C2C9E3              5345+         DC    C'EXHIBIT' EXHIBIT                          DA1
004476 09                          5346+         DC    X'09' PROC DIV CLAUSE
004477 C6D6D6E3C9D5C7              5347+         DC    C'FOOTING' FOOTING
00447E 01                          5348+         DC    X'01' BEGINNING OF CLAUSE
00447F C7D9C5C1E3C5D9              5349+         DC    C'GREATER' GREATER                          DA1
004486 08                          5350+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004487 C8C5C1C4C9D5C7              5351+         DC    C'HEADING' HEADING
00448E 01                          5352+         DC    X'01' BEGINNING OF CLAUSE
00448F C9D5C4C5E7C5C4              5353+INDEXED  DC    C'INDEXED' INDEXED                          DA1
004496 02                          5354+         DC    X'02' MINOR WORD                  DA1
004497 C9D5E5C1D3C9C4              5355+         DC    C'INVALID' INVALID                          DA1
00449E 08                          5356+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00449F D3C5C1C4C9D5C7              5357+LEADING  DC    C'LEADING' LEADING                          DA1
0044A6 02                          5358+         DC    X'02' MINOR WORD                  DA1
0044A7 D3C9D5D2C1C7C5              5359+LINKAGE  DC    C'LINKAGE' LINKAGE                          DA1
0044AE 05                          5360+         DC    X'05' MARGIN A MAJOR RESERVED WORD
0044AF D4D6C4E4D3C5E2              5361+MODULES  DC    C'MODULES' MODULES                          DA1
0044B6 02                          5362+         DC    X'02' MINOR WORD                  DA1
0044B7 D5D6D4C9D5C1D3              5363+NOMINAL  DC    C'NOMINAL' NOMINAL                          DA1
0044BE 01                          5364+         DC    X'01' BEGINNING OF CLAUSE         DA1
0044BF D5E4D4C5D9C9C3              5365+         DC    C'NUMERIC' NUMERIC                          DA1
0044C6 08                          5366+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0044C7 D6D4C9E3E3C5C4              5367+OMITTED  DC    C'OMITTED' OMITTED                          DA1
0044CE 02                          5368+         DC    X'02' MINOR WORD                  DA1
0044CF D7C5D9C6D6D9D4              5369+         DC    C'PERFORM' PERFORM                          DA1
0044D6 49                          5370+         DC    X'49' PROC DIV CLAUSE (COPY...REP)
0044D7 D7C9C3E3E4D9C5              5371+PICT     DC    C'PICTURE' PICTURE SAME AS PIC              DA1
0044DE 41                          5372+         DC    X'41' BEGINNING OF CLAUSE(COPY REP)
0044DF D7D9D6C3C5C5C4              5373+         DC    C'PROCEED' PROCEED                          DA1
0044E6 08                          5374+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0044E7 D7D9D6C7D9C1D4              5375+         DC    C'PROGRAM' PROGRAM                          DA1
0044EE 08                          5376+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0044EF D9C5C3D6D9C4E2              5377+RECORDS  DC    C'RECORDS' RECORDS                          DA1
0044F6 02                          5378+         DC    X'02' MINOR WORD                  DA1
0044F7 D9C5D3C5C1E2C5              5379+         DC    C'RELEASE' RELEASE
0044FE 09                          5380+         DC    X'09' PROC DIV CLAUSE
0044FF D9C5D4C1D9D2E2              5381+REMARKS  DC    C'REMARKS' REMARKS                     DA1
004506 85                          5382+         DC    X'85' MARGIN-A RESWORD AND KEYWORD
004507 D9C5D5C1D4C5E2              5383+RENAMES  DC    C'RENAMES' RENAMES                          DA1
00450E 01                          5384+         DC    X'01' BEGINNING OF CLAUSE         DA1
00450F D9C5D7D6D9E3E2              5385+         DC    C'REPORTS' REPORTS
004516 01                          5386+         DC    X'01' BEGINNING OF CLAUSE
004517 D9C5E2C5D9E5C5              5387+RESERVE  DC    C'RESERVE' RESERVE                          DA1
00451E 01                          5388+         DC    X'01' BEGINNING OF CLAUSE         DA1
00451F D9C5E6D9C9E3C5              5389+         DC    C'REWRITE' REWRITE                          DA1
004526 09                          5390+         DC    X'09' PROC DIV CLAUSE
004527 D9D6E4D5C4C5C4              5391+         DC    C'ROUNDED' ROUNDED                          DA1
00452E 08                          5392+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00452F E2C5C3E3C9D6D5              5393+SECTION  DC    C'SECTION' SECTION                          DA1
004536 02                          5394+         DC    X'02' MINOR WORD                  DA1
PH01   IKFCBL01                                                                                                PAGE  108


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004537 E3C8D9D6E4C7C8              5395+THROUGH  DC    C'THROUGH' THROUGH SAME AS THRU
00453E 02                          5396+         DC    X'02' MINOR WORD                  DA1
00453F E3D6E3C1D3C5C4              5397+         DC    C'TOTALED' TOTALED
004546 01                          5398+         DC    X'01' BEGINNING OF CLAUSE
004547 E5C1D9E8C9D5C7              5399+         DC    C'VARYING' VARYING                          DA1
00454E 08                          5400+         DC    X'08' ONLY LEGAL IN PROC DIVISION
                                   5401+*                                                                   DA1
                                   5402+*        LENGTH OF 8                                                DA1
                                   5403+*                                                                   DA1
00454F                             5404+COB8     EQU   * DA1
00454F C3D6D5E3C1C9D5E2            5405+CONTAINS DC    C'CONTAINS' CONTAINS                         DA1
004557 02                          5406+         DC    X'02' MINOR WORD                  DA1
004558 C3D6D5E3D9D6D3E2            5407+         DC    C'CONTROLS' CONTROLS
004560 01                          5408+         DC    X'01' BEGINNING OF CLAUSE
004561 C3E4D9D9C5D5C3E8            5409+CURRENCY DC    C'CURRENCY' CURRENCY                         DA1
004569 01                          5410+         DC    X'01' BEGINNING OF CLAUSE         DA1
00456A C4C9E5C9E2C9D6D5            5411+DIVISION DC    C'DIVISION' DIVISION  PAST PROCEDURE DIVISION
004572 02                          5412+         DC    X'02' MINOR WORD                  DA1
004573 C7C5D5C5D9C1E3C5            5413+         DC    C'GENERATE' GENERATE
00457B 09                          5414+         DC    X'09' PROC DIV CLAUSE
00457C C9D5C4C9C3C1E3C5            5415+         DC    C'INDICATE' INDICATE
004584 02                          5416+         DC    X'02' MINOR WORD
004585 C9D5C9E3C9C1E3C5            5417+         DC    C'INITIATE' INITIATE
00458D 09                          5418+         DC    X'09' PROC DIV CLAUSE
00458E D4E4D3E3C9D7D3C5            5419+MULTIPLE DC    C'MULTIPLE' MULTIPLE                         DA1
004596 01                          5420+         DC    X'01' BEGINNING OF CLAUSE         DA1
004597 D4E4D3E3C9D7D3E8            5421+         DC    C'MULTIPLY' MULTIPLY                         DA1
00459F 09                          5422+         DC    X'09' PROC DIV CLAUSE
0045A0 D5C5C7C1E3C9E5C5            5423+         DC    C'NEGATIVE' NEGATIVE                         DA1
0045A8 08                          5424+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0045A9 D6D7E3C9D6D5C1D3            5425+OPTIONAL DC    C'OPTIONAL' OPTIONAL                         DA1
0045B1 02                          5426+         DC    X'02' MINOR WORD                  DA1
0045B2 D7D6E2C9E3C9D6D5            5427+POSITION DC    C'POSITION' POSITION                         DA1
0045BA 02                          5428+         DC    X'02' MINOR WORD                  DA1
0045BB D7D6E2C9E3C9E5C5            5429+         DC    C'POSITIVE' POSITIVE                         DA1
0045C3 08                          5430+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0045C4 D9C5E5C5D9E2C5C4            5431+         DC    C'REVERSED' REVERSED                         DA1
0045CC 08                          5432+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0045CD E2C5C3E4D9C9E3E8            5433+SECURITY DC    C'SECURITY' SECURITY                         DA1
0045D5 05                          5434+         DC    X'05' MARGIN A MAJOR RESERVED WORD
0045D6 E2C5D5E3C5D5C3C5            5435+         DC    C'SENTENCE' SENTENCE                         DA1
0045DE 08                          5436+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0045DF E2E3C1D5C4C1D9C4            5437+STANDARD DC    C'STANDARD' STANDARD                         DA1
0045E7 02                          5438+         DC    X'02' MINOR WORD                  DA1
0045E8 E2E4C2E3D9C1C3E3            5439+         DC    C'SUBTRACT' SUBTRACT                         DA1
0045F0 09                          5440+         DC    X'09' PROC DIV CLAUSE
0045F1 E2E4D7D7D9C5E2E2            5441+SUPPRESS DC    C'SUPPRESS' SUPPRESS                         DA1
0045F9 02                          5442+         DC    X'02' MINOR WORD                  DA1
0045FA E2E8E2D7E4D5C3C8            5443+SYSPUNCH DC    C'SYSPUNCH' SYSPUNCH NOT SAME AS SYSPCH      DA1
004602 01                          5444+         DC    X'01' BEGINNING OF CLAUSE         DA1
004603 E3C1D3D3E8C9D5C7            5445+         DC    C'TALLYING' TALLYING                         DA1
00460B 08                          5446+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00460C E3D6E3C1D3C9D5C7            5447+         DC    C'TOTALING' TOTALING
004614 01                          5448+         DC    X'01' BEGINNING OF CLAUSE
                                   5449+*                                                                   DA1
PH01   IKFCBL01                                                                                                PAGE  109


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5450+*        LENGTH OF 9                                                DA1
                                   5451+*                                                                   DA1
004615 C1C4E5C1D5C3C9D5            5452+COB9     DC    C'ADVANCING' ADVANCING                        DA1
00461E 08                          5453+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00461F C1D3E3C5D9D5C1E3            5454+ALTERNAT DC    C'ALTERNATE' ALTERNATE                        DA1
004628 02                          5455+         DC    X'02' MINOR WORD                  DA1
004629 C1E2C3C5D5C4C9D5            5456+         DC    C'ASCENDING' ASCENDING
004632 08                          5457+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004633 C2C5C7C9D5D5C9D5            5458+         DC    C'BEGINNING' BEGINNING                        DA1
00463C 08                          5459+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00463D C3E8D360C9D5C4C5            5460+CYLIND   DC    C'CYL-INDEX' CYL-INDEX                        DA1
004646 02                          5461+         DC    X'02' MINOR WORD                  DA1
004647 C4C5D7C5D5C4C9D5            5462+DEPENDNG DC    C'DEPENDING' DEPENDING                        DA1
004650 02                          5463+         DC    X'02' MINOR WORD                  DA1
004651 D1E4E2E3C9C6C9C5            5464+JUSTI    DC    C'JUSTIFIED' JUSTIFIED                        DA1
00465A 01                          5465+         DC    X'01' BEGINNING OF CLAUSE
00465B D3D6E660E5C1D3E4            5466+         DC    C'LOW-VALUE' LOW-VALUE SAME AS LOW-VALUES     DA1
004664 02                          5467+         DC    X'02' MINOR WORD                  DA1
004665 D6E3C8C5D9E6C9E2            5468+         DC    C'OTHERWISE' OTHERWISE SAME AS ELSE           DA1
00466E 08                          5469+         DC    X'08' ONLY LEGAL IN PROC DIVISION
00466F D7D9D6C3C5C4E4D9            5470+PROCED   DC    C'PROCEDURE' PROCEDURE PAST PROCEDURE DIVISION
004678 85                          5471+         DC    X'85' MARGIN-A RESWORD AND KEYWORD
004679 D9C5C3D6D9C4C9D5            5472+RECORDNG DC    C'RECORDING' RECORDING                        DA1
004682 01                          5473+         DC    X'01' BEGINNING OF CLAUSE         DA1
004683 D9C5C4C5C6C9D5C5            5474+REDEFINE DC    C'REDEFINES' REDEFINES                        DA1
00468C 01                          5475+         DC    X'01' BEGINNING OF CLAUSE         DA1
00468D D9C5D4C1C9D5C4C5            5476+         DC    C'REMAINDER' REMAINDER                        DA1
004696 08                          5477+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004697 D9C5D7D3C1C3C9D5            5478+REPLACE  DC    C'REPLACING' REPLACING
0046A0 02                          5479+         DC    X'02' MINOR WORD
0046A1 D9C5D7D6D9E3C9D5            5480+         DC    C'REPORTING' REPORTING
0046AA 08                          5481+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0046AB E3C5D9D4C9D5C1E3            5482+         DC    C'TERMINATE' TERMINATE
0046B4 09                          5483+         DC    X'09' PROC DIV CLAUSE
0046B5 E3D9C1D5E2C6D6D9            5484+         DC    C'TRANSFORM' TRANSFORM                        DA1
0046BE 09                          5485+         DC    X'09' PROC DIV CLAUSE
                                   5486+*                                                                   DA1
                                   5487+*        LENGTH OF 10                                               DA1
                                   5488+*                                                                   DA1
0046BF C1D3D7C8C1C2C5E3            5489+COB10    DC    C'ALPHABETIC' ALPHABETIC                       DA1
0046C9 08                          5490+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0046CA C3C8C1D9C1C3E3C5            5491+CHARCTRS DC    C'CHARACTERS' CHARACTERS                       DA1
0046D4 02                          5492+         DC    X'02' MINOR WORD                  DA1
0046D5 C3D6D9C560C9D5C4            5493+COREINDX DC    C'CORE-INDEX' CORE-INDEX
0046DF 02                          5494+         DC    X'02' MINOR WORD                  DA1
0046E0 C4C5E2C3C5D5C4C9            5495+         DC    C'DESCENDING' DESCENDING
0046EA 08                          5496+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0046EB C4C9E2D7D3C1E860            5497+DISPST   DC    C'DISPLAY-ST' DISPLAY-ST                       DA1
0046F5 01                          5498+         DC    X'01' BEGINNING OF CLAUSE         DA1
0046F6 C6C9D3C560D3C9D4            5499+FILELIM  DC    C'FILE-LIMIT' FILE-LIMIT SAME AS FILE-LIMITS   DA1
004700 01                          5500+         DC    X'01' BEGINNING OF CLAUSE         DA1
004701 C8C9C7C860E5C1D3            5501+         DC    C'HIGH-VALUE' HIGH-VALUE SAME AS HIGH-VALUES   DA1
00470B 02                          5502+         DC    X'02' MINOR WORD                  DA1
00470C D3D6E660E5C1D3E4            5503+         DC    C'LOW-VALUES' LOW-VALUES SAME AS LOW-VALUE     DA1
004716 02                          5504+         DC    X'02' MINOR WORD                  DA1
PH01   IKFCBL01                                                                                                PAGE  110


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004717 D5E2E3C460D9C5C5            5505+         DC    C'NSTD-REELS' NSTD-REELS                       DA1
004721 08                          5506+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004722 D7D9D6C3C5E2E2C9            5507+PROCESNG DC    C'PROCESSING' PROCESSING                       DA1
00472C 01                          5508+         DC    X'01' BEGINNING OF CLAUSE         DA1
00472D D7D9D6C7D9C1D460            5509+         DC    C'PROGRAM-ID' PROGRAM-ID
004737 05                          5510+         DC    X'05' MARGIN A MAJOR RESERVED WORD
004738 E2C5D8E4C5D5E3C9            5511+SEQNTIAL DC    C'SEQUENTIAL' SEQUENTIAL                       DA1
004742 02                          5512+         DC    X'02' MINOR WORD                  DA1
004743 E3D9C1C3D260C1D9            5513+TRKAREA  DC    C'TRACK-AREA' TRACK-AREA                       DA1
00474D 01                          5514+         DC    X'01' BEGINNING OF CLAUSE         DA1
00474E E6D9C9E3C560D6D5            5515+WRITONLY DC    C'WRITE-ONLY' WRITE-ONLY                       DA1
004758 02                          5516+         DC    X'02' MINOR WORD                  DA1
                                   5517+*                                                                   DA1
                                   5518+*        LENGTH OF 11                                               DA1
                                   5519+*                                                                   DA1
004759 C3D3D6C3D260E4D5            5520+COB11    DC    C'CLOCK-UNITS' CLOCK-UNITS
004764 02                          5521+         DC    X'02' MINOR WORD
004765 C5D5C460D6C660D7            5522+         DC    C'END-OF-PAGE' END-OF-PAGE SAME AS EOP
004770 08                          5523+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004771 C5D5E5C9D9D6D5D4            5524+ENVIRON  DC    C'ENVIRONMENT' ENVIRONMENT                      DA1
00477C 05                          5525+         DC    X'05' MARGIN A MAJOR RESERVED WORD
00477D C6C9D3C560D3C9D4            5526+FILELIMS DC    C'FILE-LIMITS' FILE-LIMITS SAME AS FILE-LIMIT   DA1
004788 01                          5527+         DC    X'01' BEGINNING OF CLAUSE         DA1
004789 C8C9C7C860E5C1D3            5528+         DC    C'HIGH-VALUES' HIGH-VALUES SAME AS HIGH-VALUE   DA1
004794 02                          5529+         DC    X'02' MINOR WORD                  DA1
004795 C960D660C3D6D5E3            5530+IOCONTRL DC    C'I-O-CONTROL' I-O-CONTROL                      DA1
0047A0 85                          5531+         DC    X'85' MARGIN-A RESWORD AND KEYWORD
0047A1 D4D6D9C560D3C1C2            5532+         DC    C'MORE-LABELS' MORE-LABELS                      DA1
0047AC 08                          5533+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0047AD D7D6E2C9E3C9D6D5            5534+         DC    C'POSITIONING' POSITIONING                      DA1
0047B8 08                          5535+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0047B9 D9C5E3E4D9D560C3            5536+         DC    C'RETURN-CODE' RETURN-CODE
0047C4 F0F8                        5537+         DC    C'08' ONLY LEGAL IN PROC DIVISION
0047C6 E2D6D9E360D9C5E3            5538+         DC    C'SORT-RETURN' SORT-RETURN
0047D1 08                          5539+         DC    X'08' ONLY LEGAL IN PROC DIV
0047D2 E3C9D4C560D6C660            5540+         DC    C'TIME-OF-DAY' TIME-OF-DAY                      DA1
0047DD 08                          5541+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0047DE E3D9C1C3D260D3C9            5542+         DC    C'TRACK-LIMIT' TRACK-LIMIT
0047E9 01                          5543+         DC    X'01' BEGINNING OF CLAUSE
                                   5544+*                                                                   DA1
                                   5545+*        LENGTH OF 12                                               DA1
                                   5546+*                                                                   DA1
0047EA                             5547+COB12    EQU   * DA1
0047EA C3E4D9D9C5D5E360            5548+         DC    C'CURRENT-DATE' CURRENT-DATE                     DA1
0047F6 08                          5549+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0047F7 C3E8D360D6E5C5D9            5550+CYLOFLOW DC    C'CYL-OVERFLOW' CYL-OVERFLOW                     DA1
004803 02                          5551+         DC    X'02' MINOR WORD                  DA1
004804 C4C1E3C560E6D9C9            5552+DATEWRIT DC    C'DATE-WRITTEN' DATE-WRITTEN                     DA1
004810 05                          5553+         DC    X'05' MARGIN A MAJOR RESERVED WORD
004811 C4C5C3D3C1D9C1E3            5554+         DC    C'DECLARATIVES' DECLARATIVES                     DA1
00481D 09                          5555+         DC    X'09' PROC DIV CLAUSE
00481E C6C9D3C560C3D6D5            5556+FILECON  DC    C'FILE-CONTROL' FILE-CONTROL                     DA1
00482A 85                          5557+         DC    X'85' MARGIN-A RESWORD AND KEYWORD
00482B C9D5D7E4E360D6E4            5558+INOUT    DC    C'INPUT-OUTPUT' INPJT-OUTPUT                     DA1
004837 05                          5559+         DC    X'05' MARGIN A MAJOR RESERVED WORD
PH01   IKFCBL01                                                                                                PAGE  111


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004838 C9D5E2E3C1D3D3C1            5560+INSTALL  DC    C'INSTALLATION' INSTALLATION                     DA1
004844 05                          5561+         DC    X'05' MARGIN A MAJOR RESERVED WORD
004845 D3C1C2C5D360D9C5            5562+         DC    C'LABEL-RETURN' LABEL-RETURN
004851 08                          5563+         DC    X'08' ONLY LEGAL IN PROC DIVISION
004852 D3C9D5C560C3D6E4            5564+         DC    C'LINE-COUNTER' LINE-COUNTER
00485E 08                          5565+         DC    X'08' ONLY LEGAL IN PROC DIV
00485F D4C1E2E3C5D960C9            5566+MASTIND  DC    C'MASTER-INDEX' MASTER-INDEX                     DA1
00486B 02                          5567+         DC    X'02' MINOR WORD                  DA1
00486C D7C1C7C560C3D6E4            5568+         DC    C'PAGE-COUNTER' PAGE-COUNTER
004878 08                          5569+         DC    X'08' ONLY LEGAL IN PROC DIV
004879 D7D9C9D5E360E2E6            5570+         DC    C'PRINT-SWITCH' PRINT-SWITCH
004885 08                          5571+         DC    X'08' ONLY LEGAL IN PROC DIV
004886 E2E8D5C3C8D9D6D5            5572+SYNCHRON DC    C'SYNCHRONIZED' SYNCHRONIZED                     DA1
004892 01                          5573+         DC    X'01' BEGINNING OF CLAUSE         DA1
004893 E6D9C9E3C560E5C5            5574+WRITVRFY DC    C'WRITE-VERIFY' WRITE-VERIFY                     DA1
00489F 02                          5575+         DC    X'02' MINOR WORD                  DA1
                                   5576+*                                                                   DA1
                                   5577+*        LENGTH OF 13                                               DA1
                                   5578+*                                                                   DA1
0048A0                             5579+COB13    EQU   * DA1
0048A0 C3D6D4D7E4E3C1E3            5580+COMPUTAT DC    C'COMPUTATIONAL' COMPUTATIONAL                    DA1
0048AD 02                          5581+         DC    X'02' MINOR WORD                  DA1
0048AE C3D6D5C6C9C7E4D9            5582+CONFIGUR DC    C'CONFIGURATION' CONFIGURATION                    DA1
0048BB 05                          5583+         DC    X'05' MARGIN A MAJOR RESERVED WORD
0048BC C3D6D9D9C5E2D7D6            5584+         DC    C'CORRESPONDING' CORRESPONDING SAME AS CORR       DA1
0048C9 08                          5585+         DC    X'08' ONLY LEGAL IN PROC DIVISION
0048CA C4C1E3C560C3D6D4            5586+DATECOMP DC    C'DATE-COMPILED' DATE-COMPILED                    DA1
0048D7 85                          5587+         DC    X'85' MARGIN-A RESWORD AND KEYWORD
0048D8 C4C5C3C9D4C1D360            5588+DECPOINT DC    C'DECIMAL-POINT' DECIMAL-POINT                    DA1
0048E5 81                          5589+         DC    X'81' RESERVED WORD AND KEYWORD
0048E6 E2C5C7D4C5D5E360            5590+         DC    C'SEGMENT-LIMIT' SEGMENT-LIMIT
0048F3 01                          5591+         DC    X'01' BEGINNING OF CLAUSE
0048F4 E2D7C5C3C9C1D360            5592+SPECIALN DC    C'SPECIAL-NAMES' SPECIAL-NAMES                    DA1
004901 85                          5593+         DC    X'85' MARGIN-A RESWORD AND KEYWORD
                                   5594+*                                                                   DA1
                                   5595+*        LENGTH OF 14                                               DA1
                                   5596+*                                                                   DA1
004902                             5597+COB14    EQU   * DA1
004902 C9C4C5D5E3C9C6C9            5598+IDENT    DC    C'IDENTIFICATION' IDENTIFICATION                   DA1
004910 05                          5599+         DC    X'05' MARGIN A MAJOR RESERVED WORD
004911 D9C5D6D9C760C3D9            5600+         DC    C'REORG-CRITERIA' REORG-CRITERIA
00491F 02                          5601+         DC    X'02' MINOR WORD
004920 E2D6D9E360C3D6D9            5602+         DC    C'SORT-CORE-SIZE' SORT-CORE-SIZE
00492E 08                          5603+         DC    X'08' ONLY LEGAL IN PROC DIV
00492F E2D6D9E360C6C9D3            5604+         DC    C'SORT-FILE-SIZE' SORT-FILE-SIZE
00493D 08                          5605+         DC    X'08' ONLY LEGAL IN PROC DIV
00493E E2D6D9E360D4D6C4            5606+         DC    C'SORT-MODE-SIZE' SORT-MODE-SIZE
00494C 08                          5607+         DC    X'08' ONLY LEGAL IN PROC DIV
                                   5608+*                                                                   DA1
                                   5609+*        LENGTH OF 15                                               DA1
                                   5610+*                                                                   DA1
00494D                             5611+COB15    EQU   * DA1
00494D C3D6D4D7E4E3C1E3            5612+COMPUT1  DC    C'COMPUTATIONAL-1' COMPUTATIONAL-1                  DA1
00495C 01                          5613+         DC    X'01' BEGINNING OF CLAUSE         DA1
00495D C3D6D4D7E4E3C1E3            5614+COMPUT2  DC    C'COMPUTATIONAL-2' COMPUTATIONAL-2                  DA1
PH01   IKFCBL01                                                                                                PAGE  112


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00496C 01                          5615+         DC    X'01' BEGINNING OF CLAUSE         DA1
00496D C3D6D4D7E4E3C1E3            5616+COMPUT3  DC    C'COMPUTATIONAL-3' COMPUTATIONAL-3                  DA1
00497C 01                          5617+         DC    X'01' BEGINNING OF CLAUSE         DA1
00497D C5E7E3C5D5C4C5C4            5618+EXTSRCH  DC    C'EXTENDED-SEARCH' EXTENDED-SEARCH                  DA1
00498C 02                          5619+         DC    X'02' MINOR WORD                  DA1
00498D D6C2D1C5C3E360C3            5620+OBJECTCM DC    C'OBJECT-COMPUTER' OBJECT-COMPUTER                  DA1
00499C 85                          5621+         DC    X'85' MARGIN-A RESWORD AND KEYWORD
00499D D9C5C3D6D9C460D6            5622+         DC    C'RECORD-OVERFLOW' RECORD-OVERFLOW
0049AC 02                          5623+         DC    X'02' MINOR WORD
0049AD E2D6E4D9C3C560C3            5624+SOURCECM DC    C'SOURCE-COMPUTER' SOURCE-COMPUTER                  DA1
0049BC 85                          5625+         DC    X'85' MARGIN-A RESWORD AND KEYWORD
0049BD E6D6D9D2C9D5C760            5626+WORKSTOR DC    C'WORKING-STORAGE' WORKING-STORAGE                  DA1
0049CC 85                          5627+         DC    X'85' MARGIN A RESWORD AND KEYWORD
0049CD                             5628+COBEND   DS    0C END OF TABLE                     DA1
                                   5629+*                                                                   DA1
0049CD 4B                          5630+CPERIOD  DC    C'.' PERIOD
0049CE F1                          5631+LEVEL1   DC    C'1' CONSTANT OF 1                    DA1
                                   5632+*        TABLE FOR LOCATING ADDRESS OF PROPER LENGTH COBOL WORD     DA1
                                   5633+*                                                                   DA1
                                   5634+*        TO GET DISPLACEMENT IN THIS TABLE:   ((LENGTH - 2) * 2))   DA1
                                   5635+*                                                                   DA1
0049D0                             5636+ADCOB    DS    0F DA1
0049D0 0000                        5637+         DC    AL2(COB2-COBOLWDS) START OF 2 CHAR RESERVED WORDS   DA1
0049D2 004B                        5638+         DC    AL2(COB3-COBOLWDS) START OF 3 CHAR RESERVED WORDS   DA1
0049D4 00C7                        5639+         DC    AL2(COB4-COBOLWDS) START OF 4 CHAR RESERVED WORDS   DA1
0049D6 01AD                        5640+         DC    AL2(COB5-COBOLWDS) START OF 5 CHAR RESERVED WORDS   DA1
0049D8 02D3                        5641+         DC    AL2(COB6-COBOLWDS) START OF 6 CHAR RESERVED WORDS   DA1
0049DA 0400                        5642+         DC    AL2(COB7-COBOLWDS) START OF 7 CHAR RESERVED WORDS   DA1
0049DC 0518                        5643+         DC    AL2(COB8-COBOLWDS) START OF 8 CHAR RESERVED WORDS   DA1
0049DE 05DE                        5644+         DC    AL2(COB9-COBOLWDS) START OF 9 CHAR RESERVED WORDS   DA1
0049E0 0688                        5645+         DC    AL2(COB10-COBOLWDS) START OF 10 CHAR RESERVED WORDS  DA1
0049E2 0722                        5646+         DC    AL2(COB11-COBOLWDS) START OF 11 CHAR RESERVED WORDS  DA1
0049E4 07B3                        5647+         DC    AL2(COB12-COBOLWDS) START OF 12 CHAR RESERVED WORDS  DA1
0049E6 0869                        5648+         DC    AL2(COB13-COBOLWDS) START OF 13 CHAR RESERVED WORDS  DA1
0049E8 08CB                        5649+         DC    AL2(COB14-COBOLWDS) START OF 14 CHAR RESERVED WORDS  DA1
0049EA 0916                        5650+         DC    AL2(COB15-COBOLWDS) START OF 15 CHAR RESERVED WORDS  DA1
0049EC 0996                        5651+         DC    AL2(COBEND-COBOLWDS) END OF TABLE OF RESERVED WORDS  DA1
                                   5652+*
PH01   IKFCBL01                                                                                                PAGE  113


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0049F0                             5654+TABLES   DS    0F
                                   5655+***********************************************************************
                                   5656+*      INPUT-RECORD WORK AREA FOR LISTING
0049F0 00000000000000              5657+PINTSEQ  DC    XL7'00' INTERNAL SEQUENCE NUMBER
0049F7 40                          5658+PBLANK   DC    X'40' BLANK
0049F8 4040                        5659+PSTARS   DC    CL2' ' '**' FOR OUT OF SEQUENCE
0049FA 4040404040404040            5660+PCARD    DC    5CL16' ' ACTUAL CARD IMAGE
                                   5661+***********************************************************************
                                   5662+*
                                   5663+***********************************************************************
                                   5664+*              MESSAGE E-TEXT AND PARAMETER WORK AREA
004A4A 000600                      5665+MSGDEF   DC    X'000600' MSG CODE
004A4D 0000                        5666+MSGNUM   DC    X'0000' MSG NUMBER
004A4F 0000                        5667+MSGGCN   DC    X'0000' GEN SEQ NUMBER
004A51 01                          5668+MSGSP    DC    X'01' SEVERITY - PHASE NUMBER 1
004A52 0000                        5669+EPARNN   DC    X'0000' E-TEXT PARAMETER
004A54 0000                        5670+EPARAM   DC    X'0000' -PARAMETER
004A56                             5671+         DS    CL120 CONTINUED
                                   5672+***********************************************************************
                                   5673+*
                                   5674+***********************************************************************
                                   5675+*     INPUT-RECORD AREA FOR WRITE TO PHASE 1
004ACE                             5676+PH1CARD  DS    CL77 COL 1 TO 77 OF CARD IMAGE
004B18                             5677+PH1ID    EQU   PH1CARD+74 COL 75-76 FOR 'CO' ID
004B1B 000000                      5678+PH1ISEQ  DC    X'000000' COL 78 TO 80 HAS INTERNAL SEQNUM
                                   5679+***********************************************************************
                                   5680  END
PH01                                             RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      08     0000B2
   01       01      08     0000B5
   01       01      08     0000B8
   01       01      08     0000BB
   01       01      08     0000D5
   01       01      08     0000D9
   01       01      08     0000DD
   01       01      08     0000E1
   01       01      0C     00022C
   01       01      0C     000234
   01       01      0C     00023C
   01       01      0C     000244
   01       01      0C     00024C
   01       01      0C     000254
   01       01      0C     00025C
   01       01      0C     000264
   01       01      0C     00026C
   01       01      0C     000274
   01       01      0C     00027C
   01       01      0C     000284
   01       01      0C     00028C
   01       01      0C     000294
   01       01      0C     00029C
   01       01      0C     0002A4
   01       01      0C     0002AC
   01       01      0C     0002B4
   01       01      0C     0002BC
   01       01      0C     0002C4
   01       02      0C     0004DC
   01       02      0C     00087C
   01       02      0C     000880
   01       02      0C     000884
   01       02      0C     000888
   01       02      0C     00088C
   01       02      0C     000890
   01       02      0C     000894
   01       02      0C     000898
   01       02      0C     00089C
   01       03      0C     0004FC
   02       02      0C     000D6C
   02       02      0C     000D70
   02       02      0C     000EAC
   02       02      0C     000EB0
   02       04      0C     0011AC
   03       02      0C     001B60
   03       02      0C     001B64
   04       04      0C     001C08
   04       04      0C     001C0C
   04       04      0C     001C10
   04       04      0C     002930
   04       04      0C     002934
   04       04      0C     002938
   04       04      0C     00293C
   04       04      0C     002A94
   04       04      0C     002A98
PH01                                             RELOCATION DICTIONARY                                          PAGE   2


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   04       04      0C     002A9C
   04       04      0C     002AA0
PH01                                         CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

A        00001 0000C1 04879   2086  2125  3789
ABASISW  00001 003FED 04735   1900  1919  4001  4120  4162  4165  4296  4298  4320  4322  4324  4326  4332  4338  4342
                              4350  4377  4410  4411  4416  4417  4468  4480  4481  4494  4505  4510  4511  4514  4516
                              4518
ACCESS   00006 004311 05244
ACCESW   00001 000140 00055
ACOPYCLS 00004 0025F0 02661   2520
ACTION   00004 001D62 01980   1958  1971
ACTTAB   00001 0023F8 02504   1957  1980  3247  3252  3257  3262  3267  3272  3277  3282  3287  3292  3297  3302  3307
                              3312  3317  3322  3327  3332  3337  3342  3347  3354  3359  3366  3371  3378  3383  3387
                              3394  3398  3403  3410  3414  3419  3424  3431  3435  3442  3446  3451  3456  3463  3468
                              3473  3478  3485  3490  3495  3501
ACTUAL   00006 004318 05246
ADATAMAN 00004 001B64 01722   1653
ADCOB    00004 0049D0 05636   4631  4632
ADDIN    00003 0000B8 00370   0914
ADDOU    00003 0000BB 00371   0913
ADD80    00003 0000B2 00368   0916
ADD80P   00003 0000B5 00369   0915
ADECBLIB 00004 0000A8 00361   1069
ADECPNT  00004 002528 02604   2510
ADPRIM   00004 001C18 01871   1839  1846
ADRESS   00004 000E48 01296   1297
ADSERT   00004 001C1C 01872   2708
ADSTAC   00004 001C20 01873
ADSTAT   00004 000134 00052   1867
ADSWIT   00004 000094 00355   1402
ADTAMN   00004 001C28 01875   1842
ADTREL   00004 001C24 01874   4178
AFDPTR   00004 0024EC 02586   2511
AGET     00004 002500 02591   2509  2611  2613  2619  2624  2626  2628  2659  2662  2673  2679  2682  2688
AGETALL  00004 0001FC 00185
AINSRT   00004 000130 00051   1866
AIOA1I   00004 003BF8 04673   1891  1903  2537  2559  4133  4542  4557
ALEVEL   00004 002560 02621   2516
ALEVELA  00004 002578 02627
ALEVELB  00004 002590 02634   2630
ALIB     00006 0025F8 02664   2521
ALL      00003 004086 04982
ALLOFF   00001 000008 01755   1895  1931  1962  2025  2042  2047  2077  2093  2102  2112  2147  2149  2159  2170  2216
                              2284  2404  2427  2439  2557  2577  2644  2691  2730  2747  2785  2800  2809  2811  2907
                              2970  2983  2999  3048  3069  3076  3105  3532  3534  3555  3560  3646  3650  3676  3728
                              3958  3963  3991  4002  4005  4041  4047  4065  4086  4090  4143  4163  4166  4206  4221
                              4267  4297  4321  4325  4356  4384  4395  4534  4562  4565  4569  4653  4656  4660
ALLON    00001 000001 01753   1968  2018  2020  2038  2106  2138  2141  2168  2194  2204  2214  2220  2222  2275  2277
                              2319  2328  2337  2535  2609  2624  2626  2628  2630  2658  2728  2750  2759  2767  2807
                              2819  2842  2850  2938  3006  3188  3528  3530  3633  3640  3642  3722  3743  3925  3935
                              3978  3981  3988  4063  4118  4121  4211  4215  4323  4327  4515  4517  4536  4556
ALSTAM   00004 000144 00057
ALTERNAT 00009 00461F 05454
AMAINF   00003 000141 00056
AMOVDC   00004 0001C8 00154
AMVTSW   00004 001B60 01721   1651
ANOWPTR  00004 0024F0 02587   2507  2602
APBEG03  00004 0011AC 01518   1515
PH01                                         CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

APCBSPT  00004 0000A0 00358   1681
APOST    00001 000004 00132   3980
APOSTQ   00001 000004 00592   0706  0708
APOST1   00004 00049C 00706   0529
APPLY    00005 0041F0 05145
APRIME   00004 00012C 00050   1839  1865
APROC    00004 00259C 02638   2518
APROC1   00004 0025AC 02642   2644
ARDPTR   00004 00251C 02600   2514
ARE      00003 00408E 04986
AREA     00004 0040FE 05046
AREAS    00005 0041F6 05147
AREDEF   00004 002558 02618   2515
AREMARKS 00004 0024AC 02568   2506  2573  2577
AREP     00004 002638 02681   2523
ASAVDNM  00004 002530 02607   2517
ASAVDNM1 00004 002544 02612   2609
ASDPTR   00004 0024E0 02582   2512
ASECT    00004 0025BC 02647   2519
ASECT1   00004 0025D0 02652   2656
ASETCOMP 00006 0027D6 02825   2834
ASETCPY  00004 002698 02721   2524
ASETCPYA 00002 002702 02752   2747
ASETCPY1 00004 0026A4 02724
ASETCPY2 00004 0026AE 02726   2730  3030  3065
ASETCPY3 00004 0026C2 02737   2728  4225
ASETCPY4 00004 002712 02760   2862  2873  2880
ASETCPY5 00004 00271C 02766   2785  2790  2792  2795
ASETDBUG 00004 00283C 02860   2759
ASETEST  00004 0028C0 02897   2902  2904
ASETEXIT 00004 002ACC 03059   3048
ASETEXT  00004 002A80 03027   3105
ASETEXTA 00004 002B6A 03104   3060
ASETEXTB 00004 002B02 03073   2750  3069
ASETEXTC 00004 002B5A 03099   3078
ASETEXTD 00004 002B06 03074   3109
ASETEXT1 00006 002B82 03111   3062
ASETEXT2 00004 002B9C 03117   3119
ASETEXT3 00004 002BBC 03126   3139
ASETEXT4 00004 002BE6 03136   3131  3133
ASETEXT6 00004 002BF6 03140   3127  3135
ASETEXT7 00004 002BFE 03142   3112
ASETLEV  00004 00288C 02884   2767
ASETL1   00006 0028A2 02891   2928
ASETL2   00004 0028CE 02901   2929
ASETL21  00004 0028F2 02910   2907
ASETL22  00002 0028FC 02912   2909  2926
ASETL3   00004 00290A 02917   2930
ASETL4   00004 00291A 02922   2931
ASETNEND 00004 00282C 02853   2847
ASETNFND 00004 002814 02846   2835
ASETNTAB 00004 00272C 02776   2851
ASETOUT  00006 002A84 03028   3026
ASETSCN1 00004 002724 02774   2892  2894  2896  2899
ASETSEEK 00004 0027DC 02830   2775
PH01                                         CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ASETSEK1 00002 0027E0 02831
ASETSEK2 00004 0027E4 02833   2856
ASETSEK3 00004 002800 02840   2915  2920
ASETSIZA 00002 0029D4 02977   2974
ASETSIZB 00006 0029FA 02989   2985
ASETSIZC 00004 0029E2 02982   2996
ASETSIZD 00004 0029C4 02972   2970
ASETSIZE 00004 002978 02951   2938  2946  3008  3012  3017  3019  3021  3093  3097
ASETSIZP 00004 002960 02945   2942
ASETSIZ1 00004 002940 02936   2780
ASETSIZ2 00002 00298A 02956   2954
ASETSIZ3 00004 0029A6 02965   3032
ASETSIZ4 00004 0029DA 02980   3033
ASETSIZ5 00004 002A0A 02994   3034
ASETSIZ6 00004 002A6E 03023   3035  3080
ASIZMOVE 00004 002A16 02998   2968  2978  2983  2992
ASIZMOV1 00004 002A4A 03013   2948  2950  3006
ASIZMOV2 00004 002A5E 03018   3014
ASIZMOV3 00004 002A66 03020   3015
ASSIGN   00006 00431F 05248
ASSUMSIZ 00004 000D08 01213   1125  1134  1141
ASTDBUG1 00006 00285A 02868   2867
ASTDBUG2 00002 002874 02874   2863
ASTERISK 00001 00005C 04876   2549  4008  4037
ASTNTABX 00002 00273C 02781   2944
ASTNTAB1 00004 002730 02777
ASTNTAB2 00002 002736 02779   2751  2842  2844  2850  2999  3072  3076  3103
ASTNTAB3 00004 00276A 02793   2788
ASUBDC   00004 002424 02534   2505
ASUBDC1  00004 002450 02544   2548  2550  2553  2557
ASUBDC2  00004 00249C 02563   2560
ASUMED   00001 000302 00599   0619  0621  0625  0627  0645  0647  0652  0654  0658  0660  0664  0666  0680  0702  0704
                              0712  0714  0744  1039  1041  1048  1052  1059  1186  1189  1476  1481  1512
ASUMED1  00001 000303 00600   0667  0671  0673  0677  0679  0684  0686  0690  0692  0696  0698  0706  0708  1478  1482
ASUMED3  00001 000304 00601   0718  0720  1480  1483
ASUPP    00004 002630 02678   2522
ASVPTR   00004 0024FC 02590   2508  2636
ASWITCH  00001 003FF0 04765   1921  1930  2037  2041  2111  2148  2158  2546  2556  2568  2571  2576  2629  2643  2657
                              2810  3187  3635  3639  3669  3683  3727  3742  3744  3752  3785  3811  3827  3840  3922
                              3946  3977  3979  4015  4258  4555  4576  4654  4663
AUTHOR   00006 004326 05250
AWORD1   00004 002640 02684   2525  2691
AWORD2   00004 002654 02690   2526
AWORD21  00004 002648 02686   2697
AWSPTR   00004 002508 02594   2513
BA       00004 000CB6 01189   1187
BADCOPY  00001 000040 04817   3185  4564  4566
BASE2    00004 001C08 01858   1828
BASE3    00004 001C0C 01859   1829
BASE4    00004 001C10 01860   1830
BASINS   00004 0001F4 00180
BASINSQ  00001 000008 00163
BASIS    00001 000020 00164   1918
BASISK   00005 0041FC 05149   1896
BASNAM   00008 0036CD 04303   1947
PH01                                         CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

BASWORK  00080 003D02 04708   4164  4316  4329  4336  4339  4347  4354
BB       00004 000CC4 01192   1190
BC       00004 000CD2 01199   1193
BCA      00004 000D00 01211   1207
BCB      00004 000B72 01136   1126
BCC      00004 000D04 01212   1209
BCDREP   00006 0027D0 02824   2782  2878  3001  3087  3096
BCDSCAN  00004 002774 02799   2774
BCDSCAN1 00004 002784 02803   2800
BCDSCAN2 00004 0027AC 02813   2816  2819  2821
BCDSCAN3 00006 0027B2 02815   2807
BCDSCAN4 00004 0027C0 02818   2809  2811
BCDSCAN5 00004 0027C8 02820   2802  2805  2817
BFGVSW   00001 000384 00633   0631  0641  1136  1138
BITSET   00001 0000FF 01551   0712  0718  1480
BLANK    00001 000040 04848   1908  2185  2201  2279  2347  2383  2413  2440  2468  2473  2479  2538  2540  2737  2869
                              3007  3010  3088  3115  3118  3126  3129  3132  3643  3655  3773  3791  3847  3862  3884
                              3890  3961  4279  4469  4657
BLANKS   00008 004020 04839   1914  2664  2665  3879  3989  3992  4144
BLANK1   00001 000392 00638   0606  0610  0612  1487  1491
BLCTR    00002 00020C 00191
BLKPRNT  00002 001228 01540   1409
BLKSZE   00001 00003E 00391   0427  0436  0441  0945  0946  0947  0948  0949  1073  1236
BLLCTR   00002 00017E 00081
BLNK     00005 004202 05151
BLOCK    00005 004208 05153
BLSCTR   00002 0001B6 00143
BLSEND   00002 000236 00210
BLSLOC   00002 00022E 00206
BLSVAL   00002 00022C 00205
BL1      00004 00115E 01491   1488
BL2      00004 00116E 01498   1492
BUF      00004 000394 00639   0505
BUFAD    00004 000084 00351   0737  0741  0749  0797  0806  0812  0815  0892  1249  1395  1472
BUFCTLS  00008 000F08 01356   1244  1250  1366  1396  1397
BUFDEFLT 00004 000E20 01285   1142
BUFERR   00002 000C54 01182   1229
BUFFERS  00004 000CA8 01186   1152  1165
BUFFSIZE 00001 0001E4 01543   1510
BUFGIVEN 00004 000D1C 01218   1212
BUFGOT   00001 000E2C 01289   1251  1333
BUFGVN   00004 000E00 01277   1135  1137  1139
BUFMIN   00004 000C4C 01180   1226
BUFOK    00002 000DA8 01255   1227
BUFSIZE  00004 0001E4 00173
BUFSVE   00004 000F88 01357   1371  1374  1378  1387
BUFSZ    00004 00038C 00636   0640  1145  1150  1153  1157  1160  1218  1224  1279  1286  1508
BUFVAL   00002 000844 00951   0945  0946  0947  0948  0949  1042  1053  1060  1188  1191  1194  1199  1201  1202  1203
                              1204  1232  1375
BUFXAD   00004 000090 00354
BUF5     00004 000D10 01215   1256
BUF6     00004 000D0C 01214   1220
BY       00002 00403A 04929   3496
BYES     00001 0000FF 01290   1251  1333
BYPASS   00004 003036 03748   3741  3743
PH01                                         CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

B1       00001 000005 01741   1825  1826
B2       00001 000006 01742   1826  1828
B3       00001 000007 01743   1826  1829
B4       00001 000009 01744   1826  1830
C        00004 000DB2 01258   1223
CA       00004 000DC4 01262   1260
CALCACT  00002 001D0E 01953   2021  2038  2047  2102  2103  2162  2259
CALCACT0 00002 001D22 01960
CALCACT1 00004 001D30 01964   1962
CALCACT2 00004 001D3C 01967   1965
CALCACT3 00004 001D4A 01971   1978
CALCACT4 00002 001D4E 01973   1968
CB       00004 000DD4 01266   1264
CBLANK   00002 00401C 04837   4271
CBUFFER  00004 000C14 01177   1163  1282
CBUFTAB  00004 002A94 03032   2959
CC       00004 000E50 01299   1271  1276
CD       00004 000EA8 01322   1309
CDEFLT   00007 000BF4 01170   1158
CDSURP   00001 000020 04798   2554  2564  2574  2578  3044  3047  3660  3737  3852  4256
CDW1W2W3 00004 003C24 04684   3975  4011
CE       00004 000EB8 01328   1252
CGETWRD  00004 002AA4 03041   2753  2776  2843
CGETWRD1 00004 002AC6 03049   3114  3122  3141  3143
CHARADEL 00002 0021EA 02345   2324  2333  2342
CHARCTRS 00010 0046CA 05491
CHARDEL1 00004 0021EC 02346   2348
CHGPTR   00004 001F44 02137   1992
CHGPTR1  00004 001F5C 02143   2138  2633  3156
CHGPTR2  00004 001F4C 02139   2658  3188  3195  4262
CHKLIT   00006 003166 03832   3701
CHKMARGA 00004 001DEA 02037   2018
CHKMARGB 00004 001DF6 02041   2020  2077  2168  2171  2175  2214  2216  2235  2241  2248  2251  2300  2316  2405  2410
                              2428  2433  2470  2477
CKMARGB1 00004 001E04 02046   2042
CKPCTR   00002 00016E 00073
CLIST    00001 000040 00129
CLISTA   00004 000430 00679   0675
CLISTQ   00001 000040 00588   0667  0677  0679  1478
CLIST1   00004 000420 00675   0521
CLOSEDS  00004 000AAE 01064   0972
CLOSEDS1 00002 000AD6 01074   1072
CMIN     00007 000BFB 01171   1131  1161  1283
CMINUS   00001 000060 04873   2361  2462  3783
CMTBSW   00002 000230 00207
CN       00002 00401A 04836   4571
CNTLINE  00002 0001EC 00175   1511
CO       00002 004016 04834   4563
COBCLAUS 00001 000080 04796   2801  2806  2860  3948  4658  4662
COBCODE  00002 003BB6 04650   4639
COBCODE1 00004 003BCA 04655   4653
COBCODE2 00004 003BEA 04663   4656  4660
COBEND   00001 0049CD 05628   5651
COBOLWDS 00001 004037 04923   2004  3248  3253  3258  3263  3268  3273  3278  3283  3288  3293  3298  3303  3308  3313
                              3318  3323  3328  3333  3338  3343  3348  3355  3360  3367  3372  3379  3388  3399  3404
PH01                                         CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              3415  3420  3425  3436  3447  3452  3457  3469  3474  3479  3486  3496  4633  4634  5637
                              5638  5639  5640  5641  5642  5643  5644  5645  5646  5647  5648  5649  5650  5651
COBTST   00004 003B94 04638   4644
COB10    00010 0046BF 05489   5645
COB11    00011 004759 05520   5646
COB12    00001 0047EA 05547   5647
COB13    00001 0048A0 05579   5648
COB14    00001 004902 05597   5649
COB15    00001 00494D 05611   5650
COB2     00002 004037 04927   5637
COB3     00003 004082 04980   5638
COB4     00001 0040FE 05045   5639
COB5     00005 0041E4 05141   5640
COB6     00006 00430A 05242   5641
COB7     00007 004437 05331   5642
COB8     00001 00454F 05404   5643
COB9     00009 004615 05452   5644
CODE     00004 004108 05050   3420
CODECNT  00002 004031 04842   3539
COLUMN7  00004 003BFC 04674   3912  4135
COLUMN72 00004 003C08 04677   3653  3698  3845  3860  3882  3888  3910  4141
COLUMN8  00004 003C00 04675   2760  2861  2875  2877  4137
COMMA    00001 00006B 04871   2472  2478  2604  3679  3689  3807  3836  3916  4437  4471
COMMAD   00002 0001C4 00150
COMMA5   00005 00421A 05159   3372
COMP     00004 00410D 05052
COMPUTAT 00013 0048A0 05580
COMPUT1  00015 00494D 05612
COMPUT2  00015 00495D 05614
COMPUT3  00015 00496D 05616
COMPWD   00006 003BAA 04647   4638
COMP1    00006 00433B 05256
COMP2    00006 004342 05258
COMP3    00006 004349 05260
CONFIG   00001 000074 00405   1649
CONFIGUR 00013 0048AE 05582
CONTAB   00001 002C06 03154   1935  2032
CONTAINS 00008 00454F 05405
CONTLIT  00001 000010 04809   3075  3082  3099  3142
CONTPER  00001 000020 04808   3104  3106  3134
CONTSW   00001 000080 04806   2951  2955  2969  2986  2998
CONVA    00004 0001B2 00462   0480
CONVB    00004 0001F8 00479   0463
CONVERT  00004 00019E 00456   0459  0614  0629  0639
CONVERTA 00002 0001B0 00461   0457
CONVW    00004 0001BA 00464   0481
CONVX    00006 0001C0 00466   0811
CONVXBR  00002 0001E4 00476   0472
COPY     00004 004112 05054   3360  3388  3404  3425  3436  3457  3564
COPYSW   00001 003FEE 04745   2113  2661  2678  2681  2724  2729  2784  2786  2840  2937  2943  3068  3183  3531  3721
                              3987  4062  4117  4119  4226  4228  4255  4257  4260  4264  4265  4266  4268  4278  4535
                              4561
CORAVAL  00004 000B40 01122   1096
CORE     00004 000388 00634   0630  1124  1134  1140  1146  1505
COREINDX 00010 0046D5 05493
PH01                                         CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CORELEFT 00001 000080 00748   0750  0798
CORENEED 00008 000E40 01295   1149  1240  1245  1299  1324  1328  1329
CORESIZE 00004 0001E8 00174
CORESZ   00001 0001E8 01544   1507
COREXTRA 00004 000E34 01292
COR1     00004 000B9A 01146   1280  1287
COS      00001 000000 00012   1474  1836  1865  1866  1867  1868  1869  1878
COSADDR  00004 001C14 01861   1837  1838  1848  2712  4181
COSADR   00004 000080 00350   0342  1419  1423  1458  1469  1475  1514
COUNT    00004 000336 00614   0497
CP       00002 004018 04835   4567
CPERIOD  00001 0049CD 05630   3355  3452  3479  3486
CPLUS    00001 00004E 04872   2359  2445  2460  3781  3819
CPYBADTK 00004 00363A 04247   4238
CPYEND   00004 00364C 04255   4227  4252
CPYEND1  00004 003640 04250   4242  4246
CPYHYP   00001 003EE5 04721   2737  2738  2739  3029  4209  4213
CPYHYP2  00001 003F27 04723   3020  3029  4213
CPYHYP3  00001 003F69 04725   3016
CPYHYP4  00001 003FAB 04727   3018
CPYLNAM  00008 003611 04235   2664  2675
CPYLNAM2 00008 003695 04276   2665  2676
CPYLST   00004 003648 04254   4236
CPYMOVE  00006 002624 02675   2668
CPYMOV2  00006 00262A 02676   2669
CPYNOLIB 00004 003630 04243   4237
CPYRDSP1 00002 003680 04269   4267
CPYRDSUP 00004 00366C 04264   4254
CPYRD1   00002 00360E 04233   4229
CPYRD2   00006 003682 04270   4231
CPYRD2MV 00002 0036AE 04281   4277
CPYREP   00001 000020 04748   2681  2729
CPYSTMT  00001 000080 04746   2113  2661  3531  4264  4561
CPYSUPP  00001 000040 04747   2678  4266
CPYSURP  00001 000002 04752   4062  4119  4257  4260  4268  4535
CPYWRK1  00080 003E45 04718   3025  3028  4209  4222  4270  4272
CPYWRK2  00080 003E95 04719   3113  3115  3116  3120  4230  4279  4282
CPY1     00001 002D41 03462   3361  3389  3405  3426  3437  3458
CPY2     00001 002D55 03484   3502
CPY3     00001 002D5A 03489   3475
CRPCON   00001 001C2C 01879   2670  2707  2740  4179
CSIZE    00004 000C10 01176   1132
CURCRD   00002 0001EE 00176
CURGCN   00002 003CFC 04705   3544  4024  4026  4537  4559
CURRENCY 00008 004561 05409
CURSGN   00001 0001D2 00158
CYCNUM   00002 000206 00188
CYCTOTAL 00002 0001DA 00169
CYLIND   00009 00463D 05460
CYLOFLOW 00012 0047F7 05550
C0       00001 000000 01734   1825  1943  2026  2311  2386  2448  2710  2714  2781  2794  2866  2876  2976  2977  2988
                              2991  3000  3009  3086  3089  3095  3551  3557  3565  3780  3841  4069  4122  4131  4182
                              4185  4187  4233  4269  4274  4281  4301  4315  4374  4381  4547  4550  4574
C1       00001 000001 01735   1837  1845  1893  1893  1896  1899  1901  1902  1904  1907  1907  1908  2707  2709  2777
                              2778  2779  2781  2782  2783  2832  2832  2833  2834  2836  2837  2838  2846  2848  2853
PH01                                         CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              2854  2855  2912  2912  2913  2919  2939  2940  2941  2953  2973  2984  3003  3024  3042
                              3046  3073  3077  3084  3086  3087  3090  3100  3102  3107  3525  3567  4042  4044  4045
                              4045  4046  4048  4091  4093  4095  4098  4103  4103  4104  4179  4224  4385  4396  4397
                              4399  4401  4422  4427  4429  4431  4433  4435  4437  4439  4441  4441  4446  4446  4449
                              4450  4452  4454  4460  4469  4471  4473  4478  4478  4479  4484  4485  4487  4489
C1C2SAVE 00004 003C3C 04686   3024  3042  3046  4224
C13      00001 00000D 01738
C2       00001 000002 01736   1935  1936  1941  1942  1973  1973  1975  1977  2011  2012  2014  2015  2048  2062  2099
                              2114  2121  2123  2128  2130  2151  2153  2155  2156  2160  2165  2188  2190  2229  2230
                              2231  2241  2244  2248  2249  2251  2252  2254  2271  2273  2295  2296  2297  2306  2308
                              2309  2310  2314  2345  2346  2346  2347  2349  2350  2351  2352  2353  2363  2365  2368
                              2370  2389  2401  2405  2406  2410  2411  2424  2428  2429  2433  2434  2436  2444  2448
                              2449  2449  2464  2470  2471  2477  2488  2495  2537  2538  2539  2539  2650  2656  2666
                              2667  2668  2669  2670  2671  2713  2713  2718  2754  2760  2761  2762  2778  2804  2813
                              2824  2836  2837  2839  2839  2861  2868  2869  2870  2870  2871  2874  2877  2879  2879
                              2901  2905  2913  2914  2914  2918  2923  2947  2949  2967  3004  3007  3009  3010  3011
                              3011  3024  3042  3046  3074  3091  3094  3550  3556  3573  3577  3578  3579  3579  3580
                              3581  3581  3582  3586  3595  3605  3610  3651  3868  3899  3902  3906  4224  4545  4572
C3       00001 000003 01737   1932  1933  1934  1935  1937  1937  1938  1939  1940  1941  1953  1953  1956  1957  1957
                              1958  1960  1960  1963  1970  1974  2005  2005  2006  2007  2012  2055  2056  2059  2060
                              2061  2068  2071  2075  2117  2118  2124  2129  2183  2184  2184  2185  2186  2186  2198
                              2209  2211  2211  2224  2225  2228  2228  2230  2270  2270  2281  2281  2287  2287  2289
                              2294  2296  2304  2307  2308  2315  2372  2372  2385  2386  2387  2388  2447  2489  2490
                              2492  2494  2494  2583  2587  2590  2607  2610  2612  2635  2651  2652  2654  2671  2672
                              2825  2830  2848  2865  2866  2867  2874  2875  2876  2878  2879  2884  2885  2887  2888
                              2888  2889  2956  2956  2957  2958  2959  2960  2961  2961  2962  3063  3064  3064  3116
                              3117  3117  3118  3121  3126  3128  3129  3132  3136  3136  3525  3540  3541  3567  3572
                              3585  3585  3589  4546  4573
C4       00001 00000E 01739   1843  1847  2056  2057  2071  2072  2074  2118  2122  2124  2125  2127  2132  2187  2191
                              2196  2196  2199  2201  2223  2225  2226  2268  2269  2269  2279  2305  2311  2312  2345
                              2349  2356  2356  2359  2361  2364  2364  2367  2369  2371  2371  2711  2825  2831  2833
                              2836  2853  2853  2854  2855  2855  2864  2868  2885  2886  2959  2963  3120  3121  3123
                              3124  3125  3125  3128  3130  3138  3138  3716  4180  4230  4269  4270  4281  4282  4381
                              4382  4385  4386  4388  4394  4396  4407  4409  4422  4449  4464  4466  4467  4484  4497
                              4503  4504  4628  4636  4647  4648
C5       00001 00000F 01740   1836  1838  1842  1843  1846  1847  1848  2708  2711  2712  3551  3557  3565  4069  4122
                              4178  4180  4181  4182  4185  4187  4233  4274  4301  4374  4547  4550  4574
DATA     00004 00411C 05058
DATAMAN  00004 000C08 01174   1148  1722
DATANAM1 00001 003DF8 04712   2615  2905
DATANAM2 00001 003E17 04713   2616  2923
DATASET  00008 000B0A 01100   1086  1088
DATDECOD 00004 000700 00871   0867
DATE     00015 00018C 00107   2541
DATEA    00006 000724 00880   0884
DATEB    00004 00073C 00885   0881
DATEC    00004 000758 00892   0890
DATECOMP 00013 0048CA 05586   3248
DATER    00004 0006BC 00851   0819
DATEWRIT 00012 004804 05552
DATE1    00015 000661 00821   0853  0864  0866  0868  0871  0887  0894  1405
DBLCPY   00001 000004 04751   4228  4265
DBUGC6   00001 000002 04792   4101  4116  4142
DBUGPTR  00004 003C64 04693   4006  4104
DBUGSW   00001 000001 04793   2758  4004  4102  4116
PH01                                         CROSS-REFERENCE                                                   PAGE    9


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCBAD    00004 00008C 00353   0757  0897  0934  0960  1235  1411
DCBCTR   00002 000160 00066
DCOMPILE 00001 000080 04786   2534  2536
DCPTR    00001 0001B1 00141
DDA      00004 000566 00763   0760
DDB      00004 000580 00769   0763
DDC      00004 00058E 00772   0769
DDCOM    00004 0000BE 00372   0761  0767  0770  0773  0776  0779  0786  0790  0794
DDD      00004 00059C 00775   0772
DDE      00004 0005AA 00778   0775
DDF      00004 0005C4 00785   0778
DDG      00004 0005D8 00789   0785
DDH      00004 0005EC 00793   0789
DDNTBL   00001 000370 00388   0898  0899  0900  0901  0902  0903  0904  0905  0906  0907
DDX      00008 000B20 01104   0782  0788  0792  0796  1085
DEBUG    00006 004002 04831   4095  4098
DEBUGSCN 00001 00348E 04084   4132
DEBUGSN1 00006 0034C2 04098   4094
DEBUGSN2 00004 0034D0 04101   4096
DEBUGSN3 00004 0034D4 04102   4100
DEC      00004 0003BC 00650   0509
DECA     00004 0003CC 00654   0650
DECBCT   00002 0001D4 00166
DECK     00001 000020 00121
DECKQ    00001 000020 00583   0652  0654
DECLIT   00004 003122 03814   3806
DECLIT1  00004 003136 03819   3815  3817
DECPNT   00001 004035 04845   2191  2226  2312  2604  3687  3805
DECPOINT 00013 0048D8 05588   3273
DELETE   00007 004008 04832   4388
DELNOW   00001 000002 04742   4322  4332  4338  4342
DELPTRSV 00004 003C60 04692   4427  4479
DELTHRU  00001 000008 04740   4326  4332  4342  4505
DEL1NUM  00002 003CF0 04703   4329  4336  4466
DEL2NUM  00002 003CF6 04704   4339  4503
DEPACK   00004 0006AC 00846   0856  0857  0888  0891
DEPENDNG 00009 004647 05462
DEVB     00006 000ADE 01086   1095
DEVC     00004 000B02 01095   1093
DIAG     00001 002D94 03536   3528
DIAGNOSE 00004 002D68 03525   2043  2089  2232  2291  2301  2321  2330  2339  3179  3592  3597  3602  3607  3612  3724
                              3729  3745  3756  3760  3770  3872  3926  4167  4173  4239  4243  4247  4403  4413  4443
                              4456  4475  4491  4499  4507  4519
DIAGSAVE 00004 003C44 04687   3525  3567
DIAG0    00001 002DB2 03543   3534  3583
DIAG00   00004 002D88 03533   3530
DIAG1    00006 002DB8 03545   3542
DIAG123  00004 002C3C 03179   3166
DIAG2    00004 002DFA 03567   3555  3560
DIAG3    00001 002E06 03571   3535
DIAG4    00002 002E1C 03577   3587
DIAG5    00004 002E36 03584   3575
DICADR   00004 0001A8 00138
DICND1   00004 000188 00106
DICND2   00004 000184 00105
PH01                                         CROSS-REFERENCE                                                   PAGE   10


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DICPTR   00001 0001B0 00140
DIGITSCN 00004 00222A 02367   2190  2273  2373
DISPLAY  00007 00445F 05341
DISPST   00010 0046EB 05497
DIVISION 00008 00456A 05411
DLSVAL   00004 0001AC 00139
DMAP     00004 000408 00669   0517
DMAPA    00004 000418 00673   0669
DMAPQ    00001 000020 00589   0671  0673
DNAME    00001 000028 00389   0762  0768  0771  0774  0777  0780  0781  0787  0791  0795  0898  0899  0900  0901  0902
                              0903  0904  0905  0906  0907
DNM      00004 001EBE 02099   1994
DNM0     00001 001EE2 02110   2099  2147  2401  2424  2436  2901
DNM1     00004 001EFC 02117   2112  2149
DNM2     00004 001F18 02124   2129
DNM3     00004 001F2C 02129   2133  2135
DNM4     00004 001F34 02132   2126
DOPH7    00001 000002 00103
DOUBLE   00008 003BF0 04672   4538  4540
DRIVER   00004 001CC4 01929   1931  2039  2144  2535  2598
DRIVER1  00004 001CC8 01930   2142  2566  2580
DSOU     00001 000008 00100
DS1      00001 000000 00378   0780  0898
DS2      00001 000058 00379   0787  0899
DS3      00001 0000B0 00380   0791  0900
DS4      00001 000108 00381   0795  0901
DTFNUM   00001 0001D1 00157
DUMMYGET 00001 000010 04780   2260  2908  2917  2922  3632  3954
DX0      00001 000000 01778   1894  1896  1899  1902  1908  1946  1961  2057  2072  2074  2114  2121  2123  2128  2137
                              2156  2185  2191  2199  2201  2226  2279  2312  2347  2356  2359  2361  2367  2368  2369
                              2370  2376  2383  2391  2391  2413  2419  2440  2468  2472  2478  2484  2490  2491  2492
                              2493  2552  2572  2652  2654  2671  2709  2713  2718  2718  2741  2742  2743  2761  2824
                              2824  2825  2825  2833  2837  2848  2854  2868  2869  2913  2947  2949  2967  2989  3007
                              3010  3101  3118  3126  3128  3128  3129  3130  3176  3527  3533  3541  3546  3554  3559
                              3589  3643  3673  3677  3679  3681  3684  3687  3689  3691  3781  3783  3789  3791  3801
                              3803  3805  3807  3825  3847  3884  3920  3958  3960  4046  4051  4054  4057  4060  4063
                              4065  4086  4089  4090  4092  4095  4097  4098  4099  4105  4270  4282  4316  4382  4386
                              4388  4399  4407  4409  4429  4433  4435  4437  4439  4460  4464  4466  4467  4469  4471
                              4473  4497  4503  4504  4543  4558  4628  4636  4647
DX1      00001 000001 01779   1906  2056  2082  2196  2228  2243  2255  2269  2346  2356  2364  2371  2372  2384  2388
                              2400  2414  2420  2441  2447  2469  2473  2479  2485  2494  2540  2686  2783  2793  2836
                              2839  2853  2855  2867  2868  2870  2872  2879  2885  2914  2945  2961  2972  2975  2987
                              2990  3002  3011  3094  3107  3117  3132  3136  3137  3138  3538  3545  3545  3561  3563
                              3579  3580  3582  3585  3693  3849  3859  3881  3931  3945  3998  4025  4053  4056  4059
                              4136  4446  4452  4478  4484  4487  4559  4615  4618  4647  4648  4651  4652  4655  4659
DX11     00001 00000B 01787
DX12     00001 00000C 01788
DX13     00001 00000D 01789   1902  2542
DX2      00001 000002 01780   2474  2480  2541  2721  2958  2960  3532  3541  3564  3569  3581  3589  4545  4632  4641
DX24     00001 000018 01790   2538  2539
DX25     00001 000019 01791   2539
DX3      00001 000003 01781   1974  4068
DX4      00001 000004 01782   2130  2151  2153  2155  2310  2363  2378  2380  2496  2672  2820  4038  4041  4043  4049
                              4061  4138  4540
DX5      00001 000005 01783   4045  4087  4103
PH01                                         CROSS-REFERENCE                                                   PAGE   11


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DX6      00001 000006 01784   1901  2080  2549  2551  3113  3115  3116  4008  4010  4037  4134  4279  4397  4422  4441
                              4450
DX60     00001 00003C 01792   4140
DX61     00001 00003D 01793   2952  3083  3090
DX7      00001 000007 01785   1899  3028  4040  4394  4485
DX71     00001 000047 01795   4088  4430
DX72     00001 000048 01796   3120  4039  4423
DX78     00001 00004E 01548   1398
DX8      00001 000008 01786
DX94     00001 00005E 01549   1399
D0       00001 000000 00392   0342  0419  1576  1583  1585  1586  1587  1592  1592  1599  1600  1632  1652  1654  1659
                              1663  1686  1689  1690  1696
D1       00001 000001 00393   1573  1578  1595  1598  1601  1632  1633  1633  1635  1635  1638
D11      00001 00000B 00398   1661  1662  1668  1669
D16      00001 000010 00399   1648
D2       00001 000002 00394   1073  1511  1583  1583  1585  1585  1586  1586  1587  1587  1588  1590  1592  1594  1597
                              1600  1602  1604  1649
D20      00001 000014 00400   0419
D3       00001 000003 00395   1623  1632  1633  1635
D36      00001 000024 00363   1071
D4       00001 000004 00396   1654  1664  1680  1686  1691  1693  1696  1696
D40      00001 000028 00401
D6       00001 000006 00397   1073  1599  1600
D8       00001 000008 00364   1070
E        00001 0000C5 04880   2199
ECOMM    00004 000EF0 01350   1247  1248  1369  1373  1376  1377  1380  1381  1384  1385  1388  1389  1391  1392
EDINOU   00004 0000F8 00420   0417
EDITIN   00004 0000F0 00418   0412
EDITMASK 00007 00402A 04841   4539
EDITOU   00004 0000E8 00416   0414
EDIT8A   00004 00010C 00425   0423
EDIT8B   00002 000110 00426   0421
EDIT8C   00004 00012A 00435   0432
EDIT8D   00004 00012E 00436   0429
EDIT8E   00002 000132 00437   0434
EDIT80   00004 000108 00424   0408
EDIT80P  00004 000100 00422   0410
EIGHT    00002 0000B0 00367   0372  0740  0758  0759  0765  0766  1412
EIGHTY   00002 000134 00439   0418  0425
EITHERAB 00004 001D7C 02004   1991  2035
EJECT    00005 004226 05163   4051
ENAMSVL1 00004 003C50 04688   2052  2079  2096  3041  3049
ENDCLAS0 00004 003068 03763   3680  3682
ENDCLAUS 00004 00306C 03765
ENDER    00004 003156 03827
ENDER1   00004 00315E 03829   3804
ENDWORD  00004 0032D2 03934   3642
ENDWORD1 00004 0032DE 03937   3932
ENDWORD2 00004 0032EE 03941   3935
ENVIRON  00011 004771 05524
EOJMAXSP 00004 000DA4 01254
EOJMINSP 00004 000DA0 01253   1239
EOJMSG   00004 000D52 01232   1123
EOPPH1   00001 000002 00161
EOS      00001 000004 04768   2546  2571  3639  3811  3827  3840  3946
PH01                                         CROSS-REFERENCE                                                   PAGE   12


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

EPARAM   00002 004A54 05670   3539  3541  3562  3563  3564  3576  3580  3584  3589
EPARNN   00002 004A52 05669   3538  3556  3561  3582
EQ       00001 000008 01759   2175  4341  4346  4402  4438  4440  4455  4470  4472  4474  4490  4643
ERF4SW   00001 0001C2 00147
ERRSEV   00001 0001A2 00117
ERRSEV1  00004 000098 00356   1459
EVERY    00005 004244 05173
EXTNAME  00004 001E0E 02051   1913
EXTNINE  00001 0000F9 04883   2369  2492  2654  3816  4435
EXTONE   00001 0000F1 04878
EXTSRCH  00015 00497D 05618
EXTZERO  00001 0000F0 04882   2067  2074  2132  2367  2490  2652  3814  4433
E1       00004 000F8C 01361   1340
E2       00004 000FAC 01369   1370
E3       00004 001004 01395   1334
F        00004 0010E0 01455   1407  1415
FALSE    00004 001DDE 02032   1936  2026
FD       00002 004046 04937   3293
FDSDSW   00001 000020 04788   2582  2586  2594  2600  2623
FF       00001 0000FF 04868   1967  2023  2078  2094  2119  2545  2546  2564  2570  2571  2578  2588  2589  2594  2595
                              2600  2622  2631  2639  2640  2692  2696  2748  2786  2801  2803  2897  2910  2922  2924
                              2936  2951  3027  3081  3082  3099  3106  3631  3635  3648  3659  3670  3686  3737  3765
                              3941  3946  3947  3948  3949  3954  4116  4119  4207  4212  4216  4217  4256  4260  4264
                              4298  4332  4342  4377  4411  4417  4481  4494  4511  4566  4570  4576  4658
FILE     00004 004135 05068
FILECON  00012 00481E 05556   3278
FILELIM  00010 0046F6 05499
FILELIMS 00011 00477D 05526
FILLER   00006 004373 05272   2115  2115
FLAGW    00001 000004 00124
FLAGWQ   00001 000004 00586   0625  0627
FLOPTSAV 00004 003C5C 04691   2268  2305
FLOPTSW  00001 000020 04758   2267
FNDALPHA 00001 000001 04776   2101  2119  2134  2169  2403  2426  2438  2818
FOR      00003 0040CE 05018
FOUNDLP  00004 003094 03778   3685
FOUNDLP1 00002 00309C 03780   3802
FOUNDLP2 00004 0030B2 03786   3782  3784
FOUNDRP  00004 0032B4 03924   3674
FOUNDRP1 00004 0032C2 03929   3921
FOUNDRP2 00004 0032C6 03930   3925  3936
FOUR     00002 0004E0 00726
FULLBUFS 00001 000008 04800   2746  2748  3023  4220
FULLWORD 00004 003C68 04694   2008  2009  2010
F3TEXT   00001 000080 00165
G        00001 0010FE 01463   1451  1457
GC       00004 00336E 03984   4018
GCSAVEL1 00004 003C20 04683   2561  3976  4012
GC1      00004 0033BC 04001   3991  3993
GC2      00004 0033C8 04004   3988  4002
GC21     00004 0033D8 04008   4005
GC22     00004 0033E4 04011   4007
GC3      00004 0033F6 04017
GC4      00004 003376 03986   2562  4145
GE       00001 00000B 01763   4172  4432  4498
PH01                                         CROSS-REFERENCE                                                   PAGE   13


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

GETBASIS 00002 0036BA 04295   4121  4335  4340
GETBAS1  00002 0036CA 04301   4297
GETBAS10 00004 003772 04354   4321  4330  4337  4348
GETBAS2  00002 0036DE 04315   4305
GETBAS3  00004 0036E6 04320   4299  4344
GETBAS4  00004 003714 04332   4341
GETBAS5  00006 003720 04336   4327
GETBAS6  00006 00372E 04339   4323
GETBAS7  00004 00373C 04342   4331
GETBAS8  00006 003748 04345   4325
GETBAS9  00006 00375C 04349   4172  4346
GETCARD  00001 00334A 03974   1887  1922  2569  2726  3193  3662  3854  4259
GETCARD1 00004 00336A 03983   3981  3985
GETCARD2 00006 0033B6 04000   3995
GETCARD3 00004 0033EE 04015   4009
GETCARD4 00004 0033F2 04016   3978  4219
GETCOPY  00004 00359A 04205   4118
GETCPY1  00006 0035BE 04213   4211
GETCPY2  00004 0035D0 04217   4215
GETCPY3  00004 0035DC 04220   4206
GETCPY4  00004 0035F6 04226   4221
GETGCN   00004 0033FE 04024   3986  4218  4223
GETIPT   00004 0034E4 04115   2544  3983  4017
GETIPT2  00001 00350C 04130   4124
GETIPT21 00004 00350E 04132   4280  4283  4353  4356
GETIPT3  00004 003512 04133
GETIPT4  00004 003546 04146   4143
GETNEXT  00004 002EAA 03643   3942
GETNOTE  00004 003320 03957   3718
GETNOTE1 00004 003344 03966   3963
GETWORD  00004 002E78 03630   1929  2157  2245  2250  2407  2412  2421  2430  2435  2465  2555  2575  2591  2642  2647
                              3045  3186  3194  4261
GETWORDA 00004 002E8C 03635   3766
GETWORDB 00004 002F74 03695   3688  3692  3706  3790  3798  3800  3810  3818  3820  3822  3824  3869  3905  3907
GETWORDC 00004 002FAE 03708   3794  3808  3826
GETWORDG 00004 003190 03845   3839  3850
GETWORDH 00004 0031AC 03852   3833  3846  3861  3883  3889
GETWORDI 00004 0031CA 03859   3864
GETWORDJ 00006 0031E2 03866   3863
GETWORDK 00004 0031F4 03870   3867
GETWORDL 00006 003208 03877   3856
GETWORDM 00004 003234 03888   3893
GETWORDN 00001 00324C 03895   3891
GETWORDO 00004 00326C 03904   3898
GETWORDP 00004 00327C 03910   3646
GETWORDQ 00004 0032F6 03944   3640  3678  3759  3915
GETWORDU 00004 00331A 03954   3633
GETWRDJJ 00004 0031F0 03869
GNCTR    00002 00015E 00065
GO       00004 0004E4 00728   0343
GOF      00001 000318 00387   0762  0907  0912  0916  0938  0949
GT       00001 000002 01761   2210  2649  3817  4331
GTLNG    00002 000220 00199
GWEXIT   00004 002FDC 03719   3715  3755  3776  3952
GWEXIT1  00004 00300E 03736   3661  3853
PH01                                         CROSS-REFERENCE                                                   PAGE   14


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

GWEXIT2  00004 002FF6 03727   3720  3722  3769  3940
GWEXIT3  00004 003004 03732   3728  3738  3753
GWSAVEL1 00004 003C14 04680   3630  3732
GW1      00004 002F80 03698   3748  3901  3903
GW2      00004 002FAA 03707   3779  3875
GW3      00004 002FB2 03709   3787  3796  3812  3828  3830  3843  3851  3858
GW4      00004 0031A8 03851   3848
GW5      00004 003244 03892   3878
GW6      00004 00321C 03881   3615  3886
H        00004 00111A 01472   1465
HEADER   00004 000600 00797   0373  0793
HEXFF    00001 0000FF 00332   1122
HGOF     00003 00081F 00943   0912  0938
HI       00006 00113C 01481   1477  1479
HOUT     00003 000816 00940   0909  0935
HPCH     00003 00081C 00942   0911  0937
HSIN     00003 000819 00941   0910  0936
HYPHEN   00001 000060 04875   2072  2120  2122  2127  2552  2572  3016  3018  3020  3113  3855  4439  4473
HZERO    00002 003FF6 04825   2265  2672  2722  2725  2846  3537  4560
H16      00002 003FFE 04829   2299  2307
H18      00002 004000 04830   2209  2224
H65      00002 003FFA 04827   2745
ID       00002 00404C 04941
IDATE    00017 001299 01555   1405
IDELCARD 00001 000040 04737   1919  4162  4320  4377
IDELERR  00001 000004 04741   4411  4416  4481  4510  4516  4518
IDELSRC  00001 000020 04738   4410  4417  4480  4511  4514
IDELWORK 00080 003D52 04709   3540  4349  4382  4383  4423  4430
IDENT    00014 004902 05598
IDENTL   00004 000208 00189
IDENTMS  00002 001230 01552   1404
IDREAD   00004 003782 04373   1920  4351
IDREADA  00002 0037AA 04385
IDREADL  00004 00378E 04377
IDREADR  00004 0038F4 04482   4515
IDREADX  00004 00382C 04426   4334  4343
IDREAD1  00002 003786 04374   4384  4395  4412  4418  4432  4517  4522
IDREAD10 00004 00386C 04443   4438  4440
IDREAD11 00002 00387A 04449   4436
IDREAD12 00004 003894 04456   4442
IDREAD13 00004 00389A 04459   4495
IDREAD14 00006 0038AC 04464   4455
IDREAD15 00004 0038C6 04469   4506
IDREAD16 00004 0038E4 04478   4472
IDREAD17 00004 0038E8 04479   4470
IDREAD18 00004 0038FA 04484   4474
IDREAD19 00006 003924 04497   4490
IDREAD2  00001 003798 04380   4376
IDREAD20 00006 003938 04503   4498
IDREAD21 00004 00394C 04507   4465
IDREAD22 00004 003952 04510   4447  4462  4502
IDREAD23 00004 00395E 04514   4390
IDREAD24 00004 003972 04519
IDREAD3  00006 0037C4 04394   4387
IDREAD4  00006 0037F2 04407   4402
PH01                                         CROSS-REFERENCE                                                   PAGE   15


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IDREAD5  00004 00380E 04413   4408
IDREAD6  00004 003814 04416   4406
IDREAD7  00004 003820 04422   4389
IDREAD8  00006 003834 04429   4424  4512
IDREAD9  00004 003854 04437   4434
IDSAVEL1 00004 003C10 04679   4373  4378  4426  4482
ID10     00001 002C76 03246   1923  1976  2565  2579  3259  3264  3269  3274  3279  3284  3289  3294  3299  3304  3309
                              3319  3324  3329  3334  3339  3344  3349  3361  3389  3400  3405  3421  3426  3437  3458
                              3475  3502
ID12     00001 002CA3 03291   2583
ID15     00001 002CBC 03316   2635
ID20     00001 002CE0 03353   3259  3264  3269  3279  3289
ID30     00001 002CEB 03365   3274
ID40     00001 002CF6 03377   3284
ID50     00001 002CFB 03382   3294  3299  3304  3309  3400  3421
ID60     00001 002D04 03393   3319  3324  3329
ID70     00001 002D12 03409   3334
ID75     00001 002D25 03430   3339  3344
ID80     00001 002D2E 03441   3349
IGNORE   00004 002C1A 03168   3157
IGNOREA  00004 002C2E 03176   3169  3172
IGNOREB  00006 002C10 03165   3177
IGNOREC  00004 002C4E 03186   3190  3192
IGNORE1  00004 002C22 03171   3158  3600
IGNORE2  00004 002C2A 03174   3159
IKFCBL01 00001 000000 00312
IKFPATCH 00004 00001C 00347   0348
IKFPATCI 00004 001BA4 01850   1851
IKF011   00001 0008A0 00982
IKF012   00001 001B70 01727
IN       00001 0001B8 00383   0771  0903  0910  0914  0936  0945
INBASIS  00001 000080 04736   1900  4120
INBUF    00001 000090 01546   1398
INCON    00002 004052 04945   2379
INCPYLIB 00001 000010 04749   2113  2724  3721  3987  4117
INDATE   00002 0004E2 00727   0877  0880  0882  0885
INDCTR   00002 000170 00074
INDELETE 00001 000010 04739   4165  4324  4332  4342  4417  4468  4494
INDEX    00004 000238 00211
INDEXED  00007 00448F 05353
INDEXS   00002 0001D6 00167
INDEX0   00002 00023C 00212
INDEX1   00002 0001D8 00168
INFO     00004 000B14 01101   1089  1091
ININSERT 00001 000001 04743   4001  4296  4298  4350
INITBIT  00001 000004 00162
INOUT    00012 00482B 05558
INSERT   00007 00400F 04833   4386
INSERTA  00004 000130 01866   1872
INSNUM   00002 003CEA 04702   4171  4345  4347  4407  4409  4464  4467  4497  4504
INSTALL  00012 004838 05560
INVERSE  00001 001B4C 01720   1598  1627  1630
IOCONTRL 00011 004795 05530   3288
IOPTRCTR 00002 0001DC 00170
IS       00002 004055 04947   3367
PH01                                         CROSS-REFERENCE                                                   PAGE   16


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

J        00001 0000D1 04881   2083
JUST     00004 004144 05074
JUSTI    00009 004651 05464
K        00004 001112 01469   1467
KEIGHTY  00001 000080 04865   4652
KEY      00003 0040D6 05022
KEYWORD  00001 000020 04771   1930  3635  3752  4654
K0       00001 000000 04849   2182  2709  3061  3067  3183  3184  3636  4255  4605  4619
K1       00001 000001 04850   2137  2458  2787  2945  3013  3070  3189  3938  3950  4610  4614  4655
K10      00001 00000A 04858
K120     00002 003FFC 04828   3696
K14      00001 00000E 04859   1961
K15      00001 00000F 04860   2009  2024  2105  3714
K16      00001 000010 04861
K2       00001 000002 04851   2375  2648  3079  3527  3712  3768
K25      00001 000019 04862
K3       00001 000003 04852   3165  3775
K30      00001 00001E 04863   2903  3719  3723
K4       00001 000004 04853   3559  3563
K5       00001 000005 04854   3178  3533
K6       00001 000006 04855   3561
K7       00001 000007 04856   2068  3554
K74      00001 00004A 04864   3538
K8       00001 000008 04857   2064  2066  2095
K80      00001 000040 04866   1964  3176  4659
K85      00001 000085 04867   3751
LABEL    00005 004268 05185
LABELS   00002 000158 00061
LASTCARD 00004 00354C 04161   4125  4309  4357
LASTCPY  00001 000008 04750   4226  4278
LASTPARM 00004 000648 00815   0752  0801  0805
LASTWRD  00001 000040 04807   2749  2841  2849  3027  3059  3066
LCSECT   00004 0001B8 00144
LE       00001 00000D 01764   2290  2300  4348  4436
LEADING  00007 00449F 05357
LEAP     00004 000708 00873   0870
LEFT     00004 00414E 05078
LENGTH   00004 000E4C 01298
LEVEL01  00002 00407C 04973   2150  2150  2891  2891  3303  3323  3338
LEVEL1   00001 0049CE 05631   2152  2152  2893  2893  3308  3328  3343  3749
LEVINDX  00002 003CFE 04706   2884  2886  2898  2898  2911  2911  2925  2925
LEVINSRT 00001 002C40 03180   3168  3171  3174
LEVTAB   00004 002930 02928   2888
LEV1SW   00001 000040 04787   2588  2594  2621  2631  2639  2727  2766  2897  2910  2924
LEV77    00002 00407F 04975   2154  2154  2895  2895  3318
LIB      00001 000268 00385   0768  0905  0947
LIBR     00001 000002 00125
LIBRA    00004 0004BC 00714   0710
LIBRQ    00001 000002 00591   0712  0714  1512
LIBSIZE  00001 00008E 01547   1399
LIBWORK  00080 003DA2 04710   1892  3025  4222  4349  4352
LIB1     00004 0004AC 00710   0533
LINK     00001 000010 00122
LINKAGE  00007 0044A7 05359
LIST     00001 000080 00119   4064  4533
PH01                                         CROSS-REFERENCE                                                   PAGE   17


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

LISTAD   00004 000088 00352   0917  1064
LISTIN   00001 0000DC 00411   0370
LISTOU   00001 0000E0 00413   0371
LISTX    00001 000040 00120
LIST80   00001 0000D4 00407   0368
LIST80P  00001 0000D8 00409   0369
LITFOUND 00004 003074 03768   3711
LITSIGN  00001 004036 04846   2053  2057  2174  2967  2989  3111  3574  3703  3705  3710  3740  3774  3795  3832  3857
                              3866  3871  3877  3897  3982
LN       00001 001000 04884   3308  3328  3343  3355  3452  3479  3486
LOAD     00004 0003D4 00656   0511
LOADA    00004 0003E4 00660   0656
LOADQ    00001 000010 00584   0658  0660
LOCCTR   00004 000148 00058
LOCCTR1  00004 00014C 00059
LONGPHSE 00004 000E30 01291   1147  1678
LP       00001 000040 04782   2545  2570  3645  3649  3659  3686  3765  3778  3786  3947
LPAREN   00001 00004D 04869   2417  2419  3684  3801
LSTBASIS 00001 000080 04816   4161  4355
LSTCARD1 00006 003570 04171   4166
LSTCARD2 00001 003580 04177   4163  4170
LT       00001 000004 01762   3815  4094  4330  4337  4340  4408  4465  4640
LTLCTR   00002 000164 00068
LX0      00001 000000 01798   1946  1947  2082  2356  2391  2615  2616  2675  2676  2718  2824  2825  2868  3589  4647
                              4648
LX1      00001 000001 01799   2053  2057  2086  2174  2191  2226  2312  2967  2989  3111  3128  3545  3546  3574  3687
                              3740  3749  3805  4208  4630  4651
LX10     00001 00000A 01808   4609  4618
LX132    00001 000084 01819   4213
LX15     00001 00000F 01809   2541
LX16     00001 000010 01810
LX198    00001 0000C6 01820   2738  3029
LX2      00001 000002 01800   1398  1399  2265  2299  2377  2379  2672  2725  2887  2898  2911  2925  3043  3539  3544
                              4271  4559  4560  4563  4567  4571
LX20     00001 000014 01811   1839
LX3      00001 000003 01801
LX4      00001 000004 01802   3564
LX47     00001 00002F 01812   2539
LX49     00001 000031 01813
LX5      00001 000005 01803   1896  1899  4051  4054  4057  4060
LX6      00001 000006 01804   1898  4095  4098  4164  4171  4329  4336  4339  4345  4347  4407  4409  4464  4466  4467
                              4497  4503  4504
LX65     00001 000041 01814   1901  2739  3028  4394  4399  4452  4487
LX66     00001 000042 01794   4209
LX7      00001 000007 01805   4386  4388  4539  4540
LX72     00001 000048 01815   1894  3541
LX77     00001 00004D 01816   4558
LX8      00001 000008 01806   1902  1914  2664  2665  4608  4617
LX80     00001 000050 01817   3025  4040  4046  4089  4222  4270  4282  4316  4349  4382  4383  4429  4460  4543  4573
LX88     00001 000058 01818   4546
LX9      00001 000009 01807   2919  4606  4607  4615  4616
L0       00001 000000 00402
L1       00001 000008 01748   1887  1913  1920  1922  1929  2043  2052  2079  2080  2089  2096  2097  2157  2232  2245
                              2246  2250  2291  2301  2321  2324  2330  2333  2339  2342  2354  2376  2378  2380  2381
                              2407  2408  2412  2421  2430  2431  2435  2451  2465  2466  2491  2493  2496  2543  2544
PH01                                         CROSS-REFERENCE                                                   PAGE   18


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              2547  2555  2560  2561  2562  2569  2575  2591  2642  2647  2687  2716  2723  2726  2753
                              2774  2776  2814  2820  2820  2843  3041  3045  3049  3050  3124  3137  3137  3140  3179
                              3186  3193  3194  3526  3527  3532  3533  3545  3546  3554  3559  3568  3569  3592  3597
                              3602  3607  3612  3630  3662  3717  3718  3724  3729  3732  3734  3745  3756  3760  3770
                              3854  3872  3926  3955  3958  3960  3965  3967  3976  3983  3984  3986  4012  4013  4016
                              4017  4027  4038  4041  4043  4049  4061  4063  4065  4071  4086  4090  4092  4097  4099
                              4105  4115  4132  4146  4147  4167  4173  4218  4223  4239  4243  4247  4259  4261  4334
                              4343  4351  4373  4378  4379  4398  4400  4403  4413  4426  4443  4451  4453  4456  4459
                              4461  4475  4482  4483  4486  4488  4491  4499  4507  4519  4532  4577  4578  4611  4620
                              4640  4643  4664
L10      00001 00A000 04893
L11      00001 00B000 04894   3288
L12      00001 00C000 04895   3278
L13      00001 00D000 04896   3248  3268  3273
L14      00001 00E000 04897
L15      00001 00F000 04898   3258  3263  3313
L2       00001 002000 04885   3293  3298  3303  3318  3323  3333  3338  3367  3496
L3       00001 003000 04886
L4       00001 004000 04887   3360  3388  3404  3415  3420  3425  3436  3457
L40      00001 000028 00403
L44      00001 00002C 00362   0342
L5       00001 005000 04888   3372
L6       00001 006000 04889   3283
L7       00001 007000 04890   3253  3447
L8       00001 008000 04891   3379  3469
L9       00001 009000 04892   3348  3399  3474
MANTISSA 00002 003CE8 04701   2198  2265  2299  2304
MAPSP    00001 000002 00133
MARGA    00001 000002 04767   2037  2041  2158  2556  2576  2629  2643  2657  2810  3187  3635  3669
MARGINB  00004 003C04 04676   3667  3900  3904  4139
MASK1    00006 000198 00455   0443
MASTIND  00012 00485F 05566
MAYBNOTE 00001 000002 04812   2803  2812  3962  3964
MEMORY   00006 004396 05282
MESA     00002 00015E 00450   0446
MESSAX   00002 000948 01017   1014
MESSB    00008 000953 01019   1012  1028  1030  1032  1034  1036
MES1     00006 000169 00452   0443  0444
MINBUF   00004 000E3C 01294   1160  1277  1285
MINDEV   00004 000B1C 01103   1092  1094  1259  1261
MINSP    00004 000C04 01172   1151  1155  1304
MINUS    00001 000004 01771   3821
MISCSW   00001 003FF1 04775   2003  2017  2019  2023  2034  2051  2076  2078  2092  2094  2101  2119  2134  2169  2260
                              2403  2426  2438  2545  2570  2589  2595  2608  2618  2622  2640  2818  2906  2908  2917
                              2922  3529  3631  3632  3641  3645  3648  3649  3659  3675  3686  3765  3778  3829  3924
                              3929  3947  3954
MISCSW2  00001 003FF2 04785   2140  2146  2167  2215  2221  2534  2536  2582  2586  2588  2594  2596  2600  2601  2621
                              2623  2625  2627  2631  2634  2638  2639  2727  2758  2766  2808  2897  2910  2924  3786
                              3957  4004  4085  4101  4102  4116  4142
MISCSW3  00001 003FF3 04795   2554  2564  2574  2578  2746  2748  2801  2806  2860  2936  2966  2971  2981  2982  2995
                              3005  3023  3044  3047  3081  3660  3737  3852  3934  3939  3941  3948  4205  4207  4210
                              4212  4214  4216  4217  4220  4256  4658  4662
MISCSW4  00001 003FF4 04805   2258  2690  2692  2749  2799  2803  2812  2841  2849  2951  2955  2969  2986  2998  3027
                              3059  3066  3075  3082  3099  3104  3106  3134  3142  3670  3949  3962  3964  3966
MISCSW5  00001 003FF5 04815   3185  4161  4250  4355  4564  4566  4568  4570
PH01                                         CROSS-REFERENCE                                                   PAGE   19


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MIXED    00001 000004 01754   1968  2106  2114  2204  2214  2220  2277  2557  2577
MODE     00004 004162 05086
MODULES  00007 0044AF 05361
MOVDNM1  00006 00254C 02615   2610
MOVDNM2  00006 002552 02616   2612
MOVE     00004 002F10 03671   3668
MOVEA    00004 002F46 03684   3676
MOVEBLNK 00006 001172 01499   1490  1494
MOVELIT  00006 001E8A 02082   2061
MOVEQUE  00006 00092C 01011   1005
MOVET    00006 00109C 01435   1433
MOVEWD2  00006 00227C 02391   2387
MQFILE   00001 000001 00093
MQVAR    00001 000004 00091
MSGDEF   00003 004A4A 05665   3550
MSGGCN   00002 004A4F 05667   3537  3544
MSGNO    00001 002C41 03181   3165  3178
MSGNUM   00002 004A4D 05666   3545
MSGS     00999 0012AA 01556   1000  1461
MSGSP    00001 004A51 05668   3546
MSG1010  00004 002E4C 03592   3651
MSG1015  00004 001EA2 02089   2063
MSG1017  00004 002E54 03597   2194  2204  2212  2277  2288
MSG1072  00004 00219C 02318   2282
MSG1072A 00004 0021AE 02324   2319
MSG1073  00004 0021B6 02327   2284
MSG1073A 00004 0021C8 02333   2328
MSG1074  00004 0021D0 02336   2285
MSG1074A 00004 0021E2 02342   2337
MSG1077  00004 002E66 03607   3902  3906
MSG1078  00004 002E5E 03602   3868  3899
MSG1082  00002 002066 02223   2220
MSG1082A 00004 00207C 02229   2227
MSG1084  00004 003062 03760   3694
MSG1087  00004 001DFE 02043
MSG1160  00004 002E6E 03612   3880
MSG72SW  00001 000008 04760   2318  2320
MSG73SW  00001 000004 04761   2327  2329
MSG74SW  00001 000002 04762   2336  2338
MSLNGTH  00002 00092A 01010   0997
MSUSED   00002 000928 01009   0994  1001  1002  1455
MSYSD1   00008 000986 01022   1012
MSYSD2   00008 00098E 01023   1028
MSYSD3   00008 000996 01024   1030
MSYSD4   00008 00099E 01025   1032
MSYSIN   00008 0009AE 01027   1034
MSYSOU   00008 0009A6 01026   1036
MULTIPLE 00008 00458E 05419
MVBASIS  00006 001CFE 01946   1912
MVBASIS1 00006 001D04 01947   1917
MVCOBWD  00006 003BB0 04648   4661
MVETEXT  00006 002E46 03589   3578
MVTBIT   00001 000010 00404   1649
MVTCONST 00004 0011B4 01527
MVTDAMAN 00004 001B68 01723   1654
PH01                                         CROSS-REFERENCE                                                   PAGE   20


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MVTROUND 00002 001692 01558   1311  1316
MVTSW    00001 001691 01557   1308  1721
MVTYES   00001 0000FF 01545   1308  1652
MYSAVAD  00004 0004DC 00725   0729
MYSAVE   00004 0008A0 00983   0341  0725
NBLKPTR  00004 003C0C 04678   2558  2563  2754  2777  2813  2871  3665  3930  3944
NBLKSCAN 00004 003B4C 04614   4461
NBLKSCN  00006 003B62 04618   4400  4453  4488
NE       00001 000007 01760   2054  2058
NEWDDS   00004 00052C 00749   0746
NEXT     00004 001CD0 01932   2029  2108  2141  2592  2605  2645  2649  2653  2655  3155
NLITEND  00002 003170 03834   3792
NLITEND1 00002 00318A 03842   3837
NMINUS   00001 00000B 01774
NO       00002 004058 04949
NOCPYMEM 00001 000020 04818   4250  4568  4570
NODEC    00002 000A62 01057   1050
NODS1    00006 000932 01012   0978
NODS1A   00004 000938 01013   1029  1031  1033  1035  1038
NODS2    00006 0009B6 01028   0981
NODS3    00006 0009C0 01030   0980
NODS4    00006 0009CA 01032   0979
NOFITSW  00001 000004 00101
NOGOF    00002 000A0A 01046   1043
NOLDHSCN 00004 003B2A 04605   4459
NOLEAP   00004 000710 00875   0865  0869  0872
NOLIB    00001 000AAC 01063   1061  1192  1473
NOMINAL  00007 0044B7 05363
NOMOVE   00004 002F6C 03693   3690
NONBLANK 00004 002EFA 03665   3647  3656  3923
NONBLNK  00004 002F00 03667   3885
NONLIT   00004 0030BA 03789   3704
NOPED    00004 00087C 00973   0968
NOPR     00001 000A60 01055   1037  1406  1441  1466
NORMBUF  00004 000E38 01293   1144  1154  1157
NORUN    00001 000A61 01056   1013  1122  1231  1464
NOSPACE  00001 000010 04770   3635  3683  3727  3785  3922
NOSW     00001 000226 00494   0485  0488  0490
NOSYSGF  00004 0009EC 01039   0973
NOSYSIN  00006 0009D4 01034   0977
NOSYSLB  00004 000A9A 01059   0975
NOSYSPH  00004 000A42 01048   0974
NOSYSPR  00006 0009DE 01036   0976
NOTBASIS 00004 001CBC 01923   1897
NOTE     00004 004171 05092   3959  3959
NOTEST   00002 000204 00484   0618  0644  0651  0657  0663  0670  0676  0683  0689  0695  0701  0711  0717
NOTESTB  00002 000224 00493   0491
NOTFIRST 00001 000001 04766   3977  3979
NOTSTA   00004 000216 00489   0487
NOWARN   00004 00035C 00623   0501
NOWARNA  00004 00036C 00627   0624
NOWSTRNG 00004 003C58 04690   1954  2587
NO6A     00001 000002 00137
NPLUS    00001 00000D 01773
NUMSCAN  00006 003B40 04609   4398  4451  4486
PH01                                         CROSS-REFERENCE                                                   PAGE   21


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

NXTSTRNG 00004 003C54 04689   1928  2139  2143  2590  2597  2641
NZERO    00001 000007 01769   2282  3661  3853  4124  4227  4254  4277  4305  4376
OBJECTCM 00015 00498D 05620   3263
OCCURS   00006 0043A4 05286
ODOCTR   00002 00016C 00072
OF       00002 00405B 04951   2377
OFF      00003 0040DE 05026
OFFLEV1  00004 0024F4 02588   2584
OMITTED  00007 0044C7 05367
ON       00002 00405E 04953
ONCTR    00002 000210 00193
ONE21    00002 000136 00440   0416  1233  1236  1246
OPEN     00002 000822 00944   0939
OPENB    00002 00084E 00959   0950
OPENK1   00004 000874 00971   0964  1016  1040  1044  1049  1051  1062
OPENK2   00004 000856 00962   0971
OPENOK   00001 000030 00958   0963
OPTIONAL 00008 0045A9 05425   3379
OUT      00001 000210 00384   0774  0904  0909  0913  0935  0946  1236
OVFL     00001 000001 01772
PARMAX   00002 00022A 00204
PARMLIM  00001 000014 00536   0540
PARMS    00004 000228 00496   0536  0541
PARPACK  00006 0001E6 00477   0468
PARREP   00001 001C2C 01880   1845
PARWK    00008 0001F0 00478   0466  0466  0470  0477  0615  0814  1506  1507  1509  1510
PBEG03   00001 001B70 01824   1518
PBLANK   00001 0049F7 05658
PCARD    00016 0049FA 05660   4543
PCH      00001 0002C0 00386   0777  0906  0911  0915  0937  0948
PCON3    00001 000660 00820   0817
PDT      00001 000010 00131
PDTCHR   00001 0001F1 00178
PDTQ     00001 000010 00590
PERIOD   00001 00004B 04874   2542  2789  2947  3071  3108  3130  3191  3677  3754  3809  3823  3825  3838  3914  3951
PFMCTR   00002 000212 00194
PHZSW    00001 0001A3 00118   1481  3990  4064  4533
PHZSW1   00001 0001A4 00127   1482  3980
PHZSW2   00001 0001A5 00135
PHZSW3   00001 0001C6 00151   1483
PHZSW4   00001 0001C7 00153
PH01OUT  00002 0011B0 01519   1513
PH1BYTE  00001 0001D3 00159   1918
PH1CARD  00077 004ACE 05676   4558  4572  5677
PH1ID    00077 004B18 05677   4560  4563  4567  4571
PH1ISEQ  00003 004B1B 05678   4559
PH1WRITE 00004 0039C4 04555   4534  4536
PH1WRTA  00006 0039DC 04560
PH1WRTAA 00004 0039F0 04564   4562
PH1WRTAB 00004 003A02 04568   4565
PH1WRTAC 00004 003A14 04572   4569
PH1WRTB  00004 003A20 04576   4556
PH7LOD   00004 0001BC 00145
PIC      00003 0040E2 05028   2815  2815  3797
PICT     00007 0044D7 05371
PH01                                         CROSS-REFERENCE                                                   PAGE   22


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

PINTSEQ  00007 0049F0 05657   4539  4540  4545
PLUS     00001 000002 01770
PMAP     00004 0003EC 00662   0515
PMAPA    00004 0003FC 00666   0662
PMAPQ    00001 000040 00582   0664  0666  0680  1476
PNCTR    00002 00015C 00064
PNM      00004 001F64 02146   2165  2804
PNM0     00004 001F6C 02148   2062  2160  2252
PNOTESW  00001 000008 04810   2799  3670  3964
POINTSW  00001 000040 04757   2193  2195  2203  2213  2219  2274
POSITION 00008 0045B2 05427
PREPROC  00004 001B72 01828   1858  1859  1860
PRIME    00004 00012C 01865   1871
PRINT    00002 001066 01417   1408  1410  1443
PRNTSPCE 00004 000D68 01238   1234
PROCED   00009 00466F 05470   3348
PROCESNG 00010 004722 05507
PROCNM   00004 001FA2 02160   1995
PROCNM0  00004 001F96 02157   2159  2161
PROCSW   00001 000004 04791   2140  2146  2167  2215  2221  2638  2808  3957  4085
PROGID   00008 000150 00060
PSTARS   00002 0049F8 05659   4541
PSVCTR   00002 000214 00195
PTYNO    00001 0001C3 00148
PUT      00004 0010B2 01441   1454  1462
PUTA     00004 0010C2 01445   1442
PUTB     00002 0010C6 01446   1444
QUALCHK  00004 002246 02375   2246  2408  2431
QUE      00004 0008E8 00993   0447  1015  1045  1054  1133  1164  1230  1284
QUEA     00004 000900 01000
QUEB     00004 000918 01006   0998
QUESAVE  00004 000920 01008   0993  1006
QUOT     00004 0004A4 00708   0531
QUOTE    00001 00007F 04847   3982  4423
RANDOM   00006 0043B9 05292
RD       00002 00406A 04961   3333
RDERRFIL 00001 000001 00104
RDSAVEL1 00004 003C18 04681   4115  4146
RDSW     00001 000008 04790   2601  2625
RECORD   00006 0043C0 05294
RECORDNG 00009 004679 05472
RECORDS  00007 0044EF 05377
REDEF    00001 000020 04781   2589  2595  2608  2618  2622  2640  2906
REDEFINE 00009 004683 05474   2918  3399
REEL     00004 00418A 05102
RELADD   00004 000138 00053   1868
RELLOC   00004 00021C 00198
REMARKS  00007 0044FF 05381   3253
RENAMES  00007 004507 05383
REPBUF2  00001 000001 04803   2966  4205  4212
REPBUF3  00001 000002 04802   2981  4210  4216
REPBUF4  00001 000004 04801   2995  4214  4217
REPHIT   00001 000001 04753   2784  2786  2840  2937  2943  3068
REPINDX  00001 004033 04843   2957  2962  3013  3079  4208  4208
REPLACE  00009 004697 05478   3474
PH01                                         CROSS-REFERENCE                                                   PAGE   23


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

REPQUOT  00001 000010 04799   2936  2971  2982  3005  3081  4207
REPTAB   00004 0000F4 01878   1881
REPWD2A  00004 001FF2 02190   2197
REPWD2B  00004 002014 02198   2192
REPWD2C  00004 002034 02209   2202
REPWD2D  00004 002056 02219   2210
REPWD2E  00004 002090 02240   2217  2222
REPWD2E1 00004 0020CC 02255   2261  2486
REPWD2E2 00004 0020DE 02260   2247  2418
REPWD2F  00006 0020E6 02265   2200
REPWD2F1 00004 0020FE 02271   2334
REPWD2F2 00004 002106 02273   2325  2343
REPWD2G  00004 00211E 02279   2275
REPWD2H  00002 002138 02287   2280
REPWD2J  00006 00215A 02299   2290
REPWD2K  00002 002184 02311   2313  2315
REPWD2SW 00001 003FEF 04755   2046  2182  2189  2193  2195  2203  2213  2219  2240  2267  2272  2274  2276  2283  2318
                              2320  2327  2329  2336  2338  2398  2696  3184
REPWRD1  00001 001FAE 02164   1996
REPWRD2  00001 001FCA 02173   1997
REPWRK   00065 003EE6 04722   2243  2255  2257  2400  2694  2695  2738  2744  3028
REPWRK2  00065 003F28 04724   2965
REPWRK3  00065 003F6A 04726   2980
REPWRK4  00065 003FAC 04728   2739  2994
RERUN    00005 004292 05199
RERUNN   00001 000010 00099
RESCODE  00001 004034 04844   3636  3751  4651
RESERVE  00007 004517 05387
RESULTS  00004 000E48 01297   1302  1307  1310  1314  1315  1320  1323  1337  1367
RESWDTST 00001 003B6E 04626   3717
RESWORD  00001 000008 04769   2111  2148  2556  2576  3635  3752  4663
RGNCTR   00002 0001C0 00146
RIGHT    00005 00429E 05203
RP       00001 000008 04779   2545  2570  3641  3645  3648  3659  3675  3765  3829  3924  3929  3947
RPAREN   00001 00005D 04870   2454  2481  2484  2791  2949  3673  3763  3803  3920  3937
RPDNUM   00002 000204 00187
RPILOC   00002 000222 00200
RPOUT    00001 000040 04797   3934  3939  3941
RPTSAV   00002 0001B4 00142
RWCOMP   00006 001DD8 02031   2015
R0       00001 000000 00315   1299  1300  1301  1302  1303  1304  1305  1306  1307  1328  1331  1332  1335  1336  1337
                              1572  1619  1625  1697
R1       00001 000001 00316   0342  0419  0846  0847  0854  0855  0861  0862  0863  0875  0876  0877  0885  0886  0889
                              0889  0917  0918  0918  0919  0920  0928  1065  1069  1070  1073  1329  1330  1331  1419
                              1421  1423  1424  1430  1430  1431  1432  1433  1434  1469  1470  1474  1475  1507  1510
                              1514  1517  1519  1647  1647  1648  1651  1652  1653  1654
R10      00001 00000A 00325   0993  0994  0995  0996  0996  0997  1002  1003  1004  1004  1005  1006  1084  1095  1574
                              1576  1580  1592  1594  1594  1621  1632  1637  1637  1657  1659  1663  1664  1664  1681
                              1682  1682  1690  1691  1691  1695  1696  1696
R11      00001 00000B 00326   0376  0460  0548  0553  0730  0731  0732  0736  0747  0760  0763  0769  0772  0775  0778
                              0785  0789  0993  1000  1001  1006  1011  1428  1440  1443  1445  1505  1506  1508  1509
                              1570
R12      00001 00000C 00327   0377  0761  0767  0770  0773  0776  0779  0786  0790  0793  0794  0879  0884
R13      00001 00000D 00328   0341  0729
R14      00001 00000E 00329   0445  0447  0448  0493  0618  0644  0651  0657  0663  0670  0676  0683  0689  0695  0701
PH01                                         CROSS-REFERENCE                                                   PAGE   24


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              0711  0717  1007  1015  1044  1051  1133  1164  1199  1200  1201  1202  1205  1206  1211
                              1219  1219  1220  1230  1247  1248  1255  1255  1256  1284  1355  1369  1373  1376  1377
                              1380  1381  1384  1385  1388  1389  1391  1392  1515  1516
R15      00001 00000F 00330   0374  0374  0375  0445  0446  0448  0476  0492  0549  0550  0614  0617  0629  0639  0643
                              0650  0656  0662  0669  0675  0682  0688  0694  0700  0710  0716  0738  0739  0739  0740
                              0741  0756  0759  0762  0764  0764  0768  0771  0774  0777  0780  0781  0782  0787  0788
                              0791  0792  0795  0796  0811  0965  0966  0967  0968  0968  0969  0969  0970  0995  1003
                              1011  1014  1043  1050  1124  1125  1130  1140  1141  1143  1144  1145  1146  1147  1148
                              1149  1150  1151  1153  1154  1155  1162  1200  1203  1204  1206  1208  1218  1221  1222
                              1224  1225  1226  1228  1229  1232  1233  1235  1236  1257  1258  1259  1262  1263  1265
                              1266  1267  1268  1269  1272  1273  1274  1274  1275  1277  1279  1281  1285  1286  1351
                              1352  1354  1436  1437  1437  1438  1448  1448  1449  1450  1452  1572  1619  1697
R2       00001 000002 00317   0426  0426  0430  0431  0431  0461  0462  0465  0467  0468  0469  0470  0473  0479  0479
                              0630  0640  0809  0846  0848  0849  0853  0858  0859  0860  1244  1350  1352  1353  1353
                              1366  1411  1412  1413  1413  1414  1418  1420  1420  1426  1427  1429  1431  1435  1449
                              1452  1453  1453  1458  1459  1460  1461  1648
R3       00001 000003 00318   0427  0428  0428  0433  1245  1350  1354  1367  1371  1374  1378  1387  1417  1417  1418
                              1582  1583  1585  1586  1587  1588  1590  1590  1622  1622  1630  1631
R4       00001 000004 00319   0372  0416  0418  0425  0430  0436  0459  0464  0464  0474  0480  0547  0552  0742  0745
                              0745  0755  0758  0765  0766  0803  0804  0804  0873  0874  1246  1351  1361  1362  1363
                              1364  1365  1375  1379  1379  1382  1382  1386  1386  1390  1390  1446  1447  1450  1455
                              1456  1456
R5       00001 000005 00320   0339  0340
R6       00001 000006 00321   0420  0422  0424  0433  0441  0442  0456  0458  0458  0461  0465  0469  0471  0475  0475
                              0477  0484  0486  0489  0489  0542  0546  0546  0551  0551  0602  0604  0608  0623  0737
                              0738  0742  0743  0743  0749  0750  0750  0751  0753  0753  0754  0754  0755  0756  0797
                              0798  0798  0799  0799  0800  0802  0802  0803  0808  0810  0810  0812  0813  0813  0814
                              0815  0816  0816  0818  0850  0856  0857  0878  0880  0882  0883  0883  0887  0888  0891
                              0892  0893  0893  0894  1577  1582  1583  1585  1586  1587  1592  1600  1602  1604  1604
                              1627
R7       00001 000007 00322   0435  0449  0541  0542  0544  0544  0549  0806  0807  0807  0808  0854  0861  1091  1092
                              1094  1310  1311  1312  1313  1314  1315  1316  1317  1318  1319  1320  1581  1581  1595
                              1595  1597  1598  1626  1626  1630  1638  1638  1688  1689  1690
R8       00001 000008 00323   0540  0545  0757  0762  0768  0771  0774  0777  0780  0781  0787  0791  0795  0897  0898
                              0898  0899  0899  0900  0900  0901  0901  0902  0902  0903  0903  0904  0904  0905  0905
                              0906  0906  0907  0907  0909  0911  0912  0913  0914  0915  0916  0920  0925  0925  0926
                              0927  0927  0928  0934  0935  0937  0938  0945  0946  0947  0948  0949  0960  0962  0962
                              0963  1064  1065  1066  1068  1070  1071  1073  1249  1250  1395  1396  1397  1398  1398
                              1399  1399  1400  1401  1402  1403  1468  1472  1473  1578  1598  1601  1601  1612  1624
                              1625  1639  1656  1665  1684  1694
R9       00001 000009 00324   0961  0965  0971  1086  1087  1087  1368  1370  1579  1599  1600  1605  1605  1629  1631
                              1632  1633  1635  1659  1660  1661  1662  1663  1666  1667  1668  1669  1670  1676  1677
                              1678  1683  1686  1689  1693  1693
SAME     00004 00418F 05104
SAVECLS  00015 003E36 04714   2815  3797  3799  3959  3961  4648  4657
SAVER13  00004 0000AC 00366   0728
SAVE15   00004 000C50 01181   1228
SAVSIZ   00002 003D00 04707   2940  2945  3043  3063  3073
SA2CTR   00002 000232 00208
SA3CTR   00002 000234 00209
SBLCTR   00002 00017A 00079
SBLIMX   00002 000176 00077
SBLOMX   00002 000172 00075
SCAN     00004 002ECE 03652   3650  3657  3663  3913  3917  3919
SCANA    00004 0002CA 00540   0547  0554  0747
PH01                                         CROSS-REFERENCE                                                   PAGE   25


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SCANAA   00004 002EBE 03648   3644
SCANB    00006 0002D2 00542   0545
SCANC    00004 0002EE 00549   0543
SCAND    00004 0002E4 00546   0616  0632  0642
SCANE    00004 0002F4 00551   0607  0609  0611  0613  0620  0622  0626  0628  0646  0648  0653  0655  0659  0661  0665
                              0668  0672  0674  0678  0681  0685  0687  0691  0693  0697  0699  0703  0705  0707  0709
                              0713  0715  0719  0721
SCAN1    00004 002EE6 03659   3654  3911
SD       00002 004073 04967   3298
SDSIZ    00004 0001CC 00155
SECTION  00007 00452F 05393   3447
SECURITY 00008 0045CD 05433
SEGCNTR  00002 00015A 00062
SEGLMT   00001 0001D0 00156
SEGSAVE  00004 00009C 00357
SELECT   00006 0043EA 05306   3283
SEMICOL  00001 00005E 04877   3681  3691  3793  3918
SEQ      00001 000008 00123   3990
SEQA     00004 000354 00621   0617
SEQERR   00002 000180 00082   3997  3999
SEQIND   00002 004028 04840   3989  3996  4003  4271  4541
SEQNTIAL 00010 004738 05511
SEQQ     00001 000008 00585   0619  0621
SEQSAVE  00006 003DF2 04711   1898  1898  3994  4000  4164  4171  4345
SEQ1     00004 000344 00617   0499
SHIFTLIT 00006 00220A 02356   2314  2350
SIGN     00004 004199 05108
SIGNSCAN 00004 002210 02359   2188  2271
SIGNSCN1 00004 002224 02364   2360  2362
SIGNSW   00001 000080 04756   2189  2203  2213  2219  2276
SIGNSW2  00001 000010 04759   2272  2276  2283
SIXK     00004 000C0C 01175   1319
SIXTY    00002 000390 00637   0615  0817  0818  1511
SIZE     00001 003C6D 04698   1910  2060  2064  2066  2095  2375  2458  2615  2616  2648  2684  2787  2830  2838  2903
                              3061  3067  3070  3140  3189  3638  3709  3712  3714  3716  3719  3723  3736  3768  3775
                              3938  3950
SIZEONE  00006 00303A 03749   3713
SIZEONEA 00004 003050 03754   3750
SIZEWORD 00002 003C6C 04695   1915  2011  2055  2117  2183  2229  2231  2295  2297  2306  2309  2351  2353  2385  2444
                              2488  2607  2650  2666  2685  2725  2865  3043  3123  3573
SIZE1    00004 000374 00629   0503
SIZE4    00004 00419E 05110
SKIP     00002 003488 04069   4068
SKIP1    00005 0042A4 05205   4054
SKIP2    00005 0042AA 05207   4057
SKIP3    00005 0042B0 05209   4060
SKPEJECT 00004 00340C 04037   2547  3984
SKPEJT1  00004 003474 04062   4052  4055  4058
SKPEJT2  00002 00343E 04050   4047
SNOTESW  00001 000004 04811   2799  3949  3966
SORTRTN  00001 000020 00098
SOURCE   00004 0003A4 00643   0507
SOURCEA  00004 0003B4 00647   0643
SOURCECM 00015 0049AD 05624   3258
SOURCEQ  00001 000080 00581   0645  0647
PH01                                         CROSS-REFERENCE                                                   PAGE   26


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SPACE    00004 000306 00602   0513
SPACEA   00004 00032E 00612   0603
SPACEB   00004 00031E 00608   0605
SPACING  00001 0001F0 00177   1499
SPECIALN 00013 0048F4 05592   3268
SPILL    00001 000010 00089
SPILL1   00001 000160 00382   0781  0902
SPRINT   00001 000038 01550   1250
STANDARD 00008 0045DF 05437
STARS    00002 00401E 04838   3996
START    00004 000000 00338
STARTPP  00004 001C34 01887   1849  1895
START0   00006 001C56 01898
START1   00004 001C62 01900
START2   00004 001C7A 01906   1909
STAT     00001 000080 00136
STATIC   00004 000134 01867   1873
STATUS   00006 0043FF 05312
SUBCTR   00002 000228 00203
SUPMAP   00004 00043C 00682   0519
SUPMAPA  00004 00044C 00686   0682
SUPMAPQ  00001 000002 00593   0684  0686
SUPPRESS 00008 0045F1 05441   3469
SVW1W2W3 00004 003C30 04685   3634  3733
SWITCH   00002 000182 00083
SWTRCE   00001 000080 00086
SYM      00001 000020 00130
SYNC     00004 0041AD 05116
SYNCHRON 00012 004886 05572
SYSIPT   00006 004406 05314
SYSPUNCH 00008 0045FA 05443
SZBFIG   00002 000C18 01178   1130  1131  1132  1158  1161  1162  1163  1281  1282  1283
SZBUF    00004 000D18 01217   1269  1270  1275  1303  1335
SZFIVE   00004 000D14 01216   1221  1257  1258  1261  1262  1267  1361  1364  1365
SZSIX    00004 000CFC 01210   1208  1211  1222  1225  1263  1265  1268
S1       00001 000004 01749   2540  2541  2542  2549  2551  2551  2552  2558  2559  2563  2572  2872  2872  3643  3652
                              3652  3653  3655  3665  3667  3672  3693  3693  3695  3695  3698  3702  3708  3708  3834
                              3841  3845  3847  3849  3849  3851  3855  3859  3859  3860  3862  3866  3870  3879  3881
                              3881  3882  3884  3888  3890  3892  3892  3897  3900  3904  3910  3912  3914  3916  3918
                              3920  3930  3931  3931  3944  3945  3945  3992  3994  4000  4006  4008  4010  4010  4037
                              4039  4040  4087  4088  4089  4131  4133  4134  4144  4272  4315  4316  4352  4354
TABLE    00003 000670 00822   0874  0878
TABLES   00004 0049F0 05654
TABREL   00004 000138 01868   1874
TABSERT  00004 002672 02707   2687  2723
TALLY    00005 0042C8 05217   2422  2422
TAMEIN   00004 00013C 01869   1875
TAMERUSE 00004 000EE4 01341   1330  1332  1336  1400  1401
TAMNAD   00004 00013C 00054   1869
TAPE     00004 0041B2 05118
TCOPYCLS 00002 002416 02520   3359  3387  3403  3424  3435  3456
TDECPNT  00002 002402 02510   3371
TEMPBLNK 00001 00122E 01542   1489  1493  1498  1499
TEMPLIST 00001 001B24 01719   1576  1577
TERMINAT 00004 000138 00441   0435
PH01                                         CROSS-REFERENCE                                                   PAGE   27


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TERMWK   00008 000190 00454   0442  0444  0445  0448
TEST     00004 001D0A 01948   1942  1943
TESTTAB  00001 001D66 01988   1941  1948
TEXNAME  00006 001E16 02053   1993
TEXNAME0 00004 001E3E 02062   2054  2058
TEXNAME1 00004 001E52 02067   2065
TEXNAME2 00004 001E62 02071   2075  2084  2087
TEXNAME3 00004 001E72 02075   2073
TEXNAME4 00004 001E90 02083   2069
TEXNAME5 00006 001E98 02086   2070
TFDPTR   00002 002404 02511   3292
THREE    00002 0002C8 00537   0552
THROUGH  00007 004537 05395
THRU     00004 0041C1 05124
TIBMOVE  00006 002692 02718   2715
TIB0     00004 00000C 00014
TIB1     00004 000014 00015
TIB10    00004 00005C 00024
TIB11    00004 000064 00025
TIB12    00004 00006C 00026
TIB13    00004 000074 00027
TIB14    00004 00007C 00028
TIB15    00004 000084 00029
TIB16    00004 00008C 00030
TIB17    00004 000094 00031
TIB18    00004 00009C 00032
TIB19    00004 0000A4 00033
TIB2     00004 00001C 00016
TIB20    00004 0000AC 00034
TIB21    00004 0000B4 00035
TIB22    00004 0000BC 00036
TIB23    00004 0000C4 00037
TIB24    00004 0000CC 00038
TIB25    00004 0000D4 00039
TIB26    00004 0000DC 00040
TIB27    00004 0000E4 00041
TIB28    00004 0000EC 00042
TIB29    00004 0000F4 00043   1878
TIB3     00004 000024 00017
TIB30    00004 0000FC 00044
TIB31    00004 000104 00045
TIB32    00004 00010C 00046
TIB33    00004 000114 00047
TIB34    00004 00011C 00048
TIB35    00004 000124 00049
TIB4     00004 00002C 00018
TIB5     00004 000034 00019
TIB6     00004 00003C 00020
TIB7     00004 000044 00021
TIB8     00004 00004C 00022
TIB9     00004 000054 00023
TIMES    00005 0042CE 05219
TLEVEL   00002 00240E 02516   3302  3307  3317  3322  3327  3337  3342
TLIB     00002 002418 02521   3463
TMARGINA 00004 001D78 02003   1989
PH01                                         CROSS-REFERENCE                                                   PAGE   28


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TNMARGA  00004 001DE2 02034   1990
TNOACT   00002 002400 02509   3354  3366  3378  3410  3414  3419  3442  3451  3495
TNOWPTR  00002 0023FC 02507   3282
TO       00002 004076 04969
TPROC    00002 002412 02518   3347
TRACKS   00006 004422 05322
TRDPTR   00002 00240A 02514   3332
TREDEF   00002 00240C 02515   3398
TREMARKS 00002 0023FA 02506   3252
TREP     00002 00241C 02523   3473
TRKAREA  00010 004743 05513
TRTBLK   00001 003A6A 04591   4610  4619
TRTHYP   00001 003A8A 04593   4605  4614
TRTLT1   00001 003AEB 04595   4606  4606  4615  4615  4616  4617
TRTLT2   00001 003AFB 04597   4607  4607  4616
TRTLT3   00001 003B0C 04599   4608  4608  4617
TRTNUM   00001 003B1A 04601   4609  4609  4618  4618
TRTTAB   00001 003A2A 04589   1894  1901  4040  4046  4089  4383  4394  4399  4429  4452  4460  4487
TRUNC    00001 000001 00134
TRUNCA   00004 00047C 00698   0694
TRUNCATE 00001 000080 04773   3635  3742  3744
TRUNCIT  00006 00301A 03740   3697
TRUNCQ   00001 000001 00595   0696  0698
TRUNC1   00004 00046C 00694   0525
TSAVDNM  00002 002410 02517   3383  3394  3431
TSDPTR   00002 002406 02512   3297
TSECT    00002 002414 02519   3446
TSETCPY  00002 00241E 02524   3478  3485
TSMAX    00002 000168 00070
TSTMARGA 00001 000002 04777   2003  2017  2023  3631
TSTMARGB 00001 000004 04778   2019  2023  2034  3631
TSTNAME  00001 000080 04783   2051  2076  2078  2092  2094  3529
TSUBDC   00002 0023F8 02505   3247
TSUPP    00002 00241A 02522   3468
TSVPTR   00002 0023FE 02508   3257  3262  3267  3272  3277  3287
TS2MAX   00002 00016A 00071
TS3MAX   00002 0001DE 00171
TS4MAX   00002 0001E0 00172
TWO      00002 003FF8 04826   2059  2289  2294  2483  3586  3870  4629
TWORD1   00002 002420 02525   3490
TWORD2   00002 002422 02526   3501
TWSPTR   00002 002408 02513   3312
TYPE     00006 001086 01429   1445
TYPEA    00002 0011DC 01537   1429  1434  1436  1438
TYPEB    00072 0011E0 01539   1435
TZERO    00001 000008 01768   2212  2450  4229
UNDEF    00001 0000C0 00365   1071
UNIT     00004 0041CB 05128
UPDATE   00004 001DC0 02023   2013  2016  2093  2166  2170  2253  2402  2404  2437  2439  2450  2455  2467
UPDATEA  00004 001DCC 02026   2106
UPDATEB  00004 001DD0 02028   2025
UPDATE1  00004 001ED2 02105   2100  2116
UPSIBT   00001 000001 00160
USAGE    00005 0042E6 05227
USEMIN   00006 000BD6 01160   1156  1159
PH01                                         CROSS-REFERENCE                                                   PAGE   29


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

VALUE    00005 0042F2 05231   3799
VALUES   00006 004429 05324
VERBA    00004 0004D4 00720   0716
VERBR    00001 000001 00152
VERBRQ   00001 000001 00594   0718  0720  1480
VERB1    00004 0004C4 00716   0535
VIRCTR   00002 000162 00067
VLCCTR   00002 00017C 00080
VLCIMX   00002 000178 00078
VLCOMX   00002 000174 00076
VNCTR    00002 00020E 00192
VNILOC   00002 000224 00201
VNLOC    00002 000226 00202
WCMAX    00002 000166 00069
WD2MRGB  00001 000001 04763   2046  2240  2398  2696
WHEN     00004 0041D5 05132
WITH     00004 0041DA 05134   3415
WORD     00122 003C6E 04699   1914  1946  1947  2031  2053  2056  2067  2071  2082  2082  2083  2086  2115  2118  2120
                              2124  2150  2152  2154  2174  2184  2187  2242  2377  2379  2399  2417  2422  2445  2447
                              2454  2460  2462  2481  2489  2651  2675  2676  2789  2791  2864  2891  2893  2895  3071
                              3074  3085  3088  3091  3108  3111  3125  3191  3572  3574  3671  3700  3703  3710  3740
                              3749  3754  3763  3773  3774  3814  3816  3819  3821  3823  3832  3857  3877  3937  3951
WORDS    00005 0042F8 05233
WORD2ID  00004 002282 02398   2205  2266  2278
WORD2IDA 00006 0022DE 02422   2482
WORD2IDB 00004 002334 02444   2425  2427
WORD2IDC 00004 002394 02470   2423  2453
WORD2IDD 00004 0023C4 02483   2456
WORD2IDE 00004 002358 02454   2452
WORD2ID1 00004 00228E 02401   2415
WORD2ID2 00004 0022CA 02417   2409
WORD2ID3 00004 0022DA 02421   2475
WORD2ID4 00004 0022F8 02428   2442
WORD2ID5 00004 002364 02458   2432
WORD2ID6 00004 0023AC 02477   2459  2461  2463
WORD2ID7 00004 00234C 02451   2446
WORD2SW  00001 000001 04813   2258  2690  2692
WORKSTOR 00015 0049BD 05626   3313
WRD2MOVE 00004 002264 02383   2249  2254  2411  2434  2464
WRD2MOV1 00004 00226C 02385   2244  2406  2429  2471
WRD2SCN  00004 0023D4 02488   2466
WRD2SCN1 00004 0023DC 02490   2451  2495
WRITE    00004 00397C 04532   2543  4016
WRITESUP 00001 000040 04772   1921  2568  4015  4258  4555  4576
WRITE1   00004 003990 04537
WRITE2   00006 0039A4 04541
WRITONLY 00010 00474E 05515
WRITVRFY 00012 004893 05574
WRKSTSW  00001 000010 04789   2596  2600  2627  2634
WRSAVEL1 00004 003C1C 04682   3526  3568  4532  4577
WSBL     00001 00019E 00115
WSDEF    00007 00019B 00113
WSSIZE   00003 00019F 00116
W1       00001 00000A 01745   1892  1899  1902  1903  2242  2255  2256  2391  2399  2685  2686  2686  2693  2693  2694
                              2710  2714  2715  2721  2744  2761  2761  2783  2783  2793  2793  2824  2965  2975  2975
PH01                                         CROSS-REFERENCE                                                   PAGE   30


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              2980  2987  2987  2989  2990  2990  2994  3085  3094  3101  3101  3634  3637  3637  3638
                              3666  3666  3671  3696  3699  3699  3700  3707  3707  3709  3733  3736  3748  3842  3869
                              3896  3975  4011  4087  4093  4631  4633  4635  4635  4636  4637  4638  4641  4650  4661
W2       00001 00000B 01746   1891  1894  1904  1923  1928  1932  1938  1946  1954  1956  1961  1964  1966  1966  1967
                              1969  1969  1970  1974  1975  1976  1977  2006  2008  2024  2028  2028  2105  2107  2107
                              2137  2139  2143  2565  2579  2597  2641  2740  2741  2741  2742  2742  2743  2743  2831
                              3165  3176  3178  3671  3672  3673  3677  3679  3681  3684  3687  3689  3691  3700  3702
                              3705  3780  3781  3783  3789  3791  3793  3795  3801  3803  3805  3807  3809  3825  3834
                              3835  3836  3838  3871  4044  4051  4054  4057  4060  4627  4627  4628  4629  4630  4631
                              4632  4633  4641  4641  4642  4647  4650  4651  4652  4655  4659
W3       00001 00000C 01747   1905  1905  1906  1906  1910  1911  1912  1915  1916  1917  2004  2010  2031  2243  2256
                              2257  2383  2384  2384  2388  2388  2391  2400  2413  2414  2414  2419  2420  2420  2440
                              2441  2441  2468  2469  2469  2472  2473  2474  2474  2478  2479  2480  2480  2483  2484
                              2485  2485  2684  2695  2718  2722  2745  2762  2779  2794  2939  2941  2952  2953  2972
                              2972  2973  2976  2977  2984  2988  2991  3000  3001  3002  3002  3003  3004  3077  3083
                              3084  3085  3089  3092  3092  3095  3096  3100  3101  3102  3634  3733  3975  3997  3998
                              3998  3999  4011  4024  4025  4025  4026  4039  4042  4048  4050  4050  4053  4053  4056
                              4056  4059  4059  4068  4088  4091  4134  4135  4136  4136  4137  4138  4138  4139  4140
                              4140  4141  4397  4401  4430  4431  4450  4454  4485  4489  4537  4538  4542  4543  4557
                              4558  4632  4634  4634  4642
XLST     00001 000025 00390   0909  0910  0911  0912  0913  0914  0915  0916  0935  0936  0937  0938
XREF     00001 000080 00128
XREFA    00004 000464 00692   0688
XREFQ    00001 000080 00587   0690  0692
XREF1    00004 000454 00688   0523
XSACTR   00002 000216 00196
XSWCTR   00002 000218 00197
ZABLDL01 00004 0004FC 00734   0731
ZALNKNPT 00004 0000A4 00359   1574  1580
ZBLDLRET 00002 000500 00735   1698
ZBLDL01  00001 001698 01571   0734  1570
ZBLIST   00002 0018D4 01708   1615
ZBSAVE   00004 001834 01700   1572  1619  1697
ZB00     00004 0016B6 01580   1608
ZB01     00006 0016BE 01583   1591
ZB01A    00004 0016DA 01588   1584
ZB02     00006 0016EA 01592   1589  1596
ZB02A    00004 001700 01597   1593
ZB02B    00002 00172C 01611   1603
ZB03     00002 00175A 01628   1639
ZB04     00002 00177A 01636   1634
ZB05     00002 0017AE 01658   1665
ZB06     00002 0017DE 01674
ZB07     00002 0017DE 01675   1650
ZB08     00002 0017EA 01679
ZB09     00002 001800 01685   1694
ZB10     00002 00181A 01692   1687
ZER      00004 0041DF 05136
ZERO     00004 000CA4 01185   1042  1053  1060  1188  1191  1194
ZEROES   00004 0000E4 00415   0375
ZFF      00002 0018D4 01709   1612  1624  1656  1684
ZHW4     00002 0018D2 01706   1695
ZLL      00002 0018D6 01710   1573
ZLONG    00004 0018C8 01703   1633  1635  1666  1670  1676  1688
ZMVTRND  00002 0018D0 01705   1660  1667
PH01                                         CROSS-REFERENCE                                                   PAGE   31


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ZNAME1   00008 0018D8 01711   1599
ZNAME2   00028 0018F4 01718   1579
ZNTRYLEN 00001 00001C 01725   1573  1605  1621  1637
ZPHSIZES 00004 001874 01701   1623  1629  1657  1683  1702
ZPH00LEN 00004 001874 01702   1677  1680  1680
ZPH00SIZ 00001 0018F0 01715   1621  1623
ZSAVE11  00004 0004F8 00733   0730  0736
ZUSERDAT 00001 0018E6 01713
ZWB      00001 000001 00126
ZWBA     00004 000494 00704   0700
ZWBSW    00001 000001 00596   0702  0704  0744
ZWB1     00004 000484 00700   0527
ZXFF     00001 0000FF 01724   1588  1602
ZZEROES  00004 0018CC 01704   1686



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     4      SOURCE RECORDS (SYSLIB) =  7003
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 7588 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM30.R0000149      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM30.S0000150      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM30.S0000150      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG31    / START 78240.1945
IEF374I STEP /SG31    / STOP  78240.1945 CPU   0MIN 02.70SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:20.42   ALLOC START    19:45:20.43   MAIN REGION ----- 300K                          *
*   STEP NAME SG31       STEP END TIME  19:45:24.23   PGM START TIME 19:45:20.50   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:03.81   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:02.70   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ---------- 183       0250 ------------ 0       0250 ------------ 0       0151 ---------- 199       0151 ---------- 201    *
*   0151 ---------- 447       0130 ---------- 949       0151 ---------- 321       0130 ------------ 6                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM30  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:24.25   ALLOC START    19:45:24.27   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:24.30   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM30 / START 78240.1945
IEF376I  JOB /R21AM30 / STOP  78240.1945 CPU   0MIN 02.70SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM30    JOB READ TIME 19:44:51.49   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:02.70   *
*   JOB CLASS A          JOB INIT TIME 19:45:20.42   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:03.89   *
*   ACCOUNT              JOB END TIME  19:45:24.31   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M  333333333       1                               A
            RRRRRRRRR  222222222      11        AAA     MM     MM  333333333      11                              AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  33    33      111                             AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM       33        11                            AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      3333       11                           AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM     333333      11                           AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM         33      11                           AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  33     33      11                           AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM  333333333    111111                         AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM   3333333     111111                         AA     AA

***********A  START   R21AM31    SYS SYSA   WTR 00E   07:47:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM31    START  A***********
***********A  START   R21AM31    SYS SYSA   WTR 00E   07:47:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM31    START  A***********
***********A  START   R21AM31    SYS SYSA   WTR 00E   07:47:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM31    START  A***********
***********A  START   R21AM31    SYS SYSA   WTR 00E   07:47:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM31    START  A***********
***********A  START   R21AM31    SYS SYSA   WTR 00E   07:47:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM31    START  A***********


//R21AM31 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG32 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEXCWKA)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM31  SG32
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


CWA                                           EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEX00LIN  ER  01
IEX00PCH  ER  02
IEX00PRT  ER  03
IEX00UT2  ER  04
IEX00UT3  ER  05
IEX00SYN  ER  06
IEX00ED1  ER  07
IEX00EDI  ER  08
IEX00PIC  ER  09
IEX00PRI  ER  0A
IEX00001  SD  0B 000000 000D50
CWA                                                                                                            PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  SGIEX001 0,0,0,0,0,45056
CWA    IEX00001 - ALGOL COMPILER COMMON WORKAREA                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      4+*
                                      5+*STATUS:  CHANGE LEVEL 0
                                      6+*
                                      7+*FUNCTION/OPERATION:
                                      8+*   THIS MODULE IS A COLLECTION OF DATA AND WORKING STORAGE WHICH
                                      9+*   MUST BE READILY ACCESSIBLE TO MORE THAN ONE COMPILER PHASE.
                                     10+*   REG. 13 CONTAINS THE ADDRESS OF THIS MODULE DURING THE WHOLE
                                     11+*   COMPILATION.
                                     12+*
                                     13+*ENTRY POINTS: N/A.
                                     14+*
                                     15+*INPUT: N/A.
                                     16+*
                                     17+*OUTPUT: N/A.
                                     18+*
                                     19+*EXTERNAL ROUTINES: N/A.
                                     20+*
                                     21+*EXITS - NORMAL: N/A.
                                     22+*
                                     23+*EXITS - ERROR: N/A
                                     24+*
                                     25+*TABLES/WORK AREAS:
                                     26+*
                                     27+*   THE FOLLOWING AREAS ARE PERMANENTLY ASSIGNED DURING THE WHOLE
                                     28+*   COMPILATION:
                                     29+*   1. STARTING AT SAVEAREA: REGISTER SAVE AREA IN THE STANDARD FORMAT.
                                     30+*   2. STARTING AT LINADD: DCB ADDRESSES FOR ALL DATA SETS USED.
                                     31+*   3. STARTING AT EODUT1: END-OF-DATA EXIT ADDRESSES FOR SYSUT1,
                                     32+*   SYSUT2,SYSUT3 AND SYSIN.
                                     33+*   4. HCOMPMOD: THREE BYTES WITH VARIOUS SWITCHES AND INDICATORS FOR
                                     34+*   CONTROLLING THE PROGRAM FLOW.
                                     35+*
                                     36+*   ALLOCATION OF THE BIT POSITIONS IN HCOMPMOD:
                                     37+*
                                     38+*   PURPOSE                   POSITION
                                     39+*   (FIRST ALTERNATIVE        BYTE 1    BYTE 2    BYTE 3
                                     40+*   CORRESPONDS TO ONE BIT)   01234567  01234567  01234567
                                     41+*
                                     42+*                             X
                                     43+*                              X
                                     44+*   WARNING ERROR               X
                                     45+*   SERIOUS ERROR                X
                                     46+*   TERMINATING ERROR             X
                                     47+*   PROCEDURE/PROGRAM              X
                                     48+*   LONG/SHORT PRECISION            X
                                     49+*                                    X
                                     50+*
                                     51+*   NOSOURCE/SOURCE                     X
                                     52+*   NOLOAD/LOAD                          X
                                     53+*   NODECK/DECK                           X
                                     54+*   ISO/EBCDIC                             X
                                     55+*   PROG. INTERRUPT                         X
                                     56+*   TERMINATING PHASE ENTERED                X
                                     57+*   NO BUFFERS ASSIGNED                       X
                                     58+*   NO COMPILATION POSSIBLE                    X
CWA    IEX00001 - ALGOL COMPILER COMMON WORKAREA                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     59+*
                                     60+*   SYSPRINT DOWN                                 X
                                     61+*   WHOLE SOURCE PROG IN CORE                      X
                                     62+*   NO OPTAB                                        X
                                     63+*   SYSPRINT NOT OPENED                              X
                                     64+*   ERROR UNRELATED TO SEMICOLON NR.                  X
                                     65+*   NOTEST/TEST                                        X
                                     66+*   (NOT USED)                                          X
                                     67+*   (NOT USED)                                           X
                                     68+*
                                     69+*   5. STARTING AT SIZE: MISC. CONTROL INFORMATION.
                                     70+*   6. STARTING AT ERRPOOL: ADDRESS POINTERS TO THE ERROR POOL AND THE
                                     71+*   SOURCE PROGRAM BUFFER 1.
                                     72+*   7. STARTING AT INBLKS: A TABLE OF THE LENGTHS OF I/O BUFFERS AND
                                     73+*   OTHER AREAS WHICH DEPEND ON THE STORAGE SIZE. THE TABLE IS SELECTED
                                     74+*   BY THE INITIALIZATION PHASE AND INSERTED INTO THIS MODULE.
                                     75+*   8. PAGEHEAD: THREE HEADLINES TO BE PRINTED AT THE TOP OF EVERY
                                     76+*   PAGE.
                                     77+*
                                     78+*   THE FOLLOWING AREAS ARE USED ONLY DURING CERTAIN PHASES OF THE
                                     79+*   COMPILATION, AS INDICATED IN THE ASSEMBLY LISTING. FOR THIS REASON,
                                     80+*   SOME OF THEM OVERLAY EACH OTHER, AND ANY SPACE NOT RESERVED DURING
                                     81+*   A CERTAIN PHASE MAY BE USED AS WORKING SPACE BY THAT PHASE.
                                     82+*   9. PRELPOOL: A PRELIMINARY ERROR POOL USED DURING THE FIRST PART
                                     83+*   OF THE INITIALIZATION PHASE.
                                     84+*   10. DCBIN: DCB FOR SYSIN.
                                     85+*   11. PBTAB2,PBTAB1, FSTAB: TABLES USED BY CERTAIN PHASES.
                                     86+*   12. DCBUT1: DCB FOR SYSUT1.
                                     87+*   13. SPTAB, GPTAB:  TABLES USED BY SCAN I/II AND SCAN III.
                                     88+*
                                     89+*   THE REMAINING SPACE UP TO 4K IS USED AS WORKING STORAGE.
                                     90+*
                                     91+*ATTRIBUTES: N/A.
                                     92+*
                                     93+*NOTES: THIS MODULE IS ASSEMBLED AT SYSTEM GENERATION TIME. THE OPTION
                                     94+*   SWITCHES IN HCOMPMOD ARE THEN INITIALIZED TO REFLECT THE DESIRED
                                     95+* DEFAULT OPTIONS. THE ASSEMBLED MODULE IS LINKAGE EDITED WITH THE
                                     96+*   MODULE IEX00000 TO FORM THE RESIDENT PART OF THE COMPILER DIRECTORY
                                     97+*   THE OPERATION OF THIS MODULE DEPENDS ON AN INTERNAL REPRESENTATION
                                     98+*   OF EBCDIC CHARACTERS WHICH IS EQUVIVALENT TO THE ONE USED WHEN
                                     99+*   THE MODULE WAS ASSEMBLED.
CWA    IEX00001 - ALGOL COMPILER COMMON WORKAREA                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    101+         EXTRN IEX00LIN,IEX00PCH,IEX00PRT,IEX00UT2,IEX00UT3
                                    102+         EXTRN IEX00SYN,IEX00ED1,IEX00EDI,IEX00PIC,IEX00PRI
000000                              103+IEX00001 CSECT
000000                              104+SAVEAREA DS    F ***
000004                              105+         DS    F HIGHER LEVEL SAVEAREA ADDR   *
000008                              106+         DS    F LOWER LEVEL SAVEAREA ADDR    *
00000C                              107+         DS    F RETURN ADDR                  *
000010                              108+         DS    F ENTRY POINT ADDR             *
000014                              109+SVEREG0  DS    F ***                          *
000018                              110+SVEREG1  DS    F *                          *
00001C                              111+SVEREG2  DS    F *                          *
000020                              112+SVEREG3  DS    F *                          *  SAVEAREA
000024                              113+SVEREG4  DS    F *                          *
000028                              114+SVEREG5  DS    F *                          *
00002C                              115+SVEREG6  DS    F * SAVEAREA FOR REGISTERS   *
000030                              116+SVEREG7  DS    F *                          *
000034                              117+SVEREG8  DS    F *                          *
000038                              118+SVEREG9  DS    F *                          *
00003C                              119+SVEREG10 DS    F *                          *
000040                              120+SVEREG11 DS    F *                          *
000044                              121+SVEREG12 DS    F ***                        ***

000048 00000000                     123+LINADD   DC    A(IEX00LIN) ***
00004C                              124+         DS    A *
000050                              125+         DS    A *
000054                              126+         DS    A *
000058 000003C0                     127+INADD    DC    A(DCBIN) *  ADDRESSES OF  DATA CONTROL BLOCKS
00005C 00000000                     128+PRINTADD DC    A(IEX00PRT) *
000060 00000000                     129+PCHADD   DC    A(IEX00PCH) *
000064 00000520                     130+UT1ADD   DC    A(DCBUT1) *
000068 00000000                     131+UT2ADD   DC    A(IEX00UT2) *
00006C 00000000                     132+UT3ADD   DC    A(IEX00UT3) ***

000070 00000000                     134+EODUT1   DC    A(0) ***
000074 00000000                     135+EODUT2   DC    A(0) *  END OF DATA EXIT ADDRESSES
000078 00000000                     136+EODUT3   DC    A(0) ***
00007C 00000000                     137+EODIN    DC    A(0) ADDR OF END OF DATA ROUTINE SYSIN
000080 00220000                     138+HCOMPMOD DC    BL2'0000100010',BL2'0'
000080                              139+PARMFLD  EQU   HCOMPMOD

                                    141+* OPTION SWITCHES IN HCOMPMOD
0000FB                              142+PGR      EQU   X'FB'
000004                              143+PROC     EQU   X'04'
0000FD                              144+SHRT     EQU   X'FD'
000002                              145+LNG      EQU   X'02'

                                    147+* OPTION SWITCHES IN HCOMPMOD+1
00007F                              148+SRCE     EQU   X'7F'
000080                              149+NSRCE    EQU   X'80'
0000BF                              150+LOAD     EQU   X'BF'
000040                              151+NLOAD    EQU   X'40'
0000DF                              152+DCK      EQU   X'DF'
000020                              153+NDCK     EQU   X'20'
0000EF                              154+EBCDIC   EQU   X'EF'
000010                              155+ISO      EQU   X'10'
CWA    IEX00001 - ALGOL COMPILER COMMON WORKAREA                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    157+* ERROR SEVERITY INDICATORS IN HCOMPMOD
000020                              158+WERR     EQU   X'20' WARNING ERROR
000010                              159+SERR     EQU   X'10' SERIOUS ERROR
000008                              160+TERR     EQU   X'08' TERMINATING ERROR

                                    162+* TERMINATION SWITCHES IN HCOMPMOD+1
000008                              163+ERR      EQU   X'08' PROG INTERRUPTION HAS OCCURED IN COMPILER
000004                              164+TERM     EQU   X'04' LAST PHASE HAS BEEN ENTERED
000002                              165+NOBUF    EQU   X'02' ERROR POOL IS IN WORKAREA, NO SCE PROG BUFF 1
000001                              166+NOGO     EQU   X'01' COMPILATION IS IMPOSSIBLE, DO NOT START SCAN 1
000003                              167+NOBUNOGO EQU   X'03' NOBUF AND NOGO

                                    169+* SWITCES IN HCOMPMOD+2
000080                              170+PRT      EQU   X'80' SYSPRINT IS DOWN
000040                              171+SPIC     EQU   X'40' SOURCE PROG IN CORE
000020                              172+NOPT     EQU   X'20' NO OPTAB
000010                              173+PRTNO    EQU   X'10' SYSPRINT NOT OPENED
000008                              174+NOSC     EQU   X'08' SEMICOLON COUNTER NOT VALID
000004                              175+NOTEST   EQU   X'04'
0000FB                              176+TEST     EQU   X'FB'
000002                              177+SET60    EQU   X'02' 60 CHARACTER SET IS TO BE USED

                                    179+*  MISCELLANEOUS CONTROL INFORMATION
000084 0000B000                     180+SIZE     DC    F'45056' AMOUNT OF AVAIBLE MAIN STORAGE
000088 00000000                     181+OLDPICA  DC    A(IEX00PIC) ADDR OF PICA OF THE INVOKER
000088                              182+PICAADD  EQU   OLDPICA ADDR OF PICA OF THE COMPILER
00008C 00000000                     183+HDING    DC    F'0' POINTER TO THE HEADING INFO OF THE INVOKER
000090 00000000                     184+ERET     DC    F'0' RETURN ADDRESS FOR PROGRAM AND I/O ERRORS
000094 00000000                     185+PAGECNT  DC    F'0' PAGE COUNT
000098 0000                         186+LINCNT   DC    H'0' COUNTER OF LINES PER PAGE
00009A 0032                         187+MAXLINES DC    H'50' NUMBER OF PRINT LINES PER PAGE
00009C 0000                         188+SEMCNT   DC    H'0' SEMICOLON COUNTER
00009E 0032                         189+PBN      DC    H'50' HIGHEST PROGRAM BLOCK NUMBER
0000A0 0000                         190+KBN      DC    H'0' HIGHEST CONSTANT POOL NUMBER
00001C                              191+LATNR    EQU   28 NR OF LIBRARY STAND FUNCTIONS
00006C                              192+LATBEG   EQU   4*(LATNR-1)
0000A2 006C                         193+LN       DC    AL2(LATBEG) LAST USED DISPLACEMENT IN LAT
0000A4 00000000                     194+PRPT     DC    F'0' PROGRAM POINTER
0000A8 00000000                     195+SAVOUTA  DC    F'0'
0000AC                              196+OUTAREA2 DS    F SYSPUNCH SAVE AREA
0000B0 40404040                     197+PIDENT   DC    CL4' ' PROGRAM IDENTIFICATION
0000B4 00000000                     198+SEQU     DC    F'0' OBJECT PROGRAM CARD SEQUENCE NUMBER
0000B8 00000000                     199+PRTRTADD DC    A(IEX00PRI) ADDRESS OF PRINT ROUTINE

                                    201+* ADDRESSES OF AREAS WHICH ARE USED BY MORE THAN A SINGLE PHASE
0000BC 00000220                     202+ERRPOOL  DC    A(PRELPOOL) FIRST BYTE OF PRELIMINARY ERROR POOL
0000C0 00000220                     203+NEXTERR  DC    A(PRELPOOL) NEXT FREE PLACE IN ERROR POOL
0000C4                              204+ENDPOOL  DS    F LAST BYTE OF ERROR POOL -23
0000C8                              205+SRCE1ADD DS    F SOURCE PROGRAM BUFFER 1
0000CC                              206+SRCE1END DS    F ADDR OF LAST BYTE +1
0000D0                              207+SULTSTRT DS    F IDENTIFICATION OF LAST ITAB RECORD

                                    209+* TABLE OF THE LENGTHS OF VARIABLE SIZE AREAS
0000D4                              210+INBLKS   DS    H MAX BLOCKSIZE FOR SYSIN
0000D6                              211+PRTBLKS  DS    H MAX BLOCKSIZE SYSPRINT
CWA    IEX00001 - ALGOL COMPILER COMMON WORKAREA                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000D8                              212+LINBLKS  DS    H MAX BLOCKSIZE FOR SYSLIN
0000DA                              213+PCHBLKS  DS    H MAX BLOCKSIZE FOR SYSPUNCH
0000DC                              214+POOLS    DS    F SIZE OF ERROR POOL
0000E0                              215+SRCE1S   DS    F SIZE OF SOURCE PROG BUFFERS 1 AND 2
0000E0                              216+SRCE3S   EQU   SRCE1S SIZE OF SOURCE PROG BUFFERS 3 AND 4
0000E4                              217+ITAB10S  DS    F SIZE OF ITAB FOR PHASE 10
0000E8                              218+ITAB20S  DS    F SIZE OF ITAB FOR PHASE 20
0000EC                              219+ITAB30S  DS    F SIZE OF ITAB FOR PHASE 30
0000F0                              220+CRIDTABS DS    F SIZE OF CRIDTAB FOR PHASE 30
0000F4                              221+SUTAB30S DS    F SIZE OF SUTAB BUFFER OF PHASE 30
0000F8                              222+LVTAB30S DS    F SIZE OF LVTAB BUFFER FOR PHASE 30
0000FC                              223+OPTABS   DS    F SIZE OF OPTAB BUFFERS 1 AND 2
000100                              224+SUTAB40S DS    F SIZE OF SUTAB IN PHASE 40
000104                              225+LVTAB40S DS    F SIZE OF LVTAB IN PHASE 40
000108                              226+OOSTACKS DS    F SIZE OF OPERATOR/OPERAND STACK

                                    228+* AREA FOR HEADING INFORMATION TO APPEAR AT THE TOP OF EACH NEW PAGE

                                    230+* THE FORMAT OF EACH HEADING FIELD IS..
                                    231+*   BYTE 1     NUMBER OF LINES OCCUPIED (INCL. BLANK LINES)
                                    232+*   BYTE 2     PRINTER CONTROL CHARACTER
                                    233+*   BYTES 3-93 TEXT TO BE PRINTED AS ONE LINE

00010C                              235+PAGEHEAD EQU   *
00010C 0109404040404040             236+PAGEHD1  DC    X'0109',CL82' ' FIRST HEADLINE
000160 D7C1C7C540404040             237+         DC    C'PAGE    '
00005C                              238+HDLG     EQU   *-PAGEHEAD
000168 0109404040404040             239+PAGEHD2  DC    X'0109',CL90' ' SECOND HEADLINE
0001C4 0109404040404040             240+PAGEHD3  DC    X'0109',CL90' ' THIRD HEADLINE
00021F                              241+PAGEHEND EQU   *-1

                                    243+*  THE FOLLOWING AREAS ARE NEEDED BY SOME BUT NOT ALL PHASES AND
                                    244+*  PARTLY OVERLAY EACH OTHER

                                    246+*                             NAME OR PURPOSE          NEEDED BY PHASES

000220                              248+         DS    0F
000220 4040404040404040             249+PRELPOOL DC    236C' ',20C'X' PRELIMINARY ERROR POOL     IEX10
0003BE                              250+         ORG   PRELPOOL+414
                                    251+*                             DCB FOR SYSIN                 11


                                    253+*                       DATA CONTROL BLOCK
                                    254+*
0003BE 0000
0003C0                              255+DCBIN    DC    0F'0' ORIGIN ON WORD BOUNDARY

                                    257+*                       DIRECT ACCESS DEVICE INTERFACE

0003C0 0000000000000000             259+         DC    BL16'0' FDAD,DVTBL
0003D0 00000000                     260+         DC    A(0) KEYLE,DEVT,TRBAL

                                    262+*                       COMMON ACCESS METHOD INTERFACE

0003D4 00                           264+         DC    AL1(0) BUFNO
CWA    IEX00001 - ALGOL COMPILER COMMON WORKAREA                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0003D5 000001                       265+         DC    AL3(1) BUFCB
0003D8 0000                         266+         DC    AL2(0) BUFL
0003DA 4000                         267+         DC    BL2'0100000000000000' DSORG
0003DC 00000001                     268+         DC    A(1) IOBAD

                                    270+*                       FOUNDATION EXTENSION

0003E0 40                           272+         DC    BL1'01000000' BFTEK,BFLN,HIARCHY
0003E1 000000                       273+         DC    AL3(IEX00EDI) EODAD
0003E4 90                           274+         DC    BL1'10010000' RECFM
0003E5 000000                       275+         DC    AL3(0) EXLST

                                    277+*                       FOUNDATION BLOCK

0003E8 E2E8E2C9D5404040             279+         DC    CL8'SYSIN' DDNAME
0003F0 02                           280+         DC    BL1'00000010' OFLGS
0003F1 00                           281+         DC    BL1'00000000' IFLG
0003F2 5000                         282+         DC    BL2'0101000000000000' MACR

                                    284+*                       BSAM-BPAM-QSAM INTERFACE

0003F4 00                           286+         DC    BL1'00000000' RER1
0003F5 000001                       287+         DC    AL3(1) CHECK, GERR, PERR
0003F8 00000000                     288+         DC    A(IEX00SYN) SYNAD
0003FC 0000                         289+         DC    H'0' CIND1, CIND2
0003FE 0000                         290+         DC    AL2(0) BLKSIZE
000400 00000000                     291+         DC    F'0' WCPO, WCPL, OFFSR, OFFSW
000404 00000001                     292+         DC    A(1) IOBA
000408 00                           293+         DC    AL1(0) NCP
000409 000001                       294+         DC    AL3(1) EOBR, EOBAD

                                    296+*                            QSAM INTERFACE

00040C 00000001                     298+         DC    A(1) RECAD
000410 0000                         299+         DC    H'0' QSWS
000412 0050                         300+         DC    AL2(80) LRECL
000414 00                           301+         DC    BL1'00000000' EROPT
000415 000001                       302+         DC    AL3(1) CNTRL
000418 00000000                     303+         DC    F'0' PRECL
00041C 00000001                     304+         DC    A(1) EOB
000220                              305+         ORG   PRELPOOL
000220                              306+PBTAB2   DS    CL510 PROGR. BLOCK TABLE 2          20-50
000420                              307+         DS    0F
000420                              308+PBTAB1   DS    CL255 PROGR. BLOCK TABLE 1          11-20
000420                              309+         ORG   PBTAB1
000420                              310+FSTAB    DS    CL255 FOR STATEMENT TABLE           30-40
                                    311+*                             DCB FOR SYSUT1                11-30


                                    313+*                       DATA CONTROL BLOCK
                                    314+*
00051F 00
000520                              315+DCBUT1   DC    0F'0' ORIGIN ON WORD BOUNDARY

                                    317+*                       DIRECT ACCESS DEVICE INTERFACE
CWA    IEX00001 - ALGOL COMPILER COMMON WORKAREA                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000520 0000000000000000             319+         DC    BL16'0' FDAD,DVTBL
000530 00000000                     320+         DC    A(0) KEYLE,DEVT,TRBAL

                                    322+*                       COMMON ACCESS METHOD INTERFACE

000534 00                           324+         DC    AL1(0) BUFNO
000535 000001                       325+         DC    AL3(1) BUFCB
000538 0000                         326+         DC    AL2(0) BUFL
00053A 4000                         327+         DC    BL2'0100000000000000' DSORG
00053C 00000001                     328+         DC    A(1) IOBAD

                                    330+*                       FOUNDATION EXTENSION

000540 00                           332+         DC    BL1'00000000' BFTEK,BFLN,HIARCHY
000541 000000                       333+         DC    AL3(IEX00ED1) EODAD
000544 80                           334+         DC    BL1'10000000' RECFM
000545 000000                       335+         DC    AL3(0) EXLST

                                    337+*                       FOUNDATION BLOCK

000548 E2E8E2E4E3F14040             339+         DC    CL8'SYSUT1' DDNAME
000550 02                           340+         DC    BL1'00000010' OFLGS
000551 00                           341+         DC    BL1'00000000' IFLG
000552 2020                         342+         DC    BL2'0010000000100000' MACR

                                    344+*                       BSAM-BPAM-QSAM INTERFACE

000554 00                           346+         DC    BL1'00000000' RER1
000555 000001                       347+         DC    AL3(1) CHECK, GERR, PERR
000558 00000000                     348+         DC    A(IEX00SYN) SYNAD
00055C 0000                         349+         DC    H'0' CIND1, CIND2
00055E 0000                         350+         DC    AL2(0) BLKSIZE
000560 00000000                     351+         DC    F'0' WCPO, WCPL, OFFSR, OFFSW
000564 00000001                     352+         DC    A(1) IOBA
000568 00                           353+         DC    AL1(0) NCP
000569 000001                       354+         DC    AL3(1) EOBR, EOBAD

                                    356+*                         BSAM-BPAM INTERFACE

00056C 00000001                     358+         DC    A(1) EOBW
000570 0000                         359+         DC    H'0' DIRCT
000572 0000                         360+         DC    AL2(0) LRECL
000574 00000001                     361+         DC    A(1) CNTRL, NOTE, POINT

000578                              363+         DS    0F
000578                              364+SPTAB    DS    CL255 SCOPE TABLE                   11-30
000678                              365+         DS    0F
000675                              366+GPTAB    EQU   *-3 GROUP TABLE                   11-30
000678                              367+         DS    CL1510

                                    369+*  END OF SYMLIB PART OF COMMON WORK AREA

000D4F                              371+         ORG   SAVEAREA+3407
000D4F F0                           372+         DC    C'0'
                                    373  END
CWA                                              RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   0B       01      0C     000048
   0B       02      0C     000060
   0B       03      0C     00005C
   0B       04      0C     000068
   0B       05      0C     00006C
   0B       06      0C     0003F8
   0B       06      0C     000558
   0B       07      08     000541
   0B       08      08     0003E1
   0B       09      0C     000088
   0B       0A      0C     0000B8
   0B       0B      0C     000058
   0B       0B      0C     000064
   0B       0B      0C     0000BC
   0B       0B      0C     0000C0
CWA                                          CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CRIDTABS 00004 0000F0 00220
DCBIN    00004 0003C0 00255   0127
DCBUT1   00004 000520 00315   0130
DCK      00001 0000DF 00152
EBCDIC   00001 0000EF 00154
ENDPOOL  00004 0000C4 00204
EODIN    00004 00007C 00137
EODUT1   00004 000070 00134
EODUT2   00004 000074 00135
EODUT3   00004 000078 00136
ERET     00004 000090 00184
ERR      00001 000008 00163
ERRPOOL  00004 0000BC 00202
FSTAB    00255 000420 00310
GPTAB    00001 000675 00366
HCOMPMOD 00002 000080 00138   0139
HDING    00004 00008C 00183
HDLG     00001 00005C 00238
IEX00EDI 00001 000000 00102   0273
IEX00ED1 00001 000000 00102   0333
IEX00LIN 00001 000000 00101   0123
IEX00PCH 00001 000000 00101   0129
IEX00PIC 00001 000000 00102   0181
IEX00PRI 00001 000000 00102   0199
IEX00PRT 00001 000000 00101   0128
IEX00SYN 00001 000000 00102   0288  0348
IEX00UT2 00001 000000 00101   0131
IEX00UT3 00001 000000 00101   0132
IEX00001 00001 000000 00103
INADD    00004 000058 00127
INBLKS   00002 0000D4 00210
ISO      00001 000010 00155
ITAB10S  00004 0000E4 00217
ITAB20S  00004 0000E8 00218
ITAB30S  00004 0000EC 00219
KBN      00002 0000A0 00190
LATBEG   00001 00006C 00192   0193
LATNR    00001 00001C 00191   0192
LINADD   00004 000048 00123
LINBLKS  00002 0000D8 00212
LINCNT   00002 000098 00186
LN       00002 0000A2 00193
LNG      00001 000002 00145
LOAD     00001 0000BF 00150
LVTAB30S 00004 0000F8 00222
LVTAB40S 00004 000104 00225
MAXLINES 00002 00009A 00187
NDCK     00001 000020 00153
NEXTERR  00004 0000C0 00203
NLOAD    00001 000040 00151
NOBUF    00001 000002 00165
NOBUNOGO 00001 000003 00167
NOGO     00001 000001 00166
NOPT     00001 000020 00172
NOSC     00001 000008 00174
CWA                                          CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

NOTEST   00001 000004 00175
NSRCE    00001 000080 00149
OLDPICA  00004 000088 00181   0182
OOSTACKS 00004 000108 00226
OPTABS   00004 0000FC 00223
OUTAREA2 00004 0000AC 00196
PAGECNT  00004 000094 00185
PAGEHD1  00002 00010C 00236
PAGEHD2  00002 000168 00239
PAGEHD3  00002 0001C4 00240
PAGEHEAD 00001 00010C 00235   0238
PAGEHEND 00001 00021F 00241
PARMFLD  00002 000080 00139
PBN      00002 00009E 00189
PBTAB1   00255 000420 00308   0309
PBTAB2   00510 000220 00306
PCHADD   00004 000060 00129
PCHBLKS  00002 0000DA 00213
PGR      00001 0000FB 00142
PICAADD  00004 000088 00182
PIDENT   00004 0000B0 00197
POOLS    00004 0000DC 00214
PRELPOOL 00001 000220 00249   0202  0203  0250  0305
PRINTADD 00004 00005C 00128
PROC     00001 000004 00143
PRPT     00004 0000A4 00194
PRT      00001 000080 00170
PRTBLKS  00002 0000D6 00211
PRTNO    00001 000010 00173
PRTRTADD 00004 0000B8 00199
SAVEAREA 00004 000000 00104   0371
SAVOUTA  00004 0000A8 00195
SEMCNT   00002 00009C 00188
SEQU     00004 0000B4 00198
SERR     00001 000010 00159
SET60    00001 000002 00177
SHRT     00001 0000FD 00144
SIZE     00004 000084 00180
SPIC     00001 000040 00171
SPTAB    00255 000578 00364
SRCE     00001 00007F 00148
SRCE1ADD 00004 0000C8 00205
SRCE1END 00004 0000CC 00206
SRCE1S   00004 0000E0 00215   0216
SRCE3S   00004 0000E0 00216
SULTSTRT 00004 0000D0 00207
SUTAB30S 00004 0000F4 00221
SUTAB40S 00004 000100 00224
SVEREG0  00004 000014 00109
SVEREG1  00004 000018 00110
SVEREG10 00004 00003C 00119
SVEREG11 00004 000040 00120
SVEREG12 00004 000044 00121
SVEREG2  00004 00001C 00111
SVEREG3  00004 000020 00112
CWA                                          CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SVEREG4  00004 000024 00113
SVEREG5  00004 000028 00114
SVEREG6  00004 00002C 00115
SVEREG7  00004 000030 00116
SVEREG8  00004 000034 00117
SVEREG9  00004 000038 00118
TERM     00001 000004 00164
TERR     00001 000008 00160
TEST     00001 0000FB 00176
UT1ADD   00004 000064 00130
UT2ADD   00004 000068 00131
UT3ADD   00004 00006C 00132
WERR     00001 000020 00158



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  2755
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  508 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM31.R0000151      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM31.S0000152      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM31.S0000152      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG32    / START 78240.1945
IEF374I STEP /SG32    / STOP  78240.1945 CPU   0MIN 00.60SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:24.34   ALLOC START    19:45:24.35   MAIN REGION ----- 300K                          *
*   STEP NAME SG32       STEP END TIME  19:45:25.27   PGM START TIME 19:45:24.43   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.93   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.60   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 75       0250 ------------ 0       0250 ------------ 0       0151 ----------- 21       0151 ----------- 57    *
*   0151 ---------- 104       0353 ----------- 64       0151 ----------- 26       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM31  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:25.28   ALLOC START    19:45:25.29   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:25.32   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM31 / START 78240.1945
IEF376I  JOB /R21AM31 / STOP  78240.1945 CPU   0MIN 00.60SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM31    JOB READ TIME 19:44:51.94   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.60   *
*   JOB CLASS A          JOB INIT TIME 19:45:24.34   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.99   *
*   ACCOUNT              JOB END TIME  19:45:25.33   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M  333333333   2222222                             A
            RRRRRRRRR  222222222      11        AAA     MM     MM  333333333  222222222                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  33    33   22     22                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM       33          22                          AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      3333        22                          AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM     333333      22                           AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM         33     22                            AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  33     33    22                             AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM  333333333   22222222                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM   3333333   222222222                        AA     AA

***********A  START   R21AM32    SYS SYSA   WTR 00E   07:47:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM32    START  A***********
***********A  START   R21AM32    SYS SYSA   WTR 00E   07:47:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM32    START  A***********
***********A  START   R21AM32    SYS SYSA   WTR 00E   07:47:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM32    START  A***********
***********A  START   R21AM32    SYS SYSA   WTR 00E   07:47:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM32    START  A***********
***********A  START   R21AM32    SYS SYSA   WTR 00E   07:47:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM32    START  A***********


//R21AM32 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG33 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEMAF)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM32  SG33
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


AF                                            EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEMAF     SD  01 000000 00002C
AF                                                                                                             PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
AF     OS 360 PL/I(F) COMPILER , IEMAF                                                                         PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                3 IEMAF    CSECT
                                      4 *                  DEFAULT BITS
000000 59                             5          DC    B'01011001'
000001 63                             6          DC    B'01100011'
000002 34                             7          DC    B'00110100'
000003 83                             8          DC    B'10000011'
000004 2B                             9          DC    B'00101011'
000005 2A                            10          DC    B'00101010'
000006 08                            11          DC    B'00001000'
000007 00                            12          DC    B'00000000'
000008 00                            13          DC    B'00000000'
000009 00                            14          DC    B'00000000'
00000A 00                            15          DC    B'00000000'
00000B 00                            16          DC    B'00000000'
00000C 00                            17          DC    B'00000000'
00000D 00                            18          DC    B'00000000'
00000E 0000
000010 00000032                      19          DC    F'50'
000014 000F423F                      20          DC    F'999999'
000018 00000002                      21          DC    F'2'
00001C 00000048                      22          DC    F'72'
000020 00000000                      23          DC    F'0'
000024 00000000                      24          DC    F'0'
000028 00000000                      25          DC    F'0'
000000                               26          END   IEMAF
AF                                           CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEMAF    00001 000000 00003   0026



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =    26
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   41 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM32.R0000153      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM32.S0000154      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM32.S0000154      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG33    / START 78240.1945
IEF374I STEP /SG33    / STOP  78240.1945 CPU   0MIN 00.12SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:25.36   ALLOC START    19:45:25.37   MAIN REGION ----- 300K                          *
*   STEP NAME SG33       STEP END TIME  19:45:25.69   PGM START TIME 19:45:25.45   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.33   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0151 ----------- 12       0151 ------------ 9    *
*   0151 ------------ 3       0158 ------------ 6       0151 ------------ 3       0130 ----------- 28                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM32  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:25.72   ALLOC START    19:45:25.74   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:25.76   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM32 / START 78240.1945
IEF376I  JOB /R21AM32 / STOP  78240.1945 CPU   0MIN 00.12SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM32    JOB READ TIME 19:44:52.10   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.12   *
*   JOB CLASS A          JOB INIT TIME 19:45:25.36   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.41   *
*   ACCOUNT              JOB END TIME  19:45:25.77   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M  333333333  333333333                            A
            RRRRRRRRR  222222222      11        AAA     MM     MM  333333333  333333333                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  33    33   33    33                           AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM       33         33                           AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      3333       3333                         AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM     333333     333333                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM         33         33                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  33     33  33     33                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM  333333333  333333333                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM   3333333    3333333                         AA     AA

***********A  START   R21AM33    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM33    START  A***********
***********A  START   R21AM33    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM33    START  A***********
***********A  START   R21AM33    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM33    START  A***********
***********A  START   R21AM33    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM33    START  A***********
***********A  START   R21AM33    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM33    START  A***********


//R21AM33 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG34 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IERAM1)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM33  SG34
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IERAM1    SD  01 000000 000008
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  SGIER001 65536,16
000000                                3+IERAM1   CSECT
000000 00010000                       4+         DC    F'65536' AMOUNT OF CORE TO BE USED BY SORT
000004 00000010                       5+         DC    F'16' PRINT OPTIONS
                                      6  END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IERAM1   00001 000000 00003



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =     6
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   19 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM33.R0000155      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM33.S0000156      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM33.S0000156      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG34    / START 78240.1945
IEF374I STEP /SG34    / STOP  78240.1945 CPU   0MIN 00.11SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:25.80   ALLOC START    19:45:25.81   MAIN REGION ----- 300K                          *
*   STEP NAME SG34       STEP END TIME  19:45:26.11   PGM START TIME 19:45:25.89   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.31   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.11   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 2       0250 ------------ 0       0250 ------------ 0       0151 ----------- 11       0151 ----------- 11    *
*   0151 ------------ 8       0353 ------------ 3       0151 ------------ 3       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM33  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:26.14   ALLOC START    19:45:26.16   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:26.18   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM33 / START 78240.1945
IEF376I  JOB /R21AM33 / STOP  78240.1945 CPU   0MIN 00.11SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM33    JOB READ TIME 19:44:52.59   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.11   *
*   JOB CLASS A          JOB INIT TIME 19:45:25.80   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.39   *
*   ACCOUNT              JOB END TIME  19:45:26.19   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M  333333333       44                              A
            RRRRRRRRR  222222222      11        AAA     MM     MM  333333333      444                             AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  33    33      4444                            AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM       33      44 44                           AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      3333    44  44                          AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM     333333  44   44                          AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM         33  444444444                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  33     33  444444444                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM  333333333       44                          AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM   3333333        44                          AA     AA

***********A  START   R21AM34    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM34    START  A***********
***********A  START   R21AM34    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM34    START  A***********
***********A  START   R21AM34    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM34    START  A***********
***********A  START   R21AM34    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM34    START  A***********
***********A  START   R21AM34    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM34    START  A***********


//R21AM34 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG35 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEWLDDEF)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM34  SG35
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


DDEF                                          EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEWLDDEF  SD  01 000000 00001E
DDEF                                                                                                           PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2          SGIEW050 FLAG=(1,0,1,0,0),SIZE=102400,                      XXXXXXXX
                                                       LIN=SYSLIN,PRINT=SYSLOUT,LIB=SYSLIB
                                      3+DDEF     TITLE 'DEFAULT OPTION AND DDNAME SPECIFICATION FOR THE OS/360 X
DDEF   DEFAULT OPTION AND DDNAME SPECIFICATION FOR THE OS/360 LOADER                                           PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                4+IEWLDDEF CSECT

000000                                6+DDNAMES  EQU   *
000000 E2E8E2D3D6E4E340               7+SYSPRINT DC    CL8'SYSLOUT' DIAGNOSTIC MESSAGE DATA SET
000008 E2E8E2D3C9D54040               8+SYSLIN   DC    CL8'SYSLIN' PRIMARY INPUT DATA SET
000010 E2E8E2D3C9C24040               9+SYSLIB   DC    CL8'SYSLIB' AUTO-CALL LIBRARY DATA SET

000018 00019000                      11+SIZE     DC    F'102400' DEFAULT SIZE

00001C 14                            13+FLAG     DC    B'00010100'
00001D 00                            14+RESERVE  DC    B'00000000'

                                     16+*                             FLAG DEFINITION

                                     18+*     BIT POSITION            ON (1)         OFF (0)
                                     19+*   (LEFT TO RIGHT)
                                     20+*
                                     21+*          0                   ----           ----
                                     22+*          1                   ----           ----
                                     23+*          2                   ----           ----
                                     24+*          3                  CALL           NOCALL
                                     25+*          4                  LET            NOLET
                                     26+*          5                  PRINT          NOPRINT
                                     27+*          6                  MAP            NOMAP
                                     28+*          7                  RES            NORES


                                     30          END
DDEF                                         CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DDNAMES  00001 000000 00006
FLAG     00001 00001C 00013
IEWLDDEF 00001 000000 00004
RESERVE  00001 00001D 00014
SIZE     00004 000018 00011
SYSLIB   00008 000010 00009
SYSLIN   00008 000008 00008
SYSPRINT 00008 000000 00007



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     4      SOURCE RECORDS (SYSLIB) =    32
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   47 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM34.R0000157      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM34.S0000158      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM34.S0000158      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG35    / START 78240.1945
IEF374I STEP /SG35    / STOP  78240.1945 CPU   0MIN 00.12SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:26.22   ALLOC START    19:45:26.23   MAIN REGION ----- 300K                          *
*   STEP NAME SG35       STEP END TIME  19:45:26.59   PGM START TIME 19:45:26.30   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.37   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 2       0250 ------------ 0       0250 ------------ 0       0151 ----------- 11       0151 ----------- 11    *
*   0151 ------------ 8       0159 ------------ 6       0151 ------------ 3       0130 ------------ 6                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM34  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:26.61   ALLOC START    19:45:26.62   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:26.64   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM34 / START 78240.1945
IEF376I  JOB /R21AM34 / STOP  78240.1945 CPU   0MIN 00.12SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM34    JOB READ TIME 19:44:52.69   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.12   *
*   JOB CLASS A          JOB INIT TIME 19:45:26.22   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.45   *
*   ACCOUNT              JOB END TIME  19:45:26.67   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M  333333333  555555555                            A
            RRRRRRRRR  222222222      11        AAA     MM     MM  333333333  555555555                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  33    33   55                                 AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM       33    55555555                          AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      3333   555555555                        AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM     333333         55                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM         33         55                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  33     33  55     55                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM  333333333  555555555                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM   3333333    5555555                         AA     AA

***********A  START   R21AM35    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM35    START  A***********
***********A  START   R21AM35    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM35    START  A***********
***********A  START   R21AM35    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM35    START  A***********
***********A  START   R21AM35    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM35    START  A***********
***********A  START   R21AM35    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM35    START  A***********


//R21AM35 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG36 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEASVC00)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM35  SG36
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


USERORG   LD     0001D8         01
IBMORG    SD  01 000000 00026C
IGC000    ER  02
IGC001    ER  03
IGC002    ER  04
IGC003    ER  05
IGC004    ER  06
IGC005    ER  07
IGC006    ER  08
IGC007    ER  09
IGC008    ER  0A
IGC009    ER  0B
IGC010    ER  0C
IGC011    ER  0D
IGC012    ER  0E
IGC014    ER  0F
IGC015    ER  10
IGC016    ER  11
IGC018    ER  12
IGC037    ER  13
IGCERROR  ER  14
IGC040    ER  15
IGC041    ER  16
IGC042    ER  17
IGC043    ER  18
IGC044    ER  19
IGC045    ER  1A
IGC046    ER  1B
IGC047    ER  1C
IGC048    ER  1D
IGC054    ER  1E
IGC056    ER  1F
IGC058    ER  20
IGC062    ER  21
IGC070    ER  22
IGC079    ER  23
IGC084    ER  24
IGC092    ER  25
IGC102    ER  26
IGC109    ER  27
IGC116    ER  28
IGC117    ER  29
IGC220    ER  2A
IGC246    ER  2B
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  ENTRY USERORG
000000                                3 IBMORG   CSECT
000000 0000000000000000               4  DC X'00',VL3(IGC000),X'00',VL3(IGC001),X'00',VL3(IGC002)
00000C 0000000000000000               5  DC X'00',VL3(IGC003),X'00',VL3(IGC004),X'00',VL3(IGC005)
000018 8000000080000000               6  DC X'80',VL3(IGC006),X'80',VL3(IGC007),X'80',VL3(IGC008)
000024 8000000000000000               7  DC X'80',VL3(IGC009),X'00',VL3(IGC010),X'00',VL3(IGC011)
000030 80000000C0000000               8  DC X'80',VL3(IGC012),X'C0',AL3(0),X'80',VL3(IGC014)
00003C 0000000080000000               9  DC X'00',VL3(IGC015),X'80',VL3(IGC016),X'C0',AL3(0)
000048 80000000C0000000              10  DC X'80',VL3(IGC018),X'C0',AL3(0),X'C0',AL3(0)
000054 C0000000C0000000              11  DC X'C0',AL3(0),X'C0',AL3(0),X'C0',AL3(0)
000060 C0000000C0000000              12  DC X'C0',AL3(0),X'C0',AL3(0),X'C0',AL3(0)
00006C C0000000C0000000              13  DC X'C0',AL3(0),X'C0',AL3(0),X'C0',AL3(0)
000078 C0000000C0000000              14  DC X'C0',AL3(0),X'C0',AL3(0),X'C0',AL3(0)
000084 C0000000C0000000              15  DC X'C0',AL3(0),X'C0',AL3(0),X'C0',AL3(0)
000090 C000000080000000              16  DC X'C0',AL3(0),X'80',VL3(IGC037),X'00',VL3(IGCERROR)
00009C C000000000000000              17  DC X'C0',AL3(0),X'00',VL3(IGC040),X'80',VL3(IGC041)
0000A8 8000000080000000              18  DC X'80',VL3(IGC042),X'80',VL3(IGC043),X'00',VL3(IGC044)
0000B4 8000000000000000              19  DC X'80',VL3(IGC045),X'00',VL3(IGC046),X'80',VL3(IGC047)
0000C0 8000000000000000              20  DC X'80',VL3(IGC048),X'00',VL3(IGCERROR),X'00',AL3(IGCRETRN)
0000CC C0000000C0000000              21  DC X'C0',AL3(0),X'C0',AL3(0),X'C0',AL3(0)
0000D8 80000000C0000000              22  DC X'80',VL3(IGC054),X'C0',AL3(0),X'80',VL3(IGC056)
0000E4 C000000000000000              23  DC X'C0',AL3(0),X'00',VL3(IGC058),X'C0',AL3(0)
0000F0 C0000000C0000000              24  DC X'C0',AL3(0),X'C0',AL3(0),X'80',VL3(IGC062)
0000FC C0000000C0000000              25  DC X'C0',AL3(0),X'C0',AL3(0),X'00',VL3(IGCERROR)
000108 C000000000000000              26  DC X'C0',AL3(0),X'00',VL3(IGCERROR),X'C0',AL3(0)
000114 C000000080000000              27  DC X'C0',AL3(0),X'80',VL3(IGC070),X'00',VL3(IGCERROR)
000120 C000000000000000              28  DC X'C0',AL3(0),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
00012C 00000000C0000000              29  DC X'00',VL3(IGCERROR),X'C0',AL3(0),X'00',VL3(IGCERROR)
000138 C000000000000000              30  DC X'C0',AL3(0),X'00',VL3(IGC079),X'00',VL3(IGCERROR)
000144 C0000000C0000000              31  DC X'C0',AL3(0),X'C0',AL3(0),X'C0',AL3(0)
000150 00000000C0000000              32  DC X'00',VL3(IGC084),X'C0',AL3(0),X'C0',AL3(0)
00015C C000000000000000              33  DC X'C0',AL3(0),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
000168 C0000000C0000000              34  DC X'C0',AL3(0),X'C0',AL3(0),X'00',VL3(IGC092)
000174 C0000000C0000000              35  DC X'C0',AL3(0),X'C0',AL3(0),X'00',AL3(IGCRETRN)
000180 C0000000C0000000              36  DC X'C0',AL3(0),X'C0',AL3(0),X'C0',AL3(0)
00018C C0000000C0000000              37  DC X'C0',AL3(0),X'C0',AL3(0),X'00',AL3(IGCRETRN)
000198 00000000C0000000              38  DC X'00',VL3(IGC102),X'C0',AL3(0),X'C0',AL3(0)
0001A4 C000000000000000              39  DC X'C0',AL3(0),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
0001B0 0000000080000000              40  DC X'00',VL3(IGCERROR),X'80',VL3(IGC109),X'C0',AL3(0)
0001BC 0000000000000000              41  DC X'00',VL3(IGCERROR),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
0001C8 0000000000000000              42  DC X'00',VL3(IGCERROR),X'00',VL3(IGCERROR),X'00',VL3(IGC116)
0001D4 80000000                      43  DC X'80',VL3(IGC117)
0001D8                               44 USERORG  DS    0F
0001D8 0000000000000000              45  DC X'00',VL3(IGC220),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
0001E4 0000000000000000              46  DC X'00',VL3(IGCERROR),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
0001F0 0000000000000000              47  DC X'00',VL3(IGCERROR),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
0001FC 0000000000000000              48  DC X'00',VL3(IGCERROR),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
000208 0000000000000000              49  DC X'00',VL3(IGCERROR),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
000214 0000000000000000              50  DC X'00',VL3(IGCERROR),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
000220 0000000000000000              51  DC X'00',VL3(IGCERROR),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
00022C 0000000000000000              52  DC X'00',VL3(IGCERROR),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
000238 0000000000000000              53  DC X'00',VL3(IGCERROR),X'00',VL3(IGCERROR),X'00',VL3(IGC246)
000244 00000000C0000000              54  DC X'00',VL3(IGCERROR),X'C0',AL3(0),X'00',VL3(IGCERROR)
000250 0000000000000000              55  DC X'00',VL3(IGCERROR),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00025C 0000000000000000              56  DC X'00',VL3(IGCERROR),X'00',VL3(IGCERROR),X'00',VL3(IGCERROR)
000268 1BFF                          57 IGCRETRN SR    15,15
00026A 07FE                          58          BR    14
                                     59          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      08     0000C9
   01       01      08     00017D
   01       01      08     000195
   01       02      18     000001
   01       03      18     000005
   01       04      18     000009
   01       05      18     00000D
   01       06      18     000011
   01       07      18     000015
   01       08      18     000019
   01       09      18     00001D
   01       0A      18     000021
   01       0B      18     000025
   01       0C      18     000029
   01       0D      18     00002D
   01       0E      18     000031
   01       0F      18     000039
   01       10      18     00003D
   01       11      18     000041
   01       12      18     000049
   01       13      18     000095
   01       14      18     000099
   01       14      18     0000C5
   01       14      18     000105
   01       14      18     00010D
   01       14      18     00011D
   01       14      18     000125
   01       14      18     000129
   01       14      18     00012D
   01       14      18     000135
   01       14      18     000141
   01       14      18     000161
   01       14      18     000165
   01       14      18     0001A9
   01       14      18     0001AD
   01       14      18     0001B1
   01       14      18     0001BD
   01       14      18     0001C1
   01       14      18     0001C5
   01       14      18     0001C9
   01       14      18     0001CD
   01       14      18     0001DD
   01       14      18     0001E1
   01       14      18     0001E5
   01       14      18     0001E9
   01       14      18     0001ED
   01       14      18     0001F1
   01       14      18     0001F5
   01       14      18     0001F9
   01       14      18     0001FD
   01       14      18     000201
   01       14      18     000205
   01       14      18     000209
   01       14      18     00020D
   01       14      18     000211
                                                 RELOCATION DICTIONARY                                          PAGE   2


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       14      18     000215
   01       14      18     000219
   01       14      18     00021D
   01       14      18     000221
   01       14      18     000225
   01       14      18     000229
   01       14      18     00022D
   01       14      18     000231
   01       14      18     000235
   01       14      18     000239
   01       14      18     00023D
   01       14      18     000245
   01       14      18     00024D
   01       14      18     000251
   01       14      18     000255
   01       14      18     000259
   01       14      18     00025D
   01       14      18     000261
   01       14      18     000265
   01       15      18     0000A1
   01       16      18     0000A5
   01       17      18     0000A9
   01       18      18     0000AD
   01       19      18     0000B1
   01       1A      18     0000B5
   01       1B      18     0000B9
   01       1C      18     0000BD
   01       1D      18     0000C1
   01       1E      18     0000D9
   01       1F      18     0000E1
   01       20      18     0000E9
   01       21      18     0000F9
   01       22      18     000119
   01       23      18     00013D
   01       24      18     000151
   01       25      18     000171
   01       26      18     000199
   01       27      18     0001B5
   01       28      18     0001D1
   01       29      18     0001D5
   01       2A      18     0001D9
   01       2B      18     000241
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IBMORG   00001 000000 00003
IGCRETRN 00002 000268 00057   0020  0035  0037
USERORG  00004 0001D8 00044   0002



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =    59
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  220 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM35.R0000159      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM35.S0000160      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM35.S0000160      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG36    / START 78240.1945
IEF374I STEP /SG36    / STOP  78240.1945 CPU   0MIN 00.20SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:26.69   ALLOC START    19:45:26.70   MAIN REGION ----- 300K                          *
*   STEP NAME SG36       STEP END TIME  19:45:27.27   PGM START TIME 19:45:26.77   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.58   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.20   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0151 ----------- 22       0151 ----------- 13    *
*   0151 ----------- 13       0353 ----------- 28       0151 ----------- 39       0130 ----------- 61                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM35  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:27.28   ALLOC START    19:45:27.29   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:27.31   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM35 / START 78240.1945
IEF376I  JOB /R21AM35 / STOP  78240.1945 CPU   0MIN 00.20SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM35    JOB READ TIME 19:44:52.83   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.20   *
*   JOB CLASS A          JOB INIT TIME 19:45:26.69   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.64   *
*   ACCOUNT              JOB END TIME  19:45:27.33   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     TTTTTTTT       A      333333333       66                              A
            RRRRRRRRR  222222222      11     TTTTTTTT      AAA     333333333      66                              AAA
            RR     RR  22     22     111        TT        AA AA    33    33      66                              AA AA
            RR     RR        22       11        TT       AA   AA        33      66                              AA   AA
            RRRRRRRRR       22        11        TT      AA     AA      3333    6666666                         AA     AA
            RRRRRRRR       22         11        TT      AA     AA     333333  666666666                        AA     AA
            RR  RR        22          11        TT      AAAAAAAAA         33  66     66                        AAAAAAAAA
            RR   RR      22           11        TT      AAAAAAAAA  33     33  66     66                        AAAAAAAAA
            RR    RR    22222222    111111      TT      AA     AA  333333333  666666666                        AA     AA
            RR     RR  222222222    111111      TT      AA     AA   3333333    6666666                         AA     AA

***********A  START   R21TA36    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA36    START  A***********
***********A  START   R21TA36    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA36    START  A***********
***********A  START   R21TA36    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA36    START  A***********
***********A  START   R21TA36    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA36    START  A***********
***********A  START   R21TA36    SYS SYSA   WTR 00E   07:47:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA36    START  A***********


//R21TA36 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG37 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(4,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.TSOGEN,DISP=(SHR,PASS)
//  DD DSN=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.TSOMAC,DISP=(SHR,PASS),VOLUME=(,RETAIN)
// DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//            DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//            SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEAQNU00)
//SYSIN DD *
IEF236I ALLOC. FOR R21TA36  SG37
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEAQNU00  SD  01 000000 000F08
IEAQEX00  LD     000000         01
IEEBC1PE  ER  02
IEA0TI00  ER  03
TREX      ER  04
DISMISS   LD     000068         01
IEA0IO02  LD     00006C         01
IEAQIO00  LD     00009C         01
IORGSW    LD     0000A2         01
IEA0IO01  LD     0000A2         01
IECINT    ER  05
TRIO      ER  06
SYSWSAVE  LD     0005B4         01
IEAQPK00  LD     00012E         01
ENTRY2    LD     000132         01
IECXTRA   ER  07
IEA0PL00  ER  08
TRPI      ER  09
IHLMCIH   ER  0A
IHLBHOOK  ER  0B
IEA0EF00  LD     000208         01
IEA0DS02  LD     00034C         01
IEA0XE00  LD     0003B0         01
IEA0DS    LD     000428         01
IEA0DS01  LD     00042E         01
IEARMSSW  LD     00042A         01
IEAQTR02  ER  0C
IECXTLER  LD     000822         01
IEAQSC00  LD     0008C0         01
IGCERROR  LD     00094A         01
IEAMSTCB  ER  0D
IEATCBP   LD     000964         01
IEASMFEX  LD     00096C         01
IEATLEXT  ER  0E
ERFERR    LD     000C4A         01
IEA0VL00  LD     000C7A         01
IEA0VL01  LD     000CB4         01
WAITTCB   LD     000D00         01
SIRB      LD     000D80         01
IECRQE00  ER  0F
IEAQTD01  ER  10
IEAQTE00  ER  11
IEAERTCB  ER  12
IEARMSAD  LD     000E04         01
IEAHEAD   ER  13
IBMORG    ER  14
IEAQTR00  ER  15
IEA0AB00  ER  16
IEA0AB01  ER  17
LOWUSER   LD     000E20         01
USERORG   ER  18
IEATYPE1  LD     000E38         01
TRDISP    ER  19
TRSVC     ER  1A
IEASVDCB  ER  1B
                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    2
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                             8/28/78


IEAERRTA  ER  1C
IECPBLDL  ER  1D
IEWFTRAN  ER  1E
IEAERWA   ER  1F
ERCOUNT   LD     000E66         01
IEA0EXIT  LD     000E74         01
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1      PRINT  ON,NODATA
                                      2  IEAQNU  JSTIME,158,MCH,117,220,TRACE,0,                              XXXXXXXXX
                                                       0,0,0,1,EMUN,0,0,1,1
                    OPTION 4 NUCLEUS                                                                           PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                4+IEAQNU00 START 0
                    COMMUNICATIONS VECTOR TABLE                                                                PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      7+*...COMMUNICATION VECTOR TABLE- C.V.T...
000000                                8+CVTSECT  DSECT
                                      9+*
                                     10+*              OS/360
                                     11+*        COMMUNICATION VECTOR TABLE
                                     12+*
                                     13+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5
                                     14+*
000010                               15+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT
                                     16+*
                                     17+*              BEGINNING OF CVT PROPER
                                     18+*
000000                               19+         DS    0F
000000                               20+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE
                                     21+*
000000 00000000                      22+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST
000004 00000000                      23+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE
                                     24+*                              ASYNCHRONOUS EXITS
000008 00000000                      25+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB
00000C 00000000                      26+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB
000010 00000000                      27+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT
                                     28+*                              CONSOLE INTERRUPTION ROUTINE
000014 00000000                      29+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE
000018 00000000                      30+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING
                                     31+*                              ROUTINE FOR SUPERVISOR
00001C 00000000                      32+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                     33+*                              RELATIVE TRACK ADDR TO ABSOLUTE
000020 00000000                      34+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                     35+*                              ABSOLUTE TRACK ADDR TO RELATIVE
000024 00000000                      36+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION
                                     37+*                              IN UCB LOOKUP TABLE
000028 00000000                      38+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION
                                     39+*                              IN UCB LOOKUP TABLE
00002C 00000000                      40+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE
                                     41+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES
000030 00000000                      42+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY
                                     43+*                              IN UCB LOOKUP TABLE
000034 00000000                      44+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE
000038 00000000                      45+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL
00003C 00000000                      46+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)
                                     47+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS
                                     48+*                              MASTER SCHEDULER RESIDENT DATA AREA
000040 00000000                      49+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE
000044 00000000                      50+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE
000048 00000000                      51+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS
                                     52+*                              FOR DAMAGE ASSESSMENT ROUTINES
00004C 00000000                      53+CVT0FN00 DC    A(0) -        RESERVED (MVT)
000050 0A03                          54+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER
000052 07FE                          55+CVTBRET  BR    14 -          RETURN TO CALLER
000054 00000000                      56+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB
000058 00000000                      57+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER
                                     58+*                              ROUTINE (SHPC FIRST)
00005C 00000000                      59+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL
000060 00000000                      60+CVTSJQ   DC    A(0) -        RESERVED (MVT)
000064 00000000                      61+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR
                    COMMUNICATIONS VECTOR TABLE                                                                PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000068 00000000                      62+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE
                                     63+*                              FOR INTERVAL TIMER
00006C 00000000                      64+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE
                                     65+*                              FOR INTERVAL TIMER
000070 00000000                      66+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE
000074 10                            67+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM
000040                               68+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS
000020                               69+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS
000010                               70+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1
000004                               71+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING
000075 000000                        72+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC
000078 00000000                      73+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE
00007C 00000000                      74+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER
000080 00000000                      75+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS
000084 00000000                      76+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE
000088 00000000                      77+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER
00008C 00000000                      78+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE
000090 00000000                      79+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE
000094 00000000                      80+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT
                                     81+*                              DATA AREA (MVT/MFT)
000098 00000000                      82+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE
00009C 00000000                      83+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE
0000A0 00000000                      84+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE
0000A4 00000000                      85+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS
0000A8 00000000                      86+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)
0000AC 00000000                      87+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD
                                     88+*                              (0 IF GFX INACTIVE) MVT
0000B0 00000000                      89+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA
                                     90+*                              (MVT/MFT)
0000B4 0000                          91+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER
0000B6 00                            92+CVTOPTA  DC    AL1(00) -     MISCELLANEOUS FLAGS
000080                               93+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)
000040                               94+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --
                                     95+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000020                               96+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --
                                     97+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000010                               98+CVTNIP   EQU   X'10' -       NIP RUNNING
000008                               99+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)
000004                              100+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE
000002                              101+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT
000001                              102+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT
0000B7 00                           103+CVTOPTB  DC    AL1(00) - MISCELLANEOUS FLAGS
000080                              104+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)
000020                              105+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)
                                    106+*
                                    107+*              PCP OVERLAY
                                    108+*
0000B8                              109+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART
0000BB                              110+CVTSTUSA DS    B -           STATUS BYTE A
000008                              111+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART
                                    112+*                              WAS INITIATED INTRASTEP
000004                              113+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART
                                    114+*                              WAS INITIATED INTERSTEP
000002                              115+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM
                                    116+*                              AND DATA HAS NOT BEEN READ
                    COMMUNICATIONS VECTOR TABLE                                                                PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000BC                              117+         DS    CL2 -         RESERVED
0000BE                              118+         DS    CL2 -         RESERVED
                                    119+*
                                    120+*              MVT/MFT OVERLAY
                                    121+*
0000B8                              122+         ORG   CVTCRTTR
                                    123+*
0000B8 00000000                     124+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR
0000BC 00000000                     125+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE
                                    126+*
                                    127+*              END OF OVERLAYS
                                    128+*
0000C0 00000000                     129+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)
0000C4 00000000                     130+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA
0000C8 00000000                     131+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT
                                    132+*                              (MVT/MPS)
0000CC 00000000                     133+CVTUSER  DC    A(0) -        A WORD TO THE USER
                                    134+*
                                    135+*              MFT/MVT CVT EXTENSION
                                    136+*
0000D0 00000000                     137+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT
0000D4 0A0D                         138+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)
0000D6 0A06                         139+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)
0000D8 00000000                     140+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT
0000DC 00000000                     141+CVTPATCH DC    A(0) -        ADDR OF FE PATCH AREA
0000E0 00000000                     142+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA
                                    143+*                              (MVT/MFT)
0000E4                              144+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)
0000E4 00                           145+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)
000080                              146+CVTTSRDY EQU   X'80' -       TIME SHARING READY
0000E5 000000                       147+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)
0000E8 00000000                     148+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)
0000EC                              149+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)
0000EC 00                           150+CVTGTFST DC    B'0' -        STATUS FLAGS
0000C0                              151+CVTGTFS  EQU   X'C0' -       STATE
                                    152+*/       00    CVTGTFIN      INACTIVE
                                    153+*/       01    CVTGTFSR      STARTING
                                    154+*/       10    CVTGTFSP      STOPPING
                                    155+*/       11    CVTGTFAC      ACTIVE
000020                              156+CVTSTATE EQU   X'20' -       IN CONTROL
000010                              157+CVTMODE  EQU   X'10' -       EXT MODE
000008                              158+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA
000004                              159+CVTUSR   EQU   X'04' -       USR TRACE
000002                              160+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID
0000ED 000000                       161+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE
0000F0                              162+CVTTCMFG DS    0B -          TCAM FLAGS
000080                              163+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)
0000F0 00000000                     164+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF
                                    165+*                            TCAM ADDRESS VECTOR TABLE
                                    166+*
                                    167+*              MVT CVT EXTENSION
                                    168+*
0000F4                              169+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE
                                    170+*                            (PWF)                               S21167
0000F4 80                           171+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY
                    COMMUNICATIONS VECTOR TABLE                                                                PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    172+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167
000080                              173+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167
0000F5 000000                       174+CVTVOLT2 DC    AL3(0) -  PWF RECHECK TIME DELAY.  THIS VALUE IS
                                    175+*                            OVERLAID BY CVTVOLM2 AFTER PWF
                                    176+*                            INITIALIZATION                      S21167
0000F8 00000000                     177+         DC    A(0) -        RESERVED
                                    178+*
                                    179+*              MVT/MFT CVT EXTENSION
                                    180+*
0000FC 00000114                     181+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1
                                    182+*                            (ICB421)                APAR'S 47331,47332
000100                              183+         DS    F -           RESERVED
000104                              184+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE
000104                              185+         DS    X -           RESERVED
000105 000000                       186+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE
000108                              187+         DS    F -           RESERVED
00010C                              188+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307
00010C                              189+         DS    X -           RESERVED                            ICB307
00010D 000000                       190+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND
                                    191+*                            COMMUNICATION AREA                  ICB307
000110                              192+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308
000110                              193+         DS    X -           RESERVED                            ICB308
000111 000000                       194+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY
                                    195+*                            ROUTINE                             ICB308
                                    196+*
                                    197+*              COMMON EXTENSION 1
                                    198+*              ADDRESS OF EXTENSION IS IN CVTEXT1
                                    199+*
                                    200+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,
                                    201+*              YOU SHOULD CODE -
                                    202+*
                                    203+*              L     REG,CVTEXT1
                                    204+*              USING CVTXTNT1,REG
                                    205+*
                                    206+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.
                                    207+*
000114                              208+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1
                                    209+*                            (ICB421)                APAR'S 47331,47332
000114 00000000                     210+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS
                                    211+*                            (ISAM) (ICB421)         APAR'S 47331,47332
                                    212+*
                                    213+*              END OF CVT PROPER
                                    214+*
                                    215+*
                                    216+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT
                                    217+*
000000                              218+TSCVT    DSECT
000000                              219+TSCVTTJB DS    A .      POINTER TO TJB TABLE
000004                              220+TSCVTRCB DS    A .      POINTER TO RCB TABLE
000008                              221+TSCVTRPT DS    A .      PTR TO REFERENCE POINTER TABLE
00000C                              222+TSCVTFLG DS    X .      FLAGS TO INDICATE FUNCT REQUESTED OF TSC
00000D                              223+         DS    X
000080                              224+TSCSWPND EQU   X'80' .  SWAP ENDED
000040                              225+TSCSWPBG EQU   X'40' .  SWAP SHOULD BE STARTED
000020                              226+TSCLOGON EQU   X'20' .  A LOGON IS TO BE PROCESSED
                    COMMUNICATIONS VECTOR TABLE                                                                PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000010                              227+TSCDISC  EQU   X'10' .  A DISCONNECT IS TO BE PROCESSED
                                    228+*        BITS  4-15     RESERVED
00000E                              229+TSCVTFL1 DS    X .      FLAGS TO INDICATE FUNCT REQUESTED OF TSC
00000F                              230+         DS    X
000080                              231+TSCSSTOP EQU   X'80' .  SYSTEM STOP REQUESTED AND TSC IS STOPPING
000040                              232+TSCRSTOP EQU   X'40' .  REGION STOP REQUESTED
000020                              233+TSCASTOP EQU   X'20' .  ABEND-STOP TS FLG. SET BY TSO/RMS IF TCAM MCH'S
                                    234+*                       SET BY TCAM STAE EXIT IF TCAM ABENDS
000010                              235+TSCLOGPR EQU   X'10' .  SET BY S02 WHEN NOT ENOUGH SWAP SPACE IS
                                    236+*                       ALLOCATED WHEN LOGON IMAGE BEING PROCESSED
                                    237+*        BITS  4-15     RESERVED
000010                              238+TSCVTSDC DS    A .      PTR TO 1ST DCB FOR SWAP DS
000014                              239+TSCVTCUS DS    1H .     CURR NO. OF USERS LOGGED ON TSO
000016                              240+TSCVTLUS DS    H .      CURRENT LIMIT NO. OF USERS LOGGED ON TO TSO
                                    241+*                       SET BY TSC
000018                              242+TSCVTNTJ DS    1H .     NO.TJB-TSB'S ALLOC BY TSO INITIALLY
00001A                              243+TSCVTSZU DS    1H .     SIZE OF TJB
00001C                              244+TSCVTCTR DS    1H .     NO. OF RCB'S ALLOC BY TSO INITIALLY
00001E                              245+TSCVTMUS DS    H .      MAX NUMBER OF USERS LOGGED ON TO TSO
                                    246+*                       SET BY START AND MODIFY COMMANDS (TSC)
000020                              247+TSCVTSAV DS    A .      PTR TO SAV AREA FOR TSC,TSIP&TS DISP
000024                              248+TSCVTECB DS    A .      PTR TO TSECBTAB CTL BLK OF ECB'S
000028                              249+TSCVTSIA DS    A .      PTR TO TSIA
00002C                              250+TSCVTICB DS    A .      PTR TO TSICB
000030                              251+TSCVTI01 DS    A .      ADDRESS OF ENTRY POINT IKJEAI01 TSIP BR ENTRY
000034                              252+TSCVTTQE DS    A .      PTR TO TQE FOR TSO'S TIME SLICING
000038                              253+TSCVTI02 DS    A .      ADDRESS OF ENTRY POINT IKJEAI02 IN TS DISPATCH
00003C                              254+TSCVTI03 DS    A .      ADDRESS OF ENTRY POINT IKJEAI03 IN TS DISPATCH
000040                              255+TSCVTD02 DS    A .      ADDRESS OF ENTRY POINT IKJEAD02 IN TS DRIVER
000044                              256+TSCVTLCQ DS    A .      ADDR OF TOP ELEM ON LOGON COMM. QUE
000048                              257+TSCVTTRB DS    A .      ADDR OF TRACE CTL BLK CHAIN
00004C                              258+TSCVTLPA DS    A .      ADDR OF 1ST CDE IN TS LINK PACK AREA
000050                              259+TSCVTSLF DS    1F .     SYSTEM INIATED LOGOFF
000054                              260+TSCVTTSC DS    A .      ADDR OF THE  TSC TASK'S TCB. (TSC)
000058                              261+TSCVTSPL DS    A .      ADDRESS OF START PARAMETER LIST
00005C                              262+TSCVTRSZ DS    H .      MIN REGION SIZE FOR LOGON
00005E                              263+         DS    CL2 .    RESERVED
000060                              264+TSCVTSVT DS    CL4 .    SVCTBL ENTRY FOR TSIP PRIOR TO START TS
000064                              265+TSCVTSVQ DS    CL4 .    SVCTBL ENTRY FOR QTIP PRIOR TO START TS
000068                              266+TSCVTABN DS    A .      ADDR OF OUT-OF-CORE ABEND RTN(IKJEAT07)
00006C                              267+TSCVTD03 DS    A .      ADDR OF EP IKJEAD03 IN TS DRIVER
000070                              268+TSCVTFLM DS    A .      ADDRESS OF ENTRY POINT - IKJEFLM
000074                              269+TSCVTQTP DS    A .      ADDRESS OF ENTRY FOR QTIP SVC - IKJGGQT1
000078                              270+TSCVTT08 DS    A .      ENTRY POINT ADDRESS OF IKJEAT08
00007C                              271+TSCVTDMP DS    A .      ADDRESS OF TSO DUMP CONTROL BLOCK-IKJTSDMP
000080                              272+TSCVTT06 DS    A .      ADDRESS OF TCB FOR IKJEAT06
000084                              273+TSCVTLS3 DS    A .      ADDRSS OF LOGON OUT OF CORE ABEND RTN
                                    274+**/
                    LOW CORE LOCATIONS                                                                         PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    276+*...FIXED, LOW CORE LOCATIONS.



000000                              279+IEAQFX00 DSECT  0539
000000                              280+         USING IPLPSW,0

000000                              282+IPLPSW   DS    0F .USE FOR BASE ADDRESSABILITY.
000000                              283+         DS    CL24



                                    285+*...INTERRUPT OLD PSW'S.

000018                              287+EXOPSW   DS    1D .TIMER/EXTERNAL OLD PSW.
000020                              288+SVCOPSW  DS    1D .SVC OLD PSW.
000028                              289+PIOPSW   DS    1D .PROGRAM CHECK OLD PSW.
000030 0000FF0000000000             290+MCOPSW   DC    X'0000FF0000000000' .MACHINE CHECK OLD PSW.     1759
000038                              291+IOOPSW   DS    1D .I/O OLD PSW.

000040                              293+         DS    CL12

00004C 00000000                     295+         DC    V(IEACVT) .ADDRESS OF CVT.
000050 62E08000                     296+TIMER    DC    X'62E08000' SIX HR VALUE IN 13.02083 USEC UNITS.  A50059

000054 00000000                     298+         DC    V(TRPTR) .ADDRESS OF TRACE ROUTINE.



                                    300+*...INTERRUPT NEW PSW'S.

000058 00040000                     302+EXNPSW   DC    XL4'00040000' .TIMER/EXTERNAL NEW PSW. DISABLED EXCEPT
00005C 00000000                     303+         DC    V(IEAQEX00) FOR MACHINE CHECK.

000060 00040000                     305+SVCNPSW  DC    XL4'00040000' .SVC NEW PSW. DISABLED EXCEPT FOR MACHINE
000064 00000000                     306+         DC    V(IEAQSC00) CHECK.

000068 00040000                     308+PINPSW   DC    XL4'00040000' .PROGRAM CHECK NEW PSW. DISABLED EXCEPT
00006C 00000000                     309+         DC    V(IEAQPK00) FOR MACHINE CHECK.


000070 00020000                     311+MCNPSW   DC    XL4'00020000' .MACHINE CHECK NEW PSW. COMPLETLY DISABLED
000074 000000E2                     312+         DC    XL4'000000E2' WAIT PSW

000078 00040000                     314+IONPSW   DC    XL4'00040000' .I/O NEW PSW. DISABLED EXCEPT FOR MACHINE
00007C 00000000                     315+         DC    V(IEAQIO00) CHECK.



                                    317+*      THE FOLLOWING MACRO DETERMINES THE LEVEL OF SER             ISER
000080 00000000                     318+         DC    V(IFBACTA) CHANNEL TYPE ASSIGNMENTS
000084 0000000000000000             319+         DC    2XL190'00' .LOGOUT FOR MODELS                   @AS76924
                                    320+*                                                                  ISER

                                    322+* LOW CORE AREA FOR LOADING PSW'S.
                    LOW CORE LOCATIONS                                                                         PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000200                              323+IEAPSW   DS    1D
                                    324+*DEFINITION OF AEQS USED BY THE ASYNCHRONOUS EXIT EFFECTOR. THIS
                                    325+*QUEUE IS REFERENCED BY THE EXIT EFFECTOR, SVC PURGE, AND BY IOS
                                    326+*AND MUST BE DEFINED AS ORIGINATING BELOW AN 8K BOUNDARY.
000208                              327+         DS    1H RESERVED FOR GENERATION
00020A                              328+IECIERLC DS    0H
00020A 0000                         329+AEQA     DC    AL2(0) ADDR OF NEXT RQE TO BE DEQUED           0539
00020C 0000                         330+AEQB     DC    AL2(0) ADDR OF LAST RQE QUEUED                 0539
00020E 0000                         331+AEQC     DC    AL2(0) INITIAL VALUE OF AEQA                   0539

                                    333+*        THE FOLLOWING ADCONS INITIALIZE THE QUEUE SO THAT
                                    334+*THE THREE ELEMENTS OF THE QUEUE POINT TO THE FIRST ELEMENT
00020D                              335+         ORG   AEQC-1 0539
00020D 00020A                       336+         DC    AL3(AEQA) 0539
00020B                              337+         ORG   AEQB-1 0539
00020B 00020A                       338+         DC    AL3(AEQA) 0539
000209                              339+         ORG   AEQA-1 0539
000209 00020A                       340+         DC    AL3(AEQA) 0539
000210                              341+         ORG   AEQC+2 RESET COUNTER                        0539


                                    343+*    THREE WORDS FOR QUEUE ORIGIN OF IQE-AEQ.  ABEND EXPECTS       0539
                                    344+*   THIS QUEUE TO BE ADJACENT TO THE RQE-AEQ.                      0539
000210                              345+         DS    0F 0539
000210 FF                           346+AEQJ     DC    X'FF' FLAG INDICATES EMPTY QUEUE                0539
000211 000210                       347+         DC    AL3(AEQJ) ADDR OF NEXT IQE TO BE DQD            0539
000214 FF                           348+AEQK     DC    X'FF' 0539
000215 000210                       349+         DC    AL3(AEQJ) ADDR OF LAST IQE QUEUED               0539
                                    350+* REG SAVE AREA FOR SVC FLIH.
000218                              351+IEASCSAV DS    16F
                                    352+* REG SAVE AREA FOR PROGRAM CHECK INTERRUPT HANDLER.
000258                              353+IEAPKSAV DS    16F

                                    355+* LOW CORE WORK AREA.
000298                              356+IEASAV   DS    3F
                                    357+*
                                    358+* CLASS MASK TABLE (CMT)  FOR GTF
                                    359+*
0002A4                              360+IHLCMT   DS    0F CLASSMASK TABLE
0002A4 00000000                     361+         DC    A(0) HOOK CONTROL TBL LINK ADDRESS.
0002A8 0700070007000700             362+         DC    16XL2'0700' SIMULATED CLASS MASK.
0002C8                              363+IEAEND   DS    0F 0539

00016C                              365+         ORG   IEAQFX00+X'16C'
                                    366+*...LOCATION X'16C' IS BRANCHED TO FROM THE IPL PROGRAM.
00016C 8200 0170      00170         367+         LPSW  *+4
000170 00040000                     368+         DC    X'00040000' .THIS PSW IS LOADED TO ENTER GOMAN
000174 00000000                     369+         DC    V(IEANIP4)
0002C8                              370+         ORG   IEAEND 0539
000000                              371+IEAQNU00 CSECT
                    MODULE EQUATES                                                                             PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    373+* MODULE USING STATEMENTS.
000000                              374+         USING IEAQFX00,0 0539


                                    376+*   GENERAL NAMES FOR REGISTERS, COUNTS, BCR MASKS, ETC.

000000                              378+C0       EQU   0 .0
000001                              379+C1       EQU   1 .1
000002                              380+C2       EQU   2 .2
000003                              381+C3       EQU   3 .3
000004                              382+C4       EQU   4 .4
000005                              383+C5       EQU   5 .5
000006                              384+C6       EQU   6 .6
000007                              385+C7       EQU   7 .7
000008                              386+C8       EQU   8 .8
000009                              387+C9       EQU   9 .9
00000A                              388+CA       EQU   10 .10
00000B                              389+CB       EQU   11 .11
00000C                              390+CC       EQU   12 .12
00000D                              391+CD       EQU   13 .13
00000E                              392+CE       EQU   14 .14
00000F                              393+CF       EQU   15 .15
000014                              394+C20      EQU   20 .20
000030                              395+C48      EQU   48 .48
000038                              396+C56      EQU   56 .56
00003C                              397+C60      EQU   60 .60
000040                              398+C64      EQU   64 .64
0000F0                              399+C240     EQU   240 .X'F0'
0000FF                              400+C255     EQU   255 .X'FF'


                                    402+*...TASK CONTROL BLOCK- T.C.B...

000000                              404+TCBFRS0  EQU   0 .FLOATING POINT REG 0.
000008                              405+TCBFRS2  EQU   8 .FLOATING POINT REG 2.
000010                              406+TCBFRS4  EQU   16 .FLOATING POINT REG 4.
000018                              407+TCBFRS6  EQU   24 .FLOATING POINT REG 6.
000000                              408+TCBRBP   EQU   0 .ADDRESS OF CURRENT RB.
000004                              409+TCBPIE   EQU   4 .ADDRESS OF P.I.E.
000014                              410+TCBTRN   EQU   20 .TESTRAN FLD-(HI.BYTE USED BY 94 EMUL)EM94
00001C                              411+TCBPKF   EQU   28 .PROTECT KEY FOR TASK.
00001D                              412+TCBFLGS  EQU   29 .TCB FLAG BYTES.
000020                              413+TCBWAIT  EQU   32 .NON-DISPATCHABLE BITS.
000023                              414+TCBDSP   EQU   35 .DISPATCHING PRIORITY.
000030                              415+TCBGRS   EQU   48 .REG SAVE AREA.
000074                              416+TCBTCB   EQU   116 .TCB LINK FIELD.
000078                              417+TCBTME   EQU   120 .ADDR OF TIMER ELEMENT.
00007C                              418+TCBJSTCB EQU   124 .JOB STEP TCB.
000080                              419+TCBNTC   EQU   128 .SISTER TASK.              20021
000084                              420+TCBOTC   EQU   132 .ORIGIN TCB.
000088                              421+TCBLTC   EQU   136 .LOWER THAN CURRENT.        MTS0
000094                              422+TCBTSFLG EQU   148 20021
000020                              423+TCBATT   EQU   X'20' .ATTENTION EXITS SHOULD NOT BE SCH.  20021
0000A4                              424+TCBTCT   EQU   164 .TCT ADDRESS                           SMF
                    MODULE EQUATES                                                                             PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    426+*...TCB FLAGS...

000020                              428+TCBFSIRB EQU   X'20' .TCB SIRB MASK.
000001                              429+TCBFX    EQU   X'01' .TCB IRB SUPPRESSION MASK.
000010                              430+TCBFRO   EQU   X'10' .TCB ROLLOUT MASK.
000002                              431+TCBFCD1  EQU   X'02' .TCB NO CORE MASK.
000010                              432+TCBFSMC  EQU   X'10' .SYS MUST COMPLETE FLAG.
000008                              433+TCBFJMC  EQU   X'08' .STEP MUST COMPLETE FLAG.



                                    435+*...CDE DISPLACEMENTS...                                          19017

000000                              437+CDENEXT  EQU   0 .CHAIN PTR-NEXT CDE.           19017
00000C                              438+CDENAM2  EQU   12 .MODULE NAME-LAST 4 CHAR.      19017
000011                              439+CDEEPNT  EQU   17 .MODULE ENTRY POINT ADDR.      19017



                                    441+*...REQUEST BLOCK DISPLACEMENTS...

000000                              443+RBEXRTNM EQU   0 .ERROR RTN NAME
000000                              444+RBSVADDR EQU   0 .ADDR OF SAVE AREA.
000000                              445+RBNAME   EQU   0 .RB NAME.
000008                              446+RBSIZE   EQU   8 .RB SIZE FIELD (DOUBLE WORDS).
00000A                              447+RBSTAB   EQU   10 .STATUS ATTRIBUTE BITS.
00000B                              448+RBSTAB1  EQU   11 .2ND BYTE-STATUS ATTRIBUTE BITS.    20021
000020                              449+RBATTN   EQU   X'20' .INDICATES ATTENTION EXIT ROUTINE.   20021
00000C                              450+RBEP     EQU   12 .ENTRY POINT OF ASYNCH. RTNS.
000010                              451+RBOPSW   EQU   16 .OLD PSW SAVED AT INTERRUPT.
000018                              452+RBIQUE   EQU   24 .QUEUE FIELD FOR IQE'S AND RQE'S.
00001C                              453+RBWCF    EQU   28 .WAIT COUNT
00001C                              454+RBLINK   EQU   28 .RB LINK FIELD.
000020                              455+RBGRSAVE EQU   32 .REG SAVE AREA.


                                    457+*...RB FLAGS...

000040                              459+RBFACTV  EQU   X'40' .RB ACTIVE MASK.



                                    461+*...PIE DISPLACEMENTS...

000000                              463+PIEPICA  EQU   0 .PICA ADDR IN PIE.
000004                              464+PIEPSW   EQU   4 .PSW IN PIE.
000018                              465+PIEREG1  EQU   24 .REGISTER 1 IN PIE SAVE AREA    9570



                                    467+*...TIMER QUEUE ELEMENT DISPLACEMENTS...

000000                              469+TQEFLGS  EQU   0 .TQE FLAG BYTE.
00000C                              470+TQEVAL   EQU   12 .TQE LENGTH FIELD.         MTS0
000014                              471+TQESAV   EQU   20 .JST TIMER SAVE AREA.  MTS0
                    MODULE EQUATES                                                                             PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    473+*...TIMER QUEUE ELEMTNT FLAG BITS (TQEFLGS)...
000080                              474+TQEOFFQ  EQU   X'80' .1 IF TQE IS OFF-QUEUE.


                                    476+* IQE EQUATES
000000                              477+IQELNK   EQU   0 .4 BYTE LINK FIELD.
000004                              478+IQEPARAM EQU   4 .4 BYTE PARAMETER.
000008                              479+IQEIRB   EQU   8 .4 BYTE IRB ADDR.
00000C                              480+IQETCB   EQU   12 .4 BYTE TCB ADDR.

                                    482+* RQE EQUATES
000000                              483+RQELNK   EQU   0 .2 BYTE LINK FIELD.
000002                              484+RQEUCB   EQU   2 .2 BYTE UCB ADDR.
000008                              485+RQEDEB   EQU   8 .4 BYTE DEB ADDR.
00000C                              486+RQETCB   EQU   12 .4 BYTE TCB ADDR.

                                    488+* DEB EQUATES
000000                              489+DEBTCBAD EQU   0 .TCB ADDR IN DEB.           045
000008                              490+DEBIRB   EQU   8 .IRB ADDR IN DEB.

                                    492+* UCB EQUATES
000008                              493+UCBTAB   EQU   8 .ERROR CODE.



                                    495+*...TIMING CONTROL TABLE DISPLACEMENTS- TCT...                      SMF

000000                              497+TCTUCBP  EQU   0 .DISPLACEMENT TO UCB ADDRESS           SMF
000000                              498+TCTDCBTD EQU   0 .DISP TO DD ENTRY DISPLACEMENT         SMF
000002                              499+TCTSCTR  EQU   2 .DISPLACEMENT TO NUMBER OF UCB'S       SMF
000002                              500+TCTIOTSD EQU   2 .DISPLACEMENT TO SLOT                  SMF
000003                              501+TCTSW    EQU   3 .TCT OPTION SWITCHES                   SMF
000004                              502+TCTDCTR  EQU   4 .DISPLACEMENT TO EXCP COUNTER          SMF
000008                              503+TCTCOMIO EQU   8 .COMMON AREA FOR I/O TABLE             SMF
00000C                              504+TCTIOTBL EQU   12 .I/O TABLE ADDRESS                     SMF


                                    506+*...TCT FLAGS...                                                    SMF


000040                              508+NOCOUNT  EQU   X'40' .EXCP COUNT/NON-COUNT INDICATOR        SMF
0000C0                              509+CSVRB    EQU   X'C0' .SVRB TEST MASK                        SMF



                                    511+*...DCB DISPLACEMENTS...                                            SMF

000028                              513+DCBTIOT  EQU   40 .DD ENTRY OFFSET                       SMF
000030                              514+DCBOFLGS EQU   48 .OPEN/CLOSE FLAGS                      SMF


                                    516+*...DCB FLAGS...                                                    SMF

000011                              518+OB       EQU   X'11' .DCB OPENED/BUSY FLAGS           SMF
                    OPTION 4 NUCLEUS REGISTERS                                                                 PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78


                                    521+* EXTERNAL FLIH.
000002                              522+XXRET    EQU   2
00000A                              523+XXBASE   EQU   10
                                    524+*              14            .EX FLIH BASE REG.
00000F                              525+XXTCB    EQU   15
00000F                              526+XXRB     EQU   15
00000B                              527+EXFLRET  EQU   11 .LINK REGISTER                      M3335


                                    529+* I/O FLIH
000005                              530+XIOSBASE EQU   5
000006                              531+XIOS     EQU   6
00000A                              532+XBS      EQU   10
00000E                              533+XA       EQU   14
00000F                              534+XB       EQU   15 .MUST BE XA+1
00000E                              535+XIOTCB   EQU   14
00000D                              536+XIORB    EQU   13
00000B                              537+IOFLRET  EQU   11 .LINK REGISTER                      M3335


                                    539+* SMF SYS WAIT TIME COLLECTION                                      SMF
00000A                              540+SYSWBASE EQU   10 .BASE REGISTER                        SMF
000004                              541+CURRENT  EQU   4 .'CURRENT' TCB                        SMF
000005                              542+SYSWTCB  EQU   5 .ADDR SYS WAIT TCB                    SMF
000006                              543+INTIMVAL EQU   6 .VALUE IN TIMER                       SMF
000007                              544+TIMESAVE EQU   7 .SAVE FIELD                           SMF
000008                              545+TIMERACC EQU   8 .ACC SYS WAIT TIME FIELD              SMF
00000B                              546+FLIHRET  EQU   11 .RETURN REGISTER                    M3335
000050                              547+INTTIME  EQU   80 .TIMER LOCATION                       SMF


                                    549+* PI FLIH
000001                              550+XNPIPIE  EQU   1
00000A                              551+XNPI1    EQU   10
                                    552+*              11            .BASE REG.
                                    553+* CC     EQU   12                      .REG 12
                                    554+* CD     EQU   13                      .REG 13
00000E                              555+XNPIX    EQU   14


                                    557+* MONITOR CALL INTERFACE.                                         21014
000003                              558+IEACVT   EQU   3 .CVT ADDR REG.                      21014
00000E                              559+IEARE    EQU   14 .RETURN REG.                        21014
00000F                              560+IEARF    EQU   15 .LINK REG.                          21014


                                    562+* STAGE 2 OF EXIT EFFECTOR.
000001                              563+X2QE     EQU   1 .QE ADDR. REG.
00000A                              564+X2WK     EQU   10 .WORK REG.
00000B                              565+X2BASE   EQU   11 .BASE REG.
                                    566+*              14            .RETURN REG.


                                    568+* TASK SWITCH
                    OPTION 4 NUCLEUS REGISTERS                                                                 PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00000A                              569+XPTCB    EQU   10 .INPUT TCB.
00000B                              570+XN       EQU   11 .WORK REG.
                                    571+*              12            .BASE REG.
00000E                              572+XRET     EQU   14 .RETURN REG.


                                    574+* DISPATCHER
000001                              575+XDSTQE   EQU   1 .TQE ADDR.
000002                              576+XDSLNK   EQU   2
000002                              577+XBR      EQU   2 .JST- LINKAGE REG.
000002                              578+X2       EQU   2
00000A                              579+TIMERVAL EQU   10 .VALUE IN INTERVAL TIMER            M4774
000008                              580+XSEARCH  EQU   8 .JST- SEARCH START.
000009                              581+XTQESAVE EQU   9 .SAVE ADDRESS OF TQE.       MTS0
00000A                              582+XDSNEW   EQU   10 .'NEW' REG.
00000B                              583+XDSOLD   EQU   XDSNEW+1 .'OLD' REG.
00000C                              584+XDSRB    EQU   12
00000F                              585+R15      EQU   15 EP TO TIMER ENQ/DEQ RTN
00000C                              586+XNDBITS  EQU   12 .TEST FOR NON-DISPATCHABLE BITS.
00000C                              587+XSBR     EQU   12 .JST- LINKAGE REG.
00000D                              588+XJSTCB   EQU   13 .JST
00000D                              589+XDSWKTCB EQU   13
00000D                              590+XDSFP    EQU   13 FLOATING POINT REGISTER DISP.


                                    592+* STAGE 3 OF EXIT EFFECTOR.
                                    593+*              0             .IQE ADDR.
                                    594+*              1             .PARAM VALUE.
000002                              595+X3PREV   EQU   2
000003                              596+X3CURR   EQU   3
000004                              597+X3DEB    EQU   4
000006                              598+X3IRBIQE EQU   6
000006                              599+X3UCB    EQU   6
000006                              600+X3WR     EQU   6
000007                              601+X3IQE    EQU   7
000008                              602+X3IRB    EQU   8
000008                              603+XSIRB    EQU   8
000009                              604+X3RET    EQU   9
00000A                              605+X3TCB    EQU   10
00000D                              606+X3WKX    EQU   13
00000F                              607+X3WK15   EQU   15
                                    608+*                                                                 20021
                                    609+* TIME SHARING OPTION (TSO) EQUATES FOR ATTENTION EXIT HANDLING   20021
                                    610+*                                                                 20021
000001                              611+T1       EQU   1 .GEN.PURPOSE REGS.USED IN STAGE 3-TSO-    20021


                                    613+* SVC FLIH
000001                              614+XERRNO   EQU   1
000002                              615+SVCPOST  EQU   X'02' .                 SVC NUMBER FOR POST        M0581
000000                              616+SVCEXCP  EQU   X'00' .                 SVC NUMBER FOR EXCP        M0581
000006                              617+XSVCEP   EQU   6
000006                              618+XSVCNO   EQU   6
000007                              619+XTBORG   EQU   7
000007                              620+XTRX     EQU   7
                    OPTION 4 NUCLEUS REGISTERS                                                                 PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                              621+XHIIBM   EQU   8
00000C                              622+XTREP    EQU   12
00000D                              623+XABTERM  EQU   13
                                    624+*              14                 .RETURN REG FOR ABTERM.
                                    625+*              15                 .BASE REG FOR PART OF RTN.


                                    627+* EXCP COUNTER.                                                     SMF
000000                              628+R0       EQU   0 19028
000001                              629+ADDRIQE  EQU   1 .IQE ADDR                 19028
000001                              630+IRBADDR  EQU   1 19028
000001                              631+XSQPTR   EQU   1 19028
000002                              632+LIMOFF   EQU   2 .OUTLM OFFSET SAVEREG       19028
000003                              633+XSCMMTBL EQU   3 19028
000004                              634+TCBSAVE  EQU   4 .TCB SAVEREG                19028
000000                              635+XTCBPASS EQU   0 .PASSED TCB POINTER               SMF
000004                              636+XDCBPAS  EQU   4 .PASSED DCB POINTER              SMF
000007                              637+XUCBPTR  EQU   7 .UCB POINTER                      SMF
000005                              638+GMBRNCH  EQU   5 .GETMAIN  BRANCH          19028
000005                              639+XSEXTEFT EQU   5 19028
000006                              640+XS1      EQU   6 19028
000007                              641+DCBSAVE  EQU   7 .DCB SAVEREG                19028
000008                              642+IQEADDR  EQU   8 19028
000009                              643+SMCAADR  EQU   9 .SMCA ADDRESS             M3261
00000A                              644+XDCBPTR  EQU   10 .REAL PP DCB POINTER             SMF
00000A                              645+XTIOTD   EQU   10 .CONTAINS TIOT DD ENTRY DISP.     SMF
00000B                              646+XTCBPTR  EQU   11 .TCB POINTER                      SMF
00000B                              647+XTCTPTR  EQU   11 .TCT POINTER                      SMF
00000C                              648+XRWRK    EQU   12 .WORK REGISTER                    SMF
00000D                              649+XTCTSRC  EQU   13 .LOOK UP TABLE SEARCH POINTER     SMF
00000A                              650+XSYSTRTN EQU   10 .ASYSNCH RTN              19028
00000D                              651+XRWRK2   EQU   13 .WORK REGISTER            19028
00000E                              652+XRTN     EQU   14 .RETURN REGISTER                  SMF
00000E                              653+R14      EQU   14 19028
00000E                              654+XRWRK4   EQU   14 .WORK REGISTER            19028
00000F                              655+BASESMF  EQU   15 .EXCP COUNTER ROUTINE BASE     M3261
000060                              656+C96      EQU   96 .IQE ADDR OFFSET IN IRB   19028
000010                              657+IQEDCB   EQU   16 .4 BYTE DCB ADDR          19028
000014                              658+IQEOUTLM EQU   20 .4 BYTE OUTLIM OFFSET    19028
00000F                              659+XBASE    EQU   15 .EXCP COUNTER ROUTINE BASE        SMF
000004                              660+VTCTINIT EQU   4 .INITIATOR TCB ADDR IN TCT19028
000090                              661+IRBLNGTH EQU   144 .IRB/IQE LENGTH           19028
000008                              662+STABSIZE EQU   8 .SIZE(STAB OFSET IN IRB)  19028
00000C                              663+ENTRY    EQU   12 .ENTRY POINT IN IRB       19028
000020                              664+EXITS    EQU   X'20' .MASKS FOR SMF EXITS      M3261
000038                              665+DEC56    EQU   56 DEC OFFSET OF BIN 0       A30586
000003                              666+CELLCTR  EQU   3 BIN NO COUNTER REG        A30586
00000B                              667+CNT11    EQU   11 INITIAL COUNTER VALUE      20472
000010                              668+DEC16    EQU   16 DEC OFFSET OF EACH BIN    A30586


                                    670+* SVC TYPE 1 EXIT
000002                              671+X1TCB    EQU   2
                                    672+*              3
                                    673+*XRB     EQU   5
                    OPTION 4 NUCLEUS REGISTERS                                                                 PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    674+*              14


                                    676+* FETCH SEQUENCE
000000                              677+X0       EQU   0
000001                              678+X1       EQU   1
000007                              679+XFWK     EQU   7
000008                              680+XFRETN   EQU   8
000009                              681+XFEP     EQU   9
00000E                              682+REGX14   EQU   14 19022
00000F                              683+REGX15   EQU   15 19022
000001                              684+ONE      EQU   1 19022
000000                              685+ZERO     EQU   0 19022
000005                              686+FIVE     EQU   5 19022
000007                              687+RERPNM   EQU   7 . ERP NAME LAST 4 CHAR    M0044


                                    689+* MODULE REGISTERS
00000A                              690+XTRBASE  EQU   10
00000B                              691+XTRET    EQU   11
000003                              692+XCVT     EQU   3 .CVT ADDRESS
000004                              693+XTCB     EQU   4 .TCB ADDRESS OF CURRENT TASK.
000005                              694+XRB      EQU   5 .RB ADDRESS OF CURRENT TASK.


                                    696+*...SVC EQUATES...

000003                              698+EXIT     EQU   3 .SVC 3...EXIT SERVICE RTN.
0000FF                              699+ENABMASK EQU   X'FF' .                 .ALL BITS 'ENABLED'        M0581
000000                              700+DISABMSK EQU   X'00' .                 .ALL BITS 'DISABLED'       M0581
                    OPTION 4...EXTERNAL FLIH                                                                   PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78


                                    703+*                            EXTERNAL FLIH

                                    705+         ENTRY IEAQEX00
000000                              706+IEAQEX00 DS    0H
000000 90EF 0298            00298   707+         STM   14,15,IEASAV .SAVE 2 REGS
000004 05E0                         708+         BALR  14,0
000006                              709+         USING *,14
000006 58F0 E962            00968   710+         L     XXTCB,IEATCBP+4 .REF CURR TCB.
00000A 900D F030            00030   711+         STM   0,13,TCBGRS(XXTCB) .SAVE REGS.
00000E 45B0 E0DA            000E0   712+         BAL   EXFLRET,IEAQWAIT .GO TO SMF SYS WAIT TIME RTN      SMF
000012 D207 F068 0298 00068 00298   713+         MVC   TCBGRS+56(8,XXTCB),IEASAV
000018 58F0 F000            00000   714+         L     XXRB,TCBRBP(0,XXTCB) .REF CURR RB.
00001C D207 F010 0018 00010 00018   715+         MVC   RBOPSW(8,XXRB),EXOPSW .SAVE EX OPSW.
                                    716+* TRACE INTERFACE.
                                    717+*  ISSUE HOOK FOR EXTERNAL TRACE                                  21014
                                    718+*
                                    719+* SYMBOLIC EID TABLE FOR THE HOOK MACRO
                                    720+*
010A00                              721+IHLMABOF EQU   X'010A00' 1-2560
010A01                              722+IHLMABON EQU   X'010A01' 1-2561
010A02                              723+IHLMSVOF EQU   X'010A02' 1-2562
010A03                              724+IHLMSVON EQU   X'010A03' 1-2563
010AFC                              725+IHLMGSTP EQU   X'010AFC' 1-2812
010AFD                              726+IHLMSSP  EQU   X'010AFD' 1-2813
010AFE                              727+IHLMABND EQU   X'010AFE' 1-2814
010AFF                              728+IHLMSCMT EQU   X'010AFF' 1-2815
020FDF                              729+IHLMPCI  EQU   X'020FDF' 2-4063
030FFF                              730+IHLMSVC  EQU   X'030FFF' 3-4095
040FE7                              731+IHLMDSP  EQU   X'040FE7' 4-4071
050FEE                              732+IHLMIO1  EQU   X'050FEE' 5-4078
050FEF                              733+IHLMIO2  EQU   X'050FEF' 5-4079
050FF0                              734+IHLMSIO  EQU   X'050FF0' 5-4080
0D0FFC                              735+IHLMSSM  EQU   X'0D0FFC' 13-4092
0D0FFD                              736+IHLMPI   EQU   X'0D0FFD' 13-4093
0D0FFE                              737+IHLMEXT  EQU   X'0D0FFE' 13-4094
                                    738+*
                                    739+* MC INSTRUCTION GENERATED BY THE HOOK MACRO
                                    740+* COMPATIBLE FOR MACHINES WITHOUT THE MC HARDWARE
                                    741+*
000022 AF0D0FFE                     742+         DC    XL1'AF',AL3(IHLMEXT) MC INSTRUCTION
000026 470D0FFE                     743+         DC    XL1'47',AL3(IHLMEXT) NOP TO CARRY EID
00002A 58A0 E05E            00064   744+         L     XTRBASE,ATREX
00002E 05BA                         745+         BALR  XTRET,XTRBASE
                                    746+* END TRACE INTERFACE.

                                    748+* TEST FOR KEY INTERRUPTS.
000030 9140 001B      0001B         749+         TM    EXOPSW+3,X'40' .TEST FOR KEY.
000034 4780 E038            0003E   750+         BZ    *+10 .BR IF NOT.
000038 58A0 E056            0005C   751+         L     XXBASE,ASLKEY .GET SLIH ADDR.
00003C 052A                         752+         BALR  XXRET,XXBASE .TO KEY SLIH.
00003E 05E0                         753+         BALR  14,0
000040                              754+         USING *,14

                                    756+* TEST FOR TIMER INTERRUPTS.
                    OPTION 4...EXTERNAL FLIH                                                                   PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000040 9180 001B      0001B         757+         TM    EXOPSW+3,X'80' .TEST FOR TIMER.
000044 4780 E00E            0004E   758+         BZ    EXTIMER9 .B IF NOT.
000048 58A0 E020            00060   759+         L     XXBASE,ASLTIMER .GET SLIH ADDR.
00004C 052A                         760+         BALR  XXRET,XXBASE .TO TIMER SLIH.
00004E                              761+EXTIMER9 DS    0H .(LABEL FOE TIMER-SLIH BYP)
00004E 05E0                         762+         BALR  14,0
000050                              763+         USING *,14
                                    764+* HANDLES THE SITUATION WHERE THE SYSTEM WAIT TCB WAS CURRENT TCB,  SMF
                                    765+* A TIME EXPIRATION OCCURRED, AND NO TASK SWITCH OCCURS             SMF
000050 5860 0050            00050   766+         L     INTIMVAL,INTTIME .READ OUT INTERVAL TIMER         SMF
000054 5060 E564            005B4   767+         ST    INTIMVAL,SYSWSAVE .STORE VALUE IN INT TIMER INTO   SMF
                                    768+*                                  .SYS WAIT START FIELD            SMF

000058 47F0 E3D8            00428   770+         B     IEA0DS .TO DISPATCHER.
           CONSTANTS USED BY EXTERNAL FLIH                                                                     PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    773+         EXTRN IEEBC1PE,IEA0TI00
00005C 00000000                     774+ASLKEY   DC    A(IEEBC1PE) .CONSOLE-SWITCH ROUTINE
000060 00000000                     775+ASLTIMER DC    A(IEA0TI00) .TIMER SLIH.
                                    776+         EXTRN TREX
000064 00000000                     777+ATREX    DC    A(TREX) .TRACE EP FOR EX FLIH
                    OPTION 4... I/O FLIH                                                                       PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78



                                    780+*                     - I/O FLIH -


                                    782+*       .IOS ENTERS THIS POINT UPON COMPLETION. THE ORIGINAL I/O FLIH
                                    783+*        ENVIRONMENT IS RESTORED AND THE DISPATCHER IS ENTERED UNLESS
                                    784+*        PSEUDO DISABLED IS SET IN WHICH CASE THE CODE WHICH WAS
                                    785+*        INTERRUPTED IS REENTERED.
                                    786+         ENTRY DISMISS
000068                              787+         USING *,XBS
000068 940F A03B      000A3         788+DISMISS  NI    IEA0IO01+1,X'0F' .RESET I/O ORIG SWITCH.
                                    789+         ENTRY IEA0IO02
00006C 4700 A01A            00082   790+IEA0IO02 NOP   PDRETRN .PSEUDO DISABLE SWITCH.
000070 58E0 A8FC            00964   791+         L     XIOTCB,IEATCBP .   GET NEW TCB ADDR               A46343
000074 59EE 0000            00000   792+         C     XIOTCB,0(XIOTCB) . Q.NEW = PSEUDO-WAIT TASK       A46343
000078 4770 A3C0            00428   793+         BNE   IEA0DS .           NO.GO TO DISPATCHER            A46343
00007C 58C0 A548            005B0   794+         L     XSBR,TRANSREF .    YES.GO TO XNST REFRESH         A46343
000080 07FC                         795+         BR    XSBR .                                            A46343
000082                              796+PDRETRN  DS    0H
000082 58E0 A900            00968   797+         L     XIOTCB,IEATCBP+4 .GET CURRENT TCB ADDRESS.
000086 58D0 E000            00000   798+         L     XIORB,TCBRBP(0,XIOTCB) .GET CURRENT RB ADDRESS.
00008A D207 0038 D010 00038 00010   799+         MVC   IOOPSW(8),RBOPSW(XIORB) .MOVE PSW TO LOW 4K CORE.
000090 980F E030            00030   800+         LM    0,15,TCBGRS(XIOTCB) .RESTORE ALL REGS.
000094 94F7 0039      00039         801+         NI    IOOPSW+1,247 SET BC MODE               A70116
000098 8200 0038      00038         802+         LPSW  IOOPSW .TO INTERRUPTED CODE.
                    OPTION 4... I/O FLIH                                                                       PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    804+         DROP  XBS
                                    805+*       .ENTRY POINT FROM I/O INTERRUPT
                                    806+         ENTRY IEAQIO00
00009C                              807+IEAQIO00 DS    0H
00009C 90EF 0298            00298   808+         STM   XA,XB,IEASAV .SAVE 2 REGS IN LOW 4K.
0000A0 05F0                         809+         BALR  XB,0
0000A2                              810+         USING *,XB
                                    811+*       .THE FOLLOWING INSTRUCTION IS THE I/O ORIGINAL INTERRUPT
                                    812+*        SWITCH. IT IS SET AS A NOP WHEN AN ORIGINAL I/O INTERRUPT
                                    813+*        OCCURS BUT ON SUBSEQUENT NESTED INTERRUPTS IT IS SET TO BR.
                                    814+         ENTRY IORGSW
0000A2                              815+IORGSW   DS    0H
                                    816+         ENTRY IEA0IO01
0000A2 4700 F024            000C6   817+IEA0IO01 NOP   NIOS
0000A6 96F0 F001      000A3         818+         OI    IEA0IO01+1,X'F0' .SET ORIG I/O SW TO BRANCH.
0000AA 58E0 F8C6            00968   819+         L     XIOTCB,IEATCBP+4 .GET ADDR OF CURRENT TASK'S TCB.
0000AE 900D E030            00030   820+         STM   0,13,TCBGRS(XIOTCB) .STORE REGS IN CURRENT TCB.
0000B2 45B0 F03E            000E0   821+         BAL   IOFLRET,IEAQWAIT .GO TO SMF SYS WAIT TIME RTN      SMF
0000B6 D207 E068 0298 00068 00298   822+         MVC   TCBGRS+56(8,XIOTCB),IEASAV .SAVE ORIG 2 REGS IN TCB.
0000BC 58D0 E000            00000   823+         L     XIORB,TCBRBP(0,XIOTCB) .GET CURRENT RB ADDRESS.
0000C0 D207 D010 0038 00010 00038   824+         MVC   RBOPSW(8,XIORB),IOOPSW .SAVE PSW IN CURRENT RB.
                                    825+*       .SET UP TO ENTER IOS
0000C6                              826+NIOS     DS    0H

                                    828+*       .TRACE INTERFACE
0000C6 58A0 F03A            000DC   829+         L     XTRBASE,ATRIO .GET I/O TRACE ENTRY ADDRESS.
0000CA 05BA                         830+         BALR  XTRET,XTRBASE .TO TRACE RTN.

0000CC 9856 F032            000D4   832+         LM    XIOSBASE,XIOS,AIOS .GET IOS BASE VALUE AND EP ADDR.
0000D0 07F6                         833+         BR    XIOS .TO IOS.
                                    834+         DROP  XB
                                    835+         EXTRN IECINT
0000D2 0000
0000D4 00001000                     836+AIOS     DC    F'4096' .BASE ADDRESS FOR IOS.
0000D8 00000000                     837+         DC    A(IECINT) .IOS INTERRUPT EP.

                                    839+         EXTRN TRIO
0000DC 00000000                     840+ATRIO    DC    A(TRIO) .I/O TRACE EP
                     OPTION 4... SMF WAIT TIME COLLECTION                                                      PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78



                                    843+*                     - SMF WAIT TIME COLLECTION -                  SMF


                                    845+         ENTRY SYSWSAVE SMF


0000E0                              847+IEAQWAIT DS    0H SMF
0000E0 05A0                         848+         BALR  SYSWBASE,0 SMF
0000E2                              849+         USING *,SYSWBASE SMF
0000E2 5840 A886            00968   850+         L     CURRENT,IEATCBP+4 .GET 'CURRENT' TCB           SMF
0000E6 5850 A046            00128   851+         L     SYSWTCB,WAITCBA .ADDR SYS WAIT TCB         M2187
0000EA 1945                         852+         CR    CURRENT,SYSWTCB .Q.'CURRENT' = SYS WAIT TCB  SMF
0000EC 077B                         853+         BCR   7,FLIHRET .RETURN IF NO TO CALLER      SMF
0000EE 5860 0050            00050   854+         L     INTIMVAL,INTTIME .READ OUT INT TIMER         SMF
0000F2 9878 A4D2            005B4   855+         LM    TIMESAVE,TIMERACC,SYSWSAVE .INT TIMER VALUES         SMF
0000F6 1277                         856+         LTR   TIMESAVE,TIMESAVE .Q. SYS WAIT START TIME ZERO     SMF
0000F8 4780 A044            00126   857+         BZ    NCOLLECT .YES RETURN TO CALLER            SMF
0000FC 5860 A4DA            005BC   858+         L     INTIMVAL,SYSWSAVE+8 VALUE BEFORE RESET        A60581
000100 1266                         859+         LTR   INTIMVAL,INTIMVAL WAS TIMER RESET           A60581
000102 4700 A028            0010A   860+         BC    0,RESET @SA74540
000106 5860 0050            00050   861+         L     INTIMVAL,INTTIME A60581
00010A D703 A4DA A4DA 005BC 005BC   862+RESET    XC    SYSWSAVE+8(4),SYSWSAVE+8 A60581
000110 1B76                         863+         SR    TIMESAVE,INTIMVAL .GET ELAPSED SYS WAIT TIME   SMF
000112 4740 A03E            00120   864+         BM    INT A60581
000116 1A87                         865+         AR    TIMERACC,TIMESAVE .INCREASE ACC SYS WAIT TIME  SMF
000118 4740 A03E            00120   866+         BM    INT A60581
00011C 5080 A4D6            005B8   867+         ST    TIMERACC,SYSWSAVE+4 .SAVE ACC SYS WAIT TIME     SMF
                                    868+* TO ENSURE CURRENT VALUE IN INT TIMER IS STORED IN SYS WAIT START  SMF
                                    869+* FIELD AFTER AN I/O OR CONSOLE INTERRUPT                           SMF
000120 D203 A4D2 0050 005B4 00050   870+INT      MVC   SYSWSAVE(4),INTTIME STORE VALUE IN INT TIMER  A60581
                                    871+*                                  .SYS WAIT START FIELD            SMF
000126 07FB                         872+NCOLLECT BR    FLIHRET .RETURN TO CALLER           SMF

000128 00000D00                     874+WAITCBA  DC    A(WAITTCB) .       ADDR OF PSUEDO-WAIT TCB         M2187
                    OPTION 4...PROGRAM CHECK FLIH                                                              PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78


                                    877+*                            PROGRAM CHECK FLIH


                                    879+*...THIS SVC  EXIT INSTRUCTION IS USED FOR RETURNING FROM USER SUPPLIED
                                    880+*   PROGRAM ERROR HANDLING ROUTINES. ITS PLACEMENT IMMEDIATELY
                                    881+*   PRECEEDING THE PI FLIH IS SIGNIFICANT. EXIT USES THE SVC OLD PSW
                                    882+*   SAVED AT INTERRUPT TIME TO COMPARE WITH THE PI NEW PSW TO IDENTIFY
                                    883+*   ERROR RTN RETURNS.

00012C 0A03                         885+PIEXIT   SVC   EXIT .USED FOR PI ERROR RTN RETURNS ONLY.

                                    887+         ENTRY IEAQPK00
                                    888+         ENTRY ENTRY2
00012E                              889+IEAQPK00 DS    0H
00012E 900F 0258            00258   890+         STM   0,15,IEAPKSAV .SAVE REGISTERS.
000132 05B0                         891+ENTRY2   BALR  11,0
000134                              892+         USING *,11
000134 58F0 B0CC            00200   893+         L     IEARF,IEACON .LINK TO IHLMCIH FOR      21014
000138 05EF                         894+         BALR  IEARE,IEARF .POSSIBLE HOOK PROCESSING 21014
                                    895+*...PI TRACE INTERFACE...
                                    896+*  ISSUE HOOK FOR PROGRAM TRACE                                   21014
                                    897+*
                                    898+* SPECIAL BRANCH HOOK GENERATED BY THE HOOK MACRO
                                    899+*
00013A 58F0 B0D0            00204   900+         L     15,IEACON2 GET RESIDENT ROUTINE BRANCH E.P.
00013E 051F                         901+         BALR  1,15 BRANCH HOOK
000140 470D0FFD                     902+         DC    XL1'47',AL3(IHLMPI) NOP TO CARRY EID
000144 9801 0258            00258   903+         LM    C0,C1,IEAPKSAV .        RESTORE ALTERED REGS    BD M1436
000148 98EF 0290            00290   904+         LM    CE,CF,IEAPKSAV+C56 .     FOR TRACE ROUTINE        A53361
00014C 58A0 B0C8            001FC   905+         L     XTRBASE,ATRPI .GET PI TRACE EP.
000150 05BA                         906+         BALR  XTRET,XTRBASE .TO TRACE RTN.
000152                              907+         USING *,11
                                    908+*........................

000152 98CD 0028            00028   910+         LM    12,13,PIOPSW .GET PI OLD PSW.
000156 94F7 0029      00029         911+         NI    PIOPSW+1,247 SET BC MODE               A70116
00015A 91F1 0029      00029         912+         TM    PIOPSW+1,X'F1' -    IS INTRUPT IN KEY 0 SUPRVSR STATE
00015E 4780 B068            001BA   913+         BZ    DUPTEST YES.BRANCH                     20472
000162 58A0 B0A6            001F8   914+         L     XNPI1,AIORGSW GET ADDR OF IOS SWITCH      @AA28026
000166 91F0 A001      00001         915+         TM    1(XNPI1),X'F0' I/O INTERRUPT ACTIVE        @AA28026
00016A 4770 B062            001B4   916+         BNZ   PLOGADR YES GOTO ABTERM             @AA28026
00016E 58A0 B816            00968   917+         L     XNPI1,IEATCBP+4 .GET ADDR OF CURRENT TCB.
000172 58A0 A004            00004   918+TESTSPI  L     XNPI1,TCBPIE(0,XNPI1) .GET PIE ADDR. FROM TCB
000176 12AA                         919+         LTR   XNPI1,XNPI1 .IS THERE A PIE SPECIFIED.
000178 47C0 B062            001B4   920+         BC    12,PLOGADR .NO, TAKE BRANCH.
00017C 181A                         921+         LR    XNPIPIE,XNPI1 . SET STD REG FOR PIE ADDR            MTS0
00017E 58A0 A000            00000   922+         L     XNPI1,PIEPICA(0,XNPI1) .GET PICA ADDR FROM PIE.     MTS0
000182 12AA                         923+         LTR   XNPI1,XNPI1 .IS PICA NOT IN EFFECT OR IN     MTS0
                                    924+*                                 PROCESS                          MTS0
000184 47C0 B062            001B4   925+         BC    12,PLOGADR .YES, TAKE BRANCH.               MTS0
000188 9280 1000      00000         926+         MVI   0(XNPIPIE),X'80' .SET PIE BUSY INDICATOR          A28405
00018C 90C2 1004            00004   927+         STM   12,2,PIEPSW(XNPIPIE) .ST PSW AND REGS 14-2 IN PIE   MTS0
000190 D203 1018 025C 00018 0025C   928+         MVC   PIEREG1(4,XNPIPIE),IEAPKSAV+4 .GET REGISTER 1       9570
                                    929+*                                  FROM PROG CHECK SAVE AREA       9570
                    OPTION 4...PROGRAM CHECK FLIH                                                              PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000196 98F0 A000            00000   930+         LM    15,0,0(XNPI1) .LOAD ENTRY POINT AND MASKS.     MTS0
00019A 8900 C000            00000   931+         SLL   0,0(12) .TEST IF INTERRUPT TYPE TO BE HANDLED
00019E 1200                         932+         LTR   0,0 .BR TO PROLOGUE IF NOT HANDLED.
0001A0 47A0 B062            001B4   933+         BC    10,PLOGADR .TO BE HANDLED,TAKE BRANCH.
0001A4 50F0 002C            0002C   934+         ST    15,PIOPSW+4 .SET ENTRY PT IN OPSW.
0001A8 58E0 B0A2            001F4   935+         L     14,APIEXIT .SET RETURN ADDRESS.
0001AC 98AD 0280            00280   936+         LM    10,13,IEAPKSAV+40 .RESTORE 4 REGS.
0001B0 8200 0028      00028         937+         LPSW  PIOPSW .TO ERROR RTN.
0001B4 58E0 B09E            001F0   938+PLOGADR  L     XNPIX,APROLOG .SET UP ABTERM PROLOGUE.
0001B8 07FE                         939+         BR    XNPIX .BRANCH TO PROLOGUE.
0001BA                              940+DUPTEST  EQU   * M1191
0001BA 9500 002B      0002B         941+         CLI   PIOPSW+3,PROGCHK0 Q.IMPRECISE P.C. OR SSM IF MP65  M1191
0001BE 4780 B062            001B4   942+         BE    PLOGADR YES.DON'T CHECK FOR LOOP        M1191
0001C2 41DD 0000            00000   943+         LA    13,0(13) .         CLEAR OFF ILC,CC, PROG MASK     20472
0001C6 55D0 B09A            001EC   944+         CL    13,PCSAVE Q.BEGINNING OF PROG CHK LOOP    20472
0001CA 4780 B084            001D6   945+         BE    HANGUP YES.BRANCH                      20472
0001CE 50D0 B09A            001EC   946+         ST    13,PCSAVE NO.STORE ADDR OF PROG CHK       20472
0001D2 47F0 B062            001B4   947+         B     PLOGADR GO TO INLINE P.C. PROCESSING    20472

                                    949+*     THIS SECTION OF CODE WILL TURN OFF THE TRACE TABLE IF IT    20472
                                    950+*        WAS DETERMINED THAT SUPERVISOR-STATE CODE PROGRAM-       20472
                                    951+*        CHECKED IN THE SAME LOCATION TWICE, ONE RIGHT AFTER      20472
                                    952+*        THE OTHER.  THIS IS TO PREVENT THE TRACE TABLE FROM      20472
                                    953+*        BEING FILLED UP BY A PROGRAM CHECK LOOP.                 20472

0001D6 5890 B096            001E8   955+HANGUP   L     C9,STOPTRA GET ADDR OF TRACE NOP           20472
0001DA 96F0 9001      00001         956+         OI    1(C9),X'F0' TURN OFF TRACE TABLE            20472
0001DE 1B99                         957+         SR    C9,C9 20472
0001E0 5090 B09A            001EC   958+         ST    C9,PCSAVE RE-INIT SAVE AREA               20472
0001E4 47F0 B062            001B4   959+         B     PLOGADR GO TO INLINE P.C. PROCESSING    20472

                                    961+         EXTRN IECXTRA 20472
0001E8 00000000                     962+STOPTRA  DC    A(IECXTRA) 20472
0001EC 00000000                     963+PCSAVE   DC    F'0' 20472
000000                              964+PROGCHK0 EQU   0 TO CHECK FOR 0C0 PROGRAM INTERRRUPT   M1191

                                    966+         EXTRN IEA0PL00
0001F0 00000000                     967+APROLOG  DC    A(IEA0PL00) .PROLOGUE ADDRESS
0001F4 0000012C                     968+APIEXIT  DC    A(PIEXIT) .ADDRESS OF SVC FOR PIE RTNS
0001F8 000000A2                     969+AIORGSW  DC    A(IORGSW) ADDRESS OF IOS SWITCH       @AA28026

                                    971+         EXTRN TRPI
0001FC 00000000                     972+ATRPI    DC    A(TRPI) .PI TRACE EP
000200 00000000                     973+IEACON   DC    V(IHLMCIH) .ADDR OF MONITER CALL IH  21014
000204 00000000                     974+IEACON2  DC    V(IHLBHOOK) .ENTRY PT FOR HOOK PROCESS21014
                    OPTION 4...STAGE 2 OF EXIT EFFECTOR                                                        PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    978+         DROP  11

                                    980+         ENTRY IEA0EF00
000208                              981+IEA0EF00 DS    0H
000208 D200 006A 0069 0006A 00069   982+         MVC   PINPSW+2(1),PINPSW+1 .  SAVE CURRENT AMWP FIELD    M2352
00020E 9604 0069      00069         983+SETON    OI    PINPSW+1,X'04' ZAP X'04' TO X'06' TO SET WAIT BIT  M2352
000212 90AB 029C            0029C   984+         STM   X2WK,X2BASE,IEASAV+4 A64481
000216 05B0                         985+         BALR  X2BASE,0
000218                              986+         USING *,X2BASE
000218 1211                         987+         LTR   X2QE,X2QE .TEST FOR IQE.
00021A 4740 B094            002AC   988+         BC    4,EFIQE .BR IF YES.
00021E 48A0 020C            0020C   989+         LH    X2WK,AEQB QUEUE 16* RQE
000222 19A1                         990+         CR    X2WK,X2QE SAME REQUEST              A68623
000224 4770 B01C            00234   991+         BNE   SETON1 NO                        A68623
000228 4010 B08C            002A4   992+         STH   X2QE,RQE SAVE RQE                  A68623
00022C 50E0 B088            002A0   993+         ST    14,RET SAVE RETURN               A68623
000230 47F0 B066            0027E   994+         B     SETON4 A68623
000234                              995+SETON1   EQU   * A68623
000234 D201 1000 A000 00000 00000   996+         MVC   0(2,X2QE),0(X2WK)
00023A 4010 A000            00000   997+         STH   X2QE,0(0,X2WK)
00023E 4010 020C            0020C   998+         STH   X2QE,AEQB
000242 48A0 020A            0020A   999+         LH    X2WK,AEQA VALIDATE THE AEQ          A68623
000246 49A0 020E            0020E  1000+SETON2   CH    X2WK,AEQC LAST                      A68623
00024A 4780 B072            0028A  1001+         BE    EFEXIT A68623
00024E 49AA 0000            00000  1002+         CH    X2WK,0(X2WK) INVALID                   A68623
000252 4780 B046            0025E  1003+         BE    SETON3 YES                       A68623
000256 48AA 0000            00000  1004+         LH    X2WK,0(X2WK) NEXT                      A68623
00025A 47F0 B02E            00246  1005+         B     SETON2 CONTINUE                  A68623
00025E D201 A000 020C 00000 0020C  1006+SETON3   MVC   0(2,X2WK),AEQB RE INITIALIZE             A68623
000264 40A0 B08C            002A4  1007+         STH   X2WK,RQE SAVE BAD RQE ADDRESS      A68623
000268 50E0 B088            002A0  1008+         ST    14,RET SAVE RETURN               A68623
00026C 960F B088      002A0        1009+         OI    RET,X'0F' INDICATE SEARCH           A68623
000270 48A0 020C            0020C  1010+         LH    X2WK,AEQB @SA76107
000274 D201 A000 020E 00000 0020E  1011+         MVC   0(2,X2WK),AEQC INIT LAST                 A68623
00027A 48A0 B08C            002A4  1012+         LH    X2WK,RQE A68623
00027E D201 B08E A002 002A6 00002  1013+SETON4   MVC   RQE+2(2),2(X2WK) UCB ADDRESS               A68623
000284 D203 B090 A00C 002A8 0000C  1014+         MVC   RTCB(4),IQETCB(X2WK) TCB                       A68623
00028A 92F0 B217      0042F        1015+EFEXIT   MVI   IEA0DS01+1,X'F0' .SET SW IN DISP TO ENTER STG 3.
00028E 98AB 029C            0029C  1016+         LM    X2WK,X2BASE,IEASAV+4 A64481
000292 D200 0069 006A 00069 0006A  1017+SETOFF   MVC   PINPSW+1(1),PINPSW+2 .  RESTORE ORIGINAL AMWP      M2352
000298 9200 006A      0006A        1018+         MVI   PINPSW+2,X'00' .        NEATNESS COUNTS            M2352
00029C 07FE                        1019+         BR    14 .RETURN TO CALLER.
00029E 0000
0002A0 00000000                    1020+RET      DC    F'0' RETURN                    A68623
0002A4 00000000                    1021+RQE      DC    F'0' RQE UCB SAVE              A68623
0002A8 00000000                    1022+RTCB     DC    F'0' RQETCB                    A68623

                                   1024+* IQE (NON-16*) HANDLING.
0002AC 1311                        1025+EFIQE    LCR   X2QE,X2QE .RECOMPLEMENT IQE ADDR.
0002AE 41A0 0214            00214  1026+         LA    X2WK,AEQK A68764
0002B2 191A                        1027+         CR    X2QE,X2WK INVALID REQUEST           A68764
0002B4 47B0 B0AA            002C2  1028+         BNL   EFI01 NO                        A68764
0002B8 5010 B124            0033C  1029+EFI0A    ST    X2QE,EFI1 SAVE ERROR IQE            A68764
0002BC 50E0 B128            00340  1030+         ST    14,EFI2 SAVE RETURN               A68764
0002C0 07FE                        1031+         BR    14 NO SCHEDULE               A68764
                    OPTION 4...STAGE 2 OF EXIT EFFECTOR                                                        PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0002C2 58A1 0008            00008  1032+EFI01    L     X2WK,IQEIRB(1) 68764
                                   1033+*                                                              @SA75841
0002C6 58A0 0214            00214  1034+         L     X2WK,AEQK .QUEUE IQE.
0002CA 191A                        1035+         CR    X2QE,X2WK SCHEDULE SAME             A64483
0002CC 4780 B0A0            002B8  1036+         BE    EFI0A YES DO NOT SCHEDULE       A64483
0002D0 D203 1000 A000 00000 00000  1037+         MVC   0(4,X2QE),0(X2WK)
0002D6 5010 A000            00000  1038+         ST    X2QE,0(0,X2WK)
0002DA 5010 0214            00214  1039+         ST    X2QE,AEQK
0002DE 58A0 0210            00210  1040+         L     X2WK,AEQJ A68764
0002E2 4110 0210            00210  1041+         LA    X2QE,AEQJ A68764
0002E6 5010 B130            00348  1042+         ST    X2QE,EFI4 A68764
0002EA 58AA 0008            00008  1043+EFI02    L     X2WK,IQEIRB(X2WK) IRB POINTER                68764
0002EE 91C0 A00A      0000A        1044+         TM    IQELNK+10(X2WK),X'C0' @SA75841
0002F2 58A1 0000            00000  1045+         L     X2WK,0(X2QE) INIT POINTER               68764
0002F6 47B0 B0F6            0030E  1046+         BC    11,EFI03 @SA75841
0002FA D502 A001 B131 00001 00349  1047+         CLC   1(3,X2WK),EFI4+1 LAST                       68764
000300 4780 B072            0028A  1048+         BE    EFEXIT YES                        68764
000304 181A                        1049+         LR    X2QE,X2WK PREV POINTER               68764
000306 58A1 0000            00000  1050+         L     X2WK,0(X2QE) NEXT                       68764
00030A 47F0 B0D2            002EA  1051+         B     EFI02 68764
00030E D203 1000 0214 00000 00214  1052+EFI03    MVC   0(4,X2QE),AEQK INITIALIZE                A68764
000314 50A0 B124            0033C  1053+         ST    X2WK,EFI1 SAVE ERROR                A68764
000318 50E0 B128            00340  1054+         ST    14,EFI2 SAVE RETURN               A68764
00031C 5810 0214            00214  1055+         L     X2QE,AEQK A68764
000320 D203 1000 B130 00000 00348  1056+         MVC   0(4,X2QE),EFI4 INITIALIZE LAST           A68764
000326 92FF 1000      00000        1057+         MVI   0(X2QE),X'FF' A68764
00032A 58A0 0010            00010  1058+         L     X2WK,16 CVT                       A68764
00032E 58AA 0000            00000  1059+         L     X2WK,0(X2WK) OLD NEW                   A68764
000332 D203 B12C A004 00344 00004  1060+         MVC   EFI3(4),4(X2WK) CURRENT TASK              A68764
000338 47F0 B072            0028A  1061+         B     EFEXIT
00033C 00000000                    1062+EFI1     DC    F'0' ERROR IQE                 A68764
000340 00000000                    1063+EFI2     DC    F'0' ERROR RETURN              A68764
000344 00000000                    1064+EFI3     DC    F'0' TASK                      A68764
000348 00000000                    1065+EFI4     DC    F'0' RE INIT                   A68764
                                   1066+         DROP  X2BASE
                    TASK SWITCH ROUTINE                                                                        PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1068+         ENTRY IEA0DS02
00034C                             1069+IEA0DS02 DS    0H
00034C 50C0 02A0            002A0  1070+         ST    12,IEASAV+8 .SAVE ONE REG.
000350 05C0                        1071+         BALR  12,0
000352                             1072+         USING *,12
000352 41A0 A000            00000  1073+         LA    XPTCB,C0(C0,XPTCB) .    ZERO HI BYTE OF PASSED TCB ADDR
000356 58B0 C612            00964  1074+         L     XN,IEATCBP .GET 'NEW'.
00035A 12BB                        1075+         LTR   XN,XN .IS 'NEW' = 0.
00035C 4770 C012            00364  1076+         BC    7,SW01 .BR IF NOT.
000360 58B0 C616            00968  1077+         L     XN,IEATCBP+4 .GET 'OLD'.
000364 D500 B023 A023 00023 00023  1078+SW01     CLC   TCBDSP(1,XN),TCBDSP(XPTCB) .CHECK DISP PRIORITIES.
00036A 4720 C058            003AA  1079+         BH    SWRET .RETURN IF 'NEW' IS HI.
00036E 4740 C03E            00390  1080+         BL    SWSETNEW
                                   1081+* EQUAL PRIORITIES.
000372 58B0 B074            00074  1082+SWNEXT   L     XN,TCBTCB(0,XN) .GET NEXT TCB.
000376 12BB                        1083+         LTR   XN,XN .IS THIS LAST TCB.
000378 4780 C03E            00390  1084+         BZ    SWSETNEW .BR IF YES.
00037C D500 B023 A023 00023 00023  1085+         CLC   TCBDSP(1,XN),TCBDSP(XPTCB) .CHK DISP PRIORITIES.
000382 4770 C03E            00390  1086+         BNE   SWSETNEW .BR IF NOT EQUAL.
000386 19BA                        1087+         CR    XN,XPTCB .ARE TCB'S ONE AND THE SAME.
000388 4770 C020            00372  1088+         BNE   SWNEXT .BR IF NOT.
00038C 47F0 C058            003AA  1089+         B     SWRET
000390                             1090+SWSETNEW DS    0H
000390 48B0 A020            00020  1091+         LH    XN,TCBWAIT(0,XPTCB) .GET NON-DISPATCHABLE BITS.
000394 12BB                        1092+         LTR   XN,XN .IS TASK NON-DISPATCHABLE.
000396 4770 C058            003AA  1093+         BC    7,SWRET .BR IF YES.
00039A 58B0 A000            00000  1094+         L     XN,TCBRBP(0,XPTCB) .GET CURRENT RB.
00039E 9500 B01C      0001C        1095+         CLI   RBWCF(XN),0 .IS RB WAITING.
0003A2 4770 C058            003AA  1096+         BNE   SWRET .BR IF YES.
0003A6 50A0 C612            00964  1097+         ST    XPTCB,IEATCBP .SET 'NEW' = INPUT TCB.
0003AA 58C0 02A0            002A0  1098+SWRET    L     12,IEASAV+8 .RESTORE REG.
0003AE 07FE                        1099+         BR    XRET .RETURN TO CALLER.
                                   1100+         DROP  12
                    OPTION 4...TYPE 1 SVC EXIT                                                                 PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1102+* TYPE 1 SVC EXIT
                                   1103+         ENTRY IEA0XE00
0003B0                             1104+IEA0XE00 DS    0H
0003B0 05E0                        1105+         BALR  14,0
0003B2                             1106+         USING *,14
0003B2                             1107+XEBASE   DS    0H .(BASE ADDRESS)             MP65
0003B2 95FF EA86      00E38        1108+         CLI   IEATYPE1,X'FF' A68543
0003B6 4780 E008            003BA  1109+         BE    XEB A68543
0003BA                             1110+XEB      EQU   * A68543
0003BA 9200 EA86      00E38        1111+         MVI   IEATYPE1,0 A68543
0003BE 5820 E5B6            00968  1112+         L     X1TCB,IEATCBP+4 .GET CURRENT TCB.
0003C2 4150 E94E            00D00  1113+         LA    XRB,WAITTCB A64491
0003C6 1925                        1114+         CR    X1TCB,XRB A64491
0003C8 4780 E044            003F6  1115+         BE    TYPE1RET A64491
0003CC 5920 E5B2            00964  1116+         C     X1TCB,IEATCBP .IS THERE A TASK SWITCH.
0003D0 4780 E044            003F6  1117+         BE    TYPE1RET .              NO.RETURN TO CALLER        M0581
0003D4 9501 0023      00023        1118+         CLI   SVCOPSW+3,1 WAIT                      M00013
0003D8 4780 E050            00402  1119+         BE    TSWITCH YES                       M00013
0003DC 4832 0020            00020  1120+         LH    3,TCBFLGS+3(X1TCB) .    GET NON-DISP BITS         A52223
0003E0 1233                        1121+         LTR   3,3 .                   Q.ANY BITS SET            A52223
0003E2 4770 E050            00402  1122+         BNZ   TSWITCH .               YES.HONOR THE TASKSWITCH  A52223
0003E6 95FF 0020      00020        1123+         CLI   SVCOPSW,ENABMASK .      Q.REQUESTOR FULLY ENABLED  M0581
0003EA 4780 E050            00402  1124+         BE    TSWITCH .               YES.ALLOW THE TASKSWITCH   M0581
0003EE 9502 0023      00023        1125+         CLI   SVCOPSW+3,SVCPOST .     Q.POST CAUSED TASKSWITCH   M0581
0003F2 4780 E050            00402  1126+         BE    TSWITCH .               YES.ALLOW THE TASKSWITCH   M0581
0003F6                             1127+TYPE1RET DS    0H .                                               M0581
0003F6 982E 0220            00220  1128+         LM    2,14,IEASCSAV+8 .LOAD REGS FROM LOW CORE.
0003FA 94F7 0021      00021        1129+         NI    SVCOPSW+1,247 SET BC MODE               A70116
0003FE 8200 0020      00020        1130+         LPSW  SVCOPSW .RETURN TO CALLER OF SVC.


                                   1132+* TASK SWITCH HANDLING.
000402                             1133+TSWITCH  DS    0H
000402 5850 2000            00000  1134+         L     XRB,TCBRBP(0,X1TCB) .GET CURRENT RB.
000406 9834 0020            00020  1135+         LM    3,4,SVCOPSW .SAVE SVC OPSW IN RB.
00040A 9034 5010            00010  1136+         STM   3,4,RBOPSW(XRB)
00040E 983E 0224            00224  1137+         LM    3,14,IEASCSAV+12 .SAVE REGS IN TCB.
000412 900F 2030            00030  1138+         STM   0,15,TCBGRS(X1TCB)
000416 D203 2038 0220 00038 00220  1139+         MVC   TCBGRS+8(4,X1TCB),IEASCSAV+8
00041C 05E0                        1140+         BALR  14,0 .RE-ESTABLISH                    SMF
00041E                             1141+         USING *,14 .ADDRESSABILITY                  SMF
00041E 47F0 E00A            00428  1142+         B     IEA0DS .BR TO DISPATCHER                SMF
                                   1143+         DROP  14
                     OPTION 4...DISPATCHER                                                                     PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78


                                   1146+*                             DISPATCHER

000422 0000
000424 000005B4                    1148+         DC    A(SYSWSAVE) .ADDR OF SYS WAIT FLDS         M2178

                                   1150+         ENTRY IEA0DS
000428                             1151+IEA0DS   DS    0H
000428 05E0                        1152+         BALR  14,0
00042A                             1153+DSBASE   DS    0H
00042A                             1154+         USING *,14
                                   1155+         ENTRY IEA0DS01 A64911
                                   1156+         ENTRY IEARMSSW 19E02
                                   1157+*RMS MODIFIES NOP TO GET CONTROL                                  19E02
00042A 4700 E108            00532  1158+IEARMSSW NOP   RMSCODE .NOP FOR RMS               19E02
00042E 4700 E20C            00636  1159+IEA0DS01 NOP   IEA0EF03 .STAGE 3 SWITCH.
000432                             1160+DSWTST   EQU   * 20021
                                   1161+*                                                                 20021
                                   1162+* TEST TO SEE IF THE TIME SHARING OPTION IS STARTED. IF SO, BALR  20021
                                   1163+* TO THE TIME SHARING DISPATCHER (PACKAGED IN IKJEAI00-TSIP).     20021
                                   1164+*                                                                 20021
000432 58F0 0010            00010  1165+         L     R15,CVTPTR .PTR.TO CVT.               20021
000000                             1166+         USING CVTSECT,R15 20021
000436 9180 F0E4      000E4        1167+         TM    CVTTSFLG,CVTTSRDY Q.IS TIME SHARING ACTIVE.    20021
00043A 4780 E022            0044C  1168+         BZ    DSWTSTZ .NO PROCEED               20021
00043E 58A0 F0E4            000E4  1169+         L     XDSNEW,CVTTSCVT .PTR TO TSO SEC. CVT.      20021
                                   1170+         DROP  R15 20021
000000                             1171+         USING TSCVT,XDSNEW 20021
000442 58F0 A038            00038  1172+         L     R15,TSCVTI02 .FIRST TS DISPATCHER ENT.  20021
                                   1173+         DROP  XDSNEW 20021
000446 05EF                        1174+         BALR  XRET,R15 .TO TIME SHARING DISPAT.    20021
000448                             1175+         USING *,XRET 20021
000448 58E0 E9B4            00DFC  1176+         L     XRET,ADSBASE .REESTABLISH ADDRESSAB.     20021
00042A                             1177+         USING DSBASE,XRET 20021
00044C                             1178+DSWTSTZ  EQU   * 20021
00044C 98AB E53A            00964  1179+         LM    XDSNEW,XDSOLD,IEATCBP 20021
000450 15AB                        1180+         CLR   XDSNEW,XDSOLD .IS THERE A TASK SWITCH.
000452 4770 E052            0047C  1181+DSWTSTZ2 BNE   DSWTASK 73982
                                   1182+* PREPARE CURRENT TASK FOR RE-ENTRY.
000456 58C0 A000            00000  1183+DSENTER  L     XDSRB,TCBRBP(0,XDSNEW) .GET CURRENT RB ADDR.
00045A D207 0200 C010 00200 00010  1184+DSENTERW MVC   IEAPSW(8),RBOPSW(XDSRB) .MOVE RESUME PSW TO LOW CORE TO
                                   1185+*                                       LOAD WITHOUT BASE REG.
                                   1186+* TRACE INTERFACE.
                                   1187+*  ISSUE HOOK FOR DISPATCHER TRACE                                21014
                                   1188+*
                                   1189+* MC INSTRUCTION GENERATED BY THE HOOK MACRO
                                   1190+* COMPATIBLE FOR MACHINES WITHOUT THE MC HARDWARE
                                   1191+*
000460 AF040FE7                    1192+         DC    XL1'AF',AL3(IHLMDSP) MC INSTRUCTION
000464 47040FE7                    1193+         DC    XL1'47',AL3(IHLMDSP) NOP TO CARRY EID
000468 58A0 EA12            00E3C  1194+         L     XTRBASE,ATRDISP .LOAD DISP TRACE EP.
00046C 18EB                        1195+         LR    14,11
00046E 05BA                        1196+         BALR  XTRET,XTRBASE .TO TRACE RTN.

000470 980F E030            00030  1198+         LM    0,15,TCBGRS(14) .RESTORE REGS FROM CURRENT TCB.
                     OPTION 4...DISPATCHER                                                                     PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000474 94F7 0201      00201        1199+         NI    IEAPSW+1,247 SET BC MODE               A70116
000478 8200 0200      00200        1200+         LPSW  IEAPSW .TO TASK.
                                   1201+* TASK SWITCH INDICATED.                                           MTS0
00047C                             1202+DSWTASK  DS    0H A73536
00047C 58D0 E9D6            00E00  1203+         L     XDSFP,NEG32 .PREPARE TO REFERENCE FLOATING
000480 1ADB                        1204+         AR    XDSFP,XDSOLD POINT REG SAVE AREA.
000482 6000 D000            00000  1205+         STD   0,TCBFRS0(0,XDSFP) .SAVE FLOATING POINT REGS.
000486 6020 D008            00008  1206+         STD   2,TCBFRS2(0,XDSFP) IN TCB.
00048A 6040 D010            00010  1207+         STD   4,TCBFRS4(0,XDSFP)
00048E 6060 D018            00018  1208+         STD   6,TCBFRS6(0,XDSFP)
                                   1209+*
                                   1210+* TIMER DEQUEUE FOR TASK INTERVALS.
000492 5810 B078            00078  1211+         L     XDSTQE,TCBTME(0,XDSOLD) .GET TQE OF 'OLD' TASK.
000496 1211                        1212+         LTR   XDSTQE,XDSTQE .DOES TQE EXIST
000498 4780 E08C            004B6  1213+         BZ    DSJSTDQ .BRANCH IF NO TQE.          MTS0
00049C 918B 1000      00000        1214+         TM    TQEFLGS(XDSTQE),X'8B' .IS TQE ON QUEUE AND TASK TYPE.
0004A0 4750 E08C            004B6  1215+         BC    5,DSJSTDQ .BRANCH IF NOT.             MTS0
0004A4 50A0 E53A            00964  1216+         ST    XDSNEW,IEATCBP .UPDATE (REG USED BY TDQ)
0004A8 58F0 E9C6            00DF0  1217+         L     R15,ATDQ MTS0
0004AC 052F                        1218+         BALR  XDSLNK,R15 TO TIMER DEQUEUE RTN
0004AE                             1219+         USING *,XDSLNK
0004AE 58E0 294E            00DFC  1220+         L     14,ADSBASE .REESTABLISH ADDRESSABILITY
                                   1221+         DROP  XDSLNK
00042A                             1222+         USING DSBASE,14
0004B2 58A0 E53A            00964  1223+         L     XDSNEW,IEATCBP .(RESTORE)
0004B6                             1224+DSJSTDQ  EQU   * MTS0
0004B6 58F0 E9C6            00DF0  1225+         L     R15,ATDQ .PREPARE FOR DEQUEUE.       MTS0
0004BA 188B                        1226+         LR    XSEARCH,XDSOLD .NO DAUGHTER, USE LOW TCB.  MTS0
0004BC 45C0 E196            005C0  1227+         BAL   XSBR,DJSEARCH .USE SUBROUTINE TO DEQUEUE. MTS0
0004C0 58A0 E53A            00964  1228+         L     XDSNEW,IEATCBP .(RESTORE)                  MTS0
                                   1229+* TEST FOR READY TASK.
0004C4 12AA                        1230+DSTEST   LTR   XDSNEW,XDSNEW .IS NEW READY TASK FOUND.
0004C6 4780 E10E            00538  1231+         BZ    DSEARCH .BR IF NOT.
                                   1232+* SET 'OLD' = 'NEW'.
0004CA 18BA                        1233+DSREADY  LR    XDSOLD,XDSNEW
                                   1234+*                                                                 20021
                                   1235+* TEST TO SEE IF THE TIME SHARING OPTION IS STARTED. IF SO, BALR  20021
                                   1236+* TO THE TIME SHARING DISPATCHER (PACKAGED IN IKJEAI00-TSIP).     20021
                                   1237+*                                                                 20021
0004CC 58F0 0010            00010  1238+         L     R15,CVTPTR .PTR.TO CVT.               20021
000000                             1239+         USING CVTSECT,R15 20021
0004D0 9180 F0E4      000E4        1240+         TM    CVTTSFLG,CVTTSRDY Q.IS TIME SHARING ACTIVE.    20021
0004D4 4780 E0BC            004E6  1241+         BZ    NOTSO .NO   PROCEED.             20021
0004D8 5810 F0E4            000E4  1242+         L     XDSTQE,CVTTSCVT .PTR. TO TSO SECON.CVT.    20021
                                   1243+         DROP  R15 20021
000000                             1244+         USING TSCVT,XDSTQE 20021
0004DC 58F0 103C            0003C  1245+         L     R15,TSCVTI03 .SECOND TS DISP. ENT.PT.   20021
                                   1246+         DROP  XDSTQE 20021
                                   1247+*-NOTE-REGISTER 11 MUST CONTAIN CURRENT NEW UPON TS DISP. ENTRY,  20021
0004E0 05EF                        1248+         BALR  XRET,R15 .TO TIME SHARING DISPAT.    20021
0004E2                             1249+         USING *,XRET 20021
0004E2 58E0 E91A            00DFC  1250+         L     XRET,ADSBASE .REESTABLISH ADDRESSAB.     20021
00042A                             1251+         USING DSBASE,XRET 20021
0004E6                             1252+NOTSO    EQU   * 20021
0004E6 90AB E53A            00964  1253+         STM   XDSNEW,XDSOLD,IEATCBP
                     OPTION 4...DISPATCHER                                                                     PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1254+* TIMER QUEUING FOR TASK INTERVALS.
0004EA 5810 A078            00078  1255+         L     XDSTQE,TCBTME(0,XDSNEW) .GET TQE OF NEW TASK.
0004EE 1211                        1256+         LTR   XDSTQE,XDSTQE .IS THERE A TQE.
0004F0 4780 E0DC            00506  1257+         BZ    DS02
0004F4 50A0 E53A            00964  1258+         ST    XDSNEW,IEATCBP .UPDATE (REG USED BY TNQ)
0004F8 58F0 E9CA            00DF4  1259+         L     R15,ATNQ GET TIMER ENQUEUE ADDR.
0004FC 052F                        1260+         BALR  XDSLNK,R15 TO TIMER ENQUEUE RTN.
0004FE                             1261+         USING *,XDSLNK
0004FE 58E0 28FE            00DFC  1262+         L     14,ADSBASE .REESTABLISH ADDRESSABILITY
                                   1263+         DROP  XDSLNK
00042A                             1264+         USING DSBASE,14
000502 58A0 E53A            00964  1265+         L     XDSNEW,IEATCBP .(RESTORE)
000506                             1266+DS02     DS    0H
000506 50A0 E53A            00964  1267+         ST    XDSNEW,IEATCBP .UPDATE (REG USED BY TNQ)   MTS0
00050A 188A                        1268+         LR    XSEARCH,XDSNEW .ENQUEUE NEW TASK FOR JST.  MTS0
00050C 58F0 E9CA            00DF4  1269+         L     R15,ATNQ MTS0
000510 45C0 E196            005C0  1270+         BAL   XSBR,DJSEARCH .USE JOB STEP TIMING RTN.   MTS0
000514 58A0 E53A            00964  1271+         L     XDSNEW,IEATCBP .(RESTORE)                  MTS0
000518 58D0 E9D6            00E00  1272+         L     XDSFP,NEG32 .PREPARE TO REFERENCE FLOATING
00051C 1ADA                        1273+         AR    XDSFP,XDSNEW POINT REG SAVE AREA.
00051E 6800 D000            00000  1274+         LD    0,TCBFRS0(0,XDSFP) .RESTORE FLOATING POINT REGS
000522 6820 D008            00008  1275+         LD    2,TCBFRS2(0,XDSFP) FROM TCB.
000526 6840 D010            00010  1276+         LD    4,TCBFRS4(0,XDSFP)
00052A 6860 D018            00018  1277+         LD    6,TCBFRS6(0,XDSFP)
00052E 47F0 E02C            00456  1278+         B     DSENTER
000532 58F0 E9DA            00E04  1279+RMSCODE  L     R15,IEARMSAD .GET RMS ENTRY ADDRESS     19E02
000536 07FF                        1280+         BR    R15 .GO TO RMS ENTRY           19E02

                                   1282+* SEARCH FOR READY TASK.
000538                             1283+DSEARCH  DS    0H .QUEUE SEARCH REQUIRED.
000538 18DB                        1284+         LR    XDSWKTCB,XDSOLD
00053A 58C0 D000            00000  1285+DSRCHLP  L     XDSRB,TCBRBP(0,XDSWKTCB) .GET CURRENT RB ON TASK.
00053E 91FF C01C      0001C        1286+         TM    RBWCF(XDSRB),X'FF' .IS RB IN WAIT STATUS.
000542 4770 E12C            00556  1287+         BC    7,DSNEXT .BR IF YES.
000546 48C0 D020            00020  1288+         LH    XNDBITS,TCBWAIT(0,XDSWKTCB) .GET NON-DISPATCHABLE BITS.
00054A 12CC                        1289+         LTR   XNDBITS,XNDBITS .IS TASK NON-DISPATCHABLE.
00054C 4770 E12C            00556  1290+         BC    7,DSNEXT .BR IF YES.
                                   1291+* READY TASK FOUND.
000550 18AD                        1292+         LR    XDSNEW,XDSWKTCB .SET NEW REG=READY TCB.
                                   1293+*                                       CONTROL GOING TO LOWER PRIORITY
                                   1294+*                                       TASK.
000552 47F0 E0A0            004CA  1295+         B     DSREADY

                                   1297+* REF NEXT TCB IN READY QUEUE.
000556                             1298+DSNEXT   DS    0H
000556 58D0 D074            00074  1299+         L     XDSWKTCB,TCBTCB(0,XDSWKTCB) .GET NEXT TCB ADDR.
00055A 12DD                        1300+         LTR   XDSWKTCB,XDSWKTCB .END OF QUEUE.
00055C 4770 E110            0053A  1301+         BC    7,DSRCHLP .BR IF NOT TO CONTINUE SEARCH.
                                   1302+* NO READY TASK FOUND.
                                   1303+* PLACE SYSTEM INTO WAIT STATE USING 'PSEUDO' TASK.
000560 41C0 E8D6            00D00  1304+         LA    XDSRB,WAITPRB .SET UP ADDR. OF PSEUDO RB.
000564 18BC                        1305+         LR    XDSRB-1,XDSRB .SET UP FOR STORE MULTIPLE.
                                   1306+*                                                                 20021
                                   1307+* TEST TO SEE IF THE TIME SHARING OPTION IS STARTED. IF SO, BALR  20021
                                   1308+* TO THE TIME SHARING DISPATCHER (PACKAGED IN IKJEAI00-TSIP).     20021
                     OPTION 4...DISPATCHER                                                                     PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1309+*                                                                 20021
000566 58F0 0010            00010  1310+         L     R15,CVTPTR .PTR.TO CVT.               20021
000000                             1311+         USING CVTSECT,R15 20021
00056A 9180 F0E4      000E4        1312+         TM    CVTTSFLG,CVTTSRDY Q.IS TIME SHARING ACTIVE.    20021
00056E 4780 E156            00580  1313+         BZ    NOTSO1 .NO   PROCEED.             20021
000572 58F0 F0E4            000E4  1314+         L     R15,CVTTSCVT .PTR TO TSO SECONDARY CVT  20021
                                   1315+         DROP  R15 20021
000000                             1316+         USING TSCVT,R15 20021
000576 58F0 F03C            0003C  1317+         L     R15,TSCVTI03 .SECOND TS DISP. ENTRY.    20021
                                   1318+         DROP  R15 20021
00057A 05EF                        1319+         BALR  XRET,R15 .TO TIME SHARING DISPAT.    20021
00057C                             1320+         USING *,XRET 20021
00057C 58E0 E880            00DFC  1321+         L     XRET,ADSBASE .REESTABLISH ADDRESSAB.     20021
00042A                             1322+         USING DSBASE,XRET 20021
000580                             1323+NOTSO1   EQU   * 20021
000580 58F0 0010            00010  1324+         L     R15,16 CVT                       A71750
000584 D502 E53B F0A1 00965 000A1  1325+         CLC   IEATCBP+1(3),CVTHEAD+1-CVTMAP(R15) SECOND         A71750
00058A 4780 E172            0059C  1326+         BE    NOTS02 YES                       A71750
00058E D202 E53B F0A1 00965 000A1  1327+         MVC   IEATCBP+1(3),CVTHEAD+1-CVTMAP(R15) SEARCH        A71750
000594 58B0 E53A            00964  1328+         L     XDSOLD,IEATCBP A71750
000598 47F0 E10E            00538  1329+         B     DSEARCH A71750
00059C                             1330+NOTS02   EQU   * A71750
00059C 90BC E53A            00964  1331+         STM   XDSRB-1,XDSRB,IEATCBP .SET 'NEW' AND 'OLD'= PSEUDO TCB
                                   1332+* SAVE VALUE IN TIMER WHICH MARKS BEGINNING OF SYSTEM WAIT          SMF
0005A0 58A0 0050            00050  1333+         L     TIMERVAL,INTTIME .READ OUT INTERVAL TIMER     SMF
0005A4 50A0 E18A            005B4  1334+         ST    TIMERVAL,SYSWSAVE .SAVE VALUE                  SMF
0005A8 58C0 E186            005B0  1335+         L     XSBR,TRANSREF .         ADDR OF TRANS AREA REFRESH M6576
0005AC 07FC                        1336+         BR    XSBR .                  GO TO T.A.R.               M6576
0005AE 0000
0005B0 00000000                    1337+TRANSREF DC    V(IEAQTR02) .                                      M6576


                                   1339+* SYSWSAVE PUT HERE FOR ADDRESSABILITY                            M3220
0005B4 00000000                    1340+SYSWSAVE DC    F'0' .TIMER VALUE SAVE FIELD              M3220
0005B8 00000000                    1341+         DC    F'0' .SYSWAIT TIME ACC FIELD              M3544
0005BC 00000000                    1342+         DC    F'0' INT TIMER BEFORE RESET    A60581



                                   1344+* JOB STEP TIMING SUBROUTINE.
0005C0 41D0 E8D6            00D00  1345+DJSEARCH LA    XJSTCB,WAITTCB WAIT TASK                 A64491
0005C4 50D0 E8D6            00D00  1346+         ST    XJSTCB,WAITTCB INITIALIZE WAIT PRB       A64491
0005C8 92FF E8E6      00D10        1347+         MVI   WAITPSW,X'FF' INIT WAIT                 A64491
0005CC 9206 E8E7      00D11        1348+         MVI   WAITPSW+1,X'06' PSW                           A64491
0005D0 19D8                        1349+         CR    XJSTCB,XSEARCH A64491
0005D2 078C                        1350+         BCR   8,XSBR DON'T TOUCH DUMMY TASK.     MTS0
0005D4 58D0 8088            00088  1351+         L     XJSTCB,TCBLTC(0,XSEARCH) .GET DAUGHTER.             MTS0
0005D8 12DD                        1352+         LTR   XJSTCB,XJSTCB .IS THERE A DAUGHTER.       MTS0
0005DA 4770 E1B6            005E0  1353+         BNZ   DJS02 .USE DAUGHTER IF SO.        MTS0
0005DE 18D8                        1354+         LR    XJSTCB,XSEARCH .OTHERWISE, USE SEARCH.     MTS0
0005E0 58D0 D07C            0007C  1355+DJS02    L     XJSTCB,TCBJSTCB(0,XJSTCB) .GET JOB STEP TOP TCB.    MTS0
0005E4 58D0 D084            00084  1356+         L     XJSTCB,TCBOTC(0,XJSTCB) .GET MOTHER'S TCB....       MTS0
                                   1357+*              FOR A GOOD GUY, THIS IS AN INITIATOR TCB.           MTS0
0005E8 12DD                        1358+         LTR   XJSTCB,XJSTCB TEST FOR  GOOD MOTHER PTR.  MTS0
0005EA 078C                        1359+         BCR   8,XSBR .BRANCH IF NOT FOUND.       MTS0
                     OPTION 4...DISPATCHER                                                                     PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0005EC 91F0 D01C      0001C        1360+         TM    TCBPKF(XJSTCB),X'F0' .INITIATOR HAS NONZERO KEY. MTS0
0005F0 078C                        1361+         BCR   8,XSBR .BRANCH IF NOT INITIATOR.   MTS0
0005F2 5810 D078            00078  1362+         L     XDSTQE,TCBTME(0,XJSTCB) .GET TQE.                   MTS0
0005F6 1211                        1363+         LTR   XDSTQE,XDSTQE .IS THERE A TQE.            MTS0
0005F8 078C                        1364+         BCR   8,XSBR .BRANCH IF NO.              MTS0
0005FA 910B 1000      00000        1365+         TM    TQEFLGS(XDSTQE),X'0B' .TEST FOR GOOD TASK TQE.    MTS0
0005FE 4750 E1E0            0060A  1366+         BC    5,DJS04 MTS0
000602 052F                        1367+DJS03    BALR  XDSLNK,R15 .USE TIMER NQ/DQ ROUTINE.   MTS0
000604                             1368+         USING *,XDSLNK MTS0
000604 58E0 27F8            00DFC  1369+         L     14,ADSBASE .GET BACK BASE REGISTER.    MTS0
                                   1370+         DROP  XDSLNK MTS0
00042A                             1371+         USING DSBASE,14 MTS0
000608 07FC                        1372+         BR    XSBR .RETURN CONTROL.            MTS0
                                   1373+*                                                                  MTS0
00060A 59F0 E9CA            00DF4  1374+DJS04    C     R15,ATNQ .NOT TASK TQE, SO WE RETURN MTS0
00060E 077C                        1375+         BCR   7,XSBR UNLESS WE ARE ENQUEUEING.   MTS0
                                   1376+*                                                                  MTS0
                                   1377+*        NOW WE MUST UNDO THE CHANGES MADE  IN THE TQE BY WAIT,    MTS0
                                   1378+*              AND CONVERT THE REAL TQE USED FOR WAIT TIMING TO A  MTS0
                                   1379+*              TASK TQE TO BE USED FOR JOB STEP TIMING.            MTS0
                                   1380+*                                                                  MTS0
000610 9103 1000      00000        1381+         TM    TQEFLGS(XDSTQE),X'03' .TEST FOR REAL.             MTS0
000614 07EC                        1382+         BCR   14,XSBR .OTHERWISE, DON'T PROCESS.  MTS0
000616 1891                        1383+         LR    XTQESAVE,XDSTQE .SAVE TQE POINTER.          MTS0
000618 58F0 E9C6            00DF0  1384+         L     R15,ATDQ .GET DEQUEUE ADDRESS.       MTS0
00061C 052F                        1385+         BALR  XDSLNK,R15 .DEQUEUE THE TQE.           MTS0
00061E                             1386+         USING *,XDSLNK MTS0
00061E 58E0 27DE            00DFC  1387+         L     14,ADSBASE .RESTORE BASE REG.          MTS0
                                   1388+         DROP  XDSLNK MTS0
00042A                             1389+         USING DSBASE,14 MTS0
000622 1819                        1390+         LR    XDSTQE,XTQESAVE .RESTORE TQE POINTER.       MTS0
000624 D203 100C 1014 0000C 00014  1391+         MVC   TQEVAL(4,XDSTQE),TQESAV(XDSTQE) .RESTORE JOB TIME.  MTS0
00062A 94FC 1000      00000        1392+         NI    TQEFLGS(XDSTQE),X'FC' .MARK AS TASK TYPE.         MTS0
00062E 58F0 E9CA            00DF4  1393+         L     R15,ATNQ .GET ENQUEUE ADDRESS.       MTS0
000632 47F0 E1D8            00602  1394+         B     DJS03 .GO BACK AND ENQUEUE.       MTS0
                    OPTION 4...STAGE 3 OF THE EXIT EFFECTOR                                                    PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78


00042A                             1397+         USING DSBASE,14
000636                             1398+IEA0EF03 DS    0H
000636 D200 006A 0069 0006A 00069  1399+         MVC   PINPSW+2(1),PINPSW+1 .  SAVE CURRENT AMWP FIELD    M2352
00063C 9604 0069      00069        1400+PUTON    OI    PINPSW+1,X'04' ZAP X'04' TO X'06' TO SET WAIT BIT  M2352
000640 4130 0210            00210  1401+         LA    X3CURR,AEQJ .INITIALIZE IQE PTR.
000644 1823                        1402+EFLOOP   LR    X3PREV,X3CURR
000646 5830 2000            00000  1403+         L     X3CURR,IQELNK(0,X3PREV) .GET CURRENT IQE ADDR.
00064A 1233                        1404+         LTR   X3CURR,X3CURR .TEST FOR END OF QUEUE.
00064C 4740 E302            0072C  1405+         BC    4,EFRQE .BR IF END OF IQE QUEUE.
000650 5833 0008            00008  1406+EFI05    L     X3CURR,IQEIRB(X3CURR) 68764
000654 91C0 300A      0000A        1407+         TM    IQELNK+10(X3CURR),X'C0' @SA75841
000658 5832 0000            00000  1408+         L     X3CURR,IQELNK(X3PREV) 68764
00065C 47B0 E302            0072C  1409+         BC    11,EFRQE @SA75841

                                   1411+* IQE'S EXIST- PROCESS THROUGH QUEUE.
000660 58A0 300C            0000C  1412+         L     X3TCB,IQETCB(0,X3CURR) .GET TCB ADDR FROM IQE.
000664 9101 A01D      0001D        1413+         TM    TCBFLGS(X3TCB),TCBFX .ARE ASYNCH. EXITS SUPRESSED.
000668 4710 E21A            00644  1414+         BC    1,EFLOOP .BR IF YES.
                                   1415+* CHECK WHETHER IQE IS FOR SAME TCB IF IRB IS ACTIVE.
00066C                             1416+EFIRB    DS    0H .CHECK IRB.
00066C 5880 3008            00008  1417+         L     X3IRB,IQEIRB(0,X3CURR) .GET IRB ADDR FROM IQE.
000670 9140 800B      0000B        1418+         TM    RBSTAB+1(X3IRB),RBFACTV .IS IRB ACTIVE.
000674 4780 E260            0068A  1419+         BZ    EFDQ1 .BRANCH IF NOT.             20021
                                   1420+* CHECK TCB'S.
000678 5860 8018            00018  1421+         L     X3IRBIQE,RBIQUE(0,X3IRB) .GET ADDR OF TOP IQE.
00067C D502 300D 600D 0000D 0000D  1422+         CLC   IQETCB+1(3,X3CURR),IQETCB+1(X3IRBIQE) .ARE TCB'S EQUAL.
000682 4770 E21A            00644  1423+         BNE   EFLOOP .BR IF NOT EQUAL.
000686 47F0 E2AA            006D4  1424+         B     EFDQ .GO DEQUE IQE.              20021
                                   1425+* DEQUEUE IQE FROM AEQ.
00068A                             1426+EFDQ1    EQU   * 20021
00068A 9120 800B      0000B        1427+         TM    RBSTAB1(X3IRB),RBATTN Q.IS IRB AN ATTN. RB.        20021
00068E 4780 E2AA            006D4  1428+         BZ    EFDQ .NO.                       20021
000692 9120 A094      00094        1429+         TM    TCBTSFLG(X3TCB),TCBATT Q.TCB ATTEN. EXIT ALLOWED.  20021
000696 4710 E21A            00644  1430+         BO    EFLOOP .NO.                      20021
00069A 181A                        1431+         LR    T1,X3TCB .TASK TREE SCAN .          20021
00069C                             1432+SCANZ    EQU   * 20021
00069C 58F0 1088            00088  1433+         L     X3WK15,TCBLTC(,T1) .ADDRESS OF DESCENDENT.    20021
0006A0 12FF                        1434+         LTR   X3WK15,X3WK15 .Q.ANY DESCENDENTS FOUND.    20021
0006A2 4770 E294            006BE  1435+         BNZ   CHECKZ .YES-CHECK IT.             20021
0006A6                             1436+SCANY    EQU   * 20021
0006A6 19A1                        1437+         CR    X3TCB,T1 .Q.THIS THE REQUESTUNG TASK  20021
0006A8 4780 E2AA            006D4  1438+         BE    EFDQ .YES-DONE CHECKING.        20021
0006AC 58F0 1080            00080  1439+         L     X3WK15,TCBNTC(,T1) .ADDRESS OF SISTER TASK.   20021
0006B0 12FF                        1440+         LTR   X3WK15,X3WK15 .Q.ANY SISTER TASKS.         20021
0006B2 4770 E294            006BE  1441+         BNZ   CHECKZ .YES.                     20021
0006B6 5811 0084            00084  1442+         L     T1,TCBOTC(T1) .PICK UP MOTHER.          20021
0006BA 47F0 E27C            006A6  1443+         B     SCANY .LOOP.                    20021
0006BE                             1444+CHECKZ   EQU   * 20021
0006BE 9101 F01D      0001D        1445+         TM    TCBFLGS(X3WK15),TCBFX .Q.ARE ASYNCH.EXITS SUPPRESS 20021
0006C2 4710 E21A            00644  1446+         BO    EFLOOP .BRANCH IF YES             20021
0006C6 9120 F094      00094        1447+         TM    TCBTSFLG(X3WK15),TCBATT .Q.ATTENTION EXITS ALLOWED 20021
0006CA 4710 E21A            00644  1448+         BO    EFLOOP .NO.                       20021
0006CE 181F                        1449+         LR    T1,X3WK15 .STEP TO NEXT TO BE CHECK  20021
0006D0 47F0 E272            0069C  1450+         B     SCANZ .GO AGAIN.                 20021
                    OPTION 4...STAGE 3 OF THE EXIT EFFECTOR                                                    PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0006D4 D203 2000 3000 00000 00000  1451+EFDQ     MVC   IQELNK(4,X3PREV),IQELNK(X3CURR) .DEQUEUE IQE.
0006DA 5530 0214            00214  1452+         CL    X3CURR,AEQK .WAS LAST IQE DEQUEUED.
0006DE 4770 E2BC            006E6  1453+         BNE   *+8 .BR IF NOT.
0006E2 5020 0214            00214  1454+         ST    X3PREV,AEQK .SET PTR TO LAST IQE.
                                   1455+* QUEUE IQE ON IRB IN FIFO ORDER.
0006E6 4170 8018            00018  1456+         LA    X3IQE,RBIQUE(0,X3IRB) .INITIALIZE REG WITH IQE FIELD.
0006EA 1867                        1457+EFIQELP  LR    X3IRBIQE,X3IQE .ADVANCE TO NEXT IQE.
0006EC 5870 6000            00000  1458+         L     X3IQE,0(0,X3IRBIQE) .GET IQE ADDR.
0006F0 4170 7000            00000  1459+         LA    X3IQE,0(0,X3IQE) .CLEAR HI ORDER BYTE.
0006F4 1277                        1460+         LTR   X3IQE,X3IQE .END OF QUEUE.
0006F6 4770 E2C0            006EA  1461+         BC    7,EFIQELP .BR IF NOT.
0006FA 4316 0000            00000  1462+         IC    1,0(X3IRBIQE) SAVE USE COUNT                   5342
0006FE 5030 6000            00000  1463+         ST    X3CURR,IQELNK(0,X3IRBIQE) .HOOK IQE ON END OF QUEUE.
000702 4216 0000            00000  1464+         STC   1,0(X3IRBIQE) RESTORE USE COUNT                5342
000706 5070 3000            00000  1465+         ST    X3IQE,IQELNK(0,X3CURR) .SET LAST IQE LINK TO 0.
                                   1466+* SET UP REGS 0 AND 1.
00070A 1803                        1467+         LR    0,X3CURR .SET IQE ADDR IN REG 0.
00070C 5810 3004            00004  1468+         L     1,IQEPARAM(0,X3CURR) .SET PARAM IN REG 1.
000710 9108 800B      0000B        1469+         TM    RBSTAB+1(X3IRB),X'08' .IS 'QE' TYPE IQE          RO0A
000714 4780 E2F6            00720  1470+         BC    8,EFSETYPE .NO, CORRECT TYPE TO IQE   RO0A
000718 9104 800B      0000B        1471+         TM    RBSTAB+1(X3IRB),X'04' .IS IQE TO BE RETRNED AT EXIT RO0A
00071C 4780 E2FA            00724  1472+         BC    8,EFGOINIT .NO, BYPASS CORRECTING     RO0A
                                   1473+* INITIALIZE IRB.
000720 960C 800B      0000B        1474+EFSETYPE OI    RBSTAB+1(X3IRB),X'0C' .SET 'QE' TYPE TO IQE      RO0A
000724 4590 E446            00870  1475+EFGOINIT BAL   X3RET,IRBINTL .TO IRB INITIALIZATION RTN.   RO0A
000728 47F0 E21C            00646  1476+         B     EFLOOP+2 .CYCLE
                    OPTION 4...STAGE 3 OF THE EXIT EFFECTOR                                                    PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1478+* PROCESS RQE'S (16* RQE'S).

00072C 91FF 0210      00210        1480+EFRQE    TM    AEQJ,X'FF' .IS IQE-AEQ EMPTY.
000730 47C0 E30E            00738  1481+         BC    12,*+8 .BR IF NOT.
000734 9200 E005      0042F        1482+         MVI   IEA0DS01+1,X'00' .SET STAGE 3 SWITCH OFF.
                                   1483+*
000738 4130 020A            0020A  1484+         LA    X3CURR,AEQA .INITIALIZE RQE PTR.
00073C 1823                        1485+EFLOOP2  LR    X3PREV,X3CURR
00073E 4830 2000            00000  1486+         LH    X3CURR,RQELNK(0,X3PREV) .GET CURRENT RQE ADDR.
000742 4930 020E            0020E  1487+         CH    X3CURR,AEQC .TEST FOR END OF QUEUE.
000746 4780 E38A            007B4  1488+         BE    EFEND .BR IF END.
                                   1489+* RQE'S EXIST- PROCESS THROUGH QUEUE.
                                   1490+* CHECK FOR IRB REQUEST.
00074A                             1491+EFQSIRB  DS    0H .CHECK IRB.
00074A 9101 3003      00003        1492+         TM    RQEUCB+1(X3CURR),X'01' .TEST FOR SIRB REQUEST.
00074E 4710 E3A6            007D0  1493+         BC    1,SYSERR .BR IF SIRB REQUEST.
000752 5840 3008            00008  1494+         L     X3DEB,RQEDEB(0,X3CURR) .GET DEB ADDR.
000756 58A0 4000            00000  1495+         L     X3TCB,DEBTCBAD(0,X3DEB) .         GET TCB ADDR    A40746
00075A 41AA 0000            00000  1496+         LA    X3TCB,0(X3TCB) CLEAR HI ORDER BYTE         098
00075E 9101 A01D      0001D        1497+         TM    TCBFLGS(X3TCB),TCBFX .ARE ASYNCH EXITS SUPPRESSED.
000762 4710 E312            0073C  1498+         BC    1,EFLOOP2 .BR IF YES- DEFER REQUEST.
                                   1499+* CHECK WHETHER IRB IS ACTIVE.
000766 5880 4008            00008  1500+         L     X3IRB,DEBIRB(0,X3DEB) .GET IRB ADDR FROM DEB.
00076A 9140 800B      0000B        1501+         TM    RBSTAB+1(X3IRB),RBFACTV .IS IRB ACTIVE.
00076E 4780 E356            00780  1502+         BC    8,EFDQ2 .BR IF NOT.
                                   1503+* CHECK TCB'S.
000772 5860 8018            00018  1504+         L     X3IRBIQE,RBIQUE(0,X3IRB) .GET ADDR OF TOP RQE.
000776 D502 300D 600D 0000D 0000D  1505+         CLC   RQETCB+1(3,X3CURR),RQETCB+1(X3IRBIQE) .ARE TCB'S EQUAL.
00077C 4770 E312            0073C  1506+         BNE   EFLOOP2 .BR IF NOT EQUAL.
                                   1507+* DEQUEUE RQE FROM AEQ.
000780 D201 2000 3000 00000 00000  1508+EFDQ2    MVC   RQELNK(2,X3PREV),RQELNK(X3CURR) .DEQUEUE RQE.
000786 4930 020C            0020C  1509+         CH    X3CURR,AEQB .WAS LAST RQE DEQUEUED.
00078A 4770 E368            00792  1510+         BNE   *+8 .BR IF NOT.
00078E 4020 020C            0020C  1511+         STH   X3PREV,AEQB .SET PTR TO LAST RQE.
                                   1512+* QUEUE RQE ON IRB.
000792 4170 801A            0001A  1513+         LA    X3IQE,RBIQUE+2(0,X3IRB) .INIT REG WITH RQE FIELD ADDR.
000796 1867                        1514+EFRQELP  LR    X3IRBIQE,X3IQE
000798 4870 6000            00000  1515+         LH    X3IQE,0(0,X3IRBIQE) .GET RQE ADDR.
00079C 1277                        1516+         LTR   X3IQE,X3IQE .END OF QUEUE.
00079E 4770 E36C            00796  1517+         BC    7,EFRQELP .BR IF NOT.
0007A2 4030 6000            00000  1518+         STH   X3CURR,RQELNK(0,X3IRBIQE) .HOOK RQE ON END OF QUEUE.
0007A6 4070 3000            00000  1519+         STH   X3IQE,RQELNK(0,X3CURR) .SET LAST RQE LINK TO 0.
                                   1520+* SET UP REG 1.
0007AA 1813                        1521+         LR    1,X3CURR .SET RQE ADDR IN REG 1.
                                   1522+* INITIALIZE IRB.
0007AC 4590 E446            00870  1523+         BAL   X3RET,IRBINTL .TO IRB INITIALIZATION RTN.
0007B0 47F0 E314            0073E  1524+         B     EFLOOP2+2
                    OPTION 4...STAGE 3 OF THE EXIT EFFECTOR                                                    PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1526+* END OF IQE - RQE PROCESSING.
0007B4                             1527+EFEND    EQU   * A67917
0007B4 D501 020A 020E 0020A 0020E  1528+SIR2     CLC   AEQA(2),AEQC RQE AEQ EMPTY                 A67917
0007BA 4780 E398            007C2  1529+         BE    *+8 .BR IF YES.
0007BE 96F0 E005      0042F        1530+         OI    IEA0DS01+1,X'F0' .SET INDICATION TO ENTER STG 3.
0007C2 D200 0069 006A 00069 0006A  1531+PUTOFF   MVC   PINPSW+1(1),PINPSW+2 .  RESTORE ORIGINAL AMWP      M2352
0007C8 9200 006A      0006A        1532+         MVI   PINPSW+2,X'00' .        NEATNESS COUNTS            M2352
0007CC 47F0 E008            00432  1533+         BC    15,DSWTST
                    OPTION 4...SIRB PROCESSING                                                                 PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78


                                   1538+* SIRB REQUEST FOR SYSTEM ERROR PROCESSING.
0007D0                             1539+SYSERR   DS    0H
0007D0 58A0 E9E2            00E0C  1540+         L     X3TCB,AERTCB .GET ERROR TCB ADDRESS.
0007D4 4180 E956            00D80  1541+         LA    XSIRB,SIRB .GET SIRB ADDR.
0007D8 9140 800B      0000B        1542+         TM    RBSTAB+1(XSIRB),RBFACTV .IS SIRB ACTIVE.
0007DC 4710 E312            0073C  1543+         BO    EFLOOP2 .BR IF YES.
0007E0 94FE 3003      00003        1544+         NI    RQEUCB+1(X3CURR),X'FE' SET SIRB REQUEST FLAG OFF.
                                   1545+* DEQUEUE RQE FROM AEQ.
0007E4 D201 2000 3000 00000 00000  1546+         MVC   RQELNK(2,X3PREV),RQELNK(X3CURR) .DEQUEUE RQE.
0007EA 4930 020C            0020C  1547+         CH    X3CURR,AEQB .END OF RQE QUEUE.
0007EE 4770 E3CC            007F6  1548+         BNE   *+8 .BR IF NOT.
0007F2 4020 020C            0020C  1549+         STH   X3PREV,AEQB .SET PTR TO LAST RQE.
                                   1550+* INITIALIZE SIRB.
0007F6 4030 801A            0001A  1551+         STH   X3CURR,RBIQUE+2(0,XSIRB) .QUEUE RQE ON SIRB.
0007FA 9204 8011      00011        1552+         MVI   RBOPSW+1(XSIRB),X'04' . SET KEY TO ZERO        BD A62482
0007FE 1813                        1553+         LR    1,X3CURR .SET UP RQE ADDR IN REG 1.
                                   1554+         MVC   SIRBTCB+1(3),RQETCB+1(X3CURR) .   SAVE USER TCB   A55639X
000800 D202 E99B 300D 00DC5 0000D      +                                  ADDRESS FOR POSSIBLE ABTERMING A55639
000806 4590 E45E            00888  1555+         BAL   X3RET,SIRBINTL .TO INITIALIZE SIRB.
                                   1556+* DEVELOP ERROR RTN NAME.
00080A 4860 3002            00002  1557+         LH    X3UCB,RQEUCB(0,X3CURR) .GET UCB ADDR.
00080E 1BDD                        1558+         SR    X3WKX,X3WKX
000810 43D0 6008            00008  1559+         IC    X3WKX,UCBTAB(0,X3UCB) .GET NAME CODE.
000814 45F0 E426            00850  1560+         BAL   X3WK15,ERCNVRT .TO RTN TO CONVERT BIN TO DEC.
000818 D207 E9A6 E43E 00DD0 00868  1561+         MVC   BLDLNAME(8),ERWKX-4 MOVE NAME TO BLDL LIST
00081E 47F0 E314            0073E  1562+         B     EFLOOP2+2 .CYCLE
                    OPTION 4...SIRB PROCESSING                                                                 PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1564+* IOS ENTRY FOR FETCHING ERROR RTN PHASES. REG 14 CONTAINS EP ADDRESS.
000822                             1565+         USING *,14
                                   1566+         ENTRY IECXTLER
000822                             1567+IECXTLER DS    0H
000822 58E0 E5DA            00DFC  1568+         L     14,ADSBASE .SET NEW BASE.
00042A                             1569+         USING DSBASE,14
000826 8000 E3FD      00827        1570+         SSM   *+1 @SA76093
00082A 58B0 E9E2            00E0C  1571+         L     11,AERTCB .GET ERROR TCB ADDR.
00082E 9001 B030            00030  1572+         STM   0,1,TCBGRS(11) .SAVE REGS 0,1 IN TCB.
000832 90CF B060            00060  1573+         STM   12,15,TCBGRS+48(11) .SAVE REGS 12-15 IN TCB.
000836 45F0 E426            00850  1574+         BAL   15,ERCNVRT .TO CONVERT RTN.
00083A D207 E9A6 E43E 00DD0 00868  1575+         MVC   BLDLNAME(8),ERWKX-4 MOVE NAME TO BLDL LIST
000840 D202 E96B E963 00D95 00D8D  1576+         MVC   SIRBPSW+5(3),SIRBEP+1 .SET FETCH SEQ EP. IN PSW
000846 9200 E966      00D90        1577+         MVI   SIRBPSW,0 .DISABLE PSW              A39945
00084A 9204 E967      00D91        1578+         MVI   SIRBPSW+1,X'04' .  RE-INIT PKEY AND AMWP BITS      M4922
00084E 07FE                        1579+         BR    14 .TO DISPATCHER.



                                   1581+* CONVERSION ROUTINE FOR ERROR CODE.
000850 4ED0 E436            00860  1582+ERCNVRT  CVD   X3WKX,ERWK .CONVERT BIN CODE TO DEC.
000854 F332 E442 E43B 0086C 00865  1583+         UNPK  ERWKX,ERWK+5(3) .UNPACK DEC CODE.
00085A 07FF                        1584+         BR    X3WK15 .RETURN.



                                   1586+* WORK LOCATION FOR ERROR CODE CONVERSION.
00085C 00000000
000860 0000000000000000            1587+ERWK     DC    D'0'
000868 C9C7C5F0                    1588+         DC    C'IGE0' .STD ERROR RTN ID.
00086C 00000000                    1589+ERWKX    DC    F'0'
                    IRB INITIALIZATION                                                                         PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1591+* IRB INITIALIZATION ROUTINE.

000870 9140 800B      0000B        1593+IRBINTL  TM    RBSTAB+1(X3IRB),RBFACTV .IS IRB ALREADY ACTIVE.
000874 0719                        1594+         BCR   1,X3RET .BR IF YES
000876 D23F 8020 A030 00020 00030  1595+         MVC   RBGRSAVE(64,X3IRB),TCBGRS(X3TCB) .MOVE REGS TO IRB
00087C 58D0 8000            00000  1596+         L     13,RBSVADDR(0,X3IRB) .SET S/A ADDR.
000880 9101 8011      00011        1597+         TM    RBOPSW+1(X3IRB),X'01' .IS CODE IN SUPV. MODE.
000884 4710 E462            0088C  1598+         BO    *+8 .BR IF NOT.
000888                             1599+SIRBINTL DS    0H
000888 9200 8010      00010        1600+         MVI   RBOPSW(X3IRB),0 .DISABLE PSW
00088C 9640 800B      0000B        1601+         OI    RBSTAB+1(X3IRB),RBFACTV .SET IRB ACTIVE.
000890 D202 801D A001 0001D 00001  1602+         MVC   RBLINK+1(3,X3IRB),TCBRBP+1(X3TCB) .QUEUE IRB ON TCB.
000896 4180 8000            00000  1603+         LA    X3IRB,0(0,X3IRB) .CLEAR HI ORDER BYTE.
00089A 5080 A000            00000  1604+         ST    X3IRB,TCBRBP(0,X3TCB) .STORE NEW IRB ADDR IN TCB.
00089E D202 8015 800D 00015 0000D  1605+         MVC   RBOPSW+5(3,X3IRB),RBEP+1(X3IRB) .INITIALIZE E.P.
0008A4 186E                        1606+         LR    X3WR,14 .SAVE BASE.
0008A6 41E0 EA4A            00E74  1607+         LA    14,IEA0EXIT .PLACE ADDR OF SVC 3 IN 14.
0008AA 58F0 800C            0000C  1608+         L     15,RBEP(0,X3IRB) .PLACE EP IN 15.
0008AE 90DF A064            00064  1609+         STM   13,15,TCBGRS+52(X3TCB) .SAVE REGS IN TCB.
0008B2 9001 A030            00030  1610+         STM   0,1,TCBGRS(X3TCB)
                                   1611+         DROP  14
00042A                             1612+         USING DSBASE,X3WR
0008B6 58C0 69E6            00E10  1613+         L     12,AIEADS02 .GET ADDR OF TASK SWITCH RTN.
0008BA 05EC                        1614+         BALR  14,12 .TO TASK SW RTN.
0008BC 18E6                        1615+         LR    14,X3WR .RESTORE BASE.
0008BE 07F9                        1616+         BR    X3RET .RETURN.
                                   1617+         DROP  X3WR
                    OPTION 4...SVC FLIH                                                                        PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78


                                   1620+*                            SVC FLIH

                                   1622+         ENTRY IEAQSC00
0008C0                             1623+IEAQSC00 DS    0H
0008C0 900F 0218            00218  1624+         STM   0,15,IEASCSAV .SAVE ALL REGS IN LOW CORE.
0008C4 0520                        1625+         BALR  2,0
0008C6                             1626+         USING *,2
0008C6                             1627+SCBASE   DS    0H
                                   1628+* SET ENVIRONMENTAL REGISTERS
0008C6 5830 0010            00010  1629+         L     XCVT,CVTPTR .CVT ADDRESS.
0008CA 5840 20A2            00968  1630+         L     XTCB,IEATCBP+4 .CURRENT TCB.
0008CE 5850 4000            00000  1631+         L     XRB,TCBRBP(0,XTCB) .CURRENT RB.
0008D2 58E0 2562            00E28  1632+         L     14,AIEA0XE .RETURN ADDR FOR TYPE 1'S.
                                   1633+* TRACE INTERFACE
                                   1634+*  ISSUE HOOK FOR SVC TRACE                                       21014
                                   1635+*
                                   1636+* MC INSTRUCTION GENERATED BY THE HOOK MACRO
                                   1637+* COMPATIBLE FOR MACHINES WITHOUT THE MC HARDWARE
                                   1638+*
0008D6 AF030FFF                    1639+         DC    XL1'AF',AL3(IHLMSVC) MC INSTRUCTION
0008DA 47030FFF                    1640+         DC    XL1'47',AL3(IHLMSVC) NOP TO CARRY EID
0008DE 58A0 257A            00E40  1641+         L     XTRBASE,ATRSVC .GET TRACE RTN. EP.
0008E2 05BA                        1642+         BALR  XTRET,XTRBASE .TO TRACE RTN.
                                   1643+* LOOK UP SVC ENTRY ADDRESS
0008E4 9868 254E            00E14  1644+         LM    XSVCNO,XHIIBM,SVCCONS .SET UP WORKING REGS.
0008E8 5460 0020            00020  1645+         N     XSVCNO,SVCOPSW .ISOLATE SVC NO.
0008EC 1A66                        1646+         AR    XSVCNO,XSVCNO .MULTIPLY SVC NO. BY 4 TO
0008EE 1A66                        1647+         AR    XSVCNO,XSVCNO DEVELOP INDEXING VALUE.
0008F0 1968                        1648+         CR    XSVCNO,XHIIBM .IS SVC NO. IBM OR USER.
0008F2 4720 2078            0093E  1649+         BH    USERSVC .BR IF USER SVC.
0008F6 5866 7000            00000  1650+IBMSVC   L     XSVCEP,0(XSVCNO,XTBORG) .GET TABLE ELEMENT FOR SVC.
0008FA 1266                        1651+         LTR   XSVCEP,XSVCEP .IS SVC TYPE 1.
0008FC 4740 2054            0091A  1652+         BC    4,SC234 .BR IF NOT.
000900 91F0 2572      00E38        1653+         TM    IEATYPE1,X'F0' TYPE 1 SW ON              A68543
000904 47E0 204E            00914  1654+         BNO   SV03 NO                        A68543
000908 D23F 25B2 0218 00E78 00218  1655+SV02     MVC   IEASV(64),IEASCSAV SAVE REGS                 A68543
00090E D207 25F2 0020 00EB8 00020  1656+         MVC   PSWSV(8),SVCOPSW M0009
000914 96F0 2572      00E38        1657+SV03     OI    IEATYPE1,X'F0' SET TYPE 1                A68543
000918 07F6                        1658+         BR    XSVCEP .ENTER TYPE 1 SVC CODE.
00091A                             1659+SC234    DS    0H
00091A 4170 243A            00D00  1660+         LA    XTRX,WAITTCB A64491
00091E 1974                        1661+         CR    XTRX,XTCB WAIT TCB                  A64491
000920 4770 206E            00934  1662+         BNE   SC2342 NO CONTINUE               A64491
000924 D23F 25FA 0218 00EC0 00218  1663+         MVC   IEASV1(64),IEASCSAV SAVE ERROR                A64491
00092A D207 263A 0020 00F00 00020  1664+         MVC   PSWSV1(8),SVCOPSW A64491
000930 8200 0020      00020        1665+         LPSW  SVCOPSW ERROR RETURN              A64491
000934                             1666+SC2342   EQU   * A64491
000934 4170 0218            00218  1667+         LA    XTRX,IEASCSAV .PASS SAVE AREA ADDR TO TAH.
000938 58C0 2566            00E2C  1668+         L     XTREP,AIEATR00 .GET ENTRY POINT TO TRANS RTN.
                                   1669+* ALL REGS ARE SAVED IN IEASCSAV AND MUST BE TRANSFERRED TO SVRB.
00093C 07FC                        1670+         BR    XTREP .TO TRANSIENT SVC HANDLER.
                    OPTION 4...SVC FLIH                                                                        PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1672+* USER SVC HANDLING
00093E 5870 255E            00E24  1673+USERSVC  L     XTBORG,AUSERORG .GET ADDRESS OF ORIG OF USER SVC
                                   1674+*                                       TABLE.
000942 5B60 255A            00E20  1675+         S     XSVCNO,LOWUSER .SUBTRACT 4 TIMES LOWEST USER
                                   1676+*                                       SVC NO. FROM 4 TIMES ISSUED SVC
                                   1677+*                                       NO. (IN REG XSVCNO) IN ORDER TO
                                   1678+*                                       DEVELOP INDEX FROM USER ORIGIN.
000946 47A0 2030            008F6  1679+         BC    10,IBMSVC IF RESULT IS ZERO OR POSITIVE         0009
                                   1680+*                            SVC IS VALID                          0009
                                   1681+* SVC ISSUED IS IN ERROR- ABEND.
                                   1682+         ENTRY IGCERROR
00094A                             1683+IGCERROR DS    0H
                                   1684+*                                       WITHIN VALID USER SVC RANGE.
00094A D207 5010 0020 00010 00020  1685+         MVC   RBOPSW(8,XRB),SVCOPSW . SAVE USER PSW IN HIS RB   A44640
000950 4810 0022            00022  1686+         LH    XERRNO,SVCOPSW+2 .PICK UP ERROR SVC NO.
000954 4110 1F00            00F00  1687+         LA    XERRNO,X'F00'(0,XERRNO) .DEVELOP ERROR CODE
000958 58D0 256E            00E34  1688+         L     XABTERM,ABEDIT GET TYPE I ENTRY TO ABTERM
00095C 58E0 2562            00E28  1689+         L     14,AIEA0XE SET -ETU-N TO TYPE 1 EX&T       1822
000960 07FD                        1690+         BR    XABTERM .TO ABTERM. REG 14 = DISP ADDR.
                                   1691+         DROP  2
                                   1692+         EXTRN IEAMSTCB A72115
                                   1693+         ENTRY IEATCBP A72115
000962 0000
000964 00000000                    1694+IEATCBP  DC    A(IEAMSTCB) .' NEW'                   A72115
000968 00000000                    1695+         DC    A(IEAMSTCB) .' OLD'                   A72115
                   OPTION 4...EXCP COUNTER ROUTINE                                                             PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1698+*                           EXCP ROUTINE

                                   1700+         ENTRY IEASMFEX SMF
00096C                             1701+IEASMFEX DS    0H SMF

00096C                             1703+         USING *,XBASE SMF
00096C 18B0                        1704+         LR    XTCBPTR,XTCBPASS .  LOAD TCB POINTER REG           20472
00096E 58CB 0000            00000  1705+         L     XRWRK,TCBRBP(XTCBPTR) GET CURRENT RB                 SMF
000972 91C0 C00A      0000A        1706+         TM    RBSTAB(XRWRK),CSVRB IS RB AN SVRB                   SMF
000976 47E0 F05E            009CA  1707+         BNO   SMFEXCPA .          NO-CONTINUE PROCESSING         20472
00097A 9180 C00B      0000B        1708+         TM    RBSTAB+1(XRWRK),X'80' IS NEXT RB PTR THE TCB PTR    SMF
00097E 071E                        1709+         BCR   C1,XRTN .           YES-SKIP PROCESSING            20472
000980 58CC 001C            0001C  1710+         L     XRWRK,RBLINK(XRWRK) GET NEXT RB                      SMF
000984 91C0 C00A      0000A        1711+         TM    RBSTAB(XRWRK),CSVRB IS THIS A PRB                    SMF
000988 077E                        1712+         BCR   C7,XRTN .           NO-SKIP PROCESSING             20472
                                   1713+*  SVRB IS FIRST RB, PRB IS SECOND RB.  CHECK PRB RESUME PSW FOR    SMF
                                   1714+*  OPEN/OPENJ/CLOSE/TCLOSE/EOV.                                     SMF
00098A 9515 C013      00013        1715+         CLI   RBOPSW+3(XRWRK),X'15' WAS SVC A STOW                SMF
00098E 078E                        1716+         BCR   C8,XRTN .           YES-SKIP PROCESSING            20472
000990 9537 C013      00013        1717+         CLI   RBOPSW+3(XRWRK),X'37' WAS SVC EOV                   SMF
000994 4780 F038            009A4  1718+         BE    SMFEXCPB YES-CONTINUE PROCESSING          SMF
000998 9513 C013      00013        1719+         CLI   RBOPSW+3(XRWRK),X'13' WAS SVC LESS THAN OPEN        SMF
00099C 074E                        1720+         BCR   C4,XRTN .           YES-SKIP PROCESSING            20472
00099E 9517 C013      00013        1721+         CLI   RBOPSW+3(XRWRK),X'17' WAS SVC GREATER THAN TCLOSE   SMF
0009A2 072E                        1722+         BCR   C2,XRTN .           YES SKIP PROCESSING            20472
                                   1723+*  TEST IF THE DEB PASSED IS ON THE TCB DEB CHAIN. IF NOT THEN   A28422
                                   1724+*  THIS IS A WORK DCB AND NO COUNT TAKEN                         A28422
0009A4                             1725+SMFEXCPB DS    0H .                                              A28422
0009A4 58C0 402C            0002C  1726+         L     XRWRK,DEBPTR(0,XDCBPAS) .DEB ADDRESS FROM DCB     A28422
0009A8 41C0 C000            00000  1727+         LA    XRWRK,0(0,XRWRK) .  CLEAR HI BYTE                 A28422
0009AC 58D0 B008            00008  1728+         L     XRWRK2,8(0,XTCBPTR) .DEB ADDRESS FROM TCB CHAIN   A28422
0009B0 47F0 F050            009BC  1729+         B     TEST .              GO COMPARE                    A28422
0009B4                             1730+DEBSRCH  DS    0H .                                              A28422
0009B4 58D0 D004            00004  1731+         L     XRWRK2,4(0,XRWRK2) .GET NEXT DEB ADDRESS          A28422
0009B8 41D0 D000            00000  1732+         LA    XRWRK2,0(0,XRWRK2) .CLEAR HI BYTE                 A28422
0009BC                             1733+TEST     DS    0H .                                              A28422
0009BC 12DD                        1734+         LTR   XRWRK2,XRWRK2 .     END OF DEB CHAIN              A28422
0009BE 078E                        1735+         BCR   C8,XRTN .           YES-RETURN TO IOS             A28422
0009C0 19CD                        1736+         CR    XRWRK,XRWRK2 .      DEB ADDRESS'S EQUAL           A28422
0009C2 4770 F048            009B4  1737+         BNE   DEBSRCH .           NO-CHECK NEXT                 A28422
0009C6 47F0 F064            009D0  1738+         B     SMFEXCPC .                                        A28422
0009CA                             1739+SMFEXCPA DS    0H .                                               20472
0009CA 9108 C00C      0000C        1740+         TM    CC(XRWRK),C8 .      FETCH I/O                     A31489
0009CE 071E                        1741+         BCR   C1,XRTN .           YES-RETURN TO IOS             A31489
0009D0 18A4                        1742+SMFEXCPC LR    XDCBPTR,XDCBPAS SMF
0009D2 58BB 00A4            000A4  1743+         L     XTCTPTR,TCBTCT(XTCBPTR) GET TCT ADDRESS             SMF
0009D6 41BB 0000            00000  1744+         LA    XTCTPTR,0(XTCTPTR) SMF
0009DA 12BB                        1745+         LTR   XTCTPTR,XTCTPTR IS THERE A TCT                   SMF
0009DC 078E                        1746+         BCR   C8,XRTN .           RETURN IF NO                   20472
                                   1747+         EXTRN IEATLEXT 19028
0009DE 900F F1F0            00B5C  1748+         STM   R0,XBASE,LSAVE .SAVE CONTENTS OF ALL REGS     19028
0009E2 58BB 000C            0000C  1749+         L     XTCTPTR,TCTIOTBL(XTCTPTR) GET I/O TABLE ADDRESS     SMF
0009E6 12BB                        1750+         LTR   XTCTPTR,XTCTPTR IS THERE AN I/O TABLE            SMF
0009E8 078E                        1751+         BCR   C8,XRTN .           RETURN IF NO                   20472
0009EA 9111 A030      00030        1752+         TM    DCBOFLGS(XDCBPTR),OB IS DCB OPENED/BUSY             SMF
                   OPTION 4...EXCP COUNTER ROUTINE                                                             PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0009EE 078E                        1753+         BCR   C8,XRTN .           RETURN IF NO                   20472
0009F0 48AA 0028            00028  1754+         LH    XTIOTD,DCBTIOT(XDCBPTR) GET TIOT DD OFFSET          SMF
0009F4 1BCC                        1755+         SR    XRWRK,XRWRK SMF
0009F6 41DB 0008            00008  1756+         LA    XTCTSRC,TCTCOMIO(XTCTPTR) LOAD SEARCH POINTER       SMF
                                   1757+*  FIND RIGHT TCTIOT SLOT - A MATCH BETWEEN THIS DCB TIOT DD        SMF
                                   1758+*  OFFSET AND A DCB TIOT DD OFFSET IN THE TCTIOT LOOKUP TABLE.      SMF
0009FA 49CD 0000            00000  1759+SRCHSLOT CH    XRWRK,TCTDCBTD(XTCTSRC) LAST SLOT                  SMF
0009FE 078E                        1760+         BCR   C8,XRTN .           BRANCH IF YES                  20472
000A00 49AD 0000            00000  1761+         CH    XTIOTD,TCTDCBTD(XTCTSRC) IS THIS THE SLOT           SMF
000A04 4780 F0A4            00A10  1762+         BE    SLOTFND BRANCH IF YES                    SMF
000A08 41DD 0004            00004  1763+         LA    XTCTSRC,ENTLGTH(XTCTSRC) STEP TO NEXT SLOT          SMF
000A0C 47F0 F08E            009FA  1764+         B     SRCHSLOT SMF
                                   1765+*  COMPUTE THIS SLOT ADDRESS IN THE TCTIOT COUNTER TABLE.           SMF
000A10 4ABD 0002            00002  1766+SLOTFND  AH    XTCTPTR,TCTIOTSD(XTCTSRC) CALC SLOT ADDR.           SMF
000A14 50B0 F230            00B9C  1767+         ST    XTCTPTR,LSAVE1 .STORE CALC SLOT ADDR     M3080
000A18 43CB 0002            00002  1768+         IC    XRWRK,TCTSCTR(XTCTPTR) GET UCB COUNT THIS SLOT      SMF
000A1C 18DC                        1769+         LR    XRWRK2,XRWRK SAVE # UCB'S          19028
000A1E 41A0 7000            00000  1770+         LA    XTIOTD,0(0,XUCBPTR) CLEAR FLAGS FROM UCB PTR REG SMF
                                   1771+*  FIND RIGHT TCTIOT COUNTER - A MATCH BETWEEN THIS UCB AND A UCB   SMF
                                   1772+*  IN THIS TCTIOT COUNTER SLOT.                                     SMF
000A22 49AB 0000            00000  1773+SRCHUCB  CH    XTIOTD,TCTUCBP(XTCTPTR) THIS THE UCB               SMF
000A26 4780 F120            00A8C  1774+         BE    UCBFND BRANCH IF YES                    SMF
000A2A D501 A012 F244 00012 00BB0  1775+         CLC   UCBTYP(C2,XTIOTD),D2321 .IS UCB FOR 2321 ?         20472
000A30 4770 F0D4            00A40  1776+         BNE   NOT2321 .           NO-BRANCH                      20472
000A34 41AA 0038            00038  1777+         LA    XTIOTD,DEC56(XTIOTD) POINT TO BIN 0            A30586
000A38 4130 000B            0000B  1778+         LA    CELLCTR,CNT11 INITIALIZE CELL CTR TO 11  20472
000A3C 4630 F110            00A7C  1779+BINLOOP  BCT   CELLCTR,SRCHCELL LOOP CONTROL              A30586
000A40 41BB 0008            00008  1780+NOT2321  LA    XTCTPTR,SLOTLNGH(XTCTPTR) STEP TO NEXT UCB          SMF
000A44 46C0 F0B6            00A22  1781+         BCT   XRWRK,SRCHUCB NOT ZERO-SEARCH NEXT UCB     SMF
000A48 41BB 0008            00008  1782+         LA    XTCTPTR,SLOTLNGH(XTCTPTR) STEP OVER OUTLIM FLD BD A30900
000A4C 91FF F246      00BB2        1783+         TM    CONCSW,ON .         HAVE WE BEEN HERE ALREADY  BD A30900
000A50 4710 F0F6            00A62  1784+         BO    NOSET .             YES - SKIP INIT            BD A30900
000A54 92FF F246      00BB2        1785+         MVI   CONCSW,ON .         PREVENT REINIT OF ADDR     BD A30900
000A58 1860                        1786+         LR    C6,XTCBPASS .       TCB ADDR                   BD A30900
000A5A 5860 600C            0000C  1787+         L     C6,TCBTIOT(0,C6) .  TIOT ADDR                  BD A30900
000A5E 4A60 4028            00028  1788+         AH    C6,DCBTIOT(0,C4) .  TIOT DD ENTRY ADDR         BD A30900
000A62                             1789+NOSET    EQU   * .                                            BD A30900
000A62 43C0 6000            00000  1790+         IC    XRWRK,0(0,C6) .     LENGTH OF DD ENTRY         BD A30900
000A66 1A6C                        1791+         AR    C6,XRWRK .          ADDR OF NEXT DD ENTRY      BD A30900
000A68 9500 6000      00000        1792+         CLI   0(C6),0 .           END OF TIOT                BD A30900
000A6C 4780 F1D4            00B40  1793+         BE    NOTEXCP .           YES RETURN TO IOS          BD A30900
000A70 9540 6004      00004        1794+         CLI   4(C6),C' ' .        IS NAME BLANK              BD A30900
000A74 4780 F0A8            00A14  1795+         BE    SLOTFND+4 .         YES CHECK TCTIOTBL         BD A30900
000A78 47F0 F1D4            00B40  1796+         B     NOTEXCP .           RETURN TO IOS              BD A30900
000A7C 49AB 0000            00000  1797+SRCHCELL CH    XTIOTD,TCTUCBP(XTCTPTR) DOES 2321 UCB MATCH SLOT A30586
000A80 4780 F120            00A8C  1798+         BE    UCBFND BR IF WE GET MATCH        A30586
000A84 41AA 0010            00010  1799+         LA    XTIOTD,DEC16(XTIOTD) IF NO MATCH - NEXT BIN    A30586
000A88 47F0 F0D0            00A3C  1800+         B     BINLOOP GO CHECK COUNTER          A30586
                                   1801+*  COUNTER FOUND - ADD ONE TO COUNTER.                              SMF
000A8C 41C0 0001            00001  1802+UCBFND   LA    XRWRK,1 SET EXCP COUNTER                 SMF
000A90 5ECB 0004            00004  1803+         AL    XRWRK,TCTDCTR(XTCTPTR) ADD IN COUNT                 SMF
000A94 50CB 0004            00004  1804+         ST    XRWRK,TCTDCTR(XTCTPTR) STORE NEW EXCP COUNT         SMF
000A98 1BCC                        1805+         SR    XRWRK,XRWRK 19028
000A9A 41E0 0004            00004  1806+         LA    XRWRK4,4 .INIT INDEX REG TO POINT TO EXCP FLD  19028
000A9E 58B0 F230            00B9C  1807+         L     XTCTPTR,LSAVE1 RESTORE SLOT ADDRESS       M3326
                   OPTION 4...EXCP COUNTER ROUTINE                                                             PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000AA2 5ECE B000            00000  1808+SUMEXCP  AL    XRWRK,TCTUCBP(XRWRK4,XTCTPTR) ADD EACH EXCP FLD   19028
000AA6 41EE 0008            00008  1809+         LA    XRWRK4,8(XRWRK4) STEP  TO NEXT  ONE  19028
000AAA 46D0 F136            00AA2  1810+         BCT   XRWRK2,SUMEXCP BR IF NOT ALL TOTALED        19028
000AAE 41D0 0004            00004  1811+         LA    XRWRK2,4 19028
000AB2 1BED                        1812+         SR    XRWRK4,XRWRK2 19028
000AB4 1BDD                        1813+         SR    XRWRK2,XRWRK2 19028
000AB6 59DE B000            00000  1814+         C     XRWRK2,TCTUCBP(XRWRK4,XTCTPTR) COMPARE OUTLIM TO 0 19028
000ABA 4780 F1D4            00B40  1815+         BE    NOTEXCP OUTLIM NOT SET, BR  19028
000ABE 06C0                        1816+         BCTR  XRWRK,0 19028
000AC0 59CE B000            00000  1817+         C     XRWRK,TCTUCBP(XRWRK4,XTCTPTR) COMPARE SUM TO OUTLM19028
000AC4 4770 F1D4            00B40  1818+         BNE   NOTEXCP LIMIT NOT EXCEEDED, BR    19028
                                   1819+* THE OUTPUT LIMIT HAS BEEN EXCEEDED. AN IRB/IQE WILL NOW BE      19028
                                   1820+* CREATED FOR IEATLEXT.CONTROL WILL BE PASSED TO THE ST2 EXIT     19028
                                   1821+* EFFECTOR TO SCHEDULE IEATLEXT.                                  19028
000AC8 5830 0010            00010  1822+         L     XSCMMTBL,16 ADDR OF CVT               M3261
000000                             1823+         USING CVTSECT,XSCMMTBL BASE FOR CVT DSECT        M3261
000ACC 5890 30C4            000C4  1824+         L     SMCAADR,CVTSMCA LOAD SMCA ADDR          M3261
000AD0 9120 9000      00000        1825+         TM    0(SMCAADR),EXITS Q. EXITS ALLOWED           M3261
000AD4 47E0 F1DE            00B4A  1826+         BNO   OUTLMABN NO ABTERM THE JOB          M3261
000AD8 5870 F218            00B84  1827+         L     DCBSAVE,LSAVE+40 GET DCB ADDR FROM LSAVE    19028
000ADC 5840 F21C            00B88  1828+         L     TCBSAVE,LSAVE+44 GET  TCT ADDR                   19028
000AE0 5844 0004            00004  1829+         L     TCBSAVE,4(TCBSAVE) GET INIT TCB ADDR          19028
000AE4 58C0 F230            00B9C  1830+         L     XRWRK,LSAVE1 .RESTORE SLOT ADDR        19028
000AE8 1ACE                        1831+         AR    XRWRK,XRWRK4 ADD TO GET OUTLM ADDR             19028
000AEA 182C                        1832+         LR    LIMOFF,XRWRK SAVE ADDR OF OUTLIM                19028
000AEC 58A0 F234            00BA0  1833+         L     XSYSTRTN,IEATLEX .ADDR ASYNCH ROUTINE      19028
000AF0 5800 F238            00BA4  1834+         L     R0,IRBCORE IRB SUBPOOL AND SIZE      19028
000AF4 5830 0010            00010  1835+         L     XSCMMTBL,16 ADDR OF CVT               19028
000AF8 5853 00C8            000C8  1836+         L     GMBRNCH,200(XSCMMTBL) ADDR OF SVCT             19028
000AFC 5855 001C            0001C  1837+         L     GMBRNCH,28(GMBRNCH) GETMAIN EP IN REG 15        19028
000B00 4110 000A            0000A  1838+         LA    XSQPTR,10 SET REG1 TO ANY POS VALUE     19028
000B04 1311                        1839+         LCR   XSQPTR,XSQPTR COMPL TO INDICATE GETMAIN     19028
000B06 186F                        1840+         LR    XS1,XBASE .SAVE REG 15              19028
000B08 05E5                        1841+         BALR  R14,GMBRNCH GO TO GETMAIN ROUTINE    19028
000B0A 18F6                        1842+         LR    XBASE,XS1 .RESTORE REG 15           19028
000B0C D78F 1000 1000 00000 00000  1843+         XC    0(IRBLNGTH,IRBADDR),0(IRBADDR) CLEAR IRB/IQE       19028
000B12 D203 1008 F23C 00008 00BA8  1844+         MVC   STABSIZE(4,IRBADDR),RBSZSTAB INIT IRB STAB/SIZE  19028
000B18 50A1 000C            0000C  1845+         ST    XSYSTRTN,ENTRY(IRBADDR) PUT ASYNCH RTN @ IN IRB   19028
000B1C 4181 0060            00060  1846+         LA    IQEADDR,C96(IRBADDR) GET IQE ADDR         19028
000B20 9640 8004      00004        1847+         OI    4(IQEADDR),X'40' .TURN OUTLIM SWITCH ON  19028
000B24 5018 0008            00008  1848+         ST    IRBADDR,IQEIRB(IQEADDR) PUT IRB ADDR IN IQE  19028
000B28 5048 000C            0000C  1849+         ST    TCBSAVE,IQETCB(IQEADDR) PUT TCB ADDR IN IQE  19028
000B2C 5078 0010            00010  1850+         ST    DCBSAVE,IQEDCB(IQEADDR) .STORE DCB ADDR IN IQE    19028
000B30 5028 0014            00014  1851+         ST    LIMOFF,IQEOUTLM(IQEADDR) ST OUTLIM ADDR   IN IQE   19028
000B34 4111 0060            00060  1852+         LA    ADDRIQE,C96(ADDRIQE) PUT IQE ADDR IN R1   19028
000B38 1311                        1853+         LCR   ADDRIQE,ADDRIQE COMPL TO INDICATE IQE        19028
000B3A 5853 0004            00004  1854+         L     XSEXTEFT,C4(XSCMMTBL) ADDR ST2 EX EFF      19028
000B3E 05E5                        1855+         BALR  R14,XSEXTEFT GO TO EX EFF         19028
000B40 980F F1F0            00B5C  1856+NOTEXCP  LM    R0,XBASE,LSAVE .RESTORE REGS                   19028
000B44 9200 F246      00BB2        1857+         MVI   CONCSW,OFF .        RESET SWITCH               BD A30900
000B48                             1858+NOTEXCPA EQU   *
000B48 07FE                        1859+         BR    XRTN SMF
000B4A 5810 F240            00BAC  1860+OUTLMABN L     XSQPTR,ABCODE2 SET OUTLIM ABEND CODE     M3261
000B4E 186F                        1861+         LR    XS1,BASESMF SAVE BASE REG             M3261
000B50 58F0 3034            00034  1862+         L     BASESMF,CVTBTERM ABTERM ADDR FROM CVT   M3261
                   OPTION 4...EXCP COUNTER ROUTINE                                                             PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000B54 05EF                        1863+         BALR  R14,BASESMF ABTERM THE TASK           M3261
000B56 18F6                        1864+         LR    BASESMF,XS1 RESTORE BASE REG          M3261
000B58 47F0 F1D4            00B40  1865+         B     NOTEXCP RESTORE IOS REGS AND RETURN   M3261
                                   1866+         DROP  XBASE SMF

000B5C 0000000000000000            1868+LSAVE    DC    16F'0' . LOCAL SAVEAREA                19028
000B9C 00000000                    1869+LSAVE1   DC    F'0' SAVE TCT POINTER           19028
000BA0 00000000                    1870+IEATLEX  DC    A(IEATLEXT) .ADDR ASYNCH RTN          19028
000BA4 FD000090                    1871+IRBCORE  DC    X'FD000090' .IRB/IQE SUBPOOL AND SIZE 19028
000BA8 00124012                    1872+RBSZSTAB DC    X'00124012' .RB SIZE AND IQE/IRB FLG  19028
000BAC 80722000                    1873+ABCODE2  DC    X'80722000' M3261
000BB0 2005                        1874+D2321    DC    X'2005' .           UCB TYPE FOR 2321              20472
000012                             1875+UCBTYP   EQU   18 .                                               20472
00002C                             1876+DEBPTR   EQU   44 .                                              A28422
000004                             1877+ENTLGTH  EQU   4 .LENGTH OF LOOK UP ENTRY         SMF
000008                             1878+SLOTLNGH EQU   8 .LENGTH OF SLOT FIELD            SMF
000BB2 00                          1879+CONCSW   DC    X'00' .                                        BD A30900
0000FF                             1880+ON       EQU   255 .                                          BD A30900
000000                             1881+OFF      EQU   0 .                                            BD A30900
00000C                             1882+TCBTIOT  EQU   12 .                                           BD A30900
                    OPTION 4...SIRB FETCH SEQUENCE                                                             PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78


                                   1885+*                            FETCH SEQUENCE FOR ERROR ROUTINES
000BB4                             1886+ERFETCH  DS    0H
000BB4 0560                        1887+         BALR  6,0
000BB6                             1888+         USING *,6
000BB6                             1889+ERBSE    DS    0H
000BB6 D507 621A 61CA 00DD0 00D80  1890+         CLC   BLDLNAME(8),SIRB Q. ERR RTN EQ LAST-USED ERP    19017
000BBC 4780 6088            00C3E  1891+         BE    ERSKP .BR IF YES.
000BC0 9400 62BC      00E72        1892+         NI    ERRCOUNT,ZERO INITIALIZE COUNT           19022
000BC4 D207 61CA 621A 00D80 00DD0  1893+ERBSE1   MVC   SIRB(8),BLDLNAME MOVE ROUTINE NAME TO SIRB  19022
000BCA 5870 629E            00E54  1894+         L     RERPNM,ASVCLDCB A67917
000BCE 9603 702C      0002C        1895+         OI    DCBIFLGS(RERPNM),X'03' PREVENT ERP            A67917
000BD2 943F 702C      0002C        1896+         NI    DCBIFLGS(RERPNM),X'3F' RESET ERROR               A67917
000BD6 9200 61CA      00D80        1897+         MVI   SIRB,X'00' INVALIDATE NAME TO PREVENT
                                   1898+*                                      USE BEFORE RTN IS LOADED
000BDA 98D1 628E            00E44  1899+         LM    13,1,BLDLINTF .SET UP FOR BLDL.
000BDE 8000 62BA      00E70        1900+         SSM   ENABLE
000BE2 07FF                        1901+         BR    15 .GO TO BLDL.
000BE4 0560                        1902+BLDLRETN BALR  6,0 .REESTABLISH ADDRESSABILITY.
000BE6                             1903+         USING *,6
000BE6 5860 627E            00E64  1904+         L     6,AERBSE .RESTORE BASE.
000BB6                             1905+         USING ERBSE,6
000BEA 8000 62BB      00E71        1906+         SSM   DISABLE
000BEE 47FF 603C            00BF2  1907+         B     *+4(15) .  BRANCH TABLE             7645
000BF2 47F0 6060            00C16  1908+         B     BLDLOK .  BLDL SUCCESSFUL          7645
000BF6 47F0 60A4            00C5A  1909+         B     ERABTERM .  MODULE NOT FOUND         7645
000BFA 9505 62BC      00E72        1910+ERFERR1  CLI   ERRCOUNT,FIVE CHECK IF RECYCLE COUNT IS 5  19022
000BFE 4740 6050            00C06  1911+         BL    ERFERR3 A67917
000C02 47F0 6094            00C4A  1912+         B     ERFERR NORMAL ERROR PROCESSING    19022
000C06 4370 62BC            00E72  1913+ERFERR3  IC    XFWK,ERRCOUNT PICK UP RECYCLE COUNT      19022
000C0A 4177 0001            00001  1914+         LA    XFWK,ONE(XFWK) UP BY ONE                  19022
000C0E 4270 62BC            00E72  1915+         STC   XFWK,ERRCOUNT SAVE RECYCLE COUNT         19022
000C12 47F0 600E            00BC4  1916+         B     ERBSE1 RETRY                      19022
000C16                             1917+BLDLOK   EQU   * 7645
000C16 5870 62A6            00E5C  1918+         L     XFWK,AFTCHWA .SET ADDR OF FETCH W/A.
000C1A D203 7024 6228 00024 00DDE  1919+         MVC   36(4,XFWK),BLDLTTRN .SET TTRN INTO FETCH W/A.
000C20 D201 703E 6233 0003E 00DE9  1920+         MVC   62(2,XFWK),BLDLSIZE+1 .SET MODULE SIZE INTO FETCH W/A.
000C26 5890 62A2            00E58  1921+         L     XFEP,AFETCH .GET FETCH ADDR.
000C2A 0589                        1922+         BALR  XFRETN,XFEP .FETCH ERROR RTN.
                                   1923+* NOTE- CONTROL RETURNS AFTER ERROR RTN IS LOADED.
000C2C 12FF                        1924+         LTR   15,15 .ANY FETCH ERROR.
000C2E 4770 6044            00BFA  1925+         BC    7,ERFERR1 CHECK RECYCLE COUNT        19022
000C32 92C9 61CA      00D80        1926+         MVI   SIRB,C'I' RESTORE NAME
000C36 5810 629E            00E54  1927+         L     X1,ASVCLDCB A67917
000C3A 94FC 102C      0002C        1928+         NI    DCBIFLGS(X1),X'FC' ALLOW ERP                A67917
000C3E                             1929+ERSKP    DS    0H
000C3E 5810 61E2            00D98  1930+         L     X1,SIRBIQE .SET REG 1 WITH 16* ADDR.
000C42 58F0 628E            00E44  1931+         L     15,AERRTA .GET ERROR RTN EP.
000C46 05EF                        1932+         BALR  14,15 .TO ERROR RTN.
000C48 0A03                        1933+         SVC   3 .TO SET REG 14 WITH SVC 3 ADDR.
                                   1934+         ENTRY ERFERR I251
000C4A                             1935+ERFERR   DS    0H I251
000C4A 5810 629E            00E54  1936+         L     X1,ASVCLDCB GET SVCLIB DCB                   I251
000C4E 943F 102C      0002C        1937+         NI    DCBIFLGS(X1),X'3F' KILL DCB ERROR FLAGS            I251
000C52 5810 62B6            00E6C  1938+         L     X1,IOERR LOAD PERMANENT I/O ERROR CODE    I251
                    OPTION 4...SIRB FETCH SEQUENCE                                                             PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000C56 47F0 60A8            00C5E  1939+         B     ERRFLUSH I251
                                   1940+* ABTERM TASK REQUESTING ERROR ROUTINE                             I251
000C5A                             1941+ERABTERM DS    0H I251
000C5A 5810 62B2            00E68  1942+         L     X1,K806 LOAD ERROR CODE 806-MODULE NOT FOUND
000C5E                             1943+ERRFLUSH DS    0H I251
000C5E 5800 620E            00DC4  1944+         L     X0,SIRBTCB .  GET ADDR OF USER TCB FOR ABTERM     A55639
000C62 18E0                        1945+         LR    14,X0 TCB ADDR IN REG 14        M1174
000C64 50FE 006C            0006C  1946+         ST    15,TCBGRS+X'3C'(14) .   PUT RETCODE IN REG15 SLOT  21B72
000C68 D207 E038 621A 00038 00DD0  1947+         MVC   TCBGRS+8(8,14),BLDLNAME MOVE NAME OF MODULE       M1174
                                   1948+*                                       NOT FOUND TO REGS 2,3     M2733
000C6E 58E0 627A            00E30  1949+         L     14,AIEA0AB .GET ABTERM ADDR.
000C72 05EE                        1950+         BALR  14,14 .TO ABTERM.
000C74                             1951+ERREXIT  DS    0H I251
000C74 58E0 620A            00DC0  1952+         L     14,SIRBIEC .       GET ADDR OF IOS CLEANUP RTN    A55639
000C78 07FE                        1953+         BCR   15,14 .            FREE RQE AND DEVICE            A55639
         VALIDITY CHECK ROUTINE (IEA0VL00)                                                                     PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1956+*        VALIDITY CHECK ROUTINE (IEA0VL00)
                                   1957+*
                                   1958+*    REGISTER INTERFACE.
                                   1959+*  REGISTER 7 CONTAINS THE ADDRESS TO BE VALIDATED.
                                   1960+*  REGISTER 8 CONTAINS THE ROUTINE ENTRY POINT (IEA0VL00).
                                   1961+*  REGISTER 9 CONTAINS THE TCB ADDRESS OR ZERO.
                                   1962+*  REGISTER 10 CONTAINS THE RETURN ADDRESS.
                                   1963+*
                                   1964+*      IF REGISTER 9 CONTAINS A ZERO THE CURRENT TCB ADDRESS
                                   1965+*  WILL BE RETURNED THEREIN.  REGISTER 7 WILL CONTAIN THE STORAGE
                                   1966+*  KEY, OF THE ADDRESS IN QUESTION, IN THE LOW ORDER BYTE-LEFT
                                   1967+*  ADJUSTED.  THE CONDITION CODE RETURNED WILL REFLECT THE
                                   1968+*  VALIDITY OF THE ADDRESS IN QUESTION.  A CONDITION CODE OF 8
                                   1969+*  INDICATES THAT THE ADDRESS IS VALID.  ANY OTHER CODE INDICATES
                                   1970+*  AN ERROR DUE TO PROTECTION OR ADDRESSING.
                                   1971+*  THE CALLERS TO THIS ROUTINE MUST BE PRIVILEGED.


                                   1973+         ENTRY IEA0VL00
                                   1974+*
000007                             1975+R1       EQU   7 INPUT ADDRESS
000008                             1976+R2       EQU   8 ENTRY POINT ADDRESS
000009                             1977+R3       EQU   9 TCB ADDRESS OR ZERO
00000A                             1978+R4       EQU   10 RETURN REGISTER
                                   1979+*
000C7A                             1980+         USING *,R2 .ESTABLISH BASE.
000C7A                             1981+IEA0VL00 DS    0H .ALINE STARTING ADDRESS.
000C7A 1299                        1982+         LTR   R3,R3 .Q.CALLER SUPPLY TCB ADDRESS.
000C7C 4770 8012            00C8C  1983+         BC    7,TCBPRES .YES, TAKE BRANCH.
000C80 5890 0010            00010  1984+         L     R3,16 CVT                       A72115
000C84 5899 0000            00000  1985+         L     R3,0(R3) .OLD NEW                  A72115
000C88 5899 0004            00004  1986+         L     R3,4(R3) .TCB OLD                  A72115
000C8C                             1987+TCBPRES  DS    0H
000C8C 4177 0000            00000  1988+         LA    R1,0(R1) .        CLEAR HIGH BYTE FOR COMPARE     A45277
000C90 5880 0010            00010  1989+         L     R2,X'10' .LOAD CVT ADDRESS.
000C94 5570 80A4            000A4  1990+         CL    R1,CVTMZ00-CVTSECT(0,R2) .Q. ADDR. WITHIN MACH.
000C98 072A                        1991+         BCR   2,R4 .NO RETURN TO CALLER.
000C9A 0580                        1992+         BALR  R2,0
000C9C                             1993+         USING *,R2 .ESTABLISH BASE.
000C9C 5880 8014            00CB0  1994+         L     R2,BASECON
000C7A                             1995+         USING IEA0VL00,R2
000CA0 4370 8033            00CAD  1996+         IC    R1,VLCLI+1 .ZERO HIGH ORDER BYTE.
000CA4 0977                        1997+         ISK   R1,R1 .DETERMINE STORAGE KEY.
000CA6 4470 8032            00CAC  1998+         EX    R1,VLCLI .EXECUTE TEST.
000CAA 07FA                        1999+         BCR   15,R4 .RETURN TO CALLER.

000CAC 9500 901C      0001C        2001+VLCLI    CLI   TCBPKF(R3),0
000CB0 00000C7A                    2002+BASECON  DC    A(IEA0VL00) .ADDRESS OF VALIDITY C. R..
       OPTION 4 NUCLEUS...VALIDITY CHECK ROUTINE                                                               PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2004+*...VALIDITY CHECK ROUTINE...


                                   2006+*...REG EQUATES...

000001                             2008+INPUT    EQU   1 .INPUT REG CONTAINING ADDR.
00000C                             2009+RETURN   EQU   12 .RETURN REG TO CALLER.


000CB4                             2011+         USING *,2
000000                             2012+         USING CVTSECT,XCVT

                                   2014+         ENTRY IEA0VL01
000CB4 47F0 200A            00CBE  2015+IEA0VL01 B     NORMAL .NORMAL BR. ENTRY.
000CB8 4410 2024            00CD8  2016+         EX    INPUT,WDTEST .TYPE 1 SVC ENTRY POINT. TEST FOR
                                   2017+*                                  WORD BOUNDARY.
000CBC 075C                        2018+         BCR   5,RETURN .BR IF NOT ON WORD BOUNDARY.
000CBE 4111 0000            00000  2019+NORMAL   LA    INPUT,0(INPUT) .ZERO HI ORDER BITS.
000CC2 5510 30A4            000A4  2020+         CL    INPUT,CVTMZ00 .DOES ADDR EXCEED MACH SIZE.
000CC6 072C                        2021+         BCR   2,RETURN .BR IF YES.
000CC8 4310 2021            00CD5  2022+         IC    INPUT,BYTEZERO+1 .ZERO BITS 24-31
000CCC 0911                        2023+         ISK   INPUT,INPUT .GET STORAGE KEY OF ADDR.
000CCE 4410 2020            00CD4  2024+         EX    INPUT,BYTEZERO .COMPARE TO TCB KEY.
000CD2 07FC                        2025+         BR    RETURN .RETURN TO CALLER.


                                   2027+*...EX'D INSTRUCTIONS...

000CD4 9500 401C      0001C        2029+BYTEZERO CLI   TCBPKF(XTCB),X'00'

000CD8 9100 2028      00CDC        2031+WDTEST   TM    WORD,X'00'


                                   2033+*...CONSTANTS...

000CDC 03                          2035+WORD     DC    X'03'

                                   2037+         DROP  2
                                   2038+         DROP  XCVT
                    SIRB AND PSEUDO WAIT TCB                                                                   PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2040+* SYSTEM (PSEUDO) WAIT TCB (WITH OVERLAID PSEUDO RB).
                                   2041+* NOTE- THIS TCB IS NOT ON THE READY QUEUE. IT WILL NEVER BE DISPATCHED
                                   2042+         ENTRY WAITTCB
000CDD 000000
000CE0 0000000000000000            2043+         DC    4D'0' .SPACE TO STORE FP REGISTER 65MP
000D00                             2044+WAITTCB  DS    0D
000D00 00000D00                    2045+WAITPRB  DC    A(WAITPRB) .PTR TO PSEUDO RB.
000D04 0000000000000000            2046+         DC    3F'0' .NOT USED.
000D10 FF06000000000000            2047+WAITPSW  DC    X'FF06000000000000' .PSEUDO RB- WAIT PSW.
000D18 0000000000000000            2048+         DC    2D'0' .NOT USED.
000D28 000000                      2049+         DC    X'000000' .NOT USED.
000D2B 00                          2050+WAITDSP  DC    X'00' .DISPATCHING PRIORITY = 0.
000D2C 00000000                    2051+         DC    F'0' .NOT USED.
000D30 0000000000000000            2052+         DC    D'0' .NOT USED.
000D38 0000000000000000            2053+WAITGRS  DC    8D'0' .REG SAVE AREA.
000D78 00000000                    2054+         DC    F'0' .NOT USED.
000D7C 00000000                    2055+WAITRDYQ DC    F'0' (= TCBTCB FIELD) MUST BE ZEROS.
                                   2056+* SIRB *
                                   2057+         ENTRY SIRB
000D80                             2058+         DS    0D
000D80 C9C7C5F0F0F0F0F0            2059+SIRB     DC    CL8'IGE00000'
000D88 000C8000                    2060+         DC    X'000C8000'
000D8C 00000BB4                    2061+SIRBEP   DC    A(ERFETCH)
000D90 0004000000000000            2062+SIRBPSW  DC    X'0004000000000000'
000D98 0000000000000000            2063+SIRBIQE  DC    D'0'

000DA0 0000000000000000            2065+         DC    4D'0' REG SAVE AREA                  M3378

000DC0 00000000                    2067+SIRBIEC  DC    V(IECRQE00) .      ADDR OF IOS CLEANUP ROUTINE    A55639
000DC4 00000000                    2068+SIRBTCB  DC    F'0' .             WILL CONTAIN USER RQE-TCB ADDR A55639

                                   2070+*   THE ROUTINE NAMED IECRQE00 WILL TURN ON BITS IN THE IOB TO   A55639
                                   2071+*        SIMULATE A PERMANENT I/O ERROR, ISSUE ERREXCP (SVC 15), A55639
                                   2072+*        AND ISSUE EXIT (SVC 3).  THIS WILL CAUSE THE USER'S     A55639
                                   2073+*        RQE TO BE RETURNED TO THE FREELIST AND WILL ALLOW THE   A55639
                                   2074+*        ASSOCIATED DEVICE TO BE FREED UP (I.E. THE ERROR-       A55639
                                   2075+*        RECOVERY-PROCEDURE-IN-PROCESS FLAG WILL BE TURNED OFF). A55639


000D84                             2077+SIRBNM2  EQU   SIRB+4 .ERP NAME - LAST 4 CHAR.       19017
                    BLDL WORK AREA FOR SIRB PROCESSING                                                         PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000DC8 07000700                    2079+         CNOP  4,8
000DCC                             2080+BLDLIST  DS    0H
000DCC 0001                        2081+         DC    H'1' .BLDL PARAMETER.
000DCE 0020                        2082+         DC    H'32'
000DD0 0000000000000000            2083+BLDLNAME DC    D'0' .BLDL LIST ENTRY.
000DD8 00000000                    2084+         DC    F'0'
000DDC 0000                        2085+         DC    H'0'
000DDE 0000                        2086+BLDLTTRN DC    H'0'
000DE0 0000000000000000            2087+         DC    2F'0'
000DE8 00000000                    2088+BLDLSIZE DC    F'0'
000DEC 00000000                    2089+         DC    F'0'
                    OPTION 4 NUCLEUS CONSTANTS                                                                 PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78


                                   2092+* EXTERNAL FLIH.
                                   2093+*        (MOVED TO END OF EXFLIH CODING)
                                   2094+* I/O FLIH.
                                   2095+*        (MOVED TO END OF I/O FLIH CODING)

                                   2097+* PROG FLIH.
                                   2098+*        (MOVED TO END OF PC FLIH CODING)

                                   2100+* DISPATCHER.
                                   2101+         EXTRN IEAQTD01,IEAQTE00
                                   2102+         EXTRN IEAERTCB
000DF0 00000000                    2103+ATDQ     DC    A(IEAQTD01) .TIMER DEQUEUE.
000DF4 00000000                    2104+ATNQ     DC    A(IEAQTE00) .TIMER QUEUE.
000DF8 00000000                    2105+AMSTCB   DC    A(IEAMSTCB) .MASTER SCHEDULER TCB.
000DFC 0000042A                    2106+ADSBASE  DC    A(DSBASE) .DISPATCHER ADDRESSABILITY.
000E00 FFFFFFE0                    2107+NEG32    DC    F'-32' USED IN REFERENCING F. POINT
                                   2108+         ENTRY IEARMSAD 19E02
000E04 00000000                    2109+IEARMSAD DC    F'0' .RMS ENTRY ADDRESS         19E02

                                   2111+* STAGE 3 OF THE EXIT EFFECTOR.
                                   2112+         EXTRN IEAHEAD
000E08 00000000                    2113+AIEAHEAD DC    A(IEAHEAD) .ADDR OF TOP TCB.
000E08                             2114+A1STCB   EQU   AIEAHEAD .TCB TO START J/S TIMING SEARCH.
000E0C 00000000                    2115+AERTCB   DC    A(IEAERTCB) .ADDR OF ERROR TCB.
000E10 0000034C                    2116+AIEADS02 DC    A(IEA0DS02) .ADDR OF TASK SW RTN.
                                   2117+* SVC FLIH
                                   2118+         EXTRN IBMORG
                                   2119+         EXTRN IEAQTR00,IEA0AB00
                                   2120+         EXTRN IEA0AB01
000E14                             2121+         DS    0F
000E14 000000FF                    2122+SVCCONS  DC    X'000000FF' .MASK TO ISOLATE SVC NO.
000E18 00000000                    2123+         DC    A(IBMORG) .ORIGIN OF IBM SVC'S.
000E1C 000001D4                    2124+         DC    F'468' .COMPARAND FOR HI IBM SVC * 4.
                                   2125+         ENTRY LOWUSER
                                   2126+         EXTRN USERORG
000E20 00000370                    2127+LOWUSER  DC    F'880' .COMPARAND FOR LOW USER SVC * 4.
000E24 00000000                    2128+AUSERORG DC    A(USERORG) .ORIGIN OF USER SVC'S
000E28 000003B0                    2129+AIEA0XE  DC    A(IEA0XE00) .ADDR OF TYPE 1 EXIT.
                                   2130+*                                       TO BE CALCULATED BY NIP.
000E2C 00000000                    2131+AIEATR00 DC    A(IEAQTR00) .ADDR OF TRANSIENT HANDLER.
000E30 00000000                    2132+AIEA0AB  DC    A(IEA0AB00) .ADDR OF ABTERM.
000E34 00000000                    2133+ABEDIT   DC    A(IEA0AB01) TYPE I ENTRY TO ABTERM
                                   2134+         ENTRY IEATYPE1
000E38 00                          2135+IEATYPE1 DC    X'00' .TYPE 1 SVC INDICATOR. X'00' =
                                   2136+*                                       TYPE 1 SVC NOT IN PROGRESS,
                                   2137+*                                       X'F0' = TYPE 1 IN PROGRESS.


                                   2139+*    EXTERNAL FLIH
                                   2140+*        (MOVED TO END OF EXFLIH CODING)
                                   2141+*   I/O  FLIH
                                   2142+*        (MOVED TO END OF I/O FLIH CODING)
                                   2143+*    PROG. FLIH
                                   2144+*        (MOVED TO END OF PC FLIH CODING)
                    OPTION 4 NUCLEUS CONSTANTS                                                                 PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2145+*   DISPATCHER
                                   2146+         EXTRN TRDISP
000E39 000000
000E3C 00000000                    2147+ATRDISP  DC    A(TRDISP) . DISPATCHER TRACE EP.


                                   2149+*   SVC FLIH
                                   2150+         EXTRN TRSVC
000E40 00000000                    2151+ATRSVC   DC    A(TRSVC) .SVC TRACE EP.



                                   2154+* FETCH SEQUENCE
                                   2155+         EXTRN IEASVDCB,IEAERRTA
000E44                             2156+BLDLINTF DS    0F
000E44 00000000                    2157+AERRTA   DC    A(IEAERRTA) .ERROR T/A.
000E48 00000BE4                    2158+         DC    A(BLDLRETN) .RETURN ADDR FROM BLDL.
000E4C 00000000                    2159+         DC    V(IECPBLDL) .BLDL BR E.P.
000E50 00000DCC                    2160+         DC    A(BLDLIST) .BLDL LIST.
000E54 00000000                    2161+ASVCLDCB DC    A(IEASVDCB) .SVC LIB DCB.
000E58 00000000                    2162+AFETCH   DC    V(IEWFTRAN) .ADDR OF FETCH.
000E5C 00000000                    2163+AFTCHWA  DC    V(IEAERWA) .ERR T/A FETCH WORK AREA.
000E60 00000428                    2164+AIEA0DS  DC    A(IEA0DS) .ADDR OF DISPATCHER.
000E64 00000BB6                    2165+AERBSE   DC    A(ERBSE) .BASE FOR ERROR FETCH SEQUENCE.
000E68 80806000                    2166+K806     DC    X'80806000' .BLDL NOT FOUND ERROR CODE.
000E6C 80B06000                    2167+IOERR    DC    X'80B06000' PERMANENT I/O ERROR ABEND CODE        I251
00002C                             2168+DCBIFLGS EQU   44 ERROR FLAGS IN SVCLIB DCB             I251
000E70 FF                          2169+ENABLE   DC    X'FF'
000E71 00                          2170+DISABLE  DC    X'00'
000E66                             2171+ERCOUNT  EQU   *-12 19022
000E72                             2172+ERRCOUNT EQU   ERCOUNT+12 19022
00000F                             2173+COUNT    EQU   X'0F' 19022
000E72 00                          2174+         DC    X'0' ERROR FETCH SEQUENCE RECYCLE COUNT  19022
                                   2175+         ENTRY ERCOUNT 19022

                                   2177+* STANDARD SVC TO EXIT.
                                   2178+         ENTRY IEA0EXIT
000E73 00
000E74 0A03                        2179+IEA0EXIT SVC   EXIT

000E76 0000
000E78 0000000000000000            2181+IEASV    DC    16F'0' A68543
000EB8 0000000000000000            2182+PSWSV    DC    D'0' M0009
000EC0 0000000000000000            2183+IEASV1   DC    16F'0' A64491
000F00 0000000000000000            2184+PSWSV1   DC    D'0' A64491
                    OPTION 4 COMMENTARY FOR EXTERNAL FLIH                                                      PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2186+* ROUTINE NAME

                                   2188+*        IEAQEX00- EXTERNAL FLIH.


                                   2190+* FUNCTION

                                   2192+*        RECEIVES CONTROL WHENEVER AN EXTERNAL INTERRUPT OCCURS. THIS
                                   2193+*      INCLUDES TIMER, CONSOLE KEY AND EXTERNAL LINE INTERRUPTS. THE
                                   2194+*      INTERRUPTED ENVIRONMENT IS SAVED AND EACH EXTERNAL INTERRUPT
                                   2195+*      CODE BIT IN THE EX OPSW IS INTERROGATED. IF A PARTICULAR
                                   2196+*      INTERRUPTION HAS OCCURRED, CONTROL IS GIVEN TO A SLIH FOR THAT
                                   2197+*      INTERRUPT CONDITION. CONTROL IS RETURNED TO THE FLIH UPON
                                   2198+*      COMPLETION OF SLIH PROCESSING.


                                   2200+* ENTRY POINT NAMES

                                   2202+*        IEAQEX00-  EXTERNAL FLIH.


                                   2204+* CONTAINED IN MODULE

                                   2206+*        IEAQNU- OPTION 4 NUCLEUS.


                                   2208+* ATTRIBUTES

                                   2210+*       .SUPERVISOR STATE.
                                   2211+*       .DISABLED FOR ALL MASKABLE INTERRUPTS EXCEPT MACHINE CHECK.
                                   2212+*       .RESIDENT CODE.
                                   2213+*       .SERIALLY REUSABLE.


                                   2215+* APPLICABILITY

                                   2217+*        USE IN OPTION 4 SYSTEMS


                                   2219+* EXTERNAL REFERENCES

                                   2221+*       .IEEBC1PE-  CONSOLE SWITCH ROUTINE.
                                   2222+*       .IEAQTI00-  TIMER SLIH.
                                   2223+*       .TREX-      TRACE ENTRY FOR EX INTERRUPTS.          OPTIONAL  *


                                   2225+* SVC USAGE

                                   2227+*        NONE


                                   2229+* INPUT

                                   2231+*        THE EX OPSW INTERRUPT CODE IS INTERROGATED TO DETERMINE
                                   2232+*       THE INTERRUPT TYPE.
                    OPTION 4 COMMENTARY FOR EXTERNAL FLIH                                                      PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2234+* OUTPUT

                                   2236+*        NONE


                                   2238+* ENTRY POINTS

                                   2240+*        IEAQEX00- ENTRY FROM EX INTERRUPT, I.E., FROM LOADING EX NPSW.
                                   2241+*             .PSW- SUPERVISOR STATE, DISABLED EXCEPT FOR MACHINE CHECK
                                   2242+*              AND WITH SUPERVISOR PROTECTION KEY.
                                   2243+*             .REGISTERS- AS THEY WERE WHEN INTERRUPT OCCURRED.


                                   2245+* EXIT POINTS

                                   2247+*        THERE ARE UP TO EIGHT EXIT POINTS VIA BALR'S TO THE SECOND
                                   2248+*       LEVEL INTERRUPT HANDLERS.
                                   2249+*             .PSW- SUPERVISOR STATE, DISABLED EXCEPT FOR MACHINE CHECK
                                   2250+*              AND WITH SUPERVISOR PROTECTION KEY.
                                   2251+*             .REGISTERS-
                                   2252+*               0,1,3-15     .UNPREDICTABLE AND IRRELEVANT.
                                   2253+*               2           .CONTAINS RETURN ADDRESS TO EX FLIH FOR
                                   2254+*                             SLIH TO USE WHEN FINISHED PROCESSING.

                                   2256+*        EXIT TO THE DISPATCHER.
                                   2257+*             .PSW- SUPERVISOR STATE, DISABLED EXCEPT FOR MACHINE CHECK
                                   2258+*              AND WITH SUPERVISOR PROTECTION KEY.
                                   2259+*             .REGISTERS- UNPREDICTABLE AND IRRELEVANT.

                                   2261+*        TO TRACE ROUTINE.
                                   2262+*             .PSW- SUPERVISOR STATE, DISABLED EXCEPT FOR MACHINE CHECK
                                   2263+*              AND WITH SUPERVISOR PROTECTION KEY.
                                   2264+*             .REGISTERS-
                                   2265+*               0,1,15  .UNCHANGED FORM TIME OF INTERRUPT.
                                   2266+*               10      .ENTRY ADDRESS OF EXTERNAL INTERRUPT TRACE RTN.
                                   2267+*               11      .RETURN.ADDRESS.
                                   2268+*               2-9,12-14 ARE IRRELEVANT.


                                   2270+* ERROR EXIT POINTS

                                   2272+*        NONE


                                   2274+* TABLES AND CONTROL BLOCKS REFERENCED

                                   2276+*       1. IEATCBP+4  (CURRENT TCB ADDRESS).
                                   2277+*       2. TCB-  .TCBGRS (ALTERED)
                                   2278+*                .TCBRBP (UNALTERED)
                                   2279+*       3. RB-   .RBOPSW (ALTERED)


                                   2281+* LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED

                                   2283+*        NONE
                    OPTION 4 COMMENTARY FOR EXTERNAL FLIH                                                      PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2285+* RESTRICTIONS

                                   2287+*        PRESENT CODE SUPPORTS TIMER AND KEY INTERRUPTS ONLY          *


                                   2289+* NOTES

                                   2291+*       REGISTERS 0-15 ARE SAVED IN THE CURRENT TCB. THE SLIM'S MAY USE
                                   2292+*       ANY REGISTER EXCEPT REG 2 WHICH CONTAINS THE RETURN ADDRESS.
                    OPTION 4 COMMENTARY FOR PROGRAM FLIH                                                       PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2294+* ROUTINE NAME

                                   2296+*        IEAQPK00-  PROGRAM FLIH


                                   2298+* FUNCTION
                                   2299+*        RECEIVES CONTROL WHENEVER A PROGRAM INTERRUPT OCCURS.    21014
                                   2300+*      DOES A BRANCH AND LINK TO THE MONITOR CALL INTERRUPT HAND- 21014
                                   2301+*      LER -IHLMCIH- TO CHECK FOR GTF PROCESSING. THEN IT CHECKS  21014
                                   2302+*        RECEIVES CONTROL WHENEVER A PROGRAM INTERRUPT OCCURS. CHECKS
                                   2303+*      WHETHER INTERRUPT HAS OCCURRED IN SUPERVISOR CODE. IF IT HAS OR
                                   2304+*      IF THE INTERRUPT OCCURRED IN PROBLEM PROGRAM CODE FOR WHICH NO
                                   2305+*      USER PROVIDED ERROR CORRECTION ROUTINE IS PROVIDED ABTERM
                                   2306+*      PROLOGUE IS ENTERED. IF A USER ROUTINE IS PROVIDED FOR THE
                                   2307+*      PARTICULAR INTERRUPT TYPE THE ROUTINE IS ENTERED.


                                   2309+* ENTRY POINT NAMES

                                   2311+*        IEAQPK00-  PROGRAM INTERRUPT FIRST LEVEL HANDLER.


                                   2313+* CONTAINED IN MODULE

                                   2315+*        IEAQNU- OPTION 4 NUCLEUS.


                                   2317+* ATTRIBUTES

                                   2319+*       .SUPERVISOR STATE
                                   2320+*       .DISABLED FOR ALL MASKABLE INTERRUPTS EXCEPT MACHINE CHECK.
                                   2321+*       .RESIDENT CODE
                                   2322+*       .SERIALLY REUSABLE


                                   2324+* APPLICABILITY

                                   2326+*        USE IN OPTION 4 SYSTEM


                                   2328+* EXTERNAL REFERENCES

                                   2330+*       .IEA0PL00-  ABTERM PROLOGUE.
                                   2331+*       .TRPI-      P FLIH ENTRY TO TRACE.


                                   2333+* SVC USAGE

                                   2335+*        NONE


                                   2337+* INPUT

                                   2339+*        NONE
                    OPTION 4 COMMENTARY FOR PROGRAM FLIH                                                       PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2341+* OUTPUT

                                   2343+*        NONE


                                   2345+* ENTRY POINTS

                                   2347+*        IEAQPK00-  ENTRY FROM PROGRAM INTERRUPT.
                                   2348+*             .PSW- SUPERVISOR STATE, DISABLED EXCEPT FOR MACHINE
                                   2349+*              CHECK, SUPERVISOR PROTECTION KEY.
                                   2350+*             .REGISTERS- AS THEY WERE WHEN THE INTERRUPTION OCCURRED.


                                   2352+* EXIT POINTS

                                   2354+*        THERE ARE FOUR BRANCH EXITS TO PROLOGUE.
                                   2355+*             .PSW- SUPERVISOR STATE, DISABLED EXCEPT FOR MACHINE
                                   2356+*              CHECK, SUPERVISOR PROTECTION KEY.
                                   2357+*             .REGISTERS-
                                   2358+*               14      .CONTAINS PROLOGUE ENTRY POINT ADDRESS.
                                   2359+*               ALL OTHER REGISTERS ARE IRRELEVANT TO INTERFACE.

                                   2361+*        EXIT POINT TO USER PROVIDED PI ROUTINE. (VIA LPSW)
                                   2362+*             .PSW- CONTROL IS GIVEN TO THE USER ERROR RTN BY LOADING
                                   2363+*              THE PIOPSW WHICH HAS BEEN ALTERED SO THAT THE RIGHT HALF
                                   2364+*        ADDRESS POINTS TO THE USER PROVIDED ERROR RTN.
                                   2365+*             .REGISTERS-
                                   2366+*               0       .UNPREDICTABLE AND IRRELEVANT.
                                   2367+*               1       .ADDRESS OF PIE.
                                   2368+*               2-13    .AS THEY WERE WHEN INTERRUPT OCCURRED.
                                   2369+*               14      .RETURN ADDRESS FOR USER'S ROUTINE.
                                   2370+*               15      .ENTRY POINT ADDRESS OF USER'S ROUTINE.


                                   2372+* ERROR EXIT POINTS

                                   2374+*        NONE


                                   2376+* TABLES AND CONTROL BLOCKS REFERENCED

                                   2378+*       1. IEATCBP+4 (CURRENT TCB).
                                   2379+*       2. TCB-  .TCBPIE (UNALTERED)
                                   2380+*       3. PIE-  .PIEPSW(ALTERED)
                                   2381+*                .1ST BYTE (ALTERED)
                                   2382+*                .PIEPICA (UNALTERED)
                                   2383+*       4. PICA  .ENTIRE PICA (UNALTERED)


                                   2385+* LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED

                                   2387+*        NONE


                                   2389+* RESTRICTIONS ON USAGE OF ROUTINE
                    OPTION 4 COMMENTARY FOR PROGRAM FLIH                                                       PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2391+*        NONE


                                   2393+* NOTES

                                   2395+*        NONE
                    OPTION 4 COMMENTARY FOR I/O FLIH                                                           PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2398+* ROUTINE NAME

                                   2400+*        IEAQIO00-  I/O FLIH


                                   2402+* FUNCTION

                                   2404+*        RECEIVES CONTROL WHENEVER AN I/O INTERRUPT OCCURS. THE
                                   2405+*       ORIGINAL INTERRUPTED ENVIRONMENT IS SAVED SO THAT IT MAY BE
                                   2406+*       RESTORED UPON COMPLETION OF I/O PROCESSING. PROVISION IS MADE
                                   2407+*       TO HANDLE NESTED I/O INTERRUPTS, I.E., THE ENVIRONMENT IS NOT
                                   2408+*       SAVED, BUT IOS IS ENTERED.
                                   2409+*        TEMPORARY CODE IS INCLUDED TO ALLOW I/O INTERRUPTS TO OCCUR  *
                                   2410+*       WITH CONTROL AND ENVIRONMENT BEING RESTORED TO THE INTERRUPTED*
                                   2411+*       CODE WITHOUT PASSING THROUGH THE DISPATCHER. THIS PROCESS IS  *
                                   2412+*       CALLED PSEUDO-DISABLING.                                      *


                                   2414+* ENTRY POINT NAMES

                                   2416+*        IEAQIO00-  I/O FLIH
                                   2417+*        DISMISS- RETURN POINT AFTER IOS COMPLETION.


                                   2419+* CONTAINED IN MODULE

                                   2421+*        IEAQNU- OPTION 4 NUCLEUS.


                                   2423+* ATTRIBUTES

                                   2425+*       .SUPERVISOR STATE
                                   2426+*       .DISABLED FOR ALL MASKABLE INTERRUPTS EXCEPT MACHINE CHECK.
                                   2427+*       .RESIDENT CODE
                                   2428+*       .REENTRANT


                                   2430+* APPLICABILITY

                                   2432+*        USE IN OPTION 4 SYSTEMS.


                                   2434+* EXTERNAL REFERENCES

                                   2436+*       .IECINT-  IOS ENTRY POINT
                                   2437+*       .TRIO-    I/O TRACE ENTRY POINT


                                   2439+* SVC USAGE

                                   2441+*        NONE


                                   2443+* INPUT
                    OPTION 4 COMMENTARY FOR I/O FLIH                                                           PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2445+*        NONE


                                   2447+* OUTPUT

                                   2449+*        NONE


                                   2451+* ENTRY POINTS

                                   2453+*        IEAQIO00-  ENTRY FROM I/O INTERRUPT.
                                   2454+*             .PSW- SUPERVISOR STATE, DISABLED EXCEPT FOR MACHINE
                                   2455+*              CHECK, SUPERVISOR PROTECTION KEY.
                                   2456+*             .REGISTERS- AS THEY WERE WHEN INTERRUPT OCCURRED.

                                   2458+*        DISMISS-  RETURN POINT AFTER IOS COMPLETION.
                                   2459+*             .PSW- SUPERVISOR STATE, DISABLED EXCEPT FOR MACHINE
                                   2460+*              CHECK, SUPERVISOR PROTECTION KEY.
                                   2461+*             .REGISTERS-
                                   2462+*               10      .ADDR OF 'DISMISS'- USED FOR ADDRESSABILITY.
                                   2463+*               OTHERS  .IRRELEVANT.


                                   2465+* EXIT POINTS

                                   2467+*        TO DISPATCHER AFTER COMPLETION OF ORIGINAL I/O INTERRUPT.
                                   2468+*             .PSW- SUPERVISOR STATE, DISABLED EXCEPT FOR MACHINE
                                   2469+*              CHECK, SUPERVISOR PROTECTION KEY.
                                   2470+*             .REGISTERS-
                                   2471+*               0-15    .UNPREDICTABLE AND IRRELEVANT.

                                   2473+*        EXIT TO IOS
                                   2474+*             .PSW- SUPERVISOR STATE, DISABLED EXCEPT FOR MACHINE
                                   2475+*              CHECK, SUPERVISOR PROTECTION KEY.
                                   2476+*             .REGISTERS-
                                   2477+*               5       .IOS BASE VALUE
                                   2478+*               6       .IOS ENTRY POINT VALUE.
                                   2479+*               OTHER REGISTERS ARE IRRELEVANT.

                                   2481+*        RETURN TO PSEUDO-DISABLED CODE
                                   2482+*             .PSW- SUPERVISOR STATE, DISABLED EXCEPT FOR  MACHINE
                                   2483+*              CHECK, SUPERVISOR PROTECTION KEY.
                                   2484+*             .REGISTERS- ALL REGISTERS CONTAIN VALUE AT TIME OF
                                   2485+*              INTERRUPT.


                                   2487+* ERROR EXIT POINTS

                                   2489+*        NONE


                                   2491+* TABLES AND CONTROL BLOCKS REFERENCED

                                   2493+*        1. TCB    .TCBRBP(UNALTERED)
                                   2494+*                  .TCBGRS(ALTERED)
                    OPTION 4 COMMENTARY FOR I/O FLIH                                                           PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2495+*        2. RB     .RBOPSW(ALTERED)


                                   2497+* LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED

                                   2499+*        NONE


                                   2501+* RESTRICTIONS ON USAGE OF THE ROUTINE

                                   2503+*        NONE


                                   2505+* NOTES

                                   2507+*        NONE
               COMMENTARY FOR SMF SYS WAIT TIME ROUTINE                                                        PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2509+* ROUTINE NAME                                                      SMF

                                   2511+*        IEAQWAIT- SMF WAIT TIME COLLECTION ROUTINE                 SMF


                                   2513+* FUNCTION                                                          SMF

                                   2515+*             THE SMF WAIT TIME COLLECTION ROUTINE IS ENTERED FROM  SMF
                                   2516+*        EITHER THE EX FLIH OR I/O FLIH EACH TIME THEY ARE EN-      SMF
                                   2517+*        TERED. IF THE 'CURRENT' TCB IS THE SYSTEM PSEUDO WAIT TCB, SMF
                                   2518+*        THE INTERVAL TIMER IS READ OUT. THIS VALUE IS SUBTRACTED   SMF
                                   2519+*        FROM THE VALUE IN A SPECIAL SAVE FIELD TO OBTAIN THE E-    SMF
                                   2520+*        LAPSED TIME THE SYSTEM WAS WAITING. (THE VALUE IN THE SPE- SMF
                                   2521+*        CIAL SAVE FIELD WAS PLACED THERE BY THE DISPATCHER WHO     SMF
                                   2522+*        READ OUT THE INTERVAL TIMER WHEN HE DISPATCHED THE SYSTEM  SMF
                                   2523+*        WAIT TCB). THE ELAPSED VALUE IS ADDED TO ACCUMULATIVE      SMF
                                   2524+*        WAIT TIME AND THE NEW ACCUMULATIVE SYSTEM WAIT TIME IS     SMF
                                   2525+*        SAVED.                                                     SMF


                                   2527+* ENTRY POINT NAME                                                  SMF

                                   2529+*        IEAQWAIT- ENTRY TO SMF WAIT TIME COLLECTION.               SMF


                                   2531+* CONTAINED IN MODULE                                               SMF

                                   2533+*        IEAQNU- OPTION 4 NUCLEUS                                   SMF


                                   2535+* ATTRIBUTES                                                        SMF

                                   2537+*        .SUPERVISOR STATE                                          SMF
                                   2538+*        .DISABLED FOR ALL MASKABLE INTERRUPTS EXCEPT MACHINE CHECK SMF
                                   2539+*        .RESIDENT                                                  SMF
                                   2540+*        .REENTRANT                                                 SMF


                                   2542+* APPLICABILITY                                                     SMF

                                   2544+*        USE IN OPTION 4 SYSTEM                                     SMF


                                   2546+* EXTERNAL REFERENCES                                               SMF

                                   2548+*        NONE                                                       SMF


                                   2550+* SVC USAGE                                                         SMF

                                   2552+*        NONE                                                       SMF


                                   2554+* INPUT                                                             SMF
               COMMENTARY FOR SMF SYS WAIT TIME ROUTINE                                                        PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2556+*        NONE                                                       SMF


                                   2558+* OUTPUT                                                            SMF

                                   2560+*        NONE                                                       SMF


                                   2562+* ENTRY POINTS                                                      SMF

                                   2564+*        IEAQWAIT- ENTRY FROM EX OR I/O FLIH                        SMF
                                   2565+*        .PSW-     SUPERVISOR STATE                                 SMF
                                   2566+*        .         DISABLED EXCEPT FOR MACHINE CHECK                SMF
                                   2567+*        .         SUPERVISOR PROTECT KEY                           SMF
                                   2568+*        .REGISTERS 0-12,14,15 IRRELEVANT                           SMF
                                   2569+*                   13 RETURN ADDRESS TO CALLER                     SMF


                                   2571+* EXIT POINTS                                                       SMF

                                   2573+*        BRANCH ON R13 TO CALLER                                    SMF
                                   2574+*        .PSW-      SUPERVISOR STATE                                SMF
                                   2575+*                   DISABLED EXCEPT FOR MACHINE CHECK               SMF
                                   2576+*                   SUPERVISOR PROTECT KEY                          SMF
                                   2577+*        .REGISTERS 0-4,9,11,12,13,15 TRANSPARENT                   SMF
                                   2578+*                   5-8,10,14 ARE VOLATILE                          SMF


                                   2580+* ERROR EXIT POINTS                                                 SMF

                                   2582+*        NONE                                                       SMF


                                   2584+* TABLES, CONTROL BLOCKS, AND POINTERS REFERENCED                   SMF

                                   2586+*        1. IEATCBP      -NOT ALTERED                               SMF
                                   2587+*        2. INTERVAL TIMER  -NOT ALTERED                            SMF
                                   2588+*        3. SYSWSAVE   -ALTERED                                     SMF
                                   2589+*        4. WAITTCB    -NOT ALTERED                                 SMF


                                   2591+* LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED                     SMF

                                   2593+*        NONE                                                       SMF


                                   2595+* RESTRICTIONS                                                      SMF

                                   2597+*        NONE                                                       SMF


                                   2599+* NOTES                                                             SMF

                                   2601+*        NONE                                                       SMF
                OPTION 4 COMMENTARY FOR SVC FLIH                                                               PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2603+* ROUTINE NAME


                                   2605+* FUNCTION

                                   2607+*             THE SVC FIRST LEVEL INTERRUPT HANDLER, ENTERED WHENEVER
                                   2608+*        AN SVC IS ISSUED, PERFORMS THE FOLLOWING BASIC FUNCTIONS-
                                   2609+*             1. SAVES THE INTERRUPTED TASK'S REGISTERS.
                                   2610+*             2. OBTAINS A FULL WORD TABLE ENTRY FROM THE SVC TABLE
                                   2611+*                (IN IEAQBK00) RELATED TO THE SVC ISSUED. THE ENTRY
                                   2612+*                CONTAINS INFORMATION FOR LOCATING AND ENTERING THE
                                   2613+*                ROUTINE.
                                   2614+*             3. DETECTS INVALID SVC'S AND INITIATES AN ABEND PROCEDURE
                                   2615+*                FOR THE ISSUING TASK.
                                   2616+*             4. GIVES CONTROL DIRECTLY TO TYPE 1 SVC'S.
                                   2617+*             5. INTERFACES WITH THE TRANSIENT AREA HANDLER (IEAQTR00)
                                   2618+*                TO CREATE AN SVRB AND GIVE CONTROL TO TYPE 2,3 AND 4
                                   2619+*                SVC'S.


                                   2621+* ENTRY POINT NAMES

                                   2623+*        IEAQSC00-  SVC FLIH, ENTRY FROM INTERRUPT.
                                   2624+*        LOWUSER-  COMPARAND FOR LOWEST USER SVC NO. (TIMES 4).


                                   2626+* CONTAINED IN MODULE

                                   2628+*        IEAQNU- OPTION 4 NUCLEUS.


                                   2630+* ATTRIBUTES

                                   2632+*       .SUPERVISOR STATE
                                   2633+*       .DISABLED FOR ALL MASKABLE INTERRUPTS EXCEPT MACHINE CHECK.
                                   2634+*       .RESIDENT CODE.
                                   2635+*       .SERIALLY REUSABLE.


                                   2637+* APPLICABILITY

                                   2639+*        USE IN OPTION 4 SYSTEMS.


                                   2641+* EXTERNAL REFERENCES

                                   2643+*        1. IBMORG-   ORIGIN OF IBM PROVIDED SVC'S.
                                   2644+*        2. USERORG-  ORIGIN OF USER PROVIDED SVC'S.
                                   2645+*        3. IEAQTR00- TRANSIENT AREA HANDLER FOR HANDLING TYPE 2,3, AND
                                   2646+*                     4 SVC'S.
                                   2647+*        4. IEAQAB00- ABTERM
                                   2648+*        5. TRSVC-    TRACE ENTRY FOR SVC'S.


                                   2650+* SVC USAGE
                OPTION 4 COMMENTARY FOR SVC FLIH                                                               PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2652+*        NONE


                                   2654+* INPUT

                                   2656+*        THE SVC INTERRUPTION CODE IN THE SVC OPSW.


                                   2658+* OUTPUT

                                   2660+*        NONE


                                   2662+* ENTRY POINTS

                                   2664+*        1. IEAQSC00- ENTRY FROM SVC INTERRUPT.
                                   2665+*           -PSW- SUPERVISOR MODE, DISABLED EXCEPT FOR MACHINE CHECK,
                                   2666+*                 SUPERVISOR PROTECTION KEY.
                                   2667+*           -REGISTERS- UNCHANGED FROM TIME OF INTERRUPTION.

                                   2669+*        2. LOWUSER- VALUE OF 4 TIMES THE LOWEST USER SVC- SUPPLIED
                                   2670+*           BY NIP.


                                   2672+* EXIT POINTS

                                   2674+*        1. BRANCH TO TYPE 1 SVC ROUTINES
                                   2675+*           -PSW- SUPERVISOR MODE, DISABLED EXCEPT FOR MACHINE CHECK,
                                   2676+*                 SUPERVISOR PROTECTION KEY.
                                   2677+*           -REGISTERS-
                                   2678+*                 0,1,13,15-  UNCHANGED FROM TIME OF INTERRUPT.
                                   2679+*                 3-          ADDRESS OF CVT.
                                   2680+*                 4-          ADDRESS OF CURRENT TCB.
                                   2681+*                 5-          ADDRESS OF CURRENT RB.
                                   2682+*                 14-         RETURN ADDRESS TO BE USED BY SVC RTN.
                                   2683+*                 2,6-12      IRRELEVANT.

                                   2685+*        2. BRANCH TO T.A.H. FOR TYPE 2,3, AND 4 SVC'S.
                                   2686+*           -PSW- SUPERVISOR MODE, DISABLED EXCEPT FOR MACHINE CHECK,
                                   2687+*                 SUPERVISOR PROTECTION KEY.
                                   2688+*           -REGISTERS-
                                   2689+*                 0,1,13,15-  UNCHANGED FROM TIME OF INTERRUPT.
                                   2690+*                 3-          ADDRESS OF CVT.
                                   2691+*                 4-          ADDRESS OF CURRENT TCB.
                                   2692+*                 5-          ADDRESS OF CURRENT RB.
                                   2693+*                 6           SVC ENTRY FROM SVC TABLE.
                                   2694+*                 7-          ADDRESS OF IEASCSAV.
                                   2695+*                 12-         ENTRY POINT TO IEAQTR00.
                                   2696+*                 14-         RETURN ADDRESS TO BE USED BY SVC RTN.
                                   2697+*                 8-11        IRRELEVANT.


                                   2699+* ERROR EXIT POINTS

                                   2701+*     1. ERROR BRANCH TO ABTERM CODE (IEA0AB00-10, EDIT ENTRY POINT)
                OPTION 4 COMMENTARY FOR SVC FLIH                                                               PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2702+*             -PSW- .SUPERVISOR MODE
                                   2703+*                   .DISABLED EXCEPT FOR MACHINE CHECK.
                                   2704+*                   .SUPERVISOR PROTECTION KEY
                                   2705+*             -REGISTERS-    -CONTENTS-
                                   2706+*              0,2-12,14,15  .UNCHANGED FROM POINT OF INTERRUPT.
                                   2707+*              1             .ABTERM ERROR CODE, RIGHT JUSTIFIED.
                                   2708+*              13            .ABTERM EDIT ENTRY POINT ADDRESS.

                                   2710+*             THE ERROR CODE IS 'F00' WITH THE 00 REPLACED WITH THE
                                   2711+*             ERROR SVC NUMBER.


                                   2713+* TABLES, CONTROL BLOCKS, AND POINTERS REFERENCED

                                   2715+*        1. IBMORG  (SVC TABLE ENTRIES)-NOT ALTERED
                                   2716+*        2. USERORG (SVC TABLE ENTRIES)-NOT ALTERED
                                   2717+*        3. TCBRBP  (TCB)              -NOT ALTERED
                                   2718+*        4. TCBGRS  (TCB)              -ALTERED
                                   2719+*        5. IEATCBP (TCB POINTERS)     -NOT ALTERED


                                   2721+* LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED

                                   2723+*        NONE


                                   2725+* RESTRICTIONS ON USAGE OF ROUTINE

                                   2727+*        NONE
                    COMMENTRY FOR EXCP COUNTER ROUTINE                                                         PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2729+* ROUTINE NAME                                                      SMF

                                   2731+*        IEASMFEX-  EXCP COUNTER ROUTINE                            SMF


                                   2733+* FUNCTION                                                          SMF

                                   2735+*             THE EXCP COUNTER ROUTINE COUNTS DIRECT 'SVC 0' EXCP'S SMF
                                   2736+*        AND INDIRECT 'PCI INTERRUPT, CHANNEL END, ABNORMAL END'    SMF
                                   2737+*        APPENDAGE EXCP RETURNS TO IOS.  EXCP COUNTING IS PERFORMED SMF
                                   2738+*        ONLY FOR THE PROBLEM PROGRAM. COUNTING IS CONTROLLED BY    SMF
                                   2739+*        A MASK OF THE PROBLEM PROGRAM TIOT. COUNTS ARE MAINTAINED  SMF
                                   2740+*        BY DATA SET/DEVICE LEVEL AND ARE CONTAINED IN THE TCT.     SMF
                                   2741+*        EXCP COUNTS FOR OPEN/CLOSE/EOV FUNCTIONS ARE INCLUDED.     SMF


                                   2743+* ENTRY POINT NAME                                                  SMF

                                   2745+*        IEASMFEX-  ENTRY TO EXCP COUNTER.                          SMF


                                   2747+* CONTAINED IN MODULE                                               SMF

                                   2749+*        IEAQNU-  OPTION 4 NUCLEUS                                  SMF


                                   2751+* ATTRIBUTES                                                        SMF

                                   2753+*        .SUPERVISOR STATE                                          SMF
                                   2754+*        .DISABLED FOR ALL MASKABLE INTERRUPTS EXCEPT MACHINE CHECK SMF
                                   2755+*        .RESIDENT CODE                                             SMF
                                   2756+*        .REENTRANT                                                 SMF


                                   2758+* APPLICABILITY                                                     SMF

                                   2760+*        USE IN OPTION 4 SYSTEM                                     SMF


                                   2762+* EXTERNAL REFERENCES                                               SMF

                                   2764+*        .NONE                                                      SMF


                                   2766+* SVC USAGE                                                         SMF

                                   2768+*        NONE                                                       SMF


                                   2770+* INPUT                                                             SMF

                                   2772+*             THE FOLLOWING REGISTERS ARE PASSED ON ENTRY.          SMF
                                   2773+*                  0 - TCB ADDRESS                                  SMF
                                   2774+*                  1 - RQE ADDRESS                                  SMF
                                   2775+*                  2 - IOB ADDRESS                                  SMF
                    COMMENTRY FOR EXCP COUNTER ROUTINE                                                         PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2776+*                  3 - DEB ADDRESS                                  SMF
                                   2777+*                  4 - DCB ADDRESS                                  SMF
                                   2778+*                  7 - UCB ADDRESS                                  SMF
                                   2779+*                 14 RETURN ADDRESS                                 SMF
                                   2780+*                 15 ENTRY POINT ADDRESS                            SMF
                                   2781+*              REGISTERS 0 THROUGH 9 MUST NOT BE ALTERED AT EXIT.   SMF


                                   2783+*        OUTPUT                                                     SMF

                                   2785+*        NONE                                                       SMF


                                   2787+* ENTRY POINTS                                                      SMF

                                   2789+*        IEASMFEX-  ENTRY FROM IOS                                  SMF
                                   2790+*       .PSW-     .SUPERVISOR STATE                                 SMF
                                   2791+*                 .DISABLED EXCEPT FOR MACHINE CHECK                SMF
                                   2792+*                 .SUPERVISOR PROTECT KEY                           SMF
                                   2793+*       .REGISTERS 10 - 13 ARE IRREVA LENT.                         SMF
                                   2794+*                 14 RETURN ADDRESS TO CALLER.                      SMF
                                   2795+*                 15 ENTRY POINT ADDRESS                            SMF


                                   2797+* EXIT POINTS                                                       SMF

                                   2799+*        BRANCH ON REGISTER 14 BACK TO CALLER.                      SMF
                                   2800+*       .PSW-     .SUPERVISOR STATE                                 SMF
                                   2801+*                 .DISABLED EXCEPT FOR MACHINE CHECK                SMF
                                   2802+*                 .SUPERVISOR PROTECT KEY                           SMF
                                   2803+*       .REGISTERS 0 - 9,14 TRANSPARENT OVER ROUTINE.               SMF
                                   2804+*                  10 - 13,15 VOLATILE OVER ROUTINE.                SMF


                                   2806+* ERROR EXIT POINTS                                                 SMF

                                   2808+*        NONE                                                       SMF


                                   2810+* TABLES, CONTROL BLOCKS, AND POINTERS REFERENCED                   SMF

                                   2812+*        1. TCBTCT   (TCB)  -NOT ALTERED                            SMF
                                   2813+*        2. DCBTIOT  (DCB)  -NOT ALTERED                            SMF
                                   2814+*        3. DCBOFLGS (DCB)  -NOT ALTERED                            SMF
                                   2815+*        4. TCTUCBP  (TCT)  -NOT ALTERED                            SMF
                                   2816+*        5. TCTDCBTD (TCT)  -NOT ALTERED                            SMF
                                   2817+*        6. TCTSCTR  (TCT)  -NOT ALTERED                            SMF
                                   2818+*        7. TCTIOTSD (TCT)  -NOT ALTERED                            SMF
                                   2819+*        8. TCTDCTR  (TCT)  -ALTERED                                SMF
                                   2820+*        9. TCTIOTBL (TCT)  -NOT ALTERED                            SMF


                                   2822+* LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED                     SMF

                                   2824+*        NONE                                                       SMF
                    COMMENTRY FOR EXCP COUNTER ROUTINE                                                         PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2826+* RESTRICTIONS ON USE OF ROUTINE                                    SMF

                                   2828+*        NONE                                                       0-
                    COMMENTARY FOR TYPE 1 SVC EXIT                                                             PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2831+* ROUTINE NAME

                                   2833+*        IEA0XE00-  TYPE 1 SVC EXIT


                                   2835+* FUNCTION

                                   2837+*              RECEIVES CONTROL FROM COMPLETED TYPE 1 SVC ROUTINES
                                   2838+*        AND PASSES CONTROL BACK TO EITHER THE ISSUER OF THE SVC OR
                                   2839+*        THE DISPATCHER.
                                   2840+*              CONTROL IS RETURNED TO THE ISSUER OF THE SVC IF NO TASK
                                   2841+*        SWITCH HAS OCCURRED. OTHERWISE, ON A TASK SWITCH, CONTROL IS
                                   2842+*        GIVEN TO THE DISPATCHER.


                                   2844+* ENTRY POINT NAMES

                                   2846+*        IEA0XE00-  TYPE 1 SVC EXIT.


                                   2848+* CONTAINED IN MODULE

                                   2850+*        IEAQNU- OPTION 4 NUCLEUS.


                                   2852+* ATTRIBUTES

                                   2854+*       .SUPERVISOR MODE
                                   2855+*       .DISABLED FOR ALL MASKABLE INTERRUPTS EXCEPT MACHINE CHECK.
                                   2856+*       .SERIALLY REUSABLE


                                   2858+* APPLICABILITY

                                   2860+*       .OPTION 4 SYSTEMS.


                                   2862+* EXTERNAL REFERENCES

                                   2864+*        NONE


                                   2866+* SVC USAGE

                                   2868+*        NONE


                                   2870+* INPUT

                                   2872+*        NONE


                                   2874+* OUTPUT

                                   2876+*        NONE
                    COMMENTARY FOR TYPE 1 SVC EXIT                                                             PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2878+* ENTRY POINTS

                                   2880+*     1. IEA0XE00-  ENTRY POINT FROM EXITING TYPE 1 SVC.

                                   2882+*        PSW       .SUPERVISOR STATE.
                                   2883+*                  .DISABLED EXCEPT FOR MACHINE CHECK.
                                   2884+*                  .SUPERVISOR PROTECTION KEY.

                                   2886+*        REGISTERS .0-13,15  .AS THEY WERE WHEN SVC ROUTINE EXITED.
                                   2887+*                  .14       .ADDRESS OF TYPE 1 SVC EXIT (IEA0XE00)


                                   2889+* EXIT POINTS

                                   2891+*     1. LPSW TO ISSUER OF SVC.

                                   2893+*        PSW  (THE PSW LOADED)    .THE PSW THAT WAS STORED IN THE
                                   2894+*                                  SVC OPSW HARDWARE LOCATION.

                                   2896+*        REGISTERS      .2-14     .RESTORED TO CONTENTS AT TIME WHEN
                                   2897+*                                  SVC WAS ISSUED.
                                   2898+*                       0,1,15    .CONTENTS LEFT AT COMPLETION OF SVC
                                   2899+*                                  ROUTINE.

                                   2901+*     2. BRANCH TO DISPATCHER

                                   2903+*        PSW       .SUPERVISOR STATE
                                   2904+*                  .DISABLED EXCEPT FOR MACHINE CHECK.
                                   2905+*                  .SUPERVISORY PROTECTION KEY.

                                   2907+*        REGISTERS- IRRELEVANT. REGS 2-14 AT TIME SVC WAS ISSUED AND
                                   2908+*                  0,1 AND 15 RETURNED BY SVC ARE STORED IN TCB.


                                   2910+* ERROR EXIT POINTS

                                   2912+*        NONE


                                   2914+* TABLES, CONTROL BLOCKS, AND POINTERS REFERENCED

                                   2916+*     1. CURRENT TCB POINTER (IEATCBP+4)-  .NOT ALTERED
                                   2917+*     2. NEW TCB POINTER (IEATCBP)-        .NOT ALTERED
                                   2918+*     3. TCB-  TCBGRS                      .ALTERED
                                   2919+*     4. TCB-  TCBRBP                      .NOT ALTERED
                                   2920+*     5. RB-   RBOPSW                      .ALTERED


                                   2922+* LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED

                                   2924+*        NONE


                                   2926+* RESTRICTIONS ON USAGE OF ROUTINE
                    COMMENTARY FOR TYPE 1 SVC EXIT                                                             PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2928+*        NONE


                                   2930+* NOTES

                                   2932+*    1. IF THE DISPATCHER IS ENTERED, THE SVC OPSW STORED WHEN THE SVC
                                   2933+*       WAS ISSUED WILL BE MOVED TO THE RBOPSW SLOT IN THE CURRENT RB.
                    COMMENTARY FOR TASK SWITCH ROUTINE                                                         PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2935+* ROUTINE NAME

                                   2937+*        IEA0DS02-  TASK SWITCHING ROUTINE



                                   2939+* FUNCTION

                                   2941+*              THIS ROUTINE WILL DETERMINE WHETHER A GIVEN TASK IS
                                   2942+*        OF HIGHER OR LOWER PRIORITY THAN THE PRIORITY LEVEL AT WHICH
                                   2943+*        THE DISPATCHER WILL EXAMINE TASK DISPATCHABILITY WHEN NEXT
                                   2944+*        ENTERED. IF THE GIVEN TASK IS OF HIGHER PRIORITY, ITS TCB
                                   2945+*        ADDRESS WILL BE PLACED IN IEATCBP THUS MAKING IT THE 1ST TASK
                                   2946+*        EXAMINED BY THE DISPATCHER. IF THE GIVEN TASK IS OF LOWER
                                   2947+*        PRIORITY, NO ALTERATION IS MADE TO IEATCBP.
                                   2948+*              A SWITCH WILL NOT BE MADE TO A NON-DISPATCHABLE (TASK OR
                                   2949+*        RB WAIT) TASK.



                                   2951+* ENTRY POINT NAMES

                                   2953+*        IEA0DS02-  TASK SWITCHING ROUTINE.



                                   2955+* CONTAINED IN MODULE

                                   2957+*        IEAQNU- OPTION 4 NUCLEUS.



                                   2959+* ATTRIBUTES

                                   2961+*       .SUPERVISOR STATE
                                   2962+*       .DISABLED EXCEPT FOR MACHINE CHECK.
                                   2963+*       .RESIDENT



                                   2965+* APPLICABILITY

                                   2967+*        OPTION 4 SYSTEMS



                                   2969+* EXTERNAL REFERENCES

                                   2971+*        NONE



                                   2973+* SVC USAGE

                                   2975+*        NONE
                    COMMENTARY FOR TASK SWITCH ROUTINE                                                         PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2977+* INPUT

                                   2979+*     1. REGISTER 10 CONTAINS THE ADDRESS (IN THE 3 LOW ORDER BYTES)
                                   2980+*        OF THE SUBJECT TASK'S TCB.



                                   2982+* OUTPUT

                                   2984+*        NONE



                                   2986+* ENTRY POINTS

                                   2988+*     1. IEA0DS02

                                   2990+*       .PSW       .SUPERVISOR STATE.
                                   2991+*                  .DISABLED EXCEPT FOR MACHINE CHECK.
                                   2992+*                  .SUPERVISOR PROTECTION KEY.

                                   2994+*       .REGISTERS .0-9,12,13,15  .IRRELEVANT AND UNPREDICTABLE.
                                   2995+*                  .10            .ADDRESS OF SUBJECT TASK'S TCB.
                                   2996+*                  .11            .ENTRY POINT ADDRESS OF TASK SWITCH
                                   2997+*                                  ROUTINE. (USED AS WORK REG BY RTN.)
                                   2998+*                  .14            .ADDRESS OF RETURN POINT IN CALLER.



                                   3000+* EXIT POINTS

                                   3002+*     1. THREE BRANCHES ON REGISTER 14 BACK TO CALLER.

                                   3004+*       .PSW       .SUPERVISOR STATE
                                   3005+*                  .DISABLED EXCEPT FOR MACHINE CHECK.
                                   3006+*                  .SUPERVISOR PROTECTION KEY.

                                   3008+*       .REGISTERS .0-9,12,13,15  .UNALTERED- TRANSPARENT TO CALLER.
                                   3009+*                  .10            .UNALTERED- SUBJECT TASK'S TCB ADDR.
                                   3010+*                  .11            .UNPREDICTABLE- VOLATILE TO CALLER.
                                   3011+*                  .14            .RETURN ADDRESS TO CALLER.



                                   3013+* ERROR EXIT POINTS

                                   3015+*        NONE



                                   3017+* TABLES, CONTROL BLOCKS, AND POINTERS REFERENCED

                                   3019+*     1. IEATCBP (TCB POINTER)    .MAY BE ALTERED.
                                   3020+*     2. TCB- TCBDSP              .NOT ALTERED.
                                   3021+*     3. TCB- TCBTCB              .NOT ALTERED.
                    COMMENTARY FOR TASK SWITCH ROUTINE                                                         PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3023+* LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED

                                   3025+*        NONE



                                   3027+* RESTRICTIONS ON USAGE OF ROUTINE

                                   3029+*        NONE



                                   3031+* NOTES

                                   3033+*        NONE
                    COMMENTARY FOR THE DISPATCHER                                                              PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3035+* ROUTINE NAME

                                   3037+*        IEA0DS-   DISPATCHER



                                   3039+* FUNCTION

                                   3041+*        THE DISPATCHER IS ENTERED AT THE COMPLETION OF MOST
                                   3042+*    INTERRUPT PROCESSING SEQUENCES. IF TIME SHARING (TSO) IS     20021
                                   3043+*    ACTIVE, THE TS DISPATCHER (PACKAGED IN TSIP) IS ENTERED      20021
                                   3044+*    VIA * BALR 14,15 AND UPON RETURN, THE DISPATCHER PROCEEDS    20021
                                   3045+*    AS IF TSO WHERE NOT ACTIVE. ITS FUNCTION IS TO DETER. THE    20021
                                   3046+*    NEXT, HIGHEST PRIORITY, READY TASK STARTING WITH THE PRIORITY
                                   3047+*    LEVEL INDICATED BY THE TCB ADDRESSES IN LOCATIONS IEATCBP OR
                                   3048+*    IEATCBP+4. THE DISPATCHER SEARCHES THE READY QUEUE OF TCB'S
                                   3049+*    UNTIL A DISPATCHABLE TASK IS FOUND.
                                   3050+*        IF NO READY TASK IS FOUND, THE DISPATCHER WILL LOAD A WAIT
                                   3051+*    STATE PSW.
                                   3052+*        WHEN A TASK SWITCH IS INITIATED, TASK INTERVAL TIMING (IF
                                   3053+*    PRESENT) IS STOPPED FOR THE TASK RELINQUISHING CONTROL AND
                                   3054+*    STARTED FOR THE TASK GAINING CONTROL. IF OPTION 13, JOB STEP
                                   3055+*    TIMING IS INCLUDED IN THE SYSTEM, JOB STEP INTERVAL TIMING IS MTS0
                                   3056+*    STOPPED FOR THE JOB STEP RELINQUISHING CONTROL AND STARTED    MTS0
                                   3057+*    FOR THE JOB STEP GAINING CONTROL.  ANY JOB STEP WAIT TIMING   MTS0
                                   3058+*    FOR THE JOB STEP GAINING CONTROL IS CANCELLED.                MTS0
                                   3059+*       IF TSO IS ACTIVE, THE TSIP PROGRAM IS ENTERED TO ENABLE   20021
                                   3060+*    THE TIME SHARING DRIVER TO BE INFORMED OF THE TASK SWITCH.   20021
                                   3061+*        THE DISPATCHER INTERFACES WITH STAGE 3 OF THE EXIT EFFECTOR
                                   3062+*    SO THAT SCHEDULED ASYNCHRONOUS EXIT ROUTINES MAY BE PLACED IN
                                   3063+*    CONTENTION FOR EXECUTION. THE EXIT EFFECTOR RETURNS TO THE
                                   3064+*    DISPATCHER UPON COMPLETING ITS FUNCTION.



                                   3066+* ENTRY POINT NAMES

                                   3068+*     1. IEA0DS    .NORMAL ENTRY POINT TO DISPATCHER.



                                   3070+* CONTAINED IN MODULE

                                   3072+*        IEAQNU- OPTION 4 NUCLEUS.



                                   3074+* ATTRIBUTES

                                   3076+*       .SUPERVISOR MODE
                                   3077+*       .DISABLED EXCEPT FOR MACHINE CHECK.
                                   3078+*       .RESIDENT
                                   3079+*       .SERIALLY REUSABLE
                    COMMENTARY FOR THE DISPATCHER                                                              PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3081+* APPLICABILITY

                                   3083+*        OPTION 4 SYSTEMS.



                                   3085+* EXTERNAL REFERENCES

                                   3087+*     1. IEAQTD01-  TIMER DQ RTN.
                                   3088+*     2. IEAQTE00-  TIMER NQ RTN.
                                   3089+*     3. IKJEAI00- TIME SHARING INTERFACE PROGRAM(IF TSO ACTIVE)  20021
                                   3090+*     4. TRDISP-    DISPATCHER TRACE ENTRY POINT.



                                   3092+* SVC USAGE

                                   3094+*        NONE



                                   3096+* INPUT

                                   3098+*        NONE



                                   3100+* OUTPUT

                                   3102+*        NONE



                                   3104+* ENTRY POINTS

                                   3106+*     1. IEA0DS    .NORMAL ENTRY TO DISPATCHER.
                                   3107+*       .PSW-      .SUPERVISOR STATE
                                   3108+*                  .DISABLED EXCEPT FOR MACHINE CHECK.
                                   3109+*                  .SUPERVISORY PROTECT KEY.
                                   3110+*       .REGISTERS  2-9      .TRANSPARENT OVER DISPATCHER. SHOULD BE
                                   3111+*                             VALUE OF REGISTERS WHEN INTERRUPT (WHICH)
                                   3112+*                             LEAD TO THE DISPATCHER BEING ENTERED).
                                   3113+*                             OCCURRED.
                                   3114+*                   0,1      .IRRELEVANT.
                                   3115+*                   10,15    .IRRELEVANT.



                                   3117+* EXIT POINTS

                                   3119+*     1. LPSW TO TASK CODE.
                                   3120+*       .PSW-      .THE PSW THAT IS LOADED IS OBTAINED FROM THE
                                   3121+*                   CURRENT RB OF THE TASK BEING GIVEN CONTROL. THIS
                                   3122+*                   PSW WAS SAVED AT THE TIME THE TASK WAS INTERRUPTED.
                                   3123+*       .REGISTERS .ALL REGISTERS CONTAIN THE VALUE AT THE TIME OF
                    COMMENTARY FOR THE DISPATCHER                                                              PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3124+*                   INTERRUPT WHICH LEAD TO THE DISPATCHER BEING
                                   3125+*                   ENTERED.



                                   3127+* ERROR EXIT POINTS

                                   3129+*        NONE



                                   3131+* TABLES, CONTROL BLOCKS, AND POINTERS REFERENCED

                                   3133+*     1. IEATCBP        .ALTERED
                                   3134+*     2. IEATCBP+4      .ALTERED
                                   3135+*     3. TCB- TCBRBP    .NOT ALTERED
                                   3136+*     4. TCB- TCBGRS    .ALTERED
                                   3137+*     5. TCB- TCBTCB    .NOT ALTERED
                                   3138+*     6. TCB- TCBTME    .NOT ALTERED
                                   3139+*     7. TCB- TCBOTC    .NOT ALTERED                               MTS0
                                   3140+*     8. TCB- TCBLTC    .NOT ALTERED                               MTS0
                                   3141+*     9. TCB- TCBPKF    .NOT ALTERED                               MTS0
                                   3142+*    10. TCB- TCBJSTCB  .NOT ALTERED                               MTS0
                                   3143+*    11. RB-  RBOPSW    .ALTERED                                   MTS0
                                   3144+*    12. RB-  RBWCF     .NOT ALTERED                               MTS0
                                   3145+*    13. TQE- TQEFLGS   .ALTERED                                   MTS0
                                   3146+*    14. TQE- TQEVAL    .ALTERED                                   MTS0
                                   3147+*    15. TQE- TQESAV    .NOT ALTERED                               MTS0
                                   3148+*    16. CVT-  NOT ALTERED    (IF TSO ACTIVE)                     20021
                                   3149+*    17. TSCVT-NOT ALTERED    (IF TSO ACTIVE)                     20021



                                   3151+* LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED

                                   3153+*        NONE



                                   3155+* RESTRICTIONS ON USAGE OF ROUTINE

                                   3157+*        NONE



                                   3159+* NOTES

                                   3161+*     1. DESCRIPTION OF INTERFACE WITH STAGE 3 OF EXIT EFFECTOR.
                                   3162+*       .PSW       .SUPERVISOR STATE
                                   3163+*                  .DISABLED EXCEPT FOR MACHINE CHECK.
                                   3164+*                  .SUPERVISORY PROTECT KEY.
                                   3165+*       .REGISTERS  2-9      .VALUE OF REGISTERS WHEN INTERRUPT
                                   3166+*                             OCCURRED.
                                   3167+*                   10,11    .CONTAIN CONTENTS OF IEATCBP AND
                                   3168+*                             IEATCBP+4.
                    COMMENTARY FOR THE DISPATCHER                                                              PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3169+*                   12-1     .UNPREDICTABLE.

                                   3171+*     UPON RETURNING TO THE DISPATCHER FROM STAGE 3-
                                   3172+*       .PSW       .SUPERVISOR STATE
                                   3173+*                  .DISABLED EXCEPT FOR MACHINE CHECK.
                                   3174+*                  .SUPERVISORY PROTECT KEY.
                                   3175+*       .REGISTERS  0-9      .IRRELEVANT
                                   3176+*                   10,11    .MUST BE TRANSPARENT OVER STAGE 3.
                                   3177+*                   12-15    .IRRELEVANT
                    COMMENTARY FOR STAGE 2 OF EXIT EFFECTOR                                                    PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3179+* ROUTINE NAME

                                   3181+*        IEA0EF00-  EXIT EFFECTOR STAGE 2.



                                   3183+* FUNCTION

                                   3185+*              STAGE 2 OF THE EXIT EFFECTOR SCHEDULES ASYNCHRONOUS
                                   3186+*        EXIT ROUTINES. THE ADDRESS OF AN IQE OR RQE IS PASSED TO
                                   3187+*        THE ROUTINE IN A REGISTER AND THE 'QE' IS PLACED ON A QUEUE
                                   3188+*        OF IQE'S OR RQE'S. THESE QUEUES ARE PROCESSED IN STAGE 3
                                   3189+*        OF THE EXIT EFFECTOR ENTERED FROM THE DISPATCHER. RQE
                                   3190+*        ADDRESSES ARE IN TRUE FORM UPON ENTRY TO STAGE 2 WHILE IQE
                                   3191+*        ADDRESSES ARE COMPLEMENTED. A SWITCH IS SET BY STAGE 2 TO
                                   3192+*        INDICATE TO THE DISPATCHER THAT THERE ARE REQUESTS FOR
                                   3193+*        ASYNCHRONOUS EXIT ROUTINES TO BE PROCESSED.



                                   3195+* ENTRY POINT NAMES

                                   3197+*        IEA0EF00-  STAGE 2 OF EXIT EFFECTOR.



                                   3199+* CONTAINED IN MODULE

                                   3201+*        IEAQNU- OPTION 4 NUCLEUS.



                                   3203+* ATTRIBUTES

                                   3205+*       .SUPERVISOR STATE
                                   3206+*       .DISABLED EXCEPT FOR MACHINE CHECK.
                                   3207+*       .RESIDENT
                                   3208+*       .SERIALLY REUSABLE



                                   3210+* APPLICABILITY

                                   3212+*       .OPTION 4 SYSTEMS.



                                   3214+* EXTERNAL REFERENCES

                                   3216+*        NONE



                                   3218+* SVC USAGE
                    COMMENTARY FOR STAGE 2 OF EXIT EFFECTOR                                                    PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3220+*        NONE



                                   3222+* INPUT

                                   3224+*     1. REGISTER 1 CONTAINS THE ADDRESS OF THE IQE OR RQE OF THE
                                   3225+*        ASYNCHRONOUS ROUTINE TO BE SCHEDULED. RQE ADDRESSES ARE IN THE
                                   3226+*        LOW ORDER 3 BYTES AND IN TRUE FORM. THE HIGH ORDER BYTE
                                   3227+*        SHOULD BE ZERO. IQE ADDRESSES ARE IN THE LOW ORDER 3 BYTES
                                   3228+*        BUT IN COMPLEMENT FORM (SET BY AN LCR).



                                   3230+* OUTPUT

                                   3232+*        NONE



                                   3234+* ENTRY POINTS

                                   3236+*     1. IEA0EF00-  ENTRY TO STAGE 2 OF EXIT EFFECTOR TO SCHEDULE
                                   3237+*                   ASYNCHRONOUS EXIT ROUTINES.
                                   3238+*       .PSW-      .SUPERVISOR STATE.
                                   3239+*                  .DISABLED EXCEPT FOR MACHINE CHECK.
                                   3240+*                  .SUPERVISOR PROTECT KEY.
                                   3241+*       .REGISTERS .0,2-13,15     .IRRELEVANT.
                                   3242+*                  .14            .RETURN ADDRESS TO CALLER.
                                   3243+*              NOTE- REGISTER 10 IS USED AS A WORK REGISTER AND SO
                                   3244+*                    MAY BE CONVENIENT FOR THE CALLER TO USE IN
                                   3245+*                    BRANCHING TO IEA0EF00.



                                   3247+* EXIT POINTS

                                   3249+*     1. BRANCH ON REGISTER 14 BACK TO CALLER.
                                   3250+*       .PSW-      .SUPERVISOR STATE.
                                   3251+*                  .DISABLED EXCEPT FOR MACHINE CHECK.
                                   3252+*                  .SUPERVISOR PROTECT KEY.
                                   3253+*       .REGISTERS .0,2-9,11-15   .TRANSPARENT OVER ROUTINE.
                                   3254+*                  .1             .THE 'QE' ADDRESS IN TRUE FORM.
                                   3255+*                  .10            .UNPREDICTABLE. VOLATILE OVER RTN.



                                   3257+* ERROR EXIT POINTS

                                   3259+*        NONE



                                   3261+* TABLES, CONTROL BLOCKS, AND POINTERS REFERENCED
                    COMMENTARY FOR STAGE 2 OF EXIT EFFECTOR                                                    PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3263+*     1. STAGE 2 ADDS 'QE'S' TO THE AEQ
                                   3264+*     2. THE STAGE 3 SWITCH, IEA0DS01, IN THE DISPATCHER IS SET ON.



                                   3266+* LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED

                                   3268+*     1. THE ASYNCHRONOUS EXIT QUEUES (AEQ) FOR IQE'S AND RQE'S.



                                   3270+* RESTRICTIONS ON USAGE OF ROUTINE

                                   3272+*        NONE



                                   3274+* NOTES

                                   3276+*        NONE
               COMMENTARY FOR STAGE 3 OF EXIT EFFECTOR                                                         PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3278+* ROUTINE NAME

                                   3280+*        IEA0EF03-  STAGE 3 OF EXIT EFFECTOR



                                   3282+* FUNCTION

                                   3284+*        STAGE 3 RECEIVES CONTROL FROM THE DISPATCHER WHENEVER EITHER
                                   3285+*    OR BOTH OF THE ASYNCHRONOUS EXIT QUEUES (AEQ'S) CONTAIN QE'S. THE
                                   3286+*    AEQ FOR IQE'S IS SEARCHED FIRST IN FIFO SEQUENCE. AN IQE WILL BE
                                   3287+*    DEQUEUED FROM THE AEQ AND QUEUED UPON ITS ASSOCIATED IRB IF
                                   3288+*    THE IRB IS EITHER NOT ACTIVE (NOT ON THE RB QUEUE) OR QUEUED
                                   3289+*    ON THE RB QUEUE OF THE TASK FOR WHICH THE SUBJECT REQUEST IS
                                   3290+*    BEING MADE. AN IQE WILL NOT BE DEQUEUED FROM THE AEQ AND QUEUED
                                   3291+*    ON ITS IRB IF ITS TASK HAS A SYSTEM ERROR ASYNCHRONOUS EXIT
                                   3292+*    ACTIVE. IF IQE'S ARE NOT DEQUEUED FROM THE AEQ AND QUEUED ON AN
                                   3293+*    IRB DURING A PASS THROUGH STAGE 3, THEIR PROCESSING IS DEFERRED
                                   3294+*    UNTIL A SUBSEQUENT PASS THROUGH STAGE 3.
                                   3295+*        QUEUING OF AN IQE ON AN IRB IS DONE IN FIFO SEQUENCE.
                                   3296+*        RQE PROCESSING IS IDENTICAL TO IQE PROCESSING WITH THE
                                   3297+*    EXCEPTION THAT RQE'S ARE CHECKED FOR SYSTEM ERROR REQUESTS AND
                                   3298+*    WHEN FOUND CONTROL IS GIVEN TO SIRB PROCESSING CODE.
                                   3299+*        AN IRB INITIALIZATION ROUTINE PERFORMS INITIALIZATION
                                   3300+*    FUNCTIONS FOR BOTH IQE AND RQE REQUESTS.
                                   3301+*        IF TSO IS ACTIVE AND THE IRB ASSOCIATED WITH THE IQE IS  20021
                                   3302+*    INACTIVE, THE IRB IS TESTED TO SEE IF IT IS AN 'ATTENTION'   20021
                                   3303+*    RB. IF NOT, PROCESSING PROCEEDS AS THOUGH NO TS EXISTED. IF  20021
                                   3304+*    SO, THE TIME SHARING USER'S TCB'S ARE TESTED TO SEE IF       20021
                                   3305+*    ASYNCHRONOUS AND ATTENTION EXITS ARE PERMITTED. IF SO, THE   20021
                                   3306+*    IQE IS SCHEDULED. IF NOT, PROCESSING PROCEEDS AS THOUGH NO   20021
                                   3307+*    TIME SHARING EXISTED.                                        20021



                                   3309+* ENTRY POINT NAMES

                                   3311+*     1. IEA0EF03-  ENTRY FROM DISPATCHER.



                                   3313+* CONTAINED IN MODULE

                                   3315+*        IEAQNU- OPTION 4 NUCLEUS.



                                   3317+* ATTRIBUTES

                                   3319+*       .SUPERVISOR MODE
                                   3320+*       .DISABLED EXCEPT FOR MACHINE CHECK.
                                   3321+*       .RESIDENT
                                   3322+*       .SERIALLY RESUSABLE
               COMMENTARY FOR STAGE 3 OF EXIT EFFECTOR                                                         PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3324+* APPLICABILITY

                                   3326+*       .OPTION 4 SYSTEMS



                                   3328+* EXTERNAL REFERENCES

                                   3330+*        NONE



                                   3332+* SVC USAGE

                                   3334+*        NONE



                                   3336+* INPUT

                                   3338+*        NONE



                                   3340+* OUTPUT

                                   3342+*        NONE



                                   3344+* ENTRY POINTS

                                   3346+*     1. IEA0EF03

                                   3348+*        PSW- .SUPERVISOR STATE.
                                   3349+*             .DISABLED EXCEPT FOR MACHINE CHECK.
                                   3350+*             .SUPERVISOR PROTECTION KEY.
                                   3351+*        REGISTERS-
                                   3352+*              2-9      .VALUES FOR CURRENT TASK.
                                   3353+*              10            .ADDRESS OF 'NEW' TCB  (MAY BE ZERO).
                                   3354+*              11            .ADDRESS OF CURRENT TCB.
                                   3355+*              12-15,0,1     .IRRELEVANT AND UNPREDICTABLE.



                                   3357+* EXIT POINTS

                                   3359+*     1. BRANCH BACK TO DISPATCHER.

                                   3361+*        PSW- .SUPERVISOR STATE.
                                   3362+*             .DISABLED EXCEPT FOR MACHINE CHECK.
                                   3363+*             .SUPERVISOR PROTECTION KEY.
                                   3364+*        REGISTERS-
                                   3365+*              0-9,12-15     .IRRELEVANT AND UNPREDICTABLE.
                                   3366+*              10            .ZERO
               COMMENTARY FOR STAGE 3 OF EXIT EFFECTOR                                                         PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3367+*              11            .ADDRESS OF HIGHEST PRIORITY TCB.



                                   3369+* ERROR EXIT POINTS

                                   3371+*        NONE



                                   3373+* TABLES, CONTROL BLOCKS, AND POINTERS REFERENCED

                                   3375+*     1. IQELNK         .ALTERED
                                   3376+*     2. IQEPARAM       .NOT ALTERED
                                   3377+*     3. IQEIRB         .NOT ALTERED
                                   3378+*     4. IQETCB         .NOT ALTERED
                                   3379+*     5. RQELNK         .ALTERED
                                   3380+*     6. RQEUCB         .ALTERED (LOW ORDER BIT)
                                   3381+*     7. RQEDEB         .NOT ALTERED
                                   3382+*     8. DEBTCB         .NOT ALTERED
                                   3383+*     9. DEBIRB         .NOT ALTERED
                                   3384+*    10. UCBTAB         .NOT ALTERED
                                   3385+*    11. TCBRBP         .ALTERED
                                   3386+*    12. TCBFLGS        .NOT ALTERED
                                   3387+*    13. TCBGRS         .ALTERED
                                   3388+*    14. RBSTAB         .ALTERED
                                   3389+*    15. RBEP           .ALTERED
                                   3390+*    16. RBOPSW         .ALTERED
                                   3391+*    17. RBIQUE         .ALTERED
                                   3392+*    18. RBLINK         .ALTERED
                                   3393+*    19. RBSVADDR       .NOT ALTERED
                                   3394+*    20. TCBTSFLG       .NOT ALTERED (IF TSO ACTIVE)              20021



                                   3396+* LIST ORIGINS, TABLES, CONTROL BLOCKS INCLUDED

                                   3398+*        NONE



                                   3400+* RESTRICTIONS ON USAGE OF ROUTINE

                                   3402+*        NONE
                                   3403+* NOTES

                                   3405+*        NONE
                    COMMENTARY FOR VALIDITY CHECK ROUTINE                                                      PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3407+*ROUTINE NAME-     IEA0VL01 - VALIDITY CHECK ROUTINE.
                                   3408+*
                                   3409+*FUNCTIONS-         PROVIDES THE FOLLOWING.
                                   3410+*
                                   3411+*                  1.A CHECK IF THE INPUT ADDRESS IS ON
                                   3412+*                    A FULL WORD BOUNDRY,(OPTION FEATURE)
                                   3413+*
                                   3414+*                  2.A CHECK IF THE INPUT ADDRESS IS
                                   3415+*                    WITHIN MACHINE SIZE AS REFLECTED
                                   3416+*                    BY THE CVTMZ00 FIELD IN THE CVT.
                                   3417+*
                                   3418+*                  3.A CHECK IF THE INPUT ADDRESS'S
                                   3419+*                    STORAGE KEY MATCHES THE TCB
                                   3420+*                    PROTECT KEY FOR THAT JOB. (THE
                                   3421+*                    CURRENT TCB).
                                   3422+*
                                   3423+*ENTRY POINT       IEA0VL01 - VALIDITY CHECK.
                                   3424+*NAMES-
                                   3425+*
                                   3426+*CONTAINED IN      IEAQNU - OPTION 4 NUCLEUS.
                                   3427+*MODULE-
                                   3428+*
                                   3429+*ATTRIBUTES-        RESIDENT,RE-ENTRANT AND IN
                                   3430+*                   SUPERVISOR STATE
                                   3431+*
                                   3432+*APPLICABILITY-     OPTION 4 ONLY
                                   3433+*
                                   3434+*EXTERNAL           CVT TABLE
                                   3435+*REFERENCES-
                                   3436+*
                                   3437+*SVC'S USED         NONE
                                   3438+*
                                   3439+*INPUT              REGISTERS-
                                   3440+*
                                   3441+*                   REGISTER 1, CONTAINS THE INPUT
                                   3442+*                               ADDRESS TO BE VALIDITY
                                   3443+*                               CHECKED.
                                   3444+*
                                   3445+*                   REGISTER 2, ADDRESS OF VALIDITY
                                   3446+*                               CHECK ROUTINE.
                                   3447+*
                                   3448+*                   REGISTER 3, ADDRESS OF CVT TABLE.
                                   3449+*
                                   3450+*                   REGISTER 4, ADDRESS OF CURRENT
                                   3451+*                               TCB.
                                   3452+*
                                   3453+*                   REGISTER 12, REQUESTOR'S RETURN
                                   3454+*                                ADDRESS.
                                   3455+*OUTPUT-            NONE
                                   3456+*
                                   3457+*ENTRY POINTS-     1.IEA0VL01
                                   3458+*
                                   3459+*                  2.IEA0VL01+4
                                   3460+*                    WILL EXECUTE CODE THAT PERFORMS
                                   3461+*                    THE OPTIONAL FEATURE OF CHECKING
                    COMMENTARY FOR VALIDITY CHECK ROUTINE                                                      PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3462+*                    IF INPUT IS ON A FULL WORD
                                   3463+*                    BOUNDRY.
                                   3464+*
                                   3465+*EXIT POINTS-      1.BRANCH ON REGISTER 12.
                                   3466+*
                                   3467+*TABLES AND        1.CVT TABLE
                                   3468+*BLOCKS REFERENCED-      CVTMZ00 TESTED
                                   3469+*                  2.TCB TABLE
                                   3470+*                        TCBPKY  TESTED
                                   3471+*
                                   3472+*ERROR EXIT         NONE
                                   3473+*POINT-
                                   3474+*
                                   3475+*LIST ORIGINS,
                                   3476+*TABLES AND         NONE
                                   3477+*CONTROL BLOCKS
                                   3478+*INCLUDED-
                                   3479+*RESTRICTIONS ON         NONE
                                   3480+*USE OF ROUTINE-
                                   3481+*
                                   3482+*NOTES-                  NONE
                                   3483+*
                                                                                                               PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78


                                   3486          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000128
   01       01      0C     0001F4
   01       01      0C     0001F8
   01       01      0C     000424
   01       01      0C     000CB0
   01       01      0C     000D00
   01       01      0C     000D8C
   01       01      0C     000DFC
   01       01      0C     000E10
   01       01      0C     000E28
   01       01      0C     000E48
   01       01      0C     000E50
   01       01      0C     000E60
   01       01      0C     000E64
   01       02      0C     00005C
   01       03      0C     000060
   01       04      0C     000064
   01       05      0C     0000D8
   01       06      0C     0000DC
   01       07      0C     0001E8
   01       08      0C     0001F0
   01       09      0C     0001FC
   01       0A      1C     000200
   01       0B      1C     000204
   01       0C      1C     0005B0
   01       0D      0C     000964
   01       0D      0C     000968
   01       0D      0C     000DF8
   01       0E      0C     000BA0
   01       0F      1C     000DC0
   01       10      0C     000DF0
   01       11      0C     000DF4
   01       12      0C     000E0C
   01       13      0C     000E08
   01       14      0C     000E18
   01       15      0C     000E2C
   01       16      0C     000E30
   01       17      0C     000E34
   01       18      0C     000E24
   01       19      0C     000E3C
   01       1A      0C     000E40
   01       1B      0C     000E54
   01       1C      0C     000E44
   01       1D      1C     000E4C
   01       1E      1C     000E58
   01       1F      1C     000E5C
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ABCODE2  00004 000BAC 01873   1860
ABEDIT   00004 000E34 02133   1688
ADDRIQE  00001 000001 00629   1852  1852  1853  1853
ADSBASE  00004 000DFC 02106   1176  1220  1250  1262  1321  1369  1387  1568
AEQA     00002 00020A 00329   0336  0338  0339  0340  0999  1484  1528
AEQB     00002 00020C 00330   0337  0989  0998  1006  1010  1509  1511  1547  1549
AEQC     00002 00020E 00331   0335  0341  1000  1011  1487  1528
AEQJ     00001 000210 00346   0347  0349  1040  1041  1401  1480
AEQK     00001 000214 00348   1026  1034  1039  1052  1055  1452  1454
AERBSE   00004 000E64 02165   1904
AERRTA   00004 000E44 02157   1931
AERTCB   00004 000E0C 02115   1540  1571
AFETCH   00004 000E58 02162   1921
AFTCHWA  00004 000E5C 02163   1918
AIEADS02 00004 000E10 02116   1613
AIEAHEAD 00004 000E08 02113   2114
AIEATR00 00004 000E2C 02131   1668
AIEA0AB  00004 000E30 02132   1949
AIEA0DS  00004 000E60 02164
AIEA0XE  00004 000E28 02129   1632  1689
AIORGSW  00004 0001F8 00969   0914
AIOS     00004 0000D4 00836   0832
AMSTCB   00004 000DF8 02105
APIEXIT  00004 0001F4 00968   0935
APROLOG  00004 0001F0 00967   0938
ASLKEY   00004 00005C 00774   0751
ASLTIMER 00004 000060 00775   0759
ASVCLDCB 00004 000E54 02161   1894  1927  1936
ATDQ     00004 000DF0 02103   1217  1225  1384
ATNQ     00004 000DF4 02104   1259  1269  1374  1393
ATRDISP  00004 000E3C 02147   1194
ATREX    00004 000064 00777   0744
ATRIO    00004 0000DC 00840   0829
ATRPI    00004 0001FC 00972   0905
ATRSVC   00004 000E40 02151   1641
AUSERORG 00004 000E24 02128   1673
A1STCB   00004 000E08 02114
BASECON  00004 000CB0 02002   1994
BASESMF  00001 00000F 00655   1861  1862  1863  1864
BINLOOP  00004 000A3C 01779   1800
BLDLINTF 00004 000E44 02156   1899
BLDLIST  00002 000DCC 02080   2160
BLDLNAME 00008 000DD0 02083   1561  1575  1890  1893  1947
BLDLOK   00001 000C16 01917   1908
BLDLRETN 00002 000BE4 01902   2158
BLDLSIZE 00004 000DE8 02088   1920
BLDLTTRN 00002 000DDE 02086   1919
BYTEZERO 00004 000CD4 02029   2022  2024
CA       00001 00000A 00388
CB       00001 00000B 00389
CC       00001 00000C 00390   1740
CD       00001 00000D 00391
CDEEPNT  00001 000011 00439
CDENAM2  00001 00000C 00438
CDENEXT  00001 000000 00437
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CE       00001 00000E 00392   0904
CELLCTR  00001 000003 00666   1778  1779
CF       00001 00000F 00393   0904
CHECKZ   00001 0006BE 01444   1435  1441
CNT11    00001 00000B 00667   1778
CONCSW   00001 000BB2 01879   1783  1785  1857
COUNT    00001 00000F 02173
CSVRB    00001 0000C0 00509   1706  1711
CURRENT  00001 000004 00541   0850  0852
CVTABEND 00004 0000C8 00131
CVTAPR   00001 000040 00094
CVTAQAVT 00004 0000F0 00164
CVTASCII 00001 000002 00101
CVTATTCH 00001 000008 00099
CVTBRET  00002 000052 00055
CVTBTERM 00004 000034 00044   1862
CVTBUF   00004 000010 00027
CVTCCH   00001 000080 00093
CVTCHPTR 00001 000008 00111
CVTCMT   00003 0000ED 00161
CVTCRTTR 00003 0000B8 00109   0122
CVTCUCB  00004 000064 00061
CVTDAR   00004 000048 00051
CVTDATA  00001 000002 00115
CVTDATE  00004 000038 00045
CVTDCB   00001 000074 00067
CVTDCBA  00003 000075 00072
CVTDDR   00001 000020 00096
CVTDMSR  00004 000110 00192
CVTDMSRA 00003 000111 00194
CVTEXIT  00002 000050 00054
CVTEXT1  00004 0000FC 00181
CVTFACHN 00004 000114 00210
CVTFBOSV 00004 000084 00076
CVTFORM  00001 000008 00158
CVTGTF   00004 0000EC 00149
CVTGTFS  00001 0000C0 00151
CVTGTFST 00001 0000EC 00150
CVTHEAD  00004 0000A0 00084   1325  1327
CVTHIAR  00001 000004 00100
CVTIERLC 00004 000090 00079
CVTILCH  00004 00008C 00078
CVTILK1  00004 000024 00036
CVTILK2  00004 000028 00038
CVTIOQET 00004 000078 00073
CVTIXAVL 00004 00007C 00074
CVTJOB   00004 00000C 00026
CVTLINK  00004 000008 00025
CVTLNKSC 00002 0000D6 00139
CVTMAP   00001 000000 00020   1325  1327
CVTMCTYP 00001 000002 00160
CVTMDLDS 00004 0000D0 00137
CVTMODE  00001 000010 00157
CVTMPCVT 00004 0000C0 00129
CVTMSER  00004 000094 00080
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTMSLT  00004 00003C 00046
CVTMZ00  00004 0000A4 00085   1990  2020
CVTNIP   00001 000010 00098
CVTNUCB  00004 000080 00075
CVTOPTA  00001 0000B6 00092
CVTOPTB  00001 0000B7 00103
CVTPATCH 00004 0000DC 00141
CVTPBLDL 00004 00005C 00059
CVTPCNVT 00004 00001C 00032
CVTPRLTV 00004 000020 00034
CVTPROT  00001 000080 00104
CVTPTR   00001 000010 00015   1165  1238  1310  1629
CVTPURG  00004 000104 00184
CVTPURGA 00003 000105 00186
CVTQABST 00002 0000D4 00138
CVTQCDSR 00004 0000B8 00124
CVTQLPAQ 00004 0000BC 00125
CVTQMSG  00004 00010C 00188
CVTQMSGA 00003 00010D 00190
CVTQMWR  00004 0000B0 00089
CVTQOCR  00004 0000AC 00087
CVTQTD00 00004 00006C 00064
CVTQTE00 00004 000068 00062
CVTRMS   00004 0000E0 00142
CVTSECT  00001 000000 00008   1166  1239  1311  1823  1990  2012
CVTSJQ   00004 000060 00060
CVTSMCA  00004 0000C4 00130   1824
CVTSNCTR 00002 0000B4 00091
CVTSTATE 00001 000020 00156
CVTSTB   00004 000070 00066
CVTSTEPR 00001 000004 00113
CVTSTUSA 00001 0000BB 00110
CVTSVDCB 00004 000054 00056
CVTSYSAD 00004 000030 00042
CVTTCBP  00004 000000 00022
CVTTCMFG 00001 0000F0 00162
CVTTCRDY 00001 000080 00163
CVTTOD   00001 000020 00105
CVTTPC   00004 000058 00057
CVTTRMTB 00004 00009C 00083
CVTTSCE  00004 0000D8 00140
CVTTSCVB 00003 0000E5 00147
CVTTSCVT 00004 0000E4 00144   1169  1242  1314
CVTTSFLG 00001 0000E4 00145   1167  1240  1312
CVTTSRDY 00001 000080 00146   1167  1240  1312
CVTUSER  00004 0000CC 00133
CVTUSR   00001 000004 00159
CVTVOLF2 00001 0000F4 00171
CVTVOLI2 00001 000080 00173
CVTVOLM2 00004 0000F4 00169
CVTVOLT2 00003 0000F5 00174
CVTXAPG  00004 000014 00029
CVTXITP  00004 000044 00050
CVTXPFP  00001 000001 00102
CVTXTLER 00004 00002C 00040
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTXTNT1 00001 000114 00208   0181
CVTZDTAB 00004 000040 00049
CVT0DS   00004 000088 00077
CVT0EF00 00004 000004 00023
CVT0FN00 00004 00004C 00053
CVT0PT01 00004 000098 00082
CVT0SCR1 00004 0000E8 00148
CVT0VL00 00004 000018 00030
CVT1EF00 00004 0000A8 00086
CVT1SSS  00001 000040 00068
CVT2SPS  00001 000020 00069
CVT4MPS  00001 000004 00071
CVT4MS1  00001 000010 00070
C0       00001 000000 00378   0903  1073  1073
C1       00001 000001 00379   0903  1709  1741
C2       00001 000002 00380   1722  1775
C20      00001 000014 00394
C240     00001 0000F0 00399
C255     00001 0000FF 00400
C3       00001 000003 00381
C4       00001 000004 00382   1720  1788  1854
C48      00001 000030 00395
C5       00001 000005 00383
C56      00001 000038 00396   0904
C6       00001 000006 00384   1786  1787  1787  1788  1790  1791  1792  1794
C60      00001 00003C 00397
C64      00001 000040 00398
C7       00001 000007 00385   1712
C8       00001 000008 00386   1716  1735  1740  1746  1751  1753  1760
C9       00001 000009 00387   0955  0956  0957  0957  0958
C96      00001 000060 00656   1846  1852
DCBIFLGS 00001 00002C 02168   1895  1896  1928  1937
DCBOFLGS 00001 000030 00514   1752
DCBSAVE  00001 000007 00641   1827  1850
DCBTIOT  00001 000028 00513   1754  1788
DEBIRB   00001 000008 00490   1500
DEBPTR   00001 00002C 01876   1726
DEBSRCH  00002 0009B4 01730   1737
DEBTCBAD 00001 000000 00489   1495
DEC16    00001 000010 00668   1799
DEC56    00001 000038 00665   1777
DISABLE  00001 000E71 02170   1906
DISABMSK 00001 000000 00700
DISMISS  00004 000068 00788   0786
DJSEARCH 00004 0005C0 01345   1227  1270
DJS02    00004 0005E0 01355   1353
DJS03    00002 000602 01367   1394
DJS04    00004 00060A 01374   1366
DSBASE   00002 00042A 01153   1177  1222  1251  1264  1322  1371  1389  1397  1569  1612  2106
DSEARCH  00002 000538 01283   1231  1329
DSENTER  00004 000456 01183   1278
DSENTERW 00006 00045A 01184
DSJSTDQ  00001 0004B6 01224   1213  1215
DSNEXT   00002 000556 01298   1287  1290
DSRCHLP  00004 00053A 01285   1301
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DSREADY  00002 0004CA 01233   1295
DSTEST   00002 0004C4 01230
DSWTASK  00002 00047C 01202   1181
DSWTST   00001 000432 01160   1533
DSWTSTZ  00001 00044C 01178   1168
DSWTSTZ2 00004 000452 01181
DS02     00002 000506 01266   1257
DUPTEST  00001 0001BA 00940   0913
D2321    00002 000BB0 01874   1775
EFDQ     00006 0006D4 01451   1424  1428  1438
EFDQ1    00001 00068A 01426   1419
EFDQ2    00006 000780 01508   1502
EFEND    00001 0007B4 01527   1488
EFEXIT   00004 00028A 01015   1001  1048  1061
EFGOINIT 00004 000724 01475   1472
EFIQE    00002 0002AC 01025   0988
EFIQELP  00002 0006EA 01457   1461
EFIRB    00002 00066C 01416
EFI0A    00004 0002B8 01029   1036
EFI01    00004 0002C2 01032   1028
EFI02    00004 0002EA 01043   1051
EFI03    00006 00030E 01052   1046
EFI05    00004 000650 01406
EFI1     00004 00033C 01062   1029  1053
EFI2     00004 000340 01063   1030  1054
EFI3     00004 000344 01064   1060
EFI4     00004 000348 01065   1042  1047  1056
EFLOOP   00002 000644 01402   1414  1423  1430  1446  1448  1476
EFLOOP2  00002 00073C 01485   1498  1506  1524  1543  1562
EFQSIRB  00002 00074A 01491
EFRQE    00004 00072C 01480   1405  1409
EFRQELP  00002 000796 01514   1517
EFSETYPE 00004 000720 01474   1470
ENABLE   00001 000E70 02169   1900
ENABMASK 00001 0000FF 00699   1123
ENTLGTH  00001 000004 01877   1763
ENTRY    00001 00000C 00663   1845
ENTRY2   00002 000132 00891   0888
ERABTERM 00002 000C5A 01941   1909
ERBSE    00002 000BB6 01889   1905  2165
ERBSE1   00006 000BC4 01893   1916
ERCNVRT  00004 000850 01582   1560  1574
ERCOUNT  00001 000E66 02171   2172  2175
ERFERR   00002 000C4A 01935   1912  1934
ERFERR1  00004 000BFA 01910   1925
ERFERR3  00004 000C06 01913   1911
ERFETCH  00002 000BB4 01886   2061
ERRCOUNT 00001 000E72 02172   1892  1910  1913  1915
ERREXIT  00002 000C74 01951
ERRFLUSH 00002 000C5E 01943   1939
ERSKP    00002 000C3E 01929   1891
ERWK     00008 000860 01587   1582  1583
ERWKX    00004 00086C 01589   1561  1575  1583
EXFLRET  00001 00000B 00527   0712
EXIT     00001 000003 00698   0885  2179
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

EXITS    00001 000020 00664   1825
EXNPSW   00004 000058 00302
EXOPSW   00008 000018 00287   0715  0749  0757
EXTIMER9 00002 00004E 00761   0758
FIVE     00001 000005 00686   1910
FLIHRET  00001 00000B 00546   0853  0872
GMBRNCH  00001 000005 00638   1836  1837  1837  1841
HANGUP   00004 0001D6 00955   0945
IBMORG   00001 000000 02118   2123
IBMSVC   00004 0008F6 01650   1679
IEACON   00004 000200 00973   0893
IEACON2  00004 000204 00974   0900
IEACVT   00001 000003 00558
IEAEND   00004 0002C8 00363   0370
IEAERRTA 00001 000000 02155   2157
IEAERTCB 00001 000000 02102   2115
IEAHEAD  00001 000000 02112   2113
IEAMSTCB 00001 000000 01692   1694  1695  2105
IEAPKSAV 00004 000258 00353   0890  0903  0904  0928  0936
IEAPSW   00008 000200 00323   1184  1199  1200
IEAQEX00 00002 000000 00706   0705
IEAQFX00 00001 000000 00279   0365  0374
IEAQIO00 00002 00009C 00807   0806
IEAQNU00 00001 000000 00004   0371
IEAQPK00 00002 00012E 00889   0887
IEAQSC00 00002 0008C0 01623   1622
IEAQTD01 00001 000000 02101   2103
IEAQTE00 00001 000000 02101   2104
IEAQTR00 00001 000000 02119   2131
IEAQWAIT 00002 0000E0 00847   0712  0821
IEARE    00001 00000E 00559   0894
IEARF    00001 00000F 00560   0893  0894
IEARMSAD 00004 000E04 02109   1279  2108
IEARMSSW 00004 00042A 01158   1156
IEASAV   00004 000298 00356   0707  0713  0808  0822  0984  1016  1070  1098
IEASCSAV 00004 000218 00351   1128  1137  1139  1624  1655  1663  1667
IEASMFEX 00002 00096C 01701   1700
IEASV    00004 000E78 02181   1655
IEASVDCB 00001 000000 02155   2161
IEASV1   00004 000EC0 02183   1663
IEATCBP  00004 000964 01694   0710  0791  0797  0819  0850  0917  1074  1077  1097  1112  1116  1179  1216  1223  1228
                              1253  1258  1265  1267  1271  1325  1327  1328  1331  1630  1693
IEATLEX  00004 000BA0 01870   1833
IEATLEXT 00001 000000 01747   1870
IEATYPE1 00001 000E38 02135   1108  1111  1653  1657  2134
IEA0AB00 00001 000000 02119   2132
IEA0AB01 00001 000000 02120   2133
IEA0DS   00002 000428 01151   0770  0793  1142  1150  2164
IEA0DS01 00004 00042E 01159   1015  1155  1482  1530
IEA0DS02 00002 00034C 01069   1068  2116
IEA0EF00 00002 000208 00981   0980
IEA0EF03 00002 000636 01398   1159
IEA0EXIT 00002 000E74 02179   1607  2178
IEA0IO01 00004 0000A2 00817   0788  0816  0818
IEA0IO02 00004 00006C 00790   0789
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEA0PL00 00001 000000 00966   0967
IEA0TI00 00001 000000 00773   0775
IEA0VL00 00002 000C7A 01981   1973  1995  2002
IEA0VL01 00004 000CB4 02015   2014
IEA0XE00 00002 0003B0 01104   1103  2129
IECIERLC 00002 00020A 00328
IECINT   00001 000000 00835   0837
IECXTLER 00002 000822 01567   1566
IECXTRA  00001 000000 00961   0962
IEEBC1PE 00001 000000 00773   0774
IGCERROR 00002 00094A 01683   1682
IHLCMT   00004 0002A4 00360
IHLMABND 00001 010AFE 00727
IHLMABOF 00001 010A00 00721
IHLMABON 00001 010A01 00722
IHLMDSP  00001 040FE7 00731   1192  1193
IHLMEXT  00001 0D0FFE 00737   0742  0743
IHLMGSTP 00001 010AFC 00725
IHLMIO1  00001 050FEE 00732
IHLMIO2  00001 050FEF 00733
IHLMPCI  00001 020FDF 00729
IHLMPI   00001 0D0FFD 00736   0902
IHLMSCMT 00001 010AFF 00728
IHLMSIO  00001 050FF0 00734
IHLMSSM  00001 0D0FFC 00735
IHLMSSP  00001 010AFD 00726
IHLMSVC  00001 030FFF 00730   1639  1640
IHLMSVOF 00001 010A02 00723
IHLMSVON 00001 010A03 00724
INPUT    00001 000001 02008   2016  2019  2019  2020  2022  2023  2023  2024
INT      00006 000120 00870   0864  0866
INTIMVAL 00001 000006 00543   0766  0767  0854  0858  0859  0859  0861  0863
INTTIME  00001 000050 00547   0766  0854  0861  0870  1333
IOERR    00004 000E6C 02167   1938
IOFLRET  00001 00000B 00537   0821
IONPSW   00004 000078 00314
IOOPSW   00008 000038 00291   0799  0801  0802  0824
IORGSW   00002 0000A2 00815   0814  0969
IPLPSW   00004 000000 00282   0280
IQEADDR  00001 000008 00642   1846  1847  1848  1849  1850  1851
IQEDCB   00001 000010 00657   1850
IQEIRB   00001 000008 00479   1032  1043  1406  1417  1848
IQELNK   00001 000000 00477   1044  1403  1407  1408  1451  1451  1463  1465
IQEOUTLM 00001 000014 00658   1851
IQEPARAM 00001 000004 00478   1468
IQETCB   00001 00000C 00480   1014  1412  1422  1422  1849
IRBADDR  00001 000001 00630   1843  1843  1844  1845  1846  1848
IRBCORE  00004 000BA4 01871   1834
IRBINTL  00004 000870 01593   1475  1523
IRBLNGTH 00001 000090 00661   1843
K806     00004 000E68 02166   1942
LIMOFF   00001 000002 00632   1832  1851
LOWUSER  00004 000E20 02127   1675  2125
LSAVE    00004 000B5C 01868   1748  1827  1828  1856
LSAVE1   00004 000B9C 01869   1767  1807  1830
                                             CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MCNPSW   00004 000070 00311
MCOPSW   00008 000030 00290
NCOLLECT 00002 000126 00872   0857
NEG32    00004 000E00 02107   1203  1272
NIOS     00002 0000C6 00826   0817
NOCOUNT  00001 000040 00508
NORMAL   00004 000CBE 02019   2015
NOSET    00001 000A62 01789   1784
NOTEXCP  00004 000B40 01856   1793  1796  1815  1818  1865
NOTEXCPA 00001 000B48 01858
NOTSO    00001 0004E6 01252   1241
NOTSO1   00001 000580 01323   1313
NOTS02   00001 00059C 01330   1326
NOT2321  00004 000A40 01780   1776
OB       00001 000011 00518   1752
OFF      00001 000000 01881   1857
ON       00001 0000FF 01880   1783  1785
ONE      00001 000001 00684   1914
OUTLMABN 00004 000B4A 01860   1826
PCSAVE   00004 0001EC 00963   0944  0946  0958
PDRETRN  00002 000082 00796   0790
PIEPICA  00001 000000 00463   0922
PIEPSW   00001 000004 00464   0927
PIEREG1  00001 000018 00465   0928
PIEXIT   00002 00012C 00885   0968
PINPSW   00004 000068 00308   0982  0982  0983  1017  1017  1018  1399  1399  1400  1531  1531  1532
PIOPSW   00008 000028 00289   0910  0911  0912  0934  0937  0941
PLOGADR  00004 0001B4 00938   0916  0920  0925  0933  0942  0947  0959
PROGCHK0 00001 000000 00964   0941
PSWSV    00008 000EB8 02182   1656
PSWSV1   00008 000F00 02184   1664
PUTOFF   00006 0007C2 01531
PUTON    00004 00063C 01400
RBATTN   00001 000020 00449   1427
RBEP     00001 00000C 00450   1605  1608
RBEXRTNM 00001 000000 00443
RBFACTV  00001 000040 00459   1418  1501  1542  1593  1601
RBGRSAVE 00001 000020 00455   1595
RBIQUE   00001 000018 00452   1421  1456  1504  1513  1551
RBLINK   00001 00001C 00454   1602  1710
RBNAME   00001 000000 00445
RBOPSW   00001 000010 00451   0715  0799  0824  1136  1184  1552  1597  1600  1605  1685  1715  1717  1719  1721
RBSIZE   00001 000008 00446
RBSTAB   00001 00000A 00447   1418  1469  1471  1474  1501  1542  1593  1601  1706  1708  1711
RBSTAB1  00001 00000B 00448   1427
RBSVADDR 00001 000000 00444   1596
RBSZSTAB 00004 000BA8 01872   1844
RBWCF    00001 00001C 00453   1095  1286
REGX14   00001 00000E 00682
REGX15   00001 00000F 00683
RERPNM   00001 000007 00687   1894  1895  1896
RESET    00006 00010A 00862   0860
RET      00004 0002A0 01020   0993  1008  1009
RETURN   00001 00000C 02009   2018  2021  2025
RMSCODE  00004 000532 01279   1158
                                             CROSS-REFERENCE                                                   PAGE    9


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RQE      00004 0002A4 01021   0992  1007  1012  1013
RQEDEB   00001 000008 00485   1494
RQELNK   00001 000000 00483   1486  1508  1508  1518  1519  1546  1546
RQETCB   00001 00000C 00486   1505  1505  1554
RQEUCB   00001 000002 00484   1492  1544  1557
RTCB     00004 0002A8 01022   1014
R0       00001 000000 00628   1748  1834  1856
R1       00001 000007 01975   1988  1988  1990  1996  1997  1997  1998
R14      00001 00000E 00653   1841  1855  1863
R15      00001 00000F 00585   1165  1166  1170  1172  1174  1217  1218  1225  1238  1239  1243  1245  1248  1259  1260
                              1269  1279  1280  1310  1311  1314  1315  1316  1317  1318  1319  1324  1325  1327  1367
                              1374  1384  1385  1393
R2       00001 000008 01976   1980  1989  1990  1992  1993  1994  1995
R3       00001 000009 01977   1982  1982  1984  1985  1985  1986  1986  2001
R4       00001 00000A 01978   1991  1999
SCANY    00001 0006A6 01436   1443
SCANZ    00001 00069C 01432   1450
SCBASE   00002 0008C6 01627
SC234    00002 00091A 01659   1652
SC2342   00001 000934 01666   1662
SETOFF   00006 000292 01017
SETON    00004 00020E 00983
SETON1   00001 000234 00995   0991
SETON2   00004 000246 01000   1005
SETON3   00006 00025E 01006   1003
SETON4   00006 00027E 01013   0994
SIRB     00008 000D80 02059   1541  1890  1893  1897  1926  2057  2077
SIRBEP   00004 000D8C 02061   1576
SIRBIEC  00004 000DC0 02067   1952
SIRBINTL 00002 000888 01599   1555
SIRBIQE  00008 000D98 02063   1930
SIRBNM2  00008 000D84 02077
SIRBPSW  00008 000D90 02062   1576  1577  1578
SIRBTCB  00004 000DC4 02068   1554  1944
SIR2     00006 0007B4 01528
SLOTFND  00004 000A10 01766   1762  1795
SLOTLNGH 00001 000008 01878   1780  1782
SMCAADR  00001 000009 00643   1824  1825
SMFEXCPA 00002 0009CA 01739   1707
SMFEXCPB 00002 0009A4 01725   1718
SMFEXCPC 00002 0009D0 01742   1738
SRCHCELL 00004 000A7C 01797   1779
SRCHSLOT 00004 0009FA 01759   1764
SRCHUCB  00004 000A22 01773   1781
STABSIZE 00001 000008 00662   1844
STOPTRA  00004 0001E8 00962   0955
SUMEXCP  00004 000AA2 01808   1810
SVCCONS  00004 000E14 02122   1644
SVCEXCP  00001 000000 00616
SVCNPSW  00004 000060 00305
SVCOPSW  00008 000020 00288   1118  1123  1125  1129  1130  1135  1645  1656  1664  1665  1685  1686
SVCPOST  00001 000002 00615   1125
SV02     00006 000908 01655
SV03     00004 000914 01657   1654
SWNEXT   00004 000372 01082   1088
                                             CROSS-REFERENCE                                                   PAGE   10


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SWRET    00004 0003AA 01098   1079  1089  1093  1096
SWSETNEW 00002 000390 01090   1080  1084  1086
SW01     00006 000364 01078   1076
SYSERR   00002 0007D0 01539   1493
SYSWBASE 00001 00000A 00540   0848  0849
SYSWSAVE 00004 0005B4 01340   0767  0845  0855  0858  0862  0862  0867  0870  1148  1334
SYSWTCB  00001 000005 00542   0851  0852
TCBATT   00001 000020 00423   1429  1447
TCBDSP   00001 000023 00414   1078  1078  1085  1085
TCBFCD1  00001 000002 00431
TCBFJMC  00001 000008 00433
TCBFLGS  00001 00001D 00412   1120  1413  1445  1497
TCBFRO   00001 000010 00430
TCBFRS0  00001 000000 00404   1205  1274
TCBFRS2  00001 000008 00405   1206  1275
TCBFRS4  00001 000010 00406   1207  1276
TCBFRS6  00001 000018 00407   1208  1277
TCBFSIRB 00001 000020 00428
TCBFSMC  00001 000010 00432
TCBFX    00001 000001 00429   1413  1445  1497
TCBGRS   00001 000030 00415   0711  0713  0800  0820  0822  1138  1139  1198  1572  1573  1595  1609  1610  1946  1947
TCBJSTCB 00001 00007C 00418   1355
TCBLTC   00001 000088 00421   1351  1433
TCBNTC   00001 000080 00419   1439
TCBOTC   00001 000084 00420   1356  1442
TCBPIE   00001 000004 00409   0918
TCBPKF   00001 00001C 00411   1360  2001  2029
TCBPRES  00002 000C8C 01987   1983
TCBRBP   00001 000000 00408   0714  0798  0823  1094  1134  1183  1285  1602  1604  1631  1705
TCBSAVE  00001 000004 00634   1828  1829  1829  1849
TCBTCB   00001 000074 00416   1082  1299
TCBTCT   00001 0000A4 00424   1743
TCBTIOT  00001 00000C 01882   1787
TCBTME   00001 000078 00417   1211  1255  1362
TCBTRN   00001 000014 00410
TCBTSFLG 00001 000094 00422   1429  1447
TCBWAIT  00001 000020 00413   1091  1288
TCTCOMIO 00001 000008 00503   1756
TCTDCBTD 00001 000000 00498   1759  1761
TCTDCTR  00001 000004 00502   1803  1804
TCTIOTBL 00001 00000C 00504   1749
TCTIOTSD 00001 000002 00500   1766
TCTSCTR  00001 000002 00499   1768
TCTSW    00001 000003 00501
TCTUCBP  00001 000000 00497   1773  1797  1808  1814  1817
TEST     00002 0009BC 01733   1729
TESTSPI  00004 000172 00918
TIMER    00004 000050 00296
TIMERACC 00001 000008 00545   0855  0865  0867
TIMERVAL 00001 00000A 00579   1333  1334
TIMESAVE 00001 000007 00544   0855  0856  0856  0863  0865
TQEFLGS  00001 000000 00469   1214  1365  1381  1392
TQEOFFQ  00001 000080 00474
TQESAV   00001 000014 00471   1391
TQEVAL   00001 00000C 00470   1391
                                             CROSS-REFERENCE                                                   PAGE   11


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TRANSREF 00004 0005B0 01337   0794  1335
TRDISP   00001 000000 02146   2147
TREX     00001 000000 00776   0777
TRIO     00001 000000 00839   0840
TRPI     00001 000000 00971   0972
TRSVC    00001 000000 02150   2151
TSCASTOP 00001 000020 00233
TSCDISC  00001 000010 00227
TSCLOGON 00001 000020 00226
TSCLOGPR 00001 000010 00235
TSCRSTOP 00001 000040 00232
TSCSSTOP 00001 000080 00231
TSCSWPBG 00001 000040 00225
TSCSWPND 00001 000080 00224
TSCVT    00001 000000 00218   1171  1244  1316
TSCVTABN 00004 000068 00266
TSCVTCTR 00002 00001C 00244
TSCVTCUS 00002 000014 00239
TSCVTDMP 00004 00007C 00271
TSCVTD02 00004 000040 00255
TSCVTD03 00004 00006C 00267
TSCVTECB 00004 000024 00248
TSCVTFLG 00001 00000C 00222
TSCVTFLM 00004 000070 00268
TSCVTFL1 00001 00000E 00229
TSCVTICB 00004 00002C 00250
TSCVTI01 00004 000030 00251
TSCVTI02 00004 000038 00253   1172
TSCVTI03 00004 00003C 00254   1245  1317
TSCVTLCQ 00004 000044 00256
TSCVTLPA 00004 00004C 00258
TSCVTLS3 00004 000084 00273
TSCVTLUS 00002 000016 00240
TSCVTMUS 00002 00001E 00245
TSCVTNTJ 00002 000018 00242
TSCVTQTP 00004 000074 00269
TSCVTRCB 00004 000004 00220
TSCVTRPT 00004 000008 00221
TSCVTRSZ 00002 00005C 00262
TSCVTSAV 00004 000020 00247
TSCVTSDC 00004 000010 00238
TSCVTSIA 00004 000028 00249
TSCVTSLF 00004 000050 00259
TSCVTSPL 00004 000058 00261
TSCVTSVQ 00004 000064 00265
TSCVTSVT 00004 000060 00264
TSCVTSZU 00002 00001A 00243
TSCVTTJB 00004 000000 00219
TSCVTTQE 00004 000034 00252
TSCVTTRB 00004 000048 00257
TSCVTTSC 00004 000054 00260
TSCVTT06 00004 000080 00272
TSCVTT08 00004 000078 00270
TSWITCH  00002 000402 01133   1119  1122  1124  1126
TYPE1RET 00002 0003F6 01127   1115  1117
                                             CROSS-REFERENCE                                                   PAGE   12


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

T1       00001 000001 00611   1431  1433  1437  1439  1442  1442  1449
UCBFND   00004 000A8C 01802   1774  1798
UCBTAB   00001 000008 00493   1559
UCBTYP   00001 000012 01875   1775
USERORG  00001 000000 02126   2128
USERSVC  00004 00093E 01673   1649
VLCLI    00004 000CAC 02001   1996  1998
VTCTINIT 00001 000004 00660
WAITCBA  00004 000128 00874   0851
WAITDSP  00001 000D2B 02050
WAITGRS  00008 000D38 02053
WAITPRB  00004 000D00 02045   1304  2045
WAITPSW  00008 000D10 02047   1347  1348
WAITRDYQ 00004 000D7C 02055
WAITTCB  00008 000D00 02044   0874  1113  1345  1346  1660  2042
WDTEST   00004 000CD8 02031   2016
WORD     00001 000CDC 02035   2031
XA       00001 00000E 00533   0808
XABTERM  00001 00000D 00623   1688  1690
XB       00001 00000F 00534   0808  0809  0810  0834
XBASE    00001 00000F 00659   1703  1748  1840  1842  1856  1866
XBR      00001 000002 00577
XBS      00001 00000A 00532   0787  0804
XCVT     00001 000003 00692   1629  2012  2038
XDCBPAS  00001 000004 00636   1726  1742
XDCBPTR  00001 00000A 00644   1742  1752  1754
XDSFP    00001 00000D 00590   1203  1204  1205  1206  1207  1208  1272  1273  1274  1275  1276  1277
XDSLNK   00001 000002 00576   1218  1219  1221  1260  1261  1263  1367  1368  1370  1385  1386  1388
XDSNEW   00001 00000A 00582   0583  1169  1171  1173  1179  1180  1183  1216  1223  1228  1230  1230  1233  1253  1255
                              1258  1265  1267  1268  1271  1273  1292
XDSOLD   00001 00000B 00583   1179  1180  1204  1211  1226  1233  1253  1284  1328
XDSRB    00001 00000C 00584   1183  1184  1285  1286  1304  1305  1305  1331  1331
XDSTQE   00001 000001 00575   1211  1212  1212  1214  1242  1244  1246  1255  1256  1256  1362  1363  1363  1365  1381
                              1383  1390  1391  1391  1392
XDSWKTCB 00001 00000D 00589   1284  1285  1288  1292  1299  1299  1300  1300
XEB      00001 0003BA 01110   1109
XEBASE   00002 0003B2 01107
XERRNO   00001 000001 00614   1686  1687  1687
XFEP     00001 000009 00681   1921  1922
XFRETN   00001 000008 00680   1922
XFWK     00001 000007 00679   1913  1914  1914  1915  1918  1919  1920
XHIIBM   00001 000008 00621   1644  1648
XIORB    00001 00000D 00536   0798  0799  0823  0824
XIOS     00001 000006 00531   0832  0833
XIOSBASE 00001 000005 00530   0832
XIOTCB   00001 00000E 00535   0791  0792  0792  0797  0798  0800  0819  0820  0822  0823
XJSTCB   00001 00000D 00588   1345  1346  1349  1351  1352  1352  1354  1355  1355  1356  1356  1358  1358  1360  1362
XN       00001 00000B 00570   1074  1075  1075  1077  1078  1082  1082  1083  1083  1085  1087  1091  1092  1092  1094
                              1095
XNDBITS  00001 00000C 00586   1288  1289  1289
XNPIPIE  00001 000001 00550   0921  0926  0927  0928
XNPIX    00001 00000E 00555   0938  0939
XNPI1    00001 00000A 00551   0914  0915  0917  0918  0918  0919  0919  0921  0922  0922  0923  0923  0930
XPTCB    00001 00000A 00569   1073  1073  1078  1085  1087  1091  1094  1097
XRB      00001 000005 00694   1113  1114  1134  1136  1631  1685
                                             CROSS-REFERENCE                                                   PAGE   13


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

XRET     00001 00000E 00572   1099  1174  1175  1176  1177  1248  1249  1250  1251  1319  1320  1321  1322
XRTN     00001 00000E 00652   1709  1712  1716  1720  1722  1735  1741  1746  1751  1753  1760  1859
XRWRK    00001 00000C 00648   1705  1706  1708  1710  1710  1711  1715  1717  1719  1721  1726  1727  1727  1736  1740
                              1755  1755  1759  1768  1769  1781  1790  1791  1802  1803  1804  1805  1805  1808  1816
                              1817  1830  1831  1832
XRWRK2   00001 00000D 00651   1728  1731  1731  1732  1732  1734  1734  1736  1769  1810  1811  1812  1813  1813  1814
XRWRK4   00001 00000E 00654   1806  1808  1809  1809  1812  1814  1817  1831
XSBR     00001 00000C 00587   0794  0795  1227  1270  1335  1336  1350  1359  1361  1364  1372  1375  1382
XSCMMTBL 00001 000003 00633   1822  1823  1835  1836  1854
XSEARCH  00001 000008 00580   1226  1268  1349  1351  1354
XSEXTEFT 00001 000005 00639   1854  1855
XSIRB    00001 000008 00603   1541  1542  1551  1552
XSQPTR   00001 000001 00631   1838  1839  1839  1860
XSVCEP   00001 000006 00617   1650  1651  1651  1658
XSVCNO   00001 000006 00618   1644  1645  1646  1646  1647  1647  1648  1650  1675
XSYSTRTN 00001 00000A 00650   1833  1845
XS1      00001 000006 00640   1840  1842  1861  1864
XTBORG   00001 000007 00619   1650  1673
XTCB     00001 000004 00693   1630  1631  1661  2029
XTCBPASS 00001 000000 00635   1704  1786
XTCBPTR  00001 00000B 00646   1704  1705  1728  1743
XTCTPTR  00001 00000B 00647   1743  1744  1744  1745  1745  1749  1749  1750  1750  1756  1766  1767  1768  1773  1780
                              1780  1782  1782  1797  1803  1804  1807  1808  1814  1817
XTCTSRC  00001 00000D 00649   1756  1759  1761  1763  1763  1766
XTIOTD   00001 00000A 00645   1754  1761  1770  1773  1775  1777  1777  1797  1799  1799
XTQESAVE 00001 000009 00581   1383  1390
XTRBASE  00001 00000A 00690   0744  0745  0829  0830  0905  0906  1194  1196  1641  1642
XTREP    00001 00000C 00622   1668  1670
XTRET    00001 00000B 00691   0745  0830  0906  1196  1642
XTRX     00001 000007 00620   1660  1661  1667
XUCBPTR  00001 000007 00637   1770
XXBASE   00001 00000A 00523   0751  0752  0759  0760
XXRB     00001 00000F 00526   0714  0715
XXRET    00001 000002 00522   0752  0760
XXTCB    00001 00000F 00525   0710  0711  0713  0714
X0       00001 000000 00677   1944  1945
X1       00001 000001 00678   1927  1928  1930  1936  1937  1938  1942
X1TCB    00001 000002 00671   1112  1114  1116  1120  1134  1138  1139
X2       00001 000002 00578
X2BASE   00001 00000B 00565   0984  0985  0986  1016  1066
X2QE     00001 000001 00563   0987  0987  0990  0992  0996  0997  0998  1025  1025  1027  1029  1035  1037  1038  1039
                              1041  1042  1045  1049  1050  1052  1055  1056  1057
X2WK     00001 00000A 00564   0984  0989  0990  0996  0997  0999  1000  1002  1002  1004  1004  1006  1007  1010  1011
                              1012  1013  1014  1016  1026  1027  1032  1034  1035  1037  1038  1040  1043  1043  1044
                              1045  1047  1049  1050  1053  1058  1059  1059  1060
X3CURR   00001 000003 00596   1401  1402  1403  1404  1404  1406  1406  1407  1408  1412  1417  1422  1451  1452  1463
                              1465  1467  1468  1484  1485  1486  1487  1492  1494  1505  1508  1509  1518  1519  1521
                              1544  1546  1547  1551  1553  1554  1557
X3DEB    00001 000004 00597   1494  1495  1500
X3IQE    00001 000007 00601   1456  1457  1458  1459  1459  1460  1460  1465  1513  1514  1515  1516  1516  1519
X3IRB    00001 000008 00602   1417  1418  1421  1427  1456  1469  1471  1474  1500  1501  1504  1513  1593  1595  1596
                              1597  1600  1601  1602  1603  1603  1604  1605  1605  1608
X3IRBIQE 00001 000006 00598   1421  1422  1457  1458  1462  1463  1464  1504  1505  1514  1515  1518
X3PREV   00001 000002 00595   1402  1403  1408  1451  1454  1485  1486  1508  1511  1546  1549
X3RET    00001 000009 00604   1475  1523  1555  1594  1616
                                             CROSS-REFERENCE                                                   PAGE   14


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

X3TCB    00001 00000A 00605   1412  1413  1429  1431  1437  1495  1496  1496  1497  1540  1595  1602  1604  1609  1610
X3UCB    00001 000006 00599   1557  1559
X3WKX    00001 00000D 00606   1558  1558  1559  1582
X3WK15   00001 00000F 00607   1433  1434  1434  1439  1440  1440  1445  1447  1449  1560  1584
X3WR     00001 000006 00600   1606  1612  1615  1617
ZERO     00001 000000 00685   1892



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     4      SOURCE RECORDS (SYSLIB) =  6134
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 4048 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.TSOGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21TA36.R0000161      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21TA36.S0000162      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21TA36.S0000162      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG37    / START 78240.1945
IEF374I STEP /SG37    / STOP  78240.1945 CPU   0MIN 01.51SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:27.35   ALLOC START    19:45:27.36   MAIN REGION ----- 300K                          *
*   STEP NAME SG37       STEP END TIME  19:45:29.74   PGM START TIME 19:45:27.45   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.39   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:01.51   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ---------- 159       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0    *
*   0151 ---------- 121       0151 ---------- 143       0151 ---------- 288       0130 ---------- 507       0151 ---------- 123    *
*   0130 ------------ 6                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21TA36  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:29.77   ALLOC START    19:45:29.79   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:29.82   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.TSOGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21TA36 / START 78240.1945
IEF376I  JOB /R21TA36 / STOP  78240.1945 CPU   0MIN 01.51SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21TA36    JOB READ TIME 19:44:53.16   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.51   *
*   JOB CLASS A          JOB INIT TIME 19:45:27.35   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:02.49   *
*   ACCOUNT              JOB END TIME  19:45:29.84   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M  333333333  777777777                            A
            RRRRRRRRR  222222222      11        AAA     MM     MM  333333333  777777777                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  33    33   77     77                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM       33          77                          AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      3333        77                          AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM     333333      77                           AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM         33     77                            AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  33     33     77                            AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM  333333333     77                            AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM   3333333      77                            AA     AA

***********A  START   R21AM37    SYS SYSA   WTR 00E   07:47:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM37    START  A***********
***********A  START   R21AM37    SYS SYSA   WTR 00E   07:47:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM37    START  A***********
***********A  START   R21AM37    SYS SYSA   WTR 00E   07:47:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM37    START  A***********
***********A  START   R21AM37    SYS SYSA   WTR 00E   07:47:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM37    START  A***********
***********A  START   R21AM37    SYS SYSA   WTR 00E   07:47:17 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM37    START  A***********


//R21AM37 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG38 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEAANIP0)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM37  SG38
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEAANIP0  SD  01 000000 0075E0
IEANIP4   LD     000000         01
GOVRFLB   ER  02
IEAMSTCB  ER  03
IEAQLPAQ  ER  04
IEECVTCB  ER  05
IECXAPG   ER  06
IEASVRB   ER  07
IBMORG    ER  08
USERORG   ER  09
IGCERROR  ER  0A
IECZDTAB  ER  0B
IEAQSVCQ  ER  0C
IECPCNVT  ER  0D
IFBACTA   ER  0E
DMPPCIAP  ER  0F
DMPCEAPP  ER  10
DMPAEAPP  ER  11
CTCMCS    ER  12
IGFCCH    ER  13
IEACVT    ER  14
IECIOS    ER  15
IEECVUCM  ER  16
IGFMSB00  ER  17
IEARMSAD  ER  18
IEARMSSW  ER  19
IECRMS    ER  1A
IECINT    ER  1B
SIRB      ER  1C
IEAERWA   ER  1D
IEA0IO01  ER  1E
IGC011A0  ER  1F
IGC011A1  ER  20
IEAQENA0  ER  21
IEAQENA1  ER  22
IEECMWA0  ER  23
IEECMWA1  ER  24
IEECMEA0  ER  25
IEECMEA1  ER  26
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 IEAANIP0  START
                                      3  IEAANIP 1,1,4,1,117,220,0,1,0,1,                                   XXXXXXX
                                                       1,010010,02F02F,1,                             *****************
                                                       0,                                         *****************
                                                       200,                                         *****************
                                                       24,                                         *****************
                                                       68,                                         *****************
                                                       10,                                         *****************
                                                       100000,                                            *************
                                                       0,                                        *****************
                                                       0,                                        *****************
                                                       1,                                        *****************
                                                       0,                                         *****************
                                                       1,                                        *****************
                                                       0,                                        *****************
                                                       580000000000,                                           *********
                                                       000000000000,                                           *********
                                                       000000000000,                                           *********
                                                       0,                                           **************
                                                       ,                                          **************
                                                       ,                                          **************
                                                       1,                                          **************
                                                       0,                                            *************
                                                       0,                                          **************
                                                       30E,                                              **************
                                                       1,                                          **************
                                                       1,                                          **************
                                                       0,                                        *****************
                                                       0,                                        *****************
                                                       0,                                        *****************
                                                       0158,                                                   *
                                                       0,                                                      *
                                                       1,                                                      *
                                                       1,                                                      *
                                                       80,                                               ********
                                                       2,                           BH 61205        ************
                                                       1,                                                      *
                                                       0
                                      4+         ENTRY IEANIP4
                                      5+         EXTRN GOVRFLB,IEAMSTCB,IEAQLPAQ,IEECVTCB,IECXAPG 000E
                                      6+         EXTRN IEASVRB,IBMORG,USERORG,IGCERROR,IECZDTAB
                                      7+         EXTRN IEAQSVCQ
                                      8+         EXTRN IECPCNVT
                                      9+         EXTRN IFBACTA 19032
                                     10+         EXTRN DMPPCIAP,DMPCEAPP,DMPAEAPP

                                     12+*** REGISTER EQUATES
                                     13+*
000000                               14+R0       EQU   0 000D
000001                               15+R1       EQU   1 000D
000002                               16+R2       EQU   2 000D
000003                               17+R3       EQU   3 000D
000004                               18+R4       EQU   4 000D
000005                               19+R5       EQU   5 000D
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000006                               20+R6       EQU   6 000D
000007                               21+R7       EQU   7 000D
000008                               22+R8       EQU   8 000D
000009                               23+R9       EQU   9 000D
00000A                               24+R10      EQU   10 000D
00000B                               25+R11      EQU   11 000D
00000C                               26+R12      EQU   12 000D
00000D                               27+R13      EQU   13 000D
00000E                               28+R14      EQU   14 000D
00000F                               29+R15      EQU   15 000D
                                     30+*                                                                  MCS0
                                     31+*** TCB DISPLACEMENTS
                                     32+*
000000                               33+TCBRBP   EQU   0 READY QUEUE LIST ORIGIN
000008                               34+TCBDEB   EQU   8 TCB DEB QUEUE PTR          000C
00000C                               35+TCBTIO   EQU   12 ADDR OF TIOT               000C
000018                               36+TCBMSS   EQU   24 FIELD FOR USE BY MAIN STORAGE SUPVR.
00001C                               37+TCBPKF   EQU   28 STORAGE PROTECT KEY         000E
000024                               38+TCBLLE   EQU   36 ADDRESS OF LAST LLE        000E
00002C                               39+TCBJPQ   EQU   44 ADDRESS OF LAST JOB PACK CDE000E
000030                               40+TCBGRS   EQU   48 TCB REG SAVE AREA          000C
00006C                               41+TCBGR9   EQU   108 -  REGISTER 9            PARM
000070                               42+TCBIDF   EQU   112 .                    TCB IDENTIFIER           A39962
000074                               43+TCBTCB   EQU   116
000098                               44+TCBPQE   EQU   152 TCB PQE PTR                000E
                                     45+*
                                     46+*** UCB DISPLACEMENTS                                              000D
                                     47+*                                                                  000D
000001                               48+UCBALLC  EQU   1 ALLOCATION CHANNEL MASK    000D
000003                               49+UCBESTAT EQU   3 UNIT STATUS                 TEMP
00000D                               50+UCBEBCDC EQU   13 DISP TO EBCDIC NM IN UCB        I267
000010                               51+UCBDCLSZ EQU   16 I267
000024                               52+UCBTTR   EQU   36 UCB VTOC TTR                    I267
0000BF                               53+UCBREADY EQU   X'BF' READY COND. IN UCBFL1 FIELD     I267
000080                               54+UCBONLIN EQU   X'80' - ONLINE        MCS0
000004                               55+UCBPRES  EQU   X'04' - PERM RESIDENT UDAR
000002                               56+UCBCONSL EQU   X'02' - CONSOLE UNIT  MCS0
00008C                               57+UCBALONR EQU   X'8C' UCB ALLOCATED, ON LINE + PERM RESDAR
000004                               58+UCBCHA   EQU   4 UNIT ADDRESS               000D
000006                               59+UCBFL1   EQU   6 FLAG BYTE IN UCB                MCS0
000040                               60+UCBNRDY  EQU   X'40' - NOT READY                 0019
00000D                               61+UCBNAME  EQU   13 EBCDIC DEVICE NAME IN UCB       MCS0
000010                               62+UCBTYP   EQU   16 DEVICE TYPE                000E
000020                               63+UCBCHECK EQU   X'20' CHECKING BIT IN UCB OPTION FIELD MCS0
000011                               64+UCBOPTNS EQU   17 OPTIONS FIELD OF UCB             MCS0
000020                               65+UCBSDASD EQU   X'20' - SHARED DASD          0191
000012                               66+UCBDCLAS EQU   18 DEVICE CLASS               000E
000020                               67+UCBDASD  EQU   X'20' UCB BYTE 18 CODE FOR DASD     A35199
000008                               68+DCLASRCD EQU   8 - UNIT RECORD    MCS0
000010                               69+DCLASGRP EQU   X'10' - GRAPHICS       MCS0
000040                               70+DCLASCOM EQU   X'40' - COMMUNICATION  MCS0
000013                               71+UCBUTYPE EQU   19 UNIT TYPE                  9952
000005                               72+DCELTYPE EQU   5 - 2321 DATA CELL 9952
000002                               73+UTYP2250 EQU   X'02' - 2250 CONSOLE   MCS0
000007                               74+UTYP5450 EQU   X'07' - 5450 CONSOLE   MCS0
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                               75+UTYP1403 EQU   8 - 1403 PRINTER   MCS0
00000A                               76+UTYP1443 EQU   10 - 1443 PRINTER   MCS0
000020                               77+UTYP1052 EQU   X'20' - 1052 CONSOLE   MCS0
000021                               78+UTYP2150 EQU   X'21' - 2150 CONSOLE   MCS0
000006                               79+U2305M1  EQU   6 .                                - 2305 MODEL 1 A42820
000007                               80+U2305M2  EQU   7 .                                - 2305 MODEL 2 A42820
000009                               81+U3270    EQU   X'09' 3270  FLAG                          BH 58099
000040                               82+U2305SIZ EQU   X'40' .                  2305 UCB SIZE         BI  21872
000009                               83+U3330FLG EQU   X'09' DEVICE TYPE ID IN UCB            BH 59204
00001C                               84+UCBVOLAB EQU   28 VOLUME LABEL                    0019
000004                               85+UCBMPANX EQU   4
000040                               86+UCBNORED EQU   64 NOT READY BIT IN UCB            MCS0
000038                               87+UCBSIZE  EQU   56 SIZE OF UCB (W/O SUB-UCBS) 9952
                                     88+*** SUB-UCB DISPLACEMENTS                                          9952
000000                               89+DCELBBNR EQU   0 BIN NUMBER                 9952
000001                               90+DCLBBNR1 EQU   1 I267
000003                               91+DCELSTAT EQU   3 DATA CELL STATUS FIELD          I267
000004                               92+DCELVOLI EQU   4 DATA CELL SUB-UCB VOLID         I267
00000C                               93+DCELVTOC EQU   12 DATA CELL SUB-UCB VTOC TTR      I267
                                     94+*
                                     95+*** CVT DISPLACEMENTS
                                     96+*
000010                               97+CVTPNTR  EQU   16 PERMANENT LOCATION-CVT PTR  000E
000000                               98+CVTTCBP  EQU   0 CVT PTR TO NEW/OLD         000C
000001                               99+CVTEPFP  EQU   1 SETS BIT 7 IN CVTOPTA-EPFP BIT 20052
000008                              100+CVTLINK  EQU   8 DCB ADDR FOR LINKLIB
000010                              101+CVTNIP   EQU   16 BIT=1 INDIC NIP IN PROGRESS   A23669
000015                              102+CVTXAPG  EQU   21 ADDR OF IOS APPENDAGE TABLE MXMV
00001C                              103+CVTPCNVT EQU   28 PTR TO TTR - ABS ADR CONVRT000C
000024                              104+CVTILK1  EQU   36 000A
000028                              105+CVTILK2  EQU   40 ADDR OF 2 BYTE UCB POINTERS
000032                              106+CVTSYSAD EQU   50 ADDR OF SYSRES UCB + 2         19022
000038                              107+CVTDATE  EQU   56 DATE IN PACKED DECIMAL     000C
000054                              108+CVTSVDCB EQU   84 DCB ADDR FOR SVCLIB
000074                              109+CVTDCB   EQU   116 PTR TO SYS1.LOGREC DCB      MXMV
00007C                              110+CVTIXAVL EQU   124 PTR TO A PTR FOR NEXT AVAIL 12*
000080                              111+CVTNUCB  EQU   128 LOWEST ADDR NOT IN NUC(ROUNDED UP 2)
000088                              112+CVTDISP  EQU   136 DISPATCHER KICK OFF ENTRY POINT
0000A4                              113+CVTMZ00  EQU   164 HIGHEST STORAGE ADDRESS     000E
0000B6                              114+CVTOPTA  EQU   182 DISP TO BYTE WITH CVTNIP BIT  A23669
0000B8                              115+CVTSRCH  EQU   184 CVT SEARCH PTR                  LPA0
0000BC                              116+CVTQLPAQ EQU   188 CVT LPA CHAIN PTR               LPA0
0000D8                              117+CVTTSCE  EQU   216 CVT PTR TO TSCE CHAIN      000D
0000E0                              118+CVTRMS   EQU   224 DISP TO ASR STAT BLK           P4985
0000F4                              119+CVTTSKS  EQU   244 NO. ENTRIES IN TCB ADDR TABLE        I250
0000F5                              120+CVTTAT   EQU   245 ADDR TABLE ENTRY FOR P0              I250
0000F8                              121+CVTSYST  EQU   248 NO. PARTITIONS SPECIFIED AT SYSGEN   I250
                                    122+*** JFCB DISPLACEMENTS                                             000C
000000                              123+JFCBDSNM EQU   0 DATA SET NAME              000C
000034                              124+JFCBTSDM EQU   52 JOB MGMT,DATA MGMT INTFACE 000C
000048                              125+JFCBMASK EQU   72 INTERNAL OPEN RTN SWITCHES 000C
000057                              126+JFCBIND2 EQU   87 INDICATOR BYTE 2           000C
000062                              127+JFCDSORG EQU   98 DATA SET ORGANIZATION      000C
000075                              128+JFCBNVOL EQU   117 NUMBER OF VOLUME SERIALS   000C
000076                              129+JFCBVOLS EQU   118 VOLUME SERIAL NUMBERS      000C
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000098                              130+JFCBPQTY EQU   152 PRIMARY QUANTITY           000C
00009B                              131+JFCBCTRI EQU   155 SPACE PARAMETERS           000C
0000AB                              132+JFCBDRLH EQU   171 AVERAGE DATA BLOCK LENGTH  000C
                                    133+*** DCB DISPLACEMENTS                                              000C
000000                              134+DCBIORMS EQU   0 FOR PNTR TO I/O RMS WORK AREA  19022
00001A                              135+DCBDSORG EQU   26 DATA SET ORGANIZATION      000C
00001C                              136+DCBIOBAD EQU   28 IOB ADDRESS FLD IN DCB     000C
000024                              137+DCBRECFM EQU   36 RECORD FORMAT              000C
000025                              138+DCBEXLST EQU   37 EXIT LIST                  000C
000028                              139+DCBDDNM  EQU   40 NAME OF DD STATEMENT       000C
00002C                              140+QDCBDBWD EQU   44 FLAG BYTE/DEB ADDR          ISER
00002D                              141+QDCBDBAD EQU   45 DEB ADDRESS                 MXMV
000032                              142+DCBMACR  EQU   50 MACRO-INSTRUCTION REFERENCE000C
000030                              143+DCBOFLGS EQU   48 000C
                                    144+*** IOB DISPLACEMENTS                                              000C
000000                              145+IOBFLAG1 EQU   0 FLAG BYTE                  000C
000004                              146+IOBCOMPC EQU   4 IO COMPLETION CODE         000C
000005                              147+IOBECBPT EQU   5 ECB POINTER                000C
000009                              148+IOBCSWAD EQU   9 COMMAND ADDRESS IN LAST CSW (3 BYTES)             000C
00000C                              149+IOBCSWST EQU   12 STATUS FEILD IN LAST CSW (2 BYTES)               000C
00000E                              150+IOBCSWBT EQU   14 BYTE COUNT IN LAST CSW (2 BYTES)                 000C
000011                              151+IOBSTART EQU   17 ADDRESS OF CHANNEL PROGRAM 000C
000015                              152+IOBDCBPT EQU   21 ADDRESS OF DCB             000C
000020                              153+IOBSEEK  EQU   32 EXTENT AND SEEK ADDRESS    000C
                                    154+*** TIOT DISPLACEMENTS                                             000C
000018                              155+TIOELNGH EQU   24 LENGTH OF DD ENTRY         000C
00001C                              156+TIOEDDNM EQU   28 DD NAME                    000C
000028                              157+TIOESTTB EQU   40 STATUS B                   000C
000029                              158+TIOEFSRT EQU   41 POINTER TO UCB             000C
                                    159+*** DEB DISPLACEMENTS                                              000C
000001                              160+QDEBTBAD EQU   1 TCB ADDRESS                 MXMV
000019                              161+QDEBDBAD EQU   25 DCB ADDRESS                 MXMV
00001C                              162+QDEBXSCL EQU   28 EXTENT SCALE                MXMV
00001D                              163+QDEBAPAD EQU   29 APPENDAGE VECTOR TABLE ADDR MXMV
000026                              164+QDEBSTCC EQU   38 BEGINNING CC OF EXTENT           MXMV
000028                              165+QDEBSTHH EQU   40 BEGINNING HH OF EXTENT      MXMV
00002A                              166+QDEBNDCC EQU   42 ENDING CC OF EXTENT              MXMV
00002C                              167+QDEBNDHH EQU   44 ENDING HH OF EXTENT
00002E                              168+QDEBNTRK EQU   46 NO OF TRACKS IN EXTENT      MXMV
                                    169+*** PQE DISPLACEMENTS                                              000C
000008                              170+PQEFPQE  EQU   8 POINTER TO NEXT PQE        000C
00000C                              171+PQEBPQE  EQU   12 PTR TO PREVIOUS PQE
000010                              172+PQETCB   EQU   16 POINTER TO OWNING TCB      000E
000014                              173+PQESIZE  EQU   20 REGION SIZE                000C
000018                              174+PQEREGN  EQU   24 POINTER TO REGION          000E
00001D                              175+PQEHIERY EQU   29 HIERARCHY FIELD IN PQE
000020                              176+PQELNTH  EQU   32 TOTAL SIZE OF PQE          000E
                                    177+*** TSCE DISPLACEMENTS                                             000D
000000                              178+TSCEPRTY EQU   0 TSCE DISPATCH PRTY         000D
00000C                              179+TSCEFLAG EQU   12 TSCE FLAG BYTE             000D
00000C                              180+TSCEMSEC EQU   12 TIME SLICE LENGTH          000D
                                    181+*** SPQE DISPLACEMENTS                                             MCS0
000000                              182+SPQEFLAG EQU   0 FLAG BYTE                       MCS0
000020                              183+SPQEOWNR EQU   X'20' - SUBPOOL OWNED            MCS0
000080                              184+SPQESHAR EQU   X'80' - SUBPOOL SHARED           MCS0
                                                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000040                              185+SPQELAST EQU   X'40' - LAST SUBPOOL ON CHAIN    MCS0
000000                              186+SPQENXT  EQU   0 WORD CONTAINING SPQE CHAIN PTR  MCS0
000001                              187+SPQEPTR  EQU   1 CHAIN ADDR FOR NEXT SPQE        MCS0
000005                              188+SPQESPTR EQU   5 CHAIN ADDR FOR SHARED SPQE      MCS0
000003                              189+LSPQEPTR EQU   3 SPQE CHAIN FIELD LENGTH         MCS0
000008                              190+LSPQE    EQU   8 SPQE LENGTH                     MCS0
000080                              191+CSPQESP0 EQU   SPQESHAR SPQEFLAG FOR COMM TASK SP0      MCS0
000020                              192+MSPQESP0 EQU   SPQEOWNR SPQEFLAG FOR SCHEDULER SP0      MCS0
                                    193+*** DUMMY PQE, FQE, DQE, &FBQE DISPLACEMENTS                       000E
000008                              194+DUMLNTH  EQU   8 ACTUAL SIZE OF DUMMY PQE   000E
000008                              195+FQESIZE  EQU   8 TOTAL SIZE OF FQE           000E
000010                              196+DQELNTH  EQU   16 TOTAL SIZE OF DQE          000E
000008                              197+FBQESIZE EQU   8 FREE CORE IN REGION        000E
000004                              198+GOVRDQE  EQU   4 WORD IN GOVRFLB W/ DQE PTR  000E
000018                              199+NIPSQSBD EQU   24 *                     7TH WORD IN GOVRFLB      A36186
                                    200+*** CSW DISPLACEMENTS                                              MCS0
000010                              201+CSWBUSY  EQU   X'10' TESTS  BUSY BIT IN CSW        A29418
000020                              202+UCBDIRAC EQU   X'20' DIRECT ACCESS DEVICE CLASS    A29418
000044                              203+CSWSTAT  EQU   68 CSW STATUS - FIRST BYTE    MCS0
000045                              204+CSWCHAN  EQU   69 .                     CSW STATUS BYTE 2       PTM2962
000004                              205+CSWCCC   EQU   4 .                      CHANNEL CONTROL CHECK   PTM2962
000002                              206+CSWICC   EQU   2 .                      INTERFACE CONTROL CHECK PTM2962
000001                              207+CSWUE    EQU   1 .                      UNIT EXCEPTION          PTM4279
000002                              208+UNITCHEK EQU   X'02' UNIT CHECK               MCS0
000030                              209+CUBSYEND EQU   X'30' C.U. BUSY OR C.U. END    MCS0
000050                              210+CUB      EQU   X'50' .                  CONTROL UNIT BUSY        A39925
000020                              211+CUE      EQU   X'20' .                  CONTROL UNIT END         A36472
000046                              212+CSWRESID EQU   70 POINTER TO RESIDUAL COUNT FIELD  MCS0
00007F                              213+OFFLINE  EQU   X'7F' USED TO NI A DEVICE OFFLINE     I267
                                    214+*
                                    215+*** MISCELLANEOUS EQUATES
                                    216+*
000018                              217+DDRTCB   EQU   24 .                ADDRESS OF DDR TCB            A39962
000032                              218+DDRRQE   EQU   50 .                ADDRESS OF DDR RQE            A39962
00002D                              219+DDREBCDC EQU   45 3 BYTE AREA FOR EBCDIC ADDR    19022
00002E                              220+DDRUCBAD EQU   46 UCB ADDR OF ALT SYSRES         19022
000080                              221+BMPXMODE EQU   X'80' SETS BLK MPX MODE IN CON REG 0 20065
00000E                              222+DETTR    EQU   14
00001B                              223+DELNTH   EQU   27
000018                              224+IEASQSGN EQU   24
000006                              225+IEAMSLNT EQU   6 MAST SCHED REGION SIZE          4454
000044                              226+IEAMIN   EQU   68
00000A                              227+IEAQBF   EQU   10
000050                              228+HCPY80   EQU   80 SIZE OF REPLY AREA              MCS0
00005D                              229+HCPSCOMP EQU   X'5D' DELIMINATOR CONSTANT            MCS0
00005B                              230+TPENDBLK EQU   X'5B' END OF BLOCK-CARR RET CHAR       MCS0
00005D                              231+TPBXSPAC EQU   X'5D' BACKSPACE CHARACTER              MCS0
000004                              232+CCWFLAGS EQU   4 CCW FLAGS                   0191
000040                              233+CCWCHAIN EQU   X'40' - CHAIN TO NEXT CCW   0191
0000BF                              234+CCWNCHAN EQU   255-CCWCHAIN - SUPPRESS CHAINING   0191
00007C                              235+N124     EQU   124 MCS0
000098                              236+SVPRXLN  EQU   117+255-220
000048                              237+CAW      EQU   72 PERMANENT LOCATION - CAW    000E
000004                              238+LCAW     EQU   4 CAW LENGTH                      MCS0
000070                              239+MCHKNPSW EQU   112 ADDR OF MC NEW PSW          000E
                                                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000078                              240+IONWPSW  EQU   120 ADDR OF I/O NEW PSW             0191
000008                              241+LPSW     EQU   8 PSW LENGTH                 0191
00003A                              242+IODEVINT EQU   X'3A' DEVICE ADDR - LAST I/O INT 0191
000174                              243+NIPLCPTR EQU   X'174' NIP'S STARTING ADDRESS IN LOW CORMCS0
000000                              244+QZERO    EQU   0 000E
000048                              245+CVTDAR   EQU   72 DAR CB PTR                  DAR
000022                              246+UCBVSTAT EQU   34
00000F                              247+NUMEXT   EQU   15 # EXT POSITION IN DSCB      DAR
00003F                              248+BEGADR   EQU   63 BEG DS ADDR POSITION DSCB   DAR
0000A8                              249+CBALNGTH EQU   168 LENGTH OF CB'S & CCW'S FOR DAR   DAR
000068                              250+PGNEWPSW EQU   104 PGM CHK NEW PSW LO CORE LOC.   20052
000028                              251+PGOLDPSW EQU   40 PGM NEW PSW LO CORE LOCATION   20052
000001                              252+PSWOPRIC EQU   X'01' OPERATION INERPT MASK FOR PSW  20052
000009                              253+PRTR3211 EQU   X'09' UCB DEVICE ID FOR 3211 PRTR    20202
000050                              254+SMB      EQU   X'50' BH 58099
000000                              255+Q0       EQU   0
000001                              256+Q1       EQU   1
000002                              257+Q2       EQU   2
000003                              258+Q3       EQU   3
000004                              259+Q4       EQU   4
000005                              260+Q5       EQU   5
000006                              261+Q6       EQU   6
000007                              262+Q7       EQU   7
000008                              263+Q8       EQU   8
000009                              264+Q9       EQU   9 MCS0
00000A                              265+Q10      EQU   10 MCS0
00000B                              266+Q11      EQU   11 21016
00000C                              267+Q12      EQU   12 MCS0
00000E                              268+Q14      EQU   14 MP65
00000F                              269+Q15      EQU   15 MCS0
000011                              270+Q17      EQU   17 MCS0
000012                              271+Q18      EQU   18
000010                              272+Q16      EQU   16
000013                              273+Q19      EQU   19 MCS0
000014                              274+Q20      EQU   20 MCS0
000015                              275+Q21      EQU   21
000019                              276+Q25      EQU   25
000018                              277+Q24      EQU   24
00001C                              278+Q28      EQU   28
000030                              279+Q30      EQU   X'30' NUMBER                        S21003
000020                              280+Q32      EQU   32 I267
000028                              281+Q40      EQU   40 P4831
000048                              282+Q48      EQU   X'48' NUMBER                        S21003
000050                              283+Q50      EQU   X'50' NUMBER                        S21003
00003D                              284+Q61      EQU   61
000046                              285+Q70      EQU   70 MCS0
000047                              286+Q71      EQU   71 NUMBER                        S21003
000048                              287+Q72      EQU   72
00004B                              288+Q75      EQU   75 MH  M1517
00004D                              289+Q77      EQU   77 NUMBER                        S21003
000002                              290+TQ50     EQU   X'02' 2250 DEVICE                MH  M1517
000003                              291+TQ60     EQU   X'03' 2260 DEVICE                MH  M1517
000007                              292+TQ85     EQU   X'07' M85 DEVICE                 MH  M1517
000050                              293+T50      EQU   X'50' 2250 DEVICE TYPE              S21003
000060                              294+T60      EQU   X'60' 2260 DEVICE TYPE              S21003
                                                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000077                              295+T77      EQU   X'77' 3277 DEVICE TYPE           MH  M1517
000085                              296+T85      EQU   X'85' M85  DEVICE TYPE              S21003
000001                              297+DCMMSGST EQU   1 S21003
000040                              298+DCMMSGIN EQU   64 S21003
000008                              299+DCMMSGAD EQU   8 S21003
000050                              300+Q80      EQU   80 MCS0
0000FF                              301+Q255     EQU   255 MCS0
00000D                              302+Q13      EQU   13
00002C                              303+Q44      EQU   44 DAR
000036                              304+Q54      EQU   54 DAR
000038                              305+Q56      EQU   56 DAR
00003B                              306+Q59      EQU   59 MCS0
000060                              307+Q96      EQU   96 DAR
000074                              308+Q116     EQU   116 A31235
000078                              309+Q120     EQU   120
0000F0                              310+Q240     EQU   240
000087                              311+Q135     EQU   135 MCS0
00008C                              312+Q140     EQU   140 MCS0
0007FF                              313+Q2047    EQU   2047 2K ROUNDING VALUE          2608
000100                              314+Q256     EQU   256 I250
000000                              315+X00      EQU   X'00'
000001                              316+X01      EQU   X'01'
000002                              317+X02      EQU   X'02' MP65
000003                              318+X03      EQU   X'03'
000004                              319+X04      EQU   X'04' MP65
000006                              320+X06      EQU   X'06' 20201
000007                              321+X07      EQU   X'07'
000010                              322+X10      EQU   X'10' MP65
00001E                              323+X1E      EQU   X'1E' MP65
000020                              324+X20      EQU   X'20'
000038                              325+X38      EQU   X'38' MP65
00003C                              326+X3C      EQU   X'3C' MP65
000040                              327+X40      EQU   X'40'
000009                              328+X9       EQU   X'9'
000050                              329+X50      EQU   X'50'
000008                              330+X08      EQU   X'08'
000080                              331+X80      EQU   X'80'
000094                              332+X94      EQU   X'94'
000082                              333+X82      EQU   X'82'
000060                              334+X60      EQU   X'60'
000065                              335+X65      EQU   X'65' 19032
000061                              336+X61      EQU   X'61' I267
000070                              337+X70      EQU   X'70' MP65
00008C                              338+X8C      EQU   X'8C' MP65
000095                              339+X95      EQU   X'95' MP65
000097                              340+X97      EQU   X'97' MP65
000018                              341+X18      EQU   X'18'
0000A6                              342+XA6      EQU   X'A6'
0000A4                              343+XA4      EQU   X'A4'
0000E0                              344+XE0      EQU   X'E0'
0000C2                              345+XC2      EQU   X'C2'
000005                              346+X05      EQU   X'05' DAR
00000C                              347+X0C      EQU   X'0C' DAR
00001D                              348+X1D      EQU   X'1D'
000024                              349+X24      EQU   X'24'
                                                                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000030                              350+X30      EQU   X'30'
000031                              351+X31      EQU   X'31' DAR
00003A                              352+X3A      EQU   X'3A'
000041                              353+X41      EQU   X'41' DAR
000042                              354+X42      EQU   X'42'
000068                              355+X68      EQU   X'68' DAR
000081                              356+X81      EQU   X'81' DAR
000088                              357+X88      EQU   X'88' DAR
000089                              358+X89      EQU   X'89'
0000B1                              359+XB1      EQU   X'B1'
0000CF                              360+XCF      EQU   X'CF'
0000F3                              361+XF3      EQU   X'F3'
00001A                              362+X1A      EQU   X'1A' 20048
0000C1                              363+XC1      EQU   X'C1'
00006B                              364+X6B      EQU   X'6B' MCS0
00007D                              365+X7D      EQU   X'7D' MCS0
00007F                              366+X7F      EQU   X'7F'
00000F                              367+X0F      EQU   X'0F'
0000F0                              368+XF0      EQU   X'F0' MCS0
0000FD                              369+XFD      EQU   X'FD' I267
0000FF                              370+XFF      EQU   X'FF'
000010                              371+CVTPTR   EQU   X'10'
000093                              372+X93      EQU   X'93' 48896
0000C0                              373+XC0      EQU   X'C0' MP65
0000C3                              374+XC3      EQU   X'C3' MP65
0000C4                              375+XC4      EQU   X'C4' MP65
0000C5                              376+XC5      EQU   X'C5' MP65
0000C6                              377+XC6      EQU   X'C6' MP65
0000C7                              378+XC7      EQU   X'C7' MP65
0007FF                              379+X7FF     EQU   X'7FF' 30502
                                                                                                               PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              382+         USING DEBDSECT,R2 MXMV
                                    383+***
                                    384+**  THE CVT POINTER AT LOCATION X'10' IS SET                       000E
                                    385+**  TRACE TABLE PNTRS ARE INITIALIZED TO DOUBLE-DOUBLE WRD BOUNDARIES
                                    386+***


000000                              388+IEAPAD   DS    0D
000000 05B0                         389+IEANIP4  BALR  11,0
000002                              390+         USING *,11 000C
005241                              391+         USING IEACONBS,R12,R13 MCS0
000002 58C0 B00E            00010   392+IEASTART L     12,IEABSE2
000006 58D0 B012            00014   393+         L     13,IEABSE3
00000A 47F0 B016            00018   394+         B     IEASTRTR BRANCH AROUND BASE ADDR
00000E 0000
000010 00005241                     395+IEABSE2  DC    A(IEACONBS) BASE REGS FOR SUB-ROUTINE        MCS0
000014 00006241                     396+IEABSE3  DC    A(IEACONBS+4096) INTERFACE AND CONSTANTS          MCS0
000018 5880 C63B            0587C   397+IEASTRTR L     8,IEACOMTB R 8 = PNTR TO THE CVT
00001C 5080 0010            00010   398+         ST    8,16 SET PNTR TO CVT IN LOC X'10'
000020 9610 80B6      000B6         399+         OI    CVTOPTA(R8),CVTNIP SET NIP PROCESSING BIT        A23669
000024 5060 D263            064A4   400+         ST    6,IEACORSZ SAVE SIZE OF STORAGE
000028 40A0 D2D5            06516   401+         STH   10,IEAIPL SAVE ADDR OF IPL-ED DEVICE
00002C 5830 0054            00054   402+         L     3,X'54' R 3 = PNTR TO TRACE TABLE PNTRS
000030 5843 0000            00000   403+         L     4,0(3) R 4 = PNTR TO CURRENT TRACE ENTRY
000034 4144 0020            00020   404+         LA    4,32(4) R 4 = PNTR TO CURRENT TRACE ENTRY + 32
000038 5440 D53B            0677C   405+         N     4,TRAMASK R 4 = PNTR ROUNDED TO DBL-DBL BOUNDARY
00003C 5043 0000            00000   406+         ST    4,0(3) REPLACE CURRENT PNTR WITH ROUNDED PNTR
000040 5043 0004            00004   407+         ST    4,4(3) REPLACE START PNTR WITH ROUNDED PNTR
000044 5843 0008            00008   408+         L     4,8(3) R 4 = PNTR TO END OF TRACE AREA
000048 5440 D53B            0677C   409+         N     4,TRAMASK R 4 = PNTR ROUNDED TO DBL DBL BOUNDARY
00004C 5043 0008            00008   410+         ST    4,8(3) REPLACE END OF AREA PNTR WITH ROUNDED
                                                                                                               PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    412+*****                                                       ***** 20052
                                    413+**   THIS ROUTINE EXECUTES AN EXTENDED PRECISION INSTRUCTION.  ** 20052
                                    414+*  ITS FUNCTION IS TO DETERMINE THE SIMULATION PACKAGE NEEDED.  * 20052
                                    415+*  AN OPERATION P.C INDICATES NO FLOATING POINT-NIP CONTINUES.  * 20052
                                    416+*  NO P.C. OR ONE OTHER THEN OPERATION SETS THE 'DIVIDE ONLY'   * 20052
                                    417+** BIT IN THE CVT.                                             ** 20052
                                    418+*****                                                       ***** 20052


000050 5810 006C            0006C   420+         L     R1,PGNEWPSW+Q4 SAVE PGM NEW ADDRESS           20052
000054 D202 006D B063 0006D 00065   421+         MVC   PGNEWPSW+Q5(Q3),EPFPRTAC+Q1 SET NEW PGM CK ADDRESS 20052
00005A 3500                         422+         DC    X'3500' EXEC EXT PREC OPERATION        20052
00005C 9601 80B6      000B6         423+EPFPSET  OI    CVTOPTA(Q8),CVTEPFP FALL THRU IF IN HARDWARE AND  20052
000060 47F0 B06E            00070   424+         B     EPFPEXIT SET CVT. EXIT                20052
000064 00000068                     425+EPFPRTAC DC    A(EPFPRET) AC TO RET POINT ON PGM CHK     20052
000068 9501 002B      0002B         426+EPFPRET  CLI   PGOLDPSW+Q3,PSWOPRIC WAS PC FOR OPERATION         20052
00006C 4770 B05A            0005C   427+         BNE   EPFPSET NO-EPFP EXISTS INDIC DVIDE PKG 20052
000070 5010 006C            0006C   428+EPFPEXIT ST    R1,PGNEWPSW+Q4 RESTORE PGM NEW PSW AND EXIT   20052
000074 D707 0028 0028 00028 00028   429+         XC    PGOLDPSW(Q8),PGOLDPSW REMOVE TRACE OF ERROR
                                                                                                               PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    431+**  THE HIGH STORAGE ADDRESS IS PLACED IN THE CVT                  000E
00007A 0660                         432+         BCTR  R6,0 DECREMENT CORE SIZE BY ONE  000E
00007C 5068 00A4            000A4   433+         ST    R6,CVTMZ00(R8) SET PNTR TO HIGH ADDR BYTE IN CVT 000E


                                    435+***
                                    436+**  DUMMY SPACE IS ADDED TO THE END OF THE NUCLEUS. SOME OR ALL OF 000E
                                    437+**  THIS SPACE WILL BE USED BY NIP FOR ADDITIONS TO THE NUCLEUS -  000E
                                    438+**  THE UNUSED PORTION WILL BE RETURNED TO FREE CORE               000E
                                    439+***

000080 4830 B090            00092   441+         LH    R3,NUCSPACE R3 = DUMMY NUCLEUS SPACE   000E
000084 5070 D247            06488   442+         ST    R7,IEANUCND SAVE PNTR TO ACTUAL NUC END000E
000088 1A73                         443+         AR    R7,R3 INCREMENT NUCLEUS END ADDR 000E
00008A 5070 D21B            0645C   444+         ST    R7,IEADMY SAVE PNTR TO DUMMY NUC END 000E
00008E 47F0 B092            00094   445+         B     NUCFIXED CONTINUE MAINLINE NIP      000E
000092 28A8                         446+NUCSPACE DC    X'28A8' DUMMY SPACE W/ SER OR W/ CCH   19032
000094                              447+NUCFIXED EQU   * 000E
                                                                                                               PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    449+***                                                                MCS0
                                    450+**  CONSOLE SEARCH ROUTINE - NIP SEARCHES THE UCM TO FIND AN       MCS0
                                    451+**  AVAILABLE CONSOLE FOR ITS USE. NIP BEGINS THE CONSOLE SEARCH   MCS0
                                    452+**  WITH THAT UNIT SYSGENED AS THE MASTER CONSOLE. IF THE MASTER   MCS0
                                    453+**  IS UNAVAILABLE, NIP WILL SEARCH FIRST THE MASTER'S ALTERNATE   MCS0
                                    454+**  CONSOLE CHAIN AND THEN ANY REMAINING UCM ENTRIES UNTIL AN      MCS0
                                    455+**  AVAILABLE CONSOLE IS FOUND. IF NO CONSOLE IS AVAILABLE, NIP    MCS0
                                    456+**  WILL PLACE THE SYSTEM IN A WAIT STATE WITH AN ERROR CODE OF    MCS0
                                    457+**  7.                                                             MCS0
                                    458+**  IF AN AVAILABLE CONSOLE IS FOUND AND THAT CONSOLE IS NOT       MCS0
                                    459+**  A GRAPHICS DEVICE, NIP WILL CONTINUE THE SEARCH TO DETERMINE   MCS0
                                    460+**  WHETHER A SECOND CONSOLE IS AVAILABLE.  IF A SECOND AVAILABLE  MCS0
                                    461+**  CONSOLE IS FOUND OR IF THE PRIMARY CONSOLE IS A GRAPHICS       MCS0
                                    462+**  DEVICE, NIP WILL SET AN INDICATOR IN THE UCM THAT A SYSTEM     MCS0
                                    463+**  HARDCOPY DEVICE IS REQUIRED.                                   MCS0
                                    464+**  THE UCB FOR EACH CONSOLE DEVICE WILL BE SET TO INDICATE THE    MCS0
                                    465+**  ONLINE/OFFLINE STATUS OF THE CONSOLE                           MCS0
                                    466+***                                                                MCS0
                                    467+* REGISTER EQUATES - CONSOLE SEARCH                                MCS0
000001                              468+CNR1     EQU   1 WORK REG - USED TO SAVE DATA    MCS0
000002                              469+CNR2     EQU   2 WORK REG - UCB ADDR OF CONSOLE  MCS0
000003                              470+CNR3     EQU   3 LINK REG - CONSOLE SUBROUTINES  MCS0
000004                              471+CNR4     EQU   4 PARM REG - EXTERNAL SUBROUTINES MCS0
000005                              472+CNR5     EQU   5 LINK REG - EXTERNAL SUBROUTINES MCS0
000006                              473+CNR6     EQU   6 PARM REG - EXTERNAL SUBROUTINES MCS0
000007                              474+CNR7     EQU   7 BASE REG - UCM PREFIX           MCS0
000008                              475+CNR8     EQU   8 BASE REG - UCM BASE             MCS0
000009                              476+CNR9     EQU   9 BASE REG - UCM ENTRY (INDEXED)  MCS0
00000A                              477+CNR10    EQU   10 WORK REG - UNIT ADDR OF CONSOLE MCS0


000000                              479+         USING MCSUCM,CNR7 MCS0
000000                              480+         USING UCM,CNR8 MCS0
000530                              481+         USING UCMLIST,CNR9 MCS0
000094 5880 C647            05888   482+IEACONS1 L     CNR8,ADCVUCM R8 = BASE FOR UCM PREFIX/BASE   MCS0
000098 1878                         483+         LR    CNR7,CNR8 GET UCM ADDRESS AND             MCS0
00009A 4110 0004            00004   484+         LA    CNR1,Q4 PICK UP UCM PREFIX BASE       MCS0
00009E 1B71                         485+         SR    CNR7,CNR1 FROM UCM - 4                MCS0
0000A0 5877 0000            00000   486+         L     CNR7,Q0(CNR7) R7 = BASE FOR UCM PREFIX        MCS0
0000A4 5890 7000            00000   487+         L     CNR9,UCMMCENT R9 = BASE FOR UCM MASTER ENTRY  MCS0
0000A8 5090 D257            06498   488+         ST    CNR9,IEAREG TEMP SAVE MASTER UCM ENTRY ADDR MCS0
0000AC 947F 902A      0055A         489+         NI    UCMDISP,Q255-UCMDISPA RESET MASTER CONSOLE FLAG   MCS0
0000B0 94EF 9019      00549         490+         NI    UCMATR,Q255-UCMUF RESET ENTRY ACTIVE FLAG    MCS0
0000B4 9601 B324      00326         491+         OI    CONSWIT,MCONSWIT SET MASTER CONSOLE CHAIN ACTIVE MCS0

0000B8 D202 CFF7 900C 06238 0053C   493+CONUNIT  MVC   IEABUFER(Q3),UCMUCB MOVE UNIT NAME TO WORKAREA  MCS0
0000BE 4140 0003            00003   494+         LA    CNR4,Q3 R4 = BYTES TO CONVERT           MCS0
0000C2 4160 CFF7            06238   495+         LA    CNR6,IEABUFER R6 = WORK AREA ADDR FOR CONVERT MCS0
0000C6 4550 C207            05448   496+         BAL   CNR5,IEASCONV LINK TO CONVERT NAME TO ADDRESS MCS0
0000CA F212 D251 CFF7 06492 06238   497+         PACK  ALIGN2BY(Q2),IEABUFER(Q3) PACK FOR UNIT ADDR    MCS0
0000D0 58A0 D24F            06490   498+         L     CNR10,IEALIGN R10 = SIGNED UNIT ADDR       BH 61215
0000D4 88A0 0004            00004   499+         SRL   CNR10,Q4 R10 = UNIT ADDR OF CONSOLE      MCS0
0000D8 4550 C0BD            052FE   500+         BAL   CNR5,IEAUCBFN LINK TO GET UCB ADDR FOR UNIT   MCS0
0000DC 4840 D2D3            06514   501+         LH    CNR4,IEAUCBHL R4 = UCB ADDR FOR CONSOLE       MCS0
0000E0 947F 4003      00003         502+         NI    UCBESTAT(CNR4),X'7F' MARK CONSOLE OFFLINE IN ADVANCE*ASP
                                                                                                               PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000E4 9504 4011      00011         503+         CLI   UCBTYP+1(CNR4),4 -  IS THIS A CTC DEVICE            *ASP
0000E8 4770 B0F8            000FA   504+         BNE   NOTCTC -            NO,BRANCH                       *ASP
0000EC 910C B324      00326         505+         TM    CONSWIT,NMCNSWIT -  IS THIS STILL MASTER CONS SEARCH*ASP
0000F0 4750 B0FC            000FE   506+         BC    5,NOTMASTR -        NO,SKIP TIO OF CTC,LEAVE OFFLINE*ASP
0000F4 58F0 B11A            0011C   507+         L     15,CTCINITM -       LOAD POINTER TO CTC INIT ROUTINE*ASP
0000F8 055F                         508+         BALR  CNR5,15 -           GO TO CTC INIT ROUTINE          *ASP
0000FA                              509+NOTCTC   EQU   * -                                                 *ASP
0000FA 4550 C225            05466   510+         BAL   CNR5,IEASCTIO LINK TO TEST AVAILABILITY       MCS0
0000FE                              511+NOTMASTR EQU   * *ASP
0000FE 9180 4003      00003         512+         TM    UCBESTAT(CNR4),UCBONLIN TEST FOR UNIT AVAILABLE    MCS0
000102 47E0 B1A0            001A2   513+         BNO   CONINDEX NO, TRY NEXT ENTRY              MCS0
000106 D503 9038 D28F 00568 064D0   514+         CLC   UCMCOMPC(Q4),IEAZERO TEST FOR COMPOSITE CONSOLE   MCS0
00010C 4770 B200            00202   515+         BNE   CONTCOMP YES, BRANCH TO TEST BOTH UNITS  MCS0
000110 9108 B324      00326         516+         TM    CONSWIT,ACONSWIT TEST FOR AVAILABILITY TEST ONLY MCS0
000114 47E0 B11E            00120   517+         BNO   CONNTAVL NO, BRANCH TO TEST HC OR MASTER MCS0
000118 47F0 B172            00174   518+         B     CONACINX BRANCH TO INITIALIZE CONSOLE    MCS0
00011C 00000000                     519+CTCINITM DC    V(CTCMCS) *ASP
000120                              520+CONNTAVL EQU   * MCS0
000120 9104 B324      00326         521+         TM    CONSWIT,HCPYSWIT TEST FOR HARDCOPY SEARCH ACTIVE MCS0
000124 4710 B152            00154   522+         BO    CONHCREQ YES, BRANCH TO SET HARDCOPY REQ MCS0
000128 9110 902A      0055A         523+         TM    UCMDISP,UCMDISPD TEST FOR OUTPUT ONLY CONSOLE    MCS0
00012C 4710 B162            00164   524+         BO    CONMSAVL YES, BRANCH TO ONLY SET AVIL    MCS0
                                    525+* AN AVAILABLE MASTER CONSOLE HAS BEEN FOUND - SET THE UCM         MCS0
000130 40A0 D2DF            06520   526+         STH   CNR10,IEAUNIT SAVE OUTPUT UNIT FOR NIP I/O    MCS0
000134 40A0 D2E1            06522   527+         STH   CNR10,IEAUNIT+2 SAVE INPUT UNIT FOR NIP I/O     MCS0
000138 4530 B274            00276   528+         BAL   CNR3,CONSUCB LINK TO INITIALIZE CONSOLE UCB  MCS0
00013C 4530 B2EE            002F0   529+         BAL   CNR3,CONSMCON LINK TO INITIALIZE CONSOLE UCM  MCS0
000140                              530+CONUCOMP EQU   * MCS0
000140 910C D527      06768         531+         TM    IEASWITA,GRPHSWIT TEST FOR PRIMARY GRAPH CONSOLE  MCS0
000144 4770 B156            00158   532+         BNZ   CONHCGRQ YES, BRANCH TO SET HC REQUIRED  MCS0
000148 9604 B324      00326         533+         OI    CONSWIT,HCPYSWIT SET HARDCOPY SEARCH ACTIVE SWIT MCS0
00014C 94BF 7054      00054         534+         NI    UCMSFLGS,Q255-UCMSYSB RESET HARDCOPY REQ FLAG    MCS0
000150 47F0 B1A0            001A2   535+         B     CONINDEX BRANCH TO CONTINUE SEARCH       MCS0
000154 4530 B274            00276   536+CONHCREQ BAL   CNR3,CONSUCB LINK TO SET ACTIVE CONSOLE UCB  MCS0
000158 9640 7054      00054         537+CONHCGRQ OI    UCMSFLGS,UCMSYSB SET HARDCOPY REQUIRED           MCS0
00015C 9608 B324      00326         538+         OI    CONSWIT,ACONSWIT SET AVAILABILITY TEST ONLY SWIT MCS0
000160 47F0 B1A0            001A2   539+         B     CONINDEX BRANCH TO TEST NEXT UCM ENTRY   MCS0
000164 9608 B324      00326         540+CONMSAVL OI    CONSWIT,ACONSWIT SET AVAILABILITY ONLY SWITCH    MCS0
000168 4530 B274            00276   541+         BAL   CNR3,CONSUCB LINK TO INITIALIZE CONSOLE UCB  MCS0
00016C 94F7 B324      00326         542+         NI    CONSWIT,Q255-ACONSWIT RESET SUBRTN SWITCH        MCS0
000170 47F0 B1A0            001A2   543+         B     CONINDEX BRANCH TO TEST NEXT ENTRY       MCS0
000174 4530 B274            00276   544+CONACINX BAL   CNR3,CONSUCB LINK TO SET ACTIVE CONSOLE UCB  MCS0
000178 47F0 B1A0            001A2   545+         B     CONINDEX BRANCH TO CONTINUE TESTING      MCS0
00017C 5890 D257            06498   546+CONHCRES L     CNR9,IEAREG R9 = UCM ENTRY - SYSGEN MASTER  MCS0
                                    547+* RESET TEMPORARY UCM FLAGS SET BY NIP                             MCS0
000180 9200 903E      0056E         548+CONRESET MVI   UCMXOR,Q0 RESET TEMPORARY FLAG            MCS0
000184 5890 902C            0055C   549+         L     CNR9,UCMALTEN R9 = NEXT UCM NTRY ON ALT CHAIN MCS0
000188 1299                         550+         LTR   CNR9,CNR9 TEST FOR END OF CHAIN           MCS0
00018A 4780 B32A            0032C   551+         BZ    CONEXIT YES, BRANCH TO EXIT             MCS0
00018E 91FF 903E      0056E         552+         TM    UCMXOR,Q255 TEST FOR END OF CHAIN           MCS0
000192 4780 B198            0019A   553+         BZ    FNLRESET YES, BRANCH TO EXIT         BH 60889
000196 47F0 B17E            00180   554+         B     CONRESET BRANCH TO CONTINUE RESET        MCS0


00019A                              556+FNLRESET EQU   * BH 60889
                                                                                                               PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00019A 9200 903E      0056E         557+         MVI   UCMXOR,Q0 RESET TEMP FLAG              BH 60889
00019E 47F0 B32A            0032C   558+         B     CONEXIT BRANCH TO EXIT               BH 60889
0001A2 9102 B324      00326         559+CONINDEX TM    CONSWIT,COMPSWIT TEST FOR 2NDARY COMPOSITE TEST  MCS0
0001A6 47E0 B1AE            001B0   560+         BNO   CONNCMPX NO, BRANCH TO TEST SEARCH TYPE  MCS0
0001AA 94FD B324      00326         561+         NI    CONSWIT,Q255-COMPSWIT RESET COMPOSITE SWITCH     MCS0
0001AE 1891                         562+         LR    CNR9,CNR1 RESTORE PRIMARY UCM ENTRY ADDR  MCS0
0001B0 9101 B324      00326         563+CONNCMPX TM    CONSWIT,MCONSWIT TEST FOR ALT CHAIN SEARCH       MCS0
0001B4 4710 B1DE            001E0   564+         BO    CONCHAIN YES, BRANCH TO CONTINUE CHAIN   MCS0
0001B8 5A90 804C            0004C   565+CONSZINX A     CNR9,UCMVEZ INDEX TO NEXT BY ENTRY SIZE     MCS0
0001BC 5990 8050            00050   566+         C     CNR9,UCMVEL TEST FOR END OF UCM ENTRIES     MCS0
0001C0 47D0 B1CE            001D0   567+         BNH   CONNTEST NO, BRANCH TO TEST ENTRY        MCS0
0001C4 910C B324      00326         568+         TM    CONSWIT,NMCNSWIT TEST FOR NON-MASTER SEARCH      MCS0
0001C8 4770 B17A            0017C   569+         BNZ   CONHCRES YES, BRANCH TO RESET UCM FLAGS  MCS0
0001CC 47F0 C021            05262   570+         B     IEAERR7 NO CONSOLE - LOAD X'07' WAIT    MCS0
0001D0 91FF 903E      0056E         571+CONNTEST TM    UCMXOR,Q255 TEST FOR PREVIOUSLY TESTED NTRY MCS0
0001D4 4710 B1B6            001B8   572+         BO    CONSZINX YES, BRANCH TO TEST NEXT ENTRY  MCS0
0001D8 9601 B324      00326         573+         OI    CONSWIT,MCONSWIT SET MSTR. CNSLE SWITCH      BH 60888
0001DC 47F0 B0B6            000B8   574+         B     CONUNIT BRANCH TO TEST CONSOLE          MCS0
0001E0 92FF 903E      0056E         575+CONCHAIN MVI   UCMXOR,Q255 SET ENTRY AS PREVIOUSLY TESTED  MCS0
0001E4 5890 902C            0055C   576+         L     CNR9,UCMALTEN R9 = CHAIN PTR TO ALTERNATE     MCS0
0001E8 1299                         577+         LTR   CNR9,CNR9 TEST FOR END OF ALTERNATE CHAIN MCS0
0001EA 4780 B1F4            001F6   578+         BZ    CONCHEND YES, TERMINATE CHAIN SEARCH     MCS0
0001EE 91FF 903E      0056E         579+         TM    UCMXOR,Q255 TEST FOR END OF ALTERNATE CHAIN MCS0
0001F2 47E0 B0B6            000B8   580+         BNO   CONUNIT NO, BRANCH TO TEST CONSOLE      MCS0
0001F6 94FE B324      00326         581+CONCHEND NI    CONSWIT,Q255-MCONSWIT RESET CHAIN SEARCH SWITCH  MCS0
0001FA 5890 8048            00048   582+         L     CNR9,UCMVEA R9 = ADDR OF 1ST UCM ENTRY      MCS0
0001FE 47F0 B1CE            001D0   583+         B     CONNTEST BRANCH TO START INDEX SEARCH    MCS0


000202 910C B324      00326         585+CONTCOMP TM    CONSWIT,NMCNSWIT TEST FOR NON-MASTER SEARCH      MCS0
000206 4770 B21C            0021E   586+         BNZ   CONICOMP YES, BYPASS CONSOLE INIT        MCS0
00020A 95F2 9013      00543         587+         CLI   UCMNAME+Q3,UCMWRITE TEST FOR OUTPUT CONSOLE    MCS0
00020E 4780 B218            0021A   588+         BE    CONOCOMP YES, BRANCH TO PROCESS OUTPUT   MCS0
000212 40A0 D2E1            06522   589+         STH   CNR10,IEAUNIT+2 SAVE INPUT UNIT FOR NIP I/O     MCS0
000216 47F0 B21C            0021E   590+         B     CONICOMP BRANCH TO CONTINUE INIT         MCS0
00021A 40A0 D2DF            06520   591+CONOCOMP STH   CNR10,IEAUNIT SAVE OUTPUT UNIT FOR NIP I/O    MCS0
00021E 9102 B324      00326         592+CONICOMP TM    CONSWIT,COMPSWIT TEST FOR INPUT/OUTPUT COMPLETE  MCS0
000222 4710 B236            00238   593+         BO    CONCOMP YES, BRANCH TO INIT OUTPUT UCB  MCS0
000226 40A0 B326            00328   594+         STH   CNR10,COMPSAVE SAVE UNIT ADDR OF 1ST ENTRY     MCS0
00022A 1819                         595+         LR    CNR1,CNR9 R1 = SAVE FOR PRIMARY UCM ENTRY MCS0
00022C 5890 9038            00568   596+         L     CNR9,UCMCOMPC R9 = BASE FOR SECONDARY ENTRY   MCS0
000230 9602 B324      00326         597+         OI    CONSWIT,COMPSWIT INDICATE OUTPUT CONSOLE TEST    MCS0
000234 47F0 B0B6            000B8   598+         B     CONUNIT BRANCH TO TEST SECONDARY ENTRY  MCS0
000238 910C B324      00326         599+CONCOMP  TM    CONSWIT,NMCNSWIT TEST FOR NON-MASTER SEARCH      MCS0
00023C 4780 B252            00254   600+         BZ    CONNHCRQ NO, BRANCH TO SET ACTIVE MASTER MCS0
000240 4530 B274            00276   601+         BAL   CNR3,CONSUCB LINK TO SET ACTIVE CONSOLE UCB  MCS0
000244 48A0 B326            00328   602+         LH    CNR10,COMPSAVE R10 = UNIT ADDR OF 1ST HALF     MCS0
000248 9104 B324      00326         603+         TM    CONSWIT,HCPYSWIT TEST FOR HARDCOPY SEARCH        MCS0
00024C 4710 B152            00154   604+         BO    CONHCREQ YES, BRANCH TO HARDCOPY INIT    MCS0
000250 47F0 B172            00174   605+         B     CONACINX BRANCH TO INITIALIZE CONSOLE    MCS0
000254 4530 B2EE            002F0   606+CONNHCRQ BAL   CNR3,CONSMCON LINK TO INITIALIZE CONSOLE UCM  MCS0
000258 1891                         607+         LR    CNR9,CNR1 RESTORE PRIMARY UCM ENTRY ADDR  MCS0
00025A 4530 B2EE            002F0   608+         BAL   CNR3,CONSMCON LINK TO INITIALIZE CONSOLE UCM  MCS0
00025E 48A0 D2DF            06520   609+         LH    CNR10,IEAUNIT R10 = OUTPUT UNIT ADDR          MCS0
000262 4530 B274            00276   610+         BAL   CNR3,CONSUCB LINK TO INITIALIZE OUTPUT UCB   MCS0
                                                                                                               PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000266 94FD B324      00326         611+         NI    CONSWIT,Q255-COMPSWIT RESET COMPOSITE SWITCH      MCS0
00026A 48A0 D2E1            06522   612+         LH    CNR10,IEAUNIT+2 R10 = INPUT UNIT ADDR           MCS0
00026E 4530 B274            00276   613+         BAL   CNR3,CONSUCB LINK TO INITIALIZE INPUT UCB    MCS0
000272 47F0 B13E            00140   614+         B     CONUCOMP BRANCH TO CONTINUE CONSOLE INIT MCS0
                                                                                                               PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    616+***                                                                MCS0
                                    617+**  SUBROUTINE TO INITIALIZE NIP CONSOLE I/O LOGIC & CONSOLE UCBS  MCS0
                                    618+***                                                                MCS0

000276 4550 C0BD            052FE   620+CONSUCB  BAL   CNR5,IEAUCBFN LINK TO GET UCB ADDR FOR UNIT   MCS0
00027A 4820 D2D3            06514   621+         LH    CNR2,IEAUCBHL R2 = UCB ADDR FOR CONSOLE       MCS0
00027E 9602 2003      00003         622+         OI    UCBESTAT(CNR2),UCBCONSL SET UCB FOR ACTIVE CONSOLE MCS0
000282 910C B324      00326         623+         TM    CONSWIT,NMCNSWIT TEST FOR NON-MASTER ENTRY       MCS0
000286 4770 B2EC            002EE   624+         BNZ   CONNPOUT YES, BRANCH TO RETURN           MCS0
00028A 9102 B324      00326         625+         TM    CONSWIT,COMPSWIT TEST FOR COMPOSITE OUTPUT UNIT  MCS0
00028E 4710 B2D8            002DA   626+         BO    CONTOUT YES, BRANCH TO TEST OUTPUT UNIT MCS0
                                    627+* TEST INPUT CONSOLE                                               MCS0
000292 9540 2012      00012         628+         CLI   UCBDCLAS(CNR2),DCLASCOM TEST                       MCS0
000296 4770 B2A0            002A2   629+         BNE   CONTGTYP NO, BRANCH TO TEST GRAPHICS     MCS0
00029A 9610 D527      06768         630+         OI    IEASWITA,T274SWIT SET TP SWITCH FOR NIP I/O       MCS0
00029E 47F0 B2AC            002AE   631+         B     CONSTPGR BRANCH TO SET NIP I/O PARM LIST MCS0
0002A2 9510 2012      00012         632+CONTGTYP CLI   UCBDCLAS(CNR2),DCLASGRP TEST FOR GRAPHICS DEVICE   MCS0
0002A6 4770 B2B8            002BA   633+         BNE   CONTURCD NO, BRANCH TO TEST UNIT RECORD  MCS0
0002AA 9608 D527      06768         634+         OI    IEASWITA,G545SWIT SET 5450 SWITCH FOR NIP I/O     MCS0
0002AE 5090 D4F7            06738   635+CONSTPGR ST    CNR9,TPGRCUCM SAVE MASTER CONSOLE UCM ADDR    MCS0
0002B2 4020 D4FD            0673E   636+         STH   CNR2,TPGRCUCB SAVE MASTER CONSOLE UCB ADDR    MCS0
0002B6 47F0 B2EC            002EE   637+         B     CONNPOUT BRANCH TO RETURN                MCS0
0002BA 9508 2012      00012         638+CONTURCD CLI   UCBDCLAS(CNR2),DCLASRCD TEST FOR UNIT RECORD DEV   MCS0
0002BE 4770 B2EC            002EE   639+         BNE   CONNPOUT NO, BRANCH TO RETURN            MCS0
0002C2 9120 2013      00013         640+         TM    UCBUTYPE(R2),X'20' IS READ INQUIRY TYPE CONSOLE    P1707
0002C6 4780 B2D0            002D2   641+         BZ    CONCARD NO-RESET CCW                       P1707
0002CA 91D0 2013      00013         642+         TM    UCBUTYPE(R2),X'D0' IS READ INQUIRY TYPE CONSOLE    P1707
0002CE 4780 B2EC            002EE   643+         BZ    CONNPOUT YES-RETURN                         P1707
0002D2 9202 C79F      059E0         644+CONCARD  MVI   ANSWRCCW,CRDRCCW RESET CCW FOR  NON-INQUIRY      P1707
0002D6 47F0 B2EC            002EE   645+         B     CONNPOUT BRANCH TO RETURN                MCS0
                                    646+* TEST OUTPUT CONSOLE (COMPOSITE CONSOLE ONLY)                     MCS0
0002DA 9508 2013      00013         647+CONTOUT  CLI   UCBUTYPE(CNR2),UTYP1403 TEST FOR 1403 PRINTER      MCS0
0002DE 4780 B2E8            002EA   648+         BE    CONPRNTR YES, BRANCH TO SET NIP I/O SWIT MCS0
0002E2 950A 2013      00013         649+         CLI   UCBUTYPE(CNR2),UTYP1443 TEST FOR 1443 PRINTER      MCS0
0002E6 4770 B2EC            002EE   650+         BNE   CONNPOUT NO, BRANCH TO BYPASS PRNTR SWIT MCS0
0002EA 92FF D514      06755         651+CONPRNTR MVI   PRNTSW,Q255 SET PRINTER SWITCH FOR NIP I/O  MCS0
0002EE 07F3                         652+CONNPOUT BR    CNR3 RETURN TO CALLER                MCS0
                                                                                                               PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    654+***                                                                MCS0
                                    655+**  SUBROUTINE TO INITIALIZE MASTER CONSOLE UCM ENTRY              MCS0
                                    656+***                                                                MCS0

0002F0 9610 9019      00549         658+CONSMCON OI    UCMATR,UCMUF SET UCM ENTRY ACTIVE            MCS0
0002F4 9680 902A      0055A         659+         OI    UCMDISP,UCMDISPA FLAG ENTRY AS MASTER CONSOLE    MCS0
0002F8 5820 D257            06498   660+         L     CNR2,IEAREG R2 = PTR TO SYSGEN-ED MASTER    MCS0
0002FC 9102 B324      00326         661+         TM    CONSWIT,COMPSWIT TEST FOR COMPOSITE CONSOLE      MCS0
000300 47E0 B30A            0030C   662+         BNO   CONMINPT NO, BRANCH TO INPUT INIT        MCS0
000304 95F2 9013      00543         663+         CLI   UCMNAME+Q3,UCMWRITE TEST FOR OUTPUT CONSOLE    MCS0
000308 4780 B31C            0031E   664+         BE    CONMOUPT YES, BRANCH TO OUTPUT INIT      MCS0
00030C 5090 7000            00000   665+CONMINPT ST    CNR9,UCMMCENT RESET MASTER CONSOLE ENTRY ADDR MCS0
000310 D600 9028 2028 00558 00028   666+         OC    UCMAUTH(LUCMAUTH),QUCMAUTH(CNR2) MOVE AUTH TO MASTERMCS0
000316 9102 B324      00326         667+         TM    CONSWIT,COMPSWIT TEST FOR COMPOSITE CONSOLE      MCS0
00031A 4710 B322            00324   668+         BO    CONSMOUT YES, BRANCH TO RETURN           MCS0
00031E D603 9020 2020 00550 00020   669+CONMOUPT OC    UCMRTCD(LUCMRTCD),QUCMRTCD(CNR2) MOVE ROUT TO MASTERMCS0
000324 07F3                         670+CONSMOUT BR    CNR3 RETURN TO CALLER                MCS0


000326 00                           672+CONSWIT  DC    X'00' CONSOLE SEARCH INDICATORS       MCS0
000327 00
000328 0000                         673+COMPSAVE DC    H'0' SAVE FOR COMPOSITE UNIT ADDR    MCS0
000001                              674+MCONSWIT EQU   1 MASTER CONSOLE CHAIN SEARCH     MCS0
000002                              675+COMPSWIT EQU   2 COMPOSITE CONSOLE TESTS         MCS0
000004                              676+HCPYSWIT EQU   4 HARDCOPY REQUIREMENT TESTS      MCS0
000008                              677+ACONSWIT EQU   8 AVAILABILITY ONLY TEST          MCS0
00000C                              678+NMCNSWIT EQU   HCPYSWIT+ACONSWIT NON-MASTER CONSOLE TESTS        MCS0
00032A 0700                         679+         CNOP  Q0,Q4 MCS0
00032C                              680+CONEXIT  EQU   * MCS0
                                                                                                               PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    682+***                                                                1935
                                    683+**  THE TYPE FIELD OF EACH UCB IS CHECKED. IF THE TYPE IS DIRECT ACCESS
                                    684+**  AND THE CORRESPONDING DEVICE IS READY,THE TTR OF THE VTOC AND THE
                                    685+**  VOLUME SERIAL ARE PLACED IN THE UCB. THIS INFORMATION IS ALSO
                                    686+**  PLACED IN NIP'S DIRECT ACCESS DEVICE TABLE FOR LATER USE.
                                    687+***


                                    689+***                                                           ***
                                    690+*        THE FOLLOWING ARE REGISTER EQUATES USED IN THE         * 19022
                                    691+*        INITIALIZATION OF DIRECT ACCESS UCB'S                  * 19022
                                    692+***                                                           *** 19022
000000                              693+ASYMR0   EQU   0 19022
000001                              694+ASYMR1   EQU   1 19022
000002                              695+ASYMR2   EQU   2 19022
000003                              696+ASYMR3   EQU   3 19022
000004                              697+ASYMR4   EQU   4 19022
000005                              698+ASYMR5   EQU   5 19022
000006                              699+ASYMR6   EQU   6 19022
000007                              700+ASYMR7   EQU   7 19022
000008                              701+ASYMR8   EQU   8 19022
000009                              702+ASYMR9   EQU   9 19022
00000A                              703+ASYMR10  EQU   10 19022
00000E                              704+ASYMR14  EQU   14 19022
00000F                              705+ASYMR15  EQU   15 19022


                                    707+***
                                    708+**  DIRECT ACCESS UCB INITIALIZATION
                                    709+***
00032C 4180 DA8F            06CD0   710+IEUCB0   LA    8,IEAVOLTB R 8 = PNTR TO NIP'S DAD TABLE
000330 5840 0010            00010   711+         L     4,X'10' R 4 = PNTR TO CVT
000334 5844 0028            00028   712+         L     4,CVTILK2(4) R 4 = PNTR TO UCB ADDR TABLE
000338 4894 0000            00000   713+IEAUCB1  LH    9,0(4) R 9 = PNTR TO UCB
00033C 4990 D33B            0657C   714+         CH    9,IEALAST TEST FOR END OF UCB TABLE,IF 'FFFF'
000340 4780 B776            00778   715+         BE    IEAUCB5 YES THIS ROUTINE IS COMPLETED
000344 4144 0002            00002   716+         LA    4,2(4) NO UPDATE PNTR TO UCB ADDR TABLE
000348 1299                         717+         LTR   R9,R9 *                  DUMMY ENTRY             PTM3198
00034A 4780 B336            00338   718+         BZ    IEAUCB1 *                YES, BRANCH             PTM3198
00034E 48A9 0004            00004   719+IEAUCB15 LH    R10,4(R9) R10 = UNIT ADR FROM UCB+4  2745
000352 9520 9012      00012         720+         CLI   18(9),X'20' TEST UCB+18 (TYPE) FOR DIRECT ACCESS
000356 4770 B6D4            006D6   721+         BNE   ASYMTAPE TEST FOR TAPE UCB              19022
00035A                              722+ASYM15   EQU   * 19022
00035A 48A9 0004            00004   723+         LH    ASYMR10,UCBCHA(ASYMR9) RESET REG TO UNIT ADDR      19022
00035E 4120 DA8F            06CD0   724+         LA    ASYMR2,IEAVOLTB PTR TO VOLTB                   19022
000362 1928                         725+ASYMSRCH CR    ASYMR2,ASYMR8 ARE ALL TAB ENTRIES TSTED      19022
000364 4780 B38E            00390   726+         BE    ASYMTSCB YES-THIS UCB NOT TESTED BEFORE 19022
000368 49A2 0000            00000   727+         CH    ASYMR10,Q0(ASYMR2) DOES THIS ENTRY MATCH VOLTB    19022
00036C 4780 B376            00378   728+         BE    CHK2305 .                YES, BRANCH              A42820
000370 4122 0002            00002   729+         LA    ASYMR2,Q2(ASYMR2) NO-UPDTE TO NXT VOLTB ENTRY    19022
000374 47F0 B360            00362   730+         B     ASYMSRCH TEST  MORE                     19022
                                    731+***      TEST FOR A 2305 DRUM FACILITY                           A42820
000378 9506 9013      00013         732+CHK2305  CLI   UCBUTYPE(R9),U2305M1 .  2305 MODEL 1              A42820
00037C 4780 B386            00388   733+         BE    UCB2305 .                YES, BRANCH              A42820
000380 9507 9013      00013         734+         CLI   UCBUTYPE(R9),U2305M2 .  2305 MODEL 2              A42820
                                                                                                               PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000384 4770 B336            00338   735+         BNE   IEAUCB1 .                NO, BRANCH               A42820
000388 4144 000E            0000E   736+UCB2305  LA    R4,Q14(R4) .             SKIP 2305 ENTRIES        A42820
00038C 47F0 B336            00338   737+         B     IEAUCB1 .                PROCESS NEXT UCB         A42820
000390                              738+ASYMTSCB EQU   * 19022
000390 4520 B544            00546   739+         BAL   ASYMR2,ASYMAP GET UNIT ADDRS                 19022
000394 D207 8000 D2EF 00000 06530   740+         MVC   Q0(Q8,ASYMR8),ASYMSAVE SAVE UNIT ADDRS IN VOLTB    19022
00039A                              741+IEAUCB16 EQU   * 19022
00039A 4560 B57E            00580   742+         BAL   R6,RESERVIT TEST FOR SHARED DASD-RES IF OKA29418
00039E 9505 9013      00013         743+ASYM16   CLI   UCBUTYPE(R9),DCELTYPE *  CHECK FOR DATA CELL       20872
0003A2 4770 B442            00444   744+         BNE   IEAUCB2 NO, BRANCH AROUND               4542
                                    745+*   IF THE LAST BIN OF A DATA CELL REFERENCED PRIOR TO IPL         4542
                                    746+*     WAS A BALLAST CELL, THE DATA CELL WILL APPEAR TO BE OFFLINE  4542
                                    747+*     UNTIL A SEEK IS ISSUED TO A NON-BALLAST CELL.  THE FOLLOWING 4542
                                    748+*     ROUTINE ATTEMPTS TO RESET THIS CONDITION IF IT EXISTS.       4542
0003A6 1B33                         749+         SR    R3,R3 YES,CLEAR BIN COUNTER      4542
0003A8 D705 D451 D451 06692 06692   750+         XC    IEASKADR(R6),IEASKADR CLEAR SEEK ADDRESS         4542
0003AE 9220 C71B      0595C         751+         MVI   IEAROSK+4,X'20' TURN OFF CHAIN BIT IN CCW       4542
0003B2 D203 0048 C473 00048 056B4   752+CCWINIT  MVC   72(R4),IEAROLST SET UP CSW                 4542
0003B8 9C00 A000      00000         753+SIODCELL SIO   0(R10) START I/O                  4542
0003BC 4780 B40E            00410   754+         BC    8,TIODCELL STARTED, GO TO TEST I/O         4542
0003C0 4720 B3B6            003B8   755+         BC    2,SIODCELL BUSY, RE-START                  4542
0003C4 4710 B43A            0043C   756+         BC    1,CLEARED NOT OPERATIONAL, LEAVE RTN      4542
0003C8 9150 0044      00044         757+DCELCSW1 TM    CSWSTAT,CUB .            CONTROL UNIT BUSY        A36472
0003CC 4710 B3B6            003B8   758+         BO    SIODCELL .               YES, BRANCH              A36472
0003D0 9110 0044      00044         759+         TM    CSWSTAT,CSWBUSY .        IS DEVICE BUSY           A36472
0003D4 4780 B3DE            003E0   760+         BZ    DCELCUE .                NO, BRANCH               A36472
0003D8 4120 B3B6            003B8   761+         LA    R2,SIODCELL .            RETURN ADDRESS           A36472
0003DC 47F0 B602            00604   762+         B     WAIT100 .                REISSUE SIO              A36472
0003E0 9120 0044      00044         763+DCELCUE  TM    CSWSTAT,CUE .            CONTROL UNIT END         A36472
0003E4 4710 B3B6            003B8   764+         BO    SIODCELL .               YES, BRANCH              A36472
0003E8 9102 0044      00044         765+         TM    68,X'02' TEST FOR UNIT CHECK             4542
0003EC 4710 B3F2            003F4   766+         BC    1,BALLAST YES, BRANCH TO SENSE            4542
0003F0 47F0 B3FA            003FC   767+         B     UPDATBIN NO, GO TO HANDLE NEXT BIN       4542
0003F4 4550 C185            053C6   768+BALLAST  BAL   5,SENSESS CLEAR CONTINGENT CONNECTION     4542
0003F8 94FD 0044      00044         769+         NI    68,X'FD' CLEAR UCK IN CSW STATUS         4542
0003FC 9509 D452      06693         770+UPDATBIN CLI   IEASKADR+1,X'09' TEST IF ALL BINS HANDLED        4542
000400 4780 B43A            0043C   771+         BC    8,CLEARED YES, LEAVE ROUTINE              4542
000404 4133 0001            00001   772+         LA    R3,1(R3) NO,UPDATE TO NEXT BIN      4542
000408 4230 D452            06693   773+         STC   R3,IEASKADR+1 STORE BIN NO IN SEEK ADR   4542
00040C 47F0 B3B0            003B2   774+         B     CCWINIT BRANCH TO HANDLE NEXT BIN       4542
000410 9D00 A000      00000         775+TIODCELL TIO   0(R10) TEST I/O                   4542
000414 47B0 B40E            00410   776+         BC    11,TIODCELL CSW NOT STORED, RE-TIO          4542
000418 9102 0044      00044         777+         TM    68,X'02' TEST CSW FOR UNIT CHECK         4542
00041C 4710 B3F2            003F4   778+         BC    1,BALLAST YES, ASSUME BALLAST BIN         4542
000420 9104 0044      00044         779+         TM    68,X'04' TEST FOR DEVICE END             4542
000424 4710 B43A            0043C   780+         BC    1,CLEARED YES, INVALID ADDRESS CLEARED    4542
000428 9108 0044      00044         781+         TM    68,X'08' TEST FOR CHANNEL END            4542
00042C 4710 B40E            00410   782+         BC    1,TIODCELL DEVICE END PENDING              4542
000430 9130 0044      00044         783+         TM    68,X'30' TEST FOR CU BUSY OR CU END      4542
000434 4750 B40E            00410   784+         BC    5,TIODCELL EITHER, TE-TIO                  4542
000438 47F0 B3FA            003FC   785+         B     UPDATBIN NO, CHECK NEXT BIN              4542
00043C 9200 D452      06693         786+CLEARED  MVI   IEASKADR+1,X'00' CLEAR BB PART OF SKADR          4542
000440 9240 C71B      0595C         787+         MVI   IEAROSK+4,X'40' RESET CHAIN BIT                 4542
                                    788+*                                                                  4542
000444                              789+IEAUCB2  EQU   * A29418
                                                                                                               PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000444 9D00 A000      00000         790+IEAUCB22 TIO   0(R10) TEST THIS DEVICE           0191
000448 4740 B456            00458   791+         BC    4,UCBTCSW CSW STORED, BRANCH         0191
00044C 4720 B442            00444   792+         BC    2,IEAUCB22 CHANNEL BUSY, RE-TIO        0191
000450 4710 B486            00488   793+         BC    1,IEAUCB25 DEVICE NOT OPERATIONAL              533
000454 4780 B564            00566   794+         BC    8,IEAUCB4 CHANL AVAIL, NO ERROR      000C
                                    795+*   THE FOLLOWING TEST IS PROVIDED TO ALLOW THE RUNNING OF IN-LINE 3800
                                    796+*      DIAGNOSTICS ON THE SPARE DRIVE OF A 2314 WHILE IPL-ING      3800
                                    797+*      A 2314 SYSTEM.                                              3800
000458 9150 0044      00044         798+UCBTCSW  TM    X'44',X'50' C.U. BUSY,                 0191
00045C 4710 B442            00444   799+         BO    IEAUCB22 RE-TIO                0191
000460 9124 0044      00044         800+         TM    X'44',X'24' CU END OR DEV END,     @SA74785
000464 4770 B442            00444   801+         BNZ   IEAUCB22 RE-TIO            @SA74785
000468 9110 0044      00044         802+         TM    X'44',X'10' TEST FOR DEVICE BUSY       0191
00046C 4780 B476            00478   803+         BZ    UCBTUCHK .               NO, BRANCH               A36472
000470 4120 B442            00444   804+         LA    R2,IEAUCB22 .            RETURN ADDRESS           A36472
000474 47F0 B602            00604   805+         B     WAIT100 .                REISSUE TIO              A36472
000478 9102 0044      00044         806+UCBTUCHK TM    CSWSTAT,UNITCHEK TEST CSW FOR UNIT CHECK     0191
00047C 47E0 B564            00566   807+         BC    14,IEAUCB4 NO UNIT CHECK DEVICE IS READY
000480 4550 C185            053C6   808+         BAL   5,SENSESS UNIT CHECK SENSE TO CLEAR CONTINGENT C
000484 94FD 0044      00044         809+         NI    X'44',X'FD' CLEAR UNIT CHK CONDITION IN CSW
000488                              810+IEAUCB25 EQU   * 19022
000488 9104 D233      06474         811+         TM    ASYMSWIT,ASYMALTS IS THERE ANOTHER PATH          19022
00048C 4780 B4B6            004B8   812+         BZ    IEAUCB27 NO-SET NOT READY               19022
000490 4520 B534            00536   813+         BAL   ASYMR2,ASYMOVEB MOVE COUNT BIT                 19022
000494 9500 D234      06475         814+         CLI   ASMCOUNT,X00 ARE ALL PATHS CHECKED          19022
000498 4780 B4B6            004B8   815+         BE    IEAUCB27 SET UCB OFFLINE                19022
00049C 4188 0002            00002   816+         LA    ASYMR8,Q2(ASYMR8) UPDTE VOLTB PTR TO NXT ADDR    19022
0004A0 4808 0000            00000   817+         LH    ASYMR0,0(ASYMR8) *       ALTERNATE ADDRESS         35612
0004A4 1200                         818+         LTR   ASYMR0,ASYMR0 *          IS ADDRESS ZERO           35612
0004A6 4780 B4B6            004B8   819+         BZ    IEAUCB27 *               YES, DONT USE IT          35612
0004AA 18A0                         820+         LR    ASYMR10,ASYMR0 *         NO, USE IT                35612
0004AC 9120 9011      00011         821+         TM    UCBOPTNS(R9),UCBSDASD IS THIS A SHARED DEVICE ? @SA74773
0004B0 4710 B590            00592   822+         BO    RESSIOA YES, GO ISSUE RESERVE     @SA74773
0004B4 47F0 B442            00444   823+         B     IEAUCB2 DO TIO THIS ADDR               19022
0004B8                              824+IEAUCB27 EQU   * P2953
0004B8 9640 9006      00006         825+IEAUCB28 OI    UCBFL1(R9),UCBNRDY SET UCB TO NOT READY       0191
0004BC 9506 9013      00013         826+         CLI   Q19(R9),X06 20201
0004C0 4780 B4CA            004CC   827+         BE    SUBNRED1 20201
0004C4 9507 9013      00013         828+         CLI   Q19(R9),X07 20201
0004C8 4770 B4E0            004E2   829+         BNE   TABENT 20201
0004CC 4120 0007            00007   830+SUBNRED1 LA    R2,Q7 SET UP BCT VALUE-NO. SUB UCBS      20201
0004D0 1854                         831+         LR    R5,R4 GET UCB LOOKUP TABLE ADDR          20201
0004D2 4835 0000            00000   832+SUBNRED  LH    R3,Q0(R5) GET ADDR OF SUB UCB                20201
0004D6 9640 3006      00006         833+         OI    UCBFL1(R3),UCBNRDY SET SUB UCB NOT READY          20201
0004DA 4155 0002            00002   834+         LA    R5,Q2(R5) GET NEXT SUB UCB                   20201
0004DE 4620 B4D0            004D2   835+         BCT   R2,SUBNRED CHECK NEXT ONE                     20201
0004E2 5480 D22F            06470   836+TABENT   N     ASYMR8,ASYMROND RD DOWN TO FIRST TAB ENTRY         20201
0004E6 D201 9004 8000 00004 00000   837+         MVC   UCBCHA(Q2,ASYMR9),Q0(ASYMR8) SET PRIM ADR IN UCB   19022
0004EC 947F 9003      00003         838+         NI    3(9),X'7F' SET STATUS A FIELD TO OFFLINE   1935
0004F0 9505 9013      00013         839+         CLI   19(9),X'05' TEST FOR DATA CELL              1935
0004F4 4770 B50C            0050E   840+         BNE   IEAUCB3 NO, BYPASS SUB UCB INIT.        1935
0004F8 1819                         841+         LR    ASYMR1,ASYMR9 GET UCB PTR                    P4831
0004FA 4111 0028            00028   842+         LA    ASYMR1,Q40(ASYMR1) PT TO FIRST SUB-UCB            P4831
0004FE 41A0 000A            0000A   843+         LA    10,10 BCT VALUE IN R10                1935
000502 4111 0010            00010   844+SUBFLAGS LA    ASYMR1,Q16(ASYMR1) UP PTR TO NXT SUB-UCB          P4831
                                                                                                               PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000506 947F 1003      00003         845+         NI    Q3(ASYMR1),X7F SET SUB UCB OFFLINE            P4831
00050A 46A0 B500            00502   846+         BCT   10,SUBFLAGS LOOP TILL SUBUCBS FLAGGED  1935
00050E                              847+IEAUCB3  EQU   * 19022
00050E 5480 D22F            06470   848+         N     ASYMR8,ASYMROND ROUND VOLTB PRT TO DOUB WORD   19022
000512 9506 9013      00013         849+         CLI   Q19(R9),X06 20201
000516 4780 B520            00522   850+         BE    DIRACC67 20201
00051A 9507 9013      00013         851+         CLI   Q19(R9),X07 20201
00051E 4770 B524            00526   852+         BNE   UPVOLT 20201
000522 4144 000E            0000E   853+DIRACC67 LA    R4,Q14(R4) UPDATE UCB TAB PTR TO NEXT MAIN UCB20201
000526 4188 0008            00008   854+UPVOLT   LA    ASYMR8,Q8(ASYMR8) UPDATE VOLTB PTR               20201
00052A 9208 D234      06475         855+         MVI   ASMCOUNT,X08 RESET PATH INDICATOR BYTE       I267
00052E 94FB D233      06474         856+         NI    ASYMSWIT,ASYALTOF *      CLEAR ASYMALTS FLAG       35612
000532 47F0 B336            00338   857+         B     IEAUCB1 HANDLE NEXT UCB
000536 1733                         858+ASYMOVEB XR    ASYMR3,ASYMR3 CLEAR REG TO MOVE PATH COUNT   19022
000538 4330 D234            06475   859+         IC    ASYMR3,ASMCOUNT GET COUNT BYTE                 19022
00053C 8830 0001            00001   860+         SRL   ASYMR3,Q1 MOVE PATH COUNT TO NEXT POSITIO19022
000540 4230 D234            06475   861+         STC   ASYMR3,ASMCOUNT RESTORE PATH COUNT TO STORAGE  19022
000544 07F2                         862+         BR    ASYMR2 RETURN TO INLINE ROUTINE       19022
000546                              863+ASYMAP   EQU   * I267
000546 4110 D2EF            06530   864+         LA    ASYMR1,IOPUCBMP ADDR OF 18 WORD SAVE AREA      I267
00054A 1839                         865+         LR    ASYMR3,ASYMR9 ADDR OF UCB IN PARM LIST       I267
00054C 4560 C093            052D4   866+         BAL   ASYMR6,IEAIOSGN BR TO RTN TO GET MAP OF PATHS   I267
                                    867+***                                                           ***  I267
                                    868+*   THE FOLLOWING BRANCH TABLE IS BASED ON THE RETURN CODE      *  I267
                                    869+*        FRON IOSGEN MACRO ON A ''MINIMAP'' CALL                *  I267
                                    870+*                                  RETURN CODES                 *  I267
                                    871+*                                    0=ALT PATHS IN MAP            I267
                                    872+*                                    4=NO ALT PATHS IN MAP      *  I267
                                    873+***                                                           ***  I267
000550 47FF B552            00554   874+         B     *+Q4(ASYMR15) I267
000554 47F0 B55A            0055C   875+         B     ASM2PATH I267
000558 47F0 B562            00564   876+         B     ASMNOALT I267
00055C 9604 D233      06474         877+ASM2PATH OI    ASYMSWIT,ASYMALTS INDIC ALTERNATE ADDRESSES       I267
000560 9608 D233      06474         878+         OI    ASYMSWIT,ASYM2CHN INDICATE TWO PATHS AVAIL        I267
000564                              879+ASMNOALT EQU   * I267
000564 07F2                         880+         BR    ASYMR2 RETURN INLINE                  I267
000566                              881+IEAUCB4  EQU   * 19022
000566 D201 9004 8000 00004 00000   882+         MVC   UCBCHA(Q2,ASYMR9),Q0(ASYMR8) MOVE GOOD CHNL ADD BH 56787
00056C 9505 9013      00013         883+         CLI   19(9),X'05' TEST FOR DATA CELL TYPE
000570 4780 C105            05346   884+         BE    IEADTUCB YES-INIT SUB-UCBS             A29418
000574 4530 C0ED            0532E   885+         BAL   3,IEAUCBIN SET TTR AND VOL LABEL IN UCB
000578 4530 C23D            0547E   886+         BAL   3,DUPVLTST TEST IF VOLAB IS DUPLICATE      1935
00057C                              887+ASMCLOSE EQU   * 19022
00057C                              888+ASMCLOUT EQU   * 19022
00057C 47F0 B50C            0050E   889+         B     IEAUCB3 VOL TAB COMPLETE FOR CURR. UNIT 1935
                                                                                                               PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    891+****
                                    892+***  A RESERVE-RELEASE SEQUENCE IS ISSUED TO EACH DASD WHOSE UCB
                                    893+***  IS SYSGENED AS BEING SHARED.  THE PURPOSE IS TO VERIFY THAT
                                    894+***  THE HARDWARE RESERVE CAPABILITY DOES EXIST.
                                    895+***  NOTE THE RESERVE CANNOT BE CHAINED TO THE RELEASE DUE TO GF  47826
                                    896+***  A 2305 RESTRICTION AND THEREFORE, THE RELEASE IS ISSUED  GF  47826
                                    897+***  IMMEDIATELY FOLLOWING THE RESERVE.                       GF  47826

000580                              899+RESERVIT EQU   * A29418
000580 9120 9011      00011         900+         TM    UCBOPTNS(R9),UCBSDASD IS THIS A SHARED DEVICE     A29418
000584 47E0 B69E            006A0   901+         BNO   RESVEXIT A29418
000588 D203 0048 C453 00048 05694   902+         MVC   CAW(LCAW),IEARLCAW SET UP RESERVE CAW         GF  47826
00058E 92F0 B693      00695         903+         MVI   RESSIOGD+1,X'F0' .  SET LATER BRANCH           GF  47826
000592 4170 000A            0000A   904+RESSIOA  LA    R7,Q10 SET RETRY LOOP VALUE       GF  47826
000596 9602 D52B      0676C         905+         OI    IEASWITC,SHARCALL SET SWIT FOR I/O RTN-RESERV   A29418
00059A 4550 C29F            054E0   906+RESSIO   BAL   R5,IEASTRIO TRY TO RESERVE THIS DEVICE    A29418
00059E 9102 D52B      0676C         907+         TM    IEASWITC,SHARCALL WAS NOT OPERATIONAL COND HIT  A29418
0005A2 4780 B442            00444   908+         BZ    IEAUCB22 YES-DO TIO AND SET OFFLINE    A29418
0005A6 9108 D536      06777         909+         TM    IEASWITE,SHARBUSY IS RET FROM BUSY CONDITION    A29418
0005AA 47E0 B692            00694   910+         BNO   RESSIOGD .               NO, TEST COMPLETE        A36472
0005AE 94F7 D536      06777         911+         NI    IEASWITE,XFF-SHARBUSY .  CLEAR BUSY FLAG          A36472
0005B2 4120 B598            0059A   912+         LA    R2,RESSIO .              RETURN ADDRESS           A36472
0005B6 4670 B602            00604   913+         BCT   R7,WAIT100 .             RETRY 10 TIMES           A36472
                                    914+** AFTER TEN RETRYS THE OPERATOR IS QUERIED                      A29418
0005BA 4700 B662            00664   915+RESRVMSG BC    0,UCBIOPSW NOP SET TO BC 15 AFTER MSG    A29418
0005BE 92F0 B5B9      005BB         916+         MVI   RESRVMSG+Q1,XF0 SET ABOVE BR-PRT MSG ONCE     A29418
0005C2 94FD D52B      0676C         917+         NI    IEASWITC,Q255-SHARCALL SET I/O SWIT FUR NON-RESRV A29418
0005C6 D203 0048 C45B 00048 0569C   918+         MVC   CAW(LCAW),SHARDCAW SET CAW AND UNIT ADDRESS   0191
0005CC D202 CB88 900D 05DC9 0000D   919+         MVC   SHARDADR(L'SHARDADR),UCBNAME(R9) FOR 120A MSG      0191
0005D2 4550 C285            054C6   920+         BAL   R5,IEACONSL LINK TO WTO SHARED MSG      0191
0005D6 D203 0048 C51B 00048 0575C   921+UCBRRPLY MVC   CAW(LCAW),ANSWRCAW SET CAW FOR CONSOLE READ   0191
0005DC 9680 D52A      0676B         922+         OI    IEASWITB,CANXSWIT SET SWITCH TO ALLOW CANCEL  0191
0005E0 4550 C26D            054AE   923+         BAL   R5,IEACONIN LINK TO READ REPLY          0191
0005E4 947F D52A      0676B         924+         NI    IEASWITB,NOCANCEL RESET CANCEL SWITCH         0191
0005E8 48A9 0004            00004   925+         LH    R10,UCBCHA(R9) RESTORE TIO UNIT ADDRESS   0191
0005EC D64F D6FB DA35 0693C 06C76   926+         OC    ANSRAREA(80),IEABLNCS INSURE UPPER CASE REPLY    0191
0005F2 D509 D753 D6FB 06994 0693C   927+         CLC   IEARPLYR(L'IEARPLYR),ANSRAREA TEST REPLY SYNTAX    0191
0005F8 4770 B612            00614   928+         BNE   UCBTABRV NO, BRANCH TO TEST R SYNTAX  0191
0005FC 4150 D705            06946   929+         LA    R5,ANSRAREA+L'IEARPLYR R5 = PTR TO REPLY OPTION   0191
000600 47F0 B620            00622   930+         B     UCBNABRV BRANCH TO TEST OPTION      0191
000604 5850 D687            068C8   931+WAIT100  L     R5,IEACOUNT .                                     A36472
000608 8950 0001            00001   932+         SLL   R5,1 .                                            A36472
00060C 0700                         933+         CNOP  6,8 .                    PUT BCT IN 2 DBWORDS     A36472
00060E 4650 B60C            0060E   934+WAITING  BCT   R5,WAITING .             WAIT ABOUT 100 MILISEC   A36472
000612 07F2                         935+         BR    R2 .                     RETURN                   A36472
000614 D505 D75D D6FB 0699E 0693C   936+UCBTABRV CLC   IEARPLYS(L'IEARPLYS),ANSRAREA TEST R SYNTAX        0191
00061A 4770 B6AE            006B0   937+         BNE   UCBRINV NO, WTO INVALID SYNTAX     0191
00061E 4150 D701            06942   938+         LA    R5,ANSRAREA+L'IEARPLYS R5 = PTR TO REPLY OPTION   0191
000622 D508 5000 B6C6 00000 006C8   939+UCBNABRV CLC   0(L'CONTINUE,R5),CONTINUE TEST FOR CONTINUE OPTION 0191
000628 4770 B636            00638   940+         BNE   UCBTWAIT NO-TEST FOR WAIT OPTION       A29418
00062C 94FD D52B      0676C         941+         NI    IEASWITC,Q255-SHARCALL SET NON RES/REL SWIT       A29418
000630 9200 B5B9      005BB         942+         MVI   RESRVMSG+Q1,X00 FORCE MSG ON NXT SHARD DEV    A29418
000634 47F0 B4B6            004B8   943+         B     IEAUCB28 CONTINUE UCB CHECKING         21063
000638                              944+UCBTWAIT EQU   * A29418
000638 D504 5000 B6CF 00000 006D1   945+         CLC   Q0(L'WAITOPT,R5),WAITOPT TST FOR WAIT           A29418
                                                                                                               PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00063E 4770 B6AE            006B0   946+         BNE   UCBRINV NO-TELL OPER INVALID REPLY    A29418
000642 95F0 B693      00695         947+         CLI   RESSIOGD+1,X'F0' .   RESERVE IN PROGRESS ?     GF  47826
000646 4770 B6BC            006BE   948+         BNE   RELEWATE .           NO - SET UP FOR RELEASE   GF  47826
00064A D203 0048 C453 00048 05694   949+         MVC   CAW(LCAW),IEARLCAW SET CAW FOR RESERVE           A29418
000650 9602 D52B      0676C         950+RELEWTE  OI    IEASWITC,SHARCALL SET I/O SWIT FOR RESERV REQ.GF  47826
000654 9118 D527      06768         951+         TM    IEASWITA,OPEJSWIT . Q. GRAPHICS OR TP CONSOLE  CI A39922
000658 4780 B662            00664   952+         BZ    UCBIOPSW .          NO, BRANCH                 CI A39922
00065C 4170 000A            0000A   953+         LA    R7,Q10 .            SET RETRY COUNT            CI A39922
000660 47F0 B598            0059A   954+         B     RESSIO .            TEST DEVICE AGAIN BEFORE   CI A39922
                                    955+*                                  WAITING IN CASE INTERRUPT  CI A39922
                                    956+*                                  CAME HOME WHILE WAITING    CI A39922
                                    957+*                                  FOR OPERATOR'S REPLY       CI A39922
000664 D207 CFF7 0078 06238 00078   958+UCBIOPSW MVC   IEABUFER(LPSW),IONWPSW SAVE I/O NEW PSW           0191
00066A D203 0078 CFC7 00078 06208   959+         MVC   IONWPSW(Q4),IOPSW SET UP                          0191
000670 4150 B67A            0067C   960+         LA    R5,UCBIORET I/O NEW PSW              0191
000674 5050 007C            0007C   961+         ST    R5,N124 FOR RETURN TO NIP     0191
000678 8200 CFD7      06218         962+UCBWAIT  LPSW  WAIT WAIT FOR I/O INTERRUPT     0191
00067C D501 003A 9004 0003A 00004   963+UCBIORET CLC   IODEVINT(Q2),UCBCHA(R9) TEST FOR BUSY SHARED DEVICE 0191
000682 4770 B676            00678   964+         BNE   UCBWAIT NO, BRANCH TO RE-ISSUE WAIT0191
000686 D207 0078 CFF7 00078 06238   965+         MVC   IONWPSW(LPSW),IEABUFER RESTORE IOS I/O NEW PSW    0191
00068C 4170 000A            0000A   966+         LA    R7,Q10 SET RETRY COUNT FOR BUSY      A29418
000690 47F0 B598            0059A   967+         B     RESSIO TRY TO RESERVE                A29418
000694                              968+RESSIOGD EQU   * GF  47826
000694 47F0 B6A0            006A2   969+         B     SCAWRELE .           BR TO SET UP REL.- THIS   GF  47826
                                    970+*                                   BR IS NOP SEC. TIME THRU  GF  47826
000698 94FD D52B      0676C         971+         NI    IEASWITC,Q255-SHARCALL RESET SWIT TO NON-RES/REL   47826
00069C 9200 B5B9      005BB         972+         MVI   RESRVMSG+Q1,X00 FORCE MSG ON NXT SHARD DEV    A29418
0006A0 07F6                         973+RESVEXIT BR    R6 RETURN                        A29418
0006A2                              974+SCAWRELE EQU   * GF  47826
0006A2 D203 0048 C457 00048 05698   975+         MVC   CAW(LCAW),RELSECAW . SET UP FOR RELEASE        GF  47826
0006A8 9200 B693      00695         976+         MVI   RESSIOGD+1,X'00' .   NOP BR. FOR NEXT CYCLE    GF  47826
0006AC 47F0 B590            00592   977+         B     RESSIOA .            GO TO RELEASE             GF  47826
0006B0 D203 0048 C51F 00048 05760   978+UCBRINV  MVC   CAW(LCAW),IEARRCAW SET CAW FOR SYNTAX ERR MSG 0191
0006B6 4550 C285            054C6   979+         BAL   R5,IEACONSL LINK TO WTO 102A MSG        0191
0006BA 47F0 B5D4            005D6   980+         B     UCBRRPLY BRANCH TO READ NEXT REPLY  0191
0006BE                              981+RELEWATE EQU   * GF  47826
0006BE D203 0048 C457 00048 05698   982+         MVC   CAW(LCAW),RELSECAW .    SET UP FOR RELEASE     GF  47826
0006C4 47F0 B64E            00650   983+         B     RELEWTE .             CONTINUE PROCESSING      GF  47826
0006C8 C3D6D5E3C9D5E4C5             984+CONTINUE DC    C'CONTINUE''' 0191
0006D1 E6C1C9E37D                   985+WAITOPT  DC    C'WAIT''' 0191
                                                                                                               PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    987+***
                                    988+**  SMART NIP OPTION WAS SELECTED. THIS ROUTINE WILL CLEAR THE STATUS
                                    989+**  'A' FIELD OF NON DIRECT ACCESS DEVICE UCB'S FOREACH DEVICE FOUND
                                    990+**  NOT READY.
                                    991+***
0006D6                              992+ASYMTAPE EQU   * 19022
0006D6 9580 9012      00012         993+         CLI   UCBTYP+2(R9),X80 -  Is device tape?             @TMVT801
0006DA 4770 B336            00338   994+         BNE   IEAUCB1 -           Skip SMARTNIP if not tape   @TMVT801
0006DE 9504 9011      00011         995+         CLI   UCBTYP+1(R9),4 -    IS THIS A CTC DEVICE           **ASP
0006E2 4780 B6F0            006F2   996+         BE    CTCRDY -            YES,MARK IT READY              **ASP
0006E6 9D00 A000      00000         997+IEAUCB7  TIO   0(10) TEST THE UNIT FOR READY
0006EA 4720 B6E4            006E6   998+         BC    2,IEAUCB7 IF BUSY KEEP TESTING
0006EE 4750 B6F4            006F6   999+         BC    5,IEAUCB12 NOT READYN SET OFFLINE
0006F2                             1000+CTCRDY   EQU   * **ASP
0006F2 47F0 B73A            0073C  1001+         B     IOGOOD1 SET UCB ONLINE                  I267
0006F6 4740 B74A            0074C  1002+IEAUCB12 BC    4,IEAUCB13 CSW STORED BRANCH
0006FA                             1003+IEAUC12A EQU   * I267
0006FA 9102 D536      06777        1004+         TM    IEASWITE,PATHCALL HAS MAP BEEN ISSUED             I267
0006FE 4710 B70E            00710  1005+         BO    IOSKPMAP YES-DON'T REISSUE               I267
000702 9602 D536      06777        1006+         OI    IEASWITE,PATHCALL SET PATHCALL SWIT               I267
000706 1839                        1007+         LR    IOR3,IOR9 SET UCB ADR IN MACRO PARM LST  P4501
000708 4110 D2EF            06530  1008+         LA    IOR1,IOPUCBMP PTR TO MAP AREA IN REG          I267
00070C 4560 C093            052D4  1009+         BAL   R6,IEAIOSGN GET MAP OF UCB'S AVAILABLE      I267
000710                             1010+IOSKPMAP EQU   * I267
000710 D501 1002 D28F 00002 064D0  1011+         CLC   Q2(Q2,IOR1),IEAZERO IS THERE ANOTHER ADDR         P3038
000716 4780 B72E            00730  1012+         BE    ASYTAPNG NO-TST NEXT UCB                 I267
00071A 4160 D2F5            06536  1013+         LA    IOR6,IOPUCBMP+Q6 UPDTE TO LAST MAP ENTRY         I267
00071E 1916                        1014+         CR    IOR1,IOR6 COMP PRESENT TO LAST            I267
000720 47B0 B72E            00730  1015+         BNL   ASYTAPNG IF LAST TESTD TST NXT UCB       I267
000724 4111 0002            00002  1016+         LA    IOR1,Q2(IOR1) UPDTE TO NEXT MAP ENTRY         I267
000728 48A1 0000            00000  1017+         LH    IOR10,Q0(IOR1) ALT ADDR IN I/O REG             I267
00072C 47F0 B6E4            006E6  1018+         B     IEAUCB7 RE-TIO                          I267
000730                             1019+ASYTAPNG EQU   * I267
000730 94FD D536      06777        1020+         NI    IEASWITE,Q255-PATHCALL ZERO MAP CALLED SWIT      I267
000734 947F 9003      00003        1021+         NI    Q3(R9),X7F SET UCB OFFLINE                P3074
000738 47F0 B336            00338  1022+         B     IEAUCB1 TST NXT UCB                     I267
00073C                             1023+IOGOOD1  EQU   * I267
00073C 40A9 0004            00004  1024+         STH   ASYMR10,UCBCHA(ASYMR9) SET UCBCHA TO AN ONLIN ADR   I267
000740 94FD D536      06777        1025+         NI    IEASWITE,Q255-PATHCALL . CLEAR PATHCALL FLAG      A39422
000744 9680 9003      00003        1026+         OI    Q3(R9),X80 SET UCB ONLINE                  I267
000748 47F0 B336            00338  1027+         B     IEAUCB1 CONTINUE SCAN OF UCB'S          I267
00074C 4150 B74A            0074C  1028+IEAUCB13 LA    R5,IEAUCB13 .            DEBUGGING AID            A36227
000750 9106 0045      00045        1029+         TM    CSWCHAN,CSWCCC+CSWICC .  CHAN OR INTFC CTL CHK    A36227
000754 4750 C019            0525A  1030+         BC    5,IEAERR6 .              BRANCH IF ANY            A36227
000758 9550 0044      00044        1031+         CLI   CSWSTAT,SMB STATUS MODIFIER BUSY              BH 58099
00075C 4770 B76E            00770  1032+         BNE   DOSENSEN NO CONTINUE NORMALLY              BH 58099
000760 92FF D528      06769        1033+         MVI   SENSESW,X'FF' SET THE SENSE SWITCH              BH 58099
000764 4550 C2FB            0553C  1034+         BAL   R5,IEAINTH3 GO DO ENABLE/DISABLE SEQUENCE     BH 58099
000768 9500 D528      06769        1035+         CLI   SENSESW,X'00' WAS A SENSE DONE                  BH 58099
00076C 4780 B6E4            006E6  1036+         BE    IEAUCB7 YES, RE-TEST DEVICE STATUS  @SA67427
000770                             1037+DOSENSEN EQU   * BH 58099
000770 4550 C185            053C6  1038+         BAL   R5,SENSESS .             DO SENSE TO CLEAR STATUS
000774                             1039+DONESENS EQU   * BH 58099
000774 47F0 B6F8            006FA  1040+         B     IEAUC12A BRANCH TO SET UCB OFFLINE   MP65
000778 D201 8000 D33B 00000 0657C  1041+IEAUCB5  MVC   0(2,8),IEALAST INDICATE END OF DAD TABLE
                                                                                                               PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00077E 9601 D536      06777        1042+         OI    IEASWITE,VOLTBATV SET VOLTB ACTV FOR SUBUCBFN     I267
                                                                                                               PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1044+***
                                   1045+**  A CHECK IS MADE TO INSURE THAT THE IPL-ED DEVICE HAS A
                                   1046+**  CORRESPONDING UCB. IF FOUND, THE UCB STATUS IS SET TO INDICATE
                                   1047+**  SYS-RES. THE DEB'S FOR SYS1.SVCLIB AND SYS1.SYSLOGREC ARE
                                   1048+**  INITIALIZED. IF THERE IS NO UCB, THE OPERATOR IS INFORMED AND THE
                                   1049+**  WAIT STATE ENTERED. RE-IPL IS NECESSARY.
                                   1050+***
000782 48A0 D2D5            06516  1051+CHKIPLDV LH    R10,IEAIPL P2953
000786 D206 CA16 DA85 05C57 06CC6  1052+         MVC   IEADSNAM(Q7),NUCLEUS INIT NAME FOR POSSIBLE ERROR  P2953
00078C D201 D2D9 D2D5 0651A 06516  1053+         MVC   UNITADDR(Q2),IEAIPL SAVE UNIT ADDRESS              P2953
000792 4550 C0BD            052FE  1054+         BAL   5,IEAUCBFN INSURE THAT IPL-ED UNIT HAS UCB
000796 94FF D516      06757        1055+         NI    IEAINDIC,X'FF' TEST FOR UCB FOUND
00079A 4780 C0D5            05316  1056+         BC    8,IEANOUCB UCB NOT FOUND TELL OPERATOR
00079E 1B99                        1057+         SR    9,9
0007A0 4890 D2D3            06514  1058+         LH    9,IEAUCBHL R 9 = PNTR TO SYS-RES UCB
0007A4 D201 D2D5 9004 06516 00004  1059+         MVC   IEAIPL(Q2),UCBCHA(R9) SAVE UNIT ADDR OF IPL DEVICE P2953
0007AA 48A0 D2D5            06516  1060+         LH    R10,IEAIPL R10=UNIT ADDR OF IPL DEVICE        P2953
0007AE 9D00 A000      00000        1061+IEAIOTST TIO   0(10) TEST I/O TO CLEAR PENDING CONDITIONS
0007B2 4710 C001            05242  1062+         BC    1,IEAERR1 NOT OPERATIONAL INDICATE ERROR1
0007B6 4720 B7AC            007AE  1063+         BC    2,IEAIOTST CHANNEL BUSY TEST IT AGAIN
0007BA 4780 B7C4            007C6  1064+         BC    8,IPLUCBLK AVAILABLE, DEVICE IS READY      3800
                                   1065+*   THE FOLLOWING TEST IS PROVIDED TO ALLOW THE RUNNING OF IN-LINE 3800
                                   1066+*      DIAGNOSTICS ON THE SPARE DRIVE OF A 2314 WHILE IPL-ING      3800
                                   1067+*      A 2314 SYSTEM.                                              3800
0007BE 9130 0044      00044        1068+         TM    X'44',X'30' TEST FOR CU BUSY OR CU END      3800
0007C2 4770 B7AC            007AE  1069+         BC    7,IEAIOTST IF EITHER, RE-ISSUE I/O CMD     3800
0007C6                             1070+IPLUCBLK EQU   * P2953
0007C6 9686 9003      00003        1071+         OI    3(9),X'86' SET STATUS ONLINE AND PERM-RES
0007CA 5860 0010            00010  1072+         L     6,16 R 6 = PNTR TO CVT
0007CE 5096 0030            00030  1073+         ST    9,48(6) SET SYSRES INFO INTO BUFFER
0007D2 9506 9013      00013        1074+         CLI   UCBUTYPE(R9),U2305M1 .   2305 MODEL 1          BI  21872
0007D6 4780 B7E0            007E2  1075+         BE    LUPSET .                 YES, BRANCH           BI  21872
0007DA 9507 9013      00013        1076+         CLI   UCBUTYPE(R9),U2305M2 .   2305 MODEL 2          BI  21872
0007DE 4770 B7F4            007F6  1077+         BNE   VOLREAD .                NO, BRANCH            BI  21872
0007E2 4159 0040            00040  1078+LUPSET   LA    R5,U2305SIZ(R9) .        NEXT UCB THIS DEVICE  BI  21872
0007E6 4110 0007            00007  1079+         LA    R1,Q7 SEVEN MORE                  @SA67024
0007EA 9606 5003      00003        1080+RESDNT   OI    UCBESTAT(R5),6 .         PRES, SYSRES          BI  21872
0007EE 4155 0040            00040  1081+         LA    R5,U2305SIZ(R5) .        NEXT UCB              BI  21872
0007F2 4610 B7E8            007EA  1082+         BCT   R1,RESDNT MARK NEXT UCB               @SA67024
0007F6                             1083+VOLREAD  EQU   * .                                            BI  21872
0007F6 4560 C123            05364  1084+         BAL   6,IEARDVOL READ SYS RES INFO INTO BUFFER
0007FA D20A D9DB DA07 06C1C 06C48  1085+         MVC   IEADSTNM(L'IEASVCNM),IEASVCNM SYS1.SVCLIB INTO CCW000E
000800 D220 D9E6 DA35 06C27 06C76  1086+         MVC   IEADSTNM+L'IEASVCNM(44-L'IEASVCNM),IEABLNCS 000E
000806 9610 D52B      0676C        1087+         OI    IEASWITC,MXCALL INDICATE LIB W/ POSS EXTENTSMXMV
00080A 5890 0010            00010  1088+         L     9,16 R 9 = PNTR TO CVT
00080E 5819 0054            00054  1089+         L     1,CVTSVDCB(9) R 1 = PNTR TO SVC DCB
000812 45E0 C07B            052BC  1090+         BAL   14,IEACOMON INITIALIZE SVC DEB
000816 94EF D52B      0676C        1091+         NI    IEASWITC,255-MXCALL RESET MULTIPLE EXTENT SWITCHMXMV
00081A D20A D9DB DA1E 06C1C 06C5F  1092+         MVC   IEADSTNM(L'IEALOGNM),IEALOGNM SYS1.LOGREC INTO CCW000E
000820 D220 D9E6 DA35 06C27 06C76  1093+         MVC   IEADSTNM+L'IEALOGNM(44-L'IEALOGNM),IEABLNCS 000E
000826 5819 0074            00074  1094+         L     R1,CVTDCB(R9) R1 = PTR TO SYS1.LOGREC DCB MXMV
00082A 45E0 C07B            052BC  1095+         BAL   14,IEACOMON INITIALIZE LOGREC DEB
000000                             1096+         USING DCBDSECT,R1
00082E D202 D250 102D 06491 0002D  1097+         MVC   ALIGN3BY(Q3),DCBDEBAD ALIGN SYS1.LOGREC DEB ADDR  MXMV
                                   1098+         DROP  R1
                                                                                                               PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000834 5820 D24F            06490  1099+         L     R2,IEALIGN R2 = PTR TO LOGREC DEB      MXMV
000838 D202 201D 9015 0001D 00015  1100+         MVC   DEBAPPAD-DEBPFXSZ,CVTXAPG(R9) I/O VECTOR TAB TO DEBMXMV
                                                                                                               PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1102+***
                                   1103+**  THIS ROUTINE CHECKS THE TIMER VALUE OF SIX HOURS          CI A46005
                                   1104+**  INITIALIZED AT LOCATION 80 WHEN THE NUCLEUS IS LOADED     CI A46005
                                   1105+**  TO SEE IF THE TIMER IS WORKING.  IF IT IS, NIP CONTINUES.
                                   1106+**  IF NOT, A MESSAGE IS PRINTED TO INDICATE THE CONDITION
                                   1107+**  AND THEN NIP CONTINUES.
                                   1108+***
00083E                             1109+IEATIMER EQU   * .                                            CI A46005
00083E 5850 005C            0005C  1110+         L     5,92 GET INST ADDR FROM EXT NEW PSW  0752
000842 41A0 B848            0084A  1111+         LA    10,SSMASKON GET ADDR OF SSM INST AND        0752
000846 50A0 005C            0005C  1112+         ST    10,92 STORE IN EXT NEW PSW            0752
00084A 8001                        1113+SSMASKON DC    X'8001' ENABLE FOR TIMER INT            0752
00084C B849                        1114+         DC    S(*-1) BASE AND DISPLACEMENT           0752
00084E 8000 B84D      0084F        1115+         SSM   *+1 DISABLE FOR ALL INTS            0752
000852 5050 005C            0005C  1116+         ST    5,92 RESTORE INST ADDR TO EXT PSW    0752
000856 D203 0050 D683 00050 068C4  1117+         MVC   80(4),IEAVALUE MOVE 6 HR. VALUE TO TIMER   @SA62260
00085C 5810 D687            068C8  1118+         L     1,IEACOUNT LOAD TIMER LOOP COUNT       @SA62260
000860 4610 B85E            00860  1119+IEALOOP1 BCT   1,IEALOOP1 WAIT FOR TIMER DECREMENT    @SA62260
000864 9F00 0000      00000        1120+         TCH   0 FORCE VM/370 DISPATCH       @SA73721
000868 D503 0050 D683 00050 068C4  1121+         CLC   80(4),IEAVALUE COMPARE TIMER VALUE WITH 6 HOUR
00086E 4700 B88A            0088C  1122+         NOP   TMRNOPR -           Skip timer-not-working code @TMVT801
000872 5870 C647            05888  1123+         L     R7,ADCVUCM GET PTR TO UCM                A27752
000876 4160 0004            00004  1124+         LA    R6,Q4 NEG DISPL TO UCM PRFIX PTR    A27752
00087A 1B76                        1125+         SR    R7,R6 PT TO ADDR OF MCS PREFIX      A27752
00087C 5877 0000            00000  1126+         L     R7,Q0(R7) SET BASE REG FOR MCS/UCM PRFX A27752
000880 9601 7054      00054        1127+         OI    UCMSFLGS,UCMSYSH .       TIMER OPERATIVE       BI A42793
000884 9601 D3FB      0663C        1128+         OI    CPYCMDS,UCMSYSH SET TIMER OPERATIVE FOR HC PARM MCS0
000888 47F0 B894            00896  1129+         B     IEACONT BRANCH WITH TIMER SET           MSC0
00088C D203 0048 C507 00048 05748  1130+TMRNOPR  MVC   CAW(Q4),IEACNLST MOVE ADDR OF CHANNEL PROG AND   MCS0
000892 4550 C285            054C6  1131+         BAL   R5,IEACONSL START I/O                       MCS0
000896                             1132+IEACONT  EQU   *
                                                                                                               PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1134+***
                                   1135+**  SET THE STORAGE KEY TO ZERO FOR ALL 2K BLOCKS OF STORAGE
                                   1136+***
000896 1B66                        1137+         SR    6,6 CLEAR REG 6 FOR STORAGE KEY ZERO
000898 1B99                        1138+         SR    9,9 CLEAR REG 9 TO ADDR 1ST 2K BLOCK
00089A 58A0 D263            064A4  1139+         L     10,IEACORSZ R10 = TOP OF CORE
00089E 0869                        1140+IEASETK  SSK   6,9 SET ZERO KEY FOR THIS BLOCK
0008A0 4199 0800            00800  1141+         LA    9,2048(9) R 9 = PNTR TO NEXT 2K BLOCK
0008A4 1299                        1142+         LTR   9,9 -            WRAPAROUND?                    @TMVT801
0008A6 4780 B8AE            008B0  1143+         BC    8,IEASETKX -     YES, 16 MB DONE                @TMVT801
0008AA 19A9                        1144+         CR    10,9 TEST FOR END OF STORAGE
0008AC 4770 B89C            0089E  1145+         BC    7,IEASETK NO CONTINUE TO SET KEY
0008B0                             1146+IEASETKX EQU   * -                                             @TMVT801
                                                                                                               PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0008B0 41F0 B966            00968  1148+         LA    R15,IEA4SQND R15 = EXIT FROM SQS INIT RTN000E
                                   1149+***
                                   1150+**  SQS IS SET UP. THE PQE'S, THE DQE, AND FQE ARE INITIALIZED.    000E
                                   1151+**  THE SVRB IS ESTABLISHED AND THE FBQE INITIALIZED. THE MASTER   000E
                                   1152+**  REGION IS DESIGNATED AS BEING ALL OF FREE CORE TEMPORARILY.    000E
                                   1153+**  THERE ARE TWO PASSES THROUGH THIS ROUTINE - THE FIRST RESERVING000E
                                   1154+**  DUMMY SPACE AT THE END OF THE NUCLEUS FOR POST-IPL ADDITIONS TO000E
                                   1155+**  THE FIXED AREA' THE SECOND DELETING THE UNUSED PORTION OF THIS 000E
                                   1156+**  DUMMY SPACE                                                    000E
0008B4 05B0                        1157+IEASQS   BALR  R11,0 ESTABLISH ADDRESSABILITY    ISER
0008B6                             1158+         USING *,R11 FOR MAINLINE NIP        ISER
0008B6 5820 D21B            0645C  1159+         L     R2,IEADMY R2 = PTR TO CONTROL BLK AREA  ISER
0008BA 1832                        1160+         LR    3,2 R 3 = PNTR TO END OF NUCLEUS
0008BC 4190 07FF            007FF  1161+         LA    9,2047 R 9 = X'7FF' FOR ROUNDING TO 2K
0008C0 1639                        1162+         OR    3,9 ROUND PNTR TO END OF NUC DOWN TO 2K
0008C2 1739                        1163+         XR    3,9 R 3 = PNTR TO 2K BOUND BELOW NUCLEUS
0008C4 1842                        1164+         LR    4,2 R 4 = PNTR TO END OF NUCLEUS
0008C6 1A49                        1165+         AR    4,9 ROUND PNTR TO END OF NUC UP TO A 2K
0008C8 1649                        1166+         OR    4,9 BOUNDARY ABOVE THE NUCLEUS.
0008CA 1749                        1167+         XR    4,9 R 4 = PNTR TO 2K BOUND ABOVE NUCLEUS
0008CC 5860 C487            056C8  1168+         L     6,IEAAPAD R 6 = PNTR TO START OF NIP
0008D0 1669                        1169+         OR    6,9 ROUND PNTR TO START OF NIP DOWN TO 2K
0008D2 1769                        1170+         XR    6,9 R 6 = PNTR TO 2K BOUND BELOW NIP
0008D4 4150 0018            00018  1171+         LA    5,IEASQSGN R 5 = NO OF 2K BLOCKS SET AT SYS GEN
0008D8 8B50 000B            0000B  1172+         SLA   5,11 R 5 = NO OF 2K BLOCKS X 2048
0008DC 1A45                        1173+         AR    4,5 R 4 = UPPER LIMIT OF SQS AREA
0008DE 5850 C617            05858  1174+         L     5,IEAGOVRF R 5 = PNTR TO MS1 EXTRN
0008E2 5890 C61B            0585C  1175+         L     9,IEASVRBA R 9 = PNTR TO MS1 EXTRN
0008E6 5870 C60F            05850  1176+         L     7,IEATOPCB R 7 = PNTR TO MASTER SCHEDULER TCB
0008EA 5B20 D297            064D8  1177+         S     2,IEAATE 000C
0008EE 5027 0098            00098  1178+         ST    2,152(7) SET PNTR TO PQE IN TCB
0008F2 58A0 C613            05854  1179+         L     10,IEECVTB
0008F6 502A 0098            00098  1180+         ST    2,152(10)
0008FA 4122 0008            00008  1181+         LA    2,8(2) 000C
0008FE 1884                        1182+         LR    8,4 R 8 = PNTR TO FBQE
000900 5045 0000            00000  1183+         ST    4,0(5) SET PNTR TO END SQS IN MS1 EXTRN
000904 1812                        1184+         LR    1,2 R 1 = PNTR TO CONTROL BLOCK AREA   000C
000906 D767 1000 1000 00000 00000  1185+         XC    0(104,1),0(1) CLEAR CTL BLK AREA
00090C 4111 0008            00008  1186+         LA    1,8(1) R 1 = PNTR TO 1ST PQE CHAINED      000C
000910 5071 0010            00010  1187+         ST    7,16(1) PQE WORD 5 POINTS TO TCB           000C
000914 5012 0000            00000  1188+         ST    1,0(2) DUMMY PQE PTS TO 1ST PQE ON CHAIN  000C
000918 5012 0004            00004  1189+         ST    1,4(2) DUMMY PQE PTS TO LAST PQE ON CHAIN    000C
00091C 45A0 C21F            05460  1190+         BAL   10,IEAMS1ER SET UP AND CHAIN PQE AND FBQE      000C
000920 18E2                        1191+         LR    R14,R2 R14 = PTR TO FIRST DUMMY   000E
000922 4170 0090            00090  1192+         LA    7,144 R 7 = SIZE OF SVRB                 000C
000926 1B87                        1193+         SR    8,7 R 8 = PNTR TO SVRB                 000C
000928 5089 0000            00000  1194+         ST    8,0(9) SET PNTR TO SVRB IN EXTRN          000C
00092C 4111 0028            00028  1195+         LA    1,40(1) R 1 = PNTR TO 1ST PQE ON FREE CHAIN000C
000930 4122 0020            00020  1196+         LA    2,32(2) 000C
000934 5025 0008            00008  1197+         ST    2,8(5) GOVRFLB+8 POINTS TO DUMMY PQE      000C
000938 4122 0008            00008  1198+         LA    2,8(2) 000C
00093C 5012 0000            00000  1199+         ST    1,0(2) DUMMY PQE POINTS TO 1ST ON CHAIN   000C
000940 5012 0004            00004  1200+         ST    1,4(2) DUMMY PQE POINTS TO LAST ON CHAIN  000C
000944 4111 0020            00020  1201+IEANOPQ3 LA    1,32(1) R1 PTR TO DQE
000948 4122 0038            00038  1202+         LA    2,56(2) R 2 = PNTR TO FQE                  000C
                                                                                                               PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00094C 1BEE                        1203+         SR    R14,R14 R14 = 0 IF NO LCS          000E
00094E 5015 0004            00004  1204+IEADQPTR ST    1,4(5) GOVRFLB+4 POINTS TO DQE
000952 5021 0000            00000  1205+         ST    2,0(1) DQE POINTS TO FQE                  000C
000956 5031 0008            00008  1206+         ST    3,8(1) DQE PTS TO 2K BOUND BELOW NUCEND   000C
00095A 1B43                        1207+         SR    4,3 R4 = BYTES FROM 2K UP TO END OF SQS000C
00095C 5041 000C            0000C  1208+         ST    4,12(1) DQE HAS TOTAL SQS BYTES            000C
000960 1B82                        1209+         SR    8,2 R 8 = BYTES FREE IN SQS            000C
000962 5082 0004            00004  1210+         ST    8,4(2) FQE HAS SQS FREE BYTES             000C
000966 07FF                        1211+IEA4SQLV BR    R15 RETURN TO CALLER            000E
000968                             1212+IEA4SQND EQU   * 000E
                                                                                                               PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1214+***
                                   1215+**  THE TTR AND LENGTH OF EACH NON RESIDEN SVC - IBM OR USER - ARE
                                   1216+**  DETERMINED AND SET IN A 4 BYTE ENTRY IN THE SVC TABLE.
                                   1217+***
000968 4150 0098            00098  1218+IEATTRSV LA    R5,SVPRXLN R5 = TOTAL NO. OF SVC'S    000E
00096C 4155 0002            00002  1219+         LA    5,2(5) ALGORITHM ADJUSTMENT
000970 1845                        1220+         LR    4,5 R 4 = TOTAL NO. OF SVC'S
000972 5830 C633            05874  1221+         L     3,XUSERORG R 3 = PNTR TO START OF USER SVC'S
000976 5860 C62F            05870  1222+         L     6,SVCTAB R 6 = PNTR TO START OF IBM SVC'S
00097A 1B36                        1223+         SR    3,6 R 3 = NO. OF IBM SVC'S X 4
00097C 8A30 0002            00002  1224+         SRA   3,2 R 3 = NO. OF IBM SVC'S
000980 1B43                        1225+         SR    4,3 R 4 = NO. OF USER SVC'S
000982 5050 D63F            06880  1226+         ST    5,SVCEXTNT
000986 1835                        1227+         LR    3,5 R 3 = TOTAL NO OF SVC'S
000988 5960 C633            05874  1228+SVXLOOP  C     6,XUSERORG TEST FOR USER SVC TABLE REACHED
00098C 4740 B0E6            0099C  1229+         BC    4,SVXIBM NO THIS IS AN IBM SVC
000990 4110 0100            00100  1230+         LA    1,256 R 1 = HIGHEST USER SVC NUMBER
000994 1B14                        1231+         SR    1,4 R 1 = THIS USER SVC NUMBER
000996 0640                        1232+         BCTR  4,0 DECREMENT NO OF USER SVC'S
000998 47F0 B0F0            009A6  1233+         B     SVXTEST BRANCH TO TEST TYPE 3 OR 4 SVC
00099C 1816                        1234+SVXIBM   LR    1,6 R 1 = PNTR TO IBM SVC TABLE
00099E 5B10 C62F            05870  1235+         S     1,SVCTAB R 1 = IBM SVC NO X 4
0009A2 8A10 0002            00002  1236+         SRA   1,2 R 1 = IBM SVC NUMBER
0009A6 9140 6000      00000        1237+SVXTEST  TM    0(6),X'40' TEST FOR TYPE 3 OR 4 SVC
0009AA 4780 B142            009F8  1238+         BZ    SVXEND NO CONTINUE
0009AE 4E10 D6C7            06908  1239+         CVD   1,SVWA1 YES CONVERT NUMBER TO DECIMAL
0009B2 F332 D693 D6CC 068D4 0690D  1240+         UNPK  SVNAM+4(4),SVWA1+5(3) UNPACK AND SET IN STANDARD NAME
0009B8 4100 D68B            068CC  1241+         LA    0,SVLST R 0 = PNTR TO LIST AREA FOR BLDL
0009BC 5810 0010            00010  1242+         L     1,16 R 1 = PNTR TO CVT
0009C0 5811 0054            00054  1243+         L     1,84(1) R 1 = PNTR TO SVC LIB DCB
0009C4 4111 0000            00000  1244+         LA    1,0(1)
0009C8 0A12                        1245+         SVC   18 LINK TO BLDL ROUTINE
0009CA 12FF                        1246+         LTR   15,15 TEST FOR SVC NOT FOUND
0009CC 4770 B14E            00A04  1247+         BC    7,SVXERR IF NOT FOUND BRANCH TO ERROR ROUTINE
0009D0 4110 D68F            068D0  1248+SVXFOUND LA    1,SVLST+4 R 1 = PNTR TO START OF BLDL LIST
0009D4 4891 000E            0000E  1249+         LH    9,DETTR(1) R 1 = TT OF SVC
0009D8 8B90 0008            00008  1250+         SLA   9,8 MOVE TT TO LEFT ONE BYTE
0009DC 4391 0010            00010  1251+         IC    9,DETTR+2(1) SET R IN REG 9 TO FORM TTR
0009E0 D201 D6CF 101B 06910 0001B  1252+         MVC   HWD(2),DELNTH(1) MOVE LENGTH OF SVC TO HALF WORD BOUND
0009E6 4880 D6CF            06910  1253+         LH    8,HWD R 8 = LENGTH OF SVC
0009EA 8B80 0012            00012  1254+         SLA   8,18 MOVE LENGTH TO LEFT AND
0009EE 1698                        1255+         OR    9,8 COMBINE LENGTH WITH TTR
0009F0 5690 6000            00000  1256+         O     9,0(0,6) ADD SVC TYPE TO INFO
0009F4 5090 6000            00000  1257+         ST    9,0(0,6) SET INFO IN SVC TABLE
0009F8 4166 0004            00004  1258+SVXEND   LA    6,4(6) UPDATE PNTR TO NEXT SVC
0009FC 4630 B0D2            00988  1259+         BCT   3,SVXLOOP TEST FOR END OF SVC COUNT
000A00 47F0 B18A            00A40  1260+         B     IEAEXIT YES EXIT
000A04 5890 C62B            0586C  1261+SVXERR   L     9,XIGCERR R 9 = PNTR TO SVC ERROR ROUTINE
000A08 5096 0000            00000  1262+         ST    9,0(6) SET ERROR RTN PNTR IN SVC TABLE
000A0C 4100 0004            00004  1263+         LA    0,4 R 0 = FOUR
000A10 1BF0                        1264+         SR    15,0 TEST REG 15 FOR TYPE OF ERROR
000A12 4780 B174            00A2A  1265+         BC    8,SVXERR2 MODULE WAS NOT FOUND
000A16 D203 0048 C527 00048 05768  1266+         MVC   72(4),IOEROCAW PERMANENT I/O ERROR DURING BLDL
000A1C D20A CAB1 DA07 05CF2 06C48  1267+         MVC   IOEROLIB+Q1(Q11),IEASVCNM SPECIFY SYS1.SVCLIB    21016
000A22 4550 C285            054C6  1268+SVXERR1  BAL   R5,IEACONSL WRITE THE ERROR MSG             MCS0
                                                                                                               PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000A26 47F0 B142            009F8  1269+         B     SVXEND GET NEXT SVC
000A2A D20A CA65 DA07 05CA6 06C48  1270+SVXERR2  MVC   SLIBNM(11),IEASVCNM SET DATA SET NAME IN MSG        MCS0
000A30 D207 CA4F D68F 05C90 068D0  1271+         MVC   SMBNAM(8),SVNAM SET MODULE NAME IN MESSAGE
000A36 D203 0048 C54F 00048 05790  1272+         MVC   72(4),WARNING WRITE THE NOT FOUND MESSAGE
000A3C 47F0 B16C            00A22  1273+         B     SVXERR1 CONTINUE TO HANDLE SVC'S
000A40 D70B CAB0 CAB0 05CF1 05CF1  1274+IEAEXIT  XC    IOEROLIB(Q12),IOEROLIB ZERO MSG APPENDAGE         21016
                                                                                                               PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1276+***
                                   1277+**  IF THE SYS1.LINKLIB RESIDES ON THE SYS-RES DEVICE, THE DEB IS
                                   1278+**  INITIALIZED IN THE SAME MANNER AS THE OTHER SYSTEM DATA SETS.
                                   1279+**  THIS IS DETERMINED BY ISSUING A LOCATE. IF THE VOLUME LABELS ARE
                                   1280+**  DIFFERENT, THE DAD TABLE IS INSPECTED. IF NOT FOUND IN THE TABLE,
                                   1281+**  A MOUNT COMMAND IS ISSUED. WHEN FOUND THE UCB IS FLAGGED AS
                                   1282+**  PERMANENTLY RESIDENT BY SETTING THE UCB STATUS.
                                   1283+***
000A46 9620 D52B      0676C        1284+         OI    IEASWITC,TEMPDEB INDICATE TEMPORARY DEB ONLY MXMV
000A4A 5810 0010            00010  1285+         L     R1,CVTPNTR R1 = PTR TO CVT ADDRESS     000E
000A4E 5811 0008            00008  1286+         L     R1,CVTLINK(R1) R1 = PTR TO LINKLIB DCB     000E
000A52 45E0 C07B            052BC  1287+         BAL   R14,IEACOMON INITIALIZE SKELETON DEB     000E
000A56 94DF D52B      0676C        1288+         NI    IEASWITC,255-TEMPDEB RESET TEMPORARY DEB SWITCH  MXMV
000A5A D20B D9DB DA12 06C1C 06C53  1289+         MVC   IEADSTNM(L'IEALNKNM),IEALNKNM SYS1.LINKLIB LOCATE  000E
000A60 D21F D9E7 DA35 06C28 06C76  1290+         MVC   IEADSTNM+L'IEALNKNM(44-L'IEALNKNM),IEABLNCS 000E
000A66 4590 C13B            0537C  1291+         BAL   9,IEALOCAT ISSUE LOCATE SVC TO FIND VOLUM ID
000A6A 91FF D512      06753        1292+         TM    LOCATEOK,X'FF' TEST FOR CATLG ENTRY FOUND      000A
000A6E 4710 C029            0526A  1293+         BC    1,IEAERRA NO - ENTER WAIT STATE NO LNKLIB21016
000A72 D206 CA16 DA17 05C57 06C58  1294+         MVC   IEADSNAM(7),IEALNKNM+5 SET UP FOR POSSIBLE ERROR  000C
000A78 4530 C19D            053DE  1295+         BAL   3,IEASERCH FIND UNIT ADDR AND UCB ADDR     000A
000A7C 4550 C0BD            052FE  1296+         BAL   5,IEAUCBFN FIND UCB ADDR FOR UNIT IN REG 10000A
000A80 94FF D516      06757        1297+         NI    IEAINDIC,X'FF' TEST FOR UCB FOUND              000A
000A84 4780 C0D5            05316  1298+         BC    8,IEANOUCB NO - WRITE MESSAGE AND WAIT     000A
000A88 40A0 D2D7            06518  1299+         STH   R10,LINKUNIT SAVE LINKLIB UNIT ADDRESS  000E
000A8C 4890 D2D3            06514  1300+         LH    9,IEAUCBHL R 9 = PNTR TO UCB               000A
000A90 4560 C123            05364  1301+         BAL   6,IEARDVOL READ VTOC INFO FOR SYSRES                000B
000A94 9684 9003      00003        1302+         OI    3(9),X'84' STATUS = ONLINE AND PERM RES    000A
                                   1303+* NOTE: THE INOPERATIVE CHANNEL PATH ROUTINES REQUIRE THAT THE     000D
                                   1304+*       LINKLIB DEB BE INITIALIZED AFTER THE SVC TABLE             000D
000A98 9610 D52B      0676C        1305+         OI    IEASWITC,MXCALL INDICATE LIB W/ POSS EXTENTSMXMV
000A9C 5810 0010            00010  1306+         L     1,16 R 1 = PNTR TO CVT               000A
000AA0 5811 0008            00008  1307+         L     1,CVTLINK(1) R 1 = PNTR TO LINKLIB DCB
000AA4 45E0 C07B            052BC  1308+         BAL   R14,IEACOMON INITIALIZE FINAL LINK DEB   000E
000AA8 94EF D52B      0676C        1309+         NI    IEASWITC,255-MXCALL RESET MULTIPLE EXTENT SWITCHMXMV
                                                                                                               PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1311+***
                                   1312+** THIS ROUTINE WRITES THE ASSUMED HARDWARE MODEL NUMBER ON THE    000E
                                   1313+** SYSTEM CONSOLE. THIS NUMBER CORRESPONDS TO THE PRIMARY MODEL    000E
                                   1314+** SELECTED AT SYSTEM GENERATION TIME. IT IS EXPECTED THAT THE     000E
                                   1315+** OPERATOR WILL CORRECT AN INCONSISTENT MODEL NUMBER BY USING     000E
                                   1316+** THE MOD= OPTION IN HIS RESPONSE TO "SPECIFY SYSTEM PARAMETERS"  000E
                                   1317+***
000AAC 4850 D51F            06760  1318+         LH    R5,CPUMODL GET CPU MODEL NO               19035
000AB0 8950 0004            00004  1319+         SLL   R5,Q4 MAKE ROOM FOR SIGN             19035
000AB4 4150 500F            0000F  1320+         LA    R5,Q15(,R5) ADD 'F' SIGN CHARACTER      @SA64900
000AB8 4050 D525            06766  1321+         STH   R5,CPUMOD RESTORE ID WITH SIGN
000ABC F321 CF68 D525 061A9 06766  1322+         UNPK  MODELNO(Q3),CPUMOD(Q2) UNPK NO. INTO MSG.
000AC2 910F CF68      061A9        1323+         TM    MODELNO,X'0F' IS FIRST NUMBER A ZERO         19035
000AC6 4770 B21E            00AD4  1324+         BNZ   MODNOZRO NO-LEAVE IT                    19035
000ACA D20E CF68 CF69 061A9 061AA  1325+         MVC   MODELNO(MODNOFIN-MODELNO-Q1),MODELNO+Q1 P4500
000AD0 9240 CF77      061B8        1326+         MVI   MODNOFIN-Q1,X40 MOVE MSG  1 BYTE LEFT          19035
000AD4                             1327+MODNOZRO EQU   * 19035
000AD4 D203 0048 C5DF 00048 05820  1328+         MVC   72(4),IEAMDCAW SET CAW FOR 218I MESSAGE   000E
000ADA 4550 C285            054C6  1329+         BAL   R5,IEACONSL WTO MODEL NUMBER ASSUMED   000E
                                                                                                               PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1331+***
                                   1332+**  THIS ROUTINE PROVIDES COMMUNICATION WITH THE OPERATOR FOR THE
                                   1333+**  PURPOSE OF CHANGING SUFFIXES TO STANDARD NAMES OF MODULE LISTS
                                   1334+**  AND RESPECIFYING VALUE OPERANDS. A LIST OF MODULES MAY BE REQUESTED
                                   1335+**  TO BE PRINTED ON THE CONSOLE.
                                   1336+***
000ADE 5850 0010            00010  1337+         L     R5,CVTPNTR GET PTR TO CVT                A31235
000AE2 41A0 D8AA            06AEB  1338+         LA    R10,OPMSGTAB-Q7 PTR TO SYS TYPE TABLE         A31235
000AE6 41AA 0007            00007  1339+OPMLOOP  LA    R10,Q7(R10) UP PTR TO NXT TABLE ENTRY     A31235
000AEA D500 5074 A000 00074 00000  1340+         CLC   Q116(Q1,R5),Q0(R10) IS THIS THE SYS TYPE          A31235
000AF0 4770 B230            00AE6  1341+         BNE   OPMLOOP NO-TRY NXT ENTRY              A31235
000AF4 D205 C950 A001 05B91 00001  1342+         MVC   OPMSYSTM(Q6),Q1(R10) MOVE SYS TYPE INTO MSG       A31235
000AFA 41A0 0004            00004  1343+         LA    R10,Q4 DECRIMENT TO CVTRELNO FLD     A31235
000AFE 1B5A                        1344+         SR    R5,R10 POINT TO REL NUMBER           A31235
000B00 D201 C94A 5000 05B8B 00000  1345+         MVC   OPMRELNO(Q2),Q0(R5) MOVE REL NO INTO MSG          A31235
000B06 D201 C94D 5002 05B8E 00002  1346+         MVC   OPMLEVEL(Q2),Q2(R5) MOVE REL LEVEL INTO MSG       A31235
000B0C D203 0048 C50B 00048 0574C  1347+         MVC   CAW(Q4),OPMSGCAW SET CAW FOR WTO MSG IEA101A   A31235
000B12 4550 C285            054C6  1348+         BAL   R5,IEACONSL WRITE MSG TO OPERATOR           MCS0
000B16 4120 B2BC            00B72  1349+         LA    2,TESTON1 SET CONTIN ADDR FOR 1ST REPLY    0755
000B1A D24F D6FB DA35 0693C 06C76  1350+IEARESPC MVC   ANSRAREA(80),IEABLNCS CLEAR INPUT BUFFER         000C
000B20 D203 0048 C51B 00048 0575C  1351+         MVC   72(4),ANSWRCAW SET CAW TO READ OPERATOR REPLY
000B26 9680 D52A      0676B        1352+         OI    IEASWITB,CANXSWIT SET TO TEST FOR 'CANCEL'
000B2A 4550 C26D            054AE  1353+         BAL   R5,IEACONIN READ THE REPLY                  MCS0
000B2E 48A0 D2DF            06520  1354+         LH    10,IEAUNIT R10 = CONSOLE OUTPUT ADDR
000B32 947F D52A      0676B        1355+         NI    IEASWITB,NOCANCEL RESET TO SKIP 'CANCEL' CHECK
000B36 4700 B28E            00B44  1356+EOBTEST  BC    0,SKPBLANK NO EOB SECOND TIME         000C
000B3A D54F D6FB DA35 0693C 06C76  1357+         CLC   ANSRAREA(80),IEABLNCS TEST FOR EOB DEFAULT       000C
000B40 4780 B84A            01100  1358+         BE    IEAENDCM YES, BYPASS REST OF RTN    000C
000B44 4160 D6FB            0693C  1359+SKPBLANK LA    6,ANSRAREA R6 PTR TO ANSWER BUFFER    000C
000B48 D64F D6FB DA35 0693C 06C76  1360+         OC    ANSRAREA(80),IEABLNCS INSURE UPPER CASE RESPONSE 000C
000B4E D509 D753 6000 06994 00000  1361+         CLC   IEARPLYR(10),0(6) TEST PROPER REPLY FORMAT
000B54 4780 B2B0            00B66  1362+         BE    TESTON
000B58 D505 D75D 6000 0699E 00000  1363+         CLC   IEARPLYS(6),0(6) TEST 'R' ABBREV -U.C.              000A
000B5E 4780 B2B6            00B6C  1364+         BE    IEAABREV 000A
000B62 47F0 B83C            010F2  1365+         B     IEAOPERR 1329
000B66 4166 000A            0000A  1366+TESTON   LA    6,10(6) UPDATE ANSER PNTR TO PARMS
000B6A 07F2                        1367+         BR    2 BRANCH TO                  0755
                                   1368+*                                         TESTON1 IF NO PARMS SET  0755
                                   1369+*                                         IEABLANK IF ANY PARMS SET0755
000B6C 4166 0006            00006  1370+IEAABREV LA    6,6(6) UPDATE PARM PTR            000A
000B70 07F2                        1371+         BR    2 POSSIBLE BRANCH AROUND TESTON1            000A
000B72 D501 D763 6000 069A4 00000  1372+TESTON1  CLC   IEAUU(2),0(6) TEST FOR DEFAULT
000B78 4780 B84A            01100  1373+         BE    IEAENDCM IF DEFAULT SKIP THIS ROUTINE
000B7C D505 D769 6000 069AA 00000  1374+IEALCS00 CLC   IEALCSLH(6),0(6) TEST FOR DEFAULT,LIST,HIER 000E
000B82 4780 B300            00BB6  1375+         BE    IEALCS10 YES, SET LIST SWITCHES     000E
000B86 D503 D76F 6000 069B0 00000  1376+         CLC   IEALCSH(4),0(6) TEST FOR DEFAULT, HIERARCHY000E
000B8C 4780 B314            00BCA  1377+         BE    IEALCS20 YES, SET SW FOR HIER LIST  000E
000B90 D503 D765 6000 069A6 00000  1378+         CLC   IEAUUU(4),0(R6) TEST FOR DEFAULT WITH LIST(S)   4810
000B96 4780 B304            00BBA  1379+         BE    IEADEFLT IF DEFAULT TAKE BRANCH     4810
                                   1380+* TEST FOR FINAL QUOTE - IF MISSING, CONSIDER OPERATOR'S REPLY     4810
                                   1381+* INVALID AND WRITE OUT IEA102A MESSAGE. OTHERWISE PROCESS REPLY   4810
000B9A 1836                        1382+         LR    R3,R6 R3 - PTR TO CHARACTER      4810
000B9C 5800 C5F3            05834  1383+         L     R0,ANSWREND R0 - PTR TO END OF BUFFER  4810
000BA0 957D 3000      00000        1384+QUOTTEST CLI   0(R3),C'''' TEST FOR FINAL QUOTE       4810
000BA4 4780 B328            00BDE  1385+         BE    IEABLANK YES, PROCESS PARAMETERS    4810
                                                                                                               PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000BA8 4133 0001            00001  1386+         LA    R3,1(R3) NO; INDEX TO NEXT CHARACTER4810
000BAC 1903                        1387+         CR    R0,R3 CHECK FOR BUFFER END       4810
000BAE 4780 B83C            010F2  1388+         BE    IEAOPERR IF REACHED, REJECT REPLY    000E
000BB2 47F0 B2EA            00BA0  1389+         B     QUOTTEST NO, TEST CHARACGER         4810
000BB6 92F0 B30D      00BC3        1390+IEALCS10 MVI   IEANOHY+1,X'F0' 'H' PARM IGNORED, NO LCS   000E
000BBA                             1391+IEADEFLT EQU   * 000E
000BBA 92FF D7D1      06A12        1392+         MVI   IEARAMLL,X'FF' SET LIST SWITCH FOR RAM
000BBE 92FF D823      06A64        1393+         MVI   IEASVCLL,X'FF'
000BC2 4700 B314            00BCA  1394+IEANOHY  BC    0,IEALCS20 SET UP MSG THAT 'H' NOT OK 000E
000BC6 47F0 B84A            01100  1395+         B     IEAENDCM BRANCH AROUND REST OF ROUTINE
000BCA D205 CA79 D857 05CBA 06A98  1396+IEALCS20 MVC   PARAMTER(6),IEAHCHAR SET UP MSG THAT PARAMETER  000E
000BD0 D203 0048 C523 00048 05764  1397+         MVC   72(4),IEANOPRM IS IGNORED                 000E
000BD6 4550 C285            054C6  1398+         BAL   R5,IEACONSL GO TO SIO RTN                   MCS0
000BDA 47F0 B84A            01100  1399+         B     IEAENDCM EXIT COMM ROUTINE          000E
000BDE 47F0 B32C            00BE2  1400+IEABLANK B     FINDPARM 000D
000BE2 957D 6000      00000        1401+FINDPARM CLI   0(R6),C'''' TEST FOR END OF REPLY      4810
000BE6 4780 B84A            01100  1402+         BE    IEAENDCM YES BRANCH AROUND SCAN ROUTINE
000BEA 9540 6000      00000        1403+         CLI   0(6),C' ' TEST FOR A BLANK
000BEE 4770 B344            00BFA  1404+         BNE   IEAPARAM NOT BLANK - TEST FOR PARAMETER
000BF2 4166 0001            00001  1405+         LA    6,1(6) OTHERWISE UPDATE ANSWER PNTR
000BF6 47F0 B328            00BDE  1406+         B     IEABLANK OTHERWISE CONTINUE BLANK TEST
000BFA D503 6000 D864 00000 06AA5  1407+IEAPARAM CLC   0(4,6),IEARAM+1 IS THIS PARAMETER RAM=
000C00 4770 B35E            00C14  1408+         BNE   IENTPM 23050
000C04 4170 D7C7            06A08  1409+         LA    7,IEARAMLS R7 POINTS TO RAM RTN'S BUFFER
000C08 4166 0004            00004  1410+         LA    6,4(6) R6 POINTS TO 2 CHAR SUFFIX OR ,
000C0C 4190 D7D1            06A12  1411+         LA    9,IEARAMLL R9 POINTS TO RAM LIST SWITCH
000C10 47F0 B5C2            00E78  1412+         B     IEAGETPM MOVE SUFFIX TO RAM BUFFER
000C14 D504 6000 D7D3 00000 06A14  1413+IENTPM   CLC   Q0(Q5,R6),IEAHRAM+Q1 IS PARM HRAM=                 23050
000C1A 4770 B372            00C28  1414+         BNE   IENXTPRM NO-TEST NEXT ONE                23050
000C1E D206 CA79 D7D2 05CBA 06A13  1415+         MVC   PARAMTER(Q7),IEAHRAM SET UP MSG HRAM IGNORED      23050
000C24 47F0 B758            0100E  1416+         B     IEAIGNOR AMD BRANCH TO WRITE MSG         23050
000C28 D504 6000 D88E 00000 06ACF  1417+IENXTPRM CLC   0(5,6),IEABLDL+1 IS THIS PARAMETER BLDL=
000C2E 4770 B386            00C3C  1418+         BNE   RERPTST TEST NEXT POSSIBLE PARM        19017
000C32 D205 CA79 D88D 05CBA 06ACE  1419+         MVC   PARAMTER(6),IEABLDL SET UP MSG THAT BLDL IS IGNORED
000C38 47F0 B758            0100E  1420+         B     IEAIGNOR AND BRANCH TO PRINT MSG
000C3C D504 6000 D805 00000 06A46  1421+RERPTST  CLC   Q0(Q5,R6),IEAERP+Q1 IS THIS PARM RERP=             19017
000C42 4770 B39A            00C50  1422+         BNE   IEASVTST NO-TEST NEXT POSSIBLE PARM     19017
000C46 D205 CA79 D804 05CBA 06A45  1423+         MVC   PARAMTER(Q6),IEAERP SET MSG RERP= IS IGNORED       19017
000C4C 47F0 B758            0100E  1424+         B     IEAIGNOR PRINT MSG                      19017
000C50 D504 6000 D89A 00000 06ADB  1425+IEASVTST CLC   0(5,6),IEASVC+1
000C56 4770 B3B4            00C6A  1426+         BNE   IEAHSVCT NO-TEST NEXT VALID PARAMETER   23050
000C5A 4170 D83F            06A80  1427+         LA    7,IEASVCLS
000C5E 4166 0005            00005  1428+         LA    6,5(6)
000C62 4190 D823            06A64  1429+         LA    9,IEASVCLL
000C66 47F0 B5C2            00E78  1430+         B     IEAGETPM GET THE PARAMETER
000C6A D504 6000 D82D 00000 06A6E  1431+IEAHSVCT CLC   Q0(Q5,R6),IEAHSVC+Q1 IS PARM HSVC=                 23050
000C70 4770 B3C8            00C7E  1432+         BNE   IEAJQTST NO-TEST NEXT                   23050
000C74 D205 CA79 D82C 05CBA 06A6D  1433+         MVC   PARAMTER(Q6),IEAHSVC SET UP MSG HSVC IGNORED      23050
000C7A 47F0 B758            0100E  1434+         B     IEAIGNOR AND BRANCH TO PRINT MSG        23050
000C7E D502 6000 D85E 00000 06A9F  1435+IEAJQTST CLC   0(3,6),IEARJQ+1 TEST FOR RQ=
000C84 4770 B3DC            00C92  1436+         BNE   IENXTPRN TEST FOR NEXT PARAMETER
000C88 D205 CA79 D85D 05CBA 06A9E  1437+         MVC   PARAMTER(6),IEARJQ SET UP MSG THAT RJQ IS IGNORED
000C8E 47F0 B758            0100E  1438+         B     IEAIGNOR AND BRANCH TO PRINT MSG
000C92 D503 6000 D86A 00000 06AAB  1439+IENXTPRN CLC   0(4,6),IEASQSQS+1 TEST  THIS PARAMETER FOR SQS=
000C98 4770 B3FA            00CB0  1440+         BNE   IENXTPRO NO- TEST NEXT VALID PARAMETER
                                                                                                               PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000C9C 4190 D67B            068BC  1441+         LA    9,IEASQSDL R 9 = PNTR TO NULL OPT SWITCH
000CA0 4170 D647            06888  1442+         LA    7,IEASQSLS R 7 = PNTR TO SQS BUFFER
000CA4 4166 0004            00004  1443+         LA    6,4(6) UPDATE PNTR TO REPLY
000CA8 92FF D51A      0675B        1444+         MVI   IEAONECH,X'FF' SET 'MOVE ONE CHARACTER' SWITCH
000CAC 47F0 B5C2            00E78  1445+         B     IEAGETPM MOVE THE DIGIT FROM REPLY TOBUF
000CB0 D503 6000 D870 00000 06AB1  1446+IENXTPRO CLC   0(4,6),IEAMS2KS+1 TEST THIS PARAMETER FOR PART=
000CB6 4770 B418            00CCE  1447+         BNE   IENXTPRP NO GET NEXT VALID PARAMETER
000CBA 4190 D67C            068BD  1448+         LA    9,IEAM2KDL R 9 = PNTR TO NULL OPT SWITCH
000CBE 4170 D64F            06890  1449+         LA    7,IEAM2KLS R 7 = PNTR TO PART BUFFER
000CC2 4166 0004            00004  1450+         LA    6,4(6) UPDATE PNTR TO REPLY
000CC6 92FF D51A      0675B        1451+         MVI   IEAONECH,X'FF' SET 'MOVE ONE CHARACTER' SWITCH
000CCA 47F0 B5C2            00E78  1452+         B     IEAGETPM GET PARAMETER VALUE
000CCE D503 6000 D876 00000 06AB7  1453+IENXTPRP CLC   0(4,6),IEAMINDC+1 TEST RESPONSE FOR MIN=
000CD4 4770 B436            00CEC  1454+         BNE   IENXTPRQ NO TEST NEXT VALID PARAMETER
000CD8 4190 D67D            068BE  1455+         LA    9,IEAMINDL R 9 = PNTR TO LIST NULL SWITCH
000CDC 4170 D657            06898  1456+         LA    7,IEAMINLS R 7 = PNTR TO PARM BUFFER
000CE0 4166 0004            00004  1457+         LA    6,4(6) UPDATE PNTR TO REPLY
000CE4 92FF D51A      0675B        1458+         MVI   IEAONECH,X'FF' SET VALUE SWITCH
000CE8 47F0 B5C2            00E78  1459+         B     IEAGETPM GET PARAMETER VALUE
000CEC D503 6000 D87C 00000 06ABD  1460+IENXTPRQ CLC   0(4,6),IEAQBFDC+1 TEST RESPONSE FOR QBF=
000CF2 4770 B454            00D0A  1461+         BNE   DDRALTST NO,CHECK FOR ALTSYS            19022
000CF6 4190 D67E            068BF  1462+         LA    9,IEAQBFDL R 9 = PNTR TO LIST NULL SWITCH
000CFA 4170 D65F            068A0  1463+         LA    7,IEAQBFLS R 7 = PNTR TO PARM BUFFER
000CFE 4166 0004            00004  1464+         LA    6,4(6) UPDATE PNTR TO REPLY
000D02 92FF D51A      0675B        1465+         MVI   IEAONECH,X'FF' SET VALUE SWITCH
000D06 47F0 B5C2            00E78  1466+         B     IEAGETPM GET PARAMETER VALUE
000D0A                             1467+DDRALTST EQU   * 19022
000D0A D506 6000 D89F 00000 06AE0  1468+         CLC   Q0(Q7,R6),DDRALTCN TEST FOR ALTSYS=               19022
000D10 4770 B468            00D1E  1469+         BNE   IEASRCOM NO, GET NEXT VALID PARM        19022
000D14 D205 CA79 D89F 05CBA 06AE0  1470+         MVC   PARAMTER(Q6),DDRALTCN SET MSG THAT ALTSYS          19022
000D1A 47F0 B758            0100E  1471+         B     IEAIGNOR IGNORED                        19022
000D1E D503 6000 D882 00000 06AC3  1472+IEASRCOM CLC   0(4,6),IEAMODEL+1 TEST RESPONSE FOR MOD=     000C
000D24 4770 B514            00DCA  1473+         BNE   TMSLPARM NO, TEST FOR NEXT PARM     000D
000D28 92F0 B281      00B37        1474+         MVI   EOBTEST+1,X'F0' NO 'U' OR 'U,L' NEXT TIME  000C
000D2C 4180 0001            00001  1475+         LA    R8,Q1 20065
000D30 4176 0006            00006  1476+         LA    R7,Q6(R6) POINT TO END IF 2 CHARACTERS       20065
000D34 956B 7000      00000        1477+TESTVALU CLI   Q0(R7),C',' IS COMMA                           20065
000D38 4780 B49A            00D50  1478+         BE    TESTTAB YES                                20065
000D3C 957D 7000      00000        1479+         CLI   Q0(R7),C'''' IS QUOTE                           20065
000D40 4780 B49A            00D50  1480+         BE    TESTTAB YES                                20065
000D44 4680 B83C            010F2  1481+         BCT   R8,IEAOPERR MORE THEN 3 CHAR.- ERROR           20065
000D48 4177 0001            00001  1482+         LA    R7,Q1(R7) THE ID IS 3 CHARACTERS             20065
000D4C 47F0 B47E            00D34  1483+         B     TESTVALU 20065
000D50 4166 0004            00004  1484+TESTTAB  LA    R6,Q4(R6) POINT TO CPU VALUE                 20065
000D54 1288                        1485+         LTR   R8,R8 IS REG 8 ZERO                      20065
000D56 4780 B4B2            00D68  1486+         BZ    TAB3 YES - BRANCH TO PACK 3 CHARACTERS  20066
000D5A F211 D525 6000 06766 00000  1487+         PACK  CPUMOD(Q2),Q0(Q2,R6) N NO-PACK 2 CHAR.             20066
000D60 4166 0002            00002  1488+         LA    R6,Q2(R6) INCREMENT MSG POINTER              20066
000D64 47F0 B4BC            00D72  1489+         B     TABSCAN 20065
000D68 F212 D525 6000 06766 00000  1490+TAB3     PACK  CPUMOD(Q2),Q0(Q3,R6) PACK 3 CHAR.                 20065
000D6E 4166 0003            00003  1491+         LA    R6,Q3(R6) INCREMENT MSG POINTER              20065
000D72 4170 D267            064A8  1492+TABSCAN  LA    R7,CPUTAB GET ADD. OF CPU ID TABLE           20065
000D76 4190 0002            00002  1493+         LA    R9,Q2 TABLE INCREMENT                    20065
000D7A D501 7000 D33B 00000 0657C  1494+ENDTAB   CLC   Q0(Q2,R7),IEALAST END OF TABLE                    20065
000D80 4780 B83C            010F2  1495+         BE    IEAOPERR YES-CPU ID NOT VALID               20065
                                                                                                               PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000D84 D501 7000 D525 00000 06766  1496+         CLC   Q0(Q2,R7),CPUMOD IS CPU ID IN TABLE               20065
000D8A 4780 B4DE            00D94  1497+         BE    SAVEID YES- SAVE IT AS NEW CPU ID         20065
000D8E 1A79                        1498+         AR    R7,R9 INCREMENT TABLE POINTER            20065
000D90 47F0 B4C4            00D7A  1499+         B     ENDTAB CHECK NEXT ENTRY IN TABLE          20065
000D94 4870 D525            06766  1500+SAVEID   LH    R7,CPUMOD GET NEW ID                         20065
000D98 8870 0004            00004  1501+         SRL   R7,Q4 DISCARD SIGN BITS                  20065
000D9C 4070 D51F            06760  1502+         STH   R7,CPUMODL SAVE VALUE                         20065
000DA0 1288                        1503+         LTR   R8,R8 IS CPU ID THREE DIGITS             20065
000DA2 4770 B500            00DB6  1504+         BNZ   SAVMODID NO-SAVE VALUE                      20065
000DA6 4270 D51C            0675D  1505+         STC   R7,MODELID @SA64968
000DAA 9108 D51C      0675D        1506+         TM    MODELID,Q8 IS MODEL 158 OR 168         @SA64968
000DAE 4710 B500            00DB6  1507+         BO    SAVMODID YES, SAVE LAST TWO DIGITS   @SA64968
000DB2 8870 0004            00004  1508+         SRL   R7,Q4 SAVE ONE CHARACTER REPRESENTATION  20065
000DB6 4270 D51C            0675D  1509+SAVMODID STC   R7,MODELID 20065
000DBA 956B 6000      00000        1510+         CLI   Q0(R6),C',' IS COMMA                           20065
000DBE 4770 B328            00BDE  1511+         BNE   IEABLANK 20065
000DC2 4166 0001            00001  1512+         LA    R6,Q1(R6) INCREMENT PARM POINTER             20065
000DC6 47F0 B328            00BDE  1513+         B     IEABLANK 20065
000DCA D504 6000 D894 00000 06AD5  1514+TMSLPARM CLC   0(5,6),TMSL+1 TEST RESPONSE FOR TMSL=    000D
000DD0 4770 B528            00DDE  1515+         BNE   HCPSERCH NO,CHECK FOR MSG CONTINUED
000DD4 D205 CA79 D893 05CBA 06AD4  1516+         MVC   PARAMTER(6),TMSL SET MSG THAT TMSL          000D
000DDA 47F0 B758            0100E  1517+         B     IEAIGNOR IGNORED                    000D
000DDE                             1518+HCPSERCH EQU   *
000DDE D507 6000 D8A6 00000 06AE7  1519+         CLC   Q0(Q8,Q6),HARCOPY TEST THIS PARM FOR HARCOPY=     MCS0
000DE4 4770 B572            00E28  1520+         BNE   IEAHYLST CHECK FOR HIER LIST REQUEST     MCS0
000DE8 4166 0008            00008  1521+         LA    R6,Q8(R6) REALIGN POINTER TO DATA FIELD   MCS0
000DEC 956B 6000      00000        1522+         CLI   Q0(R6),X6B TEST FOR CANCEL DEFAULT VALUE   MCS0
000DF0 4780 B552            00E08  1523+         BE    HCPSERCA GO TO CANCEL DEFAULT VALUE      MCS0
000DF4 954D 6000      00000        1524+         CLI   Q0(R6),C'(' TEST FOR PAREN DELIMITER              MCS0
000DF8 4770 B83C            010F2  1525+         BNE   IEAOPERR NONE, INVALID                         MCS0
000DFC 4550 C04F            05290  1526+         BAL   R5,IEASHCP2 GO TO PARAMETER HANDLING ROUTINEMCS0
000E00 47F0 B566            00E1C  1527+         B     HCPSERCB TEST NEXT FIELD ON GOOD RETURN  MCS0
000E04 47F0 B83C            010F2  1528+         B     IEAOPERR WRITE ERROR MESSAGE             MCS0
000E08                             1529+HCPSERCA EQU   * MCS0
000E08 D203 D3F4 D447 06635 06688  1530+         MVC   HARDCOPY(Q4),FULLZERO ZERO OUT                      MCS0
000E0E D701 D3F9 D3F9 0663A 0663A  1531+         XC    ROUTCODE(Q2),ROUTCODE PARM FIELDS                   MCS0
000E14 94DF D3FB      0663C        1532+         NI    CPYCMDS,Q255-UCMSYSC RESET HARDCOPY COMMAND SWITCH  MCS0
000E18 47F0 B80E            010C4  1533+         B     BUMPPNTR CONTINUE PROCESSING             MCS0
000E1C                             1534+HCPSERCB EQU   * MCS0
000E1C 956B 6000      00000        1535+         CLI   Q0(R6),X6B TEST FOR COMMA                  MCS0
000E20 4770 B32C            00BE2  1536+         BNE   FINDPARM FURTHER TEST DELIMINATOR        MCS0
000E24 47F0 B80E            010C4  1537+         B     BUMPPNTR TEST NEXT FIELD AFTER COMMA     MCS0
000E28 D500 6000 D858 00000 06A99  1538+IEAHYLST CLC   0(1,6),IEAHCHAR+1 TEST FOR HIERARCHY LIST REQ000E
000E2E 4770 B58A            00E40  1539+         BNE   IEACTMSG NO,CHECK FOR MSG CONTINUED 000E
                                   1540+* THIS IS GENERALIZED TEST ROUTINE THAT VALIDITY CHECKS THE NXT BYTE
000E32 4550 B826            010DC  1541+         BAL   R5,COMSTANT GO TEST NEXT BYTE IN MESSAGE     MCS0
000E36 D205 CA79 D857 05CBA 06A98  1542+         MVC   PARAMTER(6),IEAHCHAR SET UP MSG THAT 'H' IGNORED000E
000E3C 47F0 B758            0100E  1543+         B     IEAIGNOR 000E
                                   1544+* THIS ROUTINE ALLOWS FOR MORE THAN ONE LINE OF SYSTEM PARAMETERS
000E40 D503 6000 D888 00000 06AC9  1545+IEACTMSG CLC   0(4,6),IEACONTC+1 IS THIS MSG CONTINUED?     000C
000E46 4770 B83C            010F2  1546+         BNE   IEAOPERR NO - WRITE INVALID MESSAGE
000E4A 4166 0003            00003  1547+CONTNTRY LA    6,3(6) UPDAT ANS BUF PTR BY 3     000D
000E4E 4166 0001            00001  1548+IEACONT1 LA    6,1(6) UPDATE PTR TO ANS BUF BY 1
000E52 9540 6000      00000        1549+         CLI   0(6),X'40' TEST FOR BLANK
000E56 4780 B598            00E4E  1550+         BE    IEACONT1 YES - BRANCH TO TEST NEXT CHAR
                                                                                                               PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000E5A 957D 6000      00000        1551+         CLI   0(6),C'''' TEST FOR END OF REPLY
000E5E 4770 B83C            010F2  1552+         BC    7,IEAOPERR NO - BRANCH TO PRINT ERROR MSG
000E62 D203 0048 C517 00048 05758  1553+         MVC   72(4),OPCNTCAW SET CAW TO WRITE TO OPERATOR
000E68 4550 C285            054C6  1554+         BAL   R5,IEACONSL WRITE MSG TO OPERATOR           MCS0
000E6C 4120 B328            00BDE  1555+         LA    2,IEABLANK DO NOT ALLOW U OR U,L FOR ADDIT REPLIES  0755
000E70 92F0 B281      00B37        1556+         MVI   EOBTEST+1,X'F0' NO 'U' OR 'U,L' NEXT TIME  000C
000E74 47F0 B264            00B1A  1557+         B     IEARESPC BRANCH TO PROCESS CONTD. REPLY
000E78 1B88                        1558+IEAGETPM SR    8,8 R 8 = COUNT OF SUFFIXES
000E7A 4120 B328            00BDE  1559+         LA    2,IEABLANK DO NOT ALLOW U OR U,L FOR NEXT REPLY     0755
000E7E 92F0 B281      00B37        1560+         MVI   EOBTEST+1,X'F0' NO 'U' OR 'U,L' NEXT TIME  000C
000E82 D207 7000 DA35 00000 06C76  1561+         MVC   0(8,7),IEABLNCS CLEAR SUFFIX BUFFER
000E88 956B 6000      00000        1562+         CLI   0(6),C',' TEST FOR NULL OPTION
000E8C 4780 B806            010BC  1563+         BE    IEANULLP YES SET NULL SWITCH
000E90 9200 9000      00000        1564+         MVI   0(9),X'00' .    CLEAR LIST SWITCH               BH 59043
000E94 9540 6000      00000        1565+         CLI   0(R6),C' ' TEST FOR BLANK AFTER PARM   000E
000E98 4780 B83C            010F2  1566+         BE    IEAOPERR YES, REJECT PARM AS INVALID 000E
000E9C 957D 6000      00000        1567+         CLI   0(R6),C'''' TEST FOR QUOTE AFTER PARM   000E
000EA0 4780 B83C            010F2  1568+         BE    IEAOPERR YES, REJECT PARM AS INVALID 000E
000EA4 91FF D51A      0675B        1569+         TM    IEAONECH,X'FF' TEST VALUE SWITCH ON
000EA8 4710 B6DA            00F90  1570+         BC    1,IEAGETON YES GET NUMBER VALUE
000EAC 957D 6001      00001        1571+         CLI   Q1(R6),X7D TEST FOR A 1 CHAR + QUOTE     A31745
000EB0 4780 B626            00EDC  1572+         BE    IEAGOTPM YES, CONTINUE TO PROCESS IT   A31745
000EB4 956B 6001      00001        1573+         CLI   Q1(R6),X6B SINGLE CHAR + A COMMA         A31745
000EB8 4780 B626            00EDC  1574+         BE    IEAGOTPM YES, CONTINUE TO PROCESS IT   A31745
000EBC 9540 6001      00001        1575+         CLI   Q1(R6),X40 SINGLE CHAR + A BLANK         A31745
000EC0 4780 B626            00EDC  1576+         BE    IEAGOTPM YES CONTINUE TO PROCESS IT    A31745
000EC4 957D 6002      00002        1577+         CLI   Q2(R6),X7D THIRD CHARACTER A QUOTE       A31745
000EC8 4780 B626            00EDC  1578+         BE    IEAGOTPM YES CONTINUE TO PROCESS IT    A31745
000ECC 956B 6002      00002        1579+         CLI   Q2(R6),X6B THIRD CHARACTER A COMMA       A31745
000ED0 4780 B626            00EDC  1580+         BE    IEAGOTPM YES CONTINUE TO PROCESS IT    A31745
000ED4 9540 6002      00002        1581+         CLI   Q2(R6),X40 THIRD CHARACTER A BLANK       A31745
000ED8 4770 B83C            010F2  1582+         BNE   IEAOPERR NO ERROR IN REPLY FORMAT RSPY A31745
000EDC D501 6000 D773 00000 069B4  1583+IEAGOTPM CLC   0(2,6),IEALSTDB TEST FOR LIST REQUEST + BLANK
000EE2 4780 B688            00F3E  1584+         BE    IEALSTPL YES SET APPROPRIATE LIST SWITCH
000EE6 D501 6000 D775 00000 069B6  1585+         CLC   0(2,6),IEALSTDC TEST FOR LIST REQUEST + QUOTE
000EEC 4780 B694            00F4A  1586+         BE    IEALSTND YES SET APPROPRIATE LIST SWITCH
000EF0 D501 6000 D777 00000 069B8  1587+         CLC   0(2,6),IEALSTDD TEST FOR LIST REQ + COMMA  000C
000EF6 4780 B688            00F3E  1588+         BE    IEALSTPL YES SET APPROPRIATE LIST SW000C
000EFA 957D 6000      00000        1589+         CLI   0(6),C'''' TEST FOR END OF REPLY
000EFE 4780 B84A            01100  1590+         BE    IEAENDCM YES BRANCH AROUND SCAN ROUTINE
000F02 9540 6000      00000        1591+         CLI   0(6),C' ' TEST FOR BLANK DELIMITER
000F06 4780 B328            00BDE  1592+         BE    IEABLANK YES SCAN TO NEXT PARAMETER
                                   1593+*                  NOTE THAT THIS ROUTINE DOES NOT SUPPORT PARMS
                                   1594+*                  CONSISTING OF ONLY TWO CHARACTERS AS THEY CANNOT
                                   1595+*                  BE DISTINGUISHED FROM SUFFIXES SUPPLIED WITH
                                   1596+*                  BLDL,RAM, OR RSVC
000F0A 956B 6001      00001        1597+         CLI   1(6),C',' SINGLE CHARACTER PARM?
000F0E 4780 B344            00BFA  1598+         BE    IEAPARAM YES, PROCESS IT            000E
000F12 9540 6001      00001        1599+         CLI   1(6),C' ' SINGLE CHARACTER PARM      000E
000F16 4780 B344            00BFA  1600+         BE    IEAPARAM YES, PROCESS IT            000E
000F1A 957D 6001      00001        1601+         CLI   1(6),C'''' SINGLE CHARACTER PARM?     000E
000F1E 4780 B344            00BFA  1602+         BE    IEAPARAM YES, PROCESS IT            000E
000F22 956B 6002      00002        1603+         CLI   2(6),C',' TEST FOR COMMA SEPERATOR
000F26 4780 B69C            00F52  1604+         BE    IEACASE1 YES MOVE THIS SUFFIX
000F2A 9540 6002      00002        1605+         CLI   2(6),C' ' TEST FOR BLANK DELIMITER
                                                                                                               PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000F2E 4780 B6A8            00F5E  1606+         BE    IEACASE2 YES MOVE LAST SUFFIX
000F32 957D 6002      00002        1607+         CLI   2(6),C'''' TEST FOR END OF REPLY
000F36 4780 B6A8            00F5E  1608+         BE    IEACASE2 YES MOVE LAST SUFFIX
000F3A 47F0 B344            00BFA  1609+         B     IEAPARAM ASSUME NEXT PARM, PROCESS  000C
000F3E 92FF 9000      00000        1610+IEALSTPL MVI   0(9),X'FF' SET LIST SWITCH
000F42 4166 0002            00002  1611+         LA    6,2(6) UPDATE REPLY PNTR
000F46 47F0 B328            00BDE  1612+         B     IEABLANK SCAN TO NEXT PARAMETER
000F4A 92FF 9000      00000        1613+IEALSTND MVI   0(9),X'FF' SET LIST SWITCH
000F4E 47F0 B84A            01100  1614+         B     IEAENDCM BRANCH AROUND SCAN ROUTINE
000F52 4550 B6B0            00F66  1615+IEACASE1 BAL   5,IEAGETER BRANCH TO MOVE SUFFIX
000F56 4166 0001            00001  1616+         LA    6,1(6) UPDATE REPLY PNTR
000F5A 47F0 B626            00EDC  1617+         B     IEAGOTPM TEST FOR ANOTHER SUFFIX
000F5E 4550 B6B0            00F66  1618+IEACASE2 BAL   5,IEAGETER BRANCH TO MOVE SUFFIX
000F62 47F0 B328            00BDE  1619+         B     IEABLANK SCAN TO NEXT PARAMETER
000F66 5980 D77B            069BC  1620+IEAGETER C     8,IEAFOURT TEST FOR 4 SUFFIXES MOVED
000F6A 47B0 B6CC            00F82  1621+         BNL   IEA2MANY YES, MOVE NO MORE               5092
000F6E D201 7000 6000 00000 00000  1622+         MVC   0(2,7),0(6) MOVE SUFFIX TO BUFFER
000F74 4166 0002            00002  1623+IEAGTOUT LA    6,2(6) UPDATE REPLY PNTR
000F78 4177 0002            00002  1624+         LA    7,2(7) UPDATE BUFFER PNTR
000F7C 4188 0001            00001  1625+         LA    8,1(8) INCREMENT COUNT
000F80 07F5                        1626+         BR    5 RETURN TO CALLER
000F82 5B70 D297            064D8  1627+IEA2MANY S     R7,IEAATE R7 = BEGINNING OF BUFFER        5092
000F86 D207 7000 DA35 00000 06C76  1628+         MVC   Q0(Q8,R7),IEABLNCS BLANK OUT BUFFER                5092
000F8C 47F0 B83C            010F2  1629+         B     IEAOPERR INVALID SPECIFICATION           5092
000F90 9200 D51A      0675B        1630+IEAGETON MVI   IEAONECH,X'00' TURN OFF ONE CHARACTER SWITCH
000F94 9240 D8F7      06B38        1631+         MVI   IWORK3,C' ' SET DIGIT MOVED SWITCH OFF
000F98 4130 D8EF            06B30  1632+         LA    3,IWORK2 R 3 = PNTR TO NUMBER PICKUP
000F9C 4140 D8F7            06B38  1633+         LA    4,IWORK3 R 4 = PNTR TO NUMBER BUFFER
000FA0 95F9 6000      00000        1634+IEANXTNB CLI   0(6),C'9' TEST DIGIT FOR UNDER 9
000FA4 4720 B83C            010F2  1635+         BH    IEAOPERR NO INVALID NUMBER
000FA8 95F0 6000      00000        1636+         CLI   0(6),C'0' TEST DIGIT FOR OVER ZERO
000FAC 47B0 B71A            00FD0  1637+         BNL   IEAMVONE DIGIT OK PICK IT UP
000FB0 9540 6000      00000        1638+         CLI   0(6),C' ' TEST FOR END OF DIGITS
000FB4 4780 B738            00FEE  1639+         BE    IEAFINIS YES CONVERT THE NUMBER
000FB8 957D 6000      00000        1640+         CLI   0(6),C'''' NO TEST FOR END OF REPLY
000FBC 4780 B738            00FEE  1641+         BE    IEAFINIS YES CONVERT THE NUMBER
000FC0 956B 6000      00000        1642+         CLI   0(6),C',' TEST FOR MORE PARMS        2216
000FC4 4770 B83C            010F2  1643+         BNE   IEAOPERR INVALID REPLY              2216
000FC8 4166 0001            00001  1644+         LA    6,1(6) UPDATE PTR TO NEXT CHAR    2216
000FCC 47F0 B738            00FEE  1645+         B     IEAFINIS GO TO CONVERT NUMBER       2216
000FD0 5940 D74B            0698C  1646+IEAMVONE C     4,IEANLIMT TEST FOR NO MORE DIGITS
000FD4 4780 B83C            010F2  1647+         BE    IEAOPERR YES WRITE ERROR MSG
000FD8 D200 4000 6000 00000 00000  1648+         MVC   0(1,4),0(6) MOVE A DIGIT
000FDE 4166 0001            00001  1649+         LA    6,1(6) INCREMENT REPLY PNTR
000FE2 4133 0001            00001  1650+         LA    3,1(3) INCREMENT BUFFER PNTR
000FE6 4144 0001            00001  1651+         LA    4,1(4) INCREMENT BUFFER PNTR
000FEA 47F0 B6EA            00FA0  1652+         B     IEANXTNB TEST FOR MORE DIGITS
000FEE 9540 D8F7      06B38        1653+IEAFINIS CLI   IWORK3,C' ' TEST FOR NONE MOVED
000FF2 4780 B328            00BDE  1654+         BE    IEABLANK NONE SCAN TO NEXT PARAMETER
000FF6 D207 D8E7 3000 06B28 00000  1655+         MVC   IWORK1(8),0(3) MOVE NUMBER TO FULL WORD
000FFC F277 D8E7 D8E7 06B28 06B28  1656+         PACK  IWORK1(8),IWORK1(8) PACK THE BCD NUMBER
001002 4F40 D8E7            06B28  1657+         CVB   4,IWORK1 R 4 = CONVERTED NUMBER
001006 5047 0000            00000  1658+         ST    4,0(7) PASS THE BINARY NUMBER
00100A 47F0 B328            00BDE  1659+         B     IEABLANK SCAN TO THE NEXT PARAMETER
00100E D203 0048 C523 00048 05764  1660+IEAIGNOR MVC   72(4),IEANOPRM SET CAW TO PRINT IGNORED MSG
                                                                                                               PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001014 4550 C285            054C6  1661+         BAL   R5,IEACONSL LINK TO WTO IEA107I MSG         MCS0
001018 D206 CA79 DA35 05CBA 06C76  1662+         MVC   PARAMTER(L'PARAMTER),IEABLNCS CLEAR MSG PARAMETER  MCS0
00101E 4166 0001            00001  1663+         LA    6,1(6) BUMP R6 TO NEXT CHAR       000C
001022 9540 6000      00000        1664+IEACLEAR CLI   0(6),X'40' TEST FOR BLANK, VALID PARM 000C
001026 4780 B328            00BDE  1665+         BE    IEABLANK YES GO SCAN TO NEXT PARAMETER
00102A 957D 6000      00000        1666+         CLI   0(6),C'''' TEST FOR END OF REPLY
00102E 4780 B84A            01100  1667+         BE    IEAENDCM YES SKIP AROUND ROUTINE
001032 4150 0006            00006  1668+         LA    5,6 SET UP TO                  000C
001036 1B00                        1669+         SR    0,0 SEARCH PARM LIST           000C
001038 4110 0006            00006  1670+         LA    1,KYWD2 000C
00103C 1D05                        1671+         DR    0,5 R1 = # ENTRIES (NON-ZERO)  000C
00103E 4170 D85D            06A9E  1672+         LA    7,START2 000C
001042 D502 7001 6000 00001 00000  1673+TEST2CHR CLC   1(3,7),0(6) VALID PARM?                000C
001048 4780 B344            00BFA  1674+         BE    IEAPARAM YES, PROCESS IT            000C
00104C 4177 0006            00006  1675+         LA    7,6(7) BUMP R7 TO NEXT ENTRY      000C
001050 4610 B78C            01042  1676+         BCT   1,TEST2CHR CYCLE THRU 2 BYTE KEYWORDS 000C
001054 1B00                        1677+         SR    0,0 000C
001056 4110 002A            0002A  1678+         LA    1,KYWD3 000C
00105A 1D05                        1679+         DR    0,5 000C
00105C 4170 D863            06AA4  1680+         LA    7,END2 000C
001060 D503 7001 6000 00001 00000  1681+TEST3CHR CLC   1(4,7),0(6) VALID PARM?                000C
001066 4780 B344            00BFA  1682+         BE    IEAPARAM YES, PROCESS IT            000C
00106A 4177 0006            00006  1683+         LA    7,6(7) BUMP R7 TO NEXT ENTRY      000C
00106E 4610 B7AA            01060  1684+         BCT   1,TEST3CHR CYCLE THRU 3 BYTE KEYWORDS 000C
001072 4110 0012            00012  1685+         LA    1,KYWD4 000C
001076 1B00                        1686+         SR    0,0 000C
001078 1D05                        1687+         DR    0,5 000C
00107A 4170 D88D            06ACE  1688+         LA    7,END3 000C
00107E D504 7001 6000 00001 00000  1689+TEST4CHR CLC   1(5,7),0(6) VALID PARM?                000C
001084 4780 B344            00BFA  1690+         BE    IEAPARAM YES  PROCESS IT            000C
001088 4177 0006            00006  1691+         LA    7,6(7) BUMP R7 TO NEXT ENTRY      000C
00108C 4610 B7C8            0107E  1692+         BCT   1,TEST4CHR CYCLE THRU 4 BYTE KEYWORDS 000C
001090 1B00                        1693+         SR    0,0 SEARCH PARM LIST           000E
001092 4110 0006            00006  1694+         LA    1,KYWD1 R1 = LENGTH OF 1 CHAR LIST 000E
001096 1D05                        1695+         DR    0,5 R1 = # OF 1 CHAR PARMS     000E
001098 4170 D857            06A98  1696+         LA    7,START1 R7 PTR TO 1 CHAR LIST      000E
00109C D500 7001 6000 00001 00000  1697+TEST1CHR CLC   1(1,7),0(6) VALID PARAMETER?           000E
0010A2 4780 B344            00BFA  1698+         BE    IEAPARAM YES, BRANCH OUT            000E
0010A6 4170 D8A6            06AE7  1699+         LA    R7,START7 R7 = PTR TO 7 CHARACTER LIST    MCS0
0010AA D507 7000 6000 00000 00000  1700+         CLC   Q0(Q8,R7),Q0(R6) TEST FOR VALID PARAMETER        MCS0
0010B0 4780 B344            00BFA  1701+         BE    IEAPARAM YES, BRANCH OUT                 MCS0
0010B4 4166 0001            00001  1702+         LA    6,1(6) UPDATE PNTR TO ANSWER BUFFER
0010B8 47F0 B76C            01022  1703+         B     IEACLEAR OTHERWISE TEST AGAIN       000C
0010BC 9640 9000      00000        1704+IEANULLP OI    0(9),X'40' SET NULL SWITCH             @SA75934
0010C0 9200 D51A      0675B        1705+         MVI   IEAONECH,X'00'
0010C4 4166 0001            00001  1706+BUMPPNTR LA    6,1(6) INCREMENT PAST COMMA       000D
0010C8 9540 6000      00000        1707+         CLI   0(6),C' ' TEST FOR BLANK DELIMITER
0010CC 4780 B328            00BDE  1708+         BE    IEABLANK YES SCAN TO NEXT PARAMETER
0010D0 957D 6000      00000        1709+         CLI   0(6),C'''' TEST FOR END OF COMMAND
0010D4 4780 B84A            01100  1710+         BE    IEAENDCM YES FINISH UP
0010D8 47F0 B344            00BFA  1711+         B     IEAPARAM ASSUME NEXT PARM           000C
0010DC                             1712+COMSTANT EQU   * MCS0
0010DC 957D 6001      00001        1713+         CLI   Q1(R6),X7D TEST FOR QUOTE                   MCS0
0010E0 0785                        1714+         BCR   Q8,R5 RETURN IF EQUAL                  MCS0
0010E2 956B 6001      00001        1715+         CLI   Q1(R6),X6B TEST FOR COMMA                   MCS0
                                                                                                               PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0010E6 0785                        1716+         BCR   Q8,R5 RETURN IF EQUAL                  MCS0
0010E8 9540 6001      00001        1717+         CLI   Q1(R6),X40 TEST FOR BLANK                   MCS0
0010EC 0785                        1718+         BCR   Q8,R5 RETURN IF EQUAL                  MCS0
0010EE 47F0 B83C            010F2  1719+         B     IEAOPERR MESSAGE ERROR                    MCS0
0010F2 D203 0048 C51F 00048 05760  1720+IEAOPERR MVC   72(4),IEARRCAW SET CAW TO PRINT ERROR MSG
0010F8 4550 C285            054C6  1721+         BAL   R5,IEACONSL LINK TO WTO IEA102A MSG         MCS0
0010FC 47F0 B264            00B1A  1722+         B     IEARESPC AND READ OPERATOR'S REPLY
001100                             1723+IEAENDCM EQU   *
                                                                                                               PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001100 05B0                        1725+         BALR  R11,0 RE-ESTABLISH ADDRESSABILITY 000E
001102                             1726+         USING *,R11 FOR MAINLINE NIP       000E
                                   1727+***                                                                000E
                                   1728+**  SYS1.PARMLIB LOCATE ROUTINE - NIP ATTEMPTS TO LOCATE           000E
                                   1729+**  SYS1.PARMLIB USING THE SYSTEM CATALOG. IF NOT FOUND BY LOCATE, 000E
                                   1730+**  PARMLIB IS ASSUMED TO RESIDE ON THE IPL-ED DEVICE. AN  ATTEMPT 000E
                                   1731+**  IS THEN MADE TO OBTAIN A DSCB FOR PARMLIB. IF THE OBTAIN FAILS,000E
                                   1732+**  THE IEA211I DIAGNOSTIC IS WRITTEN TO THE SYSTEM CONSOLE, AND   000E
                                   1733+**  ALL NIP OPTIONS WHICH ARE DEPENDENT UPON PARAMETER LISTS FROM  000E
                                   1734+**  SYS1.PARMLIB WILL REMAIN INOPERATIVE                           000E
                                   1735+***

001102 D20B D9DB DA29 06C1C 06C6A  1737+         MVC   IEADSTNM(L'IEAPRCNM),IEAPRCNM SYS1.PARMLIB LOCATE  000E
001108 D21F D9E7 DA35 06C28 06C76  1738+         MVC   IEADSTNM+L'IEAPRCNM(44-L'IEAPRCNM),IEABLNCS 000E
00110E 9604 D52B      0676C        1739+         OI    IEASWITC,PARMCALL BYPASS MSG IF LOCATE FAILS  000E
001112 4590 C13B            0537C  1740+         BAL   R9,IEALOCAT FIND CATALOGUED SERIAL NO. 000E
001116 94FB D52B      0676C        1741+         NI    IEASWITC,255-PARMCALL RESET PARMLIB SWITCH        000E
00111A 91FF D512      06753        1742+         TM    LOCATEOK,X'FF' TEST FOR CATLG ENTRY FOUND 000E
00111E 47E0 B028            0112A  1743+         BNO   PRMLOCAT YES, BRANCH TO FIND VOLUME 000E
001122 48A0 D2D5            06516  1744+         LH    R10,IEAIPL NO, ASSUME IPL-ED DEVICE   000E
001126 47F0 B03E            01140  1745+         B     PRMSYSRS BRANCH TO FIND UCB ADDR    000E
00112A 92FF D511      06752        1746+PRMLOCAT MVI   IEAPRCSW,X'FF' ALLOW DATASET ON DATA CELL 000E
00112E D206 CA16 DA2E 05C57 06C6F  1747+         MVC   IEADSNAM(7),IEAPRCNM+5 SET MSG FOR POSSIBLE ERROR 000E
001134 4530 C19D            053DE  1748+         BAL   R3,IEASERCH SEARCH FOR VOLUME SERIAL   000E
001138 9200 D511      06752        1749+         MVI   IEAPRCSW,X'00' RESET DATA CELL SWITCH     000E
00113C 40A0 D2D5            06516  1750+         STH   R10,IEAIPL SAVE PARMLIB UNIT ADDRESS  000E
001140 4550 C0BD            052FE  1751+PRMSYSRS BAL   R5,IEAUCBFN FIND UCB ADDRESS           000E
001144 91FF D516      06757        1752+         TM    IEAINDIC,X'FF' TEST FOR UCB FOUND         000E
001148 4780 C0D5            05316  1753+         BZ    IEANOUCB NO, WTO 105A MSG AND DIE   000E
00114C 4890 D2D3            06514  1754+         LH    R9,IEAUCBHL R9 = UCB ADDRESS           000E
001150 4560 C123            05364  1755+         BAL   R6,IEARDVOL READ VTOC INFO             000E
001154 4130 0004            00004  1756+         LA    R3,4 SET CODE FOR F1 DSCB            OOOE
001158 4540 C153            05394  1757+         BAL   R4,IEAOBTAN LINK TO OBTAIN RTN              OOOE
00115C 12FF                        1758+         LTR   R15,R15 TEST RETURN CODE                OOOE
00115E 4770 B0A2            011A4  1759+         BNE   PRMNFND BRANCH IF NO PARMLIB DSCB  000E
001162 D201 D2CB D2C7 0650C 06508  1760+         MVC   PRMTRPCL(Q2),IEATRPCL SAVE PARMLIB TRACKS/CYL     PARM
001168 4840 D2D3            06514  1761+         LH    R4,IEAUCBHL R4 = PARMLIB UCB ADDR       PARM
00116C 9505 4013      00013        1762+         CLI   UCBUTYPE(R4),DCELTYPE TEST FOR PARMLIB ON DCELL   PARM
001170 4770 B084            01186  1763+         BNE   PRMNDCEL NO,BRANCH TO SAVE UCB ADR   PARM
001174 4830 D451            06692  1764+         LH    R3,IEASKADR R3 = BIN NUMBER OF CELL     PARM
001178 4030 D847            06A88  1765+         STH   R3,PROCCCHH SAVE PARMLIB BIN NUMBER     PARM
00117C 8930 0004            00004  1766+         SLL   R3,Q4 MULTIPLY BY SUB-UCB SIZE    PARM
001180 4133 0038            00038  1767+         LA    R3,UCBSIZE(R3) ADD BASE UCB SIZE           PARM
001184 1A43                        1768+         AR    R4,R3 R4 = SUB-UCB ADDR FOR PARM  PARM
001186 4040 D2C9            0650A  1769+PRMNDCEL STH   R4,PRMUCBAD SAVE PTR TO PARMLIB UCB     PARM
00118A 1B33                        1770+         SR    R3,R3 CLEAR REG 3                 PARM
00118C 4030 D451            06692  1771+         STH   R3,IEASKADR AND ZERO BIN FIELD IN SEEK  PARM
001190 D203 D849 A03F 06A8A 0003F  1772+         MVC   PROCCCHH+2(4),63(R10) CCHH OF PARMLIB          000E
001196 D203 D8CF A03F 06B10 0003F  1773+         MVC   IEASKRK(4),63(R10) SET SEEK ADDR FOR PARMLIB  000E
00119C 4540 C16B            053AC  1774+         BAL   R4,IEAFREOB PREPARE TO FREEMAIN         000E
0011A0 47F0 B0B0            011B2  1775+         B     IEAPRMND BRANCH TO EXIT FROM RTN     000E
0011A4                             1776+PRMNFND  EQU   * 000E
0011A4 D203 0048 C5EF 00048 05830  1777+         MVC   72(4),IEARXCAW SET ERROR MESSAGE CAW           000E
0011AA 4550 C285            054C6  1778+         BAL   R5,IEACONSL WTO 208I MESSAGE            000E
0011AE 962F D52A      0676B        1779+         OI    IEASWITB,NOPARMSW SET DEPENDENT FUNCTIONS INOP000E
                                                                                                               PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0011B2                             1780+IEAPRMND EQU   * 000E
                                                                                                               PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1782+****                                                               000E
                                   1783+**  THIS ROUTINE ALLOWS THE USER CONCATENATION OF SYS1.LINKLIB     000E
                                   1784+**  WITH UP TO 15 ADDITIONAL DATA SETS. NIP INITIALIZES THE        MXMV
                                   1785+**  LINKLIB DEB TO DESCRIBE THE LINKLIB AND THE CONCATENATED DATA  MXMV
                                   1786+**  SETS.                                                          MXMV
                                   1787+****                                                               000E
                                   1788+**  A GETMAIN IS ISSUED FOR A WORK AREA IN WHICH TO BUILD A LIST OF
                                   1789+**  44 BYTE DATASET NAMES, AND 6 BYTE VOLUME SERIAL NUMBERS.
                                   1790+**  ONE RECORD CONTAINING DATA SET NAMES IS READ FROM THE LNKLST00
                                   1791+**  MEMBER OF SYS1.PARMLIB
0011B2 D207 D8D3 D52C 06B14 0676D  1792+IEAMVLNK MVC   ERDNAMES(8),IEALNKLS SET NAME TO READ LNKLST00      000E
0011B8 9108 D52A      0676B        1793+         TM    IEASWITB,MVXSWIT TEST FOR FUNCTION INOPERATIVE   000E
0011BC 4710 B38C            0148E  1794+         BO    IEAMVEND INOPERATIVE, SKIP ROUTINE       MXMV
0011C0 9608 D52B      0676C        1795+         OI    IEASWITC,MVCALL INDICATE MV RTN ACTIVE      000E
0011C4 4100 0800            00800  1796+         LA    R0,MVLISTSZ R0 = NO OF BYTES NEEDED         000E
0011C8 4110 0004            00004  1797+         LA    R1,4 R1 = CODE FOR GETMAIN           000E
0011CC 4550 C1EF            05430  1798+         BAL   R5,IEAGETM BR TO GETMAIN RTN               000E
0011D0 12FF                        1799+         LTR   R15,R15 TEST FOR SUCCESSFUL GETMAIN     000E
0011D2 4770 B384            01486  1800+         BNE   IEANOLLS UNSUCCESSFUL,SKIP ROUTINE       000E
0011D6 5820 D63B            0687C  1801+         L     R2,GMADDR R2 = ADR OF GOTTEN CORE         000E
0011DA 5020 B182            01284  1802+         ST    R2,IEAMVDSN SAVE PTR TO START OF NEW CORE   000E
0011DE 9200 2000      00000        1803+         MVI   0(R2),X'00' BYTE TO INDICATE STATUS OF DSNAM000E
0011E2 4122 0001            00001  1804+         LA    R2,1(R2) R2 = ADR TO MOVE IN DSNAME      000E
0011E6 4130 B172            01274  1805+         LA    R3,IEAEOCAR R3 = ADR FOR BLANK CARD         000E
0011EA 4140 B368            0146A  1806+         LA    R4,IEAMVHLP R4 = ADR IF BAD LIST          000E
0011EE 4180 B368            0146A  1807+         LA    R8,IEAMVHLP R8 = PTR AROUND M-V RTN         000E
0011F2 D20B CA65 DA29 05CA6 06C6A  1808+         MVC   SLIBNM(L'IEAPRCNM),IEAPRCNM SET PARMLIB IN ERR MSG  MXMV
0011F8 4590 C0AB            052EC  1809+         BAL   R9,IEAGETXT READ IN RECORD ONE              000E
                                   1810+**  NAMES ARE PADDED WITH BLANKS TO 44 BYTES AND MOVED TO THE WORK AREA
0011FC D50B 7000 DA12 00000 06C53  1811+         CLC   0(12,R7),IEALNKNM TEST FOR LINKLIB                000E
001202 4770 B110            01212  1812+         BNE   IEAFORFT NO,CONTINUE                     000E
001206 956B 700C      0000C        1813+         CLI   12(R7),X'6B' TEST FOR CONCATENATION      @SA65803
00120A 4770 B368            0146A  1814+         BNE   IEAMVHLP NONE, BYPASS ROUTINE        @SA65803
00120E 4177 000D            0000D  1815+         LA    R7,13(R7) YES,UPDATE PNTR TO NEXT NAME    000E
001212 4150 002C            0002C  1816+IEAFORFT LA    R5,44 R5 = MAXIMUM CHARACTERS         000E
001216 5970 C543            05784  1817+         C     R7,IEALMT *              CHECK FOR COLUMN 72      A35583
00121A 47B0 B162            01264  1818+         BNL   IEA40 *                  YES, BRANCH              A35583
00121E 956B 7000      00000        1819+         CLI   0(R7),X'6B' CHECK FOR COMMA                 000E
001222 4780 B13E            01240  1820+         BE    IEA6B YES,GO TO COMMA RTN             000E
001226 9540 7000      00000        1821+         CLI   0(R7),X'40' CHECK FOR BLANK                 000E
00122A 4780 B162            01264  1822+         BE    IEA40 YES,GO TO BLANK RTN             000E
00122E D200 2000 7000 00000 00000  1823+         MVC   0(1,R2),0(R7) NEITHER,MOVE THIS CHAR TO LIST  000E
001234 4177 0001            00001  1824+         LA    R7,1(R7) UPDATE PTR TO NEXT CHAR         000E
001238 4122 0001            00001  1825+         LA    R2,1(R2) UPDATE DSNAMES PNTR             000E
00123C 4650 B114            01216  1826+         BCT   R5,IEAFORFT+4 CHECK FOR CONTINUATION MOVED    000E
001240 4177 0001            00001  1827+IEA6B    LA    R7,1(R7) UPDATE PTR TO NEXT CHAR         000E
001244 1255                        1828+         LTR   R5,R5 R5 = 0?                         000E
001246 4780 B150            01252  1829+         BE    IEAMVBY1 YES,NAME IS 44 CHARS            000E
00124A 4450 B15C            0125E  1830+         EX    R5,IEAMVMOV NO,FILL IN BLANKS TO MAKE 44    000E
00124E 4122 5000            00000  1831+         LA    R2,0(R2,R5) R2 = ADR TO PUT NEXT NAME
001252 9200 2000      00000        1832+IEAMVBY1 MVI   0(R2),X'00' SET FLAG BYTE                   000E
001256 4122 0001            00001  1833+         LA    R2,1(R2) UPDATE PNTR                     000E
00125A 47F0 B110            01212  1834+         B     IEAFORFT CHECK NEXT DSNAME               000E
00125E D200 2000 DA35 00000 06C76  1835+IEAMVMOV MVC   0(0,R2),IEABLNCS EXECUTED TO MOVE IN BLANKS      000E
001264 9540 D03E      0627F        1836+IEA40    CLI   IEABUFER+71,X'40' CHECK FOR CONTINUATION          000E
                                                                                                               PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001268 4780 B19C            0129E  1837+         BE    IEAEOLST NONE,ALL NAMES IN               000E
00126C 4590 C0B3            052F4  1838+         BAL   R9,IEAGETLS YES,READ THE NEXT CARD          000E
001270 47F0 B110            01212  1839+         B     IEAFORFT PROCESS NEXT NAME               000E
001274 9540 D03E      0627F        1840+IEAEOCAR CLI   IEABUFER+71,X'40' CHECK FOR CONTINUATION          000E
001278 4780 B18A            0128C  1841+         BE    IEANYDON NONE,ALL NAMES IN               000E
00127C 4590 C0B3            052F4  1842+         BAL   R9,IEAGETLS YES,READ THE NEXT CARD          000E
001280 47F0 B110            01212  1843+         B     IEAFORFT PROCESS NEXT NAME               000E
001284 00000000                    1844+IEAMVDSN DC    A(0) SAVE FOR PTR TO START OF DS NAME000E
001288 00000000                    1845+IEAMVVOL DC    A(0) SAVE FOR PTR TO START OF VOLS   000E
00128C 0620                        1846+IEANYDON BCTR  R2,R0 REDUCE POINTER BY ONE           000E
00128E 5520 B182            01284  1847+         CL    R2,IEAMVDSN HAVE ANY NAMES BEEN ADDED
001292 47D0 B368            0146A  1848+         BNH   IEAMVHLP NO,RTN COMPLETE
001296 4122 0001            00001  1849+         LA    R2,1(R2) UPDATE PNTR TO DSNAMES          000E
00129A 47F0 B1A4            012A6  1850+         B     IEAMVBY2 000E
00129E                             1851+IEAEOLST EQU   * .                                               A35583
00129E 4450 B15C            0125E  1852+         EX    R5,IEAMVMOV FILL IN BLANKS TO MAKE 44
0012A2 4122 5000            00000  1853+         LA    R2,0(R2,R5) R2 = ADR FOR NEXT NAME          000E
0012A6 92F0 2000      00000        1854+IEAMVBY2 MVI   0(R2),X'F0' SET FLAG FOR END OF DSNAMES     000E
0012AA 4122 0001            00001  1855+         LA    R2,1(R2) UPDATE PTR                      000E

                                   1857+**  EACH DSNAME IS PASSED TO SUBLOCAT.  THE VOLUME SERIAL NUMBERS
                                   1858+**  RETURNED ARE MOVED TO THE WORK AREA.
                                   1859+**  DSNAMES WHICH MAKE THE TOTAL MORE THAN 15, OR FOR WHICH LOCATE
                                   1860+**  FAILS ARE FLAGGED WITH FF AND ARE NOT USED.
0012AE 5830 B182            01284  1861+         L     R3,IEAMVDSN R3 = START OF DSNAMES
0012B2 5020 B186            01288  1862+         ST    R2,IEAMVVOL SAVE START OF VOLS ADR
0012B6 D22B D9DB 3001 06C1C 00001  1863+IEANEXT1 MVC   IEADSTNM(44),1(R3) SET UP DSNAME FOR LOCATE        000E
0012BC 4590 C13B            0537C  1864+         BAL   R9,IEALOCAT BR TO LOCATE RTN                000E
0012C0 91FF D512      06753        1865+         TM    LOCATEOK,X'FF' TEST FOR SUCCESS                000E
0012C4 4710 B1FC            012FE  1866+         BO    IEAMVFOX UNSUCCESSFUL
0012C8 9200 2000      00000        1867+         MVI   0(R2),X'00' SUCCESSFUL,SET FLAG BYTE        000E
0012CC D205 2001 D469 00001 066AA  1868+         MVC   1(6,R2),IEAVOLAB PUT VOLUME IN LIST              000E
0012D2 4122 0007            00007  1869+IEAMVD01 LA    R2,7(R2) UPDATE PTR                      000E
0012D6 4133 002D            0002D  1870+         LA    R3,45(R3) UPDATE DSNAME PTR               000E
0012DA 95F0 3000      00000        1871+         CLI   0(R3),X'F0' TEST END OF DATA SETS           000E
0012DE 4770 B1B4            012B6  1872+         BNE   IEANEXT1 NOT END,KEEP PROCESSING         000E

                                   1874+**  ALL UCBS CONCERNED ARE FLAGGED PERMANENTLY RESIDENT
                                   1875+**  SUBSERCH IS CALLED TO MAKE SURE THE VOLUME IS MOUNTED AND TO GET
                                   1876+**  THE UNIT ADDRESS.  GIVEN THE UNIT ADDRESS SUBUCBFN PROVIDES THE
                                   1877+**  UCB ADDRESS SO THE UCB CAN BE FLAGGED PERMANENTLY RESIDENT
0012E2 5840 B186            01288  1878+         L     R4,IEAMVVOL R4 = ADR OF START OF VOLS       000E
0012E6 5820 B182            01284  1879+         L     R2,IEAMVDSN R2 = ADR OF START OF DSNAMES    000E
0012EA 95FF 2000      00000        1880+IEAMVD02 CLI   0(R2),X'FF' IS THIS A VOLID VOLUME?         000E
0012EE 4770 B20E            01310  1881+         BNE   IEAMVD03 YES,PROCEED                     000E
0012F2 4144 0007            00007  1882+         LA    R4,7(R4) NO,UPDATE PTR TO NEXT VOL       000E
0012F6 4122 002D            0002D  1883+         LA    R2,45(R2) UPDATE PTR TO NEXT DSNAME       000E
0012FA 47F0 B1E8            012EA  1884+         B     IEAMVD02 CHECK THIS NEW VOLUME           000E
0012FE 92FF 3000      00000        1885+IEAMVFOX MVI   0(R3),X'FF'
001302 92FF 2000      00000        1886+         MVI   0(R2),X'FF' FOX OUT VOLUME
001306 D205 2001 2000 00001 00000  1887+         MVC   1(6,R2),0(R2) LABEL
00130C 47F0 B1D0            012D2  1888+         B     IEAMVD01 CONTINUE
001310 95F0 2000      00000        1889+IEAMVD03 CLI   0(R2),X'F0' CHECK END OF DSNAMES            000E
001314 4780 B29C            0139E  1890+         BE    IEAMVOBT YES,FINISHED WITH SEARCHES      000E
001318 D205 D469 4001 066AA 00001  1891+         MVC   IEAVOLAB(6),1(R4) MOVE IN VOLUME LABEL            000E
                                                                                                               PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00131E 4180 B224            01326  1892+         LA    R8,IEAMVMNT R8 = ADR TO SRT SWITCH          000E
001322 4530 C19D            053DE  1893+         BAL   R3,IEASERCH SEARCH FOR VOLUME MOUNTED       000E
001326 47F0 B234            01336  1894+IEAMVMNT BC    15,IEAMVUCB NOP ON RETURN FROM MOUNT
00132A 92F0 B225      01327        1895+         MVI   IEAMVMNT+1,X'F0' REPLACE NOP WITH BRANCH
00132E 4510 B24C            0134E  1896+IEAMVTRD BAL   R1,IEAMVDEV TEST FOR DASD OR CONSOLE INTERRU000E
001332 4700 B290            01392  1897+IEAMVSW1 BC    0,IEAMVUPD SWITCH TO BR IF CONSOLE INTERRUP000E
001336 4550 C0BD            052FE  1898+IEAMVUCB BAL   R5,IEAUCBFN BR TO FIND UCB RTN
00133A 91FF D516      06757        1899+         TM    IEAINDIC,X'FF' TEST FOR UCB FIND               000E
00133E 4710 B288            0138A  1900+         BO    IEAMVD04 FOUND                           000E
001342 4180 B224            01326  1901+         LA    R8,IEAMVMNT R8 = ADR TO SRT SWITCH          000E
001346 4550 C1BD            053FE  1902+         BAL   R5,IEAMOUNT NOT FOUND,PRINT LABEL AGAIN     000E
00134A 47F0 B224            01326  1903+         B     IEAMVMNT RE-TEST
00134E 9200 B231      01333        1904+IEAMVDEV MVI   IEAMVSW1+1,X'00' SET SWITCH TO NOP               000E
001352 49A0 D2E1            06522  1905+         CH    R10,IEAUNIT+2 TEST FOR CONSOLE INTERRUPT  @SA69040
001356 0771                        1906+         BCR   7,R1 NOT CONSOLE,RETURN              000E
001358 92F0 B231      01333        1907+IEAMVEOB MVI   IEAMVSW1+1,X'F0' SET BRANCH DUE TO DASD          000E
00135C 1852                        1908+         LR    R5,R2 SAVE REGS                       000E
00135E 1864                        1909+         LR    R6,R4 2 AND 3                         000E
001360 92FF 5000      00000        1910+IEAMVBAD MVI   0(R5),X'FF' SET DSNAME FLAG FOR NOT FOUND   000E
001364 92FF 6000      00000        1911+         MVI   0(R6),X'FF' SET VOLUME FLAG FOR NOT FOUND   000E
001368 D205 6001 6000 00001 00000  1912+         MVC   1(6,R6),0(R6) FOX OUT VOLUME                  000E
00136E 4155 002D            0002D  1913+IEAMVSKP LA    R5,45(R5) UPDATE TWO                      000E
001372 4166 0007            00007  1914+         LA    R6,7(R6) POINTERS                      000E
001376 95F0 5000      00000        1915+         CLI   0(R5),X'F0' END OF DATA SETS?               000E
00137A 0781                        1916+         BCR   8,R1 YES,RETURN                      000E
00137C D505 6001 D469 00001 066AA  1917+         CLC   1(6,R6),IEAVOLAB NO,IS THIS THE SAME VOLUME      000E
001382 4780 B25E            01360  1918+         BE    IEAMVBAD YES,FOX IT OUT                  000E
001386 47F0 B26C            0136E  1919+         B     IEAMVSKP NO,SKIP IT                      000E
00138A 4890 D2D3            06514  1920+IEAMVD04 LH    R9,IEAUCBHL R9 = UCB PNTR                   000E
00138E 9684 9003      00003        1921+         OI    3(R9),X'84' SET UCB PERMANENTLY RESIDENT    000E
001392 4144 0007            00007  1922+IEAMVUPD LA    R4,7(R4) UPDATE TWO                      000E
001396 4122 002D            0002D  1923+         LA    R2,45(R2) POINTERS                      000E
00139A 47F0 B1E8            012EA  1924+         B     IEAMVD02 TERURN TO CHECKING VOLUMES      000E

                                   1926+**  LOOPING AGAIN THROUGH THE LIST OF DSNAMES, SUBVRTTR IS
                                   1927+**  CALLED TO READ IN TRACKS PER CYLINDER INFO USED IN DEBCOMON.
00139E 5820 B182            01284  1928+IEAMVOBT L     R2,IEAMVDSN R2 = ADR OF DS NAMES            000E
0013A2 5840 B186            01288  1929+         L     R4,IEAMVVOL .            POINTER TO VOLUME LIST  PTM1534
0013A6 4170 000F            0000F  1930+         LA    R7,15 R7 = MAX NO DS CAN ADD TO LNKLIB000E
0013AA 95F0 2000      00000        1931+IEAMVL01 CLI   0(R2),X'F0' TEST FOR END OF DATA SETS       000E
0013AE 4780 B31E            01420  1932+         BE    IEAMVSTP EQUAL,FINISHED                  000E
0013B2 95FF 2000      00000        1933+         CLI   0(R2),X'FF' TEST FOR INVALID DATA SET       000E
0013B6 4770 B2C4            013C6  1934+         BNE   IEAMVL02 GOOD,KEEP PROCESSING            000E
0013BA 4122 002D            0002D  1935+IEAMVL06 LA    R2,45(R2) UPDATE TWO                      000E
0013BE 4144 0007            00007  1936+         LA    R4,7(R4) .               NEXT VOLSERNO           PTM1534
0013C2 47F0 B2A8            013AA  1937+         B     IEAMVL01 CHECK NEXT NAME                 000E
0013C6 D22B D9DB 2001 06C1C 00001  1938+IEAMVL02 MVC   IEADSTNM(44),1(R2) SET UP DSNAME OF DATA SET       000E
0013CC D205 D469 4001 066AA 00001  1939+         MVC   IEAVOLAB(6),1(R4) .      VOLSERNO                PTM1534
0013D2 4530 C19D            053DE  1940+         BAL   R3,IEASERCH
0013D6 4550 C0BD            052FE  1941+         BAL   R5,IEAUCBFN
0013DA 4890 D2D3            06514  1942+         LH    R9,IEAUCBHL .            UCB ADDRESS             PTM1534
0013DE 4560 C123            05364  1943+         BAL   R6,IEARDVOL .            SET UP IEATRPCL         PTM1534
0013E2 5810 0010            00010  1944+         L     R1,16 R1 = PNTR TO CVT                000E
0013E6 5811 0008            00008  1945+         L     R1,CVTLINK(R1) R1 = PNTR TO LINKLIB DCB        000E
0013EA 45E0 C07B            052BC  1946+         BAL   R14,IEACOMON BR TO DEB INIT RTN              000E
                                                                                                               PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0013EE 12FF                        1947+         LTR   R15,R15 TEST RETURN CODE                000E
0013F0 4780 B2FE            01400  1948+IEAMVL05 BE    IEAMVL04 ZERO,GOOD,PROCESS NEXT DATA SET
0013F4 92FF 2000      00000        1949+         MVI   0(R2),X'FF' FLAG BAD DATA SET               000E
0013F8 92FF 4000      00000        1950+         MVI   0(R4),XFF .              FLAG TO IGNORE          PTM1534
0013FC 47F0 B2B8            013BA  1951+         B     IEAMVL06 000E
001400 4122 002D            0002D  1952+IEAMVL04 LA    R2,45(R2) UPDATE TWO                      000E
001404 4144 0007            00007  1953+         LA    R4,7(R4) .               NEXT VOLSERNO           PTM1534
001408 4670 B2A8            013AA  1954+         BCT   R7,IEAMVL01 DECREASE NUMBER OF DEBS LEFT    000E

00140C 95F0 2000      00000        1956+IEAMVL03 CLI   0(R2),X'F0' TEST FOR END OF NAMES           000E
001410 4780 B31E            01420  1957+         BE    IEAMVSTP FINISHED                        000E
001414 92FF 2000      00000        1958+         MVI   0(R2),X'FF' SET REMAINING NAMES NOT FOUND   000E
001418 4122 002D            0002D  1959+         LA    R2,45(R2) UPDATE PTR                      000E
00141C 47F0 B30A            0140C  1960+         B     IEAMVL03 REPEAT                          000E

001420 5820 B182            01284  1962+IEAMVSTP L     R2,IEAMVDSN R2 = ADR START OF DSNAMES       000E
001424 5860 B186            01288  1963+         L     R6,IEAMVVOL R6 = ADR START OF VOLUMES       000E
001428 95FF 2000      00000        1964+IEAMVADD CLI   0(R2),X'FF' TEST FOR VALID DATA SET
00142C 4780 B342            01444  1965+         BE    IEAMVMS1 INVALID                         000E
001430 95F0 2000      00000        1966+         CLI   0(R2),X'F0' TEST FOR END OF NAMES           000E
001434 4780 B368            0146A  1967+         BE    IEAMVHLP YES,FINISHED                    000E
001438 4122 002D            0002D  1968+IEAMVMS0 LA    R2,45(R2) UPDATE TWO                      000E
00143C 4166 0007            00007  1969+         LA    R6,7(R6) POINTERS                      000E
001440 47F0 B326            01428  1970+         B     IEAMVADD BR TO NEXT NAME                 000E
001444 4700 B354            01456  1971+IEAMVMS1 BC    0,IEAMVMS2 NOP,FIRST TIME SWITCH FOR HEADIN000E
001448 D203 0048 C48F 00048 056D0  1972+         MVC   72(4),IEAMSGMV SET MSG CAW                     000E
00144E 4550 C285            054C6  1973+         BAL   R5,IEACONSL PRINT MESSAGE                   000E
001452 92F0 B343      01445        1974+         MVI   IEAMVMS1+1,X'F0' SET BRANCH AROUND MESSAGE       000E
001456 D22B CBD6 2001 05E17 00001  1975+IEAMVMS2 MVC   IEADSS(44),1(R2) MOVE IN NAME OF UNFOUND DS      000E
00145C D203 0048 C493 00048 056D4  1976+         MVC   72(4),IEADSSMV SET MSG CAW                     000E
001462 4550 C285            054C6  1977+         BAL   R5,IEACONSL PRINT MESSAGE                   000E
001466 47F0 B336            01438  1978+         B     IEAMVMS0 BR TO PROCESS FURTHER NAMES     000E
00146A 4100 0800            00800  1979+IEAMVHLP LA    R0,MVLISTSZ R0 = BYTES TO BE FREED          000E
00146E 1B11                        1980+         SR    R1,R1 R1 = CODE FOR FREEMAIN          000E
001470 D203 D63B B182 0687C 01284  1981+         MVC   GMADDR(4),IEAMVDSN GMADDR = ADR OF CORE TO FREE    000E
001476 4550 C1EF            05430  1982+         BAL   R5,IEAGETM BR TO FREEMAIN RTN              000E
00147A 9640 D52B      0676C        1983+         OI    IEASWITC,CNCALL SET C.N. ENTRY POINT CODE ON    MXMV
00147E 45E0 C07B            052BC  1984+         BAL   R14,IEACOMON LINK TO TCSC FOR DS C.N.        MXMV
001482 94BF D52B      0676C        1985+         NI    IEASWITC,255-CNCALL SET C.N. ENTRY POINT COLE OFF   MXMV
001486 94F7 D52B      0676C        1986+IEANOLLS NI    IEASWITC,255-MVCALL RESET M-V SWITCH            MXMV
00148A 9200 D8B0      06AF1        1987+         MVI   IEASETL,X'00' SET LIBRARY FOUND SWITCH TO OFF 000E
00148E                             1988+IEAMVEND EQU   * MXMV
                                   1989+*
                                   1990+********                                                         ******
                                   1991+********                                                         ******
                                   1992+********                                                         ******
                                   1993+*    SYS1.DUMP - THIS ROUTINE DETERMINES IF THE SYS1.DUMP DATA      DAR
                                   1994+*    SET HAS BEEN CATALOGED. IF SO THE DATA SET RESIDES ON A        DAR
                                   1995+*    DIRECT ACCESS STORAGE DEVICE AND ITS PRESENT STATUS MUST BE    DAR
                                   1996+*    DETERMINED. BEFORE THE DS STATUS CAN BE DETERMINED THE DEVICE  DAR
                                   1997+*    CHARACTERISTICS AND UNIT ADDRESS MUST BE OBTAINED. FROM THE    DAR
                                   1998+*    DEVICE CHARACTERISTICS AND THE HIGHEST CORE ADDRESS THE        DAR
                                   1999+*    NUMBER OF TRACKS REQUIRED FOR THE DS CAN BE COMPUTED. THE      DAR
                                   2000+*    SPACE THAT HAS BEEN ALLOCATED IS THEN COMPARED WITH THE SPACE  DAR
                                   2001+*    REQUIRED TO DETERMINE IF THE DS IS LARGE ENOUGH. IN EITHER     DAR
                                                                                                               PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2002+*    EVENT THE DS IS NEXT EXAMINED FOR THE PRESENCE OF A DUMP. THE  DAR
                                   2003+*    FOUR STATUS POSIBILITIES AND THEIR ASSOCIATED ACTIONS ARE      DAR
                                   2004+*
                                   2005+*     1. DS LARGE ENOUGH AND DUMP PRESENT:                          DAR
                                   2006+*                 DEB,ECB,IOB) AND CONTINUE NIP                     DAR
                                   2007+*     2. DS LARGE ENOUGH BUT NO DUMP:                               DAR
                                   2008+*        ACTION - FORMAT DS IF NECESSARY AND INITIALIZE NECESSARY   DAR
                                   2009+*                 CONTROL BLOCKS                                    DAR
                                   2010+*     3. DS TOO SMALL BUT DUMP PRESENT:                             DAR
                                   2011+*        ACTION - TREAT THE DS AS NOT CATALOGED AND ASK OPERATOR    DAR
                                   2012+*                 FOR TAPE UNIT.                                    DAR
                                   2013+*     4. DS TOO SMALL AND NO DUMP PRESEN:                           DAR
                                   2014+*        ACTION - SCRATCH AND RE-ALLOCATE DS. THEN FORMAT TRACKS    DAR
                                   2015+*                 REQUIRED AND INITIALIZE CONTROL BLOCKS            DAR
                                   2016+*    AND CONTINUE NIP.                                              DAR
                                   2017+*
                                   2018+*    IF THE DS WAS NOT FOUND IN THE CATALOG THE OPERATOR SHOULD BE  DAR
                                   2019+*    ASKED IF A TAPE IS TO BE SUPPLIED. (OPERATOR WILL REPLY WITH   DAR
                                   2020+*    EITHER NO OR A TAPE UNIT ADDRESS)  IF OPERATOR RESPONSE IS     DAR
                                   2021+*    AFFIRMATIVE A MOUNT-WAIT SEQUENCE WILL BE ENTERED WHICH IS     DAR
                                   2022+*    FOLLOWED VERIFICATION THAT THE TAPE IS UNLABELED. A SUCCESS-   DAR
                                   2023+*    FUL MOUNT WILL BE FOLLOWED BY INITIALIZATION OF THE NECESSARY  DAR
                                   2024+*    CONTROL BLOCKS AND RETURN TO NIP.                              DAR
                                   2025+*
                                   2026+*    IF DURING THE INITIALIZATION OF THE DATA SET IT BECOMES        DAR
                                   2027+*    IMPOSSIBLE TO PROVIDE THE SYS1.DUMP FUNCTION, A MESSAGE IS     DAR
                                   2028+*    WRITTEN TO THE OPERATOR STATING THAT THE FUNCTION IS           DAR
                                   2029+*    OPERATIVE. (NOTE: THIS INFORMATIONAL MESSAGE MAY BE PRECEDED   DAR
                                   2030+*    BY OTHER INFORMATIONAL MESSAGE WHICH DESCRIBE THE ACTUAL       DAR
                                   2031+*    CAUSE OF FAILURE.)                                             DAR
                                   2032+*
                                   2033+*
                                   2034+********                                                         ******
                                                                                                               PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00148E 05B0                        2036+         BALR  R11,R0 INITIALIZE BASE REG         DAR
001490                             2037+         USING *,R11 FOR DAR SUBROUTINE           DAR
001490 D22B D9DB B990 06C1C 01E20  2038+         MVC   IEADSTNM(Q44),IEASDPNM MOVE DSNAME FOR LOCATE      DAR
001496 4590 C13B            0537C  2039+         BAL   R9,IEALOCAT FIND SYS1.DUMP IN CATLG     DAR
00149A 91FF D512      06753        2040+         TM    LOCATEOK,XFF TEST FOR CATLG ENTRY FOUND  DAR
00149E 4710 B4C8            01958  2041+         BO    IEAREQTP NO - ASK FOR TAPE           DAR
0014A2 96F0 B1DC      0166C        2042+         OI    IEADPSW0,XF0 INDICATE DA DEVICE          DAR
0014A6 D20D D3A7 CFF7 065E8 06238  2043+         MVC   IEARLOCT(Q14),IEABUFER SAVE LOCATE INFO            DAR
0014AC D503 D3AC D50C 065ED 0674D  2044+         CLC   IEARLOCT+LOCATYPE,IEACELLY TEST ENTRY FOR DATA CELL  DAR
0014B2 4780 B4C8            01958  2045+         BE    IEAREQTP CATLG'D DEV NOT SUPPORTED    DAR
0014B6 9601 D52B      0676C        2046+         OI    IEASWITC,ROLLCALL CATLG'D DEV TYPE ONLY       DAR
0014BA D705 D451 D451 06692 06692  2047+         XC    IEASKADR(Q6),IEASKADR CLEAR TRK ADDR FIELD        DAR
0014C0 9200 D511      06752        2048+         MVI   IEAPRCSW,X00 CLEAR DATA CELL SWITCH      DAR
0014C4 9608 D534      06775        2049+         OI    IEASWITD,NOHANG NO HANG IF UCB NOT FOUND         DAR
0014C8 D207 CA16 B995 05C57 01E25  2050+         MVC   IEADSNAM(Q8),IEASDPNM+Q5 MOVE SYS1.DUMP NM IN MSG A31496
0014CE 4150 B0B0            01540  2051+         LA    R5,IEANODMP SET UP BYPASS               DAR
0014D2 5050 D74F            06990  2052+         ST    R5,NOHNGCON ADDR FOR NO UCB FOUND       DAR
0014D6 4530 C19D            053DE  2053+         BAL   R3,IEASERCH GET UNIT ADDRESS            DAR
0014DA 94FE D52B      0676C        2054+         NI    IEASWITC,Q255-ROLLCALL RESET DEV DEPENDENCE SWCH   DAR
0014DE 4550 C0BD            052FE  2055+         BAL   R5,IEAUCBFN FIND UCB FOR THIS UNIT      DAR
0014E2 94FF D516      06757        2056+         NI    IEAINDIC,XFF TEST FOR UCB DEFINED        DAR
0014E6 4780 C0D5            05316  2057+         BZ    IEANOUCB NO - GO WRITE ERR MSG       DAR
0014EA 4890 D2D3            06514  2058+         LH    R9,IEAUCBHL YES R9 = PTR TO UCB         DAR
0014EE D200 D3C1 9013 06602 00013  2059+         MVC   DUMPTYPE(Q1),Q19(R9) SAVE UNIT TYPE              DAR
0014F4 4090 D3A5            065E6  2060+         STH   R9,IEARLUCB+2 SAVE SYS1.DUMP UCB PTR      DAR
0014F8 40A0 D3BF            06600  2061+         STH   R10,IEARLUNT SAVE SYS1.DUMP UNIT ADDR    DAR
0014FC D201 D3B8 D451 065F9 06692  2062+         MVC   IEARLADR+Q1(Q2),IEASKADR SAVE SYSDUMP BIN NO.     29851
001502 92FF D3F3      06634        2063+         MVI   IEASRSW,XFF SET TRK INFO REQUEST SWCH   DAR
001506 4560 C123            05364  2064+         BAL   R6,IEARDVOL READ FORMAT IV DSCB         DAR
00150A 9200 D3F3      06634        2065+         MVI   IEASRSW,X00 TURN OFF TRK INFO REQ SWCH  DAR
00150E D205 D3C9 D469 0660A 066AA  2066+         MVC   IEARLVOL(Q6),IEAVOLAB SAVE VOL SER                DAR
001514 D203 BC38 D3DF 020C8 06620  2067+         MVC   IEADRSZ(Q4),IEATRKSZ DS RCD SZ = NO. BYTES/TRK   DAR
00151A D201 BC44 D3EF 020D4 06630  2068+         MVC   IEADSTPC(Q2),IEASRTPC SAVE TRKS/CYL               DAR
001520 4130 0004            00004  2069+         LA    R3,X04 SET FORMAT I OBTAIN CODE    DAR
001524 4540 C153            05394  2070+         BAL   R4,IEAOBTAN GO TO OBTAIN ROUTINE        DAR
001528 12FF                        2071+         LTR   R15,R15 SUCCESSFUL                  DAR
00152A 4780 B0B8            01548  2072+         BZ    IEADSI1 YES - CONTINUE NORMALLY     DAR
00152E 92FF B1DD      0166D        2073+         MVI   IEADPSW1,XFF NO - INDICATE NO SCRATCH    DAR
001532 4100 00FF            000FF  2074+         LA    R0,Q255 GM FAILURE RETURN CODE      DAR
001536 19F0                        2075+         CR    R15,R0 WAS THIS A GM FAILURE        DAR
001538 4780 B4C8            01958  2076+         BE    IEAREQTP YES - TRY FOR TAPE           DAR
00153C 47F0 B0C8            01558  2077+         B     IEADSI2 NO - CONTINUE               DAR
001540 94F7 D534      06775        2078+IEANODMP NI    IEASWITD,HANG RESET NO HANG SWITCH             DAR
001544 47F0 B4C8            01958  2079+         B     IEAREQTP GO ASK FOR TAPE              DAR
001548 D204 D3BA A060 065FB 00060  2080+IEADSI1  MVC   IEARLADR+3(Q5),Q96(R10) SAVE CCHHR OF FORMAT I DSCB DAR
00154E D25F B9BC A000 01E4C 00000  2081+         MVC   IEADSWKA(Q96),Q0(R10) MOVE DSCB TO STATIC CORE    DAR
001554 4540 C16B            053AC  2082+         BAL   R4,IEAFREOB GIVE UP DYNAMIC CORE        DAR

                                   2084+*********
                                   2085+*      OBTAIN THE HIGHEST STORAGE ADDR AND THEN COMPUTE THE NUMBER  DAR
                                   2086+*      OF TRACKS REQUIRED FOR A FULL CORE DUMP.  THEN COMPUTE TH    DAR
                                   2087+*      NUMBER OF TRACKS ALLOCATED TO THE DATA SET.  IF THE ALLOCATE DAR
                                   2088+*      DATA SET SI TOO SMALL INDICATE SUCH BY SETTING INTERNAL SW   DAR

001558                             2090+IEADSI2  EQU   * DAR
                                                                                                               PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001558 5850 0010            00010  2091+         L     R5,Q16 R5 = PNTR TO CVT                 DAR
00155C 5855 00A4            000A4  2092+         L     R5,CVTMZ00(R5) GET HIGH CORE ADDR          DAR
001560 4155 0001            00001  2093+         LA    R5,Q1(R5) DETERMINE CORE SIZE         DAR
001564 1B44                        2094+         SR    R4,R4 CLEAR REG FOR DIVIDE        DAR
001566 8850 000A            0000A  2095+         SRL   R5,Q10 DIVIDE BY 1024 FOR NO. OF K        20048
00156A 1B66                        2096+         SR    R6,R6 CLEAR REG 6                        20048
00156C 4360 D3C1            06602  2097+         IC    R6,DUMPTYPE GET DEVICE TYPE                    20048
001570 1A66                        2098+         AR    R6,R6 DOUBLE FOR TABLE INDEX             20048
000000                             2099+         USING DARSECT,R8 BASE REG FOR DSECT                 20048
001572 5880 D247            06488  2100+         L     R8,IEANUCND ADDR I/O CB AREA                   20048
001576 D211 811E B977 0011E 01E07  2101+         MVC   DMP2311(Q18),D2311 INIT SVCDUMP DEVICE TABLE      20048
00157C 4366 811C            0011C  2102+         IC    R6,DMPDINFO(R6) GET NO. 1K BYTES/TRACK             20048
001580 4166 0001            00001  2103+         LA    R6,1(R6) .               ADJUST FOR NIPS USE   BI A42108
001584 1D46                        2104+         DR    R4,R6 COMPUTE NO. OF TRACKS              20048
001586 9509 9013      00013        2105+         CLI   UCBUTYPE(R9),U3330FLG IS THIS A 3330 DEV.    BH 59204
00158A 4770 B102            01592  2106+         BNE   NOT3330 NO ALLOCATE ONLY ONE EXTRA TRK  BH 59204
00158E 4155 0001            00001  2107+         LA    R5,Q1(R5) REQUIRED FOR DUMP                  20048
001592                             2108+NOT3330  EQU   * BH 59204
001592 4155 0001            00001  2109+         LA    R5,Q1(R5) REQUIRED FOR SYS1DUMP ALLOCATION BH 59204
001596 5050 BC40            020D0  2110+         ST    R5,IEADTRKS SAVE NUMBER TRKS REQ'D      DAR
00159A 91FF B1DD      0166D        2111+         TM    IEADPSW1,XFF DID OBTAIN FAIL             DAR
00159E 4710 B212            016A2  2112+         BO    IEAALLOC YES - ALLOCATE ONLY         DAR
0015A2 9501 B9CB      01E5B        2113+         CLI   IEADSWKA+NUMEXT,X01 IS THIS A SINGLE EXT DS     DAR
0015A6 4770 B1F4            01684  2114+         BNE   IEADPSAA NO - SCRATCH & RE-ALLOC     DAR
0015AA 4120 B9FB            01E8B  2115+         LA    R2,IEADSWKA+BEGADR R2 = PTR TO BEG ADDR OF DS  DAR
0015AE 1B66                        2116+         SR    R6,R6 CLEAR FOR TOTAL             DAR
0015B0 1B33                        2117+         SR    R3,R3 CLEAR FOR COMPUTATION       DAR
0015B2 D203 D393 2000 065D4 00000  2118+         MVC   IEAROLS4(Q4),Q0(R2) MOVE BEG CCHH TO WORD BNDRY DAR
0015B8 D203 D397 2004 065D8 00004  2119+         MVC   IEAROLS8(Q4),Q4(R2) MOVE END CCHH TO WORD BNDRY DAR
0015BE 4830 D397            065D8  2120+         LH    R3,IEAROLS8 LOAD ENDING CC               DAR
0015C2 4B30 D393            065D4  2121+         SH    R3,IEAROLS4 SUBTRACT BEG CC             DAR
0015C6 4C30 BC44            020D4  2122+         MH    R3,IEADSTPC * BY TRKS/CYL               DAR
0015CA 4A30 D399            065DA  2123+         AH    R3,IEAROLS8+2 ADD ENDING HH               DAR
0015CE 4B30 D395            065D6  2124+         SH    R3,IEAROLS4+2 SUBTRACT BEG HH             DAR
0015D2 4133 0001            00001  2125+         LA    R3,Q1(R3) ADD 1 SINGE ADDR INCLUSIVE  DAR
0015D6 1953                        2126+         CR    R5,R3 ALLOC'D SPACE BIG ENOUGH    DAR
0015D8 47D0 B154            015E4  2127+         BNH   IEADSI3 YES - GO CHECK FORMAT       DAR
0015DC 92FF B1DE      0166E        2128+         MVI   IEADPSW2,XFF INDICATE ALLOC'D TOO SMALL  DAR
0015E0 47F0 B158            015E8  2129+         B     IEADSI3A CONTINUE                    DAR

                                   2131+*********
                                   2132+*      IF THE ALLOCATED DATA SET IS O.K. THEN SAVE THE NUMBER  @SA67039
                                   2133+*      OF TRACKS REQUIRED AS QUZNTITY TO BE FORMATTED               DAR

0015E4 5030 BC40            020D0  2135+IEADSI3  ST    R3,IEADTRKS SAVE NUMBER TRKS TO FORMAT  DAR

0015E8                             2137+IEADSI3A EQU   * @SA67039
000000                             2138+         USING DARSECT,R8 BASE REG FOR                DAR
0015E8 4550 B2BE            0174E  2139+         BAL   R5,IEADSFOR SET UP CONTROL BLOCKS              20048
0015EC D71F 8000 8000 00000 00000  2140+         XC    DARIOB(32),DARIOB ZERO OUT IOB                DAR
0015F2 9242 8000      00000        2141+         MVI   DARIOBF1,X42 SET IOB FLAGS               DAR
0015F6 D203 8010 B960 00010 01DF0  2142+         MVC   DARCCWAD(Q4),IEDPCAW3 PUT 1ST CCW ADR IN IOB      DAR
0015FC 5020 8014            00014  2143+         ST    R2,DARADDCB STORE IN IOB                DAR
001600 4120 8090            00090  2144+         LA    R2,DARECB GET ADDR OF ECB             DAR
001604 5020 8004            00004  2145+         ST    R2,DARECBAD STORE IN IOB                DAR
                                                                                                               PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001608 D707 8020 8020 00020 00020  2146+         XC    DARDEBXT(Q8),DARDEBXT ZERO MBB IN IOB             DAR
00160E D203 8023 807E 00023 0007E  2147+         MVC   DARDEBXT+3(Q4),DARCYLST MOVE CCHH TO IOB            DAR
001614 9601 8027      00027        2148+         OI    DARDEBXT+7,X01 PUT RCD NO. IN IOB          DAR
001618 D202 8075 B944 00075 01DD4  2149+         MVC   DARIOAPT(Q3),PTRAPPTB MOVE APP TAB ADDR TO DEB    DAR
00161E D703 8090 8090 00090 00090  2150+         XC    DARECB(Q4),DARECB ZERO ECB                    DAR
001624 D204 BC54 8023 020E4 00023  2151+         MVC   IEDSSADR(Q5),DARSEKAD+2 SET UP SEARCH ADR           DAR
00162A D201 B89E BC3A 01D2E 020CA  2152+         MVC   IEDSRWCW+Q6(Q2),IEADRSZ+Q2 SET LENGTH IN RD CCW   A32092
001630 9610 B89C      01D2C        2153+         OI    IEDSRWCW+Q4,X10 TURN ON SKIP BIT              A32092
001634 4110 8000            00000  2154+         LA    R1,DARIOB ADDR IOB FOR READ RCD ONE   DAR
001638 0A00                        2155+         SVC   0 LINK TO EXCP                DAR
00163A 4110 8090            00090  2156+         LA    R1,DARECB GET ECB FOR WAIT            DAR
00163E 4100 0001            00001  2157+         LA    R0,Q1 COUNT OF 1                  DAR
001642 0A01                        2158+         SVC   1 LINK TO WAIT RTN            DAR
001644 8000 D28F      064D0        2159+         SSM   IEAZERO DAR
001648 9180 B1DF      0166F        2160+         TM    IEADPSW3,X80 EOF ENCOUNTERED AS 1ST RCD  DAR
00164C 4710 B1E0            01670  2161+         BO    IEADSI4 YES CHECK SIZE              DAR
001650 91FF B1DE      0166E        2162+         TM    IEADPSW2,XFF WAS ALLOC'D SPACE TOO SMALL DAR
001654 4710 B4C8            01958  2163+         BO    IEAREQTP YES  GO ASK FOR TAPE        DAR
001658 47F0 B3D0            01860  2164+         B     IEAFCBI CONTINUE                    DAR

                                   2166+*********
                                   2167+*      APPENDAGE TABLE THAT FOLLWOS IS PRESENT TO INTERCEPT UNIT    DAR
                                   2168+*      EXCEPTIONS THAT INDICATE THAT THE DATA SET HAS BEEN          DAR
                                   2169+*      FORMATTED BUT THAT IT IS EMPTY                               DAR

00165C 0700                        2171+         CNOP  2,4 GUARANTEE BDRY ALIGNMENT   GF  47218
00165E 9101 200C      0000C        2172+CEAPPEND TM    Q12(R2),X01 UNIT EXCEPTION OCCUR        DAR
001662 478F 000C            0000C  2173+         BZ    Q12(R15) NO BRANCH TO RETURN         DAR
001666 9680 F011      00011        2174+         OI    Q17(R15),X80 INDICATE EMPTY DS            @SA67039
00166A 07FE                        2175+OTHERAPP BR    R14 RETURN TO IOS               DAR
                                   2176+*    THE CONSTANT IEADPSW0 HAS TO IMMEDIATELY FOLLOW THE BR 14      DAR
                                   2177+*    INSTRUCTION LABELED OTHERAPP                                   DAR
00166C 00000000                    2178+IEADPSW0 DC    F'0' INTERNAL                    DAR
00166D                             2179+IEADPSW1 EQU   IEADPSW0+1 FUNTION                    DAR
00166E                             2180+IEADPSW2 EQU   IEADPSW0+2 INDICATOR                  DAR
00166F                             2181+IEADPSW3 EQU   IEADPSW0+3 SWITCHES                   DAR
001670 91FF B1DE      0166E        2182+IEADSI4  TM    IEADPSW2,XFF ALLOC'D SPACE TO SMALL      DAR
001674 4710 B1F4            01684  2183+         BO    IEADPSAA YES-SCRATCH & RE-ALLOC      DAR
001678 47F0 B3D0            01860  2184+         B     IEAFCBI NO - GO BUILD CB'S          DAR
00167C 91FF B1DE      0166E        2185+IEADSI3B TM    IEADPSW2,XFF ALLOC'D SPACE TOO SMALL     DAR
001680 47E0 B352            017E2  2186+         BNO   IEADSEOF 20048

                                   2188+*********
                                   2189+*      THE ALLOCATED DATA SET WAS TOO SMALL SO SCRATCH IT AND TRY   DAR
                                   2190+*      TO RE-ALLOCATE                                               DAR

001684 1B00                        2192+IEADPSAA SR    R0,R0 CLEAR REG 0                 DAR
001686 4110 BC88            02118  2193+         LA    1,IEADSCR LOAD PARAMETER REG 1
00168A 0A1D                        2194+         SVC   29 ISSUE SCRATCH SVC
00168C 12FF                        2195+         LTR   R15,R15 WAS DS SCRATCH SUCCESSFUL   DAR
00168E 4770 B49A            0192A  2196+         BNZ   IEADPER1 NO - WRITE ERR MSG          DAR
001692 D205 CE02 D469 06043 066AA  2197+         MVC   RSOKVOL(Q6),IEAVOLAB MOVE VOL SE- TO MSG 209&    DAR
001698 D203 0048 C4EB 00048 0572C  2198+         MVC   Q72(Q4),IEARRSAW READY 209I MSG CAW          DAR
00169E 4550 C285            054C6  2199+         BAL   R5,IEACONSL GO WRITE MSG                DAR
                                                                                                               PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2201+*********
                                   2202+*      EITHER DATA SET HAS BBEN SCRATCHED OR IT WAS NEVER ALLOCATED DAR
                                   2203+*      THEREFORE ATTEMPT TO ALLOCATE SUFFICIENT SPACE               DAR
                                   2204+*    SET UP JFCB USED BY ALLOCATE                                   DAR

0016A2 9200 BB28      01FB8        2206+IEAALLOC MVI   IEDSBUFR,X00 ZERO WORK AREA FOR          DAR
0016A6 D2AF BB29 BB28 01FB9 01FB8  2207+         MVC   IEDSBUFR+1(176),IEDSBUFR CREATION OF JFCB           DAR
0016AC 4110 BB28            01FB8  2208+         LA    R1,IEDSBUFR ADDR OF JFCB                DAR
0016B0 D22B 1000 B990 00000 01E20  2209+         MVC   JFCBDSNM(Q44,R1),IEASDPNM MOVE DSNAME TO JFCB        DAR
0016B6 9280 1057      00057        2210+         MVI   JFCBIND2(R1),X80 MOD DS                      DAR
0016BA 9288 1034      00034        2211+         MVI   JFCBTSDM(R1),X88 CATLG'D DS                  DAR
0016BE 9240 1062      00062        2212+         MVI   JFCDSORG(R1),X40 PHY SEQ ORGANIZATION        DAR
0016C2 9201 1075      00075        2213+         MVI   JFCBNVOL(R1),X01 ONE VOL SER NO              DAR
0016C6 D205 1076 D3C9 00076 0660A  2214+         MVC   JFCBVOLS(Q6,R1),IEARLVOL VOL SER NO.                 DAR
0016CC D201 10AC BC3A 000AC 020CA  2215+         MVC   JFCBDRLH+1(Q2,R1),IEADRSZ+2 RCD LNGTH IN JFCB        DAR
0016D2 5850 BC40            020D0  2216+         L     R5,IEADTRKS GET NUMBER RECORDS NEEDED   DAR
0016D6 8950 0008            00008  2217+         SLL   R5,Q8 DAR
0016DA 5051 0098            00098  2218+         ST    R5,JFCBPQTY(R1) NO. RCDS = PRIM QUANTITY    DAR
0016DE 8850 0008            00008  2219+         SRL   R5,Q8 DAR
0016E2 9689 109B      0009B        2220+         OI    JFCBCTRI(R1),X89 -CD ALLOC ON CYL BOUNDA-Y   DAR
0016E6 4110 D3A3            065E4  2221+         LA    R1,IEARLUCB ADDR OF UCB LIST            DAR
0016EA 4100 BB28            01FB8  2222+         LA    R0,IEDSBUFR ADDR OF JFCB                DAR
0016EE 0A20                        2223+         SVC   32 LINK TO ALLOCATE            DAR
0016F0 12FF                        2224+         LTR   R15,R15 WAS ALLOC SUCCESSFUL        DAR
0016F2 4770 B4AA            0193A  2225+         BNZ   IEADPER2 NO INDICATE TYPE OF ERR     DAR
0016F6 D205 CE2B D469 0606C 066AA  2226+         MVC   RAOKVOL(Q6),IEAVOLAB MOVE VOL SER TO MSG 210I    DAR
0016FC D203 0048 C4EF 00048 05730  2227+         MVC   Q72(Q4),IEARRAAW READY MSG 210I CAW           DAR
001702 4550 C285            054C6  2228+         BAL   R5,IEACONSL GO - WRITE MSG              DAR
001706 4130 0004            00004  2229+         LA    R3,Q4 SET FORMAT I OBTAIN CODE    DAR
00170A D22B D9DB B990 06C1C 01E20  2230+         MVC   IEADSTNM(Q44),IEASDPNM SET UP DSNAME               DAR
001710 D205 D469 D3C9 066AA 0660A  2231+         MVC   IEAVOLAB(Q6),IEARLVOL SET UP VOL SER NO.          DAR
001716 4540 C153            05394  2232+         BAL   R4,IEAOBTAN GO TO OBTAIN ROUTINE        DAR
00171A 12FF                        2233+         LTR   R15,R15 SUCCESSFUL                  DAR
00171C 4770 B4C8            01958  2234+         BNZ   IEAREQTP NO - ASK FOR TAPE            DAR
001720 D204 D3BA A060 065FB 00060  2235+         MVC   IEARLADR+3(Q5),Q96(R10) SAVE CCHHR OF DSCB I        DAR
001726 D25F B9BC A000 01E4C 00000  2236+         MVC   IEADSWKA(Q96),Q0(R10) MOVE DSCB TO STATIC CORE    DAR
00172C 4540 C16B            053AC  2237+         BAL   R4,IEAFREOB GIVE UP DYNAMIC CORE        DAR
001730 D704 BC64 BC64 020F4 020F4  2238+         XC    IEDSR0AD(Q5),IEDSR0AD CLEAR SEARCH FIELD           20048
001736 D700 BB2D BB2D 01FBD 01FBD  2239+         XC    IEDSBUFR+Q5(Q1),IEDSBUFR+Q5 ZERO KEY LENGTH        20048
00173C 921D B898      01D28        2240+         MVI   IEDSRWCW,X1D SET UP WRITE OP CODE               20048
001740 9201 BB2C      01FBC        2241+         MVI   IEDSBUFR+4,X01 INDICATE RECORD ONE                20048
001744 D700 BC58 BC58 020E8 020E8  2242+         XC    IEDSSADR+Q4(Q1),IEDSSADR+Q4 SEARCH RECORD ZERO    20048
00174A 47F0 B352            017E2  2243+         B     IEADSEOF WRITE EOF AS FIRST RECORD          20048

                                   2245+*********
                                   2246+*   SET UP INITIAL CONTROL BLOCKS REQUIRED FOR I/O                20048
00174E 5880 D247            06488  2247+IEADSFOR L     R8,IEANUCND ADDR I/O CB AREA             DAR
001752 4110 0007            00007  2248+         LA    R1,Q7 .                  ROUNDING MASK            A32080
001756 1A81                        2249+         AR    R8,R1 .                  ADD 7 TO DBL WORD EXCESS A32080
001758 1681                        2250+         OR    R8,R1 .                  AT MOST 7 BYTES EXCESS   A32080
00175A 1781                        2251+         XR    R8,R1 .                  TRUNCATE TO DBL WORD     A32080
00175C 5080 D247            06488  2252+         ST    R8,IEANUCND .            SAVE ROUNDED UP VALUE    A32080
001760 D717 8058 8058 00058 00058  2253+         XC    DARDEB(24),DARDEB ZERO OUT 1ST SIX WORDS       DAR
001766 D701 807C 807C 0007C 0007C  2254+         XC    DARVOID2(Q2),DARVOID2 ZERO OUT EXTENT IN DEB      DAR
00176C 4120 8058            00058  2255+         LA    R2,DARDEB GET ADDR OF DEB             DAR
                                                                                                               PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001770 5020 8088            00088  2256+         ST    R2,DARERCTL STORE IN DCB                DAR
001774 960C 8088      00088        2257+         OI    DARERCTL,X0C INDICATE NO STD ERP         DAR
001778 4120 8088            00088  2258+         LA    R2,DARDCB GET PSEUDO ADDR OF DCB      DAR
00177C 5B20 BC60            020F0  2259+         S     R2,IEADC44 DETERMINE ACTUAL DCB ADDR   DAR
001780 5020 8070            00070  2260+         ST    R2,DARTCBPK STORE IN DEB                DAR
001784 920F 8070      00070        2261+         MVI   DARTCBPK,X0F PUT DEB ID IN DEB            DAR
001788 D703 8074 8074 00074 00074  2262+         XC    DARDEVCE(Q4),DARDEVCE ZERO OUT APP VECT TAB PTR   DAR
00178E D203 8078 D3A3 00078 065E4  2263+         MVC   DARUCBAD(Q4),IEARLUCB PUT UCB ADDR IN DEB         DAR
001794 9604 8074      00074        2264+         OI    DARDEVCE,X04 INDICATE DASD IN DEB        DAR
001798 96C0 8078      00078        2265+         OI    DARTMODE,XC0 SET DEB FILE MASK           DAR
00179C D207 807E B9FB 0007E 01E8B  2266+         MVC   DARCYLST(Q8),IEADSWKA+BEGADR MOVE B&E CCHH'S        DAR
0017A2 D201 8086 BC42 00086 020D2  2267+         MVC   DARTRKSZ(Q2),IEADTRKS+2 MOVE NO. TRKS TO DEB         DAR
0017A8 D202 8075 B944 00075 01DD4  2268+         MVC   DARIOAPT(Q3),PTRAPPTB MOVE APP TAB ADDR TO DEB     20048
0017AE D203 B954 B948 01DE4 01DD8  2269+         MVC   APPVTAB1+Q12(Q4),APPVTAB1 SET UP APP VECTOR TABLE  20048
0017B4 07F5                        2270+         BR    5 RETURN TO MAIN ROUTINE             20048

                                   2272+*      THIS SUBROUTINE IS USED TO RE-INITIALIZE THE IOB FOR THE     DAR
                                   2273+*      VARIOUS EXCP'S                                               DAR
0017B6 D703 8000 8000 00000 00000  2274+DARDAIOB XC    DARIOB(Q4),DARIOB ZERO                         DAR
0017BC D21F 8004 8000 00004 00000  2275+         MVC   DARIOB+4(32),DARIOB IOB                         DAR
0017C2 D202 8015 8071 00015 00071  2276+         MVC   DARADDCB+1(Q3),DARDCBAD MOVE DCB ADDR TO IOB         DAR
0017C8 D203 8023 BC54 00023 020E4  2277+         MVC   DARSEKAD+2(Q4),IEDSSADR SET UP IOB SEEK ADDR         DAR
0017CE 9242 8000      00000        2278+         MVI   DARIOBF1,X42 SET IOB FLAGS               DAR
0017D2 4120 8090            00090  2279+         LA    R2,DARECB GET ADDR OF ECB             DAR
0017D6 5020 8004            00004  2280+         ST    R2,DARECBAD STORE IN IOB                DAR
0017DA D703 8090 8090 00090 00090  2281+         XC    DARECB(Q4),DARECB ZERO ECB                    DAR
0017E0 07F5                        2282+         BR    R5 RETURN                       DAR

                                   2284+**  WRITE EOF AS THE FIRST RECORD OF THE DATA SET                 20048
0017E2 4550 B2BE            0174E  2285+IEADSEOF BAL   R5,IEADSFOR SET UP CONTROL BLOCKS              20048
0017E6 4550 B326            017B6  2286+         BAL   R5,DARDAIOB REINITIALIZE IOB                   20048
0017EA D701 BB2E BB2E 01FBE 01FBE  2287+         XC    IEDSBUFR+6(Q2),IEDSBUFR+6 ZERO DATA LENGTH IN CNT 20048
0017F0 D203 BB28 B9FB 01FB8 01E8B  2288+         MVC   IEDSBUFR(Q4),IEADSWKA+BEGADR RESTORE CCHH OF BEG    DAR
0017F6 D204 8023 BB28 00023 01FB8  2289+         MVC   DARSEKAD+Q2(Q5),IEDSBUFR OF DS FOR SEEK          20048
0017FC D203 BC64 BB28 020F4 01FB8  2290+         MVC   IEDSR0AD(Q4),IEDSBUFR SEARCHES AND           DAR
001802 D203 BC54 BB28 020E4 01FB8  2291+         MVC   IEDSSADR(Q4),IEDSBUFR COUNT                  DAR
001808 D203 8010 B960 00010 01DF0  2292+         MVC   DARCCWAD(Q4),IEDPCAW3 PUT ADDR WRITE CCW IN IOB   DAR
00180E 4110 8000            00000  2293+         LA    R1,DARIOB DAR
001812 0A00                        2294+         SVC   0 DO THE WRITE                DAR
001814 4110 8090            00090  2295+         LA    R1,DARECB ADDR ECB                    DAR
001818 4100 0001            00001  2296+         LA    R0,Q1 COUNT OF 1                  DAR
00181C 0A01                        2297+         SVC   1 LINK TO WAIT                DAR
00181E 8000 D28F      064D0        2298+         SSM   IEAZERO DAR
001822 917F 8090      00090        2299+         TM    DARECB,X7F I/O SUCCESSFUL              DAR
001826 47E0 B4BA            0194A  2300+         BNO   IEADPER3 NO INDICATE FORMAT ERR      DAR
                                   2301+*    WRITE THE UPDATED FORMAT I DSCB.                               DAR
00182A D205 BC6C D3B8 020FC 065F9  2302+         MVC   IEDSKADR(Q6),IEARLADR+1 MOVE DSCB I ADDR FOR SEEK   DAR
001830 D204 BC54 D3BA 020E4 065FB  2303+         MVC   IEDSSADR(Q5),IEARLADR+3 MOVE CCHHR FOR SEARCH ID=   DAR
001836 4140 B9BC            01E4C  2304+         LA    R4,IEADSWKA READY DATA ADDR FOR WRT     DAR
00183A 4130 0005            00005  2305+         LA    R3,Q5 PREPARE OP CODE             DAR
00183E 8930 0018            00018  2306+         SLL   R3,24 FOR DATA WRITE             DAR
001842 1643                        2307+         OR    R4,R3 COMBINE AND STORE AS 1ST    DAR
001844 5040 B898            01D28  2308+         ST    R4,IEDSRWCW HALF OF WRITE CCW          DAR
001848 D701 B89E B89E 01D2E 01D2E  2309+         XC    IEDSRWCW+6(Q2),IEDSRWCW+6 ZERO COUNT FIELD OF CCW    DAR
00184E 9660 B89F      01D2F        2310+         OI    IEDSRWCW+7,Q96 DATA LENGTH = 96            DAR
                                                                                                               PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001852 48A0 D3BF            06600  2311+         LH    R10,IEARLUNT R10 = DS UNIT ADDR          DAR
001856 D203 0048 B940 00048 01DD0  2312+         MVC   Q72(Q4),IEDPCAW2 SET CAW FOR DSCB I WRT      DAR
00185C 4550 C29F            054E0  2313+         BAL   R5,IEASTRIO WRITE UPDATED DSCB I        DAR
                                   2314+*    THIS PORTION OF THE CODE INITIALIZES THE CONTROLS BLOCKS       DAR
                                   2315+*    FOR THE LAST TIME. ALSO THE PARAMETER LIST REQUIRED BY THE     DAR
                                   2316+*    DUMP WRITING ROUTINE IS PLACED IN THE FIRST THREE WORDS OF     DAR
                                   2317+*    THE DEB IN PCP SYSTEMS                                       20048
001860 4550 B2BE            0174E  2318+IEAFCBI  BAL   R5,IEADSFOR SET UP CONTROL BLOCKS              20048
001864 4820 807A            0007A  2319+         LH    R2,DARUCBAD+2 GET UCB ADDR                       20048
001868 9604 2003      00003        2320+         OI    UCBESTAT(R2),X04 MARK UCB PERMANENT            A33227
00186C D71F 8000 8000 00000 00000  2321+         XC    DARIOB(32),DARIOB ZERO OUT IOB                DAR
001872 4120 8090            00090  2322+         LA    R2,DARECB GET ECB ADDR                DAR
001876 5020 8004            00004  2323+         ST    R2,DARECBAD PUT IN IOB                  DAR
00187A 4120 0138            00138  2324+DUMPINIT LA    R2,DMPCBLGT GET LENGTH OF CB'S                 20048
00187E 1A28                        2325+         AR    R2,R8 GET PTR TO NEW DUMMY BUFR   DAR
001880 5020 D247            06488  2326+         ST    R2,IEANUCND SET PTR TO NEXT AVAILABLE    DAR
001884 5820 0010            00010  2327+         L     R2,Q16 GET BASE OF CVT             DAR
001888 5082 0048            00048  2328+         ST    R8,CVTDAR(R2) STORE PTR TO CONTROL BLOCKS DAR
                                   2329+*                                        IN THE CVT                 DAR
00188C D201 807C D3B8 0007C 065F9  2330+         MVC   DMPDEBBI(Q2),IEARLADR+Q1 BIN NUMBER               20048
001892 D207 807E B9FB 0007E 01E8B  2331+         MVC   DMPDEBST(Q8),IEADSWKA+BEGADR BEG. & END CCHH'S    20048
001898 9210 808C      0008C        2332+         MVI   DMPDCBOF,X10 DCB FLAG                           20048
00189C 5820 0010            00010  2333+NOSUPP   L     R2,Q16 PUT ADDR OF BR 14                  20048
0018A0 4142 0052            00052  2334+         LA    R4,82(R2) IN DEB                             20048
0018A4 1854                        2335+         LR    R5,R4 TAPE APPENDAGES                    20048
0018A6 9045 8028            00028  2336+         STM   R4,R5,DMPAPPAD AND                                20048
0018AA 9045 8030            00030  2337+         STM   R4,R5,DMPAPPAD+Q8 DEB DASD                        20048
0018AE 5040 8038            00038  2338+         ST    R4,DMPDEBSI APPENDAGE                          20048
0018B2 D20B 803C B8E0 0003C 01D70  2339+         MVC   DMPDEBPC(Q12),PCIAPAD DEB APPENDAGE ADD.'S        20048
0018B8 D211 811E B977 0011E 01E07  2340+         MVC   DMP2311(Q18),D2311 INIT DEVICE TABLE              20048
0018BE 9210 805C      0005C        2341+         MVI   DMPDEBAM,X10 DEB ACCESS METHOD LENGTH           20048
0018C2 D203 8054 B973 00054 01E03  2342+         MVC   DMPNEG1K(Q4),NEG1024 20048
0018C8 D202 8109 B970 00109 01E00  2343+         MVC   DMPKEYL2(Q3),X040400 .   KEY AND DATA LENGTH   CC A42821
0018CE D701 811C 811C 0011C 0011C  2344+         XC    DMPDINFO,DMPDINFO 20048
0018D4 D700 8114 8114 00114 00114  2345+         XC    DMPFLAG,DMPFLAG 20048
0018DA 9400 8088      00088        2346+         NI    DMPDCBDE,X00 TURN IOS FLAGS OFF                 20048
0018DE 92FF 806C      0006C        2347+         MVI   DMPDEBPT,XFF SET PRIORITY                       20048
                                   2348+*    THE FINAL PREPARATION OF THE CONTROL BLOCK AREA FOR DIRECT     DAR
                                   2349+*    ACCESS IS THE INITIALIZATION OF THE CCW'S.                     DAR
0018E2 4120 8023            00023  2350+         LA    R2,DMPSCHID 20048
0018E6 5020 B8EC            01D7C  2351+         ST    R2,CCWDP123 20048
0018EA 961A B8EC      01D7C        2352+         OI    CCWDP123,X1A 20048
0018EE 5020 B8F4            01D84  2353+         ST    R2,CCWDP123+Q8 20048
0018F2 96B1 B8F4      01D84        2354+         OI    CCWDP123+Q8,XB1 20048
0018F6 4120 80B0            000B0  2355+         LA    R2,DMPCCW2 20048
0018FA 5020 B8FC            01D8C  2356+         ST    R2,CCWDP123+Q16 20048
0018FE 9608 B8FC      01D8C        2357+         OI    CCWDP123+Q16,X08 20048
001902 4120 8100            00100  2358+         LA    R2,DMPFLKY1 .            COUNT-KEY AREA        CC A42821
001906 5020 B904            01D94  2359+         ST    R2,TAPE1 20048
00190A 9601 B904      01D94        2360+         OI    TAPE1,X01 20048
00190E D207 8098 B904 00098 01D94  2361+         MVC   DMPCCW1T(Q8),TAPE1 20048
001914 D207 80A0 B910 000A0 01DA0  2362+         MVC   DMPCCW2T(Q8),TAPE2 20048
00191A D217 80A8 B8EC 000A8 01D7C  2363+         MVC   DMPCCW1(24),CCWDP123 20048
001920 D21F 80D8 B918 000D8 01DA8  2364+         MVC   DMPCCW6(32),CCWD6789 20048
001926 47F0 BD60            021F0  2365+         B     IEACMNIP CONTINUE MAINLINE NIP
                                                                                                               PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00192A D203 0048 C4DF 00048 05720  2366+IEADPER1 MVC   Q72(Q4),IEARSCAW SET UP MSG 205I CAW         DAR
001930 D205 CD6C D469 05FAD 066AA  2367+         MVC   RSMSGVOL(Q6),IEAVOLAB VOL SER INTO MSG 205I       DAR
001936 47F0 B4C4            01954  2368+         B     IEAASKTP INDICATE ERR & ASK FOR TAPE DAR
00193A D203 0048 C4E3 00048 05724  2369+IEADPER2 MVC   Q72(Q4),IEARACAW SET UP ALLOC ERR MSG        DAR
001940 D205 CD9E D469 05FDF 066AA  2370+         MVC   RAMSGVOL(Q6),IEAVOLAB VOL SER TO MSG 206I         DAR
001946 47F0 B4C4            01954  2371+         B     IEAASKTP INDICATE ERR & ASK FOR TAPE DAR
00194A 94F0 B1DF      0166F        2372+IEADPER3 NI    IEADPSW3,XF0 RESET 1ST TIME RD ERR SWCH  DAR
00194E D203 0048 C4E7 00048 05728  2373+         MVC   Q72(Q4),IEARFCAW SET UP FORMAT ERR SWITCH    DAR
001954 4550 C285            054C6  2374+IEAASKTP BAL   R5,IEACONSL GO WRITE APPROIATE ERR MSG  DAR
001958 D203 0048 B96C 00048 01DFC  2375+IEAREQTP MVC   Q72(Q4),IEATRCAW MOVE TAPE REQUEST CAW       DAR
00195E 4550 C285            054C6  2376+         BAL   R5,IEACONSL GO WRITE MSG                DAR

                                   2378+*********
                                   2379+*      THE FOLLOWING READS IN THE OPERATOR'S REPLY TO THE REQUEST   DAR
                                   2380+*      FOR A TAPE UNIT ADDRESS                                      DAR

001962 D203 0048 C51B 00048 0575C  2382+IEATPRD  MVC   Q72(Q4),ANSWRCAW MOVE READ CAW               DAR
001968 9680 D52A      0676B        2383+         OI    IEASWITB,CANXSWIT INDICATE CANCEL CHECK        DAR
00196C D24F D6FB DA35 0693C 06C76  2384+         MVC   ANSRAREA(Q80),IEABLNCS BLANK OUT ANSWER AREA        DAR
001972 4550 C26D            054AE  2385+         BAL   R5,IEACONIN GO READ REPLY               DAR
001976 947F D52A      0676B        2386+         NI    IEASWITB,NOCANCEL RESET CANCEL BYPASS           DAR
00197A 4110 D6FB            0693C  2387+         LA    R1,ANSRAREA ADDR INPUT BUFFER           DAR
00197E D64F D6FB DA35 0693C 06C76  2388+         OC    ANSRAREA(Q80),IEABLNCS INSURE UPPER CASE
001984 D509 D753 1000 06994 00000  2389+         CLC   IEARPLYR(Q10),Q0(R1) TEST PROPER REPLY FORMAT     DAR
00198A 4780 B510            019A0  2390+         BE    IEARPYOK GOOD FORMAT - CHECK ANSWR    DAR
00198E D505 D75D 1000 0699E 00000  2391+         CLC   IEARPLYS(Q6),Q0(R1) TEST PROPER REPLY FORMAT     DAR
001994 4770 B63C            01ACC  2392+         BNE   IEARPYER ERROR IN REPLY               DAR
001998 4111 0006            00006  2393+         LA    R1,Q6(R1) UPDATE INDEX TO REPLY TEXT   DAR
00199C 47F0 B514            019A4  2394+         B     IEACKRPY TEST EXT                     DAR
0019A0 4111 000A            0000A  2395+IEARPYOK LA    R1,Q10(R1) UPDATE INDEX TO REPLY TEXT   DAR
0019A4 D501 1000 BC80 00000 02110  2396+IEACKRPY CLC   Q0(2,R1),IEANEGRP REPLY NEGATIVE               DAR
0019AA 4780 B802            01C92  2397+         BE    IEADADZ0 YES                         DAR
0019AE D202 BCDC 1000 0216C 00000  2398+         MVC   TEMSGBEG+18(Q3),Q0(R1) SET UP POSSIBLE ERR MSG      DAR
0019B4 D202 BD48 1000 021D8 00000  2399+         MVC   TMMSGBEG+11(Q3),Q0(R1) SET MOUNT MSG                DAR
0019BA D202 BD5C 1000 021EC 00000  2400+         MVC   DTMSGBEG+11(Q3),Q0(R1) SET DISMOUNT MSG             DAR
0019C0 4140 0004            00004  2401+         LA    R4,Q4 R4 = NO. BYTES TO CONVERT             UDAR
0019C4 1861                        2402+         LR    R6,R1 R6 = ADDR OF BYTES TO CONVERT         UDAR
0019C6 4550 C207            05448  2403+         BAL   R5,IEASCONV BR TO CONVERT RTN                     UDAR
0019CA F223 BC84 1000 02114 00000  2404+         PACK  IEANOCON(Q3),Q0(Q4,R1) PUT UNIT ADDR INTO FORM     DAR
0019D0 48A0 BC84            02114  2405+         LH    R10,IEANOCON GET UNIT ADDR               DAR
0019D4 40A0 D3BF            06600  2406+         STH   R10,IEARLUNT SAVE UNIT ADDR              DAR
0019D8 4550 C0BD            052FE  2407+         BAL   R5,IEAUCBFN FIND UCB FOR THIS UNIT       DAR
0019DC 91FF D516      06757        2408+         TM    IEAINDIC,XFF UCB FOUND                   DAR
0019E0 47E0 B64A            01ADA  2409+         BNO   TNOUCB NO - INDICATE ERR         21016
0019E4 D201 D3A5 D2D3 065E6 06514  2410+         MVC   IEARLUCB+2(Q2),IEAUCBHL SAVE UCB ADDR               DAR
0019EA 4890 D2D3            06514  2411+         LH    R9,IEAUCBHL GET UCB BASE ADDR           DAR
0019EE 4090 807A            0007A  2412+         STH   R9,DARUCBAD+2 PUT UCB ADDR IN I DEB        DAR
0019F2 9180 9012      00012        2413+         TM    Q18(R9),X80 IS THIS MAGNETIC TAPE DEV   DAR
0019F6 4780 B654            01AE4  2414+         BZ    TN2400 NO -INDICATE ERR          21016
0019FA 9101 9013      00013        2415+         TM    Q19(R9),X01 2400 SERIES                 DAR
0019FE 4780 B654            01AE4  2416+         BZ    TN2400 NO - INDICATE ERR         21016
001A02 9180 9011      00011        2417+         TM    Q17(R9),X80 IS THIS 7 TRACK TAPE               20048
001A06 4710 B582            01A12  2418+         BO    TRK7 YES - SET MODE                     20048
001A0A 92C3 B989      01E19        2419+         MVI   MODESET,XC3 SET MODE TO 9 TRACK                20048
001A0E 47F0 B586            01A16  2420+         B     TRK9 20048
                                                                                                               PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001A12 9293 B989      01E19        2421+TRK7     MVI   MODESET,X93 SET MODE TO 7 TRACK                48896
001A16 5880 D247            06488  2422+TRK9     L     R8,IEANUCND ADDR I/O CB AREA                   20048
001A1A D717 8058 8058 00058 00058  2423+         XC    DARDEB(24),DARDEB ZERO OUT 1ST SIX WORDS       DAR
001A20 4120 8058            00058  2424+         LA    R2,DARDEB GET DEB ADDR                DAR
001A24 5020 8088            00088  2425+         ST    R2,DARDCB PUT IN DCB                  DAR
001A28 960C 8088      00088        2426+         OI    DARDCB,X0C INDICATE NO STD ERP         DAR
001A2C D703 8090 8090 00090 00090  2427+         XC    DARECB(Q4),DARECB ZERO ECB                    DAR
001A32 4120 8088            00088  2428+         LA    R2,DARDCB GET PSEUDO ADDR OF DCB      DAR
001A36 5B20 BC60            020F0  2429+         S     R2,IEADC44 DETERMINE ACTUAL            DAR
001A3A 5020 8070            00070  2430+         ST    R2,DARTCBPK STORE IN DEB                DAR
001A3E 920F 8070      00070        2431+         MVI   DARTCBPK,X0F PUT DEB ID IN DEB            DAR
001A42 4120 B948            01DD8  2432+         LA    R2,APPVTAB1 GET ADDR OF APPENDAGE TABLE DAR
001A46 5020 8074            00074  2433+         ST    R2,DARDEVCE STORE IN DEB                DAR
001A4A 9602 8074      00074        2434+         OI    DARDEVCE,X02 INDICATE TAPE DEVICE        DAR
001A4E D701 8078 8078 00078 00078  2435+         XC    DARTMODE(Q2),DARTMODE ZERO MODE CODE SETTING      DAR
001A54 D201 807A D3A5 0007A 065E6  2436+         MVC   DARTMODE+2(Q2),IEARLUCB+2 MOVE UCB ADDR TO DEB      DAR
001A5A D203 B954 B948 01DE4 01DD8  2437+         MVC   APPVTAB1+12(Q4),APPVTAB1 FINISH DUMMY APPENDAGE TAB  DAR
001A60 4150 B5FC            01A8C  2438+         LA    R5,DARTPSNS GET OF RTN ISSUING SENSE    DAR
001A64 1B33                        2439+         SR    R3,R3 ZERO ERR COUNTER            DAR

                                   2441+*********
                                   2442+*      THE FOLLOWING ROUTINE RE-INITIALIZES THE IOB FOR THE TAPE    DAR
                                   2443+*      EXCP'S                                                       DAR

001A66 D703 8000 8000 00000 00000  2445+IEATIOBI XC    DARIOB(Q4),DARIOB ZERO OUT                    DAR
001A6C D21B 8004 8000 00004 00000  2446+         MVC   DARIOB+4(28),DARIOB IOB                        DAR
001A72 D202 8015 8071 00015 00071  2447+         MVC   DARADDCB+1(Q3),DARDCBAD MOVE DCB ADDR TO IOB        DAR
001A78 D200 8078 B989 00078 01E19  2448+         MVC   DARTMODE(Q1),MODESET SET TAPE MODE                20048
001A7E 9602 8000      00000        2449+         OI    DARIOBF1,X02 CHANNEL PROG NOT RELATED    DAR
001A82 4120 8090            00090  2450+         LA    R2,DARECB DAR
001A86 5020 8004            00004  2451+         ST    R2,DARECBAD STORE ECB IN IOB            DAR
001A8A 07F5                        2452+         BR    R5

                                   2454+*********
                                   2455+*      THE STATUS OF THE DEVICE INDICATED BY THE OPERATOR IS NOW    DAR
                                   2456+*      CHECKED BY ISSUING A NOP                                     DAR

001A8C 4120 B878            01D08  2458+DARTPSNS LA    R2,DARTSCCW GET ADDR OF CCW             DAR
001A90 5020 8010            00010  2459+         ST    R2,DARCCWAD AND PUT IT IN THE IOB
001A94 4820 807A            0007A  2460+         LH    R2,DARUCBAD+2 GET UCB ADDR                @SA67341
001A98 94BF 2006      00006        2461+         NI    Q6(R2),X'BF' ENSURE READY                @SA67341
001A9C 9680 2003      00003        2462+         OI    Q3(R2),X'80' ENSURE ONLINE               @SA67341
001AA0 4110 8000            00000  2463+         LA    R1,DARIOB ADDR IOB                    DAR
001AA4 0A00                        2464+         SVC   0 LINK TO EXCP                DAR
001AA6 4110 8090            00090  2465+         LA    R1,DARECB ADDR ECB                    DAR
001AAA 4100 0001            00001  2466+         LA    R0,Q1 INDICATE COUNT OF 1        DAR
001AAE 0A01                        2467+         SVC   1 LINK TO WAIT                DAR
001AB0 8000 D28F      064D0        2468+         SSM   IEAZERO DISABLE                     DAR
001AB4 917F 8090      00090        2469+         TM    DARECB,X7F I/O COMPLETE SUCCESSFULLY   DAR
001AB8 47E0 B7D6            01C66  2470+         BNO   DARTPTCC NO - GO TEST CONDITION CODE DAR
001ABC 9102 8003      00003        2471+         TM    DARIOBS2,X02 TAPE UNIT FILE PROTECT       DAR
001AC0 4710 B766            01BF6  2472+         BO    DARDISM GO ISSUE DISMOUNT MSG        DAR
001AC4 4150 B6E0            01B70  2473+         LA    R5,DARTPLRD TU READY CHECK FOR          DAR
                                   2474+*                                        UNLABELED TAPE             DAR
001AC8 47F0 B5D6            01A66  2475+         B     IEATIOBI RE-INIT IOB                 DAR
                                                                                                               PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001ACC D203 0048 C51F 00048 05760  2476+IEARPYER MVC   Q72(4),IEARRCAW SET ERR MSG CAW              DAR
001AD2 4550 C285            054C6  2477+         BAL   R5,IEACONSL WRITE MSG                   DAR
001AD6 47F0 B4D2            01962  2478+         B     IEATPRD GO DO READ AGAIN            DAR
001ADA D20A BCFB BD06 0218B 02196  2479+TNOUCB   MVC   TEMSGRES+Q1(Q11),TENOUCB NO UCB                    21016
001AE0 47F0 B678            01B08  2480+         B     IEADPTER 21016
001AE4 D20A BCFB BD11 0218B 021A1  2481+TN2400   MVC   TEMSGRES+Q1(Q11),TEN2400 NOT 2400                  21016
001AEA 47F0 B678            01B08  2482+         B     IEADPTER 21016
001AEE D20A BCFB BD32 0218B 021C2  2483+TIOER    MVC   TEMSGRES+Q1(Q11),TEIOER I/O ERROR                 21016
001AF4 47F0 B678            01B08  2484+         B     IEADPTER 21016
001AF8 D20A BCFB BD27 0218B 021B7  2485+TNOFND   MVC   TEMSGRES+Q1(Q11),TENOFND NONEXISTENT               21016
001AFE 47F0 B678            01B08  2486+         B     IEADPTER 21016
001B02 D20A BCFB BD1C 0218B 021AC  2487+TUNAV    MVC   TEMSGRES+Q1(Q11),TEUNAV DEVICE UNAVAILABLE        21016
001B08 D203 0048 B968 00048 01DF8  2488+IEADPTER MVC   Q72(4),IEATECAW SET ERR MSG CAW  136I       DAR
001B0E 4550 C285            054C6  2489+         BAL   R5,IEACONSL WRITE MSG                   DAR
001B12 D70A BCFB BCFB 0218B 0218B  2490+         XC    TEMSGRES+Q1(Q11),TEMSGRES+Q1 21016
001B18 47F0 B4C8            01958  2491+         B     IEAREQTP GO ASK FOR TAPE AGAIN        DAR

                                   2493+*********
                                   2494+*      THE FOLLOWING IS THE MOUNT-WAIT SEQUENCE USED FOR THE TAPE   DAR

001B1C 4850 D3A5            065E6  2496+IEAWMMSG LH    R5,IEARLUCB+2
001B20 9240 5006      00006        2497+         MVI   Q6(R5),X40 MARK UCB NOT READY           DA-
001B24 4550 B5D6            01A66  2498+         BAL   R5,IEATIOBI RE-INIT IOB                 DAR
001B28 4120 B878            01D08  2499+         LA    R2,DARTSCCW GET ADDR OF CCW              DAR
001B2C 5020 8010            00010  2500+         ST    R2,DARCCWAD AND PUT IN IOB               DAR
001B30 4110 8000            00000  2501+         LA    R1,DARIOB ADDR IOB                     DAR
001B34 0A00                        2502+         SVC   0 LINK TO EXCP                 DAR
001B36 D203 0048 B964 00048 01DF4  2503+         MVC   Q72(Q4),IEATMCAW MOUNT CCW
001B3C 4550 C285            054C6  2504+         BAL   R5,IEACONSL GO WRITE MSG                 DAR
001B40 9834 0078            00078  2505+         LM    R3,R4,Q120 SAVE OLD I/O NEW PSW        DAR
001B44 D207 0078 BC74 00078 02104  2506+         MVC   Q120(Q8),DARIOPSW SET NEW I/O NEW PSW         DAR
001B4A 8200 CFD7      06218        2507+         LPSW  WAIT WAIT FOR INTERRUPT FROM DEV DAR
001B4E 9034 0078            00078  2508+DARRESTR STM   R3,R4,Q120 PUT BACK OLD I/O NEW PSW    DAR
001B52 48A0 003A            0003A  2509+         LH    R10,X3A R10 = ADDR UNIT LAST        DAR
                                   2510+*                                        INTERRUPT                  DAR
001B56 4850 D3A5            065E6  2511+         LH    R5,IEARLUCB+Q2 ADDR OF THE UCB                    29114
001B5A 49A5 0004            00004  2512+         CH    R10,Q4(R5) INTERRUPT FROM DESIRED DEVICE      29114
001B5E 4770 B68C            01B1C  2513+         BNE   IEAWMMSG NO - RE-ISSUE MOUNT MSG     DAR
001B62 1B33                        2514+         SR    R3,R3 CLEAR REG FOR ERR COUNT AGAIN      28816
001B64 9200 5006      00006        2515+         MVI   Q6(R5),X00 MARK THE UCB READY           DAR
001B68 4150 B5FC            01A8C  2516+         LA    R5,DARTPSNS YES - GO CHECK THE STATUS   DAR
001B6C 47F0 B5D6            01A66  2517+         B     IEATIOBI OF THE DEVICE AGAIN        DAR

                                   2519+*********
                                   2520+*      THE FOLLOWING READS IN THE FIRST RCD FROM THE TAPE AND       DAR
                                   2521+*      CHECKS FOR A STANDARD LABEL                                  DAR

001B70 4120 B8D0            01D60  2523+DARTPLRD LA    R2,DARTPCCW GET ADDR TAPE READ CCW       DAR
001B74 9640 8000      00000        2524+         OI    DARIOBF1,X40 INDICATE COMMAND CHAINING    DAR
001B78 5020 8010            00010  2525+         ST    R2,DARCCWAD AND PUT IN THE IOB         DAR
001B7C 4110 8000            00000  2526+         LA    R1,DARIOB ADDR IOB                    DAR
001B80 0A00                        2527+         SVC   0 LINK TO EXCP                DAR
001B82 4110 8090            00090  2528+         LA    R1,DARECB ADDR ECB                    DAR
001B86 4100 0001            00001  2529+         LA    R0,Q1 COUNT OF 1                  DAR
001B8A 0A01                        2530+         SVC   1 LINK TO WAIT                DAR
                                                                                                               PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001B8C 8000 D28F      064D0        2531+         SSM   IEAZERO DISABLE                     DAR
001B90 917F 8090      00090        2532+         TM    DARECB,X7F I/O SUCCESSFUL              DAR
001B94 4710 B720            01BB0  2533+         BO    DARLBLCK YES - CHECK FOR LABEL       DAR
001B98 9101 800C      0000C        2534+         TM    DARCSW+3,X01 NO CHECK FOR UNIT EXECPTION  DAR
001B9C 4710 B75E            01BEE  2535+         BO    DARREW UE  INDICATES SCRATCH TAPE   DAR
001BA0 4133 0001            00001  2536+         LA    R3,Q1(R3) ADD ONE TO ERR COUNT        DAR
001BA4 5930 BC3C            020CC  2537+         C     R3,IEADC20 MAXIMUM ERR COUNT REACHED   DAR
001BA8 4770 B5D6            01A66  2538+         BNE   IEATIOBI NO - TRY AGAIN              DAR
001BAC 47F0 B65E            01AEE  2539+         B     TIOER YES - INDICATE ERR        21016
001BB0 4110 0001            00001  2540+DARLBLCK LA    R1,Q1 GENERATE ONE FOR COMPARE    DAR
001BB4 4910 800E            0000E  2541+         CH    R1,DARCSW+5 COMPARE RESIDUAL COUNT       DAR
001BB8 4770 B75E            01BEE  2542+         BNE   DARREW NO STD LABEL CONTINUE        DAR
001BBC D503 BB28 BC7C 01FB8 0210C  2543+         CLC   IEDSBUFR(Q4),STDTPLAB RCD READ = STD LABEL         DAR
001BC2 4780 B766            01BF6  2544+         BE    DARDISM YES - GO ISSUE DISMOUNT      DAR
001BC6 4550 B5D6            01A66  2545+         BAL   R5,IEATIOBI RE-INIT IOB                  DAR
001BCA 4120 B860            01CF0  2546+         LA    R2,DARSENS GET ADDR OF SENES CCW        DAR
001BCE 5020 8010            00010  2547+         ST    R2,DARCCWAD PUT CCW ADDR IN IOOB         DAR
001BD2 4110 8000            00000  2548+         LA    R1,DARIOB ADDR THE IOB                 DAR
001BD6 0A00                        2549+         SVC   0 LINK TO EXCP                 DAR
001BD8 4110 8090            00090  2550+         LA    R1,DARECB ADDR THE ECB                DAR
001BDC 4100 0001            00001  2551+         LA    R0,Q1 COUNT OF 1                   DAR
001BE0 0A01                        2552+         SVC   1 LINK TO THE WAIT ROUTINE     DAR
001BE2 8000 D28F      064D0        2553+         SSM   IEAZERO DISABLE                      DAR
001BE6 9102 BB29      01FB9        2554+         TM    IEDSBUFR+1,X02 TAPE UNIT FILE PROTECTED     DAR
001BEA 4710 B766            01BF6  2555+         BO    DARDISM YES GO TO DISMOUNT           DAR
001BEE 4150 B796            01C26  2556+DARREW   LA    R5,DARREWTP DAR
001BF2 47F0 B5D6            01A66  2557+         B     IEATIOBI GO RE-INIT IOB              DAR

                                   2559+*********
                                   2560+*      THE FOLLOWING  INITIATES A REWIND AND UNLOAD TO THE TAPE     DAR
                                   2561+*      UNIT INDICATED BY THE OPERATOR BECAUSE THE TAPE WAS UN-      DAR
                                   2562+*      ACCEPTABLE                                                   DAR

001BF6 4550 B5D6            01A66  2564+DARDISM  BAL   R5,IEATIOBI RE-INIT IOB                  DAR
001BFA 9640 8000      00000        2565+         OI    DARIOBF1,X40 INDICATE COMMAND CHAINING    DAR
001BFE D203 8010 B93C 00010 01DCC  2566+         MVC   DARCCWAD(4),ADDARRUN SET RUN CCW                  DAR
001C04 4110 8000            00000  2567+         LA    R1,DARIOB ADDR IOB                     DAR
001C08 0A00                        2568+         SVC   0 LINK TO EXCP                 DAR
001C0A 4110 8090            00090  2569+         LA    R1,DARECB ADDR  ECB                    DAR
001C0E 4100 0001            00001  2570+         LA    R0,Q1 COUNT OF 1                   DAR
001C12 0A01                        2571+         SVC   1 LINK TO WAIT                 DAR
001C14 8000 D28F      064D0        2572+         SSM   IEAZERO DISABLE                      DAR
001C18 D203 0048 B938 00048 01DC8  2573+         MVC   Q72(Q4),DARDIS SET UP DISMOUNT MSG          DAR
001C1E 4550 C285            054C6  2574+         BAL   R5,IEACONSL WRITE MSG                    DAR
001C22 47F0 B68C            01B1C  2575+         B     IEAWMMSG GO ISSUE MOUNT MSG           DAR
001C26 9220 B8D4      01D64        2576+DARREWTP MVI   DARTPCCW+4,X20 KILL COMMAND CHAINING       DAR
001C2A 4120 B8D0            01D60  2577+         LA    R2,DARTPCCW GET ADDR OF CCW             DAR
001C2E 5020 8010            00010  2578+         ST    R2,DARCCWAD AND PUT IT IN THE IOB      DAR
001C32 4110 8000            00000  2579+         LA    R1,DARIOB ADDR IOB                    DAR
001C36 0A00                        2580+         SVC   0 LINK TO EXCP                DAR
001C38 4110 8090            00090  2581+         LA    R1,DARECB ADDR ECB                    DAR
001C3C 4100 0001            00001  2582+         LA    R0,Q1 COUNT = 1                   DAR
001C40 0A01                        2583+         SVC   1 LINK TO WAIT                DAR
001C42 8000 D28F      064D0        2584+         SSM   IEAZERO DAR
001C46 917F 8090      00090        2585+         TM    DARECB,X7F I/O COMPLETE OK             DAR
                                                                                                               PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001C4A 47E0 B65E            01AEE  2586+         BNO   TIOER INDICATE ERR              21016
001C4E 4150 B7C6            01C56  2587+         LA    R5,DARTCBFI DAR
001C52 47F0 B5D6            01A66  2588+         B     IEATIOBI GO RE-INIT CB'S             DAR
001C56                             2589+DARTCBFI EQU   * 20048
001C56 4820 807A            0007A  2590+         LH    R2,DARUCBAD+2 GET UCB ADDR                 DAR
001C5A 968C 2003      00003        2591+         OI    UCBESTAT(R2),UCBALONR SET UCB ALLOCATED,ONLINE + RES DAR
001C5E 9210 2022      00022        2592+         MVI   UCBVSTAT(R2),X10 MARK PRIVATE                DAR
001C62 47F0 B3EA            0187A  2593+         B     DUMPINIT 20048
001C66 9130 8010      00010        2594+DARTPTCC TM    DARSIOCC,X30 CONDITION CODE THREE        DAR
001C6A 4710 B672            01B02  2595+         BO    TUNAV YES UNIT NOT OPERATIONAL   21016
001C6E 9160 8003      00003        2596+         TM    DARIOBS2,X60 WHAT IS STATUS OF TAPE UNIT  DAR
001C72 4780 B668            01AF8  2597+         BZ    TNOFND NON-EXISTENT TU            21016
001C76 4710 B672            01B02  2598+         BO    TUNAV TU UNAVAILABLE             21016
001C7A 9120 8003      00003        2599+         TM    DARIOBS2,X20 TAPE UNIT NOT READY          DAR
001C7E 4710 B68C            01B1C  2600+         BO    IEAWMMSG YES - GO ISSUE MOUNT         DAR
001C82 4133 0001            00001  2601+         LA    R3,Q1(R3) INCREMENT ERR COUNT         DAR
001C86 5930 BC48            020D8  2602+         C     R3,IEADC8 MAX NO. RETRIES EXHAUSTED   DAR
001C8A 47B0 B65E            01AEE  2603+         BNL   TIOER YES - INDICATE ERR        21016
001C8E 47F0 B5D6            01A66  2604+         B     IEATIOBI NO - TRY AGAIN              DAR

                                   2606+*********
                                   2607+*      THE FOLLOWING ZEROS OUT THE CVTDAR FIELD TO INDICATE THAT    DAR
                                   2608+*      THERE ARE NO PROVISIONS FOR THE SYS1.DUMP DATA SET           DAR
001C92 5820 0010            00010  2609+IEADADZ0 L     R2,Q16 ADDR CVT                    DAR
001C96 D703 2048 2048 00048 00048  2610+         XC    CVTDAR(Q4,R2),CVTDAR(R2) ZERO CVT CB PTR             DAR
001C9C D208 CEEC B990 0612D 01E20  2611+         MVC   RXMSGFNC(Q9),IEASDPNM MOVE FUNCTION NAME TO MSG   DAR
001CA2 D208 CEEC B990 0612D 01E20  2612+         MVC   RXMSGFNC(L'IEASDPNM),IEASDPNM SET NAME IN MSG       DAR
001CA8 D20A CEF5 DA35 06136 06C76  2613+         MVC   RXMSGFNC+L'IEASDPNM(L'RXMSGFNC-L'IEASDPNM),IEABLNCS DAR
001CAE D203 0048 C5EF 00048 05830  2614+         MVC   Q72(Q4),IEARXCAW READY CAW FOR MSG 208I      DAR
001CB4 4550 C285            054C6  2615+         BAL   R5,IEACONSL WRITE MSG                   DAR
001CB8 5880 D247            06488  2616+         L     R8,IEANUCND ADDR OF CB AREA                    20048
001CBC 4120 0138            00138  2617+         LA    R2,DMPCBLGT GET LENGTH OF CB'S                 20048
001CC0 1A28                        2618+         AR    R2,R8 GET PTR TO NEW DUMMY BUFFER        20048
001CC2 5020 D247            06488  2619+         ST    R2,IEANUCND SET PTR TO NEXT AVAILABLE          20048
001CC6 5820 0010            00010  2620+         L     R2,Q16 GET BASE OF CVT                    20048
001CCA 5082 0048            00048  2621+         ST    R8,CVTDAR(R2) STORE CB PTR IN CVT              20048
001CCE 4120 8090            00090  2622+         LA    R2,DARECB GET ECB ADDRESS                    20048
001CD2 5020 8004            00004  2623+         ST    R2,DARECBAD STORE IN IOB                       20048
001CD6 4120 8088            00088  2624+         LA    R2,DARDCB OBTAIN CORRECT                     20048
001CDA 5B20 BC60            020F0  2625+         S     R2,IEADC44 DCB ADDRESS                        20048
001CDE 5020 8070            00070  2626+         ST    R2,DARTCBPK STORE IN DEB                       20048
001CE2 D700 808C 808C 0008C 0008C  2627+         XC    DMPDCBOF,DMPDCBOF INDICATE NO DUMP SUPPORT        20048
001CE8 47F0 B40C            0189C  2628+         B     NOSUPP
                                                                                                               PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2630+****   THE FOLLOWING INLINE CCW'S ARE PECULIAR TO THE SYS1.DUMP     DAR
                                   2631+***      INITIALIZATION ROUTINE                                     DAR


001CF0                             2633+         DS    0D
001CF0 04                          2634+DARSENS  DC    X'04' SENSE OP CODE                DAR
001CF1 001FB8                      2635+         DC    AL3(IEDSBUFR) STORAGE ADDR                DAR
001CF4 2000                        2636+         DC    X'2000' SUPPRESS INCORRECT LENGTH    DAR
001CF6 0006                        2637+         DC    X'0006' SIX SENSE BYTES              DAR
001CF8 09                          2638+DISMMCCW DC    X'09' CCW      OUNT MSG            DAR
001CF9 0021E1                      2639+         DC    AL3(DTMSGBEG) DISMOUNT
001CFC 0000000F                    2640+         DC    A(DTMSGEND-DTMSGBEG) MSG                         DAR
001D00 0F                          2641+DARRUN   DC    X'0F' REWIND                       DAR
001D01 001FB8                      2642+         DC    AL3(IEDSBUFR) UNLOAD                      DAR
001D04 6000                        2643+         DC    X'6000' CCW                         DAR
001D06 0005                        2644+         DC    X'0005' AND                         DAR
001D08 03                          2645+DARTSCCW DC    X'03' NOP FOR                      DAR
001D09 001FB8                      2646+         DC    AL3(IEDSBUFR) TESTING                     DAR
001D0C 2000                        2647+         DC    X'2000' UNIT                        DAR
001D0E 0005                        2648+         DC    X'0005' STATUE                     DAR
001D10 07                          2649+IEDPCCW2 DC    X'07' OP CODE SEEK                DAR
001D11 0020FC                      2650+         DC    AL3(IEDSKADR) GENERAL SEEK               DAR
001D14 6000                        2651+         DC    X'6000' FOR DS                       DAR
001D16 0006                        2652+         DC    X'0006' CHANNEL PROG               DAR
001D18 31                          2653+IEDSSCCW DC    X'31' OP CODE SEARCH              DAR
001D19 0020E4                      2654+         DC    AL3(IEDSSADR) ID EQUAL                   DAR
001D1C 6000                        2655+         DC    X'6000' FOR GENERAL                  DAR
001D1E 0005                        2656+         DC    X'0005' USE                        DAR
001D20 08                          2657+         DC    X'08' TIC OP CODE                 DAR
001D21 001D18                      2658+         DC    AL3(IEDSSCCW) FOR                        DAR
001D24 6000                        2659+         DC    X'6000' GENERAL                      DAR
001D26 0005                        2660+         DC    X'0005' USE                          DAR
001D28 06                          2661+IEDSRWCW DC    X'06' READ OP CODE                DAR
001D29 001FB8                      2662+         DC    AL3(IEDSBUFR) BUT THIS CCW               DAR
001D2C 2000                        2663+         DC    X'2000' IS USED FOR BOTH            DAR
001D2E 0050                        2664+         DC    X'0050' READS & WRITES             DAR
001D30 31                          2665+IEDSS2CW DC    X'31' CHANNEL COMMANDS            DAR
001D31 0020F4                      2666+         DC    AL3(IEDSR0AD) TO SEARCH                  DAR
001D34 6000                        2667+         DC    X'6000' G  TIC AND                   DAR
001D36 0005                        2668+         DC    X'0005' READ VALID                 DAR
001D38 08                          2669+         DC    X'08' THE FORMAT                 DAR
001D39 001D30                      2670+         DC    AL3(IEDSS2CW) RCDS WRITTEN               DAR
001D3C 6000                        2671+         DC    X'6000' RCDS WRITTEN                 DAR
001D3E 0005                        2672+         DC    X'0005' BY THE FOUR                  DAR
001D40 1E                          2673+IEDSRRCW DC    X'1E' CHANNEL                    DAR
001D41 001FB8                      2674+         DC    AL3(IEDSBUFR) COMMANDS                   DAR
001D44 3000                        2675+         DC    X'3000' INCORRECT LENGTH &         DAR
001D46 0000                        2676+         DC    X'0000' DATA TRANSFER SUPPRESSED   DAR
001D48 09                          2677+IEATMCCW DC    X'09' WRITE TO OPERATOR           DAR
001D49 0021CD                      2678+         DC    AL3(TMMSGBEG) AS KING FOR AN UNLABELED   DAR
001D4C 00000014                    2679+         DC    A(TMMSGEND-TMMSGBEG) TAPE TO BE MOUNTED         DAR
001D50 09                          2680+IEATECCW DC    X'09' WRITE TO                    DAR
001D51 00215A                      2681+         DC    AL3(TEMSGBEG) OPERATOR INDICATING        DAR
001D54 0000003C                    2682+         DC    A(TEMSGEND-TEMSGBEG) ERR                        DAR
001D58 09                          2683+IEATRCCW DC    X'09' WRITE TO OPERATOR           DAR
                                                                                                               PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001D59 002128                      2684+         DC    AL3(TRMSGBEG) REQUESTING TAPE            DAR
001D5C 00000032                    2685+         DC    A(TRMSGEND-TRMSGBEG) UNIT ADDR                  DAR
001D60 07                          2686+DARTPCCW DC    X'07' REWIND OP CODE              DAR
001D61 001FB8                      2687+         DC    AL3(IEDSBUFR) STORE ADDRESS              DAR
001D64 6000                        2688+         DC    X'6000' COMMAND CHAIN & SUPPRESS   DAR
001D66 0006                        2689+         DC    X'0006' WRONG LENGTH               DAR
001D68 02                          2690+         DC    X'02' READ OP CODE                DAR
001D69 001FB8                      2691+         DC    AL3(IEDSBUFR) STORAGE ADDR               DAR
001D6C 2000                        2692+         DC    X'2000' SUPPRESS INCORRECT LNGTH   DAR
001D6E 0051                        2693+         DC    X'0051' CCW COUNT = 81             DAR


                                   2695+****   THE ADCONS THAT FOLLOW ARE PECULIAR TO THE SYS1.DUMP         DAR
                                   2696+***      INITIALIZATION ROUTINE AND ARE PLACED IN MAINLINE


                                   2698+** THE FOLLOWING THREE WORDS MUST REMAIN CONTIGUOUS               20048
001D70 00000000                    2699+PCIAPAD  DC    A(DMPPCIAP) PCI APPENDAGE ADDRESS              20048
001D74 00000000                    2700+CHEAPAD  DC    A(DMPCEAPP) CHANNEL END APPEN. ADDR.           20048
001D78 00000000                    2701+ABNAPAD  DC    A(DMPAEAPP) ABNORMAL END APPEN. ADR.           20048
                                   2702+***
001D7C 1A                          2703+CCWDP123 DC    X'1A' 20048
001D7D 000000                      2704+         DC    AL3(0) 20048
001D80 50                          2705+         DC    X'50' 20048
001D81 000005                      2706+         DC    X'000005' 20048
001D84 B1                          2707+         DC    X'B1'
001D85 000000                      2708+         DC    AL3(0) 20048
001D88 40                          2709+         DC    X'40' 20048
001D89 000005                      2710+         DC    X'000005' 20048
001D8C 08                          2711+         DC    X'08' 20048
001D8D 000000                      2712+         DC    AL3(0) 20048
001D90 00000001                    2713+         DC    X'00000001' 20048
001D94 01                          2714+TAPE1    DC    X'01' 20048
001D95 000000                      2715+         DC    AL3(0) 20048
001D98 80                          2716+         DC    X'80' 20048
001D99 000004                      2717+         DC    X'000004' 20048
001D9C 00000000
001DA0 0100000020000800            2718+TAPE2    CCW   X'01',0,X'20',2048 20048
001DA8 0300000020000001            2719+CCWD6789 CCW   X'03',0,X'20',1 20048
001DB0 000000008000000C            2720+         CCW   0,0,X'80',12 20048
001DB8 1D00000040000400            2721+         CCW   X'1D',0,X'40',1024 20048
001DC0 0300000020000001            2722+         CCW   X'03',0,X'20',1 20048
001DC8 00001CF8                    2723+DARDIS   DC    A(DISMMCCW) CAW FOR MOUNT MSG            DAR
001DCC 00001D00                    2724+ADDARRUN DC    A(DARRUN) CAW FOR RUN                  DAR
001DD0 00001D10                    2725+IEDPCAW2 DC    A(IEDPCCW2) ADDR OF CHANNEL PROG 2
001DD4 001DD8                      2726+PTRAPPTB DC    AL3(APPVTAB1) ADDR OF APPENDAGE TABLE     DAR
001DD7 00
001DD8 0000166A                    2727+APPVTAB1 DC    A(OTHERAPP) IOS                         DAR
001DDC 0000166A                    2728+         DC    A(OTHERAPP) APPENDAGE                  DAR
001DE0 0000166A                    2729+         DC    A(OTHERAPP) VECTOR                     DAR
001DE4 0000165E                    2730+         DC    A(CEAPPEND) TABLE                      DAR
001DE8 0000166A                    2731+         DC    A(OTHERAPP) FOR EXCP USE               DAR
001DEC 00001D30                    2732+IEDPCAW4 DC    A(IEDSS2CW) ADDR OF READ VALID CCW'S    DAR
001DF0 00001D18                    2733+IEDPCAW3 DC    A(IEDSSCCW) ADDR OF FORMAT CH PROG      DAR
001DF4 00001D48                    2734+IEATMCAW DC    A(IEATMCCW) CAW FOR TAPE MOUNT          DAR
                                                                                                               PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001DF8 00001D50                    2735+IEATECAW DC    A(IEATECCW) CAW FOR 126I ERR MSG        DAR
001DFC 00001D58                    2736+IEATRCAW DC    A(IEATRCCW) CAW FOR TAPE REQUEST        DAR


                                   2738+*****  THE CONSTANTS THAT FOLLOW ARE PECULIAR TO THE SYS1.DUMP      DAR
                                   2739+***      INITIALIZATION ROUTINE AND ARE PLACED IN THE MAINLINE CODE DAR
                                   2740+***      OF THE ROUTINE


001E00 040400                      2742+X040400  DC    X'040400' 20048
001E03 FFFFFC00                    2743+NEG1024  DC    X'FFFFFC00' NEGATIVE 1024                      20048
                                   2744+*    THE FOLLOWING 18 BYTES MUST REMAIN CONTIGUOUS                20048
001E07 0209                        2745+D2311    DC    X'0209' .                                      CC A42821
001E09 0FC7                        2746+D2301    DC    X'0FC7' .                                      CC A42821
001E0B 0309                        2747+D2303    DC    X'0309' .                                      CC A42821
001E0D 032D                        2748+D2302    DC    X'032D' .                                      CC A42821
001E0F 0000                        2749+D2321    DC    X'0000' 20048
001E11 0707                        2750+D23051   DC    X'0707' .                2305 MODEL 1          CC A42821
001E13 0A07                        2751+D23052   DC    X'0A07' .                2305 MODEL 2          CC A42821
001E15 0513                        2752+D2314    DC    X'0513' .                                      CC A42821
                                   2753+D3330    DC    X'0912' .                                            CC X
001E17 0912                            +               A42821
                                   2754+****                                                              20048
001E19 00                          2755+MODESET  DC    X'00' 20048
001E20                             2756+         DS    0D
001E20 E2E8E2F14BC4E4D4            2757+IEASDPNM DC    C'SYS1.DUMP' DSNAME OF                        DAR
001E29 4040404040404040            2758+         DC    CL35' ' SYSDUMP                         DAR
001E4C 0000000000000000            2759+IEADSWKA DC    91F'0' WORK AREA                   DAR
001FB8 0000000000000000            2760+IEDSBUFR DC    34D'0' I/O BUFR                    DAR
0020C8 00000000                    2761+IEADRSZ  DC    F'0' DATA RCD SIZE               DAR
0020CC 00000014                    2762+IEADC20  DC    F'20' DAR
0020D0 00000000                    2763+IEADTRKS DC    F'0' NUMBER OF TRKS REQUIRED     DAR
0020D4 0000                        2764+IEADSTPC DC    H'0' NUMBER TRKS/CYLINDER        DAR
0020D6 0000
0020D8 00000008                    2765+IEADC8   DC    F'8' DECIMAL 8                   DAR
0020DC                             2766+         DS    0F
0020DC 01                          2767+MODTPCCW DC    X'01' OP CODE FOR WRT TAPE         DAR
0020DD 000000                      2768+         DC    AL3(0) ADDR TO WRITE FROM           DAR
0020E0 2000                        2769+         DC    X'2000' SUPPRESS INCORRECT LENGTH    DAR
0020E2 7FF8                        2770+         DC    H'32760' TAPE RECORD LENGTH           DAR
0020E4 0000000000                  2771+IEDSSADR DC    XL5'0000000000' DS SEARCH ADDR              DAR
0020E9 6000                        2772+MODDACCW DC    X'6000' SECOND WORD OF GENERAL       DAR
0020EB 0005                        2773+         DC    X'0005' DAR CCW'S                   DAR
0020ED 000000
0020F0 0000002C                    2774+IEADC44  DC    F'44' DECIMAL 44                  DAR
0020F4 0000000000                  2775+IEDSR0AD DC    XL5'0000000000' SEARCH ADDR FOR READS       DAR
0020FC                             2776+         DS    0F
0020FC 00000000                    2777+IEDSKADR DC    X'00000000' DATA SET                    DAR
002100 00000100                    2778+         DC    X'00000100' SEEK ADDR                  DAR
002104 0004                        2779+DARIOPSW DC    X'0004' PSW
002106 0000                        2780+         DC    X'0000' DAR I/O
002108 00001B4E                    2781+         DC    A(DARRESTR) NEW PSW                    DAR
00210C E5D6D3F1                    2782+STDTPLAB DC    C'VOL1' STD TAPE LABEL IDENTIFER     DAR
002110 D5D64040                    2783+IEANEGRP DC    C'NO  ' NEGATIVE REPLY COMPARE      DAR
002114 00000000                    2784+IEANOCON DC    F'0' WORK AREA
                                                                                                               PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002118                             2785+IEADSCR  DS    0F DAR
002118 41                          2786+         DC    AL1(65) THREE BYTES OF FLAGS        DAR
002119 00                          2787+         DC    AL1(0) INDICATING THE FUNC-       DAR
00211A 50                          2788+         DC    AL1(80) TION TO BE PERFORMED       DAR
00211B 00                          2789+         DC    AL1(0) NO OPTION THREE            DAR
00211C 00001E20                    2790+         DC    A(IEASDPNM) PARAMETER TWO              DAR
002120 00000000                    2791+         DC    A(0) PARM THREE OMITTED         DAR
002124 000065E8                    2792+         DC    A(IEARLOCT) PARM FOUR                  DAR


                                   2794+****  THE MESSAGES THAT FOLLOW ARE PECULIAR TO THE SYS1.DUMP        DAR
                                   2795+***      INITIALIZATION ROUTINE AND ARE PLACED INLINE


002128 C9C5C1F1F3F5C140            2797+TRMSGBEG DC    C'IEA135A SPECIFY SYS1.DUM' SYS1.DUMP TAPE REQUEST DAR
002140 D740E3C1D7C540E4            2798+         DC    C'P TAPE UNIT ADDRESS OR NO ' MSG                    DAR
00215A                             2799+TRMSGEND EQU   *
00215A C9C5C1F1F3F6C940            2800+TEMSGBEG DC    C'IEA136I DEVICE AT XXX UN' MSG INDICATING         DAR
002172 C1C3C3C5D7E3C1C2            2801+         DC    C'ACCEPTABLE FOR SYS1.DUMP' DEVICE SPECIFIED NOT   DAR
00218A 6040404040404040            2802+TEMSGRES DC    C'-           ' ACCEPTABLE           21016
002196                             2803+TEMSGEND EQU   * ACCEPTABLE             DAR
002196 D5D640E4C3C24040            2804+TENOUCB  DC    C'NO UCB     ' RE                   21016
0021A1 D5D6E340F2F4F0F0            2805+TEN2400  DC    C'NOT 2400   ' AS                 21016
0021AC E4D5C1E5C1C9D3C1            2806+TEUNAV   DC    C'UNAVAILABLE' O                21016
0021B7 D5D6D5C5E7C9E2E3            2807+TENOFND  DC    C'NONEXISTENT' N               21016
0021C2 C961D640C5D9D9D6            2808+TEIOER   DC    C'I/O ERROR  ' S              21016
0021CD C9C5C1F1F3F7C140            2809+TMMSGBEG DC    C'IEA137A  M XXX , NL ' MOUNT MSG
0021E1                             2810+TMMSGEND EQU   * TAPE                DAR
0021E1 C9C5C1F1F3F8C140            2811+DTMSGBEG DC    C'IEA138A  D XXX ' DISMOUNT MSG               DAR
0021F0                             2812+DTMSGEND EQU   *
0021F0                             2813+         DS    0F
0021F0 05B0                        2814+IEACMNIP BALR  R11,Q0
0021F2                             2815+         USING *,R11
                                                                                                               PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2817+**  THE CPU MODEL ID IS PLACED IN THE CVT FOR USE BY THE          19035
                                   2818+**  COMMUNICATION TASK'S CONSOLE ERROR ROUTINE                     000E
0021F2 5880 0010            00010  2819+         L     R8,CVTPNTR R8=PNTR TO THE CVT             19035
0021F6 4120 0006            00006  2820+         LA    R2,Q6 R2=MINUS DISPLACE. FROM CVT    19035
0021FA 1B82                        2821+         SR    R8,R2 R8=PNTR TO LOC. FOR MODEL NO.  19035
0021FC D201 8000 D51F 00000 06760  2822+         MVC   Q0(Q2,R8),CPUMODL PUT MOD NO IN CVT-6 FOR CMTSK19035
                                   2823+*                                   RMS AND I/O RMS               19035
                                   2824+*                                                             CI  M4904
                                   2825+* INITIALIZE CONTROL REG 8 FOR GTF IF RUNNING ON 370 CPU      CI  M4904
                                   2826+*                                                             CI  M4904
002202 5810 006C            0006C  2827+         L     R1,PGNEWPSW+4 .     SAVE RT HALF PGM NEW PSW   CI  M4904
002206 4120 B056            02248  2828+         LA    R2,S360RET .                                   CI  M4904
00220A 5020 006C            0006C  2829+         ST    R2,PGNEWPSW+4 .     SET NEW PGM CHECK ADDR     CI  M4904
00220E B688                        2830+         DC    X'B688' .           STORE CONTROL REG 8 OR     CI  M4904
002210 B066                        2831+         DC    S(S370CREG) .       PGM CHECK IF ON 360 CPU    CI  M4904
002212 D201 B068 B064 0225A 02256  2832+         MVC   S370CREG+2(2),INITMC1 INITIALIZE MONITOR CLASS CI  M4904
002218 B788                        2833+         DC    X'B788' .           LOAD CONTROL REG 8         CI  M4904
00221A B066                        2834+         DC    S(S370CREG) .                                  CI  M4904
00221C 5010 006C            0006C  2835+         ST    R1,PGNEWPSW+4 RESTORE PGM NEW PSW         @SA64969
002220 4120 D27D            064BE  2836+         LA    R2,BLMPXCPU GET STRT OF CPU LST SUPTNG S37021014
002224                             2837+S370LOOP EQU   * 21014
002224 D501 2000 D33B 00000 0657C  2838+         CLC   Q0(Q2,R2),IEALAST IS END OF LIST HIT          @SA64900
00222A 4780 B056            02248  2839+         BE    END370LP YES- THIS CPU NOT S/370        21014
00222E D501 2000 D525 00000 06766  2840+         CLC   Q0(Q2,R2),CPUMOD IS THIS CPU A MATCH         @SA64900
002234 4122 0002            00002  2841+         LA    R2,Q2(R2) PT TO NEXT ENTRY               21014
002238 4770 B032            02224  2842+         BNE   S370LOOP GO CHECK NEXT CPU IN LIST      21014
00223C B600                        2843+         DC    X'B600' THIS ASSEMB INSTRUCTION        21014
00223E B066                        2844+         DC    S(S370CREG) STORES CONTROL REG 0           21014
002240 9680 B066      02258        2845+         OI    S370CREG,BMPXMODE SET BIT 0 REG 0 TO ONE         21014
002244 B700                        2846+         DC    X'B700' ASSEMB INST TO LOAD CNTRL REG0 21014
002246 B066                        2847+         DC    S(S370CREG) FROM CORE LOC 5370CREG       21014
002248                             2848+END370LP EQU   * .                                            CI  M4904
002248                             2849+S360RET  EQU   * .                                            CI  M4904
002248 5010 006C            0006C  2850+         ST    R1,PGNEWPSW+4 .     RESTORE PGM NEW PSW        CI  M4904
00224C D707 0028 0028 00028 00028  2851+         XC    PGOLDPSW(8),PGOLDPSW REMOVE TRACE OF PGM CHECK CI  M4904
002252 47F0 B06A            0225C  2852+         B     ENDMCNIT .                                     CI  M4904
002256 4000                        2853+INITMC1  DC    X'4000' MONITOR CLASS MASK INITIALIZER 21014
002258 00000000                    2854+S370CREG DC    F'0' LOC STOR AREA FOR CONTROL REG  21014
00225C                             2855+ENDMCNIT EQU   * .                                            CI  M4904


                                   2857+***
                                   2858+**  SER INITIALIZATION ROUTINE - NIP DETERMINES THE LEVEL OF SER   000E
                                   2859+**  SUPPORT WHICH WAS SELECTED FOR THE CPU MODEL. NIP WILL USE THE 000E
                                   2860+**  MODEL SYSGENED AS PRIMARY (SYSGEN: CENPROCS MACRO) UNLESS MOD= 000E
                                   2861+**  WAS INCLUDED IN THE REPLY TO 'SPECIFY SYSTEM PARAMETERS'.IF    000E
                                   2862+**  SER1 WAS SELECTED, IFBSR1MN (WHERE MN IS THE MODEL NUMBER)     000E
                                   2863+**  IS LOADED FROM SYS1.LINKLIB; IF SER0 WAS SELECTED, IFBSR000    000E
                                   2864+**  IS LOADED FROM SYS1.LINKLIB AND THE TTR FOR IFBSR0MN RESOLVED. 000E
                                   2865+**  NIP LINKS TO THE LOADED SER MODULE WHICH MOVES ITS RESIDENT    000E
                                   2866+**  PORTION INTO THE TEMPORARY NUCLEUS BUFFER AND RELOCATES        000E
                                   2867+**  INTERNAL ADDRESS CONSTANTS- NIP 'DELETES' THE LOADED SER       000E
                                   2868+**  MODULE AND RESETS THE MC PSW TO POINT TO THE RESIDENT SER CODE.000E
                                   2869+***
                                                                                                               PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2871+** SINCE SER RECOGNIZES THE MODEL 195 BY X'C3', THE 'MODELID',*** 19035
                                   2872+*** WHICH CONTAINS THE FIRST TWO DIGITS OF THE MODEL (X'19'), *** 19035
                                   2873+*** CANNOT BE USED TO CHECK FOR IT.                           *** 19035
00225C 9519 D51C      0675D        2874+IEASER   CLI   MODELID,X'19' IS THIS MODEL A 195                19035
002260 4770 B07A            0226C  2875+         BNE   MOVSER NO- USE VALUE IN MODELID           19035
002264 92C3 B089      0227B        2876+         MVI   XCOMPARE+Q1,XC3 YES-USE C3 FOR COMPARE             19035
002268 47F0 B080            02272  2877+         B     MOVSER1 19035
00226C D200 B089 D51C 0227B 0675D  2878+MOVSER   MVC   XCOMPARE+Q1(Q1),MODELID GET MODELID VALUE FOR COMP19035
002272 4120 B0D4            022C6  2879+MOVSER1  LA    R2,SERLIST R2=ADDRESS OF SER LIST             19035
002276 4130 0006            00006  2880+         LA    R3,6 6 ENTRIES IN LIST          000E
00227A 9500 2000      00000        2881+XCOMPARE CLI   0(R2),X'00' MODEL NUMBERS MATCH        000E
00227E 4780 B09C            0228E  2882+         BC    8,MODFOUND YES, ENTRY FOUND           000E
002282 4122 0003            00003  2883+XCOMP1A  LA    R2,3(R2) NO, GO TO NEXT ENTRY       000E
002286 4630 B088            0227A  2884+         BCT   R3,XCOMPARE BRANCH UNTIL NO ENTRIES    000E
00228A 47F0 B0F0            022E2  2885+         BC    15,MODNOT MODEL NOT FOUND            000E
                                   2886+*                                                                  000E
00228E 5840 D263            064A4  2887+MODFOUND L     R4,IEACORSZ LOAD MACHINE CORE SIZE     000E
002292 8840 0010            00010  2888+         SRL   R4,16 SHIFT OUT UNWANTED BITS    000E
002296 4240 B0A9            0229B  2889+         STC   R4,*+5 STORE IN INSTRUCTION       000E
00229A 9500 2001      00001        2890+         CLI   1(R2),X'00' COMP LIST SIZE TO ACTUAL   000E
00229E 4780 B0EA            022DC  2891+         BC    8,THATSIT IF EQUAL, THIS IS THE ENTRY000E
0022A2 4740 B0B8            022AA  2892+         BC    4,MARK IF LESS, POSSIBLE          000E
0022A6 47F0 B090            02282  2893+         BC    15,XCOMP1A IF GREATER, NO GOOD        000E
                                   2894+*                                                                  000E
0022AA 9500 B0E6      022D8        2895+MARK     CLI   TEMP,X'00' TEMPORARY ENTRY EMPTY      000E
0022AE 4780 B0CA            022BC  2896+         BC    8,MOVE YES, BRANCH                000E
0022B2 D500 2001 B0E7 00001 022D9  2897+         CLC   1(1,R2),TEMP+1 COMPARE SIZE TO TEMP       000E
0022B8 47C0 B090            02282  2898+         BC    12,XCOMP1A IF EQUAL OR LESS, BRANCH   000E
0022BC D202 B0E6 2000 022D8 00000  2899+MOVE     MVC   TEMP(3),0(R2) MOVE CURRENT TO TEMPORARY  000E
0022C2 47F0 B090            02282  2900+         BC    15,XCOMP1A CONTINUE                   000E
0022C6 580000                      2901+SERLIST  DC    X'580000'
0022C9 000000                      2902+         DC    X'000000'
0022CC 000000                      2903+         DC    X'000000'
0022CF 000000                      2904+         DC    X'000000'
0022D2 000000                      2905+         DC    X'000000'
0022D5 000000                      2906+         DC    X'000000'
0022D8 000000                      2907+TEMP     DC    XL3'0' 000E
                                   2908+*                                                                  000E
0022DB 00
0022DC D202 B0E6 2000 022D8 00000  2909+THATSIT  MVC   TEMP(3),0(R2) MOVE ENTRY TO TEMP         000E
0022E2 9500 B0E6      022D8        2910+MODNOT   CLI   TEMP,X'00' IS TEMP EMPTY              000E
0022E6 4780 B29A            0248C  2911+         BC    8,NOSUP YES, MODEL NOT SUPPORTED   000E
0022EA 9501 B0E8      022DA        2912+         CLI   TEMP+2,X'01' SEREP                      000E
0022EE 4780 B2A4            02496  2913+         BC    8,SEREP YES, BRANCH                000E
0022F2 9502 B0E8      022DA        2914+         CLI   TEMP+2,X'02' SER0                       000E
0022F6 4780 B11C            0230E  2915+         BC    8,SER0 YES, BRANCH                000E
0022FA 9503 B0E8      022DA        2916+         CLI   TEMP+2,X'03' SER1                       000E
0022FE 4780 B124            02316  2917+         BC    8,SER1 YES, BRANCH                000E
002302 9500 B0E8      022DA        2918+         CLI   TEMP+2,X'00'
002306 4770 B29A            0248C  2919+         BC    7,NOSUP
00230A 47F0 B2B2            024A4  2920+         BC    15,IEASERND
                                   2921+*                                                                  000E
00230E 9601 D527      06768        2922+SER0     OI    IEASWITA,SER0SWIT SET SWITCH FOR SER0         000E
002312 47F0 B130            02322  2923+         B     SER01BDL BRANCH TO SER0/1 LOGIC     000E
002316 9602 D527      06768        2924+SER1     OI    IEASWITA,SER1SWIT SET SWITCH FOR SER1         000E
                                                                                                               PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00231A 45E0 B138            0232A  2925+         BAL   R14,SERMODNM LINK TO SET MOD NO IN NAME  000E
00231E 92F1 D6E0      06921        2926+         MVI   IFBSERNM+5,C'1' INDICATE SER1              000E
002322 45E0 B158            0234A  2927+SER01BDL BAL   R14,SERBLDL LINK TO BLDL ROUTINE       000E
002326 47F0 B190            02382  2928+         B     SERLOAD MODULE FOUND, LOAD SER MOD 000E
00232A F321 D6E0 B0E6 06921 022D8  2929+SERMODNM UNPK  IFBSERNM+5(3),TEMP(2) UNPACK MODEL INTO NAME      000E
002330 D200 D6E2 D6E1 06923 06922  2930+         MVC   IFBSERNM+7(1),IFBSERNM+6 POSITION                   000E
002336 D200 D6E1 D6E0 06922 06921  2931+         MVC   IFBSERNM+6(1),IFBSERNM+5 POSITION                   000E
00233C 95C3 B0E6      022D8        2932+         CLI   TEMP,XC3 MOD 195 SER REQUESTED         A33272
002340 4770 B156            02348  2933+         BNE   NOMOD195 NOT MOD 195 BRANCH            A33272
002344 92C3 D6E1      06922        2934+         MVI   IFBSERNM+6,XC3 MOVE 195 INDICATOR IN SER NAM A33272
002348 07FE                        2935+NOMOD195 BR    R14 EXIT FROM SER SUBRTN          A33272
00234A D203 CFF7 D68B 06238 068CC  2936+SERBLDL  MVC   IEABUFER(4),SVLST SET UP BLDL LIST PREFIX     000E
002350 D207 CFFB D6DB 0623C 0691C  2937+         MVC   IEABUFER+4(L'IFBSERNM),IFBSERNM AND MODULE NAME  000E
002356 4110 0000            00000  2938+         LA    1,0 LOAD PARAMETER REG 1
00235A 4100 CFF7            06238  2939+         LA    0,IEABUFER LOAD PARAMETER REG 0
00235E 4111 0000            00000  2940+         LA    1,0(1)
002362 0A12                        2941+         SVC   18 LINK TO BLDL ROUTINE
002364 12FF                        2942+         LTR   R15,R15 TEST FOR GOOD BLDL         000E
002366 078E                        2943+         BCR   8,R14 MODULE FOUND, RETURN       000E
002368 D207 CA4F D6DB 05C90 0691C  2944+         MVC   SMBNAM(L'IFBSERNM),IFBSERNM MOVE NAME TO 106I MSG  000E
00236E D20B CA65 DA12 05CA6 06C53  2945+         MVC   SLIBNM(L'IEALNKNM),IEALNKNM AND INDICATE LINKLIB  000E
002374 D203 0048 C54F 00048 05790  2946+         MVC   72(4),WARNING SET UP CAW FOR 106I MSG    000E
00237A 4550 C285            054C6  2947+         BAL   R5,IEACONSL WTO SER MODULE NOT FOUND   000E
00237E 47F0 B2A4            02496  2948+         B     SEREP ESTABLISH SEREP INTERFACE  000E
002382                             2949+SERLOAD  EQU   * 000E
002382 903D D11F            06360  2950+         STM   R3,R13,SAVEREF PROTECT REGS ACROSS LINK    000E
002386 0700                        2951+         CNOP  0,4
002388 4100 CFFB            0623C  2952+         LA    0,IEABUFER+4 LOAD PARAMETER INTO REGISTER ZERO
00238C 5810 B1A2            02394  2953+         L     1,*+8 NO DCB SPECIFIED,HIARCHY SPECIFIED
002390 47F0 B1A6            02398  2954+         B     *+8 BRANCH AROUND CONSTANT(S)
002394 01000000                    2955+         DC    X'01000000' HIARCHY ZERO SPECIFIED
002398 1100                        2956+         LNR   0,0 LOAD NEGITIVE OF REG. ZERO TO INDICATE DE
00239A 0A08                        2957+         SVC   8 ISSUE LOAD SVC
00239C 18F0                        2958+         LR    R15,R0 SER INITIALIZATION ENTRY POINT 000E
00239E 5800 D247            06488  2959+         L     R0,IEANUCND R0 = RELOC ADDR FOR SER     000E
0023A2 41E0 B1C4            023B6  2960+         LA    R14,SERLINK EXIT FROM BOUNDARY ROUTINE  000E
0023A6 4120 0007            00007  2961+SERBDRY  LA    R2,7 ROUTINE TO ASSURE BOUNDARY  000E
0023AA 1A02                        2962+         AR    R0,R2 ROUND NUCLEUS END ADDRESS   000E
0023AC 1602                        2963+         OR    R0,R2 TO A                        000E
0023AE 1702                        2964+         XR    R0,R2 DOUBLE WORD BOUNDARY        000E
0023B0 5000 D247            06488  2965+         ST    R0,IEANUCND AND SAVE NEW END ADDRESS    000E
0023B4 07FE                        2966+         BR    R14 EXIT FROM ROUTINE           000E
0023B6                             2967+         CNOP  2,4 P02006
0023B6                             2968+SERLINK  EQU   * MCS0
0023B6 90BD B27E            02470  2969+         STM   R11,R13,SERLKSV MCS0
0023BA 05EF                        2970+         BALR  R14,R15 MCS0
0023BC 98BD E0B4            000B4  2971+SERLKRTN LM    R11,R13,SERLKSV-SERLKRTN(R14) REST REGS            MCS0
0023C0                             2972+SERLKGO  EQU   * MCS0
0023C0 D202 D6E3 D248 06924 06489  2973+         MVC   MCPSWADR(3),IEANUCND+1 SAVE SER ADDR FOR MC PSW    000E
0023C6 45E0 B1B4            023A6  2974+         BAL   R14,SERBDRY LINK TO BOUNDARY SUBROUTINE 000E
                                   2975+* 'DELETE' THE SER INITIALIZATION MODULE                           000E
0023CA 1B33                        2976+         SR    R3,R3 CLEAR REGISTER 3           000E
0023CC 5820 C60F            05850  2977+         L     R2,IEATOPCB R2 = PTR TO MS TCB         000E
0023D0 5032 002C            0002C  2978+         ST    R3,TCBJPQ(R2) CLEAR MS TCB JPQ PTR       000E
0023D4 5032 0024            00024  2979+         ST    R3,TCBLLE(R2) CLEAR MS TCB LLE PTR       000E
                                                                                                               PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2980+*                                                                  000E
0023D8 9102 D527      06768        2981+         TM    IEASWITA,SER1SWIT SER 1 LOADED               000E
0023DC 4710 B28A            0247C  2982+         BC    1,SER1LOAD YES, BRANCH TO SET UP MC PSW000E
                                                                                                               PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2984+* THE FOLLOWING CODE IS FOR SER0 ONLY                             30502
                                   2985+* THE NON-RESIDENT SER0 MODULE IS LOCATED AND ITS DEVICE ADDRESS  30502
                                   2986+* IS PASSED TO THE RESIDENT SER0 MODULE.                          30502

0023E0 D20B C64B 1000 0588C 00000  2988+         MVC   CUASER(SERXTRNS),0(R1) * 3 EXTERNS FOR SER0
0023E6 45E0 B138            0232A  2989+         BAL   R14,SERMODNM *           NON-RESIDENT NAME
0023EA 92F0 D6E0      06921        2990+         MVI   IFBSERNM+5,C'0' *        INDICATE SER0
0023EE 45E0 B158            0234A  2991+         BAL   R14,SERBLDL *            LINK TO BLDL ROUTINE
                                   2992+* UPON RETURN FROM BLDL FOR IFBSR0MN IEABUFER CONTAINS:           30502
                                   2993+*        XXXX IFBS R0MN XXXC   XXTT RXXX ...                      30502
                                   2994+*                                                                 30502
                                   2995+* WHERE  X          REPRESENTS A BYTE OF DATA USED ELSEWHERE      30502
                                   2996+*        IFBS R0MN  IS THE MODULE NAME                            30502
                                   2997+*        C          IS THE CONCATENATION NUMBER                   30502
                                   2998+*        TTR        IS THE RELATIVE TRACK ADDRESS OF THE 1ST      30502
                                   2999+*                   BLOCK OF TEXT OF THE MEMBER                   30502
                                   3000+* THE CONCATENATION NUMBER IDENTIFIES THE PARTICULAR DATA SET     30502
                                   3001+* CONCATENATED TO SYS1.LINKLIB WHICH CONTAINS THE NON-RESIDENT    30502
                                   3002+* SER0 MODULE                                                     30502
0023F2 5810 0010            00010  3003+         L     R1,CVTPNTR *             CVT ADDRESS
0023F6 5811 0008            00008  3004+         L     R1,CVTLINK(R1) *         LINKLIB DCB ADDRESS
0023FA 5811 002C            0002C  3005+         L     R1,QDCBDBWD(R1) *        LINKLIB DEB ADDRESS
0023FE 4111 0000            00000  3006+         LA    R1,0(R1) *               CLEAR HIGH ORDER BYTE     30502
000024                             3007+         USING DEB,R1 *                                           30502
002402 1BEE                        3008+         SR    R14,R14 *                                          30502
002404 43E0 D006            06247  3009+         IC    R14,CONCATNO *           CONCATENATION NUMBER      30502
002408 12EE                        3010+         LTR   R14,R14 *                IF ZERO                   30502
00240A 4780 B230            02422  3011+         BZ    SER200 *                 BRANCH                    30502
                                   3012+* CALCULATE DISPLACEMENT OF EXTENT                                30502
00240E 1B00                        3013+         SR    R0,R0 *                                            30502
002410 4300 1010            00034  3014+         IC    R0,DEBNMEXT *            NUMBER OF EXTENTS         30502
002414 8900 0004            00004  3015+         SLL   R0,4 *                   TIMES 16                  30502
002418 1AE0                        3016+         AR    R14,R0 *                 CONCAT NO + EXTENT AREA   30502
00241A 43EE 101F            00043  3017+         IC    R14,DEBEND-1(14) *       EXTENT NUMBER             30502
00241E 89E0 0004            00004  3018+         SLL   R14,4 *                  TIMES EXTENT SIZE         30502
002422 1AE1                        3019+SER200   AR    R14,R1 ADJUST BASE                 @SA53021
002424 58E0 E020            00020  3020+         L     R14,DEBDVMOD-DEB(,R14) UCB ADDRESS              @SA53021
                                   3021+         DROP  R1 *                                               30502
002428 48EE 0004            00004  3022+         LH    R14,UCBCHA(R14) *        DEVICE ADDRESS            30502
00242C 4100 07FF            007FF  3023+         LA    R0,X7FF *                MASK                      30502
002430 14E0                        3024+         NR    R14,R0 *                                           30502
002432 5880 C64B            0588C  3025+         L     R8,CUASER *              EXTERN TO SER
002436 40E8 0000            00000  3026+         STH   R14,0(R8) *              PASS DEVICE ADDR TO SER

00243A D202 D008 D009 06249 0624A  3028+         MVC   BLDLTT3B(Q3),BLDLTTRR *  ALLIGN FOR LOAD
002440 5800 D007            06248  3029+         L     R0,BLDLTTWD *            TTR OF 1ST TEXT RECORD
002444 8900 0008            00008  3030+         SLL   R0,Q8 *                  TTR0
002448 4300 D006            06247  3031+         IC    R0,CONCATNO *            TTRN                      30502
00244C 4120 D004            06245  3032+         LA    R2,BLDLCNVT R2 = ADDR FOR CONVERT RESULT 000E
002450 58F0 C607            05848  3033+         L     R15,ADCPCNVT R15 = SUPVR CONVERT RTN ADR000E
002454 0700                        3034+         CNOP  2,4 P02006
002456 90BD B27E            02470  3035+         STM   R11,R13,SERLKSV SAVE BASE REGS OVER CONV RTN
00245A 05EF                        3036+         BALR  R14,R15 LINK TO CONVERT TTRN TO MBBCCHHR     000E
00245C 98BD E014            00014  3037+SERTTRET LM    R11,R13,SERLKSV-SERTTRET(R14) RESTORE BASE REGS
002460 5880 C64F            05890  3038+         L     R8,IFBSEEK R8 = EXTRN TO SER          000E
                                                                                                               PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002464 D204 8000 D007 00000 06248  3039+         MVC   Q0(Q5,R8),BLDLTCHR PASS CCHHR OF 1ST TEXT RCD 000E
00246A 47F0 B2B2            024A4  3040+         B     IEASERND SER0 PROCESSING COMPLETE    000E
00246E 0700                        3041+         CNOP  0,4 P02006
002470 0000000000000000            3042+SERLKSV  DC    3F'0' BASE REG SAVE AREA               MCS0
00247C D704 0070 0070 00070 00070  3043+SER1LOAD XC    MCHKNPSW(5),MCHKNPSW SET UP MC NEW PSW DISABLED  000E
002482 D202 0075 D6E3 00075 06924  3044+         MVC   MCHKNPSW+5(3),MCPSWADR SET UP MC PSW FOR SER 1     000E
002488 47F0 B2B2            024A4  3045+         B     IEASERND 000E
00248C D203 0048 C5E7 00048 05828  3046+NOSUP    MVC   72(4),SMODNCAW SET UP CAW FOR 219I MSG    000E
002492 4550 C285            054C6  3047+         BAL   R5,IEACONSL WTO MODEL NOT SUPPORTED    000E
002496 D203 0048 C5EB 00048 0582C  3048+SEREP    MVC   72(4),IEASPCAW SET CAW FOR 217I MSG        000E
00249C 4550 C285            054C6  3049+         BAL   R5,IEACONSL WTO SEREP INTERFACE SET UP  000E
0024A0 94FC D527      06768        3050+         NI    IEASWITA,255-SER0SWIT-SER1SWIT CANCEL SER OPTIONS000E
0024A4                             3051+IEASERND EQU   * 000E
                                                                                                               PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3053+***                                                               19032
                                   3054+*   THE FOLLOWING ROUTINE WILL LOAD THE CCH INITIALIZATION        19032
                                   3055+*   MODULE AND TRANSFERE CONTROL TO IT. UPON RETURN, THE MODULE   19032
                                   3056+*   WILL BE DELETED, AND THE MODULES WHOSE CODE WAS RETURNED IN   19032
                                   3057+*   A PARAMETER LIST WILL BE LOADED AND BRANCHED TO. THESE        19032
                                   3058+*   MODULES WILL MOVE THEMSELVES INTO THE DUMMY BUFFER, PERFORM   19032
                                   3059+*   ANY NECESSARY INITIALIZATION, AND RETURN. AT ENTRY, THERE IS  19032
                                   3060+*   NO REGISTER DEPENDENCY, AND AT EXIT, NO REGISTERS ARE PASSED  19032
                                   3061+*   TO THE NEXT ROUTINE.                                          19032
                                   3062+***                                                               19032



000000                             3064+CCR0     EQU   0 19032
000001                             3065+CCR1     EQU   1 19032
000002                             3066+CCR2     EQU   2 19032
000003                             3067+CCR3     EQU   3 19032
000004                             3068+CCR4     EQU   4 19032
000005                             3069+CCR5     EQU   5 19032
000006                             3070+CCR6     EQU   6 19032
000007                             3071+CCR7     EQU   7 19032
000008                             3072+CCR8     EQU   8 19032
000009                             3073+CCR9     EQU   9 19032
00000A                             3074+CCR10    EQU   10 19032
00000B                             3075+CCR11    EQU   11 19032
00000C                             3076+CCR12    EQU   12 19032
00000D                             3077+CCR13    EQU   13 19032
00000E                             3078+CCR14    EQU   14 19032
00000F                             3079+CCR15    EQU   15 19032

0024A4                             3081+CCHSTART EQU   * 19032
0024A4 D501 D51F D38B 06760 065CC  3082+         CLC   CPUMODL(Q2),X0065 TEST FOR MODEL LESS THAN 65    19E07
0024AA 4740 B3CE            025C0  3083+         BL    CCHEND YES, CCH INVALID               19032
0024AE D207 D353 D6E6 06594 06927  3084+         MVC   CCHNMBLD(Q8),CCHNAME PUT NAME IN BLDL LIST         19032
0024B4 4540 B320            02512  3085+         BAL   CCR4,CCHBLDL BR TO BLDL RTN                 19032
0024B8 12FF                        3086+         LTR   CCR15,CCR15 TEST FOR SUCCESSFUL LOAD       19032
0024BA 4780 B2E6            024D8  3087+         BE    CCHLOAD0 YES, CONTINUE                  19032
0024BE D202 CEEC D6EE 0612D 0692F  3088+         MVC   RXMSGFNC(L'CCHCON),CCHCON SET UP 208I MSG          19032
0024C4 D210 CEEF DA35 06130 06C76  3089+         MVC   RXMSGFNC+L'CCHCON(L'RXMSGFNC-L'CCHCON),IEABLNCS 19032
0024CA D203 0048 C5EF 00048 05830  3090+         MVC   CAW(Q4),IEARXCAW READY 208I CAW                 19032
0024D0 4550 C285            054C6  3091+         BAL   CCR5,IEACONSL WRITE THE MSG                  19032
0024D4 47F0 B3CE            025C0  3092+         B     CCHEND EXIT                           19032
0024D8 18F0                        3093+CCHLOAD0 LR    CCR15,CCR0 R15 =ENTRY POINT               19032
0024DA 4120 D6F1            06932  3094+         LA    CCR2,CCH9BYTE R2 = NINE BYTE AREA ADDR       19032
0024DE 5800 C60B            0584C  3095+         L     CCR0,CCHANFIG R0 = ADDR CHAN CONFIG WORD     19032
0024E2 4550 B362            02554  3096+         BAL   CCR5,CCHLINK PREPARE TO LINK TO MODULE      19032
0024E6 95FF 2000      00000        3097+CCHLOOP  CLI   Q0(CCR2),XFF TEST FOR ALL MODULES LOADED    19032
0024EA 4780 B3CE            025C0  3098+         BE    CCHEND YES, EXIT CCH CODE             19032
0024EE D201 D6EC 2000 0692D 00000  3099+         MVC   CCHSUFIX(Q2),Q0(CCR2) NO, SET UP SUFFIX FOR LOAD   19032
0024F4 D207 D353 D6E6 06594 06927  3100+         MVC   CCHNMBLD(Q8),CCHNAME SET UP BLDL PARAMETER LIST    19032
0024FA 4540 B320            02512  3101+         BAL   CCR4,CCHBLDL BR TO BLDL ROUTINE             19032
0024FE 12FF                        3102+         LTR   CCR15,CCR15 TEST FOR SUCCESSFUL LOAD       19032
002500 4770 B318            0250A  3103+         BNE   CCHLOAD1 NO, BRANCH AROUND LINK CODE    19032
002504 18F0                        3104+         LR    CCR15,CCR0 R15 = MODULE'S ADDR            19032
002506 4550 B362            02554  3105+         BAL   CCR5,CCHLINK PREPARE TO LINK TO MODULE      19032
                                                                                                               PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00250A 4122 0002            00002  3106+CCHLOAD1 LA    CCR2,Q2(CCR2) UPDATE PARM LIST PNTR          19032
00250E 47F0 B2F4            024E6  3107+         B     CCHLOOP CONTINUE LOADING               19032
002512 1B11                        3108+CCHBLDL  SR    CCR1,CCR1 R1 = CODE FOR LINKLIB          19032
002514 1BFF                        3109+         SR    CCR15,CCR15 CLEAR RETURN CODE REG          19032
002516 4100 D34F            06590  3110+         LA    CCR0,CCHLST R0 = BLDL LIST PNTR            19032
00251A 1811                        3111+         LR    1,CCR1 LOAD PARAMETER REG 1
00251C 1800                        3112+         LR    0,CCR0 LOAD PARAMETER REG 0
00251E 4111 0000            00000  3113+         LA    1,0(1)
002522 0A12                        3114+         SVC   18 LINK TO BLDL ROUTINE
002524 12FF                        3115+         LTR   CCR15,CCR15 TEST FOR SUCCESSFUL BLDL       19032
002526 4780 B350            02542  3116+         BE    CCHLOAD2 YES, LOAD THE MODULE           19032
00252A D207 CA4F D6E6 05C90 06927  3117+         MVC   SMBNAM(Q8),CCHNAME NO, SET UP 106I MSG FOR        19032
002530 D20B CA65 DA12 05CA6 06C53  3118+         MVC   SLIBNM(L'IEALNKNM),IEALNKNM MODULE NOT FOUND       19032
002536 D203 0048 C54F 00048 05790  3119+         MVC   CAW(Q4),WARNING SET CAW                        19032
00253C 4550 C285            054C6  3120+         BAL   CCR5,IEACONSL PRINT MSG                      19032
002540 07F4                        3121+         BR    CCR4 RETURN                         19032
002542 1B11                        3122+CCHLOAD2 SR    CCR1,CCR1 INDICATE LINKLIB LOAD          19032
002544 4100 D353            06594  3123+         LA    0,CCHNMBLD LOAD PARAMETER INTO REGISTER ZERO
002548 4111 0000            00000  3124+         LA    1,0(CCR1) LOAD ADDR. OF DCB INTO REG. ONE
00254C 1100                        3125+         LNR   0,0 LOAD NEGITIVE OF REG. ZERO TO INDICATE DE
00254E 0A08                        3126+         SVC   8 ISSUE LOAD SVC
002550 1BFF                        3127+         SR    CCR15,CCR15 SEND ZERO RETURN CODE          19032
002552 07F4                        3128+         BR    CCR4 RETURN TO CALLER               19032
002554 902D B38E            02580  3129+CCHLINK  STM   CCR2,CCR13,CCHSAVE SAVE REGISTERS                 19032
002558 5810 D247            06488  3130+         L     CCR1,IEANUCND R1 = DUMMY BUFFER ADDR         19032
00255C 4140 0007            00007  3131+         LA    CCR4,Q7 ROUND ADDRESS                  19032
002560 1A14                        3132+         AR    CCR1,CCR4 IN NUCLEUS BUFFER              19032
002562 1614                        3133+         OR    CCR1,CCR4 TO THE HIGHER                  19032
                                   3134+* CNOP ADDED TO INSURE THAT CCHSAVE-CCHLKRTN IS FULL WORD ALIGND  19032
002564                             3135+         CNOP  0,4 INSURE ALIGNMENT TO SAVE AREA  19032
002564 1714                        3136+         XR    CCR1,CCR4 DOUBLEWORD BNDRY               19032
002566 5010 D347            06588  3137+         ST    CCR1,CCHPARML SET UP PARAMETER LIST          19032
00256A 4110 D347            06588  3138+         LA    CCR1,CCHPARML R1 = PNTR TO PARM LIST         19032
00256E 05EF                        3139+         BALR  CCR14,CCR15 LINK TO LOAD MODULE            19032
002570 982D E010            00010  3140+CCHLKRTN LM    CCR2,CCR13,CCHSAVE-CCHLKRTN(CCR14) RESTORE REGS    19032
002574 D203 D247 D347 06488 06588  3141+         MVC   IEANUCND(Q4),CCHPARML UPDATE NUCND                 19032
00257A 47F0 B3BE            025B0  3142+         B     CCHAROUN BR AROUND SAVE AREA            19032
00257E 0000
002580 0000000000000000            3143+CCHSAVE  DC    12F'0' CCHSAVE AREA                   19032
                                   3144+* 'DELETE' THE CCH MODULE                                         19032
0025B0 1B33                        3145+CCHAROUN SR    CCR3,CCR3 CLEAR R3                       19032
0025B2 5840 C60F            05850  3146+         L     CCR4,IEATOPCB R4 = PNTR TO MS TCB            19032
0025B6 5034 002C            0002C  3147+         ST    CCR3,TCBJPQ(CCR4) CLEAR MS TCB JPQ PNTR          19032
0025BA 5034 0024            00024  3148+         ST    CCR3,TCBLLE(CCR4) CLEAR MS TCB LLE PNTR          19032
0025BE 07F5                        3149+         BR    CCR5 RETURN                         19032
0025C0                             3150+CCHEND   EQU   * 19032
                                                                                                               PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78
                                                                                                               PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3153+**  IF RMS IS IN THE SYSTEM, THIS ROUTINE WILL LOAD THE CORRECT   19E02
                                   3154+**  RMS NUCLEUS(MODEL DEPENDENT) IN THE OS NUCLEUS.  IT WILL THEN 19E02
                                   3155+**  LOAD THE RMS INITIALIZATION MODULE(IGFMCHF0) WHICH WILL       19E02
                                   3156+**  ALLOCATE AND INITIALIZE CORE FOR RMS AT THIS TIME.            19E02
000060                             3157+CODEWORD EQU   96 *                                               19E02
000000                             3158+K0       EQU   0 *                                                19E02
000001                             3159+K1       EQU   1 *
000002                             3160+K2       EQU   2 *
000003                             3161+K3       EQU   3 *
000004                             3162+K4       EQU   4 *                                                19E02
000007                             3163+K7       EQU   7 *                                                19E02
000008                             3164+K8       EQU   8 *                                                19E02
000009                             3165+K9       EQU   9 *
000010                             3166+K16      EQU   16 *                LOAD FAILED RETURN CODE        19E02
000016                             3167+K22      EQU   22 *                                               19E02
000048                             3168+K72      EQU   72 *                                               19E02
000054                             3169+K84      EQU   84 *                                               19E02
0000AF                             3170+K175     EQU   175 *                                              19E02
0000B0                             3171+K176     EQU   176 *               DISP. TO ADDRESS OF MCHNAME    19E02
000052                             3172+X52      EQU   X'52' *                                            19E02
0000FE                             3173+XFE      EQU   X'FE' *                                            20061
0025C0 4110 D957            06B98  3174+         LA    R1,IGFINIT *        GET ADDRESS OF IGFINIT         19E02
0025C4 D201 1052 D51F 00052 06760  3175+         MVC   X52(Q2,R1),CPUMODL *SAVE MODEL NUMBER              M0167
0025CA D201 1050 D521 00050 06762  3176+         MVC   X50(Q2,R1),SGMODL1 *SAVE SYSGENED NODEL NUMBER     M0167
0025D0 D501 D521 D523 06762 06764  3177+         CLC   SGMODL1(Q2),K85 .   CHECK FOR MODEL 85         CD  M1069
0025D6 4770 B3F2            025E4  3178+         BNE   MOD370 .            NO,BRANCH AROUND           IC 21055
0025DA D501 1050 1052 00050 00052  3179+         CLC   X50(Q2,R1),X52(R1) *IS MODEL NO = SYSGEN MODEL NO  19E02
0025E0 4770 B516            02708  3180+         BNE   ASREND10 *          NO SKIP RMS CODE               20061
0025E4                             3181+MOD370   EQU   * .                                            IC  21055
0025E4 41E0 B40A            025FC  3182+         LA    R14,MCHLINK *       SET RETURN REG                 19E02
0025E8 5800 D247            06488  3183+         L     R0,IEANUCND *        GET END OF NUC POINTER        19E02
0025EC                             3184+SETPTR   EQU   * *                                                19E02
0025EC 4120 0007            00007  3185+         LA    R2,K7 *             INSURE                         19E02
0025F0 1A02                        3186+         AR    R0,R2 *                    ADDRESS                 19E02
0025F2 1602                        3187+         OR    R0,R2 *                            ON              19E02
0025F4 1702                        3188+         XR    R0,R2 *                                 DOUBLEWORD 19E02
0025F6 5000 D247            06488  3189+         ST    R0,IEANUCND *       SAVE ADDRESS OF END OF NUCLEUS 19E02
0025FA 07FE                        3190+         BR    R14 *               RETURN                         19E02
0025FC                             3191+MCHLINK  EQU   * *                                                19E02
0025FC 5810 0010            00010  3192+         L     R1,CVTPNTR *        GET ADDRESS OF CVT             19E02
002600 5811 0008            00008  3193+         L     R1,CVTLINK(R1) *    GET POINTER TO DCB FOR LINKLIB 19E02
002604                             3194+NUCLOAD  EQU   * *                                                19E02
002604 4100 B41A            0260C  3195+         LA    0,*+8 LOAD PARAMETER INTO REGISTER ZERO
002608 47F0 B422            02614  3196+         B     *+12 BRANCH AROUND CONSTANT(S)
00260C C9C7C6D4C3C8C5F0            3197+         DC    CL8'IGFMCHE0' ENTRY POINT NAME
002614 4111 0000            00000  3198+         LA    1,0(1) LOAD ADDR. OF DCB INTO REG. ONE
002618 0A08                        3199+         SVC   8 ISSUE LOAD SVC
00261A 1200                        3200+         LTR   R0,R0 *             TEST FOR SUCESSFUL LOAD        19E02
00261C 4780 B4B6            026A8  3201+         BZ    RMSSKIPY *          NO-GO SET UP FOR MSG OUTPUT    19E02
002620 18F0                        3202+         LR    R15,R0 *            GET ENTRY POINT                19E02
002622 5800 D247            06488  3203+         L     R0,IEANUCND *       GET PTR TO END OF NUCLEUS      19E02
002626 4110 D957            06B98  3204+         LA    R1,IGFINIT *        PTR TO IGFINIT                 19E02
00262A 900F B4D6            026C8  3205+         STM   R0,R15,ASRSAVE *    SAVE REGS                      19E02
00262E 05EF                        3206+         BALR  R14,R15 *           LINK TO LOADED MODULE          19E02
                                   3207+*   UPON RETURN, REG ZERO CONTAINS THE ADDRESS OF THE FIRST ADDR. 19E02
                                                                                                               PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3208+* NOT USED IN THE NUCLEUS, AND REG ONE CONTAINS THE ADDRESS OF THE19E02
                                   3209+* RMS NUCLEUS.                                                    19E02
002630                             3210+         USING *,R14 *             ADDRESS. TO REF. SAVE AREA     19E02
002630 982F E0A0            026D0  3211+         LM    R2,R15,ASRSAVE+K8 * RESTORE REGS                   19E02
                                   3212+         DROP  R14 *                                              19E02
002634 5010 D95B            06B9C  3213+         ST    R1,IGFINIT+K4 *     SAVE PTR TO RMS NUCLEUS        19E02
002638 45E0 B3FA            025EC  3214+         BAL   R14,SETPTR *        GO SET NEW UPPER LIMIT OF NUC  19E02
00263C 1B33                        3215+         SR    R3,R3 *             CLEAR REG TO ZERO              19E02
00263E 5820 C60F            05850  3216+         L     R2,IEATOPCB *       GET PTR TO MS TCB              19E02
002642 5032 002C            0002C  3217+         ST    R3,TCBJPQ(R2) *     CLEAR MS TCB JPQ POINTER       19E02
002646 5032 0024            00024  3218+         ST    R3,TCBLLE(R2) *     CLEAR MS TCB LLE POINTER       19E02
00264A 5810 0010            00010  3219+         L     R1,CVTPNTR *        GET POINTER TO CVT             19E02
00264E 5811 0008            00008  3220+         L     R1,CVTLINK(R1) *    GET POINTER TO DCB FOR LINKLIB 19E02
002652                             3221+F0LOAD   EQU   * *                                                19E02
002652 4100 B468            0265A  3222+         LA    0,*+8 LOAD PARAMETER INTO REGISTER ZERO
002656 47F0 B470            02662  3223+         B     *+12 BRANCH AROUND CONSTANT(S)
00265A C9C7C6D4C3C8C6F0            3224+         DC    CL8'IGFMCHF0' ENTRY POINT NAME
002662 4111 0000            00000  3225+         LA    1,0(1) LOAD ADDR. OF DCB INTO REG. ONE
002666 0A08                        3226+         SVC   8 ISSUE LOAD SVC
002668 1200                        3227+         LTR   R0,R0 *             TEST FOR SUCESSFUL LOAD        19E02
00266A 4780 B4C4            026B6  3228+         BZ    RMSSKIP *           NO-BRANCH TO MCH INOP. MSG     19E02
00266E 18F0                        3229+         LR    R15,R0 *          GET RETURNED ENTRY POINT         19E02
002670 4100 D957            06B98  3230+         LA    R0,IGFINIT *        GET PTR TO RMS PARM. LIST      19E02
002674 9680 D9AF      06BF0        3231+         OI    SUBSINT,X80 *       INDICATE TSO IN SYSTEM FOR     20061
                                   3232+*                                  IGFMCHF0                       20061
002678 4110 C567            057A8  3233+         LA    R1,IGFLIST *        GET PTR TO LIST OF NIP PTRS    19E02
00267C 5820 D247            06488  3234+         L     R2,IEANUCND *       GET ADDRESS OF END OF NUCLEUS  19E02
002680 4130 D9B7            06BF8  3235+         LA    R3,IGFREFRS *       GET PTR TO REFRESH AREAS       19E02
002684 5030 D963            06BA4  3236+         ST    R3,IGFINIT+Q12 *    INIT PTR TO AREA IN IGFINIT    19E02
002688 900F B4D6            026C8  3237+         STM   R0,R15,ASRSAVE *    SAVE REGS                      19E02
00268C 05EF                        3238+         BALR  R14,R15 *           LINK TO IGFMCHF0               19E02
00268E                             3239+         USING *,R14 *             ADDRESS. TO REF. SAVE AREA     19E02
00268E 982F E042            026D0  3240+         LM    R2,R15,ASRSAVE+K8 * RESTORE REGS                   19E02
                                   3241+         DROP  R14 *                                              19E02
002692 45E0 B3FA            025EC  3242+         BAL   R14,SETPTR *        GO RESET PTR TO END OF NUC     19E02
002696 1B33                        3243+         SR    R3,R3 *             CLEAR REG TO ZERO              19E02
002698 5820 C60F            05850  3244+         L     R2,IEATOPCB *       GET PTR TO MS TCB              19E02
00269C 5032 002C            0002C  3245+         ST    R3,TCBJPQ(R2) *     CLEAR MS TCB JPQ POINTER       19E02
0026A0 5032 0024            00024  3246+         ST    R3,TCBLLE(R2) *     CLEAR MS TCB LLE POINTER       19E02
0026A4 47F0 B516            02708  3247+         B     ASREND *            GO TO END OF RMS CODE          19E02
0026A8                             3248+RMSSKIPY EQU   * *                                                19E02
0026A8 5830 C5C7            05808  3249+         L     R3,IGFLIST+CODEWORD GET ADDRESS OF MCHNAME         19E02
0026AC D207 3000 B41A 00000 0260C  3250+         MVC   Q0(Q8,R3),NUCLOAD+Q8 *SAVE NAME OF FAILING MOD     19E02
0026B2 47F0 B4CE            026C0  3251+         B     SETRC *             SET RETURN CODE FOR FAILED LOAD19E02
0026B6                             3252+RMSSKIP  EQU   * *                                                19E02
0026B6 5830 C5C7            05808  3253+         L     R3,IGFLIST+CODEWORD GET ADDRESS OF MCHNAME         19E02
0026BA D207 3000 B468 00000 0265A  3254+         MVC   Q0(Q8,R3),F0LOAD+Q8 *SAVE NAME OF FAILING MODULE   19E02
0026C0                             3255+SETRC    EQU   * *                                                19E02
0026C0 9210 C5C7      05808        3256+         MVI   IGFLIST+CODEWORD,K16 *LOAD FAILED RETURN CODE      19E02
0026C4 47F0 B516            02708  3257+         B     ASREND *            GO TO END OF RMS CODE          19E02
0026C8                             3258+ASRSAVE  DS    16F *               REGISTER SAVE AREA             19E02
002708                             3259+ASREND   EQU   * *                                                19E02
002708                             3260+ASREND10 EQU   * *                                                20061
                                                                                                               PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3262+**  RETURN TO CORE INITIALIZATION RTN TO RESTORE UNUSED NUCLEUS    000E
                                   3263+**  DUMMY AREA TO FREE CORE                                        000E
002708 5870 D247            06488  3264+         L     R7,IEANUCND R7 = END OF NUCLEUS             MXMV
00270C 4130 0007            00007  3265+         LA    R3,Q7 ROUND ADDRESS               MXMV
002710 1A73                        3266+         AR    R7,R3 IN NUCLEUS BUFFER       MXMV
002712 1673                        3267+         OR    R7,R3 TO THE HIGHER       MXMV
002714 1773                        3268+         XR    R7,R3 DOUBLEWORD BDRY   MXMV
002716 1857                        3269+         LR    R5,R7 R5 = ROUNDED END OF NUCLEUS     MXMV
002718 5050 D21B            0645C  3270+         ST    R5,IEADMY LOW ADDR NOT IN NUC FOR SQS 000E
00271C 58E0 C44F            05690  3271+         L     R14,ADIEASQS R14 = ADDR OF IN-LINE SUBRTN000E
002720 05FE                        3272+         BALR  R15,R14 LINK TO REBUILD SQS         000E
002722 05B0                        3273+         BALR  11,0 RE-ESTABLISH ADDRESSABILITY000C
002724                             3274+         USING *,11 FOR MAILINE CODE           000C
                                                                                                               PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3276+***
                                   3277+**  THIS ROUTINE REINITIALIZES MAIN STORAGE AND RELOCATES THE LAST
                                   3278+**  PORTION OF NIP TO LOWER CORE AT THE END OF THE SQS AREA. THEN
                                   3279+**  NIP LOADS DESIGNATED MODULES INTO HIGH CORE LINK PACK AREA.
                                   3280+***
002724 5850 C617            05858  3281+         L     5,IEAGOVRF R 5 = PNTR TO MS1 EXTRN
002728 5845 0000            00000  3282+         L     4,0(5) R 4 = PNTR TO END OF SQS AREA
00272C 91FF D67B      068BC        3283+         TM    IEASQSDL,X'FF' TEST FOR NULL CASE OPTION
002730 4740 B030            02754  3284+         BC    4,IEANOADN YES DO NOT INCREASE SIZE OF SQS SPACE
002734 9540 D647      06888        3285+         CLI   IEASQSLS,C' '
002738 4780 B030            02754  3286+         BE    IEANOADN
00273C 5890 D647            06888  3287+         L     9,IEASQSLS R 9 = ADDITIONAL SQS BLOCKS
002740 8990 000B            0000B  3288+         SLL   9,11 R 9 = 2K BLOCKS TIMES 2048
002744 5825 0004            00004  3289+         L     2,4(5) R2 = DQE PTR               000E
002748 5832 000C            0000C  3290+         L     3,12(2) R3= PREV 2K SIZE OF SQS    000E
00274C 1A39                        3291+         AR    3,9 R3 = REVISED SIZE          000E
00274E 5032 000C            0000C  3292+         ST    3,12(2) DQE HAS NEW 2K SIZE        000E
002752 1A49                        3293+         AR    4,9 R 4 = NEW END OF SQS AREA
002754 5860 D263            064A4  3294+IEANOADN L     6,IEACORSZ R 6 = END OF CORE
002758 D203 CB2B D869 05D6C 06AAA  3295+         MVC   IEAEXNAM(Q4),IEASQSQS SET UP MSG FOR POSS ERROR   A33251
00275E 41A4 07FF            007FF  3296+         LA    R10,Q2047(R4) TEST FOR REGION SIZE OF     2608
002762 19A6                        3297+         CR    R10,R6 LESS THAN 2K BYTES        2608
002764 47B0 C2E1            05522  3298+         BNL   IEATOOBG YES WRITE ERROR MSG AND WAIT FOR IPL
002768 5045 0000            00000  3299+         ST    4,0(5) NO SET NEW SQS END PNTR IN MS1 EXTRN
00276C 5045 0018            00018  3300+         ST    R4,NIPSQSBD(R5) *        NIPS FINAL SQS BOUND     A36186
002770 5890 0010            00010  3301+         L     9,16 R 9 = PNTR TO CVT                   698
002774 5049 0080            00080  3302+         ST    4,CVTNUCB(9) SET PNTR TO END SQS IN CVT          698
002778 5890 C61B            0585C  3303+         L     9,IEASVRBA R 9 = PNTR TO SVRB BUCKET
00277C 1884                        3304+         LR    8,4 R 8 = NEW END OF SQS AREA
00277E 4170 0090            00090  3305+         LA    R7,144 R7 = SVRB SIZE              000E
002782 1B87                        3306+         SR    R8,R7 R8 = PTR TO SVRB            000E
002784 5089 0000            00000  3307+         ST    R8,0(R9) SET SVRB IN EXTERN          000E
002788 5870 D25F            064A0  3308+IEARELOC L     R7,ADNIPEND R7 = PTR TO END OF NIP CODE     MCS0
00278C 58A0 C4F3            05734  3309+         L     R10,LPAGOAC GET ADDR OF RELOC CODE         P3038
002790 1B7A                        3310+         SR    7,10 R 7 = SIZE OF CODE TO BE RELOCATED
002792 41A0 07FF            007FF  3311+         LA    10,2047 R10 = 2K BOUNDARY ROUNDING VALUE
002796 1A7A                        3312+         AR    7,10 R 7 = SIZE OF NIP
002798 167A                        3313+         OR    7,10 ROUNDED UP TO THE
00279A 177A                        3314+         XR    7,10 NEXT 2K BOUNDARY
00279C 1A47                        3315+         AR    4,7 ADD SIZE OF PART NIP TO END SQS
00279E 5040 D643            06884  3316+         ST    4,IEAFBQEA SAVE PNTR TO FBQE
0027A2 41A0 B07E            027A2  3317+RELMAXND LA    R10,RELMAXND R10 = PTR TO HI POSS FBQE   2608
0027A6 194A                        3318+         CR    R4,R10 TEST FOR CORE EXCEEDED      2608
0027A8 47B0 C2E1            05522  3319+         BNL   IEATOOBG YES, BRANCH TO WTO AND DIE  2608
0027AC                             3320+MPLOAD   EQU   *
0027AC 5820 D21B            0645C  3321+         L     2,IEADMY R 2 = PNTR TO PQE1
0027B0 4112 0008            00008  3322+         LA    1,8(2) R 1 = PNTR TO 1ST PQE ON CHAIN     000C
0027B4 45A0 C21F            05460  3323+         BAL   10,IEAMS1ER SET UP AND CHAIN PQE AND FBQE      000C
0027B8 5810 C617            05858  3324+         L     R1,IEAGOVRF R1 = PTR TO MSS EXTRN       000E
0027BC 5811 0004            00004  3325+         L     R1,GOVRDQE(R1) R1 = DQE PTR                000E
0027C0 4121 0010            00010  3326+NLCSINX  LA    R2,DQELNTH(R1) INDEX TO FQE               000E
0027C4 1B82                        3327+LCSINX   SR    R8,R2 R8 = FREE BYTES IN SQS      000E
0027C6 5021 0000            00000  3328+         ST    R2,0(R1) DQE POINTS TO FQE           000E
0027CA 5082 0004            00004  3329+         ST    8,4(2) FQE HAS FREE BYTES IN SQS          000C
0027CE 4144 0020            00020  3330+         LA    4,32(4) INCREMENT PAST FBQE
                                                                                                               PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0027D2 5040 D77F            069C0  3331+         ST    4,IEABLPTR SAVE PNTR FOR RESBLDL
0027D6 5040 D21F            06460  3332+         ST    4,IEADMY+4 SAVE PNTR FOR RESBLDL
0027DA 5810 C617            05858  3333+         L     1,IEAGOVRF R 1 = PNTR TO MS1 EXTRN
0027DE 5811 0000            00000  3334+         L     1,0(1) R 1 = PNTR TO END OF SQS
0027E2 9101 D527      06768        3335+         TM    IEASWITA,SER0SWIT IF SER 0 IS NOT TO BE INIT  000E
0027E6 4780 B0E0            02804  3336+         BC    8,NOSER0 TAKE BRANCH             000E
0027EA 1821                        3337+         LR    2,1
0027EC 5E20 D6D7            06918  3338+         AL    2,IFBSERCW
0027F0 5830 C653            05894  3339+         L     3,IFBADDR
0027F4 5023 0000            00000  3340+         ST    2,0(3)
0027F8 D704 0070 0070 00070 00070  3341+         XC    MCHKNPSW(5),MCHKNPSW SET UP MC NEW PSW DISABLED  000E
0027FE D202 0075 D6E3 00075 06924  3342+         MVC   MCHKNPSW+5(3),MCPSWADR SET UP MC PSW FOR SER 0     000E
002804                             3343+NOSER0   EQU   * 000E
002804 1B33                        3344+         SR    R3,R3 CLEAR REGISTER 3            000E
002806 5820 C60F            05850  3345+         L     R2,IEATOPCB R2 = PTR TO MS TCB          000E
00280A 5032 0018            00018  3346+         ST    R3,TCBMSS(R2) CLEAR MS TCB SPQE PTR       000E
                                                                                                               PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00280E 5010 D24B            0648C  3348+         ST    R1,RELOCADR SAVE NIP'S RELOCATION ADDR  MP65
                                                                                                               PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002812 58B0 C4D7            05718  3350+         L     R11,MSGBNDAC GET ADDR OF END OF BUFER       P3038
002816 07FB                        3351+         BR    R11 BRANCH AROUND HC BUFFER        P3038
002818                             3352+MSGBUFER DS    512F NIP MSG BUFFER FOR HARD COPY   P3038
003018                             3353+MSGBUFND EQU   * P3038
003018 05B0                        3354+         BALR  R11,R0 EST ADDR THIS SIDE OF 2K BUFR  P3038
00301A                             3355+         USING *,R11 P3038
                                   3356+***                                                                MCS0
                                   3357+**  SP255 MESSAGE BUFFER ALLOCATION ROUTINE - A 2K AREA IS         MCS0
                                   3358+**  ACQUIRED FROM SP255 OF SQS. ALL MESSAGES PREVIOUSLY BUFFERED   MCS0
                                   3359+**  WITHIN NIP ARE MOVED TO THIS SP255 BUFFER. THIS BUFFER WILL    MCS0
                                   3360+**  BE USED BY THE COMMUNICATIONS TASK TO PROVIDE HARDCOPY OF      MCS0
                                   3361+**  NIP MESSAGES                                                   MCS0
                                   3362+***                                                                MCS0
                                   3363+* REGISTER EQUATES - SP255 BUFFER ALLOCATION                       MCS0
000003                             3364+HBR3     EQU   3 WORK REG                        MCS0
000004                             3365+HBR4     EQU   4 WORK REG                        MCS0
000005                             3366+HBR5     EQU   5 PARM REG - IN-LINE SUBROUTINES  MCS0
000006                             3367+HBR6     EQU   6 BASE REG - EIL                  MCS0
000008                             3368+HBR8     EQU   8 BASE REG - UCM BASE             MCS0
00000E                             3369+HBR14    EQU   14 LINK REG - IN-LINE SUBROUTINES  MCS0
00000F                             3370+HBR15    EQU   15 PARM REG - EXTERNAL SUBROUTINES MCS0

000000                             3372+         USING EIL,HBR6 MCS0
000000                             3373+         USING UCM,HBR8 MCS0
00301A 5840 D417            06658  3374+         L     HBR4,HCBUFADR R4 = PTR TO LAST BYTE USED      MCS0
00301E 0700                        3375+         CNOP  0,4
003020 4510 B014            0302E  3376+         BAL   1,*+14 BRANCH AROUND LIST
003024 00000800                    3377+         DC    A(2048) LENGTH
003028 00006658                    3378+         DC    A(HCBUFADR) ADDR. OF ADDR. LIST
00302C 20                          3379+         DC    X'20' EC MODE
00302D FF                          3380+         DC    AL1(255) SUBPOOL VALUE
00302E 0A04                        3381+         SVC   4 ISSUE GETMAIN SVC
003030 12FF                        3382+         LTR   HBR15,HBR15 TEST RETURN CODE                MCS0
003032 4770 B052            0306C  3383+         BNE   HBRNCOR BRANCH IF STORAGE REQUEST BAD   MCS0
003036 5830 D41F            06660  3384+         L     HBR3,HCBUFSAV R3 = PTR TO START OF NIP BUFFER MCS0
00303A 1B43                        3385+         SR    HBR4,HBR3 R4 = BYTE COUNT FOR MOVE LESS 1 MCS0
00303C 5850 D417            06658  3386+         L     HBR5,HCBUFADR R5 = PTR TO START OF SP255 BUF  MCS0
003040 4184 5000            00000  3387+         LA    HBR8,Q0(HBR4,HBR5) R8 = PTR FOR NEXT MSG TO SP255  MCS0
003044 4144 0001            00001  3388+         LA    HBR4,Q1(HBR4) R4 = TOTAL BYTE COUNT FOR MOVE  MCS0
003048 45E0 B0E4            030FE  3389+         BAL   HBR14,IEASMOVR LINK TO MOVE MSG TEXT TO SP255  MCS0
00304C 5830 D417            06658  3390+         L     HBR3,HCBUFADR R3 = PTR TO SP255 BUFFER        MCS0
003050 5080 D417            06658  3391+         ST    HBR8,HCBUFADR SAVE PTR TO NEXT AVAILABLE BYTE MCS0
003054 5880 C647            05888  3392+         L     HBR8,ADCVUCM R8 = BASE FOR UCM BASE          MCS0
003058 5860 8014            00014  3393+         L     HBR6,UCMLSTP R6 = BASE FOR EIL               MCS0
00305C 5030 6004            00004  3394+         ST    HBR3,EILXA SET PTR IN EIL FOR COMM TASK    MCS0
003060 4A30 D423            06664  3395+         AH    HBR3,HCSPBUFS R3 = PTR TO END OF SP255 BUFFER MCS0
003064 5030 D41B            0665C  3396+         ST    HBR3,HCBUFLNT SAVE TO PREVENT BUFFER OVERFLOW MCS0
003068 47F0 B056            03070  3397+         B     HBREXIT BRANCH TO EXIT                  MCS0
00306C 9610 D52A      0676B        3398+HBRNCOR  OI    IEASWITB,HCPXSWIT SET NO HARDCOPY FUNCTION SWITCH MCS0
003070                             3399+HBREXIT  EQU   * MCS0
                                                                                                               PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3401+***
                                   3402+**  THIS ROUTINE RELOCATES THE LAST PORTION OF NIP TO LOWER CORE
                                   3403+**  ADJACENT TO THE SQS AREA AND RESOLVES NIP'S ADCONS. A BRANCH IS
                                   3404+**  MADE TO THE RELOCATED CODE
                                   3405+***
003070 5810 D24B            0648C  3406+         L     R1,RELOCADR R1 = NIP'S RELOCATION ADDR  MP65
003074 4120 0224            00224  3407+         LA    2,IEAADCON R 2 = SIZE OF AD CON TABLE
003078 4130 B116            03130  3408+         LA    3,IEALPAGO R 3 = PNTR TO START OF RELOC CODE
00307C 5030 D257            06498  3409+         ST    R3,IEAREG .         SAVE IT FOR COMPARE        CI A53025
003080 5840 D25F            064A0  3410+         L     R4,ADNIPEND R4 = PTR TO END OF NIP CODE     MCS0
003084 4150 B116            03130  3411+         LA    5,IEALPAGO R 5 = PNTR TO START OF RELOC CODE
003088 1B45                        3412+         SR    4,5 R 4 = SIZE OF CODE TO BE RELOCATED
00308A 4150 C3DF            05620  3413+         LA    R5,COMONAC R5=PTR TO ADCON TABLE            MCS0
00308E 4160 0004            00004  3414+         LA    6,4 R 6 = 4 BYTE LENGTH OF EACH ENTRY
003092 4570 B0B0            030CA  3415+         BAL   7,IEARLCTR RESET THE AD CONS
003096 9200 D529      0676A        3416+         MVI   BRANSW,X'00' RESET BRANCH SWITCH FOR NIP 5450 BH 59866
00309A 4120 0298            00298  3417+         LA    2,IEACCWSZ R 2 = SIZE OF CCW TABLE
00309E 4150 C667            058A8  3418+         LA    5,MSG1CCW R 5 = PNTR TO CCW TABLE
0030A2 4160 0008            00008  3419+         LA    6,8 R 6 = 8 BYTE LENGTH OF CCW ENTRY
0030A6 92F0 B0B1      030CB        3420+         MVI   IEARLCTR+1,X'F0' SET NOP TO BRANCH                  000C
0030AA 4570 B0B0            030CA  3421+         BAL   7,IEARLCTR RESET AD CONS WITHIN CCW'S
0030AE 1851                        3422+         LR    R5,R1 R5 = PNTR TO RELOCATION PT 000D
0030B0 94FE D534      06775        3423+         NI    IEASWITD,Q255-XCPBSWIT TURN BUFFER INIT ON        MCS0
0030B4 45E0 B0E4            030FE  3424+         BAL   R14,IEASMOVR LINK TO MOVE SUBROUTINE         MCS0
0030B8 18B1                        3425+         LR    R11,R1 PICK UP NEW OFFSETS             MCS0
0030BA 48C0 D637            06878  3426+         LH    R12,IEANUDP1 RE-ESTABLISH BASE REGS      000D
0030BE 41D0 0FFF            00FFF  3427+         LA    R13,IEANUDP2 FOR                       000D
0030C2 1AC1                        3428+         AR    R12,R1 MVT                     000D
0030C4 41DC D001            00001  3429+         LA    R13,1(R12,R13) RELOCATION            000D
0030C8 07F1                        3430+         BR    1 BRANCH TO RELOCATED CODE
0030CA 4700 B0C0            030DA  3431+IEARLCTR BC    0,IEACWCHN TEST ONLY CAW LIST FOR NON ADDR    000C
0030CE 1B88                        3432+         SR    8,8 CLEAR REG 8 FOR TEST               000C
0030D0 4385 0000            00000  3433+         IC    8,0(5) R 8 = FIRST BYTE OF THIS ENTRY     000C
0030D4 1288                        3434+         LTR   8,8 TEST IT FOR ZERO                   000C
0030D6 4770 B0D6            030F0  3435+         BC    7,IEASKPRR NON ZERO HENCE NOT AD CON          000C
0030DA 5885 0000            00000  3436+IEACWCHN L     8,0(5) R 8 = AD-CON FROM TABLE            000C
0030DE D502 5001 D258 00001 06499  3437+         CLC   Q1(Q3,R5),IEAREG+Q1 Q. ADDR BELOW RELOC CODE   CI A53025
0030E4 4740 B0D6            030F0  3438+         BL    IEASKPRR .          YES, DON'T ADJUST IT       CI A53025
0030E8 1B83                        3439+         SR    8,3 R 8 = DISPLACEMENT OF EFFECTIVE ADDRESS
0030EA 1A81                        3440+         AR    8,1 R 8 = NEW ADDRESS AFTER RELOCATION
0030EC 5085 0000            00000  3441+         ST    8,0(5) SET NEW ADDRESS BACK IN TABLE
0030F0 1A56                        3442+IEASKPRR AR    5,6 INCREMENT PNTR TO LIST             000C
0030F2 1B26                        3443+         SR    2,6 DECREMENT TABLE SIZE BY FACTOR
0030F4 5920 D28F            064D0  3444+         C     2,IEAZERO TEST FOR END OF TABLE
0030F8 4720 B0B0            030CA  3445+         BC    2,IEARLCTR NO MODIFY NEXT AD CON
0030FC 07F7                        3446+         BR    7 YES RETURN TO CALLER
0030FE                             3447+IEASMOVR EQU   * ENTRY TO MOVE TEXT SUBROUTINE   MCS0
0030FE 4160 0100            00100  3448+         LA    6,256 R 6 = BYTE COUNT PER MOVE
003102 4170 00FF            000FF  3449+         LA    7,255 R 7 = 256 BYTE EXECUTE
003106 4470 B10A            03124  3450+IEATRANS EX    7,IEAFRMTO MOVE 256 BYTES$0699
00310A 1A56                        3451+         AR    5,6 INCREMENT 'TO' ADDR BY 256
00310C 1A36                        3452+         AR    3,6 INCREMENT 'FROM' ADDR BY 256
00310E 1B46                        3453+         SR    4,6 DECREMENT REMAINDER BY 256
003110 1946                        3454+         CR    4,6 TEST FOR ANOTHER 256 BLOCK
003112 47B0 B0EC            03106  3455+         BC    11,IEATRANS YES MOVE IT
                                                                                                               PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003116 1244                        3456+         LTR   4,4 NO TEST FOR EVEN 256
003118 4780 B108            03122  3457+         BC    8,IEANOXTR YES DON'T MOVE ANY MORE
00311C 0640                        3458+         BCTR  4,0 DECREMENT SIZE BY ONE
00311E 4440 B10A            03124  3459+         EX    4,IEAFRMTO NO MOVE REMAINING BYTES
003122 07FE                        3460+IEANOXTR BR    R14 RETURN TO CALLER                MCS0
003124 D200 5000 3000 00000 00000  3461+IEAFRMTO MVC   0(0,5),0(3) MOVE TEXT INSTRUCTION
                                                                                                               PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003130                             3463+         DS    0D
003130                             3464+IEALPAGO EQU   *
003130                             3465+         USING *,11 000C
003130 5810 0010            00010  3466+         L     1,16
003134 5811 0094            00094  3467+         L     1,148(1)
003138 91FF D67D      068BE        3468+         TM    IEAMINDL,X'FF'
00313C 4740 B02C            0315C  3469+         BC    4,IEANOMIN
003140 9540 D657      06898        3470+         CLI   IEAMINLS,C' '
003144 4780 B024            03154  3471+         BE    IEASGMIN
003148 5820 D657            06898  3472+         L     2,IEAMINLS
00314C 4021 0026            00026  3473+         STH   2,38(1)
003150 47F0 B02C            0315C  3474+         B     IEANOMIN
003154 4120 0044            00044  3475+IEASGMIN LA    2,IEAMIN
003158 4021 0026            00026  3476+         STH   2,38(1)
00315C                             3477+IEANOMIN EQU   * A21606
00315C 91FF D67E      068BF        3478+         TM    IEAQBFDL,X'FF' A21606
003160 4740 B050            03180  3479+         BC    4,IEANOQBF
003164 9540 D65F      068A0        3480+         CLI   IEAQBFLS,C' '
003168 4780 B048            03178  3481+         BE    IEASGQBF
00316C 5820 D65F            068A0  3482+         L     2,IEAQBFLS
003170 4221 0021            00021  3483+         STC   2,33(1)
003174 47F0 B050            03180  3484+         B     IEANOQBF
003178 4120 000A            0000A  3485+IEASGQBF LA    2,IEAQBF
00317C 4221 0021            00021  3486+         STC   2,33(1)
003180                             3487+IEANOQBF EQU   *
                                                                                                               PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003180 1B11                        3489+         SR    1,1
003182 5010 D7EB            06A2C  3490+         ST    1,ISVLIBA SET DCB PNTR TO ZERO
003186 D20B CA65 DA12 05CA6 06C53  3491+         MVC   SLIBNM(L'IEALNKNM),IEALNKNM SET LIB NAME IN MSG    MCS0
00318C 4170 D53F            06780  3492+         LA    7,IEALISTK R 7 = PNTR TO LIST OF MODULES
003190 4160 0070            00070  3493+         LA    6,IEALENGT R 6 = LENGTH OF LIST
003194 4120 0008            00008  3494+         LA    2,8 R 2 = LENGTH OF EACH ENTRY
003198 5960 D28F            064D0  3495+IEAMS1LD C     6,IEAZERO TEST FOR END OF LIST
00319C 47D0 B0D8            03208  3496+         BC    13,IEASVLPA
0031A0 D207 D7B7 7000 069F8 00000  3497+         MVC   LOADNAME(8),0(7) NO SET NEXT NAME IN LOAD BUF
0031A6 4177 0008            00008  3498+         LA    7,8(7) INCREMENT LIST PNTR
0031AA 1B62                        3499+         SR    6,2 DECREMENT LIST SIZE
0031AC D207 D68F D7B7 068D0 069F8  3500+         MVC   SVNAM(8),LOADNAME SET NAME IN BLDL LIST
0031B2 5810 D7EB            06A2C  3501+         L     1,ISVLIBA R 1 = PNTR TO DCB
0031B6 4100 D68B            068CC  3502+         LA    0,SVLST R 0 = PNTR TO LIST
0031BA 4111 0000            00000  3503+         LA    1,0(1)
0031BE 0A12                        3504+         SVC   18 LINK TO BLDL ROUTINE
0031C0 12FF                        3505+         LTR   15,15 TEST FOR MODULE FOUND
0031C2 4770 B0C4            031F4  3506+         BC    7,IEANOLPA NO WRITE ERROR MESSAGE
0031C6 41F0 D68F            068D0  3507+         LA    15,SVNAM
0031CA 96C0 F016      00016        3508+         OI    22(15),X'C0'
0031CE 1BFF                        3509+         SR    15,15
0031D0 5810 D7EB            06A2C  3510+         L     1,ISVLIBA R 1 = PNTR TO DCB
0031D4                             3511+         CNOP  0,4
0031D4 4100 D68F            068D0  3512+LOAD4H0  LA    0,SVNAM LOAD PARAMETER INTO REGISTER ZERO
0031D8 4111 0000            00000  3513+         LA    1,0(R1) LOAD ADDR. OF DCB INTO REG. ONE
0031DC 5610 B0B4            031E4  3514+         O     1,*+8 INSERT HIARCHY PARAMETER
0031E0 47F0 B0B8            031E8  3515+         B     *+8 BRANCH AROUND CONSTANT(S)
0031E4 01000000                    3516+         DC    X'01000000' HIARCHY ZERO SPECIFIED
0031E8 1100                        3517+         LNR   0,0 LOAD NEGITIVE OF REG. ZERO TO INDICATE DE
0031EA 0A08                        3518+         SVC   8 ISSUE LOAD SVC
0031EC 92FF D7E6      06A27        3519+IEALD4SW MVI   IEALODED,X'FF' 000E
0031F0 47F0 B068            03198  3520+         B     IEAMS1LD CONTINUE STANDARD LIST
0031F4                             3521+IEANOLPA EQU   * MCS0
0031F4 D207 CA4F D68F 05C90 068D0  3522+         MVC   SMBNAM(8),SVNAM SET MODULE NAME IN MSG
0031FA D203 0048 C54F 00048 05790  3523+         MVC   72(4),WARNING SET CAW TO PRINT MSG
003200 4550 C285            054C6  3524+         BAL   R5,IEACONSL WRITE ERROR MSG               MCS0
003204 47F0 B068            03198  3525+         B     IEAMS1LD GET NEXT NAME
003208 4700 B100            03230  3526+IEASVLPA BC    0,IEARMLDR
00320C 5810 0010            00010  3527+         L     1,16
003210 5811 0054            00054  3528+         L     1,CVTSVDCB(1)
003214 5010 D7EB            06A2C  3529+         ST    1,ISVLIBA
003218 D20A CA65 DA07 05CA6 06C48  3530+         MVC   SLIBNM(L'IEASVCNM),IEASVCNM SET LIB NAME IN MSG    MCS0
00321E D200 CA70 DA35 05CB1 06C76  3531+         MVC   SLIBNM+L'IEASVCNM(L'SLIBNM-L'IEASVCNM),IEABLNCS MCS0
003224 4160 0088            00088  3532+         LA    6,IEALENGS
003228 92F0 B0D9      03209        3533+         MVI   IEASVLPA+1,X'F0'
00322C 47F0 B068            03198  3534+         B     IEAMS1LD
                                                                                                               PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3536+***
                                   3537+**  THIS ROUTINE LOADS MODULES INTO LOWER CORE AT THE END OF THE
                                   3538+**  NUCLEUS. THE MODULES LOADED ARE BASED ON A LIST ON THE        30105
                                   3539+**  SYS1.PARMLIB DATA SET. THE BOUNDARIES ARE THEN ADJUSTED AND   30105
                                   3540+**  THE MODULES BECOME PART OF THE RESIDENT NUCLEUS.              30105
                                   3541+***
003230 9640 D52A      0676B        3542+IEARMLDR OI    IEASWITB,LSTXSWIT SET EXCLUDE LIST SWITCH           MCS0
003234 91FF D7D1      06A12        3543+         TM    IEARAMLL,Q255 MCS0
003238 4740 B3FC            0352C  3544+         BC    4,IEAENDRM
00323C 9102 D52A      0676B        3545+         TM    IEASWITB,RAMXSWIT TEST FOR RAM INOPERATIVE    000E
003240 4710 B3FC            0352C  3546+         BO    IEAENDRM YES, SKIP RAM ROUTINE       MXMV
003244 1B66                        3547+IEARMLOP SR    R6,R6 CLEAR REG 6                     LPA0
003246 D207 D8D3 D7BF 06B14 06A00  3548+         MVC   ERDNAMES(8),IEARAMNM SET RAM NAME FOR SEARCH
00324C D501 D7C7 DA35 06A08 06C76  3549+         CLC   IEARAMLS(2),IEABLNCS TEST FOR SUFFIX REQUESTED
003252 4780 B12C            0325C  3550+         BE    IEASOFIX+6 NO-USE STANDARD LIST NAME
003256 D201 D8D9 D7C7 06B1A 06A08  3551+IEASOFIX MVC   ERDNAMES+6(2),IEARAMLS YES-APPEND SUFFIX TO NAME
00325C 4130 B2B8            033E8  3552+IEAMULTX LA    3,IEAONDCE R 3 = RETURN IF BLANKS
003260 4140 B3D4            03504  3553+         LA    4,IEAINPBD SET R4 FOR BAD INPUT LIST
003264 D20B CA65 DA29 05CA6 06C6A  3554+         MVC   SLIBNM(12),IEAPRCNM SET PROCLIB NAME IN MSG
00326A 4180 B446            03576  3555+         LA    8,IEAMULTI R 8 = PNTR TO MULTI LIST RTN
00326E 4590 C0AB            052EC  3556+         BAL   9,IEAGETXT GET 1ST LIST RECORD
003272 5010 D7EB            06A2C  3557+         ST    1,ISVLIBA SAVE DCB PNTR FOR THIS LIB
003276                             3558+IEAHDRDR EQU   * 19017
003276 91F0 B497      035C7        3559+         TM    ROUNDRAM+1,X'F0' DID WE COME FROM RSVC'S        19017
00327A 4710 B2E8            03418  3560+         BC    1,IEASVCHD YES-TEST FOR LIST REQUIRED     19017
00327E 91FF D7D1      06A12        3561+         TM    IEARAMLL,X'FF' TEST FOR RAM LIST REQUIRED     19017
003282 47E0 B16C            0329C  3562+         BC    14,IEACLREM NO- DO NOT PRINT LIST
003286 4700 B16C            0329C  3563+IEAMULTW BC    0,IEACLREM PRINT RAM HEADING ONLY ONCE
00328A 92F0 B157      03287        3564+         MVI   IEAMULTW+1,X'F0' BRANCH NEXT TIME
00328E 9240 CB6B      05DAC        3565+         MVI   HDRNAME+3,C' ' CLEAR FUNCTION NAME FIELD
003292 D202 CB68 D864 05DA9 06AA5  3566+         MVC   HDRNAME(3),IEARAM+1 SET RAM IN FUNCTION NAME
003298 4590 C2C3            05504  3567+IEAHDPRT BAL   9,HDRPRINT PRINT LIST HEADING
00329C D207 D7B7 DA35 069F8 06C76  3568+IEACLREM MVC   LOADNAME(8),IEABLNCS CLEAR LOAD NAME FIELD
0032A2 4150 D7B7            069F8  3569+         LA    5,LOADNAME R 5 = PNTR TO MODULE NAME
0032A6 41F5 0008            00008  3570+         LA    15,8(5) R15 = PNTR TO LOAD NAME + 8
0032AA 195F                        3571+IEATRNFR CR    5,15 TEST FOR 8 CHARS MOVED
0032AC 47B0 B1AA            032DA  3572+         BNL   IEANOUGH YES TEST FOR COMMA
0032B0 956B 7000      00000        3573+         CLI   0(7),C',' TEST FOR END OF MEMBER
0032B4 4780 B1BE            032EE  3574+         BE    IEAONDMB YES-LOAD THIS MODULE
0032B8 9540 7000      00000        3575+         CLI   0(7),C' ' NO-TEST FOR LAST MODULE NAME
0032BC 4780 B1BE            032EE  3576+         BE    IEAONDMB YES LOAD THIS MODULE
0032C0 D200 5000 7000 00000 00000  3577+         MVC   0(1,5),0(7) NO-MOVE MORE CHARACTERS
0032C6 4155 0001            00001  3578+         LA    5,1(5) OF MODULE NAME FROM
0032CA 4177 0001            00001  3579+         LA    7,1(7) RECD TO LOAD NAME FIELD
0032CE 5970 C543            05784  3580+         C     7,IEALMT TEST FOR END OF RECORD
0032D2 47B0 B1BE            032EE  3581+         BNL   IEAONDMB YES- LOAD LAST MODULE
0032D6 47F0 B17A            032AA  3582+         B     IEATRNFR NO- CONTINUE TO MOVE
0032DA 956B 7000      00000        3583+IEANOUGH CLI   0(7),C',' TEST FOR COMMA DELIMITER
0032DE 4780 B1BE            032EE  3584+         BE    IEAONDMB YES LOAD THIS MODULE
0032E2 9540 7000      00000        3585+         CLI   0(7),C' ' TEST FOR BLANK DELIMITER
0032E6 4780 B1BE            032EE  3586+         BE    IEAONDMB YES LOAD THIS MODULE
0032EA 47F0 B3D4            03504  3587+         B     IEAINPBD NO NAME TOO LONG
0032EE                             3588+IEAONDMB EQU   * 19017
0032EE 91F0 B497      035C7        3589+         TM    ROUNDRAM+1,X'F0' DID WE COME FROM RSVC'S        19017
0032F2 4710 B302            03432  3590+         BC    1,IEASVCMB YES-TEST SVC TYPE              19017
                                                                                                               PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0032F6 91FF D7D1      06A12        3591+         TM    IEARAMLL,X'FF' TEST FOR RAM LIST REQUIRED     19017
0032FA 47E0 B1D8            03308  3592+         BC    14,NOLIST NO-DO NOT PRINT NAME
0032FE D207 D84F D7B7 06A90 069F8  3593+         MVC   IEAMBNM(8),LOADNAME YES-MOVE NAME TO MSG
003304 4590 C2EF            05530  3594+         BAL   9,IEAPRNTM AND WRITE NAME ON CONSOLE
003308                             3595+NOLIST   EQU   * 19017
003308 91F0 B497      035C7        3596+         TM    ROUNDRAM+1,X'F0' DID WE COME FROM RSVC'S        19017
00330C 47E0 B1F0            03320  3597+         BC    14,NOLIST2 NO-RAM                         19017
003310 91FF D7E8      06A29        3598+         TM    IEANOTLD,X'FF' LOAD SVC RTN
003314 47E0 B1F0            03320  3599+         BC    14,NOLIST2 YES
003318 9200 D7E8      06A29        3600+         MVI   IEANOTLD,X'00' RESET
00331C 47F0 B28C            033BC  3601+         B     IEAAFTER GO FOR MORE
003320                             3602+NOLIST2  EQU   * 19017
003320 5810 D7EB            06A2C  3603+         L     R1,ISVLIBA R1=DCB POINTER                 19017
003324 D207 D68F D7B7 068D0 069F8  3604+         MVC   SVNAM(8),LOADNAME SET MODULE NAME FOR BLDL
00332A 4100 D68B            068CC  3605+         LA    0,SVLST R 0 = PNTR TO LIST FOR BLDL
00332E 4111 0000            00000  3606+         LA    1,0(1)
003332 0A12                        3607+         SVC   18 LINK TO BLDL ROUTINE
003334 12FF                        3608+         LTR   15,15 TEST FOR GOOD BLDL
003336 4770 B2C4            033F4  3609+         BC    7,IEANOLOD NO PRINT ERROR MESSAGE
00333A 41F0 D68F            068D0  3610+         LA    15,SVNAM
00333E 96C0 F016      00016        3611+         OI    22(15),X'C0'
003342 1BFF                        3612+         SR    15,15
003344 5810 D7EB            06A2C  3613+         L     1,ISVLIBA R 1 = PNTR TO DCB
003348                             3614+         CNOP  0,4
003348 4100 D68F            068D0  3615+LOADH0   LA    0,SVNAM LOAD PARAMETER INTO REGISTER ZERO
00334C 4111 0000            00000  3616+         LA    1,0(R1) LOAD ADDR. OF DCB INTO REG. ONE
003350 5610 B228            03358  3617+         O     1,*+8 INSERT HIARCHY PARAMETER
003354 47F0 B22C            0335C  3618+         B     *+8 BRANCH AROUND CONSTANT(S)
003358 01000000                    3619+         DC    X'01000000' HIARCHY ZERO SPECIFIED
00335C 1100                        3620+         LNR   0,0 LOAD NEGITIVE OF REG. ZERO TO INDICATE DE
00335E 0A08                        3621+         SVC   8 ISSUE LOAD SVC
003360 1200                        3622+IEALDSW  LTR   R0,R0 TEST FOR SUCCESSFUL LOAD    000E
003362 4780 B2C4            033F4  3623+         BZ    IEANOLOD NO, BRANCH TO WTO ERROR MSG 000E
003366 92FF D7E6      06A27        3624+         MVI   IEALODED,X'FF' SET MODULE LOADED SWITCH    000E
00336A 91F0 B497      035C7        3625+         TM    ROUNDRAM+1,X'F0' TEST FOR SVC LOADING
00336E 4710 B260            03390  3626+         BC    1,IEANTRMV YES SKIP MINPART INIT
003372 D507 D7B7 D23F 069F8 06480  3627+         CLC   LOADNAME(8),IEATERMV RAM LOADING TEST FOR TERMINATE
003378 4770 B260            03390  3628+         BNE   IEANTRMV NOT TERMINATE NO CHANGE
00337C 5820 0010            00010  3629+         L     2,16 R 2 = PNTR TO CVT
003380 5822 0094            00094  3630+         L     2,148(2) R 2 = PNTR TO MINPART MODULE
003384 4862 0026            00026  3631+         LH    6,38(2) R 6 = SIZE OF MINPART
003388 4B60 D2DB            0651C  3632+         SH    6,TERMCONS SUBTRACT CONSTANT
00338C 4062 0028            00028  3633+         STH   6,40(2) SAVE RESULT FOR SMALLER PARTITION
003390                             3634+IEANTRMV EQU   *
003390 91F0 B4D7      03607        3635+         TM    ROUNDSVC+1,X'F0' ARE WE FROM SVC                19017
003394 4710 B28C            033BC  3636+         BC    1,IEAAFTER NO-SKIP RSVC CODE              19017
003398 91F0 B497      035C7        3637+         TM    ROUNDRAM+1,X'F0'
00339C 47E0 B28C            033BC  3638+         BC    14,IEAAFTER
0033A0 91FF D7E7      06A28        3639+         TM    FIRSTLOD,X'FF'
0033A4 4710 B27C            033AC  3640+         BC    1,IEA1STLD THIS IS A FIRST LOAD
0033A8 47F0 B28C            033BC  3641+         B     IEAAFTER
0033AC 9200 D7E7      06A28        3642+IEA1STLD MVI   FIRSTLOD,X'00'
0033B0 5860 D817            06A58  3643+         L     6,IEANONRS
0033B4 5006 0000            00000  3644+         ST    0,0(6)
0033B8 9280 6000      00000        3645+         MVI   0(6),X'80'
                                                                                                               PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0033BC 9540 7000      00000        3646+IEAAFTER CLI   0(7),C' ' TEST FOR END OF RCD NAMES
0033C0 4780 B2A8            033D8  3647+         BE    IEAONDCD YES-TEST FOR CONTINUATION
0033C4 4177 0001            00001  3648+         LA    7,1(7) NO-TEST FOR TRAILING COMMA
0033C8 9540 7000      00000        3649+         CLI   0(7),C' ' TO TEST LAST NAME OF RCD
0033CC 4780 B2A8            033D8  3650+         BE    IEAONDCD YES-TEST FOR CONTINUATION
0033D0 5970 C543            05784  3651+         C     7,IEALMT NO-TEST FOR END OF RECORD
0033D4 4740 B16C            0329C  3652+         BL    IEACLREM NO-GET NEXT MODULE NAME
0033D8 9540 D03E      0627F        3653+IEAONDCD CLI   IEABUFER+71,C' ' TEST FOR CONTINUATION
0033DC 4780 B446            03576  3654+         BE    IEAMULTI TEST FOR MULTI LISTS SPECFD
0033E0 4590 C0B3            052F4  3655+         BAL   9,IEAGETLS YES-READ NEXT RCD OF LIST
0033E4 47F0 B16C            0329C  3656+         B     IEACLREM GET NEXT MODULE NAME
0033E8 9540 D03E      0627F        3657+IEAONDCE CLI   IEABUFER+71,C' ' TEST FOR CONTINUATION
0033EC 4780 B446            03576  3658+         BE    IEAMULTI TEST FOR MULTI LISTS SPECFD
0033F0 47F0 C0B3            052F4  3659+         B     IEAGETLS YES READ NEXT RECORD
0033F4 48A0 D2DF            06520  3660+IEANOLOD LH    10,IEAUNIT R10 = PNTR TO SYSTEM CONSOLE
0033F8 9200 D7E7      06A28        3661+         MVI   FIRSTLOD,X'00'
0033FC D207 CAFF D7B7 05D40 069F8  3662+         MVC   NLMEMBER(8),LOADNAME SET NAME OF FAILING MODULE IN
003402 D203 0048 C52F 00048 05770  3663+         MVC   72(4),IEANLCAW MESSAGE AND SET CAW
003408 94BF D52A      0676B        3664+         NI    IEASWITB,255-LSTXSWIT ALLOW HC OF MESSAGES          MCS0
00340C 4550 C285            054C6  3665+         BAL   R5,IEACONSL WRITE LOAD FAILED MESSAGE             MCS0
003410 9640 D52A      0676B        3666+         OI    IEASWITB,LSTXSWIT SET EXCLUDE LIST SWITCH           MCS0
003414 47F0 B28C            033BC  3667+         B     IEAAFTER THEN CONTINUE RAM ROUTINE
003418 91FF D823      06A64        3668+IEASVCHD TM    IEASVCLL,X'FF' TEST FOR LIST REQUESTED         23050
00341C 47E0 B16C            0329C  3669+         BC    14,IEACLREM NO, DO NOT PRINT LIST
003420 4700 B16C            0329C  3670+IEAMULTV BC    0,IEACLREM PRINT RSVC HEADING ONLY ONCE
003424 92F0 B2F1      03421        3671+         MVI   IEAMULTV+1,X'F0' BRANCH NEXT TIME
003428 D203 CB68 D89A 05DA9 06ADB  3672+         MVC   HDRNAME(4),IEASVC+1
00342E 47F0 B168            03298  3673+         B     IEAHDPRT GO TO PRINT LIST HEADING
003432 D504 D6D1 D7B7 06912 069F8  3674+IEASVCMB CLC   SVNAMR(5),LOADNAME
003438 4780 B310            03440  3675+         BE    IEASVCMC YES, I.E. NAME = IGC00
00343C 47F0 B35A            0348A  3676+         B     IEASVCMD TEST FOR LIST SPECIFIED
003440                             3677+IEASVCMC EQU   *
003440 9540 D7BE      069FF        3678+         CLI   LOADNAME+7,X'40' .  Q. WE HAVE A SHORT NAME     CF P2171
003444 4780 B3D4            03504  3679+         BE    IEAINPBD .          YES. GO ISSUE INVALID MSG.  CF P2171
003448 D203 D6C7 D28F 06908 064D0  3680+         MVC   SVWA1(4),IEAZERO .  CLEAR FIRST FOUR BYTES      CF P2171
00344E D203 D6CB D7BB 0690C 069FC  3681+         MVC   SVWA1+4(4),LOADNAME+4
003454 F233 D6CB D6CB 0690C 0690C  3682+         PACK  SVWA1+4(4),SVWA1+4(4) PACK SVC NUMBER
00345A 4F50 D6C7            06908  3683+         CVB   5,SVWA1 BINARY SVC NUMBER
00345E 5860 C62F            05870  3684+         L     6,SVCTAB
003462 5890 C633            05874  3685+         L     9,XUSERORG
003466 1B96                        3686+         SR    9,6
003468 8A90 0002            00002  3687+         SRA   9,2
00346C 1959                        3688+         CR    5,9 TEST FOR IBM VS USER PROVIDED
00346E 47A0 B370            034A0  3689+         BC    10,USRRSVC USER PROVIDED - COMPUTE INDEX
003472 8B50 0002            00002  3690+IEARESPR SLA   5,2
003476 5A50 C62F            05870  3691+         A     5,SVCTAB
00347A 9140 5000      00000        3692+         TM    0(5),X'40'
00347E 4780 B3CC            034FC  3693+         BC    8,IEASVRES
003482 5050 D817            06A58  3694+         ST    5,IEANONRS SAVE IT
003486 92FF D7E7      06A28        3695+         MVI   FIRSTLOD,X'FF' SET SWITCH=TYPE 3 OR 1ST OF TYPE 4
00348A 91FF D823      06A64        3696+IEASVCMD TM    IEASVCLL,X'FF' TEST FOR LIST REQUESTED
00348E 47E0 B1D8            03308  3697+         BC    14,NOLIST NO, SKIP LIST
003492 D207 D84F D7B7 06A90 069F8  3698+         MVC   IEAMBNM(8),LOADNAME MOVE NAME TO MESSAGE
003498 4590 C2EF            05530  3699+         BAL   9,IEAPRNTM PRINT NAME
00349C 47F0 B1D8            03308  3700+         B     NOLIST CONTINUE
                                                                                                               PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0034A0 4160 00FF            000FF  3701+USRRSVC  LA    6,255 R 6 = LOW USER SVC
0034A4 1956                        3702+         CR    5,6 TEST FOR SVC TOO LARGE
0034A6 4720 B38C            034BC  3703+         BC    2,IEANOSUP TOO LARGE - NOT SUPPORTED
0034AA 4166 0001            00001  3704+         LA    6,1(6) R 6 = 256
0034AE 1B65                        3705+         SR    6,5 R 6 = DECREMENT FOR TOTAL
0034B0 5890 D63F            06880  3706+         L     9,SVCEXTNT
0034B4 1B96                        3707+         SR    9,6 R 9 = INDEX FOR SVCTABLE
0034B6 1859                        3708+         LR    5,9 R 5 = SAME
0034B8 47F0 B342            03472  3709+         B     IEARESPR CONTINUE AS WITH IBM SVC'S
0034BC D203 0048 C557 00048 05798  3710+IEANOSUP MVC   72(4),NOSUPCAW SET UP CAW
0034C2 D202 CD14 D7BC 05F55 069FD  3711+         MVC   SVCNM(3),LOADNAME+5
0034C8 94BF D52A      0676B        3712+         NI    IEASWITB,255-LSTXSWIT ALLOW HC OF MESSAGES          MCS0
0034CC 4550 C285            054C6  3713+         BAL   R5,IEACONSL PRINT IT                        MCS0
0034D0 9640 D52A      0676B        3714+         OI    IEASWITB,LSTXSWIT SET EXCLUDE LIST SWITCH           MCS0
0034D4 92FF D7E8      06A29        3715+         MVI   IEANOTLD,X'FF' SET NO LOAD
0034D8 47F0 B1D8            03308  3716+         B     NOLIST RETURN
0034DC D203 0048 C55B 00048 0579C  3717+IEANODEF MVC   72(4),NODEFCAW SET UP CAW
0034E2 D202 CD32 D7BC 05F73 069FD  3718+         MVC   SVCNM2(3),LOADNAME+5
0034E8 94BF D52A      0676B        3719+         NI    IEASWITB,255-LSTXSWIT ALLOW HC OF MESSAGES          MCS0
0034EC 4550 C285            054C6  3720+         BAL   R5,IEACONSL PRINT IT                        MCS0
0034F0 9640 D52A      0676B        3721+         OI    IEASWITB,LSTXSWIT SET EXCLUDE LIST SWITCH           MCS0
0034F4 92FF D7E8      06A29        3722+         MVI   IEANOTLD,X'FF' SET NO LOAD
0034F8 47F0 B1D8            03308  3723+         B     NOLIST RETURN
0034FC 92FF D7E8      06A29        3724+IEASVRES MVI   IEANOTLD,X'FF' SET NO LOAD
003500 47F0 B35A            0348A  3725+         B     IEASVCMD
003504                             3726+IEAINPBD EQU   * 19017
003504 91F0 B497      035C7        3727+         TM    ROUNDRAM+1,X'F0' DID WE COME FROM RSVC'S        19017
003508 47E0 B3E6            03516  3728+         BC    14,IEAINPBC NO
00350C D203 CB4A D89A 05D8B 06ADB  3729+         MVC   FUNCNAME(4),IEASVC+1
003512 47F0 B3EC            0351C  3730+         B     IEAINPBC+6
003516 D202 CB4A D864 05D8B 06AA5  3731+IEAINPBC MVC   FUNCNAME(Q3),IEARAM+1 SET RAM IN ERROR MSG         19017
00351C 94BF D52A      0676B        3732+         NI    IEASWITB,255-LSTXSWIT ALLOW HC OF MESSAGES          MCS0
003520 4590 C2CF            05510  3733+         BAL   9,INPTBAD AND WRITE INVALID LIST MSG
003524 9640 D52A      0676B        3734+         OI    IEASWITB,LSTXSWIT SET EXCLUDE LIST SWITCH           MCS0
003528 47F0 B446            03576  3735+         B     IEAMULTI TEST FOR MULTI LISTS SPECFD
00352C                             3736+IEAENDRM EQU   * 19017
00352C 91F0 B497      035C7        3737+         TM    ROUNDRAM+1,X'F0' DID WE COME FROM RSVC'S        19017
003530 47E0 B40C            0353C  3738+         BC    14,IEAENDRO NO
003534 5860 C627            05868  3739+         L     6,IEASVC1
003538 47F0 B410            03540  3740+IEACHND  B     IEAENDRO+4 ADJUST THE  BOUNDARIES
00353C 5860 C61F            05860  3741+IEAENDRO L     6,IEARAM1
003540 5890 C60F            05850  3742+         L     9,IEATOPCB R 9 = PNTR TO TCB
003544 5879 002C            0002C  3743+         L     7,44(9) R 7 = PNTR TO LOAD LIST
003548 8970 0008            00008  3744+         SLL   7,8 CLEAR UPPERMOST BYTE
00354C 8870 0008            00008  3745+         SRL   7,8 TO ZEROS
003550 5076 0000            00000  3746+         ST    7,0(6) PASS LIST PNTR TO EXTRN
003554 1B55                        3747+         SR    5,5 CLEAR REG 5
003556 5059 002C            0002C  3748+         ST    5,44(9) ZERO TCB+44
00355A 8970 0008            00008  3749+IEACDID  SLL   7,8 CLEAR FLAG BYTE
00355E 8870 0008            00008  3750+         SRL   7,8 BY REGISTER SHIFT
003562 1277                        3751+         LTR   7,7 AND TEST FOR ZERO
003564 4780 B496            035C6  3752+         BC    8,ROUNDRAM YES LPA LOADING IS COMPLETE
003568 1887                        3753+         LR    8,7 NO R 8 = PNTR TO CD ENTRY
00356A 5877 0000            00000  3754+         L     7,0(7) R 7 = PNTR TO NEXT CD ENTRY
00356E 9680 8000      00000        3755+         OI    0(8),X'80' TURN BIT ONE ON FOR THIS CD
                                                                                                               PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003572 47F0 B42A            0355A  3756+         B     IEACDID CONTINUE SETTING BITS
003576 5850 D677            068B8  3757+IEAMULTI L     5,IEALSTCT R 5 = COUNT OF LIST ENTRIES
00357A 4155 0001            00001  3758+         LA    5,1(5) INCREMENT COUNT
00357E 5050 D677            068B8  3759+         ST    5,IEALSTCT SAVE UPDATED COUNT
003582 9200 D8B0      06AF1        3760+         MVI   IEASETL,X'00' RESET LIB FOUND SWITCH
003586 5950 D77B            069BC  3761+         C     5,IEAFOURT TEST FOR FOUR ENTRIES DONE
00358A 47B0 B48A            035BA  3762+         BNL   IEAMULTT YES STOP LOADING
00358E 8950 0001            00001  3763+         SLL   5,1 MULT BY 2 FOR INDEXING
003592                             3764+IEAMULTR EQU   * .                                            CI A50571
003592 91F0 B497      035C7        3765+         TM    ROUNDRAM+1,X'F0' TEST FOR SVC LOADING
003596 47E0 B472            035A2  3766+         BC    14,IEAMULTJ NO PICK UP RAM PNTR
00359A 4190 D83F            06A80  3767+         LA    9,IEASVCLS R 9 = PNTR TO SUFFIX BUFFER
00359E 47F0 B476            035A6  3768+         B     IEAMULTJ+4 BRANCH AROUND RAM PNTR
0035A2 4190 D7C7            06A08  3769+IEAMULTJ LA    9,IEARAMLS R 9 = PNTR TO SUFFIX BUFFER
0035A6                             3770+IEAMULTK EQU   * .                                            CI A50571
0035A6 4855 9000            00000  3771+         LH    5,0(5,9) R 5 = SUFFIX VALUE
0035AA 4950 DA35            06C76  3772+         CH    5,IEABLNCS TEST FOR MORE SUFFIXES
0035AE 4780 B48A            035BA  3773+         BE    IEAMULTT NO STOP LOADING
0035B2 4050 D8D9            06B1A  3774+         STH   5,ERDNAMES+6 YES APPEND THE SUFFIX
0035B6 47F0 B12C            0325C  3775+         B     IEAMULTX RETURN TO LOAD MORE
0035BA 91FF D7E6      06A27        3776+IEAMULTT TM    IEALODED,X'FF' TEST FOR A MODULE LOADED
0035BE 4710 B3FC            0352C  3777+         BC    1,IEAENDRM AT LEAST ONE ADJUST BOUNDRYS
0035C2 47F0 B496            035C6  3778+         B     ROUNDRAM ALL LOADING FAILED BRANCH
0035C6                             3779+ROUNDRAM EQU   * 19017
0035C6 4700 B4D6            03606  3780+         BC    0,ROUNDSVC 19017
0035CA 9200 D8B0      06AF1        3781+         MVI   IEASETL,X'00' TURN OFF LIB FOUND SWITCH
0035CE 92F0 B497      035C7        3782+         MVI   ROUNDRAM+1,X'F0' SET NOP TO BR FOR 2ND PASS
0035D2 91FF D823      06A64        3783+         TM    IEASVCLL,X'FF' TEST FOR NULL CASE REQUESTED
0035D6 4740 B4D6            03606  3784+         BC    4,ROUNDSVC
0035DA 9104 D52A      0676B        3785+         TM    IEASWITB,RSVXSWIT TEST FOR RSVC INOPERATIVE   000E
0035DE 4710 B4D6            03606  3786+         BO    ROUNDSVC YES,SKIP ROUTINE           000E
0035E2 D207 D8D3 D824 06B14 06A65  3787+         MVC   ERDNAMES(8),IEARSVNM
0035E8 9200 D7E6      06A27        3788+         MVI   IEALODED,X'00' CLEAR LOADED SWITCH
0035EC D203 D677 D28F 068B8 064D0  3789+         MVC   IEALSTCT(4),IEAZERO CLEAR MULTI LIST COUNTER
0035F2 D501 D83F DA35 06A80 06C76  3790+         CLC   IEASVCLS(2),IEABLNCS TEST FOR SUFFIX REQUESTED
0035F8 4780 B12C            0325C  3791+         BE    IEASOFIX+6 NO, USE STANDARD LIST NAME
0035FC D201 D8D9 D83F 06B1A 06A80  3792+         MVC   ERDNAMES+6(2),IEASVCLS YES, APPEND SUFFIX TO NAME
003602 47F0 B12C            0325C  3793+         B     IEASOFIX+6 GO TO EXECUTE NORMAL ROUTINE
003606                             3794+ROUNDSVC EQU   * 19017
003606                             3795+ROUNDERP EQU   * 19017
003606 94BF D52A      0676B        3796+         NI    IEASWITB,255-LSTXSWIT ALLOW HC OF MESSAGES          MCS0
                                                                                                               PAGE   91


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00360A 05B0                        3798+         BALR  R11,R0 ESTABILSH ADDRESSABILITY              MCS0
00360C                             3799+         USING *,R11 FOR HC                                MCS0
                                                                                                               PAGE   92


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3801+***
                                   3802+**  THIS IS THE FINAL STORAGE INITIALIZATION ROUTINE FOLLOWED BY
                                   3803+**  A BRANCH TO THE SCHEDULER. THE SIZE OF LPA IS ROUNDED DOWN TO
                                   3804+**  A 2K BOUNDARY, THE MS PARTITION IS ALLOCATED JUST BELOW IT, AND
                                   3805+**  FREE SPACE IS DESIGNATED FROM THE TOP OF SQS TO THE LOWER END
                                   3806+**  OF THE MS PARTITION.
                                   3807+***
00360C 5820 D21B            0645C  3808+         L     2,IEADMY R 2 = PNTR TO PQE1
003610 5850 C617            05858  3809+         L     5,IEAGOVRF R 5 = PNTR TO MS1 EXTRN
003614 5840 D643            06884  3810+         L     4,IEAFBQEA R 4 = PNTR TO FBQE
003618 91FF D67C      068BD        3811+         TM    IEAM2KDL,X'FF' TEST FOR NULL OPTION
00361C 4740 B31A            03926  3812+         BC    4,IEADFLTR YES GET DEFAULT MS SIZE
003620 9540 D64F      06890        3813+         CLI   IEAM2KLS,C' '
003624 4780 B31A            03926  3814+         BE    IEADFLTR
003628 5830 D64F            06890  3815+         L     3,IEAM2KLS R 3 = NEW SIZE OF MASTER SCHED AREA
00362C 8930 000B            0000B  3816+         SLL   3,11 MULTIPLY BY 2048
003630 5864 0008            00008  3817+IEAMS1GQ L     6,8(4) R 6 = SIZE OF FREE CORE FROM FBQE+8
003634 18A6                        3818+         LR    10,6 R10 = FREE CORE SIZE       000C
003636 1BA3                        3819+         SR    10,3 R10 = FREE MINUS MPS       000C
003638 4720 B03A            03646  3820+         BC    2,MPSOK10 FREE GT MPS, BYPASS MSG    000C
00363C D203 CB2B D86F 05D6C 06AB0  3821+         MVC   IEAEXNAM(Q4),IEAMS2KS SET UP MSG FOR PASS ERROR   A33251
003642 47F0 C2E1            05522  3822+         B     IEATOOBG WRITE MSG & DIE            000C
003646 1A64                        3823+MPSOK10  AR    6,4 R6 = PTR TO LPA            000C
003648 1846                        3824+         LR    4,6 R 4 = PNTR TO LINK PACK AREA       000C
00364A 1B43                        3825+         SR    4,3 R 4 = PNTR TO START OF MAST PARTITION
00364C 5890 D263            064A4  3826+         L     9,IEACORSZ R 9 = PNTR TO END OF LPA           000C
003650 1B94                        3827+         SR    9,4 SUBTRACT START FROM END            000C
003652 4112 0008            00008  3828+         LA    1,8(2) R 1 = PNTR TO 1ST PQE ON CHAIN     000C
003656 45A0 C21F            05460  3829+         BAL   R10,IEAMS1ER SET UP AND CHAIN PQE & FBQE 000E
00365A 5091 0014            00014  3830+         ST    R9,PQESIZE(R1) PQE REGION SIZE             000E
00365E 1A94                        3831+         AR    R9,R4 R9 = PTR TO START H1       000E
003660 4111 0028            00028  3832+         LA    1,40(1) R 1 = PNTR TO 1ST PQE ON FREE CORE 000C
003664 1864                        3833+         LR    6,4 R 6 = PNTR TO MASTER REGION        000C
003666 5845 0000            00000  3834+         L     4,0(5) R 4 = PNTR TO END OF SQS           000C
00366A 45A0 C21F            05460  3835+         BAL   10,IEAMS1ER SET UP AND CHAIN PQE AND FBQE      000C
00366E 5065 000C            0000C  3836+         ST    6,12(5) GOVRFLB+12 HAS SIZE OF FREE SPACE  000C
                                                                                                               PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3838+**  IF RMS IS IN THE SYSTEM, THIS ROUTINE WILL LOAD IGFMCHF0 FOR  19E02
                                   3839+**  THE SECOND TIME TO ENABLE THIS MODULE TO WRITE CHECKSUMS ON   19E02
                                   3840+**  SYS1.ASRLIB.  THE WRITING OF THE CHECKSUMS MUST OCCUR AFTER   19E02
                                   3841+**  THE LINK PACK AREA HAS BEEN INITIALIALIZED.                   19E02



003672 4110 D957            06B98  3843+         LA    R1,IGFINIT *        GET ADDR. OF IGFINIT           19E02
003676 D501 D521 D523 06762 06764  3844+         CLC   SGMODL1(Q2),K85 .   CHECK FOR MODEL 85         CD  M1069
00367C 4770 B07E            0368A  3845+         BNE   MOD3701 .           NO,BRANCH AROUND           IC 21055
003680 D501 1050 1052 00050 00052  3846+         CLC   X50(Q2,R1),X52(R1) *IS MODEL NO = SYSGEN MODEL NO  19E02
003686 4770 B1BE            037CA  3847+         BNE   ASRSKIP *           SKIP RMS CODE                  19E02
00368A                             3848+MOD3701  EQU   * .                                            IC  21055
00368A 917F C5C7      05808        3849+         TM    IGFLIST+CODEWORD,X7F MCH INIT. OKAY UP TO HERE     19E02
00368E 4780 B08E            0369A  3850+         BZ    MCHLOAD *           YES-CONTINUE MCH INITIALIZATION20061
003692 9101 D9B2      06BF3        3851+         TM    SUBSFLGS,X01 *      TEST FOR BAD INIT OF SUBSYS    20061
003696 4780 B166            03772  3852+         BZ    DECODE *            IF NOT ON-MCH INIT UNSUCCESSFUL20061
00369A                             3853+MCHLOAD  EQU   * *                                                20061
00369A 4100 B1D8            037E4  3854+         LA    R0,BLDLLIST *       GET ADDRESS OF BLDL LIST       19E02
00369E D207 B1DC B218 037E8 03824  3855+         MVC   MCHNAME(Q8),INITMOD *NAME OF INIT MOD FOR BLDL     19E02
0036A4 5810 0010            00010  3856+         L     R1,CVTPNTR *        GET PTR TO CVT                 19E02
0036A8 5811 0008            00008  3857+         L     R1,CVTLINK(R1) *    GET POINTER TO DCB FOR LINKLIB 19E02
0036AC 1811                        3858+         LR    1,R1 LOAD PARAMETER REG 1
0036AE 1800                        3859+         LR    0,R0 LOAD PARAMETER REG 0
0036B0 4111 0000            00000  3860+         LA    1,0(1)
0036B4 0A12                        3861+         SVC   18 LINK TO BLDL ROUTINE
0036B6 12FF                        3862+         LTR   R15,R15 *           BLDL SUCCESSFUL?               19E02
0036B8 4770 B16C            03778  3863+         BNZ   BLDLFAIL *          NO-BLDL FAILED                 19E02
0036BC 947F B1F2      037FE        3864+         NI    MCHNAME+K22,X7F *   TURN OFF REENTERANT BIT IN PDS 19E02
0036C0 5810 0010            00010  3865+         L     R1,CVTPNTR *        GET PTR TO CVT                 19E02
0036C4 5811 0008            00008  3866+         L     R1,CVTLINK(R1) *    GET POINTER TO DCB FOR LINKLIB 19E02
0036C8 4100 B1DC            037E8  3867+         LA    0,MCHNAME LOAD PARAMETER INTO REGISTER ZERO
0036CC 4111 0000            00000  3868+         LA    1,0(R1) LOAD ADDR. OF DCB INTO REG. ONE
0036D0 1100                        3869+         LNR   0,0 LOAD NEGITIVE OF REG. ZERO TO INDICATE DE
0036D2 0A08                        3870+         SVC   8 ISSUE LOAD SVC
0036D4 1200                        3871+         LTR   R0,R0 *             TEST FOR SUCESSFUL LOAD        19E02
0036D6 4780 B162            0376E  3872+         BZ    NOLOAD *            NO-LOAD NO GOOD                19E02
0036DA 18F0                        3873+         LR    R15,R0 *            GET RETURNED ENTRY POINT       19E02
0036DC 4100 D957            06B98  3874+         LA    R0,IGFINIT *        GET PTR TO RMS PARM. LIST      19E02
0036E0 4110 C567            057A8  3875+         LA    R1,IGFLIST *        GET PTR TO LIST OF NIP PTRS    19E02
0036E4 1B22                        3876+         SR    R2,R2 *             SHOWS 2ND ENTRY IN IGFMCHF0    19E02
0036E6 4130 D9B7            06BF8  3877+         LA    R3,IGFREFRS *       GET PTR TO REFRESH AREAS       19E02
0036EA 5030 D963            06BA4  3878+         ST    R3,IGFINIT+Q12 *    INIT PTR TO AREA IN IGFINIT    19E02
0036EE 900F B228            03834  3879+         STM   R0,R15,RMSSAVE *    SAVE REGS                      19E02
0036F2 05EF                        3880+         BALR  R14,R15 *           LINK TO IGFMCHF0               19E02
0036F4                             3881+         USING *,R14 *             ADDRESS. TO REF. SAVE AREA     19E02
0036F4 980F E140            03834  3882+         LM    R0,R15,RMSSAVE *    RESTORE REGS                   19E02
                                   3883+         DROP  R14 *                                              19E02
0036F8 5810 0010            00010  3884+         L     R1,CVTPNTR *        GET PTR TO CVT                 19E02
0036FC 5811 0008            00008  3885+         L     R1,CVTLINK(R1) *    GET POINTER TO DCB FOR LINKLIB 19E02
003700 4500 B100            0370C  3886+         BAL   0,*+12 LOAD ADDR OF EP SYMBOL
003704 C9C7C6D4C3C8C6F0            3887+         DC    CL8'IGFMCHF0' EP SYMBOL
00370C 0A09                        3888+         SVC   9 ISSUE DELETE SVC
00370E 917F C5C7      05808        3889+         TM    IGFLIST+CODEWORD,X7F MCH INIT. OKAY UP TO HERE     19E02
003712 47B0 B274            03880  3890+         BNM   RMSEND YES-BRANCH TO END          GF  47109
                                                                                                               PAGE   94


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003716                             3891+CHECKSSI EQU   * *                                                20061
003716 9101 D9B2      06BF3        3892+         TM    SUBSFLGS,X01 *      TEST FOR BAD INIT OF SUBSYS    20061
00371A 4780 B166            03772  3893+         BZ    DECODE *            IF NOT ON-MCH INIT UNSUCCESSFUL20061
00371E 94FE D9B2      06BF3        3894+         NI    SUBSFLGS,XFE *      TURN OFF FOR LOOP              20061
003722 1B88                        3895+         SR    R8,R8 *             CLEAR REG                      20061
003724 5860 D9AF            06BF0  3896+         L     R6,SUBSINT *        GET SUBSYS. INTER.BYTES.       20061
003728 4170 0001            00001  3897+         LA    R7,K1 *             THIS LOOP WILL                 20061
00372C 0670                        3898+LOOP1    BCTR  R7,K0 *             SEARCH THROUGH                 20061
00372E                             3899+LOOP2    EQU   * *                 SUBSINT TO FIND                20061
00372E 4188 0001            00001  3900+         LA    R8,K1(R8) *         WHICH SUBSYSTEMS ARE           20061
003732 1E66                        3901+         ALR   R6,R6 *             NOT INITIALIZED AND            20061
003734 4730 B134            03740  3902+         BC    K3,SSIMSG *         WILL GO TO SSIMSG TO           20061
003738 4740 B122            0372E  3903+         BC    K4,LOOP2 *          SET UP APPROPIATE MSGS.        20061
00373C 47F0 B274            03880  3904+         B     RMSEND *            BRANCH TO END              GF  47109
003740                             3905+SSIMSG   EQU   * *                                                20061
003740 18A8                        3906+         LR    R10,R8 *            SAVE VALUE                     20061
003742 06A0                        3907+         BCTR  R10,K0 *            DECREMENT CTR FOR SETTING UP   20061
003744 89A0 0002            00002  3908+         SLL   R10,K2 *            INDEX VALUE INTO SSI MSG TABLE 20061
003748 4190 B26C            03878  3909+         LA    R9,SSITABLE *       GET SUBSYS TABLE.              20061
00374C 1A9A                        3910+         AR    R9,R10 *            GET PROPER SUBSYS NAME         20061
00374E D203 CEEC 9000 0612D 00000  3911+         MVC   RXMSGFNC(K4),K0(R9) *MOVE IN SSI NAME WHICH FAILED 20061
003754 D203 CEF0 B270 06131 0387C  3912+         MVC   RXMSGFNC+K4(K4),SLMCH *MOVE IN REST OF MSG         20061
00375A D206 CEF4 DA35 06135 06C76  3913+         MVC   RXMSGFNC+K8(K7),IEABLNCS *MOVE IN BLANKS           20061
003760 D203 0048 C5EF 00048 05830  3914+         MVC   K72(K4),IEARXCAW *  SET CAW                        20061
003766 4550 C285            054C6  3915+         BAL   R5,IEACONSL *       ISSUE MESSAGE                  20061
00376A 47F0 B120            0372C  3916+         B     LOOP1 *             GO LOOK FOR MORE               20061
00376E                             3917+NOLOAD   EQU   * *                                                19E02
00376E 9210 C5C7      05808        3918+         MVI   IGFLIST+CODEWORD,K16 *LOAD FAILED RETURN CODE      19E02
003772                             3919+DECODE   EQU   * *                                                19E02
003772 1BFF                        3920+         SR    R15,R15 *           CLEAR REGISTER                 19E02
003774 43F0 C5C7            05808  3921+         IC    R15,IGFLIST+CODEWORD *GET INIT RETURN CODE         19E02
003778                             3922+BLDLFAIL EQU   * *                                                19E02
003778 42F0 C5C7            05808  3923+         STC   R15,IGFLIST+CODEWORD *MAKE SURE RET CODE IS SAVED  19E02
00377C 47FF B174            03780  3924+         B     BRANTAB(R15) *      GO TO BRANCH TABLE             19E02
003780                             3925+BRANTAB  EQU   * *                                                19E02
003780 47F0 B274            03880  3926+         B     RMSEND *            RC=0  INIT DONE OKAY           19E02
003784 47F0 B188            03794  3927+         B     NOTFOUND *          RC=4  BLDL MODULE NOT FOUND    19E02
003788 47F0 B1B4            037C0  3928+         B     IOERROR *           RC=8  I/O ERROR                19E02
00378C 47F0 B1BE            037CA  3929+         B     ASRSKIP *           RC=12  ASRLIB NOT IN EXTENT    19E02
003790 47F0 B1A0            037AC  3930+         B     LOADFAIL *          RC=16 LOAD FAILED              19E02
003794                             3931+NOTFOUND EQU   * *                                                19E02
003794 D203 0048 C52B 00048 0576C  3932+         MVC   K72(Q4),IEAFLCAW *  WRITE BLDL FAILED MSG          19E02
00379A 4550 C285            054C6  3933+         BAL   R5,IEACONSL *       GO DO I/O                      19E02
00379E D207 D84F B1DC 06A90 037E8  3934+         MVC   IEAMBNM(Q8),MCHNAME * PRINT NAME OF FAILING MODULE 19E02
0037A4 4590 C2EF            05530  3935+         BAL   R9,IEAPRNTM *       ON THE COSOLE                  19E02
0037A8 47F0 B1BE            037CA  3936+         B     ASRSKIP *           GO PUT OUT MCH INOP MSG        19E02
0037AC                             3937+LOADFAIL EQU   * *                                                19E02
0037AC D207 CAFF B1DC 05D40 037E8  3938+         MVC   NLMEMBER(Q8),MCHNAME *SET NAME OF FAILING MOD IN   19E02
0037B2 D203 0048 C52F 00048 05770  3939+         MVC   K72(Q4),IEANLCAW *  MESSAGE AND SET CAW            19E02
0037B8 4550 C285            054C6  3940+         BAL   R5,IEACONSL *       WRITE LOAD FAILED MESSAGE      19E02
0037BC 47F0 B1BE            037CA  3941+         B     ASRSKIP *           PRINT OUT MCH FUCT INOPERATIVE 19E02
0037C0                             3942+IOERROR  EQU   * *                                                19E02
0037C0 D203 0048 C527 00048 05768  3943+         MVC   K72(Q4),IOEROCAW *  WRITE PERM I/O ERROR           19E02
0037C6 4550 C285            054C6  3944+         BAL   R5,IEACONSL *       DURING BLDL                    19E02
0037CA                             3945+ASRSKIP  EQU   * *                                                19E02
                                                                                                               PAGE   95


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0037CA D203 0048 C5EF 00048 05830  3946+         MVC   K72(Q4),IEARXCAW *                                 19E02
0037D0 D202 CEEC D341 0612D 06582  3947+         MVC   RXMSGFNC(L'ASROPTNM),ASROPTNM * MCH FUNCTION NAME  19E02
0037D6 D210 CEEF DA35 06130 06C76  3948+         MVC   RXMSGFNC+L'ASROPTNM(L'RXMSGFNC-L'ASROPTNM),IEABLNCS 9E02
0037DC 4550 C285            054C6  3949+         BAL   R5,IEACONSL *       ISSUE MCH INOPERATIVE MSG      19E02
0037E0 47F0 B278            03884  3950+         B     RMSEND1 *           GO TO END                      19E02
0037E4                             3951+         DS    0F *                ALIGN FOR BLDL LIST            19E02
0037E4 0001003A                    3952+BLDLLIST DC    X'0001003A' *       BLDL NO OF ENTRIES AND SIZE    19E02
0037E8                             3953+MCHNAME  DS    15F *               BLDL LIST                      19E02
003824 C9C7C6D4C3C8C6F0            3954+INITMOD  DC    C'IGFMCHF0' *       NAME OF INIT. MODULE           19E02
00382C C9C7C6D4C3C8F1F8            3955+AMUTMOD  DC    C'IGFMCH18' *       ALT. MUTL. MODULE NAME         19E02
003834                             3956+RMSSAVE  DS    16F *               SAVE AREA                      19E02
003874 D5C9D7F0                    3957+IEACODE  DC    C'NIP0' *                                          19E02
003878 E3E2D640                    3958+SSITABLE DC    C'TSO ' *           TSO                            20061
00387C 61D4C3C8                    3959+SLMCH    DC    C'/MCH' *                                          20061
003880                             3960+RMSEND   EQU   * *                                                19E02
                                   3961+*    MCH INITIALIZATION WAS SUCCESSFUL- TURN OFF WAIT BIT IN      19E02
                                   3962+*    MACHINE CHECK NEW PSW                                        19E02
003880 94FD 0071      00071        3963+         NI    MCHKNPSW+K1,XFD *   TURN OFF WAIT BIT IN MCHNEW PSW19E02
003884                             3964+RMSEND1  EQU   * *                                                19E02
                                                                                                               PAGE   96


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003884 45A0 B326            03932  3966+         BAL   R10,HCBEGIN1 SET UP HC                            MCS0
003888 41F0 D24F            06490  3967+         LA    R15,IEALIGN R15 = PTR TO GM PARM            MCS0
00388C 50F0 B28C            03898  3968+         ST    R15,GETMAIN0+GMADDPTR SET PTR FOR GM CORE ADDR   MCS0
003890                             3969+         CNOP  0,4
003890 4510 B292            0389E  3970+GETMAIN0 BAL   1,*+14 BRANCH AROUND LIST
003894 00000010                    3971+         DC    A(16) LENGTH
003898 00006490                    3972+         DC    A(IEALIGN) ADDR. OF ADDR. LIST
00389C 20                          3973+         DC    X'20' EC MODE
00389D FF                          3974+         DC    AL1(255) SUBPOOL VALUE
00389E 0A04                        3975+         SVC   4 ISSUE GETMAIN SVC
0038A0 12FF                        3976+         LTR   R15,R15 TEST FOR CORE NOT AVAILABLE     MCS0
0038A2 4770 B2EA            038F6  3977+         BNZ   NSHARSP0 YES, BYPASS SHARED SP0 LOGIC    MCS0
0038A6 58F0 D24F            06490  3978+         L     R15,IEALIGN R15 = PTR TO SP255 CORE         MCS0
0038AA D70F F000 F000 00000 00000  3979+         XC    Q0(2*LSPQE,R15),Q0(R15) CLEAR CORE FOR SPQE'S      MCS0
0038B0 5880 C60F            05850  3980+         L     R8,IEATOPCB R8 = PTR TO MS TCB              MCS0
0038B4 9220 F000      00000        3981+         MVI   SPQEFLAG(R15),MSPQESP0 SET MS SPQE FLAGS          MCS0
0038B8 45E0 B2CE            038DA  3982+         BAL   R14,CHANSPQE LINK TO RESET TCB SPQE CHAIN    MCS0
0038BC 41FF 0008            00008  3983+         LA    R15,LSPQE(R15) R15 = PTR TO COMM SP0 SPQE      MCS0
0038C0 D202 F005 D250 00005 06491  3984+         MVC   SPQESPTR(LSPQEPTR,R15),ALIGN3BY SET SHARED SP CHAIN MCS0
0038C6 5880 C613            05854  3985+         L     R8,IEECVTB R8 = PTR TO COMM TASK TCB       MCS0
0038CA 9280 F000      00000        3986+         MVI   SPQEFLAG(R15),CSPQESP0 SET COMM TASK SPQE FLAGS   MCS0
0038CE 50F0 D24F            06490  3987+         ST    R15,IEALIGN ALIGN SPQE PTR FOR SUBRTN       MCS0
0038D2 45E0 B2CE            038DA  3988+         BAL   R14,CHANSPQE LINK TO RESET TCB SPQE CHAIN    MCS0
0038D6 47F0 B2EA            038F6  3989+         B     NSHARSP0 BRANCH TO EXIT                  MCS0
0038DA D202 F001 8019 00001 00019  3990+CHANSPQE MVC   SPQEPTR(LSPQEPTR,R15),TCBMSS+Q1(R8) SET SPQE CHAIN MCS0
0038E0 D202 8019 D250 00019 06491  3991+         MVC   TCBMSS+Q1(LSPQEPTR,R8),ALIGN3BY RESET TCB SPQE PTR MCS0
0038E6 D502 F001 D28F 00001 064D0  3992+         CLC   SPQEPTR(LSPQEPTR,R15),IEAZERO TEST FOR 1 SPQE    MCS0
0038EC 4770 B2E8            038F4  3993+         BNE   NLASTSPQ BRANCH IF MORE THAN 1 ON CHAIN  MCS0
0038F0 9640 F000      00000        3994+         OI    SPQEFLAG(R15),SPQELAST FLAG SPQE AS LAST ON CHAIN  MCS0
0038F4 07FE                        3995+NLASTSPQ BR    R14 RETURN TO CALLER                MCS0
0038F6                             3996+NSHARSP0 EQU   * MCS0
0038F6 5820 0010            00010  3997+         L     R2,CVTPTR LOAD ADDR OF CVT              A23669
0038FA 94EF 20B6      000B6        3998+         NI    CVTOPTA(R2),255-CVTNIP END OF NIP INDIC IN MVT    A23669
0038FE 5820 C4F7            05738  3999+         L     2,SKDADCON
003902 5020 B308            03914  4000+         ST    2,SKEDEXIT+4
003906 4890 D2C9            0650A  4001+         LH    R9,PRMUCBAD R9 = PARMLIB UCB ADDR FOR SCHEDULER USE000E
00390A 47F0 B304            03910  4002+         B     SKEDEXIT
003910                             4003+         DS    0F
003910                             4004+SKEDEXIT DS    0H
003910                             4005+         CNOP  0,4
003910 45F0 B318            03924  4006+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
003914 0000391C                    4007+         DC    A(*+8) ADDR OF EP PARAMETER
003918 00000000                    4008+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
00391C C9C5C5E5C9D7D340            4009+         DC    CL8'IEEVIPL' EP PARAMETER
003924 0A06                        4010+         SVC   6 ISSUE LINK SVC
003926 4130 0006            00006  4011+IEADFLTR LA    3,IEAMSLNT R 3 = SYS-GENED SIZE OF MS PARTITION
00392A 8930 000B            0000B  4012+         SLL   3,11 CLEAR ALL BITS EXCEPT 2K NO.
00392E 47F0 B024            03630  4013+         B     IEAMS1GQ SET UP MASTER PARTITION
                                                                                                               PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4015+*****                                                              MCS0
                                   4016+**   THIS ROUTINE INSURES THAT IF HARDCOPY IS REQUIRED, THE USER   MCS0
                                   4017+**   WILL BE FORCED TO SPECIFY A VALID HARDCOPY DEVICE, OR SYSLOG  MCS0
                                   4018+**   BEFORE OPERATION WILL CONTINUE. IF HARDCOPY IS NOT REQUIRED,  MCS0
                                   4019+**   BUT IS SPECIFIED, NIP WILL SEARCH FOR THE DEVICE OR THE DATA  MCS0
                                   4020+**   SET. IF NOT FOUND, NIP EXITS TO THE NEXT ROUTINE.             MCS0
                                   4021+*****                                                              MCS0
000000                             4022+HCR0     EQU   0 ***       WORK REG              MCS0
000001                             4023+HCR1     EQU   1 *         REGS USED             MCS0
000002                             4024+HCR2     EQU   2 *           TO BXLE THROUGH     MCS0
000003                             4025+HCR3     EQU   3 *             THE UCM           MCS0
000004                             4026+HCR4     EQU   4 *         FOR CONVERT RTN       MCS0
000005                             4027+HCR5     EQU   5 *         BRANCHING REG         MCS0
000006                             4028+HCR6     EQU   6 *         FOR CONVERT RTN       MCS0
000007                             4029+HCR7     EQU   7 *         UCM                   MCS0
000008                             4030+HCR8     EQU   8 *           BASE                MCS0
000009                             4031+HCR9     EQU   9 *             REGS              MCS0
00000A                             4032+HCR10    EQU   10 *         DEVICE ADDR REG       MCS0
00000B                             4033+HCR11    EQU   11 *         NIP                   MCS0
00000C                             4034+HCR12    EQU   12 *           BASE                MCS0
00000D                             4035+HCR13    EQU   13 *             REGS              MCS0
00000E                             4036+HCR14    EQU   14 *         UCB ADDR              MCS0
00000F                             4037+HCR15    EQU   15 ***       RETURN CODE REG       MCS0
003932 900F D46F            066B0  4038+HCBEGIN1 STM   R0,R15,NOTHERSV SAVE REGISTERS                      MCS0
003936 5880 C647            05888  4039+         L     HCR8,ADCVUCM ESTABLISH UCM PREFIX BASE REG   MCS0
00393A 1878                        4040+         LR    HCR7,HCR8 GET UCM ADDRESS AND             MCS0
00393C 4140 0004            00004  4041+         LA    HCR4,Q4 PICK UP UCM PREFIX BASE       MCS0
003940 1B74                        4042+         SR    HCR7,HCR4 FROM UCM - 4                MCS0
003942 5877 0000            00000  4043+         L     HCR7,Q0(HCR7) R7 = BASE FOR UCM PREFIX        MCS0
003946 5890 705C            0005C  4044+         L     HCR9,UCMHCUCM R9 = PNTR TO SYSGENED HC UCM ENTRY   MCS0
00394A 1299                        4045+         LTR   HCR9,HCR9 TEST FOR SYSLOG                       MCS0
00394C 4780 B34C            03958  4046+         BE    HCTRNOFF SYSLOG, TURN OFF HC BIT               MCS0
003950 94BF 902A      0055A        4047+         NI    UCMDISP,255-UCMDISPB TURN OFF HC BIT                MCS0
003954 47F0 B350            0395C  4048+         B     HCNEWSTR BYPASS UCM ENTRY CODET                MCS0
003958 94FD 7054      00054        4049+HCTRNOFF NI    UCMSFLGS,255-UCMSYSG TURN SYSLOB FLAG OFF           MCS0
00395C 9140 7054      00054        4050+HCNEWSTR TM    UCMSFLGS,UCMSYSB TEST FOR HARDCOPY REQUIRED         MCS0
003960 4710 B362            0396E  4051+         BO    HCSTART YES,LOOK FOR HARDCOPY           MCS0
003964 D503 D3F4 D447 06635 06688  4052+         CLC   HARDCOPY(Q4),FULLZERO TEST FOR HARDCOPY REQUESTED   MCS0
00396A 4780 B534            03B40  4053+         BE    IEAHCEND NO HARDCOPY                     MCS0
00396E                             4054+HCSTART  EQU   *
00396E 9680 D52B      0676C        4055+         OI    IEASWITC,HCCALL SET HC SWITCH                   MCS0
003972 D503 D3F4 D447 06635 06688  4056+HCSTART2 CLC   HARDCOPY(Q4),FULLZERO TEST FOR HC REQUESTED         MCS0
003978 4780 B41C            03A28  4057+         BE    HCREISSU NO, ASK FOR HARDCOPY                  MCS0
00397C D503 D3F4 D400 06635 06641  4058+         CLC   HARDCOPY(Q4),HCSYSLOG TEST FOR SYSLOG DATA SET      MCS0
003982 4780 B466            03A72  4059+         BE    HCPASSDV YES, NOT A DEVICE TYPE                MCS0
003986 9823 804C            0004C  4060+         LM    HCR2,HCR3,UCMVEZ LOAD REGS TO                    MCS0
00398A 5890 8048            00048  4061+         L     HCR9,UCMVEA BXLE THROUGH                  MCS0
00398E 1B92                        4062+         SR    HCR9,HCR2 R9 = DUMMY ADDR FOR BXH         MCS0
003990 8692 B412            03A1E  4063+HCBXLE   BXH   HCR9,HCR2,HCMISS THE UCM                       MCS0
003994 D502 D3F4 900C 06635 0053C  4064+         CLC   HARDCOPY(Q3),UCMUCB TEST FOR REQUESTED DEVICE       MCS0
00399A 4770 B384            03990  4065+         BNE   HCBXLE NO,BXLE AGAIN                   MCS0
00399E 9120 902A      0055A        4066+         TM    UCMDISP,UCMDISPC TEST FOR GRAPHICS CONSOLE       MCS0
0039A2 4710 B40E            03A1A  4067+         BO    HCNOFIND YES,INVALID CONSOLE             MCS0
0039A6 D503 9038 D28F 00568 064D0  4068+         CLC   UCMCOMPC(Q4),IEAZERO TEST FOR COMPOSITE CONSOLE     MCS0
0039AC 4780 B3AC            039B8  4069+         BE    HCFNDUCB NO,HANDLES OUTPUT               MCS0
                                                                                                               PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0039B0 95F2 9013      00543        4070+         CLI   UCMNAME+Q3,UCMWRITE TEST FOR OUTPUT CONSOLE         MCS0
0039B4 4770 B40E            03A1A  4071+         BNE   HCNOFIND NO,INPUT ONLY                   MCS0
0039B8 4140 0003            00003  4072+HCFNDUCB LA    HCR4,Q3 R4 = NO. BYTES TO CONVERT       MCS0
0039BC 4160 D3F4            06635  4073+         LA    HCR6,HARDCOPY R6 = ADDR OF BYTES TO CONVRET   MCS0
0039C0 4550 C207            05448  4074+         BAL   HCR5,IEASCONV BR TO CONVERSION RTN            MCS0
0039C4 F212 D251 D3F4 06492 06635  4075+         PACK  ALIGN2BY(Q2),HARDCOPY(Q3) PACK FOR UNIT ADDR        MCS0
0039CA 48A0 D251            06492  4076+         LH    HCR10,ALIGN2BY R10 = SIGNED UNIT ADDR          MCS0
0039CE 88A0 0004            00004  4077+         SRL   HCR10,Q4 R10 = UNIT ADDR OF CONSOLE      MCS0
0039D2 4550 C0BD            052FE  4078+         BAL   HCR5,IEAUCBFN FIND UCB ADDR                   MCS0
0039D6 91FF D516      06757        4079+         TM    IEAINDIC,XFF TEST FOR UCB FOUND              MCS0
0039DA 47E0 B40E            03A1A  4080+         BC    14,HCNOFIND NO,PRINT INVALID HC MSG         MCS0
0039DE 4840 D2D3            06514  4081+         LH    HCR4,IEAUCBHL R4 = UCB ADDR                   MCS0
0039E2 9182 4003      00003        4082+         TM    UCBESTAT(HCR4),X82 TEST FOR DEVICE ON LINE          MCS0
0039E6 47E0 B3F6            03A02  4083+         BNO   HCNOREDY DEVICE NOT READY,ISSUE MESSAGE  MCS0
0039EA D601 7064 D3F9 00064 0663A  4084+HCORBITS OC    UCMHRDRT(Q2),ROUTCODE SET ROUTING CODES             MCS0
0039F0 D600 7054 D3FB 00054 0663C  4085+         OC    UCMSFLGS(Q1),CPYCMDS SET HC RECEIVE COMMAND         MCS0
0039F6 9640 902A      0055A        4086+         OI    UCMDISP,UCMDISPB SET HC BIT                      MCS0
0039FA 5090 705C            0005C  4087+         ST    HCR9,UCMHCUCM SET HC ADDR IN UCM PREFIX       MCS0
0039FE 47F0 B51C            03B28  4088+         B     HCEND FINISHED,EXIT                   MCS0
003A02 D203 0048 C4C7 00048 05708  4089+HCNOREDY MVC   CAW(Q4),HCNRDCAW SET UNAVAILABLE CONSOLE CAW     MCS0
003A08 94BF 902A      0055A        4090+         NI    UCMDISP,255-UCMDISPB TURN OFF HARDCOPY BIT          MCS0
003A0C D703 705C 705C 0005C 0005C  4091+         XC    UCMHCUCM,UCMHCUCM ZERO HC UCM ENTRY               P4862
003A12 4550 C285            054C6  4092+         BAL   HCR5,IEACONSL PRINT MSG                       MCS0
003A16 47F0 B41C            03A28  4093+         B     HCREISSU TEST FOR HC REQUIRED            MCS0
003A1A 94BF 902A      0055A        4094+HCNOFIND NI    UCMDISP,255-UCMDISPB TURN OFF HARDCOPY BIT          MCS0
003A1E D203 0048 C4C3 00048 05704  4095+HCMISS   MVC   CAW(Q4),HCIVDCAW SET CAW FOR INVALID PARM MSG    MCS0
003A24 4550 C285            054C6  4096+         BAL   HCR5,IEACONSL PRINT MSG                       MCS0
003A28 9140 7054      00054        4097+HCREISSU TM    UCMSFLGS,UCMSYSB TEST FOR HARDCOPY REQUIRED      MCS0
003A2C 47E0 B51C            03B28  4098+         BC    14,HCEND NO,EXIT                         MCS0
003A30 D203 0048 C4BF 00048 05700  4099+HCRESPEC MVC   CAW(Q4),HCSPECAW SET CAW FOR HC SPECIFY MSG      MCS0
003A36 4550 C285            054C6  4100+         BAL   HCR5,IEACONSL PRINT MSG                       MCS0
003A3A D24F D6FB DA35 0693C 06C76  4101+HCRDAGAN MVC   ANSRAREA(Q80),IEABLNCS CLEAR INPUT BUFFER           MCS0
003A40 D203 0048 C51B 00048 0575C  4102+         MVC   CAW(Q4),ANSWRCAW SET CAW FOR OPERATOR REPLY      MCS0
003A46 9680 D52A      0676B        4103+         OI    IEASWITB,CANXSWIT SET TO TEST FOR 'CANCEL'
003A4A 4550 C26D            054AE  4104+         BAL   R5,IEACONIN READ THE REPLY                  MCS0
003A4E 947F D52A      0676B        4105+         NI    IEASWITB,NOCANCEL RESET TO SKIP 'CANCEL' CHECK
003A52 D54F D6FB DA35 0693C 06C76  4106+         CLC   ANSRAREA(80),IEABLNCS CHECK INPUT BUFFER            MCS0
003A58 4780 B424            03A30  4107+         BE    HCRESPEC BLANKS NOT ACCEPTABLE,REPRINT MGMCS0
003A5C 4550 C039            0527A  4108+         BAL   HCR5,IEASHCP1 ANALIZE THE REPLY               MCS0
003A60 47F0 B366            03972  4109+         B     HCSTART2 REG NOT UPDATED,SEARCH FOR HC DVMCS0
003A64 D203 0048 C51F 00048 05760  4110+         MVC   CAW(Q4),IEARRCAW SET CAW TO PRINT ERROR MSG      MCS0
003A6A 4550 C285            054C6  4111+         BAL   HCR5,IEACONSL PRINT ERROR MSG                 MCS0
003A6E 47F0 B42E            03A3A  4112+         B     HCRDAGAN REPEAT READ                           MCS0
003A72 D20C D9DB D404 06C1C 06645  4113+HCPASSDV MVC   IEADSTNM(13),HCLOGX SET DSTNM FOR SYSLOGX           MCS0
003A78 D21E D9E8 DA35 06C29 06C76  4114+         MVC   IEADSTNM+L'HCLOGX(44-L'HCLOGX),IEABLNCS MCS0
003A7E 4590 C13B            0537C  4115+         BAL   HCR9,IEALOCAT FIND CATALOGED SERIAL NUMBER    MCS0
003A82 91FF D512      06753        4116+         TM    LOCATEOK,XFF TEST FOR LOCATE FAILED          MCS0
003A86 4710 B4E6            03AF2  4117+         BO    HCDIFLOG FAILED,CHECK FOR OTHER LOG      MCS0
003A8A 4530 C19D            053DE  4118+HCSERCH  BAL   HCR3,IEASERCH CHECK FOR DEVICE ON LINE             MCS0
003A8E 9120 D534      06775        4119+         TM    IEASWITD,LOGFSWIT TEST FOR VOLUME NOT MOUNTED       MCS0
003A92 4710 B4AC            03AB8  4120+         BO    HCOTHLOG NOT MOUNTED, CHECK OTHER DS          MCS0
003A96 4550 C0BD            052FE  4121+         BAL   HCR5,IEAUCBFN FIND UCB ADDR                   MCS0
003A9A 91FF D516      06757        4122+         TM    IEAINDIC,XFF TEST FOR UCB FOUND              MCS0
003A9E 47E0 B4AC            03AB8  4123+         BNO   HCOTHLOG NO UCB,LOOK FOR OTHER LOG DS    MCS0
003AA2 4890 D2D3            06514  4124+HCFOUND  LH    HCR9,IEAUCBHL R9 = UCB PNTR                   MCS0
                                                                                                               PAGE   99


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003AA6 4560 C123            05364  4125+         BAL   HCR6,IEARDVOL BR TO READ VOL                  MCS0
003AAA 4130 0004            00004  4126+         LA    HCR3,Q4 SET CODE FOR F1 DSCB            MCS0
003AAE 4540 C153            05394  4127+         BAL   HCR4,IEAOBTAN LINK TO OBTAIN RTN              MCS0
003AB2 12FF                        4128+         LTR   HCR15,HCR15 TEST RETURN CODE                MCS0
003AB4 4780 B4FE            03B0A  4129+         BE    HCFNDLOG GOOD,SYSLOG FOUND               MCS0
003AB8 94DF D534      06775        4130+HCOTHLOG NI    IEASWITD,255-LOGFSWIT TURN OFF VOLUME NOT MNTD SW   MCS0
003ABC 9108 D410      06651        4131+         TM    HCLOGX+12,X08 TEST FOR SYSLOGY                     MCS0
003AC0 4710 B40E            03A1A  4132+         BO    HCNOFIND YES, SYSLOG INVALID             MCS0
003AC4 970F D410      06651        4133+HCNMCHNG XI    HCLOGX+12,X0F CHANGE X TO Y                   MCS0
003AC8 47F0 B466            03A72  4134+         B     HCPASSDV TEST FOR SYSLOGY                MCS0
003ACC D22B C9B6 D9DB 05BF7 06C1C  4135+HCNOSLOG MVC   MSG1STNM(44),IEADSTNM SET UP LOCATE                 MCS0
003AD2 D202 C9C2 D411 05C03 06652  4136+         MVC   MSG1STNM+12(Q3),HCXORY FAILED MESSAGE               MCS0
003AD8 D203 0048 C43B 00048 0567C  4137+         MVC   CAW(Q4),MSG1CAW SET CAW FOR MSG                 MCS0
003ADE 4550 C285            054C6  4138+         BAL   HCR5,IEACONSL PRINT MSG                       MCS0
003AE2 94BF D534      06775        4139+         NI    IEASWITD,Q255-LOCXSWIT TURN LOCATE X SWIT OFF      19017
003AE6 9140 7054      00054        4140+         TM    UCMSFLGS,UCMSYSB TEST FOR HARDCOPY REQUIRED      MCS0
003AEA 47E0 B51C            03B28  4141+         BC    14,HCEND NO,EXIT                         MCS0
003AEE 47F0 B424            03A30  4142+         B     HCRESPEC NECESSARY,WRITE MSG             MCS0
003AF2 9140 D534      06775        4143+HCDIFLOG TM    IEASWITD,LOCXSWIT DID LOCATE FAIL FOR SYSLOGX    19017
003AF6 4710 B4C0            03ACC  4144+         BO    HCNOSLOG YES,PRINT FAILED MSG            MCS0
003AFA 9108 D410      06651        4145+         TM    HCLOGX+Q12,X08 TEST FOR SYSLOGY                MCS0
003AFE 4710 B40E            03A1A  4146+         BO    HCNOFIND YES PRINT INVALID MSG           MCS0
003B02 9640 D534      06775        4147+         OI    IEASWITD,LOCXSWIT SET LOCATE X FAILED SWITCH     19017
003B06 47F0 B4B8            03AC4  4148+         B     HCNMCHNG CHANGE DS NAME                  MCS0
003B0A 9602 7054      00054        4149+HCFNDLOG OI    UCMSFLGS,UCMSYSG SET SYSLOG FLAGS                MCS0
003B0E D600 7054 D3FB 00054 0663C  4150+         OC    UCMSFLGS(Q1),CPYCMDS SET HC RECEIVE COMMAND SWITCH  MCS0
003B14 D601 7064 D3F9 00064 0663A  4151+         OC    UCMHRDRT(Q2),ROUTCODE SET ROUTING CODE              MCS0
003B1A 9640 7054      00054        4152+         OI    UCMSFLGS,UCMSYSB SET HC REQUIRED BIT            P2401
003B1E 4540 C16B            053AC  4153+         BAL   HCR4,IEAFREOB FREE DSCB CORE                  MCS0
003B22 1B22                        4154+         SR    HCR2,HCR2 ZERO REG2                       MCS0
003B24 5020 705C            0005C  4155+         ST    HCR2,UCMHCUCM PUT ZEROS IN HC FIELD OF UCM    MCS0
003B28 947F D52B      0676C        4156+HCEND    NI    IEASWITC,255-HCCALL TURN OFF HC SWITCH              MCS0
003B2C 9140 7054      00054        4157+         TM    UCMSFLGS,UCMSYSB TEST FOR HC REQUIRED               MCS0
003B30 47E0 B534            03B40  4158+         BNO   IEAHCEND NO, LEAVE CMDS BIT SET AS SPECIFIED   MCS0
003B34 91C0 709C      0009C        4159+         TM    UCMSDS1,X'C0' IS STCMDS OR INCMDS ON?      @SA77269
003B38 4770 B534            03B40  4160+         BNZ   IEAHCEND YES, DO NOT SET CMDS ON      @SA77269
003B3C 9620 7054      00054        4161+         OI    UCMSFLGS,UCMSYSC YES, CMDS REQUIRED                 MCS0
003B40 980F D46F            066B0  4162+IEAHCEND LM    R0,R15,NOTHERSV RESTORE REGISTERS                   MCS0
003B44 07FA                        4163+         BR    R10 RETURN TO CALLER                     MCS0
                                                                                                               PAGE  100


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4165+* REGISTERS FOR HARD COPY SUBROUTINE                               MCS0
                                   4166+*                                                                  MCS0
000001                             4167+SCPR1    EQU   1 POINTER WORK REGISTER           MCS0
000002                             4168+SCPR2    EQU   2 ANSWER AREA POINTER             MCS0
000003                             4169+SCPR3    EQU   3 WORK REGISTER                   MCS0
000004                             4170+SCPR4    EQU   4 ROUT CODE WORK REGISTER         MCS0
000005                             4171+SCPR5    EQU   5 RETURN REGISTER                 MCS0
000006                             4172+SCPR6    EQU   6 POINTER TO DATA INFORMATION     MCS0
003B46                             4173+IEASHCPY EQU   * ENTRY-POINT TO HARDCOPY ROUTINE MCS0
003B46                             4174+         USING *,R11 MCS0
003B46 9015 D11F            06360  4175+         STM   SCPR1,SCPR5,SAVEREF SAVE VOLATILE REGISTERS         MCS0
003B4A 4120 D6FB            0693C  4176+         LA    SCPR2,ANSRAREA INITIALIZE POINTER TO ANSWER    MCS0
003B4E 1B33                        4177+         SR    SCPR3,SCPR3 SET UP INDEX FOR BCT LOOP       MCS0
003B50 D64F D6FB DA35 0693C 06C76  4178+         OC    ANSRAREA(HCPY80),IEABLNCS INSURE UPPER CASE        MCS0
003B56 D509 D753 2000 06994 00000  4179+         CLC   IEARPLYR(Q10),Q0(SCPR2) TEST PROPER REPLY FORMAT   MCS0
003B5C 4780 B02C            03B72  4180+         BE    HCPYTANS GOOD FORMAT--BRANCH             MCS0
003B60 D505 D75D 2000 0699E 00000  4181+         CLC   IEARPLYS(Q6),Q0(SCPR2) TEST PROPER REPLY FORMAT   MCS0
003B66 4770 B044            03B8A  4182+         BNE   HCPYERR ERROR IN REPLY MESSAGE          MCS0
003B6A 4120 D6F7            06938  4183+         LA    SCPR2,ANSRAREA-Q4 BACK UP POINTER                 MCS0
003B6E 4130 0004            00004  4184+         LA    SCPR3,Q4 RESET  BCT REGISTER             MCS0
003B72                             4185+HCPYTANS EQU   * MCS0
003B72 4133 0046            00046  4186+         LA    SCPR3,Q70(SCPR3) FIX COUNTER ON BCT LOOP         MCS0
003B76 4112 000A            0000A  4187+         LA    SCPR1,Q10(SCPR2) INCREMENT POINTER               MCS0
003B7A                             4188+HCPYLOOP EQU   * MCS0
003B7A 957D 1000      00000        4189+         CLI   Q0(SCPR1),X7D COMPARE FOR END OF DATA         MCS0
003B7E 4780 B058            03B9E  4190+         BE    HCPYGOOD GOOD END OF DATA DELIMINATOR    MCS0
003B82 4111 0001            00001  4191+         LA    SCPR1,Q1(SCPR1) INCREMENT POINTER IF NOT FOUND  MCS0
003B86 4630 B034            03B7A  4192+         BCT   SCPR3,HCPYLOOP AND START LOOP                  MCS0
003B8A                             4193+HCPYERR  EQU   * FALL THRU IF DELIMINATOR NOT    MCS0
003B8A 9815 D11F            06360  4194+         LM    SCPR1,SCPR5,SAVEREF FOUND AND RETURN TO CALLER    MCS0
003B8E D203 D3F4 D447 06635 06688  4195+         MVC   HARDCOPY(Q4),FULLZERO ZERO OUT                      MCS0
003B94 D701 D3F9 D3F9 0663A 0663A  4196+         XC    ROUTCODE(Q2),ROUTCODE PARM FIELDS                   MCS0
003B9A 47F5 0004            00004  4197+         B     Q4(SCPR5) AFTER RESTORING REGISTERS    MCS0
003B9E                             4198+HCPYGOOD EQU   * MCS0
003B9E 4112 000A            0000A  4199+         LA    SCPR1,Q10(SCPR2) ALIGN POINTER TO PARM FIELD     MCS0
003BA2 D508 1000 D8A6 00000 06AE7  4200+         CLC   Q0(Q9,SCPR1),HARCOPY TEST FOR HARDCOPY SPECIFIED    MCS0
003BA8 4770 B044            03B8A  4201+         BNE   HCPYERR ERROR CONDITION--RETURN         MCS0
003BAC 4161 0008            00008  4202+         LA    SCPR6,Q8(SCPR1) REALIGN POINTER TO DATA FIELD   MCS0
003BB0 47F0 B072            03BB8  4203+         B     IEASHCP3 GO TO ANALYSIS DATA FIELD       MCS0
003BB4                             4204+NEWSHCP2 EQU   *
003BB4 9015 D11F            06360  4205+         STM   SCPR1,SCPR5,SAVEREF SAVE VOLATILE REGISTERS         MCS0
003BB8                             4206+IEASHCP3 EQU   * ENTRY POINT FOR HARDCPY MESSAGE MCS0
003BB8 D203 D3F4 D447 06635 06688  4207+         MVC   HARDCOPY(Q4),FULLZERO ZERO OUT                      MCS0
003BBE D701 D3F9 D3F9 0663A 0663A  4208+         XC    ROUTCODE(Q2),ROUTCODE PARM FIELDS                   MCS0
003BC4 94DF D3FB      0663C        4209+         NI    CPYCMDS,Q255-UCMSYSC RESET HARDCOPY COMMAND SWITCH  MCS0
003BC8 D506 6000 D3FD 00000 0663E  4210+         CLC   Q0(Q7,SCPR6),HCPSLOG TEST FOR SYSLOG SPECIFIED      MCS0
003BCE 4780 B0AE            03BF4  4211+         BE    HCPSTEST GO TO SYSLOG HANDLING ROUTINE   MCS0
003BD2 D202 D3F4 6001 06635 00001  4212+         MVC   HARDCOPY(Q3),Q1(SCPR6) MOVE IN DEVICE ADDRESS       MCS0
003BD8 9200 D3F7      06638        4213+         MVI   HARDCOPY+Q3,X00 AND PAD TO RIGHT           MCS0
003BDC 4166 0004            00004  4214+         LA    SCPR6,Q4(SCPR6) UPDATE POINTER TO NEXT FIELD    MCS0
003BE0                             4215+HCPSFAZE EQU   * MCS0
003BE0 956B 6000      00000        4216+         CLI   Q0(SCPR6),X6B TEST FOR COMMA                  MCS0
003BE4 4780 B0BC            03C02  4217+         BE    HCPRETES GO TEST NEXT FIELD              MCS0
003BE8 955D 6000      00000        4218+         CLI   Q0(SCPR6),HCPSCOMP TEST FOR END OF MESSAGE       MCS0
003BEC 4780 B18C            03CD2  4219+         BE    HCPSDVLT GO TO SPECIFY DEFAULT ROUTINE   MCS0
                                                                                                               PAGE  101


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003BF0 47F0 B044            03B8A  4220+         B     HCPYERR GO TO ERROR ROUTINE             MCS0
003BF4                             4221+HCPSTEST EQU   * MCS0
003BF4 D203 D3F4 D400 06635 06641  4222+         MVC   HARDCOPY(Q4),HCPSLOG+Q3 MOVE IN SYSLOG SPEC INDICT MCS0
003BFA 4166 0007            00007  4223+         LA    SCPR6,Q7(SCPR6) UPDATE POINTER TO NEXT FIELD    MCS0
003BFE 47F0 B09A            03BE0  4224+         B     HCPSFAZE GO TEST NEXT FIELD              MCS0
003C02 4166 0001            00001  4225+HCPRETES LA    SCPR6,Q1(SCPR6) INCREMENT POINTER               MCS0
003C06 D502 6000 D425 00000 06666  4226+         CLC   Q0(Q3,SCPR6),HCPRALL IS ALL SPEPIFIED FOR ROUT CODE MCS0
003C0C 4780 B112            03C58  4227+         BE    HCPSETRC YES GO TO ROUTINE FOR DEFAULT  MCS0
003C10 954D 6000      00000        4228+         CLI   Q0(SCPR6),C'(' TEST FOR DELIMINATOR            MCS0
003C14 4770 B1C6            03D0C  4229+         BNE   HCPSETPT GO RESET POINTER
003C18 4166 0001            00001  4230+         LA    SCPR6,Q1(SCPR6) INCREMENT POINTER               MCS0
003C1C 95F0 6000      00000        4231+         CLI   Q0(SCPR6),X'F0' ROUT CODE SPECIFIED            MCS0
003C20 47D0 B044            03B8A  4232+         BNH   HCPYERR ERROR CONDITION
003C24 47F0 B0EE            03C34  4233+         B     HCPRETEB GO AROUND
003C28                             4234+HCPRETEA EQU   *
003C28 4166 0001            00001  4235+         LA    SCPR6,Q1(SCPR6) INCREMENT POINTER               MCS0
003C2C 955D 6000      00000        4236+         CLI   Q0(SCPR6),HCPSCOMP TEST END OF FIELD DELIMINATOR MCS0
003C30 4780 B044            03B8A  4237+         BE    HCPYERR ERROR IN REPLY MESSAGE          MCS0
003C34                             4238+HCPRETEB EQU   *
003C34 95F0 6000      00000        4239+         CLI   Q0(SCPR6),X'F0' ROUT CODE SPECIFIED            MCS0
003C38 47D0 B11C            03C62  4240+         BNH   HCPSETEN NO--TEST DELIMINATOR
003C3C 95F9 6000      00000        4241+         CLI   Q0(SCPR6),X'F9' ROUT CODE TO HIGH              MCS0
003C40 4720 B044            03B8A  4242+         BH    HCPYERR YES--GO TO ERROR ROUTINE       MCS0
003C44 95F0 6001      00001        4243+         CLI   Q1(SCPR6),X'F0' TEST SECOND BYTE FOR NUMERIC    MCS0
003C48 4740 B19E            03CE4  4244+         BL    HCPCOMTS TEST ROUT CODE AND DELIMINATORMCS0
003C4C 95F6 6001      00001        4245+         CLI   Q1(SCPR6),X'F6' TEST 2ND BYTE FOR HIGH NUMERIC  MCS0
003C50 4720 B044            03B8A  4246+         BH    HCPYERR ERROR                         MCS0
003C54 47F0 B1F2            03D38  4247+         B     HCPORSWA ROUT CODE EQUAL TO 10         MCS0
003C58                             4248+HCPSETRC EQU   * MCS0
003C58 D201 D3F9 D33B 0663A 0657C  4249+         MVC   ROUTCODE(Q2),HCPFFFF MOVE IN DEFAULT VALUE         MCS0
003C5E 4166 0003            00003  4250+HCPSETCR LA    SCPR6,Q3(SCPR6) INCREMENT POINTER             MCS0
003C62                             4251+HCPSETEN EQU   * MCS0
003C62 955D 6000      00000        4252+         CLI   Q0(SCPR6),HCPSCOMP TEST END OF FIELD DELIMINATOR MCS0
003C66 4780 B192            03CD8  4253+         BE    HCPSETDM GO SET DEFAULT VALUE           MCS0
003C6A 5830 C647            05888  4254+         L     SCPR3,ADCVUCM BASE FOR UCM                @SA65772
003C6E 4140 0004            00004  4255+         LA    SCPR4,Q4 SUBTRACT 4 TO GET           @SA65772
003C72 1B34                        4256+         SR    SCPR3,SCPR4 ADDR OF UCM PREFIX PTR      @SA65772
003C74 5830 3000            00000  4257+         L     SCPR3,Q0(,SCPR3) ADDR OF UCM PREFIX          @SA65772
                                   4258+         DROP  7 FORCE USE OF SCPR3          @SA65772
000000                             4259+         USING MCSUCM,SCPR3 @SA65772
003C78 D507 6000 D436 00000 06677  4260+         CLC   Q0(Q8,SCPR6),HCPICMDS IN LINE COMMANDS          S21003
003C7E 4780 B16C            03CB2  4261+         BE    HCPPEGA YES  BRANCH               S21003
003C82 D507 6000 D43E 00000 0667F  4262+         CLC   Q0(Q8,SCPR6),HCPSCMDS STATIC ALSO               S21003
003C88 4780 B17C            03CC2  4263+         BE    HCPPEGB YES  BRANCH               S21003
003C8C D505 6000 D430 00000 06671  4264+         CLC   Q0(Q6,SCPR6),HCPCMDS TEST FOR COMMANDS SPECIFIED   MCS0
003C92 4780 B164            03CAA  4265+         BE    HCPSTCMD YES--SET SWITCH               MCS0
003C96 D507 6000 D428 00000 06669  4266+         CLC   Q0(Q8,SCPR6),HCPNCMDS TEST FOR NO COMMANDS SPEC     MCS0
003C9C 4770 B044            03B8A  4267+         BNE   HCPYERR ERROR CONDITION--RETURN         MCS0
003CA0 4166 0008            00008  4268+         LA    SCPR6,Q8(SCPR6) INCREMENT POINTER               MCS0
003CA4                             4269+HCPGDRTN EQU   * MCS0
003CA4 9815 D11F            06360  4270+         LM    SCPR1,SCPR5,SAVEREF RESTORE REGISTERS               MCS0
003CA8 07F5                        4271+         BR    SCPR5 GOOD RETURN                    MCS0
003CAA                             4272+HCPSTCMD EQU   * MCS0
003CAA 4166 0005            00005  4273+         LA    SCPR6,Q5(SCPR6) INCREMENT POINTER               MCS0
003CAE 47F0 B192            03CD8  4274+         B     HCPSETDM GO SET CMDS SWITCH              MCS0
                                                                                                               PAGE  102


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003CB2                             4275+HCPPEGA  EQU   * S21003
003CB2 9640 309C      0009C        4276+         OI    UCMSDS1,UCMSDS1B SET INCMDS FLAG ON          @SA65772
003CB6 947F 309C      0009C        4277+         NI    UCMSDS1,XFF-UCMSDS1A SET STCMDS FLAG OFF        @SA65772
003CBA 4166 0008            00008  4278+         LA    SCPR6,Q8(SCPR6) BUMP POINTER                  S21003
003CBE 47F0 B15E            03CA4  4279+         B     HCPGDRTN BRANCH TO EXIT                S21003
003CC2                             4280+HCPPEGB  EQU   * S21003
003CC2 9680 309C      0009C        4281+         OI    UCMSDS1,UCMSDS1A SET STCMDS FLAG ON          @SA65772
003CC6 94BF 309C      0009C        4282+         NI    UCMSDS1,XFF-UCMSDS1B SET INCMDS FLAG OFF        @SA65772
003CCA 4166 0008            00008  4283+         LA    SCPR6,Q8(SCPR6) BUMP POINTER                  S21003
003CCE 47F0 B15E            03CA4  4284+         B     HCPGDRTN BRANCH TO EXIT                S21003
                                   4285+         DROP  SCPR3 @SA65772
003CD2                             4286+HCPSDVLT EQU   * MCS0
003CD2 D201 D3F9 D33B 0663A 0657C  4287+         MVC   ROUTCODE(Q2),HCPFFFF MOVE IN DEFAULT ROUT CODE      MCS0
003CD8                             4288+HCPSETDM EQU   * MCS0
003CD8 9620 D3FB      0663C        4289+         OI    CPYCMDS,UCMSYSC MOVE IN CMDS SPECIFIED CODE    MCS0
003CDC 4166 0001            00001  4290+         LA    SCPR6,Q1(SCPR6) INCREMENT POINTER               MCS0
003CE0 47F0 B15E            03CA4  4291+         B     HCPGDRTN AND RETURN                      MCS0
003CE4                             4292+HCPCOMTS EQU   * MCS0
003CE4 95F9 6000      00000        4293+         CLI   Q0(SCPR6),X'F9' COMPARE FOR X'F9'               MCS0
003CE8 4770 B1D2            03D18  4294+         BNE   HCPAROND IF LOW GO TO CONVERSION ROUTINE MCS0
003CEC 9680 D3FA      0663B        4295+         OI    ROUTCODE+Q1,X80 TURN ON RC=9 BIT IN ROUTCODE    MCS0
003CF0 4166 0001            00001  4296+HCPCOMTE LA    SCPR6,Q1(SCPR6) INCREMENT POINTER               MCS0
003CF4 956B 6000      00000        4297+         CLI   Q0(SCPR6),X6B TEST FOR COMMA                  MCS0
003CF8 4780 B0E2            03C28  4298+         BE    HCPRETEA IF COMMA,GO TEST NEXT FIELD     MCS0
003CFC 955D 6000      00000        4299+         CLI   Q0(SCPR6),HCPSCOMP TEST FOR END OF MESSAGE       MCS0
003D00 4166 0001            00001  4300+         LA    SCPR6,Q1(SCPR6) INCREMENT POINTER FOR RETURN    MCS0
003D04 4780 B11C            03C62  4301+         BE    HCPSETEN TEST FOR COMMAND INFORMATION    MCS0
003D08 47F0 B044            03B8A  4302+         B     HCPYERR ERROR CONDITION                 MCS0
003D0C 0660                        4303+HCPSETPT BCTR  SCPR6,Q0 BACK UP POINTER                 MCS0
003D0E D201 D3F9 D33B 0663A 0657C  4304+         MVC   ROUTCODE(Q2),HCPFFFF MOVE IN DEFAULT ROUT CODE      MCS0
003D14 47F0 B11C            03C62  4305+         B     HCPSETEN TEST FOR COMMAND INFORMATION    MCS0
003D18                             4306+HCPAROND EQU   * MCS0
003D18 1B44                        4307+         SR    SCPR4,SCPR4 ZERO WORK REGISTER              MCS0
003D1A 4346 0000            00000  4308+         IC    SCPR4,Q0(SCPR6) INSERT ROUTCODE BYTE            MCS0
003D1E 4144 000F            0000F  4309+         LA    SCPR4,Q15(SCPR4) CLEAR X'F' FROM X'FR'           MCS0
003D22 4130 0080            00080  4310+         LA    SCPR3,X80 PUT SHIFT VALUE IN WORK REG     MCS0
003D26 8830 4000            00000  4311+         SRL   SCPR3,Q0(SCPR4) SHIFT RIGHT BY CONTENTS OF RCRG MCS0
003D2A 4230 D3FC            0663D  4312+         STC   SCPR3,HCPSTCHR STORE                           MCS0
003D2E D600 D3F9 D3FC 0663A 0663D  4313+         OC    ROUTCODE(Q1),HCPSTCHR TURN ON ROUT CODES 1 THRU 8   MCS0
003D34 47F0 B1AA            03CF0  4314+         B     HCPCOMTE RETURN TO TEST DELIMINATOR      MCS0
003D38                             4315+HCPORSWA EQU   * MCS0
003D38 95F1 6000      00000        4316+         CLI   Q0(SCPR6),X'F1' TEST FOR NOT A VALID ROUT CODE  MCS0
003D3C 4770 B044            03B8A  4317+         BNE   HCPYERR ERROR CONDITION                 MCS0
003D40 1B44                        4318+         SR    SCPR4,SCPR4 ZERO WORK REGISTER              MCS0
003D42 4346 0001            00001  4319+         IC    SCPR4,Q1(SCPR6) INSERT ROUTCODE                 MCS0
003D46 4144 0011            00011  4320+         LA    SCPR4,Q17(SCPR4) CLEAR X'F' FROM X'FR'           MCS0
003D4A 4130 0080            00080  4321+         LA    SCPR3,X80 PUT SHIFT VALUE IN WORK REG     MCS0
003D4E 8830 4000            00000  4322+         SRL   SCPR3,Q0(SCPR4) SHIFT RIGHT BY CONTENTS OF RCRG MCS0
003D52 4230 D3FC            0663D  4323+         STC   SCPR3,HCPSTCHR STORE MASK FOR NEXT INSTRUCTION MCS0
003D56 D600 D3FA D3FC 0663B 0663D  4324+         OC    ROUTCODE+Q1(Q1),HCPSTCHR TURN ON ROUT CODES 10-16   MCS0
003D5C 4166 0001            00001  4325+         LA    SCPR6,Q1(SCPR6) INCREMENT POINTER               MCS0
003D60 47F0 B1AA            03CF0  4326+         B     HCPCOMTE RETURN TO TEST DELIMINATOR      MCS0
                                   4327+*                                  HARDCOPY SUBROUTINE             MCS0
003D64                             4328+         CNOP  Q0,Q4
                                                                                                               PAGE  103


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4330+**  SUBROUTINE USED BY SYS1.SVCLIB,SYS1.LOGREC,AND SYS1.LINKLIB
                                   4331+************** DEB ININIALIZATION ROUTINES. IT INSERTS THE START CCHH
                                   4332+**             THE END CCHH, AND TOTAL TRACKS FOR THE DATA SET, AND
                                   4333+**             THE UCB ADDRESS INTO THE CORRESPONDING DEB.
                                   4334+**       INPUT: REGISTER 1 = LINKLIB DCB ADDRESS (NOT CNCALL)
                                   4335+**              IEATRPCL = TRACKS PER CYLINDER(NOT CNCALL, NOT TEMPDEB)
                                   4336+**              IEADSTNM = 44 BYTE DSNAME (MVCALL)
                                   4337+**              IEAVOLAB = 6 BYTE VOLSERNO (MVCALL)
                                   4338+**       OUTPUT: DEB FIELDS ARE INITIALIZED
                                   4339+**               DCB POINTS TO DEB
003D64                             4340+         USING *,R11 ESTABLISH ADDRESSABILITY        MXMV
000000                             4341+         USING DCBDSECT,R1
003D64 900E B278            03FDC  4342+DEBCOMON STM   R0,R14,TEMPSAVE SAVE REGS                       MXMV
003D68 9140 D52B      0676C        4343+         TM    IEASWITC,CNCALL TEST FOR C.N. ENTRY POINT       MXMV
003D6C 4710 B222            03F86  4344+         BO    IEACOMMV YES, BRANCH                 MXMV
003D70 9138 D52B      0676C        4345+         TM    IEASWITC,DBMVCALL TEST FOR SINGLE EXTENT DEB  MXMV
003D74 4780 B07A            03DDE  4346+         BZ    DEBSIO1 YES, BRANCH TO READ IN DSCB MXMV
003D78 5820 D247            06488  4347+         L     R2,IEANUCND R2 = PTR TO NUCLEUS BUFFER MXMV
003D7C 9108 D52B      0676C        4348+         TM    IEASWITC,MVCALL TEST FOR MULTIPLE VOLUMES  MXMV
003D80 4710 B062            03DC6  4349+         BO    DEBMVIO1 YES, BRANCH TO SET DEB BASE MXMV
                                   4350+* CONSTRUCT DEB PROPER IN NUCLEUS BUFFER                           MXMV
003D84 4130 0003            00003  4351+         LA    R3,Q3 ROUND ADDRESS               MXMV
003D88 1A23                        4352+         AR    R2,R3 IN NUCLEUS BUFFER       MXMV
003D8A 1623                        4353+         OR    R2,R3 TO THE HIGHER       MXMV
003D8C 1723                        4354+         XR    R2,R3 FULLWORD BDRY   MXMV
003D8E 5850 B274            03FD8  4355+         L     R5,DEBSIZE R5 = CORE SIZE FOR CLEARING MXMV
003D92 4450 B262            03FC6  4356+         EX    R5,DEBZCORE EXECUTE TO CLEAR DEB CORE   MXMV
003D96 4132 0024            00024  4357+         LA    R3,DEBPFXSZ(R2) R3 = PTR TO DEB PROPER     MXMV
003D9A 5030 B270            03FD4  4358+         ST    R3,DEBADSAV ALIGN PTR TO DEB PROPER     MXMV
003D9E D202 102D B271 0002D 03FD5  4359+         MVC   DCBDEBAD(L'DCBDEBAD),DEB3ADR MOVE DEB ADDR TO DCB  MXMV
003DA4 5020 B270            03FD4  4360+         ST    R2,DEBADSAV SAVE DEB ADDR FOR M-V POSS  MXMV
003DA8 5010 203C            0003C  4361+         ST    R1,DEBDCBAD INITIALIZE DEB -DCB PTR    MXMV
003DAC 920F 203C      0003C        4362+         MVI   DEBDCBAD,DEBKEYID -PROTECT KEY MXMV
003DB0 D202 2041 C624 00041 05865  4363+         MVC   DEBAPPAD,ADAPNDG -I/O APPENDAGE ADDR     MXMV
003DB6 9204 2040      00040        4364+         MVI   DEBEXSCL,DEBDASCL - EXTENT SCALE          MXMV
003DBA 9120 D52B      0676C        4365+         TM    IEASWITC,TEMPDEB TEST FOR TEMPORARY DEB ONLYMXMV
003DBE 4710 B1BA            03F1E  4366+         BO    DEBEXIT YES, RETURN TO CALLER       MXMV
003DC2 47F0 B07A            03DDE  4367+         B     DEBSIO1 BRANCH TO READ DSCB        MXMV
003DC6 4130 0004            00004  4368+DEBMVIO1 LA    R3,FORMAT1 R3 = CODE FOR F1 DSCB      MXMV
003DCA 4540 C153            05394  4369+         BAL   R4,IEAOBTAN LINK TO OBTAIN SUBRTN      MXMV
003DCE 12FF                        4370+         LTR   R15,R15 TEST RETURN CODE           MXMV
003DD0 4770 B1BA            03F1E  4371+         BNZ   DEBEXIT BRANCH IF OBTAIN FAILED     MXMV
003DD4 18FA                        4372+         LR    R15,R10 R15 = DSCB ADDRESS         MXMV
003DD6 5B20 B274            03FD8  4373+         S     R2,DEBSIZE SET BASE REG FOR NEW INDEX  MXMV
003DDA 47F0 B0C8            03E2C  4374+         B     DEBXTNTM BRANCH TO INITIALIZE DEB   MXMV
003DDE D203 0048 C46B 00048 056AC  4375+DEBSIO1  MVC   CAW(Q4),IEADSLST SET CAW FOR DSCB FIND      MXMV
003DE4 D203 D453 D459 06694 0669A  4376+         MVC   IEASKADR+2(Q4),IEAVTOC -SEEK FOR VTOC         MXMV
003DEA D204 D45E D459 0669F 0669A  4377+         MVC   IEASRADR(Q5),IEAVTOC -SEARCH FOR 1ST VTOC RCDMXMV
003DF0 92FF D513      06754        4378+         MVI   MSRSW,XFF .              MULTIPLE CYLINDER        A33607
003DF4 4550 C29F            054E0  4379+         BAL   R5,IEASTRIO LINK TO READ CORRECT DSCB  MXMV
003DF8 9200 D513      06754        4380+         MVI   MSRSW,0 .                CLEAR SWITCH             A33607
003DFC 41F0 CFF7            06238  4381+         LA    R15,IEABUFER R15 = PTR TO BUFFER W/ DSCBMXMV
003E00 9118 D52B      0676C        4382+         TM    IEASWITC,MXMVCALL TEST FOR SINGLE EXTENT ONLYMXMV
003E04 4770 B0C0            03E24  4383+         BNZ   DEBXTNT1 NO, BRANCH TO CALC EXTENTS MXMV
003E08 D202 B271 102D 03FD5 0002D  4384+         MVC   DEB3ADR(Q3),DCBDEBAD ALIGN DEB ADDRESS           MXMV
                                                                                                               PAGE  104


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4385+         DROP  R1
003E0E 5820 B270            03FD4  4386+         L     R2,DEBADSAV R2 = BASE FOR PROVIDED DEB  MXMV
003E12 4180 0024            00024  4387+         LA    R8,DEBPFXSZ R8 = DEB PREFIX FACTOR      MXMV
003E16 1B28                        4388+         SR    R2,R8 DECREMENT BASE FOR DSECT MAPMXMV
003E18 4180 0001            00001  4389+         LA    R8,1 SET LOOP CTR FOR 1 EXTENT  MXMV
003E1C 4280 B2B6            0401A  4390+         STC   R8,DEBNXSAV SET NO.EXTENTS TO 1         MXMV
003E20 47F0 B0E0            03E44  4391+         B     DEBNXTNT BRANCH TO INITIALIZE CCHHR MXMV
003E24 5820 B270            03FD4  4392+DEBXTNT1 L     R2,DEBADSAV REFRESH DEB BASE REG       MXMV
003E28 9200 B2B7      0401B        4393+         MVI   DEBCNINX,Q0 ZERO C.N. INDEX FOR THIS DS MXMV
003E2C 1B88                        4394+DEBXTNTM SR    R8,R8 CLEAR LOOP CT REG           MXMV
003E2E 438F 000F            0000F  4395+         IC    R8,DSCBXTNT(R15) R8 = NUMBER OF DS EXTENTS  MXMV
003E32 4280 B2B6            0401A  4396+         STC   R8,DEBNXSAV SAVE THE NO OF EXTENTS      MXMV
003E36 9504 F00F      0000F        4397+DEBACYL  CLI   DSCBXTNT(R15),Q4 TEST FOR MORE THAN 3 XTNTS MXMV
003E3A 4740 B0E0            03E44  4398+         BL    DEBNXTNT NO, BRANCH TO FILL IN DEB  MXMV
003E3E 1808                        4399+         LR    R0,R8 SAVE TOTAL EXTENTS IN R0   MXMV
003E40 4180 0003            00003  4400+         LA    R8,3 SET LOOP CTR FOR 3 EXTENTS MXMV
003E44 41FF 003D            0003D  4401+DEBNXTNT LA    R15,Q61(R15) INCREMENT IEABUFER PTR FOR SUBRTNS   MXMV
003E48 4590 B1C2            03F26  4402+DEBCCHH  BAL   R9,DEBCALC1 LINK TO INITIALIZE EXTENT   MXMV
003E4C 4680 B0E4            03E48  4403+         BCT   R8,DEBCCHH LOOP UNTIL DEB XTNTX=DCB XTNTSMXMV
003E50 9504 B2B6      0401A        4404+         CLI   DEBNXSAV,Q4 TEST FOR FURTHER EXTENTS        MXMV
003E54 4740 B164            03EC8  4405+         BL    DEBNDSET NO BRANCH TO COMPLETE DEB  MXMV
003E58 4180 0003            00003  4406+         LA    R8,3 R8 = EXTENTS COMPLETED     MXMV
003E5C 1B08                        4407+         SR    R0,R8 DECREMENT TOTAL DS EXTENTS MXMV
003E5E 1880                        4408+         LR    R8,R0 R8 = EXTENTS REMAINING     MXMV
003E60 9108 D52B      0676C        4409+         TM    IEASWITC,MVCALL TEST FOR MULTI VOLUME       MXMV
003E64 47E0 B122            03E86  4410+         BNO   DEBSIO2 NO, BRANCH TO USE SIO       MXMV
003E68 D204 CFBE F000 061FF 00000  4411+         MVC   IEA5BYTE(Q5),Q0(R15) SET UP F3 CCHHR FOR SUBRTN  MXMV
003E6E 4540 C16B            053AC  4412+         BAL   R4,IEAFREOB LINK TO FREE F1 DSCB CORE       MXMV
003E72 1B33                        4413+         SR    R3,R3 R3 = CODE FOR F3 DSCB      MXMV
003E74 4540 C153            05394  4414+         BAL   R4,IEAOBTAN LINK TO OBTAIN SUBRTN      MXMV
003E78 12FF                        4415+         LTR   R15,R15 TEST RETURN CODE           MXMV
003E7A 4770 B1BA            03F1E  4416+         BNZ   DEBEXIT BRANCH IF OBTAIN FAILED     MXMV
003E7E 41FA 0004            00004  4417+         LA    R15,DSCB3XTN(R10) R15 = 1ST EXTENT DESCRIPTIONMXMV
003E82 47F0 B150            03EB4  4418+         B     DEBCCHH2 BRANCH TO INITIALIZE XTENTS MXMV
003E86 D203 D453 F000 06694 00000  4419+DEBSIO2  MVC   IEASKADR+Q2(Q4),Q0(R15) SET SEEK FOR VTOC           MXMV
003E8C D204 D45E F000 0669F 00000  4420+         MVC   IEASRADR(Q5),Q0(R15) -SEARCH FOR FMT 3 DSCB   MXMV
003E92 4310 C716            05957  4421+         IC    R1,IEALBLSR+23 SAVE BYTES TO READ IN           MXMV
003E96 928C C716      05957        4422+         MVI   IEALBLSR+23,X'8C' STORE NO. BYTES TO READ IN CCW  MXMV
003E9A 920E C70F      05950        4423+         MVI   IEALBLSR+16,X'0E' SET CCW TO READ KEY AND DATA    MXMV
003E9E D203 0048 C46F 00048 056B0  4424+         MVC   CAW(Q4),IEALBLST SET CAW TO FIND F3 DSCB     MXMV
003EA4 4550 C29F            054E0  4425+         BAL   R5,IEASTRIO READ IN DSCB                    MXMV
003EA8 4210 C716            05957  4426+         STC   R1,IEALBLSR+23 RESTORE READ IN COUNT           MXMV
003EAC 9206 C70F      05950        4427+         MVI   IEALBLSR+16,X'06' SET CCW TO READ DATA            MXMV
003EB0 41F0 CFFB            0623C  4428+         LA    R15,IEABUFER+DSCB3XTN R15 = 1ST XTENT DESCRIPTION MXMV
003EB4 95F3 F000      00000        4429+DEBCCHH2 CLI   Q0(R15),DSCBF3 TEST FOR FORMAT 3 BYTE      MXMV
003EB8 4770 B15C            03EC0  4430+         BNE   DEBCCH21 NO, BRANCH TO CONTINUE      MXMV
003EBC 41FF 0001            00001  4431+         LA    R15,Q1(R15) INDEX PAST FLAG BYTE        MXMV
003EC0 4590 B1C2            03F26  4432+DEBCCH21 BAL   R9,DEBCALC1 LINK TO INITIALIZE EXTENT   MXMV
003EC4 4680 B150            03EB4  4433+         BCT   R8,DEBCCHH2 LOOP UNTIL DEB XTNTS=DCB XTNTSMXMV
003EC8 9138 D52B      0676C        4434+DEBNDSET TM    IEASWITC,DBMVCALL TEST FOR SINGLE EXTENT DEB  MXMV
003ECC 4780 B1BA            03F1E  4435+         BZ    DEBEXIT YES, EXIT RTN               MXMV
003ED0 5A20 B274            03FD8  4436+         A     R2,DEBSIZE R2 = PTR TO END OF DEB      MXMV
003ED4 5020 D247            06488  4437+         ST    R2,IEANUCND UPDATE NUC BUFFER ADDR      MXMV
003ED8 1882                        4438+         LR    R8,R2 R8 = PTR TO END OF DEB      MXMV
003EDA 5820 B270            03FD4  4439+         L     R2,DEBADSAV R2 = DEB BASE               MXMV
                                                                                                               PAGE  105


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003EDE 1B82                        4440+         SR    R8,R2 R8 = DEB LENGTH IN BYTES    MXMV
003EE0 8880 0003            00003  4441+         SRL   R8,3 RESET REG 8 TO DEB LENGTH   MXMV
003EE4 4188 0001            00001  4442+         LA    R8,Q1(R8) IN DOUBLE WORDS        MXMV
003EE8 4280 2020            00020  4443+         STC   R8,DEBLNGTH AND STORE IN DEB PREFIX     MXMV
003EEC 1B99                        4444+         SR    R9,R9 CLEAR C.N. EXTENT INDEX REG MXMV
003EEE 1B88                        4445+         SR    R8,R8 CLEAR ADD REG               MXMV
003EF0 4390 2034            00034  4446+         IC    R9,DEBNMEXT R9 = PREVIOUS DEB EXTENTS  MXMV
003EF4 4380 B2B6            0401A  4447+         IC    R8,DEBNXSAV R8 = ADDITIONAL EXTENTS     MXMV
003EF8 1A89                        4448+         AR    R8,R9 TOTAL EXTENT COUNT         MXMV
003EFA 4280 2034            00034  4449+         STC   R8,DEBNMEXT AND UPDATE DEB FIELD     MXMV
003EFE 9108 D52B      0676C        4450+         TM    IEASWITC,MVCALL TEST FOR MULTI-VOLUME REQ   MXMV
003F02 47E0 B1BA            03F1E  4451+         BNO   DEBEXIT NO, BRANCH TO EXIT FROM RTN MXMV
003F06 1B77                        4452+         SR    R7,R7 CLEAR REG TO INDEX TO C.N. INDICES MXMV
003F08 4370 B2B7            0401B  4453+         IC    R7,DEBCNINX R7 = INDEX TO C.N. INDICES  MXMV
003F0C 4297 B2B8            0401C  4454+         STC   R9,DEBCNSAV(R7) SET UP CURRENT C.N. INDEX   MXMV
003F10 4177 0001            00001  4455+         LA    R7,Q1(R7) INCREMENT NO OF C.N. INDICESMXMV
003F14 4270 B2B7            0401B  4456+         STC   R7,DEBCNINX AND PUT IN NIP'S SAVE AREA  MXMV
003F18 4540 C16B            053AC  4457+         BAL   R4,IEAFREOB LINK TO FREE DSCB CORE      MXMV
003F1C 1BFF                        4458+         SR    R15,R15 R15 = CODE FOR GOOD INIT    MXMV
003F1E 980E B278            03FDC  4459+DEBEXIT  LM    R0,R14,TEMPSAVE RESTORE REGISTERS           MXMV
003F22 18B0                        4460+         LR    R11,R0 R11 = MAINLINE BASE REG     MXMV
003F24 07FE                        4461+         BR    R14 RETURN TO CALLER            MXMV
003F26 D203 204A F002 0004A 00002  4462+DEBCALC1 MVC   DEBSTRCH(L'DEBSTRCH),DSCBSTCH(R15) DEB: START CCHH MXMV
003F2C D203 204E F006 0004E 00006  4463+         MVC   DEBENDCH(L'DEBENDCH),DSCBNDCH(R15) END CCHH   MXMV
003F32 4850 204A            0004A  4464+         LH    R5,DEBSTRCH R5 = START CC FOR EXTENT    MXMV
003F36 1B44                        4465+         SR    R4,R4 CLEAR MULTIPLY REG          MXMV
003F38 4870 D2C7            06508  4466+         LH    R7,IEATRPCL R7 = TRACKS/CYLINDER FOR DS MXMV
003F3C 1C47                        4467+         MR    R4,R7 CONVERT CYLINDERS TO TRACKS MXMV
003F3E 4A50 204C            0004C  4468+         AH    R5,DEBSTRHH ADD HH TO GET START IN TRKS MXMV
003F42 4840 204E            0004E  4469+         LH    R4,DEBENDCH R4 = END CC FOR EXTENT      MXMV
003F46 1B66                        4470+         SR    R6,R6 CLEAR MULTIPLY REGISTER     MXMV
003F48 1C64                        4471+         MR    R6,R4 CONVERT END CYLS TO TRKS    MXMV
003F4A 4A70 2050            00050  4472+         AH    R7,DEBENDHH ADD HH TO GET END IN TRACKS MXMV
003F4E 1B75                        4473+         SR    R7,R5 COMPUTE TOTAL TRACKS FOR    MXMV
003F50 4177 0001            00001  4474+         LA    R7,Q1(R7) EXTENT IN REG 7        MXMV
003F54 4070 2052            00052  4475+         STH   R7,DEBNMTRK SET TOTAL TRKS IN DEB       MXMV
003F58 D201 2046 D2D3 00046 06514  4476+         MVC   DEBUCBAD(L'DEBUCBAD),IEAUCBHL MOVE UCB ADDR TO DEB MXMV
003F5E 9200 2045      00045        4477+         MVI   DEBUCB3B,Q0 ZERO HIGH BYTE IN UCB ADDR         29782
003F62 9181 F000      00000        4478+N2303    TM    Q0(R15),DSCBXCYL TEST FOR CYLINDER COMPOSITION     29782
003F66 47E0 B20E            03F72  4479+         BNO   DEBTRKAL NO, ALLOCATION IS IN TRACKS     4199
003F6A 9210 2044      00044        4480+         MVI   DEBDVMOD,DEBMACYL YES, SET CYLINDER FILE MASK     4199
003F6E 47F0 B212            03F76  4481+         B     DEBNOTRK BRANCH AROUND TRACK ALLOCATION  4199
003F72 9218 2044      00044        4482+DEBTRKAL MVI   DEBDVMOD,DEBMATRK MOVE FILE MASK TO DEB         A33505
003F76 D701 2048 2048 00048 00048  4483+DEBNOTRK XC    DEBBINUM(L'DEBBINUM),DEBBINUM CLEAR DEB BIN FIELD   4199
003F7C 4122 0010            00010  4484+         LA    R2,DEBXTSZ(R2) UPDATE DEB BASE BY XTENT LNGTHMXMV
003F80 41FF 000A            0000A  4485+         LA    R15,DSCBXINX(R15) UPDATE INDEX TO DSCB        MXMV
003F84 07F9                        4486+         BR    R9 RETURN W/ EXTENT INITIALIZEDMXMV
003F86 1B77                        4487+IEACOMMV SR    R7,R7 CLEAR C.N. TEST REG         MXMV
003F88 5820 B270            03FD4  4488+         L     R2,DEBADSAV R2 = DEB BASE               MXMV
003F8C 4370 B2B7            0401B  4489+         IC    R7,DEBCNINX R7 = NO OF C.N. INDICES     MXMV
003F90 1277                        4490+         LTR   R7,R7 TEST FOR ANY DATA SET C.N.  MXMV
003F92 4780 B25E            03FC2  4491+         BZ    DEBCNXIT NO, RETURN TO MAINLINE NIP  MXMV
003F96 5880 D247            06488  4492+         L     R8,IEANUCND R8 = PTR TO END OF LAST DEB MXMV
003F9A 9201 202C      0002C        4493+         MVI   DEBOFLGS,DEBCNFLG SET DEB CONCATENATION BIT   MXMV
003F9E 4270 2028            00028  4494+         STC   R7,DEBAMLNG SET NO OF C.N. INDICES IN DEB   MXMV
                                                                                                               PAGE  106


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003FA2 1A87                        4495+         AR    R8,R7 INCREMENT END OF DEB PTR    MXMV
003FA4 5080 D247            06488  4496+         ST    R8,IEANUCND UPDATE NUCLEUS BUFFER PTR   MXMV
003FA8 1B87                        4497+         SR    R8,R7 RESET R8 TO END OF DEB      MXMV
003FAA 0670                        4498+         BCTR  R7,0 DECREMENT FOR EXECUTE       MXMV
003FAC 4470 B268            03FCC  4499+         EX    R7,DEBMVCNX EXECUTE TO PUT C.N. INDEX IN DEBMXMV
003FB0 5880 D247            06488  4500+         L     R8,IEANUCND R8 = END OF NUCLEUS ADDRES      DAR
003FB4 4110 0007            00007  4501+         LA    R1,Q7 * ROUND END                     DAR
003FB8 1A81                        4502+         AR    R8,R1 * OF NUCLEUS                    DAR
003FBA 1681                        4503+         OR    R8,R1 * TO A DOUBLE                   DAR
003FBC 1781                        4504+         XR    R8,R1 * WORD BOUNDARY                 DAR
003FBE 5080 D247            06488  4505+         ST    R8,IEANUCND RESET THE END OF THE NUCLEUS    DAR
003FC2 47F0 B1BA            03F1E  4506+DEBCNXIT B     DEBEXIT PREPARE TO EXIT                 MXMV
003FC6 D700 2000 2000 00000 00000  4507+DEBZCORE XC    Q0(Q0,R2),Q0(R2) CLEAR AREA IN NUC BUFFER    MXMV
003FCC D200 8000 B2B8 00000 0401C  4508+DEBMVCNX MVC   Q0(Q0,R8),DEBCNSAV MOVE C.N. INDEX TO END OF DEB MXMV
000002                             4509+DSCBSTCH EQU   2 MXMV
000006                             4510+DSCBNDCH EQU   6 MXMV
00000F                             4511+DSCBXTNT EQU   15 MXMV
000081                             4512+DSCBXCYL EQU   X'81' CYLINDER BOUND EXTENT           4199
000032                             4513+DSCBALOC EQU   50 ALLOCATION PARAMETERS-FMT1 MXMV
0000C0                             4514+DSCBACYL EQU   X'C0' ALLOCATION BY CYLINDERS    MXMV
000004                             4515+DSCB3XTN EQU   4 1ST EXTENT IN FMT3 DSCB     MXMV
00000A                             4516+DSCBXINX EQU   10 MXMV
0000F3                             4517+DSCBF3   EQU   X'F3' FORMAT 3 DSCB FLAG BYTE     MXMV
000004                             4518+FORMAT1  EQU   4 CODE FOR OBTAIN SUBRTN      MXMV
003FD2 0000
003FD4 00000000                    4519+DEBADSAV DC    F'0' ADDRESS OF LAST DEB BUILT  MXMV
003FD5                             4520+DEB3ADR  EQU   DEBADSAV+1 MXMV
003FD8 00000044                    4521+DEBSIZE  DC    A(DEBEND-DEBPREFX) DEB PROPER+DEB PREFIX SIZE  MXMV
003FDC                             4522+TEMPSAVE DS    15F IEACOMON SAVE AREA              MXMV
004018                             4523+         DS    X - UNUSED -                  MXMV
004019 00                          4524+DEBMASK  DC    X'00' SUBRTN SAVE FOR FILE MASK  MXMV
00401A 00                          4525+DEBNXSAV DC    X'00' SAVE FOR NO OF DS EXTENTS   MXMV
00401B 00                          4526+DEBCNINX DC    X'00' INDEX TO C.N. INDICES       MXMV
00401C 0000000000000000            4527+DEBCNSAV DC    4F'0' SAVE FOR M-V INDICES        MXMV
                                                                                                               PAGE  107


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4529+***                                                                I267
                                   4530+*   SUBROUTINE TO GET THE ALTERNATE PATHS TO A DEVICE.             I267
                                   4531+*   ENTRYPOINT IS SUBIOSGN (IEAIOSGN).                             I267
                                   4532+*   AT ENTRY- R6 = RETURN ADDRESS.                                 I267
                                   4533+*             IOPUCBMP CONTAINS ZEROS EXCEPT FOR THE UCB ADDRESS   I267
                                   4534+*                  IN THE FIRST WORD.                              I267
                                   4535+*   AT EXIT-  ALL REGISTERS REMAIN THE SAME.                       I267
                                   4536+*             IOPUCBMP CONTAINS A TWO BYTE ENTRY FOR EACH          I267
                                   4537+*                  AVAILABLE PATH, WITH A MAXIMUM OF FOUR          I267
                                   4538+*                  ENTRIES IN UNIPROCESSING.                       I267
                                   4539+***                                                                I267


000000                             4541+IOR0     EQU   0 I267
000001                             4542+IOR1     EQU   1 I267
000002                             4543+IOR2     EQU   2 I267
000003                             4544+IOR3     EQU   3 I267
000004                             4545+IOR4     EQU   4 I267
000005                             4546+IOR5     EQU   5 I267
000006                             4547+IOR6     EQU   6 I267
000007                             4548+IOR7     EQU   7 I267
000008                             4549+IOR8     EQU   8 I267
000009                             4550+IOR9     EQU   9 I267
00000A                             4551+IOR10    EQU   10 I267
00000B                             4552+IOR11    EQU   11 I267
00000C                             4553+IOR12    EQU   12 I267
00000D                             4554+IOR13    EQU   13 I267
00000E                             4555+IOR14    EQU   14 I267
00000F                             4556+IOR15    EQU   15 I267
00402C                             4557+         USING *,IOR11 I267
00402C                             4558+SUBIOSGN EQU   * I267
00402C 90FE D2F7            06538  4559+         STM   IOR15,IOR14,IOSAVE SAVE REGS ACROSS IOS MACRO   I267
004030 47F0 B03E            0406A  4560+         B     IECIM010 SKIP AROUND CONSTANTS
                                   4561+***********************************************************************
                                   4562+*        MACRO DEFINITION - MINIMUM PATH MAP FUNCTION OF IOSGNIP      *
                                   4563+*              THIS MACRO OWNED AND MAINTAINED BY  I O S  PERSONNEL,  *
                                   4564+*              USES A GIVEN UCB TO CONSRUCT AN EIGHT (8) BYTE TABLE   *
                                   4565+*              ENTRY TO CONVEY TO THE CALLER THE POSSIBLE PATHS TO A  *
                                   4566+*              DEVICE.                                                *
                                   4567+*                                                                     *
                                   4568+*              THIS CODE IS GENERATED WHEN 'IOSGNIP' IS INVOKED       *
                                   4569+*              BY NIP WHERE VARIABLES ARE SET ACCORDING TO THE FORMAT *
                                   4570+*              BELOW --                                               *
                                   4571+*        IOSGNIP &FUNC,&PARM,&REG,&VAR            ... WHERE --        *
                                   4572+*             &FUNC = MINIMAP                                         *
                                   4573+*             &PARM = A REGISTER CONTAINING THE ADDRESS OF A 2 WORD   *
                                   4574+*                     AREA IN WHICH THE MINIMAP OF AVAILABLE PATHS    *
                                   4575+*                     WILL BE BUILT.                                  *
                                   4576+*              &REG = A REGISTER CONTAINING THE ADDRESS OF THE UCB FOR*
                                   4577+*                     WHICH PATHS ARE TO BE DETERMINED.               *
                                   4578+*              &VAR = 0 FOR UNIPROCESSING, OR 1 FOR MULTIPROCESSING.  *
                                   4579+*                                                                     *
                                   4580+*        RESTRICTIONS/ASSUMPTIONS --                                  *
                                   4581+*              1)  IOSGNIP(MINIMAP) WILL EXPAND AS IN-LINE CODE.      *
                                   4582+*              2)  REGISTERS 11, 12, AND 13 ARE NOT AVAILABLE.        *
                                                                                                               PAGE  108


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4583+*                                                                     *
                                   4584+*              FOR A UNIPROCESSING SYSTEM, THIS ENTRY TAKES THE       *
                                   4585+*              FOLLOWING FORM --                                      *
                                   4586+*                                                                     *
                                   4587+*              *********************************************          *
                                   4588+*              * PRIMARY  * ALTERNATE* ALTERNATE* ALTERNATE*          *
                                   4589+*              *  DEVICE  *  ADDRESS *  ADDRESS *  ADDRESS *          *
                                   4590+*              *   ADDRESS*    ONE   *    TWO   *    THREE *          *
                                   4591+*              *********************************************          *
                                   4592+*              ..2 BYTES...                                           *
                                   4593+*              .................8 BYTES.....................          *
                                   4594+*                                                                     *
                                   4595+*        THE MACRO WILL PASS TWO RETURN CODES VIA REGISTER 15 --      *
                                   4596+*              0 = ALTERNATE PATHS WERE GENERATED FOR THIS DEVICE.    *
                                   4597+*              4 = NO ALTERNATE PATHS EXIST.                          *
                                   4598+*                                                                     *
                                   4599+***********************************************************************



                                   4601+***********************************************************************
                                   4602+*          R E G I S T E R    D E F I N I T I O N S                   *
                                   4603+***********************************************************************

000003                             4605+IECIMREG EQU   IOR3 UCB POINTER INPUT
000001                             4606+IECIMPRM EQU   IOR1 NIP WORKAREA POINTER INPUT
                                   4607+*
000001                             4608+IECIMW1  EQU   1 *
000002                             4609+IECIMW2  EQU   2 ** WORK REGISTERS
000003                             4610+IECIMW3  EQU   3 *
000004                             4611+IECIMW4  EQU   4 *
00000F                             4612+IECIMW15 EQU   15 *
000005                             4613+IECIMUCB EQU   5 UCB POINTER REGISTER
000006                             4614+IECIMNWA EQU   6 NIP WORKAREA PTR REGISTER
00000F                             4615+IECIMRC  EQU   15 RETURN CODE REGISTER 15


                                   4617+***********************************************************************
                                   4618+*          U C B    F L A G    D E F I N I T I O N S                  *
                                   4619+***********************************************************************

000001                             4621+IECIMALC EQU   1 UCB ALLOCATION CHANNEL MASK
000004                             4622+IECIMCHA EQU   4 UCB CHANNEL ADDRESS FIELD
000005                             4623+IECIMUAD EQU   5 UCB UNIT ADDRESS FIELD
000006                             4624+IECIMFLG EQU   6 UCB ACTIVITY FLAG 1 FIELD
00000A                             4625+IECIMLCI EQU   10 UCB LOGICAL CHANNEL INDEX
000001                             4626+IECIMAPS EQU   X'01' ALTERNATE PATH SWITCH SETTING


                                   4628+***********************************************************************
                                   4629+*          M I S C.   M A S K S   A N D   P O I N T E R S             *
                                   4630+***********************************************************************

000010                             4632+IECIMCVT EQU   16 POINTER TO CVT
00008C                             4633+IECIMLCH EQU   140 POINTER TO IOS LOGICAL CHAN TBL
                                                                                                               PAGE  109


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000006                             4634+IECIMTCC EQU   6 TEST CHANNEL CODE OFFSET
000001                             4635+IECIMACU EQU   1 ALTERNATE CU INDICATOR OFFSET
                                   4636+*                                       IN TEST CHANNEL PREFIX TABLE...
000008                             4637+IECIMPRP EQU   X'08' MASK FOR TCH PREFIX PRIMARY PTH
000004                             4638+IECIMAP1 EQU   X'04' PATH INDICATION FOR - ALTER 1
000002                             4639+IECIMAP2 EQU   X'02' ALTER 2
000001                             4640+IECIMAP3 EQU   X'01' ALTER 3
000000                             4641+IECIMNUL EQU   X'00' NULL MASK
000004                             4642+IECIMRC4 EQU   4 RETURN CODE FOR NO ALTERNATES
000002                             4643+IECIMNXT EQU   2 INCREMENT FOR TABLES
000000                             4644+IECIMMB1 EQU   0 OFFSET FOR --  FIRST
000002                             4645+IECIMMB2 EQU   2 *              SECOND
000004                             4646+IECIMMB3 EQU   4 *              THIRD
000006                             4647+IECIMMB4 EQU   6 *              FOURTH MAP BOXES
000080                             4648+IECIMBSY EQU   X'80' UCB DEVICE BUSY FLAG
000020                             4649+IECIMPST EQU   X'20' UCB POST FLAG
0000F0                             4650+IECIMPIM EQU   X'F0' ALTERNATE CU PATH MASK
000001                             4651+IECIMPIN EQU   1 ALTERNATE PATH DISCRIPTOR DISP.
00000F                             4652+IECIMBTM EQU   X'0F' BYTE ANDING MASK
004034                             4653+IECIMHWD DS    H HALFWORD WORKAREA
004034                             4654+IECIMBYT EQU   IECIMHWD ONE BYTE WORKAREA
004038                             4655+IECIMSA1 DS    F FIRST WORD OF SAVEAREA FOR &REG
00403C                             4656+IECIMSA2 DS    F SECOND WORD FOR &PARM...
004040 0000FFFF                    4657+IECIMHWM DC    X'0000FFFF' MASK TO ZERO TOP HALF WORD
004044 0000000F                    4658+IECIMABL DC    X'0000000F' MASK TO ZERO ALL BUT LOW 4 BITS

                                   4660+*                                       ALTERNATE MVC INSTRUCTIONS TO
004048                             4661+IECIMVC  DS    0H                    MOVE ENTRY TO MINIMAP FOR
004048 D201 6000 2000 00000 00000  4662+         MVC   IECIMMB1(2,IECIMNWA),0(IECIMW2) PRIMARY ADDRESS
00404E D201 6002 2000 00002 00000  4663+         MVC   IECIMMB2(2,IECIMNWA),0(IECIMW2) 1ST ALT ADDRESS
004054 D201 6004 2000 00004 00000  4664+         MVC   IECIMMB3(2,IECIMNWA),0(IECIMW2) 2ND ALT ADDRESS
00405A D201 6006 2000 00006 00000  4665+         MVC   IECIMMB4(2,IECIMNWA),0(IECIMW2) 3RD ALT ADDRESS

                                   4667+*                                       ALTERNATE INSTRUCTION OFFSETS -
004060 00                          4668+IECIMTAB DC    X'00' SLACK
004061 12                          4669+         DC    X'12' OFFSET FOR THIRD ALTERNATE
004062 0C                          4670+         DC    X'0C' OFFSET FOR SECOND ALTERNATE
004063 00                          4671+         DC    X'00' SLACK
004064 06                          4672+         DC    X'06' OFFSET FOR FIRST ALTERNATE
004065 000000                      4673+         DC    X'000000' SLACK
004068 00                          4674+         DC    X'00' OFFSET FOR PRIMARY MOVE INSTR.
00406A                             4675+         DS    0H ALIGN AFTER CONSTANTS....





00406A 5030 B00C            04038  4677+IECIM010 ST    IECIMREG,IECIMSA1 SAVE UCB INPUT ADDRESS
00406E 5010 B010            0403C  4678+         ST    IECIMPRM,IECIMSA2 STORE NIP WORKAREA INPUT ADDR.
004072 5850 B00C            04038  4679+         L     IECIMUCB,IECIMSA1 LOAD INTO WORKING REGISTER
004076 5860 B010            0403C  4680+         L     IECIMNWA,IECIMSA2 LOAD INTO ACTIVE WORK REGISTER.
00407A D707 6000 6000 00000 00000  4681+         XC    0(8,IECIMNWA),0(IECIMNWA) ZERO MAP ENTRY...
004080 9101 5001      00001        4682+         TM    IECIMALC(IECIMUCB),IECIMAPS Q.  IS THERE ALTERNATE PATH.
004084 4780 B0D8            04104  4683+         BZ    IECIM020 A.  NO, GO BUILD SINGLE ENTRY.
                                   4684+*
                                                                                                               PAGE  110


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004088 5810 0010            00010  4685+         L     IECIMW1,IECIMCVT A.  YES, GET CVT ADDRESS...
00408C 5811 008C            0008C  4686+         L     IECIMW1,IECIMLCH(IECIMW1) GET POINTER TO LOGICAL CHAN TB
004090 1B22                        4687+         SR    IECIMW2,IECIMW2 CLEAR WORKREG -
004092 4325 000A            0000A  4688+         IC    IECIMW2,IECIMLCI(IECIMUCB) GET LOGICAL CHANNEL INDEX...
004096 8920 0003            00003  4689+         SLL   IECIMW2,3 IECIMW2 = IECIMW2 * 8
00409A 4811 2006            00006  4690+         LH    IECIMW1,IECIMTCC(IECIMW1,IECIMW2) ADDR OF TEST CHAN CODE
00409E 5410 B014            04040  4691+         N     IECIMW1,IECIMHWM CLEAR HIGH ORDER HALFWORD...
0040A2 0610                        4692+         BCTR  IECIMW1,0 * BACKUP ON HALF WORD TO
0040A4 0610                        4693+         BCTR  IECIMW1,0 * POINT TO LCHTAB SUMMARY ENTRY
0040A6 1B22                        4694+         SR    IECIMW2,IECIMW2 CLEAR WORKREG, THEN
0040A8 4321 0000            00000  4695+         IC    IECIMW2,0(IECIMW1) PICK UP NUMBER OF PATHS...
0040AC 1832                        4696+         LR    IECIMW3,IECIMW2 COPY FOR LOOP ITERATION LIMIT
0040AE 4030 B008            04034  4697+         STH   IECIMW3,IECIMHWD AND AND SAVE...
0040B2 1A22                        4698+         AR    IECIMW2,IECIMW2 DOUBLE TO GET TABLE SPAN
0040B4 1322                        4699+         LCR   IECIMW2,IECIMW2 NEGATE VALUE...
0040B6 1A21                        4700+         AR    IECIMW2,IECIMW1 ADD TO GET POINTER TO TOP.
                                   4701+*   POINTERS NOW SET AT LIMITS OF TEST CHANNEL PREFIX TABLE _

0040B8 43F2 0001            00001  4703+IECIM030 IC    IECIMW15,IECIMACU(IECIMW2) PICK UP PATH INDICATOR
0040BC 54F0 B018            04044  4704+         N     IECIMW15,IECIMABL CLEAR ALL BUT LOW FOUR BITS
0040C0 43FF B034            04060  4705+         IC    IECIMW15,IECIMTAB(IECIMW15) PICK UP MVC INSTR. OFFSET
0040C4 440F B01C            04048  4706+         EX    0,IECIMVC(IECIMW15) EXECUTE SAME....

0040C8 4122 0002            00002  4708+         LA    IECIMW2,IECIMNXT(IECIMW2) POINT TO NEXT ELEMENT...
0040CC 4630 B08C            040B8  4709+         BCT   IECIMW3,IECIM030 LOOP THROUGH TCH PREFIX TABLE
                                   4710+*                                       1ST STAGE MINIMAP BUILT
0040D0 4830 B008            04034  4711+         LH    IECIMW3,IECIMHWD PICK UP NUMBER OF PATHS....

0040D4 1846                        4713+IECIM031 LR    IECIMW4,IECIMNWA COPY NIP WA ADDRESS
0040D6 91F0 4001      00001        4714+         TM    IECIMACU(IECIMW4),IECIMPIM Q.  IS ALTERNATE PATH C.U.
0040DA 4780 B0C4            040F0  4715+         BZ    IECIM040 A.  NO, GO FOR ALTERNATE CHN
                                   4716+*
0040DE D100 4001 5005 00001 00005  4717+IECIM035 MVN   IECIMMB1+1(1,IECIMW4),IECIMUAD(IECIMUCB) GET UNIT ADDR.
0040E4 4144 0002            00002  4718+         LA    IECIMW4,IECIMNXT(IECIMW4) BUMP TO NEXT ENTRY...
0040E8 4630 B0B2            040DE  4719+         BCT   IECIMW3,IECIM035 LOOP UNTIL ADDRESSES NORMALIZED
                                   4720+*
0040EC 47F0 B0D2            040FE  4721+         B     IECIM050 SKIP ALT. CHANNEL CODE...
                                   4722+*************************

0040F0 D200 4001 5005 00001 00005  4724+IECIM040 MVC   IECIMMB1+1(1,IECIMW4),IECIMUAD(IECIMUCB) GET UNIT ADDR.
0040F6 4144 0002            00002  4725+         LA    IECIMW4,IECIMNXT(IECIMW4) BUMP TO NEXT ENTRY...
0040FA 4630 B0C4            040F0  4726+         BCT   IECIMW3,IECIM040 LOOP UNTIL ADDRESSES NORMALIZED
                                   4727+*
0040FE 1BFF                        4728+IECIM050 SR    IECIMRC,IECIMRC SET RETURN CODE TO ZERO...
004100 47F0 B0E6            04112  4729+         B     IECIMMXT EXIT MACRO CODE....
                                   4730+*************************

004104 D201 6000 5004 00000 00004  4732+IECIM020 MVC   IECIMMB1(2,IECIMNWA),IECIMCHA(IECIMUCB) P/U DEVICE ADDR.
00410A 940F 6000      00000        4733+         NI    IECIMMB1(IECIMNWA),IECIMBTM ZERO TOP HALFBYTE OF ADDR.
                                   4734+*                                       ALTERNATE PATH ENTRIES REMAIN
                                   4735+*                                       ZERO TO REFLECT LACK OF SAME.
00410E 41F0 0004            00004  4736+         LA    IECIMRC,IECIMRC4 SET RETURN TO 4 FOR
                                   4737+*                                       NO ALTERNATE PATH INDICATION.
004112                             4738+IECIMMXT DS    0H EXIT THIS ROUTINE
004112 980E D2FB            0653C  4739+ASMAPRET LM    IOR0,IOR14,IOSAVE+Q4 RESTORE REGS                   I267
                                                                                                               PAGE  111


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004116 07F6                        4740+         BR    IOR6 RETURN                          I267
                                                                                                               PAGE  112


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4742+***
                                   4743+**  SUBROUTINE USED BY ANY ROUTINE TO DYNAMICALLY ACQUIRE / FREE   000D
                                   4744+**  REQUIRED STORAGE.  IF THE REQUESTED STORAGE IS NOT AVAILABLE   000D
                                   4745+**  AT THIS TIME, NIP PRINTS OUT THE DIAGNOSTIC "IEA216I  GETMAIN  000D
                                   4746+**  FAILED DURING INITIALIZATION " ON THE SYSTEM CONSOLE.          000D
                                   4747+**            ENTRY TO SUBROUTINE: R0 = NO. OF BYTES REQURIED      000D
                                   4748+**                                 R1 = 0 IF FREEMAIN              000D
                                   4749+**                                    = 4 IF GETMAIN               000D
                                   4750+**                                 GMADDR = CORE ADDR IF FREEMAIN  000D
                                   4751+**            EXIT FROM SUBROUTINE: R15 = 0 IF SUCCESSFUL GETMAIN  000D
                                   4752+**                                      = 4 IF UNSUCCESSFUL GETMAIN000D
                                   4753+**                                 GMADDR = CORE ADDR IF GETMAIN   000D
                                   4754+**                                        = 0 IF FREEMAIN          000D
                                   4755+***

004118                             4757+         USING *,R11
004118 902D D11F            06360  4758+SUBGMAIN STM   R2,R13,SAVEREF SAVE CALLERS REGS 2-13          MCS0
00411C 4120 D63B            0687C  4759+         LA    R2,GMADDR R2 = PTR TO GM/FM PARM      MCS0
004120 47F1 B00C            04124  4760+         B     *+4(R1) R1 = REQUEST TYPE          000D
004124 47F0 B03C            04154  4761+         B     IEAFREEM FREEMAIN ( R1=0 )          000D
004128 5000 B01C            04134  4762+         ST    R0,GETMAIN+GMLENGTH R0 = CORE SIZE REQUESTED   000D
00412C 5020 B020            04138  4763+         ST    R2,GETMAIN+GMADDPTR SET PTR FOR GM CORE ADDR    MCS0
004130                             4764+         CNOP  0,4
004130 4510 B026            0413E  4765+GETMAIN  BAL   1,*+14 BRANCH AROUND LIST
004134 00000000                    4766+         DC    A(0) LENGTH
004138 00000000                    4767+         DC    A(0) ADDR. OF ADDR. LIST
00413C 20                          4768+         DC    X'20' EC MODE
00413D 00                          4769+         DC    AL1(0) SUBPOOL VALUE
00413E 0A04                        4770+         SVC   4 ISSUE GETMAIN SVC
004140 12FF                        4771+         LTR   R15,R15 WAS REQUESTED CORE AVAIL   000D
004142 4780 B05A            04172  4772+         BC    8,IEAGMRET YES, RETURN WITH R15 = 0   000D
004146 D203 0048 C5E3 00048 05824  4773+         MVC   72(4),IEACGM NO, PUT OUT DIAGNOSTIC     000D
00414C 4550 C285            054C6  4774+         BAL   R5,IEACONSL WTO - GETMAIN FAILED            MCS0
004150 47F0 B05A            04172  4775+         B     IEAGMRET RETURN WITH R15 = 4        000D
004154 5000 B048            04160  4776+IEAFREEM ST    R0,FREEMAIN+FMLENGTH R0 = CORE SIZE FOR FREEMAIN000D
004158 5020 B04C            04164  4777+         ST    R2,FREEMAIN+FMADDPTR SET PTR FOR FM CORE ADD*    MCS0
00415C                             4778+         CNOP  0,4
00415C 4510 B052            0416A  4779+FREEMAIN BAL   1,*+14 BRANCH AROUND LIST
004160 00000000                    4780+         DC    A(0) LENGTH
004164 00000000                    4781+         DC    A(0) AREA LIST ADDRESS
004168 00                          4782+         DC    AL1(0) MODE BYTE
004169 00                          4783+         DC    AL1(0) SUBPOOL VALUE
00416A 0A05                        4784+         SVC   5 ISSUE FREEMAIN SVC
00416C D703 D63B D63B 0687C 0687C  4785+         XC    GMADDR(4),GMADDR RESTORE CORE ADDR TO ZERO   000D
004172 982D D11F            06360  4786+IEAGMRET LM    R2,R13,SAVEREF RESTORE REGISTERS          000D
004176 18BA                        4787+         LR    R11,R10 RESTORE NIP'S BASE              000E
004178 07F5                        4788+         BR    R5 RETURN                     000D
                                                                                                               PAGE  113


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4790+***                                                                MCS0
                                   4791+**  THIS IS A SUBROUTINE FOR THE RESIDENT BLDL ROUTINE, RESIDENT   MCS0
                                   4792+**  ACCESS METHODS, AND MULTIPLE VOLUME ROUTINE. IT'S FUNCTION IS  MCS0
                                   4793+**  TO FIND THE DESIGNATED LIST AND READ RECORDS OF THE LIST ONE   MCS0
                                   4794+**  AT A TIME. A SCAN IS PERFORMED TO DETERMINE THE LIBRARY ON     MCS0
                                   4795+**  WHICH THE MODULES RESIDE AND A POINTER IS PASSED. THE CALLING  MCS0
                                   4796+**  ROUTINE HAS ACCESS TO THE 1ST MODULE NAME.                     MCS0
                                   4797+***                                                                MCS0
00417A                             4798+         USING *,R11 RESET THE BASE FOR GETXT        MCS0
00417A 48A0 D2D5            06516  4799+GETTEXT  LH    R10,IEAIPL R10 = ADDR OF IPL-ED DEVICE     MCS0
00417E D205 D451 D847 06692 06A88  4800+         MVC   IEASKADR(Q6),PROCCCHH ADDR OF PARM IN SEEK ADDR   A33071
004184 4550 B0AE            04228  4801+         BAL   R5,IEAFNDTX GET THE CCHH R OF 1ST RECORD  A33071
004188 D203 D453 D8DF 06694 06B20  4802+GETLS    MVC   IEASKADR+Q2(Q4),IEASKRL SET CCHHR AT NEXT RECORD  A33071
00418E D204 D45E D8DF 0669F 06B20  4803+         MVC   IEASRADR(Q5),IEASKRL SET SEARCH ADDR ALSO         A33071
004194 92FF D518      06759        4804+         MVI   IEABSAMR,XFF SET SWITCH FOR NO RCD FND FIX A33071
004198 48A0 D2D5            06516  4805+         LH    R10,IEAIPL R10=ADDR OF SYSRES            A33071
00419C D203 0048 C533 00048 05774  4806+         MVC   Q72(Q4),IEAGTCAW SET CAW TO READ A LIST RECORD A33071
0041A2 92FF D513      06754        4807+         MVI   MSRSW,XFF SET MULTI SEARCH SW ON        A33071
0041A6 4550 C29F            054E0  4808+         BAL   R5,IEASTRIO READ A LIST RECORD
0041AA 9200 D513      06754        4809+         MVI   MSRSW,X'00' TURN OFF MULTI SEARCH SW
0041AE 9101 0044      00044        4810+         TM    CSWSTAT,CSWUE .          DID WE READ EOF         PTM4279
0041B2 4710 B07C            041F6  4811+         BO    GETOUT .                 YES, BRANCH             PTM4279
0041B6 4170 CFF7            06238  4812+         LA    7,IEABUFER R 7 = PNTR TO LIST RECORD
0041BA 9540 7000      00000        4813+IEASCANL CLI   0(7),C' ' SCAN THROUGH LEADING BLANKS
0041BE 4770 B058            041D2  4814+         BNE   IEALIBRY TEST IF LIBRARY FOUND
0041C2 4177 0001            00001  4815+         LA    7,1(7) UPDATE PNTR TO LIST RECORD
0041C6 5970 C543            05784  4816+         C     7,IEALMT TEST FOR END OF RECORD
0041CA 4740 B040            041BA  4817+         BC    4,IEASCANL CONTINUE TO SCAN BLANKS         MCS0
0041CE 18BE                        4818+         LR    R11,R14 R11 = MAINLINE BASE REG         MCS0
0041D0 07F3                        4819+         BR    R3 RETURN                          MCS0
0041D2 91FF D8B0      06AF1        4820+IEALIBRY TM    IEASETL,X'FF' TEST FOR LIBRARY FOUND          MCS0
0041D6 4710 B092            0420C  4821+         BC    1,IEA9RTRN YES - RETURN                    MCS0
0041DA 9108 D52B      0676C        4822+         TM    IEASWITC,MVCALL TEST FOR M-V RTN ACTIVE     MXMV
0041DE 4710 B08E            04208  4823+         BO    IEAMVFND YES,GO TO M-V RTN               000E
0041E2 D50B 7000 DA12 00000 06C53  4824+         CLC   0(12,7),IEALNKNM NO-TEST IF THIS IS LINKLIB
0041E8 4780 B080            041FA  4825+         BE    IEALINKL YES SET PNTR TO LINKLIB DCB
0041EC D50A 7000 DA07 00000 06C48  4826+         CLC   0(11,7),IEASVCNM NO- TEST IF THIS IS SVCLIB
0041F2 4780 B096            04210  4827+         BE    IEASVCLB YES-SET SVCLIB DCB
0041F6 18BE                        4828+GETOUT   LR    R11,R14 .                RESTORE BASE REG
0041F8 07F4                        4829+         BR    R4 .                     INVALID LIST FORMAT
0041FA 1B11                        4830+IEALINKL SR    1,1 INDICATE SYSTEM LIBRARY
0041FC 92FF D8B0      06AF1        4831+         MVI   IEASETL,X'FF' SET LIBRARY FOUND INDICATOR
004200 4177 000C            0000C  4832+         LA    7,12(7) UPDATE PNTR PAST LIBNAME
004204 47F0 B040            041BA  4833+         B     IEASCANL SCAN THROUGH BLANKS FOR NAME
004208 92FF D8B0      06AF1        4834+IEAMVFND MVI   IEASETL,X'FF' SET LIBRARY FOUND SWITCH        000E
00420C 18BE                        4835+IEA9RTRN LR    R11,R14 R11 = MAINLINE BASE REG         MCS0
00420E 07F9                        4836+         BR    R9 RETURN TO USER                  000E
004210 5810 0010            00010  4837+IEASVCLB L     1,16 R 1 = PNTR TO CVT
004214 5811 0054            00054  4838+         L     1,CVTSVDCB(1) R 1 = PNTR TO SVCLIB DCB
004218 92FF D8B0      06AF1        4839+         MVI   IEASETL,X'FF' SET LIBRARY FOUND SWITCH
00421C 4177 000B            0000B  4840+         LA    7,11(7) UPDATE PNTR PAST LIBNAME
004220 47F0 B040            041BA  4841+         B     IEASCANL SCAN BLANKS TO MODULE NAME
004224 47F0 B092            0420C  4842+         B     IEA9RTRN RETURN TO REQUESTOR             MCS0
                                                                                                               PAGE  114


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4844+***                                                                MCS0
                                   4845+**  THIS ROUTINE FINDS THE APPROPRIATE POD RECORD, DETERMINES THE  MCS0
                                   4846+**  TTR OF THE 1ST RECORD OF THE MODULE, TESTS THE TRACK CONDITION MCS0
                                   4847+**  AND PASSES THE ABSOLUTE TTR TO THE CALLING ROUTINE.            MCS0
                                   4848+***                                                                MCS0
004228 902D D11F            06360  4849+IEAFNDTX STM   R2,R13,SAVEREF SAVE REGS                       MCS0
00422C D203 0048 C54B 00048 0578C  4850+         MVC   72(4),BHLSTPTR SET UP CAW
004232 92FF D513      06754        4851+         MVI   MSRSW,X'FF' SET  MULTI SEARCH SW ON
004236 4550 C29F            054E0  4852+         BAL   5,IEASTRIO READ THE POD RECORD
00423A 9200 D513      06754        4853+         MVI   MSRSW,X'00' SET  MULTI SEARCH SW OFF
00423E 4160 CFF9            0623A  4854+         LA    6,IEABUFER+2 R6 POINTS TO FIRST KEY
004242 D507 6000 D8D3 00000 06B14  4855+KEYSCAN  CLC   0(8,6),ERDNAMES COMPARE FOR EQUAL KEY
004248 4770 B122            0429C  4856+         BNE   NEXTKEY NOT THIS ONE TRY NEXT
00424C 1B33                        4857+         SR    3,3 CLEAR REG 3
00424E 1B44                        4858+         SR    4,4 CLEAR REG 4
004250 1B55                        4859+         SR    5,5 CLEAR REG 5
004252 91FF D517      06758        4860+         TM    IEATXTRQ,X'FF' TEST FOR SER REQUEST
004256 4780 B0F2            0426C  4861+         BC    8,IEANOSR1 NO GET CC HH OF 1ST RECORD
00425A D200 D8E3 600E 06B24 0000E  4862+         MVC   IEASKRL+4(1),14(6) YES SAVE R OF 1ST RECORD
004260 4856 000C            0000C  4863+         LH    5,12(6) R 5 = TT OF 1ST TEXT RECORD
004264 9200 D517      06758        4864+         MVI   IEATXTRQ,X'00' TURN OFF SER REQUEST SWITCH
004268 47F0 B0FC            04276  4865+         B     IEANOSR2 CONTINUE TO CONVERT TTR
00426C D200 D8E3 600A 06B24 0000A  4866+IEANOSR1 MVC   IEASKRL+4(1),10(6) SAVE R OF 1ST MODULE RECOED
004272 4856 0008            00008  4867+         LH    5,8(6) R 5 = TT OF 1ST MODULE RECORD
004276 4860 D2CB            0650C  4868+IEANOSR2 LH    R6,PRMTRPCL R6 = PARMLIB TRACKS/CYL     PARM
00427A 4830 D8D1            06B12  4869+         LH    3,IEASKRK+2 R 3 = ABSOLUTE HH OF DATA SET
00427E 1A53                        4870+         AR    5,3 ADD REL HH TO ABSOLUTE HH
004280 1D46                        4871+         DR    4,6 DIVIDE CC TO GET TRACKS
004282 4830 D8CF            06B10  4872+         LH    3,IEASKRK R 3 = ABSOLUTE CC OF DATA SET
004286 1A53                        4873+         AR    5,3 ADD REL CC TO ABSOLUTE CC
004288 4050 D8DF            06B20  4874+         STH   5,IEASKRL SAVE CC OF FIRST RECORD
00428C 4050 D453            06694  4875+         STH   5,IEASKADR+2 SAVE CC OF TXT RCD FOR TRK TEST
004290 4040 D8E1            06B22  4876+         STH   4,IEASKRL+2 SAVE HH OF FIRST RECORD
004294 4040 D455            06696  4877+         STH   4,IEASKADR+4 SAVE HH OF TXT RCD FOR TRK TEST
004298 47F0 B162            042DC  4878+         B     ENDSER PROCEED
00429C 1B22                        4879+NEXTKEY  SR    2,2 CLEAR REG 2
00429E 4826 000A            0000A  4880+         LH    2,10(6) R2 HAS H/WORDS IN FIELD FOUR
0042A2 5420 D8DB            06B1C  4881+         N     2,VARDATAL ISOLATE THE LENGTH
0042A6 8920 0001            00001  4882+         SLL   2,1 ADJUST TO BYTE LNG
0042AA 4122 000C            0000C  4883+         LA    2,12(2) ADD LENGTH OF STANDARD PORTION
0042AE 1A62                        4884+         AR    6,2 ACCUMULATE LOGICAL RCDS
0042B0 5960 C553            05794  4885+         C     6,LIMITBLK IS BLOCK RCD EXHAUSTED
0042B4 4740 B0C8            04242  4886+         BL    KEYSCAN NOT THROUGH, TEST THIS KEY
0042B8 D207 CA4F D8D3 05C90 06B14  4887+IEANOFND MVC   SMBNAM(8),ERDNAMES SET MEMBER NAME IN MESSAGE
0042BE D203 0048 C54F 00048 05790  4888+         MVC   72(4),WARNING MSG TO OP - NOT FOUND
0042C4 94BF D52A      0676B        4889+         NI    IEASWITB,255-LSTXSWIT ALLOW HC OF MESSAGES          MCS0
0042C8 4550 C285            054C6  4890+         BAL   R5,IEACONSL PROCEED                         MCS0
0042CC 9640 D52A      0676B        4891+         OI    IEASWITB,LSTXSWIT SET EXCLUDE LIST SWITCH           MCS0
0042D0 9200 D517      06758        4892+         MVI   IEATXTRQ,X'00' TURN OFF SWITCH
0042D4 982D D11F            06360  4893+         LM    R2,R13,SAVEREF RESTORE REGS                   000E
0042D8 18BE                        4894+         LR    R11,R14 RESTORE BASE REG                MCS0
0042DA 07F8                        4895+         BR    8 RETURN TO FAILURE ROUTINE
0042DC D203 0048 C473 00048 056B4  4896+ENDSER   MVC   72(4),IEAROLST SET CAW TO TEST TRK
0042E2 4550 C29F            054E0  4897+         BAL   5,IEASTRIO USE R0 ADDR
0042E6 D203 D8DF D453 06B20 06694  4898+         MVC   IEASKRL(4),IEASKADR+2 SAVE GOOD ADDR
                                                                                                               PAGE  115


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0042EC 982D D11F            06360  4899+         LM    R2,R13,SAVEREF RESTORE REGS                   000E
0042F0 07F5                        4900+         BR    R5 RETURN TO CALLER                000E
                                                                                                               PAGE  116


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4902+***                                                                MCS0
                                   4903+*                                                                  MCS0
                                   4904+* SUB-ROUTINE USED FOR I/O OPERATIONS AND CHECKING FOR             MCS0
                                   4905+* SUCCESSFUL COMPLETION                                            MCS0
                                   4906+*                                                                  MCS0
                                   4907+***                                                                MCS0
0042F2 0700                        4908+         CNOP  0,4
0042F4                             4909+         USING *,R11 *       ADDR REG FOR I/O RTN                  MCS0
0042F4 48A0 D2E1            06522  4910+IEACON00 LH    R10,IEAUNIT+Q2 *    R10=CONSOL INPUT ADDR           MCS0
0042F8 900F D4B7            066F8  4911+         STM   R0,R15,TPCSAVE
0042FC 9620 D527      06768        4912+         OI    IEASWITA,IOCONSIN SET INPUT SWITCH                  MCS0
004300 47F0 B0F4            043E8  4913+         B     SWTONHC
004304 48A0 D2DF            06520  4914+IEACON01 LH    R10,IEAUNIT R10=CONSOL OUTPUT ADDR
004308                             4915+SWTOREAD EQU   * MCS0
000000                             4916+SMBR0    EQU   0 WORK REG - TIME REG             MCS0
000001                             4917+SMBR1    EQU   1 WORK REG - BUFFER INDEX         MCS0
000002                             4918+SMBR2    EQU   2 WORK REG - MSG ADDRESS          MCS0
000003                             4919+SMBR3    EQU   3 WORK REG - MSG LENGTH           MCS0
000004                             4920+SMBR4    EQU   4 WORK REG - CCW ADDRESS          MCS0
000006                             4921+SMBR6    EQU   6 WORK REG - SAVE BUFFER PNTR     MCS0
000008                             4922+SMBR8    EQU   8 SAVE REG - FOR CAW IF SQS BUFFER FULLMMCS0
004308 900F D4B7            066F8  4923+         STM   R0,R15,TPCSAVE SAVE REGS                      MCS0
00430C 9150 D52A      0676B        4924+SWTOHC   TM    IEASWITB,NOHARDSW TEST FOR NO HC FUNCTION         MCS0
004310 4770 B0F4            043E8  4925+         BNZ   SWTONHC YES,BYPASS MSG HARDCOPY               MCS0
004314 5840 0048            00048  4926+         L     SMBR4,CAW .         POINTER TO CCW                  MCS0
004318 1B33                        4927+         SR    SMBR3,SMBR3 CLEAR REG 3                     MCS0
00431A 4334 0007            00007  4928+         IC    SMBR3,WTOLNTH(SMBR4) R3 = MSG LENGTH               MCS0
00431E 9101 D3FB      0663C        4929+         TM    CPYCMDS,UCMSYSH TEST FOR TIMER                  MCS0
004322 47E0 B03C            04330  4930+         BNO   SWTONTMR NONE, BYPASS TIME MACRO         MCS0
004326 4110 0002            00002  4931+         LA    1,2(0,0) LOAD 1 TO SPECIFY UNIT
00432A 0A0B                        4932+         SVC   11 ISSUE TIME SVC
00432C 5000 D253            06494  4933+         ST    SMBR0,PACKED STORE TIME OF DAY               MCS0
004330 5810 D417            06658  4934+SWTONTMR L     SMBR1,HCBUFADR .    POINTER TO MSG BUFFER           MCS0
004334 1861                        4935+         LR    SMBR6,SMBR1 MCS0
004336 4123 1011            00011  4936+         LA    SMBR2,HCMSGPFS+Q1(SMBR3,SMBR1) MCS0
00433A 5920 D41B            0665C  4937+         C     SMBR2,HCBUFLNT .    DOES MESSAGE FIT                MCS0
00433E 47D0 B092            04386  4938+         BNH   SWTOHFIT YES, BRANCH TO SET UP HC MSG    MCS0
004342 9610 D52A      0676B        4939+         OI    IEASWITB,HCPXSWIT DISALLOW FURTHER HARDCOPY       MCS0
004346 5880 0048            00048  4940+         L     SMBR8,CAW R8 = CAW OF LAST CONSOLE I/O          MCS0
00434A D203 0048 C4CB 00048 0570C  4941+         MVC   CAW(Q4),SMBSQCAW PREPARE FOR SQS BUFFER FULL MSG    MCS0
004350 48A0 D2DF            06520  4942+         LH    R10,IEAUNIT R10 = OUTPUT CONSOLE ADDR             MCS0
004354 9118 D527      06768        4943+         TM    IEASWITA,OPEJSWIT TEST FOR 220C OR 2740             MCS0
004358 4780 B07E            04372  4944+         BZ    SMBSQREG REGULAR SIO                           MCS0
00435C 5870 C5F7            05838  4945+         L     R7,IEAXCP68 ADDR OF CONTROL BLOCK AREA            MCS0
004360 5070 D503            06744  4946+         ST    R7,TPGRPARM+12 STORE INTO PARAMETER LIST            MCS0
004364 5870 C5FB            0583C  4947+         L     R7,ADNIP545 R7 = ADDR OF NIP5450                  MCS0
004368 4110 D4F7            06738  4948+         LA    R1,TPGRPARM R1 = ADDR OF PARM LIST                MCS0
00436C 05F7                        4949+         BALR  R15,R7 BR TO 5450                            MCS0
00436E 47F0 B082            04376  4950+         B     SMBSQODD BR AROUND REG IO RTN                  MCS0
004372 4550 B142            04436  4951+SMBSQREG BAL   R5,IEACON02 WRITE THE MESSAGE                     MCS0
004376 5080 0048            00048  4952+SMBSQODD ST    R8,CAW RESTORE THE CAW                       MCS0
00437A 9120 D527      06768        4953+         TM    IEASWITA,IOCONSIN TEST FOR INPUT                    MCS0
00437E 4710 B128            0441C  4954+         BO    TPLOAD YES,RETURN                            MCS0
004382 47F0 B0F4            043E8  4955+         B     SWTONHC BRANCH TO EXIT FROM MSG HC      MCS0
004386 5824 0000            00000  4956+SWTOHFIT L     SMBR2,WTOADDR(SMBR4) R2 = MSG ADDRESS              MCS0
                                                                                                               PAGE  117


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00438A 4122 0000            00000  4957+         LA    SMBR2,Q0(SMBR2) DELETE HIGH ORDER BYTE          MCS0
00438E D709 1000 1000 00000 00000  4958+         XC    0(HCMSGPZL,SMBR1),0(SMBR1) ZERO PREFIX & TIME STAMP MCS0
004394 4143 0010            00010  4959+         LA    SMBR4,HCMSGPFS(SMBR3) MSG + HEADER LENGTH          MCS0
004398 960F D256      06497        4960+         OI    PACKED+Q3,X0F .     TURN ON SIGN                    MCS0
00439C F363 1004 D253 00004 06494  4961+         UNPK  HCMSGTIM(Q7,SMBR1),PACKED(Q4) TIME OF DAY          MCS0
0043A2 D205 100A D446 0000A 06687  4962+         MVC   HCMSGPZL(HCMSGRTL,SMBR1),HCROUTC ROUT CODE         MCS0
0043A8 0630                        4963+         BCTR  SMBR3,R0 R3 = MSG LENGTH FOR EXECUTE     MCS0
0043AA 4430 B0DE            043D2  4964+         EX    SMBR3,SWTOMOVE MOVE MSG TO HC BUFFER           MCS0
0043AE 4113 1011            00011  4965+         LA    SMBR1,HCMSGPFS+Q1(SMBR3,SMBR1) MSG END PTR         MCS0
0043B2 5010 D417            06658  4966+         ST    SMBR1,HCBUFADR .    SAVE                            MCS0
0043B6 9103 D41A      0665B        4967+SWTOALYN TM    HCBUFADR+Q3,X03 .   FULL WORD ALIGNMENT             MCS0
0043BA 4780 B0E4            043D8  4968+         BZ    SWTOSALN .          YES, BRANCH                     MCS0
0043BE 9240 1000      00000        4969+         MVI   0(SMBR1),X40 .      ADD A BLANK TO THE MSG          MCS0
0043C2 4111 0001            00001  4970+         LA    SMBR1,Q1(SMBR1) .   UPDATE EOM PTR                  MCS0
0043C6 4144 0001            00001  4971+         LA    SMBR4,Q1(SMBR4) .   UPDATE MSG LENGTH               MCS0
0043CA 5010 D417            06658  4972+         ST    SMBR1,HCBUFADR .    SAVE UPDATED EOM PTR            MCS0
0043CE 47F0 B0C2            043B6  4973+         B     SWTOALYN .          TEST AGAIN                      MCS0
0043D2 D200 1010 2000 00010 00000  4974+SWTOMOVE MVC   HCMSGPFS(0,SMBR1),0(SMBR2) MOVE MSG TO BUFFER      MCS0
0043D8 4246 0001            00001  4975+SWTOSALN STC   SMBR4,HCMSGLNT(SMBR6) PUT LENGTH IN MSG PREFIX     MCS0
0043DC 927B 1000      00000        4976+         MVI   Q0(SMBR1),HCBUFNDR INDICATE END OF MSGS            MCS0
0043E0 9120 D527      06768        4977+         TM    IEASWITA,IOCONSIN TEST INPUT SWITCH                 MCS0
0043E4 4710 B128            0441C  4978+         BO    TPLOAD YES,INPUT,EXIT                       MCS0
0043E8                             4979+SWTONHC  EQU   * MCS0
0043E8 9118 D527      06768        4980+         TM    IEASWITA,OPEJSWIT TEST FOR GRAPHICS OR TP         MCS0
0043EC 4780 B132            04426  4981+         BZ    SWTONOPJ NO,REGULAR I/O                  MCS0
0043F0 5870 C5F7            05838  4982+         L     R7,IEAXCP68 ADDR OF CONTROL BLOCK AREA       MCS0
0043F4 5070 D503            06744  4983+         ST    R7,TPGRPARM+12 STORE INTO PARAMETER LIST        MCS0
0043F8 5870 C5FB            0583C  4984+         L     R7,ADNIP545 R7 = ADDR OF NIP5450            MCS0
0043FC 4110 D4F7            06738  4985+         LA    R1,TPGRPARM R1 = ADDR OF PARM LIST          MCS0
004400 05F7                        4986+         BALR  R15,R7 BR TO 5450                      MCS0
004402 9120 D527      06768        4987+SMBTEST  TM    IEASWITA,IOCONSIN TEST INPUT SWITCH                 MCS0
004406 47E0 B128            0441C  4988+         BNO   TPLOAD NOT INPUT,FINISH WITH HARDCOPY       MCS0
00440A 9150 D52A      0676B        4989+         TM    IEASWITB,NOHARDSW TEST FOR NO HC FUNCTION           MCS0
00440E 4770 B128            0441C  4990+         BNZ   TPLOAD NO HC, EXIT                           MCS0
004412 D203 0048 C51B 00048 0575C  4991+         MVC   CAW(Q4),ANSWRCAW RESET ANSWER CAW FOR HARDCOPY      MCS0
004418 47F0 B018            0430C  4992+         B     SWTOHC GO TO HARDCOPY ROUTINE               MCS0
00441C 980F D4B7            066F8  4993+TPLOAD   LM    R0,R15,TPCSAVE RESTORE REGISTERS               MCS0
004420 94DF D527      06768        4994+         NI    IEASWITA,255-IOCONSIN TURN OFF INPUT SWITCH         MCS0
004424 07F5                        4995+         BR    R5 RETURN TO CALLER                MCS0
004426 4550 B142            04436  4996+SWTONOPJ BAL   R5,IEACON02 BR TO REG CONSOLE I/O ROUTINE         MCS0
00442A 9110 D52A      0676B        4997+         TM    IEASWITB,HCPXSWIT TEST FOR NO HARDCOPY FUNCTION     MCS0
00442E 47E0 B10E            04402  4998+         BNO   SMBTEST HARDCOPY,TEST FOR INPUT              MCS0
004432 47F0 B128            0441C  4999+         B     TPLOAD NO HARDCOPY,EXIT                     MCS0
004436 9C00 A000      00000        5000+IEACON02 SIO   0(10) START I/O
00443A 4780 B1C0            044B4  5001+         BC    8,IEATSTIO IO OP INITIATED,TEST IO
00443E 4740 B160            04454  5002+         BC    4,IEATSCS1 CSW STORED,TEST CSW
004442 4720 B142            04436  5003+         BC    2,IEACON02 CHANNEL BUSY,START I/O       DAR
004446 9102 D52B      0676C        5004+         TM    IEASWITC,SHARCALL TEST FOR RESERVE/RELEASE    000E
00444A 4780 C011            05252  5005+         BZ    IEAERR3 NO, BRANCH TO LOAD WAIT PSW 000E
00444E 94FD D52B      0676C        5006+         NI    IEASWITC,Q255-SHARCALL INDIC NOT OPERATIONAL      A29418
004452 07F5                        5007+         BR    R5 YES, RETURN                 000E
                                   5008+*   THE FOLLOWING TEST IS PROVIDED TO ALLOW THE RUNNING OF IN-LINE 3800
                                   5009+*      DIAGNOSTICS ON THE SPARE DRIVE OF A 2314 WHILE IPL-ING      3800
                                   5010+*      A 2314 SYSTEM.                                              3800
004454                             5011+IEATSCS1 EQU   *
                                                                                                               PAGE  118


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004454 9102 D52B      0676C        5012+         TM    IEASWITC,SHARCALL IS I/O ENTRY FROM UCB RTN     A29418
004458 4780 B186            0447A  5013+         BZ    TSTCSWON NO-PROCESS AS STANDARD BUSY   A29418
00445C 9124 0044      00044        5014+         TM    CSWSTAT,X'24' DEV END OR CU END                   21063
004460 4770 B142            04436  5015+         BNZ   IEACON02 YES, RE TRY SIO                     21063
004464 9150 0044      00044        5016+         TM    CSWSTAT,CUB .            IS CONTROL UNIT BUSY     A39925
004468 4710 B142            04436  5017+         BO    IEACON02 .               YES, BRANCH              A39925
00446C 9110 0044      00044        5018+         TM    CSWSTAT,CSWBUSY IS DEVICE BUSY                A29418
004470 4780 B186            0447A  5019+         BZ    TSTCSWON NO-CONTINUE STANDRD RECOVRY   A29418
004474 9608 D536      06777        5020+         OI    IEASWITE,SHARBUSY INDIC BUSY ON RESERVE         A29418
004478 07F5                        5021+         BR    R5 RETURN                        A29418
00447A                             5022+TSTCSWON EQU   * A29418
                                   5023+************************************************************** @AA30864
                                   5024+*  THE FOLLOWING CODE HAS BEEN ADDED FOR ASP TO CLEAR A        @AA30864
                                   5025+*  POSSIBLE BUSY CONDITION WHICH MAY OCCUR ON THE CTC WHILE    @AA30864
                                   5026+*  IPL'ING. IF NIP HAS INITIATED AN I/O OPERATION AND CSW      @AA30864
                                   5027+*  STATUS IS RETURNED INDICATING ATTENTION AND BUSY, A SENSE   @AA30864
                                   5028+*  COMMAND MUST BE ISSUED TO CLEAR THE CONDITION TO ALLOW      @AA30864
                                   5029+*  NIP TO COMPLETE ITS I/O OPERATION.                          @AA30864
                                   5030+************************************************************** @AA30864
00447A 9590 0044      00044        5031+         CLI   CSWSTAT,X'90' MAY BE CTC IF ATTN AND BUSY @AA30864
00447E 4770 B1AC            044A0  5032+         BNE   CSWNOCTC CONT- NOT ATTN AND BUSY     @AA30864
004482 5870 0048            00048  5033+         L     R7,CAW SAVE CURRENT CAW FOR RETRY  @AA30864
004486 D203 0048 C47F 00048 056C0  5034+         MVC   CAW(4),IEASNCAW SET CAW FOR SENSE OPERATION @AA30864
00448C 9C00 A000      00000        5035+         SIO   0(10) EXECUTE THE SENSE           @AA30864
004490 9D00 A000      00000        5036+SENSCTCS TIO   0(10) @AA30864
004494 4730 B19C            04490  5037+         BC    3,SENSCTCS WAIT FOR STATUS             @AA30864
004498 5070 0048            00048  5038+         ST    R7,CAW RESTORE CAW FOR ORIG I/O    @AA30864
00449C 47F0 B142            04436  5039+         B     IEACON02 RESTART ORIGINAL I/O        @AA30864
0044A0                             5040+CSWNOCTC DS    0H CONT HERE IF NOT ATTN/BUSY  @AA30864
                                   5041+************************************************************** @AA30864
0044A0 9130 0044      00044        5042+         TM    CSWSTAT,CUBSYEND TST FOR CU BUSY,CU END        A26418
0044A4 4750 B142            04436  5043+         BC    5,IEACON02 UNIT BUSY,UNIT END-SIO       DAR
0044A8 9102 0044      00044        5044+         TM    68,X'02' TEST FOR UNIT CHECK         000E
0044AC 4780 C009            0524A  5045+         BC    8,IEAERR2 NO, ERROR 2                 000E
0044B0 47F0 B274            04568  5046+         B     IEASENSE YES, BRANCH TO ISSUE SENSE  000E
0044B4 9104 D534      06775        5047+IEATSTIO TM    IEASWITD,MONTSWIT TEST FOR MOUNT ROUTINE ACTIVE     MCS0
0044B8 0715                        5048+         BCR   Q1,R5 RETURN                         27480
0044BA 9D00 A000      00000        5049+         TIO   0(10) TEST I/O                              MCS0
0044BE 47B0 B1C0            044B4  5050+         BC    11,IEATSTIO CSW NOT STORED, RE-TIO          3800
0044C2 9550 0044      00044        5051+         CLI   CSWSTAT,SMB STATUS MODIFIER BUSY              BH 58099
0044C6 4770 B1E6            044DA  5052+         BNE   IEATSCS2 NO                                BH 58099
0044CA 5050 D1D7            06418  5053+         ST    R5,IEASTREG YES SAVE REG 5                    BH 58099
0044CE 4550 C2FB            0553C  5054+         BAL   R5,IEAINTH3 GO DO THE ENABLE/DISABLE SEQ.     BH 58099
0044D2 5850 D1D7            06418  5055+         L     R5,IEASTREG RESTORE REG 5                     BH 58099
0044D6 47F0 B1C0            044B4  5056+         B     IEATSTIO REISSUE THE TIO                   BH 58099
0044DA 9102 0044      00044        5057+IEATSCS2 TM    68,X'02' TEST FOR UNIT CHECK
0044DE 4710 B274            04568  5058+         BC    1,IEASENSE ON UNIT CHK, STORE SENSE BYTES
                                   5059+*   THE FOLLOWING TEST IS PROVIDED TO ALLOW THE RUNNING OF IN-LINE 3800
                                   5060+*      DIAGNOSTICS ON THE SPARE DRIVE OF A 2314 WHILE IPL-ING      3800
                                   5061+*      A 2314 SYSTEM.                                              3800
0044E2 9130 0044      00044        5062+         TM    68,X'30' TEST FOR CU BUSY OR CU END      3800
0044E6 4770 B1C0            044B4  5063+         BC    7,IEATSTIO IF EITHER, RE-ISSUE I/O CMD     3800
0044EA 9180 D52A      0676B        5064+CANBY    TM    IEASWITB,CANXSWIT TEST FOR 'JOB CANCEL' CHECK REQ.
0044EE 47E0 B206            044FA  5065+         BNO   NOCONS SKIP 'CANCEL TEST' IF SWITB NOT=1
0044F2 9109 0044      00044        5066+         TM    68,X'09' TEST FOR CANCEL
                                                                                                               PAGE  119


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0044F6 4710 B142            04436  5067+         BC    1,IEACON02 RESTART READ CCW
0044FA 912F 0045      00045        5068+NOCONS   TM    69,X'2F' NO CANCEL;CONTINUE TESTING
0044FE 4770 C019            0525A  5069+         BC    7,IEAERR6 ON ANY OTHER CHECK ERROR 6
004502 49A0 D2DF            06520  5070+SPECIALA CH    10,IEAUNIT TEST FOR OUTPUT CONSOLE         2480
004506 4770 B22A            0451E  5071+         BNE   NOTCONS 2480
00450A 95FF D514      06755        5072+         CLI   PRNTSW,X'FF' YES, TEST FOR PRINTER           2480
00450E 4770 B22A            0451E  5073+         BNE   NOTCONS 2480
004512 9101 0044      00044        5074+         TM    68,X'01' YES, TEST UNIT EXC-CH.12 HOLE   2480
004516 4780 B22A            0451E  5075+         BC    8,NOTCONS 2480
00451A 47F0 B5A4            04898  5076+         B     UEXCONS ON 12 HOLE, BR TO ISSUE SK TO 1 2480
00451E                             5077+NOTCONS  EQU   * 2480
00451E 9104 0044      00044        5078+         TM    68,X'04' TEST FOR DEVICE END             2480
004522 4710 B236            0452A  5079+         BC    1,IEAOUT ON DEVICE END EXIT
004526 47F0 B1C0            044B4  5080+         B     IEATSTIO NONE OF ABOVE CONDITIONS,TESTIO
00452A 947F D52A      0676B        5081+IEAOUT   NI    IEASWITB,NOCANCEL RESET TO SKIP 'CANCEL' CHECK
00452E 07F5                        5082+         BR    R5
004530 9204 CFE6      06227        5083+IEAERR4  MVI   ERRBUF,X'04' STORE ERROR CODE 4
004534 8200 CFDF      06220        5084+         LPSW  IEAWAIT PUT THE MACHINE INTO WAIT STATE
004538 9205 CFE6      06227        5085+IEAERR5  MVI   ERRBUF,X'05' STORE ERROR CODE 5
00453C 8200 CFDF      06220        5086+         LPSW  IEAWAIT PUT THE MACHINE INTO WAIT STATE
004540 9208 CFE6      06227        5087+IEAERR8  MVI   ERRBUF,X'08' STORE ERROR CODE 8
004544 8200 CFDF      06220        5088+         LPSW  IEAWAIT PUT THE MACHINE INTO WAIT STATE
004548 9209 CFE6      06227        5089+IEAERR9  MVI   ERRBUF,X'09' STORE ERROR CODE 9
00454C 8200 CFDF      06220        5090+         LPSW  IEAWAIT PUT THE MACHINE INTO WAIT STATE
004550 9210 CFE6      06227        5091+IEAERR10 MVI   ERRBUF,X'10' STORE ERROR CODE 10
004554 8200 CFDF      06220        5092+         LPSW  IEAWAIT PUT THE MACHINE INTO WAIT STATE
004558 9211 CFE6      06227        5093+IEAERR11 MVI   ERRBUF,X'11' STORE ERROR CODE 11
00455C 8200 CFDF      06220        5094+         LPSW  IEAWAIT PUT THE MACHINE INTO WAIT STATE
004560 9217 CFE6      06227        5095+IEAERR17 MVI   ERRBUF,X'17' ERROR TYPE 17-UCK ON SENSE      3800
004564 8200 CFDF      06220        5096+         LPSW  IEAWAIT PUT MACHINE IN WAIT             3800
004568 D20B D1EF 0040 06430 00040  5097+IEASENSE MVC   IEASAVE(12),64 SAVE CSW AND CAW FOR DEBUGGING
00456E 9016 D1D7            06418  5098+         STM   1,6,IEASTREG SAVE REGS 1-6 FOR USE           000B
004572 D713 D2AB D2AB 064EC 064EC  5099+         XC    IEAERRS(Q20),IEAERRS ZERO SENSE DATA BUFFER        20201
004578 D203 0048 C47F 00048 056C0  5100+         MVC   72(4),IEASNCAW SET CAW FOR SENSE COMMAND
00457E 9C00 A000      00000        5101+IEASNSIO SIO   0(R10) START I/O FOR SENSE        3800
004582 4770 B28A            0457E  5102+         BC    7,IEASNSIO NOT STARTED, RE-SIO             3800
004586 9D00 A000      00000        5103+IEASPIN  TIO   0(10) TEST I/O
00458A 47B0 B292            04586  5104+         BC    11,IEASPIN CSW NOT STORED, RE-TIO          3800
                                   5105+*   THE FOLLOWING TEST IS PROVIDED TO ALLOW THE RUNNING OF IN-LINE 3800
                                   5106+*      DIAGNOSTICS ON THE SPARE DRIVE OF A 2314 WHILE IPL-ING      3800
                                   5107+*      A 2314 SYSTEM.                                              3800
00458E 9130 0044      00044        5108+         TM    X'44',X'30' TEST FOR CU BUSY OR CU END      3800
004592 4770 B292            04586  5109+         BC    7,IEASPIN IF EITHER, RE-ISSUE I/O CMD     3800
004596 9102 0044      00044        5110+         TM    68,X'02' TEST FOR UNIT CHK ON SENSE      3800
00459A 4710 B26C            04560  5111+         BC    1,IEAERR17 IF YES, ERROR TYPE 17           3800
00459E 91FF D510      06751        5112+         TM    IEADTACL,X'FF' TEST FOR DATA CELL SEEK
0045A2 47E0 B2B6            045AA  5113+         BC    14,IEANODCL NO TREAT NORMALLY
0045A6 47F0 B572            04866  5114+         B     IEABALST YES TEST FOR BALLAST CELL
0045AA 49A0 D2DF            06520  5115+IEANODCL CH    10,IEAUNIT TEST FOR OUTPUT CONSOLE         2480
0045AE 4780 B58E            04882  5116+         BE    UCKCONS YES, BR TO TEST FOR 9 HOLE SNS  2480
0045B2 9108 D2AC      064ED        5117+         TM    IEAERRS+1,X'08' TEST FOR NO RCD FND             2480
0045B6 4710 B484            04778  5118+         BC    1,IEATSTZB TEST FOR ADJUSTMENT
0045BA 9104 D2AC      064ED        5119+         TM    IEAERRS+1,X'04' TEST FOR FILE MASK VIOLATE 000B
0045BE 4710 B254            04548  5120+         BC    1,IEAERR9 YES INDICATE ERROR 9
0045C2 9120 D2AC      064ED        5121+         TM    IEAERRS+1,X'20' TEST FOR END OF CYLINDER
                                                                                                               PAGE  120


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0045C6 4710 B538            0482C  5122+         BC    1,MULSRTS GO TO TEST MULTI SEARCH SW
0045CA 9102 D2AB      064EC        5123+         TM    IEAERRS,X'02' TEST FOR BAD TRACK
0045CE 4710 B4DC            047D0  5124+         BC    1,IEAALTR YES BRANCH TO BAD TRK ROUTINE
0045D2 91C0 D2AB      064EC        5125+         TM    IEAERRS,X'C0' TEST CMD REJECT OR INT REQ  000E
0045D6 4780 B2F8            045EC  5126+         BZ    ECFCHECK CHECK FOR ECF VALID            20201
0045DA 9102 D52B      0676C        5127+         TM    IEASWITC,SHARCALL TEST FOR RESERVE/RELEASE    000E
0045DE 4780 B244            04538  5128+         BZ    IEAERR5 NO, ERROR 5                 000E
0045E2 94DF 9011      00011        5129+         NI    UCBTYP+1(R9),X'DF' TURN OFF SHARED BIT         000E
0045E6 9816 D1D7            06418  5130+         LM    1,6,IEASTREG RESTORE REGISTERS          000E
0045EA 07F5                        5131+         BR    R5 RETURN                     000E
000009                             5132+MERLIN   EQU   X'09' MERLIN UCB DEV TYP INDICATOR   20201
000006                             5133+ZEUSA    EQU   X'06' ZEUSA UCB DEV TYP INDICATOR    20201
000007                             5134+ZEUSC    EQU   X'07' ZEUSC UCB DEV TYP INDICATOR    20201
000001                             5135+ECFR1    EQU   1 LOWER LIMIT FOR REG SAVE AREA  20201
000002                             5136+ECFR2    EQU   2 HOLD ARITMETIC OPERATORS       20201
000003                             5137+ECFR3    EQU   3 PTR TO FAILING CCW             20201
000004                             5138+ECFR4    EQU   4 SENSE DATA WORK REG            20201
000005                             5139+ECFR5    EQU   5 RETURN REG                     20201
000006                             5140+ECFR6    EQU   6 UPPER LIMIT FOR REG SAVE AREA  20201
000000                             5141+ECFCLEAR EQU   X'00' 20201
000001                             5142+ECDCOMBT EQU   X'01' 20201
000002                             5143+ECFTPZ   EQU   2 ECF IS ON A ZEUS               20201
000007                             5144+ECFSEEK  EQU   X'07' 20201
000008                             5145+ECFTIC   EQU   X'08' 20201
000040                             5146+ECFIXBIT EQU   X'40' CHECKS MERLIN SENS FOR CORCTBLE20201
000031                             5147+ECFSRCMD EQU   X'31' SEARCH CCW COMMAND             20201
000008                             5148+ECFDCHK  EQU   X'08' MASK FOR DATA CHECK BIT IN SNS 20201
000010                             5149+ECFSKIP  EQU   X'10' MASKS CCW SKIP BIT             20201
000080                             5150+ECFDTACN EQU   X'80' MASKS CCW DATA CHAIN BIT       20201
0045EC                             5151+ECFCHECK EQU   * 20201


0045EC 9108 D2AB      064EC        5153+         TM    IEAERRS,ECFDCHK IS THIS A DATA CHECK           20201
0045F0 4780 B244            04538  5154+         BZ    IEAERR5 NO-ERROR                       20201
0045F4 4550 C0BD            052FE  5155+         BAL   ECFR5,IEAUCBFN FIND UCB FOR THIS DEVICE       20201
0045F8 91FF D516      06757        5156+         TM    IEAINDIC,XFF WAS UCB FOUND                  20201
0045FC 4780 B244            04538  5157+         BZ    IEAERR5 NO-CAN'T CORRECT ERROR        20201
004600 4860 D2D3            06514  5158+         LH    ECFR6,IEAUCBHL GET UCB ADDR IN REG            20201
004604 9520 6012      00012        5159+         CLI   UCBDCLAS(ECFR6),X20 IS THIS A DASD UNIT            20201
004608 4770 B244            04538  5160+         BNE   IEAERR5 NO-TAKE ERROR EXIT             20201
00460C 9209 D953      06B94        5161+         MVI   ECFSWIT,MERLIN SET MERLIN DEV INDIC IN SWIT   20201
004610 9509 6013      00013        5162+         CLI   UCBUTYPE(ECFR6),MERLIN IS THIS A MERLIN UCB        20201
004614 4780 B33C            04630  5163+         BE    ECFTYPEM MAKE SPECIAL SENSE CORRECTIONS 20201
004618 9207 D953      06B94        5164+         MVI   ECFSWIT,ZEUSC SET FOR ZEUS-C                 20201
00461C 9507 6013      00013        5165+         CLI   UCBUTYPE(ECFR6),ZEUSC IS THIS A ZEUS-C UCB        20201
004620 4780 B33C            04630  5166+         BE    ECFTYPEZ YES-FIX DATA CHECK            20201
004624 9506 6013      00013        5167+         CLI   UCBUTYPE(ECFR6),ZEUSA IS THIS A ZEUS-A UCB        20201
004628 4770 B244            04538  5168+         BNE   IEAERR5 NO-CANT FIX DATA CHECK        20201
00462C 9206 D953      06B94        5169+         MVI   ECFSWIT,ZEUSA 20201
004630                             5170+ECFTYPEZ EQU   * 20201
004630 9140 D2AD      064EE        5171+ECFTYPEM TM    ECFMCREC,ECFIXBIT IS THIS A CORRECTABLE ERR      20201
004634 47E0 B244            04538  5172+         BNO   IEAERR5 NO-ERROR EXIT                  20201
004638 D204 D463 D2BD 066A4 064FE  5173+         MVC   ECFLOCSN(Q5),ECFMDISP SAVE DISP AND CORCT PATTERN  20201
00463E 4560 B46C            04760  5174+         BAL   ECFR6,ECFCCWFN FIND THE FALLING CCW IN R3     20201
004642 9180 3004      00004        5175+         TM    Q4(ECFR3),ECFDTACN IS THIS A DATA CHAINED CCW     20201
                                                                                                               PAGE  121


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004646 4710 B244            04538  5176+         BO    IEAERR5 YES-CAN'T CORRECT ERROR        20201
00464A 9110 3004      00004        5177+         TM    Q4(ECFR3),ECFSKIP IS SKIP BIT ON                 20201
00464E 4710 B3B6            046AA  5178+         BO    ECFTICFN YES-NO  CORRECTION NEEDED      20201
004652 9509 D953      06B94        5179+         CLI   ECFSWIT,MERLIN IS THIS MERLIN DATA CHECK      20201
004656 4770 B37A            0466E  5180+         BNE   ECFZDISP NO-USE CCW TO FIND DATA AREA   20201
00465A D203 D2C3 D2B9 06504 064FA  5181+         MVC   TEMCLKBY(Q4),ECFCLKBY MOVE SO                   @SA73650
004660 5840 D2C3            06504  5182+         L     ECFR4,TEMCLKBY CAN LOAD                    @SA73650
004664 4144 0000            00000  5183+         LA    ECFR4,Q0(ECFR4) CLEAR HI BYTE IN REG           20201
004668 1E42                        5184+         ALR   ECFR4,ECFR2 ADD DATA AREA ADR TO BY CLKED  20201
00466A 47F0 B386            0467A  5185+         B     ECFDSPFX SUBTRACT DISP TO ERROR AREA    20201
00466E                             5186+ECFZDISP EQU   * 20201
00466E 4843 0006            00006  5187+         LH    ECFR4,Q6(ECFR3) GET DATA LGN                   20201
004672 1E42                        5188+         ALR   ECFR4,ECFR2 R4= END O DATA                 20201
004674 4810 D1F5            06436  5189+         LH    ECFR1,IEASAVE+Q6 GET RESID COUNT                20201
004678 1F41                        5190+         SLR   ECFR4,ECFR1 PT TO END OF TRANSFRED DATA    20201
00467A 4810 D463            066A4  5191+ECFDSPFX LH    ECFR1,ECFLOCSN GET DISP TO ERROR AREA          20201
00467E 1F41                        5192+         SLR   ECFR4,ECFR1 PTR TO ERROR ADDRESS            20201
004680 1942                        5193+         CR    ECFR4,ECFR2 IS ERR BELOW THIS DATA AREA    20201
004682 4740 B244            04538  5194+         BL    IEAERR5 YES-CORRCT DATA FOR PREV ERROR 20201
004686 9506 D953      06B94        5195+         CLI   ECFSWIT,ZEUSA IS THIS A ZEUS-A DEVICE        20201
00468A 4770 B3B0            046A4  5196+         BNE   ECFNOLEF NO-INTER LEAVING NOT NEEDED    20201
00468E D700 4000 D465 00000 066A6  5197+         XC    Q0(Q1,ECFR4),ECFLOCSN+Q2 FIX BYTE ZERO            20201
004694 D700 4002 D466 00002 066A7  5198+         XC    Q2(Q1,ECFR4),ECFLOCSN+Q3 . FIX BYTE TWO           A43057
00469A D700 4004 D467 00004 066A8  5199+         XC    Q4(Q1,ECFR4),ECFLOCSN+Q4 FIX BYTE FOUR            20201
0046A0 47F0 B3B6            046AA  5200+         B     ECFTICFN BR AROND NON-INTERLEAVING XC   20201
0046A4 D702 4000 D465 00000 066A6  5201+ECFNOLEF XC    Q0(Q3,ECFR4),ECFLOCSN+Q2 FIX BAD BYTES            20201
0046AA                             5202+ECFTICFN EQU   * 20201
0046AA 9140 3004      00004        5203+         TM    Q4(ECFR3),X40 DOES FAILING CCW HAVE CND CHAN 20201
0046AE 47E0 B466            0475A  5204+         BNO   ECFMEXIT NO-EXIT I/O RTN                20201
0046B2 9508 3008      00008        5205+         CLI   Q8(ECFR3),ECFTIC IS NXT CCW A TIC               20201
0046B6 4770 B3D0            046C4  5206+         BNE   ECFNOTIC NO-RESTART I/O TO NXT USER CCW 20201
0046BA D202 C898 3009 05AD9 00009  5207+         MVC   ECFTICCW+Q1(Q3),Q9(ECFR3) GET TIC ADDR FR NX CCW   20201
0046C0 47F0 B3D6            046CA  5208+         B     ECFTICON CONTINUE RESTART SET-UP        20201
0046C4 D202 C898 D1F0 05AD9 06431  5209+ECFNOTIC MVC   ECFTICCW+Q1(Q3),IEASAVE+Q1 GET TIC ADDR FROM CSW   20201
                                   5210+***                                                           *** 20201
                                   5211+*    THIS ROUTINE REBUILDS THE USERS CCW CHAIN WITH A DUMMY     * 20201
                                   5212+*    WRITE AND A TIC CCW AS A SUFFIX THIS ALIGNS THE READ HEAD  * 20201
                                   5213+*    TO THE RECORD FOLLOWNG THE READ DATA CHECK. THE TIC PASSES*  20201
                                   5214+*    CONTROL TO THE NEXT USER CCW                                 20201
                                   5215+***                                                           *** 20201
0046CA                             5216+ECFTICON EQU   * GET USERS SEEK ADDR            20201
0046CA 5820 C897            05AD8  5217+         L     ECFR2,ECFTICCW GET PTR TO USER CCW WHERE WE   20201
0046CE 4122 0000            00000  5218+         LA    ECFR2,Q0(ECFR2) RESTART AND CLEAR HI BYTE     20201
0046D2 9110 2000      00000        5219+         TM    Q0(ECFR2),X10 IS USER CCW A COUNT OPERATION  20201
0046D6 47E0 B3EA            046DE  5220+         BNO   ECFNOCNT NO-DON'T SET COUNT SWIT        20201
0046DA 9601 D954      06B95        5221+         OI    ECFSWIT2,ECFCTCCW SET SWIT FOR USER COUNT OP CCW 20201
0046DE 4120 0008            00008  5222+ECFNOCNT LA    ECFR2,Q8 20201
0046E2 1B66                        5223+         SR    ECFR6,ECFR6 20201
0046E4 5810 C44B            0568C  5224+         L     ECFR1,ECFCAW PTR TO LOC CCW CHAIN           20201
0046E8 5840 D1F7            06438  5225+         L     ECFR4,IEASAVE+Q8 USER CCW CHAIN FROM SAVED CAW  20201
0046EC 1534                        5226+ECFCCWTR CLR   ECFR3,ECFR4 IS THIS THE FAILING CCW        20201
0046EE 4780 B43C            04730  5227+         BE    ECFAILCW YES-SET NOP CCW & TIC TO USER  20201
0046F2 9508 4000      00000        5228+         CLI   Q0(ECFR4),ECFTIC IS THIS A TIC CCW              20201
0046F6 4770 B42E            04722  5229+         BNE   ECFMVCCW NO-ENTER IT IN CHAIN           20201
0046FA 5854 0000            00000  5230+         L     ECFR5,00(ECFR4) PUT TIC ADDR IN WORK REG       20201
                                                                                                               PAGE  122


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0046FE 4155 0000            00000  5231+         LA    ECFR5,Q0(ECFR5) CLEAR CMD CODE                 20201
004702 1A52                        5232+         AR    ECFR5,ECFR2 UP TIC ADDR BY 8 - IF THIS ADDR20201
004704 1554                        5233+         CLR   ECFR5,ECFR4 = TIC CCW ADDR THEN ADJ VALUE 20201
004706 4780 B41E            04712  5234+         BE    ECFSNTIC TO LOCAL CHAIN ADDR           20201
00470A 1B52                        5235+         SR    ECFR5,ECFR2 R5 PTS TO TIC LOC              20201
00470C 1845                        5236+         LR    ECFR4,ECFR5 R4 PTS TO CMD FOLLOWING TIC    20201
00470E 47F0 B3F8            046EC  5237+         B     ECFCCWTR CONT DOWN CHAIN                20201
004712 1851                        5238+ECFSNTIC LR    ECFR5,ECFR1 PT R5 TO CURRENT LOC CCW       20201
004714 1B52                        5239+         SR    ECFR5,ECFR2 GET ADDR OF PREV CCW           20201
004716 9056 1000            00000  5240+         STM   ECFR5,ECFR6,Q0(ECFR1) MOVE IN ALTERED TIC ADDR     20201
00471A 9208 1000      00000        5241+         MVI   Q0(ECFR1),ECFTIC SET TIC CMD                    20201
00471E 47F0 B434            04728  5242+         B     ECFUPTRS UP PTRS TO NXT CCW             20201
004722 D207 1000 4000 00000 00000  5243+ECFMVCCW MVC   Q0(Q8,ECFR1),Q0(ECFR4) MOVE THIS CCW INTO CHAIN    20201
004728 1A12                        5244+ECFUPTRS AR    ECFR1,ECFR2 UP LOC CCW PTR                 20201
00472A 1A42                        5245+         AR    ECFR4,ECFR2 UP USER CCW PTR                20201
00472C 47F0 B3F8            046EC  5246+         B     ECFCCWTR PROCESS NXT CCW                20201
                                   5247+***                                                           *** 20201
                                   5248+*  AT THIS POINT THE RESTART CCW IS SET. REGS ARE RESTORED AND  * 20201
                                   5249+*  I/O IS INITIATED                                             * 20201
                                   5250+***                                                           *** 20201
004730 9101 D954      06B95        5251+ECFAILCW TM    ECFSWIT2,ECFCTCCW IS RESTART TO A COUNT OP       20201
004734 4780 B44E            04742  5252+         BZ    ECFRSCNT SET RESTRT CHAIN FOR COUNT OP  20201
004738 D207 1000 C897 00000 05AD8  5253+         MVC   Q0(Q8,ECFR1),ECFTICCW SET TIC TO USER CHAIN        20201
00473E 47F0 B454            04748  5254+         B     ECFCNCMP LEAVE CCW SET-UP               20201
004742 D20F 1000 C88F 00000 05AD0  5255+ECFRSCNT MVC   Q0(Q16,ECFR1),ECFRDCCW SET RESTRT CHAIN W/DUMY READ20201
                                   5256+*                                      COUNT TO BYPASS DATA       20201
                                   5257+*                                      IN ERROR RECORD            20201
004748 94FE D954      06B95        5258+ECFCNCMP NI    ECFSWIT2,Q255-ECFCTCCW TURN OFF COUNT SWIT         20201
00474C D203 0048 C44B 00048 0568C  5259+         MVC   CAW(Q4),ECFCAW SET RESTART CAW                20201
004752 9816 D1D7            06418  5260+         LM    ECFR1,ECFR6,IEASTREG RESTORE REGS                  20201
004756 47F0 B142            04436  5261+         B     IEACON02 START I/O                      20201
00475A                             5262+ECFMEXIT EQU   * 20201
00475A 9816 D1D7            06418  5263+         LM    ECFR1,ECFR6,IEASTREG 20201
00475E 07F5                        5264+         BR    ECFR5 20201


                                   5266+***                                                           *** 20201
                                   5267+*        THIS ROUTINE WILL LOCATE THE ADDRESS OF A FAILING      * 20201
                                   5268+*        CCW AND THE DATA AREA IT POINTS TO                     * 20201
                                   5269+*              R3= ADDR OF CCW                                  * 20201
                                   5270+*              R2= ADDR OF DATA AREA                            * 20201
                                   5271+***                                                           *** 20201
004760 4120 0008            00008  5272+ECFCCWFN LA    ECFR2,Q8 VALUE FOR SUB TO PREV CCW      20201
004764 5830 D1EF            06430  5273+         L     ECFR3,IEASAVE ADDR OF LAST CCW TO EXEC       20201
004768 4133 0000            00000  5274+         LA    ECFR3,Q0(ECFR3) CLEAR COMMAND BYTE             20201
00476C 1B32                        5275+         SR    ECFR3,ECFR2 POINT BACK 1 CCW               20201
00476E 5823 0000            00000  5276+         L     ECFR2,Q0(ECFR3) GET DATA ADDRESS               20201
004772 4122 0000            00000  5277+         LA    ECFR2,Q0(ECFR2) CLEAR COMMAND BYTE             20201
004776 07F6                        5278+         BR    ECFR6 RETURN                         20201


004778 91FF D518      06759        5280+IEATSTZB TM    IEABSAMR,X'FF' TEST FOR NO RCD FND EXPECTED
00477C 47E0 B4AC            047A0  5281+         BC    14,IEASINGT
004780 9200 D518      06759        5282+         MVI   IEABSAMR,X'00' YES TURN OFF SWITCH
004784 D203 0048 C473 00048 056B4  5283+         MVC   72(4),IEAROLST
                                                                                                               PAGE  123


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00478A 4550 B142            04436  5284+         BAL   R5,IEACON02
00478E 4540 B548            0483C  5285+         BAL   4,IEANEWSK GET ADDR OF NEXT TRACK
004792 D203 D45E D453 0669F 06694  5286+         MVC   IEASRADR(4),IEASKADR+2 COORDINATE SEEK AND SEARCH
004798 9201 D462      066A3        5287+         MVI   IEASRADR+4,X'01' SET SEARCH ADDR FOR RCD ONE
00479C 47F0 B4FC            047F0  5288+         B     IEAORIGN RESTART ORIGINAL I/O
0047A0 5820 D1EF            06430  5289+IEASINGT L     2,IEASAVE
0047A4 8920 0008            00008  5290+         SLL   2,8
0047A8 8820 0008            00008  5291+         SRL   2,8
0047AC 4130 0008            00008  5292+         LA    3,8
0047B0 1B23                        5293+         SR    2,3
0047B2 9531 2000      00000        5294+         CLI   0(2),X'31'
0047B6 4770 B24C            04540  5295+         BNE   IEAERR8
0047BA D203 0048 C477 00048 056B8  5296+         MVC   72(4),IEAADCDR
0047C0 4550 B142            04436  5297+         BAL   R5,IEACON02
0047C4 9103 D1FB      0643C        5298+         TM    IEAST,X'03'
0047C8 4750 B4DC            047D0  5299+         BC    5,IEAALTR
0047CC 47F0 B24C            04540  5300+         B     IEAERR8
0047D0 D203 0048 C477 00048 056B8  5301+IEAALTR  MVC   72(4),IEAADCDR SET CAW TO READ HA + R0
0047D6 4550 B142            04436  5302+         BAL   R5,IEACON02 READ HA & R0 OF THIS TRACK
0047DA 9103 D1FB      0643C        5303+         TM    IEAST,X'03' TEST FOR BAD ALTERNATE
0047DE 4710 B264            04558  5304+         BC    1,IEAERR11 YES BAD ALTERNATE TRACK
0047E2 9101 D1FB      0643C        5305+         TM    IEAST,X'01' TEST FOR GOOD ALTERNATE
0047E6 4710 B524            04818  5306+         BC    1,IEALTRNT YES CHANGE SEEK + SEARCH
0047EA D203 D453 D203 06694 06444  5307+         MVC   IEASKADR+2(4),IEASTR0
0047F0 5820 D1EF            06430  5308+IEAORIGN L     2,IEASAVE R 2 = PNTR TO SAVED CSW
0047F4 8920 0008            00008  5309+         SLL   2,8 CLEAR UPPER BYTE
0047F8 8820 0008            00008  5310+         SRL   2,8 WHICH CONTAINS KEY OF CSW
0047FC 4130 0008            00008  5311+         LA    3,8 R 3 = VALUE 8 FOR CSW DECREMENT
004800 1B23                        5312+         SR    2,3 DECREMENT CSW PNTR
004802 5020 C747            05988  5313+         ST    2,IEATICER CHAIN CCWLIST TO OLD LIST
004806 9208 C747      05988        5314+         MVI   IEATICER,X'08' RESET TIC COMMAND
00480A D203 0048 C47B 00048 056BC  5315+         MVC   72(4),IEASEEKR SET CAW TO SEEK RD HA + TIC
004810 9816 D1D7            06418  5316+         LM    1,6,IEASTREG RESTORE REGS                    000B
004814 47F0 B142            04436  5317+         B     IEACON02 RESTART I/O
004818 D203 D453 D203 06694 06444  5318+IEALTRNT MVC   IEASKADR+2(4),IEASTR0
00481E 4540 B548            0483C  5319+         BAL   4,IEANEWSK UPDATE TRK PNTR
004822 D203 D45E D453 0669F 06694  5320+         MVC   IEASRADR(4),IEASKADR+2 COORDINATE SEEK + SEARCH
004828 47F0 B4FC            047F0  5321+         B     IEAORIGN RESTART I/O
00482C 91FF D513      06754        5322+MULSRTS  TM    MSRSW,X'FF' TEST FOR MULTI TRK SEARCH
004830 47E0 B25C            04550  5323+         BC    14,IEAERR10 NO LEGITIMATE ERROR
004834 4540 B55E            04852  5324+         BAL   4,IEAUPCYL YES UPDATE CYL ADDR
004838 47F0 B4FC            047F0  5325+         B     IEAORIGN RESTART I/O
00483C 4810 D455            06696  5326+IEANEWSK LH    1,IEASKADR+4 R 1 = HH OF SEEK
004840 4111 0001            00001  5327+         LA    1,1(1) R 1 = HH OF SEEK + 1
004844 4910 D2C7            06508  5328+         CH    1,IEATRPCL TEST FOR TOO MANY TRKS
004848 47B0 B55E            04852  5329+         BNL   IEAUPCYL YES UPDATE CYL ADDR
00484C 4010 D455            06696  5330+         STH   1,IEASKADR+4 HH OK RESET IN SEEK ADDR
004850 07F4                        5331+         BR    4 RETURN TO CALLER
004852 1B11                        5332+IEAUPCYL SR    1,1 R 1 = ZERO
004854 4010 D455            06696  5333+         STH   1,IEASKADR+4 SET TRK ADDR TO ZERO
004858 4810 D453            06694  5334+         LH    1,IEASKADR+2 R 1 = CC OF SEEK ADDR
00485C 4111 0001            00001  5335+         LA    1,1(1) R 1 = CC OF SEEK + ONE
004860 4010 D453            06694  5336+         STH   1,IEASKADR+2 RESET CC IN SEEK ADDR
004864 07F4                        5337+         BR    4 RETURN TO CALLER
004866 9101 D2AB      064EC        5338+IEABALST TM    IEAERRS,X'01' TEST FOR SEEK CHECK
                                                                                                               PAGE  124


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00486A 47E0 B2B6            045AA  5339+         BC    14,IEANODCL NOT BALLAST INDICATION
00486E 9102 D2AC      064ED        5340+         TM    IEAERRS+1,X'02' TEST FOR MISSING ADDR MARKER
004872 47E0 B2B6            045AA  5341+         BC    14,IEANODCL NOT BALLAST INDICATION
004876 947F 9003      00003        5342+         NI    3(9),X'7F' BALLAST CELL
00487A 9816 D1D7            06418  5343+         LM    1,6,IEASTREG RESTORE REGS                    000B
00487E 47F0 C2B9            054FA  5344+         B     STUCB2 RETURN TO TEST NEXT CELL        MCS0
004882 95FF D514      06755        5345+UCKCONS  CLI   PRNTSW,X'FF' TEST IF OUTPUT CONS IS PRNTER   2480
004886 4770 B244            04538  5346+         BNE   IEAERR5 NO, WAIT STATE FOR UNIT CHK     2480
00488A 9101 D2AB      064EC        5347+         TM    IEAERRS,X'01' IF PRINTER, TEST IF 9-HOLE SNS  2480
00488E 47E0 B244            04538  5348+         BNO   IEAERR5 NO, WAIT STATE (UNIT CHECK) @SA73511
004892 9815 D1D7            06418  5349+         LM    1,5,IEASTREG IF 9-HOLE, RESTORE REGS         2480
004896 07F5                        5350+         BR    5 RETURN TO CALLER                2480


                                   5352+*  UNIT EXCEPTION ON PRINTER USED AS OUTPUT CONSOLE.               2480
004898 D203 0048 C483 00048 056C4  5353+UEXCONS  MVC   72(4),SKIPCAW SET CAW FOR SKIP TO 1           2480
00489E 9C00 A000      00000        5354+UEXSIO   SIO   0(10) ISSUE SIO                  2480
0048A2 4720 B5AA            0489E  5355+         BC    2,UEXSIO BUSY, REPEAT SIO           2480
0048A6 4710 C011            05252  5356+         BC    1,IEAERR3 NOT OPERATIONAL                 2480
                                   5357+* TIO ON EITHER I/O OP. INITIATED OR CSW STORED FOR CHAN. END      2480
0048AA 9D00 A000      00000        5358+TIOCONS  TIO   0(10) TEST I/O                        2480
0048AE 4720 B5B6            048AA  5359+         BC    2,TIOCONS BUSY, RE-TIO                    2480
0048B2 4790 B23C            04530  5360+         BC    9,IEAERR4 WAIT STATE IF CSW NOT STORED    2480
                                   5361+* CSW STORED - TEST STATUS                                         2480
0048B6 9102 0044      00044        5362+         TM    68,X'02' TEST IF UNIT CHK ON SK TO 1     2480
0048BA 4710 B244            04538  5363+         BC    1,IEAERR5 YES,WAIT STATE FOR UNIT CHK     2480
0048BE 9104 0044      00044        5364+         TM    68,X'04' TEST FOR DEVICE END             2480
0048C2 0715                        5365+         BCR   1,5 YES, RETURN TO CALLER           2480
0048C4 912F 0045      00045        5366+         TM    69,X'2F' TEST FOR CATASTROPHIC CHECK     2480
0048C8 4770 C019            0525A  5367+         BC    7,IEAERR6 YES, ENTER WAIT                 2480
0048CC 47F0 B5B6            048AA  5368+         B     TIOCONS NO, RE-ISSUE TIO                2480
                                                                                                               PAGE  125


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5370+*****                                                       *****  I267
                                   5371+*    THIS SUBROUTINE IS USED BY ANY ROUTINE TO FIND THE UCB     *  I267
                                   5372+*  ADDRESS FOR ANY DEVICE GIVEN THE UNIT ADDRESS. BOTH ALTER-   *  I267
                                   5373+*  NATE CHANNEL AND ALTERNATE CONTROL UNITS ARE CONCIDERED      *  I267
                                   5374+*  IN THE SEARCH                                                *  I267
                                   5375+*                                                               *  I267
                                   5376+*    INPUT- REG 10 CONTAINS A UNIT ADDRESS.                     *  I267
                                   5377+*                                                               *  I267
                                   5378+*    OUTPUT -REGISTERS ARE UNCHANGED.                           *  I267
                                   5379+*           IF UCB IS FOUND-IEAUCBHL=UCB ADDRESS                *  I267
                                   5380+*                           IEAINDIC=X'FF'                      *  I267
                                   5381+*                                                               *  I267
                                   5382+*           IF UCB NOT FOUND                                    *  I267
                                   5383+*                           IEAUCBHL=ZEROS                      *  I267
                                   5384+*                           IEAINDIC=X'00'                      *  I267
                                   5385+*****                                                       *****  I267



                                   5387+*****                                                       *****  I267
                                   5388+*    THE FOLLOWING EQUATES ARE USED ONLY BY THIS SUBROUTINE     *  I267
                                   5389+*****                                                       *****  I267



000000                             5391+FNMISIND EQU   X'00' SET IN IEAINDIC IF UCB MISSING  I267
000009                             5392+FNCHARMS EQU   X'09' TESTS FOR HAAR OR NUMERIC       I267
0000B7                             5393+FNCHARB7 EQU   X'B7' CONVTS BYTE TO EBCDIC CHAR      I267
0000F0                             5394+FNFOXZON EQU   X'F0' ZONE FOR EBCDIC NUMBER          I267
0000FF                             5395+FNFNDIND EQU   X'FF' SET IN IEAINDIC IF UCB FOUND    I267
000003                             5396+VPTREG3  EQU   3 REG PTR TO IEAVOLTB             I267
000004                             5397+FNUCBTAB EQU   4 REG PTR TO UCB LOOK-UP TABLE    I267
000008                             5398+FNUCBREG EQU   8 PTR TO UCB                      I267
00000A                             5399+FNADDREG EQU   10 UNIT ADDRESS REG                I267
000001                             5400+FNR1     EQU   1 I267
000002                             5401+FNR2     EQU   2 I267
000003                             5402+FNR3     EQU   3 WORK REG                        I267
000005                             5403+FNR5     EQU   5 RETURN REG                      I267
000007                             5404+FNR7     EQU   7 HOLDS RET ADDR FROM UCB SRCH    I267
000008                             5405+FNR8     EQU   8 WORK REG                        I267



0048D0                             5407+         USING *,R11
0048D0                             5408+SUBUCBFN EQU   * I267
0048D0 9028 D177            063B8  5409+         STM   FNR2,FNR8,FNSAVE SAVE REGS OVER SUBROUTINE      P4533
0048D4 9102 D537      06778        5410+         TM    CONSSWIT,CONSUCBF IS ENTRY FROM CONSOLE INIT RTN 20202
0048D8 4710 B070            04940  5411+         BO    FNCONENT YES-EBCDIC IN FNADDR           20202
0048DC 9101 D536      06777        5412+         TM    IEASWITE,VOLTBATV IS VOLTB INITIALIZED            I267
0048E0 47E0 B0AA            0497A  5413+         BNO   FNNONDAD NO-DONT SEARCH IT
0048E4 4130 DA8F            06CD0  5414+         LA    VPTREG3,IEAVOLTB PTR TO UCB ADDR TABLE           I267
0048E8 D501 3000 D33B 00000 0657C  5415+FNSERCH  CLC   Q0(Q2,VPTREG3),IEALAST TEST FOR LAST ENTRY         I267
0048EE 4780 B0AA            0497A  5416+         BE    FNNONDAD TEST FOR A NON-DA UCB           I267
0048F2 49A3 0000            00000  5417+         CH    FNADDREG,Q0(VPTREG3) COMP ADDRESSES                 I267
0048F6 4780 B032            04902  5418+         BE    FNPRIME ROUND TAB PTR TO PRIM ADDR      I267
                                                                                                               PAGE  126


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0048FA 4133 0002            00002  5419+         LA    VPTREG3,Q2(VPTREG3) UPDTE TAB PTR                   I267
0048FE 47F0 B018            048E8  5420+         B     FNSERCH TEST NEXT ENTRY                 I267
004902 5430 D197            063D8  5421+FNPRIME  N     VPTREG3,FNROUND RD TAB ADDR TO DOUBL WORD       I267
                                   5422+** VPTREG3 NOW POINTS TO THE PRIMARY UNIT ADDRESS IN NIPS       *  I267
                                   5423+**   ADDRESS TABLE. THIS ADDRESS IS CONVERTED TO ITS EBCDIC VALUE  I267
                                   5424+**   AND STORED AT LOC 'FNADDR' WHERE IT WILL BE COMPARED TO THE   I267
                                   5425+**   EBCDIC UNIT ADDR IN EACH UCB                                  I267
004906 4833 0000            00000  5426+         LH    FNR3,Q0(VPTREG3) UNIT ADDR FRON DASD TAB         I267
00490A 4170 0003            00003  5427+FNONDASD LA    FNR7,Q3 SET LOOP COUNT                 P4796
00490E 1722                        5428+         XR    FNR2,FNR2 ZERO REG                        I267
004910 8930 0014            00014  5429+         SLL   FNR3,Q20 MOVE ADDR TO HI END OF REG      I267
004914 8920 0004            00004  5430+FNSHIFT  SLL   FNR2,Q4 MAKE ROOM FOR NEXT ZONE         I267
004918 8D20 0004            00004  5431+         SLDL  FNR2,Q4 MOVE IN FIRST CHAR TO SEC REG   I267
00491C 4220 D19B            063DC  5432+         STC   FNR2,FNBYTE GET OUT NUMB VALUE              I267
004920 9509 D19B      063DC        5433+         CLI   FNBYTE,FNCHARMS IS IT A CHARACTER               I267
004924 4720 B064            04934  5434+         BH    FNCHAR YES CONV TO EBCDIC A-F          I267
004928 96F0 D19B      063DC        5435+         OI    FNBYTE,FNFOXZON YES-INSERT A FOX ZONE           I267
00492C 4320 D19B            063DC  5436+         IC    FNR2,FNBYTE REST CHAR TO REG W/ZONE DIG FMT I267
004930 47F0 B068            04938  5437+         B     FNLOOP TEST FOR MORE                   I267
004934 4122 00B7            000B7  5438+FNCHAR   LA    FNR2,FNCHARB7(FNR2) CONV LO BYTE TO CHAR FORMAT     I267
004938 4670 B044            04914  5439+FNLOOP   BCT   FNR7,FNSHIFT CONVERT NEXT BYTE OR           P4796
00493C 5020 D193            063D4  5440+         ST    FNR2,FNADDR SAVE UNIT ADDR IN EBCDIC       I267
004940                             5441+FNCONENT EQU   * 20202
004940 4130 D194            063D5  5442+         LA    VPTREG3,FNADDR+Q1 PTR TO EBCDIC UNIT ADDR         I267
004944 5840 0010            00010  5443+         L     FNUCBTAB,CVTPTR PTR TO CVT                      I267
004948 5844 0028            00028  5444+         L     FNUCBTAB,CVTILK2(FNUCBTAB) PTR TO UCB LOOKUP TAB    I267
00494C 4884 0000            00000  5445+FNEXTUCB LH    FNUCBREG,Q0(FNUCBTAB) PTR TO UCB                    I267
004950 4144 0002            00002  5446+         LA    FNUCBTAB,Q2(FNUCBTAB) UP TAB PTR TO NXT ENTRY       I267
004954 1288                        5447+         LTR   FNUCBREG,FNUCBREG TEST FOR DUMMY TABLE ENTRY      I267
004956 4780 B07C            0494C  5448+         BC    Q8,FNEXTUCB YES,TEST NEXT ENTRY             I267
00495A 4980 D33B            0657C  5449+         CH    FNUCBREG,IEALAST IS IT TAB DELIMITER             I267
00495E 4780 B0B0            04980  5450+         BE    FNGRET UCB NOT FOUND-ERR EXIT          I267
004962 D502 800D 3000 0000D 00000  5451+         CLC   UCBEBCDC(Q3,FNUCBREG),Q0(VPTREG3) COMPARE           I267
                                   5452+*                                   VOLTB/UCB UNIT ADDRESSES       I267
004968 4770 B07C            0494C  5453+         BNE   FNEXTUCB TEST NEXT UCB                   I267
00496C                             5454+FNGODRT  EQU   * I267
00496C 4080 D2D3            06514  5455+         STH   FNUCBREG,IEAUCBHL STORE UCB ADDRESS               I267
004970 92FF D516      06757        5456+         MVI   IEAINDIC,FNFNDIND INDICATE UCB FOUND              I267
004974 9828 D177            063B8  5457+FNRET    LM    FNR2,FNR8,FNSAVE RESTORE USER REGS              P4533
004978 07F5                        5458+         BR    FNR5 RETURN                          I267
                                   5459+***                                                           ***  I267
                                   5460+*  IF THE DESIRED UNIT ADDRESS IS NOT FOUND IN VOLTB THE        *  I267
                                   5461+*  DEVICE IS ASSUMED TO BE A NON-DASD TYPE.  THE SUPPLIED       *  I267
                                   5462+*  UNIT ADDRESS IN REG TEN IS THEREFORE ASSUMED TO BE A PRIMARY *  I267
                                   5463+*  ADDRESS. THIS ADDRESS IS CONVERTED TO EBCDIC AND A SEARCH    *  I267
                                   5464+*  IS MADE THROUGH THE UCBS                                     *  I267
                                   5465+***                                                           ***  I267
00497A                             5466+FNNONDAD EQU   * I267
00497A 183A                        5467+         LR    FNR3,FNADDREG MOVE HEX UNIT ADDR TO WORK RG   I267
00497C 47F0 B03A            0490A  5468+         B     FNONDASD RESCAN UCBS USING PRIME ADDR    I267
004980 D701 D2D3 D2D3 06514 06514  5469+FNGRET   XC    IEAUCBHL(Q2),IEAUCBHL ZERO UCB ADDR LOCATION        I267
004986 9200 D516      06757        5470+         MVI   IEAINDIC,FNMISIND INDICATE MISSING UCB            I267
00498A 47F0 B0A4            04974  5471+         B     FNRET RETURN                          I267
                                                                                                               PAGE  127


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78
                                                                                                               PAGE  128


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5474+***
                                   5475+**  SUBROUTINE USED TO INDICATE THAT NIP DID NOT FIND A UCB
                                   5476+**************   CORRESPONDING TO THE ADDRESS OF THE IPL-ED DEVICE.
                                   5477+***
00498E                             5478+         USING *,R11 ESTABLISH ADDRESSABILITY        MXMV
00498E 9108 D52B      0676C        5479+SUBNOUCB TM    IEASWITC,MVCALL TEST FOR MULTI-VOLUME      MCS0
004992 4710 C1D5            05416  5480+         BO    IEAMVPR0 BR TO PRINT                MCS0
004996 D203 0048 C467 00048 056A8  5481+         MVC   72(4),IEAUCBMS SET UP NO UCB MSG               000E
00499C 4140 00C0            000C0  5482+         LA    4,192 R6 = CHARACTER ZONE        000C
0049A0 4150 00F0            000F0  5483+         LA    5,240 R5 = DIGIT ZONE            000C
0049A4 4160 CA31            05C72  5484+         LA    6,IEAUNTNO R6 = STORE PTR             000C
0049A8 4170 0003            00003  5485+         LA    7,3 R1 = LOOP CONTROL          000C
0049AC 4890 D2D9            0651A  5486+         LH    9,UNITADDR R9 = UNIT ADDR             000C
0049B0 8990 0014            00014  5487+         SLL   9,20 SET UNIT ADDR AT HI END R9 000C
0049B4 1B88                        5488+CONVRTLP SR    8,8 000C
0049B6 8D80 0004            00004  5489+         SLDL  8,4 ISOLATE SINGLE DIGIT       000C
0049BA 4980 D29B            064DC  5490+         CH    8,NINE VALUE GT NINE?             000C
0049BE 4720 B03A            049C8  5491+         BH    GTNINE YES, INSERT CHAR ZONE      000C
0049C2 1685                        5492+         OR    8,5 INSERT DIGIT ZONE          000C
0049C4 47F0 B040            049CE  5493+         B     NEXTNUMB SAVE VALUE                 000C
0049C8 4B80 D29B            064DC  5494+GTNINE   SH    8,NINE ADJUST FOR CHARACTER VALUE 000C
0049CC 1684                        5495+         OR    8,4 INSERT CHARACTER ZONE      000C
0049CE 4286 0000            00000  5496+NEXTNUMB STC   8,0(6) SAVE VALVE FOR ADDRESS     000C
0049D2 4166 0001            00001  5497+         LA    6,1(6) BUMP STORE PTR             000C
0049D6 4670 B026            049B4  5498+         BCT   7,CONVRTLP GET NEXT 4 BITS            000C
0049DA 4550 C285            054C6  5499+         BAL   R5,IEACONSL WRITE MESSAGE TO OPERATOR       MCS0
0049DE 9108 D534      06775        5500+UCBNOHNG TM    IEASWITD,NOHANG IS UCB REQ OR IS THIS SUB-UCB?  MCS0
0049E2 47E0 B05E            049EC  5501+         BNO   UCBHANG IF NOT SUB-UCB CHECK THEN HANG  MCS0
0049E6 5850 D74F            06990  5502+         L     5,NOHNGCON DROP THROUGH TO RESUME     000C
0049EA 07F5                        5503+         BR    5 PROCESSING                 000C
0049EC 47F0 C011            05252  5504+UCBHANG  B     IEAERR3 WAIT - REIPL REQUIRED      000C
                                                                                                               PAGE  129


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5506+***
                                   5507+**  SUBROUTINE USED TO PLACE THE TTR OF THE VTOC AND THE VOLUME LABEL
                                   5508+**************   IN THE DESIGNATED UCB.
                                   5509+***
0049F0                             5510+         USING *,R11 ESTABLISH ADDRESSABILITY        MXMV
0049F0 9038 D1A7            063E8  5511+SUBUCBIN STM   R3,R8,SAVEREF3 SAVE REGS                  MCS0
0049F4 4560 C123            05364  5512+         BAL   6,IEARDVOL SUBROUTINE PROVIDES VTOC CCHHR, VOLUME
0049F8 1B66                        5513+         SR    6,6 LABEL, AND TRKS/CYL FOR THIS DEVICE
0049FA 91FF D510      06751        5514+         TM    IEADTACL,X'FF' TEST FOR SUB UCB           000E
0049FE 4710 B034            04A24  5515+         BC    1,IEADCELL YES, BRANCH FOR DATA CELL  000E
                                   5516+*CONVERT CCHH TO TTR FOR ALL BUT 2321 DEVICE TYPE                  000E
004A02 4870 D459            0669A  5517+         LH    R7,IEAVTOC R7 = CC OF VTOC            000E
004A06 4880 D2C7            06508  5518+         LH    R8,IEATRPCL R8 = TRKS/CYL FOR DEVICE TYPE 000E
004A0A 1C68                        5519+         MR    R6,R8 CONVERT CC TO TT           000E
004A0C 4A70 D45B            0669C  5520+         AH    R7,IEAVTOC+2 ADD REMAINING TT           000E
004A10 4079 0024            00024  5521+         STH   R7,36(R9) SET TT OF VTOC IN UCB + 36 000E
004A14 D200 9026 D45D 00026 0669E  5522+         MVC   38(1,R9),IEAVTOC+4 SET R OF VTOC IN UCB + 38  000E
004A1A D205 901C D469 0001C 066AA  5523+         MVC   28(6,R9),IEAVOLAB SET VOLUME LABEL IN UCB    000E
004A20 47F0 B082            04A72  5524+         B     IEAABUCB BRANCH TO RETURN           000E
                                   5525+*CONVERT CCHH TO TTR FOR 2321 DEVICE TYPE                          5043
                                   5526+* C2 = SUBCELL NO.(0-19); C1 = STRIP NO.(0-9);                     5043
                                   5527+* H2 = CYL NO.(0-4); H1 = HEAD NO.(0-19)                           5043
004A24 1B55                        5528+IEADCELL SR    R5,R5 5043
004A26 1B44                        5529+         SR    R4,R4 5043
004A28 1B77                        5530+         SR    R7,R7 5043
004A2A 1B88                        5531+         SR    R8,R8 5043
004A2C 4130 0001            00001  5532+         LA    R3,1 REG TO BRANCH ON 2ND PASS   5043
004A30 4350 D45B            0669C  5533+         IC    R5,IEAVTOC+2 R5 = H2 FROM CCHH          5043
004A34 4370 D45A            0669B  5534+         IC    R7,IEAVTOC+1 R7 = C1                    5043
004A38 4340 D2C7            06508  5535+         IC    R4,IEATRPCL R4 = CYL/STRIP FOR 2321    5043
004A3C 1C64                        5536+CONVERCL MR    R6,R4 R7 = NO. OF CYLINDERS IN C15043
004A3E 1A57                        5537+         AR    R5,R7 R5 = CYLINDER TOTAL REG.   5043
004A40 4630 B064            04A54  5538+CONVERTR BCT   R3,TRKPERCL BRANCH AFTER C1 & C2 CONVERT5043
004A44 1B77                        5539+         SR    R7,R7 5043
004A46 4370 D2CD            0650E  5540+         IC    R7,IEASTPSC R7 = STRIPS/SUBCELL        5043
004A4A 1C64                        5541+         MR    R6,R4 R7 = CYL/SUBCELL FOR 2321  5043
004A4C 4340 D459            0669A  5542+         IC    R4,IEAVTOC R4 = C2                    5043
004A50 47F0 B04C            04A3C  5543+         B     CONVERCL 5043
004A54 1875                        5544+TRKPERCL LR    R7,R5 R7 = TOTAL CYLINDERS       5043
004A56 4380 D2C8            06509  5545+         IC    R8,IEATRPCL+1 R8 = TRKS/CYL FOR 2321      5043
004A5A 1C68                        5546+         MR    R6,R8 CONVERT TO TRACKS          5043
004A5C 4360 D45C            0669D  5547+         IC    R6,IEAVTOC+3 R6 = H1                    5043
004A60 1A76                        5548+         AR    R7,R6 R7 = TOTAL TT              5043
004A62 4079 000C            0000C  5549+         STH   R7,12(R9) SET TT IN SUB UCB          5043
004A66 D200 900E D45D 0000E 0669E  5550+         MVC   14(1,R9),IEAVTOC+4 SET R IN SUB UCB           5043
004A6C D205 9004 D469 00004 066AA  5551+         MVC   4(6,R9),IEAVOLAB SET VOLUME SER IN SUB UCB  5053
004A72 9838 D1A7            063E8  5552+IEAABUCB LM    R3,R8,SAVEREF3 RESTORE REGS               000E
004A76 07F3                        5553+         BR    R3 RETURN TO CALLER           000E
                                                                                                               PAGE  130


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5555+***                                                                000C
                                   5556+**  SUBROUTINE FOR DATA CELL INITIALIZATION                        000C
                                   5557+***                                                                000C
004A78                             5558+         USING *,R11 ESTABLISH ADDRESSABILITY        MXMV
004A78                             5559+SUBDCINT EQU   * I267
004A78 92FF D510      06751        5560+         MVI   IEADTACL,X'FF' TURN ON DATA CELL SWITCH           000C
004A7C 94BF 9006      00006        5561+         NI    6(9),X'BF' TURN OFF POSS NOT READY    000C
004A80 9680 9003      00003        5562+         OI    3(9),X'80' INSURE ONLINE STATUS       000C
004A84 D200 D2CE 9013 0650F 00013  5563+         MVC   IEADCELX(1),19(R9) SAVE INDEX TO DEVICE TABLE  5043
004A8A 4199 0038            00038  5564+         LA    9,56(9) SET UCB PNTR TO FIRST SUB-UCB      000C
004A8E D201 D451 9000 06692 00000  5565+IEATUCB1 MVC   IEASKADR(2),0(9) SET BB IN SEEK ADDRESS             000C
004A94 9680 9003      00003        5566+         OI    3(9),X'80' SET SUBCELL ONLINE         000C
004A98 4530 C0ED            0532E  5567+         BAL   3,IEAUCBIN SET LABEL INFO IN SUB UCB          000C
004A9C 4530 C23D            0547E  5568+         BAL   3,DUPVLTST BAL TO TEST FOR DUPL VOLAB      1935
004AA0                             5569+IEATUCB2 EQU   * I267
004AA0 9509 9001      00001        5570+         CLI   1(9),X'09' TEST FOR LAST SUB-UCB              000C
004AA4 4770 B050            04AC8  5571+         BNE   IEATUCB3 NO-CONTINUE SUB-UCB INITIALIZATION 000C
004AA8 9200 D510      06751        5572+         MVI   IEADTACL,X'00' YES- TURN OFF DATA CELL SWITCH     000C
004AAC D701 D451 D451 06692 06692  5573+         XC    IEASKADR(2),IEASKADR CLEAR BB OF SEEK ADDRESS       000C
004AB2 1894                        5574+IEAREDTC LR    R9,R4 GET UCB LOOK-UP TAB PTR        P4128
004AB4 0690                        5575+         BCTR  R9,R0 SUBTRACT TWO TO POINT TO TAB   P4128
004AB6 0690                        5576+         BCTR  R9,R0 ENTRY FOR THIS DEVICE         P4128
004AB8 4899 0000            00000  5577+         LH    R9,Q0(R9) GET PTR TO D-CELL UCB FROM TAB P4128
004ABC 9110 D534      06775        5578+         TM    IEASWITD,UCBDTCEL TEST FOR MOUNT ENTRY           P4128
004AC0 47E0 C10F            05350  5579+         BNO   DTUCB1 MCS0
004AC4 47F0 C119            0535A  5580+         B     DTUCB2 MCS0
004AC8 4199 0010            00010  5581+IEATUCB3 LA    9,16(9) UPDATE UCB PNTR TO NEXT SUB-UCB    000C
004ACC 47F0 B016            04A8E  5582+         B     IEATUCB1 MOVE TO NXT BIN               A29418
                                                                                                               PAGE  131


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5584+***
                                   5585+**  SUBROUTINE USED BY THE UCB INITIALIZATION ROUTINE TO READ THE
                                   5586+**************   VOLUME SERIAL NUMBER AND THE CCHHR OF THE VTOC, AND
                                   5587+**               THE NUMBER OF TRACKS PER CYLINDER.
                                   5588+**       INPUT: REGISTER 9 = UCB ADDRESS
                                   5589+**              REGISTER 10 = UNIT ADDRESS
                                   5590+**       OUTPUT: IEAVTOC = 5 BYTE CCHHR ADDRESS OF VTOC DSCB
                                   5591+**               IEAVOLAB = 6 BYTE VOLUME SERIAL NUMBER ACTUALLY READ
                                   5592+**               IEATRPCL = TRACKS PER CYLINDER
                                   5593+***
004AD0                             5594+         USING *,R11 ESTABLISH ADDRESSABILITY        MXMV
004AD0 9038 D1BF            06400  5595+SUBVRTTR STM   R3,R8,SAVEREF4 SAVE REGS                  MCS0
004AD4 D703 D453 D453 06694 06694  5596+         XC    IEASKADR+2(4),IEASKADR+2 SEEK ADDR = CYL 0  TRK 0   000A
004ADA D704 D45E D45E 0669F 0669F  5597+         XC    IEASRADR(5),IEASRADR SEARCH ADDR = CYL ZERO, TRACK ZERO
004AE0 9203 D462      066A3        5598+         MVI   IEASRADR+4,X'03' RECORD THREE (VOLUME LABEL)
004AE4 D203 0048 C473 00048 056B4  5599+         MVC   72(4),IEAROLST SET CAW FOR SEEK
004AEA 4550 C29F            054E0  5600+         BAL   5,IEASTRIO EXECUTE THE CCW'S
004AEE D203 D45E D453 0669F 06694  5601+         MVC   IEASRADR(4),IEASKADR+2 COORDINATE SEEK AND SEARCH
004AF4 D203 0048 C46F 00048 056B0  5602+         MVC   72(4),IEALBLST SET CAW FOR SEEK,SEARCH RECORD 3
004AFA 4550 C29F            054E0  5603+         BAL   5,IEASTRIO READ RECORD 3 INTO BUFFER
004AFE D204 D459 D002 0669A 06243  5604+         MVC   IEAVTOC(5),IEABUFER+11 SAVE CCHHR OF VTOC
004B04 D205 D469 CFFB 066AA 0623C  5605+         MVC   IEAVOLAB(6),IEABUFER+4 SAVE VOLUME SERIAL NUMBER
004B0A 5880 C643            05884  5606+         L     R8,CNVTDTAB R8 = PTR TO DEVICE TABLE    5043
004B0E 1B55                        5607+         SR    R5,R5 5043
004B10 91FF D510      06751        5608+         TM    IEADTACL,X'FF' TEST FOR DATA CELL          5043
004B14 47E0 B05C            04B2C  5609+         BC    14,IEANCELL NOT 2321, BRANCH            5043
004B18 4350 D2CE            0650F  5610+         IC    R5,IEADCELX R5 = INDEX TO DEVICE TABLE  5043
004B1C 4355 8000            00000  5611+         IC    R5,0(R5,R8) R5 = INDEX FROM DEVICE TABLE5043
004B20 4865 8000            00000  5612+         LH    R6,0(R5,R8) SUBCELLS/CELL & STRIPS/SUBC 5043
004B24 4260 D2CD            0650E  5613+         STC   R6,IEASTPSC SAVE STRIPS/SUBCELL         5043
004B28 47F0 B064            04B34  5614+         B     IEAYCELL RETURN TO MAINLINE RTN      5043
004B2C 4359 0013            00013  5615+IEANCELL IC    R5,19(R9) R5 = DEVICE TABLE INDEX     5043
004B30 4355 8000            00000  5616+         IC    R5,0(R5,R8) R5 = INDEX FROM DEVICE TABLE5043
004B34 4865 8002            00002  5617+IEAYCELL LH    R6,2(R5,R8) R6 = TRKS/CYL               5043
004B38 91FF D3F3      06634        5618+         TM    IEASRSW,X'FF' TRK INFO REQUEST?          000C
004B3C 4780 B0A2            04B72  5619+         BC    8,IEATPCLO NO, SAVE ONLY TRK/CYL      000C
004B40 4060 D3EF            06630  5620+         STH   6,IEASRTPC SAVE TRK/CYL               000C
004B44 4865 8000            00000  5621+         LH    6,0(5,8) PICK UP POSS DATACELL INFO 000C
004B48 4060 D3F1            06632  5622+         STH   6,DCELDATA AND SAVE FOR REFERENCE     000C
004B4C 4865 8004            00004  5623+         LH    6,4(5,8) R6 = BYTES/TRK             000C
004B50 4060 D3E1            06622  5624+         STH   6,IEATRKSZ+2 SAVE BYTES/TRK             000C
004B54 4865 800A            0000A  5625+         LH    6,10(5,8) R6 = TOLERANCE FACTER      000C
004B58 4060 D3E5            06626  5626+         STH   6,IEATOLFR+2 SAVE TOLERANCE FACTOR      000C
004B5C 1B33                        5627+         SR    3,3 CLEAR R3 FOR COMPUTATION   000C
004B5E 1B66                        5628+         SR    6,6 CLEAR R6 FOR COMPUTATION   000C
004B60 4365 8006            00006  5629+         IC    6,6(5,8) R6 = OVERHEAD              000C
004B64 4335 8008            00008  5630+         IC    3,8(5,8) R3 = FACTOR FOR NO KEY RCD 000C
004B68 1B63                        5631+         SR    6,3 R6 = OVERHEAD FOR NON KEY  000C
004B6A 4260 D3EA            0662B  5632+         STC   6,IEAOVHED+3 SAVE OVERHEAD              000C
004B6E 47F0 B0A6            04B76  5633+         B     IEARDVOK RETURN                     000C
004B72 4060 D2C7            06508  5634+IEATPCLO STH   6,IEATRPCL SAVE ONLY TRK/CYL          000C
004B76 9838 D1BF            06400  5635+IEARDVOK LM    3,8,SAVEREF4 RESTORE REGS               000C
004B7A 07F6                        5636+         BR    6 RETURN TO CALLER
                                                                                                               PAGE  132


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5638+***
                                   5639+**  SUBROUTINE USED BY ANY ROUTINE TO DETERMINE THE VOLUME SERIAL
                                   5640+**************   NUMBER OF A DATA SET BY ISSUING A LOCATE (SVC 26).
                                   5641+**               IF NOT FOUND, AMESSAGE IS PRINTED AND NIP CONTINUES.
                                   5642+**       INPUT: IEADSTNM = 44 BYTE DSNAME
                                   5643+**       OUTPUT: IEAVOLAB = 6 BYTE VOLUME SERIAL NUMBER
                                   5644+***
004B7C                             5645+         USING *,R11 ESTABLISH ADDRESSABILITY        MXMV
004B7C 1BFF                        5646+SUBLOCAT SR    R15,R15 CLEAR REG 15               MCS0
004B7E 1BAA                        5647+         SR    10,10 CLEAR REG 10
004B80 4110 D9DB            06C1C  5648+         LA    1,IEADSTNM R 1 = PNTR TO DATA SET NAME
004B84 5010 CFEB            0622C  5649+         ST    1,IEALIST+4 SET PNTR TO DATA SET IN LOCATE PARAMLST
004B88 4110 CFF7            06238  5650+         LA    1,IEABUFER R 1 = PNTR TO BUFFER
004B8C 5010 CFF3            06234  5651+         ST    1,IEALIST+12 SET PNTR TO BUFFER IN LOCATE PARAM LIST
004B90 4110 CFE7            06228  5652+         LA    1,IEALIST R 1 = PNTR TO PARAMETER LIST FOR LOCATE
004B94 0A1A                        5653+         SVC   26 LINK TO SERVICE ROUT.
004B96 19FA                        5654+         CR    15,10 TEST FOR DATA SET FOUND  BY LOCATE
004B98 4720 B02C            04BA8  5655+         BH    IEAMSG1 NOT FOUND TELL OPERATOR
004B9C 9200 D512      06753        5656+         MVI   LOCATEOK,X'00' TURN ON LOCATE OK SWITCH           000A
004BA0 D205 D469 CFFD 066AA 0623E  5657+         MVC   IEAVOLAB(6),IEABUFER+6 FOUND-ISOLATE VOLUME SERIAL
004BA6 07F9                        5658+         BR    9 RETURN WITH DATASET VOLUME SERIAL
004BA8 9104 D52B      0676C        5659+IEAMSG1  TM    IEASWITC,PARMCALL TEST FOR MSG BYPASS         000E
004BAC 4710 B04C            04BC8  5660+         BO    NLOCMSG YES, BRANCH TO SET SWITCH   000E
004BB0 9180 D52B      0676C        5661+         TM    IEASWITC,HCCALL TEST FOR HARDCOPY CALL          MCS0
004BB4 4710 B04C            04BC8  5662+         BO    NLOCMSG YES,DO NOT PRINT MSG            MCS0
004BB8 D22B C9B6 D9DB 05BF7 06C1C  5663+         MVC   MSG1STNM(44),IEADSTNM MOVE MISSING DSNAME TO MSG    MCS0
004BBE D203 0048 C43B 00048 0567C  5664+         MVC   72(4),MSG1CAW SET CAW FOR MESSAGE 1 CCW'S
004BC4 4550 C285            054C6  5665+         BAL   R5,IEACONSL TELL OPERATOR D.S. NOT FOUND    MCS0
004BC8 92FF D512      06753        5666+NLOCMSG  MVI   LOCATEOK,X'FF' SET LOCATE FAILED SWITCH    000E
004BCC 07F9                        5667+         BR    9 RETURN WITH SWITCH OFF             000A
                                                                                                               PAGE  133


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5669+***                                                                000E
                                   5670+**  SUBROUTINE USED BY ANY ROUTINE TO OBTAIN A FORMAT 1 OR A FORMAT000E
                                   5671+**  3 DSCB. IF THE REQUESTED DSCB CANNOT BE OBTAINED, THE MESSAGE  000E
                                   5672+**  'IEA211I OBTAIN FAILED FOR (DSNAME) DATA SET' IS PRINTED OUT,  000E
                                   5673+**  IN WHICH CASE THE SUBROUTINE WILL FREE CORE. HOWEVER,IF THE    000E
                                   5674+**  OBTAIN IS SUCCESSFUL, THE USER SHOULD BRANCH AND LINK REGISTER 000E
                                   5675+**  R4 TO IEAFREOB WITH THE ADDRESS OF THE DSCB IN GMADDR WHEN HE  000E
                                   5676+**  IS FINISHED USING THE DSCB.                                    000E
                                   5677+**  NOTE: REGISTERS 0,1 AND 5 ARE DESTROYED IN ALL CASES.          000E
                                   5678+**             ENTRY TO SUBROUTINE:IEADSTNM = 44 BYTE DSNAME (FMT1)000E
                                   5679+**                                 IEA5BYTE = 5 BYTE CCHHR (FMT 3) 000E
                                   5680+**                                 IEAVOLAB = 6 BYTE VOLUME LABEL  000E
                                   5681+**                                              EITHER FORMAT      000E
                                   5682+**                                 R3 = 0 IF FORMAT 3              000E
                                   5683+**                                    = 4 IF FORMAT 1              000E
                                   5684+**                                 R4 = RETURN ADDRESS - EITHER FMT000E
                                   5685+**             EXIT FROM SUBROUTINE:R10 = ADDR OF DSCB             000E
                                   5686+**                                  R15 = 0 IF SUCCESSFUL OBTAIN   000E
                                   5687+**                                      = FF IF GETMAIN FAILED      DAR
                                   5688+**                                      = OBTAIN SVC RETURN CODE    DAR
                                   5689+***                                                                000E

004BCE                             5691+         USING *,R11 ESTABLISH ADDRESSABILITY        MXMV
004BCE 1BFF                        5692+SUBOBTAN SR    R15,R15 CLEAR REG 15               MCS0
004BD0 4100 0168            00168  5693+         LA    R0,PARMTAB CUMBER OF BYTES NEEDED          000E
004BD4 4110 0004            00004  5694+         LA    R1,4 SET SUBRTN CODE                 000E
004BD8 4550 C1EF            05430  5695+         BAL   R5,IEAGETM GO TO GETMAIN RTN               000E
004BDC 12FF                        5696+         LTR   R15,R15 SUCCESSFUL?                     000E
004BDE 4770 B07A            04C48  5697+         BNE   IEAMFAIL GETMAIN FAILED,RETURN           OOOE
004BE2 58A0 D63B            0687C  5698+         L     R10,GMADDR CORE ADD* IN REG                000E
004BE6 D7FF A000 A000 00000 00000  5699+         XC    0(256,R10),0(R10) ZERO OUT NEW           000E
004BEC D767 A100 A100 00100 00100  5700+         XC    256(PARMTAB-256,R10),256(R10) CORE                000E
004BF2 47F3 B028            04BF6  5701+         B     *+4(R3) BRANCHING TABLE                 OOOE
004BF6 47F0 B03E            04C0C  5702+         B     IEAF3OBT BRANCH TO FORMAT 3 RTN          OOOE
004BFA 50A0 C4A7            056E8  5703+IEAF1OBT ST    R10,IEADSCB5+12 PUT WORK AREA ADDR INTO LIST    OOOE
004BFE 4110 C49B            056DC  5704+         LA    1,IEADSCB5 LOAD PARAMETER REG 1
004C02 0A1B                        5705+         SVC   27 ISSUE OBTAIN SVC
004C04 12FF                        5706+         LTR   R15,R15 OBTAIN SUCCESSFUL?         000E
004C06 4770 B04C            04C1A  5707+         BNE   IEAOBFAL NO,INFORM OPERATOR         000E
004C0A 07F4                        5708+         BR    R4 RETURN                          OOOE
004C0C 50A0 C4B7            056F8  5709+IEAF3OBT ST    R10,IEADSCB7+12 PUT WORK AREA INTO LIST         OOOE
004C10 4110 C4AB            056EC  5710+         LA    1,IEADSCB7 LOAD PARAMETER REG 1
004C14 0A1B                        5711+         SVC   27 ISSUE OBTAIN SVC
004C16 12FF                        5712+         LTR   R15,R15 TEST RETURN CODE                OOOE
004C18 0784                        5713+         BCR   8,R4 GOOD,RETURN                     OOOE
004C1A 42F0 CFC3            06204  5714+IEAOBFAL STC   R15,IEA5BYTE+5 SAVE RETURN CODE                     MCS0
004C1E 9101 D52B      0676C        5715+         TM    IEASWITC,ROLLCALL TEST FOR ROLLOUT OBTAIN           MCS0
004C22 4710 C16B            053AC  5716+         BO    IEAFREOB YES, DO NOT PRINT ERROR MSG           MCS0
004C26 D22B CC3A D9DB 05E7B 06C1C  5717+         MVC   DSBMSGNM(L'DSBMSGNM),IEADSTNM SET NAME IN OBTAIN MSGMCS0
004C2C D203 0048 C497 00048 056D8  5718+         MVC   72(4),IEANODSB SET ERROR MESSAGE CAW      000E
004C32 4550 C285            054C6  5719+         BAL   R5,IEACONSL WTO 211I MESSAGE            000E
004C36 1B11                        5720+SFREOB   SR    R1,R1 R1=FREEMAIN CODE                MCS0
004C38 4100 0168            00168  5721+         LA    R0,PARMTAB NUMBER OF BYTES FOR FREEMAIN    000E
004C3C 4550 C1EF            05430  5722+         BAL   R5,IEAGETM LINK TO SUBRTN                  000E
004C40 1BFF                        5723+         SR    R15,R15 CLEAR REG 15                          MCS0
                                                                                                               PAGE  134


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004C42 43F0 CFC3            06204  5724+         IC    R15,IEA5BYTE+5 RESTORE RETURN CODE                  MCS0
004C46 07F4                        5725+         BR    R4 RETURN AFTER FREE MAIN          OOOE
004C48 41F0 00FF            000FF  5726+IEAMFAIL LA    R15,Q255 CODE FOR GETMAIN FAILED               DAR
004C4C 07F4                        5727+         BR    R4 RETURN                          OOOE
                                                                                                               PAGE  135


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5729+***
                                   5730+**  SUBROUTINE USED BY ANY ROUTINE DETECTING A UNIT CHECK FROM THE 2841
                                   5731+**************   CONTROL UNIT TO CLEAR A POSSIBLE CONTINGENT CONNECTION
                                   5732+**               CONDITION. SEE 2841 FUNCTIONAL SPECS FOR DETAILS.
                                   5733+***
004C4E                             5734+         USING *,R11 ESTABLISH ADDRESSABILITY        MXMV
004C4E D203 0048 C47F 00048 056C0  5735+SUBSENSE MVC   72(4),IEASNCAW SET CAW FOR SENSE CCW      MCS0
004C54 5020 C3DB            0561C  5736+         ST    R2,SENSIOSV SAVE REG 2              @AS78239
004C58 9C00 A000      00000        5737+SENSIO   SIO   0(R10) ISSUE SIO FOR SENSE        3800
004C5C 4770 B00A            04C58  5738+         BC    7,SENSIO NOT STARTED, RE-SIO             3800
004C60 9D00 A000      00000        5739+SENTIO   TIO   0(R10) TEST I/O                   3800
004C64 4740 B02E            04C7C  5740+         BC    4,COMPLT DONE IF CSW STORED      @AS78239
004C68 9540 9012      00012        5741+         CLI   18(9),X'40' COMMUN. DEV?            @AS78239
004C6C 4770 B012            04C60  5742+         BNE   SENTIO NO,RE-TIO               @AS78239
004C70 4120 0FFF            00FFF  5743+         LA    R2,X'FFF' LOAD DELAY              @AS78239
004C74 4620 B026            04C74  5744+CDLOOP   BCT   R2,CDLOOP COM.DEV TIME DELAY      @AS78239
004C78 47F0 B012            04C60  5745+         B     SENTIO RE-TIO                  @AS78239
004C7C                             5746+COMPLT   EQU   * @AS78239
                                   5747+*   THE FOLLOWING TEST IS PROVIDED TO ALLOW THE RUNNING OF IN-LINE 3800
                                   5748+*      DIAGNOSTICS ON THE SPARE DRIVE OF A 2314 WHILE IPL-ING      3800
                                   5749+*      A 2314 SYSTEM.                                              3800
004C7C 9130 0044      00044        5750+         TM    X'44',X'30' TEST FOR CU BUSY OR CU END      3800
004C80 4770 B012            04C60  5751+         BC    7,SENTIO IF EITHER, RE-ISSUE I/O CMD     3800
004C84 5820 C3DB            0561C  5752+         L     R2,SENSIOSV RESTORE REG 2           @AS78239
004C88 07F5                        5753+         BCR   15,R5 RETURN                     3800
                                                                                                               PAGE  136


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5755+***                                                                I267
                                   5756+*   SUBROUTINE USED BY ANY ROUTINE TO SCAN THE UCB TABLE FOR THE   I267
                                   5757+*        DESIRED VOLUME LABEL. IF THE LABEL IS FOUND, THE VOLUME   I267
                                   5758+*        WAS (IS) MOUNTED WHEN NIP SCANNED THE DIRECT ACCESS       I267
                                   5759+*        DEVICES. ENTRY IS THROUGH IEASERCH. ALL REGISTERS AND     I267
                                   5760+*        WORK AREAS REMAIN INTACT. IF THE VOLUME IS NOT MOUNTED,   I267
                                   5761+*        CONTROL IS PASSED TO IEAMOUNT UNTIL IT IS MOUNTED. EXIT   I267
                                   5762+*        FROM THE ROUTINE OCCURS ONLY WHEN THE LABEL IS FOUND.     I267
                                   5763+*        INPUT: IEAVOLAB = 6 BYTE VOLUME SERIAL NUMBER
                                   5764+*        OUTPUT: REGISTER 10 = UNIT ADDRESS
                                   5765+***                                                                I267



000003                             5767+SER3     EQU   3 UCB ADDR TABLE PNTR             I267
000004                             5768+SER4     EQU   4 UCB PNTR                        I267
000005                             5769+SER5     EQU   5 SUB-UCB COUNTER                 I267
000006                             5770+SER6     EQU   6 SUB-UCB POINTER                 I267
000007                             5771+SER7     EQU   7 I267
000008                             5772+SER8     EQU   8 I267
00000A                             5773+SER10    EQU   10 REG WITH UNIT ADDRESS           I267
004C8A                             5774+         USING *,R11
004C8A                             5775+SUBSERCH EQU   * I267
004C8A 9038 D15F            063A0  5776+         STM   SER3,SER8,SAVEREF1 SAVE REGS                       I267
004C8E 5830 0010            00010  5777+IEASCAN1 L     SER3,CVTPTR R3 = CVT ADDR                   I267
004C92 5833 0028            00028  5778+         L     SER3,CVTILK2(SER3) R3 = UCB ADDR TABLE PNTR        I267
004C96 D501 3000 D33B 00000 0657C  5779+SERLOOP  CLC   Q0(Q2,SER3),IEALAST TEST FOR END OF TABLE           I267
004C9C 4780 B080            04D0A  5780+         BE    SERNOFND YES, REQUEST A MOUNT            I267
004CA0 4843 0000            00000  5781+         LH    SER4,Q0(SER3) R4 = UCB PNTR                   I267
004CA4 9520 4012      00012        5782+         CLI   UCBDCLAS(SER4),UCBDASD * DIRECT ACCESS            A35199
004CA8 4770 B02A            04CB4  5783+         BNE   SUBCHK *                 NO, BRANCH               A35199
004CAC 9505 4013      00013        5784+         CLI   UCBUTYPE(SER4),DCELTYPE TEST FOR DATA CELL          I267
004CB0 4780 B04C            04CD6  5785+         BE    SERCELLA YES, HANDLE SEPARATELY          I267
                                   5786+SUBCHK   EQU   * .                                                 A351X
004CB4                                 +               99
004CB4 D505 401C D469 0001C 066AA  5787+         CLC   UCBVOLAB(Q6,SER4),IEAVOLAB COMPARE VOLUME LABELS    I267
004CBA 4780 B03C            04CC6  5788+         BE    SERFOUND EQUAL, VOLUME MOUNTED           I267
004CBE 4133 0002            00002  5789+SERADPTR LA    SER3,Q2(SER3) UPDATE UCB ADDR TABLE PNTR      I267
004CC2 47F0 B00C            04C96  5790+         B     SERLOOP CONTINUE                        I267
004CC6 D201 D2D9 4004 0651A 00004  5791+SERFOUND MVC   UNITADDR(Q2),UCBCHA(SER4) SAVE UNIT ADDR            I267
004CCC 48A0 D2D9            0651A  5792+         LH    SER10,UNITADDR RETURN UNIT ADDR                I267
004CD0 9838 D15F            063A0  5793+SERCHRET LM    SER3,SER8,SAVEREF1 RESTORE REGS                    I267
004CD4 07F3                        5794+         BR    SER3 RETURN                          I267
004CD6 91FF D511      06752        5795+SERCELLA TM    IEAPRCSW,XFF TEST FOR D.S. ALLOWED ON DCEL   I267
004CDA 4780 B034            04CBE  5796+         BZ    SERADPTR NO, DO NOT TEST DATACELLS       I267
004CDE 4164 0038            00038  5797+         LA    SER6,UCBSIZE(SER4) UPDATE PTR TO 1ST BIN           I267
004CE2 1B55                        5798+         SR    SER5,SER5 CLEAR REG 5                     I267
004CE4 D505 6004 D469 00004 066AA  5799+SERCELLB CLC   DCELVOLI(Q6,SER6),IEAVOLAB COMPARE VOLUME LABELS    I267
004CEA 4780 B078            04D02  5800+         BE    SERCELLD EQUAL, VOLUME MOUNTED           I267
004CEE 4166 0010            00010  5801+         LA    SER6,UCBDCLSZ(SER6) UPDATE SUB-CELL PTR             I267
004CF2 4155 0001            00001  5802+         LA    SER5,Q1(SER5) UPDATE BIN COUNTER              I267
004CF6 5950 D29F            064E0  5803+         C     SER5,IEATEN TEST FOR ALL LABELS CHECKED     I267
004CFA 4780 B034            04CBE  5804+         BE    SERADPTR YES, LOOK AT NEXT UCB           I267
004CFE 47F0 B05A            04CE4  5805+         B     SERCELLB NO, CHECK NEXT SUB-UCB          I267
004D02 4050 D451            06692  5806+SERCELLD STH   SER5,IEASKADR SAVE BIN NO. IN SEEK ADDR       I267
                                                                                                               PAGE  137


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004D06 47F0 B03C            04CC6  5807+         B     SERFOUND PICK UP UNIT ADDR AND RETURN    I267
004D0A 4550 C1BD            053FE  5808+SERNOFND BAL   SER5,IEAMOUNT ISSUE MOUTN REQUEST             I267
004D0E 47F0 B046            04CD0  5809+         B     SERCHRET BRANCH TO RETURN TO CALLER      I267
004D12 9101 D52B      0676C        5810+IEATSTDV TM    IEASWITC,ROLLCALL TEST FOR DEVICE DEPENDENCE 000E
004D16 4780 B0AC            04D36  5811+         BC    8,TSTDVRET NO, TAKE BRANCH          000E
004D1A 4700 B098            04D22  5812+TSTNUCB  BC    0,TSTNUCB1 BRANCH SET IF R9 = UCB ADDR 000E
004D1E 4550 C0BD            052FE  5813+         BAL   R5,IEAUCBFN FIND UCB ADDR FOR THIS UNIT000E
004D22 4890 D2D3            06514  5814+TSTNUCB1 LH    R9,IEAUCBHL R9 = PTR TO UCB            000E
004D26 9200 B091      04D1B        5815+         MVI   TSTNUCB+1,X'00' RESET UCB SEARCH SWITCH        P2086
004D2A D501 D3AB 9012 065EC 00012  5816+         CLC   IEARLOCT+LOCATDCL(Q2),UCBDCLAS(R9) COMPARE DEV TYPE 000E
004D30 4780 B0AC            04D36  5817+         BE    TSTDVRET CORRECT DEVICE TYPE, BRANCH000E
004D34 07F6                        5818+         BR    R6 RETURN FOR DEVICE NOT FOUND000E
004D36 07F7                        5819+TSTDVRET BR    SER7 NORMAL RETURN                   I267
                                                                                                               PAGE  138


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5821+***
                                   5822+**  SUBROUTINE USED BY ANY ROUTINE TO HAVE DESIRED VOLUME MOUNTED.
                                   5823+**************
                                   5824+***
004D38                             5825+         USING *,R11 ESTABLISH ADDRESSABILITY        MXMV
004D38 9038 D11F            06360  5826+SUBMOUNT STM   R3,R8,SAVEREF SAVE REGS                       MCS0
004D3C 9108 D52B      0676C        5827+IEAMNT4  TM    IEASWITC,MVCALL TEST FOR MULTI-VOLUME               MCS0
004D40 47E0 B0CE            04E06  5828+         BC    14,IEAREGMT NO,PROCEED NORMALLY             000E
004D44 4700 B01E            04D56  5829+IEAMVSWT BC    0,IEAMVPRT NOP UNTIL MSG PRINTED ONCE      000E
004D48 D203 0048 C48B 00048 056CC  5830+         MVC   72(4),IEAMVMTA SET UP MOUNT CAW                000E
004D4E 4550 C285            054C6  5831+         BAL   R5,IEACONSL PRINT MSG                       000E
004D52 92F0 B00D      04D45        5832+         MVI   IEAMVSWT+1,X'F0' MAKE NOP AN UNCONDITIONAL BRANCH000E
004D56 D205 D84F D469 06A90 066AA  5833+IEAMVPRT MVC   IEAMBNM(6),IEAVOLAB PREPARE VOLUME LABEL FOR PRINT  000E
004D5C D201 D855 DA35 06A96 06C76  5834+         MVC   IEAMBNM+6(2),IEABLNCS FILL OUT MSG WITH BLANKS      000E
004D62 9200 8001      00001        5835+IEASETSW MVI   1(R8),X'00' SET NOP ON RETURN FROM MOUNT MSG000E
004D66 D203 0048 C53F 00048 05780  5836+         MVC   CAW(Q4),IEARPORT SET CAW TO PRINT MODULE NAME    MCS0
004D6C 4550 C285            054C6  5837+         BAL   R5,IEACONSL ON THE SYSTEM CONSOLE           MCS0
004D70 D24F D6FB DA35 0693C 06C76  5838+HCANSWER MVC   ANSRAREA(80),IEABLNCS CLEAR INPUT BUFFER            MCS0
004D76 D203 0048 C51B 00048 0575C  5839+         MVC   72(4),ANSWRCAW SET CAW TO READ OPERATOR REPLY  000E
004D7C 9604 D534      06775        5840+         OI    IEASWITD,MONTSWIT SET INDICATE MOUNT SUBROUTINE     MCS0
004D80 4550 C26D            054AE  5841+         BAL   R5,IEACONIN GO ISSUE READ CCW                    MCS0
004D84 94FB D534      06775        5842+         NI    IEASWITD,XFF-MONTSWIT RESET MOUNT SWITCH       CI A50253
004D88 9118 D527      06768        5843+         TM    IEASWITA,OPEJSWIT TEST FOR EXCP RETURN            MCS0
004D8C 4780 B070            04DA8  5844+         BZ    WAITINT .           NO, WAIT FOR INTERRUPT     CI A50253
004D90 9110 D536      06777        5845+         TM    IEASWITE,NCONINT .  Q. RETURN ON NON-CNSL INT  CI A50253
004D94 4780 B0BC            04DF4  5846+         BZ    IEACONIO .          NO,BRANCH - EXCP READ DONE CI A50253
004D98 94EF D536      06777        5847+         NI    IEASWITE,XFF-NCONINT RESET INDICATOR           CI A50253
004D9C 48A0 003A            0003A  5848+         LH    R10,X'3A' .         GET UNIT ADDR OF INTERRUPT CI A50253
004DA0 40A0 D2D9            0651A  5849+         STH   R10,UNITADDR .      SAVE IT                    CI A50253
004DA4 47F0 B0F8            04E30  5850+         B     TWISTIO .           CHECK FOR VOLUME MOUNTED   CI A50253
004DA8                             5851+WAITINT  EQU   * .                                            CI A50253
004DA8 9834 0078            00078  5852+         LM    R3,R4,120 .         SAVE I/O NEW PSW           CI A50253
004DAC D207 0078 CFCF 00078 06210  5853+         MVC   120(8),IONEWPSW .   ESTABLISH NEW ONE          CI A50253
004DB2 8200 CFD7      06218        5854+         LPSW  WAIT .              WAIT FOR I/O INTERRUPT     CI A50253
004DB6                             5855+IEAINTRP EQU   * .                                            CI A50253
004DB6 9034 0078            00078  5856+         STM   R3,R4,120 .         RESTORE I/O NEW PSW        CI A50253
004DBA D201 D2D9 003A 0651A 0003A  5857+         MVC   UNITADDR(2),X'3A' . SAVE UNIT ADDR OF INT      CI A50253
004DC0 D501 D2E1 003A 06522 0003A  5858+         CLC   IEAUNIT+2(2),X'3A' .Q. INT FROM INPUT CONSOLE  CI A50253
004DC6 4780 B0BC            04DF4  5859+         BE    IEACONIO .          YES, BRANCH                CI A50253
004DCA D201 B0BA 0044 04DF2 00044  5860+IEAHALT  MVC   SAVECSW(2),68 SAVE INTERRUPT STATUS           000E
004DD0 48A0 D2E1            06522  5861+         LH    R10,IEAUNIT+2 R10 = ADDR OF INPUT CONSOLE     MCS0
004DD4 9E00 A000      00000        5862+         HIO   0(R10) STOP READ OPERATION             000E
004DD8 4710 B0AC            04DE4  5863+         BC    1,TWISTIO1 NO PENDING INTERRUPTS           000E
004DDC 9D00 A000      00000        5864+IEACLRCH TIO   0(R10) CLEAR PENDING INTERRUPT         000E
004DE0 4720 B0A4            04DDC  5865+         BC    2,IEACLRCH CHANNEL BUSY,TE-TIO             000E
004DE4 48A0 D2D9            0651A  5866+TWISTIO1 LH    R10,UNITADDR R10 = ADDR INTERRUPT DEVICE     000E
004DE8 D201 0044 B0BA 00044 04DF2  5867+         MVC   68(2),SAVECSW RESTORE OLD STATUS BITS         000E
004DEE 47F0 B0F8            04E30  5868+         B     TWISTIO TEST I/O ON DSAD                000E
004DF2 0000                        5869+SAVECSW  DC    H'0' SAVE FOR STATUS BITS            000E
004DF4 48A0 D2E1            06522  5870+IEACONIO LH    R10,IEAUNIT+2 R10 = CONSOLE INPUT ADDR        MCS0
004DF8 D54F D6FB DA35 0693C 06C76  5871+         CLC   ANSRAREA(Q80),IEABLNCS WAS ANSWER EOB               MCS0
004DFE 4780 B164            04E9C  5872+         BE    MONTEXIT YES, LEAVE                           MCS0
004E02 47F0 B004            04D3C  5873+         B     IEAMNT4 NO, REPRINT MESSAGE                  MCS0
004E06 D205 CA02 D469 05C43 066AA  5874+IEAREGMT MVC   MSG2ST+12(6),IEAVOLAB SET MOUNT MSG WITH VOL LABEL  000E
004E0C D203 0048 C45F 00048 056A0  5875+MOUNTCAW MVC   72(4),MSG2CAW SET UP MOUNT MSG CAW       000C
                                                                                                               PAGE  139


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004E12 4550 C285            054C6  5876+         BAL   R5,IEACONSL WRITE MOUNT MSG TO OPERATOR     MCS0
004E16 9834 0078            00078  5877+         LM    3,4,120 SAVE I/O NEW PSW
004E1A D207 0078 CFC7 00078 06208  5878+         MVC   120(8),IOPSW SET NEW NEW I/O PSW
004E20 8200 CFD7      06218        5879+         LPSW  WAIT WAIT FOR INTERRUPT FROM I/O UNIT
004E24 9034 0078            00078  5880+RESTORE  STM   3,4,120 PUT BACK OLD NEW PSW
004E28 48A0 003A            0003A  5881+         LH    10,X'3A' R10 = UNIT ADDR OF LAST INTERRUPT
004E2C 40A0 D2D9            0651A  5882+         STH   10,UNITADDR SAVE UNIT ADDRESS          000C
004E30 9D00 A000      00000        5883+TWISTIO  TIO   0(10) TEST THE UNIT FOR MOUNTING OR REMOVING
004E34 4720 B0F8            04E30  5884+         BC    2,TWISTIO IF BUSY TEST AGAIN
004E38 4710 B004            04D3C  5885+         BC    1,IEAMNT4 NOT OPERATIONAL,WTO AGAIN       000E
004E3C 4780 B124            04E5C  5886+         BC    8,REVOLA CHANL AVAIL, CHECK VOLABEL 000C
                                   5887+*   THE FOLLOWING TEST IS PROVIDED TO ALLOW THE RUNNING OF IN-LINE 3800
                                   5888+*      DIAGNOSTICS ON THE SPARE DRIVE OF A 2314 WHILE IPL-ING      3800
                                   5889+*      A 2314 SYSTEM.                                              3800
004E40 9130 0044      00044        5890+         TM    X'44',X'30' TEST FOR CU BUSY OR CU END      3800
004E44 4770 B0F8            04E30  5891+         BC    7,TWISTIO IF EITHER, RE-ISSUE I/O CMD     3800
004E48 9102 0044      00044        5892+         TM    X'44',X'02' TEST FOR UNIT CHECK
004E4C 47E0 B124            04E5C  5893+         BC    14,REVOLA NO UNIT CHECK SEE IF THIS DESIRED VOL
004E50 94FD 0044      00044        5894+         NI    X'44',X'FD' TURN OFF UNIT CHK BIT IN CSW
004E54 4550 C185            053C6  5895+         BAL   5,SENSESS CLEAR POSSIBLE CONTINGENT CONNECTION
004E58 47F0 B004            04D3C  5896+         B     IEAMNT4 WOT MOUNT MSG AGAIN             000E
004E5C 4550 C0BD            052FE  5897+REVOLA   BAL   5,IEAUCBFN LOCATE THE UCB FOR THIS UNIT ADDR
004E60 94FF D516      06757        5898+         NI    IEAINDIC,X'FF' TEST FOR UCB FOUND
004E64 4780 C0D5            05316  5899+         BC    8,IEANOUCB ERROR NO UCB
004E68 4890 D2D3            06514  5900+         LH    9,IEAUCBHL R 9 = PNTR TO THE UCB           000A
004E6C D501 9012 D50E 00012 0674F  5901+         CLC   18(2,9),CELLTYPE TEST THIS UCB FOR DATA CELL TYPE
004E72 4780 B17E            04EB6  5902+         BE    IEADCLRE 000A
004E76 4560 C123            05364  5903+REVOLAB  BAL   6,IEARDVOL READ THE VOLUME LABEL
004E7A 9108 D52B      0676C        5904+         TM    IEASWITC,MVCALL TEST FOR M-V RTN ACTIVE     MXMV
004E7E 4710 B16A            04EA2  5905+         BO    IEANENTS YES,TEST FOR CORRECT LABEL      000E
004E82 D505 D469 CA02 066AA 05C43  5906+         CLC   IEAVOLAB(6),MSG2ST+12 TEST FOR CORRECT LABEL
004E88 4770 B0D4            04E0C  5907+         BNE   MOUNTCAW NO, ISSUE MOUNT AGAIN      000C
004E8C 94BF 9006      00006        5908+IEAVOLM1 NI    UCBFL1(R9),UCBREADY CLEAR NOT READY COND. IN UCB    I267
004E90 94BF 9006      00006        5909+         NI    6(9),X'BF' CLEAR NOT READY COND IN UCB        000A
004E94 9680 9003      00003        5910+         OI    3(9),X'80' SET UCB ONLINE             000C
004E98 4530 C0ED            0532E  5911+         BAL   3,IEAUCBIN SET TTR, VOL SER IN UCB         000A
004E9C 9838 D11F            06360  5912+MONTEXIT LM    R3,R8,SAVEREF RESTORE REGS                         MCS0
004EA0 07F5                        5913+         BR    5 RETURN TO CALLER
004EA2 D505 D469 D84F 066AA 06A90  5914+IEANENTS CLC   IEAVOLAB(6),IEAMBNM TEST FOR CORRECT LABEL          000E
004EA8 4780 B154            04E8C  5915+         BE    IEAVOLM1 YES,CONTINUE                    000E
004EAC D205 D469 D84F 066AA 06A90  5916+         MVC   IEAVOLAB(6),IEAMBNM SET VOLAB                       000E
004EB2 47F0 B02A            04D62  5917+         B     IEASETSW RE-ISSUE MSG                    000E
004EB6 91FF D511      06752        5918+IEADCLRE TM    IEAPRCSW,X'FF' TEST FOR DATASET ALLOWED ON DATACEL000A
004EBA 4780 B0D4            04E0C  5919+         BC    8,MOUNTCAW NO,RE-ISSUE MOUNT COMMAND       000E
004EBE 9610 D534      06775        5920+         OI    IEASWITD,UCBDTCEL *   DISALLOW DATA-CELLS           MCS0
004EC2 47F0 C105            05346  5921+         B     IEADTUCB READ VOLUME LABELS AND INIT UCB'000A
004EC6 9838 D11F            06360  5922+IEADSUCB LM    3,8,SAVEREF RESTORE REGS                    000A
004ECA D205 D469 CA02 066AA 05C43  5923+         MVC   IEAVOLAB(6),MSG2ST+12 RESTORE VOLUME LABEL FOR SEARC000A
004ED0 47F0 C1B5            053F6  5924+         B     IEASCAN0 MCS0
                                                                                                               PAGE  140


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5926+***                                                                MCS0
                                   5927+**  CONVERT SUBROUTINE - THIS SUBROUTINE IS USED IN CONVERTING     MCS0
                                   5928+**  UNIT NAMES (EBCDIC) TO THEIR HEX EQUIVALENT. THE CONVERTED     MCS0
                                   5929+**  RESULT MUST BE 'PACKED' TO OBTAIN A HEX UNIT ADDRESS           MCS0
                                   5930+**             ENTRY TO SUBROUTINE: R4 = NO OF BYTES FOR CONVERT   MCS0
                                   5931+**                                  R5 = CALLER'S RETURN ADDRESS   MCS0
                                   5932+**                                  R6 = ADDR OF AREA FOR CONVERT  MCS0
                                   5933+***                                                                MCS0
                                   5934+* REGISTER EQUATES - CONVERT SUBROUTINE                            MCS0
000000                             5935+SCVR0    EQU   0 WORK REG - VOLATILE             MCS0
000004                             5936+SCVR4    EQU   4 PARM REG - BYTE CT/LOOP CONTROL MCS0
000005                             5937+SCVR5    EQU   5 PARM REG - RETURN ADDRESS       MCS0
000006                             5938+SCVR6    EQU   6 PARM REG - ADDR OF DATA FOR CONVMCS0

004ED4                             5940+         USING *,R11 ESTABLISH ADDRESSABILITY        MXMV


004ED4 95F0 6000      00000        5942+SUBCONVT CLI   Q0(SCVR6),XF0 TEST FOR ALPHANUMERIC CHARACTER MCS0
004ED8 47B0 B014            04EE8  5943+         BNL   CNVNEXT NO, BRANCH TO TEST NEXT BYTE    MCS0
004EDC 4306 0000            00000  5944+         IC    SCVR0,Q0(SCVR6) R0 = EBCDIC CHARACTER (A THRU F)MCS0
004EE0 4A00 D29B            064DC  5945+         AH    SCVR0,NINE SET LAST 4 BITS TO HEX EQUIV    MCS0
004EE4 4206 0000            00000  5946+         STC   SCVR0,Q0(SCVR6) REPLACE ALPHANUMERIC BYTE       MCS0
004EE8 4166 0001            00001  5947+CNVNEXT  LA    SCVR6,Q1(SCVR6) INDEX TO NEXT CHARACTER         MCS0
004EEC 4640 B000            04ED4  5948+         BCT   SCVR4,SUBCONVT BRANCH IF MORE TEST             MCS0
004EF0 07F5                        5949+         BR    SCVR5 RETURN TO CALLER                MCS0
                                                                                                               PAGE  141


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5951+***                                                                MCS0
                                   5952+**  CONSOLE TIO SUBROUTINE - THIS SUBROUTINE IS USED TO DETERMINE  MCS0
                                   5953+**  THE AVAILABILITY OF A GIVEN CONSOLE UNIT. THE UCB FOR THE      MCS0
                                   5954+**  CONSOLE BEING TESTED IS MARKED ONLINE OR OFFLINE TO INDICATE   MCS0
                                   5955+**  THE STATUS OF THE CONSOLE.                                     MCS0
                                   5956+**             ENTRY TO SUBROUTINE  R4 = CONSOLE UCB ADDR          MCS0
                                   5957+**                                  R5 = CALLER'S RETURN ADDRESS   MCS0
                                   5958+**                                  R10 = CONSOLE UNIT ADDR        MCS0
                                   5959+***                                                                MCS0
                                   5960+* REGISTER EQUATES - CONSOLE TIO SUBROUTINE                        MCS0
000004                             5961+SCTR4    EQU   4 PARM REG - UCB ADDR OF CONSOLE  MCS0
000005                             5962+SCTR5    EQU   5 PARM REG - RETURN ADDRESS       MCS0
                                   5963+*                                  LINK REG - SUBRTN TO SUBRTN     MCS0
                                   5964+*                                  WORK REG - GENERAL USAGE        MCS0
000006                             5965+SCTR6    EQU   6 .                 WORK REG                   CI  M4910
00000A                             5966+SCTR10   EQU   10 PARM REG - UNIT ADDR OF CONSOLE MCS0
004EF2                             5967+         USING *,R11 ESTABLISH ADDRESSABILITY        MXMV
004EF2                             5968+SUBCNTIO EQU   * MCS0
004EF2 9056 D19F            063E0  5969+         STM   SCTR5,SCTR6,SCTRSAVE SAVE WORK REGS            CI  M4910
004EF6 9D00 A000      00000        5970+SCTIO    TIO   Q0(SCTR10) TEST CONSOLE AVAILABILITY       MCS0
004EFA 4720 B004            04EF6  5971+         BC    2,SCTIO BUSY, REPEAT TIO                MCS0
004EFE 4710 B04E            04F40  5972+         BC    1,SCTNAVIL NOT OPERATIONAL, SET OFFLINE    MCS0
004F02 4740 B01E            04F10  5973+         BC    4,SCTTING CSW STORED, ANALYZE CAUSE       MCS0
004F06 9680 4003      00003        5974+SCTAVIL  OI    UCBESTAT(SCTR4),UCBONLIN SET UCB ONLINE            MCS0
004F0A 9856 D19F            063E0  5975+         LM    SCTR5,SCTR6,SCTRSAVE RESTORE REGS              CI  M4910
004F0E 07F5                        5976+         BR    SCTR5 RETURN TO CALLER                MCS0
004F10                             5977+SCTTING  EQU   * BH 58099
004F10 9550 0044      00044        5978+         CLI   CSWSTAT,SMB STATUS MODIFIER BUSY              BH 58099
004F14 4770 B036            04F28  5979+         BNE   TESTNORM NO CONTINUE AS BEFORE             BH 58099
004F18 92FF D528      06769        5980+         MVI   SENSESW,X'FF' SET SENSE SWITCH                  BH 58099
004F1C 4550 C2FB            0553C  5981+         BAL   R5,IEAINTH3 GO DO THE ENABLE/DISABLE SEQ.     BH 58099
004F20 9500 D528      06769        5982+         CLI   SENSESW,X'00' WAS SENSE DONE                    BH 58099
004F24 4780 B004            04EF6  5983+         BE    SCTIO YES, RE-TEST DEVICE STATUS        @SA73522
004F28                             5984+TESTNORM EQU   * BH 58099
004F28 9130 0044      00044        5985+         TM    CSWSTAT,CUBSYEND TEST FOR C.U. BUSY OR C.U. END  MCS0
004F2C 4770 B004            04EF6  5986+         BNZ   SCTIO YES, BRANCH TO RE-TIO           MCS0
004F30 9102 0044      00044        5987+         TM    CSWSTAT,UNITCHEK TEST FOR UNIT CHECK             MCS0
004F34 47E0 B04E            04F40  5988+         BNO   SCTNAVIL NO, BRANCH TO SET UNIT OFFLINE  MCS0
004F38 4550 C185            053C6  5989+         BAL   SCTR5,SENSESS ISSUE SENSE TO CLEAR CONNECTION MCS0
004F3C                             5990+SENSECOM EQU   * BH 58099
004F3C 94FD 0044      00044        5991+         NI    CSWSTAT,Q255-UNITCHEK RESET UNIT CHECK IN CSW    MCS0
004F40 947F 4003      00003        5992+SCTNAVIL NI    UCBESTAT(SCTR4),Q255-UCBONLIN SET UCB OFFLINE      MCS0
004F44 9856 D19F            063E0  5993+         LM    SCTR5,SCTR6,SCTRSAVE RESTORE REGS              CI  M4910
004F48 07F5                        5994+         BR    SCTR5 RETURN TO CALLER                MCS0
                                                                                                               PAGE  142


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004F4A                             5996+SCTIOTP  EQU   * * ENTRY TO 2740/1 TIO *         MCS0
                                   5997+***
                                   5998+**  SUBROUTINE USED BY MS1 STORAGE INITIALIZATION ROUTINES
                                   5999+**************
                                   6000+***
004F4A                             6001+         USING *,R11 ESTABLISH ADDRESSABILITY        MXMV
004F4A 1B64                        6002+SUBMS1   SR    R6,R4 R6=SIZE OF REGION               MCS0
004F4C 5014 0000            00000  6003+         ST    1,0(4) FBQE WORD 1 POINTS TO PQE          000C
004F50 5014 0004            00004  6004+         ST    1,4(4) FBQE WORD 2 POINTS TO PQE          000C
004F54 5064 0008            00008  6005+         ST    6,8(4) FBQE WORD 3 = SIZE OF REGION       000C
004F58 5041 0000            00000  6006+         ST    4,0(1) PQE WORD 1 POINTS TO FBQE          000C
004F5C 5041 0004            00004  6007+         ST    4,4(1) PQE WORD 2 POINTS TO FBQE          000C
004F60 5061 0014            00014  6008+         ST    6,20(1) PQE WORD 6 = SIZE OF REGION        000C
004F64 5041 0018            00018  6009+         ST    4,24(1) PQE WORD 7 PTR TO 1ST BYTE OF REGION  000C
004F68 07FA                        6010+         BR    10 000C
                                                                                                               PAGE  143


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6012+***                                                                I267
                                   6013+*   SUBROUTINE TO CHECK FOR DUPLICATE VOLIDS ON D/A UNITS. THIS    I267
                                   6014+*        IS DONE BY COMPARING THE CURRENT VOLID WITH ALL VOLIDS    I267
                                   6015+*        PREVIOUSLY ENTERED IN TESTED UCBS.                        I267
                                   6016+*          ITS ENTRYPOINT IS SUBDPVID.                             I267
                                   6017+*            AT ENTRY- REG9 = UCB PNTR OF DEVICE BEING TESTED      I267
                                   6018+*          THERE ARE TWO EXITS-                                    I267
                                   6019+*            IF A DUPLICATE VOLID IS FOUND, CONTROL IS PASSED TO   I267
                                   6020+*               IEADMNT AND RETURNED WHEN ONE OF THE VOLUMES IS    I267
                                   6021+*               DISMOUNTED. AT THIS EXIT-                          I267
                                   6022+*                         REG6 = UCB PTR FOR CURRENT DEVICE        I267
                                   6023+*                         REG7 = SUB-UCB PTR FOR OLD DEVICE (DC)   I267
                                   6024+*                              = UCB PTR FOR OLD DEVICE (NO DC)    I267
                                   6025+*                         REG8 = UCB PTR FOR OLD DEVICE            I267
                                   6026+*                         REG9 = SUB-UCB PTR FOR CURRENT (IF DC)   I267
                                   6027+*                              = UCB PTR FOR CURRENT (NO DCELL)    I267
                                   6028+*            NORMAL EXIT IS WHEN A DUPLICATE VOLID NO LONGER       I267
                                   6029+*               EXISTS. ALL EXITS ARE EVENTUALLY NORMAL. NO        I267
                                   6030+*               REGISTERS ARE DESTROYED.                           I267
                                   6031+***                                                                I267



000003                             6033+DPR3     EQU   3 DATA CELL UCB PNTR              I267
000004                             6034+DPR4     EQU   4 UCB LOOK-UP TABLE PNTR          I267
000005                             6035+DPR5     EQU   5 I267
000006                             6036+DPR6     EQU   6 PTR TO UCB BEING TESTED         I267
000007                             6037+DPR7     EQU   7 CHANGING UCB PNTR               I267
000008                             6038+DPR8     EQU   8 WORK REG                        I267
000009                             6039+DPR9     EQU   9 PNTR TO UCB BEING TESTED        I267
00000A                             6040+DPR10    EQU   10 I267

004F6A                             6042+         USING *,R11
004F6A                             6043+SUBDPVID EQU   * I267
004F6A 9039 D11F            06360  6044+         STM   DPR3,DPR9,SAVEREF SAVE REGS                       I267
004F6E 1869                        6045+         LR    DPR6,DPR9 R6 = UCB PNTR OF CURRENT UCB    I267
004F70 91FF D510      06751        6046+         TM    IEADTACL,XFF TEST FOR DATA CELL              I267
004F74 47E0 B022            04F8C  6047+         BNO   DPVNTDCL NO, CONTINUE NORMALLY           I267
004F78 4839 0000            00000  6048+         LH    DPR3,DCELBBNR(DPR9) R3 = BIN NUMBET                 I267
004F7C 8930 0004            00004  6049+         SLL   DPR3,Q4 MULTIPLY BY LENGTH OF SUB-UCB   I267
004F80 4133 0038            00038  6050+         LA    DPR3,UCBSIZE(DPR3) ADD UCB SIZE                    I267
004F84 1B63                        6051+         SR    DPR6,DPR3 R6 = UCB PTR                    I267
004F86 4130 0018            00018  6052+         LA    DPR3,Q24 R3 = PSEUDO UCB FACTOR          I267
004F8A 1B93                        6053+         SR    DPR9,DPR3 R9 = PSEUDO UCB POINTER         I267
004F8C 5840 0010            00010  6054+DPVNTDCL L     DPR4,CVTPTR R4 = CVT PNTR                   I267
004F90 5844 0028            00028  6055+         L     DPR4,CVTILK2(DPR4) R4 = PNTR TO UCB ADDR TABLE     I267
004F94 4874 0000            00000  6056+DPVOLTST LH    DPR7,Q0(DPR4) R7 = UCB PNTR                   I267
004F98 1277                        6057+         LTR   DPR7,DPR7 TEST FOR DUMMY ENTRY       CD  48935
004F9A 4780 B09E            05008  6058+         BZ    DPVNXUCB TRANSFER IF SO             CD  48935
004F9E 9520 7012      00012        6059+         CLI   18(DPR7),X'20' TEST FOR DASD                @SA68763
004FA2 4770 B09E            05008  6060+         BNE   DPVNXUCB TRANSFER TO NEXT ONE         @SA68763
004FA6 1887                        6061+         LR    DPR8,DPR7 R8 = UCB PNTR OF OLD UCB        I267
004FA8 9505 7013      00013        6062+         CLI   UCBUTYPE(DPR7),DCELTYPE TEST FOR DATA CELL          I267
004FAC 4770 B04E            04FB8  6063+         BNE   DPVNODCL NO, PROCEED                     I267
004FB0 4177 0020            00020  6064+         LA    DPR7,Q32(DPR7) R7 = SUB-UCB PNTR ADJUSTED      I267
                                                                                                               PAGE  144


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004FB4 4130 000A            0000A  6065+         LA    DPR3,Q10 I267
004FB8 1979                        6066+DPVNODCL CR    DPR7,DPR9 COMPARE 2 UCB PNTRS             I267
004FBA 4780 B084            04FEE  6067+         BE    DPVOLRET SAME UCB, SO NO DUPLICATES      I267
004FBE D505 701C 901C 0001C 0001C  6068+         CLC   UCBVOLAB(Q6,DPR7),UCBVOLAB(DPR9) COMPARE VOLABS     I267
004FC4 4770 B08E            04FF8  6069+         BNE   DPVUPPTR NOT SAME, CHECK NEXT ONE        I267
004FC8 D501 8004 6004 00004 00004  6070+         CLC   UCBCHA(Q2,DPR8),UCBCHA(DPR6) COMPARE DEVICE ADDRS   I267
004FCE 4780 B084            04FEE  6071+         BE    DPVOLRET SAME, FINISHED                  I267
004FD2 91FF D510      06751        6072+         TM    IEADTACL,XFF TEST FOR DATA CELL              I267
004FD6 47E0 B074            04FDE  6073+         BNO   DPVOLDTS NO, PTRS SET                    I267
004FDA 4199 0018            00018  6074+         LA    DPR9,Q24(DPR9) R9 = SUB-UCB ADDR               I267
004FDE 9505 8013      00013        6075+DPVOLDTS CLI   UCBUTYPE(DPR8),DCELTYPE CHECK FOR DATA CELL         I267
004FE2 4770 B080            04FEA  6076+         BNE   DPVDSMNT NO, PROCEED NORMALLY            I267
004FE6 4177 0018            00018  6077+         LA    DPR7,Q24(DPR7) YES, UPDATE TO SUB-UCB ADDR     I267
004FEA 4550 C255            05496  6078+DPVDSMNT BAL   DPR5,IEADMNT LINK TO DISMOUNT RTN            I267
004FEE 48A6 0004            00004  6079+DPVOLRET LH    DPR10,UCBCHA(DPR6) RESTORE UNIT IN CASE DATACELL   I267
004FF2 9839 D11F            06360  6080+         LM    DPR3,DPR9,SAVEREF SAVE REGS                       I267
004FF6 07F3                        6081+         BR    DPR3 RETURN TO UCB INIT RTN          I267
004FF8 9505 8013      00013        6082+DPVUPPTR CLI   UCBUTYPE(DPR8),DCELTYPE TEST FOR DATA CELL          I267
004FFC 4770 B09E            05008  6083+         BNE   DPVNXUCB NO, GET NEXT UCB                I267
005000 4177 0010            00010  6084+         LA    DPR7,UCBDCLSZ(DPR7) UPDATE SUB-UCB PNTR             I267
005004 4630 B04E            04FB8  6085+         BCT   DPR3,DPVNODCL CONTINUE TESTING                I267
005008 4144 0002            00002  6086+DPVNXUCB LA    DPR4,Q2(DPR4) UPDATE UCB ADDR TABLE           I267
00500C 47F0 B02A            04F94  6087+         B     DPVOLTST CONTINUE TESTING                I267
                                                                                                               PAGE  145


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6089+***                                                                I267
                                   6090+*    SUBROUTINE USED BY DUPLICATE VOLID CHECKING ROUTINE. IT       I267
                                   6091+*        ISSUES A CONSOLE MESSAGE TO DISABLE EITHER OF TWO UNITS   I267
                                   6092+*        THAT HAVE THE SAME VOLID, AND THEN WAITS FOR THE          I267
                                   6093+*        DISMOUNT INTERRUPT. ITS ENTRYPOINT IS SUBDSMNT AND ITS    I267
                                   6094+*        ONLY EXIT IS WHEN ONE OF THE TWO UNITS HAS BEEN           I267
                                   6095+*        DISMOUNTED.                                               I267
                                   6096+*          AT ENTRY- R6 = UCB ADDR OF CURRENT UCB                  I267
                                   6097+*                    R7 = UCB ADDR OF OLD UCB (IF NOT DATA CELL)   I267
                                   6098+*                       = SUB-UCB ADDR OF OLD UCB (IF DATA CELL)   I267
                                   6099+*                    R8 = UCB ADDR OF OLD UCB                      I267
                                   6100+*                    R9 = UCB ADDR OF CURRENT UCB (IF NOT DCELL)   I267
                                   6101+*                       = SUB-UCB ADDR OF CURRENT UCB (IF DCELL)   I267
                                   6102+*                    BOTH UCBS CONTAIN VOLUME LABEL  TTR INFO,     I267
                                   6103+*                        AND READY STATUS                          I267
                                   6104+*          AT EXIT - REGISTERS ARE UNCHANGED                       I267
                                   6105+*                    THE UCB OF THE DISMOUNTED DEVICE HAS ZEROS    I267
                                   6106+*                        IN THE VOLUME LABEL AND TTR AREAS, AND    I267
                                   6107+*                        HAS THE NOT READY BIT ON                  I267
                                   6108+***                                                                I267



000000                             6110+DSR0     EQU   0 I267
000003                             6111+DSR3     EQU   3 I267
000004                             6112+DSR4     EQU   4 I267
000005                             6113+DSR5     EQU   5 I267
000006                             6114+DSR6     EQU   6 PNTR TO CURRENT UCB             I267
000007                             6115+DSR7     EQU   7 PNTR TO OLD SUB-UCB             I267
000008                             6116+DSR8     EQU   8 PNTR TO OLD UCB                 I267
000009                             6117+DSR9     EQU   9 PNTR TO CURRENT SUB-UCB         I267
00000A                             6118+DSR10    EQU   10 TIO                             I267
00000B                             6119+DSR11    EQU   11 I267


005010                             6121+         USING *,R11
005010                             6122+SUBDSMNT EQU   * I267
005010 9038 D15F            063A0  6123+         STM   DSR3,DSR8,SAVEREF1 SAVE WORK REGS                  I267
005014 D201 CF24 DA35 06165 06C76  6124+         MVC   MSG3ST15(Q2),IEABLNCS BLANK OUT 2321                I267
00501A D201 CF2D DA35 0616E 06C76  6125+         MVC   MSG3ST24(Q2),IEABLNCS PART OF MSG                 I267
005020 D202 CF2A 600D 0616B 0000D  6126+         MVC   MSG3ST21(Q3),UCBNAME(DSR6) DEVICE INTO MSG          I267
005026 D202 CF21 800D 06162 0000D  6127+         MVC   MSG3ST12(Q3),UCBNAME(DSR8) UNIT ADDR TO MSG         I267
00502C 9505 6013      00013        6128+         CLI   UCBUTYPE(DSR6),DCELTYPE TEST IF DATA CELL           I267
005030 4770 B032            05042  6129+         BNE   DSMNAME2 NO, CONTINUE                    I267
005034 D200 CF2E 9001 0616F 00001  6130+         MVC   MSG3ST25(Q1),DCELBBNR+Q1(DSR9) MOVE BIN NUMBER      I267
00503A 96F0 CF2E      0616F        6131+         OI    MSG3ST25,XF0 CONVERT BIN TO EBCDIC           I267
00503E 9261 CF2D      0616E        6132+         MVI   MSG3ST24,X61 MOVE SLASH                      I267
005042 9505 8013      00013        6133+DSMNAME2 CLI   UCBUTYPE(DSR8),DCELTYPE TEST FOR DATA CELL          I267
005046 4770 B048            05058  6134+         BNE   DSMISSUE NO, ISSUE THE MESSAGE           I267
00504A D200 CF25 7001 06166 00001  6135+         MVC   MSG3ST16(Q1),DCLBBNR1(DSR7) MOVE BIN NUMBER         I267
005050 96F0 CF25      06166        6136+         OI    MSG3ST16,XF0 CONVERT BIN TO EBCDIC           I267
005054 9261 CF24      06165        6137+         MVI   MSG3ST15,X61 MOVE SLASH                      I267
005058 D203 0048 C463 00048 056A4  6138+DSMISSUE MVC   CAW(Q4),MSG3CAW SET CAW                         I267
00505E 4550 C285            054C6  6139+         BAL   DSR5,IEACONSL WRITE MSG                       I267
                                   6140+*  THE FOLLOWING IS A LOOP UNTIL EITHER A NOT OPERATIONAL          I267
                                                                                                               PAGE  146


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6141+*    CONDITION OR A UNIT CHECK (INTERVENTION REQUIRED) ON EITHER   I267
                                   6142+*    UNIT IS RETURNED.                                             I267
005062 48A8 0004            00004  6143+DSMTIOLP LH    DSR10,UCBCHA(DSR8) R10 = PREVIOUS DEVICE           I267
005066 9D00 A000      00000        6144+         TIO   Q0(DSR10) TEST THE UNIT                   I267
00506A 47A0 B066            05076  6145+         BC    Q10,DSMTIONX AVAILABLE OR WORKING            I267
00506E 4710 B08E            0509E  6146+         BC    Q1,DSMNTFND NOT OPERATIONAL                 I267
005072 4540 B07A            0508A  6147+         BAL   DSR4,DSMUCKTS CSW STORED-TEST FOR UNIT CHCK   I267
005076 48A6 0004            00004  6148+DSMTIONX LH    DSR10,UCBCHA(DSR6) R10 = CURRENT DEVICE            I267
00507A 9D00 A000      00000        6149+         TIO   Q0(DSR10) TEST THE UNIT                   I267
00507E 47A0 B052            05062  6150+         BC    Q10,DSMTIOLP AVAILABLE OR WORKING            I267
005082 4710 B08E            0509E  6151+         BC    Q1,DSMNTFND NOT OPERATIONAL                 I267
005086 4140 B052            05062  6152+         LA    DSR4,DSMTIOLP SET RETURN ADDR FROM UCK TEST   I267
00508A 9102 0044      00044        6153+DSMUCKTS TM    CSWSTAT,UNITCHEK CHECK CSW FOR UNIT CHECK        I267
00508E 0784                        6154+         BCR   Q8,DSR4 NO,CONTINUE TO LOOP             I267
005090 94FD 0044      00044        6155+         NI    CSWSTAT,XFD YES,CLEAR CONDITION             I267
005094 4550 C185            053C6  6156+         BAL   DSR5,SENSESS BR TO ISSUE SENSE               I267
005098 9140 D2AB      064EC        6157+         TM    IEAERRS,X40 CHECK SENSE RETURN FOR INT RQ   I267
00509C 0784                        6158+         BCR   Q8,DSR4 NO,CONTINUE TO LOOP             I267
00509E 49A8 0004            00004  6159+DSMNTFND CH    DSR10,UCBCHA(DSR8) CHECK IF OLD DISMOUNTED         I267
0050A2 4770 B09C            050AC  6160+         BNE   DSMCURNT NO, MUST BE CURRENT             I267
0050A6 1848                        6161+         LR    DSR4,DSR8 R4 = COMMON REG FOR RE-SET      I267
0050A8 47F0 B09E            050AE  6162+         B     DSMRESET I267
0050AC 1846                        6163+DSMCURNT LR    DSR4,DSR6 R4 = COMMON REG FOR RE-SET      I267
0050AE 9505 4013      00013        6164+DSMRESET CLI   UCBUTYPE(DSR4),DCELTYPE TEST IF DATA CELL           I267
0050B2 4780 B0C0            050D0  6165+         BE    DSMRCELL YES, BRANCH                     I267
0050B6 9640 4006      00006        6166+         OI    UCBFL1(DSR4),UCBNRDY INDICATE NOT READY IN UCB      I267
0050BA 947F 4003      00003        6167+         NI    UCBESTAT(DSR4),OFFLINE FLAG OFFLINE IN STATUS A     I267
0050BE D705 401C 401C 0001C 0001C  6168+         XC    UCBVOLAB(Q6,DSR4),UCBVOLAB(DSR4) ZERO VOLAB         I267
0050C4 D702 4024 4024 00024 00024  6169+         XC    UCBTTR(Q3,DSR4),UCBTTR(DSR4) ZERO OUT TTR           I267
0050CA 9838 D15F            063A0  6170+DSMNRMRT LM    DSR3,DSR8,SAVEREF1 RESTORE WORK REGS               I267
0050CE 07F5                        6171+         BR    DSR5 RETURN                          I267


0050D0 9640 4006      00006        6173+DSMRCELL OI    UCBFL1(DSR4),UCBNRDY SET UCB NOT READY              I267
0050D4 947F 4003      00003        6174+         NI    UCBESTAT(DSR4),OFFLINE FLAG OFFLINE IN STATUS A     I267
0050D8 4144 0038            00038  6175+         LA    DSR4,UCBSIZE(DSR4) R4 = START OF SUB-UCBS          I267
0050DC 4150 000A            0000A  6176+         LA    DSR5,Q10 R5 = LOOP CONTROL               I267
0050E0 D705 4004 4004 00004 00004  6177+DSMSBUCB XC    DCELVOLI(Q6,DSR4),DCELVOLI(DSR4) ZERO VOLAB         I267
0050E6 D702 400C 400C 0000C 0000C  6178+         XC    DCELVTOC(Q3,DSR4),DCELVTOC(DSR4) ZERO TTR           I267
0050EC 947F 4003      00003        6179+         NI    DCELSTAT(DSR4),OFFLINE SET OFFLINE INDICATOR        I267
0050F0 4144 0010            00010  6180+         LA    DSR4,Q16(DSR4) UPDATE PNTR TO NEXT SUB-UCB     I267
0050F4 4650 B0D0            050E0  6181+         BCT   DSR5,DSMSBUCB LOOP THROUGH SUB-UCBS           I267
0050F8 47F0 B0BA            050CA  6182+         B     DSMNRMRT FINISHED, RETURN                I267
                                                                                                               PAGE  147


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0050FC                             6184+T3270DEV DS    0H ENSURE ALIGNMENT            @SA67038
0050FC                             6185+         USING *,R11 BH 58099
0050FC 9025 B114            05210  6186+         STM   R2,R5,TEMP3270 SAVE REGS                        BH 58099
005100 4550 C0BD            052FE  6187+         BAL   R5,IEAUCBFN GET UCB ADDR                      BH 58099
005104 4850 D2D3            06514  6188+         LH    R5,IEAUCBHL PICK UP UCB POINTER               BH 58099
005108 8950 0010            00010  6189+         SLL   R5,16 CLEAR TOP HALF OF REG             BH 58099
00510C 8850 0010            00010  6190+         SRL   R5,16 MOVE IT BACK TO A USEFUL AREA     BH 58099
005110 9510 5012      00012        6191+         CLI   UCBDCLAS(R5),X'10' IS IT A GRAPHICS DEVICE
005114 4770 B07A            05176  6192+         BC    7,RET3270 NO RETURN TO CALLER                 BH 58099
005118 9509 5013      00013        6193+         CLI   UCBUTYPE(R5),X'09' IS IT A 3270                 BH 58099
00511C 4780 B03C            05138  6194+         BE    SENS3270 NO TEST NEXT 3272 DEVICE          BH 58099
005120 950A 5013      00013        6195+         CLI   UCBUTYPE(R5),X'0A' IS IT A 3284                 BH 58099
005124 4780 B03C            05138  6196+         BE    SENS3270 NO TEST NEXT 3272 DEVICE          BH 58099
005128 950B 5013      00013        6197+         CLI   UCBUTYPE(R5),X'0B' IS IT A 3286                 BH 58099
00512C 4780 B03C            05138  6198+         BE    SENS3270 NO TEST NEXT 3272 DEVICE
005130 950C 5013      00013        6199+         CLI   UCBUTYPE(R5),X'0C' IS IT A 3158 CONSOLE
005134 4770 B07A            05176  6200+         BC    7,RET3270 NO, RETURN TO CALLER              BH 58099
005138                             6201+SENS3270 EQU   * BH 58099
005138 9200 D528      06769        6202+         MVI   SENSESW,X'00' INDICATE SENSE DONE               BH 58099
00513C D207 B10C 0078 05208 00078  6203+         MVC   IONEWSV(Q8),X'78' SAVE NEW PSW                  BH 58099
005142 D207 0078 B0BA 00078 051B6  6204+         MVC   X'78'(Q8),NEW3270P MOVE 3270 INT HDLR. ADDR.    BH 58099
005148 4120 B135            05231  6205+         LA    R2,CHNLMASK PTR TO TRANSLATE TABLE            BH 58099
00514C 185A                        6206+         LR    R5,FNADDREG PREP FOR                          BH 58099
00514E 8850 0008            00008  6207+         SRL   R5,Q8 CHANNEL                           BH 58099
005152 4250 B124            05220  6208+         STC   R5,MASKCHNL MASK                              BH 58099
005156 DC00 B124 2000 05220 00000  6209+         TR    MASKCHNL(1),0(R2) BITS                          BH 58099
00515C 96FF B134      05230        6210+         OI    SPINSW,X'FF' SET SPIN SWITCH                   BH 58099
005160 8200 B124      05220        6211+         LPSW  MASKCHNL ENABLE                      @SM0305K
005164 91FF B134      05230        6212+NORESET  TM    SPINSW,X'FF' I/O FINISHED                      BH 58099
005168 4710 B068            05164  6213+         BO    NORESET NO KEEP SPINNING                  BH 58099
00516C 8200 B12C      05228        6214+         LPSW  MASKCHNL+8 YES,DISABLE AND CONTINUE    @SM0305K
005170 D207 0078 B10C 00078 05208  6215+NEXT     MVC   X'78'(Q8),IONEWSV RESTORE THE REGS            @SM0305K
005176                             6216+RET3270  EQU   * BH 58099
005176 9825 B114            05210  6217+         LM    R2,R5,TEMP3270 RESTORE THE REGS                 BH 58099
00517A 07F5                        6218+         BR    R5 RETURN TO CALLER                  BH 58099
00517C                             6219+INTH3270 EQU   * BH 58099
00517C 900F B0CC            051C8  6220+         STM   R0,R15,SAVE3270 BH 58099
005180 49A0 003A            0003A  6221+         CH    R10,X'3A' INTERUPT DVCE=TEST?     @AS79872
005184 4780 B090            0518C  6222+         BE    CORRINT YES,CONTINUE            @AS79872
005188 8200 B12C      05228        6223+         LPSW  MASKCHNL+8 NO, DISABLE AND EXIT    @AS79872
00518C                             6224+CORRINT  EQU   * @AS79872
00518C D713 D2AB D2AB 064EC 064EC  6225+         XC    IEAERRS(Q20),IEAERRS ZERO SENSE BUFFER          BH 58099
005192 4110 B0C4            051C0  6226+         LA    R1,IEASN327 GET ADDR. OF CCW                  BH 58099
005196 5010 0048            00048  6227+         ST    R1,72 SET UP CAW                        BH 58099
00519A 9C00 A000      00000        6228+SIOS3270 SIO   0(R10) START THE SENSE COMMAND           BH 58099
00519E 4770 B09E            0519A  6229+         BC    7,SIOS3270 NOT STARTED REISSUE SIO           BH 58099
                                   6230+***********************************************************************
                                   6231+** THE FOLLOWING TIO BRANCH SEQUENCE IS NEEDED TO ALLOW    **  BH 58099
                                   6232+** THE COMPLETION OF THE SIO TO AVOID A POSSIBLE LOOP      **  BH 58099
                                   6233+** BETWEEN THE CALLER AND THE INTERRUPT HANDLER            **  BH 58099
                                   6234+***********************************************************************
0051A2 9D00 A000      00000        6235+TIOS3270 TIO   0(R10) LOOP FOR RESPONSE                 BH 58099
0051A6 47B0 B0A6            051A2  6236+         BC    11,TIOS3270 FROM THE SIO                      BH 58099
0051AA 9200 B134      05230        6237+         MVI   SPINSW,X'00' RESET SPIN SWITCH                 BH 58099
0051AE 980F B0CC            051C8  6238+         LM    R0,R15,SAVE3270 RESTORE REGS                    BH 58099
                                                                                                               PAGE  148


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0051B2 8200 0038      00038        6239+         LPSW  X'38' REDISPATCH CALLER                 BH 58099
0051B6 0004000000                  6240+NEW3270P DC    X'0004000000' PSW ENABLED FOR MC ONLY           BH 58099
0051BB 00517C                      6241+         DC    AL3(INTH3270) ADDR FOR 3270 LOOP                BH 58099
0051C0                             6242+         DS    0D ALIGN ON A DOUBLE WORD BDY        BH 58099
0051C0 04                          6243+IEASN327 DC    X'04' SENSE                             BH 58099
0051C1 0064EC                      6244+         DC    AL3(IEAERRS) BUFFER ADDR                       BH 58099
0051C4 20000001                    6245+         DC    X'20000001' BH 58099
0051C8                             6246+SAVE3270 DS    16F INT. HDLR. SAVE AREA              BH 58099
005208                             6247+IONEWSV  DS    2F SAVE AREA FOR I/O NEW PSW         BH 58099
005210                             6248+TEMP3270 DS    4F BH 58099
005220                             6249+         DS    0D @SM0305K
005220 FF040000                    6250+MASKCHNL DC    X'FF040000' ENABLE PSW                  @SM0305K
005224 00005164                    6251+         DC    A(NORESET) @SM0305K
005228 00040000                    6252+         DC    X'00040000' DISABLE PSW                 @SM0305K
00522C 00005170                    6253+         DC    A(NEXT) @SM0305K
005230 00                          6254+SPINSW   DC    X'00' SPIN SWITCH FOR ENABLE/DISABLE    BH 58099
005231 8040201008040202            6255+CHNLMASK DC    X'80402010080402020202020202020202' BH 58099
                                   6256+*  THE FOLLOWING WAIT PSW'S AND ALL OF THE FOLLOWING CONSTANTS ARE MCS0
                                   6257+*    ADDRESSED BY REGISTERS 12 AND 13.  THEIR TOTAL LENGTH MUST BE MCS0
                                   6258+*    WITHIN X'1FFD' BYTES TO MAINTAIN ADDRESSABILITY               MCS0
                                   6259+*                                                                  MCS0
005241                             6260+IEACONBS EQU   * MCS0
005241 00
005242 9201 CFE6      06227        6261+IEAERR1  MVI   ERRBUF,X'01' STORE ERR CODE 1
005246 8200 CFDF      06220        6262+         LPSW  IEAWAIT PUT MACHINE IN WAIT STATE
00524A 9202 CFE6      06227        6263+IEAERR2  MVI   ERRBUF,X'02' STORE ERR CODE 2
00524E 8200 CFDF      06220        6264+         LPSW  IEAWAIT PUT MACHINE IN WAIT STATE
005252 9203 CFE6      06227        6265+IEAERR3  MVI   ERRBUF,X'03' STORE ERR CODE 3
005256 8200 CFDF      06220        6266+         LPSW  IEAWAIT PUT MACHINE IN WAIT STATE
00525A 9206 CFE6      06227        6267+IEAERR6  MVI   ERRBUF,6 .               CSW STATUS BYTE 2 ERRORS
00525E 8200 CFDF      06220        6268+         LPSW  IEAWAIT .                PUT MACHINE INTO WAIT STATE
005262 9207 CFE6      06227        6269+IEAERR7  MVI   ERRBUF,X'07' STORE ERR CODE 7
005266 8200 CFDF      06220        6270+         LPSW  IEAWAIT PUT MACHINE IN WAIT STATE
00526A 920A CFE6      06227        6271+IEAERRA  MVI   ERRBUF,X'0A' STORE ERR CODE A               21016
00526E 8200 CFDF      06220        6272+         LPSW  IEAWAIT PUT MACHINE IN WAIT STATE      21016
005272 9218 CFE6      06227        6273+IEAERR18 MVI   ERRBUF,X'18' STORE ERR CODE 18
005276 8200 CFDF      06220        6274+         LPSW  IEAWAIT PUT MACHINE IN WAIT STATE
                                                                                                               PAGE  149


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6276+****                                                           ****MCS0
                                   6277+*    THE FOLLOWING ROUTINES ESTABLISH ADDRESSABILITY TO ALL SUB-  *MCS0
                                   6278+*                                                                 *MCS0
                                   6279+*     ROUTINES IN NIP - MAIN LINE ADDRESSABILITY IS STORED HERE   *MCS0
                                   6280+*                                                                 *MCS0
                                   6281+*    WHILE CONTROL IS IN THE SUBROUTINE-RETURN IS FIRST TO THIS  * MCS0
                                   6282+*                                                                 *MCS0
                                   6283+*    CODE TO RE-ESTABLISH ADDRESSABILITY AND THEN RETURN INLINE   *MCS0
                                   6284+****                                                           ****MCS0





00527A 50B0 D4AF            066F0  6286+IEASHCP1 ST    R11,HCP1ADDR SAVE NIPS BASE REG              MCS0
00527E 58B0 C4CF            05710  6287+         L     R11,HCPYADDR R11= BASE REG VALUE FOR SUBRTN  MCS0
005282 5050 D4B3            066F4  6288+         ST    R5,HCPRTNAD SAVE RETURN REG                 MCS0
005286 055B                        6289+         BALR  R5,R11 GO TO SUBROUTINE                MCS0
005288 47F0 C071            052B2  6290+         B     HCPGOOD GOOD REPLY                      MCS0
00528C 47F0 C065            052A6  6291+         B     HCPBAD INVALID REPLY                   MCS0





005290 50B0 D4AF            066F0  6293+IEASHCP2 ST    R11,HCP1ADDR SAVE BASE REG                   MCS0
005294 58B0 C4CF            05710  6294+         L     R11,HCPYADDR R11=SUBRTN BASE                 MCS0
005298 5050 D4B3            066F4  6295+         ST    R5,HCPRTNAD SAVE RET REG                    MCS0
00529C 58A0 C4D3            05714  6296+         L     R10,HCP2ADDR R10=ADDR OF ALTERNATE ENTRY PT  MCS0
0052A0 055A                        6297+         BALR  R5,R10 GO TO SUBROUTINE                MCS0
0052A2 47F0 C071            052B2  6298+         B     HCPGOOD GOOD REPLY                      MCS0
0052A6 5850 D4B3            066F4  6299+HCPBAD   L     R5,HCPRTNAD RESTORE REG 5                   MCS0
0052AA 4155 0004            00004  6300+         LA    R5,Q4(R5) INDICATE REPLY INVALID          MCS0
0052AE 47F0 C075            052B6  6301+         B     HCPDUPCT MCS0
0052B2 5850 D4B3            066F4  6302+HCPGOOD  L     R5,HCPRTNAD RESTORE REG 5                   MCS0
0052B6 58B0 D4AF            066F0  6303+HCPDUPCT L     R11,HCP1ADDR RESTORE REG 11                  MCS0
0052BA 07F5                        6304+         BR    R5 RETURN                          MCS0





0052BC 50B0 C313            05554  6306+IEACOMON ST    R11,COMBASAV *    *    *    *    *    *       MCS0
0052C0 50E0 C317            05558  6307+         ST    R14,COMRGSAV *INTERFACE FOR SUBROUTINE        MCS0
0052C4 58B0 C3DF            05620  6308+         L     R11,COMONAC TO INITIALIZE DCB                MCS0
0052C8 05EB                        6309+         BALR  R14,R11 *                                MCS0
0052CA 58B0 C313            05554  6310+         L     R11,COMBASAV *                                MCS0
0052CE 58E0 C317            05558  6311+         L     R14,COMRGSAV *                                MCS0
0052D2 07FE                        6312+         BR    R14 *                                MCS0





                                   6314+***  SUBROUTINE TO PROVIDE ADDRESSABILITY FOR THE SUBROUTINE       I267
                                                                                                               PAGE  150


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6315+*    SUBIOSGN (PRODUCES IOSGEN MACRO).                             I267

0052D4 50B0 C31B            0555C  6317+IEAIOSGN ST    R11,IOSGNSAV SAVE BASE REGISTER              I267
0052D8 5060 C31F            05560  6318+         ST    R6,IOSGNREG SAVE RETURN REGISTER            I267
0052DC 58B0 C3E3            05624  6319+         L     R11,IOSGNAC R11 = ADDR SUBIOSGN             I267
0052E0 056B                        6320+         BALR  R6,R11 GO TO SUBROUTINE                I267
0052E2 58B0 C31B            0555C  6321+         L     R11,IOSGNSAV RESTORE BASE REGISTER           I267
0052E6 5860 C31F            05560  6322+         L     R6,IOSGNREG RESTORE RETURN REGISTER         I267
0052EA 07F6                        6323+         BR    R6 RETURN                          I267





0052EC 18EB                        6325+IEAGETXT LR    R14,R11 *    *    *    *    *    *       MCS0
0052EE 58B0 C3E7            05628  6326+         L     R11,GETEXAC * GETTEXT AND FINDTEXT           MCS0
0052F2 07FB                        6327+         BR    R11 * SUBROUTINES                    MCS0





0052F4 18EB                        6329+IEAGETLS LR    R14,R11 *    *    *    *    *    *       MCS0
0052F6 58B0 C3E7            05628  6330+         L     R11,GETEXAC *  INTERFACE TO ENTRY POINT      MCS0
0052FA 47FB 000E            0000E  6331+         B     GETLS-GETTEXT(R11) * GETLS IN GETTEXT               MCS0





0052FE 50B0 C333            05574  6333+IEAUCBFN ST    R11,BFNBASAV *                                MCS0
005302 5050 C337            05578  6334+         ST    R5,BFNRGSAV *                                MCS0
005306 58B0 C3EB            0562C  6335+         L     R11,BFNADCON * SUBROUTINE INTERFACE TO        MCS0
00530A 055B                        6336+         BALR  R5,R11 * IEAFNDTX-ABSOLUTE TTR          MCS0
00530C 58B0 C333            05574  6337+         L     R11,BFNBASAV * OF THE POD RECORD              MCS0
005310 5850 C337            05578  6338+         L     R5,BFNRGSAV *                                MCS0
005314 07F5                        6339+         BR    R5 *                                MCS0





005316 50B0 C33B            0557C  6341+IEANOUCB ST    R11,NOUCBSAV MCS0
00531A 5050 C33F            05580  6342+         ST    R5,NOUCRGSV * INTERFACE TO SUBROUTINE        MCS0
00531E 58B0 C3EF            05630  6343+         L     R11,NOUCBAC * TO INDICATE NIP'S              MCS0
005322 055B                        6344+         BALR  R5,R11 * NOT FINDING A UCB              MCS0
005324 58B0 C33B            0557C  6345+         L     R11,NOUCBSAV * FOR THE IPL'ED DEVICE          MCS0
005328 5850 C33F            05580  6346+         L     R5,NOUCRGSV *                                MCS0
00532C 07F5                        6347+         BR    R5 *                                MCS0





00532E 50B0 C343            05584  6349+IEAUCBIN ST    R11,UCBINSAV * INTERFACE TO SUBROUTINE        MCS0
                                                                                                               PAGE  151


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005332 5030 C347            05588  6350+         ST    R3,UCBINREG *                                MCS0
005336 58B0 C3F3            05634  6351+         L     R11,UCBINAC * WHICH WRITES VOLUME            MCS0
00533A 053B                        6352+         BALR  R3,R11 *                                MCS0
00533C 58B0 C343            05584  6353+         L     R11,UCBINSAV * IN A DESIGNATED                MCS0
005340 5830 C347            05588  6354+         L     R3,UCBINREG *                                MCS0
005344 07F3                        6355+         BR    R3 * UCB                            MCS0
005346 50B0 C34B            0558C  6356+IEADTUCB ST    R11,DTUCBSAV *                                MCS0
00534A 58B0 C3F7            05638  6357+         L     R11,DTUCBAC *                                MCS0
00534E 07FB                        6358+         BR    R11 *                                MCS0
005350 5830 C3FB            0563C  6359+DTUCB1   L     R3,DTUCBAC1 *NONSTANDARD                MCS0
005354 58B0 C34B            0558C  6360+         L     R11,DTUCBSAV *
005358 07F3                        6361+         BR    R3 * RETURNS                   MCS0
00535A 5830 C3FF            05640  6362+DTUCB2   L     R3,DTUCBAC2 * FROM                      MCS0
00535E 58B0 C34B            0558C  6363+         L     R11,DTUCBSAV *
005362 07F3                        6364+         BR    R3 * SUBUCBIN                  MCS0





005364 50B0 C34F            05590  6366+IEARDVOL ST    R11,RDVOLSAV MCS0
005368 5060 C353            05594  6367+         ST    R6,RDVOLREG *                                MCS0
00536C 58B0 C403            05644  6368+         L     R11,RDVOLAC * INTERFACE TO SUBROUTINE        MCS0
005370 056B                        6369+         BALR  R6,R11 * SUBRDVOL WHICH READS           MCS0
005372 5860 C353            05594  6370+         L     R6,RDVOLREG * VOL SER NO.,CCHHR OF VTOC      MCS0
005376 58B0 C34F            05590  6371+         L     R11,RDVOLSAV * AND NUM. TRK/CYL               MCS0
00537A 07F6                        6372+         BR    R6 *                                MCS0





00537C 50B0 C357            05598  6374+IEALOCAT ST    R11,LOCATSAV *                                MCS0
005380 5090 C35B            0559C  6375+         ST    R9,LOCATREG *                                MCS0
005384 58B0 C407            05648  6376+         L     R11,LOCATAC * INTERFACE TO SUBROUTINE        MCS0
005388 059B                        6377+         BALR  R9,R11 * TO FIND VOL. SER. NUM.         MCS0
00538A 58B0 C357            05598  6378+         L     R11,LOCATSAV * OF A DATA SET                  MCS0
00538E 5890 C35B            0559C  6379+         L     R9,LOCATREG *                                MCS0
005392 07F9                        6380+         BR    R9 *                                MCS0





005394 50B0 C35F            055A0  6382+IEAOBTAN ST    R11,OBTANSAV *                                MCS0
005398 5040 C363            055A4  6383+         ST    R4,OBTANREG *                                MCS0
00539C 58B0 C40B            0564C  6384+         L     R11,OBTANAC * INTERFACE TO SUBROUTINE        MCS0
0053A0 054B                        6385+         BALR  R4,R11 * OBRAIN WHICH GETS              MCS0
0053A2 58B0 C35F            055A0  6386+         L     R11,OBTANSAV * A FORMAT 1 DSCB                MCS0
0053A6 5840 C363            055A4  6387+         L     R4,OBTANREG *                                MCS0
0053AA 07F4                        6388+         BR    R4 *                                MCS0
0053AC 50B0 C3CB            0560C  6389+IEAFREOB ST    R11,FREOBSAV *                                MCS0
0053B0 5040 C3C7            05608  6390+         ST    R4,FREOBREG *                                MCS0
0053B4 58B0 C40B            0564C  6391+         L     R11,OBTANAC * INTERFACE TO ENTRY             MCS0
0053B8 454B 0068            00068  6392+         BAL   R4,SFREOB-SUBOBTAN(R11) * POINT SFREOB WITHIN       MCS0
                                                                                                               PAGE  152


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0053BC 58B0 C3CB            0560C  6393+         L     R11,FREOBSAV * OBTAIN SUBROUTINE              MCS0
0053C0 5840 C3C7            05608  6394+         L     R4,FREOBREG *                                MCS0
0053C4 07F4                        6395+         BR    R4 *                                MCS0





0053C6 50B0 C367            055A8  6397+SENSESS  ST    R11,SENSADR *                                MCS0
0053CA 5050 C36B            055AC  6398+         ST    R5,SENSREG * INTERFACE TO SUBROUTINE        MCS0
0053CE 58B0 C40F            05650  6399+         L     R11,SENSSAC * WHICH INSPECTS THE             MCS0
0053D2 055B                        6400+         BALR  R5,R11 * CAUSE OF A UNIT                MCS0
0053D4 58B0 C367            055A8  6401+         L     R11,SENSADR * CHECK                          MCS0
0053D8 5850 C36B            055AC  6402+         L     R5,SENSREG *                                MCS0
0053DC 07F5                        6403+         BR    R5 *                                MCS0





0053DE 50B0 C36F            055B0  6405+IEASERCH ST    R11,SERCHSAV *                                MCS0
0053E2 5030 C373            055B4  6406+         ST    R3,SERCHREG * INTERFACE TO SUBROUTINE        MCS0
0053E6 58B0 C413            05654  6407+         L     R11,SERCHAC *                                MCS0
0053EA 053B                        6408+         BALR  R3,R11 MCS0
0053EC 58B0 C36F            055B0  6409+         L     R11,SERCHSAV * SEARCH OR IEASCAN1             MCS0
0053F0 5830 C373            055B4  6410+         L     R3,SERCHREG *                                MCS0
0053F4 07F3                        6411+         BR    R3 * ROUTINE SCANS NIP'S DA         MCS0
0053F6 58B0 C413            05654  6412+IEASCAN0 L     R11,SERCHAC * TABLE FOR MOUNTED VOL          MCS0
0053FA 47FB 0004            00004  6413+         B     IEASCAN1-SUBSERCH(R11) *                           MCS0





0053FE 50B0 C377            055B8  6415+IEAMOUNT ST    R11,MOUNTSAV * INTERFACE TO SUBROUTINE        MCS0
005402 5050 C37B            055BC  6416+         ST    R5,MOUNTREG *                                MCS0
005406 58B0 C417            05658  6417+         L     R11,MOUNTAC * TO HAVE A DESIRED              MCS0
00540A 055B                        6418+         BALR  R5,R11 *                                MCS0
00540C 58B0 C377            055B8  6419+         L     R11,MOUNTSAV * VOLUME MOUNTED                 MCS0
005410 5850 C37B            055BC  6420+         L     R5,MOUNTREG *                                MCS0
005414 07F5                        6421+         BR    R5 *                                MCS0
005416 50B0 C37F            055C0  6422+IEAMVPR0 ST    R11,PROSAV * INTERFACE TO ENTRY             MCS0
00541A 5050 C383            055C4  6423+         ST    R5,PROREG * POINT IEMVPRT                  MCS0
00541E 58B0 C417            05658  6424+         L     R11,MOUNTAC MCS0
005422 455B 001E            0001E  6425+         BAL   R5,IEAMVPRT-SUBMOUNT(R11) MCS0
005426 58B0 C37F            055C0  6426+         L     R11,PROSAV *                                MCS0
00542A 5850 C383            055C4  6427+         L     R5,PROREG *                                MCS0
00542E 07F5                        6428+         BR    R5 *                                MCS0





005430 50B0 C387            055C8  6430+IEAGETM  ST    R11,GETMSAV *                                MCS0
005434 5050 C38B            055CC  6431+         ST    R5,GETMREG * INTERFACE WITH SUBROUTINE      MCS0
                                                                                                               PAGE  153


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005438 58B0 C41B            0565C  6432+         L     R11,GETMAC * TO GETMAIN OR FREEMAIN         MCS0
00543C 055B                        6433+         BALR  R5,R11 * CORE STORAGE                   MCS0
00543E 58B0 C387            055C8  6434+         L     R11,GETMSAV *                                MCS0
005442 5850 C38B            055CC  6435+         L     R5,GETMREG *                                MCS0
005446 07F5                        6436+         BR    R5 *                                MCS0





005448 50B0 C38F            055D0  6438+IEASCONV ST    R11,SCONVSAV *                                MCS0
00544C 5050 C393            055D4  6439+         ST    R5,SCONVREG *                                MCS0
005450 58B0 C41F            05660  6440+         L     R11,SCONVAC *                                MCS0
005454 055B                        6441+         BALR  R5,R11 * INTERFACE TO SUBROUTINE        MCS0
005456 58B0 C38F            055D0  6442+         L     R11,SCONVSAV * TO CONVERT EBCDIC UNIT         MCS0
00545A 5850 C393            055D4  6443+         L     R5,SCONVREG * NAME TO HEX                    MCS0
00545E 07F5                        6444+         BR    R5 *                                MCS0





005460 5870 C503            05744  6446+IEAMS1ER L     R7,MS1ERAC * INTERFACE TO MS1               MCS0
005464 07F7                        6447+         BR    R7 * STORAGE INTI ROUTINE           MCS0





005466 50B0 C397            055D8  6449+IEASCTIO ST    R11,SCTIOSAV *                                MCS0
00546A 5050 C39B            055DC  6450+         ST    R5,SCTIOREG *                                MCS0
00546E 58B0 C4BB            056FC  6451+         L     R11,SCTIOAC * INTERFACE TO TIO               MCS0
005472 055B                        6452+         BALR  R5,R11 * SUBROUTINE                     MCS0
005474 58B0 C397            055D8  6453+         L     R11,SCTIOSAV *                                MCS0
005478 5850 C39B            055DC  6454+         L     R5,SCTIOREG *                                MCS0
00547C 07F5                        6455+         BR    R5 *                                MCS0





00547E 50B0 C39F            055E0  6457+DUPVLTST ST    R11,DUPVLSAV *                                MCS0
005482 5030 C3A3            055E4  6458+         ST    R3,DUPVLREG *                                MCS0
005486 58B0 C423            05664  6459+         L     R11,DUPVLAC * INTERFACE TO SUBROUTINE        MCS0
00548A 053B                        6460+         BALR  R3,R11 * THAT CHECKS FOR                MCS0
00548C 58B0 C39F            055E0  6461+         L     R11,DUPVLSAV * DUPLICATE VOLID'S ON DA        MCS0
005490 5830 C3A3            055E4  6462+         L     R3,DUPVLREG *                                MCS0
005494 07F3                        6463+         BR    R3 *                                MCS0





005496 50B0 C3A7            055E8  6465+IEADMNT  ST    R11,DISMTSAV *                                MCS0
00549A 5050 C3AB            055EC  6466+         ST    R5,DISMTREG * INTERFACE TO SUBROUTINE        MCS0
                                                                                                               PAGE  154


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00549E 58B0 C427            05668  6467+         L     R11,DISMTAC * TO HAVE A VOLUME               MCS0
0054A2 055B                        6468+         BALR  R5,R11 * DISMOUNTED                     MCS0
0054A4 58B0 C3A7            055E8  6469+         L     R11,DISMTSAV *                                MCS0
0054A8 5850 C3AB            055EC  6470+         L     R5,DISMTREG *                                MCS0
0054AC 07F5                        6471+         BR    R5 MCS0


0054AE 50B0 C3AF            055F0  6473+IEACONIN ST    R11,CONINSAV *                                MCS0
0054B2 5050 C3B3            055F4  6474+         ST    R5,CONINREG * INTERFACE TO                   MCS0
0054B6 58B0 C433            05674  6475+         L     R11,CONINAC *                                MCS0
0054BA 055B                        6476+IEAIOGO  BALR  R5,R11 * THE I/O SUBROUTINE             MCS0
0054BC 58B0 C3AF            055F0  6477+         L     R11,CONINSAV *                                MCS0
0054C0 5850 C3B3            055F4  6478+         L     R5,CONINREG * FOR ANY OF                     MCS0
0054C4 07F5                        6479+         BR    R5 *                                MCS0
0054C6 50B0 C3BB            055FC  6480+IEACONSL ST    R11,CONSLSAV * THREE ENTRY POINTS             MCS0
0054CA 5050 C3B7            055F8  6481+         ST    R5,CONSLREG *                                MCS0
0054CE 58B0 C433            05674  6482+         L     R11,CONINAC * IEACONIN TO IEACON00           MCS0
0054D2 455B 0010            00010  6483+         BAL   R5,IEACON01-IEACON00(R11) MCS0
0054D6 58B0 C3BB            055FC  6484+         L     R11,CONSLSAV * IEACONSL TO IEACON01           MCS0
0054DA 5850 C3B7            055F8  6485+         L     R5,CONSLREG *                                MCS0
0054DE 07F5                        6486+         BR    R5 * IEASTRIO TO IEACON02           MCS0
0054E0 50B0 C3C3            05604  6487+IEASTRIO ST    R11,STRIOSAV *                                MCS0
0054E4 5050 C3BF            05600  6488+         ST    R5,STRIOREG *                                MCS0
0054E8 58B0 C433            05674  6489+         L     R11,CONINAC *                                MCS0
0054EC 455B 0142            00142  6490+         BAL   R5,IEACON02-IEACON00(R11) MCS0
0054F0 58B0 C3C3            05604  6491+         L     R11,STRIOSAV *                                MCS0
0054F4 5850 C3BF            05600  6492+         L     R5,STRIOREG *                                MCS0
0054F8 07F5                        6493+         BR    R5 *                                MCS0
0054FA 5830 C42F            05670  6494+STUCB2   L     R3,TUCB2AC RETRN PT IN DCELL INIT RTN    A26946
0054FE 58B0 C3F7            05638  6495+         L     R11,DTUCBAC ADDRBLTY TO DCELL SUB RTN     A26946
005502 07F3                        6496+         BR    R3 RTN TO CHECK FOR MORE CELLS   A26946
005504 D203 0048 C547 00048 05788  6497+HDRPRINT MVC   CAW(Q4),IEAHDCAW SET CAWITO PRINT LIST HEADING   MCS0
00550A 4550 C285            054C6  6498+         BAL   R5,IEACONSL WTO                             MCS0
00550E 07F9                        6499+         BR    R9 RETURT TO CALLER                MCS0
005510 D203 0048 C537 00048 05778  6500+INPTBAD  MVC   CAW(Q4),INVLDCAW SET CAW TO PRINT INVALID INPUT  MCS0
005516 D207 CB3D D8D3 05D7E 06B14  6501+         MVC   ERDNAMER(8),ERDNAMES SED MODULE NAME IN MSG     MCS0
00551C 4550 C285            054C6  6502+         BAL   R5,IEACONSL WTO                        MCS0
005520 07F9                        6503+         BR    R9 RETURN TO CALLER           MCS0
                                   6504+***                                                                MCS0
                                   6505+*   SUBROUTINE TO REPORT INVALID MVT STORAGE CONFIGURATION         MCS0
                                   6506+***                                                                MCS0
005522 D203 0048 C53B 00048 0577C  6507+IEATOOBG MVC   CAW(Q4),IEAEXCAW MCS0
005528 4550 C285            054C6  6508+         BAL   R5,IEACONSL MCS0
00552C 47F0 C011            05252  6509+         B     IEAERR3 MCS0
005530 D203 0048 C53F 00048 05780  6510+IEAPRNTM MVC   CAW(Q4),IEARPORT SET CAW TO PRINT MODULE NAME      MCS0
005536 4550 C285            054C6  6511+         BAL   R5,IEACONSL ON SYSTEM CONSOL                  MCS0
00553A 07F9                        6512+         BR    R9 RETURN                            MCS0
00553C 5050 C3D3            05614  6513+IEAINTH3 ST    R5,INTH3SVE * SUBROUTINE INTERFACE            BH 58099
005540 50B0 C3D7            05618  6514+         ST    R11,INTH3SVR BH 58099
005544 58B0 C437            05678  6515+         L     R11,IEAINTAC BH 58099
005548 055B                        6516+         BALR  R5,R11 BH 58099
00554A 5850 C3D3            05614  6517+         L     R5,INTH3SVE BH 58099
00554E 58B0 C3D7            05618  6518+         L     R11,INTH3SVR BH 58099
005552 07F5                        6519+         BR    R5 BH 58099
                                                                                                               PAGE  155


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78




                                   6522+*    THE FOLLOWING STORAGE IS USED BY SUB-ROUTINE INTERFACE TO SAV MCS0
                                   6523+*    CALLING ROUTINE BASE REG VALUE AND RETURN ADDRESSES           MCS0
005554                             6524+COMBASAV DS    F MCS0
005558                             6525+COMRGSAV DS    F MCS0
00555C 00000000                    6526+IOSGNSAV DC    A(0) SAVE AREA FOR IOSGEN R11        I267
005560 00000000                    6527+IOSGNREG DC    A(0) SAVE AREA FOR IOSGEN R6         I267
005564                             6528+GTXBASAV DS    F MCS0
005568                             6529+GTXRGSAV DS    F MCS0
00556C                             6530+GX2BASAV DS    F MCS0
005570                             6531+GX2RGSAV DS    F MCS0
005574                             6532+BFNBASAV DS    F MCS0
005578                             6533+BFNRGSAV DS    F MCS0
00557C                             6534+NOUCBSAV DS    F MCS0
005580                             6535+NOUCRGSV DS    F MCS0
005584                             6536+UCBINSAV DS    F MCS0
005588                             6537+UCBINREG DS    F MCS0
00558C                             6538+DTUCBSAV DS    F MCS0
005590                             6539+RDVOLSAV DS    F MCS0
005594                             6540+RDVOLREG DS    F MCS0
005598                             6541+LOCATSAV DS    F MCS0
00559C                             6542+LOCATREG DS    F MCS0
0055A0                             6543+OBTANSAV DS    F MCS0
0055A4                             6544+OBTANREG DS    F MCS0
0055A8                             6545+SENSADR  DS    F MCS0
0055AC                             6546+SENSREG  DS    F MCS0
0055B0                             6547+SERCHSAV DS    F MCS0
0055B4                             6548+SERCHREG DS    F MCS0
0055B8                             6549+MOUNTSAV DS    F MCS0
0055BC                             6550+MOUNTREG DS    F MCS0
0055C0                             6551+PROSAV   DS    F MCS0
0055C4                             6552+PROREG   DS    F MCS0
0055C8                             6553+GETMSAV  DS    F MCS0
0055CC                             6554+GETMREG  DS    F MCS0
0055D0                             6555+SCONVSAV DS    F MCS0
0055D4                             6556+SCONVREG DS    F MCS0
0055D8                             6557+SCTIOSAV DS    F MCS0
0055DC                             6558+SCTIOREG DS    F MCS0
0055E0                             6559+DUPVLSAV DS    F MCS0
0055E4                             6560+DUPVLREG DS    F MCS0
0055E8                             6561+DISMTSAV DS    F MCS0
0055EC                             6562+DISMTREG DS    F MCS0
0055F0                             6563+CONINSAV DS    F MCS0
0055F4                             6564+CONINREG DS    F MCS0
0055F8                             6565+CONSLREG DS    F MCS0
0055FC                             6566+CONSLSAV DS    F MCS0
005600                             6567+STRIOREG DS    F MCS0
005604                             6568+STRIOSAV DS    F MCS0
005608                             6569+FREOBREG DS    F MCS0
00560C                             6570+FREOBSAV DS    F MCS0
005610                             6571+UCB3SAVE DS    F MCS0
005614                             6572+INTH3SVE DS    F BH 58099
005618                             6573+INTH3SVR DS    F BH 58099
                                                                                                               PAGE  156


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00561C                             6574+SENSIOSV DS    F @AS78239
                                                                                                               PAGE  157


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78






                                   6577+*    THE FOLLOWING ADCONS ARE USED BY SUB-ROUTINE INTERFACE TO     MCS0
                                   6578+*    ESTABLISH THE STARTING POINT OF EACH SUB-ROUTINE              MCS0





005620 00003D64                    6580+COMONAC  DC    A(DEBCOMON) MCS0
005624 0000402C                    6581+IOSGNAC  DC    A(SUBIOSGN) ADDR SUBIOSGN SUBROUTINE        I267
005628 0000417A                    6582+GETEXAC  DC    A(GETTEXT) MCS0
00562C 000048D0                    6583+BFNADCON DC    A(SUBUCBFN) MCS0
005630 0000498E                    6584+NOUCBAC  DC    A(SUBNOUCB) MCS0
005634 000049F0                    6585+UCBINAC  DC    A(SUBUCBIN) MCS0
005638 00004A78                    6586+DTUCBAC  DC    A(SUBDCINT) MCS0
00563C 0000057C                    6587+DTUCBAC1 DC    A(ASMCLOSE) I267
005640 00004EC6                    6588+DTUCBAC2 DC    A(IEADSUCB) MCS0
005644 00004AD0                    6589+RDVOLAC  DC    A(SUBVRTTR) MCS0
005648 00004B7C                    6590+LOCATAC  DC    A(SUBLOCAT) MCS0
00564C 00004BCE                    6591+OBTANAC  DC    A(SUBOBTAN) MCS0
005650 00004C4E                    6592+SENSSAC  DC    A(SUBSENSE) MCS0
005654 00004C8A                    6593+SERCHAC  DC    A(SUBSERCH) MCS0
005658 00004D38                    6594+MOUNTAC  DC    A(SUBMOUNT) MCS0
00565C 00004118                    6595+GETMAC   DC    A(SUBGMAIN) MCS0
005660 00004ED4                    6596+SCONVAC  DC    A(SUBCONVT)
005664 00004F6A                    6597+DUPVLAC  DC    A(SUBDPVID) MCS0
005668 00005010                    6598+DISMTAC  DC    A(SUBDSMNT) MCS0
00566C 0000050E                    6599+UCB3AC   DC    A(IEAUCB3) MCS0
005670 00004AA0                    6600+TUCB2AC  DC    A(IEATUCB2) MCS0
005674 000042F4                    6601+CONINAC  DC    A(IEACON00) MCS0
005678 000050FC                    6602+IEAINTAC DC    A(T3270DEV) ENABLE/DISABLE ROUTINE            BH 58099
                                                                                                               PAGE  158


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6604+***
                                   6605+**  FOLLOWING ARE ALL OF THE AD-CONS USED BY NIP
                                   6606+***
00567C                             6607+         DS    0F
00567C 000058A8                    6608+MSG1CAW  DC    A(MSG1CCW)
005680 000042F4                    6609+IEACONCN DC    A(IEACON00) *       ADCON FOR I/O INTERFAC RTN     TMCS0
005684 00004304                    6610+CONSLAC  DC    A(IEACON01)
005688 00004436                    6611+STRIOAC  DC    A(IEACON02)
00568C 00006B48                    6612+ECFCAW   DC    A(ECFSKCCW) 20201
005690 000008B4                    6613+ADIEASQS DC    A(IEASQS) SQS INITIALIZATION RTN      000E
005694 00005898                    6614+IEARLCAW DC    A(RESVECCW) RESERVE/RELEASE CAW         000E
005698 000058A0                    6615+RELSECAW DC    A(RELSECCW) CAW - RELEASE CCW          0191
00569C 000058B0                    6616+SHARDCAW DC    A(SHARDCCW) CAW - SHARED DEVICE MSG    0191
0056A0 000058D8                    6617+MSG2CAW  DC    A(MSG2CCW)
0056A4 000058E0                    6618+MSG3CAW  DC    A(MSG3CCW) 1935
0056A8 00005908                    6619+IEAUCBMS DC    A(IEANFORM)
0056AC 00005910                    6620+IEADSLST DC    A(IEADSTSK)
0056B0 00005938                    6621+IEALBLST DC    A(IEALBLSK)
0056B4 00005958                    6622+IEAROLST DC    A(IEAROSK)
0056B8 00005968                    6623+IEAADCDR DC    A(IEAADCDS)
0056BC 00005978                    6624+IEASEEKR DC    A(IEASEEKS)
0056C0 00005990                    6625+IEASNCAW DC    A(IEASNCCW)
0056C4 00005900                    6626+SKIPCAW  DC    A(SKIPCCW) 2480
0056C8 00000000                    6627+IEAAPAD  DC    A(IEAPAD)
0056CC 000058E8                    6628+IEAMVMTA DC    A(MVMTACCW) ADDR OF MV MOUNT CCW            000E
0056D0 000058F0                    6629+IEAMSGMV DC    A(MSGMVCCW) 000E
0056D4 000058F8                    6630+IEADSSMV DC    A(DSSMVCCW) 000E
0056D8 00005A18                    6631+IEANODSB DC    A(IEADBCCW) CAW FOR 211I MSG            000E
0056DC                             6632+IEADSCB5 DS    0F ALIGN ON FULL WORD
0056DC C1                          6633+         DC    AL1(193) THREE BYTES OF FLAGS
0056DD 00                          6634+         DC    AL1(0) INDICATING THE FUNC-
0056DE 00                          6635+         DC    AL1(0) TION TO BE PERFORMED
0056DF 00                          6636+         DC    AL1(0) NO OPTION THREE
0056E0 00006C1C                    6637+         DC    A(IEADSTNM) PARAMETER TWO
0056E4 000066AA                    6638+         DC    A(IEAVOLAB) PARAMETER THREE
0056E8 00000000                    6639+         DC    A(0) PARAMETER FOUR
0056EC                             6640+IEADSCB7 DS    0F ALIGN ON FULL WORD
0056EC C0                          6641+         DC    AL1(192) THREE BYTES OF FLAGS
0056ED 80                          6642+         DC    AL1(128) INDICATING THE FUNC-
0056EE 00                          6643+         DC    AL1(0) TION TO BE PERFORMED
0056EF 00                          6644+         DC    AL1(0) NO OPTION THREE
0056F0 000061FF                    6645+         DC    A(IEA5BYTE) PARAMETER TWO
0056F4 000066AA                    6646+         DC    A(IEAVOLAB) PARAMETER THREE
0056F8 00000000                    6647+         DC    A(0) PARAMETER FOUR
0056FC 00004EF2                    6648+SCTIOAC  DC    A(SUBCNTIO) MCS0
005700 000058B8                    6649+HCSPECAW DC    A(HCSPECCW) ADDR OF SPEC HC CCW             MCS0
005704 000058C0                    6650+HCIVDCAW DC    A(HCIVDCCW) ADDR OF HC SPEC INVALID MSG     MCS0
005708 000058C8                    6651+HCNRDCAW DC    A(HCNRDCCW) ADDR OF UNAVAILABLE CONSL       MCS0
00570C 000058D0                    6652+SMBSQCAW DC    A(SMBSQCCW) ADDR OF HC SQS BUFFER FULL MSG        MCS0
005710 00003B46                    6653+HCPYADDR DC    A(IEASHCPY)
005714 00003BB4                    6654+HCP2ADDR DC    A(NEWSHCP2)
005718 00003018                    6655+MSGBNDAC DC    A(MSGBUFND) ADDR OF END OF HC BUFER        P3038
00571C 00005A50                    6656+IERLCAW1 DC    A(IERLCCW1) 000C
005720 00005A28                    6657+IEARSCAW DC    A(IEARSCCW) 000C
005724 00005A30                    6658+IEARACAW DC    A(IEARACCW) 000C
                                                                                                               PAGE  159


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005728 00005A38                    6659+IEARFCAW DC    A(IEARFCCW) 000C
00572C 00005A40                    6660+IEARRSAW DC    A(IEARRSCW) 000C
005730 00005A48                    6661+IEARRAAW DC    A(IEARRACW) 000C
005734 00003130                    6662+LPAGOAC  DC    A(IEALPAGO) AC TO START OF RELOC CODE-MVT  P3038
005738 0000391C                    6663+SKDADCON DC    A(SKEDEXIT+12)
00573C 000068A8                    6664+MAINSADR DC    A(IEAMAINS)
005740 000068B0                    6665+APLCEADR DC    A(IEAPLCE)
005744 00004F4A                    6666+MS1ERAC  DC    A(SUBMS1)
005748 00005998                    6667+IEACNLST DC    A(IEACONWT)
00574C 000059A0                    6668+OPMSGCAW DC    A(OPMSGCCW)
005750 000059B0                    6669+IEA327RD DC    A(CCW3277) ADDRESS OF 3277 READ CCW'S MH  M1517
005754 000059A8                    6670+IEA327WT DC    A(WR327CCW) ADDRESS OF 3277 WRITE CCW'SMH  M1517
005758 000059D8                    6671+OPCNTCAW DC    A(OPCNTCCW)
00575C 000059E0                    6672+ANSWRCAW DC    A(ANSWRCCW)
005760 000059E8                    6673+IEARRCAW DC    A(IEARRCCW)
005764 000059F8                    6674+IEANOPRM DC    A(NOPRMCCW)
005768 00005A00                    6675+IOEROCAW DC    A(IOEROCCW)
00576C 00005A08                    6676+IEAFLCAW DC    A(IEAFLCCW)
005770 00005A10                    6677+IEANLCAW DC    A(IEANLCCW)
005774 00005A80                    6678+IEAGTCAW DC    A(IEAGTCCW)
005778 00005AB0                    6679+INVLDCAW DC    A(INVLDCCW)
00577C 00005AA8                    6680+IEAEXCAW DC    A(IEAEXCCW)
005780 00005AB8                    6681+IEARPORT DC    A(IEARPCCW)
005784 0000627F                    6682+IEALMT   DC    A(IEABUFER+71)
005788 000059F0                    6683+IEAHDCAW DC    A(IEAHDCCW)
00578C 00005AE0                    6684+BHLSTPTR DC    A(BHCCWLST)
005790 00005B08                    6685+WARNING  DC    A(BHLIST2)
005794 00006338                    6686+LIMITBLK DC    A(IEABUFER+256)
005798 00005AC0                    6687+NOSUPCAW DC    A(NOSUPCCW)
00579C 00005AC8                    6688+NODEFCAW DC    A(NODEFCCW)
0057A0 00005B18                    6689+IEASRCIO DC    A(IEASRDIO) PTR TO ASR I/O ERR CCW     000C
0057A4 00005B10                    6690+IEASRCAW DC    A(IEASRCCW) PTR TO ASR WTO CCW         000C
0057A8                             6691+IGFLIST  EQU   * *                                                19E02
0057A8 00006775                    6692+         DC    A(IEASWITD) *                                      19E02
0057AC 00005C57                    6693+         DC    A(IEADSNAM) *                                      19E02
0057B0 00006990                    6694+         DC    A(NOHNGCON) *                                      19E02
0057B4 000053DE                    6695+         DC    A(IEASERCH) *                                      19E02
0057B8 000052FE                    6696+         DC    A(IEAUCBFN) *                                      19E02
0057BC 00006757                    6697+         DC    A(IEAINDIC) *                                      19E02
0057C0 00005316                    6698+         DC    A(IEANOUCB) *                                      19E02
0057C4 00006514                    6699+         DC    A(IEAUCBHL) *                                      19E02
0057C8 00006634                    6700+         DC    A(IEASRSW) *                                       19E02
0057CC 00005364                    6701+         DC    A(IEARDVOL) *                                      19E02
0057D0 000066AA                    6702+         DC    A(IEAVOLAB) *                                      19E02
0057D4 00005768                    6703+         DC    A(IOEROCAW) *                                      19E02
0057D8 000054C6                    6704+         DC    A(IEACONSL) *                                      19E02
0057DC 0000576C                    6705+         DC    A(IEAFLCAW) *                                      19E02
0057E0 00006610                    6706+         DC    A(IEASRXIT) *                                      19E02
0057E4 00006618                    6707+         DC    A(IEAECB) *                                        19E02
0057E8 000069C0                    6708+         DC    A(IEABLPTR) *                                      19E02
0057EC 00006510                    6709+         DC    A(IEASRUCB) *                                      19E02
0057F0 00005850                    6710+         DC    A(IEATOPCB) 19E02
0057F4 0000662C                    6711+         DC    A(IEJOBDCB) *                                      19E02
0057F8 0000661C                    6712+         DC    A(IEAHIDAT) *                                      19E02
0057FC 00006580                    6713+         DC    A(IEATRBAL) *                                      19E02
                                                                                                               PAGE  160


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005800 00006620                    6714+         DC    A(IEATRKSZ) *                                      19E02
005804 00005868                    6715+         DC    A(IEASVC1)
005808 000037E8                    6716+         DC    A(MCHNAME) *                                       19E02
00580C 00006630                    6717+         DC    A(IEASRTPC) *                                      19E02
005810 00000000                    6718+         DC    A(0) *                                             19E02
005814 00006624                    6719+         DC    A(IEATOLFR) *                                      19E02
005818 00006628                    6720+         DC    A(IEAOVHED) *                                      19E02
00581C 000069EC                    6721+         DC    A(SBLADDR) PTR TO PTR TO SVC BLDL LIST    21961
005820                             6722+IGFTAG   EQU   * *                                                19E02
005820 00005B28                    6723+IEAMDCAW DC    A(IEAMDCCW) PTR TO MODEL NUMBER CCW    000E
005824 00005B20                    6724+IEACGM   DC    A(IEADGM) PTR TO GETMAIN FAIL CCW    000D
005828 00005B30                    6725+SMODNCAW DC    A(SMODNCCW) PTR TO MOD NOT SUPPORTED CCW000E
00582C 00005B38                    6726+IEASPCAW DC    A(IEASPCCW) PTR TO SEREP CCW            000E
005830 00005A20                    6727+IEARXCAW DC    A(IEARXCCW) PTR TO FUNCTION INOP CCW    000E
005834 0000698C                    6728+ANSWREND DC    A(ANSRAREA+80)
005838 00007470                    6729+IEAXCP68 DC    A(XCP68BYT) ADDR OF CONTROL BLOCK AREA           MCS0
00583C 00006F52                    6730+ADNIP545 DC    A(NIP5450) ADDR OF TP AND GRAPHICS SUBR     MSC0
005840 000074D8                    6731+EXCPVCON DC    A(IEAEXCP) ADDRESS OF EXCP ROUTINE          MCS0
005844 000000FF                    6732+ENDCONST DC    XL4'FF'
                                                                                                               PAGE  161


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6734+***
                                   6735+**  FOLLOWING ARE ALL OF THE EXTERNAL AD CONS USED BY NIP
                                   6736+***


005848 00000000                    6738+ADCPCNVT DC    A(IECPCNVT) ADDR OF TTR CONVERT RTN     ISER
00584C 00000000                    6739+CCHANFIG DC    A(IFBACTA) CHAN CONFIGURATION EXTERN      19032
005850 00000000                    6740+IEATOPCB DC    A(IEAMSTCB)
005854 00000000                    6741+IEECVTB  DC    A(IEECVTCB)
005858 00000000                    6742+IEAGOVRF DC    A(GOVRFLB)
00585C 00000000                    6743+IEASVRBA DC    A(IEASVRB)
005860 00000000                    6744+IEARAM1  DC    A(IEAQLPAQ)
005864 00                          6745+         DC    AL1(0) - UNUSED -                 MXMV
005865 000000                      6746+ADAPNDG  DC    AL3(IECXAPG) ADDR OF IOS APPENDAGE TABLE MXMV
005868 00000000                    6747+IEASVC1  DC    A(IEAQSVCQ)
00586C 00000000                    6748+XIGCERR  DC    A(IGCERROR)
005870 00000000                    6749+SVCTAB   DC    A(IBMORG)
005874 00000000                    6750+XUSERORG DC    A(USERORG)
005878 00000000                    6751+IEASRCCH DC    V(IGFCCH) 000C
00587C 00000000                    6752+IEACOMTB DC    V(IEACVT)
005880 00000000                    6753+IOSADDR  DC    V(IECIOS)
005884 00000000                    6754+CNVTDTAB DC    A(IECZDTAB)
005888 00000000                    6755+IEACVUCM DC    V(IEECVUCM)
005888                             6756+ADCVUCM  EQU   IEACVUCM MCS0
                                   6757+* THE FOLLOWING THREE WORDS MUST REMAIN CONTIGUOUS; THEY ARE FILLED000E
                                   6758+* IN WITH ADDRESSES RECEIVED IN A PARAMETER LIST FROM THE EXTERNAL 000E
                                   6759+* SER INITIALIZATION ROUTINE                                       000E
00588C 00000000                    6760+CUASER   DC    F'0' 000E
005890 00000000                    6761+IFBSEEK  DC    F'0' 000E
005894 00000000                    6762+IFBADDR  DC    F'0' 000E
00000C                             6763+SERXTRNS EQU   12 3 SER EXTERNS FOR SER0     000E
                                                                                                               PAGE  162


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6765+***
                                   6766+**  FOLLOWING ARE ALL OF THE CHANNEL COMMANDS USED BY NIP
                                   6767+***


005898                             6769+         DS    0D
005898 B400000030000006            6770+RESVECCW CCW   180,0,X'30',6 RESERVE CCW            GF  47826
0058A0 9400000030000006            6771+RELSECCW CCW   148,0,X'30',6 RELEASE CCW                 0191
0058A8 09                          6772+MSG1CCW  DC    X'09' WRITE TO OPERATOR
0058A9 005BE7                      6773+         DC    AL3(MSG1ST) *
0058AC 0000                        6774+         DC    XL2'00' *
0058AE 0050                        6775+         DC    AL2(MSG1LNTH) *


0058B0 09                          6777+SHARDCCW DC    X'09' WTO                        0191
0058B1 005DB9                      6778+         DC    AL3(SHARDMSG) SHARED DEVICE MSG          0191
0058B4 00000036                    6779+         DC    A(SHDMSGND-SHARDMSG) *                          0191


0058B8 09                          6781+HCSPECCW DC    X'09' WRITE TO OPERATOR               MCS0
0058B9 005EB0                      6782+         DC    AL3(HCSPECMG) ADDR OF MSG                     MCS0
0058BC 0000                        6783+         DC    XL2'00' MCS0
0058BE 0017                        6784+         DC    AL2(HCSPECND-HCSPECMG) LENGTH OF MSG                MCS0
0058C0 09                          6785+HCIVDCCW DC    X'09' WRITE TO OPERATOR               MCS0
0058C1 005EC7                      6786+         DC    AL3(HCIVDMSG) ADDR OF MSG                     MCS0
0058C4 0000                        6787+         DC    XL2'00' MCS0
0058C6 0025                        6788+         DC    AL2(HCIVDEND-HCIVDMSG) LENGHT OF MSG                MCS0
0058C8 09                          6789+HCNRDCCW DC    X'09' WRITE TO OPERATOR               MCS0
0058C9 005EEC                      6790+         DC    AL3(HCNRDMSG) ADDR OF MESSAGE                 MCS0
0058CC 0000                        6791+         DC    XL2'00' MCS0
0058CE 0023                        6792+         DC    AL2(HCNRDEND-HCNRDMSG) LENGTH OF MESSAGE            MCS0
0058D0 09                          6793+SMBSQCCW DC    X'09' WRITE TO OPERATOR                     MCS0
0058D1 005F0F                      6794+         DC    AL3(SMBSQMSG) ADDR OF MSG                          MCS0
0058D4 0000                        6795+         DC    XL2'00' MCS0
0058D6 0039                        6796+         DC    AL2(SMBSQEND-SMBSQMSG) LENGTH OF MSG                MCS0
0058D8 09                          6797+MSG2CCW  DC    X'09' WRITE TO OPERATOR
0058D9 005C37                      6798+         DC    AL3(MSG2ST) *
0058DC 0000                        6799+         DC    XL2'00' *
0058DE 0012                        6800+         DC    AL2(MSG2LNTH) *


0058E0 09                          6802+MSG3CCW  DC    X'09' WRITE TO OPERATOR               1935
0058E1 006156                      6803+         DC    AL3(MSG3ST) *                               1935
0058E4 0000                        6804+         DC    XL2'00' *                               1935
0058E6 001A                        6805+         DC    AL2(MSG3LNTH) *                               1935


0058E8 09                          6807+MVMTACCW DC    X'09' WRITE TO OPERATOR               000E
0058E9 005E43                      6808+         DC    AL3(IEAMVMTB) 000E
0058EC 0000                        6809+         DC    XL2'00' 000E
0058EE 001E                        6810+         DC    AL2(IEAMVMTC) 000E


0058F0 09                          6812+MSGMVCCW DC    X'09' WRITE TO OPERATOR               000E
0058F1 005DEF                      6813+         DC    AL3(MSGMVNOT) 000E
                                                                                                               PAGE  163


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0058F4 0000                        6814+         DC    XL2'00' 000E
0058F6 0028                        6815+         DC    AL2(MSGMVLNG) 000E


0058F8 09                          6817+DSSMVCCW DC    X'09' 000E
0058F9 005E17                      6818+         DC    AL3(IEADSS)
0058FC 0000                        6819+         DC    XL2'00' 000E
0058FE 002C                        6820+         DC    AL2(44) 000E


005900 8B                          6822+SKIPCCW  DC    X'8B' SKIP TO 1 FOR PRINTER           2480
005901 000000                      6823+         DC    AL3(0)
005904 20000001                    6824+         DC    X'20000001'


005908 09                          6826+IEANFORM DC    X'09' WRITE TO OPERATOR
005909 005C49                      6827+         DC    AL3(IEAUNMSG) *
00590C 0000003E                    6828+         DC    A(END105A-IEAUNMSG) 000C


005910 07                          6830+IEADSTSK DC    X'07' SEEK FOR BB CC HH
005911 006692                      6831+         DC    AL3(IEASKADR) *
005914 4000                        6832+         DC    X'4000' *
005916 0006                        6833+         DC    X'0006' *
005918 1A                          6834+         DC    X'1A'
005919 00643C                      6835+         DC    AL3(IEAST)
00591C 7000                        6836+         DC    X'7000'
00591E 0005                        6837+         DC    H'5'
005920 A9                          6838+IEADSTSR DC    X'A9' SEARCH KEY EQUAL-MULTI TRACK
005921 006C1C                      6839+         DC    AL3(IEADSTNM) *
005924 6000                        6840+         DC    X'6000' *
005926 002C                        6841+         DC    X'002C' *
005928 08                          6842+         DC    X'08' TIC
005929 005920                      6843+         DC    AL3(IEADSTSR) *
00592C 00000000                    6844+         DC    4X'00' *
005930 06                          6845+         DC    X'06' READ A RECORD
005931 006238                      6846+         DC    AL3(IEABUFER) *
005934 2000                        6847+         DC    X'2000' *
005936 0060                        6848+         DC    XL2'60' *


005938 07                          6850+IEALBLSK DC    X'07' SEEK FOR BB CC HH
005939 006692                      6851+         DC    AL3(IEASKADR) *
00593C 4000                        6852+         DC    X'4000' *
00593E 0006                        6853+         DC    X'0006' *
005940 31                          6854+IEALBLSR DC    X'31' SEARCH EQUAL ID
005941 00669F                      6855+         DC    AL3(IEASRADR) *
005944 4000                        6856+         DC    X'4000' *
005946 0005                        6857+         DC    X'0005' *
005948 08                          6858+         DC    X'08' TIC
005949 005940                      6859+         DC    AL3(IEALBLSR) *
00594C 00000000                    6860+         DC    X'00000000' *
005950 06                          6861+         DC    X'06' READ A RECORD
005951 006238                      6862+         DC    AL3(IEABUFER) *
005954 2000                        6863+         DC    X'2000' *
                                                                                                               PAGE  164


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005956 0050                        6864+         DC    XL2'50' *


005958 07                          6866+IEAROSK  DC    X'07' SEEK FOR BB CC HH
005959 006692                      6867+         DC    AL3(IEASKADR) *
00595C 4000                        6868+         DC    X'4000' *
00595E 0006                        6869+         DC    X'0006' *
005960 16                          6870+         DC    X'16' READ RECORD ZERO
005961 006694                      6871+         DC    AL3(IEASKADR+2) *
005964 2000                        6872+         DC    XL2'2000' *
005966 0004                        6873+         DC    XL2'0004' *


005968 1A                          6875+IEAADCDS DC    X'1A' READ HA
005969 00643C                      6876+         DC    AL3(IEAST) *
00596C 6000                        6877+         DC    X'6000' *
00596E 0005                        6878+         DC    H'5' *
005970 16                          6879+         DC    X'16' READ R0
005971 006444                      6880+         DC    AL3(IEASTR0) *
005974 2000                        6881+         DC    X'2000' *
005976 0008                        6882+         DC    H'8' *
005978 07                          6883+IEASEEKS DC    X'07' SEEK
005979 006692                      6884+         DC    AL3(IEASKADR) *
00597C 4000                        6885+         DC    X'4000' *
00597E 0006                        6886+         DC    H'6' *
005980 1A                          6887+         DC    X'1A' READ HA
005981 00643C                      6888+         DC    AL3(IEAST) *
005984 7000                        6889+         DC    X'7000'
005986 0008                        6890+         DC    H'8' *
005988 08                          6891+IEATICER DC    X'08' TIC
005989 000000                      6892+         DC    AL3(0) *
00598C 00000000                    6893+         DC    F'0'
005990 04                          6894+IEASNCCW DC    X'04' SENSE
005991 0064EC                      6895+         DC    AL3(IEAERRS) *
005994 2000                        6896+         DC    X'2000' *
005996 0018                        6897+         DC    H'24' SENSE LGN W/ECF DATA           20201


005998 09                          6899+IEACONWT DC    X'09' WRITE TO OPERATOR
005999 005B40                      6900+         DC    AL3(IEASTR) *
00599C 0000                        6901+         DC    2X'00' *
00599E 001C                        6902+         DC    AL2(IEALNGH) *


0059A0 09                          6904+OPMSGCCW DC    X'09' WRITE TO OPERATOR
0059A1 005B5C                      6905+         DC    AL3(OPMSGMSG) *
0059A4 0000003B                    6906+         DC    A(OPMSGEND-OPMSGMSG) *


0059A8 01                          6908+WR327CCW DC    X'01' WRITE COMMAND CODE         MH  M1517
0059A9 000000                      6909+         DC    AL3(0) WHERE FROM (DYNAMIC)       MH  M1517
0059AC 6000                        6910+         DC    X'6000' CHAIN COM (1ST PASS ONLY)  MH  M1517
0059AE 028A                        6911+         DC    X'028A' FULL SCREEN                MH  M1517
0059B0 06                          6912+CCW3277  DC    X'06' READ MODIFIED              MH  M1517
0059B1 007458                      6913+         DC    AL3(IEARMI) INPUT DATA                 MH  M1517
                                                                                                               PAGE  165


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0059B4 6000                        6914+         DC    X'6000' CHAIN COMMAND              MH  M1517
0059B6 0001                        6915+         DC    X'0001' ONLY NEED ONE BYTE         MH  M1517
0059B8 01                          6916+         DC    X'01' WRITE (SET BUF TO ENT AREA)MH  M1517
0059B9 000000                      6917+         DC    AL3(0) WHERE FROM (DYNAMIC)       MH  M1517
0059BC 6000                        6918+         DC    X'6000' CHAIN COMMAND              MH  M1517
0059BE 0004                        6919+         DC    X'0004' COUNT                      MH  M1517
0059C0 02                          6920+         DC    X'02' READ BUFFER                MH  M1517
0059C1 000000                      6921+         DC    AL3(0) DUMMY AREA                 MH  M1517
0059C4 9000                        6922+         DC    X'9000' SKIP AND CHAIN DATA        MH  M1517
0059C6 0005                        6923+         DC    X'0005' SKIPPING SBA-A1-A2-SF-ATT  MH  M1517
0059C8 02                          6924+         DC    X'02' CONTINUED READ BUFFER      MH  M1517
0059C9 00693C                      6925+         DC    AL3(ANSRAREA) INTO REPLY AREA            MH  M1517
0059CC 6000                        6926+         DC    X'6000' CHAIN COMMAND              MH  M1517
0059CE 0050                        6927+         DC    X'0050' LENGTH OF ENTRY AREA       MH  M1517
0059D0 01                          6928+         DC    X'01' WRITE TO CLEAR ENTRY AREA  MH  M1517
0059D1 000000                      6929+         DC    AL3(0) WHERE FROM (DYNAMIC)       MH  M1517
0059D4 0000                        6930+         DC    X'0000' NO CHAINING                MH  M1517
0059D6 000B                        6931+         DC    X'000B' COUNT                      MH  M1517
0059D8 09                          6932+OPCNTCCW DC    X'09' WRITE TO OPERATOR
0059D9 005B97                      6933+         DC    AL3(OPCNTMSG) *
0059DC 00000023                    6934+         DC    A(OPCNTEND-OPCNTMSG) *


0059E0 0A                          6936+ANSWRCCW DC    X'0A' READ OPERATOR REPLY
0059E1 00693C                      6937+         DC    AL3(ANSRAREA) *
0059E4 2000                        6938+         DC    X'2000' *
0059E6 0050                        6939+         DC    X'0050'
000002                             6940+CRDRCCW  EQU   X'02' READ COMMAND FOR NON-INQUIRY DEVICE  MCS0


0059E8 09                          6942+IEARRCCW DC    X'09' WRITE TO OPERATOR
0059E9 005BBA                      6943+         DC    AL3(ERRORMSG) *
0059EC 0000002D                    6944+         DC    A(ERRNDMSG-ERRORMSG) *


0059F0 09                          6946+IEAHDCCW DC    X'09' WRITE TO OPERATOR
0059F1 005DA0                      6947+         DC    AL3(HDRMSG) *
0059F4 00000019                    6948+         DC    A(ENDHDR-HDRMSG) *


0059F8 09                          6950+NOPRMCCW DC    X'09' WRITE TO OPERATOR
0059F9 005CB2                      6951+         DC    AL3(IEANEVER) *
0059FC 00000017                    6952+         DC    A(IEANVRND-IEANEVER) *


005A00 09                          6954+IOEROCCW DC    X'09' WRITE TO OPERATOR
005A01 005CC9                      6955+         DC    AL3(IOEROMSG) *
005A04 00000034                    6956+         DC    A(IOEROEND-IOEROMSG) *


005A08 09                          6958+IEAFLCCW DC    X'09' WRITE TO OPERATOR
005A09 005CFD                      6959+         DC    AL3(IEAFLMSG) *
005A0C 0000002A                    6960+         DC    A(IEAFLEND-IEAFLMSG) *
                                                                                                               PAGE  166


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005A10 09                          6962+IEANLCCW DC    X'09' WRITE TO OPERATOR
005A11 005D27                      6963+         DC    AL3(IEANLMSG) *
005A14 00000021                    6964+         DC    A(IEANLEND-IEANLMSG) *


005A18 09                          6966+IEADBCCW DC    X'09' 000C
005A19 005E61                      6967+         DC    AL3(DSCBMSG) 000C
005A1C 0000004F                    6968+         DC    A(DSCBEND-DSCBMSG) 000C
005A20 09                          6969+IEARXCCW DC    X'09' 000C
005A21 006124                      6970+         DC    AL3(RXMSGBEG) 000C
005A24 00000032                    6971+         DC    A(RXMSGEND-RXMSGBEG) 000C


005A28 09                          6973+IEARSCCW DC    X'09' 000C
005A29 005F82                      6974+         DC    AL3(RSMSGBEG) 000C
005A2C 00000031                    6975+         DC    A(RSMSGEND-RSMSGBEG) 000C
005A30 09                          6976+IEARACCW DC    X'09' 000C
005A31 005FB3                      6977+         DC    AL3(RAMSGBEG) 000C
005A34 00000032                    6978+         DC    A(RAMSGEND-RAMSGBEG) 000C
005A38 09                          6979+IEARFCCW DC    X'09' 000C
005A39 005FE5                      6980+         DC    AL3(RFMSGBEG) 000C
005A3C 00000039                    6981+         DC    A(RFMSGEND-RFMSGBEG) 000C
005A40 09                          6982+IEARRSCW DC    X'09' 000C
005A41 00601E                      6983+         DC    AL3(RSOKBEG) 000C
005A44 0000002B                    6984+         DC    A(RSOKEND-RSOKBEG) 000C
005A48 09                          6985+IEARRACW DC    X'09' 000C
005A49 006049                      6986+         DC    AL3(RAOKBEG) 000C
005A4C 00000029                    6987+         DC    A(RAOKEND-RAOKBEG) 000C


005A50 07                          6989+IERLCCW1 DC    X'07' 000C
005A51 006692                      6990+         DC    AL3(IEASKADR) 000C
005A54 4000                        6991+         DC    X'4000' 000C
005A56 0006                        6992+         DC    X'0006' 000C
005A58 31                          6993+IEARLSRC DC    X'31' 000C
005A59 00669F                      6994+         DC    AL3(IEASRADR) 000C
005A5C 4000                        6995+         DC    X'4000' 000C
005A5E 0005                        6996+         DC    X'0005' 000C
005A60 08                          6997+         DC    X'08' 000C
005A61 005A58                      6998+         DC    AL3(IEARLSRC) 000C
005A64 00000000                    6999+         DC    X'00000000' 000C
005A68 05                          7000+         DC    X'05' 000C
005A69 000000                      7001+IEARLPL  DC    AL3(0) ADR OF CAMLIST WORK AREA FILLED BY ROLOUT  MCS0
005A6C 2000                        7002+         DC    X'2000' 000C
005A6E 0060                        7003+         DC    H'96' 000C
005A70 31                          7004+IEARCONS DC    X'31' SKELETON OF ROLLOUT SEARCH 000C
005A71 0065D4                      7005+         DC    AL3(IEAROLS4) COMMAND               000C
005A74 40000005                    7006+         DC    X'40000005' 000C
005A78 1D                          7007+IEARCONW DC    X'1D' SKELETON OF ROLLOUT WRITE  000C
005A79 000000                      7008+         DC    AL3(0) COMMAND               000C
005A7C 6000                        7009+         DC    X'6000' 000C
005A7E 0408                        7010+         DC    H'1032' 000C


005A80 07                          7012+IEAGTCCW DC    X'07' SEEK FOR BB CC HH
                                                                                                               PAGE  167


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005A81 006692                      7013+         DC    AL3(IEASKADR)
005A84 4000                        7014+         DC    X'4000' *
005A86 0006                        7015+         DC    H'6' *
005A88 31                          7016+IEASRIDR DC    X'31' SEARCH ID EQUAL
005A89 00669F                      7017+         DC    AL3(IEASRADR)
005A8C 4000                        7018+         DC    X'4000' *
005A8E 0005                        7019+         DC    H'5' *
005A90 08                          7020+         DC    X'08' TIC
005A91 005A88                      7021+         DC    AL3(IEASRIDR) *
005A94 00000000                    7022+         DC    X'00000000' *
005A98 06                          7023+         DC    X'06' READ A RECORD
005A99 006238                      7024+         DC    AL3(IEABUFER) *
005A9C 6000                        7025+         DC    X'6000' *
005A9E 0050                        7026+         DC    H'80' *
005AA0 92                          7027+         DC    X'92' READ COUNT-MULTI TRACK
005AA1 006B20                      7028+         DC    AL3(IEASKRL)
005AA4 2000                        7029+         DC    X'2000' *
005AA6 0008                        7030+         DC    H'8' *


005AA8 09                          7032+IEAEXCCW DC    X'09' WRITE TO OPERATOR
005AA9 005D48                      7033+         DC    AL3(IEAEXMSG) *
005AAC 00000028                    7034+         DC    A(IEAEXEND-IEAEXMSG) *


005AB0 09                          7036+INVLDCCW DC    X'09' WRITE TO OPERATOR
005AB1 005D70                      7037+         DC    AL3(INVLDMSG) *
005AB4 00000030                    7038+         DC    A(INVLDEND-INVLDMSG) *


005AB8 09                          7040+IEARPCCW DC    X'09' WRITE TO OPERATOR
005AB9 006A90                      7041+         DC    AL3(IEAMBNM) *
005ABC 00000008                    7042+         DC    X'00000008' *


005AC0 09                          7044+NOSUPCCW DC    X'09'
005AC1 005F48                      7045+         DC    AL3(NOSUPMSG)
005AC4 0000001E                    7046+         DC    A(NOSUPEND-NOSUPMSG)


005AC8 09                          7048+NODEFCCW DC    X'09'
005AC9 005F66                      7049+         DC    AL3(NODEFMSG)
005ACC 0000001C                    7050+         DC    A(NODEFEND-NODEFMSG)
005AD0 12                          7051+ECFRDCCW DC    X'12' DUMY READ COUNT CCW FOR RESTRT 20201
005AD1 006238                      7052+         DC    AL3(IEABUFER) CHAIN USED IF USER CCW IS      20201
005AD4 7000                        7053+         DC    X'7000' 'NOT' A COUNT OPERATION        20201
005AD6 0001                        7054+         DC    H'1' NO DATA TRANSFER               20201
005AD8 08                          7055+ECFTICCW DC    X'08' TIC TO USER CCW                     20201
005AD9 000000                      7056+         DC    AL3(0) 20201
005ADC 00000000                    7057+         DC    F'0' 20201


005AE0 07                          7059+BHCCWLST DC    X'07' SEEK FOR BB CC HH
005AE1 006692                      7060+         DC    AL3(IEASKADR) *
005AE4 4000                        7061+         DC    X'4000' *
                                                                                                               PAGE  168


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005AE6 0006                        7062+         DC    X'0006' *
005AE8 1A                          7063+         DC    X'1A'
005AE9 00643C                      7064+         DC    AL3(IEAST)
005AEC 7000                        7065+         DC    X'7000'
005AEE 0005                        7066+         DC    H'5'
005AF0 E9                          7067+PODSERCH DC    X'E9' SEARCH-MULTI TRACK KEY EQUAL
005AF1 006B14                      7068+         DC    AL3(ERDNAMES) *
005AF4 4000                        7069+         DC    X'4000' *
005AF6 0008                        7070+         DC    X'0008' *
005AF8 08                          7071+         DC    X'08' TIC
005AF9 005AF0                      7072+         DC    AL3(PODSERCH) *
005AFC 00000000                    7073+         DC    X'00000000' *
005B00 06                          7074+         DC    X'06' READ A RECORD
005B01 006238                      7075+         DC    AL3(IEABUFER) *
005B04 2000                        7076+         DC    X'2000' *
005B06 0100                        7077+         DC    X'0100' *


005B08 09                          7079+BHLIST2  DC    X'09' WRITE TO OPERATOR
005B09 005C87                      7080+         DC    AL3(SERMSG) *
005B0C 0000002B                    7081+         DC    A(ENDSRMSG-SERMSG) *


005B10 09                          7083+IEASRCCW DC    X'09' WTO                        000C
005B11 006072                      7084+         DC    AL3(IEASRMSG) PTR TO MSG                 000C
005B14 00000045                    7085+         DC    A(IEASREND-IEASRMSG) MSG LENGTH                 000C
005B18 09                          7086+IEASRDIO DC    X'09' WTO                        000C
005B19 0060F0                      7087+         DC    AL3(IEASREIO) PTR TO MESSAGE TEXT        000C
005B1C 00000034                    7088+         DC    A(IEASRFIO-IEASREIO) MSG LENGTH                 000C
005B20 09                          7089+IEADGM   DC    X'09' WTO                        000D
005B21 006170                      7090+         DC    AL3(IEAEGM) PTR TO MSG FOR GETMAIN FAIL000D
005B24 0000002D                    7091+         DC    A(IEAFGM-IEAEGM) MSG LENGTH                 000D
005B28 09                          7092+IEAMDCCW DC    X'09' WTO                        000E
005B29 00619D                      7093+         DC    AL3(MODNOMSG) PTR TO MODEL NUMBER MSG    000E
005B2C 0000001C                    7094+         DC    A(MODNOFIN-MODNOMSG) MSG LENGTH                 000E
005B30 09                          7095+SMODNCCW DC    X'09' WTO                        000E
005B31 0061B9                      7096+         DC    AL3(SMODNMSG) PTR TO MOD NOT SUPPORTED MSG000E
005B34 00000023                    7097+         DC    A(SMODNEND-SMODNMSG) MSG LENGTH                  000E
005B38 09                          7098+IEASPCCW DC    X'09' WTO                        000E
005B39 0061DC                      7099+         DC    AL3(SEREPMSG) PTR TO SEREP MSG           000E
005B3C 00000023                    7100+         DC    A(SEREPND-SEREPMSG) MSG LENGTH                 000E
005B40                             7101+ENDCCWLD EQU   *
                                                                                                               PAGE  169


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7103+***
                                   7104+**  FOLLOWING ARE ALL OF THE MESSAGES ISSUED BY NIP
                                   7105+***


005B40 C9C5C1F1F0F0C940            7107+IEASTR   DC    C'IEA100I TIMER IS NOT WORKING' 000E
005B5C                             7108+IEAENDX  DS    0C
00001C                             7109+IEALNGH  EQU   IEAENDX-IEASTR


005B5C C9C5C1F1F0F1C140            7111+OPMSGMSG DC    C'IEA101A  SPECIFY '
005B6D E2E8E2E3C5D440D7            7112+         DC    C'SYSTEM PARAMETERS'
005B7E 40C6D6D940D9C5D3            7113+         DC    C' FOR RELEASE ' A31235
005B8B 4040                        7114+OPMRELNO DC    C'  ' A31235
005B8D 4B                          7115+         DC    C'.' A31235
005B8E 404040                      7116+OPMLEVEL DC    C'   ' A31235
005B91 404040404040                7117+OPMSYSTM DC    C'      ' A31235
005B97                             7118+OPMSGEND EQU   *


005B97 C9C5C1F1F1F6C140            7120+OPCNTMSG DC    C'IEA116A  CONTINUE '
005BA9 E2E8E2E3C5D440D7            7121+         DC    C'SYSTEM PARAMETERS'
005BBA                             7122+OPCNTEND EQU   *


005BBA C9C5C1F1F0F2C140            7124+ERRORMSG DC    C'IEA102A  INVALID PARAMETER/'
005BD5 C6D6D9D4C1E34060            7125+         DC    C'FORMAT - RESPECIFY'
005BE7                             7126+ERRNDMSG EQU   *


005BE7 C9C5C1F1F0F3C940            7128+MSG1ST   DC    C'IEA103I DATASET ' MCS0
005BF7 4040404040404040            7129+MSG1STNM DC    CL45' ' MCS0
005C24 D5D6E340C6D6E4D5            7130+         DC    C'NOT FOUND BY LOCATE'
005C37                             7131+MSG1END  DS    0C
000050                             7132+MSG1LNTH EQU   MSG1END-MSG1ST


005C37 C9C5C1F1F0F4C140            7134+MSG2ST   DC    CL12'IEA104A M , '
005C43 404040404040                7135+         DC    CL6' '
005C49                             7136+MSG2END  DS    0C
000012                             7137+MSG2LNTH EQU   MSG2END-MSG2ST


005C49 C9C5C1F1F0F5C140            7139+IEAUNMSG DC    C'IEA105A  SYS1.' 000C
005C57 4040404040404040            7140+IEADSNAM DC    8C' ' 000C
005C5F D9C5E2C9C4C5E240            7141+         DC    C'RESIDES ON A UNIT (' 000C
005C72 404040                      7142+IEAUNTNO DC    3C' ' 000C
005C75 5D40E6C8C9C3C840            7143+         DC    C') WHICH HAS NO UCB' 000C
005C87                             7144+END105A  EQU   * 000C


005C87 C9C5C1F1F0F6C940            7146+SERMSG   DC    C'IEA106I  ' 000A
005C90 4040404040404040            7147+SMBNAM   DC    C'         NOT FOUND IN '
005CA6 4040404040404040            7148+SLIBNM   DC    C'            '
005CB2                             7149+ENDSRMSG EQU   *
                                                                                                               PAGE  170


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005CB2 C9C5C1F1F0F7C940            7151+IEANEVER DC    C'IEA107I '
005CBA 40404040404040              7152+PARAMTER DC    CL7' ' MCS0
005CC1 40C9C7D5D6D9C5C4            7153+         DC    C' IGNORED'
005CC9                             7154+IEANVRND EQU   *


005CC9 C9C5C1F1F0F8C940            7156+IOEROMSG DC    C'IEA108I  PERMANENT I/O ERROR'
005CE5 40C4E4D9C9D5C740            7157+         DC    C' DURING BLDL'
005CF1 6040404040404040            7158+IOEROLIB DC    C'-           ' 21016
005CFD                             7159+IOEROEND EQU   *


005CFD C9C5C1F1F0F9C940            7161+IEAFLMSG DC    C'IEA109I  BLDL FAILED FOR'
005D15 40C6D6D3D3D6E6C9            7162+         DC    C' FOLLOWING MODULES'
005D27                             7163+IEAFLEND EQU   *


005D27 C9C5C1F1F1F0C940            7165+IEANLMSG DC    C'IEA110I  LOAD FAILED FOR '
005D40 4040404040404040            7166+NLMEMBER DC    C'        '
005D48                             7167+IEANLEND EQU   *


005D48 C9C5C1F1F1F1E640            7169+IEAEXMSG DC    C'IEA111W  SPACE EXCEEDED - ' *                   A36196
005D62 D9C5E2D7C5C3C9C6            7170+         DC    C'RESPECIFY '
005D6C 40404040                    7171+IEAEXNAM DC    C'    '
005D70                             7172+IEAEXEND EQU   *


005D70 C9C5C1F1F1F2C940            7174+INVLDMSG DC    C'IEA112I  LIST '
005D7E 4040404040404040            7175+ERDNAMER DC    C'         FOR '
005D8B 40404040406040C9            7176+FUNCNAME DC    C'     - INVALID FORMAT'
005DA0                             7177+INVLDEND EQU   *


005DA0 C9C5C1F1F1F3C940            7179+HDRMSG   DC    C'IEA113I  '
005DA9 4040404040D4D6C4            7180+HDRNAME  DC    C'     MODULE LIST'
005DB9                             7181+ENDHDR   EQU   *


005DB9 C9C5C1F1F2F0C140            7183+SHARDMSG DC    C'IEA120A  DEVICE ' 0191
005DC9 404040                      7184+SHARDADR DC    C'   ' 0191
005DCC 40E2C8C1D9C5C44B            7185+         DC    C' SHARED. REPLY ''CONTINUE'' OR ''WAIT''' 0191
005DEF                             7186+SHDMSGND EQU   * 0191


005DEF C9C5C1F1F3F0C940            7188+MSGMVNOT DC    C'IEA130I LINK LIBRARY DATA SETS NOT FOUND' 000E
005E17                             7189+MSGMVEND DS    0C 000E
000028                             7190+MSGMVLNG EQU   MSGMVEND-MSGMVNOT 000E
005E17 4040404040404040            7191+IEADSS   DC    CL44' ' 000E
005E43 C9C5C1F1F3F1C140            7192+IEAMVMTB DC    C'IEA131A MOUNT LINKLIB VOL(S): ' 000E
005E61                             7193+IEAMVMTZ DS    0C 000E
00001E                             7194+IEAMVMTC EQU   IEAMVMTZ-IEAMVMTB 000E
005E61 C9C5C1F2F1F1C940            7195+DSCBMSG  DC    C'IEA211I OBTAIN FAILED FOR ' 000E
005E7B 4040404040404040            7196+DSBMSGNM DC    CL44' ' 000E
005EA7 40C4C1E3C140E2C5            7197+         DC    C' DATA SET' 000E
                                                                                                               PAGE  171


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005EB0                             7198+DSCBEND  EQU   * 000E


005EB0 C9C5C1F1F5F0C140            7200+HCSPECMG DC    C'IEA150A SPECIFY HARDCPY' MCS0
005EC7                             7201+HCSPECND EQU   *


005EC7 C9C5C1F1F5F2C940            7203+HCIVDMSG DC    C'IEA152I HARDCPY SPECIFICATION INVALID' MCS0
005EEC                             7204+HCIVDEND EQU   * MCS0


005EEC C9C5C1F1F5F3C940            7206+HCNRDMSG DC    C'IEA153I HARDCPY CONSOLE UNAVAILABLE' MCS0
005F0F                             7207+HCNRDEND EQU   * MCS0


005F0F C9C5C1F1F5F4C940            7209+SMBSQMSG DC    C'IEA154I HARD COPY OF INITIALIZATION MESSAGES ' MCS0
005F3C C4C9E2C3D6D5E3C9            7210+         DC    C'DISCONTINUED' MCS0
005F48                             7211+SMBSQEND EQU   * MCS0


005F48 C9C5C1F1F1F4C940            7213+NOSUPMSG DC    C'IEA114I  SVC '
005F55 404040                      7214+SVCNM    DC    C'   '
005F58 40D5D6E340E2E4D7            7215+         DC    C' NOT SUPPORTED'
005F66                             7216+NOSUPEND EQU   *


005F66 C9C5C1F1F1F5C940            7218+NODEFMSG DC    C'IEA115I  SVC '
005F73 404040                      7219+SVCNM2   DC    C'   '
005F76 40D5D6E340C4C5C6            7220+         DC    C' NOT DEFINED'
005F82                             7221+NODEFEND EQU   *


005F82 C9C5C1F2F0F5C940            7223+RSMSGBEG DC    C'IEA205I  UNABLE TO SCRATCH SYS1.DUMP    ON ' DAR
005FAD 404040404040                7224+RSMSGVOL DC    6C' ' 000C
005FB3                             7225+RSMSGEND EQU   * 000C


005FB3 C9C5C1F2F0F6C940            7227+RAMSGBEG DC    C'IEA206I  UNABLE TO ALLOCATE SYS1.DUMP    ON ' DAR
005FDF 404040404040                7228+RAMSGVOL DC    6C' ' 000C
005FE5                             7229+RAMSGEND EQU   * 000C


005FE5 C9C5C1F2F0F7C940            7231+RFMSGBEG DC    C'IEA207I  FORMATTING OF SYS1.DUMP    ' DAR
006009 C4C1E3C140E2C5E3            7232+         DC    C'DATA SET UNSUCCESSFUL' 000C
00601E                             7233+RFMSGEND EQU   * 000C


00601E C9C5C1F2F0F9C940            7235+RSOKBEG  DC    C'IEA209I  SYS1.DUMP    SCRATCHED FROM ' DAR
006043 404040404040                7236+RSOKVOL  DC    6C' ' 000C
006049                             7237+RSOKEND  EQU   * 000C


006049 C9C5C1F2F1F0C940            7239+RAOKBEG  DC    C'IEA210I  SYS1.DUMP    ALLOCATED ON ' DAR
00606C 404040404040                7240+RAOKVOL  DC    6C' ' 000C
006072                             7241+RAOKEND  EQU   * 000C
                                                                                                               PAGE  172


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

006072 C9C5C1F2F1F3C940            7243+IEASRMSG DC    C'IEA213I  INITIALIZATION OF SYS1.ASRLIB ' 000C
006099 C9D5C3D6D4D7D3C5            7244+         DC    C'INCOMPLETE' 000C
0060A3 6040404040404040            7245+IEAARRES DC    C'-                   ' 21016
0060B7                             7246+IEASREND EQU   * 000C
0060B7 E3D9C1C3D240E2C9            7247+IEASRRE1 DC    C'TRACK SIZE EXCEEDED' 21016
0060CA C4C1E3C140E2C5E3            7248+IEASRRE2 DC    C'DATA SET TOO SMALL ' 21016
0060DD E4D5D9C5E2D6D3E5            7249+IEASRRE3 DC    C'UNRESOLVED ADDRESS ' 21016


0060F0 C9C5C1F2F1F4C940            7251+IEASREIO DC    C'IEA214I  I/O ERROR DURING SYS1.ASRLIB ' 000C
006116 C9D5C9E3C9C1D3C9            7252+         DC    C'INITIALIZATION' 000C
006124                             7253+IEASRFIO EQU   * 000C


006124 C9C5C1F2F0F8C940            7255+RXMSGBEG DC    C'IEA208I  ' 000E
00612D 4040404040404040            7256+RXMSGFNC DC    CL20' ' 19017
006141 40C6E4D5C3E3C9D6            7257+         DC    C' FUNCTION INOPERATIVE' 000E
006156                             7258+RXMSGEND EQU   * 000E
00612D                             7259+         ORG   RXMSGFNC
00612D D9C1D4                      7260+         DC    C'RAM' 19017
006130 6B                          7261+         DC    C',' 19017
006131 E2E5C3                      7262+         DC    C'SVC' 19017
006156                             7263+         ORG


006156 C9C5C1F2F1F2C140            7265+MSG3ST   DC    CL12'IEA212A D , ' MCS0
006162 404040404040D6D9            7266+         DC    CL14'      OR     ' 1935
006170                             7267+MSG3END  DS    0C 1935
00001A                             7268+MSG3LNTH EQU   MSG3END-MSG3ST 1935
006162                             7269+MSG3ST12 EQU   MSG3ST+Q12 I267
006165                             7270+MSG3ST15 EQU   MSG3ST+Q15 I267
006166                             7271+MSG3ST16 EQU   MSG3ST+Q16 I267
00616B                             7272+MSG3ST21 EQU   MSG3ST+Q21 I267
00616E                             7273+MSG3ST24 EQU   MSG3ST+Q24 I267
00616F                             7274+MSG3ST25 EQU   MSG3ST+Q25 I267


006170 C9C5C1F2F1F6C940            7276+IEAEGM   DC    C'IEA216I  GETMAIN FAILED DURING INITIALIZATION' 000D
00619D                             7277+IEAFGM   EQU   * 000D


00619D C9C5C1F2F1F8C940            7279+MODNOMSG DC    C'IEA218I MOD=' 19022
0061A9 404040                      7280+MODELNO  DC    C'   ' 19022
0061AC 40C1E2E2E4D4C5C4            7281+         DC    C' ASSUMED' 19022
0061B4 40E2F3F7F0                  7282+         DC    C' S370' .                                     CK  21108
0061B9                             7283+MODNOFIN EQU   * 000E


0061B9 C9C5C1F2F1F9C940            7285+SMODNMSG DC    C'IEA219I  MODEL NOT SUPPORTED BY SER' 21016
0061DC                             7286+SMODNEND EQU   * 000E


0061DC C9C5C1F2F1F7C940            7288+SEREPMSG DC    C'IEA217I SEREP INTERFACE ESTABLISHED' 000E
0061FF                             7289+SEREPND  EQU   * 000E
                                                                                                               PAGE  173


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7291+***
                                   7292+**  FOLLOWING ARE ALL OF THE CONSTANTS USED BY NIP
                                   7293+***
0061FF 000000000000                7294+IEA5BYTE DC    XL6'00' SAVE AREA FOR F3 CCHHR        000E


006208                             7296+         DS    0D
006208 00000000                    7297+IOPSW    DC    XL4'00'
00620C 00004E24                    7298+         DC    A(RESTORE)
006210 00000000                    7299+IONEWPSW DC    XL4'00' 000E
006214 00004DB6                    7300+         DC    A(IEAINTRP) 000E
006218 FE020000                    7301+WAIT     DC    X'FE020000' 0191
00621C 00000000                    7302+         DC    A(0) WAIT STATE PSW             000D
006220 000200FF                    7303+IEAWAIT  DC    X'000200FF'
006224 000000                      7304+         DC    XL3'00'
006227 00                          7305+ERRBUF   DC    X'00'
006228 44000000                    7306+IEALIST  DC    X'44000000'
00622C 00006C1C                    7307+         DC    A(IEADSTNM) 1 POINTER TO DSNAME FOR LOCATE,SVC 26   000C
006230 00000000                    7308+         DC    X'00000000' 2                                       000C
006234 00006238                    7309+         DC    A(IEABUFER) 3 POINTER TO BUFFER                     000C
006238                             7310+IEABUFER DS    34D 000E
                                   7311+* IEABUFER DISPLACEMENTS - IEABUFER FUNCTION/DATA AT THIS DISPLACEMENT
006245                             7312+BLDLCNVT EQU   IEABUFER+13 BLDL/TTR TO MBBCCHHR CONVERT ISER
006247                             7313+CONCATNO EQU   IEABUFER+15 *                                      30502
006248                             7314+BLDLTCHR EQU   IEABUFER+16 BLDL/CCHHR AFTER TTR CONVERT ISER
006248                             7315+BLDLTTWD EQU   IEABUFER+16 BLDL/FULLWORD INDEX-TT3B LOAD ISER
006249                             7316+BLDLTT3B EQU   IEABUFER+17 BLDL/3 BYTE ALIGN FOR TTRR  ISER
00624A                             7317+BLDLTTRR EQU   IEABUFER+18 BLDL/TTR OF 1ST TEXT RCD   ISER
006252                             7318+BLDLATR1 EQU   IEABUFER+26 BLDL/MODULE ATTRIBUTES-BYTE 1   2608
000080                             7319+BLDLRENT EQU   X'80' - REENTERABLE    2608
000040                             7320+BLDLREUS EQU   X'40' - REUSABLE       2608
006255                             7321+BLDLTOTL EQU   IEABUFER+29 BLDL/TOTAL CONTIGUOUS CORE REQ  2608
006348                             7322+         DS    1F 000C
00634C                             7323+TMSLSAVE DS    1F SAVE R3 FOR TMSL COMM      000D
006350 00000000                    7324+IEARSAV1 DC    F'0' 000C
006354 00000000                    7325+IEARSAV2 DC    F'0' 000C
006358 00000000                    7326+IEARSAV3 DC    F'0' READ CCW POINTER SAVE AREA       000C
00635C 00000000                    7327+IEARTRKS DC    F'0' 000C
006360                             7328+SAVEREF  DS    16F MAIN SAVE AREA             000E
00638C                             7329+SREFRG11 EQU   SAVEREF+44 - REG 11                  MCS0
0063A0                             7330+SAVEREF1 DS    6F 000A
0063B8                             7331+FNSAVE   DS    7F REG SAV AREA FOR SUBUCBFN RTN  P4533
0063D4                             7332+FNADDR   DS    1F SAVE FOR EBCDIC UNIT ADDR       I267
0063D8 FFFFFFF8                    7333+FNROUND  DC    X'FFFFFFF8' MASK TO RD ADDR TO DOUB WORD    I267
0063DC 00                          7334+FNBYTE   DC    X'00' I267
0063DD 00                          7335+ASMCHCT  DC    X'00' KEEPS COUNT OF UNAVL CHANS     19022
0063DE 00                          7336+ASNCHANS DC    X'00' COPY  OF WGT BUT FOR CHANNELS  19022
0063DF 00                          7337+         DC    X'00' 19022
0063E0                             7338+SCTRSAVE DS    2F .                SAVE AREA FOR SUBCNTIO RTN CI  M4910
0063E8                             7339+SAVEREF3 DS    6F 000A
006400                             7340+SAVEREF4 DS    6F 000A
006418 0000000000000000            7341+IEASTREG DC    6F'0' 000B
006430 0000000000000000            7342+IEASAVE  DC    3F'0'
00643C                             7343+IEAST    DS    2F
006444 0000000000000000            7344+IEASTR0  DC    2F'0'
                                                                                                               PAGE  174


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00644C 0000000000000000            7345+         DC    4F'0' I250
00645C                             7346+IEADMY   DS    5F
006470 FFFFFFF8                    7347+ASYMROND DC    X'FFFFFFF8' MADK TO RD REG TO DOUB WORD    19022
006474 00                          7348+ASYMSWIT DC    X'00' INDICATOR SWIT FOR MP FUNCTS   19022
000002                             7349+ASMTAPNR EQU   2 WHEN=1,MARK AN OFFLINE UCB     19022
                                   7350+*                                    NOT READY ALSO               19022
0000FD                             7351+ASMTPRDY EQU   255-ASMTAPNR SETS ASMTAPNR BIT TO 0         19022
000004                             7352+ASYMALTS EQU   4 MASK TO INDIC ALT ADDRS        19022
0000FB                             7353+ASYALTOF EQU   255-ASYMALTS 19022
000008                             7354+ASYM2CHN EQU   8 BIT=1  TWO CHANS TO DEVICE     19022
0000F7                             7355+ASYM2OFF EQU   255-ASYM2CHN RESET ASYM2CHN BIT TO ZERO    19022
006475 08                          7356+ASMCOUNT DC    X'08' MASK TO SET WGT COPY           19022
006476 00                          7357+ASMPATHS DC    X'00' WGT STATUS BYTE,,PA,SA,PB,SB   19022
006477 00                          7358+ASMUNCHK DC    X'00' MASK TO SET WGT AVAIL FOR U-CK P4831
006478 C9C5C6E2C4F0F3F0            7359+IEFSD30  DC    C'IEFSD030'
006480 C9C5C6E2C4F0F6F1            7360+IEATERMV DC    C'IEFSD061'
006488 00000000                    7361+IEANUCND DC    F'0' PTR TO END OF NUCLEUS W/O SQS000E
00648C 00000000                    7362+RELOCADR DC    F'0' SAVE FOR NIP'S RELOC ADDR   MP65
006490 00000000                    7363+IEALIGN  DC    F'0' - ALIGNMENT - GENERAL USAGE MXMV
006491                             7364+ALIGN3BY EQU   IEALIGN+1 3 BYTE ALIGNMENT            MXMV
006492                             7365+ALIGN2BY EQU   IEALIGN+2 HALF WORD ALIGNMENT         MCS0
006494 00000000                    7366+PACKED   DC    F'0' SAVE FOR TIMER                  MCS0
006498                             7367+IEAREG   DS    F - TEMPORARY SAVE - MAINLINE ONLY MCS0
00649C 00000000                    7368+IEASREG  DC    F'0' - TEMPORARY SAVE - SUBRTNS ONLY MCS0
0064A0 000075E0                    7369+ADNIPEND DC    A(IEAENDNP) PTR TO END OF NIP CODE          MCS0
0064A4 00000000                    7370+IEACORSZ DC    F'0'
0064A8 020F                        7371+CPUTAB   DC    X'020F' 20065
0064AA 025F                        7372+         DC    X'025F' 20065
0064AC 030F                        7373+         DC    X'030F' 20065
0064AE 040F                        7374+         DC    X'040F' 20065
0064B0 044F                        7375+         DC    X'044F' 20065
0064B2 050F                        7376+         DC    X'050F' 20065
0064B4 065F                        7377+         DC    X'065F' 20065
0064B6 067F                        7378+         DC    X'067F' 20065
0064B8 075F                        7379+         DC    X'075F' 20065
0064BA 085F                        7380+         DC    X'085F' 20065
0064BC 091F                        7381+         DC    X'091F' 20065
0064BE                             7382+BLMPXCPU EQU   * 20065
                                   7383+*                  ALL FOLLOWING CPU'S SUPPORT THE BLOCK          20065
                                   7384+*                  MULTIPLEX CHANNEL.  THE ROUTINE 'BMPXLOOP'     20065
                                   7385+*                  WILL SCAN FROM HERE TO THE END OF THE LIST     20065
                                   7386+*                  TO DETERMINE IF THE BLMPX BIT IN CONT REG0     20065
0064BE 135F                        7387+         DC    X'135F' .                                          21054
0064C0 145F                        7388+         DC    X'145F' 20301
0064C2 155F                        7389+         DC    X'155F' 20065
0064C4 158F                        7390+         DC    X'158F' BH 521122
0064C6 165F                        7391+         DC    X'165F' 20066
0064C8 168F                        7392+         DC    X'168F' BH 521122
0064CA 195F                        7393+         DC    X'195F' @SA64969
0064CC FFFF                        7394+         DC    X'FFFF' 20066
0064CE 0000
0064D0 00000000                    7395+IEAZERO  DC    F'0'
0064D4 00000001                    7396+IEAONE   DC    F'1'
0064D8 00000008                    7397+IEAATE   DC    F'8' 000C
0064DC 0009                        7398+NINE     DC    H'9' 000C
                                                                                                               PAGE  175


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0064DE 002B                        7399+IEA43    DC    H'43' 000E
0064E0 0000000A                    7400+IEATEN   DC    F'10' 000A
0064E4 00FFFFFF                    7401+IEAMASK1 DC    X'00FFFFFF'
0064E8 0000000F                    7402+IEADEVMS DC    X'0000000F' 000A
0064EC 0000000000000000            7403+IEAERRS  DC    6F'0' SENSE DATA AREA W/ECF          20201
0064ED                             7404+ECFMCOMP EQU   IEAERRS+1 20201
0064EE                             7405+ECFMCREC EQU   IEAERRS+2 SENSE BYTE INDIC CORCTBLE ERR  20201
0064FE                             7406+ECFMDISP EQU   IEAERRS+18 LOC OF DISP INFO IN ECF SENSE  20201
0064FA                             7407+ECFCLKBY EQU   IEAERRS+14 ISOLATES BYTES CLOCKED PLUS @SA73650
                                   7408+*                                      HI ORDER JUNK BYTE FROM SNS20201
006504 00000000                    7409+TEMCLKBY DC    F'0' TEMP CLKBY AREA             @SA73650
006508                             7410+IEATRPCL DS    H
00650A 0000                        7411+PRMUCBAD DC    H'0' SYS1.PARMLIB UCB ADDRESS    000E
00650C 0000                        7412+PRMTRPCL DC    H'0' PARMLIB - TRACKS/CYLINDER   PARM
00650E 00                          7413+IEASTPSC DC    X'00' STRIPS/SUBCELL IN DATACELL 5043
00650F 00                          7414+IEADCELX DC    X'00' 2321 INDEX TO DEVICE TABLE  5043
006510 00000000                    7415+IEASRUCB DC    F'0' SYS1.ASRLIB UCB            000C
006514 0000                        7416+IEAUCBHL DC    H'0'
006516                             7417+IEAIPL   DS    H
006518 0000                        7418+LINKUNIT DC    H'0' SYS1.LINKLIB UNIT ADDRESS  000E
00651A 0000                        7419+UNITADDR DC    H'0' UNIT ADDR FOR UCB SEARCH   000C
00651C 0028                        7420+TERMCONS DC    H'40'
00651E 0000
006520 00000000                    7421+IEAUNIT  DC    F'0'
006524 00000000                    7422+IEAINSAV DC    F'0'
                                   7423+*** OTHRCON1 AND OTHRCON2 MUST REMAIN CONTIGUOUS              *** 20202
006528 00000000                    7424+OTHRCON1 DC    F'0'
00652C 00000000                    7425+OTHRCON2 DC    F'0'
006530                             7426+IOPUCBMP DS    2F PARAMETER LIST FOR IOSGEN       I267
006538                             7427+IOSAVE   DS    16F IOSGEN SUBROUTINE SAVE AREA     I267
006530                             7428+ASYMSAVE EQU   IOPUCBMP NAME ON 18 BYTE SAVE AREA 4 MP 19022
006578 00000FFF                    7429+IOPAVBIT DC    X'00000FFF' MASK TO CLEAR STATUS BITS IN    I267
                                   7430+*                                    MAP ADDRESS                   I267
00657C FFFFFFFF                    7431+IEALAST  DC    4X'FF' 000C
006580 0000                        7432+IEATRBAL DC    H'0' BYTES LEFT ON TRACK        000C
006582 D4C3C8                      7433+ASROPTNM DC    C'MCH' ASR FUNCTION NAME          000E
006585 FF                          7434+IEASREXT DC    X'FF' ASR QUIT SWITCH;00 = QUIT  000C
006586 0000
006588 00000000                    7435+CCHPARML DC    A(0) PARAMETER LIST FOR             19032
00658C 00006932                    7436+         DC    A(CCH9BYTE) CCH MODULES                    19032
006590 0001                        7437+CCHLST   DC    H'1' 19032
006592 0038                        7438+         DC    H'56' 19032
006594 4040404040404040            7439+CCHNMBLD DC    CL8' ' 19032
00659C 00000000                    7440+         DC    F'0' 19032
0065A0 0000000000000000            7441+CCHTTR   DC    44X'00' 19032
0065CC 0065                        7442+X0065    DC    X'0065' 19E07
0065D0                             7443+         DS    0F 000C
0065D0 10000000                    7444+IEACON11 DC    X'10000000' 000C
0065D4 00000000                    7445+IEAROLS4 DC    F'0' WORK AREA                  000C
0065D8 00000000                    7446+IEAROLS8 DC    F'0' WORK AREA                  000C
0065DC 00000000                    7447+ROLLWORK DC    F'0' SAVE AREA FOR ROLLOUT WORK AREA ADDR MCS0
0065E0 00000000                    7448+IEARLRPT DC    F'0' 000C
0065E4 00000000                    7449+IEARLUCB DC    F'0' 000C
0065E8                             7450+IEARLOCT DS    4F 000C
                                   7451+** EQUATES USED TO COMPARE CHARACTERISTICS OF DEVICE SOUGHT        000E
                                                                                                               PAGE  176


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7452+** WITH THOSE OF DEVICE FOUND                                      000E
000002                             7453+LOCATDEV EQU   2 DEVICE CHARACTERISTICS FROM LOCATE000E
000004                             7454+LOCATDCL EQU   4 DEVICE CLASS FROM LOCATE   000E
000005                             7455+LOCATYPE EQU   5 DEVICE TYPE FROM LOCATE    000E
0065F8                             7456+IEARLADR DS    2F 000C
006600                             7457+IEARLUNT DS    H 000C
006602 00                          7458+ROLLTYPE DC    X'00' ROLLOUT UNIT TYPE FROM UCB 000C
006603 D9D6D3D3D6E4E3              7459+ROLOPTNM DC    C'ROLLOUT' ROLLOUT FUNCTION NAME      000E
00660A 404040404040                7460+IEARLVOL DC    CL6' ' 000C
006602                             7461+DUMPTYPE EQU   ROLLTYPE DEV TYPE                    DAR
006610                             7462+         DS    0F 000C
006610 87000000                    7463+IEASRXIT DC    X'87000000' EXIT LIST FOR OPENJ        000C
006614 87000000                    7464+IEARLXIT DC    X'87000000' EXIT LIST FOR OPENJ        000C
006618 00000000                    7465+IEAECB   DC    F'0' ECB FOR I/O OPERATIONS     000C
00661C 0099366F                    7466+IEAHIDAT DC    X'0099366F' HI DATE FOR OPEN           000C
006620 00000000                    7467+IEATRKSZ DC    F'0' BYTES PER TRACK            000C
006624 00000000                    7468+IEATOLFR DC    F'0' TOLERANCE FACTOR           000C
006628 00000000                    7469+IEAOVHED DC    F'0' OVERHEAD FACTOR            000C
00662C 00000000                    7470+IEJOBDCB DC    F'0' SAVE JOBLIB DCB PTR        000C
006630 0000                        7471+IEASRTPC DC    H'0' TRACKS PER CYLINDER        000C
006632 0000                        7472+DCELDATA DC    H'0' DATACELL DATA STORAGE      000C
006634 00                          7473+IEASRSW  DC    X'00' INDICATE TRACK INFO REQUEST000C
0000F2                             7474+UCMWRITE EQU   X'F2' WRITER ID IN UCM PROCESSOR NAME MCS0
006635 F3F0C540                    7475+HARDCOPY DC    CL4'30E' HARDCOPY ADDR/DSNAME            MCS0
006639 00
00663A 0000                        7476+ROUTCODE DC    H'0' -  ROUTING CODES              MCS0
00663C 00                          7477+CPYCMDS  DC    X'00' -  COMMANDS/NO COMMANDS       MCS0
00663D                             7478+HCPSTCHR DS    C MCS0
00663E 4DE2E8                      7479+HCPSLOG  DC    C'(SY' SYSLOG PARAMETE CONSTANT        MCS0
006641 E2D3D6C7                    7480+HCSYSLOG DC    C'SLOG' -  SYSLOG OPTION              MCS0
006645 E2E8E2F14BE2E8E2            7481+HCLOGX   DC    C'SYS1.SYSVLOGX' -  SYSLOG DSNAME              MCS0
006652 E761E8                      7482+HCXORY   DC    C'X/Y' CONSTANT FOR SYSLOG LOCATE FAIL MCS0
006655 000000
006658 00002818                    7483+HCBUFADR DC    A(MSGBUFER) PTR TO ACTIVE HARDCOPY BUFFER   MCS0
00665C 00003014                    7484+HCBUFLNT DC    A(MSGBUFND-4) .     PTR TO END OF HARDCOPY BUFFER PTM470
006660 00002818                    7485+HCBUFSAV DC    A(MSGBUFER) PTR TO START OF MESSAGE BUFFER  MCS0
006664 07FC                        7486+HCSPBUFS DC    H'2044' .           SP255 MESSAGE BUFFER SIZE     PTM470
000004                             7487+HCMSGTIM EQU   4 HC TIMER                        MCS0
00657C                             7488+HCPFFFF  EQU   IEALAST DEFAULT ROUTING CODE PARAMETER  MCS0
006666 C1D3D3                      7489+HCPRALL  DC    C'ALL' ALL ROUTINE CODES SPECIFIED     MCS0
006669 6BD5D6C3D4C4E25D            7490+HCPNCMDS DC    C',NOCMDS)' CONSTANT FOR NO COMMANDS SPECED MCS0
006671 6BC3D4C4E25D                7491+HCPCMDS  DC    C',CMDS)' COMMANDS SPECIFIED              MCS0
006677 6BC9D5C3D4C4E25D            7492+HCPICMDS DC    C',INCMDS)' COPY INLINE AND RESPONCES     S21003
00667F 6BE2E3C3D4C4E25D            7493+HCPSCMDS DC    C',STCMDS)' HARDCOPY STATIC ALSO          S21003
00007B                             7494+HCBUFNDR EQU   C'#' INDICATOR FOR END OF HC MSGS    MCS0
000006                             7495+HCMSGRTL EQU   6 LENGTH OF ROUTING CODES IN MSG  MCS0
00000C                             7496+HCMSGHDL EQU   12 LENGTH OF MSG HEADER            MCS0
00000A                             7497+HCMSGPZL EQU   10 LENGTH OF PREFIX + TIME STAMP   MCS0
000010                             7498+HCMSGPFS EQU   16 SIZE OF PREFIX + MSG HEADER     MCS0
000001                             7499+HCMSGLNT EQU   1 MSG LENGTH IN MSG PREFIX        MCS0
006687 40F0F0F0F040                7500+HCROUTC  DC    C' 0000 ' ROUTING CODE PREFIX TO HC MSGS  MCS0
006688                             7501+FULLZERO EQU   HCROUTC+1 FULL WORD OF ZEROS                    MCS0
000000                             7502+WTOADDR  EQU   0 MSG ADDRESS IN WTO CCW          MCS0
000007                             7503+WTOLNTH  EQU   7 MSG LENGTH IN WTO CCW           MCS0
006690                             7504+         DS    0F
                                                                                                               PAGE  177


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

006690 00C8                        7505+IEADRMLM DC    X'00C8'
006692 00000000                    7506+IEASKADR DC    X'00000000'
006696 00000100                    7507+         DC    X'00000100'
00669A                             7508+IEAVTOC  DS    5C
00669F 0000000000                  7509+IEASRADR DC    X'0000000000'
0066A4                             7510+         DS    0H 20201
0066A4 000000000000                7511+ECFLOCSN DC    X'000000000000' 20201
0066AA                             7512+IEAVOLAB DS    6C
0066B0 0000000000000000            7513+NOTHERSV DC    16F'0' SAVE AREA FOR HC RTN                 MCS0
0066F0 00000000                    7514+HCP1ADDR DC    F'0' SAVE AREA FOR R11                    MCS0
0066F4 00000000                    7515+HCPRTNAD DC    F'0' SAVE AREA FOR R5                     MCS0
0066F8 0000000000000000            7516+TPCSAVE  DC    16F'0' SAVE AREA FOR I/O RTN           MCS0
006738 0000000000000000            7517+TPGRPARM DC    4F'0' PARAMETER LIST                   MCS0
006738                             7518+TPGRCUCM EQU   TPGRPARM+0 - UCM ADDRESS             MCS0
00673E                             7519+TPGRCUCB EQU   TPGRPARM+6 - UCB ADDRESS             MCS0
006748 00                          7520+STPSTORB DC    X'00' ANSWER AREA                      MCS0
006748                             7521+TPRSTORB EQU   STPSTORB MCS0
006749 00                          7522+CONSWTCH DC    X'00'
00674A 00                          7523+CONREADY DC    X'00'
00674B 0820                        7524+IEATYPE  DC    X'0820'
00674D FFF0                        7525+IEACELLY DC    X'FFF0'
00674F 2005                        7526+CELLTYPE DC    X'2005'
006751 00                          7527+IEADTACL DC    X'00'
006752 00                          7528+IEAPRCSW DC    X'00' 000A
006753 00                          7529+LOCATEOK DC    X'00' 000A
006754 00                          7530+MSRSW    DC    X'00'
006755 00                          7531+PRNTSW   DC    X'00' 2480
006756 00                          7532+IEAUCMS  DC    X'00'
006757 00                          7533+IEAINDIC DC    X'00'
006758 00                          7534+IEATXTRQ DC    X'00'
006759 00                          7535+IEABSAMR DC    X'00'
00675A 00                          7536+IEALTREQ DC    X'00'
00675B 00                          7537+IEAONECH DC    X'00'
00675C 00                          7538+IEAPKESV DC    X'00' SAVE AREA FOR PROTECT KEY  000E
00675D 58                          7539+MODELID  DC    X'58' CPU MODEL                   000E
00675E 58                          7540+SGMODL   DC    X'58' INDICATOR FOR PRIME GEN MODEL   RM85
006760                             7541+         DS    0H 19035
006760 0158                        7542+CPUMODL  DC    X'0158' 2-BYTE CPUID                   19035
006762 0158                        7543+SGMODL1  DC    X'0158' *         INDICATOR FOR PRIME GEN        M0167
006764                             7544+         DS    0H .                                           IC 21055
006764 0085                        7545+K85      DC    X'0085' .           MODEL 85 IDENT             IC 21055
006766                             7546+CPUMOD   DS    H
006768 00                          7547+IEASWITA DC    X'00' FUNCTION INCLUDE SWITCH    000E
006769 FF                          7548+SENSESW  DC    X'FF' SENSE DONE INDICATOR              BH 58099
00676A 00                          7549+BRANSW   DC    X'00' BRANCH SWITCH                     BH M5066
000001                             7550+SER0SWIT EQU   1 SER0 SELECTED              000E
000002                             7551+SER1SWIT EQU   2 SER1 SELECTED              000E
000004                             7552+GCONSWIT EQU   4 2250 CONSOLE ACTIVE         000E
000008                             7553+G545SWIT EQU   8 GRAPHICS SWITCH                 MCS0
000010                             7554+T274SWIT EQU   16 TP SWITCH                       MCS0
000018                             7555+OPEJSWIT EQU   G545SWIT+T274SWIT MCS0
000020                             7556+IOCONSIN EQU   32 CONSOLE INPUT SWITCH                 MCS0
00000C                             7557+GRPHSWIT EQU   GCONSWIT+G545SWIT * ALL POSSIBLE GRAPHIC CONSOLES MCS0
00676B 00                          7558+IEASWITB DC    X'00' FUNCTION EXCLUDE SWITCH    000E
000001                             7559+BLDXSWIT EQU   1 BLDL INOPERATIVE            000E
                                                                                                               PAGE  178


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000002                             7560+RAMXSWIT EQU   2 RAM INOPERATIVE             000E
000004                             7561+RSVXSWIT EQU   4 RSVC INOPERATIVE            000E
000008                             7562+MVXSWIT  EQU   8 MULTI-VOLUME FUNCTION INOPERATIV000E
000010                             7563+HCPXSWIT EQU   16 HARDCOPY FUNCTION INOPERATIVE   MCS0
000020                             7564+RERPSWIT EQU   32 INDICATE RES ERP FUNCTION IS INOP   19017
000040                             7565+LSTXSWIT EQU   64 HC EXCLUDE FOR LISTS SWITCH           MCS0
000050                             7566+NOHARDSW EQU   HCPXSWIT+LSTXSWIT MCS0
00002F                             7567+NOPARMSW EQU   BLDXSWIT+RAMXSWIT+RSVXSWIT+MVXSWIT+RERPSWIT 19017
000080                             7568+CANXSWIT EQU   128 SKIP 'JOB CANCEL' SWITCH CHECK
00007F                             7569+NOCANCEL EQU   Q255-CANXSWIT BYPASS FOR CANCEL TESTS-CONSOLE MCS0
00676C 00                          7570+IEASWITC DC    X'00' ACTIVE FUNCTION SWITCH      000E
000001                             7571+ROLLCALL EQU   1 ROLLIN/ROLLOUT ACTIVE       000E
000002                             7572+SHARCALL EQU   2 SHARED DASD TEST ACTIVE     000E
000004                             7573+PARMCALL EQU   4 PARMLIB LOCATE ACTIVE       000E
00676D D3D5D2D3E2E3F0F0            7574+IEALNKLS DC    C'LNKLST00' 000E
000008                             7575+MVCALL   EQU   8 MULTI-VOLUME RTN ACTIVE     MXMV
000010                             7576+MXCALL   EQU   16 MULTI EXTENT ACTIVE         MXMV
000020                             7577+TEMPDEB  EQU   32 REQUEST FOR TEMPORARY DEB   000E
000040                             7578+CNCALL   EQU   64 REQUEST FOR CONCATENATION   MXMV
000080                             7579+HCCALL   EQU   128 HARDCOPY SEARCH ACTIVE     MCS0
000018                             7580+MXMVCALL EQU   MVCALL+MXCALL MXMV
000038                             7581+DBMVCALL EQU   TEMPDEB+MVCALL+MXCALL MXMV
006775 00                          7582+IEASWITD DC    X'00' SUBROUTINE PARAMETER SWITCH     MCS0
000001                             7583+XCPBSWIT EQU   1 EXCP BUFFER INITIALIZATION SWIT MCS0
000002                             7584+GRHC1052 EQU   2 SWIT FOR HRDCPY ON 1052 IN NO MCS & PRM CONS IS 2250
000004                             7585+MONTSWIT EQU   4 MOUNT SUBROUTINE ACTIVE              MCS0
000008                             7586+NOHANG   EQU   8 INDIC UCB LOOKUP FOR D.C.       MCS0
0000F7                             7587+HANG     EQU   Q255-NOHANG MCS0
000010                             7588+UCBDTCEL EQU   16 ALLOWS DS ON A DATA CELL        MCS0
000020                             7589+LOGFSWIT EQU   32 LOG VOLUME NOT MOUNTED SWITCH        MCS0
000040                             7590+LOCXSWIT EQU   64 LOCATE FAILED FOR SYSLOGX      19017
006776 00                          7591+RAMSWIT1 DC    X'00' ACTIVE RESIDENT FUNCTION SWITCH MCS0
000001                             7592+TPLDSWIT EQU   1 TP RAM MODULES                  MCS0
000004                             7593+DDRSPEC  EQU   X'04' DDR SPECIFIED SWITCH           19022
006777 00                          7594+IEASWITE DC    X'00' I267
000001                             7595+VOLTBATV EQU   1 INDICATES VOLTB INITIALIZED     I267
000002                             7596+PATHCALL EQU   X02 INDICATES PATHMAP IN USE        I267
000004                             7597+P0TCBSWT EQU   4 P0 TCB FOUND SWITCH                  I250
0000FD                             7598+PATHCOFF EQU   255-PATHCALL USED TO TURN OFF PATHCALL SWIT  I267
000008                             7599+SHARBUSY EQU   8 INDIC BUSY RESPNS TO SIO      A29418
                                   7600+*                                     FOR SHARED DEVICE          A29418
000010                             7601+NCONINT  EQU   X'10' .             INDICATES NON-CONSOLE INT  CI A50253
                                   7602+*                                  BEFORE EXCP READ PERFORMED CI A50253
                                   7603+*                                  WHILE MULTI-VOL RTN ACTIVE CI A50253
006778 00                          7604+CONSSWIT DC    X'00' CONS INIT RTN INDIC SWITCH     20202
000001                             7605+CONSCOMP EQU   X'01' COMPOSITE CONSOLE BIT          20202
000002                             7606+CONSUCBF EQU   X'02' UCB FIND RTN INDICATOR         20202
000010                             7607+CONSALTS EQU   X'10' ALTERNATE CONSOLE TESTED       20202
000020                             7608+CONSOUTP EQU   X'20' TESTING OUTPUT ADDR            20202
000040                             7609+CONSOGD  EQU   X'40' OUTPUT ADDRESS GOOD            20202
000080                             7610+CONSIGD  EQU   X'80' INPUT ADDRESS GOOD             20202
00677C                             7611+         DS    0F
00677C 00FFFFE0                    7612+TRAMASK  DC    X'00FFFFE0'
006780 C9C5C5D7D9E6C9F2            7613+IEALISTK DC    CL8'IEEPRWI2' I272
006788 C9C5C5D9C7D54040            7614+         DC    CL8'IEERGN  ' P0278
                                                                                                               PAGE  179


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

006790 C9C5C5D7C1D3E3D9            7615+         DC    CL8'IEEPALTR'
006798 C9C5C6D8C9D5E3E9            7616+         DC    CL8'IEFQINTZ'
0067A0 C9C5C6E2C4F1F0F2            7617+         DC    CL8'IEFSD102'
0067A8 C9C5C6E2C4F2F6F3            7618+         DC    CL8'IEFSD263'
0067B0 C9C5C5D7D7D9C5E2            7619+         DC    CL8'IEEPPRES' 683
0067B8 C9C5C6E2C4F1F0F5            7620+         DC    CL8'IEFSD105' 000A
0067C0 C9C5C6E5D4C54040            7621+         DC    CL8'IEFVME  ' SPSP
0067C8 C9C5C6C4E2D6D3D7            7622+         DC    CL8'IEFDSOLP' 19070
0067D0 C9C5C5D7C4C9E2C3            7623+         DC    C'IEEPDISC' JOB SCHEDULER                   MCS0
0067D8 C9D2D1C5C1E3F0F1            7624+         DC    CL8'IKJEAT01' 20021
0067E0 C9D2D1C5C6C6F4F4            7625+         DC    CL8'IKJEFF44' 20021
0067E8 C9C5C5E5C7D7E2C4            7626+         DC    CL8'IEEVGPSD' PTM211
0067F0                             7627+IEAENDLK EQU   *
0067F0 C9C7C7F0F1F9C1C1            7628+         DC    CL8'IGG019AA'
0067F8 C9C7C7F0F1F9C1C2            7629+         DC    CL8'IGG019AB'
006800 C9C7C7F0F1F9C1D2            7630+         DC    CL8'IGG019AK'
006808 C9C7C7F0F1F9C1D8            7631+         DC    CL8'IGG019AQ'
006810 C9C7C7F0F1F9C1D9            7632+         DC    CL8'IGG019AR'
006818 C9C7C7F0F1F9C3C4            7633+         DC    CL8'IGG019CD'
006820 C9C7C7F0F1F9C3C3            7634+         DC    CL8'IGG019CC'
006828 C9C7C7F0F1F9C3C8            7635+         DC    CL8'IGG019CH'
006830 C9C7C7F0F1F9C3C9            7636+         DC    CL8'IGG019CI'
006838 C9C7C7F0F1F9C3D1            7637+         DC    CL8'IGG019CJ'
006840 C9C7C7F0F1F9C2C1            7638+         DC    CL8'IGG019BA'
006848 C9C7C7F0F1F9C2C2            7639+         DC    CL8'IGG019BB'
006850 C9C7C7F0F1F9C1C9            7640+         DC    CL8'IGG019AI'
006858 C9C7C7F0F1F9C1D1            7641+         DC    CL8'IGG019AJ'
006860 C9C7C7F0F1F9C3C5            7642+         DC    CL8'IGG019CE'
006868 C9C7C7F0F1F9C3C6            7643+         DC    CL8'IGG019CF'
006870 C9C7C7F0F1F9C3D3            7644+         DC    CL8'IGG019CL'
006878                             7645+IEAENDBK EQU   *
000224                             7646+IEAADCON EQU   ENDCONST-COMONAC MCS0
000298                             7647+IEACCWSZ EQU   ENDCCWLD-MSG1CCW
00312E                             7648+IEAPRIOR EQU   IEALPAGO-IEASTART
000070                             7649+IEALENGT EQU   IEAENDLK-IEALISTK
000088                             7650+IEALENGS EQU   IEAENDBK-IEAENDLK
006878                             7651+         DS    0H 000D
006878 2111                        7652+IEANUDP1 DC    AL2(IEACONBS-IEALPAGO) MCS0
000FFF                             7653+IEANUDP2 EQU   X'FFF' SECOND BASE REG INCREMENT   000D

                                   7655+* CONSTANTS USED FOR GETMAIN / FREEMAIN SUBROUTINE
000004                             7656+GMLENGTH EQU   4 DISPLACEMENT TO GETMAIN LEN000D
000004                             7657+FMLENGTH EQU   4 TO FREEMAIN LEN000D
000008                             7658+GMADDPTR EQU   8 DISPLACEMENT TO PTR FOR GM ADDR MCS0
000008                             7659+FMADDPTR EQU   8 FOR FM ADDR MCS0
000140                             7660+ASRTABLE EQU   320 ASR WORK AREA SIZE         000D
000168                             7661+PARMTAB  EQU   360 PARMLIB WORK AREA SIZE      000E
000800                             7662+MVLISTSZ EQU   2048 BYTES FOR M-V LIST              000E
00687A 0000
00687C 00000000                    7663+GMADDR   DC    F'0' ADDR OF GETMAIN CORE       000D

006880                             7665+         DS    0F
006880                             7666+SVCEXTNT DS    1F
006884                             7667+IEAFBQEA DS    1F
006888 4040404040404040            7668+IEASQSLS DC    CL8' '
                                                                                                               PAGE  180


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

006890 4040404040404040            7669+IEAM2KLS DC    CL8' '
006898 4040404040404040            7670+IEAMINLS DC    CL8' '
0068A0 4040404040404040            7671+IEAQBFLS DC    CL8' '
0068A8                             7672+IEAMAINS DS    2F
0068B0                             7673+IEAPLCE  DS    2F
0068B8 00000000                    7674+IEALSTCT DC    F'0'
0068BC 00                          7675+IEASQSDL DC    X'00'
0068BD 00                          7676+IEAM2KDL DC    X'00'
0068BE 00                          7677+IEAMINDL DC    X'00'
0068BF 00                          7678+IEAQBFDL DC    X'00'
0068C0 00                          7679+IEAMS1NO DC    X'00'


0068C4                             7681+         DS    0F
0068C4 62E08000                    7682+IEAVALUE DC    X'62E08000' .       HARDWARE CLOCK = 6 HRS     CI A46005
0068C8 000186A0                    7683+IEACOUNT DC    F'100000' 1595
0068CC                             7684+         DS    0F
0068CC 00010036                    7685+SVLST    DC    X'00010036' 2945


0068D0 C9C7C3F0F0F0F0F0            7687+SVNAM    DC    C'IGC00000'
0068D8 0000000000000000            7688+         DC    12F'0' 2945
006908                             7689+         DS    0D
006908 0000000000000000            7690+SVWA1    DC    XL8'00'
006910                             7691+HWD      DS    H
006912 C9C7C3F0F0                  7692+SVNAMR   DC    C'IGC00'


006918                             7694+         DS    0F
006918 06000020                    7695+IFBSERCW DC    X'06000020'
00691C C9C6C2E2D9F0F0F0            7696+IFBSERNM DC    C'IFBSR000' SER 0/1 LOAD MODULE NAME   000E
006924 000000                      7697+MCPSWADR DC    XL3'00' SAVE AREA FOR SER ENTRY PT  000E
006927 C9C7C6C3C3C8                7698+CCHNAME  DC    C'IGFCCH' CCH MODULE NAME BASE           19032
00692D C9D5                        7699+CCHSUFIX DC    C'IN' CCH SUFFIX                     19032
00692F C3C3C8                      7700+CCHCON   DC    C'CCH' CCH CONSTANT                   19032
006932 0000000000000000            7701+CCH9BYTE DC    9X'00' PARAMETER AREA                 19032


00693C                             7703+         DS    0F
00693C                             7704+ANSRAREA DS    20F
00698C 00006B40                    7705+IEANLIMT DC    A(IWORK3+8)
006990 00000000                    7706+NOHNGCON DC    A(0) RET ADDR IF NO UCB FOUND   000C
006994 D9C5D7D3E840F0F0            7707+IEARPLYR DC    C'REPLY 00,'''
00699E D940F0F06B7D                7708+IEARPLYS DC    C'R 00,''' REPLY ABBREVIATION - U.C.  000A
0069A4 E47D                        7709+IEAUU    DC    C'U'''
0069A6 E46BD37D                    7710+IEAUUU   DC    C'U,L''' 4810
0069AA E46BD36BC87D                7711+IEALCSLH DC    C'U,L,H''' 000E
0069B0 E46BC87D                    7712+IEALCSH  DC    C'U,H'''
0069B4 D340                        7713+IEALSTDB DC    C'L '
0069B6 D37D                        7714+IEALSTDC DC    C'L'''
0069B8 D36B                        7715+IEALSTDD DC    C'L,' 000C
0069BA 0000
0069BC 00000004                    7716+IEAFOURT DC    F'4'
                                                                                                               PAGE  181


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0069C0                             7718+         DS    0F
0069C0 00000000                    7719+IEABLPTR DC    F'0'
0069C4 C9C5C1C2D3C4F0F0            7720+IEABLDNM DC    CL8'IEABLD00'
0069CC 4040404040404040            7721+IEABLDLS DC    CL8' '
0069D4 00                          7722+IEALDBL  DC    X'00'
0069D5 00                          7723+IEABLDLL DC    X'00'
0069D6 00                          7724+IEARSLTR DC    X'00'


0069D7 00
0069D8 0000000000000000            7726+BLDLSAVE DC    D'0' .                                              SBLD
0069E0 00000000                    7727+IEABSAV  DC    F'0' .                                              SBLD
0069E4 00000000                    7728+BLDADDR  DC    F'0' .              ADDRESS
0069E8 00000000                    7729+BLDNG    DC    F'0' .              BLDL LINKLIB LENGTH
0069EC 00000000                    7730+SBLADDR  DC    F'0' .              ADDRESS OF SVCLIB BLDL LIST
0069F0 00000000                    7731+SBLNG    DC    F'0' .              BLDL SVCLIB LENGTH
0069F4 00                          7732+BLDLMAIN DC    X'00' .             BLDL FUNCTION SWITCH            SBLD
000080                             7733+BLDLLINK EQU   X'80' .             1-LINKLIB 0-SVCLIB              SBLD
000040                             7734+BLDL2    EQU   X'40' .             1-2 LISTS SPECIFIED             SBLD
000020                             7735+BLDLDONE EQU   X'20' .             1-BOTH DONE                     SBLD
0069F5 00                          7736+BLDLLLIB DC    X'00' .             X'FF' LINKLIB DONE              SBLD
0069F6 00                          7737+BLDLSVCL DC    X'00' .             X'FF' SVCLIB DONE               SBLD
0069F8                             7738+         DS    0D
0069F8 4040404040404040            7739+LOADNAME DC    CL8'        '
006A00 C9C5C1C9C7C7F0F0            7740+IEARAMNM DC    C'IEAIGG00'
006A08 4040                        7741+IEARAMLS DC    X'4040' LPA0
006A0A 4040404040404040            7742+IEARAML2 DC    X'4040404040404040' LPA0
006A12 00                          7743+IEARAMLL DC    X'00'
006A13 40C8D9C1D47E40              7744+IEAHRAM  DC    C' HRAM= ' 23050
006A1A 4040404040404040            7745+IEAHRAML DC    C'        ' 23050
006A22 0000                        7746+BUFCN    DC    H'0' 23050
006A24 0000                        7747+HBUFCN   DC    H'0' 23050
006A26 00                          7748+HIERBIT  DC    X'00' 23050
006A27 00                          7749+IEALODED DC    X'00'
006A28 00                          7750+FIRSTLOD DC    X'00'
006A29 00                          7751+IEANOTLD DC    X'00'
006A2A 0000
006A2C 00000000                    7752+ISVLIBA  DC    F'0'


006A30                             7754+         DS    0F 19017
006A30 C9C7C5F0                    7755+RERPMBNM DC    C'IGE0' CONSTANT ERP MODULE NAME PREFIX     19017
006A34 4040404040404040            7756+RERPLS   DC    CL8' ' ERP BUFFER HOLDS SUFIX'S TO APEND   19017
006A3C C9C5C1C9C7C5F0F0            7757+RERPNAME DC    C'IEAIGE00' DEFAULT DSNAME FOR ERP MODULE LIST  19017
006A44 00                          7758+RERPLSNL DC    X'00' ERP SWITCH; FF=LIST   40=OPER IS NU 19017
006A45 40D9C5D9D77E                7759+IEAERP   DC    C' RERP=' ERP PARAMETER USED IN OPER COMM     19017


006A4B 00
006A4C 00000002                    7761+CONOFTWO DC    F'2'
006A50 00000000                    7762+IEAPTR1  DC    F'0'
006A54 00000000                    7763+IEAPTR2  DC    F'0'
006A58 00000000                    7764+IEANONRS DC    A(0)
006A5C 00000007                    7765+ESA      DC    X'00000007'
006A60 FF000000                    7766+HIFF     DC    X'FF000000'
                                                                                                               PAGE  182


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

006A64 00                          7767+IEASVCLL DC    X'00'
006A65 C9C5C1D9E2E5F0F0            7768+IEARSVNM DC    C'IEARSV00'
006A6D 40C8E2E5C37E40              7769+IEAHSVC  DC    C' HSVC= ' 23050
006A74 4040404040404040            7770+IEAHSVCL DC    C'        ' 23050
006A7C 0000                        7771+HBUFSV   DC    H'0' 23050
006A7E 0000                        7772+BUFSVC   DC    H'0' 23050
006A80                             7773+         DS    0F
006A80 4040404040404040            7774+IEASVCLS DC    8C' '


006A88                             7776+         DS    0F
006A88 0000000000000000            7777+PROCCCHH DC    2F'0' 000A
006A90 4040404040404040            7778+IEAMBNM  DC    CL8' '
                                   7779+***      THE FOLLOWING LISTS REFLECT VALID KEYWORD PARMS FOR NIP   000C
                                   7780+*        COMMUNICATION RTN.  ENTRIES MUST BE MADE IN THE PROPER    000C
                                   7781+*        LIST FOR EACH KEYWORD ADDED.  THIS PERMITS NIP TO SEARCH  000C
                                   7782+***      FOR A VALID PARM.  EACH LIST MUST HAVE AT LEAST 1 ENTRY.  000C
006A98                             7783+START1   EQU   * ONE BYTE PARMS FOLLOW      000E
006A98 40C840404040                7784+IEAHCHAR DC    C' H    ' HIERARCHY REQUEST          000E
006A9E                             7785+START2   EQU   * 000C
006A9E 40D9D87E4040                7786+IEARJQ   DC    C' RQ=  '
006AA4                             7787+END2     EQU   * THREE BYTE KEYWORDS FOLLOW 000C
006AA4 40D9C1D47E40                7788+IEARAM   DC    C' RAM= '
006AAA 40E2D8E27E40                7789+IEASQSQS DC    CL6' SQS= '
006AB0 40D4D7E27E40                7790+IEAMS2KS DC    CL6' MPS= '
006AB6 40D4C9D57E40                7791+IEAMINDC DC    CL6' MIN= '
006ABC 40D8C2C67E40                7792+IEAQBFDC DC    CL6' QBF= '
006AC2 40D4D6C47E40                7793+IEAMODEL DC    C' MOD= ' MODEL NUMBER PARM          000C
006AC8 40C3D6D5E340                7794+IEACONTC DC    C' CONT ' CONTINUATION               000C
006ACE                             7795+END3     EQU   * FOUR BYTE KEYWORDS FOLLOW  000C
006ACE 40C2D3C4D37E                7796+IEABLDL  DC    C' BLDL=' 000C
006AD4 40E3D4E2D37E                7797+TMSL     DC    C' TMSL=' TIME-SLICING PARM          000D
006ADA 40D9E2E5C37E                7798+IEASVC   DC    C' RSVC='
006AE0                             7799+END4     EQU   * END FOUR BYTE KEYWORDS          MCS0
006AE0                             7800+START6   EQU   * SIX BYTE DEYWORDS FOLLOW       19022
006AE0 C1D3E3E2E8E27E              7801+DDRALTCN DC    C'ALTSYS=' ALTERNATE SYSRES KEYWORD       19022
006AE7                             7802+END6     EQU   * END SIX BYTE DEYWORDS          19022
006AE7                             7803+START7   EQU   * SEVEN BYTE KEYWORDS FOLLOW      MCS0
006AE7 C8C1D9C4C3D7E87E            7804+HARCOPY  DC    C'HARDCPY=(' MCS0
000006                             7805+KYWD1    EQU   START2-START1 000E
000006                             7806+KYWD2    EQU   END2-START2 LENGTHS                    000C
00002A                             7807+KYWD3    EQU   END3-END2 OF PARM                    000C
000012                             7808+KYWD4    EQU   END4-END3 STRINGS                    000C
006AF0 58                          7809+IEAMASC  DC    X'58'
006AF1 00                          7810+IEASETL  DC    X'00'
006AF2 10                          7811+OPMSGTAB DC    X'10' * TABLE TO DETERMINE *        A31235
006AF3 D4E5E3404040                7812+         DC    C'MVT   ' *                    *        A31235
006AF9 14                          7813+         DC    X'14' * THE SYSTEM TYPE    *        A31235
006AFA D4E5E361D4D7                7814+         DC    C'MVT/MP' *                    *        A31235
006B00 20                          7815+         DC    X'20' * FROM CVT+116 DEC.  *        A31235
006B01 D4C6E3404040                7816+         DC    C'MFT   ' *                    *        A31235
006B07 40                          7817+         DC    X'40' * INFORMATION BYTE   *        A31235
006B08 D7C3D7404040                7818+         DC    C'PCP   ' *                    *        A31235
                                                                                                               PAGE  183


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

006B10                             7820+         DS    0F
006B10 00000000                    7821+IEASKRK  DC    F'0'
006B14 4040404040404040            7822+ERDNAMES DC    CL8' '
006B1C 0000001F                    7823+VARDATAL DC    X'0000001F'
006B20 0000000000                  7824+IEASKRL  DC    X'0000000000'
006B28                             7825+IWORK1   DS    1D
006B30 F0F0F0F0F0F0F0F0            7826+IWORK2   DC    8C'0'
006B38 4040404040404040            7827+IWORK3   DC    10C' '
006B42 000000000000
006B48 0000000000000000            7828+ECFSKCCW DC    D'0' 20201
006B50 0000000000000000            7829+ECFSRCH  DC    D'0' 20201
006B58 0000000000000000            7830+ECF1TIC  DC    D'0' 20201
006B60 0000000000000000            7831+ECFDMY1  DC    D'0' 20201
006B68 0000000000000000            7832+ECFDMYN  DC    5D'0' 20201
006B90 00000000                    7833+ECFCAWSV DC    F'0' SAVE AREA FOR I/O CAW          20201
006B94 00                          7834+ECFSWIT  DC    X'00' SET TO X'06' FOR ZEUS-A ECF    20201
006B95 00                          7835+ECFSWIT2 DC    X'00' ECF OPTION SWITCH              20201
000001                             7836+ECFCTCCW EQU   1 ON WHEN USER CHAIN STARTS      20201
                                   7837+*                                   W/COUNT OP-USE BY ECF LOGIC   20201
006B98                             7838+         DS    0F *                                               19E02
                                   7839+**    IGFINIT IS A MACRO WHICH WAS CREATED FOR MCH FOR REL 20(20061) **
006B98 00002000                    7840+IGFINIT  DC    A(8*1024) *         MAX. SIZE OF CORE NEEDED BY MCH
                                   7841+*                                  IN THE OS NUCLEUS
006B9C 00000000                    7842+         DC    F'0' *              PTR TO RMS NUCLEUS IN OS NUC
006BA0 00000000                    7843+         DC    V(IGFMSB00) *       PTR TO MACHINE STATUS BLOCK
006BA4 00006BF8                    7844+         DC    A(IGFREFRS) *       PTR TO LIST OF REFRESHABLE AREA PTRS
006BA8 00000000                    7845+         DC    V(IEARMSAD) *       PTR TO LOCATION IN DISPATCHER WHICH
                                   7846+*                                  IS TO HAVE PTR TO 'IGFPOST2'
006BAC 00000000                    7847+         DC    V(IEARMSSW) *       PTR TO NOP IN DISPATCHER
006BB0 00000000                    7848+         DC    F'0' *               PTR TO RMSEXCP
006BB4 00000000                    7849+         DC    F'0' *               PTR TO RMSLDADR
006BB8 00000000                    7850+         DC    F'0' *               PTR TO RMSPSTAD
006BBC 00000000                    7851+         DC    F'0' *               PTR TO TRANSIENT AREA PTR
006BC0 00000000                    7852+         DC    F'0' *               PTR TO COMMON AREA PTR
006BC4 00000000                    7853+         DC    V(IECRMS) *          PTR TO RMS ENTRY INTO IOS
006BC8 00000000                    7854+         DC    F'0' *               PTR TO IGFCINT
006BCC 00000000                    7855+         DC    V(IECINT) *          PTR TO IOS
006BD0 00000000                    7856+         DC    F'0' *               POST ROUTINE PARAMETER LIST ADDRESS
006BD4 00000000                    7857+         DC    V(SIRB) *           PTR TO SIRB
006BD8 00000000                    7858+         DC    V(IEAERWA) *        PTR TO IOB FOR ERROR TRANS AREA
006BDC 00000000                    7859+         DC    F'0' *              PTR TO IGFPOST2
006BE0 00000000                    7860+         DC    F'0' *              SAVE AREA FOR COMMON AREA ADDR
006BE4 00000000                    7861+         DC    F'0' *              FILLER IN MVT
006BE8 00000000                    7862+         DC    F'0' *              SYSGENED AND IPLED MODEL NO.
006BEC 00000000                    7863+         DC    V(IFBACTA) *        PTR TO CHANNEL ASIGNMENTS
006BF0 00000000                    7864+SUBSINT  DC    F'0' *               SUB SYSTEM INTERFACE
006BF3                             7865+SUBSFLGS EQU   SUBSINT+3 *          FLAGS FOR SUBSYSTEM INTERFACE
006BF4 00000000                    7866+         DC    V(IEA0IO01) IOS NEST SWITCH
006BF8                             7867+IGFREFRS EQU   *
006BF8 00000000                    7868+         DC    V(IGC011A0)
006BFC 00000000                    7869+         DC    V(IGC011A1)
006C00 00000000                    7870+         DC    V(IEAQENA0)
006C04 00000000                    7871+         DC    V(IEAQENA1)
006C08 00000000                    7872+         DC    V(IEECMWA0)
006C0C 00000000                    7873+         DC    V(IEECMWA1)
                                                                                                               PAGE  184


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

006C10 00000000                    7874+         DC    V(IEECMEA0)
006C14 00000000                    7875+         DC    V(IEECMEA1)
006C18 FFFFFFFF                    7876+         DC    X'FFFFFFFF' INDICATOR FOR END OF REFRESH


006C1C                             7878+         DS    0F
006C1C 4040404040404040            7879+IEADSTNM DC    CL22' '
006C32 4040404040404040            7880+         DC    CL22' '
006C48 E2E8E2F14BE2E5C3            7881+IEASVCNM DC    C'SYS1.SVCLIB' 000E
006C53 E2E8E2F14BD3C9D5            7882+IEALNKNM DC    C'SYS1.LINKLIB' 000E
006C5F E2E8E2F14BD3D6C7            7883+IEALOGNM DC    C'SYS1.LOGREC' 000E
006C6A E2E8E2F14BD7C1D9            7884+IEAPRCNM DC    C'SYS1.PARMLIB' 000E
006C76 4040404040404040            7885+IEABLNCS DC    CL80' ' 000C
006CC6 D5E4C3D3C5E4E2              7886+NUCLEUS  DC    C'NUCLEUS' 000C


000000                             7888+IEAANIP0 CSECT
                                   7889+***                                                           ***  I267
                                   7890+*   FORMAT OF NIP DIRECT ACCESS DEVICE TABLE                    *  I267
                                   7891+*        BYTE  0-1  PRIMARY DASD ADDRESS                        *  I267
                                   7892+*        BYTE  2-3  ALTERNATE DASD ADDRESS                      *  I267
                                   7893+*        BYTE  4-5  ALTERNATE DASD ADDRESS                      *  I267
                                   7894+*        BYTE  6-7  ALTERNATE DASD ADDRESS                      *  I267
                                   7895+*   IF NO ALTERNATE ADDR EXISTS THE TABLE ENTRY WILL BE ZERO    *  I267
                                   7896+***                                                           ***  I267
006CD0                             7897+         DS    0D
000008                             7898+VOLTBNSZ EQU   8 VOLTB SIZE PER ENTRY            I267
006CD0 0000000000000000            7899+IEAVOLTB DC    (VOLTBNSZ*80)X'00' NIP DASD TABLE            0019
006F50                             7900+         DS    H HALF WORD FOR TABLE END INDICATE0019
000009                             7901+VTABDTYP EQU   9 VOLUME TABLE/DEVICE TYPE   9952
006F52                             7902+VOLTBEND EQU   * ACTUAL END OF NIP CODE     000C
006F52                             7903+         DS    0H 0191
                                   7904+*                                                                 P4783
006F52                             7905+NIP5450  EQU   *
                                   7906+*** REGISTER EQUATES - EXCP WTO ROUTINE                            MCS0
                                   7907+*                                                                  MCS0
                                   7908+*** EQUATES - GENERAL USAGE                                        MCS0
                                   7909+*                                                                  MCS0
00007D                             7910+ANRENTER EQU   X'7D' ENTER KEY AID              MH  M1517
00006B                             7911+COMMA    EQU   C',' COMMA                      MD85
00003A                             7912+CONSINT  EQU   X'3A' CONSOLE INT CODE           MD85
0000A0                             7913+ENTERKEY EQU   X'A0' ENTER KEY BITS                  MD85
000000                             7914+DIR0     EQU   0 UNUSED                         19029
000001                             7915+DIR1     EQU   1 CAW                            19029
000002                             7916+DIR2     EQU   2 POINTER TO NIPS MSG            19029
000003                             7917+DIR3     EQU   3 WORK                           19029
000004                             7918+DIR4     EQU   4 LENGTH OF MESSAGE              19029
000005                             7919+DIR5     EQU   5 SCREEN CONTROL TABLE POINTER   19029
000006                             7920+DIR6     EQU   6 WORK                           19029
000007                             7921+DIR7     EQU   7 WORK                           19029
000008                             7922+DIR8     EQU   8 PARAM LIST                     19029
000009                             7923+DIR9     EQU   9 DCMBASE                        19029
00000A                             7924+DIR10    EQU   10 WORK                           19029
00000B                             7925+DIR11    EQU   11 BASE                           19029
00000C                             7926+DIR12    EQU   12 UNUSED                         19029
                                                                                                               PAGE  185


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00000D                             7927+DIR13    EQU   13 UNUSED                         19029
00000E                             7928+DIR14    EQU   14 UNUSED                         19029
00000F                             7929+DIR15    EQU   15 RETURN REG (IN SUBROUTINE)     19029
000024                             7930+Q36      EQU   36 19029
00004F                             7931+N79      EQU   79 NUMBER                          19029
000033                             7932+MOD3     EQU   X'33' MOD3 CODE IN UCB               19029
0000D9                             7933+R        EQU   C'R' 19029
0000D7                             7934+P        EQU   C'P' 19029
00004C                             7935+Q76      EQU   76 19029
000078                             7936+N120     EQU   120 POINTER TO IONEW PSW            MD85
000001                             7937+WRITCDE  EQU   X'01' WRITE COMMAND CODE              19029
000020                             7938+STOP     EQU   X'20' STOP CCW BIT                   19029
000027                             7939+SETBUF   EQU   X'27' START REGENERATION COMMSND CO  19029
000040                             7940+BLANK    EQU   C' ' IMMEDIATE BLANK                 MD85
000006                             7941+READCODE EQU   X'06' 220C READ CODE                  MD85
00004F                             7942+SLASH    EQU   C'' HORIZONTAL BAR             MD85
000009                             7943+WRITECCW EQU   X'09' WRITE CCW OP CODE          MD85
000055                             7944+CANCEL   EQU   X'55' S21003
                                                                                                               PAGE  186


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7946+***                                                                 ***
                                   7947+*                   SET UP INITIAL VALUES FOR NIP5450                 *
                                   7948+***                                                                 ***
006F52                             7949+         USING *,DIR11 DECLARE BASE                   19029
000000                             7950+         USING DCM,DIR9 DECLARE DCM BASE               19029
006F52 50B1 0008            00008  7951+         ST    DIR11,Q8(DIR1) SAVE NIPS  BASE                19029
006F56 18B7                        7952+         LR    DIR11,DIR7 GET SUBROUTINE BASE            19029
006F58 900F B49E            073F0  7953+         STM   DIR0,DIR15,SIOSAVE SAVE ALL REGS                  19029
006F5C 5860 0048            00048  7954+         L     DIR6,CAW GET NIPS CCW                   19029
006F60 5060 B4EA            0743C  7955+         ST    DIR6,GRSAVE SAVE IT                        19029
006F64 40A0 B4F6            07448  7956+         STH   DIR10,GRUNIT SAVE UNIT ADDRESS              19029
006F68 1881                        7957+         LR    DIR8,DIR1 SAVE PARAMETER LIST ADDR       19029
006F6A 5891 0000            00000  7958+         L     DIR9,Q0(DIR1) UCM ENTRY                      19029
006F6E 5899 001C            0001C  7959+         L     DIR9,28(DIR9) GET DCM ADDRESS               S21003
006F72 9608 9005      00005        7960+         OI    5(DIR9),X'08' SET ON DCMNIPP                S21003
006F76 5899 0000            00000  7961+         L     DIR9,0(DIR9) GET T DCM ADDRESS             S21003
006F7A 5899 0050            00050  7962+         L     DIR9,80(DIR9) GET MSG AREA ADDRESS          S21003
006F7E 4199 0003            00003  7963+         LA    DIR9,3(DIR9) ROUND TO                      S21003
006F82 8890 0002            00002  7964+         SRL   DIR9,2 NEXT HIGHEST                  S21003
006F86 8990 0002            00002  7965+         SLL   DIR9,2 FULL WORD                     S21003
006F8A 9101 D529      0676A        7966+         TM    BRANSW,Q1 FIRST ENTRY                   S21003
006F8E 4710 B1BE            07110  7967+         BO    SECOND NO BRANCH                     S21003
006F92 9601 D529      0676A        7968+         OI    BRANSW,Q1 SET ON INIT SWITCH            S21003
                                   7969+***********************************************************************
                                   7970+*        FIRST ENTRY                                                  *
                                   7971+***********************************************************************
006F96 5848 0004            00004  7972+         L     DIR4,4(DIR8) GET UCB ADDRESS               S21003
006F9A 9502 4013      00013        7973+         CLI   Q19(DIR4),TQ50 IS DEVICE A 2250           MH  M1517
006F9E 4770 B058            06FAA  7974+         BNE   TRY60 NO, BRANCH                MH  M1517
006FA2 9250 B400      07352        7975+         MVI   TYPE,T50 SET TYPE TO 2250              S21003
006FA6 47F0 B084            06FD6  7976+         B     GETMAIN1 BRANCH                        S21003
006FAA 9503 4013      00013        7977+TRY60    CLI   Q19(DIR4),TQ60 IS DEVICE A 2260           MH  M1517
006FAE 4770 B068            06FBA  7978+         BNE   TRY77 NO, BRANCH                     M2659
006FB2 9260 B400      07352        7979+         MVI   TYPE,T60 SET TYPE TO 2260              S21003
006FB6 47F0 B084            06FD6  7980+         B     GETMAIN1 BRANCH                        S21003
006FBA 9509 4013      00013        7981+TRY77    CLI   Q19(DIR4),X'09' IS DEVICE A 3277              M2659
006FBE 4780 B080            06FD2  7982+         BE    TYP77 YES, BRANCH                   M2659
006FC2 950C 4013      00013        7983+         CLI   Q19(DIR4),X'0C' . IS THIS A 158 CONSOLE     BH M5510
006FC6 4780 B080            06FD2  7984+         BE    TYP77 . FLAG THE SAME AS 3277     BH M5510
006FCA 9285 B400      07352        7985+         MVI   TYPE,T85 SET TYPE TO MOD 85/165        M2659
006FCE 47F0 B084            06FD6  7986+         B     GETMAIN1 BRANCH                     MH  M1517
006FD2 9277 B400      07352        7987+TYP77    MVI   TYPE,T77 SET TYPE TO 3277               M2659
006FD6                             7988+GETMAIN1 EQU   * S21003
006FD6 1839                        7989+         LR    DIR3,DIR9 3 USED TO COMPUTE ADCONS      S21003
006FD8 4133 0018            00018  7990+         LA    DIR3,Q24(DIR3) ADJUST FOR ADCONS             S21003
006FDC 5030 9000            00000  7991+         ST    DIR3,BUFSTART BUFFER START ADCON            S21003
006FE0 9550 B400      07352        7992+         CLI   TYPE,T50 2250 DEVICE                   S21003
006FE4 4770 B17E            070D0  7993+         BNE   TYPE60 NO  BRANCH                    S21003
006FE8 5030 9004            00004  7994+STORMSG  ST    DIR3,MSGSTART MSG START ADCON               S21003
006FEC 4040 B41E            07370  7995+         STH   DIR4,DCMAXLGN SAVE LINE LENGTH              S21003
006FF0 4144 0003            00003  7996+         LA    DIR4,Q3(DIR4) INCREASE FOR INIT             S21003
006FF4 9577 B400      07352        7997+         CLI   TYPE,T77 3277 DEVICE                MH  M1517
006FF8 4770 B0AE            07000  7998+         BNE   KNORG NO, CONTINUE              MH  M1517
006FFC 4144 0002            00002  7999+         LA    DIR4,Q2(DIR4) BUMP POINTER               MH  M1517
007000                             8000+KNORG    EQU   * MH  M1517
                                                                                                               PAGE  187


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

007000 4040 B426            07378  8001+         STH   DIR4,DCMLGNTH SAVE LINE LENGTH              S21003
007004 1854                        8002+         LR    DIR5,DIR4 S21003
007006 8950 0003            00003  8003+         SLL   DIR5,Q3 S21003
00700A 1B54                        8004+         SR    DIR5,DIR4 S21003
00700C 1A35                        8005+         AR    DIR3,DIR5 S21003
00700E 5030 9008            00008  8006+         ST    DIR3,LASTMSG LAST MSG ADCON                S21003
007012 1A34                        8007+         AR    DIR3,DIR4 S21003
007014 9577 B400      07352        8008+         CLI   TYPE,T77 3277 DEVICE                MH  M1517
007018 4770 B0D4            07026  8009+         BNE   UNUSED NO, CONTINUE              MH  M1517
00701C D203 3000 B407 00000 07359  8010+         MVC   Q0(Q4,DIR3),BLANKT YES, MOVE IN              MH  M1517
                                   8011+*                                     BLANKING CONTROL        MH  M1517
007022 4133 0004            00004  8012+         LA    DIR3,Q4(DIR3) BUMP POINTER               MH  M1517
007026 1A34                        8013+UNUSED   AR    DIR3,DIR4 MH  M1517
007028 9550 B400      07352        8014+         CLI   TYPE,T50 2250 DEVICE                   S21003
00702C 4770 B0E8            0703A  8015+         BNE   STORENT S21003
007030 D207 3000 B3EE 00000 07340  8016+         MVC   Q0(Q8,DIR3),EAORDER S21003
007036 4133 0008            00008  8017+         LA    DIR3,Q8(DIR3) S21003
00703A 5030 900C            0000C  8018+STORENT  ST    DIR3,ENTAREA EA ADCON                      S21003
00703E 1A34                        8019+         AR    DIR3,DIR4 S21003
007040 1A34                        8020+         AR    DIR3,DIR4 S21003
007042 9550 B400      07352        8021+         CLI   TYPE,T50 2250 DEVICE                  S21003
007046 4770 B106            07058  8022+         BNE   TEST77 NO, TEST 3277             MH  M1517
00704A D203 3000 B3F6 00000 07348  8023+         MVC   Q0(Q4,DIR3),TRORDER S21003
007050 4133 0004            00004  8024+         LA    DIR3,Q4(DIR3) MH  M1517
007054 47F0 B128            0707A  8025+         B     STORSCT MH  M1517
007058 9577 B400      07352        8026+TEST77   CLI   TYPE,T77 3277 DEVICE                MH  M1517
00705C 4770 B128            0707A  8027+         BNE   STORSCT NO, CONTINUE              MH  M1517
007060 D20A 3000 B40B 00000 0735D  8028+         MVC   Q0(Q11,DIR3),RESTOR MOVE IN READ               MH  M1517
                                   8029+*              CONTROL CHARACTERS                             MH  M1517
007066 5030 C777            059B8  8030+         ST    DIR3,CCW3277+Q8 PUT POINTER IN             MH  M1517
00706A 5030 C78F            059D0  8031+         ST    DIR3,CCW3277+Q32 CCWS                    MH  M1517
00706E 9201 C777      059B8        8032+         MVI   CCW3277+Q8,WRITCDE RESTORE                    MH  M1517
007072 9201 C78F      059D0        8033+         MVI   CCW3277+Q32,WRITCDE COMMAND                    MH  M1517
007076 4133 000C            0000C  8034+         LA    DIR3,Q12(DIR3) BUMP POINTER               MH  M1517
00707A 5030 9010            00010  8035+STORSCT  ST    DIR3,SCTSTART FIRST SCT ADCON            MH  M1517
00707E 4133 000E            0000E  8036+         LA    DIR3,Q14(DIR3) MH  M1517
007082 5030 9014            00014  8037+         ST    DIR3,LASTSCT LAST SCT ADCON             MH  M1517
                                   8038+*        BLANK OUT MESSAGE AND ENTRY AREA                     MH  M1517
007086 5850 9004            00004  8039+         L     DIR5,MSGSTART POINT TO MSG AREA             S21003
00708A 4160 0009            00009  8040+         LA    DIR6,Q9 MH  M1517
00708E 9577 B400      07352        8041+         CLI   TYPE,T77 3277 DEVICE                MH  M1517
007092 4770 B146            07098  8042+         BNE   GRONK NO, COUNT OK              MH  M1517
007096 0660                        8043+         BCTR  DIR6,Q0 YES, REDUCE BY ONE        MH  M1517
007098                             8044+GRONK    EQU   * MH  M1517
007098 0640                        8045+         BCTR  DIR4,Q0 REDUCE COUNT FOR EX           S21003
00709A 4440 B3FA            0734C  8046+LOOPA    EX    DIR4,BLANKIT BLANK MSG AREA                S21003
00709E 4155 0001            00001  8047+         LA    DIR5,Q1(DIR5) S21003
0070A2 1A54                        8048+         AR    DIR5,DIR4 S21003
0070A4 4660 B148            0709A  8049+         BCT   DIR6,LOOPA S21003
0070A8 5850 900C            0000C  8050+         L     DIR5,ENTAREA POINT TO EA                   S21003
0070AC 4160 0002            00002  8051+         LA    DIR6,Q2 NUMBER OF LINES FOR BCT       S21003
0070B0 4440 B3FA            0734C  8052+LOOPB    EX    DIR4,BLANKIT BLANK EA                      S21003
0070B4 4155 0001            00001  8053+         LA    DIR5,Q1(DIR5) S21003
0070B8 1A54                        8054+         AR    DIR5,DIR4 S21003
0070BA 4660 B15E            070B0  8055+         BCT   DIR6,LOOPB S21003
                                                                                                               PAGE  188


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0070BE 5850 9010            00010  8056+         L     DIR5,SCTSTART S21003
0070C2 D70F 5000 5000 00000 00000  8057+         XC    Q0(Q16,DIR5),Q0(DIR5) ZERO SCT                 S21003
0070C8 9601 5010      00010        8058+         OI    Q16(DIR5),Q1 SET SCT STOPPER FLAG          S21003
0070CC 47F0 B1B6            07108  8059+         B     WHERE S21003
0070D0                             8060+TYPE60   EQU   * S21003
0070D0 9560 B400      07352        8061+         CLI   TYPE,T60 2260 DEVICE                MH  M1517
0070D4 4770 B186            070D8  8062+         BNE   TYPE77 NO, BRANCH                MH  M1517
0070D8                             8063+TYPE77   EQU   * MH  M1517
0070D8 9577 B400      07352        8064+         CLI   TYPE,T77 Q. CONSOLE A 3277.               CF
0070DC 4770 B1B6            07108  8065+         BNE   TYPE85 NO, BRANCH                       CF
0070E0 4140 C76F            059B0  8066+         LA    DIR4,CCW3277 3277 READ CCWS             MH  M1517
0070E4 5040 B41A            0736C  8067+         ST    DIR4,RDCAW STORE IN READ CAW          MH  M1517
0070E8 4140 C767            059A8  8068+         LA    DIR4,WR327CCW 3277 WRITE CCWS            MH  M1517
0070EC 5040 B416            07368  8069+         ST    DIR4,WRCAW STORE IN WRITE CAW         MH  M1517
0070F0 D202 C768 9001 059A9 00001  8070+         MVC   WR327CCW+Q1(Q3),BUFSTART+Q1 MH  M1517
                                   8071+*        PUT ADDRESS OF BUFFER INTO WRITE CCW                       MH
0070F6 4140 004B            0004B  8072+         LA    DIR4,Q75 LOAD DEVICE LINE LENGTH          MH
0070FA D205 3000 B401 00000 07353  8073+         MVC   Q0(Q6,DIR3),CONTROL MOVE CONTROL CHARACTERS          MH
007100 4133 0006            00006  8074+         LA    DIR3,Q6(DIR3) AND BUMP POINTER                 MH
007104 47F0 B096            06FE8  8075+         B     STORMSG COMPLETE THE PROCESSING          MH
007108                             8076+TYPE85   EQU   *
007108 5850 9010            00010  8077+WHERE    L     DIR5,SCTSTART GET SCT POINTER            MH  M1517
00710C 5050 B4E2            07434  8078+         ST    DIR5,GRADMSG SAVE POINTER               MH  M1517
                                   8079+***********************************************************************
                                   8080+*        SUBSEQUENT ENTRIES                                           *
                                   8081+***********************************************************************
007110 5860 B4EA            0743C  8082+SECOND   L     DIR6,GRSAVE LOAD NIPS CAW                 S21003
007114 9509 6000      00000        8083+         CLI   Q0(DIR6),WRITECCW IS CCW A WRITE                 19029
007118 4780 B26E            071C0  8084+         BE    WRITEMSG YES                            19029
00711C                             8085+WAITA    EQU   * 19029
00711C 4150 B1E0            07132  8086+         LA    DIR5,WAITR GET WRIT RETURN ADDRESS        19029
007120 5050 B492            073E4  8087+         ST    DIR5,NEWPSW+Q4 SAVE IN IO NEW PSW             19029
007124 9856 0078            00078  8088+         LM    DIR5,DIR6,N120 SAVE I/O NEW PSW               19029
007128 D207 0078 B48E 00078 073E0  8089+         MVC   N120(Q8),NEWPSW PUT IN WAIT RETURN             19029
00712E 8200 B496      073E8        8090+         LPSW  WAITPSW WAIT                           19029
007132                             8091+WAITR    EQU   * 19029
007132 9056 0078            00078  8092+         STM   DIR5,DIR6,N120 RESTORE I/O NEW                19029
007136 D501 B4F6 003A 07448 0003A  8093+         CLC   GRUNIT(Q2),CONSINT CONSOLE INTERRUPT              19029
00713C 4780 B1FE            07150  8094+         BE    READRPLY .          YES, READ REPLY            CI A50253
007140 9108 D52B      0676C        8095+         TM    IEASWITC,MVCALL .   Q. MULTI-VOL RTN ACTIVE    CI A50253
007144 4780 B1CA            0711C  8096+         BZ    WAITA .             NO, BRANCH                 CI A50253
007148 9610 D536      06777        8097+         OI    IEASWITE,NCONINT .  INDICATE NON-CONSOLE INT   CI A50253
                                   8098+*                                    BEFORE READ PERFORMED    CI A50253
00714C 47F0 B482            073D4  8099+         B     TPBACK .            RETURN TO MAINLINE         CI A50253
007150                             8100+READRPLY EQU   * .                                            CI A50253
007150 5850 B41A            0736C  8101+         L     DIR5,RDCAW GET CAW                       S21003
007154 5050 B4EE            07440  8102+         ST    DIR5,GRSTART PUT IT INTO SAVE AREA          19029
007158 45F0 B3C2            07314  8103+         BAL   DIR15,EXCP PERFORM IO                     19029
00715C 9550 B400      07352        8104+         CLI   TYPE,T50 2250                          S21003
007160 4770 B21E            07170  8105+         BNE   NO255B NO  BRANCH                    S21003
007164 91A0 B506      07458        8106+         TM    IEARMI,ENTERKEY ENTER FUNCTION                S21003
007168 4780 B1CA            0711C  8107+         BZ    WAITA NO  BRANCH                    S21003
00716C 47F0 B242            07194  8108+         B     IEAENTR YES  BRANCH                   S21003
007170 9585 B400      07352        8109+NO255B   CLI   TYPE,T85 MOD 85                        S21003
007174 4770 B232            07184  8110+         BNE   NO3277 NO, BRANCH                MH  M1517
                                                                                                               PAGE  189


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

007178 91A0 B508      0745A        8111+         TM    IEARMI+Q2,ENTERKEY ENTER FUNCTION                S21003
00717C 47E0 B1CA            0711C  8112+         BNO   WAITA NO, BRANCH                  @SA61354
007180 47F0 B242            07194  8113+         B     IEAENTR YES, HANDLE               MH  M1517
007184 9577 B400      07352        8114+NO3277   CLI   TYPE,T77 3277 DEVICE                MH  M1517
007188 4770 B242            07194  8115+         BNE   IEAENTR NO, ASSUME 2260 ENTER     MH  M1517
00718C 957D B506      07458        8116+         CLI   IEARMI,ANRENTER ENTER KEY                  MH  M1517
007190 4770 B1CA            0711C  8117+         BNE   WAITA NO, WAIT AGAIN            MH  M1517
007194                             8118+IEAENTR  EQU   * 19029
007194 4120 D6FB            0693C  8119+         LA    DIR2,ANSRAREA POINT TO REPLY                  19029
007198 4140 D74A            0698B  8120+         LA    DIR4,ANSRAREA+N79 POINT TO POSSIBLE END OF REPLY 19029
00719C                             8121+BLNKLOOP EQU   * 19029
00719C 9540 4000      00000        8122+         CLI   Q0(DIR4),BLANK IS THIS CHAR A BLANK            19029
0071A0 4770 B264            071B6  8123+         BNE   COMPLGTH NO COMPUTE LENGTH               19029
0071A4 0640                        8124+         BCTR  DIR4,Q0 DECREMENT POINTER              19029
0071A6 1924                        8125+         CR    DIR2,DIR4 IS REPLY EOB                    19029
0071A8 4770 B24A            0719C  8126+         BNE   BLNKLOOP NO CHECK NEXT CHARACTER         19029
0071AC 4840 B41E            07370  8127+         LH    DIR4,DCMAXLGN YES SET MAX LENGTH OF LINE      19029
0071B0 0640                        8128+         BCTR  DIR4,Q0 DECREMENT BY ONE               19029
0071B2 47F0 B27E            071D0  8129+         B     DISPLAY DISPLAY PEPLY                   19029
0071B6                             8130+COMPLGTH EQU   * 19029
0071B6 1B42                        8131+         SR    DIR4,DIR2 GET LENGTH OF REPLY             19029
0071B8 4144 0001            00001  8132+         LA    DIR4,Q1(DIR4) CORRECT LENGTH                 19029
0071BC 47F0 B27E            071D0  8133+         B     DISPLAY DISPLAY REPLY                   19029
                                                                                                               PAGE  190


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0071C0                             8135+WRITEMSG EQU   * 19029
0071C0 5860 B4EA            0743C  8136+         L     DIR6,GRSAVE GET CAW                        19029
0071C4 4846 0006            00006  8137+         LH    DIR4,Q6(DIR6) GET LENGTH TO WRITE            19029
0071C8 5826 0000            00000  8138+         L     DIR2,Q0(DIR6) POINT WHERE TO WRITE FRON      19029
0071CC 4122 0000            00000  8139+         LA    DIR2,Q0(DIR2) ZERO OUT OP CODE               19029
0071D0                             8140+DISPLAY  EQU   * 19029
0071D0 5850 B4E2            07434  8141+         L     DIR5,GRADMSG POINT TO CURRENT SCT ADDR      19029
0071D4 5830 9014            00014  8142+         L     DIR3,LASTSCT POINT TO LAST SCT ADDR        S21003
0071D8 41F0 B290            071E2  8143+         LA    DIR15,CHECKLGN POINT RETURN REG               19029
0071DC 1953                        8144+         CR    DIR5,DIR3 ANY ROOM ON SCREEN             19029
0071DE 4720 B35A            072AC  8145+         BH    MOVEWTO NO MOVE ALL UP ONE LINE        19029
0071E2                             8146+CHECKLGN EQU   * 19029
0071E2 4860 B41E            07370  8147+         LH    DIR6,DCMAXLGN GET MAX DEVICE LINE            19029
0071E6 0660                        8148+         BCTR  DIR6,Q0 DECREMENT                      19029
0071E8 1946                        8149+         CR    DIR4,DIR6 LENGTH GREATER THAN ONE LINE   19029
0071EA 47D0 B324            07276  8150+         BNH   MOVEIN NO MOVE INTO DCM               19029
0071EE 9101 5002      00002        8151+         TM    Q2(DIR5),DCMMSGST IS A SECOND LINE FREE          19029
0071F2 47E0 B2B6            07208  8152+         BNO   SPLITMSG YES SPLIT MESSAGE              19029
0071F6 45F0 B35A            072AC  8153+         BAL   DIR15,MOVEWTO NO MOVE UP ALL WTOS            19029
0071FA 4B50 B4E8            0743A  8154+         SH    DIR5,H2 GO TO NEXT TO LAST SCT ENTRY   19029
0071FE D701 5000 5000 00000 00000  8155+         XC    Q0(Q2,DIR5),Q0(DIR5) CLEAR IT                      19029
007204 5050 B4E2            07434  8156+         ST    DIR5,GRADMSG SAVE IT                        19029
007208                             8157+SPLITMSG EQU   * 19029
007208 4860 B41E            07370  8158+         LH    DIR6,DCMAXLGN GET MAX LINE LENGTH            19029
00720C 4166 2000            00000  8159+         LA    DIR6,Q0(DIR6,DIR2) POINT TO MAX CHAR LENGTH       19029
007210 0660                        8160+         BCTR  DIR6,Q0 DECREMENT DIR6 BY ONE          19029
007212 1876                        8161+         LR    DIR7,DIR6 SAVE THIS ADDRESS              19029
007214 48A0 B4F2            07444  8162+         LH    DIR10,GREIGHT GET LOOP CONTROL               19029
007218                             8163+SPLOOP   EQU   * 19029
007218 956B 6000      00000        8164+         CLI   Q0(DIR6),COMMA THIS CHAR A COMMA              19029
00721C 4780 B2DE            07230  8165+         BE    SPLIT YES CALCULATE SPLIT POINT      19029
007220 9540 6000      00000        8166+         CLI   Q0(DIR6),BLANK A BLANK                        19029
007224 4780 B2DE            07230  8167+         BE    SPLIT YES SPLIT                      19029
007228 0660                        8168+         BCTR  DIR6,Q0 GO BACK ONE CHARACTER          19029
00722A 46A0 B2C6            07218  8169+         BCT   DIR10,SPLOOP LOOP                           19029
00722E 1867                        8170+         LR    DIR6,DIR7 NO SPLIT POINT FOUND RESET MAX 19029
007230                             8171+SPLIT    EQU   * 19029
007230 4175 0004            00004  8172+         LA    DIR7,Q4(DIR5) POINT TO END MSG               19029
007234 5830 9010            00010  8173+         L     DIR3,SCTSTART POINT TO BEGIN SCT            S21003
007238 9648 5000      00000        8174+         OI    Q0(DIR5),DCMMSGIN+DCMMSGAD 19029
00723C 9648 5002      00002        8175+         OI    Q2(DIR5),DCMMSGIN+DCMMSGAD 19029
007240 1B53                        8176+         SR    DIR5,DIR3 GET DISPLACEMENT IN SCT        19029
007242 8850 0001            00001  8177+         SRL   DIR5,Q1 DIVIDE BY 2                    19029
007246 4C50 B426            07378  8178+         MH    DIR5,DCMLGNTH MULTIPLY BY SCREEN LENGTH      19029
00724A 58A0 9004            00004  8179+         L     DIR10,MSGSTART POINT TO BEGIN MSG AREA       S21003
00724E 1A5A                        8180+         AR    DIR5,DIR10 GET DISPLACEMENT               19029
007250 18A6                        8181+         LR    DIR10,DIR6 SAVE SPLIT POINT               19029
007252 1BA2                        8182+         SR    DIR10,DIR2 SUBTRACT TO FIND MOVE LENGTH   19029
007254 44A0 B34E            072A0  8183+         EX    DIR10,HALF1 MOVE INTO DCM                  19029
007258 924F 5002      00002        8184+         MVI   Q2(DIR5),SLASH MARK AS AUTO DELETEABLE        19029
00725C 4A50 B426            07378  8185+         AH    DIR5,DCMLGNTH INCREMENT LINE POINTER         19029
007260 1B4A                        8186+         SR    DIR4,DIR10 SUB FIRST HALF LENGTH          19029
007262 4B40 B4E8            0743A  8187+         SH    DIR4,H2 DECREMENT FOR MOVE             19029
007266 4A60 B514            07466  8188+         AH    DIR6,H1 POINT TO NEXT CHAR AFTER SPLIT 19029
00726A 4440 B354            072A6  8189+         EX    DIR4,HALF2 MOVE SECOND HALF IN            19029
                                                                                                               PAGE  191


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00726E 924F 5002      00002        8190+         MVI   Q2(DIR5),SLASH FLAG AS A D                    19029
007272 47F0 B398            072EA  8191+         B     WRITE WRITE MSG                      19029
007276                             8192+MOVEIN   EQU   * 19029
007276 4175 0002            00002  8193+         LA    DIR7,Q2(DIR5) UP SCT POINTER                 19029
00727A 9648 5000      00000        8194+         OI    Q0(DIR5),DCMMSGIN+DCMMSGAD INDICATE AUTO DEL       19029
00727E 5830 9010            00010  8195+         L     DIR3,SCTSTART POINT TO FIRST MSG SCT        S21003
007282 1B53                        8196+         SR    DIR5,DIR3 GET DIFFERENCE                 19029
007284 8850 0001            00001  8197+         SRL   DIR5,Q1 DIVIDE BY TWO                  19029
007288 4C50 B426            07378  8198+         MH    DIR5,DCMLGNTH GET DISPLACEMENT               19029
00728C 5830 9004            00004  8199+         L     DIR3,MSGSTART POINT TO LINE ONE             S21003
007290 1A53                        8200+         AR    DIR5,DIR3 GET CORRECT LINE               19029
007292 0640                        8201+         BCTR  DIR4,Q0 DECREMENT FOR MOVE             19029
007294 4440 B34E            072A0  8202+         EX    DIR4,HALF1 MOVE IN MESSAGE                19029
007298 924F 5002      00002        8203+         MVI   Q2(DIR5),SLASH FLAG AS AD                     19029
00729C 47F0 B398            072EA  8204+         B     WRITE GO DO IO                       19029
0072A0                             8205+HALF1    EQU   * 19029
0072A0 D200 5004 2000 00004 00000  8206+         MVC   Q4(Q0,DIR5),Q0(DIR2) MOVE FIRST HALF MSG IN DCM19029
0072A6                             8207+HALF2    EQU   * 19029
0072A6 D200 5005 6000 00005 00000  8208+         MVC   Q5(Q0,DIR5),Q0(DIR6) SECOND HALF MOVE          19029
0072AC                             8209+MOVEWTO  EQU   * 19029
0072AC 4150 0007            00007  8210+         LA    DIR5,Q7 GET LOOP CONTROL           MH  M1517
0072B0 5860 9004            00004  8211+         L     DIR6,MSGSTART GET LINE ONE ADDRESS          S21003
0072B4 4830 B426            07378  8212+         LH    DIR3,DCMLGNTH GET LENGTH                     19029
0072B8 0630                        8213+         BCTR  DIR3,Q0 DECREMENT BY ONE               19029
0072BA                             8214+MOVEUP   EQU   * 19029
0072BA 1876                        8215+         LR    DIR7,DIR6 GET POINTER TO LINE            19029
0072BC 4A70 B426            07378  8216+         AH    DIR7,DCMLGNTH GO TO NEXT LINE                19029
0072C0 4430 B392            072E4  8217+         EX    DIR3,ROLLMOVE MOVE UP MSG                    19029
0072C4 4A60 B426            07378  8218+         AH    DIR6,DCMLGNTH GO TO NEXT LINE                19029
0072C8 4650 B368            072BA  8219+         BCT   DIR5,MOVEUP LOOP TILL ALL MOVED            19029
0072CC 4170 DA35            06C76  8220+         LA    DIR7,IEABLNCS POINT TO BLANKING AREA     MH  M1517
0072D0 4430 B392            072E4  8221+         EX    DIR3,ROLLMOVE BLANK LAST LINE            MH  M1517
0072D4 5850 9014            00014  8222+         L     DIR5,LASTSCT GET LAST SCT ADDRESS          S21003
0072D8 D701 5000 5000 00000 00000  8223+         XC    Q0(Q2,DIR5),Q0(DIR5) CLEAR IT                      19029
0072DE 5050 B4E2            07434  8224+         ST    DIR5,GRADMSG SAVE IT                       19029
0072E2 07FF                        8225+         BR    DIR15 EXIT TO CALLER                 19029
0072E4                             8226+ROLLMOVE EQU   * 19029
0072E4 D200 6000 7000 00000 00000  8227+         MVC   Q0(Q0,DIR6),Q0(DIR7) MOVE TO ROLL WTOS             19029
0072EA                             8228+WRITE    EQU   * 19029
0072EA 5070 B4E2            07434  8229+         ST    DIR7,GRADMSG SAVE NEXT LINE POINTER         19029
0072EE 5850 B416            07368  8230+         L     DIR5,WRCAW LOAD CAW POINTER              S21003
0072F2 9577 B400      07352        8231+         CLI   TYPE,T77 MH  M1517
0072F6 4780 B3B2            07304  8232+         BE    GORF MH  M1517
0072FA 9201 5008      00008        8233+         MVI   8(5),X'01' RESTORE                       S21003
0072FE D202 5009 9001 00009 00001  8234+         MVC   9(3,5),1(9) WRITE CCW                     S21003
007304                             8235+GORF     EQU   * MH  M1517
007304 45F0 B3BE            07310  8236+         BAL   DIR15,PREEXCP DO IO                          19029
007308 9200 C76B      059AC        8237+         MVI   WR327CCW+Q4,Q0 BREAK COMMAND CHAIN        MH  M1517
00730C 47F0 B482            073D4  8238+         B     TPBACK EXIT                           19029
007310                             8239+PREEXCP  EQU   * 19029
007310 5050 B4EE            07440  8240+         ST    DIR5,GRSTART 19029
                                                                                                               PAGE  192


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

007314                             8242+EXCP     EQU   * ROUTINE TO EXCP AND WAIT ON I/O
007314 900F B42A            0737C  8243+         STM   R0,R15,XCPSAVRG SAVE ALL REGISTERS               MCS0
007318 1818                        8244+         LR    R1,R8 GET ADDR OF PARM LIST IN REG1    MCS0
00731A 5800 B4EE            07440  8245+         L     R0,GRSTART GET CCW CHAIN ADDR               MCS0
00731E 5870 C5FF            05840  8246+         L     R7,EXCPVCON GET PTR TO I/O HANDLER ROUTINE   MCS0
007322 05E7                        8247+         BALR  R14,R7 GO TO I/O ROUTINE                MCS0
007324 47FF B3D6            07328  8248+         B     *+Q4(R15) BRANCH TABLE                     MCS0
007328 47F0 B3DE            07330  8249+         B     EXCPSTGD GOOD START                       MCS0
00732C 47F0 B46A            073BC  8250+         B     XCPIOERR BAD START                        MCS0
007330 980F B42A            0737C  8251+EXCPSTGD LM    R0,R15,XCPSAVRG RESTORE REGISTERS                MCS0
007334 07FF                        8252+         BR    R15 RETURN                           MCS0
007336 2A822A0240000FFF            8253+REGEN    DC    X'2A822A0240000FFF2A44' S21003
007340 2A02400000A02A40            8254+EAORDER  DC    X'2A02400000A02A40' S21003
007348 2AFF0000                    8255+TRORDER  DC    X'2AFF0000' S21003
00734C D200 5000 DA35 00000 06C76  8256+BLANKIT  MVC   0(0,5),IEABLNCS S21003
007352 00                          8257+TYPE     DC    X'00' S21003
007353 40115D7F1D60                8258+CONTROL  DC    X'40115D7F1D60' WCC-SBA-A1-A2-SF-ATT       MH  M1517
007359 3C5AD140                    8259+BLANKT   DC    X'3C5AD140' RA-A1-A2-B                 MH  M1517
00735D C3115AD11D40133C            8260+RESTOR   DC    X'C3115AD11D40133C5D7F40' MH  M1517
                                   8261+*              WCC-SBA-A1-A2-SF-AT-IC-RA-A1-A2-B              MH  M1517
007368                             8262+WRCAW    DS    F S21003
00736C                             8263+RDCAW    DS    F S21003
007370                             8264+DCMAXLGN DS    H S21003
007374                             8265+IEAMAIN  DS    F S21003
007378 0000                        8266+DCMLGNTH DC    H'0' LENGTH OF A LINE              S21003
00737C                             8267+XCPSAVRG DS    16F SAVE AREA                        MCS0
0073BC                             8268+XCPIOERR EQU   * ERROR CONDITION                  MCS0
0073BC 980F B42A            0737C  8269+         LM    R0,R15,XCPSAVRG REFRESH THE REGISTERS            MCS0
0073C0 48A8 0006            00006  8270+         LH    R10,Q6(R8) SET ADDR OF UCB IN REG 10        MCS0
0073C4 48AA 0004            00004  8271+         LH    R10,Q4(R10) PUT DEVICE ADDR IN REG 10        MCS0
0073C8 4110 B51E            07470  8272+         LA    R1,XCP68BYT PUT IOB ADDRESS IN REGISTER 1   MCS0
0073CC 9221 CFE6      06227        8273+         MVI   ERRBUF,X'21' CONSOLE ERROR ON TP OR GRAPHICS MCS0
0073D0 8200 CFDF      06220        8274+         LPSW  IEAWAIT LOAD WAIT STATE                  MCS0
                                                                                                               PAGE  193


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0073D4 980F B49E            073F0  8276+TPBACK   LM    R0,R15,SIOSAVE RESTORE REGS                    MCS0
0073D8 58B1 0008            00008  8277+         L     R11,Q8(R1) RETRIEVE NIPS BASE
0073DC 07FF                        8278+         BR    R15 EXIT TO MAIN
                                                                                                               PAGE  194


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8280+***                                                                 ***
                                   8281+*              START OF CONSTANTS AND WORK AREAS                      *
                                   8282+***                                                                 ***
0073E0                             8283+         DS    0D
0073E0 00000000                    8284+NEWPSW   DC    XL4'00' I/O PSW FOR ATTN                MD85
0073E4 00007132                    8285+         DC    A(WAITR) RETURN                     MD85
0073E8 FF020000                    8286+WAITPSW  DC    X'FF020000' WAIT STATE PSW                  MD85
0073EC 00000000                    8287+         DC    A(0) MD85
0073F0 0000000000000000            8288+SIOSAVE  DC    16F'0' REGISTER SAVE AREA              MCS0
007430 00000000                    8289+GRWORK   DC    F'0' WORK AREA                       MD85
007434 00000000                    8290+GRADMSG  DC    F'0' SCT PTR - FREE MSG LINE         MD85
007438 0100                        8291+TWO56    DC    H'256' LENGTH OF BUFFER SECTION 2250  19029
00743A 0002                        8292+H2       DC    H'2' DECREMENT FOR SCT           MD85
00743C 00000000                    8293+GRSAVE   DC    F'0' CAW SAVE AREA               MD85
007440 00000000                    8294+GRSTART  DC    F'0' SAVE AREA FOR CCW ADDR           MCS0
007444 0008                        8295+GREIGHT  DC    H'08' MD85
007446 0028                        8296+GRFORTY  DC    H'0040' CONVERT SCT ENTRT TO MSG LINE   MD85
007448 0000                        8297+GRUNIT   DC    H'0' UNIT ADDRESS SAVE AREA          MD85
00744A 0D96                        8298+SCRLGNTH DC    H'3478' SCREEN LENGTH 2250             19029
00744C 0280                        8299+MSG2260  DC    H'640' MESSAGE AREA LENGTH 2260       19029
00744E 0960                        8300+MSG220C  DC    H'2400' LENGTH OF MSG AREA 220C        19029
007450 0000                        8301+IEA5BUF  DC    H'0' ZERO START ADDRESS             19029
007452 000A                        8302+H10      DC    H'10' TEN                            19029
007454 02AC                        8303+IEA5ENT  DC    X'02AC' EA BUFFER ADDRESS             S21003
007456 2000                        8304+IEACBUF  DC    H'8192' 19029
007458 00000000                    8305+IEARMI   DC    F'0' 19029
00745C 09                          8306+IEA6BUF  DC    X'09' 2260 ENTRY AREA LINE ADDRESS   19029
00745D 094A                        8307+IEA6ENT  DC    X'094A' 2260 ENTRY AREA AND SOM SYMBOL 19029
00745F 40404040                    8308+GRBLNCS  DC    X'40404040' BLANKS                         19029
007463 00
007464 0000                        8309+IEAZIP   DC    H'00' BUFFER ADDRESS LINE ONE 220C   19029
007466 0001                        8310+H1       DC    H'1' CONSTANT                       19029
007468 0050                        8311+GREATY   DC    H'80' LENGTH OF ONE MSG LINE          MD85
000002                             8312+TP1TIME  EQU   2 FIRST TIME TP SWITCH            MCS0
                                                                                                               PAGE  195


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

007470                             8314+         DS    0D MCS0
007470 0000000000000000            8315+XCP68BYT DC    104X'00' CONTROL BLOCK AREA               MCS0
0074D8                             8316+IEAEXCP  EQU   *
                                   8317+***********************************************************************
                                   8318+*                                                                     *
                                   8319+*TITLE:  IEEXCP                                                       *
                                   8320+*                                                                     *
                                   8321+*STATUS: CHANGE LEVEL 000                                             *
                                   8322+*                                                                     *
                                   8323+*FUNCTION/OPERATION: A ROUTINE WHICH WILL INITIALIZE THE NECESSARY    *
                                   8324+*        CONTROL BLOCKS AND ISSUE AN EXCP. IT WILL WAIT ON THAT EXCP  *
                                   8325+*        AND RETURN A COMPLETION CODE TO THE CALLER. STANDARD LINKAGE *
                                   8326+*        CONVENTIONS ARE ASSUMED.                                     *
                                   8327+*                                                                     *
                                   8328+*INPUT:  REGISTER 0 WILL POINT TO THE UCB FOR THE DEVICE THE CALLER   *
                                   8329+*        WISHES THE EXCP FOR.                                         *
                                   8330+*        REGISTER 1 WILL POINT TO AN AREA OF STORAGE 112 BYTES LONG,ON*
                                   8331+*        A DOUBLE WORD BOUNDARY,AND ZEROED THE FIRST TIME THE USER    *
                                   8332+*        CALLS THIS ROUTINE.                                          *
                                   8333+*                                                                     *
                                   8334+*OUTPUT: REGISTER 15 WILL CONTAIN A RETURN CODE TO THE CALLER.        *
                                   8335+*        0 - THE EXCP WAS GOOD                                        *
                                   8336+*        4 - THE EXCP WAS NOT SUCCESSFUL                              *
                                   8337+*                                                                     *
                                   8338+*EXTERNAL ROUTINES: NONE                                              *
                                   8339+*                                                                     *
                                   8340+*EXITS - NORMAL: THE ONLY NORMAL EXIT FROM THIS ROUTINE WILL BE AFTER *
                                   8341+*        THE EXCP IS EXECUTED AND THE RETURN CODE SET                 *
                                   8342+*      - ERRORS: AN ABNORMAL EXIT WILL OCCUR IF THE USER ALTERS ANY   *
                                   8343+*              AREA OF THE CONTROL BLOCK FIELD AFTER THE INITIAL ENTRY*
                                   8344+*              TO THIS MODULE OR POSSIBILY IF THE ENTIRE CONTROL      *
                                   8345+*              BLOCK FIELD IS NOT ZERO ON THE INITIAL ENTRY.          *
                                   8346+*                                                                     *
                                   8347+*TABLES AND WORK AREAS: THE CONTROL BLOCKS DCB,ECB,DEB,AND IOB,AND THE*
                                   8348+*        CCW PROGRAM WILL BE BUILT IN THE AREA SUPPLIED BY THE CALLER *
                                   8349+*        (SEE INPUTS) THE ROUTINE WILL USE THE UCB (SUPPLIED BY USER- *
                                   8350+*        SEE INPUTS) TO BUILD THESE BLOCKS.                           *
                                   8351+*                                                                     *
                                   8352+*ATTRIBUTES:   REENTRANT                                              *
                                   8353+*                                                                     *
                                   8354+*NOTES:  THE USER OF THIS ROUTINE SHOULD NOT USE AN NAMES WHICH BEGIN *
                                   8355+*        WITH XCP TO AVOID MULTIPLE DEFINITION. ERROR CHECKING HAS    *
                                   8356+*        BEEN INTENTIONALLY LEFT OUT OF THIS ROUTINE.                 *
                                   8357+*        IT IS ASSUMED THAT THE DEVICE TO BE TESTED IS READY.         *
                                   8358+*                                                                     *
                                   8359+***********************************************************************
                                   8360+***********************************************************************
                                   8361+*
                                   8362+*       REGISTERS  USED
                                   8363+*
                                   8364+***********************************************************************
000000                             8365+XCPARM1  EQU   0 PARM PTR TO UCB
000001                             8366+XCPDB    EQU   1 REG PTR TO CONTROL BLOCK AREA
000002                             8367+XCPUCB   EQU   2 PTR TO UCB FOR INDEXING
000003                             8368+XCPBIN   EQU   3 REG FOR 2321 BIN NUMBER
                                                                                                               PAGE  196


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000003                             8369+XCPWORK  EQU   3 GENERAL WORK REG.
000004                             8370+XCPCEL   EQU   4 REG. INDICATOR FOR A 2321
000005                             8371+XCPBK    EQU   5 REG PTR TO CONTROL BLOCK AREA
000006                             8372+XCPBADRG EQU   6 REG FOR BRANCH TO XCPBAD CODE
000008                             8373+XCP321   EQU   8 REG FOR RECOGNIZATION OF DATCELL
000009                             8374+XCPNINE  EQU   9 REG FOR LOOP CONTROL ON DATACELL
00000C                             8375+XCPBA    EQU   12 BASE REG.
00000F                             8376+XCPRECOD EQU   15 RETURN CODE REG.
                                   8377+***********************************************************************
                                   8378+*
                                   8379+*       OTHER VALUES
                                   8380+*
                                   8381+***********************************************************************
000000                             8382+XCP0     EQU   0 INDEXING BY 0
000001                             8383+XCP1     EQU   1 INDEXING BY 1
000002                             8384+XCP2     EQU   2 INDEXING BY 2
000003                             8385+XCP3     EQU   3 INDEXING BY 3
000004                             8386+XCP4     EQU   4 INDEXING BY 4
000007                             8387+XCP7     EQU   7 VALUE FOR BRANCH CONDITION
000008                             8388+XCP8     EQU   8 VALUE FOR BRANCH CONDITION
000009                             8389+XCP9     EQU   9 VALUE FOR BIN COMPARE
000010                             8390+XCP16    EQU   16 INDEXING BY 16
000012                             8391+XCP18    EQU   18 INDEXING BY 18
000013                             8392+XCP19    EQU   19 INDEXING BY 19
000028                             8393+XCP40    EQU   40 INDEXING BY 40
000141                             8394+XCPN321  EQU   321 VALUE FOR DATA CELL COMPARE
000000                             8395+XCP00    EQU   X'00' FOR IMMEDIATE INSTRUCTIONS
000001                             8396+XCP01    EQU   X'01' FOR IMMEDIATE INSTRUCTIONS
000002                             8397+XCP02    EQU   X'02' FOR IMMEDIATE INSTRUCTIONS
000003                             8398+XCP03    EQU   X'03' FOR IMMEDIATE INSTRUCTIONS
000004                             8399+XCP04    EQU   X'04' FOR IMMEDIATE INSTRUCTIONS
000005                             8400+XCP05    EQU   X'05' FOR IMMEDIATE INSTRUCTIONS
00000C                             8401+XCP0C    EQU   X'0C' FOR IMMEDIATE INSTRUCTIONS
00000F                             8402+XCP0F    EQU   X'0F' FOR IMMEDIATE INSTRUCTIONS
000014                             8403+XCP14    EQU   X'14'
000020                             8404+XCP20    EQU   X'20' FOR IMMEDIATE INSTRUCTIONS
00007F                             8405+XCP7F    EQU   X'7F' FOR IMMEDIATE INSTRUCTIONS
000080                             8406+XCP80    EQU   X'80' FOR IMMEDIATE INSTRUCTIONS
0074D8 05C0                        8407+         BALR  XCPBA,XCP0 ESTABLISH ADDRESSABILITY
0074DA                             8408+         USING *,XCPBA
0074DA 5851 000C            0000C  8409+         L     XCPBK,Q12(XCPDB) LOAD BASE FOR CONTROL BLOCKS     MCS0
000000                             8410+         USING XCPROG,XCPBK ESTABLISH ADDR. FOR BLK AREA
0074DE 4821 0006            00006  8411+         LH    XCPUCB,Q6(XCPDB) LOAD UCB PTR                     MCS0
0074E2 9101 D534      06775        8412+         TM    IEASWITD,XCPBSWIT TEST FOR PREVIOUS USE OF BLOCK  MCS0
0074E6 4710 C054            0752E  8413+         BO    XCPUSED IF ON, THEN NO INITIALIZATION    MCS0
0074EA 9601 D534      06775        8414+         OI    IEASWITD,XCPBSWIT TURN INITIALIZE BIT OFF         MCS0
0074EE D767 5000 5000 00000 00000  8415+         XC    XCPDCB(XCPCBSIZ),XCPDCB ZERO CONTROL BLOCK FIELD    MCS0
                                   8416+***********************************************************************
                                   8417+*
                                   8418+*   SET UP DEB FIELDS
                                   8419+*
                                   8420+***********************************************************************
0074F4 9201 5048      00048        8421+         MVI   XCPDBNXT,XCP01 FILL NO. OF EXTENTS FLD IN DEB
0074F8 5050 5050            00050  8422+         ST    XCPBK,XCPDBPID STORE PTR TO DCB INTO DEB
0074FC 920F 5050      00050        8423+         MVI   XCPDBPID,XCP0F FILL PROTECTION KEY DEB ID FIELD
                                                                                                               PAGE  197


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

007500 5830 0010            00010  8424+         L     XCPWORK,XCP16 GET PTR TO CVT FIELD AND MOVE IN
007504 D203 5054 3014 00054 00014  8425+         MVC   XCPDBEXS(XCP4),XCP14(XCPWORK) PTR TO IOS APPD. TABLE
00750A 5020 5058            00058  8426+         ST    XCPUCB,XCPDBMOD PUT PTR TO UCB IN DEB
00750E 9200 5058      00058        8427+         MVI   XCPDBMOD,XCP00 ZERO DEBDVMOD FLD IN DEB EXTENT
                                   8428+*****M***M*************************************************************
                                   8429+*
                                   8430+*   SET UP DCB FIELDS
                                   8431+*
                                   8432+***********************************************************************
007512 4130 5038            00038  8433+         LA    XCPWORK,XCPDEB GET ADDR. OF DEB
007516 5030 502C            0002C  8434+         ST    XCPWORK,XCPDCIFL SET UP PTR TO DEB IN DCB
00751A 920C 502C      0002C        8435+         MVI   XCPDCIFL,XCP0C DCBIFLGS-NEVER USE IOS ERR RTNS
                                   8436+***********************************************************************
                                   8437+*
                                   8438+*   SET UP IOB FIELD
                                   8439+*
                                   8440+***********************************************************************
00751E 9242 5000      00000        8441+         MVI   XCPIBFG1,X'42' IOBFLAG1-IOB UNRELATED
007522 4130 5034            00034  8442+         LA    XCPWORK,XCPECB ADDR. OF ECB
007526 5030 5004            00004  8443+         ST    XCPWORK,XCPIBCC STORE PTR TO ECB INTO IOB
00752A 5050 5014            00014  8444+         ST    XCPBK,XCPIBRES STORE PTR TO DCB INTO IOB
                                   8445+***********************************************************************
                                   8446+*
                                   8447+*   END OF SPECIAL SETUP FOR FIRST TIME THROUGH
                                   8448+*   BEGIN OF COMMON CODE FOR EVERY TIME THROUGH
                                   8449+*
                                   8450+*********M*************************************************************
00752E D202 5002 5031 00002 00031  8451+XCPUSED  MVC   XCPIBSEN(XCP3),XCPDCOFL+XCP1 SET IOB SENSE/CC BYTES ZER
007534 5000 5010            00010  8452+         ST    R0,XCPIBSIO STORE PTR TO CCW IN IOB          MCS0
007538 D703 5034 5034 00034 00034  8453+         XC    XCPECB(XCP4),XCPECB ZERO OUT THE ECB FIELD
00753E 4180 0141            00141  8454+         LA    XCP321,XCPN321 LOAD REG FOR LATER COMPARISON
007542 4160 C0FA            075D4  8455+         LA    XCPBADRG,XCPBAD ADDR OF XCPBAD FOR BRANCHING
007546 9520 2012      00012        8456+         CLI   XCP18(XCPUCB),XCP20 IS THIS A DIRECT ACCESS DEVICE
00754A 4780 C07C            07556  8457+         BE    XCPSETUP YES-SET UP DA DEPENDENT FIELDS
00754E 9202 5054      00054        8458+         MVI   XCPDBEXS,XCP02 NO-SET NONDA EXTENT LENGTH FIELD
007552 47F0 C0C8            075A2  8459+         B     XCPGO FIELDS ARE SET - ISSUE EXCP
007556 9204 5054      00054        8460+XCPSETUP MVI   XCPDBEXS,XCP04 SET DA EXTENT LENGTH FIELD
00755A 9201 5066      00066        8461+         MVI   XCPDBTRK,XCP01 NO.TRK ALLOCATED IN EXTENT
00755E D202 5021 5020 00021 00020  8462+         MVC   XCPIBSEK+XCP1(XCP3),XCPIBSEK SET BIN PTR IN IOB TO ZERO
007564 D201 505C 5020 0005C 00020  8463+         MVC   XCPDBBIN(XCP2),XCPIBSEK SET BIN PTR IN DEB TO ZERO
00756A 9505 2013      00013        8464+         CLI   XCP19(XCPUCB),XCP05 IS THIS A DATA CELL
00756E 4770 C0C8            075A2  8465+         BNE   XCPGO NO - DA FLDS SET-ISSUE EXCP
007572 4140 0141            00141  8466+         LA    XCPCEL,XCPN321 YES - SET REG FOR DATA CELL
007576 4190 0009            00009  8467+         LA    XCPNINE,XCP9 LOAD REG FOR COMPARISON
00757A 1B33                        8468+         SR    XCPWORK,XCPWORK SET UP BIN NUMBER
00757C 0630                        8469+         BCTR  XCPWORK,XCP0 MOVE NEG. ONE INTO REG FOR BIN.
00757E 4122 0028            00028  8470+         LA    XCPUCB,XCP40(XCPUCB) LOAD ADDR.'TO BIN 0 IN UCB
007582 4122 0010            00010  8471+XCPONOFF LA    XCPUCB,XCP16(XCPUCB) SET TO NEXT BIN ADDR.
007586 4133 0001            00001  8472+         LA    XCPWORK,XCP1(XCPWORK) ELSE UPDATE PTR REG
00758A 9180 2003      00003        8473+         TM    XCP3(XCPUCB),XCP80 TEST ON/OFF LINE STATUS IN UCB
00758E 4710 C0C0            0759A  8474+         BO    XCPGODAT IF ONLINE-THEN GO TO EXCP
007592 1539                        8475+         CLR   XCPWORK,XCPNINE NOT ONLINE-TEST FOR ANOTHER BIN
007594 0786                        8476+         BCR   XCP8,XCPBADRG IF NO MORE BINS RETURN ERR CODE
007596 47F0 C0A8            07582  8477+         B     XCPONOFF CHECK FOR ON/OFF LINE BIT
00759A 4030 505C            0005C  8478+XCPGODAT STH   XCPBIN,XCPDBBIN RESTORE UPDATED BIN NUMBER DEB
                                                                                                               PAGE  198


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00759E 4030 5022            00022  8479+         STH   XCPBIN,XCPIBSEK+XCP2 RESTORE UPDATED BIN NUMBER IOB
0075A2 1815                        8480+XCPGO    LR    1,XCPBK LOAD PARAMETER REG 1
0075A4 0A00                        8481+         SVC   0 ISSUE SVC FOR EXCP
0075A6 4110 5034            00034  8482+         LA    1,XCPECB LOAD PARAMETER REG 1
0075AA 4100 0001            00001  8483+         LA    0,1(0,0) COUNT OMITTED,1 USED
0075AE 0A01                        8484+         SVC   1 LINK TO WAIT ROUTINE
0075B0 8000 C0D7      075B1        8485+XCPSSM   SSM   XCPSSM+1
0075B4 957F 5034      00034        8486+         CLI   XCPECB,XCP7F IS IT A GOOD COMPLETION?
0075B8 4780 C102            075DC  8487+         BE    XCPGOOD YES-RETURN CODE 0 TO CALLER
0075BC 1548                        8488+         CLR   XCPCEL,XCP321 NO-IS IT A DATA CELL?
0075BE 0776                        8489+         BCR   XCP7,XCPBADRG NO-RETURN CODE 4 TO CALLER
0075C0 9502 500C      0000C        8490+         CLI   XCPIBCSW+XCP3,XCP02 YES-IS IT A UNIT CHECK?
0075C4 0776                        8491+         BCR   XCP7,XCPBADRG NO-THEN RETURN BAD CODE
0075C6 9101 5002      00002        8492+         TM    XCPIBSEN,XCP01 YES-IS IT A SEEK CHECK?
0075CA 0786                        8493+         BCR   XCP8,XCPBADRG NO-RETURN BAD CODE
0075CC 9102 5003      00003        8494+         TM    XCPIBSEN+XCP1,XCP02 YES-IS IT A BALLAST CELL?
0075D0 4710 C0A8            07582  8495+         BO    XCPONOFF YES-GO TO CHECK FOR MORE CELLS
0075D4 41F0 0004            00004  8496+XCPBAD   LA    XCPRECOD,XCP4 LOAD BAD RETURN CODE INTO REG
0075D8 47F0 C104            075DE  8497+         B     XCPRTURN GO TO RETURN
0075DC 1BFF                        8498+XCPGOOD  SR    XCPRECOD,XCPRECOD LOAD GOOD RETURN CODE INTO REG
0075DE 07FE                        8499+XCPRTURN BR    R14 RETURN                           MCS0
                                   8500+         DROP  XCPBK
                                   8501+         DROP  XCPBA
005241                             8502+         USING IEACONBS,R12 P2412
0075E0                             8503+IEAENDNP EQU   * *** END OF EXECUTABLE CODE ***       MCS0


000000                             8505+DCM      DSECT  19029
000000                             8506+BUFSTART DS    F S21003
000004                             8507+MSGSTART DS    F S21003
000008                             8508+LASTMSG  DS    F S21003
00000C                             8509+ENTAREA  DS    F S21003
000010                             8510+SCTSTART DS    F S21003
000014                             8511+LASTSCT  DS    F S21003


000000                             8513+UCM      DSECT

                                   8515+*                             UNIT CONTROL MODULE MAP (UCM).

                                   8517+*                             FIXED ECBS.
000000 00000000                    8518+UCMXECB  DC    F'0' EXTERNAL INTERRUPT.
000004 00000000                    8519+UCMAECB  DC    F'0' ATTENTION INTERRUPT.
000008 00000000                    8520+UCMOECB  DC    F'0' WTO-WTOR REQUEST.
00000C                             8521+UCMDECB  EQU   *
00000C 00000000                    8522+UCMLECB  DC    F'0' WTL REQUEST.
000010 00000000                    8523+UCMRECB  DC    F'0' RMS REQUEST ECB                 20061

                                   8525+*                             ECB LIST PTR (EIL).
000014 000003EC                    8526+UCMLSTP  DC    A(UCMEIL)

                                   8528+*                            WTO/WTOR CONTROL FIELDS.
000018 00000000                    8529+UCMWTOQ  DC    F'0' WQE PTR.
00001C 00000000                    8530+UCMRPYQ  DC    F'0' RQE PTR.
000020 0000000000000000            8531+UCMRPYI  DC    3F'0' REPLY ID ASSIGNMENT PATTERN.
                                                                                                               PAGE  199


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00002C 00                          8532+         DC    X'00'
00002D 01                          8533+UCMRQLM  DC    AL1(1) ID ASSIGNMENT LIMIT
00002E 0001                        8534+UCMWQLM  DC    AL2(1) BUFFER STACKING REQUIREMENTS
000030 00000000                    8535+UCMRQECB DC    F'0' REPLY REQUEST WAITING ECB.
000034 00000000                    8536+UCMWQECB DC    F'0' BUFFER REQUEST WAITING ECB.
000038 0000                        8537+UCMRQNR  DC    H'0' CURRENT RQE COUNT.
00003A 0000                        8538+UCMWQNR  DC    H'0' CURRENT WQE COUNT.
00003C 00000000                    8539+UCMWQEND DC    F'0' PTS TO LAST WQE, OR ZERO.
000040 00000000                    8540+UCMPXA   DC    V(IEECVTCB) ADDR OF COMM. TASK TCB (U MODE ONLY)
000044                             8541+UCMPXB   EQU   *
000044 01                          8542+UCMMODE  DC    X'1' 01 - FIXED BUFFER MODE        P
                                   8543+*                                       00 - UNLIMITED                P
                                   8544+*                                      02 - MCS IN SYSTEM          MCS
000008                             8545+UCMAMFA  EQU   X'08' ACCEPT MSTCONS FROM ANYONE       MCS
000004                             8546+UCMOGCE  EQU   X'04' ONLY GRAPHICS CONSOLES EXIST     MCS
000002                             8547+UCMMCS   EQU   X'02'
000001                             8548+UCMFIX   EQU   X'01'
000045 00                          8549+UCMCORE  DC    X'00'
000046 00                          8550+UCMMODEL DC    X'00'
000047 00                          8551+UCMINCR  DC    X'00'
000080                             8552+UCMFREE  EQU   X'80'

                                   8554+*                            VARIALBE ENTRY CONTROL FIELDS.
000048 00000530                    8555+UCMVEA   DC    A(UCMLIST) 1ST ENTRY PTR. * SUITABLE FOR
00004C 000000D8                    8556+UCMVEZ   DC    A(UCMESIZE) ENTRY SIZE.    *   LM - BXLE
000050 00000530                    8557+UCMVEL   DC    A(UCMEND) LAST ENTRY PTR.* COMBINATION.
000054                             8558+UCMSAVE3 DS    14F SAVE FOR ED2
00008C                             8559+UCMSAVE4 DS    16F SAVE FOR CRA
0000CC                             8560+UCMR9SV  DS    F SAVE FOR ED2
0000D0                             8561+         DS    0D ALLIGNMENT                   MCS



                                   8563+*                                       THE NEXT TWO BXLE COMBINATIONSP
                                   8564+*                                       ARE USED ONLY IN FIXED MODE   P
0000D0 00000608                    8565+UCMWEA   DC    A(UCMWQE) SUITABLE FOR LM BXLE          P
0000D4 000000A8                    8566+UCMWEZ   DC    A(UCMWSIZ) SEARCH OF WTO                 P
0000D8 00000608                    8567+UCMWEL   DC    A(UCMWEND) QUEUE ELEMENTS                P

0000DC 000006B0                    8569+UCMREA   DC    A(UCMRQE) SUITABLE FOR LM BXLE          P
0000E0 00000018                    8570+UCMREZ   DC    A(UCMRSIZ) SEARCH OF REPLY               P
0000E4 000006B0                    8571+UCMREL   DC    A(UCMREND) QUEUE ELEMENTS                P

0000E8                             8573+UCMOPENX DS    58F WORK SPACE FOR OPEN-CLOSE

0001D0                             8575+UCMREAD  DS    CL144 INPUT BUFFER                  P
000260                             8576+UCMSAVE1 DS    18F SAVE AREAS USED BY            P
0002A8                             8577+UCMSAVE2 DS    18F COMMUNICATION MODULES         P
0002F0                             8578+UCMINDCB DS    34F SPACE FOR INPUT DCB
000378                             8579+UCMOUDCB DS    29F OUTPUT              P
0003EC 07                          8580+UCMEIL   DC    AL1(0+7) LENGTH OF MCS EIL               20061
0003ED 00                          8581+         DC    X'00' MCS
0003EE                             8582+         DS    CL6 MCS
0003F4 00000000                    8583+         DC    A(UCMXECB)
0003F8 00000004                    8584+         DC    A(UCMAECB)
                                                                                                               PAGE  200


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0003FC 00000008                    8585+         DC    A(UCMOECB)
000400 0000000C                    8586+         DC    A(UCMDECB)
000404 00000010                    8587+         DC    A(UCMRECB) 20061
0003ED                             8588+UCMRPYL  EQU   UCMEIL+1 MCS
000408                             8589+         DS    CL16

                                   8591+**  USER EXIT WORK AREA  **
000418                             8592+UCMEXIT  DS    0F MCS
000418                             8593+UCMMSTXT DS    128C MESSAGE TEXT                     MCS
000498                             8594+UCMROUTC DS    1F ROUTE CODES                      MCS
00049C                             8595+UCMDESCD DS    1F DESCRIPTOR CODES                 MCS
0004A0                             8596+UCMXTSAV DS    18F USER EXIT SAVE AREA          MCS
0004E8                             8597+UCMTPSAV DS    18F 2740 SAVE AREA
                                   8598+*                            INDIVIDUAL ENTRY MAP.
                                   8599+*                            EACH ENTRY DEFINES CONSOLE UNIT SUPPORT.

000530                             8601+UCMLIST  DS    0F ENTRY ORIGIN.
000530                             8602+UCMECB   DS    F I/O COMPLETION ECB.
000534                             8603+UCMSBR   DS    F PROCESSOR PTR.
000538                             8604+UCMDCB   DS    F CONTROL BLOCKS MODULE PTR.
00053C                             8605+UCMUCB   DS    F UCB PTR/UCB NAME.
000540                             8606+UCMNAME  DS    CL8 PROCESSING MODULE NAME.

000548                             8608+UCMSTS   DS    CL1 STATUS FLAGS.            TEST ORDER.
000080                             8609+UCMAF    EQU   128 ATTENTION FLAG.     3
000040                             8610+UCMPF    EQU   64 OUTPUT(WTO) FLAG.   4
000020                             8611+UCMBF    EQU   32 BUSY FLAG.          2
000010                             8612+UCMCF    EQU   16 CLOSE FLAG.         1
000008                             8613+UCMTA    EQU   8 OPEN
000004                             8614+UCMTB    EQU   4 DEQ APPROPRIATE OUTPUT Q ENTRIES
000002                             8615+UCMTD    EQU   2 I/O RETRY FLAG              @SA76542
000001                             8616+UCMTC    EQU   1 WORKING ON INLINE MLWTO             S21002

000549                             8618+UCMATR   DS    CL1 ATTRIBUTE FLAGS.
000080                             8619+UCMOF    EQU   128 WTO SUPPORT.
000040                             8620+UCMIF    EQU   64 ATTENTION SUPPORT.
000020                             8621+UCMXF    EQU   32 EXTERNAL SWITCH SENSITIVE.
000010                             8622+UCMUF    EQU   16 USE FLAG (0-INACTIVE,1-ACTIVE).
000008                             8623+UCMLF    EQU   8 LOAD FLAG.
000004                             8624+UCMAT04  EQU   X'04' DEVICE STATUS TO CHANGE                  MCS

00054A                             8626+UCMID    EQU   * MCS
00054A                             8627+UCMXA    DS    H
00054C                             8628+UCMXB    DS    F
000550 0000                        8629+UCMRTCD  DC    X'0000'
000552 0000                        8630+         DC    X'0000'
000554 00000000                    8631+UCMOUTQ  DC    F'0' PTR OUTPUT QUEUE
000558 00                          8632+UCMAUTH  DC    X'00'
                                   8633+*        COMMAND GROUP 0 IS ALWAYS PRESENT FOR A CONSOLE         S21003
000080                             8634+UCMAUTH1 EQU   X'80' COMMAND GROUP 1 (SYS)               S21003
000040                             8635+UCMAUTH2 EQU   X'40' COMMAND GROUP 2 (I/O)               S21003
000020                             8636+UCMAUTH3 EQU   X'20' COMMAND GROUP 3 (CONS)              S21003
000559 00                          8637+         DC    X'00'
00055A                             8638+UCMDISP  DS    CL2 DISPOSITION FLAGS
000080                             8639+UCMDISPA EQU   128 MASTER CONSOLE               MCS
                                                                                                               PAGE  201


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000040                             8640+UCMDISPB EQU   64 HARD COPY DEVICE/CONSOLE     MCS
000020                             8641+UCMDISPC EQU   32 GRAPHICS                     MCS
000010                             8642+UCMDISPD EQU   16 OUTPUT ONLY                  MCS
000008                             8643+UCMDISPE EQU   8 CONSOLE HAS FULL I/O CAPABILITY     S21003
000004                             8644+UCMDISPF EQU   4 CONSOLE IS MESSAGE STREAM ONLY      S21003
000002                             8645+UCMDISPG EQU   2 CONSOLE IS STATUS DISPLAY ONLY      S21003
000001                             8646+UCMDISPH EQU   1 MCS
00055C 00000000                    8647+UCMALTEN DC    F'0' MCS
000560 00000000                    8648+UCMOAOEN DC    F'0' PTR OUTPUT/ALTERNATE
                                   8649+*                                      OUTPUT UCM ENTRY
000564 00000000                    8650+UCMWLAST DC    F'0' PTR LAST WQE IN INPUT Q
000568 00000000                    8651+UCMCOMPC DC    F'0' PTR TO OTHER HALF OF
                                   8652+*                                      COMPOSITE CONSOLE
00056C                             8653+UCMMSG   DS    CL2 MESSAGE TYPE FLAGS
000080                             8654+UCMMSGA  EQU   128 DISPLAY JOBNAMES REQUESTED   MCS
000040                             8655+UCMMSGB  EQU   64 DISPLAY STATUS REQUESTED     MCS
000020                             8656+UCMMSGC  EQU   32 MONITOR ACTIVE                      S21002
000010                             8657+UCMMSGD  EQU   16 RESERVED                     MCS
000008                             8658+UCMMSGE  EQU   8 SHOW REQUESTED             19006
000004                             8659+UCMMSGF  EQU   4 MONITOR SESS               20034
000002                             8660+UCMMSGG  EQU   2 RESERVED                     MCS
000001                             8661+UCMMSGH  EQU   1 RESERVED                     MCS
00056E 00                          8662+UCMXOR   DC    X'00' USED TO XOR CHANGE BYTE-UCB  MCS
00056F                             8663+UCMDEVC  DS    CL1 DEVICE CONTROL FLAGS
000080                             8664+UCMDEVA  EQU   128 FULL SCREEN ON GRAPHIC CONS  MCS
000040                             8665+UCMDEVB  EQU   64 PREPARE COMMAND ISSUED       MCS
000020                             8666+UCMDEVCC EQU   32 TESTED FOR CONSOLE SWITCH
000010                             8667+UCMDEVD  EQU   16 DOM ISSUED
000008                             8668+UCMDEVE  EQU   8 I/O COMPLETE
000004                             8669+UCMDEVF  EQU   4 MODIFIED DCM FOR DOM       20772
000002                             8670+UCMDEVG  EQU   2 HALT I/O ON 2740           20772
000001                             8671+UCMDEVH  EQU   1 RESERVED                     MCS
000570 00000000                    8672+UCMMLAST DC    F'0' PTR TO LAST MINOR WQE HANDLED      S21002
000574                             8673+UCMRCT   EQU   * TO LOAD RCT ADDRESS                S21002
000574 00                          8674+UCMSDS5  DC    X'00' STATUS DISPLAY CONTROL BYTE 5      S21002
000080                             8675+UCMSDS5A EQU   X'80' MLWTO LINE NEEDED TO KEEP WRITING   S21002
000040                             8676+UCMSDS5B EQU   X'40' INLINE OUTPUT PENDING                   S21002
000020                             8677+UCMSDS5C EQU   X'20' OUT-OF-LINE OUTPUT PENDING              S21002
000010                             8678+UCMSDS5D EQU   X'10' TRANSIENT DCM BLOCKED                   S21003
000008                             8679+UCMSDS5E EQU   X'08' TRANSIENT DCM LOCKED                    S21003
000004                             8680+UCMSDS5F EQU   X'04' FOR CRT, UCMMLAST VALID       S21002
000002                             8681+UCMSDS5G EQU   X'02' I/O HARDWARE IN OUTPUT-ONLY STATUS    S21002
000001                             8682+UCMSDS5H EQU   X'01' S21002
000575 000000                      8683+         DC    AL3(0) POINTER TO ROUTING CONTROL TABLE   S21002
000578                             8684+UCMINPUT DS    CL144 MCS

0000D8                             8686+UCMESIZE EQU   *-UCMLIST SIZE OF ENTRY IN BYTES.
000530                             8687+UCMEND   EQU   *-UCMESIZE


000608                             8689+UCMWQE   DS    0D
                                   8690+*        IEECVMUG WQE         WTO/WTOR TEXT QUEUING MAP               P
                                   8691+*WQEF    DS    0D
                                   8692+*WQEXTNT DS    0CL168                                               MCS
                                   8693+*WQEUSE  EQU   *
                                                                                                               PAGE  202


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8694+*WQELKPTR EQU  *+1
                                   8695+*WQELKP  DS    F                       LINK PTR
                                   8696+*WQENBR  DS    F                       COUNT FIELD (CCW)
                                   8697+*WQETXT  DS    CL128                   TEXT
                                   8698+*WQETXTL EQU   *-1                     LAST TEXT BYTE
                                   8699+*WQEXA   DS    CL1                     DISPOSITION FLAGS          20021
                                   8700+*WQETJID1 DS   CL1                     TSO USER ID - 1ST BYTE     20021
                                   8701+*WQETJID2 DS   CL1                     TSO USER ID - 2ND BYTE     20021
                                   8702+*WQEAVAIL DS   C                       BUFFER STATUS
                                   8703+*                                       80-FREE 40-IN USE 20-RESERVED P
                                   8704+*WQEXB   DS    F
                                   8705+*WQERTCT DS    CL1                     ROUTED WQE COUNT             MCS
                                   8706+*WQESEQN DS    CL3                     ID SEQUENCE NUMBER           MCS
                                   8707+*WQEMCSF DS    CL2                     MCS FLAGS                    MCS
                                   8708+*WQEMSGTP DS   CL2                     MESSAGE TYPE FLAGS           MCS
                                   8709+*WQEROUT DS    CL2                     ROUTING CODES                MCS
                                   8710+*        DS    CL2                     RESERVED FOR ROUT EXPANSION  MCS
                                   8711+*WQEUCMID DS   CL1                     UNIQUE UCM ENTRY ID          MCS
                                   8712+*WQEPKE  DS    CL1                TCB KEY OF WTO ISSUER IN MCS
                                   8713+*         DS   CL2                     RESERVED
                                   8714+*WQEDESCD DS   CL2                     DESCRIPTOR CODES
                                   8715+*         DS                           FOR CODE EXPANSION
                                   8716+*WQETIME  DS   1F                      TIMER ELEMENT
                                   8717+*WQEL    EQU   *
                                   8718+*WQESIZE EQU   L'WQEXTNT
000608                             8719+         DS    CL168 MCS
0000A8                             8720+UCMWSIZ  EQU   *-UCMWQE

000608                             8722+         ORG   UCMWQE
000608                             8723+         DS    CL139 SPACE FOR A WTO
000693 80                          8724+         DC    X'80' QUEUE
000694                             8725+         DS    F ELEMENT - FIXED MODE
000698                             8726+         DS    6F

000608                             8728+UCMWEND  EQU   *-UCMWSIZ P


0006B0                             8730+UCMRQE   DS    0D
                                   8731+*        IEECVMUG RQE         REPLY QUEUE ELEMENT MAP                 P
                                   8732+*RQEF    DS    0D                      DOUBLE WD ALIGNMENT
                                   8733+*RQELKP  DS    F                       LINK PTR
                                   8734+*RQEID   DS    CL2                     ELEMWNT ID
                                   8735+*RQEXA   DS    C                        BUFFER STATUS
                                   8736+*RQEAVAIL DS   C                       BUFFER STATUS
                                   8737+*RQETJID1 DS   C                       TSO USER ID - 1ST BYTE     20021
                                   8738+*RQETCB  DS    CL3                     TCB PTR                    20021
                                   8739+*RQEWQE  EQU   *                       PTR ASSOCIATED WQE           MCS
                                   8740+*RQEXB   DS    F

                                   8742+*RQERPY  DS    0F                      MAPS WTOR PREFIX
                                   8743+*RQELNTH DS    C                       MAX LGTH OF REPLY
                                   8744+*RQEPTR  DS    CL3                     BUFFER PTR FOR REPLY
                                   8745+*RQETJID2 DS   CL1                     TSO USER ID - 2ND BYTE     20021
                                   8746+*RQEECB  DS    CL3                     ECB PTR                    20021
                                   8747+*RQEL    EQU   *
                                                                                                               PAGE  203


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8748+*RQESIZE EQU   RQEL-RQEF               BLOCK SIZE
0006B0                             8749+         DS    6F
000018                             8750+UCMRSIZ  EQU   *-UCMRQE P

0006B0                             8752+         ORG   UCMRQE P
0006B0                             8753+         DS    CL7 SPACE FOR REPLY
0006B7 80                          8754+         DC    X'80' QUEUE
0006B8                             8755+         DS    CL16 ELEMENT

0006B0                             8757+UCMREND  EQU   *-UCMRSIZ P

000000                             8759+UCM2     DSECT  UCM EXTENTION                  M3883
000000                             8760+UCM2EXT  DS    0D UCM EXTENTION                  M3883
000000 0000                        8761+UCM2WID  DC    H'0' TJID OF TASK FOR UCMWQECB      M3883
000002 0000                        8762+UCM2RID  DC    H'0' TJID OF TASK FOR UCMRQECB      M3883
000004 00000000                    8763+UCM2PST  DC    F'0' ENTRY PT TO POST WITH VALIDITY CHKING      21016

000000                             8765+MCSUCM   DSECT  MCS
000000                             8766+UCMPRFX  DS    0D MCS PREFIX AREA                M3883
000000 00000000                    8767+UCMMCENT DC    F'0'
000004                             8768+UCMSAVE0 DS    18F RESIDENT SAVE AREA          MCS
00004C 00000000                    8769+UCMDOME  DC    F'0' PTR 1ST DOM ELEMENT          MCS
000050 00000000                    8770+UCMWTOX  DC    F'0'
000054 00                          8771+UCMSFLGS DC    X'0' MCS
000055 00                          8772+         DC    X'0' MCS
000080                             8773+UCMSYSA  EQU   128 RESERVED
000040                             8774+UCMSYSB  EQU   64 HARD COPY SUPPORT REQUIRED   MCS
000020                             8775+UCMSYSC  EQU   32 COMMANDS TO HARD COPY        MCS
000010                             8776+UCMSYSD  EQU   16 CONSOLE SWITCH IS FOR MASTER MCS
000008                             8777+UCMSYSE  EQU   8 NO CONSOLES EXIST            MCS
000004                             8778+UCMSYSF  EQU   4 GRAPHIC CONSOLES EXIST       MCS
000002                             8779+UCMSYSG  EQU   2 HARD COPY DEVICE IS SYSLOG   MCS
000001                             8780+UCMSYSH  EQU   1 TIMER IS PRESENT & OPERATING MCS
000080                             8781+UCMSYSI  EQU   X'80' WQE CLEANUP NEEDED               MCS
000040                             8782+UCMSYSJ  EQU   X'40' HARD COPY TO BE DONE                      MCS
000020                             8783+UCMSYSK  EQU   X'20' NEW CONSOLE IS COMPOSITE         MCS
000010                             8784+UCMSYSL  EQU   X'10' OPEN BEING ISSUED TO RING ALARM  MCS
000008                             8785+UCMSYSM  EQU   X'08' FAILING CONSOLE IS COMPOSITE               MCS
000004                             8786+UCMSYSN  EQU   X'04' GRAPHIC CONSOLE PRESENT        19029
000002                             8787+UCMSYSO  EQU   X'02' USED BY WTL                    19772
000056 0000                        8788+UCMOWTOR DC    X'0000'
000058 00000001                    8789+UCMCMID  DC    F'1' CURRENT MESSAGE ID NUMBER    MCS
00005C 00000000                    8790+UCMHCUCM DC    F'0'
000060 00                          8791+UCMXCT   DC    X'00' EXTERNAL REQUEST COUNT       MCS
000061 000000                      8792+UCMUEXIT DC    3X'00' NO USER EXIT DATA
000064 0000                        8793+UCMHRDRT DC    X'0000'
000066 0000                        8794+         DC    X'0000'
000068 00000070                    8795+UCMXSA   DC    A(UCM3WD)
00006C                             8796+         DS    1F
000070                             8797+UCM3WD   DS    4F
000080 00000000                    8798+UCMQRTN  DC    V(IEECMENQ)
000084                             8799+UCMRUTCK DS    1F ROUTE CHECKING FIELD
000088 00000000                    8800+UCMDOMRT DC    V(IEECMDOM) DOM MOD ENTRY PT
00008C 000004E8                    8801+UCMTPPTR DC    A(UCMTPSAV) PTR TO 2740 SAVE AREA
000090 00000000                    8802+UCMNPECB DC    F'0' POSTED WHEN NIP'S H.C. CAN BE WRITTEN MCS
                                                                                                               PAGE  204


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000094 00000000                    8803+UCMLOGAD DC    F'0' ADDRESS OF LOG TCB                  A33710
000098 00000BB8                    8804+UCMDTINT DC    F'3000' DYNAMIC DISPLAY TIME INTERVAL      S21002
                                   8805+*                      THIS IS FOR STIMER BINTVL=UCMDTINT        S21002
                                   8806+*                      THIS DEFAULT IS 30 SECONDS.               S21002
00009C 00                          8807+UCMSDS1  DC    AL1(0) STATUS DISPLAY CONTROL BYTE 1      S21002
000080                             8808+UCMSDS1A EQU   X'80' STCMDS TO HARDCOPY                 S21002
000040                             8809+UCMSDS1B EQU   X'40' INCMDS TO HARDCOPY                 S21002
000020                             8810+UCMSDS1C EQU   X'20' S21002
000010                             8811+UCMSDS1D EQU   X'10' S21002
000008                             8812+UCMSDS1E EQU   X'08' S21002
000004                             8813+UCMSDS1F EQU   X'04' S21002
000002                             8814+UCMSDS1G EQU   X'02' S21002
000001                             8815+UCMSDS1H EQU   X'01' S21002
00009D                             8816+UCMSDS2  DS    XL3 RESERVED FOR SDS                   S21002
0000A0                             8817+         DS    0D ALIGNMENT FOR PREFIX PTRS     S21002
0000A0 00000000                    8818+         DC    A(UCM2EXT) PTR TO UCM EXTENSION          S21002
0000A4 00000000                    8819+         DC    A(UCMPRFX) PTR TO MCS PREFIX             S21002


000020                             8821+QUCMRTCD EQU   UCMRTCD-UCMLIST DISP OF ROUT CODES IN UCM ENTRY MCS0
000004                             8822+LUCMRTCD EQU   4 ROUTING CODES LENGTH            MCS0
000028                             8823+QUCMAUTH EQU   UCMAUTH-UCMLIST DISP OF AUTH IN UCM ENTRY       MCS0
000001                             8824+LUCMAUTH EQU   1 AUTH LENGTH                     MCS0
000000                             8825+EIL      DSECT  MCS0
                                   8826+*                  EVENT INDICATION LIST(EIL).

000000                             8828+EILF     DS    0D *    DBLWD ALIGNED IN DYNAMIC CORE.
000000                             8829+EILPFXTN DS    0CL28 PREFIX EXTENT (FIXED)       BE A44414
000000                             8830+EILXTNT  DS    FL1 EIL EXTENT LGTH IN BYTES    BE A44414
000001 00001C                      8831+EILCLP   DC    AL3(EILCL) COMPANION LIST PTR (NON MCS)      MCS
000004                             8832+EILRPYL  EQU   * LAST ASSIGNED REPLY ID (MCS ONLY)      MCS
000005                             8833+EILRTCT  EQU   *+1 ROUTE COUNT (MCS ONLY)                 MCS
000004                             8834+EILXA    DS    F MCS

000008                             8836+EILSL    DS    0F *    SOURCE LIST - FIXED ECB PTRS.
000008                             8837+EILX     DS    F EXTERNAL INTERRUPT ECB PTR.
00000C                             8838+EILA     DS    F ATTENTION INTRP ECB PTR.
000010                             8839+EILWTO   DS    F WTO/WTOR ECB PTR.
000014                             8840+EILDOM   EQU   * DOM ECB PTR (MCS ONLY)                 MCS
000014                             8841+EILWTL   DS    F WTL ECB PTR (NON MCS)                  MCS
000018                             8842+EILRMS   DS    F RMS ECB POINTER                20061

00001C                             8844+EILIOL   DS    0F *    I/O COMPLETION ECB PTRS

00001C                             8846+EILCL    DS    0F COMPANION LIST (NON MCS)
00001C                             8847+EILL     EQU   *
000000                             8848+DMPSECT  DSECT
                                   8849+***********************************************************************
                                   8850+* THIS DSECT MAPS THE I/O CONTROL BLOCKS,WORK AREAS,AND CCW'S WHICH ARE
                                   8851+* SET UP BY NIP FOR USE BY SVC DUMP. THE BASIC ELEMENTS OF THE DSECT
                                   8852+* INCLUDE:
                                   8853+* 1. IOB
                                   8854+* 2. DEB
                                   8855+* 3. DCB
                                   8856+* 4. ECB
                                                                                                               PAGE  205


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8857+* 5. ADDRESS SAVE AREA
                                   8858+* 6. COUNT AND KEY FIELDS
                                   8859+* 7. CCWS FOR TAPE AND DIRECT ACCESS
                                   8860+*
                                   8861+* THESE CONTROL BLOCKS ARE ORGANIZED FOR EXCP LOGIC. IN SOME INSTANCES,
                                   8862+* THEY ARE NOT COMPLETE,SINCE ALL THE FIELDS ARE NOT USED BY SVCDUMP
                                   8863+***********************************************************************
                                   8864+*
                                   8865+* IOB
                                   8866+*
                                   8867+***********************************************************************
000000                             8868+         DS    0F
000000                             8869+DMPIOB   EQU   *
000000                             8870+DMPIOBF1 DS    1X I/O FLAG BYTE 1
000001                             8871+DMPIOBF2 DS    1X I/O FLAG BYTE 2
000002                             8872+DMPIOBS1 DS    1X I/O SENSE BYTE 1
000003                             8873+DMPIOBS2 DS    1X I/O SENSE BYTE 2
000004                             8874+DMPIOBEC DS    1X ECB COMPLETION CODE
000005 000090                      8875+DMPIOBEP DC    AL3(DMPECB) ADDRESS OF ECB
000008                             8876+DMPIOBF3 DS    1X I/O FLAG BYTE 3
000009                             8877+DMPIOBCS DS    XL7 LOW ORDER 7 BYTES OF CSW
000010                             8878+DMPIOBSI DS    1X SIO CONDITION CODE
000011                             8879+DMPIOBST DS    3X ADDRESS OF CHANNEL PROGRAM
000014 0000005C                    8880+DMPIOBDC DC    A(DMPDCB) ADDRESS OF DUMP DCB
000018                             8881+DMPIOBRE DS    1F PURGE CHAIN
00001C                             8882+DMPIOBIN DS    1H
00001E                             8883+DMPIOBER DS    1H NO. OF ERROR RETRIES
000020                             8884+DMPIOBXT DS    1X DAR DEB EXTENT
000021                             8885+DMPIOBSE DS    XL7 SEEK ADDRESS MBBCCHHR
                                   8886+***********************************************************************
                                   8887+*
                                   8888+* DEB
                                   8889+*
                                   8890+***********************************************************************
                                   8891+*        BEGINNING OF TAPE APPENDAGES
000028                             8892+DMPAPPAD DS    3F ADDRESS OF BR 14 INSTRUCTIONS
                                   8893+*        BEGINNING OF DASD APPENDAGES
000034                             8894+DMPDEBEO EQU   *
000034                             8895+DMPDEBED DS    1F END OF EXTENT APPENDAGE ADDRESS
000038                             8896+DMPDEBSI DS    1F START I/O APPENDAGE ADDRESS
00003C 00000000                    8897+DMPDEBPC DC    A(0) PCI APPENDAGE ADDRESS
000040 00000000                    8898+DMPDEBCE DC    A(0) CHANNEL END APPENDAGE ADDRESS
000044 00000000                    8899+DMPDEBXC DC    A(0) ABNORMAL END APPENDAGE ADDRESS
000048                             8900+DMPDEBPR DS    4F PREFIX AREA UNUSED
000058                             8901+DMPDEB   EQU   *
000058                             8902+DMPDEBNE DS    1X NUMBER OF EXTENTS
000059 000000                      8903+DMPDEBTC DC    AL3(0) ADDRESS OF TCB
00005C                             8904+DMPDEBAM DS    1X LENGTH OF ACCESS METHOD SECTION
00005D 000000                      8905+DMPDEBDE DC    AL3(0) ADDRESS OF NEXT DEB
000060                             8906+DMPDEBDF DS    1X DATA SET FLAGS
000061 000000                      8907+DMPDEBIR DC    AL3(0) ADDRESS OF IRB
000064                             8908+DMPDEBOP DS    1X TYPE OF I/O
000065                             8909+DMPDEBQS DS    1X PURGE QUIESCE COUNT
000066                             8910+         DS    1H RESERVED
000068                             8911+DMPDEBNM DS    1X NUMBER OF EXTENTS
                                                                                                               PAGE  206


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000069 000000                      8912+DMPDEBUS DC    AL3(0) ADDR OF 1ST IOB IN USR PRG CHAIN
00006C                             8913+DMPDEBPT DS    1X PRIORITY
00006D 000090                      8914+DMPDEBEC DC    AL3(DMPECB) ADDRESS OF ECB
000070                             8915+DMPDEBPK DS    1X PROTECTION KEY   DEB ID
000071 00005C                      8916+DMPDEBDC DC    AL3(DMPDCB) ADDRESS OF DCB
000074                             8917+DMPDEBXS DS    1X EXTENT SCALE
000075 000034                      8918+DMPDEBAP DC    AL3(DMPDEBEO) ADDRESS OF APPENDAGE VECT TABEL
000078                             8919+DMPDEBDV DS    1X FILE MASK
000079 000000                      8920+DMPDEBUC DC    AL3(0) UCB ADDRESS
00007C                             8921+DMPDEBBI DS    1H BIN NUMBER
00007E                             8922+DMPDEBST DS    1H STARTING CYLINDER ADDRESS
000080                             8923+DMPDEBHH DS    1H STARTING TRACK ADDRESS
000082                             8924+DMPDEBEN DS    1H ENDING CYLINDER ADDRESS
000084                             8925+DMPDEBEH DS    1H ENDING TRACK ADDRESS
000086                             8926+DMPDEBNT DS    1H # OF TRACKS IN EXTENT
                                   8927+***********************************************************************
                                   8928+*
                                   8929+* DCB
                                   8930+*
                                   8931+***********************************************************************
00005C                             8932+DMPDCB   EQU   *-44 DISPLACEMENT FOR START OF DCB
000088                             8933+DMPDCBIF EQU   * DCB FLAG BYTE
000088 00000058                    8934+DMPDCBDE DC    A(DMPDEB) ADDRESS OF DEB
00008C                             8935+DMPDCBOF DS    1X DCB FLAG BYTE
00008D                             8936+         DS    3X PADDING
                                   8937+***********************************************************************
                                   8938+*
                                   8939+* ECB
                                   8940+*
                                   8941+***********************************************************************
000090                             8942+DMPECB   DS    1F
                                   8943+***********************************************************************
                                   8944+*
                                   8945+* CCWS
                                   8946+*
                                   8947+***********************************************************************
                                   8948+*********TAPE CCWS
000098                             8949+DMPCCWS  DS    0D
000098                             8950+DMPCCW1T EQU   *
000098                             8951+DMPCCTC1 DS    1X COMMAND CODE
000099                             8952+DMPCCTD1 DS    3X DATA ADDRESS
00009C                             8953+DMPCCTF1 DS    1X FLAG BYTE
00009D                             8954+DMPCCTN1 DS    1X
00009E                             8955+DMPCCTB1 DS    2X BYTE COUNT
0000A0                             8956+DMPCCW2T EQU   *
0000A0                             8957+DMPCCTC2 DS    1X COMMAND CODE
0000A1                             8958+DMPCCTD2 DS    3X DATA ADDRESS
0000A4                             8959+DMPCCTF2 DS    1X FLAG BYTE
0000A5                             8960+DMPCCTN2 DS    1X
0000A6                             8961+DMPCCTB2 DS    2X BYTE COUNT
                                   8962+*********DASD CCWS
0000A8                             8963+DMPCCW1  EQU   *
0000A8                             8964+DMPCCWC1 DS    1X COMMAND CODE
0000A9                             8965+DMPCCWD1 DS    3X DATA ADDRESS
0000AC                             8966+DMPCCWF1 DS    1X FLAG BYTE
                                                                                                               PAGE  207


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000AD                             8967+DMPCCWN1 DS    1X
0000AE                             8968+DMPCCWB1 DS    2X BYTE COUNT
0000B0                             8969+DMPCCW2  EQU   *
0000B0                             8970+DMPCCWC2 DS    1X COMMAND CODE
0000B1                             8971+DMPCCWD2 DS    3X DATA ADDRESS
0000B4                             8972+DMPCCWF2 DS    1X FLAG BYTE
0000B5                             8973+DMPCCWN2 DS    1X
0000B6                             8974+DMPCCWB2 DS    2X BYTE COUNT
0000B8                             8975+DMPCCW3  EQU   *
0000B8                             8976+DMPCCWC3 DS    1X COMMAND CODE
0000B9                             8977+DMPCCWD3 DS    3X DATA ADDRESS
0000BC                             8978+DMPCCWF3 DS    1X FLAG BYTE
0000BD                             8979+DMPCCWN3 DS    1X
0000BE                             8980+DMPCCWB3 DS    2X BYTE COUNT
0000C0                             8981+DMPTICCW EQU   *
0000C0                             8982+         DS    D
0000C8                             8983+DMPCCW4  EQU   *
0000C8                             8984+DMPCCWC4 DS    1X COMMAND CODE
0000C9                             8985+DMPCCWD4 DS    3X DATA ADDRESS
0000CC                             8986+DMPCCWF4 DS    1X FLAG BYTE
0000CD                             8987+DMPCCWN4 DS    1X
0000CE                             8988+DMPCCWB4 DS    2X BYTE COUNT
0000D0                             8989+DMPCCW5  EQU   *
0000D0                             8990+DMPCCWC5 DS    1X COMMAND CODE
0000D1                             8991+DMPCCWD5 DS    3X DATA ADDRESS
0000D4                             8992+DMPCCWF5 DS    1X FLAG BYTE
0000D5                             8993+DMPCCWN5 DS    1X
0000D6                             8994+DMPCCWB5 DS    2X BYTE COUNT
0000D8                             8995+DMPCCW6  EQU   *
0000D8                             8996+DMPCCWC6 DS    1X COMMAND CODE
0000D9                             8997+DMPCCWD6 DS    3X DATA ADDRESS
0000DC                             8998+DMPCCWF6 DS    1X FLAG BYTE
0000DD                             8999+DMPCCWN6 DS    1X
0000DE                             9000+DMPCCWB6 DS    2X BYTE COUNT
0000E0                             9001+DMPCCW7  EQU   *
0000E0                             9002+DMPCCWC7 DS    1X COMMAND CODE
0000E1                             9003+DMPCCWD7 DS    3X DATA ADDRESS
0000E4                             9004+DMPCCWF7 DS    1X FLAG BYTE
0000E5                             9005+DMPCCWN7 DS    1X
0000E6                             9006+DMPCCWB7 DS    2X BYTE COUNT
0000E8                             9007+DMPCCW8  EQU   *
0000E8                             9008+DMPCCWC8 DS    1X COMMAND CODE
0000E9                             9009+DMPCCWD8 DS    3X DATA ADDRESS
0000EC                             9010+DMPCCWF8 DS    1X FLAG BYTE
0000ED                             9011+DMPCCWN8 DS    1X
0000EE                             9012+DMPCCWB8 DS    2X BYTE COUNT
0000F0                             9013+DMPCCW9  EQU   *
0000F0                             9014+DMPCCWC9 DS    1X COMMAND CODE
0000F1                             9015+DMPCCWD9 DS    3X DATA ADDRESS
0000F4                             9016+DMPCCWF9 DS    1X FLAG BYTE
0000F5                             9017+DMPCCWN9 DS    1X
0000F6                             9018+DMPCCWB9 DS    2X BYTE COUNT
                                   9019+***********************************************************************
                                   9020+*
                                   9021+* SVCDUMP WORK AREA  PLACED IN DEB PREFIX AREA
                                                                                                               PAGE  208


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   9022+*
                                   9023+***********************************************************************
000048                             9024+         ORG   DMPDEBPR ORG TO DEB PREFIX AREA
000048                             9025+DMPADSAV DS    1F ADDRESS SAVE AREA
00004C                             9026+DMPEND   DS    1F ENDING ADDRESS OF DUMP
000050                             9027+DMPASAV2 DS    1F SECONDARY SAVE AREA
000054 FFFFFC00                    9028+DMPNEG1K DC    F'-1024'
0000F8                             9029+         ORG   DMPCCW9+8 ORG BACK
0000F8                             9030+DMPCC1   DS    2X CC CYLINDER
0000FA                             9031+DMPHH1   DS    2X HH HEAD
0000FC                             9032+DMPR1    DS    1X R RECORD
0000FD 04                          9033+DMPKEYL1 DC    X'04' KEY LENGTH
0000FE 0400                        9034+DMPDATL1 DC    X'0400' DATA LENGTH
000100                             9035+DMPFLKY1 DS    1X FLAG KEY
000101                             9036+DMPADKY1 DS    3X ADD KEY
000104                             9037+DMPCC2   DS    2X CC CYLINDER
000106                             9038+DMPHH2   DS    2X HH HEAD
000108                             9039+DMPR2    DS    1X R RECORD
000109 04                          9040+DMPKEYL2 DC    X'04' KEY LENGTH
00010A 0400                        9041+DMPDATL2 DC    X'0400' DATA LENGTH
00010C                             9042+DMPFLKY2 DS    1X FLAG KEY
00010D                             9043+DMPADKY2 DS    3X ADD KEY
000110 00000000                    9044+DMPSTPTR DC    F'0'
000023                             9045+         ORG   DMPIOBSE+2 ORG BACK TO IOB
000023                             9046+DMPSCHID EQU   *
000023                             9047+DMPCCID  DS    2X CC FOR SEARCH ARGUEMENT
000025                             9048+DMPHHID  DS    2X HH FOR SEARCH ARGUEMENT
000027                             9049+DMPRID   DS    1X R  FOR SEARCH ARGUEMENT
000114                             9050+         ORG   DMPSTPTR+4 ORG BACK
000114 00                          9051+DMPFLAG  DC    X'00' INDICATOR FIELD
                                   9052+*                                      BIT 0 ON MEANS END OF DUMP
                                   9053+*                                      BIT 1 ON MEANS END OF FILE
                                   9054+*                                      BIT 2 ON MEANS INVALID HDR RCD
                                   9055+*                                      BIT 3 ON MEANS SUCCESSFUL DUMP
                                   9056+*                                      BIT 4 ON MEANS PARTIAL DUMP
                                   9057+*                                      BIT 5 ON MEANS INVALD LIST PARMS
                                   9058+*                                      BIT 6 ON MEANS TAPE REQUEST
                                   9059+*                                      BIT 7 ON MEANS LIST REQUEST
                                   9060+*
                                   9061+*
000115 00                          9062+DMPFLAG2 DC    X'00'
                                   9063+*                                      BIT 0 MEANS PCI UPDATED CCHHR
                                   9064+*                                      BITS 1 - 7 UNASSIGNED
000118                             9065+DMPPLSTP DS    1F PARM LIST ADDRESS
00011C                             9066+DMPSINFO EQU   * DEVICE INFO TABEL
00011C 0000                        9067+DMPDINFO DC    H'0' DEVICE INFO SAVE AREA
00011E 0209                        9068+DMP2311  DC    X'0209' .               2311
000120 0FC7                        9069+DMP2301  DC    X'0FC7' .               2301
000122 0309                        9070+DMP2303  DC    X'0309' .               2303
000124 032D                        9071+DMP2302  DC    X'032D' .               2302
000126 0000                        9072+DMP2321  DC    X'0000' .               2321
000128 0708                        9073+DMPZEUSA DC    X'0708' .               ZEUS ATHENS
00012A 0A08                        9074+DMPZEUSC DC    X'0A08' .               ZEUS CORNITH
00012C 0513                        9075+DMP2314  DC    X'0513' .               2314
00012E 0913                        9076+DMPMERLN DC    X'0913' .               MERLIN
                                                                                                               PAGE  209


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000130                             9077+DMPAPTR1 DS    F .                 POINTER TO CURRENT CCW CHAIN
000134                             9078+DMPAPTR2 DS    F .                 POINTER TO NEXT CCW CHAIN
000138                             9079+DMPCBLGT EQU   *-DMPIOB LENGTH OF DUMP CONTROL BLOCKS
                                   9080+*  THE FOLLOWING EQUATES ARE BETWEEN THE DARMAC AND SVCDUMP DSECTS20048
000000                             9081+DARSECT  EQU   DMPSECT 20048
000088                             9082+DARDCB   EQU   DMPDCBIF 20048
000088                             9083+DARERCTL EQU   DMPDCBDE 20048
000089                             9084+DARDEBAD EQU   DMPDCBDE+Q1 20048
000058                             9085+DARDEB   EQU   DMPDEB 20048
000058                             9086+DARSTART EQU   DMPDEBNE 20048
000060                             9087+DARNOTRK EQU   DMPDEBDF 20048
000062                             9088+DARRSIZE EQU   DMPDEBDF+Q2 20048
000064                             9089+DARVOID1 EQU   DMPDEBOP 20048
000070                             9090+DARTCBPK EQU   DMPDEBPK 20048
000071                             9091+DARDCBAD EQU   DMPDEBDC 20048
000074                             9092+DARDEVCE EQU   DMPDEBXS 20048
000075                             9093+DARIOAPT EQU   DMPDEBAP 20048
000078                             9094+DARTMODE EQU   DMPDEBDV 20048
000078                             9095+DARUCBAD EQU   DMPDEBDV 20048
00007C                             9096+DARVOID2 EQU   DMPDEBBI 20048
00007E                             9097+DARCYLST EQU   DMPDEBST 20048
000080                             9098+DARTRKST EQU   DMPDEBHH 20048
000082                             9099+DARCYLND EQU   DMPDEBEN 20048
000084                             9100+DARTRKND EQU   DMPDEBEH 20048
000086                             9101+DARTRKSZ EQU   DMPDEBNT 20048
000090                             9102+DARECB   EQU   DMPECB 20048
000000                             9103+DARIOB   EQU   DMPIOB 20048
000000                             9104+DARIOBF1 EQU   DMPIOBF1 20048
000001                             9105+DARIOBF2 EQU   DMPIOBF2 20048
000002                             9106+DARIOBS1 EQU   DMPIOBS1 20048
000003                             9107+DARIOBS2 EQU   DMPIOBS2 20048
000004                             9108+DARECBAD EQU   DMPIOBEC 20048
000008                             9109+DARIOBF3 EQU   DMPIOBF3 20048
000009                             9110+DARCSW   EQU   DMPIOBCS 20048
000010                             9111+DARSIOCC EQU   DMPIOBSI 20048
000010                             9112+DARCCWAD EQU   DMPIOBSI 20048
000014                             9113+DARADDCB EQU   DMPIOBDC 20048
000018                             9114+DARVOID3 EQU   DMPIOBRE 20048
000020                             9115+DARDEBXT EQU   DMPIOBXT 20048
000021                             9116+DARSEKAD EQU   DMPIOBSE 20048
000000                             9117+DEBDSECT DSECT  MXMV
000000                             9118+         DS    0F MXMV
000000                             9119+DEBPREFX DS    8F DEB PREFIX                                MXMV
000020                             9120+DEBLNGTH DS    X DEB LENGTH IN DOUBLE WORDS MXMV
000021                             9121+         DS    3X MXMV
000024                             9122+DEB      DS    F DEB PROPER                                MXMV
000028                             9123+DEBAMLNG DS    X NUMBER OF CONCAT DS INDICESMXMV
000029                             9124+         DS    3X MXMV
00002C                             9125+DEBOFLGS DS    X DATA SET STATUS FLAGS      MXMV
000001                             9126+DEBCNFLG EQU   X'01' CONCATENATION INDICATOR     MXMV
00002D                             9127+         DS    7X MXMV
000034                             9128+DEBNMEXT DS    X TOTAL NUMBER OF EXTENTS    MXMV
000035                             9129+         DS    3X MXMV
000038                             9130+DEBPRIOR DS    X TASK PRIORITY              MXMV
000039                             9131+         DS    3X MXMV
                                                                                                               PAGE  210


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00000F                             9132+DEBKEYID EQU   X'0F' PROTECT KEY AND DEB ID     MXMV
00003C                             9133+DEBDCBAD DS    F PTR TO DCB RELATED TO DEB  MXMV
000040                             9134+DEBEXSCL DS    X EXTENT SCALE                MXMV
000004                             9135+DEBDASCL EQU   X'04' EXTENT SCALE FOR DASD       MXMV
000041                             9136+DEBAPPAD DS    XL3 PTR TO I/O VECTOR TABLE     MXMV
000044                             9137+DEBEND   DS    0X MXMV
000044                             9138+DEBDVMOD DS    X DEB EXTENT     FILE MASK                  MXMV
000010                             9139+DEBMACYL EQU   X'10' FILE MASK FOR CYL ALLOC     @SA61203
000018                             9140+DEBMATRK EQU   X'18' FILE MASK FOR TRACK ALLOC  MXMV
000045                             9141+DEBUCB3B DS    X HIGH ORDER BYTE-UCB ADDRESS MXMV
000046                             9142+DEBUCBAD DS    H UCB ADDRESS FOR EXTENT      MXMV
000048                             9143+DEBBINUM DS    H BIN NUMBER                  MXMV
00004A                             9144+DEBSTRCH DS    XL4 CYLINDER/TRACK START ADDR   MXMV
00004C                             9145+DEBSTRHH EQU   DEBSTRCH+2 MXMV
00004E                             9146+DEBENDCH DS    XL4 CYLINDER/TRACK END ADDR     MXMV
000050                             9147+DEBENDHH EQU   DEBENDCH+2 MXMV
000052                             9148+DEBNMTRK DS    H NO. OF TRACKS IN THIS XTENT MXMV
000054                             9149+DEBXTEND DS    0X MXMV
000010                             9150+DEBXTSZ  EQU   DEBXTEND-DEBDVMOD SIZE OF EACH EXTENT         MXMV
000024                             9151+DEBPFXSZ EQU   DEB-DEBPREFX SIZE OF DEB PREFIX         MXMV
000000                             9152+DCBDSECT DSECT  MXMV
000000                             9153+         DS    0F MXMV
000000                             9154+         DS    45X MXMV
00002D                             9155+DCBDEBAD DS    XL3 MXMV
                                   9156+***********************************************************************
                                   9157+*
                                   9158+*   DSECT FOR THE CONTROL BLOCKS TO BE SET UP
                                   9159+*
                                   9160+***********************************************************************
000000                             9161+XCPROG   DSECT
000000                             9162+XCPDCB   DS    0D DCB FIELD START
                                   9163+***********************************************************************
                                   9164+*
                                   9165+*  IOB         MAX OF 40 BYTES
                                   9166+*
                                   9167+***********************************************************************
000000                             9168+XCPIOB   DS    0D IOB FIELD START
000000 02                          9169+XCPIBFG1 DC    X'02' IOB-IOBFLAG1
000001 00                          9170+XCPIBFG2 DC    X'00' IOB-IOBFLAG2
000002 0000                        9171+XCPIBSEN DC    H'0' IOB-IOSENS0 & IOBSENS1
000004 00                          9172+XCPIBCC  DC    X'00' IOB-IOBECBCC
000005 000034                      9173+XCPIBECB DC    AL3(XCPECB) IOB-IOBECBPT (ADDR OF ECB)
000008 00                          9174+XCPIBFG3 DC    X'00' IOB-IOBFLAG3
000009 00000000000000              9175+XCPIBCSW DC    XL7'00' IOB-IOBCSW
000010 00                          9176+XCPIBSIO DC    X'00' IOB-IOBSIOCC
000011 000000                      9177+XCPIBCCW DC    AL3(0)
000014 00                          9178+XCPIBRES DC    X'00' IOB-RESERVED
000015 000000                      9179+XCPIBDCB DC    AL3(XCPDCB) IOB-IOBDCBPT (ADDR OF DCB)
000018 0000000000000000            9180+XCPIBPUR DC    D'0' IOB-NOT USED
000020 0000000000000000            9181+XCPIBSEK DC    D'0' IOB-IOBSEEK  (SEEK ADDR FOR DA)
                                   9182+***********************************************************************
                                   9183+*
                                   9184+*  DCB         FIELD CHANGED DURING OPEN  12 BYTES
                                   9185+*
                                   9186+***********************************************************************
                                                                                                               PAGE  211


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000028 00000000                    9187+XCPDCTIM DC    F'0' DCB-DCBTIOT & DCBMACRF
00002C 0C                          9188+XCPDCIFL DC    X'0C' DCB-DCBIFLG  (NEVER USE IOS ERR)
00002D 000038                      9189+XCPDCDEB DC    AL3(XCPDEB) DCB-DCBDEBAD
000030 00000000                    9190+XCPDCOFL DC    F'0' DCB-DCBOFLGS
                                   9191+***********************************************************************
                                   9192+*
                                   9193+*  ECB         ONE FULL WORD
                                   9194+*
                                   9195+***********************************************************************
000034 00000000                    9196+XCPECB   DC    F'0' ECB-COMPLETION POST WORD
                                   9197+***********************************************************************
                                   9198+*
                                   9199+*  DEB         MAX OF 48 BYTES
                                   9200+*
                                   9201+***********************************************************************
000038                             9202+XCPDEB   DS    0F
000038 0000000000000000            9203+XCPDBZER DC    4F'0' DEB-NOT USED BY EXCP
000048 01                          9204+XCPDBNXT DC    X'01' DEB-DEBNMEXT  (NO OF EXTENTS)
000049 00000000000000              9205+XCPDBNOT DC    XL7'00' DEB-NOT USED BY EXCP
000050 0F                          9206+XCPDBPID DC    X'0F' DEB-DEBPROTG,DEBDEBID
000051 000000                      9207+XCPDBDCB DC    AL3(XCPDCB) DEB-DEBDCBAD
000054 00                          9208+XCPDBEXS DC    X'00' DEB-DEBEXSCL  (EXTENT SCALE)
000055 000000                      9209+XCPDBAPP DC    XL3'00' DEB-DEBAPPAD (AD I/O APPEND VT)
000058 00                          9210+XCPDBMOD DC    X'00' DEB-DEBDVMOD (FILE MASK,DEVICE)
000059 000000                      9211+XCPDBUCB DC    XL3'00' DEB-DEBUCBAD (ADDR OF UCB)
00005C 0000                        9212+XCPDBBIN DC    H'00' DEB-DEBBINUM (BIN)
00005E 0000                        9213+XCPDBCCS DC    H'00' DEB-DEBSTRCC (START CYCLINDER)
000060 0000                        9214+XCPDBRWS DC    H'00' DEB-DEBSTRHH (START TRACK)
000062 0000                        9215+XCPDBCCE DC    H'00' DEB-DEBENDCC (END CYCLINDER)
000064 0000                        9216+XCPDBRWE DC    H'00' DEB-DEBENDHH (END TRACK)
000066 0001                        9217+XCPDBTRK DC    H'01' DEB-DEBNMTRK (NO EXTENTS ALLO)
000068                             9218+XCPCBSIZ EQU   *-XCPDCB SIZE OF CONTROL BLOCKS           MCS0
                                   9219          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000010
   01       01      0C     000014
   01       01      0C     000064
   01       01      08     001CF1
   01       01      08     001CF9
   01       01      08     001D01
   01       01      08     001D09
   01       01      08     001D11
   01       01      08     001D19
   01       01      08     001D21
   01       01      08     001D29
   01       01      08     001D31
   01       01      08     001D39
   01       01      08     001D41
   01       01      08     001D49
   01       01      08     001D51
   01       01      08     001D59
   01       01      08     001D61
   01       01      08     001D69
   01       01      0C     001DC8
   01       01      0C     001DCC
   01       01      0C     001DD0
   01       01      08     001DD4
   01       01      0C     001DD8
   01       01      0C     001DDC
   01       01      0C     001DE0
   01       01      0C     001DE4
   01       01      0C     001DE8
   01       01      0C     001DEC
   01       01      0C     001DF0
   01       01      0C     001DF4
   01       01      0C     001DF8
   01       01      0C     001DFC
   01       01      0C     002108
   01       01      0C     00211C
   01       01      0C     002124
   01       01      0C     003028
   01       01      0C     003898
   01       01      0C     003914
   01       01      08     0051BB
   01       01      08     0051C1
   01       01      0C     005224
   01       01      0C     00522C
   01       01      0C     005620
   01       01      0C     005624
   01       01      0C     005628
   01       01      0C     00562C
   01       01      0C     005630
   01       01      0C     005634
   01       01      0C     005638
   01       01      0C     00563C
   01       01      0C     005640
   01       01      0C     005644
   01       01      0C     005648
   01       01      0C     00564C
                                                 RELOCATION DICTIONARY                                          PAGE   2


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     005650
   01       01      0C     005654
   01       01      0C     005658
   01       01      0C     00565C
   01       01      0C     005660
   01       01      0C     005664
   01       01      0C     005668
   01       01      0C     00566C
   01       01      0C     005670
   01       01      0C     005674
   01       01      0C     005678
   01       01      0C     00567C
   01       01      0C     005680
   01       01      0C     005684
   01       01      0C     005688
   01       01      0C     00568C
   01       01      0C     005690
   01       01      0C     005694
   01       01      0C     005698
   01       01      0C     00569C
   01       01      0C     0056A0
   01       01      0C     0056A4
   01       01      0C     0056A8
   01       01      0C     0056AC
   01       01      0C     0056B0
   01       01      0C     0056B4
   01       01      0C     0056B8
   01       01      0C     0056BC
   01       01      0C     0056C0
   01       01      0C     0056C4
   01       01      0C     0056C8
   01       01      0C     0056CC
   01       01      0C     0056D0
   01       01      0C     0056D4
   01       01      0C     0056D8
   01       01      0C     0056E0
   01       01      0C     0056E4
   01       01      0C     0056F0
   01       01      0C     0056F4
   01       01      0C     0056FC
   01       01      0C     005700
   01       01      0C     005704
   01       01      0C     005708
   01       01      0C     00570C
   01       01      0C     005710
   01       01      0C     005714
   01       01      0C     005718
   01       01      0C     00571C
   01       01      0C     005720
   01       01      0C     005724
   01       01      0C     005728
   01       01      0C     00572C
   01       01      0C     005730
   01       01      0C     005734
   01       01      0C     005738
                                                 RELOCATION DICTIONARY                                          PAGE   3


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     00573C
   01       01      0C     005740
   01       01      0C     005744
   01       01      0C     005748
   01       01      0C     00574C
   01       01      0C     005750
   01       01      0C     005754
   01       01      0C     005758
   01       01      0C     00575C
   01       01      0C     005760
   01       01      0C     005764
   01       01      0C     005768
   01       01      0C     00576C
   01       01      0C     005770
   01       01      0C     005774
   01       01      0C     005778
   01       01      0C     00577C
   01       01      0C     005780
   01       01      0C     005784
   01       01      0C     005788
   01       01      0C     00578C
   01       01      0C     005790
   01       01      0C     005794
   01       01      0C     005798
   01       01      0C     00579C
   01       01      0C     0057A0
   01       01      0C     0057A4
   01       01      0C     0057A8
   01       01      0C     0057AC
   01       01      0C     0057B0
   01       01      0C     0057B4
   01       01      0C     0057B8
   01       01      0C     0057BC
   01       01      0C     0057C0
   01       01      0C     0057C4
   01       01      0C     0057C8
   01       01      0C     0057CC
   01       01      0C     0057D0
   01       01      0C     0057D4
   01       01      0C     0057D8
   01       01      0C     0057DC
   01       01      0C     0057E0
   01       01      0C     0057E4
   01       01      0C     0057E8
   01       01      0C     0057EC
   01       01      0C     0057F0
   01       01      0C     0057F4
   01       01      0C     0057F8
   01       01      0C     0057FC
   01       01      0C     005800
   01       01      0C     005804
   01       01      0C     005808
   01       01      0C     00580C
   01       01      0C     005814
   01       01      0C     005818
                                                 RELOCATION DICTIONARY                                          PAGE   4


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     00581C
   01       01      0C     005820
   01       01      0C     005824
   01       01      0C     005828
   01       01      0C     00582C
   01       01      0C     005830
   01       01      0C     005834
   01       01      0C     005838
   01       01      0C     00583C
   01       01      0C     005840
   01       01      08     0058A9
   01       01      08     0058B1
   01       01      08     0058B9
   01       01      08     0058C1
   01       01      08     0058C9
   01       01      08     0058D1
   01       01      08     0058D9
   01       01      08     0058E1
   01       01      08     0058E9
   01       01      08     0058F1
   01       01      08     0058F9
   01       01      08     005909
   01       01      08     005911
   01       01      08     005919
   01       01      08     005921
   01       01      08     005929
   01       01      08     005931
   01       01      08     005939
   01       01      08     005941
   01       01      08     005949
   01       01      08     005951
   01       01      08     005959
   01       01      08     005961
   01       01      08     005969
   01       01      08     005971
   01       01      08     005979
   01       01      08     005981
   01       01      08     005991
   01       01      08     005999
   01       01      08     0059A1
   01       01      08     0059B1
   01       01      08     0059C9
   01       01      08     0059D9
   01       01      08     0059E1
   01       01      08     0059E9
   01       01      08     0059F1
   01       01      08     0059F9
   01       01      08     005A01
   01       01      08     005A09
   01       01      08     005A11
   01       01      08     005A19
   01       01      08     005A21
   01       01      08     005A29
   01       01      08     005A31
   01       01      08     005A39
                                                 RELOCATION DICTIONARY                                          PAGE   5


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      08     005A41
   01       01      08     005A49
   01       01      08     005A51
   01       01      08     005A59
   01       01      08     005A61
   01       01      08     005A71
   01       01      08     005A81
   01       01      08     005A89
   01       01      08     005A91
   01       01      08     005A99
   01       01      08     005AA1
   01       01      08     005AA9
   01       01      08     005AB1
   01       01      08     005AB9
   01       01      08     005AC1
   01       01      08     005AC9
   01       01      08     005AD1
   01       01      08     005AE1
   01       01      08     005AE9
   01       01      08     005AF1
   01       01      08     005AF9
   01       01      08     005B01
   01       01      08     005B09
   01       01      08     005B11
   01       01      08     005B19
   01       01      08     005B21
   01       01      08     005B29
   01       01      08     005B31
   01       01      08     005B39
   01       01      0C     00620C
   01       01      0C     006214
   01       01      0C     00622C
   01       01      0C     006234
   01       01      0C     0064A0
   01       01      0C     00658C
   01       01      0C     006658
   01       01      0C     00665C
   01       01      0C     006660
   01       01      0C     00698C
   01       01      0C     006BA4
   01       01      0C     0073E4
   01       02      0C     005858
   01       03      0C     005850
   01       04      0C     005860
   01       05      0C     005854
   01       06      08     005865
   01       07      0C     00585C
   01       08      0C     005870
   01       09      0C     005874
   01       0A      0C     00586C
   01       0B      0C     005884
   01       0C      0C     005868
   01       0D      0C     005848
   01       0E      0C     00584C
   01       0E      1C     006BEC
                                                 RELOCATION DICTIONARY                                          PAGE   6


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       0F      0C     001D70
   01       10      0C     001D74
   01       11      0C     001D78
   01       12      1C     00011C
   01       13      1C     005878
   01       14      1C     00587C
   01       15      1C     005880
   01       16      1C     005888
   01       17      1C     006BA0
   01       18      1C     006BA8
   01       19      1C     006BAC
   01       1A      1C     006BC4
   01       1B      1C     006BCC
   01       1C      1C     006BD4
   01       1D      1C     006BD8
   01       1E      1C     006BF4
   01       1F      1C     006BF8
   01       20      1C     006BFC
   01       21      1C     006C00
   01       22      1C     006C04
   01       23      1C     006C08
   01       24      1C     006C0C
   01       25      1C     006C10
   01       26      1C     006C14
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ABNAPAD  00004 001D78 02701
ACONSWIT 00001 000008 00677   0516  0538  0540  0542  0678
ADAPNDG  00003 005865 06746   4363
ADCPCNVT 00004 005848 06738   3033
ADCVUCM  00004 005888 06756   0482  1123  3392  4039  4254
ADDARRUN 00004 001DCC 02724   2566
ADIEASQS 00004 005690 06613   3271
ADNIPEND 00004 0064A0 07369   3308  3410
ADNIP545 00004 00583C 06730   4947  4984
ALIGN2BY 00004 006492 07365   0497  4075  4076
ALIGN3BY 00004 006491 07364   1097  3984  3991
AMUTMOD  00008 00382C 03955
ANRENTER 00001 00007D 07910   8116
ANSRAREA 00004 00693C 07704   0926  0927  0929  0936  0938  1350  1357  1359  1360  2384  2387  2388  4101  4106  4176
                              4178  4183  5838  5871  6728  6925  6937  8119  8120
ANSWRCAW 00004 00575C 06672   0921  1351  2382  4102  4991  5839
ANSWRCCW 00001 0059E0 06936   0644  6672
ANSWREND 00004 005834 06728   1383
APLCEADR 00004 005740 06665
APPVTAB1 00004 001DD8 02727   2269  2269  2432  2437  2437  2726
ASMAPRET 00004 004112 04739
ASMCHCT  00001 0063DD 07335
ASMCLOSE 00001 00057C 00887   6587
ASMCLOUT 00001 00057C 00888
ASMCOUNT 00001 006475 07356   0814  0855  0859  0861
ASMNOALT 00001 000564 00879   0876
ASMPATHS 00001 006476 07357
ASMTAPNR 00001 000002 07349   7351
ASMTPRDY 00001 0000FD 07351
ASMUNCHK 00001 006477 07358
ASM2PATH 00004 00055C 00877   0875
ASNCHANS 00001 0063DE 07336
ASREND   00001 002708 03259   3247  3257
ASREND10 00001 002708 03260   3180
ASROPTNM 00003 006582 07433   3947  3947  3948  3948
ASRSAVE  00004 0026C8 03258   3205  3211  3237  3240
ASRSKIP  00001 0037CA 03945   3847  3929  3936  3941
ASRTABLE 00001 000140 07660
ASYALTOF 00001 0000FB 07353   0856
ASYMALTS 00001 000004 07352   0811  0877  7353
ASYMAP   00001 000546 00863   0739
ASYMOVEB 00002 000536 00858   0813
ASYMROND 00004 006470 07347   0836  0848
ASYMR0   00001 000000 00693   0817  0818  0818  0820
ASYMR1   00001 000001 00694   0841  0842  0842  0844  0844  0845  0864
ASYMR10  00001 00000A 00703   0723  0727  0820  1024
ASYMR14  00001 00000E 00704
ASYMR15  00001 00000F 00705   0874
ASYMR2   00001 000002 00695   0724  0725  0727  0729  0729  0739  0813  0862  0880
ASYMR3   00001 000003 00696   0858  0858  0859  0860  0861  0865
ASYMR4   00001 000004 00697
ASYMR5   00001 000005 00698
ASYMR6   00001 000006 00699   0866
ASYMR7   00001 000007 00700
ASYMR8   00001 000008 00701   0725  0740  0816  0816  0817  0836  0837  0848  0854  0854  0882
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ASYMR9   00001 000009 00702   0723  0837  0841  0865  0882  1024
ASYMSAVE 00004 006530 07428   0740
ASYMSRCH 00002 000362 00725   0730
ASYMSWIT 00001 006474 07348   0811  0856  0877  0878
ASYMTAPE 00001 0006D6 00992   0721
ASYMTSCB 00001 000390 00738   0726
ASYM15   00001 00035A 00722
ASYM16   00004 00039E 00743
ASYM2CHN 00001 000008 07354   0878  7355
ASYM2OFF 00001 0000F7 07355
ASYTAPNG 00001 000730 01019   1012  1015
BALLAST  00004 0003F4 00768   0766  0778
BEGADR   00001 00003F 00248   2115  2266  2288  2331
BFNADCON 00004 00562C 06583   6335
BFNBASAV 00004 005574 06532   6333  6337
BFNRGSAV 00004 005578 06533   6334  6338
BHCCWLST 00001 005AE0 07059   6684
BHLIST2  00001 005B08 07079   6685
BHLSTPTR 00004 00578C 06684   4850
BLANK    00001 000040 07940   8122  8166
BLANKIT  00006 00734C 08256   8046  8052
BLANKT   00004 007359 08259   8010
BLDADDR  00004 0069E4 07728
BLDLATR1 00008 006252 07318
BLDLCNVT 00008 006245 07312   3032
BLDLDONE 00001 000020 07735
BLDLFAIL 00001 003778 03922   3863
BLDLLINK 00001 000080 07733
BLDLLIST 00004 0037E4 03952   3854
BLDLLLIB 00001 0069F5 07736
BLDLMAIN 00001 0069F4 07732
BLDLRENT 00001 000080 07319
BLDLREUS 00001 000040 07320
BLDLSAVE 00008 0069D8 07726
BLDLSVCL 00001 0069F6 07737
BLDLTCHR 00008 006248 07314   3039
BLDLTOTL 00008 006255 07321
BLDLTTRR 00008 00624A 07317   3028
BLDLTTWD 00008 006248 07315   3029
BLDLTT3B 00008 006249 07316   3028
BLDL2    00001 000040 07734
BLDNG    00004 0069E8 07729
BLDXSWIT 00001 000001 07559   7567
BLMPXCPU 00001 0064BE 07382   2836
BLNKLOOP 00001 00719C 08121   8126
BMPXMODE 00001 000080 00221   2845
BRANSW   00001 00676A 07549   3416  7966  7968
BRANTAB  00001 003780 03925   3924
BUFCN    00002 006A22 07746
BUFSTART 00004 000000 08506   7991  8070
BUFSVC   00002 006A7E 07772
BUMPPNTR 00004 0010C4 01706   1533  1537
CANBY    00004 0044EA 05064
CANCEL   00001 000055 07944
CANXSWIT 00001 000080 07568   0922  1352  2383  4103  5064  7569
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CAW      00001 000048 00237   0902  0918  0921  0949  0975  0978  0982  1130  1347  3090  3119  4089  4095  4099  4102
                              4110  4137  4375  4424  4926  4940  4941  4952  4991  5033  5034  5038  5259  5836  6138
                              6497  6500  6507  6510  7954
CBALNGTH 00001 0000A8 00249
CCHANFIG 00004 00584C 06739   3095
CCHAROUN 00002 0025B0 03145   3142
CCHBLDL  00002 002512 03108   3085  3101
CCHCON   00003 00692F 07700   3088  3088  3089  3089
CCHEND   00001 0025C0 03150   3083  3092  3098
CCHLINK  00004 002554 03129   3096  3105
CCHLKRTN 00004 002570 03140   3140
CCHLOAD0 00002 0024D8 03093   3087
CCHLOAD1 00004 00250A 03106   3103
CCHLOAD2 00002 002542 03122   3116
CCHLOOP  00004 0024E6 03097   3107
CCHLST   00002 006590 07437   3110
CCHNAME  00006 006927 07698   3084  3100  3117
CCHNMBLD 00008 006594 07439   3084  3100  3123
CCHPARML 00004 006588 07435   3137  3138  3141
CCHSAVE  00004 002580 03143   3129  3140
CCHSTART 00001 0024A4 03081
CCHSUFIX 00002 00692D 07699   3099
CCHTTR   00001 0065A0 07441
CCH9BYTE 00001 006932 07701   3094  7436
CCR0     00001 000000 03064   3093  3095  3104  3110  3112
CCR1     00001 000001 03065   3108  3108  3111  3122  3122  3124  3130  3132  3133  3136  3137  3138
CCR10    00001 00000A 03074
CCR11    00001 00000B 03075
CCR12    00001 00000C 03076
CCR13    00001 00000D 03077   3129  3140
CCR14    00001 00000E 03078   3139  3140
CCR15    00001 00000F 03079   3086  3086  3093  3102  3102  3104  3109  3109  3115  3115  3127  3127  3139
CCR2     00001 000002 03066   3094  3097  3099  3106  3106  3129  3140
CCR3     00001 000003 03067   3145  3145  3147  3148
CCR4     00001 000004 03068   3085  3101  3121  3128  3131  3132  3133  3136  3146  3147  3148
CCR5     00001 000005 03069   3091  3096  3105  3120  3149
CCR6     00001 000006 03070
CCR7     00001 000007 03071
CCR8     00001 000008 03072
CCR9     00001 000009 03073
CCWCHAIN 00001 000040 00233   0234
CCWDP123 00001 001D7C 02703   2351  2352  2353  2354  2356  2357  2363
CCWD6789 00008 001DA8 02719   2364
CCWFLAGS 00001 000004 00232
CCWINIT  00006 0003B2 00752   0774
CCWNCHAN 00001 0000BF 00234
CCW3277  00001 0059B0 06912   6669  8030  8031  8032  8033  8066
CDLOOP   00004 004C74 05744   5744
CEAPPEND 00004 00165E 02172   2730
CELLTYPE 00002 00674F 07526   5901
CHANSPQE 00006 0038DA 03990   3982  3988
CHEAPAD  00004 001D74 02700
CHECKLGN 00001 0071E2 08146   8143
CHECKSSI 00001 003716 03891
CHKIPLDV 00004 000782 01051
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CHK2305  00004 000378 00732   0728
CHNLMASK 00016 005231 06255   6205
CLEARED  00004 00043C 00786   0756  0771  0780
CNCALL   00001 000040 07578   1983  1985  4343
CNR1     00001 000001 00468   0484  0485  0562  0595  0607
CNR10    00001 00000A 00477   0498  0499  0526  0527  0589  0591  0594  0602  0609  0612
CNR2     00001 000002 00469   0621  0622  0628  0632  0636  0638  0647  0649  0660  0666  0669
CNR3     00001 000003 00470   0528  0529  0536  0541  0544  0601  0606  0608  0610  0613  0652  0670
CNR4     00001 000004 00471   0494  0501  0502  0503  0512
CNR5     00001 000005 00472   0496  0500  0508  0510  0620
CNR6     00001 000006 00473   0495
CNR7     00001 000007 00474   0479  0483  0485  0486  0486
CNR8     00001 000008 00475   0480  0482  0483
CNR9     00001 000009 00476   0481  0487  0488  0546  0549  0550  0550  0562  0565  0566  0576  0577  0577  0582  0595
                              0596  0607  0635  0665
CNVNEXT  00004 004EE8 05947   5943
CNVTDTAB 00004 005884 06754   5606
CODEWORD 00001 000060 03157   3249  3253  3256  3849  3889  3918  3921  3923
COMBASAV 00004 005554 06524   6306  6310
COMMA    00001 00006B 07911   8164
COMONAC  00004 005620 06580   3413  6308  7646
COMPLGTH 00001 0071B6 08130   8123
COMPLT   00001 004C7C 05746   5740
COMPSAVE 00002 000328 00673   0594  0602
COMPSWIT 00001 000002 00675   0559  0561  0592  0597  0611  0625  0661  0667
COMRGSAV 00004 005558 06525   6307  6311
COMSTANT 00001 0010DC 01712   1541
CONACINX 00004 000174 00544   0518  0605
CONCARD  00004 0002D2 00644   0641
CONCATNO 00008 006247 07313   3009  3031
CONCHAIN 00004 0001E0 00575   0564
CONCHEND 00004 0001F6 00581   0578
CONCOMP  00004 000238 00599   0593
CONEXIT  00001 00032C 00680   0551  0558
CONHCGRQ 00004 000158 00537   0532
CONHCREQ 00004 000154 00536   0522  0604
CONHCRES 00004 00017C 00546   0569
CONICOMP 00004 00021E 00592   0586  0590
CONINAC  00004 005674 06601   6475  6482  6489
CONINDEX 00004 0001A2 00559   0513  0535  0539  0543  0545
CONINREG 00004 0055F4 06564   6474  6478
CONINSAV 00004 0055F0 06563   6473  6477
CONMINPT 00004 00030C 00665   0662
CONMOUPT 00006 00031E 00669   0664
CONMSAVL 00004 000164 00540   0524
CONNCMPX 00004 0001B0 00563   0560
CONNHCRQ 00004 000254 00606   0600
CONNPOUT 00002 0002EE 00652   0624  0637  0639  0643  0645  0650
CONNTAVL 00001 000120 00520   0517
CONNTEST 00004 0001D0 00571   0567  0583
CONOCOMP 00004 00021A 00591   0588
CONOFTWO 00004 006A4C 07761
CONPRNTR 00004 0002EA 00651   0648
CONREADY 00001 00674A 07523
CONRESET 00004 000180 00548   0554
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CONSALTS 00001 000010 07607
CONSCOMP 00001 000001 07605
CONSIGD  00001 000080 07610
CONSINT  00001 00003A 07912   8093
CONSLAC  00004 005684 06610
CONSLREG 00004 0055F8 06565   6481  6485
CONSLSAV 00004 0055FC 06566   6480  6484
CONSMCON 00004 0002F0 00658   0529  0606  0608
CONSMOUT 00002 000324 00670   0668
CONSOGD  00001 000040 07609
CONSOUTP 00001 000020 07608
CONSSWIT 00001 006778 07604   5410
CONSTPGR 00004 0002AE 00635   0631
CONSUCB  00004 000276 00620   0528  0536  0541  0544  0601  0610  0613
CONSUCBF 00001 000002 07606   5410
CONSWIT  00001 000326 00672   0491  0505  0516  0521  0533  0538  0540  0542  0559  0561  0563  0568  0573  0581  0585
                              0592  0597  0599  0603  0611  0623  0625  0661  0667
CONSWTCH 00001 006749 07522
CONSZINX 00004 0001B8 00565   0572
CONTCOMP 00004 000202 00585   0515
CONTGTYP 00004 0002A2 00632   0629
CONTINUE 00009 0006C8 00984   0939  0939
CONTNTRY 00004 000E4A 01547
CONTOUT  00004 0002DA 00647   0626
CONTROL  00006 007353 08258   8073
CONTURCD 00004 0002BA 00638   0633
CONUCOMP 00001 000140 00530   0614
CONUNIT  00006 0000B8 00493   0574  0580  0598
CONVERCL 00002 004A3C 05536   5543
CONVERTR 00004 004A40 05538
CONVRTLP 00002 0049B4 05488   5498
CORRINT  00001 00518C 06224   6222
CPUMOD   00002 006766 07546   1321  1322  1487  1490  1496  1500  2840
CPUMODL  00002 006760 07542   1318  1502  2822  3082  3175
CPUTAB   00002 0064A8 07371   1492
CPYCMDS  00001 00663C 07477   1128  1532  4085  4150  4209  4289  4929
CRDRCCW  00001 000002 06940   0644
CSPQESP0 00001 000080 00191   3986
CSWBUSY  00001 000010 00201   0759  5018
CSWCCC   00001 000004 00205   1029
CSWCHAN  00001 000045 00204   1029
CSWICC   00001 000002 00206   1029
CSWNOCTC 00002 0044A0 05040   5032
CSWRESID 00001 000046 00212
CSWSTAT  00001 000044 00203   0757  0759  0763  0806  1031  4810  5014  5016  5018  5031  5042  5051  5978  5985  5987
                              5991  6153  6155
CSWUE    00001 000001 00207   4810
CTCINITM 00004 00011C 00519   0507
CTCRDY   00001 0006F2 01000   0996
CUASER   00004 00588C 06760   2988  3025
CUB      00001 000050 00210   0757  5016
CUBSYEND 00001 000030 00209   5042  5985
CUE      00001 000020 00211   0763
CVTDAR   00001 000048 00245   2328  2610  2610  2621
CVTDATE  00001 000038 00107
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTDCB   00001 000074 00109   1094
CVTDISP  00001 000088 00112
CVTEPFP  00001 000001 00099   0423
CVTILK1  00001 000024 00104
CVTILK2  00001 000028 00105   0712  5444  5778  6055
CVTIXAVL 00001 00007C 00110
CVTLINK  00001 000008 00100   1286  1307  1945  3004  3193  3220  3857  3866  3885
CVTMZ00  00001 0000A4 00113   0433  2092
CVTNIP   00001 000010 00101   0399  3998
CVTNUCB  00001 000080 00111   3302
CVTOPTA  00001 0000B6 00114   0399  0423  3998
CVTPCNVT 00001 00001C 00103
CVTPNTR  00001 000010 00097   1285  1337  2819  3003  3192  3219  3856  3865  3884
CVTPTR   00001 000010 00371   3997  5443  5777  6054
CVTQLPAQ 00001 0000BC 00116
CVTRMS   00001 0000E0 00118
CVTSRCH  00001 0000B8 00115
CVTSVDCB 00001 000054 00108   1089  3528  4838
CVTSYSAD 00001 000032 00106
CVTSYST  00001 0000F8 00121
CVTTAT   00001 0000F5 00120
CVTTCBP  00001 000000 00098
CVTTSCE  00001 0000D8 00117
CVTTSKS  00001 0000F4 00119
CVTXAPG  00001 000015 00102   1100
DARADDCB 00004 000014 09113   2143  2276  2447
DARCCWAD 00001 000010 09112   2142  2292  2459  2500  2525  2547  2566  2578
DARCSW   00007 000009 09110   2534  2541
DARCYLND 00002 000082 09099
DARCYLST 00002 00007E 09097   2147  2266
DARDAIOB 00006 0017B6 02274   2286
DARDCB   00001 000088 09082   2258  2425  2426  2428  2624
DARDCBAD 00003 000071 09091   2276  2447
DARDEB   00001 000058 09085   2253  2253  2255  2423  2423  2424
DARDEBAD 00004 000089 09084
DARDEBXT 00001 000020 09115   2146  2146  2147  2148
DARDEVCE 00001 000074 09092   2262  2262  2264  2433  2434
DARDIS   00004 001DC8 02723   2573
DARDISM  00004 001BF6 02564   2472  2544  2555
DARECB   00004 000090 09102   2144  2150  2150  2156  2279  2281  2281  2295  2299  2322  2427  2427  2450  2465  2469
                              2528  2532  2550  2569  2581  2585  2622
DARECBAD 00001 000004 09108   2145  2280  2323  2451  2623
DARERCTL 00004 000088 09083   2256  2257
DARIOAPT 00003 000075 09093   2149  2268
DARIOB   00001 000000 09103   2140  2140  2154  2274  2274  2275  2275  2293  2321  2321  2445  2445  2446  2446  2463
                              2501  2526  2548  2567  2579
DARIOBF1 00001 000000 09104   2141  2278  2449  2524  2565
DARIOBF2 00001 000001 09105
DARIOBF3 00001 000008 09109
DARIOBS1 00001 000002 09106
DARIOBS2 00001 000003 09107   2471  2596  2599
DARIOPSW 00002 002104 02779   2506
DARLBLCK 00004 001BB0 02540   2533
DARNOTRK 00001 000060 09087
DARRESTR 00004 001B4E 02508   2781
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DARREW   00004 001BEE 02556   2535  2542
DARREWTP 00004 001C26 02576   2556
DARRSIZE 00001 000062 09088
DARRUN   00001 001D00 02641   2724
DARSECT  00001 000000 09081   2099  2138
DARSEKAD 00007 000021 09116   2151  2277  2289
DARSENS  00001 001CF0 02634   2546
DARSIOCC 00001 000010 09111   2594
DARSTART 00001 000058 09086
DARTCBFI 00001 001C56 02589   2587
DARTCBPK 00001 000070 09090   2260  2261  2430  2431  2626
DARTMODE 00001 000078 09094   2265  2435  2435  2436  2448
DARTPCCW 00001 001D60 02686   2523  2576  2577
DARTPLRD 00004 001B70 02523   2473
DARTPSNS 00004 001A8C 02458   2438  2516
DARTPTCC 00004 001C66 02594   2470
DARTRKND 00002 000084 09100
DARTRKST 00002 000080 09098
DARTRKSZ 00002 000086 09101   2267
DARTSCCW 00001 001D08 02645   2458  2499
DARUCBAD 00001 000078 09095   2263  2319  2412  2460  2590
DARVOID1 00001 000064 09089
DARVOID2 00002 00007C 09096   2254  2254
DARVOID3 00004 000018 09114
DBMVCALL 00001 000038 07581   4345  4434
DCBDDNM  00001 000028 00139
DCBDEBAD 00003 00002D 09155   1097  4359  4359  4384
DCBDSECT 00001 000000 09152   1096  4341
DCBDSORG 00001 00001A 00135
DCBEXLST 00001 000025 00138
DCBIOBAD 00001 00001C 00136
DCBIORMS 00001 000000 00134
DCBMACR  00001 000032 00142
DCBOFLGS 00001 000030 00143
DCBRECFM 00001 000024 00137
DCELBBNR 00001 000000 00089   6048  6130
DCELCSW1 00004 0003C8 00757
DCELCUE  00004 0003E0 00763   0760
DCELDATA 00002 006632 07472   5622
DCELSTAT 00001 000003 00091   6179
DCELTYPE 00001 000005 00072   0743  1762  5784  6062  6075  6082  6128  6133  6164
DCELVOLI 00001 000004 00092   5799  6177  6177
DCELVTOC 00001 00000C 00093   6178  6178
DCLASCOM 00001 000040 00070   0628
DCLASGRP 00001 000010 00069   0632
DCLASRCD 00001 000008 00068   0638
DCLBBNR1 00001 000001 00090   6135
DCM      00001 000000 08505   7950
DCMAXLGN 00002 007370 08264   7995  8127  8147  8158
DCMLGNTH 00002 007378 08266   8001  8178  8185  8198  8212  8216  8218
DCMMSGAD 00001 000008 00299   8174  8175  8194
DCMMSGIN 00001 000040 00298   8174  8175  8194
DCMMSGST 00001 000001 00297   8151
DDRALTCN 00007 006AE0 07801   1468  1470
DDRALTST 00001 000D0A 01467   1461
                                             CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DDREBCDC 00001 00002D 00219
DDRRQE   00001 000032 00218
DDRSPEC  00001 000004 07593
DDRTCB   00001 000018 00217
DDRUCBAD 00001 00002E 00220
DEB      00004 000024 09122   3007  3020  9151
DEBACYL  00004 003E36 04397
DEBADSAV 00004 003FD4 04519   4358  4360  4386  4392  4439  4488  4520
DEBAMLNG 00001 000028 09123   4494
DEBAPPAD 00003 000041 09136   1100  4363
DEBBINUM 00002 000048 09143   4483  4483  4483
DEBCALC1 00006 003F26 04462   4402  4432
DEBCCHH  00004 003E48 04402   4403
DEBCCHH2 00004 003EB4 04429   4418  4433
DEBCCH21 00004 003EC0 04432   4430
DEBCNFLG 00001 000001 09126   4493
DEBCNINX 00001 00401B 04526   4393  4453  4456  4489
DEBCNSAV 00004 00401C 04527   4454  4508
DEBCNXIT 00004 003FC2 04506   4491
DEBCOMON 00004 003D64 04342   6580
DEBDASCL 00001 000004 09135   4364
DEBDCBAD 00004 00003C 09133   4361  4362
DEBDSECT 00001 000000 09117   0382
DEBDVMOD 00001 000044 09138   3020  4480  4482  9150
DEBEND   00001 000044 09137   3017  4521
DEBENDCH 00004 00004E 09146   4463  4463  4469  9147
DEBENDHH 00004 000050 09147   4472
DEBEXIT  00004 003F1E 04459   4366  4371  4416  4435  4451  4506
DEBEXSCL 00001 000040 09134   4364
DEBKEYID 00001 00000F 09132   4362
DEBLNGTH 00001 000020 09120   4443
DEBMACYL 00001 000010 09139   4480
DEBMASK  00001 004019 04524
DEBMATRK 00001 000018 09140   4482
DEBMVCNX 00006 003FCC 04508   4499
DEBMVIO1 00004 003DC6 04368   4349
DEBNDSET 00004 003EC8 04434   4405
DEBNMEXT 00001 000034 09128   3014  4446  4449
DEBNMTRK 00002 000052 09148   4475
DEBNOTRK 00006 003F76 04483   4481
DEBNXSAV 00001 00401A 04525   4390  4396  4404  4447
DEBNXTNT 00004 003E44 04401   4391  4398
DEBOFLGS 00001 00002C 09125   4493
DEBPFXSZ 00004 000024 09151   1100  4357  4387
DEBPREFX 00004 000000 09119   4521  9151
DEBPRIOR 00001 000038 09130
DEBSIO1  00006 003DDE 04375   4346  4367
DEBSIO2  00006 003E86 04419   4410
DEBSIZE  00004 003FD8 04521   4355  4373  4436
DEBSTRCH 00004 00004A 09144   4462  4462  4464  9145
DEBSTRHH 00004 00004C 09145   4468
DEBTRKAL 00004 003F72 04482   4479
DEBUCBAD 00002 000046 09142   4476  4476
DEBUCB3B 00001 000045 09141   4477
DEBXTEND 00001 000054 09149   9150
                                             CROSS-REFERENCE                                                   PAGE    9


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DEBXTNTM 00002 003E2C 04394   4374
DEBXTNT1 00004 003E24 04392   4383
DEBXTSZ  00001 000010 09150   4484
DEBZCORE 00006 003FC6 04507   4356
DEB3ADR  00004 003FD5 04520   4359  4384
DECODE   00001 003772 03919   3852  3893
DELNTH   00001 00001B 00223   1252
DETTR    00001 00000E 00222   1249  1251
DIRACC67 00004 000522 00853   0850
DIR0     00001 000000 07914   7953
DIR1     00001 000001 07915   7951  7957  7958
DIR10    00001 00000A 07924   7956  8162  8169  8179  8180  8181  8182  8183  8186
DIR11    00001 00000B 07925   7949  7951  7952
DIR12    00001 00000C 07926
DIR13    00001 00000D 07927
DIR14    00001 00000E 07928
DIR15    00001 00000F 07929   7953  8103  8143  8153  8225  8236
DIR2     00001 000002 07916   8119  8125  8131  8138  8139  8139  8159  8182  8206
DIR3     00001 000003 07917   7989  7990  7990  7991  7994  8005  8006  8007  8010  8012  8012  8013  8016  8017  8017
                              8018  8019  8020  8023  8024  8024  8028  8030  8031  8034  8034  8035  8036  8036  8037
                              8073  8074  8074  8142  8144  8173  8176  8195  8196  8199  8200  8212  8213  8217  8221
DIR4     00001 000004 07918   7972  7973  7977  7981  7983  7995  7996  7996  7999  7999  8001  8002  8004  8007  8013
                              8019  8020  8045  8046  8048  8052  8054  8066  8067  8068  8069  8072  8120  8122  8124
                              8125  8127  8128  8131  8132  8132  8137  8149  8186  8187  8189  8201  8202
DIR5     00001 000005 07919   8002  8003  8004  8005  8039  8047  8047  8048  8050  8053  8053  8054  8056  8057  8057
                              8058  8077  8078  8086  8087  8088  8092  8101  8102  8141  8144  8151  8154  8155  8155
                              8156  8172  8174  8175  8176  8177  8178  8180  8184  8185  8190  8193  8194  8196  8197
                              8198  8200  8203  8206  8208  8210  8219  8222  8223  8223  8224  8230  8240
DIR6     00001 000006 07920   7954  7955  8040  8043  8049  8051  8055  8082  8083  8088  8092  8136  8137  8138  8147
                              8148  8149  8158  8159  8159  8160  8161  8164  8166  8168  8170  8181  8188  8208  8211
                              8215  8218  8227
DIR7     00001 000007 07921   7952  8161  8170  8172  8193  8215  8216  8220  8227  8229
DIR8     00001 000008 07922   7957  7972
DIR9     00001 000009 07923   7950  7958  7959  7959  7960  7961  7961  7962  7962  7963  7963  7964  7965  7989
DISMMCCW 00001 001CF8 02638   2723
DISMTAC  00004 005668 06598   6467
DISMTREG 00004 0055EC 06562   6466  6470
DISMTSAV 00004 0055E8 06561   6465  6469
DISPLAY  00001 0071D0 08140   8129  8133
DMPADKY1 00001 000101 09036
DMPADKY2 00001 00010D 09043
DMPADSAV 00004 000048 09025
DMPAEAPP 00001 000000 00010   2701
DMPAPPAD 00004 000028 08892   2336  2337
DMPAPTR1 00004 000130 09077
DMPAPTR2 00004 000134 09078
DMPASAV2 00004 000050 09027
DMPCBLGT 00001 000138 09079   2324  2617
DMPCCID  00001 000023 09047
DMPCCTB1 00001 00009E 08955
DMPCCTB2 00001 0000A6 08961
DMPCCTC1 00001 000098 08951
DMPCCTC2 00001 0000A0 08957
DMPCCTD1 00001 000099 08952
DMPCCTD2 00001 0000A1 08958
                                             CROSS-REFERENCE                                                   PAGE   10


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DMPCCTF1 00001 00009C 08953
DMPCCTF2 00001 0000A4 08959
DMPCCTN1 00001 00009D 08954
DMPCCTN2 00001 0000A5 08960
DMPCCWB1 00001 0000AE 08968
DMPCCWB2 00001 0000B6 08974
DMPCCWB3 00001 0000BE 08980
DMPCCWB4 00001 0000CE 08988
DMPCCWB5 00001 0000D6 08994
DMPCCWB6 00001 0000DE 09000
DMPCCWB7 00001 0000E6 09006
DMPCCWB8 00001 0000EE 09012
DMPCCWB9 00001 0000F6 09018
DMPCCWC1 00001 0000A8 08964
DMPCCWC2 00001 0000B0 08970
DMPCCWC3 00001 0000B8 08976
DMPCCWC4 00001 0000C8 08984
DMPCCWC5 00001 0000D0 08990
DMPCCWC6 00001 0000D8 08996
DMPCCWC7 00001 0000E0 09002
DMPCCWC8 00001 0000E8 09008
DMPCCWC9 00001 0000F0 09014
DMPCCWD1 00001 0000A9 08965
DMPCCWD2 00001 0000B1 08971
DMPCCWD3 00001 0000B9 08977
DMPCCWD4 00001 0000C9 08985
DMPCCWD5 00001 0000D1 08991
DMPCCWD6 00001 0000D9 08997
DMPCCWD7 00001 0000E1 09003
DMPCCWD8 00001 0000E9 09009
DMPCCWD9 00001 0000F1 09015
DMPCCWF1 00001 0000AC 08966
DMPCCWF2 00001 0000B4 08972
DMPCCWF3 00001 0000BC 08978
DMPCCWF4 00001 0000CC 08986
DMPCCWF5 00001 0000D4 08992
DMPCCWF6 00001 0000DC 08998
DMPCCWF7 00001 0000E4 09004
DMPCCWF8 00001 0000EC 09010
DMPCCWF9 00001 0000F4 09016
DMPCCWN1 00001 0000AD 08967
DMPCCWN2 00001 0000B5 08973
DMPCCWN3 00001 0000BD 08979
DMPCCWN4 00001 0000CD 08987
DMPCCWN5 00001 0000D5 08993
DMPCCWN6 00001 0000DD 08999
DMPCCWN7 00001 0000E5 09005
DMPCCWN8 00001 0000ED 09011
DMPCCWN9 00001 0000F5 09017
DMPCCWS  00008 000098 08949
DMPCCW1  00001 0000A8 08963   2363
DMPCCW1T 00001 000098 08950   2361
DMPCCW2  00001 0000B0 08969   2355
DMPCCW2T 00001 0000A0 08956   2362
DMPCCW3  00001 0000B8 08975
                                             CROSS-REFERENCE                                                   PAGE   11


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DMPCCW4  00001 0000C8 08983
DMPCCW5  00001 0000D0 08989
DMPCCW6  00001 0000D8 08995   2364
DMPCCW7  00001 0000E0 09001
DMPCCW8  00001 0000E8 09007
DMPCCW9  00001 0000F0 09013   9029
DMPCC1   00001 0000F8 09030
DMPCC2   00001 000104 09037
DMPCEAPP 00001 000000 00010   2700
DMPDATL1 00002 0000FE 09034
DMPDATL2 00002 00010A 09041
DMPDCB   00001 00005C 08932   8880  8916
DMPDCBDE 00004 000088 08934   2346  9083  9084
DMPDCBIF 00001 000088 08933   9082
DMPDCBOF 00001 00008C 08935   2332  2627  2627
DMPDEB   00001 000058 08901   8934  9085
DMPDEBAM 00001 00005C 08904   2341
DMPDEBAP 00003 000075 08918   9093
DMPDEBBI 00002 00007C 08921   2330  9096
DMPDEBCE 00004 000040 08898
DMPDEBDC 00003 000071 08916   9091
DMPDEBDE 00003 00005D 08905
DMPDEBDF 00001 000060 08906   9087  9088
DMPDEBDV 00001 000078 08919   9094  9095
DMPDEBEC 00003 00006D 08914
DMPDEBED 00004 000034 08895
DMPDEBEH 00002 000084 08925   9100
DMPDEBEN 00002 000082 08924   9099
DMPDEBEO 00001 000034 08894   8918
DMPDEBHH 00002 000080 08923   9098
DMPDEBIR 00003 000061 08907
DMPDEBNE 00001 000058 08902   9086
DMPDEBNM 00001 000068 08911
DMPDEBNT 00002 000086 08926   9101
DMPDEBOP 00001 000064 08908   9089
DMPDEBPC 00004 00003C 08897   2339
DMPDEBPK 00001 000070 08915   9090
DMPDEBPR 00004 000048 08900   9024
DMPDEBPT 00001 00006C 08913   2347
DMPDEBQS 00001 000065 08909
DMPDEBSI 00004 000038 08896   2338
DMPDEBST 00002 00007E 08922   2331  9097
DMPDEBTC 00003 000059 08903
DMPDEBUC 00003 000079 08920
DMPDEBUS 00003 000069 08912
DMPDEBXC 00004 000044 08899
DMPDEBXS 00001 000074 08917   9092
DMPDINFO 00002 00011C 09067   2102  2344  2344
DMPECB   00004 000090 08942   8875  8914  9102
DMPEND   00004 00004C 09026
DMPFLAG  00001 000114 09051   2345  2345
DMPFLAG2 00001 000115 09062
DMPFLKY1 00001 000100 09035   2358
DMPFLKY2 00001 00010C 09042
DMPHHID  00001 000025 09048
                                             CROSS-REFERENCE                                                   PAGE   12


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DMPHH1   00001 0000FA 09031
DMPHH2   00001 000106 09038
DMPIOB   00001 000000 08869   9079  9103
DMPIOBCS 00007 000009 08877   9110
DMPIOBDC 00004 000014 08880   9113
DMPIOBEC 00001 000004 08874   9108
DMPIOBEP 00003 000005 08875
DMPIOBER 00002 00001E 08883
DMPIOBF1 00001 000000 08870   9104
DMPIOBF2 00001 000001 08871   9105
DMPIOBF3 00001 000008 08876   9109
DMPIOBIN 00002 00001C 08882
DMPIOBRE 00004 000018 08881   9114
DMPIOBSE 00007 000021 08885   9045  9116
DMPIOBSI 00001 000010 08878   9111  9112
DMPIOBST 00001 000011 08879
DMPIOBS1 00001 000002 08872   9106
DMPIOBS2 00001 000003 08873   9107
DMPIOBXT 00001 000020 08884   9115
DMPKEYL1 00001 0000FD 09033
DMPKEYL2 00001 000109 09040   2343
DMPMERLN 00002 00012E 09076
DMPNEG1K 00004 000054 09028   2342
DMPPCIAP 00001 000000 00010   2699
DMPPLSTP 00004 000118 09065
DMPRID   00001 000027 09049
DMPR1    00001 0000FC 09032
DMPR2    00001 000108 09039
DMPSCHID 00001 000023 09046   2350
DMPSECT  00001 000000 08848   9081
DMPSINFO 00001 00011C 09066
DMPSTPTR 00004 000110 09044   9050
DMPTICCW 00001 0000C0 08981
DMPZEUSA 00002 000128 09073
DMPZEUSC 00002 00012A 09074
DMP2301  00002 000120 09069
DMP2302  00002 000124 09071
DMP2303  00002 000122 09070
DMP2311  00002 00011E 09068   2101  2340
DMP2314  00002 00012C 09075
DMP2321  00002 000126 09072
DONESENS 00001 000774 01039
DOSENSEN 00001 000770 01037   1032
DPR10    00001 00000A 06040   6079
DPR3     00001 000003 06033   6044  6048  6049  6050  6050  6051  6052  6053  6065  6080  6081  6085
DPR4     00001 000004 06034   6054  6055  6055  6056  6086  6086
DPR5     00001 000005 06035   6078
DPR6     00001 000006 06036   6045  6051  6070  6079
DPR7     00001 000007 06037   6056  6057  6057  6059  6061  6062  6064  6064  6066  6068  6077  6077  6084  6084
DPR8     00001 000008 06038   6061  6070  6075  6082
DPR9     00001 000009 06039   6044  6045  6048  6053  6066  6068  6074  6074  6080
DPVDSMNT 00004 004FEA 06078   6076
DPVNODCL 00002 004FB8 06066   6063  6085
DPVNTDCL 00004 004F8C 06054   6047
DPVNXUCB 00004 005008 06086   6058  6060  6083
                                             CROSS-REFERENCE                                                   PAGE   13


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DPVOLDTS 00004 004FDE 06075   6073
DPVOLRET 00004 004FEE 06079   6067  6071
DPVOLTST 00004 004F94 06056   6087
DPVUPPTR 00004 004FF8 06082   6069
DQELNTH  00001 000010 00196   3326
DSBMSGNM 00044 005E7B 07196   5717  5717
DSCBACYL 00001 0000C0 04514
DSCBALOC 00001 000032 04513
DSCBEND  00001 005EB0 07198   6968
DSCBF3   00001 0000F3 04517   4429
DSCBMSG  00026 005E61 07195   6967  6968
DSCBNDCH 00001 000006 04510   4463
DSCBSTCH 00001 000002 04509   4462
DSCBXCYL 00001 000081 04512   4478
DSCBXINX 00001 00000A 04516   4485
DSCBXTNT 00001 00000F 04511   4395  4397
DSCB3XTN 00001 000004 04515   4417  4428
DSMCURNT 00002 0050AC 06163   6160
DSMISSUE 00006 005058 06138   6134
DSMNAME2 00004 005042 06133   6129
DSMNRMRT 00004 0050CA 06170   6182
DSMNTFND 00004 00509E 06159   6146  6151
DSMRCELL 00004 0050D0 06173   6165
DSMRESET 00004 0050AE 06164   6162
DSMSBUCB 00006 0050E0 06177   6181
DSMTIOLP 00004 005062 06143   6150  6152
DSMTIONX 00004 005076 06148   6145
DSMUCKTS 00004 00508A 06153   6147
DSR0     00001 000000 06110
DSR10    00001 00000A 06118   6143  6144  6148  6149  6159
DSR11    00001 00000B 06119
DSR3     00001 000003 06111   6123  6170
DSR4     00001 000004 06112   6147  6152  6154  6158  6161  6163  6164  6166  6167  6168  6168  6169  6169  6173  6174
                              6175  6175  6177  6177  6178  6178  6179  6180  6180
DSR5     00001 000005 06113   6139  6156  6171  6176  6181
DSR6     00001 000006 06114   6126  6128  6148  6163
DSR7     00001 000007 06115   6135
DSR8     00001 000008 06116   6123  6127  6133  6143  6159  6161  6170
DSR9     00001 000009 06117   6130
DSSMVCCW 00001 0058F8 06817   6630
DTMSGBEG 00015 0021E1 02811   2400  2639  2640
DTMSGEND 00001 0021F0 02812   2640
DTUCBAC  00004 005638 06586   6357  6495
DTUCBAC1 00004 00563C 06587   6359
DTUCBAC2 00004 005640 06588   6362
DTUCBSAV 00004 00558C 06538   6356  6360  6363
DTUCB1   00004 005350 06359   5579
DTUCB2   00004 00535A 06362   5580
DUMLNTH  00001 000008 00194
DUMPINIT 00004 00187A 02324   2593
DUMPTYPE 00001 006602 07461   2059  2097
DUPVLAC  00004 005664 06597   6459
DUPVLREG 00004 0055E4 06560   6458  6462
DUPVLSAV 00004 0055E0 06559   6457  6461
DUPVLTST 00004 00547E 06457   0886  5568
                                             CROSS-REFERENCE                                                   PAGE   14


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

D2301    00002 001E09 02746
D2302    00002 001E0D 02748
D2303    00002 001E0B 02747
D23051   00002 001E11 02750
D23052   00002 001E13 02751
D2311    00002 001E07 02745   2101  2340
D2314    00002 001E15 02752
D2321    00002 001E0F 02749
D3330    00002 001E17 02753
EAORDER  00008 007340 08254   8016
ECDCOMBT 00001 000001 05142
ECFAILCW 00004 004730 05251   5227
ECFCAW   00004 00568C 06612   5224  5259
ECFCAWSV 00004 006B90 07833
ECFCCWFN 00004 004760 05272   5174
ECFCCWTR 00002 0046EC 05226   5237  5246
ECFCHECK 00001 0045EC 05151   5126
ECFCLEAR 00001 000000 05141
ECFCLKBY 00004 0064FA 07407   5181
ECFCNCMP 00004 004748 05258   5254
ECFCTCCW 00001 000001 07836   5221  5251  5258
ECFDCHK  00001 000008 05148   5153
ECFDMYN  00008 006B68 07832
ECFDMY1  00008 006B60 07831
ECFDSPFX 00004 00467A 05191   5185
ECFDTACN 00001 000080 05150   5175
ECFIXBIT 00001 000040 05146   5171
ECFLOCSN 00006 0066A4 07511   5173  5191  5197  5198  5199  5201
ECFMCOMP 00004 0064ED 07404
ECFMCREC 00004 0064EE 07405   5171
ECFMDISP 00004 0064FE 07406   5173
ECFMEXIT 00001 00475A 05262   5204
ECFMVCCW 00006 004722 05243   5229
ECFNOCNT 00004 0046DE 05222   5220
ECFNOLEF 00006 0046A4 05201   5196
ECFNOTIC 00006 0046C4 05209   5206
ECFRDCCW 00001 005AD0 07051   5255
ECFRSCNT 00006 004742 05255   5252
ECFR1    00001 000001 05135   5189  5190  5191  5192  5224  5238  5240  5241  5243  5244  5253  5255  5260  5263
ECFR2    00001 000002 05136   5184  5188  5193  5217  5218  5218  5219  5222  5232  5235  5239  5244  5245  5272  5275
                              5276  5277  5277
ECFR3    00001 000003 05137   5175  5177  5187  5203  5205  5207  5226  5273  5274  5274  5275  5276
ECFR4    00001 000004 05138   5182  5183  5183  5184  5187  5188  5190  5192  5193  5197  5198  5199  5201  5225  5226
                              5228  5230  5233  5236  5243  5245
ECFR5    00001 000005 05139   5155  5230  5231  5231  5232  5233  5235  5236  5238  5239  5240  5264
ECFR6    00001 000006 05140   5158  5159  5162  5165  5167  5174  5223  5223  5240  5260  5263  5278
ECFSEEK  00001 000007 05144
ECFSKCCW 00008 006B48 07828   6612
ECFSKIP  00001 000010 05149   5177
ECFSNTIC 00002 004712 05238   5234
ECFSRCH  00008 006B50 07829
ECFSRCMD 00001 000031 05147
ECFSWIT  00001 006B94 07834   5161  5164  5169  5179  5195
ECFSWIT2 00001 006B95 07835   5221  5251  5258
ECFTIC   00001 000008 05145   5205  5228  5241
                                             CROSS-REFERENCE                                                   PAGE   15


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ECFTICCW 00001 005AD8 07055   5207  5209  5217  5253
ECFTICFN 00001 0046AA 05202   5178  5200
ECFTICON 00001 0046CA 05216   5208
ECFTPZ   00001 000002 05143
ECFTYPEM 00004 004630 05171   5163
ECFTYPEZ 00001 004630 05170   5166
ECFUPTRS 00002 004728 05244   5242
ECFZDISP 00001 00466E 05186   5180
ECF1TIC  00008 006B58 07830
EIL      00001 000000 08825   3372
EILA     00004 00000C 08838
EILCL    00004 00001C 08846   8831
EILCLP   00003 000001 08831
EILDOM   00001 000014 08840
EILF     00008 000000 08828
EILIOL   00004 00001C 08844
EILL     00001 00001C 08847
EILPFXTN 00028 000000 08829
EILRMS   00004 000018 08842
EILRPYL  00001 000004 08832
EILRTCT  00001 000005 08833
EILSL    00004 000008 08836
EILWTL   00004 000014 08841
EILWTO   00004 000010 08839
EILX     00004 000008 08837
EILXA    00004 000004 08834   3394
EILXTNT  00001 000000 08830
ENDCCWLD 00001 005B40 07101   7647
ENDCONST 00004 005844 06732   7646
ENDHDR   00001 005DB9 07181   6948
ENDMCNIT 00001 00225C 02855   2852
ENDSER   00006 0042DC 04896   4878
ENDSRMSG 00001 005CB2 07149   7081
ENDTAB   00006 000D7A 01494   1499
END105A  00001 005C87 07144   6828
END2     00001 006AA4 07787   1680  7806  7807
END3     00001 006ACE 07795   1688  7807  7808
END370LP 00001 002248 02848   2839
END4     00001 006AE0 07799   7808
END6     00001 006AE7 07802
ENTAREA  00004 00000C 08509   8018  8050
ENTERKEY 00001 0000A0 07913   8106  8111
EOBTEST  00004 000B36 01356   1474  1556  1560
EPFPEXIT 00004 000070 00428   0424
EPFPRET  00004 000068 00426   0425
EPFPRTAC 00004 000064 00425   0421
EPFPSET  00004 00005C 00423   0427
ERDNAMER 00013 005D7E 07175   6501
ERDNAMES 00008 006B14 07822   1792  3548  3551  3774  3787  3792  4855  4887  6501  7068
ERRBUF   00001 006227 07305   5083  5085  5087  5089  5091  5093  5095  6261  6263  6265  6267  6269  6271  6273  8273
ERRNDMSG 00001 005BE7 07126   6944
ERRORMSG 00027 005BBA 07124   6943  6944
ESA      00004 006A5C 07765
EXCP     00001 007314 08242   8103
EXCPSTGD 00004 007330 08251   8249
                                             CROSS-REFERENCE                                                   PAGE   16


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

EXCPVCON 00004 005840 06731   8246
FBQESIZE 00001 000008 00197
FINDPARM 00004 000BE2 01401   1400  1536
FIRSTLOD 00001 006A28 07750   3639  3642  3661  3695
FMADDPTR 00001 000008 07659   4777
FMLENGTH 00001 000004 07657   4776
FNADDR   00004 0063D4 07332   5440  5442
FNADDREG 00001 00000A 05399   5417  5467  6206
FNBYTE   00001 0063DC 07334   5432  5433  5435  5436
FNCHAR   00004 004934 05438   5434
FNCHARB7 00001 0000B7 05393   5438
FNCHARMS 00001 000009 05392   5433
FNCONENT 00001 004940 05441   5411
FNEXTUCB 00004 00494C 05445   5448  5453
FNFNDIND 00001 0000FF 05395   5456
FNFOXZON 00001 0000F0 05394   5435
FNGODRT  00001 00496C 05454
FNGRET   00006 004980 05469   5450
FNLOOP   00004 004938 05439   5437
FNLRESET 00001 00019A 00556   0553
FNMISIND 00001 000000 05391   5470
FNNONDAD 00001 00497A 05466   5413  5416
FNONDASD 00004 00490A 05427   5468
FNPRIME  00004 004902 05421   5418
FNRET    00004 004974 05457   5471
FNROUND  00004 0063D8 07333   5421
FNR1     00001 000001 05400
FNR2     00001 000002 05401   5409  5428  5428  5430  5431  5432  5436  5438  5438  5440  5457
FNR3     00001 000003 05402   5426  5429  5467
FNR5     00001 000005 05403   5458
FNR7     00001 000007 05404   5427  5439
FNR8     00001 000008 05405   5409  5457
FNSAVE   00004 0063B8 07331   5409  5457
FNSERCH  00006 0048E8 05415   5420
FNSHIFT  00004 004914 05430   5439
FNUCBREG 00001 000008 05398   5445  5447  5447  5449  5451  5455
FNUCBTAB 00001 000004 05397   5443  5444  5444  5445  5446  5446
FORMAT1  00001 000004 04518   4368
FQESIZE  00001 000008 00195
FREEMAIN 00004 00415C 04779   4776  4777
FREOBREG 00004 005608 06569   6390  6394
FREOBSAV 00004 00560C 06570   6389  6393
FULLZERO 00006 006688 07501   1530  4052  4056  4195  4207
FUNCNAME 00021 005D8B 07176   3729  3731
F0LOAD   00001 002652 03221   3254
GCONSWIT 00001 000004 07552   7557
GETEXAC  00004 005628 06582   6326  6330
GETLS    00006 004188 04802   6331
GETMAC   00004 00565C 06595   6432
GETMAIN  00004 004130 04765   4762  4763
GETMAIN0 00004 003890 03970   3968
GETMAIN1 00001 006FD6 07988   7976  7980  7986
GETMREG  00004 0055CC 06554   6431  6435
GETMSAV  00004 0055C8 06553   6430  6434
GETOUT   00002 0041F6 04828   4811
                                             CROSS-REFERENCE                                                   PAGE   17


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

GETTEXT  00004 00417A 04799   6331  6582
GMADDPTR 00001 000008 07658   3968  4763
GMADDR   00004 00687C 07663   1801  1981  4759  4785  4785  5698
GMLENGTH 00001 000004 07656   4762
GORF     00001 007304 08235   8232
GOVRDQE  00001 000004 00198   3325
GOVRFLB  00001 000000 00005   6742
GRADMSG  00004 007434 08290   8078  8141  8156  8224  8229
GRBLNCS  00004 00745F 08308
GREATY   00002 007468 08311
GREIGHT  00002 007444 08295   8162
GRFORTY  00002 007446 08296
GRHC1052 00001 000002 07584
GRONK    00001 007098 08044   8042
GRPHSWIT 00001 00000C 07557   0531
GRSAVE   00004 00743C 08293   7955  8082  8136
GRSTART  00004 007440 08294   8102  8240  8245
GRUNIT   00002 007448 08297   7956  8093
GRWORK   00004 007430 08289
GTNINE   00004 0049C8 05494   5491
GTXBASAV 00004 005564 06528
GTXRGSAV 00004 005568 06529
GX2BASAV 00004 00556C 06530
GX2RGSAV 00004 005570 06531
G545SWIT 00001 000008 07553   0634  7555  7557
HALF1    00001 0072A0 08205   8183  8202
HALF2    00001 0072A6 08207   8189
HANG     00001 0000F7 07587   2078
HARCOPY  00009 006AE7 07804   1519  4200
HARDCOPY 00004 006635 07475   1530  4052  4056  4058  4064  4073  4075  4195  4207  4212  4213  4222
HBREXIT  00001 003070 03399   3397
HBRNCOR  00004 00306C 03398   3383
HBR14    00001 00000E 03369   3389
HBR15    00001 00000F 03370   3382  3382
HBR3     00001 000003 03364   3384  3385  3390  3394  3395  3396
HBR4     00001 000004 03365   3374  3385  3387  3388  3388
HBR5     00001 000005 03366   3386  3387
HBR6     00001 000006 03367   3372  3393
HBR8     00001 000008 03368   3373  3387  3391  3392
HBUFCN   00002 006A24 07747
HBUFSV   00002 006A7C 07771
HCANSWER 00006 004D70 05838
HCBEGIN1 00004 003932 04038   3966
HCBUFADR 00004 006658 07483   3374  3378  3386  3390  3391  4934  4966  4967  4972
HCBUFLNT 00004 00665C 07484   3396  4937
HCBUFNDR 00001 00007B 07494   4976
HCBUFSAV 00004 006660 07485   3384
HCBXLE   00004 003990 04063   4065
HCCALL   00001 000080 07579   4055  4156  5661
HCDIFLOG 00004 003AF2 04143   4117
HCEND    00004 003B28 04156   4088  4098  4141
HCFNDLOG 00004 003B0A 04149   4129
HCFNDUCB 00004 0039B8 04072   4069
HCFOUND  00004 003AA2 04124
HCIVDCAW 00004 005704 06650   4095
                                             CROSS-REFERENCE                                                   PAGE   18


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

HCIVDCCW 00001 0058C0 06785   6650
HCIVDEND 00001 005EEC 07204   6788
HCIVDMSG 00037 005EC7 07203   6786  6788
HCLOGX   00013 006645 07481   4113  4114  4114  4131  4133  4145
HCMISS   00006 003A1E 04095   4063
HCMSGHDL 00001 00000C 07496
HCMSGLNT 00001 000001 07499   4975
HCMSGPFS 00001 000010 07498   4936  4959  4965  4974
HCMSGPZL 00001 00000A 07497   4958  4962
HCMSGRTL 00001 000006 07495   4962
HCMSGTIM 00001 000004 07487   4961
HCNEWSTR 00004 00395C 04050   4048
HCNMCHNG 00004 003AC4 04133   4148
HCNOFIND 00004 003A1A 04094   4067  4071  4080  4132  4146
HCNOREDY 00006 003A02 04089   4083
HCNOSLOG 00006 003ACC 04135   4144
HCNRDCAW 00004 005708 06651   4089
HCNRDCCW 00001 0058C8 06789   6651
HCNRDEND 00001 005F0F 07207   6792
HCNRDMSG 00035 005EEC 07206   6790  6792
HCORBITS 00006 0039EA 04084
HCOTHLOG 00004 003AB8 04130   4120  4123
HCPAROND 00001 003D18 04306   4294
HCPASSDV 00006 003A72 04113   4059  4134
HCPBAD   00004 0052A6 06299   6291
HCPCMDS  00006 006671 07491   4264
HCPCOMTE 00004 003CF0 04296   4314  4326
HCPCOMTS 00001 003CE4 04292   4244
HCPDUPCT 00004 0052B6 06303   6301
HCPFFFF  00001 00657C 07488   4249  4287  4304
HCPGDRTN 00001 003CA4 04269   4279  4284  4291
HCPGOOD  00004 0052B2 06302   6290  6298
HCPICMDS 00008 006677 07492   4260
HCPNCMDS 00008 006669 07490   4266
HCPORSWA 00001 003D38 04315   4247
HCPPEGA  00001 003CB2 04275   4261
HCPPEGB  00001 003CC2 04280   4263
HCPRALL  00003 006666 07489   4226
HCPRETEA 00001 003C28 04234   4298
HCPRETEB 00001 003C34 04238   4233
HCPRETES 00004 003C02 04225   4217
HCPRTNAD 00004 0066F4 07515   6288  6295  6299  6302
HCPSCMDS 00008 00667F 07493   4262
HCPSCOMP 00001 00005D 00229   4218  4236  4252  4299
HCPSDVLT 00001 003CD2 04286   4219
HCPSERCA 00001 000E08 01529   1523
HCPSERCB 00001 000E1C 01534   1527
HCPSERCH 00001 000DDE 01518   1515
HCPSETCR 00004 003C5E 04250
HCPSETDM 00001 003CD8 04288   4253  4274
HCPSETEN 00001 003C62 04251   4240  4301  4305
HCPSETPT 00002 003D0C 04303   4229
HCPSETRC 00001 003C58 04248   4227
HCPSFAZE 00001 003BE0 04215   4224
HCPSLOG  00003 00663E 07479   4210  4222
                                             CROSS-REFERENCE                                                   PAGE   19


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

HCPSTCHR 00001 00663D 07478   4312  4313  4323  4324
HCPSTCMD 00001 003CAA 04272   4265
HCPSTEST 00001 003BF4 04221   4211
HCPXSWIT 00001 000010 07563   3398  4939  4997  7566
HCPYADDR 00004 005710 06653   6287  6294
HCPYERR  00001 003B8A 04193   4182  4201  4220  4232  4237  4242  4246  4267  4302  4317
HCPYGOOD 00001 003B9E 04198   4190
HCPYLOOP 00001 003B7A 04188   4192
HCPYSWIT 00001 000004 00676   0521  0533  0603  0678
HCPYTANS 00001 003B72 04185   4180
HCPY80   00001 000050 00228   4178
HCP1ADDR 00004 0066F0 07514   6286  6293  6303
HCP2ADDR 00004 005714 06654   6296
HCRDAGAN 00006 003A3A 04101   4112
HCREISSU 00004 003A28 04097   4057  4093
HCRESPEC 00006 003A30 04099   4107  4142
HCROUTC  00006 006687 07500   4962  7501
HCR0     00001 000000 04022
HCR1     00001 000001 04023
HCR10    00001 00000A 04032   4076  4077
HCR11    00001 00000B 04033
HCR12    00001 00000C 04034
HCR13    00001 00000D 04035
HCR14    00001 00000E 04036
HCR15    00001 00000F 04037   4128  4128
HCR2     00001 000002 04024   4060  4062  4063  4154  4154  4155
HCR3     00001 000003 04025   4060  4118  4126
HCR4     00001 000004 04026   4041  4042  4072  4081  4082  4127  4153
HCR5     00001 000005 04027   4074  4078  4092  4096  4100  4108  4111  4121  4138
HCR6     00001 000006 04028   4073  4125
HCR7     00001 000007 04029   4040  4042  4043  4043
HCR8     00001 000008 04030   4039  4040
HCR9     00001 000009 04031   4044  4045  4045  4061  4062  4063  4087  4115  4124
HCSERCH  00004 003A8A 04118
HCSPBUFS 00002 006664 07486   3395
HCSPECAW 00004 005700 06649   4099
HCSPECCW 00001 0058B8 06781   6649
HCSPECMG 00023 005EB0 07200   6782  6784
HCSPECND 00001 005EC7 07201   6784
HCSTART  00001 00396E 04054   4051
HCSTART2 00006 003972 04056   4109
HCSYSLOG 00004 006641 07480   4058
HCTRNOFF 00004 003958 04049   4046
HCXORY   00003 006652 07482   4136
HDRMSG   00009 005DA0 07179   6947  6948
HDRNAME  00016 005DA9 07180   3565  3566  3672
HDRPRINT 00006 005504 06497   3567
HIERBIT  00001 006A26 07748
HIFF     00004 006A60 07766
HWD      00002 006910 07691   1252  1253
H1       00002 007466 08310   8188
H10      00002 007452 08302
H2       00002 00743A 08292   8154  8187
IBMORG   00001 000000 00006   6749
IEAABREV 00004 000B6C 01370   1364
                                             CROSS-REFERENCE                                                   PAGE   20


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEAABUCB 00004 004A72 05552   5524
IEAADCDR 00004 0056B8 06623   5296  5301
IEAADCDS 00001 005968 06875   6623
IEAADCON 00004 000224 07646   3407
IEAAFTER 00004 0033BC 03646   3601  3636  3638  3641  3667
IEAALLOC 00004 0016A2 02206   2112
IEAALTR  00006 0047D0 05301   5124  5299
IEAANIP0 00001 000000 00002   7888
IEAAPAD  00004 0056C8 06627   1168
IEAARRES 00020 0060A3 07245
IEAASKTP 00004 001954 02374   2368  2371
IEAATE   00004 0064D8 07397   1177  1627
IEABALST 00004 004866 05338   5114
IEABLANK 00004 000BDE 01400   1385  1406  1511  1513  1555  1559  1592  1612  1619  1654  1659  1665  1708
IEABLDL  00006 006ACE 07796   1417  1419
IEABLDLL 00001 0069D5 07723
IEABLDLS 00008 0069CC 07721
IEABLDNM 00008 0069C4 07720
IEABLNCS 00080 006C76 07885   0926  1086  1093  1290  1350  1357  1360  1561  1628  1662  1738  1835  2384  2388  2613
                              3089  3531  3549  3568  3772  3790  3913  3948  4101  4106  4114  4178  5834  5838  5871
                              6124  6125  8220  8256
IEABLPTR 00004 0069C0 07719   3331  6708
IEABSAMR 00001 006759 07535   4804  5280  5282
IEABSAV  00004 0069E0 07727
IEABSE2  00004 000010 00395   0392
IEABSE3  00004 000014 00396   0393
IEABUFER 00008 006238 07310   0493  0495  0497  0958  0965  1836  1840  2043  2936  2937  2939  2952  3653  3657  4381
                              4428  4812  4854  5604  5605  5650  5657  6682  6686  6846  6862  7024  7052  7075  7309
                              7312  7313  7314  7315  7316  7317  7318  7321
IEACASE1 00004 000F52 01615   1604
IEACASE2 00004 000F5E 01618   1606  1608
IEACBUF  00002 007456 08304
IEACCWSZ 00001 000298 07647   3417
IEACDID  00004 00355A 03749   3756
IEACELLY 00002 00674D 07525   2044
IEACGM   00004 005824 06724   4773
IEACHND  00004 003538 03740
IEACKRPY 00006 0019A4 02396   2394
IEACLEAR 00004 001022 01664   1703
IEACLRCH 00004 004DDC 05864   5865
IEACLREM 00006 00329C 03568   3562  3563  3652  3656  3669  3670
IEACMNIP 00002 0021F0 02814   2365
IEACNLST 00004 005748 06667   1130
IEACODE  00004 003874 03957
IEACOMMV 00002 003F86 04487   4344
IEACOMON 00004 0052BC 06306   1090  1095  1287  1308  1946  1984
IEACOMTB 00004 00587C 06752   0397
IEACONBS 00001 005241 06260   0391  0395  0396  7652  8502
IEACONCN 00004 005680 06609
IEACONIN 00004 0054AE 06473   0923  1353  2385  4104  5841
IEACONIO 00004 004DF4 05870   5846  5859
IEACONSL 00004 0054C6 06480   0920  0979  1131  1268  1329  1348  1398  1554  1661  1721  1778  1973  1977  2199  2228
                              2374  2376  2477  2489  2504  2574  2615  2947  3047  3049  3091  3120  3524  3665  3713
                              3720  3915  3933  3940  3944  3949  4092  4096  4100  4111  4138  4774  4890  5499  5665
                              5719  5831  5837  5876  6139  6498  6502  6508  6511  6704
                                             CROSS-REFERENCE                                                   PAGE   21


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEACONS1 00004 000094 00482
IEACONT  00001 000896 01132   1129
IEACONTC 00006 006AC8 07794   1545
IEACONT1 00004 000E4E 01548   1550
IEACONWT 00001 005998 06899   6667
IEACON00 00004 0042F4 04910   6483  6490  6601  6609
IEACON01 00004 004304 04914   6483  6610
IEACON02 00004 004436 05000   4951  4996  5003  5015  5017  5039  5043  5067  5261  5284  5297  5302  5317  6490  6611
IEACON11 00004 0065D0 07444
IEACORSZ 00004 0064A4 07370   0400  1139  2887  3294  3826
IEACOUNT 00004 0068C8 07683   0931  1118
IEACTMSG 00006 000E40 01545   1539
IEACVUCM 00004 005888 06755   6756
IEACWCHN 00004 0030DA 03436   3431
IEADADZ0 00004 001C92 02609   2397
IEADBCCW 00001 005A18 06966   6631
IEADCELL 00002 004A24 05528   5515
IEADCELX 00001 00650F 07414   5563  5610
IEADCLRE 00004 004EB6 05918   5902
IEADC20  00004 0020CC 02762   2537
IEADC44  00004 0020F0 02774   2259  2429  2625
IEADC8   00004 0020D8 02765   2602
IEADEFLT 00001 000BBA 01391   1379
IEADEVMS 00004 0064E8 07402
IEADFLTR 00004 003926 04011   3812  3814
IEADGM   00001 005B20 07089   6724
IEADMNT  00004 005496 06465   6078
IEADMY   00004 00645C 07346   0444  1159  3270  3321  3332  3808
IEADPER1 00006 00192A 02366   2196
IEADPER2 00006 00193A 02369   2225
IEADPER3 00004 00194A 02372   2300
IEADPSAA 00002 001684 02192   2114  2183
IEADPSW0 00004 00166C 02178   2042  2179  2180  2181
IEADPSW1 00004 00166D 02179   2073  2111
IEADPSW2 00004 00166E 02180   2128  2162  2182  2185
IEADPSW3 00004 00166F 02181   2160  2372
IEADPTER 00006 001B08 02488   2480  2482  2484  2486
IEADQPTR 00004 00094E 01204
IEADRMLM 00002 006690 07505
IEADRSZ  00004 0020C8 02761   2067  2152  2215
IEADSCB5 00004 0056DC 06632   5703  5704
IEADSCB7 00004 0056EC 06640   5709  5710
IEADSCR  00004 002118 02785   2193
IEADSEOF 00004 0017E2 02285   2186  2243
IEADSFOR 00004 00174E 02247   2139  2285  2318
IEADSI1  00006 001548 02080   2072
IEADSI2  00001 001558 02090   2077
IEADSI3  00004 0015E4 02135   2127
IEADSI3A 00001 0015E8 02137   2129
IEADSI3B 00004 00167C 02185
IEADSI4  00004 001670 02182   2161
IEADSLST 00004 0056AC 06620   4375
IEADSNAM 00001 005C57 07140   1052  1294  1747  2050  6693
IEADSS   00044 005E17 07191   1975  6818
IEADSSMV 00004 0056D4 06630   1976
                                             CROSS-REFERENCE                                                   PAGE   22


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEADSTNM 00022 006C1C 07879   1085  1086  1092  1093  1289  1290  1737  1738  1863  1938  2038  2230  4113  4114  4135
                              5648  5663  5717  6637  6839  7307
IEADSTPC 00002 0020D4 02764   2068  2122
IEADSTSK 00001 005910 06830   6620
IEADSTSR 00001 005920 06838   6843
IEADSUCB 00004 004EC6 05922   6588
IEADSWKA 00004 001E4C 02759   2081  2113  2115  2236  2266  2288  2304  2331
IEADTACL 00001 006751 07527   5112  5514  5560  5572  5608  6046  6072
IEADTRKS 00004 0020D0 02763   2110  2135  2216  2267
IEADTUCB 00004 005346 06356   0884  5921
IEAECB   00004 006618 07465   6707
IEAEGM   00045 006170 07276   7090  7091
IEAENDBK 00001 006878 07645   7650
IEAENDCM 00001 001100 01723   1358  1373  1395  1399  1402  1590  1614  1667  1710
IEAENDLK 00001 0067F0 07627   7649  7650
IEAENDNP 00001 0075E0 08503   7369
IEAENDRM 00001 00352C 03736   3544  3546  3777
IEAENDRO 00004 00353C 03741   3738  3740
IEAENDX  00001 005B5C 07108   7109
IEAENTR  00001 007194 08118   8108  8113  8115
IEAEOCAR 00004 001274 01840   1805
IEAEOLST 00001 00129E 01851   1837
IEAERP   00006 006A45 07759   1421  1423
IEAERRA  00004 00526A 06271   1293
IEAERRS  00004 0064EC 07403   5099  5099  5117  5119  5121  5123  5125  5153  5338  5340  5347  6157  6225  6225  6244
                              6895  7404  7405  7406  7407
IEAERR1  00004 005242 06261   1062
IEAERR10 00004 004550 05091   5323
IEAERR11 00004 004558 05093   5304
IEAERR17 00004 004560 05095   5111
IEAERR18 00004 005272 06273
IEAERR2  00004 00524A 06263   5045
IEAERR3  00004 005252 06265   5005  5356  5504  6509
IEAERR4  00004 004530 05083   5360
IEAERR5  00004 004538 05085   5128  5154  5157  5160  5168  5172  5176  5194  5346  5348  5363
IEAERR6  00004 00525A 06267   1030  5069  5367
IEAERR7  00004 005262 06269   0570
IEAERR8  00004 004540 05087   5295  5300
IEAERR9  00004 004548 05089   5120
IEAEXCAW 00004 00577C 06680   6507
IEAEXCCW 00001 005AA8 07032   6680
IEAEXCP  00001 0074D8 08316   6731
IEAEXEND 00001 005D70 07172   7034
IEAEXIT  00006 000A40 01274   1260
IEAEXMSG 00026 005D48 07169   7033  7034
IEAEXNAM 00004 005D6C 07171   3295  3821
IEAFBQEA 00004 006884 07667   3316  3810
IEAFCBI  00004 001860 02318   2164  2184
IEAFGM   00001 00619D 07277   7091
IEAFINIS 00004 000FEE 01653   1639  1641  1645
IEAFLCAW 00004 00576C 06676   3932  6705
IEAFLCCW 00001 005A08 06958   6676
IEAFLEND 00001 005D27 07163   6960
IEAFLMSG 00024 005CFD 07161   6959  6960
IEAFNDTX 00004 004228 04849   4801
                                             CROSS-REFERENCE                                                   PAGE   23


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEAFORFT 00004 001212 01816   1812  1826  1834  1839  1843
IEAFOURT 00004 0069BC 07716   1620  3761
IEAFREEM 00004 004154 04776   4761
IEAFREOB 00004 0053AC 06389   1774  2082  2237  4153  4412  4457  5716
IEAFRMTO 00006 003124 03461   3450  3459
IEAF1OBT 00004 004BFA 05703
IEAF3OBT 00004 004C0C 05709   5702
IEAGETER 00004 000F66 01620   1615  1618
IEAGETLS 00002 0052F4 06329   1838  1842  3655  3659
IEAGETM  00004 005430 06430   1798  1982  5695  5722
IEAGETON 00004 000F90 01630   1570
IEAGETPM 00002 000E78 01558   1412  1430  1445  1452  1459  1466
IEAGETXT 00002 0052EC 06325   1809  3556
IEAGMRET 00004 004172 04786   4772  4775
IEAGOTPM 00006 000EDC 01583   1572  1574  1576  1578  1580  1617
IEAGOVRF 00004 005858 06742   1174  3281  3324  3333  3809
IEAGTCAW 00004 005774 06678   4806
IEAGTCCW 00001 005A80 07012   6678
IEAGTOUT 00004 000F74 01623
IEAHALT  00006 004DCA 05860
IEAHCEND 00004 003B40 04162   4053  4158  4160
IEAHCHAR 00006 006A98 07784   1396  1538  1542
IEAHDCAW 00004 005788 06683   6497
IEAHDCCW 00001 0059F0 06946   6683
IEAHDPRT 00004 003298 03567   3673
IEAHDRDR 00001 003276 03558
IEAHIDAT 00004 00661C 07466   6712
IEAHRAM  00007 006A13 07744   1413  1415
IEAHRAML 00008 006A1A 07745
IEAHSVC  00007 006A6D 07769   1431  1433
IEAHSVCL 00008 006A74 07770
IEAHSVCT 00006 000C6A 01431   1426
IEAHYLST 00006 000E28 01538   1520
IEAIGNOR 00006 00100E 01660   1416  1420  1424  1434  1438  1471  1517  1543
IEAINDIC 00001 006757 07533   1055  1297  1752  1899  2056  2408  4079  4122  5156  5456  5470  5898  6697
IEAINPBC 00006 003516 03731   3728  3730
IEAINPBD 00001 003504 03726   3553  3587  3679
IEAINSAV 00004 006524 07422
IEAINTAC 00004 005678 06602   6515
IEAINTH3 00004 00553C 06513   1034  5054  5981
IEAINTRP 00001 004DB6 05855   7300
IEAIOGO  00002 0054BA 06476
IEAIOSGN 00004 0052D4 06317   0866  1009
IEAIOTST 00004 0007AE 01061   1063  1069
IEAIPL   00002 006516 07417   0401  1051  1053  1059  1060  1744  1750  4799  4805
IEAJQTST 00006 000C7E 01435   1432
IEALAST  00001 00657C 07431   0714  1041  1494  2838  5415  5449  5779  7488
IEALBLSK 00001 005938 06850   6621
IEALBLSR 00001 005940 06854   4421  4422  4423  4426  4427  6859
IEALBLST 00004 0056B0 06621   4424  5602
IEALCSH  00004 0069B0 07712   1376
IEALCSLH 00006 0069AA 07711   1374
IEALCS00 00006 000B7C 01374
IEALCS10 00004 000BB6 01390   1375
IEALCS20 00006 000BCA 01396   1377  1394
                                             CROSS-REFERENCE                                                   PAGE   24


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEALDBL  00001 0069D4 07722
IEALDSW  00002 003360 03622
IEALD4SW 00004 0031EC 03519
IEALENGS 00001 000088 07650   3532
IEALENGT 00001 000070 07649   3493
IEALIBRY 00004 0041D2 04820   4814
IEALIGN  00004 006490 07363   0498  1099  3967  3972  3978  3987  7364  7365
IEALINKL 00002 0041FA 04830   4825
IEALIST  00004 006228 07306   5649  5651  5652
IEALISTK 00008 006780 07613   3492  7649
IEALMT   00004 005784 06682   1817  3580  3651  4816
IEALNGH  00001 00001C 07109   6902
IEALNKLS 00008 00676D 07574   1792
IEALNKNM 00012 006C53 07882   1289  1289  1290  1290  1294  1811  2945  2945  3118  3118  3491  3491  4824
IEALOCAT 00004 00537C 06374   1291  1740  1864  2039  4115
IEALODED 00001 006A27 07749   3519  3624  3776  3788
IEALOGNM 00011 006C5F 07883   1092  1092  1093  1093
IEALOOP1 00004 000860 01119   1119
IEALPAGO 00001 003130 03464   3408  3411  6662  7648  7652
IEALSTCT 00004 0068B8 07674   3757  3759  3789
IEALSTDB 00002 0069B4 07713   1583
IEALSTDC 00002 0069B6 07714   1585
IEALSTDD 00002 0069B8 07715   1587
IEALSTND 00004 000F4A 01613   1586
IEALSTPL 00004 000F3E 01610   1584  1588
IEALTREQ 00001 00675A 07536
IEALTRNT 00006 004818 05318   5306
IEAMAIN  00004 007374 08265
IEAMAINS 00004 0068A8 07672   6664
IEAMASC  00001 006AF0 07809
IEAMASK1 00004 0064E4 07401
IEAMBNM  00008 006A90 07778   3593  3698  3934  5833  5834  5914  5916  7041
IEAMDCAW 00004 005820 06723   1328
IEAMDCCW 00001 005B28 07092   6723
IEAMFAIL 00004 004C48 05726   5697
IEAMIN   00001 000044 00226   3475
IEAMINDC 00006 006AB6 07791   1453
IEAMINDL 00001 0068BE 07677   1455  3468
IEAMINLS 00008 006898 07670   1456  3470  3472
IEAMNT4  00004 004D3C 05827   5873  5885  5896
IEAMODEL 00006 006AC2 07793   1472
IEAMOUNT 00004 0053FE 06415   1902  5808
IEAMSGMV 00004 0056D0 06629   1972
IEAMSG1  00004 004BA8 05659   5655
IEAMSLNT 00001 000006 00225   4011
IEAMSTCB 00001 000000 00005   6740
IEAMS1ER 00004 005460 06446   1190  3323  3829  3835
IEAMS1GQ 00004 003630 03817   4013
IEAMS1LD 00004 003198 03495   3520  3525  3534
IEAMS1NO 00001 0068C0 07679
IEAMS2KS 00006 006AB0 07790   1446  3821
IEAMULTI 00004 003576 03757   3555  3654  3658  3735
IEAMULTJ 00004 0035A2 03769   3766  3768
IEAMULTK 00001 0035A6 03770
IEAMULTR 00001 003592 03764
                                             CROSS-REFERENCE                                                   PAGE   25


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEAMULTT 00004 0035BA 03776   3762  3773
IEAMULTV 00004 003420 03670   3671
IEAMULTW 00004 003286 03563   3564
IEAMULTX 00004 00325C 03552   3775
IEAMVADD 00004 001428 01964   1970
IEAMVBAD 00004 001360 01910   1918
IEAMVBY1 00004 001252 01832   1829
IEAMVBY2 00004 0012A6 01854   1850
IEAMVDEV 00004 00134E 01904   1896
IEAMVDSN 00004 001284 01844   1802  1847  1861  1879  1928  1962  1981
IEAMVD01 00004 0012D2 01869   1888
IEAMVD02 00004 0012EA 01880   1884  1924
IEAMVD03 00004 001310 01889   1881
IEAMVD04 00004 00138A 01920   1900
IEAMVEND 00001 00148E 01988   1794
IEAMVEOB 00004 001358 01907
IEAMVFND 00004 004208 04834   4823
IEAMVFOX 00004 0012FE 01885   1866
IEAMVHLP 00004 00146A 01979   1806  1807  1814  1848  1967
IEAMVLNK 00006 0011B2 01792
IEAMVL01 00004 0013AA 01931   1937  1954
IEAMVL02 00006 0013C6 01938   1934
IEAMVL03 00004 00140C 01956   1960
IEAMVL04 00004 001400 01952   1948
IEAMVL05 00004 0013F0 01948
IEAMVL06 00004 0013BA 01935   1951
IEAMVMNT 00004 001326 01894   1892  1895  1901  1903
IEAMVMOV 00006 00125E 01835   1830  1852
IEAMVMS0 00004 001438 01968   1978
IEAMVMS1 00004 001444 01971   1965  1974
IEAMVMS2 00006 001456 01975   1971
IEAMVMTA 00004 0056CC 06628   5830
IEAMVMTB 00030 005E43 07192   6808  7194
IEAMVMTC 00001 00001E 07194   6810
IEAMVMTZ 00001 005E61 07193   7194
IEAMVOBT 00004 00139E 01928   1890
IEAMVONE 00004 000FD0 01646   1637
IEAMVPRT 00006 004D56 05833   5829  6425
IEAMVPR0 00004 005416 06422   5480
IEAMVSKP 00004 00136E 01913   1919
IEAMVSTP 00004 001420 01962   1932  1957
IEAMVSWT 00004 004D44 05829   5832
IEAMVSW1 00004 001332 01897   1904  1907
IEAMVTRD 00004 00132E 01896
IEAMVUCB 00004 001336 01898   1894
IEAMVUPD 00004 001392 01922   1897
IEAMVVOL 00004 001288 01845   1862  1878  1929  1963
IEAM2KDL 00001 0068BD 07676   1448  3811
IEAM2KLS 00008 006890 07669   1449  3813  3815
IEANCELL 00004 004B2C 05615   5609
IEANEGRP 00004 002110 02783   2396
IEANENTS 00006 004EA2 05914   5905
IEANEVER 00008 005CB2 07151   6951  6952
IEANEWSK 00004 00483C 05326   5285  5319
IEANEXT1 00006 0012B6 01863   1872
                                             CROSS-REFERENCE                                                   PAGE   26


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEANFORM 00001 005908 06826   6619
IEANIP4  00002 000000 00389   0004
IEANLCAW 00004 005770 06677   3663  3939
IEANLCCW 00001 005A10 06962   6677
IEANLEND 00001 005D48 07167   6964
IEANLIMT 00004 00698C 07705   1646
IEANLMSG 00025 005D27 07165   6963  6964
IEANOADN 00004 002754 03294   3284  3286
IEANOCON 00004 002114 02784   2404  2405
IEANODCL 00004 0045AA 05115   5113  5339  5341
IEANODEF 00006 0034DC 03717
IEANODMP 00004 001540 02078   2051
IEANODSB 00004 0056D8 06631   5718
IEANOFND 00006 0042B8 04887
IEANOHY  00004 000BC2 01394   1390
IEANOLLS 00004 001486 01986   1800
IEANOLOD 00004 0033F4 03660   3609  3623
IEANOLPA 00001 0031F4 03521   3506
IEANOMIN 00001 00315C 03477   3469  3474
IEANONRS 00004 006A58 07764   3643  3694
IEANOPQ3 00004 000944 01201
IEANOPRM 00004 005764 06674   1397  1660
IEANOQBF 00001 003180 03487   3479  3484
IEANOSR1 00006 00426C 04866   4861
IEANOSR2 00004 004276 04868   4865
IEANOSUP 00006 0034BC 03710   3703
IEANOTLD 00001 006A29 07751   3598  3600  3715  3722  3724
IEANOUCB 00004 005316 06341   1056  1298  1753  2057  5899  6698
IEANOUGH 00004 0032DA 03583   3572
IEANOXTR 00002 003122 03460   3457
IEANTRMV 00001 003390 03634   3626  3628
IEANUCND 00004 006488 07361   0442  2100  2247  2252  2326  2422  2616  2619  2959  2965  2973  3130  3141  3183  3189
                              3203  3234  3264  4347  4437  4492  4496  4500  4505
IEANUDP1 00002 006878 07652   3426
IEANUDP2 00001 000FFF 07653   3427
IEANULLP 00004 0010BC 01704   1563
IEANVRND 00001 005CC9 07154   6952
IEANXTNB 00004 000FA0 01634   1652
IEANYDON 00002 00128C 01846   1841
IEAOBFAL 00004 004C1A 05714   5707
IEAOBTAN 00004 005394 06382   1757  2070  2232  4127  4369  4414
IEAONDCD 00004 0033D8 03653   3647  3650
IEAONDCE 00004 0033E8 03657   3552
IEAONDMB 00001 0032EE 03588   3574  3576  3581  3584  3586
IEAONE   00004 0064D4 07396
IEAONECH 00001 00675B 07537   1444  1451  1458  1465  1569  1630  1705
IEAOPERR 00006 0010F2 01720   1365  1388  1481  1495  1525  1528  1546  1552  1566  1568  1582  1629  1635  1643  1647
                              1719
IEAORIGN 00004 0047F0 05308   5288  5321  5325
IEAOUT   00004 00452A 05081   5079
IEAOVHED 00004 006628 07469   5632  6720
IEAPAD   00008 000000 00388   6627
IEAPARAM 00006 000BFA 01407   1404  1598  1600  1602  1609  1674  1682  1690  1698  1701  1711
IEAPKESV 00001 00675C 07538
IEAPLCE  00004 0068B0 07673   6665
                                             CROSS-REFERENCE                                                   PAGE   27


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEAPRCNM 00012 006C6A 07884   1737  1737  1738  1738  1747  1808  1808  3554
IEAPRCSW 00001 006752 07528   1746  1749  2048  5795  5918
IEAPRIOR 00001 00312E 07648
IEAPRMND 00001 0011B2 01780   1775
IEAPRNTM 00006 005530 06510   3594  3699  3935
IEAPTR1  00004 006A50 07762
IEAPTR2  00004 006A54 07763
IEAQBF   00001 00000A 00227   3485
IEAQBFDC 00006 006ABC 07792   1460
IEAQBFDL 00001 0068BF 07678   1462  3478
IEAQBFLS 00008 0068A0 07671   1463  3480  3482
IEAQLPAQ 00001 000000 00005   6744
IEAQSVCQ 00001 000000 00007   6747
IEARACAW 00004 005724 06658   2369
IEARACCW 00001 005A30 06976   6658
IEARAM   00006 006AA4 07788   1407  3566  3731
IEARAMLL 00001 006A12 07743   1392  1411  3543  3561  3591
IEARAMLS 00002 006A08 07741   1409  3549  3551  3769
IEARAML2 00008 006A0A 07742
IEARAMNM 00008 006A00 07740   3548
IEARAM1  00004 005860 06744   3741
IEARCONS 00001 005A70 07004
IEARCONW 00001 005A78 07007
IEARDVOK 00004 004B76 05635   5633
IEARDVOL 00004 005364 06366   1084  1301  1755  1943  2064  4125  5512  5903  6701
IEAREDTC 00002 004AB2 05574
IEAREG   00004 006498 07367   0488  0546  0660  3409  3437
IEAREGMT 00006 004E06 05874   5828
IEARELOC 00004 002788 03308
IEAREQTP 00006 001958 02375   2041  2045  2076  2079  2163  2234  2491
IEARESPC 00006 000B1A 01350   1557  1722
IEARESPR 00004 003472 03690   3709
IEARFCAW 00004 005728 06659   2373
IEARFCCW 00001 005A38 06979   6659
IEARJQ   00006 006A9E 07786   1435  1437
IEARLADR 00004 0065F8 07456   2062  2080  2235  2302  2303  2330
IEARLCAW 00004 005694 06614   0902  0949
IEARLCTR 00004 0030CA 03431   3415  3420  3421  3445
IEARLOCT 00004 0065E8 07450   2043  2044  2792  5816
IEARLPL  00003 005A69 07001
IEARLRPT 00004 0065E0 07448
IEARLSRC 00001 005A58 06993   6998
IEARLUCB 00004 0065E4 07449   2060  2221  2263  2410  2436  2496  2511
IEARLUNT 00002 006600 07457   2061  2311  2406
IEARLVOL 00006 00660A 07460   2066  2214  2231
IEARLXIT 00004 006614 07464
IEARMI   00004 007458 08305   6913  8106  8111  8116
IEARMLDR 00004 003230 03542   3526
IEARMLOP 00002 003244 03547
IEAROLST 00004 0056B4 06622   0752  4896  5283  5599
IEAROLS4 00004 0065D4 07445   2118  2121  2124  7005
IEAROLS8 00004 0065D8 07446   2119  2120  2123
IEAROSK  00001 005958 06866   0751  0787  6622
IEARPCCW 00001 005AB8 07040   6681
IEARPLYR 00010 006994 07707   0927  0927  0929  1361  2389  4179
                                             CROSS-REFERENCE                                                   PAGE   28


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEARPLYS 00006 00699E 07708   0936  0936  0938  1363  2391  4181
IEARPORT 00004 005780 06681   5836  6510
IEARPYER 00006 001ACC 02476   2392
IEARPYOK 00004 0019A0 02395   2390
IEARRAAW 00004 005730 06661   2227
IEARRACW 00001 005A48 06985   6661
IEARRCAW 00004 005760 06673   0978  1720  2476  4110
IEARRCCW 00001 0059E8 06942   6673
IEARRSAW 00004 00572C 06660   2198
IEARRSCW 00001 005A40 06982   6660
IEARSAV1 00004 006350 07324
IEARSAV2 00004 006354 07325
IEARSAV3 00004 006358 07326
IEARSCAW 00004 005720 06657   2366
IEARSCCW 00001 005A28 06973   6657
IEARSLTR 00001 0069D6 07724
IEARSVNM 00008 006A65 07768   3787
IEARTRKS 00004 00635C 07327
IEARXCAW 00004 005830 06727   1777  2614  3090  3914  3946
IEARXCCW 00001 005A20 06969   6727
IEASAVE  00004 006430 07342   5097  5189  5209  5225  5273  5289  5308
IEASCANL 00004 0041BA 04813   4817  4833  4841
IEASCAN0 00004 0053F6 06412   5924
IEASCAN1 00004 004C8E 05777   6413
IEASCONV 00004 005448 06438   0496  2403  4074
IEASCTIO 00004 005466 06449   0510
IEASDPNM 00009 001E20 02757   2038  2050  2209  2230  2611  2612  2612  2613  2613  2790
IEASEEKR 00004 0056BC 06624   5315
IEASEEKS 00001 005978 06883   6624
IEASENSE 00006 004568 05097   5046  5058
IEASER   00004 00225C 02874
IEASERCH 00004 0053DE 06405   1295  1748  1893  1940  2053  4118  6695
IEASERND 00001 0024A4 03051   2920  3040  3045
IEASETK  00002 00089E 01140   1145
IEASETKX 00001 0008B0 01146   1143
IEASETL  00001 006AF1 07810   1987  3760  3781  4820  4831  4834  4839
IEASETSW 00004 004D62 05835   5917
IEASGMIN 00004 003154 03475   3471
IEASGQBF 00004 003178 03485   3481
IEASHCPY 00001 003B46 04173   6653
IEASHCP1 00004 00527A 06286   4108
IEASHCP2 00004 005290 06293   1526
IEASHCP3 00001 003BB8 04206   4203
IEASINGT 00004 0047A0 05289   5281
IEASKADR 00004 006692 07506   0750  0750  0770  0773  0786  1764  1771  2047  2047  2062  4376  4419  4800  4802  4875
                              4877  4898  5286  5307  5318  5320  5326  5330  5333  5334  5336  5565  5573  5573  5596
                              5596  5601  5806  6831  6851  6867  6871  6884  6990  7013  7060
IEASKPRR 00002 0030F0 03442   3435  3438
IEASKRK  00004 006B10 07821   1773  4869  4872
IEASKRL  00005 006B20 07824   4802  4803  4862  4866  4874  4876  4898  7028
IEASMOVR 00001 0030FE 03447   3389  3424
IEASNCAW 00004 0056C0 06625   5034  5100  5735
IEASNCCW 00001 005990 06894   6625
IEASNSIO 00004 00457E 05101   5102
IEASN327 00001 0051C0 06243   6226
                                             CROSS-REFERENCE                                                   PAGE   29


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEASOFIX 00006 003256 03551   3550  3791  3793
IEASPCAW 00004 00582C 06726   3048
IEASPCCW 00001 005B38 07098   6726
IEASPIN  00004 004586 05103   5104  5109
IEASQS   00002 0008B4 01157   6613
IEASQSDL 00001 0068BC 07675   1441  3283
IEASQSGN 00001 000018 00224   1171
IEASQSLS 00008 006888 07668   1442  3285  3287
IEASQSQS 00006 006AAA 07789   1439  3295
IEASRADR 00005 00669F 07509   4377  4420  4803  5286  5287  5320  5597  5597  5598  5601  6855  6994  7017
IEASRCAW 00004 0057A4 06690
IEASRCCH 00004 005878 06751
IEASRCCW 00001 005B10 07083   6690
IEASRCIO 00004 0057A0 06689
IEASRCOM 00006 000D1E 01472   1469
IEASRDIO 00001 005B18 07086   6689
IEASREG  00004 00649C 07368
IEASREIO 00038 0060F0 07251   7087  7088
IEASREND 00001 0060B7 07246   7085
IEASREXT 00001 006585 07434
IEASRFIO 00001 006124 07253   7088
IEASRIDR 00001 005A88 07016   7021
IEASRMSG 00039 006072 07243   7084  7085
IEASRRE1 00019 0060B7 07247
IEASRRE2 00019 0060CA 07248
IEASRRE3 00019 0060DD 07249
IEASRSW  00001 006634 07473   2063  2065  5618  6700
IEASRTPC 00002 006630 07471   2068  5620  6717
IEASRUCB 00004 006510 07415   6709
IEASRXIT 00004 006610 07463   6706
IEAST    00004 00643C 07343   5298  5303  5305  6835  6876  6888  7064
IEASTART 00004 000002 00392   7648
IEASTPSC 00001 00650E 07413   5540  5613
IEASTR   00028 005B40 07107   6900  7109
IEASTREG 00004 006418 07341   5053  5055  5098  5130  5260  5263  5316  5343  5349
IEASTRIO 00004 0054E0 06487   0906  2313  4379  4425  4808  4852  4897  5600  5603
IEASTRTR 00004 000018 00397   0394
IEASTR0  00004 006444 07344   5307  5318  6880
IEASVC   00006 006ADA 07798   1425  3672  3729
IEASVCHD 00004 003418 03668   3560
IEASVCLB 00004 004210 04837   4827
IEASVCLL 00001 006A64 07767   1393  1429  3668  3696  3783
IEASVCLS 00001 006A80 07774   1427  3767  3790  3792
IEASVCMB 00006 003432 03674   3590
IEASVCMC 00001 003440 03677   3675
IEASVCMD 00004 00348A 03696   3676  3725
IEASVCNM 00011 006C48 07881   1085  1085  1086  1086  1267  1270  3530  3530  3531  3531  4826
IEASVC1  00004 005868 06747   3739  6715
IEASVLPA 00004 003208 03526   3496  3533
IEASVRB  00001 000000 00006   6743
IEASVRBA 00004 00585C 06743   1175  3303
IEASVRES 00004 0034FC 03724   3693
IEASVTST 00006 000C50 01425   1422
IEASWITA 00001 006768 07547   0531  0630  0634  0951  2922  2924  2981  3050  3335  4912  4943  4953  4977  4980  4987
                              4994  5843
                                             CROSS-REFERENCE                                                   PAGE   30


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEASWITB 00001 00676B 07558   0922  0924  1352  1355  1779  1793  2383  2386  3398  3542  3545  3664  3666  3712  3714
                              3719  3721  3732  3734  3785  3796  4103  4105  4889  4891  4924  4939  4989  4997  5064
                              5081
IEASWITC 00001 00676C 07570   0905  0907  0917  0941  0950  0971  1087  1091  1284  1288  1305  1309  1739  1741  1795
                              1983  1985  1986  2046  2054  4055  4156  4343  4345  4348  4365  4382  4409  4434  4450
                              4822  5004  5006  5012  5127  5479  5659  5661  5715  5810  5827  5904  8095
IEASWITD 00001 006775 07582   2049  2078  3423  4119  4130  4139  4143  4147  5047  5500  5578  5840  5842  5920  6692
                              8412  8414
IEASWITE 00001 006777 07594   0909  0911  1004  1006  1020  1025  1042  5020  5412  5845  5847  8097
IEATECAW 00004 001DF8 02735   2488
IEATECCW 00001 001D50 02680   2735
IEATEN   00004 0064E0 07400   5803
IEATERMV 00008 006480 07360   3627
IEATICER 00001 005988 06891   5313  5314
IEATIMER 00001 00083E 01109
IEATIOBI 00006 001A66 02445   2475  2498  2517  2538  2545  2557  2564  2588  2604
IEATMCAW 00004 001DF4 02734   2503
IEATMCCW 00001 001D48 02677   2734
IEATOLFR 00004 006624 07468   5626  6719
IEATOOBG 00006 005522 06507   3298  3319  3822
IEATOPCB 00004 005850 06740   1176  2977  3146  3216  3244  3345  3742  3980  6710
IEATPCLO 00004 004B72 05634   5619
IEATPRD  00006 001962 02382   2478
IEATRANS 00004 003106 03450   3455
IEATRBAL 00002 006580 07432   6713
IEATRCAW 00004 001DFC 02736   2375
IEATRCCW 00001 001D58 02683   2736
IEATRKSZ 00004 006620 07467   2067  5624  6714
IEATRNFR 00002 0032AA 03571   3582
IEATRPCL 00002 006508 07410   1760  4466  5328  5518  5535  5545  5634
IEATSCS1 00001 004454 05011   5002
IEATSCS2 00004 0044DA 05057   5052
IEATSTDV 00004 004D12 05810
IEATSTIO 00004 0044B4 05047   5001  5050  5056  5063  5080
IEATSTZB 00004 004778 05280   5118
IEATTRSV 00004 000968 01218
IEATUCB1 00006 004A8E 05565   5582
IEATUCB2 00001 004AA0 05569   6600
IEATUCB3 00004 004AC8 05581   5571
IEATXTRQ 00001 006758 07534   4860  4864  4892
IEATYPE  00002 00674B 07524
IEAUCBFN 00004 0052FE 06333   0500  0620  1054  1296  1751  1898  1941  2055  2407  4078  4121  5155  5813  5897  6187
                              6696
IEAUCBHL 00002 006514 07416   0501  0621  1058  1300  1754  1761  1920  1942  2058  2410  2411  4081  4124  4476  5158
                              5455  5469  5469  5814  5900  6188  6699
IEAUCBIN 00004 00532E 06349   0885  5567  5911
IEAUCBMS 00004 0056A8 06619   5481
IEAUCB1  00004 000338 00713   0718  0735  0737  0857  0994  1022  1027
IEAUCB12 00004 0006F6 01002   0999
IEAUCB13 00004 00074C 01028   1002  1028
IEAUCB15 00004 00034E 00719
IEAUCB16 00001 00039A 00741
IEAUCB2  00001 000444 00789   0744  0823
IEAUCB22 00004 000444 00790   0792  0799  0801  0804  0908
IEAUCB25 00001 000488 00810   0793
                                             CROSS-REFERENCE                                                   PAGE   31


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEAUCB27 00001 0004B8 00824   0812  0815  0819
IEAUCB28 00004 0004B8 00825   0943
IEAUCB3  00001 00050E 00847   0840  0889  6599
IEAUCB4  00001 000566 00881   0794  0807
IEAUCB5  00006 000778 01041   0715
IEAUCB7  00004 0006E6 00997   0998  1018  1036
IEAUCMS  00001 006756 07532
IEAUC12A 00001 0006FA 01003   1040
IEAUNIT  00004 006520 07421   0526  0527  0589  0591  0609  0612  1354  1905  3660  4910  4914  4942  5070  5115  5858
                              5861  5870
IEAUNMSG 00014 005C49 07139   6827  6828
IEAUNTNO 00001 005C72 07142   5484
IEAUPCYL 00002 004852 05332   5324  5329
IEAUU    00002 0069A4 07709   1372
IEAUUU   00004 0069A6 07710   1378
IEAVALUE 00004 0068C4 07682   1117  1121
IEAVOLAB 00001 0066AA 07512   1868  1891  1917  1939  2066  2197  2226  2231  2367  2370  5523  5551  5605  5657  5787
                              5799  5833  5874  5906  5914  5916  5923  6638  6646  6702
IEAVOLM1 00004 004E8C 05908   5915
IEAVOLTB 00001 006CD0 07899   0710  0724  5414
IEAVTOC  00001 00669A 07508   4376  4377  5517  5520  5522  5533  5534  5542  5547  5550  5604
IEAWAIT  00004 006220 07303   5084  5086  5088  5090  5092  5094  5096  6262  6264  6266  6268  6270  6272  6274  8274
IEAWMMSG 00004 001B1C 02496   2513  2575  2600
IEAXCP68 00004 005838 06729   4945  4982
IEAYCELL 00004 004B34 05617   5614
IEAZERO  00004 0064D0 07395   0514  1011  2159  2298  2468  2531  2553  2572  2584  3444  3495  3680  3789  3992  4068
IEAZIP   00002 007464 08309
IEA1STLD 00004 0033AC 03642   3640
IEA2MANY 00004 000F82 01627   1621
IEA327RD 00004 005750 06669
IEA327WT 00004 005754 06670
IEA4SQLV 00002 000966 01211
IEA4SQND 00001 000968 01212   1148
IEA40    00004 001264 01836   1818  1822
IEA43    00002 0064DE 07399
IEA5BUF  00002 007450 08301
IEA5BYTE 00006 0061FF 07294   4411  5714  5724  6645
IEA5ENT  00002 007454 08303
IEA6B    00004 001240 01827   1820
IEA6BUF  00001 00745C 08306
IEA6ENT  00002 00745D 08307
IEA9RTRN 00002 00420C 04835   4821  4842
IECIMABL 00004 004044 04658   4704
IECIMACU 00001 000001 04635   4703  4714
IECIMALC 00001 000001 04621   4682
IECIMAPS 00001 000001 04626   4682
IECIMAP1 00001 000004 04638
IECIMAP2 00001 000002 04639
IECIMAP3 00001 000001 04640
IECIMBSY 00001 000080 04648
IECIMBTM 00001 00000F 04652   4733
IECIMBYT 00002 004034 04654
IECIMCHA 00001 000004 04622   4732
IECIMCVT 00001 000010 04632   4685
IECIMFLG 00001 000006 04624
                                             CROSS-REFERENCE                                                   PAGE   32


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IECIMHWD 00002 004034 04653   4654  4697  4711
IECIMHWM 00004 004040 04657   4691
IECIMLCH 00001 00008C 04633   4686
IECIMLCI 00001 00000A 04625   4688
IECIMMB1 00001 000000 04644   4662  4717  4724  4732  4733
IECIMMB2 00001 000002 04645   4663
IECIMMB3 00001 000004 04646   4664
IECIMMB4 00001 000006 04647   4665
IECIMMXT 00002 004112 04738   4729
IECIMNUL 00001 000000 04641
IECIMNWA 00001 000006 04614   4662  4663  4664  4665  4680  4681  4681  4713  4732  4733
IECIMNXT 00001 000002 04643   4708  4718  4725
IECIMPIM 00001 0000F0 04650   4714
IECIMPIN 00001 000001 04651
IECIMPRM 00001 000001 04606   4678
IECIMPRP 00001 000008 04637
IECIMPST 00001 000020 04649
IECIMRC  00001 00000F 04615   4728  4728  4736
IECIMRC4 00001 000004 04642   4736
IECIMREG 00001 000003 04605   4677
IECIMSA1 00004 004038 04655   4677  4679
IECIMSA2 00004 00403C 04656   4678  4680
IECIMTAB 00001 004060 04668   4705
IECIMTCC 00001 000006 04634   4690
IECIMUAD 00001 000005 04623   4717  4724
IECIMUCB 00001 000005 04613   4679  4682  4688  4717  4724  4732
IECIMVC  00002 004048 04661   4706
IECIMW1  00001 000001 04608   4685  4686  4686  4690  4690  4691  4692  4693  4695  4700
IECIMW15 00001 00000F 04612   4703  4704  4705  4705  4706
IECIMW2  00001 000002 04609   4662  4663  4664  4665  4687  4687  4688  4689  4690  4694  4694  4695  4696  4698  4698
                              4699  4699  4700  4703  4708  4708
IECIMW3  00001 000003 04610   4696  4697  4709  4711  4719  4726
IECIMW4  00001 000004 04611   4713  4714  4717  4718  4718  4724  4725  4725
IECIM010 00004 00406A 04677   4560
IECIM020 00006 004104 04732   4683
IECIM030 00004 0040B8 04703   4709
IECIM031 00002 0040D4 04713
IECIM035 00006 0040DE 04717   4719
IECIM040 00006 0040F0 04724   4715  4726
IECIM050 00002 0040FE 04728   4721
IECPCNVT 00001 000000 00008   6738
IECXAPG  00001 000000 00005   6746
IECZDTAB 00001 000000 00006   6754
IEDPCAW2 00004 001DD0 02725   2312
IEDPCAW3 00004 001DF0 02733   2142  2292
IEDPCAW4 00004 001DEC 02732
IEDPCCW2 00001 001D10 02649   2725
IEDSBUFR 00008 001FB8 02760   2206  2207  2207  2208  2222  2239  2239  2241  2287  2287  2288  2289  2290  2291  2543
                              2554  2635  2642  2646  2662  2674  2687  2691
IEDSKADR 00004 0020FC 02777   2302  2650
IEDSRRCW 00001 001D40 02673
IEDSRWCW 00001 001D28 02661   2152  2153  2240  2308  2309  2309  2310
IEDSR0AD 00005 0020F4 02775   2238  2238  2290  2666
IEDSSADR 00005 0020E4 02771   2151  2242  2242  2277  2291  2303  2654
IEDSSCCW 00001 001D18 02653   2658  2733
                                             CROSS-REFERENCE                                                   PAGE   33


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEDSS2CW 00001 001D30 02665   2670  2732
IEECVTB  00004 005854 06741   1179  3985
IEECVTCB 00001 000000 00005   6741
IEFSD30  00008 006478 07359
IEJOBDCB 00004 00662C 07470   6711
IENTPM   00006 000C14 01413   1408
IENXTPRM 00006 000C28 01417   1414
IENXTPRN 00006 000C92 01439   1436
IENXTPRO 00006 000CB0 01446   1440
IENXTPRP 00006 000CCE 01453   1447
IENXTPRQ 00006 000CEC 01460   1454
IERLCAW1 00004 00571C 06656
IERLCCW1 00001 005A50 06989   6656
IEUCB0   00004 00032C 00710
IFBACTA  00001 000000 00009   6739
IFBADDR  00004 005894 06762   3339
IFBSEEK  00004 005890 06761   3038
IFBSERCW 00004 006918 07695   3338
IFBSERNM 00008 00691C 07696   2926  2929  2930  2930  2931  2931  2934  2937  2937  2944  2944  2990
IGCERROR 00001 000000 00006   6748
IGFINIT  00004 006B98 07840   3174  3204  3213  3230  3236  3843  3874  3878
IGFLIST  00001 0057A8 06691   3233  3249  3253  3256  3849  3875  3889  3918  3921  3923
IGFREFRS 00001 006BF8 07867   3235  3877  7844
IGFTAG   00001 005820 06722
INITMC1  00002 002256 02853   2832
INITMOD  00008 003824 03954   3855
INPTBAD  00006 005510 06500   3733
INTH3SVE 00004 005614 06572   6513  6517
INTH3SVR 00004 005618 06573   6514  6518
INTH3270 00001 00517C 06219   6241
INVLDCAW 00004 005778 06679   6500
INVLDCCW 00001 005AB0 07036   6679
INVLDEND 00001 005DA0 07177   7038
INVLDMSG 00014 005D70 07174   7037  7038
IOBCOMPC 00001 000004 00146
IOBCSWAD 00001 000009 00148
IOBCSWBT 00001 00000E 00150
IOBCSWST 00001 00000C 00149
IOBDCBPT 00001 000015 00152
IOBECBPT 00001 000005 00147
IOBFLAG1 00001 000000 00145
IOBSEEK  00001 000020 00153
IOBSTART 00001 000011 00151
IOCONSIN 00001 000020 07556   4912  4953  4977  4987  4994
IODEVINT 00001 00003A 00242   0963
IOEROCAW 00004 005768 06675   1266  3943  6703
IOEROCCW 00001 005A00 06954   6675
IOEROEND 00001 005CFD 07159   6956
IOEROLIB 00012 005CF1 07158   1267  1274  1274
IOEROMSG 00028 005CC9 07156   6955  6956
IOERROR  00001 0037C0 03942   3928
IOGOOD1  00001 00073C 01023   1001
IONEWPSW 00004 006210 07299   5853
IONEWSV  00004 005208 06247   6203  6215
IONWPSW  00001 000078 00240   0958  0959  0965
                                             CROSS-REFERENCE                                                   PAGE   34


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IOPAVBIT 00004 006578 07429
IOPSW    00004 006208 07297   0959  5878
IOPUCBMP 00004 006530 07426   0864  1008  1013  7428
IOR0     00001 000000 04541   4739
IOR1     00001 000001 04542   1008  1011  1014  1016  1016  1017  4606
IOR10    00001 00000A 04551   1017
IOR11    00001 00000B 04552   4557
IOR12    00001 00000C 04553
IOR13    00001 00000D 04554
IOR14    00001 00000E 04555   4559  4739
IOR15    00001 00000F 04556   4559
IOR2     00001 000002 04543
IOR3     00001 000003 04544   1007  4605
IOR4     00001 000004 04545
IOR5     00001 000005 04546
IOR6     00001 000006 04547   1013  1014  4740
IOR7     00001 000007 04548
IOR8     00001 000008 04549
IOR9     00001 000009 04550   1007
IOSADDR  00004 005880 06753
IOSAVE   00004 006538 07427   4559  4739
IOSGNAC  00004 005624 06581   6319
IOSGNREG 00004 005560 06527   6318  6322
IOSGNSAV 00004 00555C 06526   6317  6321
IOSKPMAP 00001 000710 01010   1005
IPLUCBLK 00001 0007C6 01070   1064
ISVLIBA  00004 006A2C 07752   3490  3501  3510  3529  3557  3603  3613
IWORK1   00008 006B28 07825   1655  1656  1656  1657
IWORK2   00001 006B30 07826   1632
IWORK3   00001 006B38 07827   1631  1633  1653  7705
JFCBCTRI 00001 00009B 00131   2220
JFCBDRLH 00001 0000AB 00132   2215
JFCBDSNM 00001 000000 00123   2209
JFCBIND2 00001 000057 00126   2210
JFCBMASK 00001 000048 00125
JFCBNVOL 00001 000075 00128   2213
JFCBPQTY 00001 000098 00130   2218
JFCBTSDM 00001 000034 00124   2211
JFCBVOLS 00001 000076 00129   2214
JFCDSORG 00001 000062 00127   2212
KEYSCAN  00006 004242 04855   4886
KNORG    00001 007000 08000   7998
KYWD1    00001 000006 07805   1694
KYWD2    00001 000006 07806   1670
KYWD3    00001 00002A 07807   1678
KYWD4    00001 000012 07808   1685
K0       00001 000000 03158   3898  3907  3911
K1       00001 000001 03159   3897  3900  3963
K16      00001 000010 03166   3256  3918
K175     00001 0000AF 03170
K176     00001 0000B0 03171
K2       00001 000002 03160   3908
K22      00001 000016 03167   3864
K3       00001 000003 03161   3902
K4       00001 000004 03162   3213  3903  3911  3912  3912  3914
                                             CROSS-REFERENCE                                                   PAGE   35


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

K7       00001 000007 03163   3185  3913
K72      00001 000048 03168   3914  3932  3939  3943  3946
K8       00001 000008 03164   3211  3240  3913
K84      00001 000054 03169
K85      00002 006764 07545   3177  3844
K9       00001 000009 03165
LASTMSG  00004 000008 08508   8006
LASTSCT  00004 000014 08511   8037  8142  8222
LCAW     00001 000004 00238   0902  0918  0921  0949  0975  0978  0982
LCSINX   00002 0027C4 03327
LIMITBLK 00004 005794 06686   4885
LINKUNIT 00002 006518 07418   1299
LOADFAIL 00001 0037AC 03937   3930
LOADH0   00004 003348 03615
LOADNAME 00008 0069F8 07739   3497  3500  3568  3569  3593  3604  3627  3662  3674  3678  3681  3698  3711  3718
LOAD4H0  00004 0031D4 03512
LOCATAC  00004 005648 06590   6376
LOCATDCL 00001 000004 07454   5816
LOCATDEV 00001 000002 07453
LOCATEOK 00001 006753 07529   1292  1742  1865  2040  4116  5656  5666
LOCATREG 00004 00559C 06542   6375  6379
LOCATSAV 00004 005598 06541   6374  6378
LOCATYPE 00001 000005 07455   2044
LOCXSWIT 00001 000040 07590   4139  4143  4147
LOGFSWIT 00001 000020 07589   4119  4130
LOOPA    00004 00709A 08046   8049
LOOPB    00004 0070B0 08052   8055
LOOP1    00002 00372C 03898   3916
LOOP2    00001 00372E 03899   3903
LPAGOAC  00004 005734 06662   3309
LPSW     00001 000008 00241   0958  0965
LSPQE    00001 000008 00190   3979  3983
LSPQEPTR 00001 000003 00189   3984  3990  3991  3992
LSTXSWIT 00001 000040 07565   3542  3664  3666  3712  3714  3719  3721  3732  3734  3796  4889  4891  7566
LUCMAUTH 00001 000001 08824   0666
LUCMRTCD 00001 000004 08822   0669
LUPSET   00004 0007E2 01078   1075
MAINSADR 00004 00573C 06664
MARK     00004 0022AA 02895   2892
MASKCHNL 00004 005220 06250   6208  6209  6211  6214  6223
MCHKNPSW 00001 000070 00239   3043  3043  3044  3341  3341  3342  3963
MCHLINK  00001 0025FC 03191   3182
MCHLOAD  00001 00369A 03853   3850
MCHNAME  00004 0037E8 03953   3855  3864  3867  3934  3938  6716
MCONSWIT 00001 000001 00674   0491  0563  0573  0581
MCPSWADR 00003 006924 07697   2973  3044  3342
MCSUCM   00001 000000 08765   0479  4259
MERLIN   00001 000009 05132   5161  5162  5179
MODDACCW 00002 0020E9 02772
MODELID  00001 00675D 07539   1505  1506  1509  2874  2878
MODELNO  00003 0061A9 07280   1322  1323  1325  1325  1325
MODESET  00001 001E19 02755   2419  2421  2448
MODFOUND 00004 00228E 02887   2882
MODNOFIN 00001 0061B9 07283   1325  1326  7094
MODNOMSG 00012 00619D 07279   7093  7094
                                             CROSS-REFERENCE                                                   PAGE   36


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MODNOT   00004 0022E2 02910   2885
MODNOZRO 00001 000AD4 01327   1324
MODTPCCW 00001 0020DC 02767
MOD3     00001 000033 07932
MOD370   00001 0025E4 03181   3178
MOD3701  00001 00368A 03848   3845
MONTEXIT 00004 004E9C 05912   5872
MONTSWIT 00001 000004 07585   5047  5840  5842
MOUNTAC  00004 005658 06594   6417  6424
MOUNTCAW 00006 004E0C 05875   5907  5919
MOUNTREG 00004 0055BC 06550   6416  6420
MOUNTSAV 00004 0055B8 06549   6415  6419
MOVE     00006 0022BC 02899   2896
MOVEIN   00001 007276 08192   8150
MOVEUP   00001 0072BA 08214   8219
MOVEWTO  00001 0072AC 08209   8145  8153
MOVSER   00006 00226C 02878   2875
MOVSER1  00004 002272 02879   2877
MPLOAD   00001 0027AC 03320
MPSOK10  00002 003646 03823   3820
MSGBNDAC 00004 005718 06655   3350
MSGBUFER 00004 002818 03352   7483  7485
MSGBUFND 00001 003018 03353   6655  7484
MSGMVCCW 00001 0058F0 06812   6629
MSGMVEND 00001 005E17 07189   7190
MSGMVLNG 00001 000028 07190   6815
MSGMVNOT 00040 005DEF 07188   6813  7190
MSGSTART 00004 000004 08507   7994  8039  8179  8199  8211
MSG1CAW  00004 00567C 06608   4137  5664
MSG1CCW  00001 0058A8 06772   3418  6608  7647
MSG1END  00001 005C37 07131   7132
MSG1LNTH 00001 000050 07132   6775
MSG1ST   00016 005BE7 07128   6773  7132
MSG1STNM 00045 005BF7 07129   4135  4136  5663
MSG2CAW  00004 0056A0 06617   5875
MSG2CCW  00001 0058D8 06797   6617
MSG2END  00001 005C49 07136   7137
MSG2LNTH 00001 000012 07137   6800
MSG2ST   00012 005C37 07134   5874  5906  5923  6798  7137
MSG220C  00002 00744E 08300
MSG2260  00002 00744C 08299
MSG3CAW  00004 0056A4 06618   6138
MSG3CCW  00001 0058E0 06802   6618
MSG3END  00001 006170 07267   7268
MSG3LNTH 00001 00001A 07268   6805
MSG3ST   00012 006156 07265   6803  7268  7269  7270  7271  7272  7273  7274
MSG3ST12 00012 006162 07269   6127
MSG3ST15 00012 006165 07270   6124  6137
MSG3ST16 00012 006166 07271   6135  6136
MSG3ST21 00012 00616B 07272   6126
MSG3ST24 00012 00616E 07273   6125  6132
MSG3ST25 00012 00616F 07274   6130  6131
MSPQESP0 00001 000020 00192   3981
MSRSW    00001 006754 07530   4378  4380  4807  4809  4851  4853  5322
MS1ERAC  00004 005744 06666   6446
                                             CROSS-REFERENCE                                                   PAGE   37


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MULSRTS  00004 00482C 05322   5122
MVCALL   00001 000008 07575   1795  1986  4348  4409  4450  4822  5479  5827  5904  7580  7581  8095
MVLISTSZ 00001 000800 07662   1796  1979
MVMTACCW 00001 0058E8 06807   6628
MVXSWIT  00001 000008 07562   1793  7567
MXCALL   00001 000010 07576   1087  1091  1305  1309  7580  7581
MXMVCALL 00001 000018 07580   4382
NCONINT  00001 000010 07601   5845  5847  8097
NEG1024  00004 001E03 02743   2342
NEWPSW   00004 0073E0 08284   8087  8089
NEWSHCP2 00001 003BB4 04204   6654
NEW3270P 00005 0051B6 06240   6204
NEXT     00006 005170 06215   6253
NEXTKEY  00002 00429C 04879   4856
NEXTNUMB 00004 0049CE 05496   5493
NINE     00002 0064DC 07398   5490  5494  5945
NIPLCPTR 00001 000174 00243
NIPSQSBD 00001 000018 00199   3300
NIP5450  00001 006F52 07905   6730
NLASTSPQ 00002 0038F4 03995   3993
NLCSINX  00004 0027C0 03326
NLMEMBER 00008 005D40 07166   3662  3938
NLOCMSG  00004 004BC8 05666   5660  5662
NMCNSWIT 00001 00000C 00678   0505  0568  0585  0599  0623
NOCANCEL 00001 00007F 07569   0924  1355  2386  4105  5081
NOCONS   00004 0044FA 05068   5065
NODEFCAW 00004 00579C 06688   3717
NODEFCCW 00001 005AC8 07048   6688
NODEFEND 00001 005F82 07221   7050
NODEFMSG 00013 005F66 07218   7049  7050
NOHANG   00001 000008 07586   2049  5500  7587
NOHARDSW 00001 000050 07566   4924  4989
NOHNGCON 00004 006990 07706   2052  5502  6694
NOLIST   00001 003308 03595   3592  3697  3700  3716  3723
NOLIST2  00001 003320 03602   3597  3599
NOLOAD   00001 00376E 03917   3872
NOMOD195 00002 002348 02935   2933
NOPARMSW 00001 00002F 07567   1779
NOPRMCCW 00001 0059F8 06950   6674
NORESET  00004 005164 06212   6213  6251
NOSER0   00001 002804 03343   3336
NOSUP    00006 00248C 03046   2911  2919
NOSUPCAW 00004 005798 06687   3710
NOSUPCCW 00001 005AC0 07044   6687
NOSUPEND 00001 005F66 07216   7046
NOSUPMSG 00013 005F48 07213   7045  7046
NOSUPP   00004 00189C 02333   2628
NOTCONS  00001 00451E 05077   5071  5073  5075
NOTCTC   00001 0000FA 00509   0504
NOTFOUND 00001 003794 03931   3927
NOTHERSV 00004 0066B0 07513   4038  4162
NOTMASTR 00001 0000FE 00511   0506
NOT3330  00001 001592 02108   2106
NOUCBAC  00004 005630 06584   6343
NOUCBSAV 00004 00557C 06534   6341  6345
                                             CROSS-REFERENCE                                                   PAGE   38


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

NOUCRGSV 00004 005580 06535   6342  6346
NO255B   00004 007170 08109   8105
NO3277   00004 007184 08114   8110
NSHARSP0 00001 0038F6 03996   3977  3989
NUCFIXED 00001 000094 00447   0445
NUCLEUS  00007 006CC6 07886   1052
NUCLOAD  00001 002604 03194   3250
NUCSPACE 00002 000092 00446   0441
NUMEXT   00001 00000F 00247   2113
N120     00001 000078 07936   8088  8089  8092
N124     00001 00007C 00235   0961
N2303    00004 003F62 04478
N79      00001 00004F 07931   8120
OBTANAC  00004 00564C 06591   6384  6391
OBTANREG 00004 0055A4 06544   6383  6387
OBTANSAV 00004 0055A0 06543   6382  6386
OFFLINE  00001 00007F 00213   6167  6174  6179
OPCNTCAW 00004 005758 06671   1553
OPCNTCCW 00001 0059D8 06932   6671
OPCNTEND 00001 005BBA 07122   6934
OPCNTMSG 00018 005B97 07120   6933  6934
OPEJSWIT 00001 000018 07555   0951  4943  4980  5843
OPMLEVEL 00003 005B8E 07116   1346
OPMLOOP  00004 000AE6 01339   1341
OPMRELNO 00002 005B8B 07114   1345
OPMSGCAW 00004 00574C 06668   1347
OPMSGCCW 00001 0059A0 06904   6668
OPMSGEND 00001 005B97 07118   6906
OPMSGMSG 00017 005B5C 07111   6905  6906
OPMSGTAB 00001 006AF2 07811   1338
OPMSYSTM 00006 005B91 07117   1342
OTHERAPP 00002 00166A 02175   2727  2728  2729  2731
OTHRCON1 00004 006528 07424
OTHRCON2 00004 00652C 07425
P        00001 0000D7 07934
PACKED   00004 006494 07366   4933  4960  4961
PARAMTER 00007 005CBA 07152   1396  1415  1419  1423  1433  1437  1470  1516  1542  1662  1662
PARMCALL 00001 000004 07573   1739  1741  5659
PARMTAB  00001 000168 07661   5693  5700  5721
PATHCALL 00001 000002 07596   1004  1006  1020  1025  7598
PATHCOFF 00001 0000FD 07598
PCIAPAD  00004 001D70 02699   2339
PGNEWPSW 00001 000068 00250   0420  0421  0428  2827  2829  2835  2850
PGOLDPSW 00001 000028 00251   0426  0429  0429  2851  2851
PODSERCH 00001 005AF0 07067   7072
PQEBPQE  00001 00000C 00171
PQEFPQE  00001 000008 00170
PQEHIERY 00001 00001D 00175
PQELNTH  00001 000020 00176
PQEREGN  00001 000018 00174
PQESIZE  00001 000014 00173   3830
PQETCB   00001 000010 00172
PREEXCP  00001 007310 08239   8236
PRMLOCAT 00004 00112A 01746   1743
PRMNDCEL 00004 001186 01769   1763
                                             CROSS-REFERENCE                                                   PAGE   39


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

PRMNFND  00001 0011A4 01776   1759
PRMSYSRS 00004 001140 01751   1745
PRMTRPCL 00002 00650C 07412   1760  4868
PRMUCBAD 00002 00650A 07411   1769  4001
PRNTSW   00001 006755 07531   0651  5072  5345
PROCCCHH 00004 006A88 07777   1765  1772  4800
PROREG   00004 0055C4 06552   6423  6427
PROSAV   00004 0055C0 06551   6422  6426
PRTR3211 00001 000009 00253
PSWOPRIC 00001 000001 00252   0426
PTRAPPTB 00003 001DD4 02726   2149  2268
P0TCBSWT 00001 000004 07597
QDCBDBAD 00001 00002D 00141
QDCBDBWD 00001 00002C 00140   3005
QDEBAPAD 00001 00001D 00163
QDEBDBAD 00001 000019 00161
QDEBNDCC 00001 00002A 00166
QDEBNDHH 00001 00002C 00167
QDEBNTRK 00001 00002E 00168
QDEBSTCC 00001 000026 00164
QDEBSTHH 00001 000028 00165
QDEBTBAD 00001 000001 00160
QDEBXSCL 00001 00001C 00162
QUCMAUTH 00001 000028 08823   0666
QUCMRTCD 00002 000020 08821   0669
QUOTTEST 00004 000BA0 01384   1389
QZERO    00001 000000 00244
Q0       00001 000000 00255   0486  0548  0557  0679  0727  0740  0832  0837  0882  0945  1017  1126  1340  1345  1413
                              1421  1431  1468  1477  1479  1487  1490  1494  1496  1510  1519  1522  1524  1535  1628
                              1700  1700  2081  2118  2236  2389  2391  2396  2398  2399  2400  2404  2814  2822  2838
                              2840  3039  3097  3099  3250  3254  3387  3979  3979  4043  4179  4181  4189  4200  4210
                              4216  4218  4226  4228  4231  4236  4239  4241  4252  4257  4260  4262  4264  4266  4293
                              4297  4299  4303  4308  4311  4316  4322  4328  4393  4411  4419  4420  4429  4477  4478
                              4507  4507  4507  4508  4508  4957  4976  5183  5197  5201  5218  5219  5228  5231  5240
                              5241  5243  5243  5253  5255  5274  5276  5277  5415  5417  5426  5445  5451  5577  5779
                              5781  5942  5944  5946  5970  6056  6144  6149  7958  8010  8016  8023  8028  8043  8045
                              8057  8057  8073  8083  8122  8124  8128  8138  8139  8148  8155  8155  8159  8160  8164
                              8166  8168  8174  8194  8201  8206  8206  8208  8208  8213  8223  8223  8227  8227  8227
                              8237
Q1       00001 000001 00256   0421  0860  0916  0942  0972  1267  1325  1325  1326  1340  1342  1413  1421  1431  1475
                              1482  1512  1571  1573  1575  1713  1715  1717  2059  2062  2093  2107  2109  2125  2157
                              2239  2242  2296  2330  2448  2466  2479  2481  2483  2485  2487  2490  2490  2529  2536
                              2540  2551  2570  2582  2601  2876  2878  2878  3388  3437  3437  3990  3991  4085  4150
                              4191  4212  4225  4230  4235  4243  4245  4290  4295  4296  4300  4313  4319  4324  4324
                              4325  4431  4442  4455  4474  4936  4965  4970  4971  5048  5197  5198  5199  5207  5209
                              5209  5442  5802  5947  6130  6130  6135  6146  6151  7966  7968  8047  8053  8058  8070
                              8070  8132  8177  8197  9084
Q10      00001 00000A 00265   0904  0953  0966  2095  2389  2395  4179  4187  4199  6065  6145  6150  6176
Q11      00001 00000B 00266   1267  2479  2481  2483  2485  2487  2490  8028
Q116     00001 000074 00308   1340
Q12      00001 00000C 00267   1274  2172  2173  2269  2339  3236  3878  4145  7269  8034  8409
Q120     00001 000078 00309   2505  2506  2508
Q13      00001 00000D 00302
Q135     00001 000087 00311
Q14      00001 00000E 00268   0736  0853  2043  8036
                                             CROSS-REFERENCE                                                   PAGE   40


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

Q140     00001 00008C 00312
Q15      00001 00000F 00269   1320  4309  7270
Q16      00001 000010 00272   0844  2091  2327  2333  2356  2357  2609  2620  5255  6180  7271  8057  8058
Q17      00001 000011 00270   2174  2417  4320
Q18      00001 000012 00271   2101  2340  2413
Q19      00001 000013 00273   0826  0828  0849  0851  2059  2415  7973  7977  7981  7983
Q2       00001 000002 00257   0497  0729  0816  0834  0837  0882  0963  1011  1011  1016  1053  1059  1322  1345  1346
                              1346  1487  1487  1488  1490  1493  1494  1496  1531  1577  1579  1581  1760  2062  2068
                              2152  2152  2215  2254  2267  2287  2289  2309  2330  2410  2435  2436  2511  2822  2838
                              2840  2841  3082  3099  3106  3175  3176  3177  3179  3844  3846  4075  4084  4151  4196
                              4208  4249  4287  4304  4419  4802  4910  5197  5198  5201  5415  5419  5446  5469  5779
                              5789  5791  5816  6070  6086  6124  6125  7999  8051  8093  8111  8151  8155  8175  8184
                              8190  8193  8203  8223  9088
Q20      00001 000014 00274   5099  5429  6225
Q2047    00001 0007FF 00313   3296
Q21      00001 000015 00275   7272
Q24      00001 000018 00277   6052  6074  6077  7273  7990
Q240     00001 0000F0 00310
Q25      00001 000019 00276   7274
Q255     00001 0000FF 00301   0489  0490  0534  0542  0552  0561  0571  0575  0579  0581  0611  0651  0917  0941  0971
                              1020  1025  1532  2054  2074  3423  3543  4139  4209  5006  5258  5726  5991  5992  7569
                              7587
Q256     00001 000100 00314
Q28      00001 00001C 00278
Q3       00001 000003 00258   0421  0426  0493  0494  0497  0587  0663  0845  1021  1026  1097  1322  1490  1491  2149
                              2268  2276  2343  2398  2399  2400  2404  2447  2462  3028  3437  3731  4064  4070  4072
                              4075  4136  4212  4213  4222  4226  4250  4351  4384  4960  4967  5198  5201  5207  5209
                              5427  5451  6126  6127  6169  6178  7996  8003  8070
Q30      00001 000030 00279
Q32      00001 000020 00280   6064  8031  8033
Q36      00001 000024 07930
Q4       00001 000004 00259   0420  0428  0484  0499  0514  0679  0874  0959  1124  1130  1319  1343  1347  1484  1501
                              1508  1530  1766  2067  2118  2119  2119  2142  2147  2150  2153  2198  2227  2229  2242
                              2242  2262  2263  2269  2274  2277  2281  2288  2290  2291  2292  2312  2342  2366  2369
                              2373  2375  2382  2401  2404  2427  2437  2445  2503  2512  2543  2573  2610  2614  3090
                              3119  3141  3295  3821  3932  3939  3943  3946  4041  4052  4056  4058  4068  4077  4089
                              4095  4099  4102  4110  4126  4137  4183  4184  4195  4197  4207  4214  4222  4255  4328
                              4375  4376  4397  4404  4419  4424  4739  4802  4806  4941  4961  4991  5175  5177  5181
                              5199  5199  5203  5259  5430  5431  5836  6049  6138  6300  6497  6500  6507  6510  8010
                              8012  8023  8024  8087  8172  8206  8237  8248  8271
Q40      00001 000028 00281   0842
Q44      00001 00002C 00303   2038  2209  2230
Q48      00001 000048 00282
Q5       00001 000005 00260   0421  1413  1421  1431  2050  2080  2151  2235  2238  2239  2239  2289  2303  2305  3039
                              4273  4377  4411  4420  4803  5173  8208
Q50      00001 000050 00283
Q54      00001 000036 00304
Q56      00001 000038 00305
Q59      00001 00003B 00306
Q6       00001 000006 00261   1013  1342  1423  1433  1470  1476  1519  2047  2066  2152  2197  2214  2226  2231  2302
                              2367  2370  2391  2393  2461  2497  2515  2820  4181  4264  4800  5187  5189  5787  5799
                              6068  6168  6177  8073  8074  8137  8270  8411
Q61      00001 00003D 00284   4401
Q7       00001 000007 00262   0830  1052  1079  1338  1339  1415  1468  2248  3131  3265  4210  4223  4501  4961  8210
Q70      00001 000046 00285   4186
                                             CROSS-REFERENCE                                                   PAGE   41


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

Q71      00001 000047 00286
Q72      00001 000048 00287   2198  2227  2312  2366  2369  2373  2375  2382  2476  2488  2503  2573  2614  4806
Q75      00001 00004B 00288   8072
Q76      00001 00004C 07935
Q77      00001 00004D 00289
Q8       00001 000008 00263   0423  0429  0740  0854  1506  1519  1521  1628  1700  1714  1716  1718  2050  2146  2217
                              2219  2266  2331  2337  2353  2354  2361  2362  2506  3030  3084  3100  3117  3250  3250
                              3254  3254  3855  3934  3938  4202  4260  4262  4266  4268  4278  4283  5205  5222  5225
                              5243  5253  5272  5448  6154  6158  6203  6204  6207  6215  7951  8016  8017  8030  8032
                              8089  8277
Q80      00001 000050 00300   2384  2388  4101  5871
Q9       00001 000009 00264   2611  4200  5207  8040
Q96      00001 000060 00307   2080  2081  2235  2236  2310
R        00001 0000D9 07933
RAMSGBEG 00044 005FB3 07227   6977  6978
RAMSGEND 00001 005FE5 07229   6978
RAMSGVOL 00001 005FDF 07228   2370
RAMSWIT1 00001 006776 07591
RAMXSWIT 00001 000002 07560   3545  7567
RAOKBEG  00035 006049 07239   6986  6987
RAOKEND  00001 006072 07241   6987
RAOKVOL  00001 00606C 07240   2226
RDCAW    00004 00736C 08263   8067  8101
RDVOLAC  00004 005644 06589   6368
RDVOLREG 00004 005594 06540   6367  6370
RDVOLSAV 00004 005590 06539   6366  6371
READCODE 00001 000006 07941
READRPLY 00001 007150 08100   8094
REGEN    00010 007336 08253
RELEWATE 00001 0006BE 00981   0948
RELEWTE  00004 000650 00950   0983
RELMAXND 00004 0027A2 03317   3317
RELOCADR 00004 00648C 07362   3348  3406
RELSECAW 00004 005698 06615   0975  0982
RELSECCW 00008 0058A0 06771   6615
RERPLS   00008 006A34 07756
RERPLSNL 00001 006A44 07758
RERPMBNM 00004 006A30 07755
RERPNAME 00008 006A3C 07757
RERPSWIT 00001 000020 07564   7567
RERPTST  00006 000C3C 01421   1418
RESDNT   00004 0007EA 01080   1082
RESERVIT 00001 000580 00899   0742
RESRVMSG 00004 0005BA 00915   0916  0942  0972
RESSIO   00004 00059A 00906   0912  0954  0967
RESSIOA  00004 000592 00904   0822  0977
RESSIOGD 00001 000694 00968   0903  0910  0947  0976
RESTOR   00011 00735D 08260   8028
RESTORE  00004 004E24 05880   7298
RESVECCW 00008 005898 06770   6614
RESVEXIT 00002 0006A0 00973   0901
RET3270  00001 005176 06216   6192  6200
REVOLA   00004 004E5C 05897   5886  5893
REVOLAB  00004 004E76 05903
RFMSGBEG 00036 005FE5 07231   6980  6981
                                             CROSS-REFERENCE                                                   PAGE   42


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RFMSGEND 00001 00601E 07233   6981
RMSEND   00001 003880 03960   3890  3904  3926
RMSEND1  00001 003884 03964   3950
RMSSAVE  00004 003834 03956   3879  3882
RMSSKIP  00001 0026B6 03252   3228
RMSSKIPY 00001 0026A8 03248   3201
ROLLCALL 00001 000001 07571   2046  2054  5715  5810
ROLLMOVE 00001 0072E4 08226   8217  8221
ROLLTYPE 00001 006602 07458   7461
ROLLWORK 00004 0065DC 07447
ROLOPTNM 00007 006603 07459
ROUNDERP 00001 003606 03795
ROUNDRAM 00001 0035C6 03779   3559  3589  3596  3625  3637  3727  3737  3752  3765  3778  3782
ROUNDSVC 00001 003606 03794   3635  3780  3784  3786
ROUTCODE 00002 00663A 07476   1531  1531  4084  4151  4196  4196  4208  4208  4249  4287  4295  4304  4313  4324
RSMSGBEG 00043 005F82 07223   6974  6975
RSMSGEND 00001 005FB3 07225   6975
RSMSGVOL 00001 005FAD 07224   2367
RSOKBEG  00037 00601E 07235   6983  6984
RSOKEND  00001 006049 07237   6984
RSOKVOL  00001 006043 07236   2197
RSVXSWIT 00001 000004 07561   3785  7567
RXMSGBEG 00009 006124 07255   6970  6971
RXMSGEND 00001 006156 07258   6971
RXMSGFNC 00020 00612D 07256   2611  2612  2613  2613  3088  3089  3089  3911  3912  3913  3947  3948  3948  7259
R0       00001 000000 00014   1383  1387  1796  1846  1979  2036  2074  2075  2157  2192  2192  2222  2296  2466  2529
                              2551  2570  2582  2958  2959  2962  2963  2964  2965  3013  3013  3014  3015  3016  3023
                              3024  3029  3030  3031  3183  3186  3187  3188  3189  3200  3200  3202  3203  3205  3227
                              3227  3229  3230  3237  3354  3622  3622  3798  3854  3859  3871  3871  3873  3874  3879
                              3882  4038  4162  4342  4399  4407  4408  4459  4460  4762  4776  4911  4923  4963  4993
                              5575  5576  5693  5721  6220  6238  8243  8245  8251  8269  8276  8452
R1       00001 000001 00015   0420  0428  1079  1082  1094  1096  1098  1285  1286  1286  1797  1896  1906  1916  1944
                              1945  1945  1980  1980  2154  2156  2208  2209  2210  2211  2212  2213  2214  2215  2218
                              2220  2221  2248  2249  2250  2251  2293  2295  2387  2389  2391  2393  2393  2395  2395
                              2396  2398  2399  2400  2402  2404  2463  2465  2501  2526  2528  2540  2541  2548  2550
                              2567  2569  2579  2581  2827  2835  2850  2988  3003  3004  3004  3005  3005  3006  3006
                              3007  3019  3021  3174  3175  3176  3179  3179  3192  3193  3193  3204  3213  3219  3220
                              3220  3233  3324  3325  3325  3326  3328  3348  3406  3422  3425  3428  3513  3603  3616
                              3830  3843  3846  3846  3856  3857  3857  3858  3865  3866  3866  3868  3875  3884  3885
                              3885  4341  4361  4385  4421  4426  4501  4502  4503  4504  4760  4948  4985  5694  5720
                              5720  6226  6227  8244  8272  8277
R10      00001 00000A 00024   0719  0753  0775  0790  0925  1051  1060  1299  1338  1339  1339  1340  1342  1343  1344
                              1744  1750  1772  1773  1905  2061  2080  2081  2235  2236  2311  2405  2406  2509  2512
                              3296  3297  3309  3317  3318  3829  3906  3907  3908  3910  3966  4163  4372  4417  4787
                              4799  4805  4910  4914  4942  5101  5698  5699  5699  5700  5700  5703  5709  5737  5739
                              5848  5849  5861  5862  5864  5866  5870  6221  6228  6235  6296  6297  8270  8271  8271
R11      00001 00000B 00025   1157  1158  1725  1726  2036  2037  2814  2815  2969  2971  3035  3037  3350  3351  3354
                              3355  3425  3798  3799  4174  4340  4460  4757  4787  4798  4818  4828  4835  4894  4909
                              5407  5478  5510  5558  5594  5645  5691  5734  5774  5825  5940  5967  6001  6042  6121
                              6185  6286  6287  6289  6293  6294  6303  6306  6308  6309  6310  6317  6319  6320  6321
                              6325  6326  6327  6329  6330  6331  6333  6335  6336  6337  6341  6343  6344  6345  6349
                              6351  6352  6353  6356  6357  6358  6360  6363  6366  6368  6369  6371  6374  6376  6377
                              6378  6382  6384  6385  6386  6389  6391  6392  6393  6397  6399  6400  6401  6405  6407
                              6408  6409  6412  6413  6415  6417  6418  6419  6422  6424  6425  6426  6430  6432  6433
                              6434  6438  6440  6441  6442  6449  6451  6452  6453  6457  6459  6460  6461  6465  6467
                                             CROSS-REFERENCE                                                   PAGE   43


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              6468  6469  6473  6475  6476  6477  6480  6482  6483  6484  6487  6489  6490  6491  6495
                              6514  6515  6516  6518  8277
R12      00001 00000C 00026   0391  3426  3428  3429  8502
R13      00001 00000D 00027   0391  2950  2969  2971  3035  3037  3427  3429  3429  4758  4786  4849  4893  4899
R14      00001 00000E 00028   1191  1203  1203  1287  1308  1946  1984  2175  2925  2927  2935  2943  2960  2966  2970
                              2971  2974  2989  2991  3008  3008  3009  3010  3010  3016  3017  3018  3019  3020  3020
                              3022  3022  3024  3026  3036  3037  3182  3190  3206  3210  3212  3214  3238  3239  3241
                              3242  3271  3272  3424  3460  3880  3881  3883  3982  3988  3995  4342  4459  4461  4818
                              4828  4835  4894  6307  6309  6311  6312  6325  6329  8247  8499
R15      00001 00000F 00029   1148  1211  1758  1758  1799  1799  1947  1947  2071  2071  2075  2173  2174  2195  2195
                              2224  2224  2233  2233  2942  2942  2958  2970  3033  3036  3202  3205  3206  3211  3229
                              3237  3238  3240  3272  3862  3862  3873  3879  3880  3882  3920  3920  3921  3923  3924
                              3967  3968  3976  3976  3978  3979  3979  3981  3983  3983  3984  3986  3987  3990  3992
                              3994  4038  4162  4370  4370  4372  4381  4395  4397  4401  4401  4411  4415  4415  4417
                              4419  4420  4428  4429  4431  4431  4458  4458  4462  4463  4478  4485  4485  4771  4771
                              4911  4923  4949  4986  4993  5646  5646  5692  5692  5696  5696  5706  5706  5712  5712
                              5714  5723  5723  5724  5726  6220  6238  8243  8248  8251  8252  8269  8276  8278
R2       00001 000002 00016   0382  0640  0642  0761  0804  0830  0835  0912  0935  1099  1159  1191  1801  1802  1803
                              1804  1804  1823  1825  1825  1831  1831  1832  1833  1833  1835  1846  1847  1849  1849
                              1853  1853  1854  1855  1855  1862  1867  1868  1869  1869  1879  1880  1883  1883  1886
                              1887  1887  1889  1908  1923  1923  1928  1931  1933  1935  1935  1938  1949  1952  1952
                              1956  1958  1959  1959  1962  1964  1966  1968  1968  1975  2115  2118  2119  2143  2144
                              2145  2172  2255  2256  2258  2259  2260  2279  2280  2319  2320  2322  2323  2324  2325
                              2326  2327  2328  2333  2334  2350  2351  2353  2355  2356  2358  2359  2424  2425  2428
                              2429  2430  2432  2433  2450  2451  2458  2459  2460  2461  2462  2499  2500  2523  2525
                              2546  2547  2577  2578  2590  2591  2592  2609  2610  2610  2617  2618  2619  2620  2621
                              2622  2623  2624  2625  2626  2820  2821  2828  2829  2836  2838  2840  2841  2841  2879
                              2881  2883  2883  2890  2897  2899  2909  2961  2962  2963  2964  2977  2978  2979  3032
                              3185  3186  3187  3188  3211  3216  3217  3218  3234  3240  3244  3245  3246  3326  3327
                              3328  3345  3346  3876  3876  3997  3998  4347  4352  4353  4354  4357  4360  4373  4386
                              4388  4392  4436  4437  4438  4439  4440  4484  4484  4488  4507  4507  4758  4759  4763
                              4777  4786  4849  4893  4899  5736  5743  5744  5752  6186  6205  6209  6217
R3       00001 000003 00017   0441  0443  0749  0749  0772  0772  0773  0832  0833  1382  1384  1386  1386  1387  1748
                              1756  1764  1765  1766  1767  1767  1768  1770  1770  1771  1805  1861  1863  1870  1870
                              1871  1885  1893  1940  2053  2069  2117  2117  2120  2121  2122  2123  2124  2125  2125
                              2126  2135  2229  2305  2306  2307  2439  2439  2505  2508  2514  2514  2536  2536  2537
                              2601  2601  2602  2880  2884  2950  2976  2976  2978  2979  3215  3215  3217  3218  3235
                              3236  3243  3243  3245  3246  3249  3250  3253  3254  3265  3266  3267  3268  3344  3344
                              3346  3409  3877  3878  4351  4352  4353  4354  4357  4358  4368  4413  4413  4819  5511
                              5532  5538  5552  5553  5595  5701  5826  5852  5856  5912  6350  6352  6354  6355  6359
                              6361  6362  6364  6406  6408  6410  6411  6458  6460  6462  6463  6494  6496
R4       00001 000004 00018   0736  0736  0752  0831  0853  0853  1757  1761  1762  1768  1769  1774  1806  1878  1882
                              1882  1891  1909  1922  1922  1929  1936  1936  1939  1950  1953  1953  2070  2082  2094
                              2094  2104  2232  2237  2304  2307  2308  2334  2335  2336  2337  2338  2401  2505  2508
                              2887  2888  2889  3296  3300  3318  3410  3831  4369  4412  4414  4457  4465  4465  4467
                              4469  4471  4829  5529  5529  5535  5536  5541  5542  5574  5708  5713  5725  5727  5852
                              5856  6002  6383  6385  6387  6388  6390  6392  6394  6395
R5       00001 000005 00019   0831  0832  0834  0834  0906  0920  0923  0929  0931  0932  0934  0938  0939  0945  0960
                              0961  0979  1028  1034  1038  1078  1080  1081  1081  1131  1218  1268  1318  1319  1320
                              1320  1321  1329  1337  1340  1344  1345  1346  1348  1353  1398  1526  1541  1554  1661
                              1714  1716  1718  1721  1751  1778  1798  1816  1826  1828  1828  1830  1831  1852  1853
                              1898  1902  1908  1910  1913  1913  1915  1941  1973  1977  1982  2051  2052  2055  2091
                              2092  2092  2093  2093  2095  2107  2107  2109  2109  2110  2126  2139  2199  2216  2217
                              2218  2219  2228  2282  2285  2286  2313  2318  2335  2336  2337  2374  2376  2385  2403
                              2407  2438  2452  2473  2477  2489  2496  2497  2498  2504  2511  2512  2515  2516  2545
                                             CROSS-REFERENCE                                                   PAGE   44


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              2556  2564  2574  2587  2615  2947  3047  3049  3269  3270  3300  3413  3422  3437  3524
                              3665  3713  3720  3915  3933  3940  3944  3949  4104  4355  4356  4379  4425  4464  4468
                              4473  4774  4788  4801  4808  4890  4900  4951  4995  4996  5007  5021  5048  5053  5054
                              5055  5082  5131  5284  5297  5302  5499  5528  5528  5533  5537  5544  5607  5607  5610
                              5611  5611  5612  5615  5616  5616  5617  5665  5695  5719  5722  5753  5813  5831  5837
                              5841  5876  5981  6186  6187  6188  6189  6190  6191  6193  6195  6197  6199  6206  6207
                              6208  6217  6218  6288  6289  6295  6297  6299  6300  6300  6302  6304  6334  6336  6338
                              6339  6342  6344  6346  6347  6398  6400  6402  6403  6416  6418  6420  6421  6423  6425
                              6427  6428  6431  6433  6435  6436  6439  6441  6443  6444  6450  6452  6454  6455  6466
                              6468  6470  6471  6474  6476  6478  6479  6481  6483  6485  6486  6488  6490  6492  6493
                              6498  6502  6508  6511  6513  6516  6517  6519
R6       00001 000006 00020   0432  0433  0742  0750  0973  1009  1124  1125  1378  1382  1401  1413  1421  1431  1468
                              1476  1484  1484  1487  1488  1488  1490  1491  1491  1510  1512  1512  1521  1521  1522
                              1524  1535  1565  1567  1571  1573  1575  1577  1579  1581  1700  1713  1715  1717  1755
                              1909  1911  1912  1912  1914  1914  1917  1943  1963  1969  1969  2064  2096  2096  2097
                              2098  2098  2102  2102  2103  2103  2104  2116  2116  2402  3297  3547  3547  3896  3901
                              3901  4470  4470  4471  4868  5519  5536  5541  5546  5547  5548  5612  5613  5617  5818
                              6002  6318  6320  6322  6323  6367  6369  6370  6372
R7       00001 000007 00021   0442  0443  0444  0904  0913  0953  0966  1123  1125  1126  1126  1476  1477  1479  1482
                              1482  1492  1494  1496  1498  1500  1501  1502  1505  1508  1509  1627  1628  1699  1700
                              1811  1813  1815  1815  1817  1819  1821  1823  1824  1824  1827  1827  1930  1954  3264
                              3266  3267  3268  3269  3305  3306  3308  3897  3898  4452  4452  4453  4454  4455  4455
                              4456  4466  4467  4472  4473  4474  4474  4475  4487  4487  4489  4490  4490  4494  4495
                              4497  4498  4499  4945  4946  4947  4949  4982  4983  4984  4986  5033  5038  5517  5520
                              5521  5530  5530  5534  5537  5539  5539  5540  5544  5548  5549  6446  6447  8246  8247
R8       00001 000008 00022   0399  0433  1475  1481  1485  1485  1503  1503  1807  1892  1901  2099  2100  2138  2247
                              2249  2250  2251  2252  2325  2328  2422  2616  2618  2621  2819  2821  2822  3025  3026
                              3038  3039  3306  3307  3327  3895  3895  3900  3900  3906  3980  3985  3990  3991  4387
                              4388  4389  4390  4394  4394  4395  4396  4399  4400  4403  4406  4407  4408  4433  4438
                              4440  4441  4442  4442  4443  4445  4445  4447  4448  4449  4492  4495  4496  4497  4500
                              4502  4503  4504  4505  4508  4952  5511  5518  5519  5531  5531  5545  5546  5552  5595
                              5606  5611  5612  5616  5617  5826  5835  5912  8244  8270
R9       00001 000009 00023   0717  0717  0719  0732  0734  0743  0821  0825  0826  0828  0849  0851  0900  0919  0925
                              0963  0993  0995  1021  1026  1059  1074  1076  1078  1094  1100  1493  1498  1740  1754
                              1809  1838  1842  1864  1920  1921  1942  2039  2058  2059  2060  2105  2411  2412  2413
                              2415  2417  3307  3830  3831  3909  3910  3911  3935  4001  4402  4432  4444  4444  4446
                              4448  4454  4486  4836  5129  5521  5522  5523  5549  5550  5551  5563  5574  5575  5576
                              5577  5577  5615  5814  5816  5908  6375  6377  6379  6380  6499  6503  6512
SAVECSW  00002 004DF2 05869   5860  5867
SAVEID   00004 000D94 01500   1497
SAVEREF  00004 006360 07328   2950  4175  4194  4205  4270  4758  4786  4849  4893  4899  5826  5912  5922  6044  6080
                              7329
SAVEREF1 00004 0063A0 07330   5776  5793  6123  6170
SAVEREF3 00004 0063E8 07339   5511  5552
SAVEREF4 00004 006400 07340   5595  5635
SAVE3270 00004 0051C8 06246   6220  6238
SAVMODID 00004 000DB6 01509   1504  1507
SBLADDR  00004 0069EC 07730   6721
SBLNG    00004 0069F0 07731
SCAWRELE 00001 0006A2 00974   0969
SCONVAC  00004 005660 06596   6440
SCONVREG 00004 0055D4 06556   6439  6443
SCONVSAV 00004 0055D0 06555   6438  6442
SCPR1    00001 000001 04167   4175  4187  4189  4191  4191  4194  4199  4200  4202  4205  4270
SCPR2    00001 000002 04168   4176  4179  4181  4183  4187  4199
                                             CROSS-REFERENCE                                                   PAGE   45


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SCPR3    00001 000003 04169   4177  4177  4184  4186  4186  4192  4254  4256  4257  4257  4259  4285  4310  4311  4312
                              4321  4322  4323
SCPR4    00001 000004 04170   4255  4256  4307  4307  4308  4309  4309  4311  4318  4318  4319  4320  4320  4322
SCPR5    00001 000005 04171   4175  4194  4197  4205  4270  4271
SCPR6    00001 000006 04172   4202  4210  4212  4214  4214  4216  4218  4223  4223  4225  4225  4226  4228  4230  4230
                              4231  4235  4235  4236  4239  4241  4243  4245  4250  4250  4252  4260  4262  4264  4266
                              4268  4268  4273  4273  4278  4278  4283  4283  4290  4290  4293  4296  4296  4297  4299
                              4300  4300  4303  4308  4316  4319  4325  4325
SCRLGNTH 00002 00744A 08298
SCTAVIL  00004 004F06 05974
SCTIO    00004 004EF6 05970   5971  5983  5986
SCTIOAC  00004 0056FC 06648   6451
SCTIOREG 00004 0055DC 06558   6450  6454
SCTIOSAV 00004 0055D8 06557   6449  6453
SCTIOTP  00001 004F4A 05996
SCTNAVIL 00004 004F40 05992   5972  5988
SCTRSAVE 00004 0063E0 07338   5969  5975  5993
SCTR10   00001 00000A 05966   5970
SCTR4    00001 000004 05961   5974  5992
SCTR5    00001 000005 05962   5969  5975  5976  5989  5993  5994
SCTR6    00001 000006 05965   5969  5975  5993
SCTSTART 00004 000010 08510   8035  8056  8077  8173  8195
SCTTING  00001 004F10 05977   5973
SCVR0    00001 000000 05935   5944  5945  5946
SCVR4    00001 000004 05936   5948
SCVR5    00001 000005 05937   5949
SCVR6    00001 000006 05938   5942  5944  5946  5947  5947
SECOND   00004 007110 08082   7967
SENSADR  00004 0055A8 06545   6397  6401
SENSCTCS 00004 004490 05036   5037
SENSECOM 00001 004F3C 05990
SENSESS  00004 0053C6 06397   0768  0808  1038  5895  5989  6156
SENSESW  00001 006769 07548   1033  1035  5980  5982  6202
SENSIO   00004 004C58 05737   5738
SENSIOSV 00004 00561C 06574   5736  5752
SENSREG  00004 0055AC 06546   6398  6402
SENSSAC  00004 005650 06592   6399
SENS3270 00001 005138 06201   6194  6196  6198
SENTIO   00004 004C60 05739   5742  5745  5751
SERADPTR 00004 004CBE 05789   5796  5804
SERBDRY  00004 0023A6 02961   2974
SERBLDL  00006 00234A 02936   2927  2991
SERCELLA 00004 004CD6 05795   5785
SERCELLB 00006 004CE4 05799   5805
SERCELLD 00004 004D02 05806   5800
SERCHAC  00004 005654 06593   6407  6412
SERCHREG 00004 0055B4 06548   6406  6410
SERCHRET 00004 004CD0 05793   5809
SERCHSAV 00004 0055B0 06547   6405  6409
SEREP    00006 002496 03048   2913  2948
SEREPMSG 00035 0061DC 07288   7099  7100
SEREPND  00001 0061FF 07289   7100
SERFOUND 00006 004CC6 05791   5788  5807
SERLINK  00001 0023B6 02968   2960
SERLIST  00003 0022C6 02901   2879
                                             CROSS-REFERENCE                                                   PAGE   46


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SERLKGO  00001 0023C0 02972
SERLKRTN 00004 0023BC 02971   2971
SERLKSV  00004 002470 03042   2969  2971  3035  3037
SERLOAD  00001 002382 02949   2928
SERLOOP  00006 004C96 05779   5790
SERMODNM 00006 00232A 02929   2925  2989
SERMSG   00009 005C87 07146   7080  7081
SERNOFND 00004 004D0A 05808   5780
SERTTRET 00004 00245C 03037   3037
SERXTRNS 00001 00000C 06763   2988
SER0     00004 00230E 02922   2915
SER0SWIT 00001 000001 07550   2922  3050  3335
SER01BDL 00004 002322 02927   2923
SER1     00004 002316 02924   2917
SER1LOAD 00006 00247C 03043   2982
SER1SWIT 00001 000002 07551   2924  2981  3050
SER10    00001 00000A 05773   5792
SER200   00002 002422 03019   3011
SER3     00001 000003 05767   5776  5777  5778  5778  5779  5781  5789  5789  5793  5794
SER4     00001 000004 05768   5781  5782  5784  5787  5791  5797
SER5     00001 000005 05769   5798  5798  5802  5802  5803  5806  5808
SER6     00001 000006 05770   5797  5799  5801  5801
SER7     00001 000007 05771   5819
SER8     00001 000008 05772   5776  5793
SETBUF   00001 000027 07939
SETPTR   00001 0025EC 03184   3214  3242
SETRC    00001 0026C0 03255   3251
SFREOB   00002 004C36 05720   6392
SGMODL   00001 00675E 07540
SGMODL1  00002 006762 07543   3176  3177  3844
SHARBUSY 00001 000008 07599   0909  0911  5020
SHARCALL 00001 000002 07572   0905  0907  0917  0941  0950  0971  5004  5006  5012  5127
SHARDADR 00003 005DC9 07184   0919  0919
SHARDCAW 00004 00569C 06616   0918
SHARDCCW 00001 0058B0 06777   6616
SHARDMSG 00016 005DB9 07183   6778  6779
SHDMSGND 00001 005DEF 07186   6779
SIODCELL 00004 0003B8 00753   0755  0758  0761  0764
SIOSAVE  00004 0073F0 08288   7953  8276
SIOS3270 00004 00519A 06228   6229
SKDADCON 00004 005738 06663   3999
SKEDEXIT 00002 003910 04004   4000  4002  6663
SKIPCAW  00004 0056C4 06626   5353
SKIPCCW  00001 005900 06822   6626
SKPBLANK 00004 000B44 01359   1356
SLASH    00001 00004F 07942   8184  8190  8203
SLIBNM   00012 005CA6 07148   1270  1808  2945  3118  3491  3530  3531  3531  3554
SLMCH    00004 00387C 03959   3912
SMB      00001 000050 00254   1031  5051  5978
SMBNAM   00022 005C90 07147   1271  2944  3117  3522  4887
SMBR0    00001 000000 04916   4933
SMBR1    00001 000001 04917   4934  4935  4936  4958  4958  4961  4962  4965  4965  4966  4969  4970  4970  4972  4974
                              4976
SMBR2    00001 000002 04918   4936  4937  4956  4957  4957  4974
SMBR3    00001 000003 04919   4927  4927  4928  4936  4959  4963  4964  4965
                                             CROSS-REFERENCE                                                   PAGE   47


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SMBR4    00001 000004 04920   4926  4928  4956  4959  4971  4971  4975
SMBR6    00001 000006 04921   4935  4975
SMBR8    00001 000008 04922   4940
SMBSQCAW 00004 00570C 06652   4941
SMBSQCCW 00001 0058D0 06793   6652
SMBSQEND 00001 005F48 07211   6796
SMBSQMSG 00045 005F0F 07209   6794  6796
SMBSQODD 00004 004376 04952   4950
SMBSQREG 00004 004372 04951   4944
SMBTEST  00004 004402 04987   4998
SMODNCAW 00004 005828 06725   3046
SMODNCCW 00001 005B30 07095   6725
SMODNEND 00001 0061DC 07286   7097
SMODNMSG 00035 0061B9 07285   7096  7097
SPECIALA 00004 004502 05070
SPINSW   00001 005230 06254   6210  6212  6237
SPLIT    00001 007230 08171   8165  8167
SPLITMSG 00001 007208 08157   8152
SPLOOP   00001 007218 08163   8169
SPQEFLAG 00001 000000 00182   3981  3986  3994
SPQELAST 00001 000040 00185   3994
SPQENXT  00001 000000 00186
SPQEOWNR 00001 000020 00183   0192
SPQEPTR  00001 000001 00187   3990  3992
SPQESHAR 00001 000080 00184   0191
SPQESPTR 00001 000005 00188   3984
SREFRG11 00004 00638C 07329
SSIMSG   00001 003740 03905   3902
SSITABLE 00004 003878 03958   3909
SSMASKON 00002 00084A 01113   1111
START1   00001 006A98 07783   1696  7805
START2   00001 006A9E 07785   1672  7805  7806
START6   00001 006AE0 07800
START7   00001 006AE7 07803   1699
STDTPLAB 00004 00210C 02782   2543
STOP     00001 000020 07938
STORENT  00004 00703A 08018   8015
STORMSG  00004 006FE8 07994   8075
STORSCT  00004 00707A 08035   8025  8027
STPSTORB 00001 006748 07520   7521
STRIOAC  00004 005688 06611
STRIOREG 00004 005600 06567   6488  6492
STRIOSAV 00004 005604 06568   6487  6491
STUCB2   00004 0054FA 06494   5344
SUBCHK   00001 004CB4 05786   5783
SUBCNTIO 00001 004EF2 05968   6648
SUBCONVT 00004 004ED4 05942   5948  6596
SUBDCINT 00001 004A78 05559   6586
SUBDPVID 00001 004F6A 06043   6597
SUBDSMNT 00001 005010 06122   6598
SUBFLAGS 00004 000502 00844   0846
SUBGMAIN 00004 004118 04758   6595
SUBIOSGN 00001 00402C 04558   6581
SUBLOCAT 00002 004B7C 05646   6590
SUBMOUNT 00004 004D38 05826   6425  6594
                                             CROSS-REFERENCE                                                   PAGE   48


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SUBMS1   00002 004F4A 06002   6666
SUBNOUCB 00004 00498E 05479   6584
SUBNRED  00004 0004D2 00832   0835
SUBNRED1 00004 0004CC 00830   0827
SUBOBTAN 00002 004BCE 05692   6392  6591
SUBSENSE 00006 004C4E 05735   6592
SUBSERCH 00001 004C8A 05775   6413  6593
SUBSFLGS 00004 006BF3 07865   3851  3892  3894
SUBSINT  00004 006BF0 07864   3231  3896  7865
SUBUCBFN 00001 0048D0 05408   6583
SUBUCBIN 00004 0049F0 05511   6585
SUBVRTTR 00004 004AD0 05595   6589
SVCEXTNT 00004 006880 07666   1226  3706
SVCNM    00003 005F55 07214   3711
SVCNM2   00003 005F73 07219   3718
SVCTAB   00004 005870 06749   1222  1235  3684  3691
SVLST    00004 0068CC 07685   1241  1248  2936  3502  3605
SVNAM    00008 0068D0 07687   1240  1271  3500  3507  3512  3522  3604  3610  3615
SVNAMR   00005 006912 07692   3674
SVPRXLN  00001 000098 00236   1218
SVWA1    00008 006908 07690   1239  1240  3680  3681  3682  3682  3683
SVXEND   00004 0009F8 01258   1238  1269
SVXERR   00004 000A04 01261   1247
SVXERR1  00004 000A22 01268   1273
SVXERR2  00006 000A2A 01270   1265
SVXFOUND 00004 0009D0 01248
SVXIBM   00002 00099C 01234   1229
SVXLOOP  00004 000988 01228   1259
SVXTEST  00004 0009A6 01237   1233
SWTOALYN 00004 0043B6 04967   4973
SWTOHC   00004 00430C 04924   4992
SWTOHFIT 00004 004386 04956   4938
SWTOMOVE 00006 0043D2 04974   4964
SWTONHC  00001 0043E8 04979   4913  4925  4955
SWTONOPJ 00004 004426 04996   4981
SWTONTMR 00004 004330 04934   4930
SWTOREAD 00001 004308 04915
SWTOSALN 00004 0043D8 04975   4968
S360RET  00001 002248 02849   2828
S370CREG 00004 002258 02854   2831  2832  2834  2844  2845  2847
S370LOOP 00001 002224 02837   2842
TABENT   00004 0004E2 00836   0829
TABSCAN  00004 000D72 01492   1489
TAB3     00006 000D68 01490   1486
TAPE1    00001 001D94 02714   2359  2360  2361
TAPE2    00008 001DA0 02718   2362
TCBDEB   00001 000008 00034
TCBGRS   00001 000030 00040
TCBGR9   00001 00006C 00041
TCBIDF   00001 000070 00042
TCBJPQ   00001 00002C 00039   2978  3147  3217  3245
TCBLLE   00001 000024 00038   2979  3148  3218  3246
TCBMSS   00001 000018 00036   3346  3990  3991
TCBPKF   00001 00001C 00037
TCBPQE   00001 000098 00044
                                             CROSS-REFERENCE                                                   PAGE   49


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBRBP   00001 000000 00033
TCBTCB   00001 000074 00043
TCBTIO   00001 00000C 00035
TEIOER   00011 0021C2 02808   2483
TEMCLKBY 00004 006504 07409   5181  5182
TEMP     00003 0022D8 02907   2895  2897  2899  2909  2910  2912  2914  2916  2918  2929  2932
TEMPDEB  00001 000020 07577   1284  1288  4365  7581
TEMPSAVE 00004 003FDC 04522   4342  4459
TEMP3270 00004 005210 06248   6186  6217
TEMSGBEG 00024 00215A 02800   2398  2681  2682
TEMSGEND 00001 002196 02803   2682
TEMSGRES 00012 00218A 02802   2479  2481  2483  2485  2487  2490  2490
TENOFND  00011 0021B7 02807   2485
TENOUCB  00011 002196 02804   2479
TEN2400  00011 0021A1 02805   2481
TERMCONS 00002 00651C 07420   3632
TESTNORM 00001 004F28 05984   5979
TESTON   00004 000B66 01366   1362
TESTON1  00006 000B72 01372   1349
TESTTAB  00004 000D50 01484   1478  1480
TESTVALU 00004 000D34 01477   1483
TEST1CHR 00006 00109C 01697
TEST2CHR 00006 001042 01673   1676
TEST3CHR 00006 001060 01681   1684
TEST4CHR 00006 00107E 01689   1692
TEST77   00004 007058 08026   8022
TEUNAV   00011 0021AC 02806   2487
THATSIT  00006 0022DC 02909   2891
TIOCONS  00004 0048AA 05358   5359  5368
TIODCELL 00004 000410 00775   0754  0776  0782  0784
TIOEDDNM 00001 00001C 00156
TIOEFSRT 00001 000029 00158
TIOELNGH 00001 000018 00155
TIOER    00006 001AEE 02483   2539  2586  2603
TIOESTTB 00001 000028 00157
TIOS3270 00004 0051A2 06235   6236
TMMSGBEG 00020 0021CD 02809   2399  2678  2679
TMMSGEND 00001 0021E1 02810   2679
TMRNOPR  00006 00088C 01130   1122
TMSL     00006 006AD4 07797   1514  1516
TMSLPARM 00006 000DCA 01514   1473
TMSLSAVE 00004 00634C 07323
TNOFND   00006 001AF8 02485   2597
TNOUCB   00006 001ADA 02479   2409
TN2400   00006 001AE4 02481   2414  2416
TPBACK   00004 0073D4 08276   8099  8238
TPBXSPAC 00001 00005D 00231
TPCSAVE  00004 0066F8 07516   4911  4923  4993
TPENDBLK 00001 00005B 00230
TPGRCUCB 00004 00673E 07519   0636
TPGRCUCM 00004 006738 07518   0635
TPGRPARM 00004 006738 07517   4946  4948  4983  4985  7518  7519
TPLDSWIT 00001 000001 07592
TPLOAD   00004 00441C 04993   4954  4978  4988  4990  4999
TPRSTORB 00001 006748 07521
                                             CROSS-REFERENCE                                                   PAGE   50


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TP1TIME  00001 000002 08312
TQ50     00001 000002 00290   7973
TQ60     00001 000003 00291   7977
TQ85     00001 000007 00292
TRAMASK  00004 00677C 07612   0405  0409
TRKPERCL 00002 004A54 05544   5538
TRK7     00004 001A12 02421   2418
TRK9     00004 001A16 02422   2420
TRMSGBEG 00024 002128 02797   2684  2685
TRMSGEND 00001 00215A 02799   2685
TRORDER  00004 007348 08255   8023
TRY60    00004 006FAA 07977   7974
TRY77    00004 006FBA 07981   7978
TSCEFLAG 00001 00000C 00179
TSCEMSEC 00001 00000C 00180
TSCEPRTY 00001 000000 00178
TSTCSWON 00001 00447A 05022   5013  5019
TSTDVRET 00002 004D36 05819   5811  5817
TSTNUCB  00004 004D1A 05812   5815
TSTNUCB1 00004 004D22 05814   5812
TUCB2AC  00004 005670 06600   6494
TUNAV    00006 001B02 02487   2595  2598
TWISTIO  00004 004E30 05883   5850  5868  5884  5891
TWISTIO1 00004 004DE4 05866   5863
TWO56    00002 007438 08291
TYPE     00001 007352 08257   7975  7979  7985  7987  7992  7997  8008  8014  8021  8026  8041  8061  8064  8104  8109
                              8114  8231
TYPE60   00001 0070D0 08060   7993
TYPE77   00001 0070D8 08063   8062
TYPE85   00001 007108 08076   8065
TYP77    00004 006FD2 07987   7982  7984
T274SWIT 00001 000010 07554   0630  7555
T3270DEV 00002 0050FC 06184   6602
T50      00001 000050 00293   7975  7992  8014  8021  8104
T60      00001 000060 00294   7979  8061
T77      00001 000077 00295   7987  7997  8008  8026  8041  8064  8114  8231
T85      00001 000085 00296   7985  8109
UCBALLC  00001 000001 00048
UCBALONR 00001 00008C 00057   2591
UCBCHA   00001 000004 00058   0723  0837  0882  0925  0963  1024  1059  3022  5791  6070  6070  6079  6143  6148  6159
UCBCHECK 00001 000020 00063
UCBCONSL 00001 000002 00056   0622
UCBDASD  00001 000020 00067   5782
UCBDCLAS 00001 000012 00066   0628  0632  0638  5159  5782  5816  6191
UCBDCLSZ 00001 000010 00051   5801  6084
UCBDIRAC 00001 000020 00202
UCBDTCEL 00001 000010 07588   5578  5920
UCBEBCDC 00001 00000D 00050   5451
UCBESTAT 00001 000003 00049   0502  0512  0622  1080  2320  2591  4082  5974  5992  6167  6174
UCBFL1   00001 000006 00059   0825  0833  5908  6166  6173
UCBHANG  00004 0049EC 05504   5501
UCBINAC  00004 005634 06585   6351
UCBINREG 00004 005588 06537   6350  6354
UCBINSAV 00004 005584 06536   6349  6353
UCBIOPSW 00006 000664 00958   0915  0952
                                             CROSS-REFERENCE                                                   PAGE   51


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBIORET 00006 00067C 00963   0960
UCBMPANX 00001 000004 00085
UCBNABRV 00006 000622 00939   0930
UCBNAME  00001 00000D 00061   0919  6126  6127
UCBNOHNG 00004 0049DE 05500
UCBNORED 00001 000040 00086
UCBNRDY  00001 000040 00060   0825  0833  6166  6173
UCBONLIN 00001 000080 00054   0512  5974  5992
UCBOPTNS 00001 000011 00064   0821  0900
UCBPRES  00001 000004 00055
UCBREADY 00001 0000BF 00053   5908
UCBRINV  00006 0006B0 00978   0937  0946
UCBRRPLY 00006 0005D6 00921   0980
UCBSDASD 00001 000020 00065   0821  0900
UCBSIZE  00001 000038 00087   1767  5797  6050  6175
UCBTABRV 00006 000614 00936   0928
UCBTCSW  00004 000458 00798   0791
UCBTTR   00001 000024 00052   6169  6169
UCBTUCHK 00004 000478 00806   0803
UCBTWAIT 00001 000638 00944   0940
UCBTYP   00001 000010 00062   0503  0993  0995  5129
UCBUTYPE 00001 000013 00071   0640  0642  0647  0649  0732  0734  0743  1074  1076  1762  2105  5162  5165  5167  5784
                              6062  6075  6082  6128  6133  6164  6193  6195  6197  6199
UCBVOLAB 00001 00001C 00084   5787  6068  6068  6168  6168
UCBVSTAT 00001 000022 00246   2592
UCBWAIT  00004 000678 00962   0964
UCB2305  00004 000388 00736   0733
UCB3AC   00004 00566C 06599
UCB3SAVE 00004 005610 06571
UCKCONS  00004 004882 05345   5116
UCM      00001 000000 08513   0480  3373
UCMAECB  00004 000004 08519   8584
UCMAF    00001 000080 08609
UCMALTEN 00004 00055C 08647   0549  0576
UCMAMFA  00001 000008 08545
UCMATR   00001 000549 08618   0490  0658
UCMAT04  00001 000004 08624
UCMAUTH  00001 000558 08632   0666  8823
UCMAUTH1 00001 000080 08634
UCMAUTH2 00001 000040 08635
UCMAUTH3 00001 000020 08636
UCMBF    00001 000020 08611
UCMCF    00001 000010 08612
UCMCMID  00004 000058 08789
UCMCOMPC 00004 000568 08651   0514  0596  4068
UCMCORE  00001 000045 08549
UCMDCB   00004 000538 08604
UCMDECB  00001 00000C 08521   8586
UCMDESCD 00004 00049C 08595
UCMDEVA  00001 000080 08664
UCMDEVB  00001 000040 08665
UCMDEVC  00001 00056F 08663
UCMDEVCC 00001 000020 08666
UCMDEVD  00001 000010 08667
UCMDEVE  00001 000008 08668
                                             CROSS-REFERENCE                                                   PAGE   52


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCMDEVF  00001 000004 08669
UCMDEVG  00001 000002 08670
UCMDEVH  00001 000001 08671
UCMDISP  00002 00055A 08638   0489  0523  0659  4047  4066  4086  4090  4094
UCMDISPA 00001 000080 08639   0489  0659
UCMDISPB 00001 000040 08640   4047  4086  4090  4094
UCMDISPC 00001 000020 08641   4066
UCMDISPD 00001 000010 08642   0523
UCMDISPE 00001 000008 08643
UCMDISPF 00001 000004 08644
UCMDISPG 00001 000002 08645
UCMDISPH 00001 000001 08646
UCMDOME  00004 00004C 08769
UCMDOMRT 00004 000088 08800
UCMDTINT 00004 000098 08804
UCMECB   00004 000530 08602
UCMEIL   00001 0003EC 08580   8526  8588
UCMEND   00001 000530 08687   8557
UCMESIZE 00001 0000D8 08686   8556  8687
UCMEXIT  00004 000418 08592
UCMFIX   00001 000001 08548
UCMFREE  00001 000080 08552
UCMHCUCM 00004 00005C 08790   4044  4087  4091  4091  4155
UCMHRDRT 00002 000064 08793   4084  4151
UCMID    00001 00054A 08626
UCMIF    00001 000040 08620
UCMINCR  00001 000047 08551
UCMINDCB 00004 0002F0 08578
UCMINPUT 00144 000578 08684
UCMLECB  00004 00000C 08522
UCMLF    00001 000008 08623
UCMLIST  00004 000530 08601   0481  8555  8686  8821  8823
UCMLOGAD 00004 000094 08803
UCMLSTP  00004 000014 08526   3393
UCMMCENT 00004 000000 08767   0487  0665
UCMMCS   00001 000002 08547
UCMMLAST 00004 000570 08672
UCMMODE  00001 000044 08542
UCMMODEL 00001 000046 08550
UCMMSG   00002 00056C 08653
UCMMSGA  00001 000080 08654
UCMMSGB  00001 000040 08655
UCMMSGC  00001 000020 08656
UCMMSGD  00001 000010 08657
UCMMSGE  00001 000008 08658
UCMMSGF  00001 000004 08659
UCMMSGG  00001 000002 08660
UCMMSGH  00001 000001 08661
UCMMSTXT 00001 000418 08593
UCMNAME  00008 000540 08606   0587  0663  4070
UCMNPECB 00004 000090 08802
UCMOAOEN 00004 000560 08648
UCMOECB  00004 000008 08520   8585
UCMOF    00001 000080 08619
UCMOGCE  00001 000004 08546
                                             CROSS-REFERENCE                                                   PAGE   53


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCMOPENX 00004 0000E8 08573
UCMOUDCB 00004 000378 08579
UCMOUTQ  00004 000554 08631
UCMOWTOR 00002 000056 08788
UCMPF    00001 000040 08610
UCMPRFX  00008 000000 08766   8819
UCMPXA   00004 000040 08540
UCMPXB   00001 000044 08541
UCMQRTN  00004 000080 08798
UCMRCT   00001 000574 08673
UCMREA   00004 0000DC 08569
UCMREAD  00144 0001D0 08575
UCMRECB  00004 000010 08523   8587
UCMREL   00004 0000E4 08571
UCMREND  00001 0006B0 08757   8571
UCMREZ   00004 0000E0 08570
UCMROUTC 00004 000498 08594
UCMRPYI  00004 000020 08531
UCMRPYL  00001 0003ED 08588
UCMRPYQ  00004 00001C 08530
UCMRQE   00008 0006B0 08730   8569  8750  8752
UCMRQECB 00004 000030 08535
UCMRQLM  00001 00002D 08533
UCMRQNR  00002 000038 08537
UCMRSIZ  00001 000018 08750   8570  8757
UCMRTCD  00002 000550 08629   0669  8821
UCMRUTCK 00004 000084 08799
UCMR9SV  00004 0000CC 08560
UCMSAVE0 00004 000004 08768
UCMSAVE1 00004 000260 08576
UCMSAVE2 00004 0002A8 08577
UCMSAVE3 00004 000054 08558
UCMSAVE4 00004 00008C 08559
UCMSBR   00004 000534 08603
UCMSDS1  00001 00009C 08807   4159  4276  4277  4281  4282
UCMSDS1A 00001 000080 08808   4277  4281
UCMSDS1B 00001 000040 08809   4276  4282
UCMSDS1C 00001 000020 08810
UCMSDS1D 00001 000010 08811
UCMSDS1E 00001 000008 08812
UCMSDS1F 00001 000004 08813
UCMSDS1G 00001 000002 08814
UCMSDS1H 00001 000001 08815
UCMSDS2  00003 00009D 08816
UCMSDS5  00001 000574 08674
UCMSDS5A 00001 000080 08675
UCMSDS5B 00001 000040 08676
UCMSDS5C 00001 000020 08677
UCMSDS5D 00001 000010 08678
UCMSDS5E 00001 000008 08679
UCMSDS5F 00001 000004 08680
UCMSDS5G 00001 000002 08681
UCMSDS5H 00001 000001 08682
UCMSFLGS 00001 000054 08771   0534  0537  1127  4049  4050  4085  4097  4140  4149  4150  4152  4157  4161
UCMSTS   00001 000548 08608
                                             CROSS-REFERENCE                                                   PAGE   54


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCMSYSA  00001 000080 08773
UCMSYSB  00001 000040 08774   0534  0537  4050  4097  4140  4152  4157
UCMSYSC  00001 000020 08775   1532  4161  4209  4289
UCMSYSD  00001 000010 08776
UCMSYSE  00001 000008 08777
UCMSYSF  00001 000004 08778
UCMSYSG  00001 000002 08779   4049  4149
UCMSYSH  00001 000001 08780   1127  1128  4929
UCMSYSI  00001 000080 08781
UCMSYSJ  00001 000040 08782
UCMSYSK  00001 000020 08783
UCMSYSL  00001 000010 08784
UCMSYSM  00001 000008 08785
UCMSYSN  00001 000004 08786
UCMSYSO  00001 000002 08787
UCMTA    00001 000008 08613
UCMTB    00001 000004 08614
UCMTC    00001 000001 08616
UCMTD    00001 000002 08615
UCMTPPTR 00004 00008C 08801
UCMTPSAV 00004 0004E8 08597   8801
UCMUCB   00004 00053C 08605   0493  4064
UCMUEXIT 00001 000061 08792
UCMUF    00001 000010 08622   0490  0658
UCMVEA   00004 000048 08555   0582  4061
UCMVEL   00004 000050 08557   0566
UCMVEZ   00004 00004C 08556   0565  4060
UCMWEA   00004 0000D0 08565
UCMWEL   00004 0000D8 08567
UCMWEND  00001 000608 08728   8567
UCMWEZ   00004 0000D4 08566
UCMWLAST 00004 000564 08650
UCMWQE   00008 000608 08689   8565  8720  8722
UCMWQECB 00004 000034 08536
UCMWQEND 00004 00003C 08539
UCMWQLM  00002 00002E 08534
UCMWQNR  00002 00003A 08538
UCMWRITE 00001 0000F2 07474   0587  0663  4070
UCMWSIZ  00001 0000A8 08720   8566  8728
UCMWTOQ  00004 000018 08529
UCMWTOX  00004 000050 08770
UCMXA    00002 00054A 08627
UCMXB    00004 00054C 08628
UCMXCT   00001 000060 08791
UCMXECB  00004 000000 08518   8583
UCMXF    00001 000020 08621
UCMXOR   00001 00056E 08662   0548  0552  0557  0571  0575  0579
UCMXSA   00004 000068 08795
UCMXTSAV 00004 0004A0 08596
UCM2     00001 000000 08759
UCM2EXT  00008 000000 08760   8818
UCM2PST  00004 000004 08763
UCM2RID  00002 000002 08762
UCM2WID  00002 000000 08761
UCM3WD   00004 000070 08797   8795
                                             CROSS-REFERENCE                                                   PAGE   55


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UEXCONS  00006 004898 05353   5076
UEXSIO   00004 00489E 05354   5355
UNITADDR 00002 00651A 07419   1053  5486  5791  5792  5849  5857  5866  5882
UNITCHEK 00001 000002 00208   0806  5987  5991  6153
UNUSED   00002 007026 08013   8009
UPDATBIN 00004 0003FC 00770   0767  0785
UPVOLT   00004 000526 00854   0852
USERORG  00001 000000 00006   6750
USRRSVC  00004 0034A0 03701   3689
UTYP1052 00001 000020 00077
UTYP1403 00001 000008 00075   0647
UTYP1443 00001 00000A 00076   0649
UTYP2150 00001 000021 00078
UTYP2250 00001 000002 00073
UTYP5450 00001 000007 00074
U2305M1  00001 000006 00079   0732  1074
U2305M2  00001 000007 00080   0734  1076
U2305SIZ 00001 000040 00082   1078  1081
U3270    00001 000009 00081
U3330FLG 00001 000009 00083   2105
VARDATAL 00004 006B1C 07823   4881
VOLREAD  00001 0007F6 01083   1077
VOLTBATV 00001 000001 07595   1042  5412
VOLTBEND 00001 006F52 07902
VOLTBNSZ 00001 000008 07898   7899
VPTREG3  00001 000003 05396   5414  5415  5417  5419  5419  5421  5426  5442  5451
VTABDTYP 00001 000009 07901
WAIT     00004 006218 07301   0962  2507  5854  5879
WAITA    00001 00711C 08085   8096  8107  8112  8117
WAITING  00004 00060E 00934   0934
WAITINT  00001 004DA8 05851   5844
WAITOPT  00005 0006D1 00985   0945  0945
WAITPSW  00004 0073E8 08286   8090
WAITR    00001 007132 08091   8086  8285
WAIT100  00004 000604 00931   0762  0805  0913
WARNING  00004 005790 06685   1272  2946  3119  3523  4888
WHERE    00004 007108 08077   8059
WRCAW    00004 007368 08262   8069  8230
WRITCDE  00001 000001 07937   8032  8033
WRITE    00001 0072EA 08228   8191  8204
WRITECCW 00001 000009 07943   8083
WRITEMSG 00001 0071C0 08135   8084
WR327CCW 00001 0059A8 06908   6670  8068  8070  8237
WTOADDR  00001 000000 07502   4956
WTOLNTH  00001 000007 07503   4928
XA4      00001 0000A4 00343
XA6      00001 0000A6 00342
XB1      00001 0000B1 00359   2354
XCF      00001 0000CF 00360
XCOMPARE 00004 00227A 02881   2876  2878  2884
XCOMP1A  00004 002282 02883   2893  2898  2900
XCPARM1  00001 000000 08365
XCPBA    00001 00000C 08375   8407  8408  8501
XCPBAD   00004 0075D4 08496   8455
XCPBADRG 00001 000006 08372   8455  8476  8489  8491  8493
                                             CROSS-REFERENCE                                                   PAGE   56


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

XCPBIN   00001 000003 08368   8478  8479
XCPBK    00001 000005 08371   8409  8410  8422  8444  8480  8500
XCPBSWIT 00001 000001 07583   3423  8412  8414
XCPCBSIZ 00001 000068 09218   8415
XCPCEL   00001 000004 08370   8466  8488
XCPDB    00001 000001 08366   8409  8411
XCPDBAPP 00003 000055 09209
XCPDBBIN 00002 00005C 09212   8463  8478
XCPDBCCE 00002 000062 09215
XCPDBCCS 00002 00005E 09213
XCPDBDCB 00003 000051 09207
XCPDBEXS 00001 000054 09208   8425  8458  8460
XCPDBMOD 00001 000058 09210   8426  8427
XCPDBNOT 00007 000049 09205
XCPDBNXT 00001 000048 09204   8421
XCPDBPID 00001 000050 09206   8422  8423
XCPDBRWE 00002 000064 09216
XCPDBRWS 00002 000060 09214
XCPDBTRK 00002 000066 09217   8461
XCPDBUCB 00003 000059 09211
XCPDBZER 00004 000038 09203
XCPDCB   00008 000000 09162   8415  8415  9179  9207  9218
XCPDCDEB 00003 00002D 09189
XCPDCIFL 00001 00002C 09188   8434  8435
XCPDCOFL 00004 000030 09190   8451
XCPDCTIM 00004 000028 09187
XCPDEB   00004 000038 09202   8433  9189
XCPECB   00004 000034 09196   8442  8453  8453  8482  8486  9173
XCPGO    00002 0075A2 08480   8459  8465
XCPGODAT 00004 00759A 08478   8474
XCPGOOD  00002 0075DC 08498   8487
XCPIBCC  00001 000004 09172   8443
XCPIBCCW 00003 000011 09177
XCPIBCSW 00007 000009 09175   8490
XCPIBDCB 00003 000015 09179
XCPIBECB 00003 000005 09173
XCPIBFG1 00001 000000 09169   8441
XCPIBFG2 00001 000001 09170
XCPIBFG3 00001 000008 09174
XCPIBPUR 00008 000018 09180
XCPIBRES 00001 000014 09178   8444
XCPIBSEK 00008 000020 09181   8462  8462  8463  8479
XCPIBSEN 00002 000002 09171   8451  8492  8494
XCPIBSIO 00001 000010 09176   8452
XCPIOB   00008 000000 09168
XCPIOERR 00001 0073BC 08268   8250
XCPNINE  00001 000009 08374   8467  8475
XCPN321  00001 000141 08394   8454  8466
XCPONOFF 00004 007582 08471   8477  8495
XCPRECOD 00001 00000F 08376   8496  8498  8498
XCPROG   00001 000000 09161   8410
XCPRTURN 00002 0075DE 08499   8497
XCPSAVRG 00004 00737C 08267   8243  8251  8269
XCPSETUP 00004 007556 08460   8457
XCPSSM   00004 0075B0 08485   8485
                                             CROSS-REFERENCE                                                   PAGE   57


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

XCPUCB   00001 000002 08367   8411  8426  8456  8464  8470  8470  8471  8471  8473
XCPUSED  00006 00752E 08451   8413
XCPWORK  00001 000003 08369   8424  8425  8433  8434  8442  8443  8468  8468  8469  8472  8472  8475
XCP0     00001 000000 08382   8407  8469
XCP0C    00001 00000C 08401   8435
XCP0F    00001 00000F 08402   8423
XCP00    00001 000000 08395   8427
XCP01    00001 000001 08396   8421  8461  8492
XCP02    00001 000002 08397   8458  8490  8494
XCP03    00001 000003 08398
XCP04    00001 000004 08399   8460
XCP05    00001 000005 08400   8464
XCP1     00001 000001 08383   8451  8462  8472  8494
XCP14    00001 000014 08403   8425
XCP16    00001 000010 08390   8424  8471
XCP18    00001 000012 08391   8456
XCP19    00001 000013 08392   8464
XCP2     00001 000002 08384   8463  8479
XCP20    00001 000020 08404   8456
XCP3     00001 000003 08385   8451  8462  8473  8490
XCP321   00001 000008 08373   8454  8488
XCP4     00001 000004 08386   8425  8453  8496
XCP40    00001 000028 08393   8470
XCP68BYT 00001 007470 08315   6729  8272
XCP7     00001 000007 08387   8489  8491
XCP7F    00001 00007F 08405   8486
XCP8     00001 000008 08388   8476  8493
XCP80    00001 000080 08406   8473
XCP9     00001 000009 08389   8467
XC0      00001 0000C0 00373   2265
XC1      00001 0000C1 00363
XC2      00001 0000C2 00345
XC3      00001 0000C3 00374   2419  2876  2932  2934
XC4      00001 0000C4 00375
XC5      00001 0000C5 00376
XC6      00001 0000C6 00377
XC7      00001 0000C7 00378
XE0      00001 0000E0 00344
XFD      00001 0000FD 00369   3963  6155
XFE      00001 0000FE 03173   3894
XFF      00001 0000FF 00370   0911  1950  2040  2056  2063  2073  2111  2128  2162  2182  2185  2347  2408  3097  4079
                              4116  4122  4277  4282  4378  4804  4807  5156  5795  5842  5847  6046  6072
XF0      00001 0000F0 00368   0916  2042  2372  5942  6131  6136
XF3      00001 0000F3 00361
XIGCERR  00004 00586C 06748   1261
XUSERORG 00004 005874 06750   1221  1228  3685
X0C      00001 00000C 00347   2257  2426
X0F      00001 00000F 00367   2261  2431  4133  4960
X00      00001 000000 00315   0814  0942  0972  2048  2065  2206  2346  2515  4213
X0065    00002 0065CC 07442   3082
X01      00001 000001 00316   2113  2148  2172  2213  2241  2360  2415  2534  3851  3892
X02      00001 000002 00317   2434  2449  2471  2554  7596
X03      00001 000003 00318   4967
X04      00001 000004 00319   2069  2264  2320
X040400  00003 001E00 02742   2343
                                             CROSS-REFERENCE                                                   PAGE   58


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

X05      00001 000005 00346
X06      00001 000006 00320   0826  0849
X07      00001 000007 00321   0828  0851
X08      00001 000008 00330   0855  2357  4131  4145
X1A      00001 00001A 00362   2352
X1D      00001 00001D 00348   2240
X1E      00001 00001E 00323
X10      00001 000010 00322   2153  2332  2341  2592  5219
X18      00001 000018 00341
X20      00001 000020 00324   2576  2599  5159
X24      00001 000024 00349
X3A      00001 00003A 00352   2509
X3C      00001 00003C 00326
X30      00001 000030 00350   2594
X31      00001 000031 00351
X38      00001 000038 00325
X40      00001 000040 00327   1326  1575  1581  1717  2212  2497  2524  2565  4969  5203  6157
X41      00001 000041 00353
X42      00001 000042 00354   2141  2278
X50      00001 000050 00329   3176  3179  3846
X52      00001 000052 03172   3175  3179  3846
X6B      00001 00006B 00364   1522  1535  1573  1579  1715  4216  4297
X60      00001 000060 00334   2596
X61      00001 000061 00336   6132  6137
X65      00001 000065 00335
X68      00001 000068 00355
X7D      00001 00007D 00365   1571  1577  1713  4189
X7F      00001 00007F 00366   0845  1021  2299  2469  2532  2585  3849  3864  3889
X7FF     00001 0007FF 00379   3023
X70      00001 000070 00337
X8C      00001 00008C 00338
X80      00001 000080 00331   0993  1026  2160  2174  2210  2413  2417  3231  4295  4310  4321
X81      00001 000081 00356
X82      00001 000082 00333   4082
X88      00001 000088 00357   2211
X89      00001 000089 00358   2220
X9       00001 000009 00328
X93      00001 000093 00372   2421
X94      00001 000094 00332
X95      00001 000095 00339
X97      00001 000097 00340
ZEUSA    00001 000006 05133   5167  5169  5195
ZEUSC    00001 000007 05134   5164  5165



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =    40      SOURCE RECORDS (SYSLIB) = 19529
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
13071 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM37.R0000163      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM37.S0000164      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM37.S0000164      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG38    / START 78240.1945
IEF374I STEP /SG38    / STOP  78240.1945 CPU   0MIN 05.27SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:29.88   ALLOC START    19:45:29.89   MAIN REGION ----- 300K                          *
*   STEP NAME SG38       STEP END TIME  19:45:36.00   PGM START TIME 19:45:29.97   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:06.12   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:05.27   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ---------- 512       0250 ------------ 0       0250 ------------ 0       0151 ---------- 375       0151 ---------- 463    *
*   0151 --------- 1107       0353 --------- 1634       0151 ---------- 564       0130 ----------- 42                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM37  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:36.03   ALLOC START    19:45:36.04   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:36.06   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM37 / START 78240.1945
IEF376I  JOB /R21AM37 / STOP  78240.1945 CPU   0MIN 05.27SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM37    JOB READ TIME 19:44:53.33   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:05.27   *
*   JOB CLASS A          JOB INIT TIME 19:45:29.88   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:06.20   *
*   ACCOUNT              JOB END TIME  19:45:36.08   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M  333333333   8888888                             A
            RRRRRRRRR  222222222      11        AAA     MM     MM  333333333  888888888                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  33    33   88     88                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM       33    88     88                         AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      3333    8888888                         AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM     333333   8888888                         AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM         33  88     88                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  33     33  88     88                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM  333333333  888888888                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM   3333333    8888888                         AA     AA

***********A  START   R21AM38    SYS SYSA   WTR 00E   07:47:20 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM38    START  A***********
***********A  START   R21AM38    SYS SYSA   WTR 00E   07:47:20 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM38    START  A***********
***********A  START   R21AM38    SYS SYSA   WTR 00E   07:47:20 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM38    START  A***********
***********A  START   R21AM38    SYS SYSA   WTR 00E   07:47:20 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM38    START  A***********
***********A  START   R21AM38    SYS SYSA   WTR 00E   07:47:20 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM38    START  A***********


//R21AM38 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG39 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEAASU00)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM38  SG39
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEAQFX00  SD  01 000000 009908
SVCOPSW   LD     000020         01
PINPSW    LD     000068         01
PIOPSW    LD     000028         01
IEAPSW    LD     000200         01
IECIERLC  LD     00020A         01
IEASCSAV  LD     000218         01
IEAPKSAV  LD     000258         01
IEASAV    LD     000298         01
IHLCMT    LD     0002A4         01
IEACVT    ER  02
TRPTR     ER  03
IEAQEX00  ER  04
IEAQSC00  ER  05
IEAQPK00  ER  06
IEAQIO00  ER  07
IFBACTA   ER  08
IEANIP4   ER  09
IECIOS    LD     0002C8         01
IEA0XE00  ER  0A
DISMISS   ER  0B
IEATCBP   ER  0C
IEA0DS02  ER  0D
IEAHEAD   ER  0E
IEA0PT01  ER  0F
IEA0IO02  ER  10
ER2311    ER  11
IEEBA1    ER  12
IEFDPOST  ER  13
IEDQATTN  ER  14
DDRIOB    ER  15
DDRDEB    ER  16
IGFRMTCB  ER  17
IGF0IOB   ER  18
IGF0DEB   ER  19
IGC000    LD     003548         01
IECCPL00  LD     005282         01
IECINT    LD     003C18         01
CTCMUCB   LD     004B14         01
ATNTAB    LD     0047A0         01
CTCMONSW  LD     004B18         01
CTCATN    LD     0047C4         01
IGC015    LD     005938         01
IECIHIO   LD     005B30         01
IECIXAVL  LD     0046E8         01
IECXAPG   LD     00478C         01
IECILCH   LD     004E1A         01
IECILK1   LD     004E52         01
IECILK2   LD     004ED6         01
IECIOQET  LD     003480         01
IECSTB    LD     008C10         01
INT025    LD     003E32         01
XCP064    LD     0035FA         01
IECDMS    LD     004760         01
IECCST    LD     004DC8         01
                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    2
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                             8/28/78


IECITSAR  LD     003520         01
IECRQE00  LD     0054E0         01
IGC092    LD     005468         01
IECOLTVT  LD     0047C8         01
DEVTAB    LD     004D78         01
IECRMS    LD     005582         01
DDRRQE    LD     003524         01
DDRAPNVT  LD     0047F8         01
DDRSRTO   LD     0058D0         01
IEA0PT02  ER  1A
SIRB      ER  1B
RMBRANCH  ER  1C
IEAPKSAV  ER  1D
IGFCAT    ER  1E
TRACE     ER  1F
IEASMFEX  ER  20
IECHASPE  ER  21
IEAMSTCB  ER  22
IEA0EF00  ER  23
IFFIOM    ER  24
IECTATTN  ER  25
IECTATEN  ER  26
IECURATN  ER  27
LASPTCH   LD     004CA4         01
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  IEAQFX 158,MCH,0,1,GENCODE=YES
                                      3+*...FIXED, LOW CORE LOCATIONS.



000000                                6+IEAQFX00 CSECT
                                      7+         ENTRY SVCOPSW 0539
                                      8+         ENTRY PINPSW 0539
                                      9+         ENTRY PIOPSW 0539
                                     10+         ENTRY IEAPSW 0539
                                     11+         ENTRY IECIERLC 0539
                                     12+         ENTRY IEASCSAV 0539
                                     13+         ENTRY IEAPKSAV 0539
                                     14+         ENTRY IEASAV 0539
                                     15+         ENTRY IHLCMT 21014
000000                               16+         USING IPLPSW,0

000000                               18+IPLPSW   DS    0F .USE FOR BASE ADDRESSABILITY.
000000                               19+         DS    CL24



                                     21+*...INTERRUPT OLD PSW'S.

000018                               23+EXOPSW   DS    1D .TIMER/EXTERNAL OLD PSW.
000020                               24+SVCOPSW  DS    1D .SVC OLD PSW.
000028                               25+PIOPSW   DS    1D .PROGRAM CHECK OLD PSW.
000030 0000FF0000000000              26+MCOPSW   DC    X'0000FF0000000000' .MACHINE CHECK OLD PSW.     1759
000038                               27+IOOPSW   DS    1D .I/O OLD PSW.

000040                               29+         DS    CL12

00004C 00000000                      31+         DC    V(IEACVT) .ADDRESS OF CVT.
000050 62E08000                      32+TIMER    DC    X'62E08000' SIX HR VALUE IN 13.02083 USEC UNITS.  A50059

000054 00000000                      34+         DC    V(TRPTR) .ADDRESS OF TRACE ROUTINE.



                                     36+*...INTERRUPT NEW PSW'S.

000058 00040000                      38+EXNPSW   DC    XL4'00040000' .TIMER/EXTERNAL NEW PSW. DISABLED EXCEPT
00005C 00000000                      39+         DC    V(IEAQEX00) FOR MACHINE CHECK.

000060 00040000                      41+SVCNPSW  DC    XL4'00040000' .SVC NEW PSW. DISABLED EXCEPT FOR MACHINE
000064 00000000                      42+         DC    V(IEAQSC00) CHECK.

000068 00040000                      44+PINPSW   DC    XL4'00040000' .PROGRAM CHECK NEW PSW. DISABLED EXCEPT
00006C 00000000                      45+         DC    V(IEAQPK00) FOR MACHINE CHECK.


000070 00020000                      47+MCNPSW   DC    XL4'00020000' .MACHINE CHECK NEW PSW. COMPLETLY DISABLED
000074 000000E2                      48+         DC    XL4'000000E2' WAIT PSW
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000078 00040000                      50+IONPSW   DC    XL4'00040000' .I/O NEW PSW. DISABLED EXCEPT FOR MACHINE
00007C 00000000                      51+         DC    V(IEAQIO00) CHECK.



                                     53+*      THE FOLLOWING MACRO DETERMINES THE LEVEL OF SER             ISER
000080 00000000                      54+         DC    V(IFBACTA) CHANNEL TYPE ASSIGNMENTS
000084 0000000000000000              55+         DC    2XL190'00' .LOGOUT FOR MODELS                   @AS76924
                                     56+*                                                                  ISER

                                     58+* LOW CORE AREA FOR LOADING PSW'S.
000200                               59+IEAPSW   DS    1D
                                     60+*DEFINITION OF AEQS USED BY THE ASYNCHRONOUS EXIT EFFECTOR. THIS
                                     61+*QUEUE IS REFERENCED BY THE EXIT EFFECTOR, SVC PURGE, AND BY IOS
                                     62+*AND MUST BE DEFINED AS ORIGINATING BELOW AN 8K BOUNDARY.
000208                               63+         DS    1H RESERVED FOR GENERATION
00020A                               64+IECIERLC DS    0H
00020A 0000                          65+AEQA     DC    AL2(0) ADDR OF NEXT RQE TO BE DEQUED           0539
00020C 0000                          66+AEQB     DC    AL2(0) ADDR OF LAST RQE QUEUED                 0539
00020E 0000                          67+AEQC     DC    AL2(0) INITIAL VALUE OF AEQA                   0539

                                     69+*        THE FOLLOWING ADCONS INITIALIZE THE QUEUE SO THAT
                                     70+*THE THREE ELEMENTS OF THE QUEUE POINT TO THE FIRST ELEMENT
00020D                               71+         ORG   AEQC-1 0539
00020D 00020A                        72+         DC    AL3(AEQA) 0539
00020B                               73+         ORG   AEQB-1 0539
00020B 00020A                        74+         DC    AL3(AEQA) 0539
000209                               75+         ORG   AEQA-1 0539
000209 00020A                        76+         DC    AL3(AEQA) 0539
000210                               77+         ORG   AEQC+2 RESET COUNTER                        0539


                                     79+*    THREE WORDS FOR QUEUE ORIGIN OF IQE-AEQ.  ABEND EXPECTS       0539
                                     80+*   THIS QUEUE TO BE ADJACENT TO THE RQE-AEQ.                      0539
000210                               81+         DS    0F 0539
000210 FF                            82+AEQJ     DC    X'FF' FLAG INDICATES EMPTY QUEUE                0539
000211 000210                        83+         DC    AL3(AEQJ) ADDR OF NEXT IQE TO BE DQD            0539
000214 FF                            84+AEQK     DC    X'FF' 0539
000215 000210                        85+         DC    AL3(AEQJ) ADDR OF LAST IQE QUEUED               0539
                                     86+* REG SAVE AREA FOR SVC FLIH.
000218                               87+IEASCSAV DS    16F
                                     88+* REG SAVE AREA FOR PROGRAM CHECK INTERRUPT HANDLER.
000258                               89+IEAPKSAV DS    16F

                                     91+* LOW CORE WORK AREA.
000298                               92+IEASAV   DS    3F
                                     93+*
                                     94+* CLASS MASK TABLE (CMT)  FOR GTF
                                     95+*
0002A4                               96+IHLCMT   DS    0F CLASSMASK TABLE
0002A4 00000000                      97+         DC    A(0) HOOK CONTROL TBL LINK ADDRESS.
0002A8 0700070007000700              98+         DC    16XL2'0700' SIMULATED CLASS MASK.
0002C8                               99+IEAEND   DS    0F 0539

00016C                              101+         ORG   IEAQFX00+X'16C'
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    102+*...LOCATION X'16C' IS BRANCHED TO FROM THE IPL PROGRAM.
00016C 8200 0170      00170         103+         LPSW  *+4
000170 00040000                     104+         DC    X'00040000' .THIS PSW IS LOADED TO ENTER GOMAN
000174 00000000                     105+         DC    V(IEANIP4)
0002C8                              106+         ORG   IEAEND 0539
                                    107          AGO   .GBL      SET UP GLOBALS
                                    108 .GBL      IECGBL 1,0,33,0
                                    109          AGO   .IOSTART
                                    110 .IOSTART ENTRY IECIOS
0002C8                              111 IECIOS  DS  0D
                                    112          AGO   .UCB1    TO FIRST UCB
                                    113 .UCB1 ANOP
                                    114   IECIUCB 1,009,UR,0,04,1,0,,10000823,0,0,0,0,,0,0,0,009,0
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0002C8 0000FF                       116+UCB1     DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0002CB 80                           117+         DC    X'80' STAT 'A'                  20201
0002CC 0009000004                   118+         DC    X'0009',AL2(0),XL1'04' FLGS,UA,DEV,ERR
0002D1 01000000                     119+         DC    AL1(1),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0002D5 F0F0F91000082300             120+         DC    CL3'009',XL4'10000823',F'0' UA,DEVTYPE,RQE,SNSE 20201
0002E0 00005D30                     121+         DC    A(UCBW1) UR WORK AREA POINTER      19017

                                    123          AGO   .UCB2      TO NEXT UCB
                                    124 .UCB2 ANOP
                                    125   IECIUCB 2,00C,UR,0,0D,2,0,,10000801,0,0,0,0,,0,0,0,00C,0
0002E4 0000FF                       126+UCB2     DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0002E7 80                           127+         DC    X'80' STAT 'A'                  20201
0002E8 000C00000D                   128+         DC    X'000C',AL2(0),XL1'0D' FLGS,UA,DEV,ERR
0002ED 02000000                     129+         DC    AL1(2),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0002F1 F0F0C31000080100             130+         DC    CL3'00C',XL4'10000801',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    132          AGO   .UCB3      TO NEXT UCB
                                    133 .UCB3 ANOP
                                    134   IECIUCB 3,00D,UR,0,0D,3,0,,10000802,0,0,0,0,,0,0,0,00D,0
0002FC 0000FF                       135+UCB3     DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0002FF 80                           136+         DC    X'80' STAT 'A'                  20201
000300 000D00000D                   137+         DC    X'000D',AL2(0),XL1'0D' FLGS,UA,DEV,ERR
000305 03000000                     138+         DC    AL1(3),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000309 F0F0C41000080200             139+         DC    CL3'00D',XL4'10000802',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    141          AGO   .UCB4      TO NEXT UCB
                                    142 .UCB4 ANOP
                                    143   IECIUCB 4,00E,UR,0,07,4,0,,10800808,8,0,0,0,,0,0,0,00E,0
000314 0008FF                       144+UCB4     DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000317 80                           145+         DC    X'80' STAT 'A'                  20201
000318 000E000007                   146+         DC    X'000E',AL2(0),XL1'07' FLGS,UA,DEV,ERR
00031D 04000000                     147+         DC    AL1(4),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000321 F0F0C51080080800             148+         DC    CL3'00E',XL4'10800808',F'0' UA,DEVTYPE,RQE,SNSE 20201
00032C 0200032A                     149+         DC    X'02',AL3(UCB4+22) COUNT,SENSE AREA PTR      20202
000330 00005D38                     150+         DC    A(UCBW4) UR WORK AREA POINTER      19017

                                    152          AGO   .UCB5      TO NEXT UCB
                                    153 .UCB5 ANOP
                                    154   IECIUCB 5,00F,UR,0,07,5,0,,10800808,8,0,0,0,,0,0,0,00F,0
000334 0008FF                       155+UCB5     DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000337 80                           156+         DC    X'80' STAT 'A'                  20201
000338 000F000007                   157+         DC    X'000F',AL2(0),XL1'07' FLGS,UA,DEV,ERR
00033D 05000000                     158+         DC    AL1(5),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000341 F0F0C61080080800             159+         DC    CL3'00F',XL4'10800808',F'0' UA,DEVTYPE,RQE,SNSE 20201
00034C 0200034A                     160+         DC    X'02',AL3(UCB5+22) COUNT,SENSE AREA PTR      20202
000350 00005D40                     161+         DC    A(UCBW5) UR WORK AREA POINTER      19017

                                    163          AGO   .UCB6      TO NEXT UCB
                                    164 .UCB6   ANOP       UCB ENTRY
                                    165  IECIUCB 6,010,GR,8,69,6,0,1,1210100C,0,0,0,0,1,4000
000354 0000FF                       166+UCB6     DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000357 80                           167+         DC    X'80' STAT 'A'                  20201
000358 0010000869                   168+         DC    X'0010',AL2(8),XL1'69' FLGS,UA,DEV,ERR
00035D 06000000                     169+         DC    AL1(6),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000361 F0F1F01210100C00             170+         DC    CL3'010',XL4'1210100C',F'0' UA,DEVTYPE,RQE,SNSE 20201
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00036C 40000000                     171+         DC    XL2'4000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
000370 0000000000000000             172+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                    174          AGO   .UCB7      TO NEXT UCB
                                    175 .UCB7   ANOP       UCB ENTRY
                                    176  IECIUCB 7,011,GR,8,69,7,0,2,1210100C,0,0,0,0,1,4000
00037C 0000FF                       177+UCB7     DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00037F 80                           178+         DC    X'80' STAT 'A'                  20201
000380 0011000869                   179+         DC    X'0011',AL2(8),XL1'69' FLGS,UA,DEV,ERR
000385 07000000                     180+         DC    AL1(7),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000389 F0F1F11210100C00             181+         DC    CL3'011',XL4'1210100C',F'0' UA,DEVTYPE,RQE,SNSE 20201
000394 40000000                     182+         DC    XL2'4000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
000398 0000000000000000             183+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                    185          AGO   .UCB8      TO NEXT UCB
                                    186 .UCB8   ANOP       UCB ENTRY
                                    187  IECIUCB 8,014,GR,8,69,8,0,3,1210100C,0,0,0,0,1,4000
0003A4 0000FF                       188+UCB8     DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0003A7 80                           189+         DC    X'80' STAT 'A'                  20201
0003A8 0014000869                   190+         DC    X'0014',AL2(8),XL1'69' FLGS,UA,DEV,ERR
0003AD 08000000                     191+         DC    AL1(8),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0003B1 F0F1F41210100C00             192+         DC    CL3'014',XL4'1210100C',F'0' UA,DEVTYPE,RQE,SNSE 20201
0003BC 40000000                     193+         DC    XL2'4000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
0003C0 0000000000000000             194+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                    196          AGO   .UCB9      TO NEXT UCB
                                    197 .UCB9 ANOP
                                    198   IECIUCB 9,01F,UR,0,04,9,0,,10000823,0,0,0,0,,0,0,0,01F,0
0003CC 0000FF                       199+UCB9     DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0003CF 80                           200+         DC    X'80' STAT 'A'                  20201
0003D0 001F000004                   201+         DC    X'001F',AL2(0),XL1'04' FLGS,UA,DEV,ERR
0003D5 09000000                     202+         DC    AL1(9),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0003D9 F0F1C61000082300             203+         DC    CL3'01F',XL4'10000823',F'0' UA,DEVTYPE,RQE,SNSE 20201
0003E4 00005D48                     204+         DC    A(UCBW9) UR WORK AREA POINTER      19017

                                    206          AGO   .UCB10      TO NEXT UCB
                                    207 .UCB10 ANOP
                                    208   IECIUCB 10,02F,UR,16,04,10,0,,10040820,0,0,0,0,,0,0,0,02F,0
0003E8 0000FF                       209+UCB10    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0003EB 80                           210+         DC    X'80' STAT 'A'                  20201
0003EC 002F001004                   211+         DC    X'002F',AL2(16),XL1'04' FLGS,UA,DEV,ERR
0003F1 0A000000                     212+         DC    AL1(10),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0003F5 F0F2C61004082000             213+         DC    CL3'02F',XL4'10040820',F'0' UA,DEVTYPE,RQE,SNSE 20201
000400 00005D50                     214+         DC    A(UCBW10) UR WORK AREA POINTER      19017

                                    216          AGO   .UCB11      TO NEXT UCB
                                    217 .UCB11   ANOP       UCB ENTRY
                                    218  IECIUCB 11,090,TP,24,2B,11,0,1,55004093,0,0,0,0
000404 0000FF                       219+UCB11    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000407 80                           220+         DC    X'80' STAT 'A'                  20201
000408 009000182B                   221+         DC    X'0090',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
00040D 0B000000                     222+         DC    AL1(11),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000411 F0F9F05500409300             223+         DC    CL3'090',XL4'55004093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    225          AGO   .UCB12      TO NEXT UCB
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    226 .UCB12   ANOP       UCB ENTRY
                                    227  IECIUCB 12,091,TP,24,2B,12,0,2,55004093,0,0,0,0
00041C 0000FF                       228+UCB12    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00041F 80                           229+         DC    X'80' STAT 'A'                  20201
000420 009100182B                   230+         DC    X'0091',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
000425 0C000000                     231+         DC    AL1(12),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000429 F0F9F15500409300             232+         DC    CL3'091',XL4'55004093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    234          AGO   .UCB13      TO NEXT UCB
                                    235 .UCB13   ANOP       UCB ENTRY
                                    236  IECIUCB 13,092,TP,24,2B,13,0,3,55004093,0,0,0,0
000434 0000FF                       237+UCB13    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000437 80                           238+         DC    X'80' STAT 'A'                  20201
000438 009200182B                   239+         DC    X'0092',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
00043D 0D000000                     240+         DC    AL1(13),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000441 F0F9F25500409300             241+         DC    CL3'092',XL4'55004093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    243          AGO   .UCB14      TO NEXT UCB
                                    244 .UCB14   ANOP       UCB ENTRY
                                    245  IECIUCB 14,093,TP,24,2B,14,0,4,55004093,0,0,0,0
00044C 0000FF                       246+UCB14    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00044F 80                           247+         DC    X'80' STAT 'A'                  20201
000450 009300182B                   248+         DC    X'0093',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
000455 0E000000                     249+         DC    AL1(14),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000459 F0F9F35500409300             250+         DC    CL3'093',XL4'55004093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    252          AGO   .UCB15      TO NEXT UCB
                                    253 .UCB15   ANOP       UCB ENTRY
                                    254  IECIUCB 15,094,TP,24,2B,15,0,5,55004093,0,0,0,0
000464 0000FF                       255+UCB15    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000467 80                           256+         DC    X'80' STAT 'A'                  20201
000468 009400182B                   257+         DC    X'0094',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
00046D 0F000000                     258+         DC    AL1(15),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000471 F0F9F45500409300             259+         DC    CL3'094',XL4'55004093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    261          AGO   .UCB16      TO NEXT UCB
                                    262 .UCB16   ANOP       UCB ENTRY
                                    263  IECIUCB 16,095,TP,24,2B,16,0,6,55004093,0,0,0,0
00047C 0000FF                       264+UCB16    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00047F 80                           265+         DC    X'80' STAT 'A'                  20201
000480 009500182B                   266+         DC    X'0095',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
000485 10000000                     267+         DC    AL1(16),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000489 F0F9F55500409300             268+         DC    CL3'095',XL4'55004093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    270          AGO   .UCB17      TO NEXT UCB
                                    271 .UCB17   ANOP       UCB ENTRY
                                    272  IECIUCB 17,096,TP,24,2B,17,0,7,55004093,0,0,0,0
000494 0000FF                       273+UCB17    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000497 80                           274+         DC    X'80' STAT 'A'                  20201
000498 009600182B                   275+         DC    X'0096',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
00049D 11000000                     276+         DC    AL1(17),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0004A1 F0F9F65500409300             277+         DC    CL3'096',XL4'55004093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    279          AGO   .UCB18      TO NEXT UCB
                                    280 .UCB18   ANOP       UCB ENTRY
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    281  IECIUCB 18,097,TP,24,2B,18,0,8,55004093,0,0,0,0
0004AC 0000FF                       282+UCB18    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0004AF 80                           283+         DC    X'80' STAT 'A'                  20201
0004B0 009700182B                   284+         DC    X'0097',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
0004B5 12000000                     285+         DC    AL1(18),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0004B9 F0F9F75500409300             286+         DC    CL3'097',XL4'55004093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    288          AGO   .UCB19      TO NEXT UCB
                                    289 .UCB19   ANOP       UCB ENTRY
                                    290  IECIUCB 19,0A0,TP,24,2B,19,0,1,56904093,0,0,0,0
0004C4 0000FF                       291+UCB19    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0004C7 80                           292+         DC    X'80' STAT 'A'                  20201
0004C8 00A000182B                   293+         DC    X'00A0',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
0004CD 13000000                     294+         DC    AL1(19),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0004D1 F0C1F05690409300             295+         DC    CL3'0A0',XL4'56904093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    297          AGO   .UCB20      TO NEXT UCB
                                    298 .UCB20   ANOP       UCB ENTRY
                                    299  IECIUCB 20,0A1,TP,24,2B,20,0,2,56904093,0,0,0,0
0004DC 0000FF                       300+UCB20    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0004DF 80                           301+         DC    X'80' STAT 'A'                  20201
0004E0 00A100182B                   302+         DC    X'00A1',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
0004E5 14000000                     303+         DC    AL1(20),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0004E9 F0C1F15690409300             304+         DC    CL3'0A1',XL4'56904093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    306          AGO   .UCB21      TO NEXT UCB
                                    307 .UCB21   ANOP       UCB ENTRY
                                    308  IECIUCB 21,0A2,TP,24,2B,21,0,3,56904093,0,0,0,0
0004F4 0000FF                       309+UCB21    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0004F7 80                           310+         DC    X'80' STAT 'A'                  20201
0004F8 00A200182B                   311+         DC    X'00A2',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
0004FD 15000000                     312+         DC    AL1(21),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000501 F0C1F25690409300             313+         DC    CL3'0A2',XL4'56904093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    315          AGO   .UCB22      TO NEXT UCB
                                    316 .UCB22   ANOP       UCB ENTRY
                                    317  IECIUCB 22,0A3,TP,24,2B,22,0,4,56904093,0,0,0,0
00050C 0000FF                       318+UCB22    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00050F 80                           319+         DC    X'80' STAT 'A'                  20201
000510 00A300182B                   320+         DC    X'00A3',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
000515 16000000                     321+         DC    AL1(22),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000519 F0C1F35690409300             322+         DC    CL3'0A3',XL4'56904093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    324          AGO   .UCB23      TO NEXT UCB
                                    325 .UCB23   ANOP       UCB ENTRY
                                    326  IECIUCB 23,0A4,TP,24,2B,23,0,5,56904093,0,0,0,0
000524 0000FF                       327+UCB23    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000527 80                           328+         DC    X'80' STAT 'A'                  20201
000528 00A400182B                   329+         DC    X'00A4',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
00052D 17000000                     330+         DC    AL1(23),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000531 F0C1F45690409300             331+         DC    CL3'0A4',XL4'56904093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    333          AGO   .UCB24      TO NEXT UCB
                                    334 .UCB24   ANOP       UCB ENTRY
                                    335  IECIUCB 24,0A5,TP,24,2B,24,0,6,56904093,0,0,0,0
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00053C 0000FF                       336+UCB24    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00053F 80                           337+         DC    X'80' STAT 'A'                  20201
000540 00A500182B                   338+         DC    X'00A5',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
000545 18000000                     339+         DC    AL1(24),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000549 F0C1F55690409300             340+         DC    CL3'0A5',XL4'56904093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    342          AGO   .UCB25      TO NEXT UCB
                                    343 .UCB25   ANOP       UCB ENTRY
                                    344  IECIUCB 25,0A6,TP,24,2B,25,0,7,56904093,0,0,0,0
000554 0000FF                       345+UCB25    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000557 80                           346+         DC    X'80' STAT 'A'                  20201
000558 00A600182B                   347+         DC    X'00A6',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
00055D 19000000                     348+         DC    AL1(25),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000561 F0C1F65690409300             349+         DC    CL3'0A6',XL4'56904093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    351          AGO   .UCB26      TO NEXT UCB
                                    352 .UCB26   ANOP       UCB ENTRY
                                    353  IECIUCB 26,0A7,TP,24,2B,26,0,8,56904093,0,0,0,0
00056C 0000FF                       354+UCB26    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00056F 80                           355+         DC    X'80' STAT 'A'                  20201
000570 00A700182B                   356+         DC    X'00A7',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
000575 1A000000                     357+         DC    AL1(26),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000579 F0C1F75690409300             358+         DC    CL3'0A7',XL4'56904093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    360          AGO   .UCB27      TO NEXT UCB
                                    361 .UCB27   ANOP       UCB ENTRY
                                    362  IECIUCB 27,0B0,TP,24,2B,27,0,1,57404093,0,0,0,0
000584 0000FF                       363+UCB27    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000587 80                           364+         DC    X'80' STAT 'A'                  20201
000588 00B000182B                   365+         DC    X'00B0',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
00058D 1B000000                     366+         DC    AL1(27),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000591 F0C2F05740409300             367+         DC    CL3'0B0',XL4'57404093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    369          AGO   .UCB28      TO NEXT UCB
                                    370 .UCB28   ANOP       UCB ENTRY
                                    371  IECIUCB 28,0B1,TP,24,2B,28,0,2,57404093,0,0,0,0
00059C 0000FF                       372+UCB28    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00059F 80                           373+         DC    X'80' STAT 'A'                  20201
0005A0 00B100182B                   374+         DC    X'00B1',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
0005A5 1C000000                     375+         DC    AL1(28),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0005A9 F0C2F15740409300             376+         DC    CL3'0B1',XL4'57404093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    378          AGO   .UCB29      TO NEXT UCB
                                    379 .UCB29   ANOP       UCB ENTRY
                                    380  IECIUCB 29,0B2,TP,24,2B,29,0,3,57404093,0,0,0,0
0005B4 0000FF                       381+UCB29    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0005B7 80                           382+         DC    X'80' STAT 'A'                  20201
0005B8 00B200182B                   383+         DC    X'00B2',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
0005BD 1D000000                     384+         DC    AL1(29),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0005C1 F0C2F25740409300             385+         DC    CL3'0B2',XL4'57404093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    387          AGO   .UCB30      TO NEXT UCB
                                    388 .UCB30   ANOP       UCB ENTRY
                                    389  IECIUCB 30,0B3,TP,24,2B,30,0,4,57404093,0,0,0,0
0005CC 0000FF                       390+UCB30    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0005CF 80                           391+         DC    X'80' STAT 'A'                  20201
0005D0 00B300182B                   392+         DC    X'00B3',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
0005D5 1E000000                     393+         DC    AL1(30),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0005D9 F0C2F35740409300             394+         DC    CL3'0B3',XL4'57404093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    396          AGO   .UCB31      TO NEXT UCB
                                    397 .UCB31   ANOP       UCB ENTRY
                                    398  IECIUCB 31,0B4,TP,24,2B,31,0,5,57404093,0,0,0,0
0005E4 0000FF                       399+UCB31    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0005E7 80                           400+         DC    X'80' STAT 'A'                  20201
0005E8 00B400182B                   401+         DC    X'00B4',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
0005ED 1F000000                     402+         DC    AL1(31),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
0005F1 F0C2F45740409300             403+         DC    CL3'0B4',XL4'57404093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    405          AGO   .UCB32      TO NEXT UCB
                                    406 .UCB32   ANOP       UCB ENTRY
                                    407  IECIUCB 32,0B5,TP,24,2B,32,0,6,57404093,0,0,0,0
0005FC 0000FF                       408+UCB32    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0005FF 80                           409+         DC    X'80' STAT 'A'                  20201
000600 00B500182B                   410+         DC    X'00B5',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
000605 20000000                     411+         DC    AL1(32),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000609 F0C2F55740409300             412+         DC    CL3'0B5',XL4'57404093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    414          AGO   .UCB33      TO NEXT UCB
                                    415 .UCB33   ANOP       UCB ENTRY
                                    416  IECIUCB 33,0B6,TP,24,2B,33,0,7,57404093,0,0,0,0
000614 0000FF                       417+UCB33    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000617 80                           418+         DC    X'80' STAT 'A'                  20201
000618 00B600182B                   419+         DC    X'00B6',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
00061D 21000000                     420+         DC    AL1(33),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000621 F0C2F65740409300             421+         DC    CL3'0B6',XL4'57404093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    423          AGO   .UCB34      TO NEXT UCB
                                    424 .UCB34   ANOP       UCB ENTRY
                                    425  IECIUCB 34,0B7,TP,24,2B,34,0,8,57404093,0,0,0,0
00062C 0000FF                       426+UCB34    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00062F 80                           427+         DC    X'80' STAT 'A'                  20201
000630 00B700182B                   428+         DC    X'00B7',AL2(24),XL1'2B' FLGS,UA,DEV,ERR
000635 22000000                     429+         DC    AL1(34),AL1(0),XL2'0' STAT,LCH,ATN,CHNMSK
000639 F0C2F75740409300             430+         DC    CL3'0B7',XL4'57404093',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    432          AGO   .UCB35      TO NEXT UCB
                                    433 .UCB35   ANOP       UCB ENTRY
                                    434  IECIUCB 35,0C0,GR,8,69,35,0,1,12501009,0,0,0,0,1,2000
000644 0000FF                       435+UCB35    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000647 80                           436+         DC    X'80' STAT 'A'                  20201
000648 00C0000869                   437+         DC    X'00C0',AL2(8),XL1'69' FLGS,UA,DEV,ERR
00064D 23001C00                     438+         DC    AL1(35),AL1(0),XL2'1C00' STAT,LCH,ATN,CK  21003
000651 F0C3F01250100900             439+         DC    CL3'0C0',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00065C 20000000                     440+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
000660 0000000000000000             441+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                    443          AGO   .UCB36      TO NEXT UCB
                                    444 .UCB36   ANOP       UCB ENTRY
                                    445  IECIUCB 36,0C1,GR,8,69,36,0,2,12501009,0,0,0,0,1,2000
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00066C 0000FF                       446+UCB36    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00066F 80                           447+         DC    X'80' STAT 'A'                  20201
000670 00C1000869                   448+         DC    X'00C1',AL2(8),XL1'69' FLGS,UA,DEV,ERR
000675 24001C00                     449+         DC    AL1(36),AL1(0),XL2'1C00' STAT,LCH,ATN,CK  21003
000679 F0C3F11250100900             450+         DC    CL3'0C1',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000684 20000000                     451+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
000688 0000000000000000             452+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                    454          AGO   .UCB37      TO NEXT UCB
                                    455 .UCB37   ANOP       UCB ENTRY
                                    456  IECIUCB 37,0C2,GR,8,69,37,0,3,12501009,0,0,0,0,1,2000
000694 0000FF                       457+UCB37    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000697 80                           458+         DC    X'80' STAT 'A'                  20201
000698 00C2000869                   459+         DC    X'00C2',AL2(8),XL1'69' FLGS,UA,DEV,ERR
00069D 25001C00                     460+         DC    AL1(37),AL1(0),XL2'1C00' STAT,LCH,ATN,CK  21003
0006A1 F0C3F21250100900             461+         DC    CL3'0C2',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0006AC 20000000                     462+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
0006B0 0000000000000000             463+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                    465          AGO   .UCB38      TO NEXT UCB
                                    466 .UCB38   ANOP       UCB ENTRY
                                    467  IECIUCB 38,0C3,GR,8,69,38,0,4,12501009,0,0,0,0,1,2000
0006BC 0000FF                       468+UCB38    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0006BF 80                           469+         DC    X'80' STAT 'A'                  20201
0006C0 00C3000869                   470+         DC    X'00C3',AL2(8),XL1'69' FLGS,UA,DEV,ERR
0006C5 26001C00                     471+         DC    AL1(38),AL1(0),XL2'1C00' STAT,LCH,ATN,CK  21003
0006C9 F0C3F31250100900             472+         DC    CL3'0C3',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0006D4 20000000                     473+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
0006D8 0000000000000000             474+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                    476          AGO   .UCB39      TO NEXT UCB
                                    477 .UCB39   ANOP       UCB ENTRY
                                    478  IECIUCB 39,0C4,GR,8,69,39,0,5,12501009,0,0,0,0,1,2000
0006E4 0000FF                       479+UCB39    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0006E7 80                           480+         DC    X'80' STAT 'A'                  20201
0006E8 00C4000869                   481+         DC    X'00C4',AL2(8),XL1'69' FLGS,UA,DEV,ERR
0006ED 27001C00                     482+         DC    AL1(39),AL1(0),XL2'1C00' STAT,LCH,ATN,CK  21003
0006F1 F0C3F41250100900             483+         DC    CL3'0C4',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0006FC 20000000                     484+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
000700 0000000000000000             485+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                    487          AGO   .UCB40      TO NEXT UCB
                                    488 .UCB40   ANOP       UCB ENTRY
                                    489  IECIUCB 40,0C5,GR,8,69,40,0,6,12501009,0,0,0,0,1,2000
00070C 0000FF                       490+UCB40    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00070F 80                           491+         DC    X'80' STAT 'A'                  20201
000710 00C5000869                   492+         DC    X'00C5',AL2(8),XL1'69' FLGS,UA,DEV,ERR
000715 28001C00                     493+         DC    AL1(40),AL1(0),XL2'1C00' STAT,LCH,ATN,CK  21003
000719 F0C3F51250100900             494+         DC    CL3'0C5',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000724 20000000                     495+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
000728 0000000000000000             496+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                    498          AGO   .UCB41      TO NEXT UCB
                                    499 .UCB41   ANOP       UCB ENTRY
                                    500  IECIUCB 41,0C6,GR,8,69,41,0,7,12501009,0,0,0,0,1,2000
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000734 0000FF                       501+UCB41    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000737 80                           502+         DC    X'80' STAT 'A'                  20201
000738 00C6000869                   503+         DC    X'00C6',AL2(8),XL1'69' FLGS,UA,DEV,ERR
00073D 29001C00                     504+         DC    AL1(41),AL1(0),XL2'1C00' STAT,LCH,ATN,CK  21003
000741 F0C3F61250100900             505+         DC    CL3'0C6',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00074C 20000000                     506+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
000750 0000000000000000             507+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                    509          AGO   .UCB42      TO NEXT UCB
                                    510 .UCB42   ANOP       UCB ENTRY
                                    511  IECIUCB 42,0C7,GR,8,69,42,0,8,12501009,0,0,0,0,1,2000
00075C 0000FF                       512+UCB42    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00075F 80                           513+         DC    X'80' STAT 'A'                  20201
000760 00C7000869                   514+         DC    X'00C7',AL2(8),XL1'69' FLGS,UA,DEV,ERR
000765 2A001C00                     515+         DC    AL1(42),AL1(0),XL2'1C00' STAT,LCH,ATN,CK  21003
000769 F0C3F71250100900             516+         DC    CL3'0C7',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000774 20000000                     517+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
000778 0000000000000000             518+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                    520          AGO   .UCB43      TO NEXT UCB
                                    521 .UCB43 ANOP
                                    522   IECIUCB 43,102,WR,32,06,43,1,,10800809,8,0,0,0,,0,0,0,102,0
000784 0008FF                       523+UCB43    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000787 80                           524+         DC    X'80' STAT 'A'                  20201
000788 0102002006                   525+         DC    X'0102',AL2(32),XL1'06' FLGS,UA,DEV,ERR
00078D 2B012000                     526+         DC    AL1(43),AL1(1),XL2'2000' STAT,LCH,ATN    A44146
000791 F1F0F21080080900             527+         DC    CL3'102',XL4'10800809',F'0' UA,DEVTYPE,RQE,SNSE 20201
00079C 06005D58                     528+         DC    X'06',AL3(UCBW43) MASK,SENSE PTR            20202
0007A0 00005D60                     529+         DC    A(UCBW43+8) WORK AREA PTR             20202

                                    531          AGO   .UCB44      TO NEXT UCB
                                    532 .UCB44 ANOP
                                    533   IECIUCB 44,103,WR,32,06,44,1,,10800809,8,0,0,0,,0,0,0,103,0
0007A4 0008FF                       534+UCB44    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0007A7 80                           535+         DC    X'80' STAT 'A'                  20201
0007A8 0103002006                   536+         DC    X'0103',AL2(32),XL1'06' FLGS,UA,DEV,ERR
0007AD 2C012000                     537+         DC    AL1(44),AL1(1),XL2'2000' STAT,LCH,ATN    A44146
0007B1 F1F0F31080080900             538+         DC    CL3'103',XL4'10800809',F'0' UA,DEVTYPE,RQE,SNSE 20201
0007BC 06005D70                     539+         DC    X'06',AL3(UCBW44) MASK,SENSE PTR            20202
0007C0 00005D78                     540+         DC    A(UCBW44+8) WORK AREA PTR             20202

                                    542          AGO   .UCB45      TO NEXT UCB
                                    543 .UCB45 ANOP
                                    544   IECIUCB 45,10C,UR,0,0D,45,1,,10000801,0,0,0,0,,0,0,0,10C,0
0007C4 0000FF                       545+UCB45    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0007C7 80                           546+         DC    X'80' STAT 'A'                  20201
0007C8 010C00000D                   547+         DC    X'010C',AL2(0),XL1'0D' FLGS,UA,DEV,ERR
0007CD 2D010000                     548+         DC    AL1(45),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
0007D1 F1F0C31000080100             549+         DC    CL3'10C',XL4'10000801',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    551          AGO   .UCB46      TO NEXT UCB
                                    552 .UCB46 ANOP
                                    553   IECIUCB 46,10D,UR,0,0D,46,1,,10000802,0,0,0,0,,0,0,0,10D,0
0007DC 0000FF                       554+UCB46    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0007DF 80                           555+         DC    X'80' STAT 'A'                  20201
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0007E0 010D00000D                   556+         DC    X'010D',AL2(0),XL1'0D' FLGS,UA,DEV,ERR
0007E5 2E010000                     557+         DC    AL1(46),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
0007E9 F1F0C41000080200             558+         DC    CL3'10D',XL4'10000802',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    560          AGO   .UCB47      TO NEXT UCB
                                    561 .UCB47 ANOP
                                    562   IECIUCB 47,10E,UR,0,07,47,1,,10800808,8,0,0,0,,0,0,0,10E,0
0007F4 0008FF                       563+UCB47    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0007F7 80                           564+         DC    X'80' STAT 'A'                  20201
0007F8 010E000007                   565+         DC    X'010E',AL2(0),XL1'07' FLGS,UA,DEV,ERR
0007FD 2F010000                     566+         DC    AL1(47),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000801 F1F0C51080080800             567+         DC    CL3'10E',XL4'10800808',F'0' UA,DEVTYPE,RQE,SNSE 20201
00080C 0200080A                     568+         DC    X'02',AL3(UCB47+22) COUNT,SENSE AREA PTR      20202
000810 00005D88                     569+         DC    A(UCBW47) UR WORK AREA POINTER      19017

                                    571          AGO   .UCB48      TO NEXT UCB
                                    572 .UCB48 ANOP
                                    573   IECIUCB 48,10F,UR,0,07,48,1,,10800808,8,0,0,0,,0,0,0,10F,0
000814 0008FF                       574+UCB48    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000817 80                           575+         DC    X'80' STAT 'A'                  20201
000818 010F000007                   576+         DC    X'010F',AL2(0),XL1'07' FLGS,UA,DEV,ERR
00081D 30010000                     577+         DC    AL1(48),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000821 F1F0C61080080800             578+         DC    CL3'10F',XL4'10800808',F'0' UA,DEVTYPE,RQE,SNSE 20201
00082C 0200082A                     579+         DC    X'02',AL3(UCB48+22) COUNT,SENSE AREA PTR      20202
000830 00005D90                     580+         DC    A(UCBW48) UR WORK AREA POINTER      19017

                                    582          AGO   .UCB49      TO NEXT UCB
                                    583 .UCB49 ANOP
                                    584   IECIUCB 49,11E,UR,0,07,49,1,,10000808,0,0,0,0,,0,0,0,11E,0
000834 0000FF                       585+UCB49    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000837 80                           586+         DC    X'80' STAT 'A'                  20201
000838 011E000007                   587+         DC    X'011E',AL2(0),XL1'07' FLGS,UA,DEV,ERR
00083D 31010000                     588+         DC    AL1(49),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000841 F1F1C51000080800             589+         DC    CL3'11E',XL4'10000808',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    591          AGO   .UCB50      TO NEXT UCB
                                    592 .UCB50 ANOP
                                    593   IECIUCB 50,11F,UR,0,07,50,1,,10000808,0,0,0,0,,0,0,0,11F,0
00084C 0000FF                       594+UCB50    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00084F 80                           595+         DC    X'80' STAT 'A'                  20201
000850 011F000007                   596+         DC    X'011F',AL2(0),XL1'07' FLGS,UA,DEV,ERR
000855 32010000                     597+         DC    AL1(50),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000859 F1F1C61000080800             598+         DC    CL3'11F',XL4'10000808',F'0' UA,DEVTYPE,RQE,SNSE 20201

                                    600          AGO   .UCB51      TO NEXT UCB
                                    601 .UCB51 ANOP
                                    602   IECIUCB 51,120,DA,40,01,51,1,,30002001,0,0,0,0,,0,0,0,120,0
000864 0000FF                       603+UCB51    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000867 80                           604+         DC    X'80' STAT 'A'                  20201
000868 0120002801                   605+         DC    X'0120',AL2(40),XL1'01' FLGS,UA,DEV,ERR
00086D 33010000                     606+         DC    AL1(51),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000871 F1F2F03000200100             607+         DC    CL3'120',XL4'30002001',F'0' UA,DEVTYPE,RQE,SNSE 20201
00087C 00000000                     608+         DC    F'0' SENSE                     20201
000880 0000000000000000             609+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    610+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000892 0000000000000000             611+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    612+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0008A0 00005D40                     613+         DC    A(UCBW51-104) ERP WORK AREA ADDRESS

                                    615          AGO   .UCB52      TO NEXT UCB
                                    616 .UCB52 ANOP
                                    617   IECIUCB 52,121,DA,40,01,52,1,,30002001,0,0,0,0,,0,0,0,121,0
0008A4 0000FF                       618+UCB52    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0008A7 80                           619+         DC    X'80' STAT 'A'                  20201
0008A8 0121002801                   620+         DC    X'0121',AL2(40),XL1'01' FLGS,UA,DEV,ERR
0008AD 34010000                     621+         DC    AL1(52),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
0008B1 F1F2F13000200100             622+         DC    CL3'121',XL4'30002001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0008BC 00000000                     623+         DC    F'0' SENSE                     20201
0008C0 0000000000000000             624+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    625+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
0008D2 0000000000000000             626+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    627+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0008E0 00005D68                     628+         DC    A(UCBW52-104) ERP WORK AREA ADDRESS

                                    630          AGO   .UCB53      TO NEXT UCB
                                    631 .UCB53 ANOP
                                    632   IECIUCB 53,122,DA,40,01,53,1,,30002001,0,0,0,0,,0,0,0,122,0
0008E4 0000FF                       633+UCB53    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0008E7 80                           634+         DC    X'80' STAT 'A'                  20201
0008E8 0122002801                   635+         DC    X'0122',AL2(40),XL1'01' FLGS,UA,DEV,ERR
0008ED 35010000                     636+         DC    AL1(53),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
0008F1 F1F2F23000200100             637+         DC    CL3'122',XL4'30002001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0008FC 00000000                     638+         DC    F'0' SENSE                     20201
000900 0000000000000000             639+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    640+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000912 0000000000000000             641+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    642+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000920 00005D90                     643+         DC    A(UCBW53-104) ERP WORK AREA ADDRESS

                                    645          AGO   .UCB54      TO NEXT UCB
                                    646 .UCB54 ANOP
                                    647   IECIUCB 54,123,DA,40,01,54,1,,30002001,0,0,0,0,,0,0,0,123,0
000924 0000FF                       648+UCB54    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000927 80                           649+         DC    X'80' STAT 'A'                  20201
000928 0123002801                   650+         DC    X'0123',AL2(40),XL1'01' FLGS,UA,DEV,ERR
00092D 36010000                     651+         DC    AL1(54),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000931 F1F2F33000200100             652+         DC    CL3'123',XL4'30002001',F'0' UA,DEVTYPE,RQE,SNSE 20201
00093C 00000000                     653+         DC    F'0' SENSE                     20201
000940 0000000000000000             654+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    655+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000952 0000000000000000             656+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    657+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000960 00005DB8                     658+         DC    A(UCBW54-104) ERP WORK AREA ADDRESS

                                    660          AGO   .UCB55      TO NEXT UCB
                                    661 .UCB55 ANOP
                                    662   IECIUCB 55,124,DA,40,01,55,1,,30002001,0,0,0,0,,0,0,0,124,0
000964 0000FF                       663+UCB55    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000967 80                           664+         DC    X'80' STAT 'A'                  20201
000968 0124002801                   665+         DC    X'0124',AL2(40),XL1'01' FLGS,UA,DEV,ERR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00096D 37010000                     666+         DC    AL1(55),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000971 F1F2F43000200100             667+         DC    CL3'124',XL4'30002001',F'0' UA,DEVTYPE,RQE,SNSE 20201
00097C 00000000                     668+         DC    F'0' SENSE                     20201
000980 0000000000000000             669+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    670+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000992 0000000000000000             671+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    672+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0009A0 00005DE0                     673+         DC    A(UCBW55-104) ERP WORK AREA ADDRESS

                                    675          AGO   .UCB56      TO NEXT UCB
                                    676 .UCB56 ANOP
                                    677   IECIUCB 56,125,DA,40,01,56,1,,30002001,0,0,0,0,,0,0,0,125,0
0009A4 0000FF                       678+UCB56    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0009A7 80                           679+         DC    X'80' STAT 'A'                  20201
0009A8 0125002801                   680+         DC    X'0125',AL2(40),XL1'01' FLGS,UA,DEV,ERR
0009AD 38010000                     681+         DC    AL1(56),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
0009B1 F1F2F53000200100             682+         DC    CL3'125',XL4'30002001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0009BC 00000000                     683+         DC    F'0' SENSE                     20201
0009C0 0000000000000000             684+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    685+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
0009D2 0000000000000000             686+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    687+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0009E0 00005E08                     688+         DC    A(UCBW56-104) ERP WORK AREA ADDRESS

                                    690          AGO   .UCB57      TO NEXT UCB
                                    691 .UCB57 ANOP
                                    692   IECIUCB 57,126,DA,40,01,57,1,,30002001,0,0,0,0,,0,0,0,126,0
0009E4 0000FF                       693+UCB57    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0009E7 80                           694+         DC    X'80' STAT 'A'                  20201
0009E8 0126002801                   695+         DC    X'0126',AL2(40),XL1'01' FLGS,UA,DEV,ERR
0009ED 39010000                     696+         DC    AL1(57),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
0009F1 F1F2F63000200100             697+         DC    CL3'126',XL4'30002001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0009FC 00000000                     698+         DC    F'0' SENSE                     20201
000A00 0000000000000000             699+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    700+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000A12 0000000000000000             701+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    702+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000A20 00005E30                     703+         DC    A(UCBW57-104) ERP WORK AREA ADDRESS

                                    705          AGO   .UCB58      TO NEXT UCB
                                    706 .UCB58 ANOP
                                    707   IECIUCB 58,127,DA,40,01,58,1,,30002001,0,0,0,0,,0,0,0,127,0
000A24 0000FF                       708+UCB58    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000A27 80                           709+         DC    X'80' STAT 'A'                  20201
000A28 0127002801                   710+         DC    X'0127',AL2(40),XL1'01' FLGS,UA,DEV,ERR
000A2D 3A010000                     711+         DC    AL1(58),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000A31 F1F2F73000200100             712+         DC    CL3'127',XL4'30002001',F'0' UA,DEVTYPE,RQE,SNSE 20201
000A3C 00000000                     713+         DC    F'0' SENSE                     20201
000A40 0000000000000000             714+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    715+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000A52 0000000000000000             716+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    717+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000A60 00005E58                     718+         DC    A(UCBW58-104) ERP WORK AREA ADDRESS

                                    720          AGO   .UCB59      TO NEXT UCB
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    721 .UCB59 ANOP
                                    722   IECIUCB 59,130,DA,40,01,59,1,,30C02008,0,0,0,0,,0,0,0,130,0
000A64 0000FF                       723+UCB59    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000A67 80                           724+         DC    X'80' STAT 'A'                  20201
000A68 0130002801                   725+         DC    X'0130',AL2(40),XL1'01' FLGS,UA,DEV,ERR
000A6D 3B010000                     726+         DC    AL1(59),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000A71 F1F3F030C0200800             727+         DC    CL3'130',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
000A7C 00000000                     728+         DC    F'0' SENSE                     20201
000A80 0000000000000000             729+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    730+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000A92 0000000000000000             731+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    732+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000AA0 00005E80                     733+         DC    A(UCBW59-104) ERP WORK AREA ADDRESS

                                    735          AGO   .UCB60      TO NEXT UCB
                                    736 .UCB60 ANOP
                                    737   IECIUCB 60,131,DA,40,01,59,1,,30C02008,0,0,0,0,,0,0,0,131,0
000AA4 0000FF                       738+UCB60    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000AA7 80                           739+         DC    X'80' STAT 'A'                  20201
000AA8 0131002801                   740+         DC    X'0131',AL2(40),XL1'01' FLGS,UA,DEV,ERR
000AAD 3B010000                     741+         DC    AL1(59),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000AB1 F1F3F130C0200800             742+         DC    CL3'131',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
000ABC 00000000                     743+         DC    F'0' SENSE                     20201
000AC0 0000000000000000             744+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    745+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000AD2 0000000000000000             746+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    747+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000AE0 00005ED0                     748+         DC    A(UCBW60-104) ERP WORK AREA ADDRESS

                                    750          AGO   .UCB61      TO NEXT UCB
                                    751 .UCB61 ANOP
                                    752   IECIUCB 61,132,DA,40,01,59,1,,30C02008,0,0,0,0,,0,0,0,132,0
000AE4 0000FF                       753+UCB61    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000AE7 80                           754+         DC    X'80' STAT 'A'                  20201
000AE8 0132002801                   755+         DC    X'0132',AL2(40),XL1'01' FLGS,UA,DEV,ERR
000AED 3B010000                     756+         DC    AL1(59),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000AF1 F1F3F230C0200800             757+         DC    CL3'132',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
000AFC 00000000                     758+         DC    F'0' SENSE                     20201
000B00 0000000000000000             759+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    760+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000B12 0000000000000000             761+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    762+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000B20 00005F20                     763+         DC    A(UCBW61-104) ERP WORK AREA ADDRESS

                                    765          AGO   .UCB62      TO NEXT UCB
                                    766 .UCB62 ANOP
                                    767   IECIUCB 62,133,DA,40,01,59,1,,30C02008,0,0,0,0,,0,0,0,133,0
000B24 0000FF                       768+UCB62    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000B27 80                           769+         DC    X'80' STAT 'A'                  20201
000B28 0133002801                   770+         DC    X'0133',AL2(40),XL1'01' FLGS,UA,DEV,ERR
000B2D 3B010000                     771+         DC    AL1(59),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000B31 F1F3F330C0200800             772+         DC    CL3'133',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
000B3C 00000000                     773+         DC    F'0' SENSE                     20201
000B40 0000000000000000             774+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    775+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000B52 0000000000000000             776+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    777+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000B60 00005F70                     778+         DC    A(UCBW62-104) ERP WORK AREA ADDRESS

                                    780          AGO   .UCB63      TO NEXT UCB
                                    781 .UCB63 ANOP
                                    782   IECIUCB 63,134,DA,40,01,59,1,,30C02008,0,0,0,0,,0,0,0,134,0
000B64 0000FF                       783+UCB63    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000B67 80                           784+         DC    X'80' STAT 'A'                  20201
000B68 0134002801                   785+         DC    X'0134',AL2(40),XL1'01' FLGS,UA,DEV,ERR
000B6D 3B010000                     786+         DC    AL1(59),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000B71 F1F3F430C0200800             787+         DC    CL3'134',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
000B7C 00000000                     788+         DC    F'0' SENSE                     20201
000B80 0000000000000000             789+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    790+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000B92 0000000000000000             791+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    792+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000BA0 00005FC0                     793+         DC    A(UCBW63-104) ERP WORK AREA ADDRESS

                                    795          AGO   .UCB64      TO NEXT UCB
                                    796 .UCB64 ANOP
                                    797   IECIUCB 64,135,DA,40,01,59,1,,30C02008,0,0,0,0,,0,0,0,135,0
000BA4 0000FF                       798+UCB64    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000BA7 80                           799+         DC    X'80' STAT 'A'                  20201
000BA8 0135002801                   800+         DC    X'0135',AL2(40),XL1'01' FLGS,UA,DEV,ERR
000BAD 3B010000                     801+         DC    AL1(59),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000BB1 F1F3F530C0200800             802+         DC    CL3'135',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
000BBC 00000000                     803+         DC    F'0' SENSE                     20201
000BC0 0000000000000000             804+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    805+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000BD2 0000000000000000             806+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    807+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000BE0 00006010                     808+         DC    A(UCBW64-104) ERP WORK AREA ADDRESS

                                    810          AGO   .UCB65      TO NEXT UCB
                                    811 .UCB65 ANOP
                                    812   IECIUCB 65,136,DA,40,01,59,1,,30C02008,0,0,0,0,,0,0,0,136,0
000BE4 0000FF                       813+UCB65    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000BE7 80                           814+         DC    X'80' STAT 'A'                  20201
000BE8 0136002801                   815+         DC    X'0136',AL2(40),XL1'01' FLGS,UA,DEV,ERR
000BED 3B010000                     816+         DC    AL1(59),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000BF1 F1F3F630C0200800             817+         DC    CL3'136',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
000BFC 00000000                     818+         DC    F'0' SENSE                     20201
000C00 0000000000000000             819+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    820+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000C12 0000000000000000             821+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    822+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000C20 00006060                     823+         DC    A(UCBW65-104) ERP WORK AREA ADDRESS

                                    825          AGO   .UCB66      TO NEXT UCB
                                    826 .UCB66 ANOP
                                    827   IECIUCB 66,137,DA,40,01,59,1,,30C02008,0,0,0,0,,0,0,0,137,0
000C24 0000FF                       828+UCB66    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
000C27 80                           829+         DC    X'80' STAT 'A'                  20201
000C28 0137002801                   830+         DC    X'0137',AL2(40),XL1'01' FLGS,UA,DEV,ERR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000C2D 3B010000                     831+         DC    AL1(59),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000C31 F1F3F730C0200800             832+         DC    CL3'137',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
000C3C 00000000                     833+         DC    F'0' SENSE                     20201
000C40 0000000000000000             834+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    835+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000C52 0000000000000000             836+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    837+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000C60 000060B0                     838+         DC    A(UCBW66-104) ERP WORK AREA ADDRESS

                                    840          AGO   .UCB67      TO NEXT UCB
                                    841 .UCB67 ANOP
                                    842   IECIUCB 67,150,ML,48,01,68,1,,30502009,8,0,0,0,,0,0,0,150,0
000C64 0008FF                       843+UCB67    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000C67 80                           844+         DC    X'80' STAT 'A'                  20201
000C68 0150003001                   845+         DC    X'0150',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000C6D 44010000                     846+         DC    AL1(68),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000C71 F1F5F03050200900             847+         DC    CL3'150',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000C7C 18006168                     848+         DC    X'18',AL3(UCBS67) MASK & SENSE PTR          20201
000C80 0000000000000000             849+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    850+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000C92 0000000000000000             851+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    852+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000CA0 00006130                     853+         DC    A(UCBW67-104) ERP WORK AREA ADDRESS

                                    855          AGO   .UCB68      TO NEXT UCB
                                    856 .UCB68 ANOP
                                    857   IECIUCB 68,151,ML,48,01,68,1,,30502009,8,0,0,0,,0,0,0,151,0
000CA4 0008FF                       858+UCB68    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000CA7 80                           859+         DC    X'80' STAT 'A'                  20201
000CA8 0151003001                   860+         DC    X'0151',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000CAD 44010000                     861+         DC    AL1(68),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000CB1 F1F5F13050200900             862+         DC    CL3'151',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000CBC 18006210                     863+         DC    X'18',AL3(UCBS68) MASK & SENSE PTR          20201
000CC0 0000000000000000             864+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    865+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000CD2 0000000000000000             866+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    867+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000CE0 000061D8                     868+         DC    A(UCBW68-104) ERP WORK AREA ADDRESS

                                    870          AGO   .UCB69      TO NEXT UCB
                                    871 .UCB69 ANOP
                                    872   IECIUCB 69,152,ML,48,01,68,1,,30502009,8,0,0,0,,0,0,0,152,0
000CE4 0008FF                       873+UCB69    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000CE7 80                           874+         DC    X'80' STAT 'A'                  20201
000CE8 0152003001                   875+         DC    X'0152',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000CED 44010000                     876+         DC    AL1(68),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000CF1 F1F5F23050200900             877+         DC    CL3'152',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000CFC 180062B8                     878+         DC    X'18',AL3(UCBS69) MASK & SENSE PTR          20201
000D00 0000000000000000             879+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    880+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000D12 0000000000000000             881+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    882+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000D20 00006280                     883+         DC    A(UCBW69-104) ERP WORK AREA ADDRESS

                                    885          AGO   .UCB70      TO NEXT UCB
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    886 .UCB70 ANOP
                                    887   IECIUCB 70,153,ML,48,01,68,1,,30502009,8,0,0,0,,0,0,0,153,0
000D24 0008FF                       888+UCB70    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000D27 80                           889+         DC    X'80' STAT 'A'                  20201
000D28 0153003001                   890+         DC    X'0153',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000D2D 44010000                     891+         DC    AL1(68),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000D31 F1F5F33050200900             892+         DC    CL3'153',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000D3C 18006360                     893+         DC    X'18',AL3(UCBS70) MASK & SENSE PTR          20201
000D40 0000000000000000             894+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    895+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000D52 0000000000000000             896+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    897+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000D60 00006328                     898+         DC    A(UCBW70-104) ERP WORK AREA ADDRESS

                                    900          AGO   .UCB71      TO NEXT UCB
                                    901 .UCB71 ANOP
                                    902   IECIUCB 71,154,ML,48,01,68,1,,30502009,8,0,0,0,,0,0,0,154,0
000D64 0008FF                       903+UCB71    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000D67 80                           904+         DC    X'80' STAT 'A'                  20201
000D68 0154003001                   905+         DC    X'0154',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000D6D 44010000                     906+         DC    AL1(68),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000D71 F1F5F43050200900             907+         DC    CL3'154',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000D7C 18006408                     908+         DC    X'18',AL3(UCBS71) MASK & SENSE PTR          20201
000D80 0000000000000000             909+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    910+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000D92 0000000000000000             911+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    912+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000DA0 000063D0                     913+         DC    A(UCBW71-104) ERP WORK AREA ADDRESS

                                    915          AGO   .UCB72      TO NEXT UCB
                                    916 .UCB72 ANOP
                                    917   IECIUCB 72,155,ML,48,01,68,1,,30502009,8,0,0,0,,0,0,0,155,0
000DA4 0008FF                       918+UCB72    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000DA7 80                           919+         DC    X'80' STAT 'A'                  20201
000DA8 0155003001                   920+         DC    X'0155',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000DAD 44010000                     921+         DC    AL1(68),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000DB1 F1F5F53050200900             922+         DC    CL3'155',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000DBC 180064B0                     923+         DC    X'18',AL3(UCBS72) MASK & SENSE PTR          20201
000DC0 0000000000000000             924+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    925+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000DD2 0000000000000000             926+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    927+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000DE0 00006478                     928+         DC    A(UCBW72-104) ERP WORK AREA ADDRESS

                                    930          AGO   .UCB73      TO NEXT UCB
                                    931 .UCB73 ANOP
                                    932   IECIUCB 73,156,ML,48,01,68,1,,30502009,8,0,0,0,,0,0,0,156,0
000DE4 0008FF                       933+UCB73    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000DE7 80                           934+         DC    X'80' STAT 'A'                  20201
000DE8 0156003001                   935+         DC    X'0156',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000DED 44010000                     936+         DC    AL1(68),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000DF1 F1F5F63050200900             937+         DC    CL3'156',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000DFC 18006558                     938+         DC    X'18',AL3(UCBS73) MASK & SENSE PTR          20201
000E00 0000000000000000             939+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    940+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000E12 0000000000000000             941+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    942+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000E20 00006520                     943+         DC    A(UCBW73-104) ERP WORK AREA ADDRESS

                                    945          AGO   .UCB74      TO NEXT UCB
                                    946 .UCB74 ANOP
                                    947   IECIUCB 74,157,ML,48,01,68,1,,30502009,8,0,0,0,,0,0,0,157,0
000E24 0008FF                       948+UCB74    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000E27 80                           949+         DC    X'80' STAT 'A'                  20201
000E28 0157003001                   950+         DC    X'0157',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000E2D 44010000                     951+         DC    AL1(68),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000E31 F1F5F73050200900             952+         DC    CL3'157',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000E3C 18006600                     953+         DC    X'18',AL3(UCBS74) MASK & SENSE PTR          20201
000E40 0000000000000000             954+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    955+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000E52 0000000000000000             956+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    957+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000E60 000065C8                     958+         DC    A(UCBW74-104) ERP WORK AREA ADDRESS

                                    960          AGO   .UCB75      TO NEXT UCB
                                    961 .UCB75 ANOP
                                    962   IECIUCB 75,158,ML,48,01,69,1,,30502009,8,0,0,0,,0,0,0,158,0
000E64 0008FF                       963+UCB75    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000E67 80                           964+         DC    X'80' STAT 'A'                  20201
000E68 0158003001                   965+         DC    X'0158',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000E6D 45010000                     966+         DC    AL1(69),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000E71 F1F5F83050200900             967+         DC    CL3'158',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000E7C 180066A8                     968+         DC    X'18',AL3(UCBS75) MASK & SENSE PTR          20201
000E80 0000000000000000             969+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    970+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000E92 0000000000000000             971+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    972+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000EA0 00006670                     973+         DC    A(UCBW75-104) ERP WORK AREA ADDRESS

                                    975          AGO   .UCB76      TO NEXT UCB
                                    976 .UCB76 ANOP
                                    977   IECIUCB 76,159,ML,48,01,69,1,,30502009,8,0,0,0,,0,0,0,159,0
000EA4 0008FF                       978+UCB76    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000EA7 80                           979+         DC    X'80' STAT 'A'                  20201
000EA8 0159003001                   980+         DC    X'0159',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000EAD 45010000                     981+         DC    AL1(69),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000EB1 F1F5F93050200900             982+         DC    CL3'159',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000EBC 18006750                     983+         DC    X'18',AL3(UCBS76) MASK & SENSE PTR          20201
000EC0 0000000000000000             984+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                    985+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000ED2 0000000000000000             986+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                    987+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000EE0 00006718                     988+         DC    A(UCBW76-104) ERP WORK AREA ADDRESS

                                    990          AGO   .UCB77      TO NEXT UCB
                                    991 .UCB77 ANOP
                                    992   IECIUCB 77,15A,ML,48,01,69,1,,30502009,8,0,0,0,,0,0,0,15A,0
000EE4 0008FF                       993+UCB77    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000EE7 80                           994+         DC    X'80' STAT 'A'                  20201
000EE8 015A003001                   995+         DC    X'015A',AL2(48),XL1'01' FLGS,UA,DEV,ERR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000EED 45010000                     996+         DC    AL1(69),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000EF1 F1F5C13050200900             997+         DC    CL3'15A',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000EFC 180067F8                     998+         DC    X'18',AL3(UCBS77) MASK & SENSE PTR          20201
000F00 0000000000000000             999+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1000+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000F12 0000000000000000            1001+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1002+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000F20 000067C0                    1003+         DC    A(UCBW77-104) ERP WORK AREA ADDRESS

                                   1005          AGO   .UCB78      TO NEXT UCB
                                   1006 .UCB78 ANOP
                                   1007   IECIUCB 78,15B,ML,48,01,69,1,,30502009,8,0,0,0,,0,0,0,15B,0
000F24 0008FF                      1008+UCB78    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000F27 80                          1009+         DC    X'80' STAT 'A'                  20201
000F28 015B003001                  1010+         DC    X'015B',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000F2D 45010000                    1011+         DC    AL1(69),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000F31 F1F5C23050200900            1012+         DC    CL3'15B',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000F3C 180068A0                    1013+         DC    X'18',AL3(UCBS78) MASK & SENSE PTR          20201
000F40 0000000000000000            1014+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1015+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000F52 0000000000000000            1016+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1017+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000F60 00006868                    1018+         DC    A(UCBW78-104) ERP WORK AREA ADDRESS

                                   1020          AGO   .UCB79      TO NEXT UCB
                                   1021 .UCB79 ANOP
                                   1022   IECIUCB 79,15C,ML,48,01,69,1,,30502009,8,0,0,0,,0,0,0,15C,0
000F64 0008FF                      1023+UCB79    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000F67 80                          1024+         DC    X'80' STAT 'A'                  20201
000F68 015C003001                  1025+         DC    X'015C',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000F6D 45010000                    1026+         DC    AL1(69),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000F71 F1F5C33050200900            1027+         DC    CL3'15C',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000F7C 18006948                    1028+         DC    X'18',AL3(UCBS79) MASK & SENSE PTR          20201
000F80 0000000000000000            1029+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1030+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000F92 0000000000000000            1031+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1032+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000FA0 00006910                    1033+         DC    A(UCBW79-104) ERP WORK AREA ADDRESS

                                   1035          AGO   .UCB80      TO NEXT UCB
                                   1036 .UCB80 ANOP
                                   1037   IECIUCB 80,15D,ML,48,01,69,1,,30502009,8,0,0,0,,0,0,0,15D,0
000FA4 0008FF                      1038+UCB80    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000FA7 80                          1039+         DC    X'80' STAT 'A'                  20201
000FA8 015D003001                  1040+         DC    X'015D',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000FAD 45010000                    1041+         DC    AL1(69),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000FB1 F1F5C43050200900            1042+         DC    CL3'15D',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000FBC 180069F0                    1043+         DC    X'18',AL3(UCBS80) MASK & SENSE PTR          20201
000FC0 0000000000000000            1044+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1045+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
000FD2 0000000000000000            1046+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1047+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
000FE0 000069B8                    1048+         DC    A(UCBW80-104) ERP WORK AREA ADDRESS

                                   1050          AGO   .UCB81      TO NEXT UCB
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1051 .UCB81 ANOP
                                   1052   IECIUCB 81,15E,ML,48,01,69,1,,30502009,8,0,0,0,,0,0,0,15E,0
000FE4 0008FF                      1053+UCB81    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
000FE7 80                          1054+         DC    X'80' STAT 'A'                  20201
000FE8 015E003001                  1055+         DC    X'015E',AL2(48),XL1'01' FLGS,UA,DEV,ERR
000FED 45010000                    1056+         DC    AL1(69),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
000FF1 F1F5C53050200900            1057+         DC    CL3'15E',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
000FFC 18006A98                    1058+         DC    X'18',AL3(UCBS81) MASK & SENSE PTR          20201
001000 0000000000000000            1059+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1060+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001012 0000000000000000            1061+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1062+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001020 00006A60                    1063+         DC    A(UCBW81-104) ERP WORK AREA ADDRESS

                                   1065          AGO   .UCB82      TO NEXT UCB
                                   1066 .UCB82 ANOP
                                   1067   IECIUCB 82,15F,ML,48,01,69,1,,30502009,8,0,0,0,,0,0,0,15F,0
001024 0008FF                      1068+UCB82    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001027 80                          1069+         DC    X'80' STAT 'A'                  20201
001028 015F003001                  1070+         DC    X'015F',AL2(48),XL1'01' FLGS,UA,DEV,ERR
00102D 45010000                    1071+         DC    AL1(69),AL1(1),XL2'0' STAT,LCH,ATN,CHNMSK
001031 F1F5C63050200900            1072+         DC    CL3'15F',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00103C 18006B40                    1073+         DC    X'18',AL3(UCBS82) MASK & SENSE PTR          20201
001040 0000000000000000            1074+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1075+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001052 0000000000000000            1076+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1077+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001060 00006B08                    1078+         DC    A(UCBW82-104) ERP WORK AREA ADDRESS

                                   1080          AGO   .UCB83      TO NEXT UCB
                                   1081 .UCB83 ANOP
                                   1082   IECIUCB 83,230,DA,40,01,70,2,,30C02008,0,0,0,0,,0,0,0,230,0
001064 0000FF                      1083+UCB83    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001067 80                          1084+         DC    X'80' STAT 'A'                  20201
001068 0230002801                  1085+         DC    X'0230',AL2(40),XL1'01' FLGS,UA,DEV,ERR
00106D 46020000                    1086+         DC    AL1(70),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
001071 F2F3F030C0200800            1087+         DC    CL3'230',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
00107C 00000000                    1088+         DC    F'0' SENSE                     20201
001080 0000000000000000            1089+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1090+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001092 0000000000000000            1091+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1092+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0010A0 00006B80                    1093+         DC    A(UCBW83-104) ERP WORK AREA ADDRESS

                                   1095          AGO   .UCB84      TO NEXT UCB
                                   1096 .UCB84 ANOP
                                   1097   IECIUCB 84,231,DA,40,01,70,2,,30C02008,0,0,0,0,,0,0,0,231,0
0010A4 0000FF                      1098+UCB84    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0010A7 80                          1099+         DC    X'80' STAT 'A'                  20201
0010A8 0231002801                  1100+         DC    X'0231',AL2(40),XL1'01' FLGS,UA,DEV,ERR
0010AD 46020000                    1101+         DC    AL1(70),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
0010B1 F2F3F130C0200800            1102+         DC    CL3'231',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
0010BC 00000000                    1103+         DC    F'0' SENSE                     20201
0010C0 0000000000000000            1104+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1105+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0010D2 0000000000000000            1106+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1107+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0010E0 00006BD0                    1108+         DC    A(UCBW84-104) ERP WORK AREA ADDRESS

                                   1110          AGO   .UCB85      TO NEXT UCB
                                   1111 .UCB85 ANOP
                                   1112   IECIUCB 85,232,DA,40,01,70,2,,30C02008,0,0,0,0,,0,0,0,232,0
0010E4 0000FF                      1113+UCB85    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0010E7 80                          1114+         DC    X'80' STAT 'A'                  20201
0010E8 0232002801                  1115+         DC    X'0232',AL2(40),XL1'01' FLGS,UA,DEV,ERR
0010ED 46020000                    1116+         DC    AL1(70),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
0010F1 F2F3F230C0200800            1117+         DC    CL3'232',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
0010FC 00000000                    1118+         DC    F'0' SENSE                     20201
001100 0000000000000000            1119+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1120+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001112 0000000000000000            1121+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1122+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001120 00006C20                    1123+         DC    A(UCBW85-104) ERP WORK AREA ADDRESS

                                   1125          AGO   .UCB86      TO NEXT UCB
                                   1126 .UCB86 ANOP
                                   1127   IECIUCB 86,233,DA,40,01,70,2,,30C02008,0,0,0,0,,0,0,0,233,0
001124 0000FF                      1128+UCB86    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001127 80                          1129+         DC    X'80' STAT 'A'                  20201
001128 0233002801                  1130+         DC    X'0233',AL2(40),XL1'01' FLGS,UA,DEV,ERR
00112D 46020000                    1131+         DC    AL1(70),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
001131 F2F3F330C0200800            1132+         DC    CL3'233',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
00113C 00000000                    1133+         DC    F'0' SENSE                     20201
001140 0000000000000000            1134+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1135+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001152 0000000000000000            1136+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1137+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001160 00006C70                    1138+         DC    A(UCBW86-104) ERP WORK AREA ADDRESS

                                   1140          AGO   .UCB87      TO NEXT UCB
                                   1141 .UCB87 ANOP
                                   1142   IECIUCB 87,234,DA,40,01,70,2,,30C02008,0,0,0,0,,0,0,0,234,0
001164 0000FF                      1143+UCB87    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001167 80                          1144+         DC    X'80' STAT 'A'                  20201
001168 0234002801                  1145+         DC    X'0234',AL2(40),XL1'01' FLGS,UA,DEV,ERR
00116D 46020000                    1146+         DC    AL1(70),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
001171 F2F3F430C0200800            1147+         DC    CL3'234',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
00117C 00000000                    1148+         DC    F'0' SENSE                     20201
001180 0000000000000000            1149+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1150+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001192 0000000000000000            1151+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1152+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0011A0 00006CC0                    1153+         DC    A(UCBW87-104) ERP WORK AREA ADDRESS

                                   1155          AGO   .UCB88      TO NEXT UCB
                                   1156 .UCB88 ANOP
                                   1157   IECIUCB 88,235,DA,40,01,70,2,,30C02008,0,0,0,0,,0,0,0,235,0
0011A4 0000FF                      1158+UCB88    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0011A7 80                          1159+         DC    X'80' STAT 'A'                  20201
0011A8 0235002801                  1160+         DC    X'0235',AL2(40),XL1'01' FLGS,UA,DEV,ERR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0011AD 46020000                    1161+         DC    AL1(70),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
0011B1 F2F3F530C0200800            1162+         DC    CL3'235',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
0011BC 00000000                    1163+         DC    F'0' SENSE                     20201
0011C0 0000000000000000            1164+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1165+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
0011D2 0000000000000000            1166+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1167+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0011E0 00006D10                    1168+         DC    A(UCBW88-104) ERP WORK AREA ADDRESS

                                   1170          AGO   .UCB89      TO NEXT UCB
                                   1171 .UCB89 ANOP
                                   1172   IECIUCB 89,236,DA,40,01,70,2,,30C02008,0,0,0,0,,0,0,0,236,0
0011E4 0000FF                      1173+UCB89    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0011E7 80                          1174+         DC    X'80' STAT 'A'                  20201
0011E8 0236002801                  1175+         DC    X'0236',AL2(40),XL1'01' FLGS,UA,DEV,ERR
0011ED 46020000                    1176+         DC    AL1(70),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
0011F1 F2F3F630C0200800            1177+         DC    CL3'236',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
0011FC 00000000                    1178+         DC    F'0' SENSE                     20201
001200 0000000000000000            1179+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1180+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001212 0000000000000000            1181+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1182+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001220 00006D60                    1183+         DC    A(UCBW89-104) ERP WORK AREA ADDRESS

                                   1185          AGO   .UCB90      TO NEXT UCB
                                   1186 .UCB90 ANOP
                                   1187   IECIUCB 90,237,DA,40,01,70,2,,30C02008,0,0,0,0,,0,0,0,237,0
001224 0000FF                      1188+UCB90    DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001227 80                          1189+         DC    X'80' STAT 'A'                  20201
001228 0237002801                  1190+         DC    X'0237',AL2(40),XL1'01' FLGS,UA,DEV,ERR
00122D 46020000                    1191+         DC    AL1(70),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
001231 F2F3F730C0200800            1192+         DC    CL3'237',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
00123C 00000000                    1193+         DC    F'0' SENSE                     20201
001240 0000000000000000            1194+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1195+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001252 0000000000000000            1196+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1197+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001260 00006DB0                    1198+         DC    A(UCBW90-104) ERP WORK AREA ADDRESS

                                   1200          AGO   .UCB91      TO NEXT UCB
                                   1201 .UCB91 ANOP
                                   1202   IECIUCB 91,250,ML,48,01,79,2,,30502009,8,0,0,0,,0,0,0,250,0
001264 0008FF                      1203+UCB91    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001267 80                          1204+         DC    X'80' STAT 'A'                  20201
001268 0250003001                  1205+         DC    X'0250',AL2(48),XL1'01' FLGS,UA,DEV,ERR
00126D 4F020000                    1206+         DC    AL1(79),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
001271 F2F5F03050200900            1207+         DC    CL3'250',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00127C 18006E68                    1208+         DC    X'18',AL3(UCBS91) MASK & SENSE PTR          20201
001280 0000000000000000            1209+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1210+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001292 0000000000000000            1211+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1212+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0012A0 00006E30                    1213+         DC    A(UCBW91-104) ERP WORK AREA ADDRESS

                                   1215          AGO   .UCB92      TO NEXT UCB
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1216 .UCB92 ANOP
                                   1217   IECIUCB 92,251,ML,48,01,79,2,,30502009,8,0,0,0,,0,0,0,251,0
0012A4 0008FF                      1218+UCB92    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0012A7 80                          1219+         DC    X'80' STAT 'A'                  20201
0012A8 0251003001                  1220+         DC    X'0251',AL2(48),XL1'01' FLGS,UA,DEV,ERR
0012AD 4F020000                    1221+         DC    AL1(79),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
0012B1 F2F5F13050200900            1222+         DC    CL3'251',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0012BC 18006F10                    1223+         DC    X'18',AL3(UCBS92) MASK & SENSE PTR          20201
0012C0 0000000000000000            1224+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1225+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
0012D2 0000000000000000            1226+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1227+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0012E0 00006ED8                    1228+         DC    A(UCBW92-104) ERP WORK AREA ADDRESS

                                   1230          AGO   .UCB93      TO NEXT UCB
                                   1231 .UCB93 ANOP
                                   1232   IECIUCB 93,252,ML,48,01,79,2,,30502009,8,0,0,0,,0,0,0,252,0
0012E4 0008FF                      1233+UCB93    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0012E7 80                          1234+         DC    X'80' STAT 'A'                  20201
0012E8 0252003001                  1235+         DC    X'0252',AL2(48),XL1'01' FLGS,UA,DEV,ERR
0012ED 4F020000                    1236+         DC    AL1(79),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
0012F1 F2F5F23050200900            1237+         DC    CL3'252',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0012FC 18006FB8                    1238+         DC    X'18',AL3(UCBS93) MASK & SENSE PTR          20201
001300 0000000000000000            1239+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1240+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001312 0000000000000000            1241+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1242+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001320 00006F80                    1243+         DC    A(UCBW93-104) ERP WORK AREA ADDRESS

                                   1245          AGO   .UCB94      TO NEXT UCB
                                   1246 .UCB94 ANOP
                                   1247   IECIUCB 94,253,ML,48,01,79,2,,30502009,8,0,0,0,,0,0,0,253,0
001324 0008FF                      1248+UCB94    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001327 80                          1249+         DC    X'80' STAT 'A'                  20201
001328 0253003001                  1250+         DC    X'0253',AL2(48),XL1'01' FLGS,UA,DEV,ERR
00132D 4F020000                    1251+         DC    AL1(79),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
001331 F2F5F33050200900            1252+         DC    CL3'253',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00133C 18007060                    1253+         DC    X'18',AL3(UCBS94) MASK & SENSE PTR          20201
001340 0000000000000000            1254+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1255+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001352 0000000000000000            1256+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1257+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001360 00007028                    1258+         DC    A(UCBW94-104) ERP WORK AREA ADDRESS

                                   1260          AGO   .UCB95      TO NEXT UCB
                                   1261 .UCB95 ANOP
                                   1262   IECIUCB 95,254,ML,48,01,79,2,,30502009,8,0,0,0,,0,0,0,254,0
001364 0008FF                      1263+UCB95    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001367 80                          1264+         DC    X'80' STAT 'A'                  20201
001368 0254003001                  1265+         DC    X'0254',AL2(48),XL1'01' FLGS,UA,DEV,ERR
00136D 4F020000                    1266+         DC    AL1(79),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
001371 F2F5F43050200900            1267+         DC    CL3'254',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00137C 18007108                    1268+         DC    X'18',AL3(UCBS95) MASK & SENSE PTR          20201
001380 0000000000000000            1269+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1270+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001392 0000000000000000            1271+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1272+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0013A0 000070D0                    1273+         DC    A(UCBW95-104) ERP WORK AREA ADDRESS

                                   1275          AGO   .UCB96      TO NEXT UCB
                                   1276 .UCB96 ANOP
                                   1277   IECIUCB 96,255,ML,48,01,79,2,,30502009,8,0,0,0,,0,0,0,255,0
0013A4 0008FF                      1278+UCB96    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0013A7 80                          1279+         DC    X'80' STAT 'A'                  20201
0013A8 0255003001                  1280+         DC    X'0255',AL2(48),XL1'01' FLGS,UA,DEV,ERR
0013AD 4F020000                    1281+         DC    AL1(79),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
0013B1 F2F5F53050200900            1282+         DC    CL3'255',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0013BC 180071B0                    1283+         DC    X'18',AL3(UCBS96) MASK & SENSE PTR          20201
0013C0 0000000000000000            1284+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1285+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
0013D2 0000000000000000            1286+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1287+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0013E0 00007178                    1288+         DC    A(UCBW96-104) ERP WORK AREA ADDRESS

                                   1290          AGO   .UCB97      TO NEXT UCB
                                   1291 .UCB97 ANOP
                                   1292   IECIUCB 97,256,ML,48,01,79,2,,30502009,8,0,0,0,,0,0,0,256,0
0013E4 0008FF                      1293+UCB97    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0013E7 80                          1294+         DC    X'80' STAT 'A'                  20201
0013E8 0256003001                  1295+         DC    X'0256',AL2(48),XL1'01' FLGS,UA,DEV,ERR
0013ED 4F020000                    1296+         DC    AL1(79),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
0013F1 F2F5F63050200900            1297+         DC    CL3'256',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0013FC 18007258                    1298+         DC    X'18',AL3(UCBS97) MASK & SENSE PTR          20201
001400 0000000000000000            1299+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1300+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001412 0000000000000000            1301+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1302+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001420 00007220                    1303+         DC    A(UCBW97-104) ERP WORK AREA ADDRESS

                                   1305          AGO   .UCB98      TO NEXT UCB
                                   1306 .UCB98 ANOP
                                   1307   IECIUCB 98,257,ML,48,01,79,2,,30502009,8,0,0,0,,0,0,0,257,0
001424 0008FF                      1308+UCB98    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001427 80                          1309+         DC    X'80' STAT 'A'                  20201
001428 0257003001                  1310+         DC    X'0257',AL2(48),XL1'01' FLGS,UA,DEV,ERR
00142D 4F020000                    1311+         DC    AL1(79),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
001431 F2F5F73050200900            1312+         DC    CL3'257',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00143C 18007300                    1313+         DC    X'18',AL3(UCBS98) MASK & SENSE PTR          20201
001440 0000000000000000            1314+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1315+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001452 0000000000000000            1316+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1317+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001460 000072C8                    1318+         DC    A(UCBW98-104) ERP WORK AREA ADDRESS

                                   1320          AGO   .UCB99      TO NEXT UCB
                                   1321 .UCB99 ANOP
                                   1322   IECIUCB 99,258,ML,48,01,80,2,,30502009,8,0,0,0,,0,0,0,258,0
001464 0008FF                      1323+UCB99    DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001467 80                          1324+         DC    X'80' STAT 'A'                  20201
001468 0258003001                  1325+         DC    X'0258',AL2(48),XL1'01' FLGS,UA,DEV,ERR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00146D 50020000                    1326+         DC    AL1(80),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
001471 F2F5F83050200900            1327+         DC    CL3'258',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00147C 180073A8                    1328+         DC    X'18',AL3(UCBS99) MASK & SENSE PTR          20201
001480 0000000000000000            1329+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1330+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001492 0000000000000000            1331+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1332+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0014A0 00007370                    1333+         DC    A(UCBW99-104) ERP WORK AREA ADDRESS

                                   1335          AGO   .UCB100      TO NEXT UCB
                                   1336 .UCB100 ANOP
                                   1337   IECIUCB 100,259,ML,48,01,80,2,,30502009,8,0,0,0,,0,0,0,259,0
0014A4 0008FF                      1338+UCB100   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0014A7 80                          1339+         DC    X'80' STAT 'A'                  20201
0014A8 0259003001                  1340+         DC    X'0259',AL2(48),XL1'01' FLGS,UA,DEV,ERR
0014AD 50020000                    1341+         DC    AL1(80),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
0014B1 F2F5F93050200900            1342+         DC    CL3'259',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0014BC 18007450                    1343+         DC    X'18',AL3(UCBS100) MASK & SENSE PTR          20201
0014C0 0000000000000000            1344+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1345+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
0014D2 0000000000000000            1346+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1347+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0014E0 00007418                    1348+         DC    A(UCBW100-104) ERP WORK AREA ADDRESS

                                   1350          AGO   .UCB101      TO NEXT UCB
                                   1351 .UCB101 ANOP
                                   1352   IECIUCB 101,25A,ML,48,01,80,2,,30502009,8,0,0,0,,0,0,0,25A,0
0014E4 0008FF                      1353+UCB101   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0014E7 80                          1354+         DC    X'80' STAT 'A'                  20201
0014E8 025A003001                  1355+         DC    X'025A',AL2(48),XL1'01' FLGS,UA,DEV,ERR
0014ED 50020000                    1356+         DC    AL1(80),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
0014F1 F2F5C13050200900            1357+         DC    CL3'25A',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0014FC 180074F8                    1358+         DC    X'18',AL3(UCBS101) MASK & SENSE PTR          20201
001500 0000000000000000            1359+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1360+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001512 0000000000000000            1361+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1362+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001520 000074C0                    1363+         DC    A(UCBW101-104) ERP WORK AREA ADDRESS

                                   1365          AGO   .UCB102      TO NEXT UCB
                                   1366 .UCB102 ANOP
                                   1367   IECIUCB 102,25B,ML,48,01,80,2,,30502009,8,0,0,0,,0,0,0,25B,0
001524 0008FF                      1368+UCB102   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001527 80                          1369+         DC    X'80' STAT 'A'                  20201
001528 025B003001                  1370+         DC    X'025B',AL2(48),XL1'01' FLGS,UA,DEV,ERR
00152D 50020000                    1371+         DC    AL1(80),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
001531 F2F5C23050200900            1372+         DC    CL3'25B',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00153C 180075A0                    1373+         DC    X'18',AL3(UCBS102) MASK & SENSE PTR          20201
001540 0000000000000000            1374+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1375+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001552 0000000000000000            1376+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1377+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001560 00007568                    1378+         DC    A(UCBW102-104) ERP WORK AREA ADDRESS

                                   1380          AGO   .UCB103      TO NEXT UCB
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1381 .UCB103 ANOP
                                   1382   IECIUCB 103,25C,ML,48,01,80,2,,30502009,8,0,0,0,,0,0,0,25C,0
001564 0008FF                      1383+UCB103   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001567 80                          1384+         DC    X'80' STAT 'A'                  20201
001568 025C003001                  1385+         DC    X'025C',AL2(48),XL1'01' FLGS,UA,DEV,ERR
00156D 50020000                    1386+         DC    AL1(80),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
001571 F2F5C33050200900            1387+         DC    CL3'25C',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00157C 18007648                    1388+         DC    X'18',AL3(UCBS103) MASK & SENSE PTR          20201
001580 0000000000000000            1389+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1390+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001592 0000000000000000            1391+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1392+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0015A0 00007610                    1393+         DC    A(UCBW103-104) ERP WORK AREA ADDRESS

                                   1395          AGO   .UCB104      TO NEXT UCB
                                   1396 .UCB104 ANOP
                                   1397   IECIUCB 104,25D,ML,48,01,80,2,,30502009,8,0,0,0,,0,0,0,25D,0
0015A4 0008FF                      1398+UCB104   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0015A7 80                          1399+         DC    X'80' STAT 'A'                  20201
0015A8 025D003001                  1400+         DC    X'025D',AL2(48),XL1'01' FLGS,UA,DEV,ERR
0015AD 50020000                    1401+         DC    AL1(80),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
0015B1 F2F5C43050200900            1402+         DC    CL3'25D',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0015BC 180076F0                    1403+         DC    X'18',AL3(UCBS104) MASK & SENSE PTR          20201
0015C0 0000000000000000            1404+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1405+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
0015D2 0000000000000000            1406+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1407+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0015E0 000076B8                    1408+         DC    A(UCBW104-104) ERP WORK AREA ADDRESS

                                   1410          AGO   .UCB105      TO NEXT UCB
                                   1411 .UCB105 ANOP
                                   1412   IECIUCB 105,25E,ML,48,01,80,2,,30502009,8,0,0,0,,0,0,0,25E,0
0015E4 0008FF                      1413+UCB105   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0015E7 80                          1414+         DC    X'80' STAT 'A'                  20201
0015E8 025E003001                  1415+         DC    X'025E',AL2(48),XL1'01' FLGS,UA,DEV,ERR
0015ED 50020000                    1416+         DC    AL1(80),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
0015F1 F2F5C53050200900            1417+         DC    CL3'25E',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0015FC 18007798                    1418+         DC    X'18',AL3(UCBS105) MASK & SENSE PTR          20201
001600 0000000000000000            1419+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1420+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001612 0000000000000000            1421+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1422+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001620 00007760                    1423+         DC    A(UCBW105-104) ERP WORK AREA ADDRESS

                                   1425          AGO   .UCB106      TO NEXT UCB
                                   1426 .UCB106 ANOP
                                   1427   IECIUCB 106,25F,ML,48,01,80,2,,30502009,8,0,0,0,,0,0,0,25F,0
001624 0008FF                      1428+UCB106   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001627 80                          1429+         DC    X'80' STAT 'A'                  20201
001628 025F003001                  1430+         DC    X'025F',AL2(48),XL1'01' FLGS,UA,DEV,ERR
00162D 50020000                    1431+         DC    AL1(80),AL1(2),XL2'0' STAT,LCH,ATN,CHNMSK
001631 F2F5C63050200900            1432+         DC    CL3'25F',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00163C 18007840                    1433+         DC    X'18',AL3(UCBS106) MASK & SENSE PTR          20201
001640 0000000000000000            1434+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1435+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001652 0000000000000000            1436+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1437+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001660 00007808                    1438+         DC    A(UCBW106-104) ERP WORK AREA ADDRESS

                                   1440          AGO   .UCB107      TO NEXT UCB
                                   1441 .UCB107 ANOP
                                   1442   IECIUCB 107,30E,UR,0,07,81,3,,10800808,8,0,0,0,,0,0,0,30E,0
001664 0008FF                      1443+UCB107   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001667 80                          1444+         DC    X'80' STAT 'A'                  20201
001668 030E000007                  1445+         DC    X'030E',AL2(0),XL1'07' FLGS,UA,DEV,ERR
00166D 51030000                    1446+         DC    AL1(81),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001671 F3F0C51080080800            1447+         DC    CL3'30E',XL4'10800808',F'0' UA,DEVTYPE,RQE,SNSE 20201
00167C 0200167A                    1448+         DC    X'02',AL3(UCB107+22) COUNT,SENSE AREA PTR      20202
001680 000078E8                    1449+         DC    A(UCBW107) UR WORK AREA POINTER      19017

                                   1451          AGO   .UCB108      TO NEXT UCB
                                   1452 .UCB108 ANOP
                                   1453   IECIUCB 108,30F,UR,0,07,82,3,,10800808,8,0,0,0,,0,0,0,30F,0
001684 0008FF                      1454+UCB108   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001687 80                          1455+         DC    X'80' STAT 'A'                  20201
001688 030F000007                  1456+         DC    X'030F',AL2(0),XL1'07' FLGS,UA,DEV,ERR
00168D 52030000                    1457+         DC    AL1(82),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001691 F3F0C61080080800            1458+         DC    CL3'30F',XL4'10800808',F'0' UA,DEVTYPE,RQE,SNSE 20201
00169C 0200169A                    1459+         DC    X'02',AL3(UCB108+22) COUNT,SENSE AREA PTR      20202
0016A0 000078F0                    1460+         DC    A(UCBW108) UR WORK AREA POINTER      19017

                                   1462          AGO   .UCB109      TO NEXT UCB
                                   1463 .UCB109 ANOP
                                   1464   IECIUCB 109,330,DA,40,01,83,3,,30C02008,0,0,0,0,,0,0,0,330,0
0016A4 0000FF                      1465+UCB109   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0016A7 80                          1466+         DC    X'80' STAT 'A'                  20201
0016A8 0330002801                  1467+         DC    X'0330',AL2(40),XL1'01' FLGS,UA,DEV,ERR
0016AD 53030000                    1468+         DC    AL1(83),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
0016B1 F3F3F030C0200800            1469+         DC    CL3'330',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
0016BC 00000000                    1470+         DC    F'0' SENSE                     20201
0016C0 0000000000000000            1471+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1472+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
0016D2 0000000000000000            1473+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1474+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0016E0 00007890                    1475+         DC    A(UCBW109-104) ERP WORK AREA ADDRESS

                                   1477          AGO   .UCB110      TO NEXT UCB
                                   1478 .UCB110 ANOP
                                   1479   IECIUCB 110,331,DA,40,01,83,3,,30C02008,0,0,0,0,,0,0,0,331,0
0016E4 0000FF                      1480+UCB110   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0016E7 80                          1481+         DC    X'80' STAT 'A'                  20201
0016E8 0331002801                  1482+         DC    X'0331',AL2(40),XL1'01' FLGS,UA,DEV,ERR
0016ED 53030000                    1483+         DC    AL1(83),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
0016F1 F3F3F130C0200800            1484+         DC    CL3'331',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
0016FC 00000000                    1485+         DC    F'0' SENSE                     20201
001700 0000000000000000            1486+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1487+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001712 0000000000000000            1488+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1489+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001720 000078E0                    1490+         DC    A(UCBW110-104) ERP WORK AREA ADDRESS
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1492          AGO   .UCB111      TO NEXT UCB
                                   1493 .UCB111 ANOP
                                   1494   IECIUCB 111,332,DA,40,01,83,3,,30C02008,0,0,0,0,,0,0,0,332,0
001724 0000FF                      1495+UCB111   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001727 80                          1496+         DC    X'80' STAT 'A'                  20201
001728 0332002801                  1497+         DC    X'0332',AL2(40),XL1'01' FLGS,UA,DEV,ERR
00172D 53030000                    1498+         DC    AL1(83),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001731 F3F3F230C0200800            1499+         DC    CL3'332',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
00173C 00000000                    1500+         DC    F'0' SENSE                     20201
001740 0000000000000000            1501+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1502+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001752 0000000000000000            1503+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1504+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001760 00007930                    1505+         DC    A(UCBW111-104) ERP WORK AREA ADDRESS

                                   1507          AGO   .UCB112      TO NEXT UCB
                                   1508 .UCB112 ANOP
                                   1509   IECIUCB 112,333,DA,40,01,83,3,,30C02008,0,0,0,0,,0,0,0,333,0
001764 0000FF                      1510+UCB112   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001767 80                          1511+         DC    X'80' STAT 'A'                  20201
001768 0333002801                  1512+         DC    X'0333',AL2(40),XL1'01' FLGS,UA,DEV,ERR
00176D 53030000                    1513+         DC    AL1(83),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001771 F3F3F330C0200800            1514+         DC    CL3'333',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
00177C 00000000                    1515+         DC    F'0' SENSE                     20201
001780 0000000000000000            1516+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1517+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001792 0000000000000000            1518+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1519+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0017A0 00007980                    1520+         DC    A(UCBW112-104) ERP WORK AREA ADDRESS

                                   1522          AGO   .UCB113      TO NEXT UCB
                                   1523 .UCB113 ANOP
                                   1524   IECIUCB 113,334,DA,40,01,83,3,,30C02008,0,0,0,0,,0,0,0,334,0
0017A4 0000FF                      1525+UCB113   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0017A7 80                          1526+         DC    X'80' STAT 'A'                  20201
0017A8 0334002801                  1527+         DC    X'0334',AL2(40),XL1'01' FLGS,UA,DEV,ERR
0017AD 53030000                    1528+         DC    AL1(83),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
0017B1 F3F3F430C0200800            1529+         DC    CL3'334',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
0017BC 00000000                    1530+         DC    F'0' SENSE                     20201
0017C0 0000000000000000            1531+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1532+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
0017D2 0000000000000000            1533+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1534+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0017E0 000079D0                    1535+         DC    A(UCBW113-104) ERP WORK AREA ADDRESS

                                   1537          AGO   .UCB114      TO NEXT UCB
                                   1538 .UCB114 ANOP
                                   1539   IECIUCB 114,335,DA,40,01,83,3,,30C02008,0,0,0,0,,0,0,0,335,0
0017E4 0000FF                      1540+UCB114   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0017E7 80                          1541+         DC    X'80' STAT 'A'                  20201
0017E8 0335002801                  1542+         DC    X'0335',AL2(40),XL1'01' FLGS,UA,DEV,ERR
0017ED 53030000                    1543+         DC    AL1(83),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
0017F1 F3F3F530C0200800            1544+         DC    CL3'335',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
0017FC 00000000                    1545+         DC    F'0' SENSE                     20201
001800 0000000000000000            1546+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1547+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001812 0000000000000000            1548+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1549+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001820 00007A20                    1550+         DC    A(UCBW114-104) ERP WORK AREA ADDRESS

                                   1552          AGO   .UCB115      TO NEXT UCB
                                   1553 .UCB115 ANOP
                                   1554   IECIUCB 115,336,DA,40,01,83,3,,30C02008,0,0,0,0,,0,0,0,336,0
001824 0000FF                      1555+UCB115   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001827 80                          1556+         DC    X'80' STAT 'A'                  20201
001828 0336002801                  1557+         DC    X'0336',AL2(40),XL1'01' FLGS,UA,DEV,ERR
00182D 53030000                    1558+         DC    AL1(83),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001831 F3F3F630C0200800            1559+         DC    CL3'336',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
00183C 00000000                    1560+         DC    F'0' SENSE                     20201
001840 0000000000000000            1561+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1562+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001852 0000000000000000            1563+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1564+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001860 00007A70                    1565+         DC    A(UCBW115-104) ERP WORK AREA ADDRESS

                                   1567          AGO   .UCB116      TO NEXT UCB
                                   1568 .UCB116 ANOP
                                   1569   IECIUCB 116,337,DA,40,01,83,3,,30C02008,0,0,0,0,,0,0,0,337,0
001864 0000FF                      1570+UCB116   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001867 80                          1571+         DC    X'80' STAT 'A'                  20201
001868 0337002801                  1572+         DC    X'0337',AL2(40),XL1'01' FLGS,UA,DEV,ERR
00186D 53030000                    1573+         DC    AL1(83),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001871 F3F3F730C0200800            1574+         DC    CL3'337',XL4'30C02008',F'0' UA,DEVTYPE,RQE,SNSE 20201
00187C 00000000                    1575+         DC    F'0' SENSE                     20201
001880 0000000000000000            1576+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1577+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001892 0000000000000000            1578+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1579+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0018A0 00007AC0                    1580+         DC    A(UCBW116-104) ERP WORK AREA ADDRESS

                                   1582          AGO   .UCB117      TO NEXT UCB
                                   1583 .UCB117 ANOP
                                   1584   IECIUCB 117,350,ML,48,01,92,3,,30502009,8,0,0,0,,0,0,0,350,0
0018A4 0008FF                      1585+UCB117   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0018A7 80                          1586+         DC    X'80' STAT 'A'                  20201
0018A8 0350003001                  1587+         DC    X'0350',AL2(48),XL1'01' FLGS,UA,DEV,ERR
0018AD 5C030000                    1588+         DC    AL1(92),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
0018B1 F3F5F03050200900            1589+         DC    CL3'350',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0018BC 18007B78                    1590+         DC    X'18',AL3(UCBS117) MASK & SENSE PTR          20201
0018C0 0000000000000000            1591+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1592+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
0018D2 0000000000000000            1593+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1594+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0018E0 00007B40                    1595+         DC    A(UCBW117-104) ERP WORK AREA ADDRESS

                                   1597          AGO   .UCB118      TO NEXT UCB
                                   1598 .UCB118 ANOP
                                   1599   IECIUCB 118,351,ML,48,01,92,3,,30502009,8,0,0,0,,0,0,0,351,0
0018E4 0008FF                      1600+UCB118   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0018E7 80                          1601+         DC    X'80' STAT 'A'                  20201
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0018E8 0351003001                  1602+         DC    X'0351',AL2(48),XL1'01' FLGS,UA,DEV,ERR
0018ED 5C030000                    1603+         DC    AL1(92),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
0018F1 F3F5F13050200900            1604+         DC    CL3'351',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0018FC 18007C20                    1605+         DC    X'18',AL3(UCBS118) MASK & SENSE PTR          20201
001900 0000000000000000            1606+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1607+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001912 0000000000000000            1608+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1609+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001920 00007BE8                    1610+         DC    A(UCBW118-104) ERP WORK AREA ADDRESS

                                   1612          AGO   .UCB119      TO NEXT UCB
                                   1613 .UCB119 ANOP
                                   1614   IECIUCB 119,352,ML,48,01,92,3,,30502009,8,0,0,0,,0,0,0,352,0
001924 0008FF                      1615+UCB119   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001927 80                          1616+         DC    X'80' STAT 'A'                  20201
001928 0352003001                  1617+         DC    X'0352',AL2(48),XL1'01' FLGS,UA,DEV,ERR
00192D 5C030000                    1618+         DC    AL1(92),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001931 F3F5F23050200900            1619+         DC    CL3'352',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00193C 18007CC8                    1620+         DC    X'18',AL3(UCBS119) MASK & SENSE PTR          20201
001940 0000000000000000            1621+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1622+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001952 0000000000000000            1623+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1624+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001960 00007C90                    1625+         DC    A(UCBW119-104) ERP WORK AREA ADDRESS

                                   1627          AGO   .UCB120      TO NEXT UCB
                                   1628 .UCB120 ANOP
                                   1629   IECIUCB 120,353,ML,48,01,92,3,,30502009,8,0,0,0,,0,0,0,353,0
001964 0008FF                      1630+UCB120   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001967 80                          1631+         DC    X'80' STAT 'A'                  20201
001968 0353003001                  1632+         DC    X'0353',AL2(48),XL1'01' FLGS,UA,DEV,ERR
00196D 5C030000                    1633+         DC    AL1(92),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001971 F3F5F33050200900            1634+         DC    CL3'353',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
00197C 18007D70                    1635+         DC    X'18',AL3(UCBS120) MASK & SENSE PTR          20201
001980 0000000000000000            1636+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1637+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001992 0000000000000000            1638+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1639+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0019A0 00007D38                    1640+         DC    A(UCBW120-104) ERP WORK AREA ADDRESS

                                   1642          AGO   .UCB121      TO NEXT UCB
                                   1643 .UCB121 ANOP
                                   1644   IECIUCB 121,354,ML,48,01,92,3,,30502009,8,0,0,0,,0,0,0,354,0
0019A4 0008FF                      1645+UCB121   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0019A7 80                          1646+         DC    X'80' STAT 'A'                  20201
0019A8 0354003001                  1647+         DC    X'0354',AL2(48),XL1'01' FLGS,UA,DEV,ERR
0019AD 5C030000                    1648+         DC    AL1(92),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
0019B1 F3F5F43050200900            1649+         DC    CL3'354',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0019BC 18007E18                    1650+         DC    X'18',AL3(UCBS121) MASK & SENSE PTR          20201
0019C0 0000000000000000            1651+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1652+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
0019D2 0000000000000000            1653+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1654+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
0019E0 00007DE0                    1655+         DC    A(UCBW121-104) ERP WORK AREA ADDRESS
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1657          AGO   .UCB122      TO NEXT UCB
                                   1658 .UCB122 ANOP
                                   1659   IECIUCB 122,355,ML,48,01,92,3,,30502009,8,0,0,0,,0,0,0,355,0
0019E4 0008FF                      1660+UCB122   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
0019E7 80                          1661+         DC    X'80' STAT 'A'                  20201
0019E8 0355003001                  1662+         DC    X'0355',AL2(48),XL1'01' FLGS,UA,DEV,ERR
0019ED 5C030000                    1663+         DC    AL1(92),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
0019F1 F3F5F53050200900            1664+         DC    CL3'355',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
0019FC 18007EC0                    1665+         DC    X'18',AL3(UCBS122) MASK & SENSE PTR          20201
001A00 0000000000000000            1666+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1667+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001A12 0000000000000000            1668+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1669+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001A20 00007E88                    1670+         DC    A(UCBW122-104) ERP WORK AREA ADDRESS

                                   1672          AGO   .UCB123      TO NEXT UCB
                                   1673 .UCB123 ANOP
                                   1674   IECIUCB 123,356,ML,48,01,92,3,,30502009,8,0,0,0,,0,0,0,356,0
001A24 0008FF                      1675+UCB123   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001A27 80                          1676+         DC    X'80' STAT 'A'                  20201
001A28 0356003001                  1677+         DC    X'0356',AL2(48),XL1'01' FLGS,UA,DEV,ERR
001A2D 5C030000                    1678+         DC    AL1(92),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001A31 F3F5F63050200900            1679+         DC    CL3'356',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001A3C 18007F68                    1680+         DC    X'18',AL3(UCBS123) MASK & SENSE PTR          20201
001A40 0000000000000000            1681+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1682+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001A52 0000000000000000            1683+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1684+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001A60 00007F30                    1685+         DC    A(UCBW123-104) ERP WORK AREA ADDRESS

                                   1687          AGO   .UCB124      TO NEXT UCB
                                   1688 .UCB124 ANOP
                                   1689   IECIUCB 124,357,ML,48,01,92,3,,30502009,8,0,0,0,,0,0,0,357,0
001A64 0008FF                      1690+UCB124   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001A67 80                          1691+         DC    X'80' STAT 'A'                  20201
001A68 0357003001                  1692+         DC    X'0357',AL2(48),XL1'01' FLGS,UA,DEV,ERR
001A6D 5C030000                    1693+         DC    AL1(92),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001A71 F3F5F73050200900            1694+         DC    CL3'357',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001A7C 18008010                    1695+         DC    X'18',AL3(UCBS124) MASK & SENSE PTR          20201
001A80 0000000000000000            1696+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1697+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001A92 0000000000000000            1698+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1699+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001AA0 00007FD8                    1700+         DC    A(UCBW124-104) ERP WORK AREA ADDRESS

                                   1702          AGO   .UCB125      TO NEXT UCB
                                   1703 .UCB125 ANOP
                                   1704   IECIUCB 125,358,ML,48,01,93,3,,30502009,8,0,0,0,,0,0,0,358,0
001AA4 0008FF                      1705+UCB125   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001AA7 80                          1706+         DC    X'80' STAT 'A'                  20201
001AA8 0358003001                  1707+         DC    X'0358',AL2(48),XL1'01' FLGS,UA,DEV,ERR
001AAD 5D030000                    1708+         DC    AL1(93),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001AB1 F3F5F83050200900            1709+         DC    CL3'358',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001ABC 180080B8                    1710+         DC    X'18',AL3(UCBS125) MASK & SENSE PTR          20201
001AC0 0000000000000000            1711+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1712+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001AD2 0000000000000000            1713+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1714+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001AE0 00008080                    1715+         DC    A(UCBW125-104) ERP WORK AREA ADDRESS

                                   1717          AGO   .UCB126      TO NEXT UCB
                                   1718 .UCB126 ANOP
                                   1719   IECIUCB 126,359,ML,48,01,93,3,,30502009,8,0,0,0,,0,0,0,359,0
001AE4 0008FF                      1720+UCB126   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001AE7 80                          1721+         DC    X'80' STAT 'A'                  20201
001AE8 0359003001                  1722+         DC    X'0359',AL2(48),XL1'01' FLGS,UA,DEV,ERR
001AED 5D030000                    1723+         DC    AL1(93),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001AF1 F3F5F93050200900            1724+         DC    CL3'359',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001AFC 18008160                    1725+         DC    X'18',AL3(UCBS126) MASK & SENSE PTR          20201
001B00 0000000000000000            1726+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1727+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001B12 0000000000000000            1728+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1729+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001B20 00008128                    1730+         DC    A(UCBW126-104) ERP WORK AREA ADDRESS

                                   1732          AGO   .UCB127      TO NEXT UCB
                                   1733 .UCB127 ANOP
                                   1734   IECIUCB 127,35A,ML,48,01,93,3,,30502009,8,0,0,0,,0,0,0,35A,0
001B24 0008FF                      1735+UCB127   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001B27 80                          1736+         DC    X'80' STAT 'A'                  20201
001B28 035A003001                  1737+         DC    X'035A',AL2(48),XL1'01' FLGS,UA,DEV,ERR
001B2D 5D030000                    1738+         DC    AL1(93),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001B31 F3F5C13050200900            1739+         DC    CL3'35A',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001B3C 18008208                    1740+         DC    X'18',AL3(UCBS127) MASK & SENSE PTR          20201
001B40 0000000000000000            1741+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1742+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001B52 0000000000000000            1743+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1744+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001B60 000081D0                    1745+         DC    A(UCBW127-104) ERP WORK AREA ADDRESS

                                   1747          AGO   .UCB128      TO NEXT UCB
                                   1748 .UCB128 ANOP
                                   1749   IECIUCB 128,35B,ML,48,01,93,3,,30502009,8,0,0,0,,0,0,0,35B,0
001B64 0008FF                      1750+UCB128   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001B67 80                          1751+         DC    X'80' STAT 'A'                  20201
001B68 035B003001                  1752+         DC    X'035B',AL2(48),XL1'01' FLGS,UA,DEV,ERR
001B6D 5D030000                    1753+         DC    AL1(93),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001B71 F3F5C23050200900            1754+         DC    CL3'35B',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001B7C 180082B0                    1755+         DC    X'18',AL3(UCBS128) MASK & SENSE PTR          20201
001B80 0000000000000000            1756+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1757+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001B92 0000000000000000            1758+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1759+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001BA0 00008278                    1760+         DC    A(UCBW128-104) ERP WORK AREA ADDRESS

                                   1762          AGO   .UCB129      TO NEXT UCB
                                   1763 .UCB129 ANOP
                                   1764   IECIUCB 129,35C,ML,48,01,93,3,,30502009,8,0,0,0,,0,0,0,35C,0
001BA4 0008FF                      1765+UCB129   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001BA7 80                          1766+         DC    X'80' STAT 'A'                  20201
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001BA8 035C003001                  1767+         DC    X'035C',AL2(48),XL1'01' FLGS,UA,DEV,ERR
001BAD 5D030000                    1768+         DC    AL1(93),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001BB1 F3F5C33050200900            1769+         DC    CL3'35C',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001BBC 18008358                    1770+         DC    X'18',AL3(UCBS129) MASK & SENSE PTR          20201
001BC0 0000000000000000            1771+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1772+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001BD2 0000000000000000            1773+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1774+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001BE0 00008320                    1775+         DC    A(UCBW129-104) ERP WORK AREA ADDRESS

                                   1777          AGO   .UCB130      TO NEXT UCB
                                   1778 .UCB130 ANOP
                                   1779   IECIUCB 130,35D,ML,48,01,93,3,,30502009,8,0,0,0,,0,0,0,35D,0
001BE4 0008FF                      1780+UCB130   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001BE7 80                          1781+         DC    X'80' STAT 'A'                  20201
001BE8 035D003001                  1782+         DC    X'035D',AL2(48),XL1'01' FLGS,UA,DEV,ERR
001BED 5D030000                    1783+         DC    AL1(93),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001BF1 F3F5C43050200900            1784+         DC    CL3'35D',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001BFC 18008400                    1785+         DC    X'18',AL3(UCBS130) MASK & SENSE PTR          20201
001C00 0000000000000000            1786+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1787+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001C12 0000000000000000            1788+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1789+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001C20 000083C8                    1790+         DC    A(UCBW130-104) ERP WORK AREA ADDRESS

                                   1792          AGO   .UCB131      TO NEXT UCB
                                   1793 .UCB131 ANOP
                                   1794   IECIUCB 131,35E,ML,48,01,93,3,,30502009,8,0,0,0,,0,0,0,35E,0
001C24 0008FF                      1795+UCB131   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001C27 80                          1796+         DC    X'80' STAT 'A'                  20201
001C28 035E003001                  1797+         DC    X'035E',AL2(48),XL1'01' FLGS,UA,DEV,ERR
001C2D 5D030000                    1798+         DC    AL1(93),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001C31 F3F5C53050200900            1799+         DC    CL3'35E',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001C3C 180084A8                    1800+         DC    X'18',AL3(UCBS131) MASK & SENSE PTR          20201
001C40 0000000000000000            1801+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1802+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001C52 0000000000000000            1803+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1804+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001C60 00008470                    1805+         DC    A(UCBW131-104) ERP WORK AREA ADDRESS

                                   1807          AGO   .UCB132      TO NEXT UCB
                                   1808 .UCB132 ANOP
                                   1809   IECIUCB 132,35F,ML,48,01,93,3,,30502009,8,0,0,0,,0,0,0,35F,0
001C64 0008FF                      1810+UCB132   DC    AL2(8),X'FF' JOBNO,ALLOC MSK, ID       20201
001C67 80                          1811+         DC    X'80' STAT 'A'                  20201
001C68 035F003001                  1812+         DC    X'035F',AL2(48),XL1'01' FLGS,UA,DEV,ERR
001C6D 5D030000                    1813+         DC    AL1(93),AL1(3),XL2'0' STAT,LCH,ATN,CHNMSK
001C71 F3F5C63050200900            1814+         DC    CL3'35F',XL4'30502009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001C7C 18008550                    1815+         DC    X'18',AL3(UCBS132) MASK & SENSE PTR          20201
001C80 0000000000000000            1816+         DC    XL6'0',XL2'0',F'0',XL2'0',XL4'0' VOLSER          20201
                                   1817+*              STATB & DMCT, VTOC ADR, RRCTS, DAVV WK AREA
001C92 0000000000000000            1818+         DC    XL2'0',XL8'0',XL1'0',XL3'0'
                                   1819+*              OSQ WKAR, LAST SEEK ADDRESS, USER CT, DA ECB ADR
001CA0 00008518                    1820+         DC    A(UCBW132-104) ERP WORK AREA ADDRESS
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1822          AGO   .UCB133      TO NEXT UCB
                                   1823 .UCB133   ANOP       UCB ENTRY
                                   1824  IECIUCB 133,3C0,GR,8,69,94,3,1,12501009,0,0,0,0,1,2000
001CA4 0000FF                      1825+UCB133   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001CA7 80                          1826+         DC    X'80' STAT 'A'                  20201
001CA8 03C0000869                  1827+         DC    X'03C0',AL2(8),XL1'69' FLGS,UA,DEV,ERR
001CAD 5E031C00                    1828+         DC    AL1(94),AL1(3),XL2'1C00' STAT,LCH,ATN,CK  21003
001CB1 F3C3F01250100900            1829+         DC    CL3'3C0',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001CBC 20000000                    1830+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
001CC0 0000000000000000            1831+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                   1833          AGO   .UCB134      TO NEXT UCB
                                   1834 .UCB134   ANOP       UCB ENTRY
                                   1835  IECIUCB 134,3C1,GR,8,69,95,3,2,12501009,0,0,0,0,1,2000
001CCC 0000FF                      1836+UCB134   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001CCF 80                          1837+         DC    X'80' STAT 'A'                  20201
001CD0 03C1000869                  1838+         DC    X'03C1',AL2(8),XL1'69' FLGS,UA,DEV,ERR
001CD5 5F031C00                    1839+         DC    AL1(95),AL1(3),XL2'1C00' STAT,LCH,ATN,CK  21003
001CD9 F3C3F11250100900            1840+         DC    CL3'3C1',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001CE4 20000000                    1841+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
001CE8 0000000000000000            1842+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                   1844          AGO   .UCB135      TO NEXT UCB
                                   1845 .UCB135   ANOP       UCB ENTRY
                                   1846  IECIUCB 135,3C2,GR,8,69,96,3,3,12501009,0,0,0,0,1,2000
001CF4 0000FF                      1847+UCB135   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001CF7 80                          1848+         DC    X'80' STAT 'A'                  20201
001CF8 03C2000869                  1849+         DC    X'03C2',AL2(8),XL1'69' FLGS,UA,DEV,ERR
001CFD 60031C00                    1850+         DC    AL1(96),AL1(3),XL2'1C00' STAT,LCH,ATN,CK  21003
001D01 F3C3F21250100900            1851+         DC    CL3'3C2',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001D0C 20000000                    1852+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
001D10 0000000000000000            1853+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                   1855          AGO   .UCB136      TO NEXT UCB
                                   1856 .UCB136   ANOP       UCB ENTRY
                                   1857  IECIUCB 136,3C3,GR,8,69,97,3,4,12501009,0,0,0,0,1,2000
001D1C 0000FF                      1858+UCB136   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001D1F 80                          1859+         DC    X'80' STAT 'A'                  20201
001D20 03C3000869                  1860+         DC    X'03C3',AL2(8),XL1'69' FLGS,UA,DEV,ERR
001D25 61031C00                    1861+         DC    AL1(97),AL1(3),XL2'1C00' STAT,LCH,ATN,CK  21003
001D29 F3C3F31250100900            1862+         DC    CL3'3C3',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001D34 20000000                    1863+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
001D38 0000000000000000            1864+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                   1866          AGO   .UCB137      TO NEXT UCB
                                   1867 .UCB137   ANOP       UCB ENTRY
                                   1868  IECIUCB 137,3C4,GR,8,69,98,3,5,12501009,0,0,0,0,1,2000
001D44 0000FF                      1869+UCB137   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001D47 80                          1870+         DC    X'80' STAT 'A'                  20201
001D48 03C4000869                  1871+         DC    X'03C4',AL2(8),XL1'69' FLGS,UA,DEV,ERR
001D4D 62031C00                    1872+         DC    AL1(98),AL1(3),XL2'1C00' STAT,LCH,ATN,CK  21003
001D51 F3C3F41250100900            1873+         DC    CL3'3C4',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001D5C 20000000                    1874+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
001D60 0000000000000000            1875+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1877          AGO   .UCB138      TO NEXT UCB
                                   1878 .UCB138   ANOP       UCB ENTRY
                                   1879  IECIUCB 138,3C5,GR,8,69,99,3,6,12501009,0,0,0,0,1,2000
001D6C 0000FF                      1880+UCB138   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001D6F 80                          1881+         DC    X'80' STAT 'A'                  20201
001D70 03C5000869                  1882+         DC    X'03C5',AL2(8),XL1'69' FLGS,UA,DEV,ERR
001D75 63031C00                    1883+         DC    AL1(99),AL1(3),XL2'1C00' STAT,LCH,ATN,CK  21003
001D79 F3C3F51250100900            1884+         DC    CL3'3C5',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001D84 20000000                    1885+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
001D88 0000000000000000            1886+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                   1888          AGO   .UCB139      TO NEXT UCB
                                   1889 .UCB139   ANOP       UCB ENTRY
                                   1890  IECIUCB 139,3C6,GR,8,69,100,3,7,12501009,0,0,0,0,1,2000
001D94 0000FF                      1891+UCB139   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001D97 80                          1892+         DC    X'80' STAT 'A'                  20201
001D98 03C6000869                  1893+         DC    X'03C6',AL2(8),XL1'69' FLGS,UA,DEV,ERR
001D9D 64031C00                    1894+         DC    AL1(100),AL1(3),XL2'1C00' STAT,LCH,ATN,CK  21003
001DA1 F3C3F61250100900            1895+         DC    CL3'3C6',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001DAC 20000000                    1896+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
001DB0 0000000000000000            1897+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                   1899          AGO   .UCB140      TO NEXT UCB
                                   1900 .UCB140   ANOP       UCB ENTRY
                                   1901  IECIUCB 140,3C7,GR,8,69,101,3,8,12501009,0,0,0,0,1,2000
001DBC 0000FF                      1902+UCB140   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
001DBF 80                          1903+         DC    X'80' STAT 'A'                  20201
001DC0 03C7000869                  1904+         DC    X'03C7',AL2(8),XL1'69' FLGS,UA,DEV,ERR
001DC5 65031C00                    1905+         DC    AL1(101),AL1(3),XL2'1C00' STAT,LCH,ATN,CK  21003
001DC9 F3C3F71250100900            1906+         DC    CL3'3C7',XL4'12501009',F'0' UA,DEVTYPE,RQE,SNSE 20201
001DD4 20000000                    1907+         DC    XL2'2000',XL2'0' ADDITIONAL OPTIONS BYTE    21003
001DD8 0000000000000000            1908+         DC    3F'0' IRB ADD,IOB ADD,D.I.       21003

                                   1910          AGO   .UCB141      TO NEXT UCB
                                   1911 .UCB141 ANOP
                                   1912   IECIUCB 141,580,AT,56,09,102,4,,32108003,24,0,0,0,,0,0,0,580,0
001DE4 0018FF                      1913+UCB141   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
001DE7 80                          1914+         DC    X'80' STAT 'A'                  20201
001DE8 0580003809                  1915+         DC    X'0580',AL2(56),XL1'09' FLGS,UA,DEV,ERR
001DED 66041800                    1916+         DC    AL1(102),AL1(4),XL2'1800' STAT,LCH,ATN    21048
001DF1 F5F8F03210800300            1917+         DC    CL3'580',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
001DFC 180085F8                    1918+         DC    X'18',AL3(UCBS141) MASK AND SENSE PTR FOR 3420 21048
001E00 0000000000008000            1919+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   1920+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
001E14 00008610                    1921+         DC    AL1(0),AL3(UCBW141) MASK AND WK AREA PTR

                                   1923          AGO   .UCB142      TO NEXT UCB
                                   1924 .UCB142 ANOP
                                   1925   IECIUCB 142,581,AT,56,09,104,4,,32108003,24,0,0,0,,0,0,0,581,0
001E18 0018FF                      1926+UCB142   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
001E1B 80                          1927+         DC    X'80' STAT 'A'                  20201
001E1C 0581003809                  1928+         DC    X'0581',AL2(56),XL1'09' FLGS,UA,DEV,ERR
001E21 68041800                    1929+         DC    AL1(104),AL1(4),XL2'1800' STAT,LCH,ATN    21048
001E25 F5F8F13210800300            1930+         DC    CL3'581',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
001E30 18008628                    1931+         DC    X'18',AL3(UCBS142) MASK AND SENSE PTR FOR 3420 21048
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001E34 0000000000008000            1932+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   1933+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
001E48 00008640                    1934+         DC    AL1(0),AL3(UCBW142) MASK AND WK AREA PTR

                                   1936          AGO   .UCB143      TO NEXT UCB
                                   1937 .UCB143 ANOP
                                   1938   IECIUCB 143,582,AT,56,09,106,4,,32108003,24,0,0,0,,0,0,0,582,0
001E4C 0018FF                      1939+UCB143   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
001E4F 80                          1940+         DC    X'80' STAT 'A'                  20201
001E50 0582003809                  1941+         DC    X'0582',AL2(56),XL1'09' FLGS,UA,DEV,ERR
001E55 6A041800                    1942+         DC    AL1(106),AL1(4),XL2'1800' STAT,LCH,ATN    21048
001E59 F5F8F23210800300            1943+         DC    CL3'582',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
001E64 18008658                    1944+         DC    X'18',AL3(UCBS143) MASK AND SENSE PTR FOR 3420 21048
001E68 0000000000008000            1945+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   1946+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
001E7C 00008670                    1947+         DC    AL1(0),AL3(UCBW143) MASK AND WK AREA PTR

                                   1949          AGO   .UCB144      TO NEXT UCB
                                   1950 .UCB144 ANOP
                                   1951   IECIUCB 144,583,AT,56,09,108,4,,32108003,24,0,0,0,,0,0,0,583,0
001E80 0018FF                      1952+UCB144   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
001E83 80                          1953+         DC    X'80' STAT 'A'                  20201
001E84 0583003809                  1954+         DC    X'0583',AL2(56),XL1'09' FLGS,UA,DEV,ERR
001E89 6C041800                    1955+         DC    AL1(108),AL1(4),XL2'1800' STAT,LCH,ATN    21048
001E8D F5F8F33210800300            1956+         DC    CL3'583',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
001E98 18008688                    1957+         DC    X'18',AL3(UCBS144) MASK AND SENSE PTR FOR 3420 21048
001E9C 0000000000008000            1958+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   1959+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
001EB0 000086A0                    1960+         DC    AL1(0),AL3(UCBW144) MASK AND WK AREA PTR

                                   1962          AGO   .UCB145      TO NEXT UCB
                                   1963 .UCB145 ANOP
                                   1964   IECIUCB 145,584,AT,56,09,110,4,,32108003,24,0,0,0,,0,0,0,584,0
001EB4 0018FF                      1965+UCB145   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
001EB7 80                          1966+         DC    X'80' STAT 'A'                  20201
001EB8 0584003809                  1967+         DC    X'0584',AL2(56),XL1'09' FLGS,UA,DEV,ERR
001EBD 6E041800                    1968+         DC    AL1(110),AL1(4),XL2'1800' STAT,LCH,ATN    21048
001EC1 F5F8F43210800300            1969+         DC    CL3'584',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
001ECC 180086B8                    1970+         DC    X'18',AL3(UCBS145) MASK AND SENSE PTR FOR 3420 21048
001ED0 0000000000008000            1971+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   1972+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
001EE4 000086D0                    1973+         DC    AL1(0),AL3(UCBW145) MASK AND WK AREA PTR

                                   1975          AGO   .UCB146      TO NEXT UCB
                                   1976 .UCB146 ANOP
                                   1977   IECIUCB 146,585,AT,56,09,112,4,,32108003,24,0,0,0,,0,0,0,585,0
001EE8 0018FF                      1978+UCB146   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
001EEB 80                          1979+         DC    X'80' STAT 'A'                  20201
001EEC 0585003809                  1980+         DC    X'0585',AL2(56),XL1'09' FLGS,UA,DEV,ERR
001EF1 70041800                    1981+         DC    AL1(112),AL1(4),XL2'1800' STAT,LCH,ATN    21048
001EF5 F5F8F53210800300            1982+         DC    CL3'585',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
001F00 180086E8                    1983+         DC    X'18',AL3(UCBS146) MASK AND SENSE PTR FOR 3420 21048
001F04 0000000000008000            1984+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   1985+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
001F18 00008700                    1986+         DC    AL1(0),AL3(UCBW146) MASK AND WK AREA PTR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1988          AGO   .UCB147      TO NEXT UCB
                                   1989 .UCB147 ANOP
                                   1990   IECIUCB 147,586,AT,56,09,114,4,,32108003,24,0,0,0,,0,0,0,586,0
001F1C 0018FF                      1991+UCB147   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
001F1F 80                          1992+         DC    X'80' STAT 'A'                  20201
001F20 0586003809                  1993+         DC    X'0586',AL2(56),XL1'09' FLGS,UA,DEV,ERR
001F25 72041800                    1994+         DC    AL1(114),AL1(4),XL2'1800' STAT,LCH,ATN    21048
001F29 F5F8F63210800300            1995+         DC    CL3'586',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
001F34 18008718                    1996+         DC    X'18',AL3(UCBS147) MASK AND SENSE PTR FOR 3420 21048
001F38 0000000000008000            1997+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   1998+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
001F4C 00008730                    1999+         DC    AL1(0),AL3(UCBW147) MASK AND WK AREA PTR

                                   2001          AGO   .UCB148      TO NEXT UCB
                                   2002 .UCB148 ANOP
                                   2003   IECIUCB 148,587,AT,56,09,116,4,,32108003,24,0,0,0,,0,0,0,587,0
001F50 0018FF                      2004+UCB148   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
001F53 80                          2005+         DC    X'80' STAT 'A'                  20201
001F54 0587003809                  2006+         DC    X'0587',AL2(56),XL1'09' FLGS,UA,DEV,ERR
001F59 74041800                    2007+         DC    AL1(116),AL1(4),XL2'1800' STAT,LCH,ATN    21048
001F5D F5F8F73210800300            2008+         DC    CL3'587',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
001F68 18008748                    2009+         DC    X'18',AL3(UCBS148) MASK AND SENSE PTR FOR 3420 21048
001F6C 0000000000008000            2010+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   2011+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
001F80 00008760                    2012+         DC    AL1(0),AL3(UCBW148) MASK AND WK AREA PTR

                                   2014          AGO   .UCB149      TO NEXT UCB
                                   2015 .UCB149 ANOP
                                   2016   IECIUCB 149,588,AT,56,09,118,4,,32108003,24,0,0,0,,0,0,0,588,0
001F84 0018FF                      2017+UCB149   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
001F87 80                          2018+         DC    X'80' STAT 'A'                  20201
001F88 0588003809                  2019+         DC    X'0588',AL2(56),XL1'09' FLGS,UA,DEV,ERR
001F8D 76041800                    2020+         DC    AL1(118),AL1(4),XL2'1800' STAT,LCH,ATN    21048
001F91 F5F8F83210800300            2021+         DC    CL3'588',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
001F9C 18008778                    2022+         DC    X'18',AL3(UCBS149) MASK AND SENSE PTR FOR 3420 21048
001FA0 0000000000008000            2023+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   2024+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
001FB4 00008790                    2025+         DC    AL1(0),AL3(UCBW149) MASK AND WK AREA PTR

                                   2027          AGO   .UCB150      TO NEXT UCB
                                   2028 .UCB150 ANOP
                                   2029   IECIUCB 150,589,AT,56,09,120,4,,32108003,24,0,0,0,,0,0,0,589,0
001FB8 0018FF                      2030+UCB150   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
001FBB 80                          2031+         DC    X'80' STAT 'A'                  20201
001FBC 0589003809                  2032+         DC    X'0589',AL2(56),XL1'09' FLGS,UA,DEV,ERR
001FC1 78041800                    2033+         DC    AL1(120),AL1(4),XL2'1800' STAT,LCH,ATN    21048
001FC5 F5F8F93210800300            2034+         DC    CL3'589',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
001FD0 180087A8                    2035+         DC    X'18',AL3(UCBS150) MASK AND SENSE PTR FOR 3420 21048
001FD4 0000000000008000            2036+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   2037+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
001FE8 000087C0                    2038+         DC    AL1(0),AL3(UCBW150) MASK AND WK AREA PTR

                                   2040          AGO   .UCB151      TO NEXT UCB
                                   2041 .UCB151 ANOP
                                   2042   IECIUCB 151,58A,AT,56,09,122,4,,32108003,24,0,0,0,,0,0,0,58A,0
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001FEC 0018FF                      2043+UCB151   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
001FEF 80                          2044+         DC    X'80' STAT 'A'                  20201
001FF0 058A003809                  2045+         DC    X'058A',AL2(56),XL1'09' FLGS,UA,DEV,ERR
001FF5 7A041800                    2046+         DC    AL1(122),AL1(4),XL2'1800' STAT,LCH,ATN    21048
001FF9 F5F8C13210800300            2047+         DC    CL3'58A',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
002004 180087D8                    2048+         DC    X'18',AL3(UCBS151) MASK AND SENSE PTR FOR 3420 21048
002008 0000000000008000            2049+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   2050+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
00201C 000087F0                    2051+         DC    AL1(0),AL3(UCBW151) MASK AND WK AREA PTR

                                   2053          AGO   .UCB152      TO NEXT UCB
                                   2054 .UCB152 ANOP
                                   2055   IECIUCB 152,58B,AT,56,09,124,4,,32108003,24,0,0,0,,0,0,0,58B,0
002020 0018FF                      2056+UCB152   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
002023 80                          2057+         DC    X'80' STAT 'A'                  20201
002024 058B003809                  2058+         DC    X'058B',AL2(56),XL1'09' FLGS,UA,DEV,ERR
002029 7C041800                    2059+         DC    AL1(124),AL1(4),XL2'1800' STAT,LCH,ATN    21048
00202D F5F8C23210800300            2060+         DC    CL3'58B',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
002038 18008808                    2061+         DC    X'18',AL3(UCBS152) MASK AND SENSE PTR FOR 3420 21048
00203C 0000000000008000            2062+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   2063+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002050 00008820                    2064+         DC    AL1(0),AL3(UCBW152) MASK AND WK AREA PTR

                                   2066          AGO   .UCB153      TO NEXT UCB
                                   2067 .UCB153 ANOP
                                   2068   IECIUCB 153,58C,AT,56,09,126,4,,32108003,24,0,0,0,,0,0,0,58C,0
002054 0018FF                      2069+UCB153   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
002057 80                          2070+         DC    X'80' STAT 'A'                  20201
002058 058C003809                  2071+         DC    X'058C',AL2(56),XL1'09' FLGS,UA,DEV,ERR
00205D 7E041800                    2072+         DC    AL1(126),AL1(4),XL2'1800' STAT,LCH,ATN    21048
002061 F5F8C33210800300            2073+         DC    CL3'58C',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
00206C 18008838                    2074+         DC    X'18',AL3(UCBS153) MASK AND SENSE PTR FOR 3420 21048
002070 0000000000008000            2075+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   2076+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002084 00008850                    2077+         DC    AL1(0),AL3(UCBW153) MASK AND WK AREA PTR

                                   2079          AGO   .UCB154      TO NEXT UCB
                                   2080 .UCB154 ANOP
                                   2081   IECIUCB 154,58D,AT,56,09,128,4,,32108003,24,0,0,0,,0,0,0,58D,0
002088 0018FF                      2082+UCB154   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
00208B 80                          2083+         DC    X'80' STAT 'A'                  20201
00208C 058D003809                  2084+         DC    X'058D',AL2(56),XL1'09' FLGS,UA,DEV,ERR
002091 80041800                    2085+         DC    AL1(128),AL1(4),XL2'1800' STAT,LCH,ATN    21048
002095 F5F8C43210800300            2086+         DC    CL3'58D',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
0020A0 18008868                    2087+         DC    X'18',AL3(UCBS154) MASK AND SENSE PTR FOR 3420 21048
0020A4 0000000000008000            2088+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   2089+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0020B8 00008880                    2090+         DC    AL1(0),AL3(UCBW154) MASK AND WK AREA PTR

                                   2092          AGO   .UCB155      TO NEXT UCB
                                   2093 .UCB155 ANOP
                                   2094   IECIUCB 155,58E,AT,56,09,130,4,,32108003,24,0,0,0,,0,0,0,58E,0
0020BC 0018FF                      2095+UCB155   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
0020BF 80                          2096+         DC    X'80' STAT 'A'                  20201
0020C0 058E003809                  2097+         DC    X'058E',AL2(56),XL1'09' FLGS,UA,DEV,ERR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0020C5 82041800                    2098+         DC    AL1(130),AL1(4),XL2'1800' STAT,LCH,ATN    21048
0020C9 F5F8C53210800300            2099+         DC    CL3'58E',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
0020D4 18008898                    2100+         DC    X'18',AL3(UCBS155) MASK AND SENSE PTR FOR 3420 21048
0020D8 0000000000008000            2101+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   2102+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0020EC 000088B0                    2103+         DC    AL1(0),AL3(UCBW155) MASK AND WK AREA PTR

                                   2105          AGO   .UCB156      TO NEXT UCB
                                   2106 .UCB156 ANOP
                                   2107   IECIUCB 156,58F,AT,56,09,132,4,,32108003,24,0,0,0,,0,0,0,58F,0
0020F0 0018FF                      2108+UCB156   DC    AL2(24),X'FF' JOBNO,ALLOC MSK, ID       20201
0020F3 80                          2109+         DC    X'80' STAT 'A'                  20201
0020F4 058F003809                  2110+         DC    X'058F',AL2(56),XL1'09' FLGS,UA,DEV,ERR
0020F9 84041800                    2111+         DC    AL1(132),AL1(4),XL2'1800' STAT,LCH,ATN    21048
0020FD F5F8C63210800300            2112+         DC    CL3'58F',XL4'32108003',F'0' UA,DEVTYPE,RQE,SNSE 20201
002108 180088C8                    2113+         DC    X'18',AL3(UCBS156) MASK AND SENSE PTR FOR 3420 21048
00210C 0000000000008000            2114+         DC    XL6'0',XL2'8000',H'0',H'0',2F'0' VOLSER
                                   2115+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002120 000088E0                    2116+         DC    AL1(0),AL3(UCBW156) MASK AND WK AREA PTR

                                   2118          AGO   .UCB157      TO NEXT UCB
                                   2119 .UCB157 ANOP
                                   2120   IECIUCB 157,63F,TA,16,09,134,5,,30048001,0,0,0,0,,0,0,0,63F,0
002124 0000FF                      2121+UCB157   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002127 80                          2122+         DC    X'80' STAT 'A'                  20201
002128 063F001009                  2123+         DC    X'063F',AL2(16),XL1'09' FLGS,UA,DEV,ERR
00212D 86050000                    2124+         DC    AL1(134),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002131 F6F3C63004800100            2125+         DC    CL3'63F',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
00213C 00000000                    2126+         DC    F'0' NORMAL SENSE
002140 0000000000000000            2127+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2128+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002154 000088F8                    2129+         DC    AL1(0),AL3(UCBW157) MASK AND WK AREA PTR

                                   2131          AGO   .UCB158      TO NEXT UCB
                                   2132 .UCB158 ANOP
                                   2133   IECIUCB 158,64F,TA,16,09,136,5,,30048001,0,0,0,0,,0,0,0,64F,0
002158 0000FF                      2134+UCB158   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00215B 80                          2135+         DC    X'80' STAT 'A'                  20201
00215C 064F001009                  2136+         DC    X'064F',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002161 88050000                    2137+         DC    AL1(136),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002165 F6F4C63004800100            2138+         DC    CL3'64F',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002170 00000000                    2139+         DC    F'0' NORMAL SENSE
002174 0000000000000000            2140+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2141+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002188 00008900                    2142+         DC    AL1(0),AL3(UCBW158) MASK AND WK AREA PTR

                                   2144          AGO   .UCB159      TO NEXT UCB
                                   2145 .UCB159 ANOP
                                   2146   IECIUCB 159,65F,TA,16,09,138,5,,30048001,0,0,0,0,,0,0,0,65F,0
00218C 0000FF                      2147+UCB159   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00218F 80                          2148+         DC    X'80' STAT 'A'                  20201
002190 065F001009                  2149+         DC    X'065F',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002195 8A050000                    2150+         DC    AL1(138),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002199 F6F5C63004800100            2151+         DC    CL3'65F',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0021A4 00000000                    2152+         DC    F'0' NORMAL SENSE
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0021A8 0000000000000000            2153+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2154+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0021BC 00008908                    2155+         DC    AL1(0),AL3(UCBW159) MASK AND WK AREA PTR

                                   2157          AGO   .UCB160      TO NEXT UCB
                                   2158 .UCB160 ANOP
                                   2159   IECIUCB 160,660,TA,16,09,140,5,,30048001,0,0,0,0,,0,0,0,660,0
0021C0 0000FF                      2160+UCB160   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0021C3 80                          2161+         DC    X'80' STAT 'A'                  20201
0021C4 0660001009                  2162+         DC    X'0660',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0021C9 8C050000                    2163+         DC    AL1(140),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0021CD F6F6F03004800100            2164+         DC    CL3'660',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0021D8 00000000                    2165+         DC    F'0' NORMAL SENSE
0021DC 0000000000000000            2166+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2167+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0021F0 00008910                    2168+         DC    AL1(0),AL3(UCBW160) MASK AND WK AREA PTR

                                   2170          AGO   .UCB161      TO NEXT UCB
                                   2171 .UCB161 ANOP
                                   2172   IECIUCB 161,661,TA,16,09,142,5,,30048001,0,0,0,0,,0,0,0,661,0
0021F4 0000FF                      2173+UCB161   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0021F7 80                          2174+         DC    X'80' STAT 'A'                  20201
0021F8 0661001009                  2175+         DC    X'0661',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0021FD 8E050000                    2176+         DC    AL1(142),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002201 F6F6F13004800100            2177+         DC    CL3'661',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
00220C 00000000                    2178+         DC    F'0' NORMAL SENSE
002210 0000000000000000            2179+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2180+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002224 00008918                    2181+         DC    AL1(0),AL3(UCBW161) MASK AND WK AREA PTR

                                   2183          AGO   .UCB162      TO NEXT UCB
                                   2184 .UCB162 ANOP
                                   2185   IECIUCB 162,662,TA,16,09,144,5,,30048001,0,0,0,0,,0,0,0,662,0
002228 0000FF                      2186+UCB162   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00222B 80                          2187+         DC    X'80' STAT 'A'                  20201
00222C 0662001009                  2188+         DC    X'0662',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002231 90050000                    2189+         DC    AL1(144),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002235 F6F6F23004800100            2190+         DC    CL3'662',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002240 00000000                    2191+         DC    F'0' NORMAL SENSE
002244 0000000000000000            2192+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2193+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002258 00008920                    2194+         DC    AL1(0),AL3(UCBW162) MASK AND WK AREA PTR

                                   2196          AGO   .UCB163      TO NEXT UCB
                                   2197 .UCB163 ANOP
                                   2198   IECIUCB 163,663,TA,16,09,146,5,,30048001,0,0,0,0,,0,0,0,663,0
00225C 0000FF                      2199+UCB163   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00225F 80                          2200+         DC    X'80' STAT 'A'                  20201
002260 0663001009                  2201+         DC    X'0663',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002265 92050000                    2202+         DC    AL1(146),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002269 F6F6F33004800100            2203+         DC    CL3'663',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002274 00000000                    2204+         DC    F'0' NORMAL SENSE
002278 0000000000000000            2205+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2206+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
00228C 00008928                    2207+         DC    AL1(0),AL3(UCBW163) MASK AND WK AREA PTR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2209          AGO   .UCB164      TO NEXT UCB
                                   2210 .UCB164 ANOP
                                   2211   IECIUCB 164,664,TA,16,09,148,5,,30048001,0,0,0,0,,0,0,0,664,0
002290 0000FF                      2212+UCB164   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002293 80                          2213+         DC    X'80' STAT 'A'                  20201
002294 0664001009                  2214+         DC    X'0664',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002299 94050000                    2215+         DC    AL1(148),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
00229D F6F6F43004800100            2216+         DC    CL3'664',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0022A8 00000000                    2217+         DC    F'0' NORMAL SENSE
0022AC 0000000000000000            2218+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2219+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0022C0 00008930                    2220+         DC    AL1(0),AL3(UCBW164) MASK AND WK AREA PTR

                                   2222          AGO   .UCB165      TO NEXT UCB
                                   2223 .UCB165 ANOP
                                   2224   IECIUCB 165,665,TA,16,09,150,5,,30048001,0,0,0,0,,0,0,0,665,0
0022C4 0000FF                      2225+UCB165   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0022C7 80                          2226+         DC    X'80' STAT 'A'                  20201
0022C8 0665001009                  2227+         DC    X'0665',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0022CD 96050000                    2228+         DC    AL1(150),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0022D1 F6F6F53004800100            2229+         DC    CL3'665',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0022DC 00000000                    2230+         DC    F'0' NORMAL SENSE
0022E0 0000000000000000            2231+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2232+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0022F4 00008938                    2233+         DC    AL1(0),AL3(UCBW165) MASK AND WK AREA PTR

                                   2235          AGO   .UCB166      TO NEXT UCB
                                   2236 .UCB166 ANOP
                                   2237   IECIUCB 166,666,TA,16,09,152,5,,30048001,0,0,0,0,,0,0,0,666,0
0022F8 0000FF                      2238+UCB166   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0022FB 80                          2239+         DC    X'80' STAT 'A'                  20201
0022FC 0666001009                  2240+         DC    X'0666',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002301 98050000                    2241+         DC    AL1(152),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002305 F6F6F63004800100            2242+         DC    CL3'666',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002310 00000000                    2243+         DC    F'0' NORMAL SENSE
002314 0000000000000000            2244+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2245+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002328 00008940                    2246+         DC    AL1(0),AL3(UCBW166) MASK AND WK AREA PTR

                                   2248          AGO   .UCB167      TO NEXT UCB
                                   2249 .UCB167 ANOP
                                   2250   IECIUCB 167,667,TA,16,09,154,5,,30048001,0,0,0,0,,0,0,0,667,0
00232C 0000FF                      2251+UCB167   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00232F 80                          2252+         DC    X'80' STAT 'A'                  20201
002330 0667001009                  2253+         DC    X'0667',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002335 9A050000                    2254+         DC    AL1(154),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002339 F6F6F73004800100            2255+         DC    CL3'667',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002344 00000000                    2256+         DC    F'0' NORMAL SENSE
002348 0000000000000000            2257+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2258+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
00235C 00008948                    2259+         DC    AL1(0),AL3(UCBW167) MASK AND WK AREA PTR

                                   2261          AGO   .UCB168      TO NEXT UCB
                                   2262 .UCB168 ANOP
                                   2263   IECIUCB 168,668,TA,16,09,156,5,,30048001,0,0,0,0,,0,0,0,668,0
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002360 0000FF                      2264+UCB168   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002363 80                          2265+         DC    X'80' STAT 'A'                  20201
002364 0668001009                  2266+         DC    X'0668',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002369 9C050000                    2267+         DC    AL1(156),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
00236D F6F6F83004800100            2268+         DC    CL3'668',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002378 00000000                    2269+         DC    F'0' NORMAL SENSE
00237C 0000000000000000            2270+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2271+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002390 00008950                    2272+         DC    AL1(0),AL3(UCBW168) MASK AND WK AREA PTR

                                   2274          AGO   .UCB169      TO NEXT UCB
                                   2275 .UCB169 ANOP
                                   2276   IECIUCB 169,669,TA,16,09,158,5,,30048001,0,0,0,0,,0,0,0,669,0
002394 0000FF                      2277+UCB169   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002397 80                          2278+         DC    X'80' STAT 'A'                  20201
002398 0669001009                  2279+         DC    X'0669',AL2(16),XL1'09' FLGS,UA,DEV,ERR
00239D 9E050000                    2280+         DC    AL1(158),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0023A1 F6F6F93004800100            2281+         DC    CL3'669',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0023AC 00000000                    2282+         DC    F'0' NORMAL SENSE
0023B0 0000000000000000            2283+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2284+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0023C4 00008958                    2285+         DC    AL1(0),AL3(UCBW169) MASK AND WK AREA PTR

                                   2287          AGO   .UCB170      TO NEXT UCB
                                   2288 .UCB170 ANOP
                                   2289   IECIUCB 170,66A,TA,16,09,160,5,,30048001,0,0,0,0,,0,0,0,66A,0
0023C8 0000FF                      2290+UCB170   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0023CB 80                          2291+         DC    X'80' STAT 'A'                  20201
0023CC 066A001009                  2292+         DC    X'066A',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0023D1 A0050000                    2293+         DC    AL1(160),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0023D5 F6F6C13004800100            2294+         DC    CL3'66A',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0023E0 00000000                    2295+         DC    F'0' NORMAL SENSE
0023E4 0000000000000000            2296+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2297+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0023F8 00008960                    2298+         DC    AL1(0),AL3(UCBW170) MASK AND WK AREA PTR

                                   2300          AGO   .UCB171      TO NEXT UCB
                                   2301 .UCB171 ANOP
                                   2302   IECIUCB 171,66B,TA,16,09,162,5,,30048001,0,0,0,0,,0,0,0,66B,0
0023FC 0000FF                      2303+UCB171   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0023FF 80                          2304+         DC    X'80' STAT 'A'                  20201
002400 066B001009                  2305+         DC    X'066B',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002405 A2050000                    2306+         DC    AL1(162),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002409 F6F6C23004800100            2307+         DC    CL3'66B',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002414 00000000                    2308+         DC    F'0' NORMAL SENSE
002418 0000000000000000            2309+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2310+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
00242C 00008968                    2311+         DC    AL1(0),AL3(UCBW171) MASK AND WK AREA PTR

                                   2313          AGO   .UCB172      TO NEXT UCB
                                   2314 .UCB172 ANOP
                                   2315   IECIUCB 172,66C,TA,16,09,164,5,,30048001,0,0,0,0,,0,0,0,66C,0
002430 0000FF                      2316+UCB172   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002433 80                          2317+         DC    X'80' STAT 'A'                  20201
002434 066C001009                  2318+         DC    X'066C',AL2(16),XL1'09' FLGS,UA,DEV,ERR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002439 A4050000                    2319+         DC    AL1(164),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
00243D F6F6C33004800100            2320+         DC    CL3'66C',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002448 00000000                    2321+         DC    F'0' NORMAL SENSE
00244C 0000000000000000            2322+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2323+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002460 00008970                    2324+         DC    AL1(0),AL3(UCBW172) MASK AND WK AREA PTR

                                   2326          AGO   .UCB173      TO NEXT UCB
                                   2327 .UCB173 ANOP
                                   2328   IECIUCB 173,66D,TA,16,09,166,5,,30048001,0,0,0,0,,0,0,0,66D,0
002464 0000FF                      2329+UCB173   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002467 80                          2330+         DC    X'80' STAT 'A'                  20201
002468 066D001009                  2331+         DC    X'066D',AL2(16),XL1'09' FLGS,UA,DEV,ERR
00246D A6050000                    2332+         DC    AL1(166),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002471 F6F6C43004800100            2333+         DC    CL3'66D',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
00247C 00000000                    2334+         DC    F'0' NORMAL SENSE
002480 0000000000000000            2335+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2336+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002494 00008978                    2337+         DC    AL1(0),AL3(UCBW173) MASK AND WK AREA PTR

                                   2339          AGO   .UCB174      TO NEXT UCB
                                   2340 .UCB174 ANOP
                                   2341   IECIUCB 174,66E,TA,16,09,168,5,,30048001,0,0,0,0,,0,0,0,66E,0
002498 0000FF                      2342+UCB174   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00249B 80                          2343+         DC    X'80' STAT 'A'                  20201
00249C 066E001009                  2344+         DC    X'066E',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0024A1 A8050000                    2345+         DC    AL1(168),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0024A5 F6F6C53004800100            2346+         DC    CL3'66E',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0024B0 00000000                    2347+         DC    F'0' NORMAL SENSE
0024B4 0000000000000000            2348+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2349+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0024C8 00008980                    2350+         DC    AL1(0),AL3(UCBW174) MASK AND WK AREA PTR

                                   2352          AGO   .UCB175      TO NEXT UCB
                                   2353 .UCB175 ANOP
                                   2354   IECIUCB 175,66F,TA,16,09,170,5,,30048001,0,0,0,0,,0,0,0,66F,0
0024CC 0000FF                      2355+UCB175   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0024CF 80                          2356+         DC    X'80' STAT 'A'                  20201
0024D0 066F001009                  2357+         DC    X'066F',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0024D5 AA050000                    2358+         DC    AL1(170),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0024D9 F6F6C63004800100            2359+         DC    CL3'66F',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0024E4 00000000                    2360+         DC    F'0' NORMAL SENSE
0024E8 0000000000000000            2361+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2362+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0024FC 00008988                    2363+         DC    AL1(0),AL3(UCBW175) MASK AND WK AREA PTR

                                   2365          AGO   .UCB176      TO NEXT UCB
                                   2366 .UCB176 ANOP
                                   2367   IECIUCB 176,670,TA,16,09,172,5,,30048001,0,0,0,0,,0,0,0,670,0
002500 0000FF                      2368+UCB176   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002503 80                          2369+         DC    X'80' STAT 'A'                  20201
002504 0670001009                  2370+         DC    X'0670',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002509 AC050000                    2371+         DC    AL1(172),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
00250D F6F7F03004800100            2372+         DC    CL3'670',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002518 00000000                    2373+         DC    F'0' NORMAL SENSE
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00251C 0000000000000000            2374+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2375+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002530 00008990                    2376+         DC    AL1(0),AL3(UCBW176) MASK AND WK AREA PTR

                                   2378          AGO   .UCB177      TO NEXT UCB
                                   2379 .UCB177 ANOP
                                   2380   IECIUCB 177,671,TA,16,09,174,5,,30048001,0,0,0,0,,0,0,0,671,0
002534 0000FF                      2381+UCB177   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002537 80                          2382+         DC    X'80' STAT 'A'                  20201
002538 0671001009                  2383+         DC    X'0671',AL2(16),XL1'09' FLGS,UA,DEV,ERR
00253D AE050000                    2384+         DC    AL1(174),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002541 F6F7F13004800100            2385+         DC    CL3'671',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
00254C 00000000                    2386+         DC    F'0' NORMAL SENSE
002550 0000000000000000            2387+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2388+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002564 00008998                    2389+         DC    AL1(0),AL3(UCBW177) MASK AND WK AREA PTR

                                   2391          AGO   .UCB178      TO NEXT UCB
                                   2392 .UCB178 ANOP
                                   2393   IECIUCB 178,672,TA,16,09,176,5,,30048001,0,0,0,0,,0,0,0,672,0
002568 0000FF                      2394+UCB178   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00256B 80                          2395+         DC    X'80' STAT 'A'                  20201
00256C 0672001009                  2396+         DC    X'0672',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002571 B0050000                    2397+         DC    AL1(176),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002575 F6F7F23004800100            2398+         DC    CL3'672',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002580 00000000                    2399+         DC    F'0' NORMAL SENSE
002584 0000000000000000            2400+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2401+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002598 000089A0                    2402+         DC    AL1(0),AL3(UCBW178) MASK AND WK AREA PTR

                                   2404          AGO   .UCB179      TO NEXT UCB
                                   2405 .UCB179 ANOP
                                   2406   IECIUCB 179,673,TA,16,09,178,5,,30048001,0,0,0,0,,0,0,0,673,0
00259C 0000FF                      2407+UCB179   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00259F 80                          2408+         DC    X'80' STAT 'A'                  20201
0025A0 0673001009                  2409+         DC    X'0673',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0025A5 B2050000                    2410+         DC    AL1(178),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0025A9 F6F7F33004800100            2411+         DC    CL3'673',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0025B4 00000000                    2412+         DC    F'0' NORMAL SENSE
0025B8 0000000000000000            2413+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2414+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0025CC 000089A8                    2415+         DC    AL1(0),AL3(UCBW179) MASK AND WK AREA PTR

                                   2417          AGO   .UCB180      TO NEXT UCB
                                   2418 .UCB180 ANOP
                                   2419   IECIUCB 180,674,TA,16,09,180,5,,30048001,0,0,0,0,,0,0,0,674,0
0025D0 0000FF                      2420+UCB180   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0025D3 80                          2421+         DC    X'80' STAT 'A'                  20201
0025D4 0674001009                  2422+         DC    X'0674',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0025D9 B4050000                    2423+         DC    AL1(180),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0025DD F6F7F43004800100            2424+         DC    CL3'674',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0025E8 00000000                    2425+         DC    F'0' NORMAL SENSE
0025EC 0000000000000000            2426+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2427+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002600 000089B0                    2428+         DC    AL1(0),AL3(UCBW180) MASK AND WK AREA PTR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2430          AGO   .UCB181      TO NEXT UCB
                                   2431 .UCB181 ANOP
                                   2432   IECIUCB 181,675,TA,16,09,182,5,,30048001,0,0,0,0,,0,0,0,675,0
002604 0000FF                      2433+UCB181   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002607 80                          2434+         DC    X'80' STAT 'A'                  20201
002608 0675001009                  2435+         DC    X'0675',AL2(16),XL1'09' FLGS,UA,DEV,ERR
00260D B6050000                    2436+         DC    AL1(182),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002611 F6F7F53004800100            2437+         DC    CL3'675',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
00261C 00000000                    2438+         DC    F'0' NORMAL SENSE
002620 0000000000000000            2439+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2440+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002634 000089B8                    2441+         DC    AL1(0),AL3(UCBW181) MASK AND WK AREA PTR

                                   2443          AGO   .UCB182      TO NEXT UCB
                                   2444 .UCB182 ANOP
                                   2445   IECIUCB 182,676,TA,16,09,184,5,,30048001,0,0,0,0,,0,0,0,676,0
002638 0000FF                      2446+UCB182   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00263B 80                          2447+         DC    X'80' STAT 'A'                  20201
00263C 0676001009                  2448+         DC    X'0676',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002641 B8050000                    2449+         DC    AL1(184),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002645 F6F7F63004800100            2450+         DC    CL3'676',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002650 00000000                    2451+         DC    F'0' NORMAL SENSE
002654 0000000000000000            2452+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2453+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002668 000089C0                    2454+         DC    AL1(0),AL3(UCBW182) MASK AND WK AREA PTR

                                   2456          AGO   .UCB183      TO NEXT UCB
                                   2457 .UCB183 ANOP
                                   2458   IECIUCB 183,677,TA,16,09,186,5,,30048001,0,0,0,0,,0,0,0,677,0
00266C 0000FF                      2459+UCB183   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00266F 80                          2460+         DC    X'80' STAT 'A'                  20201
002670 0677001009                  2461+         DC    X'0677',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002675 BA050000                    2462+         DC    AL1(186),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002679 F6F7F73004800100            2463+         DC    CL3'677',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002684 00000000                    2464+         DC    F'0' NORMAL SENSE
002688 0000000000000000            2465+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2466+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
00269C 000089C8                    2467+         DC    AL1(0),AL3(UCBW183) MASK AND WK AREA PTR

                                   2469          AGO   .UCB184      TO NEXT UCB
                                   2470 .UCB184 ANOP
                                   2471   IECIUCB 184,678,TA,16,09,188,5,,30048001,0,0,0,0,,0,0,0,678,0
0026A0 0000FF                      2472+UCB184   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0026A3 80                          2473+         DC    X'80' STAT 'A'                  20201
0026A4 0678001009                  2474+         DC    X'0678',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0026A9 BC050000                    2475+         DC    AL1(188),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0026AD F6F7F83004800100            2476+         DC    CL3'678',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0026B8 00000000                    2477+         DC    F'0' NORMAL SENSE
0026BC 0000000000000000            2478+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2479+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0026D0 000089D0                    2480+         DC    AL1(0),AL3(UCBW184) MASK AND WK AREA PTR

                                   2482          AGO   .UCB185      TO NEXT UCB
                                   2483 .UCB185 ANOP
                                   2484   IECIUCB 185,679,TA,16,09,190,5,,30048001,0,0,0,0,,0,0,0,679,0
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0026D4 0000FF                      2485+UCB185   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0026D7 80                          2486+         DC    X'80' STAT 'A'                  20201
0026D8 0679001009                  2487+         DC    X'0679',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0026DD BE050000                    2488+         DC    AL1(190),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0026E1 F6F7F93004800100            2489+         DC    CL3'679',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0026EC 00000000                    2490+         DC    F'0' NORMAL SENSE
0026F0 0000000000000000            2491+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2492+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002704 000089D8                    2493+         DC    AL1(0),AL3(UCBW185) MASK AND WK AREA PTR

                                   2495          AGO   .UCB186      TO NEXT UCB
                                   2496 .UCB186 ANOP
                                   2497   IECIUCB 186,67A,TA,16,09,192,5,,30048001,0,0,0,0,,0,0,0,67A,0
002708 0000FF                      2498+UCB186   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00270B 80                          2499+         DC    X'80' STAT 'A'                  20201
00270C 067A001009                  2500+         DC    X'067A',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002711 C0050000                    2501+         DC    AL1(192),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002715 F6F7C13004800100            2502+         DC    CL3'67A',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002720 00000000                    2503+         DC    F'0' NORMAL SENSE
002724 0000000000000000            2504+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2505+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002738 000089E0                    2506+         DC    AL1(0),AL3(UCBW186) MASK AND WK AREA PTR

                                   2508          AGO   .UCB187      TO NEXT UCB
                                   2509 .UCB187 ANOP
                                   2510   IECIUCB 187,67B,TA,16,09,194,5,,30048001,0,0,0,0,,0,0,0,67B,0
00273C 0000FF                      2511+UCB187   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00273F 80                          2512+         DC    X'80' STAT 'A'                  20201
002740 067B001009                  2513+         DC    X'067B',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002745 C2050000                    2514+         DC    AL1(194),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002749 F6F7C23004800100            2515+         DC    CL3'67B',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002754 00000000                    2516+         DC    F'0' NORMAL SENSE
002758 0000000000000000            2517+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2518+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
00276C 000089E8                    2519+         DC    AL1(0),AL3(UCBW187) MASK AND WK AREA PTR

                                   2521          AGO   .UCB188      TO NEXT UCB
                                   2522 .UCB188 ANOP
                                   2523   IECIUCB 188,67C,TA,16,09,196,5,,30048001,0,0,0,0,,0,0,0,67C,0
002770 0000FF                      2524+UCB188   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002773 80                          2525+         DC    X'80' STAT 'A'                  20201
002774 067C001009                  2526+         DC    X'067C',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002779 C4050000                    2527+         DC    AL1(196),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
00277D F6F7C33004800100            2528+         DC    CL3'67C',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002788 00000000                    2529+         DC    F'0' NORMAL SENSE
00278C 0000000000000000            2530+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2531+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0027A0 000089F0                    2532+         DC    AL1(0),AL3(UCBW188) MASK AND WK AREA PTR

                                   2534          AGO   .UCB189      TO NEXT UCB
                                   2535 .UCB189 ANOP
                                   2536   IECIUCB 189,67D,TA,16,09,198,5,,30048001,0,0,0,0,,0,0,0,67D,0
0027A4 0000FF                      2537+UCB189   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0027A7 80                          2538+         DC    X'80' STAT 'A'                  20201
0027A8 067D001009                  2539+         DC    X'067D',AL2(16),XL1'09' FLGS,UA,DEV,ERR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0027AD C6050000                    2540+         DC    AL1(198),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0027B1 F6F7C43004800100            2541+         DC    CL3'67D',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0027BC 00000000                    2542+         DC    F'0' NORMAL SENSE
0027C0 0000000000000000            2543+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2544+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0027D4 000089F8                    2545+         DC    AL1(0),AL3(UCBW189) MASK AND WK AREA PTR

                                   2547          AGO   .UCB190      TO NEXT UCB
                                   2548 .UCB190 ANOP
                                   2549   IECIUCB 190,67E,TA,16,09,200,5,,30048001,0,0,0,0,,0,0,0,67E,0
0027D8 0000FF                      2550+UCB190   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0027DB 80                          2551+         DC    X'80' STAT 'A'                  20201
0027DC 067E001009                  2552+         DC    X'067E',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0027E1 C8050000                    2553+         DC    AL1(200),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0027E5 F6F7C53004800100            2554+         DC    CL3'67E',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0027F0 00000000                    2555+         DC    F'0' NORMAL SENSE
0027F4 0000000000000000            2556+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2557+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002808 00008A00                    2558+         DC    AL1(0),AL3(UCBW190) MASK AND WK AREA PTR

                                   2560          AGO   .UCB191      TO NEXT UCB
                                   2561 .UCB191 ANOP
                                   2562   IECIUCB 191,67F,TA,16,09,202,5,,30048001,0,0,0,0,,0,0,0,67F,0
00280C 0000FF                      2563+UCB191   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00280F 80                          2564+         DC    X'80' STAT 'A'                  20201
002810 067F001009                  2565+         DC    X'067F',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002815 CA050000                    2566+         DC    AL1(202),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002819 F6F7C63004800100            2567+         DC    CL3'67F',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002824 00000000                    2568+         DC    F'0' NORMAL SENSE
002828 0000000000000000            2569+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2570+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
00283C 00008A08                    2571+         DC    AL1(0),AL3(UCBW191) MASK AND WK AREA PTR

                                   2573          AGO   .UCB192      TO NEXT UCB
                                   2574 .UCB192 ANOP
                                   2575   IECIUCB 192,680,TA,16,09,204,5,,30048001,0,0,0,0,,0,0,0,680,0
002840 0000FF                      2576+UCB192   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002843 80                          2577+         DC    X'80' STAT 'A'                  20201
002844 0680001009                  2578+         DC    X'0680',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002849 CC050000                    2579+         DC    AL1(204),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
00284D F6F8F03004800100            2580+         DC    CL3'680',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002858 00000000                    2581+         DC    F'0' NORMAL SENSE
00285C 0000000000000000            2582+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2583+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002870 00008A10                    2584+         DC    AL1(0),AL3(UCBW192) MASK AND WK AREA PTR

                                   2586          AGO   .UCB193      TO NEXT UCB
                                   2587 .UCB193 ANOP
                                   2588   IECIUCB 193,681,TA,16,09,206,5,,30048001,0,0,0,0,,0,0,0,681,0
002874 0000FF                      2589+UCB193   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002877 80                          2590+         DC    X'80' STAT 'A'                  20201
002878 0681001009                  2591+         DC    X'0681',AL2(16),XL1'09' FLGS,UA,DEV,ERR
00287D CE050000                    2592+         DC    AL1(206),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002881 F6F8F13004800100            2593+         DC    CL3'681',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
00288C 00000000                    2594+         DC    F'0' NORMAL SENSE
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002890 0000000000000000            2595+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2596+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0028A4 00008A18                    2597+         DC    AL1(0),AL3(UCBW193) MASK AND WK AREA PTR

                                   2599          AGO   .UCB194      TO NEXT UCB
                                   2600 .UCB194 ANOP
                                   2601   IECIUCB 194,682,TA,16,09,208,5,,30048001,0,0,0,0,,0,0,0,682,0
0028A8 0000FF                      2602+UCB194   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0028AB 80                          2603+         DC    X'80' STAT 'A'                  20201
0028AC 0682001009                  2604+         DC    X'0682',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0028B1 D0050000                    2605+         DC    AL1(208),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0028B5 F6F8F23004800100            2606+         DC    CL3'682',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0028C0 00000000                    2607+         DC    F'0' NORMAL SENSE
0028C4 0000000000000000            2608+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2609+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0028D8 00008A20                    2610+         DC    AL1(0),AL3(UCBW194) MASK AND WK AREA PTR

                                   2612          AGO   .UCB195      TO NEXT UCB
                                   2613 .UCB195 ANOP
                                   2614   IECIUCB 195,683,TA,16,09,210,5,,30048001,0,0,0,0,,0,0,0,683,0
0028DC 0000FF                      2615+UCB195   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0028DF 80                          2616+         DC    X'80' STAT 'A'                  20201
0028E0 0683001009                  2617+         DC    X'0683',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0028E5 D2050000                    2618+         DC    AL1(210),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0028E9 F6F8F33004800100            2619+         DC    CL3'683',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0028F4 00000000                    2620+         DC    F'0' NORMAL SENSE
0028F8 0000000000000000            2621+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2622+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
00290C 00008A28                    2623+         DC    AL1(0),AL3(UCBW195) MASK AND WK AREA PTR

                                   2625          AGO   .UCB196      TO NEXT UCB
                                   2626 .UCB196 ANOP
                                   2627   IECIUCB 196,684,TA,16,09,212,5,,30048001,0,0,0,0,,0,0,0,684,0
002910 0000FF                      2628+UCB196   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002913 80                          2629+         DC    X'80' STAT 'A'                  20201
002914 0684001009                  2630+         DC    X'0684',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002919 D4050000                    2631+         DC    AL1(212),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
00291D F6F8F43004800100            2632+         DC    CL3'684',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002928 00000000                    2633+         DC    F'0' NORMAL SENSE
00292C 0000000000000000            2634+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2635+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002940 00008A30                    2636+         DC    AL1(0),AL3(UCBW196) MASK AND WK AREA PTR

                                   2638          AGO   .UCB197      TO NEXT UCB
                                   2639 .UCB197 ANOP
                                   2640   IECIUCB 197,685,TA,16,09,214,5,,30048001,0,0,0,0,,0,0,0,685,0
002944 0000FF                      2641+UCB197   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002947 80                          2642+         DC    X'80' STAT 'A'                  20201
002948 0685001009                  2643+         DC    X'0685',AL2(16),XL1'09' FLGS,UA,DEV,ERR
00294D D6050000                    2644+         DC    AL1(214),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002951 F6F8F53004800100            2645+         DC    CL3'685',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
00295C 00000000                    2646+         DC    F'0' NORMAL SENSE
002960 0000000000000000            2647+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2648+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002974 00008A38                    2649+         DC    AL1(0),AL3(UCBW197) MASK AND WK AREA PTR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2651          AGO   .UCB198      TO NEXT UCB
                                   2652 .UCB198 ANOP
                                   2653   IECIUCB 198,686,TA,16,09,216,5,,30048001,0,0,0,0,,0,0,0,686,0
002978 0000FF                      2654+UCB198   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00297B 80                          2655+         DC    X'80' STAT 'A'                  20201
00297C 0686001009                  2656+         DC    X'0686',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002981 D8050000                    2657+         DC    AL1(216),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002985 F6F8F63004800100            2658+         DC    CL3'686',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002990 00000000                    2659+         DC    F'0' NORMAL SENSE
002994 0000000000000000            2660+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2661+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0029A8 00008A40                    2662+         DC    AL1(0),AL3(UCBW198) MASK AND WK AREA PTR

                                   2664          AGO   .UCB199      TO NEXT UCB
                                   2665 .UCB199 ANOP
                                   2666   IECIUCB 199,687,TA,16,09,218,5,,30048001,0,0,0,0,,0,0,0,687,0
0029AC 0000FF                      2667+UCB199   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0029AF 80                          2668+         DC    X'80' STAT 'A'                  20201
0029B0 0687001009                  2669+         DC    X'0687',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0029B5 DA050000                    2670+         DC    AL1(218),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0029B9 F6F8F73004800100            2671+         DC    CL3'687',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0029C4 00000000                    2672+         DC    F'0' NORMAL SENSE
0029C8 0000000000000000            2673+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2674+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
0029DC 00008A48                    2675+         DC    AL1(0),AL3(UCBW199) MASK AND WK AREA PTR

                                   2677          AGO   .UCB200      TO NEXT UCB
                                   2678 .UCB200 ANOP
                                   2679   IECIUCB 200,688,TA,16,09,220,5,,30048001,0,0,0,0,,0,0,0,688,0
0029E0 0000FF                      2680+UCB200   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0029E3 80                          2681+         DC    X'80' STAT 'A'                  20201
0029E4 0688001009                  2682+         DC    X'0688',AL2(16),XL1'09' FLGS,UA,DEV,ERR
0029E9 DC050000                    2683+         DC    AL1(220),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
0029ED F6F8F83004800100            2684+         DC    CL3'688',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
0029F8 00000000                    2685+         DC    F'0' NORMAL SENSE
0029FC 0000000000000000            2686+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2687+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002A10 00008A50                    2688+         DC    AL1(0),AL3(UCBW200) MASK AND WK AREA PTR

                                   2690          AGO   .UCB201      TO NEXT UCB
                                   2691 .UCB201 ANOP
                                   2692   IECIUCB 201,689,TA,16,09,222,5,,30048001,0,0,0,0,,0,0,0,689,0
002A14 0000FF                      2693+UCB201   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002A17 80                          2694+         DC    X'80' STAT 'A'                  20201
002A18 0689001009                  2695+         DC    X'0689',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002A1D DE050000                    2696+         DC    AL1(222),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002A21 F6F8F93004800100            2697+         DC    CL3'689',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002A2C 00000000                    2698+         DC    F'0' NORMAL SENSE
002A30 0000000000000000            2699+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2700+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002A44 00008A58                    2701+         DC    AL1(0),AL3(UCBW201) MASK AND WK AREA PTR

                                   2703          AGO   .UCB202      TO NEXT UCB
                                   2704 .UCB202 ANOP
                                   2705   IECIUCB 202,68A,TA,16,09,224,5,,30048001,0,0,0,0,,0,0,0,68A,0
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002A48 0000FF                      2706+UCB202   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002A4B 80                          2707+         DC    X'80' STAT 'A'                  20201
002A4C 068A001009                  2708+         DC    X'068A',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002A51 E0050000                    2709+         DC    AL1(224),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002A55 F6F8C13004800100            2710+         DC    CL3'68A',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002A60 00000000                    2711+         DC    F'0' NORMAL SENSE
002A64 0000000000000000            2712+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2713+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002A78 00008A60                    2714+         DC    AL1(0),AL3(UCBW202) MASK AND WK AREA PTR

                                   2716          AGO   .UCB203      TO NEXT UCB
                                   2717 .UCB203 ANOP
                                   2718   IECIUCB 203,68B,TA,16,09,226,5,,30048001,0,0,0,0,,0,0,0,68B,0
002A7C 0000FF                      2719+UCB203   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002A7F 80                          2720+         DC    X'80' STAT 'A'                  20201
002A80 068B001009                  2721+         DC    X'068B',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002A85 E2050000                    2722+         DC    AL1(226),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002A89 F6F8C23004800100            2723+         DC    CL3'68B',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002A94 00000000                    2724+         DC    F'0' NORMAL SENSE
002A98 0000000000000000            2725+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2726+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002AAC 00008A68                    2727+         DC    AL1(0),AL3(UCBW203) MASK AND WK AREA PTR

                                   2729          AGO   .UCB204      TO NEXT UCB
                                   2730 .UCB204 ANOP
                                   2731   IECIUCB 204,68C,TA,16,09,228,5,,30048001,0,0,0,0,,0,0,0,68C,0
002AB0 0000FF                      2732+UCB204   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002AB3 80                          2733+         DC    X'80' STAT 'A'                  20201
002AB4 068C001009                  2734+         DC    X'068C',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002AB9 E4050000                    2735+         DC    AL1(228),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002ABD F6F8C33004800100            2736+         DC    CL3'68C',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002AC8 00000000                    2737+         DC    F'0' NORMAL SENSE
002ACC 0000000000000000            2738+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2739+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002AE0 00008A70                    2740+         DC    AL1(0),AL3(UCBW204) MASK AND WK AREA PTR

                                   2742          AGO   .UCB205      TO NEXT UCB
                                   2743 .UCB205 ANOP
                                   2744   IECIUCB 205,68D,TA,16,09,230,5,,30048001,0,0,0,0,,0,0,0,68D,0
002AE4 0000FF                      2745+UCB205   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002AE7 80                          2746+         DC    X'80' STAT 'A'                  20201
002AE8 068D001009                  2747+         DC    X'068D',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002AED E6050000                    2748+         DC    AL1(230),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002AF1 F6F8C43004800100            2749+         DC    CL3'68D',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002AFC 00000000                    2750+         DC    F'0' NORMAL SENSE
002B00 0000000000000000            2751+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2752+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002B14 00008A78                    2753+         DC    AL1(0),AL3(UCBW205) MASK AND WK AREA PTR

                                   2755          AGO   .UCB206      TO NEXT UCB
                                   2756 .UCB206 ANOP
                                   2757   IECIUCB 206,68E,TA,16,09,232,5,,30048001,0,0,0,0,,0,0,0,68E,0
002B18 0000FF                      2758+UCB206   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002B1B 80                          2759+         DC    X'80' STAT 'A'                  20201
002B1C 068E001009                  2760+         DC    X'068E',AL2(16),XL1'09' FLGS,UA,DEV,ERR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002B21 E8050000                    2761+         DC    AL1(232),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002B25 F6F8C53004800100            2762+         DC    CL3'68E',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002B30 00000000                    2763+         DC    F'0' NORMAL SENSE
002B34 0000000000000000            2764+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2765+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002B48 00008A80                    2766+         DC    AL1(0),AL3(UCBW206) MASK AND WK AREA PTR

                                   2768          AGO   .UCB207      TO NEXT UCB
                                   2769 .UCB207 ANOP
                                   2770   IECIUCB 207,68F,TA,16,09,234,5,,30048001,0,0,0,0,,0,0,0,68F,0
002B4C 0000FF                      2771+UCB207   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002B4F 80                          2772+         DC    X'80' STAT 'A'                  20201
002B50 068F001009                  2773+         DC    X'068F',AL2(16),XL1'09' FLGS,UA,DEV,ERR
002B55 EA050000                    2774+         DC    AL1(234),AL1(5),XL2'0' STAT,LCH,ATN,CHNMSK
002B59 F6F8C63004800100            2775+         DC    CL3'68F',XL4'30048001',F'0' UA,DEVTYPE,RQE,SNSE 20201
002B64 00000000                    2776+         DC    F'0' NORMAL SENSE
002B68 0000000000000000            2777+         DC    XL6'0',XL2'0',H'0',H'0',2F'0' VOLSER
                                   2778+*              STATAB & DMCT, FILE SEQ CT, FILE SEQ NO, DS SERNO  19023
002B7C 00008A88                    2779+         DC    AL1(0),AL3(UCBW207) MASK AND WK AREA PTR

                                   2781          AGO   .UCB208      TO NEXT UCB
                                   2782 .UCB208 ANOP
                                   2783   IECIUCB 208,700,SUD,72,00,236,6,,50000801,0,0,0,0,,0,0,0,700,0
002B80 0000FF                      2784+UCB208   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002B83 80                          2785+         DC    X'80' STAT 'A'                  20201
002B84 0700004800                  2786+         DC    X'0700',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002B89 EC060100                    2787+         DC    AL1(236,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002B8D F7F0F05000080100            2788+         DC    CL3'700',XL4'50000801',F'0' * @THAS802

                                   2790          AGO   .UCB209      TO NEXT UCB
                                   2791 .UCB209 ANOP
                                   2792   IECIUCB 209,701,SUD,72,00,237,6,,50000801,0,0,0,0,,0,0,0,701,0
002B98 0000FF                      2793+UCB209   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002B9B 80                          2794+         DC    X'80' STAT 'A'                  20201
002B9C 0701004800                  2795+         DC    X'0701',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002BA1 ED060100                    2796+         DC    AL1(237,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002BA5 F7F0F15000080100            2797+         DC    CL3'701',XL4'50000801',F'0' * @THAS802

                                   2799          AGO   .UCB210      TO NEXT UCB
                                   2800 .UCB210 ANOP
                                   2801   IECIUCB 210,702,SUD,72,00,238,6,,50000801,0,0,0,0,,0,0,0,702,0
002BB0 0000FF                      2802+UCB210   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002BB3 80                          2803+         DC    X'80' STAT 'A'                  20201
002BB4 0702004800                  2804+         DC    X'0702',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002BB9 EE060100                    2805+         DC    AL1(238,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002BBD F7F0F25000080100            2806+         DC    CL3'702',XL4'50000801',F'0' * @THAS802

                                   2808          AGO   .UCB211      TO NEXT UCB
                                   2809 .UCB211 ANOP
                                   2810   IECIUCB 211,703,SUD,72,00,239,6,,50000801,0,0,0,0,,0,0,0,703,0
002BC8 0000FF                      2811+UCB211   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002BCB 80                          2812+         DC    X'80' STAT 'A'                  20201
002BCC 0703004800                  2813+         DC    X'0703',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002BD1 EF060100                    2814+         DC    AL1(239,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002BD5 F7F0F35000080100            2815+         DC    CL3'703',XL4'50000801',F'0' * @THAS802
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2817          AGO   .UCB212      TO NEXT UCB
                                   2818 .UCB212 ANOP
                                   2819   IECIUCB 212,704,SUD,72,00,240,6,,50000801,0,0,0,0,,0,0,0,704,0
002BE0 0000FF                      2820+UCB212   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002BE3 80                          2821+         DC    X'80' STAT 'A'                  20201
002BE4 0704004800                  2822+         DC    X'0704',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002BE9 F0060100                    2823+         DC    AL1(240,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002BED F7F0F45000080100            2824+         DC    CL3'704',XL4'50000801',F'0' * @THAS802

                                   2826          AGO   .UCB213      TO NEXT UCB
                                   2827 .UCB213 ANOP
                                   2828   IECIUCB 213,705,SUD,72,00,241,6,,50000801,0,0,0,0,,0,0,0,705,0
002BF8 0000FF                      2829+UCB213   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002BFB 80                          2830+         DC    X'80' STAT 'A'                  20201
002BFC 0705004800                  2831+         DC    X'0705',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002C01 F1060100                    2832+         DC    AL1(241,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002C05 F7F0F55000080100            2833+         DC    CL3'705',XL4'50000801',F'0' * @THAS802

                                   2835          AGO   .UCB214      TO NEXT UCB
                                   2836 .UCB214 ANOP
                                   2837   IECIUCB 214,706,SUD,72,00,242,6,,50000801,0,0,0,0,,0,0,0,706,0
002C10 0000FF                      2838+UCB214   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002C13 80                          2839+         DC    X'80' STAT 'A'                  20201
002C14 0706004800                  2840+         DC    X'0706',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002C19 F2060100                    2841+         DC    AL1(242,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002C1D F7F0F65000080100            2842+         DC    CL3'706',XL4'50000801',F'0' * @THAS802

                                   2844          AGO   .UCB215      TO NEXT UCB
                                   2845 .UCB215 ANOP
                                   2846   IECIUCB 215,707,SUD,72,00,243,6,,50000801,0,0,0,0,,0,0,0,707,0
002C28 0000FF                      2847+UCB215   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002C2B 80                          2848+         DC    X'80' STAT 'A'                  20201
002C2C 0707004800                  2849+         DC    X'0707',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002C31 F3060100                    2850+         DC    AL1(243,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002C35 F7F0F75000080100            2851+         DC    CL3'707',XL4'50000801',F'0' * @THAS802

                                   2853          AGO   .UCB216      TO NEXT UCB
                                   2854 .UCB216 ANOP
                                   2855   IECIUCB 216,708,SUD,72,00,244,6,,50000801,0,0,0,0,,0,0,0,708,0
002C40 0000FF                      2856+UCB216   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002C43 80                          2857+         DC    X'80' STAT 'A'                  20201
002C44 0708004800                  2858+         DC    X'0708',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002C49 F4060100                    2859+         DC    AL1(244,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002C4D F7F0F85000080100            2860+         DC    CL3'708',XL4'50000801',F'0' * @THAS802

                                   2862          AGO   .UCB217      TO NEXT UCB
                                   2863 .UCB217 ANOP
                                   2864   IECIUCB 217,709,SUD,72,00,245,6,,50000801,0,0,0,0,,0,0,0,709,0
002C58 0000FF                      2865+UCB217   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002C5B 80                          2866+         DC    X'80' STAT 'A'                  20201
002C5C 0709004800                  2867+         DC    X'0709',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002C61 F5060100                    2868+         DC    AL1(245,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002C65 F7F0F95000080100            2869+         DC    CL3'709',XL4'50000801',F'0' * @THAS802

                                   2871          AGO   .UCB218      TO NEXT UCB
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2872 .UCB218 ANOP
                                   2873   IECIUCB 218,70A,SUD,72,00,246,6,,50000801,0,0,0,0,,0,0,0,70A,0
002C70 0000FF                      2874+UCB218   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002C73 80                          2875+         DC    X'80' STAT 'A'                  20201
002C74 070A004800                  2876+         DC    X'070A',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002C79 F6060100                    2877+         DC    AL1(246,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002C7D F7F0C15000080100            2878+         DC    CL3'70A',XL4'50000801',F'0' * @THAS802

                                   2880          AGO   .UCB219      TO NEXT UCB
                                   2881 .UCB219 ANOP
                                   2882   IECIUCB 219,70B,SUD,72,00,247,6,,50000801,0,0,0,0,,0,0,0,70B,0
002C88 0000FF                      2883+UCB219   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002C8B 80                          2884+         DC    X'80' STAT 'A'                  20201
002C8C 070B004800                  2885+         DC    X'070B',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002C91 F7060100                    2886+         DC    AL1(247,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002C95 F7F0C25000080100            2887+         DC    CL3'70B',XL4'50000801',F'0' * @THAS802

                                   2889          AGO   .UCB220      TO NEXT UCB
                                   2890 .UCB220 ANOP
                                   2891   IECIUCB 220,70C,SUD,72,00,248,6,,50000801,0,0,0,0,,0,0,0,70C,0
002CA0 0000FF                      2892+UCB220   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002CA3 80                          2893+         DC    X'80' STAT 'A'                  20201
002CA4 070C004800                  2894+         DC    X'070C',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002CA9 F8060100                    2895+         DC    AL1(248,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002CAD F7F0C35000080100            2896+         DC    CL3'70C',XL4'50000801',F'0' * @THAS802

                                   2898          AGO   .UCB221      TO NEXT UCB
                                   2899 .UCB221 ANOP
                                   2900   IECIUCB 221,70D,SUD,72,00,249,6,,50000801,0,0,0,0,,0,0,0,70D,0
002CB8 0000FF                      2901+UCB221   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002CBB 80                          2902+         DC    X'80' STAT 'A'                  20201
002CBC 070D004800                  2903+         DC    X'070D',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002CC1 F9060100                    2904+         DC    AL1(249,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002CC5 F7F0C45000080100            2905+         DC    CL3'70D',XL4'50000801',F'0' * @THAS802

                                   2907          AGO   .UCB222      TO NEXT UCB
                                   2908 .UCB222 ANOP
                                   2909   IECIUCB 222,70E,SUD,72,00,250,6,,50000801,0,0,0,0,,0,0,0,70E,0
002CD0 0000FF                      2910+UCB222   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002CD3 80                          2911+         DC    X'80' STAT 'A'                  20201
002CD4 070E004800                  2912+         DC    X'070E',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002CD9 FA060100                    2913+         DC    AL1(250,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002CDD F7F0C55000080100            2914+         DC    CL3'70E',XL4'50000801',F'0' * @THAS802

                                   2916          AGO   .UCB223      TO NEXT UCB
                                   2917 .UCB223 ANOP
                                   2918   IECIUCB 223,70F,SUD,72,00,251,6,,50000801,0,0,0,0,,0,0,0,70F,0
002CE8 0000FF                      2919+UCB223   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002CEB 80                          2920+         DC    X'80' STAT 'A'                  20201
002CEC 070F004800                  2921+         DC    X'070F',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002CF1 FB060100                    2922+         DC    AL1(251,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002CF5 F7F0C65000080100            2923+         DC    CL3'70F',XL4'50000801',F'0' * @THAS802

                                   2925          AGO   .UCB224      TO NEXT UCB
                                   2926 .UCB224 ANOP
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2927   IECIUCB 224,720,SUD,72,00,252,6,,50000808,0,0,0,0,,0,0,0,720,0
002D00 0000FF                      2928+UCB224   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002D03 80                          2929+         DC    X'80' STAT 'A'                  20201
002D04 0720004800                  2930+         DC    X'0720',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002D09 FC060100                    2931+         DC    AL1(252,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002D0D F7F2F05000080800            2932+         DC    CL3'720',XL4'50000808',F'0' * @THAS802

                                   2934          AGO   .UCB225      TO NEXT UCB
                                   2935 .UCB225 ANOP
                                   2936   IECIUCB 225,721,SUD,72,00,253,6,,50000808,0,0,0,0,,0,0,0,721,0
002D18 0000FF                      2937+UCB225   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002D1B 80                          2938+         DC    X'80' STAT 'A'                  20201
002D1C 0721004800                  2939+         DC    X'0721',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002D21 FD060100                    2940+         DC    AL1(253,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002D25 F7F2F15000080800            2941+         DC    CL3'721',XL4'50000808',F'0' * @THAS802

                                   2943          AGO   .UCB226      TO NEXT UCB
                                   2944 .UCB226 ANOP
                                   2945   IECIUCB 226,722,SUD,72,00,254,6,,50000808,0,0,0,0,,0,0,0,722,0
002D30 0000FF                      2946+UCB226   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002D33 80                          2947+         DC    X'80' STAT 'A'                  20201
002D34 0722004800                  2948+         DC    X'0722',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002D39 FE060100                    2949+         DC    AL1(254,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002D3D F7F2F25000080800            2950+         DC    CL3'722',XL4'50000808',F'0' * @THAS802

                                   2952          AGO   .UCB227      TO NEXT UCB
                                   2953 .UCB227 ANOP
                                   2954   IECIUCB 227,723,SUD,72,00,255,6,,50000808,0,0,0,0,,0,0,0,723,0
002D48 0000FF                      2955+UCB227   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002D4B 80                          2956+         DC    X'80' STAT 'A'                  20201
002D4C 0723004800                  2957+         DC    X'0723',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002D51 FF060100                    2958+         DC    AL1(255,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002D55 F7F2F35000080800            2959+         DC    CL3'723',XL4'50000808',F'0' * @THAS802

                                   2961          AGO   .UCB228      TO NEXT UCB
                                   2962 .UCB228 ANOP
                                   2963   IECIUCB 228,724,SUD,72,00,0,6,,50000808,0,0,0,0,,0,0,0,724,0
002D60 0000FF                      2964+UCB228   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002D63 80                          2965+         DC    X'80' STAT 'A'                  20201
002D64 0724004800                  2966+         DC    X'0724',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002D69 00060100                    2967+         DC    AL1(0,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002D6D F7F2F45000080800            2968+         DC    CL3'724',XL4'50000808',F'0' * @THAS802

                                   2970          AGO   .UCB229      TO NEXT UCB
                                   2971 .UCB229 ANOP
                                   2972   IECIUCB 229,725,SUD,72,00,1,6,,50000808,0,0,0,0,,0,0,0,725,0
002D78 0000FF                      2973+UCB229   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002D7B 80                          2974+         DC    X'80' STAT 'A'                  20201
002D7C 0725004800                  2975+         DC    X'0725',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002D81 01060100                    2976+         DC    AL1(1,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002D85 F7F2F55000080800            2977+         DC    CL3'725',XL4'50000808',F'0' * @THAS802

                                   2979          AGO   .UCB230      TO NEXT UCB
                                   2980 .UCB230 ANOP
                                   2981   IECIUCB 230,726,SUD,72,00,2,6,,50000808,0,0,0,0,,0,0,0,726,0
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002D90 0000FF                      2982+UCB230   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002D93 80                          2983+         DC    X'80' STAT 'A'                  20201
002D94 0726004800                  2984+         DC    X'0726',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002D99 02060100                    2985+         DC    AL1(2,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002D9D F7F2F65000080800            2986+         DC    CL3'726',XL4'50000808',F'0' * @THAS802

                                   2988          AGO   .UCB231      TO NEXT UCB
                                   2989 .UCB231 ANOP
                                   2990   IECIUCB 231,727,SUD,72,00,3,6,,50000808,0,0,0,0,,0,0,0,727,0
002DA8 0000FF                      2991+UCB231   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002DAB 80                          2992+         DC    X'80' STAT 'A'                  20201
002DAC 0727004800                  2993+         DC    X'0727',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002DB1 03060100                    2994+         DC    AL1(3,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002DB5 F7F2F75000080800            2995+         DC    CL3'727',XL4'50000808',F'0' * @THAS802

                                   2997          AGO   .UCB232      TO NEXT UCB
                                   2998 .UCB232 ANOP
                                   2999   IECIUCB 232,728,SUD,72,00,4,6,,50000808,0,0,0,0,,0,0,0,728,0
002DC0 0000FF                      3000+UCB232   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002DC3 80                          3001+         DC    X'80' STAT 'A'                  20201
002DC4 0728004800                  3002+         DC    X'0728',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002DC9 04060100                    3003+         DC    AL1(4,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002DCD F7F2F85000080800            3004+         DC    CL3'728',XL4'50000808',F'0' * @THAS802

                                   3006          AGO   .UCB233      TO NEXT UCB
                                   3007 .UCB233 ANOP
                                   3008   IECIUCB 233,729,SUD,72,00,5,6,,50000808,0,0,0,0,,0,0,0,729,0
002DD8 0000FF                      3009+UCB233   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002DDB 80                          3010+         DC    X'80' STAT 'A'                  20201
002DDC 0729004800                  3011+         DC    X'0729',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002DE1 05060100                    3012+         DC    AL1(5,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002DE5 F7F2F95000080800            3013+         DC    CL3'729',XL4'50000808',F'0' * @THAS802

                                   3015          AGO   .UCB234      TO NEXT UCB
                                   3016 .UCB234 ANOP
                                   3017   IECIUCB 234,72A,SUD,72,00,6,6,,50000808,0,0,0,0,,0,0,0,72A,0
002DF0 0000FF                      3018+UCB234   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002DF3 80                          3019+         DC    X'80' STAT 'A'                  20201
002DF4 072A004800                  3020+         DC    X'072A',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002DF9 06060100                    3021+         DC    AL1(6,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002DFD F7F2C15000080800            3022+         DC    CL3'72A',XL4'50000808',F'0' * @THAS802

                                   3024          AGO   .UCB235      TO NEXT UCB
                                   3025 .UCB235 ANOP
                                   3026   IECIUCB 235,72B,SUD,72,00,7,6,,50000808,0,0,0,0,,0,0,0,72B,0
002E08 0000FF                      3027+UCB235   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002E0B 80                          3028+         DC    X'80' STAT 'A'                  20201
002E0C 072B004800                  3029+         DC    X'072B',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002E11 07060100                    3030+         DC    AL1(7,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002E15 F7F2C25000080800            3031+         DC    CL3'72B',XL4'50000808',F'0' * @THAS802

                                   3033          AGO   .UCB236      TO NEXT UCB
                                   3034 .UCB236 ANOP
                                   3035   IECIUCB 236,72C,SUD,72,00,8,6,,50000808,0,0,0,0,,0,0,0,72C,0
002E20 0000FF                      3036+UCB236   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002E23 80                          3037+         DC    X'80' STAT 'A'                  20201
002E24 072C004800                  3038+         DC    X'072C',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002E29 08060100                    3039+         DC    AL1(8,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002E2D F7F2C35000080800            3040+         DC    CL3'72C',XL4'50000808',F'0' * @THAS802

                                   3042          AGO   .UCB237      TO NEXT UCB
                                   3043 .UCB237 ANOP
                                   3044   IECIUCB 237,72D,SUD,72,00,9,6,,50000808,0,0,0,0,,0,0,0,72D,0
002E38 0000FF                      3045+UCB237   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002E3B 80                          3046+         DC    X'80' STAT 'A'                  20201
002E3C 072D004800                  3047+         DC    X'072D',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002E41 09060100                    3048+         DC    AL1(9,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002E45 F7F2C45000080800            3049+         DC    CL3'72D',XL4'50000808',F'0' * @THAS802

                                   3051          AGO   .UCB238      TO NEXT UCB
                                   3052 .UCB238 ANOP
                                   3053   IECIUCB 238,72E,SUD,72,00,10,6,,50000808,0,0,0,0,,0,0,0,72E,0
002E50 0000FF                      3054+UCB238   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002E53 80                          3055+         DC    X'80' STAT 'A'                  20201
002E54 072E004800                  3056+         DC    X'072E',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002E59 0A060100                    3057+         DC    AL1(10,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002E5D F7F2C55000080800            3058+         DC    CL3'72E',XL4'50000808',F'0' * @THAS802

                                   3060          AGO   .UCB239      TO NEXT UCB
                                   3061 .UCB239 ANOP
                                   3062   IECIUCB 239,72F,SUD,72,00,11,6,,50000808,0,0,0,0,,0,0,0,72F,0
002E68 0000FF                      3063+UCB239   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002E6B 80                          3064+         DC    X'80' STAT 'A'                  20201
002E6C 072F004800                  3065+         DC    X'072F',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002E71 0B060100                    3066+         DC    AL1(11,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002E75 F7F2C65000080800            3067+         DC    CL3'72F',XL4'50000808',F'0' * @THAS802

                                   3069          AGO   .UCB240      TO NEXT UCB
                                   3070 .UCB240 ANOP
                                   3071   IECIUCB 240,730,SUD,72,00,12,6,,50000808,0,0,0,0,,0,0,0,730,0
002E80 0000FF                      3072+UCB240   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002E83 80                          3073+         DC    X'80' STAT 'A'                  20201
002E84 0730004800                  3074+         DC    X'0730',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002E89 0C060100                    3075+         DC    AL1(12,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002E8D F7F3F05000080800            3076+         DC    CL3'730',XL4'50000808',F'0' * @THAS802

                                   3078          AGO   .UCB241      TO NEXT UCB
                                   3079 .UCB241 ANOP
                                   3080   IECIUCB 241,731,SUD,72,00,13,6,,50000808,0,0,0,0,,0,0,0,731,0
002E98 0000FF                      3081+UCB241   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002E9B 80                          3082+         DC    X'80' STAT 'A'                  20201
002E9C 0731004800                  3083+         DC    X'0731',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002EA1 0D060100                    3084+         DC    AL1(13,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002EA5 F7F3F15000080800            3085+         DC    CL3'731',XL4'50000808',F'0' * @THAS802

                                   3087          AGO   .UCB242      TO NEXT UCB
                                   3088 .UCB242 ANOP
                                   3089   IECIUCB 242,732,SUD,72,00,14,6,,50000808,0,0,0,0,,0,0,0,732,0
002EB0 0000FF                      3090+UCB242   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002EB3 80                          3091+         DC    X'80' STAT 'A'                  20201
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002EB4 0732004800                  3092+         DC    X'0732',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002EB9 0E060100                    3093+         DC    AL1(14,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002EBD F7F3F25000080800            3094+         DC    CL3'732',XL4'50000808',F'0' * @THAS802

                                   3096          AGO   .UCB243      TO NEXT UCB
                                   3097 .UCB243 ANOP
                                   3098   IECIUCB 243,733,SUD,72,00,15,6,,50000808,0,0,0,0,,0,0,0,733,0
002EC8 0000FF                      3099+UCB243   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002ECB 80                          3100+         DC    X'80' STAT 'A'                  20201
002ECC 0733004800                  3101+         DC    X'0733',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002ED1 0F060100                    3102+         DC    AL1(15,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002ED5 F7F3F35000080800            3103+         DC    CL3'733',XL4'50000808',F'0' * @THAS802

                                   3105          AGO   .UCB244      TO NEXT UCB
                                   3106 .UCB244 ANOP
                                   3107   IECIUCB 244,734,SUD,72,00,16,6,,50000808,0,0,0,0,,0,0,0,734,0
002EE0 0000FF                      3108+UCB244   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002EE3 80                          3109+         DC    X'80' STAT 'A'                  20201
002EE4 0734004800                  3110+         DC    X'0734',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002EE9 10060100                    3111+         DC    AL1(16,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002EED F7F3F45000080800            3112+         DC    CL3'734',XL4'50000808',F'0' * @THAS802

                                   3114          AGO   .UCB245      TO NEXT UCB
                                   3115 .UCB245 ANOP
                                   3116   IECIUCB 245,735,SUD,72,00,17,6,,50000808,0,0,0,0,,0,0,0,735,0
002EF8 0000FF                      3117+UCB245   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002EFB 80                          3118+         DC    X'80' STAT 'A'                  20201
002EFC 0735004800                  3119+         DC    X'0735',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002F01 11060100                    3120+         DC    AL1(17,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002F05 F7F3F55000080800            3121+         DC    CL3'735',XL4'50000808',F'0' * @THAS802

                                   3123          AGO   .UCB246      TO NEXT UCB
                                   3124 .UCB246 ANOP
                                   3125   IECIUCB 246,736,SUD,72,00,18,6,,50000808,0,0,0,0,,0,0,0,736,0
002F10 0000FF                      3126+UCB246   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002F13 80                          3127+         DC    X'80' STAT 'A'                  20201
002F14 0736004800                  3128+         DC    X'0736',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002F19 12060100                    3129+         DC    AL1(18,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002F1D F7F3F65000080800            3130+         DC    CL3'736',XL4'50000808',F'0' * @THAS802

                                   3132          AGO   .UCB247      TO NEXT UCB
                                   3133 .UCB247 ANOP
                                   3134   IECIUCB 247,737,SUD,72,00,19,6,,50000808,0,0,0,0,,0,0,0,737,0
002F28 0000FF                      3135+UCB247   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002F2B 80                          3136+         DC    X'80' STAT 'A'                  20201
002F2C 0737004800                  3137+         DC    X'0737',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002F31 13060100                    3138+         DC    AL1(19,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002F35 F7F3F75000080800            3139+         DC    CL3'737',XL4'50000808',F'0' * @THAS802

                                   3141          AGO   .UCB248      TO NEXT UCB
                                   3142 .UCB248 ANOP
                                   3143   IECIUCB 248,738,SUD,72,00,20,6,,50000808,0,0,0,0,,0,0,0,738,0
002F40 0000FF                      3144+UCB248   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002F43 80                          3145+         DC    X'80' STAT 'A'                  20201
002F44 0738004800                  3146+         DC    X'0738',AL2(72),XL1'00' FLGS,UA,DEV,ERR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002F49 14060100                    3147+         DC    AL1(20,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002F4D F7F3F85000080800            3148+         DC    CL3'738',XL4'50000808',F'0' * @THAS802

                                   3150          AGO   .UCB249      TO NEXT UCB
                                   3151 .UCB249 ANOP
                                   3152   IECIUCB 249,739,SUD,72,00,21,6,,50000808,0,0,0,0,,0,0,0,739,0
002F58 0000FF                      3153+UCB249   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002F5B 80                          3154+         DC    X'80' STAT 'A'                  20201
002F5C 0739004800                  3155+         DC    X'0739',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002F61 15060100                    3156+         DC    AL1(21,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002F65 F7F3F95000080800            3157+         DC    CL3'739',XL4'50000808',F'0' * @THAS802

                                   3159          AGO   .UCB250      TO NEXT UCB
                                   3160 .UCB250 ANOP
                                   3161   IECIUCB 250,73A,SUD,72,00,22,6,,50000808,0,0,0,0,,0,0,0,73A,0
002F70 0000FF                      3162+UCB250   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002F73 80                          3163+         DC    X'80' STAT 'A'                  20201
002F74 073A004800                  3164+         DC    X'073A',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002F79 16060100                    3165+         DC    AL1(22,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002F7D F7F3C15000080800            3166+         DC    CL3'73A',XL4'50000808',F'0' * @THAS802

                                   3168          AGO   .UCB251      TO NEXT UCB
                                   3169 .UCB251 ANOP
                                   3170   IECIUCB 251,73B,SUD,72,00,23,6,,50000808,0,0,0,0,,0,0,0,73B,0
002F88 0000FF                      3171+UCB251   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002F8B 80                          3172+         DC    X'80' STAT 'A'                  20201
002F8C 073B004800                  3173+         DC    X'073B',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002F91 17060100                    3174+         DC    AL1(23,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002F95 F7F3C25000080800            3175+         DC    CL3'73B',XL4'50000808',F'0' * @THAS802

                                   3177          AGO   .UCB252      TO NEXT UCB
                                   3178 .UCB252 ANOP
                                   3179   IECIUCB 252,73C,SUD,72,00,24,6,,50000808,0,0,0,0,,0,0,0,73C,0
002FA0 0000FF                      3180+UCB252   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002FA3 80                          3181+         DC    X'80' STAT 'A'                  20201
002FA4 073C004800                  3182+         DC    X'073C',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002FA9 18060100                    3183+         DC    AL1(24,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002FAD F7F3C35000080800            3184+         DC    CL3'73C',XL4'50000808',F'0' * @THAS802

                                   3186          AGO   .UCB253      TO NEXT UCB
                                   3187 .UCB253 ANOP
                                   3188   IECIUCB 253,73D,SUD,72,00,25,6,,50000808,0,0,0,0,,0,0,0,73D,0
002FB8 0000FF                      3189+UCB253   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002FBB 80                          3190+         DC    X'80' STAT 'A'                  20201
002FBC 073D004800                  3191+         DC    X'073D',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002FC1 19060100                    3192+         DC    AL1(25,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002FC5 F7F3C45000080800            3193+         DC    CL3'73D',XL4'50000808',F'0' * @THAS802

                                   3195          AGO   .UCB254      TO NEXT UCB
                                   3196 .UCB254 ANOP
                                   3197   IECIUCB 254,73E,SUD,72,00,26,6,,50000808,0,0,0,0,,0,0,0,73E,0
002FD0 0000FF                      3198+UCB254   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002FD3 80                          3199+         DC    X'80' STAT 'A'                  20201
002FD4 073E004800                  3200+         DC    X'073E',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002FD9 1A060100                    3201+         DC    AL1(26,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

002FDD F7F3C55000080800            3202+         DC    CL3'73E',XL4'50000808',F'0' * @THAS802

                                   3204          AGO   .UCB255      TO NEXT UCB
                                   3205 .UCB255 ANOP
                                   3206   IECIUCB 255,73F,SUD,72,00,27,6,,50000808,0,0,0,0,,0,0,0,73F,0
002FE8 0000FF                      3207+UCB255   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
002FEB 80                          3208+         DC    X'80' STAT 'A'                  20201
002FEC 073F004800                  3209+         DC    X'073F',AL2(72),XL1'00' FLGS,UA,DEV,ERR
002FF1 1B060100                    3210+         DC    AL1(27,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
002FF5 F7F3C65000080800            3211+         DC    CL3'73F',XL4'50000808',F'0' * @THAS802

                                   3213          AGO   .UCB256      TO NEXT UCB
                                   3214 .UCB256 ANOP
                                   3215   IECIUCB 256,740,SUD,72,00,28,6,,50000808,0,0,0,0,,0,0,0,740,0
003000 0000FF                      3216+UCB256   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003003 80                          3217+         DC    X'80' STAT 'A'                  20201
003004 0740004800                  3218+         DC    X'0740',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003009 1C060100                    3219+         DC    AL1(28,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00300D F7F4F05000080800            3220+         DC    CL3'740',XL4'50000808',F'0' * @THAS802

                                   3222          AGO   .UCB257      TO NEXT UCB
                                   3223 .UCB257 ANOP
                                   3224   IECIUCB 257,741,SUD,72,00,29,6,,50000808,0,0,0,0,,0,0,0,741,0
003018 0000FF                      3225+UCB257   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00301B 80                          3226+         DC    X'80' STAT 'A'                  20201
00301C 0741004800                  3227+         DC    X'0741',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003021 1D060100                    3228+         DC    AL1(29,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003025 F7F4F15000080800            3229+         DC    CL3'741',XL4'50000808',F'0' * @THAS802

                                   3231          AGO   .UCB258      TO NEXT UCB
                                   3232 .UCB258 ANOP
                                   3233   IECIUCB 258,742,SUD,72,00,30,6,,50000808,0,0,0,0,,0,0,0,742,0
003030 0000FF                      3234+UCB258   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003033 80                          3235+         DC    X'80' STAT 'A'                  20201
003034 0742004800                  3236+         DC    X'0742',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003039 1E060100                    3237+         DC    AL1(30,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00303D F7F4F25000080800            3238+         DC    CL3'742',XL4'50000808',F'0' * @THAS802

                                   3240          AGO   .UCB259      TO NEXT UCB
                                   3241 .UCB259 ANOP
                                   3242   IECIUCB 259,743,SUD,72,00,31,6,,50000808,0,0,0,0,,0,0,0,743,0
003048 0000FF                      3243+UCB259   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00304B 80                          3244+         DC    X'80' STAT 'A'                  20201
00304C 0743004800                  3245+         DC    X'0743',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003051 1F060100                    3246+         DC    AL1(31,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003055 F7F4F35000080800            3247+         DC    CL3'743',XL4'50000808',F'0' * @THAS802

                                   3249          AGO   .UCB260      TO NEXT UCB
                                   3250 .UCB260 ANOP
                                   3251   IECIUCB 260,744,SUD,72,00,32,6,,50000808,0,0,0,0,,0,0,0,744,0
003060 0000FF                      3252+UCB260   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003063 80                          3253+         DC    X'80' STAT 'A'                  20201
003064 0744004800                  3254+         DC    X'0744',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003069 20060100                    3255+         DC    AL1(32,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00306D F7F4F45000080800            3256+         DC    CL3'744',XL4'50000808',F'0' * @THAS802
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3258          AGO   .UCB261      TO NEXT UCB
                                   3259 .UCB261 ANOP
                                   3260   IECIUCB 261,745,SUD,72,00,33,6,,50000808,0,0,0,0,,0,0,0,745,0
003078 0000FF                      3261+UCB261   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00307B 80                          3262+         DC    X'80' STAT 'A'                  20201
00307C 0745004800                  3263+         DC    X'0745',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003081 21060100                    3264+         DC    AL1(33,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003085 F7F4F55000080800            3265+         DC    CL3'745',XL4'50000808',F'0' * @THAS802

                                   3267          AGO   .UCB262      TO NEXT UCB
                                   3268 .UCB262 ANOP
                                   3269   IECIUCB 262,746,SUD,72,00,34,6,,50000808,0,0,0,0,,0,0,0,746,0
003090 0000FF                      3270+UCB262   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003093 80                          3271+         DC    X'80' STAT 'A'                  20201
003094 0746004800                  3272+         DC    X'0746',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003099 22060100                    3273+         DC    AL1(34,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00309D F7F4F65000080800            3274+         DC    CL3'746',XL4'50000808',F'0' * @THAS802

                                   3276          AGO   .UCB263      TO NEXT UCB
                                   3277 .UCB263 ANOP
                                   3278   IECIUCB 263,747,SUD,72,00,35,6,,50000808,0,0,0,0,,0,0,0,747,0
0030A8 0000FF                      3279+UCB263   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0030AB 80                          3280+         DC    X'80' STAT 'A'                  20201
0030AC 0747004800                  3281+         DC    X'0747',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0030B1 23060100                    3282+         DC    AL1(35,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0030B5 F7F4F75000080800            3283+         DC    CL3'747',XL4'50000808',F'0' * @THAS802

                                   3285          AGO   .UCB264      TO NEXT UCB
                                   3286 .UCB264 ANOP
                                   3287   IECIUCB 264,748,SUD,72,00,36,6,,50000808,0,0,0,0,,0,0,0,748,0
0030C0 0000FF                      3288+UCB264   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0030C3 80                          3289+         DC    X'80' STAT 'A'                  20201
0030C4 0748004800                  3290+         DC    X'0748',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0030C9 24060100                    3291+         DC    AL1(36,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0030CD F7F4F85000080800            3292+         DC    CL3'748',XL4'50000808',F'0' * @THAS802

                                   3294          AGO   .UCB265      TO NEXT UCB
                                   3295 .UCB265 ANOP
                                   3296   IECIUCB 265,749,SUD,72,00,37,6,,50000808,0,0,0,0,,0,0,0,749,0
0030D8 0000FF                      3297+UCB265   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0030DB 80                          3298+         DC    X'80' STAT 'A'                  20201
0030DC 0749004800                  3299+         DC    X'0749',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0030E1 25060100                    3300+         DC    AL1(37,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0030E5 F7F4F95000080800            3301+         DC    CL3'749',XL4'50000808',F'0' * @THAS802

                                   3303          AGO   .UCB266      TO NEXT UCB
                                   3304 .UCB266 ANOP
                                   3305   IECIUCB 266,74A,SUD,72,00,38,6,,50000808,0,0,0,0,,0,0,0,74A,0
0030F0 0000FF                      3306+UCB266   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0030F3 80                          3307+         DC    X'80' STAT 'A'                  20201
0030F4 074A004800                  3308+         DC    X'074A',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0030F9 26060100                    3309+         DC    AL1(38,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0030FD F7F4C15000080800            3310+         DC    CL3'74A',XL4'50000808',F'0' * @THAS802

                                   3312          AGO   .UCB267      TO NEXT UCB
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3313 .UCB267 ANOP
                                   3314   IECIUCB 267,74B,SUD,72,00,39,6,,50000808,0,0,0,0,,0,0,0,74B,0
003108 0000FF                      3315+UCB267   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00310B 80                          3316+         DC    X'80' STAT 'A'                  20201
00310C 074B004800                  3317+         DC    X'074B',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003111 27060100                    3318+         DC    AL1(39,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003115 F7F4C25000080800            3319+         DC    CL3'74B',XL4'50000808',F'0' * @THAS802

                                   3321          AGO   .UCB268      TO NEXT UCB
                                   3322 .UCB268 ANOP
                                   3323   IECIUCB 268,74C,SUD,72,00,40,6,,50000808,0,0,0,0,,0,0,0,74C,0
003120 0000FF                      3324+UCB268   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003123 80                          3325+         DC    X'80' STAT 'A'                  20201
003124 074C004800                  3326+         DC    X'074C',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003129 28060100                    3327+         DC    AL1(40,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00312D F7F4C35000080800            3328+         DC    CL3'74C',XL4'50000808',F'0' * @THAS802

                                   3330          AGO   .UCB269      TO NEXT UCB
                                   3331 .UCB269 ANOP
                                   3332   IECIUCB 269,74D,SUD,72,00,41,6,,50000808,0,0,0,0,,0,0,0,74D,0
003138 0000FF                      3333+UCB269   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00313B 80                          3334+         DC    X'80' STAT 'A'                  20201
00313C 074D004800                  3335+         DC    X'074D',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003141 29060100                    3336+         DC    AL1(41,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003145 F7F4C45000080800            3337+         DC    CL3'74D',XL4'50000808',F'0' * @THAS802

                                   3339          AGO   .UCB270      TO NEXT UCB
                                   3340 .UCB270 ANOP
                                   3341   IECIUCB 270,74E,SUD,72,00,42,6,,50000808,0,0,0,0,,0,0,0,74E,0
003150 0000FF                      3342+UCB270   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003153 80                          3343+         DC    X'80' STAT 'A'                  20201
003154 074E004800                  3344+         DC    X'074E',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003159 2A060100                    3345+         DC    AL1(42,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00315D F7F4C55000080800            3346+         DC    CL3'74E',XL4'50000808',F'0' * @THAS802

                                   3348          AGO   .UCB271      TO NEXT UCB
                                   3349 .UCB271 ANOP
                                   3350   IECIUCB 271,74F,SUD,72,00,43,6,,50000808,0,0,0,0,,0,0,0,74F,0
003168 0000FF                      3351+UCB271   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00316B 80                          3352+         DC    X'80' STAT 'A'                  20201
00316C 074F004800                  3353+         DC    X'074F',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003171 2B060100                    3354+         DC    AL1(43,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003175 F7F4C65000080800            3355+         DC    CL3'74F',XL4'50000808',F'0' * @THAS802

                                   3357          AGO   .UCB272      TO NEXT UCB
                                   3358 .UCB272 ANOP
                                   3359   IECIUCB 272,770,SUD,72,00,44,6,,50000802,0,0,0,0,,0,0,0,770,0
003180 0000FF                      3360+UCB272   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003183 80                          3361+         DC    X'80' STAT 'A'                  20201
003184 0770004800                  3362+         DC    X'0770',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003189 2C060100                    3363+         DC    AL1(44,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00318D F7F7F05000080200            3364+         DC    CL3'770',XL4'50000802',F'0' * @THAS802

                                   3366          AGO   .UCB273      TO NEXT UCB
                                   3367 .UCB273 ANOP
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3368   IECIUCB 273,771,SUD,72,00,45,6,,50000802,0,0,0,0,,0,0,0,771,0
003198 0000FF                      3369+UCB273   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00319B 80                          3370+         DC    X'80' STAT 'A'                  20201
00319C 0771004800                  3371+         DC    X'0771',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0031A1 2D060100                    3372+         DC    AL1(45,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0031A5 F7F7F15000080200            3373+         DC    CL3'771',XL4'50000802',F'0' * @THAS802

                                   3375          AGO   .UCB274      TO NEXT UCB
                                   3376 .UCB274 ANOP
                                   3377   IECIUCB 274,772,SUD,72,00,46,6,,50000802,0,0,0,0,,0,0,0,772,0
0031B0 0000FF                      3378+UCB274   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0031B3 80                          3379+         DC    X'80' STAT 'A'                  20201
0031B4 0772004800                  3380+         DC    X'0772',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0031B9 2E060100                    3381+         DC    AL1(46,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0031BD F7F7F25000080200            3382+         DC    CL3'772',XL4'50000802',F'0' * @THAS802

                                   3384          AGO   .UCB275      TO NEXT UCB
                                   3385 .UCB275 ANOP
                                   3386   IECIUCB 275,773,SUD,72,00,47,6,,50000802,0,0,0,0,,0,0,0,773,0
0031C8 0000FF                      3387+UCB275   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0031CB 80                          3388+         DC    X'80' STAT 'A'                  20201
0031CC 0773004800                  3389+         DC    X'0773',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0031D1 2F060100                    3390+         DC    AL1(47,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0031D5 F7F7F35000080200            3391+         DC    CL3'773',XL4'50000802',F'0' * @THAS802

                                   3393          AGO   .UCB276      TO NEXT UCB
                                   3394 .UCB276 ANOP
                                   3395   IECIUCB 276,774,SUD,72,00,48,6,,50000802,0,0,0,0,,0,0,0,774,0
0031E0 0000FF                      3396+UCB276   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0031E3 80                          3397+         DC    X'80' STAT 'A'                  20201
0031E4 0774004800                  3398+         DC    X'0774',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0031E9 30060100                    3399+         DC    AL1(48,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0031ED F7F7F45000080200            3400+         DC    CL3'774',XL4'50000802',F'0' * @THAS802

                                   3402          AGO   .UCB277      TO NEXT UCB
                                   3403 .UCB277 ANOP
                                   3404   IECIUCB 277,775,SUD,72,00,49,6,,50000802,0,0,0,0,,0,0,0,775,0
0031F8 0000FF                      3405+UCB277   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0031FB 80                          3406+         DC    X'80' STAT 'A'                  20201
0031FC 0775004800                  3407+         DC    X'0775',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003201 31060100                    3408+         DC    AL1(49,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003205 F7F7F55000080200            3409+         DC    CL3'775',XL4'50000802',F'0' * @THAS802

                                   3411          AGO   .UCB278      TO NEXT UCB
                                   3412 .UCB278 ANOP
                                   3413   IECIUCB 278,776,SUD,72,00,50,6,,50000802,0,0,0,0,,0,0,0,776,0
003210 0000FF                      3414+UCB278   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003213 80                          3415+         DC    X'80' STAT 'A'                  20201
003214 0776004800                  3416+         DC    X'0776',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003219 32060100                    3417+         DC    AL1(50,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00321D F7F7F65000080200            3418+         DC    CL3'776',XL4'50000802',F'0' * @THAS802

                                   3420          AGO   .UCB279      TO NEXT UCB
                                   3421 .UCB279 ANOP
                                   3422   IECIUCB 279,777,SUD,72,00,51,6,,50000802,0,0,0,0,,0,0,0,777,0
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003228 0000FF                      3423+UCB279   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00322B 80                          3424+         DC    X'80' STAT 'A'                  20201
00322C 0777004800                  3425+         DC    X'0777',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003231 33060100                    3426+         DC    AL1(51,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003235 F7F7F75000080200            3427+         DC    CL3'777',XL4'50000802',F'0' * @THAS802

                                   3429          AGO   .UCB280      TO NEXT UCB
                                   3430 .UCB280 ANOP
                                   3431   IECIUCB 280,778,SUD,72,00,52,6,,50000802,0,0,0,0,,0,0,0,778,0
003240 0000FF                      3432+UCB280   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003243 80                          3433+         DC    X'80' STAT 'A'                  20201
003244 0778004800                  3434+         DC    X'0778',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003249 34060100                    3435+         DC    AL1(52,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00324D F7F7F85000080200            3436+         DC    CL3'778',XL4'50000802',F'0' * @THAS802

                                   3438          AGO   .UCB281      TO NEXT UCB
                                   3439 .UCB281 ANOP
                                   3440   IECIUCB 281,779,SUD,72,00,53,6,,50000802,0,0,0,0,,0,0,0,779,0
003258 0000FF                      3441+UCB281   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00325B 80                          3442+         DC    X'80' STAT 'A'                  20201
00325C 0779004800                  3443+         DC    X'0779',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003261 35060100                    3444+         DC    AL1(53,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003265 F7F7F95000080200            3445+         DC    CL3'779',XL4'50000802',F'0' * @THAS802

                                   3447          AGO   .UCB282      TO NEXT UCB
                                   3448 .UCB282 ANOP
                                   3449   IECIUCB 282,77A,SUD,72,00,54,6,,50000802,0,0,0,0,,0,0,0,77A,0
003270 0000FF                      3450+UCB282   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003273 80                          3451+         DC    X'80' STAT 'A'                  20201
003274 077A004800                  3452+         DC    X'077A',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003279 36060100                    3453+         DC    AL1(54,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00327D F7F7C15000080200            3454+         DC    CL3'77A',XL4'50000802',F'0' * @THAS802

                                   3456          AGO   .UCB283      TO NEXT UCB
                                   3457 .UCB283 ANOP
                                   3458   IECIUCB 283,77B,SUD,72,00,55,6,,50000802,0,0,0,0,,0,0,0,77B,0
003288 0000FF                      3459+UCB283   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00328B 80                          3460+         DC    X'80' STAT 'A'                  20201
00328C 077B004800                  3461+         DC    X'077B',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003291 37060100                    3462+         DC    AL1(55,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003295 F7F7C25000080200            3463+         DC    CL3'77B',XL4'50000802',F'0' * @THAS802

                                   3465          AGO   .UCB284      TO NEXT UCB
                                   3466 .UCB284 ANOP
                                   3467   IECIUCB 284,77C,SUD,72,00,56,6,,50000802,0,0,0,0,,0,0,0,77C,0
0032A0 0000FF                      3468+UCB284   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0032A3 80                          3469+         DC    X'80' STAT 'A'                  20201
0032A4 077C004800                  3470+         DC    X'077C',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0032A9 38060100                    3471+         DC    AL1(56,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0032AD F7F7C35000080200            3472+         DC    CL3'77C',XL4'50000802',F'0' * @THAS802

                                   3474          AGO   .UCB285      TO NEXT UCB
                                   3475 .UCB285 ANOP
                                   3476   IECIUCB 285,77D,SUD,72,00,57,6,,50000802,0,0,0,0,,0,0,0,77D,0
0032B8 0000FF                      3477+UCB285   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0032BB 80                          3478+         DC    X'80' STAT 'A'                  20201
0032BC 077D004800                  3479+         DC    X'077D',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0032C1 39060100                    3480+         DC    AL1(57,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0032C5 F7F7C45000080200            3481+         DC    CL3'77D',XL4'50000802',F'0' * @THAS802

                                   3483          AGO   .UCB286      TO NEXT UCB
                                   3484 .UCB286 ANOP
                                   3485   IECIUCB 286,77E,SUD,72,00,58,6,,50000802,0,0,0,0,,0,0,0,77E,0
0032D0 0000FF                      3486+UCB286   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0032D3 80                          3487+         DC    X'80' STAT 'A'                  20201
0032D4 077E004800                  3488+         DC    X'077E',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0032D9 3A060100                    3489+         DC    AL1(58,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0032DD F7F7C55000080200            3490+         DC    CL3'77E',XL4'50000802',F'0' * @THAS802

                                   3492          AGO   .UCB287      TO NEXT UCB
                                   3493 .UCB287 ANOP
                                   3494   IECIUCB 287,77F,SUD,72,00,59,6,,50000802,0,0,0,0,,0,0,0,77F,0
0032E8 0000FF                      3495+UCB287   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0032EB 80                          3496+         DC    X'80' STAT 'A'                  20201
0032EC 077F004800                  3497+         DC    X'077F',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0032F1 3B060100                    3498+         DC    AL1(59,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0032F5 F7F7C65000080200            3499+         DC    CL3'77F',XL4'50000802',F'0' * @THAS802

                                   3501          AGO   .UCB288      TO NEXT UCB
                                   3502 .UCB288 ANOP
                                   3503   IECIUCB 288,780,SUD,72,00,60,6,,50000805,0,0,0,0,,0,0,0,780,0
003300 0000FF                      3504+UCB288   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003303 80                          3505+         DC    X'80' STAT 'A'                  20201
003304 0780004800                  3506+         DC    X'0780',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003309 3C060100                    3507+         DC    AL1(60,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00330D F7F8F05000080500            3508+         DC    CL3'780',XL4'50000805',F'0' * @THAS802

                                   3510          AGO   .UCB289      TO NEXT UCB
                                   3511 .UCB289 ANOP
                                   3512   IECIUCB 289,781,SUD,72,00,61,6,,50000805,0,0,0,0,,0,0,0,781,0
003318 0000FF                      3513+UCB289   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00331B 80                          3514+         DC    X'80' STAT 'A'                  20201
00331C 0781004800                  3515+         DC    X'0781',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003321 3D060100                    3516+         DC    AL1(61,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003325 F7F8F15000080500            3517+         DC    CL3'781',XL4'50000805',F'0' * @THAS802

                                   3519          AGO   .UCB290      TO NEXT UCB
                                   3520 .UCB290 ANOP
                                   3521   IECIUCB 290,782,SUD,72,00,62,6,,50000805,0,0,0,0,,0,0,0,782,0
003330 0000FF                      3522+UCB290   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003333 80                          3523+         DC    X'80' STAT 'A'                  20201
003334 0782004800                  3524+         DC    X'0782',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003339 3E060100                    3525+         DC    AL1(62,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00333D F7F8F25000080500            3526+         DC    CL3'782',XL4'50000805',F'0' * @THAS802

                                   3528          AGO   .UCB291      TO NEXT UCB
                                   3529 .UCB291 ANOP
                                   3530   IECIUCB 291,783,SUD,72,00,63,6,,50000805,0,0,0,0,,0,0,0,783,0
003348 0000FF                      3531+UCB291   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00334B 80                          3532+         DC    X'80' STAT 'A'                  20201
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00334C 0783004800                  3533+         DC    X'0783',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003351 3F060100                    3534+         DC    AL1(63,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003355 F7F8F35000080500            3535+         DC    CL3'783',XL4'50000805',F'0' * @THAS802

                                   3537          AGO   .UCB292      TO NEXT UCB
                                   3538 .UCB292 ANOP
                                   3539   IECIUCB 292,784,SUD,72,00,64,6,,50000805,0,0,0,0,,0,0,0,784,0
003360 0000FF                      3540+UCB292   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003363 80                          3541+         DC    X'80' STAT 'A'                  20201
003364 0784004800                  3542+         DC    X'0784',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003369 40060100                    3543+         DC    AL1(64,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00336D F7F8F45000080500            3544+         DC    CL3'784',XL4'50000805',F'0' * @THAS802

                                   3546          AGO   .UCB293      TO NEXT UCB
                                   3547 .UCB293 ANOP
                                   3548   IECIUCB 293,785,SUD,72,00,65,6,,50000805,0,0,0,0,,0,0,0,785,0
003378 0000FF                      3549+UCB293   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00337B 80                          3550+         DC    X'80' STAT 'A'                  20201
00337C 0785004800                  3551+         DC    X'0785',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003381 41060100                    3552+         DC    AL1(65,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003385 F7F8F55000080500            3553+         DC    CL3'785',XL4'50000805',F'0' * @THAS802

                                   3555          AGO   .UCB294      TO NEXT UCB
                                   3556 .UCB294 ANOP
                                   3557   IECIUCB 294,786,SUD,72,00,66,6,,50000805,0,0,0,0,,0,0,0,786,0
003390 0000FF                      3558+UCB294   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003393 80                          3559+         DC    X'80' STAT 'A'                  20201
003394 0786004800                  3560+         DC    X'0786',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003399 42060100                    3561+         DC    AL1(66,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00339D F7F8F65000080500            3562+         DC    CL3'786',XL4'50000805',F'0' * @THAS802

                                   3564          AGO   .UCB295      TO NEXT UCB
                                   3565 .UCB295 ANOP
                                   3566   IECIUCB 295,787,SUD,72,00,67,6,,50000805,0,0,0,0,,0,0,0,787,0
0033A8 0000FF                      3567+UCB295   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0033AB 80                          3568+         DC    X'80' STAT 'A'                  20201
0033AC 0787004800                  3569+         DC    X'0787',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0033B1 43060100                    3570+         DC    AL1(67,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0033B5 F7F8F75000080500            3571+         DC    CL3'787',XL4'50000805',F'0' * @THAS802

                                   3573          AGO   .UCB296      TO NEXT UCB
                                   3574 .UCB296 ANOP
                                   3575   IECIUCB 296,788,SUD,72,00,68,6,,50000805,0,0,0,0,,0,0,0,788,0
0033C0 0000FF                      3576+UCB296   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0033C3 80                          3577+         DC    X'80' STAT 'A'                  20201
0033C4 0788004800                  3578+         DC    X'0788',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0033C9 44060100                    3579+         DC    AL1(68,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0033CD F7F8F85000080500            3580+         DC    CL3'788',XL4'50000805',F'0' * @THAS802

                                   3582          AGO   .UCB297      TO NEXT UCB
                                   3583 .UCB297 ANOP
                                   3584   IECIUCB 297,789,SUD,72,00,69,6,,50000805,0,0,0,0,,0,0,0,789,0
0033D8 0000FF                      3585+UCB297   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0033DB 80                          3586+         DC    X'80' STAT 'A'                  20201
0033DC 0789004800                  3587+         DC    X'0789',AL2(72),XL1'00' FLGS,UA,DEV,ERR
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0033E1 45060100                    3588+         DC    AL1(69,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0033E5 F7F8F95000080500            3589+         DC    CL3'789',XL4'50000805',F'0' * @THAS802

                                   3591          AGO   .UCB298      TO NEXT UCB
                                   3592 .UCB298 ANOP
                                   3593   IECIUCB 298,78A,SUD,72,00,70,6,,50000805,0,0,0,0,,0,0,0,78A,0
0033F0 0000FF                      3594+UCB298   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
0033F3 80                          3595+         DC    X'80' STAT 'A'                  20201
0033F4 078A004800                  3596+         DC    X'078A',AL2(72),XL1'00' FLGS,UA,DEV,ERR
0033F9 46060100                    3597+         DC    AL1(70,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
0033FD F7F8C15000080500            3598+         DC    CL3'78A',XL4'50000805',F'0' * @THAS802

                                   3600          AGO   .UCB299      TO NEXT UCB
                                   3601 .UCB299 ANOP
                                   3602   IECIUCB 299,78B,SUD,72,00,71,6,,50000805,0,0,0,0,,0,0,0,78B,0
003408 0000FF                      3603+UCB299   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00340B 80                          3604+         DC    X'80' STAT 'A'                  20201
00340C 078B004800                  3605+         DC    X'078B',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003411 47060100                    3606+         DC    AL1(71,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003415 F7F8C25000080500            3607+         DC    CL3'78B',XL4'50000805',F'0' * @THAS802

                                   3609          AGO   .UCB300      TO NEXT UCB
                                   3610 .UCB300 ANOP
                                   3611   IECIUCB 300,78C,SUD,72,00,72,6,,50000805,0,0,0,0,,0,0,0,78C,0
003420 0000FF                      3612+UCB300   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003423 80                          3613+         DC    X'80' STAT 'A'                  20201
003424 078C004800                  3614+         DC    X'078C',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003429 48060100                    3615+         DC    AL1(72,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00342D F7F8C35000080500            3616+         DC    CL3'78C',XL4'50000805',F'0' * @THAS802

                                   3618          AGO   .UCB301      TO NEXT UCB
                                   3619 .UCB301 ANOP
                                   3620   IECIUCB 301,78D,SUD,72,00,73,6,,50000805,0,0,0,0,,0,0,0,78D,0
003438 0000FF                      3621+UCB301   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00343B 80                          3622+         DC    X'80' STAT 'A'                  20201
00343C 078D004800                  3623+         DC    X'078D',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003441 49060100                    3624+         DC    AL1(73,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
003445 F7F8C45000080500            3625+         DC    CL3'78D',XL4'50000805',F'0' * @THAS802

                                   3627          AGO   .UCB302      TO NEXT UCB
                                   3628 .UCB302 ANOP
                                   3629   IECIUCB 302,78E,SUD,72,00,74,6,,50000805,0,0,0,0,,0,0,0,78E,0
003450 0000FF                      3630+UCB302   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
003453 80                          3631+         DC    X'80' STAT 'A'                  20201
003454 078E004800                  3632+         DC    X'078E',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003459 4A060100                    3633+         DC    AL1(74,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
00345D F7F8C55000080500            3634+         DC    CL3'78E',XL4'50000805',F'0' * @THAS802

                                   3636          AGO   .UCB303      TO NEXT UCB
                                   3637 .UCB303 ANOP
                                   3638   IECIUCB 303,78F,SUD,72,00,75,6,,50000805,0,0,0,0,,0,0,0,78F,0
003468 0000FF                      3639+UCB303   DC    AL2(0),X'FF' JOBNO,ALLOC MSK, ID       20201
00346B 80                          3640+         DC    X'80' STAT 'A'                  20201
00346C 078F004800                  3641+         DC    X'078F',AL2(72),XL1'00' FLGS,UA,DEV,ERR
003471 4B060100                    3642+         DC    AL1(75,6),XL2'0100' STAT,LCH,ATN,CK * @THAS802
       UNIT CONTROL BLOCKS - INPUT/OUTPUT SUPERVISOR                                                           PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003475 F7F8C65000080500            3643+         DC    CL3'78F',XL4'50000805',F'0' * @THAS802

                                   3645          AGO   .UCB304      TO NEXT UCB
                                   3646 .UCB304   ANOP      LAST UCB ENTRY4
                                   3647          AGO   .RQE     TO RQE AND STATAB
                                   3648 .RQE      ANOP         RQE AND STST TAB
                                   3649  IECIOQE 10,1,1,1
003480                             3650+IECIOQET DS    0F THIS IS THE RQE TABLE    BBBBBB
003480                             3651+TSTAR    DS    0F LABEL FIRST RQE          BBBBBB
                                   3652+***  THE FORMAT OF THE RQE IS - LINK FIELD,ID,FILL
003480 34900000FF000000            3653+         DC    8AL2(*+16-IPLPSW,*-*,X'FF00',*-*,*-*,*-*,*-*,*-*)
003500 35100000FF000000            3654+         DC    Y(*+16-IPLPSW),X'0000FF',XL11'0'
003510 FFFF0000FF000000            3655+         DC    XL2'FFFF',X'0000FF',XL11'0' ENDLINK,ID,FILL
003520 0001                        3656+IECITSAR DC    X'0001' END OF RQE TABLE IND.    BBBBBB
003522 0000
003524 00000000                    3657+DDRRQE   DC    F'0' DDR REQUEST ELEMENT       19022
003528 00000000                    3658+         DC    A(DDRIOB) IOB POINTER               19022
00352C 00000000                    3659+         DC    A(DDRDEB) DEB POINTER               19022
003530 00000000                    3660+         DC    A(IGFRMTCB) TCB POINTER               19022
003534 0000000000000000            3661+RMSRQE   DC    3F'0' RMS RQE                   19021
003540 00000000                    3662+         DC    F'0' MVT FILL                  19021
003534                             3663+LASTRQE  EQU   *-16 LAST RQE IN SYSTEM      SA63707
                                   3664          AGO   .IECIOS
                                   3665 .IECIOS  ANOP      MAINLINE IOS
                                   3666  IECXCP  1,1,1,1,1,0,0,1,0,0,0,1,                                    XXXXXX
                                                       200,0,2,0,2,0,0,0,0,1,0,1,2,                       *********
                                                       1,1,1,1,0,1,1,0,1,1,0,0,0
       EXTRNS AND ENTRYS - INPUT/OUTPUT SUPERVISOR                                                             PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3668+         EXTRN IEA0XE00,DISMISS
                                   3669+         EXTRN IEATCBP
                                   3670+         EXTRN IEA0DS02,IEAHEAD MP1A
                                   3671+         EXTRN IEA0PT01 POST ROUTINE ENTRY POINT    MP1A
                                   3672+         EXTRN IEA0IO02 PSEUDO DISABLE SW IN FLIH 21111
                                   3673+         EXTRN ER2311 2311 ERROR ROUTINE ENTRY POINT
                                   3674+         EXTRN IEEBA1 CONSOLE ATTENTION HANDLER
                                   3675+         EXTRN IEFDPOST SCHEDULE POST ROUTINE (ATTENTION)
                                   3676+         EXTRN IEDQATTN TCAM ATTENTION HANDLER    20002
                                   3677+         EXTRN DDRIOB,DDRDEB,IGFRMTCB,IGF0IOB,IGF0DEB 19022
                                   3678+         ENTRY IGC000 EXCP
                                   3679+         ENTRY IECCPL00 PROGRAM CHECK ROUTINE              A24739
                                   3680+         ENTRY IECINT I/O INTERRUPTION SUPERVISOR        A24739
                                   3681+         ENTRY CTCMUCB *ASP
                                   3682+         ENTRY ATNTAB *ASP
                                   3683+         ENTRY CTCMONSW *ASP
                                   3684+         ENTRY CTCATN *ASP
                                   3685+         ENTRY IGC015 ERROR EXCP
                                   3686+         ENTRY IECIHIO COMMON HIO ROUTINE          IMP2
                                   3687+         ENTRY IECIXAVL POINTER TO NEXT AVAILABLE REQUEST ELEMENT
                                   3688+         ENTRY IECXAPG APPENDAGE VECTOR TABLE
                                   3689+         ENTRY IECILCH LOGICAL CHANNEL WORD TABLE
                                   3690+         ENTRY IECILK1 UCB LOOKUP TABLE CH + CNTRL UNIT PORTION
                                   3691+         ENTRY IECILK2 UCB LOOKUP TABLE UCB ADDRESS PORTION
                                   3692+         ENTRY IECIOQET REQUEST ELEMENT TABLE
                                   3693+         ENTRY IECSTB STATISTICS TABLE
                                   3694+         ENTRY INT025 ENTRY TO PURGE COMPLETE AND RETURN
                                   3695+*                             RQE FOR THE SUPERVISOR
                                   3696+         ENTRY XCP064 LOCATE LOGICAL CHANNEL WORD
                                   3697+         ENTRY IECDMS DIMISS ADDRESS-I/O INTR. RETURN
                                   3698+         ENTRY IECCST,IECITSAR IMP4
                                   3699+         ENTRY IECRQE00 SA53191
                                   3700+         ENTRY IGC092 TCB EXCP                  20001
                                   3701+         ENTRY IECOLTVT,DEVTAB OLTEP SUPPORT
                                   3702+         ENTRY IECRMS 19021
                                   3703+         ENTRY DDRRQE,DDRAPNVT,DDRSRTO RQE, APN VT, SVAREA       19022
       EQUATES - INPUT/OUTPUT SUPERVISOR                                                                       PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3705+*    REGISTER DEFINITIONS                                        BBBBBB
000000                             3706+REG0     EQU   0 TEMPORARY BAL REGISTER   BBBBBB
000000                             3707+TCBRG0   EQU   0 PARAMETER REGISTER        20001
000001                             3708+TSTREG   EQU   1 REQUEST ELEMENT ADDRESS
000002                             3709+IOBREG   EQU   2 IOB ADDRESS
000003                             3710+DEBREG   EQU   3 DEB ADDRESS
000004                             3711+DCBREG   EQU   4 DCB ADDRESS
000004                             3712+TCBREG   EQU   4 TCB ENVIRONMENTAL REGISTER20001
000005                             3713+BASREG   EQU   5 BASE VALUE FOR IOS
000006                             3714+UAREG    EQU   6 UNIT ADDRESS
000007                             3715+UCBREG   EQU   7 UCB ADDRESS
000008                             3716+BASREG2  EQU   8 SECOND BASE REGISTER       TBSE
000008                             3717+LNKRG1   EQU   8 MAIN LINK REGISTER
000009                             3718+ICREG    EQU   9 INSERT CHARACTER REG
00000A                             3719+WKREG1   EQU   10 MAIN WORKING REGISTER
00000B                             3720+WKREG2   EQU   11 WORKING REGISTER
00000C                             3721+WKREG3   EQU   12 SPARE WORK REGISTER
00000C                             3722+LNKRG3   EQU   WKREG3 SPARE LINK REGISTER
00000D                             3723+LCHREG   EQU   13 LOGICAL CHANNEL WORD
00000E                             3724+LNKRG2   EQU   14 LINK REGISTER
00000F                             3725+APBSRG   EQU   15 APPENDAGE BASE REG
       EQUATES - INPUT/OUTPUT SUPERVISOR                                                                       PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3727+*    IOB DEFINITION                                              BBBBBB
000000                             3728+IOBFL1   EQU   0 FLAGS 1
000001                             3729+IOBFL2   EQU   1 FLAGS 2
000002                             3730+IOBSNS   EQU   2 SENSE DATA
000004                             3731+IOBCOD   EQU   4 ECB CODE
000005                             3732+IOBECB   EQU   5 ECB POINTER
000008                             3733+IOBCSW   EQU   8 CSW STORAGE
000008                             3734+IOBFL3   EQU   IOBCSW FLAGS 3 ARE IN FIRST BYTE
000010                             3735+IOBCC    EQU   16 CONDITION CODE
000011                             3736+IOBST    EQU   17 START ADDRESS
000014                             3737+IOBWGT   EQU   20 WEIGHT CODE
000015                             3738+IOBDCB   EQU   21 DCB POINTER
000018                             3739+IOBMDB   EQU   24 MODIFIER BYTE
000019                             3740+IOBRST   EQU   25 RESTART POINTER
00001C                             3741+IOBBCI   EQU   28 BLOCK COUNT INCR.
00001E                             3742+IOBECT   EQU   30 ERROR COUNTS
000020                             3743+IOBDAM   EQU   32 DIRECT ACCESS EXTENT (M) BYTE
000023                             3744+IOBCCR   EQU   35 SEEK CYLINDER IN IOB


                                   3746+*    THESE FLAGS ARE IN IOB FLAG 1                               BBBBBB
0000C0                             3747+IOBCDS   EQU   X'C0' IOB CHANNEL DESP. FLAG
000020                             3748+IOBERR   EQU   X'20' ERROR CORRECTION IND.
000010                             3749+IOBMD1   EQU   X'10' MOD1 FLAG- POSITIONING
000008                             3750+IOBMD2   EQU   X'08' MOD2 FLAG- TAPE(CRC CORRECTION)
000004                             3751+IOBEX    EQU   X'04' EXCEPT FLAG
000002                             3752+IOBURL   EQU   X'02' UNRELATED OR NON-SEQUENT.
000001                             3753+IOBSRS   EQU   X'01' START/RESTART FLAG

                                   3755+*    THESE FLAGS ARE IN IOB FLAG 2                               BBBBBB
000080                             3756+IOBHLT   EQU   X'80' HALT I/O ISSUED FLAG
000040                             3757+IOBSNB   EQU   X'40' SENSE BIT
000020                             3758+IOBPRG   EQU   X'20' PURGE FLAG
000010                             3759+IOBHAR0  EQU   X'10' READ HA AND R0 FLAG
000008                             3760+IOBNET   EQU   X'08' NO TEST FOR OUT OF EXT.  BBBBBB
000008                             3761+IOBUEX   EQU   IOBNET WRT.ERR.ON UE FOR 2400 TAPE
000004                             3762+IOBROR   EQU   X'04' RD OP RECOVERY IN PROC.  BBBBBB
000002                             3763+IOBGRF   EQU   X'02' CE WITHOUT DE INDICAT. FOR GR.
000001                             3764+IOBQSM   EQU   X'01' USED BY QSAM AND TP

000010                             3766+IOBCC1   EQU   X'10' CONDITION CODE OF SIO
000030                             3767+IOBCC3   EQU   X'30' NOT OPERATIONAL C CODE



                                   3769+*    ECB DEFINITION                                              BBBBBB
000000                             3770+ECBFL    EQU   0 FLAGS

                                   3772+*    THESE ARE COMPLETION CODE SETTINGS                          BBBBBB
00007F                             3773+NORMC    EQU   X'7F' NORMAL COMPLETE SETTING OF FLS
00007E                             3774+IOBINT   EQU   X'7E' IOB INTERCEPT CODE
000041                             3775+PERMER   EQU   X'41' I-O PERM ERROR
000042                             3776+EXTERR   EQU   X'42' EXTENT PERM ERROR
000044                             3777+INTCOD   EQU   X'44' INTERCEPT POST CODE
000048                             3778+PRGCOD   EQU   X'48' PURGED REQUEST
       EQUATES - INPUT/OUTPUT SUPERVISOR                                                                       PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00004F                             3779+HAR0ER   EQU   X'4F' HOME ADDRESS AND R0 ERROR



                                   3781+*    UCB DEFINITION                                              BBBBBB
000004                             3782+UCBMPANX EQU   4 NEG. DISP. FOR MP FLAGS3   MP1A
000000                             3783+UCBFL3   EQU   0 FLAG IN UCB ANNEX        BBBBBB
000001                             3784+UCBALLC  EQU   1 ALLOCATE MASK FOR UCB
000001                             3785+UCBFL5   EQU   1 EXTRA UCB FLAGS           20201
000003                             3786+SRTESTAT EQU   3 STATUS BYTE A
000002                             3787+UCBID    EQU   2 UCB  I D
000004                             3788+UCBCHA   EQU   4 CHANNEL ADDRESS
000005                             3789+UCBUA    EQU   5 UNIT ADDRESS
000006                             3790+UCBFL1   EQU   6 FLAGS 1
000007                             3791+UCBDTI   EQU   7 DEVICE TABLE INDEX
000008                             3792+UCBETI   EQU   8 ERROR TABLE INDEX
000009                             3793+UCBSTI   EQU   9 STATISTICS TABLE INDEX
00000A                             3794+UCBLCI   EQU   10 LOGICAL CHANNEL INDEX
00000B                             3795+UCBATI   EQU   11 ATTENTION TABLE INDEX
00000C                             3796+UCBCHM   EQU   12 CHANNEL MASK(BITS 4-7)
00000D                             3797+UCBNAM   EQU   13 UNIT NAME - EBCDIC        19022
000010                             3798+UCBTYP   EQU   16 DEVICE TYPE CODE
000014                             3799+UCBLTS   EQU   20 LAST REQUEST ELEMENT ADDRESS
000016                             3800+UCBSNS   EQU   22 SENSE DATA
000016                             3801+UCBFL7   EQU   UCBSNS FLAGS 7 BYTE FOR DEVICES A44146
                                   3802+*                                       WITH EXPANDED SENSE      A44146
000018                             3803+UCBNBRSN EQU   24 COUNT OF DEVICE SENSE INFO20201
000019                             3804+UCBSNADR EQU   25 POINTER TO SENSE DATA AREA20201
00001C                             3805+UCBVOL1  EQU   28 VOLUME SERIAL              DAVV
00002A                             3806+UCBRQESV EQU   42 VOL VER RTN RQE SAVE AREA  DAVV
00002C                             3807+UCBFL4   EQU   44 VOL VER RTN FLAGS          DAVV
00002C                             3808+UCBORCNT EQU   44 ORD. SEEK QUEUE USER COUNT OSER
00002D                             3809+UCBORSV  EQU   45 ORD. SEEK QUEUE LAST DEB   OSER
000030                             3810+UCBSKA   EQU   48 LAST SEEK ADDRESS
000030                             3811+UCBROR   EQU   48 RD OP RECOVERY WK AREA   BBBBBB
000030                             3812+UCBVOPT  EQU   48 TAPE VOLUME OPTIONS       21048
000033                             3813+UCBCCR   EQU   51 CYLINDER OF LAST OPERATION
000038                             3814+DCELBBNR EQU   56 FIRST SUB-UCB OF 2321     19022
00003C                             3815+UCBWKADB EQU   60 PTR TO NON-2321 ERP WKAREA
0000D8                             3816+UCBWKADA EQU   216 PTR TO 2321 ERP WORK AREA  S248
000050                             3817+UCBWKDCC EQU   80 WK AREA DISPL TO DCC CP   19025
000028                             3818+UCBRRCNT EQU   40 ONE BYTE RES/REL COUNTER BBBBBB
000029                             3819+UCBDVRES EQU   41 DEVICE RESERVED INDICATOR  SDA1
000080                             3820+RSVD     EQU   X'80' DEVICE RESERVED BIT     SA73317
000040                             3821+PND      EQU   X'40' RESERVE/RELEASE PENDING SA73317
00007C                             3822+UCBRR0A  EQU   124 INPUT AREA FOR READ R0     S248
000004                             3823+UCBRHA   EQU   4 OFSET FROM R-R0 TO R-HA
000008                             3824+RHADR    EQU   8 INCR. TO RHA ADDRESS     A49373
000010                             3825+RR0ADR   EQU   16 INCR. TO RR0 DATA ADDR   A49373
000020                             3826+UCBRR    EQU   X'20' SHARED DEVICE OPTION IND.BBBBBB
000010                             3827+UCBRPS   EQU   X'10' ROT. POS. SNS. OPT. FEAT  19025
000040                             3828+UCBCHGS  EQU   X'40' VARY PENDING BIT        SA67706
000001                             3829+UCBUNSOL EQU   X'01' UNSOLICITED INTERRUPT     21048
       EQUATES - INPUT/OUTPUT SUPERVISOR                                                                       PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3831+*    FLAGS IN UCB CHANNEL FIELD
000080                             3832+UCBHLT   EQU   X'80' HALT I/O FLAG FROM PURGE
000040                             3833+UCBSMD   EQU   X'40' STATUS MODIFIER FLAG
000020                             3834+UCBDSNS  EQU   X'20' DELAYED SENSE PENDING     21111
000010                             3835+UCBDHIO  EQU   X'10' DELAYED HIO PENDING       21111

                                   3837+*    FLAGS 1 IN UCB                                              BBBBBB
000080                             3838+UCBBSY   EQU   X'80' BUSY BIT
000040                             3839+UCBNRY   EQU   X'40' UCB NOT READY
000020                             3840+UCBPST   EQU   X'20' POST FLAG
000010                             3841+UCBITF   EQU   X'10' UCB INTERCEPT FLAG
000008                             3842+UCBCUB   EQU   X'08' CONTROL UNIT BUSY FLAG
000004                             3843+UCBDTR   EQU   X'04' DISK DATA TRANSFER
000002                             3844+UCBASK   EQU   X'02' DISK ARM SEEKING
000001                             3845+UCBERR   EQU   X'01' ERROR RTN IN CONTROL FLAG
0000FF                             3846+UCBIDV   EQU   X'FF' ID BYTE OF UCB           BBBBBB

                                   3848+*    ATTN TABLE INDEX FOR HASP                                 @THAS801
000001                             3849+UCBHASP  EQU   X'01' -                  HASP PSEUDO-DEVICE     @THAS801

                                   3851+*    FLAGS 5 IN UCB                                               20201
000080                             3852+UCBUEX   EQU   X'80' UNIT EXEP ON SENSE       S22024
000020                             3853+UCBTICBT EQU   X'20' CE OR DE INTER. OWED     A42261
000008                             3854+UCBEXTSN EQU   X'08' SNESE DATA NOT IN UCB     20201
000004                             3855+UCBNALOC EQU   X'04' OLTEP OWNS DEVICE       SA58683

                                   3857+*    FLAGS 3 IN UCB FOR MULTIPROCESSING                          BBBBBB
000080                             3858+UCBACU   EQU   X'80' ALT. C.U. ON THIS DEVICE  19022
000008                             3859+UCBCPUA  EQU   X'08' WHICH CPU ISSUED LAST SIO 21063

                                   3861+*    FLAGS 4 IN UCB
0000F8                             3862+UCBDAV   EQU   X'F8' DAVV FLAG BYTE             DAVV
000078                             3863+UCBDAVV  EQU   X'78' DAVV MNT MASK           SA57136
000040                             3864+UCBVVR   EQU   X'40' VOL VER RTN IN CONTROL     DAVV
000048                             3865+UCBVER   EQU   X'48' VOLUME VERIFIED FLAG       DAVV

                                   3867+*    FLAGS 7 IN UCB
000080                             3868+STPPRNT  EQU   X'80' CANCEL KEY HIT ON 3211   A44146

                                   3870+*    UCB DEVICE TYPE CODES
000002                             3871+DRUM     EQU   X'02' DRUM
000005                             3872+UCB2321  EQU   X'05' DATA CELL
000006                             3873+ZEUSA    EQU   X'06' 20201
000007                             3874+ZEUSC    EQU   X'07' 20201
000009                             3875+MERLIN   EQU   X'09' 20201
000010                             3876+GRTYPE   EQU   X'10' GRAPHICS
000020                             3877+DSKTYP   EQU   X'20' DISK
000040                             3878+TPTYPE   EQU   X'40' TELEPROCESSING
000080                             3879+TAPE     EQU   X'80' TAPE



                                   3881+*    DEB DEFINITION                                              BBBBBB
000001                             3882+DEBTCB   EQU   1 DEB POINTER TO TCB
000004                             3883+DEBDEB   EQU   4 ADDR OF NEXT DEB IN CHAINDEBVTY
       EQUATES - INPUT/OUTPUT SUPERVISOR                                                                       PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                             3884+DEBOPFL  EQU   8 DATA SET STATUS FLAGS
00000D                             3885+DEBQUS   EQU   13 DEB QUIESCE COUNT        BBBBBB
000010                             3886+DEBENT   EQU   16 NO. OF DEB EXTENTS
000011                             3887+DEBUPG   EQU   17 USER PURGE CHAIN
000014                             3888+DEBPR    EQU   20 PRIORITY
000015                             3889+DEBEPG   EQU   21 PURGE ECB ADDR.
000018                             3890+DEBPRT   EQU   24 PROTECTION TAG
000018                             3891+DEBID    EQU   24 ID FOR PROTECTION
000019                             3892+DEBDCB   EQU   25 DCB LOC POINTER
00001C                             3893+DEBEXT   EQU   28 EXTENT SCALE
00001D                             3894+DEBAPG   EQU   29 APPD. TABLE BASE
000020                             3895+DEBMDM   EQU   32 MODIFIER MASK
000021                             3896+DEBUCB   EQU   33 UCB POINTER
000024                             3897+DEBEXTNT EQU   36 DEB EXTENT OFFSET
00000F                             3898+DEBIDV   EQU   X'0F' VALUE OF DEB ID
000004                             3899+DEBSCA   EQU   X'04' SPLIT CYLINDER ALLOCATION


                                   3901+*    DEB EXTENT OFFSETS
000000                             3902+DEBBB    EQU   0 BIN NUMBER
000002                             3903+DEBST    EQU   2 EXTENT START ADDRESS
000006                             3904+DEBEND   EQU   6 EXTENT END ADDRESS
                                   3905+*    DEB APPENDAGE VECTOR TABLE OFFSETS                          BBBBBB
000000                             3906+APGEOE   EQU   0 END OF EXTENT VECTOR
000004                             3907+APGSIO   EQU   4 APPENDAGE SIO VECTOR
000008                             3908+APGPCI   EQU   8 APPENDAGE PCI VECTOR
00000C                             3909+APGCHE   EQU   12 APPENDAGE CHANNEL END
000010                             3910+APGABE   EQU   16 APPENDAGE ABNORMAL END LOC



                                   3912+*    DCB DEFINITION                                              BBBBBB
00000C                             3913+DCBBLK   EQU   12 DCB FLOCK COUNT
00002C                             3914+DCBFL    EQU   44 FLAGS
00002D                             3915+DCBDEB   EQU   45 DEB POINTER
000034                             3916+DCBIEM   EQU   52 IOS ERROR MASK
000038                             3917+DCBUEM   EQU   56 USER ERROR MASK


                                   3919+*    DCB FLAGS
0000C0                             3920+DCBPER   EQU   X'C0' PERMANENT ERROR FLAGS
000040                             3921+DCBEX    EQU   X'40' EXCEPTION CONDITION
00000C                             3922+DCBIEK   EQU   X'0C' IOS ERROR KEY
000003                             3923+DCBUEK   EQU   X'03' USER ERROR KEY



                                   3925+*    REQUEST ELEMENT DEFINITION                                  BBBBBB
000000                             3926+TSTLNK   EQU   0 FORWARD RQE LINK
000002                             3927+TSTUCB   EQU   2 UCB POINTER
000004                             3928+TSTASSN  EQU   4 ASSIGN RQE BYTE
00000C                             3929+TSTKEY   EQU   12 REQUESTORS PROTECT KEY
00000C                             3930+TSTTCB   EQU   12 TCB POINTER
000010                             3931+RQELN    EQU   16 MVT RQE LENGTH
000005                             3932+TSTIOB   EQU   5 IOB POINTER
       EQUATES - INPUT/OUTPUT SUPERVISOR                                                                       PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                             3933+TSTPR    EQU   8 PRIORITY OF ENTRY
000009                             3934+TSTDEB   EQU   9 DEB POINTER



                                   3936+*    LOGICAL CHANNEL DEFINITION                                  BBBBBB
000000                             3937+LCHFTS   EQU   0 FIRST RQE
000002                             3938+LCHLTS   EQU   2 LAST RQE
000004                             3939+LCHENQ   EQU   4 ENQUEUE CODE POINTER
000004                             3940+LCHSRH   EQU   4 SCRATCH AREA
000006                             3941+LCHTCH   EQU   6 TEST CHANNEL CODE ADDRESS
000080                             3942+LCHOUT   EQU   X'80' PRER



                                   3944+*    DEVICE TABLE DEFINITION                                     BBBBBB
000000                             3945+DVTENQ   EQU   0 ENQUEUE ADDRESS OFFSET
000002                             3946+DVTSIO   EQU   2 SIO ADDRESS OFFSET
000004                             3947+DVTTRP   EQU   4 TRAP ADDRESS OFFSET
000006                             3948+DVTSEN   EQU   6 20201



                                   3950+*    LOGICAL CHANNEL TABLE                                       BBBBBB
000000                             3951+LCTCSC   EQU   0 LOGICAL CH. TBL SEARCH CODE
000002                             3952+LCTMSK   EQU   2 LOGICAL CH. TBL MSK
000003                             3953+LCTFLS   EQU   3 LOGICAL CHANNEL TBL FLAGS
000003                             3954+LCTSLBX  EQU   X'03' SELECTOR OR BLK MPX MASK A47317



                                   3956+*    SYSTEM CHANNEL PROGRAM OFFSETS                              BBBBBB
000000                             3957+SEEK2    EQU   0 D/A DTR CCW
000008                             3958+SFMCCW   EQU   SEEK2+8 SET FILE MASK CCW        BBBBBB
00000D                             3959+SMMSK2   EQU   SEEK2+13 FILE MASK LOC. IN CCW
000010                             3960+SKTIC    EQU   SEEK2+16 TIC TO USERS PROGRAM
000008                             3961+TAPEIO   EQU   8 SET MODE OR TIE OPCODE  SA54451
00000D                             3962+CRCBTE   EQU   13 CRC CORRECTION BYTE     SA54451
000010                             3963+TAPETIC  EQU   16 TIC TO USER             SA54451


                                   3965+*    CCW FLAG BITS                                               BBBBBB
000004                             3966+CCWFLG   EQU   4 CCW OFFSET TO FLAGS      BBBBBB
000040                             3967+CCWCC    EQU   X'40' COMMAND CHAINING BIT     BBBBBB
000020                             3968+CCWSLI   EQU   X'20' SUPPRESS LENGTH BIT      BBBBBB
000010                             3969+CCWSD    EQU   X'10' SUPPRESS DATA TRANSFER   BBBBBB
000008                             3970+CCWLN    EQU   8 LENGTH OF CCW            A27691

                                   3972+*    CCW COMMAND CODES
000094                             3973+RELEASE  EQU   X'94' 2-CHANNEL SWITCH RELEASE   IMP5
0000B4                             3974+RESERVE  EQU   X'B4' 2-CHANNEL SWITCH RESERVE   IMP5
000004                             3975+SENSOP   EQU   X'04' SENSE                      IMP5
000016                             3976+RR0OP    EQU   X'16' READ R0                  A49373
00001F                             3977+SETFMSK  EQU   X'1F' SET FILE MASK              IMP5
00001A                             3978+HAOP     EQU   X'1A' READ HOME ADDRESS          IMP5
       EQUATES - INPUT/OUTPUT SUPERVISOR                                                                       PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                             3979+TICOP    EQU   X'08' TRANSFER IN CHANNEL        IMP5
00001B                             3980+TIEOP    EQU   X'1B' TRACK IN ERROR FOR TAPE    IMP5
000003                             3981+NOOP     EQU   X'03' NO OPERATION               IMP5
       EQUATES - INPUT/OUTPUT SUPERVISOR                                                                       PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3983+*    STATUS INDICATORS                                           BBBBBB
000080                             3984+CSWATN   EQU   X'80' ATTENTION FLAG
000040                             3985+CSWSMD   EQU   X'40' STATUS MODIFIER
000020                             3986+CSWCUE   EQU   X'20' CONTROL UNIT END
000010                             3987+CSWBSY   EQU   X'10' BUSY
000008                             3988+CSWCHE   EQU   X'08' CHANNEL END
000004                             3989+CSWDVE   EQU   X'04' DEVICE END
000002                             3990+CSWUCK   EQU   X'02' UNIT CHECK
000001                             3991+CSWUEX   EQU   X'01' UNIT EXCEPTION
000080                             3992+CSWPCI   EQU   X'80' PCI
000040                             3993+CSWIL    EQU   X'40' WRONG LENGTH IND.
000020                             3994+CSWPC    EQU   X'20' PROGRAM CHECK
000010                             3995+CSWPCK   EQU   X'10' PROTECTION CHECK
000008                             3996+CSWCDK   EQU   X'08' CHANNEL DATA CHECK
000004                             3997+CSWCTK   EQU   X'04' CHANNEL CONTROL CHECK
000002                             3998+CSWICK   EQU   X'02' INTERFACE CONTROL CHECK
000001                             3999+CSWCCK   EQU   X'01' CHAINING CHECK
000050                             4000+CUBBIT   EQU   CSWSMD+CSWBSY CONTROL UNIT BUSY        BBBBBB
00000E                             4001+CATBIT   EQU   CSWCDK+CSWCTK+CSWICK CATASTROPHIC ERROR       BBBBBB
000008                             4002+CATCCH   EQU   CSWCDK CHANNEL DATA CHECK       BBBBBB
000004                             4003+CSWCLP   EQU   X'04' CHANNEL LOGOUT PENDING    21111
000068                             4004+ERPWKA   EQU   104 OFFSET TO ERP WORK AREA   21111



                                   4006+*    CCH INDEX/FLAG DEFINITIONS                                  BBBBBB
000000                             4007+CATSSK   EQU   0 DIRECT ACCESS MODULE - SIO  CCH
000004                             4008+CATTIOSK EQU   4 DIRECT ACCESS MODULE - TIO  CCH
000008                             4009+CATSNS   EQU   8 .                      SENSE SUBROUTINE ----- SIO  CCH
00000C                             4010+CATTIOSN EQU   12 .                     SENSE SUBROUTINE ----- TIO  CCH
000010                             4011+CATSIO   EQU   16 POST SIO MODULE -----SIO BBBBBB
000014                             4012+CATINT   EQU   20 IOS INTERRUPT SUP. ---INT.
000018                             4013+CATHIO   EQU   24 HIO SUBROUTINE -----HIO  BBBBBB
00001C                             4014+CATREC   EQU   28 SENSE SUBROUTINE RETURN  BBBBBB



                                   4016+*    CHANNEL ERROR BLOCK DEFINITION AND APR FLAGS                BBBBBB
000000                             4017+CEBINA   EQU   0 CEB INACTIVE FIELD        19022
000001                             4018+CEBCHMSK EQU   1 CEB CHAN MASK FIELD       19022
000002                             4019+CEBRQE   EQU   2 CEB RQE FIELD             19022
0000FE                             4020+FREE     EQU   X'FE' INACTIVE CEB INDICATOR    19022
000004                             4021+CEBNXT   EQU   4 OFFSET TO NEXT CEB        19022
000001                             4022+CEBACT   EQU   X'01' CEB ACT SW, AN ACTIVE CEB 19022
000001                             4023+MULTPATH EQU   X'01' MULTIPLE PATH INDICATOR   19022
000001                             4024+PTHIND   EQU   1 PATH INDICATOR FIELD      19022
000F00                             4025+HEXF00   EQU   X'F00' CHANNEL MASK              19022
00000F                             4026+CUZER    EQU   X'0F' CONTRL UNIT ADDR MASK     19022
0000F0                             4027+CUAZER   EQU   X'F0' CONT UNIT ADDR ZERO MSK   19022
0000C1                             4028+CPUA     EQU   X'C1' CPUA INDICATOR            19022
0000C2                             4029+CPUB     EQU   X'C2' CPUB INDICATOR          SA60510
00000A                             4030+TWOPATHS EQU   X'0A' PATH COMP MASK - 2 PATHS  19022
00000F                             4031+FOURPATH EQU   X'0F' PATH COMP MASK - 4 PATHS  19022
       EQUATES - INPUT/OUTPUT SUPERVISOR                                                                       PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4033+*    THESE ARE THE FLAGS SET IN XCPBTE
000080                             4034+XCPCNT   EQU   X'80' XCP IN CONTROL FLAG
000020                             4035+XCPERR   EQU   X'20' ERROR RTN ENTRANCE
000001                             4036+XCPST    EQU   X'01' SHOULDER TAP ENTRANCE      MP1A
000010                             4037+XCPRMS   EQU   X'10' RMS PROCESSING FLAG       19021
000008                             4038+XCPRECUR EQU   X'08' PROGRAM CHECK RECURSING  A24739
000002                             4039+XCPVALID EQU   X'02' VDTY CHK IN PROCESS      A24739



                                   4041+*    TCB FLAGS
00001C                             4042+TCBPRT   EQU   28 LOC IN TCB FOR USER PROTECT
00001E                             4043+TCBFLG   EQU   30 TCB MUST COMPLETE FLAG BYTE
000023                             4044+TCBPR    EQU   35 TCB DISPATCH PRIORITY    BBBBBB
000020                             4045+TCBFLGS  EQU   32 TCB DISPATCHABILITY FLAGE
000074                             4046+TCBTCB   EQU   116 TCB READY Q LINK FIELD
000020                             4047+TCBRQENA EQU   X'20' RQE NOT AVAL FLAG(TCB)
0000F0                             4048+PPKEY    EQU   X'F0'



                                   4050+*    RMS FLAGS                                                    19021
000080                             4051+RMSACTV  EQU   X'80' RMS ACTIVE INDICATOR      19021
000040                             4052+RMSRQEFL EQU   X'40' RMS RQE SAVE AREA IN USE  19021



                                   4054+*    OPTION CODES FOR OLTEP                                       19026
000080                             4055+OLTCHOPT EQU   X'80' OLTEP CHANNEL FUNCTION    19026
000040                             4056+OLTDEPST EQU   X'40' OLTEP D.E. POSTING        19026
000020                             4057+OLTATPST EQU   X'20' OLTEP ATTN POSTING        19026
000010                             4058+OLTBYPFN EQU   X'10' BYPASS SK, SFM, TIC CHAIN 19026
000008                             4059+OLTEXP   EQU   X'08' SPECIFIC 2305 EXPOSURE    21051
000002                             4060+OLTSIO   EQU   X'02' 2ND SIO FUNCTION          21051


                                   4062+*    EXIT OFFSETS TO OLTEP ROUTINE                                19026
000008                             4063+OLTHLT   EQU   8 FROM HALT I/O ROUTINE     19026
000010                             4064+OLTCHN   EQU   16 FROM TEST CHANNEL         19026
000014                             4065+OLTZEUS  EQU   20 FROM 2305 SIO CODE        21051



                                   4067+*    VECTOR TABLE OFFSETS                                        BBBBBB
000004                             4068+SELTAG   EQU   4 SELECT TRY AGAIN EXIT
000008                             4069+SELBSY   EQU   8 SELECT BUSY EXIT
00000C                             4070+SELNLCH  EQU   12 SELECT NXT. LCH RETURN



                                   4072+*    PERMANENT STORAGE LOCATION ASSIGNMENTS                      BBBBBB
000010                             4073+CVTADR   EQU   16 LOCATION OF CVT ADDRESS  BBBBBB
000020                             4074+SVOPSW   EQU   32 SVC OLD PSW LOC.
000028                             4075+PCKOPSW  EQU   40 PGM CK OLD PSW
000038                             4076+IOPSWO   EQU   56 I/O OLD PSW LOCATION
       EQUATES - INPUT/OUTPUT SUPERVISOR                                                                       PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000040                             4077+CSWLOC   EQU   64 CSW LOCATION
000048                             4078+CAWLOC   EQU   72 CAW LOCATION
000070                             4079+MCKPSW   EQU   112 MACHINE CHECK PSW LOC    BBBBBB



                                   4081+*        ABEND SAVE AREA EQUATES
000000                             4082+ABID     EQU   0 0   ABEND EBCDIC ID
000008                             4083+ABTCB    EQU   ABID+8 8   ABEND TCB
00000C                             4084+ABCODE   EQU   ABTCB+4 C   ABEND CODE
000010                             4085+ABIOPSW  EQU   ABCODE+4 10   ABEND I/O OLD PSW
000014                             4086+ABRQEAD  EQU   ABIOPSW+4 14   ABEND RQE ADDRESS
000014                             4087+ABBTE    EQU   ABRQEAD 14   ABEND XCPBTE
000018                             4088+ABRQE    EQU   ABRQEAD+4 18   ABEND RQE CONTENTS
000028                             4089+ABCSW    EQU   ABRQE+16 28   ABEND CURRENT CSW
000030                             4090+ABPCOPSW EQU   ABCSW+8 30   ABEND PGM CHECK OLD PSW
000038                             4091+ABSVOPSW EQU   ABPCOPSW+8 38   ABEND SVC OLD PSW
000040                             4092+ABREGS   EQU   ABSVOPSW+8 40   ABEND PGM CK REGS



                                   4094+*    MISCELLANEOUS DEFINITIONS                                   BBBBBB
000000                             4095+ZERO     EQU   0 ZERO OFFSET                IMP5
000000                             4096+CHPTH    EQU   0 OFFSET IN MP CHAN AVAIL TBL
000000                             4097+TSKSW    EQU   0 TASK SWITCH
000000                             4098+BASADR   EQU   0 OFFSET FOR BASE UCP PTR   20201
000001                             4099+ONE      EQU   1 USER COUNT INCREMENT       OSER
000001                             4100+NXTCH    EQU   1 INCREMENT CHAN ADDR
000002                             4101+TWO      EQU   2 BBBBBB
000004                             4102+FOUR     EQU   4 BBBBBB
000004                             4103+OLDTCB   EQU   4 OLD TCB ADDRESS
000004                             4104+CHSNXT   EQU   4 INC. FOR NEXT CODING IN CH. SH.
000004                             4105+NXTEXP   EQU   4 OFFSET FOR EXPOSURE UCB CH20201
000005                             4106+FIVE     EQU   5 OFFSET TO TCB ADDR ENTRY  20001
000008                             4107+TCBADR   EQU   8 OFFSET IN PARM LIST      BBBBBB
000008                             4108+QCNT     EQU   8 QUIESCE COUNT OFFSET     BBBBBB
00000A                             4109+TEN      EQU   10 SENSE RETRY COUNT        A50319
00000C                             4110+ADTCE    EQU   12 ADDRESS TRACE ROUTINE      TRCE
00000C                             4111+QPLPTR   EQU   12 LIST PTR IN PURGE PARM    20001
00000E                             4112+SIOCNT   EQU   14 TAPE SIO COUNTER OFFSET  19023
00001A                             4113+SIRBRQE  EQU   26 RQE OFFSET IN SIRB      SA53191
000034                             4114+CVTABT   EQU   52 OFFSET TO ABTERM ADDRESS BBBBBB
00005C                             4115+EXPCHN   EQU   92 OFFSET FOR CONTROL UCB PTR20201
000070                             4116+TCBID    EQU   112 ID OFFSET IN THE TCB
0000A0                             4117+CVTHEAD  EQU   160 OFFSET TO HIGHEST TCB    A24739
0000A4                             4118+UPBND    EQU   164 UPPER BOUND OF CORE        TRCE
0000FC                             4119+KYWD     EQU   252 ADDRESS KEYWORD            TRCE
000108                             4120+PLIST    EQU   264 PARM LIST                  TRCE
000080                             4121+ONLNPTH  EQU   X'80' PATH IS AVAILABLE       SA60510
000080                             4122+SHRDMPX  EQU   X'80' LOW UNIT ON SHARED MPX   A47317
000001                             4123+DUMADR   EQU   X'01' DUMMY ADDRESS
000002                             4124+SYSCON   EQU   X'02' SYSRES OR CONSOLE DEV
000008                             4125+LSTOPT   EQU   X'08' LIST OPTION FOR PURGE     20001
000010                             4126+BLKMPX   EQU   X'10' BLOCK MPX CHN INDICATOR   19025
000020                             4127+NOTPMF   EQU   X'20' ALL CODES EXCEPT PERM ERROR
       EQUATES - INPUT/OUTPUT SUPERVISOR                                                                       PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000070                             4128+CHRCF    EQU   X'70' RECONFIGURED BITS
000080                             4129+CHBSY    EQU   X'80' SELECTOR CHAN BUSY BIT
000080                             4130+QPLFLST  EQU   X'80' LAST ENTRY INDICATOR      20001
00000F                             4131+PATHINOP EQU   X'0F' INOPERATIVE PATH MASK
00000F                             4132+OF       EQU   X'0F'
0000FE                             4133+EXTMSK   EQU   X'FE' EXTENT MASK
0000FE                             4134+RSTMSK   EQU   X'FE' CHANNEL MASK FOR RESTRT  A24739
0000FF                             4135+FF       EQU   X'FF'
00005C                             4136+SVC92    EQU   X'5C' TSO TCB EXCP SVC CODE   SA71480
000003                             4137+MAXENQ   EQU   X'03' MAXIMUM USER COUNT         OSER
000007                             4138+ORCNTR   EQU   X'07' OSER
                                   4139+*
                                   4140+* SYMBOLIC EID TABLE FOR THE HOOK MACRO
                                   4141+*
010A00                             4142+IHLMABOF EQU   X'010A00' 1-2560
010A01                             4143+IHLMABON EQU   X'010A01' 1-2561
010A02                             4144+IHLMSVOF EQU   X'010A02' 1-2562
010A03                             4145+IHLMSVON EQU   X'010A03' 1-2563
010AFC                             4146+IHLMGSTP EQU   X'010AFC' 1-2812
010AFD                             4147+IHLMSSP  EQU   X'010AFD' 1-2813
010AFE                             4148+IHLMABND EQU   X'010AFE' 1-2814
010AFF                             4149+IHLMSCMT EQU   X'010AFF' 1-2815
020FDF                             4150+IHLMPCI  EQU   X'020FDF' 2-4063
030FFF                             4151+IHLMSVC  EQU   X'030FFF' 3-4095
040FE7                             4152+IHLMDSP  EQU   X'040FE7' 4-4071
050FEE                             4153+IHLMIO1  EQU   X'050FEE' 5-4078
050FEF                             4154+IHLMIO2  EQU   X'050FEF' 5-4079
050FF0                             4155+IHLMSIO  EQU   X'050FF0' 5-4080
0D0FFC                             4156+IHLMSSM  EQU   X'0D0FFC' 13-4092
0D0FFD                             4157+IHLMPI   EQU   X'0D0FFD' 13-4093
0D0FFE                             4158+IHLMEXT  EQU   X'0D0FFE' 13-4094
000010                             4159+INVHSP   EQU   X'10' -             ABEND CODE FOR INVALID HASP @THAS801
000020                             4160+INVECB   EQU   X'20' ABEND CODE FOR INVALID ECB21016
000030                             4161+INVDEB   EQU   X'30' ABEND CODE FOR INVALID DEB21016
000040                             4162+INVDCB   EQU   X'40' ABEND CODE FOR INVALID DCB21016
000050                             4163+INVUCB   EQU   X'50' ABEND CODE FOR INVALID UCB21016
000060                             4164+INVLCH   EQU   X'60' ABEND CODE FOR INVALID LCH
       MAJOR ROUTINE ENTRY POINTS - INPUT/OUTPUT SUPERVISOR                                                    PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4166+***********************************************************************
                                   4167+*                                                                     *
                                   4168+*             ENTRY LABELS TO MAJOR SUBROUTINES AND MODULES           *
                                   4169+*                                                                     *
                                   4170+*        TITLE                              LABEL          MACRO      *

                                   4172+*        EXCP SUPERVISOR                    XEXCP          IECXCP     *
                                   4173+*        EXCP VALIDITY CHECK SUBROUTINE     XVCK01         IECXCP     *
                                   4174+*        GET REQUEST ELEMENT SUBROUTINE     XCPTST         IECXCP     *
                                   4175+*        TAPE SIO MODULE                    XIOTPE         IECXCP     *
                                   4176+*        DIRECT ACCESS SIO MODULE           XIODSK         IECXCP     *
                                   4177+*        UNIT RECORD AND TP SIO MODULE      XIOUR          IECXCP     *
                                   4178+*        SIO SUBROUTINE                     XCPSIO         IECXCP     *
                                   4179+*        POST SIO SUBROUTINE                XCPPIO         IECXCP     *
                                   4180+*        DEQUEUE MODULE                     XCPPDQ         IECXCP     *
                                   4181+*        I/O INTERRUPT SUPERVISOR           IECINT         IECINT     *
                                   4182+*        CHANNEL RESTART SUBROUTINE         INT033         IECINT     *
                                   4183+*        QUIESCE COMPLETE INTERFACE         PRGCOMA        IECINT     *
                                   4184+*        TASK SWITCH ON LAST RQE            INTVMSA        IECINT     *
                                   4185+*        ATTENTION ROUTINE INTERFACE        INTATT         IECINT     *
                                   4186+*        DAVV ATTENTION ROUTINE             INTATN         IECINT     *
                                   4187+*        UNIT RECORD TRAP MODULE            INTURT         IECINT     *
                                   4188+*        TAPE TRAP MODULE                   INTTAT         IECINT     *
                                   4189+*        DIRECT ACCESS TRAP MODULE          INTDAT         IECINT     *
                                   4190+*        TELEPROCESSING TRAP MODULE         XCPTPT         IECINT     *
                                   4191+*        SENSE SUBROUTINE                   INTSEN         IECINT     *
                                   4192+*        INTERRUPT ERROR INTERFACE          INTERR         IECINT     *
                                   4193+*        SHOULDER TAP INTERFACE             IECISHTP       IECINT     *
                                   4194+*        POST ROUTINE INTERFACE             XCPPST         IECIOS     *
                                   4195+*        VALIDITY CHECK SUBROUTINE          VALCHK         IECIOS     *
                                   4196+*        COMMON TEST CHANNEL MODULE         XCPTCH         IECXTCH    *
                                   4197+*        CHANNEL SEARCH - CONFIG DEP        INTCS-         IECICS     *
                                   4198+*        PROGRAM CHECK RECOVERY SUBROUTINE  IECCPL00       IECIOSB    *
                                   4199+*        ABTERM INTERFACE                   XERX04         IECIOSB    *
                                   4200+*        TSO TCB EXCP INTERFACE             IECXPT         IECIOSB    *
                                   4201+*        SERR INTERFACE                     SERR           IECIOSB    *
                                   4202+*        FIFO ENQUEUE MODULE                XCPENQ         IECIOSB    *
                                   4203+*        ORDERED SEEK ENQUEUE MODULE        XCPSEQ         IECIOSB    *
                                   4204+*        PRIORITY ENQUEUE MODULE            XCPPRQ         IECIOSB    *
                                   4205+*        RMS CHANNEL RESTART INTERFACE      INTRMS         IECIOSB    *
                                   4206+*        RMS MODULE LOADER INTERFACE        IECRMS         IECIOSB    *
                                   4207+*        DDR APPENDAGE SUPPORT INTERFACE    DDRAPNVT       IECIOSB    *
                                   4208+*        APR CEB DEACTIVATE SUBROUTINE      INTDEACT       IECIOSB    *
                                   4209+*        ALTERNATE PATH RETRY SUBROUTINE    INTAPR01       IECIOSB    *
                                   4210+*        COMMON HIO SUBROUTINE              IECIHIO        IECIOSB    *
                                   4211+*        M65MP VARY COMMAND INTERFACE       IECTIOMP       IECIOSB    *
                                   4212+*        EXCP ERROR INTERFACE               IECXCPER       IECIOSB    *
                                   4213+*                                                                     *
                                   4214+***********************************************************************
       IOS PROBLEM DETERMINATION AREA LAYOUT                                                                   PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4216+*  PROBLEM DETERMINATION AREAS ARE OBTAINED AS NEEDED FROM
                                   4217+*  SUBPOOL 253 IN SQS.  TO LOCATE THE AREA IN A SYSABEND DUMP,
                                   4218+*  LOCATE THE SQS POINTER AT TCB+X'9C'.  FOLLOW THE CHAIN TO
                                   4219+*  A BLOCK BEGINNING WITH THE CHARACTERS 'IOSABEND'.
                                   4220+*  THE PROBLEM DETERMINATION AREA SAVES MUCH INFORMATION IN
                                   4221+*  A SYSABEND DUMP WHICH MAY OTHERWISE BE IMPOSSIBLE TO
                                   4222+*  OBTAIN.


                                   4224+************************************************
                                   4225+*                                              *
                                   4226+*        PROBLEM DETERMINATION AREA            *                US06042
                                   4227+*                                              *
                                   4228+************************************************
                                   4229+*00*     I  O  S  A  B  E  N  D                *
                                   4230+************************************************
                                   4231+*08*         TCB ADDRESS                       *
                                   4232+************************************************
                                   4233+*0C*       ABEND COMPLETION CODE               *
                                   4234+************************************************
                                   4235+*10*     FIRST HALF OF THE I/O OLD PSW         *
                                   4236+************************************************
                                   4237+*14*  XCPBTE  *          *   RQE ADDRESS       *
                                   4238+************************************************
                                   4239+*18*     RQE CONTENTS   (4 WORDS)              *
                                   4240+************************************************
                                   4241+*28*     CURRENT CSW    (2 WORDS)              *
                                   4242+************************************************
                                   4243+*30*    PGM CK OLD PSW  (2 WORDS)              *
                                   4244+************************************************
                                   4245+*38*     SVC OLD PSW    (2 WORDS)              *
                                   4246+************************************************
                                   4247+*40*     PGM CHECK REGS OR CURRENT REGS        *
                                   4248+************************************************

                                   4250+*                         XCPBTE
                                   4251+* 00  INTERRUPT ENTRY TO IOS         * 02  VALIDITY CHECK IN PROC
                                   4252+* 80  EXCP ENTRY TO IOS              * 10  RMS IN CONTROL
                                   4253+* A0  ERROR EXCP ENTRY TO IOS        * 08  PGM CHECK IOS

                                   4255+*                       ABEND CODES
                                   4256+* 200  INV ECB             * 0F1  PGM CHK IN INT HANDLER
                                   4257+* 300  INV DEB             * 0F2  PGM CHK IN IOS--SVC ENTRY
                                   4258+* 400  INV DCB             * 10F  INVALID RQE PASSED TO ERR EXCP
                                   4259+* 500  INV UCB             * F5C  INVALID USE OF SVC 92
                                   4260+* 600  INV LCH
       EXCP HANDLER - INTPUT/OUTPUT SUPERVISOR                                                                 PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4262+**********************************************************************
                                   4263+*                                                                    *
                                   4264+*                        EXCP SUPERVISOR


                                   4266+*              THE EXCP SUPERVISOR IS THAT PART OF THE INPUT OUTPUT
                                   4267+*              SUPERVISOR WHICH HANDLES THE EXCP MACRO INSTRUCTION.
                                   4268+*              THE FOLLOWING IS THE GENERAL FLOW THROUGH THIS ROUTINE.

                                   4270+*                   1. THE ADDRESSES OF THE SYSTEM CONTROL BLOCKS FOR
                                   4271+*                      THIS REQUEST ARE DETERMINED.
                                   4272+*                   2. THESE BLOCKS ARE CHECKED FOR VALIDITY. IF THEY
                                   4273+*                      ARE INVALID,THE TASK ISSUING THE I/O REQUEST
                                   4274+*                      IS ABNORMALLY TERMINATED.
                                   4275+*                   3. A REQUEST ELEMENT IS OBTAINED AND THE ADDRESSES
                                   4276+*                      OF THE UCB, IOB AND DEB ARE PLACED INTO IT ALONG
                                   4277+*                      WITH TASK AND PRIORITY DATA.
                                   4278+*                   4. A TEST IS MADE TO SEE IF THE DEVICE IS AVAILABLE
                                   4279+*                      IF NOT THE REQUEST IS ENQUEUED FOR FUTURE RE-
                                   4280+*                      START.
                                   4281+*                   5. A TEST IS MADE TO SEE IF THE CHANNEL IS AVAIL-
                                   4282+*                      ABLE. IF NOT, THE REQUEST IS ENQUEUED.
                                   4283+*                   6. THE APPROPRIATE SIO MODULE IS ENTERED AND DEVICE
                                   4284+*                      DEPENDANT SIO PROCEDURES ARE INITIATED.
                                   4285+*                   7. WHEN THE DEVICE IS STARTED, THE REQUEST ELEMENT
                                   4286+*                      IS HUNG ON THE UCB FOR THAT DEVICE.
                                   4287+*                   8. ANY ERROR CONDITIONS ASSOCIATED WITH THE SIO
                                   4288+*                      ARE ANALYZED AND APPROPRIATE ACTION TAKEN.
                                   4289+*                   9. RETURN IS MADE TO THE SUPERVISOR.
                                   4290+*                                                                    *
                                   4291+***********************************************************************


003548                             4293+IGC000   DS    0D START ON DOUBLE WORD BOUNDRY
00354A                             4294+         USING IOSBAS,BASREG SPECIFY                    RL19
004548                             4295+         USING IOSBAS+4094,BASREG2 BASE REGISTERS             RL19
003548 0550                        4296+XEXCP    BALR  BASREG,0 SET LOW BASE REGISTER           TBSE
00354A 4185 0FFE            00FFE  4297+IOSBAS   LA    BASREG2,4094(BASREG) SET HIGH BASE REG          RL19
00354A                             4298+IOSBASE  EQU   IOSBAS EQUATE FOR AL2'S           RL19
00354E 5040 821C            04764  4299+         ST    TCBREG,CURRTCB SAVE CURRENT TCB ADDR   SA53199
003552 1821                        4300+XBASE    LR    IOBREG,1 TRANSFER FROM PASSING REGISTER
       EXCP VALIDITY CHECK - INTPUT/OUTPUT SUPERVISOR                                                          PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4302+***********************************************************************
                                   4303+*                                                                    *
                                   4304+*                        EXCP VALIDITY CHECK


                                   4306+*              THIS ROUTINE CHECKS THE VALIDITY OF THE VARIOUS CONTROL
                                   4307+*              BLOCKS USED BY THE I/O SUPERVISOR.  THESE BLOCKS ARE
                                   4308+*              THE IOB, DCB, DEB, AND UCB.  IMPROPER BOUNDRIES WILL   *
                                   4309+*              RESULT IN A PROGRAM CHECK IN IOS WHEN TRYING TO LOAD   *
                                   4310+*              REGISTERS.  THE BLOCK ID IS CHECKED ON THE DEB AND UCB *
                                   4311+*              THE BACKLINK FROM THE DEB TO THE DCB IS CHECKED. IF ANY
                                   4312+*              OF THESE CHECKS FAIL ABNORMAL TERMINATION PROCEDURES
                                   4313+*              ARE INITIATED.  THE REQUEST ELEMENT REGISTER IS ZEROED,
                                   4314+*              HOWEVER, IN CASE A PROGRAM CHECK WOULD OCCUR IN WHICH
                                   4315+*              CASE THE PC INTERRUPT HANDLER WILL CORRECTLY BE ABLE TO
                                   4316+*              ASSOCIATE THE INTERRUPT WITH THE PROPER TASK.
                                   4317+*                                                                    *
                                   4318+* ENTRY POINTS                                                        *
                                   4319+*              XVCK01   REGISTER INITIALIZATION FROM ERREXCP INTERFACE*
                                   4320+*                                                                     *
                                   4321+* EXITS                                                               *
                                   4322+*              XERX04  INVALID CONTROL BLOCK, EXIT TO ABTERM.         *
                                   4323+*                                                                     *
                                   4324+***********************************************************************


003554 9282 83D9      04921        4326+         MVI   XCPBTE,XCPCNT+XCPVALID CLEAR FLAGS, SET EXCP    A24739
003558 41C0 50C0            0360A  4327+         LA    LNKRG3,XCP060 LOAD ADDR OF CTL BLK INITA51000
00355C 1B11                        4328+         SR    TSTREG,TSTREG CLEAR FOR POSSIBLE PGM CHECK
00355E 4010 83CC            04914  4329+         STH   TSTREG,LTSVALSV NO VALID RQE YET         A24739

                                   4331+**********************************************************************
                                   4332+*              ENTRANCE IS MADE HERE FROM THE ERREXCP ENTRANCE
                                   4333+*              SO THAT REGISTERS CAN BE SET UP.

                                   4335+*  THIS PICKS UP THE CURRENT TCB ADDR. IN CASE OF ABTERM. ON EXCP

003562 1804                        4337+XVCK01   LR    REG0,4 GET TCB ADDRESS             IMP4
003564 5842 0014            00014  4338+         L     DCBREG,IOBDCB-1(IOBREG) GET DCB POINTER
003568 5834 002C            0002C  4339+         L     DEBREG,DCBDEB-1(DCBREG) GET DEB POINTER
00356C D502 2015 3019 00015 00019  4340+         CLC   IOBDCB(3,IOBREG),DEBDCB(DEBREG) TEST FOR VALID DCB
003572 58F0 81EC            04734  4341+         L     APBSRG,IECPL2 GET TEMP BASE REG      @SA77644
003576 477F 01BE            001BE  4342+         BC    7,XERX02C-IECCPL02(APBSRG) ERROR,INVALID DCB    @SA77644
00357A 9120 83D9      04921        4343+         TM    XCPBTE,XCPERR ENTRY FROM SVC 15      @SA77622
00357E 4780 5042            0358C  4344+         BC    8,XVCK02 NO, NO RQE YET         @SA77622
003582 D502 1009 402D 00009 0002D  4345+         CLC   TSTDEB(3,TSTREG),DCBDEB(DCBREG) RQEDEB = DCBDEB @SA77622
003588 477F 01BE            001BE  4346+         BC    7,XERX02C-IECCPL02(APBSRG) ERROR,INVALID DCB    @SA77622
00358C                             4347+XVCK02   EQU   * @SA77622
00358C 91F0 0021      00021        4348+         TM    SVOPSW+1,PPKEY IS PROTECT KEY ZERO
003590 4780 504E            03598  4349+         BC    8,XCP061 YES-BYPASS NEXT TEST
003594 45E0 814A            04692  4350+         BAL   LNKRG2,VALCHK BRANCH TO VALIDITY CHECK A24739
003598 1B99                        4351+XCP061   SR    ICREG,ICREG CLEAR INSERT CHAR  REG.
00359A 18A9                        4352+         LR    WKREG1,ICREG PREPARE SHIFT REG.
00359C 91FE 3010      00010        4353+         TM    DEBENT(DEBREG),EXTMSK TEST FOR ANY EXTENTS
0035A0 4770 5066            035B0  4354+         BC    7,XCP061B YES-USE M GT 1 DIRECTLY
       EXCP VALIDITY CHECK - INTPUT/OUTPUT SUPERVISOR                                                          PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0035A4 4873 0022            00022  4355+         LH    UCBREG,DEBUCB+1(DEBREG) GET 1ST EXTENT
0035A8 9170 7012      00012        4356+         TM    UCBTYP+2(UCBREG),DSKTYP+TPTYPE+GRTYPE
0035AC 4780 508A            035D4  4357+         BC    8,XCP061C NO-DOESN'T HAVE AN M
0035B0 4393 0010            00010  4358+XCP061B  IC    ICREG,DEBENT(DEBREG) .   GET NBR OF EXTENTS--DEB  A43938
0035B4 43A2 0020            00020  4359+         IC    WKREG1,IOBDAM(IOBREG) GET EXTENT INDEX
0035B8 19A9                        4360+         CR    WKREG1,ICREG .           IOB EXTENT TO USE + DEB  A43938
0035BA 4740 507E            035C8  4361+         BL    XCP061A .                DO NOT TEST FOR BAD M   SA61714
0035BE 12AA                        4362+         LTR   WKREG1,WKREG1 .          IS DEB COUNT ZERO        SM5480
0035C0 58F0 81EC            04734  4363+         L     APBSRG,IECPL2 GET TEMP BASE REG      @SA77644
0035C4 477F 01C6            001C6  4364+         BC    7,XERX02D-IECCPL02(APBSRG) NO, INVALID DEB      @SA77644
0035C8 4393 001C            0001C  4365+XCP061A  IC    ICREG,DEBEXT(DEBREG) .   GET EXTENT SIZE          A43938
0035CC 89A0 9000            00000  4366+         SLL   WKREG1,0(ICREG) MULTIPLY BY SIZE
0035D0 487A 3022            00022  4367+         LH    UCBREG,DEBUCB+1(WKREG1,DEBREG) GET UCB ADR       IMP2
0035D4                             4368+XCP061C  DS    0C
0035D4 91FF 7002      00002        4369+         TM    UCBID(UCBREG),UCBIDV TEST UCB ID VALUE
0035D8 58F0 81EC            04734  4370+         L     APBSRG,IECPL2 GET TEMP BASE REG      @SA77644
                                   4371+**  This line deleted by ------------------------------------- @THAS801
                                   4372+**  This line deleted by ------------------------------------- @THAS801
                                   4373+**  This line deleted by ------------------------------------- @THAS801
                                   4374+**  This line deleted by ------------------------------------- @THAS801
                                   4375+**  This line deleted by ------------------------------------- @THAS801
                                   4376+**  This line deleted by ------------------------------------- @THAS801
0035DC 47EF 01B6            001B6  4377+         BC    14,XERX02B-IECCPL02(APBSRG) ERROR,INVALID UCB   @SA77644
0035E0 9101 700B      0000B        4378+         TM    UCBATI(UCBREG),UCBHASP - PSEUDO DEVICE?         @THAS801
0035E4 4780 50AC            035F6  4379+         BC    8,XCP061C1 -             NO                     @THAS801
0035E8 58F0 8208            04750  4380+         L     APBSRG,AHASPE -          GET HASP ROUTINE       @THAS801
0035EC 05EF                        4381+         BALR  LNKRG2,APBSRG -          LINK TO HASP           @THAS801
                                   4382+*****     HASP RETURNS          *******************************@THAS801
0035EE 47F0 50FA            03644  4383+         B     XCP021 -                 NORMAL: IGNORE REQUEST @THAS801
0035F2 47F0 8192            046DA  4384+         B     XERX02F1 -               ERROR:  ABEND WITH 100 @THAS801
                                   4385+***************************************************************@THAS801
0035F6                             4386+XCP061C1 DS    0H -                                            @THAS801
0035F6 58B2 0004            00004  4387+XCP061D  L     WKREG2,IOBECB-1(IOBREG) GET ECB POINTER             SMF2

                                   4389+***********************************************************************
                                   4390+*              NOW LOCATE THE LOGICAL CHANNEL WORD

0035FA 1BAA                        4392+XCP064   SR    WKREG1,WKREG1 PREPARE WORK REGISTER
0035FC 43A7 000A            0000A  4393+         IC    WKREG1,UCBLCI(UCBREG) GET LCH INDEX FROM UCB
003600 89A0 0003            00003  4394+         SLL   WKREG1,3 MULTIPLY BY 8
003604 41DA 88D2            04E1A  4395+         LA    LCHREG,LCHTAB(WKREG1) GET LCH ADDR. FROM IOS TABLE
003608 07FC                        4396+         BCR   15,LNKRG3 BRANCH TO NEXT IN LINE OR EXIT
                                   4397+***********************************************************************

                                   4399+*              ZERO AND INITIALIZE CONTROL BLOCK AREAS
00360A 4012 001E            0001E  4400+XCP060   STH   TSTREG,IOBECT(IOBREG) CLEAR ERROR COUNTER

                                   4402+*   THE FOLLOWING IS AN INTIAL CLEAR OF IOB FLAGS AND CSW AREA
00360E D708 2008 2008 00008 00008  4403+         XC    IOBFL3(9,IOBREG),IOBFL3(IOBREG)
003614 D403 2000 83C8 00000 04910  4404+         NC    IOBFL1(4,IOBREG),CLEARM CLEAR ALL FLAGS AND SENSE

                                   4406+*   CLEAR IOB CODE BYTE AND SET COMPLETE FLAG FOR POST TRANSFER
00361A 927F 2004      00004        4407+         MVI   IOBCOD(IOBREG),NORMC SET NORMAL COMPLETE FLAG
00361E 501B 0000            00000  4408+         ST    TSTREG,ECBFL(WKREG2) RESET ECB FIELD
003622 94FD 83D9      04921        4409+         NI    XCPBTE,FF-XCPVALID ALL BLOCKS ARE VALID      M4757
       EXCP VALIDITY CHECK - INTPUT/OUTPUT SUPERVISOR                                                          PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003626 41A0 50E8            03632  4410+XCP020A  LA    WKREG1,XCP022 TBSE
00362A 50A0 83B0            048F8  4411+         ST    WKREG1,LNKRG1S TBSE
00362E 47F0 5112            0365C  4412+         BC    15,XCPTST TBSE
                                   4413+**********************************************************************
                                   4414+*                                                                     *
                                   4415+*        EXCP SELECT ROUTINE RETURN VECTOR TABLE
003632 47F0 50FA            03644  4416+XCP022   BC    15,XCP021 ACCEPT VECTOR-EXIT
003636 47F0 5102            0364C  4417+         BC    15,XCP030 TRY AGAIN VECTOR RE-INIT.
00363A 4700 0000            00000  4418+         BC    0,0 BUSY VECTOR -ENQUE
                                   4419+*****    BC    15,XCP020                NEXT LCH VECTOR, ENQUE     IMP5
                                   4420+*                                                                     *
                                   4421+**********************************************************************
00363E 58F0 81D0            04718  4422+XCP020   L     APBSRG,ENQAD ADDR OF XCPPNQ RTN       BBBBBB
003642 05EF                        4423+         BALR  LNKRG2,APBSRG TO ENQUEUE RQE           BBBBBB
                                   4424+*        PREPARE TO EXIT FROM EXCP PORTION OF IOS
003644 1812                        4425+XCP021   LR    1,IOBREG RESTORE IOB ADDRESS             IMP2
003646 58E0 820C            04754  4426+XCP021A  L     LNKRG2,SVCXAD TYPE 1 EXIT ADDRESS
00364A 07FE                        4427+         BCR   15,LNKRG2 TO TYPE 1 EXIT

00364C 41A0 50E8            03632  4429+XCP030   LA    WKREG1,XCP022 TBSE
003650 50A0 83B0            048F8  4430+         ST    WKREG1,LNKRG1S TBSE
003654 45C0 50B0            035FA  4431+         BAL   LNKRG3,XCP064 GO SET UP LCHREG           IMP4
003658 47F0 5188            036D2  4432+         BC    15,XCP011 GO TO TEST CHANNEL         IMP4
       GET REQUEST QUEUE ELEMENT - INPUT OUTPUT SUPERVISOR                                                     PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4434+**********************************************************************
                                   4435+*                                                                    *
                                   4436+*                        GET REQUEST ELEMENT ROUTINE

                                   4438+*              THIS ROUTINE OBTAINS A REQUEST ELEMENT FROM A LIST OF
                                   4439+*              AVAILABLE ELEMENTS. IF NONE, IT ENTERS THE PSEUDO DIS-
                                   4440+*              ABLE FUNCTION AND "WAITS" FOR ONE. THE UCB, IOB AND
                                   4441+*              DEB ADDRESSES ARE PLACED IN THE RQE ALONG WITH THE    *
                                   4442+*              DISPATCHING PRIORITY AND THE TCB ID BYTE              *
                                   4443+*                                                                     *
                                   4444+* ENTRY POINTS                                                        *
                                   4445+*              XCPTST  NORMAL IN LINE ENTRY, FROM EXCP VALIDITY CHECK *
                                   4446+*                                                                     *
                                   4447+* EXITS                                                               *
                                   4448+*              XCP072  TO CHECK ID OF USER REQUESTING LAST RQE.       *
                                   4449+*                                                                     *
                                   4450+*                                                                    *
                                   4451+**********************************************************************

00365C                             4453+XCPTST   DS    0H

                                   4455+*    GO DEACTIVATE ANY INACTIVE CHANNEL ERROR BLOCKS IF THE ACTIVE
                                   4456+*    CEB SWITCH IS SET.
00365C 58C0 81B8            04700  4457+         L     LNKRG3,CEBCTR ADDR OF CEBTAB           BBBBBB
003660 58F0 8240            04788  4458+         L     APBSRG,ADEACT ADDR OF APR DEACTIVATE RTN BBBB
003664 9101 C000      00000        4459+         TM    0(LNKRG3),CEBACT TEST FOR CEBACT SWITCH   BBBBBB
003668 077F                        4460+         BCR   7,APBSRG YES, GO DEACTIVATE       BBBBBB
00366A                             4461+XCPTST1  DS    0H
00366A 4810 81A0            046E8  4462+         LH    TSTREG,NEXAVL GET ADDR OF NEXT RQE
00366E 1211                        4463+         LTR   TSTREG,TSTREG TEST FOR DUMMY
003670 4740 51A4            036EE  4464+         BC    4,XCP070 TO PSUEDO DISSABLE

                                   4466+*        RESERVE THE LAST TWO RQES FOR SYSTEM TASK REQUESTS

003674 9101 1001      00001        4468+         TM    TSTLNK+1(TSTREG),DUMADR TEST FOR LAST RQE
003678 4710 519A            036E4  4469+         BC    1,XCP072 YES- CHECK USER
00367C 48A1 0000            00000  4470+         LH    WKREG1,TSTLNK(TSTREG) GET NEXT RQE ADDR
003680 9101 A001      00001        4471+         TM    TSTLNK+1(WKREG1),DUMADR TEST FOR LAST RQE
003684 4710 519A            036E4  4472+         BC    1,XCP072 YES- CHECK USER

003688 18A0                        4474+XCPTST2  LR    WKREG1,REG0 GET TCB ADDR IN WORK REG A51000
00368A 4071 0002            00002  4475+         STH   UCBREG,TSTUCB(TSTREG) STORE UCB ADDR. IN RQE   A51000
00368E 9023 1004            00004  4476+         STM   IOBREG,DEBREG,TSTIOB-1(TSTREG) ST. IOB AND DEB ADDR.
                                   4477+*   THIS GETS AN ID FROM THE TCB REQUESTING IO ACTION
003692 50A1 000C            0000C  4478+         ST    WKREG1,TSTTCB(TSTREG) STORE TCB ADDR IN RQE    A51000
003696 9200 1004      00004        4479+         MVI   TSTASSN(TSTREG),ZERO MARK AS ASSIGNED         BBBBBB
                                   4480+*        STORE SVC OLD PSW PROTECT KEYIN RQE FOR VALIDITY CHECK AT INT
00369A 955C 0023      00023        4481+         CLI   SVOPSW+3,SVC92 TSO TCB EXCP ENTRY     @SA76667
00369E 4780 515E            036A8  4482+         BE    XCPTST2C YES, KEY OK ALREADY    @SA77080
0036A2 D300 100C 0021 0000C 00021  4483+         MVZ   TSTKEY(1,TSTREG),SVOPSW+1 MOVE KEY OF REQUESTOR TO RQE
0036A8 D201 81A0 1000 046E8 00000  4484+XCPTST2C MVC   NEXAVL(2),TSTLNK(TSTREG) UPDATE RQE LIST          A51000
0036AE 4010 83CC            04914  4485+         STH   TSTREG,LTSVALSV NOW A VALID RQE          A24739
0036B2 58F0 8204            0474C  4486+         L     APBSRG,SMFRTN GET ADDR OF SMF ROUTINE  A51000
0036B6 05EF                        4487+         BALR  LNKRG2,APBSRG REPORT EXCP TO SMF       A51000
       GET REQUEST QUEUE ELEMENT - INPUT OUTPUT SUPERVISOR                                                     PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4489+*    DEFINITION OF SMF - IOS INTERFACE                           A51000
                                   4490+*    INPUT   REG0(TCB ADDR),DCBREG,UCBREG,LNKRG2(RET ADDR),      A51000
                                   4491+*            APBSRG(BASE ADDR)                                   A51000
                                   4492+*    REGS CHANGED - WKREG1,WKREG2,WKREG3,LCHREG                  A51000

0036B8 45C0 50B0            035FA  4494+         BAL   LNKRG3,XCP064 RESTORE LCHREG           A51000
0036BC 45E0 5B28            04072  4495+         BAL   LNKRG2,INT034G INSPECT FURTHER          A51000
0036C0 91EF 7006      00006        4496+XCP010A  TM    UCBFL1(UCBREG),FF-UCBITF TEST ALL BUT INTERCEPT   BBBBBB
                                   4497+* THIS TESTS ALL THE OTHER FLAGS - UBCCUB, BSY, NRY, ASK, PST, ERR IMP3
0036C4 4770 829E            047E6  4498+         BC    7,SELBSYV TBSE
0036C8 D401 81B4 81B4 046FC 046FC  4499+         NC    CHMSK(2),CHMSK PREVIOUS RSTRT INCOMPLETE  MSVN
0036CE 4750 80BA            04602  4500+         BC    4+1,INTER7D YES, START FROM CH RESTRT  RL19
0036D2 9110 7006      00006        4501+XCP011   TM    UCBFL1(UCBREG),UCBITF PREV REQ HAVE INTCPT COND  P340
0036D6 4710 8042            0458A  4502+         BC    1,INTERR5 GO TO ERP INTERFACE        IMP5
0036DA 48AD 0006            00006  4503+         LH    WKREG1,LCHTCH(LCHREG) GET TCH CODE ADDRESS       P340
0036DE 54A0 8374            048BC  4504+         N     WKREG1,HWMSK CLEAR PROPAGATED BITS    BBBBBB
0036E2 07FA                        4505+         BCR   15,WKREG1 GO TO TEST CHANNEL CODE     IMP3

                                   4507+*              TEST CHANNEL CODE WILL LINK TO EITHER ENQUE OR SELECT RT

                                   4509+*   CHECKS WHEN LAST RQE IS ABOUT TO BE GIVEN AWAY
0036E4 D502 821D 8219 04765 04761  4510+XCP072   CLC   CURRTCB+1(3),MASTCB+1 IS THIS A SYSTEM TASK   SA53199
0036EA 4740 513E            03688  4511+         BC    4,XCPTST2 YES, GIVE AWAY LAST RQE  A48653
                                   4512+*   SIMULATE PSUEDO DISABLE FUNCTION
0036EE 58A0 0024            00024  4513+XCP070   L     WKREG1,SVOPSW+4 PICK UP IC
0036F2 4390 0024            00024  4514+         IC    ICREG,SVOPSW+4 PICK UP ILC              A49380
0036F6 8890 0006            00006  4515+         SRL   ICREG,6 ISOLATE ILC              A49380
0036FA 8990 0001            00001  4516+         SLL   ICREG,1 MULTIPLY ILC BY 2        A49380
0036FE 1BA9                        4517+         SR    WKREG1,ICREG GET PROPER RESUME ADDR   A49380
003700 50A0 0024            00024  4518+         ST    WKREG1,SVOPSW+4 STORE ADJUSTED
003704 58B0 821C            04764  4519+         L     WKREG2,CURRTCB TCB ADDRESS TO WKREG2   SA53199
003708 9620 B020      00020        4520+         OI    TCBFLGS(WKREG2),TCBRQENA SET RQE NON DISPATCHABILITY BIT
00370C 92F0 58DB      03E25        4521+         MVI   INT025B+1,X'F0' SET RQE RERTRN SWITCH
003710 1B99                        4522+         SR    ICREG,ICREG CLEAR ICREG
003712 58A0 81F8            04740  4523+         L     WKREG1,AIEATCBP PICK UP ADDRESS OF NEW
003716 5090 A000            00000  4524+         ST    ICREG,ZERO(0,WKREG1) INDICATE TASK SWITCH
00371A 47F0 50FA            03644  4525+         BC    15,XCP021 TO TYPE 1 EXIT
       TAPE UNIT SIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                         PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4527+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                   4528+*                                                                     *
                                   4529+*                      SIO MODULE FOR TAPE UNITS                      *
                                   4530+*                                                                     *
                                   4531+*  FUNCTION    SET UP THE TIC ADDRESS TO THE USER CCW CHAIN AND SET   *
                                   4532+*              MODE COMMAND FOR CRC RECOVERY BEFORE GOING TO THE SIO  *
                                   4533+*              SUBROUTINE                                             *
                                   4534+*                                                                     *
                                   4535+*     ENTRY    XIOTPE  FROM THE SELECT ROUTINE WHICH GETS THIS ADDRESS*
                                   4536+*                      FROM THE DEVICE TABLE FOR TAPE                 *
                                   4537+*              XIOTPEA ENTRY POINT FOR 3400 TAPES                     *
                                   4538+*                      ADDRESS OF ENTRY POINT FROM DEVICE TABLE       *
                                   4539+*                                                                     *
                                   4540+*     EXITS    XCP130  TO SIO SUBROUTINE FOR UNIT POSITIONING         *
                                   4541+*              XCPSIO  TO SIO SUBROUTINE                              *
                                   4542+*              XCP111B TO SIO SUBROUTINE FOR MODE SET-RETURN    SA54451
                                   4543+*              INT022  TO IOS ERROR INTERFACE TO SCHEDULE ERP         *
                                   4544+*                                                                     *
                                   4545+* OPERATION    CHECK IF UNIT POSITIONING IS NEEDED, IOB MODIFIER 1 FLAG
                                   4546+*              ON, YES EXIT TO XCP130 IN SIO SUBROUTINE               *
                                   4547+*              SET UP AND EXECUTE MODE SET.  BAD, GO TO POST.         *
                                   4548+*              NOP THE COMMAND AND MOVE THE IOB START ADDR. TO TIC CMD.
                                   4549+*              CHECK IF RESTART, YES REPLACE START ADDRESS IN TIC CMD *
                                   4550+*              WITH IOB RESTART ADDRESS                               *
                                   4551+*              CHECK FOR CRC CORRECTION, IOB MODIFIER 2 FLAG, YES
                                   4552+*              LOAD CRC CCW ADDRESS INTO WKREG1 AND MOVE UCB SENSE
                                   4553+*              BYTE 3 INTO THE CRC CCW.  IF NO CRC CORRECTION
                                   4554+*              LOAD ADDR OF TAPE INITIALZATION CCW INTO WKREG1 (NOP   *
                                   4555+*              OR CRC) AND BRANCH TO SIO SUBROUTINE                   *
                                   4556+*                                                                     *
                                   4557+*              FOR 3400 TAPES - IF AN UNSOLICITED DEVICE END INTERRUPT*
                                   4558+*              IS RECEIVED AND THE USER IS USING IOS ERP'S, THE SIO   *
                                   4559+*              REQUEST WILL BE DEQUEUED AND THE ERP WILL BE SCHEDULED,*
                                   4560+*              OTHERWISE THE SIO WILL BE ISSUED.                      *
                                   4561+*                                                                     *
                                   4562+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *




00371E 9101 7030      00030        4564+XIOTPEA  TM    UCBVOPT(UCBREG),UCBUNSOL UNSOL INTER REC THIS DEV  21048
003722 4780 51F4            0373E  4565+         BZ    XIOTPE NO GO DO SIO              21048
003726 910C 402C      0002C        4566+         TM    DCBFL(DCBREG),DCBIEK CHECK FOR IOS ERP USED    21048
00372A 4770 51F0            0373A  4567+         BNZ   XIOTP00 NO GO RESET UNSOL FLG     21048
00372E 45E0 5626            03B70  4568+         BAL   LNKRG2,XCPPDQ GO DEQUEUE REQUEST        21048
003732 9610 2001      00001        4569+         OI    IOBFL2(IOBREG),IOBHAR0 INDIC UNSOL DE FOR ERP    21048
003736 47F0 8064            045AC  4570+         B     INT022 GO SCHEDULE ERP           21048
00373A 94FE 7030      00030        4571+XIOTP00  NI    UCBVOPT(UCBREG),FF-UCBUNSOL RESET UNSOL INT FLG    21048


00373E                             4573+XIOTPE   DS    0H SA54451
00373E 9110 2000      00000        4574+         TM    IOBFL1(IOBREG),IOBMD1 UNIT POSITIONING NEEDED SA54451
003742 4780 5204            0374E  4575+         BC    8,XIOTP01 NO, GO BUILD CCWS       SA54451
003746 9104 2001      00001        4576+         TM    IOBFL2(IOBREG),IOBROR CHECK RD OP RECOVERY    SA54451
00374A 4780 549C            039E6  4577+         BC    8,XCP130 GO START IMMEDIATE CCW  SA54451
       TAPE UNIT SIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                         PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00374E 58F0 81D4            0471C  4578+XIOTP01  L     APBSRG,CCWRTNAD GET CCW ROUTINE ADDR
003752 05AF                        4579+         BALR  WKREG1,APBSRG GO GET CCW ADDR
003754                             4580+XIOTPE8  DS    0H SA54451
003754 D20F C000 8320 00000 04868  4581+         MVC   0(16,WKREG3),TAPESM MOVE SKELETON CCWS      SA54451
00375A 58A7 0030            00030  4582+         L     WKREG1,UCBROR(UCBREG) GET PTR TO ROR CCW      SA54451
00375E 9104 2001      00001        4583+         TM    IOBFL2(IOBREG),IOBROR IS RD OP RECOV IN PROCESS  ROR1
003762 4710 522C            03776  4584+         BC    1,XCP131C YES, BYPASS RESTART TEST   ROR1
003766 58A2 0010            00010  4585+         L     WKREG1,IOBST-1(IOBREG) GOOD EXEC-CCW START ADDR
00376A 9101 2000      00000        4586+         TM    IOBFL1(IOBREG),IOBSRS RESTART FROM ERROR RTN
00376E 4780 522C            03776  4587+         BC    8,XCP131C NO-CHECK FOR CRC CORRECTION
003772 58A2 0018            00018  4588+         L     WKREG1,IOBRST-1(IOBREG) YES- GET RESTART CCW
003776                             4589+XCP131C  DS    0H SA54451
003776 50AC 0010            00010  4590+         ST    WKREG1,TAPETIC(WKREG3) SET UP TIC ADDRRESS     SA54451
00377A 9208 C010      00010        4591+         MVI   TAPETIC(WKREG3),TICOP SET TIC COMMAND         SA54451
00377E 41AC 0008            00008  4592+         LA    WKREG1,TAPEIO(WKREG3) GET POSSIBLE SETMODE    SA54451
003782 9108 2000      00000        4593+         TM    IOBFL1(IOBREG),IOBMD2 CRC CORRECTION NEEDED   SA54451
003786 4780 5264            037AE  4594+         BC    8,XCP133 NO- SKIP                SA54451
00378A 41AC 000D            0000D  4595+         LA    WKREG1,CRCBTE(WKREG3) GET CRC BYTE ADDR       SA54451
00378E 50AC 0008            00008  4596+         ST    WKREG1,TAPEIO(WKREG3) SET ADDR IN CCW         SA54451
003792 921B C008      00008        4597+         MVI   TAPEIO(WKREG3),TIEOP SET TIE OPCODE          SA54451
003796 18AC                        4598+         LR    WKREG1,WKREG3 GET START CCW ADDR      SA54451
003798 41B7 0016            00016  4599+         LA    WKREG2,UCBSNS(UCBREG) SET PTR TO SENSE DATA     21048
00379C 9108 7001      00001        4600+         TM    UCBFL5(UCBREG),UCBEXTSN THIS DEV USE EXPAND SENSE 21048
0037A0 4780 525E            037A8  4601+         BZ    XCP132B NO GET SENSE DATA FROM UCB21048
0037A4 58B7 0018            00018  4602+         L     WKREG2,UCBSNADR-1(UCBREG) GET PTR TO SENSE DATA    21048
0037A8 D200 C00D B002 0000D 00002  4603+XCP132B  MVC   CRCBTE(1,WKREG3),TWO(WKREG2) MOVE BYTE TO CCW    SA54451
0037AE D200 A000 3020 00000 00020  4604+XCP133   MVC   0(1,WKREG1),DEBMDM(DEBREG) GET MODE OPCODE      SA54451
0037B4 47F0 54A6            039F0  4605+         BC    15,XCPSIO GO ISSUE SIO            SA54451
       DIRECT ACCESS SIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                     PAGE   91


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4607+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                   4608+*                                                                     *
                                   4609+*                   DIRECT ACCESS SIO MODULE                          *
                                   4610+*                                                                     *
                                   4611+*  FUNCTION    SET UP PRELIMINARY PROCEDURES FOR D/A DEVICES, USES THE*
                                   4612+*              SEEK ADDRESS IN THE IOB FOR A STAND ALONE SEEK AND     *
                                   4613+*              RELEASES THE CHANNEL WHILE THE ARM IS SEEKING          *
                                   4614+*              AFTER THE SEEK IS COMPLETED A START DATA TRANSFER SEEK *
                                   4615+*              IS PREPARED THEN BRANCH TO THE SIO SUBROUTINE          *
                                   4616+*                                                                     *
                                   4617+*   ENTRIES    XIODSK  FROM SELECT SUBROUTINE BY USE OF DEVICE TABLE  *
                                   4618+*              XCP166  USED AS COMMON DEQUEUE LINKAGE TO GET CORRECT  *
                                   4619+*                      LOGICAL CHANNEL CONTROL WORD ADDRESS           *
                                   4620+*     EXITS    XCP111  TO SIO SUBROUTINE FOR STAND ALONE SEEK         *
                                   4621+*              XCP111A TO SIO SUBROUTINE FOR DRUM
                                   4622+*              XCP110  TO SIO SUBROUTINE TO START DATA TRANSFER       *
                                   4623+*              WKREG1  TO DEQUEUE ROUTINE BY USE OF DEVTAB + UCB INDEX*
                                   4624+*                                                                     *
                                   4625+* OPERATION    SET UP THE STAND ALONE SEEK AND CHECK TO MAKE SURE IT  *
                                   4626+*              IS WITHIN EXTENT THEN GO TO SIO SUBROUTINE, ON RETURN  *
                                   4627+*              THE CONDITION CODE IS CHECKED FOR ZERO AND COMPLETION  *
                                   4628+*              OF DATA TRANSFER TO CONTROL UNIT, SET ARM SEEKING FLAG *
                                   4629+*              AND DEQUEUE STAND ALONE SEEK                           *
                                   4630+*              AFTER DEVICE END FOR THE STAND ALONE SEEK THE IO INTER-*
                                   4631+*              RUPT SUPERVISOR PASSES CONTROL BACK TO THIS ROUTINE    *
                                   4632+*              THE START OR RESTART ADDRESS IS MOVED TO THE TIC CCW IN*
                                   4633+*              THE START DATA TRANSFER CHAIN DEPENDING ON THE RESTART *
                                   4634+*              FLAG IN THE IOB, THE FIRST CCW ADDRESS IS PUT INTO THE *
                                   4635+*              CAW AND THE DATA TRANSFER FLAG IS SET IN THE UCB       *
                                   4636+*              SET UP POST SIO RETURN IN LNKRG3 AND BRANCH TO SIO     *
                                   4637+*              SUBROUTINE                                             *
                                   4638+*                                                                     *
                                   4639+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *



0037B8                             4641+RPSSIO   DS    0H 20201
0037B8                             4642+XIODSK   DS    0H SDA2
0037B8 9140 702C      0002C        4643+         TM    UCBFL4(UCBREG),UCBVVR VOL VER RTN IN CONTROL     DAVV
0037BC 4710 538A            038D4  4644+         BC    1,XCP168 YES GO TO TEST CONDITION   DAVV
0037C0                             4645+XCP188   DS    0H SA58676
                                   4646+*   DO NOT ALLOW THE EXTENT TEST TO BE BYPASSED UNLESS THE ERROR   IMP3
                                   4647+*   ROUTINE IS IN CONTROL.                                         IMP3

0037C0 9101 7006      00006        4649+         TM    UCBFL1(UCBREG),UCBERR IMP3
0037C4 4770 5282            037CC  4650+         BC    7,XIODSK1 BYPASS EXTENT TEST          IMP3
0037C8 94E7 2001      00001        4651+         NI    IOBFL2(IOBREG),FF-IOBNET-IOBHAR0 RESET FLAGS     BBBBBB

0037CC 9110 2001      00001        4653+XIODSK1  TM    IOBFL2(IOBREG),IOBHAR0 HA OR R0 FROM ERROR RTN     IMP3
0037D0 4710 536A            038B4  4654+         BC    1,XCP166A YES NO SEEK NEEDED
0037D4 9102 7006      00006        4655+XIODSK1A TM    UCBFL1(UCBREG),UCBASK SEEK BEEN ISSUED         BBBBBB
0037D8 4710 5302            0384C  4656+         BC    1,XCP160 YES, TO START DATA TRANSFERSDA2
0037DC 9101 2000      00000        4657+         TM    IOBFL1(IOBREG),IOBSRS IS RESTART FLAG SET
0037E0 4710 52A0            037EA  4658+         BC    1,XCP161 YES- SEEK AT UCB ALREADY
0037E4 D207 7030 2020 00030 00020  4659+         MVC   UCBSKA(8,UCBREG),IOBDAM(IOBREG) MOVE MBBCCHHR      M2691
       DIRECT ACCESS SIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                     PAGE   92


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0037EA 9108 2001      00001        4660+XCP161   TM    IOBFL2(IOBREG),IOBNET IS EXTENT TEST REQUIRED   20201
0037EE 4710 52AC            037F6  4661+         BC    1,XCP161B NO, SKIP CHECKS
0037F2 45E0 53D2            0391C  4662+         BAL   LNKRG2,EXTTST GO SEE IF WITHIN EXTENT   20201
0037F6                             4663+XCP161B  DS    0C 19025
0037F6 9110 7011      00011        4664+         TM    UCBTYP+1(UCBREG),UCBRPS TEST FOR RPS              19025
0037FA 4710 5372            038BC  4665+         BC    1,XCPRPS YES, GO PREPARE FOR SIO   20201

                                   4667+*    SA SEEK MUST BE STARTED, INITIALIZE THE CCW FOR EXECUTION    20201
0037FE 41A7 0031            00031  4668+         LA    WKREG1,UCBSKA+1(UCBREG) POINT AT SEEK ADDRESS     20201
003802 40A0 833A            04882  4669+         STH   WKREG1,SEEK1+2 INIT SA SEEK CCW          20201
003806 41A0 8338            04880  4670+         LA    WKREG1,SEEK1 INIT FOR CAW STORE        20201
00380A 45C0 54AA            039F4  4671+         BAL   LNKRG3,XCP111 TO SIO ROUTINE
00380E                             4672+XCP161C  DS    0H RETURN FROM SIO          BBBBBB
00380E 9200 81FC      04744        4673+         MVI   CATAPP,CATSSK .          SET CCH CODE FOR SIO SEEK   CCH

                                   4675+*   CONDITION CODE SET UPON RETURN
003812 4770 553A            03A84  4676+         BC    7,XCPPIO1A RETURN TO PSIO-CK CSW     M2959
003816                             4677+XCP162   DS    0H
003816 9D00 6000      00000        4678+         TIO   0(UAREG) TEST FOR DATA TRANS. COMPLETE
                                   4679+*                                       TO CONTROL UNIT
00381A 47B0 52CC            03816  4680+         BC    11,XCP162 BRANCH BACK UNTIL COMPLETE
00381E 9204 81FC      04744        4681+         MVI   CATAPP,CATTIOSK .        SET CCH CODE FOR TIO SEEK   CCH
003822 48A0 0044            00044  4682+         LH    WKREG1,CSWLOC+4 STATUS
003826 54A0 8368            048B0  4683+         N     WKREG1,CHEDVE MASK
00382A 4770 5560            03AAA  4684+         BC    7,XCPPIO3 CHECK ABNORMAL STATUS    A27025
00382E 96A2 7006      00006        4685+         OI    UCBFL1(UCBREG),UCBASK+UCBBSY+UCBPST SET FLAGS    BBBBBB
003832 D206 2009 0041 00009 00041  4686+         MVC   IOBCSW+1(7,IOBREG),CSWLOC+1 SAVE STATUS IN IOB
003838 9104 0044      00044        4687+         TM    CSWLOC+4,CSWDVE SEEK COMPLETE
00383C 4780 829E            047E6  4688+         BC    8,SELBSYV TBSE
003840 945F 7006      00006        4689+         NI    UCBFL1(UCBREG),FF-UCBBSY-UCBPST RESET FLAGS       BBBBBB
003844 91A0 83D9      04921        4690+XCP169A  TM    XCPBTE,XCPCNT+XCPERR XCP ALONE                BBBBBB
003848 4790 829E            047E6  4691+         BC    8+1,SELBSYV TBSE

                                   4693+*   START DATA TRANSFER CODE
00384C 41E0 5358            038A2  4694+XCP160   LA    LNKRG2,XCP163 SET RETURN TO FALL THRU   20201
003850 58F0 81D4            0471C  4695+CHPBLD   L     APBSRG,CCWRTNAD GET CCW ROUTINE ADDR
003854 05AF                        4696+         BALR  WKREG1,APBSRG GO GET CCW ADDR
003856                             4697+XIODSK8  DS    0H IMP4
003856 D20F C000 8340 00000 04888  4698+         MVC   0(16,WKREG3),RRDXCCW MOVE SKELETON CCWS      SA56509
00385C 41A0 7031            00031  4699+CHPBLDA  LA    WKREG1,UCBSKA+1(0,UCBREG) POINT AT SEEK ADDR      20201
003860 40A0 C002            00002  4700+         STH   WKREG1,SEEK2+2(0,WKREG3) SET POINTER TO CCHH     BBBBBB
003864 1BBB                        4701+         SR    WKREG2,WKREG2 SA68948
003866 43B0 7030            00030  4702+         IC    WKREG2,UCBSKA(0,UCBREG) GET M FROM UCB
00386A 89B0 0004            00004  4703+         SLL   WKREG2,4 DETERMINE FM OFFSET       20201
00386E 4393 B020            00020  4704+         IC    ICREG,DEBMDM(DEBREG,WKREG2) PICK UP FILE MASK      20201
003872 4290 C00D            0000D  4705+         STC   ICREG,SMMSK2(0,WKREG3) STORE IT IN CCW
003876 41BC 000D            0000D  4706+         LA    WKREG2,SMMSK2(WKREG3) GET ADDR OF FM IN CCW      1543
00387A 50B0 C008            00008  4707+         ST    WKREG2,SFMCCW(0,WKREG3) SET F.M. ADDRESS IN CCW    SDA1
00387E 921F C008      00008        4708+         MVI   SFMCCW(WKREG3),SETFMSK INSERT OP CODE              SDA1
003882 D202 C011 2011 00011 00011  4709+         MVC   SKTIC+1(3,WKREG3),IOBST(IOBREG) MOVE IN START ADDR
003888 18AC                        4710+         LR    WKREG1,WKREG3 INITIALIZE FOR CAW STORE  20201

00388A 9101 2000      00000        4712+         TM    IOBFL1(IOBREG),IOBSRS IS RESTART FLAG ON
00388E 078E                        4713+         BCR   8,LNKRG2 NO, USE START ADDRESS     20201
003890 D202 C011 2019 00011 00019  4714+         MVC   SKTIC+1(3,WKREG3),IOBRST(IOBREG) YES-GET RESTART ADDR.
       DIRECT ACCESS SIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                     PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003896 9108 2001      00001        4715+         TM    IOBFL2(IOBREG),IOBNET IS THIS ALTERNATE TRACK PROCE.
00389A 078E                        4716+         BCR   8,LNKRG2 NO, DO NOT CHANGE FILE MAS20201
00389C 9618 C00D      0000D        4717+         OI    SMMSK2(WKREG3),X'18' INHIBIT ALL SEEKS
0038A0 07FE                        4718+         BCR   15,LNKRG2 FALL THROUGH OR RETURN    20201
0038A2                             4719+XCP163   DS    0H 20201

                                   4721+*    START DATA TRANSFER FOR SEEKABLE DEVICE                     BBBBBB
0038A2 50A0 0048            00048  4722+XCP165   ST    WKREG1,CAWLOC CCW ADR IN CAW            20201
0038A6 45C0 54D4            03A1E  4723+         BAL   LNKRG3,XCP110 GO DO SIO                 20201
0038AA 077C                        4724+         BCR   7,LNKRG3 RETURN IF NOT O.K.       BBBBBB

                                   4726+*    SET POST, BUSY, DATA TRANSFER AND ARM SEEKING FLAGS IN UCB  A27691
0038AC 96A6 7006      00006        4727+XCP165AB OI    UCBFL1(UCBREG),UCBBSY+UCBPST+UCBDTR+UCBASK M6152
0038B0 47F0 5528            03A72  4728+         BC    15,XCPPIO1 .             CONTINUE PROCESSING      A27691

0038B4 58A2 0018            00018  4730+XCP166A  L     WKREG1,IOBRST-1(IOBREG) GET RESTART ADDR          20201
0038B8 47F0 5358            038A2  4731+         BC    15,XCP165 GO PREPARE FOR SIO        20201

0038BC 58C0 703C            0003C  4733+XCPRPS   L     WKREG3,UCBWKADB(0,UCBREG) GET PTR TO EXTENSION   SA68948
0038C0 41C0 C050            00050  4734+         LA    WKREG3,UCBWKDCC(0,WKREG3) POINT TO BLOCK MPX CP    20201
0038C4 41E0 5386            038D0  4735+         LA    LNKRG2,XCPDRM1 SET RETURN REG            20201
0038C8 47F0 5312            0385C  4736+         BC    15,CHPBLDA GO INITIALIZE SYS CHAN PRO20201



0038CC 45E0 5306            03850  4738+XCPDRM   BAL   LNKRG2,CHPBLD GO INITIALIZE SYS CHAN PRO20201
0038D0                             4739+XCPDRM1  DS    0H 20201
0038D0 47F0 54A6            039F0  4740+         BC    15,XCPSIO GO DO SIO                 20201


0038D4                             4742+XCP168   DS    0H M4482
0038D4 5910 8234            0477C  4743+         C     TSTREG,ADDRRQE IS THIS THE DDR RQE     SA57220
0038D8 4780 53B6            03900  4744+         BC    8,XCP178 YES, RE-SCHEDULE DAVV   SA57220
0038DC 4910 702A            0002A  4745+         CH    TSTREG,UCBRQESV(0,UCBREG) DOES XSNT RTN NEED CTL   M4482
0038E0 4770 8032            0457A  4746+         BC    7,INTERR4A YES, GO TO SCHEDULE        DAVV
0038E4 9148 702C      0002C        4747+         TM    UCBFL4(UCBREG),UCBVER TEST FOR VOLUME VERIFIED   DAVV
0038E8 4710 53BE            03908  4748+         BC    1,XCPVOLVR YES-CLEAN UP               DAVV
0038EC 9101 7006      00006        4749+         TM    UCBFL1(UCBREG),UCBERR TEST IF RQE PURGED         DAVV
0038F0 4780 802E            04576  4750+         BC    8,INTERR4B YES-GO TO REST. XSNT FUNC. DAVV
0038F4 9108 2001      00001        4751+         TM    IOBFL2(IOBREG),IOBNET DAVV-TYPE OF SEEK BYPASS  M0161
0038F8 4780 536A            038B4  4752+         BC    8,XCP166A YES,NO SEEK NEEDED       A43739
0038FC 47F0 528A            037D4  4753+         BC    15,XIODSK1A NO-GO SET UP SEEK          DAVV

003900 45E0 5C88            041D2  4755+XCP178   BAL   LNKRG2,INTATN RE-SCHEDULE DAVV        SA58676
003904 47F0 5276            037C0  4756+         BC    15,XCP188 CONTINUE PROCESSING     SA58676

003908 9407 702C      0002C        4758+XCPVOLVR NI    UCBFL4(UCBREG),FF-UCBDAV RESET DAVV RTN FLAGS       DAVV
00390C 9104 2000      00000        4759+         TM    IOBFL1(IOBREG),IOBEX IS IOB EXCEPTION ON?   @SA77089
003910 4710 528A            037D4  4760+         BC    1,XIODSK1A YES, LEAVE IOB ERR ON  @SA77089
003914 94DF 2000      00000        4761+         NI    IOBFL1(IOBREG),FF-IOBERR RESET ERR RTN FLAG         DAVV
003918 47F0 528A            037D4  4762+         BC    15,XIODSK1A GO TO SET UP SEEK          DAVV
       DIRECT ACCESS EXTENT TEST - INPUT/OUTPUT SUPERVISOR                                                     PAGE   94


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4764+***********************************************************************
                                   4765+*                                                                     *
                                   4766+*                  DIRECT ACCESS EXTENT TEST SUBROUTINE               *
                                   4767+*                                                                     *
                                   4768+*    FUNCTION  ENSURE THAT THE SEEK ADDRESS WHICH IS GOING TO BE      *
                                   4769+*              ACCESSED FOR THIS REQUEST LIES WITHIN THE DATA SET     *
                                   4770+*              EXTENTS DEFINED IN THE DEB.                            *
                                   4771+*                                                                     *
                                   4772+*    ENTRY PT  EXTTST  FROM DIRECT ACCESS SIO MODULES.                *
                                   4773+*                                                                     *
                                   4774+*    EXITS     TO CALLING ROUTINE ON LNKRG2 IF NORMAL REQUEST         *
                                   4775+*              TO DEQUE AND ABNORMAL END APPENDAGE IF EXTENT ERROR.   *
                                   4776+*              TO DEQUE AND INT024 IF REQUEST IS TO BE IGNORED.       *
                                   4777+*                                                                     *
                                   4778+*    OPERATION CHECK THE SEEK ADDRESS IN THE UCB TO ENSURE IT IS      *
                                   4779+*              VALID.  A VALID SEEK ADDRESS IS NOT LOWER THAN THE     *
                                   4780+*              START OF THE EXTENT, NOR HIGHER THAN THE END OF IT.    *
                                   4781+*              FOR A DATA CELL, THE BIN NUMBER IN THE UCB IS EQUAL    *
                                   4782+*              TO THE BIN NUMBER IN THE DEB.  FOR SPLIT CYCLINDER     *
                                   4783+*              ALLOCATION, THE TRACK NUMBER IS ALTERED, IF NEEDED, SO *
                                   4784+*              THAT IT FALLS WITHIN THE TRACK BOUNDARIES OF THE DATA  *
                                   4785+*              SET. IF THE SEEK ADDRESS IS INVALID, THE END OF EXTENT *
                                   4786+*              APPENDAGE IS ENTERED, AND IT DETERMINES SUBSEQUENT     *
                                   4787+*              ACTION. THE REQUEST MAY BE                             *
                                   4788+*                MARKED WITH THE EXTENT ERROR CODE - X'42' - AND SENT *
                                   4789+*                TO THE ABNORMAL END APPENDAGE.                       *
                                   4790+*                POSTED NORMALLY AND DEQUEUED.                        *
                                   4791+*                VALIDITY CHECKED AGAIN                               *
                                   4792+*                                                                     *
                                   4793+***********************************************************************


                                   4795+*    FIND THE PROPER DEB EXTENT                                   20201
00391C 1BBB                        4796+EXTTST   SR    WKREG2,WKREG2 INITIALIZE WORK REG       20201
00391E 43B7 0030            00030  4797+         IC    WKREG2,UCBSKA(UCBREG) GET EXTENT M              20201
003922 89B0 0004            00004  4798+         SLL   WKREG2,4 FORM INDEX TO EXTENT      20201
003926 41AB 3024            00024  4799+         LA    WKREG1,DEBEXTNT(WKREG2,DEBREG) POINT AT EXTENT     20201

                                   4801+*    GO TO THE EOE APPENDAGE IF THE SEEK ADDRESS IS NOT BETWEEN   20201
                                   4802+*    THE EXTENT START AND END ADDRESSES                           20201
00392A D503 7033 A002 00033 00002  4803+EXTTST1  CLC   UCBSKA+3(4,UCBREG),DEBST(WKREG1) COMPARE WITH STA 20201
003930 4740 541E            03968  4804+         BC    4,XCP03E BR-LOWER THAN LOW ADDRESS 20201
003934 D503 7033 A006 00033 00006  4805+         CLC   UCBSKA+3(4,UCBREG),DEBEND(WKREG1) TEST END LIMIT  20201
00393A 4720 541E            03968  4806+         BC    2,XCP03E BR- HIGHER THAN END LIMIT 20201
00393E D501 7031 A000 00031 00000  4807+         CLC   UCBSKA+1(2,UCBREG),DEBBB(WKREG1) BB EQUAL         20201
003944 4770 541E            03968  4808+         BC    7,XCP03E NO-EXTENT ERROR           20201

                                   4810+*    RETURN TO CALLER IF NOT SPLIT CYLINDER ALLOCATION            20201
003948 9104 3008      00008        4811+         TM    DEBOPFL(DEBREG),DEBSCA TEST FOR SPLIT CYLINDER   20201
00394C 078E                        4812+         BCR   8,LNKRG2 RETURN TO CALLER          20201
00394E D501 7035 A004 00035 00004  4813+         CLC   UCBSKA+5(2,UCBREG),DEBST+2(WKREG1) TRACK ADDR L.T 20201
003954 4740 5416            03960  4814+         BC    4,XCP161A YES  -RESET TO TOP OF EXT 20201
003958 D501 7035 A008 00035 00008  4815+         CLC   UCBSKA+5(2,UCBREG),DEBEND+2(WKREG1) TRK ADDR G.T 20201
00395E 07CE                        4816+         BCR   8+4,LNKRG2 RETURN TO CALLER          20201
003960 D201 7035 A004 00035 00004  4817+XCP161A  MVC   UCBSKA+5(2,UCBREG),DEBST+2(WKREG1) RESET TO TOP O 20201
       DIRECT ACCESS EXTENT TEST - INPUT/OUTPUT SUPERVISOR                                                     PAGE   95


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003966 07FE                        4818+         BCR   15,LNKRG2 RETURN TO CALLER          20201

                                   4820+*    EXIT TO THE EOE APPENDAGE                                    20201
003968 50E0 83B8            04900  4821+XCP03E   ST    LNKRG2,EXTSAV SAVE RETURN ADR ACROSS APG20201
00396C 50D0 83A4            048EC  4822+         ST    LCHREG,LCHWDSV SAVE LCH REG           @SA78136
003970 58F3 001C            0001C  4823+         L     APBSRG,DEBAPG-1(DEBREG) GET APG VECTOR TABLE      20201
003974 58FF 0000            00000  4824+         L     APBSRG,APGEOE(APBSRG) GET EOE APPENDAGE VECTOR  20201
003978 05EF                        4825+         BALR  LNKRG2,APBSRG TO END OF EXTENT APPENDAG 20201

                                   4827+*    DEFINITION OF EOE APPENDAGE - IOS INTERFACE                  20201
                                   4828+*    INPUT     TSTREG,IOBREG,DEBREG,DCBREG,UCBREG,                20201
                                   4829+*              LNKRG2(RET ADDR),APBSRG(BASE ADDR)                 20201
                                   4830+*    REGS CHANGED  WKREG1,WKREG2,WKREG3,LCHREG                    20201



                                   4832+*    END OF EXTENT APPENDAGE RETURN VECTOR TABLE                  20201
                                   4833+*                                                                 20201
00397A 47F0 544C            03996  4834+         BC    15,XCP167 EXTENT ERROR RETURN       20201
00397E 47F0 5444            0398E  4835+         BC    15,XCP03F SKIP RETURN DEQUEUE RQE   20201
                                   4836+*        BC    15,EXTTST5               TRY AGAIN EXIT            20201



                                   4838+*    RETRY WITH NEW SEEK ADDRESS                                  20201
003982 58E0 83B8            04900  4839+EXTTST5  L     LNKRG2,EXTSAV REINITIALIZE RETURN REG   20201
003986 58D0 83A4            048EC  4840+         L     LCHREG,LCHWDSV RESTORE LCH REG        @SA78136
00398A 47F0 53D2            0391C  4841+         BC    15,EXTTST RETRY EXTENT TEST         20201

                                   4843+*    IGNORE THIS REQUEST. DEQUEUE RQE,POST NORMAL AND RETURN RQE  20201
00398E 41E0 58BC            03E06  4844+XCP03F   LA    LNKRG2,INT024 POST RETURN ADDRESS       20201
003992 47F0 5454            0399E  4845+         BC    15,XCP167A TO RESET PENDING FLAGS OR 20201

                                   4847+*    ILLEGAL REQUEST. DEQUEUE RQE AND GO TO ABNORMAL APPENDAGE    20201
003996 9242 2004      00004        4848+XCP167   MVI   IOBCOD(IOBREG),EXTERR EXTENT ERROR CODE         20201
00399A 41E0 5FE0            0452A  4849+         LA    LNKRG2,INT058 DEQUE RETURN ADDR.        20201
00399E 94FE 7006      00006        4850+XCP167A  NI    UCBFL1(UCBREG),FF-UCBERR CLEAR UCB ERROR FLAG     A27691
0039A2 94DF 2000      00000        4851+         NI    IOBFL1(IOBREG),FF-IOBERR RESET FLAG                20201
0039A6 47F0 5626            03B70  4852+         BC    15,XCPPDQ REQ. REQUEST              20201
                                   4853+         TITLE 'UNIT RECORD AND TP SIO ROUTINE - INPUT/OUTPUT SUPERVISOX
       UNIT RECORD AND TP SIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                PAGE   96


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4854+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                   4855+*                                                                     *
                                   4856+*        SIO MODULE FOR UNIT RECORD OR TELECOMMUNICATION EQUIPMENT    *
                                   4857+*                                                                     *
                                   4858+*  FUNCTION    DETERMINE ENTRY PRINT TO SIO SUBROUTINE, AND CCW ADDRESS
                                   4859+*                                                                     *
                                   4860+*     ENTRY    XIOWR   FROM SELECT SUBROUTINE BY DEVICE TABLE ENTRY   *
                                   4861+*                      FOR PRINTERS WITH EXPANDED SENSE               *
                                   4862+*              XIOUR   FROM SELECT SUBROUTINE BY DEVICE TABLE ENTRY   *
                                   4863+*                      FOR UNIT RECORD                                *
                                   4864+*              XCP121  FROM SELECT SUBROUTINE BY DEVICE TABLE ENTRY   *
                                   4865+*                      FOR TELEPROCESSING DEVICES                     *
                                   4866+*                                                                     *
                                   4867+*     EXITS    XCP130  TO SIO SUBR. FOR IMMEDIATE COMMANDS FROM ERR RTN
                                   4868+*              XCPSIO  TO SIO SUBR. FOR NORMAL START                  *
                                   4869+*                                                                     *
                                   4870+* OPERATION    CHECK IOB MODIFIER 1 FLAG, YES GO TO SIO SUBR. IMMED.  *
                                   4871+*              COMMAND ENTRY                                          *
                                   4872+*              LOAD WKREG1 WITH THE IOB RESTART ADDRESS               *
                                   4873+*              CHECK IF IOB RESTART FLAG IS ON, NO REPLACE RESTART WITH
                                   4874+*              START ADDRESS IN WKREG1 AND GO TO NORMAL ENTRY OF SIO  *
                                   4875+*                                                                     *
                                   4876+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *




0039AA                             4878+XIOWR    EQU   * NEW UNIT RECORD
0039AA 9180 7016      00016        4879+         TM    UCBFL7(UCBREG),STPPRNT HAS CANCEL KEY BEEN HIT
0039AE 4780 5480            039CA  4880+         BC    8,XIOUR NO - CONTINUE SIO        A44146
0039B2 9104 7001      00001        4881+         TM    UCBFL5(UCBREG),UCBNALOC DEV OWNED BY OLTEP      SA64237
0039B6 4710 5480            039CA  4882+         BC    1,XIOUR YES, SKIP CANCEL             SA64237
0039BA 58B7 0018            00018  4883+         L     WKREG2,UCBSNADR-1(UCBREG) GET PTR TO SENSE DATA @SA78519
0039BE 9206 200C      0000C        4884+         MVI   IOBCSW+4(IOBREG),CSWDVE+CSWUCK SET DEVICE END,    A44146
                                   4885+*                                       UNIT CHECK INTO IOBCSW   A44146
0039C2 4017 0014            00014  4886+         STH   TSTREG,UCBLTS(UCBREG) SET UP RQE IN UCB        A44146
0039C6 47F0 5E78            043C2  4887+         BC    15,INTS02H DEQUE RQST, SEND TO ERP  A44146

0039CA 9110 2000      00000        4889+XIOUR    TM    IOBFL1(IOBREG),IOBMD1 IMMEDIATE OPERATION FOR ERROR
                                   4890+*                                       ROUTINE
0039CE 4710 549C            039E6  4891+         BC    1,XCP130 YES TO START UP  ROUTINE
0039D2 58A2 0018            00018  4892+XCP121   L     WKREG1,IOBRST-1(IOBREG) LOAD RESTART ADDRESS
0039D6 9101 2000      00000        4893+         TM    IOBFL1(IOBREG),IOBSRS IS RESTART FLAG ON
0039DA 4710 5498            039E2  4894+         BC    1,XCP120 BR- TO SKIP NEXT INSTRUCTION
0039DE 58A2 0010            00010  4895+         L     WKREG1,IOBST-1(IOBREG) LOAD START ADDRESS
0039E2                             4896+XCP120   DS    0C
0039E2 47F0 54A6            039F0  4897+         BC    15,XCPSIO TO START UP DEVICE       BBBBBB
       COMMON SIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                            PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4899+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                   4900+*                                                                     *
                                   4901+*              SIO SUBROUTINE                                         *
                                   4902+*                                                                     *
                                   4903+*  FUNCTION    ISSUE THE SIO COMMAND FOR ALL I/O REQUESTS             *
                                   4904+*                                                                     *
                                   4905+* ENTRY        XCPSIO  COMMON ENTRY FROM DEVICE DEPENDENT SIO MODULES *
                                   4906+*    POINTS    XCP130  TO PICK UP IMMEDIATE COMMAND OR REPOSITIONING  *
                                   4907+*                      OP CODES FROM ERROR ROUTINES                   *
                                   4908+*              XCP110  FROM DIRECT ACCESS SIO ROUTINE TO START        *
                                   4909+*                      DATA TRANSFER                                  *
                                   4910+*              XCP111  IS THE STAND ALONE SEEK ENTRY FROM DA SIO MODULE
                                   4911+*                      SINCE IT EXPECTS CONTROL BACK, IT LOADS LNKRG3 *
                                   4912+*                      WITH IT'S OWN RETURN ADDRESS                   *
                                   4913+*                                                                     *
                                   4914+*     EXITS    VIA LNKRG3 TO POST SIO OR RETURN TO DEV. DEP. SIO MODULE
                                   4915+*              XCPPDQ  (SIO APP. SKIP RETURN) DEQUES REQUEST AND RETURN
                                   4916+*                                                                     *
                                   4917+* OPERATION    1. THE CAW IS SET UP THEN TEST IF ERROR ROUTINE IS IN  *
                                   4918+*                 CONTROL, IF YES SKIP 2                              *
                                   4919+*              2. LINK TO THE SIO APPENDAGE (DEB) RETURN VIA LNKRG2 TO*
                                   4920+*                 SIO APPENDAGE VECTOR TABLE FOR NORMAL OR SKIP RETURN*
                                   4921+*              3. NORMAL PROCESSING THE SIO IS ISSUED, IF THE RESULT IS
                                   4922+*                 BUSY (COND. CODE) SET CSW TO REFLECT CONTROL
                                   4923+*                 UNIT BUSY.
                                   4924+*              4. STORE THE CC, ILC, AND PROG. MASK IN IOB, STORE THE *
                                   4925+*                 CHANNEL AND UNIT ADDRESS AND THE RQE IN THE UCB.    *
                                   4926+*              5. SET THE CC TO REFLECT THE SIO CC AND EXIT VIA LNKRG3*
                                   4927+*                                                                     *
                                   4928+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


                                   4930+*   ERROR RTN WILL USE THIS CODE FOR IMMEDIATE OPERATIONS
                                   4931+*   IT USES THE MODIFER BITS IN THE IOB FOR THE CCW OP CODE
0039E6 D200 8308 2018 04850 00018  4932+XCP130   MVC   SYSIMD(1),IOBMDB(IOBREG) OP CODE TO STAND ALONE CCW
0039EC 41A0 8308            04850  4933+         LA    WKREG1,SYSIMD GET ADDRESS OF STAND ALONE CCW


0039F0 41C0 5520            03A6A  4935+XCPSIO   LA    LNKRG3,XCPPIO LOAD RETURN REGISTER
0039F4                             4936+XCP111A  DS    0C
0039F4 50A0 0048            00048  4937+XCP111   ST    WKREG1,CAWLOC PLACE CCW ADDRESS INTO CAW
0039F8 9120 2000      00000        4938+XCP111B  TM    IOBFL1(IOBREG),IOBERR ERP IN CONTROL
0039FC 4710 54D4            03A1E  4939+         BC    1,XCP110 YES-BYPASS APPENDAGE     BBBBBB
003A00 58F3 001C            0001C  4940+XCP111C  L     APBSRG,DEBAPG-1(DEBREG) GET APPENDAGE VECTOR TABLE ADDR
003A04 58FF 0004            00004  4941+         L     APBSRG,APGSIO(APBSRG) GET SIO APPENDAGE ADDRESS
003A08 50D0 83A4            048EC  4942+         ST    LCHREG,LCHWDSV SAVE LCH ADDR
003A0C 05EF                        4943+         BALR  LNKRG2,APBSRG TO SIO APPENDAGE

                                   4945+*    DEFINITION OF SIO APPENDAGE - IOS INTERFACE                 BBBBBB
                                   4946+*    INPUT     TSTREG,IOBREG,DEBREG,DCBREG,UCBREG,               BBBBBB
                                   4947+*              LNKRG2(RET ADDR),APBSRG(BASE ADDR)                BBBBBB
                                   4948+*    REGS CHANGED  WKREG1,WKREG2,LCHREG                          BBBBBB

                                   4950+***********************************************************************
                                   4951+*                                                                     *
       COMMON SIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                            PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4952+*        SIO APPENDAGE RETURN VECTOR TABLE                            *
                                   4953+*                                                                     *
003A0E 47F0 54D0            03A1A  4954+         BC    15,XCP110A NORMAL RETURN-TO SIO EXECUTION

                                   4956+*   SKIP SIO RETURN
003A12 41E0 58C0            03E0A  4957+         LA    LNKRG2,INT024B LOAD RETURN ADDRESS      BBBBBB
003A16 47F0 5626            03B70  4958+         BC    15,XCPPDQ TO DEQUEUE
                                   4959+*                                                                     *
                                   4960+***********************************************************************

003A1A                             4962+XCP110A  DS    0H BBBBBB
003A1A 58D0 83A4            048EC  4963+         L     LCHREG,LCHWDSV RESTORE LCH ADDR
003A1E 9200 0048      00048        4964+XCP110   MVI   CAWLOC,ZERO CLEAR PROTECTION TAG     BBBBBB
                                   4965+*  THE FOLLOWING TEST WILL DETERMINE IF A DISK ERROR ROUTINE IS
                                   4966+*  PREPARING A READ HA AND READ R0 COMMAND.
003A22 9101 7006      00006        4967+         TM    UCBFL1(UCBREG),UCBERR IS ERROR ROUTINE IN CONTROL
003A26 4780 54E8            03A32  4968+         BC    8,XCP110C NO.  BYPASS NEXT TEST
003A2A 9110 2001      00001        4969+         TM    IOBFL2(IOBREG),IOBHAR0 ERROR RTN READING R0
003A2E 4710 54EE            03A38  4970+         BC    1,XCP110B YES-SKIP PROT.KEY
003A32 D300 0048 100C 00048 0000C  4971+XCP110C  MVZ   CAWLOC(1),TSTKEY(TSTREG) SET PROTECTION KEY
003A38                             4972+XCP110B  DS    0H IMP4
003A38 9C00 6000      00000        4973+         SIO   0(UAREG) START UP DEVICE            TEST
                                   4974+**************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP
003A3C 05A0                        4975+LASPPIO  BALR  WKREG1,0 -          GET RIGHT HALF OF PSW          **ASP
003A3E 88A0 0018            00018  4976+         SRL   WKREG1,24 SHIFT CC TO LOW BYTE     BBBBBB
003A42 42A2 0010            00010  4977+         STC   WKREG1,IOBCC(IOBREG) STORE CC,ILC, AND PROG. MASK
003A46 9210 81FC      04744        4978+         MVI   CATAPP,CATSIO .          SET CCH CODE FOR SIO MODULE CCH

                                   4980+*   GTF SIO TRACE - IOS INTERFACE                                 21014
                                   4981+*   INPUT   UAREG,WKREG1(SIO C.C.),CAW,CSW                        21014
                                   4982+*
                                   4983+* MC INSTRUCTION GENERATED BY THE HOOK MACRO
                                   4984+* COMPATIBLE FOR MACHINES WITHOUT THE MC HARDWARE
                                   4985+*
003A4A AF050FF0                    4986+         DC    XL1'AF',AL3(IHLMSIO) MC INSTRUCTION
003A4E 47050FF0                    4987+         DC    XL1'47',AL3(IHLMSIO) NOP TO CARRY EID
003A52 5890 8200            04748  4988+         L     ICREG,TRACON LOAD ADDRESS OF TRACE
003A56 05B9                        4989+         BALR  WKREG2,ICREG TO TRACE START I/O

                                   4991+*    DEFINITION OF TRACE - IOS INTERFACE                         BBBBBB
                                   4992+*    INPUT     ICREG(BASE ADDR),UAREG,WKREG1(SIO C.C.),CAW,CSW   BBBBBB
                                   4993+*              WKREG2(RET ADDR)                                  BBBBBB
                                   4994+*    REGS CHANGED  WKREG1                                        BBBBBB

003A58 1B99                        4996+         SR    ICREG,ICREG CLEAR THE ICREG
003A5A 4060 7004            00004  4997+         STH   UAREG,UCBCHA(0,UCBREG) SET UP CURRENT PATH     SA54451
                                   4998+*                                       RESET HIO & SMD IF ON      IMP5
003A5E 4010 7014            00014  4999+         STH   TSTREG,UCBLTS(0,UCBREG) SAVE RQE ADDRESS           P540
003A62 58A0 2010            00010  5000+XCP113   L     WKREG1,IOBCC(0,IOBREG) RE-INSERT SIO CC         A27691
003A66 04A0                        5001+         SPM   WKREG1 INTO PSW                 A27691
003A68 05CC                        5002+         BALR  LNKRG3,LNKRG3 TO RETURN TO REQUESTING RTN
       POST SIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                              PAGE   99


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5004+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                   5005+*                                                                     *
                                   5006+*              POST SIO ROUTINE
                                   5007+*                                                                     *
                                   5008+*    FUNCTION  HANDLE CONDITION CODE RESULTING FROM SIO INSTRUCTION.  *
                                   5009+*                                                                     *
                                   5010+*    ENTRY POINTS  XCPPIO  FROM SIO SUBROUTINE                        *
                                   5011+*                  XCPPIO1 FROM DA SIO  MODULE                        *
                                   5012+*                  XCP056E FROM CCH RETURN VECTOR TABLE               *
                                   5013+*                                                                     *
                                   5014+*    OPERATION HANDLE EACH CONDITION CODE AS FOLLOWS -                *
                                   5015+*                                                                     *
                                   5016+*        CC=0, SUCCESSFUL SIO -                                       *
                                   5017+*          SET UCB BUSY AND POST FLAGS, SAVE UCB ADDRESS FOR FAST UCB *
                                   5018+*          LOOKUP, SAVE CURRENT PATH IN UCBCHM FILED, DEQUEUE RQE,    *
                                   5019+*          AND RETURN ON LNKRG1 TO SVC EXIT OR CHANNEL RESTART.       *
                                   5020+*                                                                     *
                                   5021+*        CC=1,CSW STORED - EXAMINE STATUS -                           *
                                   5022+*          INCREMENT BY EIGHT THE COMMAND ADDRESS IN THE CSW.         *
                                   5023+*         IF CHANNEL LOGOUT PENDING - EXIT VIA LNKRG2                 *
                                   5024+*          IF CATASTROPHIC ERROR, GO TO SERR01                        *
                                   5025+*          IF BUSY + CUE, TRY REQUEST AGAIN - RETURN ON LNKRG1+8      *
                                   5026+*          IF BUSY + SMD, SET UCBCUB FLAG, RETURN TO TCH              *
                                   5027+*          IF BUSY + DVE + ATT'N, GO TO ATTENTION INTERFACE           *
                                   5028+*          FOR ANY OTHER BUSY CONDITIONS, RETURN ON LNKRG1+8          *
                                   5029+*          ALL OTHER STATUS, ENTER INTERRUPT SPVSR. AT INT005         *
                                   5030+*                                                                     *
                                   5031+*        CC=2, CHANNEL BUSY -                                         *
                                   5032+*          SET UCBCUB FLAG, RETURN TO TCH.                            *
                                   5033+*                                                                     *
                                   5034+*        CC=3, CHANNEL OR CONTROL UNIT NON-OPERATIONAL -              *
                                   5035+*          INCREMENT BY EIGHT THE COMMAND ADDRESS IN THE CSW.         *
                                   5036+*          IF THIS IS THE FIRST TIME THAT CC 3 WAS ENCOUNTERED ON     *
                                   5037+*          THIS PATH, SET 'UNIT CHECK' AND 'INTERVENTION REQUIRED'    *
                                   5038+*          BITS IN THE IOB AND EXIT TO INTS02G SO THAT A MESSAGE MAY  *
                                   5039+*          BE ISSUED.                                                 *
                                   5040+*          IF THIS IS NOT THE FIRST CC3 ON THIS PATH, SET UCBCUB FLAG *
                                   5041+*          IN THE UCB AND RETURN TO TCH.                              *
                                   5042+*                                                                     *
                                   5043+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


003A6A 4770 553A            03A84  5045+XCPPIO   BC    4+2+1,XCPPIO2 BRANCH IF CC=1,2 OR 3    A27691

                                   5047+*    CC=0 PRESENTED ON SIO                                       A26051
003A6E 96A0 7006      00006        5048+         OI    UCBFL1(UCBREG),UCBBSY+UCBPST SET DEV BSY AND STARTED
003A72 4390 7004            00004  5049+XCPPIO1  IC    ICREG,UCBCHA(0,UCBREG) . SAVE THIS UCB            A27691
003A76 1A99                        5050+         AR    ICREG,ICREG .            ADDRESS FOR              A27691
003A78 4079 88C2            04E0A  5051+         STH   UCBREG,UCBSAVE(ICREG) .  FAST LOOKUP              A27691
003A7C 45E0 5626            03B70  5052+         BAL   LNKRG2,XCPPDQ GO DEQ REQUEST           A27691

                                   5054+*    EXIT FROM SVC OR RETURN TO CHANNEL SEARCH                   A27691
003A80 47F0 8290            047D8  5055+         BC    15,SELECTV TBSE

                                   5057+*    CC=1 (CSW STORED), CC=2 (CH BUSY) OR CC=3 (CH OR CU INOP)   A27691
       POST SIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                              PAGE  100


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003A84                             5058+XCPPIO1A DS    0H M2959
003A84 4720 560C            03B56  5059+XCPPIO2  BC    2,XCP054D BRANCH IF BUSY            M2959

                                   5061+*    CC=1 (CSW STORED) OR CC=3 (CH OR CU INOP)                   A27691
                                   5062+*    CARE SHOULD BE TAKEN NOT TO CHANGE THE CC  WITH ANY FIXES    M1647
                                   5063+*      OR ADDITIONS TO THE FOLLOWING CODE.                        M1647
003A88 D200 0048 0040 00048 00040  5064+         MVC   CAWLOC(1),CSWLOC SAVE POSS LOG PEND COND   M1647
003A8E 58A0 0048            00048  5065+         L     WKREG1,CAWLOC GET CCW ADDRESS          A27691
003A92 41AA 0008            00008  5066+         LA    WKREG1,CCWLN(WKREG1) INCREMENT CSW FOR ERP     M1647
003A96 50A0 0040            00040  5067+         ST    WKREG1,CSWLOC SET UP FOR INT. SAVE     A27691
003A9A D200 0040 0048 00040 00048  5068+         MVC   CSWLOC(1),CAWLOC RESTORE POSS LOGOUT PEND  M1647
003AA0 D206 2009 0041 00009 00041  5069+         MVC   IOBCSW+1(7,IOBREG),CSWLOC+1 A27691
003AA6 4710 55E4            03B2E  5070+         BC    1,XCP054 BRANCH IF INOP. CC       A27691

                                   5072+*    CC=1 (CSW STORED) DETERMINE CAUSE OF CSW STORED             A27691
003AAA 18E0                        5073+XCPPIO3  LR    LNKRG2,REG0 SET TCH RETURN           A27691
003AAC 9104 0040      00040        5074+         TM    CSWLOC,CSWCLP CHANNEL LOGOUT PENDING    21111
003AB0 077E                        5075+         BCR   7,LNKRG2 EXIT TO TEST CHANNEL      21111

                                   5077+*    SET POST AND BUSY FLAGS FOR INTERRUPT HANDLER AND CCH        M4756
003AB2 96A0 7006      00006        5078+         OI    UCBFL1(UCBREG),UCBBSY+UCBPST SET POST AND BUSY     M4756
003AB6 910E 0045      00045        5079+         TM    CSWLOC+5,CSWCTK+CSWICK+CATCCH CAT. ERRORS        BBBBBB
003ABA 58F0 81EC            04734  5080+         L     APBSRG,IECPL2 GET TEMP BASE REG      @SA77644
003ABE 477F 0238            00238  5081+         BC    7,SERR01-IECCPL02(APBSRG) YES, GO HANDLE THEM   @SA77644
003AC2 9110 0044      00044        5082+XCP056E  TM    CSWLOC+4,CSWBSY STAT CAUSED BY PREV SIO  A27691
003AC6 4780 561E            03B68  5083+         BC    8,XCP056C NO, GO INSPECT STATUS    A27691

                                   5085+*   BUSY BIT INSPECTION BRANCH CODE
003ACA 947F 7006      00006        5086+         NI    UCBFL1(UCBREG),FF-UCBBSY RESET UCB BUSY         @SA77621
003ACE 9102 0044      00044        5087+         TM    CSWLOC+4,CSWUCK UNIT CHECK             @SA77621
003AD2 4710 5590            03ADA  5088+         BC    1,XCP056G YES-DON'T RESET POST   @SA77621
003AD6 94DF 7006      00006        5089+         NI    UCBFL1(UCBREG),FF-UCBPST RESET UCB POST         @SA77621
003ADA 9608 7006      00006        5090+XCP056G  OI    UCBFL1(UCBREG),UCBCUB SET C.U. BUSY FLAG     @SA77621
003ADE 9120 0044      00044        5091+         TM    CSWLOC+4,CSWCUE TEST FOR CONTROL UNIT END
003AE2 4780 55B4            03AFE  5092+         BC    8,XCP056H NO,CONTINUE            @SA78138
                                   5093+***************************************************************@SA78138
                                   5094+* THE FOLLOWING CODE WILL SETUP CHMSK TO RESTART THE CHANNEL  *@SA78138
                                   5095+* PATH THAT JUST RECEIVED SIO CC=1 WITH STATUS OF BUSY AND    *@SA78138
                                   5096+* CONTROL UNIT END. BECAUSE CONTROL UNIT ENDING STATUS MAY BE *@SA78138
                                   5097+* USED TO RESTART A DEVICE ASSIGNED TO A DIFFERENT LOGICAL    *@SA78138
                                   5098+* CHANNEL ON A CHANNEL PATH NOT IN COMMON WITH THE DEVICE     *@SA78138
                                   5099+* PRESENTING THE STATUS. THIS WOULD PREVENT CHANNEL RESTART   *@SA78138
                                   5100+* FOR THE ORIGINAL DEVICE. THIS CODE WILL FORCE CHANNEL       *@SA78138
                                   5101+* RESTART FOR ALL LOGICAL CHANNEL QUEUES WHICH THE PHYSICAL   *@SA78138
                                   5102+* CHANNEL IS DEFINED FOR.                                     *@SA78138
                                   5103+***************************************************************@SA78138
003AE6 4397 0004            00004  5104+         IC    ICREG,UCBCHA(UCBREG) GET PATH ADDRESS       @SA78138
003AEA 58A0 837C            048C4  5105+         L     WKREG1,CHANBIT GET CHANNEL BIT        @SA78138
003AEE 88A0 9000            00000  5106+         SRL   WKREG1,ZERO(ICREG) DERIVE PSW EQUIVALENT  @SA78138
003AF2 56A0 837C            048C4  5107+         O     WKREG1,CHANBIT ANY CHANNEL TO RESTART @SA78138
003AF6 50A0 837C            048C4  5108+         ST    WKREG1,CHANBIT SAVE CHANNEL RESTART   @SA78138
003AFA 47F0 8296            047DE  5109+         BC    15,SELTAGV TBSE
003AFE 18E0                        5110+XCP056H  LR    LNKRG2,REG0 SET TCH RETURN         @SA78138
003B00 9140 0044      00044        5111+         TM    CSWLOC+4,CSWSMD STATUS MODIFIER SET
003B04 071E                        5112+         BCR   1,LNKRG2 RETURN TO TEST CHANNEL
       POST SIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                              PAGE  101


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003B06 9184 0044      00044        5113+XCPPI04  TM    CSWLOC+4,CSWDVE+CSWATN BUSY ALONE                  IMP4
003B0A 4770 55CC            03B16  5114+         BC    7,XCPPI04A NO DON'T SET BUSY FLAG @SA77621
003B0E 9680 7006      00006        5115+         OI    UCBFL1(UCBREG),UCBBSY SET INTERRUPT EXPECTED   A27707
003B12 47F0 829E            047E6  5116+         BC    15,SELBSYV TBSE
003B16 9102 0044      00044        5117+XCPPI04A TM    CSWLOC+4,CSWUCK UNIT CHECK IN CSW?     @SA77621
003B1A 4710 5C50            0419A  5118+         BO    INTATT2 YES,LEAVE LNKRG1S AS IS@SA77621
003B1E 58A0 83B0            048F8  5119+XCPPI05  L     WKREG1,LNKRG1S TBSE
003B22 41AA 0004            00004  5120+         LA    WKREG1,SELTAG(WKREG1) TBSE
003B26 50A0 83B0            048F8  5121+         ST    WKREG1,LNKRG1S TBSE
003B2A 47F0 5C40            0418A  5122+         BC    15,INTATT -         TO ATTENTION ROUTINE           **ASP
                                   5123+*                                       AFTER INSPECTION AT TRY AGAIN

                                   5125+*    CC=3 (CH OR CU INOP) ISSUE MESSAGE IF NEEDED                BBBBBB

                                   5127+*  THE COND CODE 3 MAY BE THE RESULT OF THE RQE BEING ON THE WRONG
                                   5128+*  LOGICAL CHANNEL.  IF THIS IS THE CASE, THE RQE WILL BE REMOVED
                                   5129+*  FROM THE WRONG LCH AND THE TASK WILL BE ABENDED.  AN INVALID
                                   5130+*  CONDITION EXISTS AND IT IS IMPOSSIBLE TO DETERMINE WHY.
003B2E 91A0 83D9      04921        5131+XCP054   TM    XCPBTE,XCPCNT+XCPERR INT OR ERR ENTRY
003B32 4740 5600            03B4A  5132+         BC    4,XCP054A NO,CONTINUE CC3 HANDLING
003B36 41DD 0000            00000  5133+         LA    LCHREG,0(LCHREG) CLEAR HI BYTE           SA71384
003B3A 50D0 83A4            048EC  5134+         ST    LCHREG,LCHWDSV SAVE LCH ADDR
003B3E 45C0 50B0            035FA  5135+         BAL   LNKRG3,XCP064 INIT LCHREG
003B42 59D0 83A4            048EC  5136+         C     LCHREG,LCHWDSV IS RQE ON PROPER LCH    SA71384
003B46 4770 5614            03B5E  5137+         BC    7,XCP054G NO, GO DEQUEUE AND TERM TASK
003B4A                             5138+XCP054A  DS    0C 2745
003B4A 9240 2002      00002        5139+XCP054C  MVI   IOBSNS(IOBREG),X'40' SIMULATE INT. REQ.
003B4E 9202 200C      0000C        5140+         MVI   IOBCSW+4(IOBREG),CSWUCK SET UNIT CHECK
003B52 47F0 5E7E            043C8  5141+         BC    15,INTS02G DEQUE RQST, SEND TO ERRTN   IMP3

003B56 9608 7006      00006        5143+XCP054D  OI    UCBFL1(UCBREG),UCBCUB SET C.U. BUSY FLAG       A27691
003B5A 18E0                        5144+         LR    LNKRG2,REG0 SET FOR TCH RETURN       A27691
003B5C 07FE                        5145+         BCR   15,LNKRG2 RETURN TO TCH            A27691

003B5E 58D0 83A4            048EC  5147+XCP054G  L     LCHREG,LCHWDSV RESTORE WRONG LCH ADDR IN REG
003B62 58F0 83A8            048F0  5148+         L     APBSRG,LCHERRAD GET LCH ERROR RTN ADDR
003B66 07FF                        5149+         BCR   15,APBSRG GO ABEND TASK

                                   5151+*    IF ACCEPTED, DEQUEUE, THEN INSPECT STATUS FURTHER           A27691
003B68 45E0 5626            03B70  5152+XCP056C  BAL   LNKRG2,XCPPDQ DEQUEUE BEFORE PROCESSING
003B6C 47F0 57DE            03D28  5153+         BC    15,INT008 EXAMINE STAT. AS INT.   SA52441
       COMMON DEQUEUE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                        PAGE  102


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5155+*              COMMON DEQUEUE ROUTINE                                 *
                                   5156+*                                                                     *
                                   5157+*   FUNCTION   TO DEQUEUE AN RQE FROM A LOGICAL CHANNEL QUEUE         *
                                   5158+*                                                                     *
                                   5159+*   ENTRY PTS  XCPPDQ   FROM DA SIO RTN                               *
                                   5160+*                       SKIP SIO RETURN FROM SIO APPENDAGE            *
                                   5161+*                       POST SIO                                      *
                                   5162+*                       CHANNEL RESTART                               *
                                   5163+*                       SENSE SUBROUTINE                              *
                                   5164+*                       INTERRUPT ERROR INTERFACE                     *
                                   5165+*              XCPDDRDQ FROM XERX02                                   *
                                   5166+*                       DDRRETRY                                      *
                                   5167+*                       DDR005                                        *
                                   5168+*                       DDRCANCL                                      *
                                   5169+*                                                                     *
                                   5170+*   EXITS      LNKRG2   TO RETURN TO CALLER                           *
                                   5171+*                                                                     *

003B70                             5173+XCPPDQ   DS    0C
003B70 91A0 83D9      04921        5174+         TM    XCPBTE,XCPCNT+XCPERR EXCP ALONE
003B74 074E                        5175+         BCR   4,LNKRG2 YES-NO DQ.
003B76 45C0 50B0            035FA  5176+         BAL   LNKRG3,XCP064 GET LCH WRD.
003B7A 18AD                        5177+XCPDDRDQ LR    WKREG1,LCHREG INIT BACK LINK POINTER    19022
003B7C 50D0 83BC            04904  5178+         ST    LCHREG,BLNKPTR IN CASE NO DQ OCCURS        TPF1
003B80 41C0 563A            03B84  5179+         LA    LNKRG3,XCP091 SET RECURSING LINK REG     PRER
003B84 18BA                        5180+XCP091   LR    WKREG2,WKREG1 SAVE BACKLINK POINTER
003B86 48AB 0000            00000  5181+         LH    WKREG1,TSTLNK(WKREG2) GET ENTRY ADDRESS
003B8A 12AA                        5182+         LTR   WKREG1,WKREG1 TEST FOR DUMMY                    CCHA
003B8C 4740 5662            03BAC  5183+         BC    4,XCP092A IT WASN'T HERE ANYWAY    A26116
003B90 19A1                        5184+         CR    WKREG1,TSTREG COMPARE WITH RQE TO BE D.Q.'D
003B92 4780 5668            03BB2  5185+         BC    8,XCP093 YES,TO DEQUEUE
                                   5186+*   KEEP TRACK OF FIRST REQUEST IN LCH FOR THE UCB IN QUESTION
003B96 4970 A002            00002  5187+         CH    UCBREG,TSTUCB(0,WKREG1) FOR THIS UCB
003B9A 077C                        5188+         BCR   7,LNKRG3 NO-SKIP
                                   5189+*   ERP, PRIORITY, AND ORDERED ENQUEUEING REQUIRE THE QUEUE TO
                                   5190+*   CONTINUE SEARCH FROM THE TOP REQUEST FOR THE DEVICE.
003B9C 9180 83BC      04904        5191+XCP092   TM    BLNKPTR,LCHOUT YES, IS LCH OUT OF ORDER
003BA0 071C                        5192+         BCR   1,LNKRG3 BACK-LINK PTR OUT OF ORDER
003BA2 50B0 83BC            04904  5193+         ST    WKREG2,BLNKPTR SET TO HIGHEST POINT IN Q
003BA6 9680 83BC      04904        5194+         OI    BLNKPTR,LCHOUT SET UP DATE INDICATOR
003BAA 07FC                        5195+         BCR   15,LNKRG3 EXIT TO COMPLETE OR INTERM.

003BAC 50D0 83BC            04904  5197+XCP092A  ST    LCHREG,BLNKPTR SET TO RESTART AT Q TOP  A26116
003BB0 07FE                        5198+         BCR   15,LNKRG2 RETURN                   A26116

003BB2 45C0 5652            03B9C  5200+XCP093   BAL   LNKRG3,XCP092 SET BACK-LINK PTR IF NEEDED
003BB6 D201 B000 1000 00000 00000  5201+         MVC   TSTLNK(2,WKREG2),TSTLNK(TSTREG) RELINK ENTRIES
003BBC 9101 1001      00001        5202+         TM    TSTLNK+1(TSTREG),DUMADR TEST FOR LAST ENTRY IN Q
003BC0 078E                        5203+         BCR   8,LNKRG2 EXIT- NO FURTHER UPDATE
003BC2 40BD 0002            00002  5204+         STH   WKREG2,LCHLTS(LCHREG) UPDATE LAST IN QUEUE POINTER
003BC6 07FE                        5205+         BCR   15,LNKRG2 EXIT

                                   5207+*  AN EMPTY QUEUE WILL HAVE ITS LCHWRD ADDRESS IN LTS WHEN EMPTIED
       COMMON DEQUEUE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                        PAGE  103


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5209+*        THE IOS PATCH AREA HAS 15 WORDS AVAILABLE FOR ZAPS NEEDED
                                   5210+*        TO CORRECT OR TRAP PROBLEMS.  THIS AREA HAS ADDRESSABILITY
                                   5211+*        WITHIN IOS USING THE STANDARD BASE REGS.  THERE IS NO
                                   5212+*        INTERNAL OR EXTERNAL REFERENCE TO THIS AREA.


003BC8 C9D6E2D7C1E3C3C8            5214+         DC    C'IOSPATCH-US07653' @SA78519
003BD8 47F0 5692            03BDC  5215+         BC    15,IOSPATCH
003BDC 0000000000000000            5216+IOSPATCH DC    15F'0'
       INTERRUPT HANDLER - INPUT/OUTPUT SUPERVISOR                                                             PAGE  104


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003C18                             5218 ID202    DS    0H  -  SGIEC202  LEVEL - US06787
                                   5219  IECINT  1,1,1,1,1,0,0,1,0,0,0,1,                                    XXXXXX
                                                       200,0,2,0,2,0,0,0,0,1,0,1,2,                       *********
                                                       1,1,1,1,0,1,1,0,1,1,0,0,0


                                   5221+*        THE INPUT OUTPUT INTERRUPT SUPERVISOR                        *


                                   5223+*              THE IOS INTERRUPT SUPERVISOR IS THAT PART OF THE
                                   5224+*              INPUT OUTPUT SUPERVISOR WHICH HANDLES THE INPUT OUTPUT
                                   5225+*              INTERRUPTS.
                                   5226+*              THE FOLLOWING IS A GENERAL OUTLINE OF THE OPERATION
                                   5227+*              OF THIS PROGRAM.

                                   5229+*                   1. CHECKS FOR CATASTROPHIC ERROR.MAKES INSPECTION
                                   5230+*                      OF STATUS AND SENSE CONDITIONS.
                                   5231+*                   2. LINKS TO ABNORMAL END, CHANNEL END, AND PROGRAM
                                   5232+*                      CONTROLLED INTERRUPT APPENDAGES.
                                   5233+*                   3. INVESTIGATES NON-CHANNEL END CONDITIONS.
                                   5234+*                   4. TESTS FOR ABEOT CONDITIONS
                                   5235+*                   5. ATTEMPTS TO RESTART THE CHANNEL WITH A REQUEST
                                   5236+*                      FROM THE LOGICAL CHANNEL QUEUES.  RETURNS TO
                                   5237+*                      SUPERVISOR.
                                   5238+*                   6. LINKS TO ATTENTION ROUTINE.
                                   5239+*                   7. DETERMINES ERRORS AND BRANCHES OR LINKS TO
                                   5240+*                      PROPER HANDLING ROUTINE.



003C18                             5242+IECINT   DS    0H TBSE
003C18 0550                        5243+         BALR  BASREG,0 TBSE
003C1A 4180 06D0            006D0  5244+IECINTA  LA    BASREG2,IECINTA-IOSBAS TBSE
003C1E 1B58                        5245+         SR    BASREG,BASREG2 SET LOW BASE REGISTER           TBSE
003C20 4185 0FFE            00FFE  5246+         LA    BASREG2,4094(BASREG) SET UP HIGH BASE REG       RL19
003C24 41A0 5A22            03F6C  5247+         LA    WKREG1,INT027 SET MAIN RETURN REG        IMP4
003C28 50A0 83B0            048F8  5248+         ST    WKREG1,LNKRG1S SET MAIN RETURN REGISTER        TBSE
003C2C 9454 83D9      04921        5249+         NI    XCPBTE,FF-XCPCNT-XCPERR-XCPST-XCPRECUR-XCPVALID A24739
                                   5250+*                                       RESET ALL NON-RMS FLAGS  A24739
003C30 58F0 81EC            04734  5251+         L     APBSRG,IECPL2 GET TEMP BASE REG      @SA77644
003C34 1B99                        5252+         SR    ICREG,ICREG CLEAR INSERT CHARACTER REG
003C36 4090 83CC            04914  5253+         STH   ICREG,LTSVALSV NO VALID RQE             A24739
003C3A 4860 003A            0003A  5254+         LH    UAREG,IOPSWO+2 PICK UP UNIT ADDRESS     A24739
003C3E 98AB 0040            00040  5255+         LM    WKREG1,WKREG2,CSWLOC GET CURRENT CSW           19022
003C42 54B0 8364            048AC  5256+         N     WKREG2,CUBMSK REMOVE CUB BITS           19022
003C46 1EAB                        5257+         ALR   WKREG1,WKREG2 ALL OTHER STATUS = ZERO   19022
003C48 4780 8288            047D0  5258+         BC    8,GTF01 ZERO STATUS, TRACE IT     21014

                                   5260+*   THE NEXT PROCEDURE ATTEMPTS TO ELIMINATE THE UCB LOOK-UP PROCEDURE
                                   5261+*   IF THE CORRECT UCB ADDRESS HAS BEEN SAVED IN THE CHANNEL SAVE
                                   5262+*   AREA, NO LOOK UP IS NECESSARY.

003C4C 4390 003A            0003A  5264+         IC    ICREG,IOPSWO+2 PICK UP CHANNEL ADDRESS
003C50 1A99                        5265+         AR    ICREG,ICREG DOUBLE CHAN ADDR TO GET INDEX
003C52 4879 88C2            04E0A  5266+         LH    UCBREG,UCBSAVE(ICREG) PICK UP LAST ACTIVE UCB ADDR
       INTERRUPT HANDLER - INPUT/OUTPUT SUPERVISOR                                                             PAGE  105


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003C56 4960 7004            00004  5267+         CH    UAREG,UCBCHA(0,UCBREG) IS THIS THE LAST UCB STARTED
003C5A 4780 5750            03C9A  5268+         BC    8,INT01A YES- GO LOAD REGS           IMP2

                                   5270+*   GET UCB ADDRESS VIA LOOK-UP METHOD
003C5E 18A6                        5271+         LR    WKREG1,UAREG COPY UNIT ADDRESS               IMP2
003C60 8C60 0008            00008  5272+         SRDL  UAREG,8 ISOLATE CHAN ADDR IN UAREG
003C64 8870 001C            0001C  5273+         SRL   UCBREG,28 ISOLATE CONTROL UNIT ADDR
003C68 4366 890A            04E52  5274+         IC    UAREG,UCBTAB(UAREG) FIND CHANNEL CONSTANT
003C6C 1A66                        5275+         AR    UAREG,UAREG DOUBLE CHAN CONS TO INDEX  I267
003C6E 1A67                        5276+         AR    UAREG,UCBREG CHAN INDEX + CU ADDRESS    I267
003C70 1A67                        5277+         AR    UAREG,UCBREG CHAN INDX + 2 X CU ADR     IMP4
003C72 4866 890A            04E52  5278+         LH    UAREG,UCBTAB(UAREG) GET CU INDEX               IMP4
003C76 54A0 8330            04878  5279+         N     WKREG1,DEVMSK ISOLATE DEVICE             IMP4
003C7A 1A66                        5280+         AR    UAREG,UAREG DOUBLE C U CONSTANT
003C7C 1AAA                        5281+         AR    WKREG1,WKREG1 DOUBLE DEVICE ADDRESS
003C7E 1AA6                        5282+         AR    WKREG1,UAREG CU CONST + 2X DEV ADDR
003C80 49A0 83CE            04916  5283+         CH    WKREG1,MAXUCBO COMPARE WITH HIGHEST OFFSET
003C84 4860 003A            0003A  5284+         LH    UAREG,IOPSWO+2 RE-INITIALIZE INT. ADD.   M0154
003C88 47AF 0222            00222  5285+         BC    8+2,SERR-IECCPL02(APBSRG) CHECK FOR CHAN ERRORS @SA77644
003C8C 5870 81D8            04720  5286+         L     UCBREG,LISTA FIND UCB LIST           SA71362
003C90 487A 7000            00000  5287+         LH    UCBREG,0(WKREG1,UCBREG) FIND UCB POINTER        SA71362
003C94 1277                        5288+         LTR   UCBREG,UCBREG CHECK FOR PAD ENTRY
003C96 478F 0222            00222  5289+         BC    8,SERR-IECCPL02(APBSRG) CHECK FOR CHAN ERRORS  @SA77644

                                   5291+*    INTERFACE TO SERR OR CCH IF CHANNEL ERROR                     CCHB
003C9A 9180 0045      00045        5292+INT01A   TM    CSWLOC+5,CSWPCI TEST FOR PCI INTERRUPT    21014
003C9E 4780 5760            03CAA  5293+         BC    8,INT01B NO, TRACE THE INTERRUPT   21014
003CA2 910E 0045      00045        5294+         TM    CSWLOC+5,CSWCTK+CSWICK+CATCCH CAT.ERRORS           21014
003CA6 4780 5770            03CBA  5295+         BC    8,INTCCH PCI WITHOUT CAT. ERROR    21014
                                   5296+*
                                   5297+* MC INSTRUCTION GENERATED BY THE HOOK MACRO
                                   5298+* COMPATIBLE FOR MACHINES WITHOUT THE MC HARDWARE
                                   5299+*
003CAA AF050FEF                    5300+INT01B   DC    XL1'AF',AL3(IHLMIO2) MC INSTRUCTION
003CAE 47050FEF                    5301+         DC    XL1'47',AL3(IHLMIO2) NOP TO CARRY EID
003CB2 910E 0045      00045        5302+         TM    CSWLOC+5,CSWCTK+CSWICK+CATCCH CAT.ERRORS           21014
003CB6 477F 0234            00234  5303+         BC    7,SERR02-IECCPL02(APBSRG) YES, GO HANDLE THEM   @SA77644
003CBA                             5304+INTCCH   DS    0H CCHB
                                   5305+*   GET USER'S CONTROL BLOCKS IF RQE IS VALID.
003CBA 9120 7006      00006        5306+         TM    UCBFL1(UCBREG),UCBPST IS THERE AN RQE            CCHB
003CBE 4780 5980            03ECA  5307+         BC    8,INT009 NO-BY PASS SET-UP               IMP1
003CC2 4817 0014            00014  5308+         LH    TSTREG,UCBLTS(UCBREG) GET RQE POINTER FROM UCBSA52441
003CC6 4010 83CC            04914  5309+         STH   TSTREG,LTSVALSV VALID RQE                A24739
003CCA 9823 1004            00004  5310+         LM    IOBREG,DEBREG,TSTIOB-1(TSTREG) GET IOB + DEB ADDR A24739
003CCE 5843 0018            00018  5311+         L     DCBREG,DEBDCB-1(DEBREG) LOAD DCB ADDRESS

                                   5313+*    VALIDITY CHECK USER'S CONTROL BLOCKS IF NON SUPERVISOR

003CD2 91F0 100C      0000C        5315+         TM    TSTKEY(TSTREG),X'F0' CHECK FOR REQUESTOR KEY OF 0
003CD6 4780 579C            03CE6  5316+         BC    8,INT002A YES-SKIP VALCK
003CDA 9602 83D9      04921        5317+         OI    XCPBTE,XCPVALID SET VDTY CHK FLAG        A24739
003CDE 45E0 814A            04692  5318+         BAL   LNKRG2,VALCHK NO-GO DO VALIDITY CHECK    VDTY
003CE2 94FD 83D9      04921        5319+         NI    XCPBTE,FF-XCPVALID RESET VDTY CHK FLAG      A24739
003CE6 9140 7004      00004        5320+INT002A  TM    UCBCHA(UCBREG),UCBSMD WAITING FOR SENSE OPERAT    IMP2
003CEA 4710 59EE            03F38  5321+         BC    1,INT006 YES- RE-ENTER SENSE ROUTN   IMP2
       INTERRUPT HANDLER - INPUT/OUTPUT SUPERVISOR                                                             PAGE  106


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5323+*   PREPARE LINKAGE TO PCI APPENDAGE IF REQUESTED BY USER.
003CEE 9180 0045      00045        5324+INT003   TM    CSWLOC+5,CSWPCI TEST FOR PCI INTERRUPT      IMP2
003CF2 4780 57DE            03D28  5325+         BC    8,INT008 NO-BYPASS PCI APPENDAGE SA52441
003CF6 58F3 001C            0001C  5326+         L     APBSRG,DEBAPG-1(DEBREG) GET APPD TABLE ADDR.
003CFA 58FF 0008            00008  5327+         L     APBSRG,APGPCI(APBSRG) GET PCI APG ADDR.
003CFE 05EF                        5328+         BALR  LNKRG2,APBSRG TO APPENDATS

                                   5330+*    DEFINITION OF PCI APPENDAGE - IOS INTERFACE                 BBBBBB
                                   5331+*    INPUT     TSTREG,IOBREG,DEBREG,DCBREG,UCBREG,               BBBBBB
                                   5332+*              LNKRG2(RET ADDR),APBSRG(BASE ADDR)                BBBBBB
                                   5333+*    REGS CHANGED  WKREG1,WKREG2,WKREG3,LCHREG                   BBBBBB

                                   5335+*   RETURN FROM PCI APPENDAGE.
                                   5336+*
                                   5337+* MC INSTRUCTION GENERATED BY THE HOOK MACRO
                                   5338+* COMPATIBLE FOR MACHINES WITHOUT THE MC HARDWARE
                                   5339+*
003D00 AF020FDF                    5340+         DC    XL1'AF',AL3(IHLMPCI) MC INSTRUCTION
003D04 47020FDF                    5341+         DC    XL1'47',AL3(IHLMPCI) NOP TO CARRY EID
003D08 5800 100C            0000C  5342+         L     REG0,TSTTCB(0,TSTREG) SET UP TCB ADDRESS         SMF2
003D0C 58F0 8204            0474C  5343+         L     APBSRG,SMFRTN GET ADDRESS OF SMF RTN     SMF2
003D10 05EF                        5344+         BALR  LNKRG2,APBSRG .          REPORT PCI TO SMF        A31489
003D12 48A0 0044            00044  5345+         LH    WKREG1,CSWLOC+4 GET STATUS                  SMF2
003D16 54A0 8370            048B8  5346+         N     WKREG1,PCIMSK ANY STATUS EXCEPT PCI       IMP2
003D1A 4770 57DE            03D28  5347+         BC    7,INT008 YES, CONTINUE
003D1E 1B11                        5348+         SR    TSTREG,TSTREG CLEAR RQE ADDR REG      SA71481
003D20 4010 83CC            04914  5349+         STH   TSTREG,LTSVALSV NO VALID RQE            SA71481
003D24 47F0 5A22            03F6C  5350+         B     INT027 GO TO CHANNEL RESTART  M2563

                                   5352+*   ENTRY POINT FOR SIO POST INSPECTION
003D28 94DF 7001      00001        5353+INT008   NI    UCBFL5(UCBREG),FF-UCBTICBT SHOW INTER. RECEIVED   A42261
003D2C D206 2009 0041 00009 00041  5354+         MVC   IOBCSW+1(7,IOBREG),CSWLOC+1 MOVE CSW TO IOB
003D32 9108 0044      00044        5355+         TM    CSWLOC+4,CSWCHE TEST FOR CHANNEL END    SA52441
003D36 4780 57F8            03D42  5356+         BC    8,INT010 NO, FREE UCB            SA52441
003D3A 9104 0044      00044        5357+         TM    CSWLOC+4,CSWDVE TEST FOR DEVICE END     SA60254
003D3E 4780 57FC            03D46  5358+         BC    8,INT010A NO, DON'T FREE UCB      SA60254
003D42 947F 7006      00006        5359+INT010   NI    UCBFL1(UCBREG),FF-UCBBSY YES-MAKE IT AVAILABLE    BBBBBB
003D46 48A0 0044            00044  5360+INT010A  LH    WKREG1,CSWLOC+4 CHECK FOR ABNORMAL STATUS
003D4A 54A0 8368            048B0  5361+         N     WKREG1,CHEDVE TEST FOR OTHER BITS ON
003D4E 4770 59B2            03EFC  5362+         BC    7,INT011B YES-GO TO STATUS INSPECTION     IMP2

                                   5364+***********************************************************************
                                   5365+*                                                                     *
                                   5366+*                      TRAP ROUTINE EXIT                              *
                                   5367+*                                                                     *
                                   5368+*              THE FOLLOWING CODING SETS UP THE EXIT                  *
                                   5369+*              ADDRESS TO THE CORRECT TRAP ROUTINE                    *
                                   5370+*                                                                     *
003D52 4397 0007            00007  5371+INTTRAP  IC    ICREG,UCBDTI(UCBREG) GET DEVICE TABLE INDEX
003D56 48A9 8834            04D7C  5372+         LH    WKREG1,DEVTAB+DVTTRP(ICREG) GET TRAP RTN INDEX
003D5A 1AA5                        5373+         AR    WKREG1,BASREG ADJUST ADDRESS             RL19
003D5C 05EA                        5374+         BALR  LNKRG2,WKREG1 GO TO TRAP ROUTINE          IMP3
003D5E                             5375+INTNOT   DS    0H RETURN FOR NO TRAP DEVICES    0
                                   5376+* IF A MACHINE MALFUNCTION OCCURS CAUSING PREMATURE TERMINATION SA69782
                                   5377+* WITH INVALID STATUS, PREVENT NORMAL POSTING; POST IN ERROR    SA69782
       INTERRUPT HANDLER - INPUT/OUTPUT SUPERVISOR                                                             PAGE  107


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003D5E 910D 0044      00044        5378+         TM    CSWLOC+4,CSWCHE+CSWDVE+CSWUEX VALID TERM STATUS SA69782
003D62 4750 585E            03DA8  5379+         BC    4+1,INT019C YES, CONTINUE           SA69782
003D66 1B99                        5380+         SR    ICREG,ICREG CLEAR REG               SA69782
003D68 4990 0044            00044  5381+         CH    ICREG,CSWLOC+4 ZERO STATUS             SA69782
003D6C 4780 583E            03D88  5382+         BC    8,INT019K YES, FORCE ERROR        SA69782
003D70 9170 0044      00044        5383+         TM    CSWLOC+4,CSWBSY+CSWSMD+CSWCUE INVALID TERM STAT SA69782
003D74 4780 585E            03DA8  5384+         BC    8,INT019C NO, CONTINUE            SA69782
003D78 9120 7012      00012        5385+         TM    UCBTYP+2(UCBREG),DSKTYP TEST FOR DIRECT ACCESS  SA74387
003D7C 4780 583E            03D88  5386+         BZ    INT019K NO, SKIP                SA74387
003D80 9140 702C      0002C        5387+         TM    UCBFL4(UCBREG),UCBVVR DAVV IN CONTROL         SA74387
003D84 4710 8032            0457A  5388+         BO    INTERR4A YES, RESCHEDULE DAVV    SA74387
003D88 9200 7006      00006        5389+INT019K  MVI   UCBFL1(UCBREG),ZERO CLEAR UCB FLAGS         SA69782
003D8C 9241 2004      00004        5390+         MVI   IOBCOD(IOBREG),PERMER SET PERM ERROR CODE     SA69782
003D90 58A2 0000            00000  5391+         L     WKREG1,IOBFL1(IOBREG) CLEAR SENSE             SA74387
003D94 54A0 83C8            04910  5392+         N     WKREG1,CLEARM AND IOB FLAGS       SA74387
003D98 50A2 0000            00000  5393+         ST    WKREG1,IOBFL1(IOBREG) ONE AND TWO     SA74387
003D9C 9604 2000      00000        5394+         OI    IOBFL1(IOBREG),IOBEX SET IOB EXCEPTION FLAG  SA74387
003DA0 41F0 0010            00010  5395+         LA    APBSRG,APGABE GET ABN END APG INCR    SA74387
003DA4 47F0 5886            03DD0  5396+         BC    15,INT12C ENTER APG AS PERM ERROR SA74387


                                   5398+***********************************************************************
                                   5399+*                                                                     *
                                   5400+*           CHANNEL END AND ABNORMAL END APPENDAGE EXIT AND
                                   5401+*              CHANNEL END APPENDAGE BASE INCREMENT SETUP
                                   5402+*                                                                     *
                                   5403+*              THE FOLLOWING CODING IS THE EXIT TO THE                *
                                   5404+*              PROPER APPENDAGE (CHANNEL END OR ABNORMAL END).
                                   5405+*                                                                     *
003DA8 9480 7006      00006        5406+INT019C  NI    UCBFL1(UCBREG),UCBBSY RESET ALL EXECPT BUSY    BBBBBB
003DAC 9120 7012      00012        5407+         TM    18(UCBREG),X'20' DIRECT ACCESS DEVICE?  @SA76637
003DB0 4780 587A            03DC4  5408+         BZ    INT019B NO,CONTINUE            @SA76637
003DB4 9108 0044      00044        5409+         TM    CSWLOC+4,X'08' CHANNEL END IN CSW?    @SA76637
003DB8 4710 587A            03DC4  5410+         BO    INT019B YES,CONTINUE           @SA76637
003DBC 9608 7006      00006        5411+         OI    6(UCBREG),X'08' SET UCB CONT UNIT BUSY @SA76637
003DC0 47F0 597C            03EC6  5412+         B     INT17C AND RE-EXCP.           @SA76637
                                   5413+*   INCREMENT TO CHANNEL END APPENDAGE.
003DC4 41F0 000C            0000C  5414+INT019B  LA    APBSRG,APGCHE NORMAL END APD. INCR.
003DC8 9120 2000      00000        5415+INT019   TM    IOBFL1(IOBREG),IOBERR IS ERROR ROUTINE IN CONTROL
003DCC 4710 5F9C            044E6  5416+         BC    1,INTERR YES-BYPASS APPENDAGE     BBBBBB

003DD0 58A3 001C            0001C  5418+INT12C   L     WKREG1,DEBAPG-1(DEBREG) GET APPENDAGE TABLE ADDRESS
003DD4 58FF A000            00000  5419+         L     APBSRG,0(APBSRG,WKREG1) FORM APPROPRATE APP. ADDR
                                   5420+*   SET CONDITION AND IOB EXCEPTION CODE BEFORE ENTERING APPENDAGE
003DD8 9113 200C      0000C        5421+         TM    IOBCSW+4(IOBREG),CSWUEX+CSWUCK+CSWBSY TEST FOR UNIT ERR
003DDC 4770 589E            03DE8  5422+         BC    7,INT012 TO APPENDAGE
003DE0 917F 200D      0000D        5423+         TM    IOBCSW+5(IOBREG),CSWIL+CSWPC+CSWPCK+CSWCCK+CATBIT CCHA
                                   5424+*                                       TEST OTHER CONDITIONS
003DE4 4780 58A2            03DEC  5425+         BC    8,INT12B SKIP SETTING OF FLAG
003DE8 9604 2000      00000        5426+INT012   OI    IOBFL1(IOBREG),IOBEX SET IOB EXCEPTION FLAG
003DEC 05EF                        5427+INT12B   BALR  LNKRG2,APBSRG TO PROPER APPENDAGE

                                   5429+*    DEFINITION OF CHAN AND ABN END APPENDAGE - IOS INTERFACE    BBBBBB
                                   5430+*    INPUT     TSTREG,IOBREG,DEBREG,DCBREG,UCBREG,               BBBBBB
                                   5431+*              LNKRG2(RET ADDR),APBSRG(BASE ADDR)                BBBBBB
       INTERRUPT HANDLER - INPUT/OUTPUT SUPERVISOR                                                             PAGE  108


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5432+*    REGS CHANGED  WKREG1,WKREG2,WKREG3,LCHREG                   BBBBBB

                                   5434+***********************************************************************
                                   5435+*                                                                     *
                                   5436+*              CHANNEL END AND ABNORMAL END VECTOR TABLE              *
                                   5437+*                                                                     *
003DEE 47F0 58B4            03DFE  5438+         BC    15,INT023 NORMAL
003DF2 47F0 58C0            03E0A  5439+         BC    15,INT024B SKIP POST                       TBSE
003DF6 47F0 590C            03E56  5440+         BC    15,INT17A EXCP
003DFA 47F0 5B9A            040E4  5441+         BC    15,PRGCOMA SKIP POST, DON'T RETURN RQE
                                   5442+*                                                                     *
                                   5443+***********************************************************************
                                   5444+*   THE NORMAL RETURN BRANCHES HERE
003DFE 9104 2000      00000        5445+INT023   TM    IOBFL1(IOBREG),IOBEX TEST FOR EXCEPTION
003E02 4710 5F9C            044E6  5446+         BC    1,INTERR YES TO ERROR INTERFACE
003E06 45E0 810A            04652  5447+INT024   BAL   LNKRG2,XCPPST BRANCH TO POST ROUTINE
                                   5448+*   SKIP POST RETURN POINT
003E0A 45E0 5B9E            040E8  5449+INT024B  BAL   LNKRG2,PRGCOMB GO CHECK FOR PURGE          IMP4

003E0E 91FF 1004      00004        5451+INT025A  TM    TSTASSN(TSTREG),FF IS RQE ALREADY FREE
003E12 4710 58DE            03E28  5452+         BC    1,INT026 DON'T FREE IT AGAIN DUMMY
003E16 D201 1000 81A0 00000 046E8  5453+         MVC   TSTLNK(2,TSTREG),NEXAVL RETURN RQE
003E1C 4010 81A0            046E8  5454+         STH   TSTREG,NEXAVL TO NEXT AVAILABLE
003E20 92FF 1004      00004        5455+         MVI   TSTASSN(TSTREG),FF MARK AS AVAILABLE        BBBBBB
003E24 4700 5C20            0416A  5456+INT025B  BC    0,INTVMSA TO TASK SW IF LAST RQE SW SET
                                   5457+*   POST AND RQE RETURN SKIP
003E28                             5458+INT026   DS    0H GENERAL RETURN POINT     BBBBBB
003E28 D701 83CC 83CC 04914 04914  5459+         XC    LTSVALSV(2),LTSVALSV NO VALID RQE             A24739
003E2E 47F0 8290            047D8  5460+         BC    15,SELECTV TBSE

003E32                             5462+INT025   DS    0H TBSE
                                   5463+*   INT025 (EXTERNED) IS USED BY THE SUPERVISOR EXIT ROUTINE TO
                                   5464+*   RETURN AN RQE AND CHECK FOR PURGE COMPLETE AFTER DEQUEUING THE RQE
                                   5465+*   FROM AN IRB.
                                   5466+*   RETURN IS BACK TO THE SUPERVISOR EXIT ROUTINE.
003E32 18A8                        5467+         LR    WKREG1,BASREG2 SAVE REG CONTENTS FOR RETURN    TBSE
003E34 0550                        5468+         BALR  BASREG,0 TBSE
003E36 4180 08EC            008EC  5469+INT0025  LA    BASREG2,INT0025-IOSBAS TBSE
003E3A 1B58                        5470+         SR    BASREG,BASREG2 SET LOW BASE REGISTER           TBSE
003E3C 4185 0FFE            00FFE  5471+         LA    BASREG2,4094(BASREG) SET UP HIGH BASE REG       RL19
003E40 50A0 83C0            04908  5472+         ST    WKREG1,BUSYSV SAVE RETURN TO EXIT         TBSE
003E44 41A0 5906            03E50  5473+         LA    WKREG1,INT0025A RETURN FROM SELECTV         TBSE
003E48 50A0 83B0            048F8  5474+         ST    WKREG1,LNKRG1S TBSE
003E4C 47F0 58C0            03E0A  5475+         BC    15,INT024B TBSE

003E50 5880 83C0            04908  5477+INT0025A L     BASREG2,BUSYSV RESTORE SUPVSR BASE         TBSE
003E54 07F8                        5478+         BCR   15,BASREG2 RETURN TO SUPRVSR EXIT      TBSE


                                   5481+*   EXCP EXIT FROM APPENDAGE VECTOR TABLE
003E56                             5482+INT17A   DS    0H 19022
003E56 D402 3015 3015 00015 00015  5483+         NC    DEBEPG(3,DEBREG),DEBEPG(DEBREG) TEST FOR ADDR   20001
003E5C 4780 595C            03EA6  5484+         BC    8,INT17A1 NO-BRANCH AROUND          20001
003E60 58B3 0014            00014  5485+         L     WKREG2,DEBEPG-1(DEBREG) GET LIST ADDR FOR TSO PRG 20001
003E64 9108 B000      00000        5486+         TM    ZERO(WKREG2),LSTOPT TEST FOR LIST OPTION      20001
       INTERRUPT HANDLER - INPUT/OUTPUT SUPERVISOR                                                             PAGE  109


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

003E68 4780 595C            03EA6  5487+         BC    8,INT17A1 NO-BRANCH AROUND          20001
003E6C 58AB 000C            0000C  5488+         L     WKREG1,QPLPTR(WKREG2) GET LIST POINTER          20001
003E70 41AA 0004            00004  5489+         LA    WKREG1,FOUR(WKREG1) UPDATE TO FIRST ENTRY     20001
003E74 D502 100D A005 0000D 00005  5490+INTSLP   CLC   TSTTCB+1(3,TSTREG),FIVE(WKREG1) TEST FOR TCB COMP  20001
003E7A 4770 594C            03E96  5491+         BC    7,INTSLP1 NO-TEST FOR LAST          20001
003E7E D202 2019 A001 00019 00001  5492+         MVC   IOBRST(3,IOBREG),ONE(WKREG1) IOB TO TOP OF CHAIN  20001
003E84 502A 0000            00000  5493+         ST    IOBREG,ZERO(WKREG1) IOB ADDR TO CHAIN FLD     20001
003E88 92FF 2010      00010        5494+         MVI   IOBCC(IOBREG),X'FF' SET PTK SAVED INDICATOR@SA78151
003E8C D300 2010 100C 00010 0000C  5495+         MVZ   IOBCC(1,IOBREG),TSTKEY(TSTREG) SAVE PTK IN IOB  @SA78151
003E92 47F0 58C0            03E0A  5496+         B     INT024B GO TO PURGE COMP RTN      20001
003E96 9180 A004      00004        5497+INTSLP1  TM    FOUR(WKREG1),QPLFLST TEST FOR LAST ENTRY       20001
003E9A 4710 595C            03EA6  5498+         BC    1,INT17A1 YES-CONTINUE NORMAL       20001
003E9E 4AA0 83D4            0491C  5499+         AH    WKREG1,EIGHT BUMP TO NEXT ENTRY        20001
003EA2 47F0 592A            03E74  5500+         B     INTSLP GO TEST NEXT              20001
003EA6                             5501+INT17A1  DS    0H 20001
003EA6 5800 100C            0000C  5502+         L     REG0,TSTTCB(0,TSTREG) SET UP TCB ADDRESS          SMF2
003EAA 58F0 8204            0474C  5503+         L     APBSRG,SMFRTN GET ADDRESS OF SMF RTN     SMF2
003EAE 05EF                        5504+         BALR  LNKRG2,APBSRG .          REPORT EXCP RETRY TO SMF A31489
003EB0 927F 2004      00004        5505+INT17B   MVI   IOBCOD(IOBREG),NORMC SET NORMAL COMPLETION     19022
003EB4 D708 2008 2008 00008 00008  5506+         XC    IOBFL3(9,IOBREG),IOBFL3(IOBREG) CLEAR FLGS,SENSE   19022
003EBA D701 201E 201E 0001E 0001E  5507+         XC    IOBECT(2,IOBREG),IOBECT(IOBREG) ZERO ERROR COUNT A43797
003EC0 D403 2000 83C8 00000 04910  5508+         NC    IOBFL1(4,IOBREG),CLEARM CLEAR FLAGS AND SENSE      IMP5
003EC6 47F0 80B2            045FA  5509+INT17C   BC    15,INTER7A PICK UP ENQUEUE            PRER
       INTERRUPT HANDLER - INPUT/OUTPUT SUPERVISOR                                                             PAGE  110


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5511+*  THIS SECTION INVESTIGATES NON-CHANNEL END CONDITIONS
003ECA 94DF 7001      00001        5512+INT009   NI    UCBFL5(UCBREG),FF-UCBTICBT SHOW INTER. RECEIVED   A42261
003ECE 9140 7004      00004        5513+         TM    UCBCHA(UCBREG),UCBSMD WAITING FOR SENSE OPER. US05348
003ED2 4710 59AE            03EF8  5514+         BO    INT011 YES, CHECK ATTENTION    US05348
003ED6 918A 7006      00006        5515+         TM    UCBFL1(UCBREG),UCBBSY+UCBASK+UCBCUB INT. EXPECTED A27707
003EDA 4780 5C40            0418A  5516+         BC    8,INTATT NO,HANDLE LIKE ATTENTION  20201
003EDE 9103 0044      00044        5517+         TM    CSWLOC+4,CSWUCK+CSWUEX INTERCEPT COND AT D.E.   BBBBBB
003EE2 4780 59AE            03EF8  5518+         BC    8,INT011 NO-GO FREE UCB
                                   5519+*  IF ERP IS ALREADY IN CONTROL (RQE ON QUEUE FOR RESTART) DO    A32507
                                   5520+*   NOT TREAT AS INTERCEPT, BUT GO TO CHANNEL RESTART.           A32507
003EE6 910B 7006      00006        5521+         TM    UCBFL1(UCBREG),UCBASK+UCBERR+UCBCUB UCBLTS GOOD   A36514
003EEA 4750 59AE            03EF8  5522+         BC    4+1,INT011 .             YES, DO NOT INTERCEPT    A32507

                                   5524+*   NEXT TIME WILL INTERCEPT IOB
003EEE D201 7014 0044 00014 00044  5525+         MVC   UCBLTS(2,UCBREG),CSWLOC+4 MOVE STATUS TO UCB
003EF4 9610 7006      00006        5526+         OI    UCBFL1(UCBREG),UCBITF SET INTERCEPT FLAG
003EF8 947F 7006      00006        5527+INT011   NI    UCBFL1(UCBREG),FF-UCBBSY . MARK FREE             US05348
003EFC                             5528+INT011B  EQU   * SA74193

                                   5530+*    ENTERED FROM MAINLINE ON ANY INTERRUPT WITH ABNORMAL STATUS.
003EFC 9180 0044      00044        5531+INT011C  TM    CSWLOC+4,CSWATN CSW CONTAIN ATTENTION           IMP2
003F00 4710 5C50            0419A  5532+         BC    1,INTATT2 YES-GO TO ATTENTION RTN.        IMP2
003F04 9140 7004      00004        5533+INT013   TM    UCBCHA(UCBREG),UCBSMD WAITING FOR SENSE OPER. US05348
003F08 4710 5F18            04462  5534+         BO    INTSEN4 YES, RETURN TO SENSE RT SA75351
003F0C 9102 0044      00044        5535+INT013B  TM    CSWLOC+4,CSWUCK CSW=UNIT FAILURE                IMP2
003F10 4710 5D2C            04276  5536+         BC    1,INTSEN YES-GO TO SENSE RTN.            IMP2
003F14 9120 7006      00006        5537+         TM    UCBFL1(UCBREG),UCBPST OPERATION COMPLETE INTERRUPT IMP2
003F18 4780 8290            047D8  5538+         BC    8,SELECTV TBSE
                                   5539+*        TEST FOR CATASTROPHIC ERRORS                             19062
003F1C 913F 0045      00045        5540+         TM    CSWLOC+5,CSWPC+CSWPCK+CSWCDK+CSWCTK+CSWICK+CSWCCK 19062
003F20 4780 5808            03D52  5541+         BC    8,INTTRAP NO, RETURN TO NORMAL FLOW 19062
                                   5542+**************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP
003F24 9504 7011      00011        5543+         CLI   UCBTYP+1(UCBREG),4 -IS THE ERROR ON A CTC UNIT     **ASP
003F28 4770 5E82            043CC  5544+         BNE   INT031 -            NO, GO TO AB. END APG. EXIT    **ASP
003F2C 48A1 0002            00002  5545+         LH    WKREG1,TSTUCB(TSTREG) - GET ADDR OF SECONDARY UCB  **ASP
003F30 9200 A006      00006        5546+         MVI   UCBFL1(WKREG1),0 -  RESET ALL FLAGS IN SECONDARY   **ASP
003F34 47F0 5E82            043CC  5547+         BC    15,INT031 GO TO ABN APPENDAGE       19062

003F38                             5549+INT006   DS    0H BBBBBB
003F38 9140 2001      00001        5550+         TM    IOBFL2(IOBREG),IOBSNB WAITING FOR DEVICE        BBBBB
003F3C 4780 5F18            04462  5551+         BC    8,INTSEN4 NO MUST BE END OF SENSE   BBBBB
003F40 D606 0041 2009 00041 00009  5552+         OC    CSWLOC+1(7),IOBCSW+1(IOBREG) OR IN PREVIOUS COND. BBBBBB
003F46 94BF 2001      00001        5553+         NI    IOBFL2(IOBREG),FF-IOBSNB RESET SENSE FLAG         BBBBBB
003F4A 94BF 7004      00004        5554+         NI    UCBCHA(UCBREG),FF-UCBSMD RESET SENSE FLAG         BBBBBB
003F4E 47F0 57DE            03D28  5555+         BC    15,INT008
                                   5556+         TITLE 'CHANNEL RESTART INITIALIZATION - INPUT/OUTPUT SUPERVISOX
       CHANNEL RESTART INITIALIZATION - INPUT/OUTPUT SUPERVISOR                                                PAGE  111


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5557+*              RETURN TO I/O FLIH SUBROUTINE
                                   5558+*
                                   5559+*                                  AND
                                   5560+*
                                   5561+*              CHANNEL RESTART INITIALIZATION SUBROUTINE



                                   5563+* CHECK IF OTHER CHANNELS NEED PROCESSING BEFORE RETURNING         IMP3
003F52 58B0 81B4            046FC  5564+INT033   L     WKREG2,CHMSK GET MASK BYTE             19021
003F56 1BCC                        5565+         SR    WKREG3,WKREG3 CLEAR COUNTER               IMP3
003F58 1EBB                        5566+INT030A  ALR   WKREG2,WKREG2 DOUBLE THE MASK BYTE        IMP3
003F5A 4780 5A78            03FC2  5567+         BC    8,INT033C IF BYTE=0, GO TO TEST EXIT19021
003F5E 41CC 0001            00001  5568+         LA    WKREG3,1(WKREG3) IF OVERFLOW OR BYTE NOT 0   IMP3
003F62 4740 5A0E            03F58  5569+         BC    4,INT030A CONT. TILL CORRECT CHAN FOUNDMP3
003F66 06C0                        5570+         BCTR  WKREG3,0 ON OVERFLOW, BACK UP CHANADRIMP3
003F68 42C0 003A            0003A  5571+         STC   WKREG3,IOPSWO+2 SET UP CHAN FOR RESTART
                                   5572+* THIS IS A GENERAL RETURN FROM AN I/O INTERRUPT (IECINT) ENTRY,   IMP3
                                   5573+* FOR THE PURPOSE OF RESTARTING THE CHANNEL THAT CAUSED THE        IMP3
                                   5574+* INTERRUPT.  ERREXCP, THE SELECT ROUTINE TRY-AGAIN VECTOR, AND    IMP3
                                   5575+* DISK ERP'S REQUIRING FUTHER I/O ALSO BRANCH HERE.                IMP3

003F6C                             5577+INT027   DS    0H
003F6C 95FE 81B4      046FC        5578+         CLI   CHMSK,RSTMSK RESTART ALL CHANNELS
003F70 4770 5A30            03F7A  5579+         BC    7,INTM7CH NO, CHMSK OK
003F74 D201 81B4 88C0 046FC 04E08  5580+         MVC   CHMSK(2),RST7MSK RESTART ALL CHANNELS
003F7A 4390 003A            0003A  5581+INTM7CH  IC    ICREG,IOPSWO+2 GET CH ADR FOR RESTART   BBBBBB
003F7E 58A0 837C            048C4  5582+         L     WKREG1,CHANBIT GET CHANNEL BIT            I267
003F82 88A0 9000            00000  5583+         SRL   WKREG1,ZERO(ICREG) DERIVE PSW EQUIVALENT      MSVN
003F86 18BA                        5584+         LR    WKREG2,WKREG1 SAVE IT FOR LATER          MSVN
003F88 56A0 81B4            046FC  5585+         O     WKREG1,CHMSK PICK UP ANY CHANS TO RSTRT MSVN
003F8C 50A0 81B4            046FC  5586+         ST    WKREG1,CHMSK SET THIS CHAN IN CASE OF INTSVN
003F90 8990 0002            00002  5587+         SLL   ICREG,2 ICREG = ICREG * 4          IMP3
003F94 48E9 8880            04DC8  5588+         LH    LNKRG2,IECCST(ICREG) GET CHANNEL SEARCH CODE ADR IMP3
003F98 1AE5                        5589+         AR    LNKRG2,BASREG ADJUST ADDRESS             RL19
003F9A 9191 83D9      04921        5590+         TM    XCPBTE,XCPCNT+XCPST+XCPRMS EXCP OR MCH ENTRY       19021
003F9E 4750 5A6E            03FB8  5591+         BC    4+1,INT027A YES, NO ENABLE            19021
                                   5592+* PROCESS ANY STACKED INTERRUPTS BEFORE CHANNEL SEARCH             IMP3
003FA2 8000 83DA      04922        5593+         SSM   XCPENB ENABLE FOR INTERRUPTS       MP1A
                                   5594+* IF AN INTERRUPT IS PENDING, THE FLIH WILL RE-ENTER IOS AT IECINT.
                                   5595+* IF NO INTERRUPT IS PENDING, THE NEXT INSTRUCTION IS EXECUTED.    IMP3
003FA6 8000 0078      00078        5596+         SSM   IONPSW DISABLE BEFORE CH.SRCH.     MP1A
003FAA 9500 8214      0475C        5597+         CLI   CLPCNT,ZERO CH LOGOUT COUNT ZERO    SA71482
003FAE 4780 5A6E            03FB8  5598+         BE    INT027A YES, CONTINUE           SA71482
003FB2 58F0 8214            0475C  5599+         L     APBSRG,ACLPRTN GET ADDR OF CH LOGOUT RTSA71482
003FB6 07FF                        5600+         BR    APBSRG GO TO CHAN LOG PEND RTN SA71482
003FB8 57B0 81B4            046FC  5601+INT027A  X     WKREG2,CHMSK RESET THIS CHANNEL         MSVN
003FBC 50B0 81B4            046FC  5602+         ST    WKREG2,CHMSK STORE ALL OTHERS BACK      MSVN
003FC0 07FE                        5603+         BR    LNKRG2 GO TO CHANNEL SEARCH    SA71482
                                   5604+*    SEND EXCP, RMS, AND SHOULDER TAP ENTRIES TO EXIT ROUTINE     19021
003FC2 9191 83D9      04921        5605+INT033C  TM    XCPBTE,XCPCNT+XCPST+XCPRMS TEST NON-INTRPT ENTRY   19021
003FC6 4750 5A8E            03FD8  5606+         BC    4+1,IECEXIT YES-GO TO EXIT PROC       19021
                                   5607+*    ENABLE TO ACCEPT ANY PENDING I/O INTERRUPTS                  19021
003FCA 8000 83DA      04922        5608+         SSM   XCPENB ENABLE FOR INTERRUPTS       MP1A
003FCE 58A0 8220            04768  5609+         L     WKREG1,DISMIS GET RETURN ADDRESS
       CHANNEL RESTART INITIALIZATION - INPUT/OUTPUT SUPERVISOR                                                PAGE  112


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5611+*    DISABLE AND RETURN TO I/O FLIH IF NO CHAN NEEDS TO BE RESTARTED
003FD2 8000 0078      00078        5612+         SSM   IONPSW DISABLE AND TEST FOR EXIT   MP1A
003FD6 07FA                        5613+         BCR   15,WKREG1 RETURN TO I/O FLIH        19021

                                   5615+*    EXIT PROCEDURE FOR NON-INTERRUPT ENTRIES                     19021
003FD8                             5616+IECEXIT  DS    0H 19021
003FD8 9110 83D9      04921        5617+         TM    XCPBTE,XCPRMS TEST FOR RMS IN CTL       19021
003FDC 58F0 8230            04778  5618+         L     APBSRG,RMSEXAD ADDR OF IECRMS           BBBBBB
003FE0 471F 009A            0009A  5619+         BC    1,INTRMSEX-IECRMS(APBSRG) YES-GO TO RMS EXIT
003FE4 47F0 50FA            03644  5620+         BC    15,XCP021 GO TO SVC EXIT            19021
                                   5621+         TITLE 'COMMON CHANNEL SEARCH ROUTINE - INPUT/OUTPUT SUPERVISORX
       COMMON CHANNEL SEARCH ROUTINE - INPUT/OUTPUT SUPERVISOR                                                 PAGE  113


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5622+***********************************************************************
                                   5623+*                                                                     *
                                   5624+*                                                                     *
                                   5625+*                  COMMON CHANNEL SEARCH ROUTINE OF IOS               *
                                   5626+*                                                                     *
                                   5627+*    THE FOLLOWING CODE, IN COMBINATION WITH THE CHANNEL-DEPENDENT    *
                                   5628+*    CHANNEL SEARCH MODULES, CONSTITUTES THE CHANNEL SEARCH ROUTINE OF*
                                   5629+*    IOS. EACH CHANNEL SEARCH MODULE INITIALIZES LCHREG WITH THE      *
                                   5630+*    APPROPRIATE LOGICAL CHANNEL WORD ADDRESS, AND ROUTES CONTROL TO  *
                                   5631+*    VARIOUS ENTRY POINTS WITHIN THE COMMON ROUTINE, SO THAT THE      *
                                   5632+*    COMMON ROUTINE MAY DETERMINE THE STARTABILITY OF EACH REQUEST    *
                                   5633+*    ON THE QUEUE IN TURN.                                            *
                                   5634+*                                                                     *
                                   5635+*                                                                     *
                                   5636+***********************************************************************


                                   5638+*    THIS PORTION GETS CONTROL IF THE CHANNEL HAS SEEKABLE DEVICES.
003FE8 181D                        5639+INT036C  LR    TSTREG,LCHREG INITIALIZE PTR TO TOP
003FEA 4811 0000            00000  5640+INTCIC   LH    TSTREG,TSTLNK(TSTREG) GET NEXT RQE

                                   5642+*  RETURN FROM SEARCH CODE- ONLY FOR OVERLAP SEEKS
003FEE 1211                        5643+INT036   LTR   TSTREG,TSTREG IS THIS THE LAST RQE
003FF0 474E 0004            00004  5644+         BC    4,CHSNXT(LNKRG2) YES-SKIP TO NEXT LCH
003FF4 4871 0002            00002  5645+         LH    UCBREG,TSTUCB(TSTREG) ADDR. OF DEVICE
003FF8 91E6 7006      00006        5646+         TM    UCBFL1(UCBREG),UCBASK+UCBDTR+UCBBSY+UCBNRY+UCBPST A24150
003FFC 077E                        5647+         BCR   7,LNKRG2 NO-SKIP IT
003FFE 9120 7012      00012        5648+         TM    UCBTYP+2(UCBREG),DSKTYP DIRECT ACCESS TYPE
004002 078E                        5649+         BCR   8,LNKRG2 NO-SKIP THIS ONE
004004 9110 7011      00011        5650+         TM    UCBTYP+1(UCBREG),UCBRPS TEST FOR RPS              19025
004008 071E                        5651+         BCR   1,LNKRG2 YES, SKIP UNTIL DATA XFER 19025
00400A 47F0 5AF6            04040  5652+         BC    15,INT034B TO START UP DEVICE



                                   5654+*    THIS PORTION GETS CONTROL FOR ALL DATA TRANSFER OPERATIONS.  20201
00400E 181D                        5655+INT034C  LR    TSTREG,LCHREG INITIALIZE POINTER TO TOP
004010 4810 1000            00000  5656+INT034D  LH    TSTREG,TSTLNK(0,TSTREG) PICK NEXT IN QUEUE
004014 1211                        5657+INT034   LTR   TSTREG,TSTREG TEST FOR DUMMY RQE
004016 474E 0004            00004  5658+         BC    4,CHSNXT(LNKRG2) CONTINUE WITH NEXT DISK OR UNIT
                                   5659+*              THIS WAS A VALID QUEUED REQUEST

00401A 4871 0002            00002  5661+         LH    UCBREG,TSTUCB(TSTREG) SELECT
00401E 91E4 7006      00006        5662+INT034A  TM    UCBFL1(UCBREG),UCBDTR+UCBBSY+UCBNRY+UCBPST TPF1
                                   5663+*                                       TEST ALL NOT AVAILABLE FLAGS
004022 077E                        5664+         BCR   7,LNKRG2 BRANCH NOT AVAIL  TRY NEXT
004024 9120 7012      00012        5665+         TM    UCBTYP+2(UCBREG),DSKTYP DIRECT ACCESS
004028 4780 5AF6            04040  5666+         BC    8,INT034B NO, BRANCH AROUND         20201
00402C 9110 7011      00011        5667+         TM    UCBTYP+1(UCBREG),UCBRPS IS IT AN RPS DEVICE       20201
004030 4710 5AF6            04040  5668+         BC    1,INT034B YES, GO START IT          20201

                                   5670+*    SCREEN OUT A REQUEST FOR WHICH THE STAND-ALONE SEEK IS COMPLETE,
                                   5671+*    AND WHICH IS THEREFORE READY TO BEGIN THE DATA TRANSFER OPERATION.
004034 9102 7006      00006        5672+         TM    UCBFL1(UCBREG),UCBASK IS SEEK COMPLETE          20201
004038 078E                        5673+         BCR   8,LNKRG2 NO, GET NEXT REQUEST      20201
       COMMON CHANNEL SEARCH ROUTINE - INPUT/OUTPUT SUPERVISOR                                                 PAGE  114


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00403A 4910 7014            00014  5674+         CH    TSTREG,UCBLTS(0,UCBREG) YES, IS THIS THE SAME RQE 20201
00403E 077E                        5675+         BCR   7,LNKRG2 NO, GET NEXT REQUEST      20201
004040                             5676+INT034B  DS    0H 19021
004040 58A0 8228            04770  5677+         L     WKREG1,RMSFLAD ADDR OF RMS FLAG         BBBBBB
004044 9180 A000      00000        5678+         TM    0(WKREG1),RMSACTV TEST IF RMS REQUEST      BBBBBB
004048 58F0 822C            04774  5679+         L     APBSRG,RMSAD ADDR OF INTRMS           BBBBBB
00404C 071F                        5680+         BCR   1,APBSRG YES-GO TO CHECK RQE      BBBBBB
00404E                             5681+INTRMS1  DS    0H 19021
00404E 4010 83CC            04914  5682+         STH   TSTREG,LTSVALSV VALID RQE                A24739
004052 90DE 83C0            04908  5683+         STM   LCHREG,LNKRG2,BUSYSV SAVE REGS FOR POSS RETURNA24739
004056 9823 1004            00004  5684+         LM    IOBREG,DEBREG,TSTIOB-1(TSTREG) FOR RESTART         IMP3
00405A 5843 0018            00018  5685+         L     DCBREG,DEBDCB-1(DEBREG) SET UP REGISTERS         IMP3
00405E 41A0 5B4C            04096  5686+         LA    WKREG1,INT037 TBSE
004062 50A0 83B0            048F8  5687+         ST    WKREG1,LNKRG1S TBSE
004066 41E0 5188            036D2  5688+         LA    LNKRG2,XCP011 SET UP TO GO TO TEST CHAN  IMP4
00406A 9109 7006      00006        5689+         TM    UCBFL1(UCBREG),UCBCUB+UCBERR IS LAST RQE IMPORTANT  IMP4
00406E 4770 5B42            0408C  5690+         BC    7,INT034H YES - CHECK FURTHER
004072 9102 2000      00000        5691+INT034G  TM    IOBFL1(IOBREG),IOBURL IS IOB UNRELATED
004076 071E                        5692+         BCR   1,LNKRG2 YES, GO TO TEST CHAN OR XCP IMP3
004078 91C0 402C      0002C        5693+         TM    DCBFL(DCBREG),DCBPER PERM ERR IN PREVIOUS REQ    IMP3
00407C 078E                        5694+         BCR   8,LNKRG2 NO, TO TEST CHAN OR XCP     IMP3
00407E 4710 5B86            040D0  5695+         BC    1,INT038B YES, PURGE REQUEST         IMP3
                                   5696+* THIS DCB IS FLAGGED - ERP IN CONTROL - FIND IOB ERP IS PROCESSING
004082 9120 2000      00000        5697+         TM    IOBFL1(IOBREG),IOBERR IS ERP IN CONTROL           IMP3
004086 077E                        5698+         BCR   7,LNKRG2 YES, TRY TO START THIS REQ  IMP3
004088 47F0 829E            047E6  5699+         BC    15,SELBSYV TBSE

00408C 4910 7014            00014  5701+INT034H  CH    TSTREG,UCBLTS(0,UCBREG) WAS IT LAST REQUEST STARTED
004090 4770 5B54            0409E  5702+         BC    7,INT037+SELBSY NO - CONTINUE WITH RESTART
004094 07FE                        5703+         BCR   15,LNKRG2 YES - START IT UP

                                   5705+***********************************************************************
                                   5706+*                                                                     *
                                   5707+*                  SELECT ROUTINE RETURN VECTOR TABLE                 *
                                   5708+*                       FOR CHANNEL RESTART                           *
004096 47F0 5B76            040C0  5709+INT037   BC    15,INT035A ACCEPT VECTOR CONT. WITH SEARCH
00409A 47F0 5A22            03F6C  5710+         BC    15,INT027 TRY FROM THE TOP AGAIN     IMP5
00409E 47F0 5B7A            040C4  5711+         BC    15,INT035 BUSY VECTOR-GET NEXT RQE.
                                   5712+*****    BC    15,INT037B               CHANGE LCH VECTOR          IMP5
                                   5713+*                                                                     *
                                   5714+***********************************************************************
0040A2 9130 2010      00010        5715+INT037B  TM    IOBCC(IOBREG),IOBCC3 WAS REQ REJECTED DUE TO    P340
                                   5716+*                             CONTROL UNIT BUSY OR CC1,2, OR 3     P340
0040A6 4770 5B7A            040C4  5717+         BC    7,INT035 YES DO NOT SWITCH LCH WORD P340
0040AA 910F 700C      0000C        5718+         TM    UCBCHM(UCBREG),OF IS A PATH OFFLINE
0040AE 4750 5B7A            040C4  5719+         BC    4+1,INT035 YES, DON'T SWITCH LCH WORDS
0040B2 98DE 83C0            04908  5720+         LM    LCHREG,LNKRG2,BUSYSV RECOVER LAST LCH VECTOR  BBBBBB
0040B6 D701 83CC 83CC 04914 04914  5721+         XC    LTSVALSV(2),LTSVALSV NO VALID RQE             A24739
0040BC 47F0 E004            00004  5722+         BC    15,CHSNXT(0,LNKRG2) CONTINUE SEARCH WITH NEXT LCH


0040C0                             5725+INT035A  DS    0H SMF1
0040C0 5810 83BC            04904  5726+         L     TSTREG,BLNKPTR INIT RQE TO BACK LINK PTR   SMF1
0040C4 98DE 83C0            04908  5727+INT035   LM    LCHREG,LNKRG2,BUSYSV RE-INITIALIZE FOR CH. SEARCH
0040C8 D701 83CC 83CC 04914 04914  5728+         XC    LTSVALSV(2),LTSVALSV NO VALID RQE             A24739
       COMMON CHANNEL SEARCH ROUTINE - INPUT/OUTPUT SUPERVISOR                                                 PAGE  115


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0040CE 07FE                        5729+         BCR   15,LNKRG2 CONTINUE CHN SRCH        A24739


                                   5731+*   THE DCB FOR THIS REQUEST INDICATES A PERMANENT ERROR ON A      IMP4
                                   5732+*   PREVIOUS REQUEST.  THIS REQUEST MUST THEREFORE BE DEQUEUED     IMP4
                                   5733+*   AND THE ABNORMAL END APPENDAGE MUST BE ENTERED.                IMP4
0040D0                             5734+INT038B  DS    0H IMP4
0040D0 45E0 5626            03B70  5735+         BAL   LNKRG2,XCPPDQ GO DEQUEUE REQUEST      SA66299
0040D4 9248 2004      00004        5736+         MVI   IOBCOD(IOBREG),PRGCOD MARK IOB PURGED            IMP4
0040D8 4917 0014            00014  5737+         CH    TSTREG,UCBLTS(UCBREG) IS RQE ON UCB?          SA66299
0040DC 4780 5E82            043CC  5738+         BC    8,INT031 YES, CLEAR FLAGS, AB AP SA66299
0040E0 47F0 5E86            043D0  5739+         BC    15,INT031B TO ABNORM END APPENDAGE SA66299
       QUIESCE COMPLETE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                      PAGE  116


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5741+*                     QUIESCE COMPLETE SUBROUTINE


                                   5743+*   THIS ROUTINE POSTS THE PURGE ECB WHEN QUIESCE COMPLETE



0040E4 41E0 58DE            03E28  5745+PRGCOMA  LA    LNKRG2,INT026 RETURN ADDR IF BYPASS      TSOS
0040E8 D402 3015 3015 00015 00015  5746+PRGCOMB  NC    DEBEPG(3,DEBREG),DEBEPG(DEBREG) TEST FOR ADDR   20001
0040EE 078E                        5747+         BCR   8,LNKRG2 NO-RETURN                  TSOS
0040F0 58B3 0014            00014  5748+         L     WKREG2,DEBEPG-1(DEBREG) GET LIST ADDR FOR TSO PRG 20001
0040F4 9102 B000      00000        5749+         TM    ZERO(WKREG2),TWO PURGE BY TCB OR DEB      BBBBBB
0040F8 4780 5BDE            04128  5750+         BC    8,PRGCOMA1 BRANCH IF BY DEB           TSOS
0040FC 9108 B000      00000        5751+         TM    ZERO(WKREG2),LSTOPT TEST FOR LIST OPTION      20001
004100 4780 5BD6            04120  5752+         BC    8,PRGTCBCM NO, GO DO TCB ADDR COMP  M5401
004104 58AB 000C            0000C  5753+         L     WKREG1,QPLPTR(WKREG2) GET TCB LIST POINTER     M5401
004108 D502 A009 100D 00009 0000D  5754+PRGTCBLP CLC   TCBADR+1(3,WKREG1),TSTTCB+1(TSTREG) TCB ADDR COMP M5401
00410E 4780 5BDE            04128  5755+         BE    PRGCOMA1 YES, CONTINUE WITH COUNT M5401
004112 9180 A008      00008        5756+         TM    TCBADR(WKREG1),QPLFLST END OF TCB LIST          M5401
004116 071E                        5757+         BCR   1,LNKRG2 YES, RETURN              M5401
004118 41AA 0008            00008  5758+         LA    WKREG1,TCBADR(WKREG1) NO, GET NEXT TCB         M5401
00411C 47F0 5BBE            04108  5759+         BC    15,PRGTCBLP M5401
004120 D502 B009 100D 00009 0000D  5760+PRGTCBCM CLC   TCBADR+1(3,WKREG2),TSTTCB+1(TSTREG) TCB ADDR COMP M5401
004126 077E                        5761+         BCR   7,LNKRG2 NO - RETURN                TSOS
004128 4393 000D            0000D  5762+PRGCOMA1 IC    ICREG,DEBQUS(DEBREG) GET COUNT FROM DEB       BBBBBB
00412C 1299                        5763+         LTR   ICREG,ICREG TEST FOR ANY COUNT         TSOS
00412E 07CE                        5764+         BCR   12,LNKRG2 NO - RETURN                TSOS
004130 4690 5BF0            0413A  5765+         BCT   ICREG,PRGDEC1 DECREMENT DEB COUNT        TSOS
004134 D702 3015 3015 00015 00015  5766+         XC    DEBEPG(3,DEBREG),DEBEPG(DEBREG) CLR PARM. LIST ADDR TSOS
00413A 4293 000D            0000D  5767+PRGDEC1  STC   ICREG,DEBQUS(DEBREG) UPDATE DEB COUNT           TSOS
00413E 439B 0008            00008  5768+         IC    ICREG,QCNT(WKREG2) GET TOTAL CNT FROM LIST  BBBBBB
004142 1299                        5769+         LTR   ICREG,ICREG TEST FOR ANY COUNT      SA61289
004144 07CE                        5770+         BCR   12,LNKRG2 NO - RETURN             SA61289
004146 4690 5C1A            04164  5771+         BCT   ICREG,PRGDEC2 DECREMENT COUNT            ABCD
00414A 429B 0008            00008  5772+         STC   ICREG,QCNT(WKREG2) ZERO MAIN COUNTER         20001
00414E 58C0 B000            00000  5773+PRGPST1  L     WKREG3,ZERO(0,WKREG2) GET TCB ADDRESS            TSOS
004152 41B0 B004            00004  5774+         LA    WKREG2,FOUR(0,WKREG2) GET ECB ADDRESS          BBBBBB
004156 41A0 007F            0007F  5775+         LA    WKREG1,NORMC GET NORMAL COMP CODE     BBBBBB
00415A 89A0 0018            00018  5776+         SLL   WKREG1,24 SHIFT CODE                 TSOS
00415E 58F0 81AC            046F4  5777+         L     APBSRG,POSTADR GET ADDR. TO POST          TSOS
004162 07FF                        5778+         BCR   15,APBSRG GO TO POST                 TSOS


004164 4290 B008            00008  5780+PRGDEC2  STC   ICREG,QCNT(0,WKREG2) STORE UPDATED COUNT        ABCD
004168 07FE                        5781+         BCR   15,LNKRG2 RETURN

                                   5783+         TITLE 'TASK SWITCH ON LAST RQE RETURN - INPUT/OUTPUT SUPERVISOX
       TASK SWITCH ON LAST RQE RETURN - INPUT/OUTPUT SUPERVISOR                                                PAGE  117


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5784+*         THIS ROUTINE IS ENTERED ONLY IF THE LAST RQE WAS USED AND
                                   5785+*         A EXCP ISSUED CAUSING IOS TO SET THE NON DISPATCHABILITY BIT
                                   5786+*         IN THE TCB OF THE ISSUING  TASK.
                                   5787+*                   1. RESET ALL RQE NON DISP. BITS IN TCBS ON RDY Q
                                   5788+*                   2. INDICATE TASK SWITCH TO IEAHEAD
                                   5789+*                   3. RESET THE NO-OP BRANCH SWITCH FOR LAST RQE
00416A 9200 58DB      03E25        5790+INTVMSA  MVI   INT025B+1,ZERO RESET LAST RQE SWITCH    BBBBBB
00416E 58A0 81F0            04738  5791+         L     WKREG1,AIEAHEAD GET ADDRESS OF HEAD TCB
004172 58B0 81F4            0473C  5792+INTSDISP L     WKREG2,AIEADS02 GET ADD. OF TASK SW.
004176 94DF A020      00020        5793+         NI    TCBFLGS(WKREG1),FF-TCBRQENA RESET NON-DISP. BIT   BBBBBB
00417A 05EB                        5794+         BALR  LNKRG2,WKREG2 INVOKE TASK SWITCH
                                   5795+***  RETURN FROM TASK SWITCH ROUTINE
00417C 58A0 A074            00074  5796+         L     WKREG1,TCBTCB(0,WKREG1) GET NEXT TCB ON READY Q
004180 12AA                        5797+         LTR   WKREG1,WKREG1 ARE WE FINISHED
004182 4770 5C28            04172  5798+         BC    7,INTSDISP NO, PROCESS NEXT
004186 47F0 58DE            03E28  5799+         BC    15,INT026 YES, RETURN TO MAINLINE
                                   5800+         TITLE 'ATTENTION INTERFACE AND TRAP CODE - INPUT/OUTPUT SUPERVX
       ATTENTION INTERFACE AND TRAP CODE - INPUT/OUTPUT SUPERVISOR                                             PAGE  118


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5801+*        IOS INTERRUPT SUPERVISOR ATTENTION ROUTINE INTERFACE


                                   5803+*      FUNCTION:    TO LINK TO ATTENTION ROUTINE
                                   5804+*         ENTRY:    MAIN LINE OF EXCP AND MAIN LINE OF IOS INTERRUPT
                                   5805+*                   SUPERVISOR
                                   5806+*          EXIT:    ATTENTION ROUTINE



                                   5808+**************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP
00418A 9504 7011      00011        5809+INTATT   CLI   UCBTYP+1(UCBREG),X'04' IS THIS CTC INTERRUPT    **ASP
00418E 4780 8664            04BAC  5810+         BE    CTCINTH -           YES BRANCH                  **ASP
004192 910C 0044      00044        5811+INTATT1  TM    CSWLOC+4,CSWCHE+CSWDVE -                        **ASP
004196 4790 59B2            03EFC  5812+         BC    8+1,INT011B LET ONLY D.E.'S THROUGH     IMP2
00419A 4397 000B            0000B  5813+INTATT2  IC    ICREG,UCBATI(UCBREG) GET INCREMENT TO ATN RTN    IMP2
00419E 58F9 8258            047A0  5814+         L     APBSRG,ATNTAB(ICREG) GET ADDRESS OF ATN RTN
0041A2 58A0 8224            0476C  5815+         L     WKREG1,XITFTR SET EXIT EFFECTOR ADDR. FOR RTN
0041A6 95FF 825C      047A4        5816+         CLI   ATNTAB+4,X'FF' -    IS THIS A LASP SYSTEM          **ASP
0041AA 4770 5C6A            041B4  5817+         BNE   NOTLASP -           NO, DO NOT ATTEMPT POSTING ASP **ASP
0041AE 189F                        5818+         LR    ICREG,APBSRG -      YES, SAVE ATTN RTN EP ADDRESS  **ASP
0041B0 58F0 825C            047A4  5819+         L     APBSRG,ATNTAB+4 -   POINT TO CONTRAP ENTRY POINT   **ASP
0041B4                             5820+NOTLASP  EQU   * -                                                **ASP
0041B4 05EF                        5821+         BALR  LNKRG2,APBSRG BRANCH TO ATTENTION ROUTINE
0041B6 942F 7006      00006        5822+INTATT3  NI    UCBFL1(UCBREG),FF-UCBNRY-UCBITF-UCBBSY US05348
0041BA 1B99                        5823+         SR    ICREG,ICREG -       CLEAR ICREG                    **ASP
0041BC 4817 0014            00014  5824+         LH    TSTREG,UCBLTS(UCBREG) GET RQE ADDRESS AGAIN-USED IN
                                   5825+*                                       ATTENTINON ROUTINE
0041C0 912F 7006      00006        5826+         TM    UCBFL1(UCBREG),UCBPST+UCBDTR+UCBASK+UCBERR+UCBCUB US5348
0041C4 4770 59BA            03F04  5827+         BC    7,INT013 YES- RETURN TO MAIN LINE    TPF1
0041C8 9200 7014      00014        5828+         MVI   UCBLTS(UCBREG),ZERO INDICATE DVE TO ERR RTN  BBBBBB
0041CC 47F0 59BA            03F04  5829+         BC    15,INT013 BACK TO MAIN LINE FLOW



                                   5831+*    DUMMY APPENDAGE FOR USERS WHO DO NOT REQUIRE APPENDAGES.      DAVV

0041D0 07FE                        5833+SYSRTN   BCR   15,LNKRG2 RETURN ON REGISTER 14      DAVV



                                   5835+*    ATTENTION ROUTINE FOR DEVICES WHICH DO NOT REQUIRE ATTENTION  DAVV
                                   5836+*    ROUTINES.  THIS ROUTINE INITIATES THE SCHEDULING OF THE XSNT  DAVV
                                   5837+*    VOLUME VERIFICATION ROUTINE FOR 2311 AND 2314 UNSOLICITED     DAVV
                                   5838+*    DEVICE END INTERRUPTS.                                        DAVV

0041D2 9120 7012      00012        5840+INTATN   TM    UCBTYP+2(UCBREG),DSKTYP TEST FOR DIRECT ACCESS     DAVV
0041D6 078E                        5841+         BCR   8,LNKRG2 NO, RETURN                 DAVV
0041D8 9487 702C      0002C        5842+         NI    UCBFL4(UCBREG),FF-UCBDAVV ZERO DAVV FLAGS        SA57136
0041DC 9102 7003      00003        5843+         TM    SRTESTAT(UCBREG),SYSCON SYSRES DEVICE              DAVV
0041E0 071E                        5844+         BCR   1,LNKRG2 YES, RETURN                DAVV
0041E2 9102 7013      00013        5845+         TM    UCBTYP+3(UCBREG),DRUM TEST FOR DRUM            A30638
0041E6 071E                        5846+         BCR   1,LNKRG2 YES, RETURN              A30638
0041E8 9500 701C      0001C        5847+         CLI   UCBVOL1(UCBREG),ZERO TEST IF VOL SER IN UCB   BBBBBB
0041EC 078E                        5848+         BCR   8,LNKRG2 NO, RETURN                 DAVV
       ATTENTION INTERFACE AND TRAP CODE - INPUT/OUTPUT SUPERVISOR                                             PAGE  119


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0041EE 9640 702C      0002C        5849+INTATN2  OI    UCBFL4(UCBREG),UCBVVR SET DAVV RTN TO GET CTL  BBBBBB
0041F2 9200 702A      0002A        5850+         MVI   UCBRQESV(UCBREG),ZERO INIT FIELD FOR DAVV RTN    DAVV
0041F6 07FE                        5851+         BCR   15,LNKRG2 RETURN                     DAVV
       ATTENTION INTERFACE AND TRAP CODE - INPUT/OUTPUT SUPERVISOR                                             PAGE  120


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5853+*              UNIT RECORD TRAP CODE MODULE


0041F8                             5855+INTURT   DS    0C
0041F8 9180 7006      00006        5856+         TM    UCBFL1(UCBREG),UCBBSY RESTART POSSIBLE         BBBBBB
0041FC 078E                        5857+         BCR   8,LNKRG2 YES-CONTINUE
                                   5858+* SELECTOR SUB CHANNELS HAVE 0C0 ADDRESSES- MULTIPLEXOR SHARED SUBCH.
                                   5859+*  HAVE 080 ADDRESSES. THE NEXT CODE TRIES TO CIRCUMVENT CH. RESTART
                                   5860+*   ON DEVICES WHICH ARE CONNECTED TO THE MULTIPLEXOR AND PRESENTS
                                   5861+*   CHE/DVE SEPERATELY.
0041FE 18A6                        5862+         LR    WKREG1,UAREG GET DEVICE ADDR          A47317
004200 88A0 0008            00008  5863+         SRL   WKREG1,8 SEPARATE OFF CHAN ADDR   A47317
004204 89A0 0002            00002  5864+         SLL   WKREG1,2 MULTIPLY CHAN BY 4       A47317
004208 41AA 8880            04DC8  5865+         LA    WKREG1,IECCST(WKREG1) GET CHAN TBL ENTRY       A47317
00420C 9103 A003      00003        5866+         TM    LCTFLS(WKREG1),LCTSLBX TEST FOR SEL OR BLK MPX  A47317
004210 071E                        5867+         BCR   1,LNKRG2 YES, GO RESTART CHANNEL  A47317
004212 9580 7005      00005        5868+         CLI   UCBUA(UCBREG),SHRDMPX TEST FOR SHARED          A47317
004216 07AE                        5869+         BCR   8+2,LNKRG2 YES, GO RESTART CHANNEL SA73324

                                   5871+*   BECAUSE OF CASCADING INTERRUPTS FROM THE MULTIPLEXOR CHANNEL AT
                                   5872+*   INT027, DO NOT CIRCUMVENT CHANNEL RESTART IF IMMEDIATE
                                   5873+*   OPERATION WAS PERFORMED AND TRAP CODE ENTERED AFTER SIO.

004218 9130 2010      00010        5875+         TM    IOBCC(IOBREG),IOBCC3 ENTERED FRM IMMEDIATE OPERATION0588
00421C 077E                        5876+         BCR   7,LNKRG2 YES-TRY TO RESTART CHANNEL 0588
00421E 41A0 5CDE            04228  5877+         LA    WKREG1,INT033D TBSE
004222 50A0 83B0            048F8  5878+         ST    WKREG1,LNKRG1S TBSE
004226 07FE                        5879+         BCR   15,LNKRG2 TBSE

004228 47F0 5A08            03F52  5881+INT033D  BC    15,INT033 TO EXIT


                                   5883+*              TAPE TRAPCODE MODULE

00422C                             5885+INTASP   DS    0C ENTRY POINT FOR 3420      21048
                                   5886+***********************************************************************
                                   5887+*
                                   5888+*         STATISTICS UPDATE ROUTINE                               21048
                                   5889+*
                                   5890+*         USED FOR BOTH VES AND 3420                              21048
                                   5891+*
00422C 9120 2000      00000        5892+         TM    IOBFL1(IOBREG),IOBERR IS ERR RTN IN CONTROL      21048
004230 4710 5CFA            04244  5893+         BC    1,COMCOD YES-DO NOT UPDATE CTR      21048
004234 58A0 7030            00030  5894+         L     WKREG1,UCBROR(0,UCBREG) GET POINTER TO WRK AREA   21048
004238 48B0 A00E            0000E  5895+         LH    WKREG2,SIOCNT(0,WKREG1) GET SIO COUNT             21048
00423C 41B0 B001            00001  5896+         LA    WKREG2,ONE(0,WKREG2) UPDATE COUNTER            21048
004240 40B0 A00E            0000E  5897+         STH   WKREG2,SIOCNT(0,WKREG1) STORE COUNT              21048
                                   5898+***********************************************************************
004244                             5899+INTTAT   DS    0C INTRY POINT FOR 2400 W/O VES       21048
004244 58A0 400C            0000C  5900+COMCOD   L     WKREG1,DCBBLK(0,DCBREG) GET BLOCK COUNT           21048
004248 4AA2 001C            0001C  5901+         AH    WKREG1,IOBBCI(IOBREG) INC BLOCK COUNT          21048
00424C 50A4 000C            0000C  5902+         ST    WKREG1,DCBBLK(DCBREG) STORE UPDATED BLOCK COUNT21048
004250 07FE                        5903+         BCR   15,LNKRG2 21048
       ATTENTION INTERFACE AND TRAP CODE - INPUT/OUTPUT SUPERVISOR                                             PAGE  121


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5905+*              DISK TRAPCODE MODULE

004252 9106 7006      00006        5907+INTDAT   TM    UCBFL1(UCBREG),UCBASK+UCBDTR SEEK END
004256 079E                        5908+         BCR   8+1,LNKRG2 NO-EXIT
004258 94DF 7006      00006        5909+         NI    UCBFL1(UCBREG),FF-UCBPST RESET POST FLAG          BBBBBB
00425C 47F0 58DE            03E28  5910+         BC    15,INT026 TO RETURN FOR CH. S.            IMP1




                                   5913+*   THIS IS THE TELECOMMUNICATIONS TRAP MODULE

004260 07FE                        5915+XCPTPT   BCR   15,LNKRG2 TO APPENDAGE INSPECTION



                                   5917+*  GRAPHIC UNITS TRAP CODE

004262 9180 7006      00006        5919+INTDNP   TM    UCBFL1(UCBREG),UCBBSY UCBBSY DE/CE OR DE ALONE
004266 078E                        5920+         BCR   8,LNKRG2 YES SKIP
004268 9104 7001      00001        5921+         TM    UCBFL5(UCBREG),UCBNALOC DOES OLTEP OWN DEVICE
00426C 071E                        5922+         BCR   1,LNKRG2
00426E 9642 2001      00001        5923+         OI    IOBFL2(IOBREG),IOBSNB+IOBGRF SET CH. END ALONE
004272 47F0 58DE            03E28  5924+         BC    15,INT026 RETURN                          IMP2
       SENSE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                                 PAGE  122


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5926+***********************************************************************
                                   5927+*                                                                     *
                                   5928+*                                                                     *
                                   5929+*                           SENSE SUBROUTINE
                                   5930+*                                                                     *
                                   5931+*    FUNCTION  SELECT PROPER DEVICE-DEPENDENT SENSE ENTRY POINT,      *
                                   5932+*              USING THE DEVICE TABLE INDEX IN THE UCB, CONSTRUCT THE *
                                   5933+*              APPROPRIATE CCW'S FOR EXECUTING THE SENSE OPERATION,   *
                                   5934+*              ISSUE THE SIO COMMAND, AND HANDLE THE RESULTING        *
                                   5935+*              CONDITIONS.                                            *
                                   5936+*                                                                     *
                                   5937+*    ENTRY PT  INTSEN, FROM THE INTERRUPT HANDLER AFTER UNIT CHECK    *
                                   5938+*              OR CHANNEL ERRORS.                                     *
                                   5939+*                                                                     *
                                   5940+*    EXITS     TO ABNORMAL END APPENDAGE IF NORMAL REQUEST            *
                                   5941+*              TO INT026, IF DEVICE IS BUSY, TP, OR SHARED FILE       *
                                   5942+*              TO INTERR, IF ERP IS IN CONTROL                        *
                                   5943+*              TO CCH IF CHANNEL ERRORS                               *
                                   5944+*                                                                     *
                                   5945+*    OPERATION CONSTRUCT THE DEVICE-DEPENDENT CHANNEL PROGRAM AND GO  *
                                   5946+*              TO THE COMMON CODE TO ISSUE SIO, AND IF NOT TP OR      *
                                   5947+*              RHA/R0, TIO.  HANDLE THE RESULTS AS FOLLOWS-           *
                                   5948+*                                                                     *
                                   5949+*        CSW STORED - C.C.=1 - EXAMINE STATUS                         *
                                   5950+*           CHANNEL ERRORS - GO TO SERR04                             *
                                   5951+*           CHANNEL LOGOUT PENDING CONDITION - SET DELAYED SENSE BIT  *
                                   5952+*                                              IN UCB-INCREMENT COUNT *
                                   5953+*                                              AND EXIT VIA LNKRG1    *
                                   5954+*           UNIT CHECK - SET EQUIPMENT CHECK INDICATION IN FIRST      *
                                   5955+*                        TWO SENSE BYTES - X'10FE' - AND GO TO INTS09 *
                                   5956+*           ALL REMAINING STATUS - COPY FIRST TWO SENSE BYTES INTO    *
                                   5957+*           THE IOB, DEQUEUE THE RQE, AND ENTER THE ABNORMAL END      *
                                   5958+*           APPENDAGE. IF THE ERP IS IN CONTROL, HOWEVER, ENTER THE   *
                                   5959+*           ERP INTERFACE AT INTERR.                                  *
                                   5960+*                                                                     *
                                   5961+*           IF NO RQE WAS AVAILABLE, RETURN VIA LNKRG1                *
                                   5962+*                                                                     *
                                   5963+*        BUSY - C.C.=2                                                *
                                   5964+*              RE-ISSUE THE COMMAND                                   *
                                   5965+*                                                                     *
                                   5966+*        NON-OPERATIONAL - C.C.=3, OR C.C=0 AFTER TIO                 *
                                   5967+*              SET EQUIPMENT CHECK INDICATION, GO TO INTS09           *
                                   5968+*                                                                     *
                                   5969+*                                                                     *
                                   5970+***********************************************************************



004276 9180 7006      00006        5972+INTSEN   TM    UCBFL1(UCBREG),UCBBSY IS UCB BUSY               20201
00427A 4780 5D56            042A0  5973+         BC    8,INTSEN3A NO, CONTINUE WITH SENSE SA59828

                                   5975+*   SET FLAGS TO CAUSE RETURN TO SENSE ON DEVICE END              20201
00427E 9640 2001      00001        5976+         OI    IOBFL2(IOBREG),IOBSNB SET SENSE FLAG IN IOB     20201
004282 9640 7004      00004        5977+INTSEN2  OI    UCBCHA(UCBREG),UCBSMD SET RETURN TO SENSE FLAG    IMP5
004286 8860 0008            00008  5978+         SRL   UAREG,8 ISOLATE CHANNEL ADDRESS SA59828
       SENSE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                                 PAGE  123


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00428A 1A66                        5979+         AR    UAREG,UAREG DOUBLE CHANNEL ADDR     SA59828
00428C 4076 88C2            04E0A  5980+         STH   UCBREG,UCBSAVE(UAREG) SET UP FOR FAST LOOKUP  SA59828
004290 9120 7006      00006        5981+         TM    UCBFL1(UCBREG),UCBPST IS THERE AN RQE         US05348
004294 4710 58DE            03E28  5982+         BO    INT026 YES, EXIT, WAIT FOR INT US05348
004298 9680 7006      00006        5983+         OI    UCBFL1(UCBREG),UCBBSY IND INT EXPECTED        US05348
00429C 47F0 58DE            03E28  5984+         BC    15,INT026 EXIT, WAIT FOR INTERRUPTSA59828

0042A0                             5986+INTSEN3A DS    0H SA61121

                                   5988+*   INITIALIZE A COUNTER TO ALLOW THREE RETRIES OF THE SENSE    SA61121
                                   5989+*   OPERATION WHEN CHANNEL ERRORS OCCUR.                        SA61121
0042A0 4100 0003            00003  5990+         LA    REG0,3 INIT 3 INTO REG 0       SA61121
0042A4 9200 83D8      04920        5991+         MVI   SNSCNT,ZERO CLEAR RETRY COUNT       SA61121
0042A8 4397 0007            00007  5992+INTSEN3  IC    ICREG,UCBDTI(UCBREG) GET INDEX TO DEVICE TABLE 20201
0042AC 48E9 8836            04D7E  5993+         LH    LNKRG2,DEVTAB+DVTSEN(ICREG) GET PTR TO SENSE RTN   20201
0042B0 1AE5                        5994+         AR    LNKRG2,BASREG ADJUST ADDRESS            20201
0042B2 07FE                        5995+         BCR   15,LNKRG2 GO TO SENSE ROUTINE       20201



                                   5997+*   SENSE ENTRY FOR TELEPROCESSING DEVICES                        20201
0042B4 41C0 5D38            04282  5998+TPSEN    LA    LNKRG3,INTSEN2 SET RETURN ADDRESS A51138 20201
0042B8 47F0 5D88            042D2  5999+         BC    15,INTS00 JOIN COMMON CODE          20201



                                   6001+*    SENSE ENTRY FOR ALL NEW DEVICES                              20201
0042BC D200 831F 7018 04867 00018  6002+EXPSEN   MVC   SYSSENSE+7(1),UCBSNS+2(UCBREG) INIT BYTE COUNT     20201
0042C2 58B7 0018            00018  6003+         L     WKREG2,UCBSNS+2(UCBREG) GET POINTER TO SENSE AREA 20201
0042C6 41C0 5DFA            04344  6004+         LA    LNKRG3,INTS05A SETUP RETURN REG         A51138
0042CA 47F0 5DBC            04306  6005+         BC    15,INTS01 GO TO COMMON SENSE SUBROU 20201



                                   6007+*   ENTRY FOR MOST OTHER DEVICES, AND COMMON CODE                 20201
0042CE                             6008+NORMSEN  DS    0H COMMON CODE               20201
0042CE 41C0 5DFA            04344  6009+         LA    LNKRG3,INTS05A SETUP RETURN REG         A51138
0042D2 41B7 0016            00016  6010+INTS00   LA    WKREG2,UCBSNS(UCBREG) PT AT UCB SENSE AREA      20201
0042D6 9206 831F      04867        6011+         MVI   SYSSENSE+7,X'06' SET BYTE COUNT IN CCW     20201
0042DA 91A0 7012      00012        6012+         TM    UCBTYP+2(UCBREG),DSKTYP+TAPE TAPE OR DA DEVICE SA70856
0042DE 4750 5DBC            04306  6013+         BC    5,INTS01 YES, COUNT OK           SA70856
0042E2 9110 7012      00012        6014+         TM    UCBTYP+2(UCBREG),GRTYPE GRAPHICS               @SA76027
0042E6 4780 5DB8            04302  6015+         BZ    INTSUR NO, INIT 2 BYTE SNS    @SA76027
0042EA 9502 7013      00013        6016+         CLI   UCBTYP+3(UCBREG),X'02' 2250                   @SA76027
0042EE 4780 5DB0            042FA  6017+         BE    INTSGR YES, INIT 4 BYTE SNS   @SA76027
0042F2 9503 7013      00013        6018+         CLI   UCBTYP+3(UCBREG),X'03' 2260                   @SA76027
0042F6 4770 5DB8            04302  6019+         BNE   INTSUR NO, INIT 2 BYTE SNS    @SA76027
0042FA 9204 831F      04867        6020+INTSGR   MVI   SYSSENSE+7,X'04' SET BYTE COUNT IN CCW   SA70856
0042FE 47F0 5DBC            04306  6021+         B     INTS01 CONTINUE                SA70856
004302 9202 831F      04867        6022+INTSUR   MVI   SYSSENSE+7,X'02' SET BYTE COUNT IN CCW   SA70856
004306 41A0 8318            04860  6023+INTS01   LA    WKREG1,SYSSENSE FORM COMD ADDR FOR SIO    20201
00430A 50BA 0000            00000  6024+INTS02   ST    WKREG2,0(WKREG1) SET SENSE DATA ADDR IN CCW20201
00430E 9204 A000      00000        6025+         MVI   0(WKREG1),SENSOP RESTORE CCW OP CODE       20201
004312 9200 B001      00001        6026+INTS03   MVI   1(WKREG2),ZERO CLEAR SECOND SENSE BYTE   20201
004316                             6027+INTS03P  DS    0H
       SENSE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                                 PAGE  124


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004316 50A0 0048            00048  6028+         ST    WKREG1,CAWLOC STORE AND ZERO PROTECTION KEY   20201
00431A 9208 81FC      04744        6029+         MVI   CATAPP,CATSNS .          SET CCH CODE FOR SIO SENSE  CCH
00431E 41E0 5DE8            04332  6030+         LA    LNKRG2,INTS04 SET RETURN REGISTER     SA68848
004322 58A0 8374            048BC  6031+         L     WKREG1,LPCNT GET CHAN BUSY LIMIT     SA68848
004326 18DA                        6032+         LR    LCHREG,WKREG1 GET DEV/CU BUSY LIMIT
004328 91A0 7012      00012        6033+         TM    UCBTYP+2(UCBREG),DSKTYP+TAPE TAPE OR DA DEVICE
00432C 075E                        6034+         BCR   5,LNKRG2 YES, LEAVE HIGH LIMIT
00432E 88D0 0006            00006  6035+         SRL   LCHREG,6 LOWER LIMIT
004332                             6036+INTS04   DS    0H 20201
004332 9C00 6000      00000        6037+         SIO   0(UAREG) START SENSE OPERATION      TEST
004336 4740 5E34            0437E  6038+         BC    4,INTS07C CSW STORED-GO INSPECT   SA57297
00433A 4720 5EE2            0442C  6039+         BC    2,INTS20 DECREMENT LOOP COUNT    SA68848
00433E 4710 5E8E            043D8  6040+         BC    1,INTS10 EQP. MALFUNCTION          20201
004342 07FC                        6041+         BCR   15,LNKRG3 RETURN OR CONTINUE       A51138

004344 41E0 5E12            0435C  6043+INTS05A  LA    LNKRG2,INTS05 SET RETURN REGISTER     SA57297
004348 920C 81FC      04744        6044+         MVI   CATAPP,CATTIOSN .        SET CCH CODE FOR TIO SENSE  CCH
00434C 58A0 8374            048BC  6045+         L     WKREG1,LPCNT GET CHAN BUSY LIMIT     SA68848
004350 18DA                        6046+         LR    LCHREG,WKREG1 GET DEV/CU BUSY LIMIT
004352 91A0 7012      00012        6047+         TM    UCBTYP+2(UCBREG),DSKTYP+TAPE TAPE OR DA DEVICE
004356 075E                        6048+         BCR   5,LNKRG2 YES, LEAVE HIGH LIMIT
004358 88D0 0006            00006  6049+         SRL   LCHREG,6 LOWER LIMIT
00435C                             6050+INTS05   DS    0H 20201
00435C 9D00 6000      00000        6051+         TIO   0(UAREG) TEST
004360 4720 5EE2            0442C  6052+         BC    2,INTS20 DECREMENT LOOP COUNT
004364 4790 5E8E            043D8  6053+         BC    8+1,INTS10 EQP. MALFUNCTION          20201
004368 47F0 5E34            0437E  6054+         BC    15,INTS07C GO CHECK STATUS         SA57297

00436C 41E0 5D5E            042A8  6056+INTS07   LA    LNKRG2,INTSEN3 SET RETURN REGISTER     SA61121
004370 9200 83D8      04920        6057+         MVI   SNSCNT,ZERO CLEAR RETRY COUNT       SA61121
004374 58A0 8374            048BC  6058+         L     WKREG1,LPCNT GET CHAN BUSY LIMIT     US05348
004378 18DA                        6059+         LR    LCHREG,WKREG1 GET DEV/CU BUSY LIMIT   US05348
00437A 4100 0003            00003  6060+         LA    REG0,3 INIT 3 INTO REG 0       SA57297

                                   6062+*    TEST CSW STATUS AND GO TO CCH IF CHANNEL OR INTERFACE CNTRL CHECK.
00437E                             6063+INTS07C  DS    0H .                                             SA57297
00437E 9104 0040      00040        6064+         TM    CSWLOC,CSWCLP CHANNEL LOGOUT PENDING    21111
004382 4770 5EEC            04436  6065+         BC    7,INTSLOG YES-GO HANDLE LOGOUT PEND 21111
004386 910E 0045      00045        6066+         TM    CSWLOC+5,CSWCTK+CSWICK+CATCCH . CAT. ERRORS        20201
00438A 58F0 81EC            04734  6067+         L     APBSRG,IECPL2 GET TEMP BASE REG      @SA77644
00438E 477F 0238            00238  6068+         BC    7,SERR04-IECCPL02(APBSRG) GO TO CCH             @SA77644
004392 9109 0045      00045        6069+         TM    CSWLOC+5,CSWCDK+CSWCCK CHAN DATA & CHAN CHG CHK  19062
004396 4770 5D5E            042A8  6070+         BC    7,INTSEN3 YES, RE-TRY SENSE       SA61121
00439A 9102 0044      00044        6071+         TM    CSWLOC+4,CSWUCK UNIT CHECK ON SENSE      A53284
00439E 4710 5E8E            043D8  6072+         BC    1,INTS10 YES, SET UP SENSE ERROR  A53284
0043A2 9110 0044      00044        6073+INTS08   TM    CSWLOC+4,CSWBSY BUSY STATUS              A53284
0043A6 4710 5ECC            04416  6074+         BC    1,INTS15 YES, RETRY THE SIO/TIO  SA57297
0043AA 947F 7001      00001        6075+         NI    UCBFL5(UCBREG),FF-UCBUEX CLEAR UNIT EXEC STATUS   S22024
0043AE 9101 0044      00044        6076+         TM    CSWLOC+4,CSWUEX TEST FOR UNIT EXCEPTION  S22024
0043B2 4780 5E70            043BA  6077+         BC    8,INTS09 NO, DO NOT SET UEX FLAG  S22024
0043B6 9680 7001      00001        6078+         OI    UCBFL5(UCBREG),UCBUEX INDICATE UEX ON SENSE    S22024
0043BA 9120 7006      00006        6079+INTS09   TM    UCBFL1(UCBREG),UCBPST DE WITHOUT CE             20201
0043BE 4780 8290            047D8  6080+         BC    8,SELECTV TBSE
0043C2 D201 2002 B000 00002 00000  6081+INTS02H  MVC   IOBSNS(2,IOBREG),ZERO(WKREG2) SAVE SENSE DATA      20201
       SENSE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                                 PAGE  125


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6083+*  ON UNIT CHECK ON DE FROM A STANDALONE SEEK THE RQE MUST BE DEQ.
                                   6084+*   BEFORE IT IS SENT TO THE ERP.
0043C8 45E0 5626            03B70  6085+INTS02G  BAL   LNKRG2,XCPPDQ GO DEQUEUE REQUEST          IMP3
0043CC 9480 7006      00006        6086+INT031   NI    UCBFL1(UCBREG),UCBBSY RESET ALL FLAGS BUT BUSY  20201
0043D0 41F0 0010            00010  6087+INT031B  LA    APBSRG,APGABE ABNORMAL END APD. INCR.   20201
0043D4 47F0 587E            03DC8  6088+         BC    15,INT019 GO TO APPENDAGE INTERFACE 20201



                                   6090+*    RETRY FAILING SENSE TEN TIMES                               A53284
0043D8 4390 83D8            04920  6091+INTS10   IC    ICREG,SNSCNT LOAD UC COUNTER          A53284
0043DC 4199 0001            00001  6092+         LA    ICREG,1(ICREG) INCREMENT COUNT          A53284
0043E0 4290 83D8            04920  6093+         STC   ICREG,SNSCNT STORE UC COUNTER         A53284
0043E4 950A 83D8      04920        6094+         CLI   SNSCNT,TEN TEST FOR TEN RETRIES     A53284
0043E8 47D0 5D5E            042A8  6095+         BC    13,INTSEN3 NO, GO TRY AGAIN        SA61121
                                   6096+*    ON EQUIPMENT CHECK, SET FIRST TWO SENSE BYTES TO X'10FE'    A53284
0043EC 9210 B000      00000        6097+INTS10A  MVI   ZERO(WKREG2),X'10' YES-SET EQUIPMENT CHECK  A53284
0043F0 92FE B001      00001        6098+         MVI   1(WKREG2),X'FE' SET IND IN SECOND BYTE   A53284
0043F4 1211                        6099+INTS10B  LTR   TSTREG,TSTREG DO WE HAVE AN RQE        A53284
0043F6 4780 8290            047D8  6100+         BC    8,SELECTV TBSE
0043FA 4910 83CC            04914  6101+         CH    TSTREG,LTSVALSV IS THE RQE VALID         A53284
0043FE 4770 8290            047D8  6102+         BC    7,SELECTV TBSE
004402 4017 0014            00014  6103+         STH   TSTREG,UCBLTS(UCBREG) RESTORE RQE ADDRESS     SA60254
004406 92FE 81B4      046FC        6104+         MVI   CHMSK,RSTMSK RESTART ALL CHANNELS    SA60254
00440A 41A0 5A22            03F6C  6105+         LA    WKREG1,INT027 TBSE
00440E 50A0 83B0            048F8  6106+         ST    WKREG1,LNKRG1S TBSE
004412 47F0 5E70            043BA  6107+         BC    15,INTS09 GO POST REQUEST IN ERR  SA71481

                                   6109+*    THE FOLLOWING ROUTINE IS AN ATTEMPT TO KEEP THE SYSTEM
                                   6110+*    UP IF A DEVICE RESPONDS WITH UNIT CHECK AND THEN DEVICE
                                   6111+*    OR CONTROL UNIT BUSY WHEN PERFORMING A SENSE OPERATION.
                                   6112+*    THE SENSE WILL BE DUMMIED AS '10FC' (SIMILAR TO '10FE'
                                   6113+*    WHEN A UNIT CHECK IS RECEIVED PERFORMING A SENSE
                                   6114+*    OPERATION.)

004416 06DE                        6116+INTS15   BCTR  LCHREG,LNKRG2 RE-SIO/TIO TIL CNT LIMIT
004418 91A0 7012      00012        6117+         TM    UCBTYP+2(UCBREG),DSKTYP+TAPE TAPE OR DA
00441C 4740 5EEC            04436  6118+         BC    4,INTSLOG AVOID CONTINGENT CONNEC
004420 9210 B000      00000        6119+         MVI   ZERO(WKREG2),X'10' DEV HUNG IN BUSY LOOP
004424 92FC B001      00001        6120+         MVI   1(WKREG2),X'FC' SET IND IN SENSE BYTES
004428 47F0 5EAA            043F4  6121+         BC    15,INTS10B HANDLE BSY LIKE UNIT CHK

                                   6123+*    THE FOLLOWING ROUTINE, UTILIZING THE LOGOUT PENDING ROUTINE,
                                   6124+*    LIMITS THE CHANNEL BUSY LOOP OF THE SENSE SUBROUTINE.  WHEN
                                   6125+*    THE LIMIT IS REACHED, THE CHANNEL LOGOUT PENDING ROUTINE IS
                                   6126+*    ENTERED.  THE CLP ROUTINE ALLOWS THE SYSTEM TO ENABLE, AFTER
                                   6127+*    WHICH THE SIO/TIO MAY BE RESUMED.  ALLOWING THE SYSTEM TO  SA68848
                                   6128+*    ENABLE MAY ALLOW THE SENSE OPERATION TO TERMINATE.         SA68848

00442C 06AE                        6130+INTS20   BCTR  WKREG1,LNKRG2 REISSUE SIO/TIO TIL CNT SA68848
00442E 950C 81FC      04744        6131+         CLI   CATAPP,CATTIOSN TIO IN PROC             SA71483
004432 4780 5D38            04282  6132+         BE    INTSEN2 YES, CLEAR STAT VIA INT SA71483
                                   6133+*        B     INTSLOG                  ENABLE CPU BEFORE CONT  SA68848
       SENSE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                                 PAGE  126


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6135+*   ON CHANNEL LOGOUT PENDING CONDITION MARK UCB FOR DELAYED SENSE
                                   6136+*   INCREMENT DELAYED SENSE COUNT-IF EXCP ENTRANCE SET CHMSK TO FORCE
                                   6137+*   FRONT END ENTRANCE TO IOS TO GO TO CHANNEL RESTART WHERE IOS WILL
                                   6138+*   EVENTUALLY ENABLE ALLOWING CHANNEL TO LOGOUT.               SA62867
                                   6139+*   IF LOG PENDING STATUS WAS PRESENTED ON THE SIO FOR SENSE,   SA62867
                                   6140+*   SET BOTH DELAYED SENSE AND DELAYED HIO FLAGS TO INDICATE    SA62867
                                   6141+*   THE SENSE MAY BE RETRIED.                                   SA62867

004436                             6143+INTSLOG  DS    0H .                                               21111
004436 9660 7004      00004        6144+INTSLG1  OI    UCBCHA(UCBREG),UCBDSNS+UCBSMD WAIT FOR DELAY SENSE 21111
00443A 9508 81FC      04744        6145+         CLI   CATAPP,CATSNS .          WAS LOG PENDING ON SIO  SA62867
00443E 4770 5EFC            04446  6146+         BC    7,INTSLG3 .              NO, DON'T INDICATE SIO  SA62867
004442 9610 7004      00004        6147+         OI    UCBCHA(UCBREG),UCBDHIO . SIO MAY BE RETRIED      SA62867
004446 4390 8214            0475C  6148+INTSLG3  IC    ICREG,CLPCNT .           LOAD DELAY EVENT CNTR   SA62867
00444A 4199 0001            00001  6149+         LA    ICREG,ONE(ICREG) .       INCREMENT BY ONE          21111
00444E 4290 8214            0475C  6150+         STC   ICREG,CLPCNT .           STORE COUNTER             21111
004452 91A0 83D9      04921        6151+         TM    XCPBTE,XCPCNT+XCPERR .   EXCP ENTRANCE           SA62867
004456 4790 8290            047D8  6152+         BC    8+1,SELECTV TBSE
00445A 92FE 81B4      046FC        6153+         MVI   CHMSK,RSTMSK .           SET FOR DISABLE EXCP USER 21111
00445E 47F0 8290            047D8  6154+         BC    15,SELECTV TBSE







                                   6157+*   STATUS MODIFIER ENTRANCE                                      20201
004462 41B7 0016            00016  6158+INTSEN4  LA    WKREG2,UCBSNS(UCBREG) SETUP SENSE DATA PTR      20201
004466 9108 7001      00001        6159+         TM    UCBFL5(UCBREG),UCBEXTSN EXP SENSE DEVICE ?     @SA77172
00446A 4780 5F28            04472  6160+         BZ    INTSEN4B NO, USE NORMAL SENSE   @SA77172
00446E 58B7 0018            00018  6161+         L     WKREG2,UCBNBRSN(UCBREG) GET PTR TO EXT. SENSE  @SA77172
004472 9120 7004      00004        6162+INTSEN4B TM    UCBCHA(UCBREG),UCBDSNS . WAITING FOR DLY SENSE  @SA77172
004476 4710 5F3C            04486  6163+         BO    INTSEN6 .                YES SETUP FOR STATUS CHECK21111
00447A 94BF 7004      00004        6164+         NI    UCBCHA(UCBREG),FF-UCBSMD RESET PENDING SENSE     US05348
00447E 921C 81FC      04744        6165+         MVI   CATAPP,CATREC INDICATE SECOND ENTRY TO CCH IMP2
004482 47F0 5E22            0436C  6166+         BC    15,INTS07 GO INSPECT STATUS         20201


                                   6168+*   ROUTINE HANDLES INTERRUPTS THAT ARE REALLY ENDING STATUS OF   21111
                                   6169+*   SENSE OPERATIONS BUT CAME AS INTERRUPT DUE TO LOG PENDING COND21111
004486 949F 7004      00004        6170+INTSEN6  NI    UCBCHA(UCBREG),FF-UCBDSNS-UCBSMD PEND/DELAY SNS OFF21111
00448A 9110 7004      00004        6171+         TM    UCBCHA(UCBREG),UCBDHIO . WAS LOG PENDING ON SIO  SA62867
00448E 4780 5F50            0449A  6172+         BC    8,INTSENLT .             NO, GO HANDLE FOR TIO   SA62867
004492 94EF 7004      00004        6173+         NI    UCBCHA(UCBREG),FF-UCBDHIO .RESET SIO SWITCH      SA62867
004496 47F0 5D56            042A0  6174+         BC    15,INTSEN3A .            GO RETRY SENSE SIO      SA62867
00449A 41E0 5EA2            043EC  6175+INTSENLT LA    LNKRG2,INTS10A .         RETURN ADDR IF CHAN ERR SA62867
00449E 910E 0045      00045        6176+         TM    CSWLOC+5,CSWCTK+CSWICK+CATCCH .GONE TO CCH YET   SA62867
0044A2 4770 5F60            044AA  6177+         BC    7,INTSEN6B .             YES, DON'T RESET RETURN SA62867
0044A6 41E0 5E22            0436C  6178+INTSEN6A LA    LNKRG2,INTS07 .          SET NORMAL RETURN       SA62867
0044AA 41B7 0016            00016  6179+INTSEN6B LA    WKREG2,UCBSNS(UCBREG) .  NORMAL SENSE POINTER      M0192
0044AE 9108 7001      00001        6180+         TM    UCBFL5(UCBREG),UCBEXTSN .EXPANDED SENSE DEVICE     21111
0044B2 078E                        6181+         BCR   8,LNKRG2 .               INSPECT STATUS          SA62867
0044B4 58B7 0018            00018  6182+         L     WKREG2,UCBNBRSN(UCBREG) .GET PTR TO EXPAND SENSE   21111
0044B8 07FE                        6183+         BCR   15,LNKRG2 .              INSPECT STATUS          SA62867
       SENSE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                                 PAGE  127


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6184+*        FOLLOWING CODE MODIFIED FOR ASP                           ASP
0044BA 4780 5F9C            044E6  6185+         BC    8,ASPINTER NO,BYPASS ASP CODE              ASP
0044BE 9140 7006      00006        6186+         TM    UCBFL1(UCBREG),UCBNRY IS DEVICE READY                ASP
0044C2 47E0 80C8            04610  6187+         BNO   INTER7C -           BRANCH IF YES                    ASP
0044C6 9188 7012      00012        6188+         TM    UCBTYP+2(UCBREG),X'88' IS DEVICE UR OR TAPE          ASP
0044CA 4780 80C8            04610  6189+         BZ    INTER7C -           BRANCH IF NOT                    ASP
0044CE 9101 402C      0002C        6190+         TM    44(DCBREG),X'01' -  ASP REQUESTED IO                 ASP
0044D2 47E0 80C8            04610  6191+         BNO   INTER7C -           BRANCH IF NOT                    ASP
0044D6 96C0 402C      0002C        6192+         OI    DCBFL(DCBREG),DCBPER SET PERM ERROR                  ASP
0044DA 41A0 5A22            03F6C  6193+         LA    WKREG1,INT027 TBSE
0044DE 50A0 83B0            048F8  6194+         ST    WKREG1,LNKRG1S TBSE
0044E2 47F0 5FC8            04512  6195+         B     INT057 -            TO ABN APG                       ASP
0044E6                             6196+ASPINTER DS    0H ASP
       ERROR INTERFACES - INPUT/OUTPUT SUPERVISOR                                                              PAGE  128


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6198+*        IOS INTERRUPT SUPERVISOR ERROR INTERFACE


                                   6200+*   FUNCTION   TO SCRUTINIZE ERRORS AND SCHEDULE PROPER               *
                                   6201+*              HANDLING ROUTINE                                       *
                                   6202+*   ENTRY      MAIN LINE OF IOS, 2311(DISK) RESIDENT ERROR ROUTINE    *
                                   6203+*   EXT REF    XTFKTR, ER2311                                         *
                                   6204+*   EXITS      IOS MAIN LINE, IOS EXCP, 2311 RESIDENT ERP             *
                                   6205+*
                                   6206+*   OPERATION       1. RETURN TO POST ROUTINE ON PERMANENT ERROR.
                                   6207+*                   2. CHECK IF IOS OR USER ERROR ROUTINES ARE USED
                                   6208+*                      (ALL OR SOME) - USER 'ALL' AND 'SOME', RETURN
                                   6209+*                      VIA EXIT EFFECTOR.
                                   6210+*                   3. CHECK MASK IF 'SOME' ERRORS CHECKED.
                                   6211+*                   4. ON 'ALL' ERRORS (IOS) - GO TO 2311 ERROR
                                   6212+*                      ROUTINE FOR DIRECT ACCESS - PASS RQE TO EXIT
                                   6213+*                      EFFECTOR FOR ALL OTHERS.
                                   6214+*                   5. IF 'NO' ERRORS CHECKED (IOS AND USER) - GO TO
                                   6215+*                      ABEOT IF PGM OR PROT CHECK.
                                   6216+*                   6. PURGE IF RELATED REQ HAS A PERMANENT ERROR.


0044E6 9120 2004      00004        6218+INTERR   TM    IOBCOD(IOBREG),NOTPMF PERMANENT ERROR
0044EA 4780 58BC            03E06  6219+         BC    8,INT024 YES - TO POST
0044EE 943F 402C      0002C        6220+INTERR3  NI    DCBFL(DCBREG),FF-DCBPER RESET ERROR FLAG         BBBBBB
0044F2                             6221+INT050   DS    0H DAVV
0044F2 9120 7012      00012        6222+         TM    UCBTYP+2(UCBREG),DSKTYP TEST FOR DIRECT ACCESS     DAVV
0044F6 4780 5FC0            0450A  6223+         BC    8,INT050A NO, SKIP                   DAVV
0044FA 9140 702C      0002C        6224+         TM    UCBFL4(UCBREG),UCBVVR TEST IF VOL VER RTN IN CTL DAVV
0044FE 4780 5FC0            0450A  6225+         BC    8,INT050A NO, SKIP                SA68176
004502 5910 8234            0477C  6226+         C     TSTREG,ADDRRQE IS THIS THE DDR RQE?    SA68176
004506 4770 8032            0457A  6227+         BC    7,INTERR4A NO, GO TO SCHEDULE RTN  SA68176
00450A 910C 402C      0002C        6228+INT050A  TM    DCBFL(DCBREG),DCBIEK TEST FOR IOS ERROR KEY     DAVV
00450E 4780 8064            045AC  6229+         BC    8,INT022 USE IOS ERPS FOR ERRORS  BBBBBB
004512 9120 2004      00004        6230+INT057   TM    IOBCOD(IOBREG),NOTPMF PERMANENT ERROR          BBBBBB
004516 4780 5FE0            0452A  6231+         BC    8,INT058 YES - BRANCH
00451A 957E 2004      00004        6232+         CLI   IOBCOD(IOBREG),IOBINT INTERCEPTED IOB
00451E 9244 2004      00004        6233+         MVI   IOBCOD(IOBREG),INTCOD PUT IN INTERCEPT CODE
004522 4780 5FE0            0452A  6234+         BC    8,INT058 YES, LEAVE INTERCEPT CODE
004526 9241 2004      00004        6235+         MVI   IOBCOD(IOBREG),PERMER SET PERM ERROR CODE         IMP2
00452A 9102 2000      00000        6236+INT058   TM    IOBFL1(IOBREG),IOBURL IS THE REQUEST UNRELATED
00452E 4710 5E86            043D0  6237+         BC    1,INT031B YES, GO TO ABN APN       BBBBBB
004532 91C0 402C      0002C        6238+         TM    DCBFL(DCBREG),DCBPER PERM ERR SET BY PREV REQ    TPF1
004536 4710 5E86            043D0  6239+         BC    1,INT031B YES, GO TO ABN APN       BBBBBB
00453A 943F 402C      0002C        6240+         NI    DCBFL(DCBREG),FF-DCBPER RESET ERROR FLAG         BBBBBB
00453E 9640 402C      0002C        6241+INTERR4D OI    DCBFL(DCBREG),DCBEX SET DCB EXCEPTION FLAG   BBBBBB

                                   6243+*   FORCE EXIT EFFECTOR TO USE UCB ID BYTE TO SCHEDULE IGE0025E.   IMP3

004542 18A7                        6245+INTERR4  LR    WKREG1,UCBREG GET UCB ADDRESS            DAVV
004544 4BA0 83D2            0491A  6246+         SH    WKREG1,SIX POINT TO UCB ID BYTE        IMP3
004548 40A0 1002            00002  6247+         STH   WKREG1,TSTUCB(0,TSTREG) IN THE RQE             IMP3
                                   6248+*  HANG RQE ON ERROR LCH. FOR TRANSIENT ERP AND WTO FUNCTION
00454C                             6249+INT059   DS    0H 19021
00454C 58A0 8228            04770  6250+         L     WKREG1,RMSFLAD ADDR OF RMS FLAG         BBBBBB
       ERROR INTERFACES - INPUT/OUTPUT SUPERVISOR                                                              PAGE  129


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004550 491A 0002            00002  6251+         CH    TSTREG,TWO(WKREG1) TEST IF RMS ERROR        BBBBBB
004554 4780 5FC8            04512  6252+         BC    8,INT057 YES, GO TO SET PERM ERR   19021
004558 58A0 8224            0476C  6253+         L     WKREG1,XITFTR EXIT EFFECTOR EXTERN      19021
00455C 9601 1003      00003        6254+         OI    TSTUCB+1(TSTREG),ONE INDICATE SIRB REQUEST    BBBBBB
004560 5910 8234            0477C  6255+         C     TSTREG,ADDRRQE IS THIS THE DDR RQE     SA58100
004564 4770 8028            04570  6256+         BC    7,INT059T NO, DONT SET UCBERR     SA58100
004568 9601 7006      00006        6257+         OI    UCBFL1(UCBREG),UCBERR TIE UCB TO DDR RQE      SA58100
00456C 4017 0014            00014  6258+         STH   TSTREG,UCBLTS(UCBREG) TIE DDR RQE TO UCB      SA63107
004570 41E0 58DE            03E28  6259+INT059T  LA    LNKRG2,INT026 SET RETURN ADDR         SA58100
004574 07FA                        6260+         BCR   15,WKREG1 TO ENQ. ON ERROR LCH

                                   6262+*    DEFINITION OF EXIT EFFECTOR - IOS INTERFACE                 BBBBBB
                                   6263+*    INPUT     TSTREG,WKREG1(BASE ADDR),LNKRG2(RET-INT026)       BBBBBB
                                   6264+*    REGS CHANGED  NONE                                          BBBBBB


004576 9200 702A      0002A        6267+INTERR4B MVI   UCBRQESV(UCBREG),ZERO RQE PURGED-RE-INIT FIELD   DAVV
00457A 45E0 5626            03B70  6268+INTERR4A BAL   LNKRG2,XCPPDQ GO TO DEQUEUE RQE          DAVV
00457E 4010 7014            00014  6269+         STH   TSTREG,UCBLTS(0,UCBREG) INIT UCBLTS FIELD          DAVV
004582 9601 7006      00006        6270+         OI    UCBFL1(UCBREG),UCBERR RESERVE UCB FOR THIS RQE   DAVV
004586 47F0 5FF8            04542  6271+         BC    15,INTERR4 GO TO SCHEDULE RTN         DAVV

00458A D201 200C 7014 0000C 00014  6273+INTERR5  MVC   IOBCSW+4(2,IOBREG),UCBLTS(UCBREG) COPY CSW STATUS   IMP5
004590 4017 0014            00014  6274+         STH   TSTREG,UCBLTS(UCBREG) RESTORE RQE TO UCB         IMP5
004594 927E 2004      00004        6275+         MVI   IOBCOD(IOBREG),IOBINT SET INTERCEPT              IMP5
004598 41B7 0016            00016  6276+         LA    WKREG2,UCBSNS(UCBREG) INITIALIZE FOR SENSE MOVE 20201
00459C 9108 7001      00001        6277+         TM    UCBFL5(UCBREG),UCBEXTSN THIS UCB HAVE PTR TO SENSE20201
0045A0 4780 5E78            043C2  6278+         BC    8,INTS02H NO, GO SAVE SENSE INFO    20201
0045A4 58B7 0018            00018  6279+         L     WKREG2,UCBSNADR-1(UCBREG) GET PTR TO SENSE AREA    20201
0045A8 47F0 5E78            043C2  6280+         BC    15,INTS02H DEQUE RQST, SEND TO ERP    IMP5

                                   6282+*   SEND REQUEST TO IOS ERROR ROUTINE
0045AC 9102 2000      00000        6283+INT022   TM    IOBFL1(IOBREG),IOBURL IS REQUEST UNRELATED
0045B0 4710 8070            045B8  6284+         BC    1,INT055 YES- DO NOT SET FLAG
0045B4 9640 402C      0002C        6285+         OI    DCBFL(DCBREG),DCBEX SET ERR ROUT IN CONTROL
0045B8 9120 7012      00012        6286+INT055   TM    UCBTYP+2(UCBREG),DSKTYP TEST FOR DIRECT ACCESS     TRCE
0045BC 4780 8004            0454C  6287+         BC    8,INT059 NO-SKIP                    TRCE
0045C0 58F0 8210            04758  6288+         L     APBSRG,T311ERT GET DISK ERROR ROUTINE ADDRESS
0045C4 05EF                        6289+         BALR  LNKRG2,APBSRG TO 2311 ERROR RTN

                                   6291+*    DEFINITION OF RESIDENT 2311 ERP - IOS INTERFACE             BBBBBB
                                   6292+*    INPUT     LNKRG2(RET ADDR),APBSRG(BASE ADDR)                BBBBBB
                                   6293+*    REGS CHANGED  NONE                                          BBBBBB

                                   6295+***********************************************************************
                                   6296+*                                                                     *
                                   6297+*                  2311 ERROR ROUTINE VECTOR TABLE                    *
                                   6298+*                                                                     *
0045C6 47F0 80AE            045F6  6299+         BC    15,INTER7 TO EXCP INSPECT
0045CA 47F0 80EA            04632  6300+         BC    15,INTER8 CORRECTION PERM ERROR
0045CE 47F0 80FA            04642  6301+         BC    15,INTER10 HANG REQUEST ON ERRLCH   A43707
0045D2 47F0 80AE            045F6  6302+         BC    15,INTER7 TO READ HA-R0             19022
                                   6303+**       BC    15,INTERDDR              TIE RQE TO UCB + HANG RQE 19022
                                   6304+*                                       ON THE ERR LCH FOR DDR    19022
                                   6305+*                                       OR PERM ERR FOR SYSRES DDR19022
       ERROR INTERFACES - INPUT/OUTPUT SUPERVISOR                                                              PAGE  130


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6306+*                                                                     *
                                   6307+***********************************************************************
                                   6308+*    SET UCBERR TO TIE UP UCB FOR DDR                             19022
0045D6 9601 7006      00006        6309+INTERDDR OI    UCBFL1(UCBREG),UCBERR TIE UCB TO THIS RQE       19022
0045DA 9102 7003      00003        6310+         TM    SRTESTAT(UCBREG),SYSCON TEST FOR SYSRES DEVICE    19022
0045DE 4710 80EA            04632  6311+         BC    1,INTER8 YES, POST PERM ERR
0045E2 58A0 823C            04784  6312+         L     WKREG1,TOADDR ADDR OF DDRSRTO          BBBBBB
0045E6 497A 0000            00000  6313+         CH    UCBREG,0(WKREG1) IS THIS DDR 'TO' DEVICE  BBBBBB
0045EA 4770 8004            0454C  6314+         BC    7,INT059 NO, GO TO HANG ON ERRLCH  19022
0045EE 9200 7006      00006        6315+         MVI   UCBFL1(UCBREG),ZERO LET SYSRES DDR THRU       19022
0045F2 47F0 8004            0454C  6316+         BC    15,INT059 HANG RQE ON ERR LCH       19022

                                   6318+*   EXCP RETURN FROM DISK RESIDENT ERROR RTN.
0045F6 9601 7006      00006        6319+INTER7   OI    UCBFL1(UCBREG),UCBERR TIE-UP UCB FOR THIS REQUEST
0045FA 91A0 83D9      04921        6320+INTER7A  TM    XCPBTE,XCPCNT+XCPERR TEST FOR EXCP ENTRANCE
0045FE 4790 80C4            0460C  6321+         BC    8+1,INTER7B NO, BRANCH AROUND
004602 9620 83D9      04921        6322+INTER7D  OI    XCPBTE,XCPERR YES - MAKE LOOK LIKE SVC 15
004606 D100 003A 7004 0003A 00004  6323+         MVN   IOPSWO+2(1),UCBCHA(UCBREG)
00460C 45C0 50B0            035FA  6324+INTER7B  BAL   LNKRG3,XCP064 INITIALIZE LCH
004610                             6325+INTER7C  DS    0H
004610 58F0 8240            04788  6326+         L     APBSRG,ADEACT ADDR OF APR RTN          BBBBBB
004614 41E0 80D4            0461C  6327+         LA    LNKRG2,INTER7E RETURN ADDR              BBBBBB
004618 47FF 0066            00066  6328+         BC    15,INTAPR01-INTDEACT(APBSRG) TO TEST FOR APR      BBBBBB
00461C 58F0 81D0            04718  6329+INTER7E  L     APBSRG,ENQAD ADDR OF XCPPNQ RTN       BBBBBB
004620 41E0 80E0            04628  6330+         LA    LNKRG2,INTER7F SET RETURN ADDR          BBBBBB
004624 47FF 0006            00006  6331+         BC    15,XCPPNQB-XCPPNQ(APBSRG) TO ENQUEUE RQE        BBBBBB
004628 D701 83CC 83CC 04914 04914  6332+INTER7F  XC    LTSVALSV(2),LTSVALSV ZERO RQE SAVE AREA       BBBBBB
00462E 47F0 5A22            03F6C  6333+         BC    15,INT027 GO TO CHAN RESTART       BBBBBB
004632 9104 2000      00000        6334+INTER8   TM    IOBFL1(IOBREG),IOBEX IS IOBEX=1               US06042
004636 4710 5FC8            04512  6335+         BO    INT057 US06042
00463A 943F 402C      0002C        6336+         NI    DCBFL(DCBREG),FF-DCBPER RESET ERR RTN IN CONTROLUS06042
00463E 47F0 587A            03DC4  6337+         B     INT019B TO CHAN END APPENDAGE   US06042
004642 9102 7003      00003        6338+INTER10  TM    SRTESTAT(UCBREG),SYSCON SYSTEM RESIDENCE VOLUME  A43707
004646 4710 8004            0454C  6339+         BC    1,INT059 YES,DO NOT PROTECT STAT  A43707
00464A 9601 7006      00006        6340+         OI    UCBFL1(UCBREG),UCBERR TIE DEVICE TO THIS RQE   A43707
00464E 47F0 8004            0454C  6341+         BC    15,INT059 HANG REQUEST ON ERRLCH   A43707
       ERROR INTERFACES - INPUT/OUTPUT SUPERVISOR                                                              PAGE  131


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6343  IECIOS  1,1,1,1,1,0,0,1,0,0,0,1,                                    XXXXXX
                                                       200,0,2,0,2,0,0,0,0,1,0,1,2,                       *********
                                                       1,1,1,1,0,1,1,0,1,1,0,0,0
       POST ROUTINE INTERFACE - INPUT/OUTPUT SUPERVISOR                                                        PAGE  132


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6345+*                        POST ROUTINE INTERFACE

                                   6347+*              THIS ROUTINE GETS THE EVENT COMPLETION CODE IN WKREG1
                                   6348+*              SHIFTS IT LEFT SO THAT IT IS NOW A 30 BIT CODE, LOCATES
                                   6349+*              THE TCB FROM THE TCBID IN THE REQUEST ELEMENT AND
                                   6350+*              BRANCHES TO THE POST ROUTINE
                                   6351+*              RETURN IS VIA LNKRG2.

004652 58B2 0004            00004  6353+XCPPST   L     WKREG2,IOBECB-1(IOBREG) GET ECB ADDRESS
004656 41A0 B000            00000  6354+         LA    WKREG1,0(0,WKREG2) CLEAR OUT HIGH BYTE
00465A 17AB                        6355+         XR    WKREG1,WKREG2 ZERO OUT LOW ADDR AND GET COMP
00465C 58F0 81AC            046F4  6356+         L     APBSRG,POSTADR GET POST ADDRESS



004660 58C1 000C            0000C  6358+XCPTCBFD L     WKREG3,TSTTCB(TSTREG) LOAD TCB ADDRESS
004664 91F0 100C      0000C        6359+         TM    TSTKEY(TSTREG),X'F0' CHECK RQSTR'S PROTECT KEY M3588
                                   6360+*  CLEAR HIGH ORDER BYTE TO PREVENT ABEND LOOP
004668 41CC 0000            00000  6361+         LA    WKREG3,0(WKREG3) M3588
00466C 41BB 0000            00000  6362+         LA    WKREG2,0(WKREG2) .CLEAR HI-BYTE                    M0100
004670 078F                        6363+         BCR   8,APBSRG TO POST WITHOUT VAL CHK   M3588
004672 58F0 81A4            046EC  6364+         L     APBSRG,POSTADR1 LOAD POST ENTRY WITH VAL  M3588
                                   6365+**************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP
004676 95FF 825C      047A4        6366+         CLI   ATNTAB+4,X'FF' -    IS THIS A LASP SYSTEM          **ASP
00467A 4770 8148            04690  6367+         BNE   NOASPPST -          NO, DON'T ATTEMPT POSTING ASP  **ASP
00467E 18DE                        6368+         LR    LCHREG,LNKRG2 -     SAVE IOS LINKAGE REG           **ASP
004680 189F                        6369+         LR    ICREG,APBSRG -      SAVE POST EP ADDRESS           **ASP
004682 58F0 825C            047A4  6370+         L     APBSRG,ATNTAB+4 -   POINT TO CONTRAP ENTRY POINT   **ASP
004686 45E0 F004            00004  6371+         BAL   LNKRG2,4(0,APBSRG) -ENTER CONTRAP FOR POSS ASP PST **ASP
00468A 18ED                        6372+         LR    LNKRG2,LCHREG -     RESTORE IOS LINKAGE REGISTER   **ASP
00468C 18F9                        6373+         LR    APBSRG,ICREG -      RESTORE POST EP ADDRESS        **ASP
00468E 1B99                        6374+         SR    ICREG,ICREG -       CLEAR ICREG                    **ASP
004690                             6375+NOASPPST EQU   * -                                                **ASP
004690 07FF                        6376+         BCR   15,APBSRG TO POST ROUTINE          A24739

                                   6378+*    DEFINITION OF POST - IOS INTERFACE                          BBBBBB
                                   6379+*    INPUT     WKREG1(COMPLETION CODE),WKREG2(ECB ADDR),         BBBBBB
                                   6380+*              WKREG3(TCB ADDR),APBSRG(BASE ADDR)                BBBBBB
                                   6381+*    REGS CHANGED  ICREG,LCHREG                                  BBBBBB
       VALIDITY CHECK ROUTINE - INPUT/OUTPUT SUPERVISOR                                                        PAGE  133


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6383+*                                                                     *
                                   6384+*                       VALIDITY CHECK SUBROUTINE                     *
                                   6385+*                                                                     *
                                   6386+*  FUNCTION    TO VALIDITY CHECK USER'S IOB, ECB, DCB, DEB            *
                                   6387+*                                                                     *
                                   6388+*  EXITS       LNKRG2 - TO RETURN TO CALLER                           *
                                   6389+*              XERX00 - TO ABEND TASK                                 *
                                   6390+*                                                                     *
                                   6391+*  ENTRY POINT VALCHK                                                 *
                                   6392+*              VALCHK2                                                *
                                   6393+*              VALCHK3                                                *
                                   6394+*                                                                     *
                                   6395+*   THIS IS THE TEST FOR INVALID CONTROL BLOCKS                    VDTY

004692 D300 8351 3018 04899 00018  6397+VALCHK   MVZ   PROTPSW+1(1),DEBPRT(DEBREG) SEPARATE PROTECT KEY  A24739
004698 8200 8350      04898        6398+         LPSW  PROTPSW ENTER USER'S PROTECT KEY A24739
00469C 94FF 2000      00000        6399+VALCHK2  NI    IOBFL1(IOBREG),FF VERIFY ALL USER BLOCKS   A24739
0046A0 58A2 0004            00004  6400+         L     WKREG1,IOBECB-1(IOBREG) GET ECB ADDR             A24739
0046A4 94FF A000      00000        6401+         NI    0(WKREG1),FF CHECK ECB                A24739
0046A8 94FF 402C      0002C        6402+         NI    DCBFL(DCBREG),FF CHECK DCB                A24739
0046AC 8200 8358      048A0        6403+         LPSW  NOPRTPSW KEY FROM TCB             A24739
0046B0 18B3                        6404+VALCHK3  LR    WKREG2,DEBREG ADDR OF DEB              A24739
0046B2 43B0 8378            048C0  6405+         IC    WKREG2,WORDMASK CLEAR BITS 24-31         A24739
0046B6 1BAA                        6406+         SR    WKREG1,WKREG1 A24739
0046B8 09AB                        6407+         ISK   WKREG1,WKREG2 GET STORAGE KEY OF DEB   A24739
0046BA 12AA                        6408+         LTR   WKREG1,WKREG1 IS IT ZERO               A24739
                                   6409+**************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP
0046BC 07FE                        6410+         BR    LNKRG2 -            NOP KEY ZERO REQ FOR DEBS      **ASP
0046BE 58F0 81EC            04734  6411+         L     APBSRG,IECPL2 GET TEMP BASE REG      @SA77644
                                   6412+**************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP
0046C2 9504 7011      00011        6413+         CLI   UCBTYP+1(UCBREG),X'04' IS THIS A CTC DEVICE       **ASP
0046C6 4770 8D7E            052C6  6414+         BNE   XERX02 -            IF NO DONT CLEAR UCB FLGS      **ASP
0046CA 48C0 85CC            04B14  6415+         LH    LNKRG3,CTCMUCB -    POINT TO PRIMARY CTC UCB       **ASP
0046CE 94FE 85D0      04B18        6416+         NI    CTCMONSW,X'FF'-MNCTCBSY - TURN OFF CTCBUSY FLAG @AA27462
0046D2 9200 C006      00006        6417+         MVI   UCBFL1(LNKRG3),0 -  CLEAR ALL FLAGS IN ADAPTER UCB **ASP
0046D6 47FF 0010            00010  6418+         BC    15,XERX00-IECCPL02(APBSRG) GO ABEND THE TASK    @SA77644
0046DA 9210 8391      048D9        6419+XERX02F1 MVI   CODEDUMP,INVHSP -   INVALID HASP                @THAS801
0046DE 58F0 81EC            04734  6420+         L     APBSRG,IECPL2 -     GET TEMPORARY BASE REGISTER @THAS801
0046E2 47F0 8DB8            05300  6421+         B     XERX02A -           HANDLE THE ERROR            @THAS801
       ADDRESS CONSTANTS - INPUT/OUTPUT SUPERVISOR                                                             PAGE  134


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6423+***********************************************************************
0046E8                             6424+IECIXAVL DS    0F
0046E8 3480                        6425+NEXAVL   DC    AL2(TSTAR-IPLPSW) NEXT AVAILABLE RQE ADDR
0046EA FFFF                        6426+DUMMY    DC    XL2'FFFF' DUMMY RQE
                                   6427+*    THE FOLLOWING ARE CONSTANTS AND ENTRIES TO IOS WHICH ARE    BBBBBB
                                   6428+*    LOCATED THROUGH THE CVT AND IECIXAVL.  EACH WORD MUST       BBBBBB
                                   6429+*    MAINTAIN ITS PRESENT OFFSET FROM LABEL IECIXAVL FOR         BBBBBB
                                   6430+*    EXTERNAL ROUTINES' USE.                                     BBBBBB
0046EC 00000000                    6431+POSTADR1 DC    V(IEA0PT02) .            +4         POST ENTRY VAL. CHK.
0046F0 00005B30                    6432+         DC    A(IECIHIO) .             +8         ENTRY TO HIO ROUTINE
0046F4 00000000                    6433+POSTADR  DC    A(IEA0PT01) .            FILL  POST RTN ENTRY PT    IMP5
0046F8 800047F8                    6434+ADDRAPN  DC    X'80',AL3(DDRAPNVT) .    +16      FLAG, VEC. TBL.  19022
0046FC 00000000                    6435+CHMSK    DC    A(0) .                   +20        CHAN RSTRT CONSTANT
004700 05                          6436+CEBCTR   DC    X'05' .                  +24 CEB COUNT FEILD         APR
004701 005D08                      6437+CEBPTR   DC    AL3(CEBTAB) .            +25 CEB BLOCK POINTER       APR
004704 00005BF8                    6438+ZDEBAD   DC    A(ZDEBPRG) .             +28  PTR TO ZEUS RTN      20201
004708 00000000                    6439+SIRBAD   DC    V(SIRB) .                +32  ADDRESS OF SIRB
00470C 0000000000000000            6440+         DC    3F'0' .                  +36  325C WORK AREA
                                   6441+***********************************************************************
004718 00005178                    6442+ENQAD    DC    A(XCPPNQ) ADDR OF ENQ RTN          BBBBBB
00471C 000051D2                    6443+CCWRTNAD DC    A(CCWRTN) CCW ROUTINE ADDRESS
004720 00004ED6                    6444+LISTA    DC    A(LIST) UCB LIST ADDR           SA71362
004724 00004ED6                    6445+IECILK2A DC    A(IECILK2) UCB LIST ADDR           SA71362
004728 00000000                    6446+GETMAIN  DC    V(RMBRANCH) GETMAIN ADDRESS         SM00010
00472C 00000000                    6447+PCKREGS  DC    V(IEAPKSAV) ADDR OF PGM CK REGS
004730 3480                        6448+FSTRQE   DC    AL2(TSTAR-IPLPSW) ADDR OF FIRST RQE       SA63707
004732 3534                        6449+LSTRQE   DC    AL2(LASTRQE-IPLPSW) ADDR OF LAST RQE        SA63707
004734 00005284                    6450+IECPL2   DC    A(IECCPL02) ADCON FOR TEMP BASE    @SA77644
004738 00000000                    6451+AIEAHEAD DC    A(IEAHEAD) ADDRESS OF HEAD TCB
00473C 00000000                    6452+AIEADS02 DC    A(IEA0DS02) ADDRESS OF TASK SWITCH ROUTINE
004740 00000000                    6453+AIEATCBP DC    A(IEATCBP) PTR TO NEW TCB           BBBBBB
004744 00000000                    6454+CATAPP   DC    V(IGFCAT) CCH BASE REG AND START PT  CCH
004748 00000000                    6455+TRACON   DC    V(TRACE) SIO TRACE ENTRY
00474C 00000000                    6456+SMFRTN   DC    V(IEASMFEX) ADDRESS OF SMF ROUTINE   BBBBBB
004750 00000000                    6457+AHASPE   DC    V(IECHASPE) -            HASP EXCP ROUTINE      @THAS801
004754 00000000                    6458+SVCXAD   DC    A(IEA0XE00) SVC HANDLER EXIT
004758 00000000                    6459+T311ERT  DC    A(ER2311) .              D/A RESIDENT ERR RTN      19022
00475C                             6460+ACLPRTN  DS    0C 21111
00475C 00                          6461+CLPCNT   DC    X'00' CHAN LOGOUT PENDING CNTR  21111
00475D 005BFC                      6462+         DC    AL3(CLPRTN) CHANNEL LOGOUT PENDING RTN21111
004760                             6463+IECDMS   DS    0C
004760 00000000                    6464+MASTCB   DC    V(IEAMSTCB) MASTER SCHED TCB ADDR    A48653
004764 00000000                    6465+CURRTCB  DC    F'0' CURRECNT TCB ADDR       SA53199
004768 00000000                    6466+DISMIS   DC    A(DISMISS) RETURN TO SUPERVISOR
00476C 00000000                    6467+XITFTR   DC    V(IEA0EF00) EXIT EFFECTOR
004770 00005CD4                    6468+RMSFLAD  DC    A(RMSFLAG) ADDR OF RMS FLAG BYTE     20061
004774 00005518                    6469+RMSAD    DC    A(INTRMS) ADDR OF RMS ENTRY RTN     20061
004778 00005582                    6470+RMSEXAD  DC    A(IECRMS) ADDR FOR RMS EXIT RTN    BBBBBB
00477C 00003524                    6471+ADDRRQE  DC    A(DDRRQE) ADDR OF THE DDR RQE      A24739
004780 00005642                    6472+DDRSTAD  DC    A(DDRSTART) ADDR OF DDRSTART         BBBBBB
004784 000058D0                    6473+TOADDR   DC    A(DDRSRTO) ADDR OF DDRSRTO          BBBBBB
004788 000059B4                    6474+ADEACT   DC    A(INTDEACT) ADDR OF APR CEB DEACTIVATE BBBB
       SYSTEM TABLES - INPUT/OUTPUT SUPERVISOR                                                                 PAGE  135


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6476+*              SYSTEM APPENDAGE VECTOR TABLE


00478C                             6478+IECXAPG  DS    0F
00478C 000041D0                    6479+         DC    A(SYSRTN) END OF EXTENT
004790 000041D0                    6480+         DC    A(SYSRTN) SIO
004794 000041D0                    6481+         DC    A(SYSRTN) PCI INTERUPTION
004798 000041D0                    6482+         DC    A(SYSRTN) CHANNEL END
00479C 000041D0                    6483+         DC    A(SYSRTN) EXCEPTIONAL CHANNEL END



                                   6485+*              ATTENTION TABLE


0047A0                             6487+ATNTAB   DS    0F ATTENTION TABLE FOR UNIT EXITS
                                   6488+*   ALL UCB'S WITH ZERO ATTENTION INDEX WILL BRANCH TO DUMMY INSTRUCT
0047A0 000041D2                    6489+         DC    AL4(INTATN) RETURN FOR IGNORE ATTNS
0047A4 00000000                    6490+         DC    AL4(IEEBA1) CONSOLE
0047A8 00000000                    6491+         DC    A(0) SPARE SPOT
0047AC 00000000                    6492+         DC    AL4(IEFDPOST) SCHED POST ROUTINE
0047B0 00000000                    6493+         DC    V(IFFIOM) GRAPHIC ATTENTION HANDLER
0047B4 00000000                    6494+         DC    A(IEDQATTN) TP TCAM ATTN HANDLER      20002
                                   6495+*                                                                A44146
0047B8 00000000                    6496+         DC    V(IECTATTN) 34XX ATTENTION HANDLER    21048
0047BC 00000000                    6497+         DC    V(IECTATEN) ANR ATTENTION HANDLER     21003
0047C0 00000000                    6498+         DC    V(IECURATN) 3211 ATTENTION HANDLER   A44146


0047C4 00000000                    6500+CTCATN   DC    F'0' -              ASP CTC ATN ENTRY               *ASP
000024                             6501+CTCINDX  EQU   CTCATN-ATNTAB -     VALUE OF CTC ATN INDEX         **ASP


                                   6503+*              THE OLTEP VECTOR TABLE                             19026
0047C8                             6504+IECOLTVT DS    0H DUMMY IF NO OLTEP         19026
0047C8 0000000000000000            6505+IECOLTSW DC    2F'0' SWITCH, IECIOLTS, OLT QUE 19026

                                   6507+* THIS SECTION CONTAINS OUT OF LINE BRANCHES FOR GENERALIZED      21014
                                   6508+*  TRACE FUNCTION                                                 21014
                                   6509+*
                                   6510+* MC INSTRUCTION GENERATED BY THE HOOK MACRO
                                   6511+* COMPATIBLE FOR MACHINES WITHOUT THE MC HARDWARE
                                   6512+*
0047D0 AF050FEE                    6513+GTF01    DC    XL1'AF',AL3(IHLMIO1) MC INSTRUCTION
0047D4 47050FEE                    6514+         DC    XL1'47',AL3(IHLMIO1) NOP TO CARRY EID
                                   6515+*                   SELECT VECTOR TABLE                            TBSE


                                   6517+*    THIS VECTOR TABLE IS USED WHEN THE OPTION FOR TWO BASE      BBBBBB
                                   6518+*    REGISTERS IS SPECIFIED.  IT ALLOWS FREEING OF 'LNKRG1 FOR   BBBBBB
                                   6519+*    USE AS THE SECOND BASE REGISTER.                            BBBBBB


0047D8 58E0 83B0            048F8  6521+SELECTV  L     LNKRG2,LNKRG1S GENERAL RETURN VECTOR    BBBBBB
0047DC 07FE                        6522+         BCR   15,LNKRG2 TBSE
       SYSTEM TABLES - INPUT/OUTPUT SUPERVISOR                                                                 PAGE  136


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0047DE 58E0 83B0            048F8  6524+SELTAGV  L     LNKRG2,LNKRG1S TRY AGAIN RETURN VECTOR  BBBBBB
0047E2 47FE 0004            00004  6525+         BC    15,SELTAG(LNKRG2) TBSE

0047E6 58E0 83B0            048F8  6527+SELBSYV  L     LNKRG2,LNKRG1S BUSY RETURN VECTOR       BBBBBB
0047EA 47FE 0008            00008  6528+         BC    15,SELBSY(LNKRG2) TBSE

0047EE 58E0 83B0            048F8  6530+SELNXTLV L     LNKRG2,LNKRG1S SELECT NEXT LCH RETURN VECTOR
0047F2 47FE 000C            0000C  6531+         BC    15,SELNLCH(LNKRG2) TBSE


                                   6533+*                DDR APPENDAGE VECTOR TABLE                      BBBBBB

0047F8                             6535+DDRAPNVT DS    0F BBBBBB
0047F8 000058D2                    6536+ADDRWTQ  DC    A(DDRWAITQ) ADDR OF WAIT QUE FOR PURGE
0047FC 47F0 82D0            04818  6537+         BC    15,DDRRTN1 RE-EXCP WITH CTRL OF UCB BBBBBB
004800 47F0 82D8            04820  6538+         BC    15,DDRRTN2 RE-EXCP W/O CTRL         BBBBBB
004804 47F0 82E0            04828  6539+         BC    15,DDRRTN3 POST DDR W/O CTRL OF UCB BBBBBB
004808 47F0 82E8            04830  6540+         BC    15,DDRRTN4 POST DDR WITH CTRL       BBBBBB
00480C 47F0 82F0            04838  6541+         BC    15,DDRRTN5 RETRY USER AFTER SWAP    BBBBBB
004810 47F0 82F8            04840  6542+         BC    15,DDRRTN6 SWAP UCB INFORMATION     BBBBBB
004814 47F0 8300            04848  6543+         BC    15,DDRRTN7 DDR REQ CANCELLED BY OP. BBBBBB



                                   6545+*                       DDR BRANCH TABLE                         BBBBBB

004818 58F0 8238            04780  6547+DDRRTN1  L     APBSRG,DDRSTAD ADDR OF DDRSTART         BBBBBB
00481C 47FF 0000            00000  6548+         BC    15,DDRXCPWC-DDRSTART(APBSRG) RE-EXCP WITH CTRL    BBBBBB

004820 58F0 8238            04780  6550+DDRRTN2  L     APBSRG,DDRSTAD ADDR OF DDRSTART         BBBBBB
004824 47FF 000C            0000C  6551+         BC    15,DDRXCPNC-DDRSTART(APBSRG) RE-EXCP W/O CTRL     BBBBBB

004828 58F0 8238            04780  6553+DDRRTN3  L     APBSRG,DDRSTAD ADDR OF DDRSTART         BBBBBB
00482C 47FF 0014            00014  6554+         BC    15,DDRPSTNC-DDRSTART(APBSRG) POST DDR W/O CTRL    BBBBBB

004830 58F0 8238            04780  6556+DDRRTN4  L     APBSRG,DDRSTAD ADDR OF DDRSTART         BBBBBB
004834 47FF 001C            0001C  6557+         BC    15,DDRPSTWC-DDRSTART(APBSRG) POST DDR WITH CTRL    M1870

004838 58F0 8238            04780  6559+DDRRTN5  L     APBSRG,DDRSTAD ADDR OF DDRSTART         BBBBBB
00483C 47FF 002C            0002C  6560+         BC    15,DDRRETRY-DDRSTART(APBSRG) RETRY USER AFTER SWAP BBBBB

004840 58F0 8238            04780  6562+DDRRTN6  L     APBSRG,DDRSTAD ADDR OF DDRSTART         BBBBBB
004844 47FF 005C            0005C  6563+         BC    15,DDRSWAP-DDRSTART(APBSRG) SWAP UCB INFORMATION  BBBBBB

004848 58F0 8238            04780  6565+DDRRTN7  L     APBSRG,DDRSTAD ADDR OF DDRSTART         BBBBBB
00484C 47FF 0234            00234  6566+         BC    15,DDRCANCL-DDRSTART(APBSRG) DDR REQ CANCELLED    BBBBBB
       SYSTEM CHANNEL PROGRAMS - INPUT/OUTPUT SUPERVISOR                                                       PAGE  137


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6568+*   THIS CCW IS SHARED BY THE TAPE,UNIT RECORD AND SENSE MODULES
004850 0000000070000006            6569+SYSIMD   CCW   X'00',0,X'70',6 FILLED IN BY ROUTINE     BBBBBB
                                   6570+*   THIS COMMAND ALLOWS THE ERROR RTN TO HOLD UNIT CHECK UNTIL D.END
004858 0300000020000006            6571+SYSNOP   CCW   NOOP,0,X'20',6 NOOP COMMAND               IMP5
004860 0400000020000006            6572+SYSSENSE CCW   X'04',0,X'20',6 SENSE COMMAND
004868 0000000060000001            6573+TAPESM   CCW   0,0,X'60',1 SET MODE COMMAND        SA54451
004870 0000000060000001            6574+         CCW   0,0,X'60',1 MODE SET IF CRC         SA54451
004878 0000000F                    6575+DEVMSK   DC    X'0000000F'
00487C 00000000
004880 0700000020000006            6576+SEEK1    CCW   X'07',0,X'20',6 STAND ALONE SEEK
004888 0700000060000006            6577+RRDXCCW  CCW   X'07',0,X'60',6 SEEK
004890 1F00000060000001            6578+         CCW   X'1F',0,X'60',1 SET FILE MASK
004898 00040000                    6579+PROTPSW  DC    X'00040000' DISABLED EXCEPT MACHINE  A24739
00489C 0000469C                    6580+         DC    A(VALCHK2) A24739
0048A0 00040000                    6581+NOPRTPSW DC    X'00040000' A24739
0048A4 000046B0                    6582+         DC    A(VALCHK3) A24739
       MISCELLANEOUS CONSTANTS - INPUT/OUTPUT SUPERVISOR                                                       PAGE  138


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0048A8 9100 700C      0000C        6584+PATHTST  TM    UCBCHM(UCBREG),X'00' PATH STATUS



0048AC                             6586+         DS    0F
0048AC 8FFFFFFF                    6587+CUBMSK   DC    X'8FFFFFFF' CUB AND CUE MASK
0048B0 0000F2BF                    6588+CHEDVE   DC    X'0000F2BF' CE,DE,WLR,UEX MASK
0048B4 00000FFF                    6589+ADDRMSK  DC    X'00000FFF' UNIT ADDRESS MASK
0048B8 0000FF3F                    6590+PCIMSK   DC    X'0000FF3F' PCI AND WLR MASK         BBBBBB
0048BC 0000FFFF                    6591+HWMSK    DC    X'0000FFFF' BBBBBB
0048BC                             6592+LPCNT    EQU   HWMSK SIO/TIO LOOP COUNT      SA68848
0048C0 00000003                    6593+WORDMASK DC    X'00000003' FULL WORD BOUNDARY MASK  BBBBBB
0048C4 80000000                    6594+CHANBIT  DC    X'80000000' CONSTANT FOR M7CH          I267
0048C8 80F5C000                    6595+DUMPTCB  DC    X'80F5C000' SVC   92 ABEND CODE       20001
0048CC C9D6E2C1C2C5D5C4            6596+IOSABEND DC    C'IOSABEND' SAVE AREA ID
0048D4 FD000080                    6597+ABCORE   DC    X'FD000080' SUBPOOL AND LENGTH
0048D8 80000000                    6598+DUMPCODE DC    X'80000000' VARIABLE ABEND CODE       21016
0048D9                             6599+CODEDUMP EQU   DUMPCODE+1 CODE POSITION             21016
0048DC 800F1000                    6600+DUMPCOD1 DC    X'800F1000' CODE FOR INT PGM CHK     A24739
0048E0 800F2000                    6601+DUMPCOD2 DC    X'800F2000' CODE FOR SVC PGM CHK     A24739
0048E4 8010F000                    6602+DUMP10F  DC    X'8010F000' INVALID SVC 15 CODE     SA63707
0048E8 80600000                    6603+DUMP600  DC    X'80600000' INVALID LCH CODE
0048EC 00000000                    6604+LCHWDSV  DC    F'0' LCH ADDR SAVE AREA
0048F0 00005272                    6605+LCHERRAD DC    A(LCHERR) WRONG LCH RTN ADDR
0048F4 00000000                    6606+WKREG2S  DC    F'0' SAVE FOR BBCC COMPARE    BBBBBB
0048F8 00000000                    6607+LNKRG1S  DC    F'0' PSUEDO LNKRG1 FOR TBASE  BBBBBB
0048FC 00000008                    6608+EIGHTF   DC    F'8' CCW LENGTH                21111
004900 00000000                    6609+EXTSAV   DC    F'0' 20201
004904 00000000                    6610+BLNKPTR  DC    F'0' BACK-LINK FOR CHAN SRCH  BBBBBB
004908 0000000000000000            6611+BUSYSV   DC    2F'0' RETURN REG SAVE ON BUSY  BBBBBB
004910 C2                          6612+CLEARM   DC    AL1(IOBCDS+IOBURL) CLEAR IOB FLAGS
004911 01                          6613+         DC    AL1(IOBQSM) QSAM FLAG
004912 0000                        6614+         DC    AL2(0) CLEAR IOB MASK
004914 0000                        6615+LTSVALSV DC    H'0' RQE SAVE AREA FOR PGM CK A24739
004916 029C                        6616+MAXUCBO  DC    AL2(PURGPTR-LIST) MAX OFFSET IN UCB LIST
004918 00                          6617+PRGFLD   DC    X'00' WORK AREA-USE NUMERIC PORTION
004919 00                          6618+IDBYTE   DC    X'00' WORK AREA-USE ZONE PORTION
00491A 0006                        6619+SIX      DC    AL2(6) IMP3
00491C 0008                        6620+EIGHT    DC    AL2(8) CCW INCREMENT
00491E 0014                        6621+STARTCP  DC    AL2(20) START CCW FOR DTR.
004920 00                          6622+SNSCNT   DC    X'00' SENSE RETRY COUNTER      A53284
004921 00                          6623+XCPBTE   DC    X'00' FLAG BYTE FOR XCP AND INT
004922 FE                          6624+XCPENB   DC    X'FE' ENABLE MASK
                                   6625+         TITLE 'TEST CHANNEL AND CHANNEL SEARCH ROUTINES - INPUT/OUTPUTX
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES - INPUT/OUTPUT SUPERVISOR                                      PAGE  139


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6626+***********************************************************************
                                   6627+*
                                   6628+*   THIS SECTION OF IOS CONTAINS THE FOLLOWING                     IMP4
                                   6629+*
                                   6630+*   THE TEST CHANNEL ROUTINES                                      IMP4
                                   6631+*   THE CHANNEL SEARCH ROUTINES                                    IMP4
                                   6632+*   THE DEVICE TABLE - PTRS TO DEVICE-DEPENDENT CODE FOR EACH DEVICE
                                   6633+*   THE CHANNEL TABLE - PTRS TO THE CHANNEL SEARCH CODE FOR EACH CHAN.
                                   6634+*   THE UCB SAVE TABLE - USED TO SAVE PTRS OF UCB'S STARTED LAST
                                   6635+*   THE LCH WORD TABLE - THE LOGICAL CHANNEL WORDS FOR ALL CHANNELS
                                   6636+*   THE UCB LOOKUP TABLE - ADDRESSES OF THE UCB'S IN THE SYSTEM
                                   6637+*   THE STATISTICS TABLE
                                   6638+*
                                   6639+* FUNCTIONS OF THE ROUTINES
                                   6640+*   THE TEST CHANNEL ROUTINE INITIALIZES UAREG WITH THE PROPER
                                   6641+*   CHANNEL ADDRESS AND EXECUTES A TCH INSTRUCTION.  IF THE CHANNEL
                                   6642+*   IS BUSY, THE REQUEST IS ENQUEUED, OR, IF OPTIONAL CHANNEL
                                   6643+*   PATHS EXIST, THE OPTIONAL CHANNEL PATHS ARE TESTED.  IF THE
                                   6644+*   CHANNEL IS NOT BUSY, CONTROL IS GIVEN TO THE DEVICE-
                                   6645+*   DEPENDENT SIO SUBROUTINE.
                                   6646+*
                                   6647+*   THE CHANNEL SEARCH ROUTINES GIVE CONTROL TO THE CHANNEL RESTART
                                   6648+*   SUBROUTINE TO RESTART A LOGICAL CHANNEL.
                                   6649+*
                                   6650+* PATH ROTATION
                                   6651+*   THE TEST CHANNEL ROUTINES ATTEMPT TO START A DEVICE ON THE MOST
                                   6652+*   LIKELY AVAILABLE PATH, IF THERE ARE TWO OR MORE PATHS TO A
                                   6653+*   DEVICE.  THE METHOD OF DETERMINING THE MOST LIKELY PATH IS
                                   6654+*   DEPENDENT ON THE SYSGENED SYSTEM CONFIGURATION.  THE
                                   6655+*   CONFIGURATION DETERMINES THE PHYSICAL CHANNEL/LOGICAL
                                   6656+*   CHANNEL RELATIONSHIP.  CHANNEL DISTRIBUTION IS AFFECTED ALSO,
                                   6657+*   AS CAN BE SEEN IN THE EXAMPLE.  LOGICAL CHANNEL 5 ALWAYS
                                   6658+*   ATTEMPTS TO START CHANNEL 6; LEAVING CHANNEL 5 AVAILABLE
                                   6659+*   FOR LOGICAL CHANNEL 4.
                                   6660+*   EXAMPLE:
                                   6661+*   LOGICAL CHANNEL 1 HAS PHYSICAL CHANNELS 1 AND 3.
                                   6662+*   LOGICAL CHANNEL 2 HAS PHYSICAL CHANNELS 2 AND 4.
                                   6663+*   LOGICAL CHANNEL 3 HAS PHYSICAL CHANNELS 1 AND 2.
                                   6664+*   LOGICAL CHANNEL 4 HAS PHYSICAL CHANNEL 5.
                                   6665+*   LOGICAL CHANNEL 5 HAS PHYSICAL CHANNELS 5 AND 6.
                                   6666+*        LOGICAL CHANNEL           FIRST PATH ATTEMPTED BY TCH
                                   6667+*               1                             CHAN 3
                                   6668+*               2                             CHAN 4
                                   6669+*               3                    ALTERNATELY CHAN 1 AND 2
                                   6670+*               5                             CHAN 6
                                   6671+*
                                   6672+***********************************************************************
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES - INPUT/OUTPUT SUPERVISOR                                      PAGE  140


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6674  IECCTC 2,1
                                   6675+*--------------------------------------------------------------------*
                                   6676+*                                                                     *
                                   6677+*              CLEAR NOT READY FOR CTC TAPE DEVICES                   *
                                   6678+*                                                                     *
                                   6679+*--------------------------------------------------------------------*
004923 00
004924 58F0 81D0            04718  6680+CTCENQ   L     APBSRG,ENQAD GET ADDRESS OF ENQUEUE ROUTINE **ASP
004928 9180 7012      00012        6681+         TM    UCBTYP+2(UCBREG),X'80' IS THIS A TAPE           @AA23757
00492C 4780 8422            0496A  6682+         BZ    CTCENQ20 -          NO,GO ENQUE REQUEST         @AA23757
004930 9140 7006      00006        6683+         TM    UCBFL1(UCBREG),UCBNRY IS THE DEVICE NOT READY   @AA23757
004934 4780 83F8            04940  6684+         BZ    CTCENQ10 -          NO,CHECK CHANNEL MASK       @AA23757
004938 94BF 7006      00006        6685+         NI    UCBFL1(UCBREG),X'FF'-UCBNRY TURN OFF NOT READY      *ASP
00493C 47F0 5176            036C0  6686+         B     XCP010A -           GO RETRY THE REQUEST            *ASP
004940 91FF 81B4      046FC        6687+CTCENQ10 TM    CHMSK,X'FF' -       ANY RESTART BITS ON         @AA23757
004944 4780 8422            0496A  6688+         BZ    CTCENQ20 -          NO,GO ENQUE REQUEST         @AA23757
004948 48A0 85CC            04B14  6689+         LH    WKREG1,CTCMUCB -    GET MASTER CTC UCB ADDR     @AA23757
00494C 12AA                        6690+         LTR   WKREG1,WKREG1 -     IS ADDR VALID               @AA23757
00494E 4780 8422            0496A  6691+         BZ    CTCENQ20 -          NO,GO ENQUE REQUEST         @AA23757
004952 439A 0004            00004  6692+         IC    ICREG,UCBCHA(WKREG1) GET CTC CHANNEL ADDR       @AA23757
004956 5490 85C8            04B10  6693+         N     ICREG,CTCMASK -     CLEAR UNWANTED BITS         @AA23757
00495A 8990 0002            00002  6694+         SLL   ICREG,2 -           MULTIPLY CHAN ADDR BY 4     @AA23757
00495E 41A9 8880            04DC8  6695+         LA    WKREG1,IECCST(ICREG) POINT AT CHANNEL TABLE     @AA23757
004962 D600 81B4 A002 046FC 00002  6696+         OC    CHMSK(1),LCTMSK(WKREG1) TURN ON CTC CHAN MASK   @AA23757
004968 1B99                        6697+         SR    ICREG,ICREG -       CLEAR IC REG                @AA23757
00496A 47FF 0034            00034  6698+CTCENQ20 B     XCPENQ-XCPPNQ(APBSRG) GO ENQUE REQUEST          @AA23757
       CHANNEL TO CHANNEL ADAPTER START I/O MODULE                                                             PAGE  141


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6700+*---------------------------------------------------------------------*
                                   6701+*                                                                     *
                                   6702+*        CHECK ADAPTER AVAILABILITY - INSERT DSTL IF REQUIRED         *
                                   6703+*        LINK TO USERS SIO APPENDAGE - SET SECONDARY UCB BUSY         *
                                   6704+*        LINK TO IOS TO DO THE SIO - FREE THE PROPER UCB(S)           *
                                   6705+*        UPDATE THE DSTL IF REQUIRED AND EXIT TO IOS POST SIO         *
                                   6706+*                                                                     *
                                   6707+*---------------------------------------------------------------------*


00496E                             6709+CTCSIO   DS    0H -                                               **ASP
00496E 4871 0002            00002  6710+CTCSIO10 LH    UCBREG,TSTUCB(TSTREG) - ASSURE VALIDITY OF UCBREG  **ASP
004972 48B0 85CC            04B14  6711+         LH    WKREG2,CTCMUCB -    POINT TO ADAPTER UCB           **ASP
004976 9180 7012      00012        6712+         TM    UCBTYP+2(UCBREG),X'80' IS REQ FOR A TAPE DEVICE     *ASP
00497A 4780 845A            049A2  6713+         BC    8,CNSLREQ -         NO,BR,MUST BE CONSOE            *ASP
00497E 9180 85D0      04B18        6714+         TM    CTCMONSW,MNMTENA1 - IS THE DEVICE USABLE        @AA27462
004982 4710 845A            049A2  6715+         BC    1,CNSLREQ -         YES GO ON WITH REQUEST          *ASP
004986 9241 2004      00004        6716+CTCABEND MVI   IOBCOD(IOBREG),PERMER SET PERMANENT ERROR IN IOB    *ASP
00498A                             6717+CTCNOIO  DS    0H -                                            @AA33546
00498A 4867 0004            00004  6718+         LH    UAREG,UCBCHA(UCBREG) - RELOAD CHAN/UNIT ADDRESS @AA34010
00498E 5460 836C            048B4  6719+         N     UAREG,ADDRMSK -        CLEAR HI ORDER BYTE      @AA34010
004992 920C 0044      00044        6720+         MVI   CSWLOC+4,CSWCHE+CSWDVE - SET CHAN & DEV END IN CSW **ASP
004996 91FF 844E      04996        6721+         TM    *,X'FF' -           GENERATE A SIO CC OF CSW STORD **ASP
00499A 41C0 8528            04A70  6722+         LA    LNKRG3,CTCPIO -     POINT TO PIO ENTRY POINT
00499E 47F0 54F2            03A3C  6723+         B     LASPPIO -           GO TO IOS FOR POST SIO CLEANUP **ASP
0049A2 12BB                        6724+CNSLREQ  LTR   WKREG2,WKREG2 -     IS THE MASTER CTC AVAILABLE     *ASP
0049A4 4780 8572            04ABA  6725+         BZ    CTCCTLCM -          NO,DONT START REQ           @AA33546
0049A8 9180 B006      00006        6726+         TM    UCBFL1(WKREG2),UCBBSY - IS THE ADAPTER BUSY        **ASP
0049AC 4710 8598            04AE0  6727+         BO    CTCBUSY -           YES,DONT START REQ          @AM00431
0049B0 9108 85D0      04B18        6728+         TM    CTCMONSW,MNASPABN - IS ASP ABENDING             @AA27462
0049B4 4710 8598            04AE0  6729+         BO    CTCBUSY -           YES,DONT START REQ          @AM00431
0049B8 41B7 000E            0000E  6730+         LA    WKREG2,UCBTYP-2(UCBREG) - POINT TO DSTL FOR REQEST **ASP
0049BC 58A2 0010            00010  6731+         L     WKREG1,IOBST-1(IOBREG) - POINT TO CHANNEL PROGRAM  **ASP
0049C0 D501 85C5 B000 04B0D 00000  6732+         CLC   CTCLAST,0(WKREG2) - IS REQ FOR DEVICE LAST USED
0049C6 4780 84C6            04A0E  6733+         BE    CTCSIO20 -          YES, GO SET THE CAW            **ASP
0049CA D201 85B8 B000 04B00 00000  6734+         MVC   CTCCUR,0(WKREG2) -  NO, SET DSTL AS CURRENT
0049D0 D200 85BF 4010 04B07 00010  6735+         MVC   CTCMODE(1),DCBMODE(DCBREG) MOVE IN MODE BYTE       **ASP
0049D6 9180 402A      0002A        6736+         TM    DCBMACRF(DCBREG),X'80' IS THIS EXCP                **ASP
0049DA 4780 84A8            049F0  6737+         BZ    NOTEXCP -           NO,BRANCH                      **ASP
0049DE D204 85BA 85C0 04B02 04B08  6738+         MVC   CTCLRECL(5),DSHEXCP FILL IN DATA FOR EXCP          **ASP
0049E4 9140 402A      0002A        6739+         TM    DCBMACRF(DCBREG),X'40' IS THE RECFM AVAILABLE      **ASP
0049E8 4710 84B4            049FC  6740+         BO    XCPRECFM -          YES,BRANCH                     **ASP
0049EC 47F0 84BA            04A02  6741+         B     EXCP -                                             **ASP
0049F0 D201 85BC 403E 04B04 0003E  6742+NOTEXCP  MVC   CTCBLKSI,DCBBLKSI(DCBREG) MOVE IN BLOCKSIZE        **ASP
0049F6 D201 85BA 4052 04B02 00052  6743+         MVC   CTCLRECL,DCBLRECL(DCBREG) MOVE IN THE LRECL        **ASP
0049FC D200 85BE 4024 04B06 00024  6744+XCPRECFM MVC   CTCRECFM,DCBRECFM(DCBREG) MOVE IN THE RECFM        **ASP
004A02                             6745+EXCP     DS    0H -                                               **ASP
004A02 50A0 85A8            04AF0  6746+         ST    WKREG1,CTCTIC -     POINT TIC TO USER CHANNEL PROG **ASP
004A06 9208 85A8      04AF0        6747+         MVI   CTCTIC,TICOP -      RESTORE TIC OP CODE            **ASP
004A0A 41A0 85A0            04AE8  6748+         LA    WKREG1,CTCDSTLW -   POINT TO DSTL WRITE CCW        **ASP
004A0E 50A0 0048            00048  6749+CTCSIO20 ST    WKREG1,CAWLOC -     STORE CHAN PROG ADDR INTO CAW  **ASP
004A12 9120 2000      00000        6750+         TM    IOBFL1(IOBREG),IOBERR - IS ERR ROUTINE IN CONTROL  **ASP
004A16 4710 84EC            04A34  6751+         BO    CTCSIO30 -          YES, DON'T GO TO APPENDAGE     **ASP
004A1A 58F3 001C            0001C  6752+         L     APBSRG,DEBAPG-1(DEBREG) - POINT TO APPENDAGE VECTR **ASP
004A1E 58FF 0004            00004  6753+         L     APBSRG,APGSIO(APBSRG) - POINT TO SIO APPENDAGE     **ASP
       CHANNEL TO CHANNEL ADAPTER START I/O MODULE                                                             PAGE  142


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004A22 05EF                        6754+         BALR  LNKRG2,APBSRG -     LINK TO APPENDAGE ROUTINE      **ASP
004A24 47F0 84EC            04A34  6755+         B     CTCSIO30 -          NORMAL RETURN, GO DO SIO       **ASP
004A28 41E0 58E8            03E32  6756+         LA    LNKRG2,INT025 -     ERROR RETURN, DEQ THE REQUEST  **ASP
004A2C 94D1 7006      00006        6757+         NI    UCBFL1(UCBREG),X'FF'-UCBASK-UCBDTR-UCBCUB-UCBPST - **ASP
004A30 47F0 5626            03B70  6758+         B     XCPPDQ -            RESET UCB AND EXIT TO DEQUEUE  **ASP
004A34 943F 7004      00004        6759+CTCSIO30 NI    UCBCHA(UCBREG),X'FF'-UCBHLT-UCBSMD - RESET HIO/SMD **ASP
004A38 94B7 7006      00006        6760+         NI    UCBFL1(UCBREG),X'FF'-UCBCUB-UCBNRY - RESET CUB/NRY **ASP
004A3C 4017 0014            00014  6761+         STH   TSTREG,UCBLTS(UCBREG) - CHAIN RQE FROM SECONDARY   **ASP
004A40 4870 85CC            04B14  6762+         LH    UCBREG,CTCMUCB -    POINT TO THE ADAPTER UCB       **ASP
004A44 4867 0004            00004  6763+         LH    UAREG,UCBCHA(UCBREG) -LOAD CTC UNIT ADDR IN UAREG   *ASP
004A48 5460 836C            048B4  6764+         N     UAREG,ADDRMSK -     CLEAR HIGH ORDER BYTE          **ASP
004A4C 41C0 8528            04A70  6765+CTCSIO35 LA    LNKRG3,CTCPIO -     POINT TO POST SIO ROUTINE      **ASP
004A50 95FF 825C      047A4        6766+CTCSIO40 CLI   ATNTAB+4,X'FF' -    IS THIS A LASP SYSTEM          **ASP
004A54 4770 54D4            03A1E  6767+         BNE   XCP110 -            NO, LINK TO IOS TO DO THE SIO  **ASP
004A58 D300 0048 100C 00048 0000C  6768+         MVZ   CAWLOC(1),TSTKEY(TSTREG) - SET USER PROTECT KEY    **ASP
004A5E 4017 0014            00014  6769+         STH   TSTREG,UCBLTS(UCBREG) - CHAIN RQE FROM ADAPTER UCB **ASP
004A62 58F0 825C            047A4  6770+         L     APBSRG,ATNTAB+4 -   POINT TO LASP I/O ROUTINE      **ASP
004A66 45CF 0008            00008  6771+         BAL   LNKRG3,8(APBSRG) -  GO PROCESS LASP SIO            **ASP
004A6A 1BAA                        6772+         SR    WKREG1,WKREG1 -     GENERATE A SIO CC OF STARTED   **ASP
004A6C 45C0 54F2            03A3C  6773+         BAL   LNKRG3,LASPPIO -    GO TO IOS FOR POST SIO CLEANUP **ASP
004A70                             6774+CTCPIO   EQU   * -                                                **ASP
004A70 4780 855A            04AA2  6775+         BC    8,CTCPIO10 -        GO UPDATE DSTL IF SIO SUCESFUL **ASP
004A74 4740 853E            04A86  6776+         BC    4,CTCPIO5 IF CC=1 CONTINE TESTING
004A78 4710 8504            04A4C  6777+         BC    1,CTCSIO35 -        CC=3 GO RETRY                 **ASP
004A7C 4871 0002            00002  6778+         LH    UCBREG,TSTUCB(TSTREG) POINT TO SECONDARY CTC UCB
004A80 4017 0014            00014  6779+         STH   TSTREG,UCBLTS(UCBREG) CHAIN RQE FROM SECONDARY     **ASP
004A84 07FC                        6780+         BR    LNKRG3 RETURN TO IOS
004A86                             6781+CTCPIO5  EQU   *
004A86 9108 0044      00044        6782+         TM    CSWLOC+4,CSWCHE -   DOES CSW SHOW CHANNEL END      **ASP
004A8A 4710 855A            04AA2  6783+         BO    CTCPIO10 -          YES, TREAT AS SUCCESSFUL SIO   **ASP
004A8E 9180 0044      00044        6784+         TM    CSWLOC+4,CSWATN -   WAS AN ATTENTION RECEIVED      **ASP
004A92 4710 8568            04AB0  6785+         BO    CTCPIO20 -          YES, LET IOS POST SIO HANDLE   **ASP
004A96 945F 7006      00006        6786+         NI    UCBFL1(UCBREG),X'FF'-UCBPST-UCBBSY - FREE ADAPTER  **ASP
004A9A 4871 0002            00002  6787+         LH    UCBREG,TSTUCB(TSTREG) POINT TO SECONDARY CTC UCB
004A9E 47F0 8568            04AB0  6788+         B     CTCPIO20 -          DON'T UPDATE DSTL              **ASP
004AA2 D201 85C5 85B8 04B0D 04B00  6789+CTCPIO10 MVC   CTCLAST,CTCCUR -    UPDATE DATA SET TITLE LABEL    **ASP
004AA8 48A1 0002            00002  6790+         LH    WKREG1,TSTUCB(TSTREG) - POINT TO SECONDARY UCB     **ASP
004AAC 96A0 A006      00006        6791+         OI    UCBFL1(WKREG1),UCBPST+UCBBSY - SET SECONDARY ACTIV **ASP
004AB0 9130 2010      00010        6792+CTCPIO20 TM    IOBCC(IOBREG),IOBCC3 - RESTORE CC PRIOR TO EXIT    **ASP
004AB4 41C0 5520            03A6A  6793+         LA    LNKRG3,XCPPIO -     POINT TO IOS POST SIO ROUTINE  **ASP
004AB8 07FC                        6794+         BR    LNKRG3 -            EXIT TO IOS                    **ASP
004ABA 58A2 0010            00010  6795+CTCCTLCM L     WKREG1,IOBST-1(IOBREG) -    GET CCW ADDR        @AA33546
004ABE 91C0 A004      00004        6796+         TM    CCWFLG(WKREG1),X'C0' -      DATA/COMMAND CHAIN  @AA33546
004AC2 4750 8598            04AE0  6797+         BC    4+1,CTCBUSY -               YES,ENQUEUE REQ     @AA33546
004AC6 41B0 85D6            04B1E  6798+         LA    WKREG2,CTCOPCOD -           COMMAND TABLE ADDR  @AA33546
004ACA 41C0 0003            00003  6799+         LA    WKREG3,CTCOPNUM -           NUM OF ENTRIES      @AA33546
004ACE D500 A000 B000 00000 00000  6800+CTCNXTOP CLC   0(1,WKREG1),0(WKREG2) -     SELECTED COMMAND    @AA33546
004AD4 4780 8442            0498A  6801+         BE    CTCNOIO -                   YES,POST COMPLETE   @AA33546
004AD8 41BB 0001            00001  6802+         LA    WKREG2,1(WKREG2) -          INCREMENT COUNT     @AA33546
004ADC 46C0 8586            04ACE  6803+         BCT   WKREG3,CTCNXTOP -           LOOP UNTIL DONE     @AA33546
004AE0                             6804+CTCBUSY  DS    0H -                                            @AA33546
004AE0 47F0 829E            047E6  6805+         BC    15,SELBSYV TBSE
       CHANNEL TO CHANNEL ADAPTER START I/O MODULE                                                             PAGE  143


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004AE4 00000000
004AE8 FD004B0060000008            6807+CTCDSTLW CCW   X'FD',CTCCUR,X'60',8 WRITE CURRENT DSTL     ASPHDR **ASP
004AF0 0800000000000000            6808+CTCTIC   CCW   TICOP,0,0,0 -       TRANSFER TO USER CHANNEL PROG  **ASP
004AF8 04004B1C20000001            6809+CTCSNCCW CCW   SENSOP,CTCSNBYT,X'20',1 - OBTAIN SENSE BYTE        **ASP
004B00 0000                        6810+CTCCUR   DC    H'0' -              CURRENT DSTL UNIT       ASPHDR **ASP
004B02 0000                        6811+CTCLRECL DC    H'0' -              DSTL LRECL              ASPHDR **ASP
004B04 0000                        6812+CTCBLKSI DC    H'0' -              DSTL BLKSIZE            ASPHDR **ASP
004B06 0000                        6813+CTCRECFM DC    XL1'00',X'00' -     DSTL RECFM              ASPHDR **ASP
004B07                             6814+CTCMODE  EQU   CTCCUR+7 DSH **ASP
000052                             6815+DCBLRECL EQU   82 -                                        ASPHDR **ASP
00003E                             6816+DCBBLKSI EQU   62 -                                        ASPHDR **ASP
000024                             6817+DCBRECFM EQU   36 -                                        ASPHDR **ASP
000010                             6818+DCBMODE  EQU   16 DSH **ASP
00002A                             6819+DCBMACRF EQU   42 -                                               **ASP
004B08 C5E7C3D7C0                  6820+DSHEXCP  DC    XL5'C5E7C3D7C0' -                                  **ASP
004B0D 0000                        6821+CTCLAST  DC    AL2(0) -            DSTL FOR LAST SECCESSFUL REQ   **ASP
004B0F 00
004B10 0000000F                    6822+CTCMASK  DC    1F'15' -            MASK FOR CTC CHANNEL ADDR   @AA23757
004B14 0000                        6823+CTCMUCB  DC    H'0' - POINTER TO ADAPTER UCB      **ASP
004B16 0000                        6824+CTCOUCB  DC    H'0' -              SECONDARY CTC POINTER       @AM00431
004B18 00                          6825+CTCMONSW DC    X'00' SW BYTE FOR CTC MONITOR
004B19 00
004B1A 0008                        6826+CTCCCWL  DC    H'8' -              LENGTH OF A CCW                **ASP
004B1C 00                          6827+CTCSNBYT DC    X'00' -             ADAPTER SENSE BYTE             **ASP
004B1D 00                          6828+CTCLASP  DC    X'00' -             LOCAL/REAL MAIN INDICATOR      **ASP
004B1E 07                          6829+CTCOPCOD DC    X'07' -                     REW COMMAND         @AA33546
004B1F 0F                          6830+         DC    X'0F' -                     RUN COMMAND         @AA33546
004B20 1F                          6831+         DC    X'1F' -                     WTM COMMAND         @AA33546
000003                             6832+CTCOPNUM EQU   *-CTCOPCOD -                NUM OF COMM CODES   @AA33546
004B21 000000
004B24 00C3E3C300C3E3C3            6833+CTCPATCH DC    10F'12837827' -     PATCH AREA                     **ASP



                                   6835+*        DEFINITION OF CTCMONSW                                @AA27462
000080                             6836+MNMTENA1 EQU   X'80' -             MAINTASK ENABLED            @AA27462
000040                             6837+MNMTENA2 EQU   X'40' -             MAINTASK ENABLED            @AA27462
000010                             6838+MNSWCOMP EQU   X'10' -             CONSOLE SWITCH COMPLETE     @AA27462
000008                             6839+MNASPABN EQU   X'08' -             ASP ABENDING                @AA27462
000004                             6840+MNHOTIPL EQU   X'04' -             HOT IPL                     @AA27462
000002                             6841+MNSWFAIL EQU   X'02' -             CONSOLE SWITCH FAILED       @AA27462
000001                             6842+MNCTCBSY EQU   X'01' -             CTC BUSY                    @AA27462
       CHANNEL TO CHANNEL ADAPTER TRAP ROUTINE                                                                 PAGE  144


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6844+*---------------------------------------------------------------------*
                                   6845+*                                                                     *
                                   6846+*        SET UNIT EXCEPTION AT EOF - FREE SECONDARY & ADAPTER UCBS    *
                                   6847+*                                                                     *
                                   6848+*---------------------------------------------------------------------*


004B4C                             6850+CTCTRP   DS    0H -                                               **ASP
004B4C 9180 85D0      04B18        6851+         TM    CTCMONSW,MNMTENA1 - ARE CTC TAPES ENABLED       @AA27462
004B50 4780 8610            04B58  6852+         BC    8,CTCTRP10 -        NO,SKIP RELOAD OF UCBREG     AA23168
004B54 4870 85CE            04B16  6853+         LH    UCBREG,CTCOUCB -    RELOAD UCBREG WITH MASTER   @AM00431
004B58 94FE 85D0      04B18        6854+CTCTRP10 NI    CTCMONSW,X'FF'-MNCTCBSY - TURN OFF CTCBUSY FLAG @AA27462
004B5C 4971 0002            00002  6855+         CH    UCBREG,TSTUCB(TSTREG) - WAS THE I/O ON THE CONSOLE **ASP
004B60 078E                        6856+         BCR   8,LNKRG2 -          YES, EXIT TO IOS               **ASP
004B62 9480 7006      00006        6857+         NI    UCBFL1(UCBREG),UCBBSY - RESET ALL BUT BSY IN ADPTR **ASP
004B66 4871 0002            00002  6858+         LH    UCBREG,TSTUCB(TSTREG) - POINT TO UCB FOR THIS REQ  **ASP
004B6A 947F 7006      00006        6859+         NI    UCBFL1(UCBREG),X'FF'-UCBBSY - RESET BUSY IN SCNDRY **ASP
004B6E 48A0 0046            00046  6860+         LH    WKREG1,CSWLOC+6 -   GET RESIDUAL BYTE COUNT        **ASP
004B72 12AA                        6861+         LTR   WKREG1,WKREG1 -     IS THE RESIDUAL ZERO           **ASP
004B74 4780 8656            04B9E  6862+         BZ    CTCTRP30 -          YES, NO EOF/GO INCR BLK COUNT  **ASP
004B78 910C 0044      00044        6863+         TM    CSWLOC+4,CSWCHE+CSWDVE - CHAN AND DEV END IN CSW   **ASP
004B7C 47E0 8656            04B9E  6864+         BNO   CTCTRP30 -          NO, NO EOF/GO INCR BLK COUNT   **ASP
004B80 58A0 0040            00040  6865+         L     WKREG1,CSWLOC -     POINT TO THE NEXT CCW          **ASP
004B84 4BA0 85D2            04B1A  6866+         SH    WKREG1,CTCCCWL -    BACK UP TO CCW JUST EXECUTED   **ASP
004B88 9101 A000      00000        6867+         TM    0(WKREG1),X'01' -   WAS IT A WRITE                 **ASP
004B8C 4710 8656            04B9E  6868+         BO    CTCTRP30 -          YES, NO EOF/GO INCR BLK COUNT  **ASP
004B90 D501 A006 0046 00006 00046  6869+         CLC   6(2,WKREG1),CSWLOC+6 - DOES RESIDUAL CNT = INITIAL **ASP
004B96 4770 8656            04B9E  6870+         BNE   CTCTRP30 -          NO, NO EOF/GO INCR BLK COUNT   **ASP
004B9A 9601 200C      0000C        6871+CTCTRP20 OI    IOBCSW+4(IOBREG),CSWUEX - SET UNIT XCEPTION IN IOB **ASP
004B9E 58A4 000C            0000C  6872+CTCTRP30 L     WKREG1,DCBBLK(DCBREG) - OBTAIN DCB BLOCK COUNT     **ASP
004BA2 4AA2 001C            0001C  6873+         AH    WKREG1,IOBBCI(IOBREG) - INCREMENT IT               **ASP
004BA6 50A4 000C            0000C  6874+         ST    WKREG1,DCBBLK(DCBREG) - STORE UPDATED COUNT        **ASP
004BAA 07FE                        6875+         BR    LNKRG2 -            EXIT TO IOS                    **ASP
                                   6876+***********************************************************************
                                   6877+*                                                                     *
                                   6878+*        THE FOLLOWING CODE PROVIDES SPECIAL INTERRUPT HANDLING       *
                                   6879+*        FOR ASP CTC DEVICES                                          *
                                   6880+*                                                                     *
                                   6881+***********************************************************************
004BAC 95FF 825C      047A4        6882+CTCINTH  CLI   ATNTAB+4,X'FF' -    IS THIS SUPPORT             **ASP
004BB0 4780 86BA            04C02  6883+         BE    CTCLINT -           YES,BRANCH                  **ASP
004BB4 9180 0044      00044        6884+         TM    CSWLOC+4,CSWATN -   IS THIS REALLY ATTENTION    **ASP
004BB8 4780 59BA            03F04  6885+         BZ    INT013 -            NO,GO TO O/S                **ASP
004BBC 41A0 85B0            04AF8  6886+         LA    WKREG1,CTCSNCCW -   POINT AT ADAPTER SENSE CCW     **ASP
004BC0 50A0 0048            00048  6887+         ST    WKREG1,CAWLOC -     STORE CCW ADDR & 0 KEY IN CAW  **ASP
004BC4 9C00 6000      00000        6888+CTCATN10 SIO   0(UAREG) -          START SENSE COMMAND            **ASP
004BC8 4730 867C            04BC4  6889+         BC    3,CTCATN10 -        RE-ISSUE IF ADAPTER BUSY       **ASP
004BCC 9D00 6000      00000        6890+CTCATN20 TIO   0(UAREG) -          TEST SENSE OPERATION STATUS    **ASP
004BD0 47B0 8684            04BCC  6891+         BC    8+2+1,CTCATN20 -    LOOP UNTIL CSW STORED          **ASP
004BD4 9104 0044      00044        6892+         TM    CSWLOC+4,CSWDVE -   HAS DEVICE END OCCURED         **ASP
004BD8 4780 8684            04BCC  6893+         BZ    CTCATN20 -          NO, LOOP UNTIL IT DOES         **ASP
004BDC 9507 85D4      04B1C        6894+         CLI   CTCSNBYT,X'07' -    IS THIS A NORMAL ATTN       @AM00431
004BE0 4780 5C50            0419A  6895+         BE    INTATT2 -           YES GO TO ATN HANDLER       @AM00431
004BE4 95F7 85D4      04B1C        6896+         CLI   CTCSNBYT,X'F7' -    IS THIS IPL RESPONSE        @AM00431
004BE8 4770 86DE            04C26  6897+         BNE   CTCAERR -           NO,BR ON ERR CONDITION      @AA19292
       CHANNEL TO CHANNEL ADAPTER TRAP ROUTINE                                                                 PAGE  145


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004BEC 48A0 85CC            04B14  6898+         LH    WKREG1,CTCMUCB -    GET MASTER CTC UCB ADR          *ASP
004BF0 12AA                        6899+         LTR   WKREG1,WKREG1 -     TEST FOR UCB ADDR VALID         *ASP
004BF2 4770 59BA            03F04  6900+         BNZ   INT013 -            IGNORE INTERRUPT            @AM00431
004BF6 4070 85CC            04B14  6901+         STH   UCBREG,CTCMUCB -    MAKE THIS RESPONDER MASTER      *ASP
004BFA 4070 85CE            04B16  6902+         STH   UCBREG,CTCOUCB -    SAVE SECOND CTC POINTER     @AM00431
004BFE 47F0 5C50            0419A  6903+         B     INTATT2 -           GO TO ATTN HANDLER          **ASP
004C02 4970 85CE            04B16  6904+CTCLINT  CH    UCBREG,CTCOUCB -    IS INTRPT ON MASTER CTC     @AM00431
004C06 4770 86CE            04C16  6905+         BNE   CTCRINT -           NO GO TO ASP                **ASP
004C0A 9504 0044      00044        6906+         CLI   CSWLOC+4,X'04' -    IS THIS DE FROM HIO         **ASP
004C0E 4770 5C48            04192  6907+         BNE   INTATT1 -           NO GO  TO INT HANDLER       **ASP
004C12 47F0 59BA            03F04  6908+         B     INT013 -            YES,GO SKIP INT HANDLING    **ASP
004C16 58F0 827C            047C4  6909+CTCRINT  L     APBSRG,CTCATN -     GET POINTER TO CTC ATN ROUTINE **ASP
004C1A 12FF                        6910+         LTR   APBSRG,APBSRG -     IS POINTER VALID            **ASP
004C1C 4780 59BA            03F04  6911+         BZ    INT013 -            NO,RETURN                   **ASP
004C20 05EF                        6912+         BALR  LNKRG2,APBSRG -     GO TO CTC ATN ROUTINE       **ASP
004C22 47F0 59BA            03F04  6913+         B     INT013 -            RETURN                      **ASP
004C26 D200 85D5 85D4 04B1D 04B1C  6914+CTCAERR  MVC   CTCSNBYT+1(1),CTCSNBYT TRACE LAST SENSE DATA    @AA19292
004C2C 92F7 85D4      04B1C        6915+         MVI   CTCSNBYT,X'F7' -    INSERT FAKE SENSE DATA      @AA19292
004C30 9E01 6000      00000        6916+         HDV   0(UAREG) -          HALT THE CTC                @AA19292
004C34 47B0 8684            04BCC  6917+         BC    11,CTCATN20 -       GO DO TIO TILL CSW STOREED  @AA19292
004C38 47F0 59BA            03F04  6918+         B     INT013 -            RETURN TO INTR HANDLER      @AA19292
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  146


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6920          AGO   .TCH1      TO FIRST TCH MOD
                                   6921 .TCH1   ANOP       TCH FOR MPX
                                   6922          IECXTCH 1,0,0,,0,1,1,0,0,0
004C3C                             6923+XCPCH1   DS    0H ENTER TEST CHANNEL CODE    IMP5
004C3C 4160 0000            00000  6924+         LA    UAREG,X'000' SET UP CHANNEL ADDRESS    19022
004C40 4500 8778            04CC0  6925+         BAL   REG0,XCPTCH3 GO TO COMMON CODE          IMP5

                                   6927+* ALL POSSIBLE PATHS HAVE BEEN TRIED - RETURN                      IMP5
004C44 47F0 829E            047E6  6928+         BC    15,SELBSYV GET NEXT LCH OR ENQUE      IMP5


                                   6930          AGO   .TCH2     TO NEXT TXH
                                   6931 .TCH2    ANOP   TEST CHANNEL
                                   6932     IECXTCH 2,1,(1,0,0,0,0,                                           *****
                                                       0,0,0,0,0,0,                                          ******
                                                       0,0,0,0),(0,0,0,0),0,1,1,0,1,0
004C48                             6933+XCPCH2   DS    0H ENTER TEST CHANNEL CODE    IMP5
004C48 4160 0100            00100  6934+         LA    UAREG,X'100' SET UP CHANNEL ADDRESS    19022
004C4C 45E0 8748            04C90  6935+         BAL   LNKRG2,XCPTCH9 SEE IF OLTEP OWNS CHANNEL 19026

                                   6937+* ALL POSSIBLE PATHS HAVE BEEN TRIED - RETURN                      IMP5
004C50 47F0 82A6            047EE  6938+         BC    15,SELNXTLV ENQUE OR GET NEXT LCH      IMP5


                                   6940          AGO   .TCH3      TO NEXT TCH MOD
                                   6941 .TCH3    ANOP   TEST CHANNEL
                                   6942     IECXTCH 3,1,(0,1,0,0,0,                                           *****
                                                       0,0,0,0,0,0,                                          ******
                                                       0,0,0,0),(0,0,0,0),0,1,1,0,1,0
004C54                             6943+XCPCH3   DS    0H ENTER TEST CHANNEL CODE    IMP5
004C54 4160 0200            00200  6944+         LA    UAREG,X'200' SET UP CHANNEL ADDRESS    19022
004C58 45E0 8748            04C90  6945+         BAL   LNKRG2,XCPTCH9 SEE IF OLTEP OWNS CHANNEL 19026

                                   6947+* ALL POSSIBLE PATHS HAVE BEEN TRIED - RETURN                      IMP5
004C5C 47F0 82A6            047EE  6948+         BC    15,SELNXTLV ENQUE OR GET NEXT LCH      IMP5


                                   6950          AGO   .TCH4      TO NEXT TCH MOD
                                   6951 .TCH4    ANOP   TEST CHANNEL
                                   6952     IECXTCH 4,1,(0,0,1,0,0,                                           *****
                                                       0,0,0,0,0,0,                                          ******
                                                       0,0,0,0),(0,0,0,0),0,1,1,0,1,0
004C60                             6953+XCPCH4   DS    0H ENTER TEST CHANNEL CODE    IMP5
004C60 4160 0300            00300  6954+         LA    UAREG,X'300' SET UP CHANNEL ADDRESS    19022
004C64 45E0 8748            04C90  6955+         BAL   LNKRG2,XCPTCH9 SEE IF OLTEP OWNS CHANNEL 19026

                                   6957+* ALL POSSIBLE PATHS HAVE BEEN TRIED - RETURN                      IMP5
004C68 47F0 82A6            047EE  6958+         BC    15,SELNXTLV ENQUE OR GET NEXT LCH      IMP5


                                   6960          AGO   .TCH5      TO NEXT TCH MOD
                                   6961 .TCH5    ANOP   TEST CHANNEL
                                   6962     IECXTCH 5,1,(0,0,0,0,1,                                           *****
                                                       0,0,0,0,0,0,                                          ******
                                                       0,0,0,0),(0,0,0,0),0,1,1,0,1,0
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  147


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004C6C                             6963+XCPCH5   DS    0H ENTER TEST CHANNEL CODE    IMP5
004C6C 4160 0500            00500  6964+         LA    UAREG,X'500' SET UP CHANNEL ADDRESS    19022
004C70 45E0 8748            04C90  6965+         BAL   LNKRG2,XCPTCH9 SEE IF OLTEP OWNS CHANNEL 19026

                                   6967+* ALL POSSIBLE PATHS HAVE BEEN TRIED - RETURN                      IMP5
004C74 47F0 82A6            047EE  6968+         BC    15,SELNXTLV ENQUE OR GET NEXT LCH      IMP5


                                   6970          AGO   .TCH6      TO NEXT TCH MOD
                                   6971 .TCH6    ANOP   TEST CHANNEL
                                   6972     IECXTCH 6,1,(0,0,0,0,0,                                           *****
                                                       1,0,0,0,0,0,                                          ******
                                                       0,0,0,0),(0,0,0,0),0,1,1,0,1,0
004C78                             6973+XCPCH6   DS    0H ENTER TEST CHANNEL CODE    IMP5
004C78 4160 0600            00600  6974+         LA    UAREG,X'600' SET UP CHANNEL ADDRESS    19022
004C7C 45E0 8748            04C90  6975+         BAL   LNKRG2,XCPTCH9 SEE IF OLTEP OWNS CHANNEL 19026

                                   6977+* ALL POSSIBLE PATHS HAVE BEEN TRIED - RETURN                      IMP5
004C80 47F0 82A6            047EE  6978+         BC    15,SELNXTLV ENQUE OR GET NEXT LCH      IMP5


                                   6980          AGO   .TCH7      TO NEXT TCH MOD
                                   6981 .TCH7    ANOP   TEST CHANNEL
                                   6982     IECXTCH 7,1,(0,0,0,0,0,                                           *****
                                                       0,1,0,0,0,0,                                          ******
                                                       0,0,0,0),(0,0,0,0),0,1,1,1,1,0
004C84                             6983+XCPCH7   DS    0H ENTER TEST CHANNEL CODE    IMP5
004C84 4160 0700            00700  6984+         LA    UAREG,X'700' SET UP CHANNEL ADDRESS    19022
004C88 45E0 8748            04C90  6985+         BAL   LNKRG2,XCPTCH9 SEE IF OLTEP OWNS CHANNEL 19026

                                   6987+* ALL POSSIBLE PATHS HAVE BEEN TRIED - RETURN                      IMP5
004C8C 47F0 82A6            047EE  6988+         BC    15,SELNXTLV ENQUE OR GET NEXT LCH      IMP5




                                   6991+*                                                                  IMP5
                                   6992+*   THIS IS THE TEST CHANNEL COMMON ROUTINE.                       IMP5
                                   6993+*                                                                  IMP5
004C90                             6994+XCPTCH9  DS    0H TCH-OLTEP ROUTINE         19026
004C90 9180 8280      047C8        6995+         TM    IECOLTSW,OLTCHOPT DOES OLTEP OWN A CHANNEL  19026
004C94 4780 8758            04CA0  6996+         BC    8,XCPTCH8 NO, CONTINUE PROCESSING   19026
004C98 58F0 8280            047C8  6997+         L     APBSRG,IECOLTSW GET ADR OF OLTEP RTN    SA60510
004C9C 4500 F010            00010  6998+         BAL   REG0,OLTCHN(0,APBSRG) GO TO OLTEP RTN           19026
                                   6999+*                                                                 19026
                                   7000+*              DEFINITION OF TCH-OLTEP INTERFACE                  19026
                                   7001+*   INPUT      DEBREG, UAREG - CHAN ADR, REG0 - NORMAL RETURN     19026
                                   7002+*              LNKRG2 - TRY NEXT PATH RETURN, APBSRG--BASE ADR    19026
                                   7003+*   REGS CHANGED   WKREG1, WKREG2, WKREG3, LCHREG                 19026
                                   7004+*                                                                 19026
004CA0                             7005+XCPTCH8  DS    0H 19022
004CA0 45C0 878C            04CD4  7006+         BAL   LNKRG3,XCPTCH2 SEE IF PATH IS AVAIL.     19022
004CA4                             7007+XCPTCH   DS    0H IMP5
                                   7008+         ENTRY LASPTCH
004CA4 47F0 8770            04CB8  7009+LASPTCH  B     LASPTCH1 -          BYPASS LASP TCH CODE
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  148


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004CA8 9504 7011      00011        7010+         CLI   UCBTYP+1(UCBREG),4 -IS THIS A CTC DEVICE
004CAC 4770 8770            04CB8  7011+         BNE   LASPTCH1 -          NO,BRANCH
004CB0 9188 7012      00012        7012+         TM    UCBTYP+2(UCBREG),X'88' IS THIS A TAPE OR CONSOLE
004CB4 4740 8776            04CBE  7013+         BM    XCPTCH3A -          YES SKIP TCH FOR LOCAL MAIN
004CB8                             7014+LASPTCH1 EQU   *
004CB8 9F00 6000      00000        7015+         TCH   0(UAREG) TEST CHANNEL               IMP5
004CBC 076E                        7016+         BCR   4+2,LNKRG2 RET IF INT PENDING OR BUSY IMP5
004CBE 180E                        7017+XCPTCH3A LR    REG0,LNKRG2 SAVE RETURN ADR FOR PSIO   IMP5
004CC0                             7018+XCPTCH3  DS    0H IMP5
004CC0 4360 7005            00005  7019+         IC    UAREG,UCBUA(0,UCBREG) SET UP U.A. FOR SIO        IMP5
004CC4 4397 0007            00007  7020+         IC    ICREG,UCBDTI(UCBREG) GET DEVICE TABLE INDEX      IMP5
004CC8 48A9 8832            04D7A  7021+         LH    WKREG1,DEVTAB+DVTSIO(ICREG) GET SIO RTN VECTOR     IMP5
004CCC 1AA5                        7022+         AR    WKREG1,BASREG ADJUST ADDRESS           BBBBBB
004CCE 94F7 7006      00006        7023+         NI    UCBFL1(UCBREG),FF-UCBCUB CLEAR C.U. BSY           A27691
004CD2 07FA                        7024+         BCR   15,WKREG1 TO SIO CODE AND RETURN   A27691
                                   7025+*                                      VIA SELECT VECTOR TABLE     IMP5



                                   7027+*   DETERMINE IF THIS PATH TO THE DEVICE IS AVAILABLE, AND        19022
                                   7028+*   INITIALIZE THE PATH MASK IF IT IS.                            19022

004CD4                             7030+XCPTCH2  DS    0H AVAILABILITY ROUTINE      19022
004CD4 41A0 000F            0000F  7031+         LA    WKREG1,FOURPATH SET UP ANDING MASK      SA60510
004CD8 14A6                        7032+         NR    WKREG1,UAREG GET PATH BITS             19022
004CDA 44A0 8360            048A8  7033+         EX    WKREG1,PATHTST IS PATH OFFLINE           19022
004CDE 077E                        7034+         BCR   7,LNKRG2 YES, TRY NEXT PATH        19022
004CE0 07FC                        7035+         BCR   15,LNKRG3 RETURN TO CALLER          19022
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  149


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7038          AGO   .TCH8      TO NEXT TCH MOD
                                   7039 .TCH8   ANOP       LAST TEST CHAN MOD
                                   7040          AGO   .SRCH1     TO FIRST CSRCH MOD
                                   7041 .SRCH1  ANOP         CHAN SEARCH FOR MPX
                                   7042     IECICS 0,0,0,,0,0,0,0,0,(0,0,0,0)

004CE2                             7044+INTCS0   DS    0C
004CE2 41D0 88D2            04E1A  7045+         LA    LCHREG,LCHTAB INITILIZE TO 1ST LCHWORD
004CE6 45E0 5AC4            0400E  7046+         BAL   LNKRG2,INT034C TO START AT TOP OF QUEUE
                                   7047+*    VECTOR ENTRY FOR NEXT IN QUEUE
004CEA 47F0 5AC6            04010  7048+         BC    15,INT034D TO PICK-UP NEXT DTR IN QUEUE
                                   7049+*    VECTOR ENTRY FOR NEXT LCH
004CEE 47F0 5A08            03F52  7050+         BC    15,INT033 RETURN WHEN RQE IS DUMMY
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  150


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7052          AGO   .SRCH2     TO NEXT SEARCH
                                   7053 .SRCH2  ANOP       CHANNEL SEARCH MOD2
                                   7054                IECICS 1,16,0,                                 ************
                                                       (1,                            I267                 ********
                                                       1,1,         I267                                       *
                                                       0),0,0,0,0,1,(0,0,0,0),0

004CF2                             7056+INTCS1   DS    0C
004CF2 41D0 88DA            04E22  7057+         LA    LCHREG,LCH2 SET LCH FOR SEEK DEV
004CF6 45E0 5A9E            03FE8  7058+         BAL   LNKRG2,INT036C TO START AT TOP OF QUEUE
                                   7059+*    VECTOR ENTRY FOR NEXT IN QUEUE
004CFA 47F0 5AA0            03FEA  7060+         BC    15,INTCIC TO PICK UP NEXT RQE
                                   7061+*    VECTOR ENTRY FOR NEXT LCH
                                   7062+**       THIS CODE SETS THE SEARCH LOGIC FOR ALL I/O DATA TRANSFER
004CFE 41D0 88DA            04E22  7063+         LA    LCHREG,LCH2 SET PROPER LCH ADDR
004D02 45E0 5AC4            0400E  7064+         BAL   LNKRG2,INT034C TEST FOR STARTABLE DEVICE
                                   7065+*    VECTOR ENTRY FOR NEXT IN QUEUE
004D06 47F0 5AC6            04010  7066+         BC    15,INT034D TO PICK-UP NEXT RQE
                                   7067+*    VECTOR ENTRY FOR NEXT LCH
004D0A 47F0 5A08            03F52  7068+         BC    15,INT033 EXIT FROM CHANNEL SEARCH


                                   7070          AGO   .SRCH3     TO NEXT CHAN SRCH MOD
                                   7071 .SRCH3  ANOP       CHANNEL SEARCH MOD3
                                   7072                IECICS 2,8,0,                                 ************
                                                       (2,                            I267                 ********
                                                       1,1,         I267                                       *
                                                       0),0,0,0,0,1,(0,0,0,0),0

004D0E                             7074+INTCS2   DS    0C
004D0E 41D0 88E2            04E2A  7075+         LA    LCHREG,LCH3 SET LCH FOR SEEK DEV
004D12 45E0 5A9E            03FE8  7076+         BAL   LNKRG2,INT036C TO START AT TOP OF QUEUE
                                   7077+*    VECTOR ENTRY FOR NEXT IN QUEUE
004D16 47F0 5AA0            03FEA  7078+         BC    15,INTCIC TO PICK UP NEXT RQE
                                   7079+*    VECTOR ENTRY FOR NEXT LCH
                                   7080+**       THIS CODE SETS THE SEARCH LOGIC FOR ALL I/O DATA TRANSFER
004D1A 41D0 88E2            04E2A  7081+         LA    LCHREG,LCH3 SET PROPER LCH ADDR
004D1E 45E0 5AC4            0400E  7082+         BAL   LNKRG2,INT034C TEST FOR STARTABLE DEVICE
                                   7083+*    VECTOR ENTRY FOR NEXT IN QUEUE
004D22 47F0 5AC6            04010  7084+         BC    15,INT034D TO PICK-UP NEXT RQE
                                   7085+*    VECTOR ENTRY FOR NEXT LCH
004D26 47F0 5A08            03F52  7086+         BC    15,INT033 EXIT FROM CHANNEL SEARCH


                                   7088          AGO   .SRCH4     TO NEXT CHAN SRCH MOD
                                   7089 .SRCH4  ANOP       CHANNEL SEARCH MOD4
                                   7090                IECICS 3,8,0,                                 ************
                                                       (3,                            I267                 ********
                                                       1,1,         I267                                       *
                                                       0),0,0,0,0,1,(0,0,0,0),0

004D2A                             7092+INTCS3   DS    0C
004D2A 41D0 88EA            04E32  7093+         LA    LCHREG,LCH4 SET LCH FOR SEEK DEV
004D2E 45E0 5A9E            03FE8  7094+         BAL   LNKRG2,INT036C TO START AT TOP OF QUEUE
                                   7095+*    VECTOR ENTRY FOR NEXT IN QUEUE
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  151


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004D32 47F0 5AA0            03FEA  7096+         BC    15,INTCIC TO PICK UP NEXT RQE
                                   7097+*    VECTOR ENTRY FOR NEXT LCH
                                   7098+**       THIS CODE SETS THE SEARCH LOGIC FOR ALL I/O DATA TRANSFER
004D36 41D0 88EA            04E32  7099+         LA    LCHREG,LCH4 SET PROPER LCH ADDR
004D3A 45E0 5AC4            0400E  7100+         BAL   LNKRG2,INT034C TEST FOR STARTABLE DEVICE
                                   7101+*    VECTOR ENTRY FOR NEXT IN QUEUE
004D3E 47F0 5AC6            04010  7102+         BC    15,INT034D TO PICK-UP NEXT RQE
                                   7103+*    VECTOR ENTRY FOR NEXT LCH
004D42 47F0 5A08            03F52  7104+         BC    15,INT033 EXIT FROM CHANNEL SEARCH


                                   7106          AGO   .SRCH5     TO NEXT CHAN SRCH MOD
                                   7107 .SRCH5  ANOP       CHANNEL SEARCH MOD5
                                   7108                IECICS 5,16,0,                                 ************
                                                       (4,                            I267                 ********
                                                       1,0,         I267                                       *
                                                       0),0,0,0,0,1,(0,0,0,0),0

004D46                             7110+INTCS5   DS    0C
                                   7111+**       THIS CODE SETS THE SEARCH LOGIC FOR ALL I/O DATA TRANSFER
004D46 41D0 88F2            04E3A  7112+         LA    LCHREG,LCH5 SET PROPER LCH ADDR
004D4A 45E0 5AC4            0400E  7113+         BAL   LNKRG2,INT034C TEST FOR STARTABLE DEVICE
                                   7114+*    VECTOR ENTRY FOR NEXT IN QUEUE
004D4E 47F0 5AC6            04010  7115+         BC    15,INT034D TO PICK-UP NEXT RQE
                                   7116+*    VECTOR ENTRY FOR NEXT LCH
004D52 47F0 5A08            03F52  7117+         BC    15,INT033 EXIT FROM CHANNEL SEARCH


                                   7119          AGO   .SRCH6     TO NEXT CHAN SRCH MOD
                                   7120 .SRCH6  ANOP       CHANNEL SEARCH MOD6
                                   7121                IECICS 6,51,0,                                 ************
                                                       (5,                            I267                 ********
                                                       1,0,         I267                                       *
                                                       0),0,0,0,0,1,(0,0,0,0),0

004D56                             7123+INTCS6   DS    0C
                                   7124+**       THIS CODE SETS THE SEARCH LOGIC FOR ALL I/O DATA TRANSFER
004D56 41D0 88FA            04E42  7125+         LA    LCHREG,LCH6 SET PROPER LCH ADDR
004D5A 45E0 5AC4            0400E  7126+         BAL   LNKRG2,INT034C TEST FOR STARTABLE DEVICE
                                   7127+*    VECTOR ENTRY FOR NEXT IN QUEUE
004D5E 47F0 5AC6            04010  7128+         BC    15,INT034D TO PICK-UP NEXT RQE
                                   7129+*    VECTOR ENTRY FOR NEXT LCH
004D62 47F0 5A08            03F52  7130+         BC    15,INT033 EXIT FROM CHANNEL SEARCH


                                   7132          AGO   .SRCH7     TO NEXT CHAN SRCH MOD
                                   7133 .SRCH7  ANOP       CHANNEL SEARCH MOD7
                                   7134                IECICS 7,0,0,                                 ************
                                                       (6,                            I267                 ********
                                                       1,0,         I267                                       *
                                                       1),0,0,0,0,1,(0,0,0,0),0

004D66                             7136+INTCS7   DS    0C
                                   7137+**       THIS CODE SETS THE SEARCH LOGIC FOR ALL I/O DATA TRANSFER
004D66 41D0 8902            04E4A  7138+         LA    LCHREG,LCH7 SET PROPER LCH ADDR
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  152


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004D6A 45E0 5AC4            0400E  7139+         BAL   LNKRG2,INT034C TEST FOR STARTABLE DEVICE
                                   7140+*    VECTOR ENTRY FOR NEXT IN QUEUE
004D6E 47F0 5AC6            04010  7141+         BC    15,INT034D TO PICK-UP NEXT RQE
                                   7142+*    VECTOR ENTRY FOR NEXT LCH
004D72 47F0 5A08            03F52  7143+         BC    15,INT033 EXIT FROM CHANNEL SEARCH


                                   7145          AGO   .SRCH8     TO NEXT CHAN SRCH MOD
                                   7146 .SRCH8  ANOP         LAST CHANNEL SEARCH MOD
                                   7147          AGO   .TBLTAB          TO TABLE MACRO
                                   7148 .TBLTAB  ANOP  LCH,DEVICE AND CHAN TABLE
                                   7149  IECTBL  (1,3,3,3,0,3,3,3,0,0,0,0,0,0,0,0),                         ******
                                                       0,7,                                                ******
                                                       (UR,                                                 ******
                                                       GR,                                                  ******
                                                       CTC,                                                  ******
                                                       TP,                                                  ******
                                                       WR,                                                  ******
                                                       DA,                                                  ******
                                                       ML,                                                  ******
                                                       AT,                                                  ******
                                                       TA,                                                  ******
                                                       DUM),1
                                   7150+*   DEVICE TABLE
004D78                             7151+DEVTAB   DS    0F
                                   7152+**  UNIT RECORD ENTRY WITH FIFO ENQUEING
004D78 1C62                        7153+         DC    AL2(XCPENQ-IOSBASE) FIFO QUEUE FOR UNIT RECORD RL19
004D7A 0480                        7154+         DC    AL2(XIOUR-IOSBASE) SIO CODE FOR UNIT RECORD
004D7C 0CAE                        7155+         DC    AL2(INTURT-IOSBASE) TRAP CODE FOR UNIT RECORD
004D7E 0D84                        7156+         DC    AL2(NORMSEN-IOSBASE) SENSE ENTRY
                                   7157+**  GRAPHICS SUPPORT ENTRY WITH FIFO QUEUING
004D80 1C62                        7158+         DC    AL2(XCPENQ-IOSBASE) FIFO QUEUING FOR GRAPHICS  RL19
004D82 0480                        7159+         DC    AL2(XIOUR-IOSBASE) SIO FOR GRPAHIC DEVICES    RL19
004D84 0D18                        7160+         DC    AL2(INTDNP-IOSBASE) TRAP FOR GRAPHIC DEVICES   RL19
004D86 0D84                        7161+         DC    AL2(NORMSEN-IOSBASE) SENSE ENTRY
                                   7162+**  CHANNEL TO CHANNEL ADAPTER ENTRY WITH FIFO QUEUEING           **ASP
004D88 13DA                        7163+         DC    AL2(CTCENQ-IOSBASE) FIFO QUEUEING FOR CTC          **ASP
004D8A 1424                        7164+         DC    AL2(CTCSIO-IOSBASE) SIO CODE FOR CTC               **ASP
004D8C 1602                        7165+         DC    AL2(CTCTRP-IOSBASE) TRAP CODE FOR CTC              **ASP
004D8E 0D84                        7166+         DC    AL2(NORMSEN-IOSBASE) SENSE ENTRY FOR CTC           **ASP
                                   7167+**  TP SUPPORT ENTRY WITH FIFO QUEING
004D90 1C62                        7168+         DC    AL2(XCPENQ-IOSBASE) FIFO QUEUEING FOR TP       RL19
004D92 0488                        7169+         DC    AL2(XCP121-IOSBASE) SIO FOR TP DEVICES         RL19
004D94 0D16                        7170+         DC    AL2(XCPTPT-IOSBASE) TRAP FOR TP DEVICES        RL19
004D96 0D6A                        7171+         DC    AL2(TPSEN-IOSBASE) SENSE FOR TP
                                   7172+**  UNIT RECORD ENTRY WITH FIFO ENQUEING
004D98 1C62                        7173+         DC    AL2(XCPENQ-IOSBASE) FIFO QUEUE FOR UNIT RECORD RL19
004D9A 0460                        7174+         DC    AL2(XIOWR-IOSBASE) SIO CODE FOR 3211        A44146
004D9C 0CAE                        7175+         DC    AL2(INTURT-IOSBASE) TRAP CODE FOR UNIT RECORD
004D9E 0D72                        7176+         DC    AL2(EXPSEN-IOSBASE) EXPANDED SENSE ENTRY
                                   7177+**  DA OR ML ENTRY WITH FIFO QUEUEING
004DA0 1C62                        7178+         DC    AL2(XCP100-IOSBASE) FIFO QUEUEING FOR DA OR ML
004DA2 026E                        7179+         DC    AL2(XIODSK-IOSBASE) SIO FOR D.A.               RL19
004DA4 0D08                        7180+         DC    AL2(INTDAT-IOSBASE) TRAP FOR D.A.
004DA6 0D84                        7181+         DC    AL2(NORMSEN-IOSBASE) SENSE ENTRY
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  153


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7182+**  DA OR ML ENTRY WITH FIFO QUEUEING
004DA8 1C62                        7183+         DC    AL2(XCP100-IOSBASE) FIFO QUEUEING FOR DA OR ML
004DAA 026E                        7184+         DC    AL2(RPSSIO-IOSBASE) SIO CODE FOR RPS OR ML
004DAC 0814                        7185+         DC    AL2(INTNOT-IOSBASE) NO TRAP CODE ENTRY
004DAE 0D72                        7186+         DC    AL2(EXPSEN-IOSBASE) EXPANDED SENSE ENTRY
                                   7187+**   ASPEN ENTRY WITH FIFO QUEUING                                21048
004DB0 1C62                        7188+         DC    AL2(XCPENQ-IOSBASE) FIFO QUEUE FOR ASPEN      21048
004DB2 01D4                        7189+         DC    AL2(XIOTPEA-IOSBASE) SIO FOR ASPEN             21048
004DB4 0CE2                        7190+         DC    AL2(INTASP-IOSBASE) TRAP FOR ASPEN            21048
004DB6 0D72                        7191+         DC    AL2(EXPSEN-IOSBASE) SENSE FOR ASPEN           21048
                                   7192+**   TAPE ENTRY FOR FIFO QUEUEING
004DB8 1C62                        7193+         DC    AL2(XCPENQ-IOSBASE) FIFO QUEUE FOR TAPE        RL19
004DBA 01F4                        7194+         DC    AL2(XIOTPE-IOSBASE) SIO FOR TAPE
004DBC 0CFA                        7195+         DC    AL2(INTTAT-IOSBASE) TRAP FOR TAPE              RL19
004DBE 0D84                        7196+         DC    AL2(NORMSEN-IOSBASE) SENSE ENTRY
                                   7197+**  UNIT RECORD ENTRY WITH FIFO ENQUEING
004DC0 1C62                        7198+         DC    AL2(XCPENQ-IOSBASE) FIFO QUEUE FOR UNIT RECORD RL19
004DC2 0480                        7199+         DC    AL2(XIOUR-IOSBASE) SIO CODE FOR UNIT RECORD
004DC4 0CAE                        7200+         DC    AL2(INTURT-IOSBASE) TRAP CODE FOR UNIT RECORD
004DC6 0D84                        7201+         DC    AL2(NORMSEN-IOSBASE) SENSE ENTRY
                                   7202+**   CHANNEL TABLE
004DC8                             7203+IECCST   DS    0H
004DC8 1798                        7204+         DC    AL2(INTCS0-IOSBASE) CHAN SEARCH CODE
004DCA 80                          7205+         DC    AL1(128) MASK
004DCB 01                          7206+         DC    AL1(1) CHANNEL TYPE
004DCC 17A8                        7207+         DC    AL2(INTCS1-IOSBASE) CHAN SEARCH CODE
004DCE 40                          7208+         DC    AL1(64) MASK
004DCF 03                          7209+         DC    AL1(3) CHANNEL TYPE
004DD0 17C4                        7210+         DC    AL2(INTCS2-IOSBASE) CHAN SEARCH CODE
004DD2 20                          7211+         DC    AL1(32) MASK
004DD3 03                          7212+         DC    AL1(3) CHANNEL TYPE
004DD4 17E0                        7213+         DC    AL2(INTCS3-IOSBASE) CHAN SEARCH CODE
004DD6 10                          7214+         DC    AL1(16) MASK
004DD7 03                          7215+         DC    AL1(3) CHANNEL TYPE
004DD8 0A08                        7216+         DC    AL2(INT033-IOSBASE)
004DDA 08                          7217+         DC    AL1(8) MASK
004DDB 00                          7218+         DC    X'00' FILLER
004DDC 17FC                        7219+         DC    AL2(INTCS5-IOSBASE) CHAN SEARCH CODE
004DDE 04                          7220+         DC    AL1(4) MASK
004DDF 03                          7221+         DC    AL1(3) CHANNEL TYPE
004DE0 180C                        7222+         DC    AL2(INTCS6-IOSBASE) CHAN SEARCH CODE
004DE2 02                          7223+         DC    AL1(2) MASK
004DE3 03                          7224+         DC    AL1(3) CHANNEL TYPE
004DE4 181C                        7225+         DC    AL2(INTCS7-IOSBASE) CHAN SEARCH CODE
004DE6 01                          7226+         DC    AL1(1) MASK
004DE7 03                          7227+         DC    AL1(3) CHANNEL TYPE
004DE8 0A08                        7228+         DC    AL2(INT033-IOSBASE)
004DEA 80                          7229+         DC    AL1(128) MASK
004DEB 00                          7230+         DC    X'00' FILLER
004DEC 0A08                        7231+         DC    AL2(INT033-IOSBASE)
004DEE 40                          7232+         DC    AL1(64) MASK
004DEF 00                          7233+         DC    X'00' FILLER
004DF0 0A08                        7234+         DC    AL2(INT033-IOSBASE)
004DF2 20                          7235+         DC    AL1(32) MASK
004DF3 00                          7236+         DC    X'00' FILLER
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  154


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004DF4 0A08                        7237+         DC    AL2(INT033-IOSBASE)
004DF6 10                          7238+         DC    AL1(16) MASK
004DF7 00                          7239+         DC    X'00' FILLER
004DF8 0A08                        7240+         DC    AL2(INT033-IOSBASE)
004DFA 08                          7241+         DC    AL1(8) MASK
004DFB 00                          7242+         DC    X'00' FILLER
004DFC 0A08                        7243+         DC    AL2(INT033-IOSBASE)
004DFE 04                          7244+         DC    AL1(4) MASK
004DFF 00                          7245+         DC    X'00' FILLER
004E00 0A08                        7246+         DC    AL2(INT033-IOSBASE)
004E02 02                          7247+         DC    AL1(2) MASK
004E03 00                          7248+         DC    X'00' FILLER
004E04 0A08                        7249+         DC    AL2(INT033-IOSBASE)
004E06 01                          7250+         DC    AL1(1) MASK
004E07 00                          7251+         DC    X'00' FILLER
                                   7252+*        RESTART MASK FOR GREATER THAN 7 CHANNELS
004E08 F700                        7253+RST7MSK  DC    AL2(63232)
004E0A                             7254+UCBSAVE  DS    0H
004E0A 02C802C802C802C8            7255+         DC    8Y(UCB1-IPLPSW) INITIALIZE ADDRESS
                                   7256+*   LCH TABLE
004E1A                             7257+LCHTAB   DS    0H
004E1A                             7258+IECILCH  DS    0C
                                   7259+**             CHANNEL LCHWORD
004E1A FFFF000000004C3C            7260+LCH1     DC    X'FFFF',XL4'0',AL2(XCPCH1-IPLPSW) LCHWORD
                                   7261+**             CHANNEL LCHWORD
004E22 FFFF000000004C48            7262+LCH2     DC    X'FFFF',XL4'0',AL2(XCPCH2-IPLPSW) LCHWORD
                                   7263+**             CHANNEL LCHWORD
004E2A FFFF000000004C54            7264+LCH3     DC    X'FFFF',XL4'0',AL2(XCPCH3-IPLPSW) LCHWORD
                                   7265+**             CHANNEL LCHWORD
004E32 FFFF000000004C60            7266+LCH4     DC    X'FFFF',XL4'0',AL2(XCPCH4-IPLPSW) LCHWORD
                                   7267+**             CHANNEL LCHWORD
004E3A FFFF000000004C6C            7268+LCH5     DC    X'FFFF',XL4'0',AL2(XCPCH5-IPLPSW) LCHWORD
                                   7269+**             CHANNEL LCHWORD
004E42 FFFF000000004C78            7270+LCH6     DC    X'FFFF',XL4'0',AL2(XCPCH6-IPLPSW) LCHWORD
                                   7271+**             CHANNEL LCHWORD
004E4A FFFF000000004C84            7272+LCH7     DC    X'FFFF',XL4'0',AL2(XCPCH7-IPLPSW) LCHWORD
                                   7273          AGO  .TAB1     TO FIRST UCB ADDR
                                   7274 .TAB1   ANOP         LOOK UP UCB TAB
004E52                             7275 UCBTAB   DS    0C         THIS IS THE LOOK UP TAB
004E52                             7276 IECILK1  DS    0C
                                   7277  IECULK1 30,0,0,0,0,0,1
004E52 0F                          7278+         DC    AL1(15+0) A38114
                                   7279          AGO   .TAB2     TO NEXT CHANNEL ENTRY
                                   7280 .TAB2   ANOP         LOOK UP UCB TAB
                                   7281  IECULK1 43,0,1,0,0,1,1
004E53 1C                          7282+         DC    AL1(28+0) A38114
                                   7283          AGO   .TAB3     TO NEXT CHANNEL ENTRY
                                   7284 .TAB3   ANOP         LOOK UP UCB TAB
                                   7285  IECULK1 46,1,2,0,0,1,1
004E54 1F                          7286+         DC    AL1(31+0) A38114
                                   7287          AGO   .TAB4     TO NEXT CHANNEL ENTRY
                                   7288 .TAB4   ANOP         LOOK UP UCB TAB
                                   7289  IECULK1 52,2,3,0,0,1,1
004E55 25                          7290+         DC    AL1(37+0) A38114
                                   7291          AGO   .TAB5     TO NEXT CHANNEL ENTRY
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  155


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7292 .TAB5   ANOP         LOOK UP UCB TAB
                                   7293  IECULK1 57,3,5,0,0,1,1
004E56 00                          7294+         DC    AL1(0) CHANNEL FILLER
004E57 2A                          7295+         DC    AL1(42+0) A38114
                                   7296          AGO   .TAB6     TO NEXT CHANNEL ENTRY
                                   7297 .TAB6   ANOP         LOOK UP UCB TAB
                                   7298  IECULK1 63,5,6,0,0,1,1
004E58 30                          7299+         DC    AL1(48+0) A38114
                                   7300          AGO   .TAB7     TO NEXT CHANNEL ENTRY
                                   7301 .TAB7   ANOP         LOOK UP UCB TAB
                                   7302  IECULK1 72,6,7,0,0,1,1
004E59 39                          7303+         DC    AL1(57+0) A38114
                                   7304          AGO   .TAB8     TO NEXT CHANNEL ENTRY
                                   7305 .TAB8   ANOP            LAST CHANNEL ENTRY
                                   7306   IECULK1 0,0,7,1
004E5A 00                          7307+         DC    AL1(0) CHANNEL FILL A             I267
004E5B 00                          7308+         DC    AL1(0) CHANNEL FILL A             I267
004E5C 00                          7309+         DC    AL1(0) CHANNEL FILL A             I267
004E5D 00                          7310+         DC    AL1(0) CHANNEL FILL A             I267
004E5E 00                          7311+         DC    AL1(0) CHANNEL FILL A             I267
004E5F 00                          7312+         DC    AL1(0) CHANNEL FILL A             I267
004E60 00                          7313+         DC    AL1(0) CHANNEL FILL A             I267
004E61 00                          7314+         DC    AL1(0) CHANNEL FILL A             I267
004E62 00                          7315+         DC    AL1(0) CHANNEL FILL A             I267
004E63 00                          7316+         DC    AL1(0) CHANNEL FILL A             I267
004E64 00                          7317+         DC    AL1(0) CHANNEL FILL A             I267
004E65 00                          7318+         DC    AL1(0) CHANNEL FILL A             I267
004E66 00                          7319+         DC    AL1(0) CHANNEL FILL A             I267
004E67 00                          7320+         DC    AL1(0) CHANNEL FILL A             I267
004E68 00                          7321+         DC    AL1(0) CHANNEL FILL A             I267
004E69 00                          7322+         DC    AL1(0) CHANNEL FILL A             I267
004E6A 00                          7323+         DC    AL1(0) CHANNEL FILL A             I267
004E6B 00                          7324+         DC    AL1(0) CHANNEL FILL A             I267
004E6C 00                          7325+         DC    AL1(0) CHANNEL FILL A             I267
004E6D 00                          7326+         DC    AL1(0) CHANNEL FILL A             I267
004E6E 00                          7327+         DC    AL1(0) CHANNEL FILL A             I267
004E6F 00                          7328+         DC    AL1(0) CHANNEL FILL A             I267
                                   7329          AGO   .TCU1       TO FIRST CU ENTRY
                                   7330 .TCU1   IECULK2 18,0,0,30,1,0,1
004E70 0000                        7331+         DC    AL2(0) CONTROL UNIT INDEX (SUB)   TBYT
                                   7332          AGO   .TCU2       TO NEXT ENTRY
                                   7333 .TCU2   IECULK2 32,0,1,30,0,0,0
004E72 0010                        7334+         DC    AL2(16) CONTROL UNIT INDEX         TBYT
                                   7335          AGO   .TCU3       TO NEXT ENTRY
                                   7336 .TCU3   IECULK2 34,1,2,30,0,0,0
004E74 0011                        7337+         DC    AL2(17) CONTROL UNIT INDEX         TBYT
                                   7338          AGO   .TCU4       TO NEXT ENTRY
                                   7339 .TCU4   IECULK2 66,2,9,30,0,0,0
004E76 0000                        7340+         DC    AL2(0) NORMAL FILL                TBYT
004E78 0000                        7341+         DC    AL2(0) NORMAL FILL                TBYT
004E7A 0000                        7342+         DC    AL2(0) NORMAL FILL                TBYT
004E7C 0000                        7343+         DC    AL2(0) NORMAL FILL                TBYT
004E7E 0000                        7344+         DC    AL2(0) NORMAL FILL                TBYT
004E80 0000                        7345+         DC    AL2(0) NORMAL FILL                TBYT
004E82 0021                        7346+         DC    AL2(33) CONTROL UNIT INDEX         TBYT
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  156


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7347          AGO   .TCU5       TO NEXT ENTRY
                                   7348 .TCU5   IECULK2 82,9,10,30,0,0,0
004E84 0029                        7349+         DC    AL2(41) CONTROL UNIT INDEX         TBYT
                                   7350          AGO   .TCU6       TO NEXT ENTRY
                                   7351 .TCU6   IECULK2 98,10,11,30,0,0,0
004E86 0031                        7352+         DC    AL2(49) CONTROL UNIT INDEX         TBYT
                                   7353          AGO   .TCU7       TO NEXT ENTRY
                                   7354 .TCU7   IECULK2 114,11,12,30,0,0,0
004E88 0039                        7355+         DC    AL2(57) CONTROL UNIT INDEX         TBYT
                                   7356          AGO   .TCU8       TO NEXT ENTRY
                                   7357 .TCU8   IECULK2 126,12,0,43,1,0,0
004E8A 003F                        7358+         DC    AL2(63) CONTROL UNIT INDEX         TBYT
                                   7359          AGO   .TCU9       TO NEXT ENTRY
                                   7360 .TCU9   IECULK2 130,0,1,43,0,0,0
004E8C 0041                        7361+         DC    AL2(65) CONTROL UNIT INDEX         TBYT
                                   7362          AGO   .TCU10       TO NEXT ENTRY
                                   7363 .TCU10   IECULK2 162,1,2,43,0,0,0
004E8E 0051                        7364+         DC    AL2(81) CONTROL UNIT INDEX         TBYT
                                   7365          AGO   .TCU11       TO NEXT ENTRY
                                   7366 .TCU11   IECULK2 178,2,3,43,0,0,0
004E90 0059                        7367+         DC    AL2(89) CONTROL UNIT INDEX         TBYT
                                   7368          AGO   .TCU12       TO NEXT ENTRY
                                   7369 .TCU12   IECULK2 194,3,5,43,0,0,0
004E92 0000                        7370+         DC    AL2(0) NORMAL FILL                TBYT
004E94 0061                        7371+         DC    AL2(97) CONTROL UNIT INDEX         TBYT
                                   7372          AGO   .TCU13       TO NEXT ENTRY
                                   7373 .TCU13   IECULK2 226,5,3,46,1,0,0
004E96 0071                        7374+         DC    AL2(113) CONTROL UNIT INDEX         TBYT
                                   7375          AGO   .TCU14       TO NEXT ENTRY
                                   7376 .TCU14   IECULK2 242,3,5,46,0,0,0
004E98 0000                        7377+         DC    AL2(0) NORMAL FILL                TBYT
004E9A 0079                        7378+         DC    AL2(121) CONTROL UNIT INDEX         TBYT
                                   7379          AGO   .TCU15       TO NEXT ENTRY
                                   7380 .TCU15   IECULK2 246,5,0,52,1,0,0
004E9C 007B                        7381+         DC    AL2(123) CONTROL UNIT INDEX         TBYT
                                   7382          AGO   .TCU16       TO NEXT ENTRY
                                   7383 .TCU16   IECULK2 278,0,3,52,0,0,0
004E9E 0000                        7384+         DC    AL2(0) NORMAL FILL                TBYT
004EA0 0000                        7385+         DC    AL2(0) NORMAL FILL                TBYT
004EA2 008B                        7386+         DC    AL2(139) CONTROL UNIT INDEX         TBYT
                                   7387          AGO   .TCU17       TO NEXT ENTRY
                                   7388 .TCU17   IECULK2 294,3,5,52,0,0,0
004EA4 0000                        7389+         DC    AL2(0) NORMAL FILL                TBYT
004EA6 0093                        7390+         DC    AL2(147) CONTROL UNIT INDEX         TBYT
                                   7391          AGO   .TCU18       TO NEXT ENTRY
                                   7392 .TCU18   IECULK2 326,5,12,52,0,0,0
004EA8 0000                        7393+         DC    AL2(0) NORMAL FILL                TBYT
004EAA 0000                        7394+         DC    AL2(0) NORMAL FILL                TBYT
004EAC 0000                        7395+         DC    AL2(0) NORMAL FILL                TBYT
004EAE 0000                        7396+         DC    AL2(0) NORMAL FILL                TBYT
004EB0 0000                        7397+         DC    AL2(0) NORMAL FILL                TBYT
004EB2 0000                        7398+         DC    AL2(0) NORMAL FILL                TBYT
004EB4 00A3                        7399+         DC    AL2(163) CONTROL UNIT INDEX         TBYT
                                   7400          AGO   .TCU19       TO NEXT ENTRY
                                   7401 .TCU19   IECULK2 342,12,8,57,1,0,0
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  157


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004EB6 00AB                        7402+         DC    AL2(171) CONTROL UNIT INDEX         TBYT
                                   7403          AGO   .TCU20       TO NEXT ENTRY
                                   7404 .TCU20   IECULK2 344,8,3,63,1,0,0
004EB8 00AC                        7405+         DC    AL2(172) CONTROL UNIT INDEX         TBYT
                                   7406          AGO   .TCU21       TO NEXT ENTRY
                                   7407 .TCU21   IECULK2 346,3,4,63,0,0,0
004EBA 00AD                        7408+         DC    AL2(173) CONTROL UNIT INDEX         TBYT
                                   7409          AGO   .TCU22       TO NEXT ENTRY
                                   7410 .TCU22   IECULK2 348,4,5,63,0,0,0
004EBC 00AE                        7411+         DC    AL2(174) CONTROL UNIT INDEX         TBYT
                                   7412          AGO   .TCU23       TO NEXT ENTRY
                                   7413 .TCU23   IECULK2 380,5,6,63,0,0,0
004EBE 00BE                        7414+         DC    AL2(190) CONTROL UNIT INDEX         TBYT
                                   7415          AGO   .TCU24       TO NEXT ENTRY
                                   7416 .TCU24   IECULK2 412,6,7,63,0,0,0
004EC0 00CE                        7417+         DC    AL2(206) CONTROL UNIT INDEX         TBYT
                                   7418          AGO   .TCU25       TO NEXT ENTRY
                                   7419 .TCU25   IECULK2 444,7,8,63,0,0,0
004EC2 00DE                        7420+         DC    AL2(222) CONTROL UNIT INDEX         TBYT
                                   7421          AGO   .TCU26       TO NEXT ENTRY
                                   7422 .TCU26   IECULK2 476,8,0,72,1,0,0
004EC4 00EE                        7423+         DC    AL2(238) CONTROL UNIT INDEX         TBYT
                                   7424          AGO   .TCU27       TO NEXT ENTRY
                                   7425 .TCU27   IECULK2 508,0,2,72,0,0,0
004EC6 0000                        7426+         DC    AL2(0) NORMAL FILL                TBYT
004EC8 00FE                        7427+         DC    AL2(254) CONTROL UNIT INDEX         TBYT
                                   7428          AGO   .TCU28       TO NEXT ENTRY
                                   7429 .TCU28   IECULK2 540,2,3,72,0,0,0
004ECA 010E                        7430+         DC    AL2(270) CONTROL UNIT INDEX         TBYT
                                   7431          AGO   .TCU29       TO NEXT ENTRY
                                   7432 .TCU29   IECULK2 572,3,4,72,0,0,0
004ECC 011E                        7433+         DC    AL2(286) CONTROL UNIT INDEX         TBYT
                                   7434          AGO   .TCU30       TO NEXT ENTRY
                                   7435 .TCU30   IECULK2 604,4,7,72,0,0,0
004ECE 0000                        7436+         DC    AL2(0) NORMAL FILL                TBYT
004ED0 0000                        7437+         DC    AL2(0) NORMAL FILL                TBYT
004ED2 012E                        7438+         DC    AL2(302) CONTROL UNIT INDEX         TBYT
                                   7439          AGO   .TCU31       TO NEXT ENTRY
                                   7440 .TCU31   IECULK2 636,7,8,72,0,0,0
004ED4 013E                        7441+         DC    AL2(318) CONTROL UNIT INDEX         TBYT
                                   7442          AGO   .TCU32       TO NEXT ENTRY
                                   7443 .TCU32   ANOP       LAST CU ENRY TO TABLE
                                   7444          AGO   .LST1       TO FIRST CUB ADD
                                   7445 .LST1 ANOP   UCB LOOKUP ENTRY
004ED6                             7446 LIST     DS    0H       THIS IS THE LIST OF UCB ADDS
004ED6                             7447 IECILK2  DS    0C
                                   7448          AGO   .LST2
                                   7449 .LST2 IECULK3 0,9,1,1,18,0,0,0,0,1
004ED6 0000                        7450+         DC    AL2(0) NEGATIVE FILLER
004ED8 0000                        7451+         DC    AL2(0) NEGATIVE FILLER
004EDA 0000                        7452+         DC    AL2(0) NEGATIVE FILLER
004EDC 0000                        7453+         DC    AL2(0) NEGATIVE FILLER
004EDE 0000                        7454+         DC    AL2(0) NEGATIVE FILLER
004EE0 0000                        7455+         DC    AL2(0) NEGATIVE FILLER
004EE2 0000                        7456+         DC    AL2(0) NEGATIVE FILLER
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  158


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004EE4 0000                        7457+         DC    AL2(0) NEGATIVE FILLER
004EE6 0000                        7458+         DC    AL2(0) NEGATIVE FILLER
004EE8 02C8                        7459+         DC    Y(UCB1-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7460          AGO   .LST3    TO NEXT UCB ADD RNTRY
                                   7461 .LST3 IECULK3 9,12,2,0,0,0,0,0,0,1
004EEA 0000                        7462+         DC    AL2(0) NORMAL FILL
004EEC 0000                        7463+         DC    AL2(0) NORMAL FILL
004EEE 02E4                        7464+         DC    Y(UCB2-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7465          AGO   .LST4    TO NEXT UCB ADD RNTRY
                                   7466 .LST4 IECULK3 12,13,3,0,0,0,0,0,0,1
004EF0 02FC                        7467+         DC    Y(UCB3-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7468          AGO   .LST5    TO NEXT UCB ADD RNTRY
                                   7469 .LST5 IECULK3 13,14,4,0,0,0,0,0,0,1
004EF2 0314                        7470+         DC    Y(UCB4-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7471          AGO   .LST6    TO NEXT UCB ADD RNTRY
                                   7472 .LST6 IECULK3 14,15,5,0,0,0,0,0,0,1
004EF4 0334                        7473+         DC    Y(UCB5-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7474          AGO   .LST7    TO NEXT UCB ADD RNTRY
                                   7475 .LST7 IECULK3 15,0,6,1,32,0,0,0,0,0
004EF6 0354                        7476+         DC    Y(UCB6-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7477          AGO   .LST8    TO NEXT UCB ADD RNTRY
                                   7478 .LST8 IECULK3 0,1,7,0,32,0,0,0,0,0
004EF8 037C                        7479+         DC    Y(UCB7-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7480          AGO   .LST9    TO NEXT UCB ADD RNTRY
                                   7481 .LST9 IECULK3 1,4,8,0,32,0,0,0,0,0
004EFA 0000                        7482+         DC    AL2(0) NORMAL FILL
004EFC 0000                        7483+         DC    AL2(0) NORMAL FILL
004EFE 03A4                        7484+         DC    Y(UCB8-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7485          AGO   .LST10    TO NEXT UCB ADD RNTRY
                                   7486 .LST10 IECULK3 4,15,9,0,32,0,0,0,0,0
004F00 0000                        7487+         DC    AL2(0) NORMAL FILL
004F02 0000                        7488+         DC    AL2(0) NORMAL FILL
004F04 0000                        7489+         DC    AL2(0) NORMAL FILL
004F06 0000                        7490+         DC    AL2(0) NORMAL FILL
004F08 0000                        7491+         DC    AL2(0) NORMAL FILL
004F0A 0000                        7492+         DC    AL2(0) NORMAL FILL
004F0C 0000                        7493+         DC    AL2(0) NORMAL FILL
004F0E 0000                        7494+         DC    AL2(0) NORMAL FILL
004F10 0000                        7495+         DC    AL2(0) NORMAL FILL
004F12 0000                        7496+         DC    AL2(0) NORMAL FILL
004F14 03CC                        7497+         DC    Y(UCB9-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7498          AGO   .LST11    TO NEXT UCB ADD RNTRY
                                   7499 .LST11 IECULK3 15,15,10,1,34,0,0,0,0,0
004F16 03E8                        7500+         DC    Y(UCB10-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7501          AGO   .LST12    TO NEXT UCB ADD RNTRY
                                   7502 .LST12 IECULK3 15,0,11,1,66,0,0,0,0,0
004F18 0404                        7503+         DC    Y(UCB11-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7504          AGO   .LST13    TO NEXT UCB ADD RNTRY
                                   7505 .LST13 IECULK3 0,1,12,0,66,0,0,0,0,0
004F1A 041C                        7506+         DC    Y(UCB12-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7507          AGO   .LST14    TO NEXT UCB ADD RNTRY
                                   7508 .LST14 IECULK3 1,2,13,0,66,0,0,0,0,0
004F1C 0434                        7509+         DC    Y(UCB13-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7510          AGO   .LST15    TO NEXT UCB ADD RNTRY
                                   7511 .LST15 IECULK3 2,3,14,0,66,0,0,0,0,0
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  159


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004F1E 044C                        7512+         DC    Y(UCB14-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7513          AGO   .LST16    TO NEXT UCB ADD RNTRY
                                   7514 .LST16 IECULK3 3,4,15,0,66,0,0,0,0,0
004F20 0464                        7515+         DC    Y(UCB15-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7516          AGO   .LST17    TO NEXT UCB ADD RNTRY
                                   7517 .LST17 IECULK3 4,5,16,0,66,0,0,0,0,0
004F22 047C                        7518+         DC    Y(UCB16-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7519          AGO   .LST18    TO NEXT UCB ADD RNTRY
                                   7520 .LST18 IECULK3 5,6,17,0,66,0,0,0,0,0
004F24 0494                        7521+         DC    Y(UCB17-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7522          AGO   .LST19    TO NEXT UCB ADD RNTRY
                                   7523 .LST19 IECULK3 6,7,18,0,66,0,0,0,0,0
004F26 04AC                        7524+         DC    Y(UCB18-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7525          AGO   .LST20    TO NEXT UCB ADD RNTRY
                                   7526 .LST20 IECULK3 7,0,19,1,82,0,0,0,0,0
004F28 04C4                        7527+         DC    Y(UCB19-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7528          AGO   .LST21    TO NEXT UCB ADD RNTRY
                                   7529 .LST21 IECULK3 0,1,20,0,82,0,0,0,0,0
004F2A 04DC                        7530+         DC    Y(UCB20-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7531          AGO   .LST22    TO NEXT UCB ADD RNTRY
                                   7532 .LST22 IECULK3 1,2,21,0,82,0,0,0,0,0
004F2C 04F4                        7533+         DC    Y(UCB21-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7534          AGO   .LST23    TO NEXT UCB ADD RNTRY
                                   7535 .LST23 IECULK3 2,3,22,0,82,0,0,0,0,0
004F2E 050C                        7536+         DC    Y(UCB22-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7537          AGO   .LST24    TO NEXT UCB ADD RNTRY
                                   7538 .LST24 IECULK3 3,4,23,0,82,0,0,0,0,0
004F30 0524                        7539+         DC    Y(UCB23-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7540          AGO   .LST25    TO NEXT UCB ADD RNTRY
                                   7541 .LST25 IECULK3 4,5,24,0,82,0,0,0,0,0
004F32 053C                        7542+         DC    Y(UCB24-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7543          AGO   .LST26    TO NEXT UCB ADD RNTRY
                                   7544 .LST26 IECULK3 5,6,25,0,82,0,0,0,0,0
004F34 0554                        7545+         DC    Y(UCB25-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7546          AGO   .LST27    TO NEXT UCB ADD RNTRY
                                   7547 .LST27 IECULK3 6,7,26,0,82,0,0,0,0,0
004F36 056C                        7548+         DC    Y(UCB26-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7549          AGO   .LST28    TO NEXT UCB ADD RNTRY
                                   7550 .LST28 IECULK3 7,0,27,1,98,0,0,0,0,0
004F38 0584                        7551+         DC    Y(UCB27-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7552          AGO   .LST29    TO NEXT UCB ADD RNTRY
                                   7553 .LST29 IECULK3 0,1,28,0,98,0,0,0,0,0
004F3A 059C                        7554+         DC    Y(UCB28-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7555          AGO   .LST30    TO NEXT UCB ADD RNTRY
                                   7556 .LST30 IECULK3 1,2,29,0,98,0,0,0,0,0
004F3C 05B4                        7557+         DC    Y(UCB29-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7558          AGO   .LST31    TO NEXT UCB ADD RNTRY
                                   7559 .LST31 IECULK3 2,3,30,0,98,0,0,0,0,0
004F3E 05CC                        7560+         DC    Y(UCB30-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7561          AGO   .LST32    TO NEXT UCB ADD RNTRY
                                   7562 .LST32 IECULK3 3,4,31,0,98,0,0,0,0,0
004F40 05E4                        7563+         DC    Y(UCB31-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7564          AGO   .LST33    TO NEXT UCB ADD RNTRY
                                   7565 .LST33 IECULK3 4,5,32,0,98,0,0,0,0,0
004F42 05FC                        7566+         DC    Y(UCB32-IPLPSW) UCB ADDRESS ENTRY           IMP3
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  160


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7567          AGO   .LST34    TO NEXT UCB ADD RNTRY
                                   7568 .LST34 IECULK3 5,6,33,0,98,0,0,0,0,0
004F44 0614                        7569+         DC    Y(UCB33-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7570          AGO   .LST35    TO NEXT UCB ADD RNTRY
                                   7571 .LST35 IECULK3 6,7,34,0,98,0,0,0,0,0
004F46 062C                        7572+         DC    Y(UCB34-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7573          AGO   .LST36    TO NEXT UCB ADD RNTRY
                                   7574 .LST36 IECULK3 7,0,35,1,114,0,0,0,0,0
004F48 0644                        7575+         DC    Y(UCB35-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7576          AGO   .LST37    TO NEXT UCB ADD RNTRY
                                   7577 .LST37 IECULK3 0,1,36,0,114,0,0,0,0,0
004F4A 066C                        7578+         DC    Y(UCB36-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7579          AGO   .LST38    TO NEXT UCB ADD RNTRY
                                   7580 .LST38 IECULK3 1,2,37,0,114,0,0,0,0,0
004F4C 0694                        7581+         DC    Y(UCB37-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7582          AGO   .LST39    TO NEXT UCB ADD RNTRY
                                   7583 .LST39 IECULK3 2,3,38,0,114,0,0,0,0,0
004F4E 06BC                        7584+         DC    Y(UCB38-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7585          AGO   .LST40    TO NEXT UCB ADD RNTRY
                                   7586 .LST40 IECULK3 3,4,39,0,114,0,0,0,0,0
004F50 06E4                        7587+         DC    Y(UCB39-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7588          AGO   .LST41    TO NEXT UCB ADD RNTRY
                                   7589 .LST41 IECULK3 4,5,40,0,114,0,0,0,0,0
004F52 070C                        7590+         DC    Y(UCB40-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7591          AGO   .LST42    TO NEXT UCB ADD RNTRY
                                   7592 .LST42 IECULK3 5,6,41,0,114,0,0,0,0,0
004F54 0734                        7593+         DC    Y(UCB41-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7594          AGO   .LST43    TO NEXT UCB ADD RNTRY
                                   7595 .LST43 IECULK3 6,7,42,0,114,0,0,0,0,0
004F56 075C                        7596+         DC    Y(UCB42-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7597          AGO   .LST44    TO NEXT UCB ADD RNTRY
                                   7598 .LST44 IECULK3 7,2,43,1,126,0,1,0,0,0
004F58 0784                        7599+         DC    Y(UCB43-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7600          AGO   .LST45    TO NEXT UCB ADD RNTRY
                                   7601 .LST45 IECULK3 2,3,44,0,126,0,1,0,0,0
004F5A 07A4                        7602+         DC    Y(UCB44-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7603          AGO   .LST46    TO NEXT UCB ADD RNTRY
                                   7604 .LST46 IECULK3 3,12,45,0,126,0,1,0,0,0
004F5C 0000                        7605+         DC    AL2(0) NORMAL FILL
004F5E 0000                        7606+         DC    AL2(0) NORMAL FILL
004F60 0000                        7607+         DC    AL2(0) NORMAL FILL
004F62 0000                        7608+         DC    AL2(0) NORMAL FILL
004F64 0000                        7609+         DC    AL2(0) NORMAL FILL
004F66 0000                        7610+         DC    AL2(0) NORMAL FILL
004F68 0000                        7611+         DC    AL2(0) NORMAL FILL
004F6A 0000                        7612+         DC    AL2(0) NORMAL FILL
004F6C 07C4                        7613+         DC    Y(UCB45-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7614          AGO   .LST47    TO NEXT UCB ADD RNTRY
                                   7615 .LST47 IECULK3 12,13,46,0,126,0,1,0,0,0
004F6E 07DC                        7616+         DC    Y(UCB46-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7617          AGO   .LST48    TO NEXT UCB ADD RNTRY
                                   7618 .LST48 IECULK3 13,14,47,0,126,0,1,0,0,0
004F70 07F4                        7619+         DC    Y(UCB47-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7620          AGO   .LST49    TO NEXT UCB ADD RNTRY
                                   7621 .LST49 IECULK3 14,15,48,0,126,0,1,0,0,0
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  161


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004F72 0814                        7622+         DC    Y(UCB48-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7623          AGO   .LST50    TO NEXT UCB ADD RNTRY
                                   7624 .LST50 IECULK3 15,14,49,1,130,0,1,0,0,0
004F74 0834                        7625+         DC    Y(UCB49-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7626          AGO   .LST51    TO NEXT UCB ADD RNTRY
                                   7627 .LST51 IECULK3 14,15,50,0,130,0,1,0,0,0
004F76 084C                        7628+         DC    Y(UCB50-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7629          AGO   .LST52    TO NEXT UCB ADD RNTRY
                                   7630 .LST52 IECULK3 15,0,51,1,162,0,1,0,1,0
004F78 0864                        7631+         DC    Y(UCB51-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7632          AGO   .LST53    TO NEXT UCB ADD RNTRY
                                   7633 .LST53 IECULK3 0,1,52,0,162,0,1,1,1,0
004F7A 08A4                        7634+         DC    Y(UCB52-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7635          AGO   .LST54    TO NEXT UCB ADD RNTRY
                                   7636 .LST54 IECULK3 1,2,53,0,162,0,1,2,1,0
004F7C 08E4                        7637+         DC    Y(UCB53-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7638          AGO   .LST55    TO NEXT UCB ADD RNTRY
                                   7639 .LST55 IECULK3 2,3,54,0,162,0,1,3,1,0
004F7E 0924                        7640+         DC    Y(UCB54-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7641          AGO   .LST56    TO NEXT UCB ADD RNTRY
                                   7642 .LST56 IECULK3 3,4,55,0,162,0,1,4,1,0
004F80 0964                        7643+         DC    Y(UCB55-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7644          AGO   .LST57    TO NEXT UCB ADD RNTRY
                                   7645 .LST57 IECULK3 4,5,56,0,162,0,1,5,1,0
004F82 09A4                        7646+         DC    Y(UCB56-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7647          AGO   .LST58    TO NEXT UCB ADD RNTRY
                                   7648 .LST58 IECULK3 5,6,57,0,162,0,1,6,1,0
004F84 09E4                        7649+         DC    Y(UCB57-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7650          AGO   .LST59    TO NEXT UCB ADD RNTRY
                                   7651 .LST59 IECULK3 6,7,58,0,162,0,1,7,1,0
004F86 0A24                        7652+         DC    Y(UCB58-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7653          AGO   .LST60    TO NEXT UCB ADD RNTRY
                                   7654 .LST60 IECULK3 7,0,59,1,178,0,1,8,1,0
004F88 0A64                        7655+         DC    Y(UCB59-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7656          AGO   .LST61    TO NEXT UCB ADD RNTRY
                                   7657 .LST61 IECULK3 0,1,60,0,178,0,1,9,1,0
004F8A 0AA4                        7658+         DC    Y(UCB60-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7659          AGO   .LST62    TO NEXT UCB ADD RNTRY
                                   7660 .LST62 IECULK3 1,2,61,0,178,0,1,10,1,0
004F8C 0AE4                        7661+         DC    Y(UCB61-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7662          AGO   .LST63    TO NEXT UCB ADD RNTRY
                                   7663 .LST63 IECULK3 2,3,62,0,178,0,1,11,1,0
004F8E 0B24                        7664+         DC    Y(UCB62-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7665          AGO   .LST64    TO NEXT UCB ADD RNTRY
                                   7666 .LST64 IECULK3 3,4,63,0,178,0,1,12,1,0
004F90 0B64                        7667+         DC    Y(UCB63-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7668          AGO   .LST65    TO NEXT UCB ADD RNTRY
                                   7669 .LST65 IECULK3 4,5,64,0,178,0,1,13,1,0
004F92 0BA4                        7670+         DC    Y(UCB64-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7671          AGO   .LST66    TO NEXT UCB ADD RNTRY
                                   7672 .LST66 IECULK3 5,6,65,0,178,0,1,14,1,0
004F94 0BE4                        7673+         DC    Y(UCB65-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7674          AGO   .LST67    TO NEXT UCB ADD RNTRY
                                   7675 .LST67 IECULK3 6,7,66,0,178,0,1,15,1,0
004F96 0C24                        7676+         DC    Y(UCB66-IPLPSW) UCB ADDRESS ENTRY           IMP3
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  162


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7677          AGO   .LST68    TO NEXT UCB ADD RNTRY
                                   7678 .LST68 IECULK3 7,0,67,1,194,0,1,16,1,0
004F98 0C64                        7679+         DC    Y(UCB67-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7680          AGO   .LST69    TO NEXT UCB ADD RNTRY
                                   7681 .LST69 IECULK3 0,1,68,0,194,0,1,16,1,0
004F9A 0CA4                        7682+         DC    Y(UCB68-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7683          AGO   .LST70    TO NEXT UCB ADD RNTRY
                                   7684 .LST70 IECULK3 1,2,69,0,194,0,1,16,1,0
004F9C 0CE4                        7685+         DC    Y(UCB69-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7686          AGO   .LST71    TO NEXT UCB ADD RNTRY
                                   7687 .LST71 IECULK3 2,3,70,0,194,0,1,16,1,0
004F9E 0D24                        7688+         DC    Y(UCB70-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7689          AGO   .LST72    TO NEXT UCB ADD RNTRY
                                   7690 .LST72 IECULK3 3,4,71,0,194,0,1,16,1,0
004FA0 0D64                        7691+         DC    Y(UCB71-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7692          AGO   .LST73    TO NEXT UCB ADD RNTRY
                                   7693 .LST73 IECULK3 4,5,72,0,194,0,1,16,1,0
004FA2 0DA4                        7694+         DC    Y(UCB72-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7695          AGO   .LST74    TO NEXT UCB ADD RNTRY
                                   7696 .LST74 IECULK3 5,6,73,0,194,0,1,16,1,0
004FA4 0DE4                        7697+         DC    Y(UCB73-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7698          AGO   .LST75    TO NEXT UCB ADD RNTRY
                                   7699 .LST75 IECULK3 6,7,74,0,194,0,1,16,1,0
004FA6 0E24                        7700+         DC    Y(UCB74-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7701          AGO   .LST76    TO NEXT UCB ADD RNTRY
                                   7702 .LST76 IECULK3 7,8,75,0,194,0,1,16,1,0
004FA8 0E64                        7703+         DC    Y(UCB75-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7704          AGO   .LST77    TO NEXT UCB ADD RNTRY
                                   7705 .LST77 IECULK3 8,9,76,0,194,0,1,16,1,0
004FAA 0EA4                        7706+         DC    Y(UCB76-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7707          AGO   .LST78    TO NEXT UCB ADD RNTRY
                                   7708 .LST78 IECULK3 9,10,77,0,194,0,1,16,1,0
004FAC 0EE4                        7709+         DC    Y(UCB77-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7710          AGO   .LST79    TO NEXT UCB ADD RNTRY
                                   7711 .LST79 IECULK3 10,11,78,0,194,0,1,16,1,0
004FAE 0F24                        7712+         DC    Y(UCB78-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7713          AGO   .LST80    TO NEXT UCB ADD RNTRY
                                   7714 .LST80 IECULK3 11,12,79,0,194,0,1,16,1,0
004FB0 0F64                        7715+         DC    Y(UCB79-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7716          AGO   .LST81    TO NEXT UCB ADD RNTRY
                                   7717 .LST81 IECULK3 12,13,80,0,194,0,1,16,1,0
004FB2 0FA4                        7718+         DC    Y(UCB80-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7719          AGO   .LST82    TO NEXT UCB ADD RNTRY
                                   7720 .LST82 IECULK3 13,14,81,0,194,0,1,16,1,0
004FB4 0FE4                        7721+         DC    Y(UCB81-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7722          AGO   .LST83    TO NEXT UCB ADD RNTRY
                                   7723 .LST83 IECULK3 14,15,82,0,194,0,1,16,1,0
004FB6 1024                        7724+         DC    Y(UCB82-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7725          AGO   .LST84    TO NEXT UCB ADD RNTRY
                                   7726 .LST84 IECULK3 15,0,83,1,226,0,2,0,1,0
004FB8 1064                        7727+         DC    Y(UCB83-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7728          AGO   .LST85    TO NEXT UCB ADD RNTRY
                                   7729 .LST85 IECULK3 0,1,84,0,226,0,2,1,1,0
004FBA 10A4                        7730+         DC    Y(UCB84-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7731          AGO   .LST86    TO NEXT UCB ADD RNTRY
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  163


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7732 .LST86 IECULK3 1,2,85,0,226,0,2,2,1,0
004FBC 10E4                        7733+         DC    Y(UCB85-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7734          AGO   .LST87    TO NEXT UCB ADD RNTRY
                                   7735 .LST87 IECULK3 2,3,86,0,226,0,2,3,1,0
004FBE 1124                        7736+         DC    Y(UCB86-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7737          AGO   .LST88    TO NEXT UCB ADD RNTRY
                                   7738 .LST88 IECULK3 3,4,87,0,226,0,2,4,1,0
004FC0 1164                        7739+         DC    Y(UCB87-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7740          AGO   .LST89    TO NEXT UCB ADD RNTRY
                                   7741 .LST89 IECULK3 4,5,88,0,226,0,2,5,1,0
004FC2 11A4                        7742+         DC    Y(UCB88-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7743          AGO   .LST90    TO NEXT UCB ADD RNTRY
                                   7744 .LST90 IECULK3 5,6,89,0,226,0,2,6,1,0
004FC4 11E4                        7745+         DC    Y(UCB89-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7746          AGO   .LST91    TO NEXT UCB ADD RNTRY
                                   7747 .LST91 IECULK3 6,7,90,0,226,0,2,7,1,0
004FC6 1224                        7748+         DC    Y(UCB90-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7749          AGO   .LST92    TO NEXT UCB ADD RNTRY
                                   7750 .LST92 IECULK3 7,0,91,1,242,0,2,8,1,0
004FC8 1264                        7751+         DC    Y(UCB91-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7752          AGO   .LST93    TO NEXT UCB ADD RNTRY
                                   7753 .LST93 IECULK3 0,1,92,0,242,0,2,8,1,0
004FCA 12A4                        7754+         DC    Y(UCB92-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7755          AGO   .LST94    TO NEXT UCB ADD RNTRY
                                   7756 .LST94 IECULK3 1,2,93,0,242,0,2,8,1,0
004FCC 12E4                        7757+         DC    Y(UCB93-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7758          AGO   .LST95    TO NEXT UCB ADD RNTRY
                                   7759 .LST95 IECULK3 2,3,94,0,242,0,2,8,1,0
004FCE 1324                        7760+         DC    Y(UCB94-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7761          AGO   .LST96    TO NEXT UCB ADD RNTRY
                                   7762 .LST96 IECULK3 3,4,95,0,242,0,2,8,1,0
004FD0 1364                        7763+         DC    Y(UCB95-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7764          AGO   .LST97    TO NEXT UCB ADD RNTRY
                                   7765 .LST97 IECULK3 4,5,96,0,242,0,2,8,1,0
004FD2 13A4                        7766+         DC    Y(UCB96-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7767          AGO   .LST98    TO NEXT UCB ADD RNTRY
                                   7768 .LST98 IECULK3 5,6,97,0,242,0,2,8,1,0
004FD4 13E4                        7769+         DC    Y(UCB97-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7770          AGO   .LST99    TO NEXT UCB ADD RNTRY
                                   7771 .LST99 IECULK3 6,7,98,0,242,0,2,8,1,0
004FD6 1424                        7772+         DC    Y(UCB98-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7773          AGO   .LST100    TO NEXT UCB ADD RNTRY
                                   7774 .LST100 IECULK3 7,8,99,0,242,0,2,8,1,0
004FD8 1464                        7775+         DC    Y(UCB99-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7776          AGO   .LST101    TO NEXT UCB ADD RNTRY
                                   7777 .LST101 IECULK3 8,9,100,0,242,0,2,8,1,0
004FDA 14A4                        7778+         DC    Y(UCB100-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7779          AGO   .LST102    TO NEXT UCB ADD RNTRY
                                   7780 .LST102 IECULK3 9,10,101,0,242,0,2,8,1,0
004FDC 14E4                        7781+         DC    Y(UCB101-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7782          AGO   .LST103    TO NEXT UCB ADD RNTRY
                                   7783 .LST103 IECULK3 10,11,102,0,242,0,2,8,1,0
004FDE 1524                        7784+         DC    Y(UCB102-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7785          AGO   .LST104    TO NEXT UCB ADD RNTRY
                                   7786 .LST104 IECULK3 11,12,103,0,242,0,2,8,1,0
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  164


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

004FE0 1564                        7787+         DC    Y(UCB103-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7788          AGO   .LST105    TO NEXT UCB ADD RNTRY
                                   7789 .LST105 IECULK3 12,13,104,0,242,0,2,8,1,0
004FE2 15A4                        7790+         DC    Y(UCB104-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7791          AGO   .LST106    TO NEXT UCB ADD RNTRY
                                   7792 .LST106 IECULK3 13,14,105,0,242,0,2,8,1,0
004FE4 15E4                        7793+         DC    Y(UCB105-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7794          AGO   .LST107    TO NEXT UCB ADD RNTRY
                                   7795 .LST107 IECULK3 14,15,106,0,242,0,2,8,1,0
004FE6 1624                        7796+         DC    Y(UCB106-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7797          AGO   .LST108    TO NEXT UCB ADD RNTRY
                                   7798 .LST108 IECULK3 15,14,107,1,246,0,3,0,0,0
004FE8 1664                        7799+         DC    Y(UCB107-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7800          AGO   .LST109    TO NEXT UCB ADD RNTRY
                                   7801 .LST109 IECULK3 14,15,108,0,246,0,3,0,0,0
004FEA 1684                        7802+         DC    Y(UCB108-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7803          AGO   .LST110    TO NEXT UCB ADD RNTRY
                                   7804 .LST110 IECULK3 15,0,109,1,278,0,3,0,1,0
004FEC 16A4                        7805+         DC    Y(UCB109-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7806          AGO   .LST111    TO NEXT UCB ADD RNTRY
                                   7807 .LST111 IECULK3 0,1,110,0,278,0,3,1,1,0
004FEE 16E4                        7808+         DC    Y(UCB110-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7809          AGO   .LST112    TO NEXT UCB ADD RNTRY
                                   7810 .LST112 IECULK3 1,2,111,0,278,0,3,2,1,0
004FF0 1724                        7811+         DC    Y(UCB111-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7812          AGO   .LST113    TO NEXT UCB ADD RNTRY
                                   7813 .LST113 IECULK3 2,3,112,0,278,0,3,3,1,0
004FF2 1764                        7814+         DC    Y(UCB112-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7815          AGO   .LST114    TO NEXT UCB ADD RNTRY
                                   7816 .LST114 IECULK3 3,4,113,0,278,0,3,4,1,0
004FF4 17A4                        7817+         DC    Y(UCB113-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7818          AGO   .LST115    TO NEXT UCB ADD RNTRY
                                   7819 .LST115 IECULK3 4,5,114,0,278,0,3,5,1,0
004FF6 17E4                        7820+         DC    Y(UCB114-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7821          AGO   .LST116    TO NEXT UCB ADD RNTRY
                                   7822 .LST116 IECULK3 5,6,115,0,278,0,3,6,1,0
004FF8 1824                        7823+         DC    Y(UCB115-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7824          AGO   .LST117    TO NEXT UCB ADD RNTRY
                                   7825 .LST117 IECULK3 6,7,116,0,278,0,3,7,1,0
004FFA 1864                        7826+         DC    Y(UCB116-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7827          AGO   .LST118    TO NEXT UCB ADD RNTRY
                                   7828 .LST118 IECULK3 7,0,117,1,294,0,3,8,1,0
004FFC 18A4                        7829+         DC    Y(UCB117-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7830          AGO   .LST119    TO NEXT UCB ADD RNTRY
                                   7831 .LST119 IECULK3 0,1,118,0,294,0,3,8,1,0
004FFE 18E4                        7832+         DC    Y(UCB118-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7833          AGO   .LST120    TO NEXT UCB ADD RNTRY
                                   7834 .LST120 IECULK3 1,2,119,0,294,0,3,8,1,0
005000 1924                        7835+         DC    Y(UCB119-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7836          AGO   .LST121    TO NEXT UCB ADD RNTRY
                                   7837 .LST121 IECULK3 2,3,120,0,294,0,3,8,1,0
005002 1964                        7838+         DC    Y(UCB120-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7839          AGO   .LST122    TO NEXT UCB ADD RNTRY
                                   7840 .LST122 IECULK3 3,4,121,0,294,0,3,8,1,0
005004 19A4                        7841+         DC    Y(UCB121-IPLPSW) UCB ADDRESS ENTRY           IMP3
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  165


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7842          AGO   .LST123    TO NEXT UCB ADD RNTRY
                                   7843 .LST123 IECULK3 4,5,122,0,294,0,3,8,1,0
005006 19E4                        7844+         DC    Y(UCB122-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7845          AGO   .LST124    TO NEXT UCB ADD RNTRY
                                   7846 .LST124 IECULK3 5,6,123,0,294,0,3,8,1,0
005008 1A24                        7847+         DC    Y(UCB123-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7848          AGO   .LST125    TO NEXT UCB ADD RNTRY
                                   7849 .LST125 IECULK3 6,7,124,0,294,0,3,8,1,0
00500A 1A64                        7850+         DC    Y(UCB124-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7851          AGO   .LST126    TO NEXT UCB ADD RNTRY
                                   7852 .LST126 IECULK3 7,8,125,0,294,0,3,8,1,0
00500C 1AA4                        7853+         DC    Y(UCB125-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7854          AGO   .LST127    TO NEXT UCB ADD RNTRY
                                   7855 .LST127 IECULK3 8,9,126,0,294,0,3,8,1,0
00500E 1AE4                        7856+         DC    Y(UCB126-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7857          AGO   .LST128    TO NEXT UCB ADD RNTRY
                                   7858 .LST128 IECULK3 9,10,127,0,294,0,3,8,1,0
005010 1B24                        7859+         DC    Y(UCB127-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7860          AGO   .LST129    TO NEXT UCB ADD RNTRY
                                   7861 .LST129 IECULK3 10,11,128,0,294,0,3,8,1,0
005012 1B64                        7862+         DC    Y(UCB128-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7863          AGO   .LST130    TO NEXT UCB ADD RNTRY
                                   7864 .LST130 IECULK3 11,12,129,0,294,0,3,8,1,0
005014 1BA4                        7865+         DC    Y(UCB129-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7866          AGO   .LST131    TO NEXT UCB ADD RNTRY
                                   7867 .LST131 IECULK3 12,13,130,0,294,0,3,8,1,0
005016 1BE4                        7868+         DC    Y(UCB130-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7869          AGO   .LST132    TO NEXT UCB ADD RNTRY
                                   7870 .LST132 IECULK3 13,14,131,0,294,0,3,8,1,0
005018 1C24                        7871+         DC    Y(UCB131-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7872          AGO   .LST133    TO NEXT UCB ADD RNTRY
                                   7873 .LST133 IECULK3 14,15,132,0,294,0,3,8,1,0
00501A 1C64                        7874+         DC    Y(UCB132-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7875          AGO   .LST134    TO NEXT UCB ADD RNTRY
                                   7876 .LST134 IECULK3 15,0,133,1,326,0,3,8,0,0
00501C 1CA4                        7877+         DC    Y(UCB133-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7878          AGO   .LST135    TO NEXT UCB ADD RNTRY
                                   7879 .LST135 IECULK3 0,1,134,0,326,0,3,8,0,0
00501E 1CCC                        7880+         DC    Y(UCB134-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7881          AGO   .LST136    TO NEXT UCB ADD RNTRY
                                   7882 .LST136 IECULK3 1,2,135,0,326,0,3,8,0,0
005020 1CF4                        7883+         DC    Y(UCB135-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7884          AGO   .LST137    TO NEXT UCB ADD RNTRY
                                   7885 .LST137 IECULK3 2,3,136,0,326,0,3,8,0,0
005022 1D1C                        7886+         DC    Y(UCB136-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7887          AGO   .LST138    TO NEXT UCB ADD RNTRY
                                   7888 .LST138 IECULK3 3,4,137,0,326,0,3,8,0,0
005024 1D44                        7889+         DC    Y(UCB137-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7890          AGO   .LST139    TO NEXT UCB ADD RNTRY
                                   7891 .LST139 IECULK3 4,5,138,0,326,0,3,8,0,0
005026 1D6C                        7892+         DC    Y(UCB138-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7893          AGO   .LST140    TO NEXT UCB ADD RNTRY
                                   7894 .LST140 IECULK3 5,6,139,0,326,0,3,8,0,0
005028 1D94                        7895+         DC    Y(UCB139-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7896          AGO   .LST141    TO NEXT UCB ADD RNTRY
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  166


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7897 .LST141 IECULK3 6,7,140,0,326,0,3,8,0,0
00502A 1DBC                        7898+         DC    Y(UCB140-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7899          AGO   .LST142    TO NEXT UCB ADD RNTRY
                                   7900 .LST142 IECULK3 7,0,141,1,342,0,5,0,0,0
00502C 1DE4                        7901+         DC    Y(UCB141-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7902          AGO   .LST143    TO NEXT UCB ADD RNTRY
                                   7903 .LST143 IECULK3 0,1,142,0,342,0,5,1,0,0
00502E 1E18                        7904+         DC    Y(UCB142-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7905          AGO   .LST144    TO NEXT UCB ADD RNTRY
                                   7906 .LST144 IECULK3 1,2,143,0,342,0,5,2,0,0
005030 1E4C                        7907+         DC    Y(UCB143-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7908          AGO   .LST145    TO NEXT UCB ADD RNTRY
                                   7909 .LST145 IECULK3 2,3,144,0,342,0,5,3,0,0
005032 1E80                        7910+         DC    Y(UCB144-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7911          AGO   .LST146    TO NEXT UCB ADD RNTRY
                                   7912 .LST146 IECULK3 3,4,145,0,342,0,5,4,0,0
005034 1EB4                        7913+         DC    Y(UCB145-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7914          AGO   .LST147    TO NEXT UCB ADD RNTRY
                                   7915 .LST147 IECULK3 4,5,146,0,342,0,5,5,0,0
005036 1EE8                        7916+         DC    Y(UCB146-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7917          AGO   .LST148    TO NEXT UCB ADD RNTRY
                                   7918 .LST148 IECULK3 5,6,147,0,342,0,5,6,0,0
005038 1F1C                        7919+         DC    Y(UCB147-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7920          AGO   .LST149    TO NEXT UCB ADD RNTRY
                                   7921 .LST149 IECULK3 6,7,148,0,342,0,5,7,0,0
00503A 1F50                        7922+         DC    Y(UCB148-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7923          AGO   .LST150    TO NEXT UCB ADD RNTRY
                                   7924 .LST150 IECULK3 7,8,149,0,342,0,5,8,0,0
00503C 1F84                        7925+         DC    Y(UCB149-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7926          AGO   .LST151    TO NEXT UCB ADD RNTRY
                                   7927 .LST151 IECULK3 8,9,150,0,342,0,5,9,0,0
00503E 1FB8                        7928+         DC    Y(UCB150-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7929          AGO   .LST152    TO NEXT UCB ADD RNTRY
                                   7930 .LST152 IECULK3 9,10,151,0,342,0,5,10,0,0
005040 1FEC                        7931+         DC    Y(UCB151-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7932          AGO   .LST153    TO NEXT UCB ADD RNTRY
                                   7933 .LST153 IECULK3 10,11,152,0,342,0,5,11,0,0
005042 2020                        7934+         DC    Y(UCB152-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7935          AGO   .LST154    TO NEXT UCB ADD RNTRY
                                   7936 .LST154 IECULK3 11,12,153,0,342,0,5,12,0,0
005044 2054                        7937+         DC    Y(UCB153-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7938          AGO   .LST155    TO NEXT UCB ADD RNTRY
                                   7939 .LST155 IECULK3 12,13,154,0,342,0,5,13,0,0
005046 2088                        7940+         DC    Y(UCB154-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7941          AGO   .LST156    TO NEXT UCB ADD RNTRY
                                   7942 .LST156 IECULK3 13,14,155,0,342,0,5,14,0,0
005048 20BC                        7943+         DC    Y(UCB155-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7944          AGO   .LST157    TO NEXT UCB ADD RNTRY
                                   7945 .LST157 IECULK3 14,15,156,0,342,0,5,15,0,0
00504A 20F0                        7946+         DC    Y(UCB156-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7947          AGO   .LST158    TO NEXT UCB ADD RNTRY
                                   7948 .LST158 IECULK3 15,15,157,1,344,0,6,0,0,0
00504C 2124                        7949+         DC    Y(UCB157-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7950          AGO   .LST159    TO NEXT UCB ADD RNTRY
                                   7951 .LST159 IECULK3 15,15,158,1,346,0,6,1,0,0
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  167


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00504E 2158                        7952+         DC    Y(UCB158-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7953          AGO   .LST160    TO NEXT UCB ADD RNTRY
                                   7954 .LST160 IECULK3 15,15,159,1,348,0,6,2,0,0
005050 218C                        7955+         DC    Y(UCB159-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7956          AGO   .LST161    TO NEXT UCB ADD RNTRY
                                   7957 .LST161 IECULK3 15,0,160,1,380,0,6,3,0,0
005052 21C0                        7958+         DC    Y(UCB160-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7959          AGO   .LST162    TO NEXT UCB ADD RNTRY
                                   7960 .LST162 IECULK3 0,1,161,0,380,0,6,4,0,0
005054 21F4                        7961+         DC    Y(UCB161-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7962          AGO   .LST163    TO NEXT UCB ADD RNTRY
                                   7963 .LST163 IECULK3 1,2,162,0,380,0,6,5,0,0
005056 2228                        7964+         DC    Y(UCB162-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7965          AGO   .LST164    TO NEXT UCB ADD RNTRY
                                   7966 .LST164 IECULK3 2,3,163,0,380,0,6,6,0,0
005058 225C                        7967+         DC    Y(UCB163-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7968          AGO   .LST165    TO NEXT UCB ADD RNTRY
                                   7969 .LST165 IECULK3 3,4,164,0,380,0,6,7,0,0
00505A 2290                        7970+         DC    Y(UCB164-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7971          AGO   .LST166    TO NEXT UCB ADD RNTRY
                                   7972 .LST166 IECULK3 4,5,165,0,380,0,6,8,0,0
00505C 22C4                        7973+         DC    Y(UCB165-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7974          AGO   .LST167    TO NEXT UCB ADD RNTRY
                                   7975 .LST167 IECULK3 5,6,166,0,380,0,6,9,0,0
00505E 22F8                        7976+         DC    Y(UCB166-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7977          AGO   .LST168    TO NEXT UCB ADD RNTRY
                                   7978 .LST168 IECULK3 6,7,167,0,380,0,6,10,0,0
005060 232C                        7979+         DC    Y(UCB167-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7980          AGO   .LST169    TO NEXT UCB ADD RNTRY
                                   7981 .LST169 IECULK3 7,8,168,0,380,0,6,11,0,0
005062 2360                        7982+         DC    Y(UCB168-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7983          AGO   .LST170    TO NEXT UCB ADD RNTRY
                                   7984 .LST170 IECULK3 8,9,169,0,380,0,6,12,0,0
005064 2394                        7985+         DC    Y(UCB169-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7986          AGO   .LST171    TO NEXT UCB ADD RNTRY
                                   7987 .LST171 IECULK3 9,10,170,0,380,0,6,13,0,0
005066 23C8                        7988+         DC    Y(UCB170-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7989          AGO   .LST172    TO NEXT UCB ADD RNTRY
                                   7990 .LST172 IECULK3 10,11,171,0,380,0,6,14,0,0
005068 23FC                        7991+         DC    Y(UCB171-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7992          AGO   .LST173    TO NEXT UCB ADD RNTRY
                                   7993 .LST173 IECULK3 11,12,172,0,380,0,6,15,0,0
00506A 2430                        7994+         DC    Y(UCB172-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7995          AGO   .LST174    TO NEXT UCB ADD RNTRY
                                   7996 .LST174 IECULK3 12,13,173,0,380,0,6,16,0,0
00506C 2464                        7997+         DC    Y(UCB173-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   7998          AGO   .LST175    TO NEXT UCB ADD RNTRY
                                   7999 .LST175 IECULK3 13,14,174,0,380,0,6,17,0,0
00506E 2498                        8000+         DC    Y(UCB174-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8001          AGO   .LST176    TO NEXT UCB ADD RNTRY
                                   8002 .LST176 IECULK3 14,15,175,0,380,0,6,18,0,0
005070 24CC                        8003+         DC    Y(UCB175-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8004          AGO   .LST177    TO NEXT UCB ADD RNTRY
                                   8005 .LST177 IECULK3 15,0,176,1,412,0,6,19,0,0
005072 2500                        8006+         DC    Y(UCB176-IPLPSW) UCB ADDRESS ENTRY           IMP3
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  168


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8007          AGO   .LST178    TO NEXT UCB ADD RNTRY
                                   8008 .LST178 IECULK3 0,1,177,0,412,0,6,20,0,0
005074 2534                        8009+         DC    Y(UCB177-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8010          AGO   .LST179    TO NEXT UCB ADD RNTRY
                                   8011 .LST179 IECULK3 1,2,178,0,412,0,6,21,0,0
005076 2568                        8012+         DC    Y(UCB178-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8013          AGO   .LST180    TO NEXT UCB ADD RNTRY
                                   8014 .LST180 IECULK3 2,3,179,0,412,0,6,22,0,0
005078 259C                        8015+         DC    Y(UCB179-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8016          AGO   .LST181    TO NEXT UCB ADD RNTRY
                                   8017 .LST181 IECULK3 3,4,180,0,412,0,6,23,0,0
00507A 25D0                        8018+         DC    Y(UCB180-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8019          AGO   .LST182    TO NEXT UCB ADD RNTRY
                                   8020 .LST182 IECULK3 4,5,181,0,412,0,6,24,0,0
00507C 2604                        8021+         DC    Y(UCB181-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8022          AGO   .LST183    TO NEXT UCB ADD RNTRY
                                   8023 .LST183 IECULK3 5,6,182,0,412,0,6,25,0,0
00507E 2638                        8024+         DC    Y(UCB182-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8025          AGO   .LST184    TO NEXT UCB ADD RNTRY
                                   8026 .LST184 IECULK3 6,7,183,0,412,0,6,26,0,0
005080 266C                        8027+         DC    Y(UCB183-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8028          AGO   .LST185    TO NEXT UCB ADD RNTRY
                                   8029 .LST185 IECULK3 7,8,184,0,412,0,6,27,0,0
005082 26A0                        8030+         DC    Y(UCB184-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8031          AGO   .LST186    TO NEXT UCB ADD RNTRY
                                   8032 .LST186 IECULK3 8,9,185,0,412,0,6,28,0,0
005084 26D4                        8033+         DC    Y(UCB185-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8034          AGO   .LST187    TO NEXT UCB ADD RNTRY
                                   8035 .LST187 IECULK3 9,10,186,0,412,0,6,29,0,0
005086 2708                        8036+         DC    Y(UCB186-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8037          AGO   .LST188    TO NEXT UCB ADD RNTRY
                                   8038 .LST188 IECULK3 10,11,187,0,412,0,6,30,0,0
005088 273C                        8039+         DC    Y(UCB187-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8040          AGO   .LST189    TO NEXT UCB ADD RNTRY
                                   8041 .LST189 IECULK3 11,12,188,0,412,0,6,31,0,0
00508A 2770                        8042+         DC    Y(UCB188-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8043          AGO   .LST190    TO NEXT UCB ADD RNTRY
                                   8044 .LST190 IECULK3 12,13,189,0,412,0,6,32,0,0
00508C 27A4                        8045+         DC    Y(UCB189-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8046          AGO   .LST191    TO NEXT UCB ADD RNTRY
                                   8047 .LST191 IECULK3 13,14,190,0,412,0,6,33,0,0
00508E 27D8                        8048+         DC    Y(UCB190-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8049          AGO   .LST192    TO NEXT UCB ADD RNTRY
                                   8050 .LST192 IECULK3 14,15,191,0,412,0,6,34,0,0
005090 280C                        8051+         DC    Y(UCB191-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8052          AGO   .LST193    TO NEXT UCB ADD RNTRY
                                   8053 .LST193 IECULK3 15,0,192,1,444,0,6,35,0,0
005092 2840                        8054+         DC    Y(UCB192-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8055          AGO   .LST194    TO NEXT UCB ADD RNTRY
                                   8056 .LST194 IECULK3 0,1,193,0,444,0,6,36,0,0
005094 2874                        8057+         DC    Y(UCB193-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8058          AGO   .LST195    TO NEXT UCB ADD RNTRY
                                   8059 .LST195 IECULK3 1,2,194,0,444,0,6,37,0,0
005096 28A8                        8060+         DC    Y(UCB194-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8061          AGO   .LST196    TO NEXT UCB ADD RNTRY
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  169


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8062 .LST196 IECULK3 2,3,195,0,444,0,6,38,0,0
005098 28DC                        8063+         DC    Y(UCB195-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8064          AGO   .LST197    TO NEXT UCB ADD RNTRY
                                   8065 .LST197 IECULK3 3,4,196,0,444,0,6,39,0,0
00509A 2910                        8066+         DC    Y(UCB196-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8067          AGO   .LST198    TO NEXT UCB ADD RNTRY
                                   8068 .LST198 IECULK3 4,5,197,0,444,0,6,40,0,0
00509C 2944                        8069+         DC    Y(UCB197-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8070          AGO   .LST199    TO NEXT UCB ADD RNTRY
                                   8071 .LST199 IECULK3 5,6,198,0,444,0,6,41,0,0
00509E 2978                        8072+         DC    Y(UCB198-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8073          AGO   .LST200    TO NEXT UCB ADD RNTRY
                                   8074 .LST200 IECULK3 6,7,199,0,444,0,6,42,0,0
0050A0 29AC                        8075+         DC    Y(UCB199-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8076          AGO   .LST201    TO NEXT UCB ADD RNTRY
                                   8077 .LST201 IECULK3 7,8,200,0,444,0,6,43,0,0
0050A2 29E0                        8078+         DC    Y(UCB200-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8079          AGO   .LST202    TO NEXT UCB ADD RNTRY
                                   8080 .LST202 IECULK3 8,9,201,0,444,0,6,44,0,0
0050A4 2A14                        8081+         DC    Y(UCB201-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8082          AGO   .LST203    TO NEXT UCB ADD RNTRY
                                   8083 .LST203 IECULK3 9,10,202,0,444,0,6,45,0,0
0050A6 2A48                        8084+         DC    Y(UCB202-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8085          AGO   .LST204    TO NEXT UCB ADD RNTRY
                                   8086 .LST204 IECULK3 10,11,203,0,444,0,6,46,0,0
0050A8 2A7C                        8087+         DC    Y(UCB203-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8088          AGO   .LST205    TO NEXT UCB ADD RNTRY
                                   8089 .LST205 IECULK3 11,12,204,0,444,0,6,47,0,0
0050AA 2AB0                        8090+         DC    Y(UCB204-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8091          AGO   .LST206    TO NEXT UCB ADD RNTRY
                                   8092 .LST206 IECULK3 12,13,205,0,444,0,6,48,0,0
0050AC 2AE4                        8093+         DC    Y(UCB205-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8094          AGO   .LST207    TO NEXT UCB ADD RNTRY
                                   8095 .LST207 IECULK3 13,14,206,0,444,0,6,49,0,0
0050AE 2B18                        8096+         DC    Y(UCB206-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8097          AGO   .LST208    TO NEXT UCB ADD RNTRY
                                   8098 .LST208 IECULK3 14,15,207,0,444,0,6,50,0,0
0050B0 2B4C                        8099+         DC    Y(UCB207-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8100          AGO   .LST209    TO NEXT UCB ADD RNTRY
                                   8101 .LST209 IECULK3 15,0,208,1,476,0,7,0,0,0
0050B2 2B80                        8102+         DC    Y(UCB208-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8103          AGO   .LST210    TO NEXT UCB ADD RNTRY
                                   8104 .LST210 IECULK3 0,1,209,0,476,0,7,0,0,0
0050B4 2B98                        8105+         DC    Y(UCB209-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8106          AGO   .LST211    TO NEXT UCB ADD RNTRY
                                   8107 .LST211 IECULK3 1,2,210,0,476,0,7,0,0,0
0050B6 2BB0                        8108+         DC    Y(UCB210-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8109          AGO   .LST212    TO NEXT UCB ADD RNTRY
                                   8110 .LST212 IECULK3 2,3,211,0,476,0,7,0,0,0
0050B8 2BC8                        8111+         DC    Y(UCB211-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8112          AGO   .LST213    TO NEXT UCB ADD RNTRY
                                   8113 .LST213 IECULK3 3,4,212,0,476,0,7,0,0,0
0050BA 2BE0                        8114+         DC    Y(UCB212-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8115          AGO   .LST214    TO NEXT UCB ADD RNTRY
                                   8116 .LST214 IECULK3 4,5,213,0,476,0,7,0,0,0
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  170


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0050BC 2BF8                        8117+         DC    Y(UCB213-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8118          AGO   .LST215    TO NEXT UCB ADD RNTRY
                                   8119 .LST215 IECULK3 5,6,214,0,476,0,7,0,0,0
0050BE 2C10                        8120+         DC    Y(UCB214-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8121          AGO   .LST216    TO NEXT UCB ADD RNTRY
                                   8122 .LST216 IECULK3 6,7,215,0,476,0,7,0,0,0
0050C0 2C28                        8123+         DC    Y(UCB215-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8124          AGO   .LST217    TO NEXT UCB ADD RNTRY
                                   8125 .LST217 IECULK3 7,8,216,0,476,0,7,0,0,0
0050C2 2C40                        8126+         DC    Y(UCB216-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8127          AGO   .LST218    TO NEXT UCB ADD RNTRY
                                   8128 .LST218 IECULK3 8,9,217,0,476,0,7,0,0,0
0050C4 2C58                        8129+         DC    Y(UCB217-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8130          AGO   .LST219    TO NEXT UCB ADD RNTRY
                                   8131 .LST219 IECULK3 9,10,218,0,476,0,7,0,0,0
0050C6 2C70                        8132+         DC    Y(UCB218-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8133          AGO   .LST220    TO NEXT UCB ADD RNTRY
                                   8134 .LST220 IECULK3 10,11,219,0,476,0,7,0,0,0
0050C8 2C88                        8135+         DC    Y(UCB219-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8136          AGO   .LST221    TO NEXT UCB ADD RNTRY
                                   8137 .LST221 IECULK3 11,12,220,0,476,0,7,0,0,0
0050CA 2CA0                        8138+         DC    Y(UCB220-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8139          AGO   .LST222    TO NEXT UCB ADD RNTRY
                                   8140 .LST222 IECULK3 12,13,221,0,476,0,7,0,0,0
0050CC 2CB8                        8141+         DC    Y(UCB221-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8142          AGO   .LST223    TO NEXT UCB ADD RNTRY
                                   8143 .LST223 IECULK3 13,14,222,0,476,0,7,0,0,0
0050CE 2CD0                        8144+         DC    Y(UCB222-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8145          AGO   .LST224    TO NEXT UCB ADD RNTRY
                                   8146 .LST224 IECULK3 14,15,223,0,476,0,7,0,0,0
0050D0 2CE8                        8147+         DC    Y(UCB223-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8148          AGO   .LST225    TO NEXT UCB ADD RNTRY
                                   8149 .LST225 IECULK3 15,0,224,1,508,0,7,0,0,0
0050D2 2D00                        8150+         DC    Y(UCB224-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8151          AGO   .LST226    TO NEXT UCB ADD RNTRY
                                   8152 .LST226 IECULK3 0,1,225,0,508,0,7,0,0,0
0050D4 2D18                        8153+         DC    Y(UCB225-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8154          AGO   .LST227    TO NEXT UCB ADD RNTRY
                                   8155 .LST227 IECULK3 1,2,226,0,508,0,7,0,0,0
0050D6 2D30                        8156+         DC    Y(UCB226-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8157          AGO   .LST228    TO NEXT UCB ADD RNTRY
                                   8158 .LST228 IECULK3 2,3,227,0,508,0,7,0,0,0
0050D8 2D48                        8159+         DC    Y(UCB227-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8160          AGO   .LST229    TO NEXT UCB ADD RNTRY
                                   8161 .LST229 IECULK3 3,4,228,0,508,0,7,0,0,0
0050DA 2D60                        8162+         DC    Y(UCB228-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8163          AGO   .LST230    TO NEXT UCB ADD RNTRY
                                   8164 .LST230 IECULK3 4,5,229,0,508,0,7,0,0,0
0050DC 2D78                        8165+         DC    Y(UCB229-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8166          AGO   .LST231    TO NEXT UCB ADD RNTRY
                                   8167 .LST231 IECULK3 5,6,230,0,508,0,7,0,0,0
0050DE 2D90                        8168+         DC    Y(UCB230-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8169          AGO   .LST232    TO NEXT UCB ADD RNTRY
                                   8170 .LST232 IECULK3 6,7,231,0,508,0,7,0,0,0
0050E0 2DA8                        8171+         DC    Y(UCB231-IPLPSW) UCB ADDRESS ENTRY           IMP3
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  171


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8172          AGO   .LST233    TO NEXT UCB ADD RNTRY
                                   8173 .LST233 IECULK3 7,8,232,0,508,0,7,0,0,0
0050E2 2DC0                        8174+         DC    Y(UCB232-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8175          AGO   .LST234    TO NEXT UCB ADD RNTRY
                                   8176 .LST234 IECULK3 8,9,233,0,508,0,7,0,0,0
0050E4 2DD8                        8177+         DC    Y(UCB233-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8178          AGO   .LST235    TO NEXT UCB ADD RNTRY
                                   8179 .LST235 IECULK3 9,10,234,0,508,0,7,0,0,0
0050E6 2DF0                        8180+         DC    Y(UCB234-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8181          AGO   .LST236    TO NEXT UCB ADD RNTRY
                                   8182 .LST236 IECULK3 10,11,235,0,508,0,7,0,0,0
0050E8 2E08                        8183+         DC    Y(UCB235-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8184          AGO   .LST237    TO NEXT UCB ADD RNTRY
                                   8185 .LST237 IECULK3 11,12,236,0,508,0,7,0,0,0
0050EA 2E20                        8186+         DC    Y(UCB236-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8187          AGO   .LST238    TO NEXT UCB ADD RNTRY
                                   8188 .LST238 IECULK3 12,13,237,0,508,0,7,0,0,0
0050EC 2E38                        8189+         DC    Y(UCB237-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8190          AGO   .LST239    TO NEXT UCB ADD RNTRY
                                   8191 .LST239 IECULK3 13,14,238,0,508,0,7,0,0,0
0050EE 2E50                        8192+         DC    Y(UCB238-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8193          AGO   .LST240    TO NEXT UCB ADD RNTRY
                                   8194 .LST240 IECULK3 14,15,239,0,508,0,7,0,0,0
0050F0 2E68                        8195+         DC    Y(UCB239-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8196          AGO   .LST241    TO NEXT UCB ADD RNTRY
                                   8197 .LST241 IECULK3 15,0,240,1,540,0,7,0,0,0
0050F2 2E80                        8198+         DC    Y(UCB240-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8199          AGO   .LST242    TO NEXT UCB ADD RNTRY
                                   8200 .LST242 IECULK3 0,1,241,0,540,0,7,0,0,0
0050F4 2E98                        8201+         DC    Y(UCB241-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8202          AGO   .LST243    TO NEXT UCB ADD RNTRY
                                   8203 .LST243 IECULK3 1,2,242,0,540,0,7,0,0,0
0050F6 2EB0                        8204+         DC    Y(UCB242-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8205          AGO   .LST244    TO NEXT UCB ADD RNTRY
                                   8206 .LST244 IECULK3 2,3,243,0,540,0,7,0,0,0
0050F8 2EC8                        8207+         DC    Y(UCB243-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8208          AGO   .LST245    TO NEXT UCB ADD RNTRY
                                   8209 .LST245 IECULK3 3,4,244,0,540,0,7,0,0,0
0050FA 2EE0                        8210+         DC    Y(UCB244-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8211          AGO   .LST246    TO NEXT UCB ADD RNTRY
                                   8212 .LST246 IECULK3 4,5,245,0,540,0,7,0,0,0
0050FC 2EF8                        8213+         DC    Y(UCB245-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8214          AGO   .LST247    TO NEXT UCB ADD RNTRY
                                   8215 .LST247 IECULK3 5,6,246,0,540,0,7,0,0,0
0050FE 2F10                        8216+         DC    Y(UCB246-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8217          AGO   .LST248    TO NEXT UCB ADD RNTRY
                                   8218 .LST248 IECULK3 6,7,247,0,540,0,7,0,0,0
005100 2F28                        8219+         DC    Y(UCB247-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8220          AGO   .LST249    TO NEXT UCB ADD RNTRY
                                   8221 .LST249 IECULK3 7,8,248,0,540,0,7,0,0,0
005102 2F40                        8222+         DC    Y(UCB248-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8223          AGO   .LST250    TO NEXT UCB ADD RNTRY
                                   8224 .LST250 IECULK3 8,9,249,0,540,0,7,0,0,0
005104 2F58                        8225+         DC    Y(UCB249-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8226          AGO   .LST251    TO NEXT UCB ADD RNTRY
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  172


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8227 .LST251 IECULK3 9,10,250,0,540,0,7,0,0,0
005106 2F70                        8228+         DC    Y(UCB250-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8229          AGO   .LST252    TO NEXT UCB ADD RNTRY
                                   8230 .LST252 IECULK3 10,11,251,0,540,0,7,0,0,0
005108 2F88                        8231+         DC    Y(UCB251-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8232          AGO   .LST253    TO NEXT UCB ADD RNTRY
                                   8233 .LST253 IECULK3 11,12,252,0,540,0,7,0,0,0
00510A 2FA0                        8234+         DC    Y(UCB252-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8235          AGO   .LST254    TO NEXT UCB ADD RNTRY
                                   8236 .LST254 IECULK3 12,13,253,0,540,0,7,0,0,0
00510C 2FB8                        8237+         DC    Y(UCB253-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8238          AGO   .LST255    TO NEXT UCB ADD RNTRY
                                   8239 .LST255 IECULK3 13,14,254,0,540,0,7,0,0,0
00510E 2FD0                        8240+         DC    Y(UCB254-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8241          AGO   .LST256    TO NEXT UCB ADD RNTRY
                                   8242 .LST256 IECULK3 14,15,255,0,540,0,7,0,0,0
005110 2FE8                        8243+         DC    Y(UCB255-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8244          AGO   .LST257    TO NEXT UCB ADD RNTRY
                                   8245 .LST257 IECULK3 15,0,256,1,572,0,7,0,0,0
005112 3000                        8246+         DC    Y(UCB256-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8247          AGO   .LST258    TO NEXT UCB ADD RNTRY
                                   8248 .LST258 IECULK3 0,1,257,0,572,0,7,0,0,0
005114 3018                        8249+         DC    Y(UCB257-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8250          AGO   .LST259    TO NEXT UCB ADD RNTRY
                                   8251 .LST259 IECULK3 1,2,258,0,572,0,7,0,0,0
005116 3030                        8252+         DC    Y(UCB258-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8253          AGO   .LST260    TO NEXT UCB ADD RNTRY
                                   8254 .LST260 IECULK3 2,3,259,0,572,0,7,0,0,0
005118 3048                        8255+         DC    Y(UCB259-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8256          AGO   .LST261    TO NEXT UCB ADD RNTRY
                                   8257 .LST261 IECULK3 3,4,260,0,572,0,7,0,0,0
00511A 3060                        8258+         DC    Y(UCB260-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8259          AGO   .LST262    TO NEXT UCB ADD RNTRY
                                   8260 .LST262 IECULK3 4,5,261,0,572,0,7,0,0,0
00511C 3078                        8261+         DC    Y(UCB261-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8262          AGO   .LST263    TO NEXT UCB ADD RNTRY
                                   8263 .LST263 IECULK3 5,6,262,0,572,0,7,0,0,0
00511E 3090                        8264+         DC    Y(UCB262-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8265          AGO   .LST264    TO NEXT UCB ADD RNTRY
                                   8266 .LST264 IECULK3 6,7,263,0,572,0,7,0,0,0
005120 30A8                        8267+         DC    Y(UCB263-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8268          AGO   .LST265    TO NEXT UCB ADD RNTRY
                                   8269 .LST265 IECULK3 7,8,264,0,572,0,7,0,0,0
005122 30C0                        8270+         DC    Y(UCB264-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8271          AGO   .LST266    TO NEXT UCB ADD RNTRY
                                   8272 .LST266 IECULK3 8,9,265,0,572,0,7,0,0,0
005124 30D8                        8273+         DC    Y(UCB265-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8274          AGO   .LST267    TO NEXT UCB ADD RNTRY
                                   8275 .LST267 IECULK3 9,10,266,0,572,0,7,0,0,0
005126 30F0                        8276+         DC    Y(UCB266-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8277          AGO   .LST268    TO NEXT UCB ADD RNTRY
                                   8278 .LST268 IECULK3 10,11,267,0,572,0,7,0,0,0
005128 3108                        8279+         DC    Y(UCB267-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8280          AGO   .LST269    TO NEXT UCB ADD RNTRY
                                   8281 .LST269 IECULK3 11,12,268,0,572,0,7,0,0,0
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  173


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00512A 3120                        8282+         DC    Y(UCB268-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8283          AGO   .LST270    TO NEXT UCB ADD RNTRY
                                   8284 .LST270 IECULK3 12,13,269,0,572,0,7,0,0,0
00512C 3138                        8285+         DC    Y(UCB269-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8286          AGO   .LST271    TO NEXT UCB ADD RNTRY
                                   8287 .LST271 IECULK3 13,14,270,0,572,0,7,0,0,0
00512E 3150                        8288+         DC    Y(UCB270-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8289          AGO   .LST272    TO NEXT UCB ADD RNTRY
                                   8290 .LST272 IECULK3 14,15,271,0,572,0,7,0,0,0
005130 3168                        8291+         DC    Y(UCB271-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8292          AGO   .LST273    TO NEXT UCB ADD RNTRY
                                   8293 .LST273 IECULK3 15,0,272,1,604,0,7,0,0,0
005132 3180                        8294+         DC    Y(UCB272-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8295          AGO   .LST274    TO NEXT UCB ADD RNTRY
                                   8296 .LST274 IECULK3 0,1,273,0,604,0,7,0,0,0
005134 3198                        8297+         DC    Y(UCB273-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8298          AGO   .LST275    TO NEXT UCB ADD RNTRY
                                   8299 .LST275 IECULK3 1,2,274,0,604,0,7,0,0,0
005136 31B0                        8300+         DC    Y(UCB274-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8301          AGO   .LST276    TO NEXT UCB ADD RNTRY
                                   8302 .LST276 IECULK3 2,3,275,0,604,0,7,0,0,0
005138 31C8                        8303+         DC    Y(UCB275-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8304          AGO   .LST277    TO NEXT UCB ADD RNTRY
                                   8305 .LST277 IECULK3 3,4,276,0,604,0,7,0,0,0
00513A 31E0                        8306+         DC    Y(UCB276-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8307          AGO   .LST278    TO NEXT UCB ADD RNTRY
                                   8308 .LST278 IECULK3 4,5,277,0,604,0,7,0,0,0
00513C 31F8                        8309+         DC    Y(UCB277-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8310          AGO   .LST279    TO NEXT UCB ADD RNTRY
                                   8311 .LST279 IECULK3 5,6,278,0,604,0,7,0,0,0
00513E 3210                        8312+         DC    Y(UCB278-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8313          AGO   .LST280    TO NEXT UCB ADD RNTRY
                                   8314 .LST280 IECULK3 6,7,279,0,604,0,7,0,0,0
005140 3228                        8315+         DC    Y(UCB279-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8316          AGO   .LST281    TO NEXT UCB ADD RNTRY
                                   8317 .LST281 IECULK3 7,8,280,0,604,0,7,0,0,0
005142 3240                        8318+         DC    Y(UCB280-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8319          AGO   .LST282    TO NEXT UCB ADD RNTRY
                                   8320 .LST282 IECULK3 8,9,281,0,604,0,7,0,0,0
005144 3258                        8321+         DC    Y(UCB281-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8322          AGO   .LST283    TO NEXT UCB ADD RNTRY
                                   8323 .LST283 IECULK3 9,10,282,0,604,0,7,0,0,0
005146 3270                        8324+         DC    Y(UCB282-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8325          AGO   .LST284    TO NEXT UCB ADD RNTRY
                                   8326 .LST284 IECULK3 10,11,283,0,604,0,7,0,0,0
005148 3288                        8327+         DC    Y(UCB283-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8328          AGO   .LST285    TO NEXT UCB ADD RNTRY
                                   8329 .LST285 IECULK3 11,12,284,0,604,0,7,0,0,0
00514A 32A0                        8330+         DC    Y(UCB284-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8331          AGO   .LST286    TO NEXT UCB ADD RNTRY
                                   8332 .LST286 IECULK3 12,13,285,0,604,0,7,0,0,0
00514C 32B8                        8333+         DC    Y(UCB285-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8334          AGO   .LST287    TO NEXT UCB ADD RNTRY
                                   8335 .LST287 IECULK3 13,14,286,0,604,0,7,0,0,0
00514E 32D0                        8336+         DC    Y(UCB286-IPLPSW) UCB ADDRESS ENTRY           IMP3
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  174


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8337          AGO   .LST288    TO NEXT UCB ADD RNTRY
                                   8338 .LST288 IECULK3 14,15,287,0,604,0,7,0,0,0
005150 32E8                        8339+         DC    Y(UCB287-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8340          AGO   .LST289    TO NEXT UCB ADD RNTRY
                                   8341 .LST289 IECULK3 15,0,288,1,636,0,7,0,0,0
005152 3300                        8342+         DC    Y(UCB288-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8343          AGO   .LST290    TO NEXT UCB ADD RNTRY
                                   8344 .LST290 IECULK3 0,1,289,0,636,0,7,0,0,0
005154 3318                        8345+         DC    Y(UCB289-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8346          AGO   .LST291    TO NEXT UCB ADD RNTRY
                                   8347 .LST291 IECULK3 1,2,290,0,636,0,7,0,0,0
005156 3330                        8348+         DC    Y(UCB290-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8349          AGO   .LST292    TO NEXT UCB ADD RNTRY
                                   8350 .LST292 IECULK3 2,3,291,0,636,0,7,0,0,0
005158 3348                        8351+         DC    Y(UCB291-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8352          AGO   .LST293    TO NEXT UCB ADD RNTRY
                                   8353 .LST293 IECULK3 3,4,292,0,636,0,7,0,0,0
00515A 3360                        8354+         DC    Y(UCB292-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8355          AGO   .LST294    TO NEXT UCB ADD RNTRY
                                   8356 .LST294 IECULK3 4,5,293,0,636,0,7,0,0,0
00515C 3378                        8357+         DC    Y(UCB293-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8358          AGO   .LST295    TO NEXT UCB ADD RNTRY
                                   8359 .LST295 IECULK3 5,6,294,0,636,0,7,0,0,0
00515E 3390                        8360+         DC    Y(UCB294-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8361          AGO   .LST296    TO NEXT UCB ADD RNTRY
                                   8362 .LST296 IECULK3 6,7,295,0,636,0,7,0,0,0
005160 33A8                        8363+         DC    Y(UCB295-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8364          AGO   .LST297    TO NEXT UCB ADD RNTRY
                                   8365 .LST297 IECULK3 7,8,296,0,636,0,7,0,0,0
005162 33C0                        8366+         DC    Y(UCB296-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8367          AGO   .LST298    TO NEXT UCB ADD RNTRY
                                   8368 .LST298 IECULK3 8,9,297,0,636,0,7,0,0,0
005164 33D8                        8369+         DC    Y(UCB297-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8370          AGO   .LST299    TO NEXT UCB ADD RNTRY
                                   8371 .LST299 IECULK3 9,10,298,0,636,0,7,0,0,0
005166 33F0                        8372+         DC    Y(UCB298-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8373          AGO   .LST300    TO NEXT UCB ADD RNTRY
                                   8374 .LST300 IECULK3 10,11,299,0,636,0,7,0,0,0
005168 3408                        8375+         DC    Y(UCB299-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8376          AGO   .LST301    TO NEXT UCB ADD RNTRY
                                   8377 .LST301 IECULK3 11,12,300,0,636,0,7,0,0,0
00516A 3420                        8378+         DC    Y(UCB300-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8379          AGO   .LST302    TO NEXT UCB ADD RNTRY
                                   8380 .LST302 IECULK3 12,13,301,0,636,0,7,0,0,0
00516C 3438                        8381+         DC    Y(UCB301-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8382          AGO   .LST303    TO NEXT UCB ADD RNTRY
                                   8383 .LST303 IECULK3 13,14,302,0,636,0,7,0,0,0
00516E 3450                        8384+         DC    Y(UCB302-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8385          AGO   .LST304    TO NEXT UCB ADD RNTRY
                                   8386 .LST304 IECULK3 14,15,303,0,636,0,7,0,0,0
005170 3468                        8387+         DC    Y(UCB303-IPLPSW) UCB ADDRESS ENTRY           IMP3
                                   8388          AGO   .LST305    TO NEXT UCB ADD RNTRY
                                   8389 .LST305 ANOP     LAST UCB ADD ENTRY
                                   8390     IECULK3 0,0,0,0,0,1
005172 0000516A                    8391+PURGPTR  DC    AL4(IECIEND-UCBETI) PSUEDO UCB/PURG END OF LIST
       TEST CHANNEL AND CHANNEL SEARCH ROUTINES IN IOS                                                         PAGE  175


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005172                             8392+         ORG   PURGPTR
005172 FFFF                        8393+IECIEND  DC    X'FFFF' END OF UCB LIST
005174                             8394+         DS    2C SLIP OVER PURGE POINTER
005178                             8395+         DS    0F ORIGIN UCB'S AT FULL WORD BOUNDARY
                                   8396          AGO   .END     TO STATISTICS TABLE
                                   8397 .END    ANOP
                                   8398           AGO   .IOSB
                                   8399 .IOSB    ANOP
                                   8400  IECIOSB 1,1,1,1,1,0,0,1,0,0,0,1,                                    XXXXXX
                                                       200,0,2,0,2,0,0,0,0,1,0,1,1,                      *********
                                                       1,1,1,1,0,1,1,0,1,1,0,0,0
       ENQUEUE ROUTINES- INPUT/OUTPUT SUPERVISOR                                                               PAGE  176


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8402+***********************************************************************
                                   8403+*                                                                     *
                                   8404+*                       ENQUEUE ROUTINES                              *
                                   8405+*                                                                     *
                                   8406+*              THERE ARE 3 OPTIONS FOR LOGICAL CHANNEL QUEUEING       *
                                   8407+*                   1. FIFO
                                   8408+*                   2. PRIORITY
                                   8409+*                   3. ORDERED SEEK
                                   8410+*                                                                     *
                                   8411+*              LCH AND SEEK QUEUEING MODULES ARE ACCESSED FROM
                                   8412+*                   THE DEVICE TABLE AND LCH TAB.
                                   8413+*                                                                     *
                                   8414+* ENTRY POINTS                                                        *
                                   8415+*              XCPPNQ  ENTRY PT TO DEVICE DEPENDENT QUEUE CODE        *
                                   8416+*              XCP100  NORMAL, FIFO QUEUING
                                   8417+*              XCPENQA NORMAL, FIFO QUEUING
                                   8418+*              XCPENQ  ENTRY PT FROM ORDERED SEEK RTN                 *
                                   8419+*                                                                     *
                                   8420+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


                                   8422+*        THE FOLLOWING IS AN INTERFACE TO CORRECT QUEUE ROUTINE


                                   8424+*              THIS ROUTINE GETS ITS ENQUEUE CODE FROM DEVTAB

005178                             8426+         USING *,APBSRG ESTABLISH ADDRESSABILITY BBBBBB
005178 41A0 50B0            035FA  8427+XCPPNQ   LA    WKREG1,XCP064 BBBBBB
00517C 05CA                        8428+         BALR  LNKRG3,WKREG1 GO GET PROPER LCH        BBBBBB
00517E                             8429+XCPPNQB  DS    0H SA65004
00517E 5910 8234            0477C  8430+         C     TSTREG,ADDRRQE IS THE DDR RQE          SA65004
005182 4770 F024            0519C  8431+         BNE   XCPPNQD NO, NORMAL ENQUEUE      SA65004
005186 D201 1000 D000 00000 00000  8432+         MVC   TSTLNK(2,TSTREG),LCHFTS(LCHREG) PUT DDR RQE     SA65004
00518C 401D 0000            00000  8433+         STH   TSTREG,LCHFTS(LCHREG) ON TOP OF LCH           SA65004
005190 9101 1001      00001        8434+         TM    TSTLNK+1(TSTREG),DUMADR WAS LCH EMPTY           SA65004
005194 078E                        8435+         BCR   8,LNKRG2 NO, RETURN              SA65004
005196 401D 0002            00002  8436+         STH   TSTREG,LCHLTS(LCHREG) PUT AS LAST RE          SA65004
00519A 07FE                        8437+         BCR   15,LNKRG2 RETURN                  SA65004
00519C                             8438+XCPPNQD  DS    0H SA65004
00519C 4397 0007            00007  8439+         IC    ICREG,UCBDTI(UCBREG) GET DEVICE TABLE INDEX  SA65004
0051A0 41A0 8830            04D78  8440+         LA    WKREG1,DEVTAB ADDR OF DEVICE TABLE     BBBBBB
0051A4 48AA 9000            00000  8441+         LH    WKREG1,DVTENQ(WKREG1,ICREG) GET ENQ RTN ADDR      BBBBBB
0051A8 1AA5                        8442+         AR    WKREG1,BASREG ADJUST ADDRESS             RL19
0051AA 07FA                        8443+         BCR   15,WKREG1 GO TO ENQUE CODE FOR DEVICE IMP3
       FIFO ENQUEUE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                          PAGE  177


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8445+*        FIFO ENQUEUE ROUTINE

0051AC                             8447+XCP100   DS    0C
0051AC                             8448+XCPENQ   DS    0C
0051AC 9101 D001      00001        8449+XCPENQ1  TM    LCHFTS+1(LCHREG),DUMADR TEST EMPTY QUEUE
0051B0 4780 F04C            051C4  8450+         BC    8,XCP080 NO- PUT AT END OF CHAIN
0051B4 4010 D000            00000  8451+XCPENQ2  STH   TSTREG,LCHFTS(0,LCHREG) PUT THE RQE FIRST INTO QUEUE
0051B8 401D 0002            00002  8452+XCP081   STH   TSTREG,LCHLTS(LCHREG) PUT AS LAST
0051BC D201 1000 F058 00000 051D0  8453+         MVC   TSTLNK(2,TSTREG),ENDAD POINT LAST ENTRY TO DUMMY
0051C2 07FE                        8454+         BCR   15,LNKRG2 BR- RETURN

0051C4 48AD 0002            00002  8456+XCP080   LH    WKREG1,LCHLTS(LCHREG) GET LAST REQUEST IN QUEUE
0051C8 401A 0000            00000  8457+         STH   TSTREG,TSTLNK(WKREG1) LINK ENTRY ON END
0051CC 47F0 F040            051B8  8458+         BC    15,XCP081 BR- TO EXIT
0051D0 FFFF                        8459+ENDAD    DC    XL2'FFFF' DUMMY ADDRESS            BBBBBB
                                   8460+         DROP  APBSRG BBBBBB
       CCW LOOKUP ROUTINE AND CCWS - INPUT/OUTPUT SUPERVISOR                                                   PAGE  178


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8462+*      THIS ROUTINE FINDS THE PROPER CCWS TO BE USED IN
                                   8463+*      BULIDING THE PREFIX TO A USERS CHANNEL PROGRAM FOR BOTH
                                   8464+*      TAPE AND DIRECT ACCESS DEVICES.   APBSRG IS USED AS THE
                                   8465+*      BASE REGISTER AND WKREG1 AS THE RETURN REGISTER.


0051D2                             8467+CCWRTN   DS    0H CCW FIND ROUTINE        US03240
0051D2                             8468+         USING *,APBSRG ADDRESSABILITY          US03240
0051D2 18B6                        8469+         LR    WKREG2,UAREG COPY UNIT ADDRESS       US03240
0051D4 88B0 0008            00008  8470+         SRL   WKREG2,8 ISOLATE CHANNEL ADDR    US03240
0051D8 1ABB                        8471+         AR    WKREG2,WKREG2 MULTIPLY BY 2           US03240
0051DA 48CB F016            051E8  8472+XCPCCW80 LH    WKREG3,IECCCWA(WKREG2) GET CCW ADDRESS         US03240
0051DE 12CC                        8473+         LTR   WKREG3,WKREG3 VALID POINTER           US04550
0051E0 4780 F09E            05270  8474+         BC    8,LCHERR1 NO, GO HANDLE           US04550
0051E4 1ACF                        8475+         AR    WKREG3,APBSRG ADJUST ADDR WITH BASE ADDR
0051E6 07FA                        8476+         BR    WKREG1 RETURN                  US03240
                                   8477+         DROP  APBSRG


0051E8                             8479+IECCCWA  DS    0H
0051E8 0000                        8480+         DC    AL2(0)
0051EA 0026                        8481+         DC    AL2(CCW1-CCWRTN)
0051EC 003E                        8482+         DC    AL2(CCW2-CCWRTN)
0051EE 0056                        8483+         DC    AL2(CCW3-CCWRTN)
0051F0 0000                        8484+         DC    AL2(0)
0051F2 006E                        8485+         DC    AL2(CCW5-CCWRTN)
0051F4 0086                        8486+         DC    AL2(CCW6-CCWRTN)
0051F6 0000
0051F8 0700000060000006            8487+CCW1     CCW   X'07',0,X'60',6
005200 1F00520460000001            8488+         CCW   X'1F',*+4,X'60',1
005208 08000000C3C8F140            8489+         DC    X'08000000',CL4'CH1'
005210 0700000060000006            8490+CCW2     CCW   X'07',0,X'60',6
005218 1F00521C60000001            8491+         CCW   X'1F',*+4,X'60',1
005220 08000000C3C8F240            8492+         DC    X'08000000',CL4'CH2'
005228 0700000060000006            8493+CCW3     CCW   X'07',0,X'60',6
005230 1F00523460000001            8494+         CCW   X'1F',*+4,X'60',1
005238 08000000C3C8F340            8495+         DC    X'08000000',CL4'CH3'
005240 0700000060000006            8496+CCW5     CCW   X'07',0,X'60',6
005248 1F00524C60000001            8497+         CCW   X'1F',*+4,X'60',1
005250 08000000C3C8F540            8498+         DC    X'08000000',CL4'CH5'
005258 0700000060000006            8499+CCW6     CCW   X'07',0,X'60',6
005260 1F00526460000001            8500+         CCW   X'1F',*+4,X'60',1
005268 08000000C3C8F640            8501+         DC    X'08000000',CL4'CH6'
       LCHWD ERROR ROUTINE - INPUT/OUTPUT SUPERVISOR                                                           PAGE  179


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8503+*     THIS ROUTINE RECEIVES CONTROL WHEN A REQUEST ELEMENT      US04550
                                   8504+*     (RQE) IS FOUND TO BE ON THE WRONG LOGICAL CHANNEL QUEUE   US04550
                                   8505+*     (LCH).  THE RQE IS REMOVED FROM THE WRONG LCH AND THE     US04550
                                   8506+*     TASK OWNING THE REQUEST IS ABENDED.                       US04550


005270 05F0                        8508+LCHERR1  BALR  APBSRG,0 ESTABLISH ADDRESSABILITY     US04550
005272                             8509+         USING *,APBSRG US04550
005272 45E0 5630            03B7A  8510+LCHERR   BAL   LNKRG2,XCPDDRDQ DEQUEUE RQE FROM WRONG LCH   US04550
005276 9260 8391      048D9        8511+         MVI   CODEDUMP,INVLCH INVALID LOG CH QUEUE
00527A 58F0 81EC            04734  8512+         L     APBSRG,IECPL2 GET TEMP BASE REG      @SA77644
00527E 47FF 004A            0004A  8513+         BC    15,XERX02E-IECCPL02(APBSRG) GO ABEND THE TASK   @SA77644

                                   8515+         DROP  APBSRG US04550
                                   8516+         TITLE 'PROGRAM CHECK RECOVERY ROUTINE - INPUT/OUTPUT SUPERVISOX
       PROGRAM CHECK RECOVERY ROUTINE - INPUT/OUTPUT SUPERVISOR                                                PAGE  180


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8517+*                                                                A24739
                                   8518+*              PROGRAM CHECK RECOVERY SUBROUTINE                 A24739
                                   8519+*
                                   8520+*  FUNCTION    TO CORRECTLY ABEND A TASK AFTER INVALID CONTROL   A24739
                                   8521+*                   BLOCKS HAVE CAUSED IOS TO PROGRAM CHECK      A24739
                                   8522+*                   AND TO RESTART ANY I/O REQUESTS IF           A24739
                                   8523+*                   NECESSARY.                                   A24739
                                   8524+*                                                                A24739
                                   8525+*  ENTRY POINT IECCPL00 - BRANCHED TO BY PROLOGUE AFTER          A24739
                                   8526+*                   DETERMING THAT A PROGRAM CHECK OCCURRED      A24739
                                   8527+*                   IN IOS.                                      A24739
                                   8528+*                                                                A24739
                                   8529+*  EXITS       1. XCP021 - TO SVC FLIH.                          A24739
                                   8530+*                   A. INT024B - RETURN AN RQE TO THE FREE LIST. A24739
                                   8531+*                   B. INT026  - NO RQE TO BE RETURNED.          A24739
                                   8532+*                                                                A24739
                                   8533+*              2. INT027 - TO CHANNEL RESTART.                   A24739
                                   8534+*                   A. INT024B - RETURN AN RQE TO THE FREE LIST. A24739
                                   8535+*                   B. INT026  - NO RQE TO BE RETURNED.          A24739
                                   8536+*                                                                A24739

005282                             8538+IECCPL00 DS    0H A24739
005282 05F0                        8539+         BALR  APBSRG,0 SET UP LOCAL BASE REG  @SA77644
005284                             8540+         USING *,APBSRG ESTABLISH ADDRESSABLITY@SA77644
                                   8541+         DROP  BASREG,BASREG2 M2806
005284 5850 F258            054DC  8542+IECCPL02 L     BASREG,AIOSBAS INIT BASE REGISTER     @SA77644
005288 4180 5FFE            00FFE  8543+         LA    BASREG2,4094(0,BASREG) INIT SECOND BASE REG     A24739
00354A                             8544+         USING IOSBAS,BASREG ESTABLISH                 M2806
004548                             8545+         USING IOSBAS+4094,BASREG2 ADDRESSABILITY            M2806
00528C 9220 8391      048D9        8546+         MVI   CODEDUMP,INVECB INVALID ECB, IOB          21016
005290 47F0 F014            05298  8547+         B     XERX00A BRANCH AROUND DEBCODE     21016
005294 9230 8391      048D9        8548+XERX00   MVI   CODEDUMP,INVDEB DEB NOT KEY ZERO          21016
005298 1B11                        8549+XERX00A  SR    TSTREG,TSTREG INIT TSTREG FOR RECURSION 21016
00529A 1B99                        8550+         SR    ICREG,ICREG CLEAR ICREG              A24739
00529C 9108 83D9      04921        8551+         TM    XCPBTE,XCPRECUR ENTERED TWICE            A24739
0052A0 4710 F07C            05300  8552+         BC    1,XERX02A YES DON'T HANDLE         A24739
0052A4 9608 83D9      04921        8553+         OI    XCPBTE,XCPRECUR SET FLAG                 A24739
0052A8 4810 83CC            04914  8554+         LH    TSTREG,LTSVALSV PICK UP LAST USED RQE    A24739
0052AC 1211                        8555+         LTR   TSTREG,TSTREG IS THERE AN RQE          A24739
0052AE 4780 F07C            05300  8556+         BC    8,XERX02A NO SET NO RETURN RQE SW  A24739
0052B2 4870 1002            00002  8557+         LH    UCBREG,TSTUCB(0,TSTREG) PICK UP LAST UCB         A24739
0052B6 9823 1004            00004  8558+         LM    IOBREG,DEBREG,TSTIOB-1(TSTREG) INIT IOB + DEB ADDRA24739
0052BA 4910 7014            00014  8559+         CH    TSTREG,UCBLTS(0,UCBREG) IS RQE ACTIVE ON UCB     A24739
0052BE 4770 F042            052C6  8560+         BC    7,XERX02 NO GO DEQUE FROM LCH     A24739
0052C2 9200 7006      00006        8561+         MVI   UCBFL1(UCBREG),ZERO CLEAR UCB FLAGS          A24739
0052C6 41C0 5630            03B7A  8562+XERX02   LA    LNKRG3,XCPDDRDQ SET RETURN FROM LCH INIT A24739
0052CA 45E0 50B0            035FA  8563+         BAL   LNKRG2,XCP064 GO TO INIT LCHRG,DEQ RQE A24739
                                   8564+*                                                               SA47823
                                   8565+*        AN ATTEMPT IS MADE TO VALIDITY CHECK THE DEB TO        SA47823
                                   8566+*        DETERMINE WHETHER THE PGM CHK RECOVERY SUBROUTINE      SA47823
                                   8567+*        SHOULD INVOKE THE QUIESCE COMPLETE SUBROUTINE.         SA47823
                                   8568+*        IF THE DEB IS INVALID, THE QUIESCE COMPLETE            SA47823
                                   8569+*        SUBROUTINE MUST BE BYPASSED.                           SA47823
                                   8570+*                                                               SA47823
0052CE 58A3 0018            00018  8571+XERX02E  L     WKREG1,DEBDCB-1(DEBREG)
       PROGRAM CHECK RECOVERY ROUTINE - INPUT/OUTPUT SUPERVISOR                                                PAGE  181


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0052D2 D502 1009 A02D 00009 0002D  8572+         CLC   TSTDEB(3,TSTREG),DCBDEB(WKREG1) VAL CTRL BLKS   SA47823
0052D8 4780 F074            052F8  8573+         BE    XERX02F
                                   8574+***************************************************************@SA77644
       POST PURGE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                            PAGE  182


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8576+*     THIS ROUTINE RECEIVES CONTROL WHEN AN ABEND CONDITION    @SA77644
                                   8577+*     OCCURS AND THE DEB IS INVALID.  THERE MAY BE A PURGE     @SA77644
                                   8578+*     QUIESCE OUTSTANDING, AND IF THE PURGE COUNT CANNOT BE    @SA77644
                                   8579+*     DECREMENTED, THE SYSTEM MAY ENTER A WAIT STATE.          @SA77644
                                   8580+*     THE PURPOSE OF THIS ROUTINE IS TO ATTEMPT TO POST PURGE  @SA77644
                                   8581+*     OUT OF A WAIT STATE SO IT CAN RE-PURGE THE DEB AND       @SA77644
                                   8582+*     REINITIALIZE THE QUIESCE COUNT OR RETURN TO ITS CALLER.  @SA77644
                                   8583+***************************************************************@SA77644


0052DC 58B0 F8A8            05B2C  8585+PSTPRG   L     WKREG2,PRGPPLAD GET PPL ADDRESS        @SA77644
0052E0 12BB                        8586+         LTR   WKREG2,WKREG2 IS PURGE WAITING       @SA77644
0052E2 4780 F07C            05300  8587+         BC    8,XERX02A NO, RETURN             @SA77644
0052E6 D703 F8A8 F8A8 05B2C 05B2C  8588+         XC    PRGPPLAD(4),PRGPPLAD CLEAR PPL POINTER      @SA77644
0052EC 45E0 5C04            0414E  8589+         BAL   LNKRG2,PRGPST1 GO POST PURGE          @SA77644
0052F0 58F0 81EC            04734  8590+         L     APBSRG,IECPL2 RELOAD TEMP BASE REG   @SA77644
0052F4 47F0 F07C            05300  8591+         B     XERX02A RETURN                 @SA77644

0052F8 45E0 5B9E            040E8  8593+XERX02F  BAL   LNKRG2,PRGCOMB @SA77644
0052FC 58F0 81EC            04734  8594+         L     APBSRG,IECPL2 RELOAD TEMP BASE REG   @SA77644

005300 41A0 50FA            03644  8596+XERX02A  LA    WKREG1,XCP021 TBSE
005304 50A0 83B0            048F8  8597+         ST    WKREG1,LNKRG1S TBSE
005308 91A0 83D9      04921        8598+         TM    XCPBTE,XCPCNT+XCPERR TEST IF INTRPT ENTRY     A24739
00530C 4740 F0B6            0533A  8599+         BC    4,XERX01 YES, LNKRG1 SET          A24739
005310 41A0 5A22            03F6C  8600+         LA    WKREG1,INT027 TBSE
005314 50A0 83B0            048F8  8601+         ST    WKREG1,LNKRG1S TBSE
005318 9102 0044      00044        8602+         TM    CSWLOC+4,CSWUCK UNIT CHECK INTERRUPT     A51502
00531C 4780 F0AC            05330  8603+         BC    8,XERX07B NO, DON'T DO SENSE       A51502
005320 9102 83D9      04921        8604+         TM    XCPBTE,XCPVALID IS THIS VALIDITY ABEND   A51502
005324 4780 F0AC            05330  8605+         BC    8,XERX07B NO, DON'T DO SENSE       A51502
005328 41A0 F1CE            05452  8606+         LA    WKREG1,XERX07 TBSE
00532C 50A0 83B0            048F8  8607+         ST    WKREG1,LNKRG1S TBSE
005330 D703 81B4 81B4 046FC 046FC  8608+XERX07B  XC    CHMSK(4),CHMSK CLEAR INVALID CHANNEL    A51502
005336 92FE 81B4      046FC        8609+         MVI   CHMSK,RSTMSK SET TO RESTART ALL CHANS A24739
00533A 41C0 58DE            03E28  8610+XERX01   LA    LNKRG3,INT026 SET EXIT NO RQE          A24739
00533E 12B1                        8611+         LTR   WKREG2,TSTREG TEST IF RQE FOUND        A24739
005340 4780 F192            05416  8612+         BC    8,XERX05 NO, GO TO TEST IF EXCP   A24739
005344 58A0 8234            0477C  8613+         L     WKREG1,ADDRRQE INIT PTR TO DDR RQE      A24739
005348 191A                        8614+         CR    TSTREG,WKREG1 CHECK IF DDR PGM CK      A24739
00534A 4780 F0CE            05352  8615+         BC    8,XERX01A YES, SKIP RETURN OF RQE  A24739
00534E 41C0 58C4            03E0E  8616+         LA    LNKRG3,INT025A .         INIT REG TO RETURN RQE   A37476
005352                             8617+XERX01A  DS    0H A24739
005352 58A0 100C            0000C  8618+         L     WKREG1,TSTTCB(0,TSTREG) GET TCB ADDR FOR RQE     A24739
005356 41AA 0000            00000  8619+         LA    WKREG1,0(WKREG1) CLEAR HI-ORDER BYTE       M3330
00535A 58E0 0010            00010  8620+         L     LNKRG2,CVTADR GET CVT ADDR.          @SA77644
00535E 58E0 E0A0            000A0  8621+         L     LNKRG2,CVTHEAD(0,LNKRG2) GET HI-PRIORITY TCB    @SA77644
005362 12EE                        8622+XERX01B  LTR   LNKRG2,LNKRG2 END OF TCB CHAIN?      @SA77644
005364 4780 F192            05416  8623+         BC    8,XERX05 YES-CHECK IF EXCP         M4757
005368 19AE                        8624+         CR    WKREG1,LNKRG2 IS THIS THE TCB        @SA77644
00536A 58E0 E074            00074  8625+         L     LNKRG2,TCBTCB(0,LNKRG2) GET ADDR OF NEXT TCB   @SA77644
00536E 4770 F0DE            05362  8626+         BC    7,XERX01B NO-TO TEST NEXT TCB      A24739
       ABTERM INTERFACE - INPUT/OUTPUT SUPERVISOR                                                              PAGE  183


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8628+*                                                                     *
                                   8629+*                       ABTERM INTERFACE                              *
                                   8630+*                                                                     *
                                   8631+*  FUNCTION    SET UP ABTERM CODE AND BRANCH TO ABTERM TO SCHEDULE    *
                                   8632+*              ABEND FOR THIS TASK                                    *
                                   8633+*                                                                     *
                                   8634+*  ENTRY       XERX00 - FROM VALIDITY CHECK SUBROUTINE                *
                                   8635+*              XERX04                                                 *
                                   8636+*                                                                     *
                                   8637+*  EXITS       XCP021 - TO SVC FLIH                                   *
                                   8638+*              INT027 - TO CHANNEL RESTART                            *
                                   8639+*                                                                     *
                                   8640+*    GO TO ABTERM TO SET TASK WITH ABEND CODE                    A24739

005372 5890 8390            048D8  8642+XERX04   L     ICREG,DUMPCODE SET TO 400 CODE          A24739
005376 9102 83D9      04921        8643+         TM    XCPBTE,XCPVALID TEST IF DURING VDTY CHK  A24739
00537A 4710 F10A            0538E  8644+         BC    1,XERX04A YES, 400 ABEND           A24739
00537E 5890 8394            048DC  8645+         L     ICREG,DUMPCOD1 INIT FOR 0F1 (INT) CODE  A24739
005382 9180 83D9      04921        8646+         TM    XCPBTE,XCPCNT TEST IF DURING SVC       A24739
005386 4780 F10A            0538E  8647+         BC    8,XERX04A NO, 0F1 CODE             A24739
00538A 5890 8398            048E0  8648+         L     ICREG,DUMPCOD2 INIT FOR 0F2 CODE        A24739
00538E 5800 838C            048D4  8649+XERX04A  L     REG0,ABCORE GET NON-PGM CK CORE SIZE
005392 1810                        8650+         LR    TSTREG,REG0 INDICATE GETMAIN
005394 414A 0000            00000  8651+         LA    TCBREG,0(WKREG1) GET TCB ADDRESS
005398 58F0 81E0            04728  8652+         L     APBSRG,GETMAIN GET REGMAIN ENTRY ADDR
00539C 05EF                        8653+         BALR  LNKRG2,APBSRG GO GET SAVE AREA CORE
00539E 58F0 81EC            04734  8654+         L     APBSRG,IECPL2 RELOAD TEMP BASE REG   @SA77644
                                   8655+*        DEFINITION OF IOS - GETMAIN INTERFACE
                                   8656+*              REG0 (SUBPOOL AND LENGTH), TSTREG (NEGATIVE),
                                   8657+*              TCBREG (TCB ADDRESS), LNKRG2 (RETURN ADDR) ,
                                   8658+*              ABPSRG (ENTRY POINT ADDRESS)
0053A2 D77F 1000 1000 00000 00000  8659+         XC    0(128,TSTREG),0(TSTREG) CLEAR SAVE AREA
0053A8 D207 1000 8384 00000 048CC  8660+         MVC   ABID(8,TSTREG),IOSABEND PUT IN EBCDIC ID
0053AE 5041 0008            00008  8661+         ST    TCBREG,ABTCB(TSTREG) SAVE TCB ADDRESS
0053B2 5091 000C            0000C  8662+         ST    ICREG,ABCODE(TSTREG) SAVE ABEND CODE
0053B6 D203 1010 0038 00010 00038  8663+         MVC   ABIOPSW(4,TSTREG),IOPSWO SAVE INT DEVICE ADDR
0053BC 50B1 0014            00014  8664+         ST    WKREG2,ABRQEAD(TSTREG) SAVE RQE ADDRESS
0053C0 D200 1014 83D9 00014 04921  8665+         MVC   ABBTE(1,TSTREG),XCPBTE SAVE XCPBTE
0053C6 D20F 1018 B000 00018 00000  8666+         MVC   ABRQE(RQELN,TSTREG),0(WKREG2) SAVE RQE CONTENTS
0053CC D207 1030 0028 00030 00028  8667+         MVC   ABPCOPSW(8,TSTREG),PCKOPSW SAVE PGM CK OLD PSW
0053D2 D207 1028 0040 00028 00040  8668+         MVC   ABCSW(8,TSTREG),CSWLOC SAVE CURRENT CSW
0053D8 D207 1038 0020 00038 00020  8669+         MVC   ABSVOPSW(8,TSTREG),SVOPSW SAVE SVC OLD PSW
0053DE 9108 83D9      04921        8670+         TM    XCPBTE,XCPRECUR PROGRAM CHECK CAUSE ABND
0053E2 4780 F170            053F4  8671+         BC    8,XERX04B NO, SAVE CURR REGS
0053E6 58A0 81E4            0472C  8672+         L     WKREG1,PCKREGS GET PGM CK REGS ADDR
0053EA D23F 1040 A000 00040 00000  8673+         MVC   ABREGS(64,TSTREG),0(WKREG1) SAVE PGM CK REGS
0053F0 47F0 F174            053F8  8674+         BC    15,XERX04C CONTINUE
0053F4 900F 1040            00040  8675+XERX04B  STM   0,15,ABREGS(TSTREG) SAVE CURR REGS
0053F8 4104 0000            00000  8676+XERX04C  LA    REG0,0(TCBREG) INIT TCB PTR FOR ABTERM
0053FC 1819                        8677+         LR    TSTREG,ICREG GET ABEND CODE
0053FE 58F0 0010            00010  8678+         L     APBSRG,CVTADR GET CVT POINTER          A24739
005402 58F0 F034            00034  8679+         L     APBSRG,CVTABT(0,APBSRG) GET ABTERM ADDRESS       A24739
005406 05EF                        8680+         BALR  LNKRG2,APBSRG TO ABTERM                BBBBBB
005408 58F0 81EC            04734  8681+         L     APBSRG,IECPL2 RELOAD LOCAL BASE REG  @SA77644
       ABTERM INTERFACE - INPUT/OUTPUT SUPERVISOR                                                              PAGE  184


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8683+*    DEFINITION OF ABTERM - IOS INTERFACE                        BBBBBB
                                   8684+*     INPUT    TSTREG(CODE),LNKRG2(RET ADDR) APBSRG(BASE ADDR)    21016
                                   8685+*    REGS CHANGED  ICREG                                         BBBBBB

00540C 1B99                        8687+         SR    ICREG,ICREG CLEAR REG                A24739
00540E 181B                        8688+         LR    TSTREG,WKREG2 RELOAD RQE ADDRESS       A24739
005410 94F5 83D9      04921        8689+XERX03   NI    XCPBTE,FF-XCPRECUR-XCPVALID CLEAR RECURSING FLAG
005414 07FC                        8690+         BCR   15,LNKRG3 EXIT                     A24739

005416 91A0 83D9      04921        8692+XERX05   TM    XCPBTE,XCPCNT+XCPERR EXCP ENTRY               A24739
00541A 4790 F18C            05410  8693+         BC    8+1,XERX03 NO GO TO CHANNEL RESTART A24739
00541E                             8694+XERX06   DS    0H A24739
00541E 58A0 81F8            04740  8695+         L     WKREG1,AIEATCBP GET NEW/OLD POINTER      A24739
005422 58A0 A004            00004  8696+         L     WKREG1,4(0,WKREG1) GET CURRENT TCB          A24739
005426 47F0 F0EE            05372  8697+         BC    15,XERX04 GO TO ABEND TASK         A24739
00542A 5890 839C            048E4  8698+XERX09   L     ICREG,DUMP10F GET ABEND CODE          SA63707
00542E 41C0 50FC            03646  8699+XERX09A  LA    LNKRG3,XCP021A SET RETURN ADDRESS      SA63707
005432 1BBB                        8700+         SR    WKREG2,WKREG2 CLEAR RQE ADDR
005434 18A4                        8701+         LR    WKREG1,TCBREG GET TCB ADDRESS         SA63707
005436 47F0 F10A            0538E  8702+         B     XERX04A GO ABEND TASK           SA63707
00543A 9250 8391      048D9        8703+XERX02B  MVI   CODEDUMP,INVUCB INVALID UCB               21016
00543E 47F0 F04A            052CE  8704+         B     XERX02E HANDLE THE ERROR          21016
005442 9240 8391      048D9        8705+XERX02C  MVI   CODEDUMP,INVDCB INVALID DCB               21016
005446 47F0 F04A            052CE  8706+         B     XERX02E HANDLE THE ERROR          21016
00544A 9230 8391      048D9        8707+XERX02D  MVI   CODEDUMP,INVDEB INVALID DEB               21016
00544E 47F0 F04A            052CE  8708+         B     XERX02E HANDLE THE ERROR          21016
                                   8709+         DROP  APBSRG @SA77644

                                   8711+*  THIS ROUTINE CLEARS A POSSIBLE CONTINGENT CONNECT AFTER A     A51502
                                   8712+*  PROGRAM CHECK IN THE VALIDITY CHECK ROUTINE.                  A51502
005452 41A0 5A22            03F6C  8713+XERX07   LA    WKREG1,INT027 TBSE
005456 50A0 83B0            048F8  8714+         ST    WKREG1,LNKRG1S TBSE
00545A 4867 0004            00004  8715+         LH    UAREG,UCBCHA(UCBREG) GET DEV/PATH ADDR       SA71469
00545E 5460 836C            048B4  8716+         N     UAREG,ADDRMSK SA71469
005462 47F0 5D56            042A0  8717+         BC    15,INTSEN3A .            GO DO A SENSE           SA62867
       TCB EXCP INTERFACE (TSO) - INPUT/OUTPUT SUPERVISOR                                                      PAGE  185


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8719+*        THIS ROUTINE USES THE TCB ADDRESS IN PARAMETER REGISTER
                                   8720+*          TO OVERLAY THE TCB ADDRESS IN THE ENVIRONMENTAL REGISTER.
                                   8721+*          THE REQUEST WILL BE PROCESSED AS A NORMAL EXCP.


                                   8723+*  ENTRY-      IGC092                                             20001

                                   8725+*  INPUT-      REGISTER 0-
                                   8726+*                 BYTE1 - RESERVED FOR OPTION FIELD
                                   8727+*                 BYTES 2,3,4 - TCB ADDRESS
                                   8728+*              REGISTER 1-
                                   8729+*                 IOB ADDRESS

                                   8731+*  OUTPUT-     NONE
                                   8732+*  EXTRN REF-  NONE
                                   8733+*  ERROR MSG-  NONE

005468                             8735+IECXPT   DS    0D ALIGN ON DOUBLE WORD      20001
005468                             8736+IGC092   DS    0H SVC NAME                  20001
005468 0550                        8737+         BALR  BASREG,0 GET TEMP LOCAL BASE REG   20001
00546A                             8738+         USING *,BASREG ESTABLISH TEMP ADDRESS    20001
                                   8739+         DROP  BASREG2 DROP BASE REG2            M5547
00546A 5850 5072            054DC  8740+         L     BASREG,AIOSBAS GET IOS BASE LOADED    @SA77644
                                   8741+         DROP  BASREG DROP TEMP BASE REG        20001
00354A                             8742+         USING IOSBAS,BASREG ESTABLISH REAL ADDRESSABILTY
00546E 4180 5FFE            00FFE  8743+         LA    BASREG2,4094(0,BASREG) LOAD HIGH BASE REG        20001
004548                             8744+         USING IOSBAS+4094,BASREG2 ESTABLISH HIGH ADDRESSABILTY
005472 58F0 81EC            04734  8745+         L     APBSRG,IECPL2 GET LOCAL BASE REG     @SA77644
005284                             8746+         USING IECCPL02,APBSRG ESTAB. LOCAL ADDRESS   @SA77644
005476 91F0 0021      00021        8747+         TM    SVOPSW+1,PPKEY IS REQST FROM SPVSR       20001
00547A 4770 F216            0549A  8748+         BC    7,IECXPT1 NO, GO ABEND TASK         20001
00547E 910F 1010      00010        8749+         TM    IOBCC(TSTREG),X'0F' IS PTK IN IOBSIOCC?    @SA78151
005482 47E0 F20C            05490  8750+         BNO   IEC092B NO, CONTINUE           @SA77080
005486 D300 0218 1010 00218 00010  8751+         MVZ   IEASCSAV(1),IOBCC(TSTREG) YES, UPDATE SVC SAVE  @SA78151
00548C 5800 0218            00218  8752+         L     TCBRG0,IEASCSAV AND PARAMETER REGISTER @SA77080

                                   8754+*   GET TCB ADDRESS PASSED IN REG 0 (PARAMETER REGISTER)          20001
005490                             8755+IEC092B  EQU   * @SA77080
005490 5040 821C            04764  8756+         ST    TCBREG,CURRTCB SAVE CURRENT TCB ADDR   SA53199
005494 1840                        8757+         LR    TCBREG,TCBRG0 CHANGE TCB ADDRESS        20001
005496 47F0 5008            03552  8758+         BC    15,XBASE SERVICE EXCP              20001

00549A 5890 8380            048C8  8760+IECXPT1  L     ICREG,DUMPTCB SET UP ABEND CODE         20001
00549E 9280 83D9      04921        8761+         MVI   XCPBTE,XCPCNT SETUP ENTRANCE BYTE     SA65663
0054A2 47F0 F1AA            0542E  8762+         BC    15,XERX09A GO TO ABTERM            SA65663

                                   8764+         TITLE 'CHANNEL CHECK HANDLER INTERFACE - INPUT/OUTPUT SUPERVISX
       CHANNEL CHECK HANDLER INTERFACE - INPUT/OUTPUT SUPERVISOR                                               PAGE  186


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8765+*              CHANNEL CHECK HANDLER INTERFACE


                                   8767+*        THIS ROUTINE LOADS THE APPENDAGE BASE REGISTER WITH THE
                                   8768+*        BASE REGISTER VALUE FOR CCH.  THIS VALUE IS ALSO THE FIRST
                                   8769+*        EXECUTABLE INSTRUCTION IN CCH.  A CODE, PLACED IN THE HIGH
                                   8770+*        ORER END OF BASE REGISTER VALUE, IS ALSO LOADED.  THIS CODE
                                   8771+*        IS DETERMINED AT EACH INTERCEPT POINT WITHIN IOS.  A BRANCH
                                   8772+*        IS THEN TAKEN VIA REGISTER 15 TO THE CHANNEL CHECK HANDLER.
                                   8773+*        FOLLOWING THE BALR INSTR. IS THE RETURN VECTOR TABLE.
                                   8774+*        WHICH WILL DETERMINE THE RETURN POINT TO IOS IF THE SYSTEM
                                   8775+*        IS NOT ABORTED.

                                   8777+*        THE PROGRAM IS ENTERED WHEN
                                   8778+*             1. CDC,CCC,ICC ERROR BITS ARE FOUND IN THE CSW
                                   8779+*             2. CHANNEL OR SUBCHANNEL BUSY WHEN CONDITION SHOULD
                                   8780+*                NOT EXIST


                                   8782+*    ENTRY FOR INTERRUPT WITH NO ASSOCIATED UCB.                   CCHB
0054A6                             8783+SERR     DS    0H ENTRY TO SERR ROUTINE     21014
                                   8784+*
                                   8785+* MC INSTRUCTION GENERATED BY THE HOOK MACRO
                                   8786+* COMPATIBLE FOR MACHINES WITHOUT THE MC HARDWARE
                                   8787+*
0054A6 AF050FEE                    8788+         DC    XL1'AF',AL3(IHLMIO1) MC INSTRUCTION
0054AA 47050FEE                    8789+         DC    XL1'47',AL3(IHLMIO1) NOP TO CARRY EID
0054AE 910E 0045      00045        8790+         TM    CSWLOC+5,CSWCTK+CSWICK+CATCCH CAT ERRORS           21014
0054B2 4780 8290            047D8  8791+         BC    8,SELECTV TBSE

                                   8793+*    ENTER CHANNEL CHECK HANDLER TO RECORD CHANNEL FAILURE.        CCHB
0054B6 1B77                        8794+         SR    UCBREG,UCBREG INDICATE NO UCB            CCHB
0054B8 9214 81FC      04744        8795+SERR02   MVI   CATAPP,CATINT SET CCH CODE FOR INTERRUPT CCHB
0054BC                             8796+SERR01   EQU   * .                      CAUSE ALL POSSIBLE ENTRIES TO
0054BC                             8797+SERR04   EQU   *
0054BC 58F0 81FC            04744  8798+         L     APBSRG,CATAPP .          LOAD APPENDAGE BASE REGISTER
0054C0 4060 003A            0003A  8799+         STH   UAREG,IOPSWO+2 SET UNIT ADDR IN I/O OLD BBBBBB
0054C4 05EF                        8800+         BALR  LNKRG2,APBSRG GO TO CCH HANDLER

                                   8802+*    DEFINITION OF CATAPP - IOS INTERFACE                        BBBBBB
                                   8803+*    INPUT     UAREG,UCBREG,LNKRG2(RET ADDR),APBSRG(BASE ADDR)   BBBBBB
                                   8804+*    REGS CHANGED  NONE                                          BBBBBB

                                   8806+*        RETURN VECTOR TABLE
                                   8807+**********************************************************************

                                   8809+**********************************************************************
0054C6 47F0 5578            03AC2  8810+         BC    15,XCP056E RETURN AFTER SIOAND TIO ON SEEK
0054CA 47F0 5770            03CBA  8811+         BC    15,INTCCH RETURN AFTER INERRUPT
0054CE 47F0 5D5E            042A8  8812+         BC    15,INTSEN3 RETURN, RETRY SENSE     SA61121
0054D2 47F0 5EA2            043EC  8813+         BC    15,INTS10A RETURN AFTER INVALID SNSSA61121
0054D6 47F0 5A22            03F6C  8814+         BC    15,INT027 RETURN NO UCB OR INVALID CUA19062
0054DA 0000
0054DC 0000354A                    8815+AIOSBAS  DC    A(IOSBAS) IOS BASE ADDRESS       @SA77644
       SIRB BLOCK RQE RETURN - INPUT/OUTPUT SUPERVISOR                                                         PAGE  187


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8817+*     THIS ROUTINE RECEIVES CONTROL FROM THE SUPERVISOR WHEN    SA53191
                                   8818+*     THE SIRB HAS ABENDED.  SVC 15 ZEROES THE RQE ADDRESS IN   SA53191
                                   8819+*     THE SIRB.  IF THIS ROUTINE IS ENTERED AND THE ADDRESS IS  SA53191
                                   8820+*     NOT ZERO, SVC 15 IS ISSUED TO POST THE USER, FREE THE     SA53191
                                   8821+*     RQE AND CLEAN UP THE UCB.                                 SA53191


0054E0 05F0                        8823+IECRQE00 BALR  APBSRG,0 ADDRESSABILITY                     SA53191
0054E2                             8824+         USING *,APBSRG SA53191
0054E2 58A0 F032            05514  8825+         L     WKREG1,SIRBAD2 GET ADDR OF SIRB        SA53191
0054E6 481A 001A            0001A  8826+         LH    TSTREG,SIRBRQE(WKREG1) GET RQE FROM SIRB       SA53191
0054EA 1211                        8827+         LTR   TSTREG,TSTREG HAS RQE BEEN RETURNED   SA53191
0054EC 4780 F030            05512  8828+         BC    8,XCPRQE2 YES, DON'T ISSUE SVC 15 SA53191
0054F0 5821 0004            00004  8829+         L     IOBREG,TSTIOB-1(TSTREG) GET IOB ADDR            SA53191
0054F4 94DF 2000      00000        8830+         NI    IOBFL1(IOBREG),FF-IOBERR MARK IOB WITH         SA53191
0054F8 9604 2000      00000        8831+         OI    IOBFL1(IOBREG),IOBEX PERMENENT ERROR       SA53191
0054FC 4871 0002            00002  8832+         LH    UCBREG,TSTUCB(TSTREG) GET UCB ADDRESS         SA53191
005500 91FF 7002      00002        8833+         TM    UCBID(UCBREG),UCBIDV WAS 25E SCHEDULED       SA53191
005504 4710 F02E            05510  8834+         BC    1,XCPRQE1 NO, ISSUE SVC 15        SA53191
005508 4177 0006            00006  8835+         LA    UCBREG,6(UCBREG) CORRECT UCB ADDR        SA53191
00550C 4071 0002            00002  8836+         STH   UCBREG,TSTUCB(TSTREG) IN UCB                  SA53191
005510 0A0F                        8837+XCPRQE1  SVC   15 ISSUE ERROR EXCP        SA53191
005512 0A03                        8838+XCPRQE2  SVC   3 ISSUE EXIT FOR SIRB     SA53191
005514 00000000                    8839+SIRBAD2  DC    V(SIRB) SIRB ADDRESS            SA53191
                                   8840+         DROP  APBSRG SA53191
                                   8841+         TITLE 'RMS CHANNEL RESTART INTERFACE - INPUT/OUTPUT SUPERVISORX
       RMS CHANNEL RESTART INTERFACE - INPUT/OUTPUT SUPERVISOR                                                 PAGE  188


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8842+*    THIS CODE IS ENTERED WHEN IOS IS PROCESSING I/O FOR RMS.     20061
                                   8843+*    ITS FUNCTION IS TO ALLOW ONLY THE RMS RQE TO BE PROCESSED.   20061
                                   8844+*    WHEN FOUND, IF THE UCB WAS ACTIVE FOR ANOTHER REQUEST,       20061
                                   8845+*    HOUSEKEEPING IS DONE TO INSURE THAT THE OTHER REQUEST WILL   20061
                                   8846+*    BE RESTARTED FROM THE BEGINNING AFTER RMS IS DONE, AND THE   20061
                                   8847+*    RMS RQE REQUEST IS STARTED.                                  20061

                                   8849+*    ALLOW ONLY THE RMS RQE TO BE STARTED                         20061
005518                             8850+         USING *,APBSRG ESTABLISH ADDRESSABILITY BBBBBB
005518 48A0 7014            00014  8851+INTRMS   LH    WKREG1,UCBLTS(0,UCBREG) INIT REG TO LAST USER     20061
00551C 48B0 F7BE            05CD6  8852+         LH    WKREG2,ARMSRQE+1 INIT PTR TO RMS RQE       20061
005520 191B                        8853+         CR    TSTREG,WKREG2 TEST IF RMS REQUEST       20061
005522 4770 F018            05530  8854+         BC    7,INTRMS3 NO, GO TO TEST RMS UCB    20061
005526 191A                        8855+         CR    TSTREG,WKREG1 TEST IF RMS WAS LAST USER 20061
005528 4780 5B04            0404E  8856+         BC    8,INTRMS1 YES-PROCESS REQUEST       20061
00552C 47F0 F022            0553A  8857+         BC    15,INTRMS4 GO TO TEST UCB            20061

005530 4970 F7C4            05CDC  8859+INTRMS3  CH    UCBREG,ARMSUCB TEST IF RMS UCB           20061
005534 077E                        8860+         BCR   7,LNKRG2 NO, RETURN TO CHN SRCH    20061
005536 19AB                        8861+         CR    WKREG1,WKREG2 TEST IF RMS WAS LAST USER 20061
005538 078E                        8862+         BCR   8,LNKRG2 YES, GO TO GET RMS RQE    20061
00553A 9109 7006      00006        8863+INTRMS4  TM    UCBFL1(UCBREG),UCBCUB+UCBERR IS LAST RQE IMPORTANT 20061
00553E 4780 F050            05568  8864+         BC    8,INTRMS2 NO-GO TO INIT UCB FLAG    20061
005542 40A0 F7C6            05CDE  8865+         STH   WKREG1,RMSRQESV STORE IN SAVE AREA        20061
005546 58A0 A004            00004  8866+         L     WKREG1,TSTIOB-1(0,WKREG1) GET IOB POINTER          20061
00554A D403 A000 F7CC 00000 05CE4  8867+         NC    IOBFL1(4,WKREG1),CLRMSK CLEAR FLAGS AND SENSE     20061
005550 D708 A008 A008 00008 00008  8868+         XC    IOBFL3(9,WKREG1),IOBFL3(WKREG1) CLEAR FLG,CSW,CC   20061
005556 D701 A01E A01E 0001E 0001E  8869+         XC    IOBECT(2,WKREG1),IOBECT(WKREG1) CLEAR ERROR COUNT  20061
00555C 58A0 A014            00014  8870+         L     WKREG1,IOBDCB-1(0,WKREG1) GET DCB POINTER          20061
005560 943F A02C      0002C        8871+         NI    DCBFL(WKREG1),FF-DCBPER RESET ERROR FLAGS         20061
005564 9640 F7BC      05CD4        8872+         OI    RMSFLAG,RMSRQEFL SET SAVE-AREA-IN-USE FLAG 20061
005568                             8873+INTRMS2  DS    0H 20061
005568 9407 702C      0002C        8874+         NI    UCBFL4(UCBREG),FF-UCBDAV RESET DAVV FLAGS          20061
00556C 9102 7006      00006        8875+         TM    UCBFL1(UCBREG),UCBASK TEST ARM SEEK             20061
005570 9200 7006      00006        8876+         MVI   UCBFL1(UCBREG),ZERO ZERO FLAG IN ALL CASES    20061
005574 41A0 5A22            03F6C  8877+         LA    WKREG1,INT027 20061
005578 071A                        8878+         BCR   1,WKREG1 YES-RECYCLE TO            M0400
                                   8879+*                                       RESTART LCH WITH SEEKS    20061
00557A 191B                        8880+         CR    TSTREG,WKREG2 TEST IF RMS RQE           20061
00557C 077E                        8881+         BCR   7,LNKRG2 NO, GO TO GET RMS RQE     20061
00557E 47F0 5B04            0404E  8882+         BC    15,INTRMS1 GO TO PROCESS RMS REQ     20061

                                   8884+         DROP  APBSRG
                                   8885+         TITLE 'EXCP BRANCH ENTRY FOR RMS MODULE LOADER - INPUT/OUTPUT X
       EXCP BRANCH ENTRY FOR RMS MODULE LOADER - INPUT/OUTPUT SUPERVISOR                                       PAGE  189


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8886+*        EXCP BRANCH ENTRY                                        20061
                                   8887+*                                                                 20061
                                   8888+*    THIS ROUTINE ALLOWS THE RMS MODULE LOADER TO USE THE EXCP    20061
                                   8889+*    FUNCTION OF IOS WITHOUT USING THE INTERRUPT HANDLERS OR      20061
                                   8890+*    OTHER SUPERVISOR ROUTINES.  THIS DIRECT BRANCH ENTRY IS      20061
                                   8891+*    PROVIDED TO REDUCE THE EXPOSURE TO A SECOND HARD             20061
                                   8892+*    MACHINE CHECK.  RMS HAS AN RQE DEFINED FOR ITS EXCLUSIVE     20061
                                   8893+*    USE, SO THE BRANCH ENTRY CAN BE TREATED AS AN ERROR EXCP.    20061
                                   8894+*    INPUT TO THIS ROUTINE IS THE IOB ADDRESS IN REGISTER 1, AND  20061
                                   8895+*    LNKRG2, WHICH POINTS TO A FULL WORD PARAMETER LOCATION, IS  A40762
                                   8896+*    ALSO USED TO EXIT TO RMS. BIT 0 AND 1 OF THE PARAMETER      A40762
                                   8897+*    LOCATION WILL INDICATE RMS ENTRANCE, RMS EXIT OR MCH IS TO  A40762
                                   8898+*    ENTER WAIT STATE.                                           A40762

005582                             8900+IECRMS   DS    0C 20061
                                   8901+         DROP  BASREG,BASREG2 DROP BASE REGS TEMP       20061
005582                             8902+         USING *,APBSRG ESTAB TEMP BASE REG       20061
005582 5850 F766            05CE8  8903+         L     BASREG,IOSBASAD INIT BASREG               20061
005586 4180 5FFE            00FFE  8904+RMS001   LA    BASREG2,4094(0,BASREG) INIT SECOND BASE REG      20061
00354A                             8905+         USING IOSBAS,BASREG ESTABLISH                 20061
004548                             8906+         USING IOSBAS+4094,BASREG2 ADDRESSABILITY            20061
00558A 50E0 F756            05CD8  8907+         ST    LNKRG2,RMSSAVE SAVE RMS RETURN ADDR      20061
                                   8908+*    A TEST IS NOW MADE TO DETERMINE IF, VIA A PREVIOUS BRANCH    20061
                                   8909+*    EXCP, THE TIES BETWEEN A UCB AND AN RQE WERE REMOVED (I.E.-  20061
                                   8910+*    UCBERR OR UCBCUB WAS TURNED OFF).  IF SO, THE TIES ARE       20061
                                   8911+*    RESTORED VIA THE UCBCUB FLAG AND THE UCBLTS FIELD.           20061
00558E 9140 F752      05CD4        8912+         TM    RMSFLAG,RMSRQEFL TEST IF PREV RQE IMPORTNT 20061
005592 4780 F028            055AA  8913+         BC    8,RMS002 NO-BRANCH                 20061
005596 94BF F752      05CD4        8914+         NI    RMSFLAG,FF-RMSRQEFL RESET FLAG                20061
00559A 48C0 F75C            05CDE  8915+         LH    WKREG3,RMSRQESV GET RQE PTR               20061
00559E 48B0 C002            00002  8916+         LH    WKREG2,TSTUCB(0,WKREG3) GET UCB IT WAS TIED TO    20061
0055A2 9208 B006      00006        8917+         MVI   UCBFL1(WKREG2),UCBCUB SET FLAG TO TIE RQE + UCB 20061
0055A6 40C0 B014            00014  8918+         STH   WKREG3,UCBLTS(0,WKREG2) INSURE PROPER RQE         20061
0055AA 1B99                        8919+RMS002   SR    ICREG,ICREG CLEAR ICREG               20061
0055AC 9180 E000      00000        8920+         TM    0(LNKRG2),X'80' TEST FOR FINAL ENTRANCE  A40762
0055B0 4710 F0AE            05630  8921+         BC    1,IECRMSEX YES-RMS THRU,GO TO EXIT  A40762
0055B4 9680 F752      05CD4        8922+         OI    RMSFLAG,RMSACTV SET RMS FLAG FOR CHN REST 20061
                                   8923+*                                       TO START ONLY THE RMS RQE 20061
0055B8 92B0 83D9      04921        8924+         MVI   XCPBTE,XCPRMS+XCPCNT+XCPERR SET ENTRY FLAGS        20061
                                   8925+*    INITIALIZE THE STANDARD IOS REGISTERS                        20061
0055BC 1821                        8926+         LR    IOBREG,1 XFER IOB PTR FROM PARM RG 20061
0055BE 5840 2014            00014  8927+         L     DCBREG,IOBDCB-1(0,IOBREG) GET DCB POINTER          20061
0055C2 5830 402C            0002C  8928+         L     DEBREG,DCBDEB-1(0,DCBREG) GET DEB POINTER          20061
0055C6 4870 3022            00022  8929+         LH    UCBREG,DEBUCB+1(0,DEBREG) GET UCB PTR-ASSUME 1 EXT 20061
0055CA 4070 F75A            05CDC  8930+         STH   UCBREG,ARMSUCB SAVE RMS UCB ADDR         20061

                                   8932+*    THIS TEST IS TO SEE IF RMS PASSED SPECIAL INDICATOR. IF YES,A40762
                                   8933+*    UCBFL1 WILL BE CLEARED TO ALLOW RMS TO RESTART THE DEVICE.  A40762
                                   8934+*    IF NO THE REQUEST IS IGNORED AND CONTINUE NORMALLY.         A40762

0055CE 9140 E000      00000        8936+         TM    0(LNKRG2),X'40' TEST FOR RMS INDICATOR   A40762
0055D2 4780 F058            055DA  8937+         BC    8,RMS002A NO-CONTINUE              A40762
0055D6 9200 7006      00006        8938+         MVI   UCBFL1(UCBREG),ZERO YES ALLOW RMS TO RESTART A40762
                                   8939+*    INITIALIZE THE IOB                                           20061
0055DA 4090 201E            0001E  8940+RMS002A  STH   ICREG,IOBECT(0,IOBREG) CLEAR ERROR COUNTER      20061
       EXCP BRANCH ENTRY FOR RMS MODULE LOADER - INPUT/OUTPUT SUPERVISOR                                       PAGE  190


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0055DE D708 2008 2008 00008 00008  8941+         XC    IOBFL3(9,IOBREG),IOBFL3(IOBREG) CLEAR FL3,CSW,CC   20061
0055E4 D403 2000 F762 00000 05CE4  8942+         NC    IOBFL1(4,IOBREG),CLRMSK CLEAR FLAGS AND SENSE     20061
0055EA 927F 2004      00004        8943+         MVI   IOBCOD(IOBREG),NORMC SET NORMAL COMPL FLAG     20061
                                   8944+*    INITIALIZE THE RMS RQE                                       20061
0055EE 4810 F754            05CD6  8945+         LH    TSTREG,ARMSRQE+1 INIT TSTREG TO RMS RQE    20061
0055F2 4070 1002            00002  8946+         STH   UCBREG,TSTUCB(0,TSTREG) STORE UCB PTR IN RQE      20061
0055F6 9023 1004            00004  8947+         STM   IOBREG,DEBREG,TSTIOB-1(TSTREG) ST IOB AND DEB PTRS 20061
0055FA 9200 1004      00004        8948+         MVI   TSTASSN(TSTREG),ZERO INSURE RQE ASSIGNED       20061
0055FE 9200 100C      0000C        8949+         MVI   TSTKEY(TSTREG),ZERO SUPERVISOR PROT. KEY      20061
                                   8950+*    ENQ THE RMS RQE ON THE PROPER LCH QUEUE                      20061
005602 58F0 F76E            05CF0  8951+         L     APBSRG,PNQAD ADDR OF XCPPNQ           BBBBBB
005606 05EF                        8952+         BALR  LNKRG2,APBSRG ENQ RMS RQE ON LCH       BBBBBB
005608                             8953+         USING *,LNKRG2 ESTABLISH TEMP BASE REG  BBBBBB
005608 58F0 E6D8            05CE0  8954+RMS003   L     APBSRG,RMSBASE ADDR OF IECRMS           BBBBBB
                                   8955+         DROP  LNKRG2 DROP TEMP BASE REG       BBBBBB
005582                             8956+         USING IECRMS,APBSRG ESTABLISH ADDRESSABILITY BBBBBB
                                   8957+*    SET I/O OLD PSW FOR PROPER CHANNEL RESTART                   20061
00560C D100 003A 7004 0003A 00004  8958+         MVN   IOPSWO+2(1),UCBCHA(UCBREG) INIT CHAN ADDR IN IOPSW 20061
005612 94BF 7006      00006        8959+         NI    UCBFL1(UCBREG),FF-UCBNRY INSURE FLG OFF-ALLOW REST 20061
005616 41B0 5A22            03F6C  8960+         LA    WKREG2,INT027 20061
00561A 07FB                        8961+         BCR   15,WKREG2 GO TO CHAN RESTART        20061

                                   8963+*    WHEN RMS IS ACTIVE, THIS IS THE ONLY EXIT FROM IOS           20061
00561C 58E0 F756            05CD8  8964+INTRMSEX L     LNKRG2,RMSSAVE LOAD SAVED RMS RETURN REG 20061
005620 9180 F752      05CD4        8965+         TM    RMSFLAG,RMSACTV TEST IF RMS STILL ACTIVE  20061
005624 471E 0004            00004  8966+         BC    1,4(LNKRG2) YES EXIT TO RMS          A40762
005628 94EF 83D9      04921        8967+         NI    XCPBTE,FF-XCPRMS RESET RMS FLAG            20061
00562C 47FE 0004            00004  8968+         BC    15,4(LNKRG2) RETURN TO RMS            A40762

                                   8970+*        RMS BRANCH EXIT                                          20061
                                   8971+*                                                                 20061
                                   8972+*    THIS ROUTINE IS ENTERED AFTER RMS HAS COMPLETED ALL OF       20061
                                   8973+*    ITS WORK.  THE PURPOSE OF THE ROUTINE IS TO TURN OFF THE     20061
                                   8974+*    RMS ACTIVE FLAG AND TRY TO RESTART THE SYSTEM.  THE          20061
                                   8975+*    RMS FLAG IN XCPBTE IS LEFT ON TO INSURE EXITING TO RMS       20061
                                   8976+*    FOR ITS FINAL CLEAN-UP.                                      20061
005630 9210 83D9      04921        8977+IECRMSEX MVI   XCPBTE,XCPRMS INDICATE INTRPT ENTRY     20061
005634 947F F752      05CD4        8978+         NI    RMSFLAG,FF-RMSACTV RESET ACTIVE FLAG         20061
005638 92FE 81B4      046FC        8979+         MVI   CHMSK,X'FE' SET CHMSK TO REST ALL CHN 20061
00563C 41B0 5A08            03F52  8980+         LA    WKREG2,INT033 20061
005640 07FB                        8981+         BCR   15,WKREG2 GO TO CHAN RESTART        20061

                                   8983+         DROP  APBSRG BBBBBB
       DDR APPENDAGE SUPPORT - INPUT/OUTPUT SUPERVISOR                                                         PAGE  191


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   8985+*                       DDR APPENDAGE SUPPORT

                                   8987+*   DDR USES THE DDR APPENDAGE VECTOR TABLE (DDRAPNVT) TO RETURN
                                   8988+*   FROM ITS SIO, CHANNEL END, AND ABNORMAL END APPENDAGES.  SINCE
                                   8989+*   DDR HAS ITS OWN RQE, AND USES SVC 15 IN LIEU OF EXCP, ALL
                                   8990+*   OF ITS I/O IS DRIVEN BY THESE APPENDAGE RETURNS.



                                   8992+*        REGISTER DEFINITION USED ONLY IN THIS ROUTINE            19022
000006                             8993+DDRLNK1  EQU   UAREG .                  LINK REG                  19022
00000D                             8994+DDRWK1   EQU   LCHREG .                 WORK REG                  19022
000002                             8995+DDRWK3   EQU   2 .                      PURGE WORK REG           BBBBBB
000002                             8996+DDRWK2   EQU   DDRWK3 .                 WORK REG                 BBBBBB
000008                             8997+DDRBKLNK EQU   8 .                      BACK LINK PTR - PRG SBRTN 19022
000009                             8998+DDRTST   EQU   9 .                      RQE PTR - PRG SUBRTN      19022
00000D                             8999+DDRPGBAS EQU   13 .                     BASE REG FOR PURGE SUBRTN 19022
00000F                             9000+DDRPGLNK EQU   15 .                     RET REG FOR PURGE SUBRTN  19022
                                   9001+*        WKREG2(11) & LNKRG2(14) USED AS WORK REGS AT DDRPURGE   A42501

                                   9003+*        MISCELLANEOUS DEFINITIONS USED IN THIS ROUTINE           19022
000000                             9004+DDRFRUCB EQU   0 .                      OFFSET TO 'FROM' UCB PTR  19022
000002                             9005+DDRTOUCB EQU   2 .                      OFFSET TO 'TO' UCB PTR    19022
000000                             9006+CURRENT  EQU   0 .                      DISPL. OF 0 INTO DDRWORK  19022
000002                             9007+LISTNXT  EQU   2 .                      OFFSET OF 2 FOR UCB LKUP  19022
00000E                             9008+DDRPGEND EQU   14 .                     PRG RET DISPL-QUE COMPL   19022
000080                             9009+DDRPRG   EQU   X'80' .                  RQE PURGED FROM WAIT QUE  19022
000040                             9010+DDRPASS1 EQU   X'40' .                  PRG FLG- FST PASS THRU Q  19022
000013                             9011+UCBUTB   EQU   X'13' OFFSET FOR DEVICE TYPE   A45778
000008                             9012+D2314A   EQU   X'08' 2314 DEVICE TYPE         A45778
000009                             9013+D30A     EQU   X'09' 3330 DEVICE TYPE         A45778
00001A                             9014+UCBSNS5  EQU   26 OFFSET FOR SNS           A54231



                                   9016+*        RE-EXCP APPENDAGE RETURNS                                19022
                                   9017+*                                                                 19022
                                   9018+*    THIS APPENDAGE RETURN BRANCHES TO THE ROUTINE THAT ENQUEUES  19022
                                   9019+*    THE RQE ON THE LCH.  FOR THE RETAIN UCB CONTROL VECTOR, THE  19022
                                   9020+*    UCBERR FLAG IS SET, AND THE RQE ADDRESS IS STORED AT UCBLTS. 19022

005642                             9022+DDRSTART DS    0H BBBBBB
005642                             9023+         USING *,APBSRG ESTABLISH ADDRESSABILITY BBBBBB

005642 9601 7006      00006        9025+DDRXCPWC OI    UCBFL1(UCBREG),UCBERR .  SET ERROR FLAG TO         19022
005646 4010 7014            00014  9026+         STH   TSTREG,UCBLTS(0,UCBREG) .  TIE UCB TO DDR RQE      19022
00564A 47F0 5966            03EB0  9027+         BC    15,INT17B GO TO INIT REQUEST       BBBBBB

00564E 94BF 7006      00006        9029+DDRXCPNC NI    UCBFL1(UCBREG),FF-UCBNRY RESET NOT READY TO INSURE 19022
                                   9030+*                                       DDR RQE GETS THRU. MAY    19022
                                   9031+*                                       RESULT IN MULT INT REQ MSG19022
005652 47F0 5966            03EB0  9032+         BC    15,INT17B GO TO INIT REQUEST       BBBBBB
       DDR APPENDAGE SUPPORT - INPUT/OUTPUT SUPERVISOR                                                         PAGE  192


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   9034+*        POST DDR APPENDAGE RETURNS                               19022
                                   9035+*                                                                 19022
                                   9036+*    THIS APPENDAGE RETURN LINKS TO THE IOS POST INTERFACE, AND   19022
                                   9037+*    THEN RETURNS TO CHANNEL RESTART.  FOR THE RELINQUISH         19022
                                   9038+*    CONTROL VECTOR, UCBERR IS SET OFF.  FOR RETAINING CONTROL,   19022
                                   9039+*    UCBERR IS SET ON AND THE RQE ADDRESS IS STORED IN UCBLTS.    19022

005656 94FE 7006      00006        9041+DDRPSTNC NI    UCBFL1(UCBREG),FF-UCBERR REMOVE TIE TO RQE         19022
00565A 47F0 F024            05666  9042+         BC    15,DDRPST01 .            GO TO POST                19022

00565E 9601 7006      00006        9044+DDRPSTWC OI    UCBFL1(UCBREG),UCBERR .  TIE UCB TO DDR RQE        19022
005662 4010 7014            00014  9045+         STH   TSTREG,UCBLTS(0,UCBREG) . WITH UCBERR ON          BBBBBB
005666 45E0 810A            04652  9046+DDRPST01 BAL   LNKRG2,XCPPST GO TO POST INTERFACE     BBBBBB
00566A 47F0 8290            047D8  9047+DDRPST1A BC    15,SELECTV BBBBBB



                                   9049+*        RETRY USER REQUEST APPENDAGE RETURN                      19022
                                   9050+*                                                                 19022
                                   9051+*    THIS APPENDAGE RETURN IS ENTERED AFTER DDR HAS COMPLETED     19022
                                   9052+*    ALL OF ITS FUNCTIONS.  THE INPUT IS THE USER RQE ADDRESS     19022
                                   9053+*    IN TSTREG.  THE USER RQE IS DEQUEUED FROM THE DDR WAIT       19022
                                   9054+*    QUEUE, AND IS ENQUEUED ON THE APPROPRIATE LCH.  ALL TRACES   19022
                                   9055+*    OF THE PREVIOUS ERROR ARE REMOVED FROM THE IOB, AND THE      19022
                                   9056+*    UCB IS TIED TO THE USER RQE VIA UCBERR AND UCBLTS.  CHANNEL  19022
                                   9057+*    RESTART IS THEN ENTERED.                                     19022

00566E 58D0 82B0            047F8  9059+DDRRETRY L     LCHREG,ADDRWTQ .         INIT PTR TO QUEUE         19022
005672 45E0 5630            03B7A  9060+         BAL   LNKRG2,XCPDDRDQ TO DEQ FROM WAIT QUEUE   BBBBBB
005676 9180 83BC      04904        9061+DDRRET1  TM    BLNKPTR,LCHOUT TEST IF RQE WAS FOUND    BBBBBB
00567A 4780 8290            047D8  9062+         BC    8,SELECTV NO-GO TO CHAN RESTART    BBBBBB
00567E 4870 1002            00002  9063+         LH    UCBREG,TSTUCB(0,TSTREG) INIT UCB PTR             BBBBBB
005682 9601 7006      00006        9064+         OI    UCBFL1(UCBREG),UCBERR .  SET ERROR FLAG            19022
005686 4010 7014            00014  9065+         STH   TSTREG,UCBLTS(0,UCBREG) .  TO TIE UCB TO USER RQE  19022
00568A 9823 1004            00004  9066+         LM    IOBREG,DEBREG,TSTIOB-1(TSTREG) INIT USER CB REGS   19022
00568E 5840 3018            00018  9067+         L     DCBREG,DEBDCB-1(0,DEBREG) INIT DCB PTR             19022
005692 943F 402C      0002C        9068+         NI    DCBFL(DCBREG),FF-DCBPER .RESET DCB ERR FLAG        19022
005696 4010 83CC            04914  9069+         STH   TSTREG,LTSVALSV UPDATE CURRENT RQE ADDR US05348
00569A 47F0 590C            03E56  9070+         BC    15,INT17A GO TO INIT RE-EXCP       BBBBBB



                                   9072+*        SWAP UCB INFORMATION APPENDAGE RETURN                    19022
                                   9073+*                                                                 19022
                                   9074+*    THIS APPENDAGE RETURN IS ENTERED AFTER ALL I/O HAS BEEN      19022
                                   9075+*    QUIESCED ON THE 'TO' AND 'FROM' DEVICES.  IT SWAPS ALL       19022
                                   9076+*    DEVICE INFORMATION IN THE UCBS, BUT LEAVES THE VOLUME        19022
                                   9077+*    INFORMATION.  ALL ENTRIES IN THE UCB LOOK UP TABLE FOR       19022
                                   9078+*    THESE UCBS ARE CHANGED.  IF THE UCBS HAVE DIFFERENT          19022
                                   9079+*    LCH QUEUES, ALL RQES FOR THESE UCBS ARE SWAPPED TO THE       19022
                                   9080+*    OTHER LCH QUEUE.  THE UCBNRY FLAG IS SET SO THAT NO I/O      19022
                                   9081+*    IS STARTED UNTIL THE VOLUME SWAP IS COMPLETE.  CHANNEL       19022
                                   9082+*    RESTART IS THEN ENTERED.                                     19022
                                   9083+*    THE INPUT TO THIS ROUTINE IS A POINTER IN REG0 TO A FULL     19022
                                   9084+*    WORD CONSTANT CONTAINING TWO HALF WORD POINTERS TO THE       19022
       DDR APPENDAGE SUPPORT - INPUT/OUTPUT SUPERVISOR                                                         PAGE  193


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   9085+*    'FROM' AND 'TO' UCBS.                                        19022

                                   9087+*    THIS ROUTINE SWAPS THE 'TO' AND 'FROM' UCB POINTERS IN       19022
                                   9088+*    THE UCB LOOK UP TABLE.                                       19022
00569E 1820                        9089+DDRSWAP  LR    DDRWK2,REG0 .            SAVE PTR TO UCBS          19022
0056A0 48B0 2000            00000  9090+         LH    WKREG2,DDRFRUCB(0,DDRWK2) GET PTR TO 'FROM'        19022
0056A4 48A0 2002            00002  9091+         LH    WKREG1,DDRTOUCB(0,DDRWK2) GET PTR TO 'TO'          19022
0056A8 19BA                        9092+         CR    WKREG2,WKREG1 .          TEST IF 'TO' = 'FROM'     19022
0056AA 4780 F228            0586A  9093+         BC    8,DDR007 .               YS, BR PAST INFO SWAP     19022
0056AE 58C0 81D8            04720  9094+         L     WKREG3,LISTA .           INIT LOOK UP TBL PTR    SA71362
0056B2 49B0 C000            00000  9095+DDR001   CH    WKREG2,CURRENT(0,WKREG3) TEST FOR 'FROM' UCB       19022
0056B6 4770 F080            056C2  9096+         BC    7,DDR002 .               NO, GO TO TST 'TO'        19022
0056BA 40A0 C000            00000  9097+         STH   WKREG1,CURRENT(0,WKREG3) STORE 'TO' PTR            19022
0056BE 47F0 F08C            056CE  9098+         BC    15,DDR003 .              BRANCH                    19022

0056C2 49A0 C000            00000  9100+DDR002   CH    WKREG1,CURRENT(0,WKREG3) TEST FOR 'TO' UCB         19022
0056C6 4770 F08C            056CE  9101+         BC    7,DDR003 .               NO, BRANCH                19022
0056CA 40B0 C000            00000  9102+         STH   WKREG2,CURRENT(0,WKREG3) STORE 'FROM' PTR          19022
0056CE 41C0 C002            00002  9103+DDR003   LA    WKREG3,LISTNXT(0,WKREG3) UPDATE LKUP TBL PTR       19022
0056D2 9101 C001      00001        9104+         TM    CURRENT+1(WKREG3),DUMADR TEST FOR END OF TBL       19022
0056D6 4780 F070            056B2  9105+         BC    8,DDR001 .               NO, LOOP                  19022

                                   9107+*    THIS ROUTINE SWAPS BYTES 1, 4 THRU 6, 8 THRU 15, AND FOR   SA77183
                                   9108+*    MULTI-PROCESSING, -4 THROUGH -1 OF THE UCBS.                 19022
0056DA D213 F25A A000 0589C 00000  9109+         MVC   DDRWORK(20),0(WKREG1) SAVE 'TO' BYTES          A45578
0056E0 D200 A001 B001 00001 00001  9110+         MVC   1(1,WKREG1),1(WKREG2) SWAP 'FROM' BYTES       SA70265
0056E6 D204 A004 B004 00004 00004  9111+         MVC   UCBCHA(5,WKREG1),UCBCHA(WKREG2) SWAP 'FROM' BYTES A45578
0056EC D200 A00A B00A 0000A 0000A  9112+         MVC   UCBLCI(1,WKREG1),UCBLCI(WKREG2) SWAP 'FROM' BYTE SA77183
0056F2 D100 A00C B00C 0000C 0000C  9113+         MVN   UCBCHM(1,WKREG1),UCBCHM(WKREG2) SWAP 'FROM' BYTES  19022
0056F8 D206 A00D B00D 0000D 0000D  9114+         MVC   UCBNAM(7,WKREG1),UCBNAM(WKREG2) SWAP 'FROM' BYTES  19022
0056FE 9640 A006      00006        9115+         OI    UCBFL1(WKREG1),UCBNRY .  SET 'TO' NOT READY        19022
005702 94BF A003      00003        9116+         NI    SRTESTAT(WKREG1),FF-UCBCHGS TURN OFF IN 'TO'    SA67706
005706 9140 B003      00003        9117+         TM    SRTESTAT(WKREG2),UCBCHGS ON IN 'FROM'        SA67706
00570A 4780 F0D0            05712  9118+         BC    8,DDR03SW SA67706
00570E 9640 A003      00003        9119+         OI    SRTESTAT(WKREG1),UCBCHGS TURN ON IN 'TO'     SA67706
005712                             9120+DDR03SW  EQU   * SA67706
005712 94FE A006      00006        9121+         NI    UCBFL1(WKREG1),FF-UCBERR REMOVE TIE TO RQE         19022
005716 D200 B001 F25B 00001 0589D  9122+         MVC   1(1,WKREG2),DDRWORK+1 SWAP 'TO' BYTE      SA70265
00571C D204 B004 F25E 00004 058A0  9123+         MVC   UCBCHA(5,WKREG2),DDRWORK+4 SWAP 'TO' BYTES        A45578
005722 D200 B00A F264 0000A 058A6  9124+         MVC   UCBLCI(1,WKREG2),DDRWORK+10 SWAP 'TO' BYTE       SA77183
005728 D100 B00C F266 0000C 058A8  9125+         MVN   UCBCHM(1,WKREG2),DDRWORK+12 SWAP 'TO' BYTES      A45578
00572E D206 B00D F267 0000D 058A9  9126+         MVC   UCBNAM(7,WKREG2),DDRWORK+13 SWAP 'TO' BYTES      A45578
005734 9640 B006      00006        9127+         OI    UCBFL1(WKREG2),UCBNRY .  SET 'FROM' NOT READY      19022
005738 94BF B003      00003        9128+         NI    SRTESTAT(WKREG2),FF-UCBCHGS TURN OFF IN 'FROM'  SA67706
00573C 9140 F25D      0589F        9129+         TM    DDRWORK+3,UCBCHGS ON IN 'TO'          SA67706
005740 4780 F106            05748  9130+         BC    8,DDR03SW1 SA67706
005744 9640 B003      00003        9131+         OI    SRTESTAT(WKREG2),UCBCHGS TURN ON IN 'FROM'   SA67706
005748                             9132+DDR03SW1 EQU   * SA67706
005748 94FE B006      00006        9133+         NI    UCBFL1(WKREG2),FF-UCBERR REMOVE TIE TO RQE         19022
00574C 9520 A012      00012        9134+         CLI   UCBTYP+2(WKREG1),DSKTYP IS DEVICE DISK           A50243
005750 4770 F11A            0575C  9135+         BNE   DDR03D NO, DON'T CHECK 3330     A50243
005754 9509 A013      00013        9136+         CLI   UCBUTB(WKREG1),D30A IS DEVICE 3330           A45778
005758 4780 F184            057C6  9137+         BE    DDR03X YES NO STAT SWAP         A45778
00575C 90AE F26E            058B0  9138+DDR03D   STM   WKREG1,LNKRG2,DDREGSAV SAVE REGISTERS          SA57909
005760 45E0 F1B4            057F6  9139+         BAL   LNKRG2,DDRSTAT GO GET STAT ADDRESS     SA57909
       DDR APPENDAGE SUPPORT - INPUT/OUTPUT SUPERVISOR                                                         PAGE  194


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005764 50C0 F25A            0589C  9140+         ST    WKREG3,DDRWORK SAVE STAT ADDRESS       SA57909
005768 48A2 0000            00000  9141+         LH    WKREG1,DDRFRUCB(DDRWK2) GET 'FROM' UCB ADDRESS  SA57909
00576C 45E0 F1B4            057F6  9142+         BAL   LNKRG2,DDRSTAT GO GET STAT ADDRESS     SA57909
005770 58D0 F25A            0589C  9143+         L     LCHREG,DDRWORK GET SAVED STAT ADDRESS  SA57909
005774 98AB F26E            058B0  9144+         LM    WKREG1,WKREG2,DDREGSAV GET TO AND FROM UCBS    SA57909
005778 D501 B012 F28C 00012 058CE  9145+         CLC   UCBTYP+2(2,WKREG2),DDR34XX SWAPPING 3400        SA57909
00577E 4770 F16E            057B0  9146+         BNE   DDRNOT34 NO, DON'T SWAP EXTRA INFO SA57909
005782 58EA 0018            00018  9147+         L     LNKRG2,UCBNBRSN(WKREG1) SWAP SENSE DATA ADDR    SA57909
005786 D203 A018 B018 00018 00018  9148+         MVC   UCBNBRSN(4,WKREG1),UCBNBRSN(WKREG2) AND LENGTH  SA57909
00578C 50EB 0018            00018  9149+         ST    LNKRG2,UCBNBRSN(WKREG2) SA57909
005790 58EA 0030            00030  9150+         L     LNKRG2,UCBVOPT(WKREG1) SWAP WORK AREA          SA57909
005794 D203 A030 B030 00030 00030  9151+         MVC   UCBVOPT(4,WKREG1),UCBVOPT(WKREG2) ADDRESSES     SA57909
00579A 50EB 0030            00030  9152+         ST    LNKRG2,UCBVOPT(WKREG2) SA57909
00579E D209 F25A D00A 0589C 0000A  9153+         MVC   DDRWORK(10),10(LCHREG) SWAP SECOND TEN BYTES   SA57909
0057A4 D209 D00A C00A 0000A 0000A  9154+         MVC   10(10,LCHREG),10(WKREG3) OF THE STAT INFO      SA57909
0057AA D209 C00A F25A 0000A 0589C  9155+         MVC   10(10,WKREG3),DDRWORK FOR 3400 TAPES        SA57909
0057B0 D209 F25A D000 0589C 00000  9156+DDRNOT34 MVC   DDRWORK(10),0(LCHREG) SWAP TEN BYTES OF       SA57909
0057B6 D209 D000 C000 00000 00000  9157+         MVC   0(10,LCHREG),0(WKREG3) THE STAT INFO         SA57909
0057BC D209 C000 F25A 00000 0589C  9158+         MVC   0(10,WKREG3),DDRWORK SA57909
0057C2 98AE F26E            058B0  9159+         LM    WKREG1,LNKRG2,DDREGSAV RESTORES REGISTERS      SA57909
0057C6                             9160+DDR03X   EQU   * A45778

                                   9162+*    THIS ROUTINE SWAPS ALL REQUESTS FOR THE 'FROM' UCB FROM      19022
                                   9163+*    THE 'FROM' LCH QUEUE TO THE 'TO' LCH QUEUE AND VICE-VERSA.   19022
0057C6 D500 A00A B00A 0000A 0000A  9164+DDRSWLCH CLC   UCBLCI(1,WKREG1),UCBLCI(WKREG2) IS LCH SWAP NEEDED 19022
0057CC 4780 8290            047D8  9165+         BC    8,SELECTV BBBBBB
0057D0 187A                        9166+         LR    UCBREG,WKREG1 INIT TO 'TO' UCB         BBBBBB
0057D2 5020 F26E            058B0  9167+         ST    DDRWK2,DDREGSAV SAVE PARM REGISTER       A50243
0057D6 45C0 50B0            035FA  9168+         BAL   LNKRG3,XCP064 GET 'FRM' LCH VIA 'TO' UCB
0057DA 4870 2000            00000  9169+DDRRET2  LH    UCBREG,DDRFRUCB(0,DDRWK2) INIT 'FROM' UCB       BBBBBB
0057DE 4560 F1F6            05838  9170+         BAL   DDRLNK1,DDR004 .         GO TO SWAP 'FRM' REQUESTS 19022
                                   9171+*                                         TO 'TO' LCH             19022
0057E2 5820 F26E            058B0  9172+         L     DDRWK2,DDREGSAV RESTORE PARM REG         A50243
0057E6 45C0 50B0            035FA  9173+         BAL   LNKRG3,XCP064 GET 'TO' LCH VIA 'FRM' UCB
0057EA 4870 2002            00002  9174+DDRRET3  LH    UCBREG,DDRTOUCB(0,DDRWK2) INIT 'TO' UCB PT*     BBBBBB
0057EE 4560 F1F6            05838  9175+         BAL   DDRLNK1,DDR004 .         GO TO SWAP 'TO' REQUESTS  19022
                                   9176+*                                         TO 'FROM' LCH           19022
0057F2 47F0 8290            047D8  9177+         BC    15,SELECTV GO TO CHAN SEARCH        BBBBBB

                                   9179+*        THIS ROUTINE LOOKS UP THE STATISTICS TABLE ENTRY AND PASSES
                                   9180+*        THE ADDRESS OF IT BACK IN WKREG3
                                   9181+*        IT USES WKREG1,WKREG3,WKREG2,LCHREG,AND LNKRG2          A45778
0057F6                             9182+DDRSTAT  EQU   * ENTRY FOR STAT LOOK UP   A45778
0057F6 58B0 F286            058C8  9183+         L     WKREG2,DDRSTBL GET STAT TABEL ADDRESS    M1046
0057FA 1BCC                        9184+         SR    WKREG3,WKREG3 CLEAR WORK REG           A45778
0057FC 43CA 0009            00009  9185+         IC    WKREG3,DDRTST(WKREG1) GET STAT INDEX           A45778
005800 49AB 0000            00000  9186+DDR03A   CH    WKREG1,0(WKREG2) IS UCB IN THIS SEG       A45778
005804 4740 F1D2            05814  9187+         BL    DDR03B YES CONTINUE             A45778
005808 41BB 0002            00002  9188+         LA    WKREG2,2(WKREG2) NO INC INDEX             A45778
00580C 41CC 0100            00100  9189+         LA    WKREG3,256(WKREG3) NO INC INDEX             A45778
005810 47F0 F1BE            05800  9190+         B     DDR03A CHECK NEXT SEG           A45778
005814 9508 A013      00013        9191+DDR03B   CLI   UCBUTB(WKREG1),D2314A IS DEVICE 2314           A45778
005818 4770 F1EE            05830  9192+         BNE   DDR03C NO CONTINUE              A45778
00581C 1BDD                        9193+         SR    LCHREG,LCHREG YES CLEAR WORK REG      A45778
00581E 910F A01A      0001A        9194+         TM    UCBSNS5(WKREG1),X'0F' IS MODULE ASSIGNED       A45778
       DDR APPENDAGE SUPPORT - INPUT/OUTPUT SUPERVISOR                                                         PAGE  195


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005822 4710 F1EE            05830  9195+         BO    DDR03C NO USE ZERO              A45778
005826 43DA 001A            0001A  9196+         IC    LCHREG,UCBSNS5(WKREG1) GET MODULE ID            A45778
00582A 54D0 F282            058C4  9197+         N     LCHREG,DDRAND CLEAR HIGH 2 BITS        A54231
00582E 1ACD                        9198+         AR    WKREG3,LCHREG ADD TO INDEX
005830 4CC0 F28A            058CC  9199+DDR03C   MH    WKREG3,DDRH10 MULT BY 10               A45778
005834 1ACB                        9200+         AR    WKREG3,WKREG2 ADD TO BEG OF STAT TAB   A45778
005836 07FE                        9201+         BR    LNKRG2 RETURN                   A45778
005838 181D                        9202+DDR004   LR    TSTREG,LCHREG .          INIT RQE PTR FOR LOOP     19022
00583A 9101 1001      00001        9203+DDR005   TM    TSTLNK+1(TSTREG),DUMADR .TEST FOR END OF QUEUE     19022
00583E 0716                        9204+         BCR   1,DDRLNK1 .              YES,RETURN                19022
005840 4810 1000            00000  9205+         LH    TSTREG,TSTLNK(0,TSTREG) .GET NEXT RQE              19022
005844 4970 1002            00002  9206+         CH    UCBREG,TSTUCB(0,TSTREG) .TEST FOR UCB TO BE DEQ'D  19022
005848 4770 F1F8            0583A  9207+         BC    7,DDR005 .               NO, LOOP                  19022
00584C 45E0 5630            03B7A  9208+         BAL   LNKRG2,XCPDDRDQ GO TO DEQUEUE            A49183
005850 50D0 F25A            0589C  9209+DDRRET4  ST    LCHREG,DDRWORK SAVE LCHREG OVER ENQ
005854 9823 1004            00004  9210+         LM    IOBREG,DEBREG,TSTIOB-1(TSTREG) INIT REGS FOR ENQ   19022
005858 58F0 F6AE            05CF0  9211+         L     APBSRG,PNQAD ADDR OF ENQUEUE RTN     SM00244
00585C 05EF                        9212+         BALR  LNKRG2,APBSRG GO TO ENQ ON NEW LCH    SM00244
00585E                             9213+         USING *,LNKRG2 ESTABLISH TEMP BASE REG  BBBBBB
00585E 58F0 E48E            05CEC  9214+DDRRET4A L     APBSRG,DDRBASE ADDR OF DDRSTART         BBBBBB
                                   9215+         DROP  LNKRG2 DROP TEMP BASE REG       BBBBBB
005642                             9216+         USING DDRSTART,APBSRG ESTABLISH ADDRESSABILITY BBBBBB
005862 58D0 F25A            0589C  9217+         L     LCHREG,DDRWORK RESTORE LCHREG
005866 47F0 F1F6            05838  9218+         BC    15,DDR004 .              SEARCH LCH AGAIN          19022

                                   9220+*    THIS CODE IS ENTERED WHEN BOTH UCB ADDRESSES ARE THE SAME;   19022
                                   9221+*    I.E. - NO SWAP.                                              19022
00586A 9640 7006      00006        9222+DDR007   OI    UCBFL1(UCBREG),UCBNRY .  SET DEVICE NOT READY      19022
00586E 94FE 7006      00006        9223+         NI    UCBFL1(UCBREG),FF-UCBERR REMOVE TIE TO RQE         19022
005872 47F0 8290            047D8  9224+         BC    15,SELECTV BBBBBB



                                   9226+*        CANCEL DDR REQUEST APPENDAGE RETURN                      19022
                                   9227+*                                                                 19022
                                   9228+*    THIS APPENDAGE RETURN IS ENTERED WHEN THE OPERATOR HAS       19022
                                   9229+*    REPLIED THAT HE DOES NOT WANT THE SWAP TO OCCUR.  THE USER   19022
                                   9230+*    RQE MUST BE DEQUEUED FROM THE WAIT QUEUE, AND THE UCBERR     19022
                                   9231+*    FLAG MUST BE TURNED OFF.  INPUT IS THE USER RQE IN TSTREG.   19022
005876 58D0 82B0            047F8  9232+DDRCANCL L     LCHREG,ADDRWTQ .         GET PTR TO QUEUE          19022
00587A 45E0 5630            03B7A  9233+         BAL   LNKRG2,XCPDDRDQ GO TO DEQ FROM WAIT QUE  BBBBBB
00587E 9180 83BC      04904        9234+DDRRET5  TM    BLNKPTR,LCHOUT TEST IF RQE FOUND        BBBBBB
005882 4780 8290            047D8  9235+         BC    8,SELECTV NO-GO TO CHAN SEARCH     BBBBBB
005886 4870 1002            00002  9236+         LH    UCBREG,TSTUCB(0,TSTREG) GET UCB PTR              BBBBBB
00588A 94FE 7006      00006        9237+         NI    UCBFL1(UCBREG),FF-UCBERR RESET UCB ERR FLAG        19022
00588E 4010 83CC            04914  9238+         STH   TSTREG,LTSVALSV UPDATE CURRENT RQE ADDR US05348
005892 9602 83D9      04921        9239+         OI    XCPBTE,XCPVALID IND VALIDITY CK IN PROC US05348
005896 47F0 F32E            05970  9240+         BC    15,INTER6 GO TO POST USER          BBBBBB



                                   9242+         DROP  APBSRG BBBBBB
                                   9243+*        CONSTANTS AND WORK AREAS                                 19022

00589A 0000
       DDR APPENDAGE SUPPORT - INPUT/OUTPUT SUPERVISOR                                                         PAGE  196


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00589C 0000000000000000            9245+DDRWORK  DC    5F'0' .                  WORK AREA FOR DDR RTNS    19022
0058B0 0000000000000000            9246+DDREGSAV DC    5F'0' REGISTER SAVE AREA       A45778
0058C4 0000000F                    9247+DDRAND   DC    X'0000000F' AND MASK FOR 2314 ID     A54231
0058C8 00008C10                    9248+DDRSTBL  DC    A(IECSTB) A45578
0058CC 000A                        9249+DDRH10   DC    H'10' TEN FOR MULT             A45778
0058CE 8003                        9250+DDR34XX  DC    X'8003' DEVICE TYPE FOR 3400    SA57909
0058D0 0000                        9251+DDRSRTO  DC    H'0' .                   SAVE AREA FOR SYSRES 'TO' 19022
       DDR WAIT QUEUE PURGE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                  PAGE  197


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   9254+*    THE DDR WAIT QUEUE IS SUPPORTED BY THE IOS ENQUEUE AND     SA41451
                                   9255+*    DEQUEUE ROUTINES.  THUS, IT HAS A SIMILAR FORMAT TO A LCH  SA41451
                                   9256+*    QUEUE.                                                     SA41451


0058D2                             9258+         USING *,DDRPGBAS SA41451
                                   9259+         DROP  BASREG2 SA69223
0058D2 FFFF                        9260+DDRWAITQ DC    X'FFFF' .                FIRST ON THE QUEUE        19022
0058D4 000000000000                9261+         DC    XL6'0' .                 LAST ON QUE,FLAGS,SCRATCH 19022

                                   9263+*    THIS ROUTINE MUST RESIDE AT DDRWAITQ+8.  IT IS CALLED        19022
                                   9264+*    AS A SUBROUTINE BY SVC PURGE TO PASS AN RQE POINTER FOR      19022
                                   9265+*    PURGE TO EXAMINE AND POSSIBLY DEQUEUE.                       19022

0058DA 47F0 D02C            058FE  9267+DDRPURGE BC    15,DDRPRG05 .            ENTRY PT AFTER FST PASS SA62503
0058DE 4180 D000            058D2  9268+DDRPRG01 LA    DDRBKLNK,DDRWAITQ .      INIT PTR TO QUEUE         19022
0058E2 9640 D004      058D6        9269+         OI    DDRWAITQ+4,DDRPASS1 .    SET FLAG FOR POSSIBLE DEQ 19022
                                   9270+*                                       OF ACTIVE RQE IN PASS 1   19022
0058E6 47F0 D020            058F2  9271+         BC    15,DDRPRG04 .            SKIP PASS 2 INIT'ZATION   19022

0058EA 4880 8000            00000  9273+DDRPRG02 LH    DDRBKLNK,TSTLNK(0,DDRBKLNK) RE-INIT BACK-LNK PTR   19022
0058EE 94BF D004      058D6        9274+DDRPRG03 NI    DDRWAITQ+4,FF-DDRPASS1 . RESET PASS 1 INDIC        19022
0058F2 4890 8000            00000  9275+DDRPRG04 LH    DDRTST,TSTLNK(0,DDRBKLNK) GET NEXT RQE ON QUE      19022
0058F6 1299                        9276+         LTR   DDRTST,DDRTST .          TEST FOR END OF QUE       19022
0058F8 4740 D054            05926  9277+         BC    4,DDRPRG06 .             YES, GO TO FINAL EXIT     19022
0058FC 07FF                        9278+         BCR   15,DDRPGLNK .            RET TO PRG W. RQE IN RG9  19022

0058FE 4990 8000            00000  9280+DDRPRG05 CH    DDRTST,TSTLNK(0,DDRBKLNK) TEST IF RQE DEQUED       19022
005902 4780 D018            058EA  9281+         BC    8,DDRPRG02 .             NO, GO TO UPDATE BKLNK    19022
005906 48B9 0002            00002  9282+         LH    WKREG2,TSTUCB(DDRTST) . GET UCB ADDR---WAITQ RQE  A42501
00590A 48EB 0014            00014  9283+         LH    LNKRG2,UCBLTS(WKREG2) . GET RQE FROM UCB          A42501
00590E 49E0 D064            05936  9284+         CH    LNKRG2,TSDDRA .         LTS = DDRRQE              A42501
005912 4780 D05C            0592E  9285+         BE    DDRPRGA2 .                                        A42501
005916                             9286+DDRPRGA1 EQU   * .                     CHECK Q STATUS AT DEQ     A42501
005916 9140 D004      058D6        9287+         TM    DDRWAITQ+4,DDRPASS1 .    TEST IF DEQ DURING PASS 1 19022
00591A 4780 D020            058F2  9288+         BC    8,DDRPRG04 .             NO, GO TO GET NEXT RQE    19022
00591E 9680 D004      058D6        9289+         OI    DDRWAITQ+4,DDRPRG .      INDICATE 1ST RQE PURGED   19022
005922 47F0 D01C            058EE  9290+         BC    15,DDRPRG03 .            GO TO GET NEXT RQE        19022

005926 4080 D002            058D4  9292+DDRPRG06 STH   DDRBKLNK,DDRWAITQ+LCHLTS UPDATE LAST RQE ON WT QUE 19022
00592A 47F0 F00E            0000E  9293+         BC    15,DDRPGEND(0,DDRPGLNK) RETURN TO PURGE - NO RQE  19022
00592E                             9294+DDRPRGA2 EQU   * .                     TURN OFF DDR'S NRY & ERR  A42501
00592E 94BE B006      00006        9295+         NI    UCBFL1(WKREG2),FF-UCBNRY-UCBERR .                SA55688
005932 47F0 D044            05916  9296+         B     DDRPRGA1 .                                        A42501
005936 3524                        9297+TSDDRA   DC    Y(DDRRQE-IPLPSW) .      BRING ADDR INTO BASE      A42501
                                   9298+         DROP  DDRPGBAS .                                         19022
       EXCP ERROR INTERFACE - INPUT/OUTPUT SUPERVISOR                                                          PAGE  198


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   9300+*                  EXCP ERROR INTERFACE -  SVC 15


                                   9302+*              THIS IS THE ENTRY TO THE ERROR INTERFACE FROM THE
                                   9303+*              SUPERVISOR, WHEN THE SUPERVISOR IS HANDLING THE ERROR
                                   9304+*              ROUTINE. THE FOLLOWING IS THE GENERAL FLOW


                                   9306+*OPERATION
                                   9307+*              1. SET UP FLAGS AND INITIALIZE REGS. GET UNIT ADDRESS  *
                                   9308+*                 AND SET UP RETURN ADDRESS.                          *
                                   9309+*              2. TEST FOR ERROR RTN IN CONTROL.  IF YES, ENQ RQE.    *
                                   9310+*                 IF NOT AND NOT A PERMANENT ERROR, GO TO             *
                                   9311+*                 CHANNEL END APPDG.  IF PURGE, GO TO ERROR INTERFACE.*
                                   9312+*                 OTHERWISE, GO TO ABNORMAL CHANNEL END APPDG.        *
                                   9313+*        ***NOTE***  WKREG1 IS USED AS A TEMPORARY LOCAL BASE REGISTER*



005938                             9315+IECXCPER DS    0D ERROR EXCP ENTRY POINT
005938                             9316+IGC015   DS    0C
005938 05A0                        9317+         BALR  WKREG1,0 ESTABLISH LOCAL BASE   @SA76327
00593A                             9318+         USING *,WKREG1 @SA76327
00593A 5850 A3AE            05CE8  9319+IGC015A  L     BASREG,IOSBASAD ESTABLISH IOS BASE REG. US06042
00354A                             9320+         USING IOSBAS,BASREG BBBBBB
00593E 4185 0FFE            00FFE  9321+         LA    BASREG2,4094(BASREG) SET UP HIGH BASE REG       RL19
004548                             9322+         USING IOSBAS+4094,BASREG2 BBBBBB
005942 92A2 83D9      04921        9323+         MVI   XCPBTE,XCPCNT+XCPERR+XCPVALID SET ENTRY FLAGS    US06042
005946 58F0 81EC            04734  9324+         L     APBSRG,IECPL2 GET TEMP BASE REG      @SA77644
00594A 4910 81E8            04730  9325+         CH    TSTREG,FSTRQE COMPARE WITH FIRST RQE  SA63707
00594E 474F 01A6            001A6  9326+         BL    XERX09-IECCPL02(APBSRG) INVALID RQE,ABEND      @SA77644
005952 4910 81EA            04732  9327+         CH    TSTREG,LSTRQE COMPARE WITH LAST RQE   SA63707
005956 472F 01A6            001A6  9328+         BH    XERX09-IECCPL02(APBSRG) INVALID RQE, ABEND     @SA77644
00595A 4010 83CC            04914  9329+         STH   TSTREG,LTSVALSV VALID RQE              @SA77644
00595E 58F0 81C0            04708  9330+         L     APBSRG,SIRBAD GET ADDRE OF SIRB       SA53191
005962 1B99                        9331+         SR    ICREG,ICREG CLEAR REGISTER          SA53191
005964 491F 001A            0001A  9332+         CH    TSTREG,SIRBRQE(APBSRG) IS THIS RQE ON THE SIRB SA53191
005968 4770 A036            05970  9333+         BNE   INTER6 NO, DON'T CLEAR SIRB RQESA53191
00596C 409F 001A            0001A  9334+         STH   ICREG,SIRBRQE(APBSRG) INDICATE RQE RETURNED   SA53191
005970 5821 0004            00004  9335+INTER6   L     IOBREG,TSTIOB-1(TSTREG) INITIALIZE IOB REGISTER SA53191
005974 45C0 5018            03562  9336+         BAL   LNKRG3,XVCK01 INITIALIZE ALL OTHER REGISTERS
                                   9337+         DROP  WKREG1 @SA76327
005978 94FD 83D9      04921        9338+         NI    XCPBTE,FF-XCPVALID ALL BLOCKS ARE VALID      M4757
00597C 4867 0004            00004  9339+         LH    UAREG,UCBCHA(UCBREG) GET UNIT ADDRESS          M4757
005980 5460 836C            048B4  9340+         N     UAREG,ADDRMSK MASK OUT HIGH ORDER FLAGS
005984 4060 003A            0003A  9341+         STH   UAREG,IOPSWO+2 SET CHANNEL ADDR. FOR SEARCH
005988 9120 2000      00000        9342+         TM    IOBFL1(IOBREG),IOBERR TEST FOR ERROR RTN IN CONTROL
00598C 4770 80C8            04610  9343+         BC    7,INTER7C YES, ENQUE REQUEST         RL19
005990 41A0 5A22            03F6C  9344+         LA    WKREG1,INT027 TBSE
005994 50A0 83B0            048F8  9345+         ST    WKREG1,LNKRG1S TBSE
005998 5910 8234            0477C  9346+         C     TSTREG,ADDRRQE IS THIS THE DDR RQE       M0127
00599C 4780 80EA            04632  9347+         BC    8,INTER8 YES DONT CLEAR UCBERR     M0127
0059A0 48F1 0002            00002  9348+         LH    APBSRG,TSTUCB(TSTREG) INSURE PROPER UCB ADDR    M2189
0059A4 491F 0014            00014  9349+         CH    TSTREG,UCBLTS(APBSRG) IS RQE TIED TO UCB      SA61247
0059A8 4770 80EA            04632  9350+         BNE   INTER8 NO, DON'T CLEAR UCBERR  SA61247
       EXCP ERROR INTERFACE - INPUT/OUTPUT SUPERVISOR                                                          PAGE  199


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0059AC 94FE F006      00006        9351+         NI    UCBFL1(APBSRG),FF-UCBERR CLEAR UCB ERROR FLAG      M2189
0059B0 47F0 80EA            04632  9352+         B     INTER8 CONTINUE                US06042
       ALTERNATE PATH RETRY ROUTINE -INPUT/OUTPUT SUPERVISOR                                                   PAGE  200


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   9354+*                CHANNEL ERROR BLOCK DEACTIVATE ROUTINE           19022
                                   9355+*                                                                     *
                                   9356+*  FUNCTION    TO DEACTIVATE ANY ACTIVE CHAN ERROR BLOCKS WHICH   19022
                                   9357+*                   POINT TO INACTIVE RQES AND SET THE CEB ACTIVE 19022
                                   9358+*                   SWITCH OFF WHEN THERE ARE NO LONGER ANY ACTIVE19022
                                   9359+*                   CEBS.  IT IS ENTERED ONLY WHEN THERE IS AT    19022
                                   9360+*                   LEAST ONE ACTIVE CHANNEL ERROR BLOCK          19022
                                   9361+*                                                                     *
                                   9362+*  ENTRY PT INTDEACT--ENTERED FROM IOS' 'GET RQE ROUTINE' WHEN    19022
                                   9363+*                   THE CEB ACTIVE SW. IS SET (1 OR MORE ACTIVE   19022
                                   9364+*                   CEBS).                                        19022
                                   9365+*                                                                     *
                                   9366+*  EXIT        TO XCPTST1 (GET RQE ROUTINE) WHEN ITS FUNCTION HAS 19022
                                   9367+*                   BEEN COMPLETED.                               19022
                                   9368+*                                                                     *
                                   9369+*  OPERATION   THE CEB ACTIVE SWITCH IS SET OFF. WHEN ACTIVE CEB  19022
                                   9370+*                   FOUND, THIS ROUTINE CHECKS FOR AN ACTIVE RQE. 19022
                                   9371+*                   IF RQE IS INACTIVE, CEB IS DEACTIVATED. CEB   19022
                                   9372+*                   ACTIVE SW IS SET ON WHENEVER ACTIVE CEB FOUND 19022
                                   9373+*                   FOR WHICH THERE IS AN ACTIVE RQE              19022
                                   9374+*                                                                     *

0059B4                             9376+         USING *,APBSRG ESTABLISH ADDRESSABILITY BBBBBB
0059B4 41A0 81B8            04700  9377+INTDEACT LA    WKREG1,CEBCTR ADDR OF CEBTAB           BBBBBB
0059B8 439A 0000            00000  9378+         IC    ICREG,0(WKREG1) INITIALIZE CEB CTR       BBBBBB
0059BC 41A0 F354            05D08  9379+         LA    WKREG1,CEBTAB INITIALIZE CEB PTR       BBBBBB
0059C0 94FE F354      05D08        9380+         NI    CEBTAB,FF-CEBACT SET CEB ACT SW OFF        19022
0059C4 91FE A000      00000        9381+INTDA1   TM    CEBINA(WKREG1),FREE CEB FREE                  19022
0059C8 4710 F028            059DC  9382+         BC    1,INTDA4 YES-LOOK AT NEXT CEB      19022
0059CC 48BA 0002            00002  9383+         LH    WKREG2,CEBRQE(WKREG1) PICK UP RQE FROM CEB      19022
0059D0 91FF B004      00004        9384+         TM    TSTASSN(WKREG2),FF RQE FREE                  19022
0059D4 4710 F036            059EA  9385+         BC    1,INTDA3 YES-DEACTIVATE CEB        19022
0059D8 9601 F354      05D08        9386+         OI    CEBTAB,CEBACT SET CEB ACT SW ON         19022
0059DC 41AA 0004            00004  9387+INTDA4   LA    WKREG1,CEBNXT(WKREG1) LOOK AT NEXT CEB          19022
0059E0 4690 F010            059C4  9388+         BCT   ICREG,INTDA1 IF ANY LEFT           19022
0059E4 41C0 5120            0366A  9389+         LA    LNKRG3,XCPTST1 BBBBBB
0059E8 07FC                        9390+         BCR   15,LNKRG3 RETURN TO XCPTST1        BBBBBB

0059EA 41E0 F028            059DC  9392+INTDA3   LA    LNKRG2,INTDA4 SET RETURN ADDRESS        19022
0059EE 96FE A000      00000        9393+INTDA3A  OI    CEBINA(WKREG1),FREE DEACTIVATE CH ERR BLOCK   19022
0059F2 48B0 B002            00002  9394+         LH    WKREG2,TSTUCB(0,WKREG2) GET UCB FROM CEB'S RQE    20201
0059F6 D400 B00C A001 0000C 00001  9395+         NC    UCBCHM(1,WKREG2),CEBCHMSK(WKREG1) RESTORE ORIG CHM 20201
0059FC 43BB 0004            00004  9396+         IC    WKREG2,UCBCHA(WKREG2) GET THE CHAN ADDR         19022
005A00 54B0 8330            04878  9397+         N     WKREG2,DEVMSK CLEAR FLAGS              BBBBBB
005A04 58C0 837C            048C4  9398+         L     WKREG3,CHANBIT CH ADR REPRESENTATION    BBBBBB
005A08 88C0 B000            00000  9399+         SRL   WKREG3,0(WKREG2) CALCULATE CHAN MASK       19022
005A0C 41B0 81B4            046FC  9400+         LA    WKREG2,CHMSK GET ADDR OF CHAN MASK    BBBBBB
005A10 56CB 0000            00000  9401+         O     WKREG3,ZERO(WKREG2) ADD TO THIS CHAN BIT     BBBBBB
005A14 50CB 0000            00000  9402+         ST    WKREG3,ZERO(WKREG2) PUT IT BACK              BBBBBB
005A18 07FE                        9403+         BCR   15,LNKRG2 GO TO INTDA4 OR RETURN    19022
       ALTERNATE PATH RETRY ROUTINE -INPUT/OUTPUT SUPERVISOR                                                   PAGE  201


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   9405+*                   ALTERNATE PATH RETRY ROUTINE                  19022
                                   9406+*  FUNCTION    DETERMINE IF INITIATION OF ALTERNATE PATH RETRY    19022
                                   9407+*                   FUNCTION POSSIBLE.  IF SO, INITIALIZE CHANNEL 19022
                                   9408+*                   ERROR BLK AND SET NEW CHNN. MASK IN UCB. IF   19022
                                   9409+*                   NOT,RETRY ON ANY AVAILBL PATH TO THE DEVICE.  19022
                                   9410+*                                                                     *
                                   9411+*  ENTRY POINT--INTAPR01,ENTERED FROM ERROR RECOVERY PROCEDURE    19022
                                   9412+*                   RETRY RETURN TO IOS                           19022
                                   9413+*                                                                     *
                                   9414+*  EXITS:      VIA LNKRG2 TO 'ERP RETURN TO IOS' UNDER FOLLOWING  19022
                                   9415+*              CONDITIONS:                                            *
                                   9416+*              A.  RETRY DOES NOT RESULT FROM CHANNEL ERROR       19022
                                   9417+*              B.  THERE IS ONLY ONE PATH TO THIS DEVICE          19022
                                   9418+*              C.  NO CHANNEL ERROR BLOCK FREE FOR THIS REQUEST   19022
                                   9419+*              D.  APR SUCCESSFULLY INITIATED-PATH ON WHICH       19022
                                   9420+*                       ERROR OCCURRED VARIED OFFLINE             19022
                                   9421+*              E.  APR FUNCTION CANNOT BE INITIATED--ONLY ONE     19022
                                   9422+*                       PATH AVAILABLE TO THIS DEVICE             19022
                                   9423+*                                                                     *
                                   9424+*  OPERATION   CHECK FOR CHANNEL ERROR AND MORE THAN ONE PATH TO  19022
                                   9425+*                   THE DEVICE. IF NEITHER, RETURN. CHK FOR FREE  19022
                                   9426+*                   OR ACTIVE CEB FOR THIS REQUEST. IF NEITHER,   19022
                                   9427+*                   RETURN.  IF ACTIVE CEB FOUND AND THIS IS      19022
                                   9428+*                   NOT THE LAST AVAILABLE PATH TO THIS DEVICE,   19022
                                   9429+*                   THE PATH INDICATOR FOR THIS PATH IS OR'ED     19022
                                   9430+*                   INTO THE UCBCHM FIELD, AND RETRY IS INITIATED 19022
                                   9431+*                   ON ONE OF THE REMAINING AVAILBL CHNNLS. IF    19022
                                   9432+*                   A FREE CEB IS FOUND AND THIS IS NOT THE LAST  19022
                                   9433+*                   AVAILBL PATH TO THIS DEV., THE UCBCHM AND RQE 19022
                                   9434+*                   POINTER ARE MOVED TO THE CEB, THE ACTIVE CEB  19022
                                   9435+*                   INDICATR IS SET AND RETRY IS INITIATD ON ONE  19022
                                   9436+*                   OF THE REMAINING AVAILBL CHANNLS.IF,IN EITHER 19022
                                   9437+*                   OF THE ABOVE CASES, THIS IS THE LAST AVAILBL  19022
                                   9438+*                   PATH TO THE DEVICE, THE APR FUNCTION WILL BE  19022
                                   9439+*                   CANCLLD (WHEN THERE WAS AN ACTIVE CEB, IT WILL19022
                                   9440+*                   BE DEACTIVATED BEFORE RETURNING TO RETRY THE  19022
                                   9441+*                   OPERATION).                                   19022
                                   9442+*                                                                     *

                                   9444+*    DETERMINE IF ALTERNATE PATH RETRY FUNCTION CAN BE INITIATED  19022
                                   9445+*    FOR THIS REQUEST.                                            19022

005A1A 910E 200D      0000D        9447+INTAPR01 TM    IOBCSW+5(IOBREG),CSWCDK+CSWCTK+CSWICK ANY CHAN ERR 19022
005A1E 078E                        9448+         BCR   8,LNKRG2 NO, DO NOT ALLOW APR     19022
005A20 9101 7001      00001        9449+         TM    UCBALLC(UCBREG),MULTPATH MORE THAN 1 PATH TO DEV.  19022
005A24 078E                        9450+         BCR   8,LNKRG2 NO, DO NOT ALLOW APR     19022
005A26 9120 7012      00012        9451+         TM    UCBTYP+2(UCBREG),DSKTYP DA DEVICE                 19022
005A2A 4780 F094            05A48  9452+         BC    8,INTAP0 NO-SKIP SDASD TEST        19022
005A2E 9102 7003      00003        9453+         TM    SRTESTAT(UCBREG),SYSCON IS THIS SYSRES           A53915
005A32 071E                        9454+         BCR   1,LNKRG2 YES-DO NOT ALLOW APR     A53915
005A34 9120 7011      00011        9455+         TM    UCBTYP+1(UCBREG),UCBRR SDASD CAPABILITY          19022
005A38 4780 F094            05A48  9456+         BC    8,INTAP0 NO, ALLOW APR           SA70563
005A3C 9110 7011      00011        9457+         TM    UCBTYP+1(UCBREG),UCBRPS RPS DEVICE              SA70563
005A40 078E                        9458+         BCR   8,LNKRG2 NO, DO NOT ALLOW APR    SA70563
005A42 9500 7029      00029        9459+         CLI   UCBDVRES(UCBREG),ZERO RESERVE OUTSTANDING     SA70563
       ALTERNATE PATH RETRY ROUTINE -INPUT/OUTPUT SUPERVISOR                                                   PAGE  202


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005A46 077E                        9460+         BCR   7,LNKRG2 YES, DO NOT ALLOW APR   SA70563
005A48                             9461+INTAP0   DS    0H 19022

                                   9463+*    THE FOLLOWING CODING DETERMINES IF THERE IS AN ACTIVE CEB    19022
                                   9464+*    FOR THIS REQUEST, OR A FREE CEB TO USE FOR THIS REQUEST.     19022

005A48 41B0 F354            05D08  9466+         LA    WKREG2,CEBTAB LOAD ADDR OF FIRST CEB    19022
005A4C 41A0 81B8            04700  9467+         LA    WKREG1,CEBCTR ADDR OF CEBCTR           BBBBBB
005A50 439A 0000            00000  9468+         IC    ICREG,0(WKREG1) INITIALIZE CEB COUNTER   BBBBBB
005A54 1BAA                        9469+         SR    WKREG1,WKREG1 ZERO FREE CEB PTR        BBBBBB
005A56 91FE B000      00000        9470+INTAP1   TM    CEBINA(WKREG2),FREE Q.IS CEB FREE             19022
005A5A 4780 F0BC            05A70  9471+         BC    8,INTAP3 A.NO,CHK IF RETRY IN PROC 19022
005A5E 18AB                        9472+         LR    WKREG1,WKREG2 A.YES,SAVE FREE CEB ADDR  19022
005A60 41BB 0004            00004  9473+INTAP2   LA    WKREG2,CEBNXT(WKREG2) LOOK AT NEXT CEB IN TBL   19022
005A64 4690 F0A2            05A56  9474+         BCT   ICREG,INTAP1 BR IF MORE CEBS TO CHECK  19022
005A68 12BA                        9475+         LTR   WKREG2,WKREG1 Q.CEB FREE TO USE         19022
005A6A 078E                        9476+         BCR   8,LNKRG2 A.NO,RETRN TO NORML OPRTN 19022
005A6C 47F0 F0C6            05A7A  9477+         BC    15,INTAP4 19022

005A70 D501 7014 B002 00014 00002  9479+INTAP3   CLC   UCBLTS(2,UCBREG),CEBRQE(WKREG2) Q.RETRY IN PROCESS 19022
005A76 4770 F0AC            05A60  9480+         BC    7,INTAP2 A.NO, LOOK AT NEXT CEB    19022
005A7A 50B0 F348            05CFC  9481+INTAP4   ST    WKREG2,CEBSAV SAVE THE CEB ADDRESS      19022

                                   9483+*    THE FOLLOWING CODING DETERMINES IF APR FUNCTION MAY BE       19022
                                   9484+*    INITIATED.  IT WILL BE IF SUCH ACTION DOES NOT CAUSE THE     19022
                                   9485+*    LAST PATH TO A DEVICE TO BE MARKED OFFLINE.                  19022

005A7E 9200 F368      05D1C        9487+         MVI   CEPTH,ZERO INITIALIZE FAILING PATH SAVE
005A82 9200 F34F      05D03        9488+         MVI   PTHAVL+3,ZERO CLEAR WORK AREA           19022
005A86 1804                        9489+         LR    REG0,DCBREG SAVE DCB POINTER         BBBBBB
005A88 48A0 D006            00006  9490+         LH    WKREG1,LCHTCH(0,LCHREG) GET TCH CODE ADDR         19022
005A8C 54A0 8374            048BC  9491+         N     WKREG1,HWMSK CLEAR PROPAGATED BITS    BBBBBB
005A90 06A0                        9492+         BCTR  WKREG1,0 DECREMENT TO              19022
005A92 06A0                        9493+         BCTR  WKREG1,0 PATH COMPOSITE            19022
005A94 439A 0000            00000  9494+         IC    ICREG,ZERO(WKREG1) INSERT NO. OF PATHS       19022
005A98 1A99                        9495+         AR    ICREG,ICREG DOUBLE FOR START OF TAB   19022
005A9A 18CA                        9496+         LR    WKREG3,WKREG1 SAV PTR TO PATH COMPOSITE 19022
005A9C 1BA9                        9497+         SR    WKREG1,ICREG FIND BEGINNING OF TABLE   19022
005A9E 4867 0004            00004  9498+         LH    UAREG,UCBCHA(UCBREG) GET FAILNG CH ADDRESS     19022

                                   9500+* DETERMINE PATH AVAILABILITY AND SET UP OFFLINE INDICATORS       19022
                                   9501+* IN LOW ORDER BYTE OF PTHAVL, A FULLWORD OF STORAGE              19022

005AA2 D100 F369 A001 05D1D 00001  9503+INTAP5A  MVN   MSKSAV(CEBCHMSK),CEBCHMSK(WKREG1) ISOLATE PATH MSK 19022
005AA8 4140 0F00            00F00  9504+         LA    DCBREG,HEXF00 GET MASK FOR CHANNEL     BBBBBB
005AAC 91F0 A001      00001        9505+         TM    PTHIND(WKREG1),CUAZER Q.ARE THERE ALT. C.U.S    19022
005AB0 4780 F104            05AB8  9506+         BC    8,INTAP10 A.NO, SKIP C.U. MASK      19022
005AB4 4144 00F0            000F0  9507+         LA    DCBREG,CUAZER(DCBREG) INCLUDE C.U. MASKS       BBBBBB

005AB8 48BA 0000            00000  9509+INTAP10  LH    WKREG2,ZERO(WKREG1) PICK UP TCHTAB ENTRY      19022
005ABC 17B6                        9510+         XR    WKREG2,UAREG ZERO MATCHING BITS        19022
005ABE 14B4                        9511+         NR    WKREG2,DCBREG ARE THE FIELDS EQUAL     BBBBBB
005AC0 4770 F116            05ACA  9512+         BC    7,INTAP11 A.NO, DONT SAVE THIS MSK  19022
005AC4 D200 F368 F369 05D1C 05D1D  9513+         MVC   CEPTH(1),MSKSAV SAVE FAILING PATH INDCATR 19022
005ACA 41AA 0002            00002  9514+INTAP11  LA    WKREG1,2(WKREG1) INCRMNT TABLE ENTRY PTR   19022
       ALTERNATE PATH RETRY ROUTINE -INPUT/OUTPUT SUPERVISOR                                                   PAGE  203


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005ACE 19CA                        9515+         CR    WKREG3,WKREG1 Q.IS THIS END OF TBL      19022
005AD0 4720 F0EE            05AA2  9516+         BC    2,INTAP5A A.NO, GO CHECK THIS ENTRY 19022

                                   9518+* ACCUMULATE OFFLINE PATH INDICATOR AND CHECK FOR AN AVAILABLE    19022
                                   9519+* PATH FOR RETRY.                                                 19022

005AD4 1840                        9521+INTAP12  LR    DCBREG,REG0 RESTORE DCB POINTER      BBBBBB
005AD6 18AC                        9522+         LR    WKREG1,WKREG3 PTR TO PATH COMPOSITE     20201
005AD8 D600 F34F 700C 05D03 0000C  9523+         OC    PTHAVL+3(1),UCBCHM(UCBREG) PUT IN PREV OFF BITS    20201
005ADE D600 F34F F368 05D03 05D1C  9524+         OC    PTHAVL+3(1),CEPTH PUT IN FAILING PATH       19022
005AE4 940F F34F      05D03        9525+         NI    PTHAVL+3,OF CLEAR HIGH ORDER BITS     19022
005AE8 58B0 F348            05CFC  9526+         L     WKREG2,CEBSAV GET CEB POINTER           19022
005AEC D700 F34F A001 05D03 00001  9527+         XC    PTHAVL+3(1),PTHIND(WKREG1) ANY PTH LEFT FOR RETRY  19022
005AF2 4780 F168            05B1C  9528+         BC    8,INTAP13 NO, CANCEL APR FUNCTION   19022

                                   9530+*   INITIALIZE THE CEB AND RETRN FOR RETRY                        19022

005AF6 91FE B000      00000        9532+         TM    CEBINA(WKREG2),FREE IS THERE INFO IN THE CEB  19022
005AFA 4780 F15A            05B0E  9533+         BC    8,INTAP12A YES, SKIP CEB INITLIZATN  19022
005AFE 401B 0002            00002  9534+         STH   TSTREG,CEBRQE(WKREG2) PUT IN RQE POINTER        19022
005B02 9401 B000      00000        9535+         NI    CEBINA(WKREG2),FF-FREE MAKE CEB ACTIVE           19022
005B06 9601 F354      05D08        9536+         OI    CEBTAB,CEBACT SET CEB ACTIVE SWITCH ON  19022
005B0A 92FF B001      00001        9537+         MVI   CEBCHMSK(WKREG2),FF INIT CHM SAVE AREA        19022
005B0E D700 B001 F368 00001 05D1C  9538+INTAP12A XC    CEBCHMSK(1,WKREG2),CEPTH SAVE COMPLEMENT OF BIT    19022
005B14 D600 700C F368 0000C 05D1C  9539+         OC    UCBCHM(1,UCBREG),CEPTH SET FAILING PATH OFF      19022
005B1A 07FE                        9540+         BCR   15,LNKRG2 RETRY REMAINING PATH      20201

                                   9542+*   CANCEL APR FUNCTION FOR THIS DEV & ALLOW RETRY ON FAILNG PATH 19022

005B1C 91FE B000      00000        9544+INTAP13  TM    CEBINA(WKREG2),FREE Q.IS CEB FREE             19022
005B20 071E                        9545+         BCR   1,LNKRG2 A.YES, RETRN TO RETRY     19022
005B22 18AB                        9546+         LR    WKREG1,WKREG2 COPY CEB ADDRESS          19022
005B24 48BB 0002            00002  9547+         LH    WKREG2,CEBRQE(WKREG2) INIT RQE PTR              19022
005B28 47F0 F03A            059EE  9548+         BC    15,INTDA3A GO CANCEL APR             19022
                                   9549+         DROP  APBSRG BBBBBB
                                   9550+*   PURGE STORES THE ADDRESS OF A PURGE PARAMETER LIST, ON WHICH
                                   9551+*   IT IS WAITING, AT THIS LOCATION.  IF A PROGRAM CHECK IN IOS
                                   9552+*   OR CONTROL BLOCK VALIDITY ERROR OCCURS, AND THE DEB IS INVALID,
                                   9553+*   MAKING IT IMPOSSIBLE TO CHECK FOR A QUIESCE COUNT, THIS POINTER
                                   9554+*   WILL ALLOW IOS TO POST PURGE SO IT CAN RE-PURGE, THEREBY
                                   9555+*   REINITIALIZING THE QUIESCE COUNT.
                                   9556+*   THE FOLLOWING LABEL MUST DIRECTLY PRECEED LABEL IECIHIO.
                                   9557+*   PURGE WILL LOCATE THE LABEL, BACKUP A WORD AND STORE THE
                                   9558+*   PPL ADDRESS.


005B2C 00000000                    9560+PRGPPLAD DC    F'0' PURGE PPL ADDRESS
       COMMON HIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                            PAGE  204


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   9562+*   COMMON HIO ROUTINE                                                *



                                   9564+*   THIS ROUTINE IS PROVIDED FOR THOSE SYSTEM ROUTINES WHICH REQUIRE  *
                                   9565+*   AN I/O DEVICE TO BE STOPPED.                                      *

                                   9567+*   ENTRY POINTS  IECIHIO - ENTERED FROM SVC 16, SVC 33, IECKOCTL,    *
                                   9568+*                           IECKLNCH, OR M65MP EXTERNAL INTERRUPT     *
                                   9569+*                           ROUTINE.

                                   9571+*   INPUT  REGISTER 8 CONTAINS A POINTER TO THE UCB OF THE            *
                                   9572+*          DEVICE TO BE HALTED.                                       *
                                   9573+*          REGISTER 15 CONTAINS THE RETURN ADDRESS                    *


                                   9575+*        REGISTER DEFINITION FOR HIO                               RL19


000007                             9577+HUSERG   EQU   7 USER'S REG                 IMP5
000008                             9578+HINREG   EQU   8 POINTER TO UCB              IMP2
000009                             9579+HSAVR6   EQU   9 SAVE REG FOR USER'S REG 6
00000A                             9580+HSAVR7   EQU   10 SAVE REG FOR USER'S REG 7  RL19
00000B                             9581+HSAVR15  EQU   11 SAVE REG FOR USER'S REG 15 RL19
00000C                             9582+HUAREG   EQU   12 HIO REG FOR UNIT ADDRESS   RL19
00000D                             9583+HIOBAS   EQU   13 HIO ROUTINE BASE REG        IMP2
00000E                             9584+HBALREG  EQU   14 BRANCH/LINK REG FOR HIO    RL19
00000F                             9585+HRETRG   EQU   15 RETUN REG                   IMP2


005B30                             9587+IECIHIO  DS    0H IMP2
005B30 05D0                        9588+         BALR  HIOBAS,0 IMP2
                                   9589+         DROP  BASREG,BASREG2 IMP2
005B32                             9590+         USING *,HIOBAS BBBBBB
005B32 9459 8006      00006        9591+         NI    UCBFL1(HINREG),FF-UCBBSY-UCBPST-UCBDTR-UCBASK CLEAR FL1
                                   9592+**************** THE FOLLOWING INSTRUCTIONS MODIFIED FOR ASP *******ASP
005B36 9504 8011      00011        9593+         CLI   UCBTYP+1(HINREG),X'04' - IS THIS REQST FOR CTC DEV **ASP
005B3A 4770 D034            05B66  9594+         BNE   NOCTCHIO -          NO, PROCEED NORMALLY           **ASP
005B3E 9188 8012      00012        9595+         TM    UCBTYP+2(HINREG),X'88' IS THIS TAPE OR UNIT REC    **ASP
005B42 4790 D034            05B66  9596+         BC    9,NOCTCHIO NO BRANCH NOT CTC              **ASP
005B46 58C0 D19E            05CD0  9597+         L     HUAREG,CTCADCON -   GET POINTER TO CTC UCB ADCON   **ASP
005B4A 94FE C004      00004        9598+         NI    4(HUAREG),X'FE' -   TURN OFF CTCBUSY FLAG           *ASP
005B4E 48CC 0000            00000  9599+         LH    HUAREG,0(HUAREG) -  POINT TO THE ADAPTER UCB       **ASP
005B52 9680 C004      00004        9600+         OI    UCBCHA(HUAREG),UCBHLT - INDICATE HIO ISSUED        **ASP
005B56 9459 C006      00006        9601+         NI    UCBFL1(HUAREG),X'FF'-UCBBSY-UCBPST-UCBDTR-UCBASK - **ASP
005B5A 48CC 0004            00004  9602+         LH    HUAREG,UCBCHA(HUAREG) - OBTAIN UNIT ADDRESS        **ASP
005B5E 54C0 D1C2            05CF4  9603+         N     HUAREG,ADMSK -      CLEAR HIGH ORDER BITS          **ASP
005B62 47F0 D054            05B86  9604+         B     HIO002 -            GO ISSUE HIO                   **ASP
005B66                             9605+NOCTCHIO EQU   * -                                                **ASP
005B66 48C8 0004            00004  9606+         LH    HUAREG,UCBCHA(HINREG) GET UNIT ADDRESS           RL19
005B6A 54C0 D1C2            05CF4  9607+         N     HUAREG,ADMSK CLEAR HIGH ORDER BITS    BBBBBB

                                   9609+*   HAS OLTEP REQUESTED D.E. OR ATT'N POSTING                     19026
005B6E 58A0 D1F2            05D24  9610+         L     HSAVR7,AOLTSW ADDR OF IECOLTSW         BBBBBB
005B72 9160 A000      00000        9611+         TM    0(HSAVR7),OLTDEPST+OLTATPST BBBBBB
       COMMON HIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                            PAGE  205


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005B76 4780 D054            05B86  9612+         BC    8,HIO002 NO-CONTINUE               19026
005B7A 189F                        9613+         LR    HSAVR6,HRETRG SAVE USER'S RETURN ADR    19026
005B7C 58FA 0000            00000  9614+         L     HRETRG,0(HSAVR7) GET ADDR OF OLTEP RTN    BBBBBB
005B80 45EF 0008            00008  9615+         BAL   HBALREG,OLTHLT(HRETRG) GO TO PROPER ENTRY        19026
005B84 18F9                        9616+         LR    HRETRG,HSAVR6 RESTORE RETURN ADDRESS    19026
005B86                             9617+HIO002   DS    0H TEST
005B86 9E00 C000      00000        9618+         HIO   0(HUAREG) ISSUE HALT I/O           BBBBBB
005B87                             9619+         ORG   *-3 19025
005B87 01                          9620+         DC    X'01' SET BIT IN IMMED FIELD    19025
005B8A                             9621+         ORG   *+2 19025
005B8A 07BF                        9622+         BCR   8+2+1,HRETRG RETN IF DONE OR NOT NEEDED RL19
                                   9623+*****    CSW STORED CONDITION - EXAMINE STATUS                     RL19
005B8C 9104 0040      00040        9624+         TM    CSWLOC,CSWCLP CHANNEL LOGOUT PENDING    21111
005B90 4770 D094            05BC6  9625+         BC    7,HCLP YES-GO SET UP TO ENABLE   21111
005B94 910E 0045      00045        9626+         TM    CSWLOC+5,CSWCTK+CSWICK+CATCCH CAT.ERRORS           BBBBB
005B98 4770 D074            05BA6  9627+         BC    7,HIO004 YES, GO HANDLE THEM         IMP2
005B9C 9130 0044      00044        9628+         TM    CSWLOC+4,CSWCUE+CSWBSY DID DEVICE DISCONNECT
005BA0 4710 D054            05B86  9629+         BC    1,HIO002 NO - RETURN UNTIL FREE
005BA4 07FF                        9630+         BCR   15,HRETRG RETURN TO CALLER

005BA6                             9632+HIO004   DS    0H CATASTROPHIC ERROR HANDLING
                                   9633+*    CCH MUST HAVE THE UCB ADDRESS IN REG 7, THE RETURN ADDRESS IN
                                   9634+*    REG 14, THE UNIT ADDRESS IN REG 6, AND ITS BASE ADDR IN REG 15.
005BA6 1896                        9635+         LR    HSAVR6,UAREG SAVE USER'S REG 6          RL19
005BA8 186C                        9636+         LR    UAREG,HUAREG PUT U.A. IN REG 6          RL19
005BAA 4060 003A            0003A  9637+         STH   UAREG,IOPSWO+2 PUT U.A. IN PSW
005BAE 18BF                        9638+         LR    HSAVR15,HRETRG SAVE RETURN ADDRESS        RL19
005BB0 18A7                        9639+         LR    HSAVR7,HUSERG SAVE REG 7 CONTENTS       19062
005BB2 1878                        9640+         LR    HUSERG,HINREG UCB ADR IN 7 FOR CATAPP
005BB4 9218 D1F6      05D28        9641+         MVI   ACATAPP,CATHLT INDICATE WHICH ENTRY     BBBBBB
005BB8 58F0 D1F6            05D28  9642+         L     HRETRG,ACATAPP LOAD CATAPP ADDRESS      BBBBBB
005BBC 05EF                        9643+         BALR  HBALREG,HRETRG GO TO CATAPP               RL19
005BBE 18FB                        9644+         LR    HRETRG,HSAVR15 RESTORE REG 15             RL19
005BC0 187A                        9645+         LR    HUSERG,HSAVR7 RESTORE REG 7              RL19
005BC2 1869                        9646+         LR    UAREG,HSAVR6 RESTORE REG 6              RL19
005BC4 07FF                        9647+         BCR   15,HRETRG RETURN TO CALLER

                                   9649+*   CHANNEL LOGOUT PENDING - MARK UCB FOR DELAYED HIO-SET PSEUDO  21111
                                   9650+*   DISABLE SWITCH IN FLIH THEN ENABLE TO ALLOW CHANNEL TO LOGOUT 21111
                                   9651+*   WHEN CONTROL RETURN- DISABLE- RESET PSEUDO DISABLE SWITCH     21111

005BC6 9610 8004      00004        9653+HCLP     OI    UCBCHA(HINREG),UCBDHIO MARK UCB FOR DELAY SENSE  21111
005BCA 5890 D0BE            05BF0  9654+         L     HSAVR6,HCLPCNTA GET PTR TO CLP COUNTER    21111
005BCE 43C9 0000            00000  9655+         IC    HUAREG,ZERO(HSAVR6) GET THE CNTR              21111
005BD2 41CC 0001            00001  9656+         LA    HUAREG,ONE(HUAREG) INCREMENT CNTR            21111
005BD6 42C9 0000            00000  9657+         STC   HUAREG,ZERO(HSAVR6) STORE COUNTER             21111
005BDA 5890 D0C2            05BF4  9658+         L     HSAVR6,PDSABLA GET PTR TO PDSABL SW FLIH 21111
005BDE 96F0 9001      00001        9659+         OI    ONE(HSAVR6),PPKEY SET PSEUDO DISABLE SWITCH 21111
005BE2 8000 D0BE      05BF0        9660+         SSM   HIOENB ENABLE FOR INTERRUPT      21111

                                   9662+*   THE CHANNEL WILL LOGOUT - WHEN ALL INTERRUPTS ARE CLEARED,    21111
                                   9663+*   FLIH WILL RETURN CONTROL TO NEXT INSTRUCTION                  21111

005BE6 8000 D0C2      05BF4        9665+         SSM   PDSABLA DISABLE INTERUPTS         21111
005BEA 9400 9001      00001        9666+         NI    ONE(HSAVR6),ZERO RESET PSEUDO DISABLE SW   21111
       COMMON HIO ROUTINE - INPUT/OUTPUT SUPERVISOR                                                            PAGE  206


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005BEE 07FF                        9667+         BCR   15,HRETRG RETURN TO USER            21111

005BF0                             9669+HCLPCNTA DS    0F 21111
005BF0 FE                          9670+HIOENB   DC    X'FE' ENABLE MASK               21111
005BF1 00475C                      9671+         DC    AL3(CLPCNT) CHAN LOGOUT PEND CNTR PTR 21111
005BF4 00000000                    9672+PDSABLA  DC    A(IEA0IO02) PSEUDO DISABLE SW IN FLIH 21111
                                   9673+         DROP  HIOBAS TEST
       2305 PURGE ROUTINE - INPUT/OUTPUT SUPERVISOR                                                            PAGE  207


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   9675+*                                                                 20201
                                   9676+*   THIS IS THE PURGE INTERFACE TO HANDLE ZEUS DEVICES            20201
                                   9677+*                                                                 20201
005BF8 47FE 0004            00004  9678+ZDEBPRG  BC    15,FOUR(LNKRG2) RETURN-NO ZEUS DEVICES    20201
                                   9679+         TITLE 'CHANNEL LOGOUT PENDING ROUTINE - INPUT/OUTPUT SUPERVISOX
       CHANNEL LOGOUT PENDING ROUTINE - INPUT/OUTPUT SUPERVISOR                                                PAGE  208


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   9680+*                                                                     *
                                   9681+*                                                                     *
                                   9682+*   FUNCTION - THIS ROUTINE WILL SCAN UCB'S LOOKING FOR DEVICES THAT  *
                                   9683+*              HAVE EITHER SENSE OR HIO OPERATIONS PENDING.           *
                                   9684+*                                                                     *
                                   9685+*   ENTRY POINT - CLPRTN - ENTERED FROM CHANNEL RESTART WHEN CHANNEL  *
                                   9686+*                          LOGOUT PENDING COUNT IS GREATER THAN ZERO  *
                                   9687+*                                                                     *
                                   9688+*   EXITS      INT027 - ON SUCCESSFUL COMPLETION OF HALT I/O          *
                                   9689+*                     - CHANNEL LOGOUT PENDING FOR HIO ISSUED IN THIS *
                                   9690+*                       ROUTINE                                       *
                                   9691+*                     - IF NO UCB IS FOUND REQUIRING DELAYED ACTION   *
                                   9692+*              INTSEN3- TO ISSUE SENSE OPERATION                      *
                                   9693+*              INTS07-  TO CHECK STATUS OF SENSE THAT CAME IN AS      *
                                   9694+*                       INTERRUPT WHEN SYSTEM WAS ENABLED             *
                                   9695+*              CCH    - FOR CHANNEL ERROR ENCOUNTERED IN THIS ROUTINE *



005BFC                             9697+CLPRTN   DS    0H 21111
005BFC                             9698+         USING *,APBSRG ESTABLISH ADDRESSABILITY  21111
00354A                             9699+         USING IOSBAS,BASREG ESTABLISH BASE REG        21111
004548                             9700+         USING IOSBAS+4094,BASREG2 ESTABLISH BASE REG        21111
005BFC 91A0 83D9      04921        9701+         TM    XCPBTE,XCPCNT+XCPERR EXCP ENTRANCE             21111
005C00 4740 8290            047D8  9702+         BC    4,SELECTV TBSE
                                   9703+*              SCAN UCB'S                                         21111
005C04 58A0 81DC            04724  9704+         L     WKREG1,IECILK2A POINT TO UCB LOOKUP TBL SA71362
005C08 487A 0000            00000  9705+CLP003   LH    UCBREG,ZERO(WKREG1) GET UCB ADDR              21111
005C0C 41AA 0002            00002  9706+         LA    WKREG1,TWO(WKREG1) POINT TO NEXT ENTRY       21111
005C10 1277                        9707+         LTR   UCBREG,UCBREG IS IT LAST OR DUMMY ENTRY 21111
005C12 4740 F0A8            05CA4  9708+         BM    CLP014 END OF CHAIN GO HANDLE    21111
005C16 4780 F00C            05C08  9709+         BZ    CLP003 DUMMY ENTRY CK NEXT UCB   21111
005C1A 9130 7004      00004        9710+         TM    UCBCHA(UCBREG),UCBDSNS+UCBDHIO WAITING FOR SNS/HIO 21111
005C1E 4780 F00C            05C08  9711+         BZ    CLP003 NO GO CHECK NEXT UCB      21111
005C22 4390 8214            0475C  9712+         IC    ICREG,CLPCNT LOAD CHAN LOGOUT PEND CNTR21111
005C26 0690                        9713+         BCTR  ICREG,ZERO SUBTRACT ONE              21111
005C28 4290 8214            0475C  9714+         STC   ICREG,CLPCNT RESTORE CNTR              21111
005C2C 9120 7004      00004        9715+         TM    UCBCHA(UCBREG),UCBDSNS . WAITING FOR SENSE       SA62867
005C30 4780 F078            05C74  9716+         BZ    CLPHIO .                 NO, GO SET UP FOR HIO   SA62867

                                   9718+*   THIS UCB WAITING FOR DELAYED SENSE-INITIALIZE REGISTERS AND   21111
                                   9719+*   GO TO SENSE ROUTINE FOR SENSE OPERATION                       21111
005C34 949F 7004      00004        9720+         NI    UCBCHA(UCBREG),FF-UCBDSNS-UCBSMD RESET DELAYED SW 21111
005C38 9120 7006      00006        9721+         TM    UCBFL1(UCBREG),UCBPST IS THERE AN RQE           21111
005C3C 4780 F050            05C4C  9722+         BZ    CLP006 NO - BYPASS SETUP         21111
005C40 4817 0014            00014  9723+         LH    TSTREG,UCBLTS(UCBREG) GET RQE PTR FROM UCB      21111
005C44 9823 1004            00004  9724+         LM    IOBREG,DEBREG,TSTIOB-1(TSTREG) GET IOB & DEB ADDR  21111
005C48 5843 0018            00018  9725+         L     DCBREG,DEBDCB-1(DEBREG) LOAD DCB ADDR             21111
005C4C                             9726+CLP006   DS    0H 21111
005C4C 4867 0004            00004  9727+         LH    UAREG,UCBCHA(UCBREG) .   GET LAST PATH STARTED     21111
005C50 5460 836C            048B4  9728+         N     UAREG,ADDRMSK .          AND OFF HI ORDER BITS     21111
                                   9729+*   IF LOGOUT PENDING WAS INDICATED ON THE SIO, UCBDHIO WILL    SA62867
                                   9730+*   BE ON AND THE SIO MAY BE REISSUED.  IF PRESENTED ON THE     SA62867
                                   9731+*   TIO, THE REGISTERS NEEDED ARE SETUP AND THE NORMAL TIO      SA62867
                                   9732+*   IS REISSUED.                                                SA62867
       CHANNEL LOGOUT PENDING ROUTINE - INPUT/OUTPUT SUPERVISOR                                                PAGE  209


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005C54 9110 7004      00004        9733+         TM    UCBCHA(UCBREG),UCBDHIO . WAS LOG PENDING ON SIO  SA62867
005C58 4780 F068            05C64  9734+         BC    8,CLPTIOSN .             NO, HANDLE TIO          SA62867
005C5C 94EF 7004      00004        9735+         NI    UCBCHA(UCBREG),FF-UCBDHIO .RESET SIO SENSE BIT   SA62867
005C60 47F0 5D56            042A0  9736+         BC    15,INTSEN3A .            GO RE-ISSUE SENSE SIO   SA62867
005C64 41E0 5DFA            04344  9737+CLPTIOSN LA    LNKRG2,INTS05A .         SET RETURN REG          SA68848
005C68 9200 83D8      04920        9738+         MVI   SNSCNT,ZERO .            CLEAR RETRY COUNT       SA62867
005C6C 4100 0003            00003  9739+         LA    REG0,3 .                 SET CCH RETRY COUNT     SA62867
005C70 47F0 5F60            044AA  9740+         BC    15,INTSEN6B .            GO ISSUE TIO            SA62867


                                   9742+*   SET UP AND ISSUE HIO DELAYED BY CHANNEL LOGOUT PENDING        21111
005C74                             9743+CLPHIO   DS    0H 21111
005C74 94EF 7004      00004        9744+         NI    UCBCHA(UCBREG),FF-UCBDHIO RESET DELAY HIO FLAG     21111
005C78 4867 0004            00004  9745+         LH    UAREG,UCBCHA(UCBREG) INITIALIZE WITH DEV ADDR  21111
005C7C 5460 836C            048B4  9746+         N     UAREG,ADDRMSK AND OFF HI ORDER BITS     21111
005C80 9E00 6000      00000        9747+CLP012   HIO   ZERO(UAREG) ISSUE HALT I/O            21111
005C81                             9748+         ORG   *-3 ORG BACK TO IMMED FIELD   21111
005C81 01                          9749+         DC    X'01' SET BIT FOR HALT DEVICE   21111
005C84                             9750+         ORG   *+2 ORG TO NEXT INSTRUCTION   21111
005C84 47B0 5A22            03F6C  9751+         BC    8+2+1,INT027 EXIT TO CHANNEL RESTART   21111

                                   9753+*    CSW STORED EXAMINE STATUS                                    21111
005C88 9104 0040      00040        9754+         TM    CSWLOC,CSWCLP CHANNEL LOGOUT PENDING    21111
005C8C 4770 F0B0            05CAC  9755+         BC    7,CLP015 YES GO HANDLE             21111
005C90 910E 0045      00045        9756+         TM    CSWLOC+5,CSWCTK+CSWICK+CATCCH CAT. ERROR           21111
005C94 4770 F0C4            05CC0  9757+         BC    7,CLP018 YES GO HANDLE THEM        21111
005C98 9130 0044      00044        9758+         TM    CSWLOC+4,CSWCUE+CSWBSY DID DEVICE DISCONNECT     21111
005C9C 4710 F084            05C80  9759+         BC    1,CLP012 NO RETURN UNTIL FREE      21111
005CA0 47F0 5A22            03F6C  9760+         B     INT027 EXIT TO CHANNEL RESTART   21111

                                   9762+*    CHANNEL LOGOUT PENDING COUNT GREATER THAN ZERO YET NO        21111
                                   9763+*   UCB HAS BIT INDICATING WAITING FOR DELAYED SENSE OR HIO       21111
005CA4 9200 8214      0475C        9764+CLP014   MVI   CLPCNT,ZERO RESET COUNT               21111
005CA8 47F0 5A22            03F6C  9765+         B     INT027 EXIT TO CHANNEL RESTART   21111

                                   9767+*   CHANNEL LOGOUT PENDING CONDITION ENCOUNTERED FOR HIO          21111
                                   9768+*   ISSUED IN THIS ROUTINE                                        21111
005CAC 9610 7004      00004        9769+CLP015   OI    UCBCHA(UCBREG),UCBDHIO RESET HIO PEND BIT IN UCB 21111
005CB0 4390 8214            0475C  9770+         IC    ICREG,CLPCNT GET CHAN LOGOUT PEND CNTR 21111
005CB4 4199 0001            00001  9771+         LA    ICREG,ONE(ICREG) ADD ONE TO CNTR           21111
005CB8 4290 8214            0475C  9772+         STC   ICREG,CLPCNT STORE CNTR                21111
005CBC 47F0 5A22            03F6C  9773+         B     INT027 EXIT TO CHANNEL RESTART   21111

                                   9775+*   CATISTROPHIC ERROR ON HIO-GO TO CCH-RETURN TO CHANNEL RESTART 21111
005CC0 9218 F12C      05D28        9776+CLP018   MVI   ACATAPP,CATHLT INDICATE HIO ENTRY FOR CCH21111
005CC4 41E0 5A22            03F6C  9777+         LA    LNKRG2,INT027 SET RETURN ADDR FROM CCH  21111
005CC8 58F0 F12C            05D28  9778+         L     APBSRG,ACATAPP LOAD CCH ADDR             21111
005CCC 07FF                        9779+         BCR   15,APBSRG EXIT TO CCH               21111
                                   9780+         DROP  BASREG,BASREG2,APBSRG 21111
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  210


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

005CD0                             9782+         DS    0F ALIGNMENT                BBBBBB
005CD0 00004B14                    9783+CTCADCON DC    A(CTCMUCB) -        ADDRESS OF THE CTC UCB ADCON   **ASP
005CD4 00                          9784+RMSFLAG  DC    X'00' FLAG USED FOR RMS         20061
005CD5 003534                      9785+ARMSRQE  DC    AL3(RMSRQE) ADDR OF THE RMS RQE       20061
005CD8 00000000                    9786+RMSSAVE  DC    F'0' RMS RETURN ADDR SAVE AREA 20061
005CDC 0000                        9787+ARMSUCB  DC    H'0' ADDR OF THE RMS UCB       20061
005CDE 0000                        9788+RMSRQESV DC    H'0' RMS SAVE AREA FOR RQES    20061
005CE0 00005582                    9789+RMSBASE  DC    A(IECRMS) BASE ADDR FOR RMS        BBBBBB
005CE4 C2                          9790+CLRMSK   DC    AL1(IOBCDS+IOBURL) CLEAR IOB FLAGS           20061
005CE5 01                          9791+         DC    AL1(IOBQSM) QSAM FLAG                 20061
005CE6 0000                        9792+         DC    AL2(0) CLEAR IOB SENSE           20061
005CE8 0000354A                    9793+IOSBASAD DC    A(IOSBAS) ADDR OF IOS BASE CONSTANT 20061
005CEC 00005642                    9794+DDRBASE  DC    A(DDRSTART) BASE ADDR FOR DDR        BBBBBB
005CF0 00005178                    9795+PNQAD    DC    A(XCPPNQ) ADDR OF ENQ CODE         BBBBBB
005CF4 00003FFF                    9796+ADMSK    DC    X'00003FFF' BBBBBB
005CF8 0000FFFF                    9797+APRMSK   DC    X'0000FFFF' BBBBBB
005CFC 00000000                    9798+CEBSAV   DC    F'0' CEB PTR SAVE AREA         19022
005D00 00000000                    9799+PTHAVL   DC    F'0' COMPOSITE OF M.P. PATHS   19022
005D04 00000000                    9800+PTHCNT   DC    F'0' COUNT OF M.P. PATHS       19022

                                   9802+*    THE FOLLOWING IS THE CHANNEL ERROR BLOCK TABLE.               APR

                                   9804+* NOTE  X'01' IN THE FIRST BYTE OF THE FIRST CEB INDICATES THAT    APR
                                   9805+*    THERE IS AT LEAST ONE ACTIVE CHANNEL ERROR BLOCK.             APR
005D08                             9806+         DS    0F
005D08 FE                          9807+CEBTAB   DC    X'FE' CEB ACT SW AND IND FIELD   APR
005D09 00                          9808+         DC    X'00' CEB CHAN MASK FIELD        APR
005D0A 0000                        9809+         DC    X'0000' CEB RQE FIELD              APR
005D0C FE                          9810+         DC    X'FE' CEB ACT IND FIELD          APR
005D0D 00                          9811+         DC    X'00' APR
005D0E 0000                        9812+         DC    X'0000' APR
005D10 FE                          9813+         DC    X'FE' CEB ACT IND FIELD          APR
005D11 00                          9814+         DC    X'00' APR
005D12 0000                        9815+         DC    X'0000' APR
005D14 FE                          9816+         DC    X'FE' CEB ACT IND FIELD          APR
005D15 00                          9817+         DC    X'00' APR
005D16 0000                        9818+         DC    X'0000' APR
005D18 FE                          9819+         DC    X'FE' CEB ACT IND FIELD          APR
005D19 00                          9820+         DC    X'00' APR
005D1A 0000                        9821+         DC    X'0000' APR
005D1C 00                          9822+CEPTH    DC    X'00' CHANNEL ERROR PATH BYTE   19022
005D1D 00                          9823+MSKSAV   DC    X'00' PATH MASK SAVE AREA       19022
005D1E 0000
005D20 00004DC8                    9824+AIECCST  DC    A(IECCST) ADDR OF CHAN TAB         BBBBBB
005D24 000047C8                    9825+AOLTSW   DC    A(IECOLTSW) ADDR OF OLTEP RTN.       BBBBBB
000018                             9826+CATHLT   EQU   24 OFFSET FOR HIO ENTRY     BBBBBB
005D28 00000000                    9827+ACATAPP  DC    V(IGFCAT) ADDR OF CCH RTN          BBBBBB
                                   9828           AGO   .WK1
                                   9829 .WK1 IECIUCBA 1,10000823,0,0,0,0,0,0
005D2C 00000000
005D30 0000000000000000            9830+UCBW1    DC    D'0' ERP WORK AREA             19017
                                   9831          AGO   .WK2   TO NEXT WORK AREA
                                   9832 .WK2 IECIUCBA 4,10800808,0,0,0,0,0,0
005D38 0000000000000000            9833+UCBW4    DC    D'0' ERP WORK AREA             19017
                                   9834          AGO   .WK3   TO NEXT WORK AREA
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  211


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   9835 .WK3 IECIUCBA 5,10800808,0,0,0,0,0,0
005D40 0000000000000000            9836+UCBW5    DC    D'0' ERP WORK AREA             19017
                                   9837          AGO   .WK4   TO NEXT WORK AREA
                                   9838 .WK4 IECIUCBA 9,10000823,0,0,0,0,0,0
005D48 0000000000000000            9839+UCBW9    DC    D'0' ERP WORK AREA             19017
                                   9840          AGO   .WK5   TO NEXT WORK AREA
                                   9841 .WK5 IECIUCBA 10,10040820,0,0,0,0,0,0
005D50 0000000000000000            9842+UCBW10   DC    D'0' ERP WORK AREA             19017
                                   9843          AGO   .WK6   TO NEXT WORK AREA
                                   9844 .WK6 IECIUCBA 43,10800809,0,0,0,0,0,0
005D58 0000000000000000            9845+UCBW43   DC    D'0' ERP WORK AREA             19017
005D60 0000000000000000            9846+         DC    2D'0' ERP WORK AREA             20202
                                   9847          AGO   .WK7   TO NEXT WORK AREA
                                   9848 .WK7 IECIUCBA 44,10800809,0,0,0,0,0,0
005D70 0000000000000000            9849+UCBW44   DC    D'0' ERP WORK AREA             19017
005D78 0000000000000000            9850+         DC    2D'0' ERP WORK AREA             20202
                                   9851          AGO   .WK8   TO NEXT WORK AREA
                                   9852 .WK8 IECIUCBA 47,10800808,0,0,0,0,0,0
005D88 0000000000000000            9853+UCBW47   DC    D'0' ERP WORK AREA             19017
                                   9854          AGO   .WK9   TO NEXT WORK AREA
                                   9855 .WK9 IECIUCBA 48,10800808,0,0,0,0,0,0
005D90 0000000000000000            9856+UCBW48   DC    D'0' ERP WORK AREA             19017
                                   9857          AGO   .WK10   TO NEXT WORK AREA
                                   9858 .WK10 IECIUCBA 49,10000808,0,0,0,0,0,0
005D98 0000000000000000            9859+UCBW49   DC    D'0' ERP WORK AREA             19017
                                   9860          AGO   .WK11   TO NEXT WORK AREA
                                   9861 .WK11 IECIUCBA 50,10000808,0,0,0,0,0,0
005DA0 0000000000000000            9862+UCBW50   DC    D'0' ERP WORK AREA             19017
                                   9863          AGO   .WK12   TO NEXT WORK AREA
                                   9864 .WK12 IECIUCBA 51,30002001,0,0,0,0,0,0
005DA8 0000000000000000            9865+UCBW51   DC    5D'0' ERP WORK AREA
                                   9866          AGO   .WK13   TO NEXT WORK AREA
                                   9867 .WK13 IECIUCBA 52,30002001,0,0,0,0,0,0
005DD0 0000000000000000            9868+UCBW52   DC    5D'0' ERP WORK AREA
                                   9869          AGO   .WK14   TO NEXT WORK AREA
                                   9870 .WK14 IECIUCBA 53,30002001,0,0,0,0,0,0
005DF8 0000000000000000            9871+UCBW53   DC    5D'0' ERP WORK AREA
                                   9872          AGO   .WK15   TO NEXT WORK AREA
                                   9873 .WK15 IECIUCBA 54,30002001,0,0,0,0,0,0
005E20 0000000000000000            9874+UCBW54   DC    5D'0' ERP WORK AREA
                                   9875          AGO   .WK16   TO NEXT WORK AREA
                                   9876 .WK16 IECIUCBA 55,30002001,0,0,0,0,0,0
005E48 0000000000000000            9877+UCBW55   DC    5D'0' ERP WORK AREA
                                   9878          AGO   .WK17   TO NEXT WORK AREA
                                   9879 .WK17 IECIUCBA 56,30002001,0,0,0,0,0,0
005E70 0000000000000000            9880+UCBW56   DC    5D'0' ERP WORK AREA
                                   9881          AGO   .WK18   TO NEXT WORK AREA
                                   9882 .WK18 IECIUCBA 57,30002001,0,0,0,0,0,0
005E98 0000000000000000            9883+UCBW57   DC    5D'0' ERP WORK AREA
                                   9884          AGO   .WK19   TO NEXT WORK AREA
                                   9885 .WK19 IECIUCBA 58,30002001,0,0,0,0,0,0
005EC0 0000000000000000            9886+UCBW58   DC    5D'0' ERP WORK AREA
                                   9887          AGO   .WK20   TO NEXT WORK AREA
                                   9888 .WK20 IECIUCBA 59,30C02008,0,0,0,0,0,0
005EE8 0000000000000000            9889+UCBW59   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  212


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   9890          AGO   .WK21   TO NEXT WORK AREA
                                   9891 .WK21 IECIUCBA 60,30C02008,0,0,0,0,0,0
005F38 0000000000000000            9892+UCBW60   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                   9893          AGO   .WK22   TO NEXT WORK AREA
                                   9894 .WK22 IECIUCBA 61,30C02008,0,0,0,0,0,0
005F88 0000000000000000            9895+UCBW61   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                   9896          AGO   .WK23   TO NEXT WORK AREA
                                   9897 .WK23 IECIUCBA 62,30C02008,0,0,0,0,0,0
005FD8 0000000000000000            9898+UCBW62   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                   9899          AGO   .WK24   TO NEXT WORK AREA
                                   9900 .WK24 IECIUCBA 63,30C02008,0,0,0,0,0,0
006028 0000000000000000            9901+UCBW63   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                   9902          AGO   .WK25   TO NEXT WORK AREA
                                   9903 .WK25 IECIUCBA 64,30C02008,0,0,0,0,0,0
006078 0000000000000000            9904+UCBW64   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                   9905          AGO   .WK26   TO NEXT WORK AREA
                                   9906 .WK26 IECIUCBA 65,30C02008,0,0,0,0,0,0
0060C8 0000000000000000            9907+UCBW65   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                   9908          AGO   .WK27   TO NEXT WORK AREA
                                   9909 .WK27 IECIUCBA 66,30C02008,0,0,0,0,0,0
006118 0000000000000000            9910+UCBW66   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                   9911          AGO   .WK28   TO NEXT WORK AREA
                                   9912 .WK28 IECIUCBA 67,30502009,0,0,0,0,0,0
006168 0000000000000000            9913+UCBS67   DC    3D'0' SENSE AREA                20201
006180 0700000060000006            9914+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006188 1F00618D60000001            9915+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006190 0800000000000000            9916+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006198 0000000000000000            9917+UCBW67   DC    15D'0' WORK AREA                 20201
                                   9918          AGO   .WK29   TO NEXT WORK AREA
                                   9919 .WK29 IECIUCBA 68,30502009,0,0,0,0,0,0
006210 0000000000000000            9920+UCBS68   DC    3D'0' SENSE AREA                20201
006228 0700000060000006            9921+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006230 1F00623560000001            9922+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006238 0800000000000000            9923+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006240 0000000000000000            9924+UCBW68   DC    15D'0' WORK AREA                 20201
                                   9925          AGO   .WK30   TO NEXT WORK AREA
                                   9926 .WK30 IECIUCBA 69,30502009,0,0,0,0,0,0
0062B8 0000000000000000            9927+UCBS69   DC    3D'0' SENSE AREA                20201
0062D0 0700000060000006            9928+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
0062D8 1F0062DD60000001            9929+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
0062E0 0800000000000000            9930+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
0062E8 0000000000000000            9931+UCBW69   DC    15D'0' WORK AREA                 20201
                                   9932          AGO   .WK31   TO NEXT WORK AREA
                                   9933 .WK31 IECIUCBA 70,30502009,0,0,0,0,0,0
006360 0000000000000000            9934+UCBS70   DC    3D'0' SENSE AREA                20201
006378 0700000060000006            9935+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006380 1F00638560000001            9936+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006388 0800000000000000            9937+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006390 0000000000000000            9938+UCBW70   DC    15D'0' WORK AREA                 20201
                                   9939          AGO   .WK32   TO NEXT WORK AREA
                                   9940 .WK32 IECIUCBA 71,30502009,0,0,0,0,0,0
006408 0000000000000000            9941+UCBS71   DC    3D'0' SENSE AREA                20201
006420 0700000060000006            9942+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006428 1F00642D60000001            9943+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006430 0800000000000000            9944+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  213


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

006438 0000000000000000            9945+UCBW71   DC    15D'0' WORK AREA                 20201
                                   9946          AGO   .WK33   TO NEXT WORK AREA
                                   9947 .WK33 IECIUCBA 72,30502009,0,0,0,0,0,0
0064B0 0000000000000000            9948+UCBS72   DC    3D'0' SENSE AREA                20201
0064C8 0700000060000006            9949+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
0064D0 1F0064D560000001            9950+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
0064D8 0800000000000000            9951+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
0064E0 0000000000000000            9952+UCBW72   DC    15D'0' WORK AREA                 20201
                                   9953          AGO   .WK34   TO NEXT WORK AREA
                                   9954 .WK34 IECIUCBA 73,30502009,0,0,0,0,0,0
006558 0000000000000000            9955+UCBS73   DC    3D'0' SENSE AREA                20201
006570 0700000060000006            9956+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006578 1F00657D60000001            9957+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006580 0800000000000000            9958+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006588 0000000000000000            9959+UCBW73   DC    15D'0' WORK AREA                 20201
                                   9960          AGO   .WK35   TO NEXT WORK AREA
                                   9961 .WK35 IECIUCBA 74,30502009,0,0,0,0,0,0
006600 0000000000000000            9962+UCBS74   DC    3D'0' SENSE AREA                20201
006618 0700000060000006            9963+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006620 1F00662560000001            9964+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006628 0800000000000000            9965+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006630 0000000000000000            9966+UCBW74   DC    15D'0' WORK AREA                 20201
                                   9967          AGO   .WK36   TO NEXT WORK AREA
                                   9968 .WK36 IECIUCBA 75,30502009,0,0,0,0,0,0
0066A8 0000000000000000            9969+UCBS75   DC    3D'0' SENSE AREA                20201
0066C0 0700000060000006            9970+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
0066C8 1F0066CD60000001            9971+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
0066D0 0800000000000000            9972+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
0066D8 0000000000000000            9973+UCBW75   DC    15D'0' WORK AREA                 20201
                                   9974          AGO   .WK37   TO NEXT WORK AREA
                                   9975 .WK37 IECIUCBA 76,30502009,0,0,0,0,0,0
006750 0000000000000000            9976+UCBS76   DC    3D'0' SENSE AREA                20201
006768 0700000060000006            9977+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006770 1F00677560000001            9978+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006778 0800000000000000            9979+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006780 0000000000000000            9980+UCBW76   DC    15D'0' WORK AREA                 20201
                                   9981          AGO   .WK38   TO NEXT WORK AREA
                                   9982 .WK38 IECIUCBA 77,30502009,0,0,0,0,0,0
0067F8 0000000000000000            9983+UCBS77   DC    3D'0' SENSE AREA                20201
006810 0700000060000006            9984+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006818 1F00681D60000001            9985+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006820 0800000000000000            9986+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006828 0000000000000000            9987+UCBW77   DC    15D'0' WORK AREA                 20201
                                   9988          AGO   .WK39   TO NEXT WORK AREA
                                   9989 .WK39 IECIUCBA 78,30502009,0,0,0,0,0,0
0068A0 0000000000000000            9990+UCBS78   DC    3D'0' SENSE AREA                20201
0068B8 0700000060000006            9991+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
0068C0 1F0068C560000001            9992+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
0068C8 0800000000000000            9993+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
0068D0 0000000000000000            9994+UCBW78   DC    15D'0' WORK AREA                 20201
                                   9995          AGO   .WK40   TO NEXT WORK AREA
                                   9996 .WK40 IECIUCBA 79,30502009,0,0,0,0,0,0
006948 0000000000000000            9997+UCBS79   DC    3D'0' SENSE AREA                20201
006960 0700000060000006            9998+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006968 1F00696D60000001            9999+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  214


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

006970 0800000000000000           10000+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006978 0000000000000000           10001+UCBW79   DC    15D'0' WORK AREA                 20201
                                  10002          AGO   .WK41   TO NEXT WORK AREA
                                  10003 .WK41 IECIUCBA 80,30502009,0,0,0,0,0,0
0069F0 0000000000000000           10004+UCBS80   DC    3D'0' SENSE AREA                20201
006A08 0700000060000006           10005+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006A10 1F006A1560000001           10006+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006A18 0800000000000000           10007+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006A20 0000000000000000           10008+UCBW80   DC    15D'0' WORK AREA                 20201
                                  10009          AGO   .WK42   TO NEXT WORK AREA
                                  10010 .WK42 IECIUCBA 81,30502009,0,0,0,0,0,0
006A98 0000000000000000           10011+UCBS81   DC    3D'0' SENSE AREA                20201
006AB0 0700000060000006           10012+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006AB8 1F006ABD60000001           10013+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006AC0 0800000000000000           10014+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006AC8 0000000000000000           10015+UCBW81   DC    15D'0' WORK AREA                 20201
                                  10016          AGO   .WK43   TO NEXT WORK AREA
                                  10017 .WK43 IECIUCBA 82,30502009,0,0,0,0,0,0
006B40 0000000000000000           10018+UCBS82   DC    3D'0' SENSE AREA                20201
006B58 0700000060000006           10019+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006B60 1F006B6560000001           10020+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006B68 0800000000000000           10021+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006B70 0000000000000000           10022+UCBW82   DC    15D'0' WORK AREA                 20201
                                  10023          AGO   .WK44   TO NEXT WORK AREA
                                  10024 .WK44 IECIUCBA 83,30C02008,0,0,0,0,0,0
006BE8 0000000000000000           10025+UCBW83   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10026          AGO   .WK45   TO NEXT WORK AREA
                                  10027 .WK45 IECIUCBA 84,30C02008,0,0,0,0,0,0
006C38 0000000000000000           10028+UCBW84   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10029          AGO   .WK46   TO NEXT WORK AREA
                                  10030 .WK46 IECIUCBA 85,30C02008,0,0,0,0,0,0
006C88 0000000000000000           10031+UCBW85   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10032          AGO   .WK47   TO NEXT WORK AREA
                                  10033 .WK47 IECIUCBA 86,30C02008,0,0,0,0,0,0
006CD8 0000000000000000           10034+UCBW86   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10035          AGO   .WK48   TO NEXT WORK AREA
                                  10036 .WK48 IECIUCBA 87,30C02008,0,0,0,0,0,0
006D28 0000000000000000           10037+UCBW87   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10038          AGO   .WK49   TO NEXT WORK AREA
                                  10039 .WK49 IECIUCBA 88,30C02008,0,0,0,0,0,0
006D78 0000000000000000           10040+UCBW88   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10041          AGO   .WK50   TO NEXT WORK AREA
                                  10042 .WK50 IECIUCBA 89,30C02008,0,0,0,0,0,0
006DC8 0000000000000000           10043+UCBW89   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10044          AGO   .WK51   TO NEXT WORK AREA
                                  10045 .WK51 IECIUCBA 90,30C02008,0,0,0,0,0,0
006E18 0000000000000000           10046+UCBW90   DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10047          AGO   .WK52   TO NEXT WORK AREA
                                  10048 .WK52 IECIUCBA 91,30502009,0,0,0,0,0,0
006E68 0000000000000000           10049+UCBS91   DC    3D'0' SENSE AREA                20201
006E80 0700000060000006           10050+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006E88 1F006E8D60000001           10051+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006E90 0800000000000000           10052+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006E98 0000000000000000           10053+UCBW91   DC    15D'0' WORK AREA                 20201
                                  10054          AGO   .WK53   TO NEXT WORK AREA
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  215


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                  10055 .WK53 IECIUCBA 92,30502009,0,0,0,0,0,0
006F10 0000000000000000           10056+UCBS92   DC    3D'0' SENSE AREA                20201
006F28 0700000060000006           10057+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006F30 1F006F3560000001           10058+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006F38 0800000000000000           10059+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006F40 0000000000000000           10060+UCBW92   DC    15D'0' WORK AREA                 20201
                                  10061          AGO   .WK54   TO NEXT WORK AREA
                                  10062 .WK54 IECIUCBA 93,30502009,0,0,0,0,0,0
006FB8 0000000000000000           10063+UCBS93   DC    3D'0' SENSE AREA                20201
006FD0 0700000060000006           10064+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
006FD8 1F006FDD60000001           10065+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
006FE0 0800000000000000           10066+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
006FE8 0000000000000000           10067+UCBW93   DC    15D'0' WORK AREA                 20201
                                  10068          AGO   .WK55   TO NEXT WORK AREA
                                  10069 .WK55 IECIUCBA 94,30502009,0,0,0,0,0,0
007060 0000000000000000           10070+UCBS94   DC    3D'0' SENSE AREA                20201
007078 0700000060000006           10071+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007080 1F00708560000001           10072+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007088 0800000000000000           10073+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007090 0000000000000000           10074+UCBW94   DC    15D'0' WORK AREA                 20201
                                  10075          AGO   .WK56   TO NEXT WORK AREA
                                  10076 .WK56 IECIUCBA 95,30502009,0,0,0,0,0,0
007108 0000000000000000           10077+UCBS95   DC    3D'0' SENSE AREA                20201
007120 0700000060000006           10078+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007128 1F00712D60000001           10079+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007130 0800000000000000           10080+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007138 0000000000000000           10081+UCBW95   DC    15D'0' WORK AREA                 20201
                                  10082          AGO   .WK57   TO NEXT WORK AREA
                                  10083 .WK57 IECIUCBA 96,30502009,0,0,0,0,0,0
0071B0 0000000000000000           10084+UCBS96   DC    3D'0' SENSE AREA                20201
0071C8 0700000060000006           10085+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
0071D0 1F0071D560000001           10086+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
0071D8 0800000000000000           10087+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
0071E0 0000000000000000           10088+UCBW96   DC    15D'0' WORK AREA                 20201
                                  10089          AGO   .WK58   TO NEXT WORK AREA
                                  10090 .WK58 IECIUCBA 97,30502009,0,0,0,0,0,0
007258 0000000000000000           10091+UCBS97   DC    3D'0' SENSE AREA                20201
007270 0700000060000006           10092+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007278 1F00727D60000001           10093+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007280 0800000000000000           10094+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007288 0000000000000000           10095+UCBW97   DC    15D'0' WORK AREA                 20201
                                  10096          AGO   .WK59   TO NEXT WORK AREA
                                  10097 .WK59 IECIUCBA 98,30502009,0,0,0,0,0,0
007300 0000000000000000           10098+UCBS98   DC    3D'0' SENSE AREA                20201
007318 0700000060000006           10099+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007320 1F00732560000001           10100+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007328 0800000000000000           10101+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007330 0000000000000000           10102+UCBW98   DC    15D'0' WORK AREA                 20201
                                  10103          AGO   .WK60   TO NEXT WORK AREA
                                  10104 .WK60 IECIUCBA 99,30502009,0,0,0,0,0,0
0073A8 0000000000000000           10105+UCBS99   DC    3D'0' SENSE AREA                20201
0073C0 0700000060000006           10106+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
0073C8 1F0073CD60000001           10107+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
0073D0 0800000000000000           10108+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
0073D8 0000000000000000           10109+UCBW99   DC    15D'0' WORK AREA                 20201
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  216


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                  10110          AGO   .WK61   TO NEXT WORK AREA
                                  10111 .WK61 IECIUCBA 100,30502009,0,0,0,0,0,0
007450 0000000000000000           10112+UCBS100  DC    3D'0' SENSE AREA                20201
007468 0700000060000006           10113+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007470 1F00747560000001           10114+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007478 0800000000000000           10115+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007480 0000000000000000           10116+UCBW100  DC    15D'0' WORK AREA                 20201
                                  10117          AGO   .WK62   TO NEXT WORK AREA
                                  10118 .WK62 IECIUCBA 101,30502009,0,0,0,0,0,0
0074F8 0000000000000000           10119+UCBS101  DC    3D'0' SENSE AREA                20201
007510 0700000060000006           10120+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007518 1F00751D60000001           10121+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007520 0800000000000000           10122+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007528 0000000000000000           10123+UCBW101  DC    15D'0' WORK AREA                 20201
                                  10124          AGO   .WK63   TO NEXT WORK AREA
                                  10125 .WK63 IECIUCBA 102,30502009,0,0,0,0,0,0
0075A0 0000000000000000           10126+UCBS102  DC    3D'0' SENSE AREA                20201
0075B8 0700000060000006           10127+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
0075C0 1F0075C560000001           10128+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
0075C8 0800000000000000           10129+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
0075D0 0000000000000000           10130+UCBW102  DC    15D'0' WORK AREA                 20201
                                  10131          AGO   .WK64   TO NEXT WORK AREA
                                  10132 .WK64 IECIUCBA 103,30502009,0,0,0,0,0,0
007648 0000000000000000           10133+UCBS103  DC    3D'0' SENSE AREA                20201
007660 0700000060000006           10134+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007668 1F00766D60000001           10135+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007670 0800000000000000           10136+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007678 0000000000000000           10137+UCBW103  DC    15D'0' WORK AREA                 20201
                                  10138          AGO   .WK65   TO NEXT WORK AREA
                                  10139 .WK65 IECIUCBA 104,30502009,0,0,0,0,0,0
0076F0 0000000000000000           10140+UCBS104  DC    3D'0' SENSE AREA                20201
007708 0700000060000006           10141+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007710 1F00771560000001           10142+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007718 0800000000000000           10143+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007720 0000000000000000           10144+UCBW104  DC    15D'0' WORK AREA                 20201
                                  10145          AGO   .WK66   TO NEXT WORK AREA
                                  10146 .WK66 IECIUCBA 105,30502009,0,0,0,0,0,0
007798 0000000000000000           10147+UCBS105  DC    3D'0' SENSE AREA                20201
0077B0 0700000060000006           10148+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
0077B8 1F0077BD60000001           10149+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
0077C0 0800000000000000           10150+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
0077C8 0000000000000000           10151+UCBW105  DC    15D'0' WORK AREA                 20201
                                  10152          AGO   .WK67   TO NEXT WORK AREA
                                  10153 .WK67 IECIUCBA 106,30502009,0,0,0,0,0,0
007840 0000000000000000           10154+UCBS106  DC    3D'0' SENSE AREA                20201
007858 0700000060000006           10155+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007860 1F00786560000001           10156+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007868 0800000000000000           10157+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007870 0000000000000000           10158+UCBW106  DC    15D'0' WORK AREA                 20201
                                  10159          AGO   .WK68   TO NEXT WORK AREA
                                  10160 .WK68 IECIUCBA 107,10800808,0,0,0,0,0,0
0078E8 0000000000000000           10161+UCBW107  DC    D'0' ERP WORK AREA             19017
                                  10162          AGO   .WK69   TO NEXT WORK AREA
                                  10163 .WK69 IECIUCBA 108,10800808,0,0,0,0,0,0
0078F0 0000000000000000           10164+UCBW108  DC    D'0' ERP WORK AREA             19017
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  217


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                  10165          AGO   .WK70   TO NEXT WORK AREA
                                  10166 .WK70 IECIUCBA 109,30C02008,0,0,0,0,0,0
0078F8 0000000000000000           10167+UCBW109  DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10168          AGO   .WK71   TO NEXT WORK AREA
                                  10169 .WK71 IECIUCBA 110,30C02008,0,0,0,0,0,0
007948 0000000000000000           10170+UCBW110  DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10171          AGO   .WK72   TO NEXT WORK AREA
                                  10172 .WK72 IECIUCBA 111,30C02008,0,0,0,0,0,0
007998 0000000000000000           10173+UCBW111  DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10174          AGO   .WK73   TO NEXT WORK AREA
                                  10175 .WK73 IECIUCBA 112,30C02008,0,0,0,0,0,0
0079E8 0000000000000000           10176+UCBW112  DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10177          AGO   .WK74   TO NEXT WORK AREA
                                  10178 .WK74 IECIUCBA 113,30C02008,0,0,0,0,0,0
007A38 0000000000000000           10179+UCBW113  DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10180          AGO   .WK75   TO NEXT WORK AREA
                                  10181 .WK75 IECIUCBA 114,30C02008,0,0,0,0,0,0
007A88 0000000000000000           10182+UCBW114  DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10183          AGO   .WK76   TO NEXT WORK AREA
                                  10184 .WK76 IECIUCBA 115,30C02008,0,0,0,0,0,0
007AD8 0000000000000000           10185+UCBW115  DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10186          AGO   .WK77   TO NEXT WORK AREA
                                  10187 .WK77 IECIUCBA 116,30C02008,0,0,0,0,0,0
007B28 0000000000000000           10188+UCBW116  DC    5D'0',10F'0' ERP WORK AREA WITH TRK OVFLOW
                                  10189          AGO   .WK78   TO NEXT WORK AREA
                                  10190 .WK78 IECIUCBA 117,30502009,0,0,0,0,0,0
007B78 0000000000000000           10191+UCBS117  DC    3D'0' SENSE AREA                20201
007B90 0700000060000006           10192+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007B98 1F007B9D60000001           10193+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007BA0 0800000000000000           10194+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007BA8 0000000000000000           10195+UCBW117  DC    15D'0' WORK AREA                 20201
                                  10196          AGO   .WK79   TO NEXT WORK AREA
                                  10197 .WK79 IECIUCBA 118,30502009,0,0,0,0,0,0
007C20 0000000000000000           10198+UCBS118  DC    3D'0' SENSE AREA                20201
007C38 0700000060000006           10199+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007C40 1F007C4560000001           10200+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007C48 0800000000000000           10201+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007C50 0000000000000000           10202+UCBW118  DC    15D'0' WORK AREA                 20201
                                  10203          AGO   .WK80   TO NEXT WORK AREA
                                  10204 .WK80 IECIUCBA 119,30502009,0,0,0,0,0,0
007CC8 0000000000000000           10205+UCBS119  DC    3D'0' SENSE AREA                20201
007CE0 0700000060000006           10206+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007CE8 1F007CED60000001           10207+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007CF0 0800000000000000           10208+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007CF8 0000000000000000           10209+UCBW119  DC    15D'0' WORK AREA                 20201
                                  10210          AGO   .WK81   TO NEXT WORK AREA
                                  10211 .WK81 IECIUCBA 120,30502009,0,0,0,0,0,0
007D70 0000000000000000           10212+UCBS120  DC    3D'0' SENSE AREA                20201
007D88 0700000060000006           10213+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007D90 1F007D9560000001           10214+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007D98 0800000000000000           10215+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007DA0 0000000000000000           10216+UCBW120  DC    15D'0' WORK AREA                 20201
                                  10217          AGO   .WK82   TO NEXT WORK AREA
                                  10218 .WK82 IECIUCBA 121,30502009,0,0,0,0,0,0
007E18 0000000000000000           10219+UCBS121  DC    3D'0' SENSE AREA                20201
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  218


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

007E30 0700000060000006           10220+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007E38 1F007E3D60000001           10221+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007E40 0800000000000000           10222+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007E48 0000000000000000           10223+UCBW121  DC    15D'0' WORK AREA                 20201
                                  10224          AGO   .WK83   TO NEXT WORK AREA
                                  10225 .WK83 IECIUCBA 122,30502009,0,0,0,0,0,0
007EC0 0000000000000000           10226+UCBS122  DC    3D'0' SENSE AREA                20201
007ED8 0700000060000006           10227+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007EE0 1F007EE560000001           10228+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007EE8 0800000000000000           10229+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007EF0 0000000000000000           10230+UCBW122  DC    15D'0' WORK AREA                 20201
                                  10231          AGO   .WK84   TO NEXT WORK AREA
                                  10232 .WK84 IECIUCBA 123,30502009,0,0,0,0,0,0
007F68 0000000000000000           10233+UCBS123  DC    3D'0' SENSE AREA                20201
007F80 0700000060000006           10234+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
007F88 1F007F8D60000001           10235+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
007F90 0800000000000000           10236+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
007F98 0000000000000000           10237+UCBW123  DC    15D'0' WORK AREA                 20201
                                  10238          AGO   .WK85   TO NEXT WORK AREA
                                  10239 .WK85 IECIUCBA 124,30502009,0,0,0,0,0,0
008010 0000000000000000           10240+UCBS124  DC    3D'0' SENSE AREA                20201
008028 0700000060000006           10241+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
008030 1F00803560000001           10242+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
008038 0800000000000000           10243+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
008040 0000000000000000           10244+UCBW124  DC    15D'0' WORK AREA                 20201
                                  10245          AGO   .WK86   TO NEXT WORK AREA
                                  10246 .WK86 IECIUCBA 125,30502009,0,0,0,0,0,0
0080B8 0000000000000000           10247+UCBS125  DC    3D'0' SENSE AREA                20201
0080D0 0700000060000006           10248+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
0080D8 1F0080DD60000001           10249+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
0080E0 0800000000000000           10250+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
0080E8 0000000000000000           10251+UCBW125  DC    15D'0' WORK AREA                 20201
                                  10252          AGO   .WK87   TO NEXT WORK AREA
                                  10253 .WK87 IECIUCBA 126,30502009,0,0,0,0,0,0
008160 0000000000000000           10254+UCBS126  DC    3D'0' SENSE AREA                20201
008178 0700000060000006           10255+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
008180 1F00818560000001           10256+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
008188 0800000000000000           10257+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
008190 0000000000000000           10258+UCBW126  DC    15D'0' WORK AREA                 20201
                                  10259          AGO   .WK88   TO NEXT WORK AREA
                                  10260 .WK88 IECIUCBA 127,30502009,0,0,0,0,0,0
008208 0000000000000000           10261+UCBS127  DC    3D'0' SENSE AREA                20201
008220 0700000060000006           10262+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
008228 1F00822D60000001           10263+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
008230 0800000000000000           10264+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
008238 0000000000000000           10265+UCBW127  DC    15D'0' WORK AREA                 20201
                                  10266          AGO   .WK89   TO NEXT WORK AREA
                                  10267 .WK89 IECIUCBA 128,30502009,0,0,0,0,0,0
0082B0 0000000000000000           10268+UCBS128  DC    3D'0' SENSE AREA                20201
0082C8 0700000060000006           10269+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
0082D0 1F0082D560000001           10270+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
0082D8 0800000000000000           10271+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
0082E0 0000000000000000           10272+UCBW128  DC    15D'0' WORK AREA                 20201
                                  10273          AGO   .WK90   TO NEXT WORK AREA
                                  10274 .WK90 IECIUCBA 129,30502009,0,0,0,0,0,0
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  219


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

008358 0000000000000000           10275+UCBS129  DC    3D'0' SENSE AREA                20201
008370 0700000060000006           10276+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
008378 1F00837D60000001           10277+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
008380 0800000000000000           10278+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
008388 0000000000000000           10279+UCBW129  DC    15D'0' WORK AREA                 20201
                                  10280          AGO   .WK91   TO NEXT WORK AREA
                                  10281 .WK91 IECIUCBA 130,30502009,0,0,0,0,0,0
008400 0000000000000000           10282+UCBS130  DC    3D'0' SENSE AREA                20201
008418 0700000060000006           10283+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
008420 1F00842560000001           10284+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
008428 0800000000000000           10285+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
008430 0000000000000000           10286+UCBW130  DC    15D'0' WORK AREA                 20201
                                  10287          AGO   .WK92   TO NEXT WORK AREA
                                  10288 .WK92 IECIUCBA 131,30502009,0,0,0,0,0,0
0084A8 0000000000000000           10289+UCBS131  DC    3D'0' SENSE AREA                20201
0084C0 0700000060000006           10290+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
0084C8 1F0084CD60000001           10291+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
0084D0 0800000000000000           10292+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
0084D8 0000000000000000           10293+UCBW131  DC    15D'0' WORK AREA                 20201
                                  10294          AGO   .WK93   TO NEXT WORK AREA
                                  10295 .WK93 IECIUCBA 132,30502009,0,0,0,0,0,0
008550 0000000000000000           10296+UCBS132  DC    3D'0' SENSE AREA                20201
008568 0700000060000006           10297+         CCW   X'07',0,X'60',6 3330 SEEK                 20201
008570 1F00857560000001           10298+         CCW   X'1F',*+5,X'60',1 3330 SET FILE MASK        20201
008578 0800000000000000           10299+         CCW   X'08',0,X'00',0 3330 TIC TO USER CH PROG  20201
008580 0000000000000000           10300+UCBW132  DC    15D'0' WORK AREA                 20201
                                  10301          AGO   .WK94   TO NEXT WORK AREA
                                  10302 .WK94 IECIUCBA 141,32108003,0,0,0,0,0,0
0085F8 0000000000000000           10303+UCBS141  DC    3D'0' 3420 SENSE AREA         21048
008610 0000000000000000           10304+UCBW141  DC    D'0' ROR WORK AREA             19023
008618 0000000000000000           10305+         DC    2D'0' 34XX WORK AREA           21048
                                  10306          AGO   .WK95   TO NEXT WORK AREA
                                  10307 .WK95 IECIUCBA 142,32108003,0,0,0,0,0,0
008628 0000000000000000           10308+UCBS142  DC    3D'0' 3420 SENSE AREA         21048
008640 0000000000000000           10309+UCBW142  DC    D'0' ROR WORK AREA             19023
008648 0000000000000000           10310+         DC    2D'0' 34XX WORK AREA           21048
                                  10311          AGO   .WK96   TO NEXT WORK AREA
                                  10312 .WK96 IECIUCBA 143,32108003,0,0,0,0,0,0
008658 0000000000000000           10313+UCBS143  DC    3D'0' 3420 SENSE AREA         21048
008670 0000000000000000           10314+UCBW143  DC    D'0' ROR WORK AREA             19023
008678 0000000000000000           10315+         DC    2D'0' 34XX WORK AREA           21048
                                  10316          AGO   .WK97   TO NEXT WORK AREA
                                  10317 .WK97 IECIUCBA 144,32108003,0,0,0,0,0,0
008688 0000000000000000           10318+UCBS144  DC    3D'0' 3420 SENSE AREA         21048
0086A0 0000000000000000           10319+UCBW144  DC    D'0' ROR WORK AREA             19023
0086A8 0000000000000000           10320+         DC    2D'0' 34XX WORK AREA           21048
                                  10321          AGO   .WK98   TO NEXT WORK AREA
                                  10322 .WK98 IECIUCBA 145,32108003,0,0,0,0,0,0
0086B8 0000000000000000           10323+UCBS145  DC    3D'0' 3420 SENSE AREA         21048
0086D0 0000000000000000           10324+UCBW145  DC    D'0' ROR WORK AREA             19023
0086D8 0000000000000000           10325+         DC    2D'0' 34XX WORK AREA           21048
                                  10326          AGO   .WK99   TO NEXT WORK AREA
                                  10327 .WK99 IECIUCBA 146,32108003,0,0,0,0,0,0
0086E8 0000000000000000           10328+UCBS146  DC    3D'0' 3420 SENSE AREA         21048
008700 0000000000000000           10329+UCBW146  DC    D'0' ROR WORK AREA             19023
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  220


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

008708 0000000000000000           10330+         DC    2D'0' 34XX WORK AREA           21048
                                  10331          AGO   .WK100   TO NEXT WORK AREA
                                  10332 .WK100 IECIUCBA 147,32108003,0,0,0,0,0,0
008718 0000000000000000           10333+UCBS147  DC    3D'0' 3420 SENSE AREA         21048
008730 0000000000000000           10334+UCBW147  DC    D'0' ROR WORK AREA             19023
008738 0000000000000000           10335+         DC    2D'0' 34XX WORK AREA           21048
                                  10336          AGO   .WK101   TO NEXT WORK AREA
                                  10337 .WK101 IECIUCBA 148,32108003,0,0,0,0,0,0
008748 0000000000000000           10338+UCBS148  DC    3D'0' 3420 SENSE AREA         21048
008760 0000000000000000           10339+UCBW148  DC    D'0' ROR WORK AREA             19023
008768 0000000000000000           10340+         DC    2D'0' 34XX WORK AREA           21048
                                  10341          AGO   .WK102   TO NEXT WORK AREA
                                  10342 .WK102 IECIUCBA 149,32108003,0,0,0,0,0,0
008778 0000000000000000           10343+UCBS149  DC    3D'0' 3420 SENSE AREA         21048
008790 0000000000000000           10344+UCBW149  DC    D'0' ROR WORK AREA             19023
008798 0000000000000000           10345+         DC    2D'0' 34XX WORK AREA           21048
                                  10346          AGO   .WK103   TO NEXT WORK AREA
                                  10347 .WK103 IECIUCBA 150,32108003,0,0,0,0,0,0
0087A8 0000000000000000           10348+UCBS150  DC    3D'0' 3420 SENSE AREA         21048
0087C0 0000000000000000           10349+UCBW150  DC    D'0' ROR WORK AREA             19023
0087C8 0000000000000000           10350+         DC    2D'0' 34XX WORK AREA           21048
                                  10351          AGO   .WK104   TO NEXT WORK AREA
                                  10352 .WK104 IECIUCBA 151,32108003,0,0,0,0,0,0
0087D8 0000000000000000           10353+UCBS151  DC    3D'0' 3420 SENSE AREA         21048
0087F0 0000000000000000           10354+UCBW151  DC    D'0' ROR WORK AREA             19023
0087F8 0000000000000000           10355+         DC    2D'0' 34XX WORK AREA           21048
                                  10356          AGO   .WK105   TO NEXT WORK AREA
                                  10357 .WK105 IECIUCBA 152,32108003,0,0,0,0,0,0
008808 0000000000000000           10358+UCBS152  DC    3D'0' 3420 SENSE AREA         21048
008820 0000000000000000           10359+UCBW152  DC    D'0' ROR WORK AREA             19023
008828 0000000000000000           10360+         DC    2D'0' 34XX WORK AREA           21048
                                  10361          AGO   .WK106   TO NEXT WORK AREA
                                  10362 .WK106 IECIUCBA 153,32108003,0,0,0,0,0,0
008838 0000000000000000           10363+UCBS153  DC    3D'0' 3420 SENSE AREA         21048
008850 0000000000000000           10364+UCBW153  DC    D'0' ROR WORK AREA             19023
008858 0000000000000000           10365+         DC    2D'0' 34XX WORK AREA           21048
                                  10366          AGO   .WK107   TO NEXT WORK AREA
                                  10367 .WK107 IECIUCBA 154,32108003,0,0,0,0,0,0
008868 0000000000000000           10368+UCBS154  DC    3D'0' 3420 SENSE AREA         21048
008880 0000000000000000           10369+UCBW154  DC    D'0' ROR WORK AREA             19023
008888 0000000000000000           10370+         DC    2D'0' 34XX WORK AREA           21048
                                  10371          AGO   .WK108   TO NEXT WORK AREA
                                  10372 .WK108 IECIUCBA 155,32108003,0,0,0,0,0,0
008898 0000000000000000           10373+UCBS155  DC    3D'0' 3420 SENSE AREA         21048
0088B0 0000000000000000           10374+UCBW155  DC    D'0' ROR WORK AREA             19023
0088B8 0000000000000000           10375+         DC    2D'0' 34XX WORK AREA           21048
                                  10376          AGO   .WK109   TO NEXT WORK AREA
                                  10377 .WK109 IECIUCBA 156,32108003,0,0,0,0,0,0
0088C8 0000000000000000           10378+UCBS156  DC    3D'0' 3420 SENSE AREA         21048
0088E0 0000000000000000           10379+UCBW156  DC    D'0' ROR WORK AREA             19023
0088E8 0000000000000000           10380+         DC    2D'0' 34XX WORK AREA           21048
                                  10381          AGO   .WK110   TO NEXT WORK AREA
                                  10382 .WK110 IECIUCBA 157,30048001,0,0,0,0,0,0
0088F8 0000000000000000           10383+UCBW157  DC    D'0' ROR WORK AREA             19023
                                  10384          AGO   .WK111   TO NEXT WORK AREA
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  221


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                  10385 .WK111 IECIUCBA 158,30048001,0,0,0,0,0,0
008900 0000000000000000           10386+UCBW158  DC    D'0' ROR WORK AREA             19023
                                  10387          AGO   .WK112   TO NEXT WORK AREA
                                  10388 .WK112 IECIUCBA 159,30048001,0,0,0,0,0,0
008908 0000000000000000           10389+UCBW159  DC    D'0' ROR WORK AREA             19023
                                  10390          AGO   .WK113   TO NEXT WORK AREA
                                  10391 .WK113 IECIUCBA 160,30048001,0,0,0,0,0,0
008910 0000000000000000           10392+UCBW160  DC    D'0' ROR WORK AREA             19023
                                  10393          AGO   .WK114   TO NEXT WORK AREA
                                  10394 .WK114 IECIUCBA 161,30048001,0,0,0,0,0,0
008918 0000000000000000           10395+UCBW161  DC    D'0' ROR WORK AREA             19023
                                  10396          AGO   .WK115   TO NEXT WORK AREA
                                  10397 .WK115 IECIUCBA 162,30048001,0,0,0,0,0,0
008920 0000000000000000           10398+UCBW162  DC    D'0' ROR WORK AREA             19023
                                  10399          AGO   .WK116   TO NEXT WORK AREA
                                  10400 .WK116 IECIUCBA 163,30048001,0,0,0,0,0,0
008928 0000000000000000           10401+UCBW163  DC    D'0' ROR WORK AREA             19023
                                  10402          AGO   .WK117   TO NEXT WORK AREA
                                  10403 .WK117 IECIUCBA 164,30048001,0,0,0,0,0,0
008930 0000000000000000           10404+UCBW164  DC    D'0' ROR WORK AREA             19023
                                  10405          AGO   .WK118   TO NEXT WORK AREA
                                  10406 .WK118 IECIUCBA 165,30048001,0,0,0,0,0,0
008938 0000000000000000           10407+UCBW165  DC    D'0' ROR WORK AREA             19023
                                  10408          AGO   .WK119   TO NEXT WORK AREA
                                  10409 .WK119 IECIUCBA 166,30048001,0,0,0,0,0,0
008940 0000000000000000           10410+UCBW166  DC    D'0' ROR WORK AREA             19023
                                  10411          AGO   .WK120   TO NEXT WORK AREA
                                  10412 .WK120 IECIUCBA 167,30048001,0,0,0,0,0,0
008948 0000000000000000           10413+UCBW167  DC    D'0' ROR WORK AREA             19023
                                  10414          AGO   .WK121   TO NEXT WORK AREA
                                  10415 .WK121 IECIUCBA 168,30048001,0,0,0,0,0,0
008950 0000000000000000           10416+UCBW168  DC    D'0' ROR WORK AREA             19023
                                  10417          AGO   .WK122   TO NEXT WORK AREA
                                  10418 .WK122 IECIUCBA 169,30048001,0,0,0,0,0,0
008958 0000000000000000           10419+UCBW169  DC    D'0' ROR WORK AREA             19023
                                  10420          AGO   .WK123   TO NEXT WORK AREA
                                  10421 .WK123 IECIUCBA 170,30048001,0,0,0,0,0,0
008960 0000000000000000           10422+UCBW170  DC    D'0' ROR WORK AREA             19023
                                  10423          AGO   .WK124   TO NEXT WORK AREA
                                  10424 .WK124 IECIUCBA 171,30048001,0,0,0,0,0,0
008968 0000000000000000           10425+UCBW171  DC    D'0' ROR WORK AREA             19023
                                  10426          AGO   .WK125   TO NEXT WORK AREA
                                  10427 .WK125 IECIUCBA 172,30048001,0,0,0,0,0,0
008970 0000000000000000           10428+UCBW172  DC    D'0' ROR WORK AREA             19023
                                  10429          AGO   .WK126   TO NEXT WORK AREA
                                  10430 .WK126 IECIUCBA 173,30048001,0,0,0,0,0,0
008978 0000000000000000           10431+UCBW173  DC    D'0' ROR WORK AREA             19023
                                  10432          AGO   .WK127   TO NEXT WORK AREA
                                  10433 .WK127 IECIUCBA 174,30048001,0,0,0,0,0,0
008980 0000000000000000           10434+UCBW174  DC    D'0' ROR WORK AREA             19023
                                  10435          AGO   .WK128   TO NEXT WORK AREA
                                  10436 .WK128 IECIUCBA 175,30048001,0,0,0,0,0,0
008988 0000000000000000           10437+UCBW175  DC    D'0' ROR WORK AREA             19023
                                  10438          AGO   .WK129   TO NEXT WORK AREA
                                  10439 .WK129 IECIUCBA 176,30048001,0,0,0,0,0,0
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  222


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

008990 0000000000000000           10440+UCBW176  DC    D'0' ROR WORK AREA             19023
                                  10441          AGO   .WK130   TO NEXT WORK AREA
                                  10442 .WK130 IECIUCBA 177,30048001,0,0,0,0,0,0
008998 0000000000000000           10443+UCBW177  DC    D'0' ROR WORK AREA             19023
                                  10444          AGO   .WK131   TO NEXT WORK AREA
                                  10445 .WK131 IECIUCBA 178,30048001,0,0,0,0,0,0
0089A0 0000000000000000           10446+UCBW178  DC    D'0' ROR WORK AREA             19023
                                  10447          AGO   .WK132   TO NEXT WORK AREA
                                  10448 .WK132 IECIUCBA 179,30048001,0,0,0,0,0,0
0089A8 0000000000000000           10449+UCBW179  DC    D'0' ROR WORK AREA             19023
                                  10450          AGO   .WK133   TO NEXT WORK AREA
                                  10451 .WK133 IECIUCBA 180,30048001,0,0,0,0,0,0
0089B0 0000000000000000           10452+UCBW180  DC    D'0' ROR WORK AREA             19023
                                  10453          AGO   .WK134   TO NEXT WORK AREA
                                  10454 .WK134 IECIUCBA 181,30048001,0,0,0,0,0,0
0089B8 0000000000000000           10455+UCBW181  DC    D'0' ROR WORK AREA             19023
                                  10456          AGO   .WK135   TO NEXT WORK AREA
                                  10457 .WK135 IECIUCBA 182,30048001,0,0,0,0,0,0
0089C0 0000000000000000           10458+UCBW182  DC    D'0' ROR WORK AREA             19023
                                  10459          AGO   .WK136   TO NEXT WORK AREA
                                  10460 .WK136 IECIUCBA 183,30048001,0,0,0,0,0,0
0089C8 0000000000000000           10461+UCBW183  DC    D'0' ROR WORK AREA             19023
                                  10462          AGO   .WK137   TO NEXT WORK AREA
                                  10463 .WK137 IECIUCBA 184,30048001,0,0,0,0,0,0
0089D0 0000000000000000           10464+UCBW184  DC    D'0' ROR WORK AREA             19023
                                  10465          AGO   .WK138   TO NEXT WORK AREA
                                  10466 .WK138 IECIUCBA 185,30048001,0,0,0,0,0,0
0089D8 0000000000000000           10467+UCBW185  DC    D'0' ROR WORK AREA             19023
                                  10468          AGO   .WK139   TO NEXT WORK AREA
                                  10469 .WK139 IECIUCBA 186,30048001,0,0,0,0,0,0
0089E0 0000000000000000           10470+UCBW186  DC    D'0' ROR WORK AREA             19023
                                  10471          AGO   .WK140   TO NEXT WORK AREA
                                  10472 .WK140 IECIUCBA 187,30048001,0,0,0,0,0,0
0089E8 0000000000000000           10473+UCBW187  DC    D'0' ROR WORK AREA             19023
                                  10474          AGO   .WK141   TO NEXT WORK AREA
                                  10475 .WK141 IECIUCBA 188,30048001,0,0,0,0,0,0
0089F0 0000000000000000           10476+UCBW188  DC    D'0' ROR WORK AREA             19023
                                  10477          AGO   .WK142   TO NEXT WORK AREA
                                  10478 .WK142 IECIUCBA 189,30048001,0,0,0,0,0,0
0089F8 0000000000000000           10479+UCBW189  DC    D'0' ROR WORK AREA             19023
                                  10480          AGO   .WK143   TO NEXT WORK AREA
                                  10481 .WK143 IECIUCBA 190,30048001,0,0,0,0,0,0
008A00 0000000000000000           10482+UCBW190  DC    D'0' ROR WORK AREA             19023
                                  10483          AGO   .WK144   TO NEXT WORK AREA
                                  10484 .WK144 IECIUCBA 191,30048001,0,0,0,0,0,0
008A08 0000000000000000           10485+UCBW191  DC    D'0' ROR WORK AREA             19023
                                  10486          AGO   .WK145   TO NEXT WORK AREA
                                  10487 .WK145 IECIUCBA 192,30048001,0,0,0,0,0,0
008A10 0000000000000000           10488+UCBW192  DC    D'0' ROR WORK AREA             19023
                                  10489          AGO   .WK146   TO NEXT WORK AREA
                                  10490 .WK146 IECIUCBA 193,30048001,0,0,0,0,0,0
008A18 0000000000000000           10491+UCBW193  DC    D'0' ROR WORK AREA             19023
                                  10492          AGO   .WK147   TO NEXT WORK AREA
                                  10493 .WK147 IECIUCBA 194,30048001,0,0,0,0,0,0
008A20 0000000000000000           10494+UCBW194  DC    D'0' ROR WORK AREA             19023
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  223


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                  10495          AGO   .WK148   TO NEXT WORK AREA
                                  10496 .WK148 IECIUCBA 195,30048001,0,0,0,0,0,0
008A28 0000000000000000           10497+UCBW195  DC    D'0' ROR WORK AREA             19023
                                  10498          AGO   .WK149   TO NEXT WORK AREA
                                  10499 .WK149 IECIUCBA 196,30048001,0,0,0,0,0,0
008A30 0000000000000000           10500+UCBW196  DC    D'0' ROR WORK AREA             19023
                                  10501          AGO   .WK150   TO NEXT WORK AREA
                                  10502 .WK150 IECIUCBA 197,30048001,0,0,0,0,0,0
008A38 0000000000000000           10503+UCBW197  DC    D'0' ROR WORK AREA             19023
                                  10504          AGO   .WK151   TO NEXT WORK AREA
                                  10505 .WK151 IECIUCBA 198,30048001,0,0,0,0,0,0
008A40 0000000000000000           10506+UCBW198  DC    D'0' ROR WORK AREA             19023
                                  10507          AGO   .WK152   TO NEXT WORK AREA
                                  10508 .WK152 IECIUCBA 199,30048001,0,0,0,0,0,0
008A48 0000000000000000           10509+UCBW199  DC    D'0' ROR WORK AREA             19023
                                  10510          AGO   .WK153   TO NEXT WORK AREA
                                  10511 .WK153 IECIUCBA 200,30048001,0,0,0,0,0,0
008A50 0000000000000000           10512+UCBW200  DC    D'0' ROR WORK AREA             19023
                                  10513          AGO   .WK154   TO NEXT WORK AREA
                                  10514 .WK154 IECIUCBA 201,30048001,0,0,0,0,0,0
008A58 0000000000000000           10515+UCBW201  DC    D'0' ROR WORK AREA             19023
                                  10516          AGO   .WK155   TO NEXT WORK AREA
                                  10517 .WK155 IECIUCBA 202,30048001,0,0,0,0,0,0
008A60 0000000000000000           10518+UCBW202  DC    D'0' ROR WORK AREA             19023
                                  10519          AGO   .WK156   TO NEXT WORK AREA
                                  10520 .WK156 IECIUCBA 203,30048001,0,0,0,0,0,0
008A68 0000000000000000           10521+UCBW203  DC    D'0' ROR WORK AREA             19023
                                  10522          AGO   .WK157   TO NEXT WORK AREA
                                  10523 .WK157 IECIUCBA 204,30048001,0,0,0,0,0,0
008A70 0000000000000000           10524+UCBW204  DC    D'0' ROR WORK AREA             19023
                                  10525          AGO   .WK158   TO NEXT WORK AREA
                                  10526 .WK158 IECIUCBA 205,30048001,0,0,0,0,0,0
008A78 0000000000000000           10527+UCBW205  DC    D'0' ROR WORK AREA             19023
                                  10528          AGO   .WK159   TO NEXT WORK AREA
                                  10529 .WK159 IECIUCBA 206,30048001,0,0,0,0,0,0
008A80 0000000000000000           10530+UCBW206  DC    D'0' ROR WORK AREA             19023
                                  10531          AGO   .WK160   TO NEXT WORK AREA
                                  10532 .WK160 IECIUCBA 207,30048001,0,0,0,0,0,0
008A88 0000000000000000           10533+UCBW207  DC    D'0' ROR WORK AREA             19023
                                  10534          AGO   .WK161   TO NEXT WORK AREA
                                  10535 .WK161 IECIUCBA 224,50000808,0,0,0,0,0,0
008A90 0000000000000000           10536+UCBW224  DC    D'0' ERP WORK AREA             19017
                                  10537          AGO   .WK162   TO NEXT WORK AREA
                                  10538 .WK162 IECIUCBA 225,50000808,0,0,0,0,0,0
008A98 0000000000000000           10539+UCBW225  DC    D'0' ERP WORK AREA             19017
                                  10540          AGO   .WK163   TO NEXT WORK AREA
                                  10541 .WK163 IECIUCBA 226,50000808,0,0,0,0,0,0
008AA0 0000000000000000           10542+UCBW226  DC    D'0' ERP WORK AREA             19017
                                  10543          AGO   .WK164   TO NEXT WORK AREA
                                  10544 .WK164 IECIUCBA 227,50000808,0,0,0,0,0,0
008AA8 0000000000000000           10545+UCBW227  DC    D'0' ERP WORK AREA             19017
                                  10546          AGO   .WK165   TO NEXT WORK AREA
                                  10547 .WK165 IECIUCBA 228,50000808,0,0,0,0,0,0
008AB0 0000000000000000           10548+UCBW228  DC    D'0' ERP WORK AREA             19017
                                  10549          AGO   .WK166   TO NEXT WORK AREA
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  224


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                  10550 .WK166 IECIUCBA 229,50000808,0,0,0,0,0,0
008AB8 0000000000000000           10551+UCBW229  DC    D'0' ERP WORK AREA             19017
                                  10552          AGO   .WK167   TO NEXT WORK AREA
                                  10553 .WK167 IECIUCBA 230,50000808,0,0,0,0,0,0
008AC0 0000000000000000           10554+UCBW230  DC    D'0' ERP WORK AREA             19017
                                  10555          AGO   .WK168   TO NEXT WORK AREA
                                  10556 .WK168 IECIUCBA 231,50000808,0,0,0,0,0,0
008AC8 0000000000000000           10557+UCBW231  DC    D'0' ERP WORK AREA             19017
                                  10558          AGO   .WK169   TO NEXT WORK AREA
                                  10559 .WK169 IECIUCBA 232,50000808,0,0,0,0,0,0
008AD0 0000000000000000           10560+UCBW232  DC    D'0' ERP WORK AREA             19017
                                  10561          AGO   .WK170   TO NEXT WORK AREA
                                  10562 .WK170 IECIUCBA 233,50000808,0,0,0,0,0,0
008AD8 0000000000000000           10563+UCBW233  DC    D'0' ERP WORK AREA             19017
                                  10564          AGO   .WK171   TO NEXT WORK AREA
                                  10565 .WK171 IECIUCBA 234,50000808,0,0,0,0,0,0
008AE0 0000000000000000           10566+UCBW234  DC    D'0' ERP WORK AREA             19017
                                  10567          AGO   .WK172   TO NEXT WORK AREA
                                  10568 .WK172 IECIUCBA 235,50000808,0,0,0,0,0,0
008AE8 0000000000000000           10569+UCBW235  DC    D'0' ERP WORK AREA             19017
                                  10570          AGO   .WK173   TO NEXT WORK AREA
                                  10571 .WK173 IECIUCBA 236,50000808,0,0,0,0,0,0
008AF0 0000000000000000           10572+UCBW236  DC    D'0' ERP WORK AREA             19017
                                  10573          AGO   .WK174   TO NEXT WORK AREA
                                  10574 .WK174 IECIUCBA 237,50000808,0,0,0,0,0,0
008AF8 0000000000000000           10575+UCBW237  DC    D'0' ERP WORK AREA             19017
                                  10576          AGO   .WK175   TO NEXT WORK AREA
                                  10577 .WK175 IECIUCBA 238,50000808,0,0,0,0,0,0
008B00 0000000000000000           10578+UCBW238  DC    D'0' ERP WORK AREA             19017
                                  10579          AGO   .WK176   TO NEXT WORK AREA
                                  10580 .WK176 IECIUCBA 239,50000808,0,0,0,0,0,0
008B08 0000000000000000           10581+UCBW239  DC    D'0' ERP WORK AREA             19017
                                  10582          AGO   .WK177   TO NEXT WORK AREA
                                  10583 .WK177 IECIUCBA 240,50000808,0,0,0,0,0,0
008B10 0000000000000000           10584+UCBW240  DC    D'0' ERP WORK AREA             19017
                                  10585          AGO   .WK178   TO NEXT WORK AREA
                                  10586 .WK178 IECIUCBA 241,50000808,0,0,0,0,0,0
008B18 0000000000000000           10587+UCBW241  DC    D'0' ERP WORK AREA             19017
                                  10588          AGO   .WK179   TO NEXT WORK AREA
                                  10589 .WK179 IECIUCBA 242,50000808,0,0,0,0,0,0
008B20 0000000000000000           10590+UCBW242  DC    D'0' ERP WORK AREA             19017
                                  10591          AGO   .WK180   TO NEXT WORK AREA
                                  10592 .WK180 IECIUCBA 243,50000808,0,0,0,0,0,0
008B28 0000000000000000           10593+UCBW243  DC    D'0' ERP WORK AREA             19017
                                  10594          AGO   .WK181   TO NEXT WORK AREA
                                  10595 .WK181 IECIUCBA 244,50000808,0,0,0,0,0,0
008B30 0000000000000000           10596+UCBW244  DC    D'0' ERP WORK AREA             19017
                                  10597          AGO   .WK182   TO NEXT WORK AREA
                                  10598 .WK182 IECIUCBA 245,50000808,0,0,0,0,0,0
008B38 0000000000000000           10599+UCBW245  DC    D'0' ERP WORK AREA             19017
                                  10600          AGO   .WK183   TO NEXT WORK AREA
                                  10601 .WK183 IECIUCBA 246,50000808,0,0,0,0,0,0
008B40 0000000000000000           10602+UCBW246  DC    D'0' ERP WORK AREA             19017
                                  10603          AGO   .WK184   TO NEXT WORK AREA
                                  10604 .WK184 IECIUCBA 247,50000808,0,0,0,0,0,0
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  225


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

008B48 0000000000000000           10605+UCBW247  DC    D'0' ERP WORK AREA             19017
                                  10606          AGO   .WK185   TO NEXT WORK AREA
                                  10607 .WK185 IECIUCBA 248,50000808,0,0,0,0,0,0
008B50 0000000000000000           10608+UCBW248  DC    D'0' ERP WORK AREA             19017
                                  10609          AGO   .WK186   TO NEXT WORK AREA
                                  10610 .WK186 IECIUCBA 249,50000808,0,0,0,0,0,0
008B58 0000000000000000           10611+UCBW249  DC    D'0' ERP WORK AREA             19017
                                  10612          AGO   .WK187   TO NEXT WORK AREA
                                  10613 .WK187 IECIUCBA 250,50000808,0,0,0,0,0,0
008B60 0000000000000000           10614+UCBW250  DC    D'0' ERP WORK AREA             19017
                                  10615          AGO   .WK188   TO NEXT WORK AREA
                                  10616 .WK188 IECIUCBA 251,50000808,0,0,0,0,0,0
008B68 0000000000000000           10617+UCBW251  DC    D'0' ERP WORK AREA             19017
                                  10618          AGO   .WK189   TO NEXT WORK AREA
                                  10619 .WK189 IECIUCBA 252,50000808,0,0,0,0,0,0
008B70 0000000000000000           10620+UCBW252  DC    D'0' ERP WORK AREA             19017
                                  10621          AGO   .WK190   TO NEXT WORK AREA
                                  10622 .WK190 IECIUCBA 253,50000808,0,0,0,0,0,0
008B78 0000000000000000           10623+UCBW253  DC    D'0' ERP WORK AREA             19017
                                  10624          AGO   .WK191   TO NEXT WORK AREA
                                  10625 .WK191 IECIUCBA 254,50000808,0,0,0,0,0,0
008B80 0000000000000000           10626+UCBW254  DC    D'0' ERP WORK AREA             19017
                                  10627          AGO   .WK192   TO NEXT WORK AREA
                                  10628 .WK192 IECIUCBA 255,50000808,0,0,0,0,0,0
008B88 0000000000000000           10629+UCBW255  DC    D'0' ERP WORK AREA             19017
                                  10630          AGO   .WK193   TO NEXT WORK AREA
                                  10631 .WK193 IECIUCBA 256,50000808,0,0,0,0,0,0
008B90 0000000000000000           10632+UCBW256  DC    D'0' ERP WORK AREA             19017
                                  10633          AGO   .WK194   TO NEXT WORK AREA
                                  10634 .WK194 IECIUCBA 257,50000808,0,0,0,0,0,0
008B98 0000000000000000           10635+UCBW257  DC    D'0' ERP WORK AREA             19017
                                  10636          AGO   .WK195   TO NEXT WORK AREA
                                  10637 .WK195 IECIUCBA 258,50000808,0,0,0,0,0,0
008BA0 0000000000000000           10638+UCBW258  DC    D'0' ERP WORK AREA             19017
                                  10639          AGO   .WK196   TO NEXT WORK AREA
                                  10640 .WK196 IECIUCBA 259,50000808,0,0,0,0,0,0
008BA8 0000000000000000           10641+UCBW259  DC    D'0' ERP WORK AREA             19017
                                  10642          AGO   .WK197   TO NEXT WORK AREA
                                  10643 .WK197 IECIUCBA 260,50000808,0,0,0,0,0,0
008BB0 0000000000000000           10644+UCBW260  DC    D'0' ERP WORK AREA             19017
                                  10645          AGO   .WK198   TO NEXT WORK AREA
                                  10646 .WK198 IECIUCBA 261,50000808,0,0,0,0,0,0
008BB8 0000000000000000           10647+UCBW261  DC    D'0' ERP WORK AREA             19017
                                  10648          AGO   .WK199   TO NEXT WORK AREA
                                  10649 .WK199 IECIUCBA 262,50000808,0,0,0,0,0,0
008BC0 0000000000000000           10650+UCBW262  DC    D'0' ERP WORK AREA             19017
                                  10651          AGO   .WK200   TO NEXT WORK AREA
                                  10652 .WK200 IECIUCBA 263,50000808,0,0,0,0,0,0
008BC8 0000000000000000           10653+UCBW263  DC    D'0' ERP WORK AREA             19017
                                  10654          AGO   .WK201   TO NEXT WORK AREA
                                  10655 .WK201 IECIUCBA 264,50000808,0,0,0,0,0,0
008BD0 0000000000000000           10656+UCBW264  DC    D'0' ERP WORK AREA             19017
                                  10657          AGO   .WK202   TO NEXT WORK AREA
                                  10658 .WK202 IECIUCBA 265,50000808,0,0,0,0,0,0
008BD8 0000000000000000           10659+UCBW265  DC    D'0' ERP WORK AREA             19017
       CONSTANTS USED IN IECIOSB - INPUT/OUTPUT SUPERVISOR                                                     PAGE  226


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                  10660          AGO   .WK203   TO NEXT WORK AREA
                                  10661 .WK203 IECIUCBA 266,50000808,0,0,0,0,0,0
008BE0 0000000000000000           10662+UCBW266  DC    D'0' ERP WORK AREA             19017
                                  10663          AGO   .WK204   TO NEXT WORK AREA
                                  10664 .WK204 IECIUCBA 267,50000808,0,0,0,0,0,0
008BE8 0000000000000000           10665+UCBW267  DC    D'0' ERP WORK AREA             19017
                                  10666          AGO   .WK205   TO NEXT WORK AREA
                                  10667 .WK205 IECIUCBA 268,50000808,0,0,0,0,0,0
008BF0 0000000000000000           10668+UCBW268  DC    D'0' ERP WORK AREA             19017
                                  10669          AGO   .WK206   TO NEXT WORK AREA
                                  10670 .WK206 IECIUCBA 269,50000808,0,0,0,0,0,0
008BF8 0000000000000000           10671+UCBW269  DC    D'0' ERP WORK AREA             19017
                                  10672          AGO   .WK207   TO NEXT WORK AREA
                                  10673 .WK207 IECIUCBA 270,50000808,0,0,0,0,0,0
008C00 0000000000000000           10674+UCBW270  DC    D'0' ERP WORK AREA             19017
                                  10675          AGO   .WK208   TO NEXT WORK AREA
                                  10676 .WK208 IECIUCBA 271,50000808,0,0,0,0,0,0
008C08 0000000000000000           10677+UCBW271  DC    D'0' ERP WORK AREA             19017
                                  10678          AGO   .WK209   TO NEXT WORK AREA
                                  10679 .WK209 ANOP    LAST WORK ENTRY
                                  10680          AGO   .UCBEND  TO STATISTICS
                                  10681 .UCBEND  ANOP
                                  10682  IECIST 331,(228,0,0,0,0),2
                                  10683+**    STATISTICS TABLE
008C10                            10684+IECSTB   DS    0C
008C10 2D60                       10685+         DC    Y(UCB228-IPLPSW) P256
008C12 7FFF                       10686+         DC    X'7FFF' END OF TABLE               P256
008C14 000000000000               10687+         DC    XL6'0' NORMAL FILL                P256
008C1A 0000000000000000           10688+         DC    331XL10'0' S248
                                  10689          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      08     000209
   01       01      08     00020B
   01       01      08     00020D
   01       01      08     000211
   01       01      08     000215
   01       01      0C     0002E0
   01       01      08     00032D
   01       01      0C     000330
   01       01      08     00034D
   01       01      0C     000350
   01       01      0C     0003E4
   01       01      0C     000400
   01       01      08     00079D
   01       01      0C     0007A0
   01       01      08     0007BD
   01       01      0C     0007C0
   01       01      08     00080D
   01       01      0C     000810
   01       01      08     00082D
   01       01      0C     000830
   01       01      0C     0008A0
   01       01      0C     0008E0
   01       01      0C     000920
   01       01      0C     000960
   01       01      0C     0009A0
   01       01      0C     0009E0
   01       01      0C     000A20
   01       01      0C     000A60
   01       01      0C     000AA0
   01       01      0C     000AE0
   01       01      0C     000B20
   01       01      0C     000B60
   01       01      0C     000BA0
   01       01      0C     000BE0
   01       01      0C     000C20
   01       01      0C     000C60
   01       01      08     000C7D
   01       01      0C     000CA0
   01       01      08     000CBD
   01       01      0C     000CE0
   01       01      08     000CFD
   01       01      0C     000D20
   01       01      08     000D3D
   01       01      0C     000D60
   01       01      08     000D7D
   01       01      0C     000DA0
   01       01      08     000DBD
   01       01      0C     000DE0
   01       01      08     000DFD
   01       01      0C     000E20
   01       01      08     000E3D
   01       01      0C     000E60
   01       01      08     000E7D
   01       01      0C     000EA0
   01       01      08     000EBD
                                                 RELOCATION DICTIONARY                                          PAGE   2


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000EE0
   01       01      08     000EFD
   01       01      0C     000F20
   01       01      08     000F3D
   01       01      0C     000F60
   01       01      08     000F7D
   01       01      0C     000FA0
   01       01      08     000FBD
   01       01      0C     000FE0
   01       01      08     000FFD
   01       01      0C     001020
   01       01      08     00103D
   01       01      0C     001060
   01       01      0C     0010A0
   01       01      0C     0010E0
   01       01      0C     001120
   01       01      0C     001160
   01       01      0C     0011A0
   01       01      0C     0011E0
   01       01      0C     001220
   01       01      0C     001260
   01       01      08     00127D
   01       01      0C     0012A0
   01       01      08     0012BD
   01       01      0C     0012E0
   01       01      08     0012FD
   01       01      0C     001320
   01       01      08     00133D
   01       01      0C     001360
   01       01      08     00137D
   01       01      0C     0013A0
   01       01      08     0013BD
   01       01      0C     0013E0
   01       01      08     0013FD
   01       01      0C     001420
   01       01      08     00143D
   01       01      0C     001460
   01       01      08     00147D
   01       01      0C     0014A0
   01       01      08     0014BD
   01       01      0C     0014E0
   01       01      08     0014FD
   01       01      0C     001520
   01       01      08     00153D
   01       01      0C     001560
   01       01      08     00157D
   01       01      0C     0015A0
   01       01      08     0015BD
   01       01      0C     0015E0
   01       01      08     0015FD
   01       01      0C     001620
   01       01      08     00163D
   01       01      0C     001660
   01       01      08     00167D
   01       01      0C     001680
                                                 RELOCATION DICTIONARY                                          PAGE   3


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      08     00169D
   01       01      0C     0016A0
   01       01      0C     0016E0
   01       01      0C     001720
   01       01      0C     001760
   01       01      0C     0017A0
   01       01      0C     0017E0
   01       01      0C     001820
   01       01      0C     001860
   01       01      0C     0018A0
   01       01      08     0018BD
   01       01      0C     0018E0
   01       01      08     0018FD
   01       01      0C     001920
   01       01      08     00193D
   01       01      0C     001960
   01       01      08     00197D
   01       01      0C     0019A0
   01       01      08     0019BD
   01       01      0C     0019E0
   01       01      08     0019FD
   01       01      0C     001A20
   01       01      08     001A3D
   01       01      0C     001A60
   01       01      08     001A7D
   01       01      0C     001AA0
   01       01      08     001ABD
   01       01      0C     001AE0
   01       01      08     001AFD
   01       01      0C     001B20
   01       01      08     001B3D
   01       01      0C     001B60
   01       01      08     001B7D
   01       01      0C     001BA0
   01       01      08     001BBD
   01       01      0C     001BE0
   01       01      08     001BFD
   01       01      0C     001C20
   01       01      08     001C3D
   01       01      0C     001C60
   01       01      08     001C7D
   01       01      0C     001CA0
   01       01      08     001DFD
   01       01      08     001E15
   01       01      08     001E31
   01       01      08     001E49
   01       01      08     001E65
   01       01      08     001E7D
   01       01      08     001E99
   01       01      08     001EB1
   01       01      08     001ECD
   01       01      08     001EE5
   01       01      08     001F01
   01       01      08     001F19
   01       01      08     001F35
                                                 RELOCATION DICTIONARY                                          PAGE   4


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      08     001F4D
   01       01      08     001F69
   01       01      08     001F81
   01       01      08     001F9D
   01       01      08     001FB5
   01       01      08     001FD1
   01       01      08     001FE9
   01       01      08     002005
   01       01      08     00201D
   01       01      08     002039
   01       01      08     002051
   01       01      08     00206D
   01       01      08     002085
   01       01      08     0020A1
   01       01      08     0020B9
   01       01      08     0020D5
   01       01      08     0020ED
   01       01      08     002109
   01       01      08     002121
   01       01      08     002155
   01       01      08     002189
   01       01      08     0021BD
   01       01      08     0021F1
   01       01      08     002225
   01       01      08     002259
   01       01      08     00228D
   01       01      08     0022C1
   01       01      08     0022F5
   01       01      08     002329
   01       01      08     00235D
   01       01      08     002391
   01       01      08     0023C5
   01       01      08     0023F9
   01       01      08     00242D
   01       01      08     002461
   01       01      08     002495
   01       01      08     0024C9
   01       01      08     0024FD
   01       01      08     002531
   01       01      08     002565
   01       01      08     002599
   01       01      08     0025CD
   01       01      08     002601
   01       01      08     002635
   01       01      08     002669
   01       01      08     00269D
   01       01      08     0026D1
   01       01      08     002705
   01       01      08     002739
   01       01      08     00276D
   01       01      08     0027A1
   01       01      08     0027D5
   01       01      08     002809
   01       01      08     00283D
   01       01      08     002871
                                                 RELOCATION DICTIONARY                                          PAGE   5


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      08     0028A5
   01       01      08     0028D9
   01       01      08     00290D
   01       01      08     002941
   01       01      08     002975
   01       01      08     0029A9
   01       01      08     0029DD
   01       01      08     002A11
   01       01      08     002A45
   01       01      08     002A79
   01       01      08     002AAD
   01       01      08     002AE1
   01       01      08     002B15
   01       01      08     002B49
   01       01      08     002B7D
   01       01      0C     0046F0
   01       01      08     0046F9
   01       01      08     004701
   01       01      0C     004704
   01       01      0C     004718
   01       01      0C     00471C
   01       01      0C     004720
   01       01      0C     004724
   01       01      0C     004734
   01       01      08     00475D
   01       01      0C     004770
   01       01      0C     004774
   01       01      0C     004778
   01       01      0C     00477C
   01       01      0C     004780
   01       01      0C     004784
   01       01      0C     004788
   01       01      0C     00478C
   01       01      0C     004790
   01       01      0C     004794
   01       01      0C     004798
   01       01      0C     00479C
   01       01      0C     0047A0
   01       01      0C     0047F8
   01       01      0C     00489C
   01       01      0C     0048A4
   01       01      0C     0048F0
   01       01      08     004AE9
   01       01      08     004AF9
   01       01      0C     005172
   01       01      08     005201
   01       01      08     005219
   01       01      08     005231
   01       01      08     005249
   01       01      08     005261
   01       01      0C     0054DC
   01       01      0C     0058C8
   01       01      08     005BF1
   01       01      0C     005CD0
   01       01      08     005CD5
                                                 RELOCATION DICTIONARY                                          PAGE   6


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     005CE0
   01       01      0C     005CE8
   01       01      0C     005CEC
   01       01      0C     005CF0
   01       01      0C     005D20
   01       01      0C     005D24
   01       01      08     006189
   01       01      08     006231
   01       01      08     0062D9
   01       01      08     006381
   01       01      08     006429
   01       01      08     0064D1
   01       01      08     006579
   01       01      08     006621
   01       01      08     0066C9
   01       01      08     006771
   01       01      08     006819
   01       01      08     0068C1
   01       01      08     006969
   01       01      08     006A11
   01       01      08     006AB9
   01       01      08     006B61
   01       01      08     006E89
   01       01      08     006F31
   01       01      08     006FD9
   01       01      08     007081
   01       01      08     007129
   01       01      08     0071D1
   01       01      08     007279
   01       01      08     007321
   01       01      08     0073C9
   01       01      08     007471
   01       01      08     007519
   01       01      08     0075C1
   01       01      08     007669
   01       01      08     007711
   01       01      08     0077B9
   01       01      08     007861
   01       01      08     007B99
   01       01      08     007C41
   01       01      08     007CE9
   01       01      08     007D91
   01       01      08     007E39
   01       01      08     007EE1
   01       01      08     007F89
   01       01      08     008031
   01       01      08     0080D9
   01       01      08     008181
   01       01      08     008229
   01       01      08     0082D1
   01       01      08     008379
   01       01      08     008421
   01       01      08     0084C9
   01       01      08     008571
   01       02      1C     00004C
                                                 RELOCATION DICTIONARY                                          PAGE   7


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       03      1C     000054
   01       04      1C     00005C
   01       05      1C     000064
   01       06      1C     00006C
   01       07      1C     00007C
   01       08      1C     000080
   01       09      1C     000174
   01       0A      0C     004754
   01       0B      0C     004768
   01       0C      0C     004740
   01       0D      0C     00473C
   01       0E      0C     004738
   01       0F      0C     0046F4
   01       10      0C     005BF4
   01       11      0C     004758
   01       12      0C     0047A4
   01       13      0C     0047AC
   01       14      0C     0047B4
   01       15      0C     003528
   01       16      0C     00352C
   01       17      0C     003530
   01       1A      1C     0046EC
   01       1B      1C     004708
   01       1B      1C     005514
   01       1C      1C     004728
   01       1D      1C     00472C
   01       1E      1C     004744
   01       1E      1C     005D28
   01       1F      1C     004748
   01       20      1C     00474C
   01       21      1C     004750
   01       22      1C     004760
   01       23      1C     00476C
   01       24      1C     0047B0
   01       25      1C     0047B8
   01       26      1C     0047BC
   01       27      1C     0047C0
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ABBTE    00001 000014 04087   8665
ABCODE   00001 00000C 04084   4085  8662
ABCORE   00004 0048D4 06597   8649
ABCSW    00001 000028 04089   4090  8668
ABID     00001 000000 04082   4083  8660
ABIOPSW  00001 000010 04085   4086  8663
ABPCOPSW 00001 000030 04090   4091  8667
ABREGS   00001 000040 04092   8673  8675
ABRQE    00001 000018 04088   4089  8666
ABRQEAD  00001 000014 04086   4087  4088  8664
ABSVOPSW 00001 000038 04091   4092  8669
ABTCB    00001 000008 04083   4084  8661
ACATAPP  00004 005D28 09827   9641  9642  9776  9778
ACLPRTN  00001 00475C 06460   5599
ADDRAPN  00001 0046F8 06434
ADDRMSK  00004 0048B4 06589   6719  6764  8716  9340  9728  9746
ADDRRQE  00004 00477C 06471   4743  6226  6255  8430  8613  9346
ADDRWTQ  00004 0047F8 06536   9059  9232
ADEACT   00004 004788 06474   4458  6326
ADMSK    00004 005CF4 09796   9603  9607
ADTCE    00001 00000C 04110
AEQA     00002 00020A 00065   0072  0074  0075  0076
AEQB     00002 00020C 00066   0073
AEQC     00002 00020E 00067   0071  0077
AEQJ     00001 000210 00082   0083  0085
AEQK     00001 000214 00084
AHASPE   00004 004750 06457   4380
AIEADS02 00004 00473C 06452   5792
AIEAHEAD 00004 004738 06451   5791
AIEATCBP 00004 004740 06453   4523  8695
AIECCST  00004 005D20 09824
AIOSBAS  00004 0054DC 08815   8542  8740
AOLTSW   00004 005D24 09825   9610
APBSRG   00001 00000F 03725   4341  4342  4346  4363  4364  4370  4377  4380  4381  4422  4423  4458  4460  4486  4487
                              4578  4579  4695  4696  4823  4824  4824  4825  4940  4941  4941  4943  5080  5081  5148
                              5149  5251  5285  5289  5303  5326  5327  5327  5328  5343  5344  5395  5414  5419  5419
                              5427  5503  5504  5599  5600  5618  5619  5679  5680  5777  5778  5814  5818  5819  5821
                              6067  6068  6087  6288  6289  6326  6328  6329  6331  6356  6363  6364  6369  6370  6371
                              6373  6376  6411  6418  6420  6547  6548  6550  6551  6553  6554  6556  6557  6559  6560
                              6562  6563  6565  6566  6680  6698  6752  6753  6753  6754  6770  6771  6909  6910  6910
                              6912  6997  6998  8426  8460  8468  8475  8477  8508  8509  8512  8513  8515  8539  8540
                              8590  8594  8652  8653  8654  8678  8679  8679  8680  8681  8709  8745  8746  8798  8800
                              8823  8824  8840  8850  8884  8902  8951  8952  8954  8956  8983  9023  9211  9212  9214
                              9216  9242  9324  9326  9328  9330  9332  9334  9348  9349  9351  9376  9549  9698  9778
                              9779  9780
APGABE   00001 000010 03910   5395  6087
APGCHE   00001 00000C 03909   5414
APGEOE   00001 000000 03906   4824
APGPCI   00001 000008 03908   5327
APGSIO   00001 000004 03907   4941  6753
APRMSK   00004 005CF8 09797
ARMSRQE  00003 005CD5 09785   8852  8945
ARMSUCB  00002 005CDC 09787   8859  8930
ASPINTER 00002 0044E6 06196   6185
ATNTAB   00004 0047A0 06487   3682  5814  5816  5819  6366  6370  6501  6766  6770  6882
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

BASADR   00001 000000 04098
BASREG   00001 000005 03713   4294  4296  4297  5243  5245  5246  5373  5468  5470  5471  5589  5994  7022  8442  8541
                              8542  8543  8544  8737  8738  8740  8741  8742  8743  8901  8903  8904  8905  9319  9320
                              9321  9589  9699  9780
BASREG2  00001 000008 03716   4295  4297  5244  5245  5246  5467  5469  5470  5471  5477  5478  8541  8543  8545  8739
                              8743  8744  8901  8904  8906  9259  9321  9322  9589  9700  9780
BLKMPX   00001 000010 04126
BLNKPTR  00004 004904 06610   5178  5191  5193  5194  5197  5726  9061  9234
BUSYSV   00004 004908 06611   5472  5477  5683  5720  5727
CATAPP   00004 004744 06454   4673  4681  4978  6029  6044  6131  6145  6165  8795  8798
CATBIT   00001 00000E 04001   5423
CATCCH   00001 000008 04002   5079  5294  5302  6066  6176  8790  9626  9756
CATHIO   00001 000018 04013
CATHLT   00001 000018 09826   9641  9776
CATINT   00001 000014 04012   8795
CATREC   00001 00001C 04014   6165
CATSIO   00001 000010 04011   4978
CATSNS   00001 000008 04009   6029  6145
CATSSK   00001 000000 04007   4673
CATTIOSK 00001 000004 04008   4681
CATTIOSN 00001 00000C 04010   6044  6131
CAWLOC   00001 000048 04078   4722  4937  4964  4971  5064  5065  5068  6028  6749  6768  6887
CCWCC    00001 000040 03967
CCWFLG   00001 000004 03966   6796
CCWLN    00001 000008 03970   5066
CCWRTN   00002 0051D2 08467   6443  8481  8482  8483  8485  8486
CCWRTNAD 00004 00471C 06443   4578  4695
CCWSD    00001 000010 03969
CCWSLI   00001 000020 03968
CCW1     00008 0051F8 08487   8481
CCW2     00008 005210 08490   8482
CCW3     00008 005228 08493   8483
CCW5     00008 005240 08496   8485
CCW6     00008 005258 08499   8486
CEBACT   00001 000001 04022   4459  9380  9386  9536
CEBCHMSK 00001 000001 04018   9395  9503  9503  9537  9538
CEBCTR   00001 004700 06436   4457  9377  9467
CEBINA   00001 000000 04017   9381  9393  9470  9532  9535  9544
CEBNXT   00001 000004 04021   9387  9473
CEBPTR   00003 004701 06437
CEBRQE   00001 000002 04019   9383  9479  9534  9547
CEBSAV   00004 005CFC 09798   9481  9526
CEBTAB   00001 005D08 09807   6437  9379  9380  9386  9466  9536
CEPTH    00001 005D1C 09822   9487  9513  9524  9538  9539
CHANBIT  00004 0048C4 06594   5105  5107  5108  5582  9398
CHBSY    00001 000080 04129
CHEDVE   00004 0048B0 06588   4683  5361
CHMSK    00004 0046FC 06435   4499  4499  5564  5578  5580  5585  5586  5601  5602  6104  6153  6687  6696  8608  8608
                              8609  8979  9400
CHPBLD   00004 003850 04695   4738
CHPBLDA  00004 00385C 04699   4736
CHPTH    00001 000000 04096
CHRCF    00001 000070 04128
CHSNXT   00001 000004 04104   5644  5658  5722
CLEARM   00001 004910 06612   4404  5392  5508
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CLPCNT   00001 00475C 06461   5597  6148  6150  9671  9712  9714  9764  9770  9772
CLPHIO   00002 005C74 09743   9716
CLPRTN   00002 005BFC 09697   6462
CLPTIOSN 00004 005C64 09737   9734
CLP003   00004 005C08 09705   9709  9711
CLP006   00002 005C4C 09726   9722
CLP012   00004 005C80 09747   9759
CLP014   00004 005CA4 09764   9708
CLP015   00004 005CAC 09769   9755
CLP018   00004 005CC0 09776   9757
CLRMSK   00001 005CE4 09790   8867  8942
CNSLREQ  00002 0049A2 06724   6713  6715
CODEDUMP 00004 0048D9 06599   6419  8511  8546  8548  8703  8705  8707
COMCOD   00004 004244 05900   5893
CPUA     00001 0000C1 04028
CPUB     00001 0000C2 04029
CRCBTE   00001 00000D 03962   4595  4603
CSWATN   00001 000080 03984   5113  5531  6784  6884
CSWBSY   00001 000010 03987   4000  5082  5383  5421  6073  9628  9758
CSWCCK   00001 000001 03999   5423  5540  6069
CSWCDK   00001 000008 03996   4001  4002  5540  6069  9447
CSWCHE   00001 000008 03988   5355  5378  5811  6720  6782  6863
CSWCLP   00001 000004 04003   5074  6064  9624  9754
CSWCTK   00001 000004 03997   4001  5079  5294  5302  5540  6066  6176  8790  9447  9626  9756
CSWCUE   00001 000020 03986   5091  5383  9628  9758
CSWDVE   00001 000004 03989   4687  4884  5113  5357  5378  5811  6720  6863  6892
CSWICK   00001 000002 03998   4001  5079  5294  5302  5540  6066  6176  8790  9447  9626  9756
CSWIL    00001 000040 03993   5423
CSWLOC   00001 000040 04077   4682  4686  4687  5064  5067  5068  5069  5074  5079  5082  5087  5091  5111  5113  5117
                              5255  5292  5294  5302  5324  5345  5354  5355  5357  5360  5378  5381  5383  5409  5517
                              5525  5531  5535  5540  5552  5811  6064  6066  6069  6071  6073  6076  6176  6720  6782
                              6784  6860  6863  6865  6869  6884  6892  6906  8602  8668  8790  9624  9626  9628  9754
                              9756  9758
CSWPC    00001 000020 03994   5423  5540
CSWPCI   00001 000080 03992   5292  5324
CSWPCK   00001 000010 03995   5423  5540
CSWSMD   00001 000040 03985   4000  5111  5383
CSWUCK   00001 000002 03990   4884  5087  5117  5140  5421  5517  5535  6071  8602
CSWUEX   00001 000001 03991   5378  5421  5517  6076  6871
CTCABEND 00004 004986 06716
CTCADCON 00004 005CD0 09783   9597
CTCAERR  00006 004C26 06914   6897
CTCATN   00004 0047C4 06500   3684  6501  6909
CTCATN10 00004 004BC4 06888   6889
CTCATN20 00004 004BCC 06890   6891  6893  6917
CTCBLKSI 00002 004B04 06812   6742
CTCBUSY  00002 004AE0 06804   6727  6729  6797
CTCCCWL  00002 004B1A 06826   6866
CTCCTLCM 00004 004ABA 06795   6725
CTCCUR   00002 004B00 06810   6734  6789  6807  6814
CTCDSTLW 00008 004AE8 06807   6748
CTCENQ   00004 004924 06680   7163
CTCENQ10 00004 004940 06687   6684
CTCENQ20 00004 00496A 06698   6682  6688  6691
CTCINDX  00004 000024 06501
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CTCINTH  00004 004BAC 06882   5810
CTCLASP  00001 004B1D 06828
CTCLAST  00002 004B0D 06821   6732  6789
CTCLINT  00004 004C02 06904   6883
CTCLRECL 00002 004B02 06811   6738  6743
CTCMASK  00004 004B10 06822   6693
CTCMODE  00002 004B07 06814   6735
CTCMONSW 00001 004B18 06825   3683  6416  6714  6728  6851  6854
CTCMUCB  00002 004B14 06823   3681  6415  6689  6711  6762  6898  6901  9783
CTCNOIO  00002 00498A 06717   6801
CTCNXTOP 00006 004ACE 06800   6803
CTCOPCOD 00001 004B1E 06829   6798  6832
CTCOPNUM 00001 000003 06832   6799
CTCOUCB  00002 004B16 06824   6853  6902  6904
CTCPATCH 00004 004B24 06833
CTCPIO   00001 004A70 06774   6722  6765
CTCPIO10 00006 004AA2 06789   6775  6783
CTCPIO20 00004 004AB0 06792   6785  6788
CTCPIO5  00001 004A86 06781   6776
CTCRECFM 00001 004B06 06813   6744
CTCRINT  00004 004C16 06909   6905
CTCSIO   00002 00496E 06709   7164
CTCSIO10 00004 00496E 06710
CTCSIO20 00004 004A0E 06749   6733
CTCSIO30 00004 004A34 06759   6751  6755
CTCSIO35 00004 004A4C 06765   6777
CTCSIO40 00004 004A50 06766
CTCSNBYT 00001 004B1C 06827   6809  6894  6896  6914  6914  6915
CTCSNCCW 00008 004AF8 06809   6886
CTCTIC   00008 004AF0 06808   6746  6747
CTCTRP   00002 004B4C 06850   7165
CTCTRP10 00004 004B58 06854   6852
CTCTRP20 00004 004B9A 06871
CTCTRP30 00004 004B9E 06872   6862  6864  6868  6870
CUAZER   00001 0000F0 04027   9505  9507
CUBBIT   00001 000050 04000
CUBMSK   00004 0048AC 06587   5256
CURRENT  00001 000000 09006   9095  9097  9100  9102  9104
CURRTCB  00004 004764 06465   4299  4510  4519  8756
CUZER    00001 00000F 04026
CVTABT   00001 000034 04114   8679
CVTADR   00001 000010 04073   8620  8678
CVTHEAD  00001 0000A0 04117   8621
DCBBLK   00001 00000C 03913   5900  5902  6872  6874
DCBBLKSI 00001 00003E 06816   6742
DCBDEB   00001 00002D 03915   4339  4345  8572  8928
DCBEX    00001 000040 03921   6241  6285
DCBFL    00001 00002C 03914   4566  5693  6192  6220  6228  6238  6240  6241  6285  6336  6402  8871  9068
DCBIEK   00001 00000C 03922   4566  6228
DCBIEM   00001 000034 03916
DCBLRECL 00001 000052 06815   6743
DCBMACRF 00001 00002A 06819   6736  6739
DCBMODE  00001 000010 06818   6735
DCBPER   00001 0000C0 03920   5693  6192  6220  6238  6240  6336  8871  9068
DCBRECFM 00001 000024 06817   6744
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCBREG   00001 000004 03711   4338  4339  4345  4566  5311  5685  5693  5900  5902  6190  6192  6220  6228  6238  6240
                              6241  6285  6336  6402  6735  6736  6739  6742  6743  6744  6872  6874  8927  8928  9067
                              9068  9489  9504  9507  9507  9511  9521  9725
DCBUEK   00001 000003 03923
DCBUEM   00001 000038 03917
DCELBBNR 00001 000038 03814
DDRAND   00004 0058C4 09247   9197
DDRAPNVT 00004 0047F8 06535   3703  6434
DDRBASE  00004 005CEC 09794   9214
DDRBKLNK 00001 000008 08997   9268  9273  9273  9275  9280  9292
DDRCANCL 00004 005876 09232   6566
DDRDEB   00001 000000 03677   3659
DDREGSAV 00004 0058B0 09246   9138  9144  9159  9167  9172
DDRFRUCB 00001 000000 09004   9090  9141  9169
DDRH10   00002 0058CC 09249   9199
DDRIOB   00001 000000 03677   3658
DDRLNK1  00001 000006 08993   9170  9175  9204
DDRNOT34 00006 0057B0 09156   9146
DDRPASS1 00001 000040 09010   9269  9274  9287
DDRPGBAS 00001 00000D 08999   9258  9298
DDRPGEND 00001 00000E 09008   9293
DDRPGLNK 00001 00000F 09000   9278  9293
DDRPRG   00001 000080 09009   9289
DDRPRGA1 00001 005916 09286   9296
DDRPRGA2 00001 00592E 09294   9285
DDRPRG01 00004 0058DE 09268
DDRPRG02 00004 0058EA 09273   9281
DDRPRG03 00004 0058EE 09274   9290
DDRPRG04 00004 0058F2 09275   9271  9288
DDRPRG05 00004 0058FE 09280   9267
DDRPRG06 00004 005926 09292   9277
DDRPSTNC 00004 005656 09041   6554
DDRPSTWC 00004 00565E 09044   6557
DDRPST01 00004 005666 09046   9042
DDRPST1A 00004 00566A 09047
DDRPURGE 00004 0058DA 09267
DDRRETRY 00004 00566E 09059   6560
DDRRET1  00004 005676 09061
DDRRET2  00004 0057DA 09169
DDRRET3  00004 0057EA 09174
DDRRET4  00004 005850 09209
DDRRET4A 00004 00585E 09214
DDRRET5  00004 00587E 09234
DDRRQE   00004 003524 03657   3703  6471  9297
DDRRTN1  00004 004818 06547   6537
DDRRTN2  00004 004820 06550   6538
DDRRTN3  00004 004828 06553   6539
DDRRTN4  00004 004830 06556   6540
DDRRTN5  00004 004838 06559   6541
DDRRTN6  00004 004840 06562   6542
DDRRTN7  00004 004848 06565   6543
DDRSRTO  00002 0058D0 09251   3703  6473
DDRSTAD  00004 004780 06472   6547  6550  6553  6556  6559  6562  6565
DDRSTART 00002 005642 09022   6472  6548  6551  6554  6557  6560  6563  6566  9216  9794
DDRSTAT  00001 0057F6 09182   9139  9142
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DDRSTBL  00004 0058C8 09248   9183
DDRSWAP  00002 00569E 09089   6563
DDRSWLCH 00006 0057C6 09164
DDRTOUCB 00001 000002 09005   9091  9174
DDRTST   00001 000009 08998   9185  9275  9276  9276  9280  9282
DDRWAITQ 00002 0058D2 09260   6536  9268  9269  9274  9287  9289  9292
DDRWK1   00001 00000D 08994
DDRWK2   00001 000002 08996   9089  9090  9091  9141  9167  9169  9172  9174
DDRWK3   00001 000002 08995   8996
DDRWORK  00004 00589C 09245   9109  9122  9123  9124  9125  9126  9129  9140  9143  9153  9155  9156  9158  9209  9217
DDRXCPNC 00004 00564E 09029   6551
DDRXCPWC 00004 005642 09025   6548
DDR001   00004 0056B2 09095   9105
DDR002   00004 0056C2 09100   9096
DDR003   00004 0056CE 09103   9098  9101
DDR004   00002 005838 09202   9170  9175  9218
DDR005   00004 00583A 09203   9207
DDR007   00004 00586A 09222   9093
DDR03A   00004 005800 09186   9190
DDR03B   00004 005814 09191   9187
DDR03C   00004 005830 09199   9192  9195
DDR03D   00004 00575C 09138   9135
DDR03SW  00001 005712 09120   9118
DDR03SW1 00001 005748 09132   9130
DDR03X   00001 0057C6 09160   9137
DDR34XX  00002 0058CE 09250   9145
DEBAPG   00001 00001D 03894   4823  4940  5326  5418  6752
DEBBB    00001 000000 03902   4807
DEBDCB   00001 000019 03892   4340  5311  5685  8571  9067  9725
DEBDEB   00001 000004 03883
DEBEND   00001 000006 03904   4805  4815
DEBENT   00001 000010 03886   4353  4358
DEBEPG   00001 000015 03889   5483  5483  5485  5746  5746  5748  5766  5766
DEBEXT   00001 00001C 03893   4365
DEBEXTNT 00001 000024 03897   4799
DEBID    00001 000018 03891
DEBIDV   00001 00000F 03898
DEBMDM   00001 000020 03895   4604  4704
DEBOPFL  00001 000008 03884   4811
DEBPR    00001 000014 03888
DEBPRT   00001 000018 03890   6397
DEBQUS   00001 00000D 03885   5762  5767
DEBREG   00001 000003 03710   4339  4340  4353  4355  4358  4365  4367  4476  4604  4704  4799  4811  4823  4940  5310
                              5311  5326  5418  5483  5483  5485  5684  5685  5746  5746  5748  5762  5766  5766  5767
                              6397  6404  6752  8558  8571  8928  8929  8947  9066  9067  9210  9724  9725
DEBSCA   00001 000004 03899   4811
DEBST    00001 000002 03903   4803  4813  4817
DEBTCB   00001 000001 03882
DEBUCB   00001 000021 03896   4355  4367  8929
DEBUPG   00001 000011 03887
DEVMSK   00004 004878 06575   5279  9397
DEVTAB   00004 004D78 07151   3701  5372  5993  7021  8440
DISMIS   00004 004768 06466   5609
DISMISS  00001 000000 03668   6466
DRUM     00001 000002 03871   5845
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DSHEXCP  00005 004B08 06820   6738
DSKTYP   00001 000020 03877   4356  5385  5648  5665  5840  6012  6033  6047  6117  6222  6286  9134  9451
DUMADR   00001 000001 04123   4468  4471  5202  8434  8449  9104  9203
DUMMY    00002 0046EA 06426
DUMPCODE 00004 0048D8 06598   6599  8642
DUMPCOD1 00004 0048DC 06600   8645
DUMPCOD2 00004 0048E0 06601   8648
DUMPTCB  00004 0048C8 06595   8760
DUMP10F  00004 0048E4 06602   8698
DUMP600  00004 0048E8 06603
DVTENQ   00001 000000 03945   8441
DVTSEN   00001 000006 03948   5993
DVTSIO   00001 000002 03946   7021
DVTTRP   00001 000004 03947   5372
D2314A   00001 000008 09012   9191
D30A     00001 000009 09013   9136
ECBFL    00001 000000 03770   4408
EIGHT    00002 00491C 06620   5499
EIGHTF   00004 0048FC 06608
ENDAD    00002 0051D0 08459   8453
ENQAD    00004 004718 06442   4422  6329  6680
ERPWKA   00001 000068 04004
ER2311   00001 000000 03673   6459
EXCP     00002 004A02 06745   6741
EXNPSW   00004 000058 00038
EXOPSW   00008 000018 00023
EXPCHN   00001 00005C 04115
EXPSEN   00006 0042BC 06002   7176  7186  7191
EXTERR   00001 000042 03776   4848
EXTMSK   00001 0000FE 04133   4353
EXTSAV   00004 004900 06609   4821  4839
EXTTST   00002 00391C 04796   4662  4841
EXTTST1  00006 00392A 04803
EXTTST5  00004 003982 04839
FF       00001 0000FF 04135   4409  4496  4571  4651  4689  4758  4761  4850  4851  5086  5089  5249  5319  5353  5359
                              5451  5455  5512  5527  5553  5554  5793  5822  5842  5909  6075  6164  6170  6173  6220
                              6240  6336  6399  6401  6402  7023  8689  8830  8871  8874  8914  8959  8967  8978  9029
                              9041  9068  9116  9121  9128  9133  9223  9237  9274  9295  9338  9351  9380  9384  9535
                              9537  9591  9720  9735  9744
FIVE     00001 000005 04106   5490
FOUR     00001 000004 04102   5489  5497  5774  9678
FOURPATH 00001 00000F 04031   7031
FREE     00001 0000FE 04020   9381  9393  9470  9532  9535  9544
FSTRQE   00002 004730 06448   9325
GETMAIN  00004 004728 06446   8652
GRTYPE   00001 000010 03876   4356  6014
GTF01    00001 0047D0 06513   5258
HAOP     00001 00001A 03978
HAR0ER   00001 00004F 03779
HBALREG  00001 00000E 09584   9615  9643
HCLP     00004 005BC6 09653   9625
HCLPCNTA 00004 005BF0 09669   9654
HEXF00   00001 000F00 04025   9504
HINREG   00001 000008 09578   9591  9593  9595  9606  9640  9653
HIOBAS   00001 00000D 09583   9588  9590  9673
                                             CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

HIOENB   00001 005BF0 09670   9660
HIO002   00002 005B86 09617   9604  9612  9629
HIO004   00002 005BA6 09632   9627
HRETRG   00001 00000F 09585   9613  9614  9615  9616  9622  9630  9638  9642  9643  9644  9647  9667
HSAVR15  00001 00000B 09581   9638  9644
HSAVR6   00001 000009 09579   9613  9616  9635  9646  9654  9655  9657  9658  9659  9666
HSAVR7   00001 00000A 09580   9610  9611  9614  9639  9645
HUAREG   00001 00000C 09582   9597  9598  9599  9599  9600  9601  9602  9602  9603  9606  9607  9618  9636  9655  9656
                              9656  9657
HUSERG   00001 000007 09577   9639  9640  9645
HWMSK    00004 0048BC 06591   4504  6592  9491
ICREG    00001 000009 03718   4351  4351  4352  4358  4360  4365  4366  4514  4515  4516  4517  4522  4522  4524  4704
                              4705  4988  4989  4996  4996  5049  5050  5050  5051  5104  5106  5252  5252  5253  5264
                              5265  5265  5266  5371  5372  5380  5380  5381  5581  5583  5587  5588  5762  5763  5763
                              5765  5767  5768  5769  5769  5771  5772  5780  5813  5814  5818  5823  5823  5992  5993
                              6091  6092  6092  6093  6148  6149  6149  6150  6369  6373  6374  6374  6692  6693  6694
                              6695  6697  6697  7020  7021  8439  8441  8550  8550  8642  8645  8648  8662  8677  8687
                              8687  8698  8760  8919  8919  8940  9331  9331  9334  9378  9388  9468  9474  9494  9495
                              9495  9497  9712  9713  9714  9770  9771  9771  9772
IDBYTE   00001 004919 06618
ID202    00002 003C18 05218
IEAEND   00004 0002C8 00099   0106
IEAHEAD  00001 000000 03670   6451
IEAPKSAV 00004 000258 00089   0013
IEAPSW   00008 000200 00059   0010
IEAQFX00 00001 000000 00006   0101
IEASAV   00004 000298 00092   0014
IEASCSAV 00004 000218 00087   0012  8751  8752
IEATCBP  00001 000000 03669   6453
IEA0DS02 00001 000000 03670   6452
IEA0IO02 00001 000000 03672   9672
IEA0PT01 00001 000000 03671   6433
IEA0XE00 00001 000000 03668   6458
IECCCWA  00002 0051E8 08479   8472
IECCPL00 00002 005282 08538   3679
IECCPL02 00004 005284 08542   4342  4346  4364  4377  5081  5285  5289  5303  6068  6418  6450  8513  8746  9326  9328
IECCST   00002 004DC8 07203   3698  5588  5865  6695  9824
IECDMS   00001 004760 06463   3697
IECEXIT  00002 003FD8 05616   5606
IECIEND  00002 005172 08393   8391
IECIERLC 00002 00020A 00064   0011
IECIHIO  00002 005B30 09587   3686  6432
IECILCH  00001 004E1A 07258   3689
IECILK1  00001 004E52 07276   3690
IECILK2  00001 004ED6 07447   3691  6445
IECILK2A 00004 004724 06445   9704
IECINT   00002 003C18 05242   3680
IECINTA  00004 003C1A 05244   5244
IECIOQET 00004 003480 03650   3692
IECIOS   00008 0002C8 00111   0110
IECITSAR 00002 003520 03656   3698
IECIXAVL 00004 0046E8 06424   3687
IECOLTSW 00004 0047C8 06505   6995  6997  9825
IECOLTVT 00002 0047C8 06504   3701
IECPL2   00004 004734 06450   4341  4363  4370  5080  5251  6067  6411  6420  8512  8590  8594  8654  8681  8745  9324
                                             CROSS-REFERENCE                                                   PAGE    9


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IECRMS   00001 005582 08900   3702  5619  6470  8956  9789
IECRMSEX 00004 005630 08977   8921
IECRQE00 00002 0054E0 08823   3699
IECSTB   00001 008C10 10684   3693  9248
IECXAPG  00004 00478C 06478   3688
IECXCPER 00008 005938 09315
IECXPT   00008 005468 08735
IECXPT1  00004 00549A 08760   8748
IEC092B  00001 005490 08755   8750
IEDQATTN 00001 000000 03676   6494
IEEBA1   00001 000000 03674   6490
IEFDPOST 00001 000000 03675   6492
IGC000   00008 003548 04293   3678
IGC015   00001 005938 09316   3685
IGC015A  00004 00593A 09319
IGC092   00002 005468 08736   3700
IGFRMTCB 00001 000000 03677   3660
IGF0DEB  00001 000000 03677
IGF0IOB  00001 000000 03677
IHLCMT   00004 0002A4 00096   0015
IHLMABND 00001 010AFE 04148
IHLMABOF 00001 010A00 04142
IHLMABON 00001 010A01 04143
IHLMDSP  00001 040FE7 04152
IHLMEXT  00001 0D0FFE 04158
IHLMGSTP 00001 010AFC 04146
IHLMIO1  00001 050FEE 04153   6513  6514  8788  8789
IHLMIO2  00001 050FEF 04154   5300  5301
IHLMPCI  00001 020FDF 04150   5340  5341
IHLMPI   00001 0D0FFD 04157
IHLMSCMT 00001 010AFF 04149
IHLMSIO  00001 050FF0 04155   4986  4987
IHLMSSM  00001 0D0FFC 04156
IHLMSSP  00001 010AFD 04147
IHLMSVC  00001 030FFF 04151
IHLMSVOF 00001 010A02 04144
IHLMSVON 00001 010A03 04145
INTAPR01 00004 005A1A 09447   6328
INTAP0   00002 005A48 09461   9452  9456
INTAP1   00004 005A56 09470   9474
INTAP10  00004 005AB8 09509   9506
INTAP11  00004 005ACA 09514   9512
INTAP12  00002 005AD4 09521
INTAP12A 00006 005B0E 09538   9533
INTAP13  00004 005B1C 09544   9528
INTAP2   00004 005A60 09473   9480
INTAP3   00006 005A70 09479   9471
INTAP4   00004 005A7A 09481   9477
INTAP5A  00006 005AA2 09503   9516
INTASP   00001 00422C 05885   7190
INTATN   00004 0041D2 05840   4755  6489
INTATN2  00004 0041EE 05849
INTATT   00004 00418A 05809   5122  5516
INTATT1  00004 004192 05811   6907
INTATT2  00004 00419A 05813   5118  5532  6895  6903
                                             CROSS-REFERENCE                                                   PAGE   10


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

INTATT3  00004 0041B6 05822
INTCCH   00002 003CBA 05304   5295  8811
INTCIC   00004 003FEA 05640   7060  7078  7096
INTCOD   00001 000044 03777   6233
INTCS0   00001 004CE2 07044   7204
INTCS1   00001 004CF2 07056   7207
INTCS2   00001 004D0E 07074   7210
INTCS3   00001 004D2A 07092   7213
INTCS5   00001 004D46 07110   7219
INTCS6   00001 004D56 07123   7222
INTCS7   00001 004D66 07136   7225
INTDAT   00004 004252 05907   7180
INTDA1   00004 0059C4 09381   9388
INTDA3   00004 0059EA 09392   9385
INTDA3A  00004 0059EE 09393   9548
INTDA4   00004 0059DC 09387   9382  9392
INTDEACT 00004 0059B4 09377   6328  6474
INTDNP   00004 004262 05919   7160
INTERDDR 00004 0045D6 06309
INTERR   00004 0044E6 06218   5416  5446
INTERR3  00004 0044EE 06220
INTERR4  00002 004542 06245   6271
INTERR4A 00004 00457A 06268   4746  5388  6227
INTERR4B 00004 004576 06267   4750
INTERR4D 00004 00453E 06241
INTERR5  00006 00458A 06273   4502
INTER10  00004 004642 06338   6301
INTER6   00004 005970 09335   9240  9333
INTER7   00004 0045F6 06319   6299  6302
INTER7A  00004 0045FA 06320   5509
INTER7B  00004 00460C 06324   6321
INTER7C  00002 004610 06325   6187  6189  6191  9343
INTER7D  00004 004602 06322   4500
INTER7E  00004 00461C 06329   6327
INTER7F  00006 004628 06332   6330
INTER8   00004 004632 06334   6300  6311  9347  9350  9352
INTM7CH  00004 003F7A 05581   5579
INTNOT   00002 003D5E 05375   7185
INTRMS   00004 005518 08851   6469
INTRMSEX 00004 00561C 08964   5619
INTRMS1  00002 00404E 05681   8856  8882
INTRMS2  00002 005568 08873   8864
INTRMS3  00004 005530 08859   8854
INTRMS4  00004 00553A 08863   8857
INTSDISP 00004 004172 05792   5798
INTSEN   00004 004276 05972   5536
INTSENLT 00004 00449A 06175   6172
INTSEN2  00004 004282 05977   5998  6132
INTSEN3  00004 0042A8 05992   6056  6070  6095  8812
INTSEN3A 00002 0042A0 05986   5973  6174  8717  9736
INTSEN4  00004 004462 06158   5534  5551
INTSEN4B 00004 004472 06162   6160
INTSEN6  00004 004486 06170   6163
INTSEN6A 00004 0044A6 06178
INTSEN6B 00004 0044AA 06179   6177  9740
                                             CROSS-REFERENCE                                                   PAGE   11


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

INTSGR   00004 0042FA 06020   6017
INTSLG1  00004 004436 06144
INTSLG3  00004 004446 06148   6146
INTSLOG  00002 004436 06143   6065  6118
INTSLP   00006 003E74 05490   5500
INTSLP1  00004 003E96 05497   5491
INTSUR   00004 004302 06022   6015  6019
INTS00   00004 0042D2 06010   5999
INTS01   00004 004306 06023   6005  6013  6021
INTS02   00004 00430A 06024
INTS02G  00004 0043C8 06085   5141
INTS02H  00006 0043C2 06081   4887  6278  6280
INTS03   00004 004312 06026
INTS03P  00002 004316 06027
INTS04   00002 004332 06036   6030
INTS05   00002 00435C 06050   6043
INTS05A  00004 004344 06043   6004  6009  9737
INTS07   00004 00436C 06056   6166  6178
INTS07C  00002 00437E 06063   6038  6054
INTS08   00004 0043A2 06073
INTS09   00004 0043BA 06079   6077  6107
INTS10   00004 0043D8 06091   6040  6053  6072
INTS10A  00004 0043EC 06097   6175  8813
INTS10B  00002 0043F4 06099   6121
INTS15   00002 004416 06116   6074
INTS20   00002 00442C 06130   6039  6052
INTTAT   00001 004244 05899   7195
INTTRAP  00004 003D52 05371   5541
INTURT   00001 0041F8 05855   7155  7175  7200
INTVMSA  00004 00416A 05790   5456
INT002A  00004 003CE6 05320   5316
INT0025  00004 003E36 05469   5469
INT0025A 00004 003E50 05477   5473
INT003   00004 003CEE 05324
INT006   00002 003F38 05549   5321
INT008   00004 003D28 05353   5153  5325  5347  5555
INT009   00004 003ECA 05512   5307
INT01A   00004 003C9A 05292   5268
INT01B   00001 003CAA 05300   5293
INT010   00004 003D42 05359   5356
INT010A  00004 003D46 05360   5358
INT011   00004 003EF8 05527   5514  5518  5522
INT011B  00001 003EFC 05528   5362  5812
INT011C  00004 003EFC 05531
INT012   00004 003DE8 05426   5422
INT013   00004 003F04 05533   5827  5829  6885  6900  6908  6911  6913  6918
INT013B  00004 003F0C 05535
INT019   00004 003DC8 05415   6088
INT019B  00004 003DC4 05414   5408  5410  6337
INT019C  00004 003DA8 05406   5379  5384
INT019K  00004 003D88 05389   5382  5386
INT022   00004 0045AC 06283   4570  6229
INT023   00004 003DFE 05445   5438
INT024   00004 003E06 05447   4844  6219
INT024B  00004 003E0A 05449   4957  5439  5475  5496
                                             CROSS-REFERENCE                                                   PAGE   12


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

INT025   00002 003E32 05462   3694  6756
INT025A  00004 003E0E 05451   8616
INT025B  00004 003E24 05456   4521  5790
INT026   00002 003E28 05458   5452  5745  5799  5910  5924  5982  5984  6259  8610
INT027   00002 003F6C 05577   5247  5350  5710  6105  6193  6333  8600  8713  8814  8877  8960  9344  9751  9760  9765
                              9773  9777
INT027A  00004 003FB8 05601   5591  5598
INT030A  00002 003F58 05566   5569
INT031   00004 0043CC 06086   5544  5547  5738
INT031B  00004 0043D0 06087   5739  6237  6239
INT033   00004 003F52 05564   5881  7050  7068  7086  7104  7117  7130  7143  7216  7228  7231  7234  7237  7240  7243
                              7246  7249  8980
INT033C  00004 003FC2 05605   5567
INT033D  00004 004228 05881   5877
INT034   00002 004014 05657
INT034A  00004 00401E 05662
INT034B  00002 004040 05676   5652  5666  5668
INT034C  00002 00400E 05655   7046  7064  7082  7100  7113  7126  7139
INT034D  00004 004010 05656   7048  7066  7084  7102  7115  7128  7141
INT034G  00004 004072 05691   4495
INT034H  00004 00408C 05701   5690
INT035   00004 0040C4 05727   5711  5717  5719
INT035A  00002 0040C0 05725   5709
INT036   00002 003FEE 05643
INT036C  00002 003FE8 05639   7058  7076  7094
INT037   00004 004096 05709   5686  5702
INT037B  00004 0040A2 05715
INT038B  00002 0040D0 05734   5695
INT050   00002 0044F2 06221
INT050A  00004 00450A 06228   6223  6225
INT055   00004 0045B8 06286   6284
INT057   00004 004512 06230   6195  6252  6335
INT058   00004 00452A 06236   4849  6231  6234
INT059   00002 00454C 06249   6287  6314  6316  6339  6341
INT059T  00004 004570 06259   6256
INT12B   00002 003DEC 05427   5425
INT12C   00004 003DD0 05418   5396
INT17A   00002 003E56 05482   5440  9070
INT17A1  00002 003EA6 05501   5484  5487  5498
INT17B   00004 003EB0 05505   9027  9032
INT17C   00004 003EC6 05509   5412
INVDCB   00001 000040 04162   8705
INVDEB   00001 000030 04161   8548  8707
INVECB   00001 000020 04160   8546
INVHSP   00001 000010 04159   6419
INVLCH   00001 000060 04164   8511
INVUCB   00001 000050 04163   8703
IOBBCI   00001 00001C 03741   5901  6873
IOBCC    00001 000010 03735   4977  5000  5494  5495  5715  5875  6792  8749  8751
IOBCCR   00001 000023 03744
IOBCC1   00001 000010 03766
IOBCC3   00001 000030 03767   5715  5875  6792
IOBCDS   00001 0000C0 03747   6612  9790
IOBCOD   00001 000004 03731   4407  4848  5390  5505  5736  6218  6230  6232  6233  6235  6275  6716  8943
IOBCSW   00001 000008 03733   3734  4686  4884  5069  5140  5354  5421  5423  5552  6273  6871  9447
                                             CROSS-REFERENCE                                                   PAGE   13


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IOBDAM   00001 000020 03743   4359  4659
IOBDCB   00001 000015 03738   4338  4340  8870  8927
IOBECB   00001 000005 03732   4387  6353  6400
IOBECT   00001 00001E 03742   4400  5507  5507  8869  8869  8940
IOBERR   00001 000020 03748   4761  4851  4938  5415  5697  5892  6750  8830  9342
IOBEX    00001 000004 03751   4759  5394  5426  5445  6334  8831
IOBFL1   00001 000000 03728   4404  4574  4586  4593  4657  4712  4759  4761  4851  4889  4893  4938  5391  5393  5394
                              5415  5426  5445  5508  5691  5697  5892  6236  6283  6334  6399  6750  8830  8831  8867
                              8942  9342
IOBFL2   00001 000001 03729   4569  4576  4583  4651  4653  4660  4715  4751  4969  5550  5553  5923  5976
IOBFL3   00001 000008 03734   4403  4403  5506  5506  8868  8868  8941  8941
IOBGRF   00001 000002 03763   5923
IOBHAR0  00001 000010 03759   4569  4651  4653  4969
IOBHLT   00001 000080 03756
IOBINT   00001 00007E 03774   6232  6275
IOBMDB   00001 000018 03739   4932
IOBMD1   00001 000010 03749   4574  4889
IOBMD2   00001 000008 03750   4593
IOBNET   00001 000008 03760   3761  4651  4660  4715  4751
IOBPRG   00001 000020 03758
IOBQSM   00001 000001 03764   6613  9791
IOBREG   00001 000002 03709   4300  4338  4340  4359  4387  4400  4403  4403  4404  4407  4425  4476  4569  4574  4576
                              4583  4585  4586  4588  4593  4651  4653  4657  4659  4660  4686  4709  4712  4714  4715
                              4730  4751  4759  4761  4848  4851  4884  4889  4892  4893  4895  4932  4938  4969  4977
                              5000  5069  5139  5140  5310  5354  5390  5391  5393  5394  5415  5421  5423  5426  5445
                              5492  5493  5494  5495  5505  5506  5506  5507  5507  5508  5550  5552  5553  5684  5691
                              5697  5715  5736  5875  5892  5901  5923  5976  6081  6218  6230  6232  6233  6235  6236
                              6273  6275  6283  6334  6353  6399  6400  6716  6731  6750  6792  6795  6871  6873  8558
                              8829  8830  8831  8926  8927  8940  8941  8941  8942  8943  8947  9066  9210  9335  9342
                              9447  9724
IOBROR   00001 000004 03762   4576  4583
IOBRST   00001 000019 03740   4588  4714  4730  4892  5492
IOBSNB   00001 000040 03757   5550  5553  5923  5976
IOBSNS   00001 000002 03730   5139  6081
IOBSRS   00001 000001 03753   4586  4657  4712  4893
IOBST    00001 000011 03736   4585  4709  4895  6731  6795
IOBUEX   00001 000008 03761
IOBURL   00001 000002 03752   5691  6236  6283  6612  9790
IOBWGT   00001 000014 03737
IONPSW   00004 000078 00050   5596  5612
IOOPSW   00008 000038 00027
IOPSWO   00001 000038 04076   5254  5264  5284  5571  5581  6323  8663  8799  8958  9341  9637
IOSABEND 00008 0048CC 06596   8660
IOSBAS   00004 00354A 04297   4294  4295  4298  5244  5469  8544  8545  8742  8744  8815  8905  8906  9320  9322  9699
                              9700  9793
IOSBASAD 00004 005CE8 09793   8903  9319
IOSBASE  00004 00354A 04298   7153  7154  7155  7156  7158  7159  7160  7161  7163  7164  7165  7166  7168  7169  7170
                              7171  7173  7174  7175  7176  7178  7179  7180  7181  7183  7184  7185  7186  7188  7189
                              7190  7191  7193  7194  7195  7196  7198  7199  7200  7201  7204  7207  7210  7213  7216
                              7219  7222  7225  7228  7231  7234  7237  7240  7243  7246  7249
IOSPATCH 00004 003BDC 05216   5215
IPLPSW   00004 000000 00018   0016  3653  3654  6425  6448  6449  7255  7260  7262  7264  7266  7268  7270  7272  7459
                              7464  7467  7470  7473  7476  7479  7484  7497  7500  7503  7506  7509  7512  7515  7518
                              7521  7524  7527  7530  7533  7536  7539  7542  7545  7548  7551  7554  7557  7560  7563
                              7566  7569  7572  7575  7578  7581  7584  7587  7590  7593  7596  7599  7602  7613  7616
                                             CROSS-REFERENCE                                                   PAGE   14


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              7619  7622  7625  7628  7631  7634  7637  7640  7643  7646  7649  7652  7655  7658  7661
                              7664  7667  7670  7673  7676  7679  7682  7685  7688  7691  7694  7697  7700  7703  7706
                              7709  7712  7715  7718  7721  7724  7727  7730  7733  7736  7739  7742  7745  7748  7751
                              7754  7757  7760  7763  7766  7769  7772  7775  7778  7781  7784  7787  7790  7793  7796
                              7799  7802  7805  7808  7811  7814  7817  7820  7823  7826  7829  7832  7835  7838  7841
                              7844  7847  7850  7853  7856  7859  7862  7865  7868  7871  7874  7877  7880  7883  7886
                              7889  7892  7895  7898  7901  7904  7907  7910  7913  7916  7919  7922  7925  7928  7931
                              7934  7937  7940  7943  7946  7949  7952  7955  7958  7961  7964  7967  7970  7973  7976
                              7979  7982  7985  7988  7991  7994  7997  8000  8003  8006  8009  8012  8015  8018  8021
                              8024  8027  8030  8033  8036  8039  8042  8045  8048  8051  8054  8057  8060  8063  8066
                              8069  8072  8075  8078  8081  8084  8087  8090  8093  8096  8099  8102  8105  8108  8111
                              8114  8117  8120  8123  8126  8129  8132  8135  8138  8141  8144  8147  8150  8153  8156
                              8159  8162  8165  8168  8171  8174  8177  8180  8183  8186  8189  8192  8195  8198  8201
                              8204  8207  8210  8213  8216  8219  8222  8225  8228  8231  8234  8237  8240  8243  8246
                              8249  8252  8255  8258  8261  8264  8267  8270  8273  8276  8279  8282  8285  8288  8291
                              8294  8297  8300  8303  8306  8309  8312  8315  8318  8321  8324  8327  8330  8333  8336
                              8339  8342  8345  8348  8351  8354  8357  8360  8363  8366  8369  8372  8375  8378  8381
                              8384  8387  9297 10685
KYWD     00001 0000FC 04119
LASPPIO  00002 003A3C 04975   6723  6773
LASPTCH  00004 004CA4 07009   7008
LASPTCH1 00001 004CB8 07014   7009  7011
LASTRQE  00001 003534 03663   6449
LCHENQ   00001 000004 03939
LCHERR   00004 005272 08510   6605
LCHERRAD 00004 0048F0 06605   5148
LCHERR1  00002 005270 08508   8474
LCHFTS   00001 000000 03937   8432  8433  8449  8451
LCHLTS   00001 000002 03938   5204  8436  8452  8456  9292
LCHOUT   00001 000080 03942   5191  5194  9061  9234
LCHREG   00001 00000D 03723   4395  4503  4822  4840  4942  4963  5133  5133  5134  5136  5147  5177  5178  5197  5204
                              5639  5655  5683  5720  5727  6032  6035  6046  6049  6059  6116  6368  6372  7045  7057
                              7063  7075  7081  7093  7099  7112  7125  7138  8432  8433  8436  8449  8451  8452  8456
                              8994  9059  9143  9153  9154  9156  9157  9193  9193  9196  9197  9198  9202  9209  9217
                              9232  9490
LCHSRH   00001 000004 03940
LCHTAB   00002 004E1A 07257   4395  7045
LCHTCH   00001 000006 03941   4503  9490
LCHWDSV  00004 0048EC 06604   4822  4840  4942  4963  5134  5136  5147
LCH1     00002 004E1A 07260
LCH2     00002 004E22 07262   7057  7063
LCH3     00002 004E2A 07264   7075  7081
LCH4     00002 004E32 07266   7093  7099
LCH5     00002 004E3A 07268   7112
LCH6     00002 004E42 07270   7125
LCH7     00002 004E4A 07272   7138
LCTCSC   00001 000000 03951
LCTFLS   00001 000003 03953   5866
LCTMSK   00001 000002 03952   6696
LCTSLBX  00001 000003 03954   5866
LIST     00002 004ED6 07446   6444  6616
LISTA    00004 004720 06444   5286  9094
LISTNXT  00001 000002 09007   9103
LNKRG1   00001 000008 03717
LNKRG1S  00004 0048F8 06607   4411  4430  5119  5121  5248  5474  5687  5878  6106  6194  6521  6524  6527  6530  8597
                                             CROSS-REFERENCE                                                   PAGE   15


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              8601  8607  8714  9345
LNKRG2   00001 00000E 03724   4350  4381  4423  4426  4427  4487  4495  4568  4662  4694  4713  4716  4718  4735  4738
                              4755  4812  4816  4818  4821  4825  4839  4844  4849  4943  4957  5052  5073  5075  5110
                              5112  5144  5145  5152  5175  5198  5203  5205  5318  5328  5344  5374  5427  5447  5449
                              5504  5588  5589  5603  5644  5647  5649  5651  5658  5664  5673  5675  5683  5688  5692
                              5694  5698  5703  5720  5722  5727  5729  5735  5745  5747  5757  5761  5764  5770  5781
                              5794  5821  5833  5841  5844  5846  5848  5851  5857  5867  5869  5876  5879  5903  5908
                              5915  5920  5922  5993  5994  5995  6030  6034  6043  6048  6056  6085  6116  6130  6175
                              6178  6181  6183  6259  6268  6289  6327  6330  6368  6371  6372  6410  6521  6522  6524
                              6525  6527  6528  6530  6531  6754  6756  6856  6875  6912  6935  6945  6955  6965  6975
                              6985  7016  7017  7034  7046  7058  7064  7076  7082  7094  7100  7113  7126  7139  8435
                              8437  8454  8510  8563  8589  8593  8620  8621  8621  8622  8622  8624  8625  8625  8653
                              8680  8800  8860  8862  8881  8907  8920  8936  8952  8953  8955  8964  8966  8968  9046
                              9060  9138  9139  9142  9147  9149  9150  9152  9159  9201  9208  9212  9213  9215  9233
                              9283  9284  9392  9403  9448  9450  9454  9458  9460  9476  9540  9545  9678  9737  9777
LNKRG3   00001 00000C 03722   4327  4396  4431  4457  4459  4494  4671  4723  4724  4935  5002  5002  5135  5176  5179
                              5188  5192  5195  5200  5998  6004  6009  6041  6324  6415  6417  6722  6765  6771  6773
                              6780  6793  6794  7006  7035  8428  8562  8610  8616  8690  8699  9168  9173  9336  9389
                              9390
LPCNT    00004 0048BC 06592   6031  6045  6058
LSTOPT   00001 000008 04125   5486  5751
LSTRQE   00002 004732 06449   9327
LTSVALSV 00002 004914 06615   4329  4485  5253  5309  5349  5459  5459  5682  5721  5721  5728  5728  6101  6332  6332
                              8554  9069  9238  9329
MASTCB   00004 004760 06464   4510
MAXENQ   00001 000003 04137
MAXUCBO  00002 004916 06616   5283
MCKPSW   00001 000070 04079
MCNPSW   00004 000070 00047
MCOPSW   00008 000030 00026
MERLIN   00001 000009 03875
MNASPABN 00001 000008 06839   6728
MNCTCBSY 00001 000001 06842   6416  6854
MNHOTIPL 00001 000004 06840
MNMTENA1 00001 000080 06836   6714  6851
MNMTENA2 00001 000040 06837
MNSWCOMP 00001 000010 06838
MNSWFAIL 00001 000002 06841
MSKSAV   00001 005D1D 09823   9503  9513
MULTPATH 00001 000001 04023   9449
NEXAVL   00002 0046E8 06425   4462  4484  5453  5454
NOASPPST 00001 004690 06375   6367
NOCTCHIO 00001 005B66 09605   9594  9596
NOOP     00001 000003 03981   6571
NOPRTPSW 00004 0048A0 06581   6403
NORMC    00001 00007F 03773   4407  5505  5775  8943
NORMSEN  00002 0042CE 06008   7156  7161  7166  7181  7196  7201
NOTEXCP  00006 0049F0 06742   6737
NOTLASP  00001 0041B4 05820   5817
NOTPMF   00001 000020 04127   6218  6230
NXTCH    00001 000001 04100
NXTEXP   00001 000004 04105
OF       00001 00000F 04132   5718  9525
OLDTCB   00001 000004 04103
OLTATPST 00001 000020 04057   9611
                                             CROSS-REFERENCE                                                   PAGE   16


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

OLTBYPFN 00001 000010 04058
OLTCHN   00001 000010 04064   6998
OLTCHOPT 00001 000080 04055   6995
OLTDEPST 00001 000040 04056   9611
OLTEXP   00001 000008 04059
OLTHLT   00001 000008 04063   9615
OLTSIO   00001 000002 04060
OLTZEUS  00001 000014 04065
ONE      00001 000001 04099   5492  5896  6149  6254  9656  9659  9666  9771
ONLNPTH  00001 000080 04121
ORCNTR   00001 000007 04138
PATHINOP 00001 00000F 04131
PATHTST  00004 0048A8 06584   7033
PCIMSK   00004 0048B8 06590   5346
PCKOPSW  00001 000028 04075   8667
PCKREGS  00004 00472C 06447   8672
PDSABLA  00004 005BF4 09672   9658  9665
PERMER   00001 000041 03775   5390  6235  6716
PINPSW   00004 000068 00044   0008
PIOPSW   00008 000028 00025   0009
PLIST    00001 000108 04120
PND      00001 000040 03821
PNQAD    00004 005CF0 09795   8951  9211
POSTADR  00004 0046F4 06433   5777  6356
POSTADR1 00004 0046EC 06431   6364
PPKEY    00001 0000F0 04048   4348  8747  9659
PRGCOD   00001 000048 03778   5736
PRGCOMA  00004 0040E4 05745   5441
PRGCOMA1 00004 004128 05762   5750  5755
PRGCOMB  00006 0040E8 05746   5449  8593
PRGDEC1  00004 00413A 05767   5765
PRGDEC2  00004 004164 05780   5771
PRGFLD   00001 004918 06617
PRGPPLAD 00004 005B2C 09560   8585  8588  8588
PRGPST1  00004 00414E 05773   8589
PRGTCBCM 00006 004120 05760   5752
PRGTCBLP 00006 004108 05754   5759
PROTPSW  00004 004898 06579   6397  6398
PSTPRG   00004 0052DC 08585
PTHAVL   00004 005D00 09799   9488  9523  9524  9525  9527
PTHCNT   00004 005D04 09800
PTHIND   00001 000001 04024   9505  9527
PURGPTR  00004 005172 08391   6616  8392
QCNT     00001 000008 04108   5768  5772  5780
QPLFLST  00001 000080 04130   5497  5756
QPLPTR   00001 00000C 04111   5488  5753
REG0     00001 000000 03706   4337  4474  5073  5110  5144  5342  5502  5990  6060  6925  6998  7017  8649  8650  8676
                              9089  9489  9521  9739
RELEASE  00001 000094 03973
RESERVE  00001 0000B4 03974
RHADR    00001 000008 03824
RMSACTV  00001 000080 04051   5678  8922  8965  8978
RMSAD    00004 004774 06469   5679
RMSBASE  00004 005CE0 09789   8954
RMSEXAD  00004 004778 06470   5618
                                             CROSS-REFERENCE                                                   PAGE   17


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RMSFLAD  00004 004770 06468   5677  6250
RMSFLAG  00001 005CD4 09784   6468  8872  8912  8914  8922  8965  8978
RMSRQE   00004 003534 03661   9785
RMSRQEFL 00001 000040 04052   8872  8912  8914
RMSRQESV 00002 005CDE 09788   8865  8915
RMSSAVE  00004 005CD8 09786   8907  8964
RMS001   00004 005586 08904
RMS002   00002 0055AA 08919   8913
RMS002A  00004 0055DA 08940   8937
RMS003   00004 005608 08954
RPSSIO   00002 0037B8 04641   7184
RQELN    00001 000010 03931   8666
RRDXCCW  00008 004888 06577   4698
RR0ADR   00001 000010 03825
RR0OP    00001 000016 03976
RSTMSK   00001 0000FE 04134   5578  6104  6153  8609
RST7MSK  00002 004E08 07253   5580
RSVD     00001 000080 03820
SEEK1    00008 004880 06576   4669  4670
SEEK2    00001 000000 03957   3958  3959  3960  4700
SELBSY   00001 000008 04069   5702  6528
SELBSYV  00004 0047E6 06527   4498  4688  4691  5116  5699  6805  6928
SELECTV  00004 0047D8 06521   5055  5460  5538  6080  6100  6102  6152  6154  8791  9047  9062  9165  9177  9224  9235
                              9702
SELNLCH  00001 00000C 04070   6531
SELNXTLV 00004 0047EE 06530   6938  6948  6958  6968  6978  6988
SELTAG   00001 000004 04068   5120  6525
SELTAGV  00004 0047DE 06524   5109
SENSOP   00001 000004 03975   6025  6809
SERR     00002 0054A6 08783   5285  5289
SERR01   00001 0054BC 08796   5081
SERR02   00004 0054B8 08795   5303
SERR04   00001 0054BC 08797   6068
SETFMSK  00001 00001F 03977   4708
SFMCCW   00001 000008 03958   4707  4708
SHRDMPX  00001 000080 04122   5868
SIOCNT   00001 00000E 04112   5895  5897
SIRBAD   00004 004708 06439   9330
SIRBAD2  00004 005514 08839   8825
SIRBRQE  00001 00001A 04113   8826  9332  9334
SIX      00002 00491A 06619   6246
SKTIC    00001 000010 03960   4709  4714
SMFRTN   00004 00474C 06456   4486  5343  5503
SMMSK2   00001 00000D 03959   4705  4706  4717
SNSCNT   00001 004920 06622   5991  6057  6091  6093  6094  9738
SRTESTAT 00001 000003 03786   5843  6310  6338  9116  9117  9119  9128  9131  9453
STARTCP  00002 00491E 06621
STPPRNT  00001 000080 03868   4879
SVCNPSW  00004 000060 00041
SVCOPSW  00008 000020 00024   0007
SVCXAD   00004 004754 06458   4426
SVC92    00001 00005C 04136   4481
SVOPSW   00001 000020 04074   4348  4481  4483  4513  4514  4518  8669  8747
SYSCON   00001 000002 04124   5843  6310  6338  9453
SYSIMD   00008 004850 06569   4932  4933
                                             CROSS-REFERENCE                                                   PAGE   18


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SYSNOP   00008 004858 06571
SYSRTN   00002 0041D0 05833   6479  6480  6481  6482  6483
SYSSENSE 00008 004860 06572   6002  6011  6020  6022  6023
TAPE     00001 000080 03879   6012  6033  6047  6117
TAPEIO   00001 000008 03961   4592  4596  4597
TAPESM   00008 004868 06573   4581
TAPETIC  00001 000010 03963   4590  4591
TCBADR   00001 000008 04107   5754  5756  5758  5760
TCBFLG   00001 00001E 04043
TCBFLGS  00001 000020 04045   4520  5793
TCBID    00001 000070 04116
TCBPR    00001 000023 04044
TCBPRT   00001 00001C 04042
TCBREG   00001 000004 03712   4299  8651  8661  8676  8701  8756  8757
TCBRG0   00001 000000 03707   8752  8757
TCBRQENA 00001 000020 04047   4520  5793
TCBTCB   00001 000074 04046   5796  8625
TEN      00001 00000A 04109   6094
TICOP    00001 000008 03979   4591  6747  6808
TIEOP    00001 00001B 03980   4597
TIMER    00004 000050 00032
TOADDR   00004 004784 06473   6312
TPSEN    00004 0042B4 05998   7171
TPTYPE   00001 000040 03878   4356
TRACON   00004 004748 06455   4988
TSDDRA   00002 005936 09297   9284
TSKSW    00001 000000 04097
TSTAR    00004 003480 03651   6425  6448
TSTASSN  00001 000004 03928   4479  5451  5455  8948  9384
TSTDEB   00001 000009 03934   4345  8572
TSTIOB   00001 000005 03932   4476  5310  5684  8558  8829  8866  8947  9066  9210  9335  9724
TSTKEY   00001 00000C 03929   4483  4971  5315  5495  6359  6768  8949
TSTLNK   00001 000000 03926   4468  4470  4471  4484  5181  5201  5201  5202  5453  5640  5656  8432  8434  8453  8457
                              9203  9205  9273  9275  9280
TSTPR    00001 000008 03933
TSTREG   00001 000001 03708   4328  4328  4329  4345  4400  4408  4462  4463  4463  4468  4470  4475  4476  4478  4479
                              4483  4484  4485  4743  4745  4886  4971  4999  5184  5201  5202  5308  5309  5310  5315
                              5342  5348  5348  5349  5451  5453  5454  5455  5490  5495  5502  5545  5639  5640  5640
                              5643  5643  5645  5655  5656  5656  5657  5657  5661  5674  5682  5684  5701  5726  5737
                              5754  5760  5824  6099  6099  6101  6103  6226  6247  6251  6254  6255  6258  6269  6274
                              6358  6359  6710  6761  6768  6769  6778  6779  6787  6790  6855  6858  8430  8432  8433
                              8434  8436  8451  8452  8453  8457  8549  8549  8554  8555  8555  8557  8558  8559  8572
                              8611  8614  8618  8650  8659  8659  8660  8661  8662  8663  8664  8665  8666  8667  8668
                              8669  8673  8675  8677  8688  8749  8751  8826  8827  8827  8829  8832  8836  8853  8855
                              8880  8945  8946  8947  8948  8949  9026  9045  9063  9065  9066  9069  9202  9203  9205
                              9205  9206  9210  9236  9238  9325  9327  9329  9332  9335  9346  9348  9349  9534  9723
                              9724
TSTTCB   00001 00000C 03930   4478  5342  5490  5502  5754  5760  6358  8618
TSTUCB   00001 000002 03927   4475  5187  5545  5645  5661  6247  6254  6710  6778  6787  6790  6855  6858  8557  8832
                              8836  8916  8946  9063  9206  9236  9282  9348  9394
TWO      00001 000002 04101   4603  5749  6251  9706
TWOPATHS 00001 00000A 04030
T311ERT  00004 004758 06459   6288
UAREG    00001 000006 03714   4678  4973  4997  5254  5267  5271  5272  5274  5274  5275  5275  5276  5277  5278  5278
                              5280  5280  5282  5284  5862  5978  5979  5979  5980  6037  6051  6718  6719  6763  6764
                                             CROSS-REFERENCE                                                   PAGE   19


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              6888  6890  6916  6924  6934  6944  6954  6964  6974  6984  7015  7019  7032  8469  8715
                              8716  8799  8993  9339  9340  9341  9498  9510  9635  9636  9637  9646  9727  9728  9745
                              9746  9747
UCBACU   00001 000080 03858
UCBALLC  00001 000001 03784   9449
UCBASK   00001 000002 03844   4655  4685  4727  5515  5521  5646  5672  5826  5907  6757  8875  9591  9601
UCBATI   00001 00000B 03795   4378  5813
UCBBSY   00001 000080 03838   4685  4689  4727  5048  5078  5086  5115  5359  5406  5515  5527  5646  5662  5822  5856
                              5919  5972  5983  6086  6726  6786  6791  6857  6859  9591  9601
UCBCCR   00001 000033 03813
UCBCHA   00001 000004 03788   4997  5049  5104  5267  5320  5513  5533  5554  5977  6144  6147  6162  6164  6170  6171
                              6173  6323  6692  6718  6759  6763  8715  8958  9111  9111  9123  9339  9396  9498  9600
                              9602  9606  9653  9710  9715  9720  9727  9733  9735  9744  9745  9769
UCBCHGS  00001 000040 03828   9116  9117  9119  9128  9129  9131
UCBCHM   00001 00000C 03796   5718  6584  9113  9113  9125  9395  9523  9539
UCBCPUA  00001 000008 03859
UCBCUB   00001 000008 03842   5090  5143  5515  5521  5689  5826  6757  6760  7023  8863  8917
UCBDAV   00001 0000F8 03862   4758  8874
UCBDAVV  00001 000078 03863   5842
UCBDHIO  00001 000010 03835   6147  6171  6173  9653  9710  9733  9735  9744  9769
UCBDSNS  00001 000020 03834   6144  6162  6170  9710  9715  9720
UCBDTI   00001 000007 03791   5371  5992  7020  8439
UCBDTR   00001 000004 03843   4727  5646  5662  5826  5907  6757  9591  9601
UCBDVRES 00001 000029 03819   9459
UCBERR   00001 000001 03845   4649  4749  4850  4967  5521  5689  5826  6257  6270  6309  6319  6340  8863  9025  9041
                              9044  9064  9121  9133  9223  9237  9295  9351
UCBETI   00001 000008 03792   8391
UCBEXTSN 00001 000008 03854   4600  6159  6180  6277
UCBFL1   00001 000006 03790   4496  4501  4649  4655  4685  4689  4727  4749  4850  4967  5048  5078  5086  5089  5090
                              5115  5143  5306  5359  5389  5406  5515  5521  5526  5527  5537  5546  5646  5662  5672
                              5689  5822  5826  5856  5907  5909  5919  5972  5981  5983  6079  6086  6186  6257  6270
                              6309  6315  6319  6340  6417  6683  6685  6726  6757  6760  6786  6791  6857  6859  7023
                              8561  8863  8875  8876  8917  8938  8959  9025  9029  9041  9044  9064  9115  9121  9127
                              9133  9222  9223  9237  9295  9351  9591  9601  9721
UCBFL3   00001 000000 03783
UCBFL4   00001 00002C 03807   4643  4747  4758  5387  5842  5849  6224  8874
UCBFL5   00001 000001 03785   4600  4881  5353  5512  5921  6075  6078  6159  6180  6277
UCBFL7   00001 000016 03801   4879
UCBHASP  00001 000001 03849   4378
UCBHLT   00001 000080 03832   6759  9600
UCBID    00001 000002 03787   4369  8833
UCBIDV   00001 0000FF 03846   4369  8833
UCBITF   00001 000010 03841   4496  4501  5526  5822
UCBLCI   00001 00000A 03794   4393  9112  9112  9124  9164  9164
UCBLTS   00001 000014 03799   4886  4999  5308  5525  5674  5701  5737  5824  5828  6103  6258  6269  6273  6274  6761
                              6769  6779  8559  8851  8918  9026  9045  9065  9283  9349  9479  9723
UCBMPANX 00001 000004 03782
UCBNALOC 00001 000004 03855   4881  5921
UCBNAM   00001 00000D 03797   9114  9114  9126
UCBNBRSN 00001 000018 03803   6161  6182  9147  9148  9148  9149
UCBNRY   00001 000040 03839   5646  5662  5822  6186  6683  6685  6760  8959  9029  9115  9127  9222  9295
UCBORCNT 00001 00002C 03808
UCBORSV  00001 00002D 03809
UCBPST   00001 000020 03840   4685  4689  4727  5048  5078  5089  5306  5537  5646  5662  5826  5909  5981  6079  6757
                              6786  6791  9591  9601  9721
                                             CROSS-REFERENCE                                                   PAGE   20


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBREG   00001 000007 03715   4355  4356  4367  4369  4378  4393  4475  4496  4501  4564  4571  4582  4599  4600  4602
                              4643  4649  4655  4659  4664  4668  4685  4689  4699  4702  4727  4733  4745  4747  4749
                              4758  4797  4803  4805  4807  4813  4815  4817  4850  4879  4881  4883  4886  4967  4997
                              4999  5048  5049  5051  5078  5086  5089  5090  5104  5115  5143  5187  5266  5267  5273
                              5276  5277  5286  5287  5287  5288  5288  5306  5308  5320  5353  5359  5371  5385  5387
                              5389  5406  5407  5411  5512  5513  5515  5521  5525  5526  5527  5533  5537  5543  5554
                              5645  5646  5648  5650  5661  5662  5665  5667  5672  5674  5689  5701  5718  5737  5809
                              5813  5822  5824  5826  5828  5840  5842  5843  5845  5847  5849  5850  5856  5868  5894
                              5907  5909  5919  5921  5972  5977  5980  5981  5983  5992  6002  6003  6010  6012  6014
                              6016  6018  6033  6047  6075  6078  6079  6086  6103  6117  6144  6147  6158  6159  6161
                              6162  6164  6170  6171  6173  6179  6180  6182  6186  6188  6222  6224  6245  6257  6258
                              6267  6269  6270  6273  6274  6276  6277  6279  6286  6309  6310  6313  6315  6319  6323
                              6338  6340  6413  6584  6681  6683  6685  6710  6712  6718  6730  6757  6759  6760  6761
                              6762  6763  6769  6778  6779  6786  6787  6853  6855  6857  6858  6859  6901  6902  6904
                              7010  7012  7019  7020  7023  8439  8557  8559  8561  8715  8794  8794  8832  8833  8835
                              8835  8836  8851  8859  8863  8874  8875  8876  8929  8930  8938  8946  8958  8959  9025
                              9026  9029  9041  9044  9045  9063  9064  9065  9166  9169  9174  9206  9222  9223  9236
                              9237  9339  9449  9451  9453  9455  9457  9459  9479  9498  9523  9539  9705  9707  9707
                              9710  9715  9720  9721  9723  9727  9733  9735  9744  9745  9769
UCBRHA   00001 000004 03823
UCBROR   00001 000030 03811   4582  5894
UCBRPS   00001 000010 03827   4664  5650  5667  9457
UCBRQESV 00001 00002A 03806   4745  5850  6267
UCBRR    00001 000020 03826   9455
UCBRRCNT 00001 000028 03818
UCBRR0A  00001 00007C 03822
UCBSAVE  00002 004E0A 07254   5051  5266  5980
UCBSKA   00001 000030 03810   4659  4668  4699  4702  4797  4803  4805  4807  4813  4815  4817
UCBSMD   00001 000040 03833   5320  5513  5533  5554  5977  6144  6164  6170  6759  9720
UCBSNADR 00001 000019 03804   4602  4883  6279
UCBSNS   00001 000016 03800   3801  4599  6002  6003  6010  6158  6179  6276
UCBSNS5  00001 00001A 09014   9194  9196
UCBSTI   00001 000009 03793
UCBS100  00008 007450 10112   1343
UCBS101  00008 0074F8 10119   1358
UCBS102  00008 0075A0 10126   1373
UCBS103  00008 007648 10133   1388
UCBS104  00008 0076F0 10140   1403
UCBS105  00008 007798 10147   1418
UCBS106  00008 007840 10154   1433
UCBS117  00008 007B78 10191   1590
UCBS118  00008 007C20 10198   1605
UCBS119  00008 007CC8 10205   1620
UCBS120  00008 007D70 10212   1635
UCBS121  00008 007E18 10219   1650
UCBS122  00008 007EC0 10226   1665
UCBS123  00008 007F68 10233   1680
UCBS124  00008 008010 10240   1695
UCBS125  00008 0080B8 10247   1710
UCBS126  00008 008160 10254   1725
UCBS127  00008 008208 10261   1740
UCBS128  00008 0082B0 10268   1755
UCBS129  00008 008358 10275   1770
UCBS130  00008 008400 10282   1785
UCBS131  00008 0084A8 10289   1800
                                             CROSS-REFERENCE                                                   PAGE   21


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBS132  00008 008550 10296   1815
UCBS141  00008 0085F8 10303   1918
UCBS142  00008 008628 10308   1931
UCBS143  00008 008658 10313   1944
UCBS144  00008 008688 10318   1957
UCBS145  00008 0086B8 10323   1970
UCBS146  00008 0086E8 10328   1983
UCBS147  00008 008718 10333   1996
UCBS148  00008 008748 10338   2009
UCBS149  00008 008778 10343   2022
UCBS150  00008 0087A8 10348   2035
UCBS151  00008 0087D8 10353   2048
UCBS152  00008 008808 10358   2061
UCBS153  00008 008838 10363   2074
UCBS154  00008 008868 10368   2087
UCBS155  00008 008898 10373   2100
UCBS156  00008 0088C8 10378   2113
UCBS67   00008 006168 09913   0848
UCBS68   00008 006210 09920   0863
UCBS69   00008 0062B8 09927   0878
UCBS70   00008 006360 09934   0893
UCBS71   00008 006408 09941   0908
UCBS72   00008 0064B0 09948   0923
UCBS73   00008 006558 09955   0938
UCBS74   00008 006600 09962   0953
UCBS75   00008 0066A8 09969   0968
UCBS76   00008 006750 09976   0983
UCBS77   00008 0067F8 09983   0998
UCBS78   00008 0068A0 09990   1013
UCBS79   00008 006948 09997   1028
UCBS80   00008 0069F0 10004   1043
UCBS81   00008 006A98 10011   1058
UCBS82   00008 006B40 10018   1073
UCBS91   00008 006E68 10049   1208
UCBS92   00008 006F10 10056   1223
UCBS93   00008 006FB8 10063   1238
UCBS94   00008 007060 10070   1253
UCBS95   00008 007108 10077   1268
UCBS96   00008 0071B0 10084   1283
UCBS97   00008 007258 10091   1298
UCBS98   00008 007300 10098   1313
UCBS99   00008 0073A8 10105   1328
UCBTAB   00001 004E52 07275   5274  5278
UCBTICBT 00001 000020 03853   5353  5512
UCBTYP   00001 000010 03798   4356  4664  5385  5543  5648  5650  5665  5667  5809  5840  5845  6012  6014  6016  6018
                              6033  6047  6117  6188  6222  6286  6413  6681  6712  6730  7010  7012  9134  9145  9451
                              9455  9457  9593  9595
UCBUA    00001 000005 03789   5868  7019
UCBUEX   00001 000080 03852   6075  6078
UCBUNSOL 00001 000001 03829   4564  4571
UCBUTB   00001 000013 09011   9136  9191
UCBVER   00001 000048 03865   4747
UCBVOL1  00001 00001C 03805   5847
UCBVOPT  00001 000030 03812   4564  4571  9150  9151  9151  9152
UCBVVR   00001 000040 03864   4643  5387  5849  6224
                                             CROSS-REFERENCE                                                   PAGE   22


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBWKADA 00001 0000D8 03816
UCBWKADB 00001 00003C 03815   4733
UCBWKDCC 00001 000050 03817   4734
UCBW1    00008 005D30 09830   0121
UCBW10   00008 005D50 09842   0214
UCBW100  00008 007480 10116   1348
UCBW101  00008 007528 10123   1363
UCBW102  00008 0075D0 10130   1378
UCBW103  00008 007678 10137   1393
UCBW104  00008 007720 10144   1408
UCBW105  00008 0077C8 10151   1423
UCBW106  00008 007870 10158   1438
UCBW107  00008 0078E8 10161   1449
UCBW108  00008 0078F0 10164   1460
UCBW109  00008 0078F8 10167   1475
UCBW110  00008 007948 10170   1490
UCBW111  00008 007998 10173   1505
UCBW112  00008 0079E8 10176   1520
UCBW113  00008 007A38 10179   1535
UCBW114  00008 007A88 10182   1550
UCBW115  00008 007AD8 10185   1565
UCBW116  00008 007B28 10188   1580
UCBW117  00008 007BA8 10195   1595
UCBW118  00008 007C50 10202   1610
UCBW119  00008 007CF8 10209   1625
UCBW120  00008 007DA0 10216   1640
UCBW121  00008 007E48 10223   1655
UCBW122  00008 007EF0 10230   1670
UCBW123  00008 007F98 10237   1685
UCBW124  00008 008040 10244   1700
UCBW125  00008 0080E8 10251   1715
UCBW126  00008 008190 10258   1730
UCBW127  00008 008238 10265   1745
UCBW128  00008 0082E0 10272   1760
UCBW129  00008 008388 10279   1775
UCBW130  00008 008430 10286   1790
UCBW131  00008 0084D8 10293   1805
UCBW132  00008 008580 10300   1820
UCBW141  00008 008610 10304   1921
UCBW142  00008 008640 10309   1934
UCBW143  00008 008670 10314   1947
UCBW144  00008 0086A0 10319   1960
UCBW145  00008 0086D0 10324   1973
UCBW146  00008 008700 10329   1986
UCBW147  00008 008730 10334   1999
UCBW148  00008 008760 10339   2012
UCBW149  00008 008790 10344   2025
UCBW150  00008 0087C0 10349   2038
UCBW151  00008 0087F0 10354   2051
UCBW152  00008 008820 10359   2064
UCBW153  00008 008850 10364   2077
UCBW154  00008 008880 10369   2090
UCBW155  00008 0088B0 10374   2103
UCBW156  00008 0088E0 10379   2116
UCBW157  00008 0088F8 10383   2129
                                             CROSS-REFERENCE                                                   PAGE   23


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBW158  00008 008900 10386   2142
UCBW159  00008 008908 10389   2155
UCBW160  00008 008910 10392   2168
UCBW161  00008 008918 10395   2181
UCBW162  00008 008920 10398   2194
UCBW163  00008 008928 10401   2207
UCBW164  00008 008930 10404   2220
UCBW165  00008 008938 10407   2233
UCBW166  00008 008940 10410   2246
UCBW167  00008 008948 10413   2259
UCBW168  00008 008950 10416   2272
UCBW169  00008 008958 10419   2285
UCBW170  00008 008960 10422   2298
UCBW171  00008 008968 10425   2311
UCBW172  00008 008970 10428   2324
UCBW173  00008 008978 10431   2337
UCBW174  00008 008980 10434   2350
UCBW175  00008 008988 10437   2363
UCBW176  00008 008990 10440   2376
UCBW177  00008 008998 10443   2389
UCBW178  00008 0089A0 10446   2402
UCBW179  00008 0089A8 10449   2415
UCBW180  00008 0089B0 10452   2428
UCBW181  00008 0089B8 10455   2441
UCBW182  00008 0089C0 10458   2454
UCBW183  00008 0089C8 10461   2467
UCBW184  00008 0089D0 10464   2480
UCBW185  00008 0089D8 10467   2493
UCBW186  00008 0089E0 10470   2506
UCBW187  00008 0089E8 10473   2519
UCBW188  00008 0089F0 10476   2532
UCBW189  00008 0089F8 10479   2545
UCBW190  00008 008A00 10482   2558
UCBW191  00008 008A08 10485   2571
UCBW192  00008 008A10 10488   2584
UCBW193  00008 008A18 10491   2597
UCBW194  00008 008A20 10494   2610
UCBW195  00008 008A28 10497   2623
UCBW196  00008 008A30 10500   2636
UCBW197  00008 008A38 10503   2649
UCBW198  00008 008A40 10506   2662
UCBW199  00008 008A48 10509   2675
UCBW200  00008 008A50 10512   2688
UCBW201  00008 008A58 10515   2701
UCBW202  00008 008A60 10518   2714
UCBW203  00008 008A68 10521   2727
UCBW204  00008 008A70 10524   2740
UCBW205  00008 008A78 10527   2753
UCBW206  00008 008A80 10530   2766
UCBW207  00008 008A88 10533   2779
UCBW224  00008 008A90 10536
UCBW225  00008 008A98 10539
UCBW226  00008 008AA0 10542
UCBW227  00008 008AA8 10545
UCBW228  00008 008AB0 10548
                                             CROSS-REFERENCE                                                   PAGE   24


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBW229  00008 008AB8 10551
UCBW230  00008 008AC0 10554
UCBW231  00008 008AC8 10557
UCBW232  00008 008AD0 10560
UCBW233  00008 008AD8 10563
UCBW234  00008 008AE0 10566
UCBW235  00008 008AE8 10569
UCBW236  00008 008AF0 10572
UCBW237  00008 008AF8 10575
UCBW238  00008 008B00 10578
UCBW239  00008 008B08 10581
UCBW240  00008 008B10 10584
UCBW241  00008 008B18 10587
UCBW242  00008 008B20 10590
UCBW243  00008 008B28 10593
UCBW244  00008 008B30 10596
UCBW245  00008 008B38 10599
UCBW246  00008 008B40 10602
UCBW247  00008 008B48 10605
UCBW248  00008 008B50 10608
UCBW249  00008 008B58 10611
UCBW250  00008 008B60 10614
UCBW251  00008 008B68 10617
UCBW252  00008 008B70 10620
UCBW253  00008 008B78 10623
UCBW254  00008 008B80 10626
UCBW255  00008 008B88 10629
UCBW256  00008 008B90 10632
UCBW257  00008 008B98 10635
UCBW258  00008 008BA0 10638
UCBW259  00008 008BA8 10641
UCBW260  00008 008BB0 10644
UCBW261  00008 008BB8 10647
UCBW262  00008 008BC0 10650
UCBW263  00008 008BC8 10653
UCBW264  00008 008BD0 10656
UCBW265  00008 008BD8 10659
UCBW266  00008 008BE0 10662
UCBW267  00008 008BE8 10665
UCBW268  00008 008BF0 10668
UCBW269  00008 008BF8 10671
UCBW270  00008 008C00 10674
UCBW271  00008 008C08 10677
UCBW4    00008 005D38 09833   0150
UCBW43   00008 005D58 09845   0528  0529
UCBW44   00008 005D70 09849   0539  0540
UCBW47   00008 005D88 09853   0569
UCBW48   00008 005D90 09856   0580
UCBW49   00008 005D98 09859
UCBW5    00008 005D40 09836   0161
UCBW50   00008 005DA0 09862
UCBW51   00008 005DA8 09865   0613
UCBW52   00008 005DD0 09868   0628
UCBW53   00008 005DF8 09871   0643
UCBW54   00008 005E20 09874   0658
                                             CROSS-REFERENCE                                                   PAGE   25


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBW55   00008 005E48 09877   0673
UCBW56   00008 005E70 09880   0688
UCBW57   00008 005E98 09883   0703
UCBW58   00008 005EC0 09886   0718
UCBW59   00008 005EE8 09889   0733
UCBW60   00008 005F38 09892   0748
UCBW61   00008 005F88 09895   0763
UCBW62   00008 005FD8 09898   0778
UCBW63   00008 006028 09901   0793
UCBW64   00008 006078 09904   0808
UCBW65   00008 0060C8 09907   0823
UCBW66   00008 006118 09910   0838
UCBW67   00008 006198 09917   0853
UCBW68   00008 006240 09924   0868
UCBW69   00008 0062E8 09931   0883
UCBW70   00008 006390 09938   0898
UCBW71   00008 006438 09945   0913
UCBW72   00008 0064E0 09952   0928
UCBW73   00008 006588 09959   0943
UCBW74   00008 006630 09966   0958
UCBW75   00008 0066D8 09973   0973
UCBW76   00008 006780 09980   0988
UCBW77   00008 006828 09987   1003
UCBW78   00008 0068D0 09994   1018
UCBW79   00008 006978 10001   1033
UCBW80   00008 006A20 10008   1048
UCBW81   00008 006AC8 10015   1063
UCBW82   00008 006B70 10022   1078
UCBW83   00008 006BE8 10025   1093
UCBW84   00008 006C38 10028   1108
UCBW85   00008 006C88 10031   1123
UCBW86   00008 006CD8 10034   1138
UCBW87   00008 006D28 10037   1153
UCBW88   00008 006D78 10040   1168
UCBW89   00008 006DC8 10043   1183
UCBW9    00008 005D48 09839   0204
UCBW90   00008 006E18 10046   1198
UCBW91   00008 006E98 10053   1213
UCBW92   00008 006F40 10060   1228
UCBW93   00008 006FE8 10067   1243
UCBW94   00008 007090 10074   1258
UCBW95   00008 007138 10081   1273
UCBW96   00008 0071E0 10088   1288
UCBW97   00008 007288 10095   1303
UCBW98   00008 007330 10102   1318
UCBW99   00008 0073D8 10109   1333
UCB1     00002 0002C8 00116   7255  7459
UCB10    00002 0003E8 00209   7500
UCB100   00002 0014A4 01338   7778
UCB101   00002 0014E4 01353   7781
UCB102   00002 001524 01368   7784
UCB103   00002 001564 01383   7787
UCB104   00002 0015A4 01398   7790
UCB105   00002 0015E4 01413   7793
UCB106   00002 001624 01428   7796
                                             CROSS-REFERENCE                                                   PAGE   26


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCB107   00002 001664 01443   1448  7799
UCB108   00002 001684 01454   1459  7802
UCB109   00002 0016A4 01465   7805
UCB11    00002 000404 00219   7503
UCB110   00002 0016E4 01480   7808
UCB111   00002 001724 01495   7811
UCB112   00002 001764 01510   7814
UCB113   00002 0017A4 01525   7817
UCB114   00002 0017E4 01540   7820
UCB115   00002 001824 01555   7823
UCB116   00002 001864 01570   7826
UCB117   00002 0018A4 01585   7829
UCB118   00002 0018E4 01600   7832
UCB119   00002 001924 01615   7835
UCB12    00002 00041C 00228   7506
UCB120   00002 001964 01630   7838
UCB121   00002 0019A4 01645   7841
UCB122   00002 0019E4 01660   7844
UCB123   00002 001A24 01675   7847
UCB124   00002 001A64 01690   7850
UCB125   00002 001AA4 01705   7853
UCB126   00002 001AE4 01720   7856
UCB127   00002 001B24 01735   7859
UCB128   00002 001B64 01750   7862
UCB129   00002 001BA4 01765   7865
UCB13    00002 000434 00237   7509
UCB130   00002 001BE4 01780   7868
UCB131   00002 001C24 01795   7871
UCB132   00002 001C64 01810   7874
UCB133   00002 001CA4 01825   7877
UCB134   00002 001CCC 01836   7880
UCB135   00002 001CF4 01847   7883
UCB136   00002 001D1C 01858   7886
UCB137   00002 001D44 01869   7889
UCB138   00002 001D6C 01880   7892
UCB139   00002 001D94 01891   7895
UCB14    00002 00044C 00246   7512
UCB140   00002 001DBC 01902   7898
UCB141   00002 001DE4 01913   7901
UCB142   00002 001E18 01926   7904
UCB143   00002 001E4C 01939   7907
UCB144   00002 001E80 01952   7910
UCB145   00002 001EB4 01965   7913
UCB146   00002 001EE8 01978   7916
UCB147   00002 001F1C 01991   7919
UCB148   00002 001F50 02004   7922
UCB149   00002 001F84 02017   7925
UCB15    00002 000464 00255   7515
UCB150   00002 001FB8 02030   7928
UCB151   00002 001FEC 02043   7931
UCB152   00002 002020 02056   7934
UCB153   00002 002054 02069   7937
UCB154   00002 002088 02082   7940
UCB155   00002 0020BC 02095   7943
UCB156   00002 0020F0 02108   7946
                                             CROSS-REFERENCE                                                   PAGE   27


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCB157   00002 002124 02121   7949
UCB158   00002 002158 02134   7952
UCB159   00002 00218C 02147   7955
UCB16    00002 00047C 00264   7518
UCB160   00002 0021C0 02160   7958
UCB161   00002 0021F4 02173   7961
UCB162   00002 002228 02186   7964
UCB163   00002 00225C 02199   7967
UCB164   00002 002290 02212   7970
UCB165   00002 0022C4 02225   7973
UCB166   00002 0022F8 02238   7976
UCB167   00002 00232C 02251   7979
UCB168   00002 002360 02264   7982
UCB169   00002 002394 02277   7985
UCB17    00002 000494 00273   7521
UCB170   00002 0023C8 02290   7988
UCB171   00002 0023FC 02303   7991
UCB172   00002 002430 02316   7994
UCB173   00002 002464 02329   7997
UCB174   00002 002498 02342   8000
UCB175   00002 0024CC 02355   8003
UCB176   00002 002500 02368   8006
UCB177   00002 002534 02381   8009
UCB178   00002 002568 02394   8012
UCB179   00002 00259C 02407   8015
UCB18    00002 0004AC 00282   7524
UCB180   00002 0025D0 02420   8018
UCB181   00002 002604 02433   8021
UCB182   00002 002638 02446   8024
UCB183   00002 00266C 02459   8027
UCB184   00002 0026A0 02472   8030
UCB185   00002 0026D4 02485   8033
UCB186   00002 002708 02498   8036
UCB187   00002 00273C 02511   8039
UCB188   00002 002770 02524   8042
UCB189   00002 0027A4 02537   8045
UCB19    00002 0004C4 00291   7527
UCB190   00002 0027D8 02550   8048
UCB191   00002 00280C 02563   8051
UCB192   00002 002840 02576   8054
UCB193   00002 002874 02589   8057
UCB194   00002 0028A8 02602   8060
UCB195   00002 0028DC 02615   8063
UCB196   00002 002910 02628   8066
UCB197   00002 002944 02641   8069
UCB198   00002 002978 02654   8072
UCB199   00002 0029AC 02667   8075
UCB2     00002 0002E4 00126   7464
UCB20    00002 0004DC 00300   7530
UCB200   00002 0029E0 02680   8078
UCB201   00002 002A14 02693   8081
UCB202   00002 002A48 02706   8084
UCB203   00002 002A7C 02719   8087
UCB204   00002 002AB0 02732   8090
UCB205   00002 002AE4 02745   8093
                                             CROSS-REFERENCE                                                   PAGE   28


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCB206   00002 002B18 02758   8096
UCB207   00002 002B4C 02771   8099
UCB208   00002 002B80 02784   8102
UCB209   00002 002B98 02793   8105
UCB21    00002 0004F4 00309   7533
UCB210   00002 002BB0 02802   8108
UCB211   00002 002BC8 02811   8111
UCB212   00002 002BE0 02820   8114
UCB213   00002 002BF8 02829   8117
UCB214   00002 002C10 02838   8120
UCB215   00002 002C28 02847   8123
UCB216   00002 002C40 02856   8126
UCB217   00002 002C58 02865   8129
UCB218   00002 002C70 02874   8132
UCB219   00002 002C88 02883   8135
UCB22    00002 00050C 00318   7536
UCB220   00002 002CA0 02892   8138
UCB221   00002 002CB8 02901   8141
UCB222   00002 002CD0 02910   8144
UCB223   00002 002CE8 02919   8147
UCB224   00002 002D00 02928   8150
UCB225   00002 002D18 02937   8153
UCB226   00002 002D30 02946   8156
UCB227   00002 002D48 02955   8159
UCB228   00002 002D60 02964   8162 10685
UCB229   00002 002D78 02973   8165
UCB23    00002 000524 00327   7539
UCB230   00002 002D90 02982   8168
UCB231   00002 002DA8 02991   8171
UCB232   00002 002DC0 03000   8174
UCB2321  00001 000005 03872
UCB233   00002 002DD8 03009   8177
UCB234   00002 002DF0 03018   8180
UCB235   00002 002E08 03027   8183
UCB236   00002 002E20 03036   8186
UCB237   00002 002E38 03045   8189
UCB238   00002 002E50 03054   8192
UCB239   00002 002E68 03063   8195
UCB24    00002 00053C 00336   7542
UCB240   00002 002E80 03072   8198
UCB241   00002 002E98 03081   8201
UCB242   00002 002EB0 03090   8204
UCB243   00002 002EC8 03099   8207
UCB244   00002 002EE0 03108   8210
UCB245   00002 002EF8 03117   8213
UCB246   00002 002F10 03126   8216
UCB247   00002 002F28 03135   8219
UCB248   00002 002F40 03144   8222
UCB249   00002 002F58 03153   8225
UCB25    00002 000554 00345   7545
UCB250   00002 002F70 03162   8228
UCB251   00002 002F88 03171   8231
UCB252   00002 002FA0 03180   8234
UCB253   00002 002FB8 03189   8237
UCB254   00002 002FD0 03198   8240
                                             CROSS-REFERENCE                                                   PAGE   29


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCB255   00002 002FE8 03207   8243
UCB256   00002 003000 03216   8246
UCB257   00002 003018 03225   8249
UCB258   00002 003030 03234   8252
UCB259   00002 003048 03243   8255
UCB26    00002 00056C 00354   7548
UCB260   00002 003060 03252   8258
UCB261   00002 003078 03261   8261
UCB262   00002 003090 03270   8264
UCB263   00002 0030A8 03279   8267
UCB264   00002 0030C0 03288   8270
UCB265   00002 0030D8 03297   8273
UCB266   00002 0030F0 03306   8276
UCB267   00002 003108 03315   8279
UCB268   00002 003120 03324   8282
UCB269   00002 003138 03333   8285
UCB27    00002 000584 00363   7551
UCB270   00002 003150 03342   8288
UCB271   00002 003168 03351   8291
UCB272   00002 003180 03360   8294
UCB273   00002 003198 03369   8297
UCB274   00002 0031B0 03378   8300
UCB275   00002 0031C8 03387   8303
UCB276   00002 0031E0 03396   8306
UCB277   00002 0031F8 03405   8309
UCB278   00002 003210 03414   8312
UCB279   00002 003228 03423   8315
UCB28    00002 00059C 00372   7554
UCB280   00002 003240 03432   8318
UCB281   00002 003258 03441   8321
UCB282   00002 003270 03450   8324
UCB283   00002 003288 03459   8327
UCB284   00002 0032A0 03468   8330
UCB285   00002 0032B8 03477   8333
UCB286   00002 0032D0 03486   8336
UCB287   00002 0032E8 03495   8339
UCB288   00002 003300 03504   8342
UCB289   00002 003318 03513   8345
UCB29    00002 0005B4 00381   7557
UCB290   00002 003330 03522   8348
UCB291   00002 003348 03531   8351
UCB292   00002 003360 03540   8354
UCB293   00002 003378 03549   8357
UCB294   00002 003390 03558   8360
UCB295   00002 0033A8 03567   8363
UCB296   00002 0033C0 03576   8366
UCB297   00002 0033D8 03585   8369
UCB298   00002 0033F0 03594   8372
UCB299   00002 003408 03603   8375
UCB3     00002 0002FC 00135   7467
UCB30    00002 0005CC 00390   7560
UCB300   00002 003420 03612   8378
UCB301   00002 003438 03621   8381
UCB302   00002 003450 03630   8384
UCB303   00002 003468 03639   8387
                                             CROSS-REFERENCE                                                   PAGE   30


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCB31    00002 0005E4 00399   7563
UCB32    00002 0005FC 00408   7566
UCB33    00002 000614 00417   7569
UCB34    00002 00062C 00426   7572
UCB35    00002 000644 00435   7575
UCB36    00002 00066C 00446   7578
UCB37    00002 000694 00457   7581
UCB38    00002 0006BC 00468   7584
UCB39    00002 0006E4 00479   7587
UCB4     00002 000314 00144   0149  7470
UCB40    00002 00070C 00490   7590
UCB41    00002 000734 00501   7593
UCB42    00002 00075C 00512   7596
UCB43    00002 000784 00523   7599
UCB44    00002 0007A4 00534   7602
UCB45    00002 0007C4 00545   7613
UCB46    00002 0007DC 00554   7616
UCB47    00002 0007F4 00563   0568  7619
UCB48    00002 000814 00574   0579  7622
UCB49    00002 000834 00585   7625
UCB5     00002 000334 00155   0160  7473
UCB50    00002 00084C 00594   7628
UCB51    00002 000864 00603   7631
UCB52    00002 0008A4 00618   7634
UCB53    00002 0008E4 00633   7637
UCB54    00002 000924 00648   7640
UCB55    00002 000964 00663   7643
UCB56    00002 0009A4 00678   7646
UCB57    00002 0009E4 00693   7649
UCB58    00002 000A24 00708   7652
UCB59    00002 000A64 00723   7655
UCB6     00002 000354 00166   7476
UCB60    00002 000AA4 00738   7658
UCB61    00002 000AE4 00753   7661
UCB62    00002 000B24 00768   7664
UCB63    00002 000B64 00783   7667
UCB64    00002 000BA4 00798   7670
UCB65    00002 000BE4 00813   7673
UCB66    00002 000C24 00828   7676
UCB67    00002 000C64 00843   7679
UCB68    00002 000CA4 00858   7682
UCB69    00002 000CE4 00873   7685
UCB7     00002 00037C 00177   7479
UCB70    00002 000D24 00888   7688
UCB71    00002 000D64 00903   7691
UCB72    00002 000DA4 00918   7694
UCB73    00002 000DE4 00933   7697
UCB74    00002 000E24 00948   7700
UCB75    00002 000E64 00963   7703
UCB76    00002 000EA4 00978   7706
UCB77    00002 000EE4 00993   7709
UCB78    00002 000F24 01008   7712
UCB79    00002 000F64 01023   7715
UCB8     00002 0003A4 00188   7484
UCB80    00002 000FA4 01038   7718
                                             CROSS-REFERENCE                                                   PAGE   31


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCB81    00002 000FE4 01053   7721
UCB82    00002 001024 01068   7724
UCB83    00002 001064 01083   7727
UCB84    00002 0010A4 01098   7730
UCB85    00002 0010E4 01113   7733
UCB86    00002 001124 01128   7736
UCB87    00002 001164 01143   7739
UCB88    00002 0011A4 01158   7742
UCB89    00002 0011E4 01173   7745
UCB9     00002 0003CC 00199   7497
UCB90    00002 001224 01188   7748
UCB91    00002 001264 01203   7751
UCB92    00002 0012A4 01218   7754
UCB93    00002 0012E4 01233   7757
UCB94    00002 001324 01248   7760
UCB95    00002 001364 01263   7763
UCB96    00002 0013A4 01278   7766
UCB97    00002 0013E4 01293   7769
UCB98    00002 001424 01308   7772
UCB99    00002 001464 01323   7775
UPBND    00001 0000A4 04118
VALCHK   00006 004692 06397   4350  5318
VALCHK2  00004 00469C 06399   6580
VALCHK3  00002 0046B0 06404   6582
WKREG1   00001 00000A 03719   4352  4359  4360  4362  4362  4366  4367  4392  4392  4393  4394  4395  4410  4411  4429
                              4430  4470  4471  4474  4478  4503  4504  4505  4513  4517  4518  4523  4524  4579  4582
                              4585  4588  4590  4592  4595  4596  4598  4604  4668  4669  4670  4682  4683  4696  4699
                              4700  4710  4722  4730  4799  4803  4805  4807  4813  4815  4817  4892  4895  4933  4937
                              4975  4976  4977  5000  5001  5065  5066  5066  5067  5105  5106  5107  5108  5119  5120
                              5120  5121  5177  5180  5181  5182  5182  5184  5187  5247  5248  5255  5257  5271  5279
                              5281  5281  5282  5283  5287  5345  5346  5360  5361  5372  5373  5374  5391  5392  5393
                              5418  5419  5467  5472  5473  5474  5488  5489  5489  5490  5492  5493  5497  5499  5545
                              5546  5582  5583  5584  5585  5586  5609  5613  5677  5678  5686  5687  5753  5754  5756
                              5758  5758  5775  5776  5791  5793  5796  5796  5797  5797  5815  5862  5863  5864  5865
                              5865  5866  5877  5878  5894  5895  5897  5900  5901  5902  6023  6024  6025  6028  6031
                              6032  6045  6046  6058  6059  6105  6106  6130  6193  6194  6245  6246  6247  6250  6251
                              6253  6260  6312  6313  6354  6355  6400  6401  6406  6406  6407  6408  6408  6689  6690
                              6690  6692  6695  6696  6731  6746  6748  6749  6772  6772  6790  6791  6795  6796  6800
                              6860  6861  6861  6865  6866  6867  6869  6872  6873  6874  6886  6887  6898  6899  6899
                              7021  7022  7024  7031  7032  7033  8427  8428  8440  8441  8441  8442  8443  8456  8457
                              8476  8571  8572  8596  8597  8600  8601  8606  8607  8613  8614  8618  8619  8619  8624
                              8651  8672  8673  8695  8696  8696  8701  8713  8714  8825  8826  8851  8855  8861  8865
                              8866  8866  8867  8868  8868  8869  8869  8870  8870  8871  8877  8878  9091  9092  9097
                              9100  9109  9110  9111  9112  9113  9114  9115  9116  9119  9121  9134  9136  9138  9141
                              9144  9147  9148  9150  9151  9159  9164  9166  9185  9186  9191  9194  9196  9317  9318
                              9337  9344  9345  9377  9378  9379  9381  9383  9387  9387  9393  9395  9467  9468  9469
                              9469  9472  9475  9490  9491  9492  9493  9494  9496  9497  9503  9505  9509  9514  9514
                              9515  9522  9527  9546  9704  9705  9706  9706
WKREG2   00001 00000B 03720   4387  4408  4519  4520  4599  4602  4603  4701  4701  4702  4703  4704  4706  4707  4796
                              4796  4797  4798  4799  4883  4989  5180  5181  5193  5201  5204  5255  5256  5257  5485
                              5486  5488  5564  5566  5566  5584  5601  5602  5748  5749  5751  5753  5760  5768  5772
                              5773  5774  5774  5780  5792  5794  5895  5896  5896  5897  6003  6010  6024  6026  6081
                              6097  6098  6119  6120  6158  6161  6179  6182  6276  6279  6353  6354  6355  6362  6362
                              6404  6405  6407  6711  6724  6724  6726  6730  6732  6734  6798  6800  6802  6802  8469
                              8470  8471  8471  8472  8585  8586  8586  8611  8664  8666  8688  8700  8700  8852  8853
                                             CROSS-REFERENCE                                                   PAGE   32


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              8861  8880  8916  8917  8918  8960  8961  8980  8981  9090  9092  9095  9102  9110  9111
                              9112  9113  9114  9117  9122  9123  9124  9125  9126  9127  9128  9131  9133  9144  9145
                              9148  9149  9151  9152  9164  9183  9186  9188  9188  9200  9282  9283  9295  9383  9384
                              9394  9394  9395  9396  9396  9397  9399  9400  9401  9402  9466  9470  9472  9473  9473
                              9475  9479  9481  9509  9510  9511  9526  9532  9534  9535  9537  9538  9544  9546  9547
                              9547
WKREG2S  00004 0048F4 06606
WKREG3   00001 00000C 03721   3722  4581  4590  4591  4592  4595  4596  4597  4598  4603  4698  4700  4705  4706  4707
                              4708  4709  4710  4714  4717  4733  4734  4734  5565  5565  5568  5568  5570  5571  5773
                              6358  6361  6361  6799  6803  8472  8473  8473  8475  8915  8916  8918  9094  9095  9097
                              9100  9102  9103  9103  9104  9140  9154  9155  9157  9158  9184  9184  9185  9189  9189
                              9198  9199  9200  9398  9399  9401  9402  9496  9515  9522
WORDMASK 00004 0048C0 06593   6405
XBASE    00002 003552 04300   8758
XCPBTE   00001 004921 06623   4326  4343  4409  4690  5131  5174  5249  5317  5319  5590  5605  5617  6151  6320  6322
                              8551  8553  8598  8604  8643  8646  8665  8670  8689  8692  8761  8924  8967  8977  9239
                              9323  9338  9701
XCPCCW80 00004 0051DA 08472
XCPCH1   00002 004C3C 06923   7260
XCPCH2   00002 004C48 06933   7262
XCPCH3   00002 004C54 06943   7264
XCPCH4   00002 004C60 06953   7266
XCPCH5   00002 004C6C 06963   7268
XCPCH6   00002 004C78 06973   7270
XCPCH7   00002 004C84 06983   7272
XCPCNT   00001 000080 04034   4326  4690  5131  5174  5249  5590  5605  6151  6320  8598  8646  8692  8761  8924  9323
                              9701
XCPDDRDQ 00002 003B7A 05177   8510  8562  9060  9208  9233
XCPDRM   00004 0038CC 04738
XCPDRM1  00002 0038D0 04739   4735
XCPENB   00001 004922 06624   5593  5608
XCPENQ   00001 0051AC 08448   6698  7153  7158  7168  7173  7188  7193  7198
XCPENQ1  00004 0051AC 08449
XCPENQ2  00004 0051B4 08451
XCPERR   00001 000020 04035   4343  4690  5131  5174  5249  6151  6320  6322  8598  8692  8924  9323  9701
XCPPDQ   00001 003B70 05173   4568  4852  4958  5052  5152  5735  6085  6268  6758
XCPPIO   00004 003A6A 05045   4935  6793
XCPPIO1  00004 003A72 05049   4728
XCPPIO1A 00002 003A84 05058   4676
XCPPIO2  00004 003A84 05059   5045
XCPPIO3  00002 003AAA 05073   4684
XCPPI04  00004 003B06 05113
XCPPI04A 00004 003B16 05117   5114
XCPPI05  00004 003B1E 05119
XCPPNQ   00004 005178 08427   6331  6442  6698  9795
XCPPNQB  00002 00517E 08429   6331
XCPPNQD  00002 00519C 08438   8431
XCPPST   00004 004652 06353   5447  9046
XCPRECFM 00006 0049FC 06744   6740
XCPRECUR 00001 000008 04038   5249  8551  8553  8670  8689
XCPRMS   00001 000010 04037   5590  5605  5617  8924  8967  8977
XCPRPS   00004 0038BC 04733   4665
XCPRQE1  00002 005510 08837   8834
XCPRQE2  00002 005512 08838   8828
XCPSIO   00004 0039F0 04935   4605  4740  4897
                                             CROSS-REFERENCE                                                   PAGE   33


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

XCPST    00001 000001 04036   5249  5590  5605
XCPTCBFD 00004 004660 06358
XCPTCH   00002 004CA4 07007
XCPTCH2  00002 004CD4 07030   7006
XCPTCH3  00002 004CC0 07018   6925
XCPTCH3A 00002 004CBE 07017   7013
XCPTCH8  00002 004CA0 07005   6996
XCPTCH9  00002 004C90 06994   6935  6945  6955  6965  6975  6985
XCPTPT   00002 004260 05915   7170
XCPTST   00002 00365C 04453   4412
XCPTST1  00002 00366A 04461   9389
XCPTST2  00002 003688 04474   4511
XCPTST2C 00006 0036A8 04484   4482
XCPVALID 00001 000002 04039   4326  4409  5249  5317  5319  8604  8643  8689  9239  9323  9338
XCPVOLVR 00004 003908 04758   4748
XCP010A  00004 0036C0 04496   6686
XCP011   00004 0036D2 04501   4432  5688
XCP020   00004 00363E 04422
XCP020A  00004 003626 04410
XCP021   00002 003644 04425   4383  4416  4525  5620  8596
XCP021A  00004 003646 04426   8699
XCP022   00004 003632 04416   4410  4429
XCP03E   00004 003968 04821   4804  4806  4808
XCP03F   00004 00398E 04844   4835
XCP030   00004 00364C 04429   4417
XCP054   00004 003B2E 05131   5070
XCP054A  00001 003B4A 05138   5132
XCP054C  00004 003B4A 05139
XCP054D  00004 003B56 05143   5059
XCP054G  00004 003B5E 05147   5137
XCP056C  00004 003B68 05152   5083
XCP056E  00004 003AC2 05082   8810
XCP056G  00004 003ADA 05090   5088
XCP056H  00002 003AFE 05110   5092
XCP060   00004 00360A 04400   4327
XCP061   00002 003598 04351   4349
XCP061A  00004 0035C8 04365   4361
XCP061B  00004 0035B0 04358   4354
XCP061C  00001 0035D4 04368   4357
XCP061C1 00002 0035F6 04386   4379
XCP061D  00004 0035F6 04387
XCP064   00002 0035FA 04392   3696  4431  4494  5135  5176  6324  8427  8563  9168  9173
XCP070   00004 0036EE 04513   4464
XCP072   00006 0036E4 04510   4469  4472
XCP080   00004 0051C4 08456   8450
XCP081   00004 0051B8 08452   8458
XCP091   00002 003B84 05180   5179
XCP092   00004 003B9C 05191   5200
XCP092A  00004 003BAC 05197   5183
XCP093   00004 003BB2 05200   5185
XCP100   00001 0051AC 08447   7178  7183
XCP110   00004 003A1E 04964   4723  4939  6767
XCP110A  00002 003A1A 04962   4954
XCP110B  00002 003A38 04972   4970
XCP110C  00006 003A32 04971   4968
                                             CROSS-REFERENCE                                                   PAGE   34


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

XCP111   00004 0039F4 04937   4671
XCP111A  00001 0039F4 04936
XCP111B  00004 0039F8 04938
XCP111C  00004 003A00 04940
XCP113   00004 003A62 05000
XCP120   00001 0039E2 04896   4894
XCP121   00004 0039D2 04892   7169
XCP130   00006 0039E6 04932   4577  4891
XCP131C  00002 003776 04589   4584  4587
XCP132B  00006 0037A8 04603   4601
XCP133   00006 0037AE 04604   4594
XCP160   00004 00384C 04694   4656
XCP161   00004 0037EA 04660   4658
XCP161A  00006 003960 04817   4814
XCP161B  00001 0037F6 04663   4661
XCP161C  00002 00380E 04672
XCP162   00002 003816 04677   4680
XCP163   00002 0038A2 04719   4694
XCP165   00004 0038A2 04722   4731
XCP165AB 00004 0038AC 04727
XCP166A  00004 0038B4 04730   4654  4752
XCP167   00004 003996 04848   4834
XCP167A  00004 00399E 04850   4845
XCP168   00002 0038D4 04742   4644
XCP169A  00004 003844 04690
XCP178   00004 003900 04755   4744
XCP188   00002 0037C0 04645   4756
XERX00   00004 005294 08548   6418
XERX00A  00002 005298 08549   8547
XERX01   00004 00533A 08610   8599
XERX01A  00002 005352 08617   8615
XERX01B  00002 005362 08622   8626
XERX02   00004 0052C6 08562   6414  8560
XERX02A  00004 005300 08596   6421  8552  8556  8587  8591
XERX02B  00004 00543A 08703   4377
XERX02C  00004 005442 08705   4342  4346
XERX02D  00004 00544A 08707   4364
XERX02E  00004 0052CE 08571   8513  8704  8706  8708
XERX02F  00004 0052F8 08593   8573
XERX02F1 00004 0046DA 06419   4384
XERX03   00004 005410 08689   8693
XERX04   00004 005372 08642   8697
XERX04A  00004 00538E 08649   8644  8647  8702
XERX04B  00004 0053F4 08675   8671
XERX04C  00004 0053F8 08676   8674
XERX05   00004 005416 08692   8612  8623
XERX06   00002 00541E 08694
XERX07   00004 005452 08713   8606
XERX07B  00006 005330 08608   8603  8605
XERX09   00004 00542A 08698   9326  9328
XERX09A  00004 00542E 08699   8762
XEXCP    00002 003548 04296
XIODSK   00002 0037B8 04642   7179
XIODSK1  00004 0037CC 04653   4650
XIODSK1A 00004 0037D4 04655   4753  4760  4762
                                             CROSS-REFERENCE                                                   PAGE   35


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

XIODSK8  00002 003856 04697
XIOTPE   00002 00373E 04573   4565  7194
XIOTPEA  00004 00371E 04564   7189
XIOTPE8  00002 003754 04580
XIOTP00  00004 00373A 04571   4567
XIOTP01  00004 00374E 04578   4575
XIOUR    00004 0039CA 04889   4880  4882  7154  7159  7199
XIOWR    00001 0039AA 04878   7174
XITFTR   00004 00476C 06467   5815  6253
XVCK01   00002 003562 04337   9336
XVCK02   00001 00358C 04347   4344
ZDEBAD   00004 004704 06438
ZDEBPRG  00004 005BF8 09678   6438
ZERO     00001 000000 04095   4479  4524  4964  5106  5389  5486  5493  5583  5597  5749  5751  5773  5790  5828  5847
                              5850  5991  6026  6057  6081  6097  6119  6267  6315  8561  8876  8938  8948  8949  9401
                              9402  9459  9487  9488  9494  9509  9655  9657  9666  9705  9713  9738  9747  9764
ZEUSA    00001 000006 03873
ZEUSC    00001 000007 03874



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =  2156      SOURCE RECORDS (SYSLIB) =  9193
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
12921 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM38.R0000165      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM38.S0000166      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM38.S0000166      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG39    / START 78240.1945
IEF374I STEP /SG39    / STOP  78240.1945 CPU   0MIN 07.78SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:36.10   ALLOC START    19:45:36.11   MAIN REGION ----- 300K                          *
*   STEP NAME SG39       STEP END TIME  19:45:44.33   PGM START TIME 19:45:36.19   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:08.23   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:07.78   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ---------- 250       0250 ------------ 0       0250 ------------ 0       0151 --------- 2145       0151 ---------- 573    *
*   0151 --------- 3666       0353 --------- 1616       0151 ---------- 828       0130 --------- 2158                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM38  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:44.36   ALLOC START    19:45:44.37   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:44.40   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM38 / START 78240.1945
IEF376I  JOB /R21AM38 / STOP  78240.1945 CPU   0MIN 07.78SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM38    JOB READ TIME 19:44:53.68   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:07.78   *
*   JOB CLASS A          JOB INIT TIME 19:45:36.10   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:08.31   *
*   ACCOUNT              JOB END TIME  19:45:44.41   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M  333333333   9999999                             A
            RRRRRRRRR  222222222      11        AAA     MM     MM  333333333  999999999                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM  33    33   99     99                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM       33    99     99                         AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM      3333   999999999                        AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM     333333   9999999                         AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM         33       99                          AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  33     33      99                           AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM  333333333     99                            AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM   3333333     99                             AA     AA

***********A  START   R21AM39    SYS SYSA   WTR 00E   07:47:22 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM39    START  A***********
***********A  START   R21AM39    SYS SYSA   WTR 00E   07:47:22 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM39    START  A***********
***********A  START   R21AM39    SYS SYSA   WTR 00E   07:47:22 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM39    START  A***********
***********A  START   R21AM39    SYS SYSA   WTR 00E   07:47:22 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM39    START  A***********
***********A  START   R21AM39    SYS SYSA   WTR 00E   07:47:22 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM39    START  A***********


//R21AM39 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG40 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IGFCCH)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM39  SG40
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IGFCAT    SD  01 000000 00079E
IGFCCH    LD     00075D         01
CHRADTAB  LD     000678         01
ERPIBFD   LD     0006D0         01
IECILK2   ER  02
IECILK1   ER  03
SIRB      ER  04
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  IGFCATAP 0,1,1
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                4+IGFCAT   CSECT  .   ENTRY POINT TO CCH                              CSC

000000                                6+         USING *,CCHBASE .
000000                                7+         USING RECENTRY,REREG .        DUSING STATEMENT FOR RECORD ENT
000000                                8+         USING CVTDSECT,CVTREG .        USING STATEMENT FOR CVT
000000                                9+         USING CCHPTTAB,WRK4 .     BASE FOR POINTER TABLE DSECT   19032
                                     10+         ENTRY IGFCCH
                                     11+         ENTRY CHRADTAB .          ADDRESS OF ROUTINE ADDR TABLE  19032
                                     12+         ENTRY ERPIBFD .           ADDRESS OF ERPIB FIELD         19032
                                     13+         EXTRN IECILK2 .    ADDRESS OF LIST OF UCB ADDRESSES       CSC
                                     14+         EXTRN IECILK1 .    ADDRESS OF LOOKUP TABLE                CSC
                                     15+         EXTRN SIRB
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     17+***********************************************************************
                                     18+*
                                     19+* STATUS ---- 20.00
                                     20+*
                                     21+* FUNCTION --- THE FUNCTION OF THIS MACRO IS TO DETERMINE THE CAUSE
                                     22+*              OF A PREVIOUS CHANNEL ERROR, GENERATE AN I/O INBOARD
                                     23+*              RECORD ENTRY TO BE WRITTEN AT A LATER TIME BY OBR, AND
                                     24+*              ATTEMPT RECOVERY BY ONE OF SEVERAL METHODS.  THE METHOD
                                     25+*              USED IS DEPENDENT UPON THE INTERCEPT POINT WITHIN IOS
                                     26+*              AND THE CAUSE OF THE ERROR.

                                     28+*                   1. RETRY THE INSTRUCTION CAUSING TROUBLE.
                                     29+*                   2. DEVELOP  AN INTERFACE BYTE TO BE GIVEN TO THE
                                     30+*                      ERP'S TO AID THEM IN RECOVERY

                                     32+* ENTRY PTS -- CCH CAN BE ENTERED ONLY WHEN A CHANNEL ERROR IS REALIZED
                                     33+*        IN IOS.

                                     35+*                   IGFCAT                                          CSC

                                     37+* INPUT ------ 1. CHANNEL LOG
                                     38+*              2. PROGRAM STATUS WORD
                                     39+*              3. I/O OLD PSW
                                     40+*              4. REGISTERS AND POINTERS WITHIN OS
                                     41+*              5. IOB,UCB,ETC.

                                     43+* OUTPUT ----- 1. ERPIB
                                     44+*              2. RECORD ENTRY

                                     46+* EXT REF ---- IEACVT

                                     48+*
                                     49+* EXIT,NORMAL -CCH WILL RETURN CONTROL TO THE APPROPRIATE POINT WITHIN
                                     50+*              IOS DEPENDING ON THE TYPE AND PLACE OF ERROR. RETURN
                                     51+*              IS VIA LINK REGISTER 14 PLUS A DISPLACEMENT DETERMINED
                                     52+*              WHEN THE ERROR IS DIAGNOSED.
                                     53+*
                                     54+* EXIT,ERROR - IF CCH DETERMINES THAT THE ERROR IS CATASTROPHIC (SYSTEM
                                     55+*              INTEGRITY HAS BEEN LOST), THE MACHINE CHECK NEW PSW
                                     56+*              IS LOADED.
                                     57+*
                                     58+* TABLES ----- 1. ERPIB TABLE
                                     59+*              2. RECORD ENTRY TABLE
                                     60+*              3. CCH POINTER TABLE
                                     61+*              4. CCH DEPENDENT ROUTINE ADDRESS TABLE
                                     62+*
                                     63+* ATTRIBUTES --SERIALLY REUSABLE,DISABLED, PRIVILEGED
                                     64+*
                                     65+***********************************************************************
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     67+***********************************************************************
                                     68+* NOTES
                                     69+***********************************************************************
                                     70+*              2870 LOG FORMAT



                                     72+*        LOG WORD ONE

                                     74+***********************************************************************
                                     75+*KEY *OPS *      DATA ADDRESS      * FLAGS * STATUS  *   BYTE COUNT   *
                                     76+***********************************************************************
                                     77+* 0-3  4-7           8-31            32-38    39-47         48-63
                                     78+*
                                     79+*        OPS                            STATUS
                                     80+*
                                     81+*        4   - INCORRECT LENGTH         39 - PREFETCH
                                     82+*        5   - HALT I/O BIT             40 - DATA ADDRESS PROG. CHECK
                                     83+*        6,7 - OPERATION CODE           41 - CONTROL CHECK
                                     84+*                00 - IDLE              42 - PROGRAM CHECK
                                     85+*                01 - WRITE             43 - PROTECTION CHECK
                                     86+*                10 - READ              44 - DATA CHECK
                                     87+*                11 - READ BACKWARD     45-47 - BYTE COUNTER (MSC ONLY)
                                     88+*                                       46 - COUNT PO (SSC ONLY)
                                     89+*                                       47 - COUNT 7 (SSC ONLY)


                                     91+*        LOG WORD TWO

                                     93+***********************************************************************
                                     94+*KEY *XXXX*    COMMAND ADDRESS     * PARITY * RESIDUAL COMMAND ADDR.  *
                                     95+***********************************************************************
                                     96+* 0-3  4-7          8-31              32-39          40-63
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     98+*        LOG WORD THREE

                                    100+***********************************************************************
                                    101+* CONTROL TGRS. *CHN*UNIT ADDR*XXXXXX* CHECKS *X*SUB CHAN* SEL SUB  *X*
                                    102+***********************************************************************
                                    103+*       8-20    21-23  24-31   32-36   37-46  47   48-55   56-62    63
                                    104+*
                                    105+*   CONTROL TGRS.             CHECKS              SELECTOR SUB CHANNEL
                                    106+*
                                    107+*                              37 - UAB0 ERROR                        I
                                    108+*                              38 - DATA ERROR                        I
                                    109+*   0 - CAW                   39 - SECOND CHECK   56 - BC P
                                    110+*   1 - CCW REQD              40 - WORD 0 UCW     57 - BC 4
                                    111+*   2 - CCW IN CHAN           41 - WORD 2 UCW     58 - BC 2
                                    112+*   3 - DATA REQD             42 - LOC STOR ADDR  59 - BC 1
                                    113+*   4 - START I/O             43 - STORAGE        60 - ILI
                                    114+*   5 - TEST I/O              44 - BYTE COUNT     61 - DATA CHECK
                                    115+*   6 - HALT I/O              45 - TIME COUNT     62 - CHAIN CHECK
                                    116+*   7 - PSEUDO SIO            46 - PRIORITY
                                    117+*   8 - MODE 1
                                    118+*   9 - MODE 2                SUB CHANNEL
                                    119+*  10 - MODE 3
                                    120+*  11 - MODE 4                48 - UNIT ADDRESS CHECK
                                    121+*  12                         49 - COMMAND CHECK
                                    122+*  13   MODE 6                50 - BYTE COUNT CHECK (SSC ONLY)
                                    123+*  14   MODE 7                51 - INCORRECT SELECTION
                                    124+*  15                         52 - NO RESPONSE
                                    125+*  16   MODE 9                53 - INCORRECT TAG SEQUENCE
                                    126+*  17   MODE 10               54 - AD-1 CHECK
                                    127+*  18   MODE 11               55 - ST-1 CHECK
                                    128+*  19
                                    129+*  20   MC BC PARITY          48-50 ARE CHANNEL CONTROL CHECKS
                                    130+*                             51-55 ARE INTERFACE CONTROL CHECKS
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    132+*              2860 LOG FORMAT



                                    134+*        LOG WORD ONE

                                    136+***********************************************************************
                                    137+*TAGS*0000*    COMMAND ADDRESS     * STATUS * CHANNEL*   BYTE COUNT   *
                                    138+***********************************************************************
                                    139+* 0-3  4-7           8-31            32-39     40-47      48-63


                                    141+*        LOG WORD TWO

                                    143+***********************************************************************
                                    144+* B REG  * CC 1   *FLGS* CHN*UNIT ADD*      DATA ADDRESS      *SIM I.F*
                                    145+***********************************************************************
                                    146+*  0-7     8-15   16-20 21-23 24-31           32-55             56-63


                                    148+*        LOG WORD THREE

                                    150+***********************************************************************
                                    151+*  CONTROL TRIGGERS      * CLOCK   * I. F. TAGS     * REG. PARITIES   *
                                    152+***********************************************************************
                                    153+*         0-23             24-31        32-47             48-63
                                    154+*
                                    155+*  CONTROL TRIGGERS           I. F. TAGS          REGISTER PARITIES
                                    156+*
                                    157+*   0 - A REG PULL            32 - OP-I           48 - STORAGE PROTECT
                                    158+*   1 - B REG PULL            33 -                49 - P0 COMMAND ADDR.
                                    159+*   2 - CHAIN CMD LATCH       34 - AD-O LATCH     50 - P1 COMMAND ADDR.
                                    160+*   3 - SEQ 1                 35 - SL-O LATCH     51 - P2 COMMAND ADDR.
                                    161+*   4 - SEQ 2                 36 - SR-O LATCH     52 - DATA IN BUS
                                    162+*   5 - SEQ 3                 37 - CM-O           53 - P0 COUNT
                                    163+*   6 - SEQ 4                 38 - SIO LATCH      54 - P1 COUNT
                                    164+*   7 - SEQ 5                 39 - HALT I/O LATCH 55 - P2 COUNT
                                    165+*   8 - CCW VAILD             45 - STOR CHECK     56 - UNIT ADDRESS
                                    166+*   9 - READ                                      57 - P0 DATA ADDRESS
                                    167+*  10 - WRITE                                     58 - P1 DATA ADDRESS
                                    168+*  11 - SET UP                                    59 - P2 DATA ADDRESS
                                    169+*  12 - TIC                                       60 - MARK B
                                    170+*  13 - TIC CYCLE                                 61 - COMMAND
                                    171+*  14 - POLLING INTERRUPT                         62 - FLAG
                                    172+*  15 - CDA LATCH                                 63 - SIM I. F.
                                    173+*  16 - LAST WORD TRGR
                                    174+*  17 - BC = CTB TRGR
                                    175+*  18 - BC = 0 LATCH
                                    176+*  19 - BC = 0 TRGR
                                    177+*  20 - BC REG PAR
                                    178+*  21 - BIT 3 BC REG
                                    179+*  22 - BIT 2 BC REG
                                    180+*  23 - BIT 1 BC REG
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    182+*                     INBOARD  RECORD  ENTRY  AREA                    *

                                    184+*     *****************************************************************
                                    185+*  +0 *                                                               *
                                    186+*     *                        COUNT FIELD                            *
                                    187+*     *                                                               *
                                    188+*     *****************************************************************
                                    189+*  +8 *               *               *                               *
                                    190+*     *     KEY       *   SWITCHES    *   SPARE    *
                                    191+*     *               *               *                               *
                                    192+*     *****************************************************************
                                    193+* +16 *                               *                               *
                                    194+*     *              DATE             *          TIME                 *
                                    195+*     *                               *                               *
                                    196+*     *****************************************************************
                                    197+* +24 *                                                               *
                                    198+*     *             *      CPU  SERIAL  NUMBER                        *
                                    199+*     *             *
                                    200+*     *****************************************************************
                                    201+*     *                               *                               *
                                    202+*     *      CPU MODEL NUMBER         *  MAX MCEL LENGTH              *
                                    203+*     *                               *                               *
                                    204+*     *****************************************************************
                                    205+* +32 *                                                               *
                                    206+*     *                       JOB  IDENTITY                           *
                                    207+*     *                                                               *
                                    208+*     *****************************************************************
                                    209+* +40 *                                                               *
                                    210+*     *                                                               *
                                    211+*     *                ACTIVE I/O UNITS                               *
                                    212+*     *                                                               *
                                    213+*     *                                                               *
                                    214+*     *****************************************************************
                                    215+* +56 *                                                               *
                                    216+*     *                        FAILING   CCW                          *
                                    217+*     *                                                               *
                                    218+*     *****************************************************************
                                    219+* +64 *                                                               *
                                    220+*     *               CHANNEL  STATUS  WORD                           *
                                    221+*     *                                                               *
                                    222+*     *****************************************************************
                                    223+* +72 *                               *                               *
                                    224+*     *     ECSW/RIGHT HALF ERPIB     *        DEVICE TYPE            *
                                    225+*     *                               *                               *
                                    226+*     *****************************************************************
                                    227+* +80 *                               *                               *
                                    228+*     *  CHAN *  CONTROL UNIT ADDRESS *     MP  INFORMATION           *
                                    229+*     *   ID  *                       *                               *
                                    230+*     *****************************************************************
                                    231+* +88 *                                                               *
                                    232+*     *               2860/2870 - 24 BYTES                            *
                                    233+*     *               2880      - 112 BYTES                           *
                                    234+*     *               A48       - 4 BYTES                             *
                                    235+*     *****************************************************************
                                    236+*
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    237+* KEY
                                    238+*
                                    239+*   BYTE 0 = 20 = CCH
                                    240+*   BYTE 1 -
                                    241+*        BITS 0-1 = 00 = OS SYSTEM
                                    242+*        BIT  2   = SPARE
                                    243+*        BITS 3-7 = RELEASE LEVEL IN BINARY
                                    244+*
                                    245+* SWITCHES
                                    246+*
                                    247+*   BYTE 0 -
                                    248+*        BIT 0 = OPERATION ACTION MESSAGE
                                    249+*        BIT 1 = NS MACHINE (DATE AND TIME FROM NS CLOCK)
                                    250+*        BIT 2 = EC MODE
                                    251+*        BITS 3-7 = NOT USED
                                    252+*
                                    253+*   BYTE 1 -
                                    254+*        BIT 0 = MESSAGE REQUIRED
                                    255+*        BIT 1 = RECORD INCOMPLETE
                                    256+*        BIT 2 = CCH TERMINATED SYSTEM
                                    257+*        BIT 3 = CHANNEL NOT SUPPORTED
                                    258+*        BITS 4-7 = NOT USED
                                    259+*********
                                    260+*
                                    261+*
                                    262+* MULTIPROCESSING INFORMATION
                                    263+*
                                    264+*   BYTE 0 - MULTI-SYSTEM FLAGS
                                    265+*          0-2 - NOT USED
                                    266+*            3 - MULTI-SYSTEM ENVIRONMENT PRESENT
                                    267+*                    IF THE MULTI-SYSTEM BIT IS ZERO,
                                    268+*                    THERE IS NO MEANINGFUL INFORMATION
                                    269+*                    IN THE REST OF THE MP INFORMATION FIELD
                                    270+*            4 - CPUID
                                    271+*                    0 - CPU NUMBER 1
                                    272+*                    1 - CPU NUMBER 2
                                    273+*            5 - NOT USED
                                    274+*          6-7 - CPUSTAT
                                    275+*                   00 - SHARED
                                    276+*                    01 - PARTITIONED
                                    277+*                   10 - SHARED BUT RECONFIGURED OUT
                                    278+*                   11 - NOT USED
                                    279+*
                                    280+*   BYTE 1 - RESERVED
                                    281+*
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    284+*                         ERPIB FIELD


                                    286+*        **************************************************************
                                    287+*        *       *              *PROGRAM*                             *
                                    288+*        *   0   * UCB ADDRESS  * FLAGS *    EXTENDED CHANNEL STATUS  *
                                    289+*        *       *              *       *                             *
                                    290+*        **************************************************************
                                    291+*          0-7         8-31      32-39              39-63
                                    292+*
                                    293+*        PROGRAM  FLAGS

                                    295+*           32 - CSW STORED FROM SIO INSTRUCTION
                                    296+*           33 - CSW STORED FROM INTERRUPT
                                    297+*           34 - CSW STORED FROM TIO INSTRUCTION
                                    298+*           35 - CSW STORED FROM HIO INSTRUCTION
                                    299+*           36 - NOT USED
                                    300+*           37 - SENSE DATA STORED
                                    301+*           38 - COUNT VALID
                                    302+*           39 - NO RETRY

                                    304+*   EXTENDED CHANNEL STATUS
                                    305+*
                                    306+*        PROBABLE SOURCE OF ERROR FIELD                               I

                                    308+*           40 - CPU ERROR                                            I
                                    309+*           41 - CHANNEL ERROR                                        I
                                    310+*           42 - STORAGE CONTROL UNIT ERROR
                                    311+*           43 - STORAGE ERROR                                        I
                                    312+*           44 - CONTROL UNIT ERROR
                                    313+*        45-47 - UNUSED                                               I

                                    315+*        STATUS FLAGS

                                    317+*           48 - INTERFACE ADDRESS VALID
                                    318+*        49-50 - NOT USED
                                    319+*           51 - RETRY CODE VALID
                                    320+*           52 - DEVICE STATUS VALID
                                    321+*           53 - CHANNEL PROGRAM ADDRESS AND KEY VALID
                                    322+*           54 - CHANNEL ADDRESS VALID
                                    323+*           55 - DEVICE ADDRESS VALID
                                    324+*        56-57 - COMPLETION CODE
                                    325+*                   11 - SYSTEM RESET
                                    326+*                   10 - SELECTIVE RESET
                                    327+*                   01 - STOP OR STACKED STATUS
                                    328+*                   00 - INTERFACE DISCONNECT
                                    329+*        58-59 - SET TO ZERO (RESERVED)
                                    330+*           60 - DISCONNECT IN
                                    331+*        61-63 - RETRY CODE (TIME CHANNEL DETECTED ERROR)
                                    332+*               000 - WHILE EXECUTING TIO
                                    333+*               001 - BETWEEN COMMAND OUT AND UNIT STATUS RETURN
                                    334+*               010 - COMMAND ACCEPTED BUT BEFORE DATA TRANSFER
                                    335+*               011 - SOME DATA TRANSFER-CSW COMMAND ADR UPDATED
                                    336+*               100 - COMMAND REJECTED OR COMMAND OUT NOT SENT
                                    337+*               101 - COMMAND ACCEPTED-DATA TRANSFER UNDETERMINED
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    338+*               110 - NOT USED
                                    339+*               111 - NO OTHER CODES APPLY
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    341+*                   CHANNEL CHECK HANDLER COMMUNICATIONS



                                    343+*
                                    344+*          CVT
                                    345+*
                                    346+*       *********
                                    347+*       *       *                                      ERPIB TABLE
                                    348+*       *       *
                                    349+*       *       *                                 *********************
                                    350+*       *       *                            ....X*                   *
                                    351+*       *       *                            .    *********************
                                    352+*       *       *                            .+8  *                   *
                                    353+*       *       *                            .    *********************
                                    354+*       *       *                            .+16 *                   *
                                    355+*       *       *                            .    *********************
                                    356+*       *       *                            .+24 *                   *
                                    357+*       *********                            .    *********************
                                    358+* +116  *       *.....                       .+32 *                   *
                                    359+*       *********    .                       .    *********************
                                    360+*       *       *    .    **********         .    * FF *
                                    361+*       *       *    ....X*        *....     .    ******
                                    362+*       *       *         **********   .     .
                                    363+*       *       *                      .     .
                                    364+*       *********                      .     .
                                    365+*                                .......     .
                                    366+*                                .           .
                                    367+*                                .           .
                                    368+*                                X           .         RECORD ENTRY TAB
                                    369+*                             ************** .
                                    370+*                         +0  *            *..         ****************
                                    371+*                             **************           *              *
                                    372+*                         +4  *  *         *..........X*              *
                                    373+*                             **************           ****************
                                    374+*                          +8 *  *         *           *              *
                                    375+*                             **************           *              *
                                    376+*                         +12 *            *           ****************
                                    377+*                             **************           *              *
                                    378+*                         +16 *            *           *              *
                                    379+*                             **************           ****************
                                    380+*                                                      * FF *
                                    381+*                             CCH POINTER TABLE        ******
                                    382+*        BYTES 0-3 - POINTER TO ERPIB TABLE
                                    383+*                4 - FLAG FOR RECORD ENTRIES
                                    384+*              5-7 - POINTER TO RECORD ENTRY TABLE
                                    385+*                8 - CCH CODE
                                    386+*              9-11- CCH BASE REGISTER (START)
                                    387+*             12-15- POINTER TO CHANNEL DEPENDENT RTN ADR TABLE
                                    388+*             16-19- RESERVED
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    390+*****    REGISTER DEFINITION
                                    391+*
000005                              392+IBREG    EQU   5 .                ADDRESS OF ERPIB                19032
000002                              393+IOBREG   EQU   2 .       IOB ADDRESS                                CSC
000006                              394+UAREG    EQU   6 .       UNIT ADDRESS                               CSC
000007                              395+UCBREG   EQU   7 .       UCB ADDRESS                                CSC
000008                              396+INDEX    EQU   8 .                      BRANCH TABLE INDEX REGISTER
000008                              397+WKERPIB  EQU   8 .                ADDRESS OF WORK ERPIB           19032
000004                              398+WRK4     EQU   4 .                WORK REGISTER                   19032
00000B                              399+RESZREG  EQU   11 .                    RECORD ENTRY SIZE          19032
000009                              400+CVTREG   EQU   9 .                      POINTER TO CVT
000009                              401+WORK5    EQU   CVTREG .                 SECONDARY WORK REGISTER
00000A                              402+WKREG1   EQU   10 .           MAIN WORKING REGISTER                 CSC
00000B                              403+WKREG2   EQU   11 .           WORKING REGISTER                      CSC
00000C                              404+WKREG3   EQU   12 .           SPACE WORK REGISTER                   CSC
00000D                              405+REREG    EQU   13 .                     ADDRESS OF RECORD ENTRY
00000E                              406+LINKRG1  EQU   14 .                     LINK REGISTER
00000A                              407+LINKRG2  EQU   10 .                    SECONDARY LINK REGISTER
00000E                              408+WORK4    EQU   LINKRG1 .                WORK REG TO FIND INTERCEPT PT.
000009                              409+WKREG0   EQU   9 .                      MP WORK REG
00000F                              410+CCHBASE  EQU   15 .                     BASE REGISTER FOR CCH
000003                              411+WORK3    EQU   3 .                      WORK REG-FOR UCBSCH           I
000003                              412+RTNADRG  EQU   3 .                DEPENDENT RTN ADDRESS REG       19032
000000                              413+R0       EQU   0 .            NON-ADDRESSING REGISTER
00000C                              414+R12      EQU   12 .           USED TO SAVE
00000E                              415+R14      EQU   14 .                        AND RESTORE REGS


                                    417+*****    FIXED CORE LOCATIONS
                                    418+*
000010                              419+INTCVTPT EQU   16 .                     ADDRESS OF CVT POINTER
000040                              420+CSWLOC   EQU   64 .      CSW LOCATION                               CSC
000048                              421+CAWLOC   EQU   72 .      CAW LOCATION                               CSC
000070                              422+MACHCK   EQU   112 .                    LOCATION OF MACH. PSW
000130                              423+LOG6070  EQU   304 .                    2860/70 LOGOUT LOCATION   19E03


                                    425+*****    DISPLACEMENTS
                                    426+*
000004                              427+CCHCUA   EQU   4 .                      DISPLACEMENT OF CUA
0000FF                              428+LISTEND  EQU   X'FF' .                  END OF ERPIB AND R.E. LISTS
00000F                              429+QUITCODE EQU   X'0F' .                  SEREP CODE FOR CHANNEL CHECK
00000D                              430+IOBCHAN  EQU   13 .                     DISPLACE OF CHAN STATUS IN IOB
000004                              431+ACTTCB   EQU   4 .             ACTIVE TCB DISPLACEMENT
000008                              432+LTPC     EQU   8 .             LOCAL TIME PSEUDO CLOCK
000004                              433+T4PC     EQU   4 .             24 HOUR PSEUDO CLOCK
000000                              434+SHPC     EQU   0 .             6 HOUR PSEUDO CLOCK
000002                              435+UCBID    EQU   2 .       UCB ID                                     CSC
000004                              436+UCBCHA   EQU   4 .       CHANNEL ADDRESS                            CSC
000006                              437+UCBFL1   EQU   6 .       FLAGS 1                                    CSC
000010                              438+UCBTYP   EQU   16 .      DEVICE TYPE CODE                           CSC
000020                              439+DASD     EQU   X'20' .        DASD TYPE
000002                              440+UCBASK   EQU   X'02' .   DISK ARM SEEKING                           CSC
000004                              441+UCBDTR   EQU   X'04' .   DISK DATA TRANSFER                         CSC
0000FF                              442+UCBIDV   EQU   X'FF' .   ID BYTE OF UCB                             CSC
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                              443+UCBPST   EQU   X'20' .   POST FLAG                                  CSC
000080                              444+UCBBSY   EQU   X'80' .   BUSY BIT                                   CSC
00000C                              445+TCBTIOT  EQU   12 .                DISPLACEMENT OF TIOT           19032
000074                              446+NXTTCB   EQU   116 .              DISP FOR NEXT TCB               19032
000010                              447+DEVDESC  EQU   16 .               UCB DEVICE TYPE DISP            19032
000014                              448+RQEADR   EQU   20 .                RQE ADDRESS FIELD              19032
000008                              449+DEBDISP  EQU   8 .                 DEB DISPLACEMENT IN RQE        19032
000000                              450+DEBTCB   EQU   0 .                 TCB ADR DISPLACEMENT IN DEB    19032
00001C                              451+UCBDISP  EQU   X'1C' .             DISPLACEMENT OF UCBREG IN SAVE 19032
00000B                              452+RBSTAB2  EQU   11 .           RB STATUS BYTE 2
000040                              453+SIRBACT  EQU   X'40' .        SIRB ACTIVE FLAG
00001A                              454+RBIQE    EQU   26 .           LIST ORIGIN FOR SIRB'S RQES


                                    456+*****    RETURN DISPLACEMENTS TO OS
                                    457+*
000000                              458+CCHRTHIO EQU   0 .                      HALT IO RETURN
000000                              459+CCHRTSIO EQU   0 .                      STAND ALONE SEEK, SIO MODULE
000004                              460+CCHRTINT EQU   4 .                      INTERRUPT
000008                              461+CCHRTSNY EQU   8 .                      SENSE RETRY
000008                              462+CATSNS   EQU   8 .      SENSE SUBROUTINE--SIO                      CSC
00000C                              463+CATTIOSN EQU   12 .      SENSE SUBROUTINE--TIO                      CSC
00000C                              464+CCHRTSNN EQU   12 .                     SENSE NO RETRY
000010                              465+CCHINT2  EQU   16 .                ALTERNATE RETURN DISPLACEMENT  19032
00001C                              466+CATREC   EQU   28 .      SENSE SUBROUTINE RETURN                    CSC

                                    468+*                       ERPIB DEFINITION
                                    469+*
000000                              470+IBUCBD   EQU   0 .                      UCB FIELD
000004                              471+IBPRGFGA EQU   4 .                      1ST PROGRAM CONTROLLED SWITCHES
000080                              472+CCHSIOB  EQU   X'80' .                  SIO BIT
000040                              473+CCHINTB  EQU   X'40' .                  INTERRUPT BIT
000020                              474+CCHTIOB  EQU   X'20' .                  TIO BIT
000010                              475+CCHHIOB  EQU   X'10' .                  HIO BIT
000004                              476+CCHSNSB  EQU   X'04' .                  SENSE DATA STORED BIT
000002                              477+CCHCNTB  EQU   X'02' .                  COUNT VALID BIT
000001                              478+CCHNRYB  EQU   X'01' .                  NO RETRY BIT
000080                              479+CCHCPU   EQU   X'80' .             CPU IS SOURCE OF ERROR             I
000040                              480+CCHCHNL  EQU   X'40' .             CHANNEL IS SOURCE OF ERROR         I
000010                              481+CCHSTG   EQU   X'10' .             STORAGE IS SOURCE OF ERROR         I
000008                              482+CCHINTFC EQU   X'08' .             I/O INTERFACE IS SOURCE OF ERROR   I
000010                              483+CCHRCV   EQU   X'10' .                  RETRY CODE VALID
000008                              484+CCHUSV   EQU   X'08' .                  UNIT STATUS VALID
000004                              485+CCHCMDV  EQU   X'04' .                  COMMAND ADDRESS VALID
000002                              486+CCHCAV   EQU   X'02' .                  CHANNEL ADDRESS VALID
000001                              487+CCHDAV   EQU   X'01' .                  DEVICE ADDRESS VALID
0000C0                              488+COMPSYS  EQU   X'C0' .                  SYSTEM RESET
000080                              489+COMPSEL  EQU   X'80' .                  SELECTIVE RESET
000040                              490+COMPFES  EQU   X'40' .                  FORCED ENDING SEQUENCE
000000                              491+COMPID   EQU   X'00' .                  INTERFACE DISCONNECT
000008                              492+CCHDI    EQU   X'08' .             DISCONNECT IN BIT              19032
000000                              493+RTCODE0  EQU   X'00' .                  RETRY
000001                              494+RTCODE1  EQU   X'01' .                       CODE
000002                              495+RTCODE2  EQU   X'02' .                           VALUES
000003                              496+RTCODE3  EQU   X'03' .                                 FOR
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000004                              497+RTCODE4  EQU   X'04' .                                    ERPIB
000005                              498+RTCODE5  EQU   X'05' .
000006                              499+RTCODE6  EQU   X'06' .
000007                              500+RTCODE7  EQU   X'07' .


                                    502+*****
                                    503+*        CSW STATUS INDICATORS
                                    504+*
000002                              505+CSWICK   EQU   X'02' .   CHANNEL INTERFACE CONTROL CHECK            CSC
000004                              506+CSWCTK   EQU   X'04' .   CHANNEL CONTROL CHECK                      CSC
000008                              507+CSWCDK   EQU   X'08' .   CHANNEL DATA CHECK                         CSC
000006                              508+CATBIT   EQU   CSWCTK+CSWICK .          CATASTROPHIC ERROR          CSI
000008                              509+CHEBIT   EQU   X'08' .                  CHANNEL END
000004                              510+DEVBIT   EQU   X'04' .                  DEVICE  END
000002                              511+UCKBIT   EQU   X'02' .                  UNIT CHECK
000004                              512+CCCBIT   EQU   X'04' .                  CHANNEL CONTROL CHECK
000002                              513+ICCBIT   EQU   X'02' .                  INTERFACE CONTROL CHECK
                                    514+*****    MASK VALUES
                                    515+*
000065                              516+MOD65    EQU   X'65' .                  MODEL NUMBER FOR RETRY IN CCH
000001                              517+ASRCODE  EQU   01 .                     CODE FOR ASR TO IDEN CCH IN CTL
000008                              518+ERPIBSZ  EQU   8 .                      NUMBER OF BYTES IN A ERPIB
000010                              519+CHNSPRT  EQU   X'10' .             RE INDICATOR FOR CHANNEL NOT   19032
                                    520+*                                  SUPPORTED.                     19032
000020                              521+TERMBIT  EQU   X'20' .             R.E. BIT TO INDICATE SYSTEM    19032
000040                              522+NSMACH   EQU   X'40' .             INDICATES NS MACHINE           19E03
000040                              523+NSTIME   EQU   X'40' .             NS CLOCK SUPPORTED SWITCH      19E03
000007                              524+COMP07   EQU   X'07' .             2880 CHANNEL ID                19E03
000008                              525+COMP08   EQU   X'08' .             2880 CHANNEL ID                19E03
                                    526+*                      CCH INTERNAL SWITCHES
                                    527+*
                                    528+*              SWITCH BYTE 1
                                    529+*
000080                              530+CCHCMDRG EQU   X'80' .                  CMD REG PARITY VALID          I
000040                              531+CCHNORE  EQU   X'40' .                  NO RECORD ENTRY AVAILABLE
000020                              532+CCHERFRE EQU   X'20' .             ERPIP FREED FROM ACTIVE LIST   19032
000010                              533+CCHNOLST EQU   X'10' .             RECORD ONLY-NO ERPIB TO LIST   19032
000008                              534+CCHHAND  EQU   X'08' .             D.E. OR ATTENTION PRESENTED    19032
000004                              535+CCHIBC   EQU   X'04' .             ERPIB ALREADY CREATED          19032
000002                              536+UCBNVBIT EQU   X'02' .             UCB INVALID                    19032
                                    537+*
                                    538+*
                                    539+*        SWITCH BYTE 2
                                    540+*
000080                              541+SYSTERM  EQU   X'80' .             SIGNAL FOR SYSTEM TERMINATION  19032
000040                              542+INTRTN2  EQU   X'40' .             ALTERNATE RETURN SWITCH        19032
000020                              543+MODELNO  EQU   X'20' .             SET FOR MODELS 2880 NOT SUPPORT19E03
000010                              544+NOLOG    EQU   X'10' .             CHANNEL FAILED TO LOG OUT      19E03
                                    545+*
                                    546+*                                                                     I
                                    547+*        GENERAL EQUATES                                              I
                                    548+*                                                                     I
000052                              549+LENGTH   EQU   X'52' .             CDC RECORD ENTRY LENGTH        19E03
000068                              550+LGH6070  EQU   X'68' 2860/2870 R.E. DATA LENGTH       @S67053P
       CHANNEL CHECK HANDLER -- IGFCATAP                                                                       PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000070                              551+ONE12    EQU   112 .                    2880 LOGOUT LENGTH        19E03
000017                              552+CCH23    EQU   23 .                CONSTANT                           I
000003                              553+CCH3     EQU   3 .                 CONSTANT                           I
000004                              554+CCH4     EQU   4 .                 CONSTANT                           I
000007                              555+CCH7     EQU   7 .                 CONSTANT                           I
0000FF                              556+ALLFS    EQU   X'FF' .             CONSTANT                           I
000000                              557+ZERO     EQU   0 .                 CONSTANT                           I
000003                              558+THREE    EQU   3 .                      CONSTANT                      I
000006                              559+HEX06    EQU   X'06' .                 CONSTANT                       I
000040                              560+HEX40    EQU   X'40' .                  CONSTANT                      I
000070                              561+HEX70    EQU   X'70' .                  CONSTANT                      I
000005                              562+FIVE     EQU   5 .                      CONSTANT                      I
000002                              563+TWO      EQU   2 .                      CONSTANT                      I
000002                              564+HEX02    EQU   X'02' .                  CONSTANT                      I
000001                              565+ONE      EQU   1 .                      CONSTANT                      I
000020                              566+HEX20    EQU   X'20' .                  CONSTANT                      I
000004                              567+HEX04    EQU   X'04' .                  CONSTANT                      I
000080                              568+HEX80    EQU   X'80' .                  CONSTANT                      I
000010                              569+HEX10    EQU   X'10' .                  CONSTANT                      I
000008                              570+HEX08    EQU   X'08' .                  CONSTANT                      I
000003                              571+HEX03    EQU   X'03' .                  CONSTANT                      I
000001                              572+HEX01    EQU   X'01' .                  CONSTANT                      I
000001                              573+I        EQU   1 .                 NUMBER TO BE USED IN SMALL AREA19E03
000007                              574+HEX07    EQU   X'07' .        CONSTANT
00000E                              575+HEX0E    EQU   X'0E' .                  SEQUENCE 2,3,4 TRIGGERS       I
0000E0                              576+HEXE0    EQU   X'E0' .                  MODE TRIGGERS 9,10,11         I
000004                              577+FOUR     EQU   4 .            CONSTANT FOR DISPLACEMENT
000006                              578+SIX      EQU   6 .            CONSTANT FOR DISPLACEMENT
000007                              579+SEVEN    EQU   7 .            CONSTANT FOR DISPLACEMENT
000008                              580+EIGHT    EQU   8 .            CONSTANT FOR DISPLACEMENT
000010                              581+SIXTEEN  EQU   16 .           CONSTANT FOR DISPLACEMENT
000018                              582+TWENTY4  EQU   24 .           CONSTANT FOR DISPLACEMENT
000034                              583+FIFTY2   EQU   52 .           CONSTANT FOR DISPLACEMENT
000038                              584+FIFTY6   EQU   56 .          CONSTANT FOR DISPLACEMENT
000050                              585+EIGHTY   EQU   80 .           CONSTANT FOR DISPLACEMENT
000001                              586+CC1      EQU   1 .            CONDITION CODE =1 .
000003                              587+CC3      EQU   3 .            CONDITION CODE =3 .
000004                              588+CC4      EQU   4 .            CONDITION CODE =4 .
000005                              589+CC5      EQU   5 .            CONDITION CODE =5 .
000006                              590+CC6      EQU   6 .            CONDITION CODE =6 .
000007                              591+CC7      EQU   7 .            CONDITION CODE =7
000008                              592+CC8      EQU   8 .            CONDITION CODE =8
000009                              593+CC9      EQU   9 .            CONDITION CODE =9
00000A                              594+CC10     EQU   10 .           CONDITION CODE =10
       INITIAL ENTRY ROUTINE -- IGFCATAP                                                                       PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    596+***********************************************************************
                                    597+*
                                    598+* FUNCTION---- THIS ROUTINE WILL PERFORM NECESSARY INITIALIZATION AT
                                    599+*              ENTRY TO CCH, LOCATE AN AVAILABLE ERP INTERFACE BYTE
                                    600+*              (ERPIB), AND LOCATE AN AVAILABLE RECORD ENTRY AREA.  IT
                                    601+*              WILL THEN MOVE THE CSW, CHANNEL/UNIT ADDRESS,
                                    602+*              TIME,  DATE,  JOB  IDENTIFICATION  AND THE
                                    603+*              CHANNEL TYPE TO THE RECORD ENTRY.  FOLLOWING THIS, IT
                                    604+*              PERFORMS FUNCTIONS ASSOCIATED WITH TYPE OF INTERCEPTION.


                                    606+* INPUT------- UCB, IOB, UNIT ADDRESSES FROM IOS
                                    607+*              I/O OLD PSW AND/OR CSW

                                    609+* ENTRY------- IGFCAT, ON ANY CHANNEL ERROR

                                    611+* EXIT--------
                                    612+*              EXIT POINT          REASON
                                    613+*              CCHSNS              SIO IN SENSE ROUTINE
                                    614+*              CCHTION             TIO IN SENSE ROUTINE
                                    615+*              CCHSSK              SIO IN STAND-ALONE-SEEK ROUTINE
                                    616+*              CCHTIOSK            TIO IN STAND-ALONE-SEEK ROUTINE
                                    617+*              CCHINT              INTERRUPTION
                                    618+*              CCHSIO              SIO IN SIO MODULE
                                    619+*              CCHHIO                   HALT IO

                                    621+* OUTPUT------ NONE

                                    623+* EXT REF----- CVT

                                    625+* ERR COND---- NONE

                                    627+* TABLES------ ERPIB
                                    628+*              RECORD ENTRY
                                    629+*
                                    630+***********************************************************************



                                    632+*****    CAUSE MCH TO TERMINATE THE SYSTEM IF A MACH. CK. OCCURS
                                    633+*
000000 9201 0073      00073         634+         MVI   MACHCK+THREE,ASRCODE .       MOVE MCK CODE TO LOC 115


                                    636+*****    SAVE REGISTERS.  ZERO ALL INTERNAL SWITCH SETTINGS
                                    637+*
000004 900E F718            00718   638+CCH029   STM   R0,R14,CCHSAVE .           SAVE REGISTERS
000008 9400 F6C9      006C9         639+         NI    CCHSW2,ZERO .   ZERO SWITCH BYTE 2                 19032
00000C D700 F6C8 F6C8 006C8 006C8   640+CCHRCUR  XC    CCHSWS(ONE),CCHSWS .    ZERO SWITCH SETTINGS       19032
000012 D707 F6C0 F6C0 006C0 006C0   641+         XC    IBWORK(EIGHT),IBWORK .  ZERO WORK ERPIB            19032
000018 9200 F6CA      006CA         642+         MVI   RECBYTE,ZERO .              ZERO THE RECORD BYTE
00001C 5890 0010            00010   643+         L     CVTREG,INTCVTPT .        LOAD ADDR OF CVT


                                    645+*****    FIND INDEX VALUE FOR BRANCH TABLE
       INITIAL ENTRY ROUTINE -- IGFCATAP                                                                       PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    646+*
000020 1BEE                         647+         SR    WORK4,WORK4 .            CLEAR INDEX REGISTER
000022 8DE0 0008            00008   648+         SLDL  WORK4,EIGHT .                SHIFT CODE TO REGISTER
000026 188E                         649+         LR    INDEX,WORK4 .            LOAD INDEX VALUE FOR BRANCH TAB
000028 8CE0 0008            00008   650+         SRDL  WORK4,EIGHT .      RESTORE BASE REGISTER           19032
00002C 4280 F6FC            006FC   651+         STC   INDEX,CCHWORK .          STORE INDEX BYTE FOR TESTING


                                    653+*
                                    654+*
                                    655+*****    CHECK PENDING LOGOUT CONDITION AND UCB ADDRESS VALIDITY
                                    656+*
000030 9104 0040      00040         657+         TM    CSWLOC,HEX04 .      LOGOUT PENDING
000034 4780 F040            00040   658+         BZ    CCHTUCB .           NO CHECK UCB ADDR VALID
000038 9610 F6C8      006C8         659+         OI    CCHSW1,CCHNOLST .   SET RECORD RECORD ONLY SWITCH
00003C 9680 F6C9      006C9         660+         OI    CCHSW2,SYSTERM .    SET SYSTEM TERMINATION SWITCH
000040 1277                         661+CCHTUCB  LTR   UCBREG,UCBREG .     HAS A UCB ADDR BEEN PASSED
000042 4770 F052            00052   662+         BNZ   CCHUCBV .           BRANCH IF ADDRESS NOT ZERO     19032
000046 9602 F6C8      006C8         663+         OI    CCHSW1,UCBNVBIT .   SET UCB INVALID BIT            19032
00004A 9610 F6C8      006C8         664+CCH006A  OI    CCHSW1,CCHNOLST .   SET RECORD ONLY SWITCH         19032
00004E 47F0 F164            00164   665+         B     CCH007 .            GO FIND R.E.                   19032
000052 9180 F6C9      006C9         666+CCHUCBV  TM    CCHSW2,SYSTERM .    IS THIS A RECURSION TO FILL RE 19032
000056 4710 F04A            0004A   667+         BO    CCH006A YES, SKIP ERPIB FIND           19032
00005A 9508 F6FC      006FC         668+         CLI   CCHWORK,CATSNS .         IS INTERCEPT FROM SENSE ROUTINE
00005E 4780 F07E            0007E   669+         BE    CCH000 .                 YES, DO NOT CHECK FOR POST/BUSY
000062 950C F6FC      006FC         670+         CLI   CCHWORK,CATTIOSN .       IS INTERCEPT FROM SENSE ROUTINE
000066 4780 F07E            0007E   671+         BE    CCH000 .                 YES, DO NOT CHECK FOR POST/BUSY
                                    672+         CLI   CCHWORK,CATREC .        IS INTERCEPT FROM RECURSION OF  X
                                       +                                       ASYNCHRONOUS SENSE ON TP OR     X
00006A 951C F6FC      006FC            +                                       SHARED DASD
00006E 4780 F07E            0007E   673+         BE    CCH000 .                 YES,DO NOT CHECK FOR POST/BUSY
000072 91A0 7006      00006         674+         TM    UCBFL1(UCBREG),UCBBSY+UCBPST IS POST OR BUSY BIT SEY
000076 4750 F07E            0007E   675+         BC    CC5,CCH000 .               YES, CONTINUE
00007A 9608 F6C8      006C8         676+         OI    CCHSW1,CCHHAND .    SET SPECIAL HANDLING SWITCH    19032
       INITIAL ENTRY ROUTINE -- IGFCATAP                                                                       PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    678+*                  ERPIB ENTRY FIND ROUTINE


                                    680+*****    CHECK ERPIB'S AND FIND POINTER TO FIRST FREE ERPIB
                                    681+*
00007E                              682+CCH000   EQU   *
                                    683+*
00007E 9106 0045      00045         684+         TM    CSWLOC+FIVE,CATBIT .IS THIS CHANNEL DATA CHECK ONLY19E03
000082 4770 F08A            0008A   685+         BC    CC7,CCH000A .       NO,BRANCH TO FIND ERPIB        19E03
000086 9610 F6C8      006C8         686+         OI    CCHSW1,CCHNOLST .   YES, SET RECORD ONLY SWITCH    19E03
                                    687+*
00008A 1BAA                         688+CCH000A  SR    WKREG1,WKREG1 .          CLEAR INDEX REGISTER
00008C 1B55                         689+         SR    IBREG,IBREG .            CLEAR ERPIB REGISTER
00008E 41CA F6D0            006D0   690+CCH005   LA    WKREG3,ERPIBFD(WKREG1) . GET ADDRESS OF ERPIB
000092 95FF C000      00000         691+         CLI   ZERO(WKREG3),LISTEND .      IS THIS THE END OF THE LIST
000096 4780 F0D4            000D4   692+         BE    CCH004 .                 YES, GO TO NEXT STEP
00009A 41AA 0008            00008   693+         LA    WKREG1,ERPIBSZ(WKREG1) . UPDATE INDEX FOR NEXT ERPIB
00009E D407 C000 C000 00000 00000   694+         NC    ZERO(ERPIBSZ,WKREG3),ZERO(WKREG3) TEST FOR AVAILABLE
0000A4 4780 F0CE            000CE   695+         BZ    CCH006 .                 AVAILABLE, BRANCH
0000A8 497C 0002            00002   696+         CH    UCBREG,TWO(WKREG3) .    HAS THIS DEVC A PREV ERROR 19032
0000AC 4770 F08E            0008E   697+         BNE   CCH005 .                 NO, CONTINUE LOOP
0000B0 9604 F6C8      006C8         698+         OI    CCHSW1,CCHIBC .          SET ERPIB-ALREADY-CREATED SW
0000B4 185C                         699+         LR    IBREG,WKREG3 .           DEFINE POINTER TO THIS ERPIB
0000B6 951C F6FC      006FC         700+         CLI   CCHWORK,CATREC .         WAS ENTRY ON ASYNCH SENSE REC I
0000BA 4770 F164            00164   701+         BNE   CCH007 .                 NO-BRANCH
0000BE 9604 200D      0000D         702+         OI    IOBCHAN(IOBREG),CCCBIT . FORCE CHAN ERR TO IOB CSW     I
0000C2 9601 5004      00004         703+         OI    IBPRGFGA(IBREG),CCHNRYB . SET NO RETRY BIT IN ERPIB    I
0000C6 41C0 000C            0000C   704+         LA    WKREG3,CCHRTSNN .        GET NO RETRY DISPLACEMENT     I
0000CA 47F0 F3FE            003FE   705+         B     CCHEXIT .                GO EXIT CCH                   I
                                    706+*
0000CE 185C                         707+CCH006   LR    IBREG,WKREG3 .           SAVE POINTER TO THIS ERPIB
0000D0 47F0 F08E            0008E   708+         B     CCH005 .                 LOOP
                                    709+*
0000D4 1255                         710+CCH004   LTR   IBREG,IBREG .            HAS A ERPIB POINTER BEEN DEF
0000D6 4760 F164            00164   711+         BC    CC6,CCH007 .               YES, CONTINUE
0000DA 4150 F6D0            006D0   712+         LA    IBREG,ERPIBFD . ADDR OF FIRST ENTRY IN ERPIB TABLE
0000DE 41C0 0005            00005   713+         LA    WKREG3,FIVE .  LOOP CONTROL FOR 5 ERPIB ENTRIES
0000E2 58D0 9090            00090   714+CCH005A  L     REREG,CVTIERLC .        ADDR OF ASYNCHR.ERROR QUEUE
0000E6 49DD 0002            00002   715+         CH    REREG,TWO(REREG) .        COMPARE AG. LAST ENTRY (LEQB)
0000EA 4770 F12E            0012E   716+         BNE   CCH005D .                TEST ENTRIES ON ERRLCH
0000EE 58B0 F764            00764   717+CCH005B  L     WKREG2,CCHSIRB .        GET ADDR OF SIRB
0000F2 9140 B00B      0000B         718+         TM    RBSTAB2(WKREG2),SIRBACT .    IS SIRB ACTIVE
0000F6 4780 F116            00116   719+         BZ    CCH005C .  NO
0000FA 48BB 001A            0001A   720+         LH    WKREG2,RBIQE(WKREG2) .      LIST ORIGEN FOR RQE'S
0000FE 54B0 F754            00754   721+         N     WKREG2,CCHMASK1 .        AND OUT 2 HIGH ORDER BYTES
000102 D501 B002 5002 00002 00002   722+         CLC   TWO(TWO,WKREG2),TWO(IBREG) .  DO UCB ADDRESSES MATCH
000108 4780 F116            00116   723+         BE    CCH005C .  YES
00010C D707 5000 5000 00000 00000   724+         XC    ZERO(ERPIBSZ,IBREG),ZERO(IBREG) ZERO INACTIVE ERPIB
000112 9620 F6C8      006C8         725+         OI    CCHSW1,CCHERFRE .   SET ERPIB FREED SWITCH         19032
000116 4155 0008            00008   726+CCH005C  LA    IBREG,ERPIBSZ(IBREG) .  UPDATE PTR TO NEXT ERPIB
00011A 46C0 F0E2            000E2   727+         BCT   WKREG3,CCH005A .         LOOP TO TEST IF NXT ERPIB ACTIV
00011E 9120 F6C8      006C8         728+         TM    CCHSW1,CCHERFRE .   HAS AN ERPIB BEEN FREED        19032
000122 4780 F160            00160   729+         BZ    CCH005F .  NO
000126 9720 F6C8      006C8         730+         XI    CCHSW1,CCHERFRE .   CLEAR ERPIB FREED SWITCH       19032
00012A 47F0 F08A            0008A   731+         B     CCH000A .                GET ADDRESS OF USEABLE ERPIB
       INITIAL ENTRY ROUTINE -- IGFCATAP                                                                       PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00012E 48AD 0000            00000   732+CCH005D  LH    WKREG1,ZERO(REREG) .     GET PTR TO FIRST RQE ON QUEUE
000132 54A0 F754            00754   733+CCH005E  N     WKREG1,CCHMASK1 .        CLEAR OUT HIGH ORDER BITS
000136 48BA 0002            00002   734+         LH    WKREG2,TWO(WKREG1) . GET UCB ADDR FROM RQE
00013A 54B0 F754            00754   735+         N     WKREG2,CCHMASK1 .        CLEAR OUT HIGH ORDER BITS
00013E 88B0 0001            00001   736+         SRL   WKREG2,ONE .               CLEAR LOW ORDER BIT
000142 89B0 0001            00001   737+         SLL   WKREG2,ONE .
000146 49B5 0002            00002   738+         CH    WKREG2,TWO(IBREG) .  COMPARE RQE AND ERPIB UCB ADDRS
00014A 4780 F116            00116   739+         BE    CCH005C .                TEST NEXT ERPIB
00014E D501 A000 D002 00000 00002   740+         CLC   ZERO(TWO,WKREG1),TWO(REREG) . IS THIS LAST RQE ON LIST
000154 4780 F0EE            000EE   741+         BE    CCH005B .                IF SO,TEST SIRB
000158 48AA 0000            00000   742+         LH    WKREG1,ZERO(WKREG1) .    GET PTR TO NEXT RQE ON ERRLCH
00015C 47F0 F132            00132   743+         B     CCH005E .                LOOP TO TEST RQE
000160                              744+CCH005F  EQU   *
000160 4150 F6D0            006D0   745+         LA    IBREG,ERPIBFD .          GET ADDRESS OF FIRST ERPIB
       INITIAL ENTRY ROUTINE -- IGFCATAP                                                                       PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    747+*                        DATA COLLECT ROUTINE


                                    749+*****    LOCATE RECORD ENTRY AND SET FLAG
                                    750+*
000164 18B6                         751+CCH007   LR    WKREG2,UAREG .     GET UNIT ADDRESS                19032
000166 88B0 0008            00008   752+         SRL   WKREG2,EIGHT .      ISOLATE CHANNEL NUMBER         19032
00016A 89B0 0002            00002   753+         SLL   WKREG2,TWO .          MULTIPLY BY 4
00016E 413B F678            00678   754+         LA    WORK3,CHRADTAB(WKREG2) GET ADR OF RTN ADR IN TABLE19032
000172 5840 F674            00674   755+         L     WRK4,ADRPTRTB .     GET PTR TABLE ADDRESS          19032
000176 58D0 4004            00004   756+         L     REREG,RECORD .     GET RECORD AREA ADDRESS         19032
00017A 58B0 F670            00670   757+         L     RESZREG,RESIZE .   LOAD RECORD ENTRY SIZE          19032
00017E 1244                         758+         LTR   WRK4,WRK4 .       CHECK IF INITIALIZED             20302
000180 4780 F456            00456   759+         BZ    CCHQUIT .     MODEL IS LESS THAN 65 GO TO MCH      20302
000184 06B0                         760+         BCTR  RESZREG,R0 .       SET UP SIZE FOR EXECUTE         19032
000186 95FF D000      00000         761+CCH007A  CLI   ZERO(REREG),LISTEND . IS THIS END OF R E AREA      19032
00018A 4780 F29A            0029A   762+         BE    CCH008 .           YES, GO TO SET NO R E AVAILABLE 19032
00018E 44B0 F19E            0019E   763+         EX    RESZREG,RECOMPR .  IS THIS R.E. IN USE             19032
000192 4780 F1A4            001A4   764+         BC    CC8,CCHSETFL . NO GO TO SET FLAG AND FILL RE       19032
000196 5ED0 F670            00670   765+         AL    REREG,RESIZE .     UPDATE ADDRESS TO NEXT R. E.    19032
00019A 47F0 F186            00186   766+         B     CCH007A .          GO TO CHECK IF AVAILABLE FOR USE19032
00019E D400 D000 D000 00000 00000   767+RECOMPR  NC    ZERO(ZERO,REREG),ZERO(REREG) . IS RCD USED TEST    19032
0001A4 92FF 4004      00004         768+CCHSETFL MVI   CCHREFG,LISTEND .   SET NON-ZERO VALUE IN FLAG     19032
0001A8 D201 D008 F75E 00008 0075E   769+         MVC   RECIDFD,RECORDID .       MOVE ID TO RECORD ENTRY
0001AE 9106 0045      00045         770+         TM    CSWLOC+FIVE,CATBIT .  IS THIS CDC ONLY             19E03
0001B2 4770 F1BA            001BA   771+         BNZ   CCH009 .            NO, SKIP LENGTH SET            19E03
0001B6 9652 D007      00007         772+         OI    RECENTRY+CCH7,LENGTH .  SET R E LENGTH FOR CDC     19E03


                                    774+***      MOVE CSW AND CUA TO RECORD ENTRY                         19032
                                    775+*
0001BA D207 D040 0040 00040 00040   776+CCH009   MVC   CSWLWB,CSWLOC .          MOVE CSW TO THE RECORD ENTRY
0001C0 5060 D050            00050   777+         ST    UAREG,CUA .         STORE CUA IN RECORD ENTRY      19032
                                    778+*
                                    779+*        MOVE RELEASE LEVEL TO RECORD ENTRY
                                    780+*
0001C4 58C0 4004            00004   781+GRELV    L     WKREG3,RECORD .    GET RECORD ENTRY AREA ADR       19032
0001C8 06C0                         782+         BCTR  WKREG3,ZERO .      SUBTRACT THREE                  19032
0001CA 06C0                         783+         BCTR  WKREG3,ZERO .                                      19032
0001CC 06C0                         784+         BCTR  WKREG3,ZERO .                                      19032
0001CE D600 D009 C000 00009 00000   785+         OC    RECIDFD+ONE(ONE),ZERO(WKREG3) . RECORD ENTRY       19032
                                    786+*
                                    787+*               MOVE MODEL ID TO RECORD ENTRY
                                    788+*
0001D4 D207 D018 F668 00018 00668   789+         MVC   CPUIDFD,MODID .     MOVE ID TO RECORD ENTRY        19E03


                                    791+*****    GET   TIME OF DAY                                        19E03
                                    792+*                                                                 19E03
0001DA 9140 F666      00666         793+         TM    NSCLOCK,NSTIME .    IS NS CLOCK SUPPORTED          19E03
0001DE 47E0 F1F8            001F8   794+         BNO   GETDATE .           NO-GO COMPUTE                  19E03
0001E2 9640 D00A      0000A         795+         OI    RECSWCH1,NSMACH .   SET NS BIT                     19E03
                                    796+*                                                                 19E03
0001E6 B205                         797+         DC    X'B205' .           ISSUE                          19E03
0001E8 D010                         798+         DC    S(DATE) .           STORE CLOCK                    19E03
       INITIAL ENTRY ROUTINE -- IGFCATAP                                                                       PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    799+*                                                                 19E03
0001EA 4790 F1F4            001F4   800+         BC    EIGHT+ONE,TIMEOK .  VALUE IS PREDICTABLE           19E03
0001EE D707 D010 D010 00010 00010   801+         XC    DATE(EIGHT),DATE .  VALUE UNPREDICTABLE-CLEAR      19E03
0001F4 47F0 F238            00238   802+TIMEOK   B     CCH010 .            GO GET JOB ID                  19E03


                                    804+*****    COMPUTE DATE AND LOCAL TIME OF DAY FOR RECORD ENTRY
                                    805+*
0001F8 D203 D010 9038 00010 00038   806+GETDATE  MVC   DATE,CVTDATE .      MOVE DATE TO RECORD ENTRY      19E03
0001FE 1BAA                         807+         SR    WKREG1,WKREG1 .          CLEAR WORK REGISTER
000200 5EA0 9058            00058   808+         AL    WKREG1,CVTTPC .          LOAD POINTER TO PSEUDO CLOCKS
000204 47A0 F238            00238   809+         BC    CC10,CCH010 .            BR--NO PSEUDO CLOCKS AVAILABLE
000208 58BA 0000            00000   810+         L     WKREG2,SHPC(WKREG1) .   LOAD SIX HOUR PSEUDO CLOCK
00020C 5EBA 0004            00004   811+         AL    WKREG2,T4PC(WKREG1) .   ADD 24 HOUR PSEUDO CLOCK
000210 58C0 0050            00050   812+         L     WKREG3,EIGHTY .             LOAD HARDWARE TIMER
000214 8AC0 0001            00001   813+         SRA   WKREG3,ONE .              CONVERT TO 26 US INCREMENTS
000218 1FBC                         814+         SLR   WKREG2,WKREG3 .         SUBTRACT TIMER
00021A 5EBA 0008            00008   815+         AL    WKREG2,LTPC(WKREG1) .   ADD LOCAL TIME PSEUDO CLOCK
00021E 4730 F22A            0022A   816+         BC    CC3,CCH011 .              BRANCH ON OVERFLOW
000222 55B0 F714            00714   817+         CL    WKREG2,TD24HRS .        CHECK FOR OVER 24 HOURS
000226 4740 F22E            0022E   818+         BC    CC4,CCH011+FOUR .  BRANCH IF NOT OVER 24 HOURS
00022A 5EB0 F710            00710   819+CCH011   AL    WKREG2,TDADJ .          ADD 7+ HOURS CORRECTION FACTOR
00022E 50B0 F6FC            006FC   820+         ST    WKREG2,CCHWORK .        STORE TIME IN WORK AREA
000232 D203 D014 F6FC 00014 006FC   821+         MVC   TIME,CCHWORK .           MOVE TIME TO RECORD ENTRY


                                    823+*****    MOVE JOB ID TO RECORD ENTRY                              19032
                                    824+*
000238 1277                         825+CCH010   LTR   UCBREG,UCBREG .     UCB ADR  PRESENT               19032
00023A 4780 F27E            0027E   826+         BZ    CCH012 .            NO, BRANCH- NO UCB ADR         19032
00023E 9120 7006      00006         827+         TM    UCBFL1(UCBREG),UCBPST .    IS POST UP IN UBC       19032
000242 4780 F27E            0027E   828+         BZ    CCH012 .           NO, BRANCH - NO JOB ID          19032
000246 48C7 0014            00014   829+         LH    WKREG3,RQEADR(UCBREG) .  GET RQE ADDRESS FROM UCB  19032
00024A 58CC 0008            00008   830+         L     WKREG3,DEBDISP(WKREG3) . GET DEB ADDRESS FROM RQE  19032
00024E 58CC 0000            00000   831+         L     WKREG3,DEBTCB(WKREG3) .  GET TCB ADDRESS FROM DEB  19032
000252 41CC 0000            00000   832+         LA    WKREG3,ZERO(WKREG3) .   CLEAR HIGH ORDER BYTE      19032
000256 58B0 90A0            000A0   833+         L     WKREG2,CVTHEAD .   GET ADR FIRST TCB ON QUEUE      19032
00025A 12BB                         834+COMPRAD  LTR   WKREG2,WKREG2 .    IS THIS END OF CHAIN            19032
00025C 4780 F27E            0027E   835+         BZ    CCH012 .           YES, BRANCH - NO JOBID          19032
000260 19BC                         836+         CR    WKREG2,WKREG3 .    ARE THEY THE SAME TCB           19032
000262 4780 F26E            0026E   837+         BE    GJOBID YES, GO GET JOBID                 19032
000266 58BB 0074            00074   838+         L     WKREG2,NXTTCB(WKREG2) .  GET NEXT TCB ON QUEUE     19032
00026A 47F0 F25A            0025A   839+         B     COMPRAD .          LOOP FOR COMPARE                19032
00026E                              840+GJOBID   EQU   *
00026E 58BC 000C            0000C   841+         L     WKREG2,TCBTIOT(WKREG3) . GET ADR OF TIOT           19032
000272 12BB                         842+         LTR   WKREG2,WKREG2 .    IS THERE A TIOT ADR             19032
000274 4780 F27E            0027E   843+         BZ    CCH012 .           NO , BRANCH - NO JOBID          19032
000278 D207 D020 B000 00020 00000   844+         MVC   JOBID,ZERO(WKREG2) .    MOVE JOB ID TO RECORD ENTRY19032
                                    845+*****    MOVE CHANNEL TYPE ASSIGNMENT TO RECORD ENTRY
                                    846+*
00027E 1BCC                         847+CCH012   SR    WKREG3,WKREG3 .     CLEAR REGISTER                 19032
000280 43C3 0000            00000   848+         IC    WKREG3,ZERO(WORK3) . GET CHANNEL TYPE FROM TABLE   19032
000284 42C0 D050            00050   849+         STC   WKREG3,CHANID .     STORE CHANNEL TYPE IN R.E.     19032
000288 9102 F6C8      006C8         850+         TM    CCHSW1,UCBNVBIT .   IS UCB ADR INVALID             19032
00028C 4710 F2BE            002BE   851+         BC    CC1,CCH017 .        YES, SKIP DEVICE TYPE IN R.E.  19032
       INITIAL ENTRY ROUTINE -- IGFCATAP                                                                       PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000290 D203 D04C 7010 0004C 00010   852+         MVC   DEVTYPE,DEVDESC(UCBREG) .  MOVE DEVICE TYPE TO R.E.19032
000296 47F0 F2BE            002BE   853+         B     CCH017 .            GO TO BRANCH TABLE             19032
                                    854+*                                                                 19032
00029A 9180 F6C9      006C9         855+CCH008   TM    CCHSW2,SYSTERM .    IS TERMINATION SWITCH SET      19032
00029E 4780 F2B8            002B8   856+         BC    CC8,CCH008A .       NO,GO SET NO R.E. AVAILABLE SW 19032
0002A2 58B0 F670            00670   857+         L     RESZREG,RESIZE .    GET R.E. SIZE                  19032
0002A6 1BDB                         858+         SR    REREG,RESZREG .     POINT TO LAST R.E.             19032
0002A8 06B0                         859+         BCTR  RESZREG,R0 .       SET UP LENGTH FOR EXECUTE       19032
0002AA 44B0 F2B2            002B2   860+         EX    RESZREG,CCHZERE .   CLEAR RECORD ENTRY             19032
0002AE 47F0 F1A4            001A4   861+         B     CCHSETFL .          GO FILL RECORD FOR TERM        19032
0002B2 D700 D000 D000 00000 00000   862+CCHZERE  XC    ZERO(ZERO,REREG),ZERO(REREG) . ZERO RECORD ENTRY   19032
0002B8 9640 F6C8      006C8         863+CCH008A  OI    CCHSW1,CCHNORE .    SET NO R.E. AVAILABLE SWITCH   19032
0002BC 1BDD                         864+         SR    REREG,REREG .       ZERO R.E. ADR.REG              19032
0002BE                              865+CCH017   EQU   *
       INITIAL ENTRY ROUTINE -- IGFCATAP                                                                       PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    868+*                     BRANCH TABLE ROUTINE


                                    870+*****    BRANCH TABLE -- ENTER PROPER ROUTINE
                                    871+*
0002BE 47F8 F2C2            002C2   872+         B     *+FOUR(INDEX) .             ENTER BRANCH TABLE

0002C2 47F0 F35E            0035E   874+         B     CCHSSK .                  0 -(SIO) DIRECT ACCESS SIO MOD
0002C6 47F0 F366            00366   875+         B     CCHTIOSK .                4 -(TIO) DIRECT ACCESS TIO MOD
0002CA 47F0 F2DE            002DE   876+         B     CCHSNS .                  8 -(SIO) SENSE SUBROUTINE
0002CE 47F0 F2E6            002E6   877+         B     CCHTIOSN .               12 -(TIO) SENSE SUBROUTINE
0002D2 47F0 F35E            0035E   878+         B     CCHSIO .                16 -(SIO) START I/O MODULE
0002D6 47F0 F376            00376   879+         B     CCHINT .                20 -(INT) INTERRUPT SUPERVISOR
0002DA 47F0 F3C6            003C6   880+         B     CCHHIO .                24 -(HIO) HALT I/O SUBROUTINE
       SENSE ROUTINE INTERCEPTION -- IGFCATAP                                                                  PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    883+***********************************************************************
                                    884+*
                                    885+* FUNCTION --- THIS ROUTINE WILL ATTEMPT RECOVERY ON
                                    886+*                CHANNEL CONTROL CHECKS.  HOWEVER, IF ANY TYPE
                                    887+*              OF RESET OCCURS EITHER WITHIN OR EXTERNAL TO CCH, AN
                                    888+*              ERPIB WILL BE CREATED AND THE NO RETRY BIT SET.  RETRY
                                    889+*              WILL NOT BE ATTEMPTED

                                    891+* ENTRY PTS -- CCHSNS
                                    892+*              CCHTIOSN

                                    894+* EXIT PTS --- UCBSCH

                                    896+* INPUT ------ INTERNAL SWITCH SETTINGS

                                    898+* OUTPUT ----- NO RETRY SET IN ERPIB OR ZERO SENSE DATA
                                    899+*              OR RECORD ONLY SWITCH

                                    901+* EXT REF ---- IOB
                                    902+*              ERROR COUNTER

                                    904+* ERR COND --- NONE

                                    906+* TABLES ----- ERPIB
                                    907+*              RECORD ENTRY
                                    908+*
                                    909+***********************************************************************



0002DE 9680 F6CA      006CA         911+CCHSNS   OI    RECBYTE,CCHSIOB .        SET SIO BIT IN RECORD BYTE
0002E2 47F0 F2EA            002EA   912+         B     CCH018 .                 GO TO TEST R.E. AVAIL SW
                                    913+*
0002E6 9620 F6CA      006CA         914+CCHTIOSN OI    RECBYTE,CCHTIOB .        SET TIO BIT IN RECORD BYTE
                                    915+*                                                                     I
                                    916+*        ROUTE  CONTROL THRU ERPIBSET--CYA                            I
0002EA 9610 F6C8      006C8         917+CCH018   OI    CCHSW1,CCHNOLST .   SET INTERNAL SWITCH TO PREVENT 19032
                                    918+*                                       MOVING ERPIB TO LIST          I
0002EE 45A0 F4C8            004C8   919+         BAL   LINKRG2,ERPIBSET .       CREATE AN ERPIB FOR STAT ONLY I
                                    920+*
0002F2 9106 0045      00045         921+         TM    CSWLOC+FIVE,CATBIT .  IS THIS CDC ALONE            19032
0002F6 4780 F302            00302   922+         BZ    CCH026A .           YES, SKIP TERM CODE TEST       19E03
0002FA 9180 F6C7      006C7         923+CCH026   TM    IBEXCSW2,COMPSEL .  IS TERM CODE= 2 OR 3           19032
0002FE 4710 F31A            0031A   924+         BO    CCH021 .            YES, DO NOT RETRY              19032
000302 48A0 F71A            0071A   925+CCH026A  LH    WKREG1,CCHSAVE+TWO .GET ERROR COUNT FROM SAVED REG 19E03
000306 12AA                         926+         LTR   WKREG1,WKREG1 .          IS VALUE ZERO
000308 4780 F31A            0031A   927+         BZ    CCH021 .                 YES, BRANCH
00030C 06A0                         928+         BCTR  WKREG1,R0 .               REDUCE ERROR COUNT BY ONE
00030E 40A0 F71A            0071A   929+         STH   WKREG1,CCHSAVE+TWO . RESTORE DECREMENTED REG       19032
000312 41C0 0008            00008   930+         LA    WKREG3,CCHRTSNY .        LOAD RETURN DISPLACEMENT TO IOS
000316 47F0 F3DA            003DA   931+         B     UCBSCH .                 GO TO UCB SEARCH ROUTINE
                                    932+*
00031A 9104 F6C8      006C8         933+CCH021   TM    CCHSW1,CCHIBC .          ERPIB ALREADY CREATED SW ON
00031E 4710 F352            00352   934+         BO    CCH022 .                 YES, GO TO SET BAD SENSE
000322 9106 0045      00045         935+         TM    CSWLOC+FIVE,CATBIT .IS THIS CDC ONLY               19E03
       SENSE ROUTINE INTERCEPTION -- IGFCATAP                                                                  PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000326 4780 F34A            0034A   936+         BZ    CCH024 .            YES,LOAD NO RETRY DISPLACEMENT 19E03
00032A 9604 200D      0000D         937+CCH025   OI    IOBCHAN(IOBREG),CCCBIT . FORCE CHANNEL ERROR TO IOB CSW
00032E D707 5000 5000 00000 00000   938+         XC    ZERO(ERPIBSZ,IBREG),ZERO(IBREG) .
000334 5075 0000            00000   939+         ST    UCBREG,IBUCBD(IBREG) .   STORE UCB ADDRESS IN THE ERPIB
000338 9601 5004      00004         940+         OI    IBPRGFGA(IBREG),CCHNRYB .SET NO RETRY BIT IN THE ERPIB
00033C 9140 F6C8      006C8         941+         TM    CCHSW1,CCHNORE .         IS THERE A RECORD ENTRY AVAIL.
000340 4710 F34A            0034A   942+         BO    CCH024 .                 NO, SKIP RECORDING OF THE ERPIB
000344 D203 D048 5004 00048 00004   943+         MVC   ERPIB,IBPRGFGA(IBREG) .  MOVE ERPIB TO R. E.       19032
00034A 41C0 000C            0000C   944+CCH024   LA    WKREG3,CCHRTSNN .        LOAD RETURN DISPLACE FOR NO RTY
00034E 47F0 F3DA            003DA   945+         B     UCBSCH .                 GO TO UCB SEARCH ROUTINE
                                    946+*
000352 94FB 5004      00004         947+CCH022   NI    IBPRGFGA(IBREG),ALLFS-CCHSNSB . OFF SNS DATA STORE BIT
000356 9601 5004      00004         948+         OI    IBPRGFGA(IBREG),CCHNRYB .  SET NO RETRY IN ERPIB   19E03
00035A 47F0 F34A            0034A   949+         B     CCH024 .                 GO TO FIND RETURN DISPLACEMENT
                                    950+*
       STAND ALONE SEEK, START I/O INTERCEPTION -- IGFCATAP                                                    PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    952+***********************************************************************
                                    953+*
                                    954+* FUNCTION --- THIS ROUTINE FILLS THE INTERCEPTION-DEPENDENT PORTION
                                    955+*              OF THE RECORD ENTRY (IF ONE EXISTS).  AN ERPIB IS
                                    956+*              CREATED BY PASSING CONTROL TO THE ERPIBSET SUBROUTINE.

                                    958+* ENTRY PTS -- CCHSSK
                                    959+*              CCHTIOSK
                                    960+*              CCHSIO

                                    962+* EXIT PTS --- UCBSCH

                                    964+* INPUT ------ INTERNAL SWITCH SETTINGS

                                    966+* OUTPUT ----- ERPIB

                                    968+* EXT REF ---- NONE

                                    970+* ERR COND --- NONE

                                    972+* TABLES ----- RECORD ENTRY
                                    973+*              ERPIB
                                    974+*
                                    975+***********************************************************************



00035E                              977+CCHSIO   EQU   *
00035E 9680 F6CA      006CA         978+CCHSSK   OI    RECBYTE,CCHSIOB .        SET SIO BIT IN RECORD BYTE
000362 47F0 F36A            0036A   979+         B     CCH027 .            GO CREATE AN ERPIB             19032
                                    980+*
000366 9620 F6CA      006CA         981+CCHTIOSK OI    RECBYTE,CCHTIOB .        SET TIO BIT IN RECORD BYTE
00036A                              982+CCH027   EQU   *
00036A 45A0 F4C8            004C8   983+         BAL   LINKRG2,ERPIBSET .       CREATE AN ERPIB
00036E 41C0 0000            00000   984+         LA    WKREG3,CCHRTSIO .        LOAD RETURN DISPLACEMENT TO IOS
000372 47F0 F3DA            003DA   985+         B     UCBSCH .                 GO TO UCB SEARCH ROUTINE
       INTERRUPT INTERCEPTION -- IGFCATAP                                                                      PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    987+***********************************************************************
                                    988+*
                                    989+* FUNCTION---- THIS IS THE SAME AS FOR THE STAND ALONE SEEK
                                    990+*              INTERCEPTION ROUTINE.

                                    992+* ENTRY PTS---
                                    993+*              ENTRY POINT         FROM
                                    994+*              CCHINT              NORMAL INTERRUPTION

                                    996+* EXIT PTS----
                                    997+*              UCBSCH              UCB SEARCH ROUTINE

                                    999+* INPUT------- INTERNAL SWITCH SETTINGS

                                   1001+* OUTPUT ----- APPROPRIATE BITS IN THE RECORD BYTE

                                   1003+* EXT REF----- NONE

                                   1005+* ERR COND---- NONE

                                   1007+* TABLES------ RECORD ENTRY
                                   1008+*              ERPIB
                                   1009+*
                                   1010+***********************************************************************



000376 9640 F6CA      006CA        1012+CCHINT   OI    RECBYTE,CCHINTB .   SET INTERRUPT BIT IN REC BYTE  19032
                                   1013+*****    COMPLET ERPIB AND EXIT
                                   1014+*
00037A                             1015+CCH041   EQU   *
00037A 45A0 F4C8            004C8  1016+         BAL   LINKRG2,ERPIBSET .       CREATE AN ERPIB
00037E 9102 F6C8      006C8        1017+         TM    CCHSW1,UCBNVBIT .   IS UCB ADR VALID               19032
000382 4710 F39A            0039A  1018+         BO    CCH045 .            NO,SKIP DASD CHECK             19032
000386 9120 7012      00012        1019+         TM    UCBTYP+TWO(UCBREG),DASD . IS THIS A DIRECT DASD DEVICE
00038A 4780 F39A            0039A  1020+         BZ    CCH045 .                 NO, BRANCH
00038E 9106 7006      00006        1021+         TM    UCBFL1(UCBREG),UCBASK+UCBDTR IS THIS A STAND ALONE SEEK
000392 4790 F39A            0039A  1022+         BC    CC9,CCH045 .   NO, CONTINUE
000396 9602 0044      00044        1023+         OI    CSWLOC+FOUR,UCKBIT .     SET UNIT CHECK TO DEQUEUE SEEK
00039A 9108 F6C8      006C8        1024+CCH045   TM    CCHSW1,CCHHAND .    IS SPECIAL HANDLING SWITCH ON  19032
00039E 4780 F3AE            003AE  1025+         BZ    CCH044 .                 NO, SKIP THE NEXT STEP
0003A2 9180 F6C9      006C9        1026+         TM    CCHSW2,SYSTERM .    IS SYSTEM TERMINATING          19E03
0003A6 4710 F3AE            003AE  1027+         BO    CCH044 .            YES-DO NOT MODIFY              19E03
0003AA 94F9 0045      00045        1028+         NI    CSWLOC+FIVE,ALLFS-ICCBIT-CCCBIT . FORCE ICC,CCC TO 0   I
0003AE 9140 F6C9      006C9        1029+CCH044   TM    CCHSW2,INTRTN2 .    IS ALTERNATE RETURN INDICATED  19032
0003B2 4710 F3BE            003BE  1030+         BO    CCH044A .           YES, GO TO LOAD ALT. DISPLAC   19032
0003B6 41C0 0004            00004  1031+         LA    WKREG3,CCHRTINT .   FIND PRIME INT RET POINT TO IOS19032
0003BA 47F0 F3DA            003DA  1032+         B     UCBSCH .            GO TO UCB SEARCH ROUTINE       19032
0003BE 41C0 0010            00010  1033+CCH044A  LA    WKREG3,CCHINT2 .    FIND ALT RETURN TO IOS FOR INT 19032
0003C2 47F0 F3DA            003DA  1034+         B     UCBSCH .                 GO TO THE UCB SEARCH ROUTINE
                                   1035+*
       HALT I/O INTERCEPT -- IGFCATAP                                                                          PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1037+***********************************************************************
                                   1038+*
                                   1039+* FUNCTION     THIS ROUTINE RECORDS THE CAUSE OF THE ERROR IN THE
                                   1040+*              RECORD ENTRY.

                                   1042+* ENTRY PTS--- CCHHIO

                                   1044+* EXIT PTS----
                                   1045+*              UCBSCH              UCB SEARCH ROUTINE

                                   1047+* INPUT------- INTERNAL SWITCH SETTINGS

                                   1049+* OUTPUT------ HIO BIT IN RECORD ENTRY
                                   1050+*              RECORD ONLY SWITCH

                                   1052+* EXT REF----- NONE

                                   1054+* ERR COND---- NONE

                                   1056+* TABLES------ RECORD ENTRY
                                   1057+*
                                   1058+***********************************************************************



0003C6 9610 F6CA      006CA        1060+CCHHIO   OI    RECBYTE,CCHHIOB .        SET HIO IN RECORD BYTE
                                   1061+*                                                                     I
                                   1062+*        ROUTE CONTROL THRU ERPIBSET                                  I
0003CA 9610 F6C8      006C8        1063+         OI    CCHSW1,CCHNOLST .   SET INTERNAL SWITCH TO PREVENT 19032
                                   1064+*                                       MOVING ERPIB TO LIST          I
0003CE 45A0 F4C8            004C8  1065+         BAL   LINKRG2,ERPIBSET .       CREATE AN ERPIB FOR STAT ONLY I
0003D2 41C0 0000            00000  1066+         LA    WKREG3,CCHRTHIO .        LOAD RETURN DISPLACE TO THE SVC
0003D6 47F0 F3DA            003DA  1067+         B     UCBSCH .                 GO TO THE UCB SEARCH ROUTINE
                                   1068+*
       UCB SEARCH ROUTINE -- IGFCATAP                                                                          PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1070+***********************************************************************
                                   1071+*
                                   1072+* FUNCTION---- 1.  COMPLETE THE RECORD ENTRY BY MOVING UP TO
                                   1073+*                  8  ACTIVE I/O UNIT ADDRESSES INTO IT.          19032
                                   1074+*              2.  TO DETERMINE IF THE SYSTEM SHOULD BE           19032
                                   1075+*                  TERMINATED--AND IF NECESSARY, TERMINATE IT.    19032

                                   1077+* ENTRY PTS--- UCBSCH

                                   1079+* EXIT PTS---- APPROPRIATE POINTS IN IOS AS IDENTIFIED BY
                                   1080+*              PREVIOUS ROUTINES.

                                   1082+* INPUT------- INTERNAL SWITCH SETTINGS  ADDRESS OF RETURN POINT
                                   1083+*              TO IOS.

                                   1085+* OUTPUT------ UCB ADDRESSES IN RECORD ENTRY  COMPLETED RECORD ENTRY

                                   1087+* EXT REF----- UCBS  RETURN POINT IN IOS

                                   1089+* ERR COND---- NONE

                                   1091+* TABLES------ RECORD ENTRY
                                   1092+*
                                   1093+***********************************************************************



0003DA 1BAA                        1095+UCBSCH   SR    WKREG1,WKREG1 .          SET COUNT REG TO ZERO
0003DC 9140 F6C8      006C8        1096+         TM    CCHSW1,CCHNORE .         IS THERE A RECORD ENTRY AVAIL
0003E0 4710 F3FE            003FE  1097+         BO    CCHEXIT .           NO, SKIP RECORD ENTRY FILLING  19032
0003E4 41A0 0008            00008  1098+         LA    WKREG1,EIGHT .      SET COUNT TO NBR OF ACT I/O UNT19032
0003E8 41E0 D028            00028  1099+         LA    WORK4,ACTIO .            GET ADDR OF ACT I/O REC. ENT.
0003EC 58B0 9028            00028  1100+CCH060   L     WKREG2,CVTILK2 .   ADDR OF TWO BYTE UCB POINTERS   19032
0003F0 489B 0000            00000  1101+CCH064   LH    WORK5,ZERO(WKREG2) .        GET ADDRESS OF UCB
0003F4 1299                        1102+         LTR   WORK5,WORK5 .            TEST UCB ADDRESS
0003F6 4780 F470            00470  1103+         BZ    CCH061 .                 NO UCB ADDRESS FOR THIS ENTRY
0003FA 4720 F468            00468  1104+         BP    CCH062 .                 GOOD ENTRY, CK FOR POST + BUSY
0003FE                             1105+CCH066   EQU   * 19032
                                   1106+*

0003FE 9180 F6C9      006C9        1108+CCHEXIT  TM    CCHSW2,SYSTERM .         IS SYSTEM TERMINATING     19E03
000402 47E0 F438            00438  1109+         BNO   CCHGETRG .               NO-BRANCH-CONTINUE        19E03
000406 9140 F6C8      006C8        1110+         TM    CCHSW1,CCHNORE .         HAS A R.E. BEEN CREATED   19E03
00040A 4710 F438            00438  1111+         BO    CCHGETRG .               NO,BRANCH                 19E03
00040E 9568 D007      00007        1112+         CLI   COUNT+SEVEN,LGH6070 .    IS THIS 2860/2870         19E03
000412 4740 F438            00438  1113+         BL    CCHGETRG .               NO-INTEGRATED-BRANCH      19E03
000416 4780 F432            00432  1114+         BE    REST6070 .               YES-GO RESTORE            19E03
00041A 5840 F674            00674  1115+         L     WRK4,ADRPTRTB .          GET PTR TABLE ADDRESS     19E03
00041E 58A0 4010            00010  1116+         L     WKREG1,CCHLOG80 .        GET 2880 LOGOUT POINTER   19E03
000422 12AA                        1117+         LTR   WKREG1,WKREG1 .          IS IT INITIALIZED         19E03
000424 4780 F438            00438  1118+         BZ    CCHGETRG .               NO-BRANCH-NO RESTORE      19E03
000428 D26F A000 D058 00000 00058  1119+         MVC   ZERO(ONE12,WKREG1),CHNLOG .   RESTORE FOR SEREP    19E03
00042E 47F0 F438            00438  1120+         B     CCHGETRG .               GO RESTORE REGS           19E03
                                   1121+*                                                                 19E03
000432 D217 0130 D058 00130 00058  1122+REST6070 MVC   LOG6070(TWENTY4),CHNLOG .SET UP FOR SEREP          19E03
       UCB SEARCH ROUTINE -- IGFCATAP                                                                          PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000438 18EC                        1123+CCHGETRG LR    LINKRG1,WKREG3 .         GET RETURN DISPLACEMENT   19E03
00043A 980C F718            00718  1124+         LM    R0,R12,CCHSAVE .   RESTORE REGISTERS               19032
00043E 5AE0 F750            00750  1125+         A     LINKRG1,CCHSAVE+FIFTY6 . ADD DISPLACEMENT TO RETURN ADDR
                                   1126+*                                                                     I
000442 9180 F6C9      006C9        1127+         TM    CCHSW2,SYSTERM .    SHOULD SYSTEM BE TERMINATED.   19032
000446 47E0 F45E            0045E  1128+         BNO   CCHOUT .            NO, BRANCH TO OUT              19032
00044A 9140 F6C8      006C8        1129+         TM    CCHSW1,CCHNORE .    HAS A R.E. BEEN CREATED        19032
00044E 4710 F00C            0000C  1130+         BO    CCHRCUR .           NO, RECURSE TO CREATE R.E.     19032
000452 9620 D00B      0000B        1131+         OI    RECSWCH,TERMBIT .   SET R.E. BIT FOR TERMINATION   19032
000456 920F 0073      00073        1132+CCHQUIT  MVI   MACHCK+THREE,QUITCODE .  STORE SEREP CODE IN 115   19032
00045A 8200 0070      00070        1133+         LPSW  MACHCK .            LOAD MACHINE CHECK PSW         19032
                                   1134+*
                                   1135+*
00045E 58D0 F74C            0074C  1136+CCHOUT   L     REREG,CCHSAVE+FIFTY2 .   RESTORE REG 13            19E03
000462 9200 0073      00073        1137+         MVI   MACHCK+THREE,ZERO .      CLEAR CODE FROM 115       19E03
000466 07FE                        1138+         BR    LINKRG1 .                RETURN TO THE OPERATING SYSTEM
                                   1139+*
000468 9180 9006      00006        1140+CCH062   TM    UCBFL1(WORK5),UCBBSY .  IS THIS UNIT ACTIVE        19032
00046C 4710 F478            00478  1141+         BO    CCH063 .            YES,BRANCH                     19032
000470 41BB 0002            00002  1142+CCH061   LA    WKREG2,TWO(WKREG2) .       NO, UP ADDRESS BY TWO
000474 47F0 F3F0            003F0  1143+         B     CCH064 .                 LOOP
                                   1144+*
000478 1846                        1145+CCH063   LR    WRK4,UAREG .        GET UNIT ADDRESS               19032
00047A 8840 0008            00008  1146+         SRL   WRK4,EIGHT .        ISOLATE CHANNEL NUMBER         19032
00047E 4839 0004            00004  1147+         LH    WORK3,CCHCUA(WORK5) . GET UCB UNIT ADDRESS         19032
000482 8930 0010            00010  1148+         SLL   WORK3,SIXTEEN .     ISOLATE CHANNEL NUMBER         19032
000486 8830 0018            00018  1149+         SRL   WORK3,TWENTY4 .                                    19032
00048A 1734                        1150+         XR    WORK3,WRK4 .        DO CHANNEL NUMBERS AGREE       19032
00048C 4770 F470            00470  1151+         BNE   CCH061 .            NO, GO UP POINTER              19032
000490 12AA                        1152+         LTR   WKREG1,WKREG1 .     IS RECORD ENTRY FULL           19032
000492 4780 F3FE            003FE  1153+         BZ    CCH066 .            YES, DO NOT RECORD THIS UNIT   19032
000496 4130 D028            00028  1154+         LA    WORK3,ACTIO .            GET ADDR OF ACT I/O ENT AREA  I
00049A D501 3000 9004 00000 00004  1155+CCH063A  CLC   ZERO(TWO,WORK3),CCHCUA(WORK5) . IS CUA ALREADY RECOR   I
0004A0 4780 F470            00470  1156+         BE    CCH061 .                YES,BRANCH                     I
0004A4 193E                        1157+         CR    WORK3,WORK4 .            IS SCAN COMPLETED             I
0004A6 47B0 F4B2            004B2  1158+         BNL   CCH063B .               YES,BR, MOVE IN CUA            I
0004AA 4133 0002            00002  1159+         LA    WORK3,TWO(WORK3) .       NO, UP PTR AND                I
0004AE 47F0 F49A            0049A  1160+         B     CCH063A .                 CONTINUE SCAN.               I
                                   1161+*
0004B2 D201 E000 9004 00000 00004  1162+CCH063B  MVC   ZERO(TWO,WORK4),CCHCUA(WORK5) . MOVE CUA TO RECORD ENT I
0004B8 41EE 0002            00002  1163+         LA    WORK4,TWO(WORK4) .       UP ADDRESS OF ACT I/O REC. ENT.
0004BC 06A0                        1164+         BCTR  WKREG1,R0 .               REDUCE COUNT BY ONE
                                   1165+*
                                   1166+*        AT THIS POINT IT IS POSSIBLE TO POST ALL DEVICES AFFECTED
                                   1167+*        BY THE SYSTEM RESET. IN GENERAL, THE OVERALL
                                   1168+*        INTEGRITY OF THE PROGRAM HAS BEEN RETAINED AND MODIFICATION
                                   1169+*        NEED ONLY BE INCLUDED AT THIS POINT.
                                   1170+*
0004BE 12AA                        1171+         LTR   WKREG1,WKREG1 .          IS RECORD ENTRY FULL
0004C0 4780 F3FE            003FE  1172+         BZ    CCH066 .                 YES, RETURN TO SYSTEM
0004C4 47F0 F470            00470  1173+         B     CCH061 .                 GO TO UPDATE UCB POINTER
       ERPIB FILL SUBROUTINE -- IGFCATAP                                                                       PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1175+***********************************************************************
                                   1176+*
                                   1177+* FUNCTION --- THIS ROUTINE COMPLETES THE ERPIB BY MOVING THE UCB
                                   1178+*              ADDRESS INTO IT AND TRANSFERRING CONTROL TO THE
                                   1179+*              APPROPRIATE CHANNEL DEPENDENT ROUTINE TO SET THE
                                   1180+*              REMAINING APPROPRIATE BITS IN THE ERPIB.  WHEN CONTROL
                                   1181+*              IS RETURNED, THE LAST HALF OF THE ERPIB AND THE FAILING
                                   1182+*              CCW ARE MOVE TO THE RECORD ENTRY.  UNLESS OTHERWISE
                                   1183+*              SPECIFIED,  THE WORK ERPIB IS MOVED TO THE LIST.
                                   1184+*
                                   1185+* ENTRY PTS--- ERPIBSET

                                   1187+* EXIT PTS---- LINK REGISTER

                                   1189+* INPUT ------ ADDRESS OF ERPIB IN PARAMETER REGISTER.

                                   1191+* OUTPUT------ COMPLETED ERPIB

                                   1193+* ERR COND---- NONE

                                   1195+* EXT REF----- CHANNEL LOGOUT, UCB

                                   1197+* TABLES------ ERPIB
                                   1198+*
                                   1199+***********************************************************************



0004C8 90AC F700            00700  1201+ERPIBSET STM   WKREG1,WKREG3,CCHKEEP .  SAVE WORK REGISTERS
0004CC 9508 3000      00000        1202+         CLI   ZERO(WORK3),COMP08 .IS THIS A 2880 CHANNEL         19E03
0004D0 4780 F4E4            004E4  1203+         BE    CON80 .             YES,GO TO COMPLETE ERPIB       19E03
0004D4 9507 3000      00000        1204+         CLI   ZERO(WORK3),COMP07 .IS THIS A 2880 CHANNEL         19E03
0004D8 4780 F4E4            004E4  1205+         BE    CON80 .             YES,GO TO BUILD ERPIB          19E03
0004DC 9106 0045      00045        1206+         TM    CSWLOC+FIVE,CATBIT .IS THIS CDC ONLY               19E03
0004E0 4780 F5BC            005BC  1207+         BC    CC8,CCH101 .        YES, SKIP ERPIB FILL ROUTINE   19E03
0004E4 D200 F6C4 F6CA 006C4 006CA  1208+CON80    MVC   IBPRGFG1(I),RECBYTE . MOVE RECORD BYTE TO THE ERPIB19E03
0004EA D200 F6C4 F6CA 006C4 006CA  1209+         MVC   IBPRGFG1(ONE),RECBYTE .    MOVE RECORD BYTE TO THE ERPIB
0004F0 5070 F6C0            006C0  1210+         ST    UCBREG,IBUCB .           PUT UCB ADDR IN ERPIB
0004F4 5880 F758            00758  1211+         L     INDEX,CCHMASK4 .    LOAD CHECK MASK                19032
0004F8 5483 0000            00000  1212+         N     INDEX,ZERO(WORK3) . IS THERE AN ADDR IN THIS ENTRY 19032
0004FC 4780 F588            00588  1213+         BZ    SETTERMA .          NO, BR TO SET SYSTERM          19032
000500 9604 F6C4      006C4        1214+         OI    IBPRGFG1,CCHSNSB .  SET SENSE DATA STORED BIT      19032
000504 9612 F6C6      006C6        1215+         OI    IBEXCSW1,CCHRCV+CCHCAV .  SET R CODE,CMD ADR VALID 19032
000508 5833 0000            00000  1216+REPEAT   L     RTNADRG,ZERO(WORK3) . GET RTN ADDR FROM TABLE      19E03
00050C 4180 F6C0            006C0  1217+         LA    WKERPIB,IBWORK .    GET WORK ERPIB ADDRESS TO PASS 19032
000510 05A3                        1218+         BALR  LINKRG2,RTNADRG .   GO TO DEPENDENT FILL ROUTINE   19032
                                   1219+*
                                   1220+*       RETURN POINT FOR SUBROUTINE
                                   1221+*
                                   1222+*************
                                   1223+*    THIS SECTION TESTS FOR A 2880 OPERATING IN COMPATIBILITY MODE
                                   1224+*
000512 9110 F6C9      006C9        1225+CCHRETRN TM    CCHSW2,NOLOG .      DID 2860 FILL RTN FIND NO LOG  19E03
000516 4780 F552            00552  1226+         BZ    NORMCONT .          NO, GO ANALYZE ERPIB           19E03
00051A 4130 F678            00678  1227+         LA    WORK3,CHRADTAB .    YES,GET RTN ADDR TABLE ADDR    19E03
       ERPIB FILL SUBROUTINE -- IGFCATAP                                                                       PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00051E 5880 F758            00758  1228+         L     INDEX,CCHMASK4 .    TO CHECK FOR 2880 RTN PRESENCE 19E03
000522 91FF 3000      00000        1229+LOOP80   TM    ZERO(WORK3),ALLFS . IS THIS THE END OF TABLE       19E03
000526 4710 F552            00552  1230+         BO    NORMCONT .          YES,GO TO ANALYZE ERPIB        19E03
00052A 9508 3000      00000        1231+         CLI   ZERO(WORK3),COMP08 .IS THIS ENTRY FOR 2880 CHANNEL 19E03
00052E 4780 F53E            0053E  1232+         BE    CKADR .             YES-GO SEE IF ADDRESS THERE    19E03
000532 9507 3000      00000        1233+         CLI   ZERO(WORK3),COMP07 .IS THIS ENTRY FOR 2880         19E03
000536 4780 F53E            0053E  1234+         BE    CKADR .             YES-GO CHECK FOR ADDRESS       19E03
00053A 47F0 F54A            0054A  1235+         B     UPLOOP .            GO TO NEXT ENTRY               19E03
                                   1236+*                                                                 19E03
00053E 5483 0000            00000  1237+CKADR    N     INDEX,ZERO(WORK3) . IS THERE AN ADDRESS IN ENTRY   19E03
000542 4780 F54A            0054A  1238+         BZ    UPLOOP .            NO, GO INSPECT NEXT ENTRY      19E03
000546 47F0 F508            00508  1239+         B     REPEAT .            YES,GO SET UP TO ENTER 2880 RTN19E03
00054A 4133 0004            00004  1240+UPLOOP   LA    WORK3,CCH4(WORK3) . UP POINTER TO NEXT TABLE ENTRY 19E03
00054E 47F0 F522            00522  1241+         B     LOOP80 .            GO EXAMINE THIS ENTRY          19E03
000552 9106 0045      00045        1242+NORMCONT TM    CSWLOC+FIVE,CATBIT .IS THIS CDC ONLY               19E03
000556 4780 F5BC            005BC  1243+         BZ    CCH101 .            YES, SKIP ERPIB INSPECTION     19E03
00055A 91C0 F6C7      006C7        1244+         TM    IBEXCSW2,COMPSYS .  DOES TERM CODE EQ 3 (SYS RESET)19032
00055E 4710 F580            00580  1245+         BO    SETTERM .           YES, BRANCH TO SET SYSTERM BIT 19032
000562 9101 F6C6      006C6        1246+         TM    IBEXCSW1,CCHDAV . IS UNIT ADR VALID         19032
000566 47E0 F570            00570  1247+         BNO   CCHINTCK .          NO, BRANCH TO CHK INTERCEPT    19032
00056A 1277                        1248+         LTR   UCBREG,UCBREG .     IS UCB ADR ZERO                19032
00056C 4770 F5AC            005AC  1249+         BNZ   CCHCNTU .           NO, BRANCH TO CONTINUE         19032
000570 9140 F6CA      006CA        1250+CCHINTCK TM    RECBYTE,CCHINTB .   IS INTERCEPTION ON AN INTERRUPT19032
000574 4710 F59A            0059A  1251+         BO    ZUCB .              YES, BRANCH TO ZERO UCBREG     19032
                                   1252+** APAR 67053  9/25/73    SRB                                  @S67053P
000578 9110 F6CA      006CA        1253+         TM    RECBYTE,CCHHIOB IS THIS HIO INTERCEPT?      @S67053P
00057C 47E0 F5AC            005AC  1254+         BNO   CCHCNTU NO, MUST BE SIO OR TIO      @S67053P
                                   1255+*                                  ALLOW RETRY                 @S67053P
                                   1256+**                                                             @S67053P
000580 9680 F6C9      006C9        1257+SETTERM  OI    CCHSW2,SYSTERM .    SET SYSTEM TERMINATION SWITCH  19032
000584 47F0 F5A8            005A8  1258+         B     RECOYSET .          GO TO SET RECORD ONLY SW       19032
000588 12DD                        1259+SETTERMA LTR   REREG,REREG .       IS THERE A RECORD ENTRY AVAIL  19032
00058A 4780 F580            00580  1260+         BZ    SETTERM .           NO,SKIP SETTING SWITCH         19032
00058E 9610 D00B      0000B        1261+         OI    RECSWCH,CHNSPRT .   SET CHANNEL NOT SUPPORTED SW   19032
000592 9252 D007      00007        1262+         MVI   RECENTRY+7,LENGTH .  SET DEFAULT LENGTH           A62683
000596 47F0 F580            00580  1263+         B     SETTERM .           IN R.E. AND GO SET SYSTERM SW  19032
                                   1264+*                                                                 19032
                                   1265+*                                                                 19032
00059A D703 F734 F734 00734 00734  1266+ZUCB     XC    UCBDISP+CCHSAVE(CCH4),UCBDISP+CCHSAVE . ZERO UCBREG19032
0005A0 9640 F6C9      006C9        1267+         OI    CCHSW2,INTRTN2 .    SET ALTERNATE RETURN SWITCH    19032
0005A4 9602 F6C8      006C8        1268+         OI    CCHSW1,UCBNVBIT .  SET UCB ADR INVALID BIT         19032
0005A8 9610 F6C8      006C8        1269+RECOYSET OI    CCHSW1,CCHNOLST .   SET RECORD ONLY SWITCH         19032
                                   1270+*
                                   1271+*
                                   1272+*                                                                     I
                                   1273+*   THIS ROUTINE WILL SET CA, COUNT INVALID ON A SIO                  I
                                   1274+*                                                                     I
0005AC 9180 F6CA      006CA        1275+CCHCNTU  TM    RECBYTE,CCHSIOB .   IS THIS SIO                    19032
0005B0 4780 F5BC            005BC  1276+         BZ    CCH101 .                NO,BRANCH.                     I
0005B4 94FB F6C6      006C6        1277+         NI    IBEXCSW1,ALLFS-CCHCMDV .  OTHERWISE, SET CA INVALID    I
0005B8 94FD F6C4      006C4        1278+         NI    IBPRGFG1,ALLFS-CCHCNTB .  SET COUNT INVALID ALSO.      I
0005BC 9140 F6C8      006C8        1279+CCH101   TM    CCHSW1,CCHNORE .         IS THERE A RECORD ENTRY AVAIL
0005C0 4710 F626            00626  1280+         BO    CCH102 .                 NO, DO NOT RECORD ERPIB
0005C4 D203 D048 F6C4 00048 006C4  1281+         MVC   ERPIB,IBPRGFG1 .    SAVE LAST HALF ERPIB IN R.E.   19032
                                   1282+*        THIS ROUTINE RECORDS THE FAILING CCW AND SETS THE CA     19032
       ERPIB FILL SUBROUTINE -- IGFCATAP                                                                       PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1283+*        TO ZERO ON A SIO.                                        19032
                                   1284+*                                                                 19032
0005CA 58A0 0048            00048  1285+         L     WKREG1,CAWLOC .     GET CMD ADR FROM CAW           19032
0005CE 41AA 0000            00000  1286+         LA    WKREG1,ZERO(WKREG1) . CLEAR HIGH ORDER BYTE        19032
0005D2 9140 F6CA      006CA        1287+         TM    RECBYTE,CCHINTB .   IS INTERCEPT ON AN INTERRUPT   19032
0005D6 47E0 F5FE            005FE  1288+         BNO   CCHMOVE .           NO, GO MOVE CCW TO REC ENTRY   19032
0005DA 9108 0045      00045        1289+         TM    CSWLOC+FIVE,CSWCDK .  IS THIS CHANNEL DATA CHECK PTM6061
0005DE 4710 F5EA            005EA  1290+         BO    CCH101A .           SKIP TESTING COMMAND ADDR    PTM6061
0005E2 9104 F6C6      006C6        1291+         TM    IBEXCSW1,CCHCMDV .  IS COMMAND ADDRESS VALID       19032
0005E6 47E0 F626            00626  1292+         BNO   CCH102 .            NO, SKIP MOVING CCW TO RE      19032
0005EA 58A0 0040            00040  1293+CCH101A  L     WKREG1,CSWLOC .     GET CMD ADR FROM CSW         PTM6061
0005EE 41AA 0000            00000  1294+         LA    WKREG1,ZERO(WKREG1) . CLEAR HIGH ORDER BYTE        19032
0005F2 12AA                        1295+         LTR   WKREG1,WKREG1 .     IS CMD ADDRESS ZERO            19032
0005F4 4780 F626            00626  1296+         BZ    CCH102 .            YES, BRANCH NO CCW AVAILABLE   19032
0005F8 41B0 0008            00008  1297+         LA    WKREG2,EIGHT .      LOAD DECREMENT CONSTANT        19032
0005FC 1BAB                        1298+         SR    WKREG1,WKREG2 .     DECREMENT COMMAND ADDRESS      19032
0005FE 59A0 90A4            000A4  1299+CCHMOVE  C     WKREG1,CVTMZ00 .    COMPARE FOR LEGAL ADDRESS      19032
000602 4720 F626            00626  1300+         BH    CCH102 .            BRANCH,ILLEGAL ADDRESS         19032
000606 42A0 F6FC            006FC  1301+         STC   WKREG1,CCHWORK .    STORE ADR FOR BOUNDARY CHECK   19032
00060A 9107 F6FC      006FC        1302+         TM    CCHWORK,HEX07 .  IS BOUNDARY ALIGNMENT IMPROPER    19032
00060E 4750 F626            00626  1303+         BC    CC5,CCH102 .        YES, DO NOT RECORD CCW         19032
000612 D207 D038 A000 00038 00000  1304+         MVC   CCW,ZERO(WKREG1) .  RECORD FAILING CCW             19032
000618 9180 F6CA      006CA        1305+         TM    RECBYTE,CCHSIOB .  IS THIS SIO                     19032
00061C 4780 F626            00626  1306+         BZ    CCH102 .           NO, BRANCH                      19032
000620 D702 D041 D041 00041 00041  1307+         XC    CSWLWB+ONE(THREE),CSWLWB+ONE .  ZERO CMD ADDRESS   19032
000626 9110 F6C8      006C8        1308+CCH102   TM    CCHSW1,CCHNOLST .   IS SW SET TO PREVENT MOVE      19032
00062A 4710 F65E            0065E  1309+         BO    CCH104 .                 YES,BRANCH-RESTORE REGS       I
00062E 9120 7006      00006        1310+         TM    UCBFL1(UCBREG),UCBPST .  IS POST UP                    I
000632 4780 F64A            0064A  1311+         BZ    CCH103 .                 NO, DO NOT PUT ERPIB IN THE LST
000636 48A7 0004            00004  1312+         LH    WKREG1,UCBCHA(UCBREG) .  GET UNIT ADDRESS          19E03
00063A 54A0 F768            00768  1313+         N     WKREG1,MPADRMSK .        AND OUT UNWANTED          19E03
00063E 19A6                        1314+         CR    WKREG1,UAREG .           DOES TROUBLE DEV. EQ UCB  19E03
000640 4770 F64A            0064A  1315+         BNE   CCH103 .                 NO,DO NOT STORE ERPIB     19E03
000644 D207 5000 F6C0 00000 006C0  1316+         MVC   ZERO(ERPIBSZ,IBREG),IBWORK .ERPIB TO ERPIB LIST
00064A 9108 F6C6      006C6        1317+CCH103   TM    IBEXCSW1,CCHUSV .        IS THE UNIT STATUS VALID
00064E 4710 F65E            0065E  1318+         BO    CCH104 .                 YES, GO TO RESTORE REGISTERS

000652 9180 F6C9      006C9        1320+         TM    CCHSW2,SYSTERM .    IS SYSTERM TERMINATING         19032
000656 4710 F65E            0065E  1321+         BO    CCH104 .                 YES,BRANCH. DO NOT CHANGE     I
                                   1322+*                                       CSW STATUS. MISLEADING,IF DO  I
                                   1323+*                                       SYSTEM IS GOING DOWN          I

00065A 9200 0044      00044        1325+         MVI   CSWLOC+FOUR,ZERO .  ZERO STATUS ACCORDING TO           I
                                   1326+*                                       CONVERSATION OF 3-12-69       I
                                   1327+***********************************************************************

00065E 98AC F700            00700  1329+CCH104   LM    WKREG1,WKREG3,CCHKEEP .  RESTORE WORK REGISTERS
000662 07FA                        1330+         BR    LINKRG2 .                RETURN VIA LINK REGISTER
       CONSTANTS -- IGFCATAP                                                                                   PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1333+*****    GENERAL
                                   1334+*
000664                             1335+         DS    0H
000664 0700                        1336+         CNOP  6,8
000666 00                          1337+NSCLOCK  DC    X'00' .             NS CLOCK SUPPORTED SWITCH      19E03
000667 00                          1338+         DC    X'00' .             SPARE                          19E03
000668 0000000000000000            1339+MODID    DC    1D'0' .             STORE CPU ID FIELD             19E03
000670 00000000                    1340+RESIZE   DC    1F'0' .            MAX RECORD SIZE-STORED AT INIT  19032
000674 00000000                    1341+ADRPTRTB DC    1F'0' .             PARAMETER TABLE ADDRESS        19032
000678 0000000000000000            1342+CHRADTAB DC    7F'0' .             CHANNEL ROUTINE ADDRESS TABLE  19032
000694 0000000000000000            1343+         DC    9F'0' .             EXTENSION OF ADDRESS TABLE     19E03
0006B8 FF                          1344+         DC    X'FF' .                                            19032
0006C0                             1345+IBWORK   DS    0D .                     IRPIB WORK AREA
0006C0                             1346+IBUCB    DS    CL4 .                    UCB FIELD
0006C4                             1347+IBPRGFG1 DS    CL1 .                    1ST PROGRAM CONTROLLED SWITCHES
0006C5                             1348+IBPRGFG2 DS    CL1 .                    2ND PROGRAM CONTROLLED SWITCHES
0006C6                             1349+IBEXCSW1 DS    CL1 .                    1ST EXTENDED CSW BYTE
0006C7                             1350+IBEXCSW2 DS    CL1 .                    2ND EXTENDED CSW BYTE
0006C8                             1351+CCHSWS   DS    0CL2 .              INTERNAL CCH SWITCHES          19032
0006C8                             1352+CCHSW1   DS    CL1 .               BYTE ONE                       19032
0006C9 00                          1353+CCHSW2   DC    X'00' .             BYTE TWO                       19032
0006CA                             1354+RECBYTE  DS    1C .                RECORD BYTE                    19032
0006CB 0000000000
0006D0 0000000000000000            1355+ERPIBFD  DC    5D'0' .                  5 ERPIB'S DEFINED
0006F8 FF                          1356+         DC    X'FF' .                  END OF ERPIB TABLE
0006FC                             1357+CCHWORK  DS    F .                      WORK AREA FOR CCH
000700                             1358+CCHKEEP  DS    4F .                SAVE AREA FOR CCH SUBROUTINES     MP
000710 3A3F0000                    1359+TDADJ    DC    X'3A3F0000' .       PSEUDO CLOCK CORRECTION FACTOR 19032
000714 C5C10000                    1360+TD24HRS  DC    X'C5C10000' .       PSEUDO CLOCK CORRECTION FACTOR 19032
000718                             1361+CCHSAVE  DS    11F .                    REGISTER
000744                             1362+SWKRG2   DS    4F .                          SAVE AREA
000754 0000FFFF                    1363+CCHMASK1 DC    X'0000FFFF'
000758 00FFFF00                    1364+CCHMASK4 DC    X'00FFFF00' .       MASK FOR ADDRESS CHECK         19032
00075C                             1365+CCHPARBT DS    X .                      PARITY CHECK BYTE
00075D 00                          1366+IGFCCH   DC    X'00' .                  MODEL NUMBER SUPPLIED BY NIP
00075E 2000                        1367+RECORDID DC    X'2000' .           RECORD ENTRY KEY ID FIELD      19032
000760                             1368+RECMACH  DS    X
000761 C9                          1369+         DC    C'I'
000762 0000                        1370+         DC    X'0000' .               INBOARD INDICATOR
000764 00000000                    1371+CCHSIRB  DC    A(SIRB) .               ADDRESS OF SYSTEM IRB
000768 00003FFF                    1372+MPADRMSK DC    X'00003FFF' .            UNIT ADDRESS MASK         19E03
00076C                             1373+         DS    0F .
00076C D4D4D4D4D4D4D4D4            1374+MAINT    DC    50C'M' .     MAINTAINENCE AREA
       CONSTANTS -- IGFCATAP                                                                                   PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1377+*                     COMMUNICATIONS VECTOR TABLE FORMAT


000000                             1379+CVTDSECT DSECT  .
                                   1380+*
                                   1381+*              OS/360
                                   1382+*        COMMUNICATION VECTOR TABLE
                                   1383+*
                                   1384+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5
                                   1385+*
000010                             1386+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT
                                   1387+*
                                   1388+*              BEGINNING OF CVT PROPER
                                   1389+*
000000                             1390+         DS    0F
000000                             1391+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE
                                   1392+*
000000 00000000                    1393+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST
000004 00000000                    1394+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE
                                   1395+*                              ASYNCHRONOUS EXITS
000008 00000000                    1396+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB
00000C 00000000                    1397+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB
000010 00000000                    1398+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT
                                   1399+*                              CONSOLE INTERRUPTION ROUTINE
000014 00000000                    1400+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE
000018 00000000                    1401+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING
                                   1402+*                              ROUTINE FOR SUPERVISOR
00001C 00000000                    1403+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                   1404+*                              RELATIVE TRACK ADDR TO ABSOLUTE
000020 00000000                    1405+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                   1406+*                              ABSOLUTE TRACK ADDR TO RELATIVE
000024 00000000                    1407+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION
                                   1408+*                              IN UCB LOOKUP TABLE
000028 00000000                    1409+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION
                                   1410+*                              IN UCB LOOKUP TABLE
00002C 00000000                    1411+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE
                                   1412+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES
000030 00000000                    1413+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY
                                   1414+*                              IN UCB LOOKUP TABLE
000034 00000000                    1415+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE
000038 00000000                    1416+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL
00003C 00000000                    1417+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)
                                   1418+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS
                                   1419+*                              MASTER SCHEDULER RESIDENT DATA AREA
000040 00000000                    1420+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE
000044 00000000                    1421+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE
000048 00000000                    1422+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS
                                   1423+*                              FOR DAMAGE ASSESSMENT ROUTINES
00004C 00000000                    1424+CVT0FN00 DC    A(0) -        RESERVED (MVT)
000050 0A03                        1425+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER
000052 07FE                        1426+CVTBRET  BR    14 -          RETURN TO CALLER
000054 00000000                    1427+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB
000058 00000000                    1428+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER
                                   1429+*                              ROUTINE (SHPC FIRST)
00005C 00000000                    1430+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL
       CONSTANTS -- IGFCATAP                                                                                   PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000060 00000000                    1431+CVTSJQ   DC    A(0) -        RESERVED (MVT)
000064 00000000                    1432+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR
000068 00000000                    1433+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE
                                   1434+*                              FOR INTERVAL TIMER
00006C 00000000                    1435+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE
                                   1436+*                              FOR INTERVAL TIMER
000070 00000000                    1437+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE
000074 10                          1438+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM
000040                             1439+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS
000020                             1440+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS
000010                             1441+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1
000004                             1442+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING
000075 000000                      1443+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC
000078 00000000                    1444+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE
00007C 00000000                    1445+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER
000080 00000000                    1446+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS
000084 00000000                    1447+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE
000088 00000000                    1448+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER
00008C 00000000                    1449+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE
000090 00000000                    1450+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE
000094 00000000                    1451+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT
                                   1452+*                              DATA AREA (MVT/MFT)
000098 00000000                    1453+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE
00009C 00000000                    1454+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE
0000A0 00000000                    1455+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE
0000A4 00000000                    1456+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS
0000A8 00000000                    1457+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)
0000AC 00000000                    1458+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD
                                   1459+*                              (0 IF GFX INACTIVE) MVT
0000B0 00000000                    1460+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA
                                   1461+*                              (MVT/MFT)
0000B4 0000                        1462+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER
0000B6 00                          1463+CVTOPTA  DC    AL1(00) -     MISCELLANEOUS FLAGS
000080                             1464+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)
000040                             1465+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --
                                   1466+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000020                             1467+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --
                                   1468+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000010                             1469+CVTNIP   EQU   X'10' -       NIP RUNNING
000008                             1470+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)
000004                             1471+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE
000002                             1472+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT
000001                             1473+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT
0000B7 00                          1474+CVTOPTB  DC    AL1(00) - MISCELLANEOUS FLAGS
000080                             1475+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)
000020                             1476+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)
                                   1477+*
                                   1478+*              PCP OVERLAY
                                   1479+*
0000B8                             1480+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART
0000BB                             1481+CVTSTUSA DS    B -           STATUS BYTE A
000008                             1482+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART
                                   1483+*                              WAS INITIATED INTRASTEP
000004                             1484+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART
                                   1485+*                              WAS INITIATED INTERSTEP
       CONSTANTS -- IGFCATAP                                                                                   PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000002                             1486+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM
                                   1487+*                              AND DATA HAS NOT BEEN READ
0000BC                             1488+         DS    CL2 -         RESERVED
0000BE                             1489+         DS    CL2 -         RESERVED
                                   1490+*
                                   1491+*              MVT/MFT OVERLAY
                                   1492+*
0000B8                             1493+         ORG   CVTCRTTR
                                   1494+*
0000B8 00000000                    1495+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR
0000BC 00000000                    1496+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE
                                   1497+*
                                   1498+*              END OF OVERLAYS
                                   1499+*
0000C0 00000000                    1500+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)
0000C4 00000000                    1501+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA
0000C8 00000000                    1502+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT
                                   1503+*                              (MVT/MPS)
0000CC 00000000                    1504+CVTUSER  DC    A(0) -        A WORD TO THE USER
                                   1505+*
                                   1506+*              MFT/MVT CVT EXTENSION
                                   1507+*
0000D0 00000000                    1508+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT
0000D4 0A0D                        1509+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)
0000D6 0A06                        1510+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)
0000D8 00000000                    1511+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT
0000DC 00000000                    1512+CVTPATCH DC    A(0) -        ADDR OF FE PATCH AREA
0000E0 00000000                    1513+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA
                                   1514+*                              (MVT/MFT)
0000E4                             1515+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)
0000E4 00                          1516+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)
000080                             1517+CVTTSRDY EQU   X'80' -       TIME SHARING READY
0000E5 000000                      1518+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)
0000E8 00000000                    1519+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)
0000EC                             1520+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)
0000EC 00                          1521+CVTGTFST DC    B'0' -        STATUS FLAGS
0000C0                             1522+CVTGTFS  EQU   X'C0' -       STATE
                                   1523+*/       00    CVTGTFIN      INACTIVE
                                   1524+*/       01    CVTGTFSR      STARTING
                                   1525+*/       10    CVTGTFSP      STOPPING
                                   1526+*/       11    CVTGTFAC      ACTIVE
000020                             1527+CVTSTATE EQU   X'20' -       IN CONTROL
000010                             1528+CVTMODE  EQU   X'10' -       EXT MODE
000008                             1529+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA
000004                             1530+CVTUSR   EQU   X'04' -       USR TRACE
000002                             1531+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID
0000ED 000000                      1532+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE
0000F0                             1533+CVTTCMFG DS    0B -          TCAM FLAGS
000080                             1534+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)
0000F0 00000000                    1535+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF
                                   1536+*                            TCAM ADDRESS VECTOR TABLE
                                   1537+*
                                   1538+*              MVT CVT EXTENSION
                                   1539+*
0000F4                             1540+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE
       CONSTANTS -- IGFCATAP                                                                                   PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1541+*                            (PWF)                               S21167
0000F4 80                          1542+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY
                                   1543+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167
000080                             1544+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167
0000F5 000000                      1545+CVTVOLT2 DC    AL3(0) -  PWF RECHECK TIME DELAY.  THIS VALUE IS
                                   1546+*                            OVERLAID BY CVTVOLM2 AFTER PWF
                                   1547+*                            INITIALIZATION                      S21167
0000F8 00000000                    1548+         DC    A(0) -        RESERVED
                                   1549+*
                                   1550+*              MVT/MFT CVT EXTENSION
                                   1551+*
0000FC 00000114                    1552+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1
                                   1553+*                            (ICB421)                APAR'S 47331,47332
000100                             1554+         DS    F -           RESERVED
000104                             1555+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE
000104                             1556+         DS    X -           RESERVED
000105 000000                      1557+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE
000108                             1558+         DS    F -           RESERVED
00010C                             1559+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307
00010C                             1560+         DS    X -           RESERVED                            ICB307
00010D 000000                      1561+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND
                                   1562+*                            COMMUNICATION AREA                  ICB307
000110                             1563+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308
000110                             1564+         DS    X -           RESERVED                            ICB308
000111 000000                      1565+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY
                                   1566+*                            ROUTINE                             ICB308
                                   1567+*
                                   1568+*              COMMON EXTENSION 1
                                   1569+*              ADDRESS OF EXTENSION IS IN CVTEXT1
                                   1570+*
                                   1571+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,
                                   1572+*              YOU SHOULD CODE -
                                   1573+*
                                   1574+*              L     REG,CVTEXT1
                                   1575+*              USING CVTXTNT1,REG
                                   1576+*
                                   1577+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.
                                   1578+*
000114                             1579+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1
                                   1580+*                            (ICB421)                APAR'S 47331,47332
000114 00000000                    1581+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS
                                   1582+*                            (ISAM) (ICB421)         APAR'S 47331,47332
                                   1583+*
                                   1584+*              END OF CVT PROPER
                                   1585+*
                                   1586+*
                                   1587+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT
                                   1588+*




                                   1590+*                       RECORD ENTRY FORMAT
       CONSTANTS -- IGFCATAP                                                                                   PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             1592+RECENTRY DSECT  .
000000                             1593+COUNT    DS    CL8 .               COUNT FIELD                    19032
000008                             1594+RECIDFD  DS    CL2 .               KEY                            19032
00000A                             1595+RECSWCH1 DS    CL1 .              SWITCH BYTE 1                   19032
00000B                             1596+RECSWCH  DS    CL1 .              SWITCH BYTE 2                   19032
00000C                             1597+SPARE    DS    CL4 .               RESERVED                       19E03
000010                             1598+DATE     DS    CL4 .               DATE FIELD                     19032
000014                             1599+TIME     DS    CL4 .               TIME FIELD                     19032
000018                             1600+CPUIDFD  DS    CL8 .               CPU ID AND SERIAL NUMBER       19E03
000020                             1601+JOBID    DS    CL8 .               JOB ID FIELD                   19032
000028                             1602+ACTIO    DS    CL16 .              ACTIVE I/O UNITS               19032
000038                             1603+CCW      DS    CL8 .               FAILING CCW                    19032
000040                             1604+CSWLWB   DS    CL8 .               CHANNEL STATUS WORD            19032
000048                             1605+ERPIB    DS    CL4 .               ERPIB FIELD-SECOND HALF        19032
00004C                             1606+DEVTYPE  DS    CL4 .              DEVICETYPE FIELD                19032
000050                             1607+CUA      DS    0CL4 .              CHANNEL UNIT ADDRESS FIELD     19032
000050                             1608+CHANID   DS    CL1 .               CHANNEL TYPE                   19032
000051                             1609+CUAA     DS    CL3 .               ACTUAL ADDRESS                 19032
000054                             1610+MPINFO   DS    CL2 .               MULTIPROCESSING INFO           19032
000056                             1611+CHANSTAT DS    CL2 .               MP CHANNEL STATUS BYTE         19032
000058                             1612+CHNLOG   DS    CL24 .              CHANNEL LOG                    19032
                                   1613+*                                                                 19032
                                   1614+****     CHANNEL CHECK POINTER TABLE FORMAT                       19032
000000                             1615+CCHPTTAB DSECT  19032
000000                             1616+EBFLD    DS    CL4 .               ERPIB TABLE ADDRESS            19032
000004                             1617+RECORD   DS    0CL4 .              RECORD ENTRY TABLE ADDRESS     19032
000004                             1618+CCHREFG  DS    CL1 .               RECORD ENTRY FLAG              19032
000005                             1619+RECADR   DS    CL3 .                                              19032
000008                             1620+CCHEP    DS    F .                      BASE ENTRY VALUE          19E03
00000C                             1621+CCHANTAB DS    F .                      CCH CHANNEL PT TABLE      19E03
000010                             1622+CCHLOG80 DS    F .                      CCH 2880 LOGOUT POINTER   19E03
                                   1623+*
                                   1624+*        END OF DSECT'S
                                   1625          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       04      0C     000764
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ACTIO    00016 000028 01602   1099  1154
ACTTCB   00001 000004 00431
ADRPTRTB 00004 000674 01341   0755  1115
ALLFS    00001 0000FF 00556   0947  1028  1229  1277  1278
ASRCODE  00001 000001 00517   0634
CATBIT   00001 000006 00508   0684  0770  0921  0935  1206  1242
CATREC   00001 00001C 00466   0672  0700
CATSNS   00001 000008 00462   0668
CATTIOSN 00001 00000C 00463   0670
CAWLOC   00001 000048 00421   1285
CCCBIT   00001 000004 00512   0702  0937  1028
CCHANTAB 00004 00000C 01621
CCHBASE  00001 00000F 00410   0006
CCHCAV   00001 000002 00486   1215
CCHCHNL  00001 000040 00480
CCHCMDRG 00001 000080 00530
CCHCMDV  00001 000004 00485   1277  1291
CCHCNTB  00001 000002 00477   1278
CCHCNTU  00004 0005AC 01275   1249  1254
CCHCPU   00001 000080 00479
CCHCUA   00001 000004 00427   1147  1155  1162
CCHDAV   00001 000001 00487   1246
CCHDI    00001 000008 00492
CCHEP    00004 000008 01620
CCHERFRE 00001 000020 00532   0725  0728  0730
CCHEXIT  00004 0003FE 01108   0705  1097
CCHGETRG 00002 000438 01123   1109  1111  1113  1118  1120
CCHHAND  00001 000008 00534   0676  1024
CCHHIO   00004 0003C6 01060   0880
CCHHIOB  00001 000010 00475   1060  1253
CCHIBC   00001 000004 00535   0698  0933
CCHINT   00004 000376 01012   0879
CCHINTB  00001 000040 00473   1012  1250  1287
CCHINTCK 00004 000570 01250   1247
CCHINTFC 00001 000008 00482
CCHINT2  00001 000010 00465   1033
CCHKEEP  00004 000700 01358   1201  1329
CCHLOG80 00004 000010 01622   1116
CCHMASK1 00004 000754 01363   0721  0733  0735
CCHMASK4 00004 000758 01364   1211  1228
CCHMOVE  00004 0005FE 01299   1288
CCHNOLST 00001 000010 00533   0659  0664  0686  0917  1063  1269  1308
CCHNORE  00001 000040 00531   0863  0941  1096  1110  1129  1279
CCHNRYB  00001 000001 00478   0703  0940  0948
CCHOUT   00004 00045E 01136   1128
CCHPARBT 00001 00075C 01365
CCHPTTAB 00001 000000 01615   0009
CCHQUIT  00004 000456 01132   0759
CCHRCUR  00006 00000C 00640   1130
CCHRCV   00001 000010 00483   1215
CCHREFG  00001 000004 01618   0768
CCHRETRN 00004 000512 01225
CCHRTHIO 00001 000000 00458   1066
CCHRTINT 00001 000004 00460   1031
CCHRTSIO 00001 000000 00459   0984
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CCHRTSNN 00001 00000C 00464   0704  0944
CCHRTSNY 00001 000008 00461   0930
CCHSAVE  00004 000718 01361   0638  0925  0929  1124  1125  1136  1266  1266
CCHSETFL 00004 0001A4 00768   0764  0861
CCHSIO   00001 00035E 00977   0878
CCHSIOB  00001 000080 00472   0911  0978  1275  1305
CCHSIRB  00004 000764 01371   0717
CCHSNS   00004 0002DE 00911   0876
CCHSNSB  00001 000004 00476   0947  1214
CCHSSK   00004 00035E 00978   0874
CCHSTG   00001 000010 00481
CCHSWS   00002 0006C8 01351   0640  0640
CCHSW1   00001 0006C8 01352   0659  0663  0664  0676  0686  0698  0725  0728  0730  0850  0863  0917  0933  0941  1017
                              1024  1063  1096  1110  1129  1268  1269  1279  1308
CCHSW2   00001 0006C9 01353   0639  0660  0666  0855  1026  1029  1108  1127  1225  1257  1267  1320
CCHTIOB  00001 000020 00474   0914  0981
CCHTIOSK 00004 000366 00981   0875
CCHTIOSN 00004 0002E6 00914   0877
CCHTUCB  00002 000040 00661   0658
CCHUCBV  00004 000052 00666   0662
CCHUSV   00001 000008 00484   1317
CCHWORK  00004 0006FC 01357   0651  0668  0670  0672  0700  0820  0821  1301  1302
CCHZERE  00006 0002B2 00862   0860
CCH000   00001 00007E 00682   0669  0671  0673  0675
CCH000A  00002 00008A 00688   0685  0731
CCH004   00002 0000D4 00710   0692
CCH005   00004 00008E 00690   0697  0708
CCH005A  00004 0000E2 00714   0727
CCH005B  00004 0000EE 00717   0741
CCH005C  00004 000116 00726   0719  0723  0739
CCH005D  00004 00012E 00732   0716
CCH005E  00004 000132 00733   0743
CCH005F  00001 000160 00744   0729
CCH006   00002 0000CE 00707   0695
CCH006A  00004 00004A 00664   0667
CCH007   00002 000164 00751   0665  0701  0711
CCH007A  00004 000186 00761   0766
CCH008   00004 00029A 00855   0762
CCH008A  00004 0002B8 00863   0856
CCH009   00006 0001BA 00776   0771
CCH010   00002 000238 00825   0802  0809
CCH011   00004 00022A 00819   0816  0818
CCH012   00002 00027E 00847   0826  0828  0835  0843
CCH017   00001 0002BE 00865   0851  0853
CCH018   00004 0002EA 00917   0912
CCH021   00004 00031A 00933   0924  0927
CCH022   00004 000352 00947   0934
CCH024   00004 00034A 00944   0936  0942  0949
CCH025   00004 00032A 00937
CCH026   00004 0002FA 00923
CCH026A  00004 000302 00925   0922
CCH027   00001 00036A 00982   0979
CCH029   00004 000004 00638
CCH041   00001 00037A 01015
CCH044   00004 0003AE 01029   1025  1027
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CCH044A  00004 0003BE 01033   1030
CCH045   00004 00039A 01024   1018  1020  1022
CCH060   00004 0003EC 01100
CCH061   00004 000470 01142   1103  1151  1156  1173
CCH062   00004 000468 01140   1104
CCH063   00002 000478 01145   1141
CCH063A  00006 00049A 01155   1160
CCH063B  00006 0004B2 01162   1158
CCH064   00004 0003F0 01101   1143
CCH066   00001 0003FE 01105   1153  1172
CCH101   00004 0005BC 01279   1207  1243  1276
CCH101A  00004 0005EA 01293   1290
CCH102   00004 000626 01308   1280  1292  1296  1300  1303  1306
CCH103   00004 00064A 01317   1311  1315
CCH104   00004 00065E 01329   1309  1318  1321
CCH23    00001 000017 00552
CCH3     00001 000003 00553
CCH4     00001 000004 00554   1240  1266
CCH7     00001 000007 00555   0772
CCW      00008 000038 01603   1304
CC1      00001 000001 00586   0851
CC10     00001 00000A 00594   0809
CC3      00001 000003 00587   0816
CC4      00001 000004 00588   0818
CC5      00001 000005 00589   0675  1303
CC6      00001 000006 00590   0711
CC7      00001 000007 00591   0685
CC8      00001 000008 00592   0764  0856  1207
CC9      00001 000009 00593   1022
CHANID   00001 000050 01608   0849
CHANSTAT 00002 000056 01611
CHEBIT   00001 000008 00509
CHNLOG   00024 000058 01612   1119  1122
CHNSPRT  00001 000010 00519   1261
CHRADTAB 00004 000678 01342   0011  0754  1227
CKADR    00004 00053E 01237   1232  1234
COMPFES  00001 000040 00490
COMPID   00001 000000 00491
COMPRAD  00002 00025A 00834   0839
COMPSEL  00001 000080 00489   0923
COMPSYS  00001 0000C0 00488   1244
COMP07   00001 000007 00524   1204  1233
COMP08   00001 000008 00525   1202  1231
CON80    00006 0004E4 01208   1203  1205
COUNT    00008 000000 01593   1112
CPUIDFD  00008 000018 01600   0789
CSWCDK   00001 000008 00507   1289
CSWCTK   00001 000004 00506   0508
CSWICK   00001 000002 00505   0508
CSWLOC   00001 000040 00420   0657  0684  0770  0776  0921  0935  1023  1028  1206  1242  1289  1293  1325
CSWLWB   00008 000040 01604   0776  1307  1307
CUA      00004 000050 01607   0777
CUAA     00003 000051 01609
CVTABEND 00004 0000C8 01502
CVTAPR   00001 000040 01465
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTAQAVT 00004 0000F0 01535
CVTASCII 00001 000002 01472
CVTATTCH 00001 000008 01470
CVTBRET  00002 000052 01426
CVTBTERM 00004 000034 01415
CVTBUF   00004 000010 01398
CVTCCH   00001 000080 01464
CVTCHPTR 00001 000008 01482
CVTCMT   00003 0000ED 01532
CVTCRTTR 00003 0000B8 01480   1493
CVTCUCB  00004 000064 01432
CVTDAR   00004 000048 01422
CVTDATA  00001 000002 01486
CVTDATE  00004 000038 01416   0806
CVTDCB   00001 000074 01438
CVTDCBA  00003 000075 01443
CVTDDR   00001 000020 01467
CVTDMSR  00004 000110 01563
CVTDMSRA 00003 000111 01565
CVTDSECT 00001 000000 01379   0008
CVTEXIT  00002 000050 01425
CVTEXT1  00004 0000FC 01552
CVTFACHN 00004 000114 01581
CVTFBOSV 00004 000084 01447
CVTFORM  00001 000008 01529
CVTGTF   00004 0000EC 01520
CVTGTFS  00001 0000C0 01522
CVTGTFST 00001 0000EC 01521
CVTHEAD  00004 0000A0 01455   0833
CVTHIAR  00001 000004 01471
CVTIERLC 00004 000090 01450   0714
CVTILCH  00004 00008C 01449
CVTILK1  00004 000024 01407
CVTILK2  00004 000028 01409   1100
CVTIOQET 00004 000078 01444
CVTIXAVL 00004 00007C 01445
CVTJOB   00004 00000C 01397
CVTLINK  00004 000008 01396
CVTLNKSC 00002 0000D6 01510
CVTMAP   00001 000000 01391
CVTMCTYP 00001 000002 01531
CVTMDLDS 00004 0000D0 01508
CVTMODE  00001 000010 01528
CVTMPCVT 00004 0000C0 01500
CVTMSER  00004 000094 01451
CVTMSLT  00004 00003C 01417
CVTMZ00  00004 0000A4 01456   1299
CVTNIP   00001 000010 01469
CVTNUCB  00004 000080 01446
CVTOPTA  00001 0000B6 01463
CVTOPTB  00001 0000B7 01474
CVTPATCH 00004 0000DC 01512
CVTPBLDL 00004 00005C 01430
CVTPCNVT 00004 00001C 01403
CVTPRLTV 00004 000020 01405
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTPROT  00001 000080 01475
CVTPTR   00001 000010 01386
CVTPURG  00004 000104 01555
CVTPURGA 00003 000105 01557
CVTQABST 00002 0000D4 01509
CVTQCDSR 00004 0000B8 01495
CVTQLPAQ 00004 0000BC 01496
CVTQMSG  00004 00010C 01559
CVTQMSGA 00003 00010D 01561
CVTQMWR  00004 0000B0 01460
CVTQOCR  00004 0000AC 01458
CVTQTD00 00004 00006C 01435
CVTQTE00 00004 000068 01433
CVTREG   00001 000009 00400   0008  0401  0643
CVTRMS   00004 0000E0 01513
CVTSJQ   00004 000060 01431
CVTSMCA  00004 0000C4 01501
CVTSNCTR 00002 0000B4 01462
CVTSTATE 00001 000020 01527
CVTSTB   00004 000070 01437
CVTSTEPR 00001 000004 01484
CVTSTUSA 00001 0000BB 01481
CVTSVDCB 00004 000054 01427
CVTSYSAD 00004 000030 01413
CVTTCBP  00004 000000 01393
CVTTCMFG 00001 0000F0 01533
CVTTCRDY 00001 000080 01534
CVTTOD   00001 000020 01476
CVTTPC   00004 000058 01428   0808
CVTTRMTB 00004 00009C 01454
CVTTSCE  00004 0000D8 01511
CVTTSCVB 00003 0000E5 01518
CVTTSCVT 00004 0000E4 01515
CVTTSFLG 00001 0000E4 01516
CVTTSRDY 00001 000080 01517
CVTUSER  00004 0000CC 01504
CVTUSR   00001 000004 01530
CVTVOLF2 00001 0000F4 01542
CVTVOLI2 00001 000080 01544
CVTVOLM2 00004 0000F4 01540
CVTVOLT2 00003 0000F5 01545
CVTXAPG  00004 000014 01400
CVTXITP  00004 000044 01421
CVTXPFP  00001 000001 01473
CVTXTLER 00004 00002C 01411
CVTXTNT1 00001 000114 01579   1552
CVTZDTAB 00004 000040 01420
CVT0DS   00004 000088 01448
CVT0EF00 00004 000004 01394
CVT0FN00 00004 00004C 01424
CVT0PT01 00004 000098 01453
CVT0SCR1 00004 0000E8 01519
CVT0VL00 00004 000018 01401
CVT1EF00 00004 0000A8 01457
CVT1SSS  00001 000040 01439
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVT2SPS  00001 000020 01440
CVT4MPS  00001 000004 01442
CVT4MS1  00001 000010 01441
DASD     00001 000020 00439   1019
DATE     00004 000010 01598   0798  0801  0801  0806
DEBDISP  00001 000008 00449   0830
DEBTCB   00001 000000 00450   0831
DEVBIT   00001 000004 00510
DEVDESC  00001 000010 00447   0852
DEVTYPE  00004 00004C 01606   0852
EBFLD    00004 000000 01616
EIGHT    00001 000008 00580   0641  0648  0650  0752  0800  0801  1098  1146  1297
EIGHTY   00001 000050 00585   0812
ERPIB    00004 000048 01605   0943  1281
ERPIBFD  00008 0006D0 01355   0012  0690  0712  0745
ERPIBSET 00004 0004C8 01201   0919  0983  1016  1065
ERPIBSZ  00001 000008 00518   0693  0694  0724  0726  0938  1316
FIFTY2   00001 000034 00583   1136
FIFTY6   00001 000038 00584   1125
FIVE     00001 000005 00562   0684  0713  0770  0921  0935  1028  1206  1242  1289
FOUR     00001 000004 00577   0818  0872  1023  1325
GETDATE  00006 0001F8 00806   0794
GJOBID   00001 00026E 00840   0837
GRELV    00004 0001C4 00781
HEXE0    00001 0000E0 00576
HEX0E    00001 00000E 00575
HEX01    00001 000001 00572
HEX02    00001 000002 00564
HEX03    00001 000003 00571
HEX04    00001 000004 00567   0657
HEX06    00001 000006 00559
HEX07    00001 000007 00574   1302
HEX08    00001 000008 00570
HEX10    00001 000010 00569
HEX20    00001 000020 00566
HEX40    00001 000040 00560
HEX70    00001 000070 00561
HEX80    00001 000080 00568
I        00001 000001 00573   1208
IBEXCSW1 00001 0006C6 01349   1215  1246  1277  1291  1317
IBEXCSW2 00001 0006C7 01350   0923  1244
IBPRGFGA 00001 000004 00471   0703  0940  0943  0947  0948
IBPRGFG1 00001 0006C4 01347   1208  1209  1214  1278  1281
IBPRGFG2 00001 0006C5 01348
IBREG    00001 000005 00392   0689  0689  0699  0703  0707  0710  0710  0712  0722  0724  0724  0726  0726  0738  0745
                              0938  0938  0939  0940  0943  0947  0948  1316
IBUCB    00004 0006C0 01346   1210
IBUCBD   00001 000000 00470   0939
IBWORK   00008 0006C0 01345   0641  0641  1217  1316
ICCBIT   00001 000002 00513   1028
IECILK1  00001 000000 00014
IECILK2  00001 000000 00013
IGFCAT   00001 000000 00004
IGFCCH   00001 00075D 01366   0010
INDEX    00001 000008 00396   0649  0651  0872  1211  1212  1228  1237
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

INTCVTPT 00001 000010 00419   0643
INTRTN2  00001 000040 00542   1029  1267
IOBCHAN  00001 00000D 00430   0702  0937
IOBREG   00001 000002 00393   0702  0937
JOBID    00008 000020 01601   0844
LENGTH   00001 000052 00549   0772  1262
LGH6070  00001 000068 00550   1112
LINKRG1  00001 00000E 00406   0408  1123  1125  1138
LINKRG2  00001 00000A 00407   0919  0983  1016  1065  1218  1330
LISTEND  00001 0000FF 00428   0691  0761  0768
LOG6070  00001 000130 00423   1122
LOOP80   00004 000522 01229   1241
LTPC     00001 000008 00432   0815
MACHCK   00001 000070 00422   0634  1132  1133  1137
MAINT    00001 00076C 01374
MODELNO  00001 000020 00543
MODID    00008 000668 01339   0789
MOD65    00001 000065 00516
MPADRMSK 00004 000768 01372   1313
MPINFO   00002 000054 01610
NOLOG    00001 000010 00544   1225
NORMCONT 00004 000552 01242   1226  1230
NSCLOCK  00001 000666 01337   0793
NSMACH   00001 000040 00522   0795
NSTIME   00001 000040 00523   0793
NXTTCB   00001 000074 00446   0838
ONE      00001 000001 00565   0640  0736  0737  0785  0785  0800  0813  1209  1307  1307
ONE12    00001 000070 00551   1119
QUITCODE 00001 00000F 00429   1132
RBIQE    00001 00001A 00454   0720
RBSTAB2  00001 00000B 00452   0718
RECADR   00003 000005 01619
RECBYTE  00001 0006CA 01354   0642  0911  0914  0978  0981  1012  1060  1208  1209  1250  1253  1275  1287  1305
RECENTRY 00001 000000 01592   0007  0772  1262
RECIDFD  00002 000008 01594   0769  0785
RECMACH  00001 000760 01368
RECOMPR  00006 00019E 00767   0763
RECORD   00004 000004 01617   0756  0781
RECORDID 00002 00075E 01367   0769
RECOYSET 00004 0005A8 01269   1258
RECSWCH  00001 00000B 01596   1131  1261
RECSWCH1 00001 00000A 01595   0795
REPEAT   00004 000508 01216   1239
REREG    00001 00000D 00405   0007  0714  0715  0715  0732  0740  0756  0761  0765  0767  0767  0858  0862  0862  0864
                              0864  1136  1259  1259
RESIZE   00004 000670 01340   0757  0765  0857
REST6070 00006 000432 01122   1114
RESZREG  00001 00000B 00399   0757  0760  0763  0857  0858  0859  0860
RQEADR   00001 000014 00448   0829
RTCODE0  00001 000000 00493
RTCODE1  00001 000001 00494
RTCODE2  00001 000002 00495
RTCODE3  00001 000003 00496
RTCODE4  00001 000004 00497
RTCODE5  00001 000005 00498
                                             CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RTCODE6  00001 000006 00499
RTCODE7  00001 000007 00500
RTNADRG  00001 000003 00412   1216  1218
R0       00001 000000 00413   0638  0760  0859  0928  1124  1164
R12      00001 00000C 00414   1124
R14      00001 00000E 00415   0638
SETTERM  00004 000580 01257   1245  1260  1263
SETTERMA 00002 000588 01259   1213
SEVEN    00001 000007 00579   1112
SHPC     00001 000000 00434   0810
SIRB     00001 000000 00015   1371
SIRBACT  00001 000040 00453   0718
SIX      00001 000006 00578
SIXTEEN  00001 000010 00581   1148
SPARE    00004 00000C 01597
SWKRG2   00004 000744 01362
SYSTERM  00001 000080 00541   0660  0666  0855  1026  1108  1127  1257  1320
TCBTIOT  00001 00000C 00445   0841
TDADJ    00004 000710 01359   0819
TD24HRS  00004 000714 01360   0817
TERMBIT  00001 000020 00521   1131
THREE    00001 000003 00558   0634  1132  1137  1307
TIME     00004 000014 01599   0821
TIMEOK   00004 0001F4 00802   0800
TWENTY4  00001 000018 00582   1122  1149
TWO      00001 000002 00563   0696  0715  0722  0722  0722  0734  0738  0740  0740  0753  0925  0929  1019  1142  1155
                              1159  1162  1163
T4PC     00001 000004 00433   0811
UAREG    00001 000006 00394   0751  0777  1145  1314
UCBASK   00001 000002 00440   1021
UCBBSY   00001 000080 00444   0674  1140
UCBCHA   00001 000004 00436   1312
UCBDISP  00001 00001C 00451   1266  1266
UCBDTR   00001 000004 00441   1021
UCBFL1   00001 000006 00437   0674  0827  1021  1140  1310
UCBID    00001 000002 00435
UCBIDV   00001 0000FF 00442
UCBNVBIT 00001 000002 00536   0663  0850  1017  1268
UCBPST   00001 000020 00443   0674  0827  1310
UCBREG   00001 000007 00395   0661  0661  0674  0696  0825  0825  0827  0829  0852  0939  1019  1021  1210  1248  1248
                              1310  1312
UCBSCH   00002 0003DA 01095   0931  0945  0985  1032  1034  1067
UCBTYP   00001 000010 00438   1019
UCKBIT   00001 000002 00511   1023
UPLOOP   00004 00054A 01240   1235  1238
WKERPIB  00001 000008 00397   1217
WKREG0   00001 000009 00409
WKREG1   00001 00000A 00402   0688  0688  0690  0693  0693  0732  0733  0734  0740  0742  0742  0807  0807  0808  0810
                              0811  0815  0925  0926  0926  0928  0929  1095  1095  1098  1116  1117  1117  1119  1152
                              1152  1164  1171  1171  1201  1285  1286  1286  1293  1294  1294  1295  1295  1298  1299
                              1301  1304  1312  1313  1314  1329
WKREG2   00001 00000B 00403   0717  0718  0720  0720  0721  0722  0734  0735  0736  0737  0738  0751  0752  0753  0754
                              0810  0811  0814  0815  0817  0819  0820  0833  0834  0834  0836  0838  0838  0841  0842
                              0842  0844  1100  1101  1142  1142  1297  1298
WKREG3   00001 00000C 00404   0690  0691  0694  0694  0696  0699  0704  0707  0713  0727  0781  0782  0783  0784  0785
                                             CROSS-REFERENCE                                                   PAGE    9


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              0812  0813  0814  0829  0830  0830  0831  0831  0832  0832  0836  0841  0847  0847  0848
                              0849  0930  0944  0984  1031  1033  1066  1123  1201  1329
WORK3    00001 000003 00411   0754  0848  1147  1148  1149  1150  1154  1155  1157  1159  1159  1202  1204  1212  1216
                              1227  1229  1231  1233  1237  1240  1240
WORK4    00001 00000E 00408   0647  0647  0648  0649  0650  1099  1157  1162  1163  1163
WORK5    00001 000009 00401   1101  1102  1102  1140  1147  1155  1162
WRK4     00001 000004 00398   0009  0755  0758  0758  1115  1145  1146  1150
ZERO     00001 000000 00557   0639  0642  0691  0694  0694  0724  0724  0732  0740  0742  0761  0767  0767  0767  0782
                              0783  0784  0785  0832  0844  0848  0862  0862  0862  0938  0938  1101  1119  1137  1155
                              1162  1202  1204  1212  1216  1229  1231  1233  1237  1286  1294  1304  1316  1325
ZUCB     00006 00059A 01266   1251



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  2021
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 2072 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM39.R0000167      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM39.S0000168      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM39.S0000168      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG40    / START 78240.1945
IEF374I STEP /SG40    / STOP  78240.1945 CPU   0MIN 00.59SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:44.63   ALLOC START    19:45:44.66   MAIN REGION ----- 300K                          *
*   STEP NAME SG40       STEP END TIME  19:45:45.41   PGM START TIME 19:45:44.74   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.78   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.59   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 50       0250 ------------ 0       0250 ------------ 0       0151 ----------- 71       0151 ----------- 71    *
*   0151 ---------- 110       0159 ---------- 260       0151 ----------- 44       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM39  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:45.43   ALLOC START    19:45:45.44   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:45.46   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM39 / START 78240.1945
IEF376I  JOB /R21AM39 / STOP  78240.1945 CPU   0MIN 00.59SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM39    JOB READ TIME 19:45:00.85   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.59   *
*   JOB CLASS A          JOB INIT TIME 19:45:44.63   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.86   *
*   ACCOUNT              JOB END TIME  19:45:45.49   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       44      00000                              A
            RRRRRRRRR  222222222      11        AAA     MM     MM      444     0000000                            AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     4444    00     00                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM    44 44    00    000                         AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM   44  44    00   0 00                        AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM  44   44    00  0  00                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM  444444444  00 0   00                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  444444444  000    00                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM       44     0000000                         AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM       44      00000                          AA     AA

***********A  START   R21AM40    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM40    START  A***********
***********A  START   R21AM40    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM40    START  A***********
***********A  START   R21AM40    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM40    START  A***********
***********A  START   R21AM40    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM40    START  A***********
***********A  START   R21AM40    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM40    START  A***********


//R21AM40 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG41 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(CHLOADTB)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM40  SG41
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


CHLOADTB  SD  01 000000 000020
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 CHLOADTB CSECT
000000 0000                           3          DC   H'0'
000002 0008                           4          DC    H'8'
000004 0082                           5          DC   H'130'
000006 0000                           6          DC    H'0'
000008 00E2                           7          DC   H'226'
00000A 0000                           8          DC    H'0'
00000C 0112                           9          DC   H'274'
00000E 0000                          10          DC    H'0'
000010 0156                          11          DC   H'342'
000012 0000                          12          DC    H'0'
000014 0176                          13          DC   H'374'
000016 0000                          14          DC    H'0'
000018 01DC                          15          DC   H'476'
00001A 0000                          16          DC    H'0'
00001C 029C                          17          DC   H'668'
00001E 7FFF                          18          DC H'32767'
                                     19          END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CHLOADTB 00001 000000 00002



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =    19
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   32 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM40.R0000169      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM40.S0000170      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM40.S0000170      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG41    / START 78240.1945
IEF374I STEP /SG41    / STOP  78240.1945 CPU   0MIN 00.12SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:45.51   ALLOC START    19:45:45.52   MAIN REGION ----- 300K                          *
*   STEP NAME SG41       STEP END TIME  19:45:45.75   PGM START TIME 19:45:45.60   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.24   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0151 ----------- 10       0151 ------------ 9    *
*   0151 ------------ 3       0158 ------------ 5       0151 ------------ 3       0130 ----------- 21                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM40  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:45.76   ALLOC START    19:45:45.77   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:45.79   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM40 / START 78240.1945
IEF376I  JOB /R21AM40 / STOP  78240.1945 CPU   0MIN 00.12SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM40    JOB READ TIME 19:45:00.98   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.12   *
*   JOB CLASS A          JOB INIT TIME 19:45:45.51   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.28   *
*   ACCOUNT              JOB END TIME  19:45:45.79   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       44         1                               A
            RRRRRRRRR  222222222      11        AAA     MM     MM      444        11                              AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     4444       111                             AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM    44 44        11                            AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM   44  44        11                           AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM  44   44        11                           AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM  444444444      11                           AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  444444444      11                           AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM       44      111111                         AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM       44      111111                         AA     AA

***********A  START   R21AM41    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM41    START  A***********
***********A  START   R21AM41    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM41    START  A***********
***********A  START   R21AM41    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM41    START  A***********
***********A  START   R21AM41    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM41    START  A***********
***********A  START   R21AM41    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM41    START  A***********


//R21AM41 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG42 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEC23XXF)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM41  SG42
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEC23XXF  SD  01 000000 000B76
ER2311    LD     000000         01
IFBDEB    ER  02
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
                                      2  IEC23XXF 1,0,0,0,0,1,1,1,0,0,1,0
000000                                3+IEC23XXF CSECT
                                      4+*C127880-127970  LOGGING PRIORITY                              @SA79916
                                      5+*A289414  ECF LOOP                                    US07447  @SA77654
                                      6+*C191940  DEF/ALT TRACK POINTER                                @SA78184
                                      7+*A040011,203400-203420,237610-237640                           @SA78184
                                      8+*D307800-308702  SYSRES ALT PATH                               @SA78183
                                      9+*A038701-038702,310610-310800                                  @SA78183
                                     10+*D532900,533000         TRANSIENT FETCH REQ           US07309  @SA77717
                                     11+*C128020,128030         CORRECTABLE ERROR             US07309  @SA77720
                                     12+*A039922,290225,290225  TEST FOR NO-OP                         @SA76802
                                     13+*C290249                                                       @SA76802
                                     14+*C257560        SKIP RETRY                             US07309 @SA77511
                                     15+*D257550        DELETE TEST FOR 2321                   US07309 @SA77511
                                     16+*A310610        SET ERP ENTERED ON INT REQ                     @SA77193
                                     17+*A308200-308600 TREAT FETCH AND OBR LIKE SYSRES                @SA77437
                                     18+*A127892-127894,532900-532910                                  @SA76234
                                     19+*A731720-732020                                                @SA75963
                                     20+*A124700                                                       @SA75243
                                     21+*A124300-124600,040300 RESET RESTART BIT IF CC=0       US06782 @SA76790
                                     22+*D373500,374400        VER CORRECT SEEK                US06782 @SA76260
                                     23+*A198500,262500-262784                                         @SA71611
                                     24+*C191960                                                       @SA71611
                                     25+*D198500,262500-262784   DELETE OS71611                        @SA74812
                                     26+*C191960                 DELETE OS71611                        @SA74812
                                     27+*A039920                                                       @SA64437
                                     28+*C290227                                                       @SA64437
                                     29+*A290220,290224,290319                                           A59754
                                     30+*C290227,790340                                                  A59754
                                     31+*A380810-381250,431100-431984,643600,643700,925620-925680      @SA72530
                                     32+*A039520,260400,263300,290627-290740,422600,422700,425300      @SA73886
                                     33+*C381250,D290579,290590                                        @SA73886
                                     34+*D600300                                               US06782 @SA76342
                                     35+*C576900,598500                                        US06782 @SA76342
                                     36+*A577400,599000,599100                                 US06782 @SA76342
                                     37+*A203000-203080,203400-203480,237630-237660,238100-238200      @SA78506
                                     38+*                                                              @SA78214
                                     39+*                                                              @SA78214
                                     40+*                                                                M4204
                                     41+*                                                               SA78212
                                     42+*                                                               SA78212
                                     43+*                                                               SA78212
                                     44+*                                                               A32176
                                     45+*D122400                                                        A62858
                                     46+*C414900,731700                                                 A62858
                                     47+*A376700,450500,730400,732200,732300                            A62858
                                     48+*D338400-343800,379800,380700                                   A63226
                                     49+*C458152                                                        A63226
                                     50+*A338300,380210-381410,458256-458360                            A63226
                                     51+*A072500,148200-148420,895200-895300                            SA63263
                                     52+*D289908-289941                                                 SA66008
                                     53+*A290561-290567                                                 SA66008
                                     54+*A131900,132000,132320                                          SA60720
                                     55+*C789960-790080                                                 SA65470
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     56+*A191844,191848                                                 SA67819
                                     57+*C191860,191880,191900,191920,191940,191960                     SA67819
                                     58+*D191970,191980                                                 SA67819
                                     59+*A289571,289620,290165,290214,607100,608900,609000,662000       SA68579
                                     60+*A662100,662200,663800                                          SA68579
                                     61+*C289600,290194                                                 SA68579
                                     62+*D289611,290205,627600-628300                                   SA68579
                                     63+*A127901,127902                                                @SA80070
                                     64+*C289966                                                       @SA80070
                                     65+*D127885,127886,289967,317800-318200                           @SA80070
                                     66+*
                                     67+         ENTRY ER2311 ENTRY TO RESIDENT ERROR ROUTINE
                                     68+         EXTRN IFBDEB
                                     69+*NON RE-ENTRANT LOCATIONS ERSAV,ERINC
000001                               70+TSTREG   EQU   1 12* REG.
000002                               71+IOBRG    EQU   2 IOB BASE REG
000003                               72+DEBREG   EQU   3 DEB. REG.
000004                               73+DCBREG   EQU   4 DCB BASE REG
000004                               74+UCBRG2   EQU   4 UCB WK AR BASEREG
000005                               75+CCWREG   EQU   5 ERR CCW REG
000006                               76+CVTREG   EQU   6 CVT BASE REG
000007                               77+UCBREG   EQU   7 UCB. REG.
000008                               78+SNSREG   EQU   8 FLOATING SENSE REG       S20201
000009                               79+LNKRG2   EQU   9 LINKAGE REG AND UT 4
00000D                               80+LINKRG1  EQU   13
00000A                               81+WORK     EQU   10
00000A                               82+ERREG1   EQU   10 UTILITY REG 1
00000A                               83+RMSREG   EQU   10 POINTER TO RMS TABLE
00000B                               84+ERREG2   EQU   11 UTILITY AND PARAM REG 2
00000C                               85+ERCCWR   EQU   12 ERP CCW PTR (UTIL 3)
00000C                               86+ERREG3   EQU   12 UTIL 3 (ERP CCW PTR)
00000C                               87+DDRBASE  EQU   12 BASE REG FOR DDRTN
00000E                               88+ERRETR   EQU   14 IOS RETURN
00000F                               89+BASREG   EQU   15 BAS REG
000000                               90+         USING *,15
000000                               91+         USING DEB,DEBREG
000000                               92+         USING IOB,IOBRG
000000                               93+         USING CVT,CVTREG
000000                               94+         USING UCB,UCBREG
000000                               95+         USING ERU,UCBRG2
000000                               96+         USING UCBSNS2,SNSREG S20201

                                     98+*MISCELLANEOS
000000                               99+IOCLBT   EQU   X'00' CLEARING BYTE
000006                              100+DEBST    EQU   6 XTNT START LOC IN BLOCK  A32176
00000A                              101+DEBEND   EQU   10 XTNT END LOG IN BLOCK    A32176
000004                              102+DEBSCA   EQU   4 SPLIT CYL ALLOC FLAG     A32176
000018                              103+ERNSKM   EQU   X'18' NO SEEK FILE MASK
00001B                              104+HDSK     EQU   X'1B' SEEK HEAD BIT IN SEEK CMD
000008                              105+SERWRK   EQU   8 SENSE INFORM.
000001                              106+STCDC    EQU   X'01' STAT INDICATOR FOR CDC
000010                              107+CVTLOC   EQU   16 LOC OF CVT ADDR
0000B6                              108+CVTOPTA  EQU   X'B6' CVT OPTION BYTE        @SA78183
000010                              109+CVTNIP   EQU   X'10' NIP IS EXECUTING       @SA78183
000080                              110+OBR      EQU   X'80' OBR RECORD SAVED         A42863
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                              111+STOP     EQU   X'08' DO NOT RESTART CHPGM BIT S20201
000039                              112+SEARCHA  EQU   X'39' SEARCH HA CMD CODE       S20201
000008                              113+FLTSNS   EQU   X'08' UCB HAS FLOATING SENSE   S20201
000071                              114+PCICODE  EQU   X'71' FETCH PCI RETRY CODE
000023                              115+SECTOR   EQU   X'23' SET SECTOR COMMAND CODE  S20201
000080                              116+DCHAIN   EQU   X'80' DATA CHAINING FLAG       S20201
000020                              117+SLI      EQU   X'20' SUPPRESS LENGTH FLAG     S20201
000040                              118+LNGCK    EQU   X'40' INCORR LENGTH IN CSW     S20201
000000                              119+C0       EQU   0 GENERAL CONSTANT ZERO    S20201
000008                              120+EXPSNS   EQU   X'08' EXPANDED SENSE IND     @SA73886
000010                              121+USEDDR   EQU   X'10' USE DDR BIT
000004                              122+UPCNT    EQU   4 LOOP CNT                 S20201
000001                              123+ONES     EQU   1 ONES COND CODE           S20201
000008                              124+EQ       EQU   8 EQUAL COND CODE          S20201
000010                              125+CNTFLD   EQU   X'10' COUNT FIELD OPERATION    S20201
000020                              126+SECFLD   EQU   X'20' READ SECTOR OPERATION  @SA64437
000001                              127+ONE      EQU   X'01' ONE
000003                              128+NOOP     EQU   X'03' NO-OP CCW CMD          @SA76802
00000B                              129+ALTDEF   EQU   X'0B' ALT/DEF TRACK POINTER  @SA78184

                                    131+*   IOB COMPLETION CODES                                         S20201
00007E                              132+INTRCPT  EQU   X'7E' IOB INTERCEPT CODE
00007F                              133+IOBNORM  EQU   X'7F' NORMAL POST CODE
000010                              134+CC1OR3   EQU   X'10' SIO CC=1 OR 3          @AS76790

                                    136+*SENSE BIT DEFINITIONS IN IOB OR UCB
000080                              137+IOBCMDR  EQU   X'80' COMMAND REJECT IN SENSE  S20201
00003C                              138+OBRSNS   EQU   X'3C' OBR RECORD SENSE         A52407
000010                              139+EQUIPSNS EQU   X'10' EQUIPMENT CHECK          S20201
000008                              140+DATASNS  EQU   X'08' DATA CHECK SENSE         S20201
000004                              141+IOBOVRN  EQU   X'04' OVERRUN SENSE            S20201
000002                              142+IOBTKC   EQU   X'02' TRK COND SENSE           S20201
000001                              143+IOBSKCK  EQU   X'01' SEEK CHK SENSE           S20201
                                    144+**                     BYTE ONE  SENSE DEFINITIONS               S20201
000080                              145+PERMSNS  EQU   X'80' PERMANENT ERROR SENSE    S20201
000040                              146+INVALTFM EQU   X'40' INVALID TRACK FORMAT     A52407
000020                              147+EOCSNS   EQU   X'20' END OF CYLINDER SENSE    S20201
000008                              148+SNSNRF   EQU   X'08' NRF IN SENSE             S20201
000004                              149+FPSNS    EQU   X'04' FILE PROTECT SENSE       S20201
000002                              150+IOBAMRK  EQU   X'02' SENSE MSSNG ADDR MRK     S20201
000001                              151+IOBOVF   EQU   X'01' SENSE OVERFLOW BIT       S20201
                                    152+**                     BYTE TWO  SENSE DEFINITIONS               S20201
000080                              153+UCBUNS   EQU   X'80' UNSAFE SENSE BIT         S20201
                                    154+* 2305 OR 3330 OPTION                                            S20201
000080                              155+ZUSLOG   EQU   X'80' ZEUS CNTL UNIT LOG FULL  S20201
000040                              156+ECFSNS   EQU   X'40' ECF DATA CHECK           S20201
000010                              157+LOGSNS   EQU   X'10' ENVIRONMNTL DATA PRESENT S20201
00001A                              158+C26      EQU   26 CONSTANT OF 26           S20201
000024                              159+RDLOG    EQU   X'24' READ BUFFERED LOG CMD CD S20201
000001                              160+CULENG   EQU   X'01' CONTROL UNIT DET LENGTH  S20201
                                    161+*2305/3330 END                                                   S20201

                                    163+*   THESE FLAGS ARE IN IOB-FLAG 1
000020                              164+IOBERR   EQU   X'20' IOB ERROR FLAG
000004                              165+IOBEX    EQU   X'04' EXCEPT FLAG
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000001                              166+IOBSRS   EQU   X'01' START/RESTART FLAG


                                    168+*   THESE ARE FLAGS IN IOB-FLAG 2
000010                              169+IOBRHA   EQU   X'10' READ HOME ADDR. FLAG
000008                              170+IOBNET   EQU   X'08' NO TEST FOR OUT OF EXTENT
000004                              171+IOBPREV  EQU   X'04' SET TO INDICATE ERP WAS ENTERED
000002                              172+IOBOFLO  EQU   X'02' OVERFLOW INDICATOR       A33657


                                    174+*   THESE FLAGS ARE IN IOB-FLAG 3
000080                              175+IOBIN1   EQU   X'80' INDICATOR ONE            S20201
000040                              176+IOBPIK   EQU   X'40' PICK FLAG                S20201
000020                              177+IOBNRF   EQU   X'20' NO RECORD FOUND FLAG
000010                              178+IOBBOE   EQU   X'10' BUS OUT ERROR CNT
000008                              179+IOBRSF   EQU   X'08' RESTORE FLAG
000004                              180+IOBMSG   EQU   X'04' MESSAGE TYPE
000002                              181+IOBSWP   EQU   X'02' SWEEP FLAG               S20201
000001                              182+IOBLOG   EQU   X'01' LOG OUT INDICATION

                                    184+*        FLAGS AND COUNTS IN IOB ERROR BYTE 1. SYMBOL =IOBECT=
                                    185+*        BIT   0-7                      DATA CHECK COUNT

                                    187+*        FLAGS AND COUNTS IN IOB ERROR BYTE 2 . SYMBOL #IOBECT+1#
000080                              188+IOBWRT   EQU   X'80' INDICATOR TO STAT. UPDATE
                                    189+*        BIT 0                          IOBWRT FOR STAT UPDATE
                                    190+*        BIT 1-7                        OVERRUN,NRF,& SK CHK COUNT


                                    192+*     FLAGS IN UCB
000020                              193+UCBSHRD  EQU   X'20' SHARED                  SA63263
000040                              194+UCBNRY   EQU   X'40' UCB NOT READY
000001                              195+UCBERR   EQU   X'01' ERROR RTN. IN CONTROL
000002                              196+UCBSYS   EQU   X'02' SYSRES FLAG

                                    198+*        ASR BIT DEFINITION'S
000008                              199+CSWCDC   EQU   8 CHAN DATA CHK            A32176
00000F                              200+CHANERR  EQU   X'0F' CDC+CCC+ICC+CHAIN        S20201
000008                              201+TABLELGN EQU   8 ERPIB TABLE ENTRY LENGTH A32176
000004                              202+ERPIBFLG EQU   4 ERPIB SFTWRE FLGS OFFSET A32176
000001                              203+NORETRY  EQU   1 CCH'S NO-RETRY FLG TO ERPA32176
0000FF                              204+CCHDELMT EQU   255 CCH'S ERPIB TABLE DELIMITA32176

                                    206+*              STATUS INDICATORS
000002                              207+CSWUCK   EQU   X'02' UNIT CHECK


                                    209+*    CCW COMMANDS
000008                              210+CMDTIC   EQU   X'08' TIC COMMAND
000007                              211+CMDFSK   EQU   X'07' FULL SEEK  CMD CODE
00000B                              212+CCWSK    EQU   X'0B' HEAD OR CYL SEEK INDICATE
000010                              213+SKIP     EQU   X'10' NO DATA XFER
000021                              214+SEARCH   EQU   X'21' SEARCH TYPE COMMAND     SA78212

                                    216+*    FLAG BITS IN HOME ADDRESS
                                                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000002                              217+TRKBAD   EQU   X'02' BAD TRACK

                                    219+*   THESE ARE COMPLETION CODE SETTINGS.
                                    220+*    POINTERS TO THE DIRECT ACCESS CHARACTERISTICS TABLE
000003                              221+HEADNO   EQU   3 INDEX TO NUMBER OF HEADS/CYL

                                    223+*    DEVICE TYPE
000002                              224+DE2301   EQU   X'02' DRUM DEVICE TYPE
000004                              225+DE2302   EQU   X'04' 2302 DEVICE
000003                              226+DE2303   EQU   X'03' 2303 DRUM DEVICE CODE
000008                              227+DE2314   EQU   X'08' 2314 DEVICE CODE
000005                              228+DE2321   EQU   X'05' 2321 DEVICE TYPE
                                    229+* 2305 OR 3330 OPTION                                            S20201
000006                              230+ZEUSA    EQU   X'06' ZEUSA DEVICE TYPE        S20201
000007                              231+ZEUSC    EQU   X'07' ZEUSC DEVICE TYPE        S20201
000009                              232+MERLIN   EQU   X'09' MERLIN DEVICE TYPE       S20201
                                    233+*2305/3330 END                                                   S20201
000010                              234+DCC      EQU   X'10' DEVICE HAS RECORD READY  S20201
                                                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    236+*****************************************************************
                                    237+* THE DASD ERP IS REQUIRED-
                                    238+* A.TO REACT TO NESTED ERRORS IN THE SAME CHAN PRO AND SAME DEVICE
                                    239+* C.TO REACT TO SEVERAL ERRORS ASYNCHRONOUSLY ON SEVERAL DEVICES
                                    240+* B.TO REACT TO SEVERAL ERRORS ON THE SAME DEVICE ASYNCHRONOUSLY
                                    241+* D.ALL OF THE ABOVE
                                    242+* E.TO OBTAIN CERTAIN INFORMATION ABOUT CERTIAN ERRORS AND PASS
                                    243+*   IT TO THE OPERATOR COMMUNICATION,STATISTICS AND ERR LOGGING
                                    244+*   ROUTINES.
                                    245+* SINCE THE ERP IS OPERATED ASYNCHRONOUSLY,IT IS CONTROLLED BY
                                    246+* BIT SWITCHES WHICH ARE SET AT EXIT AND INTERROGATED UPON
                                    247+* RE-ENTRY
000000                              248+ER2311   DS    0H
000000 9048 FAF0            00AF0   249+         STM   DCBREG,SNSREG,ERSAV SAVE REGS 4- 8           S20201
000004 5840 703C            0003C   250+         L     UCBRG2,UCBWK UCB,UCB WK AR CONTI
000008 4180 7016            00016   251+         LA    SNSREG,UCBSNS1 SENSE REG                S20201
00000C 5860 0010            00010   252+         L     CVTREG,CVTLOC
000010 9110 2010      00010         253+         TM    IOBST,CC1OR3 SIO CC=1 OR 3          @SA76790
000014 4710 F01C            0001C   254+         BO    ERPINCTL YES, LEAVE IOBSRS ON   @SA76790
000018 94FE 2000      00000         255+         NI    IOBFL1,X'FF'-IOBSRS NO, RESET IOBSRS       @SA76790
00001C                              256+ERPINCTL EQU   * CONNECTOR              @SA76790
00001C 9624 2000      00000         257+         OI    IOBFL1,IOBERR+IOBEX SET ERP IN CONTROL
000020 9102 200C      0000C         258+         TM    IOBCSW+4,CSWUCK TEST FOR UNIT CHK
000024 4710 F02E            0002E   259+         BO    ERSTUP YES,SKIP
000028 D701 2002 2002 00002 00002   260+         XC    IOBSNS(2),IOBSNS NO,CLEAR RESID SENSE
00002E                              261+ERSTUP   DS    0H CONNECTOR                S20201
                                    262+* 2305 OR 3330 OPTION                                            S20201
00002E 4590 FA40            00A40   263+         BAL   LNKRG2,MZTEST CHECK FOR MERLIN/ZEUS    S20201
000032 4770 F09C            0009C   264+         BNE   ERSTUP2 BRANCH IF NEITHER        S20201
000036 5880 7018            00018   265+         L     SNSREG,EXTSNS0 GET FLOATING SENSE AREA  S20201
00003A 4188 0000            00000   266+         LA    SNSREG,0(SNSREG) CLR HI-ORDER BYTE        S20201
00003E 9102 200C      0000C         267+         TM    IOBCSW+4,CSWUCK TEST FOR UNIT CHK        A52407
000042 4710 F04C            0004C   268+         BO    ERSTUPX YES,SKIP                 A52407
000046 D700 8002 8002 00002 00002   269+         XC    USNS2(1),USNS2 NO CLEAR RESID SENSE     A51174
00004C                              270+ERSTUPX  DS    0H CONNECTOR              @SA79916
00004C 9190 8002      00002         271+         TM    USNS2,LOGSNS+ZUSLOG NEW ENV DATA?          @SA79916
000050 4770 F084            00084   272+         BNZ   LOGSAVE YES, LOG IT            @SA79916
000054 913C 2002      00002         273+         TM    IOBSNS,OBRSNS OBRABLE ERROR?         @SA79916
000058 4780 F0CC            000CC   274+         BZ    ERNTRP NO, DONT LOG           @SA79916
00005C 9130 8007      00007         275+         TM    FMSG,X'30' NEW FMT 3 ?            @SA78211
000060 4710 F084            00084   276+         BO    LOGSAVE YES, SAVE IT           @SA78211
000064 9160 40C7      000C7         277+         TM    EXTSNS+7,X'60' PREV FMT 6             @SA76234
000068 4710 F0CC            000CC   278+         BO    ERNTRP YES, DON'T OVERLAY IT  @SA76234
00006C 9180 40B8      000B8         279+         TM    EXTCSW,OBR PREV OBR ENTRY?        @SA80070
000070 4710 F0CC            000CC   280+         BO    ERNTRP YES, DO NOT LOG        @SA80070
000074                              281+TSTDCK   DS    0H CONNECTOR              @SA79916
000074 9108 8000      00000         282+         TM    UCBSNS,DATASNS IS THIS A DATA CHECK     S20201
000078 4780 F084            00084   283+         BZ    LOGSAVE BRANCH IF NO             S20201
00007C 9140 8002      00002         284+         TM    UCBSNS+2,X'40' IS ERROR CORRECTABLE   @SA77720
000080 4710 F0CC            000CC   285+         BO    ERNTRP YES, DON'T LOG         @SA77720
000084                              286+LOGSAVE  DS    0H CONNECTOR                S20201
000084 D217 40C0 8000 000C0 00000   287+         MVC   EXTSNS,UCBSNS SAVE THE SENSE           S20201
00008A D207 40B8 2008 000B8 00008   288+         MVC   EXTCSW,IOBCSW SAVE THE CSW             S20201
000090 9280 40B8      000B8         289+         MVI   EXTCSW,OBR INDICATE A SAVED ENTRY   S20201
000094 9601 2008      00008         290+         OI    IOBFL3,IOBLOG SET IOB LOG FLAG         MS0058
                                                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000098 47F0 F0CC            000CC   291+         B     ERNTRP BRANCH TO ERROR INTERP   S20201
                                    292+*2305/3330 END                                                   S20201
00009C                              293+ERSTUP2  DS    0H CONNECTOR                S20201

                                    295+*****************************************************************
00009C 4590 F96E            0096E   296+         BAL   LNKRG2,ERSTPTR PTR TO STAT ENTRY        S20201
0000A0 9102 200C      0000C         297+         TM    IOBCSW+4,CSWUCK UNIT CHECK?             SA60720
0000A4 4780 F0AE            000AE   298+         BZ    SKIPMOV NO, SKIP                SA60720
0000A8 D202 FB2C 8000 00B2C 00000   299+         MVC   ERINC(3),UCBSNS PUT SENSE INTO WORK LOCA
0000AE                              300+SKIPMOV  DS    0H CONNECTOR               SA60720
0000AE D401 FB2D FB28 00B2D 00B28   301+         NC    ERINC+1(2),NORLOG NO,USE NORMAL MASK       A36382
0000B4 D600 FB2D FB2E 00B2D 00B2E   302+COMLOG   OC    ERINC+1(1),ERINC+2 2ND=COMPOSITE OF 2ND+3RD A36382
0000BA D601 B008 FB2C 00008 00B2C   303+         OC    SERWRK(2,ERREG2),ERINC OR COMPOSITE INTO STAT
0000C0 9108 200D      0000D         304+         TM    IOBCSW+5,CSWCDC CHECK FOR CDC
0000C4 4780 F0CC            000CC   305+         BZ    *+8 NO,GO AROUND
0000C8 9601 B009      00009         306+         OI    SERWRK+1(ERREG2),STCDC SET CDC STAT IND
0000CC                              307+ERNTRP   DS    0H
0000CC 957E 2004      00004         308+         CLI   IOBCOD,INTRCPT INTERCEPTED REQUEST
0000D0 4770 F0DC            000DC   309+         BNE   ERNTRPA NO, CONTINUE
0000D4 927F 2004      00004         310+         MVI   IOBCOD,IOBNORM YES, RESET CODE AND -
0000D8 47F0 F4BA            004BA   311+         B     OVERRUN START REQUEST            A32176
0000DC                              312+ERNTRPA  DS    0H
0000DC 4590 F9EA            009EA   313+         BAL   LNKRG2,CCWSUB GET ERR CCW PTR
                                    314+* 2305 OR 3330 OPTION                                            S20201
0000E0 4590 FA40            00A40   315+         BAL   LNKRG2,MZTEST CHECK FOR MERLIN/ZEUS    S20201
                                    316+*2305/3330 END                                                   S20201
0000E4 18A2                         317+         LR    10,IOBRG GLITCH FOR INTRP
0000E6 189F                         318+         LR    9,BASREG REG 9=RETURN REG
                                    319+* 2305 OR 3330 OPTION                                            S20201
0000E8 4780 F12C            0012C   320+         BE    ERNTMZ BRANCH IF MERLIN/ZEUS    S20201
                                    321+*2305/3330 END                                                   S20201
0000EC 9120 7011      00011         322+         TM    UCBOFEAT,UCBSHRD TEST FOR SHARED         SA63263
0000F0 4780 F0F8            000F8   323+         BZ    ERNTNSHR BR IF NOT SHARED        SA63263
0000F4 94FE 2000      00000         324+         NI    IOBFL1,X'FF'-IOBSRS CLEAR RESTART           SA63263
0000F8                              325+ERNTNSHR DS    0H CONNECTER               SA63263
0000F8 58F0 6044            00044   326+         L     BASREG,CVTNTRP ADDR OF ERR INTERP
0000FC 05CF                         327+ERNT     BALR  12,BASREG GO
                                    328+*
0000FE 1D60                         329+         DC    X'1D',AL1(ERCCC-ERNT-2) CHAN CTRL CHK       A32176
                                    330+*
000100 1E5E                         331+         DC    X'1E',AL1(ERICC-ERNT-4) INTERFACE CTRL CHK  A32176
                                    332+*
000102 1C84                         333+         DC    X'1C',AL1(TRY10C-ERNT-6) CHAN DATA CHK      A53829
                                    334+*
000104 0362                         335+         DC    X'03',AL1(EREQCH-ERNT-8) EQUIP CHK           A32176
                                    336+*
000106 0C6C                         337+         DC    X'0C',AL1(ERNRF-ERNT-10) NO REC FND          A32176
                                    338+*
000108 077A                         339+         DC    X'07',AL1(ERSK-ERNT-12) SEEK CHK            A32176
                                    340+*
00010A 0188                         341+         DC    X'01',AL1(ERNREQ-ERNT-14) INT REQ'D           A32176
                                    342+*
00010C 0262                         343+         DC    X'02',AL1(ERBUSO-ERNT-16) BUSOUT              A32176
                                    344+*
00010E 046C                         345+         DC    X'04',AL1(ERDAT-ERNT-18) DATA CHECK          A32176
                                                                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    346+*
000110 059A                         347+         DC    X'05',AL1(EROVRN-ERNT-20) OVERRUN             A32176
                                    348+*
000112 0E6C                         349+         DC    X'0E',AL1(ERMARK-ERNT-22) MISSING ADDR MRK    A32176
                                    350+*
000114 007A                         351+         DC    X'00',AL1(ERCMDR-ERNT-24) COMMAND REJECT      A32176
                                    352+*
000116 0660                         353+         DC    X'06',AL1(ERTCC-ERNT-26) TRK COND CHK        A32176
                                    354+*
000118 09A6                         355+         DC    X'09',AL1(ERTOVRN-ERNT-28) TRK OVERRUN         A32176
                                    356+*
00011A 0A9C                         357+         DC    X'0A',AL1(EREOC-ERNT-30) END OF CYLINDER     A32176
                                    358+*
00011C 0D9E                         359+         DC    X'0D',AL1(ERFPRT-ERNT-32) FILE PROTECT        A32176
                                    360+*
00011E 164C                         361+         DC    X'16',AL1(ERSEV-ERNT-34) UNIT CHK- NO SNS    A32176
                                    362+*
000120 1F66                         363+         DC    X'1F',AL1(TRY10C-ERNT-36) CHAIN CHK           A53829
                                    364+*
000122 1A9C                         365+         DC    X'1A',AL1(ERCHP-ERNT-38) CH PROG CHK         A32176
                                    366+*
000124 1B9A                         367+         DC    X'1B',AL1(ERPROT-ERNT-40) CH PROT CHK         A32176
                                    368+*
000126 1788                         369+         DC    X'17',AL1(EREOF-ERNT-42) UNIT EXCEPTION      A32176
                                    370+*
000128 198A                         371+         DC    X'19',AL1(ERLEN-ERNT-44) WRONG LENGTH        A32176
                                    372+*
00012A 2F38                         373+         DC    X'2F',AL1(ERNOER-ERNT-46) END OF TEST         A32176
                                    374+*
                                    375+*****************************************************************
                                    376+* 2305 OR 3330 OPTION                                            S20201
                                    377+**        MERLIN  ZEUS ERROR INTERPRETER TABLE       **          S20201
00012C                              378+ERNTMZ   DS    0H CONNECTOR                S20201
00012C 58F0 6044            00044   379+         L     BASREG,CVTNTRP ADDR OF ERR INTERP       S20201
000130 05CF                         380+ERNT2    BALR  12,BASREG BRANCH TO INTERPRETER    S20201
                                    381+*                                                                S20201
000132 1D2C                         382+         DC    X'1D',AL1(ERCCC-ERNT2-2) CHAN CTRL CHK       S20201
                                    383+*                                                                S20201
000134 1E2A                         384+         DC    X'1E',AL1(ERICC-ERNT2-4) INTERFACE CTRL CHK  S20201
                                    385+*                                                                S20201
000136 1C50                         386+         DC    X'1C',AL1(TRY10C-ERNT2-6) CHAN DATA CHK       A53829
                                    387+*                                                                S20201
000138 1F4E                         388+         DC    X'1F',AL1(TRY10C-ERNT2-8) CHAINING CHK        A53829
                                    389+*                                                                S20201
00013A 056C                         390+         DC    X'05',AL1(TRY10A-ERNT2-10) OVERRUN            SA67819
                                    391+*                                                                S20201
00013C 082E                         392+         DC    X'08',AL1(ERSEV-ERNT2-12) PERMANENT ERR      SA67819
                                    393+*                                                                S20201
00013E 0368                         394+         DC    X'03',AL1(TRY10A-ERNT2-14) EQUIP CHK          SA67819
                                    395+*                                                                S20201
000140 022E                         396+         DC    X'02',AL1(ERBUSO-ERNT2-16) BUS OUT            SA67819
                                    397+*                                                                S20201
000142 0150                         398+         DC    X'01',AL1(ERNREQ-ERNT2-18) INT REQ'D          SA67819
                                    399+*                                                                S20201
000144 0046                         400+         DC    X'00',AL1(ERCMDRJ-ERNT2-20) COMMAND REJECT     SA67819
                                                                                                               PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    401+*                                                                S20201
000146 0C78                         402+         DC    X'0C',AL1(ERPERM-ERNT2-22) NO RECORD FOUND   @SA74812
                                    403+*                                                                S20201
000148 0976                         404+         DC    X'09',AL1(ERPERM-ERNT2-24) INVALID TRACK FORMATS20201
                                    405+*                                                                S20201
00014A 0450                         406+         DC    X'04',AL1(ERECF-ERNT2-26) DATA CHK            S20201
                                    407+*                                                                S20201
00014C 0A6A                         408+         DC    X'0A',AL1(EREOC-ERNT2-28) END OF CYLINDER     S20201
                                    409+*                                                                S20201
00014E 0D6C                         410+         DC    X'0D',AL1(ERFPRT-ERNT2-30) FILE PROTECT        S20201
                                    411+*                                                                S20201
000150 0F46                         412+         DC    X'0F',AL1(EROV-ERNT2-32) OVERFLOW ALONE      S20201
                                    413+*                                                                S20201
000152 164C                         414+         DC    X'16',AL1(ERSNS-ERNT2-34) UNIT CHK            S20201
                                    415+*                                                                S20201
000154 1A6A                         416+         DC    X'1A',AL1(ERPERM-ERNT2-36) CHAN PROG CHK       S20201
                                    417+*                                                                S20201
000156 1B68                         418+         DC    X'1B',AL1(ERPERM-ERNT2-38) CHAN PROT CHK       S20201
                                    419+*                                                                S20201
000158 1756                         420+         DC    X'17',AL1(EREOF-ERNT2-40) UNIT EXCEPTION      S20201
                                    421+*                                                                S20201
00015A 1958                         422+         DC    X'19',AL1(ERLEN-ERNT2-42) INCORRECT LENGTH    S20201
                                    423+*                                                                S20201
00015C 2F06                         424+         DC    X'2F',AL1(ERNOER-ERNT2-44) END TEST            S20201
                                    425+*                                                                S20201
                                    426+**************************************************************** S20201
                                    427+*2305/3330 END                                                   S20201
00015E                              428+ERCCC    DS    0H CHAN CONTROL CHK RTN
00015E 47F0 F1C2            001C2   429+ERICC    B     CHANNEL0 CHANNEL ERROR RTN
000162 47F0 F53A            0053A   430+ERNOER   B     ERNONE NO ERR  PROCESS
000166 47F0 F1EE            001EE   431+EREQCH   B     EQUIPMT EQUIPMENT CHECK RTN
00016A 47F0 F61E            0061E   432+ERSEV    B     MSGLOG NO SENSE AND A UNIT CK
00016E 47F0 F1F6            001F6   433+ERBUSO   B     BUSOUT BUS OUT RTN
000172 47F0 F206            00206   434+ERNRF    B     NORECF NO RECORD FOUND RTN
000176 47F0 F226            00226   435+ERTCC    B     TRACKCON TRACH CONDITION RTN
00017A 47F0 F22A            0022A   436+ERDAT    B     DATACK DATA CHECK RTN
00017E 47F0 F454            00454   437+ERMARK   B     MISSING MISSING ADDR MARK RTN
000182 47F0 F454            00454   438+ERSK     B     SEEKCK SEEK CHECK RTN
000186 47F0 F1CA            001CA   439+TRY10C   B     CHANNEL2 CDC OR CHAINING          A53829
                                    440+* COMMAND REJECT IS A HARD USER ERROR WITH MSG BUT NO LOG        S20201
                                    441+* 3330 OPTION                                                  @SA78506
                                    442+* COMMAND REJECT ON A 3330 AND SENSE BYTE 7 = 0B WILL BE       @SA78184
                                    443+* LOGGED TO INDICATE AN IMPROPER ALT/DEF TRACK POINTER.        @SA78184
00018A 47F0 F1E2            001E2   444+ERCMDRJ  B     ERCMDRJ1 CMD REJ                @SA78184
                                    445+* 3330   END                                                   @SA78506
00018E 47F0 F622            00622   446+ERCMDR   B     MSG GO SET UP FOR MSG        S20201
000192 47F0 F464            00464   447+ERNREQ   B     INTERVEN INTERVENTION REQUIRED RTN
                                    448+* 2305 OR 3330 OPTION                                            S20201
000196 47F0 F43A            0043A   449+EROV     B     RSTOVF RESTART OVERFLOW CHPGM   S20201
00019A 47F0 F266            00266   450+ERECF    B     ECFDATA ECF ERROR                S20201
00019E 47F0 F60E            0060E   451+ERSNS    B     FLAGCK CKECK BYTE THREE OF SENS S20201
0001A2 47F0 F256            00256   452+TRY10    B     RTRY10 RETRY 10                 S20201
0001A6 47F0 F25E            0025E   453+TRY10A   B     RTRY10A RETRY 10                  M5595
                                    454+*2305/3330 END                                                   S20201
0001AA 47F0 F4BA            004BA   455+EROVRN   B     OVERRUN CHANNEL OVERRUN RTN
                                                                                                               PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0001AE 47F0 F4C2            004C2   456+EREOF    B     UNITEXC END OF FILE ROUTINE
0001B2 47F0 F4CA            004CA   457+ERLEN    B     LENGTH INCORRECT LENGTH RTN
0001B6 47F0 F4D6            004D6   458+EREOC    B     CYLINDER END OF CYLINDER RTN
0001BA 47F0 F4DE            004DE   459+ERFPRT   B     FILEPROT FILE PROTECT RTN
                                    460+*****************************************************************
                                    461+*  HARD USER ERROR CONDITIONS, NO MSG, NO LOG
0001BE                              462+ERPERM   DS    0H HARD ERRORS,             S20201
0001BE                              463+ERTOVRN  DS    0H TRACK OVERUN
0001BE                              464+ERCHP    DS    0H CHAN PROG CHK RTN
0001BE                              465+ERPROT   DS    0H CHAN PROT CHK
0001BE 47F0 F682            00682   466+         B     ERHARD HARD USER ERROR
                                    467+* CCH OPTION
                                    468+*****************************************************************
                                    469+*CH CONTRL CHK AND INTERFACE CONTROL CHK ARE TREATED AS SEEK CHKS
                                    470+*IF RETRIES ARE PERMITTED BY THE ERPIB'S. OTHERWISE IT IS A HARD
                                    471+*ERROR AND WILL RESULT IN MSG AND LOG
0001C2                              472+CHANNEL0 DS    0H
0001C2 45D0 F71E            0071E   473+         BAL   LINKRG1,ERASR0 CHK FOR ERPIB            A32176
0001C6 4790 F1D2            001D2   474+         BC    9,CHANNEL3 NO ERPIB OR NOT RETRYABLE    A53829
                                    475+*CCH END
0001CA 910A 201F      0001F         476+CHANNEL2 TM    IOBCNT+1,10 CNT MAX?                 A53829
0001CE 47E0 F1DA            001DA   477+         BNO   CHANNEL4 NO                       A53829
0001D2 9610 2001      00001         478+CHANNEL3 OI    IOBFL2,IOBRHA IND CCHH IN MSG          A53829
0001D6 47F0 F622            00622   479+         B     MSG GO TO SET FOR ERR MSG    A53829
0001DA 45D0 F758            00758   480+CHANNEL4 BAL   LINKRG1,INCR10 RETRY PGM 10 TIMES       A53829
0001DE 47F0 F66A            0066A   481+         B     RETRY RETRY CHANNEL PROGRAM
                                    482+*
                                    483+*****************************************************************
                                    484+*EXPSNS OPTION                                                 @SA78506
0001E2                              485+ERCMDRJ1 DS    0H @SA78184
0001E2 950B 8007      00007         486+         CLI   FMSG,ALTDEF ALT TRACK POINTER BAD  @SA78184
0001E6 4780 F61E            0061E   487+         BE    MSGLOG YES, LOG AND MSG       @SA78184
0001EA 47F0 F622            00622   488+         B     MSG NO, MSG                @SA78184
                                    489+* EXPSNS END                                                   @SA78506
                                    490+*****************************************************************
                                    491+*EQUIP CHK OR BUS OUT ERRORS ARE RETRIED ONCE,IF ERROR PERSISTS
                                    492+*MSG AND LOG
0001EE 9180 8002      00002         493+EQUIPMT  TM    USNS2,UCBUNS IS DEVICE UNSAFE         S20201
0001F2 4710 F61A            0061A   494+         BO    MSGLOGA YES, MSG AND LOG
                                    495+*
0001F6 9710 2008      00008         496+BUSOUT   XI    IOBFL3,IOBBOE SET/RESET ONE COUNT
0001FA 9110 2008      00008         497+         TM    IOBFL3,IOBBOE TEST BUS OUT FLG ALONE   S20201
0001FE 4780 F61A            0061A   498+         BZ    MSGLOGA RETRY FAILED, MSG AND LOG
000202 47F0 F66A            0066A   499+         B     RETRY RETRY THE ERROR ONCE
                                    500+*
                                    501+*
                                    502+*****************************************************************
                                    503+*NRF WITH MISSING ADDR MARK  IS TREATED AS SEEK CHK
                                    504+*NRF ALONE RETRIED ONCE ON 2301 DEVICES
                                    505+*NRF ALONE RETRIED ONCE ON 2301 AND 2321 DEVICES                 S20201
                                    506+*NRF ALONE RESULTS IN A READ HA TO VERIFY CORRECT SEEK. IF NOT
                                    507+*CORRECT SEEK THEN NRF TREATED AS SEEK CHK. IF SEEK CORRECT
                                    508+*THEN ERROR ASSUMED TO BE USER ERROR,NO MSG NO LOG.
000206 9102 2003      00003         509+NORECF   TM    IOBSNS+1,IOBAMRK IS THIS A MISSING ADDR MARK
00020A 4710 F454            00454   510+         BO    MISSING BRANCH IF YES
                                                                                                               PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00020E 9110 2001      00001         511+         TM    IOBFL2,IOBRHA ERP CHANNEL PROGRAM?             A42169
000212 4780 F21E            0021E   512+         BZ    NRFUSE NO                       A42169
000216 45D0 F758            00758   513+         BAL   LINKRG1,INCR10 RETRY 10                 A42169
00021A 47F0 F66A            0066A   514+         B     RETRY RETRY 10                 A42169
00021E                              515+NRFUSE   EQU   * A42169
00021E 9620 2008      00008         516+         OI    IOBFL3,IOBNRF SET NRF FLAG ON
000222 47F0 F640            00640   517+         B     ERRHAB GO READ HOME ADDR
                                    518+*
                                    519+*****************************************************************
                                    520+*TRK COND RESULTS IN RHA RR0 TO GET THE ADDR OF THE ALT OR
                                    521+*PRIME TRACK FROM R0. HA FLAG INDICATES PRIME OR ALT TRACK ID.
                                    522+*SEE'ERNONE' FOR SECOND STAGE
000226 47F0 F640            00640   523+TRACKCON B     ERRHAB GO READ HOME ADDR
                                    524+*
                                    525+*****************************************************************
                                    526+* DATA CHK IS RETRIED 255 TIMES WITH
                                    527+* RECALIBRATES EVERY 16TH TIME,MSG,LOG
00022A 9110 5004      00004         528+DATACK   TM    4(CCWREG),SKIP IS THIS A WRITE CHECK
00022E 4780 F236            00236   529+         BZ    *+8 BRANCH IF NO
000232 9680 201F      0001F         530+         OI    IOBCNT+1,X'80' SET WRITE INDICATOR
000236 91FF 201E      0001E         531+INCR256  TM    IOBCNT,255 IS COUNTER FULLL
00023A 4710 F61E            0061E   532+         BO    MSGLOG READ HA FOR MSG AND LOG IF FULL
00023E 43A0 201E            0001E   533+         IC    WORK,IOBCNT GET 256 RETRY COUNTER
000242 41AA 0001            00001   534+         LA    WORK,1(WORK) INCREMENT COUNT
000246 42A0 201E            0001E   535+         STC   WORK,IOBCNT STORE UPDATED COUNT
00024A 910F 201E      0001E         536+         TM    IOBCNT,X'0F' IS COUNT A MULTIPLE OF 16
00024E 4770 F66A            0066A   537+         BNZ   RETRY BRANCH IF NO
                                    538+*
000252 47F0 F64C            0064C   539+         B     ERRECAL RECALIBRATE
                                    540+*
                                    541+* 2305 OR 3330 OPTION                                            S20201
                                    542+* 2305/3330 OVERRUN = RETRY 10 - THEN MSG BUT NO LOG             S20201
000256 910A 201F      0001F         543+RTRY10   TM    IOBCNT+1,10 RETRY CNT = 10?          S20201
00025A 4710 F622            00622   544+         BO    MSG YES, EXIT WITH MSG       S20201
00025E 45D0 F758            00758   545+RTRY10A  BAL   LINKRG1,INCR10 GO INCREMENT COUNT        M5595
000262 47F0 F66A            0066A   546+         B     RETRY GO RETRY                 S20201
000266 9140 8002      00002         547+ECFDATA  TM    USNS2,X'40' CORRECTABLE ERROR        S20201
00026A 4780 F362            00362   548+         BZ    NOTCORR NOT ECF CORRECTABLE    @SA78124
00026E 48B0 8012            00012   549+         LH    ERREG2,ECCDISP FETCH BACKWARDS DISP     S20201
000272 54B0 FB14            00B14   550+         N     ERREG2,ZERO CLEAR HI-ORDER 2 BYTES   S20201
000276 D201 FB0E 5006 00B0E 00006   551+         MVC   ECFCNT+2(2),6(CCWREG) SAVE CCW CNT             S20201
                                    552+* 3330 OPTION                                                    S20201
00027C D202 FB09 800F 00B09 0000F   553+         MVC   TOTALCNT+1(3),CLOCBYTE FETCH RESTART DISP       S20201
000282 58A0 FB08            00B08   554+         L     ERREG1,TOTALCNT LOAD                     S20201
000286 1BAB                         555+         SR    ERREG1,ERREG2 CALC FORWARD DISP        S20201
                                    556+*3330 END                                                        S20201
                                    557+*                                                                S20201
000288                              558+ECCNT    DS    0H CONNECTOR                S20201
000288 41B0 8014            00014   559+         LA    ERREG2,ECCSYN POINT AT ECC BYTE        S20201
00028C 41C0 0003            00003   560+         LA    ERREG3,3 SET LOOP CNT             S20201
000290                              561+ECFLOOP1 DS    0H CONNECTOR                S20201
000290 55A0 FB0C            00B0C   562+         CL    ERREG1,ECFCNT ERROR IN THIS SEG        A51174
000294 47B0 F2CE            002CE   563+         BNL   ENDSEG NO                       S20201
000298 12CC                         564+         LTR   ERREG3,ERREG3 LOOP CNT ZERO?            A54490
00029A 4780 F2CE            002CE   565+         BZ    ENDSEG YES                      A54490
                                                                                                               PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    566+* CALCULATE ERROR ADDRES                                         S20201
00029E 5895 0000            00000   567+         L     LNKRG2,0(CCWREG) FETCH CCW ADDR           S20201
0002A2 4199 0000            00000   568+         LA    LNKRG2,0(LNKRG2) CLEAR HI-ORDER BYTE      S20201
0002A6 1A9A                         569+         AR    LNKRG2,ERREG1 ADD FORWARD DISPLACEMENT S20201
0002A8 9500 B000      00000         570+         CLI   0(ERREG2),0 IS ECC BYTE ZERO         S20201
0002AC 4780 F2BE            002BE   571+         BE    ECFINCR YES, SKIP EXCL-OR        S20201
0002B0 9110 5004      00004         572+         TM    4(CCWREG),SKIP SKIP FLAG ON             S20201
0002B4 4710 F2BE            002BE   573+         BO    ECFINCR YES, SKIP EXCL-OR        S20201
                                    574+* APPLY ECC BYTE TO CORE                                         S20201
0002B8 D700 9000 B000 00000 00000   575+         XC    0(1,LNKRG2),0(ERREG2) DO IT                    S20201
0002BE                              576+ECFINCR  DS    0H INCR POINTERS            S20201
0002BE 41BB 0001            00001   577+         LA    ERREG2,1(ERREG2) POINT TO NEXT ECC BYTE   S20201
0002C2 41AA 0001            00001   578+         LA    ERREG1,1(ERREG1) INCR DISP                S20201
0002C6 46C0 F290            00290   579+         BCT   ERREG3,ECFLOOP1 DECR LOOP CNT, LOOP      S20201
0002CA 47F0 F310            00310   580+         B     LENCHK END OF LOOP            @SA77654
                                    581+*                                                                S20201
0002CE                              582+ENDSEG   DS    0H CONNECTOR                S20201
                                    583+* 3330 OPTION                                                    S20201
0002CE 9509 7013      00013         584+         CLI   UCBUTB,MERLIN MERLIN DEVICE            S20201
0002D2 4770 F376            00376   585+         BNE   ECFOVCK NO, SKIP                 S20201
0002D6 9180 5004      00004         586+         TM    4(CCWREG),DCHAIN IS THIS DATA CHAINING    S20201
0002DA 4780 F310            00310   587+         BZ    LENCHK NO, CHK FOR INCOR LENGTH S20201
                                    588+*                                                                S20201
0002DE 5890 FB08            00B08   589+         L     LNKRG2,TOTALCNT FETCH                    S20201
0002E2 5B90 FB0C            00B0C   590+         S     LNKRG2,ECFCNT DECR BY CCW CNT          S20201
0002E6 5090 FB08            00B08   591+         ST    LNKRG2,TOTALCNT RESTORE                  S20201
0002EA 5BA0 FB0C            00B0C   592+         S     ERREG1,ECFCNT DECR DISP BY CCW CNT     S20201
0002EE 4155 0008            00008   593+         LA    CCWREG,8(CCWREG) INCR TO NEXT CCW         S20201
                                    594+* TEST IF CMD=TIC
0002F2 9107 5000      00000         595+         TM    0(CCWREG),CMDFSK A45276
0002F6 4770 F306            00306   596+         BNE   SETECNT NO,UPDATE ECFCNT         S20201
0002FA 9108 5000      00000         597+         TM    0(CCWREG),CMDTIC SA68579
0002FE 4780 F306            00306   598+         BZ    SETECNT NO, SKIP                SA68579
000302 5855 0000            00000   599+         L     CCWREG,0(CCWREG) YES, POINT TO TIC ARG    S20201
000306                              600+SETECNT  DS    0H CONNECTOR                S20201
000306 D201 FB0E 5006 00B0E 00006   601+         MVC   ECFCNT+2(2),6(CCWREG) UPDATE COUNT AREA        S20201
00030C 47F0 F290            00290   602+         B     ECFLOOP1 LOOP                     S20201
                                    603+*
000310                              604+LENCHK   DS    0H CHECK FOR INCORR LENGTH  S20201
000310 9101 8017      00017         605+         TM    SNS23,CULENG INCORRECT LENG IN CU     S20201
000314 4780 F32A            0032A   606+         BZ    MER210 BRANCH NO                S20201
000318 D503 FB08 FB0C 00B08 00B0C   607+         CLC   TOTALCNT(4),ECFCNT COMPARE COUNTS           S20201
00031E 4770 F32A            0032A   608+         BNE   MER210 B IF INCORRECT LENG CALC S20201
                                    609+*        IF NO INCORRECT LENGTH DETECTED IN CALC THEN EQUIP CK   S20201
000322 9610 8000      00000         610+         OI    USNS0,EQUIPSNS INDICATE EQUIP CK        S20201
000326 47F0 F02E            0002E   611+         B     ERSTUP TRY AGAIN AS EQUIP CK    S20201
00032A                              612+MER210   EQU   *
00032A D702 200D 200D 0000D 0000D   613+         XC    IOBCSW+5(3),IOBCSW+5 CLEAR RESIDUL COUNT      A43747
000330 D503 FB08 FB0C 00B08 00B0C   614+         CLC   TOTALCNT(4),ECFCNT COUNTS EQUAL             S20201
000336 4780 F376            00376   615+         BE    ECFOVCK A43747
00033A 58A0 FB0C            00B0C   616+         L     ERREG1,ECFCNT GET CCW COUNT             M1772
00033E 5BA0 FB08            00B08   617+         S     ERREG1,TOTALCNT SUBTRACT BYTE COUNT       M1772
000342 4740 F34A            0034A   618+         BM    NEGRES DIFFERENCE NEG           A43747
000346 50A0 200C            0000C   619+         ST    ERREG1,IOBCSW+4 STORE COMPUTED RESIDUL   A43747
00034A                              620+NEGRES   EQU   * A43747
                                                                                                               PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00034A 9120 5004      00004         621+         TM    4(CCWREG),SLI SUPPRESS LENGTH ON       S20201
00034E 4710 F376            00376   622+         BO    ECFOVCK YES, BRANCH              S20201
000352 9101 2003      00003         623+         TM    IOBSNS+1,IOBOVF OVERFLOW?                A51174
000356 4710 F376            00376   624+         BO    ECFOVCK YES                      A51174
00035A 9640 200D      0000D         625+         OI    IOBFL3+5,LNGCK SET INCORR LENGTH        S20201
00035E 47F0 F422            00422   626+         B     CCWSET SET CH END DEV END       S20201
                                    627+*                                                              @SA78124
000362 9101 2003      00003         628+NOTCORR  TM    IOBSNS+1,IOBOVF OP INC=OVERFLOW RECORD @SA78124
000366 4780 F4BA            004BA   629+         BZ    OVERRUN NO, RETRY TEN TIMES    @SA80070
00036A 1FCC                         630+         SLR   ERREG3,ERREG3 SET LOOP COUNT=0       @SA78124
00036C D202 FB09 800F 00B09 0000F   631+         MVC   TOTALCNT+1(3),CLOCBYTE GET FORWARD DISP       @SA78124
000372 47F0 F2CE            002CE   632+         B     ENDSEG BUILD RESTART CCW CHAIN@SA78124
                                    633+*3330 END                                                        S20201
                                    634+*                                                                S20201
000376 45C0 FA30            00A30   635+ECFOVCK  BAL   ERREG3,ERXTPTR GET POINTER TO EXTENT    S20201
00037A 9101 B000      00000         636+         TM    0(ERREG2),X'01' IS INHIBIT RETRY ON      S20201
00037E 4780 F392            00392   637+         BZ    NOTPCI BRANCH IF NO             S20201
000382 9108 2000      00000         638+         TM    IOBFL1,STOP SHOULD CHPGM BE RESTARTE S20201
000386 4780 F392            00392   639+         BZ    NOTPCI GO RESTART CHPGM         S20201
00038A 9271 2004      00004         640+         MVI   IOBCOD,PCICODE SET ERROR CORRECTED CODE S20201
00038E 47F0 F41E            0041E   641+         B     NOERROR DO NOT ATTEMPT RESTART   S20201
                                    642+*                                                                S20201
000392 9140 5004      00004         643+NOTPCI   TM    4(CCWREG),X'40' IS CMND CHAINING BIT ON  S20201
000396 4710 F3A6            003A6   644+         BO    CMDCHN YES                      A47754
00039A 9101 2003      00003         645+         TM    IOBSNS+1,IOBOVF OVERFLOW?                A47754
00039E 4710 F400            00400   646+         BO    OVFINC YES                      A47754
0003A2 47F0 F422            00422   647+         B     CCWSET A47754
0003A6 D200 FAB7 800D 00AB7 0000D   648+CMDCHN   MVC   SECTVAL+1(1),ECCSCTR GET REST RT S53TOR       S20201
0003AC 41B5 0008            00008   649+         LA    ERREG2,8(CCWREG) POINT AT NEXT CCW        S20201
                                    650+* TEST IF CMD=TIC
0003B0 9107 B000      00000         651+         TM    0(ERREG2),CMDFSK A51543
0003B4 4770 F3C4            003C4   652+         BNE   NOTIC NO, SKIP                 S20201
0003B8 9108 B000      00000         653+         TM    0(ERREG2),CMDTIC SA68579
0003BC 4780 F3C4            003C4   654+         BZ    NOTIC NO, SKIP                SA68579
0003C0 58BB 0000            00000   655+         L     ERREG2,0(ERREG2) YES, POINT TO NEXT       S20201
0003C4 9180 B000      00000         656+NOTIC    TM    0(ERREG2),X'80' RE MULTI TRK ON ?        A59754
0003C8 4780 F3D8            003D8   657+         BZ    NOMT NO                       A59754
0003CC 9680 FAB8      00AB8         658+         OI    RDCNT,X'80' CHANG OP TO MT           A59754
0003D0 9503 B000      00000         659+         CLI   0(ERREG2),NOOP NO-OP CMD?             @SA76802
0003D4 4780 F3E0            003E0   660+         BE    ENDCCW YES, BRANCH            @SA76802
0003D8 9130 B000      00000         661+NOMT     TM    0(ERREG2),CNTFLD+SECFLD COUNT OR RD-SEC CMD    @SA64437
0003DC 4780 F3E4            003E4   662+         BZ    ECFBLD NO, BRANCH               S20201
0003E0 92A4 FAB5      00AB5         663+ENDCCW   MVI   ECFEND,ERREG1*16+UCBRG2 END CHAN PGM ON CCW 3  @SA76802
0003E4 41B0 FAA0            00AA0   664+ECFBLD   LA    ERREG2,ECFPGM GET ECF RESTART CH PGM   S20201
0003E8 5050 40B4            000B4   665+         ST    CCWREG,OFLOCCW5+4 SAVE CCW REG             A51509
0003EC 4155 0008            00008   666+         LA    CCWREG,8(CCWREG) INCR TO NEXT CCW         S20201
0003F0 45D0 F65C            0065C   667+         BAL   LINKRG1,EREP03 BUILD RESTART CHANNEL PG S20201
0003F4 5850 40B4            000B4   668+         L     CCWREG,OFLOCCW5+4 RESTORE CCW REG          A51509
0003F8 9204 FAB5      00AB5         669+         MVI   ECFEND,UCBRG2 RESTORE END TO CCW 4     S20201
0003FC 947F FAB8      00AB8         670+         NI    RDCNT,X'7F' RESTORE RD CNT OP        A59754
000400 D200 7036 8006 00036 00006   671+OVFINC   MVC   UCBSKA+6(1),ECCHEAD GET CORRECT HEAD         A47754
000406 941F 7036      00036         672+         NI    UCBSKA+6,X'1F' CLEAR HIGH ORDER BIT     S20201
00040A 9101 2003      00003         673+         TM    IOBSNS+1,IOBOVF IS THIS AN EOVEFLOW ERRO S20201
00040E 4780 F416            00416   674+         BZ    NOUPD BRANCH IF NOT OVERFLOW   S20201
                                    675+*                                                                S20201
                                                                                                               PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000412 4590 F8CA            008CA   676+         BAL   LNKRG2,ERCHUDT INCREMENT TO NXT HEAD/CY S20201
                                    677+*                                                                S20201
000416                              678+NOUPD    DS    0H S20201
                                    679+* OVERFLOW OPTION                                                S20201
000416 45D0 F76E            0076E   680+         BAL   LINKRG1,OVFLCHK CHECK FOR OVERFLOW       S20201
                                    681+*OVERFLOW END                                                    S20201
00041A 47F0 F672            00672   682+         B     RESTART S20201
                                    683+*                                                                S20201
00041E                              684+NOERROR  DS    0H S20201
                                    685+* OVERFLOW OPTION                                                S20201
00041E 45D0 F76E            0076E   686+         BAL   LINKRG1,OVFLCHK CHECK FOR OVERFLOW       S20201
000422                              687+CCWSET   DS    0H CONNECTOR                S20201
000422 920C 200C      0000C         688+         MVI   IOBCSW+4,X'0C' SET NO ERROR             S20201
000426 4155 0008            00008   689+         LA    CCWREG,8(CCWREG) POINT TO ERRCCW+8       SA66008
00042A 43A0 2008            00008   690+         IC    ERREG1,IOBFL3 SAVE FLAG 3             SA66008
00042E 5050 2008            00008   691+         ST    CCWREG,IOBCSW UPDATE CSW              SA66008
000432 42A0 2008            00008   692+         STC   ERREG1,IOBFL3 RESTORE FLAG3           SA66008
000436 47F0 F6D8            006D8   693+         B     ERSOFT RETURN NO ERROR          S20201
00043A                              694+RSTOVF   DS    0H CONNECTOR                S20201
00043A D200 7036 8006 00036 00006   695+         MVC   UCBSKA+6(1),ECCHEAD PUT CORRECT HEAD IN SEEK S20201
000440 941F 7036      00036         696+         NI    UCBSKA+6,X'1F' CLEAR PART OF HIGH HALF  S20201
000444 4590 FA40            00A40   697+         BAL   LNKRG2,MZTEST MERLIN FAMILY          @SA73886
000448 4780 F78A            0078A   698+         BE    OVFC YES, SKIP EXTENT       @SA73886
00044C 9608 2001      00001         699+         OI    IOBFL2,IOBNET BYPASS EXTENT CK       @SA73886
000450 47F0 F78A            0078A   700+         B     OVFC TO OVERFLOW HANDLING     S20201
                                    701+*                                                                S20201
                                    702+*2305/3330 END                                                   S20201
                                    703+*OVERFLOW END                                                    S20201
                                    704+*****************************************************************
                                    705+*MISSING ADDR MARK AND SEEK CHK ARE RETRIED 10 TIMES WITH
                                    706+* RECALIBRATES EACH TIME,MSG,LOG
000454                              707+MISSING  DS    0H
000454 9180 2002      00002         708+SEEKCK   TM    IOBSNS,IOBCMDR IS COMMAND REJECT ON
000458 4710 F622            00622   709+         BO    MSG BRANCH IF YES            S20201
00045C 45D0 F758            00758   710+         BAL   LINKRG1,INCR10 RETRY PGM 10 TIMES
000460 47F0 F64C            0064C   711+         B     ERRECAL RECALIBRATE
                                    712+*
                                    713+*****************************************************************
                                    714+*INTERVENTION REQUIRED-NON SYSRES DEVICE WTO,SYSRES DEVICE
                                    715+* CLEAR FLAGS AND EXIT (RETRY),NO LOG
000464 94E7 2001      00001         716+INTERVEN NI    IOBFL2,X'FF'-IOBRHA-IOBNET CLEAR FLAG 2
000468 9410 2008      00008         717+         NI    IOBFL3,IOBBOE RESET ALL BUT COUNT
00046C 9130 2010      00010         718+         TM    IOBST,X'30' CC = 3?                   M1973
000470 4710 F47C            0047C   719+         BO    NORTY YES NO RETRY              M1973
000474 9710 2008      00008         720+         XI    IOBFL3,IOBBOE TEST AND SET 1 COUNT
000478 4770 F66A            0066A   721+         BNZ   RETRY RETRY THE PROGRAM ONCE
                                    722+*
00047C                              723+NORTY    EQU   * M1973
00047C D502 6055 2015 00055 00015   724+         CLC   CVTDCB+1(3),IOBDCB+1 FETCH?                 @SA77437
000482 4780 F4B2            004B2   725+         BE    SYSRES YES, TREAT AS SYSRES   @SA77437
000486 4133 0000            00000   726+         LA    DEBREG,0(DEBREG) GET DEB ADDRESS        @SA77437
00048A 5530 FB24            00B24   727+         CL    DEBREG,OBRDEB OBR?                   @SA77437
00048E 4780 F4B2            004B2   728+         BE    SYSRES YES, TREAT AS SYSRES   @SA77437
000492 9102 7003      00003         729+         TM    UCBSTA,UCBSYS SYSRES?                @SA78183
000496 47E0 F4AA            004AA   730+         BNO   ERPENT NO, EXIT WTO           @SA78183
                                                                                                               PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00049A 9110 2010      00010         731+         TM    IOBST,CC1OR3 SYSRES CC=3 ?          @SA78183
00049E 4710 F4AA            004AA   732+         BO    ERPENT YES, EXIT WTO          @SA78183
0004A2 9110 60B6      000B6         733+         TM    CVTOPTA(CVTREG),CVTNIP NIP EXECUTING?         @SA78183
0004A6 4710 F4B2            004B2   734+         BO    SYSRES YES, RETRY             @SA78183
0004AA                              735+ERPENT   EQU   * @SA78183
0004AA 9604 2001      00001         736+         OI    IOBFL2,IOBPREV INDICATE ERP ENTERED   @SA77193
0004AE 47F0 F6F2            006F2   737+         B     ERXCTL XCTL TO IGE00A AND WTO   A37849
                                    738+*
0004B2                              739+SYSRES   EQU   * A41907
0004B2 9640 7006      00006         740+         OI    UCBFL1,UCBNRY SET UCB NOT READY
0004B6 47F0 F66A            0066A   741+         B     RETRY TAKE RETRY EXIT          A32176
                                    742+*
                                    743+*****************************************************************
                                    744+*CHAIN CHK RETRY 10 TIMES
                                    745+*OVER-RUN RETRY 10 TIMES
0004BA 45D0 F758            00758   746+OVERRUN  BAL   LINKRG1,INCR10 RETRY PGM 10 TIMES
0004BE 47F0 F66A            0066A   747+         B     RETRY TAKE RETRY EXIT          A32176
                                    748+*
                                    749+*****************************************************************
                                    750+*UNIT EXCEPTION IF RETURN FROM RHA RR0 OF BAD TRK GO TO
                                    751+* PHASE 2 OF TRK COND,OTHERWISE HARD USER ERROR,NO MSG,NO LOG
0004C2 9110 2001      00001         752+UNITEXC  TM    IOBFL2,IOBRHA DID THIS OCCUR ON A READ HA/R0
0004C6 4710 F53A            0053A   753+         BO    ERNONE TREAT AS NO ERROR ON READ HA
                                    754+*
                                    755+*****************************************************************
                                    756+*WRONG LENGTH HARD USER ERROR,NO MSG,NO LOG
                                    757+* IF PREVIOUS ERROR GO TO STATUP AND CH END APPEND
                                    758+* IF EOCYL,FILE PROT PREVIOUS GO TO CH END APPEND
                                    759+* OTHERWISE HARD USER ERR-NO LOG,NO MSG
0004CA 9104 2001      00001         760+LENGTH   TM    IOBFL2,IOBPREV HAS THE ERP BEEN PREV ENTERED
0004CE 4710 F6D8            006D8   761+         BO    ERSOFT TREAT AS SOFT ERROR IF YES
0004D2 47F0 F682            00682   762+         B     ERHARD HARD ERROR IF NO PREV ENTRY
                                    763+*
                                    764+*****************************************************************
                                    765+*END OF CYLINDER-UPDATE UCB SEEK ADDRESS TO NEXT CYLINDER
                                    766+*RESTART USER CH PRO AT ERR CCW,NO MSG,NO LOG
0004D6                              767+CYLINDER DS    0H FORCE CYL SW BY LGE HEAD S20201
0004D6 92F0 7036      00036         768+         MVI   UCBSKA+6,X'F0' S20201
0004DA 47F0 F4EE            004EE   769+         B     FPUPDATE GO TO UPDATE CODE       A63226
                                    770+*****************************************************************
0004DE                              771+FILEPROT DS    0H FILE PROTECT RTN
                                    772+*FILE PROTECT  UPDATE UCB SEEK ADDR TO DIFFERENT HEAD
                                    773+* DETERMINE CAUSE
                                    774+*  1.IN LINE SEEK
                                    775+*  2.MULTI TRK READ OR SEARCH
                                    776+*  3.LOGICAL END OF CYL ON DRUM
                                    777+*  NO MSG NO LOG
0004DE 9507 5000      00000         778+         CLI   0(CCWREG),CMDFSK CHECK IF 07 FULL SEEK
0004E2 4780 F682            00682   779+         BE    ERHARD HARD USER ERROR
0004E6 910B 5000      00000         780+         TM    0(CCWREG),CCWSK TEST FOR CYL,HD SEEK
0004EA 4710 F51C            0051C   781+         BO    ERFPRT1 YES GO MOVE SK TO UCB
0004EE 4590 F8CA            008CA   782+FPUPDATE BAL   LNKRG2,ERCHUDT UPDATE HEAD AND CYL IF NECESS
0004F2 41B0 FA58            00A58   783+SHACHAN  LA    ERREG2,ERPOCP1 REPOSITION CHANNEL PGM 1
0004F6                              784+OVFSHA   DS    0H
0004F6 94F7 2001      00001         785+         NI    IOBFL2,X'FF'-IOBNET CLEAR NO EXTENT TEST     A62858
                                                                                                               PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    786+* OVERFLOW OPTION
0004FA 45D0 F76E            0076E   787+         BAL   LINKRG1,OVFLCHK GO CHECK FOR OVERFLOW
                                    788+*OVERFLOW END
                                    789+* 2305 OR 3330 OPTION                                            S20201
0004FE 4590 FA40            00A40   790+         BAL   LNKRG2,MZTEST CHECK FOR MERLIN/ZEUS    S20201
000502 4770 F50A            0050A   791+         BNE   NOSECT NO, SKIP SET SECTOR CP   S20201
000506                              792+SECTSET  DS    0H POINT AT SET SECTOR CP   S20201
000506 41B0 FA90            00A90   793+         LA    ERREG2,EROCP3 CHAN PGM                 S20201
00050A                              794+NOSECT   DS    0H CONNECTOR                S20201
                                    795+*2305/3330 END                                                   S20201
00050A D507 4080 5000 00080 00000   796+         CLC   UCBCCW4(8),0(CCWREG) ERR IN ERP CCW4?        A63226
000510 4770 F518            00518   797+         BNE   ERFPBLD NO, SKIP                A63226
000514 5850 4088            00088   798+         L     CCWREG,UCBCSW-1 YES, PICK UP TIC ADDR @SA73886
000518                              799+ERFPBLD  DS    0H CONNECTOR               A63226
000518 47F0 F658            00658   800+         B     EREP03A GO BLD CH PGM           A63226

00051C 58A5 0000            00000   802+ERFPRT1  L     ERREG1,0(CCWREG) GET SEEK ARG
000520 D205 7031 A000 00031 00000   803+         MVC   UCBSKA+1(6),0(ERREG1) MOVE SEEK ARG TO UCB
000526 911B 5000      00000         804+         TM    0(CCWREG),HDSK IS THIS A SEEK HEAD
00052A 4155 0008            00008   805+         LA    CCWREG,8(CCWREG) UPDATE CCW PTR
00052E 4780 F4F2            004F2   806+         BZ    SHACHAN BRANCH IF SEEK CYLINDER
000532 41B0 FA68            00A68   807+         LA    ERREG2,ERPOCP2 GET RHA CHANNEL PGM
000536 47F0 F4F6            004F6   808+         B     OVFSHA GO BUILD CHANNEL PGM

                                    810+*****************************************************************
                                    811+*ERP ENTERED WITH NO ERROR
                                    812+*CAUSES
                                    813+*A.RETURN FROM ERP INITIATED CHANNEL PROG
                                    814+* 1.READ HOME ADDR,R0 - TRACK CONDITION(TRAVEL BETWEEN PRIME AND
                                    815+*                       ALTERNATE TRACKS)
                                    816+*                     - PERM ERROR TO OBTAIN INFORMATION FOR
                                    817+*                       MESSAGE AND LOG
                                    818+*                     - NO RECORD FOUND,TO VERIFY HARDWARE SEEK
                                    819+* 2.RECALIBRATE , RECALIBRATE SEEK MECHANISM-WILL BE FOLLOWED
                                    820+*                       BY A RETRY OF ORIGINAL SEQUENCE.
                                    821+*B.SUCCESSFUL COMPLETION OF A USER INITIATED CH PROG
                                    822+* 1.SUCCESSFUL RETRY,A RETRY OF USERS ENTIRE CH PRO
                                    823+* 2.SUCCESSFUL RESTART,AN ERP GENERATED CHAN PRO POSITIONS
                                    824+*                      THE DEVICE,VERIFIES THE POSITION AND
                                    825+*                      THEN RECONNECTS THE USER CHAN PRO
                                    826+*                     AT THE POINT CHAINING WAS BROKEN
                                    827+*        EXAMPLES-TRACK CONDTION,END OF CYLINDER
                                    828+* 3.SUCCESSFUL COMPLETION OF AN INTERUPTED CCW,THE ACTIONS
                                    829+*                     DESCRIBED IN 2. ARE PERFORMED. IN
                                    830+*                     ADDITION THE CCW AT WHICH ERROR OCCURRED
                                    831+*                     IS       LOGICALLY COMPLETED BY THE ERP.
                                    832+*        EXAMPLES-OVERFLOW INCOMPLETE AND FILE PROTECT (ON A
                                    833+*                 SEEK CYL OR SEEK HEAD)
00053A                              834+ERNONE   DS    0H NO ERROR
00053A 9102 2001      00001         835+         TM    IOBFL2,IOBOFLO OVERFLOW IND ON?         A33657
00053E 4780 F546            00546   836+         BZ    *+8 NO, SKIP                 A33657
000542 9601 2003      00003         837+         OI    IOBSNS+1,IOBOVF YES, SET OFLO IN SNS     A33657
                                    838+* IF RETURN FROM RECALIBRATE (RSF=1) RETRY ORIG SEQUENCE
000546 9108 2008      00008         839+         TM    IOBFL3,IOBRSF TEST IF RECALIBRATE
00054A 4780 F556            00556   840+         BZ    ERRHA2 NO,CHK FOR RHA
                                                                                                               PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00054E 4590 FA22            00A22   841+         BAL   LNKRG2,ERFLGS1 CLEAR FLAGS              A62858
000552 47F0 F66A            0066A   842+         B     RETRY

                                    844+* IF RETURN FROM A READ HOME ADDRESS (RHA=1,RSF=0) THEN
                                    845+*   IF RESTORE ORIG ERROR SENSE AND CSW,SET UP CCWREG
000556 9110 2001      00001         846+ERRHA2   TM    IOBFL2,IOBRHA CHK RHA FLAG
                                    847+*BRANCH ON SUCCESSFUL RESTART ON TRK/CYL SWITCH,EOCYL,FILE PR,TCC
                                    848+* 2305 OR 3330 OPTION                                            S20201
00055A 4710 F576            00576   849+         BO    ERRHA3 BRANCH IF RET FROM RHA   S20201
00055E 4590 FA40            00A40   850+         BAL   LNKRG2,MZTEST CHECK FOR MERLIN OR ZEUS S20201
000562 4770 F6D8            006D8   851+         BNE   ERSOFT BRANCH IF NOT            S20201
000566 9180 40B8      000B8         852+         TM    EXTCSW,OBR IS THERE AN OBR ENTRY    S20201
00056A 4780 F6D8            006D8   853+         BZ    ERSOFT BRANCH IF NO             S20201
00056E 9601 2008      00008         854+         OI    IOBFL3,IOBLOG MAKE A LOG ENTRY         S20201
000572 47F0 F6D8            006D8   855+         B     ERSOFT TO OBR                   S20201
000576                              856+ERRHA3   DS    0H CONNECTOR                S20201
000576 9524 5000      00000         857+         CLI   C0(CCWREG),RDLOG IS THIS A READ LOG       S20201
00057A 4770 F59C            0059C   858+         BNE   ERRHA4 BRANCH IF NO             S20201
00057E 94EF 2001      00001         859+         NI    IOBFL2,X'FF'-IOBRHA CLEAR RHA FLAG           S20201
000582 94FE 2000      00000         860+         NI    IOBFL1,X'FF'-IOBSRS CLEAR SRS               A57282
000586 9180 2008      00008         861+         TM    IOBFL3,IOBIN1 RESTART ADDR SAVED?     A57282
00058A 4780 F66A            0066A   862+         BZ    RETRY NO, RETRY               A57282
00058E D203 2018 409C 00018 0009C   863+         MVC   IOBRST,OFLOCCW2+4 YES, RESTORE RESTART    A57282
000594 947F 2008      00008         864+         NI    IOBFL3,X'FF'-IOBIN1 RESET IN1               A57282
000598 47F0 F672            00672   865+         B     RESTART GO RESTART              A57282
00059C                              866+ERRHA4   EQU   * CONNECTOR                S20201
                                    867+*2305/3330 END                                                   S20201
00059C 94EF 2001      00001         868+         NI    IOBFL2,X'FF'-IOBRHA CLEAR RHA FLG
                                    869+*RESTORE CONTEXT OF ORIG ERROR
0005A0 D201 2002 4087 00002 00087   870+         MVC   IOBSNS(2),UCBSSN YES,RESTORE USER CONTEXT
0005A6 D206 2009 4089 00009 00089   871+         MVC   IOBCSW+1(7),UCBCSW SENSE,CSW OF ORIG ERROR
0005AC                              872+SUBCALL  EQU   *
0005AC 4590 F9EA            009EA   873+         BAL   LNKRG2,CCWSUB GET ERR CCW PTR
                                    874+*   IF MSG OR LOG=1 GO TO TRANSIENTS OBR,STATUP,SDR
0005B0 9105 2008      00008         875+         TM    IOBFL3,IOBMSG+IOBLOG MSG OR LOG ON ERR
0005B4 4780 F5C2            005C2   876+         BZ    ERNRF2 CHECK NRF
0005B8 D203 2018 4081 00018 00081   877+         MVC   IOBRST(4),UCBRHA+1 YES MOVE CCHH TO IOB(LOG)
0005BE 47F0 F682            00682   878+         B     ERHARD HARD ERR RETURN MSG,LOG

                                    880+*   IF NRF=1 AND IF CC OF HOME ADDR (NOW IN UCB WK AR)=CC OF SEEK
                                    881+*   ADDR.
                                    882+*     IF YES PERM ERR ON USER
                                    883+*     IF NO,THEN NRF REFLECTS A SEEK CHK,TREAT IT AS SUCH
0005C2 9120 2008      00008         884+ERNRF2   TM    IOBFL3,IOBNRF CHECK NO REC FOUND
0005C6 4780 F5E4            005E4   885+         BZ    ERTCC2 NO,CHK TRK COND CHK
0005CA D502 4081 7033 00081 00033   886+         CLC   UCBRHA+1(3),UCBSKA+3 HA CCH=CCH OF SEEK ARG   S20201
0005D0 4780 F682            00682   887+         BE    ERHARD YES, USER NO REC FND
0005D4 94F7 2003      00003         888+         NI    IOBSNS+1,X'FF'-SNSNRF CLEAR NRF IN IOBSNS
0005D8 9601 2002      00002         889+         OI    IOBSNS,IOBSKCK NO,SET SEEK CHK
0005DC 9601 8000      00000         890+         OI    UCBSNS,IOBSKCK SET UCBSNS FOR STAT
0005E0 47F0 F02E            0002E   891+         B     ERSTUP BACK THRU ERP

                                    893+*   IF RHA=1,MSG=LOG=NRF=0 THEN MUST BE TRACK CONDITION
                                    894+*     R0 CONTAINS POINTER TO ALT OR PRIME
0005E4 D203 7033 407C 00033 0007C   895+ERTCC2   MVC   UCBSKA+3(4),UCBRR0 BAD OR ALT TRK,SET SEEK
                                                                                                               PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0005EA 9102 4080      00080         896+         TM    UCBRHA,TRKBAD TEST BAD TRK
0005EE 4710 F5FE            005FE   897+         BO    TCCBAD BRANCH IF CAUSED BY A BAD TRK
0005F2 4590 F8CA            008CA   898+         BAL   LNKRG2,ERCHUDT INCREMENT PAST ORIGIONAL BAD TK
                                    899+*                                       IF THE TCC WAS CAUSED AT END
                                    900+*                                       OF AN ALTERNATE TRACK
0005F6 94F7 2001      00001         901+         NI    IOBFL2,X'FF'-IOBNET CLEAR NO EXTENT TEST     A62858
0005FA 47F0 F602            00602   902+         B     *+8 SKIP FLAG SET FOR BAD TRACK
0005FE 9608 2001      00001         903+TCCBAD   OI    IOBFL2,IOBNET SET NO EXTENT CK FOR ALT SEEK
000602 41B0 FA58            00A58   904+TCCREPO  LA    ERREG2,ERPOCP1 ADDR OF REPOSITION CHANNEL PGM
                                    905+* OVERFLOW OPTION
000606 45D0 F76E            0076E   906+         BAL   LINKRG1,OVFLCHK GO CHECK FOR OVERFLOW
                                    907+*OVERFLOW END
00060A 47F0 F658            00658   908+         B     EREP03A BLD CHAN PGM AND RESTART
                                    909+*****************************************************************
                                    910+* 2305 OR 3330 OPTION                                            S20201
00060E                              911+FLAGCK   DS    0H CONNECTOR                S20201
                                    912+* 3330 OPTION                                                    S20201
00060E 9110 8002      00002         913+         TM    USNS2,LOGSNS IS THIS A MERLIN COUNTER S20201
000612 4780 F61A            0061A   914+         BZ    NOTMER BRANCH IF NO             S20201
000616 47F0 F66A            0066A   915+PACKCNG  B     RETRY RESTART USERS CH PGM     S20201
                                    916+*3330 END                                                        S20201
                                    917+*                                                                S20201
00061A                              918+NOTMER   EQU   *
00061A 9610 2001      00001         919+MSGLOGA  OI    IOBFL2,IOBRHA USE SEEK ADDR IN MSG
00061E 9601 2008      00008         920+MSGLOG   OI    IOBFL3,IOBLOG
000622 9604 2008      00008         921+MSG      OI    IOBFL3,IOBMSG SET MSG AND LOG FLAGS
                                    922+* 2305 OR 3330 OPTION                                            S20201
000626 4590 FA40            00A40   923+         BAL   LNKRG2,MZTEST CHECK FOR MERLIN OR ZEUS S20201
00062A 4780 F636            00636   924+         BE    SEKCCH BRANCH IF MERLIN/ZEUS    S20201
                                    925+*2305/3330 END                                                   S20201
00062E 9110 2001      00001         926+         TM    IOBFL2,IOBRHA IS THIS A READ HA FOR A HA ERR
000632 4780 F640            00640   927+         BZ    ERRHAB BRANCH IF NO
000636                              928+SEKCCH   DS    0H CONNECTOR                S20201
000636 D203 2018 7033 00018 00033   929+         MVC   IOBRST(4),UCBSKA+3 USE LAST SEEK FOR CCHH
00063C 47F0 F682            00682   930+         B     ERHARD HARD ERROR
                                    931+*****************************************************************
                                    932+*SET UP TO READ HOME ADDRESS AND R0
000640 9610 2001      00001         933+ERRHAB   OI    IOBFL2,IOBRHA SET READ HA FLAG
000644 41B0 FA70            00A70   934+         LA    ERREG2,ERRHAP GET READ HA CCW
000648 47F0 F658            00658   935+         B     EREP03A BLD CHAN PGM AND RESTART
                                    936+*
                                    937+*****************************************************************

                                    939+*****************************************************************
                                    940+*RECALIBRATE IS ALWAYS FOLLOWED BY A RETRY OF USER STRING
00064C                              941+ERRECAL  DS    0H BUILD RECALIBRATE CH PRO
00064C 41B0 FA80            00A80   942+         LA    ERREG2,ERRCLCP ADDR RECAL SKELETON
000650 9608 2008      00008         943+RSFSET   OI    IOBFL3,IOBRSF SET RECALIBRATE FLAG     S20201
000654                              944+ERRECLB  DS    0H CONNECTOR
000654                              945+ERRECLA  DS    0H CONNECT
000654 9610 2001      00001         946+         OI    IOBFL2,IOBRHA SET HA FLAG
                                    947+*****************************************************************
000658 41D0 F672            00672   948+EREP03A  LA    LINKRG1,RESTART FORCE RETURN TO RESTART
00065C                              949+EREP03   DS    0H FINISH CH PRO
00065C 41C0 4068            00068   950+         LA    ERCCWR,UCBCCW1 CH PRO (TO) ADDR
                                                                                                               PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000660 4590 F86E            0086E   951+         BAL   LNKRG2,ERCPBLD BUILD CH PRO
000664 4590 F8A6            008A6   952+         BAL   LNKRG2,ERTICBD BUILD TIC
000668 07FD                         953+         BR    LINKRG1 RETURN TO CALLING ROUTINE
                                    954+*****************************************************************
00066A 9110 2001      00001         955+RETRY    TM    IOBFL2,IOBRHA ERP CHANNEL PROGRAM
00066E 4780 F676            00676   956+         BZ    *+8 NO, SKIP SRS SET
000672 9601 2000      00000         957+RESTART  OI    IOBFL1,IOBSRS SET RESTART FLAG ON
000676 9848 FAF0            00AF0   958+         LM    DCBREG,SNSREG,ERSAV RESTORE REGS 4 -8        S20201
00067A 9604 2001      00001         959+         OI    IOBFL2,IOBPREV INDICATE ON RETURN THAT ERP
                                    960+*                                       WAS ENTERED
00067E 1B99                         961+         SR    9,9 IOS EXPECTS ZERO IN THIS REG
000680 07FE                         962+         BR    ERRETR RETURN+0 RETRY OR RESTART CCW
                                    963+*****************************************************************

                                    965+*****************************************************************
                                    966+*ERHARD HARD ERROR,DETERMINE IF MSG,LOG TO BE GIVEN
                                    967+*  YES,CHK IF ERR ON ERROR TASK
                                    968+*    YES,DO NOT GIVE MSG,LOG, TAKE (+4) EXIT
                                    969+*    NO,GIVE MSG,LOG
                                    970+*  NO,DO NOT GIVE MSG,LOG(+4) EXIT
000682 94DF 2000      00000         971+ERHARD   NI    IOBFL1,X'FF'-IOBERR HARD ERR,CLR ERR FLG
000686 4590 F9F4            009F4   972+         BAL   LNKRG2,ERFLGS0 CLEAR FLAGS
                                    973+* DDR OPTION
000000                              974+         USING RMSTABLE,RMSREG A32176
00068A 9102 7003      00003         975+         TM    UCBSTA,UCBSYS IS THIS SYSRES
00068E 4780 F696            00696   976+         BZ    DDRCHK NO, SKIP SYSRES CODE
000692 47F0 F6C4            006C4   977+         B     LOGCHK PERM ERR                 A32176
000696 58A0 6074            00074   978+DDRCHK   L     RMSREG,CVTLOG GET LOGREC DCB POINTER
00069A 58AA 0000            00000   979+         L     RMSREG,0(RMSREG) FIRST WORD IS RMS TABLE PTR
00069E 9110 A014      00014         980+         TM    RMSTATUS,USEDDR IS DDR TO BE USED
0006A2 4780 F6C4            006C4   981+         BZ    LOGCHK NO, SKIP DDR CODE        A32176
0006A6 4590 F96E            0096E   982+         BAL   LNKRG2,ERSTPTR LOGABLE ERR ?            A32176
0006AA 4780 F710            00710   983+         BE    ERHARD1 NO                       A32176
0006AE 9101 2008      00008         984+         TM    IOBFL3,IOBLOG LOGABLE & PERMANENT      A32176
0006B2 4780 F6CC            006CC   985+         BZ    SETRHA NO                       A32176
0006B6 9610 2001      00001         986+DDRTN    OI    IOBFL2,IOBRHA SET RHA                  A40851
0006BA 9848 FAF0            00AF0   987+         LM    DCBREG,SNSREG,ERSAV RESTORE REGS 4-8         A40851
0006BE 1B99                         988+         SR    9,9 IOS EXPECTS  ZERO IN 9
0006C0 47FE 0010            00010   989+         B     16(ERRETR) GO TO DDR ROUTINE
                                    990+*DDR END
                                    991+*
0006C4 4590 F96E            0096E   992+LOGCHK   BAL   LNKRG2,ERSTPTR LOGABLE ERROR
0006C8 4780 F710            00710   993+         BE    ERHARD1 NO
0006CC 4590 F6FC            006FC   994+SETRHA   BAL   LNKRG2,FETCHK FETCH OR OBR = NO RETURN
0006D0 9610 2001      00001         995+         OI    IOBFL2,IOBRHA SET RHA(INDICATE D/A WTO)
0006D4 47F0 F6F2            006F2   996+         B     ERXCTL XCTL TO WTO

                                    998+*****************************************************************
                                    999+*ERSOFT- DETERMINE IF STATUP SHOULD BE CALLED,IF NOT SOFT ERR
                                   1000+* EXIT WITHOUT STATUP,-IF STATUP SHOULD BE CALLED CHECK THAT
                                   1001+* ERROR NOT AGAINST ERROR TASK-IF ERROR TASK DO NOT GO TO STATUP.
0006D8 94DB 2000      00000        1002+ERSOFT   NI    IOBFL1,X'FF'-IOBEX-IOBERR SOFT ERROR
0006DC 4590 F9F4            009F4  1003+         BAL   LNKRG2,ERFLGS0 CLEAR FLAGS
0006E0 4590 F96E            0096E  1004+         BAL   LNKRG2,ERSTPTR CHECK IF LOGABLE ERROR
0006E4 4780 F710            00710  1005+         BE    ERHARD1 THE STATISTICS COUNTERS DO NOT
                                                                                                               PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1006+*                                       NEED TO BE UPDATED
0006E8 4590 F6FC            006FC  1007+         BAL   LNKRG2,FETCHK FETCH OR OBR = NO RETURN
0006EC D401 201E FB2A 0001E 00B2A  1008+ERSOFT1  NC    IOBCNT(2),ERRCLR CLR ERROR COUNTS         A36382
0006F2 9848 FAF0            00AF0  1009+ERXCTL   LM    DCBREG,SNSREG,ERSAV RESTORE REGS 4 -8        S20201
0006F6 1B99                        1010+         SR    9,9 IOS EXPECTS ZERO IN THIS REG
0006F8 47FE 0008            00008  1011+         B     8(ERRETR) XCTL TO IGE00A & WTO/STATUP
                                   1012+*****************************************************************

                                   1014+*FETCHK  BYPASSES TRANSIENT ROUTINE FOR ERRORS ON FETCH OR OBR
0006FC D502 6055 2015 00055 00015  1015+FETCHK   CLC   CVTDCB+1(3),IOBDCB+1 FETCH
000702 4780 F710            00710  1016+         BE    ERHARD1 YES
000706 4133 0000            00000  1017+         LA    DEBREG,0(DEBREG) CLEAR HI ORDER BYTE
00070A 5530 FB24            00B24  1018+         CL    DEBREG,OBRDEB OBR'S DEB
00070E 0779                        1019+         BCR   7,LNKRG2 NO, RETURN TO CALLER
000710 9200 2008      00008        1020+ERHARD1  MVI   IOBFL3,IOCLBT HARD ERR NO MSG NOR LOG
000714 9848 FAF0            00AF0  1021+         LM    DCBREG,SNSREG,ERSAV RESTORE REGS 4 -8        S20201
000718 1B99                        1022+         SR    9,9 IOS EXPECTS ZERO IN THIS REG
00071A 47FE 0004            00004  1023+         B     4(ERRETR) RETURN+4 PERM ERROR NO MSG/LOG
                                   1024+*****************************************************************

                                   1026+* CCH OPTION
00071E 58A0 6074            00074  1027+ERASR0   L     ERREG1,CVTLOG GET LOGREC DCB
000722 58AA 0000            00000  1028+         L     ERREG1,0(ERREG1) PICK UP CCH PARM PTR
000726 58AA 0000            00000  1029+         L     ERREG1,0(ERREG1) PICK UP PARM
00072A 95FF A000      00000        1030+ERASR1   CLI   0(ERREG1),CCHDELMT IS THIS LAST
00072E 078D                        1031+         BCR   8,LINKRG1 RETURN IF NO ERPIB FOUND
000730 D501 1002 A002 00002 00002  1032+         CLC   2(2,TSTREG),2(ERREG1) PARM=THIS UCB
000736 4780 F742            00742  1033+         BE    ERASR2 YES
00073A 41AA 0008            00008  1034+         LA    ERREG1,TABLELGN(ERREG1) NO,GET NEXT
00073E 47F0 F72A            0072A  1035+         B     ERASR1 CONTINUE SCAN

000742 9101 A004      00004        1037+ERASR2   TM    ERPIBFLG(ERREG1),NORETRY TEST IF RETRY NOT
000746 9200 A000      00000        1038+         MVI   0(ERREG1),X'00' CLEAR ERPIB AREA
00074A D206 A001 A000 00001 00000  1039+         MVC   1(7,ERREG1),0(ERREG1)
000750 4710 F756            00756  1040+         BO    ERASR3 BRANCH IF NOT RETRYABLE
000754 12DD                        1041+         LTR   LINKRG1,LINKRG1 SET COND CODE 2  RETRYABLE ERR
000756 07FD                        1042+ERASR3   BR    LINKRG1 RETURN
                                   1043+*CCH END
                                   1044+*****************************************************************
000758 910A 201F      0001F        1045+INCR10   TM    IOBCNT+1,10 IS RETRY COUNT EQUAL TO 10
00075C 4710 F61E            0061E  1046+         BO    MSGLOG BRANCH IF COUNT IS 10
000760 43A0 201F            0001F  1047+         IC    WORK,IOBCNT+1 GET TEN COUNTER
000764 41AA 0001            00001  1048+         LA    WORK,1(WORK) INCREMENT COUNT
000768 42A0 201F            0001F  1049+         STC   WORK,IOBCNT+1 STORE UPDATED COUNT
00076C 07FD                        1050+         BR    LINKRG1 RETURN IF COUNTER NOT FULL
                                   1051+*****************************************************************
                                   1052+* OVERFLOW OPTION
00076E 9101 2003      00003        1053+OVFLCHK  TM    IOBSNS+1,IOBOVF TEST FOR OVERFLOW
000772 4710 F78A            0078A  1054+         BO    OVFC YES,OVERFLOW
000776 41C0 4090            00090  1055+         LA    ERCCWR,OFLOCCW1 GET ADD OF ERP CH PGM  @SA76342
00077A 19C5                        1056+         CR    ERCCWR,CCWREG LAST SEG?              @SA76342
00077C 4770 F788            00788  1057+         BNE   RETURN7 NO, RETURN               A32176
000780 5050 2018            00018  1058+         ST    CCWREG,IOBRST SET RESTART ADDR
000784 47F0 F672            00672  1059+         B     RESTART GO RESTART               A32176
000788 07FD                        1060+RETURN7  BR    LINKRG1 NO OVERFLOW RETURN TO CALLER
                                                                                                               PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1062+*****************************************************************
                                   1063+*OVERFLOW INCOMPLETE
                                   1064+* CAUSED BY
                                   1065+* 1.FILE PROTECT INTERUPT DURING OVERFLOW RECORD READ
                                   1066+* 2.END OF CYLINDER   *DITTO*
                                   1067+* 3.TRK COND CHK      *DITTO*
                                   1068+*RECOVERY-
                                   1069+* BUILD REPOSITION CHANNEL PROG (SEARCH ID REC 1 NEXT SEGMENT)
                                   1070+* BUILD CCW TO COMPLETE USERS INTERUPTED COMMAND
                                   1071+* BUILD TIC BACK TO USER'S  STRING AT ERRCCW +8
                                   1072+* THIS SECTION HANDLES RECOVERY FOR SEARCH KEY AND DATA(SCAN)
00078A 9102 2002      00002        1073+OVFC     TM    IOBSNS,IOBTKC CHK IF TRK COND W/ OVERFL
00078E 4780 F79A            0079A  1074+         BZ    OVFA NO,SKIP NEXT TEST
000792 9102 4080      00080        1075+         TM    UCBRHA,TRKBAD TEST FOR BAD TRACK TO ALT
000796 4710 F7A0            007A0  1076+         BO    OVFB YES,USE HA AS SEARCH ARG
00079A D203 4081 7033 00081 00033  1077+OVFA     MVC   UCBRHA+1(4),UCBSKA+3 USE SEEK ADDR FOR SRCHARG
0007A0                             1078+OVFB     DS    0H
0007A0 9602 2001      00001        1079+         OI    IOBFL2,IOBOFLO SET OVERFLOW IND         A33657
0007A4 9201 4085      00085        1080+         MVI   UCBRHA+5,X'01' 'R' OF CCHHR = 1
0007A8 41C0 4090            00090  1081+         LA    ERCCWR,OFLOCCW1 GET ADD OF ERP CH PGM  @SA76342
0007AC 41B0 40A0            000A0  1082+         LA    ERREG2,OFLOCCW3 GET ADD OF ERP CH PGM  @SA76342
0007B0 19B5                        1083+         CR    ERREG2,CCWREG ERP CH PGM?            @SA76342
0007B2 4780 F810            00810  1084+         BE    EROVF3 YES,FO OVFL CCW3 ONLY
0007B6 41B0 FAC8            00AC8  1085+         LA    ERREG2,OFLCP OFLCP IN OVF AREA
                                   1086+* 2305 OR 3330 OPTION                                            S20201
0007BA 4590 FA40            00A40  1087+         BAL   LNKRG2,MZTEST CHECK FOR MERLIN OR ZEUS S20201
0007BE 4770 F7C6            007C6  1088+         BNE   BUILDIT BRANCH IF NO             S20201
0007C2 92A4 FAE5      00AE5        1089+         MVI   OFLEND4,ERREG1*16+UCBRG2 END CHANNEL PGM ON CCW 4 S20201
0007C6 4590 F86E            0086E  1090+BUILDIT  BAL   LNKRG2,ERCPBLD DO IT                    S20201
0007CA 9204 FAE5      00AE5        1091+         MVI   OFLEND4,UCBRG2 RESTORE CHANNEL PGM      S20201
                                   1092+*2305/3330 END                                                   S20201
0007CE 5050 40B4            000B4  1093+         ST    CCWREG,OFLOCCW5+4 SAVE ERR CCW POINTER
0007D2 41A0 0002            00002  1094+         LA    ERREG1,2 SET UP COUNTER
0007D6 41C0 40A0            000A0  1095+         LA    ERCCWR,OFLOCCW3 SET BLD REG
0007DA 4155 0008            00008  1096+EROVF1   LA    CCWREG,8(CCWREG) NEXT CCW
0007DE 41CC 0008            00008  1097+         LA    ERCCWR,8(ERCCWR) UPDATE BLD REG
                                   1098+* TEST IF CMD=TIC
0007E2 9107 5000      00000        1099+         TM    0(CCWREG),CMDFSK A45276
0007E6 4770 F7FC            007FC  1100+         BNE   EROVF1A NO,CONSTRUCT TIC TO USER
0007EA 9108 5000      00000        1101+         TM    0(CCWREG),CMDTIC SA68579
0007EE 4780 F7FC            007FC  1102+         BZ    EROVF1A NO, SKIP                SA68579
0007F2 D502 40B5 5001 000B5 00001  1103+         CLC   OFLOCCW5+5(3),1(CCWREG) NXT CCW POINTS AT ERR CCW
0007F8 4780 F800            00800  1104+         BE    EROVF2 YES SKIP TIC BUILD
0007FC                             1105+EROVF1A  DS    0H
0007FC 4590 F8A6            008A6  1106+         BAL   LNKRG2,ERTICBD NO,BUILD TIC TO USER
000800                             1107+EROVF2   DS    0H
                                   1108+* 2305 OR 3330 OPTION                                            S20201
000800 4590 FA40            00A40  1109+         BAL   LNKRG2,MZTEST CHECK FOR ZEUS           S20201
000804 4780 F80C            0080C  1110+         BE    EROVF2A BRANCH IF YES            S20201
                                   1111+*2305/3330 END                                                   S20201
000808 46A0 F7DA            007DA  1112+         BCT   ERREG1,EROVF1 BACK TO SECOND POSITION
00080C 5850 40B4            000B4  1113+EROVF2A  L     CCWREG,OFLOCCW5+4 RESTORE CCWREG TO ERRCCW S20201
000810                             1114+EROVF3   DS    0H SET UP RECOVER CCW
000810 48B5 0006            00006  1115+         LH    ERREG2,6(CCWREG) GET ERRCCW COUNT
000814 48A0 200E            0000E  1116+         LH    ERREG1,IOBCSW+6 LOAD RESID COUNT
                                                                                                               PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000818 1FBA                        1117+         SLR   ERREG2,ERREG1 CCWCNT-RESIDUAL
00081A 54B0 FB14            00B14  1118+         N     ERREG2,ZERO CLEAR UPPER 2 BYTES
00081E 5EB5 0000            00000  1119+         AL    ERREG2,0(CCWREG) ADD DATA ADDR+CNT-RESID
000822 50B0 40A0            000A0  1120+EROVF3A  ST    ERREG2,OFLOCCW3 SAVE NEW DATA ADDR       S20201
000826 D200 40A0 8005 000A0 00005  1121+         MVC   OFLOCCW3(1),USNS5 SET CU GENERATED CMD     S20201
                                   1122+* 2305 OR 3330 OPTION                                            S20201
00082C 4590 FA40            00A40  1123+         BAL   LNKRG2,MZTEST CHECK FOR 2305/2330      S20201
000830 4770 F83A            0083A  1124+         BNE   USECMD NO                       S20201
000834 D200 40A0 8003 000A0 00003  1125+         MVC   OFLOCCW3(1),RSTCMD SET CMD CODE             S20201
00083A                             1126+USECMD   DS    0H CONNECTOR                S20201
                                   1127+*2305/3330 END                                                   S20201
00083A D200 40A4 5004 000A4 00004  1128+         MVC   OFLOCCW3+4(1),4(CCWREG) COPY FLGS FROM ERRCCW    A32176
000840 9121 5000      00000        1129+         TM    0(CCWREG),SEARCH SEARCH TYPE CMD?        SA78212
000844 4710 F858            00858  1130+         BO    EROVF3B YES, SET CNT,SKIP =1    SA78212
000848 D201 40A6 200E 000A6 0000E  1131+         MVC   OFLOCCW3+6(2),IOBCSW+6 COUNT=RESID              A32176
00084E D501 200E FB14 0000E 00B14  1132+         CLC   IOBCSW+6(2),ZERO TEST RESID=0             A32176
000854 4770 F860            00860  1133+         BNE   EROVF4 NO, NORMAL               A32176
000858                             1134+EROVF3B  DS    0H SA78212
000858 9201 40A7      000A7        1135+         MVI   OFLOCCW3+7,X'01' SET CNT TO 1             A32176
00085C 9610 40A4      000A4        1136+         OI    OFLOCCW3+4,SKIP SET SKIP BIT             A32176
000860                             1137+EROVF4   DS    0H CONNECTOR                S20201
000860 41C0 4090            00090  1138+         LA    ERCCWR,OFLOCCW1 POINT AT OFLOCCW1        S20201
000864 50C0 2018            00018  1139+         ST    ERCCWR,IOBRST STORE IN RESTART ADDR FLD
000868 47F0 F672            00672  1140+         B     RESTART GO RESTART               A32176

                                   1142+*****************************************************************
                                   1143+*OVERFLOW END

                                   1145+*ERCPBLD SETS UP A CHANNEL PROGRAM FOR EXECUTION
                                   1146+*ERREG2 IS THE SOURCE REG POINTING AT THE PROTOTYPE CH PRO
                                   1147+*ERCCWR IS THE TARGET (WHERE TO PUT IT)
                                   1148+*THE 5TH BYTE OF EACH PROTOTYPE CCW CONTAINS CONTROL INFORMATION
                                   1149+*  A.WHETHER TO RELOCATE THE CCW AND ITS ARGUMENT ADDR.
                                   1150+*  B.HOW TO RELOCATE IT
                                   1151+*  C.END OF CHANNEL PROGRAM
                                   1152+* ERROR SENSE AND CSW ARE SAVED,APPROPRIATE FLAGS AND ADDR.S SET
00086C 18A0                        1153+ERELOC   LR    ERREG1,0 ERREG1=PROPER BASE REG
00086E                             1154+ERCPBLD  DS    0H BUILD CH PRO
00086E 50C0 2018            00018  1155+         ST    ERCCWR,IOBRST SAVE RESTART ADDR
000872 D201 4087 2002 00087 00002  1156+         MVC   UCBSSN(2),IOBSNS SAVE PREVIOUS SENSE      S20201
000878 D206 4089 2009 00089 00009  1157+         MVC   UCBCSW(7),IOBCSW+1 SAVE CSW                 S20201
00087E 43AB 0005            00005  1158+ERCPB2   IC    ERREG1,5(ERREG2) PICK UP RELOCATE REG
000882 44A0 F86C            0086C  1159+         EX    ERREG1,ERELOC LOAD PROPER BASE TO RELOC
000886 5EAB 0000            00000  1160+         AL    ERREG1,0(ERREG2) ADD DISPL AND CMDCODE
00088A 50AC 0000            00000  1161+         ST    ERREG1,0(ERCCWR) PUT
00088E D203 C004 B004 00004 00004  1162+         MVC   4(4,ERCCWR),4(ERREG2) MOVE 2ND HALF
000894 91A0 B005      00005        1163+         TM    5(ERREG2),ERREG1*16 TERMINATOR CHECK
000898 41BB 0008            00008  1164+         LA    ERREG2,8(ERREG2) INCREMENT(FROM)LOC
00089C 41CC 0008            00008  1165+         LA    ERCCWR,8(ERCCWR) INCREMENT(TO)LOC
0008A0 47E0 F87E            0087E  1166+         BNO   ERCPB2 CONTINUE BUILDING
0008A4 07F9                        1167+         BR    LNKRG2 EXIT

                                   1169+*****************************************************************
                                   1170+*ERTICBD BUILDS A TIC IN UCB WK AR CONNECTING ERP CH PRO WITH
                                   1171+*   REMAINDER OF USER CH PRO (IT RESOLVES TIC TO TIC PROBLEMS)
                                                                                                               PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0008A6                             1172+ERTICBD  DS    0H BUILD TIC TO USER CH PRO
0008A6 9110 2001      00001        1173+         TM    IOBFL2,IOBRHA TEST IF ERP FUNCTION
0008AA 0719                        1174+         BCR   ONES,LNKRG2 YES NO TIC TO USER
0008AC D203 C000 5000 00000 00000  1175+         MVC   0(4,ERCCWR),0(CCWREG) MOVE IN USER CMD
                                   1176+* TEST IF CMD=TIC
0008B2 9108 5000      00000        1177+         TM    0(CCWREG),CMDTIC SA68579
0008B6 4780 F8C0            008C0  1178+         BZ    NOTIC1 NO, SKIP                SA68579
0008BA 9107 5000      00000        1179+         TM    0(CCWREG),CMDFSK A45276
0008BE 0789                        1180+         BCR   EQ,LNKRG2 YES,EXIT
0008C0                             1181+NOTIC1   DS    0H CONNECTOR               SA68579
0008C0 505C 0000            00000  1182+         ST    CCWREG,0(ERCCWR) STORE CCWREG
0008C4 9208 C000      00000        1183+         MVI   0(ERCCWR),CMDTIC SET TIC CMD
0008C8 07F9                        1184+         BR    LNKRG2 RETURN

                                   1186+*****************************************************************
                                   1187+*ERCHUDT UPDATES CYL AND HEAD ADDR IN UCB WITHIN LIMITS OF EITHER
                                   1188+*   DEB EXTENTS IF SPLIT CYL OR DEV EXTENTS IF NOT
0008CA                             1189+ERCHUDT  DS    0H UPDATE SEEK ADDR CCHH
0008CA 58B0 6040            00040  1190+         L     ERREG2,CVTDTAB DEVICE TABLE ADDR        S20201
0008CE 1BCC                        1191+         SR    ERREG3,ERREG3 CLEAR                    S20201
0008D0 43C0 7013            00013  1192+         IC    ERREG3,UCBUTB DEVICE CHAR INDEX INDEX  S20201
0008D4 43CC B000            00000  1193+         IC    ERREG3,0(ERREG3,ERREG2) DEVICE CHAR INDEX        S20201
0008D8 41BB C000            00000  1194+         LA    ERREG2,0(ERREG2,ERREG3) POINT AT DEVICE CH&R ENT S20201
0008DC D203 FB1C B000 00B1C 00000  1195+         MVC   TRKLIM,0(ERREG2) MOVE CCHH CHAR'S TO TRKL S20201
                                   1196+* 3330 OPTION                                                    S20201
0008E2 9509 7013      00013        1197+         CLI   UCBUTB,MERLIN MERLIN DEVICE            S20201
0008E6 4770 F8F0            008F0  1198+         BNE   CNTSET NO                       S20201
0008EA D201 FB1C FB16 00B1C 00B16  1199+         MVC   TRKLIM(2),FOXFOX FORCE CYLS HIGH          S20201
0008F0                             1200+CNTSET   DS    0H CONNECTOR                S20201
                                   1201+*3330 END                                                        S20201
0008F0 41A0 0004            00004  1202+         LA    ERREG1,UPCNT SET CNT                  S20201
0008F4 9104 3008      00008        1203+         TM    DEBOPFL,DEBSCA SPLIT CYL                S20201
0008F8 4780 F912            00912  1204+         BZ    TRKINC NO, INCR TRK ADDR        S20201
0008FC 45C0 FA30            00A30  1205+         BAL   ERREG3,ERXTPTR POINT AT EXTENT          S20201
000900 D500 7036 B00D 00036 0000D  1206+         CLC   UCBSKA+6(1),DEBEND+3(ERREG2) HD AT LIMIT         S20201
000906 4740 F912            00912  1207+         BL    TRKINC NO, INCR HD              S20201
00090A D200 7036 B009 00036 00009  1208+         MVC   UCBSKA+6(1),DEBST+3(ERREG2) YES, SET HD TO STAR S20201
000910 06A0                        1209+         BCTR  ERREG1,0 DECREMENT CNT            S20201
000912                             1210+TRKINC   DS    0H INCREMENT TRACK          S20201
000912 43BA 7032            00032  1211+         IC    ERREG2,UCBSKA+2(ERREG1) FETCH                    S20201
000916 41BB 0001            00001  1212+         LA    ERREG2,1(ERREG2) INCREMENT                S20201
00091A 42BA 7032            00032  1213+         STC   ERREG2,UCBSKA+2(ERREG1) STORE NEW SEEK ADDR      S20201
                                   1214+* ** STORE CHAR IN 'I' PORTION OF INST CMPRE ** *                S20201
00091E 42B0 F93F            0093F  1215+         STC   ERREG2,CMPRE+1 SET UP COMPARE           S20201
000922 41BA FB1B            00B1B  1216+         LA    ERREG2,TRKLIM-1(ERREG1) ACCESS BASE              S20201
                                   1217+* 3330 OPTION                                                    S20201
000926 9509 7013      00013        1218+         CLI   UCBUTB,MERLIN MERLIN DEVICE            S20201
00092A 4770 F93E            0093E  1219+         BNE   CMPRE NO                       S20201
00092E 9500 F93F      0093F        1220+         CLI   CMPRE+1,0 BYTE OFLO                S20201
000932 4780 F94C            0094C  1221+         BE    CNTDN YES, NEXT BYTE           S20201
000936 95FF F93F      0093F        1222+         CLI   CMPRE+1,X'FF' MAX FOR BYTE             S20201
00093A 4780 F956            00956  1223+         BE    CHUOUT YES                      S20201
                                   1224+*3330 END                                                        S20201
00093E                             1225+CMPRE    DS    0H S20201
00093E 9500 B000      00000        1226+         CLI   0(ERREG2),0 SEEK ADDR G/T DEVICE LIM S20201
                                                                                                               PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000942 4720 F956            00956  1227+         BH    CHUOUT NO, DONE                 S20201
000946 1BBB                        1228+         SR    ERREG2,ERREG2 CLEAR                    S20201
000948 42BA 7032            00032  1229+         STC   ERREG2,UCBSKA+2(ERREG1) RESET TO ZERO            S20201
00094C                             1230+CNTDN    DS    0H DECREMENT COUNT          S20201
00094C 46A0 F912            00912  1231+         BCT   ERREG1,TRKINC NEXT FIELD               S20201
000950 D203 7033 FB1C 00033 00B1C  1232+         MVC   UCBSKA+3(4),TRKLIM DEVICE LIMIT EXCEDED      A39252
000956                             1233+CHUOUT   DS    0H CHECK EXTENTS            S20201
000956 45C0 FA30            00A30  1234+         BAL   ERREG3,ERXTPTR POINT AT EXTENT          S20201
00095A 94F7 2001      00001        1235+         NI    IOBFL2,X'FF'-IOBNET CLR NO-XTENT FLAG      @SA73886
00095E D503 7033 B00A 00033 0000A  1236+         CLC   UCBSKA+3(4),DEBEND(ERREG2) OUT OF EXTENT       S20201
000964 4720 F96C            0096C  1237+         BH    CHUDONE YES, RTRN W/COND CODE    S20201
000968 4BA0 FA8E            00A8E  1238+         SH    ERREG1,FOUR SET COND CODE            S20201
00096C                             1239+CHUDONE  DS    0H UPDATE COMPLETE          S20201
00096C 07F9                        1240+         BR    LNKRG2 RTRN W/COND CODE         S20201
                                   1241+*****************************************************************
                                   1242+*ERSTPTR COMPUTES LOCATION OF STATAB AND RETURNS POINTER (ERREG2)
                                   1243+*   TO CALLING ROUTINE. ALSO IT CHECKS IF STATAB WORK AREA OR IOB
                                   1244+*   ERR COUNTS =ZERO AND RETURNS THE CONDITION CODE AS INDICATOR
                                   1245+*   WHETHER TO GO TO STAT UPDATE.
00096E                             1246+ERSTPTR  DS    0H FORM PTR TO STATAB(ERREG2)
                                   1247+* 2305 OR 3330 OPTION                                            S20201
00096E 5090 FB10            00B10  1248+         ST    LNKRG2,RGSAV SAVE REG                 S20201
000972 4590 FA40            00A40  1249+         BAL   LNKRG2,MZTEST CHECK FOR MERLIN OR ZEUS S20201
000976 5890 FB10            00B10  1250+         L     LNKRG2,RGSAV RESTORE REG              S20201
00097A 4770 F98E            0098E  1251+         BNE   ERSTPTRA NO, SKIP M/Z CODE        S20201
00097E 9180 40B8      000B8        1252+         TM    EXTCSW,OBR IS THERE AN OBR ENTRY    S20201
000982 9200 40B8      000B8        1253+         MVI   EXTCSW,0 CLEAR LOG FLAG           S20201
000986 0719                        1254+         BCR   ONES,LNKRG2 YES,RETURN               S20201
000988 9104 2008      00008        1255+         TM    IOBFL3,IOBMSG MSG NEEDED?              A53829
00098C 07F9                        1256+         BR    LNKRG2 RETURN WITH COND CODE    S20201
00098E                             1257+ERSTPTRA DS    0H CONNECTOR                S20201
                                   1258+*2305/3330 END                                                   S20201
00098E 58A0 6070            00070  1259+         L     ERREG1,STATAB GET STATAB ADDR
000992 1BBB                        1260+         SR    ERREG2,ERREG2 CLEAR 2
000994 43B0 7009            00009  1261+         IC    ERREG2,UCBSTI INDEX
000998 497A 0000            00000  1262+ERSTPT1  CH    UCBREG,0(ERREG1) CURRENT UCB IN RANGE
00099C 4740 F9AC            009AC  1263+         BL    ERSTPT2 YES,CONTINUE
0009A0 41AA 0002            00002  1264+         LA    ERREG1,2(ERREG1) NO,INC STATAB LOOK-UP
0009A4 41BB 0100            00100  1265+         LA    ERREG2,256(ERREG2) INC INDEX
0009A8 47F0 F998            00998  1266+         B     ERSTPT1 GO TO NEXT

0009AC                             1268+ERSTPT2  DS    0H
                                   1269+* 2314 OPTION
0009AC 9508 7013      00013        1270+         CLI   UCBUTB,DE2314 DEV=2314
0009B0 4770 F9D2            009D2  1271+         BNE   ERSTPT3 NO,TAKE NORM
0009B4 1BAA                        1272+         SR    ERREG1,ERREG1 YES,GET PHYSICAL DR ADDR
0009B6 910F 8004      00004        1273+         TM    USNS4,X'0F' NO DRIVE ASSIGNED        S20201
0009BA 4710 F9D2            009D2  1274+         BO    ERSTPT3 YES,APPLY STAT TO 0
0009BE 43A0 8004            00004  1275+         IC    ERREG1,USNS4 GET DRIVE NO.            S20201
0009C2 5090 FB10            00B10  1276+         ST    LNKRG2,RGSAV SAVE REG                 A52329
0009C6 4190 000F            0000F  1277+         LA    LNKRG2,15 GET CLEAR BYTE           A52329
0009CA 14A9                        1278+         NR    ERREG1,LNKRG2 CLEAR HIGH 2 BITS        A52329
0009CC 5890 FB10            00B10  1279+         L     LNKRG2,RGSAV RESTORE REG              A52329
0009D0 1ABA                        1280+         AR    ERREG2,ERREG1 ADD TO BASE INDEX
                                   1281+*2314 END
                                                                                                               PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0009D2 4CB0 FB20            00B20  1282+ERSTPT3  MH    ERREG2,ERRC10 INDEX*10 (10 BYTES/ENTRY)
0009D6 5AB0 6070            00070  1283+         A     ERREG2,STATAB ADD STATAB BASE
0009DA D501 B008 FB14 00008 00B14  1284+         CLC   SERWRK(2,ERREG2),ZERO TEST FOR DEVICE ERR
0009E0 0779                        1285+         BCR   7,LNKRG2 EXIT UNEQUAL
0009E2 D501 201E FB14 0001E 00B14  1286+         CLC   IOBCNT(2),ZERO TEST FOR CH OR DEV ERR
0009E8 07F9                        1287+         BR    LNKRG2 RETURN

                                   1289+*****************************************************************
                                   1290+*CCWSUB LOADS CCWREG WITH ADDR OF ERR CCW
0009EA 5850 2008            00008  1291+CCWSUB   L     CCWREG,IOBCSW GET CCW ADDR FROM CSW
0009EE 5F50 FB18            00B18  1292+         SL    CCWREG,ERRCN1 CCWREG-8
0009F2 07F9                        1293+         BR    LNKRG2 RETURN

                                   1295+*****************************************************************
                                   1296+*ERFLGS0 CLEARS ALL IOBFLAGS EXCEPT ERR,EX,MSG,LOG FOR FINAL EXIT
                                   1297+*ERFLGS1 DOES NOT RESET IOBPREV, IOBOFLO OR IOBNET               A62858
0009F4                             1298+ERFLGS0  DS    0H CLEAR FLAGS FOR FINAL EXIT
0009F4 94F1 2001      00001        1299+         NI    IOBFL2,X'FF'-IOBNET-IOBPREV-IOBOFLO FLG2      A62858
0009F8 41B0 4070            00070  1300+         LA    ERREG2,UCBCCW1+8 GET LOW LIMIT OF WORK  @SA75963
0009FC 155B                        1301+         CLR   CCWREG,ERREG2 WITHIN WORK AREA?      @SA75963
0009FE 4740 FA22            00A22  1302+         BL    ERFLGS1 NO-USE NEW CSW ADDR    @SA75963
000A02 41B0 40B8            000B8  1303+         LA    ERREG2,OFLOCCW5+8 GET HI LIMIT OF WORK   @SA75963
000A06 155B                        1304+         CLR   CCWREG,ERREG2 WITHIN WORK AREA?      @SA75963
000A08 4720 FA22            00A22  1305+         BH    ERFLGS1 NO-USE NEW CSW ADDR    @SA75963
000A0C D201 2002 4087 00002 00087  1306+         MVC   IOBSNS(2),UCBSSN NO-USE NORM SNS        @SA75963
000A12 D206 2009 4089 00009 00089  1307+         MVC   IOBCSW+1(7),UCBCSW NO-USE NORM CSW        @SA75963
000A18 D202 200D 0045 0000D 00045  1308+         MVC   IOBCSW+5(3),CSWLOC+5 USE CSW COUNT          @SA75963
000040                             1309+CSWLOC   EQU   64 @SA75963
000A1E 920C 200C      0000C        1310+         MVI   IOBCSW+4,X'0C' SET CE,DE              @SA75963
000A22                             1311+ERFLGS1  DS    0H CONNECTER                A62858
000A22 94EF 2001      00001        1312+         NI    IOBFL2,X'FF'-IOBRHA FLG2                     A62858
000A26 9405 2008      00008        1313+         NI    IOBFL3,IOBMSG+IOBLOG F3,CLEAR ALL BUT MSG+LOG
000A2A 94FE 2000      00000        1314+         NI    IOBFL1,X'FF'-IOBSRS CLEAR RESTART FLAG       MS0058
000A2E 07F9                        1315+         BR    LNKRG2 RETURN

                                   1317+*****************************************************************
                                   1318+*ERXTPTR-POINT TO CURRENT EXTENT IN DEB
000A30                             1319+ERXTPTR  DS    0H FORM PTR TO CURRENT EXTNT
000A30 1BBB                        1320+         SR    ERREG2,ERREG2 CLEAR IC REG
000A32 43B0 2020            00020  1321+         IC    ERREG2,IOBDAM GET EXTENT NO.
000A36 89B0 0004            00004  1322+         SLL   ERREG2,4 MULT BY 16
000A3A 41BB 3020            00020  1323+         LA    ERREG2,DEBMDB(ERREG2) FILE MSK ADDR
000A3E 07FC                        1324+         BR    ERREG3 RETURN

                                   1326+* 2305 OR 3330 OPTION                                            S20201

                                   1328+** ** ** ** ** ** ** ** ** ** ** ** *** ** ** ** ** ** ** ** **  S20201
                                   1329+*                                                                S20201
                                   1330+*         THIS ROUTINE CHECKS FOR MERLIN, ZEUS-A OR ZEUS-C       S20201
                                   1331+*                                                                S20201
000A40 9509 7013      00013        1332+MZTEST   CLI   UCBUTB,MERLIN IS THIS A MERLIN         S20201
000A44 4780 FA54            00A54  1333+         BE    MZRET BRANCH IF YES            S20201
000A48 9506 7013      00013        1334+ZEUSTST  CLI   UCBUTB,ZEUSA IS THIS A ZEUS ATHENS    S20201
000A4C 4780 FA54            00A54  1335+         BE    MZRET BRANCH IF YES            S20201
000A50 9507 7013      00013        1336+         CLI   UCBUTB,ZEUSC IS THIS A ZEUS CORINTH   S20201
                                                                                                               PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000A54 07F9                        1337+MZRET    BR    LNKRG2 RETURN WITH CONDITION CO S20201
                                   1338+*                                                                S20201
                                   1339+** ** ** ** ** ** ** ** ** ** ** ** *** ** ** ** ** ** ** ** **  S20201
                                   1340+*2305/3330 END                                                   S20201
                                                                                                               PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1342+*****************************************************************
                                   1343+*CCW1    SHA   UCBSKA+3,CC+SLI,3        VERIFY CORRECT SEEK (CCH)
000A58                             1344+ERPOCP1  DS    0F REPOSITION CH PRO SHA
000A58 39                          1345+         DC    X'39' OP                       A32176
000A59 000033                      1346+         DC    AL3(UCBSKA+3-UCB) ARG                      A32176
000A5C 60                          1347+         DC    X'60' CC+SLI                   A32176
000A5D 07                          1348+         DC    AL1(UCBREG) RELOCATE INFO FOR ERCPBLD
000A5E 0004                        1349+         DC    X'0004' LENGTH                   A32176
                                   1350+*CCW2    TIC   *-8
000A60 08                          1351+         DC    X'08' OP                       A32176
000A61 000068                      1352+         DC    AL3(UCBCCW1-ERU) ARG                      A32176
000A64 60                          1353+         DC    X'60' CC+SLI                   A32176
000A65 04                          1354+         DC    AL1(UCBRG2) RELOCATE INFO FOR ERCPBLD
000A66 0000                        1355+         DC    X'0000' LENGTH                   A32176
000A68                             1356+ERPOCP2  DS    0F REPOSITION CH PRO RHA
                                   1357+*CCW3,1  RHA   UCBRHA,SLI+SKIP+CC,5
000A68 1A                          1358+         DC    X'1A' OP                       A32176
000A69 000080                      1359+         DC    AL3(UCBRHA-ERU) ARG                      A32176
000A6C 70                          1360+         DC    X'70' CC+SLI+SKIP              A32176
000A6D A4                          1361+         DC    AL1(ERREG1*16+UCBRG2) RELOCATE INFO AND END FLG
000A6E 0005                        1362+         DC    X'0005' LENGTH                   A32176

                                   1364+*****************************************************************
                                   1365+*CCW1    RHA   UCBRHA,CC+SLI,5
000A70 1A                          1366+ERRHAP   DC    X'1A' OP                       A32176
000A71 000080                      1367+         DC    AL3(UCBRHA-ERU) ARG                      A32176
000A74 60                          1368+         DC    X'60' CC+SLI                   A32176
000A75 04                          1369+         DC    AL1(UCBRG2) RELOCATE INFO FOR ERCPBLD
000A76 0005                        1370+         DC    X'0005' LENGTH                   A32176
                                   1371+*CCW2    RR0   UCBRR0,SLI,4
000A78 16                          1372+         DC    X'16' OP                       A32176
000A79 00007C                      1373+         DC    AL3(UCBRR0-ERU) ARG                      A32176
000A7C 20                          1374+         DC    X'20' SLI                      A32176
000A7D A4                          1375+         DC    AL1(ERREG1*16+UCBRG2) RELOCATE INFO AND END FLG
000A7E 0004                        1376+         DC    X'0004' LENGTH                   A32176

                                   1378+*****************************************************************
                                   1379+*CCW1    RECA  0,SLI,1
000A80                             1380+ERRCLCP  DS    0F RECALIBRATE CH PRO
000A80 13                          1381+         DC    X'13' OP                       A32176
000A81 000000                      1382+         DC    AL3(0) NO ARG                   A32176
000A84 60                          1383+         DC    X'60' CC+SLI                   A32176
000A85 04                          1384+         DC    AL1(UCBRG2) RELOCATE IN ERU
000A86 0001                        1385+         DC    X'0001' LENGTH                   A32176

                                   1387+*  CCW2  NOP   TO KEEP RQE CONNECTED THROUGH THE SEEK
000A88 03                          1388+         DC    X'03' OP                       A32176
000A89 000000                      1389+         DC    AL3(0) NO ARG                   A32176
000A8C 20                          1390+         DC    X'20' SLI                      A32176
000A8D A4                          1391+         DC    AL1(ERREG1*16+UCBRG2) RELOCATE INFO AND END FLG
000A8E 0004                        1392+FOUR     DC    X'0004' SHARE LENGTH AS DC       S20201
                                   1393+* 2305 OR 3330 OPTION                                            S20201
                                   1394+** ** ** ** ** ** ** ** ** ** ** ** *** ** ** ** ** ** ** ** **  S20201
000A90                             1395+EROCP3   DS    0F RPS RESTART CP           S20201
                                   1396+*CCW1    SET SECTOR ZERO                                         S20201
                                                                                                               PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000A90 23                          1397+         DC    X'23' SET SECTOR               S20201
000A91 00006E                      1398+         DC    AL3(UCBCCW1+6-ERU) GET ZEROS                S20201
000A94 60                          1399+         DC    X'60' CC+SLI                   S20201
000A95 04                          1400+         DC    AL1(UCBRG2) BUILD CCW IN WORK AREA   S20201
000A96 0001                        1401+         DC    X'0001' ONE BYTE SPECIFING SECTO S20201
                                   1402+*CCW2    RHA   UCBRHA,CC+SLI+SKIP,5                              S20201
000A98 1A                          1403+         DC    X'1A' RHA                      S20201
000A99 000080                      1404+         DC    AL3(UCBRHA-ERU) ARG                      S20201
000A9C 70                          1405+         DC    X'70' CC+SLI+SKIP              S20201
000A9D A4                          1406+         DC    AL1(ERREG1*16+UCBRG2) RELOCATE INFO + END FLG  S20201
000A9E 0005                        1407+         DC    X'0005' LENGTH                   S20201

000AA0                             1409+ECFPGM   DS    0F ECF CHAN PGM             S20201
                                   1410+* CCW1   RHA   UCBRHA,CC+SLI+SKIP,5                             SA65470
000AA0 1A                          1411+         DC    X'1A' RHA                     SA65470
000AA1 000080                      1412+         DC    AL3(UCBRHA-ERU) ARG                     SA65470
000AA4 70                          1413+         DC    X'70' CC+SLI+SKIP             SA65470
000AA5 04                          1414+         DC    AL1(UCBRG2) RELOCATE INFO           SA65470
000AA6 0005                        1415+         DC    X'0005' LENGTH                  SA65470
                                   1416+*CCW2    SEARCH ID EQUAL                                         S20201
000AA8 31                          1417+         DC    X'31' SEARCH ID EQUAL          S20201
000AA9 000008                      1418+         DC    AL3(EXCCHHR-UCBSNS2) CCHHR IN SENSE BYTES     S20201
000AAC 60                          1419+         DC    X'60' CC+SLI                   S20201
000AAD 08                          1420+         DC    AL1(SNSREG) SENSE AREA               S20201
000AAE 0005                        1421+         DC    X'0005' LENGTH                   S20201
                                   1422+*CCW3    TIC *-8   ALSO CONTAINS SECTOR VALUE                    S20201
000AB0 08                          1423+         DC    X'08' TIC                      S20201
000AB1 000070                      1424+         DC    AL3(UCBCCW2-ERU) *-8                      S20201
000AB4 60                          1425+         DC    X'60' CC+SLI                   S20201
000AB5 04                          1426+ECFEND   DC    AL1(UCBRG2) RELOCATION INFO AND END  S20201
000AB6 0000                        1427+SECTVAL  DC    X'0000' SECTOR                   S20201
                                   1428+*CCW4    READ COUNT  USED IF TIC TO READ DATA CCW FOLLOWS        S20201
000AB8 12                          1429+RDCNT    DC    X'12' READ COUNT               A59754
000AB9 000080                      1430+         DC    AL3(UCBCCW4-ERU) ANY ADDRESS OK           S20201
000ABC 70                          1431+         DC    X'70' NO DATA TRANSFER         S20201
000ABD A4                          1432+         DC    AL1(ERREG1*16+UCBRG2) END FLAGS                S20201
000ABE 0001                        1433+         DC    X'0001' LENGTH                   S20201
000AC0                             1434+MZOFLCP  DS    0F FIRST OVFL CCW           S20201
                                   1435+*CCW0    SET SECTOR CCW                                          S20201
000AC0 23                          1436+         DC    X'23' SET SECTOR               S20201
000AC1 00009F                      1437+         DC    AL3(OFLOCCW2+7-ERU) TIC CONTAINS VALUE       S20201
000AC4 60                          1438+         DC    X'60' CC+SLI                   S20201
000AC5 04                          1439+         DC    AL1(UCBRG2) RELOCATE INFO            S20201
000AC6 0001                        1440+         DC    X'0001' LENGTH                   S20201
                                   1441+*                                                                S20201
                                   1442+*2305/3330 END                                                   S20201

                                   1444+* OVERFLOW OPTION
                                   1445+*****************************************************************
000AC8                             1446+OFLCP    DS    0F
                                   1447+*OFLCCW1  SIDEQ UCBRHA+1,CC+SLI,05
000AC8 31                          1448+         DC    X'31' OP                       A32176
000AC9 000081                      1449+         DC    AL3(UCBRHA+1-ERU) ARG                      A32176
000ACC 60                          1450+         DC    X'60' CC+SLI                   A32176
000ACD 04                          1451+         DC    AL1(UCBRG2) RELOCATE  INFO           A32176
                                                                                                               PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000ACE 0005                        1452+         DC    X'0005' LENGTH                   A32176
                                   1453+*OFLCCW2  TIC  *-8,CC
000AD0 08                          1454+         DC    X'08' OP                       A32176
000AD1 000090                      1455+         DC    AL3(OFLOCCW1-ERU) ARG                      A32176
000AD4 60                          1456+         DC    X'60' CC+SLI                   A32176
000AD5 04                          1457+         DC    AL1(UCBRG2) RELOCATE INFO            A32176
000AD6 0000                        1458+OFSECT   DC    X'0000' SECTOR VALUE             S20201
                                   1459+*OFLCCW3  X    (ERRCCW DATA ADDR+CCWCNT-RESID),ERRCCWFLAGS,RESID FROM C
000AD8 00                          1460+         DC    X'00' OP FROM SENSE BYTE 5     A32176
000AD9 000000                      1461+         DC    AL3(0) ARG CALCULATED BY PGM    A32176
000ADC 00                          1462+         DC    X'00' FLGS FROM ERR CCW        A32176
000ADD 04                          1463+         DC    AL1(UCBRG2) RELOCATE INFO            A32176
000ADE 0001                        1464+         DC    X'0001' LENGTH SET FROM RESID    A32176
                                   1465+*OFLOCCW4  TIC  *-8
000AE0 08                          1466+         DC    X'08' OP                       A32176
000AE1 0000A0                      1467+         DC    AL3(OFLOCCW3-ERU) ARG                      A32176
000AE4 60                          1468+         DC    X'60' CC+SLI                   A32176
000AE5 04                          1469+OFLEND4  DC    AL1(UCBRG2) RELOCATE INFO OF END     S20201
000AE6 0001                        1470+         DC    X'0001' LENGTH                   A32176
                                   1471+*OFLOCCW5  TIC *-16
000AE8 08                          1472+         DC    X'08' OP                       A32176
000AE9 0000A0                      1473+         DC    AL3(OFLOCCW3-ERU) ARG                      A32176
000AEC 20                          1474+         DC    X'20' SLI                      A32176
000AED A4                          1475+         DC    AL1(ERREG1*16+UCBRG2) RELOCATE INFO + END FLG  A32176
000AEE 0000                        1476+         DC    X'0000' LENGTH                   A32176

                                   1478+*OVERFLOW END
                                   1479+*****************************************************************
000AF0                             1480+ERSAV    DS    5F SAVE AREA REGS 4-8       S20201
                                   1481+* 2305 OR 3330 OPTION                                            S20201
000B04 00000000                    1482+ECFDISP  DC    F'0' TEMP SAVE                S20201
000B08 00000000                    1483+TOTALCNT DC    F'0' TEMP STORAGE             S20201
000B0C 00000000                    1484+ECFCNT   DC    F'0' TEMP STORAGE             S20201
                                   1485+*2305/3330 END                                                   S20201
000B10                             1486+RGSAV    DS    F TEMP SAVE                A51174
000B14 0000FFFF                    1487+ZERO     DC    X'0000FFFF' HI ORDER ZERO MASK       A32176
000B16                             1488+         ORG   ZERO+2 ALIGN                    S20201
000B16                             1489+FOXFOX   DS    2C CONSTANT X'FFFF'         S20201
000B18 00000008                    1490+ERRCN1   DC    F'8' CONSTANT 8
000B1C                             1491+TRKLIM   DS    F DEVICE TABLE WORK AREA   S20201
000B20 000A                        1492+ERRC10   DC    H'10' TEN
000B22 0000
000B24 00000000                    1493+OBRDEB   DC    A(IFBDEB)
000B28 02B8                        1494+NORLOG   DC    X'02B8' MASK FOR NORMAL LOG      A36382
000B2A 0080                        1495+ERRCLR   DC    X'0080' MASK TO CLEAR ERR CNT    A36382
000B2C                             1496+ERINC    DS    H ERROR INCREMENT
000B2E                             1497+         DS    C AND SENSE SHUFFLE
                                   1498+*MACRO ASSEMBLY IDENTIFIER
000B2F C9C5C3F2F3E7E7C6            1499+         DC    C'IEC23XXF 10000111001 '
000B44 C9C5C3F2F3E7E7C6            1500+         DC    CL50'IEC23XXF 10-04-77 US08113 PATCH   ' @SA79916
                                                                                                               PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1502+*CVT DEFINITION
000000                             1503+CVT      DSECT
000000                             1504+CVTTCB   DS    A PTR TO (NXT,CURR)TCB
00002C                             1505+         ORG   CVT+44 ALIGN                    A32176
00002C                             1506+CVTXCTL  DS    A ADDR OF XCTL RTN         A32176
000040                             1507+         ORG   CVT+64 ALIGN                    A32176
000040                             1508+CVTDTAB  DS    A DEVICE CHARACTERISTICS TB
000044                             1509+CVTNTRP  DS    A ERR INTERPRETER
000048                             1510+CVTWTO   DS    A WRITE TO OPERATOR
000054                             1511+         ORG   CVT+84 ALIGN                    A32176
000054                             1512+CVTDCB   DS    A SYS1-LOGREC DCB          A32176
000070                             1513+         ORG   CVT+112 ALIGN                    A32176
000070                             1514+STATAB   DS    A CVT LOC OF STATAB
000074                             1515+CVTLOG   DS    A LOG RTN ADDRESS
                                   1516+* DDR OPTION
                                                                                                               PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             1518+RMSTABLE DSECT
000014                             1519+         ORG   RMSTABLE+20 ALIGN                    A32176
000014                             1520+RMSTATUS DS    C DO/ DO NOT USE DDR
                                   1521+*DDR END
                                                                                                               PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             1523+DEB      DSECT
000000                             1524+DEBTCB   DS    A TCB PTR                  A32176
000004                             1525+         DS    A ALIGN                    A32176
000008                             1526+DEBOPFL  DS    C OPEN FLAGS               A32176
000008                             1527+         ORG   *-1 ALIGN                    A32176
000008                             1528+DEBIRB   DS    A IRB PTR                  A32176
00000C                             1529+         DS    3A ALIGN                    A32176
000018                             1530+DEBDCB   DS    A ASSOCIATED DCB ADDR      A32176
00001C                             1531+         DS    A ALIGN                    A32176
000020                             1532+DEBMDB   DS    C FILE MASK                A32176
                                                                                                               PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             1534+UCB      DSECT
000000                             1535+SRTEJBNR DS    C JOB INFO                 S20201
000001                             1536+UCBFL5   DS    C FLAG #5                @SA73886
000002                             1537+UCBID    DS    C ALWAYS FF                S20201
000003                             1538+UCBSTA   DS    C UCBSTATUS
000004                             1539+         DS    H ALIGN                    A32176
000006                             1540+UCBFL1   DS    X FLAG1                    A32176
000007                             1541+         DS    C ALIGN                    A32176
000008                             1542+UCBERP   DS    C TRANSIENT ERP ADDR
000009                             1543+UCBSTI   DS    X STATISTICS TABLE INDEX   A32176
000011                             1544+         ORG   UCB+17 ALIGN                   SA63263
000011                             1545+UCBOFEAT DS    X OPT. FEATURES           SA63263
000013                             1546+         ORG   UCB+19 ALIGN                    A32176
000013                             1547+UCBUTB   DS    X DEVICE TYPE              A32176
000016                             1548+         ORG   UCB+22 ALIGN                    A32176
000016                             1549+UCBSNS1  DS    XL6 SENSE                    S20201
000018                             1550+         ORG   UCBSNS1+2 ALIGN                    S20201
000018                             1551+EXTSNS0  DS    F EXTENDED SENSE POINTER   S20201
00001C                             1552+UCBVOL   DS    CL6 VOLID OF PACK            S20201
000022                             1553+UCBSTAT  DS    XL2 STATUS BYTE B            S20201
000030                             1554+         ORG   UCB+48 ALIGN                    A32176
000030                             1555+UCBSKA   DS    XL8 SEEK ADDR MBBCCHHR       A32176
000033                             1556+         ORG   UCBSKA+3 ALIGN                    S20201
000033                             1557+UCBCCHH  DS    CL4 SEEK ARG                 S20201
00003C                             1558+         ORG   UCB+60 ALIGN                    A32176
00003C                             1559+UCBWK    DS    A DISJOINT UCB WK AR PTR
                                                                                                               PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             1561+UCBSNS2  DSECT  UCB SENSE BYTES          S20201
000000                             1562+UCBSNS   DS    XL6 STANDARD SIX BYTES       S20201
000000                             1563+         ORG   UCBSNS2 ALIGN                    S20201
000000                             1564+USNS0    DS    C SENSE BYTE 0             S20201
000001                             1565+USNS1    DS    C SENSE BYTE 1             S20201
000002                             1566+USNS2    DS    C SENSE BYTE 2             S20201
000003                             1567+USNS3    DS    C SENSE BYTE 3             S20201
000004                             1568+USNS4    DS    C SENSE BYTE 4             S20201
000005                             1569+USNS5    DS    C SENSE BYTE 5             S20201
                                   1570+* 2305 OR 3330 OPTION                                            S20201
                                   1571+*2305-2330 SENSE BYTES                                           S20201
000003                             1572+         ORG   UCBSNS2+3 ALIGN                    S20201
000003                             1573+RSTCMD   DS    C RESTART CMD              S20201
000004                             1574+         DS    C ALIGN                    S20201
000005                             1575+CURCYL   DS    C CURRENT CYL              S20201
000006                             1576+ECCHEAD  DS    C CURRENT HEAD             S20201
000007                             1577+FMSG     DS    C FORMAT/MSG             @SA78184
000008                             1578+EXCCHHR  DS    CL5 CCHHR                    S20201
00000D                             1579+ECCSCTR  DS    C SECTOR FOR ERROR RECORD  S20201
00000F                             1580+         ORG   UCBSNS2+15 ALIGN                    S20201
00000F                             1581+CLOCBYTE DS    CL3 RESTART DISP             S20201
000012                             1582+ECCDISP  DS    CL2 DISPLACEMENT             S20201
000014                             1583+ECCSYN   DS    CL3 ECC BYTES IN SENSE       S20201
                                   1584+*2305/3330 END                                                   S20201
000017                             1585+SNS23    DS    C SENSE BYTE 23            S20201
                                                                                                               PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             1587+ERU      DSECT  WK AREA                  S20201
00005C                             1588+         ORG   ERU+92 ALIGN                    S20201
00005C                             1589+MAINUCB  DS    F POINTER TO MAIN UCB      S20201
000060                             1590+         DS    F ALIGN                    S20201
000064                             1591+CULOG    DS    F PTR TO CONTROL UNIT LOG  S20201
000068                             1592+UCBCCW1  DS    D ERP CONSTRUCTED CH PROGS
000070                             1593+UCBCCW2  DS    D FOR TRK COND,END OF CYL,
000078                             1594+UCBCCW3  DS    D FILE PROT,PERM ERR ETC
000080                             1595+UCBCCW4  DS    D
000088                             1596+UCBCCW5  DS    D
00007C                             1597+         ORG   UCBCCW3+4 ALIGN                    A32176
00007C                             1598+UCBRR0   DS    CL4 R0 READ IN BUFFER
000080                             1599+UCBRHA   DS    CL5 HA READ IN BUFFER
000085                             1600+UCBRNO   DS    CL1 REC NO ATTACHED FOR SEARCH
000087                             1601+         ORG   UCBCCW4+7 ALIGN                    A32176
000087                             1602+UCBSSN   DS    CL2 SAVE AREA SENSE ORIG ERROR
000089                             1603+UCBCSW   DS    CL7 SAVE AREA CSW ORIG ERROR
                                   1604+* OVERFLOW OPTION                                                S20201
                                   1605+* OVER FLOW ERP WORK AREA
                                   1606+* 2305 OR 3330 OPTION                                            S20201
000088                             1607+         ORG   UCBCCW5 MERLIN/ZEUS OVRFLW WK AR S20201
000088                             1608+OFLOCCW0 DS    D OVERFLOW SET SECTOR CCW  S20201
                                   1609+*2305/3330 END                                                   S20201
000090                             1610+         ORG   UCBCCW5+8 ALIGN                    S20201
000090                             1611+OFLOCCW1 DS    D ERP CONSTRUCTED CH PROGS
000098                             1612+OFLOCCW2 DS    D FOR OVER FLOW INCOMPLETE
0000A0                             1613+OFLOCCW3 DS    D AT TRK COND,END OF CYL,OR
0000A8                             1614+OFLOCCW4 DS    D FILE PROTECT             A32176
0000B0                             1615+OFLOCCW5 DS    D
0000B8                             1616+EXTCSW   DS    D EXTENDED CSW SAVE AREA   S20201
0000C0                             1617+EXTSNS   DS    CL24 EXTENDED SENSE SAVE AREA S20201
                                   1618+*2305/3330 END                                                   S20201
                                   1619+*OVERFLOW END                                                    S20201
                                                                                                               PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             1621+IOB      DSECT
000000                             1622+IOBFL1   DS    CL1 FLAGS1,IOB-ERROR,EXCEPTION,RESTART
000001                             1623+IOBFL2   DS    CL1 FLAGS2,READ HA,NO EXTNT CHK,CC-HH UPDATE
000002                             1624+IOBSNS   DS    CL2 FIRST 2 SENSE BYTES
000004                             1625+IOBCOD   DS    CL1 ECB CODE
000005                             1626+         DS    AL3 ALIGN                                   A32176
000008                             1627+IOBCSW   DS    D CSW
000008                             1628+         ORG   IOBCSW ALIGN                                   A32176
000008                             1629+IOBFL3   DS    CL1 TRK COND,NO REC FND,BUS OUT,RESTORE CMD
000010                             1630+         ORG   IOBCSW+8 ALIGN                                   A32176
000010                             1631+IOBST    DS    A CH PGM START ADDR                       A32176
000014                             1632+IOBDCB   DS    A DCB ADDR                                A32176
000018                             1633+IOBRST   DS    A CH PGM RESTART ADDR                     A32176
00001E                             1634+         ORG   IOB+30 ALIGN                                   A32176
00001E                             1635+IOBCNT   DS    H ERROR RETRY CNT                         A32176
000020                             1636+IOBDAM   DS    CL8 MBBCCHH OF USER REQUEST
                                   1637          END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       02      0C     000B24
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ALTDEF   00001 00000B 00129   0486
BASREG   00001 00000F 00089   0318  0326  0327  0379  0380
BUILDIT  00004 0007C6 01090   1088
BUSOUT   00004 0001F6 00496   0433
CCHDELMT 00001 0000FF 00204   1030
CCWREG   00001 000005 00075   0528  0551  0567  0572  0586  0593  0593  0595  0597  0599  0599  0601  0621  0643  0649
                              0665  0666  0666  0668  0689  0689  0691  0778  0780  0796  0798  0802  0804  0805  0805
                              0857  1056  1058  1083  1093  1096  1096  1099  1101  1103  1113  1115  1119  1128  1129
                              1175  1177  1179  1182  1291  1292  1301  1304
CCWSET   00002 000422 00687   0626  0647
CCWSK    00001 00000B 00212   0780
CCWSUB   00004 0009EA 01291   0313  0873
CC1OR3   00001 000010 00134   0253  0731
CHANERR  00001 00000F 00200
CHANNEL0 00002 0001C2 00472   0429
CHANNEL2 00004 0001CA 00476   0439
CHANNEL3 00004 0001D2 00478   0474
CHANNEL4 00004 0001DA 00480   0477
CHUDONE  00002 00096C 01239   1237
CHUOUT   00002 000956 01233   1223  1227
CLOCBYTE 00003 00000F 01581   0553  0631
CMDCHN   00006 0003A6 00648   0644
CMDFSK   00001 000007 00211   0595  0651  0778  1099  1179
CMDTIC   00001 000008 00210   0597  0653  1101  1177  1183
CMPRE    00002 00093E 01225   1215  1219  1220  1222
CNTDN    00002 00094C 01230   1221
CNTFLD   00001 000010 00125   0661
CNTSET   00002 0008F0 01200   1198
COMLOG   00006 0000B4 00302
CSWCDC   00001 000008 00199   0304
CSWLOC   00001 000040 01309   1308
CSWUCK   00001 000002 00207   0258  0267  0297
CULENG   00001 000001 00160   0605
CULOG    00004 000064 01591
CURCYL   00001 000005 01575
CVT      00001 000000 01503   0093  1505  1507  1511  1513
CVTDCB   00004 000054 01512   0724  1015
CVTDTAB  00004 000040 01508   1190
CVTLOC   00001 000010 00107   0252
CVTLOG   00004 000074 01515   0978  1027
CVTNIP   00001 000010 00109   0733
CVTNTRP  00004 000044 01509   0326  0379
CVTOPTA  00001 0000B6 00108   0733
CVTREG   00001 000006 00076   0093  0252  0733
CVTTCB   00004 000000 01504
CVTWTO   00004 000048 01510
CVTXCTL  00004 00002C 01506
CYLINDER 00002 0004D6 00767   0458
C0       00001 000000 00119   0857
C26      00001 00001A 00158
DATACK   00004 00022A 00528   0436
DATASNS  00001 000008 00140   0282
DCBREG   00001 000004 00073   0249  0958  0987  1009  1021
DCC      00001 000010 00234
DCHAIN   00001 000080 00116   0586
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DDRBASE  00001 00000C 00087
DDRCHK   00004 000696 00978   0976
DDRTN    00004 0006B6 00986
DEB      00001 000000 01523   0091
DEBDCB   00004 000018 01530
DEBEND   00001 00000A 00101   1206  1236
DEBIRB   00004 000008 01528
DEBMDB   00001 000020 01532   1323
DEBOPFL  00001 000008 01526   1203
DEBREG   00001 000003 00072   0091  0726  0726  0727  1017  1017  1018
DEBSCA   00001 000004 00102   1203
DEBST    00001 000006 00100   1208
DEBTCB   00004 000000 01524
DE2301   00001 000002 00224
DE2302   00001 000004 00225
DE2303   00001 000003 00226
DE2314   00001 000008 00227   1270
DE2321   00001 000005 00228
ECCDISP  00002 000012 01582   0549
ECCHEAD  00001 000006 01576   0671  0695
ECCNT    00002 000288 00558
ECCSCTR  00001 00000D 01579   0648
ECCSYN   00003 000014 01583   0559
ECFBLD   00004 0003E4 00664   0662
ECFCNT   00004 000B0C 01484   0551  0562  0590  0592  0601  0607  0614  0616
ECFDATA  00004 000266 00547   0450
ECFDISP  00004 000B04 01482
ECFEND   00001 000AB5 01426   0663  0669
ECFINCR  00002 0002BE 00576   0571  0573
ECFLOOP1 00002 000290 00561   0579  0602
ECFOVCK  00004 000376 00635   0585  0615  0622  0624
ECFPGM   00004 000AA0 01409   0664
ECFSNS   00001 000040 00156
ENDCCW   00004 0003E0 00663   0660
ENDSEG   00002 0002CE 00582   0563  0565  0632
EOCSNS   00001 000020 00147
EQ       00001 000008 00124   1180
EQUIPMT  00004 0001EE 00493   0431
EQUIPSNS 00001 000010 00139   0610
ERASR0   00004 00071E 01027   0473
ERASR1   00004 00072A 01030   1035
ERASR2   00004 000742 01037   1033
ERASR3   00002 000756 01042   1040
ERBUSO   00004 00016E 00433   0343  0396
ERCCC    00002 00015E 00428   0329  0382
ERCCWR   00001 00000C 00085   0950  1055  1056  1081  1095  1097  1097  1138  1139  1155  1161  1162  1165  1165  1175
                              1182  1183
ERCHP    00002 0001BE 00464   0365
ERCHUDT  00002 0008CA 01189   0676  0782  0898
ERCMDR   00004 00018E 00446   0351
ERCMDRJ  00004 00018A 00444   0400
ERCMDRJ1 00002 0001E2 00485   0444
ERCPBLD  00002 00086E 01154   0951  1090
ERCPB2   00004 00087E 01158   1166
ERDAT    00004 00017A 00436   0345
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ERECF    00004 00019A 00450   0406
ERELOC   00002 00086C 01153   1159
EREOC    00004 0001B6 00458   0357  0408
EREOF    00004 0001AE 00456   0369  0420
EREP03   00002 00065C 00949   0667
EREP03A  00004 000658 00948   0800  0908  0935
EREQCH   00004 000166 00431   0335
ERFLGS0  00002 0009F4 01298   0972  1003
ERFLGS1  00002 000A22 01311   0841  1302  1305
ERFPBLD  00002 000518 00799   0797
ERFPRT   00004 0001BA 00459   0359  0410
ERFPRT1  00004 00051C 00802   0781
ERHARD   00004 000682 00971   0466  0762  0779  0878  0887  0930
ERHARD1  00004 000710 01020   0983  0993  1005  1016
ERICC    00004 00015E 00429   0331  0384
ERINC    00002 000B2C 01496   0299  0301  0302  0302  0303
ERLEN    00004 0001B2 00457   0371  0422
ERMARK   00004 00017E 00437   0349
ERNOER   00004 000162 00430   0373  0424
ERNONE   00002 00053A 00834   0430  0753
ERNREQ   00004 000192 00447   0341  0398
ERNRF    00004 000172 00434   0337
ERNRF2   00004 0005C2 00884   0876
ERNSKM   00001 000018 00103
ERNT     00002 0000FC 00327   0329  0331  0333  0335  0337  0339  0341  0343  0345  0347  0349  0351  0353  0355  0357
                              0359  0361  0363  0365  0367  0369  0371  0373
ERNTMZ   00002 00012C 00378   0320
ERNTNSHR 00002 0000F8 00325   0323
ERNTRP   00002 0000CC 00307   0274  0278  0280  0285  0291
ERNTRPA  00002 0000DC 00312   0309
ERNT2    00002 000130 00380   0382  0384  0386  0388  0390  0392  0394  0396  0398  0400  0402  0404  0406  0408  0410
                              0412  0414  0416  0418  0420  0422  0424
EROCP3   00004 000A90 01395   0793
EROV     00004 000196 00449   0412
EROVF1   00004 0007DA 01096   1112
EROVF1A  00002 0007FC 01105   1100  1102
EROVF2   00002 000800 01107   1104
EROVF2A  00004 00080C 01113   1110
EROVF3   00002 000810 01114   1084
EROVF3A  00004 000822 01120
EROVF3B  00002 000858 01134   1130
EROVF4   00002 000860 01137   1133
EROVRN   00004 0001AA 00455   0347
ERPENT   00001 0004AA 00735   0730  0732
ERPERM   00002 0001BE 00462   0402  0404  0416  0418
ERPIBFLG 00001 000004 00202   1037
ERPINCTL 00001 00001C 00256   0254
ERPOCP1  00004 000A58 01344   0783  0904
ERPOCP2  00004 000A68 01356   0807
ERPROT   00002 0001BE 00465   0367
ERRCLCP  00004 000A80 01380   0942
ERRCLR   00002 000B2A 01495   1008
ERRCN1   00004 000B18 01490   1292
ERRC10   00002 000B20 01492   1282
ERRECAL  00002 00064C 00941   0539  0711
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ERRECLA  00002 000654 00945
ERRECLB  00002 000654 00944
ERREG1   00001 00000A 00082   0554  0555  0562  0569  0578  0578  0592  0616  0617  0619  0663  0690  0692  0802  0803
                              1027  1028  1028  1029  1029  1030  1032  1034  1034  1037  1038  1039  1039  1089  1094
                              1112  1116  1117  1153  1158  1159  1160  1161  1163  1202  1209  1211  1213  1216  1229
                              1231  1238  1259  1262  1264  1264  1272  1272  1275  1278  1280  1361  1375  1391  1406
                              1432  1475
ERREG2   00001 00000B 00084   0303  0306  0549  0550  0555  0559  0570  0575  0577  0577  0636  0649  0651  0653  0655
                              0655  0656  0659  0661  0664  0783  0793  0807  0904  0934  0942  1082  1083  1085  1115
                              1117  1118  1119  1120  1158  1160  1162  1163  1164  1164  1190  1193  1194  1194  1195
                              1206  1208  1211  1212  1212  1213  1215  1216  1226  1228  1228  1229  1236  1260  1260
                              1261  1265  1265  1280  1282  1283  1284  1300  1301  1303  1304  1320  1320  1321  1322
                              1323  1323
ERREG3   00001 00000C 00086   0560  0564  0564  0579  0630  0630  0635  1191  1191  1192  1193  1193  1194  1205  1234
                              1324
ERRETR   00001 00000E 00088   0962  0989  1011  1023
ERRHAB   00004 000640 00933   0517  0523  0927
ERRHAP   00001 000A70 01366   0934
ERRHA2   00004 000556 00846   0840
ERRHA3   00002 000576 00856   0849
ERRHA4   00001 00059C 00866   0858
ERSAV    00004 000AF0 01480   0249  0958  0987  1009  1021
ERSEV    00004 00016A 00432   0361  0392
ERSK     00004 000182 00438   0339
ERSNS    00004 00019E 00451   0414
ERSOFT   00004 0006D8 01002   0693  0761  0851  0853  0855
ERSOFT1  00006 0006EC 01008
ERSTPTR  00002 00096E 01246   0296  0982  0992  1004
ERSTPTRA 00002 00098E 01257   1251
ERSTPT1  00004 000998 01262   1266
ERSTPT2  00002 0009AC 01268   1263
ERSTPT3  00004 0009D2 01282   1271  1274
ERSTUP   00002 00002E 00261   0259  0611  0891
ERSTUPX  00002 00004C 00270   0268
ERSTUP2  00002 00009C 00293   0264
ERTCC    00004 000176 00435   0353
ERTCC2   00006 0005E4 00895   0885
ERTICBD  00002 0008A6 01172   0952  1106
ERTOVRN  00002 0001BE 00463   0355
ERU      00001 000000 01587   0095  1352  1359  1367  1373  1398  1404  1412  1424  1430  1437  1449  1455  1467  1473
                              1588
ERXCTL   00004 0006F2 01009   0737  0996
ERXTPTR  00002 000A30 01319   0635  1205  1234
ER2311   00002 000000 00248   0067
EXCCHHR  00005 000008 01578   1418
EXPSNS   00001 000008 00120
EXTCSW   00008 0000B8 01616   0279  0288  0289  0852  1252  1253
EXTSNS   00024 0000C0 01617   0277  0287
EXTSNS0  00004 000018 01551   0265
FETCHK   00006 0006FC 01015   0994  1007
FILEPROT 00002 0004DE 00771   0459
FLAGCK   00002 00060E 00911   0451
FLTSNS   00001 000008 00113
FMSG     00001 000007 01577   0275  0486
FOUR     00002 000A8E 01392   1238
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

FOXFOX   00001 000B16 01489   1199
FPSNS    00001 000004 00149
FPUPDATE 00004 0004EE 00782   0769
HDSK     00001 00001B 00104   0804
HEADNO   00001 000003 00221
IEC23XXF 00001 000000 00003
IFBDEB   00001 000000 00068   1493
INCR10   00004 000758 01045   0480  0513  0545  0710  0746
INCR256  00004 000236 00531
INTERVEN 00004 000464 00716   0447
INTRCPT  00001 00007E 00132   0308
INVALTFM 00001 000040 00146
IOB      00001 000000 01621   0092  1634
IOBAMRK  00001 000002 00150   0509
IOBBOE   00001 000010 00178   0496  0497  0717  0720
IOBCMDR  00001 000080 00137   0708
IOBCNT   00002 00001E 01635   0476  0530  0531  0533  0535  0536  0543  1008  1045  1047  1049  1286
IOBCOD   00001 000004 01625   0308  0310  0640
IOBCSW   00008 000008 01627   0258  0267  0288  0297  0304  0613  0613  0619  0688  0691  0871  1116  1131  1132  1157
                              1291  1307  1308  1310  1628  1630
IOBDAM   00008 000020 01636   1321
IOBDCB   00004 000014 01632   0724  1015
IOBERR   00001 000020 00164   0257  0971  1002
IOBEX    00001 000004 00165   0257  1002
IOBFL1   00001 000000 01622   0255  0257  0324  0638  0860  0957  0971  1002  1314
IOBFL2   00001 000001 01623   0478  0511  0699  0716  0736  0752  0760  0785  0835  0846  0859  0868  0901  0903  0919
                              0926  0933  0946  0955  0959  0986  0995  1079  1173  1235  1299  1312
IOBFL3   00001 000008 01629   0290  0496  0497  0516  0625  0690  0692  0717  0720  0839  0854  0861  0864  0875  0884
                              0920  0921  0943  0984  1020  1255  1313
IOBIN1   00001 000080 00175   0861  0864
IOBLOG   00001 000001 00182   0290  0854  0875  0920  0984  1313
IOBMSG   00001 000004 00180   0875  0921  1255  1313
IOBNET   00001 000008 00170   0699  0716  0785  0901  0903  1235  1299
IOBNORM  00001 00007F 00133   0310
IOBNRF   00001 000020 00177   0516  0884
IOBOFLO  00001 000002 00172   0835  1079  1299
IOBOVF   00001 000001 00151   0623  0628  0645  0673  0837  1053
IOBOVRN  00001 000004 00141
IOBPIK   00001 000040 00176
IOBPREV  00001 000004 00171   0736  0760  0959  1299
IOBRG    00001 000002 00071   0092  0317
IOBRHA   00001 000010 00169   0478  0511  0716  0752  0846  0859  0868  0919  0926  0933  0946  0955  0986  0995  1173
                              1312
IOBRSF   00001 000008 00179   0839  0943
IOBRST   00004 000018 01633   0863  0877  0929  1058  1139  1155
IOBSKCK  00001 000001 00143   0889  0890
IOBSNS   00002 000002 01624   0260  0260  0273  0509  0623  0628  0645  0673  0708  0837  0870  0888  0889  1053  1073
                              1156  1306
IOBSRS   00001 000001 00166   0255  0324  0860  0957  1314
IOBST    00004 000010 01631   0253  0718  0731
IOBSWP   00001 000002 00181
IOBTKC   00001 000002 00142   1073
IOBWRT   00001 000080 00188
IOCLBT   00001 000000 00099   1020
LENCHK   00002 000310 00604   0580  0587
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

LENGTH   00004 0004CA 00760   0457
LINKRG1  00001 00000D 00080   0473  0480  0513  0545  0667  0680  0686  0710  0746  0787  0906  0948  0953  1031  1041
                              1041  1042  1050  1060
LNGCK    00001 000040 00118   0625
LNKRG2   00001 000009 00079   0263  0296  0313  0315  0567  0568  0568  0569  0575  0589  0590  0591  0676  0697  0782
                              0790  0841  0850  0873  0898  0923  0951  0952  0972  0982  0992  0994  1003  1004  1007
                              1019  1087  1090  1106  1109  1123  1167  1174  1180  1184  1240  1248  1249  1250  1254
                              1256  1276  1277  1278  1279  1285  1287  1293  1315  1337
LOGCHK   00004 0006C4 00992   0977  0981
LOGSAVE  00002 000084 00286   0272  0276  0283
LOGSNS   00001 000010 00157   0271  0913
MAINUCB  00004 00005C 01589
MERLIN   00001 000009 00232   0584  1197  1218  1332
MER210   00001 00032A 00612   0606  0608
MISSING  00002 000454 00707   0437  0510
MSG      00004 000622 00921   0446  0479  0488  0544  0709
MSGLOG   00004 00061E 00920   0432  0487  0532  1046
MSGLOGA  00004 00061A 00919   0494  0498
MZOFLCP  00004 000AC0 01434
MZRET    00002 000A54 01337   1333  1335
MZTEST   00004 000A40 01332   0263  0315  0697  0790  0850  0923  1087  1109  1123  1249
NEGRES   00001 00034A 00620   0618
NOERROR  00002 00041E 00684   0641
NOMT     00004 0003D8 00661   0657
NOOP     00001 000003 00128   0659
NORECF   00004 000206 00509   0434
NORETRY  00001 000001 00203   1037
NORLOG   00002 000B28 01494   0301
NORTY    00001 00047C 00723   0719
NOSECT   00002 00050A 00794   0791
NOTCORR  00004 000362 00628   0548
NOTIC    00004 0003C4 00656   0652  0654
NOTIC1   00002 0008C0 01181   1178
NOTMER   00001 00061A 00918   0914
NOTPCI   00004 000392 00643   0637  0639
NOUPD    00002 000416 00678   0674
NRFUSE   00001 00021E 00515   0512
OBR      00001 000080 00110   0279  0289  0852  1252
OBRDEB   00004 000B24 01493   0727  1018
OBRSNS   00001 00003C 00138   0273
OFLCP    00004 000AC8 01446   1085
OFLEND4  00001 000AE5 01469   1089  1091
OFLOCCW0 00008 000088 01608
OFLOCCW1 00008 000090 01611   1055  1081  1138  1455
OFLOCCW2 00008 000098 01612   0863  1437
OFLOCCW3 00008 0000A0 01613   1082  1095  1120  1121  1125  1128  1131  1135  1136  1467  1473
OFLOCCW4 00008 0000A8 01614
OFLOCCW5 00008 0000B0 01615   0665  0668  1093  1103  1113  1303
OFSECT   00002 000AD6 01458
ONE      00001 000001 00127
ONES     00001 000001 00123   1174  1254
OVERRUN  00004 0004BA 00746   0311  0455  0629
OVFA     00006 00079A 01077   1074
OVFB     00002 0007A0 01078   1076
OVFC     00004 00078A 01073   0698  0700  1054
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

OVFINC   00006 000400 00671   0646
OVFLCHK  00004 00076E 01053   0680  0686  0787  0906
OVFSHA   00002 0004F6 00784   0808
PACKCNG  00004 000616 00915
PCICODE  00001 000071 00114   0640
PERMSNS  00001 000080 00145
RDCNT    00001 000AB8 01429   0658  0670
RDLOG    00001 000024 00159   0857
RESTART  00004 000672 00957   0682  0865  0948  1059  1140
RETRY    00004 00066A 00955   0481  0499  0514  0537  0546  0721  0741  0747  0842  0862  0915
RETURN7  00002 000788 01060   1057
RGSAV    00004 000B10 01486   1248  1250  1276  1279
RMSREG   00001 00000A 00083   0974  0978  0979  0979
RMSTABLE 00001 000000 01518   0974  1519
RMSTATUS 00001 000014 01520   0980
RSFSET   00004 000650 00943
RSTCMD   00001 000003 01573   1125
RSTOVF   00002 00043A 00694   0449
RTRY10   00004 000256 00543   0452
RTRY10A  00004 00025E 00545   0453
SEARCH   00001 000021 00214   1129
SEARCHA  00001 000039 00112
SECFLD   00001 000020 00126   0661
SECTOR   00001 000023 00115
SECTSET  00002 000506 00792
SECTVAL  00002 000AB6 01427   0648
SEEKCK   00004 000454 00708   0438
SEKCCH   00002 000636 00928   0924
SERWRK   00001 000008 00105   0303  0306  1284
SETECNT  00002 000306 00600   0596  0598
SETRHA   00004 0006CC 00994   0985
SHACHAN  00004 0004F2 00783   0806
SKIP     00001 000010 00213   0528  0572  1136
SKIPMOV  00002 0000AE 00300   0298
SLI      00001 000020 00117   0621
SNSNRF   00001 000008 00148   0888
SNSREG   00001 000008 00078   0096  0249  0251  0265  0266  0266  0958  0987  1009  1021  1420
SNS23    00001 000017 01585   0605
SRTEJBNR 00001 000000 01535
STATAB   00004 000070 01514   1259  1283
STCDC    00001 000001 00106   0306
STOP     00001 000008 00111   0638
SUBCALL  00001 0005AC 00872
SYSRES   00001 0004B2 00739   0725  0728  0734
TABLELGN 00001 000008 00201   1034
TCCBAD   00004 0005FE 00903   0897
TCCREPO  00004 000602 00904
TOTALCNT 00004 000B08 01483   0553  0554  0589  0591  0607  0614  0617  0631
TRACKCON 00004 000226 00523   0435
TRKBAD   00001 000002 00217   0896  1075
TRKINC   00002 000912 01210   1204  1207  1231
TRKLIM   00004 000B1C 01491   1195  1199  1216  1232
TRY10    00004 0001A2 00452
TRY10A   00004 0001A6 00453   0390  0394
TRY10C   00004 000186 00439   0333  0363  0386  0388
                                             CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TSTDCK   00002 000074 00281
TSTREG   00001 000001 00070   1032
UCB      00001 000000 01534   0094  1346  1544  1546  1548  1554  1558
UCBCCHH  00004 000033 01557
UCBCCW1  00008 000068 01592   0950  1300  1352  1398
UCBCCW2  00008 000070 01593   1424
UCBCCW3  00008 000078 01594   1597
UCBCCW4  00008 000080 01595   0796  1430  1601
UCBCCW5  00008 000088 01596   1607  1610
UCBCSW   00007 000089 01603   0798  0871  1157  1307
UCBERP   00001 000008 01542
UCBERR   00001 000001 00195
UCBFL1   00001 000006 01540   0740
UCBFL5   00001 000001 01536
UCBID    00001 000002 01537
UCBNRY   00001 000040 00194   0740
UCBOFEAT 00001 000011 01545   0322
UCBREG   00001 000007 00077   0094  1262  1348
UCBRG2   00001 000004 00074   0095  0250  0663  0669  1089  1091  1354  1361  1369  1375  1384  1391  1400  1406  1414
                              1426  1432  1439  1451  1457  1463  1469  1475
UCBRHA   00005 000080 01599   0877  0886  0896  1075  1077  1080  1359  1367  1404  1412  1449
UCBRNO   00001 000085 01600
UCBRR0   00004 00007C 01598   0895  1373
UCBSHRD  00001 000020 00193   0322
UCBSKA   00008 000030 01555   0671  0672  0695  0696  0768  0803  0886  0895  0929  1077  1206  1208  1211  1213  1229
                              1232  1236  1346  1556
UCBSNS   00006 000000 01562   0282  0284  0287  0299  0890
UCBSNS1  00006 000016 01549   0251  1550
UCBSNS2  00001 000000 01561   0096  1418  1563  1572  1580
UCBSSN   00002 000087 01602   0870  1156  1306
UCBSTA   00001 000003 01538   0729  0975
UCBSTAT  00002 000022 01553
UCBSTI   00001 000009 01543   1261
UCBSYS   00001 000002 00196   0729  0975
UCBUNS   00001 000080 00153   0493
UCBUTB   00001 000013 01547   0584  1192  1197  1218  1270  1332  1334  1336
UCBVOL   00006 00001C 01552
UCBWK    00004 00003C 01559   0250
UNITEXC  00004 0004C2 00752   0456
UPCNT    00001 000004 00122   1202
USECMD   00002 00083A 01126   1124
USEDDR   00001 000010 00121   0980
USNS0    00001 000000 01564   0610
USNS1    00001 000001 01565
USNS2    00001 000002 01566   0269  0269  0271  0493  0547  0913
USNS3    00001 000003 01567
USNS4    00001 000004 01568   1273  1275
USNS5    00001 000005 01569   1121
WORK     00001 00000A 00081   0533  0534  0534  0535  1047  1048  1048  1049
ZERO     00004 000B14 01487   0550  1118  1132  1284  1286  1488
ZEUSA    00001 000006 00230   1334
ZEUSC    00001 000007 00231   1336
ZEUSTST  00004 000A48 01334
ZUSLOG   00001 000080 00155   0271
                                                      DIAGNOSTICS                                             PAGE     1


                                                                                                                 8/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =  2103
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 2126 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM41.R0000171      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM41.S0000172      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM41.S0000172      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG42    / START 78240.1945
IEF374I STEP /SG42    / STOP  78240.1945 CPU   0MIN 00.67SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:45.81   ALLOC START    19:45:45.82   MAIN REGION ----- 300K                          *
*   STEP NAME SG42       STEP END TIME  19:45:46.65   PGM START TIME 19:45:45.89   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.84   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.67   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 52       0250 ------------ 0       0250 ------------ 0       0151 ----------- 73       0151 ----------- 69    *
*   0151 ---------- 117       0353 ---------- 266       0151 ----------- 97       0130 ------------ 5                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM41  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:46.67   ALLOC START    19:45:46.68   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:46.70   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM41 / START 78240.1945
IEF376I  JOB /R21AM41 / STOP  78240.1945 CPU   0MIN 00.67SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM41    JOB READ TIME 19:45:01.23   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.67   *
*   JOB CLASS A          JOB INIT TIME 19:45:45.81   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.91   *
*   ACCOUNT              JOB END TIME  19:45:46.72   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       44     2222222                             A
            RRRRRRRRR  222222222      11        AAA     MM     MM      444    222222222                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     4444    22     22                          AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM    44 44          22                          AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM   44  44         22                          AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM  44   44        22                           AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM  444444444     22                            AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  444444444    22                             AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM       44     22222222                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM       44    222222222                        AA     AA

***********A  START   R21AM42    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM42    START  A***********
***********A  START   R21AM42    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM42    START  A***********
***********A  START   R21AM42    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM42    START  A***********
***********A  START   R21AM42    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM42    START  A***********
***********A  START   R21AM42    SYS SYSA   WTR 00E   07:47:23 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM42    START  A***********


//R21AM42 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG43 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEHMVSRR)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM42  SG43
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEHMVSRR  SD  01 000000 000004
CORE      LD     000000         01
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 IEHMVSRR CSECT
                                      3  ENTRY CORE
000000 00010000                       4 CORE   DC F'65536'
                                      5    END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CORE     00004 000000 00004   0003
IEHMVSRR 00001 000000 00002



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     5
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   20 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM42.R0000173      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM42.S0000174      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM42.S0000174      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG43    / START 78240.1945
IEF374I STEP /SG43    / STOP  78240.1945 CPU   0MIN 00.11SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:46.74   ALLOC START    19:45:46.75   MAIN REGION ----- 300K                          *
*   STEP NAME SG43       STEP END TIME  19:45:47.18   PGM START TIME 19:45:46.83   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.44   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.11   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0151 ----------- 10       0151 ------------ 9    *
*   0151 ------------ 3       0159 ------------ 3       0151 ------------ 3       0130 ------------ 7                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM42  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:47.19   ALLOC START    19:45:47.21   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:47.22   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM42 / START 78240.1945
IEF376I  JOB /R21AM42 / STOP  78240.1945 CPU   0MIN 00.11SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM42    JOB READ TIME 19:45:01.36   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.11   *
*   JOB CLASS A          JOB INIT TIME 19:45:46.74   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.50   *
*   ACCOUNT              JOB END TIME  19:45:47.24   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       44    333333333                            A
            RRRRRRRRR  222222222      11        AAA     MM     MM      444    333333333                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     4444    33    33                           AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM    44 44         33                           AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM   44  44        3333                         AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM  44   44       333333                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM  444444444         33                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  444444444  33     33                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM       44    333333333                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM       44     3333333                         AA     AA

***********A  START   R21AM43    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM43    START  A***********
***********A  START   R21AM43    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM43    START  A***********
***********A  START   R21AM43    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM43    START  A***********
***********A  START   R21AM43    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM43    START  A***********
***********A  START   R21AM43    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM43    START  A***********


//R21AM43 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG44 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEFWMAS1)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM43  SG44
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


DEVNAMET  SD  01 000000 0001A8
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 DEVNAMET CSECT
                                      3          SGIEF010                                                      X
                                                       2,2400-1,X'3080',X'8001',                             XXXXXXXX
                                                       8,3400-6,X'3210',X'8003',                             XXXXXXXX
                                                       11,2311,X'3000',X'2001',                             XXXXXXXX
                                                       12,1052,X'1000',X'0820',                             XXXXXXXX
                                                       13,1403,X'1000',X'0808',                             XXXXXXXX
                                                       19,3158,X'1200',X'100C',                             XXXXXXXX
                                                       21,3211,X'1080',X'0809',                             XXXXXXXX
                                                       23,3215,X'1000',X'0823',                             XXXXXXXX
                                                       25,3277-2,X'1200',X'1009',                             XXXXXXXX
                                                       39,2540,X'1000',X'0801',                             XXXXXXXX
                                                       40,2540-2,X'1000',X'0802',                             XXXXXXXX
                                                       48,2314,X'30C0',X'2008',                             XXXXXXXX
                                                       49,3330,X'3050',X'2009',                             XXXXXXXX
                                                       69,AAA9,X'4000',X'4009',                             XXXXXXXX
                                                       70,AAAA,X'4000',X'400A',                             XXXXXXXX
                                                       71,AAAB,X'4000',X'400B',                             XXXXXXXX
                                                       LAST
000000 00000023                       4          DC    F'35'
                                      5  SGIEF011 23,23
000004 F3F2F1F540404040               6+         DC    CL8'3215'
00000C 1000                           7+         DC    AL2(4096)
00000E 0823                           8+         DC    AL2(2083)
                                      9  SGIEF011 39,39
000010 F2F5F4F040404040              10+         DC    CL8'2540'
000018 1000                          11+         DC    AL2(4096)
00001A 0801                          12+         DC    AL2(2049)
                                     13  SGIEF011 40,40
00001C F2F5F4F060F24040              14+         DC    CL8'2540-2'
000024 1000                          15+         DC    AL2(4096)
000026 0802                          16+         DC    AL2(2050)
                                     17  SGIEF011 13,13
000028 F1F4F0F340404040              18+         DC    CL8'1403'
000030 1000                          19+         DC    AL2(4096)
000032 0808                          20+         DC    AL2(2056)
                                     21  SGIEF011 19,19
000034 F3F1F5F840404040              22+         DC    CL8'3158'
00003C 1200                          23+         DC    AL2(4608)
00003E 100C                          24+         DC    AL2(4108)
                                     25  SGIEF011 12,12
000040 F1F0F5F240404040              26+         DC    CL8'1052'
000048 1000                          27+         DC    AL2(4096)
00004A 0820                          28+         DC    AL2(2080)
                                     29  SGIEF011 69,69
00004C C1C1C1F940404040              30+         DC    CL8'AAA9'
000054 4000                          31+         DC    AL2(16384)
000056 4009                          32+         DC    AL2(16393)
                                     33  SGIEF011 70,70
000058 C1C1C1C140404040              34+         DC    CL8'AAAA'
000060 4000                          35+         DC    AL2(16384)
000062 400A                          36+         DC    AL2(16394)
                                     37  SGIEF011 71,71
000064 C1C1C1C240404040              38+         DC    CL8'AAAB'
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00006C 4000                          39+         DC    AL2(16384)
00006E 400B                          40+         DC    AL2(16395)
                                     41  SGIEF011 25,25
000070 F3F2F7F760F24040              42+         DC    CL8'3277-2'
000078 1200                          43+         DC    AL2(4608)
00007A 1009                          44+         DC    AL2(4105)
                                     45  SGIEF011 21,21
00007C F3F2F1F140404040              46+         DC    CL8'3211'
000084 1080                          47+         DC    AL2(4224)
000086 0809                          48+         DC    AL2(2057)
                                     49  SGIEF011 11,11
000088 F2F3F1F140404040              50+         DC    CL8'2311'
000090 3000                          51+         DC    AL2(12288)
000092 2001                          52+         DC    AL2(8193)
                                     53  SGIEF011 48,48
000094 F2F3F1F440404040              54+         DC    CL8'2314'
00009C 30C0                          55+         DC    AL2(12480)
00009E 2008                          56+         DC    AL2(8200)
                                     57  SGIEF011 49,49
0000A0 F3F3F3F040404040              58+         DC    CL8'3330'
0000A8 3050                          59+         DC    AL2(12368)
0000AA 2009                          60+         DC    AL2(8201)
                                     61  SGIEF011 8,8
0000AC F3F4F0F060F64040              62+         DC    CL8'3400-6'
0000B4 3210                          63+         DC    AL2(12816)
0000B6 8003                          64+         DC    AL2(32771)
                                     65  SGIEF011 2,2
0000B8 F2F4F0F060F14040              66+         DC    CL8'2400-1'
0000C0 3080                          67+         DC    AL2(12416)
0000C2 8001                          68+         DC    AL2(32769)
0000C4 F2F4F0F060F34040              69          DC    CL8'2400-3'
0000CC 34008001                      70          DC    X'34008001'
0000D0 F3F4F0F060F34040              71          DC    CL8'3400-3'
0000D8 34008003                      72          DC    X'34008003'
0000DC F3F4F0F060F54040              73          DC    CL8'3400-5'
0000E4 32008003                      74          DC    X'32008003'
                                     75  SGIEF013 16,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
                                     76  SGIEF011 0,0,TAPE
0000E8 E3C1D7C540404040              77+         DC    CL8'TAPE'
0000F0 0001                          78+         DC    AL2(1)
0000F2 8000                          79+         DC    AL2(32768)
                                     80  SGIEF013 16,11,11,11,11,11,11,11,11,48,48,48,48,48,48,48,48
                                     81  SGIEF013 32,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                     82  SGIEF013 48,48,48,48,48,48,48,48,48,49,49,49,49,49,49,49,49
                                     83  SGIEF013 64,49,49,49,49,49,49,49,49,48,48,48,48,48,48,48,48
                                     84  SGIEF013 80,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                     85  SGIEF011 0,0,SYSALLDA
0000F4 E2E8E2C1D3D3C4C1              86+         DC    CL8'SYSALLDA'
0000FC 0002                          87+         DC    AL2(2)
0000FE 2000                          88+         DC    AL2(8192)
                                     89  SGIEF013 16,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                     90  SGIEF013 32,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                     91  SGIEF013 48,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                     92  SGIEF011 0,0,SYSDA
000100 E2E8E2C4C1404040              93+         DC    CL8'SYSDA'
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000108 0003                          94+         DC    AL2(3)
00010A 2000                          95+         DC    AL2(8192)
                                     96  SGIEF013 16,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                     97  SGIEF013 32,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                     98  SGIEF013 48,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                     99  SGIEF011 0,0,DISK
00010C C4C9E2D240404040             100+         DC    CL8'DISK'
000114 0004                         101+         DC    AL2(4)
000116 2000                         102+         DC    AL2(8192)
                                    103  SGIEF013 16,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    104  SGIEF013 32,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    105  SGIEF013 48,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    106  SGIEF011 0,0,SYSSQ
000118 E2E8E2E2D8404040             107+         DC    CL8'SYSSQ'
000120 0005                         108+         DC    AL2(5)
000122 2000                         109+         DC    AL2(8192)
                                    110  SGIEF013 16,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48
                                    111  SGIEF013 24,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48
                                    112  SGIEF011 0,0,SORT
000124 E2D6D9E340404040             113+         DC    CL8'SORT'
00012C 0006                         114+         DC    AL2(6)
00012E 2000                         115+         DC    AL2(8192)
                                    116  SGIEF013 16,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48
                                    117  SGIEF013 24,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48
                                    118  SGIEF011 0,0,SORTWORK
000130 E2D6D9E3E6D6D9D2             119+         DC    CL8'SORTWORK'
000138 0007                         120+         DC    AL2(7)
00013A 2000                         121+         DC    AL2(8192)
                                    122  SGIEF013 16,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48
                                    123  SGIEF013 24,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48
                                    124  SGIEF011 0,0,SORTWK
00013C E2D6D9E3E6D24040             125+         DC    CL8'SORTWK'
000144 0008                         126+         DC    AL2(8)
000146 2000                         127+         DC    AL2(8192)
                                    128  SGIEF013 8,69,69,69,69,69,69,69,69,48,48,48,48,48,48,48,48
                                    129  SGIEF011 0,0,BSC1
000148 C2E2C3F140404040             130+         DC    CL8'BSC1'
000150 0009                         131+         DC    AL2(9)
000152 4000                         132+         DC    AL2(16384)
                                    133  SGIEF013 8,70,70,70,70,70,70,70,70,48,48,48,48,48,48,48,48
                                    134  SGIEF011 0,0,BSC2
000154 C2E2C3F240404040             135+         DC    CL8'BSC2'
00015C 000A                         136+         DC    AL2(10)
00015E 4000                         137+         DC    AL2(16384)
                                    138  SGIEF013 8,71,71,71,71,71,71,71,71,48,48,48,48,48,48,48,48
                                    139  SGIEF011 0,0,BSC3
000160 C2E2C3F340404040             140+         DC    CL8'BSC3'
000168 000B                         141+         DC    AL2(11)
00016A 4000                         142+         DC    AL2(16384)
                                    143  SGIEF013 16,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    144  SGIEF013 32,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    145  SGIEF013 48,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    146  SGIEF011 0,0,CTC
00016C C3E3C34040404040             147+         DC    CL8'CTC'
000174 000C                         148+         DC    AL2(12)
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000176 8000                         149+         DC    AL2(32768)
                                    150  SGIEF013 1,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    151  SGIEF011 0,0,R
000178 D940404040404040             152+         DC    CL8'R'
000180 000D                         153+         DC    AL2(13)
000182 0000                         154+         DC    AL2(0)
                                    155  SGIEF013 1,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    156  SGIEF011 0,0,A
000184 C140404040404040             157+         DC    CL8'A'
00018C 000E                         158+         DC    AL2(14)
00018E 0000                         159+         DC    AL2(0)
                                    160  SGIEF013 1,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    161  SGIEF011 0,0,B
000190 C240404040404040             162+         DC    CL8'B'
000198 000F                         163+         DC    AL2(15)
00019A 0000                         164+         DC    AL2(0)
                                    165  SGIEF013 1,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    166  SGIEF011 0,0,INTRDR
00019C C9D5E3D9C4D94040             167+         DC    CL8'INTRDR'
0001A4 0010                         168+         DC    AL2(16)
0001A6 0000                         169+         DC    AL2(0)
                                    170  END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DEVNAMET 00001 000000 00002



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =    91      SOURCE RECORDS (SYSLIB) =    71
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  206 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM43.R0000175      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM43.S0000176      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM43.S0000176      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG44    / START 78240.1945
IEF374I STEP /SG44    / STOP  78240.1945 CPU   0MIN 00.39SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:47.26   ALLOC START    19:45:47.27   MAIN REGION ----- 300K                          *
*   STEP NAME SG44       STEP END TIME  19:45:47.78   PGM START TIME 19:45:47.35   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.52   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.39   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 7       0250 ------------ 0       0250 ------------ 0       0151 ---------- 102       0151 ----------- 21    *
*   0151 ---------- 201       0353 ----------- 26       0151 ----------- 10       0130 ----------- 93                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM43  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:47.81   ALLOC START    19:45:47.82   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:47.84   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM43 / START 78240.1945
IEF376I  JOB /R21AM43 / STOP  78240.1945 CPU   0MIN 00.39SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM43    JOB READ TIME 19:45:01.47   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.39   *
*   JOB CLASS A          JOB INIT TIME 19:45:47.26   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.59   *
*   ACCOUNT              JOB END TIME  19:45:47.85   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       44         44                              A
            RRRRRRRRR  222222222      11        AAA     MM     MM      444        444                             AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     4444       4444                            AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM    44 44      44 44                           AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM   44  44     44  44                          AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM  44   44    44   44                          AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM  444444444  444444444                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  444444444  444444444                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM       44         44                          AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM       44         44                          AA     AA

***********A  START   R21AM44    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM44    START  A***********
***********A  START   R21AM44    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM44    START  A***********
***********A  START   R21AM44    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM44    START  A***********
***********A  START   R21AM44    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM44    START  A***********
***********A  START   R21AM44    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM44    START  A***********


//R21AM44 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG45 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEFDEVPT)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM44  SG45
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IEFDEVPT  SD  01 000000 000038
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 IEFDEVPT CSECT
000000 000B                           3 DVPTLEN  DC    H'11'
000002 014E                           4 DVPTSIZE DC    H'334'
000004 012F                           5 DVPTDEV  DC    H'303'
000006 0000                           6 DVPT2321 DC    H'0'
000008 00000000                       7 DVPT     DC    F'0'
00000C 004FC801FFFFFFFF               8      DC  X'004FC801FFFFFFFFE01FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'
000028 FFFFFFFFFFFFFFFF               9      DC  X'FFFFFFFFFFFFFFFFFFFFFFFFFFFC0000'
                                     10      END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DVPT     00004 000008 00007
DVPTDEV  00002 000004 00005
DVPTLEN  00002 000000 00003
DVPTSIZE 00002 000002 00004
DVPT2321 00002 000006 00006
IEFDEVPT 00001 000000 00002



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =    10
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   28 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM44.R0000177      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM44.S0000178      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM44.S0000178      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG45    / START 78240.1945
IEF374I STEP /SG45    / STOP  78240.1945 CPU   0MIN 00.10SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:47.88   ALLOC START    19:45:47.88   MAIN REGION ----- 300K                          *
*   STEP NAME SG45       STEP END TIME  19:45:48.10   PGM START TIME 19:45:47.96   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.22   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.10   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0151 ----------- 10       0151 ------------ 9    *
*   0151 ------------ 3       0130 ------------ 4       0151 ------------ 3       0130 ----------- 12                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM44  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:48.12   ALLOC START    19:45:48.13   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:48.15   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM44 / START 78240.1945
IEF376I  JOB /R21AM44 / STOP  78240.1945 CPU   0MIN 00.10SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM44    JOB READ TIME 19:45:01.81   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.10   *
*   JOB CLASS A          JOB INIT TIME 19:45:47.88   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.28   *
*   ACCOUNT              JOB END TIME  19:45:48.16   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1         A      M       M       44    555555555                            A
            RRRRRRRRR  222222222      11        AAA     MM     MM      444    555555555                           AAA
            RR     RR  22     22     111       AA AA    MMM   MMM     4444    55                                 AA AA
            RR     RR        22       11      AA   AA   MMMM MMMM    44 44    55555555                          AA   AA
            RRRRRRRRR       22        11     AA     AA  MM MMM MM   44  44    555555555                        AA     AA
            RRRRRRRR       22         11     AA     AA  MM  M  MM  44   44           55                        AA     AA
            RR  RR        22          11     AAAAAAAAA  MM     MM  444444444         55                        AAAAAAAAA
            RR   RR      22           11     AAAAAAAAA  MM     MM  444444444  55     55                        AAAAAAAAA
            RR    RR    22222222    111111   AA     AA  MM     MM       44    555555555                        AA     AA
            RR     RR  222222222    111111   AA     AA  MM     MM       44     5555555                         AA     AA

***********A  START   R21AM45    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM45    START  A***********
***********A  START   R21AM45    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM45    START  A***********
***********A  START   R21AM45    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM45    START  A***********
***********A  START   R21AM45    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM45    START  A***********
***********A  START   R21AM45    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21AM45    START  A***********


//R21AM45 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG46 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(0,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//             SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IEFWMSKA)
//SYSIN DD *
IEF236I ALLOC. FOR R21AM45  SG46
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


DEVMASKT  SD  01 000000 000754
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1          PRINT ON,NODATA
000000                                2 DEVMASKT CSECT
000000 0023                           3           DC    H'35'
000002 0024                           4          DC    H'36'
                                      5          SGIEF010                                                      X
                                                       2,2400-1,X'3080',X'8001',                             XXXXXXXX
                                                       8,3400-6,X'3210',X'8003',                             XXXXXXXX
                                                       11,2311,X'3000',X'2001',                             XXXXXXXX
                                                       12,1052,X'1000',X'0820',                             XXXXXXXX
                                                       13,1403,X'1000',X'0808',                             XXXXXXXX
                                                       19,3158,X'1200',X'100C',                             XXXXXXXX
                                                       21,3211,X'1080',X'0809',                             XXXXXXXX
                                                       23,3215,X'1000',X'0823',                             XXXXXXXX
                                                       25,3277-2,X'1200',X'1009',                             XXXXXXXX
                                                       39,2540,X'1000',X'0801',                             XXXXXXXX
                                                       40,2540-2,X'1000',X'0802',                             XXXXXXXX
                                                       48,2314,X'30C0',X'2008',                             XXXXXXXX
                                                       49,3330,X'3050',X'2009',                             XXXXXXXX
                                                       69,AAA9,X'4000',X'4009',                             XXXXXXXX
                                                       70,AAAA,X'4000',X'400A',                             XXXXXXXX
                                                       71,AAAB,X'4000',X'400B',                             XXXXXXXX
                                                       LAST
                                      6  SGIEF012 23,2,                                                  XXXXXXXX
                                                       00400001000000000000000000000000000000000000000000000000X
                                                       00000000000000000000000000000000
000004 00000002                       7+         DC    F'2'
000008 1000                           8+         DC    AL2(4096)
00000A 0823                           9+         DC    AL2(2083)
                                     10+         DC    X'004000010000000000000000000000000000000000000000000000X
00000C 0040000100000000                +               0000000000000000000000000000000000'
                                     11  SGIEF012 39,2,                                                  XXXXXXXX
                                                       00080000000000000010000000000000000000000000000000000000X
                                                       00000000000000000000000000000000
000038 00000002                      12+         DC    F'2'
00003C 1000                          13+         DC    AL2(4096)
00003E 0801                          14+         DC    AL2(2049)
                                     15+         DC    X'000800000000000000100000000000000000000000000000000000X
000040 0008000000000000                +               0000000000000000000000000000000000'
                                     16  SGIEF012 40,2,                                                  XXXXXXXX
                                                       00040000000000000008000000000000000000000000000000000000X
                                                       00000000000000000000000000000000
00006C 00000002                      17+         DC    F'2'
000070 1000                          18+         DC    AL2(4096)
000072 0802                          19+         DC    AL2(2050)
                                     20+         DC    X'000400000000000000080000000000000000000000000000000000X
000074 0004000000000000                +               0000000000000000000000000000000000'
                                     21  SGIEF012 13,8,                                                  XXXXXXXX
                                                       00030000000000000007800000000000006000000000000000000000X
                                                       00000000000000000000000000000000
0000A0 00000008                      22+         DC    F'8'
0000A4 1000                          23+         DC    AL2(4096)
0000A6 0808                          24+         DC    AL2(2056)
                                     25+         DC    X'000300000000000000078000000000000060000000000000000000X
0000A8 0003000000000000                +               0000000000000000000000000000000000'
                                     26  SGIEF012 19,3,                                                  XXXXXXXX
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                                       0000C800000000000000000000000000000000000000000000000000X
                                                       00000000000000000000000000000000
0000D4 00000003                      27+         DC    F'3'
0000D8 1200                          28+         DC    AL2(4608)
0000DA 100C                          29+         DC    AL2(4108)
                                     30+         DC    X'0000C8000000000000000000000000000000000000000000000000X
0000DC 0000C80000000000                +               0000000000000000000000000000000000'
                                     31  SGIEF012 12,1,                                                  XXXXXXXX
                                                       00000000800000000000000000000000000000000000000000000000X
                                                       00000000000000000000000000000000
000108 00000001                      32+         DC    F'1'
00010C 1000                          33+         DC    AL2(4096)
00010E 0820                          34+         DC    AL2(2080)
                                     35+         DC    X'000000008000000000000000000000000000000000000000000000X
000110 0000000080000000                +               0000000000000000000000000000000000'
                                     36  SGIEF012 69,8,                                                  XXXXXXXX
                                                       000000007F8000000000000000000000000000000000000000000000X
                                                       00000000000000000000000000000000
00013C 00000008                      37+         DC    F'8'
000140 4000                          38+         DC    AL2(16384)
000142 4009                          39+         DC    AL2(16393)
                                     40+         DC    X'000000007F80000000000000000000000000000000000000000000X
000144 000000007F800000                +               0000000000000000000000000000000000'
                                     41  SGIEF012 70,8,                                                  XXXXXXXX
                                                       00000000007F80000000000000000000000000000000000000000000X
                                                       00000000000000000000000000000000
000170 00000008                      42+         DC    F'8'
000174 4000                          43+         DC    AL2(16384)
000176 400A                          44+         DC    AL2(16394)
                                     45+         DC    X'00000000007F800000000000000000000000000000000000000000X
000178 00000000007F8000                +               0000000000000000000000000000000000'
                                     46  SGIEF012 71,8,                                                  XXXXXXXX
                                                       0000000000007F800000000000000000000000000000000000000000X
                                                       00000000000000000000000000000000
0001A4 00000008                      47+         DC    F'8'
0001A8 4000                          48+         DC    AL2(16384)
0001AA 400B                          49+         DC    AL2(16395)
                                     50+         DC    X'0000000000007F8000000000000000000000000000000000000000X
0001AC 0000000000007F80                +               0000000000000000000000000000000000'
                                     51  SGIEF012 25,16,                                                  XXXXXXXX
                                                       000000000000007F8000000000000000000000001FE0000000000000X
                                                       00000000000000000000000000000000
0001D8 00000010                      52+         DC    F'16'
0001DC 1200                          53+         DC    AL2(4608)
0001DE 1009                          54+         DC    AL2(4105)
                                     55+         DC    X'000000000000007F8000000000000000000000001FE00000000000X
0001E0 000000000000007F                +               0000000000000000000000000000000000'
                                     56  SGIEF012 21,2,                                                  XXXXXXXX
                                                       00000000000000006000000000000000000000000000000000000000X
                                                       00000000000000000000000000000000
00020C 00000002                      57+         DC    F'2'
000210 1080                          58+         DC    AL2(4224)
000212 0809                          59+         DC    AL2(2057)
                                     60+         DC    X'000000000000000060000000000000000000000000000000000000X
000214 0000000000000000                +               0000000000000000000000000000000000'
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     61  SGIEF012 11,8,                                                  XXXXXXXX
                                                       000000000000000000007F8000000000000000000000000000000000X
                                                       00000000000000000000000000000000
000240 00000008                      62+         DC    F'8'
000244 3000                          63+         DC    AL2(12288)
000246 2001                          64+         DC    AL2(8193)
                                     65+         DC    X'000000000000000000007F80000000000000000000000000000000X
000248 0000000000000000                +               0000000000000000000000000000000000'
                                     66  SGIEF012 48,24,                                                  XXXXXXXX
                                                       00000000000000000000007F80007F80001FE0000000000000000000X
                                                       00000000000000000000000000000000
000274 00000018                      67+         DC    F'24'
000278 30C0                          68+         DC    AL2(12480)
00027A 2008                          69+         DC    AL2(8200)
                                     70+         DC    X'00000000000000000000007F80007F80001FE00000000000000000X
00027C 0000000000000000                +               0000000000000000000000000000000000'
                                     71  SGIEF012 49,48,                                                  XXXXXXXX
                                                       0000000000000000000000007FFF807FFF801FFFE000000000000000X
                                                       00000000000000000000000000000000
0002A8 00000030                      72+         DC    F'48'
0002AC 3050                          73+         DC    AL2(12368)
0002AE 2009                          74+         DC    AL2(8201)
                                     75+         DC    X'0000000000000000000000007FFF807FFF801FFFE0000000000000X
0002B0 0000000000000000                +               0000000000000000000000000000000000'
                                     76  SGIEF012 8,16,                                                  XXXXXXXX
                                                       0000000000000000000000000000000000000000001FFFE000000000X
                                                       00000000000000000000000000000000
0002DC 00000010                      77+         DC    F'16'
0002E0 3210                          78+         DC    AL2(12816)
0002E2 8003                          79+         DC    AL2(32771)
                                     80+         DC    X'0000000000000000000000000000000000000000001FFFE0000000X
0002E4 0000000000000000                +               0000000000000000000000000000000000'
                                     81  SGIEF012 2,51,                                                  XXXXXXXX
                                                       00000000000000000000000000000000000000000000001FFFFFFFFFX
                                                       FFFC0000000000000000000000000000
000310 00000033                      82+         DC    F'51'
000314 3080                          83+         DC    AL2(12416)
000316 8001                          84+         DC    AL2(32769)
                                     85+         DC    X'00000000000000000000000000000000000000000000001FFFFFFFX
000318 0000000000000000                +               FFFFFC0000000000000000000000000000'
000344 00000010                      86         DC        F'16'
000348 34008001                      87         DC        X'34008001'
00034C 0000000000000000              88    DC  X'0000000000000000000000000000000000000000001FFFE000000000'
000368 0000000000000000              89    DC  X'00000000000000000000000000000000'
000378 00000010                      90         DC        F'16'
00037C 34008003                      91         DC        X'34008003'
000380 0000000000000000              92    DC  X'0000000000000000000000000000000000000000001FFFE000000000'
00039C 0000000000000000              93    DC  X'00000000000000000000000000000000'
0003AC 00000010                      94         DC        F'16'
0003B0 32008003                      95         DC        X'32008003'
0003B4 0000000000000000              96    DC  X'0000000000000000000000000000000000000000001FFFE000000000'
0003D0 0000000000000000              97    DC  X'00000000000000000000000000000000'
                                     98  SGIEF013 16,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
                                     99  SGIEF012 0,16,                                                      XXXX
                                                       0000000000000000000000000000000000000000001FFFE000000000X
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                                       00000000000000000000000000000000
0003E0 00000010                     100+         DC    F'16'
0003E4 0001                         101+         DC    AL2(1)
0003E6 8000                         102+         DC    AL2(32768)
                                    103+         DC    X'0000000000000000000000000000000000000000001FFFE0000000X
0003E8 0000000000000000                +               0000000000000000000000000000000000'
                                    104  SGIEF013 16,11,11,11,11,11,11,11,11,48,48,48,48,48,48,48,48
                                    105  SGIEF013 32,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    106  SGIEF013 48,48,48,48,48,48,48,48,48,49,49,49,49,49,49,49,49
                                    107  SGIEF013 64,49,49,49,49,49,49,49,49,48,48,48,48,48,48,48,48
                                    108  SGIEF013 80,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    109  SGIEF012 0,80,                                                      XXXX
                                                       000000000000000000007FFFFFFFFFFFFF9FFFFFE000000000000000X
                                                       00000000000000000000000000000000
000414 00000050                     110+         DC    F'80'
000418 0002                         111+         DC    AL2(2)
00041A 2000                         112+         DC    AL2(8192)
                                    113+         DC    X'000000000000000000007FFFFFFFFFFFFF9FFFFFE0000000000000X
00041C 0000000000000000                +               0000000000000000000000000000000000'
                                    114  SGIEF013 16,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    115  SGIEF013 32,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    116  SGIEF013 48,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    117  SGIEF012 0,48,                                                      XXXX
                                                       0000000000000000000000007FFF807FFF801FFFE000000000000000X
                                                       00000000000000000000000000000000
000448 00000030                     118+         DC    F'48'
00044C 0003                         119+         DC    AL2(3)
00044E 2000                         120+         DC    AL2(8192)
                                    121+         DC    X'0000000000000000000000007FFF807FFF801FFFE0000000000000X
000450 0000000000000000                +               0000000000000000000000000000000000'
                                    122  SGIEF013 16,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    123  SGIEF013 32,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    124  SGIEF013 48,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    125  SGIEF012 0,48,                                                      XXXX
                                                       0000000000000000000000007FFF807FFF801FFFE000000000000000X
                                                       00000000000000000000000000000000
00047C 00000030                     126+         DC    F'48'
000480 0004                         127+         DC    AL2(4)
000482 2000                         128+         DC    AL2(8192)
                                    129+         DC    X'0000000000000000000000007FFF807FFF801FFFE0000000000000X
000484 0000000000000000                +               0000000000000000000000000000000000'
                                    130  SGIEF013 16,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    131  SGIEF013 32,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    132  SGIEF013 48,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49
                                    133  SGIEF012 0,48,                                                      XXXX
                                                       0000000000000000000000007FFF807FFF801FFFE000000000000000X
                                                       00000000000000000000000000000000
0004B0 00000030                     134+         DC    F'48'
0004B4 0005                         135+         DC    AL2(5)
0004B6 2000                         136+         DC    AL2(8192)
                                    137+         DC    X'0000000000000000000000007FFF807FFF801FFFE0000000000000X
0004B8 0000000000000000                +               0000000000000000000000000000000000'
                                    138  SGIEF013 16,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48
                                    139  SGIEF013 24,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48
                                    140  SGIEF012 0,24,                                                      XXXX
                                                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                                       00000000000000000000007F80007F80001FE0000000000000000000X
                                                       00000000000000000000000000000000
0004E4 00000018                     141+         DC    F'24'
0004E8 0006                         142+         DC    AL2(6)
0004EA 2000                         143+         DC    AL2(8192)
                                    144+         DC    X'00000000000000000000007F80007F80001FE00000000000000000X
0004EC 0000000000000000                +               0000000000000000000000000000000000'
                                    145  SGIEF013 16,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48
                                    146  SGIEF013 24,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48
                                    147  SGIEF012 0,24,                                                      XXXX
                                                       00000000000000000000007F80007F80001FE0000000000000000000X
                                                       00000000000000000000000000000000
000518 00000018                     148+         DC    F'24'
00051C 0007                         149+         DC    AL2(7)
00051E 2000                         150+         DC    AL2(8192)
                                    151+         DC    X'00000000000000000000007F80007F80001FE00000000000000000X
000520 0000000000000000                +               0000000000000000000000000000000000'
                                    152  SGIEF013 16,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48
                                    153  SGIEF013 24,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48
                                    154  SGIEF012 0,24,                                                      XXXX
                                                       00000000000000000000007F80007F80001FE0000000000000000000X
                                                       00000000000000000000000000000000
00054C 00000018                     155+         DC    F'24'
000550 0008                         156+         DC    AL2(8)
000552 2000                         157+         DC    AL2(8192)
                                    158+         DC    X'00000000000000000000007F80007F80001FE00000000000000000X
000554 0000000000000000                +               0000000000000000000000000000000000'
                                    159  SGIEF013 8,69,69,69,69,69,69,69,69,48,48,48,48,48,48,48,48
                                    160  SGIEF012 0,8,                                                      XXXX
                                                       000000007F8000000000000000000000000000000000000000000000X
                                                       00000000000000000000000000000000
000580 00000008                     161+         DC    F'8'
000584 0009                         162+         DC    AL2(9)
000586 4000                         163+         DC    AL2(16384)
                                    164+         DC    X'000000007F80000000000000000000000000000000000000000000X
000588 000000007F800000                +               0000000000000000000000000000000000'
                                    165  SGIEF013 8,70,70,70,70,70,70,70,70,48,48,48,48,48,48,48,48
                                    166  SGIEF012 0,8,                                                      XXXX
                                                       00000000007F80000000000000000000000000000000000000000000X
                                                       00000000000000000000000000000000
0005B4 00000008                     167+         DC    F'8'
0005B8 000A                         168+         DC    AL2(10)
0005BA 4000                         169+         DC    AL2(16384)
                                    170+         DC    X'00000000007F800000000000000000000000000000000000000000X
0005BC 00000000007F8000                +               0000000000000000000000000000000000'
                                    171  SGIEF013 8,71,71,71,71,71,71,71,71,48,48,48,48,48,48,48,48
                                    172  SGIEF012 0,8,                                                      XXXX
                                                       0000000000007F800000000000000000000000000000000000000000X
                                                       00000000000000000000000000000000
0005E8 00000008                     173+         DC    F'8'
0005EC 000B                         174+         DC    AL2(11)
0005EE 4000                         175+         DC    AL2(16384)
                                    176+         DC    X'0000000000007F8000000000000000000000000000000000000000X
0005F0 0000000000007F80                +               0000000000000000000000000000000000'
                                    177  SGIEF013 16,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    178  SGIEF013 32,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    179  SGIEF013 48,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    180  SGIEF012 0,48,                                                      XXXX
                                                       000000000000000000000000000000000000000000000003FFFFFFFFX
                                                       FFFC0000000000000000000000000000
00061C 00000030                     181+         DC    F'48'
000620 000C                         182+         DC    AL2(12)
000622 8000                         183+         DC    AL2(32768)
                                    184+         DC    X'000000000000000000000000000000000000000000000003FFFFFFX
000624 0000000000000000                +               FFFFFC0000000000000000000000000000'
                                    185  SGIEF013 1,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    186  SGIEF012 0,15,                                                      XXXX
                                                       00000000000000000000000000000000000000000000000000000000X
                                                       0001FFFC000000000000000000000000
000650 0000000F                     187+         DC    F'15'
000654 000D                         188+         DC    AL2(13)
000656 0000                         189+         DC    AL2(0)
                                    190+         DC    X'000000000000000000000000000000000000000000000000000000X
000658 0000000000000000                +               000001FFFC000000000000000000000000'
                                    191  SGIEF013 1,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    192  SGIEF012 0,47,                                                      XXXX
                                                       00000000000000000000000000000000000000000000000000000000X
                                                       00000001FFFFFFFFFFFC000000000000
000684 0000002F                     193+         DC    F'47'
000688 000E                         194+         DC    AL2(14)
00068A 0000                         195+         DC    AL2(0)
                                    196+         DC    X'000000000000000000000000000000000000000000000000000000X
00068C 0000000000000000                +               0000000001FFFFFFFFFFFC000000000000'
                                    197  SGIEF013 1,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    198  SGIEF012 0,16,                                                      XXXX
                                                       00000000000000000000000000000000000000000000000000000000X
                                                       00000000000000000003FFFC00000000
0006B8 00000010                     199+         DC    F'16'
0006BC 000F                         200+         DC    AL2(15)
0006BE 0000                         201+         DC    AL2(0)
                                    202+         DC    X'000000000000000000000000000000000000000000000000000000X
0006C0 0000000000000000                +               0000000000000000000003FFFC00000000'
                                    203  SGIEF013 1,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
                                    204  SGIEF012 0,16,                                                      XXXX
                                                       00000000000000000000000000000000000000000000000000000000X
                                                       000000000000000000000003FFFC0000
0006EC 00000010                     205+         DC    F'16'
0006F0 0010                         206+         DC    AL2(16)
0006F2 0000                         207+         DC    AL2(0)
                                    208+         DC    X'000000000000000000000000000000000000000000000000000000X
0006F4 0000000000000000                +               00000000000000000000000003FFFC0000'
                                    209  SGIEF013 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
                                    210  SGIEF012 0,80,                                                      XXXX
                                                       000000000000000000007FFFFFFFFFFFFF9FFFFFE000000000000000X
                                                       00000000000000000000000000000000
000720 00000050                     211+         DC    F'80'
000724 0011                         212+         DC    AL2(17)
000726 0000                         213+         DC    AL2(0)
                                    214+         DC    X'000000000000000000007FFFFFFFFFFFFF9FFFFFE0000000000000X
000728 0000000000000000                +               0000000000000000000000000000000000'
                                                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    215           END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DEVMASKT 00001 000000 00002



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =   166      SOURCE RECORDS (SYSLIB) =    62
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  356 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21AM45.R0000179      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21AM45.S0000180      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21AM45.S0000180      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG46    / START 78240.1945
IEF374I STEP /SG46    / STOP  78240.1945 CPU   0MIN 00.44SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:48.19   ALLOC START    19:45:48.20   MAIN REGION ----- 300K                          *
*   STEP NAME SG46       STEP END TIME  19:45:48.75   PGM START TIME 19:45:48.27   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.56   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.44   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 6       0250 ------------ 0       0250 ------------ 0       0151 ---------- 128       0151 ----------- 27    *
*   0151 ---------- 207       0353 ----------- 45       0151 ----------- 36       0130 ---------- 168                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21AM45  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:48.78   ALLOC START    19:45:48.79   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:48.81   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21AM45 / START 78240.1945
IEF376I  JOB /R21AM45 / STOP  78240.1945 CPU   0MIN 00.44SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21AM45    JOB READ TIME 19:45:02.23   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.44   *
*   JOB CLASS A          JOB INIT TIME 19:45:48.19   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.63   *
*   ACCOUNT              JOB END TIME  19:45:48.82   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     TTTTTTTT       A           44         66                              A
            RRRRRRRRR  222222222      11     TTTTTTTT      AAA         444        66                              AAA
            RR     RR  22     22     111        TT        AA AA       4444       66                              AA AA
            RR     RR        22       11        TT       AA   AA     44 44      66                              AA   AA
            RRRRRRRRR       22        11        TT      AA     AA   44  44     6666666                         AA     AA
            RRRRRRRR       22         11        TT      AA     AA  44   44    666666666                        AA     AA
            RR  RR        22          11        TT      AAAAAAAAA  444444444  66     66                        AAAAAAAAA
            RR   RR      22           11        TT      AAAAAAAAA  444444444  66     66                        AAAAAAAAA
            RR    RR    22222222    111111      TT      AA     AA       44    666666666                        AA     AA
            RR     RR  222222222    111111      TT      AA     AA       44     6666666                         AA     AA

***********A  START   R21TA46    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA46    START  A***********
***********A  START   R21TA46    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA46    START  A***********
***********A  START   R21TA46    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA46    START  A***********
***********A  START   R21TA46    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA46    START  A***********
***********A  START   R21TA46    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA46    START  A***********


//R21TA46 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG47 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(4,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.TSOGEN,DISP=(SHR,PASS)
//  DD DSN=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.TSOMAC,DISP=(SHR,PASS),VOLUME=(,RETAIN)
// DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//            DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//            SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IKJEFLP0)
//SYSIN DD *
IEF236I ALLOC. FOR R21TA46  SG47
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IKJEFLP0  SD  01 000000 00000C
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1      PRINT  ON,NODATA
                                      2     SGIKJ0LP 3000,10
000000                                3+IKJEFLP0 CSECT
000000 00000000                       4+         DC    F'0' RESERVED
000004 00000BB8                       5+LOGTIME2 DC    F'3000' TIME INTERVAL FOR LOGON IN PROCESS MSG
000008 0000000A                       6+LOGLINES DC    F'10' LIMIT OF UNSUCESSFULL LOGON ATTEMPTS
                                      7          END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IKJEFLP0 00001 000000 00003
LOGLINES 00004 000008 00006
LOGTIME2 00004 000004 00005



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =     7
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   22 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.TSOGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21TA46.R0000181      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21TA46.S0000182      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21TA46.S0000182      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG47    / START 78240.1945
IEF374I STEP /SG47    / STOP  78240.1945 CPU   0MIN 00.11SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:48.84   ALLOC START    19:45:48.85   MAIN REGION ----- 300K                          *
*   STEP NAME SG47       STEP END TIME  19:45:49.10   PGM START TIME 19:45:48.94   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.26   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.11   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 2       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0    *
*   0151 ----------- 11       0151 ----------- 11       0151 ------------ 8       0158 ------------ 3       0151 ------------ 3    *
*   0130 ------------ 5                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21TA46  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:49.12   ALLOC START    19:45:49.13   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:49.15   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.TSOGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21TA46 / START 78240.1945
IEF376I  JOB /R21TA46 / STOP  78240.1945 CPU   0MIN 00.11SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21TA46    JOB READ TIME 19:45:03.06   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.11   *
*   JOB CLASS A          JOB INIT TIME 19:45:48.84   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.33   *
*   ACCOUNT              JOB END TIME  19:45:49.17   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     TTTTTTTT       A           44    777777777                            A
            RRRRRRRRR  222222222      11     TTTTTTTT      AAA         444    777777777                           AAA
            RR     RR  22     22     111        TT        AA AA       4444    77     77                          AA AA
            RR     RR        22       11        TT       AA   AA     44 44          77                          AA   AA
            RRRRRRRRR       22        11        TT      AA     AA   44  44         77                          AA     AA
            RRRRRRRR       22         11        TT      AA     AA  44   44        77                           AA     AA
            RR  RR        22          11        TT      AAAAAAAAA  444444444     77                            AAAAAAAAA
            RR   RR      22           11        TT      AAAAAAAAA  444444444     77                            AAAAAAAAA
            RR    RR    22222222    111111      TT      AA     AA       44       77                            AA     AA
            RR     RR  222222222    111111      TT      AA     AA       44       77                            AA     AA

***********A  START   R21TA47    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA47    START  A***********
***********A  START   R21TA47    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA47    START  A***********
***********A  START   R21TA47    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA47    START  A***********
***********A  START   R21TA47    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA47    START  A***********
***********A  START   R21TA47    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA47    START  A***********


//R21TA47 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG48 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(4,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.TSOGEN,DISP=(SHR,PASS)
//  DD DSN=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.TSOMAC,DISP=(SHR,PASS),VOLUME=(,RETAIN)
// DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//            DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//            SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IKJEBEPD)
//SYSIN DD *
IEF236I ALLOC. FOR R21TA47  SG48
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IKJEBEPD  SD  01 000000 0006A7
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1      PRINT  ON,NODATA
                                      2   SGIKJ0EB  DSTYPE=(PLIF,FORTE,FORTG,FORTH,TEXT,DATA,CLIST,            X
                                                       CNTL,ASM,COBOL,FORTGI,GOFORT,BASIC,IPLI,PLI,            X
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ),                                              XXXXXXXXX
                                                       BLKSIZE=(400,                                      XXXXXXXXX
                                                       400,                                               XXXXXXXXX
                                                       400,                                               XXXXXXXXX
                                                       400,                                               XXXXXXXXX
                                                       1680,                                               XXXXXXXXX
                                                       1680,                                               XXXXXXXXX
                                                       1680,                                               XXXXXXXXX
                                                       1680,                                               XXXXXXXXX
                                                       1680,                                               XXXXXXXXX
                                                       400,                                               XXXXXXXXX
                                                       400,                                               XXXXXXXXX
                                                       1680,                                               XXXXXXXXX
                                                       1680,                                               XXXXXXXXX
                                                       1680,                                               XXXXXXXXX
                                                       400,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0),                                              XXXXXXXXX
                                                       RECFM=(FXDONLY,                                        XXXXXXXXX
                                                       FXDONLY,                                               XXXXXXXXX
                                                       FXDONLY,                                               XXXXXXXXX
                                                       FXDONLY,                                               XXXXXXXXX
                                                       VAR,                                               XXXXXXXXX
                                                       FIXED,                                               XXXXXXXXX
                                                       VAR,                                               XXXXXXXXX
                                                       FXDONLY,                                               XXXXXXXXX
                                                       FXDONLY,                                               XXXXXXXXX
                                                       FXDONLY,                                               XXXXXXXXX
                                                       FXDONLY,                                               XXXXXXXXX
                                                       VAR,                                               XXXXXXXXX
                                                       VAR,                                               XXXXXXXXX
                                                       VAR,                                               XXXXXXXXX
                                                       VAR,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ),                                              XXXXXXXXX
                                                       DLRECLF=(80,                                      XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0),                                              XXXXXXXXX
                                                       MLRECLF=(100,                                      XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       255,                                               XXXXXXXXX
                                                       255,                                               XXXXXXXXX
                                                       255,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       80,                                               XXXXXXXXX
                                                       255,                                               XXXXXXXXX
                                                       120,                                               XXXXXXXXX
                                                       120,                                               XXXXXXXXX
                                                       100,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0),                                              XXXXXXXXX
                                                       DLRECLV=(0,                                      XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       255,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       255,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       255,                                               XXXXXXXXX
                                                       120,                                               XXXXXXXXX
                                                       120,                                               XXXXXXXXX
                                                       104,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0),                                              XXXXXXXXX
                                                       MLRECLV=(0,                                      XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       255,                                               XXXXXXXXX
                                                       255,                                               XXXXXXXXX
                                                       255,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       255,                                               XXXXXXXXX
                                                       120,                                               XXXXXXXXX
                                                       120,                                               XXXXXXXXX
                                                       104,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0,                                               XXXXXXXXX
                                                       0),                                              XXXXXXXXX
                                                       TRNSLT=(CAPSONLY,                                       XXXXXXXXX
                                                       CAPSONLY,                                               XXXXXXXXX
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                                       CAPSONLY,                                               XXXXXXXXX
                                                       CAPSONLY,                                               XXXXXXXXX
                                                       ASIS,                                               XXXXXXXXX
                                                       CAPS,                                               XXXXXXXXX
                                                       CAPSONLY,                                               XXXXXXXXX
                                                       CAPSONLY,                                               XXXXXXXXX
                                                       CAPSONLY,                                               XXXXXXXXX
                                                       CAPSONLY,                                               XXXXXXXXX
                                                       CAPSONLY,                                               XXXXXXXXX
                                                       CAPS,                                               XXXXXXXXX
                                                       CAPSONLY,                                               XXXXXXXXX
                                                       CAPSONLY,                                               XXXXXXXXX
                                                       CAPS,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ),                                              XXXXXXXXX
                                                       CHKR=(PLIFSCAN,                                         XXXXXXXXX
                                                       IPDSNEXC,                                               XXXXXXXXX
                                                       IPDSNEXC,                                               XXXXXXXXX
                                                       IPDSNEXC,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       IPDSNEXC,                                               XXXXXXXXX
                                                       IPDSNEXC,                                               XXXXXXXXX
                                                       IKJNC211,                                               XXXXXXXXX
                                                       IKJNC211,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ),                                              XXXXXXXXX
                                                       USREXT=(,,,,,,,,,,,,,,,                                 X
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ),                                              XXXXXXXXX
                                                       PRMTR=(,                                        XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ASM,                                               XXXXXXXXX
                                                       COBOL,                                               XXXXXXXXX
                                                       FORT,                                               XXXXXXXXX
                                                       GOFORT,                                               XXXXXXXXX
                                                       IKJNC211,                                               XXXXXXXXX
                                                       IKJNC211,                                               XXXXXXXXX
                                                       PLIC,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ),                                              XXXXXXXXX
                                                       DSNSRC=(DATASET,                                       XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       INCORE,                                               XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       DATASET,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       )
000000                                3+IKJEBEPD CSECT
                                                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      4+***********************************************************************
                                      5+*                                                                     *
                                      6+*STATUS  --  VERSION NO. 01, O/S RELEASE NO. 20.                      *
                                      7+*                                                                     *
                                      8+*FUNCTION  --  THIS MODULE CONSISTS SOLELY OF A TABLE OF CONSTANTS    *
                                      9+*   CORRESPONDING TO THE SUNDRY DATA SET TYPES.                       *
                                     10+*                                                                     *
                                     11+*   IKJEBEPS & IKJEBEPD ARE THE 1ST & 2ND CSECTS, RESP., OF A TWO-    *
                                     12+*   CSECT LOAD MODULE.                                                *
                                     13+*                                                                     *
                                     14+*ENTRY POINTS, INPUT, OUTPUT, EXTERNAL REFERENCES, EXITS, NORMAL, AND *
                                     15+*EXITS,ERROR  --  DO NOT APPLY.                                       *
                                     16+*                                                                     *
                                     17+*TABLES/WORK AREAS -- IKJEBEPD, THE PROCESSOR DATA TABLE.             *
                                     18+*   EACH ENTRY IS 74 BYTES LONG & BEGINS WITH AN 8-BYTE DATA     A45714
                                     19+*   SET TYPE NAME, FOLLOWED BY A DATA SET NAME QUALIFIER, BOTH LEFT-  *
                                     20+*   JUSTIFIED AND PADDED TO THE RIGHT WITH BLANKS.  AT SYSTEM    A45714
                                     21+*   GENERATION TIME UPTO 10 NEW USER DATA SET TYPES MAY BE ADDED A45714
                                     22+*   AND THE FOLLOWING DEFAULT ATTRIBUTES OF BOTH THE USER AND THE     *
                                     23+*   IBM SUPPORTED DATA SET TYPES MAY BE MODIFIED: DEFAULT BLOCK       *
                                     24+*   SIZE, DEFAULT RECORD FORMAT, DEFAULT AND MAXIMUM LOGICAL RECORD   *
                                     25+*   LENGTH, DEFAULT CHARACTER CONVERSION, SYNTAX CHECKER NAME,        *
                                     26+*   PROMPTER NAME, USER EXIT NAME(USER DATA SET TYPES ONLY), AND      *
                                     27+*   PROMPTER INPUT SOURCE.  DATA SET TYPE CODES LESS THAN X'33'       *
                                     28+*   (DEC. 51) INDICATE THE DATA SET TYPES WHICH ARE EDITABLE.    A45714
                                     29+*   CODES LESS THAN X'15'(DEC.21)INDICATE STANDARD EDIT DATA SET A45714
                                     30+*   TYPES.  CODES GREATER THAN X'14'(DEC.20) AND LESS THAN X'1F' A45714
                                     31+*   (DEC.31)INDICATE STANDARD EDIT DATA SET TYPES WHOSE PROMPTERSA45714
                                     32+*   ARE IBM PROGRAM PRODUCTS.  CODES GREATER THAN X'1E'(DEC. 30) A45714
                                     33+*   AND LESS THAN X'23' (DEC. 35) INDICATE DATA SET TYPES WHOSE  A45714
                                     34+*   COMPILERS AND SYNTAX CHECKERS ARE IBM PROGRAM PRODUCTS.      A45714
                                     35+*   CODES GREATER THAN X'22'(DEC.34) AND LESS THAN X'33 (DEC.51) A45714
                                     36+*   INDICATE USER DATA SET TYPES SUPPLIED AT SYSGEN TIME.        A45714
                                     37+*                                                                     *
                                     38+*              FIELD                        LENGTH(BYTES)             *
                                     39+*                                                                     *
                                     40+*              DATA SET TYPE                8                         *
                                     41+*              DSNAME QUALIFIER             8                         *
                                     42+*              DEFAULT BLOCK SIZE           2                         *
                                     43+*              LINE NO. OFFSET              1                         *
                                     44+*              LINE NO. LENGTH              1                         *
                                     45+*              TABULATION SETTINGS         12                         *
                                     46+*              SYNTAX CHECKER NAME          8                         *
                                     47+*              DATA SET TYPE CODE           1                         *
                                     48+*              DATA SET ATTRIBUTES          1                         *
                                     49+*              DATA SET ATTRIBUTES2         1                         *
                                     50+*              RECORD FORMAT DEFAULT        1                         *
                                     51+*              F FORMAT LENGTH DEFAULT      2                         *
                                     52+*              F FORMAT LENGTH MAXIMUM      2                         *
                                     53+*              V FORMAT LENGTH DEFAULT      2                         *
                                     54+*              V FORMAT LENGTH MAXIMUM      2                         *
                                     55+*              U FORMAT LENGTH DEFAULT      2                         *
                                     56+*              U FORMAT LENGTH MAXIMUM      2                         *
                                     57+*              SYNTAX CHECKER OPT. BYTES    2                    A45714
                                     58+*              PROMPTER NAME                8                         *
                                                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     59+*              USER EXIT NAME               8                    A45714
                                     60+*                                                                     *
                                     61+*ATTRIBUTES  --  NON-EXECUTABLE.                                      *
                                     62+*                                                                     *
                                     63+*NOTES  --  THE SYNTAX-CHECKER-NAME FIELD MUST BE ON A DOUBLEWORD     *
                                     64+*   BOUNDARY IN EACH TABLE ENTRY.                                     *
                                     65+*   THERE IS CHARACTER-CODE INDEPENDENCE.                             *
                                     66+*                                                                     *
                                     67+***********************************************************************


                                     70+***********************************************************************
                                     71+*                                                                     *
                                     72+*                               EQUATES                               *
                                     73+*                                                                     *
                                     74+***********************************************************************

                                     76+* DATA SET ATTRIBUTES

000008                               78+CCMUSTAY EQU   X'08' -   CONTINUATION CHAR MUST REMAIN IN RCD
000004                               79+LINUMREQ EQU   X'04' -   DATA SET MUST BE LINE-NUMBERED
000002                               80+LRLDFREQ EQU   X'02' -   DEFAULT LRECL IS REQUIRED
000080                               81+RUNOK    EQU   X'80' -   DATA SET IS EXECUTABLE UNDER EDIT
000040                               82+SNTXCKOK EQU   X'40' -   SYNTAX CHECKING IS AVAILABLE
000020                               83+CAPSREQ  EQU   X'20' -   "CAPS" ATTRIBUTE IS REQUIRED
000010                               84+DFALTCAP EQU   X'10' -   "CAPS" IS A DEFAULT ATTRIBUTE

                                     86+* DATA SET ATTRIBUTES2

000080                               88+NUMINTAB EQU   X'80' -   LINE NO. LNG IS INCLUDED IN TAB VALUE
000040                               89+DFALTYPE EQU   X'40' -   DSTYPE IS DEFAULT FOR THIS DSNAME QUALIFIER
000020                               90+RUNOBGEN EQU   X'20' -   OBJECT DATA SET GENERATED AT RUN TIME.
000010                               91+INCOREDS EQU   X'10' -   INCORE INPUT ACCEPTABLE AT RUN TIME.    A45714

                                     93+* RECORD FORMAT DEFAULT

000080                               95+FMTDFALF EQU   X'80' -   FIXED FORMAT IS DEFAULT
000040                               96+FMTDFALV EQU   X'40' -   VARIABLE FORMAT IS DEFAULT
0000C0                               97+FMTDFALU EQU   X'C0' -   UNDEFINED FORMAT IS DEFAULT

                                     99+***********************************************************************
                                    100+*                                                                     *
                                    101+*                        PROCESSOR DATA TABLE                         *
                                    102+*                                                                     *
                                    103+***********************************************************************

000000                              105+TABLE    EQU   *
000000 D7D3C9C640404040             106+         DC    CL8'PLIF' -            DATA SET TYPE       A45714
000008 D7D3C94040404040             107+         DC    CL8'PLI' -                    DSNAME QUALIFIER    A45714
000010 0190                         108+         DC    HL2'400' -           DEFAULT BLOCK SIZE  A45714
000012 49                           109+         DC    AL1(73) -                 LINE NO. OFFSET     A45714
000013 08                           110+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
000014 FF                           111+         DC    X'FF' A45714
000015 050A0F14191E2328             112+         DC    FL1'5,10,15,20,25,30,35,40,45,50' A45714
00001F 00                           113+         DC    X'0' A45714
                                                                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020 D7D3C9C6E2C3C1D5             114+         DC    CL8'PLIFSCAN' -              SYNTAX CHECKER NAME A45714
000028 01                           115+         DC    AL1(1) -              DATA SET TYPE CODE  A45714
000029 70                           116+         DC    AL1(112) -             DATA SET ATTRIBUTE1 A45714
00002A 00                           117+         DC    AL1(0) -             DATA SET ATTRIBUTE2 A45714
00002B 80                           118+         DC    AL1(FMTDFALF) -               RECORD FORMAT DFLT  A45714
00002C 0050                         119+         DC    HL2'80' -           F FORMAT LRECL DFLT A45714
00002E 0064                         120+         DC    HL2'100' -           F FORMAT LRECL MAX  A45714
000030 0000                         121+         DC    HL2'0' -           V FORMAT LRECL DFLT A45714
000032 0000                         122+         DC    HL2'0' -           V FORMAT LRECL MAX  A45714
000034 0000                         123+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
000036 0000                         124+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
000038 0248                         125+         DC    XL2'0248' -            CHECKER OPT. BYTES  A45714
00003A 0000000000000000             126+         DC    8X'0' -                       PROMPTER NAME       A45714
000042 0000000000000000             127+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    128+*--------------------------------------------------------------- A45714
00004A C6D6D9E3C5404040             129+         DC    CL8'FORTE' -            DATA SET TYPE       A45714
000052 C6D6D9E340404040             130+         DC    CL8'FORT' -                   DSNAME QUALIFIER    A45714
00005A 0190                         131+         DC    HL2'400' -           DEFAULT BLOCK SIZE  A45714
00005C 49                           132+         DC    AL1(73) -                 LINE NO. OFFSET     A45714
00005D 08                           133+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
00005E FF                           134+         DC    X'FF' A45714
00005F 0748                         135+         DC    FL1'7,72' -                   TABULATION SETTINGS A45714
000061 0000000000000000             136+         DC    9X'0' A45714
00006A C9D7C4E2D5C5E7C3             137+         DC    CL8'IPDSNEXC' -              SYNTAX CHECKER NAME A45714
000072 02                           138+         DC    AL1(2) -              DATA SET TYPE CODE  A45714
000073 72                           139+         DC    AL1(114) -             DATA SET ATTRIBUTE1 A45714
000074 00                           140+         DC    AL1(0) -             DATA SET ATTRIBUTE2 A45714
000075 80                           141+         DC    AL1(FMTDFALF) -               RECORD FORMAT DFLT  A45714
000076 0050                         142+         DC    HL2'80' -           F FORMAT LRECL DFLT A45714
000078 0050                         143+         DC    HL2'80' -           F FORMAT LRECL MAX  A45714
00007A 0000                         144+         DC    HL2'0' -           V FORMAT LRECL DFLT A45714
00007C 0000                         145+         DC    HL2'0' -           V FORMAT LRECL MAX  A45714
00007E 0000                         146+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
000080 0000                         147+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
000082 0101                         148+         DC    XL2'0101' -            CHECKER OPT. BYTES  A45714
000084 0000000000000000             149+         DC    8X'0' -                       PROMPTER NAME       A45714
00008C 0000000000000000             150+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    151+*--------------------------------------------------------------- A45714
000094 C6D6D9E3C7404040             152+         DC    CL8'FORTG' -            DATA SET TYPE       A45714
00009C C6D6D9E340404040             153+         DC    CL8'FORT' -                   DSNAME QUALIFIER    A45714
0000A4 0190                         154+         DC    HL2'400' -           DEFAULT BLOCK SIZE  A45714
0000A6 49                           155+         DC    AL1(73) -                 LINE NO. OFFSET     A45714
0000A7 08                           156+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
0000A8 FF                           157+         DC    X'FF' A45714
0000A9 0748                         158+         DC    FL1'7,72' -                   TABULATION SETTINGS A45714
0000AB 0000000000000000             159+         DC    9X'0' A45714
0000B4 C9D7C4E2D5C5E7C3             160+         DC    CL8'IPDSNEXC' -              SYNTAX CHECKER NAME A45714
0000BC 03                           161+         DC    AL1(3) -              DATA SET TYPE CODE  A45714
0000BD 72                           162+         DC    AL1(114) -             DATA SET ATTRIBUTE1 A45714
0000BE 00                           163+         DC    AL1(0) -             DATA SET ATTRIBUTE2 A45714
0000BF 80                           164+         DC    AL1(FMTDFALF) -               RECORD FORMAT DFLT  A45714
0000C0 0050                         165+         DC    HL2'80' -           F FORMAT LRECL DFLT A45714
0000C2 0050                         166+         DC    HL2'80' -           F FORMAT LRECL MAX  A45714
0000C4 0000                         167+         DC    HL2'0' -           V FORMAT LRECL DFLT A45714
0000C6 0000                         168+         DC    HL2'0' -           V FORMAT LRECL MAX  A45714
                                                                                                               PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000C8 0000                         169+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
0000CA 0000                         170+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
0000CC 0202                         171+         DC    XL2'0202' -            CHECKER OPT. BYTES  A45714
0000CE 0000000000000000             172+         DC    8X'0' -                       PROMPTER NAME       A45714
0000D6 0000000000000000             173+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    174+*--------------------------------------------------------------- A45714
0000DE C6D6D9E3C8404040             175+         DC    CL8'FORTH' -            DATA SET TYPE       A45714
0000E6 C6D6D9E340404040             176+         DC    CL8'FORT' -                   DSNAME QUALIFIER    A45714
0000EE 0190                         177+         DC    HL2'400' -           DEFAULT BLOCK SIZE  A45714
0000F0 49                           178+         DC    AL1(73) -                 LINE NO. OFFSET     A45714
0000F1 08                           179+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
0000F2 FF                           180+         DC    X'FF' A45714
0000F3 0748                         181+         DC    FL1'7,72' -                   TABULATION SETTINGS A45714
0000F5 0000000000000000             182+         DC    9X'0' A45714
0000FE C9D7C4E2D5C5E7C3             183+         DC    CL8'IPDSNEXC' -              SYNTAX CHECKER NAME A45714
000106 04                           184+         DC    AL1(4) -              DATA SET TYPE CODE  A45714
000107 72                           185+         DC    AL1(114) -             DATA SET ATTRIBUTE1 A45714
000108 00                           186+         DC    AL1(0) -             DATA SET ATTRIBUTE2 A45714
000109 80                           187+         DC    AL1(FMTDFALF) -               RECORD FORMAT DFLT  A45714
00010A 0050                         188+         DC    HL2'80' -           F FORMAT LRECL DFLT A45714
00010C 0050                         189+         DC    HL2'80' -           F FORMAT LRECL MAX  A45714
00010E 0000                         190+         DC    HL2'0' -           V FORMAT LRECL DFLT A45714
000110 0000                         191+         DC    HL2'0' -           V FORMAT LRECL MAX  A45714
000112 0000                         192+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
000114 0000                         193+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
000116 0002                         194+         DC    XL2'0002' -            CHECKER OPT. BYTES  A45714
000118 0000000000000000             195+         DC    8X'0' -                       PROMPTER NAME       A45714
000120 0000000000000000             196+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    197+*--------------------------------------------------------------- A45714
000128 E3C5E7E340404040             198+         DC    CL8'TEXT' -            DATA SET TYPE       A45714
000130 E3C5E7E340404040             199+         DC    CL8'TEXT' -            DSNAME QUALIFIER    A45714
000138 0690                         200+         DC    HL2'1680' -           DEFAULT BLOCK SIZE  A45714
00013A 01                           201+         DC    FL1'1' -                      LINE NO. OFFSET     A45714
00013B 08                           202+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
00013C FF                           203+         DC    X'FF' A45714
00013D 050A0F141E28                 204+         DC    FL1'5,10,15,20,30,40' -       TABULATION SETTINGS A45714
000143 0000000000                   205+         DC    5X'0' A45714
000148 0000000000000000             206+         DC    8X'0' -                       SYNTAX CHECKER NAME A45714
000150 05                           207+         DC    AL1(5) -              DATA SET TYPE CODE  A45714
000151 00                           208+         DC    AL1(0) -             DATA SET ATTRIBUTE1 A45714
000152 40                           209+         DC    AL1(64) -             DATA SET ATTRIBUTE2 A45714
000153 40                           210+         DC    AL1(FMTDFALV) -               RECORD FORMAT DFLT  A45714
000154 0000                         211+         DC    HL2'0' -           F FORMAT LRECL DFLT A45714
000156 00FF                         212+         DC    HL2'255' -           F FORMAT LRECL MAX  A45714
000158 00FF                         213+         DC    HL2'255' -           V FORMAT LRECL DFLT A45714
00015A 00FF                         214+         DC    HL2'255' -           V FORMAT LRECL MAX  A45714
00015C 0000                         215+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
00015E 0000                         216+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
000160 0000                         217+         DC    XL2'00' -            CHECKER OPT. BYTES  A45714
000162 0000000000000000             218+         DC    8X'0' -                       PROMPTER NAME       A45714
00016A 0000000000000000             219+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    220+*--------------------------------------------------------------- A45714
000172 C4C1E3C140404040             221+         DC    CL8'DATA' -            DATA SET TYPE       A45714
00017A C4C1E3C140404040             222+         DC    CL8'DATA' -            DSNAME QUALIFIER    A45714
000182 0690                         223+         DC    HL2'1680' -           DEFAULT BLOCK SIZE  A45714
                                                                                                               PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000184 49                           224+         DC    AL1(73) -                 LINE NO. OFFSET     A45714
000185 08                           225+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
000186 FF                           226+         DC    X'FF' A45714
000187 0A141E28323C                 227+         DC    FL1'10,20,30,40,50,60' -      TABULATION SETTINGS A45714
00018D 0000000000                   228+         DC    5X'0' -                                           A45714
000192 0000000000000000             229+         DC    8X'0' -                       SYNTAX CHECKER NAME A45714
00019A 06                           230+         DC    AL1(6) -              DATA SET TYPE CODE  A45714
00019B 10                           231+         DC    AL1(16) -             DATA SET ATTRIBUTE1 A45714
00019C 40                           232+         DC    AL1(64) -             DATA SET ATTRIBUTE2 A45714
00019D 80                           233+         DC    AL1(FMTDFALF) -               RECORD FORMAT DFLT  A45714
00019E 0050                         234+         DC    HL2'80' -           F FORMAT LRECL DFLT A45714
0001A0 00FF                         235+         DC    HL2'255' -           F FORMAT LRECL MAX  A45714
0001A2 0000                         236+         DC    HL2'0' -           V FORMAT LRECL DFLT A45714
0001A4 00FF                         237+         DC    HL2'255' -           V FORMAT LRECL MAX  A45714
0001A6 0000                         238+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
0001A8 0000                         239+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
0001AA 0000                         240+         DC    XL2'00' -            CHECKER OPT. BYTES  A45714
0001AC 0000000000000000             241+         DC    8X'0' -                       PROMPTER NAME       A45714
0001B4 0000000000000000             242+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    243+*--------------------------------------------------------------- A45714
0001BC C3D3C9E2E3404040             244+         DC    CL8'CLIST' -            DATA SET TYPE       A45714
0001C4 C3D3C9E2E3404040             245+         DC    CL8'CLIST' -            DSNAME QUALIFIER    A45714
0001CC 0690                         246+         DC    HL2'1680' -           DEFAULT BLOCK SIZE  A45714
0001CE 01                           247+         DC    FL1'1' -                      LINE NO. OFFSET     A45714
0001CF 08                           248+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
0001D0 FF                           249+         DC    X'FF' A45714
0001D1 0A141E28323C                 250+         DC    FL1'10,20,30,40,50,60' -      TABULATION SETTINGS A45714
0001D7 0000000000                   251+         DC    5X'0' -                                           A45714
0001DC 0000000000000000             252+         DC    8X'0' -                       SYNTAX CHECKER NAME A45714
0001E4 07                           253+         DC    AL1(7) -              DATA SET TYPE CODE  A45714
0001E5 3C                           254+         DC    AL1(60) -             DATA SET ATTRIBUTE1 A45714
0001E6 40                           255+         DC    AL1(64) -             DATA SET ATTRIBUTE2 A45714
0001E7 40                           256+         DC    AL1(FMTDFALV) -               RECORD FORMAT DFLT  A45714
0001E8 0000                         257+         DC    HL2'0' -           F FORMAT LRECL DFLT A45714
0001EA 00FF                         258+         DC    HL2'255' -           F FORMAT LRECL MAX  A45714
0001EC 00FF                         259+         DC    HL2'255' -           V FORMAT LRECL DFLT A45714
0001EE 00FF                         260+         DC    HL2'255' -           V FORMAT LRECL MAX  A45714
0001F0 0000                         261+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
0001F2 0000                         262+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
0001F4 0000                         263+         DC    XL2'00' -            CHECKER OPT. BYTES  A45714
0001F6 0000000000000000             264+         DC    8X'0' -                       PROMPTER NAME       A45714
0001FE 0000000000000000             265+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    266+*--------------------------------------------------------------- A45714
000206 C3D5E3D340404040             267+         DC    CL8'CNTL' -            DATA SET TYPE       A45714
00020E C3D5E3D340404040             268+         DC    CL8'CNTL' -            DSNAME QUALIFIER    A45714
000216 0690                         269+         DC    HL2'1680' -           DEFAULT BLOCK SIZE  A45714
000218 49                           270+         DC    AL1(73) -                 LINE NO. OFFSET     A45714
000219 08                           271+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
00021A FF                           272+         DC    X'FF' A45714
00021B 0A141E28323C                 273+         DC    FL1'10,20,30,40,50,60' -      TABULATION SETTINGS A45714
000221 0000000000                   274+         DC    5X'0' -                                           A45714
000226 0000000000000000             275+         DC    8X'0' -                       SYNTAX CHECKER NAME A45714
00022E 08                           276+         DC    AL1(8) -              DATA SET TYPE CODE  A45714
00022F 32                           277+         DC    AL1(50) -             DATA SET ATTRIBUTE1 A45714
000230 40                           278+         DC    AL1(64) -             DATA SET ATTRIBUTE2 A45714
                                                                                                               PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000231 80                           279+         DC    AL1(FMTDFALF) -               RECORD FORMAT DFLT  A45714
000232 0050                         280+         DC    HL2'80' -           F FORMAT LRECL DFLT A45714
000234 0050                         281+         DC    HL2'80' -           F FORMAT LRECL MAX  A45714
000236 0000                         282+         DC    HL2'0' -           V FORMAT LRECL DFLT A45714
000238 0000                         283+         DC    HL2'0' -           V FORMAT LRECL MAX  A45714
00023A 0000                         284+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
00023C 0000                         285+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
00023E 0000                         286+         DC    XL2'00' -            CHECKER OPT. BYTES  A45714
000240 0000000000000000             287+         DC    8X'0' -                       PROMPTER NAME       A45714
000248 0000000000000000             288+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    289+*--------------------------------------------------------------- A45714
000250 C1E2D44040404040             290+         DC    CL8'ASM' -            DATA SET TYPE       A45714
000258 C1E2D44040404040             291+         DC    CL8'ASM' -            DSNAME QUALIFIER    A45714
000260 0690                         292+         DC    HL2'1680' -           DEFAULT BLOCK SIZE  A45714
000262 49                           293+         DC    AL1(73) -                 LINE NO. OFFSET     A45714
000263 08                           294+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
000264 FF                           295+         DC    X'FF' A45714
000265 0A101F48                     296+         DC    FL1'10,16,31,72' -            TABULATION SETTINGS A45714
000269 00000000000000               297+         DC    7X'0' A45714
000270 0000000000000000             298+         DC    8X'0' -                       SYNTAX CHECKER NAME A45714
000278 15                           299+         DC    AL1(21) -              DATA SET TYPE CODE  A45714
000279 B2                           300+         DC    AL1(178) -             DATA SET ATTRIBUTE1 A45714
00027A 60                           301+         DC    AL1(96) -             DATA SET ATTRIBUTE2 A45714
00027B 80                           302+         DC    AL1(FMTDFALF) -               RECORD FORMAT DFLT  A45714
00027C 0050                         303+         DC    HL2'80' -           F FORMAT LRECL DFLT A45714
00027E 0050                         304+         DC    HL2'80' -           F FORMAT LRECL MAX  A45714
000280 0000                         305+         DC    HL2'0' -           V FORMAT LRECL DFLT A45714
000282 0000                         306+         DC    HL2'0' -           V FORMAT LRECL MAX  A45714
000284 0000                         307+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
000286 0000                         308+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
000288 0000                         309+         DC    XL2'00' -            CHECKER OPT. BYTES  A45714
00028A C1E2D44040404040             310+         DC    CL8'ASM' -             PROMPTER NAME       A45714
000292 0000000000000000             311+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    312+*--------------------------------------------------------------- A45714
00029A C3D6C2D6D3404040             313+         DC    CL8'COBOL' -            DATA SET TYPE       A45714
0002A2 C3D6C2D6D3404040             314+         DC    CL8'COBOL' -            DSNAME QUALIFIER    A45714
0002AA 0190                         315+         DC    HL2'400' -           DEFAULT BLOCK SIZE  A45714
0002AC 01                           316+         DC    FL1'1' -                      LINE NO. OFFSET     A45714
0002AD 06                           317+         DC    FL1'6' -                      LINE NO. LENGTH     A45714
0002AE FF                           318+         DC    X'FF' A45714
0002AF 080C48                       319+         DC    FL1'8,12,72' -                TABULATION SETTINGS A45714
0002B2 0000000000000000             320+         DC    8X'0' A45714
0002BA 0000000000000000             321+         DC    8X'0' -                       SYNTAX CHECKER NAME A45714
0002C2 16                           322+         DC    AL1(22) -              DATA SET TYPE CODE  A45714
0002C3 B2                           323+         DC    AL1(178) -             DATA SET ATTRIBUTE1 A45714
0002C4 E0                           324+         DC    AL1(224) -             DATA SET ATTRIBUTE2 A45714
0002C5 80                           325+         DC    AL1(FMTDFALF) -               RECORD FORMAT DFLT  A45714
0002C6 0050                         326+         DC    HL2'80' -           F FORMAT LRECL DFLT A45714
0002C8 0050                         327+         DC    HL2'80' -           F FORMAT LRECL MAX  A45714
0002CA 0000                         328+         DC    HL2'0' -           V FORMAT LRECL DFLT A45714
0002CC 0000                         329+         DC    HL2'0' -           V FORMAT LRECL MAX  A45714
0002CE 0000                         330+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
0002D0 0000                         331+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
0002D2 0000                         332+         DC    XL2'00' -            CHECKER OPT. BYTES  A45714
0002D4 C3D6C2D6D3404040             333+         DC    CL8'COBOL' -             PROMPTER NAME       A45714
                                                                                                               PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0002DC 0000000000000000             334+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    335+*--------------------------------------------------------------- A45714
0002E4 C6D6D9E3C7C94040             336+         DC    CL8'FORTGI' -            DATA SET TYPE       A45714
0002EC C6D6D9E340404040             337+         DC    CL8'FORT' -                   DSNAME QUALIFIER    A45714
0002F4 0190                         338+         DC    HL2'400' -           DEFAULT BLOCK SIZE  A45714
0002F6 49                           339+         DC    AL1(73) -                 LINE NO. OFFSET     A45714
0002F7 08                           340+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
0002F8 FF                           341+         DC    X'FF' A45714
0002F9 0748                         342+         DC    FL1'7,72' -                   TABULATION SETTINGS A45714
0002FB 0000000000000000             343+         DC    9X'0' A45714
000304 C9D7C4E2D5C5E7C3             344+         DC    CL8'IPDSNEXC' -              SYNTAX CHECKER NAME A45714
00030C 17                           345+         DC    AL1(23) -              DATA SET TYPE CODE  A45714
00030D F2                           346+         DC    AL1(242) -             DATA SET ATTRIBUTE1 A45714
00030E 20                           347+         DC    AL1(32) -             DATA SET ATTRIBUTE2 A45714
00030F 80                           348+         DC    AL1(FMTDFALF) -               RECORD FORMAT DFLT  A45714
000310 0050                         349+         DC    HL2'80' -           F FORMAT LRECL DFLT A45714
000312 0050                         350+         DC    HL2'80' -           F FORMAT LRECL MAX  A45714
000314 0000                         351+         DC    HL2'0' -           V FORMAT LRECL DFLT A45714
000316 0000                         352+         DC    HL2'0' -           V FORMAT LRECL MAX  A45714
000318 0000                         353+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
00031A 0000                         354+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
00031C 0402                         355+         DC    XL2'0402' -            CHECKER OPT. BYTES  A45714
00031E C6D6D9E340404040             356+         DC    CL8'FORT' -             PROMPTER NAME       A45714
000326 0000000000000000             357+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    358+*--------------------------------------------------------------- A45714
00032E C7D6C6D6D9E34040             359+         DC    CL8'GOFORT' -            DATA SET TYPE       A45714
000336 C6D6D9E340404040             360+         DC    CL8'FORT' -                   DSNAME QUALIFIER    A45714
00033E 0690                         361+         DC    HL2'1680' -           DEFAULT BLOCK SIZE  A45714
000340 01                           362+         DC    FL1'1' -                      LINE NO. OFFSET     A45714
000341 08                           363+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
000342 FF                           364+         DC    X'FF' A45714
000343 0748                         365+         DC    FL1'7,72' -                   TABULATION SETTINGS A45714
000345 0000000000000000             366+         DC    9X'0' A45714
00034E C9D7C4E2D5C5E7C3             367+         DC    CL8'IPDSNEXC' -              SYNTAX CHECKER NAME A45714
000356 1F                           368+         DC    AL1(31) -              DATA SET TYPE CODE  A45714
000357 DC                           369+         DC    AL1(220) -             DATA SET ATTRIBUTE1 A45714
000358 50                           370+         DC    AL1(80) -             DATA SET ATTRIBUTE2 A45714
000359 40                           371+         DC    AL1(FMTDFALV) -               RECORD FORMAT DFLT  A45714
00035A 0000                         372+         DC    HL2'0' -           F FORMAT LRECL DFLT A45714
00035C 00FF                         373+         DC    HL2'255' -           F FORMAT LRECL MAX  A45714
00035E 00FF                         374+         DC    HL2'255' -           V FORMAT LRECL DFLT A45714
000360 00FF                         375+         DC    HL2'255' -           V FORMAT LRECL MAX  A45714
000362 0000                         376+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
000364 0000                         377+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
000366 0302                         378+         DC    XL2'0302' -            CHECKER OPT. BYTES  A45714
000368 C7D6C6D6D9E34040             379+         DC    CL8'GOFORT' -             PROMPTER NAME       A45714
000370 0000000000000000             380+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    381+*--------------------------------------------------------------- A45714
000378 C2C1E2C9C3404040             382+         DC    CL8'BASIC' -            DATA SET TYPE       A45714
000380 C2C1E2C9C3404040             383+         DC    CL8'BASIC' -            DSNAME QUALIFIER    A45714
000388 0690                         384+         DC    HL2'1680' -           DEFAULT BLOCK SIZE  A45714
00038A 01                           385+         DC    FL1'1' -                      LINE NO. OFFSET     A45714
00038B 08                           386+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
00038C FF                           387+         DC    X'FF' A45714
00038D 0A141E28323C                 388+         DC    FL1'10,20,30,40,50,60' -      TABULATION SETTINGS A45714
                                                                                                               PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000393 0000000000                   389+         DC    5X'0' -                                           A45714
000398 C9D2D1D5C3F2F1F1             390+         DC    CL8'IKJNC211' -              SYNTAX CHECKER NAME A45714
0003A0 20                           391+         DC    AL1(32) -              DATA SET TYPE CODE  A45714
0003A1 F4                           392+         DC    AL1(244) -             DATA SET ATTRIBUTE1 A45714
0003A2 40                           393+         DC    AL1(64) -             DATA SET ATTRIBUTE2 A45714
0003A3 40                           394+         DC    AL1(FMTDFALV) -               RECORD FORMAT DFLT  A45714
0003A4 0000                         395+         DC    HL2'0' -           F FORMAT LRECL DFLT A45714
0003A6 0078                         396+         DC    HL2'120' -           F FORMAT LRECL MAX  A45714
0003A8 0078                         397+         DC    HL2'120' -           V FORMAT LRECL DFLT A45714
0003AA 0078                         398+         DC    HL2'120' -           V FORMAT LRECL MAX  A45714
0003AC 0000                         399+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
0003AE 0000                         400+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
0003B0 0100                         401+         DC    XL2'0100' -            CHECKER OPT. BYTES  A45714
0003B2 C9D2D1D5C3F2F1F1             402+         DC    CL8'IKJNC211' -             PROMPTER NAME       A45714
0003BA 0000000000000000             403+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    404+*--------------------------------------------------------------- A45714
0003C2 C9D7D3C940404040             405+         DC    CL8'IPLI' -            DATA SET TYPE       A45714
0003CA C9D7D3C940404040             406+         DC    CL8'IPLI' -            DSNAME QUALIFIER    A45714
0003D2 0690                         407+         DC    HL2'1680' -           DEFAULT BLOCK SIZE  A45714
0003D4 01                           408+         DC    FL1'1' -                      LINE NO. OFFSET     A45714
0003D5 08                           409+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
0003D6 FF                           410+         DC    X'FF' A45714
0003D7 050A0F14191E2328             411+         DC    FL1'5,10,15,20,25,30,35,40,45,50' A45714
0003E1 00                           412+         DC    X'0' A45714
0003E2 C9D2D1D5C3F2F1F1             413+         DC    CL8'IKJNC211' -              SYNTAX CHECKER NAME A45714
0003EA 21                           414+         DC    AL1(33) -              DATA SET TYPE CODE  A45714
0003EB F4                           415+         DC    AL1(244) -             DATA SET ATTRIBUTE1 A45714
0003EC 40                           416+         DC    AL1(64) -             DATA SET ATTRIBUTE2 A45714
0003ED 40                           417+         DC    AL1(FMTDFALV) -               RECORD FORMAT DFLT  A45714
0003EE 0000                         418+         DC    HL2'0' -           F FORMAT LRECL DFLT A45714
0003F0 0078                         419+         DC    HL2'120' -           F FORMAT LRECL MAX  A45714
0003F2 0078                         420+         DC    HL2'120' -           V FORMAT LRECL DFLT A45714
0003F4 0078                         421+         DC    HL2'120' -           V FORMAT LRECL MAX  A45714
0003F6 0000                         422+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
0003F8 0000                         423+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
0003FA 0000                         424+         DC    XL2'00' -            CHECKER OPT. BYTES  A45714
0003FC C9D2D1D5C3F2F1F1             425+         DC    CL8'IKJNC211' -             PROMPTER NAME       A45714
000404 0000000000000000             426+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    427+*--------------------------------------------------------------- A45714
00040C D7D3C94040404040             428+         DC    CL8'PLI' -            DATA SET TYPE       A45714
000414 D7D3C94040404040             429+         DC    CL8'PLI' -                    DSNAME QUALIFIER    A45714
00041C 0190                         430+         DC    HL2'400' -           DEFAULT BLOCK SIZE  A45714
00041E 01                           431+         DC    FL1'1' -                      LINE NO. OFFSET     A45714
00041F 08                           432+         DC    FL1'8' -                      LINE NO. LENGTH     A45714
000420 FF                           433+         DC    X'FF' A45714
000421 050A0F14191E2328             434+         DC    FL1'5,10,15,20,25,30,35,40,45,50' A45714
00042B 00                           435+         DC    X'0' A45714
00042C 0000000000000000             436+         DC    8X'0' -                       SYNTAX CHECKER NAME A45714
000434 22                           437+         DC    AL1(34) -              DATA SET TYPE CODE  A45714
000435 90                           438+         DC    AL1(144) -             DATA SET ATTRIBUTE1 A45714
000436 60                           439+         DC    AL1(96) -             DATA SET ATTRIBUTE2 A45714
000437 40                           440+         DC    AL1(FMTDFALV) -               RECORD FORMAT DFLT  A45714
000438 0000                         441+         DC    HL2'0' -           F FORMAT LRECL DFLT A45714
00043A 0064                         442+         DC    HL2'100' -           F FORMAT LRECL MAX  A45714
00043C 0068                         443+         DC    HL2'104' -           V FORMAT LRECL DFLT A45714
                                                                                                               PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00043E 0068                         444+         DC    HL2'104' -           V FORMAT LRECL MAX  A45714
000440 0000                         445+         DC    HL2'0' -                      U FORMAT LRECL DFLT A45714
000442 0000                         446+         DC    HL2'0' -                      U FORMAT LRECL MAX  A45714
000444 0248                         447+         DC    XL2'0248' -            CHECKER OPT. BYTES  A45714
000446 D7D3C9C340404040             448+         DC    CL8'PLIC' -             PROMPTER NAME       A45714
00044E 0000000000000000             449+         DC    8X'0' -                       USER EXIT NAME      A45714
                                    450+*--------------------------------------------------------------- A45714
                                    451+*
                                    452+* THE FOLLOWING TABLE ENTRIES APPLY TO NON-"EDIT"ABLE DATA SET TYPES.
                                    453+*
                                    454+*----------------------------------------------------------------------
000456 E2E3C5E740404040             455+         DC    CL8'STEX' -                   DATA SET TYPE
00045E E2E3C5E740404040             456+         DC    CL8'STEX' -                   DSNAME QUALIFIER
000466 0000000000000000             457+         DC    24X'0'
00047E 33                           458+         DC    X'33' (DECIMAL 51)            DATA SET TYPE CODE
00047F 00                           459+         DC    X'0' -                        DATA SET ATTRIBUTES
000480 40                           460+         DC    AL1(DFALTYPE) -               DATA SET ATTRIBUTES2
000481 0000000000000000             461+         DC    31X'0' -                                          A45714
                                    462+*----------------------------------------------------------------------
0004A0 D6C2D14040404040             463+         DC    CL8'OBJ' -                    DATA SET TYPE
0004A8 D6C2D14040404040             464+         DC    CL8'OBJ' -                    DSNAME QUALIFIER
0004B0 0000000000000000             465+         DC    24X'0'
0004C8 34                           466+         DC    X'34' (DECIMAL 52)            DATA SET TYPE CODE
0004C9 00                           467+         DC    X'0' -                        DATA SET ATTRIBUTES
0004CA 40                           468+         DC    AL1(DFALTYPE) -               DATA SET ATTRIBUTES2
0004CB 0000000000000000             469+         DC    31X'0' -                                          A45714
                                    470+*----------------------------------------------------------------------
0004EA D3C9E2E340404040             471+         DC    CL8'LIST' -                   DATA SET TYPE
0004F2 D3C9E2E340404040             472+         DC    CL8'LIST' -                   DSNAME QUALIFIER
0004FA 0DE4                         473+         DC    H'3556' -      DEFAULT BLKSIZE
0004FC 01                           474+         DC    FL1'1' -      LINE NUMBER OFFSET
0004FD 08                           475+         DC    FL1'8' -      LINE NUMBER LENGTH
0004FE 0000000000000000             476+         DC    12X'00' -           TABS
00050A 0000000000000000             477+         DC    8X'0' -             SYNTAX CHECKER NAME
000512 35                           478+         DC    X'35' (DECIMAL 53)            DATA SET TYPE CODE
000513 00                           479+         DC    X'0' -                        DATA SET ATTRIBUTES
000514 40                           480+         DC    AL1(DFALTYPE) -               DATA SET ATTRIBUTES2
000515 40                           481+         DC    AL1(FMTDFALV) -     RECORD FORMAT DEFAULT
000516 0000                         482+         DC    HL2'0' -            F FORMAT LRECL DEFAULT
000518 0000                         483+         DC    HL2'0' -            F FORMAT LRECL MAX
00051A 0094                         484+         DC    HL2'148' -          V FORMAT LRECL DEFAULT
00051C 0094                         485+         DC    HL2'148' -          V FORMAT LRECL MAX
00051E 0000                         486+         DC    HL2'0' -            U FORMAT LRECL DEFAULT
000520 0000                         487+         DC    HL2'0' -            U FORMAT LRECL MAX
000522 0000000000000000             488+         DC    18X'0' -                                          A45714
                                    489+*----------------------------------------------------------------------
000534 D3D6C1C440404040             490+         DC    CL8'LOAD' -                   DATA SET TYPE
00053C D3D6C1C440404040             491+         DC    CL8'LOAD' -                   DSNAME QUALIFIER
000544 0000000000000000             492+         DC    24X'0'
00055C 36                           493+         DC    X'36' (DECIMAL 54)            DATA SET TYPE CODE
00055D 00                           494+         DC    X'0' -                        DATA SET ATTRIBUTES
00055E 40                           495+         DC    AL1(DFALTYPE) -               DATA SET ATTRIBUTES2
00055F 0000000000000000             496+         DC    31X'0' -                                          A45714
                                    497+*----------------------------------------------------------------------
00057E D3C9D5D2D3C9E2E3             498+         DC    CL8'LINKLIST' -               DATA SET TYPE
                                                                                                               PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000586 D3C9D5D2D3C9E2E3             499+         DC    CL8'LINKLIST' -               DSNAME QUALIFIER
00058E 0051                         500+         DC    HL2'81' -           DEFAULT BLKSIZE
000590 0000000000000000             501+         DC    22X'0'
0005A6 37                           502+         DC    X'37' (DECIMAL 55)            DATA SET TYPE CODE
0005A7 00                           503+         DC    X'0' -                        DATA SET ATTRIBUTES
0005A8 40                           504+         DC    AL1(DFALTYPE) -               DATA SET ATTRIBUTES2
0005A9 80                           505+         DC    AL1(FMTDFALF) -     RECFM DEFAULT
0005AA 0051                         506+         DC    HL2'81' -           F FORMAT LRECL DEFAULT
0005AC 0051                         507+         DC    HL2'81' -           F FORMAT LRECL MAX
0005AE 0000000000000000             508+         DC    26X'0' A45714
                                    509+*----------------------------------------------------------------------
0005C8 D3D6C1C4D3C9E2E3             510+         DC    CL8'LOADLIST' -               DATA SET TYPE
0005D0 D3D6C1C4D3C9E2E3             511+         DC    CL8'LOADLIST' -               DSNAME QUALIFIER
0005D8 0051                         512+         DC    HL2'81' -           DEFAULT BLKSIZE
0005DA 0000000000000000             513+         DC    22X'0'
0005F0 38                           514+         DC    X'38' (DECIMAL 56)            DATA SET TYPE CODE
0005F1 00                           515+         DC    X'0' -                        DATA SET ATTRIBUTES
0005F2 40                           516+         DC    AL1(DFALTYPE) -               DATA SET ATTRIBUTES2
0005F3 80                           517+         DC    AL1(FMTDFALF) -     RECFM DEFAULT
0005F4 0051                         518+         DC    HL2'81' -           F FORMAT LRECL DEFAULT
0005F6 0051                         519+         DC    HL2'81' -           F FORMAT LRECL MAX
0005F8 0000000000000000             520+         DC    26X'0' A45714
                                    521+*----------------------------------------------------------------------
000612 E3C5E2E3D3C9E2E3             522+         DC    CL8'TESTLIST' -               DATA SET TYPE
00061A E3C5E2E3D3C9E2E3             523+         DC    CL8'TESTLIST' -               DSNAME QUALIFIER
000622 069F                         524+         DC    HL2'1695' -         DEFAULT BLKSIZE
000624 0000000000000000             525+         DC    22X'0'
00063A 39                           526+         DC    X'39' (DECIMAL 57)            DATA SET TYPE CODE
00063B 00                           527+         DC    X'0' -                        DATA SET ATTRIBUTES
00063C 40                           528+         DC    AL1(DFALTYPE) -               DATA SET ATTRIBUTES2
00063D 40                           529+         DC    AL1(FMTDFALV) -     RECFM DEFAULT
00063E 0000                         530+         DC    HL2'0' -            F FORMAT LRECL DEFAULT
000640 0000                         531+         DC    HL2'0' -            F FORMAT LRECL MAX
000642 069F                         532+         DC    HL2'1695' -         V FORMAT LRECL DEFAULT
000644 069F                         533+         DC    HL2'1695' -         V FORMAT LRECL MAX
000646 0000                         534+         DC    HL2'0' -            U FORMAT LRECL DEFAULT
000648 0000                         535+         DC    HL2'0' -            U FORMAT LRECL MAX
00064A 0000000000000000             536+         DC    18X'0' -                                          A45714
                                    537+*----------------------------------------------------------------------
00065C D6E4E3D3C9E2E340             538+         DC    CL8'OUTLIST' -                DATA SET TYPE
000664 D6E4E3D3C9E2E340             539+         DC    CL8'OUTLIST' -                DSNAME QUALIFIER
00066C 0000000000000000             540+         DC    24X'0'
000684 3A                           541+         DC    X'3A' (DECIMAL 58)            DATA SET TYPE CODE
000685 00                           542+         DC    X'0' -                        DATA SET ATTRIBUTES
000686 40                           543+         DC    AL1(DFALTYPE) -               DATA SET ATTRIBUTES2
000687 0000000000000000             544+         DC    31X'0' -                                          A45714
                                    545+*----------------------------------------------------------------------
0006A6 00                           546+         DC    X'0' -                        END-OF-TABLE MARKER
                                    547  END
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CAPSREQ  00001 000020 00083
CCMUSTAY 00001 000008 00078
DFALTCAP 00001 000010 00084
DFALTYPE 00001 000040 00089   0460  0468  0480  0495  0504  0516  0528  0543
FMTDFALF 00001 000080 00095   0118  0141  0164  0187  0233  0279  0302  0325  0348  0505  0517
FMTDFALU 00001 0000C0 00097
FMTDFALV 00001 000040 00096   0210  0256  0371  0394  0417  0440  0481  0529
IKJEBEPD 00001 000000 00003
INCOREDS 00001 000010 00091
LINUMREQ 00001 000004 00079
LRLDFREQ 00001 000002 00080
NUMINTAB 00001 000080 00088
RUNOBGEN 00001 000020 00090
RUNOK    00001 000080 00081
SNTXCKOK 00001 000040 00082
TABLE    00001 000000 00105



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =   275      SOURCE RECORDS (SYSLIB) =   484
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  865 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.TSOGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21TA47.R0000183      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21TA47.S0000184      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21TA47.S0000184      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG48    / START 78240.1945
IEF374I STEP /SG48    / STOP  78240.1945 CPU   0MIN 00.43SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:49.21   ALLOC START    19:45:49.22   MAIN REGION ----- 300K                          *
*   STEP NAME SG48       STEP END TIME  19:45:49.79   PGM START TIME 19:45:49.30   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.58   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.43   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ----------- 13       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0    *
*   0151 ----------- 81       0151 ----------- 51       0151 ----------- 80       0353 ---------- 109       0151 ----------- 33    *
*   0130 ---------- 277                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21TA47  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:49.81   ALLOC START    19:45:49.82   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:49.84   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.TSOGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21TA47 / START 78240.1945
IEF376I  JOB /R21TA47 / STOP  78240.1945 CPU   0MIN 00.43SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21TA47    JOB READ TIME 19:45:03.18   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.43   *
*   JOB CLASS A          JOB INIT TIME 19:45:49.21   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.65   *
*   ACCOUNT              JOB END TIME  19:45:49.86   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     TTTTTTTT       A           44     8888888                             A
            RRRRRRRRR  222222222      11     TTTTTTTT      AAA         444    888888888                           AAA
            RR     RR  22     22     111        TT        AA AA       4444    88     88                          AA AA
            RR     RR        22       11        TT       AA   AA     44 44    88     88                         AA   AA
            RRRRRRRRR       22        11        TT      AA     AA   44  44     8888888                         AA     AA
            RRRRRRRR       22         11        TT      AA     AA  44   44     8888888                         AA     AA
            RR  RR        22          11        TT      AAAAAAAAA  444444444  88     88                        AAAAAAAAA
            RR   RR      22           11        TT      AAAAAAAAA  444444444  88     88                        AAAAAAAAA
            RR    RR    22222222    111111      TT      AA     AA       44    888888888                        AA     AA
            RR     RR  222222222    111111      TT      AA     AA       44     8888888                         AA     AA

***********A  START   R21TA48    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA48    START  A***********
***********A  START   R21TA48    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA48    START  A***********
***********A  START   R21TA48    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA48    START  A***********
***********A  START   R21TA48    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA48    START  A***********
***********A  START   R21TA48    SYS SYSA   WTR 00E   07:47:24 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA48    START  A***********


//R21TA48 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG49 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(4,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.TSOGEN,DISP=(SHR,PASS)
//  DD DSN=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.TSOMAC,DISP=(SHR,PASS),VOLUME=(,RETAIN)
// DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//            DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//            SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IKJEBEIN)
//SYSIN DD *
IEF236I ALLOC. FOR R21TA48  SG49
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


BEIN                                          EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IKJEBEIN  SD  01 000000 000DF0
IKJEBIN0  LD     000D6D         01
IKJEBIN7  ER  02
IKJEBIN5  ER  03
IKJEBIN8  ER  04
IKJEBIN3  ER  05
IKJEBIN1  SD  06 000DF0 000255
IKJEBIN2  SD  07 001048 00002A
IKJEBIN3  SD  08 001078 0000E2
IKJEBIN4  SD  09 001160 000072
IKJEBIN5  SD  0A 0011D8 000266
IKJEBIN0  ER  0B
IKJEBIN6  SD  0C 001440 000142
IKJEBIN7  SD  0D 001588 00021C
IKJEBIN8  SD  0E 0017A8 0006A9
BEIN                                                                                                           PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1      PRINT  ON,NODATA
                                      2   SGIKJ0E2  DST=(PLI,COBOL,ASM,TEXT,DATA,CLIST,CNTL,BASIC,             X
                                                       IPLI,GOFORT,FORTE,FORTG,FORTGI,FORTH,PLIF,              X
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ),                                              XXXXXXXXX
                                                       SUBFD=(,                                        XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       ,                                               XXXXXXXXX
                                                       )
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                4+IKJEBEIN CSECT
                                      5+*A 327000,327600                                                 A42958
                                      6+*C 327400                                                        A42958
                                      7+*A 264200-265600                                                 A42947
                                      8+*C 399400-400400                                                 A42959
                                      9+         ENTRY IKJEBEIN
                                     10+         ENTRY IKJEBIN0
                                     11+***********************************************************************
                                     12+*                                                                     *
                                     13+* STATUS -- VERSION NO. 01, OS/360 RELEASE NO. 20                     *
                                     14+*                                                                     *
                                     15+* FUNCTION -- THIS ROUTINE IS ATTACHED BY THE TERMINAL MONITOR        *
                                     16+*    PROGRAM (TMP) WHENEVER THE USER ENTERS THE EDIT COMMAND.         *
                                     17+*    IKJEBEIN ISSUES A GETMAIN MACRO INSTRUCTION FOR THE EDIT         *
                                     18+*    COMMUNICATION AREA, SCANS THE COMMAND BUFFER USING IKJPARS, AND  *
                                     19+*    INITIALIZES THE COMMUNICATION AREA TO CONTAIN VALUES             *
                                     20+*    REPRESENTING OPERANDS ON THE EDIT COMMAND.  IF THE USER SPECIFIES*
                                     21+*    THAT THE DATA SET IS OLD, IKJEBEIN ALLOCATES IT USING IKJDAIR    *
                                     22+*    AND VERIFIES THAT ITS ATTRIBUTES ARE CONSISTENT WITH THE OTHER   *
                                     23+*    OPERANDS SPECIFIED ON THE COMMAND.  WHEN IKJEBEIN COMPLETES      *
                                     24+*    SUCCESSFULLY, CONTROL IS PASSED TO THE EDIT MAIN CONTROLLER,     *
                                     25+*    IKJEBEMA, VIA AN XCTL MACRO INSTRUCTION.                         *
                                     26+*                                                                     *
                                     27+* ENTRY POINTS --                                                     *
                                     28+*         IKJEBEIN - AFTER BEING ATTACHED BY THE TMP WHEN THE EDIT    *
                                     29+*                    COMMAND IS ENTERED AT THE TERMINAL.              *
                                     30+*                                                                     *
                                     31+* INPUT --                                                            *
                                     32+*    REGISTER ONE (1) CONTAINS A POINTER TO THE COMMAND PROCESSOR     *
                                     33+*    PARAMETER LIST (CPPL).                                           *
                                     34+*                                                                     *
                                     35+* OUTPUT --                                                           *
                                     36+*    REGISTER FIFTEEN (15) CONTAINS A RETURN CODE INDICATING WHETHER  *
                                     37+*    EDIT COMPLETED SUCCESSFULLY OR NOT.  RETURN CODES ARE --         *
                                     38+*                                                                     *
                                     39+*    00 - SUCCESSFUL COMPLETION.                                      *
                                     40+*    12 - UNSUCCESSFUL COMPLETION.                                    *
                                     41+*                                                                     *
                                     42+* EXTERNAL REFERENCES --                                              *
                                     43+*         IKJDAIR  - SERVICE ROUTINE USED TO DYNAMICALLY ALLOCATE     *
                                     44+*                    THE EDIT DATA SET                                *
                                     45+*         IKJEBECO - INITIAL COPY ROUTINE - INVOKED TO COPY AN OLD    *
                                     46+*                    DATA SET TO THE UTILITY DATA SET                 *
                                     47+*         IKJEBEMS - MESSAGE SELECTION ROUTINE LOADED BY              *
                                     48+*                    THIS ROUTINE                                     *
                                     49+*         IKJEBEPS - PROCESSOR TABLE SEARCH ROUTINE LOADED BY         *
                                     50+*                    THIS ROUTINE                                     *
                                     51+*         IKJEBEUI - UTILITY INITIALIZATION ROUTINE - USED TO         *
                                     52+*                    INITIALIZE THE EDIT ACCESS METHOD WHEN THE USER  *
                                     53+*                    HAS SPECIFIED A NEW DATA SET                     *
                                     54+*         IKJEBEUT - UTILITY INTERFACE ROUTINE - LOADED BY THIS       *
                                     55+*                    ROUTINE PRIOR TO THE COPY OF THE EDIT DATA SET   *
                                     56+*                    AND DELETED WHEN THE COPY IS COMPLETE            *
                                     57+*         IKJEBIN1 - EDIT COMMAND PCL (PARAMETER CONTROL LIST)        *
                                     58+*         IKJEBIN2 - PCL FOR NEW/OLD PROMPT                           *
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     59+*         IKJEBIN3 - INITIAL MESSAGE PROCESSING ROUTINE               *
                                     60+*         IKJEBIN4 - IKJPARS NUMERIC SUBFIELD VALIDITY CHECK EXIT     *
                                     61+*         IKJEBIN5 - DATA SET TYPE PROMPTING ROUTINE                  *
                                     62+*         IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING ROUTINE    *
                                     63+*         IKJEBIN8 - OPERAND VALIDITY CHECKING AND CONVERSION         *
                                     64+*                    ROUTINE                                          *
                                     65+*         IKJPARS  - SERVICE ROUTINE USED TO SYNTAX CHECK THE EDIT    *
                                     66+*                    COMMAND AND RESPONSES TO NEW/OLD PROMPT     A45713
                                     67+*         IKJPTGT  - SERVICE ROUTINE USED TO PROMPT FOR DATA SET A45713
                                     68+*                    TYPE                                        A45713
                                     69+*                                                                     *
                                     70+*    MACROS USED --                                                   *
                                     71+*                                                                     *
                                     72+*         BLDL     - BUILD LIST OF DIRECTORY INFORMATION              *
                                     73+*         CALL     - PASS CONTROL TO LOADED PROGRAM                   *
                                     74+*         CAMLST   - BUILD CONTROL LIST FOR OBTAIN MACRO INSTRUCTION  *
                                     75+*         CVT      - DEFINE THE COMMUNICATIONS VECTOR TABLE (CVT)     *
                                     76+*         DCBD     - DEFINE THE DATA CONTROL BLOCK (DCB)              *
                                     77+*         DELETE   - DELETE COPY OF LOADED PROGRAM FROM MAIN STORAGE  *
                                     78+*         DEVTYPE  - OBTAIN DEVICE DEPENDENT INFORMATION              *
                                     79+*         FREEMAIN - FREE CORE OBTAINED VIA GETMAIN MACRO INSTRUCTION *
                                     80+*         GETMAIN  - GET CORE FOR EDIT COMMUNICATION AREA             *
                                     81+*         IECSDSL1 - DEFINE THE DATA SET CONTROL BLOCK (DSCB) FORMAT 1*
                                     82+*         IEFUCBOB - DEFINE THE UNIT CONTROL BLOCK (UCB)              *
                                     83+*         IEFTIOT1 - DEFINE THE TASK INPUT/OUTPUT TABLE (TIOT)        *
                                     84+*         IKJCPPL  - DEFINE THE COMMAND PROCESSOR PARAMETER           *
                                     85+*                    LIST (CPPL)                                      *
                                     86+*         IKJDFPL  - DEFINE THE DEFAULT SERVICE ROUTINE PARAMETER LIST*
                                     87+*         IKJDFPB  - DEFINE THE DEFAULT SERVICE ROUTINE PARAMETER     *
                                     88+*                    BLOCK                                            *
                                     89+*         IKJEBECA - DEFINE EDIT COMMUNICATION AREA                   *
                                     90+*         IKJEBESH - PASS CONTROL TO EDIT SERVICE ROUTINES            *
                                     91+*         IKJECT   - DEFINE THE ENVIRONMENT CONTROL TABLE (ECT)       *
                                     92+*         IKJENDP  - END IKJPARS PCL                                  *
                                     93+*         IKJIDENT - DEFINE POSITIONAL OPERAND TO IKJPARS             *
                                     94+*         IKJKEYWD - DEFINE KEYWORD OPERAND TO IKJPARS                *
                                     95+*         IKJNAME  - DEFINE VALID KEYWORDS FOR KEYWORD OPERAND        *
                                     96+*                    TO IKJPARS                                       *
                                     97+*         IKJPARM  - BEGIN IKJPARS PCL                                *
                                     98+*         IKJPOSIT - DEFINE POSITIONAL OPERAND TO IKJPARS             *
                                     99+*         IKJPPL   - DEFINE THE IKJPARS PARAMETER LIST (PPL)          *
                                    100+*         IKJPSCB  - DEFINE THE PROTECTED STEP CONTROL BLOCK (PSCB)   *
                                    101+*         IKJRLSA  - RELEASE IKJPARS PDL                              *
                                    102+*         IKJSUBF  - DEFINE SUBFIELD OF AN OPERAND TO IKJPARS         *
                                    103+*         IKJTCB   - DEFINE THE TASK CONTROL BLOCK (TCB)              *
                                    104+*         LINK     - LOAD AND PASS CONTROL TO EXTERNAL PROGRAM        *
                                    105+*         LOAD     - LOAD PROGRAM INTO MAIN STORAGE                   *
                                    106+*         OBTAIN   - READ DSCB INTO MAIN STORAGE                      *
                                    107+*         RETURN   - RESTORE CALLERS REGISTERS BEFORE RETURN          *
                                    108+*         SAVE     - SAVE REGISTERS ON INITIAL ENTRY                  *
                                    109+*         XCTL     - TRANSFER CONTROL TO MAIN CONTROLLER              *
                                    110+*                                                                     *
                                    111+* EXITS, NORMAL --                                                    *
                                    112+*    WHEN IKJEBEIN COMPLETES SUCCESSFULLY, CONTROL IS PASSED TO THE   *
                                    113+*    MAIN CONTROLLER ROUTINE, IKJEBEMA, VIA AN XCTL MACRO INSTRUCTION.*
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    114+*                                                                     *
                                    115+* EXITS, ERROR --                                                     *
                                    116+*    WHEN IKJEBEIN ENCOUNTERS ANY CONDITION WHICH DOES NOT ALLOW      *
                                    117+*    IT TO COMPLETE SUCCESSFULLY, CONTROL IS RETURNED TO THE TMP      *
                                    118+*    BY BRANCHING ON REGISTER FOURTEEN (14).                          *
                                    119+*                                                                     *
                                    120+* TABLES/WORK AREAS --                                                *
                                    121+*                                                                     *
                                    122+*    THE EDIT COMMUNICATION AREA IS BUILT AND INITIALIZED BY          *
                                    123+*    IKJEBEIN.  IKJEBEIN WILL INITIALIZE THE FULLY QUALIFIED DATA SET *
                                    124+*    NAME, DATA SET TYPE, DATA SET DEPENDENT INFORMATION, LRECL,      *
                                    125+*    BLKSIZE, SEQUENCE NUMBER FIELD DESCRIPTION, SYNTAX CHECKING      *
                                    126+*    INFORMATION, AND WILL INDICATE WHETHER DATA IS TO BE MAINTAINED  *
                                    127+*    AS ENTERED OR TRANSLATED TO UPPER CASE ALPHABETICS.              *
                                    128+*                                                                     *
                                    129+*    THE EDIT COMMAND PDL (PARAMETER DESCRIPTOR LIST) IS RETURNED     *
                                    130+*    BY IKJPARS AFTER SCANNING THE EDIT COMMAND.  IT ALLOWS IKJEBEIN  *
                                    131+*    TO ADDRESS COMMAND OPERANDS FOR PURPOSES OF CONVERSION,          *
                                    132+*    INITIALIZATION, AND VALIDATION.  IT IS ALWAYS FREEMAINED BEFORE  *
                                    133+*    IKJEBEIN RELINQUISHES CONTROL.                                   *
                                    134+*                                                                     *
                                    135+* ATTRIBUTES --                                                       *
                                    136+*    REFRESHABLE, ENABLED, NON-PRIVILEGED                             *
                                    137+*                                                                     *
                                    138+* CHARACTER CODE DEPENDENCY --                                        *
                                    139+*    THE MAIN CSECT OF THE EDIT INITIALIZATION IS NOT CHARACTER       *
                                    140+*    CODE DEPENDENT.                                                  *
                                    141+*                                                                     *
                                    142+* NOTES -- NONE.                                                      *
                                    143+*                                                                     *
                                    144+***********************************************************************
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    146+***********************************************************************
                                    147+*                                                                     *
                                    148+*   GENERAL PURPOSE REGISTER EQUATES FOR THIS ROUTINE.                *
                                    149+*                                                                     *
                                    150+***********************************************************************
000000                              151+ENTCDREG EQU   0 REGISTER USED TO CONTAIN ENTRY CODE
000000                              152+PARMREG0 EQU   0 PARAMETER REGISTER.
000001                              153+PARMREG1 EQU   1 INPUT - ADDRESS OF COMMAND PROCESSOR
                                    154+*                                  PARAMETER LIST.
                                    155+*                             OUTPUT - ADDRESS OF THE EDIT
                                    156+*                                  COMMUNICATION AREA.
                                    157+*                             GENERAL USAGE IN THIS MODULE -
                                    158+*                                  ADDRESS OF A PARAMETER LIST TO
                                    159+*                                  BE PASSED TO A ROUTINE INVOKED
                                    160+*                                  BY IKJEBEIN.
000002                              161+INDEXREG EQU   2 REGISTER USED AS INDEX INTO TABLE
                                    162+*                                  OF DATA SET TYPES.
000002                              163+LENREG   EQU   2 REGISTER USED TO CONTAIN LENGTH FOR
                                    164+*                                  CURRENT OPERATION.
000002                              165+UPTREG   EQU   2 ADDRESS OF UPT.
000003                              166+COUNTREG EQU   3 LOOP CONTROL COUNTER.
000003                              167+ECTREG   EQU   3 ADDRESS OF ECT.
000003                              168+FLAGREG  EQU   3 FLAG BYTE USED IN IMMEDIATE
                                    169+*                                  INSTRUCTIONS.
000003                              170+SIZEREG  EQU   3 SIZE OF AREA BEING INITIALIZED
                                    171+*                                  DURING CURRENT OPERATION.
000003                              172+TABPTREG EQU   3 ADDRESS OF CURRENT LOCATION IN
                                    173+*                                  TABLE BEING REFERENCED.
000004                              174+AREAREG  EQU   4 ADDRESS OF CURRENT POSITION IN AREA
                                    175+*                                  BEING INITIALIZED.
000004                              176+QUALREG  EQU   4 ADDRESS OF DATA SET QUALIFIER.
                                    177+*                                  PROCESSED.
000005                              178+DSNAMREG EQU   5 ADDRESS OF DATA SET NAME.
000005                              179+ECBREG   EQU   5 ADDRESS OF ATTENTION ECB.
000005                              180+ERR1REG  EQU   5 REGISTER USED FOR RELATIVE FIRST
                                    181+*                                  LEVEL MESSAGE NUMBER.
000005                              182+STRTNREG EQU   5 START COLUMN NUMBER FOR NUM CHECK.
000006                              183+ERR2REG  EQU   6 REGISTER USED FOR RELATIVE SECOND
                                    184+*                                  LEVEL MESSAGE NUMBER.
000006                              185+PCLREG   EQU   6 ADDRESS OF PCL FOR IKJPARSE.
000006                              186+TMPREG   EQU   6 ADDRESS OF TMP PARAMETER LIST.
000006                              187+TMPCDREG EQU   6 REGISTER USED TO TEST RETURN CODES
                                    188+*                                  FROM INVOKED ROUTINES.
000006                              189+TYPNOREG EQU   6 REGISTER USED AS COUNTER FOR NUMBER
                                    190+*                                  OF ENTRIES REMAINING IN DATA
                                    191+*                                  SET TYPE.
000007                              192+DATA1REG EQU   7 REGISTER USED TO TRANSMIT DATA TO
                                    193+*                                  IKJEBEIA FOR MESSAGE INSERTION.
000007                              194+PDLREG   EQU   7 ADDRESS OF AREA FOR IKJPARSE TO
                                    195+*                                  RETURN PDL ADDRESS.
000008                              196+DATA2REG EQU   8 REGISTER USED TO TRANSMIT DATA TO
                                    197+*                                  IKJEBEIA FOR MESSAGE INSERTION.
000008                              198+PASSREG  EQU   8 ADDRESS OF PSCB.
000008                              199+SRRTNREG EQU   8 REGISTER USED TO LINK TO INTERNAL
                                    200+*                                  SUBROUTINES.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000009                              201+COMMREG  EQU   9 BASE REGISTER USED TO ADDRESS THE
                                    202+*                                  COMMUNICATION AREA.
00000B                              203+BASEREG  EQU   11 BASE REGISTER FOR THIS CSECT
00000C                              204+DATAREG  EQU   12 BASE REGISTER USED TO ADDRESS THE
                                    205+*                                  INPUT PARAMETER LIST.
00000D                              206+SAVEREG  EQU   13 ADDRESS OF SAVE AREA.
00000E                              207+RETREG   EQU   14 ADDRESS OF RETURN POINT IN CALLING
                                    208+*                                  MODULE.
00000F                              209+EPLOCREG EQU   15 ENTRY POINT ADDRESS OF MODULE TO BE
                                    210+*                                  INVOKED.
00000F                              211+RETCDREG EQU   15 CONDITION CODE RETURNED TO CALLING
                                    212+*                                  ROUTINE.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    214+***********************************************************************
                                    215+*                                                                     *
                                    216+*   PROLOG                                                            *
                                    217+*                                                                     *
                                    218+***********************************************************************
000000 47F0 F00E            0000E   219+         B     14(0,15) BRANCH AROUND ID
000004 08                           220+         DC    AL1(8)
000005 C9D2D1C5C2C5C9D5             221+         DC    CL8'IKJEBEIN' IDENTIFIER
00000D 00
00000E 90EC D00C            0000C   222+         STM   14,12,12(13) SAVE REGISTERS
000012 05B0                         223+         BALR  BASEREG,PARMREG0 ESTABLISH A BASE REGISTER AND
000014                              224+         USING *,BASEREG ADDRESSABILITY FOR THIS CSECT.
000014 18C1                         225+         LR    DATAREG,PARMREG1 SAVE ADDRESS OF INPUT PARAMETERS.
000016 0700                         226+         CNOP  0,4
000018 4510 B00C            00020   227+         BAL   1,*+8 BRANCH AROUND SP+LV
00001C 01                           228+         DC    AL1(SUBPOOL) SUBPOOL VALUE
00001D 000E40                       229+         DC    AL3(CADLEN) LENGTH
000020 5801 0000            00000   230+         L     0,0(1,0) LOAD SP AND LV
000024 0A0A                         231+         SVC   10 ISSUE GETMAIN SVC
000026 1891                         232+         LR    COMMREG,PARMREG1 ADDRESS OF COMMUNICATION AREA.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    234+***********************************************************************
                                    235+*                                                                     *
                                    236+*   ESTABLISH ADDRESSABILITY TO COMMUNICATION AREA AND INITIALIZE     *
                                    237+*   TO ZERO.  INITIALIZE ADDRESS TO TMP PARAMETER LIST.               *
                                    238+*                                                                     *
                                    239+***********************************************************************
000000                              240+         USING IKJEBECA,COMMREG ESTABLISH ADDRESSABILITY TO
                                    241+*                                  COMMUNICATION AREA.
000028 4120 00FF            000FF   242+         LA    LENREG,INF255 NUMBER OF BYTES SET TO ZERO EACH
                                    243+*                                  TIME THROUGH LOOP BUT LAST.
00002C 4130 0E40            00E40   244+         LA    SIZEREG,CADLEN SIZE OF COMMUNICATION AREA.
000030 0630                         245+         BCTR  SIZEREG,PARMREG0 REDUCE SIZE OF COMMUNICATION AREA
                                    246+*                                  BY 1.
000032 1849                         247+         LR    AREAREG,COMMREG COPY ADDRESS OF AREA TO BE SET
                                    248+*                                  TO ZERO.
000034                              249+IN001010 EQU   *
000034 1932                         250+         CR    SIZEREG,LENREG DETERMINE IF SIZE GREATER THAN 255.
000036 47D0 B032            00046   251+         BNH   IN001020 IF NOT, BRANCH TO SET REMAINING
                                    252+*                                  AREA TO ZERO.
00003A 4420 BBDE            00BF2   253+         EX    LENREG,INXC001 ZERO 255 BYTES.
00003E 1A42                         254+         AR    AREAREG,LENREG UPDATE POINTER TO NEXT SECTION TO
                                    255+*                                  BE SET TO ZERO.
000040 1B32                         256+         SR    SIZEREG,LENREG DECREMENT NUMBER OF BYTES TO BE
                                    257+*                                  ZEROED BY NUMBER JUST SET TO
                                    258+*                                  ZERO.
000042 47F0 B020            00034   259+         B     IN001010 BRANCH TO CHECK IF DONE.
000046                              260+IN001020 EQU   *
000046 4430 BBDE            00BF2   261+         EX    SIZEREG,INXC001 ZERO NUMBER OF BYTES REMAINING.
00004A 41F0 9B18            00B18   262+         LA    RETCDREG,CASVAREA ADDRESS OF SAVE AREA IN THE
                                    263+*                                  COMMUNICATION AREA.
00004E 50D0 F004            00004   264+         ST    SAVEREG,D4(,RETCDREG) CROSS CHAIN PREVIOUS AND
000052 50F0 D008            00008   265+         ST    RETCDREG,D8(,SAVEREG) CURRENT SAVE AREAS AND
000056 18DF                         266+         LR    SAVEREG,RETCDREG INITIALIZE REG13 TO POINT TO
                                    267+*                                  CURRENT SAVE AREA.
000058 41F0 F048            00048   268+         LA    RETCDREG,D72(,RETCDREG) COMPUTE ADDRESS OF NEXT
00005C 50F0 9DE8            00DE8   269+         ST    RETCDREG,CANXTSVA LOWER SAVE AREA AND SAVE
                                    270+*                                  IN COMMUNICATION AREA.
000060 50C0 9000            00000   271+         ST    DATAREG,CAPTTMP SAVE ADDRESS TO INPUT PARAMETER
                                    272+*                                  LIST FROM TMP.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    274+***********************************************************************
                                    275+*                                                                     *
                                    276+*   LOAD IKJEBEMS (MESSAGE SELECTION ROUTINE).  SAVE ENTRY POINT      *
                                    277+*   ADDRESS IN THE COMMUNICATION AREA.                                *
                                    278+*                                                                     *
                                    279+***********************************************************************


000064 4100 B058            0006C   281+         LA    0,*+8 LOAD PARAMETER INTO REGISTER ZERO
000068 47F0 B060            00074   282+         B     *+12 BRANCH AROUND CONSTANT(S)
00006C C9D2D1C5C2C5D4E2             283+         DC    CL8'IKJEBEMS' ENTRY POINT NAME
000074 1B11                         284+         SR    1,1 SHOW NO DCB PRESENT
000076 0A08                         285+         SVC   8 ISSUE LOAD SVC
000078 5000 9014            00014   286+         ST    PARMREG0,CAPTMS SAVE ENTRY POINT ADDRESS IN THE
                                    287+*                                  COMMUNICATION AREA.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    290+***********************************************************************
                                    291+*                                                                     *
                                    292+*   BUILD MODE MESSAGE INSERTION IN THE COMMUNICATION AREA.  THE      *
                                    293+*   INSERTION RECORD CONTAINS THE NAME OF THE EDIT COMMAND AS THE     *
                                    294+*   USER ENTERED IT.                                                  *
                                    295+*                                                                     *
                                    296+***********************************************************************
00007C 5840 9000            00000   297+         L     AREAREG,CAPTTMP ADDRESS OF CPPL.
000080 5840 400C            0000C   298+         L     AREAREG,(CPPLECT-CPPL)(,AREAREG) ADDRESS OF ECT.
000084 D207 93AD 400C 003AD 0000C   299+         MVC   CAMODETX+D1(L'ECTPCMD),(ECTPCMD-ECT)(AREAREG)
                                    300+*                             MOVE COMMAND NAME TO INSERTION
                                    301+*                                  RECORD.
00008A 9240 93AC      003AC         302+         MVI   CAMODETX,CHRBLANK MOVE IN BLANK BEFORE COMMAND
                                    303+*                                  NAME.
00008E 4120 0009            00009   304+         LA    LENREG,(L'ECTPCMD+D1)(,D0) LOOP CONTROL COUNTER.
000092 4130 93B4            003B4   305+         LA    SIZEREG,CAMODETX+(L'ECTPCMD) ADDRESS OF LAST
                                    306+*                                  CHARACTER IN COMMAND NAME.
000096                              307+IN000010 EQU   *
000096 9540 3000      00000         308+         CLI   D0(SIZEREG),CHRBLANK CHECK FOR BLANK.
00009A 4770 B090            000A4   309+         BNE   IN000020 IF NOT A BLANK, ALL TRAILING BLANKS
                                    310+*                                  HAVE BEEN SUPPRESSED.
00009E 0630                         311+         BCTR  SIZEREG,D0 BACK POINTER UP ONE CHARACTER.
0000A0 4620 B082            00096   312+         BCT   LENREG,IN000010 REDUCE COUNTER BY ONE AND BRANCH
                                    313+*                                  TO CHECK NEXT BYTE.
0000A4                              314+IN000020 EQU   *
0000A4 4120 2004            00004   315+         LA    LENREG,D4(,LENREG) COMPUTE LENGTH OF INSERTION
0000A8 4020 93A8            003A8   316+         STH   LENREG,CAMODELN AND SAVE IN CONTROL FIELD.
0000AC 4120 0001            00001   317+         LA    LENREG,D1(,D0) INITIALIZE NUMBER OF SEGMENTS IN
0000B0 5020 93A0            003A0   318+         ST    LENREG,CAMODEIS MODE MESSAGE.
0000B4 4140 93A8            003A8   319+         LA    AREAREG,CAMODELN INITIALIZE ADDRESS OF MODE
0000B8 5040 93A4            003A4   320+         ST    AREAREG,CAMODEPT MESSAGE IN OUTPUT DESCRIPTOR.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    322+***********************************************************************
                                    323+*                                                                     *
                                    324+*   CALL IKJPARS TO SYNTAX CHECK THE EDIT COMMAND.                    *
                                    325+*                                                                     *
                                    326+*   INITIALIZE THE FIRST THREE WORDS OF THE SERVICE ROUTINE PARAMETER *
                                    327+*   LIST (CAPTUPT, CAPTECT, CAPTECT) TO POINT TO THE UPT, ECT, AND    *
                                    328+*   THE EDIT ATTENTION ECB.                                           *
                                    329+*                                                                     *
                                    330+*   INITIALIZE THE SEVEN WORD PARAMETER LIST FOR IKJPARS.  LINK TO    *
                                    331+*   IKJPARS TO SYNTAX CHECK THE EDIT COMMAND AND TO BUILD THE         *
                                    332+*   PARAMETER DESCRIPTOR LIST.                                        *
                                    333+*                                                                     *
                                    334+***********************************************************************
0000BC 58C0 9000            00000   335+         L     DATAREG,CAPTTMP ADDRESS OF PARAMETER LIST PASSED
                                    336+*                                  BY TMP.
0000C0 5820 C004            00004   337+         L     UPTREG,(CPPLUPT-CPPL)(,DATAREG) GET ADDRESS
                                    338+*                                  OF UPT.
0000C4 5830 C00C            0000C   339+         L     ECTREG,(CPPLECT-CPPL)(,DATAREG) GET ADDRESS
                                    340+*                                  OF ECT.
0000C8 4150 9078            00078   341+         LA    ECBREG,CAATTN GET ADDRESS OF ATTENTION ECB.
0000CC 5860 BDD4            00DE8   342+         L     PCLREG,INPTPCL ADDRESS OF PCL FOR IKJPARSE.
0000D0 5840 C000            00000   343+         L     AREAREG,(CPPLCBUF-CPPL)(,DATAREG) ADDRESS OF
                                    344+*                                  EDIT COMMAND.
0000D4 4170 9220            00220   345+         LA    PDLREG,CATMPLST+(PPLANS-PPL) ADDRESS OF AREA IN
0000D8 4170 9024            00024   346+         LA    PDLREG,CAPTPRSD SPECIFY ADDRESS OF AREA IN
                                    347+*                                  WHICH IKJPARS RETURNS THE
                                    348+*                                  POINTER TO THE PDL.
                                    349+         XC    CATMPLST+(PPLPCL-PPL)(PPLUWA-PPLPCL+L'PPLUWA),CATMPLST+(X
0000DC D70F 921C 921C 0021C 0021C      +               PPLPCL-PPL) ZERO IKJPARS PORTION OF PARAMETER
                                    350+*                                  LIST.
0000E2 4110 9210            00210   351+         LA    1,CATMPLST LOAD PARAMETER REG 1
0000E6 18E2                         352+         LR    14,(UPTREG) PICK UP PARAMETER
0000E8 18F3                         353+         LR    15,(ECTREG) PICK UP PARAMETER
0000EA 1805                         354+         LR    0,(ECBREG) PICK UP PARAMETER
0000EC 90E0 1000            00000   355+         STM   14,0,0(1) STORE INTO PARAM. LIST
0000F0 18E6                         356+         LR    14,(PCLREG) PICK UP PARAMETER
0000F2 18F7                         357+         LR    15,(PDLREG) PICK UP PARAMETER
0000F4 1804                         358+         LR    0,(AREAREG) PICK UP PARAMETER
0000F6 90E0 100C            0000C   359+         STM   14,0,12(1) STORE INTO PARAM. LIST
0000FA 5090 1018            00018   360+         ST    (COMMREG),24(0,1) STORE INTO PARAM. LIST
0000FE 0700                         361+         CNOP  0,4
000100 45F0 B100            00114   362+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
000104 0000010C                     363+         DC    A(*+8) ADDR OF EP PARAMETER
000108 00000000                     364+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
00010C C9D2D1D7C1D9E240             365+         DC    CL8'IKJPARS' EP PARAMETER
000114 0A06                         366+         SVC   6 ISSUE LINK SVC
000116                              367+IN001060 EQU   *
000116 47FF B106            0011A   368+         B     IN001060+D4(RETCDREG) IKJPARS RETURN CODE BRANCH
                                    369+*                                  TABLE.
00011A 47F0 B134            00148   370+         B     IN001070 00 - SUCCESSFUL COMPLETION.
00011E 47F0 BACA            00ADE   371+         B     INEXIT2 04 - COMMAND NOT COMPLETE, COULD
                                    372+*                                  NOT PROMPT, RETURN.
000122 47F0 BACA            00ADE   373+         B     INEXIT2 08 - ATTENTION ISSUED, RETURN.
000126 47F0 B126            0013A   374+         B     IN001065 12 - INVALID PARAMETERS.
00012A 47F0 B11E            00132   375+         B     IN001062 16 - NO MAIN STORAGE AVAILABLE --  A45714
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00012E 47F0 B126            0013A   376+         B     IN001065 20 - ERROR IN VALID. CHK EXIT.     A45714
                                    377+*                                  PUT ERROR MESSAGE AND RETURN.


000132                              379+IN001062 EQU   * A45714
                                    380+***********************************************************************
                                    381+*                                                                     *
                                    382+*   ISSUE NO MAIN STORAGE AVAILABLE MESSAGE AND TERMINATE.            *
                                    383+*                                                                     *
                                    384+***********************************************************************
000132 4150 0000            00000   385+         LA    ERR1REG,INERROR1 RELATIVE ERROR TO BE PROCESSED.
000136 47F0 BA7A            00A8E   386+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    387+*                                  ERROR MESSAGE AND RETURN.


                                    389+***********************************************************************
                                    390+*                                                                     *
                                    391+*   ISSUE COMMAND SYSTEM ERROR MESSAGE AND TERMINATE.                 *
                                    392+*                                                                     *
                                    393+***********************************************************************
00013A                              394+IN001065 EQU   *
00013A 4150 0004            00004   395+         LA    ERR1REG,INERROR2 RELATIVE ERROR TO BE PROCESSED.
00013E 188F                         396+         LR    DATA2REG,RETCDREG SAVE RETURN CODE FOR MESSAGE.
000140 5680 BC20            00C34   397+         O     DATA2REG,INPARS INDICATE ROUTINE NAME AS IKJPARS.
000144 47F0 BA7A            00A8E   398+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    399+*                                  ERROR MESSAGE AND RETURN.


000148                              401+IN001070 EQU   *
000148 58C0 9024            00024   402+         L     DATAREG,CAPTPRSD ADDRESS OF EDIT PDL.
000000                              403+         USING INECMNDD,DATAREG AND ESTABLISH ADDRESSABILITY
                                    404+*                                  TO IT.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    406+***********************************************************************
                                    407+*                                                                     *
                                    408+*   DETERMINE IF DATA SET TYPE SPECIFIED ON THE EDIT COMMAND.  IF     *
                                    409+*   DATA SET TYPE NOT SPECIFIED, BRANCH TO PROCESS DATA SET NAME.     *
                                    410+*                                                                     *
                                    411+*   WHEN DATA SET TYPE IS SPECIFIED, INITIALIZE THE DATA SET TYPE     *
                                    412+*   FIELD IN THE COMMUNICATION AREA USING A DATA SET TYPE FROM        *
                                    413+*   INDSTAB LOCATED BY THE KEYWORD NUMBER RETURNED BY IKJPARS.        *
                                    414+*   AFTER THE DATA SET TYPE IS INITIALIZED, LOAD AND CALL IKJEBEPS    *
                                    415+*   TO VERIFY THE DATA SET TYPE AND RETURN ALL DATA SET DEPENDENT     *
                                    416+*   INFORMATION.                                                      *
                                    417+*                                                                     *
                                    418+***********************************************************************
00014C D501 C022 BC33 00022 00C47   419+         CLC   INDSTYPE(L'INNOKEYW),INNOKEYW DETERMINE IF DATA
                                    420+*                                  SET TYPE SPECIFIED ON COMMAND.
000152 4780 B1A8            001BC   421+         BE    IN001075 IF NOT SPECIFIED, BRANCH TO PROCESS
                                    422+*                                  DATA SET NAME.
000156 4820 C022            00022   423+         LH    INDEXREG,INDSTYPE OBTAIN KEYWORD NUMBER RETURNED
                                    424+*                                  BY IKJPARS TO BE USED AS
                                    425+*                                  INDEX TO DATA SET TYPE TABLE.
00015A 8920 0003            00003   426+         SLL   INDEXREG,D3(D0) MULTIPLY INDEX BY 8.
00015E 4142 BD51            00D65   427+         LA    AREAREG,IKJEBIN0-D8(INDEXREG) OBTAIN ADDRESS OF
                                    428+*                                  DATA SET TYPE.
000162 D207 9098 4000 00098 00000   429+         MVC   CADSTYPE(INDSTELN),D0(AREAREG) MOVE DATA SET TYPE
                                    430+*                                  TO COMMUNICATION AREA TO BE
                                    431+*                                  USED AS INPUT PARAMETER TO
                                    432+*                                  IKJEBEPS.
000168 4100 B15C            00170   433+         LA    0,*+8 LOAD PARAMETER INTO REGISTER ZERO
00016C 47F0 B164            00178   434+         B     *+12 BRANCH AROUND CONSTANT(S)
000170 C9D2D1C5C2C5D7E2             435+         DC    CL8'IKJEBEPS' ENTRY POINT NAME
000178 1B11                         436+         SR    1,1 SHOW NO DCB PRESENT
00017A 0A08                         437+         SVC   8 ISSUE LOAD SVC
00017C 18F0                         438+         LR    EPLOCREG,PARMREG0 COPY ENTRY POINT ADDRESS.
00017E                              439+         DS    0H
00017E 4110 9098            00098   440+         LA    1,CADSTYPE LOAD PARAMETER REG 1
000182 05EF                         441+         BALR  14,15 BRANCH TO ENTRY POINT
000184 12FF                         442+         LTR   RETCDREG,RETCDREG TEST FOR SUCCESSFUL COMPLETION.
000186 4770 B18E            001A2   443+         BNZ   IN001071 IF RETURN CODE = 4, BRANCH TO PUT
                                    444+*                                  ERROR MESSAGE AND RETURN.
00018A D249 9098 1000 00098 00000   445+         MVC   CADSTYPE(CAPDEND-CAPD),D0(PARMREG1) MOVE DATA SET
                                    446+*                                  DEPENDENT INFORMATION TO THE
                                    447+*                                  COMMUNICATION AREA.
000190 4500 B188            0019C   448+         BAL   0,*+12 LOAD ADDR OF EP SYMBOL
000194 C9D2D1C5C2C5D7E2             449+         DC    CL8'IKJEBEPS' EP SYMBOL
00019C 0A09                         450+         SVC   9 ISSUE DELETE SVC
00019E 47F0 B1A8            001BC   451+         B     IN001075 BRANCH TO PROCESS DATA SET NAME.


                                    453+***********************************************************************
                                    454+*                                                                     *
                                    455+*   ISSUE COMMAND SYSTEM ERROR MESSAGE.                               *
                                    456+*                                                                     *
                                    457+***********************************************************************
0001A2                              458+IN001071 EQU   *
0001A2 4500 B19A            001AE   459+         BAL   0,*+12 LOAD ADDR OF EP SYMBOL
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0001A6 C9D2D1C5C2C5D7E2             460+         DC    CL8'IKJEBEPS' EP SYMBOL
0001AE 0A09                         461+         SVC   9 ISSUE DELETE SVC
0001B0 4150 0004            00004   462+         LA    ERR1REG,INERROR2 RELATIVE ERROR TO BE PROCESSED.
0001B4 4180 BD40            00D54   463+         LA    DATA2REG,ININS004 ADDRESS OF INSERTION LIST FOR
                                    464+*                                  SECOND LEVEL MESSAGE.
0001B8 47F0 BA7A            00A8E   465+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    466+*                                  ERROR MESSAGE AND TERMINATE.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    468+***********************************************************************
                                    469+*                                                                     *
                                    470+*   DATA SET NAME PROCESSING.                                         *
                                    471+*                                                                     *
                                    472+*   UPON RETURN FROM IKJPARS, DETERMINE IF DATA SET NAME WAS ENTERED  *
                                    473+*   FULLY QUALIFIED.  IF NOT FULLY QUALIFIED, BRANCH TO FULLY         *
                                    474+*   QUALIFY THE DATA SET NAME.  WHEN FULLY QUALIFIED, DETERMINE IF    *
                                    475+*   USER SPECIFIED A DATA SET TYPE.  IF A DATA SET TYPE WAS NOT       *
                                    476+*   ENTERED, USE PARSE TO PROMPT FOR THE DATA SET TYPE.               *
                                    477+*                                                                     *
                                    478+***********************************************************************
0001BC                              479+IN001075 EQU   *
0001BC 9240 90F0      000F0         480+         MVI   CAEDDSN,CHRBLANK INITIALIZE DATA SET NAME, MEMBER
0001C0 D242 90F1 90F0 000F1 000F0   481+         MVC   CAEDDSN+D1(CAEDPSWD+L'CAEDPSWD-CAEDDSN-D1),CAEDDSN
                                    482+*                                  NAME, DDNAME AND PASSWORD
                                    483+*                                  FIELDS TO CHARACTER BLANKS.
0001C6 4820 C00C            0000C   484+         LH    LENREG,INDSN+INDSNLL GET DATA SET NAME LENGTH.
0001CA 4020 90EE            000EE   485+         STH   LENREG,CAEDDSNL SAVE LENGTH OF DATA SET NAME.
0001CE 1222                         486+         LTR   LENREG,LENREG DETERMINE IF MEMBER NAME ONLY WAS
                                    487+*                                  SPECIFIED.
0001D0 4780 B1D2            001E6   488+         BZ    IN001077 IF SO, BYPASS MOVE OF DSNAME TO
                                    489+*                                  COMMUNICATION AREA.
0001D4 5840 C008            00008   490+         L     AREAREG,INDSN+INDSNPT GET POINTER TO DATA SET NAME
0001D8 0620                         491+         BCTR  LENREG,PARMREG0 REDUCE DATA SET NAME BY 1.
0001DA 4420 BBF0            00C04   492+         EX    LENREG,INMV003 MOVE DATA SET NAME TO COMMUNICATION
                                    493+*                                  AREA.
0001DE 9180 C016      00016         494+         TM    INDSN+INMEMFLG,INOPRNDO DETERMINE IF MEMBER NAME
                                    495+*                                  SUPPLIED.
0001E2 4780 B1E4            001F8   496+         BZ    IN001080 IF NOT, BRANCH TO CHECK PASSWORD.
0001E6                              497+IN001077 EQU   *
0001E6 4820 C014            00014   498+         LH    LENREG,INDSN+INMEMLL GET LENGTH OF MEMBER NAME.
0001EA 5840 C010            00010   499+         L     AREAREG,INDSN+INMEMPT GET ADDRESS OF MEMBER NAME.
0001EE 0620                         500+         BCTR  LENREG,PARMREG0 REDUCE MEMBER NAME LENGTH BY 1.
0001F0 4420 BBF6            00C0A   501+         EX    LENREG,INMV004 MOVE MEMBER NAME TO COMMUNICATION
                                    502+*                                  AREA.
0001F4 9604 90EC      000EC         503+         OI    CAEDFLAG,CAEDDSOR INDICATE DSORG OF PO.
0001F8                              504+IN001080 EQU   *
0001F8 9180 C01E      0001E         505+         TM    INDSN+INPSWFLG,INOPRNDO DETERMINE IF PASSWORD
                                    506+*                                  SPECIFIED.
0001FC 4780 B1FA            0020E   507+         BZ    IN001090 IF NOT, BRANCH TO CHECK DATA SET
                                    508+*                                  TYPE.
000200 4820 C01C            0001C   509+         LH    LENREG,INDSN+INPSWLL GET LENGTH OF PASSWORD.
000204 5840 C018            00018   510+         L     AREAREG,INDSN+INPSWPT GET ADDRESS OF PASSWORD.
000208 0620                         511+         BCTR  LENREG,PARMREG0 REDUCE LENGTH OF PASSWORD BY 1.
00020A 4420 BBFC            00C10   512+         EX    LENREG,INMV005 MOVE PASSWORD TO COMMUNICATION
                                    513+*                                  AREA.
00020E                              514+IN001090 EQU   *
00020E 9140 C00E      0000E         515+         TM    INDSN+INDSNFLG,INFULLQ DETERMINE IF DATA SET NAME
                                    516+*                                  WAS ENTERED FULLY QUALIFIED.
000212 4710 B22A            0023E   517+         BO    IN001095 IF FULLY QUALIFIED, BRANCH TO CHECK
                                    518+*                                  IF DATA SET TYPE SPECIFIED.
                                    519+*   IF DATA SET NAME IS NOT FULLY QUALIFIED, CALL IKJEBEID TO
                                    520+*   FULLY QUALIFY.
000216 0700                         521+         CNOP  0,4
000218 47F0 B20C            00220   522+         B     *+8 BRANCH AROUND VCON
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00021C 00000000                     523+IHB0015B DC    V(IKJEBIN7) ENTRY POINT ADDRESS
000220 4110 9890            00890   524+         LA    1,INSVCRTN LOAD PARAMETER REG 1
000224 18E9                         525+         LR    14,(COMMREG) PICK UP PARAMETER
000226 18FC                         526+         LR    15,(DATAREG) PICK UP PARAMETER
000228 90EF 1000            00000   527+         STM   14,15,0(1) STORE INTO PARAM. LIST
00022C 58F0 B208            0021C   528+         L     15,IHB0015B LOAD 15 WITH ENTRY ADR
000230 05EF                         529+         BALR  14,15 BRANCH TO ENTRY POINT
000232                              530+IN001093 EQU   *
000232 47FF B222            00236   531+         B     IN001093+D4(RETCDREG) RETURN CODE BRANCH TABLE.
000236 47F0 B250            00264   532+         B     IN002000 00 - SUCCESSFUL.
00023A 47F0 BA9C            00AB0   533+         B     INEXIT1 04 - UNSUCCESSFUL. (TERMINATE EDIT.)
00023E                              534+IN001095 EQU   *
00023E 9500 90C0      000C0         535+         CLI   CADSCODE,D0 DETERMINE IF DATA SET TYPE WAS
000242 4770 B250            00264   536+         BNE   IN002000 ENTERED ON THE EDIT COMMAND.
                                    537+*                                  IF SPECIFIED, BRANCH TO LINK
                                    538+*                                  TO IKJDAIR.
000246 0700                         539+         CNOP  0,4
000248 47F0 B23C            00250   540+         B     *+8 BRANCH AROUND VCON
00024C 00000000                     541+IHB0018B DC    V(IKJEBIN5) ENTRY POINT ADDRESS
000250 4110 9890            00890   542+         LA    1,INSVCRTN LOAD PARAMETER REG 1
000254 5090 1000            00000   543+         ST    (COMMREG),0(0,1) STORE INTO PARAM. LIST
000258 58F0 B238            0024C   544+         L     15,IHB0018B LOAD 15 WITH ENTRY ADR
00025C 05EF                         545+         BALR  14,15 BRANCH TO ENTRY POINT
                                    546+*                                  BRANCH TO PROMPT FOR SAME.
00025E 12FF                         547+         LTR   RETCDREG,RETCDREG TEST RETURN CODE FOR SUCCESSFUL
000260 4770 BA9C            00AB0   548+         BNZ   INEXIT1 COMPLETION.  IF NOT ZERO,
                                    549+*                                  BRANCH TO EXIT.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000264                              551+IN002000 EQU   *
                                    552+***********************************************************************
                                    553+*                                                                     *
                                    554+*   BUILD DATA SET NAME INSERTION RECORD IN COMMUNICATION AREA.  THE  *
                                    555+*   INSERTION RECORD WILL BE USED BY ANY ROUTINE WHICH HAS TO ISSUE   *
                                    556+*   AN ERROR MESSAGE CONTAINING A DATA SET NAME.  THE INSERTION WILL  *
                                    557+*   CONTAIN THE FULLY QUALIFIED DATA SET NAME IN SINGLE QUOTES IF THE *
                                    558+*   USER SPECIFIED A FULLY QUALIFIED DATA SET NAME ON THE EDIT        *
                                    559+*   COMMAND.  WHEN THE DATA SET NAME IS ENTERED PARTIALLY QUALIFIED,  *
                                    560+*   ALL LEVELS OF QUALIFICATION EXCEPT USERID ARE PLACED IN THE       *
                                    561+*   COMMUNICATION AREA.                                               *
                                    562+*                                                                     *
                                    563+***********************************************************************
000264 4140 9140            00140   564+         LA    AREAREG,CADSNREC ADDRESS OF INSERTION RECORD.
000268 4820 90EE            000EE   565+         LH    LENREG,CAEDDSNL LENGTH OF FULLY QUALIFIED DSNAME.
00026C 4150 90F0            000F0   566+         LA    DSNAMREG,CAEDDSN ADDRESS OF DATA SET NAME.
000270 9140 C00E      0000E         567+         TM    INDSN+INDSNFLG,INFULLQ DETERMINE IF DATA SET NAME
                                    568+*                                  WAS ENTERED FULLY QUALIFIED.
000274 4780 B272            00286   569+         BZ    IN002210 IF NOT FULLY QUALIFIED, BRANCH TO
                                    570+*                                  BUILD INSERTION RECORD.
000278 927D 4000      00000         571+         MVI   D0(AREAREG),INSNGLQT MOVE IN SINGLE QUOTE FOR
                                    572+*                                  INSERTION RECORD.
00027C 4130 0001            00001   573+         LA    COUNTREG,X1(,D0) INITIALIZE COUNTER TO NUMBER OF
                                    574+*                                  CHARACTERS IN NAME.
000280 1A43                         575+         AR    AREAREG,COUNTREG UPDATE ADDRESS IN INSERTION
                                    576+*                                  RECORD.
000282 47F0 B28A            0029E   577+         B     IN002030 BRANCH TO MOVE DATA SET NAME.
000286                              578+IN002210 EQU   *
000286 954B 5000      00000         579+         CLI   D0(DSNAMREG),INPERIOD CHECK FOR FIRST OCCURRENCE
00028A 4780 B282            00296   580+         BE    IN002220 OF PERIOD IN DSNAME.  BRANCH
                                    581+*                                  TO UPDATE COUNTER IF FOUND.
00028E 4150 5001            00001   582+         LA    DSNAMREG,X1(,DSNAMREG) UPDATE ADDRESS INTO DSNAME
000292 4620 B272            00286   583+         BCT   LENREG,IN002210 AND REDUCE LENGTH BY 1.
                                    584+*                                  BRANCH TO TEST NEXT CHARACTER
                                    585+*                                  IN BUFFER.
                                    586+*
                                    587+*   NOTE -- THE CONTENTS OF LENREG CANNOT GO TO ZERO BASED ON
                                    588+*   DEFINITION OF A PARTIALLY QUALIFIED TSO DATA SET NAME.
                                    589+*
000296                              590+IN002220 EQU   *
000296 4150 5001            00001   591+         LA    DSNAMREG,X1(,DSNAMREG) RESET ADDRESS IN DATA SET
00029A 0620                         592+         BCTR  LENREG,D0 NAME AND LENGTH TO BYPASS THE
                                    593+*                                  PERIOD.
00029C 1B33                         594+         SR    COUNTREG,COUNTREG ZERO COUNTER OF NUMBER OF BYTES
                                    595+*                                  IN DATA SET NAME.
00029E                              596+IN002030 EQU   *
00029E 0620                         597+         BCTR  LENREG,D0 REDUCE LENGTH TO BE MOVED BY ONE
                                    598+*                                  FOR MOVE CHARACTER.
0002A0 4420 BBE4            00BF8   599+         EX    LENREG,INMV001 MOVE DATA SET NAME TO INSERTION
                                    600+*                                  RECORD.
0002A4 4132 3001            00001   601+         LA    COUNTREG,X1(LENREG,COUNTREG) UPDATE COUNTER TO
                                    602+*                                  NUMBER OF BYTES IN DSNAME.
0002A8 4142 4001            00001   603+         LA    AREAREG,D1(LENREG,AREAREG) UPDATE ADDRESS IN
                                    604+*                                  INSERTION RECORD.
0002AC 9180 C016      00016         605+         TM    INDSN+INMEMFLG,INOPRNDO DETERMINE IF MEMBER NAME
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    606+*                                  SUPPLIED.
0002B0 4780 B2C2            002D6   607+         BZ    IN002230 IF NOT SUPPLIED, BRANCH TO COMPLETE
                                    608+*                                  INSERTION RECORD.
0002B4 924D 4000      00000         609+         MVI   D0(AREAREG),INLFTPRN MOVE LEFT PARENTHESIS TO
                                    610+*                                  INSERTION RECORD.
0002B8 4820 C014            00014   611+         LH    LENREG,INDSN+INMEMLL LENGTH OF MEMBER NAME.
0002BC 5850 C010            00010   612+         L     DSNAMREG,INDSN+INMEMPT ADDRESS OF MEMBER NAME.
0002C0 0620                         613+         BCTR  LENREG,D0 REDUCE LENGTH BY 1 FOR MVC.
0002C2 4420 BBEA            00BFE   614+         EX    LENREG,INMV002 MOVE MEMBER NAME TO INSERTION
                                    615+*                                  RECORD.
0002C6 4142 4002            00002   616+         LA    AREAREG,D2(LENREG,AREAREG) UPDATE ADDRESS IN DATA
                                    617+*                                  SET NAME INSERTION.
0002CA 925D 4000      00000         618+         MVI   D0(AREAREG),INRTPRN MOVE RIGHT PARENTHESIS TO
                                    619+*                                  INSERTION RECORD.
0002CE 4140 4001            00001   620+         LA    AREAREG,D1(,AREAREG) UPDATE ADDRESS IN DATA
                                    621+*                                  SET NAME INSERTION.
0002D2 4132 3003            00003   622+         LA    COUNTREG,D3(LENREG,COUNTREG) UPDATE COUNTER TO
                                    623+*                                  REFLECT NUMBER OF CHARACTERS
                                    624+*                                  IN DSNAME AND MEMBER NAME.
0002D6                              625+IN002230 EQU   *
0002D6 9140 C00E      0000E         626+         TM    INDSN+INDSNFLG,INFULLQ DETERMINE IF DATA SET NAME
                                    627+*                                  WAS ENTERED FULLY QUALIFIED.
0002DA 4780 B2D2            002E6   628+         BZ    IN002240 IF NOT FULLY QUALIFIED, BRANCH TO
                                    629+*                                  PLACE LENGTH IN INSERTION
                                    630+*                                  RECORD.
0002DE 927D 4000      00000         631+         MVI   D0(AREAREG),INSNGLQT MOVE CLOSING SINGLE QUOTE IN
                                    632+*                                  INSERTION RECORD.
0002E2 4130 3001            00001   633+         LA    COUNTREG,X1(,COUNTREG) UPDATE COUNTER TO REFLECT
                                    634+*                                  NUMBER OF CHARACTERS IN RECORD
0002E6                              635+IN002240 EQU   *
0002E6 D707 9138 9138 00138 00138   636+         XC    CADSNPTR(CADSNREC-CADSNPTR),CADSNPTR ZERO CONTROL
                                    637+*                                  WORDS FOR INSERTION RECORD.
0002EC 4130 3004            00004   638+         LA    COUNTREG,D4(,COUNTREG) UPDATE COUNTER TO INCLUDE
                                    639+*                                  LENGTH OF CONTROL WORD AND
0002F0 4030 913C            0013C   640+         STH   COUNTREG,CADSNLEN SAVE IN INSERTION RECORD.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    642+***********************************************************************
                                    643+*                                                                     *
                                    644+*   ALLOCATE THE EDIT DATA SET.                                       *
                                    645+*                                                                     *
                                    646+*   INDICATE THAT THE DATA SET BEING PROCESSED IS THE EDIT DATA SET.  *
                                    647+*   BUILD A PARAMETER BLOCK FOR IKJDAIR AND INCLUDE A PASSWORD IF     *
                                    648+*   SPECIFIED.  CHECK IF USER SPECIFIED NEW ON THE COMMAND -- IF SO,  *
                                    649+*   BRANCH TO VALIDATE OPERANDS SPECIFIED ON THE COMMAND.  OTHERWISE  *
                                    650+*   DETERMINE IF A MEMBER NAME WAS SPECIFIED.  WHEN A MEMBER NAME IS  *
                                    651+*   ENTERED, CHANGE DISPOSITION FROM OLD TO SHR FOR IKJDAIR.  LINK    *
                                    652+*   TO IKJDAIR WITH ENTRY CODE X'08' TO ALLOCATE THE DATA SET.        *
                                    653+*                                                                     *
                                    654+***********************************************************************
0002F4 9680 90EC      000EC         655+         OI    CAEDFLAG,CAEDITDS INDICATE EDIT DATA SET.
0002F8 5880 9000            00000   656+         L     PASSREG,CAPTTMP ADDRESS OF TMP PARAMETER LIST.
0002FC 5880 8008            00008   657+         L     PASSREG,(CPPLPSCB-CPPL)(,PASSREG) ADDRESS OF PSCB.
000300 4140 90EE            000EE   658+         LA    AREAREG,CAEDDSNL ADDRESS OF DATA SET NAME LENGTH
                                    659+*                                  AND DATA SET NAME.
000304 D24B 96F8 BCDC 006F8 00CF0   660+         MVC   INDREC(INDR8OLL),INDAIR8O INITIALIZE IKJDAIR
                                    661+*                                  PARAMETER LIST - ENTRY CODE 8.
00030A 9180 C01E      0001E         662+         TM    INDSN+INPSWFLG,INOPRNDO DETERMINE IF PASSWORD
                                    663+*                                  SPECIFIED.
00030E 4780 B304            00318   664+         BZ    IN002250 IF NOT, BRANCH TO CHECK IF NEW
                                    665+*                                  OPERAND SPECIFIED ON COMMAND.
000312 D207 9734 912C 00734 0012C   666+         MVC   INDREC+(DA08PSWD-DAPB08)(L'CAEDPSWD),CAEDPSWD MOVE
                                    667+*                                  PASSWORD TO PARAMETER LIST.
000318                              668+IN002250 EQU   *
000318 D501 C020 BC1E 00020 00C32   669+         CLC   INSTAT(L'INDISPNW),INDISPNW DETERMINE IF NEW WAS
                                    670+*                                  SPECIFIED ON COMMAND.
00031E 4780 B850            00864   671+         BE    IN003100 BRANCH TO VALIDATE OPERANDS ENTERED
                                    672+*                                  ON COMMAND IF NEW SPECIFIED.
000322 9180 C016      00016         673+         TM    INDSN+INMEMFLG,INOPRNDO DETERMINE IF MEMBER NAME
                                    674+*                                  ENTERED ON COMMAND.
000326 4780 B31A            0032E   675+         BZ    IN002255 IF NOT, BRANCH TO COMPLETE
                                    676+*                                  PARAMETER LIST FOR IKJDAIR.
00032A 9608 973C      0073C         677+         OI    INDREC+(DA08DSP1-DAPB08),DA08SHR INDICATE DISP=SHR
                                    678+*                                  FOR OLD, PARTITIONED DATA SETS
00032E                              679+IN002255 EQU   *
00032E 5040 9700            00700   680+         ST    AREAREG,INDREC+(DA08PDSN-DAPB08) PUT ADDRESS OF
                                    681+*                                  DSNAME IN PARAMETER LIST.
000332 4140 96F8            006F8   682+         LA    AREAREG,INDREC ADDRESS OF IKJDAIR PARAMETER LIST.
000336 4110 9210            00210   683+         LA    1,CATMPLST LOAD PARAMETER REG 1
00033A 18E8                         684+         LR    14,(PASSREG) PICK UP PARAMETER
00033C 18F4                         685+         LR    15,(AREAREG) PICK UP PARAMETER
00033E 90EF 100C            0000C   686+         STM   14,15,12(1) STORE INTO PARAM. LIST
000342 0700                         687+         CNOP  0,4
000344 45F0 B344            00358   688+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
000348 00000350                     689+         DC    A(*+8) ADDR OF EP PARAMETER
00034C 00000000                     690+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000350 C9D2D1C4C1C9D940             691+         DC    CL8'IKJDAIR' EP PARAMETER
000358 0A06                         692+         SVC   6 ISSUE LINK SVC
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    694+***********************************************************************
                                    695+*                                                                     *
                                    696+*   UPON RETURN FROM IKJDAIR, TEST RETURN CODE FOR SUCCESSFUL         *
                                    697+*   COMPLETION.  WHEN IKJDAIR RETURNS A NON-ZERO RETURN CODE, BRANCH  *
                                    698+*   TO APPROPRIATE DIAGNOSTIC AREA.                                   *
                                    699+*                                                                     *
                                    700+***********************************************************************





00035A 12FF                         702+         LTR   RETCDREG,RETCDREG CHECK FOR NARMAL COMPLETION.   A59609
00035C 4780 B4A0            004B4   703+         BZ    IN002400 IF SO, BR TO CONTINUE NARMALLY.   A59609
000360                              704+IN002260 EQU   * A59609
000360 49F0 BC5C            00C70   705+         CH    RETCDREG,INDAIR08 CHECK FOR CATLG ERROR.         A59609
000364 4740 B36C            00380   706+         BL    IN002270 INVALID PARAMETERS, SEND MESSAGE. A59609
000368 4780 B382            00396   707+         BE    IN002290 CATLG MGMT ERROR, SEND MESSAGE.   A59609
00036C 49F0 BC5E            00C72   708+         CH    RETCDREG,INDAIR16 CHECK IF TIOT FULL.            A59609
000370 4740 B3D6            003EA   709+         BL    IN002350 DYN ALLOCATION ERROR, DETERMINE   A59609
                                    710+*                                  CAUSE AND SEND MESSAGE.      A59609
000374 4780 B37A            0038E   711+         BE    IN002280 NO TIOT ENTRIES AVAILABLE, SEND   A59609
                                    712+*                                  APPROPRIATE MESSAGE.         A59609
000378 49F0 BC62            00C76   713+         CH    RETCDREG,INDAIR48 CHECK FOR DAIR STAE ENTERED.   A59609
00037C 4780 BA98            00AAC   714+         BE    INEXIT12 IF SO, RETURN TO TMP WITH RC=12.  A59609
                                    715+*
                                    716+*   OTHERWISE FALL THROUGH TO ISSUE GENERAL ERROR MESSAGE.      A59609
                                    717+*
                                    718+***********************************************************************
                                    719+*                                                                     *
                                    720+*   IKJDAIR RETURN CODES 04, 20, 24, 28, 32, 36, 40             A59609
                                    721+*                                                                     *
                                    722+*   ISSUE COMMAND NOT EXECUTABLE MESSAGE WITH SECOND LEVEL LOGIC      *
                                    723+*   ERROR MESSAGE.                                                    *
                                    724+*                                                                     *
                                    725+***********************************************************************
000380                              726+IN002270 EQU   *
000380 4150 0004            00004   727+         LA    ERR1REG,INERROR2 RELATIVE ERROR TO BE PROCESSED.
000384 188F                         728+         LR    DATA2REG,RETCDREG SAVE RETURN CODE FOR MESSAGE.
000386 5680 BC24            00C38   729+         O     DATA2REG,INDAIR INDICATE ROUTINE NAME AS IKJDAIR.
00038A 47F0 BA7A            00A8E   730+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    731+*                                  ERROR MESSAGE.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    733+***********************************************************************
                                    734+*                                                                     *
                                    735+*   IKJDAIR RETURN CODE 16                                            *
                                    736+*                                                                     *
                                    737+*   ISSUE TOO MANY DATA SETS ALLOCATED MESSAGE.                       *
                                    738+*                                                                     *
                                    739+***********************************************************************
00038E                              740+IN002280 EQU   *
00038E 4150 0054            00054   741+         LA    ERR1REG,INERRORM RELATIVE ERROR TO BE PROCESSED.
000392 47F0 BA7A            00A8E   742+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    743+*                                  ERROR MESSAGE.





                                    745+***********************************************************************
                                    746+*                                                                     *
                                    747+*   IKJDAIR RETURN CODE 08 - CATALOG ERROR.                           *
                                    748+*                                                                     *
                                    749+*   SINCE IKJDAIR RETURNS THIS RETURN CODE FOR A DYNAMIC ALLOCATION   *
                                    750+*   FAILURE OF X'17XX', THIS CODE ASSUMES THAT AN OBTAIN FAILURE HAS  *
                                    751+*   OCCURRED WHEN THE DA08DARC FIELD IS ZERO AND THE DA08CTRC FIELD   *
                                    752+*   IS NON-ZERO.                                                      *
                                    753+*                                                                     *
                                    754+***********************************************************************
000396                              755+IN002290 EQU   *
000396 D501 96FC BC44 006FC 00C58   756+         CLC   INDREC+(DA08DARC-DAPB08)(L'INDR0000),INDR0000 TEST
                                    757+*                                  FOR DARC = ZERO.
00039C 4770 B3D6            003EA   758+         BNE   IN002350 IF NOT ZERO, BRANCH TO DETERMINE
                                    759+*                                  CAUSE OF DYNAMIC ALLOCATION
                                    760+*                                  FAILURE.
                                    761+*
                                    762+*   THE FOLLOWING ASSUMES AN OBTAIN FAILURE, I.E., DARC = ZERO
                                    763+*   AND CTRC = NON-ZERO.
                                    764+*
0003A0                              765+IN002300 EQU   *
0003A0 D501 96FE BC46 006FE 00C5A   766+         CLC   INDREC+(DA08CTRC-DAPB08)(L'INDR0004),INDR0004 TEST
                                    767+*                                  FOR CATALOG ERROR CODE = 4.
0003A6 4770 B39E            003B2   768+         BNE   IN002320 IF NOT 4, BRANCH TO CHECK FOR 8.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    770+***********************************************************************
                                    771+*                                                                     *
                                    772+*   CATALOG ERROR RETURN CODE = 4.                                    *
                                    773+*                                                                     *
                                    774+*   ISSUE REQUIRED VOLUME NOT MOUNTED MESSAGE.                        *
                                    775+*                                                                     *
                                    776+***********************************************************************
0003AA                              777+IN002310 EQU   *
0003AA 4150 0058            00058   778+         LA    ERR1REG,INERRORN RELATIVE ERROR TO BE PROCESSED.
0003AE 47F0 BA7A            00A8E   779+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    780+*                                  ERROR MESSAGE.


0003B2                              782+IN002320 EQU   *
0003B2 D501 96FE BC48 006FE 00C5C   783+         CLC   INDREC+(DA08CTRC-DAPB08)(L'INDR0008),INDR0008 TEST
                                    784+*                                  FOR CATALOG ERROR = 8.
0003B8 4770 B3B0            003C4   785+         BNE   IN002340 IF NOT 8, BRANCH TO CHECK FOR 28.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78






0003BC                              788+IN002325 EQU   *
                                    789+***********************************************************************
                                    790+*                                                                     *
                                    791+*   CATALOG ERROR RETURN CODE = 8.                                    *
                                    792+*                                                                     *
                                    793+*   ISSUE DATA SET NOT ON VOLUME MESSAGE.                             *
                                    794+*                                                                     *
                                    795+***********************************************************************
0003BC 4150 005C            0005C   796+         LA    ERR1REG,INERRORO RELATIVE ERROR TO BE PROCESSED.
0003C0 47F0 BA7A            00A8E   797+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    798+*                                  ERROR MESSAGE.
0003C4                              799+IN002340 EQU   *
0003C4 D501 96FE BC4A 006FE 00C5E   800+         CLC   INDREC+(DA08CTRC-DAPB08)(L'INDR0028),INDR0028 TEST
                                    801+*                                  FOR CATALOG ERROR = 28.
0003CA 4770 B3C6            003DA   802+         BNE   IN002346 IF NOT 28, BRANCH TO ISSUE ERROR
                                    803+*                                  MESSAGE - ALLOCATION FAILED.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    805+***********************************************************************
                                    806+*
                                    807+*   CATALOG ERROR CODE 28.
                                    808+*
                                    809+*   ISSUE CATALOG I/O ERROR MESSAGE.
                                    810+*
                                    811+***********************************************************************
0003CE                              812+IN002343 EQU   *
0003CE 4160 0003            00003   813+         LA    ERR2REG,M3043 RELATIVE SECOND-LEVEL MESSAGE.
0003D2 4150 0060            00060   814+         LA    ERR1REG,INERRORP RELATIVE ERROR TO BE PROCESSED.
0003D6 47F0 BA7A            00A8E   815+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    816+*                                  ERROR MESSAGE.





                                    818+***********************************************************************
                                    819+*                                                                     *
                                    820+*   CATALOG ERROR RETURN CODE OTHER THAN 4,8, OR 28.                  *
                                    821+*                                                                     *
                                    822+*   ISSUE ALLOCATION FAILED - SYSTEM ERROR MESSAGE.                   *
                                    823+*                                                                     *
                                    824+***********************************************************************
0003DA                              825+IN002346 EQU   *
0003DA 4150 0060            00060   826+         LA    ERR1REG,INERRORP RELATIVE ERROR TO BE PROCESSED.
0003DE 4160 0002            00002   827+         LA    ERR2REG,M3042 RELATIVE SECOND LEVEL MESSAGE.
0003E2 4880 96FE            006FE   828+         LH    DATA2REG,INDREC+(DA08CTRC-DAPB08) OBTAIN CATALOG
                                    829+*                                  ERROR FOR SECOND LEVEL MESSAGE
0003E6 47F0 BA7A            00A8E   830+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    831+*                                  ERROR MESSAGE.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    833+***********************************************************************
                                    834+*                                                                     *
                                    835+*   DYNAMIC ALLOCATION FAILURE - DARC IS NON-ZERO.                    *
                                    836+*                                                                     *
                                    837+*   A TEST IS MADE FOR A DYNAMIC ALLOCATION RETURN CODE IN THE FORM   *
                                    838+*   X'17XX' (LOCATE FAILURE).  IF THE CAUSE OF ALLOCATION FAILURE     *
                                    839+*   IS ASSOCIATED WITH LOCATE, THE LOW ORDER BYTE OF THE DARC FIELD   *
                                    840+*   (THE LOCATE RETURN CODE) IS TESTED.  IF THE RETURN CODE IS 8,     *
                                    841+*   12, OR 16 THE DATA SET NAME COULD NOT BE FOUND IN THE CATALOG.    *
                                    842+*   IF IT IS 4, THE USER IS INFORMED BY TERMINAL MESSAGE THAT A       *
                                    843+*   REQUIRED CVOL IS NOT MOUNTED.  IF THE LOCATE RETURN CODE IS 24,   *
                                    844+*   A PERMANENT I/O ERROR EXISTS IN THE CATALOG AND AN APPROPRIATE    *
                                    845+*   ERROR MESSAGE IS ISSUED.  ALL OTHER RETURN CODES RESULT IN A      *
                                    846+*   GENERAL ALLOCATION ERROR MESSAGE BEING PUT TO THE TERMINAL.       *
                                    847+*   TERMINATION OCCURS AFTER ERROR MESSAGES ARE ISSUED FOR THE ABOVE  *
                                    848+*   CONDITIONS.                                                       *
                                    849+*                                                                     *
                                    850+***********************************************************************
0003EA                              851+IN002350 EQU   *
0003EA 9517 96FC      006FC         852+         CLI   INDREC+(DA08DARC-DAPB08),INDR1700 CHECK IF A
                                    853+*                                  LOCATE ERROR OCCURRED.
0003EE 4770 B41E            00432   854+         BNE   IN002370 IF NOT A LOCATE ERROR, BRANCH TO
                                    855+*                                  DETERMINE CAUSE OF DYNAMIC
                                    856+*                                  ALLOCATION FAILURE.
0003F2 9518 96FD      006FD         857+         CLI   INDREC+D1+(DA08DARC-DAPB08),D24 CHECK IF I/O ERROR
                                    858+*                                  IN CATALOG.
0003F6 4780 B3BA            003CE   859+         BE    IN002343 IF SO, BRANCH TO SET PARAMETERS FOR
                                    860+*                                  ERROR MESSAGE.
0003FA 950C 96FD      006FD         861+         CLI   INDREC+D1+(DA08DARC-DAPB08),D12 CHECK FOR LOWEST
                                    862+*                                  QUALIFIER OF DSNAME BEING AN
                                    863+*                                  INDEX LEVEL OR CVOL POINTER.
0003FE 4780 B402            00416   864+         BE    IN002355 IF SO, BRANCH TO ISSUE ERROR
                                    865+*                                  MESSAGE.
000402 9510 96FD      006FD         866+         CLI   INDREC+D1+(DA08DARC-DAPB08),D16 IS DATA SET NAME
                                    867+*                                  INCOMPATIBLE WITH CATALOG
                                    868+*                                  STRUCTURE.
000406 4780 B402            00416   869+         BE    IN002355 IF SO, BRANCH TO ISSUE ERROR MESSAGE.
00040A 9508 96FD      006FD         870+         CLI   INDREC+D1+(DA08DARC-DAPB08),D8 CHECK LOCATE RETURN
                                    871+*                                  CODE.
00040E 4740 B396            003AA   872+         BL    IN002310 04 - REQUIRED VOLUME NOT AVAILABLE
000412 4720 B444            00458   873+         BH    IN002390 20-32 - SYSTEM ERROR IN DYNAMIC
                                    874+*                                  ALLOCATION.


                                    876+* FALLING THROUGH THE ABOVE BRANCH IMPLIES THAT DATA SET NAME WAS
                                    877+* NOT FOUND IN THE CATALOG.


000416                              879+IN002355 EQU   *
000416 D501 C020 BC1C 00020 00C30   880+         CLC   INSTAT(L'INKEYDEF),INKEYDEF DETERMINE IF USER
                                    881+*                                  SPECIFIED OLD.
00041C 4780 B416            0042A   882+         BE    IN002360 IF OLD SPECIFIED, BRANCH TO PUT
                                    883+*                                  ERROR MESSAGE AND TERMINATE.
000420 4580 BB32            00B46   884+         BAL   SRRTNREG,INDISPPR BRANCH TO PROMPT FOR NEW OR OLD.
000424 1233                         885+         LTR   FLAGREG,FLAGREG CHECK USER RESPONSE FOR NEW OR OLD
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000426 4780 B850            00864   886+         BZ    IN003100 IF ZERO, USER SPECIFIED NEW.
                                    887+*                                  BRANCH TO VALIDATE OPERANDS
                                    888+*                                  SPECIFIED ON COMMAND.





                                    890+***********************************************************************
                                    891+*                                                                     *
                                    892+*   USER SPECIFIED OLD AND DATA SET NOT FOUND -- ISSUE ERROR MESSAGE  *
                                    893+*   THAT DATA SET NOT FOUND AND TERMINATE EDIT.                       *
                                    894+*                                                                     *
                                    895+***********************************************************************
00042A                              896+IN002360 EQU   *
00042A 4150 0018            00018   897+         LA    ERR1REG,INERROR7 RELATIVE ERROR TO BE PROCESSED.
00042E 47F0 BA7A            00A8E   898+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    899+*                                  ERROR MESSAGE.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    901+***********************************************************************
                                    902+*                                                                     *
                                    903+*   DETERMINE CAUSE OF DYNAMIC ALLOCATION FAILURE.                    *
                                    904+*                                                                     *
                                    905+***********************************************************************
000432                              906+IN002370 EQU   *
000432 D501 96FC BC52 006FC 00C66   907+         CLC   INDREC+(DA08DARC-DAPB08)(L'INDR0218),INDR0218 TEST
                                    908+*                                  FOR DYNAMIC ALLOCATION RETURN
                                    909+*                                  CODE OF X'0218'.
000438 4780 B396            003AA   910+         BE    IN002310 BRANCH TO ISSUE REQUIRED VOLUME NOT
                                    911+*                                  MOUNTED MESSAGE.
00043C D501 96FC BC4C 006FC 00C60   912+         CLC   INDREC+(DA08DARC-DAPB08)(L'INDR020C),INDR020C TEST
                                    913+*                                  FOR DARC = X'020C'.
000442 4780 B43C            00450   914+         BE    IN002385 IF SO, BRANCH TO INDICATE ERROR.
000446 D501 96FC BC4E 006FC 00C62   915+         CLC   INDREC+(DA08DARC-DAPB08)(L'INDR0210),INDR0210 TEST
                                    916+*                                  FOR DARC=X'0210'
00044C 4770 B444            00458   917+         BNE   IN002390 IF NOT DATA SET ALREADY IN USE,
                                    918+*                                  BRANCH TO CONTINUE TESTS.





                                    920+***********************************************************************
                                    921+*                                                                     *
                                    922+*   DYNAMIC ALLOCATION ERROR X'020C'                                  *
                                    923+*   DYNAMIC ALLOCATION ERROR X'0210'                                  *
                                    924+*                                                                     *
                                    925+*   ISSUE DATA SET ALREADY IN USE MESSAGE.                            *
                                    926+*                                                                     *
                                    927+***********************************************************************
000450                              928+IN002385 EQU   *
000450 4150 004C            0004C   929+         LA    ERR1REG,INERRORK RELATIVE ERROR TO BE PROCESSED.
000454 47F0 BA7A            00A8E   930+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    931+*                                  ERROR MESSAGE.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000458                              933+IN002390 EQU   *
000458 D501 96FC BC50 006FC 00C64   934+         CLC   INDREC+(DA08DARC-DAPB08)(L'INDR0214),INDR0214 TEST
                                    935+*                                  FOR DARC=X'0214'.
00045E 4780 B460            00474   936+         BE    IN002391 IF DARC=X'0214', BRANCH TO PROCESS.
000462 D501 96FC BC54 006FC 00C68   937+         CLC   INDREC+(DA08DARC-DAPB08)(L'INDR021C),INDR021C TEST
                                    938+*                                  FOR DARC=X'021C'.
000468 4770 B46C            00480   939+         BNE   IN002393 IF NOT X'021C',BRANCH TO CONTINUE
                                    940+*                                  TESTS.





                                    942+***********************************************************************
                                    943+*
                                    944+*   DYNAMIC ALLOCATION ERROR X'021C'.
                                    945+*   NO UNIT IS AVAILABLE.
                                    946+*
                                    947+*   DYNAMIC ALLOCATION ERROR X'0214'.
                                    948+*   INVALID UNIT IN UADS.
                                    949+*
                                    950+***********************************************************************
00046C 4160 0002            00002   951+         LA    ERR2REG,M3182 SPECIFY NO UNIT AVAILABLE MESSAGE.
000470 47F0 B464            00478   952+         B     IN002392 BRANCH TO SET RELATIVE MESSAGE NO.
000474                              953+IN002391 EQU   *
000474 4160 0001            00001   954+         LA    ERR2REG,M3181 SPECIFY INVALID UNIT MESSAGE.
000478                              955+IN002392 EQU   *
000478 4150 007C            0007C   956+         LA    ERR1REG,INERRORW RELATIVE ERROR TO BE PROCESSED.
00047C 47F0 BA7A            00A8E   957+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    958+*                                  MESSAGE.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000480                              960+IN002393 EQU   *
000480 D501 96FC BC58 006FC 00C6C   961+         CLC   INDREC+(DA08DARC-DAPB08)(L'INDR0404),INDR0404 TEST
                                    962+*                                  FOR DEVICE NOT DIRECT ACCESS.
000486 4770 B47E            00492   963+         BNE   IN002395 IF NOT X'0404' BRANCH TO CONTINUE
                                    964+*                                  TESTS.





                                    966+***********************************************************************
                                    967+*
                                    968+*   DYNAMIC ALLOCATION ERROR X'0404'.
                                    969+*
                                    970+*   ISSUE MESSAGE FOR DEVICE NOT DIRECT ACCESS.
                                    971+*
                                    972+***********************************************************************
00048A 4150 0064            00064   973+         LA    ERR1REG,INERRORQ RELATIVE ERROR TO BE PROCESSED.
00048E 47F0 BA7A            00A8E   974+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    975+*                                  MESSAGE.


000492                              977+IN002395 EQU   *
000492 D501 96FC BC5A 006FC 00C6E   978+         CLC   INDREC+(DA08DARC-DAPB08)(L'INDR041C),INDR041C TEST
                                    979+*                                  FOR DATA SET ON MULTIPLE
                                    980+*                                  VOLUMES.
000498 4770 B490            004A4   981+         BNE   IN002399 IF NOT X'041C', BRANCH TO ISSUE
                                    982+*                                  SYSTEM ERROR DIAGNOSTIC WITH
                                    983+*                                  DARC AS INSERTION.





                                    985+***********************************************************************
                                    986+*
                                    987+*   DYNAMIC ALLOCATION ERROR X'041C'.
                                    988+*
                                    989+*   ISSUE DIAGNOSTIC FOR MULTIPLE VOLUMES NOT SUPPORTED.
                                    990+*
                                    991+***********************************************************************
00049C 4150 0070            00070   992+         LA    ERR1REG,INERRORT RELATIVE ERROR TO BE PROCESSED.
0004A0 47F0 BA7A            00A8E   993+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                    994+*                                  MESSAGE.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    996+***********************************************************************
                                    997+*                                                                     *
                                    998+*   DYNAMIC ALLOCATION ERRORS OTHER THAN THOSE SPECIFICALLY
                                    999+*   TESTED FOR.
                                   1000+*                                                                     *
                                   1001+*   ISSUE ALLOCATION FAILED - SYSTEM ERROR MESSAGE.                   *
                                   1002+*                                                                     *
                                   1003+***********************************************************************
0004A4                             1004+IN002399 EQU   *
0004A4 4150 0060            00060  1005+         LA    ERR1REG,INERRORP RELATIVE ERROR TO BE PROCESSED.
0004A8 4160 0001            00001  1006+         LA    ERR2REG,M3041 RELATIVE SECOND LEVEL MESSAGE.
0004AC 4880 96FC            006FC  1007+         LH    DATA2REG,INDREC+(DA08DARC-DAPB08) OBTAIN DARC FOR
                                   1008+*                                  SECOND LEVEL MESSAGE.
0004B0 47F0 BA7A            00A8E  1009+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                   1010+*                                  ERROR MESSAGE.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1012+***********************************************************************
                                   1013+*                                                                     *
                                   1014+*   DATA SET SUCCESSFULLY ALLOCATED.                                  *
                                   1015+*                                                                     *
                                   1016+*   MOVE DDNAME RETURNED BY IKJDAIR TO COMMUNICATION AREA AND         *
                                   1017+*   INDICATE THAT DATA SET IS ALLOCATED.  DETERMINE IF DATA SET       *
                                   1018+*   ORGANIZATION IS VALID FOR EDIT -- IF NOT, ISSUE ERROR MESSAGE     *
                                   1019+*   AND TERMINATE.  IF DATA SET ORGANIZATION IS PARTITIONED, BRANCH   *
                                   1020+*   TO PROCESS MEMBER NAME.  WHEN DATA SET HAS SEQUENTIAL ORGANIZA-   *
                                   1021+*   TION, CHECK IF USER SPECIFIED A MEMBER NAME ON COMMAND.  IF       *
                                   1022+*   A MEMBER NAME WAS ENTERED, REBUILD DATA SET NAME INSERTION AND    *
                                   1023+*   PUT DIAGNOSTIC MESSAGE TO TERMINAL.  AFTER USER HAS BEEN          *
                                   1024+*   INFORMED OF ERROR, BRANCH TO PROCESS LOGICAL RECORD SIZE AND      *
                                   1025+*   BLOCK SIZE FOR OLD DATA SET.                                      *
                                   1026+*                                                                     *
                                   1027+***********************************************************************
0004B4                             1028+IN002400 EQU   *
0004B4 D207 9124 9704 00124 00704  1029+         MVC   CAEDDDN(L'CAEDDDN),INDREC+(DA08DDN-DAPB08) MOVE
                                   1030+*                                  DDNAME RETURNED BY IKJDAIR
                                   1031+*                                  INTO THE COMMUNICATION AREA.
0004BA 9611 90EC      000EC        1032+         OI    CAEDFLAG,CAEDDISP+CAEDALOC INDICATE THAT THE EDIT
                                   1033+*                                  DATA SET HAS BEEN ALLOCATED
                                   1034+*                                  AND THAT IT HAS DISP = OLD.
0004BE 9102 9743      00743        1035+         TM    INDREC+(DA08DSO-DAPB08),DS1ORGPO DETERMINE IF A  SA73470
                                   1036+*                                  PARTITIONED DATA SET.
0004C2 4710 B532            00546  1037+         BO    IN002430 IF SO, BRANCH TO PROCESS MEMBER   SA73470
                                   1038+*                                  NAME.
0004C6 9540 9743      00743        1039+         CLI   INDREC+(DA08DSO-DAPB08),DS1ORGPS DETERMINE IF A
                                   1040+*                                  SEQUENTIAL DATA SET.
0004CA 4780 B4CE            004E2  1041+         BE    IN002410 IF SO, BRANCH TO DETERMINE IF A
                                   1042+*                                  MEMBER NAME WAS ENTERED.
0004CE 9500 9743      00743        1043+         CLI   INDREC+(DA08DSO-DAPB08),D0 DETERMINE IF DSORG HAS
                                   1044+*                                  BEEN ESTABLISHED FOR DATA SET.
0004D2 4780 B4CE            004E2  1045+         BE    IN002410 IF NO DSORG, BRANCH TO DO OBTAIN
                                   1046+*                                  ON DATA SET NAME.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1048+***********************************************************************
                                   1049+*                                                                     *
                                   1050+*   IF NEITHER PARTITIONED OR SEQUENTIAL, ISSUE ERROR MESSAGE THAT    *
                                   1051+*   DATA SET ORGANIZATION IS INVALID FOR EDIT AND TERMINATE.          *
                                   1052+*                                                                     *
                                   1053+***********************************************************************
0004D6 4150 000C            0000C  1054+         LA    ERR1REG,INERROR4 RELATIVE ERROR TO BE PROCESSED.
0004DA 4170 9743            00743  1055+         LA    DATA1REG,INDREC+(DA08DSO-DAPB08) ADDRESS OF DSORG
                                   1056+*                                  BYTE FOR IKJEBIN3.
0004DE 47F0 BA7A            00A8E  1057+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                   1058+*                                  ERROR MESSAGE.


0004E2                             1060+IN002410 EQU   *
0004E2 9180 C016      00016        1061+         TM    INDSN+INMEMFLG,INOPRNDO DETERMINE IF MEMBER NAME
                                   1062+*                                  SUPPLIED.
0004E6 4780 B606            0061A  1063+         BZ    IN002010 IF NOT, BRANCH TO CHECK DATA SET
                                   1064+*                                  ATTRIBUTES.
0004EA 4830 913C            0013C  1065+         LH    SIZEREG,CADSNLEN OBTAIN LENGTH OF INSERTION RECORD
                                   1066+*                                  WITH MEMBER NAME.
0004EE 4820 C014            00014  1067+         LH    LENREG,INDSN+INMEMLL GET LENGTH OF MEMBER NAME
                                   1068+*                                  ENTERED ON COMMAND.
0004F2 1872                        1069+         LR    DATA1REG,LENREG SAVE MEMBER LENGTH FOR MESSAGE.
0004F4 4120 2002            00002  1070+         LA    LENREG,D2(,LENREG) ADD 2 TO LENGTH OF MEMBER NAME
                                   1071+*                                  FOR PARENTHESES.
0004F8 1B32                        1072+         SR    SIZEREG,LENREG REDUCE INSERTION LENGTH BY NUMBER
                                   1073+*                                  OF CHARACTERS IN MEMBER NAME
0004FA 4030 913C            0013C  1074+         STH   SIZEREG,CADSNLEN AND SAVE IN INSERTION RECORD.
0004FE 9140 C00E      0000E        1075+         TM    INDSN+INDSNFLG,INFULLQ DETERMINE IF DATA SET NAME
                                   1076+*                                  WAS ENTERED FULLY QUALIFIED.
000502 4780 B500            00514  1077+         BZ    IN002420 IF NOT, BRANCH TO REMOVE MEMBER
                                   1078+*                                  NAME FROM INSERTION RECORD.
000506 4120 0005            00005  1079+         LA    LENREG,D5(,D0) REDUCE NEW LENGTH BY 5 SO THAT
00050A 1B32                        1080+         SR    SIZEREG,LENREG FINAL QUOTE MAY BE ADDED.
00050C 4143 9140            00140  1081+         LA    AREAREG,CADSNREC(SIZEREG) COMPUTE LOCATION OF
000510 927D 4000      00000        1082+         MVI   D0(AREAREG),INSNGLQT SINGLE QUOTE AND MOVE TO
                                   1083+*                                  INSERTION RECORD.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1085+***********************************************************************
                                   1086+*                                                                     *
                                   1087+*   WHEN A MEMBER NAME IS ENTERED, ISSUE ERROR MESSAGE THAT DATA      *
                                   1088+*   SET IS NOT A PARTITIONED DATA SET.  IF A ZERO RETURN CODE IS      *
                                   1089+*   RETURNED FROM IKJEBIN3, BRANCH TO VALIDATE OLD DATA SET           *
                                   1090+*   ATTRIBUTES.  WHEN IKJEBIN3 RETURNS A NON-ZERO RETURN CODE,        *
                                   1091+*   TERMINATE EDIT.                                                   *
                                   1092+*                                                                     *
                                   1093+***********************************************************************
000514                             1094+IN002420 EQU   *
000514 4150 0008            00008  1095+         LA    ERR1REG,INERROR3 RELATIVE ERROR TO BE PROCESSED.
000518 58F0 BBD4            00BE8  1096+         L     EPLOCREG,INMSGRTN ADDRESS OF MESSAGE ROUTINE.
00051C                             1097+         DS    0H
00051C 4110 9890            00890  1098+         LA    1,INSVCRTN LOAD PARAMETER REG 1
000520 5090 1000            00000  1099+         ST    (COMMREG),0(0,1) STORE INTO PARAM. LIST
000524 5050 1004            00004  1100+         ST    (ERR1REG),4(0,1) STORE INTO PARAM. LIST
000528 5070 100C            0000C  1101+         ST    (DATA1REG),12(0,1) STORE INTO PARAM. LIST
00052C 05EF                        1102+         BALR  14,15 BRANCH TO ENTRY POINT
00052E 12FF                        1103+         LTR   RETCDREG,RETCDREG CHECK FOR SUCCESSFUL COMPLETION.
000530 4770 BA9C            00AB0  1104+         BNZ   INEXIT1 IF RETURN CODE IS NON-ZERO, BRANCH
                                   1105+*                                  TO TERMINATE EDIT.
000534 9240 911C      0011C        1106+         MVI   CAEDMEMB,CHRBLANK REMOVE MEMBER NAME FROM COMMUNI-
000538 D206 911D 911C 0011D 0011C  1107+         MVC   CAEDMEMB+D1(L'CAEDMEMB-D1),CAEDMEMB CATION AREA.
00053E 94FB 90EC      000EC        1108+         NI    CAEDFLAG,X'FF'-CAEDDSOR INDICATE DS IS SEQUENTIAL
000542 47F0 B606            0061A  1109+         B     IN002010 IF RETURN CODE IS ZERO, BRANCH TO
                                   1110+*                                  CHECK DATA SET ATTRIBUTES.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1112+***********************************************************************
                                   1113+*                                                                     *
                                   1114+*   DATA SET ORGANIZATION IS PARTITIONED.                             *
                                   1115+*                                                                     *
                                   1116+*   INDICATE THAT DATA SET ORGANIZATION IS PARTITIONED IN THE         *
                                   1117+*   COMMUNICATION AREA.  BUILD A DCB AND OPEN FOR BSAM SO THAT        *
                                   1118+*   BLDL MAY BE USED TO DETERMINE IF MEMBER EXISTS.  IF IT IS NOT     *
                                   1119+*   POSSIBLE TO OPEN THE DCB, ISSUE ERROR MESSAGE AND RETURN TO       *
                                   1120+*   THE TMP.  WHEN OPEN IS SUCCESSFUL, DETERMINE IF USER SPECIFIED    *
                                   1121+*   A MEMBER NAME.  IF A MEMBER NAME WAS NOT SPECIFIED, DEFAULT       *
                                   1122+*   MEMBER TO TEMPNAME.  ISSUE THE BLDL MACRO INSTRUCTION TO          *
                                   1123+*   DETERMINE IF THE MEMBER EXISTS.  UPON RETURN FROM BLDL, SAVE      *
                                   1124+*   BLDL RETURN CODE, CLOSE THE DCB, AND UNALLOCATE THE DATA SET.     *
                                   1125+*   UPON RETURN FROM UNALLOCATE, TEST RETURN CODE FOR ZERO -- IF      *
                                   1126+*   NOT ZERO, BRANCH TO DIAGNOSE ERROR.  OTHERWISE, CHECK BLDL        *
                                   1127+*   RETURN CODE.                                                      *
                                   1128+*                                                                     *
                                   1129+***********************************************************************
000546                             1130+IN002430 EQU   *
000546 9604 90EC      000EC        1131+         OI    CAEDFLAG,CAEDDSOR INDICATE THAT DSORG = PO.
00054A D233 9714 BC70 00714 00C84  1132+         MVC   INWKDCB(INDCBL),INDCB MOVE DCB TO WORK AREA.
000550 D203 974C BCA4 0074C 00CB8  1133+         MVC   INWKOPEN(INOPENL),INOPEN INITIALIZE OPEN PARAMETER
                                   1134+*                                  LIST.
000556 4140 9714            00714  1135+         LA    AREAREG,INWKDCB ADDRESS OF DCB FOR OPEN.
00055A D207 973C 9124 0073C 00124  1136+         MVC   INWKDCB+(DCBDDNAM-IHADCB)(L'DCBDDNAM),CAEDDDN MOVE
                                   1137+*                                  DDNAME INTO DCB.
000560 4110 974C            0074C  1138+         LA    1,INWKOPEN LOAD PARAMETER REG 1
000564 94F0 1000      00000        1139+         NI    0(1),X'F0' CLEAR OPTION 1 BITS
000568 43E1 0000            00000  1140+         IC    14,0(1,0) SAVE OPTION BYTE
00056C 5041 0000            00000  1141+         ST    AREAREG,0(1,0) STORE INTO LIST
000570 42E1 0000            00000  1142+         STC   14,0(1,0) RESTORE OPTION BYTE
000574 0A13                        1143+         SVC   19 ISSUE OPEN SVC
000576 9110 9744      00744        1144+         TM    INWKDCB+(DCBOFLGS-IHADCB),INOPENED CHECK IF DCB
                                   1145+*                                  WAS OPENED SUCCESSFULLY.
00057A 4710 B576            0058A  1146+         BO    IN002440 IF DCB OPENED, BRANCH TO DO BLDL.
                                   1147+*                                  OTHERWISE, ISSUE OPEN FAILED
                                   1148+*                                  MESSAGE.
00057E 4150 0050            00050  1149+         LA    ERR1REG,INERRORL RELATIVE ERROR TO BE PROCESSED.
000582 4160 0003            00003  1150+         LA    ERR2REG,M3093 RELATIVE SECOND LEVEL MESSAGE.
000586 47F0 BA7A            00A8E  1151+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                   1152+*                                  ERROR MESSAGE.


00058A                             1154+IN002440 EQU   *
00058A 9180 C016      00016        1155+         TM    INDSN+INMEMFLG,INOPRNDO DETERMINE IF MEMBER NAME
                                   1156+*                                  SUPPLIED.
00058E 4710 B58C            005A0  1157+         BO    IN002450 IF ENTERED, BRANCH TO ISSUE BLDL.
000592 D207 911C BC68 0011C 00C7C  1158+         MVC   CAEDMEMB(L'CAEDMEMB),INTEMPNM SET MEMBER NAME TO
                                   1159+*                                  TEMPNAME.
000598 4110 0008            00008  1160+         LA    PARMREG1,D8 DUMMY UP LENGTH OF MEMBER NAME FOR
00059C 4010 C014            00014  1161+         STH   PARMREG1,INDSN+INMEMLL MESSAGE INSERTION.
0005A0                             1162+IN002450 EQU   *
0005A0 D203 986C BC64 0086C 00C78  1163+         MVC   INBLDWD(L'INBLINIT),INBLINIT INITIALIZE LIST WITH
0005A6 D207 9870 911C 00870 0011C  1164+         MVC   INMEMBER(L'CAEDMEMB),CAEDMEMB MEMBER NAME FOR BLDL
0005AC 4100 986C            0086C  1165+         LA    PARMREG0,INBLDWD ADDRESS OF LIST FOR BLDL.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0005B0 1814                        1166+         LR    1,AREAREG LOAD PARAMETER REG 1
0005B2 4111 0000            00000  1167+         LA    1,0(1)
0005B6 0A12                        1168+         SVC   18 LINK TO BLDL ROUTINE
0005B8 186F                        1169+         LR    TMPCDREG,RETCDREG SAVE BLDL RETURN CODE.
0005BA D203 974C BCA8 0074C 00CBC  1170+         MVC   INWKOPEN(INCLOSEL),INCLOSE INITIALIZE CLOSE
                                   1171+*                                  PARAMETER LIST.
0005C0 4110 974C            0074C  1172+         LA    1,INWKOPEN LOAD PARAMETER REG 1
0005C4 43E1 0000            00000  1173+         IC    14,0(1,0) SAVE OPTION BYTE
0005C8 5041 0000            00000  1174+         ST    AREAREG,0(1,0) STORE DCB ADDR IN LIST
0005CC 42E1 0000            00000  1175+         STC   14,0(1,0) RESTORE OPTION BYTE
0005D0 0A14                        1176+         SVC   20 ISSUE CLOSE SVC
0005D2 47F6 B5C2            005D6  1177+         B     IN002460(TMPCDREG) BLDL RETURN CODE BRANCH TABLE.
0005D6                             1178+IN002460 EQU   *
0005D6 47F0 B602            00616  1179+         B     IN002005 00 - VALIDATE DATA SET ATTRIBUTES.
0005DA 47F0 B5DA            005EE  1180+         B     IN002470 04 - PROMPT FOR NEW OR OLD OPERAND.
                                   1181+*                             08 - PERMANENT I/O ERROR.
0005DE 4150 0004            00004  1182+         LA    ERR1REG,INERROR2 RELATIVE ERROR TO BE PROCESSED.
0005E2 4160 0001            00001  1183+         LA    ERR2REG,M3131 RELATIVE SECOND LEVEL MESSAGE.
0005E6 4180 BD28            00D3C  1184+         LA    DATA2REG,ININS002 ADDRESS OF INSERTION TEXT FOR
                                   1185+*                                  SECOND LEVEL MESSAGE.
0005EA 47F0 BA7A            00A8E  1186+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                   1187+*                                  ERROR MESSAGE.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1189+***********************************************************************
                                   1190+*
                                   1191+*   PROMPT FOR NEW/OLD OPERAND IF NOT SPECIFIED ON THE COMMAND.  IF   *
                                   1192+*   OLD WAS SPECIFIED ORIGINALLY ISSUE ERROR MESSAGE AND RETURN.      *
                                   1193+*
                                   1194+***********************************************************************
0005EE                             1195+IN002470 EQU   *
0005EE D501 C020 BC1C 00020 00C30  1196+         CLC   INSTAT(L'INKEYDEF),INKEYDEF DETERMINE IF USER
                                   1197+*                                  SPECIFIED OLD.
0005F4 4780 B5F6            0060A  1198+         BE    IN002480 IF OLD SPECIFIED, BRANCH TO PUT
                                   1199+*                                  ERROR MESSAGE AND TERMINATE.
0005F8 4580 BB32            00B46  1200+         BAL   SRRTNREG,INDISPPR BRANCH TO PROMPT FOR NEW OR OLD.
0005FC 1233                        1201+         LTR   FLAGREG,FLAGREG CHECK USER RESPONSE FOR NEW OR OLD
0005FE 4770 B5F6            0060A  1202+         BNZ   IN002480 IF NOT ZERO, USER SPECIFIED OLD,
                                   1203+*                                 BRANCH TO PUT ERROR MESSAGE.
000602 94E7 90EC      000EC        1204+         NI    CAEDFLAG,INF255-(CAEDDISP+CAEDMEM) SPECIFY THAT
                                   1205+*                                  THE MEMBER IS NEW AND THAT
                                   1206+*                                  THE DATA SET IS TO BE TREATED
                                   1207+*                                  AS NEW.
000606 47F0 B752            00766  1208+         B     IN002150 BRANCH TO UNALLOCATE THE DATA SET.
00060A                             1209+IN002480 EQU   *
00060A 4150 0044            00044  1210+         LA    ERR1REG,INERRORI RELATIVE ERROR TO BE PROCESSED.
00060E 4870 C014            00014  1211+         LH    DATA1REG,INDSN+INMEMLL LENGTH OF MEMBER NAME.
000612 47F0 BA7A            00A8E  1212+         B     IN010010 BRANCH TO CALL IKJEBEIA TO PUT
                                   1213+*                                  ERROR MESSAGE AND RETURN.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1215+***********************************************************************
                                   1216+*                                                                     *
                                   1217+*   LOCATE POINTER TO THIS TASKS TIOT BY WAY OF THE CVT.  SEARCH THE  *
                                   1218+*   TIOT FOR THE DDNAME.  WHEN THE DDNAME IS FOUND, OBTAIN THE VOLUME *
                                   1219+*   SERIAL NUMBER FROM THE UCB POINTED TO BY THE TIOT ENTRY.  ISSUE   *
                                   1220+*   THE OBTAIN SVC TO READ THE DSCB FOR THE DATA SET INTO MAIN        *
                                   1221+*   STORAGE.                                                          *
                                   1222+*                                                                     *
                                   1223+***********************************************************************
000616                             1224+IN002005 EQU   *
000616 9608 90EC      000EC        1225+         OI    CAEDFLAG,CAEDMEM INDICATE THAT MEMBER IS OLD.
00061A                             1226+IN002010 EQU   *
00061A 5840 0010            00010  1227+         L     AREAREG,CVTPTR ADDRESS OF CVT.
000000                             1228+         USING CVT,AREAREG ADDRESSABILITY IN CVT DSECT.
00061E 5840 4000            00000  1229+         L     AREAREG,CVTTCBP ADDRESS OF NEXT AND CURRENT TCB
                                   1230+*                                  POINTERS.
                                   1231+         DROP  AREAREG
000622 5840 4004            00004  1232+         L     AREAREG,CURNTTCB(PARMREG0,AREAREG) ADDRESS OF
                                   1233+*                                  CURRENT TCB.
000626 5840 400C            0000C  1234+         L     AREAREG,(TCBTIO-TCB)(,AREAREG) ADDRESS OF TIOT.
000000                             1235+         USING IEFTIOT1,AREAREG ADDRESSABILITY IN TIOT DSECT.
00062A                             1236+IN002050 EQU   *
00062A 1B22                        1237+         SR    LENREG,LENREG ZERO LENGTH REGISTER.
00062C 4320 4018            00018  1238+         IC    LENREG,TIOELNGH LENGTH OF TIOT ENTRY.
000630 1222                        1239+         LTR   LENREG,LENREG CHECK IF END OF TIOT REACHED.
000632 4780 B634            00648  1240+         BZ    IN002055 IF END OF TIOT, BRANCH TO PUT ERROR
                                   1241+*                                  MESSAGE AND RETURN TO TMP.
000636 D507 401C 9124 0001C 00124  1242+         CLC   TIOEDDNM(L'CAEDDDN),CAEDDDN CHECK IF THIS ENTRY IS
                                   1243+*                                  FOR THE EDIT DATA SET.
00063C 4780 B640            00654  1244+         BE    IN002060 IF SO, BRANCH TO GET UCB ADDRESS.
000640 4142 4000            00000  1245+         LA    AREAREG,D0(LENREG,AREAREG) UPDATE TIOT POINTER TO
                                   1246+*                                  NEXT ENTRY.
000644 47F0 B616            0062A  1247+         B     IN002050 BRANCH TO CHECK NEXT ENTRY IN TIOT.
000648                             1248+IN002055 EQU   *
000648 4150 0038            00038  1249+         LA    ERR1REG,INERRORF RELATIVE ERROR TO BE PROCESSED.
00064C 4160 0005            00005  1250+         LA    ERR2REG,M4245 RELATIVE SECOND-LEVEL MESSAGE.
000650 47F0 BA7A            00A8E  1251+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                   1252+*                                  MESSAGE TO THE TERMINAL.
000654                             1253+IN002060 EQU   *
000654 5840 4028            00028  1254+         L     AREAREG,TIOEFSRT-D1 ADDRESS OF UCB.
                                   1255+         DROP  AREAREG
000658 95FF 4002      00002        1256+         CLI   (UCBID-UCBOB)(AREAREG),INF255 DETERMINE IF MAIN
                                   1257+*                                  UCB OR 2321 SUB-UCB.
00065C 4780 B656            0066A  1258+         BE    IN002070 IF NOT FOR 2321, BRANCH TO GET
                                   1259+*                                  VOLUME SERIAL NUMBER.
000038                             1260+         USING IEFUCBOB+(DATACELL-UCBOB),AREAREG ADDRESSABILITY
                                   1261+*                                  FOR SUB-UCB DSECT.
000660 D205 9866 4004 00866 0003C  1262+         MVC   INCAMVLD(L'INCAMVLD),DCELVOLI MOVE VOLUME SERIAL
                                   1263+*                                  NUMBER TO WORK AREA FOR OBTAIN
000666 47F0 B66C            00680  1264+         B     IN002080 BRANCH TO ISSUE OBTAIN SVC.
                                   1265+         DROP  AREAREG
00066A                             1266+IN002070 EQU   *
000000                             1267+         USING IEFUCBOB,AREAREG ADDRESSABILITY IN UCB DSECT.
00066A 9120 4012      00012        1268+         TM    UCBTBYT3,UCB3DACC CHECK IF DIRECT ACCESS DEVICE.
00066E 4770 B666            0067A  1269+         BNZ   IN002075 IF SO, CONTINUE NORMAL PROCESSING.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000672 4150 0064            00064  1270+         LA    ERR1REG,INERRORQ SPECIFY RELATIVE ERROR.
000676 47F0 BA7A            00A8E  1271+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                   1272+*                                  ERROR MESSAGE AND RETURN.
00067A                             1273+IN002075 EQU   *
00067A D205 9866 401C 00866 0001C  1274+         MVC   INCAMVLD(L'INCAMVLD),SRTEVOLI MOVE VOLUME SERIAL
                                   1275+*                                  NUMBER TO WORK AREA FOR OBTAIN
000680                             1276+IN002080 EQU   *
000680 D20F 96F8 BC0C 006F8 00C20  1277+         MVC   INCAMFLG(INCAMEND),INCAMLST INITIALIZE FLAGS FOR
                                   1278+*                                  OBTAIN.
000686 41F0 90F0            000F0  1279+         LA    RETCDREG,CAEDDSN ADDRESS OF DATA SET NAME.
00068A 4100 9866            00866  1280+         LA    PARMREG0,INCAMVLD ADDRESS OF VOLUME SERIAL NUMBER.
00068E 4110 9708            00708  1281+         LA    PARMREG1,INCAMOBT ADDRESS OF OBTAIN WORKAREA.
000692 90F1 96FC            006FC  1282+         STM   RETCDREG,PARMREG1,INCAMDSN INITIALIZE POINTERS IN
                                   1283+*                                  OBTAIN PARAMETER LIST.
000696 4110 96F8            006F8  1284+         LA    1,INCAMFLG LOAD PARAMETER REG 1
00069A 0A1B                        1285+         SVC   27 ISSUE OBTAIN SVC
00069C 47FF B68C            006A0  1286+         B     IN002082(RETCDREG) BRANCH TO TABLE TO DIAGNOSE
                                   1287+*                                  RETURN CODE FROM OBTAIN.
                                   1288+*
                                   1289+*   THE BRANCH TABLE BELOW IS POSITION DEPENDENT.
                                   1290+*
0006A0                             1291+IN002082 EQU   *
0006A0 47F0 B6AE            006C2  1292+         B     IN002085 00 - NORMAL RETURN
0006A4 47F0 B396            003AA  1293+         B     IN002310 04 - REQUIRED VOLUME NOT MOUNTED
0006A8 47F0 B3A8            003BC  1294+         B     IN002325 08 - DATA SET NOT ON VOLUME
0006AC 47F0 B6A0            006B4  1295+         B     IN002084 12 - PERMANENT I/O ERROR
0006B0 47F0 B6A0            006B4  1296+         B     IN002084 16 - INVALID PARAMETERS TO OBTAIN
                                   1297+*                             20 - CCHH NOT WITHIN BOUNDARIES OF
                                   1298+*                                  VTOC EXTENT
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1300+***********************************************************************
                                   1301+*
                                   1302+*   ISSUE COMMAND SYSTEM ERROR MESSAGE FOR OBTAIN RETURN CODES 12, 16
                                   1303+*   AND 20.
                                   1304+*
                                   1305+***********************************************************************
0006B4                             1306+IN002084 EQU   *
0006B4 4150 0004            00004  1307+         LA    ERR1REG,INERROR2 RELATIVE ERROR TO BE PROCESSED.
0006B8 188F                        1308+         LR    DATA2REG,RETCDREG SAVE RETURN CODE FOR MESSAGE.
0006BA 5680 BC28            00C3C  1309+         O     DATA2REG,INSVCOBT INDICATE ROUTINE NAME AS OBTAIN.
0006BE 47F0 BA7A            00A8E  1310+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                   1311+*                                  ERROR MESSAGE AND RETURN.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0006C2                             1313+IN002085 EQU   *
                                   1314+         DROP  AREAREG
0006C2 4140 9708            00708  1315+         LA    AREAREG,INCAMOBT ADDRESS OF DSCB RETURNED BY
                                   1316+*                             OBTAIN.
00002C                             1317+         USING IECDSCB1+(DS1FMTID-IECSDSL1),AREAREG
                                   1318+*                                  ADDRESSABILITY IN DSCB DSECT.
0006C6 4100 0001            00001  1319+         LA    PARMREG0,X1(,D0) SET TAG REGISTER TO 1.
0006CA D202 903D 4036 0003D 00062  1320+         MVC   CAUTILNO+D1(L'DS1LSTAR),DS1LSTAR SAVE LAST BLOCK
                                   1321+*                                  POINTER FOR CALCULATION OF
                                   1322+*                                  OLD DATA SET SIZE.
0006D0 D502 4036 BC30 00062 00C44  1323+         CLC   DS1LSTAR(L'DS1LSTAR),INDSMTY DETERMINE IF DATA SET
                                   1324+*                                  HAS BEEN WRITTEN INTO.
0006D6 4770 B6E8            006FC  1325+         BNE   IN002100 IF NOT ZERO, BRANCH TO CHECK DSORG.
0006DA 1B00                        1326+         SR    PARMREG0,PARMREG0 SET TAG REGISTER TO ZERO.
0006DC 94EF 90EC      000EC        1327+         NI    CAEDFLAG,INF255-CAEDDISP INDICATE DATA SET IS
                                   1328+*                                  EMPTY AND IS TO BE PROCESSED
                                   1329+*                                  AS NEW.
0006E0 9540 4026      00052        1330+         CLI   DS1DSORG,DS1ORGPS DETERMINE IF SEQUENTIAL.
0006E4 4780 B6FC            00710  1331+         BE    IN002110 IF DSORG=PS, BRANCH TO SET FLAG IN
                                   1332+*                                  THE COMMUNICATION AREA.
0006E8 9500 4026      00052        1333+         CLI   DS1DSORG,D0 DETERMINE IF DSORG HAS BEEN
                                   1334+*                                  ESTABLISHED FOR THE DATA SET.
0006EC 4780 B850            00864  1335+         BE    IN003100 IF DSORG IS NOT SET, BRANCH TO
                                   1336+*                                  PROCESS AS A NEW DATA SET.





0006F0                             1338+IN002090 EQU   *
                                   1339+***********************************************************************
                                   1340+*
                                   1341+*   AN INVALID DSORG ENCOUNTERED, PUT MESSAGE TO USER AND RETURN
                                   1342+*   TO THE TMP.
                                   1343+*
                                   1344+***********************************************************************
0006F0 4150 000C            0000C  1345+         LA    ERR1REG,INERROR4 RELATIVE ERROR TO BE PROCESSED.
0006F4 4170 4026            00052  1346+         LA    DATA1REG,DS1DSORG ADDRESS OF DSORG FIELD.
0006F8 47F0 BA7A            00A8E  1347+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                   1348+*                                  ERROR MESSAGE AND RETURN.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0006FC                             1350+IN002100 EQU   *
                                   1351+*
                                   1352+*   DATA SET CONTAINS RECORDS (DS1LSTAR NOT ZERO)
                                   1353+*
0006FC 9540 4026      00052        1354+         CLI   DS1DSORG,DS1ORGPS DETERMINE IF DSORG IS SEQUENTIAL
000700 4780 B6FC            00710  1355+         BE    IN002110 IF PS, BRANCH TO CHECK RECFM.
000704 9102 4026      00052        1356+         TM    DS1DSORG,DS1ORGPO DETERMINE IF DSORG IS          SA73470
                                   1357+*                                  PARTITIONED.
000708 47E0 B6DC            006F0  1358+         BNO   IN002090 IF NEITHER PS OR PO, BRANCH TO PUTSA73470
                                   1359+*                                  ERROR MESSAGE.
00070C 9604 90EC      000EC        1360+         OI    CAEDFLAG,CAEDDSOR INDICATE DATA SET HAS DSORG = PO
000710                             1361+IN002110 EQU   *
                                   1362+*
                                   1363+*   DSORG = PS OR PO.
                                   1364+*
000710 912E 4028      00054        1365+         TM    DS1RECFM,DS1FMSTD+DS1FMOVF+DS1FMA+DS1FMM CHECK FOR
                                   1366+*                                  STANDARD BLOCKS, TRACK
                                   1367+*                                  OVERFLOW, ASA CONTROL
                                   1368+*                                  CHARACTERS OR MACHINE CONTROL
                                   1369+*                                  CHARACTERS.
000714 4770 B70C            00720  1370+         BNZ   IN002120 IF ANY OF THE ABOVE ARE REFLECTED
                                   1371+*                                  IN RECORD FORMAT, BRANCH TO
                                   1372+*                                  INFORM USER THAT DATA SET IS
                                   1373+*                                  NOT ACCEPTABLE FOR EDIT.
000718 91C0 4028      00054        1374+         TM    DS1RECFM,DS1FMUDF DETERMINE IF UNDEFINED FORMAT
                                   1375+*                                  WAS SPECIFIED.
00071C 47E0 B718            0072C  1376+         BNO   IN002130 IF NOT UNDEFINED, BRANCH TO
                                   1377+*                                  DETERMINE FORMAT.





000720                             1379+IN002120 EQU   *
                                   1380+***********************************************************************
                                   1381+*
                                   1382+*   INVALID RECORD FORMAT ENCOUNTERED, PUT MESSAGE TO USER AND
                                   1383+*   RETURN TO THE TMP.
                                   1384+*
                                   1385+***********************************************************************
000720 4150 0010            00010  1386+         LA    ERR1REG,INERROR5 RELATIVE ERROR TO BE PROCESSED.
000724 4170 4028            00054  1387+         LA    DATA1REG,DS1RECFM ADDRESS OF RECFM FIELD.
000728 47F0 BA7A            00A8E  1388+         B     IN010010 BRANCH TO CALL IKJEBEIA TO PUT
                                   1389+*                                  ERROR MESSAGE AND RETURN.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00072C                             1391+IN002130 EQU   *
                                   1392+*
                                   1393+*   DSORG PS OR PO AND RECFM IS FIXED OR VARIABLE -- DETERMINE
                                   1394+*   WHICH.
                                   1395+*
00072C 9140 4028      00054        1396+         TM    DS1RECFM,DS1FMVAR DETERMINE IF RECFM = V.
000730 4710 B734            00748  1397+         BO    IN002140 IF RECFM=V, BRANCH TO OBTAIN LRECL.
000734 9180 4028      00054        1398+         TM    DS1RECFM,DS1FMFX DETERMINE IF RECFM = F.          A42947
000738 4710 B730            00744  1399+         BO    IN002135 IF RECFM=F, SET RECFM SWITCH.      A42947
                                   1400+*                                                                A42947
                                   1401+*   RECFM NOT INITIALIZED FOR DATA SET -- DETERMINE DEFAULT.     A42947
                                   1402+*                                                                A42947
00073C 9140 90C3      000C3        1403+         TM    CARECFMD,CARECFMV DETERMINE IF RECFM=V IS DEFLT.  A42947
000740 4710 B734            00748  1404+         BO    IN002140 IF RECFM DEFLT = V, OBTAIN LRECL.  A42947
000744                             1405+IN002135 EQU   * A42947
000744 9640 907D      0007D        1406+         OI    CACFLAG2,CARECFM INDICATE THAT DATA SET HAS
                                   1407+*                                  RECFM = F.
000748                             1408+IN002140 EQU   *
000748 D201 90E8 402C 000E8 00058  1409+         MVC   CALRECL(L'CALRECL),DS1LRECL MOVE LRECL TO THE
                                   1410+*                                  COMMUNICATION AREA.
00074E 1200                        1411+         LTR   PARMREG0,PARMREG0 CHECK TAG REGISTER AND SET NEW
000750 4780 B850            00864  1412+         BZ    IN003100 FLAG BASED ON DS1LSTAR CONTENT
000754 9610 90EC      000EC        1413+         OI    CAEDFLAG,CAEDDISP INDICATE THAT DATA SET IS OLD.
000758 D201 90A8 402A 000A8 00056  1414+         MVC   CABLKS(L'CABLKS),DS1BLKL UPDATE BLOCK SIZE FOR OLD
                                   1415+*                                  DATA SETS.
00075E 9104 90EC      000EC        1416+         TM    CAEDFLAG,CAEDDSOR CHECK IF DSORG = PO.
000762 4780 B84A            0085E  1417+         BZ    IN002940 IF NOT PO, BRANCH TO VALIDATE
                                   1418+*                                  COMMAND OPERANDS.
000766                             1419+IN002150 EQU   *
                                   1420+*
                                   1421+*   UNALLOCATE THE DATA SET.
                                   1422+*
000766 5880 9000            00000  1423+         L     PASSREG,CAPTTMP ADDRESS OF TMP PARAMETER LIST.
00076A 5880 8008            00008  1424+         L     PASSREG,(CPPLPSCB-CPPL)(,PASSREG) ADDRESS OF PSCB.
00076E 4140 90EE            000EE  1425+         LA    AREAREG,CAEDDSNL ADDRESS OF DATA SET NAME LENGTH
                                   1426+*                                  AND DATA SET NAME.
000772 D227 96F8 BCB4 006F8 00CC8  1427+         MVC   INDREC(INDR18L),INDR18 INITIALIZE IKJDAIR
                                   1428+*                                  PARAMETER LIST - ENTRY CODE 18
000778 5040 9700            00700  1429+         ST    AREAREG,INDREC+(DA18PDSN-DAPB18) PUT ADDRESS OF
                                   1430+*                                  DSNAME IN PARAMETER LIST.
00077C 4140 96F8            006F8  1431+         LA    AREAREG,INDREC ADDRESS OF IKJDAIR PARAMETER LIST.
000780 4110 9210            00210  1432+         LA    1,CATMPLST LOAD PARAMETER REG 1
000784 18E8                        1433+         LR    14,(PASSREG) PICK UP PARAMETER
000786 18F4                        1434+         LR    15,(AREAREG) PICK UP PARAMETER
000788 90EF 100C            0000C  1435+         STM   14,15,12(1) STORE INTO PARAM. LIST
00078C                             1436+         CNOP  0,4
00078C 45F0 B78C            007A0  1437+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
000790 00000798                    1438+         DC    A(*+8) ADDR OF EP PARAMETER
000794 00000000                    1439+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000798 C9D2D1C4C1C9D940            1440+         DC    CL8'IKJDAIR' EP PARAMETER
0007A0 0A06                        1441+         SVC   6 ISSUE LINK SVC
0007A2 12FF                        1442+         LTR   RETCDREG,RETCDREG TEST FOR RETURN CODE OF ZERO.
0007A4 4780 B7D8            007EC  1443+         BZ    IN002190 IF NOT, BRANCH TO CONTINUE NORMAL
                                   1444+*                                  PROCESSING.
0007A8 49F0 BC60            00C74  1445+         CH    RETCDREG,INDRRC24 CHECK IF DATA SET UNALLOCATED  A59609
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1446+*                                  BELONGS TO CONCATENATED GRP. A59609
0007AC 4780 B7D8            007EC  1447+         BE    IN002190 IF SO, BRANCH TO CONTINUE PROCESS A59609
0007B0                             1448+IN002160 EQU   * A59609
0007B0 49F0 BC5C            00C70  1449+         CH    RETCDREG,INDAIR08 CHECK FOR CATALOG ERROR.       A59609
0007B4 4740 B36C            00380  1450+         BL    IN002270 INVALID PARAMETERS, SEND MESSAGE. A59609
0007B8 4780 B7BC            007D0  1451+         BE    IN002170 CATLG MGMT ERROR, SEND MESSAGE.   A59609
0007BC 49F0 BC5E            00C72  1452+         CH    RETCDREG,INDAIR16 CHECK FOR DYN ALLOC. ERROR.    A59609
0007C0 4740 B7C8            007DC  1453+         BL    IN002180 IF SO, SEND MESSAGE.              A59609
0007C4 49F0 BC62            00C76  1454+         CH    RETCDREG,INDAIR48 CHECK IF DAIR STAE ENTERED.    A59609
0007C8 4780 BA98            00AAC  1455+         BE    INEXIT12 IF SO, BR TO RETURN TO TMP,RC=12. A59609
0007CC 47F0 B36C            00380  1456+         B     IN002270 OTHERWISE, BR TO SEND GENERAL     A59609
                                   1457+*                                  ERROR MESSAGE.               A59609
0007D0                             1458+IN002170 EQU   *
0007D0 4160 0004            00004  1459+         LA    ERR2REG,M4244 SPECIFY CATALOG ERROR.
0007D4 4880 96FE            006FE  1460+         LH    DATA2REG,INDREC+(DA18CTRC-DAPB18) ACQUIRE CTRC.
0007D8 47F0 B7D0            007E4  1461+         B     IN002185 BRANCH TO CONTINUE ERROR PROCESSING.
0007DC                             1462+IN002180 EQU   *
0007DC 4160 0002            00002  1463+         LA    ERR2REG,M4242 SPECIFY DYNAMIC ALLOCATION ERROR.
0007E0 4880 96FC            006FC  1464+         LH    DATA2REG,INDREC+(DA18DARC-DAPB18) ACQUIRE DARC.
0007E4                             1465+IN002185 EQU   *
0007E4 4150 0038            00038  1466+         LA    ERR1REG,INERRORF SPECIFY RELATIVE ERROR.
0007E8 47F0 BA7A            00A8E  1467+         B     IN010010 BRANCH TO CALL IKJEBIN3 TO PUT
                                   1468+*                                  MESSAGE TO THE TERMINAL.
0007EC                             1469+IN002190 EQU   *
0007EC 94FE 90EC      000EC        1470+         NI    CAEDFLAG,INF255-CAEDALOC INDICATE DATA SET NO
                                   1471+*                                  LONGER ALLOCATED.
0007F0 9108 90EC      000EC        1472+         TM    CAEDFLAG,CAEDMEM CHECK IF NEW MEMBER IS TO BE
                                   1473+*                                  CREATED.
0007F4 4780 B850            00864  1474+         BZ    IN003100 IF SO, BRANCH TO VALIDATE COMMAND
                                   1475+*                                  OPERANDS.
                                   1476+*
                                   1477+*   ALLOCATE DATA SET WITH MEMBER NAME SPECIFIED.
                                   1478+*
0007F8 D24B 96F8 BCDC 006F8 00CF0  1479+         MVC   INDREC(INDR8OLL),INDAIR8O INITIALIZE IKJDAIR
                                   1480+*                                  PARAMETER LIST.
0007FE D207 972C 911C 0072C 0011C  1481+         MVC   INDREC+(DA08MNM-DAPB08)(L'CAEDMEMB),CAEDMEMB MOVE
                                   1482+*                                  MEMBER NAME TO PARAMETER LIST.
000804 9180 C01E      0001E        1483+         TM    INDSN+INPSWFLG,INOPRNDO DETERMINE IF PASSWORD WAS
                                   1484+*                                  ENTERED.
000808 4780 B7FE            00812  1485+         BZ    IN002930 IF NOT, BRANCH TO CALL IKJDAIR.
00080C D207 9734 912C 00734 0012C  1486+         MVC   INDREC+(DA08PSWD-DAPB08)(L'CAEDPSWD),CAEDPSWD MOVE
                                   1487+*                                  PASSWORD TO PARAMETER LIST.
000812                             1488+IN002930 EQU   *
000812 4140 90EE            000EE  1489+         LA    AREAREG,CAEDDSNL GET ADDRESS OF DSNAME AND PLACE
000816 5040 9700            00700  1490+         ST    AREAREG,INDREC+(DA08PDSN-DAPB08) IN IKJDAIR
                                   1491+*                                  PARAMETER LIST.
00081A 4140 96F8            006F8  1492+         LA    AREAREG,INDREC ADDRESS OF IKJDAIR PARAMETER BLOCK.
00081E 5880 9000            00000  1493+         L     PASSREG,CAPTTMP ADDRESS OF TMP PARAMETER LIST.
000822 5880 8008            00008  1494+         L     PASSREG,(CPPLPSCB-CPPL)(,PASSREG) ADDRESS OF PSCB.
000826 9608 973C      0073C        1495+         OI    INDREC+(DA08DSP1-DAPB08),DA08SHR INDICATE DISP=SHR
                                   1496+*                                  FOR OLD, PARTITIONED DATA SETS
00082A 4110 9210            00210  1497+         LA    1,CATMPLST LOAD PARAMETER REG 1
00082E 18E8                        1498+         LR    14,(PASSREG) PICK UP PARAMETER
000830 18F4                        1499+         LR    15,(AREAREG) PICK UP PARAMETER
000832 90EF 100C            0000C  1500+         STM   14,15,12(1) STORE INTO PARAM. LIST
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000836 0700                        1501+         CNOP  0,4
000838 45F0 B838            0084C  1502+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
00083C 00000844                    1503+         DC    A(*+8) ADDR OF EP PARAMETER
000840 00000000                    1504+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000844 C9D2D1C4C1C9D940            1505+         DC    CL8'IKJDAIR' EP PARAMETER
00084C 0A06                        1506+         SVC   6 ISSUE LINK SVC
00084E 12FF                        1507+         LTR   RETCDREG,RETCDREG CHECK IF DATA SET ALLOCATED.
000850 4770 B34C            00360  1508+         BNZ   IN002260 IF DATA SET NOT ALLOCATED,        A59609
                                   1509+*                                  BRANCH TO SELECT DIAGNOSTIC
                                   1510+*                                  AND RETURN TO TMP.
000854 9601 90EC      000EC        1511+         OI    CAEDFLAG,CAEDALOC INDICATE DATA SET ALLOCATED.
000858 D207 9124 9704 00124 00704  1512+         MVC   CAEDDDN(L'CAEDDDN),INDREC+(DA08DDN-DAPB08) MOVE
                                   1513+*                                  DDNAME RETURNED BY IKJDAIR TO
                                   1514+*                                  THE COMMUNICATION AREA.
00085E                             1515+IN002940 EQU   *
                                   1516+*
                                   1517+*   AN OLD SEQUENTIAL DATA SET OR AN EXISTING PARTITIONED DATA
                                   1518+*   SET(MEMBER) HAS BEEN SUCCESSFULLY ALLOCATED, AND ITS DDNAME
                                   1519+*   AND LRECL ARE IN THE COMMUNICATION AREA.
                                   1520+*
00085E 1B00                        1521+         SR    PARMREG0,PARMREG0 SET ENTRY CODE TO ZERO FOR
                                   1522+*                                  IKJEBIN8 (OPERAND VALIDATION)
                                   1523+*                                  SUBROUTINE.
000860 47F0 B854            00868  1524+         B     IN003110 BRANCH TO CALL IKJEBIN8.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1526+***********************************************************************
                                   1527+*
                                   1528+*   CALL OPERAND VALIDITY CHECKING ROUTINE TO VERIFY THAT ALL
                                   1529+*   OPERANDS SPECIFIED ON THE COMMAND ARE ACCEPTABLE.  UPON
                                   1530+*   RETURN FROM IKJEBIN8, TEST THE RETURN CODE FOR SUCCESSFUL
                                   1531+*   COMPLETION.  IF SUCCESSFUL (RETURN CODE = 0), BRANCH TO XCTL
                                   1532+*   TO IKJEBEMA.  IF UNSUCCESSFUL (RETURN CODE  = 4), BRANCH TO
                                   1533+*   TERMINATE EDIT.
                                   1534+*
                                   1535+*   NOTE -- AN ENTRY CODE IS SET IN REGISTER ZERO (0) PRIOR TO
                                   1536+*           CALLING IKJEBIN8 --
                                   1537+*
                                   1538+*               00 - OLD DATA SET
                                   1539+*               04 - NEW DATA SET
                                   1540+*
                                   1541+***********************************************************************


000864                             1543+IN003100 EQU   *
000864 4100 0004            00004  1544+         LA    PARMREG0,D4(,D0) SET ENTRY CODE FOR IKJEBEIE
                                   1545+*                                        (OPERAND VALIDATION) ROUTINE.
000868                             1546+IN003110 EQU   *
000868                             1547+         CNOP  0,4
000868 47F0 B85C            00870  1548+         B     *+8 BRANCH AROUND VCON
00086C 00000000                    1549+IHB0044B DC    V(IKJEBIN8) ENTRY POINT ADDRESS
000870 4110 9890            00890  1550+         LA    1,INSVCRTN LOAD PARAMETER REG 1
000874 18E9                        1551+         LR    14,(COMMREG) PICK UP PARAMETER
000876 18FC                        1552+         LR    15,(DATAREG) PICK UP PARAMETER
000878 90EF 1000            00000  1553+         STM   14,15,0(1) STORE INTO PARAM. LIST
00087C 58F0 B858            0086C  1554+         L     15,IHB0044B LOAD 15 WITH ENTRY ADR
000880 05EF                        1555+         BALR  14,15 BRANCH TO ENTRY POINT
000882 12FF                        1556+         LTR   RETCDREG,RETCDREG CHECK FOR SUCCESSFUL COMPLETION.
000884 4770 BA9C            00AB0  1557+         BNZ   INEXIT1 IF IKJEBIN8 RETURNED A NON-ZERO
                                   1558+*                                  RETURN CODE, BRANCH TO RETURN
                                   1559+*                                  TO THE TMP.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000888                             1561+IN008030 EQU   *
                                   1562+***********************************************************************
                                   1563+*                                                                     *
                                   1564+*   CHECK STATUS OF EDIT DATA SET.                                    *
                                   1565+*                                                                     *
                                   1566+*   COMPUTE LOGICAL RECORD SIZE FOR ALL SUBCOMMAND PROCESSORS AND     *
                                   1567+*   SERVICE ROUTINES. EDIT LRECL IS THE LRECL FOR THE DATA SET + 4    *
                                   1568+*   (LENGTH OF CONTROL WORD FOR EACH).                                *
                                   1569+*                                                                     *
                                   1570+*   DETERMINE WHETHER DATA SET IS OLD OR NEW.  IF DATA SET IS NEW,    *
                                   1571+*   SET INDICATION THAT INPUT MODE SHOULD BE ENTERED INITIALLY.  IF   *
                                   1572+*   DATA SET IS OLD, CHECK IF A PARTITIONED DATA SET.  IF NOT A       *
                                   1573+*   PDS, LOAD IKJEBEUT (THE EDIT UTILITY INTERFACE ROUTINE) INTO      *
                                   1574+*   MAIN STORAGE AND INITIALIZE 'CAPTUT' IN THE EDIT COMMUNICATION    *
                                   1575+*   AREA WITH ITS ENTRY POINT ADDRESS.  CALL IKJEBECO TO COPY THE     *
                                   1576+*   EDIT DATA SET TO THE UTILITY DATA SET.  IF A PDS, PERFORM THE     *
                                   1577+*   COPY ONLY IF THE MEMBER EXISTS.  UPON RETURN FROM IKJEBECO,       *
                                   1578+*   DELETE THE UTILITY INTERFACE ROUTINE (IKJEBEUT).                  *
                                   1579+*                                                                     *
                                   1580+***********************************************************************
000888 9140 907D      0007D        1581+         TM    CACFLAG2,CARECFM CHECK IF RECFM IS VARIABLE.
00088C 4780 B888            0089C  1582+         BZ    IN008035 IF RECFM = V, LRECL ALREADY IS 4
                                   1583+*                                  GREATER THAN DATA PORTION OF
                                   1584+*                                  RECORD, BRANCH AROUND
                                   1585+*                                  COMPUTATION FOR RECFM = F.
000890 4820 90E8            000E8  1586+         LH    LENREG,CALRECL OBTAIN LRECL FOR EDIT DATA SET.
000894 4120 2004            00004  1587+         LA    LENREG,D4(PARMREG0,LENREG) ADD 4 TO LRECL (FOR
000898 4020 90E8            000E8  1588+         STH   LENREG,CALRECL CONTROL WORD) AND SAVE.
00089C                             1589+IN008035 EQU   *
00089C 9104 90EC      000EC        1590+         TM    CAEDFLAG,CAEDDSOR CHECK IF DSORG = PS.
0008A0 4780 B89C            008B0  1591+         BZ    IN008040 IF DSORG = PS, BRANCH TO CHECK
                                   1592+*                                  NEW/OLD STATUS.
0008A4 9108 90EC      000EC        1593+         TM    CAEDFLAG,CAEDMEM WHEN DSORG = PO, CHECK IF
                                   1594+*                                  MEMBER ALREADY EXISTS.
0008A8 4710 B8A4            008B8  1595+         BO    IN009010 IF MEMBER EXISTS, BRANCH TO CALL
                                   1596+*                                  IKJEBECO.
0008AC 47F0 B900            00914  1597+         B     IN009030 IF MEMBER IS TO BE CREATED, BRANCH
                                   1598+*                                  TO CALL IKJEBEUI.
0008B0                             1599+IN008040 EQU   *
0008B0 9110 90EC      000EC        1600+         TM    CAEDFLAG,CAEDDISP CHECK IF DISPOSITION IS OLD.
0008B4 4780 B900            00914  1601+         BZ    IN009030 IF NEW, BRANCH TO INDICATE INPUT
                                   1602+*                                  MODE TO BE CALLED.
0008B8                             1603+IN009010 EQU   *
0008B8 9620 90EC      000EC        1604+         OI    CAEDFLAG,CAEDINCP INDICATE TO INITIAL COPY THAT
                                   1605+*                                  EDIT DATA SET IS TO BE COPIED.
0008BC 4100 B8B0            008C4  1606+         LA    0,*+8 LOAD PARAMETER INTO REGISTER ZERO
0008C0 47F0 B8B8            008CC  1607+         B     *+12 BRANCH AROUND CONSTANT(S)
0008C4 C9D2D1C5C2C5E4E3            1608+         DC    CL8'IKJEBEUT' ENTRY POINT NAME
0008CC 1B11                        1609+         SR    1,1 SHOW NO DCB PRESENT
0008CE 0A08                        1610+         SVC   8 ISSUE LOAD SVC
0008D0 5000 9018            00018  1611+         ST    PARMREG0,CAPTUT SAVE ENTRY POINT ADDRESS IN THE
                                   1612+*                                  COMMUNICATION AREA.
0008D4 1819                        1613+         LR    PARMREG1,COMMREG
0008D6 0700                        1614+         CNOP  0,4
0008D8 45F0 B8D8            008EC  1615+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0008DC 000008E4                    1616+         DC    A(*+8) ADDR OF EP PARAMETER
0008E0 00000000                    1617+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
0008E4 C9D2D1C5C2C5C3D6            1618+         DC    CL8'IKJEBECO' EP PARAMETER
0008EC 0A06                        1619+         SVC   6 ISSUE LINK SVC
0008EE 94DF 90EC      000EC        1620+         NI    CAEDFLAG,INF255-CAEDINCP TURN OF INITIAL COPY FLAG
                                   1621+*                                  FOR EDIT DATA SET.
0008F2                             1622+IN009020 EQU   *
0008F2 47FF B8E2            008F6  1623+         B     IN009020+D4(RETCDREG) IKJEBECO RETURN CODE BRANCH
                                   1624+*                                  TABLE.
0008F6 47F0 B8EE            00902  1625+         B     IN009025 RETURN CODE 0, BRANCH TO DELETE
                                   1626+*                                  IKJEBEUT.
0008FA 47F0 B936            0094A  1627+         B     IN009060 RETURN CODE 4, BRANCH TO INDICATE
                                   1628+*                                  INPUT MODE TO BE INITIALLY
                                   1629+*                                  ENTERED.
0008FE 47F0 BA9C            00AB0  1630+         B     INEXIT1 RETURN CODE = 8, BRANCH TO RETURN
                                   1631+*                                  TO THE TMP.
000902                             1632+IN009025 EQU   *
000902 4500 B8FA            0090E  1633+         BAL   0,*+12 LOAD ADDR OF EP SYMBOL
000906 C9D2D1C5C2C5E4E3            1634+         DC    CL8'IKJEBEUT' EP SYMBOL
00090E 0A09                        1635+         SVC   9 ISSUE DELETE SVC
000910 47F0 B94E            00962  1636+         B     IN009067 BRANCH TO UNALLOCATE DATA SET (IF A
                                   1637+*                                  PDS) AND XCTL TO IKJEBEMA.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000914                             1639+IN009030 EQU   *
                                   1640+***********************************************************************
                                   1641+*                                                                     *
                                   1642+*   DATA SET IS NEW.                                                  *
                                   1643+*                                                                     *
                                   1644+*   WHEN A NEW DATA SET IS TO BE PROCESSED, LINK TO IKJEBEUI TO       *
                                   1645+*   INITIALIZE THE EDIT ACCESS METHOD.  UPON RETURN FROM IKJEBEUI,    *
                                   1646+*   DETERMINE IF IKJEBEUI WAS SUCCESSFUL.  IF IKJEBEUI IS NOT         *
                                   1647+*   SUCCESSFUL, BRANCH TO INFORM USER AND TO RETURN TO TMP.           *
                                   1648+*                                                                     *
                                   1649+*   IF IKJEBEUI IS SUCCESSFUL, PLACE ADDRESS OF UTILITY DCB IN THE    *
                                   1650+*   COMMUNICATION AREA AND XCTL TO IKJEBEMA.                          *
                                   1651+*                                                                     *
                                   1652+***********************************************************************
000914 1819                        1653+         LR    1,(COMMREG) LOAD PARAMETER REG 1
000916 41F0 9888            00888  1654+         LA    15,INLINKSF LOAD SUP.PARAMLIST ADR
00091A 4100 B90E            00922  1655+         LA    0,*+8 LOAD EP ADDR IN REG 0
00091E 47F0 B916            0092A  1656+         B     *+12 BRANCH AROUND EP
000922 C9D2D1C5C2C5E4C9            1657+         DC    CL8'IKJEBEUI' EP SYMPOL
00092A 5000 F000            00000  1658+         ST    0,0(0,15) STORE IN SUP.PARAMLIST
00092E 4100 0000            00000  1659+         LA    0,0 PICK UP DCB PARM  LC0A
000932 400F 0006            00006  1660+         STH   0,6(15) STORE THREE-BYTE  LC0A
000936 8800 0010            00010  1661+         SRL   0,16 DCB PARAMETER IN  LC0A
00093A 420F 0005            00005  1662+         STC   0,5(15) SUPV PARM LIST    LC0A
00093E 0A06                        1663+         SVC   6 ISSUE LINK SVC
000940 12FF                        1664+         LTR   RETCDREG,RETCDREG CHECK IF IKJEBEUI SUCCESSFULLY
                                   1665+*                                  INITIALIZED ACCESS METHOD.
000942 4770 BA9C            00AB0  1666+         BNZ   INEXIT1 IF UNSUCCESSFUL, BRANCH TO RETURN
                                   1667+*                                  TO TMP.
000946 5000 9034            00034  1668+         ST    PARMREG0,CAPTCDCB SAVE ADDRESS OF DCB IN
                                   1669+*                                  COMMUNICATION AREA.
00094A                             1670+IN009060 EQU   *
00094A 9104 90EC      000EC        1671+         TM    CAEDFLAG,CAEDDSOR CHECK IF DSORG = PS.
00094E 4780 B946            0095A  1672+         BZ    IN009065 IF DSORG = PS, BRANCH TO INDICATE
                                   1673+*                                  INPUT MODE BE ENTERED.
000952 94F7 90EC      000EC        1674+         NI    CAEDFLAG,INF255-CAEDMEM FOR DSORG = PO, INDICATE
                                   1675+*                                  THAT MEMBER IS TO BE CREATED.
000956 47F0 B9AC            009C0  1676+         B     IN009070 BRANCH TO XCTL TO IKJEBEMA.
00095A                             1677+IN009065 EQU   *
00095A 94EF 90EC      000EC        1678+         NI    CAEDFLAG,INF255-CAEDDISP INDICATE THAT DATA SET IS
                                   1679+*                                  NEW AND THAT IKJEBEIP TO BE
                                   1680+*                                  ENTERED INITIALLY.
00095E 47F0 B9AC            009C0  1681+         B     IN009070 BRANCH TO XCTL TO IKJEBEMA.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000962                             1683+IN009067 EQU   *
                                   1684+***********************************************************************
                                   1685+*                                                                     *
                                   1686+*   UNALLOCATE DATA SET IF EDIT DATA SET IS AN OLD PARTITIONED DATA   *
                                   1687+*   SET.                                                              *
                                   1688+*                                                                     *
                                   1689+***********************************************************************
000962 910D 90EC      000EC        1690+         TM    CAEDFLAG,CAEDALOC+CAEDMEM+CAEDDSOR CHECK IF EDIT
                                   1691+*                                  DATA SET IS AN OLD PDS THAT IS
                                   1692+*                                  CURRENTLY ALLOCATED.
000966 47E0 B9AC            009C0  1693+         BNO   IN009070 IF NOT OLD AND ALLOCATED, BRANCH TO
                                   1694+*                                  XCTL TO THE MAIN CONTROLLER.
00096A 5880 9000            00000  1695+         L     PASSREG,CAPTTMP ADDRESS OF TMP PARAMETER LIST.
00096E 5880 8008            00008  1696+         L     PASSREG,(CPPLPSCB-CPPL)(,PASSREG) ADDRESS OF PSCB.
000972 4140 90EE            000EE  1697+         LA    AREAREG,CAEDDSNL ADDRESS OF DATA SET NAME LENGTH
                                   1698+*                                  AND DATA SET NAME.
000976 D227 96F8 BCB4 006F8 00CC8  1699+         MVC   INDREC(INDR18L),INDR18 INITIALIZE IKJDAIR
                                   1700+*                                  PARAMETER LIST - ENTRY CODE 18
00097C D207 970C 911C 0070C 0011C  1701+         MVC   INDREC+(DA18MNM-DAPB18)(L'CAEDMEMB),CAEDMEMB MOVE
                                   1702+*                                  MEMBER NAME TO PARAMETER LIST.
000982 5040 9700            00700  1703+         ST    AREAREG,INDREC+(DA18PDSN-DAPB18) PUT ADDRESS OF
                                   1704+*                                  DSNAME IN PARAMETER LIST.
000986 4140 96F8            006F8  1705+         LA    AREAREG,INDREC ADDRESS OF IKJDAIR PARAMETER LIST.
00098A 4110 9210            00210  1706+         LA    1,CATMPLST LOAD PARAMETER REG 1
00098E 18E8                        1707+         LR    14,(PASSREG) PICK UP PARAMETER
000990 18F4                        1708+         LR    15,(AREAREG) PICK UP PARAMETER
000992 90EF 100C            0000C  1709+         STM   14,15,12(1) STORE INTO PARAM. LIST
000996 0700                        1710+         CNOP  0,4
000998 45F0 B998            009AC  1711+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
00099C 000009A4                    1712+         DC    A(*+8) ADDR OF EP PARAMETER
0009A0 00000000                    1713+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
0009A4 C9D2D1C4C1C9D940            1714+         DC    CL8'IKJDAIR' EP PARAMETER
0009AC 0A06                        1715+         SVC   6 ISSUE LINK SVC
0009AE 12FF                        1716+         LTR   RETCDREG,RETCDREG TEST FOR RETURN CODE OF ZERO.
0009B0 4780 B9A8            009BC  1717+         BZ    IN009068 IF RETURN CODE IS ZERO, BRANCH TO
                                   1718+*                                  CONTINUE NORMAL PROCESSING.
0009B4 49F0 BC60            00C74  1719+         CH    RETCDREG,INDRRC24 CHECK FOR RETURN CODE 24
                                   1720+*                                  (DECIMAL) FROM IKJDAIR.
0009B8 4770 B79C            007B0  1721+         BNE   IN002160 IF NOT 24, BRANCH TO DIAGNOSE     A59609
                                   1722+*                                  IKJDAIR ERROR RETURN CODE.
0009BC                             1723+IN009068 EQU   *
0009BC 94FE 90EC      000EC        1724+         NI    CAEDFLAG,INF255-CAEDALOC INDICATE DATA SET NO
                                   1725+*                                  LONGER ALLOCATED.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0009C0                             1727+IN009070 EQU   *
                                   1728+***********************************************************************
                                   1729+*                                                                     *
                                   1730+*   TRANSFER CONTROL TO MAIN CONTROLLER.                              *
                                   1731+*                                                                     *
                                   1732+*   FREE IKJPARSE PDL USING THE IKJRLSA MACRO INSTRUCTION.  BUILD     *
                                   1733+*   PARAMETER LIST FOR XCTL.  FREE THIS ROUTINES SAVE AREA AND        *
                                   1734+*   XCTL TO IKJEBEMA.                                                 *
                                   1735+*                                                                     *
                                   1736+***********************************************************************
0009C0 5840 95B8            005B8  1737+         L     AREAREG,INPDLPTR ADDRESS OF PROMPT PDL.           A45713
0009C4 1244                        1738+         LTR   AREAREG,AREAREG CHECK IF PROMPT PDL PRESENT.      A45713
0009C6 47D0 B9F2            00A06  1739+         BNP   IN009075 IF NO, BRANCH TO FREE MAIN PDL.    A45713
0009CA 5810 95B8            005B8  1740+         L     1,INPDLPTR FETCH PDL ADDRESS
0009CE 4111 0000            00000  1741+         LA    1,0(1) CLEAR HIGH ORDER BYTE
0009D2 1211                        1742+         LTR   1,1 WAS A PDL RETURNED
0009D4 4780 B9DC            009F0  1743+         BZ    IKJ$0060 IF NO SKIP FREEMAIN
0009D8                             1744+IKJ@0060 DS    0H FREE PDL LOOP
0009D8 58E1 0000            00000  1745+         L     14,0(1) LOAD NEXT AREA ADDRESS TO FREE
0009DC 5801 0004            00004  1746+         L     0,4(1) LOAD SUBPOOL AND LENGTH
0009E0 4111 0000            00000  1747+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
0009E4 0A0A                        1748+         SVC   10 ISSUE FREEMAIN SVC         P2504
0009E6 41EE 0000            00000  1749+         LA    14,0(14) CLEAR HIGH ORDER BYTE
0009EA 121E                        1750+         LTR   1,14 ANY MORE CORE TO FREE
0009EC 4770 B9C4            009D8  1751+         BNZ   IKJ@0060 REPEAT LOOP UNTIL DONE
0009F0                             1752+IKJ$0060 DS    0H BRANCHED TO IF FREEMAIN SKIPPED
0009F0 5840 95B4            005B4  1753+         L     AREAREG,INPGLIST+PGPBIBUF-PGPB PROMPT BFR ADDR.   A45713
0009F4 4800 4000            00000  1754+         LH    PARMREG0,D0(,AREAREG) LENGTH OF PROMPT BUFFER.    A45713
0009F8 5810 95B4            005B4  1755+         L     PARMREG1,INPGLIST+PGPBIBUF-PGPB PTR TO BFR ADDR.  A45713
0009FC 5600 BC2C            00C40  1756+         O     PARMREG0,INSUBPL1 INDICATE SUBPOOL ONE.           A45713
000A00 4111 0000            00000  1757+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
000A04 0A0A                        1758+         SVC   10 ISSUE FREEMAIN SVC         P2504
000A06                             1759+IN009075 EQU   * A45713
000A06 5810 9024            00024  1760+         L     1,CAPTPRSD FETCH PDL ADDRESS
000A0A 4111 0000            00000  1761+         LA    1,0(1) CLEAR HIGH ORDER BYTE
000A0E 1211                        1762+         LTR   1,1 WAS A PDL RETURNED
000A10 4780 BA18            00A2C  1763+         BZ    IKJ$0063 IF NO SKIP FREEMAIN
000A14                             1764+IKJ@0063 DS    0H FREE PDL LOOP
000A14 58E1 0000            00000  1765+         L     14,0(1) LOAD NEXT AREA ADDRESS TO FREE
000A18 5801 0004            00004  1766+         L     0,4(1) LOAD SUBPOOL AND LENGTH
000A1C 4111 0000            00000  1767+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
000A20 0A0A                        1768+         SVC   10 ISSUE FREEMAIN SVC         P2504
000A22 41EE 0000            00000  1769+         LA    14,0(14) CLEAR HIGH ORDER BYTE
000A26 121E                        1770+         LTR   1,14 ANY MORE CORE TO FREE
000A28 4770 BA00            00A14  1771+         BNZ   IKJ@0063 REPEAT LOOP UNTIL DONE
000A2C                             1772+IKJ$0063 DS    0H BRANCHED TO IF FREEMAIN SKIPPED
000A2C 9680 9024      00024        1773+         OI    CAPRSPDL,CAFREEDL INDICATE THAT NO PDL REMAINS TO
                                   1774+*                                  BE FREEMAINED.
000A30 9101 907C      0007C        1775+         TM    CACFLAG1,CANONUM TEST IF DATA SET IS LINE NUMBERED
                                   1776+*                                  SO THAT DEFAULT INCREMENTS MAY
                                   1777+*                                  BE SET ACCORDINGLY.
000A34 4780 BA34            00A48  1778+         BZ    IN009080 IF DATA SET IS NUMBERED, BRANCH TO
                                   1779+*                                  DEFAULT INCREMENTS TO 10.
000A38 D203 91CC BC40 001CC 00C54  1780+         MVC   CAINCRE(L'CAINCRE),ININC100 SET DATA SET INCREMENT
000A3E D203 91D4 BC40 001D4 00C54  1781+         MVC   CAIMLINC(L'CAIMLINC),ININC100 AND LAST INCREMENT
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1782+*                                  USED IN INPUT MODE TO 100 FOR
                                   1783+*                                  NON-LINE NUMBERED DATA SETS.
000A44 47F0 BA44            00A58  1784+         B     IN009090 BRANCH TO TRANSFER CONTROL TO THE
                                   1785+*                                  MAIN CONTROLLER (IKJEBEMA).
000A48                             1786+IN009080 EQU   *
000A48 D203 91CC BC3C 001CC 00C50  1787+         MVC   CAINCRE(L'CAINCRE),ININC010 SET DATA SET INCREMENT
000A4E D203 91D4 BC3C 001D4 00C50  1788+         MVC   CAIMLINC(L'CAIMLINC),ININC010 AND LAST INCREMENT
                                   1789+*                                  USED IN INPUT MODE TO 10 FOR
                                   1790+*                                  LINE NUMBERED DATA SETS.
000A54 9680 907E      0007E        1791+         OI    CACFLAG3,CAIMPT INDICATE THAT USER TO BE PROMPTED.
000A58                             1792+IN009090 EQU   *
000A58 D207 98A8 BC04 008A8 00C18  1793+         MVC   INXCTLPL(INXCTLLN),INXCTL INITIALIZE XCTL
                                   1794+*                                  PARAMETER LIST.
                                   1795+         DROP  DATAREG
000A5E 181D                        1796+         LR    PARMREG1,SAVEREG ADDRESS OF SAVE/WORK AREA.
000A60 58D0 D004            00004  1797+         L     SAVEREG,D4(PARMREG0,SAVEREG) ADDRESS OF HIGHER
                                   1798+*                                  SAVE AREA
000A64 58E0 D00C            0000C  1799+         L     RETREG,D12(,SAVEREG) ADDRESS OF RETURN POINT.     A42958
000A68 D747 1000 1000 00000 00000  1800+         XC    D0(D72,PARMREG1),D0(PARMREG1) ZERO SAVE AREA.
000A6E 1819                        1801+         LR    1,(COMMREG) LOAD PARAMETER REG 1
000A70 41F0 98A8            008A8  1802+         LA    15,INXCTLPL LOAD SUP.PARAMLIST ADR
000A74 4100 BA68            00A7C  1803+         LA    0,*+8 LOAD EP ADDR IN REG 0
000A78 47F0 BA70            00A84  1804+         B     *+12 BRANCH AROUND EP
000A7C C9D2D1C5C2C5D4C1            1805+         DC    CL8'IKJEBEMA' EP SYMPOL
000A84 5000 F000            00000  1806+         ST    0,0(0,15) STORE IN SUP.PARAMLIST
000A88 982C D01C            0001C  1807+         LM    2,12,28(13) RESTORE REGISTERS
000A8C 0A07                        1808+         SVC   7 ISSUE XCTL SVC
                                   1809+*                                  XCTL TO IKJEBEMA.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1811+***********************************************************************
                                   1812+*                                                                     *
                                   1813+*   CALL IKJEBIN3 TO ISSUE ERROR MESSAGE TO USER.  UPON RETURN        *
                                   1814+*   FROM IKJEBIN3, SET RETURN CODE TO 12 AND RETURN TO THE TMP.       *
                                   1815+*                                                                     *
                                   1816+***********************************************************************
000A8E                             1817+IN010010 EQU   *
000A8E 58F0 BBD4            00BE8  1818+         L     EPLOCREG,INMSGRTN ADDRESS OF MESSAGE ROUTINE.
000A92                             1819+         DS    0H
000A92 4110 9890            00890  1820+         LA    1,INSVCRTN LOAD PARAMETER REG 1
000A96 5090 1000            00000  1821+         ST    (COMMREG),0(0,1) STORE INTO PARAM. LIST
000A9A 5050 1004            00004  1822+         ST    (ERR1REG),4(0,1) STORE INTO PARAM. LIST
000A9E 5060 1008            00008  1823+         ST    (ERR2REG),8(0,1) STORE INTO PARAM. LIST
000AA2 5070 100C            0000C  1824+         ST    (DATA1REG),12(0,1) STORE INTO PARAM. LIST
000AA6 5080 1010            00010  1825+         ST    (DATA2REG),16(0,1) STORE INTO PARAM. LIST
000AAA 05EF                        1826+         BALR  14,15 BRANCH TO ENTRY POINT
000AAC                             1827+INEXIT12 EQU   * A59609
000AAC 4160 000C            0000C  1828+         LA    TMPCDREG,D12(,D0) SET RETURN CODE 12 FOR TMP.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000AB0                             1830+INEXIT0  EQU   *
                                   1831+***********************************************************************
                                   1832+*                                                                     *
                                   1833+*   EXIT AREA -- AN ERROR WAS ENCOUNTERED DURING INITIALIZATION OF    *
                                   1834+*   THE EDIT COMMAND.  ON EXIT, (1) RELEASE THE IKJPARSE PDL USING    *
                                   1835+*   THE IKJRLSA MACRO INSTRUCTION, (2) CALL IKJEBESR TO DELETE THE    *
                                   1836+*   PERMANENTLY RESIDENT SERVICE ROUTINES, (3) DELETE IKJEBESR USING  *
                                   1837+*   THE DELETE MACRO INSTRUCTION, (4) ISSUE A FREEMAIN MACRO          *
                                   1838+*   INSTRUCTION FOR THE BLDL LIST AND THE COMMUNICATION AREA, AND     *
                                   1839+*   (5) RETURN TO THE TMP WITH A RETURN CODE OF 12.                   *
                                   1840+*                                                                     *
                                   1841+***********************************************************************
000AB0                             1842+INEXIT1  EQU   *
000AB0 9180 9024      00024        1843+         TM    CAPRSPDL,CAFREEDL CHECK IF PDL EXISTS.
000AB4 4770 BACA            00ADE  1844+         BNZ   INEXIT2 IF NOT, BRANCH TO EXIT.
000AB8 5810 9024            00024  1845+         L     1,CAPTPRSD FETCH PDL ADDRESS
000ABC 4111 0000            00000  1846+         LA    1,0(1) CLEAR HIGH ORDER BYTE
000AC0 1211                        1847+         LTR   1,1 WAS A PDL RETURNED
000AC2 4780 BACA            00ADE  1848+         BZ    IKJ$0072 IF NO SKIP FREEMAIN
000AC6                             1849+IKJ@0072 DS    0H FREE PDL LOOP
000AC6 58E1 0000            00000  1850+         L     14,0(1) LOAD NEXT AREA ADDRESS TO FREE
000ACA 5801 0004            00004  1851+         L     0,4(1) LOAD SUBPOOL AND LENGTH
000ACE 4111 0000            00000  1852+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
000AD2 0A0A                        1853+         SVC   10 ISSUE FREEMAIN SVC         P2504
000AD4 41EE 0000            00000  1854+         LA    14,0(14) CLEAR HIGH ORDER BYTE
000AD8 121E                        1855+         LTR   1,14 ANY MORE CORE TO FREE
000ADA 4770 BAB2            00AC6  1856+         BNZ   IKJ@0072 REPEAT LOOP UNTIL DONE
000ADE                             1857+IKJ$0072 DS    0H BRANCHED TO IF FREEMAIN SKIPPED
000ADE                             1858+INEXIT2  EQU   *
000ADE 4500 BAD6            00AEA  1859+         BAL   0,*+12 LOAD ADDR OF EP SYMBOL
000AE2 C9D2D1C5C2C5D4E2            1860+         DC    CL8'IKJEBEMS' EP SYMBOL
000AEA 0A09                        1861+         SVC   9 ISSUE DELETE SVC
000AEC 4100 0001            00001  1862+         LA    0,1 SET ENTRY CODE
000AF0 4110 0080            00080  1863+         LA    1,X'80' INDICATE INPUT
000AF4 8D00 0018            00018  1864+         SLDL  0,24 MOVE TO HI-ORDER BYTES
000AF8 0A5E                        1865+         SVC   94 ISSUE SVC
000AFA D207 9220 BCAC 00220 00CC0  1866+         MVC   CASRPLST+D4(INSTPBLN),INSTKPRM MOVE STACK PARAMETER
                                   1867+*                                  BLOCK TO DYNAMIC AREA.
000B00 41F0 9220            00220  1868+         LA    EPLOCREG,CASRPLST+D4 ADDRESS OF STACK PARAMETER BLOCK.
000B04 50F0 921C            0021C  1869+         ST    EPLOCREG,CATMPLST+IOPLIOPB-IOPL STORE ADDRESS IN
                                   1870+*                                  SERVICE ROUTINE PARAMETER LIST.
000B08 4110 9210            00210  1871+         LA    1,CATMPLST LOAD PARM LIST ADDR
000B0C                             1872+         CNOP  0,4
000B0C 45F0 BB0C            00B20  1873+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
000B10 00000B18                    1874+         DC    A(*+8) ADDR OF EP PARAMETER
000B14 00000000                    1875+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000B18 C9D2D1E2E3C3D240            1876+         DC    CL8'IKJSTCK' EP PARAMETER
000B20 0A06                        1877+         SVC   6 ISSUE LINK SVC
000B22 58D0 D004            00004  1878+         L     SAVEREG,D4(,SAVEREG) ADDRESS OF NEXT HIGHER SAVE
                                   1879+*                                  AREA.
000B26 0700                        1880+         CNOP  0,4
000B28 47F0 BB1C            00B30  1881+         B     *+8 BRANCH AROUND SP+LV
000B2C 01                          1882+         DC    AL1(SUBPOOL) SUBPOOL VALUE
000B2D 000E40                      1883+         DC    AL3(CADLEN) LENGTH
000B30 5800 BB18            00B2C  1884+         L     0,*-4 LOAD SP AND LV
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000B34 1819                        1885+         LR    1,COMMREG LOAD AREA ADDRESS
000B36 4111 0000            00000  1886+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
000B3A 0A0A                        1887+         SVC   10 ISSUE FREEMAIN SVC         P2504
000B3C 98EC D00C            0000C  1888+         LM    14,12,12(13) RESTORE THE REGISTERS
000B40 41F0 000C            0000C  1889+         LA    15,12(0,0) LOAD RETURN CODE
000B44 07FE                        1890+         BR    14 RETURN
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1892+***********************************************************************
                                   1893+*                                                                     *
                                   1894+*   PROMPT USER FOR NEW OR OLD OPERAND.                               *
                                   1895+*                                                                     *
                                   1896+*   BUILD A BLANK BUFFER AND LINK TO IKJPARS TO PROMPT USER FOR       *
                                   1897+*   NEW OR OLD OPERAND.  UPON RETURN FROM IKJPARS, TEST RETURN CODE   *
                                   1898+*   FOR SUCCESSFUL COMPLETION.  IF A NON-ZERO RETURN CODE IS          *
                                   1899+*   RETURNED, BRANCH TO DIAGNOSE ERROR.  OTHERWISE, DETERMINE USER    *
                                   1900+*   RESPONSE, FREE PDL, AND RETURN TO CALLER.                         *
                                   1901+*                                                                     *
                                   1902+***********************************************************************
000B46                             1903+INDISPPR EQU   *
000B46 9240 9792      00792        1904+         MVI   INTEMPBF,CHRBLANK INITIALIZE BUFFER TO BLANKS SO
000B4A D256 9793 9792 00793 00792  1905+         MVC   INTEMPBF+D1(L'INTEMPBF-D1),INTEMPBF THAT IKJPARS
                                   1906+*                                  WILL PROMPT FOR DISPOSITION.
000B50 D203 9792 BC38 00792 00C4C  1907+         MVC   INTEMPBF(L'INBUFRCW),INBUFRCW INITIALIZE BUFFER
                                   1908+*                                  CONTROL WORD.
000B56 5860 BDD8            00DEC  1909+         L     PCLREG,INDISPDL ADDRESS OF PCL FOR IKJPARS.
000B5A 4140 9792            00792  1910+         LA    AREAREG,INTEMPBF ADDRESS OF BUFFER.
000B5E 4170 98C4            008C4  1911+         LA    PDLREG,INCOREPT ADDRESS OF AREA IN WHICH IKJPARS
                                   1912+*                                  RETURNS ADDRESS OF PDL.
                                   1913+         XC    CATMPLST+(PPLPCL-PPL)(PPLUWA-PPLPCL+L'PPLUWA),CATMPLST+(X
000B62 D70F 921C 921C 0021C 0021C      +               PPLPCL-PPL) ZERO IKJPARS PORTION OF PARAMETER
                                   1914+*                                  LIST.
000B68 5060 921C            0021C  1915+         ST    PCLREG,CATMPLST+PPLPCL-PPL INITIALIZE IKJPARS
000B6C 5070 9220            00220  1916+         ST    PDLREG,CATMPLST+PPLANS-PPL PARAMETER LIST WITH
000B70 5040 9224            00224  1917+         ST    AREAREG,CATMPLST+PPLCBUF-PPL PCL, BUFFER, ANS. PTRS
000B74 4110 9210            00210  1918+         LA    1,CATMPLST LOAD PARAMETER REG 1
000B78 41F0 9888            00888  1919+         LA    15,INLINKSF LOAD SUP.PARAMLIST ADR
000B7C 4100 BB70            00B84  1920+         LA    0,*+8 LOAD EP ADDR IN REG 0
000B80 47F0 BB78            00B8C  1921+         B     *+12 BRANCH AROUND EP
000B84 C9D2D1D7C1D9E240            1922+         DC    CL8'IKJPARS' EP SYMPOL
000B8C 5000 F000            00000  1923+         ST    0,0(0,15) STORE IN SUP.PARAMLIST
000B90 4100 0000            00000  1924+         LA    0,0 PICK UP DCB PARM  LC0A
000B94 400F 0006            00006  1925+         STH   0,6(15) STORE THREE-BYTE  LC0A
000B98 8800 0010            00010  1926+         SRL   0,16 DCB PARAMETER IN  LC0A
000B9C 420F 0005            00005  1927+         STC   0,5(15) SUPV PARM LIST    LC0A
000BA0 0A06                        1928+         SVC   6 ISSUE LINK SVC
000BA2 12FF                        1929+         LTR   RETCDREG,RETCDREG TEST FOR SUCCESSFUL COMPLETION.
000BA4 4770 B102            00116  1930+         BNZ   IN001060 IF NOT SUCCESSFUL, BRANCH TO
                                   1931+*                                  DIAGNOSE ERROR.
000BA8 5840 98C4            008C4  1932+         L     AREAREG,INCOREPT ADDRESS OF PDL BUILT
                                   1933+*                                  BY IKJPARS.
000000                             1934+         USING INDISPD,AREAREG ESTABLISH ADDRESSABILITY TO PDL.
000BAC 5830 4008            00008  1935+         L     FLAGREG,INDISPX OBTAIN ADDRESS OF USER RESPONSE.
000BB0 4820 400C            0000C  1936+         LH    LENREG,INDISPX+D4 LENGTH OF USER RESPONSE.
000BB4 0620                        1937+         BCTR  LENREG,D0 REDUCE LENGTH BY 1 FOR COMPARE.
000BB6 4420 BBD8            00BEC  1938+         EX    LENREG,INCL001 DETERMINE IF NEW SPECIFIED.
000BBA 4770 BBAC            00BC0  1939+         BNE   IN012020 IF NOT NEW, BRANCH TO FREE PDL.
000BBE 1B33                        1940+         SR    FLAGREG,FLAGREG SET NEW INDICATION FOR CALLER.
000BC0                             1941+IN012020 EQU   *
                                   1942+         DROP  AREAREG DISCONTINUE ADDRESSABILITY TO PDL.
000BC0 5810 98C4            008C4  1943+         L     1,INCOREPT FETCH PDL ADDRESS
000BC4 4111 0000            00000  1944+         LA    1,0(1) CLEAR HIGH ORDER BYTE
000BC8 1211                        1945+         LTR   1,1 WAS A PDL RETURNED
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000BCA 4780 BBD2            00BE6  1946+         BZ    IKJ$0085 IF NO SKIP FREEMAIN
000BCE                             1947+IKJ@0085 DS    0H FREE PDL LOOP
000BCE 58E1 0000            00000  1948+         L     14,0(1) LOAD NEXT AREA ADDRESS TO FREE
000BD2 5801 0004            00004  1949+         L     0,4(1) LOAD SUBPOOL AND LENGTH
000BD6 4111 0000            00000  1950+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
000BDA 0A0A                        1951+         SVC   10 ISSUE FREEMAIN SVC         P2504
000BDC 41EE 0000            00000  1952+         LA    14,0(14) CLEAR HIGH ORDER BYTE
000BE0 121E                        1953+         LTR   1,14 ANY MORE CORE TO FREE
000BE2 4770 BBBA            00BCE  1954+         BNZ   IKJ@0085 REPEAT LOOP UNTIL DONE
000BE6                             1955+IKJ$0085 DS    0H BRANCHED TO IF FREEMAIN SKIPPED
000BE6 07F8                        1956+         BR    SRRTNREG RETURN TO CALLER.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1958+**********************************************************************
                                   1959+*                                                                     *
                                   1960+*   EQUATES, CONSTANTS AND AREAS USED BY INITIALIZATION.              *
                                   1961+*                                                                     *
                                   1962+***********************************************************************
000BE8 00000000                    1963+INMSGRTN DC    V(IKJEBIN3) ADDRESS OF MESSAGE ROUTINE FOR
                                   1964+*                                  INITIALIZATION PHASE.





000BEC D500 3000 BC35 00000 00C49  1966+INCL001  CLC   D0(*-*,FLAGREG),INNEW CHECK IF NEW ENTERED.
000BF2 D700 4000 4000 00000 00000  1967+INXC001  XC    D0(*-*,AREAREG),D0(AREAREG) INSTRUCTION EXECUTED
                                   1968+*                                  OUT OF SEQUENCE TO ZERO CORE.
000BF8 D200 4000 5000 00000 00000  1969+INMV001  MVC   D0(*-*,AREAREG),D0(DSNAMREG) MOVE DATA SET NAME
                                   1970+*                                  TO MESSAGE INSERTION RECORD.
000BFE D200 4001 5000 00001 00000  1971+INMV002  MVC   X1(*-*,AREAREG),D0(DSNAMREG) MOVE MEMBER NAME TO
                                   1972+*                                  MESSAGE INSERTION RECORD.
000C04 D200 90F0 4000 000F0 00000  1973+INMV003  MVC   CAEDDSN(*-*),D0(AREAREG) MOVE EDIT DATA SET NAME TO
                                   1974+*                                  COMMUNICATION AREA.
000C0A D200 911C 4000 0011C 00000  1975+INMV004  MVC   CAEDMEMB(*-*),D0(AREAREG) MOVE MEMBER NAME TO
                                   1976+*                                  COMMUNICATION AREA.
000C10 D200 912C 4000 0012C 00000  1977+INMV005  MVC   CAEDPSWD(*-*),D0(AREAREG) MOVE PASSWORD TO
                                   1978+*                                  COMMUNICATION AREA.





000C18                             1980+         DS    0F
000C18 00000000                    1981+INXCTL   DC    A(0) SUPERVISOR PARAMETER
000C1C 00000000                    1982+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000008                             1983+INXCTLLN EQU   *-INXCTL LENGTH OF XCTL PARAMETER LIST.





000C20                             1985+INCAMLST DS    0F ALIGN ON FULL WORD
000C20 C1                          1986+         DC    AL1(193) THREE BYTES OF FLAGS
000C21 00                          1987+         DC    AL1(0) INDICATING THE FUNC-
000C22 00                          1988+         DC    AL1(0) TION TO BE PERFORMED
000C23 00                          1989+         DC    AL1(0) NO OPTION THREE
000C24 00000001                    1990+         DC    A(1) PARAMETER TWO
000C28 00000002                    1991+         DC    A(2) PARAMETER THREE
000C2C 00000003                    1992+         DC    A(3) PARAMETER FOUR
000010                             1993+INCAMEND EQU   *-INCAMLST LENGTH OF EAMLIST EXPANSION.





000C30 0001                        1995+INKEYDEF DC    H'1' DEFAULT KEYWORD NUMBER FROM IKJPARSE.
000C32 0002                        1996+INDISPNW DC    XL2'2' RELATIVE KEYWORD NUMBER FOR NEW.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000C34 01000000                    1997+INPARS   DC    XL4'01000000' INDICATOR FOR IKJPARS SERVICE
                                   1998+*                                  ROUTINE.
000C38 02000000                    1999+INDAIR   DC    XL4'02000000' INDICATOR FOR IKJDAIR SERVICE
                                   2000+*                                  ROUTINE.
000C3C 04000000                    2001+INSVCOBT DC    XL4'04000000' INDICATOR FOR OBTAIN SVC.
000C40 01000000                    2002+INSUBPL1 DC    XL4'01000000' INDICATOR FOR SUBPOOL ONE.         A45713
000C44 000000                      2003+INDSMTY  DC    XL3'0' CONSTANT USED TO CHECK DS1LSTAR.
000C47 0000                        2004+INNOKEYW DC    XL2'0' CONSTANT USED TO DETERMINE IF A
                                   2005+*                                  KEYWORD ENTERED ON COMMAND.
000C49 D5C5E6                      2006+INNEW    DC    CL3'NEW' NEW DISPOSITION OPERAND KEYWORD.
000C4C 000C0000                    2007+INBUFRCW DC    XL4'000C0000' BUFFER CONTROL WORD FOR DUMMY
                                   2008+*                                  IKJPARS BUFFER.
000C50 0000000A                    2009+ININC010 DC    F'10' DEFAULT INCREMENT FOR LINE
                                   2010+*                                  NUMBERED DATA SETS.
000C54 00000064                    2011+ININC100 DC    F'100' DEFAULT INCREMENT FOR NON-LINE
                                   2012+*                                  NUMBERED DATA SETS.
000C58 0000                        2013+INDR0000 DC    XL2'0000' IKJDAIR DARC = 0 - CATALOG ERROR.
000C5A 0004                        2014+INDR0004 DC    XL2'4' IKJDAIR CTRC = 4 - CATALOG ERROR.
000C5C 0008                        2015+INDR0008 DC    XL2'8' IKJDAIR CTRC = 8 - CATALOG ERROR.
000C5E 001C                        2016+INDR0028 DC    XL2'1C' IKJDAIR CTRC = 28- CATALOG ERROR.
000C60 020C                        2017+INDR020C DC    XL2'020C' IKJDAIR DYNAMIC ALLOCATION ERROR.
000C62 0210                        2018+INDR0210 DC    XL2'0210' IKJDAIR DYNAMIC ALLOCATION ERROR.
000C64 0214                        2019+INDR0214 DC    XL2'0214' IKJDAIR DYNAMIC ALLOCATION ERROR.
000C66 0218                        2020+INDR0218 DC    XL2'0218' IKJDAIR DYNAMIC ALLOCATION ERROR.
000C68 021C                        2021+INDR021C DC    XL2'021C' IKJDAIR DYNAMIC ALLOCATION ERROR.
000C6A 0220                        2022+INDR0220 DC    XL2'0220' IKJDAIR DYNAMIC ALLOCATION ERROR.
000C6C 0404                        2023+INDR0404 DC    XL2'0404' IKJDAIR DYNAMIC ALLOCATION ERROR.
000C6E 041C                        2024+INDR041C DC    XL2'041C' IKJDAIR DYNAMIC ALLOCATION ERROR.
000C70 0008                        2025+INDAIR08 DC    H'8' IKJDAIR RETURN CODE 8 (CATALOG    A59609
                                   2026+*                                  MANAGEMENT ERROR.)           A59609
000C72 0010                        2027+INDAIR16 DC    H'16' IKJDAIR RETURN CODE 16 (NO ENTRY  A59609
                                   2028+*                                  AVAILABLE IN TIOT.)          A59609
000C74 0018                        2029+INDRRC24 DC    H'24' IKJDAIR RETURN CODE 24 (DATA SET
                                   2030+*                                  BELONGS TO A CONCATENATED
                                   2031+*                                  GROUP).  THIS RETURN CODE IS
                                   2032+*                                  ACCEPTABLE FOR UNALLOCATION.
000C76 0030                        2033+INDAIR48 DC    H'48' IKJDAIR RETURN CODE 48 (DAIR STAE A59609
                                   2034+*                                  EXIT ENTERED.)               A59609
000C78 0001000E                    2035+INBLINIT DC    XL4'0001000E' CONSTANT USED FOR BLDL LIST
                                   2036+*                                  INITIALIZATION.
000C7C E3C5D4D7D5C1D4C5            2037+INTEMPNM DC    CL8'TEMPNAME' DEFAULT MEMBER NAME WHEN NOT
                                   2038+*                                  SUPPLIED ON COMMAND.







                                   2041+*                       DATA CONTROL BLOCK
                                   2042+*
000C84                             2043+INDCB    DC    0F'0' ORIGIN ON WORD BOUNDARY

                                   2045+*                       DIRECT ACCESS DEVICE INTERFACE
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000C84 0000000000000000            2047+         DC    BL16'0' FDAD,DVTBL
000C94 00000000                    2048+         DC    A(0) KEYLE,DEVT,TRBAL

                                   2050+*                       COMMON ACCESS METHOD INTERFACE

000C98 00                          2052+         DC    AL1(0) BUFNO
000C99 000001                      2053+         DC    AL3(1) BUFCB
000C9C 0000                        2054+         DC    AL2(0) BUFL
000C9E 0200                        2055+         DC    BL2'0000001000000000' DSORG
000CA0 00000001                    2056+         DC    A(1) IOBAD

                                   2058+*                       FOUNDATION EXTENSION

000CA4 00                          2060+         DC    BL1'00000000' BFTEK,BFLN,HIARCHY
000CA5 000001                      2061+         DC    AL3(1) EODAD
000CA8 00                          2062+         DC    BL1'00000000' RECFM
000CA9 000000                      2063+         DC    AL3(0) EXLST

                                   2065+*                       FOUNDATION BLOCK

000CAC E7E7E7E7E7E7E7E7            2067+         DC    CL8'XXXXXXXX' DDNAME
000CB4 02                          2068+         DC    BL1'00000010' OFLGS
000CB5 00                          2069+         DC    BL1'00000000' IFLG
000CB6 D008                        2070+         DC    BL2'1101000000001000' MACR
000034                             2071+INDCBL   EQU   *-INDCB LENGTH OF DCB.
000CB8                             2072+INOPEN   DC    0F'0' ALIGN LIST TO FULLWORD
000CB8 80                          2073+         DC    AL1(128) OPTION BYTE
000CB9 000000                      2074+         DC    AL3(0) DCB ADDRESS
000004                             2075+INOPENL  EQU   *-INOPEN LENGTH OF OPEN PARAMETER LIST.
000CBC                             2076+INCLOSE  DC    0F'0' ALIGN LIST TO FULLWORD
000CBC 80                          2077+         DC    AL1(128) OPTION BYTE
000CBD 000000                      2078+         DC    AL3(0) DCB ADDRESS
000004                             2079+INCLOSEL EQU   *-INCLOSE LENGTH OF CLOSE PARAMETER LIST.


000CC0                             2081+         DS    0F
000CC0 10000000                    2082+INSTKPRM DC    X'10000000' SET OPERATION AND CODE FIELDS
000CC4 00000000                    2083+         DC    A(0) STORAGE SOURCE DESCRIPTOR ADDR
000008                             2084+INSTPBLN EQU   *-INSTKPRM LENGTH OF STACK PARAMETER BLOCK.







000000                             2087+D0       EQU   0 OFFSET ZERO (DECIMAL).
000001                             2088+D1       EQU   1 OFFSET 1 (DECIMAL).
000004                             2089+D4       EQU   4 OFFSET 4 (DECIMAL).
000005                             2090+D5       EQU   5 OFFSET 5 (DECIMAL).
000006                             2091+D6       EQU   6 OFFSET 6 (DECIMAL).
000008                             2092+D8       EQU   8 OFFSET 8 (DECIMAL).
000009                             2093+D9       EQU   9 OFFSET 9 (DECIMAL).
000010                             2094+D16      EQU   16 OFFSET 16 (DECIMAL).
000048                             2095+D72      EQU   72 OFFSET 72 (DECIMAL).
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00000C                             2096+D12      EQU   12 OFFSET 12 (DECIMAL).
00000F                             2097+D15      EQU   15 OFFSET 15 (DECIMAL).
000003                             2098+D3       EQU   3 OFFSET 3 (DECIMAL).
000002                             2099+D2       EQU   2 OFFSET 2 (DECIMAL).
000007                             2100+D7       EQU   7 OFFSET 7 (DECIMAL).
000014                             2101+D20      EQU   20 OFFSET 20 (DECIMAL).
000018                             2102+D24      EQU   24 OFFSET 24 (DECIMAL).
00001E                             2103+D30      EQU   30 OFFSET 30 (DECIMAL).
000020                             2104+D32      EQU   32 OFFSET 32 (DECIMAL).
000001                             2105+X1       EQU   1 OFFSET 1.
000000                             2106+INSMGPT  EQU   0 OFFSET IN PDE TO POINTER.
000004                             2107+INSMGLN  EQU   4 OFFSET IN PDE TO LENGTH.
000006                             2108+INSMGFLG EQU   6 OFFSET IN PDE TO FLAGS.
000002                             2109+INLSRCMG EQU   2 LEFT SOURCE MARGIN FOR PL/I.
000048                             2110+INRSRCMG EQU   72 RIGHT SOURCE MARGIN FOR PL/I.
000000                             2111+INSNOPT  EQU   0 OFFSET IN PDE TO POINTER.
000004                             2112+INSNOLN  EQU   4 OFFSET IN PDE TO LENGTH.
000006                             2113+INSNOFLG EQU   6 OFFSET IN PDE TO FLAGS.
000080                             2114+INSNOOMT EQU   X'80' START POSITION/LENGTH ENTERED.
000000                             2115+INBLKPT  EQU   0 OFFSET IN PDE TO ADDRESS OF BLOCK
                                   2116+*                                  VALUE.
000004                             2117+INBLKLN  EQU   4 OFFSET IN PDE TO LENGTH OF BLOCK
                                   2118+*                                  VALUE.
000000                             2119+INLNEPT  EQU   0 OFFSET IN PDE TO ADDRESS OF LINE
                                   2120+*                                  VALUE.
000004                             2121+INLNELN  EQU   4 OFFSET IN PDE TO LENGTH OF LINE
                                   2122+*                                  VALUE.
0000C0                             2123+DS1FMUDF EQU   B'11000000' DSCB RECFM = UNDEFINED.
000040                             2124+DS1FMVAR EQU   B'01000000' DSCB RECFM = VARIABLE.
000008                             2125+DS1FMSTD EQU   B'00001000' DSCB RECFM = STANDARD BLOCKS.
000020                             2126+DS1FMOVF EQU   B'00100000' DSCB RECFM = TRACK OVERFLOW.
000004                             2127+DS1FMA   EQU   B'00000100' DSCB RECFM = ASA CONTROL CHARACTER.
000002                             2128+DS1FMM   EQU   B'00000010' DSCB RECFM = MACHINE CONTROL
                                   2129+*                                  CHARACTER.
000010                             2130+DS1FMBLK EQU   B'00010000' DSCB RECFM = BLOCKED.
000080                             2131+DS1FMFX  EQU   B'10000000' DSCB RECFM = FIXED.
000002                             2132+DS1ORGPO EQU   B'00000010' DSCB DSORG = PARTITIONED.
000040                             2133+DS1ORGPS EQU   B'01000000' DSCB DSORG = PHYSICAL SEQUENTIAL.
000002                             2134+INSTATN  EQU   2 RELATIVE KEYWORD NUMBER FOR NEW.
000004                             2135+CURNTTCB EQU   4 OFFSET TO CURRENT TCB.
000001                             2136+INSTATO  EQU   1 KEYWORD NUMBER FOR OLD (STATUS).
000080                             2137+INOPRNDO EQU   X'80' IKJPARSE OPERAND OMITTED.
000040                             2138+INFULLQ  EQU   X'40' DATA SET NAME FULLY QUALIFIED.
000000                             2139+INDSNPT  EQU   0 OFFSET IN PDE TO DATA SET NAME PT
000004                             2140+INDSNLL  EQU   4 OFFSET IN PDE TO DATA SET NAME LENGTH
000006                             2141+INDSNFLG EQU   6 OFFSET IN PDE TO DATA SET NAME FLAGS.
000008                             2142+INMEMPT  EQU   8 OFFSET IN PDE TO MEMBER PT
00000C                             2143+INMEMLL  EQU   12 OFFSET IN PDE TO MEMBER LENGTH.
00000E                             2144+INMEMFLG EQU   14 OFFSET IN PDE TO MEMBER FLAGS.
000010                             2145+INPSWPT  EQU   16 OFFSET IN PDE TO PASSWORD PT.
000014                             2146+INPSWLL  EQU   20 OFFSET IN PDE TO PASSWORD LENGTH.
000016                             2147+INPSWFLG EQU   22 OFFSET IN PDE TO PASSWORD FLAGS.
000049                             2148+INTSFSQO EQU   73 GOFORT(FIXED) SEQUENCE NUMBER
                                   2149+*                                 START COLUMN.
000004                             2150+RCODE4   EQU   4 RETURN CODE 4 - USED TO TEST RETURN
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2151+*                                  CODES.
00000C                             2152+RCODE12  EQU   12 RETURN CODE 12 - USED IN VALIDITY
                                   2153+*                                  CHECK EXIT
000001                             2154+SUBPOOL  EQU   1 SUBPOOL NUMBER FOR MAIN STORAGE
                                   2155+*                                  REQUESTS
0000FF                             2156+INF255   EQU   255 CONSTANT 255 USED FOR LENGTH
                                   2157+*                                  CHECKS IN CLEARING CORE.
000040                             2158+CHRBLANK EQU   C' ' CHARACTER BLANK.
0000F0                             2159+INDCZERO EQU   C'0' DECIMAL ZERO (UNPACKED AND UNSIGNED).
00007D                             2160+INSNGLQT EQU   C'''' SINGLE QUOTE.
00004B                             2161+INPERIOD EQU   C'.' PERIOD.
00004D                             2162+INLFTPRN EQU   C'(' LEFT PARENTHESIS.
00005D                             2163+INRTPRN  EQU   C')' RIGHT PARENTHESIS.
000017                             2164+INDR1700 EQU   X'17' IKJDAIR DYNAMIC ALLOCATION ERROR.
000010                             2165+INOPENED EQU   X'10' MASK USED TO DETERMINE WHETHER THE
                                   2166+*                                  DCB OPENED SUCCESSFULLY.





000000                             2168+INERROR1 EQU   0 RELATIVE ERROR 1 - TERMINATE EDIT
                                   2169+*                                  WITH NOT ENOUGH MAIN STORAGE
                                   2170+*                                  MESSAGE.
000004                             2171+INERROR2 EQU   4 RELATIVE ERROR 2 - TERMINATE EDIT
                                   2172+*                                  WITH REQUIRED PROGRAM NOT
                                   2173+*                                  AVAILABLE MESSAGE.
000008                             2174+INERROR3 EQU   8 RELATIVE ERROR 3 - TERMINATE EDIT
                                   2175+*                                  WITH LOGIC ERROR MESSAGE.
00000C                             2176+INERROR4 EQU   12 RELATIVE ERROR 4 - TERMINATE EDIT
                                   2177+*                                  WITH DATA SET ORGANIZATION NOT
                                   2178+*                                  ACCEPTABLE MESSAGE.
000010                             2179+INERROR5 EQU   16 RELATIVE ERROR 5 - TERMINATE EDIT
                                   2180+*                                  WITH RECORD FORMAT = UNDEFINED
                                   2181+*                                  NOT ACCEPTABLE MESSAGE.
000014                             2182+INERROR6 EQU   20 RELATIVE ERROR 6 - TERMINATE EDIT
                                   2183+*                                  WITH DATA SET NOT USABLE
                                   2184+*                                  MESSAGE.
000018                             2185+INERROR7 EQU   24 RELATIVE ERROR 7 - DATA SET NOT
                                   2186+*                                  FOUND, OLD SPECIFIED.
00001C                             2187+INERROR8 EQU   28 RELATIVE ERROR 8 - LINE VALUE
                                   2188+*                                  SPECIFIED ON COMMAND INVALID,
                                   2189+*                                   OR LRECL FIELD IN THE FORMAT
                                   2190+*                                   1 DSCB IS SET TO ZERO.
000020                             2191+INERROR9 EQU   32 RELATIVE ERROR 9 - BLOCK VALUE
                                   2192+*                                  SPECIFIED ON COMMAND INVALID.
000024                             2193+INERRORA EQU   36 RELATIVE ERROR 10 - SYNTAX CHECKING
                                   2194+*                                  SPECIFIED FOR A NON-SCANABLE
                                   2195+*                                  DATA SET TYPE OR SYNTAX
                                   2196+*                                  CHECKER NOT IN SYSTEM.
000028                             2197+INERRORB EQU   40 RELATIVE ERROR 11 - NONUM SPECIFIED
                                   2198+*                                  DATA SET MUST BE NUMBERED.
00002C                             2199+INERRORC EQU   44 RELATIVE ERROR 12 - INVALID PL/I
                                   2200+*                                  SOURCE MARGINS.
000030                             2201+INERRORD EQU   48 RELATIVE ERROR 13 - NUM OPERAND
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2202+*                                  INCORRECT FOR ASM DATA SET
                                   2203+*                                  TYPE.
000034                             2204+INERRORE EQU   52 RELATIVE ERROR 14 - ASIS SPECIFIED,
                                   2205+*                                  CAPS REQUIRED.
000038                             2206+INERRORF EQU   56 RELATIVE ERROR 15 - UNALLOCATION
                                   2207+*                                  ERROR OR DDNAME NOT FOUND.
00003C                             2208+INERRORG EQU   60 RELATIVE ERROR 16 - LINE OPERAND
                                   2209+*                                  SPECIFIED FOR OLD DATA SET.
000040                             2210+INERRORH EQU   64 RELATIVE ERROR 17 - BLOCK OPERAND
                                   2211+*                                  SPECIFIED FOR OLD DATA SET.
000044                             2212+INERRORI EQU   68 RELATIVE ERROR 18 - DATA SET
                                   2213+*                                  FOUND, NEW SPECIFIED.
000048                             2214+INERRORJ EQU   72 RELATIVE ERROR 19 - OLD DATA SET
                                   2215+*                                  HAS LRECL OTHER THAN 80.
00004C                             2216+INERRORK EQU   76 RELATIVE ERROR 20 - IKJDAIR RETURN
                                   2217+*                                  CODE NOT ZERO.
000050                             2218+INERRORL EQU   80 RELATIVE ERROR 21 - DATA SET NOT
                                   2219+*                                  USEABLE.
000054                             2220+INERRORM EQU   84 RELATIVE ERROR 22 - TERMINATE EDIT
                                   2221+*                                  WITH TOO MANY DATA SETS
                                   2222+*                                  ALLOCATED MESSAGE.
000058                             2223+INERRORN EQU   88 RELATIVE ERROR 23 - TERMINATE EDIT
                                   2224+*                                  WITH REQUIRED VOLUME NOT
                                   2225+*                                  MOUNTED MESSAGE.
00005C                             2226+INERRORO EQU   92 RELATIVE ERROR 24 - TERMINATE EDIT
                                   2227+*                                  WITH DATA SET NOT ON VOLUME
                                   2228+*                                  MESSAGE.
000060                             2229+INERRORP EQU   96 RELATIVE ERROR 25 - TERMINATE EDIT
                                   2230+*                                  WITH ALLOCATION FAILED MESSAGE
000064                             2231+INERRORQ EQU   100 RELATIVE ERROR 26 - TERMINATE EDIT
                                   2232+*                                  WITH DEVICE NOT DIRECT ACCESS
                                   2233+*                                  MESSAGE.
000068                             2234+INERRORR EQU   104 RELATIVE ERROR 27 - TERMINATE EDIT
                                   2235+*                                  WITH INVALID DSNAME MESSAGE.
00006C                             2236+INERRORS EQU   108 RELATIVE ERROR 28 - TERMINATE EDIT
                                   2237+*                                  WITH DATA SET WILL CREATE
                                   2238+*                                  INVALID CATALOG STRUCTURE
                                   2239+*                                  MESSAGE.
000070                             2240+INERRORT EQU   112 RELATIVE ERROR 29 - TERMINATE EDIT
                                   2241+*                                  WITH DSNAME NOT QUALIFIED
                                   2242+*                                  MESSAGE.
000074                             2243+INERRORU EQU   116 RELATIVE ERROR 30 - TERMINATE EDIT
                                   2244+*                                  WITH DSNAME NOT RESOLVED
                                   2245+*                                  MESSAGE.
000078                             2246+INERRORV EQU   120 RELATIVE ERROR 31 - GOFORT(FREE)
                                   2247+*                                  SPECIFIED BUT RECORD FORMAT IS
                                   2248+*                                  FIXED.
00007C                             2249+INERRORW EQU   124 RELATIVE ERROR 32 - TERMINATE EDIT
                                   2250+*                                  WITH INVALID UNIT OR UNIT NOT
                                   2251+*                                  AVAILABLE MESSAGE.
000080                             2252+INERRORX EQU   128 RELATIVE ERROR 33 - TERMINATE EDIT A45713
                                   2253+*                                  WITH MISSING DATA SET TYPE.   A45713
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000CC8                             2255+INDR18   DS    0F PARAMETER BLOCK FOR ENTRY CODE 18.
000CC8 0018                        2256+         DC    XL2'18' IKJDAIR ENTRY CODE X'18'
000CCA 000000000000                2257+         DC    3XL2'0' FLAGS, DARC, CTRC.
000CD0 00000000                    2258+         DC    A(0) ADDRESS OF DSNAME.
000CD4 4040404040404040            2259+         DC    2CL8' ' DDNAME, MEMBER NAME.
000CE4 0000                        2260+         DC    XL2'0' SYSOUT CLASS SPECIFICATION.
000CE6 08                          2261+         DC    X'08' INDICATE DISP = KEEP.
000CE7 00                          2262+         DC    X'0' CONTROL FLAGS.
000CE8 4040404040404040            2263+         DC    CL8' ' JOBNAME.
000028                             2264+INDR18L  EQU   *-INDR18 LENGTH OF PARAMETER BLOCK.





000CF0                             2266+INDAIR8O DS    0F
000CF0 0008                        2267+         DC    XL2'8' IKJDAIR ENTRY CODE 8.
000CF2 0000000000000000            2268+         DC    10X'0' INITIALIZE FLAGS, DARC, CTRC AND
                                   2269+*                                  DSNAME PT FIELDS TO ZEROES.
000CFC 4040404040404040            2270+         DC    3CL8' ' INITIALIZE DDNAME, UNITNAME AND
                                   2271+*                                  SERIAL NO. TO BLANKS.
000D14 0000000000000000            2272+         DC    4F'0' INITIALIZE BLKSIZE, PRIMARY,
                                   2273+*                                  SECONDARY, AND DIRECTORY
                                   2274+*                                  QUANTITY TO ZEROES.
000D24 4040404040404040            2275+         DC    2CL8' ' INITIALIZE MEMBERNAME AND PASSWORD
                                   2276+*                                  FIELDS TO BLANKS.
000D34 00                          2277+         DC    X'0' INITIALIZE STATUS TO OLD.          A50467
000D35 08                          2278+         DC    AL1(DA08KEEP) INITIALIZE NORMAL DISPOSITION      A50467
                                   2279+*                                  TO KEEP.                      A50467
000D36 08                          2280+         DC    AL1(DA08KEP) INITIALIZE CONDITIONAL DISPOSITION A42959
                                   2281+*                                  TO KEEP.                      A42959
000D37 0000000000                  2282+         DC    5X'0' INITIALIZE FLAGS AND DSORG FIELDS  A42959
                                   2283+*                                  SET BY IKJDAIR TO ZERO.       A42959
00004C                             2284+INDR8OLL EQU   *-INDAIR8O LENGTH OF PARAMETER LIST FOR ENTRY
                                   2285+*                                  CODE 8.





000D3C                             2287+ININS001 EQU   *
000D3C 00000D48                    2288+ININS002 DC    A(ININS003) POINTER TO SECOND INSERTION RECORD
000D40 0008                        2289+         DC    AL2(MXX0095-*) LENGTH OF MESSAGE
000D42 000A                        2290+         DC    AL2(M3131IN1) POINTER TO INSERTION POINT
000D44 C2D3C4D3                    2291+         DC    C'BLDL'
000D48                             2292+MXX0095  EQU   *
000D48 00000000                    2293+ININS003 DC    A(0) POINTER TO SECOND INSERTION RECORD
000D4C 0005                        2294+         DC    AL2(MXX0096-*) LENGTH OF MESSAGE
000D4E 0016                        2295+         DC    AL2(M3131IN2) POINTER TO INSERTION POINT
000D50 F8                          2296+         DC    C'8'
000D51                             2297+MXX0096  EQU   *
000D51 000000
000D54 00000D64                    2298+ININS004 DC    A(ININS005) POINTER TO SECOND INSERTION RECORD
000D58 000C                        2299+         DC    AL2(MXX0097-*) LENGTH OF MESSAGE
000D5A 000A                        2300+         DC    AL2(M3131IN1) POINTER TO INSERTION POINT
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000D5C C9D2D1C5C2C5D7E2            2301+         DC    C'IKJEBEPS'
000D64                             2302+MXX0097  EQU   *
000D64 00000000                    2303+ININS005 DC    A(0) POINTER TO SECOND INSERTION RECORD
000D68 0005                        2304+         DC    AL2(MXX0098-*) LENGTH OF MESSAGE
000D6A 0016                        2305+         DC    AL2(M3131IN2) POINTER TO INSERTION POINT
000D6C F4                          2306+         DC    C'4'
000D6D                             2307+MXX0098  EQU   *





000D6D                             2309+IKJEBIN0 EQU   *
000D6D D7D3C94040404040            2310+         DC    CL8'PLI' - EDIT DATA SET TYPE.               A45714
000D75 C3D6C2D6D3404040            2311+         DC    CL8'COBOL' - EDIT DATA SET TYPE.               A45714
000D7D C1E2D44040404040            2312+         DC    CL8'ASM' - EDIT DATA SET TYPE.               A45714
000D85 E3C5E7E340404040            2313+         DC    CL8'TEXT' - EDIT DATA SET TYPE.               A45714
000D8D C4C1E3C140404040            2314+         DC    CL8'DATA' - EDIT DATA SET TYPE.               A45714
000D95 C3D3C9E2E3404040            2315+         DC    CL8'CLIST' - EDIT DATA SET TYPE.               A45714
000D9D C3D5E3D340404040            2316+         DC    CL8'CNTL' - EDIT DATA SET TYPE.               A45714
000DA5 C2C1E2C9C3404040            2317+         DC    CL8'BASIC' - EDIT DATA SET TYPE.               A45714
000DAD C9D7D3C940404040            2318+         DC    CL8'IPLI' - EDIT DATA SET TYPE.               A45714
000DB5 C7D6C6D6D9E34040            2319+         DC    CL8'GOFORT' - EDIT DATA SET TYPE.               A45714
000DBD C6D6D9E3C5404040            2320+         DC    CL8'FORTE' - EDIT DATA SET TYPE.               A45714
000DC5 C6D6D9E3C7404040            2321+         DC    CL8'FORTG' - EDIT DATA SET TYPE.               A45714
000DCD C6D6D9E3C7C94040            2322+         DC    CL8'FORTGI' - EDIT DATA SET TYPE.               A45714
000DD5 C6D6D9E3C8404040            2323+         DC    CL8'FORTH' - EDIT DATA SET TYPE.               A45714
000DDD D7D3C9C640404040            2324+         DC    CL8'PLIF' - EDIT DATA SET TYPE.               A45714
000008                             2325+INDSTELN EQU   8 LENGTH OF TABLE ENTRY.
00000F                             2326+INNODSTY EQU   (*-IKJEBIN0)/INDSTELN NUMBER OF ENTRIES IN DATA
                                   2327+*                                  SET TYPE TABLE.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000DE5 000000
000DE8 00000DF0                    2330+INPTPCL  DC    A(IKJEBIN1) ADDRESS OF IKJPARSE PCL FOR THE
                                   2331+*                                  EDIT COMMAND.
000DF0                             2332+IKJEBIN1 CSECT  ,                       ENTER PCL CSECT
000DF0 0255                        2333+         DC    AL2(IKJ$0099-IKJEBIN1) LENGTH OF CSECT
000DF2 0068                        2334+         DC    AL2(IKJ@0099) LENGTH OF DSECT
000DF4 001B                        2335+         DC    AL2(IKJ@0100) OFFSET TO FIRST KEYWORD OR END
000DF0                             2336+IKJEBIN1 CSECT  ,                       RESUME USERS CSECT
000000                             2337+INECMNDD DSECT
000000                             2338+         DS    2A FOR STORAGE CHAINS
000000                             2339+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2340+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000DF6                             2341+POST0101 EQU   *
000DF6 3000                        2342+         DC    BL2'0011000000000000' S21105
000DF8 0015                        2343+         DC    AL2(PEND0101-POST0101) LENGTH OF PCE
000DFA 0008                        2344+         DC    AL2(INDSN-INECMNDD) OFFSET TO PDE
000DFC 07                          2345+         DC    AL1(7) TYPE OF POSITIONAL
000DFD 0CC4C1E3C140E2C5            2346+         DC    AL1(IKJ@0101-*-2),C'DATA SET NAME' PROMPT DATA
000E0B                             2347+IKJ@0101 EQU   *
000E0B                             2348+PEND0101 EQU   *
000000                             2349+INECMNDD DSECT
000008                             2350+INDSN    DS    6A ALLOCATE PDE SPACE
000000                             2351+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
                                   2352+*                             DATA SET STATUS.
000DF0                             2353+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
00001B                             2354+IKJ@0100 EQU   *-IKJEBIN1 OFFSET TO FIRST KEYWORD
000E0B                             2355+KEYW0102 EQU   *
000E0B 4000                        2356+         DC    BL2'0100000000000000' FLAGS
000E0D 0006                        2357+         DC    AL2(KEND0102-KEYW0102) LENGTH OF PCE
000E0F 0020                        2358+         DC    AL2(INSTAT-INECMNDD) OFFSET TO LABEL
000E11                             2359+KEND0102 EQU   *
000000                             2360+INECMNDD DSECT
000020                             2361+INSTAT   DS    AL2 ALLOCATE PDE SPACE
000000                             2362+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2363+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E11                             2364+NAME0103 EQU   *
000E11 6000                        2365+         DC    BL2'0110000000000000' FLAGS
000E13 0008                        2366+         DC    AL2(NEND0103-NAME0103) LENGTH OF PCE
000E15 02D6D3C4                    2367+         DC    AL1(IKJ@0103-*-2),C'OLD' NAME VALID FOR KEYWORD
000E19                             2368+IKJ@0103 EQU   *
000E19                             2369+NEND0103 EQU   *
000000                             2370+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2371+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E19                             2372+NAME0104 EQU   *
000E19 6000                        2373+         DC    BL2'0110000000000000' FLAGS
000E1B 0008                        2374+         DC    AL2(NEND0104-NAME0104) LENGTH OF PCE
000E1D 02D5C5E6                    2375+         DC    AL1(IKJ@0104-*-2),C'NEW' NAME VALID FOR KEYWORD
000E21                             2376+IKJ@0104 EQU   *
000E21                             2377+NEND0104 EQU   *
000000                             2378+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
                                   2379+*                             DEFINE DATA SET TYPE.
000DF0                             2380+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E21                             2381+KEYW0105 EQU   *
000E21 4000                        2382+         DC    BL2'0100000000000000' FLAGS
000E23 0006                        2383+         DC    AL2(KEND0105-KEYW0105) LENGTH OF PCE
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000E25 0022                        2384+         DC    AL2(INDSTYPE-INECMNDD) OFFSET TO LABEL
000E27                             2385+KEND0105 EQU   *
000000                             2386+INECMNDD DSECT
000022                             2387+INDSTYPE DS    AL2 ALLOCATE PDE SPACE
000000                             2388+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2389+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E27                             2390+NAME0106 EQU   *
000E27 6400                        2391+         DC    BL2'0110010000000000' FLAGS
000E29 000A                        2392+         DC    AL2(NEND0106-NAME0106) LENGTH OF PCE
000E2B 02D7D3C9                    2393+         DC    AL1(IKJ@0106-*-2),C'PLI' NAME VALID FOR KEYWORD
000E2F                             2394+IKJ@0106 EQU   *
000E2F 01B7                        2395+         DC    AL2(INPL1-IKJEBIN1) OFFSET TO SUBFIELD
000E31                             2396+NEND0106 EQU   *
000000                             2397+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2398+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E31                             2399+NAME0107 EQU   *
000E31 6000                        2400+         DC    BL2'0110000000000000' FLAGS
000E33 000A                        2401+         DC    AL2(NEND0107-NAME0107) LENGTH OF PCE
000E35 04C3D6C2D6D3                2402+         DC    AL1(IKJ@0107-*-2),C'COBOL' NAME VALID FOR KEYWORD
000E3B                             2403+IKJ@0107 EQU   *
000E3B                             2404+NEND0107 EQU   *
000000                             2405+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2406+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E3B                             2407+NAME0108 EQU   *
000E3B 6000                        2408+         DC    BL2'0110000000000000' FLAGS
000E3D 0008                        2409+         DC    AL2(NEND0108-NAME0108) LENGTH OF PCE
000E3F 02C1E2D4                    2410+         DC    AL1(IKJ@0108-*-2),C'ASM' NAME VALID FOR KEYWORD
000E43                             2411+IKJ@0108 EQU   *
000E43                             2412+NEND0108 EQU   *
000000                             2413+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2414+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E43                             2415+NAME0109 EQU   *
000E43 6000                        2416+         DC    BL2'0110000000000000' FLAGS
000E45 0009                        2417+         DC    AL2(NEND0109-NAME0109) LENGTH OF PCE
000E47 03E3C5E7E3                  2418+         DC    AL1(IKJ@0109-*-2),C'TEXT' NAME VALID FOR KEYWORD
000E4C                             2419+IKJ@0109 EQU   *
000E4C                             2420+NEND0109 EQU   *
000000                             2421+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2422+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E4C                             2423+NAME0110 EQU   *
000E4C 6000                        2424+         DC    BL2'0110000000000000' FLAGS
000E4E 0009                        2425+         DC    AL2(NEND0110-NAME0110) LENGTH OF PCE
000E50 03C4C1E3C1                  2426+         DC    AL1(IKJ@0110-*-2),C'DATA' NAME VALID FOR KEYWORD
000E55                             2427+IKJ@0110 EQU   *
000E55                             2428+NEND0110 EQU   *
000000                             2429+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2430+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E55                             2431+NAME0111 EQU   *
000E55 6000                        2432+         DC    BL2'0110000000000000' FLAGS
000E57 000A                        2433+         DC    AL2(NEND0111-NAME0111) LENGTH OF PCE
000E59 04C3D3C9E2E3                2434+         DC    AL1(IKJ@0111-*-2),C'CLIST' NAME VALID FOR KEYWORD
000E5F                             2435+IKJ@0111 EQU   *
000E5F                             2436+NEND0111 EQU   *
000000                             2437+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2438+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000E5F                             2439+NAME0112 EQU   *
000E5F 6000                        2440+         DC    BL2'0110000000000000' FLAGS
000E61 0009                        2441+         DC    AL2(NEND0112-NAME0112) LENGTH OF PCE
000E63 03C3D5E3D3                  2442+         DC    AL1(IKJ@0112-*-2),C'CNTL' NAME VALID FOR KEYWORD
000E68                             2443+IKJ@0112 EQU   *
000E68                             2444+NEND0112 EQU   *
000000                             2445+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2446+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E68                             2447+NAME0113 EQU   *
000E68 6000                        2448+         DC    BL2'0110000000000000' FLAGS
000E6A 000A                        2449+         DC    AL2(NEND0113-NAME0113) LENGTH OF PCE
000E6C 04C2C1E2C9C3                2450+         DC    AL1(IKJ@0113-*-2),C'BASIC' NAME VALID FOR KEYWORD
000E72                             2451+IKJ@0113 EQU   *
000E72                             2452+NEND0113 EQU   *
000000                             2453+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2454+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E72                             2455+NAME0114 EQU   *
000E72 6400                        2456+         DC    BL2'0110010000000000' FLAGS
000E74 000B                        2457+         DC    AL2(NEND0114-NAME0114) LENGTH OF PCE
000E76 03C9D7D3C9                  2458+         DC    AL1(IKJ@0114-*-2),C'IPLI' NAME VALID FOR KEYWORD
000E7B                             2459+IKJ@0114 EQU   *
000E7B 020E                        2460+         DC    AL2(INIPLICS-IKJEBIN1) OFFSET TO SUBFIELD
000E7D                             2461+NEND0114 EQU   *
000000                             2462+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2463+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E7D                             2464+NAME0115 EQU   *
000E7D 6400                        2465+         DC    BL2'0110010000000000' FLAGS
000E7F 000D                        2466+         DC    AL2(NEND0115-NAME0115) LENGTH OF PCE
000E81 05C7D6C6D6D9E3              2467+         DC    AL1(IKJ@0115-*-2),C'GOFORT' NAME VALID FOR KEYWORD
000E88                             2468+IKJ@0115 EQU   *
000E88 0234                        2469+         DC    AL2(INTSFTN-IKJEBIN1) OFFSET TO SUBFIELD
000E8A                             2470+NEND0115 EQU   *
000000                             2471+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2472+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E8A                             2473+NAME0116 EQU   *
000E8A 6000                        2474+         DC    BL2'0110000000000000' FLAGS
000E8C 000A                        2475+         DC    AL2(NEND0116-NAME0116) LENGTH OF PCE
000E8E 04C6D6D9E3C5                2476+         DC    AL1(IKJ@0116-*-2),C'FORTE' NAME VALID FOR KEYWORD
000E94                             2477+IKJ@0116 EQU   *
000E94                             2478+NEND0116 EQU   *
000000                             2479+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2480+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E94                             2481+NAME0117 EQU   *
000E94 6000                        2482+         DC    BL2'0110000000000000' FLAGS
000E96 000A                        2483+         DC    AL2(NEND0117-NAME0117) LENGTH OF PCE
000E98 04C6D6D9E3C7                2484+         DC    AL1(IKJ@0117-*-2),C'FORTG' NAME VALID FOR KEYWORD
000E9E                             2485+IKJ@0117 EQU   *
000E9E                             2486+NEND0117 EQU   *
000000                             2487+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2488+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000E9E                             2489+NAME0118 EQU   *
000E9E 6000                        2490+         DC    BL2'0110000000000000' FLAGS
000EA0 000B                        2491+         DC    AL2(NEND0118-NAME0118) LENGTH OF PCE
000EA2 05C6D6D9E3C7C9              2492+         DC    AL1(IKJ@0118-*-2),C'FORTGI' NAME VALID FOR KEYWORD
000EA9                             2493+IKJ@0118 EQU   *
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000EA9                             2494+NEND0118 EQU   *
000000                             2495+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2496+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000EA9                             2497+NAME0119 EQU   *
000EA9 6000                        2498+         DC    BL2'0110000000000000' FLAGS
000EAB 000A                        2499+         DC    AL2(NEND0119-NAME0119) LENGTH OF PCE
000EAD 04C6D6D9E3C8                2500+         DC    AL1(IKJ@0119-*-2),C'FORTH' NAME VALID FOR KEYWORD
000EB3                             2501+IKJ@0119 EQU   *
000EB3                             2502+NEND0119 EQU   *
000000                             2503+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2504+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000EB3                             2505+NAME0120 EQU   *
000EB3 6400                        2506+         DC    BL2'0110010000000000' FLAGS
000EB5 000B                        2507+         DC    AL2(NEND0120-NAME0120) LENGTH OF PCE
000EB7 03D7D3C9C6                  2508+         DC    AL1(IKJ@0120-*-2),C'PLIF' NAME VALID FOR KEYWORD
000EBC                             2509+IKJ@0120 EQU   *
000EBC 01B7                        2510+         DC    AL2(INPL1-IKJEBIN1) OFFSET TO SUBFIELD
000EBE                             2511+NEND0120 EQU   *
000000                             2512+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2513+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000EBE                             2514+KEYW0121 EQU   *
000EBE 4800                        2515+         DC    BL2'0100100000000000' FLAGS
000EC0 000D                        2516+         DC    AL2(KEND0121-KEYW0121) LENGTH OF PCE
000EC2 0024                        2517+         DC    AL2(INSCN-INECMNDD) OFFSET TO LABEL
000EC4 05D5D6E2C3C1D5              2518+         DC    AL1(IKJ@0121-*-2),C'NOSCAN' DEFAULT
000ECB                             2519+IKJ@0121 EQU   *
000ECB                             2520+KEND0121 EQU   *
000000                             2521+INECMNDD DSECT
000024                             2522+INSCN    DS    AL2 ALLOCATE PDE SPACE
000000                             2523+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2524+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000ECB                             2525+NAME0122 EQU   *
000ECB 6000                        2526+         DC    BL2'0110000000000000' FLAGS
000ECD 000B                        2527+         DC    AL2(NEND0122-NAME0122) LENGTH OF PCE
000ECF 05D5D6E2C3C1D5              2528+         DC    AL1(IKJ@0122-*-2),C'NOSCAN' NAME VALID FOR KEYWORD
000ED6                             2529+IKJ@0122 EQU   *
000ED6                             2530+NEND0122 EQU   *
000000                             2531+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2532+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000ED6                             2533+NAME0123 EQU   *
000ED6 6000                        2534+         DC    BL2'0110000000000000' FLAGS
000ED8 0009                        2535+         DC    AL2(NEND0123-NAME0123) LENGTH OF PCE
000EDA 03E2C3C1D5                  2536+         DC    AL1(IKJ@0123-*-2),C'SCAN' NAME VALID FOR KEYWORD
000EDF                             2537+IKJ@0123 EQU   *
000EDF                             2538+NEND0123 EQU   *
000000                             2539+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
                                   2540+*                             DATA SET FORMAT.
000DF0                             2541+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000EDF                             2542+KEYW0124 EQU   *
000EDF 4000                        2543+         DC    BL2'0100000000000000' FLAGS
000EE1 0006                        2544+         DC    AL2(KEND0124-KEYW0124) LENGTH OF PCE
000EE3 0026                        2545+         DC    AL2(INFMT-INECMNDD) OFFSET TO LABEL
000EE5                             2546+KEND0124 EQU   *
000000                             2547+INECMNDD DSECT
000026                             2548+INFMT    DS    AL2 ALLOCATE PDE SPACE
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             2549+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2550+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000EE5                             2551+NAME0125 EQU   *
000EE5 6000                        2552+         DC    BL2'0110000000000000' FLAGS
000EE7 0009                        2553+         DC    AL2(NEND0125-NAME0125) LENGTH OF PCE
000EE9 03C3C1D7E2                  2554+         DC    AL1(IKJ@0125-*-2),C'CAPS' NAME VALID FOR KEYWORD
000EEE                             2555+IKJ@0125 EQU   *
000EEE                             2556+NEND0125 EQU   *
000000                             2557+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2558+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000EEE                             2559+NAME0126 EQU   *
000EEE 6000                        2560+         DC    BL2'0110000000000000' FLAGS
000EF0 0009                        2561+         DC    AL2(NEND0126-NAME0126) LENGTH OF PCE
000EF2 03C1E2C9E2                  2562+         DC    AL1(IKJ@0126-*-2),C'ASIS' NAME VALID FOR KEYWORD
000EF7                             2563+IKJ@0126 EQU   *
000EF7                             2564+NEND0126 EQU   *
000000                             2565+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2566+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000EF7                             2567+KEYW0127 EQU   *
000EF7 4800                        2568+         DC    BL2'0100100000000000' FLAGS
000EF9 000A                        2569+         DC    AL2(KEND0127-KEYW0127) LENGTH OF PCE
000EFB 0028                        2570+         DC    AL2(INNUM-INECMNDD) OFFSET TO LABEL
000EFD 02D5E4D4                    2571+         DC    AL1(IKJ@0127-*-2),C'NUM' DEFAULT
000F01                             2572+IKJ@0127 EQU   *
000F01                             2573+KEND0127 EQU   *
000000                             2574+INECMNDD DSECT
000028                             2575+INNUM    DS    AL2 ALLOCATE PDE SPACE
000000                             2576+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2577+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000F01                             2578+NAME0128 EQU   *
000F01 6400                        2579+         DC    BL2'0110010000000000' FLAGS
000F03 000A                        2580+         DC    AL2(NEND0128-NAME0128) LENGTH OF PCE
000F05 02D5E4D4                    2581+         DC    AL1(IKJ@0128-*-2),C'NUM' NAME VALID FOR KEYWORD
000F09                             2582+IKJ@0128 EQU   *
000F09 018E                        2583+         DC    AL2(INNUMS-IKJEBIN1) OFFSET TO SUBFIELD
000F0B                             2584+NEND0128 EQU   *
000000                             2585+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2586+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000F0B                             2587+NAME0129 EQU   *
000F0B 6000                        2588+         DC    BL2'0110000000000000' FLAGS
000F0D 000A                        2589+         DC    AL2(NEND0129-NAME0129) LENGTH OF PCE
000F0F 04D5D6D5E4D4                2590+         DC    AL1(IKJ@0129-*-2),C'NONUM' NAME VALID FOR KEYWORD
000F15                             2591+IKJ@0129 EQU   *
000F15                             2592+NEND0129 EQU   *
000000                             2593+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
                                   2594+*                             BLOCK OPERAND.
000DF0                             2595+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000F15                             2596+KEYW0130 EQU   *
000F15 4000                        2597+         DC    BL2'0100000000000000' FLAGS
000F17 0006                        2598+         DC    AL2(KEND0130-KEYW0130) LENGTH OF PCE
000F19 002A                        2599+         DC    AL2(INBLK-INECMNDD) OFFSET TO LABEL
000F1B                             2600+KEND0130 EQU   *
000000                             2601+INECMNDD DSECT
00002A                             2602+INBLK    DS    AL2 ALLOCATE PDE SPACE
000000                             2603+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000DF0                             2604+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000F1B                             2605+NAME0131 EQU   *
000F1B 6400                        2606+         DC    BL2'0110010000000000' FLAGS
000F1D 000C                        2607+         DC    AL2(NEND0131-NAME0131) LENGTH OF PCE
000F1F 04C2D3D6C3D2                2608+         DC    AL1(IKJ@0131-*-2),C'BLOCK' NAME VALID FOR KEYWORD
000F25                             2609+IKJ@0131 EQU   *
000F25 0149                        2610+         DC    AL2(INBLKSZ-IKJEBIN1) OFFSET TO SUBFIELD
000F27                             2611+NEND0131 EQU   *
000000                             2612+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
                                   2613+*                             LINE OPERAND.
000DF0                             2614+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000F27                             2615+KEYW0132 EQU   *
000F27 4000                        2616+         DC    BL2'0100000000000000' FLAGS
000F29 0006                        2617+         DC    AL2(KEND0132-KEYW0132) LENGTH OF PCE
000F2B 002C                        2618+         DC    AL2(INLNE-INECMNDD) OFFSET TO LABEL
000F2D                             2619+KEND0132 EQU   *
000000                             2620+INECMNDD DSECT
00002C                             2621+INLNE    DS    AL2 ALLOCATE PDE SPACE
000000                             2622+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2623+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000F2D                             2624+NAME0133 EQU   *
000F2D 6400                        2625+         DC    BL2'0110010000000000' FLAGS
000F2F 000B                        2626+         DC    AL2(NEND0133-NAME0133) LENGTH OF PCE
000F31 03D3C9D5C5                  2627+         DC    AL1(IKJ@0133-*-2),C'LINE' NAME VALID FOR KEYWORD
000F36                             2628+IKJ@0133 EQU   *
000F36 016C                        2629+         DC    AL2(INLRECL-IKJEBIN1) OFFSET TO SUBFIELD
000F38                             2630+NEND0133 EQU   *
000000                             2631+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
                                   2632+*                             SUBFIELD DESCRIPTION FOR BLOCK.
000DF0                             2633+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000F38 00                          2634+         DC    AL1(0) END OF FIELD
000F39 016B                        2635+INBLKSZ  DC    AL2(IKJ@0134) OFFSET TO FIRST KEYWORD OR END
000000                             2636+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2637+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
                                   2638+* FLAGS -    BIT3=PROMPT,  BIT4=DEFAULT,  BIT5=NOT USED,  BIT6=HELP,
                                   2639+*            BIT7=VALIDCK, BIT8=LIST,     BIT9=ASIS,      BIT10=RANGE
000F3B                             2640+DENT0135 EQU   *
000F3B 9100                        2641+         DC    BL2'1001000100000000' FLAGS
000F3D 0020                        2642+         DC    AL2(DEND0135-DENT0135) LENGTH OF PCE
000F3F 0030                        2643+         DC    AL2(INBLKSZE-INECMNDD) OFFSET TO PDE
                                   2644+* OPTIONS -  BIT0 = ASTERISK,  BIT1 = MAXLNTH,  BIT2 = PTBYPS
000F41 00                          2645+         DC    BL1'00000000' OPTIONS SPECIFIED
000F42 02                          2646+         DC    AL1(2) FIRST CHARACTER RESTRICTION
000F43 02                          2647+         DC    AL1(2) RESTRICTION ON CHAR OTHER THAN FIRST
                                   2648+         DC    AL2(IKJ@0135-*),AL2(18),C'NUMBER' PARAMETER TYPE MESSAGEX
000F44 000A0012D5E4D4C2                +                SEGMENT
000F4E                             2649+IKJ@0135 EQU   *
000F4E 08C2D3D6C3D2E2C9            2650+         DC    AL1(IKJ$0135-*-2),C'BLOCKSIZE' PROMPT DATA
000F58                             2651+IKJ$0135 EQU   *
000F58 001160                      2652+         DC    AL3(IKJEBIN4) VALIDCK ROUTINE ADDRESS
000F5B                             2653+DEND0135 EQU   *
000000                             2654+INECMNDD DSECT
000030                             2655+INBLKSZE DS    2A ALLOCATE PDE SPACE
000000                             2656+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
                                   2657+*                             SUBFIELD DESCRIPTION FOR LINE.
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000DF0                             2658+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
00016B                             2659+IKJ@0134 EQU   *-IKJEBIN1 OFFSET TO END OF FIELD
000F5B 00                          2660+         DC    AL1(0) END OF FIELD
000F5C 018D                        2661+INLRECL  DC    AL2(IKJ@0136) OFFSET TO FIRST KEYWORD OR END
000000                             2662+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2663+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
                                   2664+* FLAGS -    BIT3=PROMPT,  BIT4=DEFAULT,  BIT5=NOT USED,  BIT6=HELP,
                                   2665+*            BIT7=VALIDCK, BIT8=LIST,     BIT9=ASIS,      BIT10=RANGE
000F5E                             2666+DENT0137 EQU   *
000F5E 9100                        2667+         DC    BL2'1001000100000000' FLAGS
000F60 001F                        2668+         DC    AL2(DEND0137-DENT0137) LENGTH OF PCE
000F62 0038                        2669+         DC    AL2(INLNESZ-INECMNDD) OFFSET TO PDE
                                   2670+* OPTIONS -  BIT0 = ASTERISK,  BIT1 = MAXLNTH,  BIT2 = PTBYPS
000F64 00                          2671+         DC    BL1'00000000' OPTIONS SPECIFIED
000F65 02                          2672+         DC    AL1(2) FIRST CHARACTER RESTRICTION
000F66 02                          2673+         DC    AL1(2) RESTRICTION ON CHAR OTHER THAN FIRST
                                   2674+         DC    AL2(IKJ@0137-*),AL2(18),C'NUMBER' PARAMETER TYPE MESSAGEX
000F67 000A0012D5E4D4C2                +                SEGMENT
000F71                             2675+IKJ@0137 EQU   *
000F71 07D3C9D5C5E2C9E9            2676+         DC    AL1(IKJ$0137-*-2),C'LINESIZE' PROMPT DATA
000F7A                             2677+IKJ$0137 EQU   *
000F7A 001160                      2678+         DC    AL3(IKJEBIN4) VALIDCK ROUTINE ADDRESS
000F7D                             2679+DEND0137 EQU   *
000000                             2680+INECMNDD DSECT
000038                             2681+INLNESZ  DS    2A ALLOCATE PDE SPACE
000000                             2682+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
                                   2683+*                             SUBFIELD DESCRIPTION FOR NUM.
000DF0                             2684+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
00018D                             2685+IKJ@0136 EQU   *-IKJEBIN1 OFFSET TO END OF FIELD
000F7D 00                          2686+         DC    AL1(0) END OF FIELD
000F7E 01B6                        2687+INNUMS   DC    AL2(IKJ@0138) OFFSET TO FIRST KEYWORD OR END
000000                             2688+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2689+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
                                   2690+* FLAGS -    BIT3=PROMPT,  BIT4=DEFAULT,  BIT5=NOT USED,  BIT6=HELP,
                                   2691+*            BIT7=VALIDCK, BIT8=LIST,     BIT9=ASIS,      BIT10=RANGE
000F80                             2692+DENT0139 EQU   *
000F80 8000                        2693+         DC    BL2'1000000000000000' FLAGS
000F82 0013                        2694+         DC    AL2(DEND0139-DENT0139) LENGTH OF PCE
000F84 0040                        2695+         DC    AL2(INNOSTP-INECMNDD) OFFSET TO PDE
                                   2696+* OPTIONS -  BIT0 = ASTERISK,  BIT1 = MAXLNTH,  BIT2 = PTBYPS
000F86 00                          2697+         DC    BL1'00000000' OPTIONS SPECIFIED
000F87 02                          2698+         DC    AL1(2) FIRST CHARACTER RESTRICTION
000F88 02                          2699+         DC    AL1(2) RESTRICTION ON CHAR OTHER THAN FIRST
                                   2700+         DC    AL2(IKJ@0139-*),AL2(18),C'NUMBER' PARAMETER TYPE MESSAGEX
000F89 000A0012D5E4D4C2                +                SEGMENT
000F93                             2701+IKJ@0139 EQU   *
000F93                             2702+DEND0139 EQU   *
000000                             2703+INECMNDD DSECT
000040                             2704+INNOSTP  DS    2A ALLOCATE PDE SPACE
000000                             2705+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2706+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
                                   2707+* FLAGS -    BIT3=PROMPT,  BIT4=DEFAULT,  BIT5=NOT USED,  BIT6=HELP,
                                   2708+*            BIT7=VALIDCK, BIT8=LIST,     BIT9=ASIS,      BIT10=RANGE
000F93                             2709+DENT0140 EQU   *
000F93 8000                        2710+         DC    BL2'1000000000000000' FLAGS
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000F95 0013                        2711+         DC    AL2(DEND0140-DENT0140) LENGTH OF PCE
000F97 0048                        2712+         DC    AL2(INNOLEN-INECMNDD) OFFSET TO PDE
                                   2713+* OPTIONS -  BIT0 = ASTERISK,  BIT1 = MAXLNTH,  BIT2 = PTBYPS
000F99 00                          2714+         DC    BL1'00000000' OPTIONS SPECIFIED
000F9A 02                          2715+         DC    AL1(2) FIRST CHARACTER RESTRICTION
000F9B 02                          2716+         DC    AL1(2) RESTRICTION ON CHAR OTHER THAN FIRST
                                   2717+         DC    AL2(IKJ@0140-*),AL2(18),C'NUMBER' PARAMETER TYPE MESSAGEX
000F9C 000A0012D5E4D4C2                +                SEGMENT
000FA6                             2718+IKJ@0140 EQU   *
000FA6                             2719+DEND0140 EQU   *
000000                             2720+INECMNDD DSECT
000048                             2721+INNOLEN  DS    2A ALLOCATE PDE SPACE
000000                             2722+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
                                   2723+*                             SUBFIELD DESCRIPTION FOR PL1.
000DF0                             2724+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
0001B6                             2725+IKJ@0138 EQU   *-IKJEBIN1 OFFSET TO END OF FIELD
000FA6 00                          2726+         DC    AL1(0) END OF FIELD
000FA7 01EA                        2727+INPL1    DC    AL2(IKJ@0141) OFFSET TO FIRST KEYWORD OR END
000000                             2728+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2729+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
                                   2730+* FLAGS -    BIT3=PROMPT,  BIT4=DEFAULT,  BIT5=NOT USED,  BIT6=HELP,
                                   2731+*            BIT7=VALIDCK, BIT8=LIST,     BIT9=ASIS,      BIT10=RANGE
000FA9                             2732+DENT0142 EQU   *
000FA9 8900                        2733+         DC    BL2'1000100100000000' FLAGS
000FAB 0018                        2734+         DC    AL2(DEND0142-DENT0142) LENGTH OF PCE
000FAD 0050                        2735+         DC    AL2(INPL1CL1-INECMNDD) OFFSET TO PDE
                                   2736+* OPTIONS -  BIT0 = ASTERISK,  BIT1 = MAXLNTH,  BIT2 = PTBYPS
000FAF 00                          2737+         DC    BL1'00000000' OPTIONS SPECIFIED
000FB0 02                          2738+         DC    AL1(2) FIRST CHARACTER RESTRICTION
000FB1 02                          2739+         DC    AL1(2) RESTRICTION ON CHAR OTHER THAN FIRST
                                   2740+         DC    AL2(IKJ@0142-*),AL2(18),C'NUMBER' PARAMETER TYPE MESSAGEX
000FB2 000A0012D5E4D4C2                +                SEGMENT
000FBC                             2741+IKJ@0142 EQU   *
000FBC 00F2                        2742+         DC    AL1(IKJ$0142-*-2),C'2' DEFAULT DATA
000FBE                             2743+IKJ$0142 EQU   *
000FBE 001160                      2744+         DC    AL3(IKJEBIN4) VALIDCK ROUTINE ADDRESS
000FC1                             2745+DEND0142 EQU   *
000000                             2746+INECMNDD DSECT
000050                             2747+INPL1CL1 DS    2A ALLOCATE PDE SPACE
000000                             2748+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2749+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
                                   2750+* FLAGS -    BIT3=PROMPT,  BIT4=DEFAULT,  BIT5=NOT USED,  BIT6=HELP,
                                   2751+*            BIT7=VALIDCK, BIT8=LIST,     BIT9=ASIS,      BIT10=RANGE
000FC1                             2752+DENT0143 EQU   *
000FC1 8900                        2753+         DC    BL2'1000100100000000' FLAGS
000FC3 0019                        2754+         DC    AL2(DEND0143-DENT0143) LENGTH OF PCE
000FC5 0058                        2755+         DC    AL2(INPL1CL2-INECMNDD) OFFSET TO PDE
                                   2756+* OPTIONS -  BIT0 = ASTERISK,  BIT1 = MAXLNTH,  BIT2 = PTBYPS
000FC7 00                          2757+         DC    BL1'00000000' OPTIONS SPECIFIED
000FC8 02                          2758+         DC    AL1(2) FIRST CHARACTER RESTRICTION
000FC9 02                          2759+         DC    AL1(2) RESTRICTION ON CHAR OTHER THAN FIRST
                                   2760+         DC    AL2(IKJ@0143-*),AL2(18),C'NUMBER' PARAMETER TYPE MESSAGEX
000FCA 000A0012D5E4D4C2                +                SEGMENT
000FD4                             2761+IKJ@0143 EQU   *
000FD4 01F7F2                      2762+         DC    AL1(IKJ$0143-*-2),C'72' DEFAULT DATA
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000FD7                             2763+IKJ$0143 EQU   *
000FD7 001160                      2764+         DC    AL3(IKJEBIN4) VALIDCK ROUTINE ADDRESS
000FDA                             2765+DEND0143 EQU   *
000000                             2766+INECMNDD DSECT
000058                             2767+INPL1CL2 DS    2A ALLOCATE PDE SPACE
000000                             2768+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2769+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
0001EA                             2770+IKJ@0141 EQU   *-IKJEBIN1 OFFSET TO FIRST KEYWORD
000FDA                             2771+KEYW0144 EQU   *
000FDA 4800                        2772+         DC    BL2'0100100000000000' FLAGS
000FDC 000D                        2773+         DC    AL2(KEND0144-KEYW0144) LENGTH OF PCE
000FDE 0060                        2774+         DC    AL2(INPL1TYP-INECMNDD) OFFSET TO LABEL
000FE0 05C3C8C1D9F6F0              2775+         DC    AL1(IKJ@0144-*-2),C'CHAR60' DEFAULT
000FE7                             2776+IKJ@0144 EQU   *
000FE7                             2777+KEND0144 EQU   *
000000                             2778+INECMNDD DSECT
000060                             2779+INPL1TYP DS    AL2 ALLOCATE PDE SPACE
000000                             2780+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2781+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000FE7                             2782+NAME0145 EQU   *
000FE7 6000                        2783+         DC    BL2'0110000000000000' FLAGS
000FE9 000B                        2784+         DC    AL2(NEND0145-NAME0145) LENGTH OF PCE
000FEB 05C3C8C1D9F6F0              2785+         DC    AL1(IKJ@0145-*-2),C'CHAR60' NAME VALID FOR KEYWORD
000FF2                             2786+IKJ@0145 EQU   *
000FF2                             2787+NEND0145 EQU   *
000000                             2788+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2789+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000FF2                             2790+NAME0146 EQU   *
000FF2 6000                        2791+         DC    BL2'0110000000000000' FLAGS
000FF4 000B                        2792+         DC    AL2(NEND0146-NAME0146) LENGTH OF PCE
000FF6 05C3C8C1D9F4F8              2793+         DC    AL1(IKJ@0146-*-2),C'CHAR48' NAME VALID FOR KEYWORD
000FFD                             2794+IKJ@0146 EQU   *
000FFD                             2795+NEND0146 EQU   *
000000                             2796+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2797+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000FFD 00                          2798+         DC    AL1(0) END OF FIELD
000FFE 0210                        2799+INIPLICS DC    AL2(IKJ@0147) OFFSET TO FIRST KEYWORD OR END
000000                             2800+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2801+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000210                             2802+IKJ@0147 EQU   *-IKJEBIN1 OFFSET TO FIRST KEYWORD
001000                             2803+KEYW0148 EQU   *
001000 4800                        2804+         DC    BL2'0100100000000000' FLAGS
001002 000D                        2805+         DC    AL2(KEND0148-KEYW0148) LENGTH OF PCE
001004 0062                        2806+         DC    AL2(INIPLICH-INECMNDD) OFFSET TO LABEL
001006 05C3C8C1D9F6F0              2807+         DC    AL1(IKJ@0148-*-2),C'CHAR60' DEFAULT
00100D                             2808+IKJ@0148 EQU   *
00100D                             2809+KEND0148 EQU   *
000000                             2810+INECMNDD DSECT
000062                             2811+INIPLICH DS    AL2 ALLOCATE PDE SPACE
000000                             2812+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2813+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
00100D                             2814+NAME0149 EQU   *
00100D 6000                        2815+         DC    BL2'0110000000000000' FLAGS
00100F 000B                        2816+         DC    AL2(NEND0149-NAME0149) LENGTH OF PCE
001011 05C3C8C1D9F6F0              2817+         DC    AL1(IKJ@0149-*-2),C'CHAR60' NAME VALID FOR KEYWORD
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001018                             2818+IKJ@0149 EQU   *
001018                             2819+NEND0149 EQU   *
000000                             2820+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2821+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
001018                             2822+NAME0150 EQU   *
001018 6000                        2823+         DC    BL2'0110000000000000' FLAGS
00101A 000B                        2824+         DC    AL2(NEND0150-NAME0150) LENGTH OF PCE
00101C 05C3C8C1D9F4F8              2825+         DC    AL1(IKJ@0150-*-2),C'CHAR48' NAME VALID FOR KEYWORD
001023                             2826+IKJ@0150 EQU   *
001023                             2827+NEND0150 EQU   *
000000                             2828+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
                                   2829+*                             SUBFIELD DESCRIPTION FOR GOFORT.
000DF0                             2830+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
001023 00                          2831+         DC    AL1(0) END OF FIELD
001024 0236                        2832+INTSFTN  DC    AL2(IKJ@0151) OFFSET TO FIRST KEYWORD OR END
000000                             2833+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2834+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
000236                             2835+IKJ@0151 EQU   *-IKJEBIN1 OFFSET TO FIRST KEYWORD
001026                             2836+KEYW0152 EQU   *
001026 4800                        2837+         DC    BL2'0100100000000000' FLAGS
001028 000B                        2838+         DC    AL2(KEND0152-KEYW0152) LENGTH OF PCE
00102A 0064                        2839+         DC    AL2(INTSFTFM-INECMNDD) OFFSET TO LABEL
00102C 03C6D9C5C5                  2840+         DC    AL1(IKJ@0152-*-2),C'FREE' DEFAULT
001031                             2841+IKJ@0152 EQU   *
001031                             2842+KEND0152 EQU   *
000000                             2843+INECMNDD DSECT
000064                             2844+INTSFTFM DS    AL2 ALLOCATE PDE SPACE
000000                             2845+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2846+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
001031                             2847+NAME0153 EQU   *
001031 6000                        2848+         DC    BL2'0110000000000000' FLAGS
001033 0009                        2849+         DC    AL2(NEND0153-NAME0153) LENGTH OF PCE
001035 03C6D9C5C5                  2850+         DC    AL1(IKJ@0153-*-2),C'FREE' NAME VALID FOR KEYWORD
00103A                             2851+IKJ@0153 EQU   *
00103A                             2852+NEND0153 EQU   *
000000                             2853+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2854+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
00103A                             2855+NAME0154 EQU   *
00103A 6000                        2856+         DC    BL2'0110000000000000' FLAGS
00103C 000A                        2857+         DC    AL2(NEND0154-NAME0154) LENGTH OF PCE
00103E 04C6C9E7C5C4                2858+         DC    AL1(IKJ@0154-*-2),C'FIXED' NAME VALID FOR KEYWORD
001044                             2859+IKJ@0154 EQU   *
001044                             2860+NEND0154 EQU   *
000000                             2861+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
000DF0                             2862+IKJEBIN1 CSECT  ,                       RESUME PCL CSECT
001044 00                          2863+         DC    AL1(0) END OF FIELD
000000                             2864+INECMNDD DSECT
000068                             2865+         DS    0D ALIGN TO DOUBLEWORD FOR STG. ALLOCATOR
000068                             2866+IKJ@0099 EQU   *-INECMNDD LENGTH OF BASIC PDL
000DF0                             2867+IKJEBIN1 CSECT
001045                             2868+IKJ$0099 EQU   *
000000                             2869+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
BEIN   IKJEBEIN - INITIALIZATION MODULE - EDIT CP TSO/360                                                      PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78
BEIN   IKJEBIN2 - PCL FOR NEW/OLD PROMPT                                                                       PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000DEC 00001048                    2872+INDISPDL DC    A(IKJEBIN2) ADDRESS OF IKJPARS PCL.


001048                             2874+IKJEBIN2 CSECT  ,                       ENTER PCL CSECT
001048 002A                        2875+         DC    AL2(IKJ$0156-IKJEBIN2) LENGTH OF CSECT
00104A 0010                        2876+         DC    AL2(IKJ@0156) LENGTH OF DSECT
00104C 0029                        2877+         DC    AL2(IKJ@0157) OFFSET TO FIRST KEYWORD OR END
001048                             2878+IKJEBIN2 CSECT  ,                       RESUME USERS CSECT
000000                             2879+INDISPD  DSECT
000000                             2880+         DS    2A FOR STORAGE CHAINS
000000                             2881+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
001048                             2882+IKJEBIN2 CSECT  ,                       RESUME PCL CSECT
                                   2883+* FLAGS -    BIT3=PROMPT,  BIT4=DEFAULT,  BIT5=NOT USED,  BIT6=HELP,
                                   2884+*            BIT7=VALIDCK, BIT8=LIST,     BIT9=ASIS,      BIT10=RANGE
00104E                             2885+DENT0158 EQU   *
00104E 9000                        2886+         DC    BL2'1001000000000000' FLAGS
001050 0023                        2887+         DC    AL2(DEND0158-DENT0158) LENGTH OF PCE
001052 0008                        2888+         DC    AL2(INDISPX-INDISPD) OFFSET TO PDE
                                   2889+* OPTIONS -  BIT0 = ASTERISK,  BIT1 = MAXLNTH,  BIT2 = PTBYPS
001054 40                          2890+         DC    BL1'01000000' OPTIONS SPECIFIED
001055 01                          2891+         DC    AL1(1) FIRST CHARACTER RESTRICTION
001056 01                          2892+         DC    AL1(1) RESTRICTION ON CHAR OTHER THAN FIRST
                                   2893+         DC    AL2(IKJ@0158-*),AL2(18),C'NEW OR OLD' PARAMETER TYPE MESX
001057 000E0012D5C5E640                +               SAGE SEGMENT
001065                             2894+IKJ@0158 EQU   *
001065 03                          2895+         DC    AL1(3) MAXIMUM LENGTH OF STRING
001066 09D5C5E640D6D940            2896+         DC    AL1(IKJ$0158-*-2),C'NEW OR OLD' PROMPT DATA
001071                             2897+IKJ$0158 EQU   *
001071                             2898+DEND0158 EQU   *
000000                             2899+INDISPD  DSECT
000008                             2900+INDISPX  DS    2A ALLOCATE PDE SPACE
000000                             2901+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
001048                             2902+IKJEBIN2 CSECT  ,                       RESUME PCL CSECT
000029                             2903+IKJ@0157 EQU   *-IKJEBIN2 OFFSET TO END OF FIELD
001071 00                          2904+         DC    AL1(0) END OF FIELD
000000                             2905+INDISPD  DSECT
000010                             2906+         DS    0D ALIGN TO DOUBLEWORD FOR STG. ALLOCATOR
000010                             2907+IKJ@0156 EQU   *-INDISPD LENGTH OF BASIC PDL
001048                             2908+IKJEBIN2 CSECT
001072                             2909+IKJ$0156 EQU   *
000000                             2910+IKJEBEIN CSECT  ,                       RESUME USERS CSECT
BEIN   IKJEBIN2 - PCL FOR NEW/OLD PROMPT                                                                       PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2913+***********************************************************************
                                   2914+*                                                                     *
                                   2915+* STATUS -- VERSION NO. 01, OS/360 RELEASE NO. 20                     *
                                   2916+*                                                                     *
                                   2917+* FUNCTION -- THIS ROUTINE IS CALLED BY ALL CSECTS OF EDIT            *
                                   2918+*    INITIALIZATION THAT ISSUE ERROR MESSAGES.  IT SUPPLIES A WORK    *
                                   2919+*    AREA FOR IKJEBEIA (INITIALIZATION MESSAGE FORMATTING MODULE)     *
                                   2920+*    AND INVOKES IT VIA LINK MACRO.  UPON RETURN, THE PUTLINE CODE    *
                                   2921+*    RETURNED IS TESTED, AND THE COMMAND SYSTEM ERROR DIAGNOSTIC      *
                                   2922+*    MESSAGE ISSUED IF AN ERROR CONDITION HAS OCCURRED.               *
                                   2923+*                                                                     *
                                   2924+* ENTRY POINTS --                                                     *
                                   2925+*         IKJEBIN3 - VIA CALL MACRO FROM ANY EDIT INITIALIZATION      *
                                   2926+*                    CSECT THAT ISSUES INFORMATIONAL MESSAGES.        *
                                   2927+*                                                                     *
                                   2928+* INPUT --                                                            *
                                   2929+*    REGISTER ONE (1) CONTAINS A POINTER TO AN INCOMPLETE PARAMETER   *
                                   2930+*    LIST FOR IKJEBEIA.  IKJEBIN3 COMPLETES THE PARAMETER LIST BY     *
                                   2931+*    INITIALIZING THE SIXTH WORD TO THE ADDRESS OF A WORK AREA FOR THE*
                                   2932+*    USE OF IKJEBEIA.                                                 *
                                   2933+*                                                                     *
                                   2934+* OUTPUT --                                                           *
                                   2935+*    REGISTER FIFTEEN (15) CONTAINS THE RETURN CODE FROM  THE FINAL   *
                                   2936+*    INVOCATION OF THE PUTLINE SERVICE ROUTINE.                       *
                                   2937+*                                                                     *
                                   2938+* EXTERNAL REFERENCES --                                              *
                                   2939+*                                                                     *
                                   2940+*         IKJEBEIA - INVOKED VIA LINK FOR TERMINAL OUTPUT OF EDIT     *
                                   2941+*                    MESSAGES.                                        *
                                   2942+*                                                                     *
                                   2943+*         IKJEBEMS - INVOKED VIA IKJEBESH MACRO FOR TERMINAL OUTPUT   *
                                   2944+*                    OF THE COMMAND SYSTEM ERROR DIAGNOSTIC FOR       *
                                   2945+*                    ERROR RETURN CODES RETURNED BY IKJEBEIA.         *
                                   2946+*                                                                     *
                                   2947+*    MACROS USED --                                                   *
                                   2948+*                                                                     *
                                   2949+*         IKJEBEMG - FOR BUILDING A MESSAGE INSERTION.                *
                                   2950+*                                                                     *
                                   2951+*         IKJEBEML - FOR BUILDING AN IKJEBEMS PARAMETER LIST.         *
                                   2952+*                                                                     *
                                   2953+*         IKJEBEMI - GENERATES SYMBOLIC EQUATES FOR ALL RELATIVE      *
                                   2954+*                    MESSAGE NUMBERS AND INSERTION OFFSETS AFFECTING  *
                                   2955+*                    INITIALIZATION MESSAGES.                         *
                                   2956+*                                                                     *
                                   2957+*         IKJEBERT - RETURN LINKAGE WITHIN THE EDIT COMMAND           *
                                   2958+*                    PROCESSOR.                                       *
                                   2959+*                                                                     *
                                   2960+*         IKJEBESH - USED FOR INVOCATION OF EDIT SERVICE ROUTINES.    *
                                   2961+*                                                                     *
                                   2962+*         IKJEBESV - ENTRY LINKAGE WITHIN THE EDIT COMMAND PROCESSOR. *
                                   2963+*                                                                     *
                                   2964+*         LINK     - ISSUED TO INVOKE IKJEBEIA.                       *
                                   2965+*                                                                     *
                                   2966+* EXITS, NORMAL --                                                    *
                                   2967+*    WHEN IKJEBEIA RETURNS A PUTLINE RETURN CODE OF ZERO, CONTROL     *
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2968+*    IS RETURNED BY BRANCHING ON REGISTER FOURTEEN (14).              *
                                   2969+*                                                                     *
                                   2970+* EXITS, ERROR --                                                     *
                                   2971+*    WHEN AN ERROR CONDITION IS INDICATED BY IKJEBEIA, THE COMMAND    *
                                   2972+*    SYSTEM ERROR MESSAGE IS ISSUED THROUGH IKJEBEMS.  THE PUTLINE    *
                                   2973+*    RETURN CODE RETURNED IN REGISTER FIFTEEN (15) BY IKJEBEMS IS     *
                                   2974+*    RETURNED TO THE CALLING ROUTINE WHEN CONTROL IS RETURNED BY      *
                                   2975+*    BRANCHING ON REGISTER FOURTEEN (14).                             *
                                   2976+*                                                                     *
                                   2977+* TABLES/WORK AREAS --                                                *
                                   2978+*                                                                     *
                                   2979+*    THE EDIT COMMUNICATION AREA CONTAINS CONTROL INFORMATION,        *
                                   2980+*    BUFFERS, AND A WORK AREA FOR THIS ROUTINE.                       *
                                   2981+*                                                                     *
                                   2982+* ATTRIBUTES --                                                       *
                                   2983+*    REFRESHABLE, ENABLED, NON-PRIVILEGED                             *
                                   2984+*                                                                     *
                                   2985+* CHARACTER CODE DEPENDENCY --                                        *
                                   2986+*    THIS ROUTINE MAKES THE ASSUMPTION THAT ALL BITS OF THE HIGH      *
                                   2987+*    ORDER ZONE OF A CHARACTER DIGIT ARE COMMON TO THOSE OF A SIGNED  *
                                   2988+*    AND UNPACKED DECIMAL DIGIT.                                      *
                                   2989+*                                                                     *
                                   2990+* NOTES -- NONE.                                                      *
                                   2991+*                                                                     *
                                   2992+***********************************************************************
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001078                             2994+IKJEBIN3 CSECT
001078 47F0 F00E            0000E  2995+         B     14(0,15) BRANCH AROUND ID.
00107C 08                          2996+         DC    AL1(8)
00107D C9D2D1C5C2C9D5F3            2997+         DC    CL8'IKJEBIN3' IDENTIFIER.
001085 00
001086 90EC D00C            0000C  2998+         STM   14,12,12(13) SAVE REGISTERS.
00108A 05B0                        2999+         BALR  BASEREG,0 -    ESTABLISH ADDRESSABILITY FOR THIS
00108C                             3000+         USING *,BASEREG -    ROUTINE.
00108C 5891 0000            00000  3001+         L     COMMREG,D0(PARMREG1) INITIALIZE COMMUNICATION AREA
                                   3002+*                             POINTER.
001090 58F9 0DE8            00DE8  3003+         L     15,(CANXTSVA-IKJEBECA)(COMMREG) ADDRESS OF NEXT
                                   3004+*                             AVAILABLE SAVE AREA.
001094 50D0 F004            00004  3005+         ST    13,4(,15) -    CROSS CHAIN PREVIOUS AND CURRENT
001098 50F0 D008            00008  3006+         ST    15,8(,13) -    SAVE AREAS.
00109C 18DF                        3007+         LR    13,15 -        INITIALIZE SAVE AREA POINTER.
00109E 41F0 D048            00048  3008+         LA    15,72(,13) -   OBTAIN ADDRESS OF NEXT SAVE AREA
0010A2 50F9 0DE8            00DE8  3009+         ST    15,(CANXTSVA-IKJEBECA)(COMMREG) AND SAVE.
000000                             3010+         USING IKJEBECA,COMMREG ADDRESSABILITY TO COMMUNICATION
                                   3011+*                                  AREA.
0010A6 4100 9908            00908  3012+         LA    PARMREG0,CATEMPBF ADDRESS OF WORK AREA FOR
                                   3013+*                                  IKJEBEIA.
0010AA 5000 1014            00014  3014+         ST    PARMREG0,D20(,PARMREG1) ADD WORK AREA ADDRESS TO
                                   3015+*                                  PARAMETER LIST.
0010AE 0700                        3016+         CNOP  0,4
0010B0 45F0 B038            010C4  3017+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
0010B4 000010BC                    3018+         DC    A(*+8) ADDR OF EP PARAMETER
0010B8 00000000                    3019+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
0010BC C9D2D1C5C2C5C9C1            3020+         DC    CL8'IKJEBEIA' EP PARAMETER
0010C4 0A06                        3021+         SVC   6 ISSUE LINK SVC
                                   3022+*                                  FOR EDIT INITIALIZATION.
0010C6 12FF                        3023+         LTR   RETCDREG,RETCDREG CHECK IF TERMINAL OUTPUT
                                   3024+*                                  SUCCESSFUL.
0010C8 4780 B094            01120  3025+         BZ    IN300010 IF SO, RETURN TO CALLING ROUTINE.
0010CC 49F0 B0CC            01158  3026+         CH    RETCDREG,IN3ATTN CHECK FOR ATTENTION ISSUED.
0010D0 4780 B094            01120  3027+         BE    IN300010 IF SO, RETURN TO CALLING ROUTINE.
0010D4 4EF0 9790            00790  3028+         CVD   RETCDREG,IN3INS2 CONVERT RETURN CODE TO DECIMAL.
0010D8 F321 978F 9796 0078F 00796  3029+         UNPK  IN3INS2-D1(D3),IN3INS2+D6(D2) UNPACK SIGNIFICANT
                                   3030+*                                  DIGITS.
0010DE 96F0 9791      00791        3031+         OI    IN3INS2+D1,INDCZERO INSURE CHARACTER DIGIT IN
                                   3032+*                                  SECOND POSITION.
0010E2 4120 0006            00006  3033+         LA    LENREG,D6 LENGTH OF SECOND INSERTION.
0010E6 4020 978C            0078C  3034+         STH   LENREG,IN3LEN2 SET LENGTH IN INSERTION LIST.
0010EA 4120 0016            00016  3035+         LA    LENREG,M3131IN2 OFFSET FOR SECOND INSERTION.
0010EE 4020 978E            0078E  3036+         STH   LENREG,IN3OFF2 STORE OFFSET IN LIST.
0010F2 1B22                        3037+         SR    LENREG,LENREG ZERO REGISTER.
0010F4 5020 9788            00788  3038+         ST    LENREG,IN3PT2 INDICATE RETURN CODE AS LAST
                                   3039+*                                  INSERTION.
0010F8 D20E 9778 B0BC 00778 01148  3040+         MVC   IN3PT1(D15),IN3SRINS MOVE SERVICE ROUTINE
                                   3041+*                                  INSERTION TO WORK AREA.
0010FE 4120 9788            00788  3042+         LA    LENREG,IN3PT2 ADDRESS SECOND INSERTION.
001102 5020 9778            00778  3043+         ST    LENREG,IN3PT1 CHAIN INSERTIONS.
001106 D20B 976C B0B0 0076C 0113C  3044+         MVC   IN3MSLST(D12),IN3MSPRM MOVE PARAMETER LIST
                                   3045+*                                  TO WORK AREA.
00110C 4120 9778            00778  3046+         LA    LENREG,IN3PT1 ADDRESS FIRST INSERTION.
001110 5020 9774            00774  3047+         ST    LENREG,IN3MSLST+D8 COMPLETE INSERTION CHAIN FOR
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3048+*                                  SECOND LEVEL MESSAGE.
001114 58F0 9014            00014  3049+         L     RETCDREG,(CAPTMS-IKJEBECA)(,COMMREG) - ENTRY ADDRESS
001118 1809                        3050+         LR    PARMREG0,COMMREG
00111A 4110 976C            0076C  3051+         LA    PARMREG1,IN3MSLST -   LOAD PARAMETER REGISTER
00111E 05EF                        3052+         BALR  RETREG,RETCDREG
001120                             3053+IN300010 EQU   *
001120 50D9 0DE8            00DE8  3054+         ST    13,(CANXTSVA-IKJEBECA)(COMMREG) UPDATE NEXT
                                   3055+*                                  AVAILABLE SAVE AREA POINTER.
001124 18CD                        3056+         LR    12,13 COPY OVER SAVE AREA ADDRESS.
001126 58D0 D004            00004  3057+         L     13,4(,13) ADDRESS OF HIGHER SAVE AREA.
00112A D747 C000 C000 00000 00000  3058+         XC    0(72,12),0(12) ZERO SAVE AREA.
001130 58E0 D00C            0000C  3059+         L     14,12(0,13) RESTORE REGISTER 14.
001134 980C D014            00014  3060+         LM    0,12,20(13) RESTORE THE REGISTERS.
001138 07FE                        3061+         BR    14 RETURN.
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3063+***********************************************************************
                                   3064+*
                                   3065+*    CONSTANTS FOR IKJEBIN3
                                   3066+*
                                   3067+***********************************************************************


00113C                             3069+IN3MSPRM DS    0F
00113C 010F                        3070+         DC    AL2(M313)
00113E 0001                        3071+         DC    AL2(M3131) REL LEVEL 2 MESSAGE NUMBER
001140 00000000                    3072+         DC    A(D0) PTR TO INSERTION, LEVEL 1
001144 00000000                    3073+         DC    A(D0) PTR TO LEVEL 2 INSERTION


001148 00000000                    3075+IN3SRINS DC    A(0) POINTER TO SECOND INSERTION RECORD
00114C 000B                        3076+         DC    AL2(MXX0168-*) LENGTH OF MESSAGE
00114E 000A                        3077+         DC    AL2(M3131IN1) POINTER TO INSERTION POINT
001150 D7E4E3D3C9D5C5              3078+         DC    C'PUTLINE'
001157                             3079+MXX0168  EQU   *


001157 00
001158 0004                        3081+IN3ATTN  DC    H'4' PUTLINE RETURN CODE 4 IS ATTENTION
                                   3082+*                                  ISSUED.
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3084+***********************************************************************
                                   3085+*
                                   3086+*    FOLLOWING IS INFORMATION ON ALL MESSAGES USED BY
                                   3087+*    EDIT INITIALIZATION.
                                   3088+*
                                   3089+***********************************************************************
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3092+***********************************************************************
                                   3093+*
                                   3094+*                   MESSAGE INFORMATION AND SPECIAL EQU'S
                                   3095+*
                                   3096+***********************************************************************


                                   3098+* THE FOLLOWING EQU'S CORRESPOND TO THE SEVEN MESSAGE MODULES IN THE
                                   3099+* THE EDIT COMMAND PROCESSOR

000100                             3101+MSMOD1   EQU   X'0100' -            IKJEBEM1 MODULE
000200                             3102+MSMOD2   EQU   X'0200' -            IKJEBEM2 MODULE
000300                             3103+MSMOD3   EQU   X'0300' -            IKJEBEM3 MODULE
000400                             3104+MSMOD4   EQU   X'0400' -            IKJEBEM4 MODULE
000500                             3105+MSMOD5   EQU   X'0500' -            IKJEBEM5 MODULE
000600                             3106+MSMOD6   EQU   X'0600' -            IKJEBEM6 MODULE
000700                             3107+MSMOD7   EQU   X'0700' -            IKJEBEM7 MODULE


                                   3109+* IKJ52301I UTILITY DATA SET  NOT ALLOCATED, TOO MANY DATA SETS+
                                   3110+*           DATA SET (DSNAME)
                                   3111+* IKJ52301I HAS ONE SECOND LEVEL MESSAGE.

000100                             3113+M301U    EQU   MSMOD1+0 -     RELATIVE MSG 0 - IKJEBEM1
000101                             3114+M301     EQU   MSMOD1+1 -     RELATIVE MSG 1 - IKJEBEM1
000013                             3115+M301IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19

                                   3117+* *IKJ52301I USE FREE COMMAND TO FREE UNUSED DATA SETS
000001                             3118+M3011    EQU   1 -            FIRST SECOND-LEVEL MESSAGE


                                   3120+* IKJ52302I DATA SET (DSNAME) NOT ALLOCATED, DATA SET NOT ON VOLUME+
                                   3121+* IKJ52302I HAS ONE SECOND-LEVEL MESSAGE.

000600                             3123+M302     EQU   MSMOD6+0 -     RELATIVE MESSAGE 0 - IKJEBEM6
000013                             3124+M302IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19

                                   3126+* *IKJ52302I CATALOG INFORMATION INCORRECT
000001                             3127+M3021    EQU   1 -            FIRST SECOND-LEVEL MESSAGE
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3130+* IKJ52303I DATA SET (DSNAME) NOT ALLOCATED, REQUIRED VOLUME NOT
                                   3131+*           MOUNTED+
                                   3132+* IKJ52303I HAS ONE SECOND LEVEL MESSAGE.

000601                             3134+M303     EQU   MSMOD6+1 -     RELATIVE MESSAGE 1 - IKJEBEM6
000013                             3135+M303IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19

                                   3137+* *IKJ52303I VOLUME OR CVOL NOT ON SYSTEM AND CANNOT BE ACCESSED
000001                             3138+M3031    EQU   1 -            FIRST SECOND-LEVEL MESSAGE


                                   3140+*           UTILITY DATA SET
                                   3141+* IKJ52304I DATA SET (DSNAME) NOT ALLOCATED, SYSTEM OR INSTALLATION
                                   3142+*           ERROR+
                                   3143+* IKJ52304I HAS THREE SECOND-LEVEL MESSAGES.

000104                             3145+M304U    EQU   MSMOD1+4 -     RELATIVE MSG 4 - IKJEBEM1
000105                             3146+M304     EQU   MSMOD1+5 -     RELATIVE MSG 5 - IKJEBEM1
000013                             3147+M304IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19

                                   3149+* *IKJ52304I DYNAMIC ALLOCATION ERROR CODE (CODE)
000001                             3150+M3041    EQU   1 -            FIRST SECOND-LEVEL MESSAGE
000028                             3151+M3041IN1 EQU   40 -           RETURN CODE INSERTION AT OFFSET 19

                                   3153+* *IKJ52304I CATALOG ERROR CODE (CODE)
000002                             3154+M3042    EQU   2 -            SECOND SECOND-LEVEL MESSAGE
00001D                             3155+M3042IN1 EQU   29 -           RETURN CODE INSERTION AT OFFSET 29

                                   3157+* *IKJ52304I CATALOG I/O ERROR
000003                             3158+M3043    EQU   3 -            THIRD SECOND-LEVEL MESSAGE


                                   3160+*           UTILITY DATA SET
                                   3161+* IKJ52305I DATA SET (DSNAME) NOT ALLOCATED, NOT ENOUGH SPACE ON
                                   3162+*           VOLUMES+
                                   3163+* IKJ52305I HAS ONE SECOND-LEVEL MESSAGE.

000502                             3165+M305U    EQU   MSMOD5+2 -     RELATIVE MESSAGE 2 - IKJEBEM5
000503                             3166+M305     EQU   MSMOD5+3 -     RELATIVE MESSAGE 3 - IKJEBEM5
000013                             3167+M305IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19

                                   3169+* *IKJ52305I USE DELETE COMMAND TO DELETE UNUSED DATA SETS
000001                             3170+M3051    EQU   1 -            FIRST SECOND-LEVEL MESSAGE
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3173+* IKJ52306I DATA SET DSNAME) ALREADY IN USE, TRY LATER+
                                   3174+* IKJ52306I HAS ONE SECOND LEVEL MESSAGE.

000602                             3176+M306     EQU   MSMOD6+2 -     RELATIVE MESSAGE 2 - IKJEBEM6
000013                             3177+M306IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19

                                   3179+* *IKJ52306I DATA SET IS ALLOCATED TO ANOTHER USER OR JOB
000001                             3180+M3061    EQU   1 -            FIRST SECOND-LEVEL MESSAGE


                                   3182+* IKJ52307I DATA SET (DSNAME) NOT IN CATALOG
                                   3183+* IKJ52307I HAS NO SECOND LEVEL MESSAGES.

000603                             3185+M307     EQU   MSMOD6+3 -     RELATIVE MESSAGE 3 - IKJEBEM6
000013                             3186+M307IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19


                                   3188+* IKJ52308I MEMBER (MEMBER) NOT IN DATA SET (DSNAME)
                                   3189+* IKJ52308I HAS NO SECOND LEVEL MESSAGES.

000604                             3191+M308     EQU   MSMOD6+4 -     RELATIVE MESSAGE 4 - IKJEBEM6
000011                             3192+M308IN1  EQU   17 -           MEMBER NAME INSERTION AT OFFSET 17
000022                             3193+M308IN2  EQU   34 -           DSNAME INSERTION AT OFFSET 34


                                   3195+* IKJ52309I DATA SET (DSNAME) NOT USEABLE+
                                   3196+* IKJ52309I HAS TWO SECOND LEVEL MESSAGES.

000110                             3198+M309U    EQU   MSMOD1+16 -    RELATIVE MSG 16 - IKJEBEM1
00010B                             3199+M309     EQU   MSMOD1+11 -    RELATIVE MSG 11 - IKJEBEM1
000013                             3200+M309IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19

                                   3202+* *IKJ52309I OPEN ERROR CODE (CODE)
000001                             3203+M3091    EQU   1 -            FIRST SECOND-LEVEL MESSAGE
00001A                             3204+M3091IN1 EQU   26 -           CODE INSERTION AT OFFSET 26

                                   3206+* *IKJ52309I I/O SYNAD ERROR (CODE)
000002                             3207+M3092    EQU   2 -            SECOND SECOND-LEVEL MESSAGE
00001A                             3208+M3092IN1 EQU   26 -           CODE INSERTION AT OFFSET 26

                                   3210+* *IKJ52309I CANNOT OPEN DATA SET
000003                             3211+M3093    EQU   3 -            THIRD SECOND-LEVEL MESSAGE
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3214+* IKJ52310I INVALID DATA SET NAME, ('DSNAME') EXCEEDS 44 CHARACTERS
                                   3215+* IKJ52310I HAS NO SECOND LEVEL MESSAGES.

000605                             3217+M310     EQU   MSMOD6+5 -     RELATIVE MESSAGE 5 - IKJEBEM6
000021                             3218+M310IN1  EQU   33 -           DSNAME INSERTION AT OFFSET 33


                                   3220+* IKJ52311I MEMBER (MEMBER) SPECIFIED BUT (DSNAME) NOT A PARTITIONED
                                   3221+*           DATA SET
                                   3222+* IKJ52311I HAS NO SECOND LEVEL MESSAGES.

00010D                             3224+M311     EQU   MSMOD1+13 -    RELATIVE MSG 13 - IKJEBEM1
000011                             3225+M311IN1  EQU   17 -           MEMBER NAME INSERTION AT OFFSET 17
000020                             3226+M311IN2  EQU   32 -           DSNAME INSERTION AT OFFSET 32


                                   3228+* IKJ52312I NOT ENOUGH MAIN STORAGE TO EXECUTE (COMMAND OR SUBCOMMAND)
                                   3229+* IKJ52312I HAS NO SECOND LEVEL MESSAGES.

00010E                             3231+M312     EQU   MSMOD1+14 -    RELATIVE MSG 14 - IKJEBEM1
00002D                             3232+M312IN1  EQU   45 -           COMMAND NAME INSERTION AT OFFSET 45


                                   3234+* IKJ52313I COMMAND SYSTEM ERROR+
                                   3235+* IKJ52313I HAS ONE SECOND LEVEL MESSAGE.

00010F                             3237+M313     EQU   MSMOD1+15 -    RELATIVE MSG 15 - IKJEBEM1

                                   3239+* *IKJ52313I (SERVICE ROUTINE) ERROR CODE (CODE)
000001                             3240+M3131    EQU   1 -            FIRST SECOND-LEVEL MESSAGE
00000A                             3241+M3131IN1 EQU   10 -           SERVICE ROUTINE INSERTION AT OFFSET 10
000016                             3242+M3131IN2 EQU   22 -           RETURN CODE INSERTION AT OFFSET 22


                                   3244+* IKJ52314I DATA SET (DSNAME) RESIDES ON MULTIPLE VOLUMES, NOT
                                   3245+*           SUPPORTED
                                   3246+* IKJ52314I HAS NO SECOND-LEVEL MESSAGES.

000106                             3248+M314     EQU   MSMOD1+6 -     RELATIVE MESSAGE 6 - IKJEBEM1
000013                             3249+M314IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3252+* IKJ52315I DATA SET (DSNAME) NOT RESOLVED, SYSTEM ERROR+
                                   3253+* IKJ52315I HAS ONE SECOND-LEVEL MESSAGE.

000701                             3255+M315     EQU   MSMOD7+1 -     RELATIVE MESSAGE 1 - IKJEBEM7
000013                             3256+M315IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19

                                   3258+* *IKJ52315I DEFAULT ERROR CODE (CODE)
000001                             3259+M3151    EQU   1 -            FIRST SECOND-LEVEL MESSAGE
00001D                             3260+M3151IN1 EQU   29 -           RETURN CODE INSERTION AT OFFSET 29


                                   3262+* IKJ52316I DATA SET (DSNAME) WILL CREATE AN INVALID CATALOG STRUCTURE+
                                   3263+* IKJ52316I HAS ONE SECOND-LEVEL MESSAGE.

000702                             3265+M316     EQU   MSMOD7+2 -     RELATIVE MESSAGE 2 - IKJEBEM7
000013                             3266+M316IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19

                                   3268+* *IKJ52316I A QUALIFIER CANNOT BE BOTH AN INDEX AND THE LAST
                                   3269+*            QUALIFIER OF A DATA SET NAME
000001                             3270+M3161    EQU   1 -            FIRST SECOND-LEVEL MESSAGE


                                   3272+* IKJ52317I DATA SET (DSNAME) NOT ON A DIRECT ACCESS DEVICE, NOT
                                   3273+*           SUPPORTED
                                   3274+* IKJ52317I HAS NO SECOND LEVEL MESSAGES.

000504                             3276+M317     EQU   MSMOD5+4 -     RELATIVE MESSAGE 4 - IKJEBEM5
000013                             3277+M317IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19


                                   3279+*           UTILITY DATA SET
                                   3280+* IKJ52318I DATA SET (DSNAME) NOT ALLOCATED+
                                   3281+* IKJ52318I HAS TWO SECOND-LEVEL MESSAGES.

000706                             3283+M318U    EQU   MSMOD7+6 -     RELATIVE MESSAGE 6 - IKJEBEM7
000707                             3284+M318     EQU   MSMOD7+7 -     RELATIVE MESSAGE 7 - IKJEBEM7
000013                             3285+M318IN1  EQU   19 -           DSNAME INSERTION AT OFFSET 19

                                   3287+* *IKJ52318I INVALID UNIT IN USER ATTRIBUTE DATA SET
000001                             3288+M3181    EQU   1 -            FIRST SECOND-LEVEL MESSAGE

                                   3290+* *IKJ52318I NO UNIT AVAILABLE
000002                             3291+M3182    EQU   2 -            SECOND SECOND-LEVEL MESSAGE
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3294+*  IKJ52330I (ISAM,DIRECT) ORGANIZATION OF DATA SET (DSNAME)
                                   3295+*            NOT ACCEPTABLE +
                                   3296+*  IKJ52330I HAS ONE SECOND LEVEL MESSAGE.

000200                             3298+M330     EQU   MSMOD2+0 -     RELATIVE MESSAGE 0 - IKJEBEM2
00000A                             3299+M330IN1  EQU   10 -           DSORG INSERTION AT OFFSET 10
000024                             3300+M330IN2  EQU   36 -           DSNAME INSERTION AT OFFSET 36

                                   3302+* *IKJ52330I ORGANIZATION MUST BE PARTITIONED OR SEQUENTIAL
000001                             3303+M3301    EQU   1 -            FIRST SECOND LEVEL MESSAGE


                                   3305+*  IKJ52331I RECORD FORMAT (RECFM) NOT ACCEPTABLE
                                   3306+*  IKJ52331I HAS NO SECOND LEVEL MESSAGES.

000303                             3308+M331     EQU   MSMOD3+3 -     RELATIVE MESSAGE 3 - IKJEBEM3
000018                             3309+M331IN1  EQU   24 -           RECFM INSERTION AT OFFSET 24


                                   3311+*  IKJ52332I RECORD FORMAT V NOT ACCEPTABLE FOR (TYPE)
                                   3312+*            DATA SETS
                                   3313+*  IKJ52332I HAS NO SECOND LEVEL MESSAGES.

000202                             3315+M332     EQU   MSMOD2+2 -     RELATIVE MESSAGE 2 - IKJEBEM2
00002D                             3316+M332IN1  EQU   45 -           DATA SET TYPE INSERTION AT OFFSET 45
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3319+*  IKJ52333I INVALID BLOCK VALUE, USING (VALUE)+
                                   3320+*  IKJ52333I HAS FOUR SECOND LEVEL MESSAGES.

000203                             3322+M333     EQU   MSMOD2+3 -     RELATIVE MESSAGE 3 - IKJEBEM2
000025                             3323+M333IN1  EQU   37 -           BLOCK VALUE INSERTION AT OFFSET 37

                                   3325+* *IKJ52333I MAXIMUM BLOCK VALUE IS DEVICE TRACK SIZE
000001                             3326+M3331    EQU   1 -            FIRST SECOND LEVEL MESSAGE

                                   3328+* *IKJ52333I  MAXIMUM BLOCK VALUE IS SYSGEN OPTION
000002                             3329+M3332    EQU   2 -            SECOND SECOND LEVEL MESSAGE

                                   3331+* *IKJ52333I BLOCK VALUE MUST BE A MULTIPLE OF LINE FOR RECORD
                                   3332+*            FORMAT F DATA SETS
000003                             3333+M3333    EQU   3 -            THIRD SECOND LEVEL MESSAGE

                                   3335+* *IKJ52333I BLOCK VALUE MUST BE AT LEAST 4 GREATER THAN LINE
                                   3336+*            FOR RECORD FORMAT V DATA SETS
000004                             3337+M3334    EQU   4 -            FOURTH SECOND LEVEL MESSAGE


                                   3339+*  IKJ52334I (BLOCK,LINE) IGNORED, ONLY VALID FOR NEW DATA SET
                                   3340+*  IKJ52334I HAS NO SECOND LEVEL MESSAGES.

000204                             3342+M334     EQU   MSMOD2+4 -     RELATIVE MESSAGE 4 - IKJEBEM2
00000A                             3343+M334IN1  EQU   10 -           BLOCK OR LINE INSERTION AT OFFSET 10
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   91


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3346+*  IKJ52335I INVALID LINE VALUE FOR (LANGUAGE), USING (VALUE)+
                                   3347+*  IKJ52335I HAS THREE SECOND LEVEL MESSAGES.

000205                             3349+M335     EQU   MSMOD2+5 -     RELATIVE MESSAGE 5 - IKJEBEM2
000021                             3350+M335IN1  EQU   33 -           LANGUAGE INSERTION AT OFFSET 33
000029                             3351+M335IN2  EQU   41 -           LINE VALUE INSERTION AT OFFSET 41

                                   3353+* *IKJ52335I (LANGUAGE) REQUIRES A LINE SIZE OF 80
000001                             3354+M3351    EQU   1 -            FIRST SECOND LEVEL MESSAGE
00000A                             3355+M3351IN1 EQU   10 -           LANGUAGE INSERTION AT OFFSET 10

                                   3357+* *IKJ52335I LINE SIZE FOR (TYPE) MAY NOT EXCEED (LINE SIZE)
000002                             3358+M3352    EQU   2 -            SECOND SECOND LEVEL MESSAGE
000018                             3359+M3352IN1 EQU   24 -           DATA SET TYPE INSERTION AT OFFSET 24
000028                             3360+M3352IN2 EQU   40 -           LINE SIZE INSERTION AT OFFSET 40

                                   3362+* *IKJ52335I LRECL FIELD NOT INITIALIZED, BLOCK SIZE SUBSTITUTED
000003                             3363+M3353    EQU   3 -            THIRD SECOND LEVEL MESSAGE


                                   3365+*  IKJ52336I (VALUE) INVALID LINE VALUE FOR (TYPE) DATA SET
                                   3366+*  IKJ52336I HAS NO SECOND LEVEL MESSAGES.

000206                             3368+M336     EQU   MSMOD2+6 -     RELATIVE MESSAGE 6 - IKJEBEM2
00000A                             3369+M336IN1  EQU   10 -           LINE VALUE INSERTION AT OFFSET 10
000022                             3370+M336IN2  EQU   34 -           DATA SET TYPE INSERTION AT OFFSET 34


                                   3372+* IKJ52342I INVALID LINE SIZE FOR NUM+
                                   3373+* IKJ52342I HAS ONE SECOND-LEVEL MESSAGE.

000703                             3375+M342     EQU   MSMOD7+3 -     RELATIVE MESSAGE 3 - IKJEBEM7

                                   3377+* *IKJ52342I LINE TOO SHORT FOR LINE NUMBERS
000001                             3378+M3421    EQU   1 -            FIRST SECOND-LEVEL MESSAGE
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   92


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3381+*   IKJ52343I RECORD FORMAT F NOT ACCEPTABLE FOR GOFORT(FREE)+
                                   3382+*   IKJ52343I HAS TWO SECOND-LEVEL MESSAGES.

000708                             3384+M343     EQU   MSMOD7+8 -     RELATIVE MESSAGE 8 - IKJEBEM7

                                   3386+*   *IKJ52343I RECORD FORMAT V IS REQUIRED
000001                             3387+M3431    EQU   1 -            FIRST SECOND-LEVEL MESSAGE

                                   3389+*   *IKJ52343I USE EDIT WITHOUT SPECIFYING LINE OPERAND
000002                             3390+M3432    EQU   2 -            SECOND SECOND-LEVEL MESSAGE


                                   3392+*  IKJ52360I INVALID LINE NUMBER FIELD SPECIFIED
                                   3393+*            (START COLUMN, END COLUMN)+
                                   3394+*  IKJ52360I HAS THREE SECOND LEVEL MESSAGES.

000300                             3396+M360     EQU   MSMOD3+0 -     RELATIVE MESSAGE 0 - IKJEBEM3
000035                             3397+M360IN1  EQU   53 -           START COLUMN INSERTION AT OFFSET 53
000036                             3398+M360IN2  EQU   54 -           END COLUMN INSERTION AT OFFSET 54

                                   3400+* *IKJ52360I STARTING COLUMN MUST BE WITHIN THE RANGE 73-80
000001                             3401+M3601    EQU   1 -            FIRST SECOND LEVEL MESSAGE

                                   3403+* *IKJ52360I  LINE NUMBER FIELD FALLS OUTSIDE RECORD SIZE
000002                             3404+M3602    EQU   2 -            SECOND SECOND LEVEL MESSAGE

                                   3406+* *IKJ52360I LINE NUMBER FIELD OPERANDS ARE VALID FOR
                                   3407+*            ASM DATA SETS ONLY
000003                             3408+M3603    EQU   3 -            THIRD SECOND LEVEL MESSAGE


                                   3410+*  IKJ52361I ASIS INVALID FOR (TYPE) DATA SET, USING CAPS
                                   3411+*  IKJ52361I HAS NO SECOND LEVEL MESSAGES.

000301                             3413+M361     EQU   MSMOD3+1 -     RELATIVE MESSAGE 1 - IKJEBEM3
00001B                             3414+M361IN1  EQU   27 -           DATA SET TYPE INSERTION AT OFFSET 27


                                   3416+*  IKJ52362I NONUM INVALID WITH (TYPE) DATA SET, USING NUM OPTION
                                   3417+*  IKJ52362I HAS NO SECOND LEVEL MESSAGES.

000302                             3419+M362     EQU   MSMOD3+2 -     RELATIVE MESSAGE 2 - IKJEBEM3
00001C                             3420+M362IN1  EQU   28 -           DATA SET TYPE INSERTION AT OFFSET 28
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3423+*  IKJ52363I (FUNCTION) INVALID FOR (LANGUAGE OR TYPE)
                                   3424+*  IKJ52363I HAS NO SECOND-LEVEL MESSAGES.

000704                             3426+M363     EQU   MSMOD7+4 -     RELATIVE MESSAGE 4 - IKJEBEM7
00000A                             3427+M363IN1  EQU   10 -           FUNCTION INSERTION AT OFFSET 10
000017                             3428+M363IN2  EQU   23 -           LANGUAGE INSERTION AT OFFSET 23


                                   3430+*  IKJ52364I (FUNCTION) NOT AVAILABLE FOR (LANGUAGE OR TYPE)+
                                   3431+*  IKJ52364I HAS TWO SECOND-LEVEL MESSAGES.

000705                             3433+M364     EQU   MSMOD7+5 -     RELATIVE MESSAGE 5 - IKJEBEM7
00000A                             3434+M364IN1  EQU   10 -           FUNCTION INSERTION AT OFFSET 10
00001D                             3435+M364IN2  EQU   29 -           LANGUAGE INSERTION AT OFFSET 29

                                   3437+* *IKJ52364I REQUIRED PROGRAM NOT AVAILABLE
000001                             3438+M3641    EQU   1 -            FIRST SECOND-LEVEL MESSAGE

                                   3440+* *IKJ52364I PROGRAM NO LONGER USEABLE
000002                             3441+M3642    EQU   2 -            SECOND SECOND-LEVEL MESSAGE


                                   3443+*  IKJ52365I INVALID SOURCE MARGIN ((STARTCOL),(ENDCOL))+
                                   3444+*  IKJ52365I HAS ONE SECOND LEVEL MESSAGE.

000305                             3446+M365     EQU   MSMOD3+5 -     RELATIVE MESSAGE 5 - IKJEBEM3
000021                             3447+M365IN1  EQU   33 -           START COLUMN INSERTION AT OFFSET 33
000022                             3448+M365IN2  EQU   34 -           END COLUMN INSERTION AT OFFSET 34

                                   3450+* *IKJ52365I SPECIFIED SOURCE MARGIN FALLS OUTSIDE LINE LIMITS
000001                             3451+M3651    EQU   1 -            FIRST SECOND LEVEL MESSAGE
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   94


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3454+*  IKJ52424I SYSTEM ERROR+
                                   3455+*  IKJ52424I HAS FIVE SECOND-LEVEL MESSAGES.

000606                             3457+M424     EQU   MSMOD6+6 -     RELATIVE MESSAGE 6 - IKJEBEM6

                                   3459+* *IKJ52424I UTILITY DATA SET NOT UNALLOCATED, DYNAMIC ALLOCATION
                                   3460+*            ERROR CODE (CODE)
000001                             3461+M4241    EQU   1 -            FIRST SECOND-LEVEL MESSAGE
00004A                             3462+M4241IN1 EQU   74 -           DYNAMIC ALLOCATION RETURN CODE
                                   3463+*                             INSERTION AT OFFSET 74

                                   3465+* *IKJ52424I DATA SET (DSNAME) NOT UNALLOCATED, DYNAMIC ALLOCATION
                                   3466+*            ERROR CODE (CODE)
000002                             3467+M4242    EQU   2 -            SECOND SECOND-LEVEL MESSAGE
000013                             3468+M4242IN1 EQU   19 -           DSNAME INSERTION AT OFFSET 19
000043                             3469+M4242IN2 EQU   67 -           DYNAMIC ALLOCATION RETURN CODE
                                   3470+*                             INSERTION AT OFFSET 67

                                   3472+* *IKJ52424I UTILITY DATA SET NOT UNALLOCATED, CATALOG ERROR CODE
                                   3473+*            (CODE)
000003                             3474+M4243    EQU   3 -            THIRD SECOND-LEVEL MESSAGE
00003F                             3475+M4243IN1 EQU   63 -           CATALOG RETURN CODE INSERTION
                                   3476+*                             AT OFFSET 63

                                   3478+* *IKJ52424I DATA SET (DSNAME) NOT UNALLOCATED, CATALOG ERROR CODE
                                   3479+*            (CODE)
000004                             3480+M4244    EQU   4 -            FOURTH SECOND-LEVEL MESSAGE
000013                             3481+M4244IN1 EQU   19 -           DSNAME INSERTION AT OFFSET 19
000038                             3482+M4244IN2 EQU   56 -           CATALOG RETURN CODE INSERTION
                                   3483+*                             AT OFFSET 56

                                   3485+* *IKJ52424I FILE (DDNAME) NOT FOUND

000005                             3487+M4245    EQU   5 -            FIFTH SECOND-LEVEL MESSAGE
00000F                             3488+M4245IN1 EQU   15 -           DDNAME INSERTION AT OFFSET 15
BEIN   IKJEBIN3 - MESSAGE PROCESSING                                                                           PAGE   95


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78
BEIN   IKJEBIN4 - VALIDITY CHECK EXIT FOR COMMAND OPERANDS                                                     PAGE   96


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001160                             3492+IKJEBIN4 CSECT
001160 47F0 F00E            0000E  3493+         B     14(0,15) BRANCH AROUND ID.
001164 08                          3494+         DC    AL1(8)
001165 C9D2D1C5C2C9D5F4            3495+         DC    CL8'IKJEBIN4' IDENTIFIER.
00116D 00
00116E 90EC D00C            0000C  3496+         STM   14,12,12(13) SAVE REGISTERS.
001172 05B0                        3497+         BALR  BASEREG,0 -    ESTABLISH ADDRESSABILITY FOR THIS
001174                             3498+         USING *,BASEREG -    ROUTINE.
001174 5890 1004            00004  3499+         L     COMMREG,D4(,PARMREG1) INITIALIZE COMMUNICATION AREA
                                   3500+*                             POINTER.
001178 58F9 0DE8            00DE8  3501+         L     15,(CANXTSVA-IKJEBECA)(COMMREG) ADDRESS OF NEXT
                                   3502+*                             AVAILABLE SAVE AREA.
00117C 50D0 F004            00004  3503+         ST    13,4(,15) -    CROSS CHAIN PREVIOUS AND CURRENT
001180 50F0 D008            00008  3504+         ST    15,8(,13) -    SAVE AREAS.
001184 18DF                        3505+         LR    13,15 -        INITIALIZE SAVE AREA POINTER.
001186 41F0 D048            00048  3506+         LA    15,72(,13) -   OBTAIN ADDRESS OF NEXT SAVE AREA
00118A 50F9 0DE8            00DE8  3507+         ST    15,(CANXTSVA-IKJEBECA)(COMMREG) AND SAVE.
000000                             3508+         USING IKJEBECA,COMMREG COMMUNICATION AREA ADDRESSABILITY
00118E 1BFF                        3509+         SR    RETCDREG,RETCDREG SET ZERO RETURN CODE.
001190 58C0 1000            00000  3510+         L     DATAREG,D0(,PARMREG1) ADDRESS OF PDE FOR NUMERIC
                                   3511+*                                  SUBFIELD.
001194 5840 C000            00000  3512+         L     AREAREG,IBNOADDR(,DATAREG) ADDRESS OF NUMBER
                                   3513+*                                  ENTERED.
001198 4820 C004            00004  3514+         LH    LENREG,IBNOLEN(,DATAREG) LENGTH OF NUMBER ENTERED.
00119C 0620                        3515+         BCTR  LENREG,D0 REDUCE LENGTH BY ONE AND TEST FOR
00119E 4420 B050            011C4  3516+         EX    LENREG,IBCLC001 ZERO.
0011A2 4720 B036            011AA  3517+         BH    IB001010 IF GREATER THAN ZERO, BRANCH TO
                                   3518+*                                  RETURN.
0011A6 41F0 0004            00004  3519+         LA    RETCDREG,D4(,D0) SET ERROR RETURN CODE WHEN LESS
                                   3520+*                                  THAN ZERO.
0011AA                             3521+IB001010 EQU   *
0011AA 50D9 0DE8            00DE8  3522+         ST    13,(CANXTSVA-IKJEBECA)(COMMREG) UPDATE NEXT
                                   3523+*                                  AVAILABLE SAVE AREA POINTER.
0011AE 18CD                        3524+         LR    12,13 COPY OVER SAVE AREA ADDRESS.
0011B0 58D0 D004            00004  3525+         L     13,4(,13) ADDRESS OF HIGHER SAVE AREA.
0011B4 D747 C000 C000 00000 00000  3526+         XC    0(72,12),0(12) ZERO SAVE AREA.
0011BA 58E0 D00C            0000C  3527+         L     14,12(0,13) RESTORE REGISTER 14.
0011BE 980C D014            00014  3528+         LM    0,12,20(13) RESTORE THE REGISTERS.
0011C2 07FE                        3529+         BR    14 RETURN.





0011C4 D500 4000 B056 00000 011CA  3531+IBCLC001 CLC   D0(*-*,AREAREG),IBZEROES CHECK FOR ZERO.
0011CA F0F0F0F0F0F0F0F0            3532+IBZEROES DC    CL8'00000000' CONSTANT USED TO CHECK FOR ZEROES.
000000                             3533+IBNOADDR EQU   0 OFFSET IN PDE TO OPERAND ADDRES..
000004                             3534+IBNOLEN  EQU   4 OFFSET IN PDE TO OPERAND LENGTH.
BEIN   IKJEBIN4 - VALIDITY CHECK EXIT FOR COMMAND OPERANDS                                                     PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78
BEIN   IKJEBIN5 - PROMPT FOR DATA SET TYPE PROCESSING                                                          PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3537+***********************************************************************
                                   3538+*                                                                     *
                                   3539+* STATUS -- VERSION NO. 01, OS/360 RELEASE NO. 20                     *
                                   3540+*                                                                     *
                                   3541+* FUNCTION -- THIS ROUTINE IS CALLED BY THE IKJEBEIN AND IKJEBIN7     *
                                   3542+*    CSECTS OF THE EDIT INITIALIZATION PROGRAM TO PROMPT THE TERMINAL *
                                   3543+*    USER TO ENTER DATA SET TYPE.  THIS IS ACCOMPLISHED BY INVOKING   *
                                   3544+*    IKJPARS, SPECIFYING A REQUIRED POSITIONAL PARAMETER AND          *
                                   3545+*    SUPPLYING A BLANK BUFFER TO 'PARSE'.  THE VALIDITY CHECK EXIT    *
                                   3546+*    INDICATED IN THE PARSE PCL GAINS CONTROL TO CHECK THE TYPE       *
                                   3547+*    ENTERED IN RESPONSE TO A PROMPT MADE BY IKJPARS.  IT REQUESTS    *
                                   3548+*    IKJPARS TO RE-PROMPT UNTIL BOTH OF THE FOLLOWING CONDITIONS ARE  *
                                   3549+*    MET --                                                           *
                                   3550+*                                                                     *
                                   3551+*    (1) THE TYPE ENTERED IS FOUND IN A LOCAL TABLE OF EDITABLE DATA  *
                                   3552+*    SET TYPES.                                                       *
                                   3553+*                                                                     *
                                   3554+*    (2) THE TYPE ENTERED IS LOCATED BY THE PROCESSOR SEARCH ROUTINE  *
                                   3555+*    (IKJEBEPS) IN THE PROCESSOR DESCRIPTOR CSECT (IKJEBEPD).         *
                                   3556+*                                                                     *
                                   3557+*    WHEN A VALID TYPE HAS BEEN ENTERED, THE TABLE ENTRY RETURNED     *
                                   3558+*    BY IKJEBEPS IS MOVED TO THE COMMUNICATION AREA PROCESSOR TABLE   *
                                   3559+*    FIELD (CAPD) AND CONTROL IS RETURNED TO THE CALLING ROUTINE.     *
                                   3560+*                                                                     *
                                   3561+* ENTRY POINTS --                                                     *
                                   3562+*         IKJEBIN5 - VIA CALL MACRO FROM IKJEBEIN OR IKJEBIN7 WHEN    *
                                   3563+*                    IT IS NECESSARY TO PROMPT THE TERMINAL USER      *
                                   3564+*                    FOR DATA SET TYPE.                               *
                                   3565+*                                                                     *
                                   3566+* INPUT --                                                            *
                                   3567+*    REGISTER ONE (1) POINTS TO A WORD CONTAINING THE ADDRESS         *
                                   3568+*    OF THE EDIT COMMUNICATION AREA.                                  *
                                   3569+*                                                                     *
                                   3570+* OUTPUT --                                                           *
                                   3571+*    REGISTER FIFTEEN (15) CONTAINS --                                *
                                   3572+*    00 - SUCCESSFUL OPERATION.                                       *
                                   3573+*    04 - IKJPARS ERROR (TERMINATE EDIT).                             *
                                   3574+*                                                                     *
                                   3575+* EXTERNAL REFERENCES --                                              *
                                   3576+*                                                                     *
                                   3577+*         IKJEBEPS - THE EDIT PROCESSOR SEARCH ROUTINE, LOADED        *
                                   3578+*                    AND CALLED TO VALIDATE A DATA SET TYPE AND       *
                                   3579+*                    RETURN PROCESSOR DEPENDENT INFORMATION FOR       *
                                   3580+*                    VALID DATA SET TYPES                             *
                                   3581+*         IKJEBIN3 - CALLED FOR PROCESSING EDIT MESSAGES              *
                                   3582+*         IKJPARS  - INVOKED VIA LINK MACRO TO SYNTAX CHECK THE  A45713
                                   3583+*                    RESPONSE FROM IKJPTGT                       A45713
                                   3584+*         IKJPTGT  - INVOKED VIA PUTGET MACRO TO PROMPT THE USER A45713
                                   3585+*                    FOR DATA SET TYPE                           A45713
                                   3586+*                                                                     *
                                   3587+*    MACROS USED --                                                   *
                                   3588+*                                                                     *
                                   3589+*         CALL     - LINKAGE TO IKJEBEPS AND IKJEBIN3.                *
                                   3590+*         DELETE   - USED TO DELETE IKJEBEPS FROM MAIN STORAGE.       *
                                   3591+*         IKJEBERT - RETURN LINKAGE WITHIN THE EDIT COMMAND           *
BEIN   IKJEBIN5 - PROMPT FOR DATA SET TYPE PROCESSING                                                          PAGE   99


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3592+*                    PROCESSOR.                                       *
                                   3593+*         IKJEBESV - ENTRY LINKAGE WITHIN THE EDIT COMMAND PROCESSOR. *
                                   3594+*         IKJENDP  - DEFINES THE END OF THE IKJPARS PCL.              *
                                   3595+*         IKJIDENT - BUILDS A PCE FOR THE DATA SET TYPE POSITIONAL    *
                                   3596+*                    PARAMETER.                                       *
                                   3597+*         IKJPARMD - DEFINES A PCL FOR IKJPARS.                       *
                                   3598+*         LINK     - LINKAGE TO IKJPARS.                              *
                                   3599+*         LOAD     - USED TO LOAD THE PROCESSOR SEARCH ROUTINE        *
                                   3600+*                    (IKJEBEPS) INTO MAIN STORAGE.                    *
                                   3601+*         PUTGET   - USED TO LINK TO IKJPTGT.                   A45713
                                   3602+*                                                                     *
                                   3603+* EXITS, NORMAL --                                                    *
                                   3604+*    RETURN TO THE CALLING ROUTINE BY BRANCHING ON REGISTER FOURTEEN  *
                                   3605+*    (14) WITH REGISTER FIFTEEN (15) SET TO ZERO.                     *
                                   3606+*                                                                     *
                                   3607+* EXITS, ERROR --                                                     *
                                   3608+*    RETURN TO THE CALLING ROUTINE BY BRANCHING ON REGISTER           *
                                   3609+*    FOURTEEN (14) WITH REGISTER FIFTEEN (15) SET TO FOUR (4).        *
                                   3610+*                                                                     *
                                   3611+* TABLES/WORK AREAS --                                                *
                                   3612+*                                                                     *
                                   3613+*    THE EDIT COMMUNICATION AREA CONTAINS CONTROL INFORMATION AND     *
                                   3614+*    A WORK AREA FOR THIS ROUTINE --                                  *
                                   3615+*                                                                     *
                                   3616+*    CADSTYPE - DATA SET TYPE FIELD.                                  *
                                   3617+*    CAPD - THIS PROCESSOR TABLE FIELD IS UPDATED BY MOVING THE       *
                                   3618+*           TABLE ENTRY RETURNED BY IKJEBEPS.                         *
                                   3619+*                                                                     *
                                   3620+* ATTRIBUTES --                                                       *
                                   3621+*    REFRESHABLE, ENABLED, NON-PRIVILEGED                             *
                                   3622+*                                                                     *
                                   3623+* CHARACTER CODE DEPENDENCY -- NONE.                                  *
                                   3624+*                                                                     *
                                   3625+* NOTES --                                                            *
                                   3626+*                                                                     *
                                   3627+***********************************************************************
BEIN   IKJEBIN5 - PROMPT FOR DATA SET TYPE PROCESSING                                                          PAGE  100


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0011D8                             3629+IKJEBIN5 CSECT
0011D8 47F0 F00E            0000E  3630+         B     14(0,15) BRANCH AROUND ID.
0011DC 08                          3631+         DC    AL1(8)
0011DD C9D2D1C5C2C9D5F5            3632+         DC    CL8'IKJEBIN5' IDENTIFIER.
0011E5 00
0011E6 90EC D00C            0000C  3633+         STM   14,12,12(13) SAVE REGISTERS.
0011EA 05B0                        3634+         BALR  BASEREG,0 -    ESTABLISH ADDRESSABILITY FOR THIS
0011EC                             3635+         USING *,BASEREG -    ROUTINE.
0011EC 5890 1000            00000  3636+         L     COMMREG,D0(,PARMREG1) INITIALIZE COMMUNICATION AREA
                                   3637+*                             POINTER.
0011F0 58F9 0DE8            00DE8  3638+         L     15,(CANXTSVA-IKJEBECA)(COMMREG) ADDRESS OF NEXT
                                   3639+*                             AVAILABLE SAVE AREA.
0011F4 50D0 F004            00004  3640+         ST    13,4(,15) -    CROSS CHAIN PREVIOUS AND CURRENT
0011F8 50F0 D008            00008  3641+         ST    15,8(,13) -    SAVE AREAS.
0011FC 18DF                        3642+         LR    13,15 -        INITIALIZE SAVE AREA POINTER.
0011FE 41F0 D048            00048  3643+         LA    15,72(,13) -   OBTAIN ADDRESS OF NEXT SAVE AREA
001202 50F9 0DE8            00DE8  3644+         ST    15,(CANXTSVA-IKJEBECA)(COMMREG) AND SAVE.
000000                             3645+         USING IKJEBECA,COMMREG ESTABLISH ADDRESSABILITY TO THE
                                   3646+*                                  COMMUNICATION AREA.
001206                             3647+IC001010 EQU   * A45713
                                   3648+**************************************************************** A45713
                                   3649+*                                                                A45713
                                   3650+*   BUILD PARMLIST AND LINK TO IKJPTGT TO PROMPT USER FOR DATA   A45713
                                   3651+*   SET TYPE.                                                    A45713
                                   3652+*                                                                A45713
                                   3653+**************************************************************** A45713
001206 4140 95A8            005A8  3654+         LA    AREAREG,INPGLIST ADDRESS OF PUTGET PARMBLOCK.     A45713
000000                             3655+         USING PGPB,AREAREG ESTAB. ADDRESSABILITY TO PARMBLOCK.A45713
00120A D70F 4000 4000 00000 00000  3656+         XC    PGPB(INPGPBLN),PGPB ZERO OUT PARMBLOCK.           A45713
001210 5040 921C            0021C  3657+         ST    AREAREG,CATMPLST+IOPLIOPB-IOPL A45713
001214 4110 9210            00210  3658+         LA    PARMREG1,CATMPLST ADDRESS OF PUTGET PARMLIST.     A45713
001218 58E0 100C            0000C  3659+         L     14,12(0,1) LOAD PARM BLOCK ADDR
00121C 9211 E000      00000        3660+         MVI   0(14),B'00010001' SET CONTROL FIELD
001220 9200 E001      00001        3661+         MVI   1(14),B'00000000' SET CONTROL FIELD
001224 9210 E008      00008        3662+         MVI   8(14),B'00010000' SET INPUT CONTROL
001228 4100 B244            01430  3663+         LA    0,INPMTOLD LOAD ADDR OF OUTPUT
00122C 5000 E004            00004  3664+         ST    0,4(0,14) STORE ADDR OF OUTPUT
001230 9200 E002      00002        3665+         MVI   2(14),B'00000000' SET TOUTPUT OPTION FIELD
001234 9280 E00A      0000A        3666+         MVI   10(14),B'10000000' SET TINPUT OPTIONS FIELD
001238                             3667+         CNOP  0,4
001238 45F0 B060            0124C  3668+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
00123C 00001244                    3669+         DC    A(*+8) ADDR OF EP PARAMETER
001240 00000000                    3670+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
001244 C9D2D1D7E3C7E340            3671+         DC    CL8'IKJPTGT' EP PARAMETER
00124C 0A06                        3672+         SVC   6 ISSUE LINK SVC
00124E 47FF B066            01252  3673+         B     IC001015(RETCDREG) PROCESS RETURN CODE.           A45713

001252                             3675+IC001015 EQU   * A45713
001252 47F0 B0C2            012AE  3676+         B     IC001050 RC = 00, SUCCESSFUL RETURN.        A45713
001256 47F0 B086            01272  3677+         B     IC001020 RC = 04, SOURCE OF INPUT IN-CORE.  A45713
00125A 47F0 B14A            01336  3678+         B     IC001065 RC = 08, ATTENTION ISSUED.         A45713
00125E 47F0 B09C            01288  3679+         B     IC001040 RC = 12, TRYING TO PROMPT IN PROC. A45713
001262 47F0 B086            01272  3680+         B     IC001020 RC = 16, NOWAIT SPECIFIED FOR TPUT.A45713
001266 47F0 B086            01272  3681+         B     IC001020 RC = 20, NOWAIT SPECIFIED FOR TGET.A45713
00126A 47F0 B086            01272  3682+         B     IC001020 RC = 24, INVALID PARAMETERS.       A45713
BEIN   IKJEBIN5 - PROMPT FOR DATA SET TYPE PROCESSING                                                          PAGE  101


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00126E 47F0 B094            01280  3683+         B     IC001030 RC = 28, NOT ENOUGH CORE AVAILABLE.A45713


001272                             3685+IC001020 EQU   * A45713
                                   3686+**************************************************************** A45713
                                   3687+*                                                                A45713
                                   3688+*   ISSUE COMMAND SYSTEM ERROR MESSAGE AND TERMINATE.            A45713
                                   3689+*                                                                A45713
                                   3690+**************************************************************** A45713
001272 4150 0004            00004  3691+         LA    ERR1REG,INERROR2 RELATIVE ERROR TO BE PROCESSED.  A45713
001276 188F                        3692+         LR    DATA2REG,RETCDREG SAVE RETURN CODE FOR MESSAGE.   A45713
001278 5680 B218            01404  3693+         O     DATA2REG,ICPTGT INDICATE ROUTINE NAME IS IKJPTGT. A45713
00127C 47F0 B0A0            0128C  3694+         B     IC001045 BRANCH TO CALL IKJEBIN3 TO PUT     A45713
                                   3695+*                                  ERROR MESSAGE AND RETURN.     A45713


001280                             3697+IC001030 EQU   * A45713
                                   3698+**************************************************************** A45713
                                   3699+*                                                                A45713
                                   3700+*   ISSUE NO MAIN STORAGE AVAILABLE MESSAGE AND TERMINATE.       A45713
                                   3701+*                                                                A45713
                                   3702+**************************************************************** A45713
001280 4150 0000            00000  3703+         LA    ERR1REG,INERROR1 RELATIVE ERROR TO BE PROCESSED.  A45713
001284 47F0 B0A0            0128C  3704+         B     IC001045 BRANCH TO CALL IKJEBIN3 TO PUT     A45713
                                   3705+*                                  ERROR MESSAGE AND TERMINATE.  A45713


001288                             3707+IC001040 EQU   * A45713
                                   3708+**************************************************************** A45713
                                   3709+*                                                                A45713
                                   3710+*   ISSUE MISSING DATA SET TYPE AND TERMINATE.                   A45713
                                   3711+*                                                                A45713
                                   3712+**************************************************************** A45713
001288 4150 0080            00080  3713+         LA    ERR1REG,INERRORX RELATIVE ERROR TO BE PROCESSED.  A45713
00128C                             3714+IC001045 EQU   *
00128C 58F0 B210            013FC  3715+         L     EPLOCREG,ICMSGRTN ADDRESS OF MESSAGE ROUTINE.     A45713
001290                             3716+         DS    0H
001290 4110 9890            00890  3717+         LA    1,INSVCRTN LOAD PARAMETER REG 1
001294 5090 1000            00000  3718+         ST    (COMMREG),0(0,1) STORE INTO PARAM. LIST
001298 5050 1004            00004  3719+         ST    (ERR1REG),4(0,1) STORE INTO PARAM. LIST
00129C 5060 1008            00008  3720+         ST    (ERR2REG),8(0,1) STORE INTO PARAM. LIST
0012A0 5070 100C            0000C  3721+         ST    (DATA1REG),12(0,1) STORE INTO PARAM. LIST
0012A4 5080 1010            00010  3722+         ST    (DATA2REG),16(0,1) STORE INTO PARAM. LIST
0012A8 05EF                        3723+         BALR  14,15 BRANCH TO ENTRY POINT
0012AA 47F0 B14A            01336  3724+         B     IC001065 BRANCH TO RETURN TO CALLER WITH RC=4.


0012AE                             3726+IC001050 EQU   * A45713
0012AE 5860 B20C            013F8  3727+         L     PCLREG,ICPTPCL ADDRESS OF PCL FOR IKJPARS.
0012B2 5840 400C            0000C  3728+         L     AREAREG,PGPBIBUF ADDRESS OF BUFFER.               A45713
                                   3729+         DROP  AREAREG A45713
0012B6 4170 95B8            005B8  3730+         LA    PDLREG,INPDLPTR SPECIFY ADDRESS OF AREA IN        A45713
                                   3731+*                                  WHICH IKJPARS RETURNS ADDRESS
                                   3732+*                                  OF PDL.
                                   3733+         XC    CATMPLST+(PPLPCL-PPL)(PPLUWA-PPLPCL+L'PPLUWA),CATMPLST+(X
BEIN   IKJEBIN5 - PROMPT FOR DATA SET TYPE PROCESSING                                                          PAGE  102


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0012BA D70F 921C 921C 0021C 0021C      +               PPLPCL-PPL) ZERO IKJPARS PORTION OF PARAMETER
                                   3734+*                                  LIST.
0012C0 4110 9210            00210  3735+         LA    1,CATMPLST LOAD PARAMETER REG 1
0012C4 18E6                        3736+         LR    14,(PCLREG) PICK UP PARAMETER
0012C6 18F7                        3737+         LR    15,(PDLREG) PICK UP PARAMETER
0012C8 1804                        3738+         LR    0,(AREAREG) PICK UP PARAMETER
0012CA 90E0 100C            0000C  3739+         STM   14,0,12(1) STORE INTO PARAM. LIST
0012CE 5090 1018            00018  3740+         ST    (COMMREG),24(0,1) STORE INTO PARAM. LIST
0012D2 41F0 9888            00888  3741+         LA    15,INLINKSF LOAD SUP.PARAMLIST ADR
0012D6 4100 B0F2            012DE  3742+         LA    0,*+8 LOAD EP ADDR IN REG 0
0012DA 47F0 B0FA            012E6  3743+         B     *+12 BRANCH AROUND EP
0012DE C9D2D1D7C1D9E240            3744+         DC    CL8'IKJPARS' EP SYMPOL
0012E6 5000 F000            00000  3745+         ST    0,0(0,15) STORE IN SUP.PARAMLIST
0012EA 4100 0000            00000  3746+         LA    0,0 PICK UP DCB PARM  LC0A
0012EE 400F 0006            00006  3747+         STH   0,6(15) STORE THREE-BYTE  LC0A
0012F2 8800 0010            00010  3748+         SRL   0,16 DCB PARAMETER IN  LC0A
0012F6 420F 0005            00005  3749+         STC   0,5(15) SUPV PARM LIST    LC0A
0012FA 0A06                        3750+         SVC   6 ISSUE LINK SVC
0012FC 12FF                        3751+         LTR   RETCDREG,RETCDREG TEST FOR SUCCESSFUL COMPLETION.
0012FE 4780 B168            01354  3752+         BZ    IC001070 IF SUCCESSFUL, BRANCH TO RETURN    A45713
001302 4150 0008            00008  3753+         LA    ERR1REG,D8
001306 195F                        3754+         CR    ERR1REG,RETCDREG CHECK FOR RETURN CODE 4 OR 8.
001308 47B0 B14A            01336  3755+         BNL   IC001065 IF 4 OR 8, RETURN WITH NO          A45713
                                   3756+*                                  DIAGNOSTIC MESSAGE.
00130C 4150 0004            00004  3757+         LA    ERR1REG,INERROR2 RELATIVE ERROR TO BE PROCESSED.
001310 188F                        3758+         LR    DATA2REG,RETCDREG SAVE RETURN CODE FOR MESSAGE.
001312 5680 B214            01400  3759+         O     DATA2REG,ICPARS INDICATE ROUTINE NAME AS IKJPARS.
001316 0700                        3760+         CNOP  0,4
001318 47F0 B134            01320  3761+         B     *+8 BRANCH AROUND VCON
00131C 00000000                    3762+IHB0183B DC    V(IKJEBIN3) ENTRY POINT ADDRESS
001320 4110 9890            00890  3763+         LA    1,INSVCRTN LOAD PARAMETER REG 1
001324 18E9                        3764+         LR    14,(COMMREG) PICK UP PARAMETER
001326 18F5                        3765+         LR    15,(ERR1REG) PICK UP PARAMETER
001328 90EF 1000            00000  3766+         STM   14,15,0(1) STORE INTO PARAM. LIST
00132C 5080 1010            00010  3767+         ST    (DATA2REG),16(0,1) STORE INTO PARAM. LIST
001330 58F0 B130            0131C  3768+         L     15,IHB0183B LOAD 15 WITH ENTRY ADR
001334 05EF                        3769+         BALR  14,15 BRANCH TO ENTRY POINT
001336                             3770+IC001065 EQU   * A45713
001336 41F0 0004            00004  3771+         LA    RETCDREG,D4(,D0) SET ERROR RETURN CODE FOR CALLER.
00133A                             3772+IC001068 EQU   * A45713
00133A 50D9 0DE8            00DE8  3773+         ST    13,(CANXTSVA-IKJEBECA)(COMMREG) UPDATE NEXT
                                   3774+*                                  AVAILABLE SAVE AREA POINTER.
00133E 18CD                        3775+         LR    12,13 COPY OVER SAVE AREA ADDRESS.
001340 58D0 D004            00004  3776+         L     13,4(,13) ADDRESS OF HIGHER SAVE AREA.
001344 D747 C000 C000 00000 00000  3777+         XC    0(72,12),0(12) ZERO SAVE AREA.
00134A 58E0 D00C            0000C  3778+         L     14,12(0,13) RESTORE REGISTER 14.
00134E 980C D014            00014  3779+         LM    0,12,20(13) RESTORE THE REGISTERS.
001352 07FE                        3780+         BR    14 RETURN.
BEIN   IKJEBIN5 - PROMPT FOR DATA SET TYPE PROCESSING                                                          PAGE  103


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001354                             3782+IC001070 EQU   * A45713
                                   3783+*                                                                A45713
                                   3784+*   DETERMINE IF VALID DATA SET TYPE ENTERED.                    A45713
                                   3785+*                                                                A45713
001354 58C0 95B8            005B8  3786+         L     DATAREG,INPDLPTR OBTAIN POINTER TO PROMPT PDL.    A45713
000000                             3787+         USING ICDSTPDL,DATAREG ESTAB. ADDRESSABILITY TO PDL.    A45713
001358 4820 C008            00008  3788+         LH    INDEXREG,INDSTYP2 OBTAIN KEYWORD NO.              A45713
00135C 1222                        3789+         LTR   INDEXREG,INDEXREG CHECK IF DSTYPE ENTERED.        A45713
00135E 4770 B1B2            0139E  3790+         BNZ   IC001080 IF YES, BRANCH TO PROCESS DSTYPE.  A45713
001362 5810 95B8            005B8  3791+         L     1,INPDLPTR FETCH PDL ADDRESS
001366 4111 0000            00000  3792+         LA    1,0(1) CLEAR HIGH ORDER BYTE
00136A 1211                        3793+         LTR   1,1 WAS A PDL RETURNED
00136C 4780 B19C            01388  3794+         BZ    IKJ$0187 IF NO SKIP FREEMAIN
001370                             3795+IKJ@0187 DS    0H FREE PDL LOOP
001370 58E1 0000            00000  3796+         L     14,0(1) LOAD NEXT AREA ADDRESS TO FREE
001374 5801 0004            00004  3797+         L     0,4(1) LOAD SUBPOOL AND LENGTH
001378 4111 0000            00000  3798+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
00137C 0A0A                        3799+         SVC   10 ISSUE FREEMAIN SVC         P2504
00137E 41EE 0000            00000  3800+         LA    14,0(14) CLEAR HIGH ORDER BYTE
001382 121E                        3801+         LTR   1,14 ANY MORE CORE TO FREE
001384 4770 B184            01370  3802+         BNZ   IKJ@0187 REPEAT LOOP UNTIL DONE
001388                             3803+IKJ$0187 DS    0H BRANCHED TO IF FREEMAIN SKIPPED
001388 4800 4000            00000  3804+         LH    PARMREG0,D0(,AREAREG) LENGTH OF PUTGET BFR.       A45713
00138C 5810 95B4            005B4  3805+         L     PARMREG1,INPGLIST+PGPBIBUF-PGPB PTR TO BFR ADDR.  A45713
001390 5600 B24C            01438  3806+         O     PARMREG0,ICSUBPL1 SET SUBPOOL VALUE TO ONE.       A45713
001394 4111 0000            00000  3807+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
001398 0A0A                        3808+         SVC   10 ISSUE FREEMAIN SVC         P2504
00139A 47F0 B01A            01206  3809+         B     IC001010 BRANCH TO RE-PROMPT USER.          A45713


00139E                             3811+IC001080 EQU   * A45713
00139E 8920 0003            00003  3812+         SLL   INDEXREG,D3(D0) MULTIPLY INDEX BY EIGHT.          A45713
0013A2 5840 B21C            01408  3813+         L     AREAREG,ICPTTYPE ADDRESS OF DATA SET TYPE TABLE.  A45713
0013A6 4B40 B250            0143C  3814+         SH    AREAREG,ICCONST8 SUBTRACT EIGHT FOR ZERO ORIGIN.  A45713
0013AA 4142 4000            00000  3815+         LA    AREAREG,D0(INDEXREG,AREAREG) OBTAIN ADDRESS OF    A45713
                                   3816+*                                  DATA SET TYPE SPECIFIED.      A45713
0013AE D207 9098 4000 00098 00000  3817+         MVC   CADSTYPE(INDSTELN),D0(AREAREG) MOVE DATA SET TYPE A45713
                                   3818+*                                  INTO COMMUNICATION AREA.      A45713
0013B4 4100 B1D0            013BC  3819+         LA    0,*+8 LOAD PARAMETER INTO REGISTER ZERO
0013B8 47F0 B1D8            013C4  3820+         B     *+12 BRANCH AROUND CONSTANT(S)
0013BC C9D2D1C5C2C5D7E2            3821+         DC    CL8'IKJEBEPS' ENTRY POINT NAME
0013C4 1B11                        3822+         SR    1,1 SHOW NO DCB PRESENT
0013C6 0A08                        3823+         SVC   8 ISSUE LOAD SVC
0013C8 18F0                        3824+         LR    EPLOCREG,PARMREG0 COPY ENTRY POINT ADDRESS.
0013CA                             3825+         DS    0H
0013CA 4110 9098            00098  3826+         LA    1,CADSTYPE LOAD PARAMETER REG 1
0013CE 05EF                        3827+         BALR  14,15 BRANCH TO ENTRY POINT
0013D0 12FF                        3828+         LTR   RETCDREG,RETCDREG TEST FOR SUCCESSFUL COMPLETION.
0013D2 4780 B200            013EC  3829+         BZ    IC002070 BRANCH TO MOVE TABLE ENTRY TO THE
                                   3830+*                                  COMMUNICATION AREA.
0013D6 41F0 0004            00004  3831+         LA    RETCDREG,RCODE4 SET RETURN CODE 4 FOR CALLER.     A45713
0013DA                             3832+IC002060 EQU   *
0013DA 4500 B1FA            013E6  3833+         BAL   0,*+12 LOAD ADDR OF EP SYMBOL
0013DE C9D2D1C5C2C5D7E2            3834+         DC    CL8'IKJEBEPS' EP SYMBOL
0013E6 0A09                        3835+         SVC   9 ISSUE DELETE SVC
BEIN   IKJEBIN5 - PROMPT FOR DATA SET TYPE PROCESSING                                                          PAGE  104


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0013E8 47F0 B14E            0133A  3836+         B     IC001068 BRANCH TO RETURN TO CALLER.        A45713
0013EC                             3837+IC002070 EQU   *
0013EC D249 9098 1000 00098 00000  3838+         MVC   CADSTYPE(CAPDEND-CAPD),D0(PARMREG1) MOVE DATA SET
                                   3839+*                                  DEPENDENT INFORMATION TO THE
                                   3840+*                                  COMMUNICATION AREA.
0013F2 1BFF                        3841+         SR    RETCDREG,RETCDREG SET SUCCESSFUL RETURN CODE FOR
                                   3842+*                                  IKJPARS.
0013F4 47F0 B1EE            013DA  3843+         B     IC002060 BRANCH TO DELETE IKJEBEPS.
BEIN   IKJEBIN5 - PROMPT FOR DATA SET TYPE PROCESSING                                                          PAGE  105


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3845+***********************************************************************
                                   3846+*                                                                     *
                                   3847+*   EQUATES, CONSTANTS, AND AREAS USED BY THIS CSECT.                 *
                                   3848+*                                                                     *
                                   3849+***********************************************************************
0013F8 00001440                    3850+ICPTPCL  DC    A(IKJEBIN6) ADDRESS OF PCL FOR DATA SET TYPE
                                   3851+*                                  PROMPT.
0013FC 00000000                    3852+ICMSGRTN DC    V(IKJEBIN3) ADDRESS OF MESSAGE ROUTINE.
001400 01000000                    3853+ICPARS   DC    XL4'01000000' INDICATOR FOR IKJPARS SERVICE
                                   3854+*                                  ROUTINE.
001404 07000000                    3855+ICPTGT   DC    XL4'07000000' INDICATOR FOR IKJPTGT SERV. RTN.
001408 00000000                    3856+ICPTTYPE DC    V(IKJEBIN0) ADDRESS OF DATA SET TYPE TABLE.

                                   3858+*   DATA SET TYPE PROMPT MESSAGE.                                A45713
00140C 0022                        3859+INPRMTMG DC    AL2(INPRMTLN) MESSAGE LENGTH.                    A45713
00140E 0000                        3860+         DC    H'0' MESSAGE OFFSET.                    A45713
001410 C9D2D1F5F2F5F6F7            3861+         DC    C'IKJ52567A ' MESSAGE IDENTIFIER.                A45713
00141A C5D5E3C5D940C4C1            3862+         DC    C'ENTER DATA SET TYPE-' MESSAGE TEXT.             A45713
000022                             3863+INPRMTLN EQU   *-INPRMTMG LENGTH OF PROMPT MESSAGE.          A45713
                                   3864+* OUTPUT LINE DESCRIPTOR FOR DSTYPE PROMPT MESSAGE.              A45713
00142E 0000
001430 00000001                    3865+INPMTOLD DC    F'1' NO. OF MESSAGE SEGMENTS.           A45713
001434 0000140C                    3866+         DC    A(INPRMTMG) ADDRESS OF MESSAGE.                A45713

001438 01000000                    3868+ICSUBPL1 DC    XL4'01000000' INDICATOR FOR SUBPOOL ONE.         A45713
00143C 0008                        3869+ICCONST8 DC    H'8' CONSTANT OF EIGHT.                 A45713
BEIN   IKJEBIN6 - PCL FOR DATA SET TYPE PROMPT                                                                 PAGE  106


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001440                             3871+IKJEBIN6 CSECT  ,                       ENTER PCL CSECT
001440 0142                        3872+         DC    AL2(IKJ$0195-IKJEBIN6) LENGTH OF CSECT
001442 0028                        3873+         DC    AL2(IKJ@0195) LENGTH OF DSECT
001444 0006                        3874+         DC    AL2(IKJ@0196) OFFSET TO FIRST KEYWORD OR END
001440                             3875+IKJEBIN6 CSECT  ,                       RESUME USERS CSECT
000000                             3876+ICDSTPDL DSECT
000000                             3877+         DS    2A FOR STORAGE CHAINS
0011D8                             3878+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3879+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
000006                             3880+IKJ@0196 EQU   *-IKJEBIN6 OFFSET TO FIRST KEYWORD
001446                             3881+KEYW0197 EQU   *
001446 4000                        3882+         DC    BL2'0100000000000000' FLAGS
001448 0006                        3883+         DC    AL2(KEND0197-KEYW0197) LENGTH OF PCE
00144A 0008                        3884+         DC    AL2(INDSTYP2-ICDSTPDL) OFFSET TO LABEL
00144C                             3885+KEND0197 EQU   *
000000                             3886+ICDSTPDL DSECT
000008                             3887+INDSTYP2 DS    AL2 ALLOCATE PDE SPACE
0011D8                             3888+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3889+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
00144C                             3890+NAME0198 EQU   *
00144C 6400                        3891+         DC    BL2'0110010000000000' FLAGS
00144E 000A                        3892+         DC    AL2(NEND0198-NAME0198) LENGTH OF PCE
001450 02D7D3C9                    3893+         DC    AL1(IKJ@0198-*-2),C'PLI' NAME VALID FOR KEYWORD
001454                             3894+IKJ@0198 EQU   *
001454 00A4                        3895+         DC    AL2(INPLI2-IKJEBIN6) OFFSET TO SUBFIELD
001456                             3896+NEND0198 EQU   *
0011D8                             3897+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3898+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
001456                             3899+NAME0199 EQU   *
001456 6000                        3900+         DC    BL2'0110000000000000' FLAGS
001458 000A                        3901+         DC    AL2(NEND0199-NAME0199) LENGTH OF PCE
00145A 04C3D6C2D6D3                3902+         DC    AL1(IKJ@0199-*-2),C'COBOL' NAME VALID FOR KEYWORD
001460                             3903+IKJ@0199 EQU   *
001460                             3904+NEND0199 EQU   *
0011D8                             3905+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3906+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
001460                             3907+NAME0200 EQU   *
001460 6000                        3908+         DC    BL2'0110000000000000' FLAGS
001462 0008                        3909+         DC    AL2(NEND0200-NAME0200) LENGTH OF PCE
001464 02C1E2D4                    3910+         DC    AL1(IKJ@0200-*-2),C'ASM' NAME VALID FOR KEYWORD
001468                             3911+IKJ@0200 EQU   *
001468                             3912+NEND0200 EQU   *
0011D8                             3913+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3914+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
001468                             3915+NAME0201 EQU   *
001468 6000                        3916+         DC    BL2'0110000000000000' FLAGS
00146A 0009                        3917+         DC    AL2(NEND0201-NAME0201) LENGTH OF PCE
00146C 03E3C5E7E3                  3918+         DC    AL1(IKJ@0201-*-2),C'TEXT' NAME VALID FOR KEYWORD
001471                             3919+IKJ@0201 EQU   *
001471                             3920+NEND0201 EQU   *
0011D8                             3921+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3922+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
001471                             3923+NAME0202 EQU   *
001471 6000                        3924+         DC    BL2'0110000000000000' FLAGS
001473 0009                        3925+         DC    AL2(NEND0202-NAME0202) LENGTH OF PCE
BEIN   IKJEBIN6 - PCL FOR DATA SET TYPE PROMPT                                                                 PAGE  107


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001475 03C4C1E3C1                  3926+         DC    AL1(IKJ@0202-*-2),C'DATA' NAME VALID FOR KEYWORD
00147A                             3927+IKJ@0202 EQU   *
00147A                             3928+NEND0202 EQU   *
0011D8                             3929+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3930+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
00147A                             3931+NAME0203 EQU   *
00147A 6000                        3932+         DC    BL2'0110000000000000' FLAGS
00147C 000A                        3933+         DC    AL2(NEND0203-NAME0203) LENGTH OF PCE
00147E 04C3D3C9E2E3                3934+         DC    AL1(IKJ@0203-*-2),C'CLIST' NAME VALID FOR KEYWORD
001484                             3935+IKJ@0203 EQU   *
001484                             3936+NEND0203 EQU   *
0011D8                             3937+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3938+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
001484                             3939+NAME0204 EQU   *
001484 6000                        3940+         DC    BL2'0110000000000000' FLAGS
001486 0009                        3941+         DC    AL2(NEND0204-NAME0204) LENGTH OF PCE
001488 03C3D5E3D3                  3942+         DC    AL1(IKJ@0204-*-2),C'CNTL' NAME VALID FOR KEYWORD
00148D                             3943+IKJ@0204 EQU   *
00148D                             3944+NEND0204 EQU   *
0011D8                             3945+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3946+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
00148D                             3947+NAME0205 EQU   *
00148D 6000                        3948+         DC    BL2'0110000000000000' FLAGS
00148F 000A                        3949+         DC    AL2(NEND0205-NAME0205) LENGTH OF PCE
001491 04C2C1E2C9C3                3950+         DC    AL1(IKJ@0205-*-2),C'BASIC' NAME VALID FOR KEYWORD
001497                             3951+IKJ@0205 EQU   *
001497                             3952+NEND0205 EQU   *
0011D8                             3953+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3954+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
001497                             3955+NAME0206 EQU   *
001497 6400                        3956+         DC    BL2'0110010000000000' FLAGS
001499 000B                        3957+         DC    AL2(NEND0206-NAME0206) LENGTH OF PCE
00149B 03C9D7D3C9                  3958+         DC    AL1(IKJ@0206-*-2),C'IPLI' NAME VALID FOR KEYWORD
0014A0                             3959+IKJ@0206 EQU   *
0014A0 00FB                        3960+         DC    AL2(INIPLI2-IKJEBIN6) OFFSET TO SUBFIELD
0014A2                             3961+NEND0206 EQU   *
0011D8                             3962+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3963+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
0014A2                             3964+NAME0207 EQU   *
0014A2 6400                        3965+         DC    BL2'0110010000000000' FLAGS
0014A4 000D                        3966+         DC    AL2(NEND0207-NAME0207) LENGTH OF PCE
0014A6 05C7D6C6D6D9E3              3967+         DC    AL1(IKJ@0207-*-2),C'GOFORT' NAME VALID FOR KEYWORD
0014AD                             3968+IKJ@0207 EQU   *
0014AD 0121                        3969+         DC    AL2(INTSFTN2-IKJEBIN6) OFFSET TO SUBFIELD
0014AF                             3970+NEND0207 EQU   *
0011D8                             3971+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3972+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
0014AF                             3973+NAME0208 EQU   *
0014AF 6000                        3974+         DC    BL2'0110000000000000' FLAGS
0014B1 000A                        3975+         DC    AL2(NEND0208-NAME0208) LENGTH OF PCE
0014B3 04C6D6D9E3C5                3976+         DC    AL1(IKJ@0208-*-2),C'FORTE' NAME VALID FOR KEYWORD
0014B9                             3977+IKJ@0208 EQU   *
0014B9                             3978+NEND0208 EQU   *
0011D8                             3979+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3980+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
BEIN   IKJEBIN6 - PCL FOR DATA SET TYPE PROMPT                                                                 PAGE  108


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0014B9                             3981+NAME0209 EQU   *
0014B9 6000                        3982+         DC    BL2'0110000000000000' FLAGS
0014BB 000A                        3983+         DC    AL2(NEND0209-NAME0209) LENGTH OF PCE
0014BD 04C6D6D9E3C7                3984+         DC    AL1(IKJ@0209-*-2),C'FORTG' NAME VALID FOR KEYWORD
0014C3                             3985+IKJ@0209 EQU   *
0014C3                             3986+NEND0209 EQU   *
0011D8                             3987+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3988+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
0014C3                             3989+NAME0210 EQU   *
0014C3 6000                        3990+         DC    BL2'0110000000000000' FLAGS
0014C5 000B                        3991+         DC    AL2(NEND0210-NAME0210) LENGTH OF PCE
0014C7 05C6D6D9E3C7C9              3992+         DC    AL1(IKJ@0210-*-2),C'FORTGI' NAME VALID FOR KEYWORD
0014CE                             3993+IKJ@0210 EQU   *
0014CE                             3994+NEND0210 EQU   *
0011D8                             3995+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             3996+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
0014CE                             3997+NAME0211 EQU   *
0014CE 6000                        3998+         DC    BL2'0110000000000000' FLAGS
0014D0 000A                        3999+         DC    AL2(NEND0211-NAME0211) LENGTH OF PCE
0014D2 04C6D6D9E3C8                4000+         DC    AL1(IKJ@0211-*-2),C'FORTH' NAME VALID FOR KEYWORD
0014D8                             4001+IKJ@0211 EQU   *
0014D8                             4002+NEND0211 EQU   *
0011D8                             4003+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4004+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
0014D8                             4005+NAME0212 EQU   *
0014D8 6400                        4006+         DC    BL2'0110010000000000' FLAGS
0014DA 000B                        4007+         DC    AL2(NEND0212-NAME0212) LENGTH OF PCE
0014DC 03D7D3C9C6                  4008+         DC    AL1(IKJ@0212-*-2),C'PLIF' NAME VALID FOR KEYWORD
0014E1                             4009+IKJ@0212 EQU   *
0014E1 00A4                        4010+         DC    AL2(INPLI2-IKJEBIN6) OFFSET TO SUBFIELD
0014E3                             4011+NEND0212 EQU   *
0011D8                             4012+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
                                   4013+*                             SUBFIELD DESCRIPTION FOR PL1.      A45714
001440                             4014+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
0014E3 00                          4015+         DC    AL1(0) END OF FIELD
0014E4 00D7                        4016+INPLI2   DC    AL2(IKJ@0213) OFFSET TO FIRST KEYWORD OR END
0011D8                             4017+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4018+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
                                   4019+* FLAGS -    BIT3=PROMPT,  BIT4=DEFAULT,  BIT5=NOT USED,  BIT6=HELP,
                                   4020+*            BIT7=VALIDCK, BIT8=LIST,     BIT9=ASIS,      BIT10=RANGE
0014E6                             4021+DENT0214 EQU   *
0014E6 8900                        4022+         DC    BL2'1000100100000000' FLAGS
0014E8 0018                        4023+         DC    AL2(DEND0214-DENT0214) LENGTH OF PCE
0014EA 000C                        4024+         DC    AL2(INPLICL1-ICDSTPDL) OFFSET TO PDE
                                   4025+* OPTIONS -  BIT0 = ASTERISK,  BIT1 = MAXLNTH,  BIT2 = PTBYPS
0014EC 00                          4026+         DC    BL1'00000000' OPTIONS SPECIFIED
0014ED 02                          4027+         DC    AL1(2) FIRST CHARACTER RESTRICTION
0014EE 02                          4028+         DC    AL1(2) RESTRICTION ON CHAR OTHER THAN FIRST
                                   4029+         DC    AL2(IKJ@0214-*),AL2(18),C'NUMBER' PARAMETER TYPE MESSAGEX
0014EF 000A0012D5E4D4C2                +                SEGMENT
0014F9                             4030+IKJ@0214 EQU   *
0014F9 00F2                        4031+         DC    AL1(IKJ$0214-*-2),C'2' DEFAULT DATA
0014FB                             4032+IKJ$0214 EQU   *
0014FB 001160                      4033+         DC    AL3(IKJEBIN4) VALIDCK ROUTINE ADDRESS
0014FE                             4034+DEND0214 EQU   *
BEIN   IKJEBIN6 - PCL FOR DATA SET TYPE PROMPT                                                                 PAGE  109


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             4035+ICDSTPDL DSECT
00000C                             4036+INPLICL1 DS    2A ALLOCATE PDE SPACE
0011D8                             4037+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4038+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
                                   4039+* FLAGS -    BIT3=PROMPT,  BIT4=DEFAULT,  BIT5=NOT USED,  BIT6=HELP,
                                   4040+*            BIT7=VALIDCK, BIT8=LIST,     BIT9=ASIS,      BIT10=RANGE
0014FE                             4041+DENT0215 EQU   *
0014FE 8900                        4042+         DC    BL2'1000100100000000' FLAGS
001500 0019                        4043+         DC    AL2(DEND0215-DENT0215) LENGTH OF PCE
001502 0014                        4044+         DC    AL2(INPLICL2-ICDSTPDL) OFFSET TO PDE
                                   4045+* OPTIONS -  BIT0 = ASTERISK,  BIT1 = MAXLNTH,  BIT2 = PTBYPS
001504 00                          4046+         DC    BL1'00000000' OPTIONS SPECIFIED
001505 02                          4047+         DC    AL1(2) FIRST CHARACTER RESTRICTION
001506 02                          4048+         DC    AL1(2) RESTRICTION ON CHAR OTHER THAN FIRST
                                   4049+         DC    AL2(IKJ@0215-*),AL2(18),C'NUMBER' PARAMETER TYPE MESSAGEX
001507 000A0012D5E4D4C2                +                SEGMENT
001511                             4050+IKJ@0215 EQU   *
001511 01F7F2                      4051+         DC    AL1(IKJ$0215-*-2),C'72' DEFAULT DATA
001514                             4052+IKJ$0215 EQU   *
001514 001160                      4053+         DC    AL3(IKJEBIN4) VALIDCK ROUTINE ADDRESS
001517                             4054+DEND0215 EQU   *
000000                             4055+ICDSTPDL DSECT
000014                             4056+INPLICL2 DS    2A ALLOCATE PDE SPACE
0011D8                             4057+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4058+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
0000D7                             4059+IKJ@0213 EQU   *-IKJEBIN6 OFFSET TO FIRST KEYWORD
001517                             4060+KEYW0216 EQU   *
001517 4800                        4061+         DC    BL2'0100100000000000' FLAGS
001519 000D                        4062+         DC    AL2(KEND0216-KEYW0216) LENGTH OF PCE
00151B 001C                        4063+         DC    AL2(INPLITYP-ICDSTPDL) OFFSET TO LABEL
00151D 05C3C8C1D9F6F0              4064+         DC    AL1(IKJ@0216-*-2),C'CHAR60' DEFAULT
001524                             4065+IKJ@0216 EQU   *
001524                             4066+KEND0216 EQU   *
000000                             4067+ICDSTPDL DSECT
00001C                             4068+INPLITYP DS    AL2 ALLOCATE PDE SPACE
0011D8                             4069+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4070+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
001524                             4071+NAME0217 EQU   *
001524 6000                        4072+         DC    BL2'0110000000000000' FLAGS
001526 000B                        4073+         DC    AL2(NEND0217-NAME0217) LENGTH OF PCE
001528 05C3C8C1D9F6F0              4074+         DC    AL1(IKJ@0217-*-2),C'CHAR60' NAME VALID FOR KEYWORD
00152F                             4075+IKJ@0217 EQU   *
00152F                             4076+NEND0217 EQU   *
0011D8                             4077+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4078+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
00152F                             4079+NAME0218 EQU   *
00152F 6000                        4080+         DC    BL2'0110000000000000' FLAGS
001531 000B                        4081+         DC    AL2(NEND0218-NAME0218) LENGTH OF PCE
001533 05C3C8C1D9F4F8              4082+         DC    AL1(IKJ@0218-*-2),C'CHAR48' NAME VALID FOR KEYWORD
00153A                             4083+IKJ@0218 EQU   *
00153A                             4084+NEND0218 EQU   *
0011D8                             4085+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4086+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
00153A 00                          4087+         DC    AL1(0) END OF FIELD
00153B 00FD                        4088+INIPLI2  DC    AL2(IKJ@0219) OFFSET TO FIRST KEYWORD OR END
BEIN   IKJEBIN6 - PCL FOR DATA SET TYPE PROMPT                                                                 PAGE  110


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0011D8                             4089+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4090+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
0000FD                             4091+IKJ@0219 EQU   *-IKJEBIN6 OFFSET TO FIRST KEYWORD
00153D                             4092+KEYW0220 EQU   *
00153D 4800                        4093+         DC    BL2'0100100000000000' FLAGS
00153F 000D                        4094+         DC    AL2(KEND0220-KEYW0220) LENGTH OF PCE
001541 001E                        4095+         DC    AL2(INIPLIC2-ICDSTPDL) OFFSET TO LABEL
001543 05C3C8C1D9F6F0              4096+         DC    AL1(IKJ@0220-*-2),C'CHAR60' DEFAULT
00154A                             4097+IKJ@0220 EQU   *
00154A                             4098+KEND0220 EQU   *
000000                             4099+ICDSTPDL DSECT
00001E                             4100+INIPLIC2 DS    AL2 ALLOCATE PDE SPACE
0011D8                             4101+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4102+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
00154A                             4103+NAME0221 EQU   *
00154A 6000                        4104+         DC    BL2'0110000000000000' FLAGS
00154C 000B                        4105+         DC    AL2(NEND0221-NAME0221) LENGTH OF PCE
00154E 05C3C8C1D9F6F0              4106+         DC    AL1(IKJ@0221-*-2),C'CHAR60' NAME VALID FOR KEYWORD
001555                             4107+IKJ@0221 EQU   *
001555                             4108+NEND0221 EQU   *
0011D8                             4109+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4110+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
001555                             4111+NAME0222 EQU   *
001555 6000                        4112+         DC    BL2'0110000000000000' FLAGS
001557 000B                        4113+         DC    AL2(NEND0222-NAME0222) LENGTH OF PCE
001559 05C3C8C1D9F4F8              4114+         DC    AL1(IKJ@0222-*-2),C'CHAR48' NAME VALID FOR KEYWORD
001560                             4115+IKJ@0222 EQU   *
001560                             4116+NEND0222 EQU   *
0011D8                             4117+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
                                   4118+*                             SUBFIELD DESCRIPTION FOR GOFORT.   A45714
001440                             4119+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
001560 00                          4120+         DC    AL1(0) END OF FIELD
001561 0123                        4121+INTSFTN2 DC    AL2(IKJ@0223) OFFSET TO FIRST KEYWORD OR END
0011D8                             4122+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4123+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
000123                             4124+IKJ@0223 EQU   *-IKJEBIN6 OFFSET TO FIRST KEYWORD
001563                             4125+KEYW0224 EQU   *
001563 4800                        4126+         DC    BL2'0100100000000000' FLAGS
001565 000B                        4127+         DC    AL2(KEND0224-KEYW0224) LENGTH OF PCE
001567 0020                        4128+         DC    AL2(INTSFTF2-ICDSTPDL) OFFSET TO LABEL
001569 03C6D9C5C5                  4129+         DC    AL1(IKJ@0224-*-2),C'FREE' DEFAULT
00156E                             4130+IKJ@0224 EQU   *
00156E                             4131+KEND0224 EQU   *
000000                             4132+ICDSTPDL DSECT
000020                             4133+INTSFTF2 DS    AL2 ALLOCATE PDE SPACE
0011D8                             4134+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4135+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
00156E                             4136+NAME0225 EQU   *
00156E 6000                        4137+         DC    BL2'0110000000000000' FLAGS
001570 0009                        4138+         DC    AL2(NEND0225-NAME0225) LENGTH OF PCE
001572 03C6D9C5C5                  4139+         DC    AL1(IKJ@0225-*-2),C'FREE' NAME VALID FOR KEYWORD
001577                             4140+IKJ@0225 EQU   *
001577                             4141+NEND0225 EQU   *
0011D8                             4142+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4143+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
BEIN   IKJEBIN6 - PCL FOR DATA SET TYPE PROMPT                                                                 PAGE  111


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001577                             4144+NAME0226 EQU   *
001577 6000                        4145+         DC    BL2'0110000000000000' FLAGS
001579 000A                        4146+         DC    AL2(NEND0226-NAME0226) LENGTH OF PCE
00157B 04C6C9E7C5C4                4147+         DC    AL1(IKJ@0226-*-2),C'FIXED' NAME VALID FOR KEYWORD
001581                             4148+IKJ@0226 EQU   *
001581                             4149+NEND0226 EQU   *
0011D8                             4150+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
001440                             4151+IKJEBIN6 CSECT  ,                       RESUME PCL CSECT
001581 00                          4152+         DC    AL1(0) END OF FIELD
000000                             4153+ICDSTPDL DSECT
000028                             4154+         DS    0D ALIGN TO DOUBLEWORD FOR STG. ALLOCATOR
000028                             4155+IKJ@0195 EQU   *-ICDSTPDL LENGTH OF BASIC PDL
001440                             4156+IKJEBIN6 CSECT
001582                             4157+IKJ$0195 EQU   *
0011D8                             4158+IKJEBIN5 CSECT  ,                       RESUME USERS CSECT
BEIN   IKJEBIN6 - PCL FOR DATA SET TYPE PROMPT                                                                 PAGE  112


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  113


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4161+***********************************************************************
                                   4162+*                                                                     *
                                   4163+* STATUS -- VERSION NO. 01, OS/360 RELEASE NO. 20                     *
                                   4164+*                                                                     *
                                   4165+* FUNCTION -- THIS ROUTINE IS CALLED BY THE IKJEBEIN CSECT OF THE     *
                                   4166+*    EDIT INITIALIZATION PROGRAM WHENEVER A PARTIALLY QUALIFIED       *
                                   4167+*    DSNAME IS ENTERED ON THE EDIT COMMAND.  IT SCANS OFF THE         *
                                   4168+*    RIGHTMOST QUALIFIER OF THE DSNAME AND DETERMINES IF THE NAME     *
                                   4169+*    IS (1) SINGLE-LEVEL OR (2) MULTI-LEVEL.  IF SINGLE-LEVEL, IT     *
                                   4170+*    UNCONDITIONALLY APPENDS A DESCRIPTIVE QUALIFIER FOR THE DATA     *
                                   4171+*    SET TYPE ENTERED OR PROMPTED FOR.  IT ALSO TAKES THE ABOVE       *
                                   4172+*    ACTION WHEN THE RIGHTMOST QUALIFIER OF A MULTI-LEVEL NAME IS NOT *
                                   4173+*    DESCRIPTIVE FOR THE DATA SET TYPE ENTERED ON THE COMMAND.  IF    *
                                   4174+*    THE NAME IS MULTI-LEVEL AND DATA SET TYPE WAS NOT SPECIFIED,     *
                                   4175+*    IT DETERMINES WHETHER THE RIGHTMOST QUALIFIER IS DESCRIPTIVE     *
                                   4176+*    FOR ANY DATA SET TYPE BY LOADING AND CALLING THE EDIT            *
                                   4177+*    PROCESSOR SEARCH ROUTINE (IKJEBEPS).  IF THE QUALIFIER IS        *
                                   4178+*    DESCRIPTIVE, DATA SET TYPE DEFAULTS BASED ON THE QUALIFIER.      *
                                   4179+*    OTHERWISE DATA SET TYPE IS PROMPTED FOR AND THE ASSOCIATED       *
                                   4180+*    QUALIFIER IS APPENDED TO THE DSNAME ENTERED.  THE PARTIALLY-     *
                                   4181+*    QUALIFIED NAME IS ALWAYS ADJUSTED SUCH THAT PARAMETERS FOR THE   *
                                   4182+*    DEFAULT SERVICE ROUTINE (IKJDFLT) DO NOT CONTAIN ANY             *
                                   4183+*    REDUNDANCY BETWEEN (1) THE RIGHTMOST QUALIFIER OF THE DSNAME AND *
                                   4184+*    (2) THE QUALIFIER TO BE SUFFIXED TO THE NAME.  THE DEFAULT       *
                                   4185+*    SERVICE ROUTINE IS INVOKED TO (1) FULLY QUALIFY THE NAME         *
                                   4186+*    SYNTACTICALLY AND (2) TO PERFORM A CATALOG SEARCH ON THE FULLY   *
                                   4187+*    QUALIFIED DSNAME.  THE RETURN CODE FROM THE DEFAULT SERVICE      *
                                   4188+*    ROUTINE IS CHECKED AND ERROR MESSAGES ISSUED IF NECESSARY.       *
                                   4189+*                                                                     *
                                   4190+* ENTRY POINTS --                                                     *
                                   4191+*         IKJEBIN7 - VIA CALL MACRO FROM IKJEBEIN, THE MAIN CSECT     *
                                   4192+*                    OF THE EDIT INITIALIZATION PROGRAM WHEN A        *
                                   4193+*                    PARTIALLY QUALIFIED DSNAME IS ENTERED ON THE     *
                                   4194+*                    EDIT COMMAND.                                    *
                                   4195+*                                                                     *
                                   4196+* INPUT --                                                            *
                                   4197+*    REGISTER ONE (1) CONTAINS A POINTER TO A WORD CONTAINING THE     *
                                   4198+*    ADDRESS OF THE EDIT COMMUNICATION AREA.                          *
                                   4199+*                                                                     *
                                   4200+* OUTPUT --                                                           *
                                   4201+*    REGISTER FIFTEEN (15) CONTAINS ONE OF THE FOLLOWING              *
                                   4202+*    RETURN CODES --                                                  *
                                   4203+*                                                                     *
                                   4204+*    00 - SUCCESSFUL COMPLETION.                                      *
                                   4205+*    04 - TERMINATION REQUIRED - ERROR OCCURRED.                      *
                                   4206+*                                                                     *
                                   4207+* EXTERNAL REFERENCES --                                              *
                                   4208+*                                                                     *
                                   4209+*         IKJDFLT  - DEFAULT SERVICE ROUTINE, INVOKED VIA LINK TO     *
                                   4210+*                    QUALIFY THE NAME SUPPLIED BY THE USER AND TO     *
                                   4211+*                    PERFORM A CATALOG SEARCH ON IT.                  *
                                   4212+*         IKJEBIN3 - CSECT OF EDIT INITIALIZATION CALLED FOR          *
                                   4213+*                    INITIAL MESSAGE PROCESSING.                      *
                                   4214+*         IKJEBIN5 - CSECT OF EDIT INITIALIZATION CALLED TO PROMPT    *
                                   4215+*                    THE USER FOR DATA SET TYPE.                      *
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  114


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4216+*                                                                     *
                                   4217+*    MACROS USED --                                                   *
                                   4218+*                                                                     *
                                   4219+*         CALL     - USED FOR LINKAGE TO MODULES CONTAINED IN THE     *
                                   4220+*                    LOAD MODULE AS WELL AS IKJEBEPS, THE PROCESSOR   *
                                   4221+*                    SEARCH ROUTINE.                                  *
                                   4222+*         DELETE   - USED TO DELETE THE IKJEBEPS MODULE FROM MAIN     *
                                   4223+*                    STORAGE.                                         *
                                   4224+*         IKJEBERT - RETURN LINKAGE WITHIN THE EDIT COMMAND PROCESSOR.*
                                   4225+*         IKJEBESV - ENTRY LINKAGE WITHIN THE EDIT COMMAND PROCESSOR. *
                                   4226+*         LINK     - ISSUED TO INVOKE THE DEFAULT SERVICE ROUTINE.    *
                                   4227+*         LOAD     - ISSUED TO LOAD IKJEBEPS INTO MAIN STORAGE.       *
                                   4228+*                                                                     *
                                   4229+* EXITS, NORMAL --                                                    *
                                   4230+*    RETURN TO IKJEBEIN BY BRANCHING ON REGISTER FOURTEEN (14)        *
                                   4231+*    WITH REGISTER FIFTEEN (15) SET TO ZERO (0).                      *
                                   4232+*                                                                     *
                                   4233+* EXITS, ERROR --                                                     *
                                   4234+*    RETURN TO IKJEBEIN BY BRANCHING ON REGISTER FOURTEEN (14)        *
                                   4235+*    WITH REGISTER FIFTEEN (15) SET TO FOUR (4).                      *
                                   4236+*                                                                     *
                                   4237+* TABLES/WORK AREAS --                                                *
                                   4238+*                                                                     *
                                   4239+*    THE EDIT COMMUNICATION AREA CONTAINS CONTROL INFORMATION AND     *
                                   4240+*    A WORK AREA FOR THIS ROUTINE.  THE FOLLOWING FIELDS ANR (1) USED *
                                   4241+*    AS INPUT AND (2) ARE UPDATED BY THIS ROUTINE --                  *
                                   4242+*                                                                     *
                                   4243+*    CADSQUAL - DESCRIPTIVE QUALIFIER FIELD.                          *
                                   4244+*                                                                     *
                                   4245+*    CAEDDSN  - DSNAME ENTERED BY THE USER AND QUALIFIED BY THIS      *
                                   4246+*               ROUTINE.                                              *
                                   4247+*                                                                     *
                                   4248+*    THE PROCESSOR TABLE (BEGINNING AT OFFSET 'CAPD') IS INITIALIZED  *
                                   4249+*    BY THIS ROUTINE OR BY IKJEBIN5 WHENEVER THE DATA SET TYPE IS     *
                                   4250+*    DEFAULTED OR PROMPTED FOR.                                       *
                                   4251+*                                                                     *
                                   4252+* ATTRIBUTES --                                                       *
                                   4253+*    REFRESHABLE, ENABLED, NON-PRIVILEGED                             *
                                   4254+*                                                                     *
                                   4255+* CHARACTER CODE DEPENDENCY -- NONE.                                  *
                                   4256+*                                                                     *
                                   4257+* NOTES -- NONE.                                                      *
                                   4258+*                                                                     *
                                   4259+***********************************************************************
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  115


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001588                             4261+IKJEBIN7 CSECT
                                   4262+***********************************************************************
                                   4263+*
                                   4264+*                             PROLOGUE
                                   4265+*
                                   4266+***********************************************************************
001588 47F0 F00E            0000E  4267+         B     14(0,15) BRANCH AROUND ID.
00158C 08                          4268+         DC    AL1(8)
00158D C9D2D1C5C2C9D5F7            4269+         DC    CL8'IKJEBIN7' IDENTIFIER.
001595 00
001596 90EC D00C            0000C  4270+         STM   14,12,12(13) SAVE REGISTERS.
00159A 05B0                        4271+         BALR  BASEREG,0 -    ESTABLISH ADDRESSABILITY FOR THIS
00159C                             4272+         USING *,BASEREG -    ROUTINE.
00159C 5890 1000            00000  4273+         L     COMMREG,D0(,PARMREG1) INITIALIZE COMMUNICATION AREA
                                   4274+*                             POINTER.
0015A0 58F9 0DE8            00DE8  4275+         L     15,(CANXTSVA-IKJEBECA)(COMMREG) ADDRESS OF NEXT
                                   4276+*                             AVAILABLE SAVE AREA.
0015A4 50D0 F004            00004  4277+         ST    13,4(,15) -    CROSS CHAIN PREVIOUS AND CURRENT
0015A8 50F0 D008            00008  4278+         ST    15,8(,13) -    SAVE AREAS.
0015AC 18DF                        4279+         LR    13,15 -        INITIALIZE SAVE AREA POINTER.
0015AE 41F0 D048            00048  4280+         LA    15,72(,13) -   OBTAIN ADDRESS OF NEXT SAVE AREA
0015B2 50F9 0DE8            00DE8  4281+         ST    15,(CANXTSVA-IKJEBECA)(COMMREG) AND SAVE.
000000                             4282+         USING IKJEBECA,COMMREG ESTABLISH COMMUNICATION AREA
                                   4283+*                               ADDRESSABILITY
0015B6 D718 96F8 96F8 006F8 006F8  4284+         XC    IN7WORK(IN7WKLEN),IN7WORK ZERO WORK AREA.
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  116


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4286+***********************************************************************
                                   4287+*
                                   4288+* THIS SECTION SCANS THE USER-SUPPLIED NAME.  IF THE NAME IS NULL OR
                                   4289+* CONTAINS ONE LEVEL ONLY, A SWITCH IS SET TO INDICATE THAT NO
                                   4290+* QUALIFIER CHECKING IS TO BE DONE.  OTHERWISE, THE LENGTH AND
                                   4291+* ADDRESS OF THE RIGHTMOST QUALIFIER ARE ESTABLISHED.
                                   4292+*
                                   4293+***********************************************************************


0015BC 4820 90EE            000EE  4295+         LH    LENREG,CAEDDSNL GET LENGTH OF USER SUPPLIED NAME.
0015C0 4160 0002            00002  4296+         LA    TMPREG,D2 CONSTANT FOR COMPARES.
0015C4 1B26                        4297+         SR    LENREG,TMPREG IF USER NAME IS 2 CHARACTERS OR LESS,
0015C6 47D0 B040            015DC  4298+         BNH   ID000020 BRANCH TO INDICATE SIMPLE NAME.
0015CA 4142 90F0            000F0  4299+         LA    QUALREG,CAEDDSN(LENREG) ADDRESS NEXT-TO-LAST CHAR.
0015CE                             4300+ID000010 EQU   *
0015CE 954B 4000      00000        4301+         CLI   D0(QUALREG),INPERIOD IS CHARACTER A PERIOD -
0015D2 4780 B048            015E4  4302+         BE    ID000030 IF SO, QUALIFIER CHECK IS REQUIRED.
0015D6 0640                        4303+         BCTR  QUALREG,D0 ADDRESS NEXT CHARACTER TO LEFT.
0015D8 4620 B032            015CE  4304+         BCT   LENREG,ID000010 DECREMENT LEN AND REPEAT IF GT 0.
0015DC                             4305+ID000020 EQU   *
0015DC 9640 9710      00710        4306+         OI    IN7FLAGS,IN7NOQLF INDICATE NO QUALIFIER CHECKING.
0015E0 47F0 B054            015F0  4307+         B     ID000040 BRANCH TO CONTINUE PROCESSING.
0015E4                             4308+ID000030 EQU   *
0015E4 94BF 9710      00710        4309+         NI    IN7FLAGS,IN7QLFCK INDICATE QUALIFIER CHECKING.
0015E8 4B20 90EE            000EE  4310+         SH    LENREG,CAEDDSNL SUBTRACT FULL LENGTH FROM LENGTH.
0015EC 1322                        4311+         LCR   LENREG,LENREG COMPLEMENT TO GET QUALIFIER LENGTH.
0015EE 1B26                        4312+         SR    LENREG,TMPREG ADJUST QUALIFIER LENGTH FOR
                                   4313+*                             SS OPERATIONS
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  117


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4315+***********************************************************************
                                   4316+*
                                   4317+* THIS SECTION MAKES NECESSARY CHECKS ON THE RIGHTMOST QUALIFIER.
                                   4318+*
                                   4319+* IF NO QUALIFIER CHECKS ARE NECESSARY, DATA SET TYPE IS PROMPTED
                                   4320+* FOR IF NOT ENTERED ON THE COMMAND.  THE DEFAULT SERVICE ROUTINE
                                   4321+* MAY THEN BE INVOKED TO QUALIFY THE USER-SUPPLIED NAME.
                                   4322+*
                                   4323+* IF QUALIFIER CHECKING IS NECESSARY, IKJEBEPS IS INVOKED TO
                                   4324+* DETERMINE WHETHER THE RIGHTMOST QUALIFIER IS DESCRIPTIVE FOR
                                   4325+* EDIT.  IF NOT, PROCESSING IS BASED ON THE QUALIFIER ASSOCIATED
                                   4326+* WITH THE DATA SET TYPE ENTERED OR PROMPTED FOR.  IF THE QUALIFIER
                                   4327+* IS DESCRIPTIVE AND DATA SET TYPE WAS NOT ENTERED ON THE COMMAND
                                   4328+* DATA SET TYPE IS BASED ON THE REGHTMOST QUALIFIER OF THE DSNAME.
                                   4329+* IF THE QUALIFIER IS DESCRIPTIVE AND DATA SET TYPE WAS ENTERED,
                                   4330+* STRIPPING OF THE QUALIFIER IS PERFORMED WHEN THE QUALIFIER
                                   4331+* IS DESCRIPTIVE FOR THE DATA SET TYPE ENTERED.
                                   4332+*
                                   4333+***********************************************************************


0015F0                             4335+ID000040 EQU   *
0015F0 9140 9710      00710        4336+         TM    IN7FLAGS,IN7NOQLF IS QUALIFIER CHECKING NECESSARY -
0015F4 4780 B084            01620  4337+         BZ    ID000060 IF NECESSARY, BRANCH TO VALIDATE
0015F8 9500 90C0      000C0        4338+         CLI   CADSCODE,CANOTYPE WAS DATA SET TYPE ENTERED -
0015FC 4770 B10C            016A8  4339+         BNE   ID000130 IF SO, BRANCH TO INVOKE DEFAULT.
001600                             4340+ID000050 EQU   *
001600                             4341+         CNOP  0,4
001600 47F0 B06C            01608  4342+         B     *+8 BRANCH AROUND VCON
001604 00000000                    4343+IHB0229B DC    V(IKJEBIN5) ENTRY POINT ADDRESS
001608 4110 96F8            006F8  4344+         LA    1,IN7PLIST LOAD PARAMETER REG 1
00160C 5090 1000            00000  4345+         ST    (COMMREG),0(0,1) STORE INTO PARAM. LIST
001610 58F0 B068            01604  4346+         L     15,IHB0229B LOAD 15 WITH ENTRY ADR
001614 05EF                        4347+         BALR  14,15 BRANCH TO ENTRY POINT
                                   4348+*                                  TO PROMPT FOR DATA SET TYPE.
001616 12FF                        4349+         LTR   RETCDREG,RETCDREG WAS PROMPT SUCCESSFUL -
001618 4780 B0EC            01688  4350+         BZ    ID000110 IF SO, BRANCH TO INVOKE DEFAULT.
00161C 4770 B1D2            0176E  4351+         BNZ   IDRETCD4 IF NOT, RETURN TO IKJEBEIN WITH RC=4.
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  118


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001620                             4353+ID000060 EQU   *
001620 4100 B08C            01628  4354+         LA    0,*+8 LOAD PARAMETER INTO REGISTER ZERO
001624 47F0 B094            01630  4355+         B     *+12 BRANCH AROUND CONSTANT(S)
001628 C9D2D1C5C2C5D7E2            4356+         DC    CL8'IKJEBEPS' ENTRY POINT NAME
001630 1B11                        4357+         SR    1,1 SHOW NO DCB PRESENT
001632 0A08                        4358+         SVC   8 ISSUE LOAD SVC
001634 9680 9710      00710        4359+         OI    IN7FLAGS,IN7DELPS SPECIFY DELETE NECESSARY FOR
                                   4360+*                                  ROUTINE.
001638 18F0                        4361+         LR    EPLOCREG,PARMREG0 COPY ENTRY POINT ADDRESS.
00163A 4110 4001            00001  4362+         LA    PARMREG1,D1(,QUALREG) POINT TO QUALIFIER.
00163E 1311                        4363+         LCR   PARMREG1,PARMREG1 SPECIFY SEARCH ON QUALIFIER.
001640                             4364+         DS    0H
001640 05EF                        4365+         BALR  14,15 BRANCH TO ENTRY POINT
001642 12FF                        4366+         LTR   RETCDREG,RETCDREG IS QUALIFIER DESCRIPTIVE -
001644 4770 B0B4            01650  4367+         BNZ   ID000070 IF NOT, BRANCH TO CHECK DATA SET TYPE.
001648 9532 1028      00028        4368+         CLI   CADSCODE-CAPD(PARMREG1),CAEDTTYP IS QUALIFIER
                                   4369+*                                  DESCRIPTIVE FOR EDIT -
00164C 47D0 B0C0            0165C  4370+         BNH   ID000080 IF SO, BRANCH TO CHECK DATA SET
                                   4371+*                             TYPE ENTERED AGAINST QUALIFIER.
001650                             4372+ID000070 EQU   *
001650 9500 90C0      000C0        4373+         CLI   CADSCODE,CANOTYPE DATA SET TYPE ENTERED ON COMMAND -
001654 4780 B064            01600  4374+         BE    ID000050 IF NOT, BRANCH TO CAUSE PROMPT.
001658 47F0 B0F4            01690  4375+         B     ID000120 IF SO, BRANCH TO INVOKE DEFAULT.
00165C                             4376+ID000080 EQU   *
00165C 9500 90C0      000C0        4377+         CLI   CADSCODE,CANOTYPE WAS TYPE ENTERED ON COMMAND -
001660 4770 B0E0            0167C  4378+         BNE   ID000100 IF SO, BRANCH TO COMPARE QUALIFIERS.
001664 D249 9098 1000 00098 00000  4379+         MVC   CAPD(CAPDEND-CAPD),D0(PARMREG1) IF NOT, MOVE
                                   4380+*                                  PROCESSOR TABLE TO COMM AREA.
00166A                             4381+ID000090 EQU   *
00166A 4840 90EE            000EE  4382+         LH    QUALREG,CAEDDSNL GET DSNAME LENGTH.
00166E 4120 2002            00002  4383+         LA    LENREG,D2(,LENREG) ADJUST QUALIFIER LENGTH.
001672 1B42                        4384+         SR    QUALREG,LENREG SUBTRACT QUALIFIER LENGTH.
001674 4040 90EE            000EE  4385+         STH   QUALREG,CAEDDSNL UPDATE DSNAME LENGTH TO LOGICALLY
                                   4386+*                                  REMOVE RIGHTMOST QUALIFIER.
001678 47F0 B0F4            01690  4387+         B     ID000120 BRANCH TO INVOKE DEFAULT SERVICE
                                   4388+*                                  ROUTINE.
00167C                             4389+ID000100 EQU   *
00167C 4420 B1F8            01794  4390+         EX    LENREG,IDCOMPCL COMPARE TABLE QUALIFIER AND
                                   4391+*                                  RIGHTMOST QUALIFIER OF NAME.
001680 4780 B0CE            0166A  4392+         BE    ID000090 IF ALIKE, STRIP NAME QUALIFIER.
001684 4770 B0F4            01690  4393+         BNE   ID000120 IF DIFFERENT, BRANCH TO QUALIFY NAME.
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  119


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4395+***********************************************************************
                                   4396+*
                                   4397+* THIS SECTION INVOKES THE DEFAULT SERVICE ROUTINE TO FULLY QUALIFY
                                   4398+* THE NAME ENTERED.  IKJEBEPS IS DELETED IF NECESSARY PRIOR TO
                                   4399+* INITIALIZING PARAMETERS FOR DEFAULT.  PARAMETERS ARE SPECIFIED
                                   4400+* FOR APPENDING THE USERID AND DESCRIPTIVE QUALIFIER.  IKJDFLT IS
                                   4401+* INVOKED VIA LINK. RETURN CODES ARE DIAGNOSED AND DIAGNOSTICS
                                   4402+* ISSUED IF NECESSARY.  RETURN CODES TO IKJEBEIN ARE --
                                   4403+*
                                   4404+*     0 - SUCCESSFUL.
                                   4405+*     4 - NOT SUCCESSFUL (TERMINATE EDIT).
                                   4406+*
                                   4407+***********************************************************************


001688                             4409+ID000110 EQU   *
001688 9180 9710      00710        4410+         TM    IN7FLAGS,IN7DELPS MUST IKJEBEPS BE DELETED -
00168C 4780 B10C            016A8  4411+         BZ    ID000130 IF NOT, BRANCH TO INVOKE IKJDFLT
001690                             4412+ID000120 EQU   *
001690 4500 B100            0169C  4413+         BAL   0,*+12 LOAD ADDR OF EP SYMBOL
001694 C9D2D1C5C2C5D7E2            4414+         DC    CL8'IKJEBEPS' EP SYMBOL
00169C 0A09                        4415+         SVC   9 ISSUE DELETE SVC
00169E 12FF                        4416+         LTR   RETCDREG,RETCDREG WAS DELETE SUCCESSFUL -
0016A0 4780 B10C            016A8  4417+         BZ    ID000130 IF SO, CONTINUE.
0016A4 47F0 B1AA            01746  4418+         B     ID000200 IF NOT, ISSUE DIAGNOSTIC AND
                                   4419+*                                  TERMINATE.
0016A8                             4420+ID000130 EQU   *
0016A8 4160 0000            00000  4421+         LA    TMPREG,DFPB00 SPECIFY ENTRY CODE FOR IKJDFLT.
0016AC 4260 96F8            006F8  4422+         STC   TMPREG,IN7PLIST+DFPBCODE-DFPB SET ENTRY CODE BYTE
                                   4423+*                                  IN PARAMETER BLOCK.
0016B0 4150 90EE            000EE  4424+         LA    DSNAMREG,CAEDDSNL ADDRESS USER-SUPPLIED DSNAME.
0016B4 5050 96F8            006F8  4425+         ST    DSNAMREG,IN7PLIST+DFPBDSN-DFPB STORE DSNAME IN
                                   4426+*                                  DEFAULT PARAMETER BLOCK.
0016B8 5860 9000            00000  4427+         L     TMPREG,CAPTTMP ADDRESS COMMAND PARAMETER LIST.
0016BC 5880 6008            00008  4428+         L     PASSREG,CPPLPSCB-CPPL(,TMPREG) ADDRESS PSCB.
0016C0 5080 96FC            006FC  4429+         ST    PASSREG,IN7PLIST+DFPBPSCB-DFPB STORE PSCB ADDRESS
                                   4430+*                                  IN DEFAULT PARAMETER BLOCK.
0016C4 4140 90A0            000A0  4431+         LA    QUALREG,CADSQUAL ADDRESS DESCRIPTIVE QUALIFIER.
0016C8 5040 9700            00700  4432+         ST    QUALREG,IN7PLIST+DFPBQUAL-DFPB STORE QUALIFIER
                                   4433+*                                  ADDRESS IN PARAMETER BLOCK.
0016CC 9220 96FC      006FC        4434+         MVI   IN7PLIST+DFPBCNTL-DFPB,DFPBUID SPECIFY PREFIXING
                                   4435+*                                  OF USERID TO DSNAME.
0016D0 4140 96F8            006F8  4436+         LA    QUALREG,IN7PLIST ADDRESS DEFAULT PARAMETER BLOCK
0016D4 5040 921C            0021C  4437+         ST    QUALREG,CATMPLST+DFPLDFPB-DFPL AND CHAIN TO
                                   4438+*                                  PARAMETER LIST.
0016D8 4110 9210            00210  4439+         LA    1,CATMPLST LOAD PARAMETER REG 1
0016DC                             4440+         CNOP  0,4
0016DC 45F0 B154            016F0  4441+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
0016E0 000016E8                    4442+         DC    A(*+8) ADDR OF EP PARAMETER
0016E4 00000000                    4443+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
0016E8 C9D2D1C4C6D3E340            4444+         DC    CL8'IKJDFLT' EP PARAMETER
0016F0 0A06                        4445+         SVC   6 ISSUE LINK SVC
                                   4446+*                                  ROUTINE.
0016F2 185F                        4447+         LR    ERR1REG,RETCDREG SAVE RETURN CODE.
0016F4 88F0 0002            00002  4448+         SRL   RETCDREG,D2 DIVIDE RETURN CODE BY 4 FOR USE
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  120


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4449+*                                  AS INDEX TO TABLE.
0016F8 43FF B1FE            0179A  4450+         IC    RETCDREG,IDRCTAB(RETCDREG) GET ACTION CODE.
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  121


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4452+***********************************************************************
                                   4453+*
                                   4454+* ACTION CODES ARE BASED ON RETURN CODES FROM THE DEFAULT SERVICE
                                   4455+* ROUTINE --
                                   4456+*
                                   4457+* ACTION CODE   DEFAULT RC'S  ACTION
                                   4458+*
                                   4459+*     00           00,20,36   SUCCESSFUL RETURN
                                   4460+*     04           24         RETURN WITH RETURN CODE=04.
                                   4461+*     08           08         INVALID DSNAME MSG - RC IS 04.
                                   4462+*     12           16         CATALOG STRUCTURE MSG - RC IS 04.
                                   4463+*     16           04         NAME NOT RESOLVED MSG - RC IS 04.
                                   4464+*     20           12         NAME NOT RESOLVED MSG - RC IS 04.
                                   4465+*     24           28,32      COMMAND SYSTEM ERROR MSG - RC IS 04.
                                   4466+*
                                   4467+* THE ACTION CODE IS USED AS AN INDEX TO THE BRANCH TABLE BELOW.
                                   4468+*
                                   4469+***********************************************************************


0016FC 47FF B164            01700  4471+         B     ID000140(RETCDREG) BRANCH TO BRANCH TABLE.
001700                             4472+ID000140 EQU   * THIS BRANCH TABLE IS POSITION
                                   4473+*                                  DEPENDENT.
001700 47F0 B1D6            01772  4474+         B     IDRETURN SUCCESSFUL - RETURN WITH RETURN CODE
                                   4475+*                                  ZERO.
001704 47F0 B1D6            01772  4476+         B     IDRETURN ATTN ISSUED - RETURN WITH RETURN
                                   4477+*                                  CODE FOUR.
001708 47F0 B180            0171C  4478+         B     ID000150 ISSUE DIAGNOSTIC - RC IS FOUR.
00170C 47F0 B188            01724  4479+         B     ID000160 ISSUE DIAGNOSTIC - RC IS FOUR.
001710 47F0 B192            0172E  4480+         B     ID000180 ISSUE DIAGNOSTIC - RC IS FOUR.
001714 47F0 B192            0172E  4481+         B     ID000180 ISSUE DIAGNOSTIC - RC IS FOUR.
001718 47F0 B1A0            0173C  4482+         B     ID000190 ISSUE DIAGNOSTIC - RC IS FOUR.
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  122


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4484+***********************************************************************
                                   4485+*
                                   4486+*                 DIAGNOSTICS AND RETURN LINKAGE.
                                   4487+*
                                   4488+***********************************************************************


00171C                             4490+ID000150 EQU   * INVALID DSNAME.
00171C 4150 0068            00068  4491+         LA    ERR1REG,INERRORR SPECIFY MESSAGE INDEX.
001720 47F0 B1B4            01750  4492+         B     ID000220 BRANCH TO CALL IKJEBIN3.

001724                             4494+ID000160 EQU   * LOCATE RC 16 RETURNED TO DEFAULT
                                   4495+*                                  SERVICE ROUTINE.
001724 4150 006C            0006C  4496+         LA    ERR1REG,INERRORS SPECIFY MESSAGE INDEX.
001728 1B77                        4497+         SR    DATA1REG,DATA1REG SPECIFY THAT DSNAME INSERTION
                                   4498+*                                  MUST BE BUILT FOR MESSAGE.
00172A 47F0 B1B4            01750  4499+         B     ID000220 BRANCH TO CALL IKJEBIN3.

00172E                             4501+ID000180 EQU   * DEFAULT ERROR CODE 4 OR 12.
00172E 1885                        4502+         LR    DATA2REG,ERR1REG COPY DEFAULT RETURN CODE.
001730 4160 0001            00001  4503+         LA    ERR2REG,M3151 SPECIFY RELATIVE LEVEL-2 MESSAGE.
001734 4150 0074            00074  4504+         LA    ERR1REG,INERRORU SPECIFY MESSAGE INDEX.
001738 47F0 B1B4            01750  4505+         B     ID000220 BRANCH TO CALL IKJEBIN3.

00173C                             4507+ID000190 EQU   * COMMAND SYSTEM ERROR IN DEFAULT
                                   4508+*                                  SERVICE ROUTINE.
00173C 1885                        4509+         LR    DATA2REG,ERR1REG COPY DEFAULT RETURN CODE.
00173E 5680 B1F0            0178C  4510+         O     DATA2REG,IDDFAULT SPECIFY SECOND-LEVEL INSERTION
                                   4511+*                                  NAME - 'DEFAULT'
001742 47F0 B1B0            0174C  4512+         B     ID000210 BRANCH TO CONTINUE.

001746                             4514+ID000200 EQU   * DELETE SVC ERROR.
001746 188F                        4515+         LR    DATA2REG,RETCDREG COPY DELETE RETURN CODE.
001748 5680 B1F4            01790  4516+         O     DATA2REG,IDDELSVC SPECIFY SECOND-LEVEL INSERTION
                                   4517+*                                  NAME - 'DELETE SVC'

00174C                             4519+ID000210 EQU   * COMMAND SYSTEM ERROR.
00174C 4150 0004            00004  4520+         LA    ERR1REG,INERROR2 SPECIFY MESSAGE INDEX.

001750                             4522+ID000220 EQU   * CALL MESSAGE INITIALIZATION ROUTINE.
001750                             4523+         CNOP  0,4
001750 47F0 B1BC            01758  4524+         B     *+8 BRANCH AROUND VCON
001754 00000000                    4525+IHB0241B DC    V(IKJEBIN3) ENTRY POINT ADDRESS
001758 4110 96F8            006F8  4526+         LA    1,IN7PLIST LOAD PARAMETER REG 1
00175C 18E9                        4527+         LR    14,(COMMREG) PICK UP PARAMETER
00175E 18F5                        4528+         LR    15,(ERR1REG) PICK UP PARAMETER
001760 90EF 1000            00000  4529+         STM   14,15,0(1) STORE INTO PARAM. LIST
001764 5080 1010            00010  4530+         ST    (DATA2REG),16(0,1) STORE INTO PARAM. LIST
001768 58F0 B1B8            01754  4531+         L     15,IHB0241B LOAD 15 WITH ENTRY ADR
00176C 05EF                        4532+         BALR  14,15 BRANCH TO ENTRY POINT
00176E                             4533+IDRETCD4 EQU   *
00176E 41F0 0004            00004  4534+         LA    RETCDREG,D4 RETURN CODE TO IKJEBEIN IS FOUR.
001772                             4535+IDRETURN EQU   *
001772 50D9 0DE8            00DE8  4536+         ST    13,(CANXTSVA-IKJEBECA)(COMMREG) UPDATE NEXT
                                   4537+*                                  AVAILABLE SAVE AREA POINTER.
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  123


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001776 18CD                        4538+         LR    12,13 COPY OVER SAVE AREA ADDRESS.
001778 58D0 D004            00004  4539+         L     13,4(,13) ADDRESS OF HIGHER SAVE AREA.
00177C D747 C000 C000 00000 00000  4540+         XC    0(72,12),0(12) ZERO SAVE AREA.
001782 58E0 D00C            0000C  4541+         L     14,12(0,13) RESTORE REGISTER 14.
001786 980C D014            00014  4542+         LM    0,12,20(13) RESTORE THE REGISTERS.
00178A 07FE                        4543+         BR    14 RETURN.
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  124


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4545+***********************************************************************
                                   4546+*
                                   4547+*                  LOCAL STORAGE CONSTANTS AND EXECUTED INSTRUCTIONS.
                                   4548+*
                                   4549+***********************************************************************


00178C                             4551+         DS    0F ALIGNMENT.
00178C 05000000                    4552+IDDFAULT DC    X'05000000' INDICATOR FOR DEFAULT INSERTION.
001790 06000000                    4553+IDDELSVC DC    X'06000000' INDICATOR FOR DELETE SVC INSERTION.


001794 D500 4001 90A0 00001 000A0  4555+IDCOMPCL CLC   D1(*-*,QUALREG),CADSQUAL COMPARE RIGHTMOST
                                   4556+*                                  QUALIFIER TO QUALIFIER IN
                                   4557+*                                  PROCESSOR TABLE.


00179A 001008140C000418            4559+IDRCTAB  DC    X'001008140C0004181800' ACTION CODE TABLE.
BEIN   IKJEBIN7 - PARTIALLY QUALIFIED DSNAME PROCESSING                                                        PAGE  125


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  126


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4562+***********************************************************************
                                   4563+*                                                                     *
                                   4564+* STATUS -- VERSION NO. 01, OS/360 RELEASE NO. 20                     *
                                   4565+*                                                                     *
                                   4566+* FUNCTION -- THIS ROUTINE VALIDATES KEYWORD AND DATA SET TYPE        *
                                   4567+*    SUBFIELD OPERANDS ENTERED ON THE EDIT COMMAND.  THE LINE         *
                                   4568+*    OPERAND (OR LRECL IN THE CASE OF AN OLD DATA SET) IS VALIDATED   *
                                   4569+*    AGAINST TABLE ENTRIES ASSOCIATED WITH THE DATA SET TYPE.         *
                                   4570+*    THE BLOCK OPERAND (OR BLOCK SIZE) IS CHECKED IN MUCH THE SAME    *
                                   4571+*    WAY.  THE REMAINING EDIT OPERANDS ARE VALIDITY CHECKED IN THE    *
                                   4572+*    FOLLOWING ORDER --                                               *
                                   4573+*                                                                     *
                                   4574+*    (1) SCAN/NOSCAN                                                  *
                                   4575+*    (2) NUM/NONUM                                                    *
                                   4576+*    (3) CAPS/ASIS                                                    *
                                   4577+*                                                                     *
                                   4578+*    SPECIAL CASES ARE THOSE DATA SET TYPES FOR WHICH THE USER MAY    *
                                   4579+*    OPTIONALLY SPECIFY SUBFIELD OPERANDS --                          *
                                   4580+*                                                                     *
                                   4581+*    (1) IPLI CHARACTER SET                                           *
                                   4582+*    (2) PLI OR PLIF CHARACTER SET AND SOURCE MARGINS                 *
                                   4583+*    (3) GOFORT FORMAT (FIXED OR FREE)                                *
                                   4584+*    (4) USER DSTYPE SUBFIELD, IF SYSGENED                       A45714
                                   4585+*                                                                     *
                                   4586+*    IN CASES 1,2, AND 4, OPERAND CHECKING FOLLOWS VALIDATION    A45714
                                   4587+*    OF THE OTHER EDIT OPERANDS.  IN CASE 3, SPECIAL             A45714
                                   4588+*    PROCESSING IS DONE IN PARALLEL WITH LINE OPERAND VALIDATION.     *
                                   4589+*                                                                     *
                                   4590+*    MESSAGES ARE ISSUED WHENEVER INVALID, INCONSISTENT, OR           *
                                   4591+*    SUPERFLUOUS OPERANDS ARE SPECIFIED OR INVALID LRECL'S OR         *
                                   4592+*    BLKSIZE'S ENCOUNTERED.                                           *
                                   4593+*                                                                     *
                                   4594+* ENTRY POINTS --                                                     *
                                   4595+*         IKJEBIN8 - VIA CALL MACRO FROM IKJEBEIN, THE MAIN CSECT     *
                                   4596+*                    OF THE EDIT INITIALIZATION PROGRAM WHEN IT       *
                                   4597+*                    BECOMES NECESSARY TO VALIDATE COMMAND OPERANDS.  *
                                   4598+*                                                                     *
                                   4599+* INPUT --                                                            *
                                   4600+*    REGISTER ONE (1) CONTAINS A POINTER TO A TWO-WORD                *
                                   4601+*    PARAMETER LIST --                                                *
                                   4602+*    WORD 1 - ADDRESS OF THE EDIT COMMUNICATION AREA                  *
                                   4603+*    WORD 2 - ADDRESS OF THE EDIT COMMAND PDL                         *
                                   4604+*                                                                     *
                                   4605+*    REGISTER ZERO (0) CONTAINS AN ENTRY CODE --                      *
                                   4606+*    00 - OLD DATA SET                                                *
                                   4607+*    04 - NEW DATA SET                                                *
                                   4608+*                                                                     *
                                   4609+* OUTPUT --                                                           *
                                   4610+*    REGISTER FIFTEEN (15) CONTAINS A RETURN CODE --                  *
                                   4611+*                                                                     *
                                   4612+*    00 - SUCCESSFUL OPERATION.                                       *
                                   4613+*    04 - TERMINATION ERROR.                                          *
                                   4614+*                                                                     *
                                   4615+* EXTERNAL REFERENCES --                                              *
                                   4616+*                                                                     *
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  127


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4617+*         IKJEBIN3 - CALLED FOR INITIAL MESSAGE PROCESSING            *
                                   4618+*                                                                     *
                                   4619+*    MACROS USED --                                                   *
                                   4620+*                                                                     *
                                   4621+*         BLDL     - BUILD LIST OF DIRECTORY INFORMATION         A45714
                                   4622+*         CALL     - LINKAGE TO IKJEBIN3.                             *
                                   4623+*         DEVTYPE  - ISSUED FOR OLD DATA SETS IN ORDER TO OBTAIN      *
                                   4624+*                    TRACK CAPACITY.                                  *
                                   4625+*         IKJEBEMG - BUILDING MESSAGE INSERTION LISTS.                *
                                   4626+*         IKJEBERT - RETURN LINKAGE WITHIN THE EDIT COMMAND           *
                                   4627+*                    PROCESSOR.                                       *
                                   4628+*         IKJEBESV - ENTRY LINKAGE WITHIN THE EDIT COMMAND PROCESSOR. *
                                   4629+*         LINK     - PASS CONTROL TO EXTERNAL PROGRAM            A45714
                                   4630+*                                                                     *
                                   4631+* EXITS, NORMAL --                                                    *
                                   4632+*    RETURN TO THE CALLING ROUTINE BY BRANCHING ON REGISTER           *
                                   4633+*    FOURTEEN (14) WITH REGISTER FIFTEEN (15) SET TO ZERO (0).        *
                                   4634+*                                                                     *
                                   4635+* EXITS, ERROR --                                                     *
                                   4636+*    RETURN TO THE CALLING ROUTINE BY BRANCHING ON REGISTER           *
                                   4637+*    FOURTEEN (14) WITH REGISTER FIFTEEN (15) SET TO FOUR (4).        *
                                   4638+*                                                                     *
                                   4639+* TABLES/WORK AREAS --                                                *
                                   4640+*                                                                     *
                                   4641+*    THE EDIT COMMUNICATION AREA CONTAINS CONTROL INFORMATION AND     *
                                   4642+*    WORK AREAS FOR THIS ROUTINE.  THE FOLLOWING FIELDS ARE UPDATED   *
                                   4643+*    BY IKJEBIN8 --                                                   *
                                   4644+*                                                                     *
                                   4645+*    CABLKS   - BLOCK SIZE                                            *
                                   4646+*    CACFLAG1 - CONTROL FLAG                                          *
                                   4647+*    CACFLAG2 - CONTROL FLAG                                          *
                                   4648+*    CACFLAG6 - CONTROL FLAG                                          *
                                   4649+*    CADSATTR - DATA SET ATTRIBUTES FLAG                              *
                                   4650+*    CALINE   - STARTING POSITION FOR SEQUENCE NUMBER                 *
                                   4651+*    CALENGTH - SEQUENCE NUMBER LENGTH                                *
                                   4652+*    CALRECL  - LOGICAL RECORD LENGTH                                 *
                                   4653+*    CAPLIRTM - RIGHT SOURCE MARGIN POSITION                          *
                                   4654+*    CAPLILFM - LEFT SOURCE MARGIN POSITION                           *
                                   4655+*    CACHKOPT - LEFT AND RIGHT SOURCE MARGIN IN CHECKER PARMLIST A45714
                                   4656+*                                                                     *
                                   4657+*    THE EDIT COMMAND PDL (PARAMETER DESCRIPTOR LIST) IS RETURNED BY  *
                                   4658+*    IKJPARS AND CONTAINS COMMAND OPERAND INFORMATION.                *
                                   4659+*                                                                     *
                                   4660+* ATTRIBUTES --                                                       *
                                   4661+*    REFRESHABLE, ENABLED, NON-PRIVILEGED                             *
                                   4662+*                                                                     *
                                   4663+* CHARACTER CODE DEPENDENCY -- NONE.                                  *
                                   4664+*                                                                     *
                                   4665+* NOTES --                                                            *
                                   4666+*    THIS ROUTINE CONTAINS PROCESSOR DEPENDENT CODE FOR THE FOLLOWING *
                                   4667+*    DATA SET TYPES --                                                *
                                   4668+*                                                                     *
                                   4669+*    GOFORT                                                           *
                                   4670+*    IPLI                                                             *
                                   4671+*    PLI                                                              *
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  128


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4672+*    PLIF                                                             *
                                   4673+***********************************************************************
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  129


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0017A8                             4675+IKJEBIN8 CSECT
0017A8 47F0 F00E            0000E  4676+         B     14(0,15) BRANCH AROUND ID.
0017AC 08                          4677+         DC    AL1(8)
0017AD C9D2D1C5C2C9D5F8            4678+         DC    CL8'IKJEBIN8' IDENTIFIER.
0017B5 00
0017B6 90EC D00C            0000C  4679+         STM   14,12,12(13) SAVE REGISTERS.
0017BA 05B0                        4680+         BALR  BASEREG,0 -    ESTABLISH ADDRESSABILITY FOR THIS
0017BC                             4681+         USING *,BASEREG -    ROUTINE.
0017BC 5890 1000            00000  4682+         L     COMMREG,D0(,PARMREG1) INITIALIZE COMMUNICATION AREA
                                   4683+*                             POINTER.
0017C0 58F9 0DE8            00DE8  4684+         L     15,(CANXTSVA-IKJEBECA)(COMMREG) ADDRESS OF NEXT
                                   4685+*                             AVAILABLE SAVE AREA.
0017C4 50D0 F004            00004  4686+         ST    13,4(,15) -    CROSS CHAIN PREVIOUS AND CURRENT
0017C8 50F0 D008            00008  4687+         ST    15,8(,13) -    SAVE AREAS.
0017CC 18DF                        4688+         LR    13,15 -        INITIALIZE SAVE AREA POINTER.
0017CE 41F0 D048            00048  4689+         LA    15,72(,13) -   OBTAIN ADDRESS OF NEXT SAVE AREA
0017D2 50F9 0DE8            00DE8  4690+         ST    15,(CANXTSVA-IKJEBECA)(COMMREG) AND SAVE.
000000                             4691+         USING IKJEBECA,COMMREG ESTABLISH ADDRESSABILITY TO THE
                                   4692+*                                  COMMUNICATION AREA.
0017D6 58C0 1004            00004  4693+         L     DATAREG,D4(,PARMREG1) OBTAIN ADDRESS OF EDIT
                                   4694+*                                  COMMAND PDL.
000000                             4695+         USING INECMNDD,DATAREG ESTABLISH ADDRESSABILITY TO THE
                                   4696+*                                  EDIT COMMAND PDL.
0017DA 9200 9711      00711        4697+         MVI   IN8FLAGS,IN8ZEROS ZERO FLAG BYTE FOR THIS ROUTINE.
0017DE 1200                        4698+         LTR   PARMREG0,PARMREG0 TEST FOR ENTRY CODE ZERO.
0017E0 4770 B030            017EC  4699+         BNZ   IN003030 IF ENTRY CODE IS NOT ZERO, BRANCH
                                   4700+*                                  TO PROCESS AS NEW DATA SET.
0017E4 4820 90E8            000E8  4701+         LH    LENREG,CALRECL ACQUIRE LRECL FOR OLD DATA SET.
0017E8 47F0 B078            01834  4702+         B     IN003065 BRANCH TO VALIDATE LRECL.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  130


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4704+***********************************************************************
                                   4705+*                                                                     *
                                   4706+*   VALIDATE LINE OPERAND FOR A NEW DATA SET AND LRECL FOR AN OLD     *
                                   4707+*   DATA SET.                                                         *
                                   4708+*                                                                     *
                                   4709+*   AFTER CONVERTING THE LINE OPERAND TO BINARY, PLACE VALUE IN       *
                                   4710+*   THE COMMUNICATION AREA.  (IF DATA SET WAS OLD, LRECL HAS          *
                                   4711+*   PREVIOUSLY BEEN PLACED IN THE COMMUNICATION AREA.  VERIFY THAT    *
                                   4712+*   LINE(LRECL) IS CORRECT FOR THE DATA SET TYPE BEING EDITED.  IF    *
                                   4713+*   LINE(LRECL) IS INVALID, PUT MESSAGE TO TERMINAL AND EXIT TO TMP.  *
                                   4714+*                                                                     *
                                   4715+***********************************************************************
0017EC                             4716+IN003030 EQU   *
0017EC D501 C02C B65E 0002C 01E1A  4717+         CLC   INLNE(L'IENOKEYW),IENOKEYW CHECK IF LINE OPERAND
                                   4718+*                                  SPECIFIED.
0017F2 4770 B068            01824  4719+         BNE   IN003060 IF SPECIFIED, BRANCH TO CONVERT TO
                                   4720+*                                  BINARY.
0017F6 4580 B5E6            01DA2  4721+         BAL   SRRTNREG,IN011010 BRANCH TO CHECK IF DATA SET TYPE
                                   4722+*                                  IS GOFORT.
0017FA 9140 9711      00711        4723+         TM    IN8FLAGS,IN8TERME DETERMINE IF INVALID OPERANDS OR
                                   4724+*                                  ATTRIBUTES FOR GOFORT.
0017FE 4710 B55E            01D1A  4725+         BO    IEEXIT1 IF SO, BRANCH TO TERMINATE.
001802                             4726+IN003040 EQU   *
001802 1B11                        4727+         SR    PARMREG1,PARMREG1 CREATE CONSTANT OF ZERO.
001804 4910 90C4            000C4  4728+         CH    PARMREG1,CAFLRLDF CHECK IF DEFAULT RECORD FORMAT
                                   4729+*                                  IS FIXED.
001808 4770 B05A            01816  4730+         BNZ   IN003050 IF FIXED, BRANCH TO INITIALIZE LINE
00180C D201 90E8 90C8 000E8 000C8  4731+         MVC   CALRECL(L'CALRECL),CAVLRLDF INITIALIZE LINE SIZE
                                   4732+*                                  WITH VARIABLE FORMAT LRECL.
001812 47F0 B1E0            0199C  4733+         B     IN004520 BRANCH TO VALIDATE BLOCK OPERAND.
001816                             4734+IN003050 EQU   *
001816 D201 90E8 90C4 000E8 000C4  4735+         MVC   CALRECL(L'CALRECL),CAFLRLDF INITIALIZE LINE SIZE
                                   4736+*                                  WITH FIXED FORMAT LRECL.
00181C 9640 907D      0007D        4737+         OI    CACFLAG2,CARECFM INDICATE THAT DATA SET HAS A
                                   4738+*                                  FIXED OR FIXED BLOCK FORMAT.
001820 47F0 B1E0            0199C  4739+         B     IN004520 BRANCH TO VALIDATE BLOCK OPERAND.
001824                             4740+IN003060 EQU   *
001824 5840 C038            00038  4741+         L     AREAREG,INLNESZ+INLNEPT ADDRESS OF LINE VALUE.
001828 4830 C03C            0003C  4742+         LH    SIZEREG,INLNESZ+INLNELN LENGTH OF LINE VALUE.
00182C 45E0 B582            01D3E  4743+         BAL   RETREG,INCVBIN BRANCH TO CONVERT TO BINARY.
001830 4020 90E8            000E8  4744+         STH   LENREG,CALRECL PLACE LINE VALUE IN COMMUNICATION
                                   4745+*                                  AREA FOR TESTS.
001834                             4746+IN003065 EQU   *
001834 1222                        4747+         LTR   LENREG,LENREG CHECK IF LRECL IS ZERO.
001836 4770 B094            01850  4748+         BNZ   IN003067 BYPASS ISSUING WARNING MESSAGE TO USER.
00183A 4150 001C            0001C  4749+         LA    ERR1REG,INERROR8 SET RELATIVE ERROR INDICATION FOR
                                   4750+*                                  WARNING MESSAGE.
00183E 4160 0003            00003  4751+         LA    ERR2REG,M3353 SET SECOND-LEVEL RELATIVE NUMBER.
001842 4870 90A8            000A8  4752+         LH    DATA1REG,CABLKS SPECIFY LRECL TO BE USED.
001846 4070 90E8            000E8  4753+         STH   DATA1REG,CALRECL SET LRECL FIELD IN COMMUNICATION
                                   4754+*                                  AREA.
00184A 4540 B53A            01CF6  4755+         BAL   AREAREG,IN013010 BRANCH TO ISSUE WARNING MESSAGE.
00184E 1827                        4756+         LR    LENREG,DATA1REG COPY BLOCK SIZE INTO LRECL REGISTER.
001850                             4757+IN003067 EQU   *
001850 4580 B5E6            01DA2  4758+         BAL   SRRTNREG,IN011010 BRANCH TO CHECK IF DATA SET TYPE
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  131


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4759+*                                  IS GOFORT.
001854 9140 9711      00711        4760+         TM    IN8FLAGS,IN8TERME DETERMINE IF INVALID OPERANDS OR
                                   4761+*                                  ATTRIBUTES FOR GOFORT.
001858 4710 B55E            01D1A  4762+         BO    IEEXIT1 IF SO, BRANCH TO TERMINATE.
00185C 9102 90C1      000C1        4763+         TM    CADSATTR,CALRECLX CHECK IF DEFAULT LRECL IS
                                   4764+*                                  REQUIRED.
001860 4780 B0EC            018A8  4765+         BZ    IN003080 WHEN DEFAULT IS NOT REQUIRED,
                                   4766+*                                  BRANCH TO CHECK MAXIMUM.
001864 4830 90C4            000C4  4767+         LH    SIZEREG,CAFLRLDF DEFAULT LRECL FOR DATA SET TYPE.
001868 1932                        4768+         CR    SIZEREG,LENREG CHECK IF LINE VALUE IS EQUAL TO
                                   4769+*                                  DEFAULT LRECL.
00186A 4780 B122            018DE  4770+         BE    IN003090 IF EQUAL, BRANCH TO PROCESS BLOCK
                                   4771+*                                  OPERAND.
00186E                             4772+IN003070 EQU   *
00186E 9110 90EC      000EC        4773+         TM    CAEDFLAG,CAEDDISP CHECK IF DATA SET IS NEW.
001872 4780 B0D8            01894  4774+         BZ    IN003075 IF DATA SET IS NEW, BRANCH TO
                                   4775+*                                  DEFAULT LRECL.
001876 4870 90E8            000E8  4776+         LH    DATA1REG,CALRECL OBTAIN LRECL FOR MESSAGE.
00187A 4150 0014            00014  4777+         LA    ERR1REG,INERROR6 RELATIVE ERROR TO BE PROCESSED.
00187E 4540 B53A            01CF6  4778+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
001882 47F0 B55E            01D1A  4779+         B     IEEXIT1 BRANCH TO EXIT WITH ERROR RETURN
                                   4780+*                                  CODE.
001886                             4781+IN003073 EQU   *
001886 4830 90C4            000C4  4782+         LH    SIZEREG,CAFLRLDF OBTAIN DEFAULT LINE VALUE FOR FIXED
                                   4783+*                                  FORMAT RECORDS.
00188A 1233                        4784+         LTR   SIZEREG,SIZEREG DETERMINE IF VARIABLE DEFAULT IS
                                   4785+*                                  TO BE USED.
00188C 4770 B0D8            01894  4786+         BNZ   IN003075 IF NOT, BRANCH TO PUT MESSAGE.
001890 4830 90C8            000C8  4787+         LH    SIZEREG,CAVLRLDF IF SO, OBTAIN DEFAULT LINE
                                   4788+*                                  VALUE FOR VARIABLE FORMAT
                                   4789+*                                  RECORDS.
001894                             4790+IN003075 EQU   *
001894 4150 001C            0001C  4791+         LA    ERR1REG,INERROR8 RELATIVE ERROR TO BE PROCESSED.
001898 1873                        4792+         LR    DATA1REG,SIZEREG SAVE VALUE FOR MESSAGE INSERTION.
00189A 4540 B53A            01CF6  4793+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
00189E 12FF                        4794+         LTR   RETCDREG,RETCDREG CHECK IF PUTLINE WAS SUCCESSFUL.
0018A0 4770 B55E            01D1A  4795+         BNZ   IEEXIT1 IF NOT SUCCESSFUL, BRANCH TO EXIT.
0018A4 47F0 B046            01802  4796+         B     IN003040 BRANCH TO DEFAULT LRECL.
0018A8                             4797+IN003080 EQU   *
0018A8 9110 90EC      000EC        4798+         TM    CAEDFLAG,CAEDDISP CHECK IF DATA SET IS OLD.
0018AC 4710 B102            018BE  4799+         BO    IN003082 IF OLD, BRANCH TO CHECK IF RECFM=F
0018B0 4830 90C6            000C6  4800+         LH    SIZEREG,CAFLRLMX MAXIMUM LRECL FOR DATA SET TYPE.
0018B4 1932                        4801+         CR    SIZEREG,LENREG CHECK IF LINE VALUE IS LESS THAN
                                   4802+*                                  OR EQUAL TO MAXIMUM.
0018B6 4740 B0CA            01886  4803+         BL    IN003073 IF NOT, BRANCH TO PUT MESSAGE.
0018BA 47F0 B122            018DE  4804+         B     IN003090 OTHERWISE, BRANCH TO PROCESS BLOCK
                                   4805+*                                  OPERAND.
0018BE                             4806+IN003082 EQU   *
0018BE 9140 907D      0007D        4807+         TM    CACFLAG2,CARECFM CHECK IF RECFM = F.
0018C2 4710 B118            018D4  4808+         BO    IN003084 IF FIXED, BRANCH TO CHECK MAXIMUM.
0018C6 4830 90CA            000CA  4809+         LH    SIZEREG,CAVLRLMX MAXIMUM LRECL FOR DATA SET TYPE.
0018CA 1932                        4810+         CR    SIZEREG,LENREG CHECK IF LINE VALUE IS LESS THAN
                                   4811+*                                  OR EQUAL TO MAXIMUM.
0018CC 4740 B0B2            0186E  4812+         BL    IN003070 IF NOT, BRANCH TO PUT MESSAGE.
0018D0 47F0 B122            018DE  4813+         B     IN003090 OTHERWISE, BRANCH TO PROCESS BLOCK
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  132


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   4814+*                                  OPERAND.
0018D4                             4815+IN003084 EQU   *
0018D4 4830 90C6            000C6  4816+         LH    SIZEREG,CAFLRLMX MAXIMUM LRECL FOR DATA SET TYPE.
0018D8 1932                        4817+         CR    SIZEREG,LENREG CHECK IF LINE VALUE IS LESS THAN
                                   4818+*                                  OR EQUAL TO MAXIMUM.
0018DA 4740 B0B2            0186E  4819+         BL    IN003070 IF NOT, BRANCH TO PUT MESSAGE.
0018DE                             4820+IN003090 EQU   *
0018DE 9110 90EC      000EC        4821+         TM    CAEDFLAG,CAEDDISP CHECK IF DATA SET IS NEW.
0018E2 4710 B58E            01D4A  4822+         BO    INP03010 IF DATA SET IS OLD, BRANCH TO CHECK
                                   4823+*                                  IF BLOCK OPERAND ENTERED.
0018E6 9640 907D      0007D        4824+         OI    CACFLAG2,CARECFM INDICATE THAT DATA SET HAS A
                                   4825+*                                  FIXED OR FIXED BLOCK FORMAT.
0018EA 47F0 B1E0            0199C  4826+         B     IN004520 BRANCH TO VALIDATE BLOCK OPERAND.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  133


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0018EE                             4828+IN004020 EQU   *
                                   4829+***********************************************************************
                                   4830+*                                                                     *
                                   4831+*   VALIDATE BLOCK OPERAND.                                           *
                                   4832+*                                                                     *
                                   4833+*   NEW DATA SET, BLOCK NOT SPECIFIED.  BLKSIZE IS DEFAULTED TO       *
                                   4834+*   VALUE SPECIFIED AT SYSGEN TIME FOR DATA SET TYPE.                 *
                                   4835+*                                                                     *
                                   4836+*   NEW DATA SET, BLOCK SPECIFIED.  CONVERT BLOCK OPERAND TO BINARY.  *
                                   4837+*   IF DATA SET HAS RECFM = V, CHECK THAT BLKSIZE IS GREATER THAN OR  *
                                   4838+*   EQUAL TO LRECL +4 AND LESS THAN 32760.  IF DATA SET HAS           *
                                   4839+*   RECFM = F, CHECK THAT BLKSIZE / LRECL IS AN INTEGER.  ISSUE       *
                                   4840+*   DEVTYPE MACRO INSTRUCTION TO OBTAIN TRACK CAPACITY.  CHECK        *
                                   4841+*   BLKSIZE TO DETERMINE IF ONE BLOCK WILL FIT ON ONE TRACK OF        *
                                   4842+*   THE OUTPUT DEVICE.  WHEN ANY OF THESE TESTS FAIL, NOTIFY USER     *
                                   4843+*   AND USE BLKSIZE SPECIFIED AT SYSGEN TIME.                         *
                                   4844+*                                                                     *
                                   4845+*   OLD DATA SET.  DETERMINE IF LINE OR BLOCK OR BOTH OPERANDS WERE   *
                                   4846+*   SPECIFIED.  IF SO, INFORM USER THAT OPERAND IS IGNORED.           *
                                   4847+*                                                                     *
                                   4848+***********************************************************************
0018EE 4140 98B0            008B0  4849+         LA    AREAREG,INDEVTYP ADDRESS OF DEVTYPE WORK AREA.
0018F2 4130 9124            00124  4850+         LA    SIZEREG,CAEDDDN ADDRESS OF DDNAME FOR DEVTYPE.
0018F6 1813                        4851+         LR    1,SIZEREG LOAD PARAMETER REG 1
0018F8 1804                        4852+         LR    0,AREAREG LOAD PARAMETER REG 0
0018FA 1300                        4853+         LCR   0,0 S20201
0018FC 0A18                        4854+         SVC   24
0018FE 12FF                        4855+         LTR   RETCDREG,RETCDREG CHECK IF DEVTYPE SUCCESSFUL.
001900 4780 B15A            01916  4856+         BZ    IN004025 IF SUCCESSFUL, BRANCH TO VALIDATE
                                   4857+*                                  BLOCK OPERAND.
001904 4150 0004            00004  4858+         LA    ERR1REG,INERROR2 RELATIVE ERROR TO BE PROCESSED.
001908 188F                        4859+         LR    DATA2REG,RETCDREG SAVE RETURN CODE FOR MESSAGE.
00190A 5680 B66C            01E28  4860+         O     DATA2REG,IEDEVTYP INDICATE ROUTINE NAME AS DEVTYPE
00190E 4540 B53A            01CF6  4861+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
001912 47F0 B55E            01D1A  4862+         B     IEEXIT1 BRANCH TO TERMINATE EDIT.
001916                             4863+IN004025 EQU   *
001916 5820 903C            0003C  4864+         L     LENREG,CAUTILNO LAST BLOCK POINTER FROM DSCB.
00191A 1222                        4865+         LTR   LENREG,LENREG CHECK FOR EMPTY DATA SET.
00191C 4780 B1D8            01994  4866+         BZ    IN004420 IF EMPTY, NO COMPUTATION NECESSARY.
001920 8820 0008            00008  4867+         SRL   LENREG,D8(D0) ROUND TTR POINTER UP TO NEXT FULL
001924 4120 2001            00001  4868+         LA    LENREG,D1(,LENREG) TRACK.
001928 4810 90A8            000A8  4869+         LH    PARMREG1,CABLKS BLKSIZE OF OLD DATA SET.
00192C 48E0 98BC            008BC  4870+         LH    RETREG,INTRKCAP DEVICE TRACK SIZE (IN BYTES).
001930 1B00                        4871+         SR    PARMREG0,PARMREG0 ZERO REGISTER.
001932 4300 98BF            008BF  4872+         IC    PARMREG0,INOVHDKL BLOCK OVERHEAD CONSTANT FOR LAST
                                   4873+*                                  BLOCK, KEYED RECORDS.
001936 1BE1                        4874+         SR    RETREG,PARMREG1 COMPUTE NUMBER OF BYTES REMAINING
001938 1AE0                        4875+         AR    RETREG,PARMREG0 ON A TRACK AFTER LAST BLOCK,
00193A 4300 98C0            008C0  4876+         IC    PARMREG0,INOVHDNK INCLUDING ITS OVERHEAD
00193E 1BE0                        4877+         SR    RETREG,PARMREG0 CONSTANT, IS DEDUCTED.
001940 9101 98C1      008C1        4878+         TM    INDEVFLG,INTOLFLG CHECK IF TOLERANCE FACTOR MUST
001944 4780 B194            01950  4879+         BZ    IN004027 BE APPLIED - BRANCH IF NOT.
001948 4C10 98C2            008C2  4880+         MH    PARMREG1,INTOLFAC COMPUTE BLOCK SIZE INCLUDING
00194C 8810 0009            00009  4881+         SRL   PARMREG1,D9(D0) TOLERANCE FACTOR.
001950                             4882+IN004027 EQU   *
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  134


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001950 1B10                        4883+         SR    PARMREG1,PARMREG0 COMPUTE BLOCK SIZE (OTHER THAN
001952 4300 98BE            008BE  4884+         IC    PARMREG0,INOVHDK LAST BLOCK) INCLUDING OVERHEAD
001956 1A10                        4885+         AR    PARMREG1,PARMREG0 CONSTANT.
001958 8CE0 0020            00020  4886+         SRDL  RETREG,D32(D0) COMPUTE NUMBER OF BLOCKS REMAINING
00195C 1DE1                        4887+         DR    RETREG,PARMREG1 ON TRACK.
00195E 4130 F001            00001  4888+         LA    SIZEREG,D1(,RETCDREG) TOTAL NUMBER OF BLOCKS ON
                                   4889+*                                  ONE TRACK OF THE DEVICE.
001962 9140 907D      0007D        4890+         TM    CACFLAG2,CARECFM CHECK IF RECFM = F.
001966 4780 B1B6            01972  4891+         BZ    IN004120 IF RECFM = V, BRANCH TO OBTAIN
                                   4892+*                                  LRECL.
00196A 4840 90E8            000E8  4893+         LH    AREAREG,CALRECL LRECL FOR RECFM = F.
00196E 47F0 B1BA            01976  4894+         B     IN004220 BRANCH TO COMPUTE NUMBER OF
                                   4895+*                                  RECORDS IN RECFM F DATA SET.
001972                             4896+IN004120 EQU   *
001972 4140 001E            0001E  4897+         LA    AREAREG,D30(,D0) DEFAULT LRECL FOR RECFM = V.
001976                             4898+IN004220 EQU   *
001976 48E0 90A8            000A8  4899+         LH    RETREG,CABLKS OBTAIN BLKSIZE FOR DATA SET AND
00197A 8CE0 0020            00020  4900+         SRDL  RETREG,D32(D0) DIVIDE BY LRECL TO DETERMINE
00197E 1DE4                        4901+         DR    RETREG,AREAREG NUMBER OF RECORDS PER BLOCK.
001980 12EE                        4902+         LTR   RETREG,RETREG CHECK IF BLKSIZE IS MULTIPLE OF
001982 4780 B1D0            0198C  4903+         BZ    IN004320 LRECL.  IF SO, BRANCH TO
                                   4904+*                                  COMPUTE NUMBER OF RECORDS IN
                                   4905+*                                  DATA SET.
001986 41F0 F001            00001  4906+         LA    RETCDREG,D1(,RETCDREG) IF BLKSIZE NOT A MULTIPLE
                                   4907+*                                  OF LRECL, INCREASE BY 1.
00198A 1BEE                        4908+         SR    RETREG,RETREG ZERO REGISTER FOR MULTIPLICATION.
00198C                             4909+IN004320 EQU   *
00198C 1CE3                        4910+         MR    RETREG,SIZEREG COMPUTE TOTAL NUMBER OF RECORDS IN
00198E 1CE2                        4911+         MR    RETREG,LENREG OLD DATA SET AND SAVE FOR
001990 50F0 903C            0003C  4912+         ST    RETCDREG,CAUTILNO IKJEBEUI.
001994                             4913+IN004420 EQU   *
001994 9110 90EC      000EC        4914+         TM    CAEDFLAG,CAEDDISP CHECK IF DATA SET IS NEW.
001998 4710 B286            01A42  4915+         BO    IN005020 IF DATA SET IS OLD, BRANCH TO CHECK
                                   4916+*                                  IF SCAN OPERAND ENTERED.
00199C                             4917+IN004520 EQU   *
00199C D501 C02A B65E 0002A 01E1A  4918+         CLC   INBLK(L'IENOKEYW),IENOKEYW CHECK IF BLOCK OPERAND
                                   4919+*                                  SPECIFIED.
0019A2 4780 B25C            01A18  4920+         BE    IN004070 IF NOT, BRANCH TO MAKE SURE LINE
                                   4921+*                                  AND BLOCK OPERANDS ARE
                                   4922+*                                  COMPATIBLE.
0019A6 5840 C030            00030  4923+         L     AREAREG,INBLKSZE+INBLKPT ADDRESS OF BLOCK VALUE.
0019AA 4830 C034            00034  4924+         LH    SIZEREG,INBLKSZE+INBLKLN LENGTH OF LINE VALUE.
0019AE 45E0 B582            01D3E  4925+         BAL   RETREG,INCVBIN BRANCH TO CONVERT TO BINARY.
0019B2 9140 907D      0007D        4926+         TM    CACFLAG2,CARECFM CHECK IF RECFM = F.
0019B6 4710 B22A            019E6  4927+         BO    IN004050 IF FIXED, BRANCH TO CHECK BLOCK
                                   4928+*                                  OPERAND.
0019BA 4830 90E8            000E8  4929+         LH    SIZEREG,CALRECL OBTAIN LRECL AND ADD 4 TO COMPUTE
0019BE 4130 3004            00004  4930+         LA    SIZEREG,D4(PARMREG0,SIZEREG) REQUIRED BLOCKSIZE
0019C2 1932                        4931+         CR    SIZEREG,LENREG CHECK IF BLKSIZE IS GREATER THAN OR
0019C4 47D0 B244            01A00  4932+         BNH   IN004060 EQUAL TO LRECL + 4.  IF SO,
                                   4933+*                                  BRANCH TO CHECK MAXIMUM.
0019C8 4160 0004            00004  4934+         LA    ERR2REG,M3334 RELATIVE SECOND LEVEL MESSAGE.
0019CC                             4935+IN004030 EQU   *
0019CC 4150 0020            00020  4936+         LA    ERR1REG,INERROR9 RELATIVE ERROR TO BE PROCESSED.
0019D0 4540 B260            01A1C  4937+         BAL   AREAREG,IN004080 BRANCH TO COMPUTE DEFAULT BLKSIZE
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  135


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0019D4 4870 90A8            000A8  4938+         LH    DATA1REG,CABLKS DEFAULT BLKSIZE FOR INSERTION.
0019D8 4540 B53A            01CF6  4939+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
0019DC 12FF                        4940+         LTR   RETCDREG,RETCDREG CHECK IF PUTLINE WAS SUCCESSFUL.
0019DE 4770 B55E            01D1A  4941+         BNZ   IEEXIT1 IF NOT SUCCESSFUL, BRANCH TO EXIT.
0019E2 47F0 B286            01A42  4942+         B     IN005020 BRANCH TO CHECK SCAN OPERAND.
0019E6                             4943+IN004050 EQU   *
0019E6 18E2                        4944+         LR    RETREG,LENREG COPY BLKSIZE AND PLACE IN
0019E8 8CE0 0020            00020  4945+         SRDL  RETREG,D32(PARMREG0) REGISTER FOR DIVISION.
0019EC 4830 90E8            000E8  4946+         LH    SIZEREG,CALRECL OBTAIN LRECL AND PERFORM THE
0019F0 1DE3                        4947+         DR    RETREG,SIZEREG BLKSIZE / LRECL DIVISION.
0019F2 12EE                        4948+         LTR   RETREG,RETREG CHECK IF QUOTIENT IS AN INTEGER.
0019F4 4780 B244            01A00  4949+         BZ    IN004060 IF BLOCK IS AN INTEGER MULTIPLE OF
                                   4950+*                                  LINE, BRANCH TO CHECK IF LESS
                                   4951+*                                  THAN MAXIMUM (SYSGEN) VALUE.
0019F8 4160 0003            00003  4952+         LA    ERR2REG,M3333 RELATIVE SECOND LEVEL MESSAGE.
0019FC 47F0 B210            019CC  4953+         B     IN004030 BRANCH TO CALL MESSAGE ROUTINE.
001A00                             4954+IN004060 EQU   *
001A00 4920 90A8            000A8  4955+         CH    LENREG,CABLKS CHECK IF BLKSIZE IS GREATER THAN OR
001A04 47D0 B254            01A10  4956+         BNH   IN004065 EQUAL TO MAXIMUM.  IF SO,
                                   4957+*                                  DETERMINE IF LESS THAN OR
                                   4958+*                                  EQUAL TO TRACK CAPACITY.
                                   4959+*                             OTHERWISE, INFORM USER OF ERROR.
001A08 4160 0002            00002  4960+         LA    ERR2REG,M3332 RELATIVE SECOND LEVEL MESSAGE.
001A0C 47F0 B210            019CC  4961+         B     IN004030 BRANCH TO CALL MESSAGE ROUTINE.
001A10                             4962+IN004065 EQU   *
001A10 4020 90A8            000A8  4963+         STH   LENREG,CABLKS INDICATE BLKSIZE IN COMMUNICATION
                                   4964+*                                  AREA.
001A14 47F0 B286            01A42  4965+         B     IN005020 BRANCH TO CHECK SCAN OPERAND.
001A18                             4966+IN004070 EQU   *
001A18 4140 B286            01A42  4967+         LA    AREAREG,IN005020 ADDRESS OF NEXT CODE SEQUENCE
                                   4968+*                                  TO BE EXECUTED.
001A1C                             4969+IN004080 EQU   *
001A1C 9140 907D      0007D        4970+         TM    CACFLAG2,CARECFM CHECK IF RECFM = F.
001A20 4780 B284            01A40  4971+         BZ    IN004090 IF RECFM = V, LINE IS COMPATIBLE
                                   4972+*                                  WITH BLOCK.
001A24 48E0 90A8            000A8  4973+         LH    RETREG,CABLKS OBTAIN BLKSIZE AND PLACE IN
001A28 8CE0 0020            00020  4974+         SRDL  RETREG,D32(PARMREG0) REGISTER FOR DIVISION.
001A2C 4830 90E8            000E8  4975+         LH    SIZEREG,CALRECL OBTAIN LRECL AND PERFORM THE
001A30 1DE3                        4976+         DR    RETREG,SIZEREG BLKSIZE / LRECL DIVISION.
001A32 12EE                        4977+         LTR   RETREG,RETREG CHECK IF QUOTIENT IS AN INTEGER.
001A34 4780 B284            01A40  4978+         BZ    IN004090 IF BLKSIZE IS A MULTIPLE OF LRECL,
                                   4979+*                                  BRANCH TO CHECK SCAN OPERAND.
001A38 4CF0 90E8            000E8  4980+         MH    RETCDREG,CALRECL COMPUTE BLKSIZE THAT IS A
001A3C 40F0 90A8            000A8  4981+         STH   RETCDREG,CABLKS MULTIPLE OF LRECL AND SAVE IN
                                   4982+*                                  THE COMMUNICATION AREA.
001A40                             4983+IN004090 EQU   *
001A40 07F4                        4984+         BR    AREAREG RETURN TO CALLER.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  136


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001A42                             4986+IN005020 EQU   *
                                   4987+***********************************************************************
                                   4988+*                                                                     *
                                   4989+*   VALIDATE SCAN OPERAND.                                            *
                                   4990+*                                                                     *
                                   4991+*   DETERMINE IF USER ENTERED SCAN OR NOSCAN.  IF SCAN WAS ENTERED,   *
                                   4992+*   CHECK IF VALID FOR DATA SET TYPE.  IF NOT VALID, INFORM USER      *
                                   4993+*   AND IGNORE OPERAND.  IF VALID, ISSUE A BLDL MACRO INSTRUCTION     *
                                   4994+*   FOR THE SYNTAX CHECKER NAME TO DETERMINE IF IN SYSTEM.  IF        *
                                   4995+*   SYNTAX CHECKER NOT AVAILABLE, ZERO SYNTAX CHECKER NAME AND        *
                                   4996+*   INFORM USER.                                                      *
                                   4997+*                                                                     *
                                   4998+***********************************************************************
001A42 9140 90C1      000C1        4999+         TM    CADSATTR,CASCAN CHECK IF SYNTAX CHECKING ALLOWED.
001A46 47E0 B2B4            01A70  5000+         BNO   IN005035 IF SYNTAX CHECKING NOT ALLOWED,
                                   5001+*                                  BRANCH TO CHECK IF SCAN/NOSCAN
                                   5002+*                                  OPERAND SPECIFIED.
001A4A D203 986C B670 0086C 01E2C  5003+         MVC   INBLDWD(L'IELSTDSC),IELSTDSC INITIALIZE LIST
                                   5004+*                                  DESCRIPTION FIELD FOR BLDL.
001A50 D207 9870 90B8 00870 000B8  5005+         MVC   INSYNNME(L'CASYNAME),CASYNAME MOVE MODULE NAME TO
                                   5006+*                                  BLDL LIST.
001A56 4110 0000            00000  5007+         LA    1,0 LOAD PARAMETER REG 1
001A5A 4100 986C            0086C  5008+         LA    0,INSYNCHK LOAD PARAMETER REG 0
001A5E 4111 0000            00000  5009+         LA    1,0(1)
001A62 0A12                        5010+         SVC   18 LINK TO BLDL ROUTINE
001A64 12FF                        5011+         LTR   RETCDREG,RETCDREG CHECK IF SYNTAX CHECKER IN
                                   5012+*                                  SYSTEM.
001A66 4780 B2B4            01A70  5013+         BZ    IN005035 IF PRESENT, BRANCH TO INDICATE THAT
                                   5014+*                                  USER REQUESTED SYNTAX CHECKING
001A6A D707 90B8 90B8 000B8 000B8  5015+         XC    CASYNAME(L'CASYNAME),CASYNAME ZERO SYNTAX CHECKER
                                   5016+*                                  NAME FIELD TO INDICATE NOT
                                   5017+*                                  AVAILABLE.
001A70                             5018+IN005035 EQU   *
001A70 D501 C024 B668 00024 01E24  5019+         CLC   INSCN(L'IEKEYDEF),IEKEYDEF CHECK IF SCAN SPECIFIED
001A76 4780 B2E0            01A9C  5020+         BE    IN005050 IF NOSCAN SPECIFIED, BRANCH TO
                                   5021+*                                  CHECK NUM/NONUM OPERAND.
001A7A 9140 90C1      000C1        5022+         TM    CADSATTR,CASCAN CHECK IF SYNTAX CHECKING ALLOWED.
001A7E 4710 B2D2            01A8E  5023+         BO    IN005040 IF ALLOWED, BRANCH TO CHECK IF
                                   5024+*                                  SYNTAX CHECKER OR PREPROCESSOR
                                   5025+*                                  EXISTS IN SYSTEM.
001A82                             5026+IN005037 EQU   *
001A82 4150 0024            00024  5027+         LA    ERR1REG,INERRORA RELATIVE ERROR TO BE PROCESSED.
001A86 4540 B53A            01CF6  5028+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
001A8A 47F0 B55E            01D1A  5029+         B     IEEXIT1 BRANCH TO RETURN WITH ERROR RETURN
                                   5030+*                                  CODE.
001A8E                             5031+IN005040 EQU   *
001A8E 12FF                        5032+         LTR   RETCDREG,RETCDREG CHECK IF CHECKER IN SYSTEM.
001A90 4780 B2DC            01A98  5033+         BZ    IN005045 IF PRESENT, BRANCH TO INDICATE USER
                                   5034+*                                  REQUESTED SYNTAX CHECKING.
001A94 47F0 B2C6            01A82  5035+         B     IN005037 BRANCH TO ISSUE ERROR MESSAGE.
001A98                             5036+IN005045 EQU   *
001A98 9620 907D      0007D        5037+         OI    CACFLAG2,CASCANON INDICATE THAT USER HAS REQUESTED
                                   5038+*                                  SYNTAX CHECKING.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  137


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001A9C                             5040+IN005050 EQU   *
                                   5041+***********************************************************************
                                   5042+*                                                                     *
                                   5043+*   VALIDATE NUM/NONUM OPERAND.                                       *
                                   5044+*                                                                     *
                                   5045+*   IF USER SPECIFIES NONUM, INDICATE THAT DATA SET IS NOT (DOES NOT) *
                                   5046+*   TO CONTAIN SEQUENCE NUMBERS.  IF THE USER SPECIFIES NUM, CHECK    *
                                   5047+*   IF SEQUENCE NUMBER AND START POSITION ARE ALSO SPECIFIED.  WHEN   *
                                   5048+*   START POSITION AND LENGTH ARE SPECIFIED, CHECK THAT DATA SET TYPE *
                                   5049+*   IS ASM.  IF DATA SET TYPE IS NOT ASM, PUT DIAGNOSTIC TO TERMINAL. *
                                   5050+*                                                                     *
                                   5051+*   IF DATA SET TYPE IS ASM AND START POSITION AND LENGTH ARE         *
                                   5052+*   SPECIFIED, CHECK THAT START POSITION IS BETWEEN 73 AND 80 AND     *
                                   5053+*   THAT LENGTH IS LESS THAN OR EQUAL TO (80 - START POSITION + 1).   *
                                   5054+*                                                                     *
                                   5055+***********************************************************************
001A9C D501 C028 B668 00028 01E24  5056+         CLC   INNUM(L'IEKEYDEF),IEKEYDEF DETERMINE IF NONUM WAS
                                   5057+*                                  SPECIFIED.
001AA2 4780 B30C            01AC8  5058+         BE    IN005060 IF NUM SPECIFIED, BRANCH TO PROCESS
                                   5059+*                                  SUBFIELD OPERANDS.
001AA6 9104 90C1      000C1        5060+         TM    CADSATTR,CALNNUM CHECK IF DATA SET MUST BE LINE
                                   5061+*                                  NUMBERED.
001AAA 4780 B304            01AC0  5062+         BZ    IN005055 IF NOT, BRANCH TO INDICATE DATA SET
                                   5063+*                                  IS NOT TO (DOES NOT) CONTAIN
                                   5064+*                                  LINE NUMBERS.
001AAE 4150 0028            00028  5065+         LA    ERR1REG,INERRORB RELATIVE ERROR TO BE PROCESSED.
001AB2 4540 B53A            01CF6  5066+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
001AB6 12FF                        5067+         LTR   RETCDREG,RETCDREG CHECK IF PUTLINE WAS SUCCESSFUL.
001AB8 4770 B55E            01D1A  5068+         BNZ   IEEXIT1 IF NOT, BRANCH TO RETURN TO TMP.
001ABC 47F0 B3A2            01B5E  5069+         B     IN006040 BRANCH TO CHECK IF SEQUENCE NUMBER
                                   5070+*                                  START POSITION AND LENGTH ARE
                                   5071+*                                  CORRECT FOR LRECL AND RECFM.
001AC0                             5072+IN005055 EQU   *
001AC0 9601 907C      0007C        5073+         OI    CACFLAG1,CANONUM INDICATE DATA SET DOES NOT (IS
                                   5074+*                                  NOT TO) CONTAIN SEQUENCE NOS.
001AC4 47F0 B3A2            01B5E  5075+         B     IN006040 BRANCH TO CHECK SEQUENCE NUMBER
                                   5076+*                                  START POSITION AND LENGTH.
001AC8                             5077+IN005060 EQU   *
001AC8 9180 C046      00046        5078+         TM    INNOSTP+INSNOFLG,INSNOOMT CHECK IF START POSITION
                                   5079+*                                  WAS ENTERED.
001ACC 4780 B3A2            01B5E  5080+         BZ    IN006040 IF START POSITION NOT ENTERED,
                                   5081+*                                  BRANCH TO CHECK IF SEQUENCE
                                   5082+*                                  NUMBER START POSITION AND
                                   5083+*                                  LENGTH ARE CORRECT.
001AD0 9515 90C0      000C0        5084+         CLI   CADSCODE,CAASM CHECK IF DATA SET TYPE IS ASM.
001AD4 4780 B324            01AE0  5085+         BE    IN005065 IF ASM, BRANCH TO PROCESS START
                                   5086+*                                  POSITION AND LENGTH.
001AD8 4160 0003            00003  5087+         LA    ERR2REG,M3603 INDICATE THAT NUM SUBFIELDS WERE
                                   5088+*                                  SPECIFIED FOR NON-ASM DATA SET
                                   5089+*                                  TYPE.
001ADC 47F0 B360            01B1C  5090+         B     IN005075 BRANCH TO PUT ERROR MESSAGE.
001AE0                             5091+IN005065 EQU   *
001AE0 5840 C040            00040  5092+         L     AREAREG,INNOSTP+INSNOPT ADDRESS OF START POSITION.
001AE4 4830 C044            00044  5093+         LH    SIZEREG,INNOSTP+INSNOLN LENGTH OF OPERAND.
001AE8 45E0 B582            01D3E  5094+         BAL   RETREG,INCVBIN BRANCH TO CONVERT TO BINARY.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  138


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001AEC 1852                        5095+         LR    STRTNREG,LENREG SAVE START POSITION.
001AEE 9180 C04E      0004E        5096+         TM    INNOLEN+INSNOFLG,INSNOOMT CHECK IF SEQUENCE NUMBER
                                   5097+*                                  LENGTH ALSO ENTERED.
001AF2 4710 B340            01AFC  5098+         BO    IN005066 IF ENTERED, BRANCH TO CONVERT TO
                                   5099+*                                  BINARY.
001AF6 1B22                        5100+         SR    LENREG,LENREG INDICATE THAT LENGTH NOT ENTERED.
001AF8 47F0 B34C            01B08  5101+         B     IN005067 BRANCH TO VALIDATE START POSITION.
001AFC                             5102+IN005066 EQU   *
001AFC 5840 C048            00048  5103+         L     AREAREG,INNOLEN+INSNOPT ADDRESS OF LENGTH.
001B00 4830 C04C            0004C  5104+         LH    SIZEREG,INNOLEN+INSNOLN LENGTH OF OPERAND SUBFIELD.
001B04 45E0 B582            01D3E  5105+         BAL   RETREG,INCVBIN BRANCH TO CONVERT TO BINARY.
001B08                             5106+IN005067 EQU   *
001B08 4950 B674            01E30  5107+         CH    STRTNREG,IESTP073 CHECK IF START POSITION GREATER
001B0C 4740 B35C            01B18  5108+         BL    IN005070 THAN OR EQUAL TO COLUMN 73. IF
                                   5109+*                                  NOT, BRANCH TO PUT DIAGNOSTIC.
001B10 4950 B66A            01E26  5110+         CH    STRTNREG,IESTP080 CHECK IF START POSITION IS LESS
001B14 47D0 B372            01B2E  5111+         BNH   IN005080 THAN OR EQUAL TO 80.  IF NOT,
                                   5112+*                                  PUT DIAGNOSTIC TO TERMINAL.
001B18                             5113+IN005070 EQU   *
001B18 4160 0001            00001  5114+         LA    ERR2REG,M3601 INDICATE THAT START COLUMN IS IN
                                   5115+*                                  ERROR.
001B1C                             5116+IN005075 EQU   *
001B1C 4150 0030            00030  5117+         LA    ERR1REG,INERRORD RELATIVE ERROR TO BE PROCESSED.
001B20 4540 B53A            01CF6  5118+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
001B24 12FF                        5119+         LTR   RETCDREG,RETCDREG CHECK IF PUTLINE WAS SUCCESSFUL.
001B26 4770 B55E            01D1A  5120+         BNZ   IEEXIT1 IF NOT, BRANCH TO RETURN TO TMP.
001B2A 47F0 B3EA            01BA6  5121+         B     IN006050 BRANCH TO CHECK CAPS/ASIS KEYWORD.
001B2E                             5122+IN005080 EQU   *
001B2E 4830 B66A            01E26  5123+         LH    SIZEREG,IESTP080 COMPUTE THE QUANTITY --
001B32 4130 3001            00001  5124+         LA    SIZEREG,D1(PARMREG0,SIZEREG) 80 - SEQUENCE NUMBER
001B36 1B35                        5125+         SR    SIZEREG,STRTNREG START POSITION + 1.
001B38 1222                        5126+         LTR   LENREG,LENREG CHECK IF SEQUENCE NUMBER LENGTH
                                   5127+*                                  ALSO ENTERED.
001B3A 4780 B390            01B4C  5128+         BZ    IN005090 IF NOT ENTERED, BRANCH TO COMPUTE
                                   5129+*                                  OFFSET JUST COMPUTED.
001B3E 1923                        5130+         CR    LENREG,SIZEREG CHECK THAT LENGTH IS LESS THAN OR
001B40 47D0 B392            01B4E  5131+         BNH   IN006010 EQUAL TO 80 - START POSITION
                                   5132+*                                  + 1.  IF SO, BRANCH TO UPDATE
                                   5133+*                                  COMMUNICATION AREA.
001B44 4160 0002            00002  5134+         LA    ERR2REG,M3602 INDICATE THAT LENGTH IS IN ERROR.
001B48 47F0 B360            01B1C  5135+         B     IN005075 BRANCH TO PUT ERROR MESSAGE.
001B4C                             5136+IN005090 EQU   *
001B4C 1823                        5137+         LR    LENREG,SIZEREG COMPUTED SEQUENCE NUMBER LENGTH.
001B4E                             5138+IN006010 EQU   *
001B4E 4250 90AA            000AA  5139+         STC   STRTNREG,CALINE SAVE START POSITION IN
                                   5140+*                                  COMMUNICATION AREA.
001B52 4220 90AB            000AB  5141+         STC   LENREG,CALENGTH SAVE SEQUENCE NUMBER LENGTH IN
                                   5142+*                                  COMMUNICATION AREA.
001B56 9608 907D      0007D        5143+         OI    CACFLAG2,CASEQCOL INDICATE THAT DEFAULT SEQUENCE
                                   5144+*                                  FIELD START COLUMN AND LENGTH
                                   5145+*                                  ARE NOT BEING USED.
001B5A 47F0 B3EA            01BA6  5146+         B     IN006050 BRANCH TO CHECK CAPS/ASIS KEYWORD.
001B5E                             5147+IN006040 EQU   *
001B5E 9140 907D      0007D        5148+         TM    CACFLAG2,CARECFM CHECK IF RECFM = V.  IF SO,
001B62 4780 B3E2            01B9E  5149+         BZ    IN006045 BRANCH TO ASSURE THAT SEQUENCE
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  139


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5150+*                                  NUMBER START POSITION AND
                                   5151+*                                  LENGTH ARE CORRECT.
001B66 9102 90C1      000C1        5152+         TM    CADSATTR,CALRECLX MUST LRECL = 80.
001B6A 4710 B3EA            01BA6  5153+         BO    IN006050 IF SO, BRANCH TO CHECK CAPS/ASIS
                                   5154+*                                  KEYWORD.
001B6E 4830 90E8            000E8  5155+         LH    SIZEREG,CALRECL OBTAIN LRECL TO BE USED FOR DATA
                                   5156+*                                  SET.
001B72 4120 0007            00007  5157+         LA    LENREG,D7(PARMREG0,PARMREG0) CONSTANT 7 USED TO
                                   5158+*                                  FIND STARTING COLUMN NUMBER.
                                   5159+*   COMPUTE STARTING COLUMN NUMBER
                                   5160+*   START NUMBER = LRECL + 1 - SEQUENCE NUMBER LENGTH WHERE LENGTH
                                   5161+*   IS ALWAYS 8.
001B76 1B32                        5162+         SR    SIZEREG,LENREG COMPUTE START COLUMN NUMBER AND
001B78 1233                        5163+         LTR   SIZEREG,SIZEREG CHECK IF RECORD CAN CONTAIN
                                   5164+*                                  DATA, I.E., LRECL GT LINE
                                   5165+*                                  NUMBER SIZE.
001B7A 4720 B3D6            01B92  5166+         BP    IN006043 IF LRECL GT LINE NUMBER SIZE,
                                   5167+*                                  BRANCH TO SAVE START POSITION.
001B7E 9101 907C      0007C        5168+         TM    CACFLAG1,CANONUM CHECK IF NONUM ENTERED.
001B82 4710 B3EA            01BA6  5169+         BO    IN006050 BRANCH TO CHECK CAPS/ASIS OPERAND
                                   5170+*                                  IF NONUM.
                                   5171+*
                                   5172+*   USER SUPPLIED INCOMPATIBLE LINE AND NUM OPERANDS.  ISSUE
                                   5173+*   MESSAGE AND TERMINATE EDIT.
                                   5174+*
001B86 4150 0040            00040  5175+         LA    ERR1REG,INERRORH RELATIVE ERROR TO BE PROCESSED.
001B8A 4540 B53A            01CF6  5176+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
001B8E 47F0 B55E            01D1A  5177+         B     IEEXIT1 BRANCH TO TERMINATE EDIT.
001B92                             5178+IN006043 EQU   *
001B92 4230 90AA            000AA  5179+         STC   SIZEREG,CALINE SAVE SEQUENCE NUMBER START POSITION
001B96 9608 907D      0007D        5180+         OI    CACFLAG2,CASEQCOL INDICATE THAT DEFAULT SEQUENCE
                                   5181+*                                  FIELD START COLUMN IS NOT
                                   5182+*                                  BEING USED.
001B9A 47F0 B3EA            01BA6  5183+         B     IN006050 BRANCH TO CHECK CAPS/ASIS OPERAND.
001B9E                             5184+IN006045 EQU   *
001B9E 9201 90AA      000AA        5185+         MVI   CALINE,D1 START COLUMN POSITION, RECFM = V.
001BA2 9208 90AB      000AB        5186+         MVI   CALENGTH,D8 SEQUENCE NUMBER LENGTH, RECFM = V.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  140


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001BA6                             5188+IN006050 EQU   *
                                   5189+***********************************************************************
                                   5190+*                                                                     *
                                   5191+*   VALIDATE CAPS/ASIS KEYWORD.                                       *
                                   5192+*                                                                     *
                                   5193+*   DETERMINE WHETHER OR NOT CAPS OR AS WAS ENTERED.  IF CAPS WAS     *
                                   5194+*   ENTERED, INDICATE ALL DATA TO BE CONVERTED TO UPPER CASE.  IF     *
                                   5195+*   ASIS WAS ENTERED, DETERMINE IF PERMISSABLE FOR DATA SET TYPE.     *
                                   5196+*   IF NOT PERMISSABLE TO USE ASIS, INFORM USER AND USE DEFAULT.      *
                                   5197+*                                                                     *
                                   5198+***********************************************************************
001BA6 D501 C026 B65E 00026 01E1A  5199+         CLC   INFMT(L'IENOKEYW),IENOKEYW CHECK IF CAPS OR ASIS
                                   5200+*                                  WAS ENTERED.
001BAC 4780 B418            01BD4  5201+         BE    IN006080 IF NEITHER, BRANCH TO SET CAPS/ASIS
                                   5202+*                                  FLAG BASED ON DATA SET
                                   5203+*                                  ATTRIBUTES.
001BB0 D501 C026 B668 00026 01E24  5204+         CLC   INFMT(L'IECPSSUP),IECPSSUP CHECK IF CAPS ENTERED.
001BB6 4780 B420            01BDC  5205+         BE    IN006085 IF CAPS SPECIFIED, BRANCH TO SET
                                   5206+*                                  CAPS FLAG IN COMMUNICATION
                                   5207+*                                  AREA.
001BBA 9120 90C1      000C1        5208+         TM    CADSATTR,CACAPSRQ CHECK IF CAPS ARE REQUIRED.
001BBE 4780 B424            01BE0  5209+         BZ    IN006090 IF NOT, BRANCH TO PROCESS PL/I
                                   5210+*                                  DATA SET TYPE.
001BC2 4150 0034            00034  5211+         LA    ERR1REG,INERRORE RELATIVE ERROR TO BE PROCESSED.
001BC6 4540 B53A            01CF6  5212+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
001BCA 12FF                        5213+         LTR   RETCDREG,RETCDREG CHECK IF PUTLINE WAS SUCCESSFUL.
001BCC 4770 B55E            01D1A  5214+         BNZ   IEEXIT1 IF NOT, BRANCH TO RETURN TO TMP.
001BD0 47F0 B420            01BDC  5215+         B     IN006085 OTHERWISE, BRANCH TO SET CAPS FLAG
                                   5216+*                                  IN COMMUNICATION AREA.
001BD4                             5217+IN006080 EQU   *
001BD4 9110 90C1      000C1        5218+         TM    CADSATTR,CACAPSDF DETERMINE IF ASIS IS THE
                                   5219+*                                  DEFAULT.
001BD8 4780 B424            01BE0  5220+         BZ    IN006090 IF ASIS, BRANCH TO CHECK PLI DSTYPE
001BDC                             5221+IN006085 EQU   *
001BDC 9602 907C      0007C        5222+         OI    CACFLAG1,CACAPS INDICATE THAT ALL INPUT DATA IS
                                   5223+*                                  TO BE TRANSLATED TO UPPER CASE
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  141


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001BE0                             5225+IN006090 EQU   *
                                   5226+***********************************************************************
                                   5227+*
                                   5228+* IPLI KEYWORD SUBFIELD OPERAND.
                                   5229+*
                                   5230+* DETERMINE WHETHER CHAR48 OR CHAR60 WAS ENTERED.  SET THE
                                   5231+* APPROPRIATE BIT IN CACFLAG6 OF THE COMMUNICATION AREA BASED ON
                                   5232+* WHAT WAS ENTERED ON THE COMMAND, AND BRANCH TO CHECK THE
                                   5233+* DISPOSITION OF THE EDIT DATA SET.
                                   5234+*
                                   5235+***********************************************************************


001BE0 5840 95B8            005B8  5237+         L     AREAREG,INPDLPTR ADDRESS OF PROMPT PDL.           A45713
001BE4 1244                        5238+         LTR   AREAREG,AREAREG CHECK IF PROMPT PDL PRESENT.      A45713
001BE6 47D0 B43E            01BFA  5239+         BNP   IN006095 IF NO, BRANCH TO PROCESS SUBFLD.   A45713
001BEA 4120 C050            00050  5240+         LA    LENREG,INPL1CL1 ADDRESS OF TYPE PDE IN MAIN       SM5064
                                   5241+*                                  (COMMAND) PDL.                SM5064
001BEE 1B2C                        5242+         SR    LENREG,DATAREG COMPUTE OFFSET OF PDE FROM PDL     SM5064
                                   5243+*                                  ORIGIN.                       SM5064
001BF0 4100 000C            0000C  5244+         LA    PARMREG0,INPLICL1-ICDSTPDL OBTAIN OFFSET TO       SM5064
                                   5245+*                                  CORRESPONDING PDE IN PROMPT   SM5064
                                   5246+*                                  PDL.                          SM5064
001BF4 1B20                        5247+         SR    LENREG,PARMREG0 COMPUTE FACTOR TO BE SUBTRACTED   SM5064
                                   5248+*                                  FROM PROMPT PDL ORIGIN TO GIVESM5064
                                   5249+*                                  IT ADDRESSABILITY USING MAIN  SM5064
                                   5250+*                                  PDL DSECT.                    SM5064
001BF6 1B42                        5251+         SR    AREAREG,LENREG ADJUST BASE FOR PDL REFERENCE.     A45713
001BF8 18C4                        5252+         LR    DATAREG,AREAREG ESTAB. ADDRESSABILITY TO PROMPT   A45713
                                   5253+*                                  PDL WHILE STILL REFERENCING   A45713
                                   5254+*                                  LABELS IN MAIN PDL.           A45713
001BFA                             5255+IN006095 EQU   * A45713
001BFA 9521 90C0      000C0        5256+         CLI   CADSCODE,CAIPLI CHECK IF DATA SET TYPE IS IPLI.
001BFE 4770 B460            01C1C  5257+         BNE   IN007010 IF NOT, BRANCH TO CONTINUE
                                   5258+*                                  PROCESSING.
001C02 D501 C062 B668 00062 01E24  5259+         CLC   INIPLICH(L'IEKEYDEF),IEKEYDEF CHECK IF CHAR60
                                   5260+*                                  SPECIFIED.
001C08 47D0 B458            01C14  5261+         BNH   IN007000 IF SO, BRANCH TO SET FLAG.
001C0C 9640 9081      00081        5262+         OI    CACFLAG6,CACHAR48 INDICATE 48-CHARACTER SET.
001C10 47F0 B55A            01D16  5263+         B     IN013020 BRANCH TO CHECK DISPOSITION OF     A45714
                                   5264+*                                  EDIT DATA SET.
001C14                             5265+IN007000 EQU   *
001C14 9620 9081      00081        5266+         OI    CACFLAG6,CACHAR60 INDICATE 60-CHARACTER SET.
001C18 47F0 B55A            01D16  5267+         B     IN013020 BRANCH TO CHECK DISPOSITION OF     A45714
                                   5268+*                                  EDIT DATA SET.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  142


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001C1C                             5270+IN007010 EQU   *
                                   5271+***********************************************************************
                                   5272+*                                                                     *
                                   5273+*   PLI KEYWORD SUBFIELD OPERAND.                                     *
                                   5274+*                                                                     *
                                   5275+*   CONVERT SOURCE MARGIN(S) TO BINARY AND VALIDITY CHECK.  LEFT      *
                                   5276+*   SOURCE MARGIN MUST BE LESS THAN RIGHT SOURCE MARGIN AND RIGHT     *
                                   5277+*   SOURCE MARGIN MUST BE LESS THAN SEQUENCE NUMBER START POSITION    *
                                   5278+*   (IF DATA SET IS SEQUENCE NUMBERED) OR LESS THAN OR EQUAL TO LINE  *
                                   5279+*   (IF DATA SET DOES NOT CONTAIN SEQUENCE NUMBERS).  IF AN ERROR     *
                                   5280+*   IS ENCOUNTERED AND THE DATA SET IS NEW, NOTIFY USER AND DEFAULT.  *
                                   5281+*                                                                     *
                                   5282+***********************************************************************
001C1C 9522 90C0      000C0        5283+         CLI   CADSCODE,CAPLI CHECK IF DATA SET TYPE IS PL/I.
001C20 4780 B470            01C2C  5284+         BE    IN007050 IF PL/I, BRANCH TO CHECK SUBFIELD
                                   5285+*                                  OPERANDS.
001C24 9501 90C0      000C0        5286+         CLI   CADSCODE,CAPLIF CHECK IF DATA SET TYPE IS PL/I (F)
001C28 4770 B55A            01D16  5287+         BNE   IN013020 IF NO, BRANCH TO CHECK DISPOSITION A45714
                                   5288+*                                  OF EDIT DATA SET.
001C2C                             5289+IN007050 EQU   *
001C2C 9180 C056      00056        5290+         TM    INPL1CL1+INSMGFLG,INOPRNDO DETERMINE IF USER
                                   5291+*                                  SPECIFIED LEFT SOURCE MARGIN.
001C30 4780 B50A            01CC6  5292+         BZ    IN007087 IF NOT, BRANCH TO DEFAULT.
001C34 48F0 90E8            000E8  5293+         LH    EPLOCREG,CALRECL ACQUIRE LOGICAL RECORD LENGTH.
001C38 9101 907C      0007C        5294+         TM    CACFLAG1,CANONUM CHECK IF DATA SET NONUM.
001C3C 4710 B48C            01C48  5295+         BO    IN007053 IF SO, BRANCH TO CHECK IF FIXED
                                   5296+*                                  OR VARIABLE RECORD FORMAT.
001C40 1B33                        5297+         SR    SIZEREG,SIZEREG
001C42 4330 90AB            000AB  5298+         IC    SIZEREG,CALENGTH ACQUIRE SEQUENCE NUMBER LENGTH.
001C46 1BF3                        5299+         SR    EPLOCREG,SIZEREG SET MAXIMUM SOURCE MARGIN VALUE
                                   5300+*                                  FOR FIXED, NUM DATA SETS.
001C48                             5301+IN007053 EQU   *
001C48 9140 907D      0007D        5302+         TM    CACFLAG2,CARECFM CHECK IF FIXED OR VARIABLE
                                   5303+*                                  RECORD FORMAT.
001C4C 4710 B49A            01C56  5304+         BO    IN007056 IF FIXED, BRANCH TO VALIDITY CHECK
                                   5305+*                                  MARGINS SPECIFIED.
001C50 4130 0004            00004  5306+         LA    SIZEREG,D4 IF VARIABLE,
001C54 1BF3                        5307+         SR    EPLOCREG,SIZEREG SUBTRACT 4 TO GIVE MAXIMUM
                                   5308+*                                  MARGIN VALUE.
001C56                             5309+IN007056 EQU   *
001C56 5840 C050            00050  5310+         L     AREAREG,INPL1CL1+INSMGPT ADDRESS OF LEFT SOURCE
                                   5311+*                                  MARGIN.
001C5A 4830 C054            00054  5312+         LH    SIZEREG,INPL1CL1+INSMGLN LENGTH OF LEFT SOURCE
                                   5313+*                                  MARGIN.
001C5E 45E0 B582            01D3E  5314+         BAL   RETREG,INCVBIN BRANCH TO CONVERT TO BINARY.
001C62 1852                        5315+         LR    STRTNREG,LENREG SAVE LEFT SOURCE MARGIN.
001C64 9180 C05E      0005E        5316+         TM    INPL1CL2+INSMGFLG,INOPRNDO DETERMINE IF USER
                                   5317+*                                  SPECIFIED RIGHT SOURCE MARGIN.
001C68 4710 B4B6            01C72  5318+         BO    IN007060 IF SPECIFIED, BRANCH TO PROCESS -
001C6C 1B22                        5319+         SR    LENREG,LENREG OTHERWISE, INDICATE NOT SPECIFIED.
001C6E 47F0 B4C2            01C7E  5320+         B     IN007062 BRANCH TO VALIDATE SOURCE MARGINS.
001C72                             5321+IN007060 EQU   *
001C72 5840 C058            00058  5322+         L     AREAREG,INPL1CL2+INSMGPT ADDRESS OF RIGHT SOURCE
                                   5323+*                                  MARGIN.
001C76 4830 C05C            0005C  5324+         LH    SIZEREG,INPL1CL2+INSMGLN LENGTH OF RIGHT SOURCE
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  143


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5325+*                                  MARGIN.
001C7A 45E0 B582            01D3E  5326+         BAL   RETREG,INCVBIN BRANCH TO CONVERT TO BINARY.
001C7E                             5327+IN007062 EQU   *
001C7E 1952                        5328+         CR    STRTNREG,LENREG CHECK IF LEFT MARGIN IS LESS THAN
                                   5329+*                                  RIGHT MARGIN.
001C80 4740 B4EA            01CA6  5330+         BL    IN007070 IF LEFT MARGIN IS LESS THAN RIGHT
                                   5331+*                                  MARGIN, BRANCH TO VALIDATE
                                   5332+*                                  RIGHT MARGIN.
001C84 1222                        5333+         LTR   LENREG,LENREG TEST IF RIGHT MARGIN SPECIFIED.
001C86 4770 B4F4            01CB0  5334+         BNZ   IN007085 IF SPECIFIED, BRANCH TO PUT ERROR
                                   5335+*                                  MESSAGE.
001C8A 4110 0048            00048  5336+         LA    PARMREG1,INRSRCMG DEFAULT RIGHT SOURCE MARGIN.
001C8E 1951                        5337+         CR    STRTNREG,PARMREG1 CHECK IF LEFT MARGIN IS LESS
001C90 47B0 B4F4            01CB0  5338+         BNL   IN007085 THAN RIGHT MARGIN.  IF NOT,
                                   5339+*                                  BRANCH TO PUT ERROR MESSAGE.
001C94 195F                        5340+         CR    STRTNREG,EPLOCREG CHECK IF LEFT SOURCE MARGIN
                                   5341+*                                  EXCEEDS MAXIMUM ALLOWABLE.
001C96 4720 B4F4            01CB0  5342+         BH    IN007085 IF SO, BRANCH TO PUT ERROR MESSAGE.
001C9A 4250 9082            00082  5343+         STC   STRTNREG,CAPLILFM INDICATE LEFT SOURCE MARGIN IN
                                   5344+*                                  COMMUNICATION AREA.
001C9E 9248 9083      00083        5345+         MVI   CAPLIRTM,INRSRCMG DEFAULT RIGHT MARGIN TO 72.
001CA2 47F0 B51A            01CD6  5346+         B     IN008010 BRANCH TO CHECK CHARACTER SET.
001CA6                             5347+IN007070 EQU   *
001CA6 4250 9082            00082  5348+         STC   STRTNREG,CAPLILFM INDICATE LEFT SOURCE MARGIN IN
                                   5349+*                                  COMMUNICATION AREA.
001CAA 192F                        5350+         CR    LENREG,EPLOCREG CHECK IF RIGHT SOURCE MARGIN
                                   5351+*                                  EXCEEDS MAXIMUM ALLOWABLE.
001CAC 47D0 B516            01CD2  5352+         BNH   IN007090 IF NOT, BRANCH TO SAVE RIGHT SOURCE
                                   5353+*                                  MARGIN.
001CB0                             5354+IN007085 EQU   *
001CB0 1875                        5355+         LR    DATA1REG,STRTNREG BUILD PARAMETER VALUE FOR
001CB2 8970 0010            00010  5356+         SLL   DATA1REG,D16(D0) MESSAGE ROUTINE CONTAINING
001CB6 1672                        5357+         OR    DATA1REG,LENREG OPERANDS ENTERED.
001CB8 4150 002C            0002C  5358+         LA    ERR1REG,INERRORC RELATIVE ERROR TO BE PROCESSED
001CBC 4540 B53A            01CF6  5359+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
001CC0 12FF                        5360+         LTR   RETCDREG,RETCDREG CHECK IF PUTLINE WAS SUCCESSFUL.
001CC2 4770 B55E            01D1A  5361+         BNZ   IEEXIT1 IF NOT, BRANCH TO RETURN TO TMP.
001CC6                             5362+IN007087 EQU   *
001CC6 9202 9082      00082        5363+         MVI   CAPLILFM,INLSRCMG DEFAULT LEFT AND RIGHT SOURCE
001CCA 9248 9083      00083        5364+         MVI   CAPLIRTM,INRSRCMG MARGINS TO (2,72).
001CCE 47F0 B51A            01CD6  5365+         B     IN008010 BRANCH TO CHECK CHARACTER SET.
001CD2                             5366+IN007090 EQU   *
001CD2 4220 9083            00083  5367+         STC   LENREG,CAPLIRTM SAVE RIGHT SOURCE MARGIN.
001CD6                             5368+IN008010 EQU   *
001CD6 D201 90D0 9082 000D0 00082  5369+         MVC   CACHKOPT(L'CACHKOPT),CAPLILFM INIT CHKR OPT WORD. A45714
001CDC D501 C060 B668 00060 01E24  5370+         CLC   INPL1TYP(L'IEKEYDEF),IEKEYDEF CHECK IF CHAR60
                                   5371+*                                  SPECIFIED.
001CE2 4780 B532            01CEE  5372+         BE    IN008020 IF CHAR60, BRANCH TO INDICATE IN
                                   5373+*                                  COMMUNICATION AREA.
001CE6 9640 9081      00081        5374+         OI    CACFLAG6,CACHAR48 INDICATE CHAR48 IN COMMUNICATION
                                   5375+*                                  AREA.
001CEA 47F0 B55A            01D16  5376+         B     IN013020 BRANCH TO CHECK DISPOSITION OF     A45714
                                   5377+*                                  EDIT DATA SET.
001CEE                             5378+IN008020 EQU   *
001CEE 9620 9081      00081        5379+         OI    CACFLAG6,CACHAR60 INDICATE CHAR60 IN COMMUNICATION
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  144


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5380+*                                  AREA.
001CF2 47F0 B55A            01D16  5381+         B     IN013020 BRANCH TO CHECK DISPOSITION OF     A45714
                                   5382+*                                  EDIT DATA SET.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  145


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001CF6                             5384+IN013010 EQU   *
001CF6 58F0 B660            01E1C  5385+         L     EPLOCREG,IEMSGRTN ADDRESS OF MESSAGE ROUTINE.
001CFA                             5386+         DS    0H
001CFA 4110 9890            00890  5387+         LA    1,INSVCRTN LOAD PARAMETER REG 1
001CFE 5090 1000            00000  5388+         ST    (COMMREG),0(0,1) STORE INTO PARAM. LIST
001D02 5050 1004            00004  5389+         ST    (ERR1REG),4(0,1) STORE INTO PARAM. LIST
001D06 5060 1008            00008  5390+         ST    (ERR2REG),8(0,1) STORE INTO PARAM. LIST
001D0A 5070 100C            0000C  5391+         ST    (DATA1REG),12(0,1) STORE INTO PARAM. LIST
001D0E 5080 1010            00010  5392+         ST    (DATA2REG),16(0,1) STORE INTO PARAM. LIST
001D12 05EF                        5393+         BALR  14,15 BRANCH TO ENTRY POINT
001D14 07F4                        5394+         BR    AREAREG RETURN TO CALLER.
001D16                             5395+IN013020 EQU   * A45714
001D16 47F0 B566            01D22  5396+         B     IEEXIT2 BRANCH TO CHECK DISPOSITION        A45714
                                   5397+*                                  OF EDIT DATA SET.             A45714
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  146


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5399+***********************************************************************
                                   5400+*                                                                     *
                                   5401+*   EXIT AREA -- RETURN TO INVOKING ROUTINE WITH A RETURN CODE TO     *
                                   5402+*   INDICATE SUCCESS OR FAILURE.  RETURN CODES ARE -- ZERO (ALL
                                   5403+*   OPERANDS ENTERED BY USER WERE CORRECT OR WERE DEFAULTED FOR
                                   5404+*   THE EDIT DATA SET TYPE), 4 (A TERMINAL ERROR WAS ENCOUNTERED,     *
                                   5405+*   TERMINATE EDIT).                                                  *
                                   5406+*                                                                     *
                                   5407+***********************************************************************
001D1A                             5408+IEEXIT1  EQU   *
001D1A 41F0 0004            00004  5409+         LA    RETCDREG,D4(,D0) SET ERROR RETURN CODE.
001D1E 47F0 B568            01D24  5410+         B     IEEXIT3 BRANCH TO RETURN TO CALLING ROUTINE
001D22                             5411+IEEXIT2  EQU   *
001D22 1BFF                        5412+         SR    RETCDREG,RETCDREG SET SUCCESSFUL RETURN CODE.
001D24                             5413+IEEXIT3  EQU   *
001D24 50D9 0DE8            00DE8  5414+         ST    13,(CANXTSVA-IKJEBECA)(COMMREG) UPDATE NEXT
                                   5415+*                                  AVAILABLE SAVE AREA POINTER.
001D28 18CD                        5416+         LR    12,13 COPY OVER SAVE AREA ADDRESS.
001D2A 58D0 D004            00004  5417+         L     13,4(,13) ADDRESS OF HIGHER SAVE AREA.
001D2E D747 C000 C000 00000 00000  5418+         XC    0(72,12),0(12) ZERO SAVE AREA.
001D34 58E0 D00C            0000C  5419+         L     14,12(0,13) RESTORE REGISTER 14.
001D38 980C D014            00014  5420+         LM    0,12,20(13) RESTORE THE REGISTERS.
001D3C 07FE                        5421+         BR    14 RETURN.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  147


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5423+***********************************************************************
                                   5424+*                                                                     *
                                   5425+*   CONVERT TO BINARY SUBROUTINE.                                     *
                                   5426+*                                                                     *
                                   5427+***********************************************************************
001D3E                             5428+INCVBIN  EQU   *
001D3E 0630                        5429+         BCTR  SIZEREG,PARMREG0 REDUCE OPERAND LENGTH BY 1.
001D40 4430 B676            01E32  5430+         EX    SIZEREG,IEPACK1 CHANGE TO PACKED DECIMAL FORMAT.
001D44 4F20 9880            00880  5431+         CVB   LENREG,INDECBIN CHANGE TO FIXED BINARY FORMAT.
001D48 07FE                        5432+         BR    RETREG RETURN TO CALLER.





001D4A                             5434+INP03010 EQU   *
                                   5435+***********************************************************************
                                   5436+*                                                                     *
                                   5437+*   SUBROUTINE USED TO DETERMINE IF LINE AND/OR BLOCK KEYWORDS WERE   *
                                   5438+*   ENTERED ON THE EDIT COMMAND.                                      *
                                   5439+*                                                                     *
                                   5440+*   DETERMINE IF LINE OR BLOCK OR BOTH KEYWORDS WERE ENTERED.  IF     *
                                   5441+*   SO, INFORM USER THAT KEYWORD IS INVALID WITH OLD DATA SET.        *
                                   5442+*   WHEN COMPLETE, BRANCH TO CHECK SCAN OPERAND.                      *
                                   5443+*                                                                     *
                                   5444+***********************************************************************
000000                             5445+         USING INECMNDD,DATAREG ADDRESSABILITY TO PARSE PDL.
001D4A 9102 90C1      000C1        5446+         TM    CADSATTR,CALRECLX CHECK IF LRECL MUST BE 80.
001D4E 4780 B5AA            01D66  5447+         BZ    INP03015 IF NOT, BRANCH TO CHECK IF LINE
                                   5448+*                                  AND/OR BLOCK OPERAND SPECIFIED
001D52 9140 907D      0007D        5449+         TM    CACFLAG2,CARECFM CHECK IF RECFM = V FOR OLD DATA
001D56 4710 B5AA            01D66  5450+         BO    INP03015 SETS.  IF FIXED, BRANCH TO
                                   5451+*                                  CHECK IF USER SPECIFIED LINE
                                   5452+*                                  OPERAND.
001D5A 4150 0048            00048  5453+         LA    ERR1REG,INERRORJ RELATIVE ERROR TO BE PROCESSED.
001D5E 4540 B53A            01CF6  5454+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
001D62 47F0 B55E            01D1A  5455+         B     IEEXIT1 BRANCH TO EXIT WITH ERROR RETURN
                                   5456+*                                  CODE.
001D66                             5457+INP03015 EQU   *
001D66 D501 C02C B65E 0002C 01E1A  5458+         CLC   INLNE(L'IENOKEYW),IENOKEYW CHECK IF LINE KEYWORD
                                   5459+*                                  WAS SPECIFIED.
001D6C 4780 B5C6            01D82  5460+         BE    INP03020 IF NOT, BRANCH TO CHECK IF BLOCK
                                   5461+*                                  KEYWORD WAS SPECIFIED.
001D70 4150 003C            0003C  5462+         LA    ERR1REG,INERRORG RELATIVE ERROR TO BE PROCESSED.
001D74 4170 B67C            01E38  5463+         LA    DATA1REG,IEINS001 INSERTION RECORD FOR MESSAGE.
001D78 4540 B53A            01CF6  5464+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
001D7C 12FF                        5465+         LTR   RETCDREG,RETCDREG CHECK IF PUTLINE WAS SUCCESSFUL.
001D7E 4770 B55E            01D1A  5466+         BNZ   IEEXIT1 IF NOT, BRANCH TO RETURN TO TMP.
001D82                             5467+INP03020 EQU   *
001D82 D501 C02A B65E 0002A 01E1A  5468+         CLC   INBLK(L'IENOKEYW),IENOKEYW CHECK IF BLOCK KEYWORD
                                   5469+*                                  WAS SPECIFIED.
001D88 4780 B132            018EE  5470+         BE    IN004020 IF NOT, BRANCH TO CALCULATE NUMBER
                                   5471+*                                  OF RECORDS IN OLD DATA SET.
001D8C 4150 003C            0003C  5472+         LA    ERR1REG,INERRORG RELATIVE ERROR TO BE PROCESSED.
001D90 4170 B688            01E44  5473+         LA    DATA1REG,IEINS002 INSERTION RECORD FOR MESSAGE.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  148


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001D94 4540 B53A            01CF6  5474+         BAL   AREAREG,IN013010 BRANCH TO PUT ERROR MESSAGE.
001D98 12FF                        5475+         LTR   RETCDREG,RETCDREG CHECK IF PUTLINE WAS SUCCESSFUL.
001D9A 4770 B55E            01D1A  5476+         BNZ   IEEXIT1 IF NOT, BRANCH TO RETURN TO TMP.
001D9E 47F0 B132            018EE  5477+         B     IN004020 BRANCH TO CALCULATE NUMBER OF
                                   5478+*                                  RECORDS IN OLD DATA SET.





001DA2                             5480+IN011010 EQU   *
                                   5481+***********************************************************************
                                   5482+*                                                                     *
                                   5483+*   VALIDATE GOFORT OPERANDS.                                         *
                                   5484+*                                                                     *
                                   5485+*   DETERMINE IF DATA SET TYPE IS GOFORT.  IF NOT GOFORT, RETURN.     *
                                   5486+*   WHEN GOFORT, DETERMINE IF FIXED OR FREE WAS SPECIFIED.  IF FREE   *
                                   5487+*   SPECIFIED, CAUSE EDIT TO BE TERMINATED UNDER TWO CONDITIONS --    *
                                   5488+*   (1) RECORD FORMAT F FOR OLD DATA SET, OR (2) LINE OPERAND         *
                                   5489+*   SPECIFIED FOR A NEW DATA SET.  IF GOFORT(FIXED) HAS BEEN          *
                                   5490+*   SPECIFIED, INDICATE THAT LRECL IS ALWAYS 80 AND THAT CAPS ARE     *
                                   5491+*   REQUIRED.  CHANGE SEQUENCE NUMBER START POSITION FROM 1 TO 73.    *
                                   5492+*                                                                     *
                                   5493+***********************************************************************
001DA2 951F 90C0      000C0        5494+         CLI   CADSCODE,CAGOFORT DETERMINE IF DATA SET TYPE IS
001DA6 4770 B65C            01E18  5495+         BNE   IN011020 GOFORT.  IF NOT, RETURN.
001DAA 5840 95B8            005B8  5496+         L     AREAREG,INPDLPTR ADDRESS OF PROMPT PDL.           A45713
001DAE 1244                        5497+         LTR   AREAREG,AREAREG CHECK IF PDL PRESENT.             A45713
001DB0 47D0 B606            01DC2  5498+         BNP   IN011011 IF NO, BRANCH TO PROCESS GOFORT.   A45713
000000                             5499+         USING ICDSTPDL,AREAREG ESTAB. ADDRESSABILITY FOR PDL.   A45713
001DB4 D501 4020 B668 00020 01E24  5500+         CLC   INTSFTF2(L'IEKEYDEF),IEKEYDEF CHECK IF 'FIXED'    A45713
                                   5501+*                                  SPECIFIED FOR GOFORT.         A45713
001DBA 4720 B644            01E00  5502+         BH    IN011014 IF YES, BRANCH TO PROCESS.         A45713
001DBE 47F0 B610            01DCC  5503+         B     IN01101A IF NO, BRANCH TO SET SWITCHES.     A45713
                                   5504+         DROP  AREAREG A45713

001DC2                             5506+IN011011 EQU   * A45713
001DC2 D501 C064 B668 00064 01E24  5507+         CLC   INTSFTFM(L'IEKEYDEF),IEKEYDEF DETERMINE IF 'FIXED'
                                   5508+*                                  SPECIFIED FOR GOFORT.
001DC8 4720 B644            01E00  5509+         BH    IN011014 IF SO, BRANCH TO PROCESS.
001DCC                             5510+IN01101A EQU   * A45713
001DCC 9780 9711      00711        5511+         XI    IN8FLAGS,IN8GOFSW FLIP GOFORT SWITCH.
001DD0 4780 B65C            01E18  5512+         BZ    IN011020 IF ZERO, VALIDATION HAS BEEN
                                   5513+*                                  PERFORMED, BRANCH TO RETURN.
001DD4 9110 90EC      000EC        5514+         TM    CAEDFLAG,CAEDDISP DETERMINE IF DATA SET IS NEW.
001DD8 4780 B62C            01DE8  5515+         BZ    IN011012 IF SO, BRANCH TO DETERMINE IF LINE
                                   5516+*                                  OPERAND SPECIFIED.
001DDC 9140 907D      0007D        5517+         TM    CACFLAG2,CARECFM IF OLD, DETERMINE IF RECORD FORMAT
                                   5518+*                                  IS VARIABLE.
001DE0 4780 B658            01E14  5519+         BZ    IN011015 IF VARIABLE, BRANCH TO SET 'FREE'
                                   5520+*                                   SWITCH AND RETURN.
001DE4 47F0 B636            01DF2  5521+         B     IN011013 BRANCH TO SEND ERROR MESSAGE.
001DE8                             5522+IN011012 EQU   *
001DE8 D501 C02C B65E 0002C 01E1A  5523+         CLC   INLNE(L'IENOKEYW),IENOKEYW DETERMINE IF LINE
                                   5524+*                                  OPERAND SPECIFIED.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  149


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

001DEE 4780 B658            01E14  5525+         BE    IN011015 IF SO, BRANCH TO SET 'FREE' SWITCH
                                   5526+*                                  AND RETURN.
001DF2                             5527+IN011013 EQU   *
001DF2 4150 0078            00078  5528+         LA    ERR1REG,INERRORV SPECIFY RELATIVE ERROR TO BE
                                   5529+*                                  PROCESSED.
001DF6 4540 B53A            01CF6  5530+         BAL   AREAREG,IN013010 BRANCH TO SEND ERROR MESSAGE.
001DFA 9640 9711      00711        5531+         OI    IN8FLAGS,IN8TERME INDICATE THAT EDIT IS TO BE
                                   5532+*                                  TERMINATED BY CALLER.
001DFE 07F8                        5533+         BR    SRRTNREG RETURN TO CALLER.
001E00                             5534+IN011014 EQU   *
001E00 9622 90C1      000C1        5535+         OI    CADSATTR,CACAPSRQ+CALRECLX INDICATE CAPS REQUIRED
                                   5536+*                                  AND DEFAULT LRECL TO BE USED.
001E04 4830 B66A            01E26  5537+         LH    SIZEREG,IELR080 LRECL IS 80 FOR FIXED FORMAT.
001E08 4030 90C4            000C4  5538+         STH   SIZEREG,CAFLRLDF SET LRECL IN PROCESSOR TABLE.
001E0C 9249 90AA      000AA        5539+         MVI   CALINE,INTSFSQO SET SEQUENCE NUMBER START POSITION
                                   5540+*                                 TO 73 FOR FIXED.
001E10 47F0 B65C            01E18  5541+         B     IN011020 BRANCH TO RETURN TO CALLER.
001E14                             5542+IN011015 EQU   *
001E14 9680 9081      00081        5543+         OI    CACFLAG6,CAFREE INDICATE THAT GOFORT RECORD FORMAT
                                   5544+*                                  IS FREE FORM.
001E18                             5545+IN011020 EQU   *
001E18 07F8                        5546+         BR    SRRTNREG RETURN TO CALLER.
                                   5547+         DROP  DATAREG
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  150


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5549+***********************************************************************
                                   5550+*                                                                     *
                                   5551+*   EQUATES, CONSTANTS AND AREAS USED BY THIS ROUTINE.                *
                                   5552+*                                                                     *
                                   5553+***********************************************************************
001E1A 0000                        5554+IENOKEYW DC    XL2'0' CONSTANT USED TO DETERMINE IF A
                                   5555+*                                  KEYWORD ENTERED ON COMMAND.
001E1C 00000000                    5556+IEMSGRTN DC    V(IKJEBIN3) ADDRESS OF MESSAGE ROUTINE FOR
                                   5557+*                                  INITIALIZATION PHASE.
001E20 00000D3C                    5558+IEINS003 DC    A(ININS002) ADDRESS OF MESSAGE INSERTION.      A45714
001E24 0001                        5559+IEKEYDEF DC    XL2'1' DEFAULT KEYWORD NUMBER FROM IKJPARS
001E26 0050                        5560+IELR080  DC    H'80' DEFAULT LRECL = 80.
001E28                             5561+         DS    0F ALIGN ON WORD BOUNDARY.
001E28 03000000                    5562+IEDEVTYP DC    XL4'03000000' INDICATOR FOR DEVTYPE SVC ROUTINE.
001E2C 0001000E                    5563+IELSTDSC DC    X'0001000E' LIST DESCRIPTION FIELD FOR BLDL.
001E30 0049                        5564+IESTP073 DC    H'73' START POSITION COLUMN 73.
001E26                             5565+IESTP080 EQU   IELR080 START POSITION COLUMN 80.
001E32 F270 9880 4000 00880 00000  5566+IEPACK1  PACK  INDECBIN(L'INDECBIN),D0(*-*,AREAREG) CONVERT
001E24                             5567+IECPSSUP EQU   IEKEYDEF KEYWORD NUMBER FOR CAPS OPERAND.
                                   5568+*                                  OPERAND TO PACKED DECIMAL.
001E38 00000000                    5569+IEINS001 DC    A(0) POINTER TO SECOND INSERTION RECORD
001E3C 0008                        5570+         DC    AL2(MXX0254-*) LENGTH OF MESSAGE
001E3E 000A                        5571+         DC    AL2(M334IN1) POINTER TO INSERTION POINT
001E40 D3C9D5C5                    5572+         DC    C'LINE'
001E44                             5573+MXX0254  EQU   *
001E44 00000000                    5574+IEINS002 DC    A(0) POINTER TO SECOND INSERTION RECORD
001E48 0009                        5575+         DC    AL2(MXX0255-*) LENGTH OF MESSAGE
001E4A 000A                        5576+         DC    AL2(M334IN1) POINTER TO INSERTION POINT
001E4C C2D3D6C3D2                  5577+         DC    C'BLOCK'
001E51                             5578+MXX0255  EQU   *
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  151


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             5580+DAPB08   DSECT
                                   5581+***********************************************************************
                                   5582+* THIS OPERATION CODE CAUSES ALLOCATION OF A DATA SET. IT CAN ALLOC.  *
                                   5583+* EITHER A NEW OR OLD SET.                                            *
                                   5584+***********************************************************************
000000                             5585+DA08CD   DS    CL2 DAIR ENTRY CODE
000002                             5586+DA08FLG  DS    X FUNCTIONS TO BE PERFORMED WHEN RET CODE IS 0
000080                             5587+DA08FPE  EQU   X'80' FUNCT PERFORMED BUT ERROR INDICATED BY RETCD
000003                             5588+         DS    X
000004                             5589+DA08DARC DS    H DYN ALLOC RETURN CODE
000006                             5590+DA08CTRC DS    H CATALOG RETURN CODE
000008                             5591+DA08PDSN DS    A POINTER TO DSNAME TO BE SEARCHED IN DSE
00000C                             5592+DA08DDN  DS    CL8 DDNAME TO BE SEARCHED IN DSE
000014                             5593+DA08UNIT DS    CL8 UNITNAME REQUESTED
00001C                             5594+DA08SER  DS    CL8 VOLUME SERIAL NUMBER-PADDED W/BLANKS
000024                             5595+DA08BLK  DS    CL4 DATA SET  AVERAGE RECORD LENGTH
000028                             5596+DA08PQTY DS    CL4 PRIMARY SPACE QUANTITY
00002C                             5597+DA08SQTY DS    CL4 SECONDARY SPACE QUANTITY
000030                             5598+DA08DQTY DS    CL4 DIRECTORY BLOCK QUANTITY
000034                             5599+DA08MNM  DS    CL8 MEMBER NAME
00003C                             5600+DA08PSWD DS    CL8 PASSWORD
000044                             5601+DA08DSP1 DS    X DATA SET STATUS FLGS(IF=0 OLD ASSUMED)
000008                             5602+DA08SHR  EQU   X'08' DATA SET IS SHR
000004                             5603+DA08NEW  EQU   X'04' DATA SET IS NEW
000002                             5604+DA08MOD  EQU   X'02' DATA SET IS MOD
000001                             5605+DA08OLD  EQU   X'01' DATA SET IS OLD
000045                             5606+DA08DPS2 DS    X DATA SET DISPOSITION(IF=0 KEEP ASSUMED)
000008                             5607+DA08KEEP EQU   X'08' DS DISP IS KEEP
000004                             5608+DA08DEL  EQU   X'04' DS DISP IS DELETE
000002                             5609+DA08CAT  EQU   X'02' DS DISP IS CATLG
000001                             5610+DA08UCAT EQU   X'01' DS DISP IS UNCATALOG
000046                             5611+DA08DPS3 DS    X DATA SET CONDITIONAL DISPOSITION
000008                             5612+DA08KEP  EQU   X'08'
000004                             5613+DA08DELE EQU   X'04'
000002                             5614+DA08CATL EQU   X'02' DS DISP OF CATLG DESIRED
000001                             5615+DA08UNCT EQU   X'01' DS DISP OF UNCATLG DESIRED
000047                             5616+DA08CTL  DS    X FLAGS TO CONTROL ACTIONS TAKEN BY DAIR
000080                             5617+DA08TRKS EQU   X'80' UNITS ARE TRKS
000040                             5618+DA08ABKL EQU   X'40'
0000C0                             5619+DA08CYLS EQU   X'C0' UNITS ARE CYLS
000020                             5620+DA08UID  EQU   X'20' USER ID IS TO BE PREFIXED
000010                             5621+DA08RLSE EQU   X'10' RELEASE (RLSE) REQUESTED
000008                             5622+DA08PERM EQU   X'08' DATA SET MUST BE SPECIFICALLY UNALLOCATED
000004                             5623+DA08DMMY EQU   X'04'
000002                             5624+DA08ATRL EQU   X'02' ATTRIBUTE LIST SUPPLIED                  C99236
000048                             5625+         DS    CL3 RESERVED
00004B                             5626+DA08DSO  DS    CL1 DSORG
00004C                             5627+DA08ALN  DS    CL8 ATTR-LIST-NAME                           C99236
                                   5628+*  */
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  152


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             5630+DAPB18   DSECT
                                   5631+***********************************************************************
                                   5632+* THIS OPERATION CAUSES THE REQUESTED DATA SET OR DDNAME TO BE        *
                                   5633+* UNALLOCATED. DISPOSITION CAN BE SPECIFIED TO OVERRIDE ANY PREVIOUS  *
                                   5634+* DISPOSITION. LIKENISE SYSOUT CLASS MAY BE SPECIFIED TO OVERRIDE ANY *
                                   5635+* PREVIOUS CLASS.                                                     *
                                   5636+***********************************************************************
000000                             5637+DA18CD   DS    CL2 DAIR ENTRY CODE
000002                             5638+DA18FLG  DS    X FUNCTIONS TO BE PERFORMED WHEN RET CODE IS 0
000080                             5639+DA18FPE  EQU   X'80' FUNCT PERFORMED BUT ERROR INDICATED BY RETCD
000003                             5640+         DS    X
000004                             5641+DA18DARC DS    H DYNAMIC ALLOCATION RETURN CODE
000006                             5642+DA18CTRC DS    H CATALOG RETURN CODE AREA
000008                             5643+DA18PDSN DS    A POINTER TO DSNAME TO BE SEARCHED IN DSE
00000C                             5644+DA18DDN  DS    CL8 DDNAME TO BE SEARCHED IN DSE
000014                             5645+DA18MNM  DS    CL8 MEMBER NAME
00001C                             5646+DA18SCLS DS    CL2 SYSOUT CLASS DESIRED WHEN UNALLOCATING  A
                                   5647+*                       SYSOUT DATA SET
00001E                             5648+DA18DPS2 DS    X DATA SET DISPOSITION
000008                             5649+DA18KEEP EQU   X'08' CHANGE DISP TO KEEP
000004                             5650+DA18DEL  EQU   X'04' CHANGE DISP TO DELETE
000002                             5651+DA18CAT  EQU   X'02' CHANGE DISP TO CATALOG
000001                             5652+DA18UCAT EQU   X'01' CHANGE DISP TO UNCATLOG
00001F                             5653+DA18CTL  DS    X FLAGS FOR SPECIAL DAIR PROCESSING
000020                             5654+DA18UID  EQU   X'20' USER ID IS TO BE PREFIXED TO DSNAME
000010                             5655+DA18PERM EQU   X'10' UNALLOCATE PERM. ALLOCATED DSE'S       M0765
000020                             5656+DA18JBNM DS    CL8
                                   5657+*  */
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  153


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             5659+IKJEBECA DSECT


                                   5661+***********************************************************************
                                   5662+*
                                   5663+*               THIS MACRO IS USED TO DEFINE A DSECT FOR THE
                                   5664+*               COMMUNICATION AREA USED BY ALL MODULES THAT MAKE
                                   5665+*               UP THE EDIT COMMAND PROCESSOR
                                   5666+*
                                   5667+***********************************************************************


000000                             5669+CAPTTMP  DS    A -                ADDRESS OF TMP PARAMETER LIST
000004                             5670+         DS    F -                RESERVED
000008                             5671+CAPTAE   DS    A -                ADDRESS OF IKJEBEAE
00000C                             5672+CAPTAT   DS    A -                ADDRESS OF IKJEBEAT
000010                             5673+CAPTLE   DS    A -                ADDRESS OF IKJEBELE
000014                             5674+CAPTMS   DS    A -                ADDRESS OF IKJEBEMS
000018                             5675+CAPTUT   DS    A -                ADDRESS OF IKJEBEUT
00001C                             5676+CAPTMSGM DS    A -                ADDRESS OF IN-CORE MESSAGE MODULE
000020                             5677+CAPTRTRY DS    A -                ADDRESS OF STAE RETRY ROUTINE
000024                             5678+CAPRSPDL DS    0X -               IKJPARS PDL FLAG BYTE
000080                             5679+CAFREEDL EQU   X'80' -            1 - PDL DOES NOT EXIST
                                   5680+*                                 0 - PDL REQUIRES FREEMAIN
000024                             5681+CAPTPRSD DS    A -                ADDRESS OF IKJPARS PDL
000028                             5682+CASCBFFL DS    0X -               SUBCOMMAND BUFFER FLAGS
000080                             5683+CAOPERND EQU   X'80' -            1 - OPERANDS / 0 - NO OPERANDS
000028                             5684+CAPTIBFR DS    A -                ADDRESS OF INPUT BUFFER
00002C                             5685+CAPTSCMD DS    A -                ADDRESS OF SUBCOMMAND LAST ENTERED
000030                             5686+CASCMDLN DS    H -                LENGTH OF SUBCOMMAND NAME
000032                             5687+         DS    H -                RESERVED
000034                             5688+CAPTCDCB DS    A -                ADDRESS OF CURRENT UTILITY DCB
000038                             5689+CAPTPDCB DS    A -                ADDRESS OF NEW UTILITY DCB
00003C                             5690+CAUTILNO DS    F -                NUMBER OF RECORDS IN UTILITY DATA SET
000040                             5691+CAPTCORE DS    A -                ADDRESS OF GETMAIN AREA
000044                             5692+CACORELN DS    F -                LENGTH OF GETMAIN AREA
000048                             5693+CAPTCHK  DS    A -                ADDRESS OF SYNTAX CHECKER
                                   5694+*                                 OR LANGUAGE PROCESSOR
00004C                             5695+CAPTNBFR DS    A -                ADDRESS OF SUBCOMMAND BUFFER   A45155
                                   5696+*                                 TO BE USED UPON COMPLETION     A45155
                                   5697+*                                 OF CURRENT SUBCOMMAND          A45155
000050                             5698+         DS    10F -              RESERVED                       A45155
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  154


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5700+***********************************************************************
                                   5701+*
                                   5702+*               THIS SECTION CONSISTS OF THE CONTROL FLAGS
                                   5703+*               AND A BREAK DOWN OF THE BIT SWITCHES
                                   5704+*
                                   5705+***********************************************************************


000078                             5707+         DS    0D -               DOUBLE WORD ALIGNMENT
000078                             5708+CAATTN   DS    F -                ATTENTION ECB
000040                             5709+CAATTNIS EQU   X'40' -            ATTENTION ISSUED 1-YES/0-NO
00007C                             5710+CACFLAG  DS    0F -               CONTROL FLAGS
00007C                             5711+CACFLAG1 DS    X -                CONTROL FLAG 1
000080                             5712+CALNTOVF EQU   X'80' -            LINE TO BE VERIFIED, 1-YES/0-NO
000040                             5713+CAVRFYSW EQU   X'40' -            VERIFY SWITCH, 1-ON/0-OFF
000020                             5714+CAPROMPT EQU   X'20' -            PROMPT SWITCH, 1-ON/0-OFF
000010                             5715+CASCANSW EQU   X'10' -            SCAN SWITCH, 1-ON/0-OFF
000008                             5716+CAINITSC EQU   X'08' -            SPEC. CALL OF SCAN, 1-YES/0-NO
000004                             5717+CAENDSC  EQU   X'04' -            SCAN CALLED BY 'END', 1-YES/0-NO
000002                             5718+CACAPS   EQU   X'02' -            1-'CAPS' /  0-'ASIS' SPECIFIED
000001                             5719+CANONUM  EQU   X'01' -            1-'NONUM' / 0-'NUM' SPECIFIED
00007D                             5720+CACFLAG2 DS    X -                CONTROL FLAG 2
000080                             5721+CADSMODS EQU   X'80' -            DATA SET MODIFIED, 0-NO/1-YES
000040                             5722+CARECFM  EQU   X'40' -            0-VARIABLE FORMAT/1-FIXED FORMAT
000020                             5723+CASCANON EQU   X'20' -            1-'SCAN' / 0-'NOSCAN' SPECIFIED
000010                             5724+CAMODMSG EQU   X'10' -            0 - MODE MSG NOT TO BE ISSUED
                                   5725+*                                 1 - ISSUE EDIT MODE MSG
000008                             5726+CASEQCOL EQU   X'08' -            SEQUENCE FIELD COLUMN NUMBERS
                                   5727+*                                 ARE NON-STANDARD, 1-YES/0-NO
                                   5728+*                                 BITS 5-7 RESERVED
00007E                             5729+CACFLAG3 DS    X -                CONTROL FLAG 3
00007E                             5730+CAIMFLG  EQU   CACFLAG3 -         FLAGS USED BY INPUT
000080                             5731+CAIMPT   EQU   X'80' -            1 - PROMPT / 0 - NO PROMPT
000040                             5732+CAIMINS  EQU   X'40' -            1 - INSERT PROCESSING
                                   5733+*                                 0 - NOT INSERT PROCESSING
000020                             5734+CAIMSC   EQU   X'20' -            1 -INPUT ENTERED FROM CARRIAGE RETURN
000010                             5735+CAIMIR   EQU   X'10' -            1 - I-FORM/0 - R-FORM
000008                             5736+CAIMCIN  EQU   X'08' -            1-INCREMENT SPECIFIED/0-NOT SPECIFIED
000004                             5737+CAIMSFPT EQU   X'04' -            1 - INPUT WILL PROMPT
                                   5738+*                                 0 - TCAM WILL PROMPT
000002                             5739+CAIMINPT EQU   X'02' 1 - INPUT HAS WRITTEN LINES     M5144
                                   5740+*                                 0 - NO LINES WRITTEN            M5144
                                   5741+*                                 BIT 7 RESERVED                  M5144
00007F                             5742+CACFLAG4 DS    X -                CONTROL FLAG 4
000080                             5743+CAFINDIS EQU   X'80' -            1-FIND ISSUED/0-FIND NOT ISSUED
000040                             5744+CAPTGTBF EQU   X'40' -            BUFFER TO BE FREED AT EXIT
                                   5745+*                                 FROM SUBCOMMAND 1-YES/0-NO
000020                             5746+CATPUTVF EQU   X'20' -            VERIFY LINE TO BE PRINTED
                                   5747+*                                 AT TERMINAL 1-YES/0-NO
000010                             5748+CAABEND  EQU   X'10' -            1 - ABEND IN PROCESS
                                   5749+*                                 0 - ABEND NOT IN PROCESS
000008                             5750+CASCRC20 EQU   X'08' -            1 - SYNTAX CHECKER RECOVERY IN
                                   5751+*                                 PROCESS/0 - NOT IN PROCESS
000004                             5752+CAINPROC EQU   X'04' -            EDIT BEING EXECUTED FROM AN IN CORE
                                   5753+*                                 PROCEDURE, 1-YES/0-NO
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  155


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5754+*                                 BITS 6-7 RESERVED
000080                             5755+CACFLAG5 DS    X -                CONTROL FLAG 5
                                   5756+*                                 BITS 0-7 RESERVED
000081                             5757+CACFLAG6 DS    X -                CONTROL FLAG 6
000080                             5758+CAFREE   EQU   X'80' -            GOFORT STATEMENT FORMAT, 1-FREE
                                   5759+*                                 FORMAT/0-FIXED FORMAT
000040                             5760+CACHAR48 EQU   X'40' -            PLI 48 CHARACTER SET, 1-YES/0-NO
000020                             5761+CACHAR60 EQU   X'20' -            PLI 60 CHARACTER SET, 1-YES/0-NO
                                   5762+*                                 BITS 3-7 RESERVED
000082                             5763+CAPLILFM DS    X -                PLI LEFT SOURCE MARGIN
000083                             5764+CAPLIRTM DS    X -                PLI RIGHT SOURCE MARGIN
000084                             5765+         DS    5F -               RESERVED
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  156


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78



                                   5768+***********************************************************************
                                   5769+*
                                   5770+*              THIS TABLE DEFINES THE DEFAULTED ATTRIBUTES
                                   5771+*              ASSOCIATED WITH THE SELECTED DATA SET TYPE.
                                   5772+*
                                   5773+***********************************************************************


                                   5775+* THE FOLLOWING FIELD MUST BE ALIGNED ON A DOUBLE WORD BOUNDARY
000098                             5776+CAPD     DS    0D -               TABLE ENTRY FROM IKJEBEPD
000098                             5777+CADSTYPE DS    CL8 -              DATA SET TYPE KEYWORD
0000A0                             5778+CADSQUAL DS    CL8 -              DATA SET NAME QUALIFIER
0000A8                             5779+CABLKS   DS    H -                DEFAULT BLOCK SIZE
0000AA                             5780+CALINE   DS    X -                LINE NUMBER OFFSET
0000AB                             5781+CALENGTH DS    X -                LINE NUMBER LENGTH
0000AC                             5782+CATABS   DS    12X -              TABSETTING VALUES
0000B8                             5783+CASYNAME DS    CL8 -              SYNTAX CHECKER NAME
0000C0                             5784+CADSCODE DS    X -                DATA SET TYPE CODE
000000                             5785+CANOTYPE EQU   X'00' -            NO DATA SET TYPE ENTERED
000001                             5786+CAPLIF   EQU   X'01' -            PLIF DATA SET TYPE
000002                             5787+CAFORTE  EQU   X'02' -            FORTRAN E COMPILER TYPE
000003                             5788+CAFORTG  EQU   X'03' -            FORTRAN G COMPILER TYPE
000004                             5789+CAFORTH  EQU   X'04' -            FORTRAN H COMPILER TYPE
000005                             5790+CATEXT   EQU   X'05' -            TEXT DATA SET TYPE
000006                             5791+CADATA   EQU   X'06' -            DATA DATA SET TYPE
000007                             5792+CACLIST  EQU   X'07' -            CONTROL LIST DATA SET TYPE
000008                             5793+CACNTL   EQU   X'08' -            CONTROL DATA SET TYPE
000015                             5794+CAASM    EQU   X'15' -            ASSEMBLER DATA SET TYPE
000016                             5795+CACOBOL  EQU   X'16' -            COBOL DATA SET TYPE
000017                             5796+CAFORTGI EQU   X'17' -            FORTRAN GI COMPILER TYPE
00001F                             5797+CAGOFORT EQU   X'1F' -            GOFORT DATA SET TYPE
000020                             5798+CABASIC  EQU   X'20' -            BASIC DATA SET TYPE
000021                             5799+CAIPLI   EQU   X'21' -            IPL/I DATA SET TYPE
000022                             5800+CAPLI    EQU   X'22' -            PLI DATA SET TYPE
000032                             5801+CAEDTTYP EQU   X'32' -            MAXIMUM VALUE FOR DATA SET TYPE THAT
                                   5802+*                                 CAN BE EDITED
0000C1                             5803+CADSATTR DS    X -                DATA SET ATTRIBUTES
000080                             5804+CARUN    EQU   X'80' -            EXECUTABLE UNDER EDIT 1-YES/0-NO
000040                             5805+CASCAN   EQU   X'40' -            SYNTAX CHECKING ALLOWED 1-YES/0-NO
000020                             5806+CACAPSRQ EQU   X'20' -            1-CAPS REQUIRED/0-CAPS NOT REQUIRED
000010                             5807+CACAPSDF EQU   X'10' -            1-CAPS DEFAULT/0-ASIS DEFAULT
000008                             5808+CADSCONT EQU   X'08' -            CONTINUATION REMAINS IN RECORD
                                   5809+*                                 1-YES / 0-NO
000004                             5810+CALNNUM  EQU   X'04' -            DATA SET MUST BE LINE NUMBERED -
                                   5811+*                                 1-YES / 0-NO
000002                             5812+CALRECLX EQU   X'02' -            LRECL DEFAULT  REQUIRED
                                   5813+*                                 1-YES/0-NO
                                   5814+*                                 BIT 7 RESERVED
0000C2                             5815+CADSATR2 DS    X -                DATA SET ATTRIBUTES
000080                             5816+CALINTAB EQU   X'80' -            LINE NUMBER LENGTH IN TAB VALUE
                                   5817+*                                 1-YES/0-NO
000040                             5818+CADSNDEF EQU   X'40' -            DSTYPE IS DSNAME QUALIFIER DEFAULT
                                   5819+*                                 1-YES/0-NO
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  157


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                             5820+CAOBJGEN EQU   X'20' -            IS AN OBJECT DATASET GENERATED
                                   5821+*                                 FOR THIS DSTYPE, 1-YES/0-NO
000010                             5822+CARUNDS  EQU   X'10' -            PROMPTER ACCEPTS INCORE SOURCE A45714
                                   5823+*                                 1 - YES / 0 - NO               A45714
                                   5824+*                                 BITS 4-7 RESERVED              A45714
0000C3                             5825+CARECFMD DS    X -                RECORD FORMAT DEFAULT
000080                             5826+CARECFMF EQU   X'80' -            FIXED FORMAT
000040                             5827+CARECFMV EQU   X'40' -            VARIABLE FORMAT
0000C0                             5828+CARECFMU EQU   X'C0' -            UNDEFINED FORMAT
                                   5829+*                                 BITS 2-7 RESERVED
0000C4                             5830+CAFLRLDF DS    H -                F FORMAT LRECL DEFAULT
0000C6                             5831+CAFLRLMX DS    H -                F FORMAT LRECL MAXIMUM
0000C8                             5832+CAVLRLDF DS    H -                V FORMAT LRECL DEFAULT
0000CA                             5833+CAVLRLMX DS    H -                V FORMAT LRECL MAXIMUM
0000CC                             5834+CAULRLDF DS    H -                U FORMAT LRECL DEFAULT
0000CE                             5835+CAULRLMX DS    H -                U FORMAT LRECL MAXIMUM
0000D0                             5836+CACHKOPT DS    H -                SYNTAX CHECKER OPT. BYTES      A45714
0000D2                             5837+CAPRNAME DS    CL8 -              PROMPTER NAME
0000DA                             5838+CAEXTNAM DS    CL8 -              USER EXIT NAME                 A45714
0000E2                             5839+CAPDEND  EQU   * -                END OF TABLE ENTRY FROM IKJEBEPD
0000E2                             5840+         DS    6X -               RESERVED                       A45714
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  158


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5842+***********************************************************************
                                   5843+*
                                   5844+*              OTHER DATA SET RELATED INFORMATION
                                   5845+*
                                   5846+***********************************************************************


0000E8                             5848+         DS    0D -               DOUBLE WORD ALIGNMENT
0000E8                             5849+CALRECL  DS    H -                DATA LENGTH PLUS CONTROL WORD
0000EA                             5850+         DS    H -                RESERVED
0000EC                             5851+CAEDFLAG DS    X -                CONTROL FLAG FOR EDIT DATA SET
000080                             5852+CAEDITDS EQU   X'80' -            1-EDIT DATA SET/0-SAVE DATA SET
000040                             5853+CAEDFNCP EQU   X'40' -            FINAL COPY TO BE PERFORMED,1-YES/0-NO
000020                             5854+CAEDINCP EQU   X'20' -            INITIAL COPY TO BE PERFORMED
                                   5855+*                                 1-YES/0-NO
000010                             5856+CAEDDISP EQU   X'10' -            1-DISP=OLD/0-DISP=NEW
000008                             5857+CAEDMEM  EQU   X'08' -            MEMBER EXISTS, 1-YES/0-NO
000004                             5858+CAEDDSOR EQU   X'04' -            0-DSORG=PS/1-DSORG=PO
000002                             5859+CAEDUNCG EQU   X'02' -            0-CATLG/1-UNCATLG
000001                             5860+CAEDALOC EQU   X'01' -            DATA SET ALLOCATED 1-YES/0-NO
0000ED                             5861+         DS    X -                RESERVED
0000EE                             5862+CAEDDSNL DS    H -                LENGTH OF DSNAME
0000F0                             5863+CAEDDSN  DS    CL44 -             DSNAME OF EDIT DATA SET
00011C                             5864+CAEDMEMB DS    CL8 -              MEMBER NAME FOR EDIT DATA SET
000124                             5865+CAEDDDN  DS    CL8 -              DDNAME FOR EDIT DATA SET
00012C                             5866+CAEDPSWD DS    CL8 -              PASSWORD FOR EDIT DATA SET
000134                             5867+CAEDTSIZ DS    F -                SIZE OF OLD EDIT DATA SET
000138                             5868+CADSNPTR DS    F -                POINTER TO NEXT INSERTION RECORD
00013C                             5869+CADSNLEN DS    H -                LENGTH OF THIS INSERTION
00013E                             5870+CADSNOFF DS    H -                OFFSET IN MESSAGE TO INSERTION
000140                             5871+CADSNREC DS    CL56 -             EDIT DATA SET NAME INSERTION
000178                             5872+CASAFLAG DS    X -                CONTROL FLAG FOR SAVE DATA SET
000080                             5873+CASAVEDS EQU   X'80' -            1-EDIT DATA SET/0-SAVE DATA SET
000040                             5874+CASAFNCP EQU   X'40' -            FINAL COPY TO BE PERFORMED,1-YES/0-NO
000020                             5875+CASAINCP EQU   X'20' -            INITIAL COPY TO BE PERFORMED
                                   5876+*                                 1-YES/0-NO
000010                             5877+CASADISP EQU   X'10' -            1-DISP=OLD/0-DISP=NEW
000008                             5878+CASAMEM  EQU   X'08' -            MEMBER EXISTS, 1-YES/0-NO
000004                             5879+CASADSOR EQU   X'04' -            0-DSORG=PS/1-DSORG=PO
000002                             5880+CASAUNCG EQU   X'02' -            0-CATLG/1-UNCATLG
000001                             5881+CASAALOC EQU   X'01' -            DATA SET ALLOCATED 1-YES/0-NO
000179                             5882+         DS    X -                RESERVED
00017A                             5883+CASADSNL DS    H -                LENGTH OF SAVE DSNAME
00017C                             5884+CASADSN  DS    CL44 -             DSANAME OF SAVE DATA SET
0001A8                             5885+CASAMEMB DS    CL8 -              MEMBER NAME FOR SAVE DATA SET
0001B0                             5886+CASADDN  DS    CL8 -              DDNAME FOR SAVE DATA SET
0001B8                             5887+CASAPSWD DS    CL8 -              PASSWORD FOR SAVE DATA SET
0001C0                             5888+CASTNUM  DS    F -                STARTING LINE NUMBER
0001C4                             5889+CANXTREC DS    F -                NEXT RECORD KEY FOR INPUT MODE
0001C8                             5890+CACURNUM DS    F -                CURRENT LINE NUMBER,'*'
0001CC                             5891+CAINCRE  DS    F -                LINE NUMBER INCREMENT
0001D0                             5892+CAIMLLNO DS    F -                LAST LINE NUMBER USED IN INPUT MODE
0001D4                             5893+CAIMLINC DS    F -                LAST INCREMENT USED IN INPUT MODE
0001D8                             5894+         DS    F -                RESERVED
0001DC                             5895+CAINSAVE DS    F -                LAST LINE NUMBER IN INPUT MODE WHEN
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  159


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5896+*                                 INSERT USED
0001E0                             5897+         DS    4F -               RESERVED
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  160


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5899+***********************************************************************
                                   5900+*
                                   5901+*              SYNTAX CHECKER INTERFACE AND PARAMETER LIST
                                   5902+*
                                   5903+***********************************************************************


0001F0                             5905+         DS    0D -               FOR ALIGNMENT
0001F0                             5906+CASYNLST DS    0F -               SYNTAX CHECKER PARAMETER LIST
0001F0                             5907+CASYNBFR DS    A -                ADDRESS OF FIRST BUFFER IN CHAIN
0001F4                             5908+CASYNPWA DS    A -                ADDRESS OF WORK AREA
0001F8                             5909+CASYNPTO DS    A -                ADDRESS OF OPTION WORD


0001FC                             5911+CASYNWA  DS    0F -               SYNTAX CHECKER WORK AREA
0001FC                             5912+CASYNECD DS    X -                SYNTAX CHECKER ENTRY CODE
0001FD                             5913+CASYNWAP DS    AL3 -              ADDRESS OF CHECKER WORK AREA
000200                             5914+CASYNMS1 DS    A -                ADDRESS OF FIRST ERROR MSG
000204                             5915+CASYNMS2 DS    A -                ADDRESS OF SECOND & CHAINED MSGS
000208                             5916+CASYNTEM DS    F -                TEMPORARY STORAGE FOR CHECKER


00020C                             5918+CASYNOPT DS    0F -               OPTION WORD
00020C                             5919+CASYNCD1 DS    X -                OPTION WORD CODE 1
00020D                             5920+CASYNCD2 DS    X -                OPTION WORD CODE 2
00020E                             5921+CASYNRCL DS    X -                RECORD LENGTH FOR FIXED/0 FOR VAR.
00020F                             5922+CASYNSW  DS    X -                BIT SWITCHES
000040                             5923+CASYNLN  EQU   X'40' -            LINE NUMBERED, 0-YES/1-NO
000010                             5924+CASYNIS  EQU   X'10' -            DIAGNOSE INCOMPLETE STATEMENTS,
                                   5925+*                                 0-YES/ 1-NO
000008                             5926+CASYNRFM EQU   X'08' -            0-FIXED/1-VARIABLE FORMAT
000004                             5927+CASYNSF  EQU   X'04' -            0-STANDARD/1-FREE FORM
000002                             5928+CASYNML  EQU   X'02' -            0-LMSG/1-SMSG
000001                             5929+CASYNSCN EQU   X'01' -            0-SCAN/1-NOSCAN
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  161


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5931+***********************************************************************
                                   5932+*
                                   5933+*              PARAMETER LIST FOR TMP SERVICE ROUTINES,
                                   5934+*              WORK AREAS, BUFFER POOLS, AND SAVE AREAS
                                   5935+*
                                   5936+***********************************************************************


000210                             5938+CATMPLST DS    0D -               TMP SERVICE ROUTINE PARAMETER LIST
000210                             5939+CAPTUPT  DS    A -                ADDRESS OF UPT
000214                             5940+CAPTECT  DS    A -                ADDRESS OF ECT
000218                             5941+CAPTECB  DS    A -                ADDRESS OF EDIT ATTENTION ECB
00021C                             5942+CASRPLST DS    4F -               TMP SR PARAMETER LIST
00022C                             5943+CASTAXPL DS    5F -               STAX PARAMETER LIST
000240                             5944+CASTAEPL DS    5F -               STAE PARAMETER LIST
000254                             5945+CAMAWKA  DS    0F -               MAIN CONTROLLER WORK AREA
000254                             5946+         DS    7F -               AREA DEFINED IN IKJEBEMA OR IKJEBEEN
000270                             5947+MACFLAGS DS    X -                CONTROL FLAGS, BYTE 1
000080                             5948+MAECTMOD EQU   X'80' -            ECT MODIFIED TO DELETE 2ND LEVEL MSGS
000040                             5949+MAABBREV EQU   X'40' -            SUBCOMMAND NAME/ABBREVIATION FLAG
000020                             5950+MAENDPRC EQU   X'20' -            END PROCESSING COMPLETE
                                   5951+*                                 BITS 3-7 RESERVED
000271                             5952+MACFLAG2 DS    X -                CONTROL FLAGS, BYTE 2
000080                             5953+MATABLE1 EQU   X'80' -            IBM/USER TABLE INDICATOR
                                   5954+*                                 BITS 1-7 RESERVED
000272                             5955+         DS    2X -               RESERVED
000274                             5956+CAMSWKA  DS    25F -              MESSAGE SELECTION WORK AREA
0002D8                             5957+CASRWKA  DS    50F -              SERVICE ROUTINE WORK AREA
0003A0                             5958+CAMODEMG DS    0F -               INSERTION RECORD FOR COMMAND NAME
0003A0                             5959+CAMODEIS DS    F -                NUMBER OF INSERTIONS
0003A4                             5960+CAMODEPT DS    A -                ADDRESS OF INSERTION TEXT
0003A8                             5961+CAMODELN DS    H -                LENGTH OF INSERTION RECORD
0003AA                             5962+CAMODEOF DS    H -                OFFSET IN MESSAGE FOR INSERTION
0003AC                             5963+CAMODETX DS    CL12 -             INSERTION TEXT
0003B8                             5964+CAATNBUF DS    A -                ADDRESS OF INPUT BUFFER        A42953
                                   5965+*                                 OBTAINED BY ATTENTION EXIT     A42953
0003BC                             5966+CAATNWKA DS    27F -              ATTENTION EXIT WORKAREA        A42953
000428                             5967+         DS    31F -              RESERVED                       A42953
0004A4                             5968+CAFIBFR  DS    260C -             FIND BUFFER
0005A8                             5969+         DS    0D -               FOR DOUBLE WORD ALIGNMENT
0005A8                             5970+CASCWKA  DS    84F -              SUBCOMMAND WORK AREA
0006F8                             5971+CABFRPL  DS    528C -             BUFFER POOL
000908                             5972+CATEMPBF DS    528C -             TEMPORARY BUFFER POOL AVAILABLE TO
                                   5973+*                                 ALL EDIT SUBCOMMANDS AND SR'S
000B18                             5974+CASVAREA DS    180F -             CHAINED SAVE AREAS
000DE8                             5975+CANXTSVA DS    F -                ADDRESS OF NEXT SAVE AREA TO BE USED
000DEC                             5976+         DS    5F -               RESERVED
000E00                             5977+CADSNPT2 DS    F -                POINTER TO NEXT INSERTION RECORD
000E04                             5978+CADSNLN2 DS    H -                LENGTH OF THIS INSERTION,
                                   5979+*                                 INCLUDING HEADER.
000E06                             5980+CADSNOF2 DS    H -                OFFSET, IN MESSAGE, TO INSERTION
000E08                             5981+CADSNRC2 DS    CL56 -             SAVE DATA SET NAME MSG INSERTION
000E40                             5982+CADLEN   EQU   ((*-IKJEBECA+7)/8)*8 LENGTH OF DSECT
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  162


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   5984+***********************************************************************
                                   5985+*                                                                     *
                                   5986+*   DEFINE INITIALIZATION WORK AREA IN THE COMMUNICATION AREA.        *
                                   5987+*                                                                     *
                                   5988+***********************************************************************
0006F8                             5989+         ORG   CABFRPL ORIGIN INITIALIZATION WORK AREA.
0006F8                             5990+INWKAREA DS    0F INITIALIZATION WORKAREA.
0006F8                             5991+INDREC   DS    (((DA08DSO-DAPB08+L'DA08DSO+3)/4)*4)X IKJDAIR
                                   5992+*                                  PARAMETER BLOCK.
0006F8                             5993+         ORG   INWKAREA OVERLAY INITIALIZATION WORK AREA.
0006F8                             5994+INCAMFLG DS    F CAMLIST FLAGS FOR OBTAIN.
0006FC                             5995+INCAMDSN DS    F ADDRESS OF DATA SET NAME FOR OBTAIN.
000700                             5996+INCAMVOL DS    F ADDRESS OF VOLSER NUMBER FOR OBTAIN.
000704                             5997+INCAMWRK DS    F ADDRESS OF WORK AREA FOR OBTAIN.
000708                             5998+INCAMOBT DS    350C OBTAIN WORK AREA.
000866                             5999+INCAMVLD DS    CL6 VOLUME SERIAL NUMBER.
00086C                             6000+INSYNCHK DS    0F ALIGN BLDL LIST ON WORD BOUNDARY.
00086C                             6001+INBLDWD  DS    F LIST DESCRIPTION FIELD.
000870                             6002+INMEMBER DS    0C MEMBER NAME FOR BLDL.
000870                             6003+INSYNNME DS    8C MODULE NAME.
000878                             6004+         DS    6X RESERVED FOR BLDL RETURN
                                   6005+*                                  INFORMATION.
000880                             6006+INDECBIN DS    D DOUBLE WORD USED FOR CONVERT TO
                                   6007+*                                  BINARY OPERATIONS.
000888                             6008+INLINKSF DS    2F SUPERVISOR PARAMETER LIST FOR LINK.
000890                             6009+INSVCRTN DS    6F WORK AREA FOR SERVICE ROUTINE
                                   6010+*                                  HANDLER.
0008A8                             6011+INXCTLPL DS    2F XCTL WORK AREA.
0008B0                             6012+INDEVTYP DS    2F DEVTYPE WORK AREA.
0008B8                             6013+INCYLNO  DS    H NUMBER OF CYLINDERS ON DEVICE.
0008BA                             6014+INTRKNO  DS    H NUMBER OF TRACKS PER CYLINDER.
0008BC                             6015+INTRKCAP DS    H TRACK CAPACITY (IN BYTES).
0008BE                             6016+INOVHDK  DS    X OVERHEAD FOR KEYED RECORDS, NOT
                                   6017+*                                  LAST BLOCK.
0008BF                             6018+INOVHDKL DS    X OVERHEAD FOR KEYED RECORDS, LAST
                                   6019+*                                  BLOCK.
0008C0                             6020+INOVHDNK DS    X OVERHEAD TO BE SUBTRACTED FOR
                                   6021+*                                  NON-KEYED RECORDS.
0008C1                             6022+INDEVFLG DS    X TOLERANCE FACTOR FLAGS.
000001                             6023+INTOLFLG EQU   X'01' IF 1 (ONE), TOLERANCE FACTOR TO BE
                                   6024+*                                  APPLIED.
0008C2                             6025+INTOLFAC DS    H TOLERANCE FACTOR.
0008C4                             6026+INCOREPT DS    F ADDRESS OF GOTTEN CORE.
0006F8                             6027+         ORG   INWKAREA OVERLAY INITIALIZATION WORK AREA.
0006F8                             6028+IN7WORK  DS    0F WORK AREA FOR IKJEBIN7
0006F8                             6029+IN7PLIST DS    6F PARAMETER LIST AREA FOR ROUTINES
                                   6030+*                                  CALLED BY IKJEBIN7
000710                             6031+IN7FLAGS DS    X CONTROL FLAG FOR IKJEBIN7.
000080                             6032+IN7DELPS EQU   X'80' BIT 0 = 1 INDICATES DELETE MUST
                                   6033+*                                  BE ISSUED FOR IKJEBEPS.
000040                             6034+IN7NOQLF EQU   X'40' BIT 1 = 1 INDICATES NO QUALIFIER
                                   6035+*                                  CHECKING REQUIRED.
0000BF                             6036+IN7QLFCK EQU   X'FF'-IN7NOQLF BIT 1 = 0 INDICATES QUALIFIER
                                   6037+*                                  CHECKING REQUIRED.
000019                             6038+IN7WKLEN EQU   *-IN7WORK LENGTH OF IKJEBIN7 WORK AREA.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  163


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000711                             6040+IN8FLAGS DS    X CONTROL FLAG BYTE FOR IKJEBIN8.
000000                             6041+IN8ZEROS EQU   X'00' INITIAL VALUE FOR FLAG BYTE.
                                   6042+*
                                   6043+*    NOTE -- BITS 2-7 OF 'IN8FLAGS' ARE RESERVED.
                                   6044+*
000080                             6045+IN8GOFSW EQU   X'80' AFTER EXCLUSIVE OR OF THIS BIT IN THE
                                   6046+*                                  GOFORT VALIDATION SUBROUTINE,
                                   6047+*                                  PROCESSING CONTINUES AS FOLLOWS --
                                   6048+*                                  BIT 0 ON - CONTINUE VALIDATION
                                   6049+*                                  BIT 0 OFF - RETURN TO CALLER -
                                   6050+*                                  OPERANDS AND ATTRIBUTES HAVE BEEN
                                   6051+*                                  VALIDATED.
000040                             6052+IN8TERME EQU   X'40' BIT 1 ON - EDIT IS TO BE TERMINATED
                                   6053+*                                  WITH ERROR INDICATION.
                                   6054+*                             BIT 1 OFF - GOFORT OPERAND VALIDATION
                                   6055+*                                  SUCCESSFUL.


000714                             6057+INWKDCB  DS    14F DCB USED FOR BLDL ON EDIT DATA SET.
00074C                             6058+INWKOPEN DS    F REMOTE PARAMETER LIST FOR OPEN AND
                                   6059+*                                  CLOSE SVCS.


000750                             6061+IN3WKA   DS    7F REMOTE PROGRAM PARAMETER LIST.
00076C                             6062+IN3MSLST DS    3F PARAMETER LIST FOR IKJEBEMS.
000778                             6063+IN3MSIN1 DS    0F INSERTION LIST FOR SERVICE ROUTINE
                                   6064+*                                  NAME.
000778                             6065+IN3PT1   DS    F ADDRESS OF NEXT INSERTION.
00077C                             6066+IN3LEN1  DS    H LENGTH OF INSERTION.
00077E                             6067+IN3OFF1  DS    H OFFSET OF INSERTION.
000780                             6068+IN3INS1  DS    CL8 INSERTION TEXT.
000788                             6069+IN3MSIN2 DS    0F INSERTION LIST FOR RETURN CODE.
000788                             6070+IN3PT2   DS    F ADDRESS OF NEXT INSERTION.
00078C                             6071+IN3LEN2  DS    H LENGTH OF INSERTION.
00078E                             6072+IN3OFF2  DS    H OFFSET OF INSERTION.
000790                             6073+IN3INS2  DS    CL2 INSERTION TEXT.
000792                             6074+INTEMPBF DS    CL88 TEMPORARY INPUT BUFFER USED FOR
                                   6075+*                                  IKJPARS PROMPT RESPONSES.


0005A8                             6077+         ORG   CASCWKA DEFINE WORK AREA FOR IKJEBIN5      A45713
                                   6078+*                                  AND PARTS OF IKJEBIN8.        A45714
0005A8                             6079+INPGLIST DS    4F IKJPTGT PARM BLOCK.                A45713
0005B8                             6080+INPDLPTR DS    A ADDRESS OF PROMPT PDL.             A45713

0005BC                             6082+INBLDLST DS    0H BLDL LIST FOR USER EXIT RTN.       A45714
0005BC                             6083+INBLDLNO DS    H NUMBER OF BLDL ENTRIES.            A45714
0005BE                             6084+INBLDLLN DS    H LENGTH OF BLDL ENTRY.              A45714
0005C0                             6085+INBLDLNM DS    CL8 MODULE NAME OF USER EXIT.          A45714
0005C8                             6086+         DS    CL50 INFORMATION RETURNED BY BLDL.      A45714
00003A                             6087+INENTRYL EQU   *-INBLDLNM LENGTH OF BLDL ENTRY.              A45714

0005FC                             6089+INEXTPRM DS    0F USER EXIT PARM LIST.               A45714
0005FC                             6090+INEXTPDE DS    A ADDRESS OF SUBFIELD PDE.           A45714
000600                             6091+INEXTANS DS    A ADDRESS OF ANSWER AREA.            A45714
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  164


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000604                             6092+INEXTCPL DS    A ADDRESS OF CP PARMLIST.            A45714
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  165


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             6094+IEFTIOT1 DSECT  DSECT FOR TASK INPUT/OUTPUT TABLE.
                                   6095+*
                                   6096+*    RELEASE 20, 3/04/71, LEVEL=1
                                   6097+*    RELEASE 21, 3/05/71, LEVEL=1
                                   6098+*
000000                             6099+         DS    0F
000000                             6100+TIOT1    EQU   * -    TIOTPTR
000000                             6101+TIOCNJOB DS    CL8 -                       JOBNAME
000008                             6102+TIOCSTEP DS    CL16 -                       STEPNAME
                                   6103+***********************************************************************
                                   6104+**                                                                   **
                                   6105+*   DD ENTRY:                                                         *
                                   6106+*                                                                     *
                                   6107+*       A DD ENTRY INCLUDES A DEVICE ENTRY. BEFORE ALLOCATION, THERE  *
                                   6108+*       MAY BE SEVERAL DEVICE ENTRIES IN EACH DD ENTRY.               *
                                   6109+**                                                                   **
                                   6110+***********************************************************************
000018                             6111+TIOENTRY EQU   * -  TIODDPTR
000018                             6112+TIOELNGH DS    FL1 -                         LENGTH OF THIS ENTRY
000019                             6113+TIOESTTA DS    B -                           STATUS -A-
000080                             6114+TIOSLTYP EQU   X'80' -                       NONSTANDARD LABEL (NOTE 1)
000040                             6115+TIOSPLTP EQU   X'40' -                       SPLIT CYLINDER PRIMARY
000020                             6116+TIOSPLTS EQU   X'20' -                       SPLIT CYLINDER SECONDARY
000010                             6117+TIOSJBLB EQU   X'10' -                       JOBLIB INDICATOR
000008                             6118+TIOSDADS EQU   X'08' -                       DADSM ALLOCATION NECESSRY
000004                             6119+TIOSLABL EQU   X'04' -                       LABELED/UNLABELED (NOTE 1)
000002                             6120+TIOSDSP1 EQU   X'02' -                       DISPOSITION BIT 1
000001                             6121+TIOSDSP2 EQU   X'01' -                       DISPOSITION BIT 2
                                   6122+*
                                   6123+*   NOTE 1 - IF BOTH BITS TIOSLTYP AND TIOSLABL ARE ON, THE VOLUME
                                   6124+*            IS A TAPE AND HAS AN 'ANSI' LABEL.
                                   6125+*
00001A                             6126+TIOERLOC DS    0CL2 -                        REL. LOC OF POOL
00001A                             6127+TIOEWTCT DS    CL1 -                         COUNT OF NUMBER OF DEVICES
                                   6128+*              DURING ALLOCATION STILL ELIGIBLE TO DADSM ALLOCATE
                                   6129+*              THIS DATA SETS REQUEST
00001B                             6130+TIOELINK DS    CL1 -                         DURING ALLOCATION OF ALL
                                   6131+*              BUT POOLS THIS WILL BE A LINK TO THE APPROPRIATE PRIME
                                   6132+*              SPLIT,UNIT AFFIM,VOL AFFIN OR SUBALLOCATE

                                   6134+* FOLLOWING BIT MASKS APPLY TO THE 'TIOELINK' FIELD

000080                             6136+TIOSYOUT EQU   X'80' -  SYSOUT DATA SET THAT CONTAINS DATA
000040                             6137+TIOTOPEN EQU   X'40' -  DATA SET IS OPEN
000020                             6138+TIOTTERM EQU   X'20' -  THIS IS A TERMINAL
000010                             6139+TIOEDYNM EQU   X'10' -  'DYNAM' KEYWORD USED
000008                             6140+TIOEQNAM EQU   X'08' -  'QNAME' KEYWORD USED
                                   6141+*
                                   6142+*
00001C                             6143+TIOEDDNM DS    CL8 -                         DDNAME
000024                             6144+TIOEJFCB DS    CL3 -                         JFCB DISK ADDR
000027                             6145+TIOESTTC DS    B -                           STATUS -C-
000080                             6146+TIOSDKCR EQU   X'80' -                       CORE/DISK ADDRESS
000040                             6147+TIOSDEFR EQU   X'40' -                       DEFERRED MOUNT
000020                             6148+TIOSAFFP EQU   X'20' -                       UNIT AFFINITY PRIMARY
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  166


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000010                             6149+TIOSAFFS EQU   X'10' -                       UNIT AFFINITY SECONDARY
000008                             6150+TIOSVOLP EQU   X'08' -                       VOLUME AFFINITY PRIMARY
000004                             6151+TIOSVOLS EQU   X'04' -                       VOLUME AFFINITY SECONDARY
000002                             6152+TIOSBALP EQU   X'02' -                       SUBALLOCATE PRIMARY
000001                             6153+TIOSBALS EQU   X'01' -                       SUBALLOCATE SECONDARY
                                   6154+***********************************************************************
                                   6155+**                                                                   **
                                   6156+*   DEVICE ENTRIES:                                                   *
                                   6157+*                                                                     *
                                   6158+*      1. DURING ALLOCATION:                                          *
                                   6159+*                ONE DEVICE ENTRY FOR EACH DEVICE REQUIRED, OR FOR    *
                                   6160+*                EACH PUBLIC DEVICE ELIGIBLE.                         *
                                   6161+*                                                                     *
                                   6162+*      2. DURING PROBLEM PROGRAM:                                     *
                                   6163+*                ONE DEVICE ENTRY FOR EACH ALLOCATED DEVICE           *
                                   6164+*                                                                     *
                                   6165+***********************************************************************
000028                             6166+TIOESTTB DS    B -                           STATUS -B-
000080                             6167+TIOSUSED EQU   X'80' -                       DATA SET IS ON DEVICE
000040                             6168+TIOSREQD EQU   X'40' -                       DATA SET WILL USE DEVICE
000020                             6169+TIOSPVIO EQU   X'20' -                       DEVICE VIOLATES SEPARATION
000010                             6170+TIOSVLSR EQU   X'10' -                       VOLUME SERIAL PRESENT
000008                             6171+TIOSSETU EQU   X'08' -                       SETUP MESSAGE REQUIRED
000004                             6172+TIOSMNTD EQU   X'04' -                       MOUNTED
000002                             6173+TIOSUNLD EQU   X'02' -                       UNLOAD REQUIRED
000001                             6174+TIOSVERF EQU   X'01' -                       VERIFICATION REQUIRED
000029                             6175+TIOEFSRT DS    AL3 -                         SRT POINTER
                                   6176+*        TIOT POOL ENTRY
00002C                             6177+POOLSTAR EQU   *
00002C                             6178+         DS    CL1 -
00002D                             6179+TIOPNSLT DS    FL1 -                         NR.OF SLOTS FOR POOL
00002E                             6180+         DS    CL1 -
00002F                             6181+TIOPNSRT DS    FL1 -                         NR.OF DEVICES (FILLED
                                   6182+*                                             SLOTS)
000030                             6183+TIOPPOOL DS    CL8 -                         POOL NAME
000038                             6184+TIOPSTTB DS    XL1 -                         STATUS OF SLOT
000039                             6185+TIOPSLOT DS    AL3 -                         SRT ADDRESS OR EMPTY SLOT
00003C                             6186+TIOTFEND DS    CL4 -                         FINAL END OF AN ENTRY
                                   6187+*                                             OR THE TIOT
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  167


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             6189+IEFUCBOB DSECT  DSECT FOR UNIT CONTROL BLOCK.
                                   6190+***********************************************************************
                                   6191+*
                                   6192+*              U N I T   C O N T R O L   B L O C K
                                   6193+*
                                   6194+***********************************************************************
                                   6195+*
                                   6196+*       STATUS
                                   6197+*
                                   6198+*             RELEASES 21.6,21.7,21.8, 10/12/73, LEVEL=6
                                   6199+*
                                   6200+*       FUNCTION
                                   6201+*
                                   6202+*         A UNIT CONTROL BLOCK
                                   6203+*           INCORPORATING A SYSTEM RESOURCE TABLE
                                   6204+*             RECORDS THE STATUS OF
                                   6205+*               A PHYSICAL INPUT OUTPUT DEVICE ADDRESS
                                   6206+*             IS CREATED AND INITIALIZED DURING SYSTEM GENERATION
                                   6207+*             RESIDES IN THE NUCLEUS BELOW 32 K
                                   6208+*             POINTS TO A DEVICE TYPE DEPENDENT EXTENSION
                                   6209+*               RESIDING HIGHER IN THE NUCLEUS
                                   6210+*             IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY
                                   6211+*               A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS
                                   6212+*             MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES
                                   6213+*               AND DATA EXTENT BLOCKS
                                   6214+*             CONTAINS INDICES INTO TABLES FOR
                                   6215+*               DEVICE STATISTICS ATTENTION LOGICAL CHANNEL
                                   6216+*             MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS
                                   6217+*
                                   6218+*       ENTRY
                                   6219+*
                                   6220+*             IEFUCBOB
                                   6221+*
                                   6222+*       INPUT
                                   6223+*
                                   6224+*             BAL: DSECT
                                   6225+*             BSL: DCL (UCBPTR, UCBDCPTR) PTR
                                   6226+*
                                   6227+*       OUTPUT
                                   6228+*
                                   6229+*             SYSGEN INDEPENDENT COMMON SECTION
                                   6230+*               INCLUDING UCBTYP WORD
                                   6231+*             DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)
                                   6232+*               DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE
                                   6233+*               DATACELL
                                   6234+*                 (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)
                                   6235+*               UNIT RECORD WITH UNIVERSAL CHARACTER SET
                                   6236+*               GRAPHICS (EXCEPT M85 CRT CONSOLE)
                                   6237+*               TAPE CARTRIDGE READER AND OPTICAL READER
                                   6238+*             CELL DESCRIPTION FOR ONE OF THE TEN CELLS
                                   6239+*               IN THE DATACELL DEVICE SEGMENT ABOVE
                                   6240+*             UCB EXTENSION (ONE OF THE FOLLOWING)
                                   6241+*               DIRECT ACCESS
                                   6242+*               MAGNETIC TAPE
                                   6243+*               TAPE CARTRIDGE READER
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  168


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6244+*               OPTICAL READER
                                   6245+*               UNIVERSAL CHARACTER SET
                                   6246+*             M65 MULTIPROCESSING PREFIX
                                   6247+*               (CONTIGUOUSLY PRECEDING COMMON SECTION)
                                   6248+*
                                   6249+*       ATTRIBUTES
                                   6250+*
                                   6251+*             BILINGUAL
                                   6252+*
                                   6253+***********************************************************************
                                   6254+*
                                   6255+*       SYSGEN-INDEPENDENT
                                   6256+*       COMMON SECTION
                                   6257+*
000000                             6258+         DS    0D -                    UNIT CONTROL BLOCK PROPER
                                   6259+*
000000                             6260+UCBOB    EQU   * -                     UCBPTR -> UCBOB
                                   6261+*
                                   6262+***********************************************************************
                                   6263+*
000000                             6264+UCBJBNR  DS    B -                     INTERNAL JOB ID
0000F0                             6265+UCBKEY   EQU   X'F0' -                 JOB PROTECTION KEY
                                   6266+*                                        (SET FOR RETAIN OR PASS)
000008                             6267+UCBTEPDC EQU   X'08' -                 DEVICE NOT ALLOCATABLE BECAUSE
                                   6268+*                                      OWNED BY OLTEP           SA59673
000002                             6269+UCBDEM   EQU   X'02' -                 DEMOUNT AND RETAIN OR PASS
                                   6270+*                                        (SET DURING DEVICE ALLOC)
000001                             6271+UCBMONT  EQU   X'01' -                 MOUNT AND RETAIN OR PASS
                                   6272+*                                        (SET DURING DEVICE ALLOC)
000001                             6273+UCBFL5   DS    B -                     FLAGS
000020                             6274+UCBTICBT EQU   X'20' -                 CHANNEL END AND/OR DEVICE END
                                   6275+*                                      OR MOUNT CONDITION PENDING.
                                   6276+*                                      USED ONLY WITH PTF.       ICB289
000010                             6277+UCBVSDR  EQU   X'10' -                 DEVICE HAS VARIABLE LENGTH SDRS
000008                             6278+UCBEXTSN EQU   X'08' -                 UCBNBRSN CONTAINS LENGTH AND
                                   6279+*                                        UCBSNADR ADDRESS OF SENSE INFO
000004                             6280+UCBNALOC EQU   X'04' -                 DEVICE NOT ALLOCATABLE   SA59673
000002                             6281+UCBALTCU EQU   X'02' -                 DEVICE HAS ALTERNATE CU ADDRESS
000001                             6282+UCBALTPH EQU   X'01' -                 DEVICE HAS ALTERNATE PATH
000002                             6283+UCBID    DS    C -                     UCB ID (FF)
000003                             6284+UCBSTAT  DS    B -                     DEVICE STATUS
000080                             6285+UCBONLI  EQU   X'80' -                 DEVICE ONLINE
000040                             6286+UCBCHGS  EQU   X'40' -                 DEVICE TO BE VARIED OFFLINE
000020                             6287+UCBRESV  EQU   X'20' -                 VOLUME RESERVED
000010                             6288+UCBUNLD  EQU   X'10' -                 UNLOAD PENDING
000008                             6289+UCBALOC  EQU   X'08' -                 DEVICE ALLOCATED
000004                             6290+UCBPRES  EQU   X'04' -                 VOLUME PERMANENTLY RESIDENT
000002                             6291+UCBSYSR  EQU   X'02' -                 EITHER SYSTEM RESIDENCE
                                   6292+*                                        OR PRIMARY CONSOLE
000001                             6293+UCBDADI  EQU   X'01' -                 EITHER STANDARD TAPE LABELS
                                   6294+*                                        VERIFIED OR ALTERNATE CONSOLE
000004                             6295+UCBCHA   DS    B -                     CHANNEL ADDRESS FLAGS
000080                             6296+UCBHIO   EQU   X'80' -                 HALT I/O
000040                             6297+UCBMOD   EQU   X'40' -                 STATUS MODIFIER
000020                             6298+UCBDSNS  EQU   X'20' -                 DELAYED SENSE
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  169


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000010                             6299+UCBDHIO  EQU   X'10' -                 DELAYED HALT I/O
00000F                             6300+UCBCHANA EQU   X'0F' -                 CHANNEL ADDRESS
000005                             6301+UCBUA    DS    FL1 -                   UNIT ADDRESS
000006                             6302+UCBFL1   DS    B -                     FLAGS
000080                             6303+UCBBUSYD EQU   X'80' -                 DEVICE BUSY
000040                             6304+UCBNOTRD EQU   X'40' -                 DEVICE NOT READY
000020                             6305+UCBUSING EQU   X'20' -                 CHANNEL PROGRAM EXECUTED
                                   6306+*                                        AND NOT YET POSTED COMPLETE
000010                             6307+UCBINTER EQU   X'10' -                 DEVICE END ERROR
                                   6308+*                                        AFTER CHANNEL END
                                   6309+*                                        (IOB INTERCEPT)
000008                             6310+UCBNOTRC EQU   X'08' -                 CONTROL UNIT BUSY
000006                             6311+UCBSTS   EQU   X'06' -                 DEVICE STATUS
                                   6312+*/       01    UCBNTRAN                DIRECT ACCESS ARM SEEKING
                                   6313+*                                        (IOS STANDALONE CP EXECUTED)
                                   6314+*                                        OR TC RECEIVE STATUS
                                   6315+*                                        (INHIBIT HIO)
                                   6316+*/       11    UCBTRANS                DIRECT ACCESS DATA TRANSFER
                                   6317+*                                        (USER CP EXECUTING)
000001                             6318+UCBERR   EQU   X'01' -                 ERROR ROUTINE USING DEVICE
                                   6319+*                                        EXCLUSIVELY
000007                             6320+UCBDTI   DS    FL1 -                   DEVICE TABLE INDEX
000008                             6321+UCBETI   DS    FL1 -                   ERROR TABLE INDEX
                                   6322+*                                        (ERROR ROUTINE SUFFIX)
000009                             6323+UCBSTI   DS    FL1 -                   STATUS TABLE INDEX
                                   6324+*                                        (*10 = STATAB INDEX)
00000A                             6325+UCBLCI   DS    FL1 -                   LOGICAL CHANNEL WORD TABLE INDEX
                                   6326+*                                        (*8 = LCHTAB INDEX)
00000B                             6327+UCBATI   DS    FL1 -                   ATTENTION TABLE (ANTAB) INDEX
00000C                             6328+UCBWGT   DS    B -                     FLAGS AND CHANNEL MASK
000080                             6329+UCBIN    EQU   X'80' -                 SYSIN
000040                             6330+UCBOUT   EQU   X'40' -                 SYSOUT
000020                             6331+UCBPUB   EQU   X'20' -                 ASSUME PUBLIC VOLUME
000010                             6332+UCBREW   EQU   X'10' -                 REWIND COMMAND
00000F                             6333+UCBPATH  EQU   X'0F' -                 INOPERATIVE PATHS
000008                             6334+UCBPATH0 EQU   X'08' -                 PRIMARY PATH INOPERATIVE
000004                             6335+UCBPATH1 EQU   X'04' -                 OPTIONAL PATH 1 INOPERATIVE
000002                             6336+UCBPATH2 EQU   X'02' -                 OPTIONAL PATH 2 INOPERATIVE
000001                             6337+UCBPATH3 EQU   X'01' -                 OPTIONAL PATH 3 INOPERATIVE
00000D                             6338+UCBNAME  DS    CL3 -                   EBCDIC UNIT NAME
000010                             6339+UCBTYP   DS    0CL4 -                  DEVICE DESCRIPTION
000010                             6340+UCBTBYT1 DS    B -                     MODEL BITS
000080                             6341+UCB1FEA0 EQU   X'80' -                 BIT 0
000040                             6342+UCB1FEA1 EQU   X'40' -                 BIT 1
000020                             6343+UCB1FEA2 EQU   X'20' -                 BIT 2
000010                             6344+UCB1FEA3 EQU   X'10' -                 BIT 3
000008                             6345+UCB1FEA4 EQU   X'08' -                 BIT 4
000004                             6346+UCB1FEA5 EQU   X'04' -                 BIT 5
000002                             6347+UCB1FEA6 EQU   X'02' -                 BIT 6
000001                             6348+UCB1FEA7 EQU   X'01' -                 BIT 7
000011                             6349+UCBTBYT2 DS    B -                     OPTION FLAGS
000080                             6350+UCB2OPT0 EQU   X'80' -                 FLAG 0
000040                             6351+UCB2OPT1 EQU   X'40' -                 FLAG 1
000020                             6352+UCB2OPT2 EQU   X'20' -                 FLAG 2
000010                             6353+UCB2OPT3 EQU   X'10' -                 FLAG 3
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  170


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                             6354+UCB2OPT4 EQU   X'08' -                 FLAG 4
000004                             6355+UCB2OPT5 EQU   X'04' -                 FLAG 5
000002                             6356+UCB2OPT6 EQU   X'02' -                 FLAG 6
000002                             6357+UCBVLPWR EQU   X'02' -                 VOLUME REQUIRES ALTERNATE POWER
                                   6358+*                                      SOURCE DEVICE             S21167
000001                             6359+UCB2OPT7 EQU   X'01' -                 FLAG 7
000001                             6360+UCBDVPWR EQU   X'01' -                 DEVICE HAS ALTERNATE POWER
                                   6361+*                                      SOURCE                    S21167
000012                             6362+UCBTBYT3 DS    B -                     CLASS BITS
000080                             6363+UCB3TAPE EQU   X'80' -                 TAPE
000040                             6364+UCB3COMM EQU   X'40' -                 COMMUNICATIONS
000020                             6365+UCB3DACC EQU   X'20' -                 DIRECT ACCESS
000010                             6366+UCB3DISP EQU   X'10' -                 DISPLAY
000008                             6367+UCB3UREC EQU   X'08' -                 UNIT RECORD
000004                             6368+UCB3CHAR EQU   X'04' -                 CHARACTER READER
000013                             6369+UCBTBYT4 DS    C -                     DEVICE CODE
000014                             6370+UCBLTS   DS    CL2 -                   LAST REQUEST ELEMENT
000016                             6371+UCBSNS   DS    0CL2 -                  SENSE INFORMATION FOR DEVICES
                                   6372+*                                      WITHOUT EXTENDED SENSE    ICB425
000016                             6373+UCBFL7   DS    B -                     FLAG BYTE FOR DEVICES WITH
                                   6374+*                                      EXTENDED SENSE            ICB425
000080                             6375+UCBASDEP EQU   X'80' -                 INDICATES CANCEL KEY DEPRESSED
                                   6376+*                                      ON 3211                   ICB425
000017                             6377+         DS    X -                     RESERVED BYTE FOR DEVICES WITH
                                   6378+*                                      EXTENDED SENSE            ICB425
                                   6379+*
000000                             6380+SRTEJBNR EQU   UCBJBNR -               ALIAS
000001                             6381+SRTEMNT  EQU   UCBMONT -               ALIAS
000003                             6382+SRTESTAT EQU   UCBSTAT -               ALIAS
000080                             6383+SRTEONLI EQU   UCBONLI -               ALIAS
000040                             6384+SRTECHGS EQU   UCBCHGS -               ALIAS
000020                             6385+SRTERESV EQU   UCBRESV -               ALIAS
000010                             6386+SRTEUNLD EQU   UCBUNLD -               ALIAS
000008                             6387+SRTEALOC EQU   UCBALOC -               ALIAS
000004                             6388+SRTEPRES EQU   UCBPRES -               ALIAS
000002                             6389+SRTESYSR EQU   UCBSYSR -               ALIAS
000001                             6390+SRTEDADI EQU   UCBDADI -               ALIAS
000006                             6391+UCBFL2   EQU   UCBFL1 -                ALIAS (UCBCHA WAS ONCE UCBFL1)
                                   6392+*
                                   6393+***********************************************************************
                                   6394+*
                                   6395+*        DEVICE-DEPENDENT UCB SEGMENTS
                                   6396+*
000018                             6397+UCBDEV   EQU   *
                                   6398+*
                                   6399+***********************************************************************
                                   6400+*
                                   6401+*             DIRECT ACCESS (2300)
                                   6402+*             (EXCEPT DATA CELL)
                                   6403+*             AND MAGNETIC TAPE (2400)
                                   6404+*             UCB SEGMENT
                                   6405+*
000018                             6406+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT
                                   6407+*
                                   6408+***********************************************************************
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  171


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6409+*
000018                             6410+UCBSENSE DS    0CL4 -                  ADDITIONAL SENSE INFORMATION FOR
                                   6411+*                                      DEVICES WITH SIX SENSE BYTES
000018                             6412+UCBSENSB DS    0A -                    SAME AS UCBSENSA BELOW
000018                             6413+UCBSENSN DS    FL1 -                   NUMBER OF EXPANDED SENSE BYTES
000019                             6414+UCBSENSA DS    AL3 -                   ADDRESS OF EXPANDED SENSE
                                   6415+*                                      INFORMATION
00001C                             6416+UCBVOLI  DS    CL6 -                   VOLUME SERIAL NUMBER
000022                             6417+UCBSTAB  DS    B -                     VOLUME STATUS
000080                             6418+UCBBSVL  EQU   X'80' -                 NOT SHARABLE (DIRECT ACCESS)
000080                             6419+UCBDVSHR EQU   X'80' -                 WHEN ONE, DEVICE SHARABLE AMONG
                                   6420+*                                      SEVERAL CPU'S (3420 MAGNETIC
                                   6421+*                                      TAPE DEVICES ONLY)        ICB485
000040                             6422+UCBBVSC  EQU   X'40' -                 RESERVED
000020                             6423+UCBBALB  EQU   X'20' -                 MORE VOLUME LABEL PROCESSING
000020                             6424+UCBPRSRS EQU   X'20' -                 THIS DEVICE WAS SPECIFIED IN
                                   6425+*                                      PRESRES BUT WAS NOT MOUNTED AT
                                   6426+*                                      IPL
000010                             6427+UCBBPRV  EQU   X'10' -                 PRIVATE USE
000008                             6428+UCBBPUB  EQU   X'08' -                 PUBLIC USE
000004                             6429+UCBBSTR  EQU   X'04' -                 STORAGE USE (DA)
                                   6430+*                                        ANSI LABEL (MT)
000002                             6431+UCBBJLB  EQU   X'02' -                 JOBLIB VOLUME (DA)
000001                             6432+UCBBNUL  EQU   X'01' -                 MCS MOUNT/DEMOUNT MSGS ISSUED
                                   6433+*                                        (MESSAGE IDS IN UCBFSER) (MT)
                                   6434+*                                        CONTROL VOLUME (DA)
000023                             6435+UCBDMCT  DS    B -                     VOLUME USE BYTE
000080                             6436+UCBMOUNT EQU   X'80' -                 MOUNTED OR REQUEST ISSUED
                                   6437+*                                        (OFF MEANS MOUNT VERIFIED)
00007F                             6438+UCBDMC   EQU   X'7F' -                 NUMBER OF OPEN DCBS
000024                             6439+UCBVTOC  DS    0CL4 -                  TTR0 OF VTOC (DA)
000024                             6440+UCBFSCT  DS    H -                     DATASET SEQUENCE COUNT (MT)
000026                             6441+UCBFSEQ  DS    H -                     DATASET SEQUENCE NUMBER (MT)
000028                             6442+UCBFSER  DS    0CL8 -                  DATASET SERIAL NUMBER
                                   6443+*                                        (MT AFTER OPEN) OR
                                   6444+*                                        MESSAGE IDS  (MT BEFORE OPEN)
                                   6445+*                                        PLUS TWO RESERVED BYTES (MT)
000028                             6446+UCBSQC   DS    FL1 -                   NUMBER OF RESERVE MACROS
                                   6447+*                                        (DA INCLUDING DATACELL)
000029                             6448+UCBDVRES DS    FL1 -                   DEVICE RESERVATION (SHARED DASD)
                                   6449+*                                        (DA INCLUDING DATACELL)
                                   6450+*                                        SET TO UCBSQC AFTER GOOD SIO
00002A                             6451+UCBRQESV DS    H -                     ADDRESS OF RQE TO VERIFY
                                   6452+*                                        VOL SER NUMBER IN UCB
                                   6453+*                                        (SET FROM UCBLTS AFTER
                                   6454+*                                        UNSOLICITED DEVICE END)
                                   6455+*                                        (DA INCLUDING DATACELL)
00002C                             6456+UCBORSVA DS    0A -                    ADDRESS OF DEB FOR FIRST USER
                                   6457+*                                        ON QUEUE FOR DEVICE
                                   6458+*                                        (DA INCLUDING DATACELL)
00002C                             6459+UCBFL4   DS    B -                     FLAGS (DA INCLUDING DATACELL)
0000F8                             6460+UCBDAV   EQU   X'F8' -                 VOLUME VERIFICATION FLAGS
000080                             6461+UCBMNT   EQU   X'80' -                 VOL SER VERIFIER ISSUED MOUNT
000040                             6462+UCBVVRTN EQU   X'40' -                 VOL SER VERIFIER IN CONTROL
000020                             6463+UCBFT    EQU   X'20' -                 FIRST VERIFIER ENTRY FOR VOL
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  172


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000010                             6464+UCBTCC   EQU   X'10' -                 ALTERNATE TRACK PROCEDURE
                                   6465+*                                        HANDLING VOL LABEL
000008                             6466+UCBVER   EQU   X'08' -                 VERIFIER VERIFIED VOL
000007                             6467+UCBORCNT EQU   X'07' -                 NUMBER OF REQUESTS FOR DEVICE
                                   6468+*                                        FROM FIRST USER ON QUEUE
00002D                             6469+UCBORSVB DS    AL3 -                   ADDRESS OF DEB FOR FIRST USER
                                   6470+*                                        ON QUEUE FOR DEVICE
                                   6471+*                                        (DA INCLUDING DATACELL)
000030                             6472+UCBSKA   DS    0CL8 -                  MBBCCHHR OF LAST SEEK
                                   6473+*                                        (DA INCLUDING DATACELL)
000030                             6474+UCBXTN   DS    0A -                    ADDRESS OF UCB EXTENSION (MT)
000030                             6475+UCBVOPT  DS    B -                     VOLUME STATISTIC FLAGS
000080                             6476+UCBESV   EQU   X'80' -                 ESV RECORDS KEPT
000040                             6477+UCBEVA   EQU   X'40' -                 EVA RECORDS MAY BE KEPT
000020                             6478+UCBESVC  EQU   X'20' -                 ESV RECORDS SENT TO CONSOLE
                                   6479+*                                        AS OPPOSED TO SYS1.MAN
000010                             6480+UCBERPC  EQU   X'10' -                 ERROR RECOVERY PROC IN CONTROL
000008                             6481+UCBESVE  EQU   X'08' -                 ESV RECORD ISSUED FOR VOLUME
                                   6482+*                                        BECAUSE OF EOV
000001                             6483+UCBASNDE EQU   X'01' -                 UNSOLICITED DEVICE END OCCURRED
                                   6484+*                                      ON 3420                   ICB277
000031                             6485+UCBXTNB  DS    AL3 -                   ADDRESS OF UCB EXTENSION (MT)
                                   6486+*                                        (MAP BELOW)
000034                             6487+         DS    CL4 -                   UCBSKA PADDING (NOT IN UCB)
                                   6488+*                                         NO LONGER EXISTS (MT)
000038                             6489+UCBECBB  DS    0A -                    ECB ADDRESS (DA)
000038                             6490+UCBUSER  DS    FL1 -                   NUMBER OF CURRENT USERS (DA)
000039                             6491+UCBECBA  DS    AL3 -                   ECB ADDRESS (DA)
00003C                             6492+UCBEXT   DS    0A -                    ADDRESS OF UCB EXTENSION (DA)
                                   6493+*                                        (MAPPED BELOW)
00003C                             6494+UCBWKADB DS    A -                     ALIAS
                                   6495+*
00001C                             6496+SRTEVOLI EQU   UCBVOLI -               ALIAS
000022                             6497+SRTESTAB EQU   UCBSTAB -               ALIAS
000080                             6498+SRTEBSVL EQU   UCBBSVL -               ALIAS
000040                             6499+SRTEBVSC EQU   UCBBVSC -               ALIAS
000020                             6500+SRTEBALB EQU   UCBBALB -               ALIAS
000010                             6501+SRTEBPRV EQU   UCBBPRV -               ALIAS
000008                             6502+SRTEBPUB EQU   UCBBPUB -               ALIAS
000004                             6503+SRTEBSTR EQU   UCBBSTR -               ALIAS
000004                             6504+SRTEASCI EQU   UCBBSTR -               ALIAS
000004                             6505+UCBASCI  EQU   SRTEASCI -              ALIAS
000004                             6506+SRTEBVQS EQU   SRTEBSTR -              ALIAS
000002                             6507+SRTEBJLB EQU   UCBBJLB -               ALIAS
000001                             6508+SRTEBNUL EQU   UCBBNUL -               ALIAS
000023                             6509+SRTEDMCT EQU   UCBDMCT -               ALIAS
000024                             6510+SRTEFSCT EQU   UCBFSCT -               ALIAS
000026                             6511+SRTEFSEQ EQU   UCBFSEQ -               ALIAS
000038                             6512+SRTEUSER EQU   UCBUSER -               ALIAS
000039                             6513+SRTEECBA EQU   UCBECBA -               ALIAS
                                   6514+*
                                   6515+***********************************************************************
                                   6516+*
                                   6517+*             DATA CELL (2321)
                                   6518+*             UCB SEGMENT
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  173


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6519+*
000018                             6520+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT
                                   6521+*
                                   6522+***********************************************************************
                                   6523+*
000018                             6524+UCBSEN   DS    CL4 -                   MORE SENSE INFORMATION
00001C                             6525+UCBERPA  DS    CL12 -                  ERROR RECOVERY WORK AREA A
000028                             6526+UCBDASD  DS    CL16 -                  DATA CELL FIELDS MAPPED BY
                                   6527+*                                        UCBSQC (1 BYTE)
                                   6528+*                                        UCBDVRES (1 BYTE)
                                   6529+*                                        UCBRQESV (2 BYTES)
                                   6530+*                                        UCBFL4 (1 FLAG BYTE)
                                   6531+*                                        UCBORSVA/B (3 BYTES)
                                   6532+*                                        UCBSKA (8 BYTES)
                                   6533+*                                        UNDER DIRECT ACCESS ABOVE
000038                             6534+UCBCELLS DS    0CL160 -                CELL DESCRIPTIONS (MAPPED BELOW)
000038                             6535+UCBCELL0 DS    CL16 -                  CELL 0
000048                             6536+UCBCELL1 DS    CL16 -                  CELL 1
000058                             6537+UCBCELL2 DS    CL16 -                  CELL 2
000068                             6538+UCBCELL3 DS    CL16 -                  CELL 3
000078                             6539+UCBCELL4 DS    CL16 -                  CELL 4
000088                             6540+UCBCELL5 DS    CL16 -                  CELL 5
000098                             6541+UCBCELL6 DS    CL16 -                  CELL 6
0000A8                             6542+UCBCELL7 DS    CL16 -                  CELL 7
0000B8                             6543+UCBCELL8 DS    CL16 -                  CELL 8
0000C8                             6544+UCBCELL9 DS    CL16 -                  CELL 9
0000D8                             6545+UCBDC    DS    0A -                    ADDRESS OF DATACELL UCB EXT
                                   6546+*                                        (MAPPED BELOW)
0000D8                             6547+UCBWKADA DS    A -                     ALIAS
                                   6548+*
                                   6549+***********************************************************************
                                   6550+*
                                   6551+*             UNIT RECORD WITH
                                   6552+*             UNIVERSAL CHARACTER SET (1403, 3211)
                                   6553+*             UCB SEGMENT
                                   6554+*
000018                             6555+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT
                                   6556+*
                                   6557+***********************************************************************
                                   6558+*
000018                             6559+UCBNBRSN DS    FL1 -                   LENGTH OF SENSE INFO (3211)
000019                             6560+UCBSNADR DS    AL3 -                   ADDR OF SENSE INFO --
                                   6561+*                                        THAT OF UCBSNS (1403)
                                   6562+*                                        OR UCBSNSXT (3211)
00001C                             6563+UCBXTADR DS    A -                     ADDR OF UCS UCB EXTENSION
                                   6564+*
                                   6565+***********************************************************************
                                   6566+*
                                   6567+*             GRAPHICS EXCEPT
                                   6568+*             M85 CRT CONSOLE
                                   6569+*             UCB SEGMENT
                                   6570+*
000018                             6571+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT
                                   6572+*
                                   6573+***********************************************************************
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  174


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6574+*
000018                             6575+UCBSENS  DS    CL2 -                   MORE SENSE INFORMATION
00001A                             6576+UCBOPEN  DS    FL1 -                   NUMBER OF OPEN DCBS
00001B                             6577+UCBGCB   DS    C -                     GRAPHIC CONTROL BYTE
00001C                             6578+UCBTEB   DS    A -                     ADDRESS OF TASK ENTRY BLOCK
000020                             6579+UCBSTART DS    A -                     RESTART ADDRESS
000024                             6580+UCBBTA   DS    0A -                    ADDRESS OF BUFFER TABLE
000024                             6581+UCBDI    DS    FL1 -                   DEVICES ON A CONTROL UNIT
                                   6582+*                                        TO WHICH BUFFER SECTIONS
                                   6583+*                                        ARE ASSIGNED
000025                             6584+UCBBTB   DS    AL3 -                   ADDRESS OF BUFFER TABLE
                                   6585+*
                                   6586+***********************************************************************
                                   6587+*
                                   6588+*             TAPE CARTRIDGE READER (2495)
                                   6589+*             AND OPTICAL READER (1285, 1287, 1288)
                                   6590+*             UCB SEGMENT
                                   6591+*
000018                             6592+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT
                                   6593+*
                                   6594+***********************************************************************
                                   6595+*
000018                             6596+UCBCRWKA DS    A -                     ADDRESS OF UCB EXTENSION
                                   6597+*                                        FOR THIS DEVICE
                                   6598+*                                        (MAPPED BELOW)
                                   6599+*
                                   6600+***********************************************************************
                                   6601+*
                                   6602+*       CELL DESCRIPTION
                                   6603+*       FOR UCBCELL0/.../9
                                   6604+*       IN DATACELL (2321)
                                   6605+*
000038                             6606+         ORG   UCBUSER
                                   6607+*
000038                             6608+UCBDCLL  EQU   * -                     UCBDCPTR -> UCBDCLL
                                   6609+*
                                   6610+***********************************************************************
                                   6611+*
000038                             6612+UCBDCELL DS    0CL16 -                 ONE OF TEN CELLS
                                   6613+*
000038                             6614+UCBDBBNR DS    H -                     BIN NUMBER
00003A                             6615+UCBDSTAB DS    B -                     VOLUME STATUS BYTE B
                                   6616+*                                        (ANALOGOUS TO UCBSTAB)
000080                             6617+UCBDBSVL EQU   X'80' -                 NOT SHARABLE
000020                             6618+UCBDBPRS EQU   X'20' -                 THIS DEVICE WAS SPECIFIED IN
                                   6619+*                                      PRESRES BUT WAS NOT MOUNTED AT
                                   6620+*                                      IPL
000010                             6621+UCBDBPRV EQU   X'10' -                 PRIVATE USE
000008                             6622+UCBDBPUB EQU   X'08' -                 PUBLIC USE
000004                             6623+UCBDBSTR EQU   X'04' -                 STORAGE USE
000002                             6624+UCBDBJLB EQU   X'02' -                 JOBLIB VOLUME
000001                             6625+UCBDBNUL EQU   X'01' -                 CONTROL VOLUME
00003B                             6626+UCBDSTAT DS    B -                     CELL/BIN STATUS
                                   6627+*                                        (ANALOGOUS TO UCBSTAT)
000080                             6628+UCBDNORM EQU   X'80' -                 ONLINE WITH NORMAL CELL
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  175


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6629+*                                        (NOT OFFLINE OR BALLAST)
000020                             6630+UCBDRESV EQU   X'20' -                 RESERVED CELL
000010                             6631+UCBDUNLD EQU   X'10' -                 UNLOAD PENDING
000008                             6632+UCBDALOC EQU   X'08' -                 BIN ALLOCATED
000004                             6633+UCBDPRES EQU   X'04' -                 CELL PERMANENTLY RESIDENT
00003C                             6634+UCBDVOLI DS    CL6 -                   VOLUME SERIAL NUMBER
000042                             6635+UCBDJBNR DS    FL1 -                   INTERNAL JOB NUMBER
000043                             6636+UCBDDMCT DS    FL1 -                   NUMBER OF OPEN DCBS FOR THIS
                                   6637+*                                      CELL (BITS 1-7)
000080                             6638+UCBDDMNT EQU   X'80' -                 IF 0, MOUNT VERIFICATION HAS
                                   6639+*                                      BEEN PERFORMED ---
                                   6640+*                                      IF 1, MOUNT REQUEST HAS BEEN
                                   6641+*                                      ISSUED
000044                             6642+UCBDVTOC DS    CL3 -                   TTR OF VTOC
000047                             6643+UCBDUSER DS    FL1 -                   CURRENT NUMBER OF DATASETS
                                   6644+*
000038                             6645+DATACELL EQU   UCBDCELL -              ALIAS
000038                             6646+DCELBBNR EQU   UCBDBBNR -              ALIAS
00003A                             6647+DCELSTAB EQU   UCBDSTAB -              ALIAS
00003B                             6648+DCELSTAT EQU   UCBDSTAT -              ALIAS
00003C                             6649+DCELVOLI EQU   UCBDVOLI -              ALIAS
000042                             6650+DCELJBNR EQU   UCBDJBNR -              ALIAS
000043                             6651+DCELDMCT EQU   UCBDDMCT -              ALIAS
000044                             6652+DCELVTOC EQU   UCBDVTOC -              ALIAS
000047                             6653+DCELUSER EQU   UCBDUSER -              ALIAS
                                   6654+*
                                   6655+***********************************************************************
                                   6656+*
                                   6657+*       UNIT CONTROL BLOCK EXTENSIONS
                                   6658+*
                                   6659+***********************************************************************
                                   6660+*
                                   6661+*             DIRECT ACCESS (2300)
                                   6662+*             UCB EXTENSION
                                   6663+*
000000                             6664+UCBDA    DSECT  ,                       UCBEXT -> UCBDA
                                   6665+*
                                   6666+***********************************************************************
                                   6667+*
000000                             6668+         DS    CL104 -                 OFFSET
000068                             6669+UCBERP   DS    CL40 -                  ERROR RECOVERY WORK AREA
000090                             6670+UCBOVFLW DS    CL40 -                  TRACK OVERFLOW WORK AREA
                                   6671+*                                        (OPTIONAL)
                                   6672+*
                                   6673+***********************************************************************
                                   6674+*
                                   6675+*             MAGNETIC TAPE (2400)
                                   6676+*             UCB EXTENSION
                                   6677+*
000000                             6678+UCBMT    DSECT  ,                       UCBXTN -> UCBMT
                                   6679+*
                                   6680+***********************************************************************
                                   6681+*
000000                             6682+UCBROR   DS    CL8 -                   READ OPPOSITE DIRECTION
                                   6683+*                                        RECOVERY CCW
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  176


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                             6684+         DS    CL2 -                   RESERVED                  ICB463
00000A                             6685+UCBTRT   DS    FL1 -                   TEMP READ ERROR THRESHOLD
                                   6686+*                                        (IF ZERO THEN EVA ABSENT)
00000B                             6687+UCBTWT   DS    FL1 -                   TEMP WRITE ERROR THRESHOLD
                                   6688+*                                        (IF ZERO THEN EVA ABSENT)
00000C                             6689+UCBTR    DS    FL1 -                   TEMP READ ERROR COUNT
00000D                             6690+UCBTW    DS    FL1 -                   TEMP WRITE ERROR COUNT
00000E                             6691+UCBSIO   DS    H -                     SIO COUNT
000010                             6692+UCBPR    DS    FL1 -                   PERM READ ERROR COUNT
000011                             6693+UCBPW    DS    FL1 -                   PERM WRITE ERROR COUNT
000012                             6694+UCBNB    DS    FL1 -                   NOISE BLOCK COUNT
000013                             6695+UCBMS    DS    CL1 -                   MODE SET OPERATION CODE FOR DATA
                                   6696+*                                      BLOCKS ON 3420            ICB277
000014                             6697+UCBERG   DS    H -                     ERASE GAP COUNT
000016                             6698+UCBCLN   DS    H -                     CLEANER ACTION COUNT
                                   6699+*
                                   6700+***********************************************************************
                                   6701+*
                                   6702+*             TAPE CARTRIDGE READER (2495)
                                   6703+*             UCB EXTENSION
                                   6704+*
000000                             6705+UCBTCR   DSECT  ,                       UCBCRWKA -> UCBTCR
                                   6706+*
                                   6707+***********************************************************************
                                   6708+*
000000                             6709+UCBTCERP DS    0CL24 -                 ERROR RECOVERY CHANNEL PROGRAM
000000                             6710+UCBRCCW1 DS    D -                     RETRY CCW 1
000008                             6711+UCBRCCW2 DS    D -                     RETRY CCW 2
000010                             6712+UCBRCCW3 DS    D -                     RETRY CCW 3
000018                             6713+UCBCSWSA DS    CL8 -                   CSW SAVE AREA
                                   6714+*
                                   6715+***********************************************************************
                                   6716+*
                                   6717+*            OPTICAL READER (1285, 1287, 1288)
                                   6718+*            UCB EXTENSION
                                   6719+*
000000                             6720+UCBOR    DSECT  ,                       UCBCRWKA -> UCBOR
                                   6721+*
                                   6722+***********************************************************************
                                   6723+*
000000                             6724+UCBCRDDC DS    FL1 -                   DATA CHECK ERROR COUNT
000001                             6725+UCBCRILC DS    FL1 -                   INCORRECT LENGTH ERROR COUNT
000002                             6726+UCBCRECC DS    FL1 -                   EQUIPMENT CHECK ERROR COUNT
000003                             6727+         DS    CL5 -                   RESERVED
                                   6728+*
                                   6729+***********************************************************************
                                   6730+*
                                   6731+*              UNIT RECORD WITH
                                   6732+*              UNIVERSAL CHARACTER SET (1403, 3211)
                                   6733+*              UCB EXTENSION
                                   6734+*
000000                             6735+UCBUCS   DSECT  ,                       UCBXTADR -> UCBUCS
                                   6736+*
                                   6737+***********************************************************************
                                   6738+*
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  177


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             6739+UCBUCSID DS    CL4 -                   ID OF UCS IMAGE IN BUFFER
000004                             6740+UCBUCSOP DS    B -                     FORMAT OF UCS IMAGE IN BUFFER
                                   6741+*                                        (O FOR OPTION)
000080                             6742+UCBUCSO1 EQU   X'80' -                 DEFAULT IMAGE
000040                             6743+UCBUCSO2 EQU   X'40' -                 FOLD MODE
000001                             6744+UCBUCSPE EQU   X'01' -                 IMAGE HAS PARITY ERROR (3211)
000005                             6745+UCBFCBOP DS    B -                     RESERVED (1403) OR FLAGS (3211)
                                   6746+*                                        (O FOR OPTION)
000080                             6747+UCBFCBO1 EQU   X'80' -                 FCB DEFAULT IMAGE
000006                             6748+         DS    X -                     RESERVED
000007                             6749+UCBERCNT DS    FL1 -                   COUNT OF ERRORS THAT HAVE
                                   6750+*                                      OCCURRED (3211)
000008                             6751+UCBFCBID DS    CL4 -                   FCB IMAGE ID
00000C                             6752+UCBERADR DS    A -                     ADDR OF ERP LOGOUT AREA
                                   6753+*
                                   6754+***********************************************************************
                                   6755+*
                                   6756+*              3211 SENSE INFORMATION UCB EXTENSION
                                   6757+*
                                   6758+*        THIS EXTENSION IS POINTED TO BY THE UCBSNADR FIELD OF THE
                                   6759+*        UCB AND IS NOT CONTIGUOUS TO THE UCB.
                                   6760+*
000000                             6761+UCBSNINF DSECT  ,
                                   6762+*
                                   6763+***********************************************************************
                                   6764+*
000000                             6765+UCBSNSXT DS    CL6 -                   SENSE INFORMATION
000006                             6766+         DS    XL2 -                   RESERVED
                                   6767+*
                                   6768+***********************************************************************
                                   6769+*
                                   6770+*       MODEL 65 MULTIPROCESSING UCB PREFIX
                                   6771+*
000000                             6772+UCBM65MP DSECT  , -                     UCBPTR-4 IF MP65
                                   6773+*
                                   6774+***********************************************************************
                                   6775+*
000000                             6776+UCBFL3   DS    B -                     M65MP FLAGS
000080                             6777+UCBACU   EQU   X'80' -                 ALTERNATE CONTROL UNITS EXIST
000020                             6778+UCBHIOB  EQU   X'20' -                 CPU B TO USE HIO
000010                             6779+UCBHIOA  EQU   X'10' -                 CPU A TO USE HIO
000008                             6780+UCBSIOB  EQU   X'08' -                 CPU B ISSUED LAST SIO
000002                             6781+UCBNOB   EQU   X'02' -                 NO PATH TO CPU B
000001                             6782+UCBNOA   EQU   X'01' -                 NO PATH TO CPU A
000001                             6783+         DS    CL2 -                   RESERVED
000003                             6784+UCBMPFLG DS    B -                     FLAGS
000020                             6785+UCBRIC   EQU   X'20' -                 DURING NIP - DEVICE IS RESERVED
                                   6786+*                                      TO IPLED CPU
000010                             6787+UCBRNIC  EQU   X'10' -                 DURING NIP - DEVICE IS RESERVED
                                   6788+*                                      TO NON-IPLED CPU
000004                             6789+UCBNRO   EQU   X'04' -                 DURING NIP - DEVICE IS NOT
                                   6790+*                                      RESERVED BECAUSE OF OPERATOR'S
                                   6791+*                                      REQUEST
000002                             6792+UCBPROC  EQU   X'02' -                 USED BY PROCESSING PROGRAMS
000001                             6793+UCBIPL   EQU   X'01' -                 DEVICE OFFLINE AT IPL
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  178


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6794+*
                                   6795+***********************************************************************
                                   6796+*
                                   6797+*              U N I T   C O N T R O L   B L O C K
                                   6798+*
                                   6799+***********************************************************************
                                   6800+*
000005                             6801+UCB3DCEL EQU   X'05' UCB DEVICE TYPE FOR 2321.
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  179


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             6803+CVT      DSECT  DSECT FOR COMMUNICATIONS VECTOR
                                   6804+*
                                   6805+*              OS/360
                                   6806+*        COMMUNICATION VECTOR TABLE
                                   6807+*
                                   6808+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5
                                   6809+*
000010                             6810+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT
                                   6811+*
                                   6812+*              BEGINNING OF CVT PROPER
                                   6813+*
000000                             6814+         DS    0F
000000                             6815+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE
                                   6816+*
000000 00000000                    6817+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST
000004 00000000                    6818+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE
                                   6819+*                              ASYNCHRONOUS EXITS
000008 00000000                    6820+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB
00000C 00000000                    6821+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB
000010 00000000                    6822+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT
                                   6823+*                              CONSOLE INTERRUPTION ROUTINE
000014 00000000                    6824+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE
000018 00000000                    6825+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING
                                   6826+*                              ROUTINE FOR SUPERVISOR
00001C 00000000                    6827+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                   6828+*                              RELATIVE TRACK ADDR TO ABSOLUTE
000020 00000000                    6829+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                   6830+*                              ABSOLUTE TRACK ADDR TO RELATIVE
000024 00000000                    6831+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION
                                   6832+*                              IN UCB LOOKUP TABLE
000028 00000000                    6833+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION
                                   6834+*                              IN UCB LOOKUP TABLE
00002C 00000000                    6835+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE
                                   6836+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES
000030 00000000                    6837+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY
                                   6838+*                              IN UCB LOOKUP TABLE
000034 00000000                    6839+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE
000038 00000000                    6840+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL
00003C 00000000                    6841+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)
                                   6842+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS
                                   6843+*                              MASTER SCHEDULER RESIDENT DATA AREA
000040 00000000                    6844+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE
000044 00000000                    6845+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE
000048 00000000                    6846+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS
                                   6847+*                              FOR DAMAGE ASSESSMENT ROUTINES
00004C 00000000                    6848+CVT0FN00 DC    A(0) -        RESERVED (MVT)
000050 0A03                        6849+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER
000052 07FE                        6850+CVTBRET  BR    14 -          RETURN TO CALLER
000054 00000000                    6851+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB
000058 00000000                    6852+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER
                                   6853+*                              ROUTINE (SHPC FIRST)
00005C 00000000                    6854+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL
000060 00000000                    6855+CVTSJQ   DC    A(0) -        RESERVED (MVT)
000064 00000000                    6856+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR
000068 00000000                    6857+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  180


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   6858+*                              FOR INTERVAL TIMER
00006C 00000000                    6859+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE
                                   6860+*                              FOR INTERVAL TIMER
000070 00000000                    6861+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE
000074 10                          6862+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM
000040                             6863+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS
000020                             6864+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS
000010                             6865+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1
000004                             6866+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING
000075 000000                      6867+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC
000078 00000000                    6868+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE
00007C 00000000                    6869+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER
000080 00000000                    6870+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS
000084 00000000                    6871+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE
000088 00000000                    6872+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER
00008C 00000000                    6873+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE
000090 00000000                    6874+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE
000094 00000000                    6875+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT
                                   6876+*                              DATA AREA (MVT/MFT)
000098 00000000                    6877+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE
00009C 00000000                    6878+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE
0000A0 00000000                    6879+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE
0000A4 00000000                    6880+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS
0000A8 00000000                    6881+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)
0000AC 00000000                    6882+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD
                                   6883+*                              (0 IF GFX INACTIVE) MVT
0000B0 00000000                    6884+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA
                                   6885+*                              (MVT/MFT)
0000B4 0000                        6886+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER
0000B6 00                          6887+CVTOPTA  DC    AL1(00) -     MISCELLANEOUS FLAGS
000080                             6888+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)
000040                             6889+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --
                                   6890+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000020                             6891+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --
                                   6892+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000010                             6893+CVTNIP   EQU   X'10' -       NIP RUNNING
000008                             6894+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)
000004                             6895+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE
000002                             6896+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT
000001                             6897+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT
0000B7 00                          6898+CVTOPTB  DC    AL1(00) - MISCELLANEOUS FLAGS
000080                             6899+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)
000020                             6900+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)
                                   6901+*
                                   6902+*              PCP OVERLAY
                                   6903+*
0000B8                             6904+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART
0000BB                             6905+CVTSTUSA DS    B -           STATUS BYTE A
000008                             6906+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART
                                   6907+*                              WAS INITIATED INTRASTEP
000004                             6908+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART
                                   6909+*                              WAS INITIATED INTERSTEP
000002                             6910+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM
                                   6911+*                              AND DATA HAS NOT BEEN READ
0000BC                             6912+         DS    CL2 -         RESERVED
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  181


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000BE                             6913+         DS    CL2 -         RESERVED
                                   6914+*
                                   6915+*              MVT/MFT OVERLAY
                                   6916+*
0000B8                             6917+         ORG   CVTCRTTR
                                   6918+*
0000B8 00000000                    6919+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR
0000BC 00000000                    6920+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE
                                   6921+*
                                   6922+*              END OF OVERLAYS
                                   6923+*
0000C0 00000000                    6924+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)
0000C4 00000000                    6925+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA
0000C8 00000000                    6926+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT
                                   6927+*                              (MVT/MPS)
0000CC 00000000                    6928+CVTUSER  DC    A(0) -        A WORD TO THE USER
                                   6929+*
                                   6930+*              MFT/MVT CVT EXTENSION
                                   6931+*
0000D0 00000000                    6932+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT
0000D4 0A0D                        6933+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)
0000D6 0A06                        6934+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)
0000D8 00000000                    6935+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT
0000DC 00000000                    6936+CVTPATCH DC    A(0) -        ADDR OF FE PATCH AREA
0000E0 00000000                    6937+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA
                                   6938+*                              (MVT/MFT)
0000E4                             6939+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)
0000E4 00                          6940+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)
000080                             6941+CVTTSRDY EQU   X'80' -       TIME SHARING READY
0000E5 000000                      6942+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)
0000E8 00000000                    6943+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)
0000EC                             6944+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)
0000EC 00                          6945+CVTGTFST DC    B'0' -        STATUS FLAGS
0000C0                             6946+CVTGTFS  EQU   X'C0' -       STATE
                                   6947+*/       00    CVTGTFIN      INACTIVE
                                   6948+*/       01    CVTGTFSR      STARTING
                                   6949+*/       10    CVTGTFSP      STOPPING
                                   6950+*/       11    CVTGTFAC      ACTIVE
000020                             6951+CVTSTATE EQU   X'20' -       IN CONTROL
000010                             6952+CVTMODE  EQU   X'10' -       EXT MODE
000008                             6953+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA
000004                             6954+CVTUSR   EQU   X'04' -       USR TRACE
000002                             6955+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID
0000ED 000000                      6956+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE
0000F0                             6957+CVTTCMFG DS    0B -          TCAM FLAGS
000080                             6958+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)
0000F0 00000000                    6959+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF
                                   6960+*                            TCAM ADDRESS VECTOR TABLE
                                   6961+*
                                   6962+*              MVT CVT EXTENSION
                                   6963+*
0000F4                             6964+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE
                                   6965+*                            (PWF)                               S21167
0000F4 80                          6966+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY
                                   6967+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  182


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000080                             6968+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167
0000F5 000000                      6969+CVTVOLT2 DC    AL3(0) -  PWF RECHECK TIME DELAY.  THIS VALUE IS
                                   6970+*                            OVERLAID BY CVTVOLM2 AFTER PWF
                                   6971+*                            INITIALIZATION                      S21167
0000F8 00000000                    6972+         DC    A(0) -        RESERVED
                                   6973+*
                                   6974+*              MVT/MFT CVT EXTENSION
                                   6975+*
0000FC 00000114                    6976+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1
                                   6977+*                            (ICB421)                APAR'S 47331,47332
000100                             6978+         DS    F -           RESERVED
000104                             6979+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE
000104                             6980+         DS    X -           RESERVED
000105 000000                      6981+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE
000108                             6982+         DS    F -           RESERVED
00010C                             6983+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307
00010C                             6984+         DS    X -           RESERVED                            ICB307
00010D 000000                      6985+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND
                                   6986+*                            COMMUNICATION AREA                  ICB307
000110                             6987+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308
000110                             6988+         DS    X -           RESERVED                            ICB308
000111 000000                      6989+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY
                                   6990+*                            ROUTINE                             ICB308
                                   6991+*
                                   6992+*              COMMON EXTENSION 1
                                   6993+*              ADDRESS OF EXTENSION IS IN CVTEXT1
                                   6994+*
                                   6995+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,
                                   6996+*              YOU SHOULD CODE -
                                   6997+*
                                   6998+*              L     REG,CVTEXT1
                                   6999+*              USING CVTXTNT1,REG
                                   7000+*
                                   7001+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.
                                   7002+*
000114                             7003+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1
                                   7004+*                            (ICB421)                APAR'S 47331,47332
000114 00000000                    7005+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS
                                   7006+*                            (ISAM) (ICB421)         APAR'S 47331,47332
                                   7007+*
                                   7008+*              END OF CVT PROPER
                                   7009+*
                                   7010+*
                                   7011+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT
                                   7012+*
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  183


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7014+**             TASK CONTROL BLOCK
                                   7015+**             RELEASE 21.7, 11/28/72, LEVEL=5
                                   7016+**
                                   7017+**             TCB PREFIX
                                   7018+**
000000                             7019+TCBFIX   DSECT  ,       TCBPTR-32
                                   7020+**
000000                             7021+TCBFRS   DS    0CL32 - FLOATING POINT REGISTER SAVE AREA
000000                             7022+TCBFRS0  DS    D -     SAVE AREA FOR FLOATING POINT REGISTER 0
000008                             7023+TCBFRS2  DS    D -     SAVE AREA FOR FLOATING POINT REGISTER 2
000010                             7024+TCBFRS4  DS    D -     SAVE AREA FOR FLOATING POINT REGISTER 4
000018                             7025+TCBFRS6  DS    D -     SAVE AREA FOR FLOATING POINT REGISTER 6
                                   7026+**
                                   7027+**             TCB PROPER
                                   7028+**
000000                             7029+TCB      DSECT  ,       TCBPTR
                                   7030+**
000000                             7031+TCBRBP   DS    A -     PTR TO TOP RB ON RB CHAIN
000004                             7032+TCBPIE   DS    A -     ADDR OF PROGRAM INTERRUPT ELEMENT (PIE)
000008                             7033+TCBDEB   DS    A -     ADDR OF THE DEB QUEUE
00000C                             7034+TCBTIO   DS    A -     ADDR OF THE TASK I/O TABLE (TIOT)
000010                             7035+TCBCMP   DS    0BL4 -  TASK COMPLETION CODE
000010                             7036+TCBCMPF  DS    B -     COMPLETION FLAGS
000080                             7037+TCBCREQ  EQU   X'80' - A DUMP HAS BEEN REQUESTED
000040                             7038+TCBCSTEP EQU   X'40' - A STEP ABEND HAS BEEN REQUESTED (MVT)
000020                             7039+TCBCPP   EQU   X'20' - SECOND ABEND LOAD OVERLAID PP STORAGE (PCP/MFT)
                                   7040+*                      FOR FIRST LOAD OVERLAY SEE TCBFLGS
                                   7041+*                      (ICBI # 383)                               35198
000008                             7042+TCBCDBL  EQU   X'08' - A DOUBLE ABEND HAS OCCURRED  (MFT)
000004                             7043+TCBCWTO  EQU   X'04' - DUMP MSG TO BE ISSUED TO OPR  (MFT)
000002                             7044+TCBCIND  EQU   X'02' - SCHEDULER TO PRINT INDICATIVE DUMP  (MFT)
000001                             7045+TCBCMSG  EQU   X'01' - ABEND MSG PROVIDED TO BE PRINTED BY ABDUMP (MFT)
000011                             7046+TCBCMPC  DS    BL3 -   SYSTEM (FIRST 12 BITS) AND USER (SECOND 12)
                                   7047+*                      COMPLETION CODES
000014                             7048+TCBTRN   DS    0A -    ADDR OF CONTROL CORE TABLE
000014                             7049+TCBABF   DS    B -     FLAG BYTE
000080                             7050+TCBMOD91 EQU   X'80' - BOTH TESTRAN AND DECIMAL SIMULATOR ON A MOD 91
000040                             7051+TCBNOCHK EQU   X'40' - SUPPRESS TAKING CHECKPOINTS FOR THIS STEP
                                   7052+*                      (MVT/MFT JOB STEP TCB)
000020                             7053+TCBGRPH  EQU   X'20' - GRAPHICS FOREGROUND JOB OR GRAPHIC JOB PROCESSOR
000008                             7054+TCBTCPP  EQU   X'08' - TCAM POST-PENDING  (RORI)
000004                             7055+TCBTCP   EQU   X'04' - TEST TASK - USED BY TEST SVC
000002                             7056+TCBOLTEP EQU   X'02' - OLTEP FUNCTIONS REQUIRE CLEAN-UP BEFORE ABNORMAL
                                   7057+*                      TERMINATION CAN BE INVOKED
000015                             7058+TCBTRNB  DS    AL3 -   ADDR OF CONTROL CORE TABLE
000018                             7059+TCBMSS   DS    0A -    ADDR OF THE BOUNDARY BOX (PCP/MFT)
                                   7060+*                      ADDR OF LAST SPQE ON MSS QUEUE (MVT)
000018                             7061+TCBNROC  DS    FL1 -   NONROLLOUTABLE COUNT FIELD (MVT ONLY)
                                   7062+*                      ZERO MEANING ROLLOUTABLE
000019                             7063+TCBMSSB  DS    AL3 -   ADDR OF THE BOUNDARY BOX (PCP/MFT)
                                   7064+*                      ADDR OF LAST SPQE ON MSS QUEUE (MVT)
00001C                             7065+TCBPKF   DS    B -     STORAGE PROTECTION KEY
0000F0                             7066+TCBFLAG  EQU   X'F0' - PROTECTION KEY
00000F                             7067+TCBZERO  EQU   X'0F' - ZERO
00001D                             7068+TCBFLGS  DS    0BL5 -  FLAGS
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  184


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00001D                             7069+TCBFLGS1 DS    B -     FIRST TCB FLAG BYTE
000080                             7070+TCBFA    EQU   X'80' - ABNORMAL TERMINATION IN PROGRESS
000040                             7071+TCBFE    EQU   X'40' - NORMAL TERMINATION IN PROGRESS
000020                             7072+TCBFERA  EQU   X'20' - ABEND INITIATED BY RESIDENT ABTERM (PCP/MFT)
                                   7073+*                      ENTER ABEND ERASE ROUTINE
                                   7074+*                      WHEN IN CONTROL AGAIN (MVT)
000010                             7075+TCBGTOFM EQU   X'10' - COMPLETE GTF TRACE SUSPENSION HAS BEEN REQUESTED
                                   7076+*                      DURING PROCESSING OF THIS TASK BY A ROUTINE
                                   7077+*                      SUCH AS DAR, SNAP, ABEND, ABDUMP OR SVCDUMP
                                   7078+*                      (MFT/MVT)                                 ICB264
000008                             7079+TCBPDUMP EQU   X'08' - PREVENT DUMP INDICATOR  (MVT)
000004                             7080+TCBFT    EQU   X'04' - TOP TASK IN TREE BEING ABTERMED (MVT)
                                   7081+*                      DUMP PROCESSING INITIATED IN ABEND (PCP)
000004                             7082+TCBPOOL  EQU   X'04' - ABEND SVRB POOL HAS BEEN ASSIGNED TO THIS TASK
                                   7083+*                      (MFT)  (ICBI # 383)                        35198
000002                             7084+TCBFS    EQU   X'02' - ABTERM DUMP COMPLETED (MVT)
                                   7085+*                      ABEND OVERLAID PROBLEM PROGRAM STORAGE
                                   7086+*                      (MFT) (ICBI # 383)                         35198
000001                             7087+TCBFX    EQU   X'01' - PROHIBIT ASYNCHRONOUS EXIT QUEUEING
                                   7088+*                      (MVT/MFT ONLY)
00001E                             7089+TCBFLGS2 DS    B -     SECOND FLAG BYTE
000080                             7090+TCBFOINP EQU   X'80' - ABEND OPERANDS SAVED IN TCBCMP
                                   7091+*                      (MVT)
                                   7092+*                      ABEND PROHIBITED FOR THIS SYSTEM TASK
                                   7093+*                      (PCP/MFT)
000040                             7094+TCBFSTI  EQU   X'40' - SECOND JOB STEP INTERVAL HAS EXPIRED
                                   7095+*                      (MVT INITIATOR TCB)
000020                             7096+TCBFRA   EQU   X'20' - JOB STEP CAN CAUSE ROLLOUT
                                   7097+*                      (MVT JOBSTEP TCB)
000010                             7098+TCBFSMC  EQU   X'10' - TASK HAS ISSUED SYSTEM MUST COMPLETE AND SET
                                   7099+*                      ALL OTHER TASKS IN THE SYSTEM NONDISPATCHABLE
000008                             7100+TCBFJMC  EQU   X'08' - TASK HAS ISSUED STEP MUST COMPLETE AND TURNED
                                   7101+*                      OFF ALL OTHER TASKS IN THE STEP
000004                             7102+TCBFDSOP EQU   X'04' - SYSABEND OPEN FOR JOBSTEP
                                   7103+*                      (MVT)
                                   7104+*                      DUMP PROCESSING INITIATED IN ABEND (PCP/MFT)
000002                             7105+TCBFETXR EQU   X'02' - ETXR TO BE SCHEDULED
000001                             7106+TCBFTS   EQU   X'01' - MEMBER OF TIME-SLICING GROUP
                                   7107+*                      (MVT/MFT)
00001F                             7108+TCBFLGS3 DS    B -     THIRD FLAG BYTE
000080                             7109+TCBFSM   EQU   X'80' - ALL PSW'S IN SUPERVISOR STATE
                                   7110+*                      (MVT)
000040                             7111+TCBFRI   EQU   X'40' - STEP HAS CAUSED ROLLOUTS THAT ARE STILL IN
                                   7112+*                      EFFECT
                                   7113+*                      (MVT JOBSTEP TCB)
000020                             7114+TCBABTRM EQU   X'20' - ABTERM BIT TO PREVENT MULTIPLE ABENDS
                                   7115+*                      (MVT)
                                   7116+*                      EXIT EFFECTOR--SYSTEM ERROR ROUTINES OPERATING
                                   7117+*                      FOR THIS TASK
                                   7118+*                      (PCP/MFT)
000010                             7119+TCBSXPK0 EQU   X'10' - RB FOR THIS STAE WAS IN KEY ZERO (MVT)      6516
                                   7120+*                      RESERVED (MFT) (ICBI # 343)                 6516
000008                             7121+TCBFLREG EQU   X'08' - FLOATING POINT REGISTERS EXIST
                                   7122+*                      (PCP/MFT)
000004                             7123+TCBSCH   EQU   X'04' - JOB SCHEDULER ROUTINES IN PROCESS
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  185


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7124+*                      (PCP/MFT)
000002                             7125+TCBPKCHG EQU   X'02' - XCTL IS CHANGING PROTECT KEY IN PSW FROM ZERO
                                   7126+*                      TO THAT USED BY PROBLEM PROGRAM
                                   7127+*                      (PCP/MFT)
000001                             7128+TCBTCTRM EQU   X'01' - TCAM TERMINATION INVOKED  (MFT)           ICB267
000001                             7129+TCBDWSTA EQU   X'01' - TASK WAS DISPATCHED WITH STAE=YES OPTION (MVT)
                                   7130+*                                                                ICB314
000020                             7131+TCBFLGS4 DS    B -     NONDISPATCHABILITY FLAGS
                                   7132+*                      (MVT)
000080                             7133+TCBNDUMP EQU   X'80' - ABDUMP NON-DISP. INDICATOR
000040                             7134+TCBSER   EQU   X'40' - SER1 NON-DISP. INDICATOR
000020                             7135+TCBRQENA EQU   X'20' - I/O RQE'S EXHAUSTED
000008                             7136+TCBUXNDV EQU   X'08' - TASK IS TEMPORARILY NON-DISPATCHABLE BECAUSE
                                   7137+*                      SMF TIME LIMIT OR SYSOUT LIMIT USER EXIT
                                   7138+*                      ROUTINE IS BEING EXECUTED FOR THIS STEP
000004                             7139+TCBMPCVQ EQU   X'04' - VARY OR QUIESCE IN MULTIPROCESSING SYSTEM
000002                             7140+TCBMPCND EQU   X'02' - M65 MULTIPROCESSING NON-DISP. INDICATOR FOR ALL
                                   7141+*                      CPU'S
000001                             7142+TCBONDSP EQU   X'01' - CURRENT TASK ABTERMED AND NDSP WHILE DUMP DATA
                                   7143+*                      SET BEING OPENED FOR ANOTHER TASK IN SAME
                                   7144+*                      JOB STEP
000021                             7145+TCBFLGS5 DS    B -     MORE NONDISPATCHABILITY FLAGS
000080                             7146+TCBFC    EQU   X'80' - TASK TERMINATED (MVT)
000040                             7147+TCBABWF  EQU   X'40' - ABNORMAL WAIT (MVT)
000040                             7148+TCBUXNDF EQU   X'40' - TASK IS TEMPORARILY NONDISPATCHABLE BECAUSE
                                   7149+*                      SMF TIME LIMIT OR SYSOUT LIMIT USER EXIT ROUTINE
                                   7150+*                      IS BEING EXECUTED FOR THIS STEP.  BIT IS ONE IN
                                   7151+*                      ALL TCB'S EXCEPT JOB STEP TCB.  (MFT)     ICB263
000020                             7152+TCBWFC   EQU   X'20' - TASK IS WAITING FOR SPACE REQUESTED BY ROLLOUT
                                   7153+*                      (MVT)
000010                             7154+TCBFRO   EQU   X'10' - JOB STEP HAS BEEN ROLLED OUT  (MVT)
000008                             7155+TCBSYS   EQU   X'08' - ANOTHER TASK IS IN SYSTEM MUST COMPLETE STATUS
                                   7156+*                      (MVT)
000004                             7157+TCBSTP   EQU   X'04' - ANOTHER TASK IN JS IS IN STEP MUST COMPLETE
                                   7158+*                      STATUS  (MVT)
000002                             7159+TCBFCD1  EQU   X'02' - INITIATOR WAITING FOR REGION  (MVT)
000001                             7160+TCBPNDSP EQU   X'01' - PRIMARY NONDISPATCHABILITY FLAG
                                   7161+*                      (SECONDARY NDSP FLAG TCBNDSP2 SET)
000022                             7162+TCBLMP   DS    FL1 -   TASK LIMIT PRIORITY
                                   7163+*                      (MVT)
                                   7164+*                      ENQUEUE COUNT
                                   7165+*                      (PCP/MFT)
000023                             7166+TCBDSP   DS    FL1 -   DISPATCHING PRIORITY
000024                             7167+TCBLLS   DS    A -     ADDR OF LAST LLE IN LOAD LIST
                                   7168+*                      (MVT)
                                   7169+*                      ADDR OF LAST RB FOR PROGRAM LOADED VIA LOAD
                                   7170+*                      (PCP/MFT)
000028                             7171+TCBJLB   DS    A -     ADDR OF JOBLIB DCB
00002C                             7172+TCBJPQ   DS    0A -    ADDR OF LAST CDE FOR JPA CONTROL QUEUE
                                   7173+*                      (MVT)
                                   7174+*                      ADDR OF FIRST TCB FOR JOBSTEP
                                   7175+*                      (MFT WITH SUBTASKING)
00002C                             7176+TCBPURGE DS    B -     PURGE FLAGS
                                   7177+*                      (MVT)
000080                             7178+TCBJPQF  EQU   X'80' - JPQ PURGE FLAG
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  186


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00002D                             7179+TCBJPQB  DS    AL3 -   ADDR OF LAST CDE FOR JPA CONTROL QUEUE
                                   7180+*                      (MVT)
                                   7181+*                      ADDR OF FIRST TCB FOR JOBSTEP
                                   7182+*                      (MFT WITH SUBTASKING)
000030                             7183+TCBGRS   DS    0CL64 - GENERAL REGISTER SAVE AREA
000030                             7184+TCBGRS0  DS    F -     SAVE AREA FOR GENERAL REGISTER 0
000034                             7185+TCBGRS1  DS    F -     SAVE AREA FOR GENERAL REGISTER 1
000038                             7186+TCBGRS2  DS    F -     SAVE AREA FOR GENERAL REGISTER 2
00003C                             7187+TCBGRS3  DS    F -     SAVE AREA FOR GENERAL REGISTER 3
000040                             7188+TCBGRS4  DS    F -     SAVE AREA FOR GENERAL REGISTER 4
000044                             7189+TCBGRS5  DS    F -     SAVE AREA FOR GENERAL REGISTER 5
000048                             7190+TCBGRS6  DS    F -     SAVE AREA FOR GENERAL REGISTER 6
00004C                             7191+TCBGRS7  DS    F -     SAVE AREA FOR GENERAL REGISTER 7
000050                             7192+TCBGRS8  DS    F -     SAVE AREA FOR GENERAL REGISTER 8
000054                             7193+TCBGRS9  DS    F -     SAVE AREA FOR GENERAL REGISTER 9
000058                             7194+TCBGRS10 DS    F -     SAVE AREA FOR GENERAL REGISTER 10
00005C                             7195+TCBGRS11 DS    F -     SAVE AREA FOR GENERAL REGISTER 11
000060                             7196+TCBGRS12 DS    F -     SAVE AREA FOR GENERAL REGISTER 12
000064                             7197+TCBGRS13 DS    F -     SAVE AREA FOR GENERAL REGISTER 13
000068                             7198+TCBGRS14 DS    F -     SAVE AREA FOR GENERAL REGISTER 14
00006C                             7199+TCBGRS15 DS    F -     SAVE AREA FOR GENERAL REGISTER 15
000070                             7200+TCBFSA   DS    0A -    ADDR OF FIRST PROBLEM PROGRAM SAVE AREA
000070                             7201+TCBQEL   DS    FL1 -   ENQUEUE COUNT
                                   7202+*                      (MVT)
                                   7203+*                      TCB IDENTIFIER FIELD
                                   7204+*                      (PCP/MFT)
000071                             7205+TCBFSAB  DS    AL3 -   ADDR OF FIRST PROBLEM PROGRAM SAVE AREA
000074                             7206+TCBTCB   DS    A -     ADDR OF NEXT LOWER PRIRTITY TCB ON READY QUEUE
                                   7207+*                      (MVT/MFT)
000078                             7208+TCBTME   DS    A -     ADDRESS OF TIMER QUEUE ELEMENT
00007C                             7209+TCBJSTCB DS    0A -    ADDR OF PARTITION INFORMATION BLOCK
                                   7210+*                      (MFT)
                                   7211+*                      ADDR OF FIRST JOBSTEP TCB (MVT)
                                   7212+*                      OR OF THIS TCB IF KEY ZERO
00007C                             7213+TCBPIBT  DS    B -     PARTITION TYPE  (MFT)
0000C0                             7214+TCBPART  EQU   X'C0' - PARTITION FLAG BITS
                                   7215+*                      (MFT ONLY)
                                   7216+*/       11    TCBPP   PROCESSING PROGRAM PARTITION
                                   7217+*/       10    TCBWTR  WRITER PARTITION
                                   7218+*/       01    TCBRDR  READER PARTITION
                                   7219+*/       00    TCBSYSP SYSTEM TASK PARTITION
000020                             7220+TCBSIZE  EQU   X'20' - LARGE PARTITION (1)--SMALL PARTITION (0)
000010                             7221+TCBSTOP  EQU   X'10' - CPU TIMING STOPPED BY FINCH
                                   7222+*                      UNTIL TRANSIENT LOADED
000002                             7223+TCBWRITE EQU   X'02' - WTR PART (USED BY ABEND)
000001                             7224+TCBSCHED EQU   X'01' - SCHEDULER IN CONTROL - USED BY ABEND -
                                   7225+*                      TURNED OFF WHEN TIOT WRITTEN TO JOB QUEUE
00007D                             7226+TCBJSTCA DS    AL3 -   ADDR OF PARTITION INFORMATION BLOCK
                                   7227+*                      (MFT)
                                   7228+*                      ADDR OF FIRST JOBSTEP TCB (MVT)
                                   7229+*                      OR OF THIS TCB IF KEY ZERO
000080                             7230+TCBNTC   DS    A -     ADDR OF NEXT SISTER TCB (ZERO IF THIS IS LAST
                                   7231+*                      SUBTASK)
                                   7232+*                      (MFT WITH SUBTASKING AND MVT)
000084                             7233+TCBOTC   DS    A -     ADDR OF MOTHER TCB
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  187


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7234+*                      (MFT WITH SUBTASKING AND MVT)
000088                             7235+TCBLTC   DS    A -     ADDR OF LAST DAUGHTER TCB ( ZERO IF THIS IS IT )
                                   7236+*                      (MFT WITH SUBTASKING AND MVT)
00008C                             7237+TCBIQE   DS    A -     ADDR OF IQE FOR EXTR SCHEDULING
                                   7238+*                      (MFT WITH SUBTASKING AND MVT)
000090                             7239+TCBECB   DS    A -     ADDR OF ECB TO BE POSTED UPON TERMINATION
                                   7240+*                      (MFT WITH SUBTASKING AND MVT)
000094                             7241+TCBTSFLG DS    B -     TIME SHARING FLAGS
000080                             7242+TCBTSTSK EQU   X'80' - SWAPPED TS TASK
000040                             7243+TCBSTPPR EQU   X'40' - TASK SHOULD BE MADE NDSP VIA TCBSTPP
                                   7244+*                      WHEN IT IS NO LONGER RUNNING A PRIVILEGED PGM
000020                             7245+TCBATT   EQU   X'20' - TASK SHOULD NOT HAVE ATTENTION EXITS
                                   7246+*                      SCHEDULED ON IT BY EXIT EFFECTOR
000010                             7247+TCBTIOTG EQU   X'10' - PURGE TGET/TPUT AFTER ATTENTION
000002                             7248+TCBDYDSP EQU   X'02' - M195 TASK IS MEMBER OF DYNAMIC DISPATCHING
                                   7249+*                      GROUP                                     ICB262
000001                             7250+TCBCPUBN EQU   X'01' - FOR M195, ZERO MEANS I/O BOUND AND ONE MEANS
                                   7251+*                      CPU BOUND                                 ICB262
000095                             7252+TCBSTPCT DS    FL1 -   NUMBER OF SETTASK STARTS WHICH MUST BE
                                   7253+*                      ISSUED BEFORE TASK IS MADE DISPATCHABLE -
                                   7254+*                      FIELD NOT RESTRICTED TO TSO
000096                             7255+TCBTSLP  DS    FL1 -   LIMIT PRIORITY OF TS TASK
000097                             7256+TCBTSDP  DS    B -     DISPATCHING PRIORITY OF TS TASK
                                   7257+*
                                   7258+*              MVT OVERLAY
                                   7259+*
000098                             7260+TCBPQE   DS    A -     POINTER TO DPQE MINUS 8 FOR THE JOB STEP
                                   7261+*                      (MVT)
                                   7262+*
                                   7263+*              MFT OVERLAY
                                   7264+*
000098                             7265+         ORG   TCBPQE
                                   7266+*
000098                             7267+TCBFTLMP DS    FL1 -   TASK LIMIT PRIORITY (MFT)
000099                             7268+TCBFTFLG DS    0BL3 -  ABEND FLAGS (MFT WITH SUBTASKS)
000099                             7269+TCBFTFL1 DS    B -     ABEND FLAGS (MFT WITH SUBTASKS)
000004                             7270+TCBFTTOP EQU   X'04' - TOP TASK IN TREE BEING ABTERMED
000002                             7271+TCBFTCOM EQU   X'02' - ABTERM DUMP SUCCESSFULLY COMPLETED
000001                             7272+TCBFTSYN EQU   X'01' - ASYNCHRONOUS EXITS MAY NOT BE SCHEDULED
00009A                             7273+TCBFTFL2 DS    B -     ABEND FLAGS (MFT WITH SUBTASKS)
000004                             7274+TCBFTOPN EQU   X'04' - SYSABEND OPEN (JOBSTEP TCB)
000002                             7275+TCBFTETX EQU   X'02' - ETXR EXIT REQUESTED BY ATTACHER
00009B                             7276+TCBFTFL3 DS    B -     ABEND FLAGS (MFT WITH SUBTASKS)
000004                             7277+TCBFTDUM EQU   X'04' - NO ABTERM DUMPS MAY BE PROVIDED IN THIS STEP
                                   7278+*
                                   7279+*              END OF OVERLAYS
                                   7280+*
00009C                             7281+TCBAQE   DS    A -     LIST ORIGIN OF AQE(S) FOR THIS TASK
                                   7282+*                      (MVT)
0000A0                             7283+TCBSTAB  DS    0A -    ADDR OF STAE CONTROL BLOCK
0000A0                             7284+TCBNSTAE DS    B -     STAE FLAGS
000080                             7285+TCBSTABE EQU   X'80' - ABEND ENTERED BECAUSE OF ERROR IN STAE PROC
000040                             7286+TCBQUIES EQU   X'40' - STAE INVOKED PURGE I/O ROUTINE WITH QUIESCE I/O
                                   7287+*                      OPTION
000020                             7288+TCBXCTL  EQU   X'20' - CURRENT SCB HAS XCTL=YES OPTION
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  188


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000010                             7289+TCBSCAT  EQU   X'10' - SCB WAS CREATED BY A PROGRAM THAT IS SCATTER
                                   7290+*                      LOADED
000008                             7291+TCBHALT  EQU   X'08' - PURGE I/O ROUTINE DID NOT SUCCESSFULLY QUIESCE
                                   7292+*                      I/O BUT I/O WAS HALTED
000004                             7293+TCBSUPER EQU   X'04' - PROGRAM USING STAE IS IN SUPERVISOR MODE
000002                             7294+TCBRETRY EQU   X'02' - STAE USER REQUESTED THAT A RETRY ROUTINE BE
                                   7295+*                      SCHEDULED BUT THAT THE RB CHAIN NOT BE PURGED
000001                             7296+TCBVALID EQU   X'01' - RETRY ROUTINE AND PARAMETER LIST ADDRESSES ARE
                                   7297+*                      VALID
0000A1                             7298+TCBSTABB DS    AL3 -   ADDR OF STAE CONTROL BLOCK
0000A4                             7299+TCBTCT   DS    0A -    ADDR OF TCT (MFT WITH SUBTASKING - OTHERWISE 0)
0000A4                             7300+         DS    C -     RESERVED
0000A5                             7301+TCBTCTB  DS    AL3 -   ADDR OF TCT (MFT WITH SUBTASKING - OTHERWISE 0)
0000A8                             7302+TCBUSER  DS    A -     FIELD AVAILABLE TO THE USER
0000AC                             7303+TCBDAR   DS    B - -   DAMAGE ASSESSMENT ROUTINE FLAGS
000080                             7304+TCBDARP  EQU   X'80' - PRIMARY DAR RECURSION - -
                                   7305+*                      DAR FAILURE WHILE WRITING CORE IMAGE
000040                             7306+TCBDARS  EQU   X'40' - SECONDARY DAR RECURSION - -
                                   7307+*                      DAR FAILURE WHILE ATTEMPTING
                                   7308+*                      TO REINSTATE FAILING REGION/PARTITION
000020                             7309+TCBDARD  EQU   X'20' - A DUMP HAS BEEN REQUESTED FOR A WRITER OR
                                   7310+*                      SCHEDULER ABEND AND THE USER HAS PROVIDED NO
                                   7311+*                      SYSABEND DD CARD (MFT)
000010                             7312+TCBDARC  EQU   X'10' - RECURSION PERMITTED IN CLOSE -
                                   7313+*                      AFTER DAR PROCESSING COMPLETED (PCP)
000010                             7314+TCBDARMC EQU   X'10' - DAR HAS BEEN ENTERED TO HANDLE A VALID RECURSION
                                   7315+*                      IN MUST COMPLETE STATUS THROUGH ABEND
                                   7316+*                      (MFT/MVT)                                 ICB264
000008                             7317+TCBDARO  EQU   X'08' - SYSTEM ERROR TASK IS FAILING.  DAR DUMP SHOULD
                                   7318+*                      NOT REQUEST ANY ERP PROCESSING  (MVT)     ICB315
000008                             7319+TCBDAROL EQU   X'08' - PROBLEM PROGRAM STORAGE HAS BEEN OVERLAID TO
                                   7320+*                      PROCESS DAR (MFT)                         ICB315
000004                             7321+TCBDARWT EQU   X'04' - WTO IN PROCESS FOR DAR  (MFT/MVT)         ICB264
000001                             7322+TCBEXSVC EQU   X'01' - SVC DUMP IS EXECUTING FOR THIS TASK
0000AD                             7323+TCBSCNDY DS    0BL3 -  SECONDARY NONDISPATCHABILITY FLAGS -
                                   7324+*                      (IF ANY BIT IN THESE BYTES IS ON,
                                   7325+*                      THEN SO IS THE PRIMARY NDSP FLAG)
0000AD                             7326+TCBNDSP1 DS    B - -   FIRST BYTE
000080                             7327+TCBDARTN EQU   X'80' - TASK TEMPORARILY NONDISPATCHABLE -
                                   7328+*                      (DAR)
000080                             7329+TNONDISP EQU   TCBDARTN * ALIAS *
000040                             7330+TCBDARPN EQU   X'40' - TASK PERMANENTLY NONDISPATCHABLE -
                                   7331+*                      (DAR)
000040                             7332+PNONDISP EQU   TCBDARPN * ALIAS *
000020                             7333+TCBRSTND EQU   X'20' - TASK TEMPORARILY NONDISPATCHABLE -
                                   7334+*                      (RMS/SER)
000010                             7335+TCBRSPND EQU   X'10' - TASK PERMANENTLY NONDISPATCHABLE -
                                   7336+*                      (RMS/SER)
                                   7337+*                      (IF THIS FLAG IS ON THEN THE PREVIOUS
                                   7338+*                      ONE MUST BE TOO)
000008                             7339+TCBDDRND EQU   X'08' - TASK IS IN DEVICE ALLOCATION AND DYNAMIC DEVICE
                                   7340+*                      RECONFIGURATION (DDR) HAS MADE IT
                                   7341+*                      NONDISPATCHABLE
000004                             7342+TCBTPSP  EQU   X'04' - DISPATCHING OF TCAM TASK MUST BE DELAYED
                                   7343+*                      UNTIL TCAM I/O APPENDAGE OR SVC ROUTINE HAS
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  189


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7344+*                      COMPLETED EXECUTION  (TCAM IN
                                   7345+*                      MULTIPROCESSING ENVIRONMENT)
0000AE                             7346+TCBNDSP2 DS    B - -   SECOND BYTE
000080                             7347+TCBABD   EQU   X'80' - SET BY ABDUMP -
                                   7348+*                      (MFT WITH SUBTASKING)
000040                             7349+TCBSTPP  EQU   X'40' - TASK NDSP BECAUSE STOPPED BY SETTASK
000020                             7350+TCBNDSVC EQU   X'20' - TASK NDSP BECAUSE SVC DUMP IS EXECUTING FOR
                                   7351+*                      ANOTHER TASK
000010                             7352+TCBNDTS  EQU   X'10' - TASK NDSP BECAUSE BEING SWAPPED OUT
000008                             7353+TCBIWAIT EQU   X'08' - TASK NDSP DUE TO INPUT WAIT
000004                             7354+TCBOWAIT EQU   X'04' - TASK NDSP DUE TO OUTPUT WAIT
000001                             7355+TCBABE   EQU   X'01' - ABEND ENTERED FOR THIS TASK -
                                   7356+*                      WHILE SYSABEND DCB OPEN FOR ANOTHER TASK
                                   7357+*                      (MFT WITH SUBTASKING)
0000AF                             7358+TCBNDSP3 DS    B - -   THIRD BYTE
000080                             7359+TCBTERM  EQU   X'80' - TERMINATED -
                                   7360+*                      (MFT WITH SUBTASKING)
000040                             7361+TCBABTER EQU   X'40' - TO BE TERMINATED BY ABEND -
                                   7362+*                      (MFT WITH SUBTASKING)
0000B0                             7363+TCBMDIDS DS    F - -   RESERVED FOR MODEL-DEPENDENT SUPPORT AND FOR
                                   7364+*                      IBM PROPRIETARY PROGRAMMING SUPPORT       ICBXXX
0000B4                             7365+TCBJSCB  DS    0A - -  ADDR OF JOB STEP CONTROL BLOCK
0000B4                             7366+TCBRECDE DS    B -     ABEND RECURSION BYTE                      ICB264
000080                             7367+TCBREC   EQU   X'80' - VALID REENTRY TO ABEND INDICATED IF NON-ZERO
                                   7368+*                      VALUE IN FOLLOWING 7 BITS                 ICB264
0000B5                             7369+TCBJSCBB DS    AL3 -   ADDR OF JOB STEP CONTROL BLOCK
0000B8                             7370+TCBRV001 DS    A -     RESERVED                                 SA58677
0000BC                             7371+TCBIOBRC DS    A -     POINTER TO THE IOB RESTORE CHAIN FOR I/O
                                   7372+*                      QUEUED BY EOT                            SA58677
                                   7373+*
                                   7374+*                      END OF TCB
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  190


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             7376+IECDSCB1 DSECT  FORMAT 1 DSCB DSECT.
000000                             7377+IECSDSL1 EQU   * FORMAT 1 DSCB
000000                             7378+IECSDSF1 EQU   IECSDSL1
000000                             7379+DS1DSNAM DS    CL44 DATA SET NAME
00002C                             7380+DS1FMTID DS    CL1 FORMAT IDENTIFIER
00002D                             7381+DS1DSSN  DS    CL6 DATA SET SERIAL NUMBER
000033                             7382+DS1VOLSQ DS    XL2 VOLUME SEQUENCE NUMBER
000035                             7383+DS1CREDT DS    XL3 CREATION DATE
000038                             7384+DS1EXPDT DS    XL3 EXPIRATION DATE
00003B                             7385+DS1NOEPV DS    XL1 NUMBER OF EXTENTS ON VOLUME
00003C                             7386+DS1NOBDB DS    XL1 NUMBER OF BYTES USED IN LAST
                                   7387+*                                     DIRECTORY BLOCK
00003D                             7388+         DS    XL1 RESERVED
00003E                             7389+DS1SYSCD DS    CL13 SYSTEM CODE
00004B                             7390+         DS    XL7 RESERVED
000052                             7391+DS1DSORG DS    XL2 DATA SET ORGANIZATION
000054                             7392+DS1RECFM DS    XL1 RECORD FORMAT
000055                             7393+DS1OPTCD DS    XL1 OPTION CODE
000056                             7394+DS1BLKL  DS    XL2 BLOCK LENGTH
000058                             7395+DS1LRECL DS    XL2 RECORD LENGTH
00005A                             7396+DS1KEYL  DS    XL1 KEY LENGTH
00005B                             7397+DS1RKP   DS    XL2 RELATIVE KEY POSITION
00005D                             7398+DS1DSIND DS    XL1 DATA SET INDICATORS
00005E                             7399+DS1SCALO DS    XL4 SECONDARY ALLOCATION
000062                             7400+DS1LSTAR DS    XL3 LAST USED TRACK AND BLOCK ON TRACK
000065                             7401+DS1TRBAL DS    XL2 BYTES REMAINING ON LAST TRACK USED
000067                             7402+         DS    XL2 RESERVED
000069                             7403+DS1EXT1  DS    XL10 FIRST EXTENT DESCRIPTION
                                   7404+*        FIRST BYTE                EXTENT TYPE INDICATOR
                                   7405+*        SECOND BYTE               EXTENT SEQUENCE NUMBER
                                   7406+*        THIRD - SIXTH BYTES       LOWER LIMIT
                                   7407+*        SEVENTH - TENTH BYTES     UPPER LIMIT
000073                             7408+DS1EXT2  DS    XL10 SECOND EXTENT DESCRIPTION
00007D                             7409+DS1EXT3  DS    XL10 THIRD EXTENT DESCRIPTION
000087                             7410+DS1PTRDS DS    XL5 POSSIBLE PTR TO A FORMAT 2 OR 3 DSCB
00008C                             7411+DS1END   EQU   *
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  191


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7413+***********************************************************************
                                   7414+*    THE COMMAND PROCESSOR PARAMETER LIST (CPPL) IS A LIST OF         *
                                   7415+*    ADDRESSES PASSED FROM THE TMP TO THE CP VIA REGISTER 1           *
                                   7416+***********************************************************************
000000                             7417+CPPL     DSECT
000000                             7418+CPPLCBUF DS    A PTR TO COMMAND BUFFER
000004                             7419+CPPLUPT  DS    A PTR TO UPT
000008                             7420+CPPLPSCB DS    A PTR TO PSCB
00000C                             7421+CPPLECT  DS    A PTR TO ECT
                                   7422+**/
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  192


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             7424+ECT      DSECT
                                   7425+***********************************************************************
                                   7426+*    THE ENVIRONMENT CONTROL TABLE (ECT) IS BUILT BY THE TMP AND      *
                                   7427+*    STORED IN A NON-SHARED SUBPOOL. ITS FIELDS CAN BE MODIFIED       *
                                   7428+*    BY A CP OR SERVICE RTN BUT NOT FREED.                            *
                                   7429+***********************************************************************

000000                             7431+ECTRCDF  DS    X HIGH ORDER BIT INDICATES CP ABENDED
000001                             7432+ECTRTCD  DS    CL3 RETURN CODE FROM LAST CP-(ABEND CODE IF ECTRCDF
                                   7433+*                                                 IS  SET )
000004                             7434+ECTIOWA  DS    A ADDR OF I/O SERVICE ROUTINES WORK AREA
000008                             7435+ECTMSGF  DS    X HIGH ORDER BIT SET MEANS DELETE SECOND LEVEL
                                   7436+*                       MSG
000009                             7437+ECTSMSG  DS    AL3 ADDR OF SECOND LEVEL MSG CHAIN
00000C                             7438+ECTPCMD  DS    CL8 PRIMARY COMMAND NAME
000014                             7439+ECTSCMD  DS    CL8 SUBCOMMAND NAME
00001C                             7440+ECTSWS   DS    X 4 BYTES OF SWITCHES
000080                             7441+ECTNOPD  EQU   X'80' 0 BIT ON= NO OPERANDS EXIST IN CMD BUFFER
000020                             7442+ECTATRM  EQU   X'20' CP TERMINATED BY TMP DETACH W/ STAE
                                   7443+*        EQU   X'40'    RESERVED
000010                             7444+ECTLOGF  EQU   X'10' LOGON/OFF REQUESTED TMP TO LOGOFF USER
000008                             7445+ECTNMAL  EQU   X'08' NO USER MSGS TO RECVED AT LOGON
000004                             7446+ECTNNOT  EQU   X'04' NO BRDCST NOTICES TO BE RECVED AT LOGON
00001D                             7447+ECTDDNUM DS    AL3 COUNTER FOR GENERATING TEMP DDNAMES
000020                             7448+ECTUSER  DS    A WORD RESERVED FOR INSTALLATION  USE
000024                             7449+         DS    A RESERVED
                                   7450+**/
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  193


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             7452+PPL      DSECT
                                   7453+***********************************************************************
                                   7454+*    THE PARSE PARAMETER LIST (PPL) IS A LIST OF ADDRESSES PASSED     *
                                   7455+*    FROM THE INVOKER TO PARSE VIA REGISTER 1                         *
                                   7456+***********************************************************************

000000                             7458+PPLUPT   DS    A PTR TO UPT
000004                             7459+PPLECT   DS    A PTR TO ECT
000008                             7460+PPLECB   DS    A PTR TO CP'S ECB
00000C                             7461+PPLPCL   DS    A PTR TO PCL
000010                             7462+PPLANS   DS    A PTR TO ANS PLACE
000014                             7463+PPLCBUF  DS    A PTR TO CMD BUFFER
000018                             7464+PPLUWA   DS    A PTR TO USER WORK AREA (FOR VALIDITY CK RTNS)
                                   7465+**/
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  194


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78



                                   7468+*                       DCB SYMBOLIC DEFINITION FOR
                                   7469+*                       BSAM-BPAM

                                   7471+***********************************************************************
                                   7472+*  OS     RELEASE 21.8, 03/22/74                                      *
                                   7473+*  OS/VS1 RELEASE 03.1, 03/22/74                                      *
                                   7474+***********************************************************************

000000                             7476+IHADCB   DSECT  , -            DCBPTR

000080                             7478+DCBBIT0  EQU   128
000040                             7479+DCBBIT1  EQU   64
000020                             7480+DCBBIT2  EQU   32
000010                             7481+DCBBIT3  EQU   16
000008                             7482+DCBBIT4  EQU   8
000004                             7483+DCBBIT5  EQU   4
000002                             7484+DCBBIT6  EQU   2
000001                             7485+DCBBIT7  EQU   1

                                   7487+*                       DEVICE INTERFACES

                                   7489+*                       DIRECT ACCESS DEVICES

000000                             7491+DCBRELAD DS    CL4 -          PARTITIONED ORGANIZATION DATA SET -
                                   7492+*                             ADDRESS (IN THE FORM TTRN) OF MEMBER
                                   7493+*                             CURRENTLY USED.  ---
                                   7494+*                             SYS1.LOGREC DATA SET - IF CCH OPTION HAS
                                   7495+*                             BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS
                                   7496+*                             OF A 12-BYTE PARAMETER IN THE EXPANSION
                                   7497+*                             OF MACRO INSTRUCTION IGFCATAP
000004                             7498+DCBKEYCN DS    FL1 -          KEYED BLOCK OVERHEAD CONSTANT
000005                             7499+DCBFDAD  DS    CL8 -          FULL DISK ADDRESS IN THE FORM OF MBBCCHHR
                                   7500+*                             OF RECORD THAT WAS JUST READ OR WRITTEN

00000C                             7502+         ORG   DCBFDAD+7
00000C                             7503+DCBDVTBL DS    0A -           SAME AS DCBDVTBA BELOW
00000C                             7504+         DS    X -            LAST BYTE OF DCBFDAD
00000D                             7505+DCBDVTBA DS    AL3 -          ADDRESS OF ENTRY IN I/O DEVICE
                                   7506+*                             CHARACTERISTICS TABLE FOR DEVICE BEING
                                   7507+*                             USED
000010                             7508+         DS    FL1 -          DCBKEYLE - KEY LENGTH OF DATA SET
000011                             7509+         DS    C -            DCBDEVT - DEVICE TYPE
                                   7510+*   FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION
000021                             7511+DCBDV311 EQU   X'21' -        2311 DISK DRIVE
000022                             7512+DCBDV301 EQU   X'22' -        2301 PARALLEL DRUM
000023                             7513+DCBDV303 EQU   X'23' -        2303 SERIAL DRUM
000024                             7514+DCBDV302 EQU   X'24' -        2302 DISK STORAGE
000025                             7515+DCBDV321 EQU   X'25' -        2321 DATA CELL DRIVE
000028                             7516+DCBDV314 EQU   X'28' -        2314 DISK STORAGE FACILITY
000012                             7517+DCBTRBAL DS    H -            TRACK BALANCE.  NUMBER OF BYTES REMAINING
                                   7518+*                             ON CURRENT TRACK AFTER A WRITE OPERATION
                                   7519+*                             (THIS QUANTITY MAY BE NEGATIVE IF THERE
                                   7520+*                             ARE NO BYTES REMAINING ON TRACK).
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  195


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7522+*                       ACCESS METHOD COMMON INTERFACE

000010                             7524+         ORG   IHADCB+16
000010                             7525+DCBRELB  DS    0F -           SAME AS DCBREL BELOW
000010                             7526+DCBKEYLE DS    FL1 -          KEY LENGTH OF DATA SET
000011                             7527+DCBDEVT  DS    0C -           DEVICE TYPE
00004F                             7528+DCBDVTRM EQU   X'4F' -        TERMINAL.  (DD CONTAINS TERM=TS)
000011                             7529+DCBREL   DS    FL3 -          NUMBER OF RELATIVE TRACKS OR BLOCKS IN
                                   7530+*                             THIS DATA SET (BDAM)
000014                             7531+DCBBUFCB DS    0A -           ADDRESS OF BUFFER POOL CONTROL BLOCK
000014                             7532+DCBBUFNO DS    FL1 -          NUMBER OF BUFFERS REQUIRED FOR THIS DATA
                                   7533+*                             SET.  MAY RANGE FROM 0 TO 255.  IF
                                   7534+*                             UNBLOCKED SPANNED RECORDS ARE USED,
                                   7535+*                             NUMBER OF SEGMENT WORK AREAS REQUIRED
                                   7536+*                             FOR THIS DATA SET.
000015                             7537+DCBBUFCA DS    AL3 -          ADDRESS OF BUFFER POOL CONTROL BLOCK
000018                             7538+DCBBUFL  DS    H -            LENGTH OF BUFFER.  MAY RANGE FROM 0 TO
                                   7539+*                             32,767.
00001A                             7540+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED
00001A                             7541+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG
000080                             7542+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION
000040                             7543+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION
000020                             7544+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION
000010                             7545+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP
000008                             7546+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE
000004                             7547+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE
000002                             7548+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION
000001                             7549+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS
                                   7550+*                                  LOCATION DEPENDENT INFORMATION
00001B                             7551+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG
000080                             7552+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION
000040                             7553+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP
000020                             7554+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE
000008                             7555+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1
000004                             7556+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024
00001C                             7557+DCBIOBAD DS    0A -           ADDRESS OF IOB WHEN CHAINED SCHEDULING IS
                                   7558+*                             USED OR FOR 1419/1275
00001C                             7559+DCBODEB  DS    0A -           ADDRESS OF OLD DEB
00001C                             7560+DCBLNP   DS    0FL1 -         3525 PRINTER LINE POSITION COUNTER
00001C                             7561+DCBQSLM  DS    BL1 -          QSAM LOCATE MODE LOGICAL RECORD INTERFACE
                                   7562+*                             INDICATOR BYTE FOR UPDAT PROCESSING OF
                                   7563+*                             SPANNED RECORDS
000080                             7564+DCB1DVDS EQU   DCBBIT0 -      ONLY ONE DEVICE IS ALLOCATED TO THIS
                                   7565+*                             DATA SET
000040                             7566+DCBUPDCM EQU   DCBBIT1 -      UPDATE COMPLETE, FREE OLD DEB
000030                             7567+DCBUPDBT EQU   DCBBIT2+DCBBIT3 -
                                   7568+*                             UPDATE BITS
000020                             7569+DCBUPDT  EQU   DCBBIT2 -      UPDATE TO TAKE PLACE
000030                             7570+DCBNUPD  EQU   DCBBIT2+DCBBIT3 -
                                   7571+*                             NO UPDATE TO TAKE PLACE
000010                             7572+DCBSVDEB EQU   DCBBIT3 -      OLD DEB ADDRESS MUST BE SAVED
00001D                             7573+DCBIOBAA DS    0AL3 -         SAME AS DCBIOBAD ABOVE
00001D                             7574+DCBODEBA DS    AL3 -          ADDRESS OF OLD DEB
00001C                             7575+         ORG   IHADCB+28 ICBI DCB-4
00001C                             7576+DCBSVCXL DS    0A -           SAME AS DCBSVCXA BELOW         ICBI DCB-4
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  196


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00001C                             7577+         DS    X -            RESERVED                       ICBI DCB-4
00001D                             7578+DCBSVCXA DS    AL3 -          POINTER TO EXIT LIST OF JES    ICBI DCB-4
                                   7579+*                             C.I. INTERFACE CONTROL SVC     ICBI DCB-4

                                   7581+*                       FOUNDATION EXTENSION

000020                             7583+DCBEODAD DS    0A -           SAME AS DCBEODA BELOW
000020                             7584+DCBHIARC DS    0BL1 -         HIERARCHY BITS
000020                             7585+DCBBFTEK DS    0BL1 -         BUFFERING TECHNIQUE BITS
000020                             7586+DCBBFALN DS    BL1 -          BUFFER ALIGNMENT BITS
000080                             7587+DCBH1    EQU   DCBBIT0 -      HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO
000070                             7588+DCBBFT   EQU   DCBBIT1+DCBBIT2+DCBBIT3
                                   7589+*                             BUFFERING TECHNIQUE
000060                             7590+DCBBFTA  EQU   DCBBIT1+DCBBIT2 -
                                   7591+*                             QSAM LOCATE MODE PROCESSING OF SPANNED
                                   7592+*                             RECORDS - OPEN IS TO CONSTRUCT A RECORD
                                   7593+*                             AREA IF IT AUTOMATICALLY CONSTRUCTS
                                   7594+*                             BUFFERS
000020                             7595+DCBBFTR  EQU   DCBBIT2 -      FOR BSAM CREATE BDAM PROCESSING OF
                                   7596+*                             UNBLOCKED SPANNED RECORDS - SOFTWARE
                                   7597+*                             TRACK OVERFLOW.  FOR BSAM INPUT
                                   7598+*                             PROCESSING OF UNBLOCKED SPANNED RECORDS
                                   7599+*                             WITH KEYS - RECORD OFFSET PROCESSING.
000040                             7600+DCBBFTS  EQU   DCBBIT1 -      SIMPLE BUFFERING - BIT 3 IS ZERO
000020                             7601+DCBBFTKR EQU   DCBBIT2 -      UNBLOCKED SPANNED RECORDS - SOFTWARE
                                   7602+*                             TRACK OVERFLOW (BDAM)
000010                             7603+DCBBFTE  EQU   DCBBIT3 -      EXCHANGE BUFFERING - BIT 1 IS ZERO
000008                             7604+DCBBFTKD EQU   DCBBIT4 -      DYNAMIC BUFFERING (BTAM)
000004                             7605+DCBH0    EQU   DCBBIT5 -      HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO
000003                             7606+DCBBFA   EQU   DCBBIT6+DCBBIT7 -
                                   7607+*                             BUFFER ALIGNMENT
000002                             7608+DCBBFAD  EQU   DCBBIT6 -      DOUBLEWORD BOUNDARY
000001                             7609+DCBBFAF1 EQU   DCBBIT7 -      FULLWORD NOT A DOUBLEWORD BOUNDARY,
                                   7610+*                             CODED IN DCB MACRO INSTRUCTION
000003                             7611+DCBBFAF2 EQU   DCBBIT6+DCBBIT7 -
                                   7612+*                             FULLWORD NOT A DOUBLEWORD BOUNDARY,
                                   7613+*                             CODED IN DCB MACRO INSTRUCTION
000021                             7614+DCBEODA  DS    AL3 -          ADDRESS OF A USER-PROVIDED ROUTINE TO
                                   7615+*                             HANDLE END-OF-DATA CONDITIONS
000024                             7616+DCBEXLST DS    0A -           ADDRESS OF USER-PROVIDED LIST OF EXITS
000024                             7617+DCBRECFM DS    BL1 -          RECORD FORMAT
0000E0                             7618+DCBRECLA EQU   DCBBIT0+DCBBIT1+DCBBIT2 -
                                   7619+*                             RECORD LENGTH INDICATOR - ASCII
000020                             7620+DCBRECD  EQU   DCBBIT2 -      ASCII VARIABLE RECORD LENGTH
0000C0                             7621+DCBRECL  EQU   DCBBIT0+DCBBIT1 -
                                   7622+*                             RECORD LENGTH INDICATOR
000080                             7623+DCBRECF  EQU   DCBBIT0 -      FIXED RECORD LENGTH
000040                             7624+DCBRECV  EQU   DCBBIT1 -      VARIABLE RECORD LENGTH
0000C0                             7625+DCBRECU  EQU   DCBBIT0+DCBBIT1 -
                                   7626+*                             UNDEFINED RECORD LENGTH
000020                             7627+DCBRECTO EQU   DCBBIT2 -      TRACK OVERFLOW
000010                             7628+DCBRECBR EQU   DCBBIT3 -      BLOCKED RECORDS
000008                             7629+DCBRECSB EQU   DCBBIT4 -      FOR FIXED LENGTH RECORD FORMAT - STANDARD
                                   7630+*                             BLOCKS.  FOR VARIABLE LENGTH RECORD
                                   7631+*                             FORMAT - SPANNED RECORDS
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  197


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000006                             7632+DCBRECCC EQU   DCBBIT5+DCBBIT6 -
                                   7633+*                             CONTROL CHARACTER INDICATOR
000004                             7634+DCBRECCA EQU   DCBBIT5 -      ASA CONTROL CHARACTER
000002                             7635+DCBRECCM EQU   DCBBIT6 -      MACHINE CONTROL CHARACTER
000000                             7636+DCBRECC  EQU   X'00' -        NO CONTROL CHARACTER
000001                             7637+DCBRECKL EQU   DCBBIT7 -      KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB
                                   7638+*                             MACRO INSTRUCTION
000025                             7639+DCBEXLSA DS    AL3 -          ADDRESS OF USER-PROVIDED LIST OF EXITS


                                   7642+*                       FOUNDATION BEFORE OPEN

000028                             7644+         ORG   IHADCB+40
000028                             7645+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES
                                   7646+*                             THE DATA SET ASSOCIATED WITH THIS DCB
000030                             7647+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE
000080                             7648+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR
                                   7649+*                             POINT.  IF ONE, LAST I/O OPERATION WAS
                                   7650+*                             WRITE.
000080                             7651+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR
                                   7652+*                             OUTPUT (BDAM)
000040                             7653+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD
                                   7654+*                             MODE
000020                             7655+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE
                                   7656+*                             ROUTINE FOR CONCATENATION OF DATA SETS
                                   7657+*                             WITH UNLIKE ATTRIBUTES
000010                             7658+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED
000008                             7659+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A
                                   7660+*                             CONCATENATION OF UNLIKE ATTRIBUTES
000004                             7661+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ
000002                             7662+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN
                                   7663+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1
                                   7664+*                             ON RETURN FROM USER EXIT TO THE I/O
                                   7665+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.
000001                             7666+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF
                                   7667+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION
000031                             7668+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR
                                   7669+*                             CONDITIONS AND IN DETERMINING CORRECTIVE
                                   7670+*                             PROCEDURES
0000C0                             7671+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -
                                   7672+*                             ERROR CORRECTION INDICATOR
000000                             7673+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE
000040                             7674+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN
                                   7675+*                             PROCESS
0000C0                             7676+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -
                                   7677+*                             PERMANENT ERROR CORRECTION
000030                             7678+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -
                                   7679+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR
000020                             7680+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH
                                   7681+*                             SENSED
000010                             7682+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH
                                   7683+*                             SENSED
00000C                             7684+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -
                                   7685+*                             IOS ERROR ROUTINE USE INDICATOR
000000                             7686+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  198


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000004                             7687+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE
000004                             7688+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE
                                   7689+*                             (BTAM)
000008                             7690+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE
00000C                             7691+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -
                                   7692+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE
000032                             7693+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE
000032                             7694+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR
000080                             7695+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---
                                   7696+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,
                                   7697+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)
000040                             7698+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)
000040                             7699+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)
000040                             7700+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---
                                   7701+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) ---
                                   7702+*                             RESERVED (BTAM)
000020                             7703+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)
000020                             7704+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)
000020                             7705+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---
                                   7706+*                             ALWAYS ZERO (QSAM, QISAM)
000010                             7707+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)
000010                             7708+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)
000010                             7709+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---
                                   7710+*                             ALWAYS ZERO (BISAM) ---
                                   7711+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)
000008                             7712+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)
000008                             7713+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---
                                   7714+*                             ALWAYS ZERO (BISAM) ---
                                   7715+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)
000004                             7716+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK
                                   7717+*                             COUNT (EXCP)
000004                             7718+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)
000004                             7719+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)
000004                             7720+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---
                                   7721+*                             ALWAYS ZERO (QISAM) ---
                                   7722+*                             RESERVED (QTAM, BTAM)
000002                             7723+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)
000002                             7724+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)
000002                             7725+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)
000002                             7726+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---
                                   7727+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)
000001                             7728+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)
000001                             7729+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,
                                   7730+*                             BPAM, BISAM, QISAM, QTAM, BTAM)
000033                             7731+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR
000080                             7732+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM,
                                   7733+*                             BPAM, BISAM, BDAM) ---
                                   7734+*                             RESERVED (EXCP, QTAM, BTAM)
000040                             7735+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)
000040                             7736+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---
                                   7737+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) ---
                                   7738+*                             RESERVED (EXCP, BTAM)
000020                             7739+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)
000020                             7740+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---
                                   7741+*                             ALWAYS ZERO (QSAM, QISAM) ---
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  199


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7742+*                             RESERVED (EXCP)
000010                             7743+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)
000010                             7744+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---
                                   7745+*                             ALWAYS ZERO (BISAM) ---
                                   7746+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)
000008                             7747+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)
000008                             7748+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)
                                   7749+*                             (BSAM)
000008                             7750+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)
000008                             7751+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---
                                   7752+*                             ALWAYS ZERO (BISAM) ---
                                   7753+*                             RESERVED (BPAM, QTAM, BTAM)
000004                             7754+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)
000004                             7755+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)
000004                             7756+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)
000004                             7757+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---
                                   7758+*                             ALWAYS ZERO (BISAM) ---
                                   7759+*                             RESERVED (BDAM, QTAM, BTAM)
000002                             7760+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)
000002                             7761+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)
000002                             7762+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)
000002                             7763+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---
                                   7764+*                             ALWAYS ZERO (BISAM) ---
                                   7765+*                             RESERVED (BPAM, QTAM, BTAM)
000001                             7766+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)
000001                             7767+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT
                                   7768+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)
000001                             7769+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)
000001                             7770+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---
                                   7771+*                             ALWAYS ZERO (BISAM) ---
                                   7772+*                             RESERVED (BPAM, QTAM, BTAM)

                                   7774+*                       FOUNDATION AFTER OPEN

000028                             7776+         ORG   IHADCB+40
000028                             7777+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD
                                   7778+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED
                                   7779+*                             WITH THIS DCB
00002A                             7780+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN
00002A                             7781+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF
00002B                             7782+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF
00002C                             7783+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB
00002C                             7784+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN
0000C0                             7785+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -
                                   7786+*                             ERROR CORRECTION INDICATOR
000030                             7787+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -
                                   7788+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR
00000C                             7789+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -
                                   7790+*                             IOS ERROR ROUTINE USE INDICATOR
00002D                             7791+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB

000030                             7793+         ORG   IHADCB+48
000030                             7794+DCBREAD  DS    0A -           ADDRESS OF READ MODULE
000030                             7795+DCBWRITE DS    A -            ADDRESS OF WRITE MODULE
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  200


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   7797+*                       QSAM-BSAM-BPAM COMMON INTERFACE

000034                             7799+         ORG   IHADCB+52
000034                             7800+DCBGERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR GET
000034                             7801+DCBPERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT
000034                             7802+DCBCHECK DS    0A -           ADDRESS OF CHECK MODULE
000034                             7803+DCBOPTCD DS    BL1 -          OPTION CODES
000080                             7804+DCBOPTW  EQU   DCBBIT0 -      WRITE VALIDITY CHECK (DASD)
                                   7805+*                             (BSAM, BPAM, QSAM, ISAM, BDAM)
000040                             7806+DCBOPTU  EQU   DCBBIT1 -      ALLOW DATA CHECK CAUSED BY INVALID
                                   7807+*                             CHARACTER (1403 PRINTER WITH UCS FEATURE)
                                   7808+*                             (BSAM, BPAM, QSAM)
000020                             7809+DCBOPTC  EQU   DCBBIT2 -      CHAINED SCHEDULING USING PCI
                                   7810+*                             (BSAM, BPAM, QSAM)
000010                             7811+DCBOPTH  EQU   DCBBIT3 -      1287/1288 OPTICAL READER - HOPPER EMPTY
                                   7812+*                             EXIT (BSAM, BPAM)
000010                             7813+DCBOPTO  EQU   DCBBIT3 -      1285/1287 OPTICAL READER - ON-LINE
                                   7814+*                             CORRECTION (QSAM)
000010                             7815+DCBBCKPT EQU   DCBBIT3 -      CHANNEL-END APPENDAGE IS TO BYPASS DOS
                                   7816+*                             EMBEDDED CHECKPOINT RECORDS ON TAPE
                                   7817+*                             (BSAM, QSAM)                       ICB226
000008                             7818+DCBOPTQ  EQU   DCBBIT4 -      TRANSLATION TO OR FROM ASCII
                                   7819+*                             (BSAM, BPAM, QSAM)
000004                             7820+DCBOPTZ  EQU   DCBBIT5 -      MAGNETIC TAPE DEVICES - USE REDUCED ERROR
                                   7821+*                             RECOVERY PROCEDURE (EXCP, BSAM, BPAM,
                                   7822+*                             QSAM)
000004                             7823+DCBSRCHD EQU   DCBBIT5 -      USE SEARCH DIRECT, INSTEAD OF SEARCH
                                   7824+*                             PREVIOUS, ON RECORD POSITION SENSING
                                   7825+*                             DEVICE  (EXCP, BSAM, BPAM, QSAM)   ICB217
000002                             7826+DCBOPTT  EQU   DCBBIT6 -      USER TOTALING (BSAM, QSAM)
000035                             7827+DCBGERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR GET
000035                             7828+DCBPERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT
000035                             7829+DCBCHCKA DS    AL3 -          ADDRESS OF CHECK MODULE
000038                             7830+DCBSYNAD DS    0A -           ADDRESS OF USER-PROVIDED SYNAD ROUTINE
000038                             7831+DCBIOBL  DS    FL1 -          IOB LENGTH IN DOUBLE WORDS
000039                             7832+DCBSYNA  DS    AL3 -          ADDRESS OF USER-PROVIDED SYNAD ROUTINE
00003C                             7833+DCBFLAG1 DS    0BL1 TCAM APPLICATION PROGRAM FLAGS ICBI DCB-3
                                   7834+*                             (BSAM, BPAM, QSAM)
00003C                             7835+DCBCIND1 DS    BL1 -          CONDITION INDICATORS
000080                             7836+DCBCNTOV EQU   DCBBIT0 -      DIRECT ACCESS - TRACK OVERFLOW IN USE
                                   7837+*                             (BSAM, BPAM, QSAM)
                                   7838+*                             2540 CARD PUNCH - DATA SET WAS OPENED BUT
                                   7839+*                             NO DATA WAS WRITTEN (QSAM)
000080                             7840+DCBSTQCK EQU   DCBBIT0 -      STOP EQUAL QUICK WAS SPECIFIED FOR
                                   7841+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3
000040                             7842+DCBSTFLS EQU   DCBBIT1 -      STOP EQUAL FLUSH WAS SPECIFIED FOR
                                   7843+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3
000040                             7844+DCBCNSRD EQU   DCBBIT1 -      SEARCH DIRECT (BSAM, BPAM, QSAM)
000020                             7845+DCBCNEVB EQU   DCBBIT2 -      END OF VOLUME - USED BY EOB ROUTINES
                                   7846+*                             (BSAM, BPAM, QSAM)
000010                             7847+DCBCNEVA EQU   DCBBIT3 -      END OF VOLUME - USED BY CHANNEL-END
                                   7848+*                             APPENDAGE ROUTINES (BSAM, BPAM, QSAM)
000004                             7849+DCBCNBRM EQU   DCBBIT5 -      BLOCKED RECORD BIT MODIFIED (BSAM,BPAM,
                                   7850+*                             QSAM)                          ICBI DCB-2
000001                             7851+DCBCNEXB EQU   DCBBIT7 -      EXCHANGE BUFFERING SUPPORTED (QSAM)
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  201


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00003D                             7852+DCBCIND2 DS    BL1 -          CONDITION INDICATORS
000080                             7853+DCBCNSTO EQU   DCBBIT0 -      PARTITIONED DATA SET - STOW HAS BEEN
                                   7854+*                             PERFORMED (BSAM, BPAM, QSAM)
                                   7855+*                             SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM)
000040                             7856+DCBCNWR0 EQU   DCBBIT1 -      DIRECT ORGANIZATION DATA SET - LAST I/O
                                   7857+*                             WAS A WRITE RECORD ZERO
                                   7858+*                             (BSAM, BPAM, QSAM)
                                   7859+*                             SEQUENTIAL DATA SET - UPDATE EOF IS
                                   7860+*                             INDICATED (BSAM, BPAM)
000020                             7861+DCBCNCLO EQU   DCBBIT2 -      CLOSE IN PROCESS (QSAM)
000010                             7862+DCBCNIOE EQU   DCBBIT3 -      PERMANENT I/O ERROR (BSAM, BPAM, QSAM)
000008                             7863+DCBCNBFP EQU   DCBBIT4 -      OPEN ACQUIRED BUFFER POOL
                                   7864+*                             (BSAM, BPAM, QSAM)
000004                             7865+DCBCNCHS EQU   DCBBIT5 -      CHAINED SCHEDULING BEING SUPPORTED
                                   7866+*                             (BSAM, BPAM, QSAM)
000002                             7867+DCBCNFEO EQU   DCBBIT6 -      FEOV BIT (BSAM, BPAM, QSAM)
000001                             7868+DCBCNQSM EQU   DCBBIT7 -      ALWAYS ZERO (BSAM, BPAM)
                                   7869+*                             THIS IS A QSAM DCB (QSAM)
00003E                             7870+DCBBLKSI DS    H -            MAXIMUM BLOCK SIZE
000040                             7871+DCBWCPO  DS    AL1 -          OFFSET OF WRITE CHANNEL PROGRAM FROM THE
                                   7872+*                             START OF IOB
000041                             7873+DCBWCPL  DS    FL1 -          LENGTH OF WRITE CHANNEL PROGRAM
000042                             7874+DCBOFFSR DS    AL1 -          OFFSET OF READ CCW FROM BSAM/BPAM PREFIX
                                   7875+*                             OF IOB
000043                             7876+DCBOFFSW DS    AL1 -          OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX
                                   7877+*                             OF IOB
000044                             7878+DCBIOBA  DS    A -            FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR
                                   7879+*                             BSAM/BPAM PREFIX OF IOB.  FOR CHAINED
                                   7880+*                             SCHEDULING, ADDRESS OF ICB.  FOR
                                   7881+*                             1419/1275, ADDRESS OF MAGNETIC INTERRUPT
                                   7882+*                             CONTROL BLOCK (MICB) CURRENTLY BEING
                                   7883+*                             PROCESSED BY READ ROUTINE.  FOR TSO
                                   7884+*                             TERMINAL DATA SET OPENED FOR INPUT AND
                                   7885+*                             FORMAT U, SIMULATED LOW-ORDER FOUR BYTES
                                   7886+*                             OF IOBCSW

000044                             7888+         ORG   IHADCB+68 ICB354
000044                             7889+DCBCICB  DS    0A -           SAME AS DCBCICBA BELOW             ICB354
000044                             7890+         DS    X -            DCBNCP  (BSAM,BPAM)                ICB354
000045                             7891+DCBCICBA DS    AL3 -          POINTER TO JES C.I.                ICB354
                                   7892+*                             CONTROL BLOCK (CICB)               ICB354

000050                             7894+         ORG   IHADCB+80 ICBI DCB-4
000050                             7895+DCBDIRCT DS    0H -           NUMBER OF BYTES USED IN LAST DIRECTORY
                                   7896+*                             BLOCK (RANGE 0-254)  (BSAM, BPAM)  ICB295
000050                             7897+DCBQSWS  DS    0BL1 -         FLAG BYTE                          ICB295
000004                             7898+DCBPOPEN EQU   DCBBIT5 -      QSAM PARALLEL INPUT PROCESSING
000050                             7899+DCBUSASI DS    B -            FLAG BYTE FOR ASCII TAPES
000040                             7900+DCBBLBP  EQU   DCBBIT1 -      BLOCK PREFIX IS FOUR BYTE FIELD
                                   7901+*                             CONTAINING BLOCK LENGTH IN UNPACKED
                                   7902+*                             DECIMAL (SPECIFIED BY BUFFER=L).
000038                             7903+DCBQADFS EQU   DCBBIT2+DCBBIT3+DCBBIT4
                                   7904+*                             USED TO PERFORM SEQUENCE CHECKING WITH
                                   7905+*                             MULTIPLE FUNCTION SUPPORT FOR 3525
                                   7906+*                             (BSAM, QSAM)
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  202


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                             7907+DCBQADF1 EQU   DCBBIT2 -      FIRST BIT OF DCBQADFS
000010                             7908+DCBQADF2 EQU   DCBBIT3 -      SECOND BIT OF DCBQADFS
000008                             7909+DCBQADF3 EQU   DCBBIT4 -      THIRD BIT OF DCBQADFS
000001                             7910+DCBQSTRU EQU   DCBBIT7 -      TRUNC ENTRY POINT ENTERED (QSAM)
000051                             7911+DCBBUFOF DS    0FL1 -         BLOCK PREFIX LENGTH (0-99), SPECIFIED BY
                                   7912+*                             BUFOFF=N OR BUFOFF=L
000051                             7913+DCBDIRCQ DS    FL1 -          NUMBER OF BYTES USED IN LAST DIRECTORY
                                   7914+*                             BLOCK (RANGE 0-254)  (QSAM)        ICB295

                                   7916+*                       BSAM-BPAM INTERFACE

000048                             7918+         ORG   IHADCB+72
000048                             7919+DCBEOBR  DS    0A -           ADDRESS OF END-OF-BLOCK MODULE FOR READ
000048                             7920+DCBNCP   DS    FL1 -          NUMBER OF CHANNEL PROGRAMS.
                                   7921+*                             NUMBER OF READ OR WRITE REQUESTS WHICH
                                   7922+*                             MAY BE ISSUED PRIOR TO A CHECK, NUMBER
                                   7923+*                             OF IOB'S GENERATED.  (99 MAXIMUM)
000049                             7924+DCBEOBRA DS    AL3 -          ADDRESS OF END-OF-BLOCK MODULE FOR READ
00004C                             7925+DCBEOBW  DS    A -            ADDRESS OF END-OF-BLOCK MODULE FOR WRITE.
                                   7926+*                             FOR BSAM CREATE BDAM PROCESSING OF
                                   7927+*                             UNBLOCKED SPANNED RECORDS WITH BKTEK=R
                                   7928+*                             SPECIFIED, ADDRESS OF SEGMENT WORK AREA
                                   7929+*                             CONTROL BLOCK
000050                             7930+         DS    H -            DCBDIRCT - NUMBER OF BYTES USED IN LAST
                                   7931+*                             DIRECTORY BLOCK  (RANGE 0-254)     ICB295
000052                             7932+DCBLRECL DS    H -            LOGICAL RECORD LENGTH
000054                             7933+DCBCNTRL DS    0A -           ADDRESS OF CNTRL MODULE
000054                             7934+DCBNOTE  DS    0A -           ADDRESS OF NOTE/POINT MODULE
000054                             7935+DCBPOINT DS    A -            ADDRESS OF NOTE/POINT MODULE
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  203


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             7938+DFPL     DSECT
                                   7939+***********************************************************************
                                   7940+*    THE DEFAULT SERVICE ROUTINE PARAMETER LIST (DFPL) IS A LIST OF   *
                                   7941+*    ADDRESSES PASSED FROM THE INVOKER TO DEFAULT VIA REGISTER 1      *
                                   7942+***********************************************************************
000000                             7943+DFPLUPT  DS    A PTR TO UPT
000004                             7944+DFPLECT  DS    A PTR TO ECT
000008                             7945+DFPLECB  DS    A PTR TO CP'S ECB
00000C                             7946+DFPLDFPB DS    A PTR TO DEFAULT PARAMETER BLOCK
                                   7947+**/
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  204


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             7949+DFPB     DSECT
000000                             7950+DFPBCODE DS    0AL1 DEFAULT ENTRY CODE
000000                             7951+DFPBDSN  DS    A PTR TO DSLENGTH AND DSNAME
00000C                             7952+DFPB0C   EQU   X'0C' ENTRY CODE '0C'
000008                             7953+DFPB08   EQU   X'08' ENTRY CODE '08'
000004                             7954+DFPB04   EQU   X'04' ENTRY CODE '04'
000000                             7955+DFPB00   EQU   X'00' ENTRY CODE '00'
000004                             7956+DFPBCNTL DS    0AL1 DEFAULT CONTROL
000004                             7957+DFPBPSCB DS    A PTR TO PSCB
000020                             7958+DFPBUID  EQU   X'20' USERID IS TO BE PREFIXED TO DSNAME
000004                             7959+DFPBRET  EQU   X'04' RETURN ADDED QUALIFIER
000002                             7960+DFPBADD  EQU   X'02' ADD SPECIFIED QUALIFIER
000001                             7961+DFPBMSG  EQU   X'01' ISSUE MESSAGE
000008                             7962+DFPBLORC DS    0AL1 LOCATE RETURN CODE
000008                             7963+DFPBQUAL DS    A PTR TO DEFAULT QUALIFIER
                                   7964+**/
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  205


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             7966+IOPL     DSECT
                                   7967+***********************************************************************
                                   7968+*    THE I/O SERVICE ROUTINE PARAMETER LIST (IOPL) IS A LIST OF       *
                                   7969+*    FULLWORD ADDRESSES PASSED BY THE INVOKER OF ANY I/O SERVICE      *
                                   7970+*    ROUTINE TO THE APPROPRIATE SERVICE ROUTINE VIA REGISTER ONE.     *
                                   7971+***********************************************************************

000000                             7973+IOPLUPT  DS    A PTR TO UPT
000004                             7974+IOPLECT  DS    A PTR TO ECT
000008                             7975+IOPLECB  DS    A PTR TO USER'S ECB
00000C                             7976+IOPLIOPB DS    A PTR TO THE I/O SERVICE RTN PARM BLOCK
                                   7977+**/
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  206


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             7979+PGPB     DSECT
                                   7980+***********************************************************************
                                   7981+*    THE PUTGET PARAMETER BLOCK (PGPB) IS POINTED TO BY THE LIST      *
                                   7982+*    PASSED TO PUTGET.  PUTGET USES IT FOR CONTROL AS WELL AS         *
                                   7983+*    RETURNING INFORMATION.                                           *
                                   7984+***********************************************************************
000000                             7985+         DS    0F
000000                             7986+         DS    CL12 INTERNAL TO GETLINE/PUTLINE
00000C                             7987+PGPBIBUF DS    A PTR TO OBTAINED INPUT LINE
                                   7988+**/
000010                             7989+INPGPBLN EQU   *-PGPB LENGTH OF PUTGET PARM BLOCK.       A45713
BEIN   IKJEBIN8 - OPERAND PROCESSING                                                                           PAGE  207


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             7991+PSCB     DSECT
                                   7992+***********************************************************************
                                   7993+*    THE PROTECTED STEP CONTROL BLOCK IS CONSTRUCTED BY LOGON AND
                                   7994+*    FILLED IN FROM THE UADS .  A FIXED LENGTH TABLE WITH ATTRIBUTE
                                   7995+*    AND ACCOUNTING FIELDS, THE PSCB IS USED TO MAINTAIN USER ATTRI-
                                   7996+*    BUTES AND ACCOUNTING DATA ON A USERID BASIS.  THE ADDRESS OF PSCB
                                   7997+*    IS PASSED TO THE TMP.  HENCE IT IS AN EXTERNAL INTERFACE
                                   7998+***********************************************************************
000000                             7999+         DS    0F
000000                             8000+PSCBUSER DS    CL7 USERID PADDED RIGHT WITH BLANKS
000007                             8001+PSCBUSRL DS    CL1 LENGTH OF USERID
000008                             8002+PSCBGPNM DS    CL8 ESOTERIC GROUP NAME INIT BY LOGON FROM UADS
                                   8003+*                       USED BY DYN ALLOC WHEN UNITNAME NOT SPECIFIED
                                   8004+*                       BUT IS REQUIRED
000010                             8005+PSCBATR1 DS    X A 15 BIT STRING OF USER ATTRIBUTES
000080                             8006+PSCBCTRL EQU   X'80' OPERATOR COMMAND USER
000040                             8007+PSCBACCT EQU   X'40' ACCOUNT  COMMAND USER
000020                             8008+PSCBJCL  EQU   X'20' SUBMIT   COMMAND USER
                                   8009+*        BITS  3 - 15        RESERVED FOR IBM USE
000011                             8010+         DS    X RESERVED
000012                             8011+PSCBATR2 DS    X A 15 BIT STRING RESERVED FOR INSTALLATION USE
000013                             8012+         DS    X
000014                             8013+PSCBCPU  DS    1F CUMULATIVE CPU TIME USED DURING SESSION
000018                             8014+PSCBSWP  DS    1F CUMULATIVE TIME RESIDENT IN THE REGION
00001C                             8015+PSCBLTIM DS    1F ACTUAL LOGON TIME OF DAY
000020                             8016+PSCBTCPU DS    1F TOTAL CPU TIME USED IN THIS ACCOUNTING
                                   8017+*                            PERIOD,EXCLUDING THE CURRENT SESSION.
000024                             8018+PSCBTSWP DS    1F TOTAL TIME USER IS RESIDENT IN THE REGION
                                   8019+*                            DURING THIS ACCT. PER.,EXCL. THE CURR. SES
000028                             8020+PSCBTCON DS    1F TOTAL TIME USER IS CONNECTED  DURING
                                   8021+*                            THIS ACCT. PERIOD,EXCLUDING THIS CURR. SES
00002C                             8022+PSCBTCO1 DS    1F TOTAL TIME USER TERMINAL IS CONNECTED DURING
                                   8023+*                       THIS CURRENT SESSION                      M0759
000030                             8024+PSCBRLGB DS    A PTR TO RELOGON BUFFER
000034                             8025+PSCBUPT  DS    A PTR TO USER PROFILE TABLE
000038                             8026+PSCBUPTL DS    H LENGTH OF UPT
00003A                             8027+         DS    BL.16 RESERVED
00003C                             8028+PSCBRSZ  DS    A REGION SIZE REQUESTED IN 2K UNITS
000040                             8029+PSCBU    DS    CL8 RESERVED FOR INSTALLATION USE
                                   8030+**/
                                   8031  END
BEIN                                             RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000104
   01       01      0C     000348
   01       01      0C     000790
   01       01      0C     00083C
   01       01      0C     0008DC
   01       01      0C     00099C
   01       01      0C     000B10
   01       01      0C     000D3C
   01       01      0C     000D54
   01       02      1C     00021C
   01       03      1C     00024C
   01       04      1C     00086C
   01       05      1C     000BE8
   01       06      0C     000DE8
   01       07      0C     000DEC
   06       09      08     000F58
   06       09      08     000F7A
   06       09      08     000FBE
   06       09      08     000FD7
   08       08      0C     0010B4
   0A       05      1C     00131C
   0A       05      1C     0013FC
   0A       0A      0C     00123C
   0A       0A      0C     001434
   0A       0B      1C     001408
   0A       0C      0C     0013F8
   0C       09      08     0014FB
   0C       09      08     001514
   0D       03      1C     001604
   0D       05      1C     001754
   0D       0D      0C     0016E0
   0E       01      0C     001E20
   0E       05      1C     001E1C
BEIN                                         CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

AREAREG  00001 000004 00174   0247  0254  0297  0298  0298  0299  0319  0320  0343  0358  0427  0429  0490  0499  0510
                              0564  0571  0575  0603  0603  0609  0616  0616  0618  0620  0620  0631  0658  0680  0682
                              0685  1081  1082  1135  1141  1166  1174  1227  1228  1229  1231  1232  1232  1234  1234
                              1235  1245  1245  1254  1255  1256  1260  1265  1267  1314  1315  1317  1425  1429  1431
                              1434  1489  1490  1492  1499  1697  1703  1705  1708  1737  1738  1738  1753  1754  1910
                              1917  1932  1934  1942  1967  1967  1969  1971  1973  1975  1977  3512  3531  3654  3655
                              3657  3728  3729  3738  3804  3813  3814  3815  3815  3817  4741  4755  4778  4793  4849
                              4852  4861  4893  4897  4901  4923  4937  4939  4967  4984  5028  5066  5092  5103  5118
                              5176  5212  5237  5238  5238  5251  5252  5310  5322  5359  5394  5454  5464  5474  5496
                              5497  5497  5499  5504  5530  5566
BASEREG  00001 00000B 00203   0223  0224  2999  3000  3497  3498  3634  3635  4271  4272  4680  4681
CAABEND  00001 000010 05748
CAASM    00001 000015 05794   5084
CAATNBUF 00004 0003B8 05964
CAATNWKA 00004 0003BC 05966
CAATTN   00004 000078 05708   0341
CAATTNIS 00001 000040 05709
CABASIC  00001 000020 05798
CABFRPL  00001 0006F8 05971   5989
CABLKS   00002 0000A8 05779   1414  1414  4752  4869  4899  4938  4955  4963  4973  4981
CACAPS   00001 000002 05718   5222
CACAPSDF 00001 000010 05807   5218
CACAPSRQ 00001 000020 05806   5208  5535
CACFLAG  00004 00007C 05710
CACFLAG1 00001 00007C 05711   1775  5073  5168  5222  5294
CACFLAG2 00001 00007D 05720   1406  1581  4737  4807  4824  4890  4926  4970  5037  5143  5148  5180  5302  5449  5517
CACFLAG3 00001 00007E 05729   1791  5730
CACFLAG4 00001 00007F 05742
CACFLAG5 00001 000080 05755
CACFLAG6 00001 000081 05757   5262  5266  5374  5379  5543
CACHAR48 00001 000040 05760   5262  5374
CACHAR60 00001 000020 05761   5266  5379
CACHKOPT 00002 0000D0 05836   5369  5369
CACLIST  00001 000007 05792
CACNTL   00001 000008 05793
CACOBOL  00001 000016 05795
CACORELN 00004 000044 05692
CACURNUM 00004 0001C8 05890
CADATA   00001 000006 05791
CADLEN   00001 000E40 05982   0229  0244  1883
CADSATR2 00001 0000C2 05815
CADSATTR 00001 0000C1 05803   4763  4999  5022  5060  5152  5208  5218  5446  5535
CADSCODE 00001 0000C0 05784   0535  4338  4368  4373  4377  5084  5256  5283  5286  5494
CADSCONT 00001 000008 05808
CADSMODS 00001 000080 05721
CADSNDEF 00001 000040 05818
CADSNLEN 00002 00013C 05869   0640  1065  1074
CADSNLN2 00002 000E04 05978
CADSNOFF 00002 00013E 05870
CADSNOF2 00002 000E06 05980
CADSNPTR 00004 000138 05868   0636  0636  0636
CADSNPT2 00004 000E00 05977
CADSNRC2 00056 000E08 05981
CADSNREC 00056 000140 05871   0564  0636  1081
CADSQUAL 00008 0000A0 05778   4431  4555
BEIN                                         CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CADSTYPE 00008 000098 05777   0429  0440  0445  3817  3826  3838
CAEDALOC 00001 000001 05860   1032  1470  1511  1690  1724
CAEDDDN  00008 000124 05865   1029  1029  1136  1242  1242  1512  1512  4850
CAEDDISP 00001 000010 05856   1032  1204  1327  1413  1600  1678  4773  4798  4821  4914  5514
CAEDDSN  00044 0000F0 05863   0480  0481  0481  0481  0566  1279  1973  4299
CAEDDSNL 00002 0000EE 05862   0485  0565  0658  1425  1489  1697  4295  4310  4382  4385  4424
CAEDDSOR 00001 000004 05858   0503  1108  1131  1360  1416  1590  1671  1690
CAEDFLAG 00001 0000EC 05851   0503  0655  1032  1108  1131  1204  1225  1327  1360  1413  1416  1470  1472  1511  1590
                              1593  1600  1604  1620  1671  1674  1678  1690  1724  4773  4798  4821  4914  5514
CAEDFNCP 00001 000040 05853
CAEDINCP 00001 000020 05854   1604  1620
CAEDITDS 00001 000080 05852   0655
CAEDMEM  00001 000008 05857   1204  1225  1472  1593  1674  1690
CAEDMEMB 00008 00011C 05864   1106  1107  1107  1107  1158  1158  1164  1164  1481  1481  1701  1701  1975
CAEDPSWD 00008 00012C 05866   0481  0481  0666  0666  1486  1486  1977
CAEDTSIZ 00004 000134 05867
CAEDTTYP 00001 000032 05801   4368
CAEDUNCG 00001 000002 05859
CAENDSC  00001 000004 05717
CAEXTNAM 00008 0000DA 05838
CAFIBFR  00001 0004A4 05968
CAFINDIS 00001 000080 05743
CAFLRLDF 00002 0000C4 05830   4728  4735  4767  4782  5538
CAFLRLMX 00002 0000C6 05831   4800  4816
CAFORTE  00001 000002 05787
CAFORTG  00001 000003 05788
CAFORTGI 00001 000017 05796
CAFORTH  00001 000004 05789
CAFREE   00001 000080 05758   5543
CAFREEDL 00001 000080 05679   1773  1843
CAGOFORT 00001 00001F 05797   5494
CAIMCIN  00001 000008 05736
CAIMFLG  00001 00007E 05730
CAIMINPT 00001 000002 05739
CAIMINS  00001 000040 05732
CAIMIR   00001 000010 05735
CAIMLINC 00004 0001D4 05893   1781  1781  1788  1788
CAIMLLNO 00004 0001D0 05892
CAIMPT   00001 000080 05731   1791
CAIMSC   00001 000020 05734
CAIMSFPT 00001 000004 05737
CAINCRE  00004 0001CC 05891   1780  1780  1787  1787
CAINITSC 00001 000008 05716
CAINPROC 00001 000004 05752
CAINSAVE 00004 0001DC 05895
CAIPLI   00001 000021 05799   5256
CALENGTH 00001 0000AB 05781   5141  5186  5298
CALINE   00001 0000AA 05780   5139  5179  5185  5539
CALINTAB 00001 000080 05816
CALNNUM  00001 000004 05810   5060
CALNTOVF 00001 000080 05712
CALRECL  00002 0000E8 05849   1409  1409  1586  1588  4701  4731  4731  4735  4735  4744  4753  4776  4893  4929  4946
                              4975  4980  5155  5293
CALRECLX 00001 000002 05812   4763  5152  5446  5535
CAMAWKA  00004 000254 05945
BEIN                                         CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CAMODEIS 00004 0003A0 05959   0318
CAMODELN 00002 0003A8 05961   0316  0319
CAMODEMG 00004 0003A0 05958
CAMODEOF 00002 0003AA 05962
CAMODEPT 00004 0003A4 05960   0320
CAMODETX 00012 0003AC 05963   0299  0302  0305
CAMODMSG 00001 000010 05724
CAMSWKA  00004 000274 05956
CANONUM  00001 000001 05719   1775  5073  5168  5294
CANOTYPE 00001 000000 05785   4338  4373  4377
CANXTREC 00004 0001C4 05889
CANXTSVA 00004 000DE8 05975   0269  3003  3009  3054  3501  3507  3522  3638  3644  3773  4275  4281  4536  4684  4690
                              5414
CAOBJGEN 00001 000020 05820
CAOPERND 00001 000080 05683
CAPD     00008 000098 05776   0445  3838  4368  4379  4379
CAPDEND  00001 0000E2 05839   0445  3838  4379
CAPLI    00001 000022 05800   5283
CAPLIF   00001 000001 05786   5286
CAPLILFM 00001 000082 05763   5343  5348  5363  5369
CAPLIRTM 00001 000083 05764   5345  5364  5367
CAPRNAME 00008 0000D2 05837
CAPROMPT 00001 000020 05714
CAPRSPDL 00001 000024 05678   1773  1843
CAPTAE   00004 000008 05671
CAPTAT   00004 00000C 05672
CAPTCDCB 00004 000034 05688   1668
CAPTCHK  00004 000048 05693
CAPTCORE 00004 000040 05691
CAPTECB  00004 000218 05941
CAPTECT  00004 000214 05940
CAPTGTBF 00001 000040 05744
CAPTIBFR 00004 000028 05684
CAPTLE   00004 000010 05673
CAPTMS   00004 000014 05674   0286  3049
CAPTMSGM 00004 00001C 05676
CAPTNBFR 00004 00004C 05695
CAPTPDCB 00004 000038 05689
CAPTPRSD 00004 000024 05681   0346  0402  1760  1845
CAPTRTRY 00004 000020 05677
CAPTSCMD 00004 00002C 05685
CAPTTMP  00004 000000 05669   0271  0297  0335  0656  1423  1493  1695  4427
CAPTUPT  00004 000210 05939
CAPTUT   00004 000018 05675   1611
CARECFM  00001 000040 05722   1406  1581  4737  4807  4824  4890  4926  4970  5148  5302  5449  5517
CARECFMD 00001 0000C3 05825   1403
CARECFMF 00001 000080 05826
CARECFMU 00001 0000C0 05828
CARECFMV 00001 000040 05827   1403
CARUN    00001 000080 05804
CARUNDS  00001 000010 05822
CASAALOC 00001 000001 05881
CASADDN  00008 0001B0 05886
CASADISP 00001 000010 05877
CASADSN  00044 00017C 05884
BEIN                                         CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CASADSNL 00002 00017A 05883
CASADSOR 00001 000004 05879
CASAFLAG 00001 000178 05872
CASAFNCP 00001 000040 05874
CASAINCP 00001 000020 05875
CASAMEM  00001 000008 05878
CASAMEMB 00008 0001A8 05885
CASAPSWD 00008 0001B8 05887
CASAUNCG 00001 000002 05880
CASAVEDS 00001 000080 05873
CASCAN   00001 000040 05805   4999  5022
CASCANON 00001 000020 05723   5037
CASCANSW 00001 000010 05715
CASCBFFL 00001 000028 05682
CASCMDLN 00002 000030 05686
CASCRC20 00001 000008 05750
CASCWKA  00004 0005A8 05970   6077
CASEQCOL 00001 000008 05726   5143  5180
CASRPLST 00004 00021C 05942   1866  1868
CASRWKA  00004 0002D8 05957
CASTAEPL 00004 000240 05944
CASTAXPL 00004 00022C 05943
CASTNUM  00004 0001C0 05888
CASVAREA 00004 000B18 05974   0262
CASYNAME 00008 0000B8 05783   5005  5005  5015  5015  5015
CASYNBFR 00004 0001F0 05907
CASYNCD1 00001 00020C 05919
CASYNCD2 00001 00020D 05920
CASYNECD 00001 0001FC 05912
CASYNIS  00001 000010 05924
CASYNLN  00001 000040 05923
CASYNLST 00004 0001F0 05906
CASYNML  00001 000002 05928
CASYNMS1 00004 000200 05914
CASYNMS2 00004 000204 05915
CASYNOPT 00004 00020C 05918
CASYNPTO 00004 0001F8 05909
CASYNPWA 00004 0001F4 05908
CASYNRCL 00001 00020E 05921
CASYNRFM 00001 000008 05926
CASYNSCN 00001 000001 05929
CASYNSF  00001 000004 05927
CASYNSW  00001 00020F 05922
CASYNTEM 00004 000208 05916
CASYNWA  00004 0001FC 05911
CASYNWAP 00003 0001FD 05913
CATABS   00001 0000AC 05782
CATEMPBF 00001 000908 05972   3012
CATEXT   00001 000005 05790
CATMPLST 00008 000210 05938   0345  0349  0349  0351  0683  1432  1497  1706  1869  1871  1913  1913  1915  1916  1917
                              1918  3657  3658  3733  3733  3735  4437  4439
CATPUTVF 00001 000020 05746
CAULRLDF 00002 0000CC 05834
CAULRLMX 00002 0000CE 05835
CAUTILNO 00004 00003C 05690   1320  4864  4912
BEIN                                         CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CAVLRLDF 00002 0000C8 05832   4731  4787
CAVLRLMX 00002 0000CA 05833   4809
CAVRFYSW 00001 000040 05713
CHRBLANK 00001 000040 02158   0302  0308  0480  1106  1904
COMMREG  00001 000009 00201   0232  0240  0247  0360  0525  0543  1099  1551  1613  1653  1801  1821  1885  3001  3003
                              3009  3010  3049  3050  3054  3499  3501  3507  3508  3522  3636  3638  3644  3645  3718
                              3740  3764  3773  4273  4275  4281  4282  4345  4527  4536  4682  4684  4690  4691  5388
                              5414
COUNTREG 00001 000003 00166   0573  0575  0594  0594  0601  0601  0622  0622  0633  0633  0638  0638  0640
CPPL     00001 000000 07417   0298  0337  0339  0343  0657  1424  1494  1696  4428
CPPLCBUF 00004 000000 07418   0343
CPPLECT  00004 00000C 07421   0298  0339
CPPLPSCB 00004 000008 07420   0657  1424  1494  1696  4428
CPPLUPT  00004 000004 07419   0337
CURNTTCB 00001 000004 02135   1232
CVT      00001 000000 06803   1228
CVTABEND 00004 0000C8 06926
CVTAPR   00001 000040 06889
CVTAQAVT 00004 0000F0 06959
CVTASCII 00001 000002 06896
CVTATTCH 00001 000008 06894
CVTBRET  00002 000052 06850
CVTBTERM 00004 000034 06839
CVTBUF   00004 000010 06822
CVTCCH   00001 000080 06888
CVTCHPTR 00001 000008 06906
CVTCMT   00003 0000ED 06956
CVTCRTTR 00003 0000B8 06904   6917
CVTCUCB  00004 000064 06856
CVTDAR   00004 000048 06846
CVTDATA  00001 000002 06910
CVTDATE  00004 000038 06840
CVTDCB   00001 000074 06862
CVTDCBA  00003 000075 06867
CVTDDR   00001 000020 06891
CVTDMSR  00004 000110 06987
CVTDMSRA 00003 000111 06989
CVTEXIT  00002 000050 06849
CVTEXT1  00004 0000FC 06976
CVTFACHN 00004 000114 07005
CVTFBOSV 00004 000084 06871
CVTFORM  00001 000008 06953
CVTGTF   00004 0000EC 06944
CVTGTFS  00001 0000C0 06946
CVTGTFST 00001 0000EC 06945
CVTHEAD  00004 0000A0 06879
CVTHIAR  00001 000004 06895
CVTIERLC 00004 000090 06874
CVTILCH  00004 00008C 06873
CVTILK1  00004 000024 06831
CVTILK2  00004 000028 06833
CVTIOQET 00004 000078 06868
CVTIXAVL 00004 00007C 06869
CVTJOB   00004 00000C 06821
CVTLINK  00004 000008 06820
BEIN                                         CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTLNKSC 00002 0000D6 06934
CVTMAP   00001 000000 06815
CVTMCTYP 00001 000002 06955
CVTMDLDS 00004 0000D0 06932
CVTMODE  00001 000010 06952
CVTMPCVT 00004 0000C0 06924
CVTMSER  00004 000094 06875
CVTMSLT  00004 00003C 06841
CVTMZ00  00004 0000A4 06880
CVTNIP   00001 000010 06893
CVTNUCB  00004 000080 06870
CVTOPTA  00001 0000B6 06887
CVTOPTB  00001 0000B7 06898
CVTPATCH 00004 0000DC 06936
CVTPBLDL 00004 00005C 06854
CVTPCNVT 00004 00001C 06827
CVTPRLTV 00004 000020 06829
CVTPROT  00001 000080 06899
CVTPTR   00001 000010 06810   1227
CVTPURG  00004 000104 06979
CVTPURGA 00003 000105 06981
CVTQABST 00002 0000D4 06933
CVTQCDSR 00004 0000B8 06919
CVTQLPAQ 00004 0000BC 06920
CVTQMSG  00004 00010C 06983
CVTQMSGA 00003 00010D 06985
CVTQMWR  00004 0000B0 06884
CVTQOCR  00004 0000AC 06882
CVTQTD00 00004 00006C 06859
CVTQTE00 00004 000068 06857
CVTRMS   00004 0000E0 06937
CVTSJQ   00004 000060 06855
CVTSMCA  00004 0000C4 06925
CVTSNCTR 00002 0000B4 06886
CVTSTATE 00001 000020 06951
CVTSTB   00004 000070 06861
CVTSTEPR 00001 000004 06908
CVTSTUSA 00001 0000BB 06905
CVTSVDCB 00004 000054 06851
CVTSYSAD 00004 000030 06837
CVTTCBP  00004 000000 06817   1229
CVTTCMFG 00001 0000F0 06957
CVTTCRDY 00001 000080 06958
CVTTOD   00001 000020 06900
CVTTPC   00004 000058 06852
CVTTRMTB 00004 00009C 06878
CVTTSCE  00004 0000D8 06935
CVTTSCVB 00003 0000E5 06942
CVTTSCVT 00004 0000E4 06939
CVTTSFLG 00001 0000E4 06940
CVTTSRDY 00001 000080 06941
CVTUSER  00004 0000CC 06928
CVTUSR   00001 000004 06954
CVTVOLF2 00001 0000F4 06966
CVTVOLI2 00001 000080 06968
BEIN                                         CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTVOLM2 00004 0000F4 06964
CVTVOLT2 00003 0000F5 06969
CVTXAPG  00004 000014 06824
CVTXITP  00004 000044 06845
CVTXPFP  00001 000001 06897
CVTXTLER 00004 00002C 06835
CVTXTNT1 00001 000114 07003   6976
CVTZDTAB 00004 000040 06844
CVT0DS   00004 000088 06872
CVT0EF00 00004 000004 06818
CVT0FN00 00004 00004C 06848
CVT0PT01 00004 000098 06877
CVT0SCR1 00004 0000E8 06943
CVT0VL00 00004 000018 06825
CVT1EF00 00004 0000A8 06881
CVT1SSS  00001 000040 06863
CVT2SPS  00001 000020 06864
CVT4MPS  00001 000004 06866
CVT4MS1  00001 000010 06865
DAPB08   00001 000000 05580   0666  0677  0680  0756  0766  0783  0800  0828  0852  0857  0861  0866  0870  0907  0912
                              0915  0934  0937  0961  0978  1007  1029  1035  1039  1043  1055  1481  1486  1490  1495
                              1512  5991
DAPB18   00001 000000 05630   1429  1460  1464  1701  1703
DATACELL 00016 000038 06645   1260
DATAREG  00001 00000C 00204   0225  0271  0335  0337  0339  0343  0402  0403  0526  1552  1795  3510  3512  3514  3786
                              3787  4693  4695  5242  5252  5445  5547
DATA1REG 00001 000007 00192   1055  1069  1101  1211  1346  1387  1824  3721  4497  4497  4752  4753  4756  4776  4792
                              4938  5355  5356  5357  5391  5463  5473
DATA2REG 00001 000008 00196   0396  0397  0463  0728  0729  0828  1007  1184  1308  1309  1460  1464  1825  3692  3693
                              3722  3758  3759  3767  4502  4509  4510  4515  4516  4530  4859  4860  5392
DA08ABKL 00001 000040 05618
DA08ALN  00008 00004C 05627
DA08ATRL 00001 000002 05624
DA08BLK  00004 000024 05595
DA08CAT  00001 000002 05609
DA08CATL 00001 000002 05614
DA08CD   00002 000000 05585
DA08CTL  00001 000047 05616
DA08CTRC 00002 000006 05590   0766  0783  0800  0828
DA08CYLS 00001 0000C0 05619
DA08DARC 00002 000004 05589   0756  0852  0857  0861  0866  0870  0907  0912  0915  0934  0937  0961  0978  1007
DA08DDN  00008 00000C 05592   1029  1512
DA08DEL  00001 000004 05608
DA08DELE 00001 000004 05613
DA08DMMY 00001 000004 05623
DA08DPS2 00001 000045 05606
DA08DPS3 00001 000046 05611
DA08DQTY 00004 000030 05598
DA08DSO  00001 00004B 05626   1035  1039  1043  1055  5991  5991
DA08DSP1 00001 000044 05601   0677  1495
DA08FLG  00001 000002 05586
DA08FPE  00001 000080 05587
DA08KEEP 00001 000008 05607   2278
DA08KEP  00001 000008 05612   2280
DA08MNM  00008 000034 05599   1481
BEIN                                         CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DA08MOD  00001 000002 05604
DA08NEW  00001 000004 05603
DA08OLD  00001 000001 05605
DA08PDSN 00004 000008 05591   0680  1490
DA08PERM 00001 000008 05622
DA08PQTY 00004 000028 05596
DA08PSWD 00008 00003C 05600   0666  1486
DA08RLSE 00001 000010 05621
DA08SER  00008 00001C 05594
DA08SHR  00001 000008 05602   0677  1495
DA08SQTY 00004 00002C 05597
DA08TRKS 00001 000080 05617
DA08UCAT 00001 000001 05610
DA08UID  00001 000020 05620
DA08UNCT 00001 000001 05615
DA08UNIT 00008 000014 05593
DA18CAT  00001 000002 05651
DA18CD   00002 000000 05637
DA18CTL  00001 00001F 05653
DA18CTRC 00002 000006 05642   1460
DA18DARC 00002 000004 05641   1464
DA18DDN  00008 00000C 05644
DA18DEL  00001 000004 05650
DA18DPS2 00001 00001E 05648
DA18FLG  00001 000002 05638
DA18FPE  00001 000080 05639
DA18JBNM 00008 000020 05656
DA18KEEP 00001 000008 05649
DA18MNM  00008 000014 05645   1701
DA18PDSN 00004 000008 05643   1429  1703
DA18PERM 00001 000010 05655
DA18SCLS 00002 00001C 05646
DA18UCAT 00001 000001 05652
DA18UID  00001 000020 05654
DCBACBM  00001 000008 07555
DCBBCKPT 00001 000010 07815
DCBBFA   00001 000003 07606
DCBBFAD  00001 000002 07608
DCBBFAF1 00001 000001 07609
DCBBFAF2 00001 000003 07611
DCBBFALN 00001 000020 07586
DCBBFT   00001 000070 07588
DCBBFTA  00001 000060 07590
DCBBFTE  00001 000010 07603
DCBBFTEK 00001 000020 07585
DCBBFTKD 00001 000008 07604
DCBBFTKR 00001 000020 07601
DCBBFTR  00001 000020 07595
DCBBFTS  00001 000040 07600
DCBBIT0  00001 000080 07478   7542  7552  7564  7587  7618  7621  7623  7625  7648  7651  7671  7676  7695  7732  7785
                              7804  7836  7840  7853
DCBBIT1  00001 000040 07479   7543  7553  7566  7588  7590  7600  7618  7621  7624  7625  7653  7671  7674  7676  7698
                              7699  7700  7735  7736  7785  7806  7842  7844  7856  7900
DCBBIT2  00001 000020 07480   7544  7554  7567  7569  7570  7588  7590  7595  7601  7618  7620  7627  7655  7678  7680
                              7703  7704  7705  7739  7740  7787  7809  7845  7861  7903  7907
BEIN                                         CROSS-REFERENCE                                                   PAGE    9


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCBBIT3  00001 000010 07481   7545  7567  7570  7572  7588  7603  7628  7658  7678  7682  7707  7708  7709  7743  7744
                              7787  7811  7813  7815  7847  7862  7903  7908
DCBBIT4  00001 000008 07482   7546  7555  7604  7629  7659  7684  7690  7691  7712  7713  7747  7748  7750  7751  7789
                              7818  7863  7903  7909
DCBBIT5  00001 000004 07483   7547  7556  7605  7632  7634  7661  7684  7687  7688  7691  7716  7718  7719  7720  7754
                              7755  7756  7757  7789  7820  7823  7849  7865  7898
DCBBIT6  00001 000002 07484   7548  7606  7608  7611  7632  7635  7662  7723  7724  7725  7726  7760  7761  7762  7763
                              7826  7867
DCBBIT7  00001 000001 07485   7549  7606  7609  7611  7637  7666  7728  7729  7766  7767  7769  7770  7851  7868  7910
DCBBLBP  00001 000040 07900
DCBBLKSI 00002 00003E 07870
DCBBUFCA 00003 000015 07537
DCBBUFCB 00004 000014 07531
DCBBUFL  00002 000018 07538
DCBBUFNO 00001 000014 07532
DCBBUFOF 00001 000051 07911
DCBCHCKA 00003 000035 07829
DCBCHECK 00004 000034 07802
DCBCICB  00004 000044 07889
DCBCICBA 00003 000045 07891
DCBCIND1 00001 00003C 07835
DCBCIND2 00001 00003D 07852
DCBCNBFP 00001 000008 07863
DCBCNBRM 00001 000004 07849
DCBCNCHS 00001 000004 07865
DCBCNCLO 00001 000020 07861
DCBCNEVA 00001 000010 07847
DCBCNEVB 00001 000020 07845
DCBCNEXB 00001 000001 07851
DCBCNFEO 00001 000002 07867
DCBCNIOE 00001 000010 07862
DCBCNQSM 00001 000001 07868
DCBCNSRD 00001 000040 07844
DCBCNSTO 00001 000080 07853
DCBCNTOV 00001 000080 07836
DCBCNTRL 00004 000054 07933
DCBCNWR0 00001 000040 07856
DCBDDNAM 00008 000028 07645   1136  1136
DCBDEBA  00003 00002D 07791
DCBDEBAD 00004 00002C 07783
DCBDEVT  00001 000011 07527
DCBDIRCQ 00001 000051 07913
DCBDIRCT 00002 000050 07895
DCBDSGCQ 00001 000008 07546
DCBDSGCX 00001 000010 07545
DCBDSGDA 00001 000020 07544
DCBDSGGS 00001 000080 07552
DCBDSGIS 00001 000080 07542
DCBDSGMQ 00001 000004 07547
DCBDSGPO 00001 000002 07548
DCBDSGPS 00001 000040 07543
DCBDSGTQ 00001 000020 07554
DCBDSGTR 00001 000004 07556
DCBDSGTX 00001 000040 07553
DCBDSGU  00001 000001 07549
BEIN                                         CROSS-REFERENCE                                                   PAGE   10


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCBDSORG 00002 00001A 07540
DCBDSRG1 00001 00001A 07541
DCBDSRG2 00001 00001B 07551
DCBDVTBA 00003 00000D 07505
DCBDVTBL 00004 00000C 07503
DCBDVTRM 00001 00004F 07528
DCBDV301 00001 000022 07512
DCBDV302 00001 000024 07514
DCBDV303 00001 000023 07513
DCBDV311 00001 000021 07511
DCBDV314 00001 000028 07516
DCBDV321 00001 000025 07515
DCBEOBR  00004 000048 07919
DCBEOBRA 00003 000049 07924
DCBEOBW  00004 00004C 07925
DCBEODA  00003 000021 07614
DCBEODAD 00004 000020 07583
DCBEX    00001 000040 07674
DCBEXLSA 00003 000025 07639
DCBEXLST 00004 000024 07616
DCBFDAD  00008 000005 07499   7502
DCBFLAG1 00001 00003C 07833
DCBGERR  00004 000034 07800
DCBGERRA 00003 000035 07827
DCBHIARC 00001 000020 07584
DCBH0    00001 000004 07605
DCBH1    00001 000080 07587
DCBIBEC  00001 0000C0 07671
DCBIBIOE 00001 00000C 07684
DCBIBPCT 00001 000030 07678
DCBIFC12 00001 000010 07682
DCBIFC9  00001 000020 07680
DCBIFEC  00001 0000C0 07785
DCBIFER  00001 000000 07686
DCBIFIOE 00001 00000C 07789
DCBIFLG  00001 000031 07668
DCBIFLGS 00001 00002C 07784
DCBIFNEP 00001 000000 07673
DCBIFNE1 00001 000004 07687
DCBIFNE2 00001 000008 07690
DCBIFNE3 00001 00000C 07691
DCBIFPCT 00001 000030 07787
DCBIFPEC 00001 0000C0 07676
DCBIFTIM 00001 000004 07688
DCBIOBA  00004 000044 07878
DCBIOBAA 00003 00001D 07573
DCBIOBAD 00004 00001C 07557
DCBIOBL  00001 000038 07831
DCBKEYCN 00001 000004 07498
DCBKEYLE 00001 000010 07526
DCBLNP   00001 00001C 07560
DCBLRECL 00002 000052 07932
DCBMACF1 00001 00002A 07781
DCBMACF2 00001 00002B 07782
DCBMACR  00002 000032 07693
BEIN                                         CROSS-REFERENCE                                                   PAGE   11


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCBMACRF 00002 00002A 07780
DCBMACR1 00001 000032 07694
DCBMACR2 00001 000033 07731
DCBMRABC 00001 000004 07716
DCBMRAPG 00001 000020 07703
DCBMRAWR 00001 000002 07763
DCBMRCHK 00001 000002 07725
DCBMRCI  00001 000010 07707
DCBMRCK  00001 000001 07729
DCBMRCRL 00001 000002 07724
DCBMRCTL 00001 000002 07761
DCBMRDBF 00001 000004 07720
DCBMRDMD 00001 000001 07769
DCBMRDMG 00001 000001 07728
DCBMRECP 00001 000080 07695
DCBMRFE  00001 000040 07698
DCBMRGET 00001 000040 07699
DCBMRGTQ 00001 000040 07736
DCBMRIDW 00001 000008 07751
DCBMRLCG 00001 000008 07712
DCBMRLCP 00001 000008 07750
DCBMRLDM 00001 000008 07748
DCBMRMVG 00001 000010 07708
DCBMRMVP 00001 000010 07743
DCBMRPTQ 00001 000040 07700
DCBMRPT1 00001 000004 07718
DCBMRPT2 00001 000004 07755
DCBMRPUT 00001 000040 07735
DCBMRRD  00001 000020 07704
DCBMRRDI 00001 000008 07713
DCBMRRDK 00001 000010 07709
DCBMRRDQ 00001 000020 07740
DCBMRRDX 00001 000002 07726
DCBMRSBG 00001 000004 07719
DCBMRSTI 00001 000001 07770
DCBMRSTK 00001 000002 07762
DCBMRSTL 00001 000080 07732
DCBMRSWA 00001 000001 07767
DCBMRTMD 00001 000004 07756
DCBMRUIP 00001 000004 07757
DCBMRWRK 00001 000010 07744
DCBMRWRQ 00001 000020 07705
DCBMRWRT 00001 000020 07739
DCBMR1WD 00001 000001 07766
DCBMR3WD 00001 000002 07760
DCBMR4WD 00001 000004 07754
DCBMR5WD 00001 000008 07747
DCBNCP   00001 000048 07920
DCBNOTE  00004 000054 07934
DCBNUPD  00001 000030 07570
DCBODEB  00004 00001C 07559
DCBODEBA 00003 00001D 07574
DCBOFEOV 00001 000020 07655
DCBOFFSR 00001 000042 07874
DCBOFFSW 00001 000043 07876
BEIN                                         CROSS-REFERENCE                                                   PAGE   12


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCBOFIOD 00001 000080 07651
DCBOFIOF 00001 000001 07666
DCBOFLGS 00001 000030 07647   1144
DCBOFLRB 00001 000040 07653
DCBOFLWR 00001 000080 07648
DCBOFOPN 00001 000010 07658
DCBOFPPC 00001 000008 07659
DCBOFTM  00001 000004 07661
DCBOFUEX 00001 000002 07662
DCBOPTC  00001 000020 07809
DCBOPTCD 00001 000034 07803
DCBOPTH  00001 000010 07811
DCBOPTO  00001 000010 07813
DCBOPTQ  00001 000008 07818
DCBOPTT  00001 000002 07826
DCBOPTU  00001 000040 07806
DCBOPTW  00001 000080 07804
DCBOPTZ  00001 000004 07820
DCBPERR  00004 000034 07801
DCBPERRA 00003 000035 07828
DCBPGFXA 00001 000002 07723
DCBPOINT 00004 000054 07935
DCBPOPEN 00001 000004 07898
DCBQADFS 00001 000038 07903
DCBQADF1 00001 000020 07907
DCBQADF2 00001 000010 07908
DCBQADF3 00001 000008 07909
DCBQSLM  00001 00001C 07561
DCBQSTRU 00001 000001 07910
DCBQSWS  00001 000050 07897
DCBREAD  00004 000030 07794
DCBRECBR 00001 000010 07628
DCBRECC  00001 000000 07636
DCBRECCA 00001 000004 07634
DCBRECCC 00001 000006 07632
DCBRECCM 00001 000002 07635
DCBRECD  00001 000020 07620
DCBRECF  00001 000080 07623
DCBRECFM 00001 000024 07617
DCBRECKL 00001 000001 07637
DCBRECL  00001 0000C0 07621
DCBRECLA 00001 0000E0 07618
DCBRECSB 00001 000008 07629
DCBRECTO 00001 000020 07627
DCBRECU  00001 0000C0 07625
DCBRECV  00001 000040 07624
DCBREL   00003 000011 07529
DCBRELAD 00004 000000 07491
DCBRELB  00004 000010 07525
DCBSRCHD 00001 000004 07823
DCBSTFLS 00001 000040 07842
DCBSTQCK 00001 000080 07840
DCBSVCXA 00003 00001D 07578
DCBSVCXL 00004 00001C 07576
DCBSVDEB 00001 000010 07572
BEIN                                         CROSS-REFERENCE                                                   PAGE   13


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCBSYNA  00003 000039 07832
DCBSYNAD 00004 000038 07830
DCBTIOT  00002 000028 07777
DCBTRBAL 00002 000012 07517
DCBUPDBT 00001 000030 07567
DCBUPDCM 00001 000040 07566
DCBUPDT  00001 000020 07569
DCBUSASI 00001 000050 07899
DCBWCPL  00001 000041 07873
DCBWCPO  00001 000040 07871
DCBWRITE 00004 000030 07795
DCB1DVDS 00001 000080 07564
DCELBBNR 00002 000038 06646
DCELDMCT 00001 000043 06651
DCELJBNR 00001 000042 06650
DCELSTAB 00001 00003A 06647
DCELSTAT 00001 00003B 06648
DCELUSER 00001 000047 06653
DCELVOLI 00006 00003C 06649   1262
DCELVTOC 00003 000044 06652
DEND0135 00001 000F5B 02653   2642
DEND0137 00001 000F7D 02679   2668
DEND0139 00001 000F93 02702   2694
DEND0140 00001 000FA6 02719   2711
DEND0142 00001 000FC1 02745   2734
DEND0143 00001 000FDA 02765   2754
DEND0158 00001 001071 02898   2887
DEND0214 00001 0014FE 04034   4023
DEND0215 00001 001517 04054   4043
DENT0135 00001 000F3B 02640   2642
DENT0137 00001 000F5E 02666   2668
DENT0139 00001 000F80 02692   2694
DENT0140 00001 000F93 02709   2711
DENT0142 00001 000FA9 02732   2734
DENT0143 00001 000FC1 02752   2754
DENT0158 00001 00104E 02885   2887
DENT0214 00001 0014E6 04021   4023
DENT0215 00001 0014FE 04041   4043
DFPB     00001 000000 07949   4422  4425  4429  4432  4434
DFPBADD  00001 000002 07960
DFPBCNTL 00001 000004 07956   4434
DFPBCODE 00001 000000 07950   4422
DFPBDSN  00004 000000 07951   4425
DFPBLORC 00001 000008 07962
DFPBMSG  00001 000001 07961
DFPBPSCB 00004 000004 07957   4429
DFPBQUAL 00004 000008 07963   4432
DFPBRET  00001 000004 07959
DFPBUID  00001 000020 07958   4434
DFPB0C   00001 00000C 07952
DFPB00   00001 000000 07955   4421
DFPB04   00001 000004 07954
DFPB08   00001 000008 07953
DFPL     00001 000000 07938   4437
DFPLDFPB 00004 00000C 07946   4437
BEIN                                         CROSS-REFERENCE                                                   PAGE   14


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DFPLECB  00004 000008 07945
DFPLECT  00004 000004 07944
DFPLUPT  00004 000000 07943
DSNAMREG 00001 000005 00178   0566  0579  0582  0582  0591  0591  0612  1969  1971  4424  4425
DS1BLKL  00002 000056 07394   1414
DS1CREDT 00003 000035 07383
DS1DSIND 00001 00005D 07398
DS1DSNAM 00044 000000 07379
DS1DSORG 00002 000052 07391   1330  1333  1346  1354  1356
DS1DSSN  00006 00002D 07381
DS1END   00001 00008C 07411
DS1EXPDT 00003 000038 07384
DS1EXT1  00010 000069 07403
DS1EXT2  00010 000073 07408
DS1EXT3  00010 00007D 07409
DS1FMA   00001 000004 02127   1365
DS1FMBLK 00001 000010 02130
DS1FMFX  00001 000080 02131   1398
DS1FMM   00001 000002 02128   1365
DS1FMOVF 00001 000020 02126   1365
DS1FMSTD 00001 000008 02125   1365
DS1FMTID 00001 00002C 07380   1317
DS1FMUDF 00001 0000C0 02123   1374
DS1FMVAR 00001 000040 02124   1396
DS1KEYL  00001 00005A 07396
DS1LRECL 00002 000058 07395   1409
DS1LSTAR 00003 000062 07400   1320  1320  1323  1323
DS1NOBDB 00001 00003C 07386
DS1NOEPV 00001 00003B 07385
DS1OPTCD 00001 000055 07393
DS1ORGPO 00001 000002 02132   1035  1356
DS1ORGPS 00001 000040 02133   1039  1330  1354
DS1PTRDS 00005 000087 07410
DS1RECFM 00001 000054 07392   1365  1374  1387  1396  1398
DS1RKP   00002 00005B 07397
DS1SCALO 00004 00005E 07399
DS1SYSCD 00013 00003E 07389
DS1TRBAL 00002 000065 07401
DS1VOLSQ 00002 000033 07382
D0       00001 000000 02087   0304  0308  0311  0317  0426  0429  0445  0535  0571  0573  0579  0592  0597  0609  0613
                              0618  0631  1043  1079  1082  1245  1319  1333  1544  1754  1800  1800  1828  1937  1966
                              1967  1967  1969  1969  1971  1973  1975  1977  3001  3072  3073  3510  3515  3519  3531
                              3636  3771  3804  3812  3815  3817  3838  4273  4301  4303  4379  4682  4867  4881  4886
                              4897  4900  5356  5409  5566
D1       00001 000001 02088   0299  0304  0317  0481  0481  0603  0620  0857  0861  0866  0870  1107  1107  1254  1320
                              1905  1905  3029  3031  4362  4555  4868  4888  4906  5124  5185
D12      00001 00000C 02096   0861  1799  1828  3044
D15      00001 00000F 02097   3040
D16      00001 000010 02094   0866  5356
D2       00001 000002 02099   0616  1070  3029  4296  4383  4448
D20      00001 000014 02101   3014
D24      00001 000018 02102   0857
D3       00001 000003 02098   0426  0622  3029  3812
D30      00001 00001E 02103   4897
D32      00001 000020 02104   4886  4900  4945  4974
BEIN                                         CROSS-REFERENCE                                                   PAGE   15


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

D4       00001 000004 02089   0264  0315  0368  0531  0638  1544  1587  1623  1797  1866  1868  1878  1936  3499  3519
                              3771  4534  4693  4930  5306  5409
D5       00001 000005 02090   1079
D6       00001 000006 02091   3029  3033
D7       00001 000007 02100   5157
D72      00001 000048 02095   0268  1800
D8       00001 000008 02092   0265  0427  0870  1160  3047  3753  4867  5186
D9       00001 000009 02093   4881
ECBREG   00001 000005 00179   0341  0354
ECT      00001 000000 07424   0299
ECTATRM  00001 000020 07442
ECTDDNUM 00003 00001D 07447
ECTIOWA  00004 000004 07434
ECTLOGF  00001 000010 07444
ECTMSGF  00001 000008 07435
ECTNMAL  00001 000008 07445
ECTNNOT  00001 000004 07446
ECTNOPD  00001 000080 07441
ECTPCMD  00008 00000C 07438   0299  0299  0304  0305
ECTRCDF  00001 000000 07431
ECTREG   00001 000003 00167   0339  0353
ECTRTCD  00003 000001 07432
ECTSCMD  00008 000014 07439
ECTSMSG  00003 000009 07437
ECTSWS   00001 00001C 07440
ECTUSER  00004 000020 07448
ENTCDREG 00001 000000 00151
EPLOCREG 00001 00000F 00209   0438  1096  1818  1868  1869  3715  3824  4361  5293  5299  5307  5340  5350  5385
ERR1REG  00001 000005 00180   0385  0395  0462  0727  0741  0778  0796  0814  0826  0897  0929  0956  0973  0992  1005
                              1054  1095  1100  1149  1182  1210  1249  1270  1307  1345  1386  1466  1822  3691  3703
                              3713  3719  3753  3754  3757  3765  4447  4491  4496  4502  4504  4509  4520  4528  4749
                              4777  4791  4858  4936  5027  5065  5117  5175  5211  5358  5389  5453  5462  5472  5528
ERR2REG  00001 000006 00183   0813  0827  0951  0954  1006  1150  1183  1250  1459  1463  1823  3720  4503  4751  4934
                              4952  4960  5087  5114  5134  5390
FLAGREG  00001 000003 00168   0885  0885  1201  1201  1935  1940  1940  1966
IBCLC001 00006 0011C4 03531   3516
IBNOADDR 00001 000000 03533   3512
IBNOLEN  00001 000004 03534   3514
IBZEROES 00008 0011CA 03532   3531
IB001010 00001 0011AA 03521   3517
ICCONST8 00002 00143C 03869   3814
ICDSTPDL 00001 000000 03876   3787  3884  3886  4024  4035  4044  4055  4063  4067  4095  4099  4128  4132  4153  4155
                              5244  5499
ICMSGRTN 00004 0013FC 03852   3715
ICPARS   00004 001400 03853   3759
ICPTGT   00004 001404 03855   3693
ICPTPCL  00004 0013F8 03850   3727
ICPTTYPE 00004 001408 03856   3813
ICSUBPL1 00004 001438 03868   3806
IC001010 00001 001206 03647   3809
IC001015 00001 001252 03675   3673
IC001020 00001 001272 03685   3677  3680  3681  3682
IC001030 00001 001280 03697   3683
IC001040 00001 001288 03707   3679
IC001045 00001 00128C 03714   3694  3704
BEIN                                         CROSS-REFERENCE                                                   PAGE   16


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IC001050 00001 0012AE 03726   3676
IC001065 00001 001336 03770   3678  3724  3755
IC001068 00001 00133A 03772   3836
IC001070 00001 001354 03782   3752
IC001080 00001 00139E 03811   3790
IC002060 00001 0013DA 03832   3843
IC002070 00001 0013EC 03837   3829
IDCOMPCL 00006 001794 04555   4390
IDDELSVC 00004 001790 04553   4516
IDDFAULT 00004 00178C 04552   4510
IDRCTAB  00010 00179A 04559   4450
IDRETCD4 00001 00176E 04533   4351
IDRETURN 00001 001772 04535   4474  4476
ID000010 00001 0015CE 04300   4304
ID000020 00001 0015DC 04305   4298
ID000030 00001 0015E4 04308   4302
ID000040 00001 0015F0 04335   4307
ID000050 00001 001600 04340   4374
ID000060 00001 001620 04353   4337
ID000070 00001 001650 04372   4367
ID000080 00001 00165C 04376   4370
ID000090 00001 00166A 04381   4392
ID000100 00001 00167C 04389   4378
ID000110 00001 001688 04409   4350
ID000120 00001 001690 04412   4375  4387  4393
ID000130 00001 0016A8 04420   4339  4411  4417
ID000140 00001 001700 04472   4471
ID000150 00001 00171C 04490   4478
ID000160 00001 001724 04494   4479
ID000180 00001 00172E 04501   4480  4481
ID000190 00001 00173C 04507   4482
ID000200 00001 001746 04514   4418
ID000210 00001 00174C 04519   4512
ID000220 00001 001750 04522   4492  4499  4505
IECDSCB1 00001 000000 07376   1317
IECPSSUP 00002 001E24 05567   5204  5204
IECSDSF1 00001 000000 07378
IECSDSL1 00001 000000 07377   1317  7378
IEDEVTYP 00004 001E28 05562   4860
IEEXIT1  00001 001D1A 05408   4725  4762  4779  4795  4862  4941  5029  5068  5120  5177  5214  5361  5455  5466  5476
IEEXIT2  00001 001D22 05411   5396
IEEXIT3  00001 001D24 05413   5410
IEFTIOT1 00001 000000 06094   1235
IEFUCBOB 00001 000000 06189   1260  1267
IEINS001 00004 001E38 05569   5463
IEINS002 00004 001E44 05574   5473
IEINS003 00004 001E20 05558
IEKEYDEF 00002 001E24 05559   5019  5019  5056  5056  5259  5259  5370  5370  5500  5500  5507  5507  5567
IELR080  00002 001E26 05560   5537  5565
IELSTDSC 00004 001E2C 05563   5003  5003
IEMSGRTN 00004 001E1C 05556   5385
IENOKEYW 00002 001E1A 05554   4717  4717  4918  4918  5199  5199  5458  5458  5468  5468  5523  5523
IEPACK1  00006 001E32 05566   5430
IESTP073 00002 001E30 05564   5107
IESTP080 00002 001E26 05565   5110  5123
BEIN                                         CROSS-REFERENCE                                                   PAGE   17


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IHADCB   00001 000000 07476   1136  1144  7524  7575  7644  7776  7793  7799  7888  7894  7918
IHB0015B 00004 00021C 00523   0528
IHB0018B 00004 00024C 00541   0544
IHB0044B 00004 00086C 01549   1554
IHB0183B 00004 00131C 03762   3768
IHB0229B 00004 001604 04343   4346
IHB0241B 00004 001754 04525   4531
IKJ$0060 00002 0009F0 01752   1743
IKJ$0063 00002 000A2C 01772   1763
IKJ$0072 00002 000ADE 01857   1848
IKJ$0085 00002 000BE6 01955   1946
IKJ$0099 00001 001045 02868   2333
IKJ$0135 00001 000F58 02651   2650
IKJ$0137 00001 000F7A 02677   2676
IKJ$0142 00001 000FBE 02743   2742
IKJ$0143 00001 000FD7 02763   2762
IKJ$0156 00001 001072 02909   2875
IKJ$0158 00001 001071 02897   2896
IKJ$0187 00002 001388 03803   3794
IKJ$0195 00001 001582 04157   3872
IKJ$0214 00001 0014FB 04032   4031
IKJ$0215 00001 001514 04052   4051
IKJ@0060 00002 0009D8 01744   1751
IKJ@0063 00002 000A14 01764   1771
IKJ@0072 00002 000AC6 01849   1856
IKJ@0085 00002 000BCE 01947   1954
IKJ@0099 00001 000068 02866   2334
IKJ@0100 00001 00001B 02354   2335
IKJ@0101 00001 000E0B 02347   2346
IKJ@0103 00001 000E19 02368   2367
IKJ@0104 00001 000E21 02376   2375
IKJ@0106 00001 000E2F 02394   2393
IKJ@0107 00001 000E3B 02403   2402
IKJ@0108 00001 000E43 02411   2410
IKJ@0109 00001 000E4C 02419   2418
IKJ@0110 00001 000E55 02427   2426
IKJ@0111 00001 000E5F 02435   2434
IKJ@0112 00001 000E68 02443   2442
IKJ@0113 00001 000E72 02451   2450
IKJ@0114 00001 000E7B 02459   2458
IKJ@0115 00001 000E88 02468   2467
IKJ@0116 00001 000E94 02477   2476
IKJ@0117 00001 000E9E 02485   2484
IKJ@0118 00001 000EA9 02493   2492
IKJ@0119 00001 000EB3 02501   2500
IKJ@0120 00001 000EBC 02509   2508
IKJ@0121 00001 000ECB 02519   2518
IKJ@0122 00001 000ED6 02529   2528
IKJ@0123 00001 000EDF 02537   2536
IKJ@0125 00001 000EEE 02555   2554
IKJ@0126 00001 000EF7 02563   2562
IKJ@0127 00001 000F01 02572   2571
IKJ@0128 00001 000F09 02582   2581
IKJ@0129 00001 000F15 02591   2590
IKJ@0131 00001 000F25 02609   2608
BEIN                                         CROSS-REFERENCE                                                   PAGE   18


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IKJ@0133 00001 000F36 02628   2627
IKJ@0134 00001 00016B 02659   2635
IKJ@0135 00001 000F4E 02649   2648
IKJ@0136 00001 00018D 02685   2661
IKJ@0137 00001 000F71 02675   2674
IKJ@0138 00001 0001B6 02725   2687
IKJ@0139 00001 000F93 02701   2700
IKJ@0140 00001 000FA6 02718   2717
IKJ@0141 00001 0001EA 02770   2727
IKJ@0142 00001 000FBC 02741   2740
IKJ@0143 00001 000FD4 02761   2760
IKJ@0144 00001 000FE7 02776   2775
IKJ@0145 00001 000FF2 02786   2785
IKJ@0146 00001 000FFD 02794   2793
IKJ@0147 00001 000210 02802   2799
IKJ@0148 00001 00100D 02808   2807
IKJ@0149 00001 001018 02818   2817
IKJ@0150 00001 001023 02826   2825
IKJ@0151 00001 000236 02835   2832
IKJ@0152 00001 001031 02841   2840
IKJ@0153 00001 00103A 02851   2850
IKJ@0154 00001 001044 02859   2858
IKJ@0156 00001 000010 02907   2876
IKJ@0157 00001 000029 02903   2877
IKJ@0158 00001 001065 02894   2893
IKJ@0187 00002 001370 03795   3802
IKJ@0195 00001 000028 04155   3873
IKJ@0196 00001 000006 03880   3874
IKJ@0198 00001 001454 03894   3893
IKJ@0199 00001 001460 03903   3902
IKJ@0200 00001 001468 03911   3910
IKJ@0201 00001 001471 03919   3918
IKJ@0202 00001 00147A 03927   3926
IKJ@0203 00001 001484 03935   3934
IKJ@0204 00001 00148D 03943   3942
IKJ@0205 00001 001497 03951   3950
IKJ@0206 00001 0014A0 03959   3958
IKJ@0207 00001 0014AD 03968   3967
IKJ@0208 00001 0014B9 03977   3976
IKJ@0209 00001 0014C3 03985   3984
IKJ@0210 00001 0014CE 03993   3992
IKJ@0211 00001 0014D8 04001   4000
IKJ@0212 00001 0014E1 04009   4008
IKJ@0213 00001 0000D7 04059   4016
IKJ@0214 00001 0014F9 04030   4029
IKJ@0215 00001 001511 04050   4049
IKJ@0216 00001 001524 04065   4064
IKJ@0217 00001 00152F 04075   4074
IKJ@0218 00001 00153A 04083   4082
IKJ@0219 00001 0000FD 04091   4088
IKJ@0220 00001 00154A 04097   4096
IKJ@0221 00001 001555 04107   4106
IKJ@0222 00001 001560 04115   4114
IKJ@0223 00001 000123 04124   4121
IKJ@0224 00001 00156E 04130   4129
BEIN                                         CROSS-REFERENCE                                                   PAGE   19


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IKJ@0225 00001 001577 04140   4139
IKJ@0226 00001 001581 04148   4147
IKJEBECA 00001 000000 05659   0240  3003  3009  3010  3049  3054  3501  3507  3508  3522  3638  3644  3645  3773  4275
                              4281  4282  4536  4684  4690  4691  5414  5982
IKJEBEIN 00001 000000 00004   0009  2339  2351  2362  2370  2378  2388  2397  2405  2413  2421  2429  2437  2445  2453
                              2462  2471  2479  2487  2495  2503  2512  2523  2531  2539  2549  2557  2565  2576  2585
                              2593  2603  2612  2622  2631  2636  2656  2662  2682  2688  2705  2722  2728  2748  2768
                              2780  2788  2796  2800  2812  2820  2828  2833  2845  2853  2861  2869  2881  2901  2910
IKJEBIN0 00001 000D6D 02309   0010  0427  2326
IKJEBIN1 00001 000DF0 02332   2330  2333  2336  2340  2353  2354  2363  2371  2380  2389  2395  2398  2406  2414  2422
                              2430  2438  2446  2454  2460  2463  2469  2472  2480  2488  2496  2504  2510  2513  2524
                              2532  2541  2550  2558  2566  2577  2583  2586  2595  2604  2610  2614  2623  2629  2633
                              2637  2658  2659  2663  2684  2685  2689  2706  2724  2725  2729  2749  2769  2770  2781
                              2789  2797  2801  2802  2813  2821  2830  2834  2835  2846  2854  2862  2867
IKJEBIN2 00001 001048 02874   2872  2875  2878  2882  2902  2903  2908
IKJEBIN3 00001 001078 02994
IKJEBIN4 00001 001160 03492   2652  2678  2744  2764  4033  4053
IKJEBIN5 00001 0011D8 03629   3878  3888  3897  3905  3913  3921  3929  3937  3945  3953  3962  3971  3979  3987  3995
                              4003  4012  4017  4037  4057  4069  4077  4085  4089  4101  4109  4117  4122  4134  4142
                              4150  4158
IKJEBIN6 00001 001440 03871   3850  3872  3875  3879  3880  3889  3895  3898  3906  3914  3922  3930  3938  3946  3954
                              3960  3963  3969  3972  3980  3988  3996  4004  4010  4014  4018  4038  4058  4059  4070
                              4078  4086  4090  4091  4102  4110  4119  4123  4124  4135  4143  4151  4156
IKJEBIN7 00001 001588 04261
IKJEBIN8 00001 0017A8 04675
INBLDLLN 00002 0005BE 06084
INBLDLNM 00008 0005C0 06085   6087
INBLDLNO 00002 0005BC 06083
INBLDLST 00002 0005BC 06082
INBLDWD  00004 00086C 06001   1163  1165  5003
INBLINIT 00004 000C78 02035   1163  1163
INBLK    00002 00002A 02602   2599  4918  5468
INBLKLN  00001 000004 02117   4924
INBLKPT  00001 000000 02115   4923
INBLKSZ  00002 000F39 02635   2610
INBLKSZE 00004 000030 02655   2643  4923  4924
INBUFRCW 00004 000C4C 02007   1907  1907
INCAMDSN 00004 0006FC 05995   1282
INCAMEND 00001 000010 01993   1277
INCAMFLG 00004 0006F8 05994   1277  1284
INCAMLST 00004 000C20 01985   1277  1993
INCAMOBT 00001 000708 05998   1281  1315
INCAMVLD 00006 000866 05999   1262  1262  1274  1274  1280
INCAMVOL 00004 000700 05996
INCAMWRK 00004 000704 05997
INCLOSE  00004 000CBC 02076   1170  2079
INCLOSEL 00001 000004 02079   1170
INCL001  00006 000BEC 01966   1938
INCOREPT 00004 0008C4 06026   1911  1932  1943
INCVBIN  00001 001D3E 05428   4743  4925  5094  5105  5314  5326
INCYLNO  00002 0008B8 06013
INDAIR   00004 000C38 01999   0729
INDAIR08 00002 000C70 02025   0705  1449
INDAIR16 00002 000C72 02027   0708  1452
INDAIR48 00002 000C76 02033   0713  1454
BEIN                                         CROSS-REFERENCE                                                   PAGE   20


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

INDAIR8O 00004 000CF0 02266   0660  1479  2284
INDCB    00004 000C84 02043   1132  2071
INDCBL   00001 000034 02071   1132
INDCZERO 00001 0000F0 02159   3031
INDECBIN 00008 000880 06006   5431  5566  5566
INDEVFLG 00001 0008C1 06022   4878
INDEVTYP 00004 0008B0 06012   4849
INDEXREG 00001 000002 00161   0423  0426  0427  3788  3789  3789  3812  3815
INDISPD  00001 000000 02879   1934  2888  2899  2905  2907
INDISPDL 00004 000DEC 02872   1909
INDISPNW 00002 000C32 01996   0669  0669
INDISPPR 00001 000B46 01903   0884  1200
INDISPX  00004 000008 02900   1935  1936  2888
INDREC   00001 0006F8 05991   0660  0666  0677  0680  0682  0756  0766  0783  0800  0828  0852  0857  0861  0866  0870
                              0907  0912  0915  0934  0937  0961  0978  1007  1029  1035  1039  1043  1055  1427  1429
                              1431  1460  1464  1479  1481  1486  1490  1492  1495  1512  1699  1701  1703  1705
INDRRC24 00002 000C74 02029   1445  1719
INDR0000 00002 000C58 02013   0756  0756
INDR0004 00002 000C5A 02014   0766  0766
INDR0008 00002 000C5C 02015   0783  0783
INDR0028 00002 000C5E 02016   0800  0800
INDR020C 00002 000C60 02017   0912  0912
INDR021C 00002 000C68 02021   0937  0937
INDR0210 00002 000C62 02018   0915  0915
INDR0214 00002 000C64 02019   0934  0934
INDR0218 00002 000C66 02020   0907  0907
INDR0220 00002 000C6A 02022
INDR0404 00002 000C6C 02023   0961  0961
INDR041C 00002 000C6E 02024   0978  0978
INDR1700 00001 000017 02164   0852
INDR18   00004 000CC8 02255   1427  1699  2264
INDR18L  00001 000028 02264   1427  1699
INDR8OLL 00001 00004C 02284   0660  1479
INDSMTY  00003 000C44 02003   1323
INDSN    00004 000008 02350   0484  0490  0494  0498  0499  0505  0509  0510  0515  0567  0605  0611  0612  0626  0662
                              0673  1061  1067  1075  1155  1161  1211  1483  2344
INDSNFLG 00001 000006 02141   0515  0567  0626  1075
INDSNLL  00001 000004 02140   0484
INDSNPT  00001 000000 02139   0490
INDSTELN 00001 000008 02325   0429  2326  3817
INDSTYPE 00002 000022 02387   0419  0423  2384
INDSTYP2 00002 000008 03887   3788  3884
INECMNDD 00001 000000 02337   0403  2344  2349  2358  2360  2384  2386  2517  2521  2545  2547  2570  2574  2599  2601
                              2618  2620  2643  2654  2669  2680  2695  2703  2712  2720  2735  2746  2755  2766  2774
                              2778  2806  2810  2839  2843  2864  2866  4695  5445
INENTRYL 00001 00003A 06087
INERRORA 00001 000024 02193   5027
INERRORB 00001 000028 02197   5065
INERRORC 00001 00002C 02199   5358
INERRORD 00001 000030 02201   5117
INERRORE 00001 000034 02204   5211
INERRORF 00001 000038 02206   1249  1466
INERRORG 00001 00003C 02208   5462  5472
INERRORH 00001 000040 02210   5175
INERRORI 00001 000044 02212   1210
BEIN                                         CROSS-REFERENCE                                                   PAGE   21


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

INERRORJ 00001 000048 02214   5453
INERRORK 00001 00004C 02216   0929
INERRORL 00001 000050 02218   1149
INERRORM 00001 000054 02220   0741
INERRORN 00001 000058 02223   0778
INERRORO 00001 00005C 02226   0796
INERRORP 00001 000060 02229   0814  0826  1005
INERRORQ 00001 000064 02231   0973  1270
INERRORR 00001 000068 02234   4491
INERRORS 00001 00006C 02236   4496
INERRORT 00001 000070 02240   0992
INERRORU 00001 000074 02243   4504
INERRORV 00001 000078 02246   5528
INERRORW 00001 00007C 02249   0956
INERRORX 00001 000080 02252   3713
INERROR1 00001 000000 02168   0385  3703
INERROR2 00001 000004 02171   0395  0462  0727  1182  1307  3691  3757  4520  4858
INERROR3 00001 000008 02174   1095
INERROR4 00001 00000C 02176   1054  1345
INERROR5 00001 000010 02179   1386
INERROR6 00001 000014 02182   4777
INERROR7 00001 000018 02185   0897
INERROR8 00001 00001C 02187   4749  4791
INERROR9 00001 000020 02191   4936
INEXIT0  00001 000AB0 01830
INEXIT1  00001 000AB0 01842   0533  0548  1104  1557  1630  1666
INEXIT12 00001 000AAC 01827   0714  1455
INEXIT2  00001 000ADE 01858   0371  0373  1844
INEXTANS 00004 000600 06091
INEXTCPL 00004 000604 06092
INEXTPDE 00004 0005FC 06090
INEXTPRM 00004 0005FC 06089
INFMT    00002 000026 02548   2545  5199  5204
INFULLQ  00001 000040 02138   0515  0567  0626  1075
INF255   00001 0000FF 02156   0242  1204  1256  1327  1470  1620  1674  1678  1724
ININC010 00004 000C50 02009   1787  1788
ININC100 00004 000C54 02011   1780  1781
ININS001 00001 000D3C 02287
ININS002 00004 000D3C 02288   1184  5558
ININS003 00004 000D48 02293   2288
ININS004 00004 000D54 02298   0463
ININS005 00004 000D64 02303   2298
INIPLICH 00002 000062 02811   2806  5259
INIPLICS 00002 000FFE 02799   2460
INIPLIC2 00002 00001E 04100   4095
INIPLI2  00002 00153B 04088   3960
INKEYDEF 00002 000C30 01995   0880  0880  1196  1196
INLFTPRN 00001 00004D 02162   0609
INLINKSF 00004 000888 06008   1654  1919  3741
INLNE    00002 00002C 02621   2618  4717  5458  5523
INLNELN  00001 000004 02121   4742
INLNEPT  00001 000000 02119   4741
INLNESZ  00004 000038 02681   2669  4741  4742
INLRECL  00002 000F5C 02661   2629
INLSRCMG 00001 000002 02109   5363
BEIN                                         CROSS-REFERENCE                                                   PAGE   22


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

INMEMBER 00001 000870 06002   1164
INMEMFLG 00001 00000E 02144   0494  0605  0673  1061  1155
INMEMLL  00001 00000C 02143   0498  0611  1067  1161  1211
INMEMPT  00001 000008 02142   0499  0612
INMSGRTN 00004 000BE8 01963   1096  1818
INMV001  00006 000BF8 01969   0599
INMV002  00006 000BFE 01971   0614
INMV003  00006 000C04 01973   0492
INMV004  00006 000C0A 01975   0501
INMV005  00006 000C10 01977   0512
INNEW    00003 000C49 02006   1966
INNODSTY 00001 00000F 02326
INNOKEYW 00002 000C47 02004   0419  0419
INNOLEN  00004 000048 02721   2712  5096  5103  5104
INNOSTP  00004 000040 02704   2695  5078  5092  5093
INNUM    00002 000028 02575   2570  5056
INNUMS   00002 000F7E 02687   2583
INOPEN   00004 000CB8 02072   1133  2075
INOPENED 00001 000010 02165   1144
INOPENL  00001 000004 02075   1133
INOPRNDO 00001 000080 02137   0494  0505  0605  0662  0673  1061  1155  1483  5290  5316
INOVHDK  00001 0008BE 06016   4884
INOVHDKL 00001 0008BF 06018   4872
INOVHDNK 00001 0008C0 06020   4876
INPARS   00004 000C34 01997   0397
INPDLPTR 00004 0005B8 06080   1737  1740  3730  3786  3791  5237  5496
INPERIOD 00001 00004B 02161   0579  4301
INPGLIST 00004 0005A8 06079   1753  1755  3654  3805
INPGPBLN 00001 000010 07989   3656
INPLICL1 00004 00000C 04036   4024  5244
INPLICL2 00004 000014 04056   4044
INPLITYP 00002 00001C 04068   4063
INPLI2   00002 0014E4 04016   3895  4010
INPL1    00002 000FA7 02727   2395  2510
INPL1CL1 00004 000050 02747   2735  5240  5290  5310  5312
INPL1CL2 00004 000058 02767   2755  5316  5322  5324
INPL1TYP 00002 000060 02779   2774  5370
INPMTOLD 00004 001430 03865   3663
INPRMTLN 00001 000022 03863   3859
INPRMTMG 00002 00140C 03859   3863  3866
INPSWFLG 00001 000016 02147   0505  0662  1483
INPSWLL  00001 000014 02146   0509
INPSWPT  00001 000010 02145   0510
INPTPCL  00004 000DE8 02330   0342
INP03010 00001 001D4A 05434   4822
INP03015 00001 001D66 05457   5447  5450
INP03020 00001 001D82 05467   5460
INRSRCMG 00001 000048 02110   5336  5345  5364
INRTPRN  00001 00005D 02163   0618
INSCN    00002 000024 02522   2517  5019
INSMGFLG 00001 000006 02108   5290  5316
INSMGLN  00001 000004 02107   5312  5324
INSMGPT  00001 000000 02106   5310  5322
INSNGLQT 00001 00007D 02160   0571  0631  1082
INSNOFLG 00001 000006 02113   5078  5096
BEIN                                         CROSS-REFERENCE                                                   PAGE   23


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

INSNOLN  00001 000004 02112   5093  5104
INSNOOMT 00001 000080 02114   5078  5096
INSNOPT  00001 000000 02111   5092  5103
INSTAT   00002 000020 02361   0669  0880  1196  2358
INSTATN  00001 000002 02134
INSTATO  00001 000001 02136
INSTKPRM 00004 000CC0 02082   1866  2084
INSTPBLN 00001 000008 02084   1866
INSUBPL1 00004 000C40 02002   1756
INSVCOBT 00004 000C3C 02001   1309
INSVCRTN 00004 000890 06009   0524  0542  1098  1550  1820  3717  3763  5387
INSYNCHK 00004 00086C 06000   5008
INSYNNME 00001 000870 06003   5005
INTEMPBF 00088 000792 06074   1904  1905  1905  1905  1907  1910
INTEMPNM 00008 000C7C 02037   1158
INTOLFAC 00002 0008C2 06025   4880
INTOLFLG 00001 000001 06023   4878
INTRKCAP 00002 0008BC 06015   4870
INTRKNO  00002 0008BA 06014
INTSFSQO 00001 000049 02148   5539
INTSFTFM 00002 000064 02844   2839  5507
INTSFTF2 00002 000020 04133   4128  5500
INTSFTN  00002 001024 02832   2469
INTSFTN2 00002 001561 04121   3969
INWKAREA 00004 0006F8 05990   5993  6027
INWKDCB  00004 000714 06057   1132  1135  1136  1144
INWKOPEN 00004 00074C 06058   1133  1138  1170  1172
INXCTL   00004 000C18 01981   1793  1983
INXCTLLN 00001 000008 01983   1793
INXCTLPL 00004 0008A8 06011   1793  1802
INXC001  00006 000BF2 01967   0253  0261
IN000010 00001 000096 00307   0312
IN000020 00001 0000A4 00314   0309
IN001010 00001 000034 00249   0259
IN001020 00001 000046 00260   0251
IN001060 00001 000116 00367   0368  1930
IN001062 00001 000132 00379   0375
IN001065 00001 00013A 00394   0374  0376
IN001070 00001 000148 00401   0370
IN001071 00001 0001A2 00458   0443
IN001075 00001 0001BC 00479   0421  0451
IN001077 00001 0001E6 00497   0488
IN001080 00001 0001F8 00504   0496
IN001090 00001 00020E 00514   0507
IN001093 00001 000232 00530   0531
IN001095 00001 00023E 00534   0517
IN002000 00001 000264 00551   0532  0536
IN002005 00001 000616 01224   1179
IN002010 00001 00061A 01226   1063  1109
IN002030 00001 00029E 00596   0577
IN002050 00001 00062A 01236   1247
IN002055 00001 000648 01248   1240
IN002060 00001 000654 01253   1244
IN002070 00001 00066A 01266   1258
IN002075 00001 00067A 01273   1269
BEIN                                         CROSS-REFERENCE                                                   PAGE   24


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IN002080 00001 000680 01276   1264
IN002082 00001 0006A0 01291   1286
IN002084 00001 0006B4 01306   1295  1296
IN002085 00001 0006C2 01313   1292
IN002090 00001 0006F0 01338   1358
IN002100 00001 0006FC 01350   1325
IN002110 00001 000710 01361   1331  1355
IN002120 00001 000720 01379   1370
IN002130 00001 00072C 01391   1376
IN002135 00001 000744 01405   1399
IN002140 00001 000748 01408   1397  1404
IN002150 00001 000766 01419   1208
IN002160 00001 0007B0 01448   1721
IN002170 00001 0007D0 01458   1451
IN002180 00001 0007DC 01462   1453
IN002185 00001 0007E4 01465   1461
IN002190 00001 0007EC 01469   1443  1447
IN002210 00001 000286 00578   0569  0583
IN002220 00001 000296 00590   0580
IN002230 00001 0002D6 00625   0607
IN002240 00001 0002E6 00635   0628
IN002250 00001 000318 00668   0664
IN002255 00001 00032E 00679   0675
IN002260 00001 000360 00704   1508
IN002270 00001 000380 00726   0706  1450  1456
IN002280 00001 00038E 00740   0711
IN002290 00001 000396 00755   0707
IN002300 00001 0003A0 00765
IN002310 00001 0003AA 00777   0872  0910  1293
IN002320 00001 0003B2 00782   0768
IN002325 00001 0003BC 00788   1294
IN002340 00001 0003C4 00799   0785
IN002343 00001 0003CE 00812   0859
IN002346 00001 0003DA 00825   0802
IN002350 00001 0003EA 00851   0709  0758
IN002355 00001 000416 00879   0864  0869
IN002360 00001 00042A 00896   0882
IN002370 00001 000432 00906   0854
IN002385 00001 000450 00928   0914
IN002390 00001 000458 00933   0873  0917
IN002391 00001 000474 00953   0936
IN002392 00001 000478 00955   0952
IN002393 00001 000480 00960   0939
IN002395 00001 000492 00977   0963
IN002399 00001 0004A4 01004   0981
IN002400 00001 0004B4 01028   0703
IN002410 00001 0004E2 01060   1041  1045
IN002420 00001 000514 01094   1077
IN002430 00001 000546 01130   1037
IN002440 00001 00058A 01154   1146
IN002450 00001 0005A0 01162   1157
IN002460 00001 0005D6 01178   1177
IN002470 00001 0005EE 01195   1180
IN002480 00001 00060A 01209   1198  1202
IN002930 00001 000812 01488   1485
BEIN                                         CROSS-REFERENCE                                                   PAGE   25


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IN002940 00001 00085E 01515   1417
IN003030 00001 0017EC 04716   4699
IN003040 00001 001802 04726   4796
IN003050 00001 001816 04734   4730
IN003060 00001 001824 04740   4719
IN003065 00001 001834 04746   4702
IN003067 00001 001850 04757   4748
IN003070 00001 00186E 04772   4812  4819
IN003073 00001 001886 04781   4803
IN003075 00001 001894 04790   4774  4786
IN003080 00001 0018A8 04797   4765
IN003082 00001 0018BE 04806   4799
IN003084 00001 0018D4 04815   4808
IN003090 00001 0018DE 04820   4770  4804  4813
IN003100 00001 000864 01543   0671  0886  1335  1412  1474
IN003110 00001 000868 01546   1524
IN004020 00001 0018EE 04828   5470  5477
IN004025 00001 001916 04863   4856
IN004027 00001 001950 04882   4879
IN004030 00001 0019CC 04935   4953  4961
IN004050 00001 0019E6 04943   4927
IN004060 00001 001A00 04954   4932  4949
IN004065 00001 001A10 04962   4956
IN004070 00001 001A18 04966   4920
IN004080 00001 001A1C 04969   4937
IN004090 00001 001A40 04983   4971  4978
IN004120 00001 001972 04896   4891
IN004220 00001 001976 04898   4894
IN004320 00001 00198C 04909   4903
IN004420 00001 001994 04913   4866
IN004520 00001 00199C 04917   4733  4739  4826
IN005020 00001 001A42 04986   4915  4942  4965  4967
IN005035 00001 001A70 05018   5000  5013
IN005037 00001 001A82 05026   5035
IN005040 00001 001A8E 05031   5023
IN005045 00001 001A98 05036   5033
IN005050 00001 001A9C 05040   5020
IN005055 00001 001AC0 05072   5062
IN005060 00001 001AC8 05077   5058
IN005065 00001 001AE0 05091   5085
IN005066 00001 001AFC 05102   5098
IN005067 00001 001B08 05106   5101
IN005070 00001 001B18 05113   5108
IN005075 00001 001B1C 05116   5090  5135
IN005080 00001 001B2E 05122   5111
IN005090 00001 001B4C 05136   5128
IN006010 00001 001B4E 05138   5131
IN006040 00001 001B5E 05147   5069  5075  5080
IN006043 00001 001B92 05178   5166
IN006045 00001 001B9E 05184   5149
IN006050 00001 001BA6 05188   5121  5146  5153  5169  5183
IN006080 00001 001BD4 05217   5201
IN006085 00001 001BDC 05221   5205  5215
IN006090 00001 001BE0 05225   5209  5220
IN006095 00001 001BFA 05255   5239
BEIN                                         CROSS-REFERENCE                                                   PAGE   26


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IN007000 00001 001C14 05265   5261
IN007010 00001 001C1C 05270   5257
IN007050 00001 001C2C 05289   5284
IN007053 00001 001C48 05301   5295
IN007056 00001 001C56 05309   5304
IN007060 00001 001C72 05321   5318
IN007062 00001 001C7E 05327   5320
IN007070 00001 001CA6 05347   5330
IN007085 00001 001CB0 05354   5334  5338  5342
IN007087 00001 001CC6 05362   5292
IN007090 00001 001CD2 05366   5352
IN008010 00001 001CD6 05368   5346  5365
IN008020 00001 001CEE 05378   5372
IN008030 00001 000888 01561
IN008035 00001 00089C 01589   1582
IN008040 00001 0008B0 01599   1591
IN009010 00001 0008B8 01603   1595
IN009020 00001 0008F2 01622   1623
IN009025 00001 000902 01632   1625
IN009030 00001 000914 01639   1597  1601
IN009060 00001 00094A 01670   1627
IN009065 00001 00095A 01677   1672
IN009067 00001 000962 01683   1636
IN009068 00001 0009BC 01723   1717
IN009070 00001 0009C0 01727   1676  1681  1693
IN009075 00001 000A06 01759   1739
IN009080 00001 000A48 01786   1778
IN009090 00001 000A58 01792   1784
IN010010 00001 000A8E 01817   0386  0398  0465  0730  0742  0779  0797  0815  0830  0898  0930  0957  0974  0993  1009
                              1057  1151  1186  1212  1251  1271  1310  1347  1388  1467
IN01101A 00001 001DCC 05510   5503
IN011010 00001 001DA2 05480   4721  4758
IN011011 00001 001DC2 05506   5498
IN011012 00001 001DE8 05522   5515
IN011013 00001 001DF2 05527   5521
IN011014 00001 001E00 05534   5502  5509
IN011015 00001 001E14 05542   5519  5525
IN011020 00001 001E18 05545   5495  5512  5541
IN012020 00001 000BC0 01941   1939
IN013010 00001 001CF6 05384   4755  4778  4793  4861  4939  5028  5066  5118  5176  5212  5359  5454  5464  5474  5530
IN013020 00001 001D16 05395   5263  5267  5287  5376  5381
IN3ATTN  00002 001158 03081   3026
IN3INS1  00008 000780 06068
IN3INS2  00002 000790 06073   3028  3029  3029  3031
IN3LEN1  00002 00077C 06066
IN3LEN2  00002 00078C 06071   3034
IN3MSIN1 00004 000778 06063
IN3MSIN2 00004 000788 06069
IN3MSLST 00004 00076C 06062   3044  3047  3051
IN3MSPRM 00004 00113C 03069   3044
IN3OFF1  00002 00077E 06067
IN3OFF2  00002 00078E 06072   3036
IN3PT1   00004 000778 06065   3040  3043  3046
IN3PT2   00004 000788 06070   3038  3042
IN3SRINS 00004 001148 03075   3040
BEIN                                         CROSS-REFERENCE                                                   PAGE   27


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IN3WKA   00004 000750 06061
IN300010 00001 001120 03053   3025  3027
IN7DELPS 00001 000080 06032   4359  4410
IN7FLAGS 00001 000710 06031   4306  4309  4336  4359  4410
IN7NOQLF 00001 000040 06034   4306  4336  6036
IN7PLIST 00004 0006F8 06029   4344  4422  4425  4429  4432  4434  4436  4526
IN7QLFCK 00001 0000BF 06036   4309
IN7WKLEN 00001 000019 06038   4284
IN7WORK  00004 0006F8 06028   4284  4284  6038
IN8FLAGS 00001 000711 06040   4697  4723  4760  5511  5531
IN8GOFSW 00001 000080 06045   5511
IN8TERME 00001 000040 06052   4723  4760  5531
IN8ZEROS 00001 000000 06041   4697
IOPL     00001 000000 07966   1869  3657
IOPLECB  00004 000008 07975
IOPLECT  00004 000004 07974
IOPLIOPB 00004 00000C 07976   1869  3657
IOPLUPT  00004 000000 07973
KEND0102 00001 000E11 02359   2357
KEND0105 00001 000E27 02385   2383
KEND0121 00001 000ECB 02520   2516
KEND0124 00001 000EE5 02546   2544
KEND0127 00001 000F01 02573   2569
KEND0130 00001 000F1B 02600   2598
KEND0132 00001 000F2D 02619   2617
KEND0144 00001 000FE7 02777   2773
KEND0148 00001 00100D 02809   2805
KEND0152 00001 001031 02842   2838
KEND0197 00001 00144C 03885   3883
KEND0216 00001 001524 04066   4062
KEND0220 00001 00154A 04098   4094
KEND0224 00001 00156E 04131   4127
KEYW0102 00001 000E0B 02355   2357
KEYW0105 00001 000E21 02381   2383
KEYW0121 00001 000EBE 02514   2516
KEYW0124 00001 000EDF 02542   2544
KEYW0127 00001 000EF7 02567   2569
KEYW0130 00001 000F15 02596   2598
KEYW0132 00001 000F27 02615   2617
KEYW0144 00001 000FDA 02771   2773
KEYW0148 00001 001000 02803   2805
KEYW0152 00001 001026 02836   2838
KEYW0197 00001 001446 03881   3883
KEYW0216 00001 001517 04060   4062
KEYW0220 00001 00153D 04092   4094
KEYW0224 00001 001563 04125   4127
LENREG   00001 000002 00163   0242  0250  0253  0254  0256  0304  0312  0315  0315  0316  0317  0318  0484  0485  0486
                              0486  0491  0492  0498  0500  0501  0509  0511  0512  0565  0583  0592  0597  0599  0601
                              0603  0611  0613  0614  0616  0622  1067  1069  1070  1070  1072  1079  1080  1237  1237
                              1238  1239  1239  1245  1586  1587  1587  1588  1936  1937  1938  3033  3034  3035  3036
                              3037  3037  3038  3042  3043  3046  3047  3514  3515  3516  4295  4297  4299  4304  4310
                              4311  4311  4312  4383  4383  4384  4390  4701  4744  4747  4747  4756  4768  4801  4810
                              4817  4864  4865  4865  4867  4868  4868  4911  4931  4944  4955  4963  5095  5100  5100
                              5126  5126  5130  5137  5141  5157  5162  5240  5242  5247  5251  5315  5319  5319  5328
                              5333  5333  5350  5357  5367  5431
BEIN                                         CROSS-REFERENCE                                                   PAGE   28


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MAABBREV 00001 000040 05949
MACFLAGS 00001 000270 05947
MACFLAG2 00001 000271 05952
MAECTMOD 00001 000080 05948
MAENDPRC 00001 000020 05950
MATABLE1 00001 000080 05953
MSMOD1   00001 000100 03101   3113  3114  3145  3146  3198  3199  3224  3231  3237  3248
MSMOD2   00001 000200 03102   3298  3315  3322  3342  3349  3368
MSMOD3   00001 000300 03103   3308  3396  3413  3419  3446
MSMOD4   00001 000400 03104
MSMOD5   00001 000500 03105   3165  3166  3276
MSMOD6   00001 000600 03106   3123  3134  3176  3185  3191  3217  3457
MSMOD7   00001 000700 03107   3255  3265  3283  3284  3375  3384  3426  3433
MXX0095  00001 000D48 02292   2289
MXX0096  00001 000D51 02297   2294
MXX0097  00001 000D64 02302   2299
MXX0098  00001 000D6D 02307   2304
MXX0168  00001 001157 03079   3076
MXX0254  00001 001E44 05573   5570
MXX0255  00001 001E51 05578   5575
M301     00001 000101 03114
M301IN1  00001 000013 03115
M301U    00001 000100 03113
M3011    00001 000001 03118
M302     00001 000600 03123
M302IN1  00001 000013 03124
M3021    00001 000001 03127
M303     00001 000601 03134
M303IN1  00001 000013 03135
M3031    00001 000001 03138
M304     00001 000105 03146
M304IN1  00001 000013 03147
M304U    00001 000104 03145
M3041    00001 000001 03150   1006
M3041IN1 00001 000028 03151
M3042    00001 000002 03154   0827
M3042IN1 00001 00001D 03155
M3043    00001 000003 03158   0813
M305     00001 000503 03166
M305IN1  00001 000013 03167
M305U    00001 000502 03165
M3051    00001 000001 03170
M306     00001 000602 03176
M306IN1  00001 000013 03177
M3061    00001 000001 03180
M307     00001 000603 03185
M307IN1  00001 000013 03186
M308     00001 000604 03191
M308IN1  00001 000011 03192
M308IN2  00001 000022 03193
M309     00001 00010B 03199
M309IN1  00001 000013 03200
M309U    00001 000110 03198
M3091    00001 000001 03203
M3091IN1 00001 00001A 03204
BEIN                                         CROSS-REFERENCE                                                   PAGE   29


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

M3092    00001 000002 03207
M3092IN1 00001 00001A 03208
M3093    00001 000003 03211   1150
M310     00001 000605 03217
M310IN1  00001 000021 03218
M311     00001 00010D 03224
M311IN1  00001 000011 03225
M311IN2  00001 000020 03226
M312     00001 00010E 03231
M312IN1  00001 00002D 03232
M313     00001 00010F 03237   3070
M3131    00001 000001 03240   1183  3071
M3131IN1 00001 00000A 03241   2290  2300  3077
M3131IN2 00001 000016 03242   2295  2305  3035
M314     00001 000106 03248
M314IN1  00001 000013 03249
M315     00001 000701 03255
M315IN1  00001 000013 03256
M3151    00001 000001 03259   4503
M3151IN1 00001 00001D 03260
M316     00001 000702 03265
M316IN1  00001 000013 03266
M3161    00001 000001 03270
M317     00001 000504 03276
M317IN1  00001 000013 03277
M318     00001 000707 03284
M318IN1  00001 000013 03285
M318U    00001 000706 03283
M3181    00001 000001 03288   0954
M3182    00001 000002 03291   0951
M330     00001 000200 03298
M330IN1  00001 00000A 03299
M330IN2  00001 000024 03300
M3301    00001 000001 03303
M331     00001 000303 03308
M331IN1  00001 000018 03309
M332     00001 000202 03315
M332IN1  00001 00002D 03316
M333     00001 000203 03322
M333IN1  00001 000025 03323
M3331    00001 000001 03326
M3332    00001 000002 03329   4960
M3333    00001 000003 03333   4952
M3334    00001 000004 03337   4934
M334     00001 000204 03342
M334IN1  00001 00000A 03343   5571  5576
M335     00001 000205 03349
M335IN1  00001 000021 03350
M335IN2  00001 000029 03351
M3351    00001 000001 03354
M3351IN1 00001 00000A 03355
M3352    00001 000002 03358
M3352IN1 00001 000018 03359
M3352IN2 00001 000028 03360
M3353    00001 000003 03363   4751
BEIN                                         CROSS-REFERENCE                                                   PAGE   30


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

M336     00001 000206 03368
M336IN1  00001 00000A 03369
M336IN2  00001 000022 03370
M342     00001 000703 03375
M3421    00001 000001 03378
M343     00001 000708 03384
M3431    00001 000001 03387
M3432    00001 000002 03390
M360     00001 000300 03396
M360IN1  00001 000035 03397
M360IN2  00001 000036 03398
M3601    00001 000001 03401   5114
M3602    00001 000002 03404   5134
M3603    00001 000003 03408   5087
M361     00001 000301 03413
M361IN1  00001 00001B 03414
M362     00001 000302 03419
M362IN1  00001 00001C 03420
M363     00001 000704 03426
M363IN1  00001 00000A 03427
M363IN2  00001 000017 03428
M364     00001 000705 03433
M364IN1  00001 00000A 03434
M364IN2  00001 00001D 03435
M3641    00001 000001 03438
M3642    00001 000002 03441
M365     00001 000305 03446
M365IN1  00001 000021 03447
M365IN2  00001 000022 03448
M3651    00001 000001 03451
M424     00001 000606 03457
M4241    00001 000001 03461
M4241IN1 00001 00004A 03462
M4242    00001 000002 03467   1463
M4242IN1 00001 000013 03468
M4242IN2 00001 000043 03469
M4243    00001 000003 03474
M4243IN1 00001 00003F 03475
M4244    00001 000004 03480   1459
M4244IN1 00001 000013 03481
M4244IN2 00001 000038 03482
M4245    00001 000005 03487   1250
M4245IN1 00001 00000F 03488
NAME0103 00001 000E11 02364   2366
NAME0104 00001 000E19 02372   2374
NAME0106 00001 000E27 02390   2392
NAME0107 00001 000E31 02399   2401
NAME0108 00001 000E3B 02407   2409
NAME0109 00001 000E43 02415   2417
NAME0110 00001 000E4C 02423   2425
NAME0111 00001 000E55 02431   2433
NAME0112 00001 000E5F 02439   2441
NAME0113 00001 000E68 02447   2449
NAME0114 00001 000E72 02455   2457
NAME0115 00001 000E7D 02464   2466
BEIN                                         CROSS-REFERENCE                                                   PAGE   31


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

NAME0116 00001 000E8A 02473   2475
NAME0117 00001 000E94 02481   2483
NAME0118 00001 000E9E 02489   2491
NAME0119 00001 000EA9 02497   2499
NAME0120 00001 000EB3 02505   2507
NAME0122 00001 000ECB 02525   2527
NAME0123 00001 000ED6 02533   2535
NAME0125 00001 000EE5 02551   2553
NAME0126 00001 000EEE 02559   2561
NAME0128 00001 000F01 02578   2580
NAME0129 00001 000F0B 02587   2589
NAME0131 00001 000F1B 02605   2607
NAME0133 00001 000F2D 02624   2626
NAME0145 00001 000FE7 02782   2784
NAME0146 00001 000FF2 02790   2792
NAME0149 00001 00100D 02814   2816
NAME0150 00001 001018 02822   2824
NAME0153 00001 001031 02847   2849
NAME0154 00001 00103A 02855   2857
NAME0198 00001 00144C 03890   3892
NAME0199 00001 001456 03899   3901
NAME0200 00001 001460 03907   3909
NAME0201 00001 001468 03915   3917
NAME0202 00001 001471 03923   3925
NAME0203 00001 00147A 03931   3933
NAME0204 00001 001484 03939   3941
NAME0205 00001 00148D 03947   3949
NAME0206 00001 001497 03955   3957
NAME0207 00001 0014A2 03964   3966
NAME0208 00001 0014AF 03973   3975
NAME0209 00001 0014B9 03981   3983
NAME0210 00001 0014C3 03989   3991
NAME0211 00001 0014CE 03997   3999
NAME0212 00001 0014D8 04005   4007
NAME0217 00001 001524 04071   4073
NAME0218 00001 00152F 04079   4081
NAME0221 00001 00154A 04103   4105
NAME0222 00001 001555 04111   4113
NAME0225 00001 00156E 04136   4138
NAME0226 00001 001577 04144   4146
NEND0103 00001 000E19 02369   2366
NEND0104 00001 000E21 02377   2374
NEND0106 00001 000E31 02396   2392
NEND0107 00001 000E3B 02404   2401
NEND0108 00001 000E43 02412   2409
NEND0109 00001 000E4C 02420   2417
NEND0110 00001 000E55 02428   2425
NEND0111 00001 000E5F 02436   2433
NEND0112 00001 000E68 02444   2441
NEND0113 00001 000E72 02452   2449
NEND0114 00001 000E7D 02461   2457
NEND0115 00001 000E8A 02470   2466
NEND0116 00001 000E94 02478   2475
NEND0117 00001 000E9E 02486   2483
NEND0118 00001 000EA9 02494   2491
BEIN                                         CROSS-REFERENCE                                                   PAGE   32


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

NEND0119 00001 000EB3 02502   2499
NEND0120 00001 000EBE 02511   2507
NEND0122 00001 000ED6 02530   2527
NEND0123 00001 000EDF 02538   2535
NEND0125 00001 000EEE 02556   2553
NEND0126 00001 000EF7 02564   2561
NEND0128 00001 000F0B 02584   2580
NEND0129 00001 000F15 02592   2589
NEND0131 00001 000F27 02611   2607
NEND0133 00001 000F38 02630   2626
NEND0145 00001 000FF2 02787   2784
NEND0146 00001 000FFD 02795   2792
NEND0149 00001 001018 02819   2816
NEND0150 00001 001023 02827   2824
NEND0153 00001 00103A 02852   2849
NEND0154 00001 001044 02860   2857
NEND0198 00001 001456 03896   3892
NEND0199 00001 001460 03904   3901
NEND0200 00001 001468 03912   3909
NEND0201 00001 001471 03920   3917
NEND0202 00001 00147A 03928   3925
NEND0203 00001 001484 03936   3933
NEND0204 00001 00148D 03944   3941
NEND0205 00001 001497 03952   3949
NEND0206 00001 0014A2 03961   3957
NEND0207 00001 0014AF 03970   3966
NEND0208 00001 0014B9 03978   3975
NEND0209 00001 0014C3 03986   3983
NEND0210 00001 0014CE 03994   3991
NEND0211 00001 0014D8 04002   3999
NEND0212 00001 0014E3 04011   4007
NEND0217 00001 00152F 04076   4073
NEND0218 00001 00153A 04084   4081
NEND0221 00001 001555 04108   4105
NEND0222 00001 001560 04116   4113
NEND0225 00001 001577 04141   4138
NEND0226 00001 001581 04149   4146
PARMREG0 00001 000000 00152   0223  0245  0286  0438  0491  0500  0511  1165  1232  1280  1319  1326  1326  1411  1411
                              1521  1521  1544  1587  1611  1668  1754  1756  1797  3012  3014  3050  3804  3806  3824
                              4361  4698  4698  4871  4871  4872  4875  4876  4877  4883  4884  4885  4930  4945  4974
                              5124  5157  5157  5244  5247  5429
PARMREG1 00001 000001 00153   0225  0232  0445  1160  1161  1281  1282  1613  1755  1796  1800  1800  3001  3014  3051
                              3499  3510  3636  3658  3805  3838  4273  4362  4363  4363  4368  4379  4682  4693  4727
                              4727  4728  4869  4874  4880  4881  4883  4885  4887  5336  5337
PASSREG  00001 000008 00198   0656  0657  0657  0684  1423  1424  1424  1433  1493  1494  1494  1498  1695  1696  1696
                              1707  4428  4429
PCLREG   00001 000006 00185   0342  0356  1909  1915  3727  3736
PDLREG   00001 000007 00194   0345  0346  0357  1911  1916  3730  3737
PEND0101 00001 000E0B 02348   2343
PGPB     00001 000000 07979   1753  1755  3655  3656  3656  3805  7989
PGPBIBUF 00004 00000C 07987   1753  1755  3728  3805
PNONDISP 00001 000040 07332
POOLSTAR 00001 00002C 06177
POST0101 00001 000DF6 02341   2343
PPL      00001 000000 07452   0345  0349  0349  1913  1913  1915  1916  1917  3733  3733
BEIN                                         CROSS-REFERENCE                                                   PAGE   33


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

PPLANS   00004 000010 07462   0345  1916
PPLCBUF  00004 000014 07463   1917
PPLECB   00004 000008 07460
PPLECT   00004 000004 07459
PPLPCL   00004 00000C 07461   0349  0349  0349  1913  1913  1913  1915  3733  3733  3733
PPLUPT   00004 000000 07458
PPLUWA   00004 000018 07464   0349  0349  1913  1913  3733  3733
PSCB     00001 000000 07991
PSCBACCT 00001 000040 08007
PSCBATR1 00001 000010 08005
PSCBATR2 00001 000012 08011
PSCBCPU  00004 000014 08013
PSCBCTRL 00001 000080 08006
PSCBGPNM 00008 000008 08002
PSCBJCL  00001 000020 08008
PSCBLTIM 00004 00001C 08015
PSCBRLGB 00004 000030 08024
PSCBRSZ  00004 00003C 08028
PSCBSWP  00004 000018 08014
PSCBTCON 00004 000028 08020
PSCBTCO1 00004 00002C 08022
PSCBTCPU 00004 000020 08016
PSCBTSWP 00004 000024 08018
PSCBU    00008 000040 08029
PSCBUPT  00004 000034 08025
PSCBUPTL 00002 000038 08026
PSCBUSER 00007 000000 08000
PSCBUSRL 00001 000007 08001
QUALREG  00001 000004 00176   4299  4301  4303  4362  4382  4384  4385  4431  4432  4436  4437  4555
RCODE12  00001 00000C 02152
RCODE4   00001 000004 02150   3831
RETCDREG 00001 00000F 00211   0262  0264  0265  0266  0268  0268  0269  0368  0396  0442  0442  0531  0547  0547  0702
                              0702  0705  0708  0713  0728  1103  1103  1169  1279  1282  1286  1308  1442  1442  1445
                              1449  1452  1454  1507  1507  1556  1556  1623  1664  1664  1716  1716  1719  1929  1929
                              3023  3023  3026  3028  3049  3052  3509  3509  3519  3673  3692  3751  3751  3754  3758
                              3771  3828  3828  3831  3841  3841  4349  4349  4366  4366  4416  4416  4447  4448  4450
                              4450  4471  4515  4534  4794  4794  4855  4855  4859  4888  4906  4906  4912  4940  4940
                              4980  4981  5011  5011  5032  5032  5067  5067  5119  5119  5213  5213  5360  5360  5409
                              5412  5412  5465  5465  5475  5475
RETREG   00001 00000E 00207   1799  3052  4743  4870  4874  4875  4877  4886  4887  4899  4900  4901  4902  4902  4908
                              4908  4910  4911  4925  4944  4945  4947  4948  4948  4973  4974  4976  4977  4977  5094
                              5105  5314  5326  5432
SAVEREG  00001 00000D 00206   0264  0265  0266  1796  1797  1797  1799  1878  1878
SIZEREG  00001 000003 00170   0244  0245  0250  0256  0261  0305  0308  0311  1065  1072  1074  1080  1081  4742  4767
                              4768  4782  4784  4784  4787  4792  4800  4801  4809  4810  4816  4817  4850  4851  4888
                              4910  4924  4929  4930  4930  4931  4946  4947  4975  4976  5093  5104  5123  5124  5124
                              5125  5130  5137  5155  5162  5163  5163  5179  5297  5297  5298  5299  5306  5307  5312
                              5324  5429  5430  5537  5538
SRRTNREG 00001 000008 00199   0884  1200  1956  4721  4758  5533  5546
SRTEALOC 00001 000008 06387
SRTEASCI 00001 000004 06504   6505
SRTEBALB 00001 000020 06500
SRTEBJLB 00001 000002 06507
SRTEBNUL 00001 000001 06508
SRTEBPRV 00001 000010 06501
BEIN                                         CROSS-REFERENCE                                                   PAGE   34


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SRTEBPUB 00001 000008 06502
SRTEBSTR 00001 000004 06503   6506
SRTEBSVL 00001 000080 06498
SRTEBVQS 00001 000004 06506
SRTEBVSC 00001 000040 06499
SRTECHGS 00001 000040 06384
SRTEDADI 00001 000001 06390
SRTEDMCT 00001 000023 06509
SRTEECBA 00003 000039 06513
SRTEFSCT 00002 000024 06510
SRTEFSEQ 00002 000026 06511
SRTEJBNR 00001 000000 06380
SRTEMNT  00001 000001 06381
SRTEONLI 00001 000080 06383
SRTEPRES 00001 000004 06388
SRTERESV 00001 000020 06385
SRTESTAB 00001 000022 06497
SRTESTAT 00001 000003 06382
SRTESYSR 00001 000002 06389
SRTEUNLD 00001 000010 06386
SRTEUSER 00001 000038 06512
SRTEVOLI 00006 00001C 06496   1274
STRTNREG 00001 000005 00182   5095  5107  5110  5125  5139  5315  5328  5337  5340  5343  5348  5355
SUBPOOL  00001 000001 02154   0228  1882
TABPTREG 00001 000003 00172
TCB      00001 000000 07029   1234
TCBABD   00001 000080 07347
TCBABE   00001 000001 07355
TCBABF   00001 000014 07049
TCBABTER 00001 000040 07361
TCBABTRM 00001 000020 07114
TCBABWF  00001 000040 07147
TCBAQE   00004 00009C 07281
TCBATT   00001 000020 07245
TCBCDBL  00001 000008 07042
TCBCIND  00001 000002 07044
TCBCMP   00004 000010 07035
TCBCMPC  00003 000011 07046
TCBCMPF  00001 000010 07036
TCBCMSG  00001 000001 07045
TCBCPP   00001 000020 07039
TCBCPUBN 00001 000001 07250
TCBCREQ  00001 000080 07037
TCBCSTEP 00001 000040 07038
TCBCWTO  00001 000004 07043
TCBDAR   00001 0000AC 07303
TCBDARC  00001 000010 07312
TCBDARD  00001 000020 07309
TCBDARMC 00001 000010 07314
TCBDARO  00001 000008 07317
TCBDAROL 00001 000008 07319
TCBDARP  00001 000080 07304
TCBDARPN 00001 000040 07330   7332
TCBDARS  00001 000040 07306
TCBDARTN 00001 000080 07327   7329
BEIN                                         CROSS-REFERENCE                                                   PAGE   35


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBDARWT 00001 000004 07321
TCBDDRND 00001 000008 07339
TCBDEB   00004 000008 07033
TCBDSP   00001 000023 07166
TCBDWSTA 00001 000001 07129
TCBDYDSP 00001 000002 07248
TCBECB   00004 000090 07239
TCBEXSVC 00001 000001 07322
TCBFA    00001 000080 07070
TCBFC    00001 000080 07146
TCBFCD1  00001 000002 07159
TCBFDSOP 00001 000004 07102
TCBFE    00001 000040 07071
TCBFERA  00001 000020 07072
TCBFETXR 00001 000002 07105
TCBFIX   00001 000000 07019
TCBFJMC  00001 000008 07100
TCBFLAG  00001 0000F0 07066
TCBFLGS  00005 00001D 07068
TCBFLGS1 00001 00001D 07069
TCBFLGS2 00001 00001E 07089
TCBFLGS3 00001 00001F 07108
TCBFLGS4 00001 000020 07131
TCBFLGS5 00001 000021 07145
TCBFLREG 00001 000008 07121
TCBFOINP 00001 000080 07090
TCBFRA   00001 000020 07096
TCBFRI   00001 000040 07111
TCBFRO   00001 000010 07154
TCBFRS   00032 000000 07021
TCBFRS0  00008 000000 07022
TCBFRS2  00008 000008 07023
TCBFRS4  00008 000010 07024
TCBFRS6  00008 000018 07025
TCBFS    00001 000002 07084
TCBFSA   00004 000070 07200
TCBFSAB  00003 000071 07205
TCBFSM   00001 000080 07109
TCBFSMC  00001 000010 07098
TCBFSTI  00001 000040 07094
TCBFT    00001 000004 07080
TCBFTCOM 00001 000002 07271
TCBFTDUM 00001 000004 07277
TCBFTETX 00001 000002 07275
TCBFTFLG 00003 000099 07268
TCBFTFL1 00001 000099 07269
TCBFTFL2 00001 00009A 07273
TCBFTFL3 00001 00009B 07276
TCBFTLMP 00001 000098 07267
TCBFTOPN 00001 000004 07274
TCBFTS   00001 000001 07106
TCBFTSYN 00001 000001 07272
TCBFTTOP 00001 000004 07270
TCBFX    00001 000001 07087
TCBGRPH  00001 000020 07053
BEIN                                         CROSS-REFERENCE                                                   PAGE   36


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBGRS   00064 000030 07183
TCBGRS0  00004 000030 07184
TCBGRS1  00004 000034 07185
TCBGRS10 00004 000058 07194
TCBGRS11 00004 00005C 07195
TCBGRS12 00004 000060 07196
TCBGRS13 00004 000064 07197
TCBGRS14 00004 000068 07198
TCBGRS15 00004 00006C 07199
TCBGRS2  00004 000038 07186
TCBGRS3  00004 00003C 07187
TCBGRS4  00004 000040 07188
TCBGRS5  00004 000044 07189
TCBGRS6  00004 000048 07190
TCBGRS7  00004 00004C 07191
TCBGRS8  00004 000050 07192
TCBGRS9  00004 000054 07193
TCBGTOFM 00001 000010 07075
TCBHALT  00001 000008 07291
TCBIOBRC 00004 0000BC 07371
TCBIQE   00004 00008C 07237
TCBIWAIT 00001 000008 07353
TCBJLB   00004 000028 07171
TCBJPQ   00004 00002C 07172
TCBJPQB  00003 00002D 07179
TCBJPQF  00001 000080 07178
TCBJSCB  00004 0000B4 07365
TCBJSCBB 00003 0000B5 07369
TCBJSTCA 00003 00007D 07226
TCBJSTCB 00004 00007C 07209
TCBLLS   00004 000024 07167
TCBLMP   00001 000022 07162
TCBLTC   00004 000088 07235
TCBMDIDS 00004 0000B0 07363
TCBMOD91 00001 000080 07050
TCBMPCND 00001 000002 07140
TCBMPCVQ 00001 000004 07139
TCBMSS   00004 000018 07059
TCBMSSB  00003 000019 07063
TCBNDSP1 00001 0000AD 07326
TCBNDSP2 00001 0000AE 07346
TCBNDSP3 00001 0000AF 07358
TCBNDSVC 00001 000020 07350
TCBNDTS  00001 000010 07352
TCBNDUMP 00001 000080 07133
TCBNOCHK 00001 000040 07051
TCBNROC  00001 000018 07061
TCBNSTAE 00001 0000A0 07284
TCBNTC   00004 000080 07230
TCBOLTEP 00001 000002 07056
TCBONDSP 00001 000001 07142
TCBOTC   00004 000084 07233
TCBOWAIT 00001 000004 07354
TCBPART  00001 0000C0 07214
TCBPDUMP 00001 000008 07079
BEIN                                         CROSS-REFERENCE                                                   PAGE   37


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBPIBT  00001 00007C 07213
TCBPIE   00004 000004 07032
TCBPKCHG 00001 000002 07125
TCBPKF   00001 00001C 07065
TCBPNDSP 00001 000001 07160
TCBPOOL  00001 000004 07082
TCBPQE   00004 000098 07260   7265
TCBPURGE 00001 00002C 07176
TCBQEL   00001 000070 07201
TCBQUIES 00001 000040 07286
TCBRBP   00004 000000 07031
TCBREC   00001 000080 07367
TCBRECDE 00001 0000B4 07366
TCBRETRY 00001 000002 07294
TCBRQENA 00001 000020 07135
TCBRSPND 00001 000010 07335
TCBRSTND 00001 000020 07333
TCBRV001 00004 0000B8 07370
TCBSCAT  00001 000010 07289
TCBSCH   00001 000004 07123
TCBSCHED 00001 000001 07224
TCBSCNDY 00003 0000AD 07323
TCBSER   00001 000040 07134
TCBSIZE  00001 000020 07220
TCBSTAB  00004 0000A0 07283
TCBSTABB 00003 0000A1 07298
TCBSTABE 00001 000080 07285
TCBSTOP  00001 000010 07221
TCBSTP   00001 000004 07157
TCBSTPCT 00001 000095 07252
TCBSTPP  00001 000040 07349
TCBSTPPR 00001 000040 07243
TCBSUPER 00001 000004 07293
TCBSXPK0 00001 000010 07119
TCBSYS   00001 000008 07155
TCBTCB   00004 000074 07206
TCBTCP   00001 000004 07055
TCBTCPP  00001 000008 07054
TCBTCT   00004 0000A4 07299
TCBTCTB  00003 0000A5 07301
TCBTCTRM 00001 000001 07128
TCBTERM  00001 000080 07359
TCBTIO   00004 00000C 07034   1234
TCBTIOTG 00001 000010 07247
TCBTME   00004 000078 07208
TCBTPSP  00001 000004 07342
TCBTRN   00004 000014 07048
TCBTRNB  00003 000015 07058
TCBTSDP  00001 000097 07256
TCBTSFLG 00001 000094 07241
TCBTSLP  00001 000096 07255
TCBTSTSK 00001 000080 07242
TCBUSER  00004 0000A8 07302
TCBUXNDF 00001 000040 07148
TCBUXNDV 00001 000008 07136
BEIN                                         CROSS-REFERENCE                                                   PAGE   38


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBVALID 00001 000001 07296
TCBWFC   00001 000020 07152
TCBWRITE 00001 000002 07223
TCBXCTL  00001 000020 07288
TCBZERO  00001 00000F 07067
TIOCNJOB 00008 000000 06101
TIOCSTEP 00016 000008 06102
TIOEDDNM 00008 00001C 06143   1242
TIOEDYNM 00001 000010 06139
TIOEFSRT 00003 000029 06175   1254
TIOEJFCB 00003 000024 06144
TIOELINK 00001 00001B 06130
TIOELNGH 00001 000018 06112   1238
TIOENTRY 00001 000018 06111
TIOEQNAM 00001 000008 06140
TIOERLOC 00002 00001A 06126
TIOESTTA 00001 000019 06113
TIOESTTB 00001 000028 06166
TIOESTTC 00001 000027 06145
TIOEWTCT 00001 00001A 06127
TIOPNSLT 00001 00002D 06179
TIOPNSRT 00001 00002F 06181
TIOPPOOL 00008 000030 06183
TIOPSLOT 00003 000039 06185
TIOPSTTB 00001 000038 06184
TIOSAFFP 00001 000020 06148
TIOSAFFS 00001 000010 06149
TIOSBALP 00001 000002 06152
TIOSBALS 00001 000001 06153
TIOSDADS 00001 000008 06118
TIOSDEFR 00001 000040 06147
TIOSDKCR 00001 000080 06146
TIOSDSP1 00001 000002 06120
TIOSDSP2 00001 000001 06121
TIOSJBLB 00001 000010 06117
TIOSLABL 00001 000004 06119
TIOSLTYP 00001 000080 06114
TIOSMNTD 00001 000004 06172
TIOSPLTP 00001 000040 06115
TIOSPLTS 00001 000020 06116
TIOSPVIO 00001 000020 06169
TIOSREQD 00001 000040 06168
TIOSSETU 00001 000008 06171
TIOSUNLD 00001 000002 06173
TIOSUSED 00001 000080 06167
TIOSVERF 00001 000001 06174
TIOSVLSR 00001 000010 06170
TIOSVOLP 00001 000008 06150
TIOSVOLS 00001 000004 06151
TIOSYOUT 00001 000080 06136
TIOTFEND 00004 00003C 06186
TIOTOPEN 00001 000040 06137
TIOTTERM 00001 000020 06138
TIOT1    00001 000000 06100
TMPCDREG 00001 000006 00187   1169  1177  1828
BEIN                                         CROSS-REFERENCE                                                   PAGE   39


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TMPREG   00001 000006 00186   4296  4297  4312  4421  4422  4427  4428
TNONDISP 00001 000080 07329
TYPNOREG 00001 000006 00189
UCBACU   00001 000080 06777
UCBALOC  00001 000008 06289   6387
UCBALTCU 00001 000002 06281
UCBALTPH 00001 000001 06282
UCBASCI  00001 000004 06505
UCBASDEP 00001 000080 06375
UCBASNDE 00001 000001 06483
UCBATI   00001 00000B 06327
UCBBALB  00001 000020 06423   6500
UCBBJLB  00001 000002 06431   6507
UCBBNUL  00001 000001 06432   6508
UCBBPRV  00001 000010 06427   6501
UCBBPUB  00001 000008 06428   6502
UCBBSTR  00001 000004 06429   6503  6504
UCBBSVL  00001 000080 06418   6498
UCBBTA   00004 000024 06580
UCBBTB   00003 000025 06584
UCBBUSYD 00001 000080 06303
UCBBVSC  00001 000040 06422   6499
UCBCELLS 00160 000038 06534
UCBCELL0 00016 000038 06535
UCBCELL1 00016 000048 06536
UCBCELL2 00016 000058 06537
UCBCELL3 00016 000068 06538
UCBCELL4 00016 000078 06539
UCBCELL5 00016 000088 06540
UCBCELL6 00016 000098 06541
UCBCELL7 00016 0000A8 06542
UCBCELL8 00016 0000B8 06543
UCBCELL9 00016 0000C8 06544
UCBCHA   00001 000004 06295
UCBCHANA 00001 00000F 06300
UCBCHGS  00001 000040 06286   6384
UCBCLN   00002 000016 06698
UCBCRDDC 00001 000000 06724
UCBCRECC 00001 000002 06726
UCBCRILC 00001 000001 06725
UCBCRWKA 00004 000018 06596
UCBCSWSA 00008 000018 06713
UCBDA    00001 000000 06664
UCBDADI  00001 000001 06293   6390
UCBDALOC 00001 000008 06632
UCBDASD  00016 000028 06526
UCBDAV   00001 0000F8 06460
UCBDBBNR 00002 000038 06614   6646
UCBDBJLB 00001 000002 06624
UCBDBNUL 00001 000001 06625
UCBDBPRS 00001 000020 06618
UCBDBPRV 00001 000010 06621
UCBDBPUB 00001 000008 06622
UCBDBSTR 00001 000004 06623
UCBDBSVL 00001 000080 06617
BEIN                                         CROSS-REFERENCE                                                   PAGE   40


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBDC    00004 0000D8 06545
UCBDCELL 00016 000038 06612   6645
UCBDCLL  00001 000038 06608
UCBDDMCT 00001 000043 06636   6651
UCBDDMNT 00001 000080 06638
UCBDEM   00001 000002 06269
UCBDEV   00001 000018 06397   6406  6520  6555  6571  6592
UCBDHIO  00001 000010 06299
UCBDI    00001 000024 06581
UCBDJBNR 00001 000042 06635   6650
UCBDMC   00001 00007F 06438
UCBDMCT  00001 000023 06435   6509
UCBDNORM 00001 000080 06628
UCBDPRES 00001 000004 06633
UCBDRESV 00001 000020 06630
UCBDSNS  00001 000020 06298
UCBDSTAB 00001 00003A 06615   6647
UCBDSTAT 00001 00003B 06626   6648
UCBDTI   00001 000007 06320
UCBDUNLD 00001 000010 06631
UCBDUSER 00001 000047 06643   6653
UCBDVOLI 00006 00003C 06634   6649
UCBDVPWR 00001 000001 06360
UCBDVRES 00001 000029 06448
UCBDVSHR 00001 000080 06419
UCBDVTOC 00003 000044 06642   6652
UCBECBA  00003 000039 06491   6513
UCBECBB  00004 000038 06489
UCBERADR 00004 00000C 06752
UCBERCNT 00001 000007 06749
UCBERG   00002 000014 06697
UCBERP   00040 000068 06669
UCBERPA  00012 00001C 06525
UCBERPC  00001 000010 06480
UCBERR   00001 000001 06318
UCBESV   00001 000080 06476
UCBESVC  00001 000020 06478
UCBESVE  00001 000008 06481
UCBETI   00001 000008 06321
UCBEVA   00001 000040 06477
UCBEXT   00004 00003C 06492
UCBEXTSN 00001 000008 06278
UCBFCBID 00004 000008 06751
UCBFCBOP 00001 000005 06745
UCBFCBO1 00001 000080 06747
UCBFL1   00001 000006 06302   6391
UCBFL2   00001 000006 06391
UCBFL3   00001 000000 06776
UCBFL4   00001 00002C 06459
UCBFL5   00001 000001 06273
UCBFL7   00001 000016 06373
UCBFSCT  00002 000024 06440   6510
UCBFSEQ  00002 000026 06441   6511
UCBFSER  00008 000028 06442
UCBFT    00001 000020 06463
BEIN                                         CROSS-REFERENCE                                                   PAGE   41


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBGCB   00001 00001B 06577
UCBHIO   00001 000080 06296
UCBHIOA  00001 000010 06779
UCBHIOB  00001 000020 06778
UCBID    00001 000002 06283   1256
UCBIN    00001 000080 06329
UCBINTER 00001 000010 06307
UCBIPL   00001 000001 06793
UCBJBNR  00001 000000 06264   6380
UCBKEY   00001 0000F0 06265
UCBLCI   00001 00000A 06325
UCBLTS   00002 000014 06370
UCBMNT   00001 000080 06461
UCBMOD   00001 000040 06297
UCBMONT  00001 000001 06271   6381
UCBMOUNT 00001 000080 06436
UCBMPFLG 00001 000003 06784
UCBMS    00001 000013 06695
UCBMT    00001 000000 06678
UCBM65MP 00001 000000 06772
UCBNALOC 00001 000004 06280
UCBNAME  00003 00000D 06338
UCBNB    00001 000012 06694
UCBNBRSN 00001 000018 06559
UCBNOA   00001 000001 06782
UCBNOB   00001 000002 06781
UCBNOTRC 00001 000008 06310
UCBNOTRD 00001 000040 06304
UCBNRO   00001 000004 06789
UCBOB    00001 000000 06260   1256  1260
UCBONLI  00001 000080 06285   6383
UCBOPEN  00001 00001A 06576
UCBOR    00001 000000 06720
UCBORCNT 00001 000007 06467
UCBORSVA 00004 00002C 06456
UCBORSVB 00003 00002D 06469
UCBOUT   00001 000040 06330
UCBOVFLW 00040 000090 06670
UCBPATH  00001 00000F 06333
UCBPATH0 00001 000008 06334
UCBPATH1 00001 000004 06335
UCBPATH2 00001 000002 06336
UCBPATH3 00001 000001 06337
UCBPR    00001 000010 06692
UCBPRES  00001 000004 06290   6388
UCBPROC  00001 000002 06792
UCBPRSRS 00001 000020 06424
UCBPUB   00001 000020 06331
UCBPW    00001 000011 06693
UCBRCCW1 00008 000000 06710
UCBRCCW2 00008 000008 06711
UCBRCCW3 00008 000010 06712
UCBRESV  00001 000020 06287   6385
UCBREW   00001 000010 06332
UCBRIC   00001 000020 06785
BEIN                                         CROSS-REFERENCE                                                   PAGE   42


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBRNIC  00001 000010 06787
UCBROR   00008 000000 06682
UCBRQESV 00002 00002A 06451
UCBSEN   00004 000018 06524
UCBSENS  00002 000018 06575
UCBSENSA 00003 000019 06414
UCBSENSB 00004 000018 06412
UCBSENSE 00004 000018 06410
UCBSENSN 00001 000018 06413
UCBSIO   00002 00000E 06691
UCBSIOB  00001 000008 06780
UCBSKA   00008 000030 06472
UCBSNADR 00003 000019 06560
UCBSNINF 00001 000000 06761
UCBSNS   00002 000016 06371
UCBSNSXT 00006 000000 06765
UCBSQC   00001 000028 06446
UCBSTAB  00001 000022 06417   6497
UCBSTART 00004 000020 06579
UCBSTAT  00001 000003 06284   6382
UCBSTI   00001 000009 06323
UCBSTS   00001 000006 06311
UCBSYSR  00001 000002 06291   6389
UCBTBYT1 00001 000010 06340
UCBTBYT2 00001 000011 06349
UCBTBYT3 00001 000012 06362   1268
UCBTBYT4 00001 000013 06369
UCBTCC   00001 000010 06464
UCBTCERP 00024 000000 06709
UCBTCR   00001 000000 06705
UCBTEB   00004 00001C 06578
UCBTEPDC 00001 000008 06267
UCBTICBT 00001 000020 06274
UCBTR    00001 00000C 06689
UCBTRT   00001 00000A 06685
UCBTW    00001 00000D 06690
UCBTWT   00001 00000B 06687
UCBTYP   00004 000010 06339
UCBUA    00001 000005 06301
UCBUCS   00001 000000 06735
UCBUCSID 00004 000000 06739
UCBUCSOP 00001 000004 06740
UCBUCSO1 00001 000080 06742
UCBUCSO2 00001 000040 06743
UCBUCSPE 00001 000001 06744
UCBUNLD  00001 000010 06288   6386
UCBUSER  00001 000038 06490   6512  6606
UCBUSING 00001 000020 06305
UCBVER   00001 000008 06466
UCBVLPWR 00001 000002 06357
UCBVOLI  00006 00001C 06416   6496
UCBVOPT  00001 000030 06475
UCBVSDR  00001 000010 06277
UCBVTOC  00004 000024 06439
UCBVVRTN 00001 000040 06462
BEIN                                         CROSS-REFERENCE                                                   PAGE   43


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

UCBWGT   00001 00000C 06328
UCBWKADA 00004 0000D8 06547
UCBWKADB 00004 00003C 06494
UCBXTADR 00004 00001C 06563
UCBXTN   00004 000030 06474
UCBXTNB  00003 000031 06485
UCB1FEA0 00001 000080 06341
UCB1FEA1 00001 000040 06342
UCB1FEA2 00001 000020 06343
UCB1FEA3 00001 000010 06344
UCB1FEA4 00001 000008 06345
UCB1FEA5 00001 000004 06346
UCB1FEA6 00001 000002 06347
UCB1FEA7 00001 000001 06348
UCB2OPT0 00001 000080 06350
UCB2OPT1 00001 000040 06351
UCB2OPT2 00001 000020 06352
UCB2OPT3 00001 000010 06353
UCB2OPT4 00001 000008 06354
UCB2OPT5 00001 000004 06355
UCB2OPT6 00001 000002 06356
UCB2OPT7 00001 000001 06359
UCB3CHAR 00001 000004 06368
UCB3COMM 00001 000040 06364
UCB3DACC 00001 000020 06365   1268
UCB3DCEL 00001 000005 06801
UCB3DISP 00001 000010 06366
UCB3TAPE 00001 000080 06363
UCB3UREC 00001 000008 06367
UPTREG   00001 000002 00165   0337  0352
X1       00001 000001 02105   0573  0582  0591  0601  0633  1319  1971



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =    24      SOURCE RECORDS (SYSLIB) = 16183
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
10652 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.TSOGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21TA48.R0000185      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21TA48.S0000186      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21TA48.S0000186      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG49    / START 78240.1945
IEF374I STEP /SG49    / STOP  78240.1945 CPU   0MIN 04.50SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:49.88   ALLOC START    19:45:49.89   MAIN REGION ----- 300K                          *
*   STEP NAME SG49       STEP END TIME  19:45:54.72   PGM START TIME 19:45:49.97   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:04.84   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:04.50   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ---------- 456       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0    *
*   0151 ---------- 323       0151 ---------- 494       0151 --------- 1930       0159 --------- 1332       0151 ---------- 238    *
*   0130 ----------- 26                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21TA48  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:54.74   ALLOC START    19:45:54.75   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:54.77   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.TSOGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21TA48 / START 78240.1945
IEF376I  JOB /R21TA48 / STOP  78240.1945 CPU   0MIN 04.50SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21TA48    JOB READ TIME 19:45:03.96   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:04.50   *
*   JOB CLASS A          JOB INIT TIME 19:45:49.88   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:04.91   *
*   ACCOUNT              JOB END TIME  19:45:54.79   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     TTTTTTTT       A           44     9999999                             A
            RRRRRRRRR  222222222      11     TTTTTTTT      AAA         444    999999999                           AAA
            RR     RR  22     22     111        TT        AA AA       4444    99     99                          AA AA
            RR     RR        22       11        TT       AA   AA     44 44    99     99                         AA   AA
            RRRRRRRRR       22        11        TT      AA     AA   44  44    999999999                        AA     AA
            RRRRRRRR       22         11        TT      AA     AA  44   44     9999999                         AA     AA
            RR  RR        22          11        TT      AAAAAAAAA  444444444       99                          AAAAAAAAA
            RR   RR      22           11        TT      AAAAAAAAA  444444444      99                           AAAAAAAAA
            RR    RR    22222222    111111      TT      AA     AA       44       99                            AA     AA
            RR     RR  222222222    111111      TT      AA     AA       44      99                             AA     AA

***********A  START   R21TA49    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA49    START  A***********
***********A  START   R21TA49    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA49    START  A***********
***********A  START   R21TA49    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA49    START  A***********
***********A  START   R21TA49    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA49    START  A***********
***********A  START   R21TA49    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21TA49    START  A***********


//R21TA49 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG50 EXEC PGM=IEUASM,
//    PARM=(DECK,NOLOAD),COND=(4,LT),REGION=300K
//SYSLIB DD DSNAME=SYS1.TSOGEN,DISP=(SHR,PASS)
//  DD DSN=SYS1.MODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.MODGEN2,DISP=(SHR,PASS)
//  DD DSNAME=SYS1.TSOMAC,DISP=(SHR,PASS),VOLUME=(,RETAIN)
// DD DSNAME=SYS1.DMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT1
//SYSUT2 DD DISP=OLD,VOLUME=(,RETAIN),LABEL=(,SL),DSNAME=SYS1.SYSUT2
//SYSUT3 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(CYL,(20,10),RLSE),
//            DCB=(RECFM=FB,LRECL=121,BLKSIZE=968),                   X
//            SYSOUT=A
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS(IKJEFF65)
//SYSIN DD *
IEF236I ALLOC. FOR R21TA49  SG50
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 250   ALLOCATED TO
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.45  8/28/78


IKJEFF65  SD  01 000000 000020
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      1      PRINT  ON,NODATA
                                      2    SGIKJ0EF CLASS=AA
                                      3+**********************************************************************
                                      4+***  THIS MODULE CONSISTS OF TWO PDE'S THAT ARE USED BY THE TSO OUTPUT
                                      5+***  COMMAND. THE CSECT IS CREATED AT SYSGEN TIME BY SYSGEN MACRO
                                      6+***  SGIKJ0EF FROM INFORMATION PASSED TO IT THROUGH THE TYPE I AND
                                      7+***  TYPE II SYSGEN MACROS. THE CONTENTS OF THIS CSECT COMPRISE TWO
                                      8+***  PDE'S THAT HOLD THE OUTPUT CLASSES FOR MESSAGES AND REGULAR
                                      9+***  PRINTOUT FOR TSO JOBS THAT ARE RUN IN THE BACKGROUND BUT INITIATED
                                     10+***  IN THE FOREGROUND.
                                     11+***  THE FIRST PDE (SMBCLASS) REFLECTS THE OUTPUT MESSAGE CLASS. THE
                                     12+***  SECOND PDE (DSBCLASS) REFLECTS THE OUTPUT PRINT CLASS.
                                     13+***********************************************************************
000000                               14+IKJEFF65 CSECT
000000 C1                            15+SMBCLASS DC    C'A' MESSAGE CLASS
000001 C1                            16+DSBCLASS DC    C'A' PRINTOUT CLASS
000008                               17+         DS    0D
000008 00000000                      18+         DC    A(SMBCLASS)
00000C 0001                          19+         DC    H'1'
00000E 80                            20+         DC    X'80'
00000F 00                            21+         DC    X'00'
000010 FF000000                      22+         DC    X'FF000000'
000014 00000001                      23+DSBPDE   DC    A(DSBCLASS)
000018 0001                          24+         DC    H'1'
00001A 80                            25+         DC    X'80'
00001B 00                            26+         DC    X'00'
00001C FF000000                      27+         DC    X'FF000000'
                                     28  END
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000008
   01       01      0C     000014
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DSBCLASS 00001 000001 00016   0023
DSBPDE   00004 000014 00023
IKJEFF65 00001 000000 00014
SMBCLASS 00001 000000 00015   0018



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =     3      SOURCE RECORDS (SYSLIB) =    46
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
   48 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.TSOGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  PASSED
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.SYSUT1                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT2                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21TA49.R0000187      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21TA49.S0000188      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21TA49.S0000188      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG50    / START 78240.1945
IEF374I STEP /SG50    / STOP  78240.1945 CPU   0MIN 00.12SEC MAIN 300K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:54.82   ALLOC START    19:45:54.82   MAIN REGION ----- 300K                          *
*   STEP NAME SG50       STEP END TIME  19:45:55.09   PGM START TIME 19:45:54.91   MAIN STORAGE ---- 300K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.27   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0250 ------------ 3       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0       0250 ------------ 0    *
*   0151 ----------- 11       0151 ----------- 11       0151 ----------- 10       0353 ------------ 7       0151 ------------ 5    *
*   0130 ------------ 5                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21TA49  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:55.11   ALLOC START    19:45:55.12   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:55.15   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   SYS1.TSOGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.MODGEN2                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TSOMAC                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF375I  JOB /R21TA49 / START 78240.1945
IEF376I  JOB /R21TA49 / STOP  78240.1945 CPU   0MIN 00.12SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21TA49    JOB READ TIME 19:45:04.18   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.12   *
*   JOB CLASS A          JOB INIT TIME 19:45:54.82   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.34   *
*   ACCOUNT              JOB END TIME  19:45:55.16   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  555555555    00000                              A
            RRRRRRRRR  222222222      11     LL         KK    KK   555555555   0000000                            AAA
            RR     RR  22     22     111     LL         KK   KK    55         00     00                          AA AA
            RR     RR        22       11     LL         KK  KK     55555555   00    000                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK      555555555  00   0 00                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK             55  00  0  00                        AA     AA
            RR  RR        22          11     LL         KKK KK            55  00 0   00                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    55     55  000    00                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   555555555   0000000                         AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   5555555     00000                          AA     AA

***********A  START   R21LK50    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK50    START  A***********
***********A  START   R21LK50    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK50    START  A***********
***********A  START   R21LK50    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK50    START  A***********
***********A  START   R21LK50    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK50    START  A***********
***********A  START   R21LK50    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK50    START  A***********


//R21LK50 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG51 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK50  SG51
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI555
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE CI555(IKJEAD00)
IEW0000      ALIAS IKJEAD01
IEW0000      NAME IKJEAD00(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEAD00      00    15D7
                                        IKJEAD01       C


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      15D8

****IKJEAD00  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJEAD01  IS AN ALIAS FOR THIS MEMBER




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK50.R0000189      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK50.S0000190      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK50.S0000190      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG51    / START 78240.1945
IEF374I STEP /SG51    / STOP  78240.1945 CPU   0MIN 00.06SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:55.19   ALLOC START    19:45:55.19   MAIN REGION ----- 256K                          *
*   STEP NAME SG51       STEP END TIME  19:45:55.36   PGM START TIME 19:45:55.26   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.17   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0130 ------------ 5       0150 ------------ 7       0250 ----------- 16       0151 ------------ 0    *
*   0130 ------------ 4                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK50  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:55.39   ALLOC START    19:45:55.40   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:55.42   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK50 / START 78240.1945
IEF376I  JOB /R21LK50 / STOP  78240.1945 CPU   0MIN 00.06SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK50    JOB READ TIME 19:45:04.28   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.06   *
*   JOB CLASS A          JOB INIT TIME 19:45:55.19   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.24   *
*   ACCOUNT              JOB END TIME  19:45:55.43   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  555555555       1                               A
            RRRRRRRRR  222222222      11     LL         KK    KK   555555555      11                              AAA
            RR     RR  22     22     111     LL         KK   KK    55            111                             AA AA
            RR     RR        22       11     LL         KK  KK     55555555       11                            AA   AA
            RRRRRRRRR       22        11     LL         KK KK      555555555      11                           AA     AA
            RRRRRRRR       22         11     LL         KKKKK             55      11                           AA     AA
            RR  RR        22          11     LL         KKK KK            55      11                           AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    55     55      11                           AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   555555555    111111                         AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   5555555     111111                         AA     AA

***********A  START   R21LK51    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK51    START  A***********
***********A  START   R21LK51    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK51    START  A***********
***********A  START   R21LK51    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK51    START  A***********
***********A  START   R21LK51    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK51    START  A***********
***********A  START   R21LK51    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK51    START  A***********


//R21LK51 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG52 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET,RENT,REFR'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK51  SG52
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI555
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,RENT,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE CI555(IKJEAT03,IKJEAS02,IKJGG008)
IEW0000      INCLUDE CI555(IKJEAT04,IKJEAT05,IKJEAT06,IKJEAT07)
IEW0000      INCLUDE CI555(IKJEAT08,IKJEAI00,IKJEAR00,IKJEAR01)
IEW0000      INCLUDE CI555(IKJEAR02,IKJEAR03,IKJEAR04,IKJEAR05)
IEW0000      ALIAS IKJEAT04,IKJEAT05,IKJEAT06,IKJEAT07,IKJEAT08
IEW0000      ALIAS IKJEAI00,IKJEAI01,IKJEAI02,IKJEAI03,IKJEAR00
IEW0000      ALIAS IKJEAR01
IEW0000      ENTRY IKJEAT03
IEW0000      NAME IKJEAT03(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEAT03      00     88C
  IKJEAS02     890    12E0
                                        IKJEASSS     890    IKJEASSE    150A
  IKJGG008    1B70     174
  IKJEAT04    1CE8     238
  IKJEAT05    1F20     169
  IKJEAT06    2090    1AC0
  IKJEAT07    3B50     FDC
  IKJEAT08    4B30     384
  IKJEAI00    4EB8     718
                                        IKJEAI01    4EEC    IKJEAI02    5190    IKJEAI03    546C
  IKJEAR00    55D0     5D5
  IKJEAR01    5BA8     6DC
  IKJEAR02    6288     A39
  IKJEAR03    6CC8     88C
  IKJEAR04    7558     1B8
  IKJEAR05    7710     152



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      7A0            IKJEASSS        IKJEAS02                     7A4            IKJEASSE        IKJEAS02
      7AC            IKJGG008        IKJGG008                     7BC            IKJEAT05        IKJEAT05
     6170            IKJEAR02        IKJEAR02                    6174            IKJEAR03        IKJEAR03
     6178            IKJEAR04        IKJEAR04                    770C            IKJEAR05        IKJEAR05

 ENTRY ADDRESS       00
 TOTAL LENGTH      7868

****IKJEAT03  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJEAR01  IS AN ALIAS FOR THIS MEMBER
****IKJEAR00  IS AN ALIAS FOR THIS MEMBER
****IKJEAI03  IS AN ALIAS FOR THIS MEMBER
****IKJEAI02  IS AN ALIAS FOR THIS MEMBER

****IKJEAI01  IS AN ALIAS FOR THIS MEMBER
****IKJEAI00  IS AN ALIAS FOR THIS MEMBER
****IKJEAT08  IS AN ALIAS FOR THIS MEMBER
****IKJEAT07  IS AN ALIAS FOR THIS MEMBER
****IKJEAT06  IS AN ALIAS FOR THIS MEMBER
****IKJEAT05  IS AN ALIAS FOR THIS MEMBER
****IKJEAT04  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE CI555(IKJEAT01)
IEW0000      ALIAS IKJEAT09
IEW0000      ENTRY IKJEAT01
IEW0000      NAME IKJEAT01(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEAT01      00      E0
                                        IKJEAT09      CE


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        E0

****IKJEAT01  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJEAT09  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK51.R0000191      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK51.S0000192      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK51.S0000192      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG52    / START 78240.1945
IEF374I STEP /SG52    / STOP  78240.1945 CPU   0MIN 00.14SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:55.46   ALLOC START    19:45:55.48   MAIN REGION ----- 256K                          *
*   STEP NAME SG52       STEP END TIME  19:45:55.72   PGM START TIME 19:45:55.54   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.26   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.14   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 8       0158 ----------- 17       0150 ----------- 22       0250 ---------- 155       0151 ------------ 0    *
*   0130 ----------- 14                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK51  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:55.76   ALLOC START    19:45:55.77   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:55.79   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK51 / START 78240.1945
IEF376I  JOB /R21LK51 / STOP  78240.1945 CPU   0MIN 00.14SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK51    JOB READ TIME 19:45:04.41   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.14   *
*   JOB CLASS A          JOB INIT TIME 19:45:55.46   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.34   *
*   ACCOUNT              JOB END TIME  19:45:55.80   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  555555555   2222222                             A
            RRRRRRRRR  222222222      11     LL         KK    KK   555555555  222222222                           AAA
            RR     RR  22     22     111     LL         KK   KK    55         22     22                          AA AA
            RR     RR        22       11     LL         KK  KK     55555555         22                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK      555555555       22                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK             55      22                           AA     AA
            RR  RR        22          11     LL         KKK KK            55     22                            AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    55     55    22                             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   555555555   22222222                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   5555555   222222222                        AA     AA

***********A  START   R21LK52    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK52    START  A***********
***********A  START   R21LK52    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK52    START  A***********
***********A  START   R21LK52    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK52    START  A***********
***********A  START   R21LK52    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK52    START  A***********
***********A  START   R21LK52    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK52    START  A***********


//R21LK52 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG53 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//CQ548 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CQ548
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK52  SG53
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI555
IEF237I 250   ALLOCATED TO CQ548
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE CI555(IKJGGQT0)   FROM CI555 TO IKJGGQT0 IN LINKLIB
IEW0000     INCLUDE CI555(IEDAYAA)    FROM CI555 TO IKJGGQT0 IN LINKLIB
IEW0000     INCLUDE CI555(IEDAYHH)    FROM CI555 TO IKJGGQT0 IN LINKLIB
IEW0000     INCLUDE CI555(IEDAYII)    FROM CI555 TO IKJGGQT0 IN LINKLIB
IEW0000     INCLUDE CI555(IEDAYLL)    FROM CI555 TO IKJGGQT0 IN LINKLIB
IEW0000     INCLUDE CI555(IEDAYOO)    FROM CI555 TO IKJGGQT0 IN LINKLIB
IEW0000     INCLUDE CI555(IEDAYGP)    FROM CI555 TO IKJGGQT0 IN LINKLIB
IEW0000     INCLUDE CQ548(IEDAYZZ)    FROM CQ548 TO IKJGGQT0 IN LINKLIB
IEW0000     INCLUDE CI555(IKJGG088)   FROM CI555 TO IKJGGQT0 IN LINKLIB
IEW0000     ENTRY   IKJGGQT0          FIRST ENTRY POINT
IEW0000     ALIAS   IKJGGQT1          SECOND ENTRY POINT
IEW0000     NAME    IKJGGQT0(R)       ALL 9 MODULES IN THIS MEMBER NAME


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJGGQT0      00     18A
                                        IKJGGQT1      38    IKJGGTPQ      DA
  IEDAYAA      190     62A
                                        QTIP0000     19A    QTIP0030     2E4    QTIP0210     308    QTIP0220     328
  IEDAYHH      7C0      93
                                        QTIP0040     7CA
  IEDAYII      858     7A0
                                        QTIP0050     862    QTIP0060     870    QTIP0070     922    QTIP0080     928
                                        QTIP0090     A5A    QTIP0280     F42
  IEDAYLL      FF8     258
                                        QTIP0100    1002
  IEDAYOO     1250     904
                                        QTIP0110    1262    QTIP0120    1338    IKJGGQIO    148C    IKJGGQSO    1560
                                        QTIP0130    16D4    QTIP0140    179C    QTIP0150    1866    QTIP0160    19CA
                                        QTIP0170    1A74    QTIP0240    1A8C
  IEDAYGP     1B58     898
                                        QTIP0180    1B62    QTIP0190    1F58    QTIP0200    20F8    QTIP0290    21F2
  IEDAYZZ     23F0      70
                                        QTIP0250    23F0    QTIP0260    2446
  IKJGG088    2460     118
                                        QTIP0230    246A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       61            QTIP0000        IEDAYAA                       6D            QTIP0030        IEDAYAA
       71            QTIP0040        IEDAYHH                       75            QTIP0050        IEDAYII
       79            QTIP0060        IEDAYII                       7D            QTIP0070        IEDAYII
       81            QTIP0080        IEDAYII                       85            QTIP0090        IEDAYII
       89            QTIP0100        IEDAYLL                       8D            QTIP0110        IEDAYOO
       91            QTIP0120        IEDAYOO                       95            QTIP0130        IEDAYOO
       99            QTIP0140        IEDAYOO                       9D            QTIP0150        IEDAYOO

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       A1            QTIP0160        IEDAYOO                       A5            QTIP0170        IEDAYOO
       A9            QTIP0180        IEDAYGP                       AD            QTIP0190        IEDAYGP
       B1            QTIP0200        IEDAYGP                       B5            QTIP0210        IEDAYAA
       B9            QTIP0220        IEDAYAA                       BD            QTIP0230        IKJGG088
       C1            QTIP0240        IEDAYOO                       C5            QTIP0250        IEDAYZZ
       C9            QTIP0260        IEDAYZZ                       D1            QTIP0280        IEDAYII
       D5            QTIP0290        IEDAYGP                      7A8            IKJGGTPQ        IKJGGQT0
      7AC            IKJGGQIO        IEDAYOO                      7B0            IKJGGQSO        IEDAYOO
      7B4            QTIP0110        IEDAYOO                      848            QTIP0050        IEDAYII
      84C            QTIP0280        IEDAYII                      FC4            IKJGGQIO        IEDAYOO
      FC8            QTIP0110        IEDAYOO                     1AF0            QTIP0000        IEDAYAA
     1AEC            QTIP0030        IEDAYAA                     1AF8            QTIP0050        IEDAYII
     1AF4            QTIP0280        IEDAYII                     2380            IKJGGTPQ        IKJGGQT0
     2540            QTIP0110        IEDAYOO                     2544            QTIP0140        IEDAYOO
     2548            IKJGGTPQ        IKJGGQT0
 ENTRY ADDRESS       00
 TOTAL LENGTH      2578

****IKJGGQT0  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJGGQT1  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK52.R0000193      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CQ548                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK52.S0000194      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK52.S0000194      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG53    / START 78240.1945
IEF374I STEP /SG53    / STOP  78240.1945 CPU   0MIN 00.09SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:55.82   ALLOC START    19:45:55.83   MAIN REGION ----- 256K                          *
*   STEP NAME SG53       STEP END TIME  19:45:56.03   PGM START TIME 19:45:55.89   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.21   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.09   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 15       0150 ----------- 13       0250 ----------- 62       0250 ------------ 7    *
*   0151 ------------ 0       0130 ----------- 13                                                                                  *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK52  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:56.04   ALLOC START    19:45:56.05   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:56.08   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK52 / START 78240.1945
IEF376I  JOB /R21LK52 / STOP  78240.1945 CPU   0MIN 00.09SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK52    JOB READ TIME 19:45:04.54   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.09   *
*   JOB CLASS A          JOB INIT TIME 19:45:55.82   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.26   *
*   ACCOUNT              JOB END TIME  19:45:56.08   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  555555555  333333333                            A
            RRRRRRRRR  222222222      11     LL         KK    KK   555555555  333333333                           AAA
            RR     RR  22     22     111     LL         KK   KK    55         33    33                           AA AA
            RR     RR        22       11     LL         KK  KK     55555555        33                           AA   AA
            RRRRRRRRR       22        11     LL         KK KK      555555555      3333                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK             55     333333                        AA     AA
            RR  RR        22          11     LL         KKK KK            55         33                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    55     55  33     33                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   555555555  333333333                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   5555555    3333333                         AA     AA

***********A  START   R21LK53    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK53    START  A***********
***********A  START   R21LK53    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK53    START  A***********
***********A  START   R21LK53    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK53    START  A***********
***********A  START   R21LK53    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK53    START  A***********
***********A  START   R21LK53    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK53    START  A***********


//R21LK53 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG54 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET,REUS,RENT,REFR'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK53  SG54
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI555
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,REUS,RENT,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000        INCLUDE CI555(IKJEFP00,IKJEFP10,IKJEFP20)
IEW0000        ENTRY IKJPARS
IEW0000        NAME IKJPARS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFP00      00     7A4
                                        IKJPARS       00
  IKJEFP01     7A8     FC4
  IKJEFP02    1770     FD8
  IKJEFP10    2748     276
  IKJEFP20    29C0     35A
                                        GENSCAN     29C0    TRANSQ      2AA2    TRANSX      2AE0    UPPERTAB    2B0B
                                        TRTAB       2C0B


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      7A0            IKJEFP01        IKJEFP01                    1768            IKJEFP02        IKJEFP02
     268C            IKJEFP00        IKJEFP00                    2698            IKJEFP00        IKJEFP00
     269C            IKJEFP00        IKJEFP00                    26D4            IKJEFP00        IKJEFP00
     26DC            IKJEFP00        IKJEFP00                    26E8            IKJEFP00        IKJEFP00
     26F4            IKJEFP00        IKJEFP00                    26F8            IKJEFP00        IKJEFP00
     2740            TRTAB           IKJEFP20                    2744            UPPERTAB        IKJEFP20
     2700            IKJEFP10        IKJEFP10                    2688            IKJEFP01        IKJEFP01
     2690            IKJEFP01        IKJEFP01                    2694            IKJEFP01        IKJEFP01
     26A0            IKJEFP01        IKJEFP01                    26A4            IKJEFP01        IKJEFP01
     26A8            IKJEFP01        IKJEFP01                    26AC            IKJEFP01        IKJEFP01
     26B0            IKJEFP01        IKJEFP01                    26B8            IKJEFP01        IKJEFP01
     26C8            GENSCAN         IKJEFP20                    2738            GENSCAN         IKJEFP20
     26D0            TRANSQ          IKJEFP20                    273C            TRANSQ          IKJEFP20

 ENTRY ADDRESS       00
 TOTAL LENGTH      2D20

****IKJPARS   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFP60)
IEW0000        ENTRY IKJPARS2
IEW0000        NAME IKJPARS2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJPARS2      00    1F81



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1F88

****IKJPARS2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFP30,IKJEFP20)
IEW0000        ENTRY IKJSCAN
IEW0000        NAME IKJSCAN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFP30      00     1E8
                                        IKJSCAN       00
  IKJEFP20     1E8     35A
                                        GENSCAN      1E8    TRANSQ       2CA    TRANSX       308    UPPERTAB     333
                                        TRTAB        433


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      1E0            TRTAB           IKJEFP20                     1D8            GENSCAN         IKJEFP20
      1DC            TRANSX          IKJEFP20
 ENTRY ADDRESS       00
 TOTAL LENGTH       548

****IKJSCAN   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFD00)
IEW0000        ENTRY IKJEFD00
IEW0000        ALIAS IKJDAIR
IEW0000        NAME IKJEFD00(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFD00      00    2ED8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      2ED8

****IKJEFD00  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJDAIR   IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFLF)
IEW0000        ALIAS IKJEAL00,IKJEAL01
IEW0000        NAME IKJEFLF(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEAL00      00     140
                                        IKJEAL01      24

 ENTRY ADDRESS       00
 TOTAL LENGTH       140

****IKJEFLF   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJEAL01  IS AN ALIAS FOR THIS MEMBER
****IKJEAL00  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFLG,IKJEFLGB,IKJEFLGH)
IEW0000        INCLUDE CI555(IKJEFLH)
IEW0000        INCLUDE SYSPUNCH(IKJEFLP0)
IEW0000        ENTRY IKJEFLG
IEW0000        ALIAS IKJEFLGB,IKJEFLH,IKJEFLP0
IEW0000        NAME IKJEFLG(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFLG       00     344
  IKJEFLGB     348     1B8
  GBMESSAG     500     128
  IKJEFLGH     628      98
                                        LOGON        630    INVALID      63C    IGNORMSG     660    PROCEED      6A0
  IKJEFLH      6C0     2B0
  IKJEFLP0     970       C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      320            LOGON           IKJEFLGH                     324            INVALID         IKJEFLGH
      31C            IGNORMSG        IKJEFLGH                     4F8            GBMESSAG        GBMESSAG
      96C            PROCEED         IKJEFLGH
 ENTRY ADDRESS       00
 TOTAL LENGTH       980

****IKJEFLG   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJEFLP0  IS AN ALIAS FOR THIS MEMBER
****IKJEFLH   IS AN ALIAS FOR THIS MEMBER
****IKJEFLGB  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFLS)
IEW0000        ENTRY IKJEFLS
IEW0000        ALIAS IKJEFLS1,IKJEFLS2,IKJEFLS3
IEW0000        NAME IKJEFLS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFLS       00     5BC
                                        IKJEFLS1     118    IKJEFLS2     186    IKJEFLS3     206
  GBMESSAG     5C0      66



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      588            GBMESSAG        GBMESSAG
 ENTRY ADDRESS       00
 TOTAL LENGTH       628

****IKJEFLS   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJEFLS3  IS AN ALIAS FOR THIS MEMBER
****IKJEFLS2  IS AN ALIAS FOR THIS MEMBER
****IKJEFLS1  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFT02,IKJEFT03,IKJEFT04)
IEW0000        INCLUDE CI555(IKJEFT05,IKJEFT06,IKJEFT07)
IEW0000        ENTRY IKJEFT02
IEW0000        ALIAS IKJEFT03,IKJEFT04,IKJEFT05,IKJEFT07
IEW0000        NAME IKJEFT02(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFT02      00     854
  IKJEFT03     858     338
  IKJEFT04     B90     28B
                                        STAIMSG      C80
  IKJEFT05     E20     6B0
  IKJEFT06    14D0     160
                                        RDYMSG      14E8    MSG56600    14F4    MSG56601    1524    MSG56602    1564
                                        MSG56621    1598    MSG56622    15BC    MSG56641    15DC    CODEMSG     1600
                                        SYSTMSG     161C    USERMSG     1628
  IKJEFT07    1630     1F0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      834            RDYMSG          IKJEFT06                     830            MSG56621        IKJEFT06
      838            MSG56622        IKJEFT06                     B84            RDYMSG          IKJEFT06
      B80            MSG56621        IKJEFT06                     B7C            MSG56622        IKJEFT06
      E00            MSG56641        IKJEFT06                     DFC            SYSTMSG         IKJEFT06
      DF8            USERMSG         IKJEFT06                     E04            CODEMSG         IKJEFT06
     1404            MSG56600        IKJEFT06                    1408            MSG56601        IKJEFT06
     140C            MSG56602        IKJEFT06                    1810            IKJEFT05        IKJEFT05

 ENTRY ADDRESS       00
 TOTAL LENGTH      1820

****IKJEFT02  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJEFT07  IS AN ALIAS FOR THIS MEMBER
****IKJEFT05  IS AN ALIAS FOR THIS MEMBER
****IKJEFT04  IS AN ALIAS FOR THIS MEMBER
****IKJEFT03  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFT30,IKJEFT35,IKJEFT40)
IEW0000        INCLUDE CI555(IKJEFT45,IKJEFT52,IKJEFT53)
IEW0000        INCLUDE CI555(IKJEFT54,IKJEFT55,IKJEFT56)
IEW0000        ALIAS IKJGETL,IKJPUTL,IKJSTCK
IEW0000        ENTRY IKJPTGT
IEW0000        NAME IKJPTGT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFT30      00     2F8
                                        IKJSTCK       10
  IKJEFT35     2F8      84
                                        NOIFRMSG     300    PRMPTMSG     328    PAUSMSG      368
  IKJEFT40     380     258
                                        IKJPUTL      390
  IKJEFT45     5D8     552
                                        IKJPTGT      5E8
  IKJEFT52     B30      E0
  IKJEFT53     C10      90
  IKJEFT54     CA0     418
  IKJEFT55    10B8     460
                                        IKJGETL     10C8
  IKJEFT56    1518     298



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      5BC            IKJEFT54        IKJEFT54                     5C0            IKJEFT56        IKJEFT56
      5C4            IKJEFT52        IKJEFT52                     5C8            IKJEFT53        IKJEFT53
      B04            IKJEFT52        IKJEFT52                     B08            IKJEFT53        IKJEFT53
      B0C            IKJEFT55        IKJEFT55                     B10            IKJEFT56        IKJEFT56
      B20            IKJEFT54        IKJEFT54                     B1C            NOIFRMSG        IKJEFT35
      B18            PRMPTMSG        IKJEFT35                     B14            PAUSMSG         IKJEFT35
      C00            IKJEFT56        IKJEFT56                     C04            IKJEFT53        IKJEFT53
      C08            NOIFRMSG        IKJEFT35
 ENTRY ADDRESS      5E8
 TOTAL LENGTH      17B0

****IKJPTGT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJSTCK   IS AN ALIAS FOR THIS MEMBER
****IKJPUTL   IS AN ALIAS FOR THIS MEMBER
****IKJGETL   IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJFATRC,IKJFAMSG)
IEW0000        ENTRY IKJFATRC
IEW0000        NAME IKJFATRC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJFATRC      00     6F0
  IKJFAMSG     6F0     48D



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      644            IKJFAMSG        IKJFAMSG
 ENTRY ADDRESS       00
 TOTAL LENGTH       B80

****IKJFATRC  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJFATR1,IKJFAMSG,IKJFAERR)
IEW0000        ENTRY IKJFATR1
IEW0000        NAME IKJFATR1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJFATR1      00     524
  IKJFAMSG     528     48D
  IKJFAERR     9B8      50



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      510            IKJFAMSG        IKJFAMSG                     50C            IKJFAERR        IKJFAERR

 ENTRY ADDRESS       00
 TOTAL LENGTH       A08

****IKJFATR1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJFASCN,IKJFAMP1,IKJFATP1)
IEW0000        ENTRY IKJFASCN
IEW0000        NAME IKJFATRP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJFASCN      00     9E8
                                        CLOSE        880
  IKJFAMP1     9E8     4E5
  IKJFATP1     ED0     1AE



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      8EC            IKJFAMP1        IKJFAMP1                     8E8            IKJFATP1        IKJFATP1
     1058            IKJFAMP1        IKJFAMP1                    105C            CLOSE           IKJFASCN

 ENTRY ADDRESS       00
 TOTAL LENGTH      1080

****IKJFATRP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJFATP2,IKJFATAB,IKJFAPUT)
IEW0000        INCLUDE CI555(IKJFAMP1,IKJFATP1)
IEW0000        ENTRY IKJFATP2
IEW0000        NAME IKJFATP2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJFATP2      00     6D8
                                        CLOSE        594
  IKJFATAB     6D8     6F4
                                        TYPEPTR      DC4    TABPTR       DC8
  IKJFAPUT     DD0     942
  IKJFAMP1    1718     4E5
  IKJFATP1    1C00     1AE



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      678            IKJFAMP1        IKJFAMP1                     680            IKJFAPUT        IKJFAPUT
      67C            TYPEPTR         IKJFATAB                     674            IKJFATP1        IKJFATP1
     13E0            TYPEPTR         IKJFATAB                    13E4            TABPTR          IKJFATAB
     1D88            IKJFAMP1        IKJFAMP1                    1D8C            CLOSE           IKJFATP2

 ENTRY ADDRESS       00
 TOTAL LENGTH      1DB0

****IKJFATP2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IEEVSND2,IEEVSND5)
IEW0000        ENTRY IEEVSND2
IEW0000        NAME IEEVSND2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVSND2      00     662
  IEEVSND5     668     2DE



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      5FC            IEEVSND5        IEEVSND5
 ENTRY ADDRESS       00
 TOTAL LENGTH       948

****IEEVSND2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IEEVSND3,IEEVSND5)
IEW0000        ENTRY IEEVSND3
IEW0000        NAME IEEVSND3(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVSND3      00     750
  IEEVSND5     750     2DE



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      708            IEEVSND5        IEEVSND5
 ENTRY ADDRESS       00
 TOTAL LENGTH       A30

****IEEVSND3  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IEEVSND4,IKJEES20)
IEW0000        ENTRY IEEVSND4
IEW0000        NAME IEEVSND4(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVSND4      00     8BB
  IKJEES20     8C0     3B8
                                        MSGTABLE     C48


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      89C            MSGTABLE        IKJEES20
 ENTRY ADDRESS       00
 TOTAL LENGTH       C78

****IEEVSND4  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IEEVSND8,IEEVSND5)
IEW0000        ENTRY IEEVSND8
IEW0000        NAME IEEVSND8(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVSND8      00     5F4
  IEEVSND5     5F8     2DE



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      5B0            IEEVSND5        IEEVSND5
 ENTRY ADDRESS       00
 TOTAL LENGTH       8D8

****IEEVSND8  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK53.R0000195      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK53.S0000196      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK53.S0000196      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG54    / START 78240.1945
IEF374I STEP /SG54    / STOP  78240.1945 CPU   0MIN 00.41SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:56.10   ALLOC START    19:45:56.11   MAIN REGION ----- 256K                          *
*   STEP NAME SG54       STEP END TIME  19:45:56.62   PGM START TIME 19:45:56.17   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.52   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.41   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0159 ----------- 89       0150 ---------- 134       0250 ---------- 384       0151 ------------ 4    *
*   0130 ----------- 63                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK53  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:56.63   ALLOC START    19:45:56.64   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:56.66   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK53 / START 78240.1945
IEF376I  JOB /R21LK53 / STOP  78240.1945 CPU   0MIN 00.41SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK53    JOB READ TIME 19:45:04.90   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.41   *
*   JOB CLASS A          JOB INIT TIME 19:45:56.10   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.57   *
*   ACCOUNT              JOB END TIME  19:45:56.67   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  555555555       44                              A
            RRRRRRRRR  222222222      11     LL         KK    KK   555555555      444                             AAA
            RR     RR  22     22     111     LL         KK   KK    55            4444                            AA AA
            RR     RR        22       11     LL         KK  KK     55555555     44 44                           AA   AA
            RRRRRRRRR       22        11     LL         KK KK      555555555   44  44                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK             55  44   44                          AA     AA
            RR  RR        22          11     LL         KKK KK            55  444444444                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    55     55  444444444                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   555555555       44                          AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   5555555        44                          AA     AA

***********A  START   R21LK54    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK54    START  A***********
***********A  START   R21LK54    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK54    START  A***********
***********A  START   R21LK54    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK54    START  A***********
***********A  START   R21LK54    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK54    START  A***********
***********A  START   R21LK54    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK54    START  A***********


//R21LK54 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG55 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET,REFR'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK54  SG55
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI555
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000        INCLUDE CI555(IKJEES70,IKJEES74,IKJEES75)
IEW0000        ENTRY IKJEES73
IEW0000        NAME IKJEES73(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEES70      00     7A8
                                        IKJEES73     6CE
  BCPARS1      7A8      4E
  IKJEES74     7F8     551
                                        LSTBMSG      808
  IKJEES75     D50     6E8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      754            IKJEES75        IKJEES75                     758            BCPARS1         BCPARS1
     1420            LSTBMSG         IKJEES74
 ENTRY ADDRESS      6CE
 TOTAL LENGTH      1438

****IKJEES73  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFT01,IKJEFT06)
IEW0000        ENTRY IKJEFT01
IEW0000        NAME IKJEFT01(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFT01      00     6D0
  IKJEFT06     6D0     160
                                        RDYMSG       6E8    MSG56600     6F4    MSG56601     724    MSG56602     764
                                        MSG56621     798    MSG56622     7BC    MSG56641     7DC    CODEMSG      800
                                        SYSTMSG      81C    USERMSG      828


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      6B8            RDYMSG          IKJEFT06
 ENTRY ADDRESS       00
 TOTAL LENGTH       830

****IKJEFT01  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFLB)
IEW0000        ENTRY IKJEFLB
IEW0000        ALIAS IKJLB1
IEW0000        NAME IKJEFLB(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFLB       00     554
                                        IKJLB1        66


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       558

****IKJEFLB   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJLB1    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFLC,IKJEFLCM)
IEW0000        ENTRY IKJEFLC
IEW0000        NAME IKJEFLC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFLC       00     E48
  IKJEFLCM     E48      9C
                                        MSGCSECT     E50


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      E1C            MSGCSECT        IKJEFLCM
 ENTRY ADDRESS       00
 TOTAL LENGTH       EE8

****IKJEFLC   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFLE,IKJEFLEA)
IEW0000        ENTRY IKJEFLE
IEW0000        NAME IKJEFLE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFLE       00     C9C
  IKJEFLEA     CA0     921
  IKJEFLE1    15C8     109



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      C44            IKJEFLEA        IKJEFLEA                    1560            IKJEFLE1        IKJEFLE1
     16CD            IKJEFLEA        IKJEFLEA
 ENTRY ADDRESS       00
 TOTAL LENGTH      16D8

****IKJEFLE   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFLGM,IKJEFLGN)
IEW0000        ENTRY IKJEFLGM
IEW0000        NAME IKJEFLGM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFLGM      00     4AD
  IKJEFLGN     4B0     754
                                        IKJEFLGZ     640


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      498            IKJEFLGZ        IKJEFLGN
 ENTRY ADDRESS       00
 TOTAL LENGTH       C08

****IKJEFLGM  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFLL,IKJEFLLM)
IEW0000        ENTRY IKJEFLL
IEW0000        NAME IKJEFLL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFLL       00     97C
  IKJEFLLM     980     248
                                        MSGCSECT     988


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      948            MSGCSECT        IKJEFLLM
 ENTRY ADDRESS       00
 TOTAL LENGTH       BC8

****IKJEFLL   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFLJ)
IEW0000        ENTRY IKJEFLJ
IEW0000        ALIAS IKJLJ1
IEW0000        NAME IKJEFLJ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFLJ       00     860
  JMSGMOD      860      E9



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      844            JMSGMOD         JMSGMOD
 ENTRY ADDRESS       00
 TOTAL LENGTH       950

****IKJEFLJ   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJLJ1    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFLK)
IEW0000        ENTRY IKJEFLK
IEW0000        ALIAS IKJLK1
IEW0000        NAME IKJEFLK(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFLK       00     140


 ENTRY ADDRESS       00
 TOTAL LENGTH       140

****IKJEFLK   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJLK1    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK54.R0000197      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK54.S0000198      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK54.S0000198      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG55    / START 78240.1945
IEF374I STEP /SG55    / STOP  78240.1945 CPU   0MIN 00.21SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:56.69   ALLOC START    19:45:56.69   MAIN REGION ----- 256K                          *
*   STEP NAME SG55       STEP END TIME  19:45:57.02   PGM START TIME 19:45:56.75   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.33   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.21   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 39       0150 ----------- 70       0250 ---------- 144       0151 ------------ 0    *
*   0130 ----------- 31                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK54  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:57.04   ALLOC START    19:45:57.05   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:57.07   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK54 / START 78240.1945
IEF376I  JOB /R21LK54 / STOP  78240.1945 CPU   0MIN 00.21SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK54    JOB READ TIME 19:45:05.33   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.21   *
*   JOB CLASS A          JOB INIT TIME 19:45:56.69   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.39   *
*   ACCOUNT              JOB END TIME  19:45:57.08   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  555555555  555555555                            A
            RRRRRRRRR  222222222      11     LL         KK    KK   555555555  555555555                           AAA
            RR     RR  22     22     111     LL         KK   KK    55         55                                 AA AA
            RR     RR        22       11     LL         KK  KK     55555555   55555555                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK      555555555  555555555                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK             55         55                        AA     AA
            RR  RR        22          11     LL         KKK KK            55         55                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    55     55  55     55                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   555555555  555555555                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   5555555    5555555                         AA     AA

***********A  START   R21LK55    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK55    START  A***********
***********A  START   R21LK55    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK55    START  A***********
***********A  START   R21LK55    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK55    START  A***********
***********A  START   R21LK55    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK55    START  A***********
***********A  START   R21LK55    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK55    START  A***********


//R21LK55 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG56 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET,REUS,RENT,REFR'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK55  SG56
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI555
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,REUS,RENT,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000        INCLUDE CI555(IKJEFF40)
IEW0000        ENTRY IKJEFF40
IEW0000        ALIAS IKJEFF4A
IEW0000        NAME IKJEFF40(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF40      00     370
                                        IKJEFF4A     30A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       370

****IKJEFF40  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJEFF4A  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFF41,IKJEFF42,IKJEFF43,IKJEFF46)
IEW0000        ENTRY IKJEFF41
IEW0000        NAME IKJEFF41(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF41      00     300
  IKJEFF42     300     518
                                        IKJEFF4B     544
  IKJEFF43     818     118
  IKJEFF46     930     59A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2C8            IKJEFF42        IKJEFF42                     2CC            IKJEFF4B        IKJEFF42
      7E4            IKJEFF46        IKJEFF46                     7E8            IKJEFF43        IKJEFF43

 ENTRY ADDRESS       00
 TOTAL LENGTH       ED0

****IKJEFF41  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFF51,IKJEFF52,IKJEFF54)
IEW0000        ENTRY IKJEFF51
IEW0000        NAME IKJEFF51(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF51      00     1A1
  IKJEFF52     1A8     476
  IKJEFF54     620      D0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      188            IKJEFF54        IKJEFF54                     18C            IKJEFF52        IKJEFF52
      5BC            IKJEFF54        IKJEFF54
 ENTRY ADDRESS       00
 TOTAL LENGTH       6F0

****IKJEFF51  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFF58)
IEW0000        ENTRY IKJEFF58
IEW0000        NAME  IKJEFF58(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF58      00      C8


 ENTRY ADDRESS       00
 TOTAL LENGTH        C8

****IKJEFF58  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEFF59)
IEW0000        ENTRY IKJEFF59
IEW0000        NAME  IKJEFF59(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF59      00     191



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       198

****IKJEFF59  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK55.R0000199      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK55.S0000200      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK55.S0000200      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG56    / START 78240.1945
IEF374I STEP /SG56    / STOP  78240.1945 CPU   0MIN 00.13SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:57.21   ALLOC START    19:45:57.26   MAIN REGION ----- 256K                          *
*   STEP NAME SG56       STEP END TIME  19:45:57.49   PGM START TIME 19:45:57.33   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.28   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.13   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0130 ----------- 22       0150 ----------- 34       0250 ----------- 63       0151 ------------ 0    *
*   0130 ----------- 17                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK55  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:57.51   ALLOC START    19:45:57.52   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:57.54   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK55 / START 78240.1945
IEF376I  JOB /R21LK55 / STOP  78240.1945 CPU   0MIN 00.13SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK55    JOB READ TIME 19:45:05.56   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.13   *
*   JOB CLASS A          JOB INIT TIME 19:45:57.21   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.34   *
*   ACCOUNT              JOB END TIME  19:45:57.55   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  555555555       66                              A
            RRRRRRRRR  222222222      11     LL         KK    KK   555555555      66                              AAA
            RR     RR  22     22     111     LL         KK   KK    55            66                              AA AA
            RR     RR        22       11     LL         KK  KK     55555555     66                              AA   AA
            RRRRRRRRR       22        11     LL         KK KK      555555555   6666666                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK             55  666666666                        AA     AA
            RR  RR        22          11     LL         KKK KK            55  66     66                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    55     55  66     66                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   555555555  666666666                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   5555555    6666666                         AA     AA

***********A  START   R21LK56    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK56    START  A***********
***********A  START   R21LK56    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK56    START  A***********
***********A  START   R21LK56    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK56    START  A***********
***********A  START   R21LK56    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK56    START  A***********
***********A  START   R21LK56    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK56    START  A***********


//R21LK56 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG57 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET,REUS,RENT,REFR'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.CMDLIB
//DCMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DCMDLIB
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK56  SG57
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DCMDLIB
IEF237I 250   ALLOCATED TO CI555
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,REUS,RENT,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000        INCLUDE DCMDLIB(IKJEES10,IKJEES11)
IEW0000        INCLUDE CI555(IEEVSDIO,IKJEES20)
IEW0000        ENTRY IKJEES10
IEW0000        ALIAS SE
IEW0000        NAME SEND(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEES10      00    1052
  IKJEES11    1058     7C0
  SENDPCL     1818     172
  IEEVSDIO    1990     820
  IKJEES20    21B0     3B8
                                        MSGTABLE    2538


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      FE0            IKJEES11        IKJEES11                     FE4            IEEVSDIO        IEEVSDIO
      FE8            MSGTABLE        IKJEES20                    180C            SENDPCL         SENDPCL

 ENTRY ADDRESS       00
 TOTAL LENGTH      2568

****SEND      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****SE        IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEES40)
IEW0000        INCLUDE CI555(IEEVSDIO,IKJEES20)
IEW0000        ENTRY IKJEES40
IEW0000        NAME IKJEES40(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEES40      00     E28
  IEEVSDIO     E28     820
  IKJEES20    1648     3B8
                                        MSGTABLE    19D0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      DAC            IEEVSDIO        IEEVSDIO                     DB0            MSGTABLE        IKJEES20

 ENTRY ADDRESS       00
 TOTAL LENGTH      1A00

****IKJEES40  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFA00,IKJEFA01)
IEW0000        ENTRY IKJEFA00
IEW0000        NAME ACCOUNT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFA00      00    11D0
                                        STAXXIN      A5A    NUICM        B08    STXOUTR      B94    STAEXIN      BBC
                                        CLRSTC2      DA6    FXPUTLM      E9A
  IKJEFA01    11D0     44E
                                        ANDXL       11E0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      FD4            ANDXL           IKJEFA01
 ENTRY ADDRESS       00
 TOTAL LENGTH      1620

****ACCOUNT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFA30,IKJEFA31,IKJEFA51)
IEW0000        INCLUDE DCMDLIB(IKJEFA52,IKJEFA53,IKJEFA54)
IEW0000        INCLUDE DCMDLIB(IKJEFA32,IKJEFA55)
IEW0000        ENTRY IKJEFA30
IEW0000        NAME IKJEFA30(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFA30      00     E70
                                        MSGNGRM      602    NOSPAZ       60E    MSGNGR       616    NONAM        638
                                        DOCLOSR      704    DOCLOS       70C    DELSTO       856    MSGFNDR      A04
                                        MSGFND       A08    SYSERRD      A36    DOPARS       B1C    CHKPS        BB6
                                        CHKANS       C68    FXPUTL       D48    FXPUTLM      D52    DOPUTL       D64
  @DATX        E70     134
  DELCMD       FA8      7E
  NDLSTPA     1028      4D
  NDLSTIA     1078      54
  NDLSTI2     10D0      5A
  NDLSTI3     1130      6F
  NDLSTIAS    11A0      22
  NDLSTI2S    11C8      26
  NDLSTI3S    11F0      35
  PRSDPW      1228      5A
  PRSDAN      1288      9C
  PRSDPN      1328      6C
  IKJEFA31    1398     630
                                        ANDXL       13A8
  IKJEFA51    19C8     6C6
  IKJEFA52    2090     32E
  IKJEFA53    23C0     198
  IKJEFA54    2558     208
  IKJEFA32    2760    1170
                                        USERU       2E80    DOENQ2      2EA0    DOWRT2      2EEA    CHKNQ       2F32
                                        DELREC      2FFC    LOCLAE1     331E    GBBUF       3728
  IKJEFA55    38D0      78



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      DF8            IKJEFA32        IKJEFA32                     DFC            GBBUF           IKJEFA32
      E00            USERU           IKJEFA32                     E04            DOWRT2          IKJEFA32
      E08            CHKNQ           IKJEFA32                     E0C            DELREC          IKJEFA32
      E10            DOENQ2          IKJEFA32                     E14            ANDXL           IKJEFA31
      E6C            @DATX           @DATX                        E3C            DELCMD          DELCMD
      E40            NDLSTPA         NDLSTPA                      E48            NDLSTIA         NDLSTIA
      E50            NDLSTI2         NDLSTI2                      E58            NDLSTI3         NDLSTI3
      E44            NDLSTIAS        NDLSTIAS                     E4C            NDLSTI2S        NDLSTI2S
      E54            NDLSTI3S        NDLSTI3S                     E5C            PRSDPW          PRSDPW

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      E60            PRSDAN          PRSDAN                       E64            PRSDPN          PRSDPN
      EDC            IKJEFA30        IKJEFA30                     EE0            IKJEFA30        IKJEFA30
      EF0            IKJEFA30        IKJEFA30                     EFC            IKJEFA30        IKJEFA30
      F0C            IKJEFA30        IKJEFA30                     F10            IKJEFA30        IKJEFA30
      FEF            IKJEFA30        IKJEFA30                    119B            IKJEFA30        IKJEFA30
     1221            IKJEFA55        IKJEFA55                    1320            IKJEFA30        IKJEFA30
     380C            DOCLOSR         IKJEFA30                    3810            SYSERRD         IKJEFA30
     3814            IKJEFA51        IKJEFA51                    3818            NOSPAZ          IKJEFA30
     381C            MSGNGRM         IKJEFA30                    3820            DOCLOS          IKJEFA30
     3824            MSGFNDR         IKJEFA30                    3828            FXPUTL          IKJEFA30
     382C            DOPUTL          IKJEFA30                    3830            IKJEFA52        IKJEFA52
     3834            DELSTO          IKJEFA30                    3838            MSGFND          IKJEFA30
     383C            MSGNGR          IKJEFA30                    3840            NONAM           IKJEFA30
     3844            IKJEFA54        IKJEFA54                    386C            DELCMD          DELCMD
     3870            NDLSTPA         NDLSTPA                     3878            NDLSTIA         NDLSTIA
     3880            NDLSTI2         NDLSTI2                     3888            NDLSTI3         NDLSTI3
     3874            NDLSTIAS        NDLSTIAS                    387C            NDLSTI2S        NDLSTI2S
     3884            NDLSTI3S        NDLSTI3S                    388C            PRSDPW          PRSDPW
     3890            PRSDAN          PRSDAN                      3894            PRSDPN          PRSDPN

 ENTRY ADDRESS       00
 TOTAL LENGTH      3948

****IKJEFA30  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFA40,IKJEFA41,IKJEFA42)
IEW0000        INCLUDE DCMDLIB(IKJEFA52,IKJEFA51,IKJEFA55)
IEW0000        ENTRY IKJEFA40
IEW0000        NAME IKJEFA40(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFA40      00     BF0
  PCLMODEL     BF0      1C
  NODEPARS     C10      8D
  USERPARS     CA0      75
  PASSPARS     D18      79
  ACCTPARS     D98      88
  PROCPARS     E20      85
  IKJEFA41     EA8     328
                                        LSTMSG       EB8
  IKJEFA42    11D0    1040
  IKJEFA52    2210     32E
  IKJEFA51    2540     6C6
  IKJEFA55    2C08      78



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      B38            PCLMODEL        PCLMODEL                     B3C            NODEPARS        NODEPARS
      B40            USERPARS        USERPARS                     B44            PASSPARS        PASSPARS
      B48            ACCTPARS        ACCTPARS                     B4C            PROCPARS        PROCPARS
      B18            IKJEFA42        IKJEFA42                     B1C            IKJEFA51        IKJEFA51
      B20            LSTMSG          IKJEFA41                     C08            IKJEFA40        IKJEFA40
      DFA            IKJEFA55        IKJEFA55                    20D8            IKJEFA52        IKJEFA52
     20DC            IKJEFA51        IKJEFA51                    20E0            LSTMSG          IKJEFA41

 ENTRY ADDRESS       00
 TOTAL LENGTH      2C80

****IKJEFA40  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFA10,IKJEFA11,IKJEFA12)
IEW0000        INCLUDE DCMDLIB(IKJEFA13,IKJEFA51)
IEW0000        INCLUDE DCMDLIB(IKJEFA52,IKJEFA53,IKJEFA55)
IEW0000        ENTRY IKJEFA10
IEW0000        NAME IKJEFA10(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFA10      00     F30
  MACLFORM     F30      90
  PCLMODEL     FC0     275
  NODEPARS    1238      A9
  IDPARS      12E8      3E
  IKJEFA11    1328     644
                                        MSGTABLE    1338
  IKJEFA12    1970     F80
                                        ADDERCLN    2086    CLEANUP0    235E    IKJCLNUP    2494    RDGETERR    26F2
  IKJEFA13    28F0    13B8
  IKJEFA51    3CA8     6C6
  IKJEFA52    4370     32E
  IKJEFA53    46A0     198
  IKJEFA55    4838      78



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      EEC            MACLFORM        MACLFORM                     EE0            PCLMODEL        PCLMODEL
      F1C            NODEPARS        NODEPARS                     F2C            IDPARS          IDPARS
      EBC            IKJEFA12        IKJEFA12                     EC0            MSGTABLE        IKJEFA11
      EC4            IKJEFA53        IKJEFA53                     EC8            IKJEFA52        IKJEFA52
      ECC            IKJCLNUP        IKJEFA12                     F34            IKJEFA10        IKJEFA10
      FD8            IKJEFA10        IKJEFA10                    10EC            IKJEFA10        IKJEFA10
     117A            IKJEFA10        IKJEFA10                    11B1            IKJEFA10        IKJEFA10
     1231            IKJEFA10        IKJEFA10                    11F1            IKJEFA55        IKJEFA55
     126B            IKJEFA10        IKJEFA10                    128D            IKJEFA10        IKJEFA10
     12DD            IKJEFA10        IKJEFA10                    12B5            IKJEFA55        IKJEFA55
     28A8            MSGTABLE        IKJEFA11                    28AC            IKJEFA51        IKJEFA51
     28B0            IKJEFA13        IKJEFA13                    28B4            IKJEFA52        IKJEFA52
     28D8            MACLFORM        MACLFORM                    3C74            IKJEFA52        IKJEFA52
     3C78            RDGETERR        IKJEFA12                    3C7C            ADDERCLN        IKJEFA12
     3C80            MSGTABLE        IKJEFA11                    3C84            IKJEFA53        IKJEFA53
     3C88            CLEANUP0        IKJEFA12
 ENTRY ADDRESS       00
 TOTAL LENGTH      48B0

****IKJEFA10  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFA20,IKJEFA21,IKJEFA22)
IEW0000        INCLUDE DCMDLIB(IKJEFA23,IKJEFA24,IKJEFA55)
IEW0000        INCLUDE DCMDLIB(IKJEFA51,IKJEFA52,IKJEFA53)
IEW0000        INCLUDE DCMDLIB(IKJEFA54)
IEW0000        ENTRY IKJEFA20
IEW0000        NAME IKJEFA20(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFA20      00    12E8
  IKJEFA21    12E8     79F
                                        CHMSG       12F8
  IKJEFA22    1A88     FF8
  IKJEFA23    2A80     D30
  IKJEFA24    37B0     766
  PCLMODEL    3F18     277
  NODEPARS    4190      8D
  USERPARS    4220      78
  PASSPARS    4298      7C
  ACCTPARS    4318      8B
  PROCPARS    43A8      88
  IKJEFA55    4430      78
  IKJEFA51    44A8     6C6
  IKJEFA52    4B70     32E
  IKJEFA53    4EA0     198
  IKJEFA54    5038     208



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     11B4            IKJEFA24        IKJEFA24                    11B8            IKJEFA52        IKJEFA52
     11BC            IKJEFA51        IKJEFA51                    11C0            IKJEFA23        IKJEFA23
     11C4            IKJEFA22        IKJEFA22                    11C8            CHMSG           IKJEFA21
     2A70            IKJEFA53        IKJEFA53                    2A74            IKJEFA54        IKJEFA54
     379C            IKJEFA53        IKJEFA53                    37A0            IKJEFA54        IKJEFA54
     3EE8            PCLMODEL        PCLMODEL                    3EEC            NODEPARS        NODEPARS
     3EF0            USERPARS        USERPARS                    3EF4            PASSPARS        PASSPARS
     3EF8            ACCTPARS        ACCTPARS                    3EFC            PROCPARS        PROCPARS
     3F30            IKJEFA24        IKJEFA24                    4034            IKJEFA24        IKJEFA24
     408C            IKJEFA24        IKJEFA24                    4131            IKJEFA55        IKJEFA55
     437D            IKJEFA55        IKJEFA55
 ENTRY ADDRESS       00
 TOTAL LENGTH      5240

****IKJEFA20  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEE100,IKJEE1A0,IKJEE150)
IEW0000        ENTRY IKJEE100
IEW0000        ALIAS OPER
IEW0000        NAME OPERATOR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEE100      00    138E
                                        IKJEE101     BFA    ENDRTN       CC8
  IKJEE1A0    1390     244
  IKJEE150    15D8     56C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      C69            IKJEE1A0        IKJEE1A0                     C71            IKJEE1A0        IKJEE1A0
     1060            IKJEE150        IKJEE150                    1560            ENDRTN          IKJEE100
     1564            IKJEE101        IKJEE100
 ENTRY ADDRESS       00
 TOTAL LENGTH      1B48

****OPERATOR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****OPER      IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFE11,IKJEFE15,IKJEFE16)
IEW0000        ENTRY IKJEFE11
IEW0000        ALIAS END,WHEN
IEW0000        NAME IKJEFE11(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFE11      00     83E
  IKJPARSE     840     113
  IKJEFE15     958     2B4
  IKJEFE16     C10     130



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      7EC            IKJPARSE        IKJPARSE                     7F0            IKJEFE15        IKJEFE15
      8C7            IKJEFE11        IKJEFE11                     BF0            IKJEFE16        IKJEFE16

 ENTRY ADDRESS       00
 TOTAL LENGTH       D40

****IKJEFE11  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****WHEN      IS AN ALIAS FOR THIS MEMBER
****END       IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFH01,IKJEFH00,IKJEFH02)
IEW0000        INCLUDE DCMDLIB(IKJEFH03)
IEW0000        INCLUDE CI555(IKJEFF02)
IEW0000        ENTRY IKJEFH01
IEW0000        ALIAS H
IEW0000        NAME HELP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFH01      00     9C0
  HELPPCL      9C0      92
  IKJEFH00     A58     3D2
  IKJEFH02     E30     369
  IKJEFH03    11A0     1E0
  IKJEFF02    1380     5C4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      900            IKJEFH00        IKJEFH00                     904            HELPPCL         HELPPCL
      908            IKJEFH03        IKJEFH03                     90C            IKJEFH02        IKJEFH02
      910            IKJEFF02        IKJEFF02                     99C            IKJEFF02        IKJEFF02
     117C            IKJEFH03        IKJEFH03                    1180            IKJEFF02        IKJEFF02
     1370            IKJEFF02        IKJEFF02
 ENTRY ADDRESS       00
 TOTAL LENGTH      1948

****HELP      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****H         IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFT80)
IEW0000        ALIAS TERM
IEW0000        NAME TERMINAL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFT80      00     7A6
                                        LINNOCHK     5CA    SECNOCHK     60A    LINSZCHK     64A    SCNCK1       68A
                                        SCNCK2       6E0
  TERMMSGS     7A8     22B
  TERMPCL      9D8     330



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      788            TERMPCL         TERMPCL                      78C            TERMMSGS        TERMMSGS
      B26            IKJEFT80        IKJEFT80                     B96            IKJEFT80        IKJEFT80
      C39            IKJEFT80        IKJEFT80                     CCF            IKJEFT80        IKJEFT80
      D04            IKJEFT80        IKJEFT80
 ENTRY ADDRESS       00
 TOTAL LENGTH       D08

****TERMINAL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****TERM      IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFT82)
IEW0000        ALIAS PROF
IEW0000        NAME PROFILE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFT82      00     64C
                                        CHARCHEK     4FE    LINECHEK     586
  PROFMSGS     650      A6
  PARSEPLS     6F8     132



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      628            PARSEPLS        PARSEPLS                     62C            PROFMSGS        PROFMSGS
      7EB            IKJEFT82        IKJEFT82                     826            IKJEFT82        IKJEFT82

 ENTRY ADDRESS       00
 TOTAL LENGTH       830

****PROFILE   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****PROF      IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFE01,IKJEFE02,IKJEFE03)
IEW0000        INCLUDE DCMDLIB(IKJEFE05)
IEW0000        ENTRY IKJEFE01
IEW0000        ALIAS EX
IEW0000        NAME EXEC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFE01      00     8F0
  DSNMPARS     8F0      1C
  IKJEFE02     910     D14
  QALIST      1628      28
  IKJEFE03    1650     E21
                                        E03PRT05    1D06    E03SYN05    223A
  IKJEFE05    2478     F13
                                        E05OPEX     3288


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      8A8            DSNMPARS        DSNMPARS                     8AC            IKJEFE05        IKJEFE05
      8B0            IKJEFE03        IKJEFE03                     8B4            IKJEFE02        IKJEFE02
      8ED            E05OPEX         IKJEFE05                    1584            IKJEFE03        IKJEFE03
     1588            QALIST          QALIST                      3320            E03PRT05        IKJEFE03
     3324            E03SYN05        IKJEFE03                    3328            IKJEFE03        IKJEFE03

 ENTRY ADDRESS       00
 TOTAL LENGTH      3390

****EXEC      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****EX        IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFE04,IKJEFE06)
IEW0000        ENTRY IKJEFE04
IEW0000        NAME IKJEFE04(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFE04      00     6D3
  IKJEFE06     6D8     BB5
                                        ADTAB1       6E0    ADTAB2       74C


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      688            ADTAB1          IKJEFE06                     68C            ADTAB2          IKJEFE06

 ENTRY ADDRESS       00
 TOTAL LENGTH      1290

****IKJEFE04  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFF04,IKJEFF05,IKJEFF06)
IEW0000        INCLUDE DCMDLIB(IKJEFF07,IKJEFF08,IKJEFF09)
IEW0000        INCLUDE DCMDLIB(IKJEFF11,IKJEFF12,IKJEFF13)
IEW0000        INCLUDE DCMDLIB(IKJEFF14)
IEW0000        INCLUDE CI555(IKJEFF15)
IEW0000        ENTRY IKJEFF04
IEW0000        NAME IKJEFF04(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF04      00     1C0
  IKJEFF05     1C0     7CB
  IKJEFF06     990     380
  IKJEFF07     D10     408
  IKJEFF08    1118     1D0
  IKJEFF09    12E8     328
  IKJEFF11    1610      B0
  IKJEFF12    16C0     4A0
  IKJEFF13    1B60     438
  IKJEFF14    1F98     198
  IKJEFF15    2130     290



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      198            IKJEFF11        IKJEFF11                     19C            IKJEFF05        IKJEFF05
      94C            IKJEFF06        IKJEFF06                     CF4            IKJEFF07        IKJEFF07
      CF8            IKJEFF13        IKJEFF13                     CFC            IKJEFF08        IKJEFF08
      D00            IKJEFF14        IKJEFF14                     D04            IKJEFF09        IKJEFF09
      D08            IKJEFF12        IKJEFF12                    12A8            IKJEFF06        IKJEFF06
     15F8            IKJEFF06        IKJEFF06                    16B8            IKJEFF12        IKJEFF12
     1B38            IKJEFF15        IKJEFF15                    1F54            IKJEFF08        IKJEFF08
     1F58            IKJEFF06        IKJEFF06
 ENTRY ADDRESS       00
 TOTAL LENGTH      23C0

****IKJEFF04  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFF16)
IEW0000        ENTRY IKJEFF16
IEW0000        NAME IKJEFF16(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF17      00     440
  IKJEFF16     440      6A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      481            IKJEFF17        IKJEFF17
 ENTRY ADDRESS      440
 TOTAL LENGTH       4B0

****IKJEFF16  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFF01,IKJEFF03)
IEW0000        INCLUDE CI555(IKJEFF02)
IEW0000        ENTRY IKJEFF01
IEW0000        ALIAS SUB
IEW0000        NAME SUBMIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF01      00     4F0
  IKJEFF03     4F0     75A
  IKJEFF02     C50     5C4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4D8            IKJEFF03        IKJEFF03                     4DC            IKJEFF02        IKJEFF02

 ENTRY ADDRESS       00
 TOTAL LENGTH      1218

****SUBMIT    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****SUB       IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFF50,IKJEFF55)
IEW0000        INCLUDE CI555(IKJEFF02)
IEW0000        ENTRY IKJEFF50
IEW0000        ALIAS IKJEFF5A,ST
IEW0000        NAME STATUS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF50      00     687
                                        IKJEFF5A     5B8
  IKJEFF56     688      7B
  IKJEFF55     708     349
  IKJEFF02     A58     5C4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      624            IKJEFF55        IKJEFF55                     628            IKJEFF02        IKJEFF02
      62C            IKJEFF56        IKJEFF56
 ENTRY ADDRESS       00
 TOTAL LENGTH      1020

****STATUS    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****ST        IS AN ALIAS FOR THIS MEMBER
****IKJEFF5A  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE CI555(IKJEES70,IKJEES74,IKJEES75)
IEW0000        ENTRY IKJEES70
IEW0000        ALIAS LISTB
IEW0000        NAME LISTBC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEES70      00     7A8
                                        IKJEES73     6CE
  BCPARS1      7A8      4E
  IKJEES74     7F8     551
                                        LSTBMSG      808
  IKJEES75     D50     6E8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      754            IKJEES75        IKJEES75                     758            BCPARS1         BCPARS1
     1420            LSTBMSG         IKJEES74
 ENTRY ADDRESS       00
 TOTAL LENGTH      1438

****LISTBC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****LISTB     IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFD20)
IEW0000        ENTRY IKJEFD20
IEW0000        NAME FREE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFD20      00     6E7
  IKJEFD21     6E8     197
  IKJEFD22     880      45



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      628            IKJEFD21        IKJEFD21                     62C            IKJEFD22        IKJEFD22

 ENTRY ADDRESS       00
 TOTAL LENGTH       8C8

****FREE      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFG00)
IEW0000        ENTRY IKJEFG00
IEW0000        NAME CALL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFG00      00     C11
  IKJEFG01     C18      3E
  IKJEFG02     C58      37
  IKJEFG03     C90      51



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      9E4            IKJEFG01        IKJEFG01                     9E8            IKJEFG02        IKJEFG02
      9EC            IKJEFG03        IKJEFG03
 ENTRY ADDRESS       00
 TOTAL LENGTH       CE8

****CALL      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFR00)
IEW0000        ENTRY IKJEFR00
IEW0000        ALIAS R
IEW0000        NAME RUN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFR00      00    163C
  IKJEFR01    1640     101
  IKJEFR02    1748      52
  IKJEFR03    17A0      36



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1300            IKJEFR01        IKJEFR01                    1304            IKJEFR02        IKJEFR02
     1308            IKJEFR03        IKJEFR03
 ENTRY ADDRESS       00
 TOTAL LENGTH      17D8

****RUN       DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****R         IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFD30)
IEW0000        ENTRY IKJEFD30
IEW0000        ALIAS ALLOC
IEW0000        NAME ALLOCATE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFD30      00    14DD
  IKJEFD31    14E0     2EB
  IKJEFD32    17D0      43
  IKJEFD33    1818      49
  IKJEFD34    1868      44
  IKJEFD35    18B0      62
  IKJEFD36    1918      64



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     124C            IKJEFD31        IKJEFD31                    1250            IKJEFD32        IKJEFD32
     1254            IKJEFD33        IKJEFD33                    1258            IKJEFD34        IKJEFD34
     125C            IKJEFD35        IKJEFD35                    1260            IKJEFD36        IKJEFD36

 ENTRY ADDRESS       00
 TOTAL LENGTH      1980

****ALLOCATE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****ALLOC     IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFATT)
IEW0000        ENTRY IKJEFATT
IEW0000        ALIAS ATTR
IEW0000        NAME ATTRIB(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFATT      00     B97
  IKJEFAT1     B98     542



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      7B0            IKJEFAT1        IKJEFAT1                     C04            IKJEFATT        IKJEFATT
      DA6            IKJEFATT        IKJEFATT                     DFA            IKJEFATT        IKJEFATT
      E50            IKJEFATT        IKJEFATT                     E9C            IKJEFATT        IKJEFATT
      F11            IKJEFATT        IKJEFATT                     FE8            IKJEFATT        IKJEFATT

 ENTRY ADDRESS       00
 TOTAL LENGTH      10E0

****ATTRIB    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****ATTR      IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000        INCLUDE DCMDLIB(IKJEFL00)
IEW0000        ALIAS LOGON
IEW0000        NAME LOGOFF(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFL00      00      A0


 ENTRY ADDRESS       00
 TOTAL LENGTH        A0

****LOGOFF    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****LOGON     IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK56.R0000201      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.CMDLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DCMDLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK56.S0000202      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK56.S0000202      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG57    / START 78240.1945
IEF374I STEP /SG57    / STOP  78240.1945 CPU   0MIN 00.70SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:57.60   ALLOC START    19:45:57.60   MAIN REGION ----- 256K                          *
*   STEP NAME SG57       STEP END TIME  19:45:58.47   PGM START TIME 19:45:57.66   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.87   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.70   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ----------- 16       0353 ---------- 153       0150 ---------- 223       0250 ---------- 787       0250 ----------- 86    *
*   0151 ------------ 0       0130 ---------- 106                                                                                  *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK56  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:58.50   ALLOC START    19:45:58.51   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:58.53   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK56 / START 78240.1945
IEF376I  JOB /R21LK56 / STOP  78240.1945 CPU   0MIN 00.70SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK56    JOB READ TIME 19:45:05.72   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.70   *
*   JOB CLASS A          JOB INIT TIME 19:45:57.60   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.94   *
*   ACCOUNT              JOB END TIME  19:45:58.54   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  555555555  777777777                            A
            RRRRRRRRR  222222222      11     LL         KK    KK   555555555  777777777                           AAA
            RR     RR  22     22     111     LL         KK   KK    55         77     77                          AA AA
            RR     RR        22       11     LL         KK  KK     55555555         77                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK      555555555       77                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK             55      77                           AA     AA
            RR  RR        22          11     LL         KKK KK            55     77                            AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    55     55     77                            AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   555555555     77                            AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   5555555      77                            AA     AA

***********A  START   R21LK57    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK57    START  A***********
***********A  START   R21LK57    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK57    START  A***********
***********A  START   R21LK57    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK57    START  A***********
***********A  START   R21LK57    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK57    START  A***********
***********A  START   R21LK57    SYS SYSA   WTR 00E   07:47:27 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK57    START  A***********


//R21LK57 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG58 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REFR,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.CMDLIB
//DCMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DCMDLIB
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK57  SG58
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DCMDLIB
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REFR,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE DCMDLIB(IKJEHREN)
IEW0000      ALIAS RENAME
IEW0000      ALIAS REN
IEW0000      NAME IKJEHREN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEHREN      00     3D8
  IKJEHRN2     3D8     FFE
                                        IKJEHTST     8B6    IKJEH713     F4A    IKJEH913     F56    IKJEH13      F62
  IKJEHRN3    13D8      5C
  IKJEHPDL    1438      89
  IKJEHMSG    14C8     BE3
                                        IKJEHSMG    1AF0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      318            IKJEHPDL        IKJEHPDL                     31C            IKJEHRN2        IKJEHRN2
      320            IKJEH713        IKJEHRN2                     324            IKJEH913        IKJEHRN2
      328            IKJEH13         IKJEHRN2                     32C            IKJEHTST        IKJEHRN2
     13A0            IKJEHMSG        IKJEHMSG                    13A4            IKJEHSMG        IKJEHMSG
     13A8            IKJEHRN3        IKJEHRN3
 ENTRY ADDRESS       00
 TOTAL LENGTH      20B0

****IKJEHREN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****REN       IS AN ALIAS FOR THIS MEMBER
****RENAME    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE DCMDLIB(IKJEHDEL)
IEW0000      ALIAS DELETE
IEW0000      ALIAS D
IEW0000      NAME IKJEHDEL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEHDEL      00     F9C
  IKJEHPDL     FA0      68
  IKJEHMSG    1008     8B9
                                        IKJEHSMG    14AC


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      EF8            IKJEHMSG        IKJEHMSG                     EFC            IKJEHSMG        IKJEHMSG
      F00            IKJEHPDL        IKJEHPDL
 ENTRY ADDRESS       00
 TOTAL LENGTH      18C8

****IKJEHDEL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****D         IS AN ALIAS FOR THIS MEMBER
****DELETE    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE DCMDLIB(IKJEHPRO)
IEW0000      ALIAS PROTECT
IEW0000      ALIAS PROT
IEW0000      NAME IKJEHPRO(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEHPRO      00     A98
  IKJEHPCD     A98     268
  IKJEHPWP     D00      68
  IKJEHMSG     D68     468
                                        IKJEHSMG     FBC


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      9F8            IKJEHMSG        IKJEHMSG                     9FC            IKJEHSMG        IKJEHMSG
      A00            IKJEHPCD        IKJEHPCD                     A04            IKJEHPWP        IKJEHPWP
      CFC            IKJEHPRO        IKJEHPRO
 ENTRY ADDRESS       00
 TOTAL LENGTH      11D0

****IKJEHPRO  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****PROT      IS AN ALIAS FOR THIS MEMBER
****PROTECT   IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK57.R0000203      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.CMDLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DCMDLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK57.S0000204      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK57.S0000204      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG58    / START 78240.1945
IEF374I STEP /SG58    / STOP  78240.1945 CPU   0MIN 00.11SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:58.57   ALLOC START    19:45:58.58   MAIN REGION ----- 256K                          *
*   STEP NAME SG58       STEP END TIME  19:45:58.78   PGM START TIME 19:45:58.64   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.21   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.11   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0158 ----------- 18       0150 ----------- 24       0250 ----------- 64       0151 ------------ 0    *
*   0130 ----------- 13                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK57  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:58.80   ALLOC START    19:45:58.81   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:58.83   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK57 / START 78240.1945
IEF376I  JOB /R21LK57 / STOP  78240.1945 CPU   0MIN 00.11SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK57    JOB READ TIME 19:45:06.22   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.11   *
*   JOB CLASS A          JOB INIT TIME 19:45:58.57   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.27   *
*   ACCOUNT              JOB END TIME  19:45:58.84   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  555555555   8888888                             A
            RRRRRRRRR  222222222      11     LL         KK    KK   555555555  888888888                           AAA
            RR     RR  22     22     111     LL         KK   KK    55         88     88                          AA AA
            RR     RR        22       11     LL         KK  KK     55555555   88     88                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK      555555555   8888888                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK             55   8888888                         AA     AA
            RR  RR        22          11     LL         KKK KK            55  88     88                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    55     55  88     88                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   555555555  888888888                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   5555555    8888888                         AA     AA

***********A  START   R21LK58    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK58    START  A***********
***********A  START   R21LK58    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK58    START  A***********
***********A  START   R21LK58    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK58    START  A***********
***********A  START   R21LK58    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK58    START  A***********
***********A  START   R21LK58    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK58    START  A***********


//R21LK58 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG59 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,RENT,REFR'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.CMDLIB
//DCMDLIB DD DSNAME=SYS1.DCMDLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK58  SG59
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DCMDLIB
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,RENT,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE DCMDLIB(IKJLKL01,IKJLKMSG)
IEW0000     ENTRY IKJLKL01
IEW0000     NAME IKJLKL01(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJLKL01      00    21FE
  LKPARSE     2200     31F
  LDPARSE     2520     225
  IKJLKMSG    2748     D90



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1F04            LKPARSE         LKPARSE                     1F08            LDPARSE         LDPARSE
     1DC8            IKJLKMSG        IKJLKMSG                    221F            IKJLKL01        IKJLKL01
     253F            IKJLKL01        IKJLKL01
 ENTRY ADDRESS       00
 TOTAL LENGTH      34D8

****IKJLKL01  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK58.R0000205      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.CMDLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DCMDLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK58.S0000206      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK58.S0000206      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG59    / START 78240.1945
IEF374I STEP /SG59    / STOP  78240.1945 CPU   0MIN 00.06SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:58.87   ALLOC START    19:45:58.87   MAIN REGION ----- 256K                          *
*   STEP NAME SG59       STEP END TIME  19:45:59.03   PGM START TIME 19:45:58.94   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.16   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ------------ 6       0150 ----------- 10       0250 ----------- 41       0151 ------------ 0    *
*   0130 ------------ 4                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK58  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:59.06   ALLOC START    19:45:59.07   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:59.08   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.02   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK58 / START 78240.1945
IEF376I  JOB /R21LK58 / STOP  78240.1945 CPU   0MIN 00.06SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK58    JOB READ TIME 19:45:06.44   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.06   *
*   JOB CLASS A          JOB INIT TIME 19:45:58.87   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.23   *
*   ACCOUNT              JOB END TIME  19:45:59.10   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  555555555   9999999                             A
            RRRRRRRRR  222222222      11     LL         KK    KK   555555555  999999999                           AAA
            RR     RR  22     22     111     LL         KK   KK    55         99     99                          AA AA
            RR     RR        22       11     LL         KK  KK     55555555   99     99                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK      555555555  999999999                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK             55   9999999                         AA     AA
            RR  RR        22          11     LL         KKK KK            55       99                          AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    55     55      99                           AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   555555555     99                            AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   5555555     99                             AA     AA

***********A  START   R21LK59    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK59    START  A***********
***********A  START   R21LK59    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK59    START  A***********
***********A  START   R21LK59    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK59    START  A***********
***********A  START   R21LK59    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK59    START  A***********
***********A  START   R21LK59    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK59    START  A***********


//R21LK59 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG60 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REFR,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.CMDLIB
//DCMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DCMDLIB
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK59  SG60
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DCMDLIB
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REFR,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE DCMDLIB(IKJEGCVT,IKJEGATN,IKJEGSTA)
IEW0000      INCLUDE DCMDLIB(IKJEGIO,IKJEGSCD,IKJEGMNL)
IEW0000      ENTRY  IKJEGMNL
IEW0000      NAME   IKJEGMNL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEGCVT      00     CCC
                                        IKJEGBLO     292    IKJEGBL1     2AE
  IKJEGCVX     CD0     65C
                                        IKJEGIST     CD0    IKJEGBIS    12DE
  IKJEGCOP    1330     51E
  IKJEGFLT    1850     930
                                        IKJEGBFT    1850    IKJEGFTB    1C3A
  IKJEGMSG    2180      BB
                                        IKJEGM01    2180    IKJEGM02    2188    IKJEGM03    2190    IKJEG1IA    2198
  IKJEGATN    2240     458
  IKJEGMSA    2698      11
  IKJEGBLD    26B0     180
  IKJEGSTA    2830     2CE
  IKJEGMS1    2B00     1AB
  IKJEGIO     2CB0     C28
                                        IKJEGPT     2CB0    IKJEGPG     2CC8    IKJEGGT     2CD4
  IKJEGIOM    38D8     136
                                        IKJEGIM1    38D8    IKJEGIM5    38E0    IKJEGIM6    38E8    IKJEGIMC    38F0
  IKJEGDDM    3A10     33A
  IKJEGDMG    3D50     334
                                        IKJEGNM1    3D50    IKJEGNM2    3D6C    IKJEGNM3    3D90    IKJEGNM4    3DC7
                                        IKJEGNM5    3DD6    IKJEGNM6    3E0B    IKJEGNM7    3E38    IKJEGNMD    3E7A
                                        IKJEGNME    3E97    IKJEGNMF    3EC0    IKJEGNMH    3EDE    IKJEGNM8    3EFA
                                        IKJEGNM9    3F16    IKJEGNMA    3F50    IKJEGNMB    3F5C    IKJEGNMC    3F72
                                        IKJEGNMG    3F91    IKJEGNMI    3FA0    IKJEGNMJ    3FCC    IKJEGNMK    4007
                                        IKJEGNML    4019    IKJEGNMM    4029    IKJEGNMN    4046    IKJEGNMO    4069
  IKJEGSCD    4088     10E
                                        IKJEGNAM    413E    IKJEGSSZ    418C    IKJEGBSZ    418E    IKJEGAID    4190
                                        IKJEGOID    4192    IKJEGPID    4194
  IKJEGMNL    4198     FA8
  IKJEGXNL    5140     288



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      C38            IKJEGM01        IKJEGMSG                     C3C            IKJEGM02        IKJEGMSG
      C40            IKJEGM03        IKJEGMSG                     C44            IKJEG1IA        IKJEGMSG
      C68            IKJEGFTB        IKJEGFLT                     C6C            IKJEGFTB        IKJEGFLT
      C98            IKJEGIST        IKJEGCVX                     CA4            IKJEGBFT        IKJEGFLT

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      CA8            IKJEGBFT        IKJEGFLT                     CB4            IKJEGBIS        IKJEGCVX
     2684            IKJEGMSA        IKJEGMSA                    2AC0            IKJEGMS1        IKJEGMS1
     2ACC            IKJEGSCD        IKJEGSCD                    2AC4            IKJEGMS1        IKJEGMS1
     2AC8            IKJEGMS1        IKJEGMS1                    3818            IKJEGIM1        IKJEGIOM
     381C            IKJEGIM5        IKJEGIOM                    3820            IKJEGIM6        IKJEGIOM
     3824            IKJEGIMC        IKJEGIOM                    3CC0            IKJEGNM1        IKJEGDMG
     3CC4            IKJEGNM2        IKJEGDMG                    3CC8            IKJEGNM3        IKJEGDMG
     3CCC            IKJEGNM4        IKJEGDMG                    3CD0            IKJEGNM5        IKJEGDMG
     3CD4            IKJEGNM6        IKJEGDMG                    3CD8            IKJEGNM7        IKJEGDMG
     3CDC            IKJEGNM8        IKJEGDMG                    3CE0            IKJEGNM9        IKJEGDMG
     3CE4            IKJEGNMA        IKJEGDMG                    3CE8            IKJEGNMB        IKJEGDMG
     3CEC            IKJEGNMC        IKJEGDMG                    3CF0            IKJEGNMD        IKJEGDMG
     3CF4            IKJEGNME        IKJEGDMG                    3CF8            IKJEGNMF        IKJEGDMG
     3CFC            IKJEGNMH        IKJEGDMG                    3D00            IKJEGNMG        IKJEGDMG
     3D04            IKJEGNMI        IKJEGDMG                    3D08            IKJEGNMJ        IKJEGDMG
     3D0C            IKJEGNMK        IKJEGDMG                    3D10            IKJEGNML        IKJEGDMG
     3D14            IKJEGNMM        IKJEGDMG                    3D18            IKJEGNMN        IKJEGDMG
     3D1C            IKJEGNMO        IKJEGDMG                    4FD4            IKJEGGT         IKJEGIO
     4FD8            IKJEGPT         IKJEGIO                     4FDC            IKJEGPG         IKJEGIO
     4FE0            IKJEGCVT        IKJEGCVT                    4FE4            IKJEGBLD        IKJEGBLD
     4FE8            IKJEGSTA        IKJEGSTA                    4FEC            IKJEGATN        IKJEGATN
     4FF0            IKJEGDDM        IKJEGDDM                    5028            IKJEGSCD        IKJEGSCD
     5070            IKJEGCOP        IKJEGCOP                    5074            IKJEGNAM        IKJEGSCD
     5078            IKJEGAID        IKJEGSCD                    507C            IKJEGOID        IKJEGSCD
     5080            IKJEGPID        IKJEGSCD                    50B1            IKJEGBLO        IKJEGCVT
     502C            IKJEGXNL        IKJEGXNL                    5030            IKJEGXNL        IKJEGXNL
     5034            IKJEGXNL        IKJEGXNL                    5038            IKJEGXNL        IKJEGXNL
     503C            IKJEGXNL        IKJEGXNL                    5040            IKJEGXNL        IKJEGXNL
     5044            IKJEGXNL        IKJEGXNL                    5048            IKJEGXNL        IKJEGXNL
     504C            IKJEGXNL        IKJEGXNL                    5050            IKJEGXNL        IKJEGXNL
     5054            IKJEGXNL        IKJEGXNL                    5058            IKJEGXNL        IKJEGXNL
     505C            IKJEGXNL        IKJEGXNL                    5060            IKJEGXNL        IKJEGXNL
     5064            IKJEGXNL        IKJEGXNL                    506C            IKJEGXNL        IKJEGXNL

 ENTRY ADDRESS     4198
 TOTAL LENGTH      53C8

****IKJEGMNL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE DCMDLIB(IKJEGINT,IKJEGIO,IKJEGSCD)
IEW0000      ENTRY IKJEGINT
IEW0000      NAME TEST(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEGINT      00     DF6
  IKJEGYNT     DF8      56
  IKJEGXNT     E50     112
  IKJEGIO      F68     C28
                                        IKJEGPT      F68    IKJEGPG      F80    IKJEGGT      F8C
  IKJEGIOM    1B90     136
                                        IKJEGIM1    1B90    IKJEGIM5    1B98    IKJEGIM6    1BA0    IKJEGIMC    1BA8
  IKJEGDDM    1CC8     33A
  IKJEGDMG    2008     334
                                        IKJEGNM1    2008    IKJEGNM2    2024    IKJEGNM3    2048    IKJEGNM4    207F
                                        IKJEGNM5    208E    IKJEGNM6    20C3    IKJEGNM7    20F0    IKJEGNMD    2132
                                        IKJEGNME    214F    IKJEGNMF    2178    IKJEGNMH    2196    IKJEGNM8    21B2
                                        IKJEGNM9    21CE    IKJEGNMA    2208    IKJEGNMB    2214    IKJEGNMC    222A
                                        IKJEGNMG    2249    IKJEGNMI    2258    IKJEGNMJ    2284    IKJEGNMK    22BF
                                        IKJEGNML    22D1    IKJEGNMM    22E1    IKJEGNMN    22FE    IKJEGNMO    2321
  IKJEGSCD    2340     10E
                                        IKJEGNAM    23F6    IKJEGSSZ    2444    IKJEGBSZ    2446    IKJEGAID    2448
                                        IKJEGOID    244A    IKJEGPID    244C


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      C40            IKJEGGT         IKJEGIO                      C44            IKJEGPT         IKJEGIO
      C48            IKJEGPG         IKJEGIO                      C4C            IKJEGNAM        IKJEGSCD
      C50            IKJEGBSZ        IKJEGSCD                     C54            IKJEGSSZ        IKJEGSCD
      C58            IKJEGDDM        IKJEGDDM                     CAC            IKJEGYNT        IKJEGYNT
      C8C            IKJEGXNT        IKJEGXNT                     C90            IKJEGXNT        IKJEGXNT
      C94            IKJEGXNT        IKJEGXNT                     C98            IKJEGXNT        IKJEGXNT
      C9C            IKJEGXNT        IKJEGXNT                     CA4            IKJEGXNT        IKJEGXNT
      D40            IKJEGXNT        IKJEGXNT                     D44            IKJEGXNT        IKJEGXNT
      D50            IKJEGXNT        IKJEGXNT                     D54            IKJEGXNT        IKJEGXNT
      D60            IKJEGXNT        IKJEGXNT                     D64            IKJEGXNT        IKJEGXNT
      D70            IKJEGXNT        IKJEGXNT                     D74            IKJEGXNT        IKJEGXNT
      D80            IKJEGXNT        IKJEGXNT                     D84            IKJEGXNT        IKJEGXNT
      D90            IKJEGXNT        IKJEGXNT                     D94            IKJEGXNT        IKJEGXNT
     1AD0            IKJEGIM1        IKJEGIOM                    1AD4            IKJEGIM5        IKJEGIOM
     1AD8            IKJEGIM6        IKJEGIOM                    1ADC            IKJEGIMC        IKJEGIOM
     1F78            IKJEGNM1        IKJEGDMG                    1F7C            IKJEGNM2        IKJEGDMG
     1F80            IKJEGNM3        IKJEGDMG                    1F84            IKJEGNM4        IKJEGDMG
     1F88            IKJEGNM5        IKJEGDMG                    1F8C            IKJEGNM6        IKJEGDMG
     1F90            IKJEGNM7        IKJEGDMG                    1F94            IKJEGNM8        IKJEGDMG
     1F98            IKJEGNM9        IKJEGDMG                    1F9C            IKJEGNMA        IKJEGDMG
     1FA0            IKJEGNMB        IKJEGDMG                    1FA4            IKJEGNMC        IKJEGDMG

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1FA8            IKJEGNMD        IKJEGDMG                    1FAC            IKJEGNME        IKJEGDMG
     1FB0            IKJEGNMF        IKJEGDMG                    1FB4            IKJEGNMH        IKJEGDMG
     1FB8            IKJEGNMG        IKJEGDMG                    1FBC            IKJEGNMI        IKJEGDMG
     1FC0            IKJEGNMJ        IKJEGDMG                    1FC4            IKJEGNMK        IKJEGDMG
     1FC8            IKJEGNML        IKJEGDMG                    1FCC            IKJEGNMM        IKJEGDMG
     1FD0            IKJEGNMN        IKJEGDMG                    1FD4            IKJEGNMO        IKJEGDMG

 ENTRY ADDRESS       00
 TOTAL LENGTH      2450

****TEST      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK59.R0000207      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   MVT1.CMDLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DCMDLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK59.S0000208      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK59.S0000208      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG60    / START 78240.1945
IEF374I STEP /SG60    / STOP  78240.1945 CPU   0MIN 00.12SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:59.12   ALLOC START    19:45:59.13   MAIN REGION ----- 256K                          *
*   STEP NAME SG60       STEP END TIME  19:45:59.35   PGM START TIME 19:45:59.19   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.23   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 6       0159 ----------- 32       0150 ----------- 36       0250 ---------- 131       0151 ------------ 0    *
*   0130 ------------ 8                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK59  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:59.38   ALLOC START    19:45:59.39   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:59.41   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK59 / START 78240.1945
IEF376I  JOB /R21LK59 / STOP  78240.1945 CPU   0MIN 00.12SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK59    JOB READ TIME 19:45:06.78   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.12   *
*   JOB CLASS A          JOB INIT TIME 19:45:59.12   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.30   *
*   ACCOUNT              JOB END TIME  19:45:59.42   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       66      00000                              A
            RRRRRRRRR  222222222      11     LL         KK    KK       66      0000000                            AAA
            RR     RR  22     22     111     LL         KK   KK       66      00     00                          AA AA
            RR     RR        22       11     LL         KK  KK       66       00    000                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK       6666666   00   0 00                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK      666666666  00  0  00                        AA     AA
            RR  RR        22          11     LL         KKK KK     66     66  00 0   00                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    66     66  000    00                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   666666666   0000000                         AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   6666666     00000                          AA     AA

***********A  START   R21LK60    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK60    START  A***********
***********A  START   R21LK60    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK60    START  A***********
***********A  START   R21LK60    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK60    START  A***********
***********A  START   R21LK60    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK60    START  A***********
***********A  START   R21LK60    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK60    START  A***********


//R21LK60 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG61 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REFR,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.CMDLIB
//DCMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DCMDLIB
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK60  SG61
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DCMDLIB
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REFR,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE DCMDLIB(IKJEBEFI,IKJEBESE)
IEW0000      ENTRY IKJEBEFI
IEW0000      NAME IKJEBEFI(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEBEFI      00     54A
  IKJEBFI0     550      2B
  IKJEBFI1     580      32
  IKJEBESE     5B8     2F2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      510            IKJEBFI1        IKJEBFI1                     514            IKJEBFI0        IKJEBFI0
      520            IKJEBESE        IKJEBESE                     577            IKJEBEFI        IKJEBEFI
      5AE            IKJEBEFI        IKJEBEFI
 ENTRY ADDRESS       00
 TOTAL LENGTH       8B0

****IKJEBEFI  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE DCMDLIB(IKJEBECG,IKJEBESE)
IEW0000      ENTRY IKJEBECG
IEW0000      NAME IKJEBECG(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEBECG      00     CD8
  IKJEBESE     CD8     2F2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      CC4            IKJEBESE        IKJEBESE
 ENTRY ADDRESS       00
 TOTAL LENGTH       FD0

****IKJEBECG  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE SYSPUNCH(IKJEBEIN)
IEW0000      ENTRY IKJEBEIN
IEW0000      ALIAS EDIT
IEW0000      ALIAS IKJEBEIN
IEW0000      NAME E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEBEIN      00     DF0
                                        IKJEBIN0     D6D
  IKJEBIN1     DF0     255
  IKJEBIN2    1048      2A
  IKJEBIN3    1078      E2
  IKJEBIN4    1160      72
  IKJEBIN5    11D8     266
  IKJEBIN6    1440     142
  IKJEBIN7    1588     21C
  IKJEBIN8    17A8     6A9



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      21C            IKJEBIN7        IKJEBIN7                     24C            IKJEBIN5        IKJEBIN5
      86C            IKJEBIN8        IKJEBIN8                     BE8            IKJEBIN3        IKJEBIN3
      DE8            IKJEBIN1        IKJEBIN1                     DEC            IKJEBIN2        IKJEBIN2
      F58            IKJEBIN4        IKJEBIN4                     F7A            IKJEBIN4        IKJEBIN4
      FBE            IKJEBIN4        IKJEBIN4                     FD7            IKJEBIN4        IKJEBIN4
     131C            IKJEBIN3        IKJEBIN3                    13FC            IKJEBIN3        IKJEBIN3
     1408            IKJEBIN0        IKJEBEIN                    13F8            IKJEBIN6        IKJEBIN6
     14FB            IKJEBIN4        IKJEBIN4                    1514            IKJEBIN4        IKJEBIN4
     1604            IKJEBIN5        IKJEBIN5                    1754            IKJEBIN3        IKJEBIN3
     1E20            IKJEBEIN        IKJEBEIN                    1E1C            IKJEBIN3        IKJEBIN3

 ENTRY ADDRESS       00
 TOTAL LENGTH      1E58

****E         DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJEBEIN  IS AN ALIAS FOR THIS MEMBER
****EDIT      IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE DCMDLIB(IKJEBEMA,IKJEBEAT,IKJEBEUT,IKJEBEAE)
IEW0000      ENTRY IKJEBEMA
IEW0000      NAME IKJEBEMA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEBEMA      00     5A8
  IKJEBMA1     5A8     158
  IKJEBMA2     700      DC
  IKJEBMA8     7E0     15E
                                        MA8LI002     7E3    MA8IP002     873
  IKJEBMA9     940       1
  IKJEBEAT     948     170
  IKJEBEUT     AB8     1D0
  IKJEBEAE     C88     1F8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      5A0            IKJEBEAE        IKJEBEAE                     59C            IKJEBEAT        IKJEBEAT
      584            IKJEBEUT        IKJEBEUT                     4A4            IKJEBMA1        IKJEBMA1
      588            IKJEBMA2        IKJEBMA2                     58C            IKJEBMA8        IKJEBMA8
      590            IKJEBMA8        IKJEBMA8                     594            IKJEBMA8        IKJEBMA8
      598            IKJEBMA9        IKJEBMA9                     AB0            IKJEBMA2        IKJEBMA2
      E7C            IKJEBMA2        IKJEBMA2
 ENTRY ADDRESS       00
 TOTAL LENGTH       E80

****IKJEBEMA  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE DCMDLIB(IKJEBEEN)
IEW0000      ENTRY IKJEBEEN
IEW0000      ALIAS IKJEBEXT
IEW0000      NAME IKJEBEEN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEBEEN      00     420
                                        IKJEBEXT     1DC
  IKJEBEN0     420      1F
                                        IKJEBMSG     420


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      414            IKJEBEN0        IKJEBEN0
 ENTRY ADDRESS       00
 TOTAL LENGTH       440

****IKJEBEEN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IKJEBEXT  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK60.R0000209      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.CMDLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DCMDLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK60.S0000210      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK60.S0000210      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG61    / START 78240.1945
IEF374I STEP /SG61    / STOP  78240.1945 CPU   0MIN 00.19SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:59.45   ALLOC START    19:45:59.46   MAIN REGION ----- 256K                          *
*   STEP NAME SG61       STEP END TIME  19:45:59.77   PGM START TIME 19:45:59.52   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.32   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.19   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 29       0150 ----------- 39       0250 ----------- 91       0151 ---------- 239    *
*   0130 ----------- 19                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK60  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1945
IEF374I STEP /ZEND    / STOP  78240.1945 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:45:59.79   ALLOC START    19:45:59.80   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:45:59.82   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK60 / START 78240.1945
IEF376I  JOB /R21LK60 / STOP  78240.1945 CPU   0MIN 00.19SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK60    JOB READ TIME 19:45:06.96   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.19   *
*   JOB CLASS A          JOB INIT TIME 19:45:59.45   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.38   *
*   ACCOUNT              JOB END TIME  19:45:59.83   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       66         1                               A
            RRRRRRRRR  222222222      11     LL         KK    KK       66         11                              AAA
            RR     RR  22     22     111     LL         KK   KK       66         111                             AA AA
            RR     RR        22       11     LL         KK  KK       66           11                            AA   AA
            RRRRRRRRR       22        11     LL         KK KK       6666666       11                           AA     AA
            RRRRRRRR       22         11     LL         KKKKK      666666666      11                           AA     AA
            RR  RR        22          11     LL         KKK KK     66     66      11                           AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    66     66      11                           AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   666666666    111111                         AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   6666666     111111                         AA     AA

***********A  START   R21LK61    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK61    START  A***********
***********A  START   R21LK61    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK61    START  A***********
***********A  START   R21LK61    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK61    START  A***********
***********A  START   R21LK61    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK61    START  A***********
***********A  START   R21LK61    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK61    START  A***********


//R21LK61 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG62 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,OL,REFR,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.CMDLIB
//DCMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DCMDLIB
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK61  SG62
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DCMDLIB
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,OL,REFR,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE DCMDLIB(IKJEBEPS)
IEW0000      INCLUDE SYSPUNCH(IKJEBEPD)
IEW0000      ENTRY IKJEBEPS
IEW0000      NAME IKJEBEPS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEBEPS      00      68
  IKJEBEPD      68     6A7



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       64            IKJEBEPD        IKJEBEPD
 ENTRY ADDRESS       00
 TOTAL LENGTH       710

****IKJEBEPS  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK61.R0000211      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   MVT1.CMDLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DCMDLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK61.S0000212      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK61.S0000212      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG62    / START 78240.1945
IEF374I STEP /SG62    / STOP  78240.1946 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:45:59.85   ALLOC START    19:45:59.86   MAIN REGION ----- 256K                          *
*   STEP NAME SG62       STEP END TIME  19:46:00.02   PGM START TIME 19:45:59.92   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.17   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0130 ------------ 5       0150 ------------ 8       0250 ------------ 7       0151 ----------- 34    *
*   0130 ------------ 5                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK61  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:00.04   ALLOC START    19:46:00.05   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:00.08   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK61 / START 78240.1945
IEF376I  JOB /R21LK61 / STOP  78240.1946 CPU   0MIN 00.07SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK61    JOB READ TIME 19:45:07.13   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.07   *
*   JOB CLASS A          JOB INIT TIME 19:45:59.85   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.24   *
*   ACCOUNT              JOB END TIME  19:46:00.09   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       66     2222222                             A
            RRRRRRRRR  222222222      11     LL         KK    KK       66     222222222                           AAA
            RR     RR  22     22     111     LL         KK   KK       66      22     22                          AA AA
            RR     RR        22       11     LL         KK  KK       66             22                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK       6666666        22                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK      666666666      22                           AA     AA
            RR  RR        22          11     LL         KKK KK     66     66     22                            AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    66     66    22                             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   666666666   22222222                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   6666666   222222222                        AA     AA

***********A  START   R21LK62    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK62    START  A***********
***********A  START   R21LK62    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK62    START  A***********
***********A  START   R21LK62    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK62    START  A***********
***********A  START   R21LK62    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK62    START  A***********
***********A  START   R21LK62    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK62    START  A***********


//R21LK62 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG63 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REFR,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.CMDLIB
//DCMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DCMDLIB
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK62  SG63
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DCMDLIB
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REFR,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE DCMDLIB(IKJEFF60,IKJEFF62,IKJEFF63)
IEW0000      INCLUDE DCMDLIB(IKJEFF64,IKJEFF68)
IEW0000      ENTRY IKJEFF60
IEW0000      ALIAS OUTPUT
IEW0000      ALIAS OUT
IEW0000      NAME IKJEFF60(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF60      00     E00
  IKJEFFPO     E00     11A
  IKJEFF62     F20     C84
  IKJEFFP2    1BA8     114
  IKJEFFGT    1CC0     220
  IKJEFF63    1EE0     538
  IKJEFFPC    2418      4A
  IKJEFF64    2468     1C8
  IKJEFF68    2630     4F8
  PARSAVE     2B28      42



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      D58            IKJEFFPO        IKJEFFPO                     D5C            IKJEFF62        IKJEFF62
      D60            IKJEFF64        IKJEFF64                     EED            IKJEFF60        IKJEFF60
      F16            IKJEFF60        IKJEFF60                    1ACC            IKJEFF63        IKJEFF63
     1AD0            IKJEFF64        IKJEFF64                    1AD4            IKJEFFGT        IKJEFFGT
     23F4            IKJEFF64        IKJEFF64                    23F8            IKJEFFPC        IKJEFFPC
     23FC            IKJEFF68        IKJEFF68                    2AF8            PARSAVE         PARSAVE
     2B66            IKJEFF68        IKJEFF68
 ENTRY ADDRESS       00
 TOTAL LENGTH      2B70

****IKJEFF60  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****OUT       IS AN ALIAS FOR THIS MEMBER
****OUTPUT    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK62.R0000213      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.CMDLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DCMDLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK62.S0000214      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK62.S0000214      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG63    / START 78240.1946
IEF374I STEP /SG63    / STOP  78240.1946 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:00.11   ALLOC START    19:46:00.12   MAIN REGION ----- 256K                          *
*   STEP NAME SG63       STEP END TIME  19:46:00.29   PGM START TIME 19:46:00.18   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.18   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ------------ 9       0150 ----------- 10       0250 ----------- 66       0151 ------------ 0    *
*   0130 ------------ 7                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK62  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:00.31   ALLOC START    19:46:00.32   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:00.34   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK62 / START 78240.1946
IEF376I  JOB /R21LK62 / STOP  78240.1946 CPU   0MIN 00.07SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK62    JOB READ TIME 19:45:07.25   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.07   *
*   JOB CLASS A          JOB INIT TIME 19:46:00.11   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.24   *
*   ACCOUNT              JOB END TIME  19:46:00.35   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       66    333333333                            A
            RRRRRRRRR  222222222      11     LL         KK    KK       66     333333333                           AAA
            RR     RR  22     22     111     LL         KK   KK       66      33    33                           AA AA
            RR     RR        22       11     LL         KK  KK       66            33                           AA   AA
            RRRRRRRRR       22        11     LL         KK KK       6666666       3333                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK      666666666     333333                        AA     AA
            RR  RR        22          11     LL         KKK KK     66     66         33                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    66     66  33     33                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   666666666  333333333                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   6666666    3333333                         AA     AA

***********A  START   R21LK63    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK63    START  A***********
***********A  START   R21LK63    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK63    START  A***********
***********A  START   R21LK63    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK63    START  A***********
***********A  START   R21LK63    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK63    START  A***********
***********A  START   R21LK63    SYS SYSA   WTR 00E   07:47:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK63    START  A***********


//R21LK63 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG64 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REFR,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK63  SG64
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO CI555
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REFR,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE CI555(IKJEFF61,IKJEFF66)
IEW0000      CHANGE  IEFSD110(IKJEFF61)
IEW0000      INCLUDE  CI505(IEFQAGST,IEFLOCDQ)
IEW0000      CHANGE  IEFSD112(IKJEFF61)
IEW0000      INCLUDE CI505(IEFQDELQ,IEFCNVRT,IEFRDWRT)
IEW0000      ENTRY IKJEFF61
IEW0000      NAME IKJEFF61(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF61      00     242
  IKJEFF66     248      8E
  IEFQAGST     2D8     118
  IEFLOCDQ     3F0     508
                                        LOCDQ        400    LOCCAN       402    LOC          404
  IEFQDELE     8F8     292
  IEFCNVRT     B90      FC
                                        CNVRT        B90
  IEFRDWRT     C90      AE
                                        RD           C90    WRT          C92


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      20C            LOCDQ           IEFLOCDQ                     210            IEFQDELE        IEFQDELE
      214            IKJEFF66        IKJEFF66                     218            IEFQAGST        IEFQAGST
      3EC            IKJEFF61        IKJEFF61                     890            CNVRT           IEFCNVRT
      894            RD              IEFRDWRT                     898            WRT             IEFRDWRT
      B6C            IKJEFF61        IKJEFF61
 ENTRY ADDRESS       00
 TOTAL LENGTH       D40

****IKJEFF61  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE SYSPUNCH(IKJEFF65)
IEW0000      ENTRY IKJEFF65
IEW0000      NAME IKJEFF65(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF65      00      20



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        20

****IKJEFF65  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK63.R0000215      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK63.S0000216      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK63.S0000216      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG64    / START 78240.1946
IEF374I STEP /SG64    / STOP  78240.1946 CPU   0MIN 00.09SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:00.38   ALLOC START    19:46:00.39   MAIN REGION ----- 256K                          *
*   STEP NAME SG64       STEP END TIME  19:46:00.60   PGM START TIME 19:46:00.46   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.22   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.09   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0158 ----------- 12       0150 ----------- 15       0250 ----------- 35       0250 ----------- 15    *
*   0151 ------------ 6       0130 ----------- 11                                                                                  *
************************************************************************************************************************************

//SG65 EXEC PGM=IEBCOPY,COND=(8,LT)
//SYSUT3 DD DISP=SHR,DSNAME=SYS1.SYSUT3
//SYSUT4 DD DISP=SHR,DSNAME=SYS1.SYSUT4
//SYSPRINT DD SPACE=(121,(750,100),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),                   X
//             SYSOUT=A
//CI535 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.CI535
//CI555 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.CI555
//DM508 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.DM508
//CI505 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.CI505
//DHELP DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DHELP
//HELP DD DSNAME=MVT1.HELP,VOLUME=(,RETAIN,SER=ASPRES),            XXXXXXXX
//             UNIT=3330,DISP=OLD
//DUADS DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DUADS
//UADS DD DSNAME=MVT1.UADS,VOLUME=(,RETAIN,SER=ASPRES),            XXXXXXXX
//             UNIT=3330,DISP=OLD
//DCMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DCMDLIB
//CMDLIB DD DSN=MVT1.CMDLIB,VOL=(,RETAIN,SER=ASPRES),
//             UNIT=3330,DISP=OLD
//SVCLIB DD DSNAME=MVT1.SVCLIB,VOLUME=(,RETAIN,SER=ASPRES),        XXXXXXXX
//             UNIT=3330,DISP=OLD
//LINKLIB DD DSNAME=MVT1.LINKLIB,VOLUME=(,RETAIN,SER=ASPRES),      XXXXXXXX
//             UNIT=3330,DISP=OLD
//SYSIN DD *
IEF236I ALLOC. FOR R21LK63  SG65
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 151   ALLOCATED TO SYSUT4
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO CI535
IEF237I 250   ALLOCATED TO CI555
IEF237I 250   ALLOCATED TO DM508
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO DHELP
IEF237I 150   ALLOCATED TO HELP
IEF237I 250   ALLOCATED TO DUADS
IEF237I 150   ALLOCATED TO UADS
IEF237I 250   ALLOCATED TO DCMDLIB
IEF237I 150   ALLOCATED TO CMDLIB
IEF237I 150   ALLOCATED TO SVCLIB
IEF237I 150   ALLOCATED TO LINKLIB
IEF237I 130   ALLOCATED TO SYSIN


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


                     COPY OUTDD=HELP,INDD=DHELP
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DHELP    -
IEB154I  ACCOUNT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  ALLOC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  ALLOCATE HAS BEEN SUCCESSFULLY COPIED
IEB154I  ATTRIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  CALL     HAS BEEN SUCCESSFULLY COPIED
IEB154I  CANCEL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  COMMANDS HAS BEEN SUCCESSFULLY COPIED
IEB154I  D        HAS BEEN SUCCESSFULLY COPIED
IEB154I  DELETE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  E        HAS BEEN SUCCESSFULLY COPIED
IEB154I  EDIT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  EX       HAS BEEN SUCCESSFULLY COPIED
IEB154I  EXEC     HAS BEEN SUCCESSFULLY COPIED
IEB154I  FREE     HAS BEEN SUCCESSFULLY COPIED
IEB154I  H        HAS BEEN SUCCESSFULLY COPIED
IEB154I  HELP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  LINK     HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTALC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTBC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTCAT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTDS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOAD     HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOADGO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOGOFF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOGON    HAS BEEN SUCCESSFULLY COPIED
IEB154I  OPER     HAS BEEN SUCCESSFULLY COPIED
IEB154I  OPERATOR HAS BEEN SUCCESSFULLY COPIED
IEB154I  OUT      HAS BEEN SUCCESSFULLY COPIED
IEB154I  OUTPUT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PROF     HAS BEEN SUCCESSFULLY COPIED
IEB154I  PROFILE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  PROT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  PROTECT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  R        HAS BEEN SUCCESSFULLY COPIED
IEB154I  REN      HAS BEEN SUCCESSFULLY COPIED
IEB154I  RENAME   HAS BEEN SUCCESSFULLY COPIED
IEB154I  RUN      HAS BEEN SUCCESSFULLY COPIED
IEB154I  SE       HAS BEEN SUCCESSFULLY COPIED
IEB154I  SEND     HAS BEEN SUCCESSFULLY COPIED
IEB154I  ST       HAS BEEN SUCCESSFULLY COPIED
IEB154I  STATUS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  SUB      HAS BEEN SUCCESSFULLY COPIED
IEB154I  SUBMIT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  TERM     HAS BEEN SUCCESSFULLY COPIED
IEB154I  TERMINAL HAS BEEN SUCCESSFULLY COPIED
IEB154I  TEST     HAS BEEN SUCCESSFULLY COPIED
IEB154I  TIME     HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0002


IEB154I  WHEN     HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000093 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY HELP
IEB149I  THERE ARE 0000016  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0003


                     COPY OUTDD=UADS,INDD=DUADS
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DUADS    -
IEB154I  IBMUSER0 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000018 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY UADS
IEB149I  THERE ARE 0000009  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0004


                      COPY    OUTDD=LINKLIB,INDD=CI555
                      SELECT MEMBER=(IKJEAT00,IKJEAT02)
                      SELECT MEMBER=(IKJEAD02,IKJEAD03,IKJEAP00)
                      SELECT MEMBER=(IKJEAS00,IKJEAS01,IKJEAS03)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI555    -
IEB154I  IKJEAD02 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEAD03 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEAP00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEAS00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEAS01 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEAS03 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEAT00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEAT02 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0001101 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000386  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0005


                      COPY   OUTDD=SVCLIB,INDD=CI555
                      SELECT MEMBER=((IKJEAX00,IGC0009F))
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI555    -
IEB155I  IGC0009F HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB144I  THERE ARE 0000557 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000349  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0006


                     COPY OUTDD=SVCLIB,INDD=CI555
                     SELECT MEMBER=(IGC0009C,IGC0009D,IGG019TX)
                     SELECT MEMBER=(IGG019TY,IGG019TZ,IGG019T3,IGG019T4)
                     SELECT MEMBER=(IGG019T5,IGG019T6,IGG019T7,IGG019T8)
                     SELECT MEMBER=(IGG0196S,IGG09301,IGG09302)
                     SELECT MEMBER=(IGG09303,IGG0940A,IGG0940B,IGG0940C)
                     SELECT MEMBER=(IGG0940D,IGG0940E,IGG0940F,IGG0940G)
                     SELECT MEMBER=(IGG09400,IGG09404,IGG09405,IGG09406)
                     SELECT MEMBER=(IGG09407,IGG09408,IGG09409,IGG0193H)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI555    -
IEB154I  IGC0009C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0009D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TY HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TZ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019T3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019T4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019T5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019T6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019T7 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019T8 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0196S HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG09301 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG09302 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG09303 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0940A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0940B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0940C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0940D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0940E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0940F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0940G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG09400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG09404 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG09405 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG09406 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG09407 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG09408 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG09409 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000552 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000344  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0007


                     COPY OUTDD=LINKLIB,INDD=CI555
                     SELECT MEMBER=(IKJGG001,IKJGGE00,IKJGGE01)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI555    -
IEB154I  IKJGGE00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJGGE01 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJGG001 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0001101 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000385  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0008


                     COPY OUTDD=CMDLIB,INDD=DCMDLIB
                     SELECT MEMBER=(LINK,LOADGO,LOAD,IKJLKL02)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DCMDLIB  -
IEB154I  IKJLKL02 HAS BEEN SUCCESSFULLY COPIED
IEB154I  LINK     HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOAD     HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOADGO   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000246 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY CMDLIB
IEB149I  THERE ARE 0000089  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0009


                      COPY OUTDD=CMDLIB,INDD=DCMDLIB
                       SELECT MEMBER=(IKJEBERU,IKJEBEMS,IKJEBEFC,IKJEBESA)
                       SELECT MEMBER=(IKJEBECO,IKJEBELT,IKJEBELI,IKJEBEMR)
                       SELECT MEMBER=(IKJEBEM5,IKJEBEIM,IKJEBEIP,IKJEBESC)
                       SELECT MEMBER=(IKJEBELE,IKJEBESN,IKJEBECI,IKJEBEUI)
                       SELECT MEMBER=(IKJEBEUT,IKJEBEEX,IKJEBEAA,IKJEBEIA)
                       SELECT MEMBER=(IKJEBEDE,IKJEBEME,IKJEBERE,IKJEBEIS)
                       SELECT MEMBER=(IKJEBETA,IKJEBEDO,IKJEBEHE)
                       SELECT MEMBER=(IKJEBEFO,IKJEBETO,IKJEBEBO,IKJEBEUP)
                       SELECT MEMBER=(IKJEBEVE,IKJEBEDA,IKJEBEM6,IKJEBEM7)
                       SELECT MEMBER=(IKJEBEM1,IKJEBEM2,IKJEBEM3,IKJEBEM4)
                       SELECT MEMBER=(IKJEBECH,IKJEBECN,IKJEBERN)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DCMDLIB  -
IEB154I  IKJEBEAA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEBO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBECH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBECI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBECN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBECO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEDA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEDE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEDO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEEX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEFC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEFO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEHE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEIA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEIM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEIP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEIS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBELE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBELI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBELT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEME HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEMR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEMS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEM1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEM2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEM3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEM4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEM5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEM6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEM7 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBERE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBERN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBERU HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBESA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBESC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBESN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBETA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBETO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEUI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEUP HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0010


IEB154I  IKJEBEUT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEVE HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000233 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY CMDLIB
IEB149I  THERE ARE 0000081  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0011


                     COPY OUTDD=CMDLIB,INDD=DCMDLIB
                       SELECT MEMBER=IKJEFF67
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DCMDLIB  -
IEB154I  IKJEFF67 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000233 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY CMDLIB
IEB149I  THERE ARE 0000081  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0012


                      COPY OUTDD=SVCLIB,INDD=CI555
                       SELECT MEMBER=IGC0009G
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI555    -
IEB154I  IGC0009G HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000552 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000344  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0013


                       COPY OUTDD=SVCLIB,INDD=CI505
                       SELECT MEMBER=IGC0006A               TESTRAN SVC
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI505    -
IEB154I  IGC0006A HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000552 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000344  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0014


                      COPY OUTDD=CMDLIB,INDD=DCMDLIB
                       SELECT MEMBER=(IKJEGLDR,IKJEGQFY,IKJEGSYM,IKJEGAT)
                       SELECT MEMBER=(IKJEGPCH,IKJEGLST,IKJEGASN,IKJEGLSA)
                       SELECT MEMBER=(IKJEGMAP,IKJEGWHR,IKJEGOFF,IKJEGTCB)
                       SELECT MEMBER=(IKJEGDEB,IKJEGPSW,IKJEGDCB,IKJEGEQU)
                       SELECT MEMBER=(IKJEGGO,IKJEGRUN,IKJEGCAL,IKJEGDRP)
                       SELECT MEMBER=(IKJEGLDF,IKJEGLOD,IKJEGDEL,IKJEGATD)
                       SELECT MEMBER=(IKJEGGET,IKJEGFRE,IKJEGCPY)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DCMDLIB  -
IEB154I  IKJEGASN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGAT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGATD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGCAL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGCPY HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGDCB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGDEB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGDEL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGDRP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGEQU HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGFRE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGGET HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGGO  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGLDF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGLDR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGLOD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGLSA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGLST HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGMAP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGOFF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGPCH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGPSW HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGQFY HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGRUN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGSYM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGTCB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEGWHR HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000223 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY CMDLIB
IEB149I  THERE ARE 0000077  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0015


                        COPY OUTDD=LINKLIB,INDD=CI555
                        SELECT MEMBER=(IKJEFT25)
                        SELECT MEMBER=(IKJEFLA,IKJEFLI,IKJEFLM)
                        SELECT MEMBER=(IKJEFLPA,IEFVSCAN)
                        SELECT MEMBER=(IEEVDUS1,IEEVGPSD)
                        SELECT MEMBER=(IEEVSEND,IEEVSND9)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI555    -
IEB154I  IEEVDUS1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEEVGPSD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEEVSEND HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEEVSND9 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFVSCAN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEFLA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEFLI  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEFLM  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEFLPA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEFT25 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0001098 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000384  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0016


                        COPY OUTDD=SVCLIB,INDD=CI555
                        SELECT MEMBER=((IKJEFF00,IGC0010{))
                        SELECT MEMBER=(IGC0009I,IGC0109I,IGC0209I)
                        SELECT MEMBER=(IGC0309I,IGC0409I,IGC0509I)
                        SELECT MEMBER=(IGC0609I,IGC0709I,IGC0809I)
                        SELECT MEMBER=(IGC0909I,IGC1009I,IGC1109I)
                        SELECT MEMBER=(IGC1209I,IGC1309I,IGC1409I)
                        SELECT MEMBER=(IGC1509I,IGC1609I,IGC1709I)
                        SELECT MEMBER=(IGC1809I,IGC1909I,IGC2009I)
                        SELECT MEMBER=(IGC2109I,IGC2309I,IGC2509I)
                        SELECT MEMBER=(IGC2609I,IGC2709I,IGC2809I)
                        SELECT MEMBER=(IGC2909I,IGC3009I,IGC3509I)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI555    -
IEB154I  IGC0009I HAS BEEN SUCCESSFULLY COPIED
IEB155I  IGC0010{ HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB154I  IGC0109I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0209I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0309I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0409I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0509I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0609I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0709I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0809I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0909I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1009I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1109I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1209I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1309I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1409I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1509I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1609I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1709I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1809I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1909I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC2009I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC2109I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC2309I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC2509I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC2609I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC2709I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC2809I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC2909I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC3009I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC3509I HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000547 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000339  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0017


                        COPY OUTDD=LINKLIB,INDD=CI555
                        SELECT MEMBER=(IKJEFF02,IKJEFF44,IKJEFF45)
                        SELECT MEMBER=(IKJEFF53)
                        SELECT MEMBER=(IKJEFF15)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI555    -
IEB154I  IKJEFF02 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEFF15 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEFF44 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEFF45 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0001098 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000383  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0018


                        COPY OUTDD=CMDLIB,INDD=DCMDLIB
                        SELECT MEMBER=(IKJEFF10,IKJEFF18)
                        SELECT MEMBER=((IKJEFF57,CANCEL))
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DCMDLIB  -
IEB155I  CANCEL   HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB154I  IKJEFF10 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEFF18 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000223 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY CMDLIB
IEB149I  THERE ARE 0000076  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0019


                      COPY  OUTDD=CMDLIB,INDD=DCMDLIB
                      SELECT MEMBER=(IKJEHCT1,LISTCAT,LISTC,IKJEHCIR,IKJEHMEM)
                       SELECT MEMBER=(IKJEHDEF,IKJDFLT)
                      SELECT MEMBER=(IKJEHDS1,LISTDS,LISTD)
                      SELECT MEMBER=(IKJEHAL1,LISTALC,LISTA)
                      SELECT MEMBER=(IKJEHSIR)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DCMDLIB  -
IEB154I  IKJDFLT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEHAL1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEHCIR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEHCT1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEHDEF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEHDS1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEHMEM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEHSIR HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTALC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTCAT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTDS   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000219 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY CMDLIB
IEB149I  THERE ARE 0000073  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT4                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK63.R0000217      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DM508                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DHELP                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.HELP                                    KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DUADS                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.UADS                                    KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DCMDLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.CMDLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   MVT1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21LK63.S0000218      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK63.S0000218      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG65    / START 78240.1946
IEF374I STEP /SG65    / STOP  78240.1946 CPU   0MIN 02.55SEC MAIN 254K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:00.62   ALLOC START    19:46:00.63   MAIN REGION ----- 256K                          *
*   STEP NAME SG65       STEP END TIME  19:46:03.48   PGM START TIME 19:46:00.71   MAIN STORAGE ---- 254K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.86   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBCOPY    STEP CPU TIME  00:00:02.55   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0151 ------------ 0       0353 ---------- 382       0250 ------------ 0       0250 --------- 2033    *
*   0250 ------------ 0       0250 ---------- 320       0250 ---------- 262       0150 ---------- 304       0250 ----------- 18    *
*   0150 ----------- 30       0250 --------- 2479       0150 --------- 3704       0150 --------- 4472       0150 --------- 3922    *
*   0130 ----------- 80                                                                                                            *
************************************************************************************************************************************

//SG66 EXEC PGM=IEHPROGM,COND=(8,LT)
//SYSPRINT DD SPACE=(121,(500,40),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),                   X
//             SYSOUT=A
//SYSRES DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//HEL DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//UAD DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//SYSIN DD *
IEF236I ALLOC. FOR R21LK63  SG66
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSRES
IEF237I 150   ALLOCATED TO HEL
IEF237I 150   ALLOCATED TO UAD
IEF237I 130   ALLOCATED TO SYSIN


SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0001



 RENAME DSNAME=MVT1.HELP,NEWNAME=SYS1.HELP,                        XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.UADS,NEWNAME=SYS1.UADS,                        XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



UTILITY END


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.R21LK63.R0000219      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.R21LK63.R0000220      KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21LK63.R0000221      KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21LK63.R0000222      KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21LK63.S0000223      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK63.S0000223      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG66    / START 78240.1946
IEF374I STEP /SG66    / STOP  78240.1946 CPU   0MIN 00.04SEC MAIN  30K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 19:46:03.50   ALLOC START    19:46:03.52   MAIN REGION ----- 256K                          *
*   STEP NAME SG66       STEP END TIME  19:46:03.92   PGM START TIME 19:46:03.57   MAIN STORAGE ----- 30K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.42   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHPROGM   STEP CPU TIME  00:00:00.04   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0159 ----------- 11       0150 ------------ 0       0150 ------------ 0       0150 ------------ 0       0130 ------------ 5    *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK63  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  004        STEP INIT TIME 19:46:03.95   ALLOC START    19:46:03.96   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:03.98   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK63 / START 78240.1946
IEF376I  JOB /R21LK63 / STOP  78240.1946 CPU   0MIN 02.68SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK63    JOB READ TIME 19:45:07.39   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:02.68   *
*   JOB CLASS A          JOB INIT TIME 19:46:00.38   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:03.62   *
*   ACCOUNT              JOB END TIME  19:46:04.00   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1      CCCCCCC   YY    YY        66         44                              A
            RRRRRRRRR  222222222      11     CCCCCCCCC  YY    YY       66         444                             AAA
            RR     RR  22     22     111     CC     CC  YY    YY      66         4444                            AA AA
            RR     RR        22       11     CC          YY  YY      66         44 44                           AA   AA
            RRRRRRRRR       22        11     CC           YYYY      6666666    44  44                          AA     AA
            RRRRRRRR       22         11     CC            YY      666666666  44   44                          AA     AA
            RR  RR        22          11     CC            YY      66     66  444444444                        AAAAAAAAA
            RR   RR      22           11     CC     CC     YY      66     66  444444444                        AAAAAAAAA
            RR    RR    22222222    111111   CCCCCCCCC     YY      666666666       44                          AA     AA
            RR     RR  222222222    111111    CCCCCCC      YY       6666666        44                          AA     AA

***********A  START   R21CY64    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY64    START  A***********
***********A  START   R21CY64    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY64    START  A***********
***********A  START   R21CY64    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY64    START  A***********
***********A  START   R21CY64    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY64    START  A***********
***********A  START   R21CY64    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY64    START  A***********


//R21CY64 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG67 EXEC PGM=IEBCOPY,COND=(8,LT)
//SYSPRINT DD SPACE=(121,(500,40),RLSE),                               X
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=3630),                  X
//             SYSOUT=A
//SYSUT1 DD DSNAME=SYS1.DMACLIB,DISP=SHR
//SYSUT2 DD DSNAME=MVT1.MACLIB,VOLUME=(,RETAIN,SER=ASPRES),        XXXXXXXX
//             DISP=OLD,UNIT=3330
//SYSUT3 DD DISP=SHR,DSNAME=SYS1.SYSUT3
//SYSUT4 DD DISP=SHR,DSNAME=SYS1.SYSUT4
//TSOMAC DD DSNAME=SYS1.TSOMAC,DISP=SHR
//TCAMMAC DD DSNAME=SYS1.TCAMMAC,DISP=SHR
//SYSIN DD *
IEF236I ALLOC. FOR R21CY64  SG67
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO SYSUT1
IEF237I 150   ALLOCATED TO SYSUT2
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 151   ALLOCATED TO SYSUT4
IEF237I 250   ALLOCATED TO TSOMAC
IEF237I 250   ALLOCATED TO TCAMMAC
IEF237I 130   ALLOCATED TO SYSIN


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


                     COPY OUTDD=SYSUT2,INDD=SYSUT1
                     EXCLUDE MEMBER=(BREAKOFF,BUFFER,CANCELM)
                     EXCLUDE MEMBER=(DATESTMP,DIRECT,DLIST,ENDRCV)
                     EXCLUDE MEMBER=(ENDREADY,ENDSEND,EOA,EOB,EOBLC)
                     EXCLUDE MEMBER=(ERRMSG,INTERCPT)
                     EXCLUDE MEMBER=(LOGSEG,LPSTART,MODE,OPCTL)
                     EXCLUDE MEMBER=(PAUSE,POLL,POLLIMIT,POSTRCV,POSTSEND)
                     EXCLUDE MEMBER=(PROCESS)
                     EXCLUDE MEMBER=(RCVHDR,RCVSEG,REROUTE)
                     EXCLUDE MEMBER=(ROUTE,SENDHDR,SENDSEG,SEQIN)
                     EXCLUDE MEMBER=(SEQOUT,SKIP,SOURCE)
                     EXCLUDE MEMBER=(TERM,TERMTBL,TIMESTMP,TRANS,WRU)
                     EXCLUDE MEMBER=(RCVEITA2,RCVEZSC3,SENDITA2,SENDZSC3)
                     EXCLUDE MEMBER=(ANALYZ,ASGNBFR,ATTNINQ,BUFINQ,DAR)
                     EXCLUDE MEMBER=(GAIC,GBFLM,GBINF,GBPOS,GBPST,GCNL)
                     EXCLUDE MEMBER=(GCNOP,GCNTRL,GCON,GDCDS,GDPD,GDRD,GDS,GDSF)
                     EXCLUDE MEMBER=(GDV,GECF,GECP,GECV,GENSD,GEOS,GEPI2)
                     EXCLUDE MEMBER=(GEPM,GESD,GESM,GESU,GEVI2,GEVM,GFEF)
                     EXCLUDE MEMBER=(GFFM,GFRM,GIBLC,GINIT,GLCW,GLIC,GLRC,GLRR)
                     EXCLUDE MEMBER=(GLTR,GLVS,GMLD,GMLW,GMSR,GMVA,GMVD)
                     EXCLUDE MEMBER=(GNOP2,GNOP4,GODEL,GPDI,GRDA,GRDB,GRDE)
                     EXCLUDE MEMBER=(GRDS,GREAD,GREADR,GSBLC,GSBPOS,GSCW)
                     EXCLUDE MEMBER=(GSERV,GSIC,GSRT,GSXY,GTDD,GTND)
                     EXCLUDE MEMBER=(GTNS,GTNZ,GTOS,GTRU,GTR1,GTR2,GTR3)
                     EXCLUDE MEMBER=(GTR4,GTSL,GTXT,GTZE,GUSTOR,GWRITE)
                     EXCLUDE MEMBER=(IHBGAM1,IHBGAM2,IHBGAM3)
                     EXCLUDE MEMBER=(OACB,RLSEBFR,SAEC,SPAR)
                     EXCLUDE MEMBER=(RESCN,DSPLY,RDLNE,DEFAREA,DEFCCW)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY SYSUT1   -
IEB154I  ABEND    HAS BEEN SUCCESSFULLY COPIED
IEB154I  AS       HAS BEEN SUCCESSFULLY COPIED
IEB154I  ASCTR    HAS BEEN SUCCESSFULLY COPIED
IEB154I  ASLIST   HAS BEEN SUCCESSFULLY COPIED
IEB154I  ASMTRTAB HAS BEEN SUCCESSFULLY COPIED
IEB154I  ATLAS    HAS BEEN SUCCESSFULLY COPIED
IEB154I  ATTACH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  BLDL     HAS BEEN SUCCESSFULLY COPIED
IEB154I  BSP      HAS BEEN SUCCESSFULLY COPIED
IEB154I  BUILD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  BUILDRCD HAS BEEN SUCCESSFULLY COPIED
IEB154I  CALL     HAS BEEN SUCCESSFULLY COPIED
IEB154I  CAMLST   HAS BEEN SUCCESSFULLY COPIED
IEB154I  CATALOG  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CHAP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  CHECK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CHGNTRY  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CHKPT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CHNGP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CHNGT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CIRB     HAS BEEN SUCCESSFULLY COPIED
IEB154I  CKREQ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CLOSE    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CLOSEMC  HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0002


IEB154I  CNTRL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CONFIGUR HAS BEEN SUCCESSFULLY COPIED
IEB154I  COPYP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  COPYQ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  COPYT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  COUNTER  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CRJELINE HAS BEEN SUCCESSFULLY COPIED
IEB154I  CRJETABL HAS BEEN SUCCESSFULLY COPIED
IEB154I  CRJEUSER HAS BEEN SUCCESSFULLY COPIED
IEB154I  CTRGROUP HAS BEEN SUCCESSFULLY COPIED
IEB154I  CTRLIST  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CTRSCHED HAS BEEN SUCCESSFULLY COPIED
IEB154I  DCB      HAS BEEN SUCCESSFULLY COPIED
IEB154I  DCBD     HAS BEEN SUCCESSFULLY COPIED
IEB154I  DELETE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  DEQ      HAS BEEN SUCCESSFULLY COPIED
IEB154I  DETACH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  DEULIST  HAS BEEN SUCCESSFULLY COPIED
IEB154I  DEVTYPE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  DFTRMLST HAS BEEN SUCCESSFULLY COPIED
IEB154I  DISPGUID HAS BEEN SUCCESSFULLY COPIED
IEB154I  DOM      HAS BEEN SUCCESSFULLY COPIED
IEB154I  DXR      HAS BEEN SUCCESSFULLY COPIED
IEB154I  ENQ      HAS BEEN SUCCESSFULLY COPIED
IEB154I  EOV      HAS BEEN SUCCESSFULLY COPIED
IEB154I  ESETL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  EXCP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  EXTRACT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  FDCTRL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  FDDSPLY  HAS BEEN SUCCESSFULLY COPIED
IEB154I  FDEND    HAS BEEN SUCCESSFULLY COPIED
IEB154I  FDFIELD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  FDFORM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  FDLINE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  FDLOAD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  FDPAGE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  FDSYNTAX HAS BEEN SUCCESSFULLY COPIED
IEB154I  FDTRACE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  FEOV     HAS BEEN SUCCESSFULLY COPIED
IEB154I  FIND     HAS BEEN SUCCESSFULLY COPIED
IEB154I  FREEBUF  HAS BEEN SUCCESSFULLY COPIED
IEB154I  FREEDBUF HAS BEEN SUCCESSFULLY COPIED
IEB154I  FREEMAIN HAS BEEN SUCCESSFULLY COPIED
IEB154I  FREEPOOL HAS BEEN SUCCESSFULLY COPIED
IEB154I  GDUAS    HAS BEEN SUCCESSFULLY COPIED
IEB154I  GDULIST  HAS BEEN SUCCESSFULLY COPIED
IEB154I  GDUTRANS HAS BEEN SUCCESSFULLY COPIED
IEB154I  GET      HAS BEEN SUCCESSFULLY COPIED
IEB154I  GETBUF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  GETMAIN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  GETPOOL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  GTRACE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDENTIFY HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0003


IEB154I  IDFASM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFDSP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFGBL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFIN01  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFIN02  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFIN03  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFIN04  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFIN05  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFIN06  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFIN07  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFIN08  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFIN09  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFIN10  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFIN11  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFMSG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFMSG1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFMSG2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFMSG3  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFTR    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFTRK   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECTDECB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFDSOCB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBERMAC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBINNRA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBINNRB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBOPLST HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBRDWRD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBRDWRK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBRDWRS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHBRDWRT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHB01    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHB02    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHB03    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLMGTRC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJPSCB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDMEDIT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDSADMP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMGLIB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  INDEX    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IOHALT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  LERB     HAS BEEN SUCCESSFULLY COPIED
IEB154I  LERPRT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  LINK     HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOAD     HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOCATE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOPEN    HAS BEEN SUCCESSFULLY COPIED
IEB154I  NOTE     HAS BEEN SUCCESSFULLY COPIED
IEB154I  OBTAIN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  ONLTST   HAS BEEN SUCCESSFULLY COPIED
IEB154I  OPEN     HAS BEEN SUCCESSFULLY COPIED
IEB154I  OPTION   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PARAMNUM HAS BEEN SUCCESSFULLY COPIED
IEB154I  PARMLIST HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0004


IEB154I  POINT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  POST     HAS BEEN SUCCESSFULLY COPIED
IEB154I  PROTECT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  PRTOV    HAS BEEN SUCCESSFULLY COPIED
IEB154I  PUT      HAS BEEN SUCCESSFULLY COPIED
IEB154I  PUTX     HAS BEEN SUCCESSFULLY COPIED
IEB154I  QEDIT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  RDJFCB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  READ     HAS BEEN SUCCESSFULLY COPIED
IEB154I  RELBUF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  RELEASEM HAS BEEN SUCCESSFULLY COPIED
IEB154I  RELEX    HAS BEEN SUCCESSFULLY COPIED
IEB154I  RELSE    HAS BEEN SUCCESSFULLY COPIED
IEB154I  RENAME   HAS BEEN SUCCESSFULLY COPIED
IEB154I  REQBUF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  RESERVE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  RESETPL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  RETRIEVE HAS BEEN SUCCESSFULLY COPIED
IEB154I  RETURN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  RJELINE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  RJETABL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  RJETERM  HAS BEEN SUCCESSFULLY COPIED
IEB154I  RJEUSER  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SAVE     HAS BEEN SUCCESSFULLY COPIED
IEB154I  SCANREQ  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SCRATCH  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SEGLD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  SEGWT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  SETL     HAS BEEN SUCCESSFULLY COPIED
IEB154I  SETPRT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  SMFWTM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  SNAP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  SPIE     HAS BEEN SUCCESSFULLY COPIED
IEB154I  STAE     HAS BEEN SUCCESSFULLY COPIED
IEB154I  STARTLN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  STATUS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  STEND    HAS BEEN SUCCESSFULLY COPIED
IEB154I  STIMER   HAS BEEN SUCCESSFULLY COPIED
IEB154I  STOPLN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  STOW     HAS BEEN SUCCESSFULLY COPIED
IEB154I  SYNADAF  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SYNADRLS HAS BEEN SUCCESSFULLY COPIED
IEB154I  TGROUP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  TIME     HAS BEEN SUCCESSFULLY COPIED
IEB154I  TPEDIT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  TRANSLAT HAS BEEN SUCCESSFULLY COPIED
IEB154I  TRLIST   HAS BEEN SUCCESSFULLY COPIED
IEB154I  TRNSLATE HAS BEEN SUCCESSFULLY COPIED
IEB154I  TRSLRCTW HAS BEEN SUCCESSFULLY COPIED
IEB154I  TRSLRCT3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  TRSLSCTW HAS BEEN SUCCESSFULLY COPIED
IEB154I  TRSLSCT3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  TRUNC    HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0005


IEB154I  TSEVENT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  TTIMER   HAS BEEN SUCCESSFULLY COPIED
IEB154I  TWAIT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  WAIT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  WAITR    HAS BEEN SUCCESSFULLY COPIED
IEB154I  WRITE    HAS BEEN SUCCESSFULLY COPIED
IEB154I  WTL      HAS BEEN SUCCESSFULLY COPIED
IEB154I  WTO      HAS BEEN SUCCESSFULLY COPIED
IEB154I  WTOR     HAS BEEN SUCCESSFULLY COPIED
IEB154I  XCTL     HAS BEEN SUCCESSFULLY COPIED
IEB154I  XDAP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  XLATE    HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000510 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2
IEB149I  THERE ARE 0000086  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0006


                     COPY OUTDD=SYSUT2,INDD=TSOMAC
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY TSOMAC   -
IEB154I  GETLINE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  GTSIZE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJCPPL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJCSOA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJCSPL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAPL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP0C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP04 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP08 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP1C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP10 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP14 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP18 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP2C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP24 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP28 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP30 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDAP34 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDFPB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDFPL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJDSE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBECA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEMG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEMI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEML HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBERT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBESH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBESV HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJEBEUW HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJECBS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJECT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJENDP  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJGTPB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJIDENT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJIOPL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJKEYWD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJLSD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJNAME  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJOPER  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJPARM  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJPGPB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJPOSIT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJPPL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJPTPB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJRCB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJRLGB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJRLSA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJRSVWD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJSTPB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJSTPL  HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0007


IEB154I  IKJSUBF  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTAIE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTAXE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTERM  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTIOCB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTIOCP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTPL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJTSB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKJUPT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  LINEGRP  HAS BEEN SUCCESSFULLY COPIED
IEB154I  LISTTA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PUTGET   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PUTLINE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  QTIP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  RTAUTOPT HAS BEEN SUCCESSFULLY COPIED
IEB154I  SPAUTOPT HAS BEEN SUCCESSFULLY COPIED
IEB154I  STACK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  STATTN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  STAUTOCP HAS BEEN SUCCESSFULLY COPIED
IEB154I  STAUTOLN HAS BEEN SUCCESSFULLY COPIED
IEB154I  STAX     HAS BEEN SUCCESSFULLY COPIED
IEB154I  STBREAK  HAS BEEN SUCCESSFULLY COPIED
IEB154I  STCC     HAS BEEN SUCCESSFULLY COPIED
IEB154I  STCLEAR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  STCOM    HAS BEEN SUCCESSFULLY COPIED
IEB154I  STSIZE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  STTIMEOU HAS BEEN SUCCESSFULLY COPIED
IEB154I  TCABEND  HAS BEEN SUCCESSFULLY COPIED
IEB154I  TCLEARQ  HAS BEEN SUCCESSFULLY COPIED
IEB154I  TGET     HAS BEEN SUCCESSFULLY COPIED
IEB154I  TPUT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  TSABEND  HAS BEEN SUCCESSFULLY COPIED
IEB154I  TSOMCP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  TSOMH    HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000431 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2
IEB149I  THERE ARE 0000081  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0008


                     COPY OUTDD=SYSUT2,INDD=TCAMMAC
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY TCAMMAC  -
IEB154I  ATTEN    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CANCELMG HAS BEEN SUCCESSFULLY COPIED
IEB154I  CARRIAGE HAS BEEN SUCCESSFULLY COPIED
IEB154I  CHECKPT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CODE     HAS BEEN SUCCESSFULLY COPIED
IEB154I  COMMBUF  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CTBFORM  HAS BEEN SUCCESSFULLY COPIED
IEB154I  CUTOFF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  DATETIME HAS BEEN SUCCESSFULLY COPIED
IEB154I  ERRORMSG HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORWARD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  FULLSCR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  GROUP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  HANGUP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  HOLD     HAS BEEN SUCCESSFULLY COPIED
IEB154I  ICHNG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  ICOPY    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDNOL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDPSTOP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQCHAR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQCHI  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQCKO  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQDID  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQFEA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQGCH  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQJN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQMASK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQSCAN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQTO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQTQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQTT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQVCON HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDVOFF  HAS BEEN SUCCESSFULLY COPIED
IEB154I  INBLOCK  HAS BEEN SUCCESSFULLY COPIED
IEB154I  INBUF    HAS BEEN SUCCESSFULLY COPIED
IEB154I  INEND    HAS BEEN SUCCESSFULLY COPIED
IEB154I  INHDR    HAS BEEN SUCCESSFULLY COPIED
IEB154I  INITIATE HAS BEEN SUCCESSFULLY COPIED
IEB154I  INMSG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  INTRO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  INVLIST  HAS BEEN SUCCESSFULLY COPIED
IEB154I  INVLIST1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  INVLIST2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  INVLIST3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  INVLIST4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  INVLIST5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  INVLIST6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOCK     HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOCOPT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOG      HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOGON    HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0009


IEB154I  LOGTYPE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  MCOUNT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  MCPCLOSE HAS BEEN SUCCESSFULLY COPIED
IEB154I  MHGET    HAS BEEN SUCCESSFULLY COPIED
IEB154I  MHPUT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  MRCHECK  HAS BEEN SUCCESSFULLY COPIED
IEB154I  MRELEASE HAS BEEN SUCCESSFULLY COPIED
IEB154I  MSGEDIT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  MSGFORM  HAS BEEN SUCCESSFULLY COPIED
IEB154I  MSGGEN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  MSGLIMIT HAS BEEN SUCCESSFULLY COPIED
IEB154I  MSGTYPE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  ORIGIN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  OUTBUF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  OUTEND   HAS BEEN SUCCESSFULLY COPIED
IEB154I  OUTHDR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  OUTMSG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PATH     HAS BEEN SUCCESSFULLY COPIED
IEB154I  PCB      HAS BEEN SUCCESSFULLY COPIED
IEB154I  PRIORITY HAS BEEN SUCCESSFULLY COPIED
IEB154I  QACTION  HAS BEEN SUCCESSFULLY COPIED
IEB154I  QCOPY    HAS BEEN SUCCESSFULLY COPIED
IEB154I  QRESET   HAS BEEN SUCCESSFULLY COPIED
IEB154I  QSTART   HAS BEEN SUCCESSFULLY COPIED
IEB154I  READY    HAS BEEN SUCCESSFULLY COPIED
IEB154I  REDIRECT HAS BEEN SUCCESSFULLY COPIED
IEB154I  RETRY    HAS BEEN SUCCESSFULLY COPIED
IEB154I  SCREEN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  SEQUENCE HAS BEEN SUCCESSFULLY COPIED
IEB154I  SETEOF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  SETEOM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  SETSCAN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SIMATTN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SLOWPOLL HAS BEEN SUCCESSFULLY COPIED
IEB154I  STARTMH  HAS BEEN SUCCESSFULLY COPIED
IEB154I  TCHNG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  TCOPY    HAS BEEN SUCCESSFULLY COPIED
IEB154I  TERMINAL HAS BEEN SUCCESSFULLY COPIED
IEB154I  TERRSET  HAS BEEN SUCCESSFULLY COPIED
IEB154I  TGOTO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  TLIST    HAS BEEN SUCCESSFULLY COPIED
IEB154I  TPDATE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  TPROCESS HAS BEEN SUCCESSFULLY COPIED
IEB154I  TRANLIST HAS BEEN SUCCESSFULLY COPIED
IEB154I  TSINPUT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  TTABLE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  TTSID    HAS BEEN SUCCESSFULLY COPIED
IEB154I  TYPETABL HAS BEEN SUCCESSFULLY COPIED
IEB154I  UNLOCK   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000360 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2
IEB149I  THERE ARE 0000074  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.R21CY64.R0000224      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.DMACLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT4                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.TSOMAC                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.TCAMMAC                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.R21CY64.S0000225      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21CY64.S0000225      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG67    / START 78240.1946
IEF374I STEP /SG67    / STOP  78240.1946 CPU   0MIN 01.79SEC MAIN 254K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:04.02   ALLOC START    19:46:04.03   MAIN REGION ----- 256K                          *
*   STEP NAME SG67       STEP END TIME  19:46:06.56   PGM START TIME 19:46:04.10   MAIN STORAGE ---- 254K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.54   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBCOPY    STEP CPU TIME  00:00:01.79   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0353 ----------- 15       0250 --------- 2354       0150 --------- 4943       0151 ------------ 0       0151 ------------ 0    *
*   0250 ---------- 823       0250 ---------- 804       0130 ----------- 32                                                        *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21CY64  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:06.58   ALLOC START    19:46:06.60   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:06.62   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21CY64 / START 78240.1946
IEF376I  JOB /R21CY64 / STOP  78240.1946 CPU   0MIN 01.79SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21CY64    JOB READ TIME 19:45:08.22   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.79   *
*   JOB CLASS A          JOB INIT TIME 19:46:04.02   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:02.62   *
*   ACCOUNT              JOB END TIME  19:46:06.64   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     RRRRRRRR   N      NN       66    555555555                            A
            RRRRRRRRR  222222222      11     RRRRRRRRR  NN     NN      66     555555555                           AAA
            RR     RR  22     22     111     RR     RR  NNN    NN     66      55                                 AA AA
            RR     RR        22       11     RR     RR  NNNN   NN    66       55555555                          AA   AA
            RRRRRRRRR       22        11     RRRRRRRRR  NN NN  NN   6666666   555555555                        AA     AA
            RRRRRRRR       22         11     RRRRRRRR   NN  NN NN  666666666         55                        AA     AA
            RR  RR        22          11     RR  RR     NN   NNNN  66     66         55                        AAAAAAAAA
            RR   RR      22           11     RR   RR    NN    NNN  66     66  55     55                        AAAAAAAAA
            RR    RR    22222222    111111   RR    RR   NN     NN  666666666  555555555                        AA     AA
            RR     RR  222222222    111111   RR     RR  NN      N   6666666    5555555                         AA     AA

***********A  START   R21RN65    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21RN65    START  A***********
***********A  START   R21RN65    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21RN65    START  A***********
***********A  START   R21RN65    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21RN65    START  A***********
***********A  START   R21RN65    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21RN65    START  A***********
***********A  START   R21RN65    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21RN65    START  A***********


//R21RN65 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG68 EXEC PGM=IEHPROGM,COND=(8,LT)
//SYSPRINT DD SPACE=(121,(500,40),RLSE),                               X
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),                   X
//             SYSOUT=A
//MACL DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//SYSIN DD *
IEF236I ALLOC. FOR R21RN65  SG68
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO MACL
IEF237I 130   ALLOCATED TO SYSIN


SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0001



 RENAME DSNAME=MVT1.MACLIB,NEWNAME=SYS1.MACLIB,                    XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



UTILITY END


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.R21RN65.R0000226      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21RN65.R0000227      KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN65.S0000228      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21RN65.S0000228      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG68    / START 78240.1946
IEF374I STEP /SG68    / STOP  78240.1946 CPU   0MIN 00.03SEC MAIN  28K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:06.66   ALLOC START    19:46:06.67   MAIN REGION ----- 256K                          *
*   STEP NAME SG68       STEP END TIME  19:46:06.81   PGM START TIME 19:46:06.72   MAIN STORAGE ----- 28K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.15   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHPROGM   STEP CPU TIME  00:00:00.03   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0130 ------------ 7       0150 ------------ 0       0130 ------------ 3                                                        *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21RN65  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:06.83   ALLOC START    19:46:06.84   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:06.86   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21RN65 / START 78240.1946
IEF376I  JOB /R21RN65 / STOP  78240.1946 CPU   0MIN 00.03SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21RN65    JOB READ TIME 19:45:08.46   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.03   *
*   JOB CLASS A          JOB INIT TIME 19:46:06.66   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.21   *
*   ACCOUNT              JOB END TIME  19:46:06.87   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       66         66                              A
            RRRRRRRRR  222222222      11     LL         KK    KK       66         66                              AAA
            RR     RR  22     22     111     LL         KK   KK       66         66                              AA AA
            RR     RR        22       11     LL         KK  KK       66         66                              AA   AA
            RRRRRRRRR       22        11     LL         KK KK       6666666    6666666                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK      666666666  666666666                        AA     AA
            RR  RR        22          11     LL         KKK KK     66     66  66     66                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    66     66  66     66                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   666666666  666666666                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   6666666    6666666                         AA     AA

***********A  START   R21LK66    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK66    START  A***********
***********A  START   R21LK66    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK66    START  A***********
***********A  START   R21LK66    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK66    START  A***********
***********A  START   R21LK66    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK66    START  A***********
***********A  START   R21LK66    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK66    START  A***********


//R21LK66 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG69 EXEC PGM=IEWL,COND=(4,LT),REGION=150K,
//  PARM='NCAL,DC,SIZE=(128K,6K),SCTR,LET,LIST,XREF'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(500,40),RLSE),                               X
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),                   X
//             SYSOUT=A
//SYSLMOD DD DISP=(OLD,PASS),UNIT=3330,                            XXXXXXXX
//             VOLUME=SER=ASPRES,                                    XXXXXXXX
//             DSNAME=MVT1.NUCLEUS(IEANUC01)
//CI505 DD DISP=SHR,DSNAME=SYS1.CI505,VOLUME=(,RETAIN)
//DM508 DD DISP=SHR,DSNAME=SYS1.DM508,VOLUME=(,RETAIN)
//CI535 DD DISP=SHR,DSNAME=SYS1.CI535,VOLUME=(,RETAIN)
//IO526 DD DISP=SHR,DSNAME=SYS1.IO526,VOLUME=(,RETAIN)
//CQ513 DD DISP=SHR,DSNAME=SYS1.CQ513,VOLUME=(,RETAIN)
//IO523 DD DISP=SHR,DSNAME=SYS1.IO523,VOLUME=(,RETAIN)
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//CQ548 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CQ548
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//RESLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ASP
//DN539 DD DISP=SHR,DSNAME=SYS1.DN539,VOLUME=(,RETAIN)
//SYSLIN DD *
IEF236I ALLOC. FOR R21LK66  SG69
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO DM508
IEF237I 250   ALLOCATED TO CI535
IEF237I 250   ALLOCATED TO IO526
IEF237I 250   ALLOCATED TO CQ513
IEF237I 250   ALLOCATED TO IO523
IEF237I 250   ALLOCATED TO CI555
IEF237I 250   ALLOCATED TO CQ548
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 250   ALLOCATED TO RESLIB
IEF237I 250   ALLOCATED TO DN539
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,DC,SIZE=(128K,6K),SCTR,LET,LIST,XREF
           VARIABLE OPTIONS USED -  SIZE=(131072,6144)
IEW0000             INSERT IEAANIP0
IEW0000           INSERT IEAQFX00
IEW0000     INSERT IGFCCH
IEW0000     INCLUDE CQ513(IGC058)
IEW0000     INCLUDE CQ513(IECTATEN)
IEW0000     INCLUDE CQ548(IEDQEB)
IEW0000     INCLUDE CQ548(IEDQATTN)
IEW0000     INCLUDE SYSPUNCH(IEAANIP0,IEAASU00,IEAQBK00)
IEW0000     INCLUDE CI505(IEAAEF00)
IEW0000     INCLUDE CI535(IEAQED02,IEAQID00,IEAQTB00)
IEW0000     INCLUDE CI555(IKJEASY0,IKJEALK0)
IEW0000     INCLUDE CI555(IKJEANQ0)
IEW0000     INCLUDE CI535(IEAQST01)
IEW0000     INCLUDE CI505(IEA0RT01)
IEW0000     INCLUDE CI555(IKJEATR0,IKJEAAB0)
IEW0000     INCLUDE CI555(IKJEATI3)
IEW0000     CHANGE GETIQE(IEACVT)
IEW0000             INCLUDE CI535(IEAQSETS)
IEW0000     INCLUDE SYSPUNCH(IEAQNU00,IEASVC00,IEAQGM01,IEAQPRT0)
IEW0000     INCLUDE SYSPUNCH(IEAQCH00,IEAQAT00,IEAQET00)
IEW0000     INCLUDE CI505(IEAPATCH)
IEW0000     INCLUDE DM508(IFG019RA)
IEW0000     INCLUDE CI505(IEAQMSGS)
IEW0000     INCLUDE SYSPUNCH(IGFCCH)
IEW0000     INCLUDE CI505(IFBDCB02)
IEW0000             INCLUDE CI535(IHLMCIHV)
IEW0000             INCLUDE CI505(IEAASPRG)
IEW0000              INCLUDE  CQ513(IECTSVC)
IEW0000              INCLUDE  CI505(IGC116)
IEW0000       INCLUDE SYSPUNCH(IEC23XXF)
IEW0000       INCLUDE CI505(IECINTRP)
IEW0000      INCLUDE SYSPUNCH(IEAATR00)
IEW0000        INCLUDE CI555(IECIPRTS)
IEW0000          INCLUDE  CI505(IECTATTN)
IEW0000          INCLUDE CI505(IECURATN)
IEW0000     INCLUDE  IO526(IGC054)
IEW0000     INCLUDE  SYSPUNCH(IGC018)
IEW0000     INCLUDE CI535(IEEBASEC,IEFVPOST)
IEW0000     INCLUDE CI505(IEECVCRA,IEFQRESD,IEFATECB)
IEW0000     INCLUDE CI535(IEECMED2,IEECMQWR)
IEW0000     INCLUDE CI505(IEECVCRX)
IEW0000     INCLUDE SYSPUNCH(IEECVUCM)
IEW0000     INCLUDE SYSPUNCH(IEACVTPC)
IEW0000     INCLUDE CI535(IEAQCB02)
IEW0000     INCLUDE SYSPUNCH(IEECVH2)
IEW0000     INCLUDE SYSPUNCH(IEECVH1)
IEW0000       INCLUDE SYSPUNCH(IEEPFKEY)
IEW0000      INCLUDE SYSPUNCH(IEECVR2)
IEW0000      INCLUDE SYSPUNCH(IEECVR1)
IEW0000     INCLUDE CI505(IEECVCTE)
IEW0000     INCLUDE CI505(IEECMDSV,IEECMWSV)
IEW0000      INCLUDE CI505(IEECMDOM)
IEW0000     INCLUDE SYSPUNCH(IEECVSUB)

IEW0000     INCLUDE SYSPUNCH(IGF201)
IEW0000     INCLUDE DN539(IGFDDR02)
IEW0000     INCLUDE DN539(IGFDDR03)
IEW0000     INCLUDE DN539(IGFDDR04)
IEW0000     INCLUDE DN539(IGFDDRMV)
IEW0000     INCLUDE SYSPUNCH(IFBCTA00)
IEW0000     INCLUDE DN539(IGFMSB00)
IEW0000     INCLUDE      CI535(IEWFETCH)
IEW0000     INCLUDE      CI505(IEWSUOVR)
IEW0000     INCLUDE IO523(IFFABA)
IEW0000     INCLUDE IO523(IGC070)
IEW0000     INCLUDE IO523(IGC084)
IEW0000     INCLUDE IO523(IFFGRTTR)
IEW0000     INCLUDE RESLIB(ASPSVC)
IEW0461  IGF0IOB
IEW0461  IGF0DEB
IEW0461  IECHASPE
IEW0461  IGFDDRSR
IEW0461  IGC220
****IEANUC01  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC058        00      38
  IECTATEN      38     238
  IEDQEB01     270     442
                                        IGC102       270
  IEDQATTN     6B8      14
  IEAANIP0     6D0    75E0
                                        IEANIP4      6D0
  IEAQFX00    7CB0    9908
                                        SVCOPSW     7CD0    PIOPSW      7CD8    PINPSW      7D18    IEAPSW      7EB0
                                        IECIERLC    7EBA    IEASCSAV    7EC8    IEAPKSAV    7F08    IEASAV      7F48
                                        IHLCMT      7F54    IECIOS      7F78    IECIOQET    B130    IECITSAR    B1D0
                                        DDRRQE      B1D4    IGC000      B1F8    XCP064      B2AA    IECINT      B8C8
                                        INT025      BAE2    IECIXAVL    C398    IECDMS      C410    IECXAPG     C43C
                                        ATNTAB      C450    CTCATN      C474    IECOLTVT    C478    DDRAPNVT    C4A8
                                        CTCMUCB     C7C4    CTCMONSW    C7C8    LASPTCH     C954    DEVTAB      CA28
                                        IECCST      CA78    IECILCH     CACA    IECILK1     CB02    IECILK2     CB86
                                        IECCPL00    CF32    IGC092      D118    IECRQE00    D190    IECRMS      D232
                                        DDRSRTO     D580    IGC015      D5E8    IECIHIO     D7E0    IECSTB     108C0
  IEAQBK00   115B8    BDC8
                                        IEAHEAD    115D8    IEATCB1    115D8    IEATCB2    11720    IEATCB3    11868
                                        IEATCB4    119B0    IEATCB5    11AF8    IEATCB6    11C40    IEATCB7    11D88
                                        IEATCB8    11ED0    IEATCB9    12018    IEATCB10   12160    IEATCB11   122A8
                                        IEATCB12   123F0    IEATCB13   12538    IEATCB14   12680    IEATCB15   127C8
                                        IEATCB16   12910    IEATCB17   12A58    IEATCB18   12BA0    IEATCB19   12CE8
                                        IEATCB20   12E30    IEATCB21   12F78    IEATCB22   130C0    IEATCB23   13208
                                        IEATCB24   13350    IEATCB25   13498    IEATCB26   135E0    IEATCB27   13728

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

                                        IEATCB28   13870    IEATCB29   139B8    IEATCB30   13B00    IEATCB31   13C48
                                        IEATCB32   13D90    IEAERTCB   13ED8    IEAROTCB   13FB8    IEAROIRB   13FC0
                                        IEECVTCB   13FE8    IEECVPRB   140A8    IGFRMTCB   140E8    DDRRB      141A8
                                        IEAMSTCB   141E8    IEAQTAQ    142C8    IEAQTAQ1   144D0    TAIOB1     144D0
                                        TAIOB2     14918    TAIOB3     14D60    TAIOB4     151A8    TAIOB5     155F0
                                        TAIOB6     15A38    TAIOB7     15E80    TAIOB8     162C8    TAIOB9     16710
                                        TAIOB10    16B58    TAIOB11    16FA0    TAIOB12    173E8    TAIOB13    17830
                                        TAIOB14    17C78    TAIOB15    180C0    TAIOB16    18508    TAIOB17    18950
                                        TAIOB18    18D98    TAIOB19    191E0    TAIOB20    19628    TAIOB21    19A70
                                        TAIOB22    19EB8    TAIOB23    1A300    TAIOB24    1A748    TAIOB25    1AB90
                                        TAIOB26    1AFD8    TAIOB27    1B420    TAIOB28    1B868    TAIOB29    1BCB0
                                        TAIOB30    1C0F8    TAIOB31    1C540    TAIOB32    1C988    IEAERWA    1CDD0
                                        IEAERRTA   1CE18    LINKDCB    1D1EC    IEFLINK    1D1EC    SVCDCB     1D1F0
                                        IEASVDCB   1D1F0    IEAQLPAQ   1D220    IEATSCE    1D228    IEATSTQE   1D230
                                        IEACVT     1D258    IEARCTRS   1D374    IEAROICT   1D374    IEAROQCT   1D376
                                        IEAROQUE   1D378    IEAROPRM   1D37C
  IGC043     1D380      A0
                                        IGC043A0   1D380
  IGC062     1D420     1E0
                                        IGC043A1   1D420
  IGC041     1D600     2D0
  IGC014     1D8D0     240
                                        IGC040     1D950
  IGC001     1DB10     658
                                        IEAQJSTM   1DBE0    IGC002     1DD40    IEA0PT01   1DD6E    IEA0PT02   1DD86
  IEAQLK00   1E168     CE0
                                        IGC006     1E168    IEAQCS02   1E174    IEAQCDSR   1E246    CDEPILOG   1E6E6
                                        IEAQCS03   1E6E6    IEAQCS01   1EB6C    IGC007     1EB80    IGC008     1EC58
                                        IGC009     1ECD0    IGC012     1ED78
  IGC048     1EE48     B18
                                        IEAQENA0   1EE48    IEA0EQ01   1F04A    IGC056     1F318
  IGC046     1F960     2E8
                                        IEAQENA1   1F960    IGC046A0   1F960    IGC047     1FA48
  IGC011     1FC48     134
                                        IGC011A0   1FC48    IGC046A1   1FC48    IGC011A1   1FD7C
  IEAQTR00   1FD80     8F0
                                        IEAQTR01   1FEB4    IEAQTR02   1FF2C    IEAQTR03   1FFEC    TBNOTFND   204D4
                                        IEAQTR04   204DC    IEASVRB    205D0    IEAQSVCQ   205D4    TAUSERCT   20658
  IEAQAB00   20670     8E4
                                        IEA0PL00   20670    IEA0AB01   20738    IEA0AB00   20750    SCEDWAIT   209EA
                                        DMPCEAPP   20AA6    DMPAEAPP   20B68    DMPPCIAP   20C96
  IEAQTI00   20F58     96C
                                        IEAQTD01   20F58    IEAQTIA0   20F58    IEAQTD00   20FB8    IEA0TI00   2108C
                                        IEA0TIDT   214B0    IEAQTE00   21588    IEATLEXT   215F2    IEAQTIA1   218C4
  IGC079     218C8     432
                                        IGC07902   218D0
  IEAQNU00   21D00     F08
                                        IEAQEX00   21D00    DISMISS    21D68    IEA0IO02   21D6C    IEAQIO00   21D9C
                                        IEA0IO01   21DA2    IORGSW     21DA2    IEAQPK00   21E2E    ENTRY2     21E32
                                        IEA0EF00   21F08    IEA0DS02   2204C    IEA0XE00   220B0    IEA0DS     22128
                                        IEARMSSW   2212A    IEA0DS01   2212E    SYSWSAVE   222B4    IECXTLER   22522
                                        IEAQSC00   225C0    IGCERROR   2264A    IEATCBP    22664    IEASMFEX   2266C

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

                                        ERFERR     2294A    IEA0VL00   2297A    IEA0VL01   229B4    WAITTCB    22A00
                                        SIRB       22A80    IEARMSAD   22B04    LOWUSER    22B20    IEATYPE1   22B38
                                        ERCOUNT    22B66    IEA0EXIT   22B74
  IBMORG     22C08     26C
                                        USERORG    22DE0
  IEAQGM00   22E78    1354
                                        IGC004     22E78    MSSBASE    22E7A    GMBRANCH   22F88    IGC010     22FC0
                                        RMBRANCH   23028    FBQSRCH    23410    IGC005     23598    FMBRANCH   235F8
                                        IEA10FS    23664    GETMAINB   23DEE    MRELEASE   23F02    CDPURGE    23F8E
                                        SVCBYTE    2410B    GOVRFLB    24110    SPIDSAV    24150    SMFTCBSV   24178
  IEAQVLCH   241D0     139
  IEASMFGF   24310      AC
                                        GMSMFCRE   24310
  IEAQPRT0   243C0     5E8
                                        DISPINIT   246B0
  IGC044     249A8     25C
  IGC042     24C08     9F2
  IGC003     25600    1098
                                        CDEXIT     25B0C    CDHKEEP    25CA0    CDDESTRY   25CEE    IEAQPGTM   25F9C
                                        IEAQABL    2602C    IEAQSPET   26084    IEAQERA    26140    IEABEND    2639C
                                        IEADQTCB   26438    IEAKJXP    2652A
  IEAPATCH   26698      C8
  IFG019RA   26760     1F8
  IEAQMSGS   26958      44
  IGFCAT     269A0     79E
                                        CHRADTAB   27018    ERPIBFD    27070    IGFCCH     270FD
  IFBDCB00   27140     164
                                        IFBDEB     2714C    IFBDCB     27150
  IHLMCIHV   272A8     16C
                                        IHLMCIH    272A8    IHLBHOOK   273CC
  IEAASPRG   27418      18
  IECTSVC    27430     304
                                        IECTRDIL   27430    IECTATRL   274A6    IECTCHSL   27516    IECTCHAL   2755E
                                        IECTRSTL   275D2
  IGC116     27738      B9
                                        IGC117     27748    IGXERROR   2776E    IGC109     27788
  IEC23XXF   277F8     B76
                                        ER2311     277F8
  IECINTRP   28370      4C
                                        IECXITP    28370
  IEAQTRCE   283C0    1AA8
                                        TRSVC      283C0    TRIO       283DA    TRACE      283F6    TRSIO      283F6
                                        TREX       28424    TRDISP     28458    TRPI       28482    IECXTRA    284AC
                                        TRPTR      28518
  IGC016     29E68     758
  IECTATTN   2A5C0      18
  IECURATN   2A5D8       C
  IGC054     2A5E8      D8
  IGC018     2A6C0     556
                                        SVC018     2A6C0    IECPBLDL   2A7D0    IECPRLTV   2AA80    IECPCNVT   2AB06
                                        IECZDTAB   2ABDC
  IEC0SCR1   2AC18      9E

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQCNVT   2ACB8      B0
  IEEMSER    2AD68      C4
                                        BAIPL      2AD74
  IEFDPOST   2AE30      58
  IEEBA1     2AE88      5E
                                        IEEBA1A0   2AE88    IEEBA1A1   2AEE4
  IEFJOB     2AEE8      98
                                        QMRDEB     2AF1C    QMHPT      2AF64
  IEFQMWR    2AF80      10
  IEECVPRG   2AF90     520
                                        IEECMEA0   2AF90
  IEECVCTW   2B4B0     1C9
                                        IEECMEA1   2B4B0    IEECVCA0   2B4B0    WRABXLE    2B59C    PXFOXL     2B638
                                        IEECVCA1   2B679
  IEEBC1PE   2B680      44
                                        IEEBC1A0   2B680    IEEBC1A1   2B6C4
  IEEUCMC    2B6C8     434
                                        IEECVUCM   2B778    IEECUCB    2B778
  TPC        2BB00     154
                                        IEATPC     2BB00    IEATSELM   2BB74    IEACLOCK   2BB90
  IEAQCB02   2BC58      4F
                                        IEAQQCB0   2BC58    HEADQCB    2BC58
  IEECVH2    2BCA8      30
  IEECVH1    2BCD8      30
  IEEPFKEY   2BD08     A64
                                        IEECVK0    2BD1A    IEECVK2    2C243
  IEECVR2    2C770     A98
  IEECVR1    2D208     A98
  IEECVXIT   2DCA0       2
  IEECMDSV   2DCA8     6B2
                                        IEECMDA0   2DCA8    IEECMDA1   2E35A
  IEECMWSV   2E360     57C
                                        IEECMWA0   2E360    IEECMENQ   2E576    IEECMQCN   2E79E    IEECMWA1   2E8DC
  IEECMDOM   2E8E0     276
  IEECVSUB   2EB58     26E
                                        SUBAN48    2EBA8    SUBAN19    2EBA8
  IGF201     2EDC8     1B4
                                        CCHPTTAB   2EDC8    DDRIOB     2EE60    DDRDEB     2EE9C
  IGFDDR02   2EF80     1BE
  IGFDDR03   2F140     10E
  IGFDDR04   2F250      CC
  IGFDDRMV   2F320      1A
                                        IGFDDR01   2F320    IORMSWT    2F320    IORMSSVC   2F32A
  IFBCTA00   2F340       8
                                        IFBACTA    2F340
  IGFMSB00   2F348      60
  IEWFETCH   2F3A8     D48
                                        IEWFTRAN   2F3A8    IEWFBOSV   2F3EE    IEWMSEPT   2F3EE
  IGC037     300F0      90
                                        IGC045     30108
  IFFABA     30180      F4
                                        IFFIOM     30180

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC070     30278      E0
                                        SVC070     30278
  IGC084     30358      10
  IFFGRTTR   30368     134
  IGC246     304A0     478
                                        CTCMCS     3075A    CTCNMCS    30772
  MTVT       30918      54
  IKJEAAB0   30970      00



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      7EC            CTCMCS          IGC246                      2440            DMPPCIAP        IEAQAB00
     2444            DMPCEAPP        IEAQAB00                    2448            DMPAEAPP        IEAQAB00
     5F28            GOVRFLB         IEAQGM00                    5F20            IEAMSTCB        IEAQBK00
     5F30            IEAQLPAQ        IEAQBK00                    5F24            IEECVTCB        IEAQBK00
     5F35            IECXAPG         IEAQFX00                    5F2C            IEASVRB         IEAQTR00
     5F40            IBMORG          IBMORG                      5F44            USERORG         IBMORG
     5F3C            IGCERROR        IEAQNU00                    5F54            IECZDTAB        IGC018
     5F38            IEAQSVCQ        IEAQTR00                    5F18            IECPCNVT        IGC018
     5F1C            IFBACTA         IFBCTA00                    5F48            IGFCCH          IGFCAT
     5F4C            IEACVT          IEAQBK00                    5F50            IECIOS          IEAQFX00
     5F58            IEECVUCM        IEEUCMC                     72BC            IFBACTA         IFBCTA00
     7270            IGFMSB00        IGFMSB00                    7278            IEARMSAD        IEAQNU00
     727C            IEARMSSW        IEAQNU00                    7294            IECRMS          IEAQFX00
     729C            IECINT          IEAQFX00                    72A4            SIRB            IEAQNU00
     72A8            IEAERWA         IEAQBK00                    72C4            IEA0IO01        IEAQNU00
     72C8            IGC011A0        IGC011                      72CC            IGC011A1        IGC011
     72D0            IEAQENA0        IGC048                      72D4            IEAQENA1        IGC048
     72D8            IEECMWA0        IEECMWSV                    72DC            IEECMWA1        IEECMWSV
     72E0            IEECMEA0        IEECVPRG                    72E4            IEECMEA1        IEECVPRG
     7CFC            IEACVT          IEAQBK00                    7D04            TRPTR           IEAQTRCE
     7D0C            IEAQEX00        IEAQNU00                    7D14            IEAQSC00        IEAQNU00
     7D1C            IEAQPK00        IEAQNU00                    7D2C            IEAQIO00        IEAQNU00
     7D30            IFBACTA         IFBCTA00                    7E24            IEANIP4         IEAANIP0
     B1D8            DDRIOB          IGF201                      B1DC            DDRDEB          IGF201
     B1E0            IGFRMTCB        IEAQBK00                    C404            IEA0XE00        IEAQNU00
     C418            DISMISS         IEAQNU00                    C3F0            IEATCBP         IEAQNU00
     C3EC            IEA0DS02        IEAQNU00                    C3E8            IEAHEAD         IEAQBK00
     C3A4            IEA0PT01        IGC001                      C408            ER2311          IEC23XXF
     C454            IEEBA1          IEEBA1                      C45C            IEFDPOST        IEFDPOST
     C464            IEDQATTN        IEDQATTN                    C39C            IEA0PT02        IGC001
     C3B8            SIRB            IEAQNU00                    C3D8            RMBRANCH        IEAQGM00
     C3F4            IGFCAT          IGFCAT                      C3F8            TRACE           IEAQTRCE
     C3FC            IEASMFEX        IEAQNU00                    C400            IECHASPE       $UNRESOLVED
     C410            IEAMSTCB        IEAQBK00                    C41C            IEA0EF00        IEAQNU00
     C460            IFFIOM          IFFABA                      C468            IECTATTN        IECTATTN
     C46C            IECTATEN        IECTATEN                    C470            IECURATN        IECURATN
     D1C4            SIRB            IEAQNU00                    D8A4            IEA0IO02        IEAQNU00
     D9D8            IGFCAT          IGFCAT                     1162C            IEWFTRAN        IEWFETCH
    11774            IEWFTRAN        IEWFETCH                   118BC            IEWFTRAN        IEWFETCH

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

    11638            IEAQTR00        IEAQTR00                   11780            IEAQTR00        IEAQTR00
    118C8            IEAQTR00        IEAQTR00                   116AC            IEAQTR04        IEAQTR00
    117F4            IEAQTR04        IEAQTR00                   1193C            IEAQTR04        IEAQTR00
    11A04            IEWFTRAN        IEWFETCH                   11B4C            IEWFTRAN        IEWFETCH
    11C94            IEWFTRAN        IEWFETCH                   11A10            IEAQTR00        IEAQTR00
    11B58            IEAQTR00        IEAQTR00                   11CA0            IEAQTR00        IEAQTR00
    11A84            IEAQTR04        IEAQTR00                   11BCC            IEAQTR04        IEAQTR00
    11D14            IEAQTR04        IEAQTR00                   11DDC            IEWFTRAN        IEWFETCH
    11F24            IEWFTRAN        IEWFETCH                   1206C            IEWFTRAN        IEWFETCH
    121B4            IEWFTRAN        IEWFETCH                   11DE8            IEAQTR00        IEAQTR00
    11F30            IEAQTR00        IEAQTR00                   12078            IEAQTR00        IEAQTR00
    11E5C            IEAQTR04        IEAQTR00                   11FA4            IEAQTR04        IEAQTR00
    120EC            IEAQTR04        IEAQTR00                   122FC            IEWFTRAN        IEWFETCH
    12444            IEWFTRAN        IEWFETCH                   1258C            IEWFTRAN        IEWFETCH
    121C0            IEAQTR00        IEAQTR00                   12308            IEAQTR00        IEAQTR00
    12450            IEAQTR00        IEAQTR00                   12598            IEAQTR00        IEAQTR00
    12234            IEAQTR04        IEAQTR00                   1237C            IEAQTR04        IEAQTR00
    124C4            IEAQTR04        IEAQTR00                   126D4            IEWFTRAN        IEWFETCH
    1281C            IEWFTRAN        IEWFETCH                   12964            IEWFTRAN        IEWFETCH
    126E0            IEAQTR00        IEAQTR00                   12828            IEAQTR00        IEAQTR00
    12970            IEAQTR00        IEAQTR00                   1260C            IEAQTR04        IEAQTR00
    12754            IEAQTR04        IEAQTR00                   1289C            IEAQTR04        IEAQTR00
    12AAC            IEWFTRAN        IEWFETCH                   12BF4            IEWFTRAN        IEWFETCH
    12D3C            IEWFTRAN        IEWFETCH                   12AB8            IEAQTR00        IEAQTR00
    12C00            IEAQTR00        IEAQTR00                   12D48            IEAQTR00        IEAQTR00
    129E4            IEAQTR04        IEAQTR00                   12B2C            IEAQTR04        IEAQTR00
    12C74            IEAQTR04        IEAQTR00                   12E84            IEWFTRAN        IEWFETCH
    12FCC            IEWFTRAN        IEWFETCH                   13114            IEWFTRAN        IEWFETCH
    12E90            IEAQTR00        IEAQTR00                   12FD8            IEAQTR00        IEAQTR00
    13120            IEAQTR00        IEAQTR00                   12DBC            IEAQTR04        IEAQTR00
    12F04            IEAQTR04        IEAQTR00                   1304C            IEAQTR04        IEAQTR00
    13194            IEAQTR04        IEAQTR00                   1325C            IEWFTRAN        IEWFETCH
    133A4            IEWFTRAN        IEWFETCH                   134EC            IEWFTRAN        IEWFETCH
    13268            IEAQTR00        IEAQTR00                   133B0            IEAQTR00        IEAQTR00
    134F8            IEAQTR00        IEAQTR00                   132DC            IEAQTR04        IEAQTR00
    13424            IEAQTR04        IEAQTR00                   1356C            IEAQTR04        IEAQTR00
    13634            IEWFTRAN        IEWFETCH                   1377C            IEWFTRAN        IEWFETCH
    138C4            IEWFTRAN        IEWFETCH                   13640            IEAQTR00        IEAQTR00
    13788            IEAQTR00        IEAQTR00                   138D0            IEAQTR00        IEAQTR00
    136B4            IEAQTR04        IEAQTR00                   137FC            IEAQTR04        IEAQTR00
    13944            IEAQTR04        IEAQTR00                   13A0C            IEWFTRAN        IEWFETCH
    13B54            IEWFTRAN        IEWFETCH                   13C9C            IEWFTRAN        IEWFETCH
    13A18            IEAQTR00        IEAQTR00                   13B60            IEAQTR00        IEAQTR00
    13CA8            IEAQTR00        IEAQTR00                   13A8C            IEAQTR04        IEAQTR00
    13BD4            IEAQTR04        IEAQTR00                   13D1C            IEAQTR04        IEAQTR00
    14148            IGFDDR01        IGFDDRMV                   14154            IGFDDRSR       $UNRESOLVED
    13DE4            IEWFTRAN        IEWFETCH                   13DF0            IEAQTR00        IEAQTR00
    13E64            IEAQTR04        IEAQTR00                   140BC            IEECVCTW        IEECVCTW
    140F0            DDRDEB          IGF201                     14144            IGF201          IGF201
    14150            IORMSWT         IGFDDRMV                   141BC            IORMSSVC        IGFDDRMV
    1D26C            IECXAPG         IEAQFX00                   1D258            IEATCBP         IEAQNU00
    1D25C            IEA0EF00        IEAQNU00                   1D264            IEFJOB          IEFJOB

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

    1D270            IEA0VL00        IEAQNU00                   1D274            IECPCNVT        IGC018
    1D278            IECPRLTV        IGC018                     1D27C            IECILK1         IEAQFX00
    1D280            IECILK2         IEAQFX00                   1D284            IECXTLER        IEAQNU00
    1D28C            IEA0AB00        IEAQAB00                   1D294            IEEMSER         IEEMSER
    1D2EC            IEEMSER         IEEMSER                    1D298            IECZDTAB        IGC018
    1D29C            IECXITP         IECINTRP                   1D2B0            IEATPC          TPC
    1D2B4            IECPBLDL        IGC018                     1D2BC            IEECUCB         IEEUCMC
    1D2C0            IEAQTE00        IEAQTI00                   1D2C4            IEAQTD00        IEAQTI00
    1D2C8            IECSTB          IEAQFX00                   1D2CD            IFBDCB          IFBDCB00
    1D2D0            IECIOQET        IEAQFX00                   1D2D4            IECIXAVL        IEAQFX00
    1D2DC            IEWFBOSV        IEWFETCH                   1D2E0            IEA0DS          IEAQNU00
    1D2E4            IECILCH         IEAQFX00                   1D2E8            IECIERLC        IEAQFX00
    1D2F0            IEA0PT01        IGC001                     1D308            IEFQMWR         IEFQMWR
    1D310            IEAQCDSR        IEAQLK00                   1D320            IEABEND         IGC003
    1D334            IEAPATCH        IEAPATCH                   1D340            IEC0SCR1        IEC0SCR1
    1D345            IHLCMT          IEAQFX00                   1D35D            IEAASPRG        IEAASPRG
    1D365            IEAQMSGS        IEAQMSGS                   1D369            IFG019RA        IFG019RA
    1D370            IEA0VL01        IEAQNU00                   1D5D8            IEA0PT02        IGC001
    1D5E4            RMBRANCH        IEAQGM00                   1D5FC            IEA0VL01        IEAQNU00
    1DB08            IEA0DS02        IEAQNU00                   1DB04            IEA0VL01        IEAQNU00
    1DB00            IEA0AB01        IEAQAB00                   1DB0C            IEA0XE00        IEAQNU00
    1E144            IEA0XE00        IEAQNU00                   1E0F4            IEA0DS02        IEAQNU00
    1E0FC            IEAQTD01        IEAQTI00                   1E0EC            IEA0AB01        IEAQAB00
    1E0F0            IEA0VL01        IEAQNU00                   1E140            IORGSW          IEAQNU00
    1E15C            IEASCSAV        IEAQFX00                   1E160            RMBRANCH        IEAQGM00
    1EDC4            LINKDCB         IEAQBK00                   1EDC0            SVCDCB          IEAQBK00
    1EDBC            IEA0DS          IEAQNU00                   1EDC8            IEATCBP         IEAQNU00
    1EDB4            IECPBLDL        IGC018                     1EDB0            IEWMSEPT        IEWFETCH
    1EDD4            IEAQTR03        IEAQTR00                   1ED8C            IEAQLPAQ        IEAQBK00
    1EDB8            IEA0DS02        IEAQNU00                   1EDD8            CDHKEEP         IGC003
    1EDDC            RMBRANCH        IEAQGM00                   1F918            IEATCBP         IEAQNU00
    1F91C            IEA0DS          IEAQNU00                   1F948            IEA0DS02        IEAQNU00
    1F8C8            IEA0VL01        IEAQNU00                   1F8D0            RMBRANCH        IEAQGM00
    1F920            IEAMSTCB        IEAQBK00                   1F95C            IEAQCB02        IEAQCB02
    1FC38            IEACLOCK        TPC                        1FC30            IEAQTD00        IEAQTI00
    1FC34            IEAQTD01        IEAQTI00                   1FC44            RMBRANCH        IEAQGM00
    1FD74            IEACLOCK        TPC                        1FD78            IEA0TIDT        IEAQTI00
    205BC            IEAQTAQ         IEAQBK00                   2065C            IEAQTAQ         IEAQBK00
    20660            IEAQTAQ         IEAQBK00                   20618            IEAHEAD         IEAQBK00
    205C8            IEA0DS          IEAQNU00                   205CC            SVCDCB          IEAQBK00
    205C0            IEA0AB00        IEAQAB00                   205C4            IECPBLDL        IGC018
    20664            IEAQTAQ1        IEAQBK00                   205D8            IEA0DS02        IEAQNU00
    2061C            RMBRANCH        IEAQGM00                   20758            IECXTRA         IEAQTRCE
    20A74            IORGSW          IEAQNU00                   20A78            DISMISS         IEAQNU00
    20A7C            IEATYPE1        IEAQNU00                   20A80            IEA0XE00        IEAQNU00
    20A84            IEA0DS02        IEAQNU00                   20A98            IECCPL00        IEAQFX00
    20A94            IEACVT          IEAQBK00                   20A88            IEAPKSAV        IEAQFX00
    20A8C            IEASCSAV        IEAQFX00                   21558            SYSWSAVE        IEAQNU00
    2154C            IGC002          IGC001                     218AC            IEA0EF00        IEAQNU00
    21C8C            IEA0DS02        IEAQNU00                   21C90            IEAROQCT        IEAQBK00
    21C94            IEACVT          IEAQBK00                   21C9C            IEA0AB01        IEAQAB00
    21C98            IEAMSTCB        IEAQBK00                   21CA0            IEA0XE00        IEAQNU00

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

    21D5C            IEEBC1PE        IEEBC1PE                   21D60            IEA0TI00        IEAQTI00
    21D64            TREX            IEAQTRCE                   21DD8            IECINT          IEAQFX00
    21DDC            TRIO            IEAQTRCE                   21EE8            IECXTRA         IEAQTRCE
    21EF0            IEA0PL00        IEAQAB00                   21EFC            TRPI            IEAQTRCE
    21F00            IHLMCIH         IHLMCIHV                   21F04            IHLBHOOK        IHLMCIHV
    222B0            IEAQTR02        IEAQTR00                   22664            IEAMSTCB        IEAQBK00
    22668            IEAMSTCB        IEAQBK00                   228A0            IEATLEXT        IEAQTI00
    22AF8            IEAMSTCB        IEAQBK00                   22AC0            IECRQE00        IEAQFX00
    22AF0            IEAQTD01        IEAQTI00                   22AF4            IEAQTE00        IEAQTI00
    22B0C            IEAERTCB        IEAQBK00                   22B08            IEAHEAD         IEAQBK00
    22B18            IBMORG          IBMORG                     22B2C            IEAQTR00        IEAQTR00
    22B30            IEA0AB00        IEAQAB00                   22B34            IEA0AB01        IEAQAB00
    22B24            USERORG         IBMORG                     22B3C            TRDISP          IEAQTRCE
    22B40            TRSVC           IEAQTRCE                   22B54            IEASVDCB        IEAQBK00
    22B44            IEAERRTA        IEAQBK00                   22B4C            IECPBLDL        IGC018
    22B58            IEWFTRAN        IEWFETCH                   22B5C            IEAERWA         IEAQBK00
    22C09            IGC000          IEAQFX00                   22C0D            IGC001          IGC001
    22C11            IGC002          IGC001                     22C15            IGC003          IGC003
    22C19            IGC004          IEAQGM00                   22C1D            IGC005          IEAQGM00
    22C21            IGC006          IEAQLK00                   22C25            IGC007          IEAQLK00
    22C29            IGC008          IEAQLK00                   22C2D            IGC009          IEAQLK00
    22C31            IGC010          IEAQGM00                   22C35            IGC011          IGC011
    22C39            IGC012          IEAQLK00                   22C41            IGC014          IGC014
    22C45            IGC015          IEAQFX00                   22C49            IGC016          IGC016
    22C51            IGC018          IGC018                     22C9D            IGC037          IGC037
    22CA1            IGCERROR        IEAQNU00                   22CCD            IGCERROR        IEAQNU00
    22D0D            IGCERROR        IEAQNU00                   22D15            IGCERROR        IEAQNU00
    22D25            IGCERROR        IEAQNU00                   22D2D            IGCERROR        IEAQNU00
    22D31            IGCERROR        IEAQNU00                   22D35            IGCERROR        IEAQNU00
    22D3D            IGCERROR        IEAQNU00                   22D49            IGCERROR        IEAQNU00
    22D69            IGCERROR        IEAQNU00                   22D6D            IGCERROR        IEAQNU00
    22DB1            IGCERROR        IEAQNU00                   22DB5            IGCERROR        IEAQNU00
    22DB9            IGCERROR        IEAQNU00                   22DC5            IGCERROR        IEAQNU00
    22DC9            IGCERROR        IEAQNU00                   22DCD            IGCERROR        IEAQNU00
    22DD1            IGCERROR        IEAQNU00                   22DD5            IGCERROR        IEAQNU00
    22DE5            IGCERROR        IEAQNU00                   22DE9            IGCERROR        IEAQNU00
    22DED            IGCERROR        IEAQNU00                   22DF1            IGCERROR        IEAQNU00
    22DF5            IGCERROR        IEAQNU00                   22DF9            IGCERROR        IEAQNU00
    22DFD            IGCERROR        IEAQNU00                   22E01            IGCERROR        IEAQNU00
    22E05            IGCERROR        IEAQNU00                   22E09            IGCERROR        IEAQNU00
    22E0D            IGCERROR        IEAQNU00                   22E11            IGCERROR        IEAQNU00
    22E15            IGCERROR        IEAQNU00                   22E19            IGCERROR        IEAQNU00
    22E1D            IGCERROR        IEAQNU00                   22E21            IGCERROR        IEAQNU00
    22E25            IGCERROR        IEAQNU00                   22E29            IGCERROR        IEAQNU00
    22E2D            IGCERROR        IEAQNU00                   22E31            IGCERROR        IEAQNU00
    22E35            IGCERROR        IEAQNU00                   22E39            IGCERROR        IEAQNU00
    22E3D            IGCERROR        IEAQNU00                   22E41            IGCERROR        IEAQNU00
    22E45            IGCERROR        IEAQNU00                   22E4D            IGCERROR        IEAQNU00
    22E55            IGCERROR        IEAQNU00                   22E59            IGCERROR        IEAQNU00
    22E5D            IGCERROR        IEAQNU00                   22E61            IGCERROR        IEAQNU00
    22E65            IGCERROR        IEAQNU00                   22E69            IGCERROR        IEAQNU00
    22E6D            IGCERROR        IEAQNU00                   22CA9            IGC040          IGC014

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

    22CAD            IGC041          IGC041                     22CB1            IGC042          IGC042
    22CB5            IGC043          IGC043                     22CB9            IGC044          IGC044
    22CBD            IGC045          IGC037                     22CC1            IGC046          IGC046
    22CC5            IGC047          IGC046                     22CC9            IGC048          IGC048
    22CE1            IGC054          IGC054                     22CE9            IGC056          IGC048
    22CF1            IGC058          IGC058                     22D01            IGC062          IGC062
    22D21            IGC070          IGC070                     22D45            IGC079          IGC079
    22D59            IGC084          IGC084                     22D79            IGC092          IEAQFX00
    22DA1            IGC102          IEDQEB01                   22DBD            IGC109          IGC116
    22DD9            IGC116          IGC116                     22DDD            IGC117          IGC116
    22DE1            IGC220         $UNRESOLVED                 22E49            IGC246          IGC246
    24138            IEA0AB01        IEAQAB00                   24164            CDHKEEP         IGC003
    24168            CDDESTRY        IGC003                     24134            IEAMSTCB        IEAQBK00
    24130            IEA0XE00        IEAQNU00                   241C0            DISPINIT        IEAQPRT0
    2416C            IEAQPRT0        IEAQPRT0                   241BC            IEAQPRT0        IEAQPRT0
    24170            IEAQVLCH        IEAQVLCH                   2413C            IEA0VL01        IEAQNU00
    24174            IEASMFGF        IEASMFGF                   243B4            IEAQGM00        IEAQGM00
    243B8            SPIDSAV         IEAQGM00                   24910            GOVRFLB         IEAQGM00
    248FC            IEA0AB01        IEAQAB00                   24900            IEA0XE00        IEAQNU00
    24908            MSSBASE         IEAQGM00                   2490C            GETMAINB        IEAQGM00
    24914            IEA0DS02        IEAQNU00                   24918            RMBRANCH        IEAQGM00
    2491C            CDPURGE         IEAQGM00                   24920            MRELEASE        IEAQGM00
    24924            SVCBYTE         IEAQGM00                   24928            FBQSRCH         IEAQGM00
    24BFC            IEA0VL01        IEAQNU00                   24BF8            IEA0AB01        IEAQAB00
    24C00            IEA0DS02        IEAQNU00                   255B4            IEA0DS          IEAQNU00
    255D8            IEAQCS01        IEAQLK00                   255B8            IEAHEAD         IEAQBK00
    255BC            IEA0DS02        IEAQNU00                   255DC            IEA0AB00        IEAQAB00
    255E0            RMBRANCH        IEAQGM00                   26280            IEASCSAV        IEAQFX00
    26284            IEAQTR01        IEAQTR00                   26288            IEA0DS01        IEAQNU00
    262B0            INT025          IEAQFX00                   262B4            FMBRANCH        IEAQGM00
    263CC            FMBRANCH        IEAQGM00                   262B8            RMBRANCH        IEAQGM00
    263B8            RMBRANCH        IEAQGM00                   262BC            IEATYPE1        IEAQNU00
    262C0            IEAQTR02        IEAQTR00                   2641C            IEAQTR02        IEAQTR00
    262C8            IEA0DS02        IEAQNU00                   263C4            IEA0DS02        IEAQNU00
    262CC            IEAQJSTM        IGC001                     262D0            IEAQCS02        IEAQLK00
    263C8            IEAQCS02        IEAQLK00                   262D8            IEAQCS03        IEAQLK00
    262F0            IGC002          IGC001                     262F8            IFFGRTTR        IFFGRTTR
    26314            IEAQTD01        IEAQTI00                   26368            IEA0AB00        IEAQAB00
    2637C            IGC07902        IGC079                     26390            GOVRFLB         IEAQGM00
    26408            GOVRFLB         IEAQGM00                   263A0            IEECVPRG        IEECVPRG
    263A8            IEAQTAQ         IEAQBK00                   263B0            IEAQQCB0        IEAQCB02
    263B4            IEA0EQ01        IGC048                     263BC            IGC016          IGC016
    263C0            IECXTRA         IEAQTRCE                   263DC            TRPTR           IEAQTRCE
    263E0            GMBRANCH        IEAQGM00                   263E4            TAUSERCT        IEAQTR00
    263E8            IEARCTRS        IEAQBK00                   263EC            IEAROQUE        IEAQBK00
    263F0            IEAROIRB        IEAQBK00                   263F4            IEAROTCB        IEAQBK00
    263F8            IEECVCTW        IEECVCTW                   263FC            SCEDWAIT        IEAQAB00
    26400            TBNOTFND        IEAQTR00                   26404            IGFRMTCB        IEAQBK00
    2640C            IEECVTCB        IEAQBK00                   26410            IEAERTCB        IEAQBK00
    26418            IECITSAR        IEAQFX00                   26420            IBMORG          IBMORG
    26428            IEATSELM        TPC                        2642C            IORMSSVC        IGFDDRMV
    26430            IEAQMSGS        IEAQMSGS                   26434            IEA10FS         IEAQGM00

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

    26694            IGC07902        IGC079                     27104            SIRB            IEAQNU00
    27150            IGF201          IGF201                     27144            IECOLTVT        IEAQFX00
    27148            IFBACTA         IFBCTA00                   27140            DEVTAB          IEAQFX00
    27400            IGC011A0        IGC011                     27404            IEASCSAV        IEAQFX00
    27408            IEAPKSAV        IEAQFX00                   2740C            IEACVT          IEAQBK00
    27410            IEA0DS          IEAQNU00                   277D0            IECTRDIL        IECTSVC
    277D4            IECTATRL        IECTSVC                    277D8            IECTCHSL        IECTSVC
    277DC            IECTCHAL        IECTSVC                    277E0            IECTRSTL        IECTSVC
    2831C            IFBDEB          IFBDCB00                   28510            IEATCBP         IEAQNU00
    28514            IEATPC          TPC                        28540            IEACVT          IEAQBK00
    2A590            SIRB            IEAQNU00                   2AA40            IEA0IO02        IEAQNU00
    2AA44            IEATCBP         IEAQNU00                   2AA48            IEFLINK         IEAQBK00
    2AA4C            IEASVDCB        IEAQBK00                   2AB5C            QMRDEB          IEFJOB
    2AC1C            IEFQCNVT        IEFQCNVT                   2AD75            IEECVPRB        IEAQBK00
    2AE20            IEA0IO02        IEAQNU00                   2AE78            IEFQMWR         IEFQMWR
    2AE7C            IEA0PT01        IGC001                     2B470            RMBRANCH        IEAQGM00
    2B474            GMBRANCH        IEAQGM00                   2B668            IEECMDSV        IEECMDSV
    2B66C            IEECMWSV        IEECMWSV                   2B670            IEECMDOM        IEECMDOM
    2B674            IEECVUCM        IEEUCMC                    2B6CC            IEA0PT02        IGC001
    2B720            IEECVXIT        IEECVXIT                   2B750            IEECMENQ        IEECMWSV
    2B758            IEECMDOM        IEECMDOM                   2B7B8            IEECVTCB        IEAQBK00
    2B968            IEECVH1         IEECVH1                    2B9F8            IEECVH2         IEECVH2
    2BCA8            IEECVR2         IEECVR2                    2BCBD            SUBAN48         IEECVSUB
    2BCCC            IEECVK2         IEEPFKEY                   2BCD8            IEECVR1         IEECVR1
    2BCED            SUBAN48         IEECVSUB                   2BCFC            IEECVK0         IEEPFKEY
    2C788            IEECVSUB        IEECVSUB                   2D220            IEECVSUB        IEECVSUB
    2E338            IEECMQCN        IEECMWSV                   2E328            WRABXLE         IEECVCTW
    2E748            IEECMDSV        IEECMDSV                   2EB78            IEEPFKEY        IEEPFKEY
    2EDC8            ERPIBFD         IGFCAT                     2EDD0            IGFCAT          IGFCAT
    2EDD4            CHRADTAB        IGFCAT                     2EDE1            IGFRMTCB        IEAQBK00
    2EE9D            IGFRMTCB        IEAQBK00                   2EDE5            DDRAPNVT        IEAQFX00
    2EDF8            DDRRQE          IEAQFX00                   2EE05            DDRRB           IEAQBK00
    2EE94            IGFDDR02        IGFDDR02                   2EE98            IGFDDR03        IGFDDR03
    2FAC4            IECPCNVT        IGC018                     3009C            IGC002          IGC001
    300A0            IEFLINK         IEAQBK00                   300A4            IEASVDCB        IEAQBK00
    308D0            MTVT            MTVT                       30928            CTCMUCB         IEAQFX00
    3092C            ATNTAB          IEAQFX00                   30930            CTCATN          IEAQFX00
    30934            CTCMONSW        IEAQFX00                   30938            IEASCSAV        IEAQFX00
    3093C            IEAQTR00        IEAQTR00                   30940            IBMORG          IBMORG
    30944            USERORG         IBMORG                     30948            LOWUSER         IEAQNU00
    3094C            IEATYPE1        IEAQNU00                   3095C            LASPTCH         IEAQFX00

 ENTRY ADDRESS       00
 TOTAL LENGTH     30970



                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.



IEF142I - STEP WAS EXECUTED - COND CODE 0004
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK66.R0000229      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.NUCLEUS                                 PASSED
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DM508                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.IO526                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CQ513                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.IO523                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CQ548                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.ASP                                     KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DN539                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.R21LK66.S0000230      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK66.S0000230      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG69    / START 78240.1946
IEF374I STEP /SG69    / STOP  78240.1946 CPU   0MIN 01.98SEC MAIN 132K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:06.90   ALLOC START    19:46:06.90   MAIN REGION ----- 256K                          *
*   STEP NAME SG69       STEP END TIME  19:46:09.21   PGM START TIME 19:46:07.00   MAIN STORAGE ---- 132K    CONDITION CODE 0004   *
*   PSTP NAME            ELAPSED TIME   00:00:02.31   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:01.98   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 341       0353 ---------- 589       0150 --------- 1072       0250 ---------- 112       0250 ------------ 6    *
*   0250 ----------- 94       0250 ------------ 8       0250 ----------- 19       0250 ----------- 18       0250 ----------- 87    *
*   0250 ----------- 13       0151 --------- 3495       0250 ------------ 8       0250 ----------- 29       0130 ----------- 68    *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK66  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:09.24   ALLOC START    19:46:09.25   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:09.27   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   MVT1.NUCLEUS                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF375I  JOB /R21LK66 / START 78240.1946
IEF376I  JOB /R21LK66 / STOP  78240.1946 CPU   0MIN 01.98SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK66    JOB READ TIME 19:45:08.80   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.98   *
*   JOB CLASS A          JOB INIT TIME 19:46:06.90   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:02.38   *
*   ACCOUNT              JOB END TIME  19:46:09.28   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       66    777777777                            A
            RRRRRRRRR  222222222      11     LL         KK    KK       66     777777777                           AAA
            RR     RR  22     22     111     LL         KK   KK       66      77     77                          AA AA
            RR     RR        22       11     LL         KK  KK       66             77                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK       6666666        77                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK      666666666      77                           AA     AA
            RR  RR        22          11     LL         KKK KK     66     66     77                            AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    66     66     77                            AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   666666666     77                            AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   6666666      77                            AA     AA

***********A  START   R21LK67    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK67    START  A***********
***********A  START   R21LK67    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK67    START  A***********
***********A  START   R21LK67    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK67    START  A***********
***********A  START   R21LK67    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK67    START  A***********
***********A  START   R21LK67    SYS SYSA   WTR 00E   07:47:29 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK67    START  A***********


//R21LK67 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG70 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.SVCLIB
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//DN539 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN539
//CI535 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI535
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK67  SG70
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO DN539
IEF237I 250   ALLOCATED TO CI535
IEF237I 250   ALLOCATED TO CI555
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE CI505(IEE3303D)
IEW0000     NAME IGC3303D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE3303D      00     250


 ENTRY ADDRESS       00
 TOTAL LENGTH       250

****IGC3303D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE  CI505(IEE4203D)
IEW0000     NAME IGC4203D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE4203D      00     37D


 ENTRY ADDRESS       00
 TOTAL LENGTH       380

****IGC4203D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE  CI505(IEE4303D)
IEW0000     NAME IGC4303D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE4303D      00     1E5


 ENTRY ADDRESS       00
 TOTAL LENGTH       1E8

****IGC4303D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE  CI505(IEE4403D)
IEW0000     NAME IGC4403D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE4403D      00     3EF


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F0

****IGC4403D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE  CI505(IEE4603D)
IEW0000     NAME IGC4603D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE4603D      00     289


 ENTRY ADDRESS       00
 TOTAL LENGTH       290

****IGC4603D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE  CI505(IEE4703D)
IEW0000     NAME IGC4703D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE4703D      00     272


 ENTRY ADDRESS       00
 TOTAL LENGTH       278

****IGC4703D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE4803D)
IEW0000     NAME IGC4803D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE4803D      00     2EC


 ENTRY ADDRESS       00
 TOTAL LENGTH       2F0

****IGC4803D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE4903D)
IEW0000     NAME IGC4903D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE4903D      00     3FC



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC4903D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE7203D)
IEW0000     NAME IGC7203D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE7203D      00     27A


 ENTRY ADDRESS       00
 TOTAL LENGTH       280

****IGC7203D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE7303D)
IEW0000     NAME IGC7303D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE7303D      00     2A4


 ENTRY ADDRESS       00
 TOTAL LENGTH       2A8

****IGC7303D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE5703D)
IEW0000     NAME IGC5703D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE5703D      00     23E


 ENTRY ADDRESS       00
 TOTAL LENGTH       240

****IGC5703D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE4103D)
IEW0000     NAME IGC4103D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE4103D      00     32C


 ENTRY ADDRESS       00
 TOTAL LENGTH       330

****IGC4103D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE DN539(IGF2603D)
IEW0000     NAME IGC2603D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGF2603D      00      EC


 ENTRY ADDRESS       00
 TOTAL LENGTH        F0

****IGC2603D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE  CI505(IEE4503D)
IEW0000     NAME IGC4503D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE4503D      00     2F4


 ENTRY ADDRESS       00
 TOTAL LENGTH       2F8

****IGC4503D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE5503D)
IEW0000     NAME IGC5503D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE5503D      00     1FD


 ENTRY ADDRESS       00
 TOTAL LENGTH       200

****IGC5503D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESMF8C)
IEW0000     NAME IGC0008C(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0083       00     35E


 ENTRY ADDRESS       00
 TOTAL LENGTH       360

****IGC0008C  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESMFOP)
IEW0000     NAME IGC0108C(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESMFOP      00     3FC


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC0108C  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESMFAL)
IEW0000     NAME IGC0208C(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESMFAL      00     311


 ENTRY ADDRESS       00
 TOTAL LENGTH       318

****IGC0208C  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI535(IEE0003D)
IEW0000     NAME IGC0003D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE0003D      00     1B2


 ENTRY ADDRESS       00
 TOTAL LENGTH       1B8

****IGC0003D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE0303D)
IEW0000     NAME IGC0303D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE0303D      00     2E8


 ENTRY ADDRESS       00
 TOTAL LENGTH       2E8

****IGC0303D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI535(IEE5103D)
IEW0000     NAME IGC5103D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE5103D      00     38B



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       390

****IGC5103D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI535(IEE5203D)
IEW0000     NAME IGC5203D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE5203D      00     176


 ENTRY ADDRESS       00
 TOTAL LENGTH       178

****IGC5203D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI535(IEE5303D)
IEW0000     NAME IGC5303D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE5303D      00     2D2


 ENTRY ADDRESS       00
 TOTAL LENGTH       2D8

****IGC5303D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE5403D)
IEW0000     NAME IGC5403D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE5403D      00     363


 ENTRY ADDRESS       00
 TOTAL LENGTH       368

****IGC5403D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE0403D)
IEW0000     NAME IGC0403D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE0403D      00     33C


 ENTRY ADDRESS       00
 TOTAL LENGTH       340

****IGC0403D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE0503D)
IEW0000     NAME IGC0503D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE0503D      00     3E3


 ENTRY ADDRESS       00
 TOTAL LENGTH       3E8

****IGC0503D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE0603D)
IEW0000     NAME IGC0603D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE0603D      00     28A


 ENTRY ADDRESS       00
 TOTAL LENGTH       290

****IGC0603D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE8603D)
IEW0000     NAME IGC8603D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE8603D      00     363


 ENTRY ADDRESS       00
 TOTAL LENGTH       368

****IGC8603D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE6503D)
IEW0000     NAME IGC6503D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE6503D      00     130


 ENTRY ADDRESS       00
 TOTAL LENGTH       130

****IGC6503D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE6603D)
IEW0000     NAME IGC6603D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE6603D      00     3CD


 ENTRY ADDRESS       00
 TOTAL LENGTH       3D0

****IGC6603D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE0703D)
IEW0000     NAME IGC0703D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE0703D      00     3C5



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3C8

****IGC0703D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI535(IEE3703D)
IEW0000     NAME IGC3703D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE3703D      00     3A2


 ENTRY ADDRESS       00
 TOTAL LENGTH       3A8

****IGC3703D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE0803D)
IEW0000     NAME IGC0803D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE0803D      00     276


 ENTRY ADDRESS       00
 TOTAL LENGTH       278

****IGC0803D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE3503D)
IEW0000     NAME IGC3503D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE3503D      00     2F8


 ENTRY ADDRESS       00
 TOTAL LENGTH       2F8

****IGC3503D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI535(IEE3803D)
IEW0000     NAME IGC3803D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE3803D      00     12C


 ENTRY ADDRESS       00
 TOTAL LENGTH       130

****IGC3803D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE0903D)
IEW0000     NAME IGC0903D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEAQOT00      00     1F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****IGC0903D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE8503D)
IEW0000     NAME IGC8503D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE8503D      00     1C0


 ENTRY ADDRESS       00
 TOTAL LENGTH       1C0

****IGC8503D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE1103D)
IEW0000     NAME IGC1103D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE1103D      00     19D


 ENTRY ADDRESS       00
 TOTAL LENGTH       1A0

****IGC1103D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE5603D)
IEW0000     NAME IGC5603D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE5603D      00     406



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       408

****IGC5603D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE5903D)
IEW0000     NAME IGC5903D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE5903D      00     3BB


 ENTRY ADDRESS       00
 TOTAL LENGTH       3C0

****IGC5903D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE6303D)
IEW0000     NAME IGC6303D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE6303D      00     400



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC6303D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE6403D)
IEW0000     NAME IGC6403D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE6403D      00     39E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3A0

****IGC6403D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE6703D)
IEW0000     NAME IGC6703D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE6703D      00     3EB



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F0

****IGC6703D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE6803D)
IEW0000     NAME IGC6803D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE6803D      00     3FE


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC6803D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE6903D)
IEW0000     NAME IGC6903D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE6903D      00     379


 ENTRY ADDRESS       00
 TOTAL LENGTH       380

****IGC6903D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE7103D)
IEW0000     NAME IGC7103D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE7103D      00     23B


 ENTRY ADDRESS       00
 TOTAL LENGTH       240

****IGC7103D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE7503D)
IEW0000     NAME IGC7503D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE7503D      00     3FD


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC7503D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE7603D)
IEW0000     NAME IGC7603D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE7603D      00     3FC


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC7603D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE7703D)
IEW0000     NAME IGC7703D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE7703D      00     39C


 ENTRY ADDRESS       00
 TOTAL LENGTH       3A0

****IGC7703D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE7803D)
IEW0000     NAME IGC7803D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE7803D      00     299


 ENTRY ADDRESS       00
 TOTAL LENGTH       2A0

****IGC7803D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE7903D)
IEW0000     NAME IGC7903D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE7903D      00     32E


 ENTRY ADDRESS       00
 TOTAL LENGTH       330

****IGC7903D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE00110)
IEW0000     ALIAS IGC00110
IEW0000     NAME IGC0011{(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE00110      00      FC


 ENTRY ADDRESS       00
 TOTAL LENGTH       100

****IGC0011{  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IGC00110  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE10110)
IEW0000     NAME IGC10110(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE10110      00     370


 ENTRY ADDRESS       00
 TOTAL LENGTH       370

****IGC10110  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE11110)
IEW0000     NAME IGC11110(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE11110      00     330


 ENTRY ADDRESS       00
 TOTAL LENGTH       330

****IGC11110  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE12110)
IEW0000     NAME IGC12110(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE12110      00     340


 ENTRY ADDRESS       00
 TOTAL LENGTH       340

****IGC12110  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE20110)
IEW0000     NAME IGC20110(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE20110      00     3FE


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC20110  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE21110)
IEW0000     NAME IGC21110(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE21110      00     3FF


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC21110  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE22110)
IEW0000     NAME IGC22110(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE22110      00     34B


 ENTRY ADDRESS       00
 TOTAL LENGTH       350

****IGC22110  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE23110)
IEW0000     NAME IGC23110(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE23110      00     3F8


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F8

****IGC23110  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE40110)
IEW0000     NAME IGC40110(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE40110      00     2EA


 ENTRY ADDRESS       00
 TOTAL LENGTH       2F0

****IGC40110  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI535(IEE50110)
IEW0000     NAME IGC50110(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE50110      00     2D8


 ENTRY ADDRESS       00
 TOTAL LENGTH       2D8

****IGC50110  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE60110)
IEW0000     NAME IGC60110(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE60110      00     3BA


 ENTRY ADDRESS       00
 TOTAL LENGTH       3C0

****IGC60110  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IED1303D)
IEW0000     NAME IGC1303D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IED1303D      00     192


 ENTRY ADDRESS       00
 TOTAL LENGTH       198

****IGC1303D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI555(IKJ5803D)
IEW0000     NAME IGC5803D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJ5803D      00      C8


 ENTRY ADDRESS       00
 TOTAL LENGTH        C8

****IGC5803D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE3103D)
IEW0000     NAME IGC3103D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE3103D      00     3F8


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F8

****IGC3103D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IHK1503D)
IEW0000     NAME IGC1503D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC1503D      00     240


 ENTRY ADDRESS       00
 TOTAL LENGTH       240

****IGC1503D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE2103D)
IEW0000     NAME IGG2103D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE2103D      00     371


 ENTRY ADDRESS       00
 TOTAL LENGTH       378

****IGG2103D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE2303D)
IEW0000     NAME IGC2303D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE2303D      00     3FA


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC2303D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE DN539(IGF2503D)
IEW0000     NAME IGC2503D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGF2503D      00     351


 ENTRY ADDRESS       00
 TOTAL LENGTH       358

****IGC2503D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE DN539(IGF2403D)
IEW0000     NAME IGC2403D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGF2403D      00     3A6


 ENTRY ADDRESS       00
 TOTAL LENGTH       3A8

****IGC2403D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSPUNCH(IEE3203D)
IEW0000     NAME IGC3203D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE3203D      00     184


 ENTRY ADDRESS       00
 TOTAL LENGTH       188

****IGC3203D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE2903D)
IEW0000     NAME IGC2903D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE2903D      00     3FF


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC2903D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECMOCP)
IEW0000     NAME IGC2I07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVOC       00     379


 ENTRY ADDRESS       00
 TOTAL LENGTH       380

****IGC2I07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI535(IEEMVWTO)
IEW0000     NAME IGC0003E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0003E      00     320


 ENTRY ADDRESS       00
 TOTAL LENGTH       320

****IGC0003E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVOCX)
IEW0000     NAME IGC0I07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVOC       00     3F9


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC0I07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVOCC)
IEW0000     NAME IGC1I07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVOC       00     3E9


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F0

****IGC1I07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEEVWTOR)
IEW0000     NAME IGC0103E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0103E      00     368


 ENTRY ADDRESS       00
 TOTAL LENGTH       368

****IGC0103E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEFWTP00)
IEW0000     NAME IGC0203E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0203E      00     211


 ENTRY ADDRESS       00
 TOTAL LENGTH       218

****IGC0203E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEFWTP01)
IEW0000     NAME IGC0303E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0303E      00     3F5


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F8

****IGC0303E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEFWTP02)
IEW0000     NAME IGC0403E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0403E      00     238


 ENTRY ADDRESS       00
 TOTAL LENGTH       238

****IGC0403E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEFXQM00)
IEW0000     NAME IGC0009{(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFXQM00      00     398



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       398

****IGC0009{  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEFXQM01)
IEW0000     NAME IGC0109{(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFXQM01      00     3FE


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC0109{  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEFXQM02)
IEW0000     NAME IGC0209{(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFXQM02      00     252


 ENTRY ADDRESS       00
 TOTAL LENGTH       258

****IGC0209{  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEFXQM03)
IEW0000     NAME IGC0309{(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFXQM03      00     392


 ENTRY ADDRESS       00
 TOTAL LENGTH       398

****IGC0309{  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE1603D)
IEW0000     NAME IGC1603D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE1603D      00     3B4


 ENTRY ADDRESS       00
 TOTAL LENGTH       3B8

****IGC1603D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE0303F)
IEW0000     NAME IGC0003F(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE0303F      00     250


 ENTRY ADDRESS       00
 TOTAL LENGTH       250

****IGC0003F  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE0403F)
IEW0000     NAME IGC0403F(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE0403F      00     37A


 ENTRY ADDRESS       00
 TOTAL LENGTH       380

****IGC0403F  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECLCTX)
IEW0000     NAME IGCXL07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECLCTX      00     3DA


 ENTRY ADDRESS       00
 TOTAL LENGTH       3E0

****IGCXL07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECMCTX)
IEW0000     NAME IGCXM07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECMCTX      00     388


 ENTRY ADDRESS       00
 TOTAL LENGTH       388

****IGCXM07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECNCTX)
IEW0000     NAME IGCXN07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECNCTX      00     386


 ENTRY ADDRESS       00
 TOTAL LENGTH       388

****IGCXN07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECOCTX)
IEW0000     NAME IGCXO07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECOCTX      00     3A0


 ENTRY ADDRESS       00
 TOTAL LENGTH       3A0

****IGCXO07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE1A03D)
IEW0000     NAME IGC1203D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE1A03D      00     3CC


 ENTRY ADDRESS       00
 TOTAL LENGTH       3D0

****IGC1203D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEE1B03D)
IEW0000     NAME IGC1B03D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE1B03D      00     275


 ENTRY ADDRESS       00
 TOTAL LENGTH       278

****IGC1B03D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECMCTR)
IEW0000     NAME IGC0007B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVCTR      00      2C


 ENTRY ADDRESS       00
 TOTAL LENGTH        30

****IGC0007B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECMPMP)
IEW0000     NAME IGC2107B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVPM       00     351


 ENTRY ADDRESS       00
 TOTAL LENGTH       358

****IGC2107B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECMPMC)
IEW0000     NAME IGC1107B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVPM       00     1E1


 ENTRY ADDRESS       00
 TOTAL LENGTH       1E8

****IGC1107B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECMPMX)
IEW0000     NAME IGC0107B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVPM       00     301


 ENTRY ADDRESS       00
 TOTAL LENGTH       308

****IGC0107B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVETW)
IEW0000     NAME IGC5W07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVETW      00     3F4


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F8

****IGC5W07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECMWTL)
IEW0000     NAME IGC0907B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0907B      00      6C


 ENTRY ADDRESS       00
 TOTAL LENGTH        70

****IGC0907B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECMPM1)
IEW0000     NAME IGC0207B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECMPM1      00     1E9


 ENTRY ADDRESS       00
 TOTAL LENGTH       1F0

****IGC0207B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVML3)
IEW0000     NAME IGC0603E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVML3      00     3FB


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC0603E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVML5)
IEW0000     NAME IGC0703E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVML5      00     400


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC0703E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVML6)
IEW0000     NAME IGC0803E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVML6      00     3C1


 ENTRY ADDRESS       00
 TOTAL LENGTH       3C8

****IGC0803E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVML7)
IEW0000     NAME IGC0903E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVML7      00     16C


 ENTRY ADDRESS       00
 TOTAL LENGTH       170

****IGC0903E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVFT1)
IEW0000     NAME IGC6107B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFT1      00     34A


 ENTRY ADDRESS       00
 TOTAL LENGTH       350

****IGC6107B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVFTA)
IEW0000     NAME IGC6A07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFTA      00     35C


 ENTRY ADDRESS       00
 TOTAL LENGTH       360

****IGC6A07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVFTB)
IEW0000     NAME IGC6B07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFTB      00     3F4


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F8

****IGC6B07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVFT2)
IEW0000     NAME IGC6207B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFT2      00     3F7


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F8

****IGC6207B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVFTD)
IEW0000     NAME IGC6D07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFTD      00     1D4


 ENTRY ADDRESS       00
 TOTAL LENGTH       1D8

****IGC6D07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVFTN)
IEW0000     NAME IGC6N07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFTN      00     311


 ENTRY ADDRESS       00
 TOTAL LENGTH       318

****IGC6N07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVFTP)
IEW0000     NAME IGC6P07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFTP      00     3D6


 ENTRY ADDRESS       00
 TOTAL LENGTH       3D8

****IGC6P07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVFTL)
IEW0000     NAME IGC6L07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFTL      00     400


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC6L07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVFTM)
IEW0000     NAME IGC6M07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFTM      00     400


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC6M07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVFTZ)
IEW0000     NAME IGC6Z07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFTZ      00     380


 ENTRY ADDRESS       00
 TOTAL LENGTH       380

****IGC6Z07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVFTO)
IEW0000     NAME IGC6O07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFTO      00     3F9


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC6O07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECVFTQ)
IEW0000     NAME IGC6Q07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFTQ      00     3FF


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC6Q07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEECXDOM)
IEW0000     NAME IGC0008G(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0008G      00      A4


 ENTRY ADDRESS       00
 TOTAL LENGTH        A8

****IGC0008G  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK67.R0000231      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DN539                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK67.S0000232      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK67.S0000232      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG70    / START 78240.1946
IEF374I STEP /SG70    / STOP  78240.1946 CPU   0MIN 01.86SEC MAIN 132K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:09.31   ALLOC START    19:46:09.32   MAIN REGION ----- 256K                          *
*   STEP NAME SG70       STEP END TIME  19:46:11.36   PGM START TIME 19:46:09.39   MAIN STORAGE ---- 132K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.05   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:01.86   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ---------- 379       0150 ---------- 746       0250 ---------- 656       0250 ----------- 21    *
*   0250 ----------- 53       0250 ------------ 3       0151 ----------- 11       0130 ---------- 236                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK67  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:11.39   ALLOC START    19:46:11.41   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:11.43   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK67 / START 78240.1946
IEF376I  JOB /R21LK67 / STOP  78240.1946 CPU   0MIN 01.86SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK67    JOB READ TIME 19:45:09.46   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.86   *
*   JOB CLASS A          JOB INIT TIME 19:46:09.31   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:02.13   *
*   ACCOUNT              JOB END TIME  19:46:11.44   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       66     8888888                             A
            RRRRRRRRR  222222222      11     LL         KK    KK       66     888888888                           AAA
            RR     RR  22     22     111     LL         KK   KK       66      88     88                          AA AA
            RR     RR        22       11     LL         KK  KK       66       88     88                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK       6666666    8888888                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK      666666666   8888888                         AA     AA
            RR  RR        22          11     LL         KKK KK     66     66  88     88                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    66     66  88     88                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   666666666  888888888                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   6666666    8888888                         AA     AA

***********A  START   R21LK68    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK68    START  A***********
***********A  START   R21LK68    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK68    START  A***********
***********A  START   R21LK68    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK68    START  A***********
***********A  START   R21LK68    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK68    START  A***********
***********A  START   R21LK68    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK68    START  A***********


//R21LK68 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG71 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//CI535 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI535
//DN539 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN539
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK68  SG71
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO CI535
IEF237I 250   ALLOCATED TO DN539
IEF237I 250   ALLOCATED TO CI555
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     CHANGE IEFSD059(IEFVM2)
IEW0000     INCLUDE CI505(IEFVMLS1)
IEW0000     INCLUDE CI535(IEFSD180)
IEW0000     INCLUDE CI505(IEFSD21Q,IEF41FAK,IEFWSTRT)
IEW0000     CHANGE IEFSD059(IEFVM2)
IEW0000     INCLUDE CI505(IEFVM3LS)
IEW0000     CHANGE IEFSD059(IEFVM2)
IEW0000     INCLUDE CI505(IEFVM5LS,IEFVM2LS,IEFVM4LS)
IEW0000     INCLUDE CI505(IEFQMLK1,IEFYSVMS,IEFVM76)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ,IEFQMRAW)
IEW0000     INCLUDE CI535(IEFSD111)
IEW0000     INCLUDE CI505(IEFCVFAK)
IEW0000     CHANGE IEFYN(IEFW41SD)
IEW0000     INCLUDE CI505(IEFXCSSS)
IEW0000     INCLUDE CI505(IEFSCAN)
IEW0000     INCLUDE SYSPUNCH(IEFDEVPT)
IEW0000     INCLUDE SYSPUNCH(CHLOADTB)
IEW0000     INCLUDE CI505(IEFVKMSG,IEFWAFAK)
IEW0000     INCLUDE CI505(IEFXAMSG,IEFWCFAK,IEFWDFAK)
IEW0000     CHANGE IEFYN(IEFW41SD)
IEW0000     INCLUDE CI505(IEFVKIMP)
IEW0000     INCLUDE CI505(IEFVMLK5)
IEW0000     INCLUDE CI505(IEFACTFK)
IEW0000     ALIAS IEFVM1,IEFXA,IEFVMCVL
IEW0000     ENTRY IEFW21SD
IEW0000     NAME IEFW21SD(R)
****IEFW21SD  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFVMCVL  IS AN ALIAS FOR THIS MEMBER
****IEFXA     IS AN ALIAS FOR THIS MEMBER
****IEFVM1    IS AN ALIAS FOR THIS MEMBER


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVM1        00    1118
                                        IEFVM         00    VM7000        00    VM1BASE        2    VM7030D      13E
                                        VM7055AA     4C0    VM7055       4E2    VM1R1        4F8    VM7060       52C
                                        VM7070       58E    VM1R2        7C4    VM7090       82A    VM7370       9CE
                                        VM7750       B82    VM7850       F38
  IEFVMVTE    1118     3D8
                                        VM7130      1118    VM7700      12E0
  IEFVMQMI    14F0      78
                                        VM7742      14F0
  IEFVMPDQ    1568     41C
                                        VM7900      1568    VM7950      17FC    IEFVMCVL    1930
  IEFSD180    1988     374
                                        IEFSD18     1988

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFW21SD    1D00     518
  IEFR102     2218      67
  IEFW41SD    2280      16
                                        IEFW1FAK    2280    IEFW2FAK    2280
  IEFWSTRT    2298      EB
                                        WTERM040    22CC    WTERM045    230C    WSTRTFOR    2350
  IEFVM3      2388     338
                                        VM7150      2388    VM3BASE     2392    VM3LOC      2598
  IEFVM5      26C0     20E
                                        VM7300      26C0    VM5BASE     26CA    VM5LOC      272C
  IEFVM2      28D0      C8
                                        VM7100      28D0
  IEFVM4      2998     44E
                                        VM7200      2998
  IEFQMSSS    2DE8      1C
  IEFYS       2E08     17C
  IEFVM76     2F88      DC
  IEFQASGN    3068     56A
  IEFQASNM    35D8      7E
  IEFQMRAW    3658     1D4
  IEFQMWTO    3830      42
  IEFSD111    3878     268
  CHFILRDW    3AE0     36C
  IEFCVOL1    3E50      4A
                                        IEFCVOL2    3E6A    IEFCVOL3    3E82
  IEFXA       3EA0     9FC
  IEFXAB00    48A0     EF0
  IEFSCAN     5790      E4
                                        UCBSCAN     5812    UCBCONT     5812
  IEFDEVPT    5878      38
  CHLOADTB    58B0      20
  IEFVKMSG    58D0      92
                                        IEFVKMJ1    58D0    IEFVKMJ3    5914
  IEFWA000    5968      18
  IEFXAMSG    5980      88
                                        WTOMSG1     59D0
  IEFWC000    5A08      18
  IEFWD000    5A20      18
  IEFVK       5A38     247
  IEFVM6      5C80      16
  IEFACTLK    5C98       2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      8E8            IEFVM2          IEFVM2                       8F0            IEFQMSSS        IEFQMSSS
      8F4            IEFXA           IEFXA                        8F8            IEFVM2          IEFVM2
      8FC            IEFVM3          IEFVM3                       900            IEFVM4          IEFVM4
      904            IEFVM5          IEFVM5                       908            IEFVM6          IEFVM6
      90C            IEFVM76         IEFVM76                      910            IEFCVOL1        IEFCVOL1
      914            IEFSD18         IEFSD180                     B14            IEFVMVTE        IEFVMVTE

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      B1C            IEFVMVTE        IEFVMVTE                     B24            IEFVMVTE        IEFVMVTE
      B20            IEFVMQMI        IEFVMQMI                     B0C            IEFVMPDQ        IEFVMPDQ
      B10            IEFVMPDQ        IEFVMPDQ                    10F0            IEFQMSSS        IEFQMSSS
     10F4            IEFXA           IEFXA                       10F8            IEFVM2          IEFVM2
     10FC            IEFVM3          IEFVM3                      1100            IEFVM4          IEFVM4
     1104            IEFVM5          IEFVM5                      1108            IEFVM6          IEFVM6
     110C            IEFVM76         IEFVM76                     1110            IEFCVOL1        IEFCVOL1
     1114            IEFSD18         IEFSD180                    10B0            IEFVMVTE        IEFVMVTE
     10B8            IEFVMVTE        IEFVMVTE                    10C0            IEFVMVTE        IEFVMVTE
     10C4            IEFVMVTE        IEFVMVTE                    10BC            IEFVMQMI        IEFVMQMI
     10A8            IEFVMPDQ        IEFVMPDQ                    10AC            IEFVMPDQ        IEFVMPDQ
     14E8            IEFVM1          IEFVM1                      11AC            IEFVMQMI        IEFVMQMI
     1204            IEFVMQMI        IEFVMQMI                    14EC            IEFVMQMI        IEFVMQMI
     155C            IEFVM1          IEFVM1                      1560            IEFVM1          IEFVM1
     1564            IEFQMSSS        IEFQMSSS                    1960            IEFVM1          IEFVM1
     1964            IEFVM1          IEFVM1                      1924            IEFVMQMI        IEFVMQMI
     1968            IEFVM1          IEFVM1                      1974            IEFVM1          IEFVM1
     1978            IEFVM1          IEFVM1                      196C            VM3LOC          IEFVM3
     1970            VM5LOC          IEFVM5                      197C            VM3BASE         IEFVM3
     1980            VM5BASE         IEFVM5                      1CBC            VM7030D         IEFVM1
     1CC0            VM7742          IEFVMQMI                    1CC4            VM7900          IEFVMPDQ
     1CC8            VM7950          IEFVMPDQ                    1CCC            VM7850          IEFVM1
     21C8            IEFACTLK        IEFACTLK                    21CC            IEFQMRAW        IEFQMRAW
     21D0            IEFVK           IEFVK                       21D4            IEFVM1          IEFVM1
     21D8            IEFWD000        IEFWD000                    21DC            IEFYS           IEFYS
     21E0            IEFR102         IEFR102                     21E4            IEFWSTRT        IEFWSTRT
     21E8            WTERM040        IEFWSTRT                    21EC            WSTRTFOR        IEFWSTRT
     26BC            VM1BASE         IEFVM1                      28BC            VM1R1           IEFVM1
     28C0            VM1R2           IEFVM1                      2DBC            IEFVKMJ3        IEFVKMSG
     2DC0            IEFYS           IEFYS                       2DFC            IEFQMRAW        IEFQMRAW
     2E00            IEFQASGN        IEFQASGN                    2F68            IEFQASGN        IEFQASGN
     2F6C            IEFQMRAW        IEFQMRAW                    3048            VM7742          IEFVMQMI
     304C            VM7850          IEFVM1                      3050            VM7090          IEFVM1
     357C            IEFQASNM        IEFQASNM                    359C            IEFSD111        IEFSD111
     3818            IEFSD111        IEFSD111                    3814            IEFQMWTO        IEFQMWTO
     3ADC            CHFILRDW        CHFILRDW                    4768            IEFWA000        IEFWA000
     4774            IEFWC000        IEFWC000                    479C            IEFW41SD        IEFW41SD
     47A0            IEFXAMSG        IEFXAMSG                    47C4            IEFYS           IEFYS
     4800            IEFQMSSS        IEFQMSSS                    486C            UCBCONT         IEFSCAN
     4870            IEFDEVPT        IEFDEVPT                    4874            IEFSCAN         IEFSCAN
     4894            CHLOADTB        CHLOADTB                    4878            IEFXAB00        IEFXAB00
     5870            IEFDEVPT        IEFDEVPT                    5C54            IEFQMSSS        IEFQMSSS
     5C58            IEFVM           IEFVM1                      5C5C            IEFYS           IEFYS
     5C60            IEFVKMJ1        IEFVKMSG
 ENTRY ADDRESS     1D00
 TOTAL LENGTH      5CA0



IEW0000     INCLUDE SYSPUNCH(IEFWMAS1)
IEW0000     NAME DEVNAMET(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DEVNAMET      00     1A8


 ENTRY ADDRESS       00
 TOTAL LENGTH       1A8

****DEVNAMET  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE SYSPUNCH(IEFWMSKA)
IEW0000     NAME DEVMASKT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  DEVMASKT      00     754


 ENTRY ADDRESS       00
 TOTAL LENGTH       758

****DEVMASKT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE SYSPUNCH(CHLOADTB)
IEW0000     NAME CHLOADTB(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CHLOADTB      00      20


 ENTRY ADDRESS       00
 TOTAL LENGTH        20

****CHLOADTB  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE CI535(IEFDSOCR)
IEW0000     INCLUDE CI535(IEFSD111)
IEW0000     INCLUDE CI535(IEFSD112)
IEW0000     INCLUDE CI505(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQMNQQ)
IEW0000     CHANGE IEFSD598(IEFSD068)
IEW0000     CHANGE IEFSD510(IEFSD068)
IEW0000     CHANGE IEFSD061(IEFSD068)
IEW0000     CHANGE IEFVSDRA(IEFSD068)
IEW0000     INCLUDE CI505(IEFSD168)
IEW0000     ENTRY IEFDSOCR
IEW0000     NAME IEFDSOCR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFDSOCR      00     448
  IEFSD111     448     268
  CHFILRDW     6B0     36C
  IEFSD112     A20     130
  IEFQMRAW     B50     1D4
  IEFQMWTO     D28      42
  IEFQMNQ2     D70     3D6
  IEFSD068    1148     460



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2F4            IEFSD112        IEFSD112                     2F8            IEFSD068        IEFSD068
      2FC            IEFQMRAW        IEFQMRAW                     6AC            CHFILRDW        CHFILRDW
      B4C            CHFILRDW        CHFILRDW                     D10            IEFSD111        IEFSD111
      D0C            IEFQMWTO        IEFQMWTO                    1110            IEFSD111        IEFSD111
     1114            IEFSD112        IEFSD112                    1570            IEFQMRAW        IEFQMRAW
     1574            IEFQMNQ2        IEFQMNQ2
 ENTRY ADDRESS       00
 TOTAL LENGTH      15A8

****IEFDSOCR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE CI505(IEFDSOFB)
IEW0000     NAME IEFDSOFB(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFDSOFB      00     189



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       190

****IEFDSOFB  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE CI505(IEESMFIT)
IEW0000     ALIAS IEESMFI4
IEW0000     ENTRY IEESMFIT
IEW0000     NAME IEESMFIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESMFIT      00     5F4
                                        IEESMFI4     27A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       5F8

****IEESMFIT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEESMFI4  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE CI505(IEESMFI3)
IEW0000     ALIAS IEESMFMS,IEESMFIO
IEW0000     NAME IEESMFI3(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESMFI3      00     C50
                                        IEESMFMS     760    IEESMFIO     7B8


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       C50

****IEESMFI3  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEESMFIO  IS AN ALIAS FOR THIS MEMBER
****IEESMFMS  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE CI505(IEESMFI2)
IEW0000     ENTRY IEESMFI2
IEW0000     NAME IEESMFI2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESMFI2      00     288



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       288

****IEESMFI2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE CI505(IEESMFOI)
IEW0000     ENTRY IEESMFOI
IEW0000     NAME IEESMFOI(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESMFOI      00     54C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       550

****IEESMFOI  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     CHANGE IEFYN(IEFW41SD)
IEW0000     INCLUDE CI505(IEFMCVOL)
IEW0000     CHANGE IEFYN(IEFW41SD)
IEW0000     INCLUDE CI505(IEFVMLS6)
IEW0000     INCLUDE CI505(IEFVMLS7,IEFVMFAK)
IEW0000     INCLUDE CI505(IEFVMMS1,IEF41FAK)
IEW0000     INCLUDE CI505(IEFYSVMS,IEFQMLK1)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ,IEFQMRAW)
IEW0000     INCLUDE CI535(IEFSD111)
IEW0000     ALIAS IEFCVOL1,IEFCVOL2,IEFCVOL3
IEW0000     ENTRY IEFCVOL1
IEW0000     NAME  IEFMCVOL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFCVOL1      00     3C2
  IEFCVOL2     3C8      CC
  IEFCVOL3     498      D0
  IEFVM6       568     198
                                        IEFVMSGR     568
  IEFVM7       700     654
                                        IEFVMG01     700    IEFVMG02     742    IEFVMG03     77E    IEFVMG04     7A8
                                        IEFVMG05     7F0    IEFVMG06     83E    IEFVMG07     878    IEFVMG08     8BA
                                        IEFVMG09     8FC    IEFVMG10     93A    IEFVMG11     976    IEFVMG12     9BE
                                        IEFVMG13     A2E    IEFVMG14     A6A    IEFVMG15     AB0    IEFVMG16     AF6
                                        IEFVMG17     B34    IEFVMG18     B6C    IEFVMG19     B9E    IEFVMG20     BD0
                                        IEFVMG21     C12    IEFVMG22     C4C    IEFVMG23     C8C    IEFVMG24     CE0
                                        IEFVMG25     D24
  IEFVMCVL     D58      1A
  IEFVM1       D78      16
  IEFW41SD     D90      16
                                        IEFW2FAK     D90    IEFW1FAK     D90
  IEFYS        DA8     17C
  IEFQMSSS     F28      1C
  IEFQASGN     F48     56A
  IEFQASNM    14B8      7E
  IEFQMRAW    1538     1D4
  IEFQMWTO    1710      42
  IEFSD111    1758     268
  CHFILRDW    19C0     36C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      3A8            IEFYS           IEFYS                        3AC            IEFVM1          IEFVM1
      3B0            IEFVM6          IEFVM6                       3B4            IEFQMSSS        IEFQMSSS
      3B8            IEFVMG15        IEFVM7                       490            IEFVMCVL        IEFVMCVL

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      564            IEFW41SD        IEFW41SD                     664            IEFYS           IEFYS
      668            IEFW41SD        IEFW41SD                     66C            IEFCVOL3        IEFCVOL3
      670            IEFVMG17        IEFVM7                       674            IEFVMG02        IEFVM7
      678            IEFVMG03        IEFVM7                       67C            IEFVMG04        IEFVM7
      6A8            IEFVMG04        IEFVM7                       680            IEFVMG05        IEFVM7
      684            IEFVMG06        IEFVM7                       688            IEFVMG07        IEFVM7
      68C            IEFVMG08        IEFVM7                       690            IEFVMG09        IEFVM7
      698            IEFVMG18        IEFVM7                       69C            IEFVMG19        IEFVM7
      6A0            IEFVMG01        IEFVM7                       6A4            IEFVMG10        IEFVM7
      6AC            IEFVMG11        IEFVM7                       6B0            IEFVMG12        IEFVM7
      6B4            IEFVMG13        IEFVM7                       6B8            IEFVMG14        IEFVM7
      6BC            IEFVMG15        IEFVM7                       6C0            IEFVMG16        IEFVM7
      6C4            IEFVMG20        IEFVM7                       6C8            IEFVMG21        IEFVM7
      6CC            IEFVMG22        IEFVM7                       6D0            IEFVMG23        IEFVM7
      6D4            IEFVMG24        IEFVM7                       6D8            IEFVMG25        IEFVM7
      F08            IEFQASGN        IEFQASGN                     F0C            IEFQMRAW        IEFQMRAW
      F3C            IEFQMRAW        IEFQMRAW                     F40            IEFQASGN        IEFQASGN
     145C            IEFQASNM        IEFQASNM                    147C            IEFSD111        IEFSD111
     16F8            IEFSD111        IEFSD111                    16F4            IEFQMWTO        IEFQMWTO
     19BC            CHFILRDW        CHFILRDW
 ENTRY ADDRESS       00
 TOTAL LENGTH      1D30

****IEFMCVOL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFCVOL3  IS AN ALIAS FOR THIS MEMBER
****IEFCVOL2  IS AN ALIAS FOR THIS MEMBER
****IEFCVOL1  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE CI505(IEFWA000,IEFX300A)
IEW0000     CHANGE IEFXV001(IEFX5000)
IEW0000     INCLUDE CI505(IEFWSWIN)
IEW0000     CHANGE IEFSEPAR(IEFW41SD)
IEW0000     INCLUDE SYSPUNCH(IEFSGOPT)
IEW0000     INCLUDE CI505(IEFSCAN)
IEW0000     INCLUDE CI505(IEFXDPTH)
IEW0000     INCLUDE CI505(IEFSD552)
IEW0000     INCLUDE CI505(IEFX5000,IEFWCIMP,IEFXH000)
IEW0000     INCLUDE CI535(IEFSD111)
IEW0000     INCLUDE CI505(IEFQMLK1,IEFYSVMS)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ,IEFQMRAW)
IEW0000     INCLUDE CI505(IEFWDFAK,IEFXJFAK,IEF41FAK)
IEW0000     INCLUDE CI505(IEFSD551)
IEW0000     INCLUDE SYSPUNCH(IEFDEVPT)
IEW0000     ALIAS IEFWC000
IEW0000     ENTRY IEFWA000
IEW0000     NAME IEFWA000(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFWA7        00     BC4
                                        IEFWA000      00
  IEFWA002     BC8    104C
                                        XDF595      1ACA    XDF600      1AD0    XDF630      1B34    CVDMT       1B4C
  IEFUCBL     1C18     2E4
  IEFX3000    1F00     B38
                                        X33B42      2664
  IEFWSWIT    2A38      68
  IEFSGOPT    2AA0      1C
  IEFSCAN     2AC0      E4
                                        UCBCONT     2B42    UCBSCAN     2B42
  IEFXDPTH    2BA8     172
                                        IEFXDP3     2BA8    IEFXDP1     2BB0    IEFXDP2     2BD6
  IEFXJX5A    2D20      16
  IEFX5000    2D38     DF0
                                        XIIB32      2DEA    X55C86      31FC    X55D3G      345C
  IEFWC000    3B28     FFE
  IEFWC002    4B28     B0A
  IEFXH000    5638     6F0
  IEFSD111    5D28     268
  CHFILRDW    5F90     36C
  IEFQMSSS    6300      1C
  IEFYS       6320     17C
  IEFQASGN    64A0     56A
  IEFQASNM    6A10      7E
  IEFQMRAW    6A90     1D4
  IEFQMWTO    6C68      42

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFWD000    6CB0      18
  IEFXJ000    6CC8      18
  IEFW41SD    6CE0      16
                                        IEFW2FAK    6CE0    IEFW1FAK    6CE0
  IEFV15XL    6CF8      16
  IEFDEVPT    6D10      38



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      13C            XDF630          IEFWA002                     140            XDF595          IEFWA002
      148            CVDMT           IEFWA002                     14C            XDF600          IEFWA002
      43C            IEFUCBL         IEFUCBL                      BB8            IEFWA002        IEFWA002
     1B50            IEFX3000        IEFX3000                    1B54            IEFWSWIT        IEFWSWIT
     1B58            IEFWC000        IEFWC000                    1B5C            IEFXJ000        IEFXJ000
     1B60            IEFV15XL        IEFV15XL                    1E1C            IEFDEVPT        IEFDEVPT
     1E20            IEFSCAN         IEFSCAN                     1E24            UCBCONT         IEFSCAN
     296C            IEFV15XL        IEFV15XL                    29F0            IEFXDP1         IEFXDPTH
     29F4            IEFXDP2         IEFXDPTH                    29F8            IEFXDP3         IEFXDPTH
     2A90            IEFX5000        IEFX5000                    2A94            IEFX5000        IEFX5000
     2A98            IEFSGOPT        IEFSGOPT                    2AB4            IEFW41SD        IEFW41SD
     2AB8            IEFW41SD        IEFW41SD                    2BA0            IEFDEVPT        IEFDEVPT
     3AF8            IEFXJX5A        IEFXJX5A                    3AFC            IEFXH000        IEFXH000
     3B00            IEFWC000        IEFWC000                    3B04            IEFXJ000        IEFXJ000
     3B08            IEFX3000        IEFX3000                    3B0C            X33B42          IEFX3000
     3B10            IEFXDP1         IEFXDPTH                    3B14            IEFXDP2         IEFXDPTH
     498C            IEFXH000        IEFXH000                    4990            IEFXJ000        IEFXJ000
     4994            IEFWD000        IEFWD000                    4998            IEFXDP1         IEFXDPTH
     499C            IEFXDP3         IEFXDPTH                    4AD0            IEFQMSSS        IEFQMSSS
     497C            IEFWC002        IEFWC002                    4980            IEFWC002        IEFWC002
     4984            IEFWC002        IEFWC002                    4988            IEFWC002        IEFWC002
     562C            IEFWC000        IEFWC000                    5CBC            IEFXDP1         IEFXDPTH
     5CC0            IEFXDP2         IEFXDPTH                    5CC4            IEFXDP3         IEFXDPTH
     5F8C            CHFILRDW        CHFILRDW                    6314            IEFQMRAW        IEFQMRAW
     6318            IEFQASGN        IEFQASGN                    6480            IEFQASGN        IEFQASGN
     6484            IEFQMRAW        IEFQMRAW                    69B4            IEFQASNM        IEFQASNM
     69D4            IEFSD111        IEFSD111                    6C50            IEFSD111        IEFSD111
     6C4C            IEFQMWTO        IEFQMWTO
 ENTRY ADDRESS       00
 TOTAL LENGTH      6D48

****IEFWA000  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFWC000  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE CI505(IEEVPRES,IEFK1MSG,IEFPRES)
IEW0000     INCLUDE CI505(IEFSCAN)
IEW0000     INCLUDE SYSPUNCH(IEFDEVPT)
IEW0000     ENTRY IEEVPRES
IEW0000     NAME IEEVPRES(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVPRES      00     1DC
  IEFK1MSG     1E0     1BB
  IEFPRES      3A0     D51
  IEFSCAN     10F8      E4
                                        UCBCONT     117A    UCBSCAN     117A
  IEFDEVPT    11E0      38



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      120            IEFPRES         IEFPRES                     1014            UCBCONT         IEFSCAN
     1018            IEFSCAN         IEFSCAN                     1040            IEFK1MSG        IEFK1MSG
     11D8            IEFDEVPT        IEFDEVPT
 ENTRY ADDRESS       00
 TOTAL LENGTH      1218

****IEEVPRES  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE CI505(IEFWD000,IEFWD001)
IEW0000     INCLUDE CI505(IEFXT00D,IEFXTDMY,IEFSD195,IEFSD096)
IEW0000     CHANGE IEFW41SD(IEFWEXTA)
IEW0000     INCLUDE CI505(IEFXT002)
IEW0000     INCLUDE CI505(IEFSD097,IEFQMLK1,IEFYSVMS,IEFQMRAW)
IEW0000     INCLUDE CI505(IEFXT003)
IEW0000     INCLUDE CI505(IEFXKFAK)
IEW0000     INCLUDE CI505(IEFWEXTA)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ,IEFSD41Q,IEFXJFAK)
IEW0000     INCLUDE CI505(IEFVMMS1)
IEW0000     INCLUDE CI535(IEFSD111)
IEW0000     INCLUDE CI505(IEFXTMSG)
IEW0000     INCLUDE CI505(IEFCVFAK)
IEW0000     ALIAS IEFW41SD
IEW0000     ENTRY IEFWD000
IEW0000     NAME IEFWD000(R)
****IEFWD000  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFW41SD  IS AN ALIAS FOR THIS MEMBER


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFWD000      00     C88
  IEFWD002     C88     90C
  IEFWDMSG    1598     C32
  IEFWD001    21D0      B0
  IEFXT000    2280     D96
                                        XTTBC0      23EC    WDEXIT      2EC2
  IEFXTDMY    3018      14
  IEFSD095    3030     322
  IEFSD096    3358     152
  IEFXT002    34B0     C92
                                        XTTRDJ      3886    XTTEA0      38F4    XTTEA1      3904    XTTEB3      3980
                                        XUW000      3BDC
  IEFSD097    4148     374
  IEFQMSSS    44C0      1C
  IEFYS       44E0     17C
  IEFQMRAW    4660     1D4
  IEFQMWTO    4838      42
  IEFXT003    4880     93E
                                        XUUB00      4AEA    XUUC00      4CBC    XUUH06      4E80
  IEFXK000    51C0      1A
  IEFWEXTA    51E0     668
  IEFQASGN    5848     56A
  IEFQASNM    5DB8      7E
  IEFW41SD    5E38     610
                                        IEFW2FAK    5E38    IEFW1FAK    5E38
  IEFXJ000    6448      18
  IEFVM1      6460      16

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD111    6478     268
  CHFILRDW    66E0     36C
  IEFXTMSG    6A50     17A
                                        MESGHEAD    6A50    MESGDDEV    6A88    RESMSG      6AB8    RESUNIT     6B04
                                        WTORREP     6B34    JOBCAN      6B68    PRIASMSG    6B8F
  IEFCVOL1    6BD0      4A
                                        IEFCVOL2    6BEA    IEFCVOL3    6C02


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      BF4            IEFWD002        IEFWD002                     BF8            IEFWD002        IEFWD002
      BFC            IEFWD002        IEFWD002                     C74            IEFXT000        IEFXT000
      C78            IEFCVOL2        IEFCVOL1                     C00            IEFWD002        IEFWD002
      C04            IEFWD002        IEFWD002                     C08            IEFWD002        IEFWD002
      C0C            IEFWD002        IEFWD002                     C10            IEFWD002        IEFWD002
      C14            IEFWD002        IEFWD002                     C18            IEFWD002        IEFWD002
      C1C            IEFWD002        IEFWD002                     C20            IEFWD002        IEFWD002
      C24            IEFWD002        IEFWD002                     C34            IEFWD002        IEFWD002
      C7C            IEFWDMSG        IEFWDMSG                     C80            IEFWDMSG        IEFWDMSG
      C84            IEFWDMSG        IEFWDMSG                    13D8            IEFWD000        IEFWD000
     13DC            IEFWD000        IEFWD000                    13E0            IEFWD000        IEFWD000
     13E4            IEFWD000        IEFWD000                    13E8            IEFWD000        IEFWD000
     13EC            IEFWD000        IEFWD000                    13F0            IEFWD000        IEFWD000
     13F4            IEFWD000        IEFWD000                    13F8            IEFWD000        IEFWD000
     13FC            IEFWD000        IEFWD000                    1404            IEFWD000        IEFWD000
     1408            IEFWD000        IEFWD000                    140C            IEFWD000        IEFWD000
     1410            IEFWD000        IEFWD000                    141C            IEFWD000        IEFWD000
     1400            IEFWDMSG        IEFWDMSG                    1418            IEFWDMSG        IEFWDMSG
     1D50            IEFWD000        IEFWD000                    1D60            IEFWD000        IEFWD000
     1D64            IEFWD000        IEFWD000                    1D6C            IEFWD000        IEFWD000
     1D70            IEFWD000        IEFWD000                    1D74            IEFWD000        IEFWD000
     1D78            IEFWD000        IEFWD000                    1D4C            IEFWD002        IEFWD002
     1D54            IEFWD002        IEFWD002                    1D58            IEFWD002        IEFWD002
     1D5C            IEFWD002        IEFWD002                    1D7C            IEFWD002        IEFWD002
     1D48            IEFQMSSS        IEFQMSSS                    1D68            IEFWD001        IEFWD001
     2F1C            XTTRDJ          IEFXT002                    2F20            XTTEB3          IEFXT002
     2F24            XTTEA1          IEFXT002                    2F28            XTTEA0          IEFXT002
     2F2C            PRIASMSG        IEFXTMSG                    2F30            XUUH06          IEFXT003
     2F34            IEFXT003        IEFXT003                    2F38            IEFWD000        IEFWD000
     2F3C            IEFYS           IEFYS                       2F40            IEFXT002        IEFXT002
     2F44            IEFQMSSS        IEFQMSSS                    2F48            IEFXTDMY        IEFXTDMY
     3028            IEFXK000        IEFXK000                    3300            IEFSD096        IEFSD096
     4004            XUUC00          IEFXT003                    4008            XUUB00          IEFXT003
     400C            IEFXT003        IEFXT003                    4010            MESGHEAD        IEFXTMSG
     4018            MESGDDEV        IEFXTMSG                    401C            IEFXK000        IEFXK000
     4020            IEFYS           IEFYS                       4024            RESMSG          IEFXTMSG
     4028            RESUNIT         IEFXTMSG                    402C            WTORREP         IEFXTMSG
     4030            JOBCAN          IEFXTMSG                    4034            IEFWEXTA        IEFWEXTA
     4038            IEFQMSSS        IEFQMSSS                    44B0            IEFSD095        IEFSD095
     44D4            IEFQMRAW        IEFQMRAW                    44D8            IEFQASGN        IEFQASGN
     4640            IEFQASGN        IEFQASGN                    4644            IEFQMRAW        IEFQMRAW

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     4820            IEFSD111        IEFSD111                    481C            IEFQMWTO        IEFQMWTO
     5164            XUW000          IEFXT002                    5168            XTTBC0          IEFXT000
     516C            IEFSD097        IEFSD097                    5170            IEFXT000        IEFXT000
     5174            XTTEA0          IEFXT002                    5178            IEFXT002        IEFXT002
     517C            IEFQMSSS        IEFQMSSS                    5180            WDEXIT          IEFXT000
     57F4            IEFW41SD        IEFW41SD                    57F8            IEFXK000        IEFXK000
     5D5C            IEFQASNM        IEFQASNM                    5D7C            IEFSD111        IEFSD111
     6398            IEFQASGN        IEFQASGN                    639C            IEFQMRAW        IEFQMRAW
     63A0            IEFVM1          IEFVM1                      66DC            CHFILRDW        CHFILRDW

 ENTRY ADDRESS       00
 TOTAL LENGTH      6C20



IEW0000     CHANGE IEFYN(IEFW41SD)
IEW0000     INCLUDE CI505(IEFVMLS6,IEFVMLS7)
IEW0000     INCLUDE CI505(IEFSD195,IEFSD096)
IEW0000     CHANGE IEFYN(IEFW41SD)
IEW0000     INCLUDE CI505(IEFXJIMP,IEFXJMSG)
IEW0000     CHANGE IEFYN(IEFW41SD)
IEW0000     INCLUDE CI505(IEFXKIMP,IEFXKMSG)
IEW0000     INCLUDE CI505(IEFSD41Q,IEFXAFAK)
IEW0000     INCLUDE CI505(IEFCVFAK,IEFVMMS1,IEFQMLK1)
IEW0000     INCLUDE CI505(IEFYSVMS,IEFQMRAW)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ)
IEW0000     INCLUDE CI535(IEFSD111)
IEW0000     ALIAS IEFXJX5A,IEFV15XL,IEFXJ000,IEFXK000
IEW0000     ENTRY IEFVM6
IEW0000     NAME IEFVM6LS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVM6        00     198
                                        IEFVMSGR      00
  IEFVM7       198     654
                                        IEFVMG01     198    IEFVMG02     1DA    IEFVMG03     216    IEFVMG04     240
                                        IEFVMG05     288    IEFVMG06     2D6    IEFVMG07     310    IEFVMG08     352
                                        IEFVMG09     394    IEFVMG10     3D2    IEFVMG11     40E    IEFVMG12     456
                                        IEFVMG13     4C6    IEFVMG14     502    IEFVMG15     548    IEFVMG16     58E
                                        IEFVMG17     5CC    IEFVMG18     604    IEFVMG19     636    IEFVMG20     668
                                        IEFVMG21     6AA    IEFVMG22     6E4    IEFVMG23     724    IEFVMG24     778
                                        IEFVMG25     7BC
  IEFSD095     7F0     322
  IEFSD096     B18     152
  IEFXJ000     C70     C2C
                                        IEFV15XL     C86    IEFXJX5A     C8C
  IEFXJMSG    18A0     25C
                                        MSRCV       197A    MSSYS       19A3
  IEFXK000    1B00     4CC
  IEFXKMSG    1FD0     8CF
  IEFW41SD    28A0     610
                                        IEFW1FAK    28A0    IEFW2FAK    28A0
  IEFXA       2EB0      18
  IEFCVOL1    2EC8      4A
                                        IEFCVOL2    2EE2    IEFCVOL3    2EFA
  IEFVM1      2F18      16
  IEFQMSSS    2F30      1C
  IEFYS       2F50     17C
  IEFQMRAW    30D0     1D4
  IEFQMWTO    32A8      42
  IEFQASGN    32F0     56A
  IEFQASNM    3860      7E

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD111    38E0     268
  CHFILRDW    3B48     36C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       FC            IEFYS           IEFYS                        100            IEFW41SD        IEFW41SD
      104            IEFCVOL3        IEFCVOL1                     108            IEFVMG17        IEFVM7
      10C            IEFVMG02        IEFVM7                       110            IEFVMG03        IEFVM7
      114            IEFVMG04        IEFVM7                       140            IEFVMG04        IEFVM7
      118            IEFVMG05        IEFVM7                       11C            IEFVMG06        IEFVM7
      120            IEFVMG07        IEFVM7                       124            IEFVMG08        IEFVM7
      128            IEFVMG09        IEFVM7                       130            IEFVMG18        IEFVM7
      134            IEFVMG19        IEFVM7                       138            IEFVMG01        IEFVM7
      13C            IEFVMG10        IEFVM7                       144            IEFVMG11        IEFVM7
      148            IEFVMG12        IEFVM7                       14C            IEFVMG13        IEFVM7
      150            IEFVMG14        IEFVM7                       154            IEFVMG15        IEFVM7
      158            IEFVMG16        IEFVM7                       15C            IEFVMG20        IEFVM7
      160            IEFVMG21        IEFVM7                       164            IEFVMG22        IEFVM7
      168            IEFVMG23        IEFVM7                       16C            IEFVMG24        IEFVM7
      170            IEFVMG25        IEFVM7                       AC0            IEFSD096        IEFSD096
     13C4            IEFXJMSG        IEFXJMSG                    1748            IEFQMSSS        IEFQMSSS
     17A8            IEFXA           IEFXA                       17AC            IEFW41SD        IEFW41SD
     17B0            IEFSD095        IEFSD095                    17B4            IEFSD096        IEFSD096
     17B8            IEFCVOL3        IEFCVOL1                    17BC            MSSYS           IEFXJMSG
     17C0            IEFYS           IEFYS                       1F04            IEFW41SD        IEFW41SD
     1F08            IEFYS           IEFYS                       1F0C            IEFXKMSG        IEFXKMSG
     1F10            IEFCVOL3        IEFCVOL1                    2E00            IEFQASGN        IEFQASGN
     2E04            IEFQMRAW        IEFQMRAW                    2E08            IEFVM1          IEFVM1
     2F44            IEFQMRAW        IEFQMRAW                    2F48            IEFQASGN        IEFQASGN
     30B0            IEFQASGN        IEFQASGN                    30B4            IEFQMRAW        IEFQMRAW
     3290            IEFSD111        IEFSD111                    328C            IEFQMWTO        IEFQMWTO
     3804            IEFQASNM        IEFQASNM                    3824            IEFSD111        IEFSD111
     3B44            CHFILRDW        CHFILRDW
 ENTRY ADDRESS       00
 TOTAL LENGTH      3EB8

****IEFVM6LS  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFXK000  IS AN ALIAS FOR THIS MEMBER
****IEFXJ000  IS AN ALIAS FOR THIS MEMBER
****IEFV15XL  IS AN ALIAS FOR THIS MEMBER
****IEFXJX5A  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE CI535(IEEPALTR)
IEW0000     NAME IEEPALTR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEPSTP1      00     22E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       230

****IEEPALTR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE CI505(IEFPRTXX)
IEW0000     ALIAS IEFPRT,SPRINTER
IEW0000     NAME IEFPRINT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  SPRINTER      00     A2C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       A30

****IEFPRINT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****SPRINTER  IS AN ALIAS FOR THIS MEMBER
****IEFPRT    IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE SYSPUNCH(IEEVIPL)
IEW0000     INCLUDE DN539(ICFBIX00)
IEW0000     ENTRY IEEVIPL
IEW0000     NAME IEEVIPL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVIPL       00     DC4
  ICFBIE00     DC8       4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      DC0            ICFBIE00        ICFBIE00
 ENTRY ADDRESS       00
 TOTAL LENGTH       DD0

****IEEVIPL   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE CI555(IEEVSIPL)
IEW0000     NAME IEEVSIPL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVSIPL      00      68


 ENTRY ADDRESS       00
 TOTAL LENGTH        68

****IEEVSIPL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE CI505(IEE2103D)
IEW0000     NAME IEE2103D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE2103D      00     371


 ENTRY ADDRESS       00
 TOTAL LENGTH       378

****IEE2103D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE CI535(IEECVINT)
IEW0000     INCLUDE CI505(IEEVRFRX)
IEW0000     ENTRY IEECVCTI
IEW0000     NAME IEECVCTI(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVCTI      00     BB4
  IEEVRFRX     BB8     196



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       D8            IEEVRFRX        IEEVRFRX
 ENTRY ADDRESS       00
 TOTAL LENGTH       D50

****IEECVCTI  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE CI535(IEEVDSP1,IEEVDRGN)
IEW0000     ENTRY IEEVDSP1
IEW0000     NAME IEEVDSP1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVDSP1      00     388
  IEEVDRGN     388     2C6



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      378            IEEVDRGN        IEEVDRGN
 ENTRY ADDRESS       00
 TOTAL LENGTH       650

****IEEVDSP1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK68.R0000233      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DN539                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK68.S0000234      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK68.S0000234      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG71    / START 78240.1946
IEF374I STEP /SG71    / STOP  78240.1946 CPU   0MIN 01.01SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:11.47   ALLOC START    19:46:11.48   MAIN REGION ----- 256K                          *
*   STEP NAME SG71       STEP END TIME  19:46:12.68   PGM START TIME 19:46:11.55   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:01.21   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:01.01   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ----------- 34       0158 ---------- 175       0150 ---------- 252       0250 ---------- 815       0250 ---------- 112    *
*   0250 ------------ 7       0250 ------------ 3       0151 ---------- 168       0130 ---------- 151                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK68  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:12.70   ALLOC START    19:46:12.72   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:12.74   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK68 / START 78240.1946
IEF376I  JOB /R21LK68 / STOP  78240.1946 CPU   0MIN 01.01SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK68    JOB READ TIME 19:45:10.04   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.01   *
*   JOB CLASS A          JOB INIT TIME 19:46:11.47   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.28   *
*   ACCOUNT              JOB END TIME  19:46:12.75   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       66     9999999                             A
            RRRRRRRRR  222222222      11     LL         KK    KK       66     999999999                           AAA
            RR     RR  22     22     111     LL         KK   KK       66      99     99                          AA AA
            RR     RR        22       11     LL         KK  KK       66       99     99                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK       6666666   999999999                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK      666666666   9999999                         AA     AA
            RR  RR        22          11     LL         KKK KK     66     66       99                          AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    66     66      99                           AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   666666666     99                            AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   6666666     99                             AA     AA

***********A  START   R21LK69    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK69    START  A***********
***********A  START   R21LK69    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK69    START  A***********
***********A  START   R21LK69    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK69    START  A***********
***********A  START   R21LK69    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK69    START  A***********
***********A  START   R21LK69    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK69    START  A***********


//R21LK69 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG72 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET,REFR,REUS'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//CI535 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI535
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK69  SG72
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO CI535
IEF237I 250   ALLOCATED TO CI555
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,REFR,REUS
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE CI535(IEFIRC)
IEW0000     INCLUDE CI505(IEEVSMSG)
IEW0000     ENTRY IEFIRC
IEW0000     NAME IEFIRC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFIRC        00     26C
  IEEVSMSG     270     347



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      250            IEEVSMSG        IEEVSMSG
 ENTRY ADDRESS       00
 TOTAL LENGTH       5B8

****IEFIRC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVH1,IEEVSMSG)
IEW0000     CHANGE IEFK2(IEFVH2)
IEW0000     INCLUDE CI505(IEFVH2)
IEW0000     ENTRY IEFVH1
IEW0000     NAME IEFVH1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVH1        00     AE7
  IEEVSMSG     AE8     347
  IEFVH2       E30     600



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       1C            IEFVH2          IEFVH2                        8C            IEEVSMSG        IEEVSMSG
      AA8            IEEVSMSG        IEEVSMSG
 ENTRY ADDRESS       00
 TOTAL LENGTH      1430

****IEFVH1    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE, AND REFRESHABLE.


IEW0000     CHANGE IEFK3(IEFVHN)
IEW0000     INCLUDE CI505(IEFVHN)
IEW0000     NAME IEFVHN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVHN        00     67A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       680

****IEFVHN    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE, AND REFRESHABLE.


IEW0000     CHANGE INEPKG03(IEFVHA)
IEW0000     INCLUDE CI505(IEFVHA)
IEW0000     INCLUDE CI505(IEFVHAA,IEFVHB,IEFVHC)
IEW0000     INCLUDE CI505(IEFVHCB,IEFVHE,IEFVHEB,IEFVHEC)
IEW0000     INCLUDE CI505(IEFVHF,IEFVHL,IEFHMFAK,IEFVHG)
IEW0000     INCLUDE CI505(IEFVHH,IEFVHQ,IEFVFA,IEFVGK)
IEW0000     INCLUDE CI505(IEFVGT,IEFVGM,IEFJAFAK,IEFVEA)
IEW0000     INCLUDE CI505(IEFVDA,IEFVGI,IEFVGS)
IEW0000     INCLUDE CI535(IEFHRFK1)
IEW0000     INCLUDE CI505(IEFVSD12,IEFVSD13)
IEW0000     INCLUDE CI505(IEFVDBSD)
IEW0000     INCLUDE CI505(IEFACT)
IEW0000     INCLUDE CI505(IEFVHHB,IEFQMDUM,IEFVFB)
IEW0000     INCLUDE CI535(IEFVKG)
IEW0000     INCLUDE CI505(IEFVIND)
IEW0000     ALIAS IEFVHCB
IEW0000     ALIAS IEFVHREP
IEW0000     ALIAS IEFVHF
IEW0000     ENTRY IEFVHA
IEW0000     NAME IEFVHA(R)
****IEFVHA    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFVHF    IS AN ALIAS FOR THIS MEMBER
****IEFVHREP  IS AN ALIAS FOR THIS MEMBER
****IEFVHCB   IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REUSABLE, AND REFRESHABLE.


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVHA        00     37C
  IEFVHAA      380      8B
  IEFVHB       410      C1
  IEFVHC       4D8     16E
  IEFVHCB      648     577
  IEFVHE       BC0      94
  IEFVHEB      C58     313
  IEFVHEC      F70     11C
  IEFVHF      1090     104
  IEFVHL      1198      C8
  IEFVHM      1260      1A
  IEFVHG      1280     64E
  IEFVHH      18D0     570
  IEFVHQ      1E40     2E4
  IEFVFA      2128    16D8
  IEFVGK      3800     1E4
  IEFVGT      39E8     2F0
  IEFVGM      3CD8     6D0
  IEFVJA      43A8      1A
  IEFVEA      43C8    1152
  IEFVDA      5520    1E02

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGI      7328     161
  IEFVGS      7490     3E0
  IEFVHR      7870      38
                                        IEFVHREP    78A2
  IEFSD012    78A8     52D
  IEFSD090    7DD8     3A8
  IEFVDBSD    8180     19C
  IEFACT      8320       2
  IEFVHHB     8328      5C
  IEFVFB      8388     6E5
  IEFKG       8A70      48
  IEFVIND     8AB8     170
  IEFQMSSS    8C28      00



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      360            IEFVIND         IEFVIND                      368            IEFVHAA         IEFVHAA
      36C            IEFVHB          IEFVHB                       370            IEFVHC          IEFVHC
      374            IEFVGM          IEFVGM                       378            IEFVHR          IEFVHR
      400            IEFVHC          IEFVHC                       404            IEFVGM          IEFVGM
      4A4            IEFVGM          IEFVGM                       4A8            IEFVHA          IEFVHA
      4AC            IEFVHC          IEFVHC                       634            IEFVGM          IEFVGM
      638            IEFVHCB         IEFVHCB                      63C            IEFVHEB         IEFVHEB
      640            IEFVHA          IEFVHA                       B80            IEFVGM          IEFVGM
      B84            IEFVHA          IEFVHA                       B88            IEFVHE          IEFVHE
      B8C            IEFVHL          IEFVHL                       B90            IEFVHM          IEFVHM
      B94            IEFVHEB         IEFVHEB                      C44            IEFVHEB         IEFVHEB
      C48            IEFVHEC         IEFVHEC                      C4C            IEFVHH          IEFVHH
      C50            IEFVHAA         IEFVHAA                      F2C            IEFVFA          IEFVFA
      F30            IEFVGM          IEFVGM                       F34            IEFVHG          IEFVHG
      F38            IEFVHQ          IEFVHQ                      1080            IEFVGM          IEFVGM
     1084            IEFVHH          IEFVHH                      1088            IEFVHR          IEFVHR
     1184            IEFVHA          IEFVHA                      1188            IEFVHCB         IEFVHCB
     118C            IEFVHEB         IEFVHEB                     1190            IEFVHG          IEFVHG
     124C            IEFVGM          IEFVGM                      1250            IEFVHA          IEFVHA
     1254            IEFVHCB         IEFVHCB                     1258            IEFVHE          IEFVHE
     125C            IEFVHEC         IEFVHEC                     1884            IEFVHR          IEFVHR
     1888            IEFVGM          IEFVGM                      188C            IEFVHQ          IEFVHQ
     1890            IEFVHAA         IEFVHAA                     1894            IEFVHA          IEFVHA
     1898            IEFVHC          IEFVHC                      189C            IEFVHB          IEFVHB
     1D38            IEFVHEC         IEFVHEC                     1D3C            IEFVHHB         IEFVHHB
     1D40            IEFVGM          IEFVGM                      1D44            IEFVHQ          IEFVHQ
     1E3C            IEFKG           IEFKG                       2118            IEFVHR          IEFVHR
     211C            IEFQMSSS        IEFQMSSS                    32DC            IEFVHF          IEFVHF
     32E0            IEFVJA          IEFVJA                      32E4            IEFVDA          IEFVDA
     32E8            IEFVEA          IEFVEA                      32EC            IEFVGM          IEFVGM
     32F0            IEFVHQ          IEFVHQ                      32F4            IEFVFB          IEFVFB
     32F8            IEFACT          IEFACT                      39D8            IEFVHQ          IEFVHQ
     41E8            IEFVHQ          IEFVHQ                      5398            IEFVGT          IEFVGT
     539C            IEFVGK          IEFVGK                      53A0            IEFVGM          IEFVGM

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     53A4            IEFVGI          IEFVGI                      53A8            IEFVGS          IEFVGS
     53AC            IEFVHQ          IEFVHQ                      53B0            IEFVHF          IEFVHF
     53B4            IEFVHR          IEFVHR                      6A0C            IEFSD012        IEFSD012
     6A10            IEFSD090        IEFSD090                    6A14            IEFVHQ          IEFVHQ
     6A18            IEFVGS          IEFVGS                      6A1C            IEFVGT          IEFVGT
     6A20            IEFVGK          IEFVGK                      6A24            IEFVHF          IEFVHF
     6A28            IEFVDBSD        IEFVDBSD                    6A2C            IEFVGI          IEFVGI
     6A30            IEFVGM          IEFVGM                      7480            IEFVHQ          IEFVHQ
     7868            IEFVHQ          IEFVHQ                      786C            IEFVGK          IEFVGK
     7DC0            IEFVHQ          IEFVHQ                      7DC4            IEFVHR          IEFVHR
     7DC8            IEFVGM          IEFVGM                      8130            IEFVHQ          IEFVHQ
     8314            IEFVHQ          IEFVHQ                      837C            IEFVHEB         IEFVHEB
     8380            IEFVHA          IEFVHA                      8A40            IEFVHQ          IEFVHQ
     8A44            IEFVGM          IEFVGM                      8AB4            IEFVHHB         IEFVHHB
     8C24            IEFVHQ          IEFVHQ
 ENTRY ADDRESS       00
 TOTAL LENGTH      8C28



IEW0000     INCLUDE CI535(IEFHRFK2)
IEW0000     INCLUDE CI535(IEFVHR)
IEW0000     ALIAS IEFHRFK2
IEW0000     NAME IEFMVTHR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFHRFK2      00      78
  IEFVHR        78     454



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       74            IEFVHR          IEFVHR
 ENTRY ADDRESS       00
 TOTAL LENGTH       4D0

****IEFMVTHR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFHRFK2  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REUSABLE, AND REFRESHABLE.


IEW0000     CHANGE IEFQMSSS(IEFVHQ)
IEW0000     INCLUDE CI505(IEFVHQ,IEFHFFAK,IEFVGM)
IEW0000     INCLUDE CI505(IEFVGT,IEFVGK,IEFVJA)
IEW0000     INCLUDE CI535(IEFVHR)
IEW0000     ALIAS IEFVJA
IEW0000     ENTRY IEFVJA
IEW0000     NAME IEFMVTJA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVHQ        00     2E4
  IEFVHF       2E8      1A
  IEFVGM       308     6D0
  IEFVGT       9D8     2F0
  IEFVGK       CC8     1E4
  IEFVJA       EB0     560
  IEFVHR      1410     454



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2D8            IEFVHR          IEFVHR                       818            IEFVHQ          IEFVHQ
      EA0            IEFVHQ          IEFVHQ                      13E8            IEFVGT          IEFVGT
     13EC            IEFVGK          IEFVGK                      13F0            IEFVHQ          IEFVHQ
     13F4            IEFVGM          IEFVGM                      13F8            IEFVHF          IEFVHF

 ENTRY ADDRESS      EB0
 TOTAL LENGTH      1868

****IEFMVTJA  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFVJA    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REUSABLE, AND REFRESHABLE.


IEW0000     CHANGE IEFQMSSS(IEFVHQ)
IEW0000     INCLUDE CI505(IEFVHQ,IEFVHM,IEFVGM)
IEW0000     INCLUDE CI505(IEFHAFAK)
IEW0000     INCLUDE CI535(IEFVHR)
IEW0000     ALIAS IEFVHM
IEW0000     ENTRY IEFVHM
IEW0000     NAME IEFMVTHM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVHQ        00     2E4
  IEFVHM       2E8     385
  IEFVGM       670     6D0
  IEFVHA       D40      1A
  IEFVHR       D60     454



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2D8            IEFVHR          IEFVHR                       600            IEFVHA          IEFVHA
      604            IEFVGM          IEFVGM                       B80            IEFVHQ          IEFVHQ

 ENTRY ADDRESS      2E8
 TOTAL LENGTH      11B8

****IEFMVTHM  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFVHM    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVINA,IEFVINB,IEFVINC,IEFVINE)
IEW0000     INCLUDE CI505(IEZNCODE,IEFVGM)
IEW0000     CHANGE IEFQMSSS(IEFVHQ)
IEW0000     INCLUDE CI505(IEFVHQ)
IEW0000     INCLUDE CI535(IEFVHR)
IEW0000     ENTRY IEFVINA
IEW0000     NAME IEFVINA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVINA       00     5C2
  IEFVINB      5C8      4E
  IEFVINC      618     100
  IEFVINE      718     1CA
  IEZNCODE     8E8      F2
  IEFVGM       9E0     6D0
  IEFVHQ      10B0     2E4
  IEFVHR      1398     454



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      550            IEFVINB         IEFVINB                      554            IEFVINC         IEFVINC
      558            IEFVINE         IEFVINE                      55C            IEFVHQ          IEFVHQ
      560            IEFVGM          IEFVGM                       564            IEZNCODE        IEZNCODE
      710            IEFVHQ          IEFVHQ                       EF0            IEFVHQ          IEFVHQ
     1388            IEFVHR          IEFVHR
 ENTRY ADDRESS       00
 TOTAL LENGTH      17F0

****IEFVINA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEZDCODE)
IEW0000     NAME IEZDCODE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEZDCODE      00      D8


 ENTRY ADDRESS       00
 TOTAL LENGTH        D8

****IEZDCODE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI535(IEFSD162,IEFSD103,IEF064SD)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ,IEFQMRAW,IEFSD514)
IEW0000     INCLUDE CI535(IEFSD110,IEFSD111,IEFSD112)
IEW0000     INCLUDE CI535(IEF061SD)
IEW0000     ALIAS IEFV4221
IEW0000     ENTRY IEFSD062
IEW0000     NAME IEFSD062(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD062      00     D00
                                        IEFV4221     26A
  IEFSD103     D00     310
  IEFSD064    1010      16
  IEFQASGN    1028     56A
  IEFQASNM    1598      7E
  IEFQMRAW    1618     1D4
  IEFQMWTO    17F0      42
  IEFSD514    1838     354
  IEFSD110    1B90     248
  IEFSD111    1DD8     268
  CHFILRDW    2040     36C
  IEFSD112    23B0     130
  IEFSD061    24E0      16



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      C14            IEFQMRAW        IEFQMRAW                     C50            IEFSD103        IEFSD103
      C54            IEFSD064        IEFSD064                     C58            IEFSD110        IEFSD110
      C5C            IEFSD514        IEFSD514                     C60            IEFSD112        IEFSD112
      C64            IEFSD061        IEFSD061                     FF8            IEFSD514        IEFSD514
      FFC            IEFQMRAW        IEFQMRAW                    153C            IEFQASNM        IEFQASNM
     155C            IEFSD111        IEFSD111                    17D8            IEFSD111        IEFSD111
     17D4            IEFQMWTO        IEFQMWTO                    1B84            IEFQMRAW        IEFQMRAW
     1B88            IEFQASGN        IEFQASGN                    203C            CHFILRDW        CHFILRDW
     24DC            CHFILRDW        CHFILRDW
 ENTRY ADDRESS       00
 TOTAL LENGTH      24F8

****IEFSD062  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFV4221  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI535(IEFSD161,IEFSD164,IEFSD166)
IEW0000     INCLUDE CI535(IEFDSTBL,IEFDSLST,IEFDSTRT)
IEW0000     INCLUDE CI505(IEFSMFLK,IEFACTRT,IEFUJI,IEFUSI)
IEW0000     INCLUDE CI505(IEFSMFWI,IEFSMFIE)
IEW0000     INCLUDE CI535(IEFSD101,IEFSD104)
IEW0000     INCLUDE CI505(IEFSDPPT)
IEW0000     INCLUDE CI505(IEFIDMPM,IEFSD42Q,IEFIDUMP)
IEW0000     INCLUDE CI505(IEFYNIMP,IEFYPJB3,IEFVJIMP,IEFZGST1)
IEW0000     INCLUDE CI505(IEFZGST2)
IEW0000     INCLUDE CI505(IEFSD22Q,IEFZGMSG,IEFZHMSG)
IEW0000     INCLUDE CI505(IEFWTERM,IEFSD31Q)
IEW0000     INCLUDE CI505(IEFSD32Q)
IEW0000     INCLUDE CI535(IEF060SD)
IEW0000     INCLUDE CI505(IEFYTVMS,IEFQMLK1,IEFYSVMS)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ)
IEW0000     INCLUDE CI505(IEFQMRAW,IEFQMNQQ,IEFQMDQQ,IEFQDELQ)
IEW0000     INCLUDE CI505(IEFQMUNQ,IEFVJMSG,IEFYNMSG,IEFYPMSG)
IEW0000     INCLUDE CI535(IEFSD110,IEFSD111,IEFSD112)
IEW0000     INCLUDE CI505(IEFZAJB3,IEFZGJB1)
IEW0000     INCLUDE CI505(IEFRPREP)
IEW0000     INCLUDE CI505(IEFSD514)
IEW0000     CHANGE IEFSD598(IEFSD061),IEFSD510(IEFSD061)
IEW0000     INCLUDE CI505(IEFSD168)
IEW0000     INCLUDE CI505(IEFVSDRA)
IEW0000     INCLUDE SYSPUNCH(IEFYRCDS)
IEW0000     ALIAS IEFSD064
IEW0000     ALIAS IEFW42SD
IEW0000     ALIAS IEFSD104
IEW0000     ENTRY IEFSD061
IEW0000     NAME IEFSD061(R)
****IEFSD061  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFSD104  IS AN ALIAS FOR THIS MEMBER
****IEFW42SD  IS AN ALIAS FOR THIS MEMBER
****IEFSD064  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REUSABLE, AND REFRESHABLE.


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD061      00     A20
  QMTMSG       A20      2D
  IEFDSOSL     A50     1D1
  IEFSD064     C28     504
  IEFSD066    1130     2CE
  IEFDSTBL    1400     2B8
  IEFDSLST    16B8     194
  IEFDSTRT    1850     1FF
  IEFACTLK    1A50     468
  IEFACTRT    1EB8       2

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFUJI      1EC0       4
  IEFUSI      1EC8       4
  IEFSMFWI    1ED0     69A
  IEFSMFIE    2570     2EA
  IEFSD101    2860     388
  IEFSD104    2BE8     1E0
  IEFSDPPT    2DC8      33
  IEFIDMPM    2E00     219
  IEFW42SD    3020     18C
  IEFIDUMP    31B0     4A8
  IEFYN       3658     6FB
  WTERM020    3D58      3D
  IEFYP       3D98     4AF
  IEFVJ       4248     190
  WTERM030    43D8      4B
  IEFZG       4428     B9E
                                        ZGOJ5       46F2    ZGOJ8       4718
  IEFZG2      4FC8     96A
                                        ZGOK09      4FC8    ZOOA1       53B0    ZOOE10      55E0    ZPOC10      56F6
                                        ZPOQMGR1    57D4
  IEFW22SD    5938      E0
  IEFZGMSG    5A18     16D
  IEFZH       5B88     FBA
                                        ZGOE60      5BEC    ZKOD1       5F3C    ZKOE1       63FC    XPS631      6908
  IEFWTERM    6B48      A7
                                        WTERM050    6B7C    WTERMFOR    6BBC
  IEFW31SD    6BF0     C74
  IEFW32SD    7868      16
  IEFSD060    7880      16
  IEFYT       7898     422
  IEFQMSSS    7CC0      1C
  IEFYS       7CE0     17C
  IEFQASGN    7E60     56A
  IEFQASNM    83D0      7E
  IEFQMRAW    8450     1D4
  IEFQMWTO    8628      42
  IEFQMNQ2    8670     3D6
  IEFQMDQ2    8A48     522
  IEFQDELE    8F70     292
  IEFQMUNC    9208     2A0
  IEFVJMSG    94A8      36
  IEFYNMSG    94E0      50
                                        STRMSG01    94E0    STRMSG02    9502
  IEFYPMSG    9530      B7
                                        YPPMSG3     9530    YPPMSG4     9566    YPPMSG7     9589    YPPMSG8     95BF
  IEFSD110    95E8     248
  IEFSD111    9830     268
  CHFILRDW    9A98     36C
  IEFSD112    9E08     130
  IEFZA       9F38     15E
  IEFZGJ      A098     C9E
                                        ZPOQM       ABC0

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFRPREP    AD38     3E8
  IEFSD514    B120     354
  IEFSD068    B478     460
  IEFVSDRA    B8D8     218
  IEFYRCDS    BAF0      64



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      8BC            IEFDSTBL        IEFDSTBL                     8C0            IEFDSLST        IEFDSLST
      964            IEFSD060        IEFSD060                     968            IEFSD101        IEFSD101
      96C            IEFQMRAW        IEFQMRAW                     970            IEFQMDQ2        IEFQMDQ2
      974            IEFDSOSL        IEFDSOSL                     9D4            IEFQMUNC        IEFQMUNC
      A1C            QMTMSG          QMTMSG                      10F4            IEFQMRAW        IEFQMRAW
     10F8            IEFSD068        IEFSD068                    10FC            IEFSD066        IEFSD066
     1100            IEFSD101        IEFSD101                    1104            IEFW42SD        IEFW42SD
     1108            IEFSD110        IEFSD110                    1148            IEFQMRAW        IEFQMRAW
     13D8            IEFQDELE        IEFQDELE                    13DC            IEFSD061        IEFSD061
     16B4            IEFDSTRT        IEFDSTRT                    1EAC            IEFACTRT        IEFACTRT
     1EB0            IEFQMSSS        IEFQMSSS                    1EB4            IEFSMFWI        IEFSMFWI
     24D8            IEFYS           IEFYS                       2838            IEFQMRAW        IEFQMRAW
     283C            IEFUJI          IEFUJI                      2840            IEFUSI          IEFUSI
     2BDC            IEFSD112        IEFSD112                    2BE0            IEFSMFIE        IEFSMFIE
     2BE4            IEFSDPPT        IEFSDPPT                    2DC0            IEFSD064        IEFSD064
     2DC4            IEFSD514        IEFSD514                    319C            IEFQMRAW        IEFQMRAW
     31A0            IEFYN           IEFYN                       31A4            IEFIDUMP        IEFIDUMP
     35F4            IEFYN           IEFYN                       3628            IEFIDMPM        IEFIDMPM
     362C            IEFYS           IEFYS                       3CB0            STRMSG01        IEFYNMSG
     3CB4            STRMSG02        IEFYNMSG                    3CB8            IEFYS           IEFYS
     3CBC            IEFACTLK        IEFACTLK                    3CC0            IEFW22SD        IEFW22SD
     3CC4            IEFYP           IEFYP                       3CC8            IEFZA           IEFZA
     3CCC            IEFRPREP        IEFRPREP                    3CD0            IEFVJ           IEFVJ
     3CD4            WTERM020        WTERM020                    4204            IEFQMSSS        IEFQMSSS
     4208            IEFZG           IEFZG                       420C            IEFYS           IEFYS
     4210            YPPMSG3         IEFYPMSG                    4214            YPPMSG4         IEFYPMSG
     4218            YPPMSG7         IEFYPMSG                    421C            YPPMSG8         IEFYPMSG
     43B4            WTERM030        WTERM030                    43B8            IEFVJMSG        IEFVJMSG
     43BC            IEFYS           IEFYS                       43C0            IEFW22SD        IEFW22SD
     43C8            IEFW22SD        IEFW22SD                    43C4            IEFACTLK        IEFACTLK
     4F4C            IEFYT           IEFYT                       4F50            ZPOQMGR1        IEFZG2
     4F54            ZGOK09          IEFZG2                      4F58            ZPOC10          IEFZG2
     4F5C            ZOOA1           IEFZG2                      4F60            ZOOE10          IEFZG2
     4F64            IEFQMSSS        IEFQMSSS                    4F68            IEFZGMSG        IEFZGMSG
     4F6C            IEFZH           IEFZH                       4F70            ZGOE60          IEFZH
     5900            IEFQMSSS        IEFQMSSS                    5904            IEFZH           IEFZH
     5908            ZGOJ5           IEFZG                       590C            ZKOE1           IEFZH
     5910            ZGOJ8           IEFZG                       5A14            IEFQMRAW        IEFQMRAW
     6A58            IEFYS           IEFYS                       6A5C            IEFZGMSG        IEFZGMSG
     6A60            ZPOQMGR1        IEFZG2                      777C            IEFQMRAW        IEFQMRAW
     7780            IEFYS           IEFYS                       7784            WTERM050        IEFWTERM
     7788            WTERMFOR        IEFWTERM                    778C            IEFQMNQ2        IEFQMNQ2

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     7790            IEFWTERM        IEFWTERM                    7798            IEFW32SD        IEFW32SD
     779C            IEFQDELE        IEFQDELE                    7C70            IEFQMRAW        IEFQMRAW
     7CD4            IEFQMRAW        IEFQMRAW                    7CD8            IEFQASGN        IEFQASGN
     7E40            IEFQASGN        IEFQASGN                    7E44            IEFQMRAW        IEFQMRAW
     8374            IEFQASNM        IEFQASNM                    8394            IEFSD111        IEFSD111
     8610            IEFSD111        IEFSD111                    860C            IEFQMWTO        IEFQMWTO
     8A10            IEFSD111        IEFSD111                    8A14            IEFSD112        IEFSD112
     8EEC            IEFSD111        IEFSD111                    8EF0            IEFSD110        IEFSD110
     91E4            IEFSD112        IEFSD112                    943C            IEFQMWTO        IEFQMWTO
     9A94            CHFILRDW        CHFILRDW                    9F34            CHFILRDW        CHFILRDW
     A07C            IEFQMSSS        IEFQMSSS                    A080            IEFZGJ          IEFZGJ
     A084            IEFW31SD        IEFW31SD                    A088            IEFACTLK        IEFACTLK
     ACBC            IEFYS           IEFYS                       ACC0            IEFQMSSS        IEFQMSSS
     ACC4            IEFZGMSG        IEFZGMSG                    ACC8            IEFZH           IEFZH
     ACCC            ZGOE60          IEFZH                       ACD0            ZKOE1           IEFZH
     ACD4            XPS631          IEFZH                       B0FC            IEFQMSSS        IEFQMSSS
     B100            IEFYRCDS        IEFYRCDS                    B46C            IEFQMRAW        IEFQMRAW
     B470            IEFQASGN        IEFQASGN                    B89C            IEFSD061        IEFSD061
     B8A0            IEFQMRAW        IEFQMRAW                    B8A4            IEFQMNQ2        IEFQMNQ2
     B8A8            IEFVSDRA        IEFVSDRA                    B8AC            IEFSD061        IEFSD061
     B8B0            IEFSD061        IEFSD061
 ENTRY ADDRESS       00
 TOTAL LENGTH      BB58





IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK69.R0000235      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK69.S0000236      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK69.S0000236      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG72    / START 78240.1946
IEF374I STEP /SG72    / STOP  78240.1946 CPU   0MIN 00.79SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:12.78   ALLOC START    19:46:12.78   MAIN REGION ----- 256K                          *
*   STEP NAME SG72       STEP END TIME  19:46:13.74   PGM START TIME 19:46:12.86   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.96   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.79   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ----------- 42       0353 ---------- 112       0150 ---------- 198       0250 ---------- 756       0250 ---------- 205    *
*   0250 ------------ 0       0151 ------------ 5       0130 ----------- 99                                                        *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK69  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:13.77   ALLOC START    19:46:13.78   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:13.80   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK69 / START 78240.1946
IEF376I  JOB /R21LK69 / STOP  78240.1946 CPU   0MIN 00.79SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK69    JOB READ TIME 19:45:10.90   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.79   *
*   JOB CLASS A          JOB INIT TIME 19:46:12.78   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.04   *
*   ACCOUNT              JOB END TIME  19:46:13.82   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  777777777    00000                              A
            RRRRRRRRR  222222222      11     LL         KK    KK   777777777   0000000                            AAA
            RR     RR  22     22     111     LL         KK   KK    77     77  00     00                          AA AA
            RR     RR        22       11     LL         KK  KK           77   00    000                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK           77    00   0 00                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK          77     00  0  00                        AA     AA
            RR  RR        22          11     LL         KKK KK        77      00 0   00                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK       77      000    00                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      77       0000000                         AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK     77        00000                          AA     AA

***********A  START   R21LK70    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK70    START  A***********
***********A  START   R21LK70    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK70    START  A***********
***********A  START   R21LK70    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK70    START  A***********
***********A  START   R21LK70    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK70    START  A***********
***********A  START   R21LK70    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK70    START  A***********


//R21LK70 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG73 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET,REFR'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//CI535 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI535
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK70  SG73
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO CI535
IEF237I 250   ALLOCATED TO CI555
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE CI505(IEFSD055,IEFORMAT,IEF300SD,IEF304SD)
IEW0000     INCLUDE CI505(IEFSD311)
IEW0000     INCLUDE SYSPUNCH(IEFQMSGV)
IEW0000     ENTRY IEFSD055
IEW0000     NAME IEFSQINT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD055      00     608
  IEFORMAT     608     588
  IEFSD300     B90      1E
  IEFSD304     BB0      1E
  IEFSD311     BD0      91
                                        SD55MSG1     BD0    SD55MSG2     C08    SD55MSG3     C30
  IEFQMSGV     C68       A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2FC            SD55MSG1        IEFSD311                     300            SD55MSG2        IEFSD311
      304            SD55MSG3        IEFSD311                     474            IEFSD300        IEFSD300
      478            IEFSD304        IEFSD304                     47C            IEFQMSGV        IEFQMSGV
      4C0            IEFORMAT        IEFORMAT
 ENTRY ADDRESS       00
 TOTAL LENGTH       C78

****IEFSQINT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSD312)
IEW0000     INCLUDE CI505(IEFSD300,IEFSD301,IEFSD302)
IEW0000     INCLUDE CI505(IEFSD303,IEFSD310)
IEW0000     ENTRY IEFSD300
IEW0000     NAME IEFSD300(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD312      00     214
                                        SD304MG1      00    SD304MG2      24    SD305MG1      60    SD304MG3      A4
                                        SD306MG1      E0    SD307MG1     144    SD307MG2     184    SD308MG1     1D0
  IEFSD300     218     5A8
  IEFSD306     7C0     320
  IEFSD301     AE0     5A2
  IEFSD302    1088     4D4
  IEFSD303    1560     224
  IEFSD310    1788     198



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      69C            IEFSD301        IEFSD301                     6A0            IEFSD306        IEFSD306
      6A4            IEFSD310        IEFSD310                     768            SD304MG3        IEFSD312
      A58            IEFSD310        IEFSD310                     A5C            SD306MG1        IEFSD312
      A60            SD308MG1        IEFSD312                    1054            IEFSD310        IEFSD310
     1058            IEFSD302        IEFSD302                    105C            SD304MG3        IEFSD312
     1060            IEFSD306        IEFSD306                    1534            IEFSD303        IEFSD303
     1538            IEFSD310        IEFSD310                    153C            SD304MG3        IEFSD312
     1540            IEFSD306        IEFSD306                    1760            IEFSD310        IEFSD310
     1764            SD304MG3        IEFSD312                    1780            IEFSD306        IEFSD306

 ENTRY ADDRESS      218
 TOTAL LENGTH      1920

****IEFSD300  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSD304,IEFSD305)
IEW0000     INCLUDE CI505(IEFSD310,IEFSD312)
IEW0000     CHANGE IEFSD111(IEFQMNQ2),IEFSD112(IEFQMNQ2)
IEW0000     INCLUDE CI505(IEFQMNQQ)
IEW0000     CHANGE IEFSD112(IEFQDELE)
IEW0000     INCLUDE CI505(IEFQDELQ)
IEW0000     INCLUDE CI505(IEFVSDRD)
IEW0000     INCLUDE CI505(IEFVSDRA)
IEW0000     INCLUDE CI505(IEFSD514)
IEW0000     CHANGE IEFSD111(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQMRAW)
IEW0000     CHANGE IEFSD111(IEFQMRAW)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ)
IEW0000     ENTRY IEFSD305
IEW0000     NAME IEFSD304(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD304      00     41E
  IEFSD307     420     272
  IEFSD305     698     FD0
  IEFSD306    1668     378
  IEFSD310    19E0     198
  IEFSD312    1B78     214
                                        SD304MG1    1B78    SD304MG2    1B9C    SD305MG1    1BD8    SD304MG3    1C1C
                                        SD306MG1    1C58    SD307MG1    1CBC    SD307MG2    1CFC    SD308MG1    1D48
  IEFQMNQ2    1D90     3D6
  IEFQDELE    2168     292
  IEFVSDRD    2400     3A0
  IEFVSDRA    27A0     218
  IEFSD514    29B8     354
  IEFQMRAW    2D10     1D4
  IEFQMWTO    2EE8      42
  IEFQASGN    2F30     56A
  IEFQASNM    34A0      7E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      404            SD304MG2        IEFSD312                     63C            SD307MG1        IEFSD312
      640            SD307MG2        IEFSD312                     6F0            SD304MG1        IEFSD312
     15DC            SD305MG1        IEFSD312                    15E8            SD304MG3        IEFSD312
     15F4            IEFQMNQ2        IEFQMNQ2                    15F8            IEFSD310        IEFSD310
     15FC            IEFQDELE        IEFQDELE                    1600            IEFVSDRA        IEFVSDRA
     1604            IEFVSDRD        IEFVSDRD                    1608            IEFSD304        IEFSD304
     160C            IEFSD306        IEFSD306                    1610            IEFSD307        IEFSD307
     1958            IEFSD310        IEFSD310                    195C            SD306MG1        IEFSD312

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1960            SD308MG1        IEFSD312                    2790            IEFSD514        IEFSD514
     2D04            IEFQMRAW        IEFQMRAW                    2D08            IEFQASGN        IEFQASGN
     2ECC            IEFQMWTO        IEFQMWTO                    3444            IEFQASNM        IEFQASNM
     3464            IEFQMRAW        IEFQMRAW
 ENTRY ADDRESS      698
 TOTAL LENGTH      3520

****IEFSD304  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSD308)
IEW0000     NAME IEFSD308(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD308      00     3F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F0

****IEFSD308  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEEVSTAR,IEEVJCL)
IEW0000     ENTRY IEEVSTAR
IEW0000     NAME IEEVSTAR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVSTAR      00     E24
  IEEVJCL      E28     1A8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      B28            IEEVJCL         IEEVJCL
 ENTRY ADDRESS       00
 TOTAL LENGTH       FD0

****IEEVSTAR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEEPRWI2)
IEW0000     NAME IEEPRWI2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEPRWI2      00     2E2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       2E8

****IEEPRWI2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEEVMNT1)
IEW0000     INCLUDE CI505(IEEVJCL)
IEW0000     ENTRY IEEVMNT1
IEW0000     NAME IEEVMNT1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVMNT1      00     4CA
  IEEVJCL      4D0     1A8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      3D4            IEEVJCL         IEEVJCL
 ENTRY ADDRESS       00
 TOTAL LENGTH       678

****IEEVMNT1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEEVMNT2)
IEW0000     INCLUDE CI505(IEEVSMSG)
IEW0000     ENTRY IEEVMNT2
IEW0000     NAME IEEVMNT2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVMNT2      00     266
  IEEVSMSG     268     347



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      1A4            IEEVSMSG        IEEVSMSG
 ENTRY ADDRESS       00
 TOTAL LENGTH       5B0

****IEEVMNT2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEEVRCTL)
IEW0000     NAME IEEVRCTL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVRCTL      00     6D5



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       6D8

****IEEVRCTL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEEVRC)
IEW0000     INCLUDE CI505(IEEVSMSG,IEFCNVRT,IEFRDWRT)
IEW0000     INCLUDE CI535(IEEVICTL)
IEW0000     ALIAS IEEVIC
IEW0000     ENTRY IEEVRC
IEW0000     NAME IEEVRC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVRC        00     4B8
  IEEVSMSG     4B8     347
  IEFCNVRT     800      FC
                                        CNVRT        800
  IEFRDWRT     900      AE
                                        RD           900    WRT          902
  IEEVICTL     9B0     3D4
                                        IEEVIC       B5A    IEEVICER     BAC


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      49C            IEFCNVRT        IEFCNVRT                     4A0            WRT             IEFRDWRT
      4A8            IEEVICER        IEEVICTL                     4AC            IEEVICTL        IEEVICTL
      D34            IEEVSMSG        IEEVSMSG
 ENTRY ADDRESS       00
 TOTAL LENGTH       D88

****IEEVRC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEEVIC    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEEVOMSG)
IEW0000     NAME IEEVOMSG(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVOMSG      00     1DC


 ENTRY ADDRESS       00
 TOTAL LENGTH       1E0

****IEEVOMSG  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVINB)
IEW0000     NAME IEFVINB(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVINB       00      4E


 ENTRY ADDRESS       00
 TOTAL LENGTH        50

****IEFVINB   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEZNCODE)
IEW0000     NAME IEZNCODE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEZNCODE      00      F2


 ENTRY ADDRESS       00
 TOTAL LENGTH        F8

****IEZNCODE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEFVMA)
IEW0000     ENTRY IEFVMA
IEW0000     NAME IEFVMA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVMA        00     5FB



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       600

****IEFVMA    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEFVMB)
IEW0000     CHANGE IEFSD110(IEFQAGST)
IEW0000     INCLUDE CI505(IEFQAGST)
IEW0000     CHANGE IEFSD111(IEFQASGN)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ)
IEW0000     CHANGE IEFSD111(IEFQMNQ2),IEFSD112(IEFQMNQ2)
IEW0000     INCLUDE CI505(IEFQMNQQ)
IEW0000     INCLUDE CI505(IEZNCODE)
IEW0000     CHANGE IEFSD111(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQMRAW)
IEW0000     ENTRY IEFVMB
IEW0000     NAME IEFVMB(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVMB        00    1110
  IEFVMBA     1110     140
  IEFQAGST    1250     118
  IEFQASGN    1368     56A
  IEFQASNM    18D8      7E
  IEFQMNQ2    1958     3D6
  IEZNCODE    1D30      F2
  IEFQMRAW    1E28     1D4
  IEFQMWTO    2000      42



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     108C            IEFVMBA         IEFVMBA                     1090            IEFQASGN        IEFQASGN
     1094            IEFQMNQ2        IEFQMNQ2                    1098            IEFQAGST        IEFQAGST
     109C            IEZNCODE        IEZNCODE                    10A0            IEFQMRAW        IEFQMRAW
     187C            IEFQASNM        IEFQASNM                    1FE4            IEFQMWTO        IEFQMWTO

 ENTRY ADDRESS       00
 TOTAL LENGTH      2048

****IEFVMB    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEFVMBC)
IEW0000     ENTRY IEFVMBC
IEW0000     NAME IEFVMBC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVMBC       00     622


 ENTRY ADDRESS       00
 TOTAL LENGTH       628

****IEFVMBC   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEFVMC)
IEW0000     ENTRY IEFVMC
IEW0000     NAME IEFVMC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVMC        00     293



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       298

****IEFVMC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEFVMD)
IEW0000     CHANGE IEFSD112(IEFQDELE)
IEW0000     INCLUDE CI505(IEFQDELQ)
IEW0000     ENTRY IEFVMD
IEW0000     NAME IEFVMD(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVMD        00     648
  IEFQDELE     648     292



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      62C            IEFQDELE        IEFQDELE
 ENTRY ADDRESS       00
 TOTAL LENGTH       8E0

****IEFVMD    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEFVME)
IEW0000     ENTRY IEFVME
IEW0000     NAME IEFVME(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVME        00      DE



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        E0

****IEFVME    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEFVMF)
IEW0000     INCLUDE CI535(IEFVMG)
IEW0000     INCLUDE CI535(IEFVMH)
IEW0000     INCLUDE CI535(IEFSD110)
IEW0000     INCLUDE CI535(IEFSD111)
IEW0000     INCLUDE CI535(IEFSD112)
IEW0000     INCLUDE CI505(IEFQBVMS)
IEW0000     INCLUDE CI505(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQMNQQ)
IEW0000     INCLUDE CI505(IEFQAGST)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ)
IEW0000     INCLUDE CI505(IEFQMDQQ)
IEW0000     INCLUDE CI505(IEFQDELQ)
IEW0000     INCLUDE CI505(IEFQMUNQ)
IEW0000     INCLUDE CI505(IEZDCODE)
IEW0000     ENTRY IEFVMF
IEW0000     NAME IEFVMF(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVMF        00     4C6
  IEFVMG       4C8     144
  IEFVMH       610      40
  IEFSD110     650     248
  IEFSD111     898     268
  CHFILRDW     B00     36C
  IEFSD112     E70     130
  IEFQMSSS     FA0      78
  IEFQMRAW    1018     1D4
  IEFQMWTO    11F0      42
  IEFQMNQ2    1238     3D6
  IEFQAGST    1610     118
  IEFQASGN    1728     56A
  IEFQASNM    1C98      7E
  IEFQMDQ2    1D18     522
  IEFQDELE    2240     292
  IEFQMUNC    24D8     2A0
  IEZDCODE    2778      D8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      498            IEFQMSSS        IEFQMSSS                     49C            IEFQMDQ2        IEFQMDQ2
      4A0            IEFQDELE        IEFQDELE                     4A4            IEFQMUNC        IEFQMUNC
      4A8            IEFVMH          IEFVMH                       4AC            IEFVMG          IEFVMG
      608            IEZDCODE        IEZDCODE                     AFC            CHFILRDW        CHFILRDW
      F9C            CHFILRDW        CHFILRDW                     FF4            IEFQAGST        IEFQAGST

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      FF8            IEFQASGN        IEFQASGN                     FFC            IEFQMRAW        IEFQMRAW
     1000            IEFQMRAW        IEFQMRAW                    1004            IEFQMRAW        IEFQMRAW
     1008            IEFQMNQ2        IEFQMNQ2                    11D8            IEFSD111        IEFSD111
     11D4            IEFQMWTO        IEFQMWTO                    15D8            IEFSD111        IEFSD111
     15DC            IEFSD112        IEFSD112                    1724            IEFSD110        IEFSD110
     1C3C            IEFQASNM        IEFQASNM                    1C5C            IEFSD111        IEFSD111
     21BC            IEFSD111        IEFSD111                    21C0            IEFSD110        IEFSD110
     24B4            IEFSD112        IEFSD112                    270C            IEFQMWTO        IEFQMWTO

 ENTRY ADDRESS       00
 TOTAL LENGTH      2850

****IEFVMF    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEEVICLR)
IEW0000     ALIAS IEFICR
IEW0000     NAME IEEVICLR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVICLR      00      26


 ENTRY ADDRESS       00
 TOTAL LENGTH        28

****IEEVICLR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFICR    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEEVLDSP)
IEW0000     NAME IEEVLDSP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVLDSP      00     39C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3A0

****IEEVLDSP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEEVLOUT)
IEW0000     NAME IEEVLOUT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVLOUT      00     107


 ENTRY ADDRESS       00
 TOTAL LENGTH       108

****IEEVLOUT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEEVLIN1)
IEW0000     INCLUDE CI505(IEEVRFRX)
IEW0000     ENTRY IEEVLIN
IEW0000     NAME IEEVLIN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVLIN1      00     3FC
                                        IEEVLIN       00
  IEEVRFRX     400     196



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      260            IEEVRFRX        IEEVRFRX
 ENTRY ADDRESS       00
 TOTAL LENGTH       598

****IEEVLIN   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEELOG01)
IEW0000     NAME IEEVLIN2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEELOG01      00     6DB



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       6E0

****IEEVLIN2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEEVLIN3)
IEW0000     NAME IEEVLIN3(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVLIN3      00      72



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        78

****IEEVLIN3  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI535(IEEPPRES)
IEW0000     ENTRY IEEPPRES
IEW0000     NAME IEEPPRES(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEPPRES      00      64



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        68

****IEEPPRES  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEFRCLN1)
IEW0000     NAME IEFRCLN1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFRCLN1      00      6C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        70

****IEFRCLN1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEFRCLN2)
IEW0000     NAME IEFRCLN2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFRCLN2      00      6C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        70

****IEFRCLN2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVRRC)
IEW0000     INCLUDE CI505(IEFSD514)
IEW0000     CHANGE IEFSD111(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQMRAW)
IEW0000     CHANGE IEFSD111(IEFQASGN)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ)
IEW0000     ALIAS IEFVRRCA,IEFVRRCB
IEW0000     ENTRY IEFVRRC
IEW0000     NAME IEFVRRC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVRRC       00     650
                                        IEFVRRCA     2A6    IEFVRRCB     336
  IEFSD514     650     354
  IEFQMRAW     9A8     1D4
  IEFQMWTO     B80      42
  IEFQASGN     BC8     56A
  IEFQASNM    1138      7E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      600            IEFSD514        IEFSD514                     99C            IEFQMRAW        IEFQMRAW
      9A0            IEFQASGN        IEFQASGN                     B64            IEFQMWTO        IEFQMWTO
     10DC            IEFQASNM        IEFQASNM
 ENTRY ADDRESS       00
 TOTAL LENGTH      11B8

****IEFVRRC   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFVRRCB  IS AN ALIAS FOR THIS MEMBER
****IEFVRRCA  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVRR1)
IEW0000     INCLUDE CI505(IEFLOCDQ,IEFCNVRT,IEFRDWRT)
IEW0000     ENTRY IEFVRR1
IEW0000     NAME IEFVRR1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVRR1       00     1A2
  IEFLOCDQ     1A8     508
                                        LOCDQ        1B8    LOCCAN       1BA    LOC          1BC
  IEFCNVRT     6B0      FC
                                        CNVRT        6B0
  IEFRDWRT     7B0      AE
                                        RD           7B0    WRT          7B2


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      178            LOCDQ           IEFLOCDQ                     17C            CNVRT           IEFCNVRT
      180            RD              IEFRDWRT                     648            CNVRT           IEFCNVRT
      64C            RD              IEFRDWRT                     650            WRT             IEFRDWRT

 ENTRY ADDRESS       00
 TOTAL LENGTH       860

****IEFVRR1   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVRR2)
IEW0000     ENTRY IEFVRR2
IEW0000     ALIAS IEFVR2AE
IEW0000     NAME IEFVRR2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVRR2       00     AB7
                                        IEFVR2AE      1C

 ENTRY ADDRESS       00
 TOTAL LENGTH       AB8

****IEFVRR2   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFVR2AE  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVRR3)
IEW0000     INCLUDE CI505(IEFQDELQ)
IEW0000     INCLUDE CI535(IEFSD112)
IEW0000     ENTRY IEFVRR3
IEW0000     ALIAS IEFVR3AE
IEW0000     NAME IEFVRR3(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVRR3       00     5B2
                                        IEFVR3AE      1C
  IEFQDELE     5B8     292
  IEFSD112     850     130
  CHFILRDW     980     36C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      514            IEFQDELE        IEFQDELE                     82C            IEFSD112        IEFSD112
      97C            CHFILRDW        CHFILRDW
 ENTRY ADDRESS       00
 TOTAL LENGTH       CF0

****IEFVRR3   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFVR3AE  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK70.R0000237      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK70.S0000238      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK70.S0000238      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG73    / START 78240.1946
IEF374I STEP /SG73    / STOP  78240.1946 CPU   0MIN 00.94SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:13.84   ALLOC START    19:46:13.85   MAIN REGION ----- 256K                          *
*   STEP NAME SG73       STEP END TIME  19:46:15.13   PGM START TIME 19:46:14.05   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:01.29   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.94   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0159 ---------- 161       0150 ---------- 243       0250 ---------- 467       0250 ---------- 155    *
*   0250 ------------ 0       0151 ------------ 4       0130 ---------- 150                                                        *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK70  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:15.16   ALLOC START    19:46:15.17   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:15.19   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK70 / START 78240.1946
IEF376I  JOB /R21LK70 / STOP  78240.1946 CPU   0MIN 00.94SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK70    JOB READ TIME 19:45:11.37   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.94   *
*   JOB CLASS A          JOB INIT TIME 19:46:13.84   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.37   *
*   ACCOUNT              JOB END TIME  19:46:15.21   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  777777777       1                               A
            RRRRRRRRR  222222222      11     LL         KK    KK   777777777      11                              AAA
            RR     RR  22     22     111     LL         KK   KK    77     77     111                             AA AA
            RR     RR        22       11     LL         KK  KK           77       11                            AA   AA
            RRRRRRRRR       22        11     LL         KK KK           77        11                           AA     AA
            RRRRRRRR       22         11     LL         KKKKK          77         11                           AA     AA
            RR  RR        22          11     LL         KKK KK        77          11                           AAAAAAAAA
            RR   RR      22           11     LL         KK   KK       77          11                           AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      77        111111                         AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK     77        111111                         AA     AA

***********A  START   R21LK71    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK71    START  A***********
***********A  START   R21LK71    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK71    START  A***********
***********A  START   R21LK71    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK71    START  A***********
***********A  START   R21LK71    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK71    START  A***********
***********A  START   R21LK71    SYS SYSA   WTR 00E   07:47:30 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK71    START  A***********


//R21LK71 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG74 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//CI535 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI535
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK71  SG74
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO CI535
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE CI505(IEESD562)
IEW0000     ENTRY IEESD562
IEW0000     ALIAS IEESD562
IEW0000     NAME IEEVDNX1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESD562      00     592



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       598

****IEEVDNX1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEESD562  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESD563)
IEW0000     ENTRY IEESD563
IEW0000     NAME IEESD563(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESD563      00     694



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       698

****IEESD563  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESD564)
IEW0000     ENTRY IEESD564
IEW0000     NAME IEESD564(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESD564      00     699



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       6A0

****IEESD564  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESD584)
IEW0000     NAME IEESD584(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESD584      00     1E7



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       1E8

****IEESD584  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESD565)
IEW0000     ENTRY IEESD565
IEW0000     NAME IEESD565(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESD565      00     325



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       328

****IEESD565  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESD575,IEESD581)
IEW0000     ENTRY IEESD575
IEW0000     ALIAS IEESD581
IEW0000     NAME IEESD575(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESD575      00     5DE
  IEESD581     5E0     25C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       840

****IEESD575  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEESD581  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     CHANGE IEFSD112(IEESD576)
IEW0000     INCLUDE CI505(IEFQDELQ,IEESD576,IEESD580)
IEW0000     ENTRY IEESD576
IEW0000     ALIAS IEESD580
IEW0000     NAME IEESD576(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQDELE      00     292
  IEESD576     298     408
  IEESD580     6A0     198



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      274            IEESD576        IEESD576                     630            IEFQDELE        IEFQDELE

 ENTRY ADDRESS      298
 TOTAL LENGTH       838

****IEESD576  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEESD580  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESD577)
IEW0000     CHANGE IEFSD111(IEFQMNQ2),IEFSD112(IEFQMNQ2)
IEW0000     INCLUDE CI505(IEFQMNQQ)
IEW0000     ENTRY IEESD577
IEW0000     NAME IEESD577(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESD577      00     210
  IEFQMNQ2     210     3D6



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      20C            IEFQMNQ2        IEFQMNQ2
 ENTRY ADDRESS       00
 TOTAL LENGTH       5E8

****IEESD577  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESD579)
IEW0000     CHANGE IEFSD111(IEFQMNQ2),IEFSD112(IEFQMNQ2)
IEW0000     INCLUDE CI505(IEFQMNQQ)
IEW0000     ENTRY IEESD579
IEW0000     NAME IEESD579(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESD579      00     19C
  IEEMSWTO     1A0      B5
  IEFQMNQ2     258     3D6



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      198            IEFQMNQ2        IEFQMNQ2                     194            IEEMSWTO        IEEMSWTO

 ENTRY ADDRESS       00
 TOTAL LENGTH       630

****IEESD579  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESD578)
IEW0000     ENTRY IEESD578
IEW0000     NAME IEESD578(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESD578      00     53E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       540

****IEESD578  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESD582)
IEW0000     ENTRY IEESD582
IEW0000     ALIAS IEESD82A
IEW0000     NAME IEESD582(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESD582      00     290
                                        IEESD82A     1BA


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       290

****IEESD582  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEESD82A  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEESD583)
IEW0000     ENTRY IEESD583
IEW0000     NAME IEESD583(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEESD583      00     3D2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3D8

****IEESD583  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE CI505(IEFBR14)
IEW0000     NAME IEFBR14(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFBR14       00       4


 ENTRY ADDRESS       00
 TOTAL LENGTH         8

****IEFBR14   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK71.R0000239      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK71.S0000240      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK71.S0000240      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG74    / START 78240.1946
IEF374I STEP /SG74    / STOP  78240.1946 CPU   0MIN 00.31SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:15.23   ALLOC START    19:46:15.24   MAIN REGION ----- 256K                          *
*   STEP NAME SG74       STEP END TIME  19:46:15.67   PGM START TIME 19:46:15.31   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.44   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.31   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 54       0150 ----------- 95       0250 ---------- 136       0250 ------------ 0    *
*   0151 ------------ 0       0130 ----------- 47                                                                                  *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK71  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:15.69   ALLOC START    19:46:15.70   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:15.72   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK71 / START 78240.1946
IEF376I  JOB /R21LK71 / STOP  78240.1946 CPU   0MIN 00.31SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK71    JOB READ TIME 19:45:12.02   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.31   *
*   JOB CLASS A          JOB INIT TIME 19:46:15.23   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.50   *
*   ACCOUNT              JOB END TIME  19:46:15.73   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  777777777   2222222                             A
            RRRRRRRRR  222222222      11     LL         KK    KK   777777777  222222222                           AAA
            RR     RR  22     22     111     LL         KK   KK    77     77  22     22                          AA AA
            RR     RR        22       11     LL         KK  KK           77         22                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK           77         22                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK          77         22                           AA     AA
            RR  RR        22          11     LL         KKK KK        77         22                            AAAAAAAAA
            RR   RR      22           11     LL         KK   KK       77        22                             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      77       22222222                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK     77      222222222                        AA     AA

***********A  START   R21LK72    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK72    START  A***********
***********A  START   R21LK72    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK72    START  A***********
***********A  START   R21LK72    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK72    START  A***********
***********A  START   R21LK72    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK72    START  A***********
***********A  START   R21LK72    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK72    START  A***********


//R21LK72 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG75 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET,RENT,REFR'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//CI535 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI535
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK72  SG75
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO CI535
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,RENT,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE CI535(IEEPDISC)
IEW0000     ENTRY IEEPDISC
IEW0000     NAME IEEPDISC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEPDISC      00      5C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        60

****IEEPDISC  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEEXEDNA)
IEW0000     ENTRY IEEXEDNA
IEW0000     NAME IEEXEDNA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEXEDNA      00     598


 ENTRY ADDRESS       00
 TOTAL LENGTH       598

****IEEXEDNA  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI535(IEELWAIT)
IEW0000     INCLUDE CI505(IEESMFWR)
IEW0000     ENTRY IEELWAIT
IEW0000     ALIAS IEESMFWR
IEW0000     NAME IEELWAIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEELWAIT      00     49E
  IEESMFWR     4A0     53C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       9E0

****IEELWAIT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEESMFWR  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     CHANGE IEFSD111(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFDSDRP)
IEW0000     CHANGE IEFSD111(IEFQMRAW)
IEW0000     CHANGE IEFSD113(IEFQMRAW)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ)
IEW0000     CHANGE IEFQMNQ2(IEFQMRAW)
IEW0000     CHANGE IEFQDELE(IEFQMRAW)
IEW0000     CHANGE IEFQAGST(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQBVMS)
IEW0000     INCLUDE SYSPUNCH(IEFDEVPT)
IEW0000     ENTRY IEFDSDRP
IEW0000     NAME IEFDSDRP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQMRAW      00     1D4
  IEFQMWTO     1D8      42
  IEFDSDRP     220    10EC
  IEFQASGN    1310     56A
  IEFQASNM    1880      7E
  IEFQMSSS    1900      78
  IEFDEVPT    1978      38



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      1BC            IEFQMWTO        IEFQMWTO                    10E8            IEFQMSSS        IEFQMSSS
     1308            IEFDEVPT        IEFDEVPT                    1824            IEFQASNM        IEFQASNM
     1844            IEFQMRAW        IEFQMRAW                    1954            IEFQMRAW        IEFQMRAW
     1958            IEFQASGN        IEFQASGN                    195C            IEFQMRAW        IEFQMRAW
     1960            IEFQMRAW        IEFQMRAW                    1964            IEFQMRAW        IEFQMRAW
     1968            IEFQMRAW        IEFQMRAW
 ENTRY ADDRESS      220
 TOTAL LENGTH      19B0

****IEFDSDRP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFRSTRT)
IEW0000     ALIAS IEFSMR
IEW0000     NAME IEFRSTRT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFRSTRT      00       4


 ENTRY ADDRESS       00
 TOTAL LENGTH         8

****IEFRSTRT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFSMR    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI535(IEFIIC)
IEW0000     NAME IEFIIC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFIIC        00      9A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        A0

****IEFIIC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI535(IEEPRTN2)
IEW0000     ALIAS IEERGN
IEW0000     NAME IEEPRTN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEPRTN2      00      F8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        F8

****IEEPRTN   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEERGN    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI535(IEFSD160,IEF061SD)
IEW0000     ENTRY IEFSD060
IEW0000     NAME IEFSD060(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD060      00     A56
  IEFSD60M     A58     2AE
  IEFSD061     D08      16



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      A0C            IEFSD061        IEFSD061                     A10            IEFSD60M        IEFSD60M

 ENTRY ADDRESS       00
 TOTAL LENGTH       D20

****IEFSD060  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI535(IEFSD102)
IEW0000     ENTRY IEFSD102
IEW0000     NAME IEFSD102(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD102      00     2BF



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       2C0

****IEFSD102  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFUJV)
IEW0000     NAME IEFUJV(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFUJV        00       4


 ENTRY ADDRESS       00
 TOTAL LENGTH         8

****IEFUJV    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IFASMFDP)
IEW0000     NAME IFASMFDP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFASMFDP      00     784
  IFASMFMG     788     13E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      670            IFASMFMG        IFASMFMG
 ENTRY ADDRESS       00
 TOTAL LENGTH       8C8

****IFASMFDP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEEVRJCL,IEEPSN)
IEW0000     ENTRY IEEVRJCL
IEW0000     ALIAS IEEPSN
IEW0000     NAME IEEVRJCL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVRJCL      00      2E
  IEEPSN        30      F8


 ENTRY ADDRESS       00
 TOTAL LENGTH       128

****IEEVRJCL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEEPSN    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEEVLNKT)
IEW0000     NAME IEEVLNKT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVLNKT      00      A2


 ENTRY ADDRESS       00
 TOTAL LENGTH        A8

****IEEVLNKT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI535(IEEVWAIT)
IEW0000     ALIAS IEEVWDAR
IEW0000     NAME IEEVWAIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEVWAIT      00     5FC
                                        IEEVWDAR     58C


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       600

****IEEVWAIT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEEVWDAR  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSMFAT,IEFUTL,IEFUSO)
IEW0000     INCLUDE CI535(IEFSD263)
IEW0000     ENTRY IEFSD263
IEW0000     NAME IEFSD263(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSMFAT      00     230
  IEFUTL       230       4
  IEFUSO       238       4
  IEFSD263     240     42E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      218            IEFUTL          IEFUTL                       21C            IEFUSO          IEFUSO
      660            IEFSMFAT        IEFSMFAT
 ENTRY ADDRESS      240
 TOTAL LENGTH       670

****IEFSD263  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI535(IEFDSOLP)
IEW0000     NAME IEFDSOLP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFDSOLP      00      60



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        60

****IEFDSOLP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSD078,IEF079SD)
IEW0000     ENTRY IEFSD078
IEW0000     NAME IEFSD078(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD078      00     2A8
  IEFSD079     2A8      1A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      268            IEFSD079        IEFSD079
 ENTRY ADDRESS       00
 TOTAL LENGTH       2C8

****IEFSD078  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSD070)
IEW0000     ALIAS IEFSD70A
IEW0000     NAME IEFSD070(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD070      00     264
                                        IEFSD70A     1B8
  IEFSD70M     268      5D



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      258            IEFSD70M        IEFSD70M
 ENTRY ADDRESS       00
 TOTAL LENGTH       2C8

****IEFSD070  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFSD70A  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSDXYZ)
IEW0000     ENTRY IEFSDXYZ
IEW0000     NAME IEFSDXYZ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSDXYZ      00     260


 ENTRY ADDRESS       00
 TOTAL LENGTH       260

****IEFSDXYZ  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSD080,IEFSD081,IEFSD083)
IEW0000     INCLUDE CI505(IEFQMUNQ,IEFSD082)
IEW0000     INCLUDE CI505(IEFSD079,IEFSD084,IEF078SD)
IEW0000     CHANGE IEFSD112(IEFQDELE)
IEW0000     INCLUDE  CI505(IEFQDELQ)
IEW0000     CHANGE IEFSD110(IEFQMDQ2),IEFSD111(IEFQMDQ2)
IEW0000     INCLUDE CI505(IEFQMDQQ)
IEW0000     ALIAS IEEVWTR1
IEW0000     ALIAS IEFSD079
IEW0000     ENTRY IEFSD080
IEW0000     NAME IEFSD080(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD080      00     274
  IEFSD081     278     85C
  IEFSD81M     AD8     1B0
  IEFSD083     C88     1C4
  IEFSD83M     E50      7D
  IEFQMUNC     ED0     2A0
  IEFQMWTO    1170      42
  IEFSD082    11B8     170
  IEFSD079    1328     128
  IEFSD084    1450      88
  IEFSD84M    14D8      28
  IEFSD078    1500      1A
  IEFQDELE    1520     292
  IEFQMDQ2    17B8     522



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      1C4            IEFSD081        IEFSD081                     A58            IEFSD082        IEFSD082
      A5C            IEFSD81M        IEFSD81M                     E30            IEFSD081        IEFSD081
      E34            IEFQMUNC        IEFQMUNC                     E48            IEFSD83M        IEFSD83M
     1104            IEFQMWTO        IEFQMWTO                    130C            IEFSD083        IEFSD083
     1310            IEFSD084        IEFSD084                    1314            IEFSD078        IEFSD078
     1318            IEFQMDQ2        IEFQMDQ2                    131C            IEFQMUNC        IEFQMUNC
     13A8            IEFSD082        IEFSD082                    13AC            IEFQDELE        IEFQDELE
     14D0            IEFSD84M        IEFSD84M                    14D4            IEFSD082        IEFSD082

 ENTRY ADDRESS       00
 TOTAL LENGTH      1CE0

****IEFSD080  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFSD079  IS AN ALIAS FOR THIS MEMBER
****IEEVWTR1  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSD085,IEFSD171)
IEW0000     CHANGE IEFSD111(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQMRAW)
IEW0000     ALIAS IEF085SD
IEW0000     ALIAS IEF850SD
IEW0000     ALIAS IEFSD071
IEW0000     ENTRY IEFSD085
IEW0000     NAME IEFSD085(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD085      00     660
                                        IEF085SD      20    IEF850SD     14A
  IEFSD85M     660      F2
  IEFSD071     758     50E
  IEFSD71M     C68     107
  IEFQMRAW     D70     1D4
  IEFQMWTO     F48      42



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      57C            IEFSD071        IEFSD071                     580            IEFQMRAW        IEFQMRAW
      594            IEFSD85M        IEFSD85M                     C10            IEFQMRAW        IEFQMRAW
      C14            IEF850SD        IEFSD085                     C18            IEFSD71M        IEFSD71M
      F2C            IEFQMWTO        IEFQMWTO
 ENTRY ADDRESS       00
 TOTAL LENGTH       F90

****IEFSD085  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFSD071  IS AN ALIAS FOR THIS MEMBER
****IEF850SD  IS AN ALIAS FOR THIS MEMBER
****IEF085SD  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSD086,IEFSD088,IEFSD089)
IEW0000     CHANGE IEFSD111(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQMRAW)
IEW0000     ALIAS IEF086SD
IEW0000     ENTRY IEFSD086
IEW0000     NAME IEFSD086(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD086      00     450
                                        IEF086SD      20
  IEFSD86M     450      4E
  IEFSD088     4A0      BD
  IEFSD089     560     5F6
  IEFSD89M     B58       D
  IEFQMRAW     B68     1D4
  IEFQMWTO     D40      42



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      41C            IEFQMRAW        IEFQMRAW                     420            IEFSD088        IEFSD088
      424            IEFSD089        IEFSD089                     428            IEFSD86M        IEFSD86M
      558            IEFSD089        IEFSD089                     B30            IEFSD088        IEFSD088
      B34            IEFSD89M        IEFSD89M                     D24            IEFQMWTO        IEFQMWTO

 ENTRY ADDRESS       00
 TOTAL LENGTH       D88

****IEFSD086  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEF086SD  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSD087,IEFSD088,IEFSD089)
IEW0000     ENTRY IEFSD087
IEW0000     NAME IEFSD087(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD087      00     597
  IEFSD87M     598      5A
  IEFSD088     5F8      BD
  IEFSD089     6B8     5F6
  IEFSD89M     CB0       D



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      530            IEFSD088        IEFSD088                     534            IEFSD089        IEFSD089
      538            IEFSD87M        IEFSD87M                     6B0            IEFSD089        IEFSD089
      C88            IEFSD088        IEFSD088                     C8C            IEFSD89M        IEFSD89M

 ENTRY ADDRESS       00
 TOTAL LENGTH       CC0

****IEFSD087  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSD094,IEFSD095)
IEW0000     INCLUDE CI505(IEFSD088,IEFSD089)
IEW0000     ENTRY IEFSD094
IEW0000     NAME IEFSD094(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD094      00     474
  IEFSD095     478     408
  IEFSD088     880      BD
  IEFSD089     940     5F6
  IEFSD89M     F38       D



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      120            IEFSD095        IEFSD095                     3BC            IEFSD089        IEFSD089
      3C0            IEFSD088        IEFSD088                     938            IEFSD089        IEFSD089
      F10            IEFSD088        IEFSD088                     F14            IEFSD89M        IEFSD89M

 ENTRY ADDRESS       00
 TOTAL LENGTH       F48

****IEFSD094  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSDXXX)
IEW0000     ENTRY IEFSDXXX
IEW0000     NAME IEFSDXXX(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSDXXX      00     45A


 ENTRY ADDRESS       00
 TOTAL LENGTH       460

****IEFSDXXX  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSDTTE)
IEW0000     ENTRY IEFSDTTE
IEW0000     NAME IEFSDTTE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSDTTE      00     872


 ENTRY ADDRESS       00
 TOTAL LENGTH       878

****IEFSDTTE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     CHANGE IEFSD111(IEFQMNQ2),IEFSD112(IEFQMNQ2)
IEW0000     INCLUDE CI505(IEFQMNQQ)
IEW0000     NAME IEFQMNQ2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQMNQ2      00     3D6



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3D8

****IEFQMNQ2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     CHANGE IEFSD110(IEFQMDQ2),IEFSD111(IEFQMDQ2)
IEW0000     INCLUDE CI505(IEFQMDQQ)
IEW0000     ALIAS IEFQMDQ2
IEW0000     NAME IEFQMDQQ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQMDQ2      00     522



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       528

****IEFQMDQQ  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFQMDQ2  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     CHANGE IEFSD112(IEFQDELE)
IEW0000     INCLUDE CI505(IEFQDELQ)
IEW0000     NAME IEFQDELE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQDELE      00     292



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       298

****IEFQDELE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFQMUNQ)
IEW0000     NAME IEFQMUNC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQMUNC      00     2A0
  IEFQMWTO     2A0      42



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      234            IEFQMWTO        IEFQMWTO
 ENTRY ADDRESS       00
 TOTAL LENGTH       2E8

****IEFQMUNC  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     CHANGE IEFSD111(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQMRAW)
IEW0000     NAME IEFQMRAW(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQMRAW      00     1D4
  IEFQMWTO     1D8      42



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      1BC            IEFQMWTO        IEFQMWTO
 ENTRY ADDRESS       00
 TOTAL LENGTH       220

****IEFQMRAW  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFQINTZ)
IEW0000     NAME IEFQINTZ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQINTZ      00      54



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        58

****IEFQINTZ  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI535(IEFSD0XX)
IEW0000     NAME IEFSD0XX(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD0XX      00     110


 ENTRY ADDRESS       00
 TOTAL LENGTH       110

****IEFSD0XX  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFSD105)
IEW0000     ENTRY IEFSD105
IEW0000     NAME IEFSD105(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFSD105      00      EA



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        F0

****IEFSD105  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFQBVMS)
IEW0000     CHANGE IEFSD110(IEFQAGST)
IEW0000     INCLUDE CI505(IEFQAGST)
IEW0000     CHANGE IEFSD111(IEFQASGN)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ)
IEW0000     CHANGE IEFSD111(IEFQMNQ2),IEFSD112(IEFQMNQ2)
IEW0000     INCLUDE CI505(IEFQMNQQ)
IEW0000     CHANGE IEFSD111(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQMRAW)
IEW0000     INCLUDE CI535(IEFIRCB)
IEW0000     ALIAS IEFIRCB
IEW0000     ENTRY IEFQMSSS
IEW0000     NAME IEFQMSSS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQMSSS      00      78
  IEFQAGST      78     118
  IEFQASGN     190     56A
  IEFQASNM     700      7E
  IEFQMNQ2     780     3D6
  IEFQMRAW     B58     1D4
  IEFQMWTO     D30      42
  IEFIRCB      D78      48



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       54            IEFQAGST        IEFQAGST                      58            IEFQASGN        IEFQASGN
       5C            IEFQMRAW        IEFQMRAW                      60            IEFQMRAW        IEFQMRAW
       64            IEFQMRAW        IEFQMRAW                      68            IEFQMNQ2        IEFQMNQ2
      6A4            IEFQASNM        IEFQASNM                     D14            IEFQMWTO        IEFQMWTO

 ENTRY ADDRESS       00
 TOTAL LENGTH       DC0

****IEFQMSSS  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFIRCB   IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEE0503D)
IEW0000     NAME IEE0503D(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEE0503D      00     3E3


 ENTRY ADDRESS       00
 TOTAL LENGTH       3E8

****IEE0503D  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFQAGST)
IEW0000     INCLUDE CI535(IEFSD110)
IEW0000     ENTRY IEFQAGST
IEW0000     NAME IEFQMSTK(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQAGST      00     118
  IEFSD110     118     248



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      114            IEFSD110        IEFSD110
 ENTRY ADDRESS       00
 TOTAL LENGTH       360

****IEFQMSTK  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     CHANGE IEFSD110(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQAGST)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ,IEFQBVMS)
IEW0000     CHANGE IEFSD112(IEFQMRAW)
IEW0000     INCLUDE CI505(IEFQMNQQ)
IEW0000     INCLUDE CI505(IEFQMRAW)
IEW0000     INCLUDE CI535(IEFSD111)
IEW0000     ENTRY IEFQMSSS
IEW0000     NAME IEFQMSK1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQAGST      00     118
  IEFQASGN     118     56A
  IEFQASNM     688      7E
  IEFQMSSS     708      78
  IEFQMNQ2     780     3D6
  IEFQMRAW     B58     1D4
  IEFQMWTO     D30      42
  IEFSD111     D78     268
  CHFILRDW     FE0     36C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      114            IEFQMRAW        IEFQMRAW                     62C            IEFQASNM        IEFQASNM
      64C            IEFSD111        IEFSD111                     75C            IEFQAGST        IEFQAGST
      760            IEFQASGN        IEFQASGN                     764            IEFQMRAW        IEFQMRAW
      768            IEFQMRAW        IEFQMRAW                     76C            IEFQMRAW        IEFQMRAW
      770            IEFQMNQ2        IEFQMNQ2                     B20            IEFSD111        IEFSD111
      B24            IEFQMRAW        IEFQMRAW                     D18            IEFSD111        IEFSD111
      D14            IEFQMWTO        IEFQMWTO                     FDC            CHFILRDW        CHFILRDW

 ENTRY ADDRESS      708
 TOTAL LENGTH      1350

****IEFQMSK1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFDSOCP)
IEW0000     ENTRY IEFDSOCP
IEW0000     NAME IEFDSO(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFDSOCP      00     EB6



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       EB8

****IEFDSO    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     CHANGE IEFSD514(IEFDSOSM)
IEW0000     CHANGE IEFQMRAW(IEFDSOSM)
IEW0000     INCLUDE CI505(IEFDSOSM)
IEW0000     NAME IEFDSOSM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFDSOSM      00     CC2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       CC8

****IEFDSOSM  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFDSOAL)
IEW0000     NAME IEFDSOAL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFDSOAL      00     528



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       528

****IEFDSOAL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFDSOWR)
IEW0000     NAME IEFDSOWR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFDSOWR      00     960



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       960

****IEFDSOWR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM1)
IEW0000     NAME IEFVGM1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM1       00     10A


 ENTRY ADDRESS       00
 TOTAL LENGTH       110

****IEFVGM1   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM2)
IEW0000     NAME IEFVGM2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM2       00     141


 ENTRY ADDRESS       00
 TOTAL LENGTH       148

****IEFVGM2   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM3)
IEW0000     NAME IEFVGM3(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM3       00     1D2


 ENTRY ADDRESS       00
 TOTAL LENGTH       1D8

****IEFVGM3   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM4)
IEW0000     NAME IEFVGM4(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM4       00     121


 ENTRY ADDRESS       00
 TOTAL LENGTH       128

****IEFVGM4   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM5)
IEW0000     NAME IEFVGM5(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM5       00     113


 ENTRY ADDRESS       00
 TOTAL LENGTH       118

****IEFVGM5   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM6)
IEW0000     NAME IEFVGM6(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM6       00     13A


 ENTRY ADDRESS       00
 TOTAL LENGTH       140

****IEFVGM6   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM7)
IEW0000     NAME IEFVGM7(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM7       00     146


 ENTRY ADDRESS       00
 TOTAL LENGTH       148

****IEFVGM7   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM8)
IEW0000     NAME IEFVGM8(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM8       00      9D


 ENTRY ADDRESS       00
 TOTAL LENGTH        A0

****IEFVGM8   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM9)
IEW0000     NAME IEFVGM9(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM9       00      DD


 ENTRY ADDRESS       00
 TOTAL LENGTH        E0

****IEFVGM9   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM10)
IEW0000     NAME IEFVGM10(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM10      00     170


 ENTRY ADDRESS       00
 TOTAL LENGTH       170

****IEFVGM10  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM11)
IEW0000     NAME IEFVGM11(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM11      00     169


 ENTRY ADDRESS       00
 TOTAL LENGTH       170

****IEFVGM11  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM12)
IEW0000     NAME IEFVGM12(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM12      00     165


 ENTRY ADDRESS       00
 TOTAL LENGTH       168

****IEFVGM12  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM13)
IEW0000     NAME IEFVGM13(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM13      00     14E


 ENTRY ADDRESS       00
 TOTAL LENGTH       150

****IEFVGM13  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM14)
IEW0000     NAME IEFVGM14(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM14      00      C6


 ENTRY ADDRESS       00
 TOTAL LENGTH        C8

****IEFVGM14  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM15)
IEW0000     NAME IEFVGM15(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM15      00      A2


 ENTRY ADDRESS       00
 TOTAL LENGTH        A8

****IEFVGM15  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM16)
IEW0000     NAME IEFVGM16(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM16      00      AF


 ENTRY ADDRESS       00
 TOTAL LENGTH        B0

****IEFVGM16  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM17)
IEW0000     NAME IEFVGM17(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM17      00      63


 ENTRY ADDRESS       00
 TOTAL LENGTH        68

****IEFVGM17  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM18)
IEW0000     NAME IEFVGM18(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM18      00      9C


 ENTRY ADDRESS       00
 TOTAL LENGTH        A0

****IEFVGM18  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM19)
IEW0000     NAME IEFVGM19(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM19      00      74


 ENTRY ADDRESS       00
 TOTAL LENGTH        78

****IEFVGM19  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM67)
IEW0000     NAME IEFVGM67(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM67      00     137


 ENTRY ADDRESS       00
 TOTAL LENGTH       138

****IEFVGM67  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM70)
IEW0000     NAME IEFVGM70(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM70      00     11C


 ENTRY ADDRESS       00
 TOTAL LENGTH       120

****IEFVGM70  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM71)
IEW0000     NAME IEFVGM71(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM71      00      FD


 ENTRY ADDRESS       00
 TOTAL LENGTH       100

****IEFVGM71  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM76)
IEW0000     NAME IEFVGM76(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM76      00      8D


 ENTRY ADDRESS       00
 TOTAL LENGTH        90

****IEFVGM76  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEFVGM78)
IEW0000     NAME IEFVGM78(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVGM78      00      F6


 ENTRY ADDRESS       00
 TOTAL LENGTH        F8

****IEFVGM78  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK72.R0000241      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK72.S0000242      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK72.S0000242      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG75    / START 78240.1946
IEF374I STEP /SG75    / STOP  78240.1946 CPU   0MIN 01.35SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:15.76   ALLOC START    19:46:15.77   MAIN REGION ----- 256K                          *
*   STEP NAME SG75       STEP END TIME  19:46:17.28   PGM START TIME 19:46:15.84   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:01.52   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:01.35   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0130 ---------- 266       0150 ---------- 428       0250 ---------- 593       0250 ---------- 106    *
*   0151 ------------ 4       0130 ---------- 217                                                                                  *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK72  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:17.30   ALLOC START    19:46:17.32   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:17.38   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.08   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK72 / START 78240.1946
IEF376I  JOB /R21LK72 / STOP  78240.1946 CPU   0MIN 01.35SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK72    JOB READ TIME 19:45:12.48   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.35   *
*   JOB CLASS A          JOB INIT TIME 19:46:15.76   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.64   *
*   ACCOUNT              JOB END TIME  19:46:17.40   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  777777777  333333333                            A
            RRRRRRRRR  222222222      11     LL         KK    KK   777777777  333333333                           AAA
            RR     RR  22     22     111     LL         KK   KK    77     77  33    33                           AA AA
            RR     RR        22       11     LL         KK  KK           77        33                           AA   AA
            RRRRRRRRR       22        11     LL         KK KK           77        3333                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK          77        333333                        AA     AA
            RR  RR        22          11     LL         KKK KK        77             33                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK       77      33     33                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      77      333333333                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK     77       3333333                         AA     AA

***********A  START   R21LK73    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK73    START  A***********
***********A  START   R21LK73    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK73    START  A***********
***********A  START   R21LK73    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK73    START  A***********
***********A  START   R21LK73    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK73    START  A***********
***********A  START   R21LK73    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK73    START  A***********


//R21LK73 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG76 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//CI535 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI535
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK73  SG76
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO CI535
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE CI505(IEECVGCI)
IEW0000     NAME IEECVGCI(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVGCI      00     7EA



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       7F0

****IEECVGCI  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK73.R0000243      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK73.S0000244      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK73.S0000244      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG76    / START 78240.1946
IEF374I STEP /SG76    / STOP  78240.1946 CPU   0MIN 00.06SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:17.56   ALLOC START    19:46:17.57   MAIN REGION ----- 256K                          *
*   STEP NAME SG76       STEP END TIME  19:46:17.73   PGM START TIME 19:46:17.63   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.17   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ------------ 4       0150 ------------ 8       0250 ----------- 10       0250 ------------ 0    *
*   0151 ------------ 0       0130 ------------ 3                                                                                  *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK73  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:17.75   ALLOC START    19:46:17.77   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:17.78   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK73 / START 78240.1946
IEF376I  JOB /R21LK73 / STOP  78240.1946 CPU   0MIN 00.06SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK73    JOB READ TIME 19:45:13.38   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.06   *
*   JOB CLASS A          JOB INIT TIME 19:46:17.56   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.24   *
*   ACCOUNT              JOB END TIME  19:46:17.80   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  777777777       44                              A
            RRRRRRRRR  222222222      11     LL         KK    KK   777777777      444                             AAA
            RR     RR  22     22     111     LL         KK   KK    77     77     4444                            AA AA
            RR     RR        22       11     LL         KK  KK           77     44 44                           AA   AA
            RRRRRRRRR       22        11     LL         KK KK           77     44  44                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK          77     44   44                          AA     AA
            RR  RR        22          11     LL         KKK KK        77      444444444                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK       77      444444444                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      77           44                          AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK     77           44                          AA     AA

***********A  START   R21LK74    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK74    START  A***********
***********A  START   R21LK74    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK74    START  A***********
***********A  START   R21LK74    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK74    START  A***********
***********A  START   R21LK74    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK74    START  A***********
***********A  START   R21LK74    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK74    START  A***********


//R21LK74 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG77 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REFR,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.SVCLIB
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//CI535 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI535
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK74  SG77
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO CI535
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REFR,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE CI505(IEECVFTT)
IEW0000     NAME IGC6T07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFTT      00     18C


 ENTRY ADDRESS       00
 TOTAL LENGTH       190

****IGC6T07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVFTG)
IEW0000     NAME IGC6G07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVFTG      00     3EF


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F0

****IGC6G07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVET1)
IEW0000     NAME IGC5107B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVET1      00     3FF


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC5107B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVET2)
IEW0000     NAME IGC5207B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVET2      00     3CA


 ENTRY ADDRESS       00
 TOTAL LENGTH       3D0

****IGC5207B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVET3)
IEW0000     NAME IGC5307B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVET3      00     3B0


 ENTRY ADDRESS       00
 TOTAL LENGTH       3B0

****IGC5307B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVET4)
IEW0000     NAME IGC5407B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVET4      00     400


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC5407B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVET6)
IEW0000     NAME IGC5607B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVET6      00     3A6


 ENTRY ADDRESS       00
 TOTAL LENGTH       3A8

****IGC5607B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVET7)
IEW0000     NAME IGC5707B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVET7      00     400


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC5707B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVET8)
IEW0000     NAME IGC5807B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVET8      00     31A


 ENTRY ADDRESS       00
 TOTAL LENGTH       320

****IGC5807B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVET9)
IEW0000     NAME IGC5907B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVET9      00     37A


 ENTRY ADDRESS       00
 TOTAL LENGTH       380

****IGC5907B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVETA)
IEW0000     NAME IGC5A07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVETA      00     3C6


 ENTRY ADDRESS       00
 TOTAL LENGTH       3C8

****IGC5A07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVETC)
IEW0000     NAME IGC5C07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVETC      00     386


 ENTRY ADDRESS       00
 TOTAL LENGTH       388

****IGC5C07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVETD)
IEW0000     NAME IGC5D07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVETD      00     3F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F0

****IGC5D07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVETE)
IEW0000     NAME IGC5E07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVETE      00     3E8


 ENTRY ADDRESS       00
 TOTAL LENGTH       3E8

****IGC5E07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVETF)
IEW0000     NAME IGC5F07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVETF      00     3D1


 ENTRY ADDRESS       00
 TOTAL LENGTH       3D8

****IGC5F07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVETG)
IEW0000     NAME IGC5G07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVETG      00     3F9


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC5G07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVETJ)
IEW0000     NAME IGC5J07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVETJ      00     400


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC5J07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVETK)
IEW0000     NAME IGC5K07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVETK      00     3C6


 ENTRY ADDRESS       00
 TOTAL LENGTH       3C8

****IGC5K07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVETZ)
IEW0000     NAME IGC5Z07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVETZ      00     120


 ENTRY ADDRESS       00
 TOTAL LENGTH       120

****IGC5Z07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVETU)
IEW0000     NAME IGC5U07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVETU      00     3FD


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC5U07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE CI505(IEECVETV)
IEW0000     NAME IGC5V07B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEECVETV      00     3FD


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC5V07B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK74.R0000245      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK74.S0000246      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK74.S0000246      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG77    / START 78240.1946
IEF374I STEP /SG77    / STOP  78240.1946 CPU   0MIN 00.37SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:17.82   ALLOC START    19:46:17.83   MAIN REGION ----- 256K                          *
*   STEP NAME SG77       STEP END TIME  19:46:18.31   PGM START TIME 19:46:17.89   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.49   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.37   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0158 ----------- 68       0150 ---------- 136       0250 ---------- 136       0250 ------------ 0    *
*   0151 ------------ 0       0130 ----------- 43                                                                                  *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK74  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:18.33   ALLOC START    19:46:18.34   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:18.36   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK74 / START 78240.1946
IEF376I  JOB /R21LK74 / STOP  78240.1946 CPU   0MIN 00.37SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK74    JOB READ TIME 19:45:13.67   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.37   *
*   JOB CLASS A          JOB INIT TIME 19:46:17.82   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.55   *
*   ACCOUNT              JOB END TIME  19:46:18.37   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  777777777  555555555                            A
            RRRRRRRRR  222222222      11     LL         KK    KK   777777777  555555555                           AAA
            RR     RR  22     22     111     LL         KK   KK    77     77  55                                 AA AA
            RR     RR        22       11     LL         KK  KK           77   55555555                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK           77    555555555                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK          77            55                        AA     AA
            RR  RR        22          11     LL         KKK KK        77             55                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK       77      55     55                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      77      555555555                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK     77       5555555                         AA     AA

***********A  START   R21LK75    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK75    START  A***********
***********A  START   R21LK75    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK75    START  A***********
***********A  START   R21LK75    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK75    START  A***********
***********A  START   R21LK75    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK75    START  A***********
***********A  START   R21LK75    SYS SYSA   WTR 00E   07:47:31 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK75    START  A***********


//R21LK75 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG78 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,DC'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//DN527 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN527
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK75  SG78
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DN527
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,DC
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE DN527(IFCEREP0)
IEW0000     NAME IFCEREP0(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEREP0      00    13E1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      13E8

****IFCEREP0  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEP005)
IEW0000     NAME IFCEP005(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEP005      00     E3C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       E40

****IFCEP005  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEP007)
IEW0000     NAME IFCEP007(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEP007      00     DD4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       DD8

****IFCEP007  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEP008)
IEW0000     NAME IFCEP008(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEP008      00     6D4


 ENTRY ADDRESS       00
 TOTAL LENGTH       6D8

****IFCEP008  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEP009)
IEW0000     NAME IFCEP009(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEP009      00     3DD



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3E0

****IFCEP009  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCRE002)
IEW0000     NAME IFCRE002(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCRE002      00     AED



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       AF0

****IFCRE002  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCRE003)
IEW0000     NAME IFCRE003(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCRE003      00     7C4


 ENTRY ADDRESS       00
 TOTAL LENGTH       7C8

****IFCRE003  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCMSG00)
IEW0000     NAME IFCMSG00(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCMSG00      00     3A8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3A8

****IFCMSG00  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCMES00)
IEW0000     NAME IFCMES00(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCMES00      00     C48



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       C48

****IFCMES00  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCECUA0)
IEW0000     NAME IFCECUA0(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCECUA0      00     32F



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       330

****IFCECUA0  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCSCUA0)
IEW0000     NAME IFCSCUA0(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSCUA0      00     60F



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       610

****IFCSCUA0  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCECUA1)
IEW0000     NAME IFCECUA1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCECUA1      00     A9A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       AA0

****IFCECUA1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCSCUA1)
IEW0000     NAME IFCSCUA1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSCUA1      00     782



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       788

****IFCSCUA1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEVOL0)
IEW0000     NAME IFCEVOL0(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEVOL0      00     5B1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       5B8

****IFCEVOL0  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCSVOL0)
IEW0000     NAME IFCSVOL0(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSVOL0      00     42B



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       430

****IFCSVOL0  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEUKNO)
IEW0000     ALIAS IFCEUCPU
IEW0000     ALIAS IFCEUCCH
IEW0000     ALIAS IFCEUTYP
IEW0000     ALIAS IFCEUOBR
IEW0000     NAME IFCEUKNO(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEUKNO      00     626



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       628

****IFCEUKNO  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCEUOBR  IS AN ALIAS FOR THIS MEMBER
****IFCEUTYP  IS AN ALIAS FOR THIS MEMBER
****IFCEUCCH  IS AN ALIAS FOR THIS MEMBER
****IFCEUCPU  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCSUKNO)
IEW0000     ALIAS IFCSUCPU
IEW0000     ALIAS IFCSUCCH
IEW0000     ALIAS IFCSUTYP
IEW0000     ALIAS IFCSUOBR
IEW0000     NAME IFCSUKNO(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSUKNO      00     45E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       460

****IFCSUKNO  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCSUOBR  IS AN ALIAS FOR THIS MEMBER
****IFCSUTYP  IS AN ALIAS FOR THIS MEMBER
****IFCSUCCH  IS AN ALIAS FOR THIS MEMBER
****IFCSUCPU  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEXXXX)
IEW0000     NAME IFCEXXXX(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXXX      00     BF4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       BF8

****IFCEXXXX  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCSXXXX)
IEW0000     NAME IFCSXXXX(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXXX      00     B98



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       B98

****IFCSXXXX  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEXXX0)
IEW0000     ALIAS IFCE2955
IEW0000     ALIAS IFCE2703
IEW0000     ALIAS IFCE2702
IEW0000     NAME IFCE2701(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXX0      00     BDA



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       BE0

****IFCE2701  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCE2702  IS AN ALIAS FOR THIS MEMBER
****IFCE2703  IS AN ALIAS FOR THIS MEMBER
****IFCE2955  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCSXXX0)
IEW0000     ALIAS IFCS2955
IEW0000     ALIAS IFCS2703
IEW0000     ALIAS IFCS2702
IEW0000     NAME IFCS2701(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXX0      00     909



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       910

****IFCS2701  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCS2702  IS AN ALIAS FOR THIS MEMBER
****IFCS2703  IS AN ALIAS FOR THIS MEMBER
****IFCS2955  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEXXX1)
IEW0000     ALIAS IFCE2495
IEW0000     ALIAS IFCE2520
IEW0000     ALIAS IFCE2501
IEW0000     ALIAS IFCE1442
IEW0000     NAME IFCE2540(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXX1      00     AC3



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       AC8

****IFCE2540  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCE1442  IS AN ALIAS FOR THIS MEMBER
****IFCE2501  IS AN ALIAS FOR THIS MEMBER
****IFCE2520  IS AN ALIAS FOR THIS MEMBER
****IFCE2495  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCSXXX1)
IEW0000     ALIAS IFCS2495
IEW0000     ALIAS IFCS2520
IEW0000     ALIAS IFCS2501
IEW0000     ALIAS IFCS1442
IEW0000     NAME IFCS2540(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXX1      00     A10



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       A10

****IFCS2540  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCS1442  IS AN ALIAS FOR THIS MEMBER
****IFCS2501  IS AN ALIAS FOR THIS MEMBER
****IFCS2520  IS AN ALIAS FOR THIS MEMBER
****IFCS2495  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEXXX2)
IEW0000     ALIAS IFCE3210
IEW0000     ALIAS IFCE3215
IEW0000     ALIAS IFCE3213
IEW0000     ALIAS IFCE1053
IEW0000     ALIAS IFCE2150
IEW0000     ALIAS IFCE1052
IEW0000     ALIAS IFCE1445
IEW0000     NAME IFCE1403(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXX2      00     BA4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       BA8

****IFCE1403  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCE1445  IS AN ALIAS FOR THIS MEMBER
****IFCE1052  IS AN ALIAS FOR THIS MEMBER
****IFCE2150  IS AN ALIAS FOR THIS MEMBER
****IFCE1053  IS AN ALIAS FOR THIS MEMBER
****IFCE3213  IS AN ALIAS FOR THIS MEMBER
****IFCE3215  IS AN ALIAS FOR THIS MEMBER
****IFCE3210  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCSXXX2)
IEW0000     ALIAS IFCS3210
IEW0000     ALIAS IFCS3215
IEW0000     ALIAS IFCS3213
IEW0000     ALIAS IFCS1053
IEW0000     ALIAS IFCS2150
IEW0000     ALIAS IFCS1052
IEW0000     ALIAS IFCS1445
IEW0000     NAME IFCS1403(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXX2      00     A6B



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       A70

****IFCS1403  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCS1445  IS AN ALIAS FOR THIS MEMBER
****IFCS1052  IS AN ALIAS FOR THIS MEMBER
****IFCS2150  IS AN ALIAS FOR THIS MEMBER
****IFCS1053  IS AN ALIAS FOR THIS MEMBER
****IFCS3213  IS AN ALIAS FOR THIS MEMBER
****IFCS3215  IS AN ALIAS FOR THIS MEMBER
****IFCS3210  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEXXX3)
IEW0000     ALIAS IFCE2671
IEW0000     ALIAS IFCE1285
IEW0000     ALIAS IFCE1275
IEW0000     ALIAS IFCE1419
IEW0000     NAME IFCE1443(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXX3      00     E36



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       E38

****IFCE1443  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCE1419  IS AN ALIAS FOR THIS MEMBER
****IFCE1275  IS AN ALIAS FOR THIS MEMBER
****IFCE1285  IS AN ALIAS FOR THIS MEMBER
****IFCE2671  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCSXXX3)
IEW0000     ALIAS IFCS2671
IEW0000     ALIAS IFCS1285
IEW0000     ALIAS IFCS1275
IEW0000     ALIAS IFCS1419
IEW0000     NAME IFCS1443(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXX3      00     D1A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D20

****IFCS1443  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCS1419  IS AN ALIAS FOR THIS MEMBER
****IFCS1275  IS AN ALIAS FOR THIS MEMBER
****IFCS1285  IS AN ALIAS FOR THIS MEMBER
****IFCS2671  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEXXX4)
IEW0000     ALIAS IFCE2321
IEW0000     ALIAS IFCE2303
IEW0000     ALIAS IFCE2302
IEW0000     NAME IFCE2311(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXX4      00     DE1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       DE8

****IFCE2311  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCE2302  IS AN ALIAS FOR THIS MEMBER
****IFCE2303  IS AN ALIAS FOR THIS MEMBER
****IFCE2321  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCSXXX4)
IEW0000     ALIAS IFCS2321
IEW0000     ALIAS IFCS2303
IEW0000     ALIAS IFCS2302
IEW0000     NAME IFCS2311(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXX4      00    11D7



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      11D8

****IFCS2311  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCS2302  IS AN ALIAS FOR THIS MEMBER
****IFCS2303  IS AN ALIAS FOR THIS MEMBER
****IFCS2321  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEXXX5)
IEW0000     NAME IFCE2301(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXX5      00     BE8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       BE8

****IFCE2301  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCSXXX5)
IEW0000     NAME IFCS2301(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXX5      00     CC9



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       CD0

****IFCS2301  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEXXX6)
IEW0000     NAME IFCE2314(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXX6      00     C93



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       C98

****IFCE2314  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCSXXX6)
IEW0000     NAME IFCS2314(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXX6      00     CC3



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       CC8

****IFCS2314  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEXXX7)
IEW0000     ALIAS IFCE2245
IEW0000     ALIAS IFCE3158
IEW0000     ALIAS IFCE3277
IEW0000     ALIAS IFCE3284
IEW0000     ALIAS IFCE3286
IEW0000     NAME IFCE1015(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXX7      00     D6E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D70

****IFCE1015  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCE3286  IS AN ALIAS FOR THIS MEMBER
****IFCE3284  IS AN ALIAS FOR THIS MEMBER
****IFCE3277  IS AN ALIAS FOR THIS MEMBER
****IFCE3158  IS AN ALIAS FOR THIS MEMBER
****IFCE2245  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCSXXX7)
IEW0000     ALIAS IFCS2245
IEW0000     ALIAS IFCS3158
IEW0000     ALIAS IFCS3277
IEW0000     ALIAS IFCS3284
IEW0000     ALIAS IFCS3286
IEW0000     NAME IFCS1015(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXX7      00     C34



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       C38

****IFCS1015  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCS3286  IS AN ALIAS FOR THIS MEMBER
****IFCS3284  IS AN ALIAS FOR THIS MEMBER
****IFCS3277  IS AN ALIAS FOR THIS MEMBER
****IFCS3158  IS AN ALIAS FOR THIS MEMBER
****IFCS2245  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEXXX8)
IEW0000     ALIAS IFCE5450
IEW0000     ALIAS IFCE3066
IEW0000     ALIAS IFCE1288
IEW0000     NAME IFCE1287(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXX8      00     D7C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D80

****IFCE1287  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCE1288  IS AN ALIAS FOR THIS MEMBER
****IFCE3066  IS AN ALIAS FOR THIS MEMBER
****IFCE5450  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCSXXX8)
IEW0000     ALIAS IFCS5450
IEW0000     ALIAS IFCS3066
IEW0000     ALIAS IFCS1288
IEW0000     NAME IFCS1287(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXX8      00     CC8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       CC8

****IFCS1287  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCS1288  IS AN ALIAS FOR THIS MEMBER
****IFCS3066  IS AN ALIAS FOR THIS MEMBER
****IFCS5450  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEXXX9)
IEW0000     ALIAS IFCE2282
IEW0000     ALIAS IFCE2280
IEW0000     ALIAS IFCE2260
IEW0000     ALIAS IFCE3505
IEW0000     ALIAS IFCE3525
IEW0000     NAME IFCE2250(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXX9      00     FF6



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       FF8

****IFCE2250  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCE3525  IS AN ALIAS FOR THIS MEMBER
****IFCE3505  IS AN ALIAS FOR THIS MEMBER
****IFCE2260  IS AN ALIAS FOR THIS MEMBER
****IFCE2280  IS AN ALIAS FOR THIS MEMBER
****IFCE2282  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCSXXX9)
IEW0000     ALIAS IFCS2282
IEW0000     ALIAS IFCS2280
IEW0000     ALIAS IFCS2260
IEW0000     ALIAS IFCS3505
IEW0000     ALIAS IFCS3525
IEW0000     NAME IFCS2250(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXX9      00    1362



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1368

****IFCS2250  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCS3525  IS AN ALIAS FOR THIS MEMBER
****IFCS3505  IS AN ALIAS FOR THIS MEMBER
****IFCS2260  IS AN ALIAS FOR THIS MEMBER
****IFCS2280  IS AN ALIAS FOR THIS MEMBER
****IFCS2282  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEXXXA)
IEW0000     ALIAS IFCE3211
IEW0000     NAME IFCE2400(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXXA      00    108E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1090

****IFCE2400  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCE3211  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCSXXXA)
IEW0000     ALIAS IFCS3211
IEW0000     NAME IFCS2400(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXXA      00    114B



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1150

****IFCS2400  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCS3211  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEXXXB)
IEW0000     NAME IFCE3420(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEXXXB      00    1B6A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1B70

****IFCE3420  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCSXXXB)
IEW0000     NAME IFCS3420(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSXXXB      00    1D3E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1D40

****IFCS3420  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEXXXC)
IEW0000     ALIAS IFCET001
IEW0000     ALIAS IFCET009
IEW0000     ALIAS IFCET00A
IEW0000     NAME IFCE3330(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCE3330      00     D0D



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D10

****IFCE3330  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCET00A  IS AN ALIAS FOR THIS MEMBER
****IFCET009  IS AN ALIAS FOR THIS MEMBER
****IFCET001  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEMER0)
IEW0000     NAME IFCEMER0(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEMER0      00     2E1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       2E8

****IFCEMER0  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEMER1)
IEW0000     NAME IFCEMER1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEMER1      00     868



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       868

****IFCEMER1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEMER2)
IEW0000     NAME IFCEMER2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEMER2      00     8B0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       8B0

****IFCEMER2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEMER3)
IEW0000     NAME IFCEMER3(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEMER3      00     56F



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       570

****IFCEMER3  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEMER4)
IEW0000     NAME IFCEMER4(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEMER4      00     67D



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       680

****IFCEMER4  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCEMER5)
IEW0000     NAME IFCEMER5(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEMER5      00     630



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       630

****IFCEMER5  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCSXXXC)
IEW0000     ALIAS IFCST001
IEW0000     ALIAS IFCST00A
IEW0000     NAME IFCS3330(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCS3330      00    159E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      15A0

****IFCS3330  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCST00A  IS AN ALIAS FOR THIS MEMBER
****IFCST001  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCET003)
IEW0000     NAME IFCET003(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCET003      00     35A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       360

****IFCET003  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCST003)
IEW0000     NAME IFCST003(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCST003      00     781



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       788

****IFCST003  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCET004)
IEW0000     NAME IFCET004(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCET004      00     5CD



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       5D0

****IFCET004  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCET005)
IEW0000     NAME IFCET005(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCET005      00     308



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       308

****IFCET005  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCETRN0)
IEW0000     NAME IFCETRN0(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCETRN0      00     94C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       950

****IFCETRN0  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCETRN1)
IEW0000     NAME IFCETRN1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCETRN1      00     544



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       548

****IFCETRN1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCETRN2)
IEW0000     NAME IFCETRN2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCETRN2      00     18F



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       190

****IFCETRN2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCETRN3)
IEW0000     NAME IFCETRN3(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCETRN3      00     561



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       568

****IFCETRN3  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCETRN4)
IEW0000     NAME IFCETRN4(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCETRN4      00     D0D



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D10

****IFCETRN4  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCST005)
IEW0000     NAME IFCST005(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCST005      00     661



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       668

****IFCST005  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCET006)
IEW0000     NAME IFCET006(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCET006      00     3FA



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IFCET006  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCST006)
IEW0000     NAME IFCST006(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCST006      00     5F4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       5F8

****IFCST006  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCET00B)
IEW0000     NAME IFCET00B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCET00B      00     304



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       308

****IFCET00B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCST00B)
IEW0000     NAME IFCST00B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCST00B      00     365



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       368

****IFCST00B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN527(IFCE0155)
IEW0000     ALIAS IFCE0158
IEW0000     NAME IFCE0155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCE0155      00     920



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       920

****IFCE0155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCE0158  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEA155)
IEW0000     ALIAS IFCEA158
IEW0000     NAME IFCEA155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEA155      00    162D



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1630

****IFCEA155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCEA158  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEB155)
IEW0000     ALIAS IFCEB158
IEW0000     NAME IFCEB155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEB155      00     51B



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       520

****IFCEB155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCEB158  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEC155)
IEW0000     ALIAS IFCEC158
IEW0000     NAME IFCEC155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEC155      00     52A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       530

****IFCEC155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCEC158  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCED155)
IEW0000     ALIAS IFCED158
IEW0000     NAME IFCED155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCED155      00    1E6F



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1E70

****IFCED155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCED158  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEE155)
IEW0000     ALIAS IFCEE158
IEW0000     NAME IFCEE155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEE155      00     B97



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       B98

****IFCEE155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCEE158  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEF155)
IEW0000     ALIAS IFCEF158
IEW0000     NAME IFCEF155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEF155      00     BA2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       BA8

****IFCEF155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCEF158  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEG155)
IEW0000     ALIAS IFCEG158
IEW0000     NAME IFCEG155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEG155      00    1B84



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1B88

****IFCEG155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCEG158  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEL155)
IEW0000     ALIAS IFCEL158
IEW0000     NAME IFCEL155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEL155      00    178D



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1790

****IFCEL155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCEL158  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEM155)
IEW0000     ALIAS IFCEM158
IEW0000     NAME IFCEM155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEM155      00    25EB



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      25F0

****IFCEM155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCEM158  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCS0155)
IEW0000     ALIAS IFCS0158
IEW0000     NAME IFCS0155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCS0155      00     311



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       318

****IFCS0155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCS0158  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCEI155)
IEW0000     ALIAS IFCEI158
IEW0000     NAME IFCEI155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCEI155      00    11E5



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      11E8

****IFCEI155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCEI158  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE DN527(IFCSI155)
IEW0000     ALIAS IFCSI158
IEW0000     NAME IFCSI155(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFCSI155      00     5A4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       5A8

****IFCSI155  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFCSI158  IS AN ALIAS FOR THIS MEMBER




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK75.R0000247      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DN527                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK75.S0000248      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK75.S0000248      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG78    / START 78240.1946
IEF374I STEP /SG78    / STOP  78240.1946 CPU   0MIN 01.91SEC MAIN 132K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:18.40   ALLOC START    19:46:18.41   MAIN REGION ----- 256K                          *
*   STEP NAME SG78       STEP END TIME  19:46:20.49   PGM START TIME 19:46:18.48   MAIN STORAGE ---- 132K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.09   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:01.91   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ---------- 304       0150 ---------- 883       0250 ---------- 836       0151 ------------ 0    *
*   0130 ---------- 253                                                                                                            *
************************************************************************************************************************************

//SG79 EXEC PGM=IEWL,PARM='NCAL,LIST,XREF',
//             COND=(8,LT)
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(500,40),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),
//             SYSOUT=A
//SYSLMOD DD DISP=(OLD,PASS),UNIT=3330,
//             VOL=SER=ASPRES,
//             DSNAME=MVT1.DCMLIB
//SYSPUNCH DD DISP=OLD,VOL=(,RETAIN),DSN=SYS1.OBJPDS
//SYSLIN DD *
IEF236I ALLOC. FOR R21LK75  SG79
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000        INCLUDE SYSPUNCH(IEEPFKEY)
IEW0000       NAME  IEEPFKEY(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEPFKEY      00     A64
                                        IEECVK0       12    IEECVK2      53B


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       A68

****IEEPFKEY  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK75.R0000249      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   MVT1.DCMLIB                                  PASSED
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK75.S0000250      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK75.S0000250      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG79    / START 78240.1946
IEF374I STEP /SG79    / STOP  78240.1946 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:20.52   ALLOC START    19:46:20.53   MAIN REGION ----- 256K                          *
*   STEP NAME SG79       STEP END TIME  19:46:20.72   PGM START TIME 19:46:20.59   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.20   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0159 ----------- 20       0150 ------------ 7       0151 ----------- 52       0130 ------------ 3    *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK75  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 19:46:20.74   ALLOC START    19:46:20.75   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:20.77   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   MVT1.DCMLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF375I  JOB /R21LK75 / START 78240.1946
IEF376I  JOB /R21LK75 / STOP  78240.1946 CPU   0MIN 01.98SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK75    JOB READ TIME 19:45:14.09   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.98   *
*   JOB CLASS A          JOB INIT TIME 19:46:18.40   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:02.38   *
*   ACCOUNT              JOB END TIME  19:46:20.78   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  777777777       66                              A
            RRRRRRRRR  222222222      11     LL         KK    KK   777777777      66                              AAA
            RR     RR  22     22     111     LL         KK   KK    77     77     66                              AA AA
            RR     RR        22       11     LL         KK  KK           77     66                              AA   AA
            RRRRRRRRR       22        11     LL         KK KK           77     6666666                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK          77     666666666                        AA     AA
            RR  RR        22          11     LL         KKK KK        77      66     66                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK       77      66     66                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      77      666666666                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK     77       6666666                         AA     AA

***********A  START   R21LK76    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK76    START  A***********
***********A  START   R21LK76    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK76    START  A***********
***********A  START   R21LK76    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK76    START  A***********
***********A  START   R21LK76    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK76    START  A***********
***********A  START   R21LK76    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK76    START  A***********


//R21LK76 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG80 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REUS,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IEHDASDR)
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK76  SG80
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REUS,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IEHDASDR)
IEW0000     NAME IEHDASDR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDASDR      00     464



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       468

****IEHDASDR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDASDS,IEHDCONS)
IEW0000     ENTRY IEHDASDS
IEW0000     NAME IEHDASDS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDASDS      00     D7C
  IEHDCONS     D80     2A2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      B84            IEHDCONS        IEHDCONS
 ENTRY ADDRESS       00
 TOTAL LENGTH      1028

****IEHDASDS  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDPRNT,IEHDDATE)
IEW0000     ENTRY IEHDPRNT
IEW0000     NAME IEHDPRNT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDPRNT      00     1A2
  IEHDDATE     1A8     100



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       BC            IEHDDATE        IEHDDATE
 ENTRY ADDRESS       00
 TOTAL LENGTH       2A8

****IEHDPRNT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDMSGB,IEHDMSGS)
IEW0000     ENTRY IEHDMSGB
IEW0000     NAME IEHDMSGB(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDMSGB      00      68
  IEHDMSGS      68     B4E
                                        MSGTABLE      68    MSGSTART      FC


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       60            MSGTABLE        IEHDMSGS                      64            MSGSTART        IEHDMSGS

 ENTRY ADDRESS       00
 TOTAL LENGTH       BB8

****IEHDMSGB  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDSCAN)
IEW0000     NAME IEHDSCAN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDSCAN      00     B0B



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       B10

****IEHDSCAN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDREST)
IEW0000     NAME IEHDREST(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDREST      00    1028



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1028

****IEHDREST  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDDUMP,IEHDEXCP,IEHDDOIO)
IEW0000     ENTRY IEHDDUMP
IEW0000     NAME IEHDDUMP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDDUMP      00     CF8
  IEHDEXCP     CF8     A76
  IEHDDOIO    1770     EF4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      3FC            IEHDEXCP        IEHDEXCP                    10C8            IEHDDOIO        IEHDDOIO

 ENTRY ADDRESS       00
 TOTAL LENGTH      2668

****IEHDDUMP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDAOUT)
IEW0000     NAME IEHDAOUT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDAOUT      00     476


 ENTRY ADDRESS       00
 TOTAL LENGTH       478

****IEHDAOUT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDANAL)
IEW0000     NAME IEHDANAL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDANAL      00     FD4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       FD8

****IEHDANAL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDVTOC)
IEW0000     NAME IEHDVTOC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDVTOC      00     E16



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       E18

****IEHDVTOC  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDCELL)
IEW0000     NAME IEHDCELL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDCELL      00     828



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       828

****IEHDCELL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDLABL)
IEW0000     NAME IEHDLABL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDLABL      00     3CC



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3D0

****IEHDLABL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDGETA)
IEW0000     NAME IEHDGETA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDGETA      00     4B8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       4B8

****IEHDGETA  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDPASS)
IEW0000     NAME IEHDPASS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDPASS      00     A1C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       A20

****IEHDPASS  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHDRCVR)
IEW0000     NAME IEHDRCVR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDRCVR      00     850



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       850

****IEHDRCVR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK76.R0000251      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK76.S0000252      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK76.S0000252      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG80    / START 78240.1946
IEF374I STEP /SG80    / STOP  78240.1946 CPU   0MIN 00.38SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:20.81   ALLOC START    19:46:20.82   MAIN REGION ----- 256K                          *
*   STEP NAME SG80       STEP END TIME  19:46:21.31   PGM START TIME 19:46:20.88   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.50   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.38   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 57       0150 ---------- 121       0250 ---------- 216       0151 ------------ 0    *
*   0130 ----------- 35                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK76  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:21.33   ALLOC START    19:46:21.34   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:21.37   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK76 / START 78240.1946
IEF376I  JOB /R21LK76 / STOP  78240.1946 CPU   0MIN 00.38SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK76    JOB READ TIME 19:45:14.99   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.38   *
*   JOB CLASS A          JOB INIT TIME 19:46:20.81   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.56   *
*   ACCOUNT              JOB END TIME  19:46:21.37   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  777777777  777777777                            A
            RRRRRRRRR  222222222      11     LL         KK    KK   777777777  777777777                           AAA
            RR     RR  22     22     111     LL         KK   KK    77     77  77     77                          AA AA
            RR     RR        22       11     LL         KK  KK           77         77                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK           77         77                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK          77         77                           AA     AA
            RR  RR        22          11     LL         KKK KK        77         77                            AAAAAAAAA
            RR   RR      22           11     LL         KK   KK       77         77                            AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      77         77                            AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK     77         77                            AA     AA

***********A  START   R21LK77    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK77    START  A***********
***********A  START   R21LK77    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK77    START  A***********
***********A  START   R21LK77    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK77    START  A***********
***********A  START   R21LK77    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK77    START  A***********
***********A  START   R21LK77    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK77    START  A***********


//R21LK77 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG81 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK77  SG81
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IEHIOSUP)
IEW0000     NAME   IEHIOSUP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHIOSUP      00    1554



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1558

****IEHIOSUP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK77.R0000253      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK77.S0000254      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK77.S0000254      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG81    / START 78240.1946
IEF374I STEP /SG81    / STOP  78240.1946 CPU   0MIN 00.06SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:21.40   ALLOC START    19:46:21.41   MAIN REGION ----- 256K                          *
*   STEP NAME SG81       STEP END TIME  19:46:21.56   PGM START TIME 19:46:21.47   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.16   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0130 ------------ 4       0150 ------------ 8       0250 ----------- 15       0151 ------------ 0    *
*   0130 ------------ 3                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK77  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:21.58   ALLOC START    19:46:21.59   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:21.61   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK77 / START 78240.1946
IEF376I  JOB /R21LK77 / STOP  78240.1946 CPU   0MIN 00.06SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK77    JOB READ TIME 19:45:15.42   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.06   *
*   JOB CLASS A          JOB INIT TIME 19:46:21.40   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.22   *
*   ACCOUNT              JOB END TIME  19:46:21.62   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  777777777   8888888                             A
            RRRRRRRRR  222222222      11     LL         KK    KK   777777777  888888888                           AAA
            RR     RR  22     22     111     LL         KK   KK    77     77  88     88                          AA AA
            RR     RR        22       11     LL         KK  KK           77   88     88                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK           77     8888888                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK          77      8888888                         AA     AA
            RR  RR        22          11     LL         KKK KK        77      88     88                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK       77      88     88                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      77      888888888                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK     77       8888888                         AA     AA

***********A  START   R21LK78    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK78    START  A***********
***********A  START   R21LK78    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK78    START  A***********
***********A  START   R21LK78    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK78    START  A***********
***********A  START   R21LK78    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK78    START  A***********
***********A  START   R21LK78    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK78    START  A***********


//R21LK78 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG82 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,RENT,REFR'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK78  SG82
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,RENT,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IEHATLAS,IEHMESS)
IEW0000     ENTRY  IEHATLAS
IEW0000     NAME   IEHATLAS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHATLAS      00     EAC
  IEHMESS      EB0     BA0
                                        MESSTBL      EB0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      D00            MESSTBL         IEHMESS
 ENTRY ADDRESS       00
 TOTAL LENGTH      1A50

****IEHATLAS  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK78.R0000255      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK78.S0000256      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK78.S0000256      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG82    / START 78240.1946
IEF374I STEP /SG82    / STOP  78240.1946 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:21.65   ALLOC START    19:46:21.66   MAIN REGION ----- 256K                          *
*   STEP NAME SG82       STEP END TIME  19:46:21.82   PGM START TIME 19:46:21.72   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.17   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ------------ 5       0150 ------------ 8       0250 ----------- 25       0151 ------------ 0    *
*   0130 ------------ 4                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK78  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:21.85   ALLOC START    19:46:21.86   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:21.88   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK78 / START 78240.1946
IEF376I  JOB /R21LK78 / STOP  78240.1946 CPU   0MIN 00.07SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK78    JOB READ TIME 19:45:15.51   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.07   *
*   JOB CLASS A          JOB INIT TIME 19:46:21.65   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.24   *
*   ACCOUNT              JOB END TIME  19:46:21.89   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK  777777777   9999999                             A
            RRRRRRRRR  222222222      11     LL         KK    KK   777777777  999999999                           AAA
            RR     RR  22     22     111     LL         KK   KK    77     77  99     99                          AA AA
            RR     RR        22       11     LL         KK  KK           77   99     99                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK           77    999999999                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK          77      9999999                         AA     AA
            RR  RR        22          11     LL         KKK KK        77           99                          AAAAAAAAA
            RR   RR      22           11     LL         KK   KK       77          99                           AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      77         99                            AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK     77        99                             AA     AA

***********A  START   R21LK79    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK79    START  A***********
***********A  START   R21LK79    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK79    START  A***********
***********A  START   R21LK79    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK79    START  A***********
***********A  START   R21LK79    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK79    START  A***********
***********A  START   R21LK79    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK79    START  A***********


//R21LK79 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG83 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,OVLY,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IEBPTPCH)
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK79  SG83
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,OVLY,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IEBPPUN1,IEBPPMSG)
IEW0000     INCLUDE UT506(IEBPPAL1,IEBCCS02)
IEW0000     INCLUDE UT506(IEBPPCH1)
IEW0000     ENTRY PRPCH        ** CANCEL OVERLAY FOR IEBPTPCH   **
IEW0000     NAME   IEBPTPCH(R) ** WHEN MSG IEW0201 IS GENERATED **
IEW0201


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBPTPCH      00     910     1
                                        PRPCH         00    PPDDTERM     18A    PPMNMSG      526    PPMSGWRT     554
                                        CCWRITE      58A    ZZPR         5D0    PPOUT        8B0
  IEBPPMSG     910     560     1
                                        PPMSGES      910    DDERROR1     BB0    MAXMSGS      BF0    RCERROR      CB0
                                        PPIKM        CF0    PPIPM        D10    PPMKM        D30    PPMPM        D50
                                        PPMCM        D70
  IEBPPAL1     E70    1481     1
                                        BLKRTN      1FD0    DDRTN       1FE0
  IEBCCS02    22F8     BE9     1
                                        ACTCCS      22F8    RDCARD      22F8    GENLABEL    2D64
  IEBPPCH1    2EE8    2004     1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      138            IEBPPAL1        IEBPPAL1         1           38C            IEBPPAL1        IEBPPAL1         1
      174            IEBPPCH1        IEBPPCH1         1           594            PPMSGES         IEBPPMSG         1
     13C4            IEBCCS02        IEBCCS02         1          1FC0            MAXMSGS         IEBPPMSG         1
     226C            CCWRITE         IEBPTPCH         1          2270            PPMSGWRT        IEBPTPCH         1
     22D8            ZZPR            IEBPTPCH         1          22DC            PPIKM           IEBPPMSG         1
     22E0            PPIPM           IEBPPMSG         1          22E4            PPMKM           IEBPPMSG         1
     22E8            PPMPM           IEBPPMSG         1          22EC            PPMCM           IEBPPMSG         1
     2D70            DDERROR1        IEBPPMSG         1          2D74            DDRTN           IEBPPAL1         1
     2D78            BLKRTN          IEBPPAL1         1          42F8            PPOUT           IEBPTPCH         1
     4558            ZZPR            IEBPTPCH         1          4628            PPMSGWRT        IEBPTPCH         1
     462C            PPMNMSG         IEBPTPCH         1          4634            DDERROR1        IEBPPMSG         1
     4638            RCERROR         IEBPPMSG         1
 ENTRY ADDRESS       00
 TOTAL LENGTH      4EF0

****IEBPTPCH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0201 WARNING - OVERLAY STRUCTURE CONTAINS ONLY ONE SEGMENT -- OVERLAY OPTION CANCELED.


IEW0000     INCLUDE UT506(IEBGENRT,IEBGMESG)
IEW0000     INCLUDE UT506(IEBCCS02,IEBGSCAN)
IEW0000     INCLUDE UT506(IEBGENR3,IEBCONP2,IEBCONH2)
IEW0000     INCLUDE UT506(IEBCONZ2,IEBEDIT2,IEBLENP2)
IEW0000     INCLUDE UT506(IEBMOVE2)
IEW0000     INCLUDE UT506(IEBGENS3)
IEW0000     INCLUDE UT506(IEBGEN03)
IEW0000     ENTRY IEBGENER     ** CANCEL OVERLAY FOR IEBGENER   **
IEW0000     NAME   IEBGENER(R) ** WHEN MSG IEW0201 IS GENERATED **
IEW0201
****IEBGENER  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBGENER      00     8A0     1
                                        GENERATE      00    HWRMSG       54E    HCDWR        632
  IEBGMESG     8A0     D2F     1
                                        HMSGMDL      8A0    DDERROR1     CFC    HMSGEXIT     EEC    HMSGRETC     F2A
                                        HMSGIOER     F68    SYNADMSG    1538
  IEBCCS02    15D0     BE9     1
                                        ACTCCS      15D0    RDCARD      15D0    GENLABEL    203C
  IEBGSCAN    21C0     F72     1
                                        CCA         21C0    BLKRTN      2E3A    DDRTN       2E4A
  IEBGENR3    3138     F9C     1
                                        HDCBIN      393C    HDCBOUT     399C    GENS3COP    405E    HMSGTLR     4090
  IEBCONP2    40D8      76     1
                                        HPZ         40D8
  IEBCONH2    4150     152     1
                                        HSETR       4150
  IEBCONZ2    42A8      7A     1
                                        HZP         42A8
  IEBEDIT2    4328     1C0     1
                                        HEDIT       4328
  IEBLENP2    44E8      6A     1
                                        HPRL        44E8
  IEBMOVE2    4558      5A     1
                                        HMOVE       4558
  IEBGENS3    45B8     FF1     1
                                        HGENPS3     45B8
  IEBGEN03    55B0     FB0     1
                                        HGENP       55B0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      184            CCA             IEBGSCAN         1           2AC            CCA             IEBGSCAN         1
      1B0            IEBGENR3        IEBGENR3         1           5CC            HMSGMDL         IEBGMESG         1
     2048            DDERROR1        IEBGMESG         1          204C            DDRTN           IEBGSCAN         1
     2050            BLKRTN          IEBGSCAN         1          2228            ACTCCS          IEBCCS02         1

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     2ED8            SYNADMSG        IEBGMESG         1          2EDC            HWRMSG          IEBGENER         1
     2EE0            HCDWR           IEBGENER         1          2EE4            GENLABEL        IEBCCS02         1
     2EF8            HMSGMDL         IEBGMESG         1          3454            IEBGEN03        IEBGEN03         1
     3874            IEBGENS3        IEBGENS3         1          3E40            DDERROR1        IEBGMESG         1
     3F34            HMSGEXIT        IEBGMESG         1          3F38            HMSGRETC        IEBGMESG         1
     3F8C            HMSGIOER        IEBGMESG         1          4044            HWRMSG          IEBGENER         1
     43B0            HZP             IEBCONZ2         1          43D0            HMOVE           IEBMOVE2         1
     4408            HPZ             IEBCONP2         1          4428            HSETR           IEBCONH2         1
     46E8            HMOVE           IEBMOVE2         1          4728            HMOVE           IEBMOVE2         1
     47AC            HMOVE           IEBMOVE2         1          4828            GENS3COP        IEBGENR3         1
     4808            HDCBOUT         IEBGENR3         1          4AF4            HMOVE           IEBMOVE2         1
     4B20            HEDIT           IEBEDIT2         1          4D04            HPRL            IEBLENP2         1
     4CE4            HDCBIN          IEBGENR3         1          509C            SYNADMSG        IEBGMESG         1
     5544            HDCBOUT         IEBGENR3         1          554C            HDCBIN          IEBGENR3         1
     5548            HMSGRETC        IEBGMESG         1          5584            HWRMSG          IEBGENER         1
     5588            HCDWR           IEBGENER         1          5718            HMOVE           IEBMOVE2         1
     5954            HMOVE           IEBMOVE2         1          5B28            HMOVE           IEBMOVE2         1
     5D34            HMOVE           IEBMOVE2         1          5B54            HEDIT           IEBEDIT2         1
     59BC            HDCBOUT         IEBGENR3         1          5D94            HDCBIN          IEBGENR3         1
     5DBC            HPRL            IEBLENP2         1          60E4            SYNADMSG        IEBGMESG         1
     6500            HDCBOUT         IEBGENR3         1          6508            HDCBIN          IEBGENR3         1
     6504            HMSGRETC        IEBGMESG         1          6538            HWRMSG          IEBGENER         1
     653C            HCDWR           IEBGENER         1
 ENTRY ADDRESS       00
 TOTAL LENGTH      6560



                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0201 WARNING - OVERLAY STRUCTURE CONTAINS ONLY ONE SEGMENT -- OVERLAY OPTION CANCELED.


IEW0000     INCLUDE UT506(IEBCROOT,IEBCOMPM,IEBCULET)
IEW0000     INCLUDE UT506(IEBCCS02,IEBCANAL)
IEW0000     INCLUDE UT506(IEBCMAIN,IEBCQSAM)
IEW0000     ENTRY COMPARE      ** CANCEL OVERLAY FOR IEBCOMPR   **
IEW0000     NAME   IEBCOMPR(R) ** WHEN MSG IEW0201 IS GENERATED **
IEW0201


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  COMPARE       00     630     1
                                        JPRINTRT     2A4    ZZPR         2E8
  MESSLIST     630     F40     1
                                        DDERROR1     AC0    MSG31        B08
  USERLAB     1570     583     1
  IEBCCS02    1AF8     BE9     1
                                        ACTCCS      1AF8    RDCARD      1AF8    GENLABEL    2564
  ANALY       26E8     701     1
                                        BLKRTN      2BDC    DDRTN       2BE4
  MAIN        2DF0    1FEC     1
                                        STARTP      2DF2    COMPAR      3D84    BEFNREND    4200    NORMEND     423C
                                        BLPRT       496E
  QSAM        4DE0     454     1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      29C            ANALY           ANALY            1           2A0            MAIN            MAIN             1
      2DC            MSG31           MESSLIST         1           2E4            MESSLIST        MESSLIST         1
     1978            JPRINTRT        COMPARE          1          197C            ZZPR            COMPARE          1
     2570            DDERROR1        MESSLIST         1          2574            DDRTN           ANALY            1
     2578            BLKRTN          ANALY            1          2710            ACTCCS          IEBCCS02         1
     2BFC            JPRINTRT        COMPARE          1          2C00            ZZPR            COMPARE          1
     2DDC            MSG31           MESSLIST         1          4AE8            DDERROR1        MESSLIST         1
     4AE0            JPRINTRT        COMPARE          1          4AE4            ZZPR            COMPARE          1
     4C80            QSAM            QSAM             1          4C84            USERLAB         USERLAB          1
     515C            STARTP          MAIN             1          5160            NORMEND         MAIN             1
     5164            BLPRT           MAIN             1          5168            ZZPR            COMPARE          1
     516C            JPRINTRT        COMPARE          1          5170            COMPAR          MAIN             1
     5174            BEFNREND        MAIN             1          5178            USERLAB         USERLAB          1
     5220            DDERROR1        MESSLIST         1
 ENTRY ADDRESS       00
 TOTAL LENGTH      5238

****IEBCOMPR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET

                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0201 WARNING - OVERLAY STRUCTURE CONTAINS ONLY ONE SEGMENT -- OVERLAY OPTION CANCELED.


IEW0000     INCLUDE UT506(IEBUPDTE,IEBUPLOG,IEBUPDT2,IEBUPXIT)
IEW0000     INCLUDE UT506(IEBUPNIT)
IEW0000     INCLUDE UT506(IEBASCAN,IEBBSCAN)
IEW0000     ENTRY IEBUPDTE     ** CANCEL OVERLAY FOR IEBUPDTE   **
IEW0000     NAME   IEBUPDTE(R) ** WHEN MSG IEW0201 IS GENERATED **
IEW0201


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBUPDTE      00     308     1
  IEBUPLOG     308     FD8     1
                                        CLOSEPRT     3AC    SYNADMSG     B64
  IEBUPDT2    12E0    195F     1
                                        DEACTV      275A
  IEBUPXIT    2C40     92C     1
                                        EODCT       2C40    OMEOD       2C4C    CTERROUT    2C5A    NMERROUT    2C88
                                        OMERROUT    2CE4    SPSYNAD     2CFE    OMDCBEX     2D86    NMDCBEX     2E4C
                                        CTDCBEX     2E5C    CTHDREXT    2E80    CTTRLEXT    2EB8    OMHDREXT    301E
                                        OMTRLEXT    3114    NMHDREXT    31C4    NMTRLEXT    3314
  IEBUPNIT    3570     601     1
  IEBASCAN    3B78     F68     1
  IEBBSCAN    4AE0     4FE     1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      1D4            CTERROUT        IEBUPXIT         1           2F8            CTERROUT        IEBUPXIT         1
      191            CTHDREXT        IEBUPXIT         1           195            CTTRLEXT        IEBUPXIT         1
      199            CTDCBEX         IEBUPXIT         1           21D            OMEOD           IEBUPXIT         1
      234            OMERROUT        IEBUPXIT         1           169            OMHDREXT        IEBUPXIT         1
      16D            OMTRLEXT        IEBUPXIT         1           175            OMDCBEX         IEBUPXIT         1
      1BD            EODCT           IEBUPXIT         1           28C            NMERROUT        IEBUPXIT         1
      17D            NMHDREXT        IEBUPXIT         1           181            NMTRLEXT        IEBUPXIT         1
      189            NMDCBEX         IEBUPXIT         1           2FC            IEBUPLOG        IEBUPLOG         1
      300            IEBUPDT2        IEBUPDT2         1           304            IEBUPNIT        IEBUPNIT         1
     12B8            SPSYNAD         IEBUPXIT         1          2984            IEBUPLOG        IEBUPLOG         1
     2988            IEBASCAN        IEBASCAN         1          33F8            IEBUPDT2        IEBUPDT2         1
     33FC            IEBUPLOG        IEBUPLOG         1          3400            DEACTV          IEBUPDT2         1
     3404            SYNADMSG        IEBUPLOG         1          3418            CLOSEPRT        IEBUPLOG         1
     3955            OMHDREXT        IEBUPXIT         1          3959            OMTRLEXT        IEBUPXIT         1
     3961            OMDCBEX         IEBUPXIT         1          3969            NMHDREXT        IEBUPXIT         1
     396D            NMTRLEXT        IEBUPXIT         1          3A20            OMERROUT        IEBUPXIT         1
     3A78            NMERROUT        IEBUPXIT         1          39C0            CTERROUT        IEBUPXIT         1
     3A09            OMEOD           IEBUPXIT         1          39A9            EODCT           IEBUPXIT         1
     3975            NMDCBEX         IEBUPXIT         1          397D            CTHDREXT        IEBUPXIT         1
     3981            CTTRLEXT        IEBUPXIT         1          3985            CTDCBEX         IEBUPXIT         1
     3B48            IEBUPLOG        IEBUPLOG         1          3B4C            IEBUPXIT        IEBUPXIT         1
     49D4            IEBUPLOG        IEBUPLOG         1          49D8            IEBUPDT2        IEBUPDT2         1

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     49DC            IEBBSCAN        IEBBSCAN         1          4F8C            IEBUPDT2        IEBUPDT2         1
     4F90            IEBUPLOG        IEBUPLOG         1
 ENTRY ADDRESS       00
 TOTAL LENGTH      4FE0

****IEBUPDTE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0201 WARNING - OVERLAY STRUCTURE CONTAINS ONLY ONE SEGMENT -- OVERLAY OPTION CANCELED.


IEW0000     INCLUDE UT506(IEBDSCPY,IEBVMS)
IEW0000     INCLUDE UT506(IEBBAM,IEBDV1)
IEW0000     INCLUDE UT506(IEBSCN)
IEW0000     INCLUDE UT506(IEBVCT)
IEW0000     INCLUDE UT506(IEBIOE)
IEW0000     INCLUDE UT506(IEBDRD,IEBWSU,IEBDWR)
IEW0000     INCLUDE UT506(IEBVDM)
IEW0000     INCLUDE UT506(IEBMCM)
IEW0000     INCLUDE UT506(IEBDRB)
IEW0000     INCLUDE UT506(IEBVTM)
IEW0000     INCLUDE UT506(IEBVTT)
IEW0000     INSERT IEBDSCPY,IEBDSCP2,IEBDSMCA,IEBVMS,IEBVMTXT
IEW0000     OVERLAY 1
IEW0000     INSERT IEBBAM,IEBDV1,IEBDV1MG
IEW0000     OVERLAY 1
IEW0000     INSERT IEBSCN
IEW0000     OVERLAY 1
IEW0000     INSERT IEBVCT
IEW0000     OVERLAY 1
IEW0000     INSERT IEBIOE,IEBIOEMG
IEW0000     OVERLAY 1
IEW0000     INSERT IEBDRD,IEBDRDR,IEBWSU,IEBWSUMG,IEBDWR,IEBDWRR
IEW0000     OVERLAY 2
IEW0000     INSERT IEBVDM
IEW0000     OVERLAY 2
IEW0000     INSERT IEBMCM
IEW0000     OVERLAY 2
IEW0000     INSERT IEBDRB
IEW0000     OVERLAY 2
IEW0000     INSERT IEBVTM
IEW0000     OVERLAY 2
IEW0000     INSERT IEBVTT
IEW0000     ENTRY IEBDSCPY
IEW0000     NAME    IEBCOPY(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

 $SEGTAB        00      44     1
  IEBDSCPY      48     A23     1
                                        IEBDSCME     142    IEBDSCNI     200    IEBDSCNM     890    IEBDSCEF     8DA
                                        IEBDSCCE     8E0    IEBDSCPE     8FC    IEBDSCSX     9C6    IEBDSCM4     9CC
                                        IEBDSRE      9D8    IEBDSWE      9E4
  IEBDSCP2     A70     6E8     1
                                        IEBDSTOC     A70    IEBDSCOT     AA2    IEBDSCGD     AD6    IEBDSCBT     BB4
                                        IEBDSCGI     E3E    IEBDSCKO    1068
  IEBDSMCA    1158     A98     1
  IEBVMS      1BF0     4EC     1
  IEBVMTXT    20E0     BB0     1
 $ENTAB       2C90     114     1

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION




  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      1E0            IEBDSMCA        IEBDSMCA         1           148            IEBDSMCA        IEBDSMCA         1
      14C            IEBDSMCA        IEBDSMCA         1          14BC            IEBDV0          IEBDV1           2
     14C0            IEBDV1          IEBDV1           2          14C4            IEBDV2          IEBDV1           2
     14C8            IEBDV3          IEBDV1           2          14CC            IEBDV4          IEBDV1           2
     14D0            IEBSCN          IEBSCN           3          14D4            IEBSCF          IEBSCN           3
     14D8            IEBDSCEF        IEBDSCPY         1          14DC            IEBDSCCE        IEBDSCPY         1
     14E0            IEBVMS          IEBVMS           1          14E4            IEBDSCPE        IEBDSCPY         1
     14E8            IEBDSCNI        IEBDSCPY         1          14EC            IEBDSCSX        IEBDSCPY         1
     14F0            IEBDSCME        IEBDSCPY         1          14F4            IEBDSCM4        IEBDSCPY         1
     14F8            IEBVDRTM        IEBVDM           7          14FC            IEBVCT          IEBVCT           4
     1500            IEBVTT          IEBVTT          11          1504            IEBDSCGD        IEBDSCP2         1
     1508            IEBDSCBT        IEBDSCP2         1          150C            IEBDSCGI        IEBDSCP2         1
     1510            IEBDSCKO        IEBDSCP2         1          1514            IEBDRD          IEBDRD           6
     1518            IEBWSU          IEBWSU           6          151C            IEBDSTOC        IEBDSCP2         1
     1520            IEBDSCOT        IEBDSCP2         1          1524            IEBDWR          IEBDWR           6
     1528            IEBIOE          IEBIOE           5          152C            IEBDSCNM        IEBDSCPY         1
     1530            IEBDRB          IEBDRB           9          1534            IEBMCM          IEBMCM           8
     1538            IEBVDM          IEBVDM           7          153C            IEBVTM          IEBVTM          10
     1540            IEBDSRE         IEBDSCPY         1          1544            IEBDSWE         IEBDSCPY         1
     1548            IEBDRDR         IEBDRD           6          154C            IEBDWRR         IEBDWR           6
     1550            IEBBAM          IEBBAM           2          1554            IEBDVJCB        IEBDV1           2
     1560            IEBDVJCB        IEBDV1           2          1EC8            IEBVMTXT        IEBVMTXT         1
     1FCC            IEBVMTXT        IEBVMTXT         1          1FD0            IEBVMTXT        IEBVMTXT         1
     1FD4            IEBVMTXT        IEBVMTXT         1          1FD8            IEBVMTXT        IEBVMTXT         1
     1FDC            IEBVMTXT        IEBVMTXT         1          1FE0            IEBVMTXT        IEBVMTXT         1
     1FE4            IEBVMTXT        IEBVMTXT         1          1FE8            IEBVMTXT        IEBVMTXT         1
     1FEC            IEBVMTXT        IEBVMTXT         1          1FF0            IEBVMTXT        IEBVMTXT         1
     1FF4            IEBVMTXT        IEBVMTXT         1          1FF8            IEBVMTXT        IEBVMTXT         1
     1FFC            IEBVMTXT        IEBVMTXT         1          2000            IEBVMTXT        IEBVMTXT         1
     2004            IEBVMTXT        IEBVMTXT         1          2008            IEBVMTXT        IEBVMTXT         1
     200C            IEBVMTXT        IEBVMTXT         1          2010            IEBVMTXT        IEBVMTXT         1
     2014            IEBVMTXT        IEBVMTXT         1          2018            IEBVMTXT        IEBVMTXT         1
     201C            IEBVMTXT        IEBVMTXT         1          2020            IEBVMTXT        IEBVMTXT         1
     2024            IEBVMTXT        IEBVMTXT         1          2028            IEBVMTXT        IEBVMTXT         1
     202C            IEBVMTXT        IEBVMTXT         1          2030            IEBVMTXT        IEBVMTXT         1
     2034            IEBVMTXT        IEBVMTXT         1          2038            IEBVMTXT        IEBVMTXT         1
     203C            IEBVMTXT        IEBVMTXT         1          2040            IEBVMTXT        IEBVMTXT         1
     2044            IEBVMTXT        IEBVMTXT         1          2048            IEBVMTXT        IEBVMTXT         1
     204C            IEBVMTXT        IEBVMTXT         1          2050            IEBVMTXT        IEBVMTXT         1
     2054            IEBVMTXT        IEBVMTXT         1          2058            IEBVMTXT        IEBVMTXT         1
     205C            IEBVMTXT        IEBVMTXT         1          2060            IEBVMTXT        IEBVMTXT         1
     2064            IEBVMTXT        IEBVMTXT         1          2068            IEBVMTXT        IEBVMTXT         1
     206C            IEBVMTXT        IEBVMTXT         1          2070            IEBVMTXT        IEBVMTXT         1
     2074            IEBVMTXT        IEBVMTXT         1          2078            IEBVMTXT        IEBVMTXT         1
     207C            IEBVMTXT        IEBVMTXT         1          2080            IEBVMTXT        IEBVMTXT         1
     2084            IEBVMTXT        IEBVMTXT         1          2088            IEBVMTXT        IEBVMTXT         1
     208C            IEBVMTXT        IEBVMTXT         1          2090            IEBVMTXT        IEBVMTXT         1

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     2094            IEBVMTXT        IEBVMTXT         1          2098            IEBVMTXT        IEBVMTXT         1
     209C            IEBVMTXT        IEBVMTXT         1          20A0            IEBVMTXT        IEBVMTXT         1
     20A4            IEBVMTXT        IEBVMTXT         1          20A8            IEBVMTXT        IEBVMTXT         1
     20AC            IEBVMTXT        IEBVMTXT         1          20B0            IEBVMTXT        IEBVMTXT         1
     20B4            IEBVMTXT        IEBVMTXT         1          20B8            IEBVMTXT        IEBVMTXT         1
     20BC            IEBVMTXT        IEBVMTXT         1          20C0            IEBVMTXT        IEBVMTXT         1
     20C4            IEBVMTXT        IEBVMTXT         1          20C8            IEBVMTXT        IEBVMTXT         1
     20CC            IEBVMTXT        IEBVMTXT         1          20D0            IEBVMTXT        IEBVMTXT         1
     20D4            IEBVMTXT        IEBVMTXT         1          20D8            IEBVMTXT        IEBVMTXT         1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBBAM      2DA8     310     2
  IEBDV1      30B8     FD9     2
                                        IEBDV2      344C    IEBDV0      3794    IEBDV3      3904    IEBDV4      3A1C
                                        IEBDVJCB    3D74
  IEBDV1MG    4098      25     2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     3FCC            IEBDV1MG        IEBDV1MG         2

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBSCN      2DA8     F94     3
                                        IEBSCF      3838


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBVCT      2DA8     2E0     4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.






  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBIOE      2DA8     52F     5
  IEBIOEMG    32D8     158     5



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     3250            IEBIOEMG        IEBIOEMG         5

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBDRD      2DA8     4EB     6
                                        IEBDRDR     30B8
  IEBWSU      3298     A33     6
  IEBWSUMG    3CD0      F5     6
  IEBDWR      3DC8     430     6
                                        IEBDWRR     4136


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     3C3C            IEBWSUMG        IEBWSUMG         6

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBVDM      41F8     6EC     7
                                        IEBVDRTM    42CE


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBMCM      41F8     290     8




  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBDRB      41F8     460     9



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBVTM      41F8     87F    10



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBVTT      41F8     398    11



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.


 ENTRY ADDRESS       48
 TOTAL LENGTH      4A78

****IEBCOPY   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0004
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK79.R0000257      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK79.S0000258      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK79.S0000258      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG83    / START 78240.1946
IEF374I STEP /SG83    / STOP  78240.1946 CPU   0MIN 00.38SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:21.91   ALLOC START    19:46:21.92   MAIN REGION ----- 256K                          *
*   STEP NAME SG83       STEP END TIME  19:46:22.42   PGM START TIME 19:46:21.98   MAIN STORAGE ---- 130K    CONDITION CODE 0004   *
*   PSTP NAME            ELAPSED TIME   00:00:00.51   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.38   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 112       0158 ----------- 91       0150 ---------- 122       0250 ---------- 509       0151 ------------ 0    *
*   0130 ----------- 59                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK79  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:22.45   ALLOC START    19:46:22.47   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:22.49   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK79 / START 78240.1946
IEF376I  JOB /R21LK79 / STOP  78240.1946 CPU   0MIN 00.38SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK79    JOB READ TIME 19:45:15.61   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.38   *
*   JOB CLASS A          JOB INIT TIME 19:46:21.91   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.59   *
*   ACCOUNT              JOB END TIME  19:46:22.50   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   8888888     00000                              A
            RRRRRRRRR  222222222      11     LL         KK    KK   888888888   0000000                            AAA
            RR     RR  22     22     111     LL         KK   KK    88     88  00     00                          AA AA
            RR     RR        22       11     LL         KK  KK     88     88  00    000                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK       8888888   00   0 00                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK       8888888   00  0  00                        AA     AA
            RR  RR        22          11     LL         KKK KK     88     88  00 0   00                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    88     88  000    00                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   888888888   0000000                         AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   8888888     00000                          AA     AA

***********A  START   R21LK80    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK80    START  A***********
***********A  START   R21LK80    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK80    START  A***********
***********A  START   R21LK80    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK80    START  A***********
***********A  START   R21LK80    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK80    START  A***********
***********A  START   R21LK80    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK80    START  A***********


//R21LK80 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG84 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REUS,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK80  SG84
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REUS,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IEHMVESI)
IEW0000     NAME       IEHMVESI(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSI      00     546
                                        IEHMVESI      00
  MESS         548      52



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      540            MESS            MESS
 ENTRY ADDRESS       00
 TOTAL LENGTH       5A0

****IEHMVESI  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESH)
IEW0000     NAME       IEHMVESH(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSH      00     322
                                        IEHMVESH      00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       328

****IEHMVESH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESU)
IEW0000     NAME       IEHMVESU(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSU      00     211
                                        IEHMVESU      00

 ENTRY ADDRESS       00
 TOTAL LENGTH       218

****IEHMVESU  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESO)
IEW0000     NAME       IEHMVESO(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSO      00     278
                                        IEHMVESO      00
  IEHMSGSO     278      5A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      274            IEHMSGSO        IEHMSGSO
 ENTRY ADDRESS       00
 TOTAL LENGTH       2D8

****IEHMVESO  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESP)
IEW0000     NAME       IEHMVESP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSP      00     3B4
                                        IEHMVESP      00
  IEHMSGSP     3B8     193



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      3B0            IEHMSGSP        IEHMSGSP
 ENTRY ADDRESS       00
 TOTAL LENGTH       550

****IEHMVESP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESC)
IEW0000     NAME       IEHMVESC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVESC      00     E44
  IEHMSGSC     E48      79



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      E40            IEHMSGSC        IEHMSGSC
 ENTRY ADDRESS       00
 TOTAL LENGTH       EC8

****IEHMVESC  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESK)
IEW0000     NAME       IEHMVESK(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSK      00     35C
                                        IEHMVESK      00
  MESS         360      32



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2CC            MESS            MESS
 ENTRY ADDRESS       00
 TOTAL LENGTH       398

****IEHMVESK  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESR)
IEW0000     NAME       IEHMVESR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSR      00     2E6
                                        IEHMVESR      00

 ENTRY ADDRESS       00
 TOTAL LENGTH       2E8

****IEHMVESR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESJ)
IEW0000     NAME       IEHMVESJ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RDCDRT        00     617
                                        IEHMVESJ      00    KEOF         5C2
  IEHMVSSJ     618      00



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       618

****IEHMVESJ  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK80.R0000259      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK80.S0000260      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK80.S0000260      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG84    / START 78240.1946
IEF374I STEP /SG84    / STOP  78240.1946 CPU   0MIN 00.23SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:22.55   ALLOC START    19:46:22.56   MAIN REGION ----- 256K                          *
*   STEP NAME SG84       STEP END TIME  19:46:22.93   PGM START TIME 19:46:22.62   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.38   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.23   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 35       0150 ----------- 70       0250 ----------- 87       0151 ------------ 0    *
*   0130 ----------- 19                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK80  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:22.96   ALLOC START    19:46:22.97   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:22.99   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK80 / START 78240.1946
IEF376I  JOB /R21LK80 / STOP  78240.1946 CPU   0MIN 00.23SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK80    JOB READ TIME 19:45:15.86   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.23   *
*   JOB CLASS A          JOB INIT TIME 19:46:22.55   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.45   *
*   ACCOUNT              JOB END TIME  19:46:23.00   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   8888888        1                               A
            RRRRRRRRR  222222222      11     LL         KK    KK   888888888      11                              AAA
            RR     RR  22     22     111     LL         KK   KK    88     88     111                             AA AA
            RR     RR        22       11     LL         KK  KK     88     88      11                            AA   AA
            RRRRRRRRR       22        11     LL         KK KK       8888888       11                           AA     AA
            RRRRRRRR       22         11     LL         KKKKK       8888888       11                           AA     AA
            RR  RR        22          11     LL         KKK KK     88     88      11                           AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    88     88      11                           AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   888888888    111111                         AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   8888888     111111                         AA     AA

***********A  START   R21LK81    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK81    START  A***********
***********A  START   R21LK81    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK81    START  A***********
***********A  START   R21LK81    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK81    START  A***********
***********A  START   R21LK81    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK81    START  A***********
***********A  START   R21LK81    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK81    START  A***********


//R21LK81 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG85 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REUS'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IEHMVXSF)
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK81  SG85
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REUS
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IEHMVXSF,IEHMVSSF)
IEW0000     ENTRY   IEHMVXSF
IEW0000     NAME    IEHMVXSF(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVXSF      00      34
  IEHVOLMT      38     B18
                                        IEHMVESF      38


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       30            IEHVOLMT        IEHVOLMT
 ENTRY ADDRESS       00
 TOTAL LENGTH       B50

****IEHMVXSF  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVSRX,IEHMVSRM,IEHMVSSY)
IEW0000     INCLUDE UT506(IEHMVMSY)
IEW0000     ENTRY   IEHMVESY
IEW0000     NAME    IEHMVESY(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHDCBDM      00     950
                                        IEHMVESX      00    DCBBUILD     7EC
  IEHMVSRM     950     1C6
                                        IEHMVERM     950
  IEHMVSSY     B18     6E8
                                        IEHMVESY     B18    UNLREC1      CDA    PREABORT     FD4    MSG         10B2
  IEHMVMSY    1200     582
                                        MSGSTART    1200    IEH4DD      125C    NORMALM     1284    MSGHEAD     12AC


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      878            MSG             IEHMVSSY                     87C            PREABORT        IEHMVSSY
      D2C            IEHMVERM        IEHMVSRM                     D88            IEHMVESX        IEHDCBDM
     11F4            MSGSTART        IEHMVMSY                    11F8            NORMALM         IEHMVMSY
     11FC            IEH4DD          IEHMVMSY                    11E8            MSGHEAD         IEHMVMSY

 ENTRY ADDRESS      B18
 TOTAL LENGTH      1788

****IEHMVESY  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVSSX,IEHMVSRY,IEHMVSTC)
IEW0000     INCLUDE UT506(IEHMVMRY)
IEW0000     ENTRY   IEHMVESY
IEW0000     NAME    IEHMVESV(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSX      00     B8A
                                        IEHMVESX      00
  IEHMVSSY     B90     308
                                        IEHMVESY     B90    PREABORT     C2E    MSG          D0A
  IEHMVSTC     E98     69A
                                        IEHMVETC     E98
  MSGSECT     1538      25
  IEHMVMRY    1560     500
                                        MSGSTART    1560    IEH4DD      15CC    NORMALM     1600    MSGHEAD     1614


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      A28            IEHMVETC        IEHMVSTC                     A2C            MSG             IEHMVSSY
      B1C            PREABORT        IEHMVSSY                     C20            IEHMVESX        IEHMVSSX
      E8C            MSGSTART        IEHMVMRY                     E90            NORMALM         IEHMVMRY
      E94            IEH4DD          IEHMVMRY                     E88            MSGHEAD         IEHMVMRY
     1528            MSGSECT         MSGSECT
 ENTRY ADDRESS      B90
 TOTAL LENGTH      1A60

****IEHMVESV  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVSRV,IEHMVSRZ,IEHMVSRK)
IEW0000     INCLUDE UT506(IEHMVMRZ)
IEW0000     ENTRY   IEHMVESZ
IEW0000     NAME    IEHMVESX(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSRV      00     A30
                                        IEHMVESV      00
  IEHMVSRZ     A30     354
                                        IEHMVESZ     A30    COPYRTN      A78    UNLREC1      AC6    PREABORT     B18
                                        MSG          C04
  IEHMVSRK     D88     2B0
                                        IEHMVERK     D88
  IEHMVMRK    1038      62
  IEHMVMRZ    10A0     694
                                        MSGSTART    10A0    IEH4DD      10F0    NORMALM     1114    MSGHEAD     114C


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       CC            COPYRTN         IEHMVSRZ                     630            IEHMVERK        IEHMVSRK
      650            UNLREC1         IEHMVSRZ                     9E4            MSG             IEHMVSRZ
      A0C            PREABORT        IEHMVSRZ                     B14            IEHMVESV        IEHMVSRV
      D74            MSGSTART        IEHMVMRZ                     D78            NORMALM         IEHMVMRZ
      D7C            IEH4DD          IEHMVMRZ                     D70            MSGHEAD         IEHMVMRZ
     1009            IEHMVMRK        IEHMVMRK
 ENTRY ADDRESS      A30
 TOTAL LENGTH      1738

****IEHMVESX  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVSSZ,IEHMVSSV)
IEW0000     INCLUDE UT506(IEHMVMRZ)
IEW0000     ENTRY   IEHMVESZ
IEW0000     NAME    IEHMVESZ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSZ      00     720
                                        IEHMVESZ      00    COPYRTN       B0    PREABORT     15A    MSG          228
                                        KK1          3CE    KK2          3FC
  IEHCULAT     720     405
                                        IEHMVESV     720    CALLMT       A34    RTNVM        A82
  IEHMVMRZ     B28     694
                                        MSGSTART     B28    IEH4DD       B78    NORMALM      B9C    MSGHEAD      BD4


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       F8            IEHMVESV        IEHCULAT                      FC            RTNVM           IEHCULAT
      39C            IEH4DD          IEHMVMRZ                     394            MSGSTART        IEHMVMRZ
      398            NORMALM         IEHMVMRZ                     390            MSGHEAD         IEHMVMRZ
      4BC            CALLMT          IEHCULAT                     AF8            COPYRTN         IEHMVSSZ
      AF0            KK1             IEHMVSSZ                     AF4            KK2             IEHMVSSZ
      B00            PREABORT        IEHMVSSZ
 ENTRY ADDRESS       00
 TOTAL LENGTH      11C0

****IEHMVESZ  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVSRD,IEHMVSRM)
IEW0000     ENTRY   IEHMVERD
IEW0000     NAME    IEHMVERD(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSRD      00     6D0
                                        IEHMVERD      00
  MESSAGES     6D0     136
  IEHMVSRM     808     1C6
                                        IEHMVERM     808


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      624            IEHMVERM        IEHMVSRM                     630            MESSAGES        MESSAGES

 ENTRY ADDRESS       00
 TOTAL LENGTH       9D0

****IEHMVERD  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVSRA,IEHMVSRK)
IEW0000     ENTRY   IEHMVERA
IEW0000     NAME    IEHMVERA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSRA      00     688
                                        IEHMVERA      00
  MSGTAB       688     20C
  IEHMVSRK     898     2B0
                                        IEHMVERK     898
  IEHMVMRK     B48      62



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      61C            IEHMVERK        IEHMVSRK                     661            MSGTAB          MSGTAB
      665            MSGTAB          MSGTAB                       669            MSGTAB          MSGTAB
      66D            MSGTAB          MSGTAB                       675            MSGTAB          MSGTAB
      679            MSGTAB          MSGTAB                       67D            MSGTAB          MSGTAB
      681            MSGTAB          MSGTAB                       685            MSGTAB          MSGTAB
      B19            IEHMVMRK        IEHMVMRK
 ENTRY ADDRESS       00
 TOTAL LENGTH       BB0

****IEHMVERA  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVSTA,IEHMVSRK,IEHMVSRM)
IEW0000     INCLUDE UT506(IEHMVMTA)
IEW0000     ENTRY   IEHMVETA
IEW0000     NAME    IEHMVETA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSTA      00     7F4
                                        IEHMVETA      00    A            794    B            798    C            79C
                                        D            7A0    E            7A4    F            7A8    G            7AC
                                        H            7B0    J            7B4    MYEOD        7B8
  IEHMVSRK     7F8     2B0
                                        IEHMVERK     7F8
  IEHMVMRK     AA8      62
  IEHMVSRM     B10     1C6
                                        IEHMVERM     B10
  IEHMVMTA     CD8     3D6
                                        TATBL1       CD8    TAEODAD      D6C    MSG300       DD8    MSG301      1040
                                        MSGTERM     1046


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      780            IEHMVERM        IEHMVSRM                     784            IEHMVERK        IEHMVSRK
      7BC            TATBL1          IEHMVMTA                     7C0            TATBL1          IEHMVMTA
      7C4            TAEODAD         IEHMVMTA                     7C8            MSGTERM         IEHMVMTA
      7CC            MSG300          IEHMVMTA                     7D0            MSG301          IEHMVMTA
      A79            IEHMVMRK        IEHMVMRK                     CDC            A               IEHMVSTA
      CEC            B               IEHMVSTA                     CFC            C               IEHMVSTA
      D1C            D               IEHMVSTA                     D2C            E               IEHMVSTA
      D64            F               IEHMVSTA                     D04            G               IEHMVSTA
      D0C            G               IEHMVSTA                     D3C            G               IEHMVSTA
      D8C            G               IEHMVSTA                     D9C            G               IEHMVSTA
      DA4            G               IEHMVSTA                     DAC            G               IEHMVSTA
      DB4            G               IEHMVSTA                     DD4            G               IEHMVSTA
      CE4            H               IEHMVSTA                     CF4            H               IEHMVSTA
      D14            H               IEHMVSTA                     D24            H               IEHMVSTA
      D34            H               IEHMVSTA                     D44            H               IEHMVSTA
      D4C            H               IEHMVSTA                     D54            H               IEHMVSTA
      D5C            H               IEHMVSTA                     D74            H               IEHMVSTA
      D7C            H               IEHMVSTA                     D84            H               IEHMVSTA
      D94            H               IEHMVSTA                     DBC            H               IEHMVSTA
      DC4            H               IEHMVSTA                     DCC            J               IEHMVSTA
      D6C            MYEOD           IEHMVSTA
 ENTRY ADDRESS       00
 TOTAL LENGTH      10B0

****IEHMVETA  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVSTL,IEHMVSRK,IEHMVSRM)
IEW0000     INCLUDE UT506(IEHMVMTL)
IEW0000     ENTRY   IEHMVETL
IEW0000     NAME    IEHMVETL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSTL      00     AE8
                                        IEHMVETL      00
  IEHMVSRK     AE8     2B0
                                        IEHMVERK     AE8
  IEHMVMRK     D98      62
  IEHMVSRM     E00     1C6
                                        IEHMVERM     E00
  IEHMVMTL     FC8     24F
                                        M01          FC8    M02          FCC    M03          FD0    M04          FD4
                                        M05          FD8    M06          FDC    M07          FE0    M08          FE4


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      AC8            M01             IEHMVMTL                     ACC            M02             IEHMVMTL
      AD0            M03             IEHMVMTL                     AD4            M04             IEHMVMTL
      AD8            M05             IEHMVMTL                     ADC            M06             IEHMVMTL
      AE0            M07             IEHMVMTL                     AE4            M08             IEHMVMTL
      A0C            IEHMVERM        IEHMVSRM                     A10            IEHMVERK        IEHMVSRK
      D69            IEHMVMRK        IEHMVMRK
 ENTRY ADDRESS       00
 TOTAL LENGTH      1218

****IEHMVETL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVSSS)
IEW0000     ENTRY   IEHMVESS
IEW0000     NAME    IEHMVESS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSS      00     E48
                                        IEHMVESS      00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       E48

****IEHMVESS  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVETG)
IEW0000     ENTRY IEHMVETG
IEW0000     NAME IEHMVETG(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSTG      00     D0E
                                        IEHMVETG      00
  MESSAGES     D10     211



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      C00            MESSAGES        MESSAGES
 ENTRY ADDRESS       00
 TOTAL LENGTH       F28

****IEHMVETG  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESM)
IEW0000     ENTRY IEHMVESM
IEW0000     NAME IEHMVESM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSM      00     812
                                        IEHMVESM      00
  MESSAGER     818     218



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      725            MESSAGER        MESSAGER                     729            MESSAGER        MESSAGER
      72D            MESSAGER        MESSAGER                     731            MESSAGER        MESSAGER
      735            MESSAGER        MESSAGER                     739            MESSAGER        MESSAGER
      73D            MESSAGER        MESSAGER                     741            MESSAGER        MESSAGER
      745            MESSAGER        MESSAGER
 ENTRY ADDRESS       00
 TOTAL LENGTH       A30

****IEHMVESM  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESL)
IEW0000     ENTRY IEHMVESL
IEW0000     NAME IEHMVESL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSL      00     67B
                                        IEHMVESL      00
  SPEAK        680     218



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      649            SPEAK           SPEAK                        64D            SPEAK           SPEAK
      651            SPEAK           SPEAK                        655            SPEAK           SPEAK
      659            SPEAK           SPEAK                        65D            SPEAK           SPEAK
      661            SPEAK           SPEAK                        665            SPEAK           SPEAK
      669            SPEAK           SPEAK                        66D            SPEAK           SPEAK

 ENTRY ADDRESS       00
 TOTAL LENGTH       898

****IEHMVESL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVETJ)
IEW0000     ENTRY IEHMVETJ
IEW0000     NAME IEHMVETJ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSTJ      00     AC7
                                        IEHMVETJ      00
  ORATOR       AC8     312



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      A8D            ORATOR          ORATOR                       A91            ORATOR          ORATOR
      A95            ORATOR          ORATOR                       A99            ORATOR          ORATOR
      A9D            ORATOR          ORATOR                       AA1            ORATOR          ORATOR
      AA5            ORATOR          ORATOR                       AA9            ORATOR          ORATOR
      AAD            ORATOR          ORATOR                       AB1            ORATOR          ORATOR
      AB5            ORATOR          ORATOR                       AB9            ORATOR          ORATOR
      ABD            ORATOR          ORATOR                       AC1            ORATOR          ORATOR

 ENTRY ADDRESS       00
 TOTAL LENGTH       DE0

****IEHMVETJ  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESQ,IEHMVMSQ)
IEW0000     ENTRY IEHMVESQ
IEW0000     NAME IEHMVESQ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSQ      00     5E2
                                        IEHMVESQ      00
  IEHMVMSQ     5E8     225



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      5D8            IEHMVMSQ        IEHMVMSQ
 ENTRY ADDRESS       00
 TOTAL LENGTH       810

****IEHMVESQ  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESN,IEHMVMSN)
IEW0000     ENTRY IEHMVESN
IEW0000     NAME IEHMVESN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSN      00     758
                                        IEHMVESN      00
  IEHMVMSN     758     146



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      6B4            IEHMVMSN        IEHMVMSN
 ENTRY ADDRESS       00
 TOTAL LENGTH       8A0

****IEHMVESN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE UT506(IEHMVESA)
IEW0000     ENTRY IEHMVESA
IEW0000     NAME IEHMVESA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSA      00     1AC
                                        IEHMVESA      00
  MESSAGE      1B0     250



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      15D            MESSAGE         MESSAGE                      161            MESSAGE         MESSAGE
      165            MESSAGE         MESSAGE                      169            MESSAGE         MESSAGE
      16D            MESSAGE         MESSAGE                      171            MESSAGE         MESSAGE
      175            MESSAGE         MESSAGE                      179            MESSAGE         MESSAGE
      17D            MESSAGE         MESSAGE                      181            MESSAGE         MESSAGE
      185            MESSAGE         MESSAGE                      189            MESSAGE         MESSAGE
      18D            MESSAGE         MESSAGE                      191            MESSAGE         MESSAGE
      195            MESSAGE         MESSAGE                      199            MESSAGE         MESSAGE
      19D            MESSAGE         MESSAGE                      1A1            MESSAGE         MESSAGE
      1A5            MESSAGE         MESSAGE                      1A8            MESSAGE         MESSAGE

 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IEHMVESA  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK81.R0000261      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK81.S0000262      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK81.S0000262      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG85    / START 78240.1946
IEF374I STEP /SG85    / STOP  78240.1946 CPU   0MIN 00.49SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:23.03   ALLOC START    19:46:23.04   MAIN REGION ----- 256K                          *
*   STEP NAME SG85       STEP END TIME  19:46:23.66   PGM START TIME 19:46:23.11   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.63   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.49   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0159 ----------- 95       0150 ---------- 142       0250 ---------- 389       0151 ------------ 0    *
*   0130 ----------- 58                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK81  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:23.94   ALLOC START    19:46:23.95   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:23.97   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK81 / START 78240.1946
IEF376I  JOB /R21LK81 / STOP  78240.1946 CPU   0MIN 00.49SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK81    JOB READ TIME 19:45:16.18   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.49   *
*   JOB CLASS A          JOB INIT TIME 19:46:23.03   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.95   *
*   ACCOUNT              JOB END TIME  19:46:23.98   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   8888888    2222222                             A
            RRRRRRRRR  222222222      11     LL         KK    KK   888888888  222222222                           AAA
            RR     RR  22     22     111     LL         KK   KK    88     88  22     22                          AA AA
            RR     RR        22       11     LL         KK  KK     88     88        22                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK       8888888        22                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK       8888888       22                           AA     AA
            RR  RR        22          11     LL         KKK KK     88     88     22                            AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    88     88    22                             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   888888888   22222222                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   8888888   222222222                        AA     AA

***********A  START   R21LK82    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK82    START  A***********
***********A  START   R21LK82    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK82    START  A***********
***********A  START   R21LK82    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK82    START  A***********
***********A  START   R21LK82    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK82    START  A***********
***********A  START   R21LK82    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK82    START  A***********


//R21LK82 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG86 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK82  SG86
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IEHMVXSE)
IEW0000     ALIAS      IEHMVESE
IEW0000     NAME       IEHMVXSE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSE      00     D67
                                        IEHMVXSE      00    IEHMVESE      6E


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D68

****IEHMVXSE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEHMVESE  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE UT506(IEHMVEST)
IEW0000     NAME       IEHMVEST(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSST      00     83A
                                        IEHMVEST      00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       840

****IEHMVEST  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE UT506(IEHMOVE)
IEW0000     ENTRY IEHMVESD
IEW0000     NAME       IEHMOVE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHMVSSD      00     2D8
                                        IEHMVESD      00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       2D8

****IEHMOVE   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK82.R0000263      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK82.S0000264      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK82.S0000264      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG86    / START 78240.1946
IEF374I STEP /SG86    / STOP  78240.1946 CPU   0MIN 00.12SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:24.01   ALLOC START    19:46:24.02   MAIN REGION ----- 256K                          *
*   STEP NAME SG86       STEP END TIME  19:46:24.26   PGM START TIME 19:46:24.09   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.25   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 12       0150 ----------- 24       0250 ----------- 32       0151 ------------ 0    *
*   0130 ------------ 9                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK82  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:24.28   ALLOC START    19:46:24.30   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:24.32   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK82 / START 78240.1946
IEF376I  JOB /R21LK82 / STOP  78240.1946 CPU   0MIN 00.12SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK82    JOB READ TIME 19:45:16.60   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.12   *
*   JOB CLASS A          JOB INIT TIME 19:46:24.01   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.32   *
*   ACCOUNT              JOB END TIME  19:46:24.33   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   8888888   333333333                            A
            RRRRRRRRR  222222222      11     LL         KK    KK   888888888  333333333                           AAA
            RR     RR  22     22     111     LL         KK   KK    88     88  33    33                           AA AA
            RR     RR        22       11     LL         KK  KK     88     88       33                           AA   AA
            RRRRRRRRR       22        11     LL         KK KK       8888888       3333                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK       8888888      333333                        AA     AA
            RR  RR        22          11     LL         KKK KK     88     88         33                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    88     88  33     33                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   888888888  333333333                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   8888888    3333333                         AA     AA

***********A  START   R21LK83    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK83    START  A***********
***********A  START   R21LK83    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK83    START  A***********
***********A  START   R21LK83    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK83    START  A***********
***********A  START   R21LK83    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK83    START  A***********
***********A  START   R21LK83    SYS SYSA   WTR 00E   07:47:32 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK83    START  A***********


//R21LK83 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG87 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,RENT,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK83  SG87
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,RENT,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IEBISAM)
IEW0000     NAME IEBISAM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBISAM       00     4B4


 ENTRY ADDRESS       00
 TOTAL LENGTH       4B8

****IEBISAM   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE UT506(IEBISU,IEBISSO)
IEW0000     ENTRY IEBISU
IEW0000     NAME IEBISU(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBISU        00     374
  IEBISSO      378     3EC



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      280            IEBISSO         IEBISSO
 ENTRY ADDRESS       00
 TOTAL LENGTH       768

****IEBISU    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE UT506(IEBISL,IEBISSI)
IEW0000     ENTRY IEBISL
IEW0000     NAME IEBISL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBISL        00     564
  IEBISSI      568     3BC



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      470            IEBISSI         IEBISSI
 ENTRY ADDRESS       00
 TOTAL LENGTH       928

****IEBISL    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE UT506(IEBISF,IEBISMES)
IEW0000     ENTRY IEBISF
IEW0000     NAME IEBISF(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBISF        00     2B2
  IEBISMES     2B8     4D8
                                        MESSTBL      2B8


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      1AC            MESSTBL         IEBISMES
 ENTRY ADDRESS       00
 TOTAL LENGTH       790

****IEBISF    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE UT506(IEBISC)
IEW0000     NAME IEBISC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBISC        00     630



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       630

****IEBISC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE UT506(IEBISPL)
IEW0000     NAME IEBISPL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBISPL       00     7D0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       7D0

****IEBISPL   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK83.R0000265      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK83.S0000266      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK83.S0000266      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG87    / START 78240.1946
IEF374I STEP /SG87    / STOP  78240.1946 CPU   0MIN 00.17SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:24.36   ALLOC START    19:46:24.37   MAIN REGION ----- 256K                          *
*   STEP NAME SG87       STEP END TIME  19:46:24.91   PGM START TIME 19:46:24.44   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.55   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.17   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0130 ----------- 23       0150 ----------- 42       0250 ----------- 68       0151 ------------ 0    *
*   0130 ----------- 16                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK83  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:24.93   ALLOC START    19:46:24.95   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:24.97   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK83 / START 78240.1946
IEF376I  JOB /R21LK83 / STOP  78240.1946 CPU   0MIN 00.17SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK83    JOB READ TIME 19:45:16.93   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.17   *
*   JOB CLASS A          JOB INIT TIME 19:46:24.36   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.62   *
*   ACCOUNT              JOB END TIME  19:46:24.98   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   8888888        44                              A
            RRRRRRRRR  222222222      11     LL         KK    KK   888888888      444                             AAA
            RR     RR  22     22     111     LL         KK   KK    88     88     4444                            AA AA
            RR     RR        22       11     LL         KK  KK     88     88    44 44                           AA   AA
            RRRRRRRRR       22        11     LL         KK KK       8888888    44  44                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK       8888888   44   44                          AA     AA
            RR  RR        22          11     LL         KKK KK     88     88  444444444                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    88     88  444444444                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   888888888       44                          AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   8888888        44                          AA     AA

***********A  START   R21LK84    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK84    START  A***********
***********A  START   R21LK84    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK84    START  A***********
***********A  START   R21LK84    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK84    START  A***********
***********A  START   R21LK84    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK84    START  A***********
***********A  START   R21LK84    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK84    START  A***********


//R21LK84 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG88 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,RENT,REFR'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK84  SG88
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,RENT,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IEBDG)
IEW0000     NAME IEBDG(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBDG         00     FD2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       FD8

****IEBDG     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE UT506(IEBDGCUP)
IEW0000     NAME IEBDGCUP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBDGCUP      00     409


 ENTRY ADDRESS       00
 TOTAL LENGTH       410

****IEBDGCUP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE UT506(IEBFDANL)
IEW0000     NAME IEBFDANL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBFDANL      00     CD9



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       CE0

****IEBFDANL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE UT506(IEBFDTBL)
IEW0000     NAME IEBFDTBL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBFDTBL      00     A79


 ENTRY ADDRESS       00
 TOTAL LENGTH       A80

****IEBFDTBL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE UT506(IEBCRANL)
IEW0000     NAME IEBCRANL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBCRANL      00     D08



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       D08

****IEBCRANL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE UT506(IEBCREAT)
IEW0000     NAME IEBCREAT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBCREAT      00     CD4


 ENTRY ADDRESS       00
 TOTAL LENGTH       CD8

****IEBCREAT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000     INCLUDE UT506(IEBDGMSG)
IEW0000     NAME IEBDGMSG(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEBDGMSG      00     F9F



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       FA0

****IEBDGMSG  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK84.R0000267      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK84.S0000268      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK84.S0000268      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG88    / START 78240.1946
IEF374I STEP /SG88    / STOP  78240.1946 CPU   0MIN 00.18SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:25.01   ALLOC START    19:46:25.02   MAIN REGION ----- 256K                          *
*   STEP NAME SG88       STEP END TIME  19:46:25.31   PGM START TIME 19:46:25.09   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.30   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.18   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 25       0150 ----------- 53       0250 ----------- 86       0151 ------------ 0    *
*   0130 ----------- 15                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK84  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:25.36   ALLOC START    19:46:25.37   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:25.39   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK84 / START 78240.1946
IEF376I  JOB /R21LK84 / STOP  78240.1946 CPU   0MIN 00.18SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK84    JOB READ TIME 19:45:17.07   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.18   *
*   JOB CLASS A          JOB INIT TIME 19:46:25.01   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.39   *
*   ACCOUNT              JOB END TIME  19:46:25.40   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   8888888   555555555                            A
            RRRRRRRRR  222222222      11     LL         KK    KK   888888888  555555555                           AAA
            RR     RR  22     22     111     LL         KK   KK    88     88  55                                 AA AA
            RR     RR        22       11     LL         KK  KK     88     88  55555555                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK       8888888   555555555                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK       8888888          55                        AA     AA
            RR  RR        22          11     LL         KKK KK     88     88         55                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    88     88  55     55                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   888888888  555555555                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   8888888    5555555                         AA     AA

***********A  START   R21LK85    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK85    START  A***********
***********A  START   R21LK85    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK85    START  A***********
***********A  START   R21LK85    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK85    START  A***********
***********A  START   R21LK85    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK85    START  A***********
***********A  START   R21LK85    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK85    START  A***********


//R21LK85 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG89 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//DN539 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN539
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK85  SG89
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DN539
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE DN539(IGFCCH35)
IEW0000     ENTRY CCHNIPIN
IEW0000     NAME IGFCCH35(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFCCH35      00      70
  CCHNIPIN      70      7C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       E8            IGFCCH35        IGFCCH35
 ENTRY ADDRESS       70
 TOTAL LENGTH        F0

****IGFCCH35  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFCCH48)
IEW0000     ENTRY CCHNIPIN
IEW0000     NAME IGFCCH48(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFCCH48      00      46
  CCHNIPIN      48      7C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       C0            IGFCCH48        IGFCCH48
 ENTRY ADDRESS       48
 TOTAL LENGTH        C8

****IGFCCH48  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFCCH60)
IEW0000     ENTRY CCHNIPIN
IEW0000     NAME IGFCCH60(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFCCH60      00     3C7
  CCHNIPIN     3C8      7C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      440            IGFCCH60        IGFCCH60
 ENTRY ADDRESS      3C8
 TOTAL LENGTH       448

****IGFCCH60  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFCCH68)
IEW0000     ENTRY CCHNIPIN
IEW0000     NAME IGFCCH68(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFCCH68      00      AC
  CCHNIPIN      B0      7C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      128            IGFCCH68        IGFCCH68
 ENTRY ADDRESS       B0
 TOTAL LENGTH       130

****IGFCCH68  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFCCH70)
IEW0000     ENTRY CCHNIPIN
IEW0000     NAME IGFCCH70(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFCCH70      00     3C2
  CCHNIPIN     3C8      7C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      440            IGFCCH70        IGFCCH70
 ENTRY ADDRESS      3C8
 TOTAL LENGTH       448

****IGFCCH70  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFCCH80)
IEW0000     ENTRY CCHNIPIN
IEW0000     NAME IGFCCH80(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFCCH80      00     2B7
  CCHNIPIN     2B8      7C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      330            IGFCCH80        IGFCCH80
 ENTRY ADDRESS      2B8
 TOTAL LENGTH       338

****IGFCCH80  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFCCHIN)
IEW0000     NAME IGFCCHIN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFCCHIN      00     4A8


 ENTRY ADDRESS       00
 TOTAL LENGTH       4A8

****IGFCCHIN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK85.R0000269      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DN539                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK85.S0000270      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK85.S0000270      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG89    / START 78240.1946
IEF374I STEP /SG89    / STOP  78240.1946 CPU   0MIN 00.16SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:25.42   ALLOC START    19:46:25.43   MAIN REGION ----- 256K                          *
*   STEP NAME SG89       STEP END TIME  19:46:25.68   PGM START TIME 19:46:25.48   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.26   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.16   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0158 ----------- 27       0150 ----------- 46       0250 ----------- 60       0151 ------------ 0    *
*   0130 ----------- 21                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK85  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:25.69   ALLOC START    19:46:25.70   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:25.72   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK85 / START 78240.1946
IEF376I  JOB /R21LK85 / STOP  78240.1946 CPU   0MIN 00.16SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK85    JOB READ TIME 19:45:17.22   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.16   *
*   JOB CLASS A          JOB INIT TIME 19:46:25.42   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.31   *
*   ACCOUNT              JOB END TIME  19:46:25.73   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   8888888        66                              A
            RRRRRRRRR  222222222      11     LL         KK    KK   888888888      66                              AAA
            RR     RR  22     22     111     LL         KK   KK    88     88     66                              AA AA
            RR     RR        22       11     LL         KK  KK     88     88    66                              AA   AA
            RRRRRRRRR       22        11     LL         KK KK       8888888    6666666                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK       8888888   666666666                        AA     AA
            RR  RR        22          11     LL         KKK KK     88     88  66     66                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    88     88  66     66                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   888888888  666666666                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   8888888    6666666                         AA     AA

***********A  START   R21LK86    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK86    START  A***********
***********A  START   R21LK86    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK86    START  A***********
***********A  START   R21LK86    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK86    START  A***********
***********A  START   R21LK86    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK86    START  A***********
***********A  START   R21LK86    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK86    START  A***********


//R21LK86 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG90 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.SVCLIB
//DN539 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN539
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK86  SG90
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DN539
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE DN539(IGC0008E)
IEW0000     NAME IGC0008E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0008E      00     3FE


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC0008E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGC0108E)
IEW0000     NAME IGC0108E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0108E      00     2E3


 ENTRY ADDRESS       00
 TOTAL LENGTH       2E8

****IGC0108E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGC0208E)
IEW0000     NAME IGC0208E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0208E      00     35B


 ENTRY ADDRESS       00
 TOTAL LENGTH       360

****IGC0208E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGC0308E)
IEW0000     NAME IGC0308E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0308E      00     284


 ENTRY ADDRESS       00
 TOTAL LENGTH       288

****IGC0308E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGC0408E)
IEW0000     NAME IGC0408E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0408E      00     3FF


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGC0408E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGC0508E)
IEW0000     NAME IGC0508E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0508E      00     3F5


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F8

****IGC0508E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGC0608E)
IEW0000     NAME IGC0608E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0608E      00     383



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       388

****IGC0608E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGC0708E)
IEW0000     NAME IGC0708E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0708E      00     292


 ENTRY ADDRESS       00
 TOTAL LENGTH       298

****IGC0708E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGC0808E)
IEW0000     NAME IGC0808E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0808E      00     1B6


 ENTRY ADDRESS       00
 TOTAL LENGTH       1B8

****IGC0808E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGC0908E)
IEW0000     NAME IGC0908E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0908E      00     2E2


 ENTRY ADDRESS       00
 TOTAL LENGTH       2E8

****IGC0908E  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGE0660A)
IEW0000     NAME IGE0660A(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGE0660A      00     1CA


 ENTRY ADDRESS       00
 TOTAL LENGTH       1D0

****IGE0660A  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK86.R0000271      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DN539                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK86.S0000272      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK86.S0000272      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG90    / START 78240.1946
IEF374I STEP /SG90    / STOP  78240.1946 CPU   0MIN 00.22SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:25.75   ALLOC START    19:46:25.76   MAIN REGION ----- 256K                          *
*   STEP NAME SG90       STEP END TIME  19:46:26.09   PGM START TIME 19:46:25.84   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.34   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.22   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 34       0150 ----------- 78       0250 ----------- 78       0151 ------------ 0    *
*   0130 ----------- 23                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK86  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:26.12   ALLOC START    19:46:26.13   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:26.15   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK86 / START 78240.1946
IEF376I  JOB /R21LK86 / STOP  78240.1946 CPU   0MIN 00.22SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK86    JOB READ TIME 19:45:17.59   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.22   *
*   JOB CLASS A          JOB INIT TIME 19:46:25.75   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.40   *
*   ACCOUNT              JOB END TIME  19:46:26.15   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   8888888   777777777                            A
            RRRRRRRRR  222222222      11     LL         KK    KK   888888888  777777777                           AAA
            RR     RR  22     22     111     LL         KK   KK    88     88  77     77                          AA AA
            RR     RR        22       11     LL         KK  KK     88     88        77                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK       8888888        77                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK       8888888       77                           AA     AA
            RR  RR        22          11     LL         KKK KK     88     88     77                            AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    88     88     77                            AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   888888888     77                            AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   8888888      77                            AA     AA

***********A  START   R21LK87    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK87    START  A***********
***********A  START   R21LK87    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK87    START  A***********
***********A  START   R21LK87    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK87    START  A***********
***********A  START   R21LK87    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK87    START  A***********
***********A  START   R21LK87    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK87    START  A***********


//R21LK87 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG91 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,DC'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//DN539 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN539
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK87  SG91
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DN539
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,DC
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE DN539(IGFMCHF0)
IEW0000     NAME IGFMCHF0(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMCHF0      00    1666



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1668

****IGFMCHF0  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFMCHE0)
IEW0000     INCLUDE DN539(ICFBDX00)
IEW0000     NAME IGFMCHE0(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMCHE0      00     AD0
                                        IGFN0000      E0    IGFPOST1     9E8    IGFPOST2     A2A
  ICFBDE00     AD0       4
                                        ICFEND       AD4


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       A4            ICFEND          ICFBDE00                     188            ICFBDE00        ICFBDE00

 ENTRY ADDRESS       00
 TOTAL LENGTH       AD8

****IGFMCHE0  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK87.R0000273      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DN539                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK87.S0000274      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK87.S0000274      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG91    / START 78240.1946
IEF374I STEP /SG91    / STOP  78240.1946 CPU   0MIN 00.08SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:26.18   ALLOC START    19:46:26.19   MAIN REGION ----- 256K                          *
*   STEP NAME SG91       STEP END TIME  19:46:26.36   PGM START TIME 19:46:26.25   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.18   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.08   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0159 ------------ 9       0150 ----------- 30       0250 ----------- 36       0151 ------------ 0    *
*   0130 ------------ 6                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK87  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:26.39   ALLOC START    19:46:26.40   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:26.42   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK87 / START 78240.1946
IEF376I  JOB /R21LK87 / STOP  78240.1946 CPU   0MIN 00.08SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK87    JOB READ TIME 19:45:17.77   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.08   *
*   JOB CLASS A          JOB INIT TIME 19:46:26.18   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.25   *
*   ACCOUNT              JOB END TIME  19:46:26.43   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   8888888    8888888                             A
            RRRRRRRRR  222222222      11     LL         KK    KK   888888888  888888888                           AAA
            RR     RR  22     22     111     LL         KK   KK    88     88  88     88                          AA AA
            RR     RR        22       11     LL         KK  KK     88     88  88     88                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK       8888888    8888888                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK       8888888    8888888                         AA     AA
            RR  RR        22          11     LL         KKK KK     88     88  88     88                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    88     88  88     88                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   888888888  888888888                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   8888888    8888888                         AA     AA

***********A  START   R21LK88    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK88    START  A***********
***********A  START   R21LK88    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK88    START  A***********
***********A  START   R21LK88    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK88    START  A***********
***********A  START   R21LK88    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK88    START  A***********
***********A  START   R21LK88    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK88    START  A***********


//R21LK88 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG92 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,DC'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.SVCLIB
//DN539 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN539
//CI555 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI555
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK88  SG92
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DN539
IEF237I 250   ALLOCATED TO CI555
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,DC
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE DN539(IGFMCHE1)
IEW0000     NAME IGCR207B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMCHE1      00     3F4


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F8

****IGCR207B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFMCHE2)
IEW0000     NAME IGCR107B(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMCHE2      00     3C4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       3C8

****IGCR107B  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFMCHF5)
IEW0000     NAME IGFMCHF5(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMCHF5      00     360


 ENTRY ADDRESS       00
 TOTAL LENGTH       360

****IGFMCHF5  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFMCHF6)
IEW0000     NAME IGFMCHF6(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMCHF6      00      DA


 ENTRY ADDRESS       00
 TOTAL LENGTH        E0

****IGFMCHF6  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFMCHE3)
IEW0000     NAME IGFMCHE3(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMCHE3      00     3E8


 ENTRY ADDRESS       00
 TOTAL LENGTH       3E8

****IGFMCHE3  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFMVTF1)
IEW0000     NAME IGFMCHF1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMVTF1      00     2D8


 ENTRY ADDRESS       00
 TOTAL LENGTH       2D8

****IGFMCHF1  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFMVTF2)
IEW0000     NAME IGFMCHF2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMVTF2      00     3F0


 ENTRY ADDRESS       00
 TOTAL LENGTH       3F0

****IGFMCHF2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFMVTF3)
IEW0000     NAME IGFMCHF3(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMVTF3      00     378


 ENTRY ADDRESS       00
 TOTAL LENGTH       378

****IGFMCHF3  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE CI555(IKJEAM00)
IEW0000     NAME IGFMCH91(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFSUBA1      00     3B0
  IKJEAM00     3B0      00


 ENTRY ADDRESS       00
 TOTAL LENGTH       3B0

****IGFMCH91  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGF29601)
IEW0000     NAME IGF29601(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGF29601      00     3FF


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IGF29601  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFMCH20)
IEW0000     NAME IGFMCH20(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMCH20      00     3E0


 ENTRY ADDRESS       00
 TOTAL LENGTH       3E0

****IGFMCH20  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFMCH21)
IEW0000     NAME IGFMCH21(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMCH21      00     2AC



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       2B0

****IGFMCH21  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFMCH22)
IEW0000     NAME IGFMCH22(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMCH22      00     27E


 ENTRY ADDRESS       00
 TOTAL LENGTH       280

****IGFMCH22  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN539(IGFMCH23)
IEW0000     NAME IGFMCH23(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGFMCH23      00     190


 ENTRY ADDRESS       00
 TOTAL LENGTH       190

****IGFMCH23  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK88.R0000275      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DN539                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK88.S0000276      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK88.S0000276      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG92    / START 78240.1946
IEF374I STEP /SG92    / STOP  78240.1946 CPU   0MIN 00.24SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:26.46   ALLOC START    19:46:26.47   MAIN REGION ----- 256K                          *
*   STEP NAME SG92       STEP END TIME  19:46:26.83   PGM START TIME 19:46:26.54   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.37   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.24   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 44       0150 ----------- 84       0250 ----------- 75       0250 ------------ 6    *
*   0151 ------------ 0       0130 ----------- 29                                                                                  *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK88  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:26.85   ALLOC START    19:46:26.86   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:26.88   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK88 / START 78240.1946
IEF376I  JOB /R21LK88 / STOP  78240.1946 CPU   0MIN 00.24SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK88    JOB READ TIME 19:45:18.11   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.24   *
*   JOB CLASS A          JOB INIT TIME 19:46:26.46   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.43   *
*   ACCOUNT              JOB END TIME  19:46:26.89   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   8888888    9999999                             A
            RRRRRRRRR  222222222      11     LL         KK    KK   888888888  999999999                           AAA
            RR     RR  22     22     111     LL         KK   KK    88     88  99     99                          AA AA
            RR     RR        22       11     LL         KK  KK     88     88  99     99                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK       8888888   999999999                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK       8888888    9999999                         AA     AA
            RR  RR        22          11     LL         KKK KK     88     88       99                          AAAAAAAAA
            RR   RR      22           11     LL         KK   KK    88     88      99                           AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK   888888888     99                            AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK   8888888     99                             AA     AA

***********A  START   R21LK89    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK89    START  A***********
***********A  START   R21LK89    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK89    START  A***********
***********A  START   R21LK89    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK89    START  A***********
***********A  START   R21LK89    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK89    START  A***********
***********A  START   R21LK89    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK89    START  A***********


//R21LK89 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG93 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REUS'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IFDOLT)
//DN533 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN533
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK89  SG93
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DN533
IEF237I 250   ALLOCATED TO CI505
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REUS
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE DN533(IFDOLT00,IFDOLT18,IFDOLT23,IFDOLT29,IFDOLT30)
IEW0000     INCLUDE DN533(IFDOLT39,IFDOLT51,IFDOLT52,IFDOLT48,IFDMSG00)
IEW0000     INCLUDE CI505(IECIOLTS)
IEW0000     INCLUDE DN533(IFDOLT59)
IEW0000     ENTRY IFDOLT00
IEW0000     ALIAS IFDOLT00
IEW0000     NAME IFDOLT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT00      00     3B8
  IFDOLT18     3B8     A1C
  IFDOLT23     DD8     968
                                        REPBUF       E3C
  IFDOLT29    1740      A4
  IFDOLT30    17E8     724
                                        CECINP02    188A    CECINP03    1906    FISTERR     1D18    ECB         1DF8
                                        SYMLIB      1E74
  IFDOLT39    1F10     9C4
                                        DPRPPOW     224C    DPRXLATE    27D0
  IFDOLT51    28D8     128
                                        READDCB     29A8
  IFDOLT52    2A00     380
  IFDOLT48    2D80     A38
  IFDMSG00    37B8     4F8
  IECIOLTS    3CB0     548
  IFDOLT59    41F8       8
                                        IFDOLT55    41F8    DEDBUF      41F8    REMINBUF    41F8    REIDCB      41F8
                                        REIOB       41F8


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      334            IFDOLT52        IFDOLT52                     384            IFDOLT18        IFDOLT18
      388            IFDOLT23        IFDOLT23                     38C            IFDOLT30        IFDOLT30
      C74            IFDOLT39        IFDOLT39                     CE0            IFDOLT23        IFDOLT23
      F08            IFDOLT52        IFDOLT52                    1110            IECIOLTS        IECIOLTS
     1114            IFDOLT29        IFDOLT29                    11A8            IFDOLT00        IFDOLT00
     11CC            IFDOLT39        IFDOLT39                    12F0            CECINP03        IFDOLT30
     12F4            FISTERR         IFDOLT30                    12F8            CECINP02        IFDOLT30
     1378            IFDOLT51        IFDOLT51                    137C            READDCB         IFDOLT51
     1380            IFDMSG00        IFDMSG00                    1388            IFDOLT55        IFDOLT59
     138C            DEDBUF          IFDOLT59                    1390            REMINBUF        IFDOLT59
     1394            REIDCB          IFDOLT59                    1398            REIOB           IFDOLT59
     13B8            SYMLIB          IFDOLT30                    1D88            IFDOLT48        IFDOLT48
     38C4            REPBUF          IFDOLT23                    38C8            ECB             IFDOLT30




 ENTRY ADDRESS       00
 TOTAL LENGTH      4200

****IFDOLT    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IFDOLT00  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT01)
IEW0000     NAME  IFDOLT01(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT01      00     958



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       958

****IFDOLT01  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT02,IFDMSG02)
IEW0000     ENTRY IFDOLT02
IEW0000     NAME IFDOLT02(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT02      00     34A
  IFDMSG02     350     180



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2B4            IFDMSG02        IFDMSG02
 ENTRY ADDRESS       00
 TOTAL LENGTH       4D0

****IFDOLT02  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT03,IFDMSG03)
IEW0000     ENTRY IFDOLT03
IEW0000     NAME  IFDOLT03(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT03      00     522
  IFDMSG03     528     268



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      478            IFDMSG03        IFDMSG03
 ENTRY ADDRESS       00
 TOTAL LENGTH       790

****IFDOLT03  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT04,IFDMSG04)
IEW0000     ENTRY IFDOLT04
IEW0000     NAME IFDOLT04(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT04      00     1F8
  IFDMSG04     1F8      E8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      1E0            IFDMSG04        IFDMSG04
 ENTRY ADDRESS       00
 TOTAL LENGTH       2E0

****IFDOLT04  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT05,IFDMSG05)
IEW0000     ENTRY IFDOLT05
IEW0000     NAME  IFDOLT05(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT05      00     3D4
  IFDMSG05     3D8      68



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      34C            IFDMSG05        IFDMSG05
 ENTRY ADDRESS       00
 TOTAL LENGTH       440

****IFDOLT05  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT06,IFDMSG06)
IEW0000     ENTRY IFDOLT06
IEW0000     NAME  IFDOLT06(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT06      00     2D4
                                        TMNT30       142
  IFDMSG06     2D8      58



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      1DC            IFDMSG06        IFDMSG06
 ENTRY ADDRESS       00
 TOTAL LENGTH       330

****IFDOLT06  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT07,IFDMSG07)
IEW0000     ENTRY IFDOLT07
IEW0000     NAME  IFDOLT07(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT07      00     4AA
  IFDMSG07     4B0     1F0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      3D0            IFDMSG07        IFDMSG07
 ENTRY ADDRESS       00
 TOTAL LENGTH       6A0

****IFDOLT07  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT08,IFDMSG08)
IEW0000     ENTRY IFDOLT08
IEW0000     NAME  IFDOLT08(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT08      00     6B4
  IFDMSG08     6B8      48



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      69C            IFDMSG08        IFDMSG08
 ENTRY ADDRESS       00
 TOTAL LENGTH       700

****IFDOLT08  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT09)
IEW0000     NAME  IFDOLT09(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT09      00     1A4


 ENTRY ADDRESS       00
 TOTAL LENGTH       1A8

****IFDOLT09  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT10)
IEW0000     NAME  IFDOLT10(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT10      00     10C


 ENTRY ADDRESS       00
 TOTAL LENGTH       110

****IFDOLT10  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT11)
IEW0000     NAME  IFDOLT11(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT11      00      A8


 ENTRY ADDRESS       00
 TOTAL LENGTH        A8

****IFDOLT11  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT13,IFDMSG13)
IEW0000     ENTRY IFDOLT13
IEW0000     NAME  IFDOLT13(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT13      00     240
  IFDMSG13     240      B8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      214            IFDMSG13        IFDMSG13
 ENTRY ADDRESS       00
 TOTAL LENGTH       2F8

****IFDOLT13  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT14)
IEW0000     NAME  IFDOLT14(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT14      00     6A9



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       6B0

****IFDOLT14  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT15)
IEW0000     NAME  IFDOLT15(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT15      00     8E4


 ENTRY ADDRESS       00
 TOTAL LENGTH       8E8

****IFDOLT15  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT16)
IEW0000     NAME  IFDOLT16(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT16      00     248


 ENTRY ADDRESS       00
 TOTAL LENGTH       248

****IFDOLT16  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT17)
IEW0000     NAME  IFDOLT17(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT17      00     170


 ENTRY ADDRESS       00
 TOTAL LENGTH       170

****IFDOLT17  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT20,IFDMSG20)
IEW0000     ENTRY IFDOLT20
IEW0000     NAME  IFDOLT20(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT20      00     7AC
  IFDMSG20     7B0     100



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      320            IFDMSG20        IFDMSG20
 ENTRY ADDRESS       00
 TOTAL LENGTH       8B0

****IFDOLT20  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT21)
IEW0000     NAME  IFDOLT21(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT21      00     312


 ENTRY ADDRESS       00
 TOTAL LENGTH       318

****IFDOLT21  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT22,IFDMSG22)
IEW0000     ENTRY IFDOLT22
IEW0000     NAME  IFDOLT22(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT22      00     740
  IFDMSG22     740     138



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      460            IFDMSG22        IFDMSG22
 ENTRY ADDRESS       00
 TOTAL LENGTH       878

****IFDOLT22  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT24)
IEW0000     NAME  IFDOLT24(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT24      00     4B8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       4B8

****IFDOLT24  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT25,IFDMSG25)
IEW0000     ENTRY IFDOLT25
IEW0000     NAME  IFDOLT25(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT25      00     300
  IFDMSG25     300      48



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2EC            IFDMSG25        IFDMSG25
 ENTRY ADDRESS       00
 TOTAL LENGTH       348

****IFDOLT25  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT26)
IEW0000     NAME  IFDOLT26(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT26      00     31C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       320

****IFDOLT26  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT31,IFDMSG31)
IEW0000     ENTRY IFDOLT31
IEW0000     NAME  IFDOLT31(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT31      00     700
  IFDMSG31     700     120



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      5AC            IFDMSG31        IFDMSG31
 ENTRY ADDRESS       00
 TOTAL LENGTH       820

****IFDOLT31  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT32,IFDMSG32)
IEW0000     ENTRY IFDOLT32
IEW0000     NAME  IFDOLT32(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT32      00     6EE
  IFDMSG32     6F0      B8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      5A8            IFDMSG32        IFDMSG32
 ENTRY ADDRESS       00
 TOTAL LENGTH       7A8

****IFDOLT32  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT33,IFDMSG33)
IEW0000     ENTRY IFDOLT33
IEW0000     NAME  IFDOLT33(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT33      00     830
  IFDMSG33     830     168



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      728            IFDMSG33        IFDMSG33
 ENTRY ADDRESS       00
 TOTAL LENGTH       998

****IFDOLT33  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT34)
IEW0000     NAME  IFDOLT34(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT34      00     262


 ENTRY ADDRESS       00
 TOTAL LENGTH       268

****IFDOLT34  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT35)
IEW0000     ENTRY IFDOLT35
IEW0000     NAME  IFDOLT35(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT35      00     74C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       750

****IFDOLT35  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT36)
IEW0000     ENTRY IFDOLT36
IEW0000     NAME  IFDOLT36(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT36      00     6A4
                                        TMEOUT       2EE

 ENTRY ADDRESS       00
 TOTAL LENGTH       6A8

****IFDOLT36  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT37,IFDMSG37)
IEW0000     ENTRY IFDOLT37
IEW0000     NAME  IFDOLT37(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT37      00     4EC
  IFDMSG37     4F0     148



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      484            IFDMSG37        IFDMSG37
 ENTRY ADDRESS       00
 TOTAL LENGTH       638

****IFDOLT37  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT38,IFDMSG38)
IEW0000     ENTRY IFDOLT38
IEW0000     NAME  IFDOLT38(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT38      00     596
  IFDMSG38     598      80



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      494            IFDMSG38        IFDMSG38
 ENTRY ADDRESS       00
 TOTAL LENGTH       618

****IFDOLT38  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT41)
IEW0000     NAME  IFDOLT41(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT41      00     132


 ENTRY ADDRESS       00
 TOTAL LENGTH       138

****IFDOLT41  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT44)
IEW0000     ENTRY IFDOLT44
IEW0000     NAME IFDOLT44(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT44      00     1D8


 ENTRY ADDRESS       00
 TOTAL LENGTH       1D8

****IFDOLT44  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT46)
IEW0000     NAME  IFDOLT46(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT46      00     790
                                        IFD46         00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       790

****IFDOLT46  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT50,IFDMSG50)
IEW0000     ENTRY IFDOLT50
IEW0000     NAME  IFDOLT50(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT50      00     14E
  IFDMSG50     150     850



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       F4            IFDMSG50        IFDMSG50
 ENTRY ADDRESS       00
 TOTAL LENGTH       9A0

****IFDOLT50  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT53,IFDMSG53)
IEW0000     ENTRY IFDOLT53
IEW0000     NAME  IFDOLT53(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT53      00     2FA
  IFDMSG53     300      B0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      150            IFDMSG53        IFDMSG53
 ENTRY ADDRESS       00
 TOTAL LENGTH       3B0

****IFDOLT53  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT61,IFDMSG61)
IEW0000     ENTRY IFDOLT61
IEW0000     NAME IFDOLT61(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT61      00     5FE
  IFDMSG61     600      F0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4C8            IFDMSG61        IFDMSG61
 ENTRY ADDRESS       00
 TOTAL LENGTH       6F0

****IFDOLT61  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT73,IFDMSG73)
IEW0000     ENTRY IFDOLT73
IEW0000     NAME IFDOLT73(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT73      00     5CC
  IFDMSG73     5D0     208



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      3A8            IFDMSG73        IFDMSG73
 ENTRY ADDRESS       00
 TOTAL LENGTH       7D8

****IFDOLT73  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLT74)
IEW0000     ENTRY IFDOLT74
IEW0000     NAME IFDOLT74(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLT74      00     1AC


 ENTRY ADDRESS       00
 TOTAL LENGTH       1B0

****IFDOLT74  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE DN533(IFDOLTAJ,IFDMSGAJ)
IEW0000     ENTRY IFDOLTAJ
IEW0000     NAME  IFDOLTAJ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFDOLTAJ      00     34E
  IFDMSGAJ     350     148



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      290            IFDMSGAJ        IFDMSGAJ
 ENTRY ADDRESS       00
 TOTAL LENGTH       498

****IFDOLTAJ  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK89.R0000277      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DN533                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK89.S0000278      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK89.S0000278      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG93    / START 78240.1946
IEF374I STEP /SG93    / STOP  78240.1946 CPU   0MIN 00.91SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:26.94   ALLOC START    19:46:26.94   MAIN REGION ----- 256K                          *
*   STEP NAME SG93       STEP END TIME  19:46:28.01   PGM START TIME 19:46:27.00   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:01.07   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.91   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0130 ---------- 157       0150 ---------- 282       0250 ---------- 528       0250 ------------ 9    *
*   0151 ------------ 0       0130 ---------- 111                                                                                  *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK89  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:28.03   ALLOC START    19:46:28.05   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:28.07   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK89 / START 78240.1946
IEF376I  JOB /R21LK89 / STOP  78240.1946 CPU   0MIN 00.91SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK89    JOB READ TIME 19:45:18.77   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.91   *
*   JOB CLASS A          JOB INIT TIME 19:46:26.94   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.13   *
*   ACCOUNT              JOB END TIME  19:46:28.07   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   9999999     00000                              A
            RRRRRRRRR  222222222      11     LL         KK    KK   999999999   0000000                            AAA
            RR     RR  22     22     111     LL         KK   KK    99     99  00     00                          AA AA
            RR     RR        22       11     LL         KK  KK     99     99  00    000                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK      999999999  00   0 00                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK       9999999   00  0  00                        AA     AA
            RR  RR        22          11     LL         KKK KK          99    00 0   00                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        99     000    00                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      99       0000000                         AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    99         00000                          AA     AA

***********A  START   R21LK90    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK90    START  A***********
***********A  START   R21LK90    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK90    START  A***********
***********A  START   R21LK90    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK90    START  A***********
***********A  START   R21LK90    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK90    START  A***********
***********A  START   R21LK90    SYS SYSA   WTR 00E   07:47:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK90    START  A***********


//R21LK90 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG94 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,MAP,OL,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.IMAGELIB
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK90  SG94
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,MAP,OL,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     REPLACE UCS1PN,UCS1TN,UCS2P11,UCS2T11   **UCS1AN**
IEW0000     INCLUDE SYSPUNCH(UCSIMAGE)
IEW0000     NAME UCS1AN(R)


                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  UCS1AN        00      F7


 ENTRY ADDRESS       00
 TOTAL LENGTH        F8

****UCS1AN    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     REPLACE UCS1AN,UCS1TN,UCS2P11,UCS2T11   **UCS1PN**
IEW0000     INCLUDE SYSPUNCH(UCSIMAGE)
IEW0000     NAME UCS1PN(R)


                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  UCS1PN        00      F6


 ENTRY ADDRESS       00
 TOTAL LENGTH        F8

****UCS1PN    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     REPLACE UCS1AN,UCS1PN,UCS2P11,UCS2T11   **UCS1TN**
IEW0000     INCLUDE SYSPUNCH(UCSIMAGE)
IEW0000     NAME UCS1TN(R)


                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  UCS1TN        00      F6


 ENTRY ADDRESS       00
 TOTAL LENGTH        F8

****UCS1TN    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     REPLACE UCS1AN,UCS1PN,UCS1TN,UCS2T11   **UCS2P11**
IEW0000     INCLUDE SYSPUNCH(UCSIMAGE)
IEW0000     NAME UCS2P11(R)


                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  UCS2P11       00     212


 ENTRY ADDRESS       00
 TOTAL LENGTH       218

****UCS2P11   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     REPLACE UCS1AN,UCS1PN,UCS1TN,UCS2P11   **UCS2T11**
IEW0000     INCLUDE SYSPUNCH(UCSIMAGE)
IEW0000     NAME UCS2T11(R)


                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  UCS2T11       00     20C


 ENTRY ADDRESS       00
 TOTAL LENGTH       210

****UCS2T11   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK90.R0000279      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.IMAGELIB                                KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK90.S0000280      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK90.S0000280      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG94    / START 78240.1946
IEF374I STEP /SG94    / STOP  78240.1946 CPU   0MIN 00.14SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:28.10   ALLOC START    19:46:28.11   MAIN REGION ----- 256K                          *
*   STEP NAME SG94       STEP END TIME  19:46:28.35   PGM START TIME 19:46:28.17   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.25   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.14   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 18       0150 ----------- 30       0151 ---------- 195       0130 ----------- 16    *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK90  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:28.37   ALLOC START    19:46:28.38   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:28.41   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK90 / START 78240.1946
IEF376I  JOB /R21LK90 / STOP  78240.1946 CPU   0MIN 00.14SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK90    JOB READ TIME 19:45:19.21   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.14   *
*   JOB CLASS A          JOB INIT TIME 19:46:28.10   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.32   *
*   ACCOUNT              JOB END TIME  19:46:28.42   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   9999999        1                               A
            RRRRRRRRR  222222222      11     LL         KK    KK   999999999      11                              AAA
            RR     RR  22     22     111     LL         KK   KK    99     99     111                             AA AA
            RR     RR        22       11     LL         KK  KK     99     99      11                            AA   AA
            RRRRRRRRR       22        11     LL         KK KK      999999999      11                           AA     AA
            RRRRRRRR       22         11     LL         KKKKK       9999999       11                           AA     AA
            RR  RR        22          11     LL         KKK KK          99        11                           AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        99         11                           AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      99        111111                         AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    99         111111                         AA     AA

***********A  START   R21LK91    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK91    START  A***********
***********A  START   R21LK91    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK91    START  A***********
***********A  START   R21LK91    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK91    START  A***********
***********A  START   R21LK91    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK91    START  A***********
***********A  START   R21LK91    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK91    START  A***********


//R21LK91 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG95 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IEWSZOVR)
//CI535 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI535
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK91  SG95
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI535
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE    CI535(IEWSWOVR)
IEW0000     NAME   IEWSZOVR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEWSWOVR      00     380



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       380

****IEWSZOVR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK91.R0000281      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK91.S0000282      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK91.S0000282      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG95    / START 78240.1946
IEF374I STEP /SG95    / STOP  78240.1946 CPU   0MIN 00.06SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:28.44   ALLOC START    19:46:28.45   MAIN REGION ----- 256K                          *
*   STEP NAME SG95       STEP END TIME  19:46:28.62   PGM START TIME 19:46:28.52   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.18   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0158 ------------ 5       0150 ------------ 8       0250 ------------ 8       0151 ------------ 0    *
*   0130 ------------ 3                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK91  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:28.64   ALLOC START    19:46:28.65   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:28.68   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK91 / START 78240.1946
IEF376I  JOB /R21LK91 / STOP  78240.1946 CPU   0MIN 00.06SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK91    JOB READ TIME 19:45:19.36   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.06   *
*   JOB CLASS A          JOB INIT TIME 19:46:28.44   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.24   *
*   ACCOUNT              JOB END TIME  19:46:28.68   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   9999999    2222222                             A
            RRRRRRRRR  222222222      11     LL         KK    KK   999999999  222222222                           AAA
            RR     RR  22     22     111     LL         KK   KK    99     99  22     22                          AA AA
            RR     RR        22       11     LL         KK  KK     99     99        22                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK      999999999       22                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK       9999999       22                           AA     AA
            RR  RR        22          11     LL         KKK KK          99       22                            AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        99       22                             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      99       22222222                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    99       222222222                        AA     AA

***********A  START   R21LK92    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK92    START  A***********
***********A  START   R21LK92    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK92    START  A***********
***********A  START   R21LK92    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK92    START  A***********
***********A  START   R21LK92    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK92    START  A***********
***********A  START   R21LK92    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK92    START  A***********


//R21LK92 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG96 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,OVLY,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IHGUAP)
//UT506 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK92  SG96
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,OVLY,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IHGROOT,IHGURD,IHGANY,IHGCTB)
IEW0000     INCLUDE UT506(IHGUALOG,IHGTAB)
IEW0000     INSERT IHGROOT
IEW0000     OVERLAY  IHGSEGA
IEW0000     INSERT   IHGURD
IEW0000     OVERLAY  IHGSEGA
IEW0000     INSERT   IHGANY
IEW0000     OVERLAY  IHGSUBA
IEW0000     INSERT   IHGCTB
IEW0000     OVERLAY  IHGSUBA
IEW0000     INSERT   IHGUALOG
IEW0000     OVERLAY  IHGREG2(REGION)
IEW0000     INSERT   IHGTAB
IEW0000     ENTRY IHGROOT
IEW0000     NAME IHGUAP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

 $SEGTAB        00      30     1
  IHGROOT       30     1E8     1
                                        IHGRT016      40    IHGRT017      6A    IHGRT003      74    IHGRT006      74
                                        IHGRT007      75    IHGRT008      78    IHGRT010      7C    IHGRT009      80
                                        IHGRT011      84    IHGRT013      88    IHGRT012      8C    IHGRT001      90
                                        IHGRT002      94    IHGRT014      98    IHGRT004     110    IHGRT005     168
                                        IHGRT015     1C0
 $ENTAB        218      30     1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      1E1            IHGANY02        IHGANY           3            BC            IHGANY01        IHGANY           3
       C0            IHGTAB01        IHGTAB           6            C4            IHGURD01        IHGURD           2


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHGURD       248    1570     2
                                        IHGURD01     248    IHGURD02     31A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      2ED            IHGRT004        IHGROOT          1           301            IHGRT005        IHGROOT          1
      A34            IHGRT004        IHGROOT          1           E54            IHGTAB06        IHGTAB           6

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      E58            IHGTAB05        IHGTAB           6           E68            IHGRT003        IHGROOT          1
      E64            IHGTAB02        IHGTAB           6          11C4            IHGTAB02        IHGTAB           6
      E60            IHGTAB03        IHGTAB           6           E5C            IHGTAB04        IHGTAB           6
      E74            IHGRT016        IHGROOT          1           E6C            IHGTAB01        IHGTAB           6
      E70            IHGRT017        IHGROOT          1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHGANY       248    13C0     3
                                        IHGANY01     248    IHGANY06     2C4    IHGANY05     334    IHGANY02    100A
                                        IHGANY03    111C    IHGANY04    111C    IHGANY07    1444    IHGANY08    144C
 $ENTAB       1608      24     3



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      329            IHGRT004        IHGROOT          1           2E5            IHGRT005        IHGROOT          1
      2C9            IHGRT015        IHGROOT          1           F48            IHGRT005        IHGROOT          1
     1064            IHGRT015        IHGROOT          1          15B8            IHGTAB02        IHGTAB           6
     129C            IHGCTB02        IHGCTB           4          15BC            IHGRT001        IHGROOT          1
     15C0            IHGRT002        IHGROOT          1          12A0            IHGRT006        IHGROOT          1
     15C4            IHGRT007        IHGROOT          1          12A4            IHGRT008        IHGROOT          1
     12A8            IHGRT009        IHGROOT          1          12AC            IHGRT010        IHGROOT          1
     12B0            IHGRT011        IHGROOT          1          12B4            IHGRT015        IHGROOT          1
     12B8            IHGRT016        IHGROOT          1          1294            IHGCTB01        IHGCTB           4
     1298            IHGLOG01        IHGUALOG         5

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHGCTB      1630     8D8     4
                                        IHGCTB01    1630    IHGCTB02    1BCC


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     172D            IHGRT015        IHGROOT          1          1C84            IHGANY04        IHGANY           3
     1C6C            IHGANY07        IHGANY           3          1C70            IHGANY08        IHGANY           3
     1AF8            IHGRT004        IHGROOT          1          1C80            IHGRT012        IHGROOT          1
     1C7C            IHGRT013        IHGROOT          1          1C88            IHGRT014        IHGROOT          1
     1C78            IHGRT015        IHGROOT          1          1C68            IHGANY06        IHGANY           3
     1C74            IHGANY05        IHGANY           3          1EA4            IHGRT015        IHGROOT          1





  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHGUALOG    1630     A4A     5
                                        IHGLOG01    1630


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     184C            IHGRT004        IHGROOT          1          1C10            IHGANY03        IHGANY           3


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHGTAB      2080    14D8     6
                                        IHGTAB01    2080    IHGTAB02    208C    IHGTAB03    2538    IHGTAB06    2EC8
                                        IHGTAB05    3238    IHGTAB04    3558


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     2088            IHGURD01        IHGURD           2
 ENTRY ADDRESS       30
 TOTAL LENGTH      3558

****IHGUAP    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE UT506(IEHPRINT,IEHPRMSG,IEHQSCAN,IEHMVSSF)
IEW0000     ENTRY   IEHROOT    * * MSG IEW0201 VALID IF USER DID * *
IEW0000     NAME    IEHLIST(R) * * NOT SPECIFY OVERLAY OPTION    * *
IEW0201


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHROOT       00     E14     1
  IEHINSEG     E18     26E     1
  IEHPSEG     1088     4DD     1
                                        RONBACK     1402
  IEHQSEG     1568     750     1
  IEHRSEG     1CB8     542     1
  IEHSSEG     2200     59A     1
  IEHDSEG     27A0    14FC     1
  IEHMSG      3CA0    14AF     1
  RDCDRT      5150     500     1
                                        RDCARD      5150    KEOF        5612
  IEHVOLMT    5650     B18     1
                                        IEHMVESF    5650
  IEHPSCAN    6168      00     1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

       70            IEHINSEG        IEHINSEG         1           550            IEHMVESF        IEHVOLMT         1
      560            RONBACK         IEHPSEG          1           584            IEHDSEG         IEHDSEG          1
      588            IEHPSEG         IEHPSEG          1           58C            IEHQSEG         IEHQSEG          1
      590            IEHRSEG         IEHRSEG          1           594            IEHSSEG         IEHSSEG          1
      7D3            IEHRSEG         IEHRSEG          1           7D0            IEHSSEG         IEHSSEG          1
      80D            IEHINSEG        IEHINSEG         1           811            IEHINSEG        IEHINSEG         1
      840            RDCDRT          RDCDRT           1           850            IEHMSG          IEHMSG           1
      FBD            IEHROOT         IEHROOT          1           FE5            IEHROOT         IEHROOT          1
     151C            IEHROOT         IEHROOT          1          15ED            IEHROOT         IEHROOT          1
     1C5C            IEHROOT         IEHROOT          1          1C60            IEHROOT         IEHROOT          1
     1C8C            IEHROOT         IEHROOT          1          1C90            IEHROOT         IEHROOT          1
     1C94            IEHROOT         IEHROOT          1          1C98            IEHROOT         IEHROOT          1
     1C9C            IEHROOT         IEHROOT          1          1CA0            IEHROOT         IEHROOT          1
     1CA4            IEHROOT         IEHROOT          1          1DA9            IEHROOT         IEHROOT          1
     21C4            IEHROOT         IEHROOT          1          21C8            IEHROOT         IEHROOT          1
     2265            IEHROOT         IEHROOT          1          22B4            IEHROOT         IEHROOT          1
     22B8            IEHROOT         IEHROOT          1          2445            IEHROOT         IEHROOT          1
     293D            IEHROOT         IEHROOT          1
 ENTRY ADDRESS       00
 TOTAL LENGTH      6168

****IEHLIST   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET

                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0201 WARNING - OVERLAY STRUCTURE CONTAINS ONLY ONE SEGMENT -- OVERLAY OPTION CANCELED.




IEF142I - STEP WAS EXECUTED - COND CODE 0004
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK92.R0000283      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK92.S0000284      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK92.S0000284      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG96    / START 78240.1946
IEF374I STEP /SG96    / STOP  78240.1946 CPU   0MIN 00.16SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:28.71   ALLOC START    19:46:28.72   MAIN REGION ----- 256K                          *
*   STEP NAME SG96       STEP END TIME  19:46:28.99   PGM START TIME 19:46:28.78   MAIN STORAGE ---- 130K    CONDITION CODE 0004   *
*   PSTP NAME            ELAPSED TIME   00:00:00.28   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.16   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ----------- 32       0353 ----------- 33       0150 ----------- 48       0250 ---------- 131       0151 ------------ 0    *
*   0130 ----------- 19                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK92  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:29.02   ALLOC START    19:46:29.03   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:29.05   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK92 / START 78240.1946
IEF376I  JOB /R21LK92 / STOP  78240.1946 CPU   0MIN 00.16SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK92    JOB READ TIME 19:45:19.49   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.16   *
*   JOB CLASS A          JOB INIT TIME 19:46:28.71   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.35   *
*   ACCOUNT              JOB END TIME  19:46:29.06   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   9999999   333333333                            A
            RRRRRRRRR  222222222      11     LL         KK    KK   999999999  333333333                           AAA
            RR     RR  22     22     111     LL         KK   KK    99     99  33    33                           AA AA
            RR     RR        22       11     LL         KK  KK     99     99       33                           AA   AA
            RRRRRRRRR       22        11     LL         KK KK      999999999      3333                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK       9999999      333333                        AA     AA
            RR  RR        22          11     LL         KKK KK          99           33                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        99     33     33                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      99      333333333                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    99        3333333                         AA     AA

***********A  START   R21LK93    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK93    START  A***********
***********A  START   R21LK93    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK93    START  A***********
***********A  START   R21LK93    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK93    START  A***********
***********A  START   R21LK93    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK93    START  A***********
***********A  START   R21LK93    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK93    START  A***********


//R21LK93 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG97 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,OVLY,XCAL'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IEHPROGM)
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK93  SG97
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,OVLY,XCAL
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IEHPROG1,IEHPROG2,IEHPROG3,IEHPROG4)
IEW0000     INCLUDE UT506(IEHPROG5,IEHMVSSF)
IEW0000     ENTRY   IEHEBASE   * * MSG IEW0201 VALID IF USER DID * *
IEW0000     NAME    IEHPROGM(R) * * NOT SPECIFY OVERLAY OPTION   * *
IEW0201


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHEBASE      00      38     1
  IEHEUP1       38    1278     1
                                        IEHRET01     264    IEHRESET     39E    SYNAD001    1104    SYSINEND    118E
  IEHEDC1     12B0     1B4     1
  IEHEDC2     1468     144     1
  IEHDTTLU    15B0      98     1
  IEHEUP1A    1648     E40     1
                                        IEHRET02    1670
  IEHEMSGX    2488     D4E     1
  IEHINVOC    31D8     3A8     1
  IEHMOUNT    3580     1C4     1
  IEHVOLMT    3748     B18     1
                                        IEHMVESF    3748


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

       10            IEHEUP1         IEHEUP1          1            14            IEHRESET        IEHEUP1          1
       18            IEHEMSGX        IEHEMSGX         1            1C            IEHMOUNT        IEHMOUNT         1
       20            IEHINVOC        IEHINVOC         1            24            IEHRET01        IEHEUP1          1
       28            IEHRET02        IEHEUP1A         1            2C            IEHEUP1A        IEHEUP1A         1
       30            IEHDTTLU        IEHDTTLU         1           F84            IEHDTTLU        IEHDTTLU         1
      F68            IEHEDC1         IEHEDC1          1           F6C            IEHEDC1         IEHEDC1          1
      F70            IEHEDC1         IEHEDC1          1           F74            IEHEDC1         IEHEDC1          1
      F78            IEHEDC1         IEHEDC1          1           F7C            IEHEDC1         IEHEDC1          1
      F80            IEHEDC1         IEHEDC1          1          1278            IEHEMSGX        IEHEMSGX         1
     1280            IEHMOUNT        IEHMOUNT         1          127C            IEHINVOC        IEHINVOC         1
     12C0            IEHEUP1         IEHEUP1          1          12C9            IEHEUP1         IEHEUP1          1
     12DF            IEHEUP1         IEHEUP1          1          12E9            IEHEUP1         IEHEUP1          1
     12F3            IEHEUP1         IEHEUP1          1          12FD            IEHEUP1         IEHEUP1          1
     1307            IEHEUP1         IEHEUP1          1          133C            IEHEUP1         IEHEUP1          1
     1352            IEHEUP1         IEHEUP1          1          135D            IEHEUP1         IEHEUP1          1
     1368            IEHEUP1         IEHEUP1          1          1376            IEHEUP1         IEHEUP1          1
     1382            IEHEUP1         IEHEUP1          1          138E            IEHEUP1         IEHEUP1          1
     13C3            IEHEUP1         IEHEUP1          1          1404            IEHEUP1         IEHEUP1          1
     1414            IEHEUP1         IEHEUP1          1          1422            IEHEUP1         IEHEUP1          1
     1430            IEHEUP1         IEHEUP1          1          1441            IEHEUP1         IEHEUP1          1
     1459            IEHEUP1         IEHEUP1          1          12B7            IEHEDC2         IEHEDC2          1
     12D5            IEHEDC2         IEHEDC2          1          1311            IEHEDC2         IEHEDC2          1

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     131B            IEHEDC2         IEHEDC2          1          1325            IEHEDC2         IEHEDC2          1
     132F            IEHEDC2         IEHEDC2          1          139A            IEHEDC2         IEHEDC2          1
     13A9            IEHEDC2         IEHEDC2          1          13B6            IEHEDC2         IEHEDC2          1
     13DD            IEHEDC2         IEHEDC2          1          13EA            IEHEDC2         IEHEDC2          1
     13F7            IEHEDC2         IEHEDC2          1          1475            IEHEUP1         IEHEUP1          1
     148D            IEHEUP1         IEHEUP1          1          14A5            IEHEUP1         IEHEUP1          1
     14BD            IEHEUP1         IEHEUP1          1          14D1            IEHEUP1         IEHEUP1          1
     14D9            IEHEUP1         IEHEUP1          1          14F1            IEHEUP1         IEHEUP1          1
     1509            IEHEUP1         IEHEUP1          1          1521            IEHEUP1         IEHEUP1          1
     1541            IEHEUP1         IEHEUP1          1          1561            IEHEUP1         IEHEUP1          1
     1581            IEHEUP1         IEHEUP1          1          15A1            IEHEUP1         IEHEUP1          1
     2484            IEHEMSGX        IEHEMSGX         1          3441            SYSINEND        IEHEUP1          1
     3458            SYNAD001        IEHEUP1          1          3541            SYNAD001        IEHEUP1          1
     3558            SYNAD001        IEHEUP1          1          3740            IEHMVESF        IEHVOLMT         1

 ENTRY ADDRESS       00
 TOTAL LENGTH      4260

****IEHPROGM  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0201 WARNING - OVERLAY STRUCTURE CONTAINS ONLY ONE SEGMENT -- OVERLAY OPTION CANCELED.




IEF142I - STEP WAS EXECUTED - COND CODE 0004
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK93.R0000285      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK93.S0000286      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK93.S0000286      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG97    / START 78240.1946
IEF374I STEP /SG97    / STOP  78240.1946 CPU   0MIN 00.10SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:29.09   ALLOC START    19:46:29.09   MAIN REGION ----- 256K                          *
*   STEP NAME SG97       STEP END TIME  19:46:29.30   PGM START TIME 19:46:29.16   MAIN STORAGE ---- 130K    CONDITION CODE 0004   *
*   PSTP NAME            ELAPSED TIME   00:00:00.21   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.10   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ----------- 20       0159 ----------- 15       0150 ----------- 16       0250 ----------- 77       0151 ------------ 0    *
*   0130 ------------ 5                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK93  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:29.34   ALLOC START    19:46:29.35   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:29.37   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK93 / START 78240.1946
IEF376I  JOB /R21LK93 / STOP  78240.1946 CPU   0MIN 00.10SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK93    JOB READ TIME 19:45:19.72   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.10   *
*   JOB CLASS A          JOB INIT TIME 19:46:29.09   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.29   *
*   ACCOUNT              JOB END TIME  19:46:29.38   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   9999999        44                              A
            RRRRRRRRR  222222222      11     LL         KK    KK   999999999      444                             AAA
            RR     RR  22     22     111     LL         KK   KK    99     99     4444                            AA AA
            RR     RR        22       11     LL         KK  KK     99     99    44 44                           AA   AA
            RRRRRRRRR       22        11     LL         KK KK      999999999   44  44                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK       9999999   44   44                          AA     AA
            RR  RR        22          11     LL         KKK KK          99    444444444                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        99     444444444                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      99           44                          AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    99            44                          AA     AA

***********A  START   R21LK94    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK94    START  A***********
***********A  START   R21LK94    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK94    START  A***********
***********A  START   R21LK94    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK94    START  A***********
***********A  START   R21LK94    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK94    START  A***********
***********A  START   R21LK94    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK94    START  A***********


//R21LK94 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG98 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK94  SG98
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IEHINITT)
IEW0000     NAME IEHINITT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHINITT      00     D03
  IEHINIT2     D08     1B4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      AE8            IEHINIT2        IEHINIT2
 ENTRY ADDRESS       00
 TOTAL LENGTH       EC0

****IEHINITT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE UT506(IEHPRNT)
IEW0000     NAME IEHPRNT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHPRNT       00     12F



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       130

****IEHPRNT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE UT506(IEHSCAN)
IEW0000     NAME IEHSCAN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEHSCAN       00     4EF



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       4F0

****IEHSCAN   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK94.R0000287      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK94.S0000288      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK94.S0000288      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG98    / START 78240.1946
IEF374I STEP /SG98    / STOP  78240.1946 CPU   0MIN 00.11SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:29.40   ALLOC START    19:46:29.40   MAIN REGION ----- 256K                          *
*   STEP NAME SG98       STEP END TIME  19:46:29.61   PGM START TIME 19:46:29.47   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.21   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.11   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 11       0150 ----------- 24       0250 ----------- 33       0151 ------------ 0    *
*   0130 ------------ 7                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK94  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:29.63   ALLOC START    19:46:29.64   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:29.66   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK94 / START 78240.1946
IEF376I  JOB /R21LK94 / STOP  78240.1946 CPU   0MIN 00.11SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK94    JOB READ TIME 19:45:19.86   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.11   *
*   JOB CLASS A          JOB INIT TIME 19:46:29.40   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.27   *
*   ACCOUNT              JOB END TIME  19:46:29.67   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   9999999   555555555                            A
            RRRRRRRRR  222222222      11     LL         KK    KK   999999999  555555555                           AAA
            RR     RR  22     22     111     LL         KK   KK    99     99  55                                 AA AA
            RR     RR        22       11     LL         KK  KK     99     99  55555555                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK      999999999  555555555                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK       9999999          55                        AA     AA
            RR  RR        22          11     LL         KKK KK          99           55                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        99     55     55                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      99      555555555                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    99        5555555                         AA     AA

***********A  START   R21LK95    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK95    START  A***********
***********A  START   R21LK95    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK95    START  A***********
***********A  START   R21LK95    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK95    START  A***********
***********A  START   R21LK95    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK95    START  A***********
***********A  START   R21LK95    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK95    START  A***********


//R21LK95 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG99 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REUS,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK95  SG99
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO UT506
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REUS,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE UT506(IEBEDIT)
IEW0000     NAME IEBEDIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

 $PRIVATE       00    1EB8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1EB8

****IEBEDIT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK95.R0000289      SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK95.S0000290      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK95.S0000290      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG99    / START 78240.1946
IEF374I STEP /SG99    / STOP  78240.1946 CPU   0MIN 00.06SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:29.69   ALLOC START    19:46:29.69   MAIN REGION ----- 256K                          *
*   STEP NAME SG99       STEP END TIME  19:46:29.84   PGM START TIME 19:46:29.75   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.15   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0130 ------------ 5       0150 ------------ 8       0250 ----------- 21       0151 ------------ 0    *
*   0130 ------------ 3                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK95  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:29.85   ALLOC START    19:46:29.86   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:29.88   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK95 / START 78240.1946
IEF376I  JOB /R21LK95 / STOP  78240.1946 CPU   0MIN 00.06SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK95    JOB READ TIME 19:45:20.02   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.06   *
*   JOB CLASS A          JOB INIT TIME 19:46:29.69   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.20   *
*   ACCOUNT              JOB END TIME  19:46:29.89   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   9999999        66                              A
            RRRRRRRRR  222222222      11     LL         KK    KK   999999999      66                              AAA
            RR     RR  22     22     111     LL         KK   KK    99     99     66                              AA AA
            RR     RR        22       11     LL         KK  KK     99     99    66                              AA   AA
            RRRRRRRRR       22        11     LL         KK KK      999999999   6666666                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK       9999999   666666666                        AA     AA
            RR  RR        22          11     LL         KKK KK          99    66     66                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        99     66     66                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      99      666666666                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    99        6666666                         AA     AA

***********A  START   R21LK96    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK96    START  A***********
***********A  START   R21LK96    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK96    START  A***********
***********A  START   R21LK96    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK96    START  A***********
***********A  START   R21LK96    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK96    START  A***********
***********A  START   R21LK96    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK96    START  A***********


//R21LK96 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG100 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//DN554 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN554
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK96  SG100
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DN554
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE DN554(IMDPRCTL,IMDPRCOM,IMDPRRDC)
IEW0000     INCLUDE DN554(IMDPRPMG,IMDPRSEG)
IEW0000     ENTRY IMDPRDMP
IEW0000     NAME IMDPRDMP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IMDPRCTL      00     5B4
                                        IMDPRDMP      00
  IMDPRMSC     5B8     F19
  IMDPREND    14D8     352
  IMDPRXIT    1830     2CD
  IMDPRCOM    1B00     6B5
  IMDPRWTR    21B8     31A
  IMDPRSYN    24D8     22C
  IMDPRMSG    2708     208
  IMDPRGFR    2910     282
  IMDPRTSV    2B98     14C
  IMDPRSTP    2CE8     18C
  IMDPRRDC    2E78     7E8
  IMDPRPMG    3660     399
                                        IMDPRP01    3660    WRTSYN1     3774    WRTSYN2     37A0    WRTSYN3     37D0
                                        PRTSYN1     37EC    PRTSYN2     381C    PRTSYN3     3850    PRTSYN4     3870
                                        GOSYN1      3890    NONEWMSG    38C8    FILERMSG    3900    CVTSYN1     3940
                                        NEWSYN1     3970    NODDMSG     399C    IMD200I     39BC
  IMDPRSEG    3A00     9EC



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      484            IMDPRCOM        IMDPRCOM                     488            IMDPRMSC        IMDPRMSC
      48D            IMDPRMSC        IMDPRMSC                     480            IMDPRXIT        IMDPRXIT
     11C8            WRTSYN1         IMDPRPMG                    11CC            WRTSYN2         IMDPRPMG
     11D0            WRTSYN3         IMDPRPMG                    11D4            PRTSYN4         IMDPRPMG
     11D8            IMD200I         IMDPRPMG                    11DC            PRTSYN1         IMDPRPMG
     11E8            PRTSYN1         IMDPRPMG                    11E0            PRTSYN2         IMDPRPMG
     11EC            PRTSYN2         IMDPRPMG                    1204            PRTSYN2         IMDPRPMG
     11E4            PRTSYN3         IMDPRPMG                    11F0            PRTSYN3         IMDPRPMG
     11F4            NEWSYN1         IMDPRPMG                    11F8            FILERMSG        IMDPRPMG
     11FC            GOSYN1          IMDPRPMG                    1200            CVTSYN1         IMDPRPMG
     120C            NONEWMSG        IMDPRPMG                    1210            NODDMSG         IMDPRPMG
     2110            IMDPRRDC        IMDPRRDC                    2128            IMDPRXIT        IMDPRXIT
     212C            IMDPRSEG        IMDPRSEG                    217C            IMDPREND        IMDPREND
     20F8            IMDPRWTR        IMDPRWTR                    2100            IMDPRSYN        IMDPRSYN
     2108            IMDPRSYN        IMDPRSYN                    210C            IMDPRSYN        IMDPRSYN
     20FC            IMDPRMSG        IMDPRMSG                    2104            IMDPRGFR        IMDPRGFR

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     2140            IMDPRTSV        IMDPRTSV                    2144            IMDPRTSV        IMDPRTSV
     2148            IMDPRTSV        IMDPRTSV                    2154            IMDPRSTP        IMDPRSTP
     23D8            IMDPRCOM        IMDPRCOM                    425C            IMDPRP01        IMDPRPMG

 ENTRY ADDRESS       00
 TOTAL LENGTH      43F0

****IMDPRDMP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN554(IMDPRSCN,IMDPRSN2,IMDPRSN3,IMDPRSMG,IMDPREID)
IEW0000     ENTRY IMDPRSCN
IEW0000     NAME IMDPRSCN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IMDPRSCN      00    1274
                                        IMDSCNTB    1058
  IMDPRSN2    1278    116C
                                        IMDPNAM     1298    IMDVLMG     132A    IMDVLEN     150E    IMDPTAJ     15A2
                                        IMDELIM     184C    IMDUMMG     18D2    IMDPSIO     1966    IMDPSVC     1DC6
                                        IMDPPGM     1F52    IMDPSYS     20F4    IMDPEXT     2132    IMDPDSP     215C
                                        IMDPRCVB    2186    IMDPRHX     21B0
  IMDPRSN3    23E8    12D0
                                        IMDPEOC2    240C    IMDPFIN     26D2    IMDPSUM1    2918
  IMDPRSMG    36B8     2F0
                                        IMDPRS00    3978
  IMDPREID    39A8      70
                                        IMDPRS01    3A10


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      FD4            IMDPSUM1        IMDPRSN3                     FD8            IMDPFIN         IMDPRSN3
      FE0            IMDPEOC2        IMDPRSN3                     FE4            IMDPSIO         IMDPRSN2
      FE8            IMDVLEN         IMDPRSN2                     FEC            IMDELIM         IMDPRSN2
      FF0            IMDVLMG         IMDPRSN2                     FF4            IMDPRCVB        IMDPRSN2
      FF8            IMDUMMG         IMDPRSN2                     FDC            IMDPRS00        IMDPRSMG
      FFC            IMDPRS01        IMDPREID                    120C            IMDPSIO         IMDPRSN2
     1210            IMDPSIO         IMDPRSN2                    1000            IMDPRHX         IMDPRSN2
     11F0            IMDPNAM         IMDPRSN2                    11F4            IMDPNAM         IMDPRSN2
     1200            IMDPTAJ         IMDPRSN2                    1204            IMDPTAJ         IMDPRSN2
     1214            IMDPSVC         IMDPRSN2                    1218            IMDPPGM         IMDPRSN2
     121C            IMDPSYS         IMDPRSN2                    1220            IMDPEXT         IMDPRSN2
     1224            IMDPDSP         IMDPRSN2                    22B4            IMDPRS00        IMDPRSMG
     3490            IMDPRS00        IMDPRSMG
 ENTRY ADDRESS       00
 TOTAL LENGTH      3A18

****IMDPRSCN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN554(IMDSYS01,IMDSY101)
IEW0000     ENTRY IMDSYS01
IEW0000     NAME IMDSYS01(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IMDSYS01      00    1267
                                        NONAPP       D8C    ERRIND       D94    IMDPRMSV     D9C    IMDLENPT     DD4
  IMDSY101    1268     7B3
                                        IMDSNM28    1280    IMDSNM29    1318    IMDSNM30    13EA    IMDSNM31    14A4
                                        IMDSNM32    15AC    IMDSNM33    1658    IMDSLEN     1716


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      D30            IMDSLEN         IMDSY101                     ED8            IMDSNM28        IMDSY101
      EDC            IMDSNM29        IMDSY101                     EE0            IMDSNM30        IMDSY101
      EE4            IMDSNM31        IMDSY101                     EE8            IMDSNM32        IMDSY101
      EEC            IMDSNM33        IMDSY101                    18D4            NONAPP          IMDSYS01
     18D0            ERRIND          IMDSYS01                    18CC            IMDLENPT        IMDSYS01

 ENTRY ADDRESS       00
 TOTAL LENGTH      1A20

****IMDSYS01  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN554(IMDPRFRM,IMDPRFMG,IMDPRGET,IMDPRFLT)
IEW0000     INCLUDE DN554(IMDPREXT,IMDPRAPP,IMDPRREC)
IEW0000     ENTRY IMDPRFRM
IEW0000     NAME IMDPRXED(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IMDPRFRM      00     97C
  IMDPRFMG     980     328
  IMDPRGET     CA8     C08
  IMDPRFLT    18B0     36D
  IMDPREXT    1C20     5B4
  IMDPRAPP    21D8     D2B
                                        IMDPRSPI    2678    SPIESAVE    298C    NSISAVE     2990    PICASAVE    2D18
  IMDPRCON    2F08     96D
                                        IMDPRHEX    3120    IMDPRTME    34F0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      7F8            IMDPRGET        IMDPRGET                     7FC            IMDPRHEX        IMDPRCON
      800            IMDPRCON        IMDPRCON                     804            IMDPRFLT        IMDPRFLT
      808            IMDPRAPP        IMDPRAPP                     80C            IMDPREXT        IMDPREXT
      810            IMDPRFMG        IMDPRFMG                     814            IMDPRSPI        IMDPRAPP
      818            IMDPRTME        IMDPRCON                    1F74            SPIESAVE        IMDPRAPP
     1F78            NSISAVE         IMDPRAPP                    1F7C            PICASAVE        IMDPRAPP

 ENTRY ADDRESS       00
 TOTAL LENGTH      3878

****IMDPRXED  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE DN554(IMCOSMCI,IMCOSAPP)
IEW0000     ENTRY IMCOSMCI
IEW0000     NAME IMCOSJQD(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IMCOSMCI      00    2800
  IMCOSAPP    2800    1940



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1C24            IMCOSAPP        IMCOSAPP
 ENTRY ADDRESS       00
 TOTAL LENGTH      4140

****IMCOSJQD  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK96.R0000291      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DN554                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK96.S0000292      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK96.S0000292      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG100   / START 78240.1946
IEF374I STEP /SG100   / STOP  78240.1946 CPU   0MIN 00.20SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:29.91   ALLOC START    19:46:29.92   MAIN REGION ----- 256K                          *
*   STEP NAME SG100      STEP END TIME  19:46:30.25   PGM START TIME 19:46:29.97   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.34   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.20   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 36       0150 ----------- 57       0250 ---------- 269       0151 ------------ 0    *
*   0130 ----------- 18                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK96  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:30.28   ALLOC START    19:46:30.29   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:30.31   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK96 / START 78240.1946
IEF376I  JOB /R21LK96 / STOP  78240.1946 CPU   0MIN 00.20SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK96    JOB READ TIME 19:45:20.12   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.20   *
*   JOB CLASS A          JOB INIT TIME 19:46:29.91   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.41   *
*   ACCOUNT              JOB END TIME  19:46:30.32   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   9999999   777777777                            A
            RRRRRRRRR  222222222      11     LL         KK    KK   999999999  777777777                           AAA
            RR     RR  22     22     111     LL         KK   KK    99     99  77     77                          AA AA
            RR     RR        22       11     LL         KK  KK     99     99        77                          AA   AA
            RRRRRRRRR       22        11     LL         KK KK      999999999       77                          AA     AA
            RRRRRRRR       22         11     LL         KKKKK       9999999       77                           AA     AA
            RR  RR        22          11     LL         KKK KK          99       77                            AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        99        77                            AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      99         77                            AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    99          77                            AA     AA

***********A  START   R21LK97    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK97    START  A***********
***********A  START   R21LK97    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK97    START  A***********
***********A  START   R21LK97    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK97    START  A***********
***********A  START   R21LK97    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK97    START  A***********
***********A  START   R21LK97    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK97    START  A***********


//R21LK97 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG101 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REUS'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//CI505  DD  DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK97  SG101
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO CI505
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REUS
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE CI505(IHLGTF01,IHLGTF02,IHLGTF03)
IEW0000     ENTRY IHLGTF01
IEW0000     NAME IHLGTF(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLGTF01      00     718
  IHLGTF02     718      D8
  IHLGTF03     7F0     140
                                        GTF031       7F0    GTF032       824    GTF033       85C    GTF034       894
                                        GTF035       8C0    GTF037       8F0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      61C            GTF032          IHLGTF03                     620            IHLGTF02        IHLGTF02
      624            GTF034          IHLGTF03                     628            GTF037          IHLGTF03
      62C            GTF031          IHLGTF03                     630            GTF033          IHLGTF03
      634            GTF035          IHLGTF03
 ENTRY ADDRESS       00
 TOTAL LENGTH       930

****IHLGTF    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE CI505(IHLGTF11,IHLGTF12,IHLGTF13)
IEW0000     ENTRY IHLGTF11
IEW0000     NAME IHLGTF1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLGTF11      00     66A
  IHLGTF12     670      D8
  IHLGTF13     748      98
                                        GTF034       748    GTF035       774    GTF036       7A4


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      35C            IHLGTF12        IHLGTF12                     360            GTF036          IHLGTF13
      364            GTF034          IHLGTF13                     368            GTF035          IHLGTF13

 ENTRY ADDRESS       00
 TOTAL LENGTH       7E0

****IHLGTF1   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE CI505(IHLSCAN1,IHLSCMSG)
IEW0000     ENTRY IHLSCAN1
IEW0000     NAME IHLSCAN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLSCAN1      00     89C
  IHLSCMSG     8A0     330
                                        MSG001A      A38    MSG002A      A7C    MSG003A      AC0    MSG004A      B04
                                        MSG005I      B48    MSG130I      B8C


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      5C8            MSG130I         IHLSCMSG                     5CC            MSG001A         IHLSCMSG
      5D0            MSG002A         IHLSCMSG                     5D4            MSG004A         IHLSCMSG
      5D8            MSG005I         IHLSCMSG                     5DC            MSG003A         IHLSCMSG

 ENTRY ADDRESS       00
 TOTAL LENGTH       BD0

****IHLSCAN   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE CI505(IHLINT21,IHLINT22)
IEW0000     ENTRY IHLINT21
IEW0000     NAME IHLINT2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLINT21      00     1E4
  IHLINT22     1E8     D1E
                                        IHLHSTK      8B6    IHLHSTKS     8CA    IHLHSTKW     8E0    IHLHAB       B20
                                        IHLHFEOB     BEE


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      150            IHLHSTK         IHLINT22                     154            IHLHSTKS        IHLINT22
      158            IHLHSTKW        IHLINT22                     16C            IHLHAB          IHLINT22
      170            IHLINT22        IHLINT22                     174            IHLHFEOB        IHLINT22

 ENTRY ADDRESS       00
 TOTAL LENGTH       F08

****IHLINT2   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE CI505(IHLINT31,IHLINT32)
IEW0000     ENTRY IHLINT31
IEW0000     NAME IHLINT3(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLINT31      00     520
  IHLINT32     520      E0
                                        MSG130I      520    MSG021I      55C    MSG022I      590    MSG023I      5C0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      428            MSG023I         IHLINT32                     454            MSG023I         IHLINT32
      448            MSG130I         IHLINT32                     44C            MSG021I         IHLINT32
      450            MSG022I         IHLINT32
 ENTRY ADDRESS       00
 TOTAL LENGTH       600

****IHLINT3   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE CI505(IHLINT41,IHLINT43)
IEW0000     ENTRY IHLINT41
IEW0000     NAME IHLINT4(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLINT41      00     F28
  IHLINT43     F28      A8
                                        M0CORE       F28    M0OPEN       F64    M0ABEND      F94


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      73C            M0CORE          IHLINT43                     734            M0ABEND         IHLINT43
      738            M0OPEN          IHLINT43
 ENTRY ADDRESS       00
 TOTAL LENGTH       FD0

****IHLINT4   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE CI505(IHLTERM,IHLRMMSG)
IEW0000     ENTRY IHLTERM
IEW0000     NAME IHLTERM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLTERM       00     431
  IHLRMMSG     438      C0
                                        INITDONE     438    STOPMSG      464    TRMMSG       494    NOSTAE       4C8


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      270            TRMMSG          IHLRMMSG
 ENTRY ADDRESS       00
 TOTAL LENGTH       4F8

****IHLTERM   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE CI505(IHLROUT,IHLSERV)
IEW0000     ENTRY IHLROUT
IEW0000     NAME IHLROUT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLROUT       00     504
                                        IHLROUTI      66    IHLROUTE     3CE    IHLROUTB     428
  IHLSERV      508     883
                                        IHLSTK       508    IHLSTKS      518    IHLSTKW      52A    IHLDISAB     84E
                                        IHLENAB      85E    IHLSCMSK     962    IHLNTERM     A30    IHLATERM     A40
                                        IHLFEOB      B6A    IHLSYNC      C98    IQEADDR      D1C


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4BC            IHLSTK          IHLSERV                      4C0            IHLSTKS         IHLSERV
      4C4            IHLSTKW         IHLSERV                      4C8            IHLDISAB        IHLSERV
      4CC            IHLENAB         IHLSERV                      4D0            IHLSCMSK        IHLSERV
      4D4            IHLNTERM        IHLSERV                      4D8            IHLATERM        IHLSERV
      4DC            IHLATERM        IHLSERV                      4E0            IHLFEOB         IHLSERV
      4FC            IQEADDR         IHLSERV                      500            IHLSYNC         IHLSERV
      D00            IHLROUTE        IHLROUT
 ENTRY ADDRESS       00
 TOTAL LENGTH       D90

****IHLROUT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE CI505(IHLRMON,IHLRMSTA,IHLRCOV,IHLRMMSG)
IEW0000     ENTRY IHLRMON
IEW0000     NAME IHLRMON(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLRMON       00     392
  IHLRMSTA     398     1D8
  IHLRCOV      570     18C
  IHLRMMSG     700      C0
                                        INITDONE     700    STOPMSG      72C    TRMMSG       75C    NOSTAE       790


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2D4            IHLRMSTA        IHLRMSTA                     2D8            NOSTAE          IHLRMMSG
      2DC            IHLRCOV         IHLRCOV                      2E0            INITDONE        IHLRMMSG
      2E4            STOPMSG         IHLRMMSG                     2E8            TRMMSG          IHLRMMSG

 ENTRY ADDRESS       00
 TOTAL LENGTH       7C0

****IHLRMON   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE CI505(IHLTAIR1,IHLTAIR2)
IEW0000     ENTRY IHLTAIR1
IEW0000     NAME IHLTAIR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLTAIR1      00     1C0
  IHLTAIR2     1C0     14C
                                        IHL103I      1C4    IHL120I      204    IHL128I      248    IHL129I      278
                                        IHL130I      2B4


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      150            IHL103I         IHLTAIR2                     154            IHL120I         IHLTAIR2
      158            IHL128I         IHLTAIR2                     15C            IHL129I         IHLTAIR2
      160            IHL130I         IHLTAIR2
 ENTRY ADDRESS       00
 TOTAL LENGTH       310

****IHLTAIR   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE CI505(IHLTCTL1,IHLTCTL2)
IEW0000     ENTRY IHLTCTL1
IEW0000     NAME IHLTCTL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLTCTL1      00     8DC
                                        IHLTIO       528    CTL2         766
  IHLTCTL2     8E0     6D0
                                        MSGTBL       8E0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      8D8            MSGTBL          IHLTCTL2
 ENTRY ADDRESS       00
 TOTAL LENGTH       FB0

****IHLTCTL   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE CI505(IHLTMG1,IHLTCIR,IHLTMG2)
IEW0000     ENTRY IHLTMG1
IEW0000     NAME IHLTMG1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLTMG1       00     15A
  IHLTCIR      160     1D8
  IHLTMG2      338      38
                                        IHL118I      340


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       00            IHLTCIR         IHLTCIR                      100            IHL118I         IHLTMG2

 ENTRY ADDRESS       00
 TOTAL LENGTH       370

****IHLTMG1   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE CI505(IHLTSV1,IHLTSV2)
IEW0000     ENTRY IHLTSV1
IEW0000     NAME IHLTSVC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHLTSV1       00     D64
                                        IHLSVEND     1BA
  IHLTSV2      D68     71A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      BB0            IHLTSV2         IHLTSV2                     12B4            IHLSVEND        IHLTSV1

 ENTRY ADDRESS       00
 TOTAL LENGTH      1488

****IHLTSVC   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK97.R0000293      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK97.S0000294      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK97.S0000294      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG101   / START 78240.1946
IEF374I STEP /SG101   / STOP  78240.1946 CPU   0MIN 00.32SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:30.35   ALLOC START    19:46:30.36   MAIN REGION ----- 256K                          *
*   STEP NAME SG101      STEP END TIME  19:46:30.79   PGM START TIME 19:46:30.42   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.44   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.32   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0158 ----------- 61       0150 ---------- 101       0250 ---------- 248       0151 ------------ 0    *
*   0130 ----------- 40                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK97  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:30.82   ALLOC START    19:46:30.83   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:30.85   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK97 / START 78240.1946
IEF376I  JOB /R21LK97 / STOP  78240.1946 CPU   0MIN 00.32SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK97    JOB READ TIME 19:45:20.28   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.32   *
*   JOB CLASS A          JOB INIT TIME 19:46:30.35   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.51   *
*   ACCOUNT              JOB END TIME  19:46:30.86   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   9999999    8888888                             A
            RRRRRRRRR  222222222      11     LL         KK    KK   999999999  888888888                           AAA
            RR     RR  22     22     111     LL         KK   KK    99     99  88     88                          AA AA
            RR     RR        22       11     LL         KK  KK     99     99  88     88                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK      999999999   8888888                         AA     AA
            RRRRRRRR       22         11     LL         KKKKK       9999999    8888888                         AA     AA
            RR  RR        22          11     LL         KKK KK          99    88     88                        AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        99     88     88                        AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      99      888888888                        AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    99        8888888                         AA     AA

***********A  START   R21LK98    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK98    START  A***********
***********A  START   R21LK98    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK98    START  A***********
***********A  START   R21LK98    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK98    START  A***********
***********A  START   R21LK98    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK98    START  A***********
***********A  START   R21LK98    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK98    START  A***********


//R21LK98 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG102 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,OVLY,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//DN554  DD  DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN554  SERVICE AIDS
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK98  SG102
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DN554
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,OVLY,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE  DN554(IMBLKCTL,IMBLKOBJ,IMBLKLDM,IMBLKXRF,IMBLKIDR)
IEW0000     INCLUDE  DN554(IMBLKMSG,IMBLKERR,IMBLKSZE)
IEW0000     INSERT  IMBLKCTL,IMBLKERR,IMBLKMSG,IMBLKSZE
IEW0000     OVERLAY  ONE
IEW0000     INSERT  IMBLKOBJ
IEW0000     OVERLAY  ONE
IEW0000     INSERT  IMBLKXRF
IEW0000     OVERLAY  ONE
IEW0000     INSERT  IMBLKLDM
IEW0000     OVERLAY  ONE
IEW0000     INSERT  IMBLKIDR
IEW0000     ENTRY  IMBLKCTL
IEW0000     NAME  IMBLIST(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

 $SEGTAB        00      2C     1
  IMBLKCTL      30    206C     1
  IMBLKMSG    20A0     55C     1
                                        MESSAGES    20A8    MSGLIST     257C
  IMBLKERR    2600     264     1
  IMBLKSZE    2868     2B8     1
 $ENTAB       2B20      3C     1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     1CD4            IMBLKERR        IMBLKERR         1          1CD8            IMBLKOBJ        IMBLKOBJ         2
     1CDC            IMBLKLDM        IMBLKLDM         4          1CE0            IMBLKXRF        IMBLKXRF         3
     1CE4            IMBLKIDR        IMBLKIDR         5          1F4C            IMBLKSZE        IMBLKSZE         1
     2818            MSGLIST         IMBLKMSG         1          281C            MESSAGES        IMBLKMSG         1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IMBLKOBJ    2B60     E9F     2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.






  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IMBLKXRF    2B60    1F2B     3



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IMBLKLDM    2B60    1021     4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IMBLKIDR    2B60    1AE4     5



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.


 ENTRY ADDRESS       30
 TOTAL LENGTH      4A90

****IMBLIST   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK98.R0000295      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DN554                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK98.S0000296      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK98.S0000296      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG102   / START 78240.1946
IEF374I STEP /SG102   / STOP  78240.1946 CPU   0MIN 00.10SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:30.91   ALLOC START    19:46:30.92   MAIN REGION ----- 256K                          *
*   STEP NAME SG102      STEP END TIME  19:46:31.13   PGM START TIME 19:46:30.99   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.22   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.10   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ----------- 16       0353 ----------- 15       0150 ----------- 24       0250 ---------- 115       0151 ------------ 0    *
*   0130 ----------- 14                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK98  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:31.16   ALLOC START    19:46:31.17   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:31.19   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK98 / START 78240.1946
IEF376I  JOB /R21LK98 / STOP  78240.1946 CPU   0MIN 00.10SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK98    JOB READ TIME 19:45:20.67   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.10   *
*   JOB CLASS A          JOB INIT TIME 19:46:30.91   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.29   *
*   ACCOUNT              JOB END TIME  19:46:31.20   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK   9999999    9999999                             A
            RRRRRRRRR  222222222      11     LL         KK    KK   999999999  999999999                           AAA
            RR     RR  22     22     111     LL         KK   KK    99     99  99     99                          AA AA
            RR     RR        22       11     LL         KK  KK     99     99  99     99                         AA   AA
            RRRRRRRRR       22        11     LL         KK KK      999999999  999999999                        AA     AA
            RRRRRRRR       22         11     LL         KKKKK       9999999    9999999                         AA     AA
            RR  RR        22          11     LL         KKK KK          99         99                          AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        99         99                           AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK      99         99                            AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    99         99                             AA     AA

***********A  START   R21LK99    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK99    START  A***********
***********A  START   R21LK99    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK99    START  A***********
***********A  START   R21LK99    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK99    START  A***********
***********A  START   R21LK99    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK99    START  A***********
***********A  START   R21LK99    SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK99    START  A***********


//R21LK99 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG103 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,OVLY'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//DN554 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN554
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK99  SG103
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO DN554
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,OVLY
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INSERT HMASMDRV
IEW0000     INSERT HMASMMSG
IEW0000     INSERT HMASMIO
IEW0000     INSERT HMASMSCN
IEW0000     OVERLAY ONE
IEW0000     INSERT HMASMUPD
IEW0000     INSERT HMASMCPY
IEW0000     INSERT HMASMLKD
IEW0000     INSERT HMASMASM
IEW0000     INSERT HMASMIC
IEW0000     OVERLAY ONE
IEW0000     INSERT HMASMUCL
IEW0000     OVERLAY ONE
IEW0000     INSERT HMASMASI
IEW0000     OVERLAY TWO
IEW0000     INSERT HMASMREC
IEW0000     INSERT HMASMEXT
IEW0000     OVERLAY TWO
IEW0000     INSERT HMASMCPI
IEW0000     INSERT HMASMLKI
IEW0000     OVERLAY THREE
IEW0000     INSERT HMASMRES
IEW0000     OVERLAY THREE
IEW0000     INSERT HMASMAPA
IEW0000     INSERT HMASMZAP
IEW0000     OVERLAY ONE
IEW0000     INSERT HMASMLOG
IEW0000     OVERLAY ONE
IEW0000     INSERT HMASMLCD
IEW0000     OVERLAY ONE
IEW0000     INSERT HMASMTBL
IEW0000     INCLUDE DN554(HMASMDRV,HMASMMSG,HMASMIO,HMASMSCN)
IEW0000     INCLUDE DN554(HMASMUPD,HMASMCPY,HMASMLKD,HMASMASM,HMASMIC)
IEW0000     INCLUDE DN554(HMASMUCL,HMASMREC,HMASMASI,HMASMRES)
IEW0000     INCLUDE DN554(HMASMAPA,HMASMZAP,HMASMLOG,HMASMLCD)
IEW0000     INCLUDE DN554(HMASMCPI,HMASMLKI,HMASMTBL)
IEW0000     INCLUDE DN554(HMASMEXT)
IEW0000     ENTRY HMASMDRV
IEW0000     NAME HMASMP(R)
****HMASMP    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

 $SEGTAB        00      44     1
  HMASMDRV      48    3462     1
                                        HMASMCCA    274C
  HMASMMSG    34B0    1D21     1

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HMASMIO     51D8    29A8     1
  HMASMSCN    7B80     4C8     1
 $ENTAB       8048      84     1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     1ED0            HMASMAPA        HMASMAPA         8          1ED4            HMASMRES        HMASMRES         7
     1ED8            HMASMIO         HMASMIO          1          1EDC            HMASMMSG        HMASMMSG         1
     1EE0            HMASMREC        HMASMREC         5          1EE4            HMASMSCN        HMASMSCN         1
     1EE8            HMASMTBL        HMASMTBL        11          1EEC            HMASMUCL        HMASMUCL         3
     1EF0            HMASMUPD        HMASMUPD         2          1EF4            HMASMLCD        HMASMLCD        10
     1EF8            HMASMLOG        HMASMLOG         9          39A8            HMASMIO         HMASMIO          1
     39A4            HMASMCCA        HMASMDRV         1          6F3C            HMASMMSG        HMASMMSG         1
     6F40            HMASMICS        HMASMIC          2          6F44            HMASMICB        HMASMIC          2


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HMASMUPD    80D0    1686     2
  HMASMCPY    9758     DA9     2
  HMASMLKD    A508    1BA2     2
  HMASMASM    C0B0     B0E     2
  HMASMIC     CBC0     FB4     2
                                        HMASMICI    CBD8    HMASMICB    CBDE    HMASMICF    CBE4    HMASMICS    CBEA
                                        HMASMICC    CBF0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     8C5C            HMASMIO         HMASMIO          1          8C60            HMASMSCN        HMASMSCN         1
     8C64            HMASMASM        HMASMASM         2          8C68            HMASMLKD        HMASMLKD         2
     8C6C            HMASMMSG        HMASMMSG         1          8C70            HMASMICI        HMASMIC          2
     8C74            HMASMICC        HMASMIC          2          8C78            HMASMICF        HMASMIC          2
     8C7C            HMASMCPY        HMASMCPY         2          A06C            HMASMSCN        HMASMSCN         1
     A070            HMASMIO         HMASMIO          1          B9AC            HMASMIO         HMASMIO          1
     B9B0            HMASMICF        HMASMIC          2          B9B4            HMASMSCN        HMASMSCN         1
     C880            HMASMIO         HMASMIO          1          C884            HMASMICF        HMASMIC          2
     C888            HMASMSCN        HMASMSCN         1          D8C0            HMASMIO         HMASMIO          1
     D8C4            HMASMMSG        HMASMMSG         1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HMASMUCL    80D0    201A     3




  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     9610            HMASMIO         HMASMIO          1          9614            HMASMMSG        HMASMMSG         1
     9618            HMASMSCN        HMASMSCN         1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HMASMASI    80D0     6DC     4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     852C            HMASMMSG        HMASMMSG         1          8530            HMASMIO         HMASMIO          1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HMASMREC    87B0    5A5E     5
  HMASMEXT    E210       8     5



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     CB80            HMASMIO         HMASMIO          1          CB84            HMASMMSG        HMASMMSG         1
     CB88            HMASMSCN        HMASMSCN         1          CB8C            HMASMEXT        HMASMEXT         5
     CB90            HMASMASI        HMASMASI         4

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HMASMCPI    87B0    2504     6
  HMASMLKI    ACB8    2539     6



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     AAF0            HMASMIO         HMASMIO          1          AAF4            HMASMMSG        HMASMMSG         1
     CFD0            HMASMIO         HMASMIO          1          CFD4            HMASMMSG        HMASMMSG         1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HMASMRES    D1F8    11DC     7


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     E278            HMASMIO         HMASMIO          1          E27C            HMASMMSG        HMASMMSG         1
     E280            HMASMASI        HMASMASI         4          E284            HMASMCPI        HMASMCPI         6
     E288            HMASMLKI        HMASMLKI         6

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HMASMAPA    D1F8    1344     8
  HMASMZAP    E540    156F     8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     E2B4            HMASMIO         HMASMIO          1          E2B8            HMASMMSG        HMASMMSG         1
     E2BC            HMASMZAP        HMASMZAP         8          E2C0            HMASMLKI        HMASMLKI         6
     E2C4            HMASMCPI        HMASMCPI         6          F758            HMASMSCN        HMASMSCN         1
     F75C            HMASMIO         HMASMIO          1          F760            HMASMLKI        HMASMLKI         6
     F764            HMASMMSG        HMASMMSG         1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HMASMLOG    80D0     B58     9



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     88AC            HMASMIO         HMASMIO          1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HMASMLCD    80D0    2594    10



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     9E94            HMASMIO         HMASMIO          1          9E98            HMASMMSG        HMASMMSG         1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HMASMTBL    80D0    35D8    11


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     B3C8            HMASMIO         HMASMIO          1          B3CC            HMASMMSG        HMASMMSG         1

 ENTRY ADDRESS       48
 TOTAL LENGTH      FAB0





IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK99.R0000297      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DN554                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK99.S0000298      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK99.S0000298      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG103   / START 78240.1946
IEF374I STEP /SG103   / STOP  78240.1946 CPU   0MIN 00.29SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:31.23   ALLOC START    19:46:31.24   MAIN REGION ----- 256K                          *
*   STEP NAME SG103      STEP END TIME  19:46:31.66   PGM START TIME 19:46:31.30   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.43   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.29   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ----------- 91       0159 ----------- 37       0150 ---------- 200       0250 ---------- 444       0151 ------------ 0    *
*   0130 ----------- 40                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK99  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:31.69   ALLOC START    19:46:31.70   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:31.72   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK99 / START 78240.1946
IEF376I  JOB /R21LK99 / STOP  78240.1946 CPU   0MIN 00.29SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK99    JOB READ TIME 19:45:20.80   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.29   *
*   JOB CLASS A          JOB INIT TIME 19:46:31.23   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.50   *
*   ACCOUNT              JOB END TIME  19:46:31.73   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1       00000      00000                   A
            RRRRRRRRR  222222222      11     LL         KK    KK       11      0000000    0000000                 AAA
            RR     RR  22     22     111     LL         KK   KK       111     00     00  00     00               AA AA
            RR     RR        22       11     LL         KK  KK         11     00    000  00    000              AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11     00   0 00  00   0 00             AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11     00  0  00  00  0  00             AA     AA
            RR  RR        22          11     LL         KKK KK         11     00 0   00  00 0   00             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11     000    00  000    00             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111    0000000    0000000              AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     00000      00000               AA     AA

***********A  START   R21LK100   SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK100   START  A***********
***********A  START   R21LK100   SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK100   START  A***********
***********A  START   R21LK100   SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK100   START  A***********
***********A  START   R21LK100   SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK100   START  A***********
***********A  START   R21LK100   SYS SYSA   WTR 00E   07:47:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK100   START  A***********


//R21LK100 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG104 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//RC536 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.RC536
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK100 SG104
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO RC536
IEF237I 250   ALLOCATED TO CI505
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE  CI505(IEFLOCDQ)
IEW0000     INCLUDE  CI505(IEFCNVRT)
IEW0000     INCLUDE  CI505(IEFRDWRT)
IEW0000     ALIAS LOC
IEW0000     ALIAS LOCCAN
IEW0000     ALIAS LOCDQ
IEW0000     NAME IEFLOCDQ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFLOCDQ      00     508
                                        LOCDQ         10    LOCCAN        12    LOC           14
  IEFCNVRT     508      FC
                                        CNVRT        508
  IEFRDWRT     608      AE
                                        RD           608    WRT          60A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4A0            CNVRT           IEFCNVRT                     4A4            RD              IEFRDWRT
      4A8            WRT             IEFRDWRT
 ENTRY ADDRESS       00
 TOTAL LENGTH       6B8

****IEFLOCDQ  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****LOCDQ     IS AN ALIAS FOR THIS MEMBER
****LOCCAN    IS AN ALIAS FOR THIS MEMBER
****LOC       IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     CHANGE IEFSD111(IEFQMDQ2),IEFSD110(IEFQMDQ2)
IEW0000     INCLUDE  CI505(IEFQMDQQ)
IEW0000     ENTRY IEFQMDQ2
IEW0000     ALIAS IEFQMDQ2
IEW0000     NAME IEFQMDQQ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQMDQ2      00     522



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       528

****IEFQMDQQ  NOW REPLACED IN DATA SET
****IEFQMDQ2  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE  RC536(IHKCDBSH)
IEW0000     ALIAS IHKCDMSH
IEW0000     NAME IHKCDBSH(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCDBSH      00      70
                                        IHKCDMSH      48


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        70

****IHKCDBSH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKCDMSH  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE  RC536(IHKCDBTX)
IEW0000     ALIAS IHKCDBTW
IEW0000     NAME IHKCDBTX(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCDBTX      00     298
                                        IHKCDBTW      BA


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       298

****IHKCDBTX  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKCDBTW  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE  RC536(IHKCFSTA)
IEW0000     ALIAS IHKCFSTB
IEW0000     NAME IHKCFSTA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCFSTA      00     486
                                        IHKCFSTB     1CC


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       488

****IHKCFSTA  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKCFSTB  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE  RC536(IHKCFOUT)
IEW0000     ALIAS IHKCFQOP
IEW0000     NAME IHKCFOUT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCFOUT      00     320
                                        IHKCFQOP     254

 ENTRY ADDRESS       00
 TOTAL LENGTH       320

****IHKCFOUT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKCFQOP  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE RC536(IHKCHATS)
IEW0000     ALIAS IHKCASHA
IEW0000     NAME IHKCASHT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCHATS      00     1AE
                                        IHKCASHA      00    IHKCASHT      00

 ENTRY ADDRESS       00
 TOTAL LENGTH       1B0

****IHKCASHT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKCASHA  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE RC536(IHKCHSUP)
IEW0000     NAME IHKCASHU(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCHSUP      00     199
                                        IHKCASHU      00

 ENTRY ADDRESS       00
 TOTAL LENGTH       1A0

****IHKCASHU  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE RC536(IHKCHJIR)
IEW0000     ALIAS IHKCASHD
IEW0000     NAME IHKCASHJ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCHJIR      00     217
                                        IHKCASHJ      00    IHKCASHD      00

 ENTRY ADDRESS       00
 TOTAL LENGTH       218

****IHKCASHJ  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKCASHD  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE RC536(IHKCHIRP)
IEW0000     ALIAS IHKCARJN
IEW0000     NAME IHKCHIRP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCHIRP      00     41B
                                        IHKCARJN      00

 ENTRY ADDRESS       00
 TOTAL LENGTH       420

****IHKCHIRP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKCARJN  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE RC536(IHKCHOSE)
IEW0000     ALIAS IHKCAOSR
IEW0000     NAME IHKCHOSE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCHOSE      00     24A
                                        IHKCAOSR      00

 ENTRY ADDRESS       00
 TOTAL LENGTH       250

****IHKCHOSE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKCAOSR  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE RC536(IHKBBNIT)
IEW0000     NAME IHKBBNIT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKBBNIT      00      BC



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH        C0

****IHKBBNIT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE RC536(IHKQMNGR)
IEW0000     NAME IHKQMNGR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKQMNGR      00     140


 ENTRY ADDRESS       00
 TOTAL LENGTH       140

****IHKQMNGR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK100.R0000299     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.RC536                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK100.S0000300     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK100.S0000300     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG104   / START 78240.1946
IEF374I STEP /SG104   / STOP  78240.1946 CPU   0MIN 00.30SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:31.76   ALLOC START    19:46:31.77   MAIN REGION ----- 256K                          *
*   STEP NAME SG104      STEP END TIME  19:46:32.20   PGM START TIME 19:46:31.84   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.44   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.30   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 52       0150 ----------- 77       0250 ----------- 53       0250 ----------- 29    *
*   0151 ------------ 0       0130 ----------- 43                                                                                  *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK100  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:32.23   ALLOC START    19:46:32.25   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:32.27   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK100/ START 78240.1946
IEF376I  JOB /R21LK100/ STOP  78240.1946 CPU   0MIN 00.30SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK100   JOB READ TIME 19:45:21.09   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.30   *
*   JOB CLASS A          JOB INIT TIME 19:46:31.76   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.52   *
*   ACCOUNT              JOB END TIME  19:46:32.28   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1       00000         1                    A
            RRRRRRRRR  222222222      11     LL         KK    KK       11      0000000       11                   AAA
            RR     RR  22     22     111     LL         KK   KK       111     00     00     111                  AA AA
            RR     RR        22       11     LL         KK  KK         11     00    000      11                 AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11     00   0 00      11                AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11     00  0  00      11                AA     AA
            RR  RR        22          11     LL         KKK KK         11     00 0   00      11                AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11     000    00      11                AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111    0000000     111111              AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     00000      111111              AA     AA

***********A  START   R21LK101   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK101   START  A***********
***********A  START   R21LK101   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK101   START  A***********
***********A  START   R21LK101   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK101   START  A***********
***********A  START   R21LK101   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK101   START  A***********
***********A  START   R21LK101   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK101   START  A***********


//R21LK101 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG105 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,REUS'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.TELCMLIB
//RC536 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.RC536
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK101 SG105
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO RC536
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,REUS
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE RC536(IHKCHDSP)
IEW0000     NAME IHKAADSP(R)
IEW0461  IHKBGNIN
IEW0461  ECBVH1
IEW0461  IHKEODAD
IEW0461  IHKCDRCS
IEW0461  IHKCBRDP
IEW0461  IHKCBRDE
IEW0461  IHKCSTCB
IEW0461  ECBWTR
IEW0461  IHKWTRSV
IEW0461  IHKAALST
IEW0461  ECBCMD
IEW0461  IHKCMDSV


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCHDSP      00     1C8
                                        IHKAADSP      00    IHKPOST1     1A4    IHKAAST0     1A8    IHKAASTB     1B8
                                        IHKPOST2     1C4


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      174            IHKBGNIN       $UNRESOLVED                   170            ECBVH1         $UNRESOLVED
      16C            IHKEODAD       $UNRESOLVED                   17C            IHKCDRCS       $UNRESOLVED
      184            IHKCBRDP       $UNRESOLVED                   180            IHKCBRDE       $UNRESOLVED
      18C            IHKCSTCB       $UNRESOLVED                   19C            ECBWTR         $UNRESOLVED
      1A0            IHKWTRSV       $UNRESOLVED                   1AC            IHKAALST       $UNRESOLVED
      1BC            ECBCMD         $UNRESOLVED                   1C0            IHKCMDSV       $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       1C8

****IHKAADSP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000     INCLUDE RC536(IHKABORT)
IEW0000     ALIAS IHKABLWT
IEW0000     NAME IHKABORT(R)
IEW0461  IHKADPCK
IEW0461  IHKTRTAB


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKABORT      00     6B9
                                        IHKABLWT      00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      68C            IHKADPCK       $UNRESOLVED                   688            IHKTRTAB       $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       6C0

****IHKABORT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKABLWT  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000     INCLUDE RC536(IHKCHPUP)
IEW0000     ALIAS IHKCHPCK
IEW0000     ALIAS IHKCHUPK
IEW0000     NAME IHKCHPUP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCHPUP      00     33E
                                        IHKCHPCK      00    IHKCHUPK      B2


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       340

****IHKCHPUP  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKCHUPK  IS AN ALIAS FOR THIS MEMBER
****IHKCHPCK  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE RC536(IHKCHOFS)
IEW0000     ALIAS IHKCHUM0
IEW0000     NAME IHKCHOFS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCHOFS      00      96
  IHKCHUM0      98      90



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       128

****IHKCHOFS  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKCHUM0  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE RC536(IHKCRIME)
IEW0000     ALIAS IHKBBCCR
IEW0000     NAME IHKCRIME(R)
IEW0461  IHKCDLCB
IEW0461  IHKCDNOL
IEW0461  IHKCDLGL
IEW0461  IHKCACOM
IEW0461  IHKAADSP
IEW0461  IHKCAINT


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCRIME      00     226
                                        IHKBBCCR      00    IHKCMDSV     128


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      174            IHKCDLCB       $UNRESOLVED                   178            IHKCDNOL       $UNRESOLVED
      17C            IHKCDLGL       $UNRESOLVED                   170            IHKCACOM       $UNRESOLVED
      218            IHKAADSP       $UNRESOLVED                   21C            IHKCAINT       $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       228

****IHKCRIME  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKBBCCR  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000     INCLUDE RC536(IHKCRUMB)
IEW0000     ALIAS IHKCBLDM
IEW0000     NAME IHKCRUMB(R)
IEW0461  IHKCACOM
IEW0461  IHKCDCBS
IEW0461  IHKAADSP
IEW0461  IHKCDTDR
IEW0461  IHKCDTMR


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKCRUMB      00     29C
                                        IHKCBLDM      00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      218            IHKCACOM       $UNRESOLVED                   224            IHKCDCBS       $UNRESOLVED
      228            IHKAADSP       $UNRESOLVED                   230            IHKCDTDR       $UNRESOLVED
      234            IHKCDTMR       $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       2A0

****IHKCRUMB  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKCBLDM  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000     INCLUDE RC536(IHKABLWR)
IEW0000     NAME IHKABLWR(R)
IEW0461  IHKCACOM


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKABLWR      00     F32



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      E88            IHKCACOM       $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       F38

****IHKABLWR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000     INCLUDE RC536(IHKABLRD)
IEW0000     NAME IHKABLRD(R)
IEW0461  IHKCDFLN
IEW0461  IHKCDSOC
IEW0461  IHKCDTDR
IEW0461  IHKCACOM
IEW0461  IHKADUPK
IEW0461  IHKCDLCB
IEW0461  IHKCDNOL
IEW0461  IHKCDLGL
IEW0461  IHKCCSCN
IEW0461  IHKAADSP
IEW0461  IHKCAVER
IEW0461  IHKCBLDM
IEW0461  IHKCDFMR
IEW0461  IHKCDSCH
IEW0461  IHKABALC
IEW0461  IHKABLST
IEW0461  IHKABXMT


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKABLRD      00    1104
                                        IHKABRET     8EC    IHKABXCN     D50    IHKABCON     DD4


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      E38            IHKCDFLN       $UNRESOLVED                   E3C            IHKCDSOC       $UNRESOLVED
      E40            IHKCDTDR       $UNRESOLVED                   E44            IHKCACOM       $UNRESOLVED
      D38            IHKADUPK       $UNRESOLVED                   D40            IHKCDLCB       $UNRESOLVED
      D44            IHKCDNOL       $UNRESOLVED                   D48            IHKCDLGL       $UNRESOLVED
      E10            IHKCCSCN       $UNRESOLVED                   E14            IHKAADSP       $UNRESOLVED
      E18            IHKCAVER       $UNRESOLVED                   E1C            IHKCBLDM       $UNRESOLVED
      E20            IHKCDFMR       $UNRESOLVED                   E24            IHKCDSCH       $UNRESOLVED
      E28            IHKABALC       $UNRESOLVED                   E2C            IHKABLST       $UNRESOLVED
      E30            IHKABXMT       $UNRESOLVED                  10C0            IHKCCSCN       $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH      1108

****IHKABLRD  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000     INCLUDE RC536(IHKABALC)
IEW0000     NAME IHKABALC(R)
IEW0461  IHKABCON


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKABALC      00     30C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      308            IHKABCON       $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       310

****IHKABALC  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000     INCLUDE RC536(IHKXJBGN)
IEW0000     NAME IHKRJBGN(R)
IEW0461  IHKCDLCB
IEW0461  IHKCDNOL
IEW0461  IHKCDLGL
IEW0461  IHKCACOM
IEW0461  IHKCDQMG
IEW0461  IHKBBRII
IEW0461  IHKCBRDP


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKXJBGN      00     2C0
                                        IHKRJBGN      00    IHKEODAD     12A    IHKCHAS      18A    IHKBGNIN     2A4


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      25C            IHKCDLCB       $UNRESOLVED                   260            IHKCDNOL       $UNRESOLVED
      264            IHKCDLGL       $UNRESOLVED                   254            IHKCACOM       $UNRESOLVED
      268            IHKCACOM       $UNRESOLVED                   29C            IHKCDQMG       $UNRESOLVED
      26C            IHKBBRII       $UNRESOLVED                   270            IHKCBRDP       $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       2C0

****IHKRJBGN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000     INCLUDE RC536(IHKXHRDR)
IEW0000     NAME IHKCHRDR(R)
IEW0461  IHKCACOM
IEW0461  IHKCAINT
IEW0461  IHKCBRDE
IEW0461  IHKCBRDP
IEW0461  IHKRIECB


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKXHRDR      00     999
                                        IHKCHRDR      00    IHKCHASE     5D2    IHKCEJDT     7B2    IHKCELST     814
                                        IHKCEJBN     91B


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      660            IHKCACOM       $UNRESOLVED                   6A0            IHKCACOM       $UNRESOLVED
      680            IHKCAINT       $UNRESOLVED                   67C            IHKCBRDE       $UNRESOLVED
      678            IHKCBRDP       $UNRESOLVED                   674            IHKRIECB       $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       9A0

****IHKCHRDR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000     INCLUDE RC536(IHKXEDIT)
IEW0000     NAME IHKCEDIT(R)
IEW0461  IHKCEJBN
IEW0461  IHKCEJDT
IEW0461  IHKCDSOC
IEW0461  IHKCELST


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKXEDIT      00     60D
                                        IHKCEDIT      00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      514            IHKCEJBN       $UNRESOLVED                   518            IHKCEJDT       $UNRESOLVED
      51C            IHKCEJDT       $UNRESOLVED                   520            IHKCDSOC       $UNRESOLVED
      528            IHKCELST       $UNRESOLVED                   52C            IHKCELST       $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       610

****IHKCEDIT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000     INCLUDE RC536(IHKBBRII)
IEW0000     NAME IHKBBRII(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKBBRII      00     150
                                        IHKCAINE      E4    IHKCBRDE      E8    IHKCAINP      EC    IHKCBRDP      F0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       150

****IHKBBRII  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


IEW0000     INCLUDE RC536(IHKXAINT)
IEW0000     NAME IHKCAINT(R)
IEW0461  IHKAADSP
IEW0461  IHKCCSCN
IEW0461  IHKCDTMR
IEW0461  IHKCBLDM
IEW0461  IHKCDSCH
IEW0461  IHKCCSGN
IEW0461  IHKCCPLM
IEW0461  IHKCBSTD
IEW0461  IHKCCSUD
IEW0461  IHKCDUMR
IEW0461  IECTLERP
IEW0461  IHKCDFMR
IEW0461  IHKCDJMR
IEW0461  IHKCDCMR
IEW0461  IHKCDOMR
IEW0461  IHKCHRDR
IEW0461  IHKCEDIT
IEW0461  IHKCHASE
IEW0461  IHKCCQMG
IEW0461  IHKBBCCR
IEW0461  IHKRJBGN
IEW0461  IHKCHSDQ
IEW0461  IHKABLWT
IEW0461  IHKABLST
IEW0461  IHKCAMSN
IEW0461  IHKCHOFS
IEW0461  IHKCHUM0
IEW0461  IHKCCBUF
IEW0461  IHKCCECB
IEW0461  IHKCDFTB
IEW0461  IHKCDFLN
IEW0461  IHKCDFNB
IEW0461  IHKCDUDR
IEW0461  IHKCDULN
IEW0461  IHKCDUNB
IEW0461  IHKCDTDR
IEW0461  IHKCDTLN
IEW0461  IHKCDTNB
IEW0461  IHKCDLNT
IEW0461  IHKCDLLN
IEW0461  IHKCDLNB
IEW0461  IHKCDCBS
IEW0461  IHKCDSOC
IEW0461  IHKCDFES
IEW0461  IHKCDJLN
IEW0461  IHKAALST
IEW0461  IHKCBSAE
IEW0461  IHKCDRCS
IEW0461  IHKCAINE
IEW0461  IHKCAINP

                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKXAINT      00     DF8
                                        IHKCAINT      00    IHKCAVER      18    IHKCACOM     4B8


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2DC            IHKCAINE       $UNRESOLVED                   2E0            IHKCAINP       $UNRESOLVED
      4C0            IHKAADSP       $UNRESOLVED                   4C4            IHKCCSCN       $UNRESOLVED
      4C8            IHKCDTMR       $UNRESOLVED                   4CC            IHKCBLDM       $UNRESOLVED
      4D0            IHKCDSCH       $UNRESOLVED                   4D4            IHKCCSGN       $UNRESOLVED
      4D8            IHKCCPLM       $UNRESOLVED                   4E0            IHKCBSTD       $UNRESOLVED
      4E4            IHKCCSUD       $UNRESOLVED                   4EC            IHKCDUMR       $UNRESOLVED
      518            IECTLERP       $UNRESOLVED                   520            IHKCDFMR       $UNRESOLVED
      524            IHKCDJMR       $UNRESOLVED                   530            IHKCDCMR       $UNRESOLVED
      534            IHKCDOMR       $UNRESOLVED                   544            IHKCHRDR       $UNRESOLVED
      548            IHKCEDIT       $UNRESOLVED                   550            IHKCHASE       $UNRESOLVED
      55C            IHKCCQMG       $UNRESOLVED                   560            IHKBBCCR       $UNRESOLVED
      564            IHKRJBGN       $UNRESOLVED                   568            IHKCHSDQ       $UNRESOLVED
      570            IHKABLWT       $UNRESOLVED                   574            IHKABLST       $UNRESOLVED
      598            IHKCAMSN       $UNRESOLVED                   5A4            IHKCAMSN       $UNRESOLVED
      59C            IHKCHOFS       $UNRESOLVED                   5A0            IHKCHUM0       $UNRESOLVED
      57C            IHKCCBUF       $UNRESOLVED                   578            IHKCCECB       $UNRESOLVED
      500            IHKCDFTB       $UNRESOLVED                   504            IHKCDFLN       $UNRESOLVED
      508            IHKCDFNB       $UNRESOLVED                   4F4            IHKCDUDR       $UNRESOLVED
      4F8            IHKCDULN       $UNRESOLVED                   4FC            IHKCDUNB       $UNRESOLVED
      50C            IHKCDTDR       $UNRESOLVED                   510            IHKCDTLN       $UNRESOLVED
      514            IHKCDTNB       $UNRESOLVED                   4F0            IHKCDLNT       $UNRESOLVED
      4DC            IHKCDLLN       $UNRESOLVED                   4E8            IHKCDLNB       $UNRESOLVED
      51C            IHKCDCBS       $UNRESOLVED                   528            IHKCDSOC       $UNRESOLVED
      52C            IHKCDFES       $UNRESOLVED                   538            IHKCDJLN       $UNRESOLVED
      540            IHKAALST       $UNRESOLVED                   554            IHKCBSAE       $UNRESOLVED
      558            IHKCDRCS       $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       DF8

****IHKCAINT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REUSABLE.


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.




IEF142I - STEP WAS EXECUTED - COND CODE 0004
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK101.R0000301     SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   MVT1.TELCMLIB                                KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.RC536                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK101.S0000302     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK101.S0000302     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG105   / START 78240.1946
IEF374I STEP /SG105   / STOP  78240.1946 CPU   0MIN 00.28SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:32.31   ALLOC START    19:46:32.32   MAIN REGION ----- 256K                          *
*   STEP NAME SG105      STEP END TIME  19:46:32.72   PGM START TIME 19:46:32.38   MAIN STORAGE ---- 130K    CONDITION CODE 0004   *
*   PSTP NAME            ELAPSED TIME   00:00:00.41   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.28   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0130 ----------- 96       0150 ----------- 99       0250 ---------- 118       0151 ------------ 0    *
*   0130 ----------- 35                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK101  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:32.74   ALLOC START    19:46:32.76   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:32.78   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK101/ START 78240.1946
IEF376I  JOB /R21LK101/ STOP  78240.1946 CPU   0MIN 00.28SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK101   JOB READ TIME 19:45:21.37   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.28   *
*   JOB CLASS A          JOB INIT TIME 19:46:32.31   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.48   *
*   ACCOUNT              JOB END TIME  19:46:32.79   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1       00000     2222222                  A
            RRRRRRRRR  222222222      11     LL         KK    KK       11      0000000   222222222                AAA
            RR     RR  22     22     111     LL         KK   KK       111     00     00  22     22               AA AA
            RR     RR        22       11     LL         KK  KK         11     00    000        22               AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11     00   0 00       22               AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11     00  0  00      22                AA     AA
            RR  RR        22          11     LL         KKK KK         11     00 0   00     22                 AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11     000    00    22                  AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111    0000000    22222222             AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     00000    222222222             AA     AA

***********A  START   R21LK102   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK102   START  A***********
***********A  START   R21LK102   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK102   START  A***********
***********A  START   R21LK102   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK102   START  A***********
***********A  START   R21LK102   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK102   START  A***********
***********A  START   R21LK102   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK102   START  A***********


//R21LK102 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG106 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//RC551 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.RC551
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK102 SG106
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO RC551
IEF237I 250   ALLOCATED TO CI505
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE  CI505(IEFLOCDQ)
IEW0000     INCLUDE  CI505(IEFCNVRT)
IEW0000     INCLUDE  CI505(IEFRDWRT)
IEW0000     ENTRY LOC
IEW0000     NAME IHKLOC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFLOCDQ      00     508
                                        LOCDQ         10    LOCCAN        12    LOC           14
  IEFCNVRT     508      FC
                                        CNVRT        508
  IEFRDWRT     608      AE
                                        RD           608    WRT          60A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4A0            CNVRT           IEFCNVRT                     4A4            RD              IEFRDWRT
      4A8            WRT             IEFRDWRT
 ENTRY ADDRESS       14
 TOTAL LENGTH       6B8

****IHKLOC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE RC551(IHKRER)
IEW0000     ENTRY IHKRER
IEW0000     ALIAS IHKRER01
IEW0000     ALIAS IHKRER02
IEW0000     ALIAS IHKRER03
IEW0000     NAME IHKRER(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKRER        00     7F4
                                        IHKRER01      A4    IHKRER02     276    IHKRER03     370


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       7F8

****IHKRER    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKRER03  IS AN ALIAS FOR THIS MEMBER
****IHKRER02  IS AN ALIAS FOR THIS MEMBER
****IHKRER01  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE RC551(IHKLGF)
IEW0000     INCLUDE RC551(IHKEND)
IEW0000     ENTRY IHKEND
IEW0000     ALIAS IHKLGF
IEW0000     NAME IHKEND(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKLGF        00     4EA
  IHKEND       4F0     15C


 ENTRY ADDRESS      4F0
 TOTAL LENGTH       650

****IHKEND    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKLGF    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE RC551(IHKALC)
IEW0000     INCLUDE RC551(IHKERR)
IEW0000     ENTRY IHKALC
IEW0000     ALIAS IHKERR
IEW0000     NAME IHKALC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKALC        00     316
  IHKERR       318     415



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       730

****IHKALC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKERR    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE RC551(IHKIPT)
IEW0000     INCLUDE RC551(IHKOUT)
IEW0000     ENTRY IHKIPT
IEW0000     ALIAS IHKOUT
IEW0000     NAME IHKIPT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKIPT        00     44C
  IHKOUT       450     339



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       790

****IHKIPT    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKOUT    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE RC551(IHKTAB)
IEW0000     INCLUDE RC551(IHKSTP)
IEW0000     ENTRY IHKTAB
IEW0000     ALIAS IHKSTP
IEW0000     NAME IHKTAB(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHKTAB        00     470
  IHKSTP       470     306



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       778

****IHKTAB    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHKSTP    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK102.R0000303     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.RC551                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK102.S0000304     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK102.S0000304     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG106   / START 78240.1946
IEF374I STEP /SG106   / STOP  78240.1946 CPU   0MIN 00.19SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:32.82   ALLOC START    19:46:32.83   MAIN REGION ----- 256K                          *
*   STEP NAME SG106      STEP END TIME  19:46:33.16   PGM START TIME 19:46:32.90   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.34   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.19   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 29       0150 ----------- 43       0250 ----------- 63       0250 ----------- 21    *
*   0151 ------------ 0       0130 ----------- 32                                                                                  *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK102  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:33.21   ALLOC START    19:46:33.22   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:33.25   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK102/ START 78240.1946
IEF376I  JOB /R21LK102/ STOP  78240.1946 CPU   0MIN 00.19SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK102   JOB READ TIME 19:45:21.59   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.19   *
*   JOB CLASS A          JOB INIT TIME 19:46:32.82   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.43   *
*   ACCOUNT              JOB END TIME  19:46:33.25   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1      CCCCCCC   YY    YY        1       00000    333333333                 A
            RRRRRRRRR  222222222      11     CCCCCCCCC  YY    YY       11      0000000   333333333                AAA
            RR     RR  22     22     111     CC     CC  YY    YY      111     00     00  33    33                AA AA
            RR     RR        22       11     CC          YY  YY        11     00    000       33                AA   AA
            RRRRRRRRR       22        11     CC           YYYY         11     00   0 00      3333              AA     AA
            RRRRRRRR       22         11     CC            YY          11     00  0  00     333333             AA     AA
            RR  RR        22          11     CC            YY          11     00 0   00         33             AAAAAAAAA
            RR   RR      22           11     CC     CC     YY          11     000    00  33     33             AAAAAAAAA
            RR    RR    22222222    111111   CCCCCCCCC     YY        111111    0000000   333333333             AA     AA
            RR     RR  222222222    111111    CCCCCCC      YY        111111     00000     3333333              AA     AA

***********A  START   R21CY103   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY103   START  A***********
***********A  START   R21CY103   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY103   START  A***********
***********A  START   R21CY103   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY103   START  A***********
***********A  START   R21CY103   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY103   START  A***********
***********A  START   R21CY103   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY103   START  A***********


//R21CY103 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG107  EXEC PGM=IEBCOPY,COND=(8,LT)
//SYSUT3 DD DISP=SHR,DSNAME=SYS1.SYSUT3
//SYSUT4 DD DISP=SHR,DSNAME=SYS1.SYSUT4
//SYSPRINT DD SPACE=(121,(500,100),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=3630),                  X
//             SYSOUT=A
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//CI535 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI535
//CI555 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.CI555
//DM508 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DM508
//CQ548 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CQ548
//IO523 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.IO523
//RC536 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.RC536
//DN533 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN533
//DN554 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DN554
//CQ513 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.CQ513
//CQ548 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.CQ548
//DM509 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.DM509
//IO526 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.IO526
//UT506 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.UT506
//SVCLIB DD DSNAME=MVT1.SVCLIB,VOLUME=(,RETAIN,SER=ASPRES),
// UNIT=3330,DISP=OLD
//IMAGELIB DD DISP=OLD,DSN=MVT1.IMAGELIB,VOL=(,RETAIN,SER=ASPRES),
// UNIT=3330
//LINKLIB DD DSNAME=MVT1.LINKLIB,VOLUME=(,RETAIN,SER=ASPRES),      XXXXXXXX
//             UNIT=3330,DISP=OLD
//PL1LIB DD DSNAME=MVT1.PL1LIB,VOLUME=(,RETAIN,SER=ASPRES),      XXXXXXXXXX
//             UNIT=3330,DISP=OLD
//FORTLIB DD DSNAME=MVT1.FORTLIB,VOLUME=(,RETAIN,SER=ASPRES),    XXXXXXXXXX
//             UNIT=3330,DISP=OLD
//COBLIB DD DSNAME=MVT1.COBLIB,VOLUME=(,RETAIN,SER=ASPRES),      XXXXXXXXXX
//             UNIT=3330,DISP=OLD
//RC551 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.RC551
//TELCMLIB DD DSNAME=MVT1.TELCMLIB,VOLUME=(,RETAIN,SER=ASPRES),    XXXXXXXX
//             UNIT=3330,DISP=OLD
//SYSIN DD *
IEF236I ALLOC. FOR R21CY103 SG107
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 151   ALLOCATED TO SYSUT4
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO CI535
IEF237I 250   ALLOCATED TO CI555
IEF237I 250   ALLOCATED TO DM508
IEF237I 250   ALLOCATED TO CQ548
IEF237I 250   ALLOCATED TO IO523
IEF237I 250   ALLOCATED TO RC536
IEF237I 250   ALLOCATED TO DN533
IEF237I 250   ALLOCATED TO DN554
IEF237I 250   ALLOCATED TO CQ513
IEF237I 250   ALLOCATED TO CQ548
IEF237I 250   ALLOCATED TO DM509
IEF237I 250   ALLOCATED TO IO526
IEF237I 250   ALLOCATED TO UT506
IEF237I 150   ALLOCATED TO SVCLIB
IEF237I 150   ALLOCATED TO IMAGELIB
IEF237I 150   ALLOCATED TO LINKLIB
IEF237I 150   ALLOCATED TO PL1LIB
IEF237I 150   ALLOCATED TO FORTLIB
IEF237I 150   ALLOCATED TO COBLIB
IEF237I 250   ALLOCATED TO RC551
IEF237I 150   ALLOCATED TO TELCMLIB
IEF237I 130   ALLOCATED TO SYSIN


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


                      COPY  OUTDD=SVCLIB,INDD=DM508
                      SELECT MEMBER=(IGC0010E)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DM508    -
IEB154I  IGC0010E HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000520 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000316  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0002


                     COPY OUTDD=SVCLIB,INDD=IO526
                     SELECT MEMBER=(IGG019GG,IGG019HA,IGG019JH)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY IO526    -
IEB154I  IGG019GG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019HA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JH HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000519 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000315  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0003


                     COPY OUTDD=SVCLIB,INDD=IO526
                     SELECT MEMBER=(IGG0192A,IGG0192B,IGG01921,IGG01920,IGG0202D,IGG0192C)
                     SELECT MEMBER=(IGG01922)
                     SELECT MEMBER=(IGG0192D,IGG0192E,IGG01925,IGG01927,IGG0192F,IGG0192G)
                     SELECT MEMBER=(IGG0192U,IGG0192R,IGG0192S,IGG0192V,IGG0192T)
                     SELECT MEMBER=(IGG019GA,IGG019GB,IGG019GC,IGG019GD,IGG019GE,IGG019GF)
                     SELECT MEMBER=(IGG019IA,IGG019IB,IGG019IE,IGG019IF)
                     SELECT MEMBER=(IGG0202I,IGG0202J,IGG0202K,IGG0202L,IGG0202M,IGG0202N)
                     SELECT MEMBER=(IGG019HB,IGG019HD,IGG019HF,IGG019HG)
                     SELECT MEMBER=(IGG01924,IGG01928,IGG01929)
                     SELECT MEMBER=(IGG02028,IGG02029,IGG019HL,IGG019HN)
                     SELECT MEMBER=(IGG019HH,IGG019HI,IGG019HJ,IGG019HK)
                     SELECT MEMBER=(IGG0195D,IGG0195G,IGG0196D,IGG0196G)
                     SELECT MEMBER=(IGG0196C)
                     SELECT MEMBER=(IGG0195T,IGG0195U,IGG019I1,IGG019I2)
                     SELECT MEMBER=(IGG0192H,IGG0192P,IGG0192I,IGG0192K,IGG0192L,IGG0192M)
                     SELECT MEMBER=(IGG0192Q,IGG0192N,IGG0192O,IGG0192J,IGG0202A,IGG019JU)
                     SELECT MEMBER=(IGG0192W,IGG0192X,IGG0192Z,IGG01950)
                     SELECT MEMBER=(IGG019J6,IGG019J7,IGG019JX,IGG019J0)
                     SELECT MEMBER=(IGG019J3,IGG019JV,IGG019H3,IGG019H7)
                     SELECT MEMBER=(IGG019JW,IGG019G0,IGG019G1,IGG019G2,IGG019G3,IGG019G4)
                     SELECT MEMBER=(IGG019G5,IGG019G6,IGG019G7,IGG019G8,IGG019G9)
                     SELECT MEMBER=(IGG019GO,IGG019GL,IGG019GM,IGG019GN)
                     SELECT MEMBER=(IGG019IM,IGG019IN,IGG019IO,IGG019I9)
                     SELECT MEMBER=(IGG019GW,IGG019GX,IGG019GY,IGG019GV,IGG019GZ)
                     SELECT MEMBER=(IGG019IX,IGG019IY,IGG019IZ,IGG019JC)
                     SELECT MEMBER=(IGG019JI,IGG019JJ,IGG019JK,IGG019JL,IGG019JM,IGG019JN)
                     SELECT MEMBER=(IGG019JO,IGG019JP,IGG019JQ,IGG019JR)
                     SELECT MEMBER=(IGG019JS,IGG019JT,IGG019HP)
                     SELECT MEMBER=(IGG032I1,IGG032I2,IGG032I3,IGG032I4,IGG032I5,IGG032I6)
                     SELECT MEMBER=(IGG032I7)
                      SELECT  MEMBER=(IGG032I8)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY IO526    -
IEB154I  IGG019GA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GV HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GW HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GY HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019GZ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019G0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019G1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019G2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019G3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019G4 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0004


IEB154I  IGG019G5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019G6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019G7 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019G8 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019G9 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019HB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019HD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019HF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019HG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019HH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019HI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019HJ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019HK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019HL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019HN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019HP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019H3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019H7 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019IA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019IB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019IE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019IF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019IM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019IN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019IO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019IX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019IY HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019IZ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019I1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019I2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019I9 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JJ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JQ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JU HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JV HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JW HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019JX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019J0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019J3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019J6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019J7 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192A HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0005


IEB154I  IGG0192B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192K HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192L HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192M HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192N HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192O HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192Q HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192S HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192T HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192U HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192V HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192W HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192X HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0192Z HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01920 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01921 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01922 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01924 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01925 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01927 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01928 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01929 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0195D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0195G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0195T HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0195U HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01950 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0196C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0196D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0196G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0202A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0202D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0202I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0202J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0202K HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0202L HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0202M HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0202N HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG02028 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG02029 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG032I1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG032I2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG032I3 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0006


IEB154I  IGG032I4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG032I5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG032I6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG032I7 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG032I8 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000489 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000293  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0007


                     COPY OUTDD=SVCLIB,INDD=CI505
                       SELECT MEMBER=(IGG019C5)
                       SELECT MEMBER=(IGE0000I,IGE0100I,IGE0200I,IGE0300I)
                          SELECT  MEMBER=(IGE0400I)
                         SELECT MEMBER=(IGE0800I)
                         SELECT MEMBER=(IGE0900I)
                            SELECT MEMBER=(IGE0000A)
                            SELECT MEMBER=(IGE0000D)
                            SELECT MEMBER=(IGE0000G)
                            SELECT MEMBER=(IGE0001C,IGE0101C)
                      SELECT MEMBER=(IGE0000F,IGE0100F)
                      SELECT MEMBER=(IGE0200F)
                     SELECT MEMBER=(IGX00015)
                        SELECT MEMBER=(IGE0025E)
                      SELECT MEMBER=(IGE0125E,IGE0225E)
                         SELECT MEMBER=(IGE0025C,IGE0025D)
                       SELECT MEMBER=(IGE0125C,IGE0225C,IGE0325C)
                        SELECT MEMBER=(IGE0425C,IGC0001G)
                       SELECT MEMBER=(IGC0003C)
                              SELECT MEMBER=(IGC0009A,IGC0109A)
                      SELECT MEMBER=(IGE0025F,IGE0125F)
                       SELECT MEMBER=(IGE0625F)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI505    -
IEB154I  IGC0001G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0003C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0009A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0109A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0000A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0000D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0000F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0000G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0000I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0001C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0025C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0025D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0025E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0025F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0100F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0100I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0101C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0125C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0125E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0125F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0200F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0200I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0225C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0225E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0300I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0325C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0400I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0425C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0625F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0800I HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0008


IEB154I  IGE0900I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019C5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGX00015 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000483 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000288  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0009


                     COPY OUTDD=SVCLIB,INDD=CQ513
                      SELECT MEMBER=(IGE0010E,IGE0110E,IGE0210E)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CQ513    -
IEB154I  IGE0010E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0110E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0210E HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000482 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000288  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0010


                     COPY OUTDD=SVCLIB,INDD=CI505
                     SELECT MEMBER=((IEAAST00,IGC0006{))
                     SELECT MEMBER=((IFBSTAT,IGC0007F))
                     SELECT MEMBER=((IFBSTAT1,IGC0107F))
                     SELECT MEMBER=((IFBSTAT0,IGC0307F))
                     SELECT MEMBER=((IFBSTAT2,IGC0207F))
                     SELECT MEMBER=((IEE1403D,IGC1403D))
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI505    -
IEB155I  IGC0006{ HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0007F HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0107F HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0207F HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0307F HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC1403D HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB144I  THERE ARE 0000481 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000287  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0011


                     COPY OUTDD=SVCLIB,INDD=CI535
                     SELECT MEMBER=((IEAQTM00,IGC0001C),(IEAQTM01,IGC0101C))
                     SELECT MEMBER=((IEAQTM03,IGC0301C))
                     SELECT MEMBER=((IEAQTM04,IGC0401C),(IEAQTM05,IGC0501C))
                     SELECT MEMBER=((IEAQTM07,IGC0701C),(IEAQTM08,IGC0801C))
                     SELECT MEMBER=((IEAQTM09,IGC0901C),(IEAQTM0B,IGC0B01C))
                     SELECT MEMBER=((IEAQTM0C,IGC0C01C),(IEAQTM0D,IGC0D01C))
                     SELECT MEMBER=((IEAQTM0F,IGC0F01C),(IEAQTM0G,IGC0G01C))
                     SELECT MEMBER=((IEAQTM0L,IGC0L01C),(IEAQTM0M,IGC0M01C))
                     SELECT MEMBER=((IEAQTM0N,IGC0N01C),(IEAQTM0P,IGC0P01C))
                     SELECT MEMBER=((IEAQTM0R,IGC0R01C),(IEAQTM0S,IGC0S01C))
                     SELECT MEMBER=((IEAQTM0T,IGC0T01C),(IEAQTM0U,IGC0U01C))
                     SELECT MEMBER=((IEAQTM0V,IGC0V01C),(IEAQTM0W,IGC0W01C))
                     SELECT MEMBER=((IEAQAD0Y,IGC0005A),(IEAQAD0Z,IGC0Z05A))
                     SELECT MEMBER=((IEAQAD00,IGC0L05A),(IEAQAD01,IGC0105A))
                     SELECT MEMBER=((IEAQAD02,IGC0205A),(IEAQAD03,IGC0305A))
                     SELECT MEMBER=((IEAQAD04,IGC0405A),(IEAQAD05,IGC0505A))
                     SELECT MEMBER=((IEAQAD06,IGC0605A),(IEAQAD07,IGC0705A))
                     SELECT MEMBER=((IEAQAD08,IGC0805A),(IEAQAD0A,IGC0A05A))
                     SELECT MEMBER=((IEAQAD0J,IGC0J05A),(IEAQAD0M,IGC0M05A))
                     SELECT MEMBER=((IEAQAD0N,IGC0N05A))
                     SELECT MEMBER=((IEAQAD0C,IGC0C05A))
                     SELECT MEMBER=((IEAQAD0Q,IGC0Q05A))
                     SELECT MEMBER=((IEAQAD0D,IGC0D05A))
                     SELECT MEMBER=((IEAQAD0E,IGC0E05A))
                     SELECT MEMBER=((IEAQAD0F,IGC0F05A))
                     SELECT MEMBER=((IEAQAD0G,IGC0G05A))
                     SELECT MEMBER=((IEAQAD0R,IGC0R05A))
                     SELECT MEMBER=((IEAQAD0S,IGC0S05A))
                     SELECT MEMBER=((IEAQAD0H,IGC0H05A),(IEAQAD0I,IGC0I05A))
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI535    -
IEB155I  IGC0A05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0B01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0C01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0C05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0D01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0D05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0E05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0F01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0F05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0G01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0G05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0H05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0I05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0J05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0L01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0L05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0M01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0M05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0N01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0N05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0P01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0Q05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0012


IEB155I  IGC0R01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0R05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0S01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0S05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0T01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0U01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0V01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0W01C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0Z05A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0001C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0005A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0101C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0105A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0205A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0301C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0305A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0401C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0405A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0501C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0505A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0605A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0701C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0705A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0801C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0805A HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0901C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB144I  THERE ARE 0000473 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000279  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0013


                     COPY OUTDD=LINKLIB,INDD=CI505
                     SELECT MEMBER=(IEAXPSIM,IEAXPALL,IEAXPDXR)
                     SELECT MEMBER=(IFCDIP00)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI505    -
IEB154I  IEAXPALL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAXPDXR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAXPSIM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFCDIP00 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000910 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000301  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0014


                     COPY OUTDD=SVCLIB,INDD=DM508
                     SELECT MEMBER=(IGC0010C)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DM508    -
IEB154I  IGC0010C HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000473 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000279  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0015


                     COPY OUTDD=SVCLIB,INDD=IO523
                     SELECT MEMBER=(IGGIFF01)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY IO523    -
IEB154I  IGGIFF01 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000473 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000279  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0016


                     COPY OUTDD=LINKLIB,INDD=CI505
                     SELECT MEMBER=(IHLWRTE,IHLWRAP,IHLTDCB)
                     SELECT MEMBER=(IHLTAR2,IHLTAR3,IHLTAR4,IHLTAR5)
                     SELECT MEMBER=(IHLTAR6,IHLTSCN,IHLTPMT,IHLT103)
                     SELECT MEMBER=(IHLTTAB,IHLTUSR,IHLTSIO,IHLTPED)
                     SELECT MEMBER=(IHLTFIL)
                     SELECT MEMBER=(IHLTSYSV)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI505    -
IEB154I  IHLTAR2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTAR3  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTAR4  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTAR5  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTAR6  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTDCB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTFIL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTPED  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTPMT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTSCN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTSIO  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTSYSV HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTTAB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLTUSR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLT103  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLWRAP  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHLWRTE  HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000906 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000298  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0017


                     COPY OUTDD=SVCLIB,INDD=DM508
                     SELECT MEMBER=((IGC00020,IGC0002{))
                     SELECT MEMBER=(IGC0001I)
                     SELECT MEMBER=(IGC0002B)
                     SELECT MEMBER=(IGC0002C,IFG0232A)
                     SELECT MEMBER=(IGC0003A)
                     SELECT MEMBER=(READPSWD)
                     SELECT MEMBER=(SECLOADA)
                     SELECT MEMBER=(IGG0196M)
                     SELECT MEMBER=(IGC0005E)
                     SELECT MEMBER=(IGC0006D)
                     SELECT MEMBER=(IFG0190P)
                     SELECT MEMBER=(IFG0190R,IFG0200R,IFG0550R)
                     SELECT MEMBER=(IFG0193A,IFG0193B,IFG0193D)
                     SELECT MEMBER=(IFG0193C,OMODVOL1)
                     SELECT MEMBER=(IFG0193E,IFG0194A,IFG0194C,IFG0194D)
                     SELECT MEMBER=(IFG0194E,IFG0194F,IFG0194G,IFG0194H)
                     SELECT MEMBER=(IFG0194I,IFG0194R)
                     SELECT MEMBER=(IFG0194J,IGG0190A)
                     SELECT MEMBER=(IFG0195A,IFG0195B)
                     SELECT MEMBER=(IFG0195C,IFG0195E,IFG0195G)
                     SELECT MEMBER=(IFG0195D,IGG0190B)
                     SELECT MEMBER=(IFG0195H,IFG0195J,IFG0195K,IFG0195M)
                     SELECT MEMBER=(IFG0195N,IFG0195O,IFG0195P,IFG0195T)
                     SELECT MEMBER=(IFG0195U,IFG0196J,IFG0196K)
                     SELECT MEMBER=(IFG0196L,IFG0196M,IFG0196N)
                     SELECT MEMBER=(IFG0195V)
                     SELECT MEMBER=(IFG0196O,IGG0190R)
                     SELECT MEMBER=(IFG0196Q,IFG0196T,IFG0196U,IFG0196V)
                     SELECT MEMBER=(IFG0196W,IGG0190S)
                     SELECT MEMBER=(IFG0196X,IFG0198N)
                     SELECT MEMBER=(IFG0199B,IFG0209B,IFG0239B,IFG0559B)
                     SELECT MEMBER=(IFG0199D,IFG0209D,IFG0239D,IFG0559D)
                     SELECT MEMBER=(IFG0199E,IFG0209E,IFG0239E,IFG0559E)
                     SELECT MEMBER=(IFG0199R,IFG0209R,IFG0239R,IFG0559R)
                     SELECT MEMBER=(IFG019TR,IFG020TR,IFG023TR,IFG055TR)
                     SELECT MEMBER=(IFG0200P,IGG0206M)
                     SELECT MEMBER=(IFG0200V,IFG0200W,IFG0200Z)
                     SELECT MEMBER=(IFG0200Y,IGG0200G)
                     SELECT MEMBER=(IFG0201R,IFG0201U)
                     SELECT MEMBER=(IFG0202A)
                     SELECT MEMBER=(IFG0202B,IGG0200B,IFG0232Y,IFG0556B)
                     SELECT MEMBER=(IFG0202C,IFG0202D,IFG0202E,IFG0202F)
                     SELECT MEMBER=(IFG0202H,IFG0553B)
                     SELECT MEMBER=(IFG0202G,IFG0202I,IFG0202J)
                     SELECT MEMBER=(IFG0202K,IFG0202L)
                     SELECT MEMBER=(IFG0230P,IFG0232D,IFG0232G,IFG0232J)
                     SELECT MEMBER=(IFG0232M,IFG0232S)
                     SELECT MEMBER=(IFG0232Z,IFG0202U)
                     SELECT MEMBER=(IFG0550P,IFG0551B,IFG0551D,IFG0551F)
                     SELECT MEMBER=(IFG0551H,IFG0551J)
                     SELECT MEMBER=(IFG0551L,IGG0551A)
                     SELECT MEMBER=(IFG0551N,IGG0551B)
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0018


                     SELECT MEMBER=(IFG0551P,IFG0551R,IFG0551V,IFG0551Z)
                     SELECT MEMBER=(IFG0551T,IGG0550F)
                     SELECT MEMBER=(IFG0551X,IGG0550P)
                     SELECT MEMBER=(IFG0552B,IFG0552D,IFG0552F,IFG0552H)
                     SELECT MEMBER=(IFG0552J,EMODVOL1)
                     SELECT MEMBER=(IFG0552N,IGG0550H)
                     SELECT MEMBER=(IFG0552R,IGG0550B)
                     SELECT MEMBER=(IFG0552L,IFG0552P,IFG0552T)
                     SELECT MEMBER=(IFG0552V,IFG0552X,IFG0552Y,IFG0552Z)
                     SELECT MEMBER=(IFG0553D,IFG0553F,IFG0553P,IFG0553R)
                     SELECT MEMBER=(IFG0553H,IGG0550D)
                     SELECT MEMBER=(IFG0553T,IFG0553V,IFG0553X,IFG0553Z)
                     SELECT MEMBER=(IFG0554B,IFG0554D,IFG0554J,IFG0554N)
                     SELECT MEMBER=(IFG0554L,IFG0195F)
                     SELECT MEMBER=(IFG0554P,IGG0550K)
                     SELECT MEMBER=(IFG0554R,IGG0552K)
                     SELECT MEMBER=(IFG0554T,IGG0550S)
                     SELECT MEMBER=(IFG0554V,IFG0554X,IFG0554Z,IFG0555B)
                     SELECT MEMBER=(IFG0555D,IFG0555F,IFG0555H)
                     SELECT MEMBER=(IFG0555J,IFG0196P)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DM508    -
IEB154I  EMODVOL1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG019TR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0190P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0190R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0193A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0193B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0193C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0193D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0193E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0194A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0194C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0194D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0194E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0194F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0194G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0194H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0194I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0194J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0194R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195K HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195M HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195N HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195O HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0019


IEB154I  IFG0195P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195T HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195U HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0195V HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196K HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196L HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196M HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196N HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196O HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196Q HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196T HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196U HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196V HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196W HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0196X HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0198N HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0199B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0199D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0199E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0199R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG020TR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0200P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0200R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0200V HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0200W HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0200Y HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0200Z HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0201R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0201U HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202K HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202L HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0202U HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0209B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0209D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0209E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0209R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG023TR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0230P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0232A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0232D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0232G HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0020


IEB154I  IFG0232J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0232M HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0232S HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0232Y HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0232Z HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0239B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0239D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0239E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0239R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG055TR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0550P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0550R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551L HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551N HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551T HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551V HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551X HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0551Z HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552L HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552N HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552T HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552V HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552X HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552Y HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0552Z HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0553B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0553D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0553F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0553H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0553P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0553R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0553T HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0553V HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0553X HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0553Z HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0554B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0554D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0554J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0554L HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0021


IEB154I  IFG0554N HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0554P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0554R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0554T HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0554V HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0554X HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0554Z HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0555B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0555D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0555F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0555H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0555J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0556B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0559B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0559D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0559E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFG0559R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0001I HAS BEEN SUCCESSFULLY COPIED
IEB155I  IGC0002{ HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB154I  IGC0002B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0002C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0003A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0005E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0006D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0190A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0190B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0190R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0190S HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0196M HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0200B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0200G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0206M HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0550B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0550D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0550F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0550H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0550K HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0550P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0550S HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0551A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0551B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0552K HAS BEEN SUCCESSFULLY COPIED
IEB154I  OMODVOL1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  READPSWD HAS BEEN SUCCESSFULLY COPIED
IEB154I  SECLOADA HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000446 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000247  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0022


                     COPY OUTDD=SVCLIB,INDD=DM508
                     SELECT MEMBER=(IGG019AA,IGG019AB,IGG019AC,IGG019AD)
                     SELECT MEMBER=(IGG019AF,IGG019AG,IGG019AI,IGG019AJ)
                     SELECT MEMBER=(IGG019AK,IGG019AL,IGG019AM,IGG019AN)
                     SELECT MEMBER=(IGG019AQ,IGG019AR,IGG019AT,IGG019AV)
                     SELECT MEMBER=(IGG019AW,IGG019AX)
                     SELECT MEMBER=(IGG019BA,IGG019BB,IGG019BD,IGG019BE)
                     SELECT MEMBER=(IGG019BF,IGG019BG,IGG019BI,IGG019BL)
                     SELECT MEMBER=(IGG019BM,IGG019BN,IGG019BO,IGG019BP)
                     SELECT MEMBER=(IGG019BQ,IGG019BU,IGG019BV)
                     SELECT MEMBER=(IGG019CA,IGG019CB,IGG019CC,IGG019CD)
                     SELECT MEMBER=(IGG019CE,IGG019CF,IGG019CH)
                     SELECT MEMBER=(IGG019CL,IGG019CM,IGG019CN,IGG019CO)
                     SELECT MEMBER=(IGG019CP,IGG019CQ,IGG019CR,IGG019CS)
                     SELECT MEMBER=(IGG019CT,IGG019CX,IGG019CY,IGG019CZ)
                     SELECT MEMBER=(IGG019C0,IGG019C1,IGG019C2,IGG019C3)
                     SELECT MEMBER=(IGG019C4)
                     SELECT MEMBER=(IGG019EA,IGG019EB,IGG019EC,IGG019ED)
                     SELECT MEMBER=(IGG019EE,IGG019EF)
                     SELECT MEMBER=(IGG019EI,IGG019EJ)
                     SELECT MEMBER=(IGG019FB,IGG019FD,IGG019FF,IGG019FG)
                     SELECT MEMBER=(IGG019FJ,IGG019FL,IGG019FN)
                     SELECT MEMBER=(IGG019FP)
                     SELECT MEMBER=(IGG019TC,IGG019TD)
                     SELECT MEMBER=(IGG019T2)
                     SELECT MEMBER=(IGG0191A,IGG0191B,IGG0191C,IGG0191D)
                     SELECT MEMBER=(IGG0191E,IGG0191F,IGG0191G,IGG0191H)
                     SELECT MEMBER=(IGG0191I,IGG0191J,IGG0191K,IGG0191N)
                     SELECT MEMBER=(IGG0191O,IGG0191P,IGG0191Q,IGG0191R)
                     SELECT MEMBER=(IGG0191S,IGG0191T,IGG0191U,IGG0191V)
                     SELECT MEMBER=(IGG0191W,IGG0191X,IGG0191Y,IGG0191Z)
                     SELECT MEMBER=(IGG01910,IGG01911,IGG01912,IGG01913)
                     SELECT MEMBER=(IGG01914,IGG01915,IGG01916,IGG01917)
                     SELECT MEMBER=(IGG01918,IGG01919,IGG01923)
                     SELECT MEMBER=(IGG01926,IGG0193I)
                     SELECT MEMBER=(IGG0196A,IGG0196B)
                     SELECT MEMBER=(IGG0196J,IGG0196K,IGG0196L)
                     SELECT MEMBER=(IGG0196I)
                     SELECT MEMBER=(IGG0196P)
                     SELECT MEMBER=(IGG0197U)
                     SELECT MEMBER=(IGG0199K,IGG0199O)
                     SELECT MEMBER=(IGG01990,IGG01991,IGG01992,IGG01993)
                     SELECT MEMBER=(IGG01994)
                     SELECT MEMBER=(IGG0201A,IGG0201B)
                     SELECT MEMBER=(IGG0210A,IGG021AB)
                     SELECT MEMBER=(IGG0201X,IGG0201Y,IGG0201Z)
                     SELECT MEMBER=(IGC0002E,IGC0002A,IGC0002D)
                     SELECT MEMBER=(IGC0005G)
                     SELECT MEMBER=(IGC0006I)
                     SELECT MEMBER=(IGC0006H,IGC0106H,IGC0206H,IGC0306H)
                     SELECT MEMBER=(IGC0406H,IGC0506H,IGC0606H,IGC0706H)
                     SELECT MEMBER=(IGC0806H,IGC0906H)
                     SELECT MEMBER=(IGC0008A,IGG08101,IGG08102)
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0023


IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DM508    -
IEB154I  IGC0002A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0002D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0002E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0005G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0006H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0006I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0008A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0106H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0206H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0306H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0406H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0506H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0606H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0706H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0806H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0906H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AJ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AQ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AV HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AW HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BQ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BU HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BV HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CC HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0024


IEB154I  IGG019CD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CQ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CY HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019CZ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019C0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019C1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019C2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019C3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019C4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019EA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019EB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019EC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019ED HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019EE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019EF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019EI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019EJ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019FB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019FD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019FF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019FG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019FJ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019FL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019FN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019FP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019T2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191K HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191N HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191O HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0025


IEB154I  IGG0191P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191Q HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191S HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191T HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191U HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191V HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191W HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191X HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191Y HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191Z HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01910 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01911 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01912 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01913 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01914 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01915 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01916 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01917 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01918 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01919 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01923 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01926 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0196A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0196B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0196I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0196J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0196K HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0196L HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0196P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0197U HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0199K HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0199O HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01990 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01991 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01992 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01993 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01994 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0201A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0201B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0201X HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0201Y HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0201Z HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG021AB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0210A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG08101 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG08102 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000423 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000222  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0026


                     COPY  OUTDD=SVCLIB,INDD=DM508
                     SELECT MEMBER=(IGGAARPS)
                     SELECT MEMBER=((IGGR19AE,IGG019AE,R))
                     SELECT MEMBER=((IGGR19BC,IGG019BC,R))
                     SELECT MEMBER=((IGGR19BH,IGG019BH,R))
                     SELECT MEMBER=((IGGR19BK,IGG019BK,R))
                     SELECT MEMBER=((IGGR19CW,IGG019CW,R))
                     SELECT MEMBER=((IGGR19CG,IGG019CG,R))
                     SELECT MEMBER=((IGGR19CI,IGG019CI,R))
                     SELECT MEMBER=((IGGR19CJ,IGG019CJ,R))
                     SELECT MEMBER=((IGGR19CU,IGG019CU,R))
                     SELECT MEMBER=((IGGR19CV,IGG019CV,R))
                     SELECT MEMBER=((IGGR19TV,IGG019TV,R))
                     SELECT MEMBER=((IGGR19TW,IGG019TW,R))
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DM508    -
IEB154I  IGGAARPS HAS BEEN SUCCESSFULLY COPIED
IEB155I  IGG019AE HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019BC HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019BH HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019BK HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019CG HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019CI HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019CJ HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019CU HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019CV HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019CW HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019TV HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019TW HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB144I  THERE ARE 0000421 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000220  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0027


                     COPY OUTDD=LINKLIB,INDD=DM508
                     SELECT MEMBER=(IECQBFG1,IECBBFB1)
                     SELECT MEMBER=(IGG019B0)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DM508    -
IEB154I  IECBBFB1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECQBFG1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019B0 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000906 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000298  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0028


                     COPY OUTDD=SVCLIB,INDD=DM508
                     SELECT MEMBER=(IGG0197E,IGG0197F,IGG08103,IGG08104)
                     SELECT MEMBER=(IGG019FR,IGG019FS)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DM508    -
IEB154I  IGG019FR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019FS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0197E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0197F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG08103 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG08104 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000420 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000219  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0029


                     COPY OUTDD=IMAGELIB,INDD=DM508
                     SELECT MEMBER=(IGG0197J,FCB2STD1,IGG0197K,FCB2STD2)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DM508    -
IEB154I  FCB2STD1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  FCB2STD2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0197J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0197K HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000017 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY IMAGELIB
IEB149I  THERE ARE 0000008  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0030


                     COPY OUTDD=SVCLIB,INDD=DM509
                     SELECT MEMBER=(IGG019KC,IGG019KE,IGG019KG)
                     SELECT MEMBER=(IGG019KR,IGG0193G,IGG0193F)
                     SELECT MEMBER=(IGG019KA,IGG019KJ,IGG019KL)
                     SELECT MEMBER=(IGG019KQ,IGG019KU,IGG0193A,IGG0193C)
                     SELECT MEMBER=(IGG0203A,IGG019DC,IGG0191L)
                     SELECT MEMBER=(IGG019BR,IGG019BS,IGG019BT,IGG0199L)
                     SELECT MEMBER=(IGG0191M,IGG019KF,IGG019KH)
                     SELECT MEMBER=(IGG019LG)
                     SELECT MEMBER=(IGC0005C)
                     SELECT MEMBER=(IGG019KW,IGG019KY,IGG019LA,IGG019LC,IGG019LI)
                     SELECT MEMBER=(IGG019LE,IGG0193E)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DM509    -
IEB154I  IGC0005C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019BT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019DC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KJ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KQ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KU HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KW HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019KY HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019LA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019LC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019LE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019LG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019LI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191L HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0191M HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0199L HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0203A HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000416 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000213  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0031


                     COPY  OUTDD=SVCLIB,INDD=DM509
                     SELECT MEMBER=((IGGR19DA,IGG019DA,R),(IGGR19DB,IGG019DB,R))
                     SELECT MEMBER=((IGGR19DD,IGG019DD,R),(IGGR19KN,IGG019KN,R))
                     SELECT MEMBER=((IGGR19KI,IGG019KI,R),(IGGR19KK,IGG019KK,R))
                     SELECT MEMBER=((IGGR19KM,IGG019KM,R),(IGGR19KO,IGG019KO,R))
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DM509    -
IEB155I  IGG019DA HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019DB HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019DD HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019KI HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019KK HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019KM HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019KN HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGG019KO HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB144I  THERE ARE 0000414 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000212  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0032


                     COPY OUTDD=SVCLIB,INDD=DM508
                     SELECT MEMBER=(IGC0002G)
                     SELECT MEMBER=(IGC0002I,IGG0290A,IGG0290B,IGG0290C)
                     SELECT MEMBER=(IGG0290D,IGG0290E,IGG0290F,IGG0299A)
                     SELECT MEMBER=((IGC00030,IGC0003{),IGG03001)
                     SELECT MEMBER=(IGG03002,IGG03003)
                     SELECT MEMBER=(IGC0003B,IGG0325A,IGG0325B,IGG0325C,IGG0325D)
                     SELECT MEMBER=(IGG0325E,IGG0325G,IGG0325H,IGG0325K)
                     SELECT MEMBER=(IGG0325F,IGG0325J,IGG0325L)
                     SELECT MEMBER=(IGG0325M,IGG0325S)
                     SELECT MEMBER=(IGG0325P,IGG0325Q,IGG0325R,IGG0325T)
                     SELECT MEMBER=(IGG0325U,IGG0325V,IGG0325W,IGG0325Z)
                     SELECT MEMBER=(IGC0007H,IGC0107H)
                     SELECT MEMBER=(IGC0009H,IGC0109H,IGC0209H)
                     SELECT MEMBER=(IGG019EK)
                     SELECT MEMBER=(IGG020P1,IGG020P2,IGG020P3,IGG020D0,IGG020D1)
                     SELECT MEMBER=(IGG0553A,IGG0553B,IGG0553C,IGG0553D)
                     SELECT MEMBER=(IGG0553E,IGG0553F,IGG0553G)
                     SELECT MEMBER=(IGC0002F,IGC0002H)
                     SELECT MEMBER=(IGG0CLF2,IGG0CLC1,IGG0CLC2,IGG0CLC3)
                     SELECT MEMBER=(IGG0CLC4,IGG0CLC5,IGG0CLC6,IGG0CLC7)
                     SELECT MEMBER=(IGG0CLC8)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DM508    -
IEB154I  IGC0002F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0002G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0002H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0002I HAS BEEN SUCCESSFULLY COPIED
IEB155I  IGC0003{ HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB154I  IGC0003B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0007H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0009H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0107H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0109H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0209H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0CLC1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0CLC2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0CLC3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0CLC4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0CLC5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0CLC6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0CLC7 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0CLC8 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0CLF2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019EK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG020D0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG020D1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG020P1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG020P2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG020P3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0290A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0290B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0290C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0290D HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0033


IEB154I  IGG0290E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0290F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0299A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG03001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG03002 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG03003 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325J HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325K HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325L HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325M HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325Q HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325R HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325S HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325T HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325U HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325V HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325W HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0325Z HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0553A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0553B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0553C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0553D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0553E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0553F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0553G HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000402 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000201  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0034


                     COPY OUTDD=SVCLIB,INDD=UT506
                     SELECT MEMBER=(IGC0008B,IGC0108B,IGC0208B,IGG019P8,IGG019P9)
                     SELECT MEMBER=(IGC0008F,IGG0860A,IGG0860B,IGG0860C,IGG0860D)
                     SELECT MEMBER=(IGG086AE,IGC0308B,IGG019C8)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY UT506    -
IEB154I  IGC0008B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0008F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0108B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0208B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0308B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019C8 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019P8 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019P9 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG086AE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0860A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0860B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0860C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0860D HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000399 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000199  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0035


                     COPY OUTDD=LINKLIB,INDD=RC536
                      SELECT  MEMBER=(IHKABRER,IHKCDRIN,IHKCDMDQ,IHKCDRMV)
                      SELECT  MEMBER=(IHKCHNIP,IHKCHUM1,IHKCHUM2,IHKCHUM3)
                      SELECT  MEMBER=(IHKCASHB,IHKCASHM)
                      SELECT  MEMBER=(IHKCASHL,IHKCHCNT,IHKCBUID,IHKCDBDC)
                      SELECT  MEMBER=(IHKCDBPK,IHKCDMEQ,IHKCDBMI,IHKCASTP)
                     SELECT MEMBER=(IHKCFWMS,IHKCBCLD,IHKCDMDE)
                      SELECT MEMBER=(IHKCDBIS,IHKCDBIN)
                      SELECT MEMBER=(IHKCHUM4,IHKCBRJS,IHKCBLGN,IHKCHUM5)
                      SELECT MEMBER=(IHKCGDLT,IHKCGDT2,IHKCFBDR,IHKCGALT)
                      SELECT MEMBER=(IHKCFMSG,IHKCHNDJ,IHKCHJPR,IHKCHUCK)
                     SELECT MEMBER=(IHKCHUM6,IHKCHUM7,IHKCHUM8,IHKCHUM9)
                     SELECT MEMBER=(IHKCHUMA,IHKCHUMB,IHKCHUMC,IHKCHUMD)
                     SELECT MEMBER=(IHKCHUME,IHKCHUMF,IHKCHUMG,IHKCHUMH)
                     SELECT MEMBER=(IHKCHUMI,IHKCHUMJ)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY RC536    -
IEB154I  IHKABRER HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCASHB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCASHL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCASHM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCASTP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCBCLD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCBLGN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCBRJS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCBUID HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDBDC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDBIN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDBIS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDBMI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDBPK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDMDE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDMDQ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDMEQ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDRIN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDRMV HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCFBDR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCFMSG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCFWMS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCGALT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCGDLT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCGDT2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHCNT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHJPR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHNDJ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHNIP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUCK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUMA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUMB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUMC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUMD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUME HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUMF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUMG HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0036


IEB154I  IHKCHUMH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUMI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUMJ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUM1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUM2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUM3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUM4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUM5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUM6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUM7 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUM8 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHUM9 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000901 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000290  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0037


                     COPY OUTDD=TELCMLIB,INDD=RC536
                      SELECT  MEMBER=(IHKCDINI,IHKCCSGN,IHKCDSCH,IHKCCSCN)
                      SELECT  MEMBER=(IHKCCPLM,IHKCDFMR,IHKABLST)
                      SELECT  MEMBER=(IHKCCSUD,IHKCBSTD,IHKCCQMG)
                      SELECT  MEMBER=(IHKCHSDQ)
                      SELECT  MEMBER=(IHKABXMT,IHKCAMSN)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY RC536    -
IEB154I  IHKABLST HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKABXMT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCAMSN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCBSTD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCCPLM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCCQMG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCCSCN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCCSGN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCCSUD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDFMR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDINI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDSCH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCHSDQ HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000068 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY TELCMLIB
IEB149I  THERE ARE 0000034  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0038


                     COPY OUTDD=LINKLIB,INDD=CI505
                      SELECT  MEMBER=IEFSD447
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI505    -
IEB154I  IEFSD447 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000901 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000290  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0039


                     COPY OUTDD=LINKLIB,INDD=RC551
                       SELECT MEMBER=(IHKAST,IHKAWS,IHKBSH,IHKBST,IHKCC1,IHKCC2)
                       SELECT MEMBER=(IHKCC3,IHKCC4,IHKCC5,IHKCC6,IHKCC7,IHKCC8)
                       SELECT MEMBER=(IHKCDP,IHKCGN,IHKCIP)
                       SELECT MEMBER=(IHKCLN,IHKDEQ,IHKEDT,IHKED1,IHKEOS,IHKGET)
                       SELECT MEMBER=(IHKLAY,IHKLDC,IHKLDS,IHKLGN,IHKMAA,IHKMGE)
                       SELECT MEMBER=(IHKMUF,IHKOPN,IHKPUT,IHKRNR,IHKSAV,IHKSND)
                       SELECT MEMBER=(IHKSRV,IHKSTS,IHKSUB)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY RC551    -
IEB154I  IHKAST   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKAWS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKBSH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKBST   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCC1   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCC2   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCC3   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCC4   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCC5   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCC6   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCC7   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCC8   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCDP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCGN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCIP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCLN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKDEQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKEDT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKED1   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKEOS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKGET   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKLAY   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKLDC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKLDS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKLGN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKMAA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKMGE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKMUF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKOPN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKPUT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKRNR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKSAV   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKSND   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKSRV   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKSTS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKSUB   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000891 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000284  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0040


                     COPY OUTDD=TELCMLIB,INDD=RC551
                       SELECT MEMBER=(IHKAFI,IHKAVT,IHKBGN,IHKBPM,IHKCCI,IHKCCS)
                       SELECT MEMBER=(IHKCMD,IHKDEF,IHKDSP,IHKEXC,IHKEXF,IHKGCW)
                       SELECT MEMBER=(IHKINI,IHKIRL,IHKIRP,IHKLAB,IHKLAD,IHKLAP)
                       SELECT MEMBER=(IHKLAT,IHKLEW,IHKLST,IHKMOD,IHKMSG,IHKNBX)
                       SELECT MEMBER=(IHKNUM,IHKRNQ,IHKSCN,IHKSDQ,IHKSMG,IHKSYN)
                       SELECT MEMBER=(IHKUTM,IHKWTR)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY RC551    -
IEB154I  IHKAFI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKAVT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKBGN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKBPM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCCI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCCS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKCMD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKDEF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKDSP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKEXC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKEXF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKGCW   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKINI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKIRL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKIRP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKLAB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKLAD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKLAP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKLAT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKLEW   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKLST   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKMOD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKMSG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKNBX   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKNUM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKRNQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKSCN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKSDQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKSMG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKSYN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKUTM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHKWTR   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000060 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY TELCMLIB
IEB149I  THERE ARE 0000029  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0041


                     COPY OUTDD=SVCLIB,INDD=CQ548
                     SELECT MEMBER=(IGC0J05B)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CQ548    -
IEB154I  IGC0J05B HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000399 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000199  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0042


                     COPY OUTDD=SVCLIB,INDD=DM508
                     SELECT MEMBER=(IGC0506C,IGC0N06C,IGC0G95B,IGC0G05B)
                     SELECT MEMBER=(IGC0H05B,IGC0I05B,IGC0K05B,IGC0L05B,IGC0M05B)
                     SELECT MEMBER=(IGC0M95B,IGC0K95B,IGC0L95B)
                     SELECT MEMBER=(IGC0N05B,IGC0P05B,IGC0S05B,IGC0W05B,IGC0Q05B)
                     SELECT MEMBER=(IGC0N95B)
                     SELECT MEMBER=(IGC0R05B,IGC0T05B,IGC0U05B)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DM508    -
IEB154I  IGC0G05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0G95B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0H05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0I05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0K05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0K95B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0L05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0L95B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0M05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0M95B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0N05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0N06C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0N95B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0P05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0Q05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0R05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0S05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0T05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0U05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0W05B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0506C HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000396 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000195  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0043


                     COPY OUTDD=SVCLIB,INDD=CI505
                     SELECT MEMBER=((IHJACP00,IGC0006C),(IHJACP01,IGC0106C))
                     SELECT MEMBER=((IHJACP02,IGC0206C),(IHJACP20,IGC0A06C))
                     SELECT MEMBER=((IHJACP50,IGC0Q06C),(IHJARS00,IGC0105B))
                     SELECT MEMBER=((IHJACP25,IGC0D06C),(IHJACP70,IGC0S06C))
                     SELECT MEMBER=((IEFVSMBR,IGC0005B))
                     SELECT MEMBER=((IHJARS01,IGC0205B),(IHJARS60,IGC0V05B))
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI505    -
IEB155I  IGC0A06C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0D06C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0Q06C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0S06C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0V05B HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0005B HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0006C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0105B HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0106C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0205B HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0206C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB144I  THERE ARE 0000394 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000193  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0044


                     COPY OUTDD=SVCLIB,INDD=CI535
                     SELECT MEMBER=((IHJQCP30,IGC0F06C),(IHJQCP31,IGC0G06C))
                     SELECT MEMBER=((IHJQCP32,IGC0H06C),(IHJQRS20,IGC0505B))
                     SELECT MEMBER=((IHJQRS21,IGC0605B),(IHJQRS22,IGC0705B))
                     SELECT MEMBER=((IHJQRS23,IGC0805B),(IHJQRS24,IGC0905B))
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI535    -
IEB155I  IGC0F06C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0G06C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0H06C HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0505B HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0605B HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0705B HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0805B HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IGC0905B HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB144I  THERE ARE 0000392 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000192  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0045


                     COPY OUTDD=SVCLIB,INDD=DN533
                     SELECT MEMBER=(IGC0005I,IGC0205I,IGC0405I,IGC0505I)
                     SELECT MEMBER=(IGC0605I,IGC0705I,IGC0905I)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DN533    -
IEB154I  IGC0005I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0205I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0405I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0505I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0605I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0705I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0905I HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000391 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000191  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0046


                     COPY OUTDD=SVCLIB,INDD=CI505
                     SELECT MEMBER=(IGC0105I,IGC0305I)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CI505    -
IEB154I  IGC0105I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0305I HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000391 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000190  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0047


                     COPY OUTDD=LINKLIB,INDD=DN554
                     SELECT MEMBER=(IMAPTFLE,IMAPTF01,IMAPTF02)
                     SELECT MEMBER=(IMASPZAP)
                     SELECT MEMBER=(IMBMDMAP)
                     SELECT MEMBER=(IMDPRLPA,IMDPRQCB,IMDPRDPS,IMDPRFSR)
                     SELECT MEMBER=(IMDPRFUR,IMDPRFXT,IMDPRPMS,IMDPRNUC)
                     SELECT MEMBER=(IMDPRPAL,IMDPRFUB,IMDPRPCR,IMDPRPDR)
                     SELECT MEMBER=(IMDPRPJB,IMDDREAD,IMDTREAD,IMDPRLOD)
                     SELECT MEMBER=(IMDPROOT,IMDSYS00,IMDSYS02,IMDSYS03)
                     SELECT MEMBER=(IMDPRMST,IMDPRTSO,IMDPRSWP)
                     SELECT MEMBER=(IMDUSRFF)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DN554    -
IEB154I  IMAPTFLE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMAPTF01 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMAPTF02 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMASPZAP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMBMDMAP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDDREAD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRDPS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRFSR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRFUB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRFUR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRFXT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRLOD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRLPA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRMST HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRNUC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPROOT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRPAL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRPCR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRPDR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRPJB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRPMS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRQCB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRSWP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDPRTSO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDSYS00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDSYS02 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDSYS03 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDTREAD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IMDUSRFF HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000878 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000279  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0048


                     COPY OUTDD=LINKLIB,INDD=CQ513
                     SELECT MEMBER=(IDFCT,IDFST,IDFM01)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CQ513    -
IEB154I  IDFCT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFM01   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDFST    HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000877 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000278  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0049


                     COPY OUTDD=TELCMLIB,INDD=CQ513
                     SELECT MEMBER=(IECTEDIT)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CQ513    -
IEB154I  IECTEDIT HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000060 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY TELCMLIB
IEB149I  THERE ARE 0000029  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0050


                     COPY OUTDD=SVCLIB,INDD=CQ513
                     SELECT MEMBER=(IGE0004A)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CQ513    -
IEB154I  IGE0004A HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000391 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000190  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0051


                     COPY OUTDD=SVCLIB,INDD=CQ513
                     SELECT MEMBER=(IGC0006F,IGC0106F,IGC0206F,IGC0306F)
                     SELECT MEMBER=(IGC0406F,IGC0506F,IGC0606F)
                     SELECT MEMBER=(IGC0706F,IGC0806F,IGC0906F,IGC0A06F)
                     SELECT MEMBER=(IGC0B06F,IGC0C06F,IGC0D06F)
                     SELECT MEMBER=(IGC0E06F,IGC0F06F,IGC1006F)
                     SELECT MEMBER=(IGC1106F,IGC1206F,IGC1306F)
                     SELECT MEMBER=(IGC1406F)
                     SELECT MEMBER=(IGG019PI)
                     SELECT MEMBER=(IGG019MR)
                     SELECT MEMBER=(IGE0104A,IGE0204A,IGE0304A)
                     SELECT MEMBER=(IGE0404A,IGE0504A,IGE0604A,IGE0704A)
                     SELECT MEMBER=(IGE0804A,IGE0904A,IGE0004B,IGE0104B)
                     SELECT MEMBER=(IGE0204B,IGE0304B,IGE0404B,IGE0504B)
                     SELECT MEMBER=(IGE0604B,IGE0704B,IGE0804B)
                     SELECT MEMBER=(IGE0004C,IGE0104C,IGE0204C,IGE0304C)
                     SELECT MEMBER=(IGE0404C,IGE0504C,IGE0604C,IGE0704C)
                     SELECT MEMBER=(IGE0804C,IGE0904C)
                     SELECT MEMBER=(IGE0504D,IGE0904D)
                     SELECT MEMBER=(IGG019MA,IGG019MB,IGG019MC,IGG019MS)
                     SELECT MEMBER=(IGG019PK)
                     SELECT MEMBER=(IGG019PA)
                     SELECT MEMBER=(IGG019MD,IGG019MF,IGG019MI,IGG019MJ)
                     SELECT MEMBER=(IGG019ML,IGG019MN,IGG019MP)
                     SELECT MEMBER=(IGG019MT,IGG019MU,IGG019MV,IGG019MW)
                     SELECT MEMBER=(IGG019MX,IGG019MY,IGG019MZ,IGG019M0)
                     SELECT MEMBER=(IGG019M3)
                     SELECT MEMBER=(IGG019ME,IGG019MK,IGG019M1,IGG019M2)
                     SELECT MEMBER=(IGG019M4)
                     SELECT MEMBER=(IGG019M5,IGG019M6)
                     SELECT MEMBER=(IGG019PB,IGG019PC,IGG019PD)
                     SELECT MEMBER=(IGG019PE,IGG019PF)
                     SELECT MEMBER=(IGG019PL,IGG019PM)
                     SELECT MEMBER=(IGG019PN,IGG019PO)
                     SELECT MEMBER=(IGG019PP,IGG019PQ)
                     SELECT MEMBER=(IGG019PG,IGG019PH)
                     SELECT MEMBER=(IGG019UP)
                     SELECT MEMBER=(IGG0201E)
                     SELECT MEMBER=(IGG0193M,IGG0193Q,IGG0193S,IGG0203M)
                     SELECT MEMBER=(IGG0194N,IGG0195N)
                     SELECT MEMBER=(IGG0194P,IGG0194Q)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CQ513    -
IEB154I  IGC0A06F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0B06F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0C06F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0D06F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0E06F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0F06F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0006F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0106F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0206F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0306F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0406F HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0052


IEB154I  IGC0506F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0606F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0706F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0806F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0906F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1006F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1106F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1206F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1306F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1406F HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0004B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0004C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0104A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0104B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0104C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0204A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0204B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0204C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0304A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0304B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0304C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0404A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0404B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0404C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0504A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0504B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0504C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0504D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0604A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0604B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0604C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0704A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0704B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0704C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0804A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0804B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0804C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0904A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0904C HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0904D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019ME HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MJ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019ML HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MR HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0053


IEB154I  IGG019MS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MU HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MV HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MW HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MY HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019MZ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019M0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019M1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019M2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019M3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019M4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019M5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019M6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019PQ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019UP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193M HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193Q HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193S HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0194N HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0194P HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0194Q HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0195N HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0201E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0203M HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000377 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000172  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0054


                     COPY OUTDD=SVCLIB,INDD=CQ548
                     SELECT MEMBER=(IGE0004G,IGE0104G,IGE0204G,IGE0304G)
                     SELECT MEMBER=(IGE0404G,IGE0504G,IGE0604G,IGE0804G)
                     SELECT MEMBER=(IGE0904G,IGE0004H,IGE0104H,IGE0204H)
                     SELECT MEMBER=(IGE0404H,IGE0504H,IGE0804H)
                     SELECT MEMBER=(IGE0904H)
                     SELECT MEMBER=(IGE0004I,IGE0104I,IGE0904I)
                     SELECT MEMBER=(IGG019RH,IGG019RI,IGG019RJ,IGG019RL)
                     SELECT MEMBER=(IGG019RM,IGG019RG)
                     SELECT MEMBER=(IGG019Q2,IGG019Q3,IGG019Q4,IGG019Q8)
                     SELECT MEMBER=(IGG019Q5,IGG019Q6,IGG019Q7)
                     SELECT MEMBER=(IGG019Q9)
                     SELECT MEMBER=(IGG019Q0,IGG019Q1,IGG019RA,IGG019RB)
                     SELECT MEMBER=(IGG019RC,IGG019RD,IGG019RN,IGG019RO)
                     SELECT MEMBER=(IGG019RR,IGG019RS,IGG019RT,IGG019RU)
                     SELECT MEMBER=(IGG019RV,IGG019RW,IGG019RX,IGG019RY)
                     SELECT MEMBER=(IGG019RF,IGG019RK)
                     SELECT MEMBER=(IGG019RE,IGG019EM)
                     SELECT MEMBER=(IGG019RP,IGG019RQ,IGG019R0,IGG019R1)
                     SELECT MEMBER=(IGG019R2,IGG019R3,IGG019R4,IGG019R5)
                     SELECT MEMBER=(IGG019R6,IGG019R7,IGG019R8,IGG019R9)
                     SELECT MEMBER=(IGG019TE,IGG019TF,IGG019TG)
                     SELECT MEMBER=(IGG019TH,IGG019TI,IGG019TJ)
                     SELECT MEMBER=(IGG019TM,IGG019TN)
                     SELECT MEMBER=(IGC0010D,IGC0110D,IGC0310D)
                     SELECT MEMBER=(IGC0210D)
                     SELECT MEMBER=(IGC0410D,IGC0510D,IGC0610D)
                     SELECT MEMBER=(IGC0710D,IGC0810D,IGC0910D)
                     SELECT MEMBER=(IGC0B10D,IGC0C10D)
                     SELECT MEMBER=(IGC0D10D,IGC0E10D)
                     SELECT MEMBER=(IGC0G10D)
                     SELECT MEMBER=(IGC1210D)
                     SELECT MEMBER=(IGCC010D,IGCC110D)
                     SELECT MEMBER=(IGCI010D,IGCI110D,IGCH010D)
                     SELECT MEMBER=(IGCI210D,IGCI310D)
                     SELECT MEMBER=(IGCR010D,IGCZ010D,IGCZ110D)
                     SELECT MEMBER=(IGCV010D,IGCV110D,IGCV210D)
                     SELECT MEMBER=(IGCV310D,IGCV410D,IGCM010D)
                     SELECT MEMBER=(IGCM110D,IGCM210D,IGCM410D)
                     SELECT MEMBER=(IGCM310D)
                     SELECT MEMBER=(IGCM510D,IGCM610D,IGCM710D)
                     SELECT MEMBER=(IGCM810D,IGCM910D,IGCMA10D)
                     SELECT MEMBER=(IGCMB10D)
                     SELECT MEMBER=(IGCMD10D,IGCME10D,IGCMF10D)
                     SELECT MEMBER=(IGCMG10D,IGCMH10D,IGCMI10D)
                     SELECT MEMBER=(IGCMJ10D)
                     SELECT MEMBER=(IGCMK10D,IGCML10D,IGCMM10D)
                     SELECT MEMBER=(IGCMN10D)
                     SELECT MEMBER=(IGCMO10D)
                     SELECT MEMBER=(IGCMP10D)
                     SELECT MEMBER=(IGCMR10D,IGCMS10D,IGCMT10D)
                     SELECT MEMBER=(IGCMX10D,IGCMY10D)
                     SELECT MEMBER=(IGCD010D,IGCD110D,IGCD210D)
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0055


                     SELECT MEMBER=(IGCD310D,IGCD410D,IGCD510D)
                     SELECT MEMBER=(IGCD610D,IGCD710D,IGCD810D)
                     SELECT MEMBER=(IGCD910D,IGCV510D,IGCV610D)
                     SELECT MEMBER=(IGCDB10D,IGCDC10D,IGCDD10D)
                     SELECT MEMBER=(IGCSW10D)
                     SELECT MEMBER=(IGCT010D,IGCT110D,IGCT210D)
                     SELECT MEMBER=(IGCT310D,IGCT410D)
                     SELECT MEMBER=(IEDQOT01)
                     SELECT MEMBER=(IGCVA10D,IGCVB10D)
                     SELECT MEMBER=(IGCVE10D,IGCVF10D,IGCVG10D)
                     SELECT MEMBER=(IGCVH10D)
                     SELECT MEMBER=(IGCV710D)
                     SELECT MEMBER=(IGCV810D,IGCV910D)
                     SELECT MEMBER=(IGG019AO,IGG019AP)
                     SELECT MEMBER=(IGG01930,IGG01931,IGG01933,IGG01934)
                     SELECT MEMBER=(IGG01935,IGG01936,IGG01937,IGG01938)
                     SELECT MEMBER=(IGG01939,IGG01940,IGG01941,IGG01942)
                     SELECT MEMBER=(IGG01943,IGG01944,IGG01945,IGG01946)
                     SELECT MEMBER=(IGG01947,IGG01948,IGG01949)
                     SELECT MEMBER=(IGG0194B,IGG0194D)
                     SELECT MEMBER=(IGG0198B)
                     SELECT MEMBER=(IGG0198D,IGG0198E)
                     SELECT MEMBER=(IGG02030,IGG02035,IGG02036)
                     SELECT MEMBER=(IGG0203B)
                     SELECT MEMBER=(IGG02041)
                     SELECT MEMBER=(IGG02046,IGG02047)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CQ548    -
IEB154I  IEDQOT01 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCC010D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCC110D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCDB10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCDC10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCDD10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCD010D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCD110D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCD210D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCD310D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCD410D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCD510D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCD610D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCD710D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCD810D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCD910D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCH010D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCI010D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCI110D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCI210D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCI310D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMA10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMB10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMD10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCME10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMF10D HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0056


IEB154I  IGCMG10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMH10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMI10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMJ10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMK10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCML10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMM10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMN10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMO10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMP10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMR10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMS10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMT10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMX10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCMY10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCM010D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCM110D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCM210D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCM310D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCM410D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCM510D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCM610D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCM710D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCM810D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCM910D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCR010D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCSW10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCT010D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCT110D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCT210D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCT310D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCT410D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCVA10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCVB10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCVE10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCVF10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCVG10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCVH10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCV010D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCV110D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCV210D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCV310D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCV410D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCV510D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCV610D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCV710D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCV810D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCV910D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCZ010D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGCZ110D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0B10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0C10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0D10D HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0057


IEB154I  IGC0E10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0G10D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0010D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0110D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0210D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0310D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0410D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0510D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0610D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0710D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0810D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC0910D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGC1210D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0004G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0004H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0004I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0104G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0104H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0104I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0204G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0204H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0304G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0404G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0404H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0504G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0504H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0604G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0804G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0804H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0904G HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0904H HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGE0904I HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019AP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019EM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019Q0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019Q1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019Q2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019Q3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019Q4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019Q5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019Q6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019Q7 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019Q8 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019Q9 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RC HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RH HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0058


IEB154I  IGG019RI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RJ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RK HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RO HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RQ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RU HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RV HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RW HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019RY HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019R0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019R1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019R2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019R3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019R4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019R5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019R6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019R7 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019R8 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019R9 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TF HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TJ HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TM HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019TN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01930 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01931 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01933 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01934 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01935 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01936 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01937 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01938 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01939 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0194B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0194D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01940 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01941 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01942 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01943 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01944 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01945 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01946 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0059


IEB154I  IGG01947 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01948 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG01949 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0198B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0198D HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0198E HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0203B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG02030 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG02035 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG02036 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG02041 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG02046 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG02047 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000337 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000139  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0060


                     COPY OUTDD=TELCMLIB,INDD=CQ513
                     SELECT MEMBER=(IECTLERP,IECTLOPN,IECTONLT,IECTTRNS)
                     SELECT MEMBER=(IECTCHGN)
                     SELECT MEMBER=(IECTSCAN)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CQ513    -
IEB154I  IECTCHGN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECTLERP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECTLOPN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECTONLT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECTSCAN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IECTTRNS HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000058 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY TELCMLIB
IEB149I  THERE ARE 0000028  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0061


                     COPY OUTDD=TELCMLIB,INDD=CQ548
                     SELECT MEMBER=(IEDNID)
                     SELECT MEMBER=(IEDN25)
                     SELECT MEMBER=(IEDQAA,IEDQAC,IEDQAD,IEDQAE)
                     SELECT MEMBER=(IEDQAF,IEDQAG,IEDQAH,IEDQAI,IEDQAJ)
                     SELECT MEMBER=(IEDQAK,IEDQAB,IEDQA9)
                     SELECT MEMBER=(IEDQAL,IEDQAM,IEDQAN,IEDQAO,IEDQAP)
                     SELECT MEMBER=(IEDQAQ,IEDQAR,IEDQAS,IEDQAT,IEDQAU)
                     SELECT MEMBER=(IEDQAV,IEDQAW,IEDQAX,IEDQAY,IEDQAZ)
                     SELECT MEMBER=(IEDQA0,IEDQA1,IEDQA2,IEDQA8,IEDQA4)
                     SELECT MEMBER=(IEDQA3)
                     SELECT MEMBER=(IEDQA5,IEDQA6,IEDQA7,IEDQBA,IEDQBB)
                     SELECT MEMBER=(IEDQBC,IEDQBD,IEDQBE,IEDQBF,IEDQBG)
                     SELECT MEMBER=(IEDQBI,IEDQBJ)
                     SELECT MEMBER=(IEDQBH,IEDQBL,IEDQBM,IEDQBN)
                     SELECT MEMBER=(IEDQBO,IEDQBP,IEDQBQ,IEDQBR)
                     SELECT MEMBER=(IEDQBT,IEDQBU,IEDQBX,IEDQBY)
                     SELECT MEMBER=(IEDQBV,IEDQB4)
                     SELECT MEMBER=(IEDQBZ)
                     SELECT MEMBER=(IEDQB1,IEDQB2,IEDQB3)
                     SELECT MEMBER=(IEDQB7)
                     SELECT MEMBER=(IEDQES,IEDQEU,IEDQE8)
                     SELECT MEMBER=(IEDQFA,IEDQFA1,IEDQFA2,IEDQFE)
                     SELECT MEMBER=(IEDQGA,IEDQGH)
                     SELECT MEMBER=(IEDQGP,IEDQGR)
                     SELECT MEMBER=(IEDQGT,IEDQHG,IEDQHK,IEDQHM)
                     SELECT MEMBER=(IEDQHM1,IEDQHM2,IEDQKB,IEDQKC,IEDQKD)
                     SELECT MEMBER=(IEDQKA,IEDQKE,IEDQNA,IEDQUI)
                     SELECT MEMBER=(IEDQ10,IEDQ11,IEDQ12,IEDQ13,IEDQ14)
                     SELECT MEMBER=(IEDQ15,IEDQ16,IEDQ17,IEDQ18,IEDQ19)
                     SELECT MEMBER=(IEDQ20,IEDQ21,IEDQ22,IEDQ23,IEDQ24)
                     SELECT MEMBER=(IEDQ25,IEDQ26,IEDQ27,IEDQ28)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CQ548    -
IEB154I  IEDNID   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDN25   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAJ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAK   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAR   HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0062


IEB154I  IEDQAS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAU   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAV   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAW   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAX   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAY   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQAZ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQA0   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQA1   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQA2   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQA3   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQA4   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQA5   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQA6   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQA7   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQA8   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQA9   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBJ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBU   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBV   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBX   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBY   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQBZ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQB1   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQB2   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQB3   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQB4   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQB7   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQES   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQEU   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQE8   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQFA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQFA1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQFA2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQFE   HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0063


IEB154I  IEDQGA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQGH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQGP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQGR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQGT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQHG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQHK   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQHM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQHM1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQHM2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQKA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQKB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQKC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQKD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQKE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQUI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ10   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ11   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ12   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ13   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ14   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ15   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ16   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ17   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ18   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ19   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ20   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ21   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ22   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ23   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ24   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ25   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ26   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ27   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQ28   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000037 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY TELCMLIB
IEB149I  THERE ARE 0000010  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0064


                     COPY OUTDD=LINKLIB,INDD=CQ548
                     SELECT MEMBER=(IEDNAR)
                     SELECT MEMBER=(IEDNLT)
                     SELECT MEMBER=(IEDNMG)
                     SELECT MEMBER=(IEDNRE)
                     SELECT MEMBER=(IEDNTR)
                     SELECT MEMBER=(IEDQCA)
                     SELECT MEMBER=(IEDQEC,IEDQET,IEDQEW)
                     SELECT MEMBER=(IEDQEZ,IEDQE6,IEDQE7)
                     SELECT MEMBER=(IEDQFE10,IEDQFE20,IEDQFE30)
                     SELECT MEMBER=(IEDQFW,IEDQNA2)
                     SELECT MEMBER=(IEDQGQ)
                     SELECT MEMBER=(IEDQHI)
                     SELECT MEMBER=(IEDQNB,IEDQNB02,IEDQNB05)
                     SELECT MEMBER=(IEDQND,IEDQNF,IEDQNG,IEDQNH,IEDQNJ)
                     SELECT MEMBER=(IEDQNK,IEDQNM,IEDQNO,IEDQNP,IEDQNQ)
                     SELECT MEMBER=(IEDQNR,IEDQNS,IEDQNX,IEDQOA,IEDQOB)
                     SELECT MEMBER=(IEDQWA,IEDQWAB,IEDQWAJ,IEDQWB)
                     SELECT MEMBER=(IEDQWB1,IEDQWC,IEDQWC1,IEDQWC2)
                     SELECT MEMBER=(IEDQWD)
                     SELECT MEMBER=(IEDQWE,IEDQWE1)
                     SELECT MEMBER=(IEDQWF,IEDQWH)
                     SELECT MEMBER=(IEDQWI,IEDQWI1)
                     SELECT MEMBER=(IEDQWIA)
                     SELECT MEMBER=(IEDQWID,IEDQWIE,IEDQWI5U)
                     SELECT MEMBER=(IEDQWI7,IEDQWI8,IEDQWI9,IEDQWJ)
                     SELECT MEMBER=(IEDQWJ1,IEDQWJ2,IEDQWK,IEDQWL)
                     SELECT MEMBER=(IEDQWK1)
                     SELECT MEMBER=(IEDQWL1,IEDQWL2,IEDQWL3)
                     SELECT MEMBER=(IEDQWM2)
                     SELECT MEMBER=((IEDQWN,IEDQW35,R))
                     SELECT MEMBER=(IEDQWO,IEDQWP1,IEDQWP2)
                     SELECT MEMBER=((IEDQWP,IEDQW39,R))
                     SELECT MEMBER=((IEDQWQ,IEDQW37,R))
                     SELECT MEMBER=((IEDQWR,IEDQW28,R))
                     SELECT MEMBER=((IEDQWS,IEDQW36,R))
                     SELECT MEMBER=(IEDQWV,IEDQW21,IEDQWAC)
                     SELECT MEMBER=((IEDQWX,IEDQW41,R))
                     SELECT MEMBER=((IEDQWY,IEDQW16,R))
                     SELECT MEMBER=(IEDQW42,IEDQW43)
                     SELECT MEMBER=(IEDQW44,IEDQW47)
                     SELECT MEMBER=(IEDQWAA,IEDQWB2)
                     SELECT MEMBER=(IEDQWE2,IEDQWEC)
                     SELECT MEMBER=(IEDQXA,IEDQXB,IEDQXC)
                     SELECT MEMBER=(IEDQE1,IEDQE2,IEDQE3,IEDQE4)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CQ548    -
IEB154I  IEDNAR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDNLT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDNMG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDNRE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDNTR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQCA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQEC   HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0065


IEB154I  IEDQET   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQEW   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQEZ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQE1   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQE2   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQE3   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQE4   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQE6   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQE7   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQFE10 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQFE20 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQFE30 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQFW   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQGQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQHI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNA2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNB02 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNB05 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQND   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNJ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNK   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQNX   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQOA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQOB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWAB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWAC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWAJ  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWB1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWB2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWC1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWC2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWEC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWE1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWE2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWI   HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0066


IEB154I  IEDQWIA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWID  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWIE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWI1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWI5U HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWI7  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWI8  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWI9  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWJ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWJ1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWJ2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWK   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWK1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWL1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWL2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWL3  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWM2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWP1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWP2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQWV   HAS BEEN SUCCESSFULLY COPIED
IEB155I  IEDQW16  HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB154I  IEDQW21  HAS BEEN SUCCESSFULLY COPIED
IEB155I  IEDQW28  HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IEDQW35  HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IEDQW36  HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IEDQW37  HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IEDQW39  HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB155I  IEDQW41  HAS BEEN SUCCESSFULLY COPIED AND IS A 'NEWNAME'
IEB154I  IEDQW42  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQW43  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQW44  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQW47  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQXA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQXB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDQXC   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000853 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000262  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0067


                     COPY OUTDD=TELCMLIB,INDD=CQ548
                     SELECT MEMBER=(IEDAYA,IEDAYC,IEDAYD,IEDAYE)
                     SELECT MEMBER=(IEDAYB)
                     SELECT MEMBER=(IEDAYH,IEDAYI,IEDAYL,IEDAYM)
                     SELECT MEMBER=(IEDAYO,IEDAYR,IEDAYS,IEDAYT)
                     SELECT MEMBER=(IEDAYX,IEDAYY,IEDAYZ,IEDAYF)
                     SELECT MEMBER=(IEDAYAB)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CQ548    -
IEB154I  IEDAYA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYAB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYX   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYY   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEDAYZ   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000032 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY TELCMLIB
IEB149I  THERE ARE 0000007  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0068


                     COPY OUTDD=LINKLIB,INDD=UT506
                     SELECT MEMBER=(IHGUADEL)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY UT506    -
IEB154I  IHGUADEL HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000853 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000262  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0069


                     COPY OUTDD=SVCLIB,INDD=UT506
                     SELECT MEMBER=(IGC0003I)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY UT506    -
IEB154I  IGC0003I HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000337 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000139  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0070


                     COPY OUTDD=SVCLIB,INDD=IO523
                     SELECT MEMBER=(IGG0193Y,IGG0193Z,IGG0203Y)
                     SELECT MEMBER=(IGG0193L,IGG0203X)
                     SELECT MEMBER=(IGG019OA,IGG019OB)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY IO523    -
IEB154I  IGG019OA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG019OB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193L HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193Y HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0193Z HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0203X HAS BEEN SUCCESSFULLY COPIED
IEB154I  IGG0203Y HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000336 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SVCLIB
IEB149I  THERE ARE 0000138  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0071


                     COPY OUTDD=LINKLIB,INDD=IO523
                     SELECT MEMBER=(IFFPAAST,GSTOR)
                     SELECT MEMBER=(IFFPBAPR,GCPRNT)
                     SELECT MEMBER=(IFFPCAAR,GARC)
                     SELECT MEMBER=(IFFPDAPL,GSPLOT)
                     SELECT MEMBER=(IFFPEAGR,GCGRID)
                     SELECT MEMBER=(IFFPFAVA,GVARC)
                     SELECT MEMBER=(IFFPGAVP,GSVPLT)
                     SELECT MEMBER=(IFFPHALA,GLABEL)
                     SELECT MEMBER=(IFFPIAPG,GPGRID)
                     SELECT MEMBER=(IFFPJAPV,GPVGRD)
                     SELECT MEMBER=(IFFPPASG,GOFFSG)
                     SELECT MEMBER=(IFFPLARE,PENTRK)
                     SELECT MEMBER=(IFFPKADG,GSDPLT)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY IO523    -
IEB154I  GARC     HAS BEEN SUCCESSFULLY COPIED
IEB154I  GCGRID   HAS BEEN SUCCESSFULLY COPIED
IEB154I  GCPRNT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  GLABEL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  GOFFSG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  GPGRID   HAS BEEN SUCCESSFULLY COPIED
IEB154I  GPVGRD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  GSDPLT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  GSPLOT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  GSTOR    HAS BEEN SUCCESSFULLY COPIED
IEB154I  GSVPLT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  GVARC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPAAST HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPBAPR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPCAAR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPDAPL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPEAGR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPFAVA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPGAVP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPHALA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPIAPG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPJAPV HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPKADG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPLARE HAS BEEN SUCCESSFULLY COPIED
IEB154I  IFFPPASG HAS BEEN SUCCESSFULLY COPIED
IEB154I  PENTRK   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000849 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000258  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT4                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21CY103.R0000305     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI555                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DM508                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CQ548                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.IO523                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.RC536                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DN533                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DN554                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CQ513                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CQ548                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DM509                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.IO526                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.UT506                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   MVT1.IMAGELIB                                KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   MVT1.PL1LIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   MVT1.FORTLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   MVT1.COBLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.RC551                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.TELCMLIB                                KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21CY103.S0000306     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21CY103.S0000306     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG107   / START 78240.1946
IEF374I STEP /SG107   / STOP  78240.1946 CPU   0MIN 17.00SEC MAIN 254K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:33.28   ALLOC START    19:46:33.29   MAIN REGION ----- 256K                          *
*   STEP NAME SG107      STEP END TIME  19:46:51.61   PGM START TIME 19:46:33.64   MAIN STORAGE ---- 254K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:18.33   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBCOPY    STEP CPU TIME  00:00:17.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0151 ------------ 0       0353 ----------- 78       0250 --------- 3281       0250 ---------- 989    *
*   0250 ------------ 0       0250 --------- 7776       0250 --------- 8501       0250 ---------- 412       0250 ---------- 814    *
*   0250 ---------- 132       0250 ---------- 833       0250 --------- 1760       0250 ------------ 0       0250 ---------- 626    *
*   0250 --------- 2344       0250 ---------- 442       0150 -------- 49056       0150 ----------- 50       0150 -------- 18601    *
*   0150 ------------ 0       0150 ------------ 0       0150 ------------ 0       0250 --------- 1312       0150 --------- 4080    *
*   0130 ---------- 615                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21CY103  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:51.65   ALLOC START    19:46:51.67   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:51.70   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21CY103/ START 78240.1946
IEF376I  JOB /R21CY103/ STOP  78240.1946 CPU   0MIN 17.00SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21CY103   JOB READ TIME 19:45:21.78   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:17.00   *
*   JOB CLASS A          JOB INIT TIME 19:46:33.28   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:18.43   *
*   ACCOUNT              JOB END TIME  19:46:51.71   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1       00000         44                   A
            RRRRRRRRR  222222222      11     LL         KK    KK       11      0000000       444                  AAA
            RR     RR  22     22     111     LL         KK   KK       111     00     00     4444                 AA AA
            RR     RR        22       11     LL         KK  KK         11     00    000    44 44                AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11     00   0 00   44  44               AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11     00  0  00  44   44               AA     AA
            RR  RR        22          11     LL         KKK KK         11     00 0   00  444444444             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11     000    00  444444444             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111    0000000        44               AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     00000         44               AA     AA

***********A  START   R21LK104   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK104   START  A***********
***********A  START   R21LK104   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK104   START  A***********
***********A  START   R21LK104   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK104   START  A***********
***********A  START   R21LK104   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK104   START  A***********
***********A  START   R21LK104   SYS SYSA   WTR 00E   07:47:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK104   START  A***********


//R21LK104 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG108 EXEC PGM=IEWL,COND=(8,LT),REGION=300K,                         XXXXXXXX
//             PARM='OVLY,LET,LIST,XREF,SIZE=(250K,50K)'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(500,1000),RLSE),                             X
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),                   X
//             SYSOUT=A
//SYSLMOD DD DISP=(OLD,PASS),UNIT=3330,                             XXXXXXXX
//             VOLUME=SER=ASPRES,DSNAME=MVT1.LINKLIB(IEKAA00)
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//FO500 DD DISP=SHR,DSNAME=SYS1.FO500,VOLUME=(,RETAIN)
//SYSABEND DD SYSOUT=A
//SYSLIN DD *
IEF236I ALLOC. FOR R21LK104 SG108
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 250   ALLOCATED TO FO500
IEF237I 158   ALLOCATED TO SYSABEND
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED OVLY,LET,LIST,XREF,SIZE=(250K,50K)
           VARIABLE OPTIONS USED -  SIZE=(256000,51200)
IEW0000     INCLUDE   SYSPUNCH(IEK201)
IEW0000              INCLUDE FO500(IEKAA00)
IEW0000              INCLUDE FO500(IEKATB)
IEW0000              INCLUDE FO500(IEKAPT)
IEW0000              INCLUDE FO500(IEKTLOAD)
IEW0000              INCLUDE FO500(IEKFCOMH)
IEW0000              INCLUDE FO500(IEKFIOCS)
IEW0000              INCLUDE FO500(IEKATM)
IEW0000              INCLUDE FO500(IEKAFP)
IEW0000              INCLUDE FO500(IEKTDC)
IEW0000              INCLUDE FO500(IEKAINIT)
IEW0000              INCLUDE FO500(IEKCGC)
IEW0000              INCLUDE FO500(IEKCAA)
IEW0000              INCLUDE FO500(IEKCCR)
IEW0000              INCLUDE FO500(IEKXRS)
IEW0000              INCLUDE FO500(IEKCSR)
IEW0000              INCLUDE FO500(IEKCGW)
IEW0000              INCLUDE FO500(IEKCGO)
IEW0000              INCLUDE FO500(IEKCPX)
IEW0000              INCLUDE FO500(IEKCLT)
IEW0000              INCLUDE FO500(IEKCDT)
IEW0000              INCLUDE FO500(IEKCAR)
IEW0000              INCLUDE FO500(IEKCDO)
IEW0000              INCLUDE FO500(IEKDIO)
IEW0000              INCLUDE FO500(IEKCDP)
IEW0000              INCLUDE FO500(IEKCTN)
IEW0000              INCLUDE FO500(IEKCSP)
IEW0000              INCLUDE FO500(IEKKOS)
IEW0000              INCLUDE FO500(IEKGST)
IEW0000              INCLUDE FO500(IEKCIO)
IEW0000              INCLUDE FO500(IEKDCL)
IEW0000              INCLUDE FO500(IEKTFM)
IEW0000              INCLUDE FO500(IEKXRF)
IEW0000              INCLUDE FO500(IEKJA1)
IEW0000              INCLUDE FO500(IEKJA3)
IEW0000              INCLUDE FO500(IEKJAL)
IEW0000              INCLUDE FO500(IEKJBF)
IEW0000              INCLUDE FO500(IEKJCP)
IEW0000              INCLUDE FO500(IEKLMA)
IEW0000              INCLUDE FO500(IEKKRE)
IEW0000              INCLUDE FO500(IEKJDF)
IEW0000              INCLUDE FO500(IEKLTB)
IEW0000              INCLUDE FO500(IEKLOK)
IEW0000              INCLUDE FO500(IEKKUN)
IEW0000              INCLUDE FO500(IEKKST)
IEW0000              INCLUDE FO500(IEKLRG)
IEW0000              INCLUDE FO500(IEKLGN)
IEW0000              INCLUDE FO500(IEKKOP)
IEW0000              INCLUDE FO500(IEKKSM)
IEW0000              INCLUDE FO500(IEKJFI)
IEW0000              INCLUDE FO500(IEKJGR)
IEW0000              INCLUDE FO500(IEKKSA)
IEW0000              INCLUDE FO500(IEKJAN)

IEW0000              INCLUDE FO500(IEKLER)
IEW0000              INCLUDE FO500(IEKJA)
IEW0000              INCLUDE FO500(IEKKCN)
IEW0000              INCLUDE FO500(IEKKPA)
IEW0000              INCLUDE FO500(IEKJFU)
IEW0000              INCLUDE FO500(IEKLAB)
IEW0000              INCLUDE FO500(IEKGEV)
IEW0000              INCLUDE FO500(IEKGCZ)
IEW0000              INCLUDE FO500(IEKTDT)
IEW0000              INCLUDE FO500(IEKGDA)
IEW0000              INCLUDE FO500(IEKTNL)
IEW0000              INCLUDE FO500(IEKTDF)
IEW0000              INCLUDE FO500(IEKGCR)
IEW0000              INCLUDE FO500(IEKPLS)
IEW0000              INCLUDE FO500(IEKPGK)
IEW0000              INCLUDE FO500(IEKPT)
IEW0000              INCLUDE FO500(IEKARW)
IEW0000              INCLUDE FO500(IEKPZ)
IEW0000              INCLUDE FO500(IEKQAA)
IEW0000              INCLUDE FO500(IEKPB)
IEW0000              INCLUDE FO500(IEKPO)
IEW0000              INCLUDE FO500(IEKQXM)
IEW0000              INCLUDE FO500(IEKQKO)
IEW0000              INCLUDE FO500(IEKQXS)
IEW0000              INCLUDE FO500(IEKQCF)
IEW0000              INCLUDE FO500(IEKQCL)
IEW0000              INCLUDE FO500(IEKQBM)
IEW0000              INCLUDE FO500(IEKQSR)
IEW0000              INCLUDE FO500(IEKQMT)
IEW0000              INCLUDE FO500(IEKQWT)
IEW0000              INCLUDE FO500(IEKQPF)
IEW0000              INCLUDE FO500(IEKQSM)
IEW0000              INCLUDE FO500(IEKQTL)
IEW0000              INCLUDE FO500(IEKRFR)
IEW0000              INCLUDE FO500(IEKRL1)
IEW0000              INCLUDE FO500(IEKRFP)
IEW0000              INCLUDE FO500(IEKRGB)
IEW0000              INCLUDE FO500(IEKRBP)
IEW0000              INCLUDE FO500(IEKRCI)
IEW0000              INCLUDE FO500(IEKRS)
IEW0000              INCLUDE FO500(IEKSBS)
IEW0000              INCLUDE FO500(IEKRRG)
IEW0000              INCLUDE FO500(IEKRSX)
IEW0000              INCLUDE FO500(IEKRFL)
IEW0000              INCLUDE FO500(IEKRBK)
IEW0000              INCLUDE FO500(IEKRF1)
IEW0000              INCLUDE FO500(IEKRSS)
IEW0000              INCLUDE FO500(IEKRLL)
IEW0000              INCLUDE FO500(IEKRSL)
IEW0000              INCLUDE FO500(IEKP30)
IEW0000              INCLUDE FO500(IEKP31)
IEW0000              INCLUDE FO500(IEKUEN)
IEW0000              INCLUDE FO500(IEKTEN)
IEW0000              INCLUDE FO500(IEKTPR)
IEW0000              INCLUDE FO500(IEKTA)

IEW0000              INCLUDE FO500(IEKWCN)
IEW0000              INCLUDE FO500(IEKVSU)
IEW0000              INCLUDE FO500(IEKVUN)
IEW0000              INCLUDE FO500(IEKVTS)
IEW0000              INCLUDE FO500(IEKTIS)
IEW0000              INCLUDE FO500(IEKGMP)
IEW0000              INCLUDE FO500(IEKVAD)
IEW0000              INCLUDE FO500(IEKVBL)
IEW0000              INCLUDE FO500(IEKVFN)
IEW0000              INCLUDE FO500(IEKVM2)
IEW0000              INCLUDE FO500(IEKVTN)
IEW0000              INCLUDE FO500(IEKTIO)
IEW0000              INCLUDE FO500(IEKTEP)
IEW0000              INCLUDE FO500(IEKTSR)
IEW0000              INCLUDE FO500(IEKTPK)
IEW0000              INCLUDE FO500(IEKWKK)
IEW0000              INCLUDE FO500(IEKTLS)
IEW0000              INCLUDE FO500(IEKTLB)
IEW0000              INCLUDE FO500(IEKTRN)
IEW0000              INCLUDE FO500(IEKVPL)
IEW0000              INCLUDE FO500(IEKVFP)
IEW0000     OVERLAY PHASE
IEW0000      INSERT IEKCAA
IEW0000      INSERT IEKAINIT
IEW0000      INSERT IEKDIO#
IEW0000      INSERT IEKCSP#
IEW0000      INSERT IEKCTN#
IEW0000      INSERT IEKCCR
IEW0000      INSERT IEKCDP#
IEW0000      INSERT IEKCGC
IEW0000      INSERT IEKCGW
IEW0000      INSERT IEKCLT#
IEW0000      INSERT IEKCPX#
IEW0000      INSERT IEKCAR#
IEW0000      INSERT IEKDCL#
IEW0000      INSERT IEKCDT#
IEW0000      INSERT IEKCDO#
IEW0000      INSERT IEKCGO#
IEW0000      INSERT IEKCIO#
IEW0000      INSERT IEKCSR#
IEW0000      INSERT IEKGST#
IEW0000      INSERT IEKKOS#
IEW0000      INSERT IEKTFM
IEW0000      INSERT IEKXRS
IEW0000     OVERLAY PHASE
IEW0000      INSERT IEKXRF
IEW0000     OVERLAY PHASE
IEW0000      INSERT IEKJA2
IEW0000      INSERT IEKJA4
IEW0000     OVERLAY COMMON
IEW0000      INSERT IEKJA1
IEW0000      INSERT IEKJAL#
IEW0000      INSERT IEKJFU#
IEW0000      INSERT IEKJFI#
IEW0000      INSERT IEKLER#

IEW0000      INSERT IEKLOK
IEW0000      INSERT IEKJAN#
IEW0000      INSERT IEKKSM#
IEW0000      INSERT IEKLMA#
IEW0000      INSERT IEKKSA#
IEW0000      INSERT IEKLTB
IEW0000      INSERT IEKKUN#
IEW0000      INSERT IEKKRE#
IEW0000      INSERT IEKKPA#
IEW0000      INSERT IEKKOP#
IEW0000      INSERT IEKKST#
IEW0000      INSERT IEKJCP#
IEW0000      INSERT IEKJGR#
IEW0000      INSERT IEKKCN#
IEW0000      INSERT IEKLGN#
IEW0000      INSERT IEKLAB#
IEW0000      INSERT IEKJA#
IEW0000      INSERT IEKLRG#
IEW0000      INSERT IEKJDF#
IEW0000      INSERT IEKJBF#
IEW0000      INSERT IEKJA3
IEW0000     OVERLAY COMMON
IEW0000      INSERT IEKGA1
IEW0000      INSERT IEKGCR#
IEW0000      INSERT IEKTDT#
IEW0000      INSERT IEKTNL#
IEW0000      INSERT IEKGEV#
IEW0000      INSERT IEKGDA#
IEW0000      INSERT IEKGCZ#
IEW0000      INSERT IEKTDF#
IEW0000     OVERLAY COMMON
IEW0000      INSERT IEKPOP
IEW0000      INSERT IEKPLS#
IEW0000      INSERT IEKPGK#
IEW0000      INSERT IEKARW
IEW0000      INSERT IEKPT#
IEW0000     OVERLAY LOOPS
IEW0000      INSERT IEKPBL
IEW0000      INSERT IEKPB#
IEW0000      INSERT IEKPZ#
IEW0000      INSERT IEKPO#
IEW0000      INSERT IEKQAA#
IEW0000     OVERLAY LOOPS
IEW0000      INSERT IEKQBM#
IEW0000      INSERT IEKQCF#
IEW0000      INSERT IEKQCL#
IEW0000      INSERT IEKQMT#
IEW0000      INSERT IEKQSR#
IEW0000      INSERT IEKQSM#
IEW0000      INSERT IEKQKO
IEW0000      INSERT IEKQXS#
IEW0000      INSERT IEKQTL#
IEW0000      INSERT IEKQWT#
IEW0000      INSERT IEKQPF#
IEW0000      INSERT IEKQXM#

IEW0000     OVERLAY LOOPS
IEW0000      INSERT IEKSBS#
IEW0000      INSERT IEKRSX#
IEW0000      INSERT IEKRBK#
IEW0000      INSERT IEKRBP#
IEW0000      INSERT IEKRCI#
IEW0000      INSERT IEKRFL#
IEW0000      INSERT IEKRFP#
IEW0000      INSERT IEKRF1#
IEW0000      INSERT IEKRFR#
IEW0000      INSERT IEKRGB#
IEW0000      INSERT IEKRL1
IEW0000      INSERT IEKRRG#
IEW0000      INSERT IEKRS#
IEW0000     OVERLAY LOOPS
IEW0000      INSERT IEKRLL#
IEW0000      INSERT IEKRSL#
IEW0000      INSERT IEKRSS#
IEW0000     OVERLAY COMMON
IEW0000      INSERT IEKP30
IEW0000      INSERT IEKP31
IEW0000     OVERLAY PHASE
IEW0000      INSERT IEKVTS#
IEW0000      INSERT IEKVFN#
IEW0000      INSERT IEKTRN#
IEW0000      INSERT IEKTIO#
IEW0000      INSERT IEKTIS#
IEW0000      INSERT IEKVPL#
IEW0000      INSERT IEKVSU#
IEW0000      INSERT IEKP25
IEW0000      INSERT IEKWCN
IEW0000      INSERT IEKVTN#
IEW0000      INSERT IEKTPK#
IEW0000      INSERT IEKTLS
IEW0000      INSERT IEKVBL#
IEW0000      INSERT IEKTSR
IEW0000      INSERT IEKTEN#
IEW0000      INSERT IEKUEN#
IEW0000      INSERT IEKVFP#
IEW0000      INSERT IEKTA#
IEW0000      INSERT IEKTLB#
IEW0000      INSERT IEKVUN#
IEW0000      INSERT IEKGMP
IEW0000      INSERT IEKTPR#
IEW0000      INSERT IEKVAD#
IEW0000      INSERT IEKWKK
IEW0000      INSERT IEKVM2
IEW0000      INSERT IEKTEP#
IEW0000     ENTRY IEKAA00
****IEKAA00   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET

                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

 $SEGTAB        00      4C     1
  IEKAA01       50      3C     1
  IEKAAD        90    1004     1
  IEKAA00     1098     CAE     1
                                        IEKAGC      17EA    IEKIORTN    1990    ENDFILE     19A2    IEKAA9      1AAC
                                        QUIT        1AF6    ANSWER      1C08
  IEKAA02     1D48     23B     1
                                        PAGEHEAD    1DC4
  IEKATB#     1F88     BCC     1
                                        IEKATB      21B0
  IEKAPT      2B58      46     1
                                        PUTOUT      2B58
  IEKTLOAD    2BA0     C47     1
                                        ESD         2BA0    IEKUSD      2BA0    TXT         2E40    IEKTXT      2E40
                                        RLD         2F7E    IEKURL      2F7E    IEKUND      3026    IEND        3026
  IEKFCOMH    37E8     80D     1
                                        IBCOM#      37E8    IBCOM       37E8
  IEKFIOCS    3FF8     824     1
                                        FIOCS#      3FF8    FIOCS       3FF8
  IEKATM      4820     33A     1
                                        PHAZSS      4820    TIMERC      4820    PHASB       4832    TST         4846
                                        PHASS       491C    TSP         4924    TOUT        497E
  IEKAFP      4B60      A0     1
                                        AFIXPI      4B66    FIXPI       4B66    FIXPI#      4B66
  IEKTDC      4C00     198     1
  IEKAER      4D98     320     1
  IEKAAA      50B8     120     1
 $ENTAB       51D8      B4     1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     16E8            PHASB           IEKATM           1          16EC            TOUT            IEKATM           1
     16F0            PHAZSS          IEKATM           1          16F4            PHASS           IEKATM           1
     16F8            IEKQAA          IEKQAA#          8          16FC            IEKGMP          IEKGMP          13
     1C88            FIOCS#          IEKFIOCS         1          1C8C            IBCOM#          IEKFCOMH         1
     1C64            IEKAER          IEKAER           1          1C94            IEKAAA          IEKAAA           1
     1C98            IEKCAA          IEKCAA           2          1C9C            IEKAAD          IEKAAD           1
     1CA0            IEKCIN          IEKCDP#          2          1CA4            IEKAREAD        IEKCGC           2
     1CA8            IEKXRF          IEKXRF           3          1CAC            IEKXRS          IEKXRS           2
     1CB0            IEKGST          IEKGST#          2          1CB4            IEKJA           IEKJA#           5
     1CB8            IEKGCR          IEKGCR#          6          1CBC            IEKPLS          IEKPLS#          7
     1CC0            IEKTA           IEKTA#          13          1CC4            IEKATB          IEKATB#          1
     1CC8            IEKP30          IEKP30          12          1CCC            IEKUND          IEKTLOAD         1

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     1CD8            IEKAA01         IEKAA01          1          1CE0            IEKAINIT        IEKAINIT         2
     1CDC            IEKAA02         IEKAA02          1          2248            IEKAAA          IEKAAA           1
     224C            IEKAAD          IEKAAD           1          2250            IBCOM#          IEKFCOMH         1
     2B90            FIOCS#          IEKFIOCS         1          3378            FIOCS           IEKFIOCS         1
     3368            IEKAAA          IEKAAA           1          336C            IEKAAA          IEKAAA           1
     337C            IEKAAA          IEKAAA           1          3370            PAGEHEAD        IEKAA02          1
     3844            FIOCS#          IEKFIOCS         1          3848            IEKIORTN        IEKAA00          1
     3DA4            FIOCS#          IEKFIOCS         1          3D9C            IEKAA9          IEKAA00          1
     3DA0            IEKAAA          IEKAAA           1          44E4            IEKAAD          IEKAAD           1
     44E8            ENDFILE         IEKAA00          1          44EC            IEKAA02         IEKAA02          1
     44F0            IEKAAA          IEKAAA           1          44F4            IBCOM           IEKFCOMH         1
     44F8            IEKQAB          IEKQAA#          8          49FC            FIOCS#          IEKFIOCS         1
     4BFC            IBCOM           IEKFCOMH         1          4D4C            IEKAAA          IEKAAA           1
     4D50            FIOCS#          IEKFIOCS         1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKAINIT    5290     6EC     2
  IEKCGC      5980     CAF     2
                                        IEKAREAD    61E6
  IEKCAA      6630     D48     2
  IEKCCR      7378     CFC     2
                                        IEKCS3      73D6    IEKCS1      73EA    IEKCLC      7464    IEKCS2      7AA2
  IEKXRS      8078      E8     2
  IEKCSR#     8160     B56     2
                                        IEKCSR      8248
  IEKCGW      8CB8     25D     2
  IEKCGO#     8F18     736     2
                                        IEKCGO      8FC8
  IEKCPX#     9650     686     2
                                        IEKCPX      96C0
  IEKCLT#     9CD8     526     2
                                        IEKCLT      9D40
  IEKCDT#     A200    155E     2
                                        IEKCDT      A358
  IEKCAR#     B760    26C6     2
                                        IEKCAR      B890
  IEKCDO#     DE28    1280     2
                                        IEKCDO      DF80
  IEKDIO#     F0A8     ADA     2
                                        IEKDIO      F190
  IEKCDP#     FB88    1FDC     2
                                        IEKCDP      FD30    IEKCIN     1053C
  IEKCTN#    11B68     F36     2
                                        IEKCTN     11CC8
  IEKCSP#    12AA0    1250     2
                                        IEKCSP     12C18
  IEKKOS#    13CF0     5B6     2
                                        IEKKOS     13DA0
  IEKGST#    142A8    17A8     2

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

                                        IEKGST     14458
  IEKCIO#    15A50     910     2
                                        IEKCIO     15B50
  IEKDCL#    16360     CF2     2
                                        IEKDCL     16438
  IEKTFM     17058     722     2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     58E4            IEKAAD          IEKAAD           1          58E8            IEKAAA          IEKAAA           1
     58EC            IEKAA01         IEKAA01          1          58F0            FIOCS#          IEKFIOCS         1
     58F4            IEKAA02         IEKAA02          1          58F8            QUIT            IEKAA00          1
     58FC            IEKAA00         IEKAA00          1          5F18            IEKCAA          IEKCAA           2
     5F24            IEKCAA          IEKCAA           2          6268            IBCOM#          IEKFCOMH         1
     626C            FIOCS#          IEKFIOCS         1          6270            IEKAAA          IEKAAA           1
     6274            IEKCAA          IEKCAA           2          7EFC            IEKAAA          IEKAAA           1
     7F00            IEKCAA          IEKCAA           2          7F10            IEKAAD          IEKAAD           1
     7F0C            IEKXRS          IEKXRS           2          7F04            IEKDCL          IEKDCL#          2
     7F08            IEKCDP          IEKCDP#          2          7F14            IEKAGC          IEKAA00          1
     8150            FIOCS#          IEKFIOCS         1          8154            IEKAAA          IEKAAA           1
     8158            IEKAAD          IEKAAD           1          82F4            IEKAAA          IEKAAA           1
     82F8            IEKAER          IEKAER           1          82FC            IEKCAA          IEKCAA           2
     8300            IEKAGC          IEKAA00          1          8304            IEKCDP          IEKCDP#          2
     8308            IEKCGW          IEKCGW           2          830C            IEKCLC          IEKCCR           2
     8310            IEKCLT          IEKCLT#          2          8314            IEKCPX          IEKCPX#          2
     8318            IEKCS3          IEKCCR           2          831C            FIXPI#          IEKAFP           1
     8DD8            IEKCAA          IEKCAA           2          9068            IEKAAA          IEKAAA           1
     906C            IEKAER          IEKAER           1          9070            IEKCAA          IEKCAA           2
     9074            IEKAGC          IEKAA00          1          9078            IEKCDP          IEKCDP#          2
     907C            IEKCGW          IEKCGW           2          9080            IEKCLT          IEKCLT#          2
     9084            IEKCPX          IEKCPX#          2          9088            IEKCS3          IEKCCR           2
     9760            IEKAAA          IEKAAA           1          9764            IEKAER          IEKAER           1
     9768            IEKCAA          IEKCAA           2          976C            IEKAGC          IEKAA00          1
     9770            IEKCDP          IEKCDP#          2          9DDC            IEKAAA          IEKAAA           1
     9DE0            IEKAAD          IEKAAD           1          9DE4            IEKAER          IEKAER           1
     9DE8            IEKCAA          IEKCAA           2          9DEC            IEKAGC          IEKAA00          1
     9DF0            IEKCDP          IEKCDP#          2          9DF4            IEKCLC          IEKCCR           2
     9DF8            IEKXRS          IEKXRS           2          A40C            IEKAAA          IEKAAA           1
     A410            IEKAER          IEKAER           1          A414            IEKCAA          IEKCAA           2
     A418            IEKAGC          IEKAA00          1          A41C            IEKCCR          IEKCCR           2
     A420            IEKCDP          IEKCDP#          2          A424            IEKCGW          IEKCGW           2
     A428            IEKCLC          IEKCCR           2          A42C            IEKCPX          IEKCPX#          2
     A430            IEKCSP          IEKCSP#          2          A434            IEKCS2          IEKCCR           2
     A438            IEKCS3          IEKCCR           2          A43C            FIXPI#          IEKAFP           1
     B944            IEKAAA          IEKAAA           1          B948            IEKAER          IEKAER           1
     B94C            IEKCAA          IEKCAA           2          B950            IEKAGC          IEKAA00          1
     B954            IEKCCR          IEKCCR           2          B958            IEKCDO          IEKCDO#          2
     B95C            IEKCDP          IEKCDP#          2          B960            IEKCGW          IEKCGW           2
     B964            IEKCLT          IEKCLT#          2          B968            IEKCPX          IEKCPX#          2
     B96C            IEKCS1          IEKCCR           2          B970            IEKCS2          IEKCCR           2

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     B974            FIXPI#          IEKAFP           1          B92C            IEKCAA          IEKCAA           2
     E028            IEKAAA          IEKAAA           1          E02C            IEKAER          IEKAER           1
     E030            IEKCAA          IEKCAA           2          E034            IEKCCR          IEKCCR           2
     E038            IEKCDP          IEKCDP#          2          E03C            IEKCGW          IEKCGW           2
     E040            IEKCLT          IEKCLT#          2          E044            IEKCPX          IEKCPX#          2
     E048            IEKCS2          IEKCCR           2          E04C            IEKCS3          IEKCCR           2
     E050            IEKDCL          IEKDCL#          2          E054            FIXPI#          IEKAFP           1
     F250            IEKAAA          IEKAAA           1          F254            IEKAER          IEKAER           1
     F258            IEKCAA          IEKCAA           2          F25C            IEKAA9          IEKAA00          1
     F260            IEKAGC          IEKAA00          1          F264            IEKCCR          IEKCCR           2
     F268            IEKCDP          IEKCDP#          2          F26C            IEKCGW          IEKCGW           2
     F270            IEKCLT          IEKCLT#          2          F274            IEKCPX          IEKCPX#          2
     F278            IEKCS2          IEKCCR           2          F27C            IEKCS3          IEKCCR           2
     F280            FIXPI#          IEKAFP           1          FDD4            IEKAAA          IEKAAA           1
     FDD8            IEKAER          IEKAER           1          FDDC            IEKCAA          IEKCAA           2
     FDE0            IBCOM#          IEKFCOMH         1          FDE4            PHAZSS          IEKATM           1
     FDE8            IEKAA9          IEKAA00          1          FDEC            IEKAGC          IEKAA00          1
     FDF0            IEKCAR          IEKCAR#          2          FDF4            IEKCDO          IEKCDO#          2
     FDF8            IEKCDT          IEKCDT#          2          FDFC            IEKCGC          IEKCGC           2
     FE00            IEKCGO          IEKCGO#          2          FE04            IEKCGW          IEKCGW           2
     FE08            IEKCIO          IEKCIO#          2          FE0C            IEKCLT          IEKCLT#          2
     FE10            IEKCPX          IEKCPX#          2          FE14            IEKCSP          IEKCSP#          2
     FE18            IEKCSR          IEKCSR#          2          FE1C            IEKCS1          IEKCCR           2
     FE20            IEKCS2          IEKCCR           2          FE24            IEKCS3          IEKCCR           2
     FE28            IEKCTN          IEKCTN#          2          FE2C            IEKDCL          IEKDCL#          2
     FE30            IEKDIO          IEKDIO#          2         11D68            IEKAAA          IEKAAA           1
    11D6C            IEKAER          IEKAER           1         11D70            IEKCAA          IEKCAA           2
    11D74            IEKAGC          IEKAA00          1         11D78            IEKCCR          IEKCCR           2
    11D7C            IEKCDP          IEKCDP#          2         11D80            IEKCGW          IEKCGW           2
    11D84            IEKCLC          IEKCCR           2         11D88            IEKCPX          IEKCPX#          2
    11D8C            IEKCS1          IEKCCR           2         11D90            IEKCS2          IEKCCR           2
    11D94            IEKCS3          IEKCCR           2         12CCC            IEKAAA          IEKAAA           1
    12CD0            IEKAER          IEKAER           1         12CD4            IEKCAA          IEKCAA           2
    12CD8            IEKAGC          IEKAA00          1         12CDC            IEKCCR          IEKCCR           2
    12CE0            IEKCDP          IEKCDP#          2         12CE4            IEKCGW          IEKCGW           2
    12CE8            IEKCLC          IEKCCR           2         12CEC            IEKCS1          IEKCCR           2
    12CF0            IEKCS2          IEKCCR           2         12CF4            IEKCS3          IEKCCR           2
    13DF8            IEKAAA          IEKAAA           1         13DFC            IEKAAD          IEKAAD           1
    14520            IEKAAA          IEKAAA           1         14524            IEKAER          IEKAER           1
    14528            IEKAGC          IEKAA00          1         1452C            IEKKOS          IEKKOS#          2
    14530            IEKTFM          IEKTFM           2         14534            IEKTXT          IEKTLOAD         1
    14538            IEKUSD          IEKTLOAD         1         15BE8            IEKAAA          IEKAAA           1
    15BEC            IEKAER          IEKAER           1         15BF0            IEKCAA          IEKCAA           2
    15BF4            IEKCAR          IEKCAR#          2         15BF8            IEKCCR          IEKCCR           2
    15BFC            IEKCDP          IEKCDP#          2         15C00            IEKCGW          IEKCGW           2
    15C04            IEKCLT          IEKCLT#          2         15C08            IEKCPX          IEKCPX#          2
    15C0C            IEKCS1          IEKCCR           2         15C10            IEKCS2          IEKCCR           2
    15C14            IEKCS3          IEKCCR           2         164D8            IEKAAA          IEKAAA           1
    164DC            IEKAER          IEKAER           1         164E0            IEKCAA          IEKCAA           2
    164E4            IEKAGC          IEKAA00          1         164E8            IEKCAR          IEKCAR#          2
    164EC            IEKCDP          IEKCDP#          2         164F0            IEKCGW          IEKCGW           2
    164F4            IEKCLT          IEKCLT#          2         164F8            IEKCPX          IEKCPX#          2

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

    17720            IEKAAA          IEKAAA           1         1772C            IEKAAA          IEKAAA           1
    17724            IEKAER          IEKAER           1         17728            TXT             IEKTLOAD         1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKXRF      5290    A598     3



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     56BC            IEKAAA          IEKAAA           1          56C4            FIOCS#          IEKFIOCS         1
     56C0            IEKAAD          IEKAAD           1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKJA2      5290    3810     4
  IEKJA4      8AA0    3430     4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKJA1      BED0    1A0C     5
  IEKJA3      D8E0     290     5
  IEKJAL#     DB70    1866     5
                                        IEKJAL      DCB0
  IEKJBF#     F3D8     EE8     5
                                        IEKJBF      F5A8
  IEKJCP#    102C0     A28     5
                                        IEKJCP     10368    IEKJMO     108C8
  IEKLMA#    10CE8     66C     5
                                        IEKLMA     10D78
  IEKKRE#    11358     4E2     5
                                        IEKKRE     11408
  IEKJDF#    11840    12CE     5
                                        IEKJDF     11B08    IEKKPR     11D68
  IEKLTB     12B10     400     5
  IEKLOK     12F10      98     5
  IEKKUN#    12FA8     E38     5
                                        IEKKUN     13190    IEKKSW     136E8    IEKJEX     13828

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKKST#    13DE0     96E     5
                                        IEKKST     13EA0
  IEKLRG#    14750     86E     5
                                        IEKLRG     14890
  IEKLGN#    14FC0     8DA     5
                                        IEKLGN     15148
  IEKKOP#    158A0     49E     5
                                        IEKKOP     15900    IEKKNG     15AC8
  IEKKSM#    15D40     34C     5
                                        IEKKSM     15D90
  IEKJFI#    16090     86A     5
                                        IEKJFI     16178
  IEKJGR#    16900     370     5
                                        IEKJGR     16950
  IEKKSA#    16C70     7C8     5
                                        IEKKSA     16CF8
  IEKJAN#    17438     A6A     5
                                        IEKJAN     174C0    IEKKNO     17CA8
  IEKLER#    17EA8     60C     5
                                        IEKLER     17FA0
  IEKJA#     184B8    14C8     5
                                        IEKJA      18660
  IEKKCN#    19980     3F4     5
                                        IEKKCN     19A00
  IEKKPA#    19D78     5D0     5
                                        IEKKPA     19DE8
  IEKJFU#    1A348     25A     5
                                        IEKJFU     1A398
  IEKLAB#    1A5A8     57E     5
                                        IEKLAB     1A618


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     F710            IEKJA2          IEKJA2           4          F714            IEKJA3          IEKJA3           5
     F718            IEKAAA          IEKAAA           1          F71C            IEKKNG          IEKKOP#          5
     F720            IEKKOP          IEKKOP#          5          F724            IEKLGN          IEKLGN#          5
     F644            IEKJA1          IEKJA1           5          F648            IEKJA1          IEKJA1           5
     F668            IEKJA1          IEKJA1           5          F66C            IEKJA1          IEKJA1           5
     F68C            IEKJA1          IEKJA1           5          F6BC            IEKJA1          IEKJA1           5
     DDA0            IEKAAA          IEKAAA           1          DDA4            IEKJA1          IEKJA1           5
     DDA8            IEKJA1          IEKJA1           5          DDAC            IEKJAN          IEKJAN#          5
     DDB0            IEKJCP          IEKJCP#          5          DDB4            IEKJDF          IEKJDF#          5
     DDB8            IEKJEX          IEKKUN#          5          DDBC            IEKJFI          IEKJFI#          5
     DDC0            IEKKNG          IEKKOP#          5          DDC4            IEKKNO          IEKJAN#          5
     DDC8            IEKKOP          IEKKOP#          5          DDCC            IEKKPA          IEKKPA#          5
     DDD0            IEKKPR          IEKJDF#          5          DDD4            IEKKRE          IEKKRE#          5
     DDD8            IEKKSA          IEKKSA#          5          DDDC            IEKKSM          IEKKSM#          5
     DDE0            IEKKST          IEKKST#          5          DDE4            IEKKSW          IEKKUN#          5
     DDE8            IEKKUN          IEKKUN#          5          DDEC            IEKLER          IEKLER#          5
     DDF0            IEKLGN          IEKLGN#          5          DD68            IEKJA1          IEKJA1           5
     DD6C            IEKJA1          IEKJA1           5          DD90            IEKJA1          IEKJA1           5

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     DD94            IEKJA1          IEKJA1           5          F708            IEKJA1          IEKJA1           5
     F70C            IEKJA1          IEKJA1           5         104C0            IEKJA1          IEKJA1           5
    104C4            IEKJA1          IEKJA1           5         104C8            IEKAAA          IEKAAA           1
    104CC            IEKJFU          IEKJFU#          5         104D0            IEKJGR          IEKJGR#          5
    104D4            IEKKCN          IEKKCN#          5         104D8            IEKLGN          IEKLGN#          5
    10418            IEKJA1          IEKJA1           5         10438            IEKJA1          IEKJA1           5
    10458            IEKJA1          IEKJA1           5         1045C            IEKJA1          IEKJA1           5
    10468            IEKJA1          IEKJA1           5         1046C            IEKJA1          IEKJA1           5
    10478            IEKJA1          IEKJA1           5         10488            IEKJA1          IEKJA1           5
    10E14            IEKJA2          IEKJA2           4         10E18            IEKAAA          IEKAAA           1
    10E1C            IEKJA1          IEKJA1           5         10E20            IEKJA1          IEKJA1           5
    10E24            IEKLER          IEKLER#          5         114E8            IEKJA1          IEKJA1           5
    114EC            IEKJA1          IEKJA1           5         114F0            IEKAAA          IEKAAA           1
    114F4            IEKJGR          IEKJGR#          5         114F8            IEKJMO          IEKJCP#          5
    114FC            IEKLER          IEKLER#          5         11500            IEKLGN          IEKLGN#          5
    114AC            IEKJA1          IEKJA1           5         114BC            IEKJA1          IEKJA1           5
    114C4            IEKJA1          IEKJA1           5         114C8            IEKJA1          IEKJA1           5
    114CC            IEKJA1          IEKJA1           5         114D0            IEKJA1          IEKJA1           5
    11BAC            IEKJA1          IEKJA1           5         11BDC            IEKJA1          IEKJA1           5
    11BE0            IEKJA1          IEKJA1           5         11BE4            IEKJA1          IEKJA1           5
    11C34            IEKJA1          IEKJA1           5         11C3C            IEKJA1          IEKJA1           5
    11C48            IEKAAA          IEKAAA           1         11C4C            IEKJA1          IEKJA1           5
    11C50            IEKJA1          IEKJA1           5         11C54            IEKJA2          IEKJA2           4
    11C58            IEKAAD          IEKAAD           1         11C5C            IEKLTB          IEKLTB           5
    11C60            IEKJA3          IEKJA3           5         11C64            IEKAGC          IEKAA00          1
    11C68            IEKJBF          IEKJBF#          5         11C6C            IEKKNG          IEKKOP#          5
    11C70            IEKLER          IEKLER#          5         11C74            IEKLGN          IEKLGN#          5
    11C78            IEKLOK          IEKLOK           5         11C40            IEKJA1          IEKJA1           5
    12F90            IEKLTB          IEKLTB           5         132AC            IEKJA1          IEKJA1           5
    132B0            IEKJA1          IEKJA1           5         132B4            IEKAAA          IEKAAA           1
    132B8            IEKJA2          IEKJA2           4         132BC            IBCOM#          IEKFCOMH         1
    132C0            IEKJFU          IEKJFU#          5         132C4            IEKJMO          IEKJCP#          5
    132C8            IEKLER          IEKLER#          5         132CC            IEKLGN          IEKLGN#          5
    1322C            IEKJA1          IEKJA1           5         13244            IEKJA1          IEKJA1           5
    13248            IEKJA1          IEKJA1           5         13254            IEKJA1          IEKJA1           5
    13260            IEKJA1          IEKJA1           5         13288            IEKJA1          IEKJA1           5
    13290            IEKJA1          IEKJA1           5         132A0            IEKJA1          IEKJA1           5
    14078            IEKJA1          IEKJA1           5         1407C            IEKJA1          IEKJA1           5
    14080            IEKJA2          IEKJA2           4         14084            IEKKCN          IEKKCN#          5
    14088            IEKLGN          IEKLGN#          5         13F3C            IEKJA1          IEKJA1           5
    13F40            IEKJA1          IEKJA1           5         13F50            IEKJA1          IEKJA1           5
    13F60            IEKJA1          IEKJA1           5         13F70            IEKJA1          IEKJA1           5
    13F74            IEKJA1          IEKJA1           5         13F7C            IEKJA1          IEKJA1           5
    13F80            IEKJA1          IEKJA1           5         13F90            IEKJA1          IEKJA1           5
    13FA0            IEKJA1          IEKJA1           5         13FAC            IEKJA1          IEKJA1           5
    13FB0            IEKJA1          IEKJA1           5         13FC0            IEKJA1          IEKJA1           5
    13FCC            IEKJA1          IEKJA1           5         13FD0            IEKJA1          IEKJA1           5
    13FE0            IEKJA1          IEKJA1           5         13FF0            IEKJA1          IEKJA1           5
    14000            IEKJA1          IEKJA1           5         14010            IEKJA1          IEKJA1           5
    1401C            IEKJA1          IEKJA1           5         14020            IEKJA1          IEKJA1           5
    14030            IEKJA1          IEKJA1           5         1403C            IEKJA1          IEKJA1           5
    1404C            IEKJA1          IEKJA1           5         14050            IEKJA1          IEKJA1           5

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

    1405C            IEKJA1          IEKJA1           5         14060            IEKJA1          IEKJA1           5
    14070            IEKJA1          IEKJA1           5         14938            IEKAAA          IEKAAA           1
    1493C            IEKJA2          IEKJA2           4         14940            IEKJA4          IEKJA4           4
    14944            IEKJA1          IEKJA1           5         14948            IEKJA1          IEKJA1           5
    1494C            IEKAGC          IEKAA00          1         14950            IEKLER          IEKLER#          5
    14954            IEKLMA          IEKLMA#          5         15204            IEKJA1          IEKJA1           5
    15208            IEKJA1          IEKJA1           5         1520C            IEKAAA          IEKAAA           1
    15210            IEKJA2          IEKJA2           4         15214            IEKJA4          IEKJA4           4
    15218            IBCOM#          IEKFCOMH         1         1521C            IEKAGC          IEKAA00          1
    15220            IEKLAB          IEKLAB#          5         15224            IEKLER          IEKLER#          5
    15228            IEKLRG          IEKLRG#          5         159E8            IEKJA1          IEKJA1           5
    159EC            IEKJA1          IEKJA1           5         159F0            IEKAAA          IEKAAA           1
    159F4            IEKLGN          IEKLGN#          5         15E60            IEKAAA          IEKAAA           1
    15E64            IEKJA1          IEKJA1           5         15E68            IEKJA1          IEKJA1           5
    15E6C            IEKJMO          IEKJCP#          5         15E70            IEKLER          IEKLER#          5
    15E74            IEKLGN          IEKLGN#          5         15E30            IEKJA1          IEKJA1           5
    15E34            IEKJA1          IEKJA1           5         15E40            IEKJA1          IEKJA1           5
    15E4C            IEKJA1          IEKJA1           5         15E54            IEKJA1          IEKJA1           5
    162EC            IEKAAA          IEKAAA           1         162F0            IEKJA1          IEKJA1           5
    162F4            IEKJA1          IEKJA1           5         162F8            IEKJA2          IEKJA2           4
    162FC            IEKKNG          IEKKOP#          5         16300            IEKLER          IEKLER#          5
    16304            IEKLGN          IEKLGN#          5         16294            IEKJA1          IEKJA1           5
    1629C            IEKJA1          IEKJA1           5         162A0            IEKJA1          IEKJA1           5
    162A8            IEKJA1          IEKJA1           5         162D0            IEKJA1          IEKJA1           5
    162D4            IEKJA1          IEKJA1           5         162E0            IEKJA1          IEKJA1           5
    162E4            IEKJA1          IEKJA1           5         16A38            IEKJA1          IEKJA1           5
    16A3C            IEKJA1          IEKJA1           5         16A40            IEKAAA          IEKAAA           1
    16A44            IEKKST          IEKKST#          5         16A48            IEKLGN          IEKLGN#          5
    169E8            IEKJA1          IEKJA1           5         169EC            IEKJA1          IEKJA1           5
    169F0            IEKJA1          IEKJA1           5         169F4            IEKJA1          IEKJA1           5
    169F8            IEKJA1          IEKJA1           5         16A08            IEKJA1          IEKJA1           5
    16A0C            IEKJA1          IEKJA1           5         16A10            IEKJA1          IEKJA1           5
    16A14            IEKJA1          IEKJA1           5         16A18            IEKJA1          IEKJA1           5
    16A20            IEKJA1          IEKJA1           5         16A24            IEKJA1          IEKJA1           5
    16A28            IEKJA1          IEKJA1           5         16A30            IEKJA1          IEKJA1           5
    16A34            IEKJA1          IEKJA1           5         16E24            IEKJA1          IEKJA1           5
    16E28            IEKJA1          IEKJA1           5         16E2C            IEKAAA          IEKAAA           1
    16E30            IEKJA2          IEKJA2           4         16E34            IEKLER          IEKLER#          5
    16E38            IEKLGN          IEKLGN#          5         16DEC            IEKJA1          IEKJA1           5
    17654            IEKAAA          IEKAAA           1         17658            IEKJA1          IEKJA1           5
    1765C            IEKJA1          IEKJA1           5         17660            IEKJGR          IEKJGR#          5
    17664            IEKKSW          IEKKUN#          5         17668            IEKLER          IEKLER#          5
    1766C            IEKLGN          IEKLGN#          5         17564            IEKJA1          IEKJA1           5
    17568            IEKJA1          IEKJA1           5         1756C            IEKJA1          IEKJA1           5
    17570            IEKJA1          IEKJA1           5         17578            IEKJA1          IEKJA1           5
    17594            IEKJA1          IEKJA1           5         17598            IEKJA1          IEKJA1           5
    1759C            IEKJA1          IEKJA1           5         175A0            IEKJA1          IEKJA1           5
    175A8            IEKJA1          IEKJA1           5         175C0            IEKJA1          IEKJA1           5
    175C4            IEKJA1          IEKJA1           5         175CC            IEKJA1          IEKJA1           5
    175D0            IEKJA1          IEKJA1           5         175DC            IEKJA1          IEKJA1           5
    175E8            IEKJA1          IEKJA1           5         175F8            IEKJA1          IEKJA1           5
    17608            IEKJA1          IEKJA1           5         17618            IEKJA1          IEKJA1           5

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

    1762C            IEKJA1          IEKJA1           5         17630            IEKJA1          IEKJA1           5
    17634            IEKJA1          IEKJA1           5         17640            IEKJA1          IEKJA1           5
    1764C            IEKJA1          IEKJA1           5         17650            IEKJA1          IEKJA1           5
    18040            IEKJA1          IEKJA1           5         18044            IEKJA1          IEKJA1           5
    18048            IEKAER          IEKAER           1         1804C            IEKAAA          IEKAAA           1
    18050            IEKAAD          IEKAAD           1         18054            IBCOM#          IEKFCOMH         1
    18058            IEKAA9          IEKAA00          1         1805C            IEKAGC          IEKAA00          1
    18060            IEKKPR          IEKJDF#          5         18848            IEKAAD          IEKAAD           1
    1884C            IEKAER          IEKAER           1         18850            IEKAAA          IEKAAA           1
    18854            IEKJA2          IEKJA2           4         18858            IEKJA4          IEKJA4           4
    1885C            IEKJA1          IEKJA1           5         18860            IEKJA1          IEKJA1           5
    18864            IEKJA3          IEKJA3           5         18868            IBCOM#          IEKFCOMH         1
    1886C            IEKAGC          IEKAA00          1         18870            IEKJAL          IEKJAL#          5
    18874            IEKLER          IEKLER#          5         18878            IEKLGN          IEKLGN#          5
    187D4            IEKJA1          IEKJA1           5         19A9C            IEKAAA          IEKAAA           1
    19AA0            IEKAGC          IEKAA00          1         19EB8            IEKJA1          IEKJA1           5
    19EBC            IEKJA1          IEKJA1           5         19EC0            IEKAAA          IEKAAA           1
    19EC4            IEKKNG          IEKKOP#          5         19EC8            IEKKST          IEKKST#          5
    19ECC            IEKLGN          IEKLGN#          5         19EB0            IEKJA1          IEKJA1           5
    19EB4            IEKJA1          IEKJA1           5         1A430            IEKAAA          IEKAAA           1
    1A434            IEKJA1          IEKJA1           5         1A438            IEKJA1          IEKJA1           5
    1A43C            IEKKNG          IEKKOP#          5         1A6B8            IEKAAA          IEKAAA           1
    1A6BC            IEKJA2          IEKJA2           4         1A6C0            IEKJA4          IEKJA4           4
    1A6C4            IEKJA1          IEKJA1           5         1A6C8            IEKJA1          IEKJA1           5
    1A6CC            IEKLER          IEKLER#          5

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKGEV#     BED0     D3E     6
                                        IEKGEV      BFC8
  IEKGCZ#     CC10     D80     6
                                        IEKGCZ      CD48
  IEKTDT#     D990     D06     6
                                        IEKTDT      DAB8
  IEKGDA#     E698     9EE     6
                                        IEKGDA      E780
  IEKTNL#     F088     652     6
                                        IEKTNL      F138
  IEKTDF#     F6E0     33C     6
                                        IEKTDF      F748
  IEKGCR#     FA20    1628     6
                                        IEKGCR      FBE0
  IEKGA1     11048      40     6



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     C0C0            IEKAAA          IEKAAA           1          C0C4            IEKAER          IEKAER           1
     C0C8            IEKAAD          IEKAAD           1          C0CC            IEKGA1          IEKGA1           6

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     C0D0            IEKGCZ          IEKGCZ#          6          CE98            IEKAAA          IEKAAA           1
     CE9C            IEKAER          IEKAER           1          CEA0            IEKAAD          IEKAAD           1
     CEA4            IEKGA1          IEKGA1           6          CEA8            IEKJA2          IEKJA2           4
     CEAC            ESD             IEKTLOAD         1          CEB0            RLD             IEKTLOAD         1
     CEB4            TXT             IEKTLOAD         1          CEB8            PUTOUT          IEKAPT           1
     CEBC            IEKAA9          IEKAA00          1          CEC0            IEKAGC          IEKAA00          1
     CEC4            IEKTDC          IEKTDC           1          DC58            IEKAAD          IEKAAD           1
     DC5C            IEKAAA          IEKAAA           1          DC60            TXT             IEKTLOAD         1
     DC64            IEKGCZ          IEKGCZ#          6          DC68            IEKTDC          IEKTDC           1
     E864            IEKAAA          IEKAAA           1          E868            IEKAER          IEKAER           1
     E86C            IEKAAD          IEKAAD           1          E870            IEKGA1          IEKGA1           6
     E874            IEKAGC          IEKAA00          1          E878            IEKGCZ          IEKGCZ#          6
     F290            IEKAAA          IEKAAA           1          F294            RLD             IEKTLOAD         1
     F298            TXT             IEKTLOAD         1          F29C            IEKTDC          IEKTDC           1
     F1D0            IEKAAA          IEKAAA           1          F1DC            IEKAAA          IEKAAA           1
     F1EC            IEKAAA          IEKAAA           1          F1F8            IEKAAA          IEKAAA           1
     F210            IEKAAA          IEKAAA           1          F214            IEKAAA          IEKAAA           1
     F220            IEKAAA          IEKAAA           1          F230            IEKAAA          IEKAAA           1
     F23C            IEKAAA          IEKAAA           1          F24C            IEKAAA          IEKAAA           1
     F258            IEKAAA          IEKAAA           1          F270            IEKAAA          IEKAAA           1
     F274            IEKAAA          IEKAAA           1          F280            IEKAAA          IEKAAA           1
     F824            IEKAAA          IEKAAA           1          F828            RLD             IEKTLOAD         1
     F82C            TXT             IEKTLOAD         1          F830            IEKTDC          IEKTDC           1
     F7E0            IEKAAA          IEKAAA           1          F7EC            IEKAAA          IEKAAA           1
     F7FC            IEKAAA          IEKAAA           1          F808            IEKAAA          IEKAAA           1
     F820            IEKAAA          IEKAAA           1          FDD0            IEKAAA          IEKAAA           1
     FDD4            IEKAER          IEKAER           1          FDD8            IEKJA2          IEKJA2           4
     FDDC            IEKAAD          IEKAAD           1          FDE0            IEKGA1          IEKGA1           6
     FDE4            TXT             IEKTLOAD         1          FDE8            IEND            IEKTLOAD         1
     FDEC            PUTOUT          IEKAPT           1          FDF0            IEKAGC          IEKAA00          1
     FDF4            IEKGCZ          IEKGCZ#          6          FDF8            IEKGDA          IEKGDA#          6
     FDFC            IEKGEV          IEKGEV#          6          FE00            IEKTDC          IEKTDC           1
     FE04            IEKTDF          IEKTDF#          6          FE08            IEKTDT          IEKTDT#          6
     FE0C            IEKTNL          IEKTNL#          6          FE10            IEKUSD          IEKTLOAD         1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKPLS#     BED0     7FC     7
                                        IEKPLS      BF50
  IEKPGK#     C6D0     EB4     7
                                        IEKPGK      C7E8    IEKPFT      CC74    IEKPGC      CE30    IEKPOV      D354
                                        IEKPIV      D41C
  IEKPT#      D588     948     7
                                        IEKPT       D6B0
  IEKARW      DED0      2C     7
  IEKPOP      DF00     7B0     7
 $ENTAB       E6B0      84     7


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     C03C            IEKPOP          IEKPOP           7          C048            IEKPOP          IEKPOP           7
     C894            IEKAAA          IEKAAA           1          C898            IEKAAD          IEKAAD           1
     C89C            IEKAER          IEKAER           1          C8A0            IEKJA2          IEKJA2           4
     C8A4            IEKJA4          IEKJA4           4          C8A8            IEKPOP          IEKPOP           7
     C8AC            IEKAA9          IEKAA00          1          C8B0            IEKAGC          IEKAA00          1
     C050            IEKAAA          IEKAAA           1          C054            IEKPOP          IEKPOP           7
     C058            IEKJA2          IEKJA2           4          C05C            IEKPO           IEKPO#           8
     C060            IEKPT           IEKPT#           7          C064            IEKPZ           IEKPZ#           8
     C068            IEKATB          IEKATB#          1          C06C            IEKPIV          IEKPGK#          7
     C070            IEKQAA          IEKQAA#          8          C074            IEKQBM          IEKQBM#          9
     C078            IEKQKO          IEKQKO           9          C07C            IEKQSR          IEKQSR#          9
     C080            IEKQWT          IEKQWT#          9          C084            IEKQXM          IEKQXM#          9
     C088            IEKRRG          IEKRRG#         10          C08C            IEKRSS          IEKRSS#         11
     C090            IEKSBS          IEKSBS#         10          C008            IEKPOP          IEKPOP           7
     D748            IEKAAA          IEKAAA           1          D74C            IEKPOP          IEKPOP           7
     D750            IEKJA2          IEKJA2           4          D754            IBCOM#          IEKFCOMH         1
     DEA4            IEKPOP          IEKPOP           7          DEB0            IEKPOP          IEKPOP           7
     DEBC            IEKPOP          IEKPOP           7          DEF4            IEKFIOCS        IEKFIOCS         1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKPZ#      E738     B30     8
                                        IEKPZ       E8F8
  IEKQAA#     F268     EE0     8
                                        IEKQAA      F530    IEKQAB     100D4
  IEKPB#     10148     990     8
                                        IEKPB      102D0
  IEKPO#     10AD8     8CE     8
                                        IEKPO      10BB0
  IEKPBL     113A8    2EE8     8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

    1036C            IEKAAA          IEKAAA           1         10370            IEKAER          IEKAER           1
    10374            IEKJA2          IEKJA2           4         10378            IEKJA4          IEKJA4           4
    1037C            IEKPBL          IEKPBL           8         10380            IEKPBL          IEKPBL           8
    10384            IBCOM#          IEKFCOMH         1         10388            IEKAA9          IEKAA00          1
    10C4C            IEKAAA          IEKAAA           1         10C50            IEKAER          IEKAER           1
     E994            IEKAAA          IEKAAA           1          E998            IEKAER          IEKAER           1
     E99C            IEKJA2          IEKJA2           4          E9A0            IEKJA4          IEKJA4           4
     E9A4            IEKPBL          IEKPBL           8          E9A8            IEKPBL          IEKPBL           8
     E9AC            IBCOM#          IEKFCOMH         1          E9B0            IEKAA9          IEKAA00          1
     F5C8            IEKAAA          IEKAAA           1          F5CC            IBCOM#          IEKFCOMH         1
     F5D0            IEKARW          IEKARW           7         10C54            IEKJA2          IEKJA2           4
    10C58            IEKJA4          IEKJA4           4         10C5C            IEKPBL          IEKPBL           8
    10C60            IEKPBL          IEKPBL           8         10C64            IEKPB           IEKPB#           8
    10C68            IEKAA9          IEKAA00          1



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKQXM#     E738    1614     9
                                        IEKQXM      E7F8
  IEKQKO      FD50     178     9
                                        IEKQLO      FE78
  IEKQXS#     FEC8     C44     9
                                        IEKQXS      FF40    IEKQYS     1054C    IEKQZS     10824
  IEKQCF#    10B10     970     9
                                        IEKQCF     10BE0    IEKQMF     110BC    IEKQPX     11284
  IEKQCL#    11480     7B2     9
                                        IEKQCL     114C0    IEKQF      1197C
  IEKQBM#    11C38    1FD0     9
                                        IEKQBM     11D80
  IEKQSR#    13C08    1140     9
                                        IEKQSR     13CC0
  IEKQMT#    14D48     B46     9
                                        IEKQMT     14DD0    IEKQDT     153B4
  IEKQWT#    15890     746     9
                                        IEKQWT     15A80
  IEKQPF#    15FD8     3AA     9
                                        IEKQPF     16050
  IEKQSM#    16388     F76     9
                                        IEKQSM     16458
  IEKQTL#    17300     32E     9
                                        IEKQTL     17328


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     E900            IEKJA4          IEKJA4           4          E93C            IEKJA4          IEKJA4           4
     E940            IEKJA4          IEKJA4           4          E944            IEKJA4          IEKJA4           4
     E94C            IEKJA4          IEKJA4           4          E950            IEKJA4          IEKJA4           4
     E954            IEKJA4          IEKJA4           4          E95C            IEKJA4          IEKJA4           4
     E960            IEKJA4          IEKJA4           4          E970            IEKJA4          IEKJA4           4
     E974            IEKJA4          IEKJA4           4          E984            IEKJA4          IEKJA4           4
     E988            IEKJA4          IEKJA4           4          E998            IEKJA4          IEKJA4           4
     E99C            IEKJA4          IEKJA4           4          E9B0            IEKJA4          IEKJA4           4
     E9B4            IEKJA4          IEKJA4           4          E9B8            IEKJA4          IEKJA4           4
     EA9C            IEKJA2          IEKJA2           4          EAA8            IEKJA2          IEKJA2           4
     EAB0            IEKJA4          IEKJA4           4          EAB4            IEKJA4          IEKJA4           4
     EAB8            IEKJA4          IEKJA4           4          EAC8            IEKJA2          IEKJA2           4
     EAD0            IEKJA4          IEKJA4           4          EAD4            IEKJA4          IEKJA4           4
     EAD8            IEKJA4          IEKJA4           4          EAE0            IEKJA4          IEKJA4           4
     EAE4            IEKJA4          IEKJA4           4          EAF0            IEKJA2          IEKJA2           4
     EB00            IEKJA4          IEKJA4           4          EB04            IEKJA4          IEKJA4           4
     EB08            IEKJA4          IEKJA4           4          EB38            IEKQMF          IEKQCF#          9
     EB3C            IEKQSM          IEKQSM#          9          EB40            IEKQWT          IEKQWT#          9
     EB44            IEKQXS          IEKQXS#          9          EB10            IEKJA2          IEKJA2           4
     EB14            IEKJA4          IEKJA4           4          EB18            IEKPOP          IEKPOP           7

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     EB1C            IEKQF           IEKQCL#          9          EB20            IEKPFT          IEKPGK#          7
     EB24            IEKPGC          IEKPGK#          7          EB28            IEKQCF          IEKQCF#          9
     EB2C            IEKQDT          IEKQMT#          9          EB30            IEKQKO          IEKQKO           9
     EB34            IEKQLO          IEKQKO           9          E8BC            IEKJA4          IEKJA4           4
     E8C0            IEKJA4          IEKJA4           4          E8C4            IEKJA4          IEKJA4           4
     E8CC            IEKJA4          IEKJA4           4          E8D0            IEKJA4          IEKJA4           4
     E8D4            IEKJA4          IEKJA4           4          E8F8            IEKJA4          IEKJA4           4
     E8FC            IEKJA4          IEKJA4           4          E9C4            IEKJA4          IEKJA4           4
     E9C8            IEKJA4          IEKJA4           4          E9D8            IEKJA4          IEKJA4           4
     E9DC            IEKJA4          IEKJA4           4          E9E8            IEKJA4          IEKJA4           4
     E9F0            IEKJA4          IEKJA4           4          E9F8            IEKJA2          IEKJA2           4
     EA04            IEKJA4          IEKJA4           4          EA30            IEKJA4          IEKJA4           4
     EA34            IEKJA4          IEKJA4           4          EA38            IEKJA2          IEKJA2           4
     EA64            IEKJA4          IEKJA4           4          EA68            IEKJA4          IEKJA4           4
     EA6C            IEKJA4          IEKJA4           4          EA88            IEKJA4          IEKJA4           4
     FE64            IEKJA2          IEKJA2           4          FEBC            IEKPOP          IEKPOP           7
     FEC4            IEKAA9          IEKAA00          1         100E0            IEKJA4          IEKJA4           4
    100E4            IEKPOP          IEKPOP           7         100E8            IEKQKO          IEKQKO           9
    10CCC            IEKAAA          IEKAAA           1         10CD0            IEKAAD          IEKAAD           1
    10CD4            IEKJA2          IEKJA2           4         10CD8            IEKJA4          IEKJA4           4
    10CDC            IEKPOP          IEKPOP           7         10CE0            IEKPIV          IEKPGK#          7
    10CE4            IEKQKO          IEKQKO           9         10CB4            IEKJA4          IEKJA4           4
    10CB8            IEKJA4          IEKJA4           4         10CBC            IEKJA4          IEKJA4           4
    10CC0            IEKJA4          IEKJA4           4         10CC4            IEKJA4          IEKJA4           4
    10CC8            IEKJA4          IEKJA4           4         115B8            IEKJA2          IEKJA2           4
    115BC            IEKJA4          IEKJA4           4         115C0            IEKPOP          IEKPOP           7
    115C4            IEKQKO          IEKQKO           9         1155C            IEKPOP          IEKPOP           7
    11568            IEKPOP          IEKPOP           7         115A8            IEKJA2          IEKJA2           4
    11EE4            IEKJA2          IEKJA2           4         11EFC            IEKJA2          IEKJA2           4
    11F04            IEKJA4          IEKJA4           4         11F08            IEKJA4          IEKJA4           4
    11F0C            IEKJA4          IEKJA4           4         11F14            IEKJA2          IEKJA2           4
    11F1C            IEKPOP          IEKPOP           7         11F20            IEKJA4          IEKJA4           4
    11F24            IEKJA2          IEKJA2           4         11F30            IEKJA4          IEKJA4           4
    11F38            IEKPOP          IEKPOP           7         11F3C            IEKJA4          IEKJA4           4
    11F40            IEKJA4          IEKJA4           4         11F50            IEKJA4          IEKJA4           4
    11F58            IEKPOP          IEKPOP           7         11F5C            IEKJA4          IEKJA4           4
    11F60            IEKJA4          IEKJA4           4         11F68            IEKJA4          IEKJA4           4
    11F6C            IEKJA4          IEKJA4           4         12094            IEKAAA          IEKAAA           1
    12098            IEKJA2          IEKJA2           4         1209C            IEKJA4          IEKJA4           4
    120A0            IEKPOP          IEKPOP           7         120A4            IEKPFT          IEKPGK#          7
    120A8            IEKPGC          IEKPGK#          7         120AC            IEKPGK          IEKPGK#          7
    120B0            IEKPIV          IEKPGK#          7         120B4            IEKQCF          IEKQCF#          9
    120B8            IEKQCL          IEKQCL#          9         120BC            IEKQDT          IEKQMT#          9
    120C0            IEKQKO          IEKQKO           9         120C4            IEKQLO          IEKQKO           9
    120C8            IEKQMF          IEKQCF#          9         120CC            IEKQMT          IEKQMT#          9
    120D0            IEKQPF          IEKQPF#          9         120D4            IEKQPX          IEKQCF#          9
    120D8            IEKQSM          IEKQSM#          9         120DC            IEKQWT          IEKQWT#          9
    120E0            IEKQYS          IEKQXS#          9         120E4            IEKQZS          IEKQXS#          9
    1205C            IEKPOP          IEKPOP           7         12068            IEKPOP          IEKPOP           7
    11F70            IEKJA4          IEKJA4           4         11F84            IEKJA2          IEKJA2           4
    11F90            IEKJA2          IEKJA2           4         11F98            IEKJA4          IEKJA4           4
    11F9C            IEKJA4          IEKJA4           4         11FA0            IEKJA4          IEKJA4           4

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

    11FBC            IEKJA2          IEKJA2           4         11FC8            IEKJA2          IEKJA2           4
    11FD0            IEKJA4          IEKJA4           4         11FD4            IEKJA4          IEKJA4           4
    11FD8            IEKJA4          IEKJA4           4         11FE0            IEKJA4          IEKJA4           4
    11FE8            IEKPOP          IEKPOP           7         11FF0            IEKJA4          IEKJA4           4
    11FF4            IEKJA2          IEKJA2           4         12004            IEKJA4          IEKJA4           4
    12008            IEKJA4          IEKJA4           4         1200C            IEKJA2          IEKJA2           4
    11E6C            IEKJA4          IEKJA4           4         11E74            IEKJA4          IEKJA4           4
    11E80            IEKJA2          IEKJA2           4         11E8C            IEKJA2          IEKJA2           4
    11E94            IEKJA4          IEKJA4           4         11E98            IEKJA4          IEKJA4           4
    11E9C            IEKJA4          IEKJA4           4         11ED8            IEKJA4          IEKJA4           4
    13FE4            IEKJA2          IEKJA2           4         13FE8            IEKJA4          IEKJA4           4
    13FEC            IEKPOP          IEKPOP           7         13FF0            IEKPFT          IEKPGK#          7
    13FF4            IEKPGC          IEKPGK#          7         13FF8            IEKPGK          IEKPGK#          7
    13FFC            IEKQCF          IEKQCF#          9         14000            IEKQCL          IEKQCL#          9
    14004            IEKQDT          IEKQMT#          9         13D6C            IEKJA4          IEKJA4           4
    13D78            IEKJA2          IEKJA2           4         13D84            IEKJA2          IEKJA2           4
    13D88            IEKJA4          IEKJA4           4         13D94            IEKJA2          IEKJA2           4
    13D98            IEKJA4          IEKJA4           4         13D9C            IEKJA4          IEKJA4           4
    13DA8            IEKJA2          IEKJA2           4         13DB4            IEKJA2          IEKJA2           4
    13DC0            IEKJA2          IEKJA2           4         13DC8            IEKPOP          IEKPOP           7
    13DCC            IEKJA4          IEKJA4           4         13DD0            IEKJA2          IEKJA2           4
    13DDC            IEKJA2          IEKJA2           4         13DE0            IEKJA2          IEKJA2           4
    13DE8            IEKJA4          IEKJA4           4         13DF0            IEKJA2          IEKJA2           4
    13DFC            IEKJA2          IEKJA2           4         13E04            IEKPOP          IEKPOP           7
    13E08            IEKJA4          IEKJA4           4         13E0C            IEKJA2          IEKJA2           4
    13E18            IEKJA2          IEKJA2           4         13E40            IEKJA4          IEKJA4           4
    13E48            IEKJA2          IEKJA2           4         13E4C            IEKJA2          IEKJA2           4
    13E50            IEKJA4          IEKJA4           4         13E60            IEKJA2          IEKJA2           4
    13E6C            IEKJA2          IEKJA2           4         13E74            IEKJA4          IEKJA4           4
    13E78            IEKJA4          IEKJA4           4         13E7C            IEKJA2          IEKJA2           4
    13E88            IEKJA2          IEKJA2           4         13E8C            IEKJA2          IEKJA2           4
    13E9C            IEKJA4          IEKJA4           4         13EA0            IEKJA4          IEKJA4           4
    13EA4            IEKJA2          IEKJA2           4         13EB0            IEKJA4          IEKJA4           4
    13EB4            IEKJA4          IEKJA4           4         13EB8            IEKJA4          IEKJA4           4
    13EC0            IEKPOP          IEKPOP           7         13EE0            IEKJA4          IEKJA4           4
    13EF0            IEKJA2          IEKJA2           4         13EFC            IEKJA2          IEKJA2           4
    13F04            IEKJA4          IEKJA4           4         13F08            IEKJA4          IEKJA4           4
    13F0C            IEKJA4          IEKJA4           4         13F10            IEKJA4          IEKJA4           4
    13F20            IEKJA2          IEKJA2           4         13F28            IEKJA4          IEKJA4           4
    13F2C            IEKJA4          IEKJA4           4         13F30            IEKJA4          IEKJA4           4
    13F50            IEKJA2          IEKJA2           4         13F58            IEKPOP          IEKPOP           7
    13F5C            IEKJA4          IEKJA4           4         13F60            IEKJA2          IEKJA2           4
    13F74            IEKJA4          IEKJA4           4         13F7C            IEKPOP          IEKPOP           7
    13F80            IEKJA4          IEKJA4           4         13F84            IEKJA4          IEKJA4           4
    13FA4            IEKPOP          IEKPOP           7         14008            IEKQKO          IEKQKO           9
    1400C            IEKQLO          IEKQKO           9         14010            IEKQMT          IEKQMT#          9
    14014            IEKQSM          IEKQSM#          9         14018            IEKQTL          IEKQTL#          9
    1401C            IEKQWT          IEKQWT#          9         14020            IEKQZS          IEKQXS#          9
    14F8C            IEKJA2          IEKJA2           4         14F90            IEKJA4          IEKJA4           4
    14F94            IEKPOP          IEKPOP           7         14F98            IEKQCF          IEKQCF#          9
    14F9C            IEKQCL          IEKQCL#          9         14FA0            IEKQKO          IEKQKO           9
    14FA4            IEKQWT          IEKQWT#          9         14EA4            IEKPOP          IEKPOP           7

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

    14ED8            IEKPOP          IEKPOP           7         14EF8            IEKJA4          IEKJA4           4
    14EFC            IEKJA4          IEKJA4           4         14F00            IEKJA4          IEKJA4           4
    15AD8            IEKAAA          IEKAAA           1         15ADC            IEKJA4          IEKJA4           4
    15AE0            IEKPOP          IEKPOP           7         15AE4            IBCOM#          IEKFCOMH         1
    160EC            IEKAAA          IEKAAA           1         160F0            IEKJA2          IEKJA2           4
    160F4            IEKJA4          IEKJA4           4         160F8            IEKPGK          IEKPGK#          7
    160E8            IEKJA4          IEKJA4           4         16664            IEKJA2          IEKJA2           4
    16668            IEKJA4          IEKJA4           4         1666C            IEKPOP          IEKPOP           7
    16670            IEKPFT          IEKPGK#          7         16674            IEKQKO          IEKQKO           9
    16678            IEKQPX          IEKQCF#          9         1667C            IEKQWT          IEKQWT#          9
    16680            IEKQYS          IEKQXS#          9         16518            IEKJA4          IEKJA4           4
    1651C            IEKJA4          IEKJA4           4         16560            IEKJA2          IEKJA2           4
    16568            IEKJA4          IEKJA4           4         1656C            IEKJA4          IEKJA4           4
    16570            IEKJA4          IEKJA4           4         16580            IEKJA2          IEKJA2           4
    16590            IEKJA4          IEKJA4           4         16594            IEKJA4          IEKJA4           4
    16598            IEKJA2          IEKJA2           4         165A4            IEKJA2          IEKJA2           4
    16610            IEKJA2          IEKJA2           4         16628            IEKJA2          IEKJA2           4
    16650            IEKJA2          IEKJA2           4         16660            IEKJA4          IEKJA4           4
    173CC            IEKJA4          IEKJA4           4         173D0            IEKPOP          IEKPOP           7
    173D4            IEKQCF          IEKQCF#          9

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKRFR#     E738     DAC    10
                                        IEKRFR      E8A8
  IEKRL1      F4E8     9F4    10
  IEKRFP#     FEE0     E00    10
                                        IEKRFP     10218
  IEKRGB#    10CE0    15FA    10
                                        IEKRGB     10E38
  IEKRBP#    122E0    1CD8    10
                                        IEKRBP     12478
  IEKRCI#    13FB8     65C    10
                                        IEKRCI     14078
  IEKRS#     14618     BD4    10
                                        IEKRS      147D0
  IEKSBS#    151F0    2280    10
                                        IEKSBS     15888
  IEKRRG#    17470     746    10
                                        IEKRRG     17568
  IEKRSX#    17BB8    24DE    10
                                        IEKRSX     17E20
  IEKRFL#    1A098     C26    10
                                        IEKRFL     1A228    IEKRRL     1A6B4    IEKRTF     1AAC8
  IEKRBK#    1ACC0     7A0    10
                                        IEKRBK     1AF18
  IEKRF1#    1B460    1FF8    10
                                        IEKRF1     1B660



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     E948            IEKJA2          IEKJA2           4          E94C            IEKJA4          IEKJA4           4
     E950            IEKAAA          IEKAAA           1          E954            IEKRL1          IEKRL1          10
     E958            IEKAER          IEKAER           1          E95C            IBCOM#          IEKFCOMH         1
     E960            IEKATB          IEKATB#          1          E964            IEKPOV          IEKPGK#          7
    102B8            IEKRL1          IEKRL1          10         102C0            IEKRL1          IEKRL1          10
    102E0            IEKAAA          IEKAAA           1         102E4            IEKPOP          IEKPOP           7
    102E8            IEKJA2          IEKJA2           4         102EC            IEKJA4          IEKJA4           4
    102F0            IEKRL1          IEKRL1          10         102F4            IBCOM#          IEKFCOMH         1
    102F8            PUTOUT          IEKAPT           1         102FC            IEKPIV          IEKPGK#          7
    10300            IEKRBK          IEKRBK#         10         10304            IEKRBP          IEKRBP#         10
    10308            IEKRF1          IEKRF1#         10         10F60            IEKAAA          IEKAAA           1
    10F64            IEKPOP          IEKPOP           7         10F68            IEKJA2          IEKJA2           4
    10F6C            IEKJA4          IEKJA4           4         10F70            IEKRL1          IEKRL1          10
    10F74            IEKRS           IEKRS#          10         10F78            IBCOM#          IEKFCOMH         1
    10F7C            IEKPFT          IEKPGK#          7         10F80            IEKPIV          IEKPGK#          7
    10F84            IEKRBK          IEKRBK#         10         10EE4            IEKRL1          IEKRL1          10
    10EEC            IEKRL1          IEKRL1          10         10EF0            IEKRL1          IEKRL1          10
    10F00            IEKRL1          IEKRL1          10         10F0C            IEKRL1          IEKRL1          10
    10F10            IEKRL1          IEKRL1          10         10F18            IEKRL1          IEKRL1          10
    10F24            IEKRL1          IEKRL1          10         10F28            IEKRL1          IEKRL1          10
    10F30            IEKRL1          IEKRL1          10         10F40            IEKJA4          IEKJA4           4
    1252C            IEKAAA          IEKAAA           1         12530            IEKJA2          IEKJA2           4
    12534            IEKJA4          IEKJA4           4         12538            IEKPOP          IEKPOP           7
    1253C            IEKRL1          IEKRL1          10         12540            IBCOM#          IEKFCOMH         1
    12544            IEKRCI          IEKRCI#         10         12548            IEKRFR          IEKRFR#         10
    14138            IEKAAA          IEKAAA           1         1413C            IEKJA2          IEKJA2           4
    14140            IEKJA4          IEKJA4           4         14144            IEKRL1          IEKRL1          10
    14148            IBCOM#          IEKFCOMH         1         1414C            IEKAGC          IEKAA00          1
    14150            IEKPFT          IEKPGK#          7         14154            IEKPGK          IEKPGK#          7
    14158            IEKRFR          IEKRFR#         10         14118            IEKRL1          IEKRL1          10
    148B0            IEKAAA          IEKAAA           1         148B4            IEKPOP          IEKPOP           7
    148B8            IEKJA2          IEKJA2           4         148BC            IEKJA4          IEKJA4           4
    148C0            IEKRL1          IEKRL1          10         148C4            IBCOM#          IEKFCOMH         1
    148C8            IEKPFT          IEKPGK#          7         14868            IEKRL1          IEKRL1          10
    1486C            IEKRL1          IEKRL1          10         1487C            IEKRL1          IEKRL1          10
    14884            IEKRL1          IEKRL1          10         14894            IEKRL1          IEKRL1          10
    15928            IEKAAA          IEKAAA           1         1592C            IEKAAD          IEKAAD           1
    15930            IEKJA2          IEKJA2           4         15934            IBCOM#          IEKFCOMH         1
    15938            IEKATB          IEKATB#          1         1593C            IEKPOV          IEKPGK#          7
    17624            IEKAAA          IEKAAA           1         17628            IEKPOP          IEKPOP           7
    1762C            IEKJA2          IEKJA2           4         17630            IEKJA4          IEKJA4           4
    17634            IEKRL1          IEKRL1          10         17638            IBCOM#          IEKFCOMH         1
    1763C            IEKRBK          IEKRBK#         10         17640            IEKRFP          IEKRFP#         10
    17644            IEKRGB          IEKRGB#         10         17648            IEKRSX          IEKRSX#         10
    17EC4            IEKAAD          IEKAAD           1         17EC8            IEKAAA          IEKAAA           1
    17ECC            IEKJA2          IEKJA2           4         17ED0            IEKJA4          IEKJA4           4
    17ED4            IEKPOP          IEKPOP           7         17ED8            IEKRL1          IEKRL1          10
    17EDC            IEKAGC          IEKAA00          1         17EE0            IEKPOV          IEKPGK#          7
    17EE4            IEKRFL          IEKRFL#         10         17EE8            IEKRRL          IEKRFL#         10
    17EEC            IEKRTF          IEKRFL#         10         1A2C8            IEKAAD          IEKAAD           1
    1A2CC            IEKAAA          IEKAAA           1         1A2D0            IEKJA2          IEKJA2           4
    1A2D4            IEKRL1          IEKRL1          10         1A2D8            IEKAER          IEKAER           1

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

    1A2DC            IBCOM#          IEKFCOMH         1         1A2E0            IEKAA9          IEKAA00          1
    1A2E4            IEKATB          IEKATB#          1         1AF70            IEKAAA          IEKAAA           1
    1AF74            IEKPOP          IEKPOP           7         1AF78            IEKRL1          IEKRL1          10
    1AF7C            IEKJA2          IEKJA2           4         1AF80            IEKJA4          IEKJA4           4
    1AF84            IBCOM#          IEKFCOMH         1         1B708            IEKAAA          IEKAAA           1
    1B70C            IEKPOP          IEKPOP           7         1B710            IEKRL1          IEKRL1          10
    1B714            IEKJA2          IEKJA2           4         1B718            IEKJA4          IEKJA4           4
    1B71C            IEKAER          IEKAER           1         1B720            IEKPIV          IEKPGK#          7
    1B724            IEKPOV          IEKPGK#          7         1B728            IEKRCI          IEKRCI#         10


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKRSS#     E738    1B18    11
                                        IEKRSS      E960
  IEKRLL#    10250     6FC    11
                                        IEKRLL     10310
  IEKRSL#    10950     B7E    11
                                        IEKRSL     10A78


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     EA08            IEKAAA          IEKAAA           1          EA0C            IEKAAD          IEKAAD           1
     EA10            PHAZSS          IEKATM           1          EA14            IEKAGC          IEKAA00          1
     EA18            IEKPOV          IEKPGK#          7          EA1C            IEKRLL          IEKRLL#         11
     EA20            IEKRSL          IEKRSL#         11         103B4            IEKAAA          IEKAAA           1
    103B8            IEKAAD          IEKAAD           1         103BC            IEKAGC          IEKAA00          1
    103C0            IEKPOV          IEKPGK#          7         10B10            IEKAAA          IEKAAA           1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKP30      BED0    57D3    12
  IEKP31     116A8     20C    12



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     BFE8            IEKP31          IEKP31          12          BFF0            IEKAAA          IEKAAA           1
     BFEC            IEKAER          IEKAER           1         11850            IEKAAA          IEKAAA           1
    11854            FIOCS#          IEKFIOCS         1




  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEKUEN#     5290     AC0    13
                                        IEKUEN      5418
  IEKTEN#     5D50     B0E    13
                                        IEKTEN      5E70
  IEKTPR#     6860     BB0    13
                                        IEKTPR      6960
  IEKTA#      7410     AE0    13
                                        IEKTA       7550
  IEKWCN      7EF0    1180    13
  IEKVSU#     9070     C4E    13
                                        IEKVSU      9180
  IEKVUN#     9CC0     A4E    13
                                        IEKVUN      9DA8
  IEKVTS#     A710    1178    13
                                        IEKVTS      A848
  IEKTIS#     B888     E98    13
                                        IEKTIS      B9D8
  IEKGMP      C720     748    13
  IEKVAD#     CE68     89C    13
                                        IEKVAD      CF68
  IEKVBL#     D708     E24    13
                                        IEKVBL      D820
  IEKVFN#     E530     432    13
                                        IEKVFN      E5B0
  IEKVM2      E968     504    13
  IEKVTN#     EE70     748    13
                                        IEKVTN      EFA0
  IEKTIO#     F5B8     884    13
                                        IEKTIO      F698
  IEKTEP#     FE40     670    13
                                        IEKTEP      FED8
  IEKTSR     104B0     19A    13
  IEKTPK#    10650     1A8    13
                                        IEKTPK     10680
  IEKWKK     107F8     11C    13
  IEKTLS     10918     4F8    13
  IEKTLB#    10E10     16E    13
                                        IEKTLB     10E38
  IEKTRN#    10F80     2BE    13
                                        IEKTRN     10FD0
  IEKVPL#    11240     E70    13
                                        IEKVPL     11358
  IEKVFP#    120B0     B70    13
                                        IEKVFP     12210
  IEKP25     12C20     244    13




  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     5554            IEKP25          IEKP25          13          5584            IEKP25          IEKP25          13
     5624            IEKP25          IEKP25          13          5648            IEKAAA          IEKAAA           1
     564C            IEKAAD          IEKAAD           1          5650            IEKP25          IEKP25          13
     5654            RLD             IEKTLOAD         1          5658            TXT             IEKTLOAD         1
     565C            IEND            IEKTLOAD         1          5660            PUTOUT          IEKAPT           1
     5664            IEKTDC          IEKTDC           1          5668            IEKTEN          IEKTEN#         13
     54C4            IEKP25          IEKP25          13          54F4            IEKP25          IEKP25          13
     5524            IEKP25          IEKP25          13          5640            IEKP25          IEKP25          13
     5644            IEKP25          IEKP25          13          6070            IEKAAA          IEKAAA           1
     6074            IEKP25          IEKP25          13          6078            ESD             IEKTLOAD         1
     607C            RLD             IEKTLOAD         1          6080            TXT             IEKTLOAD         1
     6084            PUTOUT          IEKAPT           1          6088            IEKTDC          IEKTDC           1
     608C            IEKTEP          IEKTEP#         13          6090            IEKTPK          IEKTPK#         13
     6094            IEKTPR          IEKTPR#         13          5F18            IEKP25          IEKP25          13
     5F24            IEKP25          IEKP25          13          5F34            IEKP25          IEKP25          13
     5F40            IEKP25          IEKP25          13          5F9C            IEKP25          IEKP25          13
     5FAC            IEKP25          IEKP25          13          5FBC            IEKP25          IEKP25          13
     5FC8            IEKP25          IEKP25          13          5FD8            IEKP25          IEKP25          13
     5FF4            IEKP25          IEKP25          13          6000            IEKP25          IEKP25          13
     6010            IEKP25          IEKP25          13          6018            IEKP25          IEKP25          13
     601C            IEKP25          IEKP25          13          6028            IEKP25          IEKP25          13
     6030            IEKP25          IEKP25          13          6034            IEKP25          IEKP25          13
     6048            IEKP25          IEKP25          13          6050            IEKP25          IEKP25          13
     6060            IEKP25          IEKP25          13          6A4C            IEKAAA          IEKAAA           1
     6A50            IEKAAD          IEKAAD           1          6A54            IEKP25          IEKP25          13
     6A58            IEKTPK          IEKTPK#         13          75EC            IEKAAA          IEKAAA           1
     75F0            IEKP25          IEKP25          13          75F4            IEKWCN          IEKWCN          13
     75F8            IEKAER          IEKAER           1          75FC            PHAZSS          IEKATM           1
     7600            IEKAA9          IEKAA00          1          7604            IEKVFP          IEKVFP#         13
     7608            IEKVM2          IEKVM2          13          760C            IEKVTN          IEKVTN#         13
     9224            IEKAAA          IEKAAA           1          9228            IEKP25          IEKP25          13
     922C            IEKWCN          IEKWCN          13          9230            IEKTIS          IEKTIS#         13
     9234            IEKTPK          IEKTPK#         13          9E44            IEKAAA          IEKAAA           1
     9E48            IEKP25          IEKP25          13          9E4C            IEKWCN          IEKWCN          13
     9E50            IEKTPK          IEKTPK#         13          A8EC            IEKAAA          IEKAAA           1
     A8F0            IEKP25          IEKP25          13          A8F4            IEKWCN          IEKWCN          13
     A8F8            IEKAER          IEKAER           1          A8FC            IEKAA9          IEKAA00          1
     A900            IEKTPK          IEKTPK#         13          BB40            IEKAAA          IEKAAA           1
     BB44            IEKP25          IEKP25          13          BB48            RLD             IEKTLOAD         1
     BB4C            TXT             IEKTLOAD         1          BB50            IEKTDC          IEKTDC           1
     BB54            IEKTIO          IEKTIO#         13          BB58            IEKTPK          IEKTPK#         13
     BB5C            IEKTSR          IEKTSR          13          BA9C            IEKP25          IEKP25          13
     BAAC            IEKP25          IEKP25          13          BAC0            IEKP25          IEKP25          13
     BAC4            IEKP25          IEKP25          13          BAD4            IEKP25          IEKP25          13
     D018            IEKWCN          IEKWCN          13          D01C            IEKAA9          IEKAA00          1
     D020            IEKTPK          IEKTPK#         13          BAE8            IEKP25          IEKP25          13
     BAEC            IEKP25          IEKP25          13          BAFC            IEKP25          IEKP25          13
     BB10            IEKP25          IEKP25          13          BB14            IEKP25          IEKP25          13
     BB24            IEKP25          IEKP25          13          BB30            IEKP25          IEKP25          13
     BB38            IEKP25          IEKP25          13          CDCC            FIOCS           IEKFIOCS         1
     CE58            IEKAAA          IEKAAA           1          CE5C            IEKAAD          IEKAAD           1
     D00C            IEKAAA          IEKAAA           1          D010            IEKAER          IEKAER           1

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     D014            IEKP25          IEKP25          13          D8D8            IEKAAA          IEKAAA           1
     D8DC            IEKP25          IEKP25          13          D8E0            IEKWCN          IEKWCN          13
     D8E4            IEKTPK          IEKTPK#         13          E664            IEKAAA          IEKAAA           1
     E668            IEKP25          IEKP25          13          E66C            IEKTPK          IEKTPK#         13
     EE2C            IEKAAA          IEKAAA           1          EE30            IEKP25          IEKP25          13
     EE34            IEKVFN          IEKVFN#         13          EE38            IEKVSU          IEKVSU#         13
     EE3C            IEKVSU          IEKVSU#         13          EE40            IEKVBL          IEKVBL#         13
     EE44            IEKWKK          IEKWKK          13          F038            IEKAAD          IEKAAD           1
     F03C            IEKAAA          IEKAAA           1          F040            IEKP25          IEKP25          13
     F044            IBCOM#          IEKFCOMH         1          F048            IEKGMP          IEKGMP          13
     F04C            IEKTIS          IEKTIS#         13          F050            IEKTLB          IEKTLB#         13
     F054            IEKTRN          IEKTRN#         13          F058            IEKUEN          IEKUEN#         13
     F7C8            IEKAAA          IEKAAA           1          F7CC            IEKP25          IEKP25          13
     F7D0            RLD             IEKTLOAD         1          F7D4            TXT             IEKTLOAD         1
     F7D8            IEKTDC          IEKTDC           1          F7DC            IEKTPK          IEKTPK#         13
     F734            IEKP25          IEKP25          13          F744            IEKP25          IEKP25          13
     F784            IEKP25          IEKP25          13          F794            IEKP25          IEKP25          13
     F7A8            IEKP25          IEKP25          13          F7AC            IEKP25          IEKP25          13
     F7BC            IEKP25          IEKP25          13          FFC0            IEKAAA          IEKAAA           1
     FFC4            IEKP25          IEKP25          13          FFC8            TXT             IEKTLOAD         1
     FFCC            IEKTLS          IEKTLS          13          FFD0            IEKTPK          IEKTPK#         13
     FFB0            IEKP25          IEKP25          13         10600            IEKAAA          IEKAAA           1
    10604            IEKP25          IEKP25          13         10610            IEKP25          IEKP25          13
    1061C            IEKP25          IEKP25          13         10608            TXT             IEKTLOAD         1
    1060C            IEKTDC          IEKTDC           1         10728            IEKP25          IEKP25          13
    1072C            TXT             IEKTLOAD         1         10730            IEKTLS          IEKTLS          13
    1071C            IEKP25          IEKP25          13         10910            IEKP25          IEKP25          13
    10840            IEKTRN          IEKTRN#         13         10844            IEKVPL          IEKVPL#         13
    1084C            IEKVPL          IEKVPL#         13         10850            IEKVPL          IEKVPL#         13
    10854            IEKVPL          IEKVPL#         13         10848            IEKVSU          IEKVSU#         13
    1086C            IEKVSU          IEKVSU#         13         10874            IEKVSU          IEKVSU#         13
    10858            IEKVBL          IEKVBL#         13         1085C            IEKVBL          IEKVBL#         13
    10860            IEKVBL          IEKVBL#         13         10880            IEKVBL          IEKVBL#         13
    10864            IEKVUN          IEKVUN#         13         10868            IEKVUN          IEKVUN#         13
    10870            IEKVUN          IEKVUN#         13         10878            IEKVUN          IEKVUN#         13
    1087C            IEKVUN          IEKVUN#         13         10884            IEKVTS          IEKVTS#         13
    10890            IEKVTS          IEKVTS#         13         10894            IEKVTS          IEKVTS#         13
    108A0            IEKVTS          IEKVTS#         13         108A8            IEKVTS          IEKVTS#         13
    108AC            IEKVTS          IEKVTS#         13         10888            IEKVAD          IEKVAD#         13
    1088C            IEKVAD          IEKVAD#         13         10898            IEKVAD          IEKVAD#         13
    1089C            IEKVAD          IEKVAD#         13         108A4            IEKVAD          IEKVAD#         13
    108B0            IEKVAD          IEKVAD#         13         108B4            IEKVFP          IEKVFP#         13
    108B8            IEKVFP          IEKVFP#         13         108BC            IEKVFP          IEKVFP#         13
    108C0            IEKVFP          IEKVFP#         13         10DDC            IEKAAA          IEKAAA           1
    10DE0            IEKP25          IEKP25          13         10DE4            FIOCS#          IEKFIOCS         1
    10ED0            IEKAAA          IEKAAA           1         10ED4            IEKAAD          IEKAAD           1
    10ED8            IEKP25          IEKP25          13         11084            IEKAAA          IEKAAA           1
    11088            IEKP25          IEKP25          13         1108C            IEKTPK          IEKTPK#         13
    113F4            IEKAAA          IEKAAA           1         113F8            IEKP25          IEKP25          13
    113FC            IEKWCN          IEKWCN          13         11400            IEKTPK          IEKTPK#         13
    122C0            IEKAAA          IEKAAA           1         122C4            IEKP25          IEKP25          13
    122C8            IEKWCN          IEKWCN          13         122CC            IEKTPK          IEKTPK#         13

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.


 ENTRY ADDRESS     1098
 TOTAL LENGTH     1D458




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK104.R0000307     SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   MVT1.LINKLIB                                 PASSED
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.FO500                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.SV000.R21LK104.R0000308     DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.R21LK104.S0000309     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK104.S0000309     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG108   / START 78240.1946
IEF374I STEP /SG108   / STOP  78240.1946 CPU   0MIN 01.64SEC MAIN 252K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:51.75   ALLOC START    19:46:51.76   MAIN REGION ----- 300K                          *
*   STEP NAME SG108      STEP END TIME  19:46:53.64   PGM START TIME 19:46:51.85   MAIN STORAGE ---- 252K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:01.89   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:01.64   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 298       0130 --------- 1306       0150 ---------- 641       0151 ----------- 17       0250 --------- 1297    *
*   0158 ------------ 0       0130 ---------- 268                                                                                  *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK104  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:53.67   ALLOC START    19:46:53.68   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:53.71   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF375I  JOB /R21LK104/ START 78240.1946
IEF376I  JOB /R21LK104/ STOP  78240.1946 CPU   0MIN 01.64SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK104   JOB READ TIME 19:45:24.12   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.64   *
*   JOB CLASS A          JOB INIT TIME 19:46:51.75   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.97   *
*   ACCOUNT              JOB END TIME  19:46:53.72   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1       00000    555555555                 A
            RRRRRRRRR  222222222      11     LL         KK    KK       11      0000000   555555555                AAA
            RR     RR  22     22     111     LL         KK   KK       111     00     00  55                      AA AA
            RR     RR        22       11     LL         KK  KK         11     00    000  55555555               AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11     00   0 00  555555555             AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11     00  0  00         55             AA     AA
            RR  RR        22          11     LL         KKK KK         11     00 0   00         55             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11     000    00  55     55             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111    0000000   555555555             AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     00000     5555555              AA     AA

***********A  START   R21LK105   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK105   START  A***********
***********A  START   R21LK105   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK105   START  A***********
***********A  START   R21LK105   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK105   START  A***********
***********A  START   R21LK105   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK105   START  A***********
***********A  START   R21LK105   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK105   START  A***********


//R21LK105 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG109 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IEYFORT)
//FO520 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.FO520
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK105 SG109
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO FO520
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000             INCLUDE    SYSPUNCH(IEY201)
IEW0000             INCLUDE      FO520(IEYFORT,IEYFORT2,IEYROL,IEYINT)
IEW0000             ENTRY         IEYFORT
IEW0000             NAME         IEYFORT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEYFORT1      00       D
  IEYFORT       10    1018
                                        IEYMOR       4EC    IEYNOCR      526    IEYRTN       54E    IEYRETN      54E
                                        IEYPRNT      772    IEYPR        772    IEYREAD      90A    IEYRD        90A
                                        IEYPCH       998    IEYPC        998    SAVR         EB0
  IEYFORT2    1028     490
                                        INIT        1028    REINIT      105C    NEXT        1096    SCRATCH     1212
                                        ALLOUT      127C
  IEYROL      14B8    15CC
                                        RBASE       14B8    BSWORK      19C0    BSEXIT      1DA8    INITDB      2A64
                                        IEYDBG      2A76
  IEYINT      2A88    1348
                                        GRBLOW      2CEE    PRTLN       3592    PCHCD       35C4    MOVONS      364E
                                        PRESS       36BE    BWORK       3780    ENDRMY      3784    STRMEM      3788
                                        IEYCMR      37E8    ROLLTABL    381C    PARSAV      39D8    ALLSAV      3A64
                                        UNFSAV      3ACC    GENSAV      3AD8


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1000            IEYFORT1        IEYFORT1                    1004            IEYCMR          IEYINT
     100C            INIT            IEYFORT2                    1010            PARSAV          IEYINT
     1014            SCRATCH         IEYFORT2                    1018            REINIT          IEYFORT2
     101C            ALLOUT          IEYFORT2                    1470            ROLLTABL        IEYINT
     14A8            IEYINT          IEYINT                      14AC            SAVR            IEYFORT
     14B0            PRESS           IEYINT                      14B4            IEYNOCR         IEYFORT
     2A80            IEYRD           IEYFORT                     3624            IEYRTN          IEYFORT
     3604            INITDB          IEYROL                      35F8            BSWORK          IEYROL
     35FC            BSEXIT          IEYROL                      3600            RBASE           IEYROL
     3628            NEXT            IEYFORT2                    37CC            IEYMOR          IEYFORT
     37D0            IEYNOCR         IEYFORT                     37B8            IEYROL          IEYROL
     37BC            IEYDBG          IEYROL                      37C4            IEYPR           IEYFORT
     37C0            IEYRD           IEYFORT                     37C8            IEYPC           IEYFORT

 ENTRY ADDRESS       10
 TOTAL LENGTH      3DD0

****IEYFORT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000             INCLUDE      FO520(IEYPAR)
IEW0000             NAME         IEYPAR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEYPAR        00    4A06



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      4A08

****IEYPAR    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000             INCLUDE      FO520(IEYALL)
IEW0000             NAME         IEYALL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEYALL        00    1D14



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      1D18

****IEYALL    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000             INCLUDE      FO520(IEYUNF)
IEW0000             NAME         IEYUNF(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEYUNF        00     C22


 ENTRY ADDRESS       00
 TOTAL LENGTH       C28

****IEYUNF    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000             INCLUDE      FO520(IEYGEN)
IEW0000             NAME         IEYGEN(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEYGEN        00    3A2C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      3A30

****IEYGEN    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000             INCLUDE      FO520(IEYEXT)
IEW0000             NAME         IEYEXT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEYEXT        00    15E2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      15E8

****IEYEXT    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK105.R0000310     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.FO520                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK105.S0000311     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK105.S0000311     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG109   / START 78240.1946
IEF374I STEP /SG109   / STOP  78240.1946 CPU   0MIN 00.25SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:53.74   ALLOC START    19:46:53.75   MAIN REGION ----- 256K                          *
*   STEP NAME SG109      STEP END TIME  19:46:54.13   PGM START TIME 19:46:53.82   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.39   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.25   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 6       0158 ----------- 27       0150 ----------- 55       0250 ---------- 178       0151 ------------ 4    *
*   0130 ----------- 15                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK105  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:54.16   ALLOC START    19:46:54.17   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:54.19   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK105/ START 78240.1946
IEF376I  JOB /R21LK105/ STOP  78240.1946 CPU   0MIN 00.25SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK105   JOB READ TIME 19:45:25.05   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.25   *
*   JOB CLASS A          JOB INIT TIME 19:46:53.74   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.46   *
*   ACCOUNT              JOB END TIME  19:46:54.20   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1       00000         66                   A
            RRRRRRRRR  222222222      11     LL         KK    KK       11      0000000       66                   AAA
            RR     RR  22     22     111     LL         KK   KK       111     00     00     66                   AA AA
            RR     RR        22       11     LL         KK  KK         11     00    000    66                   AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11     00   0 00   6666666              AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11     00  0  00  666666666             AA     AA
            RR  RR        22          11     LL         KKK KK         11     00 0   00  66     66             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11     000    00  66     66             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111    0000000   666666666             AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     00000     6666666              AA     AA

***********A  START   R21LK106   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK106   START  A***********
***********A  START   R21LK106   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK106   START  A***********
***********A  START   R21LK106   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK106   START  A***********
***********A  START   R21LK106   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK106   START  A***********
***********A  START   R21LK106   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK106   START  A***********


//R21LK106 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG110 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.FORTLIB
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK106 SG110
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000            INCLUDE     SYSPUNCH(IEK205)
IEW0000          NAME    IHCUATBL(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCUATBL      00      88


 ENTRY ADDRESS       00
 TOTAL LENGTH        88

****IHCUATBL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000        INCLUDE      SYSPUNCH(IEK206)
IEW0000         NAME    IHCUOPT(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCUOPT       00       8


 ENTRY ADDRESS       00
 TOTAL LENGTH         8

****IHCUOPT   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK106.R0000312     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.FORTLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK106.S0000313     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK106.S0000313     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG110   / START 78240.1946
IEF374I STEP /SG110   / STOP  78240.1946 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:54.23   ALLOC START    19:46:54.24   MAIN REGION ----- 256K                          *
*   STEP NAME SG110      STEP END TIME  19:46:54.40   PGM START TIME 19:46:54.30   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.17   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ------------ 7       0150 ----------- 12       0151 ----------- 10       0130 ------------ 5    *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK106  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:54.45   ALLOC START    19:46:54.46   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:54.48   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK106/ START 78240.1946
IEF376I  JOB /R21LK106/ STOP  78240.1946 CPU   0MIN 00.07SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK106   JOB READ TIME 19:45:25.45   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.07   *
*   JOB CLASS A          JOB INIT TIME 19:46:54.23   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.25   *
*   ACCOUNT              JOB END TIME  19:46:54.48   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1       00000    777777777                 A
            RRRRRRRRR  222222222      11     LL         KK    KK       11      0000000   777777777                AAA
            RR     RR  22     22     111     LL         KK   KK       111     00     00  77     77               AA AA
            RR     RR        22       11     LL         KK  KK         11     00    000        77               AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11     00   0 00       77               AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11     00  0  00      77                AA     AA
            RR  RR        22          11     LL         KKK KK         11     00 0   00     77                 AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11     000    00     77                 AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111    0000000      77                 AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     00000       77                 AA     AA

***********A  START   R21LK107   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK107   START  A***********
***********A  START   R21LK107   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK107   START  A***********
***********A  START   R21LK107   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK107   START  A***********
***********A  START   R21LK107   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK107   START  A***********
***********A  START   R21LK107   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK107   START  A***********


//R21LK107 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG111 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.FORTLIB
//LM501 DD DSNAME=SYS1.LM501,DISP=SHR,VOLUME=(,RETAIN)
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK107 SG111
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO LM501
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000             INCLUDE    LM501(IHCFIXPI)
IEW0000             ALIAS      FIXPI#
IEW0000             NAME       IHCFIXPI(R)
IEW0461  IBCOM#
IEW0461  IHCERRM


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCFIXPI      00     14F
                                        FIXPI#        00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       E4            IBCOM#         $UNRESOLVED                    E0            IHCERRM        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       150

****IHCFIXPI  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****FIXPI#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCFRXPI)
IEW0000             ALIAS      FRXPI#
IEW0000             NAME       IHCFRXPI(R)
IEW0461  IBCOM#
IEW0461  IHCERRM


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCFRXPI      00     141
                                        FRXPI#        00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       D0            IBCOM#         $UNRESOLVED                    D4            IHCERRM        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       148

****IHCFRXPI  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****FRXPI#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCFDXPI)
IEW0000             ALIAS      FDXPI#
IEW0000             NAME       IHCFDXPI(R)
IEW0461  IBCOM#
IEW0461  IHCERRM


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCFDXPI      00     14D
                                        FDXPI#        00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       E4            IBCOM#         $UNRESOLVED                    E8            IHCERRM        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       150

****IHCFDXPI  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****FDXPI#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCFRXPR)
IEW0000             ALIAS      FRXPR#
IEW0000             NAME       IHCFRXPR(R)
IEW0461  IBCOM#
IEW0461  IHCERRM
IEW0461  ALOG
IEW0461  EXP


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCFRXPR      00     183
                                        FRXPR#        00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      110            IBCOM#         $UNRESOLVED                   114            IHCERRM        $UNRESOLVED
      108            ALOG           $UNRESOLVED                   10C            EXP            $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       188

****IHCFRXPR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****FRXPR#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCFDXPD)
IEW0000             ALIAS      FDXPD#
IEW0000             NAME       IHCFDXPD(R)
IEW0461  IBCOM#
IEW0461  IHCERRM
IEW0461  DLOG
IEW0461  DEXP


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCFDXPD      00     1A0
                                        FDXPD#        00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       E4            IBCOM#         $UNRESOLVED                   130            IHCERRM        $UNRESOLVED
       DC            DLOG           $UNRESOLVED                    E0            DEXP           $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       1A0

****IHCFDXPD  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****FDXPD#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCDIOSE)
IEW0000             ALIAS      DIOCS#
IEW0000             NAME       IHCDIOSE(R)
IEW0461  FDIOCS#
IEW0461  IBCOM#
IEW0461  IHCUATBL
IEW0461  IHCERRM


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCDIOSE      00     A24
                                        DIOCS#        00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      92C            FDIOCS#        $UNRESOLVED                   928            IBCOM#         $UNRESOLVED
      924            IHCUATBL       $UNRESOLVED                   9EC            IHCERRM        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       A28

****IHCDIOSE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****DIOCS#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCFIOSH)
IEW0000             ALIAS      FIOCS#
IEW0000             NAME       IHCFIOSH(R)
IEW0461  IHCERRM
IEW0461  IHCUATBL
IEW0461  IBCOM#


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCFIOSH      00     CC0
                                        FIOCS#        00
  IHCFIOS2     CC0     420



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      140            IHCERRM        $UNRESOLVED                   144            IHCFIOS2        IHCFIOS2
      C60            IHCUATBL       $UNRESOLVED                   C6C            IBCOM#         $UNRESOLVED
      C81            IHCFIOS2        IHCFIOS2                     C98            IHCFIOS2        IHCFIOS2
      CB9            IHCFIOS2        IHCFIOS2
 ENTRY ADDRESS       00
 TOTAL LENGTH      10E0

****IHCFIOSH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****FIOCS#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCIBERH)
IEW0000             ALIAS      IBERH#
IEW0000             NAME       IHCIBERH(R)
IEW0461  IBCOM#
IEW0461  IHCERRM


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCIBERH      00      C8
                                        IBERH#        00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       58            IBCOM#         $UNRESOLVED                    5C            IHCERRM        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH        C8

****IHCIBERH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IBERH#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCCLAS)
IEW0000             ALIAS      CDMPY#
IEW0000             ALIAS      CDDVD#
IEW0000             NAME       IHCCLAS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCCLAS       00      D8
                                        CDMPY#        00    CDDVD#        1C

 ENTRY ADDRESS       00
 TOTAL LENGTH        D8

****IHCCLAS   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****CDDVD#    IS AN ALIAS FOR THIS MEMBER
****CDMPY#    IS AN ALIAS FOR THIS MEMBER


IEW0000             INCLUDE    LM501(IHCCSAS)
IEW0000             ALIAS      CMPY#
IEW0000             ALIAS      CDVD#
IEW0000             NAME       IHCCSAS(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCCSAS       00      C4
                                        CMPY#         00    CDVD#         1A

 ENTRY ADDRESS       00
 TOTAL LENGTH        C8

****IHCCSAS   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****CDVD#     IS AN ALIAS FOR THIS MEMBER
****CMPY#     IS AN ALIAS FOR THIS MEMBER


IEW0000             INCLUDE    LM501(IHCFCDXI)
IEW0000             ALIAS      FCDXI#
IEW0000             NAME       IHCFCDXI(R)
IEW0461  IBCOM#
IEW0461  IHCERRM
IEW0461  CDMPY#
IEW0461  CDDVD#


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCFCDXI      00     1FE
                                        FCDXI#        00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      18C            IBCOM#         $UNRESOLVED                   188            IHCERRM        $UNRESOLVED
      180            CDMPY#         $UNRESOLVED                   184            CDDVD#         $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       200

****IHCFCDXI  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****FCDXI#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCFCXPI)
IEW0000             ALIAS      FCXPI#
IEW0000             NAME       IHCFCXPI(R)
IEW0461  IBCOM#
IEW0461  IHCERRM
IEW0461  CMPY#
IEW0461  CDVD#


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCFCXPI      00     1E5
                                        FCXPI#        00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      174            IBCOM#         $UNRESOLVED                   170            IHCERRM        $UNRESOLVED
      168            CMPY#          $UNRESOLVED                   16C            CDVD#          $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       1E8

****IHCFCXPI  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****FCXPI#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCFCVTH)
IEW0000             ALIAS      ADCON#
IEW0000             NAME       IHCFCVTH(R)
IEW0461  IBCOM#
IEW0461  IHCERRM


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCFCVTH      00    11B5
                                        ADCON#        00    FCVAOUTP      AA    FCVLOUTP     13A    FCVZOUTP     292
                                        FCVIOUTP     646    FCVEOUTP     B48    FCVCOUTP     D62    INT6SWCH    104B


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     100C            IBCOM#         $UNRESOLVED                  1008            IHCERRM        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH      11B8

****IHCFCVTH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****ADCON#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCLATN2)
IEW0000             ALIAS      DATAN
IEW0000             ALIAS      DATAN2
IEW0000             NAME       IHCLATN2(R)
IEW0461  IBCOM#
IEW0461  IHCERRM


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCLATN2      00     251
                                        DATAN2        00    DATAN         18


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      210            IBCOM#         $UNRESOLVED                   1F8            IHCERRM        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       258

****IHCLATN2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****DATAN2    IS AN ALIAS FOR THIS MEMBER
****DATAN     IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCSATN2)
IEW0000             ALIAS      ATAN
IEW0000             ALIAS      ATAN2
IEW0000             NAME       IHCSATN2(R)
IEW0461  IBCOM#
IEW0461  IHCERRM


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCSATN2      00     1CB
                                        ATAN2         00    ATAN          14


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      140            IBCOM#         $UNRESOLVED                   18C            IHCERRM        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       1D0

****IHCSATN2  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****ATAN2     IS AN ALIAS FOR THIS MEMBER
****ATAN      IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCNAMEL)
IEW0000             ALIAS      FRDNL#
IEW0000             ALIAS      FWRNL#
IEW0000             NAME       IHCNAMEL(R)
IEW0461  IBCOM#
IEW0461  ADCON#
IEW0461  FIOCS#
IEW0461  IHCERRM


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCNAMEL      00     AC3
                                        FRDNL#        00    FWRNL#       604


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      894            IBCOM#         $UNRESOLVED                   89C            ADCON#         $UNRESOLVED
      898            FIOCS#         $UNRESOLVED                   980            IHCERRM        $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       AC8

****IHCNAMEL  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****FWRNL#    IS AN ALIAS FOR THIS MEMBER
****FRDNL#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCDBUG)
IEW0000             ALIAS      DEBUG#
IEW0000             NAME       IHCDBUG(R)
IEW0461  ADCON#
IEW0461  IHCUATBL
IEW0461  FIOCS#
IEW0461  IBCOM#


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCDBUG       00     811
                                        DEBUG#        00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      7A0            ADCON#         $UNRESOLVED                   798            IHCUATBL       $UNRESOLVED
      7A8            FIOCS#         $UNRESOLVED                   7A4            IBCOM#         $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       818

****IHCDBUG   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****DEBUG#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000         INCLUDE     LM501(IHCFCOMH)
IEW0000         ALIAS       IBCOM#
IEW0000         NAME      IHCFCOMH(R)
IEW0461  ADCON#
IEW0461  FIOCS#
IEW0461  ARITH#
IEW0461  ADJSWTCH
IEW0461  IHCUOPT
IEW0461  FCVEOUTP
IEW0461  FCVLOUTP
IEW0461  FCVIOUTP
IEW0461  FCVCOUTP
IEW0461  FCVAOUTP
IEW0461  FCVZOUTP
IEW0461  IHCERRM


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCFCOMH      00     CF9
                                        IBCOM#        00    FDIOCS#       BC    INTSWTCH     CDE
  IHCCOMH2     D00     434
                                        SEQDASD     102A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       BC            SEQDASD         IHCCOMH2                     BE0            ADCON#         $UNRESOLVED
      BD8            FIOCS#         $UNRESOLVED                   BE4            ARITH#         $UNRESOLVED
      BE8            FCVEOUTP       $UNRESOLVED                   BEC            FCVLOUTP       $UNRESOLVED
      BF0            FCVIOUTP       $UNRESOLVED                   BF4            FCVCOUTP       $UNRESOLVED
      BF8            FCVAOUTP       $UNRESOLVED                   BFC            FCVZOUTP       $UNRESOLVED
      BB8            IHCCOMH2        IHCCOMH2                     BBC            IHCERRM        $UNRESOLVED
      C04            ADJSWTCH       $UNRESOLVED                   C00            IHCUOPT        $UNRESOLVED
      F89            IHCFCOMH        IHCFCOMH                     F8C            IHCFCOMH        IHCFCOMH
      D48            IHCERRM        $UNRESOLVED                   D44            IBCOM#          IHCFCOMH

 ENTRY ADDRESS       00
 TOTAL LENGTH      1138

****IHCFCOMH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IBCOM#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000         INCLUDE   LM501(IHCFINTH)
IEW0000         ALIAS     ARITH#
IEW0000         NAME      IHCFINTH(R)
IEW0461  IBCOM#
IEW0461  INTSWTCH
IEW0461  INT6SWCH
IEW0461  IHCUOPT
IEW0461  ADCON#
IEW0461  FIOCS#


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCFINTH      00     39E
                                        ARITH#        00    ADJSWTCH     2B8


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2FC            IBCOM#         $UNRESOLVED                   300            INTSWTCH       $UNRESOLVED
      2B4            INT6SWCH       $UNRESOLVED                   2B0            IHCUOPT        $UNRESOLVED
      308            ADCON#         $UNRESOLVED                   304            FIOCS#         $UNRESOLVED

 ENTRY ADDRESS       00
 TOTAL LENGTH       3A0

****IHCFINTH  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****ARITH#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000       INCLUDE   LM501(IHCTRCH)
IEW0000       ALIAS      IHCERRM
IEW0000       ALIAS      ERRMON
IEW0000       NAME    IHCTRCH(R)
IEW0461  IBCOM#
IEW0461  ADCON#
IEW0461  FIOCS#


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCTRCH       00     2D4
                                        IHCERRM       00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      1F8            IBCOM#         $UNRESOLVED                   1FC            ADCON#         $UNRESOLVED
      200            FIOCS#         $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH       2D8

****IHCTRCH   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****ERRMON    IS AN ALIAS FOR THIS MEMBER
****IHCERRM   IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000             INCLUDE    LM501(IHCCGOTO)
IEW0000             ALIAS      CGOTO#
IEW0000             NAME       IHCCGOTO(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCCGOTO      00      38
                                        CGOTO#        00

 ENTRY ADDRESS       00
 TOTAL LENGTH        38

****IHCCGOTO  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****CGOTO#    IS AN ALIAS FOR THIS MEMBER


IEW0000             INCLUDE    LM501(IHCIBERR)
IEW0000             ALIAS      IBERR#
IEW0000             NAME       IHCIBERR(R)
IEW0461  IHCERRM


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHCIBERR      00      76
                                        IBERR#        00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       34            IHCERRM        $UNRESOLVED
 ENTRY ADDRESS       00
 TOTAL LENGTH        78

****IHCIBERR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IBERR#    IS AN ALIAS FOR THIS MEMBER


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.




IEF142I - STEP WAS EXECUTED - COND CODE 0004
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK107.R0000314     SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   MVT1.FORTLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.LM501                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK107.S0000315     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK107.S0000315     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG111   / START 78240.1946
IEF374I STEP /SG111   / STOP  78240.1946 CPU   0MIN 00.42SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:54.50   ALLOC START    19:46:54.51   MAIN REGION ----- 256K                          *
*   STEP NAME SG111      STEP END TIME  19:46:55.07   PGM START TIME 19:46:54.57   MAIN STORAGE ---- 130K    CONDITION CODE 0004   *
*   PSTP NAME            ELAPSED TIME   00:00:00.57   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.42   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0159 ---------- 123       0150 ---------- 139       0250 ---------- 148       0151 ------------ 0    *
*   0130 ----------- 73                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK107  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:55.09   ALLOC START    19:46:55.10   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:55.12   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK107/ START 78240.1946
IEF376I  JOB /R21LK107/ STOP  78240.1946 CPU   0MIN 00.42SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK107   JOB READ TIME 19:45:25.54   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.42   *
*   JOB CLASS A          JOB INIT TIME 19:46:54.50   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.62   *
*   ACCOUNT              JOB END TIME  19:46:55.12   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1       00000     8888888                  A
            RRRRRRRRR  222222222      11     LL         KK    KK       11      0000000   888888888                AAA
            RR     RR  22     22     111     LL         KK   KK       111     00     00  88     88               AA AA
            RR     RR        22       11     LL         KK  KK         11     00    000  88     88              AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11     00   0 00   8888888              AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11     00  0  00   8888888              AA     AA
            RR  RR        22          11     LL         KKK KK         11     00 0   00  88     88             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11     000    00  88     88             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111    0000000   888888888             AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     00000     8888888              AA     AA

***********A  START   R21LK108   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK108   START  A***********
***********A  START   R21LK108   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK108   START  A***********
***********A  START   R21LK108   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK108   START  A***********
***********A  START   R21LK108   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK108   START  A***********
***********A  START   R21LK108   SYS SYSA   WTR 00E   07:47:36 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK108   START  A***********


//R21LK108 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG112 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,OVLY'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IERRCM)
//SM023 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.SM023
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK108 SG112
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO SM023
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,OVLY
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE   SM023(IERRCM)
IEW0000     INCLUDE SYSPUNCH(IERAM1)
IEW0000     INCLUDE   SM023(IERRCU)
IEW0000     OVERLAY A01
IEW0000     INCLUDE  SM023(IER8CM)
IEW0000     OVERLAY A01
IEW0000     INCLUDE   SM023(IERRCQ)
IEW0000     OVERLAY A02
IEW0000     INCLUDE   SM023(IERRCC,IERRCY)
IEW0000     OVERLAY A02
IEW0000     INCLUDE   SM023(IERRCD,IERRC3)
IEW0000     OVERLAY A03
IEW0000     INCLUDE   SM023(IERRCE,IERRCF)
IEW0000     OVERLAY A03
IEW0000     INCLUDE   SM023(IERRCG,IERRCW)
IEW0000     OVERLAY A03
IEW0000     INCLUDE   SM023(IERRCH,IERRCX)
IEW0000     OVERLAY A02
IEW0000     INCLUDE   SM023(IERRCP)
IEW0000     OVERLAY A01
IEW0000     INCLUDE   SM023(IERRCI)
IEW0000     INCLUDE  SM023(IER8CI)
IEW0000     OVERLAY A01
IEW0000     INCLUDE   SM023(IERRC2)
IEW0000     OVERLAY A01
IEW0000     INCLUDE   SM023(IERRCN)
IEW0000     OVERLAY A01
IEW0000     INCLUDE  SM023(IERBGB)
IEW0000     OVERLAY A01
IEW0000     INCLUDE   SM023(IERRCK)
IEW0000     OVERLAY A01
IEW0000     ENTRY IERRCM
IEW0000     NAME IERRCM(R)
IEW0461  IERRCL
IEW0461  IERRCS


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

 $SEGTAB        00      54     1
  IERRCM        58     34C     1
                                        IERGAPRT     16E
  IERAM1       3A8       8     1
  IERRCU       3B0     31F     1
 $ENTAB        6D0      9C     1




  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      2BC            IERRCC          IERRCC           4           2C0            IERRCE          IERRCE           6
      2C4            IERRCG          IERRCG           7           2C8            IERRCH          IERRCH           8
      2D0            IERRCI          IERRCI          10           2D4            IERRC2          IERRC2          11
      2D8            IERRCN          IERRCN          12           2DC            IERRCK          IERRCK          14
      2E0            IERRCL         $UNRESOLVED                   2E4            IERRCP          IERRCP           9
      2E8            IERRCS         $UNRESOLVED                   2EC            IERBGB          IERBGB          13
      2F0            IER8CM          IER8CM           2           2F4            SYNADRO         IER8CM           2


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IER8CM       770     618     2
                                        SYNADRO      B1E


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      C18            IERAM1          IERAM1           1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRCQ       770     FFA     3



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRCC      1770     71C     4
  IERRCY      1E90     116     4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     1DA0            IERRCQ          IERRCQ           3          1DC8            IERRCQ          IERRCQ           3
     1DA4            IERRCY          IERRCY           4          1DA8            IERGAPRT        IERRCM           1





  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRCD      1770     2C6     5
  IERRC3      1A38      9A     5



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     1A2C            IERRC3          IERRC3           5          1A30            IERRCQ          IERRCQ           3
     1A28            IERGAPRT        IERRCM           1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRCE      1AD8     6E1     6
  IERRCF      21C0     165     6



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     2020            IERRCF          IERRCF           6          2014            IERRCQ          IERRCQ           3
     2018            IERRCQ          IERRCQ           3          2010            IERRCD          IERRCD           5
     201C            IERGAPRT        IERRCM           1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRCG      1AD8     3A0     7
  IERRCW      1E78     110     7



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     1E28            IERRCW          IERRCW           7          1E1C            IERRCQ          IERRCQ           3
     1E20            IERRCQ          IERRCQ           3          1E18            IERRCD          IERRCD           5
     1E24            IERGAPRT        IERRCM           1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRCH      1AD8     B08     8
  IERRCX      25E0     184     8


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     2278            IERRCQ          IERRCQ           3          2288            IERRCQ          IERRCQ           3
     2280            IERRCX          IERRCX           8          227C            IERRCD          IERRCD           5
     2284            IERGAPRT        IERRCM           1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRCP      1770     3DB     9



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     1A3C            IERRCQ          IERRCQ           3          1A40            IERRCU          IERRCU           1
     1A44            IERGAPRT        IERRCM           1

  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRCI       770     B74    10
                                        JFLD0       11E8    JFLD4       125E
  IER8CI      12E8     5C0    10



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     12DC            IERAM1          IERAM1           1          12D8            IERRCU          IERRCU           1
     12D4            IER8CI          IER8CI          10          12E0            IERGAPRT        IERRCM           1
     156C            JFLD0           IERRCI          10          1570            JFLD4           IERRCI          10


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRC2       770     1E2    11



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRCN       770     2AC    12


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERBGB       770     BA4    13



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     1210            IERRCU          IERRCU           1          1214            IERGAPRT        IERRCM           1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRCK       770     C8C    14



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     13F4            IERRCU          IERRCU           1          13F8            IERGAPRT        IERRCM           1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.


 ENTRY ADDRESS       58
 TOTAL LENGTH      2768

****IERRCM    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.


IEW0000     INCLUDE   SM023(IERRCZ)
IEW0000     INCLUDE   SM023(IERRCU)
IEW0000     OVERLAY B01
IEW0000     INCLUDE   SM023(IERRC1)
IEW0000     OVERLAY B01
IEW0000     INCLUDE   SM023(IERRC4)
IEW0000     OVERLAY B01
IEW0000     INCLUDE   SM023(IERRCJ)
IEW0000     OVERLAY B01
IEW0000     INCLUDE   SM023(IERAO1)
IEW0000     OVERLAY B01
IEW0000     INCLUDE   SM023(IERAOL)
IEW0000     OVERLAY B01
IEW0000     INCLUDE   SM023(IERAOM)
IEW0000     ENTRY IERRCZ
IEW0000     NAME IERRCZ(R)
IEW0461  IERAO2


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

 $SEGTAB        00      34     1
  IERRCZ        38     370     1
                                        IERGAPRT     1F0
  IERRCU       3A8     31F     1
 $ENTAB        6C8      54     1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      35C            IERRC1          IERRC1           2           360            IERAOL          IERAOL           6
      364            IERAOM          IERAOM           7           368            IERRC4          IERRC4           3
      36C            IERRCJ          IERRCJ           4           370            IERAO1          IERAO1           5
      374            IERAO2         $UNRESOLVED                   378            IERRCU          IERRCU           1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRC1       720     144     2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.






  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRC4       720     8E8     3



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      868            IERRCU          IERRCU           1           86C            IERGAPRT        IERRCZ           1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERRCJ       720     43A     4



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      A84            IERRCU          IERRCU           1           A88            IERGAPRT        IERRCZ           1


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERAO1       720     34B     5



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.



  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERAOL       720     11C     6



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.






  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IERAOM       720    12BA     7



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.


 ENTRY ADDRESS       38
 TOTAL LENGTH      19E0

****IERRCZ    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.




IEF142I - STEP WAS EXECUTED - COND CODE 0004
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK108.R0000316     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.SM023                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK108.S0000317     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK108.S0000317     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG112   / START 78240.1946
IEF374I STEP /SG112   / STOP  78240.1946 CPU   0MIN 00.23SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:55.16   ALLOC START    19:46:55.17   MAIN REGION ----- 256K                          *
*   STEP NAME SG112      STEP END TIME  19:46:55.54   PGM START TIME 19:46:55.23   MAIN STORAGE ---- 130K    CONDITION CODE 0004   *
*   PSTP NAME            ELAPSED TIME   00:00:00.38   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.23   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ----------- 60       0353 ----------- 61       0150 ----------- 80       0250 ---------- 188       0151 ------------ 4    *
*   0130 ----------- 50                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK108  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:55.57   ALLOC START    19:46:55.58   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:55.60   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK108/ START 78240.1946
IEF376I  JOB /R21LK108/ STOP  78240.1946 CPU   0MIN 00.23SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK108   JOB READ TIME 19:45:25.93   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.23   *
*   JOB CLASS A          JOB INIT TIME 19:46:55.16   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.45   *
*   ACCOUNT              JOB END TIME  19:46:55.61   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1       00000     9999999                  A
            RRRRRRRRR  222222222      11     LL         KK    KK       11      0000000   999999999                AAA
            RR     RR  22     22     111     LL         KK   KK       111     00     00  99     99               AA AA
            RR     RR        22       11     LL         KK  KK         11     00    000  99     99              AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11     00   0 00  999999999             AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11     00  0  00   9999999              AA     AA
            RR  RR        22          11     LL         KKK KK         11     00 0   00       99               AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11     000    00      99                AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111    0000000      99                 AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     00000      99                  AA     AA

***********A  START   R21LK109   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK109   START  A***********
***********A  START   R21LK109   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK109   START  A***********
***********A  START   R21LK109   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK109   START  A***********
***********A  START   R21LK109   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK109   START  A***********
***********A  START   R21LK109   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK109   START  A***********


//R21LK109 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG113 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IEPCBL00)
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK109 SG113
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSPUNCH(IEPCBL00)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEPCBL00      00     4D8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       4D8

****IEPCBL00  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET



IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK109.R0000318     SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK109.S0000319     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK109.S0000319     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG113   / START 78240.1946
IEF374I STEP /SG113   / STOP  78240.1946 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:55.64   ALLOC START    19:46:55.65   MAIN REGION ----- 256K                          *
*   STEP NAME SG113      STEP END TIME  19:46:55.83   PGM START TIME 19:46:55.71   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.19   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0130 ------------ 4       0150 ------------ 7       0151 ----------- 37       0130 ------------ 2    *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK109  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:55.86   ALLOC START    19:46:55.87   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:55.90   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK109/ START 78240.1946
IEF376I  JOB /R21LK109/ STOP  78240.1946 CPU   0MIN 00.07SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK109   JOB READ TIME 19:45:26.33   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.07   *
*   JOB CLASS A          JOB INIT TIME 19:46:55.64   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.27   *
*   ACCOUNT              JOB END TIME  19:46:55.91   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1          1       00000                   A
            RRRRRRRRR  222222222      11     LL         KK    KK       11         11      0000000                 AAA
            RR     RR  22     22     111     LL         KK   KK       111        111     00     00               AA AA
            RR     RR        22       11     LL         KK  KK         11         11     00    000              AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11         11     00   0 00             AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         11     00  0  00             AA     AA
            RR  RR        22          11     LL         KKK KK         11         11     00 0   00             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11         11     000    00             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111     111111    0000000              AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     111111     00000               AA     AA

***********A  START   R21LK110   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK110   START  A***********
***********A  START   R21LK110   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK110   START  A***********
***********A  START   R21LK110   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK110   START  A***********
***********A  START   R21LK110   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK110   START  A***********
***********A  START   R21LK110   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK110   START  A***********


//R21LK110 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG114 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IKFCBL01)
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK110 SG114
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSPUNCH(IKFCBL01)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKFCBL01      00     8A0
  IKF011       8A0     DF4
  ZBLDL01     1698     4D4
  IKF012      1B70    2FAE



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4DC            IKF011          IKF011                       87C            IKF011          IKF011
      880            IKF011          IKF011                       884            IKF011          IKF011
      888            IKF011          IKF011                       88C            IKF011          IKF011
      890            IKF011          IKF011                       894            IKF011          IKF011
      898            IKF011          IKF011                       89C            IKF011          IKF011
      4FC            ZBLDL01         ZBLDL01                     11AC            IKF012          IKF012
     1B60            IKF011          IKF011                      1B64            IKF011          IKF011

 ENTRY ADDRESS       00
 TOTAL LENGTH      4B20

****IKFCBL01  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET



IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK110.R0000320     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK110.S0000321     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK110.S0000321     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG114   / START 78240.1946
IEF374I STEP /SG114   / STOP  78240.1946 CPU   0MIN 00.13SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:55.93   ALLOC START    19:46:55.94   MAIN REGION ----- 256K                          *
*   STEP NAME SG114      STEP END TIME  19:46:56.20   PGM START TIME 19:46:56.01   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.27   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.13   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 6       0353 ------------ 6       0150 ----------- 10       0151 ---------- 322       0130 ------------ 2    *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK110  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:56.22   ALLOC START    19:46:56.23   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:56.26   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK110/ START 78240.1946
IEF376I  JOB /R21LK110/ STOP  78240.1946 CPU   0MIN 00.13SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK110   JOB READ TIME 19:45:26.44   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.13   *
*   JOB CLASS A          JOB INIT TIME 19:46:55.93   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.34   *
*   ACCOUNT              JOB END TIME  19:46:56.27   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1          1          1                    A
            RRRRRRRRR  222222222      11     LL         KK    KK       11         11         11                   AAA
            RR     RR  22     22     111     LL         KK   KK       111        111        111                  AA AA
            RR     RR        22       11     LL         KK  KK         11         11         11                 AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11         11         11                AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         11         11                AA     AA
            RR  RR        22          11     LL         KKK KK         11         11         11                AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11         11         11                AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111     111111     111111              AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     111111     111111              AA     AA

***********A  START   R21LK111   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK111   START  A***********
***********A  START   R21LK111   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK111   START  A***********
***********A  START   R21LK111   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK111   START  A***********
***********A  START   R21LK111   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK111   START  A***********
***********A  START   R21LK111   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK111   START  A***********


//R21LK111 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG115 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IEX00)
//AL531  DD    DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AL531
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK111 SG115
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO AL531
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSPUNCH(IEXCWKA)
IEW0000     INCLUDE AL531(IEX00)
IEW0000     ENTRY IEX00000
IEW0000     ALIAS ALGOL


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEX00001      00     D50
  IEX00000     D50     52C
                                        IEX00PIC     DE0    IEX00ED1     EA2    IEX00EDI     EB4    IEX00SYN     EC0
                                        IEX00PRI     F12    IEX00PRT    10AC    IEX00LIN    110C    IEX00PCH    116C
                                        IEX00UT2    11CC    IEX00UT3    1224


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       48            IEX00LIN        IEX00000                      60            IEX00PCH        IEX00000
       5C            IEX00PRT        IEX00000                      68            IEX00UT2        IEX00000
       6C            IEX00UT3        IEX00000                     3F8            IEX00SYN        IEX00000
      558            IEX00SYN        IEX00000                     541            IEX00ED1        IEX00000
      3E1            IEX00EDI        IEX00000                      88            IEX00PIC        IEX00000
       B8            IEX00PRI        IEX00000                     DDC            IEX00001        IEX00001

 ENTRY ADDRESS      D50
 TOTAL LENGTH      1280

****IEX00     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****ALGOL     IS AN ALIAS FOR THIS MEMBER



IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK111.R0000322     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.AL531                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK111.S0000323     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK111.S0000323     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG115   / START 78240.1946
IEF374I STEP /SG115   / STOP  78240.1946 CPU   0MIN 00.11SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:56.32   ALLOC START    19:46:56.33   MAIN REGION ----- 256K                          *
*   STEP NAME SG115      STEP END TIME  19:46:56.56   PGM START TIME 19:46:56.40   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.24   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.11   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0158 ------------ 7       0150 ------------ 7       0250 ------------ 6       0151 ----------- 27    *
*   0130 ------------ 5                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK111  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:56.58   ALLOC START    19:46:56.59   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:56.62   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK111/ START 78240.1946
IEF376I  JOB /R21LK111/ STOP  78240.1946 CPU   0MIN 00.11SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK111   JOB READ TIME 19:45:26.54   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.11   *
*   JOB CLASS A          JOB INIT TIME 19:46:56.32   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.30   *
*   ACCOUNT              JOB END TIME  19:46:56.62   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1          1      2222222                  A
            RRRRRRRRR  222222222      11     LL         KK    KK       11         11     222222222                AAA
            RR     RR  22     22     111     LL         KK   KK       111        111     22     22               AA AA
            RR     RR        22       11     LL         KK  KK         11         11           22               AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11         11          22               AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         11         22                AA     AA
            RR  RR        22          11     LL         KKK KK         11         11        22                 AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11         11       22                  AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111     111111    22222222             AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     111111   222222222             AA     AA

***********A  START   R21LK112   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK112   START  A***********
***********A  START   R21LK112   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK112   START  A***********
***********A  START   R21LK112   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK112   START  A***********
***********A  START   R21LK112   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK112   START  A***********
***********A  START   R21LK112   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK112   START  A***********


//R21LK112 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG116 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//AL531  DD    DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AL531
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK112 SG116
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO AL531
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE AL531(IEX21)
IEW0000     INCLUDE AL531(IEX21M)
IEW0000     ENTRY IEX21000
IEW0000     ALIAS IEX21000
IEW0000     NAME IEX21(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEX21000      00      3C
  IEX60000      40     936
  IEX21M00     978     EBC
                                        IEX21M01    1730


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       28            IEX21M00        IEX21M00                      2C            IEX21M01        IEX21M00
       38            IEX60000        IEX60000
 ENTRY ADDRESS       00
 TOTAL LENGTH      1838

****IEX21     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEX21000  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE AL531(IEX31)
IEW0000     INCLUDE AL531(IEX31M)
IEW0000     ENTRY IEX31000
IEW0000     ALIAS IEX31000
IEW0000     NAME IEX31(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEX31000      00      3C
  IEX60000      40     936
  IEX31M00     978     3FC
                                        IEX31M01     BF0


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       28            IEX31M00        IEX31M00                      2C            IEX31M01        IEX31M00
       38            IEX60000        IEX60000
 ENTRY ADDRESS       00
 TOTAL LENGTH       D78

****IEX31     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEX31000  IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE AL531(IEX51)
IEW0000     INCLUDE AL531(IEX51M)
IEW0000     ENTRY IEX51000
IEW0000     ALIAS IEX51000,IEX51002,IEX51ER1,IEX51ER2
IEW0000     NAME IEX51(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEX51000      00     9FD
                                        IEX51ER1     584    IEX51ER2     596
  IEX60000     A00     936
  IEX51002    1338     176
  IEX51M00    14B0     8EC
                                        IEX51M01    1A68


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      718            IEX51M00        IEX51M00                     71C            IEX51M01        IEX51M00
      5A8            IEX60000        IEX60000                     5AC            IEX51002        IEX51002

 ENTRY ADDRESS       00
 TOTAL LENGTH      1DA0

****IEX51     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEX51ER2  IS AN ALIAS FOR THIS MEMBER
****IEX51ER1  IS AN ALIAS FOR THIS MEMBER
****IEX51002  IS AN ALIAS FOR THIS MEMBER
****IEX51000  IS AN ALIAS FOR THIS MEMBER




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK112.R0000324     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.AL531                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK112.S0000325     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK112.S0000325     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG116   / START 78240.1946
IEF374I STEP /SG116   / STOP  78240.1946 CPU   0MIN 00.20SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:56.65   ALLOC START    19:46:56.66   MAIN REGION ----- 256K                          *
*   STEP NAME SG116      STEP END TIME  19:46:56.99   PGM START TIME 19:46:56.74   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.34   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.20   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 17       0150 ----------- 20       0250 ----------- 59       0151 ------------ 0    *
*   0130 ----------- 16                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK112  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:57.02   ALLOC START    19:46:57.03   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:57.06   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK112/ START 78240.1946
IEF376I  JOB /R21LK112/ STOP  78240.1946 CPU   0MIN 00.20SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK112   JOB READ TIME 19:45:26.99   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.20   *
*   JOB CLASS A          JOB INIT TIME 19:46:56.65   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.42   *
*   ACCOUNT              JOB END TIME  19:46:57.07   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1          1     333333333                 A
            RRRRRRRRR  222222222      11     LL         KK    KK       11         11     333333333                AAA
            RR     RR  22     22     111     LL         KK   KK       111        111     33    33                AA AA
            RR     RR        22       11     LL         KK  KK         11         11          33                AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11         11         3333              AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         11        333333             AA     AA
            RR  RR        22          11     LL         KKK KK         11         11            33             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11         11     33     33             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111     111111   333333333             AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     111111    3333333              AA     AA

***********A  START   R21LK113   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK113   START  A***********
***********A  START   R21LK113   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK113   START  A***********
***********A  START   R21LK113   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK113   START  A***********
***********A  START   R21LK113   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK113   START  A***********
***********A  START   R21LK113   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK113   START  A***********


//R21LK113 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG117 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IHIERR)
//LM532  DD    DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.LM532
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK113 SG117
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO LM532
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE LM532(IHIERR)
IEW0000     INCLUDE LM532(IHIERM)
IEW0000     ENTRY IHIERROR
IEW0000     ALIAS IHIERROR


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IHIERROR      00     5D4
  IHIERMSG     5D8     AF6
                                        IHIERM01     688    IHIERM02     FAB    IHIERM03     FEE    IHIERM04    101E
                                        IHIERM05    102F    IHIERM06    1059    IHIERM07    1090


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      5B4            IHIERMSG        IHIERMSG                     5B8            IHIERM01        IHIERMSG
      5BC            IHIERM02        IHIERMSG                     5C0            IHIERM03        IHIERMSG
      5C4            IHIERM04        IHIERMSG                     5C8            IHIERM05        IHIERMSG
      5CC            IHIERM06        IHIERMSG                     5D0            IHIERM07        IHIERMSG

 ENTRY ADDRESS       00
 TOTAL LENGTH      10D0

****IHIERR    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IHIERROR  IS AN ALIAS FOR THIS MEMBER



IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK113.R0000326     SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.LM532                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK113.S0000327     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK113.S0000327     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG117   / START 78240.1946
IEF374I STEP /SG117   / STOP  78240.1946 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:57.10   ALLOC START    19:46:57.10   MAIN REGION ----- 256K                          *
*   STEP NAME SG117      STEP END TIME  19:46:57.31   PGM START TIME 19:46:57.17   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.21   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0159 ------------ 6       0150 ------------ 8       0250 ----------- 16       0151 ------------ 0    *
*   0130 ------------ 5                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK113  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:57.34   ALLOC START    19:46:57.35   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:57.38   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK113/ START 78240.1946
IEF376I  JOB /R21LK113/ STOP  78240.1946 CPU   0MIN 00.07SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK113   JOB READ TIME 19:45:27.23   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.07   *
*   JOB CLASS A          JOB INIT TIME 19:46:57.10   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.29   *
*   ACCOUNT              JOB END TIME  19:46:57.39   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1          1          44                   A
            RRRRRRRRR  222222222      11     LL         KK    KK       11         11         444                  AAA
            RR     RR  22     22     111     LL         KK   KK       111        111        4444                 AA AA
            RR     RR        22       11     LL         KK  KK         11         11       44 44                AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11         11      44  44               AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         11     44   44               AA     AA
            RR  RR        22          11     LL         KKK KK         11         11     444444444             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11         11     444444444             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111     111111        44               AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     111111        44               AA     AA

***********A  START   R21LK114   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK114   START  A***********
***********A  START   R21LK114   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK114   START  A***********
***********A  START   R21LK114   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK114   START  A***********
***********A  START   R21LK114   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK114   START  A***********
***********A  START   R21LK114   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK114   START  A***********


//R21LK114 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG118 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB(IEMAF)
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK114 SG118
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSPUNCH(IEMAF)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEMAF         00      2C


 ENTRY ADDRESS       00
 TOTAL LENGTH        30

****IEMAF     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET



IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK114.R0000328     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK114.S0000329     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK114.S0000329     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG118   / START 78240.1946
IEF374I STEP /SG118   / STOP  78240.1946 CPU   0MIN 00.06SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:57.42   ALLOC START    19:46:57.43   MAIN REGION ----- 256K                          *
*   STEP NAME SG118      STEP END TIME  19:46:57.60   PGM START TIME 19:46:57.49   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.18   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ------------ 4       0150 ------------ 6       0151 ------------ 4       0130 ------------ 2    *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK114  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:57.63   ALLOC START    19:46:57.64   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:57.67   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK114/ START 78240.1946
IEF376I  JOB /R21LK114/ STOP  78240.1946 CPU   0MIN 00.06SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK114   JOB READ TIME 19:45:27.55   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.06   *
*   JOB CLASS A          JOB INIT TIME 19:46:57.42   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.26   *
*   ACCOUNT              JOB END TIME  19:46:57.68   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1          1     555555555                 A
            RRRRRRRRR  222222222      11     LL         KK    KK       11         11     555555555                AAA
            RR     RR  22     22     111     LL         KK   KK       111        111     55                      AA AA
            RR     RR        22       11     LL         KK  KK         11         11     55555555               AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11         11     555555555             AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         11            55             AA     AA
            RR  RR        22          11     LL         KKK KK         11         11            55             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11         11     55     55             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111     111111   555555555             AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     111111    5555555              AA     AA

***********A  START   R21LK115   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK115   START  A***********
***********A  START   R21LK115   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK115   START  A***********
***********A  START   R21LK115   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK115   START  A***********
***********A  START   R21LK115   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK115   START  A***********
***********A  START   R21LK115   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK115   START  A***********


//R21LK115 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG119 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//RG038 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.RG038
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK115 SG119
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO RG038
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE RG038(IESRPG)
IEW0000     ENTRY IESRPG
IEW0000     ALIAS RPG
IEW0000     NAME IESRPG(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IESRPG        00     570



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       570

****IESRPG    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****RPG       IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE RG038(IES00010,IES00910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10000(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES00010      00    1000
  IESCEX      1000     5F4
                                        IES00910    100A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      534            IES00910        IESCEX                      1060            IES00010        IES00010

 ENTRY ADDRESS     1000
 TOTAL LENGTH      15F8

****RPG10000  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES03010,IES03910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10030(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES03010      00    1038
  IESCEX      1038     32B
                                        IES03910    1042


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1034            IES03910        IESCEX                      1098            IES03010        IES03010

 ENTRY ADDRESS     1038
 TOTAL LENGTH      1368

****RPG10030  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES04010,IES04910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10040(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES04010      00     C78
  IESCEX       C78     32F
                                        IES04910     C82


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      C74            IES04910        IESCEX                       CD8            IES04010        IES04010

 ENTRY ADDRESS      C78
 TOTAL LENGTH       FA8

****RPG10040  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES05010,IES05910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10050(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES05010      00    10DC
  IESCEX      10E0     354
                                        IES05910    10EA


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      FF0            IES05910        IESCEX                      1140            IES05010        IES05010

 ENTRY ADDRESS     10E0
 TOTAL LENGTH      1438

****RPG10050  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES06010,IES06910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10060(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES06010      00     F00
  IESCEX       F00     264
                                        IES06910     F0A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      E2C            IES06910        IESCEX                       F60            IES06010        IES06010

 ENTRY ADDRESS      F00
 TOTAL LENGTH      1168

****RPG10060  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES07010,IES07910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10070(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES07010      00     EBB
  IESCEX       EC0     32E
                                        IES07910     ECA


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      DDC            IES07910        IESCEX                       F20            IES07010        IES07010

 ENTRY ADDRESS      EC0
 TOTAL LENGTH      11F0

****RPG10070  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES08010,IES08910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10080(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES08010      00     FC0
  IESCEX       FC0     34A
                                        IES08910     FCA


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      FBC            IES08910        IESCEX                      1020            IES08010        IES08010

 ENTRY ADDRESS      FC0
 TOTAL LENGTH      1310

****RPG10080  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES08A10)
IEW0000     ENTRY IES08A10
IEW0000     NAME RPG1008A(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES08A10      00      C8


 ENTRY ADDRESS       00
 TOTAL LENGTH        C8

****RPG1008A  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES09010,IES09910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10090(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES09010      00     E99
  IESCEX       EA0     34E
                                        IES09910     EAA


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      E30            IES09910        IESCEX                       F00            IES09010        IES09010

 ENTRY ADDRESS      EA0
 TOTAL LENGTH      11F0

****RPG10090  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES10010,IES10910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10100(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES10010      00    1138
  IESCEX      1138     340
                                        IES10910    1142


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1000            IES10910        IESCEX                      1198            IES10010        IES10010

 ENTRY ADDRESS     1138
 TOTAL LENGTH      1478

****RPG10100  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES11010,IES11910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10110(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES11010      00    16A8
  IESCEX      16A8     2A6
                                        IES11910    16EC


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2F0            IES11910        IESCEX                      1744            IES11010        IES11010

 ENTRY ADDRESS     16A8
 TOTAL LENGTH      1950

****RPG10110  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES12010,IES12910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10120(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES12010      00    1666
  IESCEX      1668     2FC
                                        IES12910    1672


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      F78            IES12910        IESCEX                      16C8            IES12010        IES12010

 ENTRY ADDRESS     1668
 TOTAL LENGTH      1968

****RPG10120  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES13010,IES13910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10130(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES13010      00    17BC
  IESCEX      17C0     2FC
                                        IES13910    17CA


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      8FC            IES13910        IESCEX                      1820            IES13010        IES13010

 ENTRY ADDRESS     17C0
 TOTAL LENGTH      1AC0

****RPG10130  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES14010,IES14910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10140(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES14010      00    19C1
  IESCEX      19C8     2B2
                                        IES14910    19D2


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       F8            IES14910        IESCEX                      1A28            IES14010        IES14010

 ENTRY ADDRESS     19C8
 TOTAL LENGTH      1C80

****RPG10140  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES15010,IES15910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10150(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES15010      00     F10
  IES15510     F10     8EF
  IESCEX      1800     328
                                        IES15910    180A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4BC            IES15910        IESCEX                       4C0            IES15510        IES15510
      6B4            IES15510        IES15510                     8D0            IES15510        IES15510
      9AC            IES15510        IES15510                     A22            IES15510        IES15510
      BB0            IES15510        IES15510                     BC6            IES15510        IES15510
      BE6            IES15510        IES15510                     C02            IES15510        IES15510
      C52            IES15510        IES15510                     C90            IES15510        IES15510
      CC2            IES15510        IES15510                     CE2            IES15510        IES15510
      D10            IES15510        IES15510                     D48            IES15510        IES15510
      D6C            IES15510        IES15510                     DCA            IES15510        IES15510
      DE2            IES15510        IES15510                     E2A            IES15510        IES15510
      E48            IES15510        IES15510                     E6A            IES15510        IES15510
     1860            IES15010        IES15010
 ENTRY ADDRESS     1800
 TOTAL LENGTH      1B28

****RPG10150  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES16010,IES16910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10160(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES16010      00    17FF
  IESCEX      1800     2FC
                                        IES16910    180A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       8C            IES16910        IESCEX                      1860            IES16010        IES16010

 ENTRY ADDRESS     1800
 TOTAL LENGTH      1B00

****RPG10160  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES17010,IES17910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10170(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES17010      00     E4C
  IESCEX       E50     2EC
                                        IES17910     E5A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      EB0            IES17010        IES17010
 ENTRY ADDRESS      E50
 TOTAL LENGTH      1140

****RPG10170  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES18010,IES18910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10180(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES18010      00     E3E
  IESCEX       E40     184
                                        IES18910     E4A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      EA0            IES18010        IES18010
 ENTRY ADDRESS      E40
 TOTAL LENGTH       FC8

****RPG10180  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES19010,IES19910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10190(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES19010      00    14B8
  IESCEX      14B8     19B
                                        IES19910    14C2


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      118            IES19910        IESCEX                      1518            IES19010        IES19010

 ENTRY ADDRESS     14B8
 TOTAL LENGTH      1658

****RPG10190  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES20010,IES20910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10200(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES20010      00    1696
  IESCEX      1698     19B
                                        IES20910    16A2


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      118            IES20910        IESCEX                      16F8            IES20010        IES20010

 ENTRY ADDRESS     1698
 TOTAL LENGTH      1838

****RPG10200  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES21010,IES21910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10210(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES21010      00    164F
  IESCEX      1650     19B
                                        IES21910    165A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      118            IES21910        IESCEX                      16B0            IES21010        IES21010

 ENTRY ADDRESS     1650
 TOTAL LENGTH      17F0

****RPG10210  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES22010,IES22910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10220(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES22010      00    161F
  IESCEX      1620     19B
                                        IES22910    162A


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      118            IES22910        IESCEX                      1680            IES22010        IES22010

 ENTRY ADDRESS     1620
 TOTAL LENGTH      17C0

****RPG10220  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES23010,IES23910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10230(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES23010      00    12C8
  IESCEX      12C8     19B
                                        IES23910    12D2


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      118            IES23910        IESCEX                      1328            IES23010        IES23010

 ENTRY ADDRESS     12C8
 TOTAL LENGTH      1468

****RPG10230  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES24010,IES24110,IES24210)
IEW0000     INCLUDE RG038(IES24310,IES24410,IES24510)
IEW0000     INCLUDE RG038(IES24610,IES24710,IES24910)
IEW0000     ENTRY IESCEX
IEW0000     NAME RPG10240(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES24010      00     817
  IES24810     818     E63
  IES24110    1680     289
                                        IESLR110    1680    IESSTRCI    1884    IESUP110    1908
  IES24210    1910     211
                                        IESLR210    1910    IESSTRCO    1AD1    IESUP210    1B20
  IES24310    1B28     135
                                        IESLR710    1B28    IESUP710    1C5D
  IES24410    1C60      69
                                        IESLR410    1C60    IESUP410    1CC8
  IES24510    1CD0      26
                                        IESLR610    1CD0    IESUP610    1CF5
  IES24610    1CF8     194
                                        IESLR310    1CF8    IESUP310    1E8C
  IES24710    1E90      33
                                        IESLR510    1E90    IESUP510    1EC2
  IESCEX      1EC8     25C
                                        IES24910    1ED2


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       4C            IES24810        IES24810                      58            IESLR110        IES24110
       5C            IESUP110        IES24110                      60            IESLR210        IES24210
       64            IESUP210        IES24210                      70            IESLR410        IES24410
       74            IESUP410        IES24410                      68            IESLR310        IES24610
       6C            IESUP310        IES24610                      78            IESLR510        IES24710
       7C            IESUP510        IES24710                      80            IESLR610        IES24510
       84            IESUP610        IES24510                      88            IESLR710        IES24310
       8C            IESUP710        IES24310                      90            IESSTRCI        IES24110
       94            IESSTRCO        IES24210                      50            IES24810        IES24810
      DFC            IES24010        IES24010                    129C            IES24910        IESCEX
     1F28            IES24010        IES24010
 ENTRY ADDRESS     1EC8
 TOTAL LENGTH      2128

****RPG10240  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE RG038(IES25010)
IEW0000     ENTRY IES25010
IEW0000     NAME RPG10250(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IES25010      00      94


 ENTRY ADDRESS       00
 TOTAL LENGTH        98

****RPG10250  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK115.R0000330     SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.RG038                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK115.S0000331     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK115.S0000331     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG119   / START 78240.1946
IEF374I STEP /SG119   / STOP  78240.1946 CPU   0MIN 00.55SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:57.70   ALLOC START    19:46:57.71   MAIN REGION ----- 256K                          *
*   STEP NAME SG119      STEP END TIME  19:46:58.64   PGM START TIME 19:46:57.78   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.94   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.55   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0130 ---------- 110       0150 ---------- 155       0250 ---------- 397       0151 ------------ 0    *
*   0130 ----------- 82                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK115  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:58.67   ALLOC START    19:46:58.68   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:58.71   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK115/ START 78240.1946
IEF376I  JOB /R21LK115/ STOP  78240.1946 CPU   0MIN 00.55SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK115   JOB READ TIME 19:45:27.63   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.55   *
*   JOB CLASS A          JOB INIT TIME 19:46:57.70   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.02   *
*   ACCOUNT              JOB END TIME  19:46:58.72   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1          1          66                   A
            RRRRRRRRR  222222222      11     LL         KK    KK       11         11         66                   AAA
            RR     RR  22     22     111     LL         KK   KK       111        111        66                   AA AA
            RR     RR        22       11     LL         KK  KK         11         11       66                   AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11         11      6666666              AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         11     666666666             AA     AA
            RR  RR        22          11     LL         KKK KK         11         11     66     66             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11         11     66     66             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111     111111   666666666             AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     111111    6666666              AA     AA

***********A  START   R21LK116   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK116   START  A***********
***********A  START   R21LK116   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK116   START  A***********
***********A  START   R21LK116   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK116   START  A***********
***********A  START   R21LK116   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK116   START  A***********
***********A  START   R21LK116   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK116   START  A***********


//R21LK116 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG120 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//AS037 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AS037
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK116 SG120
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO AS037
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE  AS037(IEUASM)
IEW0000     ENTRY IEUASM
IEW0000     ALIAS ASMBLR
IEW0000     NAME IEUASM(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEUASM        00     1E8



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       1E8

****IEUASM    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****ASMBLR    IS AN ALIAS FOR THIS MEMBER


IEW0000     INCLUDE  AS037(IEUFI)
IEW0000     ENTRY IEUFI
IEW0000     NAME IEUFI(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEUFI         00    5428



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      5428

****IEUFI     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE  AS037(IEUFPP)
IEW0000     INCLUDE  AS037(IEUFD)
IEW0000     ENTRY IEUFPP
IEW0000     NAME IEUFPP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEUFPP        00    31A8
                                        IOERR        A0E    ERRBUF      1619    TERLI       161A    ERRCDL      1820
                                        DIAGSAVE    1847
  IEUFD       31A8    21FB
                                        SYTERM      3F64


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1008            SYTERM          IEUFD                       15E0            IEUFD           IEUFD
     37D0            TERLI           IEUFPP                      4178            ERRBUF          IEUFPP
     4228            TERLI           IEUFPP                      4220            ERRCDL          IEUFPP
     4224            DIAGSAVE        IEUFPP                      4242            IOERR           IEUFPP

 ENTRY ADDRESS       00
 TOTAL LENGTH      53A8

****IEUFPP    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE  AS037(IEUF1)
IEW0000     ENTRY IEUF1
IEW0000     NAME IEUF1(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEUF1         00    3C10



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      3C10

****IEUF1     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE  AS037(IEUF2)
IEW0000     INCLUDE  AS037(IEUF2A)
IEW0000     ENTRY IEUF2
IEW0000     NAME IEUF2(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEUF2         00    2180
                                        DRIVER        90    MEND1        604    SWICTL       764    WRNERR       AA2
                                        ABSERR       AE0    ABS001       B50    NDOPR0       BF8
  IEUF2A      2180    1A8A
                                        ENTDCT      2180    LOOKUP      2DEC    ASCAN       2FFC    LCONA       325B
                                        QCONA       3260    DCLOSE      331E    DCLOS1      3320    KLOSIT      35A4
                                        GETSRC      3682    EOFIN       39BC    LIBCHK      3A04    LIBRED      3A14
                                        LIBRDEC     3A18    EOFLIB      3A38    BWFORC      3B08    BWRITE      3B54
                                        BWNOTE      3B58


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       80            EOFIN           IEUF2A                        84            EOFLIB          IEUF2A
       88            QCONA           IEUF2A                        8C            LCONA           IEUF2A
      9DC            DCLOS1          IEUF2A                       9D8            ENTDCT          IEUF2A
      9CC            LIBRDEC         IEUF2A                       9B0            ASCAN           IEUF2A
      9B4            DCLOSE          IEUF2A                       9B8            GETSRC          IEUF2A
      9BC            LOOKUP          IEUF2A                       9C0            BWFORC          IEUF2A
      9C4            BWNOTE          IEUF2A                       9C8            BWRITE          IEUF2A
      9D0            LIBRED          IEUF2A                       9D4            LIBCHK          IEUF2A
      9E0            KLOSIT          IEUF2A                      2FF0            ABSERR          IEUF2
     2FF4            WRNERR          IEUF2                       2FF8            ABS001          IEUF2
     3AF0            WRNERR          IEUF2                       3AEC            MEND1           IEUF2
     3AF4            SWICTL          IEUF2                       3AF8            NDOPR0          IEUF2
     3AFC            DRIVER          IEUF2
 ENTRY ADDRESS       00
 TOTAL LENGTH      3C10

****IEUF2     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE  AS037(IEUF3)
IEW0000     ENTRY IEUF3
IEW0000     NAME IEUF3(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEUF3         00    3BC0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      3BC0

****IEUF3     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE  AS037(IEUF3E)
IEW0000     NAME IEUF3E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEUF3E        00    2472



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH      2478

****IEUF3E    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE  AS037(IEUF7C)
IEW0000     INCLUDE  AS037(IEUF7D)
IEW0000     INCLUDE  AS037(IEUF7E)
IEW0000     INCLUDE  AS037(IEUF7G)
IEW0000     INCLUDE  AS037(IEUF7I)
IEW0000     INCLUDE  AS037(IEUF7N)
IEW0000     INCLUDE  AS037(IEUF7V)
IEW0000     INCLUDE  AS037(IEUF7X)
IEW0000     ENTRY IEUF7
IEW0000     NAME IEUF7(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEUF7C        00     E06
  IEUF7D       E08     F57
                                        LCNPTR      1B9B    QCNPTR      1BA0
  IEUF7E      1D60     B38
                                        UPC         1D60    COM         1DC6    START       1E1E    CSECT       1E92
                                        DSECT       1F64    DXD         202A    ESWBKR      2080    ENTRY       20AC
                                        ENTRYS      2140    EXTRN       21E2    EXTRNS      2284    ORG         22E2
                                        QUIT        237A    VCON        23CA
  IEUF7G      2898      F2
  IEUF7I      2990     F92
                                        IEUF7       310A
  IEUF7N      3928     714
  IEUF7V      4040     8E8
  IEUF7X      4928     BF2
                                        OPC04       4F58


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      AA4            OPC04           IEUF7X                      366C            IEUF7E          IEUF7E
     3670            COM             IEUF7E                      3674            CSECT           IEUF7E
     3678            DSECT           IEUF7E                      367C            ENTRY           IEUF7E
     3680            ENTRYS          IEUF7E                      3684            ESWBKR          IEUF7E
     3688            EXTRN           IEUF7E                      368C            EXTRNS          IEUF7E
     3690            ORG             IEUF7E                      3694            QUIT            IEUF7E
     3698            START           IEUF7E                      369C            UPC             IEUF7E
     36A0            IEUF7D          IEUF7D                      36A8            IEUF7X          IEUF7X
     36B8            IEUF7N          IEUF7N                      36AC            DXD             IEUF7E
     36C8            IEUF7V          IEUF7V                      36D0            IEUF7G          IEUF7G
     36D4            VCON            IEUF7E                      3644            IEUF7C          IEUF7C
     4978            QCNPTR          IEUF7D
 ENTRY ADDRESS     310A
 TOTAL LENGTH      5520

****IEUF7     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE  AS037(IEUF8A)
IEW0000     INCLUDE  AS037(IEUF8C)
IEW0000     INCLUDE  AS037(IEUF8D)
IEW0000     INCLUDE  AS037(IEUF8I)
IEW0000     INCLUDE  AS037(IEUF8L)
IEW0000     INCLUDE  AS037(IEUF8M)
IEW0000     INCLUDE  AS037(IEUF8N)
IEW0000     INCLUDE  AS037(IEUF8P)
IEW0000     INCLUDE  AS037(IEUF8S)
IEW0000     INCLUDE  AS037(IEUF8V)
IEW0000     ENTRY IEUF8
IEW0000     NAME IEUF8(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEUF8A        00     C4C
                                        SECSET       930    SETSEC       93E
  IEUF8C       C50     3AC
                                        SRLINE       E5A
  IEUF8D      1000     D8E
                                        RLDRTN      1A7C    STLOC       1BF4
  IEUF8I      1D90     A21
                                        IEUF8       25C8
  IEUF8L      27B8      CC
  IEUF8M      2888     EDA
                                        F8AREX      3040    DCCOMP      322E    DECOMP      325C
  IEUF8N      3768     6A2
  IEUF8P      3E10     C4E
                                        LOADRA      40B8    BLDIMG      448E    COMMENT     462A
  IEUF8S      4A60      C0
                                        STGETR      4A60
  IEUF8V      4B20     874
  IEUF8R      5398     190



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      AA0            RLDRTN          IEUF8D                       AA4            STLOC           IEUF8D
      EF4            LOADRA          IEUF8P                       FF8            BLDIMG          IEUF8P
     2584            IEUF8D          IEUF8D                      2760            IEUF8C          IEUF8C
     2594            IEUF8M          IEUF8M                      2590            IEUF8A          IEUF8A
     2598            IEUF8P          IEUF8P                      25A0            IEUF8S          IEUF8S
     25A8            IEUF8V          IEUF8V                      25AC            IEUF8L          IEUF8L
     25A4            SRLINE          IEUF8C                      25B4            DCCOMP          IEUF8M
     25B8            F8AREX          IEUF8M                      25B0            SECSET          IEUF8A
     25BC            IEUF8N          IEUF8N                      25C0            COMMENT         IEUF8P
     25C4            BLDIMG          IEUF8P                      476C            IEUF8R          IEUF8R




 ENTRY ADDRESS     25C8
 TOTAL LENGTH      5528

****IEUF8     DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE  AS037(IEUMAC)
IEW0000     ENTRY IEUMAC
IEW0000     NAME IEUMAC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEUMAC        00     36C
                                        OPTION       252


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       370

****IEUMAC    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE  AS037(IEURTA)
IEW0000     ENTRY IEURTA
IEW0000     NAME IEURTA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEURTA        00     F7C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       F80

****IEURTA    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000     INCLUDE  AS037(IEUERR)
IEW0000     NAME IEUERR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEUERR        00     69A



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       6A0

****IEUERR    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK116.R0000332     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.AS037                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK116.S0000333     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK116.S0000333     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG120   / START 78240.1946
IEF374I STEP /SG120   / STOP  78240.1946 CPU   0MIN 00.46SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:58.75   ALLOC START    19:46:58.75   MAIN REGION ----- 256K                          *
*   STEP NAME SG120      STEP END TIME  19:46:59.34   PGM START TIME 19:46:58.82   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.59   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.46   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ----------- 12       0353 ----------- 64       0150 ---------- 104       0250 ---------- 367       0151 ------------ 0    *
*   0130 ----------- 54                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK116  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:59.36   ALLOC START    19:46:59.38   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:59.40   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK116/ START 78240.1946
IEF376I  JOB /R21LK116/ STOP  78240.1946 CPU   0MIN 00.46SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK116   JOB READ TIME 19:45:28.08   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.46   *
*   JOB CLASS A          JOB INIT TIME 19:46:58.75   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.66   *
*   ACCOUNT              JOB END TIME  19:46:59.41   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1          1     777777777                 A
            RRRRRRRRR  222222222      11     LL         KK    KK       11         11     777777777                AAA
            RR     RR  22     22     111     LL         KK   KK       111        111     77     77               AA AA
            RR     RR        22       11     LL         KK  KK         11         11           77               AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11         11          77               AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         11         77                AA     AA
            RR  RR        22          11     LL         KKK KK         11         11        77                 AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11         11        77                 AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111     111111      77                 AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     111111      77                 AA     AA

***********A  START   R21LK117   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK117   START  A***********
***********A  START   R21LK117   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK117   START  A***********
***********A  START   R21LK117   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK117   START  A***********
***********A  START   R21LK117   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK117   START  A***********
***********A  START   R21LK117   SYS SYSA   WTR 00E   07:47:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK117   START  A***********


//R21LK117 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG121 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,OVLY,XCAL,LET'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//ED521  DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ED521    'F' EDITORS
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK117 SG121
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO ED521
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,OVLY,XCAL,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE ED521(IEWLMROU,IEWLMAPT,IEWLMINT,IEWLMOPT)
IEW0000     INCLUDE ED521(IEWLMINP,IEWLMRAT,IEWLMEND,IEWLMESD)
IEW0000     INCLUDE ED521(IEWLMRCG,IEWLMSYM,IEWLMINC,IEWLMSCN)
IEW0000     INCLUDE ED521(IEWLMADA,IEWLMOUT,IEWLMENT,IEWLMENS)
IEW0000     INCLUDE ED521(IEWLMFNL,IEWLMBTP,IEWLMMAP,IEWLMSCD)
IEW0000     INCLUDE ED521(IEWLMREL,IEWLMIDR)
IEW0000     INCLUDE SYSPUNCH(IEWLM128)
IEW0000     ALIAS LINKEDIT
IEW0000     ALIAS IEWL
IEW0000     ENTRY IEWLMROU
IEW0000     NAME IEWLF128(R)       * * *   IEW0201   CANCEL OVERLAY FOR F128
IEW0201
****IEWLF128  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEWL      IS AN ALIAS FOR THIS MEMBER
****LINKEDIT  IS AN ALIAS FOR THIS MEMBER


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEWLMROU      00     8B0     1
                                        IEWLCRO1      14    IEWLCRO2     124    IEWLCRO3     16C    INDDNAME     1A0
                                        IEWLCSDB     2B8    IEWLCMDB     310    IEWLCUDB     368    IEWLCPDB     3C0
                                        IEWLTMDB     418    IEWLMLDB     470    APTEND       4C8    IEWLEPNT     4C8
                                        IEWLMLOG     62C    IEWLCADA     798    APTEXLST     7C8    APTXLIST     7CC
                                        ENQNAME      7E8    MINOR        7F0    IEWVLDCK     81C
  IEWLMAPT     8B0     3B0     1
                                        APT000       A98    IEWLCRBB     AA8    IEWLCRBN     AC4
  IEWLMINT     C60     FB8     1
                                        IEWLENAM     FA0    MAINGOT     169C    IEWLXIT2    18EA    MSGFOUR     1B88
  IEWLMOPT    1C18     7A4     1
  IEWLMINP    23C0     5F0     1
                                        IEWLCINP    23C0    IEWLERDM    2448    IEWLEEON    24CE    IEWLCEOD    250C
                                        IEWLCICA    257C    IEWLCDLK    28B0
  IEWLMRAT    29B0     A88     1
  IEWLMTXT    3438     E14     1
  IEWLMEND    4250     1C4     1
  IEWLMESD    4418     68C     1
                                        IEWLCE30    4858    IEWLCTTY    4A20    IEWLCRID    4A88
  IEWLMRCG    4AA8     10C     1
                                        IEWLCPTH    4B48    IEWLCDCN    4B88
  IEWLMSYM    4BB8      E8     1
  IEWLMINC    4CA0     978     1
                                        IEWLCAUT    51F0
  IEWLMSCN    5618     DD4     1
  IEWLMADA    63F0     6F0     1
                                        IEWLCAD1    68E8    SEGLNTAB    69D4
  IEWLMOUT    6AE0     BFA     1
  IEWLMENT    76E0     28E     1

    NAME    ORIGIN  LENGTH  SEG. NO.      NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEWLMENS    7970     2B0     1
  IEWLMFNL    7C20     8F9     1
                                        IEWLCEOI    81E2    IEWLCFAB    8212    IEWLCFNI    82C6    IEWLCSNX    82D6
  IEWLMBTP    8520    1041     1
  IEWLMMAP    9568     F6A     1
                                        IEWLMAPX    A11C    JFCBADDR    A4B4
  IEWLMSCD    A4D8     B54     1
                                        GETIDMUL    AAE6
  IEWLMSIO    B030     784     1
                                        WRTTXT      B30A    WRTCRRLD    B4D0    CHECKRD     B562    CHECKWRT    B58C
  IEWLMREL    B7B8     E90     1
                                        RELOCATE    B888    SCDENTAB    C232    OTRLDCB1    C484    OTRLDCB2    C494
                                        OTRLDCB3    C4A4    INRLDCB1    C4B4    INRLDCB2    C4C8
  IEWLMIDR    C648     98D     1
                                        IEWLCIDR    CDCC
  IEWLMDEF    CFD8      18     1



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

      2D9            IEWLEEON        IEWLMINP         1            10            IEWLMINT        IEWLMINT         1
      198            IEWLMAPX        IEWLMMAP         1           1C8            IEWLCSNX        IEWLMFNL         1
      491            IEWLCEOD        IEWLMINP         1           7CD            IEWLXIT2        IEWLMINT         1
      7E4            MSGFOUR         IEWLMINT         1           794            IEWLMMAP        IEWLMMAP         1
      798            IEWLMADA        IEWLMADA         1           79C            IEWLENAM        IEWLMINT         1
      7A0            IEWLCFNI        IEWLMFNL         1           7A4            IEWLCEOI        IEWLMFNL         1
      7A8            IEWLMINP        IEWLMINP         1           7AC            IEWLMSCD        IEWLMSCD         1
      7B4            IEWLCFAB        IEWLMFNL         1           7BC            IEWLMFNL        IEWLMFNL         1
      AE0            IEWLCPDB        IEWLMROU         1           B3C            IEWLCSDB        IEWLMROU         1
      B50            IEWLMLDB        IEWLMROU         1           A7C            IEWLMLOG        IEWLMROU         1
      EAC            ENQNAME         IEWLMROU         1           ED0            ENQNAME         IEWLMROU         1
      EB0            MINOR           IEWLMROU         1           ED4            MINOR           IEWLMROU         1
     16C8            IEWLMDEF        IEWLMDEF         1          19A0            IEWLMAPT        IEWLMAPT         1
     199C            APTEXLST        IEWLMROU         1          1AF9            IEWLCSDB        IEWLMROU         1
     1AFD            IEWLCMDB        IEWLMROU         1          1B00            IEWLCUDB        IEWLMROU         1
     1AF5            IEWLCPDB        IEWLMROU         1          1AF1            IEWLTMDB        IEWLMROU         1
     1980            APTXLIST        IEWLMROU         1          1A34            ENQNAME         IEWLMROU         1
     1A54            ENQNAME         IEWLMROU         1          1A38            MINOR           IEWLMROU         1
     1A58            MINOR           IEWLMROU         1          1C10            MINOR           IEWLMROU         1
     1B0C            INDDNAME        IEWLMROU         1          1984            IEWLMOPT        IEWLMOPT         1
     1B04            IEWLMINP        IEWLMINP         1          1B08            IEWLEPNT        IEWLMROU         1
     21D8            IEWLMDEF        IEWLMDEF         1          23B8            IEWLEPNT        IEWLMROU         1
     2578            IEWLMADA        IEWLMADA         1          257C            IEWLMINC        IEWLMINC         1
     2580            IEWLMSCN        IEWLMSCN         1          2584            IEWLCAUT        IEWLMINC         1
     2588            IEWLCFNI        IEWLMFNL         1          293C            IEWLMRAT        IEWLMRAT         1
     2944            IEWLMRAT        IEWLMRAT         1          294C            IEWLMESD        IEWLMESD         1
     2954            IEWLMSYM        IEWLMSYM         1          295C            IEWLMEND        IEWLMEND         1
     2994            IEWLMIDR        IEWLMIDR         1          3350            IEWLCUDB        IEWLMROU         1
     3354            IEWLCDLK        IEWLMINP         1          335C            IEWLMTXT        IEWLMTXT         1
     3360            IEWLMTXT        IEWLMTXT         1          41E0            IEWLERDM        IEWLMINP         1
     41E4            IEWLCINP        IEWLMINP         1          4A28            IEWLCPTH        IEWLMRCG         1

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.   LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION  SEG. NO.

     4A2C            IEWLCDCN        IEWLMRCG         1          4A30            IEWLMRCG        IEWLMRCG         1
     4A34            IEWLCDLK        IEWLMINP         1          4B44            IEWLCRID        IEWLMESD         1
     4BAC            IEWLCTTY        IEWLMESD         1          4BB0            IEWLCE30        IEWLMESD         1
     4C9C            IEWLCMDB        IEWLMROU         1          53C1            IEWLCEOD        IEWLMINP         1
     53F8            IEWLCRO1        IEWLMROU         1          5388            IEWLMLDB        IEWLMROU         1
     53C5            APTEXLST        IEWLMROU         1          5380            IEWLMINP        IEWLMINP         1
     5384            IEWLMEND        IEWLMEND         1          53D8            IEWLCRO2        IEWLMROU         1
     53FC            IEWLMADA        IEWLMADA         1          5400            IEWLMRAT        IEWLMRAT         1
     62AC            INDDNAME        IEWLMROU         1          6288            IEWLMINC        IEWLMINC         1
     628C            IEWVLDCK        IEWLMROU         1          62B0            IEWLCIDR        IEWLMIDR         1
     6968            IEWLMLDB        IEWLMROU         1          697C            IEWLMOUT        IEWLMOUT         1
     6980            IEWLMENS        IEWLMENS         1          6984            IEWLMENT        IEWLMENT         1
     6988            IEWLMFNL        IEWLMFNL         1          73BC            IEWLCUDB        IEWLMROU         1
     73C0            IEWLCMDB        IEWLMROU         1          73B8            SEGLNTAB        IEWLMADA         1
     73A8            IEWLMSCD        IEWLMSCD         1          73AC            IEWLMFNL        IEWLMFNL         1
     73B0            IEWLMMAP        IEWLMMAP         1          73B4            IEWLMDEF        IEWLMDEF         1
     7BF8            IEWLCAD1        IEWLMADA         1          83C0            IEWLMBTP        IEWLMBTP         1
     83D8            IEWLCSDB        IEWLMROU         1          83DC            IEWLCMDB        IEWLMROU         1
     83E0            IEWLCUDB        IEWLMROU         1          83E4            IEWLCPDB        IEWLMROU         1
     83D4            IEWLTMDB        IEWLMROU         1          83E9            IEWLMLDB        IEWLMROU         1
     8288            ENQNAME         IEWLMROU         1          82A8            ENQNAME         IEWLMROU         1
     828C            MINOR           IEWLMROU         1          82AC            MINOR           IEWLMROU         1
     82F4            IEWLENAM        IEWLMINT         1          82F8            IEWLMMAP        IEWLMMAP         1
     82FC            IEWLEPNT        IEWLMROU         1          8300            IEWVLDCK        IEWLMROU         1
     847C            JFCBADDR        IEWLMMAP         1          8724            IEWLEPNT        IEWLMROU         1
     9AEC            IEWLCMDB        IEWLMROU         1          A4B8            APTXLIST        IEWLMROU         1
     A4B0            IEWLEPNT        IEWLMROU         1          AF78            OTRLDCB1        IEWLMREL         1
     AF7C            OTRLDCB2        IEWLMREL         1          AF80            OTRLDCB3        IEWLMREL         1
     AF84            INRLDCB1        IEWLMREL         1          AF88            INRLDCB2        IEWLMREL         1
     AF8C            IEWLMREL        IEWLMREL         1          AF90            RELOCATE        IEWLMREL         1
     AF94            SCDENTAB        IEWLMREL         1          AF98            IEWLMFNL        IEWLMFNL         1
     AF9C            IEWLMSIO        IEWLMSIO         1          B634            IEWLCMDB        IEWLMROU         1
     B6B4            IEWLCMDB        IEWLMROU         1          B600            IEWLCUDB        IEWLMROU         1
     B6B8            IEWLCUDB        IEWLMROU         1          B6B0            IEWLCRO3        IEWLMROU         1
     C5D0            WRTTXT          IEWLMSIO         1          C5D4            WRTCRRLD        IEWLMSIO         1
     C5D8            CHECKWRT        IEWLMSIO         1          C5DC            CHECKRD         IEWLMSIO         1
     C5E0            GETIDMUL        IEWLMSCD         1
 ENTRY ADDRESS       00
 TOTAL LENGTH      CFF0



                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0201 WARNING - OVERLAY STRUCTURE CONTAINS ONLY ONE SEGMENT -- OVERLAY OPTION CANCELED.




IEF142I - STEP WAS EXECUTED - COND CODE 0004
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK117.R0000334     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.ED521                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK117.S0000335     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK117.S0000335     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG121   / START 78240.1946
IEF374I STEP /SG121   / STOP  78240.1946 CPU   0MIN 00.22SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:59.44   ALLOC START    19:46:59.44   MAIN REGION ----- 256K                          *
*   STEP NAME SG121      STEP END TIME  19:46:59.78   PGM START TIME 19:46:59.51   MAIN STORAGE ---- 130K    CONDITION CODE 0004   *
*   PSTP NAME            ELAPSED TIME   00:00:00.34   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.22   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ----------- 56       0158 ----------- 30       0150 ----------- 62       0250 ---------- 252       0151 ------------ 5    *
*   0130 ----------- 12                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK117  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1946
IEF374I STEP /ZEND    / STOP  78240.1946 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:46:59.81   ALLOC START    19:46:59.82   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:46:59.84   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK117/ START 78240.1946
IEF376I  JOB /R21LK117/ STOP  78240.1946 CPU   0MIN 00.22SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK117   JOB READ TIME 19:45:28.36   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.22   *
*   JOB CLASS A          JOB INIT TIME 19:46:59.44   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.41   *
*   ACCOUNT              JOB END TIME  19:46:59.85   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1          1      8888888                  A
            RRRRRRRRR  222222222      11     LL         KK    KK       11         11     888888888                AAA
            RR     RR  22     22     111     LL         KK   KK       111        111     88     88               AA AA
            RR     RR        22       11     LL         KK  KK         11         11     88     88              AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11         11      8888888              AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         11      8888888              AA     AA
            RR  RR        22          11     LL         KKK KK         11         11     88     88             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11         11     88     88             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111     111111   888888888             AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     111111    8888888              AA     AA

***********A  START   R21LK118   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK118   START  A***********
***********A  START   R21LK118   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK118   START  A***********
***********A  START   R21LK118   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK118   START  A***********
***********A  START   R21LK118   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK118   START  A***********
***********A  START   R21LK118   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK118   START  A***********


//R21LK118 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG122 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//PL552 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.PL552
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK118 SG122
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO PL552
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE  PL552(IKM001,IKM02,IKM03,IKM11,IKM12)
IEW0000     INCLUDE  PL552(IKM131,IKM132,IKM133,IKM134)
IEW0000     INCLUDE  PL552(IKM135,IKM136)
IEW0000     ENTRY IKM001
IEW0000     ALIAS  PLICHK20
IEW0000     ALIAS PLIFSCAN
IEW0000     ALIAS PLISCAN
IEW0000     NAME  IKM001(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKM001        00     78C
  IKM02        790     84F
  IKM03        FE0     760
  IKM11       1740     8FE
  IKM12       2040     9FC
  IKM131      2A40     959
  IKM132      33A0      2C
  IKM133      33D0     365
  IKM134      3738     26B
  IKM135      39A8      EA
  IKM136      3A98     2C2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      5EC            IKM02           IKM02                        5F0            IKM03           IKM03
      5F4            IKM11           IKM11                        770            IKM12           IKM12
      774            IKM131          IKM131                       778            IKM132          IKM132
      77C            IKM133          IKM133                       780            IKM134          IKM134
      784            IKM135          IKM135                       788            IKM136          IKM136

 ENTRY ADDRESS       00
 TOTAL LENGTH      3D60

****IKM001    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****PLISCAN   IS AN ALIAS FOR THIS MEMBER
****PLIFSCAN  IS AN ALIAS FOR THIS MEMBER
****PLICHK20  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK118.R0000336     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.PL552                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK118.S0000337     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK118.S0000337     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG122   / START 78240.1946
IEF374I STEP /SG122   / STOP  78240.1947 CPU   0MIN 00.08SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:46:59.87   ALLOC START    19:46:59.88   MAIN REGION ----- 256K                          *
*   STEP NAME SG122      STEP END TIME  19:47:00.07   PGM START TIME 19:46:59.94   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.20   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.08   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ------------ 9       0150 ----------- 10       0250 ----------- 59       0151 ------------ 0    *
*   0130 ------------ 9                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK118  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1947
IEF374I STEP /ZEND    / STOP  78240.1947 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:47:00.09   ALLOC START    19:47:00.10   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:47:00.12   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK118/ START 78240.1946
IEF376I  JOB /R21LK118/ STOP  78240.1947 CPU   0MIN 00.08SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK118   JOB READ TIME 19:45:28.51   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.08   *
*   JOB CLASS A          JOB INIT TIME 19:46:59.87   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.26   *
*   ACCOUNT              JOB END TIME  19:47:00.13   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1          1      9999999                  A
            RRRRRRRRR  222222222      11     LL         KK    KK       11         11     999999999                AAA
            RR     RR  22     22     111     LL         KK   KK       111        111     99     99               AA AA
            RR     RR        22       11     LL         KK  KK         11         11     99     99              AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11         11     999999999             AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         11      9999999              AA     AA
            RR  RR        22          11     LL         KKK KK         11         11          99               AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11         11         99                AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111     111111      99                 AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111     111111     99                  AA     AA

***********A  START   R21LK119   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK119   START  A***********
***********A  START   R21LK119   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK119   START  A***********
***********A  START   R21LK119   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK119   START  A***********
***********A  START   R21LK119   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK119   START  A***********
***********A  START   R21LK119   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK119   START  A***********


//R21LK119 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG123 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,RENT'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//FO550 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.FO550
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK119 SG123
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO FO550
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE FO550(IPDSN,IPDER)
IEW0000      NAME IPDSNEXC(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IPDSNEXC      00     9C0
  IPDSNCKR     9C0    1360
  IPDERERR    1D20     B40



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      964            IPDSNCKR        IPDSNCKR                     968            IPDERERR        IPDERERR

 ENTRY ADDRESS       00
 TOTAL LENGTH      2860

****IPDSNEXC  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK119.R0000338     SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.FO550                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK119.S0000339     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK119.S0000339     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG123   / START 78240.1947
IEF374I STEP /SG123   / STOP  78240.1947 CPU   0MIN 00.06SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:47:00.16   ALLOC START    19:47:00.17   MAIN REGION ----- 256K                          *
*   STEP NAME SG123      STEP END TIME  19:47:00.34   PGM START TIME 19:47:00.23   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.18   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0159 ------------ 5       0150 ------------ 8       0250 ----------- 27       0151 ------------ 0    *
*   0130 ------------ 3                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK119  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1947
IEF374I STEP /ZEND    / STOP  78240.1947 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:47:00.36   ALLOC START    19:47:00.37   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:47:00.39   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK119/ START 78240.1947
IEF376I  JOB /R21LK119/ STOP  78240.1947 CPU   0MIN 00.06SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK119   JOB READ TIME 19:45:28.70   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.06   *
*   JOB CLASS A          JOB INIT TIME 19:47:00.16   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.24   *
*   ACCOUNT              JOB END TIME  19:47:00.40   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1      2222222     00000                   A
            RRRRRRRRR  222222222      11     LL         KK    KK       11     222222222   0000000                 AAA
            RR     RR  22     22     111     LL         KK   KK       111     22     22  00     00               AA AA
            RR     RR        22       11     LL         KK  KK         11           22   00    000              AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11          22    00   0 00             AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         22     00  0  00             AA     AA
            RR  RR        22          11     LL         KKK KK         11        22      00 0   00             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11       22       000    00             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111    22222222   0000000              AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111   222222222    00000               AA     AA

***********A  START   R21LK120   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK120   START  A***********
***********A  START   R21LK120   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK120   START  A***********
***********A  START   R21LK120   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK120   START  A***********
***********A  START   R21LK120   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK120   START  A***********
***********A  START   R21LK120   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK120   START  A***********


//R21LK120 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG124 EXEC PGM=IEWL,COND=(8,LT),REGION=200K,                       XXXXXXXXXX
//             PARM='NCAL,LIST,XREF,RENT,REFR,REUS,OL'
//SYSUT1 DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.SYSUT3
//SYSPRINT DD SPACE=(121,(850,100),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=605),
//             SYSOUT=A
//SYSLMOD DD DISP=OLD,UNIT=3330,VOLUME=SER=ASPRES,                 XXXXXXXX
//             DSNAME=MVT1.LINKLIB
//LD547  DD DSNAME=SYS1.LD547,DISP=SHR,VOLUME=(,RETAIN)
//SYSPUNCH DD DISP=OLD,VOLUME=(,RETAIN),DSNAME=SYS1.OBJPDS
//SYSLIN  DD  *
IEF236I ALLOC. FOR R21LK120 SG124
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 250   ALLOCATED TO LD547
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,RENT,REFR,REUS,OL
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE LD547(IEWLDIOC,IEWLDREL,IEWLDLIB,IEWLDIDY)
IEW0000     INCLUDE SYSPUNCH(IEWLDDEF)
IEW0000     ENTRY IEWLIOCA
IEW0000     ALIAS IEWLOAD
IEW0000     NAME IEWLOADR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEWLIOCA      00    1428
                                        IEWLOAD      358    IEWOPNLB     95C    IEWBUFFR     A68    IEWPRIME     C3C
                                        IEWLREAD     C8A    IEWLPRNT     E22    IEWTERM      F14
  IEWLRELO    1428    1184
                                        IEWLESD     14D4    IEWLRLD     1D40    IEWLEND     1E96    TRANSID     20BE
                                        IEWLERTN    2164    IEWLMAP     2280    IEWLCNVT    236E
  IEWLLIBR    25B0     E48
                                        IEWACALL    25B0    IEWLODE     2A8E    IEWERROR    2D0C    IEWBTMAP    2E12
  IEWLIDEN    33F8     1B0
  IEWLDDEF    35A8      1E



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1278            IEWERROR        IEWLLIBR                    1288            IEWLRELO        IEWLRELO
     128C            IEWLODE         IEWLLIBR                    1290            IEWACALL        IEWLLIBR
     1294            IEWBTMAP        IEWLLIBR                    1298            IEWLIDEN        IEWLIDEN
     12B0            IEWLDDEF        IEWLDDEF                    2470            IEWLPRNT        IEWLIOCA
     2474            IEWERROR        IEWLLIBR                    2478            IEWLREAD        IEWLIOCA
     330C            IEWLRLD         IEWLRELO                    3310            IEWLREAD        IEWLIOCA
     3314            IEWLESD         IEWLRELO                    331C            IEWLEND         IEWLRELO
     3320            TRANSID         IEWLRELO                    3324            IEWLMAP         IEWLRELO
     3328            IEWOPNLB        IEWLIOCA                    332C            IEWLPRNT        IEWLIOCA
     3330            IEWTERM         IEWLIOCA                    3334            IEWLERTN        IEWLRELO
     3338            IEWPRIME        IEWLIOCA                    333C            IEWLRELO        IEWLRELO
     3340            IEWLCNVT        IEWLRELO                    35A4            IEWERROR        IEWLLIBR

 ENTRY ADDRESS       00
 TOTAL LENGTH      35C8

****IEWLOADR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEWLOAD   IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21LK120.R0000340     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.LD547                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.OBJPDS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.R21LK120.S0000341     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK120.S0000341     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG124   / START 78240.1947
IEF374I STEP /SG124   / STOP  78240.1947 CPU   0MIN 00.11SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:47:00.45   ALLOC START    19:47:00.46   MAIN REGION ----- 256K                          *
*   STEP NAME SG124      STEP END TIME  19:47:00.67   PGM START TIME 19:47:00.52   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.22   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.11   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ----------- 10       0150 ----------- 15       0250 ----------- 58       0151 ------------ 4    *
*   0130 ------------ 6                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK120  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1947
IEF374I STEP /ZEND    / STOP  78240.1947 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:47:00.68   ALLOC START    19:47:00.69   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:47:00.71   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK120/ START 78240.1947
IEF376I  JOB /R21LK120/ STOP  78240.1947 CPU   0MIN 00.11SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK120   JOB READ TIME 19:45:28.78   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.11   *
*   JOB CLASS A          JOB INIT TIME 19:47:00.45   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.27   *
*   ACCOUNT              JOB END TIME  19:47:00.72   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1      CCCCCCC   YY    YY        1      2222222        1                    A
            RRRRRRRRR  222222222      11     CCCCCCCCC  YY    YY       11     222222222      11                   AAA
            RR     RR  22     22     111     CC     CC  YY    YY      111     22     22     111                  AA AA
            RR     RR        22       11     CC          YY  YY        11           22       11                 AA   AA
            RRRRRRRRR       22        11     CC           YYYY         11          22        11                AA     AA
            RRRRRRRR       22         11     CC            YY          11         22         11                AA     AA
            RR  RR        22          11     CC            YY          11        22          11                AAAAAAAAA
            RR   RR      22           11     CC     CC     YY          11       22           11                AAAAAAAAA
            RR    RR    22222222    111111   CCCCCCCCC     YY        111111    22222222    111111              AA     AA
            RR     RR  222222222    111111    CCCCCCC      YY        111111   222222222    111111              AA     AA

***********A  START   R21CY121   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY121   START  A***********
***********A  START   R21CY121   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY121   START  A***********
***********A  START   R21CY121   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY121   START  A***********
***********A  START   R21CY121   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY121   START  A***********
***********A  START   R21CY121   SYS SYSA   WTR 00E   07:47:38 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21CY121   START  A***********


//R21CY121 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG125  EXEC PGM=IEBCOPY,COND=(8,LT)
//SYSUT3 DD DISP=SHR,DSNAME=SYS1.SYSUT3
//SYSUT4 DD DISP=SHR,DSNAME=SYS1.SYSUT4
//SYSPRINT DD SPACE=(121,(750,100),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=3630),                  X
//             SYSOUT=A
//PARMLIBA DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DPARMLIB
//PARMLIB DD DSNAME=MVT1.PARMLIB,VOLUME=(,RETAIN,SER=ASPRES),      XXXXXXXX
//             UNIT=3330,DISP=OLD
//NL511 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.NL511
//LM512 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.LM512
//PL1LIBA DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DPL1LIB
//PL1LIB DD DSNAME=MVT1.PL1LIB,VOLUME=(,RETAIN,SER=ASPRES),        XXXXXXXX
//             UNIT=3330,DISP=OLD
//LM501 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.LM501
//FORTLIBA DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DFORTLIB
//FORTLIB DD DSNAME=MVT1.FORTLIB,VOLUME=(,RETAIN,SER=ASPRES),      XXXXXXXX
//             UNIT=3330,DISP=OLD
//CO503 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CO503
//CB545  DD  DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CB545
//COBLIBA DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DCOBLIB
//LM546  DD  DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.LM546
//COBLIB DD DSNAME=MVT1.COBLIB,VOLUME=(,RETAIN,SER=ASPRES),        XXXXXXXX
//             UNIT=3330,DISP=OLD
//SM023 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.SM023
//SORTLIBA DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DSORTLIB
//SORTLIB DD DSNAME=MVT1.SORTLIB,VOLUME=(,RETAIN,SER=ASPRES),      XXXXXXXX
//             UNIT=3330,DISP=OLD
//AL531 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AL531
//LM532 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.LM532
//ALGLIB DD DSNAME=MVT1.ALGLIB,VOLUME=(,RETAIN,SER=ASPRES),        XXXXXXXX
//             UNIT=3330,DISP=OLD
//PROCLIBA DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.DPROCLIB
//PROCLIB DD DSNAME=MVT1.PROCLIB,VOLUME=(,RETAIN,SER=ASPRES),      XXXXXXXX
//             UNIT=3330,DISP=OLD
//LD547 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.LD547
//PL552 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.PL552
//FO550 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.FO550
//SVCLIB DD DSNAME=MVT1.SVCLIB,VOLUME=(,RETAIN,SER=ASPRES),        XXXXXXXX
//             UNIT=3330,DISP=OLD
//LINKLIB DD DSNAME=MVT1.LINKLIB,VOLUME=(,RETAIN,SER=ASPRES),      XXXXXXXX
//             UNIT=3330,DISP=OLD
//SYSIN DD *
IEF236I ALLOC. FOR R21CY121 SG125
IEF237I 151   ALLOCATED TO SYSUT3
IEF237I 151   ALLOCATED TO SYSUT4
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO PARMLIBA
IEF237I 150   ALLOCATED TO PARMLIB
IEF237I 250   ALLOCATED TO NL511
IEF237I 250   ALLOCATED TO LM512
IEF237I 250   ALLOCATED TO PL1LIBA
IEF237I 150   ALLOCATED TO PL1LIB
IEF237I 250   ALLOCATED TO LM501
IEF237I 250   ALLOCATED TO FORTLIBA
IEF237I 150   ALLOCATED TO FORTLIB
IEF237I 250   ALLOCATED TO CO503
IEF237I 250   ALLOCATED TO CB545
IEF237I 250   ALLOCATED TO COBLIBA
IEF237I 250   ALLOCATED TO LM546
IEF237I 150   ALLOCATED TO COBLIB
IEF237I 250   ALLOCATED TO SM023
IEF237I 250   ALLOCATED TO SORTLIBA
IEF237I 150   ALLOCATED TO SORTLIB
IEF237I 250   ALLOCATED TO AL531
IEF237I 250   ALLOCATED TO LM532
IEF237I 150   ALLOCATED TO ALGLIB
IEF237I 250   ALLOCATED TO PROCLIBA
IEF237I 150   ALLOCATED TO PROCLIB
IEF237I 250   ALLOCATED TO LD547
IEF237I 250   ALLOCATED TO PL552
IEF237I 250   ALLOCATED TO FO550
IEF237I 150   ALLOCATED TO SVCLIB
IEF237I 150   ALLOCATED TO LINKLIB
IEF237I 130   ALLOCATED TO SYSIN


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


                     COPY OUTDD=LINKLIB,INDD=NL511
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY NL511    -
IEB154I  IEMAA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAAA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAE    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAI    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAJ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAM    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAN    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAS    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMAV    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBE    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBF    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBI    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBJ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBM    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBN    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBR    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBS    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBU    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBV    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBW    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMBX    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCE    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCI    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCM    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCN    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCR    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCS    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCV    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMCW    HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0002


IEB154I  IEMED    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEF    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEI    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEJ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEM    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEV    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEW    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEX    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEY    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMEZ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFE    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFF    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFI    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFQ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFU    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFV    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFW    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFX    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFY    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMFZ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMF1    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMGA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMGB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMGC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMGK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMGO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMGP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMGQ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMGR    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMGU    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMGV    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMHF    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMHG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMHK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMHL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMHP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMIA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMIB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMIC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMIG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMIK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMIL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMIM    HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0003


IEB154I  IEMIN    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMIP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMIQ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMIT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMIX    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMJD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMJI    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMJJ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMJK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMJL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMJM    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMJP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMJZ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKE    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKJ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKN    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKQ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKU    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMKV    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLR    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLS    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLU    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLV    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLW    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLX    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMLY    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMME    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMF    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMI    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMJ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMML    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMM    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMN    HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0004


IEB154I  IEMMO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMS    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMMT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMNA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMNB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMNG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMNH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMNJ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMNK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMNM    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMNN    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMNT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMNU    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMNV    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOE    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOF    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOI    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOM    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMON    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOQ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOS    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMOU    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMPA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMPD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMPH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMPL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMPM    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMPO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMPP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMPT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMPU    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMPV    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMQF    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMQG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMQH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMQJ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMQK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMQL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMQU    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMQX    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMRA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMRB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMRC    HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0005


IEB154I  IEMRD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMRF    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMRG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMTF    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMTJ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMTK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMTO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMTP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMTQ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMTT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMTU    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMUA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMUB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMUC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMUD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMUE    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMUF    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMUG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMUH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMUI    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXB    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXF    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXI    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXJ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXQ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXR    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXS    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXU    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXV    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMXW    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMYL    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMYM    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMYN    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMYO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMYP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMYQ    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMYX    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEMYY    HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000630 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000205  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0006


                     COPY OUTDD=LINKLIB,INDD=LM512
                     SELECT MEMBER=(IHEOPNA,IHEOPOA,IHEOPPA,IHEOPQA,IHEOPZA)
                     SELECT MEMBER=(IHETOMA,IHETOMB,IHETOMC,IHETOMD,IHETOME)
                     SELECT MEMBER=(IHECLSA)
                     SELECT MEMBER=(IHEITBA,IHEITCA)
                     SELECT MEMBER=(IHEITDA,IHEITEA)
                     SELECT MEMBER=(IHEITFA,IHEITGA)
                     SELECT MEMBER=(IHEITKA,IHEITLA)
                     SELECT MEMBER=(IHEITJA,IHEITHA)
                     SELECT MEMBER=(IHECLTA,IHECLTB,IHECTTA,IHECTTB,IHECTTC)
                     SELECT MEMBER=(IHEERNA,IHEERSA,IHEESSA,IHEESSB,IHEERSB)
                     SELECT MEMBER=(IHEESMA,IHEESMB)
                     SELECT MEMBER=(IHEERIA,IHEERDA,IHEEREA,IHEEROA,IHEERPA)
                     SELECT MEMBER=(IHEERTA,IHETEXA,IHETEXB,IHETEXC)
                     SELECT MEMBER=(IHEZZAA,IHEZZBA)
                     SELECT MEMBER=(IHEZZCA,IHEZZFA)
                     SELECT MEMBER=(IHESUBA,IHEITPA,IHESTAA)
                     SELECT MEMBER=(IHEITMA,IHEITNA,IHEITOA)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY LM512    -
IEB154I  IHECLSA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECLTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECLTB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECTTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECTTB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECTTC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEERDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEEREA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEERIA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEERNA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEEROA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEERPA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEERSA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEERSB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEERTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEESMA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEESMB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEESSA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEESSB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITCA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITEA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITFA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITGA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITHA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITJA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITKA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITLA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITMA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITNA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITOA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEITPA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOPNA  HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0007


IEB154I  IHEOPOA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOPPA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOPQA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOPZA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESTAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESUBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETEXA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETEXB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETEXC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETOMA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETOMB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETOMC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETOMD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETOME  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEZZAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEZZBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEZZCA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEZZFA  HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000620 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000196  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0008


                     COPY OUTDD=PL1LIB,INDD=PL1LIBA
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY PL1LIBA  -
IEB154I  IHEABND  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEADD0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEAPDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEAPDB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEATL1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEATL2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEATL3  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEATL4  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEATS1  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEATS2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEATS3  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEATS4  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBEGA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBEGN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSA0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSC0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSD0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSF0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSI0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSKA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSKK  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSKR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSMF  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSMV  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSMZ  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSN0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSO0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSS2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSS3  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEBSVA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECFAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECFBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECFCA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECKPS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECKPT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECNTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECNTB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSC0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSI0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSKK  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSKR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSMB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSMF  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSMH  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSML  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSMV  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSS2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSS3  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHECSVA  HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0009


IEB154I  IHEDBN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDBNA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDCN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDCNA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDCNB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDIA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDIB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDJ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDJA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDOA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDOB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDOC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDOD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDOE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDPA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDPB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDPC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDPD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDTB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDTC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDTD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDDTE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDIA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDIAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDIAB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDIBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDIBB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDIDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDIE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDIEA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDILA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDILB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDMA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDMAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDNB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDNBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDNC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDNCA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDOA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDOAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDOAB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDOBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDOBB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDOBC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDODA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDODB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDOE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDOEA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDSPA  HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0010


IEB154I  IHEDUMC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDUMJ  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDUMP  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEDUMT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEEFLC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEEFLF  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEEFSC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEEFSF  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEERRA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEERRB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEERRC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEERRD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEEXL0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEEXS0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEHTL0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEHTS0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIBTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIBTB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIBTC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIBTD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIBTE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIGTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEINTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOAB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOAC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOAD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOBB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOBC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOBD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOBE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOCA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOCB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOCC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIODG  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIODP  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOFA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOGA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIONA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOPA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOPB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOPC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOXA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOXB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEIOXC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEJXII  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEJXIY  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEJXSI  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEJXSY  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEKCA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEKCAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEKCB   HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0011


IEB154I  IHEKCBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEKCD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEKCDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEKCDB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELDIA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELDIB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELDIC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELDID  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELDOA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELDOB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELDOC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELNLD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELNLE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELNL2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELNSD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELNSE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELNS2  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELSPA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELSPB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELSPC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELSPD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHELSPE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEMAIN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEMXBN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEMXBX  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEMXDN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEMXDX  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEMXLN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEMXLX  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEMXSN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEMXSX  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEM91   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEM91A  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEM91B  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEM91C  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHENL1A  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHENL1L  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHENL1N  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHENL2A  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHENL2L  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHENL2N  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOCLA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOCLB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOCLC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOCLD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOCTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOCTB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOCTC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOCTD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOSDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOSEA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOSSA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEPDF0  HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0012


IEB154I  IHEPDL0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEPDS0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEPRDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEPRTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEPRTB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEPSF0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEPSL0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEPSS0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEPTTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEPTTB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHERESN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEREST  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESADA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESAPA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESAPB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESAPC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESAPD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESHLC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESHLS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESHSC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESHSS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESIZE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESMF0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESMGC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESMGR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESMHC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESMHR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESNLC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESNLK  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESNLS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESNLZ  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESNSC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESNSK  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESNSS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESNSZ  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESPRT  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESQL0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESQS0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESRCA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESRCB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESRCC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESRCD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESRCE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESRCF  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESRDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESRTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESRTB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESRTC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESRTD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESSF0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESSGC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESSGR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESSHC  HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0013


IEB154I  IHESSHR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESTGA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESTGB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESTPA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESTRA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESTRB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHESTRC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETABS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETCVA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETCVB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETEAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETER   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETERA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETEVA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETHL0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETHS0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETNLD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETNLR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETNSD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETNSR  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETPBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETPRA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETSAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETSAD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETSAP  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETSEA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETSSA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHETSWA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEUPA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEUPAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEUPAB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEUPB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEUPBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEUPBB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVCA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVCAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVFA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVFAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVFB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVFBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVFC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVFCA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVFD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVFDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVFE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVFEA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVKB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVKBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVKC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVKCA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVKF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVKFA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVKG   HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0014


IEB154I  IHEVKGA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPCA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPEA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPFA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPGA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVPHA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVQAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVQB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVQBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVQC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVQCA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSAA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSCA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSDA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSDB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSEA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSEB  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVSFA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVTBA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEXIB0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEXID0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEXIL0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEXIS0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEXXL0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEXXS0  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEYGFS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEYGFV  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEYGLS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEYGLV  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEYGSS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEYGSV  HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000086 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY PL1LIB
IEB149I  THERE ARE 0000010  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0015


                     COPY OUTDD=PL1LIB,INDD=LM512
                     SELECT MEMBER=(IHEVCSA,IHEVCSB,IHEVCS)
                     SELECT MEMBER=(IHEOSTA)
                     SELECT MEMBER=(IHEOSIA)
                     SELECT MEMBER=(IHEOSWA)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY LM512    -
IEB154I  IHEOSIA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOSTA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEOSWA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVCS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVCSA  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHEVCSB  HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000086 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY PL1LIB
IEB149I  THERE ARE 0000009  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0016


                     COPY OUTDD=FORTLIB,INDD=LM501
                     SELECT MEMBER=(IHCLLOG,DLOG,DLOG10,IHCSLOG,ALOG,ALOG10)
                     SELECT MEMBER=(IHCLEXP,DEXP,IHCSEXP,EXP,IHCLSQRT,DSQRT)
                     SELECT MEMBER=(IHCSSQRT,SQRT,IHCFMAXD,DMAX1,DMIN1)
                     SELECT MEMBER=(IHCFMAXI,AMAX0,AMIN0,MAX0,MIN0)
                     SELECT MEMBER=(IHCFMAXR,AMAX1,AMIN1,MAX1,MIN1)
                     SELECT MEMBER=(IHCLSCN,DSIN,DCOS,IHCSSCN,SIN,COS)
                     SELECT MEMBER=(IHCLTANH,DTANH,IHCSTANH,TANH)
                     SELECT MEMBER=(IHCFSLIT,SLITE,SLITET,IHCFOVER,OVERFL)
                     SELECT MEMBER=(IHCFDVCH,DVCHK,IHCFEXIT,EXIT,IHCFDUMP,DUMP,PDUMP)
                     SELECT MEMBER=(IHCCLLOG,CDLOG,IHCCSLOG,CLOG,IHCCLEXP,CDEXP)
                     SELECT MEMBER=(IHCCSEXP,CEXP,IHCCLSQT,CDSQRT,IHCCSSQT,CSQRT)
                     SELECT MEMBER=(IHCLASCN,DARSIN,DARCOS)
                     SELECT MEMBER=(IHCSASCN,ARSIN,ARCOS)
                     SELECT MEMBER=(IHCSGAMA,GAMMA,ALGAMA)
                     SELECT MEMBER=(IHCCLSCN,CDSIN,CDCOS)
                     SELECT MEMBER=(IHCCSSCN,CSIN,CCOS,IHCLTNCT,DTAN,DCOTAN)
                     SELECT MEMBER=(IHCSTNCT,TAN,COTAN,IHCLSCNH,DSINH,DCOSH)
                     SELECT MEMBER=(IHCSSCNH,SINH,COSH)
                     SELECT MEMBER=(IHCCLABS,CDABS,IHCCSABS,CABS)
                     SELECT MEMBER=(IHCLERF,DERF,DERFC,IHCSERF,ERF,ERFC)
                     SELECT MEMBER=(IHCLGAMA,DGAMMA,DLGAMA)
                     SELECT MEMBER=(IHCFMODI,MOD,IHCFMODR,DMOD,AMOD)
                     SELECT MEMBER=(IHCFAINT,AINT,IHCFIFIX,IDINT,INT)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY LM501    -
IEB154I  AINT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  ALGAMA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  ALOG     HAS BEEN SUCCESSFULLY COPIED
IEB154I  ALOG10   HAS BEEN SUCCESSFULLY COPIED
IEB154I  AMAX0    HAS BEEN SUCCESSFULLY COPIED
IEB154I  AMAX1    HAS BEEN SUCCESSFULLY COPIED
IEB154I  AMIN0    HAS BEEN SUCCESSFULLY COPIED
IEB154I  AMIN1    HAS BEEN SUCCESSFULLY COPIED
IEB154I  AMOD     HAS BEEN SUCCESSFULLY COPIED
IEB154I  ARCOS    HAS BEEN SUCCESSFULLY COPIED
IEB154I  ARSIN    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CABS     HAS BEEN SUCCESSFULLY COPIED
IEB154I  CCOS     HAS BEEN SUCCESSFULLY COPIED
IEB154I  CDABS    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CDCOS    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CDEXP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CDLOG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CDSIN    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CDSQRT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  CEXP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  CLOG     HAS BEEN SUCCESSFULLY COPIED
IEB154I  COS      HAS BEEN SUCCESSFULLY COPIED
IEB154I  COSH     HAS BEEN SUCCESSFULLY COPIED
IEB154I  COTAN    HAS BEEN SUCCESSFULLY COPIED
IEB154I  CSIN     HAS BEEN SUCCESSFULLY COPIED
IEB154I  CSQRT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  DARCOS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  DARSIN   HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0017


IEB154I  DCOS     HAS BEEN SUCCESSFULLY COPIED
IEB154I  DCOSH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  DCOTAN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  DERF     HAS BEEN SUCCESSFULLY COPIED
IEB154I  DERFC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  DEXP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  DGAMMA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  DLGAMA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  DLOG     HAS BEEN SUCCESSFULLY COPIED
IEB154I  DLOG10   HAS BEEN SUCCESSFULLY COPIED
IEB154I  DMAX1    HAS BEEN SUCCESSFULLY COPIED
IEB154I  DMIN1    HAS BEEN SUCCESSFULLY COPIED
IEB154I  DMOD     HAS BEEN SUCCESSFULLY COPIED
IEB154I  DSIN     HAS BEEN SUCCESSFULLY COPIED
IEB154I  DSINH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  DSQRT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  DTAN     HAS BEEN SUCCESSFULLY COPIED
IEB154I  DTANH    HAS BEEN SUCCESSFULLY COPIED
IEB154I  DUMP     HAS BEEN SUCCESSFULLY COPIED
IEB154I  DVCHK    HAS BEEN SUCCESSFULLY COPIED
IEB154I  ERF      HAS BEEN SUCCESSFULLY COPIED
IEB154I  ERFC     HAS BEEN SUCCESSFULLY COPIED
IEB154I  EXIT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  EXP      HAS BEEN SUCCESSFULLY COPIED
IEB154I  GAMMA    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IDINT    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCCLABS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCCLEXP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCCLLOG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCCLSCN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCCLSQT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCCSABS HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCCSEXP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCCSLOG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCCSSCN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCCSSQT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCFAINT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCFDUMP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCFDVCH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCFEXIT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCFIFIX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCFMAXD HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCFMAXI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCFMAXR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCFMODI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCFMODR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCFOVER HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCFSLIT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCLASCN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCLERF  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCLEXP  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCLGAMA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCLLOG  HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0018


IEB154I  IHCLSCN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCLSCNH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCLSQRT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCLTANH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCLTNCT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCSASCN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCSERF  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCSEXP  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCSGAMA HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCSLOG  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCSSCN  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCSSCNH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCSSQRT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCSTANH HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCSTNCT HAS BEEN SUCCESSFULLY COPIED
IEB154I  INT      HAS BEEN SUCCESSFULLY COPIED
IEB154I  MAX0     HAS BEEN SUCCESSFULLY COPIED
IEB154I  MAX1     HAS BEEN SUCCESSFULLY COPIED
IEB154I  MIN0     HAS BEEN SUCCESSFULLY COPIED
IEB154I  MIN1     HAS BEEN SUCCESSFULLY COPIED
IEB154I  MOD      HAS BEEN SUCCESSFULLY COPIED
IEB154I  OVERFL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PDUMP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  SIN      HAS BEEN SUCCESSFULLY COPIED
IEB154I  SINH     HAS BEEN SUCCESSFULLY COPIED
IEB154I  SLITE    HAS BEEN SUCCESSFULLY COPIED
IEB154I  SLITET   HAS BEEN SUCCESSFULLY COPIED
IEB154I  SQRT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  TAN      HAS BEEN SUCCESSFULLY COPIED
IEB154I  TANH     HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000065 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY FORTLIB
IEB149I  THERE ARE 0000014  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0019


                     COPY OUTDD=LINKLIB,INDD=LM501
                     SELECT MEMBER=(IHCSTAE)
                     SELECT MEMBER=(IHCADJST)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY LM501    -
IEB154I  IHCADJST HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHCSTAE  HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000619 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000196  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0020


                     COPY OUTDD=FORTLIB,INDD=FORTLIBA
                      EXCLUDE  MEMBER=IHCUATBL
                     EXCLUDE MEMBER=IHCFCOME
                     EXCLUDE MEMBER=IHCIBERR
                     EXCLUDE MEMBER=IHCCGOTO
                     EXCLUDE MEMBER=IHCLLOG
                     EXCLUDE MEMBER=DLOG
                     EXCLUDE MEMBER=DLOG10
                     EXCLUDE MEMBER=IHCSLOG
                     EXCLUDE MEMBER=ALOG
                     EXCLUDE MEMBER=ALOG10
                     EXCLUDE MEMBER=IHCLEXP
                     EXCLUDE MEMBER=DEXP
                     EXCLUDE MEMBER=IHCSEXP
                     EXCLUDE MEMBER=EXP
                     EXCLUDE MEMBER=IHCLSQRT
                     EXCLUDE MEMBER=DSQRT
                     EXCLUDE MEMBER=IHCSSQRT
                     EXCLUDE MEMBER=SQRT
                     EXCLUDE MEMBER=IHCLATAN
                     EXCLUDE MEMBER=DATAN
                     EXCLUDE MEMBER=IHCSATAN
                     EXCLUDE MEMBER=ATAN
                     EXCLUDE MEMBER=IHCFMAXD
                     EXCLUDE MEMBER=DMAX1
                     EXCLUDE MEMBER=DMIN1
                     EXCLUDE MEMBER=IHCFMAXI
                     EXCLUDE MEMBER=AMAX0
                     EXCLUDE MEMBER=AMIN0
                     EXCLUDE MEMBER=MAX0
                     EXCLUDE MEMBER=MIN0
                     EXCLUDE MEMBER=IHCFMAXR
                     EXCLUDE MEMBER=AMAX1
                     EXCLUDE MEMBER=AMIN1
                     EXCLUDE MEMBER=MAX1
                     EXCLUDE MEMBER=MIN1
                     EXCLUDE MEMBER=IHCFMODI
                     EXCLUDE MEMBER=MOD
                     EXCLUDE MEMBER=IHCFMODR
                     EXCLUDE MEMBER=DMOD
                     EXCLUDE MEMBER=AMOD
                     EXCLUDE MEMBER=IHCFAINT
                     EXCLUDE MEMBER=AINT
                     EXCLUDE MEMBER=IHCFIFIX
                     EXCLUDE MEMBER=IDINT
                     EXCLUDE MEMBER=INT
                     EXCLUDE MEMBER=IFIX
                     EXCLUDE MEMBER=IHCFIXPI
                     EXCLUDE MEMBER=IHCFRXPI
                     EXCLUDE MEMBER=IHCLSCN
                     EXCLUDE MEMBER=DSIN
                     EXCLUDE MEMBER=DCOS
                     EXCLUDE MEMBER=IHCSSCN
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0021


                     EXCLUDE MEMBER=SIN
                     EXCLUDE MEMBER=COS
                     EXCLUDE MEMBER=IHCLTANH
                     EXCLUDE MEMBER=DTANH
                     EXCLUDE MEMBER=IHCSTANH
                     EXCLUDE MEMBER=TANH
                     EXCLUDE MEMBER=IHCFDXPI
                     EXCLUDE MEMBER=IHCFRXPR
                     EXCLUDE MEMBER=IHCFDXPD
                     EXCLUDE MEMBER=IHCFSLIT
                     EXCLUDE MEMBER=SLITE
                     EXCLUDE MEMBER=SLITET
                     EXCLUDE MEMBER=IHCFOVER
                     EXCLUDE MEMBER=OVERFL
                     EXCLUDE MEMBER=IHCFDVCH
                     EXCLUDE MEMBER=DVCHK
                     EXCLUDE MEMBER=IHCFEXIT
                     EXCLUDE MEMBER=EXIT
                     EXCLUDE MEMBER=IHCFDUMP
                     EXCLUDE MEMBER=DUMP
                     EXCLUDE MEMBER=PDUMP
                     EXCLUDE MEMBER=IHCFLOAT
                     EXCLUDE MEMBER=DFLOAT
                     EXCLUDE MEMBER=FLOAT
                     EXCLUDE MEMBER=IHCIBERH
                     EXCLUDE MEMBER=IHCCLLOG
                     EXCLUDE MEMBER=CDLOG
                     EXCLUDE MEMBER=IHCCSLOG
                     EXCLUDE MEMBER=CLOG
                     EXCLUDE MEMBER=IHCCLEXP
                     EXCLUDE MEMBER=CDEXP
                     EXCLUDE MEMBER=IHCCSEXP
                     EXCLUDE MEMBER=CEXP
                     EXCLUDE MEMBER=IHCCLSQT
                     EXCLUDE MEMBER=CDSQRT
                     EXCLUDE MEMBER=IHCCSSQT
                     EXCLUDE MEMBER=CSQRT
                     EXCLUDE MEMBER=IHCLASCN
                     EXCLUDE MEMBER=DARSIN
                     EXCLUDE MEMBER=DARCOS
                     EXCLUDE MEMBER=IHCSASCN
                     EXCLUDE MEMBER=ARSIN
                     EXCLUDE MEMBER=ARCOS
                     EXCLUDE MEMBER=IHCSGAMA
                     EXCLUDE MEMBER=GAMMA
                     EXCLUDE MEMBER=ALGAMA
                     EXCLUDE MEMBER=IHCCLAS
                     EXCLUDE MEMBER=IHCCSAS
                     EXCLUDE MEMBER=IHCFCDXI
                     EXCLUDE MEMBER=IHCFCXPI
                     EXCLUDE MEMBER=IHCCLSCN
                     EXCLUDE MEMBER=CDSIN
                     EXCLUDE MEMBER=CDCOS
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0022


                     EXCLUDE MEMBER=IHCCSSCN
                     EXCLUDE MEMBER=CSIN
                     EXCLUDE MEMBER=CCOS
                     EXCLUDE MEMBER=IHCLTNCT
                     EXCLUDE MEMBER=DTAN
                     EXCLUDE MEMBER=DCOTAN
                     EXCLUDE MEMBER=IHCSTNCT
                     EXCLUDE MEMBER=TAN
                     EXCLUDE MEMBER=COTAN
                     EXCLUDE MEMBER=IHCLSCNH
                     EXCLUDE MEMBER=DSINH
                     EXCLUDE MEMBER=DCOSH
                     EXCLUDE MEMBER=IHCSSCNH
                     EXCLUDE MEMBER=SINH
                     EXCLUDE MEMBER=COSH
                     EXCLUDE MEMBER=IHCCLABS
                     EXCLUDE MEMBER=CDABS
                     EXCLUDE MEMBER=IHCCSABS
                     EXCLUDE MEMBER=CABS
                     EXCLUDE MEMBER=IHCLERF
                     EXCLUDE MEMBER=DERF
                     EXCLUDE MEMBER=DERFC
                     EXCLUDE MEMBER=IHCSERF
                     EXCLUDE MEMBER=ERF
                     EXCLUDE MEMBER=ERFC
                     EXCLUDE MEMBER=IHCLGAMA
                     EXCLUDE MEMBER=DGAMMA
                     EXCLUDE MEMBER=DLGAMA
                     EXCLUDE MEMBER=IHCFCOMH
                     EXCLUDE MEMBER=IHCFCVTH
                     EXCLUDE MEMBER=IHCDBUG
                     EXCLUDE MEMBER=IHCFIOSH
                     EXCLUDE MEMBER=IHCLATN2
                     EXCLUDE MEMBER=DATN2
                     EXCLUDE MEMBER=IHCSATN2
                     EXCLUDE MEMBER=ATAN2
                     EXCLUDE MEMBER=IHCNAMEL
                     EXCLUDE MEMBER=IHCDIOSE
                     EXCLUDE MEMBER=IHCTRCH
                     EXCLUDE MEMBER=IHCUOPT
                     EXCLUDE MEMBER=IHCFINTH
                     EXCLUDE MEMBER=IHCEFNTH
                     EXCLUDE MEMBER=IHCETRCH
                     EXCLUDE MEMBER=IHCERRM
                     EXCLUDE MEMBER=ERRMON
                     EXCLUDE MEMBER=ERRTRA
                     EXCLUDE MEMBER=IHCEDIOS
                     EXCLUDE MEMBER=IHCEFIOS
                     EXCLUDE MEMBER=FIOCSB
                     EXCLUDE MEMBER=IHCECOMH
                     EXCLUDE MEMBER=IHCERRE
                     EXCLUDE MEMBER=IHCFOPT
                     EXCLUDE MEMBER=ERRSET
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0023


                     EXCLUDE MEMBER=ERRSAV
                     EXCLUDE MEMBER=ERRSTR
IEB140I  FORTLIBA REFERENCES A NULL INPUT DATA SET
IEB144I  THERE ARE 0000065 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY FORTLIB
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0024


                     COPY OUTDD=LINKLIB,INDD=CO503
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CO503    -
IEB154I  IEPALC00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPASA00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPASP00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPASW00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPAS100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPAS200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPAS300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPAS400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPAS500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPAS600 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPBLD00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPDBG00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPDMG00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPDPC00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPDST00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPDS100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPDS200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPIOT00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPLIT00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPLST00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPD100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPD200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPGP00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPGQ00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPG100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPG200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPG300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPG400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPG500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPG600 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPG700 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPG900 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPMG00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPS100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPS200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPS300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPS400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPT100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPT200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPT300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPT400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPT500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPT600 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPPT700 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPSET00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPSIS00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPSMG00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPSYS00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPTRM00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEPUSE00 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000591 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0025


IEB149I  THERE ARE 0000187  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0026


                     COPY OUTDD=LINKLIB,INDD=CB545
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY CB545    -
IEB154I  IKFCBL00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKFCBL1B HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKFCBL10 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKFCBL20 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKFCBL30 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKFCBL40 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKFCBL50 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKFCBL51 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKFCBL6A HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKFCBL60 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKFCBL70 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000554 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000185  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0027


                     COPY OUTDD=COBLIB,INDD=COBLIBA
                     SELECT MEMBER=(IHD00000)
                     SELECT MEMBER=(IHD00001)
                     SELECT MEMBER=(IHD00100)
                     SELECT MEMBER=(IHD00101)
                     SELECT MEMBER=(IHD00200)
                     SELECT MEMBER=(IHD00201)
                     SELECT MEMBER=(IHD00300)
                     SELECT MEMBER=(IHD00301)
                     SELECT MEMBER=(IHD00400)
                     SELECT MEMBER=(IHD00401)
                     SELECT MEMBER=(IHD00500)
                     SELECT MEMBER=(IHD00501)
                     SELECT MEMBER=(IHD00600)
                     SELECT MEMBER=(IHD00601)
                     SELECT MEMBER=(IHD00602)
                     SELECT MEMBER=(IHD00700)
                     SELECT MEMBER=(IHD00701)
                     SELECT MEMBER=(IHD00800)
                     SELECT MEMBER=(IHD00801)
                     SELECT MEMBER=(IHD00802)
                     SELECT MEMBER=(IHD00900)
                     SELECT MEMBER=(IHD00901)
                     SELECT MEMBER=(IHD01000)
                     SELECT MEMBER=(IHD01001)
                     SELECT MEMBER=(IHD01002)
                     SELECT MEMBER=(IHD01100)
                     SELECT MEMBER=(IHD01101)
                     SELECT MEMBER=(IHD01102)
                     SELECT MEMBER=(IHD01200)
                     SELECT MEMBER=(IHD01201)
                     SELECT MEMBER=(IHD01300)
                     SELECT MEMBER=(IHD01301)
                     SELECT MEMBER=(IHD01400)
                     SELECT MEMBER=(IHD01401)
                     SELECT MEMBER=(IHD01500)
                     SELECT MEMBER=(IHD01501)
                     SELECT MEMBER=(IHD01502)
                     SELECT MEMBER=(IHD01504)
                     SELECT MEMBER=(IHD01600)
                     SELECT MEMBER=(IHD01601)
                     SELECT MEMBER=(IHD01602)
                     SELECT MEMBER=(IHD01700)
                     SELECT MEMBER=(IHD01701)
                     SELECT MEMBER=(IHD01800)
                     SELECT MEMBER=(IHD01801)
                     SELECT MEMBER=(IHD01802)
                     SELECT MEMBER=(IHD01900)
                     SELECT MEMBER=(IHD01901)
                     SELECT MEMBER=(IHD01902)
                     SELECT MEMBER=(IHD01904)
                     SELECT MEMBER=(IHD01908)
                     SELECT MEMBER=(IHD02000)
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0028


                     SELECT MEMBER=(IHD02001)
                     SELECT MEMBER=(IHD02002)
                     SELECT MEMBER=(IHD02100)
                     SELECT MEMBER=(IHD02101)
                     SELECT MEMBER=(IHD02200)
                     SELECT MEMBER=(IHD02201)
                     SELECT MEMBER=(IHD02300)
                     SELECT MEMBER=(IHD02301)
                     SELECT MEMBER=(IHD02302)
                     SELECT MEMBER=(IHD02304)
                     SELECT MEMBER=(IHD02400)
                     SELECT MEMBER=(IHD02401)
                     SELECT MEMBER=(IHD02500)
                     SELECT MEMBER=(IHD02501)
                     SELECT MEMBER=(IHD02600)
                     SELECT MEMBER=(IHD02601)
                     SELECT MEMBER=(IHD02700)
                     SELECT MEMBER=(IHD02701)
                     SELECT MEMBER=(IHD02800)
                     SELECT MEMBER=(IHD02801)
                     SELECT MEMBER=(IHD02802)
                     SELECT MEMBER=(IHD02900)
                     SELECT MEMBER=(IHD02901)
                     SELECT MEMBER=(IHD03001)
                     SELECT MEMBER=(IHD03002)
                     SELECT MEMBER=(IHD03004)
                     SELECT MEMBER=(IHD03008)
                     SELECT MEMBER=(IHD03101)
                     SELECT MEMBER=(IHD03102)
                     SELECT MEMBER=(IHD03104)
                     SELECT MEMBER=(IHD03108)
                     SELECT MEMBER=(IHD03300)
                     SELECT MEMBER=(IHD03301)
                     SELECT MEMBER=(IHD03402)
                     SELECT MEMBER=(IHD03801)
                     SELECT MEMBER=(IHD03900)
                     SELECT MEMBER=(IHD03901)
                     SELECT MEMBER=(IHD04000)
                     SELECT MEMBER=(IHD04001)
                     SELECT MEMBER=(IHD04100)
                     SELECT MEMBER=(IHD04101)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY COBLIBA  -
IEB154I  IHD00000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00101 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00301 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00500 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0029


IEB154I  IHD00501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00600 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00601 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00602 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00700 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00701 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00800 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00801 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00802 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00900 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD00901 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01002 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01101 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01102 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01301 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01401 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01502 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01504 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01600 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01601 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01602 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01700 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01701 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01800 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01801 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01802 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01900 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01901 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01902 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01904 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD01908 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02002 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02101 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02200 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02201 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02301 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02302 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02304 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02400 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02401 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0030


IEB154I  IHD02500 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02501 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02600 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02601 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02700 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02701 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02800 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02801 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02802 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02900 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD02901 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03002 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03004 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03008 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03101 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03102 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03104 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03108 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03300 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03301 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03402 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03801 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03900 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD03901 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD04000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD04001 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD04100 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHD04101 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000071 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY COBLIB
IEB149I  THERE ARE 0000021  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0031


                     COPY OUTDD=COBLIB,INDD=LM546
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY LM546    -
IEB154I  ILBOACP0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOANE0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOANF0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOATB0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOBID0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOBID1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOBID2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOBIE0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOBIE1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOBIE2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOBII0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOBII1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOBII2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOCKP0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOCLS0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBODCI0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBODCI1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBODSP0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBODTE0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBODTE1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOEFL0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOEFL1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOEFL2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOERR0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOERR1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOERR2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOERR3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOERR4 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOERR5 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOERR6 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOETB0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOFPW0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOGPW0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOIDB0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOIDB1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOIDR0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOIDT0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOIFB0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOIFB1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOIFB2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOIFD0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOIFD1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOITB0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOIVL0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOMVL0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOPTV0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOPTV1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOPTV2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOSAMR HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOSAM0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOSCH0 HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0032


IEB154I  ILBOSGM0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOSGM1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOSGM2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOSPA0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOSRT0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOSTI0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOSTP0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOSTP1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOTEF0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOTEF1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOTEF2 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOTEF3 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOTRN0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOUTB0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOVCO0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOVMO0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOVMO1 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOVTR0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOWTB0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOXDI0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOXMU0 HAS BEEN SUCCESSFULLY COPIED
IEB154I  ILBOXPR0 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000066 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY COBLIB
IEB149I  THERE ARE 0000009  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0033


                     COPY OUTDD=LINKLIB,INDD=SM023
                               SELECT MEMBER=(IERRCO00,SORT,IERRCB)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY SM023    -
IEB154I  IERRCB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRCO00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SORT     HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000553 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000185  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0034


                     COPY OUTDD=SORTLIB,INDD=SORTLIBA
                     SELECT MEMBER=(IERABQ,IERABR,IERADL,IERADM,IERAGH)
                     SELECT MEMBER=(IERAMA,IERAMB,IERAMC,IERDM4,IERAPI)
                     SELECT MEMBER=(IERRMB,IERRMC,IERRPG,IERAPJ,IERAP1)
                     SELECT MEMBER=(IERAP2,IERRCT,IERRC6,IERRC7,IERRC8,IERRC9)
                     SELECT MEMBER=(IERAP3,IERRCV,IERRDL,IERRGA,IERRMA)
                     SELECT MEMBER=(IERAOV,IERROV,IERAOQ,IERROQ,IERAPC)
                     SELECT MEMBER=(IERCHK,IERRPF,IERAPH,IERAPG,IERRPC)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY SORTLIBA -
IEB154I  IERABQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERADL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERADM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAGH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAMA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAMB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAMC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOV   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAPC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAPG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAPH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAPI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAPJ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAP1   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAP2   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAP3   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERCHK   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERDM4   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRCT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRCV   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRC6   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRC7   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRC8   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRC9   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRDL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRGA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRMA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRMB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRMC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROV   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRPC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRPF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRPG   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000070 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SORTLIB
IEB149I  THERE ARE 0000034  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0035


                     COPY OUTDD=SORTLIB,INDD=SM023
                               SELECT MEMBER=(IERAGO,IERRGO,IERAGP,IERRGP)
                               SELECT MEMBER=(IERAOO,IERROO,IERAO3,IERRO3)
                               SELECT MEMBER=(IERAPN,IERRPN,IERAPO,IERRPO)
                               SELECT MEMBER=(IERAGK)
                     SELECT MEMBER=(IERRGC,IERRGE,IERROK,IERROT,IERRPE)
                     SELECT MEMBER=(IERRPB,IERAGC,IERAGE,IERAOK,IERAOT)
                     SELECT MEMBER=(IERAPE,IERAPB,IERAGI,IERAGJ)
                               SELECT MEMBER=(IERAPL)
                               SELECT MEMBER=(IER8GB,IER9GB,IER8GC,IER9GC)
                               SELECT MEMBER=(IER8PA,IER9PA,IER8ON,IER9ON)
                               SELECT MEMBER=(IER9GN,IER8PM)
                               SELECT MEMBER=(IERRBL,IERABL,IERRDH,IERADH)
                               SELECT MEMBER=(IERAOB,IERROB,IERABS)
                     SELECT MEMBER=(IERRBB,IERRBG,IERRDB,IERABB,IERABG)
                     SELECT MEMBER=(IERADB)
                               SELECT MEMBER=(IERRBP,IERABP)
                     SELECT MEMBER=(IERRBC,IERRBH,IERRDC,IERABC,IERABH)
                     SELECT MEMBER=(IERADC)
                               SELECT MEMBER=(IERRDI,IERADI,IERRBN,IERABN)
                               SELECT MEMBER=(IERAOD,IERROD)
                     SELECT MEMBER=(IERRBE,IERRBF,IERRBI,IERRDG,IERABE)
                     SELECT MEMBER=(IERABF,IERABI,IERADG)
                     SELECT MEMBER=(IER8BN,IER9BN)
                               SELECT MEMBER=(IERAOX,IERROX,IERADP,IERRDP)
                               SELECT MEMBER=(IERABT,IERRBT,IERABY,IERRBY)
                               SELECT MEMBER=(IERABA,IERRBA,IERABV,IERRBV)
                               SELECT MEMBER=(IERAOZ,IERROZ,IERADT,IERRDT)
                               SELECT MEMBER=(IERABU,IERRBU,IERABZ,IERRBZ)
                               SELECT MEMBER=(IERADQ,IERRDQ)
                               SELECT MEMBER=(IERAOU,IERROU)
                               SELECT MEMBER=(IERROP,IERAOP)
                               SELECT MEMBER=(IERROA,IERAOA)
                               SELECT MEMBER=(IERROW,IERAOW)
                               SELECT MEMBER=(IERAOC,IERROC)
                               SELECT MEMBER=(IERAOY,IERROY)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY SM023    -
IEB154I  IERABA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABU   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABV   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERABY   HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0036


IEB154I  IERABZ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERADB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERADC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERADG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERADH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERADI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERADP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERADQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERADT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAGC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAGE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAGI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAGJ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAGK   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAGO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAGP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOK   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOU   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOW   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOX   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOY   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAOZ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAO3   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAPB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAPE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAPL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAPN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERAPO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBF   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBU   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBV   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBY   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRBZ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRDB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRDC   HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0037


IEB154I  IERRDG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRDH   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRDI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRDP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRDQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRDT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRGC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRGE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRGO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRGP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROK   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROU   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROW   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROX   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROY   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERROZ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRO3   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRPB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRPE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRPN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IERRPO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IER8BN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IER8GB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IER8GC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IER8ON   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IER8PA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IER8PM   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IER9BN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IER9GB   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IER9GC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IER9GN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IER9ON   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IER9PA   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000058 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SORTLIB
IEB149I  THERE ARE 0000015  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0038


                     COPY OUTDD=LINKLIB,INDD=AL531
                     SELECT MEMBER=(IEX10,IEX11,IEX20,IEX30,IEX40,IEX50)
                     SELECT MEMBER=(IEX10000,IEX11000,IEX20000,IEX30000)
                     SELECT MEMBER=(IEX40000,IEX50000)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY AL531    -
IEB154I  IEX10    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEX10000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEX11    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEX11000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEX20    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEX20000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEX30    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEX30000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEX40    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEX40000 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEX50    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEX50000 HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000547 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000183  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0039


                     COPY OUTDD=ALGLIB,INDD=LM532
                     SELECT MEMBER=(IHIFDD,IHIFDI,IHIFII,IHIFRI,IHIFRR)
                     SELECT MEMBER=(IHIFSA,IHIGPR,IHIIAR,IHIIBA,IHIIBO)
                     SELECT MEMBER=(IHIIDE,IHIIOR,IHIISY,IHILAT,IHILEX)
                     SELECT MEMBER=(IHILLO,IHILOR,IHILSC,IHILSQ,IHIOAR)
                     SELECT MEMBER=(IHIOBA,IHIOBO,IHIOIN,IHIOST,IHIOSY)
                     SELECT MEMBER=(IHIOTA,IHIPTT,IHISAT,IHISEX,IHISLO)
                     SELECT MEMBER=(IHISOR,IHISSC,IHISSQ,IHISYS)
                     SELECT MEMBER=(IHIFSAIN,IHIGPRCL,IHIGPRGT,IHIGPRPT)
                     SELECT MEMBER=(IHIIARRT,IHIIARRY,IHIIBARR,IHIIBOAR)
                     SELECT MEMBER=(IHIIBOOL,IHIIDEAI,IHIIDEII,IHIIDEIR)
                     SELECT MEMBER=(IHIIOREN,IHIIOREV,IHIIORNX,IHIIOROP)
                     SELECT MEMBER=(IHIOBOOL,IHIOINAR,IHIOINTG,IHIOSTRG)
                     SELECT MEMBER=(IHIOSYMB,IHIOTARR,IHIPTTAB,IHISORAR)
                     SELECT MEMBER=(IHIISYMB,IHILORAR,IHILOREL,IHILSCC)
                     SELECT MEMBER=(IHIOARRY,IHIOBARR,IHIOBOAR,IHILSCS)
                     SELECT MEMBER=(IHISOREL,IHISYSCT,IHISSCC,IHISSCS)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY LM532    -
IEB154I  IHIFDD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIFDI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIFII   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIFRI   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIFRR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIFSA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIFSAIN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIGPR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIGPRCL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIGPRGT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIGPRPT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIAR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIARRT HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIARRY HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIBA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIBARR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIBO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIBOAR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIBOOL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIDE   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIDEAI HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIDEII HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIDEIR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIOR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIOREN HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIOREV HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIORNX HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIIOROP HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIISY   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIISYMB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHILAT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHILEX   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHILLO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHILOR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHILORAR HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0040


IEB154I  IHILOREL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHILSC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHILSCC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHILSCS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHILSQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOAR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOARRY HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOBA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOBARR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOBO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOBOAR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOBOOL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOIN   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOINAR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOINTG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOST   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOSTRG HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOSY   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOSYMB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOTA   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIOTARR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIPTT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHIPTTAB HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHISAT   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHISEX   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHISLO   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHISOR   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHISORAR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHISOREL HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHISSC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHISSCC  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHISSCS  HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHISSQ   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHISYS   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IHISYSCT HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000070 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ALGLIB
IEB149I  THERE ARE 0000026  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0041


                     COPY OUTDD=LINKLIB,INDD=LD547
                     SELECT MEMBER=(IEWLDRGO,LOADER)    LOADER IS ALIAS
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY LD547    -
IEB154I  IEWLDRGO HAS BEEN SUCCESSFULLY COPIED
IEB154I  LOADER   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000547 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000182  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0042


                     COPY OUTDD=LINKLIB,INDD=PL552
                     SELECT MEMBER=(IKM21,IKM22,IKM23)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY PL552    -
IEB154I  IKM21    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKM22    HAS BEEN SUCCESSFULLY COPIED
IEB154I  IKM23    HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000546 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000182  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0043


                     COPY OUTDD=LINKLIB,INDD=FO550
                      SELECT MEMBER=(IPDAGH)
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY FO550    -
IEB154I  IPDAGH   HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000545 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LINKLIB
IEB149I  THERE ARE 0000182  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0044


                     COPY OUTDD=PARMLIB,INDD=PARMLIBA
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY PARMLIBA -
IEB154I  IEABLD00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAIGE00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAIGG00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEAIGG01 HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEARSV00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  LNKLST00 HAS BEEN SUCCESSFULLY COPIED
IEB154I  SMFDEFLT HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000094 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY PARMLIB
IEB149I  THERE ARE 0000009  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0045


                      COPY OUTDD=PROCLIB,INDD=PROCLIBA
IEB167I  FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY PROCLIBA -
IEB154I  ALGOFC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  ALGOFCG  HAS BEEN SUCCESSFULLY COPIED
IEB154I  ALGOFCL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  ALGOFCLG HAS BEEN SUCCESSFULLY COPIED
IEB154I  ASMFC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  ASMFCG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  ASMFCL   HAS BEEN SUCCESSFULLY COPIED
IEB154I  ASMFCLG  HAS BEEN SUCCESSFULLY COPIED
IEB154I  BRDR     HAS BEEN SUCCESSFULLY COPIED
IEB154I  COBEC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  COBECLG  HAS BEEN SUCCESSFULLY COPIED
IEB154I  COBELG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  COBUC    HAS BEEN SUCCESSFULLY COPIED
IEB154I  COBUCG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  COBUCLG  HAS BEEN SUCCESSFULLY COPIED
IEB154I  COBULG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  DSO      HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTGC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTGCL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTGCLD HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTGCLG HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTGLG  HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTHC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTHCL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTHCLD HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTHCLG HAS BEEN SUCCESSFULLY COPIED
IEB154I  FORTHLG  HAS BEEN SUCCESSFULLY COPIED
IEB154I  GTF      HAS BEEN SUCCESSFULLY COPIED
IEB154I  GTFSNP   HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEEVMPCR HAS BEEN SUCCESSFULLY COPIED
IEB154I  IEFREINT HAS BEEN SUCCESSFULLY COPIED
IEB154I  INIT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  INITD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  LIST     HAS BEEN SUCCESSFULLY COPIED
IEB154I  LKED     HAS BEEN SUCCESSFULLY COPIED
IEB154I  LKEDG    HAS BEEN SUCCESSFULLY COPIED
IEB154I  MOD      HAS BEEN SUCCESSFULLY COPIED
IEB154I  PL1DFC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PL1LFC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PL1LFCG  HAS BEEN SUCCESSFULLY COPIED
IEB154I  PL1LFCL  HAS BEEN SUCCESSFULLY COPIED
IEB154I  PL1LFCLG HAS BEEN SUCCESSFULLY COPIED
IEB154I  PL1LFG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  PL1LFLG  HAS BEEN SUCCESSFULLY COPIED
IEB154I  PRDMP    HAS BEEN SUCCESSFULLY COPIED
IEB154I  PTFLE    HAS BEEN SUCCESSFULLY COPIED
IEB154I  RDR      HAS BEEN SUCCESSFULLY COPIED
IEB154I  RDRA     HAS BEEN SUCCESSFULLY COPIED
IEB154I  RDR3200  HAS BEEN SUCCESSFULLY COPIED
IEB154I  RDR400   HAS BEEN SUCCESSFULLY COPIED
IEB154I  RPGEC    HAS BEEN SUCCESSFULLY COPIED
                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0046


IEB154I  RPGECLG  HAS BEEN SUCCESSFULLY COPIED
IEB154I  RPGELG   HAS BEEN SUCCESSFULLY COPIED
IEB154I  SMPIO    HAS BEEN SUCCESSFULLY COPIED
IEB154I  SMPIOD   HAS BEEN SUCCESSFULLY COPIED
IEB154I  SMPNUC   HAS BEEN SUCCESSFULLY COPIED
IEB154I  SMPNUCD  HAS BEEN SUCCESSFULLY COPIED
IEB154I  SORT     HAS BEEN SUCCESSFULLY COPIED
IEB154I  SORTD    HAS BEEN SUCCESSFULLY COPIED
IEB154I  TSTRACE  HAS BEEN SUCCESSFULLY COPIED
IEB154I  WTR      HAS BEEN SUCCESSFULLY COPIED
IEB144I  THERE ARE 0000269 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY PROCLIB
IEB149I  THERE ARE 0000045  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.SYSUT3                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.SYSUT4                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.R21CY121.R0000342     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.DPARMLIB                                KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.PARMLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.NL511                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.LM512                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DPL1LIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.PL1LIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.LM501                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DFORTLIB                                KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.FORTLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.CO503                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CB545                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DCOBLIB                                 KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.LM546                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.COBLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.SM023                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.DSORTLIB                                KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.SORTLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.AL531                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.LM532                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.ALGLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.DPROCLIB                                KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.PROCLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.LD547                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.PL552                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.FO550                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   MVT1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21CY121.S0000343     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21CY121.S0000343     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG125   / START 78240.1947
IEF374I STEP /SG125   / STOP  78240.1947 CPU   0MIN 07.35SEC MAIN 254K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:47:00.75   ALLOC START    19:47:00.76   MAIN REGION ----- 256K                          *
*   STEP NAME SG125      STEP END TIME  19:47:09.45   PGM START TIME 19:47:00.91   MAIN STORAGE ---- 254K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:08.70   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBCOPY    STEP CPU TIME  00:00:07.35   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0151 ------------ 0       0353 ----------- 61       0250 ----------- 82       0150 ----------- 92    *
*   0250 --------- 6024       0250 ---------- 857       0250 --------- 2434       0150 --------- 3224       0250 ---------- 598    *
*   0250 ---------- 112       0150 ---------- 604       0250 --------- 1428       0250 --------- 1722       0250 ---------- 433    *
*   0250 ---------- 494       0150 --------- 1198       0250 --------- 1369       0250 ---------- 396       0150 --------- 1828    *
*   0250 ---------- 294       0250 ---------- 417       0150 ---------- 514       0250 --------- 1783       0150 --------- 1885    *
*   0250 ----------- 30       0250 ----------- 92       0250 ----------- 30       0150 ------------ 0       0150 -------- 26670    *
*   0130 ---------- 387                                                                                                            *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21CY121  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1947
IEF374I STEP /ZEND    / STOP  78240.1947 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:47:09.48   ALLOC START    19:47:09.49   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:47:09.52   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21CY121/ START 78240.1947
IEF376I  JOB /R21CY121/ STOP  78240.1947 CPU   0MIN 07.35SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21CY121   JOB READ TIME 19:45:28.88   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:07.35   *
*   JOB CLASS A          JOB INIT TIME 19:47:00.75   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:08.78   *
*   ACCOUNT              JOB END TIME  19:47:09.53   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1      IIIIII     OOOOOOO        1      2222222    2222222                  A
            RRRRRRRRR  222222222      11      IIIIII    OOOOOOOOO      11     222222222  222222222                AAA
            RR     RR  22     22     111        II      OO     OO     111     22     22  22     22               AA AA
            RR     RR        22       11        II      OO     OO      11           22         22               AA   AA
            RRRRRRRRR       22        11        II      OO     OO      11          22         22               AA     AA
            RRRRRRRR       22         11        II      OO     OO      11         22         22                AA     AA
            RR  RR        22          11        II      OO     OO      11        22         22                 AAAAAAAAA
            RR   RR      22           11        II      OO     OO      11       22         22                  AAAAAAAAA
            RR    RR    22222222    111111    IIIIII    OOOOOOOOO    111111    22222222   22222222             AA     AA
            RR     RR  222222222    111111    IIIIII     OOOOOOO     111111   222222222  222222222             AA     AA

***********A  START   R21IO122   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21IO122   START  A***********
***********A  START   R21IO122   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21IO122   START  A***********
***********A  START   R21IO122   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21IO122   START  A***********
***********A  START   R21IO122   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21IO122   START  A***********
***********A  START   R21IO122   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21IO122   START  A***********


//R21IO122 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG126 EXEC PGM=IEHIOSUP,PARM=TSO,COND=(8,LT)
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSNAME=MVT1.SVCLIB,DISP=(OLD,PASS),                    XXXXXXXX
//             VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
IEF236I ALLOC. FOR R21IO122 SG126
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSUT1
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.R21IO122.R0000344     DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   MVT1.SVCLIB                                  PASSED
IEF285I   VOL SER NOS= ASPRES.
IEF373I STEP /SG126   / START 78240.1947
IEF374I STEP /SG126   / STOP  78240.1947 CPU   0MIN 00.59SEC MAIN  14K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:47:09.55   ALLOC START    19:47:09.56   MAIN REGION ----- 256K                          *
*   STEP NAME SG126      STEP END TIME  19:47:10.26   PGM START TIME 19:47:09.62   MAIN STORAGE ----- 14K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.71   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHIOSUP   STEP CPU TIME  00:00:00.59   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                                                  *
*   0158 ------------ 0       0150 ---------- 985                                                                                  *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21IO122  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1947
IEF374I STEP /ZEND    / STOP  78240.1947 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:47:10.28   ALLOC START    19:47:10.30   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:47:10.32   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF285I   MVT1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF375I  JOB /R21IO122/ START 78240.1947
IEF376I  JOB /R21IO122/ STOP  78240.1947 CPU   0MIN 00.59SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21IO122   JOB READ TIME 19:45:30.15   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.59   *
*   JOB CLASS A          JOB INIT TIME 19:47:09.55   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.79   *
*   ACCOUNT              JOB END TIME  19:47:10.34   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1      2222222   333333333                 A
            RRRRRRRRR  222222222      11     LL         KK    KK       11     222222222  333333333                AAA
            RR     RR  22     22     111     LL         KK   KK       111     22     22  33    33                AA AA
            RR     RR        22       11     LL         KK  KK         11           22        33                AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11          22        3333              AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         22        333333             AA     AA
            RR  RR        22          11     LL         KKK KK         11        22             33             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11       22       33     33             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111    22222222  333333333             AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111   222222222   3333333              AA     AA

***********A  START   R21LK123   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK123   START  A***********
***********A  START   R21LK123   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK123   START  A***********
***********A  START   R21LK123   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK123   START  A***********
***********A  START   R21LK123   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK123   START  A***********
***********A  START   R21LK123   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK123   START  A***********


//R21LK123 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG127 EXEC PGM=IFCDIP00,COND=(8,LT)
//STEPLIB DD   DSN=SYS1.CI505,DISP=SHR
//SERERDS DD   DSN=MVT1.LOGREC,DISP=(NEW,KEEP),                    XXXXXXXXX
//             VOLUME=(,RETAIN,SER=ASPRES),                          XXXXXXXXX
//             SPACE=(TRK,(22),,CONTIG),UNIT=3330
//ASRFRSH DD   DSNAME=MVT1.ASRLIB,DISP=(NEW,KEEP),                 XXXXXXXXX
//             VOLUME=(,RETAIN,SER=ASPRES),                          XXXXXXXXX
//             SPACE=(TRK,(5),,CONTIG),UNIT=3330
IEF236I ALLOC. FOR R21LK123 SG127
IEF237I 250   ALLOCATED TO STEPLIB
IEF237I 150   ALLOCATED TO SERERDS
IEF237I 150   ALLOCATED TO ASRFRSH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   MVT1.LOGREC                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   MVT1.ASRLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF373I STEP /SG127   / START 78240.1947
IEF374I STEP /SG127   / STOP  78240.1947 CPU   0MIN 00.02SEC MAIN   6K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:47:10.36   ALLOC START    19:47:10.37   MAIN REGION ----- 256K                          *
*   STEP NAME SG127      STEP END TIME  19:47:10.60   PGM START TIME 19:47:10.55   MAIN STORAGE ------ 6K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.24   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IFCDIP00   STEP CPU TIME  00:00:00.02   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0250 ------------ 0       0150 ------------ 1       0150 ------------ 0                                                        *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK123  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1947
IEF374I STEP /ZEND    / STOP  78240.1947 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:47:10.62   ALLOC START    19:47:10.64   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:47:10.66   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK123/ START 78240.1947
IEF376I  JOB /R21LK123/ STOP  78240.1947 CPU   0MIN 00.02SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK123   JOB READ TIME 19:45:30.22   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.02   *
*   JOB CLASS A          JOB INIT TIME 19:47:10.36   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.31   *
*   ACCOUNT              JOB END TIME  19:47:10.67   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     LL         KK     KK       1      2222222        44                   A
            RRRRRRRRR  222222222      11     LL         KK    KK       11     222222222      444                  AAA
            RR     RR  22     22     111     LL         KK   KK       111     22     22     4444                 AA AA
            RR     RR        22       11     LL         KK  KK         11           22     44 44                AA   AA
            RRRRRRRRR       22        11     LL         KK KK          11          22     44  44               AA     AA
            RRRRRRRR       22         11     LL         KKKKK          11         22     44   44               AA     AA
            RR  RR        22          11     LL         KKK KK         11        22      444444444             AAAAAAAAA
            RR   RR      22           11     LL         KK   KK        11       22       444444444             AAAAAAAAA
            RR    RR    22222222    111111   LLLLLLLLL  KK    KK     111111    22222222       44               AA     AA
            RR     RR  222222222    111111   LLLLLLLLL  KK     KK    111111   222222222       44               AA     AA

***********A  START   R21LK124   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK124   START  A***********
***********A  START   R21LK124   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK124   START  A***********
***********A  START   R21LK124   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK124   START  A***********
***********A  START   R21LK124   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK124   START  A***********
***********A  START   R21LK124   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21LK124   START  A***********


//R21LK124 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG128 EXEC PGM=IEHPROGM,COND=(8,LT)
//TARG DD VOLUME=SER=ASPRES,DISP=OLD,UNIT=3330
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
IEF236I ALLOC. FOR R21LK124 SG128
IEF237I 150   ALLOCATED TO TARG
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSIN


SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0001



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.LOGREC
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.ASRLIB
NORMAL END OF TASK RETURNED FROM CATLG



UTILITY END


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.RV000.R21LK124.R0000345     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.SV000.R21LK124.R0000346     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.R21LK124.S0000347     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21LK124.S0000347     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG128   / START 78240.1947
IEF374I STEP /SG128   / STOP  78240.1947 CPU   0MIN 00.32SEC MAIN  30K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:47:10.71   ALLOC START    19:47:10.72   MAIN REGION ----- 256K                          *
*   STEP NAME SG128      STEP END TIME  19:47:11.20   PGM START TIME 19:47:10.77   MAIN STORAGE ----- 30K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.49   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHPROGM   STEP CPU TIME  00:00:00.32   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0150 ------------ 0       0158 ------------ 9       0130 ------------ 3                                                        *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21LK124  ** F A I L E D **** F A I L E D ****',
// COND=(4,GE)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1947
IEF374I STEP /ZEND    / STOP  78240.1947 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:47:11.21   ALLOC START    19:47:11.22   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:47:11.26   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21LK124/ START 78240.1947
IEF376I  JOB /R21LK124/ STOP  78240.1947 CPU   0MIN 00.32SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21LK124   JOB READ TIME 19:45:30.28   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.32   *
*   JOB CLASS A          JOB INIT TIME 19:47:10.71   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.56   *
*   ACCOUNT              JOB END TIME  19:47:11.27   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




            RRRRRRRR    2222222        1     RRRRRRRR   N      NN       1      2222222   555555555                 A
            RRRRRRRRR  222222222      11     RRRRRRRRR  NN     NN      11     222222222  555555555                AAA
            RR     RR  22     22     111     RR     RR  NNN    NN     111     22     22  55                      AA AA
            RR     RR        22       11     RR     RR  NNNN   NN      11           22   55555555               AA   AA
            RRRRRRRRR       22        11     RRRRRRRRR  NN NN  NN      11          22    555555555             AA     AA
            RRRRRRRR       22         11     RRRRRRRR   NN  NN NN      11         22            55             AA     AA
            RR  RR        22          11     RR  RR     NN   NNNN      11        22             55             AAAAAAAAA
            RR   RR      22           11     RR   RR    NN    NNN      11       22       55     55             AAAAAAAAA
            RR    RR    22222222    111111   RR    RR   NN     NN    111111    22222222  555555555             AA     AA
            RR     RR  222222222    111111   RR     RR  NN      N    111111   222222222   5555555              AA     AA

***********A  START   R21RN125   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21RN125   START  A***********
***********A  START   R21RN125   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21RN125   START  A***********
***********A  START   R21RN125   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21RN125   START  A***********
***********A  START   R21RN125   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21RN125   START  A***********
***********A  START   R21RN125   SYS SYSA   WTR 00E   07:47:39 PM  28 AUG 1978   WTR 00E   SYS SYSA   R21RN125   START  A***********


//R21RN125 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
*** *** RELEASE 21.8  MVT  RELEASE 21.8 ***
//SG129 EXEC PGM=IEHPROGM,COND=(8,LT)
//SYSPRINT DD  SYSOUT=A
//SYSRES DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//LINK DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//PRC DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//COB DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//FOR DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//SOR DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//PL1 DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//TEL DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//ALG DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//PAR DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//CMD DD DISP=OLD,VOLUME=(,RETAIN,SER=ASPRES),UNIT=3330
//IMG DD DISP=SHR,VOL=(,RETAIN,SER=ASPRES),UNIT=3330
//SYSIN DD *
IEF236I ALLOC. FOR R21RN125 SG129
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSRES
IEF237I 150   ALLOCATED TO LINK
IEF237I 150   ALLOCATED TO PRC
IEF237I 150   ALLOCATED TO COB
IEF237I 150   ALLOCATED TO FOR
IEF237I 150   ALLOCATED TO SOR
IEF237I 150   ALLOCATED TO PL1
IEF237I 150   ALLOCATED TO TEL
IEF237I 150   ALLOCATED TO ALG
IEF237I 150   ALLOCATED TO PAR
IEF237I 150   ALLOCATED TO CMD
IEF237I 150   ALLOCATED TO IMG
IEF237I 130   ALLOCATED TO SYSIN


SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0001



 RENAME DSNAME=MVT1.NUCLEUS,NEWNAME=SYS1.NUCLEUS,                  XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.LOGREC,NEWNAME=SYS1.LOGREC,                    XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.ASRLIB,NEWNAME=SYS1.ASRLIB,                    XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.SVCLIB,NEWNAME=SYS1.SVCLIB,                    XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.LINKLIB,NEWNAME=SYS1.LINKLIB,                  XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.PROCLIB,NEWNAME=SYS1.PROCLIB,                  XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.COBLIB,NEWNAME=SYS1.COBLIB,                    XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0002



 RENAME DSNAME=MVT1.FORTLIB,NEWNAME=SYS1.FORTLIB,                  XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.SORTLIB,NEWNAME=SYS1.SORTLIB,                  XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.PL1LIB,NEWNAME=SYS1.PL1LIB,                    XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.TELCMLIB,NEWNAME=SYS1.TELCMLIB,                XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.ALGLIB,NEWNAME=SYS1.ALGLIB,                    XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.PARMLIB,NEWNAME=SYS1.PARMLIB,                  XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.CMDLIB,NEWNAME=SYS1.CMDLIB,                    XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0003



 RENAME DSNAME=MVT1.IMAGELIB,NEWNAME=SYS1.IMAGELIB,                XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



 RENAME DSNAME=MVT1.DCMLIB,NEWNAME=SYS1.DCMLIB,                    XXXXXXXX
               VOL=3330=ASPRES
NORMAL END OF TASK RETURNED FROM RENAME



UTILITY END


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.R21RN125.R0000348     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.R21RN125.R0000349     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN125.R0000350     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN125.R0000351     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN125.R0000352     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN125.R0000353     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN125.R0000354     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN125.R0000355     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN125.R0000356     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN125.R0000357     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN125.R0000358     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN125.R0000359     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN125.R0000360     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.R21RN125.S0000361     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.R21RN125.S0000361     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /SG129   / START 78240.1947
IEF374I STEP /SG129   / STOP  78240.1947 CPU   0MIN 00.10SEC MAIN  30K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:47:11.28   ALLOC START    19:47:11.29   MAIN REGION ----- 256K                          *
*   STEP NAME SG129      STEP END TIME  19:47:11.50   PGM START TIME 19:47:11.35   MAIN STORAGE ----- 30K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.22   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHPROGM   STEP CPU TIME  00:00:00.10   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0353 ----------- 69       0150 ------------ 0       0150 ------------ 0       0150 ------------ 0       0150 ------------ 0    *
*   0150 ------------ 0       0150 ------------ 0       0150 ------------ 0       0150 ------------ 0       0150 ------------ 0    *
*   0150 ------------ 0       0150 ------------ 0       0150 ------------ 0       0130 ----------- 33                              *
************************************************************************************************************************************

//ZEND  EXEC PGM=ZMSG,
// PARM='**** R21RN125  ** F A I L E D **** F A I L E D ****',
// COND=(0,EQ)
//
IEF202I - STEP - ZEND    , WAS NOT RUN BECAUSE OF CONDITION CODES.
IEF373I STEP /ZEND    / START 78240.1947
IEF374I STEP /ZEND    / STOP  78240.1947 CPU   0MIN 00.00SEC MAIN   0K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:47:11.52   ALLOC START    19:47:11.53   MAIN REGION ------- 0K                          *
*   STEP NAME ZEND       STEP END TIME  19:47:11.55   PGM START TIME 00:00:00.00   MAIN STORAGE ------ 0K       STEP WAS FLUSHED   *
*   PSTP NAME            ELAPSED TIME   00:00:00.03   STEP DPRTY ------------- 0   LCS REGION -------- 0K                          *
*   PGM NAME  ZMSG       STEP CPU TIME  00:00:00.00   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
************************************************************************************************************************************

IEF375I  JOB /R21RN125/ START 78240.1947
IEF376I  JOB /R21RN125/ STOP  78240.1947 CPU   0MIN 00.10SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  R21RN125   JOB READ TIME 19:45:30.36   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.10   *
*   JOB CLASS A          JOB INIT TIME 19:47:11.28   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.28   *
*   ACCOUNT              JOB END TIME  19:47:11.56   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG        1     777777777  PPPPPPPP    OOOOOOO    SSSSSSS   TTTTTTTT   M       M                 A
            GGGGGGGGG      11     777777777  PPPPPPPPP  OOOOOOOOO  SSSSSSSSS  TTTTTTTT   MM     MM                AAA
            GG     GG     111     77     77  PP     PP  OO     OO  SS     SS     TT      MMM   MMM               AA AA
            GG             11           77   PP     PP  OO     OO  SS            TT      MMMM MMMM              AA   AA
            GG             11          77    PPPPPPPPP  OO     OO  SSSSSSSS      TT      MM MMM MM             AA     AA
            GG   GGGG      11         77     PPPPPPPP   OO     OO   SSSSSSSS     TT      MM  M  MM             AA     AA
            GG   GGGG      11        77      PP         OO     OO         SS     TT      MM     MM             AAAAAAAAA
            GG     GG      11        77      PP         OO     OO  SS     SS     TT      MM     MM             AAAAAAAAA
            GGGGGGGGG    111111      77      PP         OOOOOOOOO  SSSSSSSSS     TT      MM     MM             AA     AA
             GGGGGGG     111111      77      PP          OOOOOOO    SSSSSSS      TT      MM     MM             AA     AA

***********A  START   G17POSTM   SYS SYSA   WTR 00E   07:48:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   G17POSTM   START  A***********
***********A  START   G17POSTM   SYS SYSA   WTR 00E   07:48:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   G17POSTM   START  A***********
***********A  START   G17POSTM   SYS SYSA   WTR 00E   07:48:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   G17POSTM   START  A***********
***********A  START   G17POSTM   SYS SYSA   WTR 00E   07:48:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   G17POSTM   START  A***********
***********A  START   G17POSTM   SYS SYSA   WTR 00E   07:48:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   G17POSTM   START  A***********


//G17POSTM JOB A,'G17POSTGEN-MVT',MSGCLASS=A,CLASS=A,COND=(7,LT)
***********************************************************************
***                                                                 ***
***    Job:      G17POSTGEN-MVT                                     ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  ASP post-sysgen job for MVT.                       ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
***-----------------------------------------------------------------***
***      RENAME IGG0190A IN SYS1.SVCLIB TO IGG0190$.                ***
***-----------------------------------------------------------------***
//CTLPRG  EXEC PGM=ASPPROGM,
//             PARM='&REL,&RENAME,3330,ASPRES'
//STEPLIB  DD DISP=SHR,UNIT=SYSDA,VOL=SER=ASPSUP,DSN=ASP.ASPPGMS
//SYSPRINT DD SYSOUT=A
//SVCLIB   DD DSN=SYS1.SVCLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//SYSIN    DD DSN=&&CTLCARDS,UNIT=SYSDA,SPACE=(TRK,(1,1))
***
***-----------------------------------------------------------------***
***      LINK ASP-SUPPLIED VERSION OF IFG0192Z CTC OPEN SVC.        ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM CTLPRG
IEF237I 151   ALLOCATED TO STEPLIB
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SVCLIB
IEF237I 353   ALLOCATED TO SYSIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.ASPPGMS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000362     DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G17POSTM.CTLCARDS     DELETED
IEF285I   VOL SER NOS= PERM01.
IEF373I STEP /CTLPRG  / START 78240.1948
IEF374I STEP /CTLPRG  / STOP  78240.1948 CPU   0MIN 00.01SEC MAIN   6K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:48:11.57   ALLOC START    19:48:11.58   MAIN REGION ----- 256K                          *
*   STEP NAME CTLPRG     STEP END TIME  19:48:11.71   PGM START TIME 19:48:11.65   MAIN STORAGE ------ 6K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.14   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  ASPPROGM   STEP CPU TIME  00:00:00.01   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0151 ------------ 0       0158 ------------ 0       0150 ------------ 0       0353 ------------ 0                              *
************************************************************************************************************************************

//R21LSVC EXEC PGM=IEWL,PARM='NCAL,LIST,XREF,LET,RENT'
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSN=&&UT1,UNIT=SYSDA,SPACE=(CYL,(5,1))
//SYSLMOD  DD DSN=SYS1.SVCLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//OBJ320   DD DSN=ASP.OBJ320,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPSUP
//SYSLIN   DD DDNAME=SYSIN
//SYSIN    DD *
***
***-----------------------------------------------------------------***
***      LINK ASP-SUPPLIED VERSION OF IFG0552X IF PTF               ***
***      US05591 IS NOT INSTALLED.                                  ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM R21LSVC
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 151   ALLOCATED TO OBJ320
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE OBJ320(MVT0192Z)
IEW0000     NAME  IFG0192Z(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFG0192Z      00     400


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IFG0192Z  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000363     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G17POSTM.UT1          DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   ASP.OBJ320                                   KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000364     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000364     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /R21LSVC / START 78240.1948
IEF374I STEP /R21LSVC / STOP  78240.1948 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:48:11.74   ALLOC START    19:48:11.75   MAIN REGION ----- 256K                          *
*   STEP NAME R21LSVC    STEP END TIME  19:48:11.90   PGM START TIME 19:48:11.81   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.16   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0353 ----------- 19       0158 ------------ 0       0150 ------------ 6       0151 ------------ 2       0130 ------------ 3    *
************************************************************************************************************************************

//R21LEOV EXEC PGM=IEWL,PARM='NCAL,LIST,XREF,LET,RENT'                       EOV
//SYSPRINT DD SYSOUT=A                                                       EOV
//SYSUT1   DD DSN=&&UT1,UNIT=SYSDA,SPACE=(CYL,(5,1))                         EOV
//SYSLMOD  DD DSN=SYS1.SVCLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES             EOV
//OBJ320   DD DSN=ASP.OBJ320,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPSUP
//SYSLIN   DD *
***
***-----------------------------------------------------------------***
***      EXPAND LOAD MODULE IEFW21SD CSECT IEFW21SD USING           ***
***      DELINK PROGRAM.                                            ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM R21LEOV
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 151   ALLOCATED TO OBJ320
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE OBJ320(IFG0552X)
IEW0000     NAME IFG0552X(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IFG0552X      00     400


 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IFG0552X  NOW REPLACED IN DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000365     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.UT1          DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   ASP.OBJ320                                   KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000366     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000366     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /R21LEOV / START 78240.1948
IEF374I STEP /R21LEOV / STOP  78240.1948 CPU   0MIN 00.05SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 19:48:11.93   ALLOC START    19:48:11.94   MAIN REGION ----- 256K                          *
*   STEP NAME R21LEOV    STEP END TIME  19:48:12.07   PGM START TIME 19:48:12.00   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.14   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0158 ----------- 19       0353 ------------ 0       0150 ------------ 6       0151 ------------ 2       0130 ------------ 3    *
************************************************************************************************************************************

//R21DLNK1 EXEC PGM=DELINK
//STEPLIB  DD DISP=SHR,UNIT=SYSDA,VOL=SER=ASPSUP,DSN=ASP.ASPPGMS
//SYSPRINT DD SYSOUT=A
//SYSLIB   DD DSN=SYS1.LINKLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//SYSPUNCH DD DSN=&&TEMP21Q,DISP=(,PASS),UNIT=SYSDA,
// SPACE=(CYL,(1,1))
//SYSIN    DD *
***
***-----------------------------------------------------------------***
***      RELINK EXPANDED IEFW21SD INTO SYS1.LINKLIB.                ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM R21DLNK1
IEF237I 151   ALLOCATED TO STEPLIB
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 159   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


          DELINK0        V01 L0   EXPAND AND NOT EDITABLE FUNCTION  08 / 08 / 69

> IEFW21SD IEFW21SD X'538'


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.ASPPGMS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000367     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G17POSTM.TEMP21Q      PASSED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000368     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000368     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /R21DLNK1/ START 78240.1948
IEF374I STEP /R21DLNK1/ STOP  78240.1948 CPU   0MIN 00.04SEC MAIN  50K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  004        STEP INIT TIME 19:48:12.10   ALLOC START    19:48:12.10   MAIN REGION ----- 256K                          *
*   STEP NAME R21DLNK1   STEP END TIME  19:48:12.23   PGM START TIME 19:48:12.17   MAIN STORAGE ----- 50K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.13   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  DELINK     STEP CPU TIME  00:00:00.04   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ------------ 2       0150 ----------- 20       0159 ----------- 32       0130 ------------ 2    *
************************************************************************************************************************************

//R21RLNK1 EXEC PGM=IEWL,PARM='NCAL,LIST,XREF,LET'
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSN=&&UT1,UNIT=SYSDA,SPACE=(CYL,(5,1))
//SYSLMOD  DD DSN=SYS1.LINKLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//SYSLIN   DD DSN=&&TEMP21Q,DISP=(OLD,DELETE)
//         DD DDNAME=SYSIN
//SYSIN    DD *
***
***-----------------------------------------------------------------***
***      EXPAND LOAD MODULE IEFSD061 CSECT IEFW42SD USING           ***
***      DELINK PROGRAM.                                            ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM R21RLNK1
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 159   ALLOCATED TO SYSLIN
IEF237I 130   ALLOCATED TO


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSLMOD(IEFW21SD)
IEW0000     ALIAS   IEFVM1,IEFXA,IEFVMCVL
IEW0000     ENTRY   IEFW21SD
IEW0000     SETSSI 00200000
IEW0000     NAME    IEFW21SD(R)
****IEFW21SD  NOW REPLACED IN DATA SET
****IEFVMCVL  IS AN ALIAS FOR THIS MEMBER
****IEFXA     IS AN ALIAS FOR THIS MEMBER
****IEFVM1    IS AN ALIAS FOR THIS MEMBER


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFW21SD      00     538
  IEFVM1       538    1118
                                        IEFVM        538    VM7000       538    VM1BASE      53A    VM7030D      676
                                        VM7055AA     9F8    VM7055       A1A    VM1R1        A30    VM7060       A64
                                        VM7070       AC6    VM1R2        CFC    VM7090       D62    VM7370       F06
                                        VM7750      10BA    VM7850      1470
  IEFVMVTE    1650     3D8
                                        VM7130      1650    VM7700      1818
  IEFVMQMI    1A28      78
                                        VM7742      1A28
  IEFVMPDQ    1AA0     41C
                                        VM7900      1AA0    VM7950      1D34    IEFVMCVL    1E68
  IEFSD180    1EC0     374
                                        IEFSD18     1EC0
  IEFR102     2238      67
  IEFW41SD    22A0      16
                                        IEFW1FAK    22A0    IEFW2FAK    22A0
  IEFWSTRT    22B8      EB
                                        WTERM040    22EC    WTERM045    232C    WSTRTFOR    2370
  IEFVM3      23A8     338
                                        VM7150      23A8    VM3BASE     23B2    VM3LOC      25B8
  IEFVM5      26E0     20E
                                        VM7300      26E0    VM5BASE     26EA    VM5LOC      274C
  IEFVM2      28F0      C8
                                        VM7100      28F0
  IEFVM4      29B8     44E
                                        VM7200      29B8
  IEFQMSSS    2E08      1C
  IEFYS       2E28     17C
  IEFVM76     2FA8      DC
  IEFQASGN    3088     56A
  IEFQASNM    35F8      7E
  IEFQMRAW    3678     1D4
  IEFQMWTO    3850      42
  IEFSD111    3898     268

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  CHFILRDW    3B00     36C
  IEFCVOL1    3E70      4A
                                        IEFCVOL2    3E8A    IEFCVOL3    3EA2
  IEFXA       3EC0     9FC
  IEFXAB00    48C0     EF0
  IEFSCAN     57B0      E4
                                        UCBSCAN     5832    UCBCONT     5832
  IEFDEVPT    5898      38
  CHLOADTB    58D0      20
  IEFVKMSG    58F0      92
                                        IEFVKMJ1    58F0    IEFVKMJ3    5934
  IEFWA000    5988      18
  IEFXAMSG    59A0      88
                                        WTOMSG1     59F0
  IEFWC000    5A28      18
  IEFWD000    5A40      18
  IEFVK       5A58     247
  IEFVM6      5CA0      16
  IEFACTLK    5CB8       2



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4C8            IEFACTLK        IEFACTLK                     4CC            IEFQMRAW        IEFQMRAW
      4D0            IEFVK           IEFVK                        4D4            IEFVM1          IEFVM1
      4D8            IEFWD000        IEFWD000                     4DC            IEFYS           IEFYS
      4E0            IEFR102         IEFR102                      4E4            IEFWSTRT        IEFWSTRT
      4E8            WTERM040        IEFWSTRT                     4EC            WSTRTFOR        IEFWSTRT
      E20            IEFVM2          IEFVM2                       E28            IEFQMSSS        IEFQMSSS
      E2C            IEFXA           IEFXA                        E30            IEFVM2          IEFVM2
      E34            IEFVM3          IEFVM3                       E38            IEFVM4          IEFVM4
      E3C            IEFVM5          IEFVM5                       E40            IEFVM6          IEFVM6
      E44            IEFVM76         IEFVM76                      E48            IEFCVOL1        IEFCVOL1
      E4C            IEFSD18         IEFSD180                    104C            IEFVMVTE        IEFVMVTE
     1054            IEFVMVTE        IEFVMVTE                    105C            IEFVMVTE        IEFVMVTE
     1058            IEFVMQMI        IEFVMQMI                    1044            IEFVMPDQ        IEFVMPDQ
     1048            IEFVMPDQ        IEFVMPDQ                    1628            IEFQMSSS        IEFQMSSS
     162C            IEFXA           IEFXA                       1630            IEFVM2          IEFVM2
     1634            IEFVM3          IEFVM3                      1638            IEFVM4          IEFVM4
     163C            IEFVM5          IEFVM5                      1640            IEFVM6          IEFVM6
     1644            IEFVM76         IEFVM76                     1648            IEFCVOL1        IEFCVOL1
     164C            IEFSD18         IEFSD180                    15E8            IEFVMVTE        IEFVMVTE
     15F0            IEFVMVTE        IEFVMVTE                    15F8            IEFVMVTE        IEFVMVTE
     15FC            IEFVMVTE        IEFVMVTE                    15F4            IEFVMQMI        IEFVMQMI
     15E0            IEFVMPDQ        IEFVMPDQ                    15E4            IEFVMPDQ        IEFVMPDQ
     1A20            IEFVM1          IEFVM1                      16E4            IEFVMQMI        IEFVMQMI
     173C            IEFVMQMI        IEFVMQMI                    1A24            IEFVMQMI        IEFVMQMI
     1A94            IEFVM1          IEFVM1                      1A98            IEFVM1          IEFVM1
     1A9C            IEFQMSSS        IEFQMSSS                    1E98            IEFVM1          IEFVM1
     1E9C            IEFVM1          IEFVM1                      1E5C            IEFVMQMI        IEFVMQMI
     1EA0            IEFVM1          IEFVM1                      1EAC            IEFVM1          IEFVM1

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     1EB0            IEFVM1          IEFVM1                      1EA4            VM3LOC          IEFVM3
     1EA8            VM5LOC          IEFVM5                      1EB4            VM3BASE         IEFVM3
     1EB8            VM5BASE         IEFVM5                      21F4            VM7030D         IEFVM1
     21F8            VM7742          IEFVMQMI                    21FC            VM7900          IEFVMPDQ
     2200            VM7950          IEFVMPDQ                    2204            VM7850          IEFVM1
     26DC            VM1BASE         IEFVM1                      28DC            VM1R1           IEFVM1
     28E0            VM1R2           IEFVM1                      2DDC            IEFVKMJ3        IEFVKMSG
     2DE0            IEFYS           IEFYS                       2E1C            IEFQMRAW        IEFQMRAW
     2E20            IEFQASGN        IEFQASGN                    2F88            IEFQASGN        IEFQASGN
     2F8C            IEFQMRAW        IEFQMRAW                    3068            VM7742          IEFVMQMI
     306C            VM7850          IEFVM1                      3070            VM7090          IEFVM1
     359C            IEFQASNM        IEFQASNM                    35BC            IEFSD111        IEFSD111
     3838            IEFSD111        IEFSD111                    3834            IEFQMWTO        IEFQMWTO
     3AFC            CHFILRDW        CHFILRDW                    4788            IEFWA000        IEFWA000
     4794            IEFWC000        IEFWC000                    47BC            IEFW41SD        IEFW41SD
     47C0            IEFXAMSG        IEFXAMSG                    47E4            IEFYS           IEFYS
     4820            IEFQMSSS        IEFQMSSS                    488C            UCBCONT         IEFSCAN
     4890            IEFDEVPT        IEFDEVPT                    4894            IEFSCAN         IEFSCAN
     48B4            CHLOADTB        CHLOADTB                    4898            IEFXAB00        IEFXAB00
     5890            IEFDEVPT        IEFDEVPT                    5C74            IEFQMSSS        IEFQMSSS
     5C78            IEFVM           IEFVM1                      5C7C            IEFYS           IEFYS
     5C80            IEFVKMJ1        IEFVKMSG
 ENTRY ADDRESS       00
 TOTAL LENGTH      5CC0





IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000369     SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.UT1          DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G17POSTM.TEMP21Q      DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000370     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000370     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /R21RLNK1/ START 78240.1948
IEF374I STEP /R21RLNK1/ STOP  78240.1948 CPU   0MIN 00.16SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  005        STEP INIT TIME 19:48:12.25   ALLOC START    19:48:12.26   MAIN REGION ----- 256K                          *
*   STEP NAME R21RLNK1   STEP END TIME  19:48:12.51   PGM START TIME 19:48:12.33   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.26   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.16   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0159 ---------- 132       0353 ----------- 12       0150 ----------- 73       0159 ----------- 33       0130 ------------ 6    *
************************************************************************************************************************************

//R21DLNK2 EXEC PGM=DELINK
//STEPLIB  DD DISP=SHR,UNIT=SYSDA,VOL=SER=ASPSUP,DSN=ASP.ASPPGMS
//SYSPRINT DD SYSOUT=A
//SYSLIB   DD DSN=SYS1.LINKLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//SYSPUNCH DD DSN=&&TEMP42Q,DISP=(,PASS),UNIT=SYSDA,
// SPACE=(CYL,(1,1))
//SYSIN    DD *
***
***-----------------------------------------------------------------***
***      RELINK EXPANDED IEFSD061 INTO SYS1.LINKLIB.                ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM R21DLNK2
IEF237I 151   ALLOCATED TO STEPLIB
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


          DELINK0        V01 L0   EXPAND AND NOT EDITABLE FUNCTION  08 / 08 / 69

> IEFSD061 IEFW42SD X'1B0'


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.ASPPGMS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000371     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G17POSTM.TEMP42Q      PASSED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000372     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000372     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /R21DLNK2/ START 78240.1948
IEF374I STEP /R21DLNK2/ STOP  78240.1948 CPU   0MIN 00.04SEC MAIN  50K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  006        STEP INIT TIME 19:48:12.54   ALLOC START    19:48:12.55   MAIN REGION ----- 256K                          *
*   STEP NAME R21DLNK2   STEP END TIME  19:48:12.67   PGM START TIME 19:48:12.61   MAIN STORAGE ----- 50K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.13   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  DELINK     STEP CPU TIME  00:00:00.04   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ------------ 2       0150 ----------- 21       0130 ----------- 13       0130 ------------ 2    *
************************************************************************************************************************************

//R21RLNK2 EXEC PGM=IEWL,PARM='NCAL,LIST,XREF,LET,RENT'
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSN=&&UT1,UNIT=SYSDA,SPACE=(CYL,(5,1))
//SYSLMOD  DD DSN=SYS1.LINKLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//SYSLIN   DD DSN=&&TEMP42Q,DISP=(OLD,DELETE)
//         DD DDNAME=SYSIN
//SYSIN    DD *
***
***-----------------------------------------------------------------***
***      EXPAND LOAD MODULE IGC0003E CSECT IGC0003E USING           ***
***      DELINK PROGRAM.                                            ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM R21RLNK2
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 130   ALLOCATED TO SYSLIN
IEF237I 130   ALLOCATED TO


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSLMOD(IEFSD061)
IEW0000     ALIAS IEFSD064,IEFW42SD,IEFSD104
IEW0000     ENTRY IEFSD061
IEW0000     SETSSI 00200000
IEW0000     NAME IEFSD061(R)
****IEFSD061  NOW REPLACED IN DATA SET
****IEFSD104  IS AN ALIAS FOR THIS MEMBER
****IEFW42SD  IS AN ALIAS FOR THIS MEMBER
****IEFSD064  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED NOT REENTERABLE, AND REUSABLE.


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFW42SD      00     1B0
  IEFSD061     1B0     A20
  QMTMSG       BD0      2D
  IEFDSOSL     C00     1D1
  IEFSD064     DD8     504
  IEFSD066    12E0     2CE
  IEFDSTBL    15B0     2B8
  IEFDSLST    1868     194
  IEFDSTRT    1A00     1FF
  IEFACTLK    1C00     468
  IEFACTRT    2068       2
  IEFUJI      2070       4
  IEFUSI      2078       4
  IEFSMFWI    2080     69A
  IEFSMFIE    2720     2EA
  IEFSD101    2A10     388
  IEFSD104    2D98     1E0
  IEFSDPPT    2F78      33
  IEFIDMPM    2FB0     219
  IEFIDUMP    31D0     4A8
  IEFYN       3678     6FB
  WTERM020    3D78      3D
  IEFYP       3DB8     4AF
  IEFVJ       4268     190
  WTERM030    43F8      4B
  IEFZG       4448     B9E
                                        ZGOJ5       4712    ZGOJ8       4738
  IEFZG2      4FE8     96A
                                        ZGOK09      4FE8    ZOOA1       53D0    ZOOE10      5600    ZPOC10      5716
                                        ZPOQMGR1    57F4
  IEFW22SD    5958      E0
  IEFZGMSG    5A38     16D
  IEFZH       5BA8     FBA
                                        ZGOE60      5C0C    ZKOD1       5F5C    ZKOE1       641C    XPS631      6928

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFWTERM    6B68      A7
                                        WTERM050    6B9C    WTERMFOR    6BDC
  IEFW31SD    6C10     C74
  IEFW32SD    7888      16
  IEFSD060    78A0      16
  IEFYT       78B8     422
  IEFQMSSS    7CE0      1C
  IEFYS       7D00     17C
  IEFQASGN    7E80     56A
  IEFQASNM    83F0      7E
  IEFQMRAW    8470     1D4
  IEFQMWTO    8648      42
  IEFQMNQ2    8690     3D6
  IEFQMDQ2    8A68     522
  IEFQDELE    8F90     292
  IEFQMUNC    9228     2A0
  IEFVJMSG    94C8      36
  IEFYNMSG    9500      50
                                        STRMSG01    9500    STRMSG02    9522
  IEFYPMSG    9550      B7
                                        YPPMSG3     9550    YPPMSG4     9586    YPPMSG7     95A9    YPPMSG8     95DF
  IEFSD110    9608     248
  IEFSD111    9850     268
  CHFILRDW    9AB8     36C
  IEFSD112    9E28     130
  IEFZA       9F58     15E
  IEFZGJ      A0B8     C9E
                                        ZPOQM       ABE0
  IEFRPREP    AD58     3E8
  IEFSD514    B140     354
  IEFSD068    B498     460
  IEFVSDRA    B8F8     218
  IEFYRCDS    BB10      64



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      17C            IEFQMRAW        IEFQMRAW                     180            IEFYN           IEFYN
      184            IEFIDUMP        IEFIDUMP                     A6C            IEFDSTBL        IEFDSTBL
      A70            IEFDSLST        IEFDSLST                     B14            IEFSD060        IEFSD060
      B18            IEFSD101        IEFSD101                     B1C            IEFQMRAW        IEFQMRAW
      B20            IEFQMDQ2        IEFQMDQ2                     B24            IEFDSOSL        IEFDSOSL
      B84            IEFQMUNC        IEFQMUNC                     BCC            QMTMSG          QMTMSG
     12A4            IEFQMRAW        IEFQMRAW                    12A8            IEFSD068        IEFSD068
     12AC            IEFSD066        IEFSD066                    12B0            IEFSD101        IEFSD101
     12B4            IEFW42SD        IEFW42SD                    12B8            IEFSD110        IEFSD110
     12F8            IEFQMRAW        IEFQMRAW                    1588            IEFQDELE        IEFQDELE
     158C            IEFSD061        IEFSD061                    1864            IEFDSTRT        IEFDSTRT
     205C            IEFACTRT        IEFACTRT                    2060            IEFQMSSS        IEFQMSSS
     2064            IEFSMFWI        IEFSMFWI                    2688            IEFYS           IEFYS
     29E8            IEFQMRAW        IEFQMRAW                    29EC            IEFUJI          IEFUJI

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     29F0            IEFUSI          IEFUSI                      2D8C            IEFSD112        IEFSD112
     2D90            IEFSMFIE        IEFSMFIE                    2D94            IEFSDPPT        IEFSDPPT
     2F70            IEFSD064        IEFSD064                    2F74            IEFSD514        IEFSD514
     3614            IEFYN           IEFYN                       3648            IEFIDMPM        IEFIDMPM
     364C            IEFYS           IEFYS                       3CD0            STRMSG01        IEFYNMSG
     3CD4            STRMSG02        IEFYNMSG                    3CD8            IEFYS           IEFYS
     3CDC            IEFACTLK        IEFACTLK                    3CE0            IEFW22SD        IEFW22SD
     3CE4            IEFYP           IEFYP                       3CE8            IEFZA           IEFZA
     3CEC            IEFRPREP        IEFRPREP                    3CF0            IEFVJ           IEFVJ
     3CF4            WTERM020        WTERM020                    4224            IEFQMSSS        IEFQMSSS
     4228            IEFZG           IEFZG                       422C            IEFYS           IEFYS
     4230            YPPMSG3         IEFYPMSG                    4234            YPPMSG4         IEFYPMSG
     4238            YPPMSG7         IEFYPMSG                    423C            YPPMSG8         IEFYPMSG
     43D4            WTERM030        WTERM030                    43D8            IEFVJMSG        IEFVJMSG
     43DC            IEFYS           IEFYS                       43E0            IEFW22SD        IEFW22SD
     43E8            IEFW22SD        IEFW22SD                    43E4            IEFACTLK        IEFACTLK
     4F6C            IEFYT           IEFYT                       4F70            ZPOQMGR1        IEFZG2
     4F74            ZGOK09          IEFZG2                      4F78            ZPOC10          IEFZG2
     4F7C            ZOOA1           IEFZG2                      4F80            ZOOE10          IEFZG2
     4F84            IEFQMSSS        IEFQMSSS                    4F88            IEFZGMSG        IEFZGMSG
     4F8C            IEFZH           IEFZH                       4F90            ZGOE60          IEFZH
     5920            IEFQMSSS        IEFQMSSS                    5924            IEFZH           IEFZH
     5928            ZGOJ5           IEFZG                       592C            ZKOE1           IEFZH
     5930            ZGOJ8           IEFZG                       5A34            IEFQMRAW        IEFQMRAW
     6A78            IEFYS           IEFYS                       6A7C            IEFZGMSG        IEFZGMSG
     6A80            ZPOQMGR1        IEFZG2                      779C            IEFQMRAW        IEFQMRAW
     77A0            IEFYS           IEFYS                       77A4            WTERM050        IEFWTERM
     77A8            WTERMFOR        IEFWTERM                    77AC            IEFQMNQ2        IEFQMNQ2
     77B0            IEFWTERM        IEFWTERM                    77B8            IEFW32SD        IEFW32SD
     77BC            IEFQDELE        IEFQDELE                    7C90            IEFQMRAW        IEFQMRAW
     7CF4            IEFQMRAW        IEFQMRAW                    7CF8            IEFQASGN        IEFQASGN
     7E60            IEFQASGN        IEFQASGN                    7E64            IEFQMRAW        IEFQMRAW
     8394            IEFQASNM        IEFQASNM                    83B4            IEFSD111        IEFSD111
     8630            IEFSD111        IEFSD111                    862C            IEFQMWTO        IEFQMWTO
     8A30            IEFSD111        IEFSD111                    8A34            IEFSD112        IEFSD112
     8F0C            IEFSD111        IEFSD111                    8F10            IEFSD110        IEFSD110
     9204            IEFSD112        IEFSD112                    945C            IEFQMWTO        IEFQMWTO
     9AB4            CHFILRDW        CHFILRDW                    9F54            CHFILRDW        CHFILRDW
     A09C            IEFQMSSS        IEFQMSSS                    A0A0            IEFZGJ          IEFZGJ
     A0A4            IEFW31SD        IEFW31SD                    A0A8            IEFACTLK        IEFACTLK
     ACDC            IEFYS           IEFYS                       ACE0            IEFQMSSS        IEFQMSSS
     ACE4            IEFZGMSG        IEFZGMSG                    ACE8            IEFZH           IEFZH
     ACEC            ZGOE60          IEFZH                       ACF0            ZKOE1           IEFZH
     ACF4            XPS631          IEFZH                       B11C            IEFQMSSS        IEFQMSSS
     B120            IEFYRCDS        IEFYRCDS                    B48C            IEFQMRAW        IEFQMRAW
     B490            IEFQASGN        IEFQASGN                    B8BC            IEFSD061        IEFSD061
     B8C0            IEFQMRAW        IEFQMRAW                    B8C4            IEFQMNQ2        IEFQMNQ2
     B8C8            IEFVSDRA        IEFVSDRA                    B8CC            IEFSD061        IEFSD061
     B8D0            IEFSD061        IEFSD061
 ENTRY ADDRESS      1B0
 TOTAL LENGTH      BB78





IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000373     SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.UT1          DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G17POSTM.TEMP42Q      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000374     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000374     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /R21RLNK2/ START 78240.1948
IEF374I STEP /R21RLNK2/ STOP  78240.1948 CPU   0MIN 00.15SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  007        STEP INIT TIME 19:48:12.69   ALLOC START    19:48:12.70   MAIN REGION ----- 256K                          *
*   STEP NAME R21RLNK2   STEP END TIME  19:48:12.95   PGM START TIME 19:48:12.77   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.26   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.15   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0130 ---------- 159       0353 ----------- 22       0150 ---------- 104       0130 ----------- 14       0130 ------------ 6    *
************************************************************************************************************************************

//R21DLNK3 EXEC PGM=DELINK
//STEPLIB  DD DISP=SHR,UNIT=SYSDA,VOL=SER=ASPSUP,DSN=ASP.ASPPGMS
//SYSPRINT DD SYSOUT=A
//SYSLIB   DD DSN=SYS1.SVCLIB,UNIT=SYSDA,VOL=SER=ASPRES,DISP=SHR
//SYSPUNCH DD DSN=&&TEMP63Q,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,1)
//SYSIN    DD *
***
***-----------------------------------------------------------------***
***      RELINK EXPANDED IGC0003E INTO SYS1.SVCLIB.                 ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM R21DLNK3
IEF237I 151   ALLOCATED TO STEPLIB
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 158   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


          DELINK0        V01 L0   EXPAND AND NOT EDITABLE FUNCTION  08 / 08 / 69

> IGC0003E IGC0003E X'360'


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.ASPPGMS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000375     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G17POSTM.TEMP63Q      PASSED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000376     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000376     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /R21DLNK3/ START 78240.1948
IEF374I STEP /R21DLNK3/ STOP  78240.1948 CPU   0MIN 00.03SEC MAIN  50K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  008        STEP INIT TIME 19:48:12.97   ALLOC START    19:48:12.99   MAIN REGION ----- 256K                          *
*   STEP NAME R21DLNK3   STEP END TIME  19:48:13.12   PGM START TIME 19:48:13.06   MAIN STORAGE ----- 50K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.15   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  DELINK     STEP CPU TIME  00:00:00.03   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0353 ------------ 2       0150 ------------ 7       0158 ----------- 19       0130 ------------ 2    *
************************************************************************************************************************************

//R21RLNK3 EXEC PGM=IEWL,PARM='NCAL,LIST,XREF,LET,RENT'
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSN=&&UT1,UNIT=SYSDA,SPACE=(TRK,2)
//SYSLMOD  DD DSN=SYS1.SVCLIB,UNIT=SYSDA,VOL=SER=ASPRES,DISP=SHR
//SYSLIN   DD DSN=&&TEMP63Q,DISP=(OLD,DELETE)
//         DD DDNAME=SYSIN
//SYSIN    DD *
***
***-----------------------------------------------------------------***
***      EXPAND LOAD MODULE IEFLOCDQ CSECT IEFLOCDQ USING           ***
***      DELINK PROGRAM.                                            ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM R21RLNK3
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 158   ALLOCATED TO SYSLIN
IEF237I 130   ALLOCATED TO


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,RENT
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     SETSSI 00200000
IEW0000     NAME IGC0003E(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC0003E      00     360


 ENTRY ADDRESS       00
 TOTAL LENGTH       360

****IGC0003E  NOW REPLACED IN DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000377     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.UT1          DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G17POSTM.TEMP63Q      DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000378     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000378     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /R21RLNK3/ START 78240.1948
IEF374I STEP /R21RLNK3/ STOP  78240.1948 CPU   0MIN 00.08SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  009        STEP INIT TIME 19:48:13.14   ALLOC START    19:48:13.14   MAIN REGION ----- 256K                          *
*   STEP NAME R21RLNK3   STEP END TIME  19:48:13.32   PGM START TIME 19:48:13.21   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.18   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.08   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0158 ----------- 19       0353 ------------ 0       0150 ------------ 5       0158 ----------- 20       0130 ------------ 3    *
************************************************************************************************************************************

//DLNKLOC EXEC PGM=DELINK
//STEPLIB  DD DISP=SHR,UNIT=SYSDA,VOL=SER=ASPSUP,DSN=ASP.ASPPGMS
//SYSPRINT DD SYSOUT=A
//SYSLIB   DD DSN=SYS1.CI505,UNIT=SYSDA,VOL=SER=ASPDLB,DISP=SHR
//SYSPUNCH DD DSN=&&LOCTEMP,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(5,5))
//SYSIN    DD *
***
***-----------------------------------------------------------------***
***      RELINK EXPANDED IEFLOCDQ INTO SYS1.LINKLIB.                ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM DLNKLOC
IEF237I 151   ALLOCATED TO STEPLIB
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO SYSLIB
IEF237I 353   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


          DELINK0        V01 L0   EXPAND AND NOT EDITABLE FUNCTION  08 / 08 / 69

>  IEFLOCDQ IEFLOCDQ X'520'


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.ASPPGMS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000379     SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.G17POSTM.LOCTEMP      PASSED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000380     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000380     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /DLNKLOC / START 78240.1948
IEF374I STEP /DLNKLOC / STOP  78240.1948 CPU   0MIN 00.04SEC MAIN  50K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  010        STEP INIT TIME 19:48:13.34   ALLOC START    19:48:13.35   MAIN REGION ----- 256K                          *
*   STEP NAME DLNKLOC    STEP END TIME  19:48:13.48   PGM START TIME 19:48:13.42   MAIN STORAGE ----- 50K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.14   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  DELINK     STEP CPU TIME  00:00:00.04   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0159 ------------ 2       0250 ----------- 10       0353 ----------- 30       0130 ------------ 2    *
************************************************************************************************************************************

//RLNKLOC  EXEC PGM=IEWL,PARM='LIST,XREF,NCAL,REFR,LET'
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSN=&&UT1,UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSLMOD  DD DSN=SYS1.LINKLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//SYSLIN   DD DSN=&&LOCTEMP,DISP=(SHR,DELETE)
//         DD DDNAME=SYSIN
//SYSIN    DD *
***
***-----------------------------------------------------------------***
***      ZAPS FOR SVCLIB.                                           ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM RLNKLOC
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 353   ALLOCATED TO SYSLIN
IEF237I 130   ALLOCATED TO


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST,XREF,NCAL,REFR,LET
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSLMOD(IEFLOCDQ)
IEW0000     ALIAS LOC,LOCCAN,LOCDQ
IEW0000     ENTRY  IEFLOCDQ
IEW0000     NAME IEFLOCDQ(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFLOCDQ      00     520
                                        LOCDQ         10    LOCCAN        12    LOC           14
  IEFCNVRT     520      FC
                                        CNVRT        520
  IEFRDWRT     620      AE
                                        RD           620    WRT          622


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      4A0            CNVRT           IEFCNVRT                     4A4            RD              IEFRDWRT
      4A8            WRT             IEFRDWRT
 ENTRY ADDRESS       00
 TOTAL LENGTH       6D0

****IEFLOCDQ  NOW REPLACED IN DATA SET
****LOCDQ     IS AN ALIAS FOR THIS MEMBER
****LOCCAN    IS AN ALIAS FOR THIS MEMBER
****LOC       IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED NOT REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000381     SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.UT1          DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G17POSTM.LOCTEMP      DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000382     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000382     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /RLNKLOC / START 78240.1948
IEF374I STEP /RLNKLOC / STOP  78240.1948 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  011        STEP INIT TIME 19:48:13.50   ALLOC START    19:48:13.51   MAIN REGION ----- 256K                          *
*   STEP NAME RLNKLOC    STEP END TIME  19:48:13.69   PGM START TIME 19:48:13.58   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.19   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0130 ----------- 31       0353 ------------ 0       0150 ----------- 15       0353 ----------- 31       0130 ------------ 5    *
************************************************************************************************************************************

//R21ZSVC  EXEC PGM=IMASPZAP
//STEPLIB  DD DSN=SYS1.LINKLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//SYSPRINT DD SYSOUT=A
//SYSLIB   DD DSN=SYS1.SVCLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//SYSIN    DD *
***
***-----------------------------------------------------------------***
***      ZAPS FOR LINKLIB.                                          ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM R21ZSVC
IEF237I 150   ALLOCATED TO STEPLIB
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
*   2002/11/10 @KL CHANGE XCTL TABLE ENTRY TO POINT TO IFG0192Z CTC OPEN
 NAME    IFG0193A IFG0193A
 VER     03DC  F3C2         DC C'3B',0C'           ID OF IFG0193B
 REP     03DC  F2E9         DC C'2Z',0C'           ID OF IFG0192Z
 IDRDATA ASP
**********************************************************************
*   PREVENT WRONG VOLUME MOUNTED PROCESSING  FOR CTC DEVICES
IMA125I IFG0193A IDR COUNT = 01 (MAX=19)
 NAME   IFG0194C IFG0194C
 VER    0080  4770,30A8     BNE  ODA71200          DEMOUNT WRONG VOLUME
 VER    01B6  0000,0000     VERIFY PATCH AREA
 VER    01BA  0000,0000     VERIFY PATCH AREA
 VER    01BE  0000,0000     VERIFY PATCH AREA
 REP    0080  4770,31B4     B    TO PATCH AREA
 REP    01B6  9504,A011     CLI  UCBTBYT2,X'04'    IS IT CTC?
 REP    01BA  4770,30A8     BNE  ODA71200          NO,DEMOUNT WRONG VOLUME
 REP    01BE  47F0,3102     B    ODA71600          ABEND CALLER
 IDRDATA ASP
**********************************************************************
*   2002/11/17 @kl PREVENT SENSE OPERATION ON CTC DEVICE BY TAPE OPEN
IMA125I IFG0194C IDR COUNT = 01 (MAX=19)
 NAME   IFG0194H IFG0194H
 VER    023E  45B0,3326     BAL  RB,OTA14400
 VER    0296  45B0,3326     BAL  RB,OTA14400
 VER    03E0  0000,0000     VERIFY THE PATCH AREA
 VER    03E4  0000,0000     VERIFY THE PATCH AREA
 VER    03E8  0000,0000     VERIFY THE PATCH AREA
 REP    023E  45B0,33DE     BAL  TO PATCH AREA
 REP    0296  45B0,33DE     BAL  TO PATCH AREA
 REP    03E0  9504,A011     CLI  UCBTBYT2,X'04'    CTC DEVICE?
 REP    03E4  4780,3364     BE   OTA14800          SKIP SENSE IF SO
 REP    03E8  47F0,3326     B    OTA14400          ELSE GO DO SENSE
 IDRDATA ASP
**********************************************************************
*   2002/11/17 @kl TREAT CTC AS SEPARATE DEVICE TYPE FOR
*                  CONCATENATION OF UNLIKE DEVICES
*        FOLLOWING ZAP ADDED FOR REL 21.8
*  NOTE THIS ZAP IS DEPENDENT UPON IFG0552X BEING PREVIOUSLY LINK
*  EDITED FROM THE OBJECT MODULE AVAILABLE ON THIS JOB STREAM. THE
*  STANDARD REL 21.8 IFG0552X DOES NOT HAVE A PATCH AREA.
IMA125I IFG0194H IDR COUNT = 01 (MAX=19)
 NAME   IFG0552X IFG0552X
 VER    01A8  4700,31A6   BC  0,*
 VER    01AC  4700,31AA   BC  0,*
 REP    01A8  9504,E011   CLI  UCBTBYT2,X'04' IS THIS CTC
 REP    01AC  4780,338A   BE  ECM62800  YES,ABEND USER
 IDRDATA ASP
**********************************************************************
*   2002/11/10 @KL CHANGE ABDUMP MAX BLKSIZE FROM 1632 TO 882
IMA125I IFG0552X IDR COUNT = 01 (MAX=19)
 NAME   IGC0L05A IGC0L05A
 VER    035A 0660
 REP    035A 0372
 IDRDATA ASP
**********************************************************************
*   CHANGE ABEND DCB BLKSIZE FROM 1632 TO 882
IMA125I IGC0L05A IDR COUNT = 01 (MAX=19)
 NAME   IGC0801C IGC0801C  CHANGE ABEND DCB BLKSIZE FROM 1632 TO 882
 VER    02AE 0660
 REP    02AE 0372
 IDRDATA ASP
**********************************************************************
*   2002/11/10 @KL ZAP TO REMOVE THE BACK SPACE CHARACTER CHECK
IMA125I IGC0801C IDR COUNT = 01 (MAX=19)
 NAME   IGC0107B IEECVPM
 VER    00DE 4780C0EC        BE    PMBKSL
 VER    00F2 4770C100        BNE   *+16
 REP    00DE 4770C0EC        BNE   PMBKSL
 REP    00F2 47F0C100        B     *+16
 IDRDATA ASP
**********************************************************************
*   2006/07/02 @KL ZAP TO PREVENT REMOVAL OF X'15' NEWLINE CHARACTERS
IMA125I IGC0107B IDR COUNT = 01 (MAX=19)
 NAME   IGC0107B IEECVPM
 VER    02A0 4770C2A6        BNE   A0002A8   Continue if not newline
 REP    02A0 47F0C2A6        B     A0002A8   Skip changing newline to blank
 IDRDATA ASP
**********************************************************************
*   ZAP TO BYPASS SECOND TRANSLATE WHEN SECOND QUOTE IS FOUND IN MESSAGE
IMA125I IGC0107B IDR COUNT = 02 (MAX=19)
 NAME   IGC5403D IEE5403D
 VER    00DC  478030AC
 REP    00DC  478030E2
 IDRDATA ASP
**********************************************************************
*   CREATE CALLING SEQUENCE FOR RESIDENT ROUTINE
*   WHICH PLACES JOBNAME IN WTO TEXT
IMA125I IGC5403D IDR COUNT = 01 (MAX=19)
 NAME   IGC0003E IGC0003E   MICROFICHE NAME IS IEEMVWTO (REL 21.7 MCS)
 VER    01D6  58F0,A03C
 VER    0320  4040          VERIFY THE PATCH AREA
 VER    0322  4040,4040     VERIFY THE PATCH AREA
 VER    0326  4040          VERIFY THE PATCH AREA
 VER    0328  4040          VERIFY THE PATCH AREA
 VER    032A  4040,4040     VERIFY THE PATCH AREA
 VER    032E  4040,4040     VERIFY THE PATCH AREA
 REP    01D6  47F0,B31E     B    SVC245 ENTER SVC CALLING SEQUENCE
 REP    0320  1831          LR   R3,R1  SAVE R1 ACROSS SVC ROUTINE
 REP    0322  41F0,000C     LA   R15,12 FUNCTION CODE FOR SVC ENTRY POINT
 REP    0326  0AF6          SVC  246   ENTER RESIDENT ROUTINE
 REP    0328  1813          LR   R1,R3  RESTORE R1 (WQE ADDR)
 REP    032A  58F0,A03C     L    R15,UCMWQEND PTR TO LAST WQE ON CHAIN
 REP    032E  47F0,B1D8     B    LINKWQE+4 CONTINUE IN MAINLINE CODE
 IDRDATA ASP
**********************************************************************
IMA125I IGC0003E IDR COUNT = 01 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000383     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000384     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000384     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /R21ZSVC / START 78240.1948
IEF374I STEP /R21ZSVC / STOP  78240.1948 CPU   0MIN 00.14SEC MAIN  32K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  012        STEP INIT TIME 19:48:13.71   ALLOC START    19:48:13.72   MAIN REGION ----- 256K                          *
*   STEP NAME R21ZSVC    STEP END TIME  19:48:13.93   PGM START TIME 19:48:13.77   MAIN STORAGE ----- 32K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.22   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.14   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0150 ------------ 0       0353 ---------- 108       0150 ---------- 250       0130 ----------- 98                              *
************************************************************************************************************************************

//R21ZLNK  EXEC PGM=IMASPZAP
//STEPLIB  DD DSN=SYS1.LINKLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//SYSPRINT DD SYSOUT=A
//SYSLIB   DD DSN=SYS1.LINKLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//SYSIN    DD *
***
***-----------------------------------------------------------------***
***      STAGE READER/INTERPRETER MODULES IN TEMPORARY LIBRARY.     ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM R21ZLNK
IEF237I 150   ALLOCATED TO STEPLIB
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
*   ISSUE THE ASP UNIT ISOLATION SVC
 NAME   IEFW21SD IEFW21SD
 VER    00A6  5840C010            L   R4,LCTJCTAD    LOAD JCT ADDR FROM LCT
 VER    0520  40404040            VERIFY PATCH AREA
 VER    0524  4040,4040           VERIFY THE PATCH AREA
 VER    0528  4040,4040           VERIFY THE PATCH AREA
 VER    052C  4040                VERIFY THE PATCH AREA
 VER    052E  4040,4040           VERIFY THE PATCH AREA
 REP    00A6  47F0951A            B   PATCH
 REP    0520  5840C010            EXECUTE OVERLAID INSTRUCTION
 REP    0524  41104008            LA  R1,JCTJNAME    POINT TO JOBNAME
 REP    0528  41F00010            LA  R15,16         INDICATE ALLOCATE ENTRY
 REP    052C  0AF6                SVC 246            ISSUE UNIT ISOL SVC
 REP    052E  47F090A4            B   MAINLINE       RETURN
 IDRDATA ASP
**********************************************************************
*   ISSUE THE ASP UNIT ISOLATION SVC
IMA125I IEFW21SD IDR COUNT = 01 (MAX=19)
 NAME   IEFSD061 IEFW42SD
 VER    006A  915C,3005           TM  JCTJSTAT,INCMSTS+JCTJOBFL+JCTABEND+JCTSTP
 VER    018C  4040,4040           INSURE DELINK EXPANSION
 REP    006A  47F0,9186           B  PATCH AREA
 REP    018C  41F0,0014           LA  R15,20
 REP    0190  4110,3008           LA  R1,JCTJNAME
 REP    0194  0AF6                SVC  246
 REP    0196  915C,3005           TM  - - -  OVERLAID INSTRUCTION
 REP    019A  47F0,9068           B  MAINLINE
 IDRDATA ASP
**********************************************************************
*   NOP R/I SVC 34 FOR EXPRESS CANCEL (21.0)
IMA125I IEFSD061 IDR COUNT = 01 (MAX=19)
 NAME   IEFVHA  IEFVHH
 VER    04E6  4780B53E      BE  C9          BRANCH AROUND CANCEL CMD
 REP    04E6  47F0B53E      B   C9
 IDRDATA ASP
***********************************************************************
*   ADD MAINTASK NAME TO SYSTEM TASK TBL
IMA125I IEFVHA   IDR COUNT = 01 (MAX=19)
 NAME   IEEVLNKT  IEEVLNKT        ADD MAINTASK NAME TO SYSTEM TASK TBL
 VER    0018  C9C8D2D9D1C2C7D5    IHKRJBGN  RJE READER TASK
 REP    0018  D4C1C9D5E3C1E2D2    MAINTASK  ASP TASK ON MAIN
 IDRDATA ASP
***********************************************************************
*   THE FOLLOWING ZAP ELIMINATES REDUNDANT POSTING OF IDLE O/S INITIATORS
IMA125I IEEVLNKT IDR COUNT = 01 (MAX=19)
 NAME   IEFQMNQ2 IEFQMNQ2   MICROFISCHE NAME IEFQMNQQ
 VER    010E  1817          LR  R1,R7       LOAD ADDR OF ECB
 VER    0110  1B00          SR  0,0         SET CODE VALUE OF 0
 VER    0112  41101000      LA  R1,0(R1)    CLER HIGH ORDR BYTE
 VER    0116  0A02          SVC 2
 VER    0118  58770004      L   R7,4(R7)    LOAD ADDR OF NXT CTO AREA
 VER    011C  47F0          BC  15,QMENQ015 BR TO TEST NEXT TASK
 REP    010E  41107000      LA  R1,0(R7)    GET ECB ADDR
 REP    0112  1B00          SR  0,0         SET CODE VALUE OF 0
 REP    0114  0A02          SVC 2
 REP    0116  D20290217005  MVC             MOVE QCR
 REP    011C  47F0815C      B   QMENQ050    BR TO CHECK TRACK STACKING
 IDRDATA ASP
**********************************************************************
*   THE FOLLOWING CODE BYPASSES REWIND UNLOAD FOR CTC TAPE DEVICES
IMA125I IEFQMNQ2 IDR COUNT = 01 (MAX=19)
 NAME   IEFWD000 IEFWD002   MICROFICHE NAME IS IEFWD000 (21.8)
 VER    006E  9140,D006     TM  UCBFLG2,NOTREADY
 VER    0424  4110,1000     VERIFY PATCH AREA
 REP    006E  47F0,9422     B  XPS757
*      THE FOLLOWING PATCH OVERLAYS CODE USED FOR PCP ONLY
 REP    0424  9504,D011     CLI  UCBTBYT2,CTC  CTC DEVICE?
 REP    0428  078E          BCR  8,R14  YES-RETURN
 REP    042A  9140,D006     TM  UCBFLG2,NOTREADY  TAPE NOT READY?
 REP    042E  071E          BCR  CONES,R14  YES-RETURN
 REP    0430  47F0,9072     B  MAINLINE  RETURN TO MAINSTREAM
 IDRDATA ASP
***********************************************************************
*   THE FOLLOWING ZAP PREVENTS A 30A ABEND WHEN ASP USES
*   THE O/S READER INTERPRETER
IMA125I IEFWD000 IDR COUNT = 01 (MAX=19)
 NAME   IEFVH1
 VER    01A0  4720B108         BC  2,J02
 REP    01A0  4700             NOP
 IDRDATA ASP
IMA125I IEFVH1   IDR COUNT = 01 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000385     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000386     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000386     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /R21ZLNK / START 78240.1948
IEF374I STEP /R21ZLNK / STOP  78240.1948 CPU   0MIN 00.12SEC MAIN  32K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  013        STEP INIT TIME 19:48:13.95   ALLOC START    19:48:13.98   MAIN REGION ----- 256K                          *
*   STEP NAME R21ZLNK    STEP END TIME  19:48:14.18   PGM START TIME 19:48:14.04   MAIN STORAGE ----- 32K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.23   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0150 ------------ 0       0353 ----------- 83       0150 ---------- 234       0130 ----------- 76                              *
************************************************************************************************************************************

//TEMPRI   EXEC PGM=IEWL,PARM='XREF,LIST,NCAL,RENT,REFR'
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
//SYSLMOD  DD UNIT=SYSDA,DSN=&&TEMPRI,SPACE=(CYL,(5,1,5)),DISP=(,PASS)
//DD1      DD DSN=SYS1.LINKLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//SYSLIN   DD DDNAME=SYSIN
//TEMPRI.SYSIN DD *
***
***-----------------------------------------------------------------***
***      MAKE READER/INTERPRETER MODULES LOOK REENTRANT.            ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM TEMPRI
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSLMOD
IEF237I 150   ALLOCATED TO DD1
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED XREF,LIST,NCAL,RENT,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE DD1(IEFVHA)
IEW0000      ALIAS IEFVHCB,IEFVHREP,IEFVHF
IEW0000      ENTRY   IEFVHA
IEW0000     NAME     IEFVHA(R)
****IEFVHA    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFVHF    IS AN ALIAS FOR THIS MEMBER
****IEFVHREP  IS AN ALIAS FOR THIS MEMBER
****IEFVHCB   IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED NOT REENTERABLE, REUSABLE, AND REFRESHABLE.


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVHA        00     37C
  IEFVHAA      380      8B
  IEFVHB       410      C1
  IEFVHC       4D8     16E
  IEFVHCB      648     577
  IEFVHE       BC0      94
  IEFVHEB      C58     313
  IEFVHEC      F70     11C
  IEFVHF      1090     104
  IEFVHL      1198      C8
  IEFVHM      1260      1A
  IEFVHG      1280     64E
  IEFVHH      18D0     570
  IEFVHQ      1E40     2E4
  IEFVFA      2128    16D8
  IEFVGK      3800     1E4
  IEFVGT      39E8     2F0
  IEFVGM      3CD8     6D0
  IEFVJA      43A8      1A
  IEFVEA      43C8    1152
  IEFVDA      5520    1E02
  IEFVGI      7328     161
  IEFVGS      7490     3E0
  IEFVHR      7870      38
                                        IEFVHREP    78A2
  IEFSD012    78A8     52D
  IEFSD090    7DD8     3A8
  IEFVDBSD    8180     19C
  IEFACT      8320       2
  IEFVHHB     8328      5C
  IEFVFB      8388     6E5
  IEFKG       8A70      48
  IEFVIND     8AB8     170
  IEFQMSSS    8C28      00


  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      360            IEFVIND         IEFVIND                      368            IEFVHAA         IEFVHAA
      36C            IEFVHB          IEFVHB                       370            IEFVHC          IEFVHC
      374            IEFVGM          IEFVGM                       378            IEFVHR          IEFVHR
      400            IEFVHC          IEFVHC                       404            IEFVGM          IEFVGM
      4A4            IEFVGM          IEFVGM                       4A8            IEFVHA          IEFVHA
      4AC            IEFVHC          IEFVHC                       634            IEFVGM          IEFVGM
      638            IEFVHCB         IEFVHCB                      63C            IEFVHEB         IEFVHEB
      640            IEFVHA          IEFVHA                       B80            IEFVGM          IEFVGM
      B84            IEFVHA          IEFVHA                       B88            IEFVHE          IEFVHE
      B8C            IEFVHL          IEFVHL                       B90            IEFVHM          IEFVHM
      B94            IEFVHEB         IEFVHEB                      C44            IEFVHEB         IEFVHEB
      C48            IEFVHEC         IEFVHEC                      C4C            IEFVHH          IEFVHH
      C50            IEFVHAA         IEFVHAA                      F2C            IEFVFA          IEFVFA
      F30            IEFVGM          IEFVGM                       F34            IEFVHG          IEFVHG
      F38            IEFVHQ          IEFVHQ                      1080            IEFVGM          IEFVGM
     1084            IEFVHH          IEFVHH                      1088            IEFVHR          IEFVHR
     1184            IEFVHA          IEFVHA                      1188            IEFVHCB         IEFVHCB
     118C            IEFVHEB         IEFVHEB                     1190            IEFVHG          IEFVHG
     124C            IEFVGM          IEFVGM                      1250            IEFVHA          IEFVHA
     1254            IEFVHCB         IEFVHCB                     1258            IEFVHE          IEFVHE
     125C            IEFVHEC         IEFVHEC                     1884            IEFVHR          IEFVHR
     1888            IEFVGM          IEFVGM                      188C            IEFVHQ          IEFVHQ
     1890            IEFVHAA         IEFVHAA                     1894            IEFVHA          IEFVHA
     1898            IEFVHC          IEFVHC                      189C            IEFVHB          IEFVHB
     1D38            IEFVHEC         IEFVHEC                     1D3C            IEFVHHB         IEFVHHB
     1D40            IEFVGM          IEFVGM                      1D44            IEFVHQ          IEFVHQ
     1E3C            IEFKG           IEFKG                       2118            IEFVHR          IEFVHR
     211C            IEFQMSSS        IEFQMSSS                    32DC            IEFVHF          IEFVHF
     32E0            IEFVJA          IEFVJA                      32E4            IEFVDA          IEFVDA
     32E8            IEFVEA          IEFVEA                      32EC            IEFVGM          IEFVGM
     32F0            IEFVHQ          IEFVHQ                      32F4            IEFVFB          IEFVFB
     32F8            IEFACT          IEFACT                      39D8            IEFVHQ          IEFVHQ
     41E8            IEFVHQ          IEFVHQ                      5398            IEFVGT          IEFVGT
     539C            IEFVGK          IEFVGK                      53A0            IEFVGM          IEFVGM
     53A4            IEFVGI          IEFVGI                      53A8            IEFVGS          IEFVGS
     53AC            IEFVHQ          IEFVHQ                      53B0            IEFVHF          IEFVHF
     53B4            IEFVHR          IEFVHR                      6A0C            IEFSD012        IEFSD012
     6A10            IEFSD090        IEFSD090                    6A14            IEFVHQ          IEFVHQ
     6A18            IEFVGS          IEFVGS                      6A1C            IEFVGT          IEFVGT
     6A20            IEFVGK          IEFVGK                      6A24            IEFVHF          IEFVHF
     6A28            IEFVDBSD        IEFVDBSD                    6A2C            IEFVGI          IEFVGI
     6A30            IEFVGM          IEFVGM                      7480            IEFVHQ          IEFVHQ
     7868            IEFVHQ          IEFVHQ                      786C            IEFVGK          IEFVGK
     7DC0            IEFVHQ          IEFVHQ                      7DC4            IEFVHR          IEFVHR
     7DC8            IEFVGM          IEFVGM                      8130            IEFVHQ          IEFVHQ
     8314            IEFVHQ          IEFVHQ                      837C            IEFVHEB         IEFVHEB
     8380            IEFVHA          IEFVHA                      8A40            IEFVHQ          IEFVHQ
     8A44            IEFVGM          IEFVGM                      8AB4            IEFVHHB         IEFVHHB
     8C24            IEFVHQ          IEFVHQ
 ENTRY ADDRESS       00
 TOTAL LENGTH      8C28



IEW0000      INCLUDE DD1(IEFMVTHR)
IEW0000      ALIAS   IEFHRFK2
IEW0000     NAME     IEFMVTHR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFHRFK2      00      78
  IEFVHR        78     454



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       74            IEFVHR          IEFVHR
 ENTRY ADDRESS       00
 TOTAL LENGTH       4D0

****IEFMVTHR  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFHRFK2  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED NOT REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE DD1(IEFMVTJA)
IEW0000      ALIAS   IEFVJA
IEW0000      ENTRY   IEFVJA
IEW0000     NAME     IEFMVTJA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVHQ        00     2E4
  IEFVHF       2E8      1A
  IEFVGM       308     6D0
  IEFVGT       9D8     2F0
  IEFVGK       CC8     1E4
  IEFVJA       EB0     560
  IEFVHR      1410     454



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2D8            IEFVHR          IEFVHR                       818            IEFVHQ          IEFVHQ
      EA0            IEFVHQ          IEFVHQ                      13E8            IEFVGT          IEFVGT
     13EC            IEFVGK          IEFVGK                      13F0            IEFVHQ          IEFVHQ
     13F4            IEFVGM          IEFVGM                      13F8            IEFVHF          IEFVHF

 ENTRY ADDRESS      EB0
 TOTAL LENGTH      1868

****IEFMVTJA  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFVJA    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED NOT REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE DD1(IEFVINA)
IEW0000      ENTRY   IEFVINA
IEW0000     NAME     IEFVINA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVINA       00     5C2
  IEFVINB      5C8      4E
  IEFVINC      618     100
  IEFVINE      718     1CA
  IEZNCODE     8E8      F2
  IEFVGM       9E0     6D0
  IEFVHQ      10B0     2E4
  IEFVHR      1398     454



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      550            IEFVINB         IEFVINB                      554            IEFVINC         IEFVINC
      558            IEFVINE         IEFVINE                      55C            IEFVHQ          IEFVHQ
      560            IEFVGM          IEFVGM                       564            IEZNCODE        IEZNCODE
      710            IEFVHQ          IEFVHQ                       EF0            IEFVHQ          IEFVHQ
     1388            IEFVHR          IEFVHR
 ENTRY ADDRESS       00
 TOTAL LENGTH      17F0

****IEFVINA   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED NOT REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE DD1(IEZDCODE)
IEW0000     NAME     IEZDCODE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEZDCODE      00      D8


 ENTRY ADDRESS       00
 TOTAL LENGTH        D8

****IEZDCODE  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED NOT REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000387     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.R0000388     DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G17POSTM.TEMPRI       PASSED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000389     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000389     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TEMPRI  / START 78240.1948
IEF374I STEP /TEMPRI  / STOP  78240.1948 CPU   0MIN 00.20SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  014        STEP INIT TIME 19:48:14.19   ALLOC START    19:48:14.20   MAIN REGION ----- 256K                          *
*   STEP NAME TEMPRI     STEP END TIME  19:48:14.53   PGM START TIME 19:48:14.27   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.34   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.20   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0158 ---------- 205       0353 ----------- 18       0159 ----------- 83       0150 ----------- 57       0130 ----------- 17    *
************************************************************************************************************************************

//RENTCODE EXEC PGM=PDSEDIT
//STEPLIB  DD DISP=SHR,UNIT=SYSDA,VOL=SER=ASPSUP,DSN=ASP.ASPPGMS
//LINKLIB  DD DSN=&&TEMPRI,DISP=(SHR,PASS)
***
***-----------------------------------------------------------------***
***      LINK MODIFIED R/I MODULES BACK INTO SYS1.LINKLIB.          ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM RENTCODE
IEF237I 151   ALLOCATED TO STEPLIB
IEF237I 159   ALLOCATED TO LINKLIB
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.ASPPGMS                                  KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.G17POSTM.TEMPRI       PASSED
IEF285I   VOL SER NOS= WORKA0.
IEF373I STEP /RENTCODE/ START 78240.1948
IEF374I STEP /RENTCODE/ STOP  78240.1948 CPU   0MIN 00.02SEC MAIN   8K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  015        STEP INIT TIME 19:48:14.56   ALLOC START    19:48:14.57   MAIN REGION ----- 256K                          *
*   STEP NAME RENTCODE   STEP END TIME  19:48:14.63   PGM START TIME 19:48:14.60   MAIN STORAGE ------ 8K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.07   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  PDSEDIT    STEP CPU TIME  00:00:00.02   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                                                  *
*   0151 ------------ 0       0159 ------------ 4                                                                                  *
************************************************************************************************************************************

//RILINK   EXEC PGM=IEWL,PARM='XREF,LIST,NCAL,RENT,REFR'
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//DD1      DD DSN=&&TEMPRI,DISP=(OLD,PASS)
//SYSLMOD  DD DSN=SYS1.LINKLIB,UNIT=SYSDA,DISP=SHR,VOL=SER=ASPRES
//SYSLIN   DD DDNAME=SYSIN
//SYSIN    DD *
***
***-----------------------------------------------------------------***
***      UPDATE TTR LIST IN SYS1.SVCLIB.                            ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G17POSTM RILINK
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO DD1
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED XREF,LIST,NCAL,RENT,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000      INCLUDE DD1(IEFVHA)
IEW0000      ALIAS IEFVHCB
IEW0000      ALIAS IEFVHREP
IEW0000      ALIAS IEFVHF
IEW0000      ENTRY IEFVHA
IEW0000     NAME   IEFVHA(R)
****IEFVHA    NOW REPLACED IN DATA SET
****IEFVHF    IS AN ALIAS FOR THIS MEMBER
****IEFVHREP  IS AN ALIAS FOR THIS MEMBER
****IEFVHCB   IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVHA        00     37C
  IEFVHAA      380      8B
  IEFVHB       410      C1
  IEFVHC       4D8     16E
  IEFVHCB      648     577
  IEFVHE       BC0      94
  IEFVHEB      C58     313
  IEFVHEC      F70     11C
  IEFVHF      1090     104
  IEFVHL      1198      C8
  IEFVHM      1260      1A
  IEFVHG      1280     64E
  IEFVHH      18D0     570
  IEFVHQ      1E40     2E4
  IEFVFA      2128    16D8
  IEFVGK      3800     1E4
  IEFVGT      39E8     2F0
  IEFVGM      3CD8     6D0
  IEFVJA      43A8      1A
  IEFVEA      43C8    1152
  IEFVDA      5520    1E02
  IEFVGI      7328     161
  IEFVGS      7490     3E0
  IEFVHR      7870      38
                                        IEFVHREP    78A2
  IEFSD012    78A8     52D
  IEFSD090    7DD8     3A8
  IEFVDBSD    8180     19C
  IEFACT      8320       2
  IEFVHHB     8328      5C
  IEFVFB      8388     6E5
  IEFKG       8A70      48
  IEFVIND     8AB8     170

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFQMSSS    8C28      00



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      360            IEFVIND         IEFVIND                      368            IEFVHAA         IEFVHAA
      36C            IEFVHB          IEFVHB                       370            IEFVHC          IEFVHC
      374            IEFVGM          IEFVGM                       378            IEFVHR          IEFVHR
      400            IEFVHC          IEFVHC                       404            IEFVGM          IEFVGM
      4A4            IEFVGM          IEFVGM                       4A8            IEFVHA          IEFVHA
      4AC            IEFVHC          IEFVHC                       634            IEFVGM          IEFVGM
      638            IEFVHCB         IEFVHCB                      63C            IEFVHEB         IEFVHEB
      640            IEFVHA          IEFVHA                       B80            IEFVGM          IEFVGM
      B84            IEFVHA          IEFVHA                       B88            IEFVHE          IEFVHE
      B8C            IEFVHL          IEFVHL                       B90            IEFVHM          IEFVHM
      B94            IEFVHEB         IEFVHEB                      C44            IEFVHEB         IEFVHEB
      C48            IEFVHEC         IEFVHEC                      C4C            IEFVHH          IEFVHH
      C50            IEFVHAA         IEFVHAA                      F2C            IEFVFA          IEFVFA
      F30            IEFVGM          IEFVGM                       F34            IEFVHG          IEFVHG
      F38            IEFVHQ          IEFVHQ                      1080            IEFVGM          IEFVGM
     1084            IEFVHH          IEFVHH                      1088            IEFVHR          IEFVHR
     1184            IEFVHA          IEFVHA                      1188            IEFVHCB         IEFVHCB
     118C            IEFVHEB         IEFVHEB                     1190            IEFVHG          IEFVHG
     124C            IEFVGM          IEFVGM                      1250            IEFVHA          IEFVHA
     1254            IEFVHCB         IEFVHCB                     1258            IEFVHE          IEFVHE
     125C            IEFVHEC         IEFVHEC                     1884            IEFVHR          IEFVHR
     1888            IEFVGM          IEFVGM                      188C            IEFVHQ          IEFVHQ
     1890            IEFVHAA         IEFVHAA                     1894            IEFVHA          IEFVHA
     1898            IEFVHC          IEFVHC                      189C            IEFVHB          IEFVHB
     1D38            IEFVHEC         IEFVHEC                     1D3C            IEFVHHB         IEFVHHB
     1D40            IEFVGM          IEFVGM                      1D44            IEFVHQ          IEFVHQ
     1E3C            IEFKG           IEFKG                       2118            IEFVHR          IEFVHR
     211C            IEFQMSSS        IEFQMSSS                    32DC            IEFVHF          IEFVHF
     32E0            IEFVJA          IEFVJA                      32E4            IEFVDA          IEFVDA
     32E8            IEFVEA          IEFVEA                      32EC            IEFVGM          IEFVGM
     32F0            IEFVHQ          IEFVHQ                      32F4            IEFVFB          IEFVFB
     32F8            IEFACT          IEFACT                      39D8            IEFVHQ          IEFVHQ
     41E8            IEFVHQ          IEFVHQ                      5398            IEFVGT          IEFVGT
     539C            IEFVGK          IEFVGK                      53A0            IEFVGM          IEFVGM
     53A4            IEFVGI          IEFVGI                      53A8            IEFVGS          IEFVGS
     53AC            IEFVHQ          IEFVHQ                      53B0            IEFVHF          IEFVHF
     53B4            IEFVHR          IEFVHR                      6A0C            IEFSD012        IEFSD012
     6A10            IEFSD090        IEFSD090                    6A14            IEFVHQ          IEFVHQ
     6A18            IEFVGS          IEFVGS                      6A1C            IEFVGT          IEFVGT
     6A20            IEFVGK          IEFVGK                      6A24            IEFVHF          IEFVHF
     6A28            IEFVDBSD        IEFVDBSD                    6A2C            IEFVGI          IEFVGI
     6A30            IEFVGM          IEFVGM                      7480            IEFVHQ          IEFVHQ
     7868            IEFVHQ          IEFVHQ                      786C            IEFVGK          IEFVGK
     7DC0            IEFVHQ          IEFVHQ                      7DC4            IEFVHR          IEFVHR
     7DC8            IEFVGM          IEFVGM                      8130            IEFVHQ          IEFVHQ
     8314            IEFVHQ          IEFVHQ                      837C            IEFVHEB         IEFVHEB

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     8380            IEFVHA          IEFVHA                      8A40            IEFVHQ          IEFVHQ
     8A44            IEFVGM          IEFVGM                      8AB4            IEFVHHB         IEFVHHB
     8C24            IEFVHQ          IEFVHQ
 ENTRY ADDRESS       00
 TOTAL LENGTH      8C28



IEW0000      INCLUDE DD1(IEFMVTHR)
IEW0000      ALIAS IEFHRFK2
IEW0000     NAME   IEFMVTHR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFHRFK2      00      78
  IEFVHR        78     454



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       74            IEFVHR          IEFVHR
 ENTRY ADDRESS       00
 TOTAL LENGTH       4D0

****IEFMVTHR  NOW REPLACED IN DATA SET
****IEFHRFK2  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE DD1(IEFMVTJA)
IEW0000      ALIAS IEFVJA
IEW0000      ENTRY IEFVJA
IEW0000     NAME   IEFMVTJA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVHQ        00     2E4
  IEFVHF       2E8      1A
  IEFVGM       308     6D0
  IEFVGT       9D8     2F0
  IEFVGK       CC8     1E4
  IEFVJA       EB0     560
  IEFVHR      1410     454



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2D8            IEFVHR          IEFVHR                       818            IEFVHQ          IEFVHQ
      EA0            IEFVHQ          IEFVHQ                      13E8            IEFVGT          IEFVGT
     13EC            IEFVGK          IEFVGK                      13F0            IEFVHQ          IEFVHQ
     13F4            IEFVGM          IEFVGM                      13F8            IEFVHF          IEFVHF

 ENTRY ADDRESS      EB0
 TOTAL LENGTH      1868

****IEFMVTJA  NOW REPLACED IN DATA SET
****IEFVJA    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE DD1(IEFVINA)
IEW0000      ENTRY IEFVINA
IEW0000     NAME   IEFVINA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVINA       00     5C2
  IEFVINB      5C8      4E
  IEFVINC      618     100
  IEFVINE      718     1CA
  IEZNCODE     8E8      F2
  IEFVGM       9E0     6D0
  IEFVHQ      10B0     2E4
  IEFVHR      1398     454



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      550            IEFVINB         IEFVINB                      554            IEFVINC         IEFVINC
      558            IEFVINE         IEFVINE                      55C            IEFVHQ          IEFVHQ
      560            IEFVGM          IEFVGM                       564            IEZNCODE        IEZNCODE
      710            IEFVHQ          IEFVHQ                       EF0            IEFVHQ          IEFVHQ
     1388            IEFVHR          IEFVHR
 ENTRY ADDRESS       00
 TOTAL LENGTH      17F0

****IEFVINA   NOW REPLACED IN DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.


IEW0000      INCLUDE DD1(IEZDCODE)
IEW0000     NAME   IEZDCODE(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEZDCODE      00      D8


 ENTRY ADDRESS       00
 TOTAL LENGTH        D8

****IEZDCODE  NOW REPLACED IN DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000390     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G17POSTM.R0000391     DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G17POSTM.TEMPRI       PASSED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000392     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G17POSTM.S0000392     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /RILINK  / START 78240.1948
IEF374I STEP /RILINK  / STOP  78240.1948 CPU   0MIN 00.19SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  016        STEP INIT TIME 19:48:14.65   ALLOC START    19:48:14.65   MAIN REGION ----- 256K                          *
*   STEP NAME RILINK     STEP END TIME  19:48:14.95   PGM START TIME 19:48:14.72   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.30   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.19   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0353 ---------- 211       0353 ----------- 18       0159 ----------- 57       0150 ----------- 83       0130 ----------- 19    *
************************************************************************************************************************************

//IOSUP   EXEC PGM=IEHIOSUP,PARM=TSO
//STEPLIB  DD DSN=SYS1.LINKLIB,VOL=SER=ASPRES,UNIT=SYSDA,DISP=SHR
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSN=SYS1.SVCLIB,UNIT=SYSDA,DISP=OLD,VOL=SER=ASPRES
//
IEF236I ALLOC. FOR G17POSTM IOSUP
IEF237I 150   ALLOCATED TO STEPLIB
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSUT1
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.SV000.G17POSTM.R0000393     DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF373I STEP /IOSUP   / START 78240.1948
IEF374I STEP /IOSUP   / STOP  78240.1948 CPU   0MIN 00.52SEC MAIN  14K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  017        STEP INIT TIME 19:48:14.98   ALLOC START    19:48:14.99   MAIN REGION ----- 256K                          *
*   STEP NAME IOSUP      STEP END TIME  19:48:15.60   PGM START TIME 19:48:15.05   MAIN STORAGE ----- 14K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.62   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHIOSUP   STEP CPU TIME  00:00:00.52   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0150 ------------ 0       0159 ------------ 0       0150 ---------- 657                                                        *
************************************************************************************************************************************

IEF285I   SYS78240.T193835.RV000.G17POSTM.TEMPRI       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF375I  JOB /G17POSTM/ START 78240.1948
IEF376I  JOB /G17POSTM/ STOP  78240.1948 CPU   0MIN 01.93SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G17POSTM   JOB READ TIME 19:48:11.07   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.93   *
*   JOB CLASS A          JOB INIT TIME 19:48:11.57   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:04.06   *
*   ACCOUNT   A          JOB END TIME  19:48:15.63   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1     333333333                 A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     333333333                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     33    33                AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11          33                AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11         3333              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11        333333             AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11            33             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     33     33             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   333333333             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    3333333              AA     AA

***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:48:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:48:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:48:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:48:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********
***********A  START   SY20ZR13   SYS SYSA   WTR 00E   07:48:34 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR13   START  A***********


//SY20ZR13 JOB 1,THAS810,MSGLEVEL=(1,1),
// CLASS=A,MSGCLASS=A,REGION=768K
***
***   PROBLEM DESCRIPTION(S):
***     THAS810 -
***       Add HASP WTO exit 2 hook to MVT MCS SVC 35.
***
***   COMPONENT:  360S-CI505-SCRATCH
***
***   APARS FIXED: THAS810
***
***   SPECIAL CONDITIONS:
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/28
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       IGC0003E (SOURCE NAME: IEEMVWTO)
***
***     NOTE:  IGC0003E as shipped by IBM doesn't have a patch
***       area.  This usermod assumes that a patch area was added
***       by the ASP postgen job.
***
//THAS810 EXEC PGM=IMASPZAP,REGION=128K
//SYSPRINT  DD SYSOUT=A
//SYSLIB    DD DISP=SHR,DSN=SYS1.SVCLIB,
//             UNIT=SYSDA,VOL=SER=ASPRES
//SYSIN     DD *
//
IEF236I ALLOC. FOR SY20ZR13 THAS810
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
NAME IGC0003E IGC0003E
IDRDATA THAS810
VER 00026A 9200,109D                 MVI   WQEPKE,X'00'            ZERO OUT PROT
VER 00026E D300,109D,9011            MVZ   WQEPKE(1),ISSRPK(R9)    MOVE PROTEST
VER 000274 5885,0070        TOPATCH  L     R8,D112(R5)        LOAD WHERE-TO-GO
VER 00032E 47F0B1D8                  DC    X'47F0B1D8'
VER 000332 4040404040404040          DC    32C' '
VER 00033A 4040404040404040
VER 000342 4040404040404040
VER 00034A 4040404040404040
REP 000274 47F0,B330                 B     PATCH            TO PATCH AREA
REP 000332 58F0,C0CC        PATCH    L     R15,CVTUSER      POINT TO HCT
REP 000336 12FF                      LTR   R15,R15          IS HASP PRESENT?
REP 000338 4780,B34C                 BZ    NOHASP           SKIP EXIT CALL IF NO
REP 00033C 58F0,F010                 L     R15,X'10'(,R15)  GET $WTOSVC2 ADDRESS
REP 000340 12FF                      LTR   R15,R15          ENSURE GOOD ADDRESS
REP 000342 4780,B34C                 BZ    NOHASP           SKIP $WTOSVC2 CALL I
REP 000346 8000,B343                 SSM   *-1              ENSURE DISABLED
REP 00034A 1801                      LR    R0,R1            POINT R0 TO WQE
REP 00034C 05EF                      BALR  R14,R15          LINK TO $WTOSVC2 HAS
REP 00034E 5885,0070        NOHASP   L     R8,D112(R5)      CLOBBERED INSTRUCTIO
REP 000352 47F0,B276                 B     PATCHRET         RETURN TO MAINLINE
IMA125I IGC0003E IDR COUNT = 02 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR13.R0000394     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000395     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR13.S0000395     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /THAS810 / START 78240.1948
IEF374I STEP /THAS810 / STOP  78240.1948 CPU   0MIN 00.06SEC MAIN  32K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:48:34.76   ALLOC START    19:48:34.77   MAIN REGION ----- 768K                          *
*   STEP NAME THAS810    STEP END TIME  19:48:34.94   PGM START TIME 19:48:34.83   MAIN STORAGE ----- 32K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.18   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ----------- 25       0150 ----------- 73       0130 ----------- 24                                                        *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR13/ START 78240.1948
IEF376I  JOB /SY20ZR13/ STOP  78240.1948 CPU   0MIN 00.06SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR13   JOB READ TIME 19:48:34.68   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.06   *
*   JOB CLASS A          JOB INIT TIME 19:48:34.76   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.20   *
*   ACCOUNT   1          JOB END TIME  19:48:34.96   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1      8888888                  A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     888888888                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     88     88               AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11     88     88              AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11      8888888              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11      8888888              AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11     88     88             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     88     88             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   888888888             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    8888888              AA     AA

***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:48:44 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:48:44 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:48:44 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:48:44 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:48:44 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********


//SY20ZR18 JOB 1,TMVT810,CLASS=A,MSGLEVEL=(1,1)
***
***  PROBLEM DESCRIPTION(S):
***    TMVT810 -
***      Modify DIDOCS open module IEECVETC to prevent it
***      from overwriting template TDCM values for DEL and CON.
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TMVT810
***
***   SPECIAL CONDITIONS:
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/25
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       IEECVETC
***
//TMVT810 EXEC PGM=IMASPZAP,REGION=128K
//SYSPRINT  DD SYSOUT=A
//SYSLIB    DD DISP=SHR,DSN=SYS1.SVCLIB,
//             UNIT=SYSDA,VOL=SER=ASPRES
//SYSIN     DD *
//
IEF236I ALLOC. FOR SY20ZR18 TMVT810
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
NAME IGC5C07B IEECVETC
VER 010C 92E8,9112    MVI   DCMDEL,CHARY        SET DEL EQUAL TO YES
VER 011A 92E8,9114    MVI   DCMCON,CHARY        SET CON EQUAL TO YES
VER 011E 92E0,9123    MVI   DCMOPTST,CHARE0     BITS INDICATING STATUS
REP 010C 0700,0700    NOP
REP 011A 0700,0700    NOP
REP 011E 0700,0700    NOP
IDRDATA TMVT810
IMA125I IGC5C07B IDR COUNT = 01 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000396     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000397     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000397     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TMVT810 / START 78240.1948
IEF374I STEP /TMVT810 / STOP  78240.1948 CPU   0MIN 00.05SEC MAIN  32K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:48:44.59   ALLOC START    19:48:44.60   MAIN REGION ----- 256K                          *
*   STEP NAME TMVT810    STEP END TIME  19:48:44.74   PGM START TIME 19:48:44.65   MAIN STORAGE ----- 32K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.15   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ----------- 11       0150 ----------- 28       0130 ----------- 10                                                        *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR18/ START 78240.1948
IEF376I  JOB /SY20ZR18/ STOP  78240.1948 CPU   0MIN 00.05SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR18   JOB READ TIME 19:48:44.53   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.05   *
*   JOB CLASS A          JOB INIT TIME 19:48:44.59   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.17   *
*   ACCOUNT   1          JOB END TIME  19:48:44.76   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1      8888888                  A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     888888888                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     88     88               AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11     88     88              AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11      8888888              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11      8888888              AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11     88     88             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     88     88             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   888888888             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    8888888              AA     AA

***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:48:57 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:48:57 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:48:57 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:48:57 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:48:57 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********


//SY20ZR18 JOB 1,TMVT811,CLASS=A,MSGLEVEL=(1,1)
***
***  PROBLEM DESCRIPTION(S):
***    TMVT811 -
***      Force display of "IEF868I ddd WTR WAITING FOR WORK"
***      message (for some reason, the default is to suppress
***      it if the control program isn't MFT).
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TMVT811
***
***   SPECIAL CONDITIONS:
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/25
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       IEFSD084
***
***     NOTE:  This usermod was previously called TMVT805.
***
//TMVT811 EXEC PGM=IMASPZAP,REGION=128K
//SYSPRINT  DD SYSOUT=A
//SYSLIB    DD DISP=SHR,DSN=SYS1.LINKLIB,
//           UNIT=SYSDA,VOL=SER=ASPRES
//SYSIN     DD *
//
IEF236I ALLOC. FOR SY20ZR18 TMVT811
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
NAME IEFSD080 IEFSD084
VER 0004 5810,0010    L   R1,CVTPTR                  TEST FOR MFT IF NOT
VER 0008 9120,1074    TM  CVTDCB-CVTMAP(R1),CVT1SPS  BRANCH TO AVOID
VER 000C 4780,9062    BZ  SD84MESG                   MESSAGE
REP 000C 4700,9062    NOP SD84MESG                   SKIP BRANCH
IDRDATA TMVT811
IMA125I IEFSD080 IDR COUNT = 01 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000398     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000399     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000399     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TMVT811 / START 78240.1948
IEF374I STEP /TMVT811 / STOP  78240.1948 CPU   0MIN 00.05SEC MAIN  32K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:48:57.45   ALLOC START    19:48:57.46   MAIN REGION ----- 256K                          *
*   STEP NAME TMVT811    STEP END TIME  19:48:57.60   PGM START TIME 19:48:57.51   MAIN STORAGE ----- 32K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.15   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ------------ 9       0150 ----------- 21       0130 ------------ 8                                                        *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR18/ START 78240.1948
IEF376I  JOB /SY20ZR18/ STOP  78240.1948 CPU   0MIN 00.05SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR18   JOB READ TIME 19:48:57.38   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.05   *
*   JOB CLASS A          JOB INIT TIME 19:48:57.45   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.16   *
*   ACCOUNT   1          JOB END TIME  19:48:57.61   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1      8888888                  A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     888888888                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     88     88               AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11     88     88              AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11      8888888              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11      8888888              AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11     88     88             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     88     88             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   888888888             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    8888888              AA     AA

***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:06 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:06 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:06 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:06 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:06 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********


//SY20ZR18 JOB 1,'TMVT812',CLASS=A,MSGCLASS=A
***
***  PROBLEM DESCRIPTION(S):
***    TMVT812 -
***      Allow interpreter to accept "SYSOUT=*" and treat as
***      MSGCLASS.
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TMVT812
***
***  SPECIAL CONDITIONS:
***    ACTION:
***      The OS/VS linkage editor HEWLF064 must be available
***      to permit IEFVHA to be expanded with a patch area.
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/25
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       IEFVFA
***
***     NOTE:  This usermod was previously called TMVT806.
***
//LKED   EXEC PGM=HEWLF064,
//            PARM=(XREF,LET,LIST,NCAL,RENT,REUS,REFR,MAP),
//            REGION=128K
//SYSLMOD  DD DISP=SHR,DSN=SYS1.LINKLIB,
//            UNIT=SYSDA,VOL=SER=ASPRES
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(50,20))
//SYSPRINT DD SYSOUT=A
//SYSLIN   DD *
***
IEF236I ALLOC. FOR SY20ZR18 LKED
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSLIN



 F64-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED XREF,LET,LIST,NCAL,RENT,REUS,REFR,MAP
          DEFAULT OPTION(S) USED -  SIZE=(196608,65536)
IEW0000      INCLUDE SYSLMOD(IEFVHA)
IEW0000      ALIAS IEFVHCB
IEW0000      ALIAS IEFVHREP
IEW0000      ALIAS IEFVHF
IEW0000      ENTRY IEFVHA
IEW0000      EXPAND IEFVFA(48)             /* ADD SPACE FOR PATCH AREA */
IEW0740    0030 BYTES HAVE BEEN ADDED TO CONTROL SECT.IEFVFA   AT OFFSET 0016D8.
IEW0000      NAME IEFVHA(R)



                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION
  IEFVHA        00     37C
  IEFVHAA      380      8B
  IEFVHB       410      C1
  IEFVHC       4D8     16E
  IEFVHCB      648     577
  IEFVHE       BC0      94
  IEFVHEB      C58     313
  IEFVHEC      F70     11C
  IEFVHF      1090     104
  IEFVHL      1198      C8
  IEFVHM      1260      1A
  IEFVHG      1280     64E
  IEFVHH      18D0     570
  IEFVHQ      1E40     2E4
  IEFVFA      2128    1708
  IEFVGK      3830     1E4
  IEFVGT      3A18     2F0
  IEFVGM      3D08     6D0
  IEFVJA      43D8      1A
  IEFVEA      43F8    1152
  IEFVDA      5550    1E02
  IEFVGI      7358     161
  IEFVGS      74C0     3E0
  IEFVHR      78A0      38
                                        IEFVHREP    78D2
  IEFSD012    78D8     52D
  IEFSD090    7E08     3A8
  IEFVDBSD    81B0     19C
  IEFACT      8350       2
  IEFVHHB     8358      5C
  IEFVFB      83B8     6E5
  IEFKG       8AA0      48
  IEFVIND     8AE8     170
  IEFQMSSS    8C58      00



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION
      360            IEFVIND         IEFVIND                      368            IEFVHAA         IEFVHAA
      36C            IEFVHB          IEFVHB                       370            IEFVHC          IEFVHC
      374            IEFVGM          IEFVGM                       378            IEFVHR          IEFVHR
      400            IEFVHC          IEFVHC                       404            IEFVGM          IEFVGM
      4A4            IEFVGM          IEFVGM                       4A8            IEFVHA          IEFVHA
      4AC            IEFVHC          IEFVHC                       634            IEFVGM          IEFVGM
      638            IEFVHCB         IEFVHCB                      63C            IEFVHEB         IEFVHEB
      640            IEFVHA          IEFVHA                       B80            IEFVGM          IEFVGM
      B84            IEFVHA          IEFVHA                       B88            IEFVHE          IEFVHE
      B8C            IEFVHL          IEFVHL                       B90            IEFVHM          IEFVHM
      B94            IEFVHEB         IEFVHEB                      C44            IEFVHEB         IEFVHEB
      C48            IEFVHEC         IEFVHEC                      C4C            IEFVHH          IEFVHH
      C50            IEFVHAA         IEFVHAA                      F2C            IEFVFA          IEFVFA
      F30            IEFVGM          IEFVGM                       F34            IEFVHG          IEFVHG
      F38            IEFVHQ          IEFVHQ                      1080            IEFVGM          IEFVGM
     1084            IEFVHH          IEFVHH                      1088            IEFVHR          IEFVHR
     1184            IEFVHA          IEFVHA                      1188            IEFVHCB         IEFVHCB
     118C            IEFVHEB         IEFVHEB                     1190            IEFVHG          IEFVHG
     124C            IEFVGM          IEFVGM                      1250            IEFVHA          IEFVHA
     1254            IEFVHCB         IEFVHCB                     1258            IEFVHE          IEFVHE
     125C            IEFVHEC         IEFVHEC                     1884            IEFVHR          IEFVHR
     1888            IEFVGM          IEFVGM                      188C            IEFVHQ          IEFVHQ
     1890            IEFVHAA         IEFVHAA                     1894            IEFVHA          IEFVHA
     1898            IEFVHC          IEFVHC                      189C            IEFVHB          IEFVHB
     1D38            IEFVHEC         IEFVHEC                     1D3C            IEFVHHB         IEFVHHB
     1D40            IEFVGM          IEFVGM                      1D44            IEFVHQ          IEFVHQ
     1E3C            IEFKG           IEFKG                       2118            IEFVHR          IEFVHR
     211C            IEFQMSSS        IEFQMSSS                    32DC            IEFVHF          IEFVHF
     32E0            IEFVJA          IEFVJA                      32E4            IEFVDA          IEFVDA
     32E8            IEFVEA          IEFVEA                      32EC            IEFVGM          IEFVGM
     32F0            IEFVHQ          IEFVHQ                      32F4            IEFVFB          IEFVFB
     32F8            IEFACT          IEFACT                      3A08            IEFVHQ          IEFVHQ
     4218            IEFVHQ          IEFVHQ                      53C8            IEFVGT          IEFVGT
     53CC            IEFVGK          IEFVGK                      53D0            IEFVGM          IEFVGM
     53D4            IEFVGI          IEFVGI                      53D8            IEFVGS          IEFVGS
     53DC            IEFVHQ          IEFVHQ                      53E0            IEFVHF          IEFVHF
     53E4            IEFVHR          IEFVHR                      6A3C            IEFSD012        IEFSD012
     6A40            IEFSD090        IEFSD090                    6A44            IEFVHQ          IEFVHQ
     6A48            IEFVGS          IEFVGS                      6A4C            IEFVGT          IEFVGT
     6A50            IEFVGK          IEFVGK                      6A54            IEFVHF          IEFVHF
     6A58            IEFVDBSD        IEFVDBSD                    6A5C            IEFVGI          IEFVGI
     6A60            IEFVGM          IEFVGM                      74B0            IEFVHQ          IEFVHQ
     7898            IEFVHQ          IEFVHQ                      789C            IEFVGK          IEFVGK
     7DF0            IEFVHQ          IEFVHQ                      7DF4            IEFVHR          IEFVHR
     7DF8            IEFVGM          IEFVGM                      8160            IEFVHQ          IEFVHQ
     8344            IEFVHQ          IEFVHQ                      83AC            IEFVHEB         IEFVHEB
     83B0            IEFVHA          IEFVHA                      8A70            IEFVHQ          IEFVHQ
     8A74            IEFVGM          IEFVGM                      8AE4            IEFVHHB         IEFVHHB
     8C54            IEFVHQ          IEFVHQ
 ENTRY ADDRESS       00

 TOTAL LENGTH      8C58

****IEFVHA    NOW REPLACED IN DATA SET
****IEFVHF    IS AN ALIAS FOR THIS MEMBER
****IEFVHREP  IS AN ALIAS FOR THIS MEMBER
****IEFVHCB   IS AN ALIAS FOR THIS MEMBER
AUTHORIZATION CODE IS         0.
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.




                                             DIAGNOSTIC MESSAGE DIRECTORY
   IEW0740 THE INDICATED ACTION WAS TAKEN FOR AN EXPAND REQUEST.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.SYSUT1       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000400     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000401     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000401     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /LKED    / START 78240.1949
IEF374I STEP /LKED    / STOP  78240.1949 CPU   0MIN 00.12SEC MAIN 198K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:49:06.32   ALLOC START    19:49:06.33   MAIN REGION ----- 256K                          *
*   STEP NAME LKED       STEP END TIME  19:49:06.57   PGM START TIME 19:49:06.39   MAIN STORAGE ---- 198K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.25   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  HEWLF064   STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0150 ----------- 47       0158 ----------- 66       0353 ---------- 116       0130 ------------ 8                              *
************************************************************************************************************************************

//ZAP    EXEC PGM=IMASPZAP,COND=(0,NE)
//SYSLIB   DD DISP=SHR,DSN=*.LKED.SYSLMOD,VOL=REF=*.LKED.SYSLMOD
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
//
IEF236I ALLOC. FOR SY20ZR18 ZAP
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
NAME IEFVHA IEFVFA
IDRDATA TMVT812
VER 000000 05B0                      BALR  RB,0             VERIFY MODULE
VER 000002 47F0,B014                 B     FA1              VERIFY MODULE
VER 00000C 11111111                  DC    X'11111111'      VERIFY MODULE
VER 000AE8 95AA,5000                 CLI   0(R5),RESTARJK   IS IT RESTART=
VER 000AEC 4780,B750                 BE    FB3              YES- RETURN TO TRANS
VER 0016D8 00000000                  DC    X'00000000'      PATCH AREA
REP 000AE8 47F0,A6D6        CLOBBER  B     PATCH            TO PATCH AREA
REP 0016D8 954B,5000        PATCH    CLI   0(R5),SYSOUTK    IS KEY SYSOUT?
REP 0016DC 4770,A6FC                 BNE   ASR2             BRANCH IF NOT
REP 0016E0 9500,6000                 CLI   0(R6),0          IS * FIRST OPERAND?
REP 0016E4 4770,BB2A                 BNE   ASR1             ERROR IF NOT
REP 0016E8 5510,80B8                 CL    R1,CBSYP         IS IT FIRST CHARACTE
REP 0016EC 4770,BB2A                 BNE   ASR1             ERROR IF NOT
REP 0016F0 41F0,C2D0                 LA    RF,IWA+(JCT-IWA) ELSE POINT TO JCT
REP 0016F4 D200,1000,F006            MVC   0(1,R1),6(RF)    COPY MSGCLASS TO TEX
REP 0016FA 47F0,B750                 B     FB3              CONTINUE SCAN
REP 0016FE 95AA,5000        ASR2     CLI   0(R5),RESTARJK   CLOBBERED INSTRUCTIO
REP 001702 47F0,BAEA                 B     PATCHRET         RETURN TO MAINLINE
IMA125I IEFVHA   IDR COUNT = 02 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000402     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000403     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000403     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /ZAP     / START 78240.1949
IEF374I STEP /ZAP     / STOP  78240.1949 CPU   0MIN 00.06SEC MAIN  32K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:49:06.59   ALLOC START    19:49:06.60   MAIN REGION ----- 256K                          *
*   STEP NAME ZAP        STEP END TIME  19:49:06.73   PGM START TIME 19:49:06.65   MAIN STORAGE ----- 32K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.14   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0150 ----------- 78       0158 ----------- 23       0130 ----------- 22                                                        *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR18/ START 78240.1949
IEF376I  JOB /SY20ZR18/ STOP  78240.1949 CPU   0MIN 00.18SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR18   JOB READ TIME 19:49:06.23   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.18   *
*   JOB CLASS A          JOB INIT TIME 19:49:06.32   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.44   *
*   ACCOUNT   1          JOB END TIME  19:49:06.76   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1      8888888                  A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     888888888                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     88     88               AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11     88     88              AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11      8888888              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11      8888888              AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11     88     88             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     88     88             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   888888888             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    8888888              AA     AA

***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********


//SY20ZR18 JOB 1,TMVT813,CLASS=A,MSGLEVEL=(1,1)
***
***  PROBLEM DESCRIPTION(S):
***    TMVT813 -
***      Prevent display of msgIEF236I and msgIEF237I as WTOs
***      for allocation of unit record devices when MONITOR
***      JOBNAMES active.
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TMVT813
***
***   SPECIAL CONDITIONS:
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/25
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       IEFXT002
***
***     NOTE:  This usermod was previously called TMVT807.
***
//TMVT813 EXEC PGM=IMASPZAP,REGION=128K
//SYSPRINT  DD SYSOUT=A
//SYSLIB    DD DISP=SHR,DSN=SYS1.LINKLIB,
//             UNIT=SYSDA,VOL=SER=ASPRES
//SYSIN     DD *
//
IEF236I ALLOC. FOR SY20ZR18 TMVT813
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
NAME IEFWD000 IEFXT002
VER 05DA 9108,6012  XTTPM2 TM UCBTBYT3,UCB3UREC   UNIT RECORD DEVICE?
VER 05DE 4780,95F8         BC 8,XTTPM6            SKIP MESSAGE IF NOT
REP 05DE 47F0,95F8         B  XTTPM6              SKIP MESSAGE ALWAYS
IDRDATA TMVT813
IMA125I IEFWD000 IDR COUNT = 02 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000404     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000405     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000405     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TMVT813 / START 78240.1949
IEF374I STEP /TMVT813 / STOP  78240.1949 CPU   0MIN 00.05SEC MAIN  32K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:49:16.38   ALLOC START    19:49:16.39   MAIN REGION ----- 256K                          *
*   STEP NAME TMVT813    STEP END TIME  19:49:16.54   PGM START TIME 19:49:16.45   MAIN STORAGE ----- 32K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.16   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ------------ 8       0150 ----------- 25       0130 ------------ 7                                                        *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR18/ START 78240.1949
IEF376I  JOB /SY20ZR18/ STOP  78240.1949 CPU   0MIN 00.05SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR18   JOB READ TIME 19:49:16.32   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.05   *
*   JOB CLASS A          JOB INIT TIME 19:49:16.38   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.18   *
*   ACCOUNT   1          JOB END TIME  19:49:16.56   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1      8888888                  A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     888888888                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     88     88               AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11     88     88              AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11      8888888              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11      8888888              AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11     88     88             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     88     88             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   888888888             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    8888888              AA     AA

***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:26 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:26 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:26 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:26 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:26 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********


//SY20ZR18 JOB 1,TMVT814,CLASS=A,MSGLEVEL=(1,1)
***
***  PROBLEM DESCRIPTION(S):
***    TMVT814 -
***      Prevent "IEF249I FOLLOWING P/R AND RSV VOLUMES
***      ARE MOUNTED" display of mounted volumes during IPL.
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TMVT814
***
***   SPECIAL CONDITIONS:
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/25
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       IEFPRES
***
***     NOTE:  This usermod was previously called TMVT808.
***
//TMVT814 EXEC PGM=IMASPZAP,REGION=128K
//SYSPRINT  DD SYSOUT=A
//SYSLIB    DD DISP=SHR,DSN=SYS1.LINKLIB,
//             UNIT=SYSDA,VOL=SER=ASPRES
//SYSIN     DD *
//
IEF236I ALLOC. FOR SY20ZR18 TMVT814
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
NAME IEEVPRES IEFPRES
VER 00D2 0A23,5830,0010      WTO   MF=(E,(R1))   WRITE MSG.
VER 01A4 0A23,07F6           WTO   MF=(E,(R1))   WRITE MSG.
REP 00D2 0700                NOP   ,             SKIP MESSAGE
REP 01A4 0700                NOP   ,             SKIP MESSAGE
IDRDATA TMVT814
IMA125I IEEVPRES IDR COUNT = 01 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000406     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000407     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000407     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TMVT814 / START 78240.1949
IEF374I STEP /TMVT814 / STOP  78240.1949 CPU   0MIN 00.05SEC MAIN  32K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:49:26.71   ALLOC START    19:49:26.72   MAIN REGION ----- 256K                          *
*   STEP NAME TMVT814    STEP END TIME  19:49:26.86   PGM START TIME 19:49:26.77   MAIN STORAGE ----- 32K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.15   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ------------ 9       0150 ----------- 22       0130 ------------ 8                                                        *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR18/ START 78240.1949
IEF376I  JOB /SY20ZR18/ STOP  78240.1949 CPU   0MIN 00.05SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR18   JOB READ TIME 19:49:26.65   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.05   *
*   JOB CLASS A          JOB INIT TIME 19:49:26.71   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.17   *
*   ACCOUNT   1          JOB END TIME  19:49:26.88   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1      8888888                  A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     888888888                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     88     88               AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11     88     88              AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11      8888888              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11      8888888              AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11     88     88             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     88     88             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   888888888             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    8888888              AA     AA

***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********


//SY20ZR18 JOB 1,TMVT815,CLASS=A,MSGLEVEL=(1,1)
***
***  PROBLEM DESCRIPTION(S):
***    TMVT815 -
***      Modify IEEVRCTL to set default MSGCLASS for started
***      tasks and mount commands to Z.
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TMVT815
***
***   SPECIAL CONDITIONS:
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/25
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       IEEVRCTL
***
***     NOTE:  This usermod was previously called TMVT811.
***
//TMVT815 EXEC PGM=IMASPZAP,REGION=128K
//SYSPRINT  DD SYSOUT=A
//SYSLIB    DD DISP=SHR,DSN=SYS1.LINKLIB,
//             UNIT=SYSDA,VOL=SER=ASPRES
//SYSIN     DD *
//
IEF236I ALLOC. FOR SY20ZR18 TMVT815
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
 NAME IEEVRCTL IEEVRCTL
 IDRDATA TMVT815
 VER 0574 C1   MSGCLASS=A
 REP 0574 E9   MSGCLASS=Z
IMA125I IEEVRCTL IDR COUNT = 01 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000408     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000409     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000409     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TMVT815 / START 78240.1949
IEF374I STEP /TMVT815 / STOP  78240.1949 CPU   0MIN 00.04SEC MAIN  32K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:49:37.33   ALLOC START    19:49:37.34   MAIN REGION ----- 256K                          *
*   STEP NAME TMVT815    STEP END TIME  19:49:37.49   PGM START TIME 19:49:37.39   MAIN STORAGE ----- 32K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.16   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.04   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ------------ 7       0150 ----------- 16       0130 ------------ 6                                                        *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR18/ START 78240.1949
IEF376I  JOB /SY20ZR18/ STOP  78240.1949 CPU   0MIN 00.04SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR18   JOB READ TIME 19:49:37.27   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.04   *
*   JOB CLASS A          JOB INIT TIME 19:49:37.33   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.17   *
*   ACCOUNT   1          JOB END TIME  19:49:37.50   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1      8888888                  A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     888888888                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     88     88               AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11     88     88              AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11      8888888              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11      8888888              AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11     88     88             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     88     88             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   888888888             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    8888888              AA     AA

***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:46 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:46 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:46 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:46 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:46 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********


//SY20ZR18 JOB 1,TMVT816,MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***
***  PROBLEM DESCRIPTION(S):
***    TMVT816 -
***      This usermod updates the 3277 console write module to
***      update the 3270 field attribute byte for each in-line
***      message line according to the action message status of
***      the message shown on that line before the screen is
***      written.
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TMVT816
***
***   SPECIAL CONDITIONS:
***
***  COMMENTS:
***     LAST CHANGE:  2006/08/25
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       IEECVETV
***
***     NOTE:  This usermod was previously called TMVT810.
***
***     NOTE:  This usermod is an MVT adaptation of Prycroft Six P/L
***       public domain usermod for MVS 3.8 no. 4 by Greg Price.
***       The MVS version is available at:
***
***         http://www.prycroft6.com.au/vs2mods/download/zp60004.zip
***
//TMVT816 EXEC PGM=IMASPZAP,REGION=128K,COND=(0,NE)
//SYSPRINT DD SYSOUT=A
//SYSLIB   DD DISP=SHR,DSN=SYS1.SVCLIB,
//             UNIT=SYSDA,VOL=SER=ASPRES
//SYSIN    DD  *
//
IEF236I ALLOC. FOR SY20ZR18 TMVT816
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
NAME IGC5V07B IEECVETV
IDRDATA TMVT816
VER 000000 05B0             START    BALR  RBBASE,N0           SET UP
VER 000002 47F0,B03A                 B     ICATCH              BRANCH AROUND EYE
VER 000006 40C9C7C3F5E5F0F7          DC    C' IGC5V07B '
VER 00000E C240
VER 000010 6040C9C5C5C3E5C5 PATCHLOC DC    C'- IEECVETV'
VER 000018 E3E5
VER 00001A 40E9C1D740E9C1D7          DC    C' ZAP ZAP'
VER 000022 40E9C1D740E9C1D7          DC    C' ZAP ZAP'
VER 00002A 40E9C1D740E9C1D7          DC    C' ZAP ZAP'
VER 000032 40E9C1D740E9C1D7          DC    C' ZAP ZAP'
VER 00003A 4000                      DC    X'4000'
VER 000096 9110,A129        FULLWRT  TM    DCMIOCM1,DCMWRMSG   WRITE FULL MESSAG
VER 00009A 47E0,B0C0        PATCHRET BNO   PARTWRT              NO, TEST NEXT FU
VER 0000C2 9108,A129                 TM    DCMIOCM1,DCMWRPAR   WRITE PARTIAL MES
VER 0003B6 0006             H6       DC    H'6'
REP 000096 47F0,B00E                 B     PATCH               TO PATCH AREA
REP 000010 5850,A030        PATCH    L     R5KEEP,DCMASCRN
REP 000014 4B50,B3B4                 SH    R5KEEP,H6
REP 000018 92E4,5004        LINELOOP MVI   N4(R5KEEP),LO
REP 00001C 915C,5009                 TM    N9(R5KEEP),ASTER
REP 000020 47E0,B026                 BNO   NEXTLINE   NOT * OR @
REP 000024 92E8,5004                 MVI   N4(R5KEEP),HI
REP 000028 4A50,A10C        NEXTLINE AH    R5KEEP,DCMCORLN
REP 00002C 5950,A04C                 C     R5KEEP,DCMPFKLN
REP 000030 4740,B016                 BL    LINELOOP
REP 000034 9110,A129                 TM    DCMIOCM1,DCMWRMSG
REP 000038 47F0,B098                 B     PATCHRET
IMA125I IGC5V07B IDR COUNT = 01 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000410     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000411     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000411     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TMVT816 / START 78240.1949
IEF374I STEP /TMVT816 / STOP  78240.1949 CPU   0MIN 00.07SEC MAIN  32K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:49:46.25   ALLOC START    19:49:46.26   MAIN REGION ----- 256K                          *
*   STEP NAME TMVT816    STEP END TIME  19:49:46.42   PGM START TIME 19:49:46.33   MAIN STORAGE ----- 32K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.17   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ----------- 32       0150 ----------- 88       0130 ----------- 31                                                        *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR18/ START 78240.1949
IEF376I  JOB /SY20ZR18/ STOP  78240.1949 CPU   0MIN 00.07SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR18   JOB READ TIME 19:49:46.18   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.07   *
*   JOB CLASS A          JOB INIT TIME 19:49:46.25   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.18   *
*   ACCOUNT   1          JOB END TIME  19:49:46.43   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1      8888888                  A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     888888888                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     88     88               AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11     88     88              AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11      8888888              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11      8888888              AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11     88     88             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     88     88             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   888888888             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    8888888              AA     AA

***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:57 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:57 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:57 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:57 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:49:57 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********


//SY20ZR18 JOB 1,TASP801,CLASS=A,MSGLEVEL=(1,1)
***
***  PROBLEM DESCRIPTION(S):
***    TASP801 -
***      Improve ASP queuing performance.  A number of ASP functions,
***      especially those that use the work-to-do driver such as
***      *INQUIRE,Q and *INQUIRE,B, rely on timer pops rather than
***      direct posts for new work to be processed.  This usermod
***      changes several posts from delayed to immediate, and removes
***      short interval ATIMER calls from the work-to-do driver.
***
***   COMPONENT:  360A-CX15X-ASP
***
***   APARS FIXED: TASP801
***
***   SPECIAL CONDITIONS:
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/28
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       INQBACK
***       INQQUE
***       MODRJP
***       MSVMVT
***       WTDDRVR
***
//TASP801 EXEC PGM=IMASPZAP,REGION=256K
//SYSPRINT DD SYSOUT=A
//SYSLIB DD DISP=SHR,DSN=ASP.VERSON32,UNIT=SYSDA,VOL=SER=ASPSUP
//SYSIN  DD *
//
IEF236I ALLOC. FOR SY20ZR18 TASP801
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
 NAME INQBACK INQBACK
  IDRDATA TASP801
  VER 00020A 9640C2C0       OI    WTDQUE,X'40'    GIVE SOFT POST
  REP 00020A 96C0C2C0       OI    WTDQUE,X'C0'    POST IMMEDIATE
IMA125I INQBACK  IDR COUNT = 01 (MAX=19)
 NAME INQQUE INQQUE
  IDRDATA TASP801
  VER 0003B2 9640C2C0       OI    WTDQUE,X'40'    POST SOFT
  REP 0003B2 96C0C2C0       OI    WTDQUE,X'C0'    POST IMMEDIATE
IMA125I INQQUE   IDR COUNT = 01 (MAX=19)
 NAME MODRJP MODRJP
  IDRDATA TASP801
  VER 0005BA 9640C2C0       OI    WTDQUE,X'40'    POST
  REP 0005BA 96C0C2C0       OI    WTDQUE,X'C0'    POST IMMEDIATE
IMA125I MODRJP   IDR COUNT = 01 (MAX=19)
 NAME MSVMVT MSVMVT
  IDRDATA TASP801
  VER 000C3A 9640C2C0       OI    WTDQUE,X'40'    SHOW WTD AVAILABLE
  REP 000C3A 96C0C2C0       OI    WTDQUE,X'C0'    POST IMMEDIATE
IMA125I MSVMVT   IDR COUNT = 01 (MAX=19)
 NAME ASPNUC WTDDRVR
  IDRDATA TASP801
  VER 000006 4590A0C8       BAL   R9,TIMECMPR     SET TIMER FOR COMPRESS
  VER 00006E 4590A0EE       BAL   R9,TIMEWTD      SET WTD TIMER
  REP 000006 4700A0C8       NOP   TIMECMPR        DON'T SET COMPRESS TIMER
  REP 00006E 4700A0EE       NOP   TIMEWTD         DON'T SET WTD TIMER
IMA125I ASPNUC   IDR COUNT = 01 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000412     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   ASP.VERSON32                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000413     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000413     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TASP801 / START 78240.1949
IEF374I STEP /TASP801 / STOP  78240.1949 CPU   0MIN 00.09SEC MAIN  26K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:49:57.21   ALLOC START    19:49:57.22   MAIN REGION ----- 256K                          *
*   STEP NAME TASP801    STEP END TIME  19:49:57.41   PGM START TIME 19:49:57.27   MAIN STORAGE ----- 26K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.20   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.09   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ----------- 29       0151 ---------- 133       0130 ----------- 24                                                        *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR18/ START 78240.1949
IEF376I  JOB /SY20ZR18/ STOP  78240.1949 CPU   0MIN 00.09SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR18   JOB READ TIME 19:49:57.15   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.09   *
*   JOB CLASS A          JOB INIT TIME 19:49:57.21   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.22   *
*   ACCOUNT   1          JOB END TIME  19:49:57.43   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1      8888888                  A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     888888888                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     88     88               AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11     88     88              AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11      8888888              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11      8888888              AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11     88     88             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     88     88             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   888888888             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    8888888              AA     AA

***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:05 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:05 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:05 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:05 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:05 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********


//SY20ZR18 JOB 1,TASP802,CLASS=A,MSGLEVEL=(1,1)
***
***  PROBLEM DESCRIPTION(S):
***    TASP802 -
***      Remove AWAIT in RICONTL reader/interpreter control logic
***      to permit the reader/interpreter to continue without
***      waiting for an interval timer pop.
***
***   COMPONENT:  360A-CX15X-ASP
***
***   APARS FIXED: TASP802
***
***   SPECIAL CONDITIONS:
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/28
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       RICONTL
***
//TASP802 EXEC PGM=IMASPZAP,REGION=256K
//SYSPRINT DD SYSOUT=A
//SYSLIB DD DISP=SHR,DSN=ASP.VERSON32,UNIT=SYSDA,VOL=SER=ASPSUP
//SYSIN  DD *
//
IEF236I ALLOC. FOR SY20ZR18 TASP802
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
 NAME RICONTL RICONTL
  IDRDATA TASP802
*                       AWAIT ECFMASK=X'80',ECFADD=RIDECB  WAIT FOR OS R/I
  VER 01FC 4100D054  +  LA    R0,RIDECB
  VER 0200 5E00AF30  +  AL    R0,=XL4'80000000' - INSERT ECFMASK
  VER 0204 58F0C0C4  +  L     R15,AWAIT
  VER 0208 05EF      +  BALR  R14,R15
  REP 0208 0700         NOPR  0
IMA125I RICONTL  IDR COUNT = 01 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000414     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   ASP.VERSON32                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000415     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000415     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TASP802 / START 78240.1950
IEF374I STEP /TASP802 / STOP  78240.1950 CPU   0MIN 00.05SEC MAIN  26K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:50:05.75   ALLOC START    19:50:05.76   MAIN REGION ----- 256K                          *
*   STEP NAME TASP802    STEP END TIME  19:50:05.91   PGM START TIME 19:50:05.82   MAIN STORAGE ----- 26K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.16   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ----------- 11       0151 ----------- 22       0130 ----------- 10                                                        *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR18/ START 78240.1950
IEF376I  JOB /SY20ZR18/ STOP  78240.1950 CPU   0MIN 00.05SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR18   JOB READ TIME 19:50:05.70   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.05   *
*   JOB CLASS A          JOB INIT TIME 19:50:05.75   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.18   *
*   ACCOUNT   1          JOB END TIME  19:50:05.93   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1      8888888                  A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     888888888                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     88     88               AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11     88     88              AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11      8888888              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11      8888888              AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11     88     88             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     88     88             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   888888888             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    8888888              AA     AA

***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:16 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********


//SY20ZR18 JOB 1,TASP803,MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***
***  PROBLEM DESCRIPTION(S):
***    TASP803 -
***      Zap a private copy of IEFVJA for ASP so the interpreter
***      will permit job classes A-Z and 0-9 on the JOB card.
***
***   COMPONENT:  360S-CI505-EBB2218
***
***   APARS FIXED: TASP803
***
***   SPECIAL CONDITIONS:
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/25
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       IEFVJA
***
//LKED   EXEC PGM=IEWL,REGION=256K,
//            PARM='NCAL,LIST,XREF,RENT,REUS,SIZE=(128K,18K)'
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(5,1))
//LINKLIB  DD DISP=SHR,DSN=SYS1.LINKLIB,
//            UNIT=SYSDA,VOL=SER=ASPRES
//SYSLMOD  DD DISP=SHR,DSN=ASP.VERSON32,
//            UNIT=SYSDA,VOL=SER=ASPSUP
//SYSLIN   DD *
***
IEF236I ALLOC. FOR SY20ZR18 LKED
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 150   ALLOCATED TO LINKLIB
IEF237I 151   ALLOCATED TO SYSLMOD
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,RENT,REUS,SIZE=(128K,18K)
           VARIABLE OPTIONS USED -  SIZE=(131072,18432)
IEW0000     INCLUDE LINKLIB(IEFMVTJA)
IEW0000     ALIAS IEFVJA
IEW0000     ENTRY IEFVJA
IEW0000     NAME IEFMVTJA(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFVHQ        00     2E4
  IEFVHF       2E8      1A
  IEFVGM       308     6D0
  IEFVGT       9D8     2F0
  IEFVGK       CC8     1E4
  IEFVJA       EB0     560
  IEFVHR      1410     454



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      2D8            IEFVHR          IEFVHR                       818            IEFVHQ          IEFVHQ
      EA0            IEFVHQ          IEFVHQ                      13E8            IEFVGT          IEFVGT
     13EC            IEFVGK          IEFVGK                      13F0            IEFVHQ          IEFVHQ
     13F4            IEFVGM          IEFVGM                      13F8            IEFVHF          IEFVHF

 ENTRY ADDRESS      EB0
 TOTAL LENGTH      1868

****IEFMVTJA  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
****IEFVJA    IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000416     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.R0000417     DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   ASP.VERSON32                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000418     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000418     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /LKED    / START 78240.1950
IEF374I STEP /LKED    / STOP  78240.1950 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:50:15.74   ALLOC START    19:50:15.75   MAIN REGION ----- 256K                          *
*   STEP NAME LKED       STEP END TIME  19:50:15.94   PGM START TIME 19:50:15.82   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.20   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0353 ----------- 34       0158 ------------ 0       0150 ------------ 8       0151 ----------- 10       0130 ------------ 5    *
************************************************************************************************************************************

//ZAP    EXEC PGM=IMASPZAP,REGION=128K,COND=(0,NE)
//SYSLIB   DD DISP=SHR,DSN=ASP.VERSON32,
//            UNIT=SYSDA,VOL=SER=ASPSUP
//SYSPRINT DD SYSOUT=A
//SYSIN    DD *
//
IEF236I ALLOC. FOR SY20ZR18 ZAP
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
NAME IEFMVTJA IEFVJA
 IDRDATA TASP803
 VER 0096 92D6C04E   MVI   DJBCLAS,C'O'  SET MAX DEFAULT CLASS
 REP 0096 92F9C04E   MVI   DJBCLAS,C'9'  SET MAX DEFAULT CLASS
IMA125I IEFMVTJA IDR COUNT = 01 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.VERSON32                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000419     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000420     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000420     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /ZAP     / START 78240.1950
IEF374I STEP /ZAP     / STOP  78240.1950 CPU   0MIN 00.04SEC MAIN  26K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:50:15.96   ALLOC START    19:50:15.97   MAIN REGION ----- 256K                          *
*   STEP NAME ZAP        STEP END TIME  19:50:16.08   PGM START TIME 19:50:16.02   MAIN STORAGE ----- 26K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.12   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.04   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0151 ----------- 16       0158 ------------ 7       0130 ------------ 6                                                        *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR18/ START 78240.1950
IEF376I  JOB /SY20ZR18/ STOP  78240.1950 CPU   0MIN 00.11SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR18   JOB READ TIME 19:50:15.66   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.11   *
*   JOB CLASS A          JOB INIT TIME 19:50:15.74   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.35   *
*   ACCOUNT   1          JOB END TIME  19:50:16.09   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1      8888888                  A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     888888888                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     88     88               AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11     88     88              AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11      8888888              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11      8888888              AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11     88     88             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     88     88             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   888888888             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    8888888              AA     AA

***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:28 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********


//SY20ZR18 JOB 1,TASP804,MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***
*** 2006/08/23 @KL
***
***  PROBLEM DESCRIPTION(S):
***    TASP804 -
***      Add ASP job number in format "JOB nnnn" to JMRUSEID
***      field in JMR.
***
***   COMPONENT:  360A-CX15X-ASP
***
***   APARS FIXED: TASP804
***
***   SPECIAL CONDITIONS:
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/28
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       MSVQMAP
***
//UPDTE  EXEC  PGM=IEBUPDTE,PARM=MOD
//SYSUT1   DD  DISP=SHR,DSN=ASP.SOURCE,
//             UNIT=SYSDA,VOL=SER=ASPSUP
//SYSUT2   DD  DSN=&&TEMP,DCB=(RECFM=FB,LRECL=80,BLKSIZE=880),
//             UNIT=SYSDA,DISP=(,PASS),SPACE=(CYL,(1,1,1))
//SYSPRINT DD  SYSOUT=A
//SYSIN DD *
***
IEF236I ALLOC. FOR SY20ZR18 UPDTE
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSUT2
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ CHANGE NAME=MSVQMAP
                        L     R15,MSQMSVD           Restore MSVDATA pointer   @TASP804 00615120     *          INSERTED*
                        USING MSVDATA,R15           Address MSVDATA           @TASP804 00615200     *          INSERTED*
                        MVC   JMRUSEID(4),=C'JOB '  Set ASP job number        @TASP804 00615220     *          INSERTED*
                        MVC   JMRUSEID+4(4),MSJOBNUM  in JMR                  @TASP804 00615240     *          INSERTED*
                        DROP  R15                   End MSVDATA addressing    @TASP804 00615260     *          INSERTED*
       ./       ENDUP
IEB817I MEMBER NAME (MSVQMAP ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.SOURCE                                   KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.TEMP         PASSED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000421     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000422     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000422     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /UPDTE   / START 78240.1950
IEF374I STEP /UPDTE   / STOP  78240.1950 CPU   0MIN 00.08SEC MAIN  32K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:50:24.56   ALLOC START    19:50:24.57   MAIN REGION ----- 256K                          *
*   STEP NAME UPDTE      STEP END TIME  19:50:24.76   PGM START TIME 19:50:24.63   MAIN STORAGE ----- 32K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.20   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.08   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0151 ----------- 23       0158 ----------- 84       0353 ----------- 11       0130 ------------ 7                              *
************************************************************************************************************************************

//ASM    EXEC  PGM=IEUASM,COND=(0,NE),PARM='DECK,NOLOAD'
//SYSLIB   DD  DISP=SHR,UNIT=SYSDA,VOL=SER=ASPSUP,DSN=ASP.MAC320,
//             DCB=BLKSIZE=19040
//         DD  DISP=SHR,UNIT=SYSDA,VOL=SER=ASPSUP,DSN=ASP.PSGLIB
//         DD  DISP=SHR,DSN=SYS1.MACLIB
//SYSUT1   DD  DSN=&SYSUT1,UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSUT2   DD  DSN=&SYSUT2,UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSUT3   DD  DSN=&SYSUT3,UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSPRINT DD  SYSOUT=A
//SYSPUNCH DD  DSN=&&OBJSET,UNIT=SYSDA,SPACE=(80,(200,50)),
//             DISP=(MOD,PASS)
//SYSGO    DD  DUMMY
//SYSIN    DD  DSN=&&TEMP(MSVQMAP),DISP=(OLD,DELETE)
***
IEF236I ALLOC. FOR SY20ZR18 ASM
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 151   ALLOCATED TO
IEF237I 350   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 353   ALLOCATED TO SYSUT3
IEF237I 130   ALLOCATED TO SYSPRINT
IEF237I 353   ALLOCATED TO SYSPUNCH
IEF237I 158   ALLOCATED TO SYSIN


MSVQ                                          EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.50  8/28/78


MSVQMAP   SD  01 000000 000A13
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      2          GBLC  &SIZE                                                    00001000
                                      3 &SIZE    SETC  '180'               SIZE OF RECORD                       00002000
000000                                4 MSVQMAP  START 0                                                        00003000
                                      5 *********************************************************************** 00004000
                                      6 *              DSENQ                                                  * 00005000
                                      7 *********************************************************************** 00006000
000000                                8 EADSENQ  DSECT                                                          00007000
000000                                9          DS    F                                                        00008000
000004                               10 DSENQNXT DS    F                   NEXT DSENQ TTR                       00009000


                                     12 *********************************************************************** 00011000
                                     13 *              DSN - DATA SET NAME TABLE                              * 00012000
                                     14 *********************************************************************** 00013000
000000                               15 EADSN    DSECT                                                          00014000
000000                               16          DS    F -                                                      00015000
000004                               17 DSNNEXT  DS    F -                 NEXT DSN TTR                         00016000
                                     18          ATTRMSG TYPE=DSECT,MSG=002                            @AA34009 00016300
                                     19+***********************************************************************
                                     20+*              ATTR002 MESSAGE FORMAT                                 *
                                     21+***********************************************************************
000000                               22+ATTR2    DSECT
000000 C1E3E3D9F0F0F240              23+ATTR2HDR DC    CL8'ATTR002' -      MESSAGE HEADER
000008 4040404040404040              24+ATTR2JNM DC    CL8' ' -            JOB NAME                    @AA34009
000010 40404040                      25+ATTR2TOD DC    CL4' ' -            TIME OF DAY IN BINARY       @AA34009
000014                               26+ATTR2TTR DS    0H -                ACTUAL TTR STORAGE
000014                               27+ATTR2END DS    0X -                END OF MSG HEADER
000014                               28+ATTR2SIZ DS    0XL(ATTR2END-ATTR2) SIZE OF MESSAGE HDR


                                     30          ATTRMSG TYPE=DSECT,MSG=003                            @AA34009 00016600
                                     31+***********************************************************************
                                     32+*              ATTR003 MESSAGE FORMAT                                 *
                                     33+***********************************************************************
000000                               34+ATTR3    DSECT
000000 C1E3E3D9F0F0F340              35+ATTR3HDR DC    CL8'ATTR003' -      MESSAGE HEADER
000008 4040404040404040              36+ATTR3JNM DC    CL8' ' -            JOB NAME                    @AA34009
000010 40404040                      37+ATTR3TOD DC    CL4' ' -            TIME OF DAY IN BINARY       @AA34009
000014                               38+ATTR3QMP DS    0XL36 -             QMPA
000014                               39+ATTR3END DS    0X -                END OF MESSAGE HEADER
000014                               40+ATTR3SIZ DS    0XL(ATTR3END-ATTR3) SIZE OF MESSAGE HEADER
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     43          EQUATE                                                         00018000
                                     44+***********************************************************************
                                     45+*              EQUATE STATEMENTS                                      *
                                     46+***********************************************************************
                                     47+*              GENERAL
000000                               48+NOP      EQU   0 -                 NO OPERATION
0000FF                               49+FF       EQU   X'FF' -             ALL BITS ON
                                     50+*              AFTER COMPARE INSTRUCTIONS
000002                               51+GT       EQU   2 -                 A HIGH
000004                               52+LT       EQU   4 -                 A LOW
000007                               53+NE       EQU   7 -                 A NOT EQUAL B
000008                               54+EQ       EQU   8 -                 A EQUAL B
00000B                               55+GE       EQU   11 -                A NOT LOW
00000D                               56+LE       EQU   13 -                A NOT HIGH
                                     57+*              AFTER ARITHMETIC INSTRUCTIONS
000001                               58+OV       EQU   1 -                 OVERFLOW
000002                               59+PLUS     EQU   2 -                 PLUS
000004                               60+MINUS    EQU   4 -                 MINUS
000007                               61+NZERO    EQU   7 -                 NOT ZERO
000008                               62+ZERO     EQU   8 -                 ZERO
000008                               63+ZEROS    EQU   8 -                 ZERO
00000B                               64+NMINUS   EQU   11 -                NOT MINUS
00000D                               65+NPLUS    EQU   13 -                NOT PLUS
                                     66+*              AFTER TEST UNDER MASK INSTRUCTIONS
000001                               67+ALLON    EQU   1 -                 ALL ON
000004                               68+MIXED    EQU   4 -                 MIXED
000005                               69+NALLOFF  EQU   5 -                 ALLON+MIXED
000008                               70+ALLOFF   EQU   8 -                 ALL OFF
00000C                               71+NALLON   EQU   12 -                ALLOFF+MIXED
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     74          FCTENTRY                                                       00020000
                                     75+***********************************************************************
                                     76+*              FUNCTION CONTROL TABLE ENTRY                           *
                                     77+***********************************************************************
000000                               78+         USING FCTSTART,R11
000000                               79+FCTSTART DSECT
000000                               80+FCTNEXT  DS    F -                 ADDRESS OF NEXT FCT
000004                               81+FCTAWTM  DS    F -                 AWAIT TEST UNDER MASK
000008                               82+FCTAWBC  DS    H -                 AWAIT BRANCH ON CONDITION
00000A                               83+FCTGETSZ DS    H -                 SIZE OF GOTTEN CORE THIS ENTRY
00000C                               84+FCTREGS  DS    0F -                REGISTERS 0-15 OVER AWAIT
00000C                               85+FCTMASK  DS    0X -                ECF MASK
00000C                               86+FCTECFAD DS    F -                 ECF ADDRESS (R0)
000010                               87+         DS    9F -                REGISTERS 1-9
000034                               88+FCTBASE  DS    F -                 REGISTER 10
000038                               89+FCTSELF  DS    F -                 ADDRESS OF THIS FCT (R11)
00003C                               90+FCTTVPTR DS    F -                 ADDRESS OF TVTABLE (R12)
000040                               91+FCTSAVE  DS    F -                 REGISTER 13
000044                               92+FCTRETN  DS    F -                 REGISTER 14
000048                               93+FCTFUNRC DS    F -                 REGISTER 15
00004C                               94+FCTRESAV DS    F -                 RESERVED SAVE AREA CHAIN
000050                               95+FCTSAVCH DS    F -                 ACTIVE SAVE AREA CHAIN
000054                               96+FCTSESEQ DS    0X -                SE SEQUENCE NO. THIS FUNCTION
000054                               97+FCTAJDB  DS    F -                 ADDRESS OF AJDB ENTRY THIS FUNCTION
000058                               98+FCTPRTY  DS    0X -                FUNCTION PRIORITY
000058                               99+FCTDSPDC DS    F -                 ADDRESS OF DSP DICTIONARY ENTRY
00005C                              100+FCTCSECT DS    F -                 ADDRESS OF CSECT LPRB FOR REENT MODS
000060                              101+FCTTIMON DS    F -                 LOGIN TIME ON
000064                              102+FCTLOGIN DS    F -                 CONSOLE MSG ENTRY FROM LOGIN
000068                              103+FCTTNEXT DS    A -                 ATIME QUEUE CHAIN FIELD
00006C                              104+FCTTUID  DS    CL4 -               ATIME QUEUE ELEMENT ID FIELD
000070                              105+FCTTIMEI DS    F -                 ATIME INCREMENT
000074                              106+FCTTFLAG DS    0X -                ATIME QUEUE ELEMENT FLAG BYTE
000074                              107+FCTTIMEX DS    A -                 ATIME EXIT ADDRESS
000078                              108+FCTCBPTR DS    F -                 POINTER TO CONSOLE BUFFER CHAIN
00007C                              109+FCTJCTPY DS    0X -                THIS JOB'S JCT PRIORITY
00007C                              110+FCTGLIST DS    F -                 POINTER TO GETUNIT LIST
000080                              111+FCTRJECF DS    0X -                RJP ECF
000080                              112+FCTRJPTR DS    F -                 RJP WORK AREA POINTER
000084                              113+FCTFLAG1 DS    X -                 FLAG BYTE 1
000085                              114+FCTFLAG2 DS    X -                 FLAG BYTE 2
000086                              115+FCTFLAG3 DS    X -                 FLAG BYTE 3
000087                              116+FCTFLAG4 DS    X -                 FLAG BYTE 4
000088                              117+FCTFSFLG DS    X -                 DSP FAIL SOFT FLAGS
000089                              118+FCTFSSUF DS    X -                 DSP FAIL SOFT SUFFIX
00008A                              119+FCTFSTAE DS    H -                 RESERVED FOR ASP
00008C                              120+         DS    F -                 RESERVED FOR ASP
000090                              121+FCTFLAGU DS    H -                 RESERVED FOR USER
000092                              122+FCTUSERH DS    H -                 RESERVED FOR USER
000094                              123+FCTUSERF DS    F -                 RESERVED FOR USER
000098                              124+FCTWORK  DS    D -                 WORK AREA FOR DSP
0000A0                              125+FCTFSCOD DS    CL6 -               ABEND CODE FOR FAILDSP MACRO
0000A6                              126+FCTRSCNT DS    H -                 NUMBER OF RESOURCES ENQUEUED
0000A8                              127+FCTFSLOC DS    F -                 LOCATION OF FAILDSP MACRO
0000AC                              128+FCTFSRTN DS    F -                 SAVE AREA FOR FCTRETN OVER FAILDSP
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000B0                              129+FCTEND   DS    0F -                END OF FCT
0000B0                              130+FCTSIZE  DS    0XL(FCTEND-FCTSTART) SIZE OF FCT = L'FCTSIZE
                                    131+*---------------------------------------------------------------------*
                                    132+*              DEFINITION OF FCTTFLAG                                 *
                                    133+*---------------------------------------------------------------------*
000080                              134+FCTQAVAL EQU   X'80' -             TIMER ENTRY IS AVAILABLE(INACTIVE)
000040                              135+FCTQDONE EQU   X'40' -             TIMER INTERVAL IS COMPLETE(EXPIRED)
000020                              136+FCTQUSER EQU   X'20' -             TIMER ENTRY AREA PROVIDED BY USER
000010                              137+FCTQHEAD EQU   X'10' -             TIMER ENTRY IS WITHIN THE FCT
000008                              138+FCTQIDOP EQU   X'08' -             ID IS IN TIMER ENTRY
000004                              139+FCTQWAIT EQU   X'04' -             BUSY OMITTED, WAIT OPTION
000002                              140+FCTQFCTO EQU   X'02' -             FCT OPTION
                                    141+*---------------------------------------------------------------------*
                                    142+*              DEFINITION OF FCTFLAG1                                 *
                                    143+*---------------------------------------------------------------------*
000080                              144+FCTNOEF  EQU   X'80' -             DO NOT CREATE ENDING FUNCTION
000040                              145+FCTPTHLD EQU   X'40' -             SET JOB IN HOLD
000020                              146+FCTAGET  EQU   X'20' -             LAST AGETMAIN WAS UNSUCCESSFUL
000010                              147+FCTGNOAL EQU   X'10' -             ALLO=NO ON CALL TO GETPUTUN
000008                              148+FCTRSVM  EQU   X'08' -             RESERVE IS BEING PROCESSED
000004                              149+FCTNORSV EQU   X'04' -             SPECIAL SAVE AREA WAS USED
000002                              150+FCTRELM  EQU   X'02' -             RELEASE IS BEING PROCESSED
000001                              151+FCTJSPND EQU   X'01' -             SUSPENDED FOR ILLEGAL RQ/JCT ACCESS
                                    152+*---------------------------------------------------------------------*
                                    153+*              DEFINITION OF FCTFLAG2                                 *
                                    154+*              DSP RETURN CODE TO JSS                                 *
                                    155+*---------------------------------------------------------------------*
000000                              156+FCTJSNRM EQU   0 -                 NORMAL COMPLETION
000004                              157+FCTJSRSK EQU   4 -                 PUT JOB IN HOLD FOR LATER RESCHED
000008                              158+FCTJSSPR EQU   8 -                 SPECIALIZED RESCHED (R1 PTS TO BUFR)
00000C                              159+FCTJPURG EQU   12 -                CANCEL ALL JOB SE'S EXCEPT PURGE
000010                              160+FCTJSCAN EQU   16 -                CANCEL WITH PRINT
                                    161+*---------------------------------------------------------------------*
                                    162+*              DEFINITION OF FCTFLAG3                                 *
                                    163+*---------------------------------------------------------------------*
000080                              164+FCTSPIE  EQU   X'80' -             FAILSOFT IN PROCESS
000040                              165+FCTPERM  EQU   X'40' -             THIS IS A PERMANENT FCT
000020                              166+FCTQUIES EQU   X'20' -             FCT HAS BEEN QUIESCED BY FAILSOFT
000010                              167+FCTTHOLD EQU   X'10' -             PUT JCTTHOLD ON RETURN TO JSS
000008                              168+FCTJCTNQ EQU   X'08' -             FCT HAS REQUESTED ENQ ON JCT
000004                              169+FCTPREAL EQU   X'04' -             THIS IS A PRE-ALLOC FCT
000002                              170+FCTSRESD EQU   X'02' -             DSP ENTRD FM SPC RSCHD(GETUNIT DONE)
000001                              171+FCTSCREF EQU   X'01' -             RI DETERMINED JOB HAS SCRTCH SETUP
                                    172+*---------------------------------------------------------------------*
                                    173+*              DEFINITION OF FCTFLAG4                                 *
                                    174+*---------------------------------------------------------------------*
000080                              175+FCTRISU  EQU   X'80' -             SETUP REQD, DETERMINED BY R/I DSP
000040                              176+FCTSOUT  EQU   X'40' -             R/I DETERMINED SYSOUT=TSO CLS IN JOB
000020                              177+FCTJDTAT EQU   X'20' -             R/I DETERMINED SYSOUT=TAT CLS IN JOB
000010                              178+FCTRIDAO EQU   X'10' -             R/I DETERMINED SETUP REQ DA ONLY
000008                              179+FCTECFOF EQU   X'08' -             JSSDR-MSK/ADR IN FCTWORK FOR NI INS
000004                              180+FCTECFON EQU   X'04' -             JSSDR-MSK/ADR IN FCTWORK FOR OI INS
                                    181+*---------------------------------------------------------------------*
                                    182+*              DEFINITION OF FCTFSFLG                                 *
                                    183+*---------------------------------------------------------------------*
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000080                              184+FCTFSTME EQU   X'80' -             FAILSOFT IS CALLING ATIME
000040                              185+FCTFAIL  EQU   X'40' -             FAILDSP MACRO CAUSED ABEND
000020                              186+FCTFAILC EQU   X'20' -             CURRENT FCT WAS FAILED
000010                              187+FCTFSNDP EQU   X'10' -             NO DUMP REQUIRED FOR THIS FAILURE
000008                              188+FCTFSRCV EQU   X'08' -             RECOVERY ROUTINE IS IN CONTROL
                                    189+***********************************************************************
                                    190+*              FORMAT OF EACH GETUNIT LIST ENTRY                      *
                                    191+***********************************************************************
000000                              192+GLSTART  DSECT
000000                              193+GLDDNAME DS    CL8 -               DDNAME OF DEVICE
000008                              194+GLTYPE   DS    0CL8 -              DEVICE TYPE
000008                              195+GLTGEN   DS    CL3 -               GENERAL DEVICE TYPE
00000B                              196+GLTSPEC  DS    CL5 -               SPECIFIC DEVICE TYPE
000010                              197+GLADDR   DS    F -                 ADDRESS OF SUPUNITS ENTRY
000014                              198+GLFLAGS  DS    0X -                GETLIST FLAG BYTE
000014                              199+         DS    F -                 RESERVED FOR ASP
000018                              200+GLEND    DS    0F -                END OF GET LIST ENTRY
000018                              201+GLSIZE   DS    0XL(GLEND-GLSTART) -SIZE OF GL ENTRY = L'GLSIZE
                                    202+*---------------------------------------------------------------------*
                                    203+*              DEFINITION OF GLFLAGS                                  *
                                    204+*---------------------------------------------------------------------*
000080                              205+GLGRPTYP EQU   X'80' -             GETUNIT IS FOR GROUP
000040                              206+GLRMTTYP EQU   X'40' -             GETUNIT IS FOR REMOTE DEVICE
000020                              207+GLGASSGN EQU   X'20' -             UNIT ALLOC RESULT OF GRP/GRP ASSGN
000010                              208+GLDASSGN EQU   X'10' -             UNIT ALLOC RESULT OF DEV/DEV ASSGN
000008                              209+GLANYLCL EQU   X'08' -             UNIT REQUEST FOR ANY LOCAL
                                    210+*---------------------------------------------------------------------*
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              213 EAJCT    DSECT                                                          00022000
                                    214          IEFAJCTB                                                       00023000
                                    215+* L.01  R/I LEVEL NUMBER FOR RELEASE 19
                                    216+***********************************************************************
                                    217+**                                                                   **
                                    218+**                       JOB CONTROL TABLE                           **
                                    219+**                                                                   **
                                    220+***********************************************************************
000000                              221+         DS    0D
000000                              222+INJMJCT  EQU   *
000000                              223+JCTDSKAD DS    CL3 DISK ADDRESS OF THIS JCT
000003                              224+JCTIDENT DS    CL1 JCT ID = 64
000000                              225+JCTID    EQU   0
000004                              226+JCTJSRNO DS    CL1 INTERNAL JOB SERIAL NUMBER
000005                              227+JCTJBLBS DS    0C JOBLIB SWITCH  BITS 0-3
000005                              228+JCTJSTAT DS    1C BIT 1 - JOB FLUSH BIT
000020                              229+JCTJSTPC EQU   32 BIT-2/JOB STEP CANCELLED BY CONDITION CODES
                                    230+*                                      BIT 3 - STEP FLUSH BIT
000008                              231+JCTABEND EQU   8 BIT 4 - JCT ABEND BIT           HW16
000004                              232+INCMSTS  EQU   4 BIT-5/JOB FAILED BIT
                                    233+*                                        BIT 5 = 1 JOB FAILED
                                    234+*                                        BIT 6 = 0 GO JOB
000002                              235+INDMCTLG EQU   2 BIT 6 = 1 CATALOG JOB
000002                              236+INCMCAT  EQU   2 BIT-6/CATALOG BIT
000001                              237+INCMNSET EQU   1 BIT7/NONSETUP
                                    238+*                                        BIT 7 = 0 SETUP JOB
                                    239+*                                        BIT 7 = 1 NONSETUP JOB
000006                              240+JCTJMGPO DS    CL1 MESSAGE CLASS
000007                              241+JCTJMGLV DS    0C 4 BITS FOR MESSAGE LEVEL -SET BY IEFVJA
000010                              242+INCMMGL1 EQU   16 JCL  MESSAGE LEVEL=1 BIT         I68
000020                              243+INCMMGL2 EQU   32 JCL  MESSAGE LEVEL=2 BIT         I68
000080                              244+INCMALL  EQU   128 ALLOCATION MESSAGE LEVEL=1 BIT         I68
000007                              245+JCTJPRTY DS    1C 4 BITS FOR JOB PRIORITY
000008                              246+JCTJNAME DS    CL8 JOBNAME
000010                              247+JCTJTPTN DS    CL8 T/P TERMINAL NAME
000018                              248+JCTPDQDA DS    CL4 DISK ADDRESS OF PDQ
00001C                              249+JCTBCTDA DS    CL4 DISK ADDRESS OF BIAS CT TABLE
000020                              250+JCTSDKAD DS    CL4 DISK ADDRESS OF FIRST SCT
000024                              251+JCTSMBAD DS    CL4 DISK ADDRESS OF FIRST SMB
000028                              252+JCTACTAD DS    CL4 DISK ADDRESS OF FIRST ACT
00002C                              253+JCTDSSBA DS    CL4 TTR OF FIRST SYSOUT CLASS
                                    254+*                                      DIRECTORY (SCD), CREATED AT
                                    255+*                                      INTERPRETER TIME, USED BY
                                    256+*                                      INITIATOR
000030                              257+JCTDSBAD DS    CL4 DISK ADDRESS OF LAST DATA SET B
000034                              258+JCTSMBID DS    CL2 KEY (OF TRACK ID) FOR SMBS
000036                              259+JCTJDPCD DS    CL2 DEPENDENCY CODE
000038                              260+JCTJDPOP DS    CL2 DEPENDENCY OPERATOR
00003A                              261+         DS    CL28 ROOM FOR 7 MORE DEPS
000056                              262+JCTRSW1  DS    C CHECKPOINT/RESTART SWITCHES
000080                              263+JCTWARMS EQU   128 BIT0 - WARM START
000040                              264+JCTSTERM EQU   64 STEP TERMINATION HAS BEGUN (PCP WARM START ONLY)AACA
000010                              265+JCTCKFT  EQU   16 BIT  3 - CHECKPOINT TAKEN FOR THIS STEP
000008                              266+JCTCKPTR EQU   8 BIT   4 - CHECKPOINT RESTART (INTRA-STEP) TO BE DONE
000004                              267+JCTSTEPR EQU   4 BIT   5 - STEP RESTART TO BE DONE
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    268+* BITS 6AND 7 MUST BE ZERO
000057                              269+JCTRSW2  DS    C CHECKPOINT/RESTART SWITCHES
000080                              270+JCTSYSCK EQU   128 BIT 0 - SYSCHK DD STATEMENT PRESENT
000020                              271+JCTNORST EQU   32 BIT 2 - NO RESTART TO BE DONE
000010                              272+JCTNOCKP EQU   16 BIT 3 - NO CHECKPOINTS TO BE TAKEN
000008                              273+JCTRESTT EQU   8 BIT  4 - DO RESART IF NECESSARY
000004                              274+JCTDSOCR EQU   4 BIT 5 - DSO ACTIVE AT CHECKPOINT                O99
                                    275+*                        SET BY IEFDSDRP                            O99
                                    276+*                        TESTED BY IEFSD162,IEFSDOCR,IEFSD518       O99
000002                              277+JCTDSOJB EQU   2 BIT 6 - DSOCB'S SELECTED FOR JOB                O99
                                    278+*                (IE.INDICATES JOB IS ELIGIBLE FOR DIRECT SYSOUT)   O99
                                    279+*                        SET BY IEFSD511,IEFSD161,IEFSD518,IEFSDOCR O99
                                    280+*                        TESTED BY IEFVMLS1,IEFSD512,IEFSD162,      O99
                                    281+*                        IEFYTVMS,IEFSD31Q,IEFSD518,IEFDSOCR        O99
000001                              282+JCTDSDRA EQU   1 BIT 7 - DSDR PROCESSING HAS NOT SUCC. ENDED     AACA
                                    283+***********************************************************************
                                    284+*                                                                    **
                                    285+*        IN ORDER TO IMPLEMENT MVT IT HAS BEEN NECESSARY TO          **
                                    286+*        ADD THE FOLLOWING FIELDS TO THE JCT.  TO AVOID CAUSING      **
                                    287+*        ERRORS IN THE CASE OF THE REASSEMBLING OF ALREADY EXIST-    **
                                    288+*        ING MODULES WHICH REFERENCE THESE FIELDS, THEY ARE GEN-     **
                                    289+*        ERATED HERE ONLY AS COMMENTS CARDS.  NOTE THAT DUE TO THE   **
                                    290+*        FACT THAT THIS MACRO GENERATES THE ACT IMMEDIATELY AFTER    **
                                    291+*        THE JCT, IT IS NOT POSSIBLE TO REFERENCE THESE FIELDS BY    **
                                    292+*        CODING THEM AFTER THE MACRO.  FOR NOW THEY MUST BE REF-     **
                                    293+*        ERENCED BY DISPLACEMENT (WHICH IS GIVEN BELOW), PREFER-     **
                                    294+*        ABLY THROUGH THE USE OF EQUATES AND THE SYMBOLS BELOW.      **
                                    295+*        NOTE ALSO THAT THIS MACRO IS NOT VALID FOR REFERENCING      **
                                    296+*        THE ACT UNTIL THESE NEW FIELDS HAVE ACTUALLY BEEN           **
                                    297+*        INCORPORATED.                                               **
                                    298+*                                                                    **
                                    299+***********************************************************************
                                    300+*                                                                     *
                                    301+*JCTDETDA DS    CL4                     TTR OF DISENQ TABLE           *
                                    302+*                                       (DISPLACEMENT = 88 (DECIMAL)  *
                                    303+*JCTEQREG DS    CL2                     REGION PARAMETER (BINARY)     *
                                    304+*                                       (DISPLACEMENT = 92 (DECIMAL)  *
                                    305+*                                                                     *
                                    306+***********************************************************************
000058                              307+         DS    6C ROOM FOR THE ABOVE
00005E                              308+JCTQIDNT DS    C IDENTITY OF Q FOR  JOB (MVT ONLY)
00005F                              309+JCTSNUMB DS    C NUMBER OF STEPS RUN (MVT ONLY)
000060                              310+JCTSTIOT DS    F TTR OF COMPRESSED TIOT (MVT ONLY)
                                    311+*                IN PCP-C/R SAVE OF SCATALLY BY IEFRAPCP           AACA
000064                              312+JCTDEVT  DS    F DEVICE TYPE OF CHECKPOINT DATA SET
000068                              313+JCTCKTTR DS    3C TTR OF JFCB FOR CHECKPOINT DATA SET
00006B                              314+JCTNTRK  DS    C NUMBER OF TRACKS ON SYS1.JOBQE USED BY         PTM258
                                    315+*                   THE JOB -SET AND USED BY THE INIT./TERM.     PTM258
00006C                              316+JCTNRCKP DS    H NUMBER OF CHECKPOINTS TAKEN
00006E                              317+JCTVOLSQ DS    C VOLUME SEQUENCE NUMBER FOR CHECKPOINT DATA SET
00006F                              318+         DS    C
000070                              319+JCTSSTR  DS    F TTR OF SCT FOR FIRST STEP TO BE RUN
000074                              320+JCTSTAT2 DS    1C ADDITIONAL STATUS INDICATORS    O102
000080                              321+JCTSPSYS EQU   128 BIT 0 - =1 INDICATES SPOOLED SYSIN FOR JOB     O102
                                    322+*                             SET BY IEFVDA                        O102
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    323+*                             TESTED BY IEESD575(QUEUE ALTER)-     O102
                                    324+*                             MVT AND MFT ONLY                     O102
000020                              325+JCTENDIT EQU   32 SET BY IEFSD41Q,IEFWEXTA       A25134
                                    326+*                                 TESTED BY IEFDSOWR,IEFYNIMP    A25134
                                    327+*                                 JOB TERMINATION INDICATOR      A25134
000010                              328+JCTSWSM  EQU   16 BIT 3 - =1 INDICATES WARM START MESSAGE       M3144
                                    329+*                             'INIT=JOBNAME' IS TO BE SUPPRESSED  M3144
                                    330+*                             FOR THIS JOB                        M3144
                                    331+*                             SET BY IEFVHH                       M3144
                                    332+*                             TESTED BY IEFSD305                  M3144
000075                              333+JCTCKIDL DS    C LENGTH OF CHECKPOINT ID
000076                              334+JCTCKIDT DS    CL16 CHECKPOINT IDENT                               AACA
                                    335+*******************************************************************AACA
                                    336+*        THE FOLLOWING SYSTEMS MGMT FACILITIES SUBFIELDS MUST      AACA
                                    337+*        BEGIN ON A HALF WORD BOUNDARY                             AACA
                                    338+*******************************************************************AACA
000086                              339+JCTJMR   DS    CL3 TTR OF JMR                 *** SYSTEMS ***     AACA
000089                              340+JCTJMRD  DS    CL1 DATE DIFFERENCE STEP START-JOB START *         AACA
00008A                              341+JCTJMROP DS    CL1 SMF OPTION SWITCHES        * MANAGEMENT        AACA
00008B                              342+JCTJMRCL DS    CL1 SMF CANCELLATION CONTROL STATUS      *         AACA
00008C                              343+JCTJMRTL DS    CL3 JOB TIME LIMIT             *  FACILITIES       AACA
00008F                              344+JCTJMRSS DS    CL3 STEP START TIME OF DAY               *         AACA
000092                              345+JCTJMRJT DS    CL3 JOB START TIME OF DAY      *  SUBFIELDS        AACA
000095                              346+JCTJMRJD DS    CL3 JOB START DATE             *****************   AACA
000098                              347+JCTCTOJ  DS    CL1 SYSOUT CLASSES C TO J       AACA
000099                              348+JCTKTOR  DS    CL1 SYSOUT CLASSES K TO R       AACA
00009A                              349+JCTSTOZ  DS    CL1 SYSOUT CLASSES S TO Z       AACA
00009B                              350+JCT2TO9  DS    CL1 SYSOUT CLASSES 2 TO 9       AACA
00009C                              351+JCTAB01  DS    CL1 SYSOUT CLASSES A,B,0,1      AACA
                                    352+*                                      JCTAB01 BITS 4-7 ARE UNUSED AACA
00009D                              353+JCTDSOSM DS    CL3 TTR OF SMB FROM WHICH DIRECT SYSOUT WRITER      O99
                                    354+*                        WILL START PRINTING. USED WHEN PRESENT     O99
                                    355+*                        STEP HAS SYSOUT CLASS = MSGCLASS DATA      O99
                                    356+*                        SETS. FIELD UPDATED TO TTR ASSIGNED FOR    O99
                                    357+*                        TERMINATION OF STEP. SET BY IEFSD512 AND   O99
                                    358+*                        IEFSD162 BEFORE THE FIRST STEP OF THE JOB  O99
                                    359+*                        IS GIVEN CONTROL.                          O99
                                    360+*                        MODIFIED BY IEFDSOWR AND IEFSD31Q.         O99
0000A0                              361+JCTTSOID DS    CL7 TSO USER ID FIELD. SET BY R/I MODULE IEFVDA  20001
                                    362+*                      AS A RESULT OF A NOTIFY KEYWORD ON TH JOB  20001
                                    363+*                      STATEMENT. USED BY TERMINATION MODULE      20001
                                    364+*                      IEFSD31Q TO NOTIFY A TSO USER OF THE       20001
                                    365+*                      COMPLETION OF A BACKGROUND JOB.            20001
0000A7                              366+         DS    CL9 RESERVED                                   19874
0000B0                              367+JCTLNGTH EQU   *-INJMJCT JCT LENGTH                             20001
                                    368+***************************************************************** 20001
                                    369+**                                                                   **
                                    370+**                       ACCOUNT CONTROL TABLE                       **
                                    371+**                                                                   **
                                    372+***********************************************************************
0000B0                              373+         DS    0D AACA
0000B0                              374+ACTDSKAD DS    CL3 DISK ADDRESS OF THIS ACT
0000B3                              375+ACTIDENT DS    CL1 TABLE ID  ACT = 16
000001                              376+ACTID    EQU   1
0000B4                              377+ACTNEXT  DS    CL4 DISK ADDRESS OF NEXT ACT
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000B8                              378+ACTPRGNM DS    CL20 PROGRAMMERS NAME
0000CC                              379+ACTJTIME DS    CL3 JOB RUNNING TIME
0000CF                              380+ACTJNFLD DS    1C NBR OF JOB ACCOUNTING FIELDS
0000D0                              381+         DS    CL148 THE REST OF THE FIELDS HAVE THE
                                    382+*                                  FOLLOWING FORMAT FOR JOB ACCOUNTING-
                                    383+*                                  1 BYTE- LENGTH OF FIELD
                                    384+*                                  VARIABLE BYTES- CONTENTS OF FIELD
                                    385+*                                    (REPEATED FOR N FIELDS)
                                    386+*                                  STEP ACCOUNTING HAS THE FOLLOWING
                                    387+*                                  FORMAT FOR EACH STEP-
                                    388+*                                  3 BYTES- MAXIMUM STEP RUNNING TIME
                                    389+*                                  1 BYTE- NBR OF FIELDS IN STEP
                                    390+*                                  1 BYTE- LENGTH OF FIELD
                                    391+*                                  VARIABLE BYTES- CONTENTS OF FIELD
                                    392+*                                    (LAST 2 REPEATED N TIMES)
                                    393+***********************************************************************
                                    394+*
                                    395+*                  SYSTEM MESSAGE BLOCK
                                    396+*
                                    397+***********************************************************************
000168                              398+         DS    0D AACA
000168                              399+SMBDSKAD DS    CL3 DISK ADDRESS OF THIS SMB
00016B                              400+SMBIDENT DS    1C TABLE ID SMB = 32
000005                              401+SMBID    EQU   5
00016C                              402+SMBNEXT  DS    CL4 DISK ADDRESS OF NEXT SMB
000170                              403+SMBDUMMY DS    CL4 DISK ADDRESS OF DUMMY SMB
                                    404+*                                       ALLOCATED OR ZERO IF NOT LAST
                                    405+*                                       SMB FOR THAT STEP
000174                              406+SMBNABPT DS    CL2 RELATIVE PTR TO NEXT AVAIL BYTE
000176                              407+SMBMSGLN DS    1C LENGTH OF MESSAGE, OR ZERO IF
                                    408+*                                       NO MORE MESSAGES IN THE BLOCK,
                                    409+*                                       OR EACH BIT = 1 TO INDICATE
                                    410+*                                       THAT A DATA SET FOLLOWS
000177                              411+SMBMESAG DS    CL165 VARIABLE LENGTH MESSAGE
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    413          JDSENTRY                                                       00025000
                                    414+***********************************************************************
                                    415+*              FORMAT OF THE JOB DATA SET CONTROL BLOCK               *
                                    416+***********************************************************************
000000                              417+JDSSTART DSECT
000000                              418+JDSTRACK DS    F -                 TRK ADDR OF THIS JDS CTLBLK
000004                              419+JDSNEXT  DS    XL6 -               FDB OF NEXT JDS IF APPLICABLE
00000A                              420+JDSTOTL  DS    H -                 LENGTH ENTIRE JDS - WITH ALL ENTRIES
00000C                              421+JDSFIXL  DS    H -                 LENGTH OF FIXED PORTION
00000E                              422+         DS    H -                 RESERVED FOR ASP
000010                              423+JDSCURDS DS    CL1 -               INDEX TO CURRENT DATA SET
000011                              424+JDSJOBFL DS    CL1 -               JOB FLAGS
000012                              425+         DS    H -                 RESERVED
000014                              426+JDSFEND  DS    0F -                MARKS END OF FIXED PART JDS
000014                              427+JDSFSIZE DS    0XL(JDSFEND-JDSSTART) SIZE OF FIXED AREA = L'JDSFSIZE
                                    428+*---------------------------------------------------------------------*
                                    429+*              DEFINITION OF JDSJOBFL                                 *
                                    430+*---------------------------------------------------------------------*
000080                              431+JDSNOTDN EQU   X'80' -             ON = A DS YET TO DO
                                    432+***********************************************************************
                                    433+*              FORMAT OF DATA SET ENTRIES IN THE JOB DATA SET CTL BLK *
                                    434+***********************************************************************
000000                              435+JDSENTRY DSECT
000000                              436+JDSFDB   DS    CL20 -              MULTIPLE FILE FDB FOR THIS ENTRY
000014                              437+JDSDSTL  DS    H -                 DATASET TITLE LABEL FOR THIS ENTRY
000016                              438+JDSFLG   DS    XL1 -               FLAGS
000017                              439+JDSFLG1  DS    XL1 -               FLAGS
000018                              440+JDSFLG2  DS    XL1 -               FLAGS
000019                              441+JDSCLASS DS    CL1 -               SYSOUT CLASS THIS ENTRY
00001A                              442+JDSVARL  DS    H -                 LENGTH OF THIS JDS ENTRY
00001C                              443+         DS    XL4 -               RESERVED FOR ASP
000020                              444+JDSTATFD DS    XL8 -               TAT FDB FOR THIS ENTRY IF PRESENT
000028                              445+JDSSTEPN DS    0CL8 -              STEP NAME IF PRESENT
000028                              446+JDSPROCN DS    0CL8 -              PROC NAME IF PRESENT
000028                              447+JDSDDNAM DS    CL8 -               NAME OF THIS DATA SET ENTRY
000030                              448+JDSVEND  DS    0F -                END PTR IF NO STEP OR PROC EXT.
000030                              449+JDSVSIZE DS    0XL(JDSVEND-JDSENTRY) SIZE OF ENTRY = L'JDSVSIZE
                                    450+*---------------------------------------------------------------------*
                                    451+*              DEFINITION OF JDSFLG                                   *
                                    452+*---------------------------------------------------------------------*
000080                              453+JDSOPEN  EQU   X'80' -             1= DATA SET OPENED, 0= CLOSED
000040                              454+JDSREAD  EQU   X'40' -             1= DATA SET OPENED FOR READ
000020                              455+JDSWRITE EQU   X'20' -             1= DATA SET OPENED FOR WRITE
000010                              456+JDSOLD   EQU   X'10' -             DATA SET WAS IN JDS AT ENTRY TO MSER
000008                              457+JDSPROC  EQU   X'08' -             PROC NAME EXISTS
000004                              458+JDSSTEP  EQU   X'04' -             STEP NAME EXISTS
000002                              459+JDSHDR   EQU   X'02' -             HDR REQD IF BIT=1
000001                              460+JDSCOMP  EQU   X'01' -             DATA SET HAS BEEN PRINTED/PUNCHED
                                    461+*---------------------------------------------------------------------*
                                    462+*        DEFINITION OF JDSFLG1,MUST CORRESPOND TO SYSOUT CLASS TABLE  *
                                    463+*---------------------------------------------------------------------*
000080                              464+JDSPRINT EQU   X'80' -             DATA SET IS TO BE PRINTED
000040                              465+JDSPUNCH EQU   X'40' -             DATA SET IS TO BE PUNCHED
000020                              466+JDSTSO   EQU   X'20' -             THIS CLASS FOR RETURN TO TSO USER
000010                              467+JDSTAT   EQU   X'10' -             THIS JDS ENTRY CONTAINS OWN TAT
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                              468+JDSUSER1 EQU   X'08' -             USER DEFINITION ONE
000004                              469+JDSUSER2 EQU   X'04' -             USER DEFINITION TWO
                                    470+*        FLGS 02,01 RESERVED FOR CORRESPONDING SYSOUT CLASS TAB ADDS. *
                                    471+*---------------------------------------------------------------------*
                                    472+*              DEFINITION OF JDSFLG2                                  *
                                    473+*---------------------------------------------------------------------*
000020                              474+JDSPRDON EQU   X'20' -             PRINT COMPLETE FLAG
000010                              475+JDSPUDON EQU   X'10' -             PUNCH COMPLETE FLAG
000008                              476+JDSPRFRP EQU   X'08' -             PRINT FRP EXISTS
000004                              477+JDSPUFRP EQU   X'04' -             PUNCH FRP EXISTS
000002                              478+JDSISDON EQU   X'02' -             ISDRVR PROCESS COMPLETE
000001                              479+JDSACEOD EQU   X'01' ACDS-ADSGEN EOD EXISTS      @AA27446
                                    480+*---------------------------------------------------------------------*
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              483 EAJFCB   DSECT                                                          00027000
                                    484          IEFJFCBN                                                       00028000
                                    485+*******************************************************************
                                    486+*                                                                 *
                                    487+*                      JOB FILE CONTROL BLOCK                     *
                                    488+*                                                                 *
                                    489+*        RELEASE 20.2, 5/07/71, LEVEL=3                           *
                                    490+*        RELEASE 21, 6/23/71, LEVEL=5                             *
                                    491+*                                                                 *
                                    492+*******************************************************************
000000                              493+         DS    0F
000000                              494+INFMJFCB EQU   *
000000                              495+JFCBQNAM DS    0CL8 -    NAME OF THE DESTINATION QUEUE TO BE ASSIGNED
                                    496+*                           TO THIS DATA SET.
000000                              497+JFCBDSNM DS    CL44 -    DATA SET NAME
00002C                              498+JFCBELNM DS    CL8 -     ELEMENT NAME OR GENERATION NUMBER OR TYPE
                                    499+*                        OF AREA FOR AN INDEXED SEQUENTIAL DATA
                                    500+*                        SET ONLY
000034                              501+JFCBTSDM DS    B -       JOB MANAGEMENT/DATA MANAGEMENT INTERFACE
000080                              502+JFCCAT   EQU   X'80' -   CATALOGED DATA SET
000040                              503+JFCVSL   EQU   X'40' -   VOLUME SERIAL LIST ALTERED
000020                              504+JFCSDS   EQU   X'20' -   SYSIN OR SYSOUT DATA SET
000010                              505+JFCTTR   EQU   X'10' -   USE JFCBOTTR INSTEAD OF DS1LSTAR FIELD TO
                                    506+*                        REPOSITION DATA SET IF AUTOMATIC STEP
                                    507+*                        RESTART OCCURS
000008                              508+JFCNWRIT EQU   X'08' -   DO NOT WRITE BACK THE JFCB DURING OPEN
                                    509+*                        PROCESSING
000004                              510+JFCNDSCB EQU   X'04' -   DO NOT MERGE DSCB OR LABEL FIELDS INTO
                                    511+*                        THIS JFCB
000002                              512+JFCNDCB  EQU   X'02' -   DO NOT MERGE DCB FIELDS INTO THIS JFCB
000001                              513+JFCPAT   EQU   X'01' -   THE PATTERNING DSCB IS COMPLETE
000035                              514+JFCBSYSC DS    0CL13 -   SYSTEM CODE
000035                              515+JFCBDSCB DS    CL3 -     TTR OF FORMAT 1 DSCB FOR DATA SET PART ON THE
                                    516+*                        FIRST VOLUME OF THE DATA SET
000038                              517+JFCFCBID DS    CL4 -     FORMS CONTROL BUFFER IMAGE IDENTIFICATION FOR
                                    518+*                        THE 3211 OR DATA PROTECTION IMAGE
                                    519+*                        IDENTIFICATION FOR THE 3525
00003C                              520+         DS    CL6 -     RESERVED
000042                              521+JFCBLTYP DS    B -       LABEL TYPE
000040                              522+JFCBAL   EQU   X'40' -   USASI LABELS (AL OR AUL)
000020                              523+JFCBLTM  EQU   X'20' -   NON-LABELLED TAPE CREATED BY DOS MAY HAVE
                                    524+*                        LEADING TAPE MARK.  OPEN/CLOSE/EOV AND
                                    525+*                        RESTART ARE TO SPACE OVER TAPE MARK IF IT
                                    526+*                        EXISTS.                                 ICB212
000010                              527+JFCBLP   EQU   X'10' -   BYPASS LABEL PROCESSING
00000A                              528+JFCSUL   EQU   X'0A' -   USER LABEL
000004                              529+JFCNSL   EQU   X'04' -   NONSTANDARD LABEL
000002                              530+JFCSL    EQU   X'02' -   STANDARD LABEL
000001                              531+JFCNL    EQU   X'01' -   NO LABEL
000043                              532+JFCBOTTR DS    0CL3 -    DASD MOD DATA SET - IF AUTOMATIC STEP
                                    533+*                        RESTART WAS REQUESTED TTR OF EOD INDI-
                                    534+*                        CATOR EXISTING WHEN DATA SET WAS FIRST
                                    535+*                        OPENED DURING ORIGINAL EXECUTION
000043                              536+JFCBUFOF DS    FL1 -     BUFFER OFFSET
000080                              537+JFCBFOFL EQU   X'80' -   USASI/USASCII - BLOCK PREFIX IS 4 BYTES AND
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    538+*                        CONTAINS BLOCK LENGTH IN UNPACKED DECIMAL.
                                    539+*                        SPECIFIED BY BUFOFF=L.
000044                              540+JFCFUNC  DS    0B -      FUNCTION INDICATOR FOR THE 3525
000080                              541+JFCFNCBI EQU   X'80' -   INTERPRET (PUNCH AND PRINT TWO LINES)
000040                              542+JFCFNCBR EQU   X'40' -   READ
000020                              543+JFCFNCBP EQU   X'20' -   PUNCH
000010                              544+JFCFNCBW EQU   X'10' -   PRINT
000008                              545+JFCFNCBD EQU   X'08' -   DATA PROTECTION
000004                              546+JFCFNCBX EQU   X'04' -   THIS DATA SET IS TO BE PRINTED
000002                              547+JFCFNCBT EQU   X'02' -   TWO-LINE PRINT SUPPORT REQUEST
000044                              548+JFCBFLSQ DS    H -       2ND & 3RD BYTES OF JFCBOTTR/
                                    549+*                        FILE SEQUENCE NUMBER
000046                              550+JFCBVLSQ DS    H -       VOLUME SEQUENCE NUMBER
000048                              551+JFCBMASK DS    0CL8 -    DATA MANAGEMENT MASK
000048                              552+JFCBOPS1 DS    BL5 -     OPEN ROUTINE INTERNAL SWITCHES
000001                              553+JFCBPTTR EQU   X'01' -   MODEL DEPENDENT SUPPORT                 ICB303
00004D                              554+JFCBFLG1 DS    B -       FLAG BYTE
000080                              555+JFCSTAND EQU   X'80' -   VOLUME LABEL PROCESSING STANDARD
000040                              556+JFCSLCRE EQU   X'40' -   CREATION OF A STANDARD LABEL IS
                                    557+*                        NECESSARY
000020                              558+JFCSLDES EQU   X'20' -   DESTRUCTION OF A STANDARD LABEL
                                    559+*                        IS NECESSARY
000010                              560+JFCDUAL  EQU   X'10' -   DUAL DENSITY CHECK DETECTED
00000F                              561+JFCOPEN  EQU   X'0F' -   OPEN ROUTINE INTERNAL SWITCHES
00004E                              562+JFCBFLG2 DS    B -       FLAG BYTE OF OPEN SWITCHES
000080                              563+JFCINOP  EQU   X'80' -   TREAT THE INOUT OPTION OF OPEN AS INPUT
000040                              564+JFCOUTOP EQU   X'40' -   TREAT THE OUTIN OPTION OF OPEN AS OUTPUT
000020                              565+JFCDEFER EQU   X'20' -   DATA SET RELATED TO THE JFCB IS BEING
                                    566+*                        PROCESSED SEQUENTIALLY,  AT THE CHECK-
                                    567+*                        POINT,  ON A DIFFERENT VOLUME THAN WHEN
                                    568+*                        PROCESSING BEGAN - WHEN RESTART OCCURS,
                                    569+*                        CAUSE DEFERRED VOLUME MOUNTING
000010                              570+JFCMODNW EQU   X'10' -   DISPOSITION CHANGED FROM MOD TO NEW -
                                    571+*                        DISPOSITION (IN JFCBIND2) WILL BE RE-
                                    572+*                        STORED TO MOD AFTER OPEN
000008                              573+JFCSDRPS EQU   X'08' -   SEARCH DIRECT FOR RPS DEVICES
000004                              574+JFCTRACE EQU   X'04' -   GTF TRACE IS TO OCCUR DURING OPEN/CLOSE/EOV
                                    575+*                        AND DYNAMIC ALLOCATION PROCESSING OF DCB
000002                              576+JFCBBUFF EQU   X'02' -   INDICATOR TO OPEN THAT A NON-ZERO VALUE IN
                                    577+*                        JFCBOTTR IS NOT TO PREVENT THE NORMAL STORING
                                    578+*                        BY OPEN OF A TTR IN JFCBOTTR
000001                              579+JFCRCTLG EQU   X'01' -   SCHEDULER STEP TERMINATION ROUTINE IS TO
                                    580+*                        RECATALOG THIS DATA SET AND PLACE IN THE
                                    581+*                        CATALOG ENTRY THE DSCB TTR CONTAINED IN
                                    582+*                        JFCBDSCB
00004F                              583+JFCBOPS2 DS    B -       OPEN ROUTINE INTERNAL SWITCHES
000050                              584+JFCBCRDT DS    CL3 -     DATA SET CREATION DATE (YDD)
000053                              585+JFCBXPDT DS    CL3 -     DATA SET EXPIRATION DATE (YDD)



000056                              587+JFCBIND1 DS    B -       INDICATOR BYTE 1
0000C0                              588+JFCRLSE  EQU   X'C0' -   RELEASE EXTERNAL STORAGE
000030                              589+JFCLOC   EQU   X'30' -   DATA SET HAS BEEN LOCATED
00000C                              590+JFCADDED EQU   X'0C' -   NEW VOLUME HAS BEEN ADDED TO DATA SET
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000002                              591+JFCGDG   EQU   X'02' -   DATA SET IS MEMBER OF A GENERATION DATA
                                    592+*                        GROUP
000001                              593+JFCPDS   EQU   X'01' -   DATA SET IS MEMBER OF A PARTITIONED
                                    594+*                        DATA SET
                                    595+********************************************************************
                                    596+*
                                    597+*    THE FOLLOWING FOUR BIT SETTINGS ARE FROM AN OLD MAPPING MACRO
                                    598+*      THESE  FOUR WILL BE REMOVED IN A FUTURE RELEASE. USE THE
                                    599+*      FOREGOING SYMBOLS FOR JFCBIND1
                                    600+*
                                    601+********************************************************************
000040                              602+JFCBRLSE EQU   X'40' -   BITS 0 & 1 - EXTERNAL STORAGE RELEASE
                                    603+*                        INDICATOR
000010                              604+JFCBLOCT EQU   X'10' -   BITS 2 & 3 - DATA SET HAS BEEN LOCATED
000004                              605+JFCBNEWV EQU   X'04' -   BITS 4 & 5 - NEW VOLUME ADDED TO DATA SET
000001                              606+JFCBPMEM EQU   X'01' -   BITS 6 & 7 - DATA SET IS A MEMBER OF A
                                    607+*                        PDS OR GDG
                                    608+********************************************************************



000057                              610+JFCBIND2 DS    B -       INDICATOR BYTE 2
0000C0                              611+JFCDISP  EQU   X'C0' -   BIT PATTERN FOR NEW, MOD, OLD
0000C0                              612+JFCNEW   EQU   X'C0' -   NEW DATA SET
000080                              613+JFCMOD   EQU   X'80' -   MOD DATA SET
000040                              614+JFCOLD   EQU   X'40' -   OLD DATA SET
000030                              615+JFCBRWPW EQU   X'30' -   BITS 2&3 ALLOWS READ WITHOUT PASSWORD
                                    616+*                        WITH DATA SET SECURITY
000010                              617+JFCSECUR EQU   X'10' -   DATA SET SECURITY
000008                              618+JFCSHARE EQU   X'08' -   SHARED DATA SET
000004                              619+JFCENT   EQU   X'04' -   DATA SET IS GENERATION OF A GDG - PRO-
                                    620+*                        CESSING OF ENTIRE GDG WAS SPECIFIED -
                                    621+*                        IF AUTOMATIC RESTART AT A CHECKPOINT
                                    622+*                        OCCURS, JFCB WILL BE DELETED
000002                              623+JFCREQ   EQU   X'02' -   STORAGE VOLUME REQUESTED
000001                              624+JFCTEMP  EQU   X'01' -   TEMPORARY DATA SET
                                    625+********************************************************************
                                    626+*
                                    627+*   THE FOLLOWING THREE BIT SETTINGS ARE FROM AN OLD MAPPING MACRO
                                    628+*      THESE THREE WILL BE REMOVED IN A FUTURE RELEASE. USE THE
                                    629+*      FOREGOING SYMBOLS FOR JFCBIND2
                                    630+*
                                    631+********************************************************************
000040                              632+JFCBSTAT EQU   X'40' -   BITS 0 & 1 - DATA SET STATUS (NEW,
                                    633+*                        OLD OR MOD)
000010                              634+JFCBSCTY EQU   X'10' -   BIT 3 DATA SET SECURITY INDICATOR
000004                              635+JFCBGDGA EQU   X'04' -   BITS 4 & 5 - THIS JFCB IS A MEMBER OF A
                                    636+*                        GDG-ALL REQUEST
                                    637+********************************************************************
000058                              638+JFCBUFNO DS    0XL1 -    NUMBER OF BUFFERS REQUIRED FOR THIS
                                    639+*                        DATA SET
000058                              640+JFCBUFIN EQU   JFCBUFNO -BITS 0 THRU 3 FOR # REC BUF
000058                              641+JFCBFOUT EQU   JFCBUFNO -BITS 4 THRU 7 FOR # SEND BUF
000058                              642+JFCBUFRQ DS    XL1 -     NUMBER OF BUFFERS REQUIRED FOR EACH
                                    643+*                        LINE (QTAM)
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000059                              644+JFCBHIAR DS    0BL1 -    BUFFER POOL LOCATION IN MAIN STORAGE
                                    645+*                        (HIERARCHY)
000059                              646+JFCBFALN DS    0BL1 -    BUFFER ALIGNMENT
000059                              647+JFCBFTEK DS    B -       BUFFERING TECHNIQUE / FOR GAM THIS FIELD
                                    648+*                        IS USED FOR THE NUMBER OF IOBS CONSTRUCTED
                                    649+*                        BY THE OPEN ROUTINE - MAX NBR IS 99
000084                              650+JFCHIER  EQU   X'84' -   BITS 0 & 5 DESCRIBE MAIN STORAGE HIERARCHY
                                    651+*                        BIT '00' = HIERARCHY 0
                                    652+*                        BIT '01' = HIERARCHY 1
000040                              653+JFCSIM   EQU   X'40' -   SIMPLE BUFFERING
000010                              654+JFCEXC   EQU   X'10' -   EXCHANGE BUFFERING
000008                              655+JFCDYN   EQU   X'08' -   DYNAMIC BUFFERING
000004                              656+JFCHIER1 EQU   X'04' -   HIERARCHY 1 MAIN STORAGE
000002                              657+JFCDWORD EQU   X'02' -   DOUBLE WORD BOUNDARY
000001                              658+JFCFWORD EQU   X'01' -   FULL WORD BOUNDARY - NOT DOUBLE WORD
00005A                              659+JFCBUFL  DS    H -       BUFFER LENGTH
00005C                              660+JFCEROPT DS    B -       ERROR OPTION SWITCH
000080                              661+JFCACC   EQU   X'80' -   ACCEPT
000040                              662+JFCSKP   EQU   X'40' -   SKIP
000020                              663+JFCABN   EQU   X'20' -   ABNORMAL END OF TASK
00005D                              664+JFCTRTCH DS    0CL1 -    TAPE RECORDING TECHNIQUE FOR 7-TRACK
                                    665+*                        TAPE
000023                              666+JFCEVEN  EQU   X'23' -   EVEN PARITY
00003B                              667+JFCTRAN  EQU   X'3B' -   BCB/EBCDIC TRANSLATION
000013                              668+JFCCONV  EQU   X'13' -   DATA CONVERSION
00002B                              669+JFCTREV  EQU   X'2B' -   EVEN PARITY AND TRANSLATION
00005D                              670+JFCKEYLE DS    0XL1 -    DIRECT ACCESS KEY LENGTH
00005D                              671+JFCCODE  DS    0BL1 -    CONVERSION CODE
000080                              672+JFCNOCON EQU   X'80' -   NO CONVERSION
000040                              673+JFCBCD   EQU   X'40' -   IBM BCD
000020                              674+JFCFRI   EQU   X'20' -   FRIDEN
000010                              675+JFCBUR   EQU   X'10' -   BURROUGHS
000008                              676+JFCNCR   EQU   X'08' -   NATIONAL CASH REGISTER
000004                              677+JFCASCII EQU   X'04' -   ASCII (8-TRACK)
000002                              678+JFCTTY   EQU   X'02' -   TELETYPE
00005D                              679+JFCMODE  DS    0BL1 -    MODE OF OPERATION
00005D                              680+JFCSTACK DS    0BL1 -    STACKER SELECTION
000080                              681+JFCBIN   EQU   X'80' -   COLUMN BINARY MODE
000040                              682+JFCEBCD  EQU   X'40' -   EBCDIC MODE
000020                              683+JFCMODEO EQU   X'20' -   OPTICAL MARK READ MODE
000010                              684+JFCMODER EQU   X'10' -   READ COLUMN ELIMINATE MODE
000002                              685+JFCTWO   EQU   X'02' -   STACKER TWO
000001                              686+JFCONE   EQU   X'01' -   STACKER ONE
00005D                              687+JFCPRTSP DS    B -       NORMAL PRINTER SPACING
000019                              688+JFCSPTHR EQU   X'19' -   SPACE THREE LINES
000011                              689+JFCSPTWO EQU   X'11' -   SPACE TWO LINES
000009                              690+JFCSPONE EQU   X'09' -   SPACE ONE LINE
000001                              691+JFCSPNO  EQU   X'01' -   NO SPACING
00005E                              692+JFCDEN   DS    B -       TAPE DENSITY - 2400 SERIES MAGNETIC TAPES
000003                              693+JFC200   EQU   X'03' -   7-TRACK 200 BPI
000043                              694+JFC556   EQU   X'43' -   7-TRACK 556 BPI
000083                              695+JFC800   EQU   X'83' -   7 AND 9 TRACK 800 BPI
0000C3                              696+JFC1600  EQU   X'C3' -   9-TRACK 1600 BPI
00005F                              697+JFCLIMCT DS    0CL3 -    SEARCH LIMIT (BDAM)
00005F                              698+         DS    CL1 -     1ST BYTE JFCLIMCT (BDAM)/RESERVED
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000060                              699+JFCTRKBL DS    CL2 -     2ND & 3RD BYTES JFCLIMCT (BDAM)/ DATA
                                    700+*                        SET OPENED FOR MOD - IF AUTOMATIC STEP
                                    701+*                        RESTART WAS REQUESTED, TRACK BALANCE
                                    702+*                        EXISTING WHEN THE DATA SET WAS FIRST
                                    703+*                        OPENED DURING THE ORIGINAL EXECUTION
                                    704+*                        OF THE CURRENT STEP
000062                              705+JFCDSORG DS    0BL2 -    DATA SET ORGANIZATION BEING USED
000062                              706+JFCDSRG1 DS    B -       BYTE 1 OF JFCDSORG
000080                              707+JFCORGIS EQU   X'80' -   INDEXED SEQUENTIAL
000040                              708+JFCORGPS EQU   X'40' -   PHYSICAL SEQUENTIAL
000020                              709+JFCORGDA EQU   X'20' -   DIRECT
000002                              710+JFCORGPO EQU   X'02' -   PARTITIONED
000001                              711+JFCORGU  EQU   X'01' -   UNMOVABLE - THE DATA CONTAINS LOCATION
                                    712+*                        DEPENDENT INFORMATION
000063                              713+JFCDSRG2 DS    B -       BYTE 2 OF JFCDSORG
000080                              714+JFCORGGS EQU   X'80' -   GRAPHICS
000064                              715+JFCRECFM DS    B -       RECORD FORMAT
0000C0                              716+JFCFMREC EQU   X'C0' -   HIGH ORDER TWO BITS OF JFCRECFM TO BE TESTED



                                    718+********************************************************************
                                    719+*
                                    720+*    THE FOLLOWING THREE EQUATES ARE FOR THE RECORD FORMAT IN THE
                                    721+*    HIGH ORDER TWO BITS OF JFCRECFM
                                    722+*
                                    723+********************************************************************
0000C0                              724+JFCUND   EQU   X'C0' -   UNDEFINED
000080                              725+JFCFIX   EQU   X'80' -   FIXED
000040                              726+JFCVAR   EQU   X'40' -   VARIABLE
                                    727+********************************************************************



0000E0                              729+JFCRCFM  EQU   X'E0' -   RECORD FORMAT (USASI/USASCII)
000020                              730+JFCVARD  EQU   X'20' -   VARIABLE (FORMAT D FOR USASI/USASCII)
000020                              731+JFCRFO   EQU   X'20' -   TRACK OVERFLOW
000010                              732+JFCRFB   EQU   X'10' -   BLOCKED - (MAY NOT OCCUR WITH UNDEFINED)
000008                              733+JFCRFS   EQU   X'08' -   STANDARD - NO TRUNCATED BLOCKS OR UNFILLED
                                    734+*                        BLOCKS ARE EMBEDDED IN THE DATA SET



000006                              736+JFCCHAR  EQU   X'06' -   BITS 5 & 6 OF JFCRECFM
                                    737+*
                                    738+********************************************************************
                                    739+*
                                    740+*    THE FOLLOWING THREE EQUATES ARE FOR THE CONTROL CHARACTERS IN
                                    741+*    BITS 5 & 6 OF  JFCRECFM
                                    742+*
                                    743+********************************************************************
000004                              744+JFCASA   EQU   X'04' -   ASA CONTROL CHARACTER
000002                              745+JFCMAC   EQU   X'02' -   MACHINE CODE CONTROL CHARACTER
000000                              746+JFCNOCC  EQU   X'00' -   NO CONTROL CHARACTER
                                    747+********************************************************************
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000065                              748+JFCOPTCD DS    B -       OPTION CODES
                                    749+*              QSAM - BSAM - BPAM
000080                              750+JFCWVCSP EQU   X'80' -   WRITE VALIDITY CHECK
000040                              751+JFCALLOW EQU   X'40' -   ALLOW A DATA CHECK CAUSED BY AN INVALID
                                    752+*                        CHARACTER (1403 PRINTER WITH UCS)
000020                              753+JFCPCIBT EQU   X'20' -   CHAINED SCHEDULING USING THE PROGRAM
                                    754+*                        CONTROLLED INTERRUPTION
000010                              755+JFCBCKPT EQU   X'10' -   BYPASS EMBEDDED DOS CHECKPOINT RECORDS ON TAPE
000004                              756+JFCREDUC EQU   X'04' -   USE REDUCED ERROR RECOVERY PROCEDURE -
                                    757+*                        (MAGNETIC TAPE)
000004                              758+JFCSRCHD EQU   X'04' -   SEARCH DIRECT INSTEAD OF SEARCH PREVIOUS -
                                    759+*                        (ROTATIONAL POSITION SENSING DEVICES)
                                    760+*              BISAM - QISAM
000080                              761+JFCWVCIS EQU   X'80' -   WRITE VALIDITY CHECK
000020                              762+JFCMAST  EQU   X'20' -   MASTER INDEXES
000010                              763+JFCIND   EQU   X'10' -   INDEPENDENT OVERFLOW AREA
000008                              764+JFCCYL   EQU   X'08' -   CYLINDER OVERFLOW AREA
000002                              765+JFCDEL   EQU   X'02' -   DELETE OPTION
000001                              766+JFCREORG EQU   X'01' -   REORGANIZATION CRITERIA
                                    767+*              BDAM
000080                              768+JFCWVCBD EQU   X'80' -   WRITE VALIDITY CHECK
000040                              769+JFCOVER  EQU   X'40' -   TRACK OVERFLOW
000020                              770+JFCEXT   EQU   X'20' -   EXTENDED SEARCH
000010                              771+JFCFEED  EQU   X'10' -   FEEDBACK
000008                              772+JFCACT   EQU   X'08' -   ACTUAL ADDRESSING
000001                              773+JFCREL   EQU   X'01' -   RELATIVE TRACK ADDRESSING
                                    774+*              USASI/USASCII
000008                              775+JFCOPTQ  EQU   X'08' -   EBCDIC TO OR FROM USASCII TRANSLATION
                                    776+*                        REQUESTED
                                    777+*              TCAM
000080                              778+JFCSDNAM EQU   X'80' -   SOURCE OR DESTINATION NAME PRECEDES MESSAGE
                                    779+*                        (AFTER CONTROL BYTE)
000040                              780+JFCWUMSG EQU   X'40' -   WORK UNIT IS A MESSAGE.  DEFAULT WORK UNIT IS
                                    781+*                        A RECORD.
000020                              782+JFCCBWU  EQU   X'20' -   CONTROL BYTE PRECEDES WORK UNIT
000066                              783+JFCBLKSI DS    H -       MAXIMUM BLOCK SIZE
000066                              784+JFCBUFSI EQU   JFCBLKSI -2 BYTES FOR MAX BUF SIZE
000068                              785+JFCLRECL DS    H -       LOGICAL RECORD LENGTH
00006A                              786+JFCNCP   DS    XL1 -     NUMBER OF CHANNEL PROGRAMS - NUMBER OF
                                    787+*                        READ OR WRITE REQUESTS THAT MAY BE ISSUED
                                    788+*                        PRIOR TO A CHECK - NUMBER OF IOBS GEN-
                                    789+*                        ERATED (MAXIMUM NUMBER IS 99)
                                    790+*                        NOTE: GAM USES JFCBFTEK FOR THIS INFORMA-
                                    791+*                        TION AND DOES NOT USE THIS FIELD AT ALL
00006A                              792+JFCBUFMX EQU   JFCNCP -  MAX NO. BUFFERS FOR DATA TRANSMISSION
00006B                              793+JFCNTM   DS    XL1 -     NUMBER OF TRACKS THAT DETERMINE THE
                                    794+*                        DEVELOPMENT OF A MASTER INDEX - MAXIMUM
                                    795+*                        NUMBER IS 99
00006B                              796+JFCPCI   EQU   JFCNTM -  2 BIT=A-1PARM,3 BIT=A-IPARM
                                    797+*                        4 BIT=N-1PARM,5 BIT=N-2PARM
                                    798+*                        6 BIT=R-1PARM,7 BIT=R-2PARM
                                    799+*******************************************************************
                                    800+**
                                    801+**             NORMAL 108 SEGMENT
                                    802+**
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00006C                              803+JFCRKP   DS    H -       RELATIVE POSITION OF THE FIRST BYTE OF
                                    804+*                        THE KEY WITHIN EACH LOGICAL RECORD -
                                    805+*                        MAXIMUM VALUE IS LOGICAL RECORD LENGTH
                                    806+*                        MINUS KEY LENGTH
00006C                              807+JFCRESRV EQU   JFCRKP -  + 0= # OF BYTES FOR TIME OF DAY
                                    808+*                        + 1= # OF BYTES FOR DATE
                                    809+*                        + 2 = # OF BYTES FOR OUT SEQ
                                    810+*                        + 3 = # BYTES IN
00006E                              811+JFCCYLOF DS    XL1 -     NUMBER OF TRACKS TO BE RESERVED ON EACH
                                    812+*                        CYLINDER TO HOLD RECORDS THAT OVERFLOW
                                    813+*                        FROM OTHER TRACKS ON THAT CYLINDER -
                                    814+*                        MAXIMUM VALUE IS 99
00006F                              815+JFCDBUFN DS    CL1 -     RESERVED
000070                              816+JFCINTVL DS    XL1 -     INTENTIONAL DELAY, IN SECONDS, BETWEEN
                                    817+*                        PASSES THROUGH A POLLING LIST (QTAM)
                                    818+**             END OF NORMAL 108 SEGMENT
                                    819+*******************************************************************



                                    821+*******************************************************************
                                    822+**
                                    823+**             108 PRINTER SEGMENT
                                    824+**
00006C                              825+         ORG   JFCRKP
00006C                              826+JFCUCSID DS    CL4 -     NAME OF THE UCS IMAGE TO BE LOADED
000070                              827+JFCUCSOP DS    B -       OPERATION OF THE UCS IMAGE TO BE LOADED
000040                              828+JFCFOLD  EQU   X'40' -   UCS IMAGE TO BE LOADED IN THE FOLD MODE
000010                              829+JFCVER   EQU   X'10' -   UCS IMAGE TO BE VERIFIED
000008                              830+JFCFCBAL EQU   X'08' -   FCB ALIGN
000004                              831+JFCFCBVR EQU   X'04' -   FCB VERIFY
                                    832+**             END OF 108 PRINTER SEGMENT
                                    833+*******************************************************************
000071                              834+JFCCPRI  DS    B -       PRIORITY BETWEEN SEND AND RECEIVE
                                    835+*                        OPERATIONS (QTAM)
000071                              836+JFCOUTLI EQU   JFCCPRI - OUTPUT LIMIT FOR SMF
000071                              837+JFCTHRSH EQU   JFCCPRI - RECORDS TO BE USED
000080                              838+JFCSEND  EQU   X'80' -   SEND PRIORITY
000040                              839+JFCEQUAL EQU   X'40' -   EQUAL PRIORITY
000020                              840+JFCRECV  EQU   X'20' -   RECEIVE PRIORITY
000072                              841+JFCSOWA  DS    H -       LENGTH, IN BYTES, OF THE USER PROVIDED
                                    842+*                        WORK AREA (QTAM)
000074                              843+JFCBNTCS DS    XL1 -     NUMBER OF OVERFLOW TRACKS
000075                              844+JFCBNVOL DS    XL1 -     NUMBER OF VOLUME SERIAL NUMBERS
000076                              845+JFCBVOLS DS    CL30 -    THE FIRST FIVE VOLUME SERIAL NUMBERS
000094                              846+JFCBEXTL DS    XL1 -     LENGTH OF BLOCK OF EXTRA VOLUME SERIAL
                                    847+*                        NUMBERS (BEYOND FIVE)
000095                              848+JFCBEXAD DS    CL3 -     RELATIVE TRACK ADDRESS (TTR) OF FIRST JFCB
                                    849+*                        EXTENSION BLOCK
000098                              850+JFCBPQTY DS    CL3 -     PRIMARY QUANTITY OF DIRECT ACCESS
                                    851+*                        STORAGE REQUIRED



00009B                              853+JFCBCTRI DS    B -       SPACE PARAMETERS
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000C0                              854+JFCBSPAC EQU   X'C0' -   BIT PATTERN FOR SPACE REQUESTS
                                    855+********************************************************************
                                    856+*
                                    857+*   THE FOLLOWING FOUR EQUATES ARE FOR THE SPACE MASK BITS TO BE SET
                                    858+*    IN THE  TWO HIGH ORDER BITS (JFCBSPAC) OF JFCBCTRI
                                    859+*
                                    860+********************************************************************
000000                              861+JFCBABS  EQU   X'00' -   'ABSTR' REQUEST
000040                              862+JFCBAVR  EQU   X'40' -   AVERAGE BLOCK LENGTH REQUEST
000080                              863+JFCBTRK  EQU   X'80' -   'TRK' REQUEST
0000C0                              864+JFCBCYL  EQU   X'C0' -   'CYL' REQUEST
                                    865+********************************************************************
000008                              866+JFCONTIG EQU   X'08' -   'CONTIG' REQUEST
000004                              867+JFCMIXG  EQU   X'04' -   'MXIG' REQUEST
000002                              868+JFCALX   EQU   X'02' -   'ALX' REQUEST
000001                              869+JFCROUND EQU   X'01' -   'ROUND' REQUEST



00009C                              871+JFCBSQTY DS    CL3 -     SECONDARY QUANTITY OF DIRECT ACCESS
                                    872+*                        STORAGE REQUIRED
00009F                              873+         DS    X -       RESERVED
0000A0                              874+JFCBDQTY DS    CL3 -     QUANTITY OF DIRECT ACCESS STORAGE REQUIRED
                                    875+*                        FOR A DIRECTORY OR AN EMBEDDED INDEX AREA
0000A3                              876+JFCBSPNM DS    AL3 -     MAIN STORAGE ADDRESS OF THE JFCB WITH
                                    877+*                        WHICH CYLINDERS ARE SPLIT
0000A6                              878+JFCBABST DS    H -       RELATIVE ADDRESS OF FIRST TRACK TO BE
                                    879+*                        ALLOCATED
0000A8                              880+JFCBSBNM DS    AL3 -     MAIN STORAGE ADDRESS OF THE JFCB FROM
                                    881+*                        WHICH SPACE IS TO BE SUBALLOCATED
0000AB                              882+JFCBDRLH DS    CL3 -     AVERAGE DATA BLOCK LENGTH
0000AE                              883+JFCBVLCT DS    XL1 -     VOLUME COUNT
0000AF                              884+JFCBSPTN DS    XL1 -     NUMBER OF TRACKS PER CYLINDER TO BE USED
                                    885+*                        BY THIS DATA SET WHEN SPLIT CYLINDER IS
                                    886+*                        INDICATED
0000B0                              887+JFCBLGTH EQU   176 -     LENGTH OF JFCB
0000B0                              888+JFCBEND  EQU   *
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    890          IEFJMR                                                         00030000
000000                              891+JMR      DSECT
                                    892+***********************************************************************
                                    893+*                                                                     *
                                    894+*        JMR -  JOB MANAGEMENT RECORD                                 *
                                    895+*                                                                     *
                                    896+***********************************************************************
000000                              897+JMRJOB   DS    8C JOB NAME
000008                              898+JMRENTRY DS    F ENTRY TIME IN 1/100'S SEC
00000C                              899+JMREDATE DS    F ENTRY DATE 00YYDDDF
000010                              900+JMRCPUID DS    4C CPU - SID AND MDL FROM SMCA
000014                              901+JMRUSEID DS    8C USER ID - INITIALIZED BLANK BY R/I EACH JOB
00001C                              902+JMRSTEP  DS    C STEP NUMBER
00001D                              903+JMRLGEND EQU   *
00001D                              904+JMRLOGSZ EQU   JMRLGEND-JMRJOB SIZE OF JOB LOG COPIED TO DSB
                                    905+*********************************************************************
                                    906+*
00001D                              907+JMRINDC  DS    C INDICATOR SWITCHES         20011
                                    908+* BIT MEANINGS SAME AS JMROPT FIELD                               20011
                                    909+*
                                    910+**********************************************************************
00001E                              911+         DS    2C RESERVED                   20011
000020                              912+JMRUCOM  DS    F USER COMMUNICATION - INITIALIZED 0
000024                              913+JMRUJVP  DS    F CORE ADDR OF IEFUJV / PTR TO SYS1.MAN RECORD
000028                              914+JMRSIZE  EQU   *-JMR SIZE OF JMR IN CORE
                                    915+*
                                    916+*********************************************************************
                                    917+*
000028                              918+JMRDRSTP DS    2F RDR STOP TIME AND DATE
000030                              919+JMRJOBIN DS    F JOB SYSIN CT
000034                              920+JMRRDR   DS    2C RDR DEVICE CLASS AND TYPE
000036                              921+JMROPT   DS    1C OPTION SWITCHES
                                    922+*
000080                              923+JMRJOBSW EQU   X'80' JOB FUNCTIONS REQUESTED
000040                              924+JMRSTPSW EQU   X'40' STEP FUNCTIONS REQUESTED
000020                              925+JMREXITS EQU   X'20' USER EXITS REQUESTED
000010                              926+JMRXONLY EQU   X'10' EXITS ONLY SPECIFIED
000001                              927+JMRFIND  EQU   X'01' FOREGROUND INDICATED       20011
                                    928+*
000037                              929+         DS    C RESERVED
000038                              930+         DS    0F
000038                              931+JMRSYSOC DS    5C SYSOUT CLASSES
                                    932+*
                                    933+***********************************************************************
                                    934+*
                                    935+****PARM LIST PASSED TO IEFUJV IN R/I
                                    936+*
00003D                              937+JMRJCLCD DS    C JCL CODE
00003E                              938+         DS    2C
000040                              939+JMRJOBP  DS    F PTR TO JOB LOG
000044                              940+JMRJCLP  DS    F PTR TO JCL CARD
000048                              941+JMRJCLCP DS    F PTR TO JCL CODE
000040                              942+JMRPTRS  EQU   JMRJOBP
                                    943+*
                                    944+*********************************************************************
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    945+*
                                    946+*********************************************************************
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    948          MPCTLTAB                                                       00032000
                                    949+***********************************************************************
                                    950+*              MAIN PROCESSOR CONTROL TABLE                           *
                                    951+***********************************************************************
000000                              952+MPCSTART DSECT
000000 00000000                     953+MPNEXT   DC    F'0' -              POINTER TO NEXT MAINPROC TABLE
000004 00000000                     954+MPCSECT  DC    F'0' -              MAIN CSECT POINTER OR MAIN STATUS
000008 00000000                     955+MPWTRQ   DC    F'0' -              MSVDATA QUEUE AWAITING WTR OUTPUT
00000C 00000000                     956+MPTERMQ  DC    F'0' -              MSVDATA QUEUE FOR JOB TERMINATION
000010 00000000                     957+MPQMSG   DC    F'0' -              POINTER TO MESSAGE SEND QUEUE
000014 00000000                     958+MPQRECV  DC    F'0' -              POINTER TO RECEIVE MESSAGE QUEUE
000018 00000000                     959+MPUNITS  DC    F'0' -              POINTER TO SETUP TABLE
                                    960+*        MPENTRY
                                    961+***********************************************************************
                                    962+*              MAINPROC CARD SECTION                                  *
                                    963+***********************************************************************
00001C                              964+MPSTART  DS    0F
00001C 4040404040404040             965+MPNAME   DC    CL8' ' -            MAIN PROCESSOR NAME             NAME
000024 4040404040404040             966+MPSELECT DC    CL8' ' -            JOB SELECTION MODE NAME       SELECT
00002C 00000000                     967+MPDEVADD DC    F'0' -              SUPPORT ADAPTER ADDRESS IN HEX
000030 F0F0F0                       968+MPADAPT  DC    CL3'000' -          SUPPORT ADAPTER ADDR        @AA19614
000033 F0F0F0                       969+MPCTC    DC    CL3'000' -          MAIN    ADAPTER ADDR        @AA19614
000036 0000                         970+MPCTCCUA DC    XL2'00' -           CTC CONTROL UNITS ON MAIN     CTCCUA
000038 C3C1E3                       971+MPPROC   DC    C'CAT' -            SYS1.PROCLIB ADDRESS            PROC
00003B C3C1E3                       972+MPQ      DC    C'CAT' -            SYS1.JOBQUE ADDRESS                Q
00003E 404040                       973+MPMODEL  DC    CL3' ' -            MAIN PROCESSOR CPU MODEL       MODEL
000041 C1                           974+MPFORMAT DC    C'A' -              SYS1.JOBQUE FORMAT OPTION    QFORMAT
000042 00                           975+MPCPTYPE DC    X'00' -             CONTROL PROGRAM OPTION
000043 F0F0                         976+MPSMFID  DC    C'00' -             SMF MACHINE ID                 SMFID
000045 80                           977+MPSYSTEM DC    AL1(MPREAL) -       MAIN PROCESSOR MODE           SYSTEM
000046 C2                           978+MPMSGCLS DC    C'B' -              OS MSGCLASS FOR ASP JOBS    MSGCLASS
000047 C100000000000000             979+MPJOBCLS DC    C'A',XL14'00' -     OS JOB CLASSES TO USE       JOBCLASS
000056 FF                           980+MPJBTERM DC    X'FF' -             END OF OS JOB CLASS TABLE
000057                              981+MPEND    DS    0X -                END OF MAINPROC CARD SECTION
000057                              982+MPSIZE   DS    0XL(MPEND-MPSTART) -SIZE OF MAINPROC CARD SECTION
                                    983+*---------------------------------------------------------------------*
                                    984+*              DEFINITION OF FLAG BIT IN MPJOBCLS                     *
                                    985+*---------------------------------------------------------------------*
000080                              986+MPACTCLS EQU   X'80' -             THIS JOB CLASS HAS BEEN ALLOCATED
                                    987+*---------------------------------------------------------------------*
                                    988+*              DEFINITION OF BITS IN MPSYSTEM                         *
                                    989+*---------------------------------------------------------------------*
000080                              990+MPREAL   EQU   X'80' -             MAIN IS A REAL MAIN PROCESSOR
000040                              991+MPLOCAL  EQU   X'40' -             MAIN IS A LOCAL MODE MAIN PROCESSOR
000020                              992+MPDUMMY  EQU   X'20' -             MAIN IS A DUMMY MAIN PROCESSOR
000001                              993+MPSELFND EQU   X'01' -             INITIAL SELECT MODE DEFINED


                                    995+*        MSENTRY
                                    996+***********************************************************************
                                    997+*              SELECT CARD SECTION                                    *
                                    998+***********************************************************************
000058                              999+MSSTART  DS    0H
000058 02                          1000+MPMINIT  DC    AL1(2) -            MAX NUMBER OF INITIATORS       MINIT
000059 05                          1001+MPSDEPTH DC    AL1(5) -            MAX JOBS IN SETUP             SDEPTH
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00005A 0F                          1002+MPMBAR   DC    AL1(15) -           MAIN PRIORITY BARRIER           MBAR
00005B 0F                          1003+MPSBAR   DC    AL1(15) -           SETUP PRIORITY BARRIER          SBAR
00005C 00                          1004+MPMAGER  DC    AL1(0) -            JOB AGING RATE ON MAIN         MAGER
00005D 00                          1005+MPSAGER  DC    AL1(0) -            JOB AGING RATE IN SETUP        SAGER
00005E 0E                          1006+MPMAGEL  DC    AL1(14) -           JOB AGING LIMIT ON MAIN        MAGEL
00005F 0E                          1007+MPSAGEL  DC    AL1(14) -           JOB AGING LIMIT IN SETUP       SAGEL
000060 01                          1008+MPSINCR  DC    AL1(1) -            SETUP PRIORITY INCREMENT        INCR
000061 0E                          1009+MPSINCL  DC    AL1(14) -           SETUP PRIORITY INCREMENT LIMIT  INCL
000062 7FFF                        1010+MPMJSPAN DC    H'32767' -          JOB SPAN IN MAIN              MJSPAN
000064 7FFF                        1011+MPSJSPAN DC    H'32767' -          JOB SPAN IN SETUP             SJSPAN
000066 10                          1012+MPMPSPAN DC    AL1(16) -           PRIORITY SPAN IN MAIN         MPSPAN
000067 10                          1013+MPSPSPAN DC    AL1(16) -           PRIORITY SPAN IN SETUP        SPSPAN
000068 00                          1014+MPDSPLAY DC    X'00' -             MESSAGE DISPLAY OPTION       DISPLAY
000069 02                          1015+MPDPRTY  DC    AL1(2) -            ASP DISPATCHING PRIORITY       DPRTY
00006A 8020FF                      1016+MPCHLST  DC    AL1(MPBSTJOB,MPBSTFIT,255) SCHEDULING LIST        CHOICE
00006D FF                          1017+MPCHTERM DC    X'FF' -             TABLE TERMINATOR            @AL00001
00006E 2EE0                        1018+MPLSTOR  DC    H'12000' -          DEFAULT LOGICAL STORAGE     @AL00001
000070 0000                        1019+MPSDEST  DC    H'0' SAVE CONSOLE DEST           @AA23564
000072 A0                          1020+MPCHSUM  DC    AL1(MPBSTJOB+MPBSTFIT) CHOICE SUMMARY
000073                             1021+MPJOBMIX EQU   * -              TABLE OF IORATE MIXES BY DEPTH   JOBMIX
000073 010101                      1022+         DC    AL1(1,1,1) -        MIX FOR 1 JOB(LOW,HIGH,MED I/O)
000076 010101                      1023+         DC    AL1(1,1,1) -        MIX FOR 2 JOBS
000079 010101                      1024+         DC    AL1(1,1,1) -        MIX FOR 3 JOBS
00007C 010201                      1025+         DC    AL1(1,2,1) -        MIX FOR 4 JOBS
00007F 010301                      1026+         DC    AL1(1,3,1) -        MIX FOR 5 JOBS
000082 010302                      1027+         DC    AL1(1,3,2) -        MIX FOR 6 JOBS
000085 010402                      1028+         DC    AL1(1,4,2) -        MIX FOR 7 JOBS
000088 020402                      1029+         DC    AL1(2,4,2) -        MIX FOR 8 JOBS
00008B 020502                      1030+         DC    AL1(2,5,2) -        MIX FOR 9 JOBS
00008E 020503                      1031+         DC    AL1(2,5,3) -        MIX FOR 10 JOBS
000091 020603                      1032+         DC    AL1(2,6,3) -        MIX FOR 11 JOBS
000094 020703                      1033+         DC    AL1(2,7,3) -        MIX FOR 12 JOBS
000097 020704                      1034+         DC    AL1(2,7,4) -        MIX FOR 13 JOBS
00009A 030704                      1035+         DC    AL1(3,7,4) -        MIX FOR 14 JOBS
00009D 030804                      1036+         DC    AL1(3,8,4) -        MIX FOR 15 JOBS
0000A0                             1037+MSEND    DS    0H -                END OF SELECT CARD SECTION
0000A0                             1038+MSSIZE   DS    0XL(MSEND-MSSTART) -SIZE OF SELECT CARD SECTION
                                   1039+*---------------------------------------------------------------------*
                                   1040+*              DEFINITION OF BITS IN MPCHCUR, MPCHLST, AND MPCHSUM    *
                                   1041+*---------------------------------------------------------------------*
000080                             1042+MPBSTJOB EQU   X'80' -             SCHEDULE THE BEST JOB (MIX AND FIT)
000040                             1043+MPBSTMIX EQU   X'40' -             SCHEDULE THE JOB WITH THE BEST MIX
000020                             1044+MPBSTFIT EQU   X'20' -             SCHEDULE THE JOB WITH THE BEST FIT
000008                             1045+MPFSTJOB EQU   X'08' -             SCHEDULE THE FIRST JOB FOR THIS MAIN
000004                             1046+MPFSTMIX EQU   X'04' -             SCHEDULE THE FIRST JOB THAT MIXES
000002                             1047+MPFSTFIT EQU   X'02' -             SCHEDULE THE FIRST JOB THAT FITS
                                   1048+*---------------------------------------------------------------------*
                                   1049+*              DEFINITION OF BITS IN MPDSPLAY                         *
                                   1050+*---------------------------------------------------------------------*
000080                             1051+MPDISALL EQU   X'80' -             DISPLAY ALL CONSOLE DIALOG
000040                             1052+MPDISIPL EQU   X'40' -             DISPLAY ONLY IPL CONSOLE DIALOG
000020                             1053+MPDISIZE EQU   X'20' -             DISPLAY REGION SIZE MESSAGES
000010                             1054+MPDISMLG EQU   X'10' -             DISPLAY ALL MESSAGES ONLY ON MLOG
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1056+*---------------------------------------------------------------------*
                                   1057+*              MAINIO CONSOLE MESSAGE MACRO LIST FORM                 *
                                   1058+*---------------------------------------------------------------------*
                                   1059+*MPMIOMSG MESSAGE TEXT=MPMIOMSG,MF=L
0000A0                             1060+         DC    0F'0' -             FORCE BOUNDARY ALIGNMENT
0000A0 05                          1061+MPMIOMSG DC    X'05' -             ACTION/BUSY FLAG - PRIORITY
0000A1 0000A0                      1062+         DC    AL3(MPMIOMSG) -       TEXT ADDRESS
0000A4 00                          1063+         DC    X'00' -             DISPLACEMENT INTO DEST CLASS TABLE
0000A5 00                          1064+         DC    X'00' -             NO DESTINATION CLASS SPECIFIED
0000A6 0000                        1065+MPOPID   DC    H'0' WTOR ID                     @AA22787
                                   1066+*---------------------------------------------------------------------*
                                   1067+*              MAIN CONSOLE MESSAGE MACRO LIST FORM                   *
                                   1068+*---------------------------------------------------------------------*
                                   1069+*MPMSVMSG MESSAGE TEXT=MPMSVMSG,MF=L
0000A8                             1070+         DC    0F'0' -             FORCE BOUNDARY ALIGNMENT
0000A8 05                          1071+MPMSVMSG DC    X'05' -             ACTION/BUSY FLAG - PRIORITY
0000A9 0000A8                      1072+         DC    AL3(MPMSVMSG) -       TEXT ADDRESS
0000AC 00                          1073+         DC    X'00' -             DISPLACEMENT INTO DEST CLASS TABLE
0000AD 00                          1074+         DC    X'00' -             NO DESTINATION CLASS SPECIFIED
                                   1075+*---------------------------------------------------------------------*
                                   1076+*              CONSOLE MESSAGE APPENDAGE                              *
                                   1077+*---------------------------------------------------------------------*
0000AE                             1078+         USING *,R15
0000AE 9602 F30F      003BD        1079+MPOPMSG  OI    MPSTMIO,MPSCONS -   POST MAINIO FOR OPER MSG
                                   1080+*        ARETURN RC=4              RETURN AND GET MSG QUEUED
0000B2 58E0 B050            00050  1081+         L     R14,FCTSAVCH
0000B6 58E0 E008            00008  1082+         L     R14,8(0,R14)
0000BA 47F0 E004            00004  1083+         B     4(0,R14)
                                   1084+         DROP  R15
                                   1085+*---------------------------------------------------------------------*
                                   1086+*              ASYNCHRONOUS TIMER APPENDAGE                           *
                                   1087+*---------------------------------------------------------------------*
0000BE                             1088+         USING *,R15 -             SET APPENDAGE BASE
0000BE 9601 F2F3      003B1        1089+MPTIME   OI    MPLFLG,MPLTIME -    TIME INTERVAL HAS EXPIRED
0000C2 07FE                        1090+         BR    R14 -               RETURN
                                   1091+         DROP  R15
                                   1092+*---------------------------------------------------------------------*
                                   1093+*              RECEIVE CONSOLE MESSAGE AREA                           *
                                   1094+*---------------------------------------------------------------------*
0000C4 40                          1095+MPCONMSG DC    C' ' -              CONSOLE MESSAGE CONTROL CHARACTER
0000C5 4040404040404040            1096+MPRECID  DC    CL11' ' -           RECEIVE MESSAGE ID AND R= PREFIX
0000D0 4040404040404040            1097+MPMSGARA DC    CL120' ' -          RECEIVED CONSOLE MESSAGE AREA
0000D5                             1098+MPDIAGM  EQU   MPMSGARA+5 @AA22948
0000DC                             1099+MPDIAGS  EQU   MPMSGARA+12 @AA22948
0000E4                             1100+MPDIAGN  EQU   MPMSGARA+20 @AA22948
0000EC                             1101+MPDIAG   EQU   MPMSGARA+28 @AA22948
000134                             1102+         ORG   MPMSGARA+100 -                                  @AM00291
000134                             1103+MPBSRWK  DS    0F -                ABACKR WORK AREA FOR MAINIO @AM00291
000148                             1104+         ORG   MPMSGARA+120 -                                  @AM00291
                                   1105+*---------------------------------------------------------------------*
                                   1106+*              SEND MESSAGE AREA                                      *
                                   1107+*---------------------------------------------------------------------*
000148 40                          1108+MPSNDCNT DC    C' ' -              SEND MESSAGE CONTROL CHARACTER
000149 4040404040404040            1109+MPSNDID  DC    CL11' ' -           SEND MESSAGE ID AND S= PREFIX
000154 4040404040404040            1110+MPSNDMSG DC    CL120' ' -          SEND MESSAGE AREA
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1111+*---------------------------------------------------------------------*
                                   1112+*              MAIN PROCESSOR RECEIVE BUFFER AREA                     *
                                   1113+*---------------------------------------------------------------------*
0001CC 00                          1114+MPMSGECF DC    X'00' -             RECEIVE ECF FOR MPMSGBUF
0001CD 78                          1115+         DC    AL1(L'MPMSGBUF) -   RECEIVE CNT FOR MPMSGBUF
0001CE 4040404040404040            1116+MPMSGBUF DC    CL120' ' -          MAIN PROCESSOR RECEIVE BUFFER
                                   1117+*------------------------------------------------------------- @AT00336
                                   1118+*              SEND MSG TEXT FROM MODULE MAIN MSGS             @AT00336
                                   1119+*------------------------------------------------------------- @AT00336
000246 4040404040404040            1120+MPMAINTX DC    CL34' ' -           SEND MSG TEXT (MAIN ONLY)   @AT00336
                                   1121+*---------------------------------------------------------------------*
                                   1122+*              MAIN SERVICE AWAIT ECFS                                *
                                   1123+*---------------------------------------------------------------------*
000268                             1124+         DS    0F -                ALIGNMENT
000268                             1125+         DS    F -                 FLAGGED FOR DELETION
00026C FF                          1126+         DC    X'FF' -             MASK
00026D 0001CF                      1127+         DC    AL3(MPMSGBUF+1) -   ADDRESS
000270 FFFFFFFF                    1128+         DC    1F'-1' -            END OF LIST
000274 FF                          1129+MPMNECF  DC    X'FF' -             WAIT FOR MAIN SCHEDULER
000275 0003BC                      1130+         DC    AL3(MPSTMAIN)
000278 FB                          1131+MPMIOECF DC    X'FB' -             INITIAL WAIT FOR MAINIO
000279 0003BD                      1132+         DC    AL3(MPSTMIO)
00027C C3                          1133+MPECFPT  DC    AL1(MPSATTEN+MPSMSGFL+MPSCONS+MPSTIME) GENERAL AWAIT ECF
00027D 0003BD                      1134+         DC    AL3(MPSTMIO)
000280 08                          1135+MPCHEPT  DC    AL1(MPSCHEND) -     CHANNEL END AWAIT POINTER
000281 0003BD                      1136+         DC    AL3(MPSTMIO)
                                   1137+*---------------------------------------------------------------------*
                                   1138+*              CHANNEL-TO-CHANNEL CCW'S                               *
                                   1139+*---------------------------------------------------------------------*
000284 00000000
000288 0000000000000000            1140+MPCCWCTC CCW   X'00',X'00',0,0
000290 0000000000000000            1141+         CCW   X'00',X'00',0,0
000298 0200000010000001            1142+         CCW   MPCCRD,X'00',X'10',1
0002A0 020002EC20000008            1143+MPCCWDST CCW   MPCCRD,MPDSTL,MPCFSLI,8
0002A8 040002F420000001            1144+MPCCWSNS CCW   MPCCSEN,MPSENBYT,MPCFSLI,1
0002B0 020000D020000078            1145+MPCCWMSG CCW   MPCCRD,MPMSGARA,MPCFSLI,120
0002B8 0100015420000000            1146+MPCCWSND CCW   MPCCWR,MPSNDMSG,MPCFSLI,0
0002C0 070002C020000001            1147+MPCCWATN CCW   MPCCCTLI,MPCCWATN,MPCFSLI,1
0002C0                             1148+MPCAW    EQU   MPCCWATN -          SAVE AREA FOR MAIN CAW
0002C4                             1149+MPLCLIO  EQU   MPCCWATN+4 -        ENTRY POINT TO MSVLOCAL ROUTINE
0002C8 00000000                    1150+MPIOS    DC    F'0' -              ADDR OF IOS CCW CHAIN       @AL00001
                                   1151+*---------------------------------------------------------------------*
                                   1152+*              CTC DATA SET HEADER INFORMATION                        *
                                   1153+*---------------------------------------------------------------------*
0002CC 0000000000000000            1154+MPSENTRC DC    4F'0' -             MP SENSE BYTE TRACE TABLE   @AL00001
                                   1155+*-------------------------------------------------------------*@AA36228
                                   1156+*        REDEFINITION OF MPCDATA FIELDS USED IN IATADAP       *@AA36228
                                   1157+*        TO SUPPORT THE JES3-ASP MIGRATION AID                *@AA36228
                                   1158+*-------------------------------------------------------------*@AA36228
0002CC                             1159+         ORG   MPSENTRC @AA36228
0002CC 000000000000                1160+MPFDB1   DC    XL6'00' CURRENT JDS FDB FOR RELEASE @AA36228
0002D2 00                          1161+MPFLG1   DC    X'00' IATADAP FLAG1               @AA36228
0002D3 00                          1162+MPFLG2   DC    X'00' UNUSED                      @AA36228
0002D4 000000000000                1163+MPFDB2   DC    XL6'00' NEXT JDS FDB FOR RELEASE    @AA36228
0002DA 0000                        1164+MPFREE   DC    XL2'00' UNUSED                      @AA36228
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1165+*-------------------------------------------------------------*@AA36228
                                   1166+*        DEFINITION OF FLAG1                                  *@AA36228
                                   1167+*-------------------------------------------------------------*@AA36228
000001                             1168+MPHOOK   EQU   X'01' INITIAL TRANSMISSION COMPL. @AA36228
000002                             1169+MPRDR    EQU   X'02' READER ACTIVE               @AA36228
000004                             1170+MPWTR    EQU   X'04' WRITER ACTIVE               @AA36228
000008                             1171+MPHOOKUP EQU   X'08' INITIAL TRANSMISSION RECVD. @AA36228
000010                             1172+MPVAL    EQU   X'10' REGISTERS VALID FOR WRITER  @AA36228
000020                             1173+MPACAN   EQU   X'20' ASPAID HAS CANCELLED        @AA36228

0002DC 0000000000000000            1175+MPTRDSTL DC    4F'0' DSTL TRACE TABLE            @AA36228
0002EC                             1176+MPDSTL   DS    0CL8 -              CURRENT DATA SET TITLE LABEL
0002EC 0000                        1177+         DC    H'0' -              ADAPTER ADDRESS
0002EE 0000                        1178+MPDSTLLR DC    H'0' -              LRECL
0002F0 0000                        1179+MPDSTLBL DC    H'0' -              BLKSIZE
0002F2 00                          1180+MPDSTLRF DC    X'00' -             RECFM
0002F3 00                          1181+MPDSTLOP DC    X'00' -             OPTIONS
                                   1182+*---------------------------------------------------------------------*
                                   1183+*              CTC I/O FIELDS                                         *
                                   1184+*---------------------------------------------------------------------*
0002F4 00                          1185+MPSENBYT DC    X'00' -             SENSE BYTE DATA AREA
0002F5 000290                      1186+MPENDMRK DC    AL3(MPCCWCTC+8) -   POINTER TO SECOND DATA CHAINED CCW
0002F8 0000000000000000            1187+MPSVCSW  DC    2F'0' -             SAVE AREA FOR CTC CSW
000300 00000000                    1188+MPSYSADD DC    F'0' -              POINTER TO SUPUNITS ENTRY FOR MAIN
000304 00000000                    1189+MPTYPOS  DC    F'0' -              CONTROL PROGRAM MESSAGE MODULE
000308 0000                        1190+MPRIDSIZ DC    H'0' -              SIZE OF RECEIVE ID AND PREFIX
00030A 0000                        1191+MPSIDSIZ DC    H'0' -              SIZE OF SEND ID AND PREFIX
00030C 4040                        1192+MPOSCON  DC    CL2' ' -            MAIN CONSOLE DEVICE ADDRESS
00030E 404040                      1193+MPQRDR   DC    CL3' ' -            QRDR ADDRESS ON MAIN
000311 404040                      1194+MPQWTR   DC    CL3' ' -            QWTR ADDRESS ON MAIN
                                   1195+*---------------------------------------------------------------------*
                                   1196+*              MAIN SCHEDULING FIELDS                                 *
                                   1197+*---------------------------------------------------------------------*
000314 0000000000                  1198+MPMINPRT DC    XL5'00' -           MINIMUM REGION SIZE ON MAIN
000319 0000000000                  1199+MPMAXSIZ DC    XL5'00' -           MAX V=R OR MAX DYNAMIC      @AL00001
00031E F0F0F0F0F0                  1200+MPVSREAL DC    CL5'00000' -        CURRENT LARGEST V=R BLOCK   @AL00001
000323 F0F0F0F0F0                  1201+MPVSCUR  DC    CL5'00000' -        CURRENT AVAILABLE LSTOR     @AL00001
000328 0000                        1202+MPMBINC  DC    H'0' -              CURRENT AVAILABLE LSTOR     @AL00001
00032A 0000                        1203+MPMVSALC DC    H'0' -              CURRENT ALLOCATED LSTOR     @AL00001
00032C 0000000000000000            1204+MPIPLTXT DC    5F'0' -             FDB FOR MVT IPL TEXT        @AL00001
000340 0000000000000000            1205+         DC    5F'0' -             FDB FOR VS2 R1 IPL TEXT     @AL00001
000354 00000000                    1206+MPEXRESC DC    F'0' -              ADDRESS OF EXECUTION RESOURCE TABLE
000358 00000000                    1207+MPBRESC  DC    F'0' -              FIRST BATCH RESOURCE GROUP
00035C 0000000000000000            1208+MPGPTRS  DC    2F'0' -             GROUP SCAN POINTERS
000364 00000000                    1209+MPMSVJOB DC    F'0' -              POINTER TO ACTIVE JOB IN RESQUEUE
000368 00000000                    1210+MPRELID  DC    F'0' -              CONTROL PROGRAM RELEASE/LEVEL ID
00036C 00000000                    1211+MPMNFCT  DC    F'0' -              POINTER TO MAIN MODULE FCT
000370 00000000                    1212+MPRDCSCT DC    F'0' -              CSECT POINTER TO CURRENT RDR JOB
000374 00000000                    1213+MPRDFDB  DC    F'0' -              FDB FOR CURRENT RDR JOB
000378 00000000                    1214+MPWTRCST DC    F'0' -              CSECT POINTER FOR JOB ON WTR
00037C 00000000                    1215+MPWTRFDB DC    F'0' -              FDB FOR CURRENT WTR
000380 0000                        1216+MPNUNITS DC    H'0' -              NUMBER OF SETUNIT DEVICES
000382 0000                        1217+MPMDEST  DC    H'0' -              MDEST CONSOLE CLASS
000384 00000000                    1218+MPMREG10 DC    F'0' -              BASE REGISTER SAVE AREA
000388 00000000                    1219+MPMREG14 DC    F'0' -              RETURN REGISTER SAVE AREA
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00038C 00000000                    1220+MPSREG10 DC    F'0' -              SAVE AREA FOR REG 10
000390 00000000                    1221+MPSREG14 DC    F'0' -              SAVE AREA FOR REG 14
                                   1222+*---------------------------------------------------------------------*
                                   1223+*              MAIN SCHEDULING MASK INSTRUCTIONS (BUILT BY INITMN2)   *
                                   1224+*---------------------------------------------------------------------*
000394 94FF 5000      00000        1225+MPRQRSET NI    0(5),X'FF' -        RESET RQMAINS MASK
000398 9600 5000      00000        1226+MPRQSET  OI    0(5),X'00' -        SET RQMAINS MASK
00039C 9100 5000      00000        1227+MPRQTEST TM    0(5),X'00' -        TEST RQMAINS MASK
                                   1228+*---------------------------------------------------------------------*
                                   1229+*              MAIN SCHEDULING COUNTERS                               *
                                   1230+*---------------------------------------------------------------------*
0003A0 0000                        1231+MPJSCNT  DC    H'0' -              JOB SPAN COUNTER
0003A2 0000                        1232+MPSJSCNT DC    H'0' -              SETUP JOB SPAN COUNTER
0003A4 00                          1233+MPAINIT  DC    X'00' -             TOTAL ALLOCATED INITIATOR COUNT
0003A5 00                          1234+MPDEEP   DC    X'00' -             COUNT OF ACTIVE INITIATORS ON MAIN
0003A6 00                          1235+MPSDEEP  DC    AL1(0) -            CURRENT SETUP DEPTH ON MAIN
0003A7 00                          1236+MPLIGRP  DC    X'00' -             LAST INITIATOR GROUP SCANNED
0003A8 00                          1237+MPPRTY   DC    X'00' -             CURRENT SELECT PRIORITY IN RESQUEUE
0003A9 00                          1238+MPPSCNT  DC    X'00' -             PRIORITY SPAN COUNTER
0003AA 00                          1239+MPSPSCNT DC    AL1(0) -            SETUP PRIORITY SPAN COUNTER
0003AB 000000                      1240+MPJOBCNT DC    3X'00' -            IORATE COUNTERS
                                   1241+*---------------------------------------------------------------------*
                                   1242+*              MAIN PROCESSOR CONTROL PROGRAM INDEXES                 *
                                   1243+*---------------------------------------------------------------------*
0003AE 01                          1244+MPCPACT  DC    AL1(MPCPMVT) -      ACTIVE CONTROL PGM
0003AF 01                          1245+MPCPMDS  DC    AL1(MPCPMVT) -      CONTROL PROGRAM FOR MDS SCHED
0003B0 00                          1246+MPCPNEW  DC    X'00' -             NEW CTRL PGM IN SYSTEM SWITCH
                                   1247+*---------------------------------------------------------------------*
                                   1248+*              MAIN PROCESSOR CONTROL PROGRAM INDEX VALUES FOR        *
                                   1249+*              MPCPACT/MPCPMDS/MPCPNEW                                *
                                   1250+*---------------------------------------------------------------------*
000000                             1251+MPCPNONE EQU   0 -                 NO CTRL PGM
000001                             1252+MPCPMVT  EQU   1 -                 MVT CTRL PGM INDEX
000002                             1253+MPCVR1   EQU   2 -                 VS2 R1 CNTL PGM INDEX       @AL00001
0000FF                             1254+MPCPANY  EQU   X'FF' -             ANY CTRL PGM INDEX
                                   1255+*---------------------------------------------------------------------*
                                   1256+*              MAIN PROCESSOR FLAG BYTES                              *
                                   1257+*---------------------------------------------------------------------*
0003B1 00                          1258+MPLFLG   DC    X'00' -             STATUS OF MAIN AT END OF LAST JOB
0003B2 00                          1259+MPLSTCLS DC    X'00' -             CLASS SEQ NUMBER OF LAST JOB SCANNED
0003B3 00                          1260+MPMDSFL1 DC    X'00' -             SETUP FLAG BYTE
0003B4 00                          1261+MPMIOFLG DC    X'00' -             MAINIO FLAG BYTE
0003B5 00                          1262+MPOPFLG  DC    X'00' -             MSVOPMSG FLAGS
0003B6 00                          1263+MPMODFLG DC    X'00' -             MAIN MODIFY MESSAGE FLAGS
0003B7 00                          1264+MPSCANFG DC    X'00' -             RESQUEUE SCAN FLAGS
0003B8 00                          1265+MPSCHFG  DC    X'00' -             MAIN SCHEDULER FLAGS
0003B9 00                          1266+MPSEQNO  DC    X'00' -             MAIN PROCESSOR SEQUENCE NUMBER
0003BA 00                          1267+MPSFLG   DC    X'00' -             JOB SELECTION FLAGS
0003BB 00                          1268+MPSTAT   DC    X'00' -             MAIN PROCESSOR STATUS FLAGS
0003BC 00                          1269+MPSTMAIN DC    X'00' -             ECF FOR MAIN SCHEDULER
0003BD 00                          1270+MPSTMIO  DC    X'00' -             ECF FOR MAINIO
0003BE 00                          1271+MPIJPFLG DC    X'00' -             FLAG BYTE FOR IJP CONTROL
0003BF 00                          1272+MPSYSFLG DC    X'00' -             SYSTEM FLAGS FOR MAIN SERVICE
                                   1273+*---------------------------------------------------------------------*
                                   1274+*              FIELDS RESERVED FOR MODIFICATIONS                      *
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1275+*---------------------------------------------------------------------*
0003C0 0000000000000000            1276+MPUSER   DC    5F'0' -             RESERVED FOR USER
0003D4                             1277+MPIREG10 DS    F -                 R10 SAVE MSVINIT            @AA15952
0003D8                             1278+MPIREG14 DS    F -                 R14 SAVE MSVINIT            @AA15952
0003DC 0000000000000000            1279+NMAREA   DC    2F'0' MODIFY NAME AREA            @AA28676
0003E4 00000000                    1280+MPLBAL   DC    F'0' SAVE AREA FOR LOAD BALANCING@AA32992
0003E6                             1281+MPLBAL2  EQU   MPLBAL+2 EQUATE FOR LOAD BALANCING   @AA32992
0003E8 00000000                    1282+         DC    F'0' RESERVED FOR IBM            @ASPV320
0003EC 00000000                    1283+         DC    F'0' RESERVED FOR IBM            @ASPV320
0003F0 00000000                    1284+         DC    F'0' RESERVED FOR IBM            @ASPV320
0003F4 00000000                    1285+         DC    F'0' RESERVED FOR IBM            @ASPV320
0003F8 00000000                    1286+         DC    F'0' RESERVED FOR IBM            @ASPV320
0003FC 00000000                    1287+         DC    F'0' RESERVED FOR IBM            @ASPV320
000400 00000000                    1288+         DC    F'0' RESERVED FOR IBM            @ASPV320
000404 00000000                    1289+         DC    F'0' RESERVED FOR IBM            @ASPV320
000408 00000000                    1290+         DC    F'0' RESERVED FOR IBM            @ASPV320
00040C                             1291+MPCEND   EQU   * -                 END OF MPCTL FOR REAL MAIN  @ASPV320
                                   1292+*---------------------------------------------------------------------*
                                   1293+*              COMMAND CODES                                          *
                                   1294+*---------------------------------------------------------------------*
000001                             1295+MPCCWR   EQU   X'01' -             WRITE
000002                             1296+MPCCRD   EQU   X'02' -             READ
000003                             1297+MPCCCTL  EQU   X'03' -             CONTROL COMMAND (NOP TO CH-CH)
000004                             1298+MPCCSEN  EQU   X'04' -             SENSE COMMAND
000007                             1299+MPCCCTLI EQU   X'07' -             CONTROL IMMEDIATE COMMAND
000008                             1300+MPCCTIC  EQU   X'08' -             TRANSFER IN CHANNEL
00000C                             1301+MPCCRDB  EQU   X'0C' -             READ BACKWARD
                                   1302+*---------------------------------------------------------------------*
                                   1303+*              COMMAND FLAGS                                          *
                                   1304+*---------------------------------------------------------------------*
000080                             1305+MPCFCD   EQU   X'80' -             CHAINED DATA
000040                             1306+MPCFCC   EQU   X'40' -             COMMAND CHAIN
000020                             1307+MPCFSLI  EQU   X'20' -             SUPPRESS WRONG LENGTH RECORD INDIC
000010                             1308+MPCFSKIP EQU   X'10' -             SKIP DATA
000008                             1309+MPCFPCI  EQU   X'08' -             PROGRAM CONTROLLED INTERRUPT
                                   1310+*---------------------------------------------------------------------*
                                   1311+*              CHANNEL-TO-CHANNEL CONDITION CODES                     *
                                   1312+*---------------------------------------------------------------------*
000008                             1313+MPOPER   EQU   8 -                 CHANNEL OPERATING
000004                             1314+MPCSWSTR EQU   4 -                 CSW STORED
000002                             1315+MPCHBUSY EQU   2 -                 CHANNEL BUSY
000001                             1316+MPINOP   EQU   1 -                 DEVICE INOPERATIVE
                                   1317+*---------------------------------------------------------------------*
                                   1318+*              LOWER CORE PARAMETERS                                  *
                                   1319+*---------------------------------------------------------------------*
000020                             1320+MPSWSVO  EQU   X'20' -             LOCATION OF SVC OLD PSW
000028                             1321+MPSWPRO  EQU   X'28' -             LOCATION OF PROGRAM CHECK PSW
000030                             1322+MPSWMCO  EQU   X'30' -             LOCATION OF MACHINE CHECK OLD PSW
000038                             1323+MPSWIOO  EQU   X'38' -             LOCATION OF I/O OLD PSW
000040                             1324+MPLCSW   EQU   X'40' -             LOCATION OF CSW
000048                             1325+MPLCAW   EQU   X'48' -             LOCATION OF CAW
                                   1326+*---------------------------------------------------------------------*
                                   1327+*              DEFINITION OF BITS IN MPIFLG                           *
                                   1328+*---------------------------------------------------------------------*
000080                             1329+MPIACT   EQU   X'80' -             INITIATOR IS ACTIVE
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000040                             1330+MPILAST  EQU   X'40' -             LAST INITIATOR GROUP
                                   1331+*---------------------------------------------------------------------*
                                   1332+*              DEFINITION OF BITS IN MPLFLG                           *
                                   1333+*---------------------------------------------------------------------*
000080                             1334+MPACTWTR EQU   X'80' -             CTC OS/WTR IS ACTIVE
000040                             1335+MPDSSRCH EQU   X'40' -             DSTL SEARCH REQUIRED        @AA14828
000020                             1336+MPIPLING EQU   X'20' -             IPL IN PROGRESS
000010                             1337+MPIPL    EQU   X'10' -             PROCESSOR HAS BEEN IPLED
000008                             1338+MPLSTORP EQU   X'08' -             LSTOR UPDATE PENDING        @AL00001
000004                             1339+MPALLOC  EQU   X'04' -             MDS ALLOCATION DID NOT FAIL
000002                             1340+MPFLUSH  EQU   X'02' -             FLUSH REQUESTED ON MAIN
000001                             1341+MPLTIME  EQU   X'01' -             SET BY MPTIME-ATIME APPENDAGE
                                   1342+*---------------------------------------------------------------------*
                                   1343+*              DEFINITION OF BITS IN MPMDSFL1                         *
                                   1344+*---------------------------------------------------------------------*
000080                             1345+MPMDONE  EQU   X'80' -             MDS SCHEDULING COMPLETE THIS PASS
000040                             1346+MPREVERS EQU   X'40' -             REVER REQD FOR IPLD MAIN    @AM00288
                                   1347+*---------------------------------------------------------------------*
                                   1348+*             DEFINITION OF BITS IN MPMODFLG
                                   1349+*---------------------------------------------------------------------*
000080                             1350+MPMODCLS EQU   X'80' -             MODIFY JOB CLASS
000040                             1351+MPMODGRP EQU   X'40' -             MODIFY JOB CLASS GROUP
000020                             1352+MPMODSEL EQU   X'20' -             MODIFY SELECT MODE
000010                             1353+MPMODON  EQU   X'10' -             MODIFY CLASS OR GROUP ON
000008                             1354+MPMODOFF EQU   X'08' -             MODIFY CLASS OR GROUP OFF
000004                             1355+MPMODALL EQU   X'04' -             MODIFY ALL CLASSES OR GROUPS ON/OFF
000002                             1356+MPMODINT EQU   X'02' -             MODIFY GROUP INITIATORS
000001                             1357+MPMODSTA EQU   X'01' -             CLASS OR GROUP STATUS REQUEST
                                   1358+*---------------------------------------------------------------------*
                                   1359+*              DEFINITION OF BITS IN MPOPFLG                          *
                                   1360+*---------------------------------------------------------------------*
000080                             1361+MPOPDSPL EQU   X'80' -             OPERATOR DISPLAY REQUEST
000040                             1362+MPOPALL  EQU   X'40' -             DISPLAY ALL SELECT PARAMETERS
000020                             1363+MPOPALPH EQU   X'20' -             SELECT INPUT IS ALPHABETIC
000010                             1364+MPOPMULT EQU   X'10' -             MULTIPLE SELECT OPERANDS
000008                             1365+MPOPCHPT EQU   X'08' -             CHECKPOINT MAIN SCHEDULING STATUS
                                   1366+*MPOPASSW EQU  X'01' -             PASSWD REPLY INDICATOR      @AA33552
                                   1367+*---------------------------------------------------------------------*
                                   1368+*              DEFINITION OF BITS IN MPSCANFG                         *
                                   1369+*---------------------------------------------------------------------*
000080                             1370+MPFITONE EQU   X'80' -             FIRST JOB TO FIT IN CURRENT REGION
000040                             1371+MPMIXONE EQU   X'40' -             FIRST JOB TO MIX IN CURRENT BATCH
000020                             1372+MPJOBONE EQU   X'20' -             FIRST JOB FOUND
000008                             1373+MPMIXBST EQU   X'08' -             FIRST JOB TO HAVE PERFECT MIX
000004                             1374+MPJOBS   EQU   X'04' -             JOBS ARE WAITING MAIN SELECTION
000002                             1375+MPPJOBS  EQU   X'02' -             JOB IN CURRENT PRTY IS AWAITING MAIN
                                   1376+*---------------------------------------------------------------------*
                                   1377+*              DEFINITION OF BITS IN MPSCHFG                          *
                                   1378+*---------------------------------------------------------------------*
000080                             1379+MPACTRDR EQU   X'80' -             CTC OS/RDR IS ACTIVE
000040                             1380+MPPTERM  EQU   X'40' -             JOB TERMINATION PENDING
000020                             1381+MPNOSQS  EQU   X'20' -             NOT ENOUGH SQS FOR SCHEDULING
000010                             1382+MPGRPSCN EQU   X'10' -             GROUP SCHEDULING SCAN FLAG
000002                             1383+MPINITP  EQU   X'02' -             INITIATOR ALLOCATION PENDING ON MAIN
000001                             1384+MPNEWJOB EQU   X'01' -             SCHEDULE ONLY NEW JOBS
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1385+*---------------------------------------------------------------------*
                                   1386+*              DEFINITION OF BITS IN MPSFLG                           *
                                   1387+*---------------------------------------------------------------------*
000080                             1388+MPBATBAR EQU   X'80' -             BATCH STORAGE JOB ABOVE THE BARRIER
000040                             1389+MPENB    EQU   X'40' -             SELECT ENABLE FLAG
000020                             1390+MPCHPBAR EQU   X'20' -             BAT JOB ABOVE BAR(HIGH GRP) @AA30536
000010                             1391+MPENDBAR EQU   X'10' -             BARRIER TERMINATION FLAG
                                   1392+*---------------------------------------------------------------------*
                                   1393+*              DEFINITION OF BITS IN MPSTAT                           *
                                   1394+*---------------------------------------------------------------------*
000080                             1395+MPIPLRCV EQU   X'80' -             IPL OCCURRED ON MAIN
000040                             1396+MPRESTRT EQU   X'40' -             ASP RESTART - NOT YET IPLED
000020                             1397+MPDRBIT  EQU   X'20' -             DONT GIVE 'D R' RESPONSE TO OPER
000010                             1398+MPMCS    EQU   X'10' -             INHIBIT 'D R' SEND
000008                             1399+MPMSVD   EQU   X'08' -             MSVINIT-MSVDATA BUILD FLAG
000004                             1400+MPAGEON  EQU   X'04' -             AGE THE CURRENT JOB
000002                             1401+MPSYSSW  EQU   X'02' -             SYSTEM SWITCH IS IN PROCESS
000001                             1402+MPRSTOK  EQU   X'01' -             OK TO IPL AFTER RESTART OF ASP
                                   1403+*---------------------------------------------------------------------*
                                   1404+*              DEFINITION OF BITS IN MPSTMAIN                         *
                                   1405+*---------------------------------------------------------------------*
000080                             1406+MPNSTAT  EQU   X'80' -             ECF POST FOR NEW STATUS ON MAIN
000040                             1407+MPSTTERM EQU   X'40' -             ECF POST FOR JOB TERMINATION
000020                             1408+MPAL     EQU   X'20' -             ECF POST FOR RESOURCE ALLOCATION
000010                             1409+MPUNAL   EQU   X'10' -             ECF POST FOR RESOURCE UNALLOCATION
000002                             1410+MPLSTUP  EQU   X'02' -             ECF POST FOR LSTOR UPDATE   @AL00001
000001                             1411+MPRQADD  EQU   X'01' -             ECF POST FOR JOBS ADDED TO RESQUEUE
                                   1412+*---------------------------------------------------------------------*
                                   1413+*              DEFINITION OF BITS IN MPSTMIO                          *
                                   1414+*---------------------------------------------------------------------*
000080                             1415+MPSATTEN EQU   X'80' -             ATTENTION MASK
000040                             1416+MPSMSGFL EQU   X'40' -             MESSAGE SEND FLAG
000010                             1417+MPSBUSY  EQU   X'10' -             BUSY MASK
000008                             1418+MPSCHEND EQU   X'08' -             CHANNEL END FLAG
000004                             1419+MPSDEVND EQU   X'04' -             DEVICE END MASK
000002                             1420+MPSCONS  EQU   X'02' -             CONSOLE OPERATOR MESSAGE PENDING
000001                             1421+MPSTIME  EQU   X'01' -             MAXIMUM TIME HAS BEEN EXCEEDED
                                   1422+*---------------------------------------------------------------------*
                                   1423+*              DEFINITION OF BITS IN MPIJPFLG                         *
                                   1424+*---------------------------------------------------------------------*
000080                             1425+MPIJACTV EQU   X'80' -             *X IJP,SYS= THIS ISSUED, IJP ACTIVE
                                   1426+*---------------------------------------------------------------------*
                                   1427+*              DEFINITION OF BITS IN MPSYSFLG                         *
                                   1428+*---------------------------------------------------------------------*
000080                             1429+MPSENDFL EQU   X'80' -             CONSOLE MESSAGE PENDING FLAG
000040                             1430+MPMSGBSY EQU   X'40' -             SET FOR BUSY RET AT ALOAD OF MSOPMSG
000020                             1431+MPSNDBSY EQU   X'20' -             SEND AREA BUSY FLAG
000002                             1432+MPDQFLAG EQU   X'02' -             DEQUEUE SEND MESSAGES FLAG
                                   1433+*---------------------------------------------------------------------*
                                   1434+*              DEFINITION OF BITS IN MPMIOFLG                         *
                                   1435+*---------------------------------------------------------------------*
000080                             1436+MPSTTIPL EQU   X'80' -             START CMD IPL - FLAG        @AA19288
000040                             1437+MPSFLUSH EQU   X'40' -             START CMD FLUSH - FLAG      @AA23755
000020                             1438+MPBURST  EQU   X'20' -             BURST FLAG
000010                             1439+MPCANPEN EQU   X'10' -             CANCEL PENDING FLAG
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000008                             1440+MPIMMED  EQU   X'08' IMMED COMMAND PENDING FLG   @AA33552
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1443          MSQDATAX                                                       00034000
                                   1444+***********************************************************************
                                   1445+*              MSVQMAP WORK AREA                                      *
                                   1446+***********************************************************************
000000                             1447+MSQDATA  DSECT
                                   1448+*        RIODATAX TYPE=NULL        RICBAM WORK AREA
                                   1449+***********************************************************************
                                   1450+*              RICBAM WORK AREA                                       *
                                   1451+***********************************************************************
000000                             1452+RIOBEG   DS    0X -                BEGINNING OF WORK TABLE
000000                             1453+RIOTABLE DS    F -                 FIRST TABLE PTR
000004                             1454+RIOLTTR  DS    F -                 LTTR REQUESTED
000008                             1455+RIOCRADD DS    F -                 CURRENT SINGLE RECORD ADDR
00000C                             1456+RIOCFDB  DS    F -                 CURRENTLY OPENED FDB ADDR
000010                             1457+RIORET1  DS    F -                 CALLERS RETURN - RIGET
000014                             1458+RIOBSAV1 DS    F -                 CALLERS BASE - RIGET
000018                             1459+RIORET2  DS    F -                 CALLERS RETURN - RIPUT
00001C                             1460+RIOBSAV2 DS    F -                 CALLERS BASE - RIPUT,RITPT
000020                             1461+RIOURADD DS    F -                 USER DATA ADDR - RIPUT,RITPT
000024                             1462+RIOCENT  DS    CL1 -               CURRENT ENTRY NUMBER
000025                             1463+         DS    CL3 -               RESERVED
000028                             1464+RIOXLTTR DS    H -                 CURRENT LTTR
00002A                             1465+RIOXUSE  DS    H -                 CURRENT USE
00002C                             1466+RIOXRADD DS    F -                 CURRENT SING REC FILE ADDR
000030                             1467+RIOXCFDB DS    F -                 CURRENT FDB ADDR
000034                             1468+RIOYLTTR DS    H -                 CURRENT LTTR
000036                             1469+RIOYUSE  DS    H -                 CURRENT USE
000038                             1470+RIOYRADD DS    F -                 CURRENT SING REC FILE ADDR
00003C                             1471+RIOYCFDB DS    F -                 CURRENT FDB ADDR
000040                             1472+RIOZLTTR DS    H -                 CURRENT LTTR
000042                             1473+RIOZUSE  DS    H -                 CURRENT USE
000044                             1474+RIOZRADD DS    F -                 CURRENT SING REC FILE ADDR
000048                             1475+RIOZCFDB DS    F -                 CURRENT FDB ADDR
00004C                             1476+RIOLCFDB DS    F -                 LAST CURRENT FDB ADDR
000050                             1477+RIOCFILE DS    F -                 CURRENT FILE ADDR
000080                             1478+RIOWRITE EQU   X'80' -             WRITE REQUIRED ON THIS FILE
000054                             1479+RIOEND   DS    0X -                END OF WORK TABLE
000054                             1480+RIOSIZE  DS    0XL(RIOEND-RIOBEG) SIZE OF WORK TABLE


                                   1482+***********************************************************************
                                   1483+*              MAPPING WORK AREA                                      *
                                   1484+***********************************************************************
000054                             1485+MSQMSVD  DS    F -                 MSVDATA PTR
000058                             1486+MSQMPC   DS    F -                 MPCDATA PTR
00005C                             1487+MSQJCBIN DS    F -                 JCBIN FDB PTR
000060                             1488+MSQASGNT DS    F -                 ASSIGN WORK ENTRY PTR
000064                             1489+MSQMSVUP DS    F -                 MSVCBUP ALOAD ADDR
000068                             1490+MSQJOBN  DS    F -                 JOB NUMBER
00006C                             1491+MSQFVSP  DS    F -                 FIRST VOL SER POS FOR ADDITION
000070                             1492+MSQJST   DS    F -                 JST FDB ADDRESS
000074                             1493+MSQSCT   DS    H -                 SCT LTTR
000076                             1494+MSQFSMB  DS    H -                 FIRST SMB LTTR
000078                             1495+MSQFACT  DS    H -                 FIRST ACT LTTR
00007A                             1496+MSQSCD   DS    H -                 SCD LTTR
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00007C                             1497+MSQSCTX  DS    H -                 SCTX LTTR
00007E                             1498+MSQDSENQ DS    H -                 DSENQ LTTR
000080                             1499+MSQCJFCB DS    H -                 CK/PT JFCB LTTR
000082                             1500+MSQJMR   DS    H -                 JMR LTTR
000084                             1501+MSQJFCBX DS    H -                 JFCBX LTTR
000086                             1502+MSQVOLT  DS    H -                 VOLT LTTR
000088                             1503+MSQSIOT  DS    H -                 SIOT LTTR
00008A                             1504+MSQSMBSV DS    H -                 LAST SMB LTTR
00008C                             1505+MSQDSNT  DS    H -                 DSN TABLE LTTR
00008E                             1506+MSQDSB   DS    H -                 DSB LTTR
000090                             1507+MSQCLASS DS    H -                 MSGCLASS SAVE AREA
000092                             1508+MSQSEQN  DS    H -                 VOLUME SEQUENCE NUMBER
000094                             1509+MSQSTP   DS    H -                 CURRENT JST STEP NUMBER
000096                             1510+MSQSCRN  DS    H -                 NUMBER OF SCRATCH REQUEST/STEP
000098                             1511+MSQVOLTL DS    H -                 LENGTH OF VOLUME TABLE
00009A                             1512+MSQNVOLT DS    H -                 NEW VOLT LTTR
00009C                             1513+MSQVOLTR DS    H -                 DISP OF LAST VOLT
00009E                             1514+MSQSTPN  DS    XL1 -               CURRENT STEP NUMBER
00009F                             1515+MSQFLG3  DS    XL1 -               RQFLG3
0000A0                             1516+MSQEND   DS    0X -                END OF MSQDATA
0000A0                             1517+MSQSIZE  DS    0XL(MSQEND-RIOBEG) - SIZE OF MSQDATA
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1520          MSVDSECT                                                       00036000
                                   1521+***********************************************************************
                                   1522+*              MAIN PROCESSOR JOB CONTROL TABLE                       *
                                   1523+***********************************************************************
000000                             1524+MSVDATA  DSECT
000000 00000000                    1525+NXTCSECT DC    F'0' -              POINTER TO NEXT MVTCSECT IN CHAIN
000004 00000000                    1526+MSLINES  DC    F'0' -              ACTUAL LINE CNT
000008 00000000                    1527+MSCARDS  DC    F'0' -              ACTUAL CARD CNT
00000C 00000000                    1528+MAXLINES DC    F'0' -              LINES ESTIMATES
000010 00000000                    1529+MAXCARDS DC    F'0' -              CARDS ESTIMATE              @AL00175
000014 00000000                    1530+MSGFDB   DC    F'0' -              POINTER TO SYSMSG FDB.
000018 00000000                    1531+MSCDE    DC    F'0' -              PTR TO MSVDATA CDE
00001C 00000000                    1532+MPRESQ   DC    F'0' -              POINTER TO RESQUEUE ENTRY
000020 00000000                    1533+MSTIMON  DC    F'0' -              TIME ON FOR THIS JOB
000024 00000000                    1534+MSTIMOFF DC    F'0' -              TIME OFF FOR THIS JOB
000028 4040404040404040            1535+MSJOBNAM DC    CL8' ' -            JOB NAME.
000030 4040404040404040            1536+MSJOBSTP DC    CL8' ' -            NAME OF CURRENT JOB STEP
000038 40404040                    1537+MSJOBNUM DC    CL4' ' -            JOB ON MAIN JOB NUMBER.
00003C                             1538+         DS    0F -                FDB ALIGNMENT
00003C 000000000000                1539+MSJDSFDB DC    XL6'00' -           JOB DATA SETS FILE DESCRIPTION BLOCK
000042 00                          1540+MSJDFL1  DC    X'00' -             =JDASPFL1 IN JDB FOR JOB ON MAIN.
000043 00                          1541+MSJDFL3  DC    X'00' -             =JDASPFL3 IN JDB FOR JOB ON MAIN
000044                             1542+         DS    0F -                FDB ALIGNMENT
000044 000000000000                1543+MSJOBTAT DC    XL6'00' -           JOB TRACK ALLOCATOR TABLE FDB
00004A 00                          1544+MSJOBPTY DC    X'00' -             OS DISPATCHING PRIORITY
00004B 40                          1545+MSGCLASS DC    C' ' -              MESSAGE CLASS
00004C 40                          1546+MSJOBCLS DC    C' ' -              OS JOB CLASS ASSIGNED TO JOB
00004D 00                          1547+MSFLG1   DC    X'00' -             MAIN SERVICE JOB FLAGS
00004E 00                          1548+MSFLG2   DC    X'00' -             FLAGS FOR ASP SUBW USE
00004F 000000                      1549+MSINITID DC    XL3'00' -           INITIATOR ID FOR THIS JOB
000052 00                          1550+MSJDFL4  DC    X'00' -             JDABFLG4 FIELD              @AM00366
000053 00
000054 00000000                    1551+MSEXRESC DC    F'0' -              EXECUTION RESOURCE ENTRY FOR THE JOB
                                   1552+*---------------------------------------------------------------------*
                                   1553+*              FIELDS RESERVED FOR MODIFICATIONS                      *
                                   1554+*---------------------------------------------------------------------*
000058 00000000                    1555+MSVUSER  DC    F'0' -              RESERVED FOR USER
00005C 00000000                    1556+MSVIBM   DC    F'0' -              RESERVED FOR IBM
000060                             1557+MSVEND   DS    0X -                END OF MSVDATA
000060                             1558+MSVSIZE  DS    0XL(MSVEND-MSVDATA) SIZE OF MSVDATA
                                   1559+*---------------------------------------------------------------------*
                                   1560+*              DEFINITION OF BITS IN MSFLG1                           *
                                   1561+*---------------------------------------------------------------------*
000080                             1562+MSALLREC EQU   X'80' -             ALLOCATION RECOVERY
000040                             1563+MSLSUPD  EQU   X'40' -             LSTOR UPDATED               @AM00378
000008                             1564+MSCANCEL EQU   X'08' -             JOB IS TO BE CANCELLED
000004                             1565+MSSMB    EQU   X'04' -             MSVTERM IS TO PROCESS SMBS
000002                             1566+MSJBPRTY EQU   X'02' -             0=JPRTY=ASP, 1=JPRTY=JOB
000001                             1567+MSENQUE  EQU   X'01' -             JOB WAITING FOR DATA SETS
                                   1568+*---------------------------------------------------------------------*
                                   1569+*              DEFINITION OF BITS IN MSFLG2                           *
                                   1570+*---------------------------------------------------------------------*
000080                             1571+MSIJPJOB EQU   X'80' -             THIS MSV DATA IS FOR IJP DATA XFER
000040                             1572+MSIJPDS  EQU   X'40' -             THIS MSVDATA HAS AN IJP DS IN JDS
000020                             1573+MSACJOB  EQU   X'20' -             ACDS CREATED MSVDATA
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1576 *********************************************************************** 00038000
                                   1577 *              MSVQMAP QMPA WORK ENTRY                                * 00039000
                                   1578 *********************************************************************** 00040000
000000                             1579 MSVWKMAP DSECT                                                          00041000
000000                             1580 MSVWKCHN DS    F -                 CHAIN PTR TO NXT ENTRY               00042000
000004                             1581 MSVWKCNT DS    H -                 COUNT OF REQUIRED ENTRIES            00043000
000006                             1582 MSVWKID  DS    CL1 -               QUEUE ID                             00044000
000007                             1583          DS    CL1 -               RESERVED                             00045000
000008                             1584 MSVWKTTR DS    F -                 FIRST LTTR                           00046000
00000C                             1585 MSVWKQ   DS    CL28 -              QMPA SAVE                            00047000
000028                             1586          DS    CL148 -             RESERVED                    @AM00292 00047100
0000BC                             1587 MSVWKEND DS    0X -                END OF ENTRY                         00048000
0000BC                             1588 MSVWKSZ  DS    0XL(MSVWKEND-MSVWKMAP) SIZE OF ENTRY                     00049000
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1590 *********************************************************************** 00051000
                                   1591 *              QUEUE MANAGER PARAMETER AREA                           * 00052000
                                   1592 *********************************************************************** 00053000
                                   1593          IEFQMNGR                                                       00054000
000000                             1594+IOPARAMS DSECT
000000                             1595+QMNAM    DS    CL8 JOB NAME
000000                             1596+QMCAN    EQU   QMNAM ECB ADDR IN SELCTD JOB Q
000004                             1597+QMPEB    EQU   QMNAM+4 LINKORS ECB ADDR
000008                             1598+QMPOP    DS    CL1 FUNCTION CODE PARAMETER
                                   1599+*                   FUNCTION CODE VALUES
000001                             1600+QMASGN   EQU   1 ASSIGN
000000                             1601+QMASGS   EQU   0 ASSIGN/START
000002                             1602+QMWRTA   EQU   2 WRITE AND ASSIGN
000003                             1603+QMWRTE   EQU   3 WRITE
000004                             1604+QMREAD   EQU   4 READ
000005                             1605+QMWREN   EQU   5 WRITE/END
000006                             1606+QMDTOP   EQU   6 DEQUEUE TOP
000007                             1607+QMDTYP   EQU   7 DEQUEUE BY TYPE
000008                             1608+QMDELE   EQU   8 DELETE
                                   1609+*
000009                             1610+QMFLT    DS    CL2 1ST LGCL TRK ASGND TO JOB
00000B                             1611+QMTST    DS    CL1 NO. RCRDS USED IN LOG. TRK
00000C                             1612+QMTLN    DS    CL2 REL. ADDR OF NEXT LOG. TRK
00000E                             1613+QMNOT    DS    CL1 NO. LOG TRKS ASGND TO JOB
00000F                             1614+QMTPY    DS    CL1 JOB TYPE, 1=NONSETUP,
                                   1615+*                                             2=SETUP,3-38=SYSOUT CLASS
000010                             1616+QMSTA    DS    CL1 JOB STATUS-0=READY,1=CANCL
                                   1617+*                                             2=PRIORITY CHANGE
000011                             1618+QMPRI    DS    CL1 JOB PRIORITY
000012                             1619+QMLNK    DS    CL2 REL. ADDR OF NEXT Q ENTRY
000014                             1620+QMTID    DS    CL2 Q ENTRY IDENTIFICATION
000016                             1621+         DS    CL2
000018                             1622+QMWTQ    DS    CL4 ADDR OF WAIT PARM ENT
00001C                             1623+QMEIA    DS    CL4 ADDR USERS ECB/IOB LC
000020                             1624+QMPCL    DS    CL4 ADDR OF EXTERNAL PARAMETER
000020                             1625+QMPCM    EQU   QMPCL NO. OF RCRDS TO ASSIGN
000020                             1626+QMPNC    EQU   QMPCL NO. OF RCRDS TO READ/WRITE
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1628          REGISTER                                                       00056000
                                   1629+***********************************************************************
                                   1630+*              REGISTER EQUIVALENTS                                   *
                                   1631+***********************************************************************
000000                             1632+R0       EQU   0
000001                             1633+R1       EQU   1
000002                             1634+R2       EQU   2
000003                             1635+R3       EQU   3
000004                             1636+R4       EQU   4
000005                             1637+R5       EQU   5
000006                             1638+R6       EQU   6
000007                             1639+R7       EQU   7
000008                             1640+R8       EQU   8
000009                             1641+R9       EQU   9
00000A                             1642+R10      EQU   10
00000B                             1643+R11      EQU   11
00000C                             1644+R12      EQU   12
00000D                             1645+R13      EQU   13
00000E                             1646+R14      EQU   14
00000F                             1647+R15      EQU   15
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1650          RESQUEUE                                                       00058000
                                   1651+***********************************************************************
                                   1652+*              FORMAT OF EACH RESQUEUE ENTRY                          *
                                   1653+***********************************************************************
000000                             1654+RQSTART  DSECT
000000                             1655+RQNEXT   DS    F -                 POINTER TO NEXT RESQUEUE ENTRY
000004                             1656+RQGRPCHN DS    F -                 JOB CLASS GROUP CHAIN
000008                             1657+RQTMPCHN DS    F -                 JOB CHAINS USED IN MDS AND MAIN
00000C                             1658+RQJDBFDB DS    CL6 -               JDAB FDB
000012                             1659+RQJOBNO  DS    H -                 JOB NUMBER IN BINARY
000014                             1660+RQJOBNAM DS    CL8 -               JOB NAME
00001C                             1661+RQJSTFDB DS    CL6 -               SETUP BUFFER FDB (IF ANY)
000022                             1662+RQLINEST DS    H -                 LINE ESTIMATE
000024                             1663+RQCRDEST DS    H -                 CARD ESTIMATE
000026                             1664+RQMVTSIZ DS    H -                 REGION REQ IN BINARY        @AL00001
000028                             1665+RQVS2SIZ DS    H -                 LSTOR REQ IN BINARY         @AL00001
00002A                             1666+RQRGNSIZ DS    XL5 -               REGION SIZE REQUIRED FOR JOB
                                   1667+*-------------------------------------------------------------*@AA36228
                                   1668+*        REDEFINITION OF RESQUEUE FIELDS USED IN AIDADAP      *@AA36228
                                   1669+*        TO SUPPORT ASP TO JES3 JOB SUBMISSION                *@AA36228
                                   1670+*-------------------------------------------------------------*@AA36228
00002A                             1671+         ORG   RQRGNSIZ @AA36228
00002A 00000000                    1672+RQJESID  DC    XL4'00' JES3 JOB ID OR HEX ZERO     @AA36228
00002E 00                          1673+RQUNUSED DC    X'00' UNUSED                      @AA36228
00002F                             1674+RQISTART DS    X -                 START OF SE ITERATION       @AL00001
000030                             1675+RQIEND   DS    X -                 END OF SE ITERATION         @AL00001
000031                             1676+RQIFLAG  DS    X -                 SE ITERATION FLAG BYTE      @AL00001
000032                             1677+RQJSTAT  DS    X -                 JOB SELECTION STATUS        @AL00001
000033                             1678+RQMPLAST DS    X -                 MP ON LAST SELECT ATTEMPT   @AL00001
000034                             1679+RQMAINS  DS    F -                 MAIN PROCESSOR SELECTION MASK
000038                             1680+RQVFYCNT DS    H -                 SETUP COUNT FIELD
00003A                             1681+RQJCLASS DS    X -                 JOB CLASS
00003B                             1682+RQINDEX  DS    X -                 MAIN SERVICE FUNCTION INDEX
00003C                             1683+RQIORATE DS    X -                 JOB I/O RATE
00003D                             1684+RQMPSEQ  DS    X -                 MAIN PROCESSOR SEQ NUMBER
00003E                             1685+RQGRPSEQ DS    X -                 GROUP SEQUENCE NUMBER
00003F                             1686+RQSESEQ  DS    X -                 SE SEQUENCE NUMBER OF MAIN SERVICE
000040                             1687+RQCPTYP  DS    X -                 TYPE OF CNTRL PGM REQUIRED
000041                             1688+RQJCTPTY DS    X -                 JOB'S JCT PRIORITY
000042                             1689+RQGRPRTY DS    2X -                JOB CLASS GROUP PRIORITY
000043                             1690+         ORG   RQGRPRTY+1 -        RQGRPRTY FOLLOWED BY RQPRTY
000043                             1691+RQPRTY   DS    X -                 JOB PRIORITY
000044                             1692+RQAGER   DS    X -                 JOB AGING RATE COUNTER
000045                             1693+RQSTPNO  DS    X -                 CURRENT JOB STEP NUMBER ON MAIN
000046                             1694+RQNXTMDS DS    X -                 NEXT JOB STEP NUMBER REQUIRING SETUP
000047                             1695+RQDJCFLG DS    X -                 DJC FLAG BYTE
000048                             1696+RQFLG1   DS    X -                 RESQUEUE FLAGS 1
000049                             1697+RQFLG2   DS    X -                 RESQUEUE FLAGS 2
00004A                             1698+RQFLG3   DS    X -                 RESQUEUE FLAGS 3
00004C                             1699+RQOPRCNT DS    H -                 NO. OF OPER ATTEMPTS TO MOUNT JOB
00004E                             1700+RQFLG4   DS    X -                 FLAG
000050                             1701+RQEND    DS    0F -                END OF RESQUEUE ENTRY
000050                             1702+RQFSIZE  DS    0XL(RQEND-RQSTART) -SIZE OF ENTRY = L'RQFSIZE
                                   1703+*------------------------------------------------------------- @AL00001
                                   1704+*              DEFINITION OF RQJSTAT                           @AL00001
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1705+*------------------------------------------------------------- @AL00001
000000                             1706+RQJXZERO EQU   X'00' -             NO SELECT ATTEMPED THIS JOB @AL00001
000001                             1707+RQJXSTOR EQU   X'01' -             INSUFFICIENT STORAGE        @AL00001
000002                             1708+RQJXTLDL EQU   X'02' -             LIMIT OR DEPTH EXCEEDED     @AL00001
000003                             1709+RQJXIORT EQU   X'03' -             I/O RATE INAPPROPRIATE      @AL00001
000004                             1710+RQJXMAIN EQU   X'04' -             NO MATCH ON RQMAINS         @AL00001
000005                             1711+RQJXCHSE EQU   X'05' -             CHOICE INAPPROPRIATE        @AL00001
000006                             1712+RQJXCPGM EQU   X'06' -             NO MATCH ON CNTL PGM TYPE   @AL00001
000007                             1713+RQJXCLAS EQU   X'07' -             THIS JOBS CLASS NOT ENABLED @AL00001
000008                             1714+RQJXLSPN EQU   X'08' -             LSTOR UPDATE PENDING        @AL00001
000009                             1715+RQJXMCMN EQU   X'09' -             CLASS CANT RUN ON THIS MAIN @AL00001
00000A                             1716+RQJXPMIX EQU   X'0A' -             MIX INAPPROPRIATE (1)       @AL00001
00000B                             1717+RQJXBFIT EQU   X'0B' -             FIT INAPPROPRIATE (1)       @AL00001
00000C                             1718+RQJXNFIT EQU   X'0C' -             FIT INAPPROPRIATE (2)       @AL00001
00000D                             1719+RQJXNBST EQU   X'0D' -             MIX INAPPROPRIATE (2)       @AL00001
00000E                             1720+RQJXHOLD EQU   X'0E' -             JOB IN HOLD OR ACTIVE       @AL00001
00000F                             1721+RQJXINDX EQU   X'0F' -             RQINDEX NOT IN SELECT       @AL00001
000010                             1722+RQJXDJCH EQU   X'10' -             JOB IS IN DJC HOLD          @AL00001
000011                             1723+RQJXMPRT EQU   X'11' -             MINPART NOT AVAILABLE       @AL00001
                                   1724+*              X'80' THRU X'B9'    RESERVED FOR MDS            @AA24753
000080                             1725+RQJXMDEP EQU   X'80' -             MDS/MAIN AT SETUP DEPTH     @AA24753
000081                             1726+RQJXMDHO EQU   X'81' -             JOB IN HOLD STATUS          @AA24753
000082                             1727+RQJXMDRS EQU   X'82' -             RESTART JOB PASS ONLY       @AA24753
000083                             1728+RQJXMDNW EQU   X'83' -             NEW JOB PASS ONLY           @AA24753
000084                             1729+RQJXMDMN EQU   X'84' -             INELIGIBLE MAIN PROCESSOR   @AA24753
000085                             1730+RQJXMDCP EQU   X'85' -             CONTROL PGM NOT AVAILABLE   @AA24753
000086                             1731+RQJXMDRG EQU   X'86' -             REGION SIZE NOT AVAILABLE   @AA24753
000087                             1732+RQJXMDGM EQU   X'87' -             GMS GRP/CLS NOT AVAILABLE   @AA24753
000088                             1733+RQJXMDSP EQU   X'88' -             PSPAN/JSPAN EXCEEDED        @AA24753
000089                             1734+RQJXMDVO EQU   X'89' -             VOLUME NOT AVAILABLE        @AA24753
00008A                             1735+RQJXMDDV EQU   X'8A' -             DEVICE NOT AVAILABLE        @AA24753
0000FF                             1736+RQJXONMN EQU   X'FF' -             JOB TO MSIN FOR EXEC INIT   @AL00001
                                   1737+*------------------------------------------------------------- @AL00001
                                   1738+*              DEFINITION OF RQDJCFLG                                 *
                                   1739+*---------------------------------------------------------------------*
000080                             1740+RQDJCJOB EQU   X'80' -             THIS IS A DJC JOB
000040                             1741+RQDJCABN EQU   X'40' -             JOB ABNORMALLY COMPLETED
000020                             1742+RQDJCHLD EQU   X'20' -             JOB IS IN DJC NET HOLD
000010                             1743+RQDJCOPH EQU   X'10' -             JOB IS IN DJC OPERATOR HOLD
000008                             1744+RQDJCNS  EQU   X'08' -             NON-STANDARD DJC JOB        @AM00077
000004                             1745+RQDJCSC  EQU   X'04' -             DJC JOB CANCELED VIA SETUP  @AM00101
000002                             1746+RQDJCSUP EQU   X'02' -             DJC UPDATE AT STEP TRANSITION
000001                             1747+RQDSPLY  EQU   X'01' -             DISPLAY PROCESSING THIS RQ ENTRY
                                   1748+*---------------------------------------------------------------------*
                                   1749+*              DEFINITION OF RQFLG1                                   *
                                   1750+*---------------------------------------------------------------------*
000080                             1751+RQHOLD   EQU   X'80' -             JOB IN HOLD FOR RQINDEX FUNCTION
000040                             1752+RQACTIVE EQU   X'40' -             THIS JOB HAS ACTIVE FUNCTION
000020                             1753+RQXBKHLD EQU   X'20' -             CALLABLE BREAKDOWN HOLD
000010                             1754+RQMPIPL  EQU   X'10' -             JOB WAS ACTIVE WHEN MAIN WAS IPLED
000008                             1755+RQSTPCHK EQU   X'08' -             TAKE JDS CHKPNT AT STEP CHANGE
000004                             1756+RQPREAL  EQU   X'04' -             THIS IS A PRE-ALLOC RQ
000002                             1757+RQNEWJOB EQU   X'02' -             NEW JOB IN RQSELECT STATUS
000001                             1758+RQJBHLD  EQU   X'01' -             RQHOLD SET BY OPERATOR HOLD @AM00315
                                   1759+*---------------------------------------------------------------------*
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1760+*              DEFINITION OF RQFLG2(SETUP FLAGS)                      *
                                   1761+*---------------------------------------------------------------------*
000080                             1762+RQDSPCN  EQU   X'80' -             CANCEL BY DSP WITH PRINT
000040                             1763+RQBYPASS EQU   X'40' -             JOB ALREADY TRIED
000020                             1764+RQSETUP  EQU   X'20' -             THIS JOB REQUIRES SETUP
000010                             1765+RQMDINCR EQU   X'10' -             JOB PRIORITY HAS BEEN INCREMENTED
000008                             1766+RQSTRTQ  EQU   X'08' -             START ENQUEUED
000004                             1767+RQNEW    EQU   X'04' -             JOB HAS JUST BEEN CHANGED TO MOUNT
000002                             1768+RQOLD    EQU   X'02' -             JOB HAS ALREADY BEEN TRIED
000001                             1769+RQPUTHLD EQU   X'01' -             PUT JOB IN HOLD (SET BY JSS)
                                   1770+*---------------------------------------------------------------------*
                                   1771+*              DEFINITION OF RQFLG3                                   *
                                   1772+*---------------------------------------------------------------------*
000080                             1773+RQHOT    EQU   X'80' -             HOT JOB FLAG
000040                             1774+RQMSVD   EQU   X'40' -             MSVDATA TO BE BUILT BY MSVIPL
000020                             1775+RQSTPMDS EQU   X'20' -             JOB REQUIRES STEP SETUP
000010                             1776+RQSTPREL EQU   X'10' -             REL EXEC RESOURCES DURING STEP SETUP
000008                             1777+RQSCRREF EQU   X'08' -             SCRATCH REFERENCE IN JST
000004                             1778+RQMDSRST EQU   X'04' -             JOB REQUIRES MDS RESTART
000002                             1779+RQCGUAVL EQU   X'02' -             JOB CLASS OR GROUP NOW UNAVAILABLE
000001                             1780+RQMDINCL EQU   X'01' -             JOB INCLUDED IN MDS JOB COUNTS
                                   1781+*---------------------------------------------------------------------*
                                   1782+*              DEFINITION OF RQFLG4                                   *
                                   1783+*---------------------------------------------------------------------*
000080                             1784+RQSUDAO  EQU   X'80' -             JOB SETUP REQUIRES DA ONLY
000040                             1785+RQIPLACT EQU   X'40' -             JOB ACTIVE ON MAIN DURING IPL
000020                             1786+RQNOBKDN EQU   X'20' -             JOB REQUIRES SPEC BKDN PROCESSING
000010                             1787+RQVSREQ  EQU   X'10' -             JOB IS V=R                  @AL00001
000008                             1788+RQPRONLY EQU   X'08' -             JOB USES O/S PRS VOL(S) ONLY@AM00376
000004                             1789+RQSFR    EQU   X'04' R SPECIFIED ON JES SYS FAIL @AA36228
000002                             1790+RQAID    EQU   X'02' RQ FOR JOB SENT TO JES SYS  @AA36228
000001                             1791+RQDJCNCL EQU   X'01' RQ REMOVED VIA DJCNCL       @AA30301
                                   1792+*---------------------------------------------------------------------*
                                   1793+*              DEFINITION OF RQIFLAG                                  *
                                   1794+*---------------------------------------------------------------------*
000080                             1795+RQISTYPE EQU   X'80' -             RQISTART IS DSP NO. IF 1 ELSE SE NO.
000040                             1796+RQIETYPE EQU   X'40' -             RQIEND IS DSP NO. IF 1 ELSE SE NO.
000020                             1797+RQIHOLD  EQU   X'20' -             PUT JOB IN HOLD AFTER ITERATION
                                   1798+* THE COUNT IN THE TWO LOW ORDER BITS ARE USED AS AN OFFSET   *@AA36228
                                   1799+* INTO THE FAILURE OPTION FIELD OF THE JCT.                   *@AA36228
000003                             1800+RQJESTRM EQU   X'03' ASPAID TERMINATED/RESTARTED @AA36228
000002                             1801+RQJESJF  EQU   X'02' JOB NOT COMP. ON JES        @AA36228
000001                             1802+RQJESJN  EQU   X'01' JOB RAN TO COMPLETION ON JES@AA36228
                                   1803+*---------------------------------------------------------------------*
                                   1804+*              DEFINITION OF RQINDEX                                  *
                                   1805+*---------------------------------------------------------------------*
000004                             1806+RQALLOC  EQU   4 -                 AWAITING START SETUP TO ALLOCATE
000008                             1807+RQVOLUAV EQU   RQALLOC+4 -         AWAITING UNAVAILABLE VOLUME(S)
00000C                             1808+RQMOUNT  EQU   RQVOLUAV+4 -        AWAITING UNITS
000010                             1809+RQVERIFY EQU   RQMOUNT+4 -         AWAITING OPERATOR ACTION
000014                             1810+RQSELECT EQU   RQVERIFY+4 -        AWAITING SELECTION ON MAIN
000018                             1811+RQONMAIN EQU   RQSELECT+4 -        SCHEDULED ON MAIN
00001C                             1812+RQWTR    EQU   RQONMAIN+4 -        AWAITING WTR OUTPUT
000020                             1813+RQTERM   EQU   RQWTR+4 -           AWAITING MAIN TERMINATION
000024                             1814+RQBRKDWN EQU   RQTERM+4 -          AWAITING BREAKDOWN
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000028                             1815+RQDONE   EQU   RQBRKDWN+4 -        MAIN AND MDS PROCESSING COMPLETE
00002C                             1816+RQJES    EQU   RQDONE+4 JOB SENT TO JES SYSTEM      @AA36228
                                   1817+*---------------------------------------------------------------------*
                                   1818+*              DEFINITION OF RQIORATE                                 *
                                   1819+*---------------------------------------------------------------------*
000001                             1820+RQLOWIO  EQU   X'01' -             LOW I/O RATE
000002                             1821+RQHIGHIO EQU   X'02' -             HIGH I/O RATE
000004                             1822+RQMEDIO  EQU   X'04' -             MEDIUM I/O RATE
                                   1823+*---------------------------------------------------------------------*
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1826          RIOENTRY                                                       00060000
                                   1827+***********************************************************************
                                   1828+*              READER/INTERPRETER ACCESS METHOD TABLE                 *
                                   1829+***********************************************************************


                                   1831+***********************************************************************
                                   1832+*              TABLE HEADER                                           *
                                   1833+***********************************************************************
000000                             1834+RIOTSTRT DSECT
000000                             1835+RIOTCHN  DS    F -                 CHAIN TO NXT TABLE
000004                             1836+RIOTHIE  DS    H -                 HIGH TABLE ENTRY NUMBER
000006                             1837+RIOTLWE  DS    H -                 LOW TABLE ENTRY NUMBER
000008                             1838+RIOTNPR  DS    F -                 # OF ENTRIES/SINGLE RECORD
00000C                             1839+RIOTTSIZ DS    H -                 SIZE OF TABLE
00000E                             1840+RIOTNPR1 DS    H -                 # OF ENTRIES/SINGLE RECORD + 1
000010                             1841+RIOTEND  DS    0X -                END OF HDR
000010                             1842+RIOTSIZ  DS    0XL(RIOTEND-RIOTSTRT) SIZE OF HEADER


                                   1844+***********************************************************************
                                   1845+*              FDB ENTRY                                              *
                                   1846+***********************************************************************
000000                             1847+RIOESTRT DSECT
000000                             1848+RIOEFDB  DS    XL6 -               SINGLE RECORD FDB
000006                             1849+         DS    CL2 -               RESERVED
000008                             1850+RIOEFEND DS    0X -                END OF FDB ENTRY
000008                             1851+RIOEFSIZ DS    0XL(RIOEFEND-RIOESTRT) SIZE OF FDB ENTRY


                                   1853+***********************************************************************
                                   1854+*              RECORD ENTRY                                           *
                                   1855+***********************************************************************
000000                             1856+RIOENTRY DSECT
000000                             1857+RIOEJTYP DS    XL1 -               JOB TYPE
000001                             1858+RIOELTH  DS    XL1 -               LTH QUEUE #
000080                             1859+RIOEASGN EQU   X'80' -             ASSIGN/START REQUIRED
000002                             1860+         DS    XL2 -               RESERVED
000004                             1861+RIOEATTR DS    F -               ACTUAL TTR ASSIGNED
000008                             1862+RIOEREND DS    0X -                END OF RECORD ENTRY
000008                             1863+RIOERSIZ DS    0XL(RIOEREND-RIOENTRY) SIZE OF RECORD ENTRY
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1866          RIREC                                                          00062000
                                   1867+***********************************************************************
                                   1868+*              ASP R/I ACCESS METHOD RECORD FORMAT                    *
                                   1869+***********************************************************************
000000                             1870+RIREC    DSECT
000000                             1871+RIRFLAG  DS    CL1 -               RECORD TYPE FLAG
000001                             1872+RIRATTR  DS    CL3 -               ACTUAL/LOGICAL TTR
000004                             1873+RIRCB    DS    CL176 -             R/I CONTROL BLOCK
0000B4                             1874+RIREND   DS    0X -                END OF ENTRY
0000B4                             1875+RIRSIZE  DS    0XL(RIREND-RIREC) - SIZE OF ENTRY
                                   1876+*---------------------------------------------------------------------*
                                   1877+*              RIRFLAG DEFINITION                                     *
                                   1878+*---------------------------------------------------------------------*
000001                             1879+RIRQMPA  EQU   X'01' -             QMPA RECORD
000002                             1880+RIRENQ   EQU   X'02' -             JCT (ENQUEUE) RECORD
000004                             1881+RIRNREC  EQU   X'04' -             NORMAL CONTROL BLOCK RECORD
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1884 *********************************************************************** 00064000
                                   1885 *              SYSTEM CLASS DIRECTORY                                 * 00065000
                                   1886 *********************************************************************** 00066000
000000                             1887 EASCD    DSECT                                                          00067000
000000                             1888 SCDCLAS  DS    CL1 -               SYSOUT CLASS                         00068000
000001                             1889 SCDNN1   DS    CL2 -               NN OF FIRST LTH OF ENTRY             00069000
000003                             1890 SCDNOR   DS    CL1 -               NUMBER OF RECORDS IN LAST LTH        00070000
000004                             1891 SCDNOL   DS    CL1 -               NUMBER OF LTHS OF ENTRY              00071000
000005                             1892 SCDNN2   DS    CL2 -               NN OF LAST LTH                       00072000
000007                             1893 SCDEEND  DS    0X -                END OF ENTRY                         00073000
000007                             1894 SCDESIZ  DS    0XL(SCDEEND-EASCD) - SIZE OF ENTRY                       00074000
000007                             1895          DS    CL165 -             ZEROES/ENTRIES                       00075000
0000AC                             1896 SCDNTTR  DS    CL4 -               TTR OF NEXT SCD                      00076000
0000B0                             1897 SCDREND  DS    0X -                END OF RECORD                        00077000
0000B0                             1898 SCDRSIZ  DS    0XL(SCDREND-EASCD) - SIZE OF RECORD                      00078000
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             1900 EASCT    DSECT                                                          00080000
                                   1901          IEFASCTB                                                       00081000
                                   1902+* L.01  R/I LEVEL NUMBER FOR RELEASE 19
                                   1903+***********************************************************************
                                   1904+*                                                                     *
                                   1905+*                     STEP   CONTROL   TABLE                          *
                                   1906+*                                                                     *
                                   1907+***********************************************************************
000000                             1908+         DS    0D
000000                             1909+INSMSCT  EQU   * STEP CONTROL TABLE
000000                             1910+SCTDISKA DS    CL3 DISK ADDRESS OF SCT
000003                             1911+SCTTBLID DS    CL1 TABLE ID OF SCT=4
000002                             1912+SCTID    EQU   2
000004                             1913+SCTSSTAT DS    CL1 INTERNAL STEP STATUS
                                   1914+*EAOUTABL EQU  128 ROLLOUTABLE BIT                                 AACA
                                   1915+*EACAUSER EQU  64  CAN CAUSE ROLLOUT                               AACA
000020                             1916+SCTNORST EQU   32 BIT 2 - NO RESTART TO BE DONE                    AACA
000010                             1917+SCTNOCKP EQU   16 BIT 3 - NO CHECKPOINT TO BE TAKEN                AACA
000008                             1918+SCTDORST EQU   8 BIT 4 - DO RESTART IF NECESSARY                   AACA
                                   1919+*SCTKEY0 EQU   4 BIT 5 - FOR GRAPHICS - ALTER PROTECT KEY          AACA
                                   1920+*SCTGRPH EQU   2 BIT 6 - FOR GRAPHICS - ABEND EXIT                 AACA
000001                             1921+INCMSSTS EQU   1 BIT-7/STEP FAILED
000005                             1922+SCTSTIME DS    CL3 MAXIMUM STEP RUNNING TIME
000008                             1923+SCTSEXEC DS    CL2 STEP STATUS CODE PASSED TO THE
                                   1924+*                                      INITIATOR AT TERMINATE
00000A                             1925+SCTLALOC DS    CL2 LENGTH OF ALLOCATION WORK AREA
                                   1926+*                                  ALSO NUMBR OF GOOD DD CARDS
00000C                             1927+SCTFSIOT DS    CL4 DISK ADDRESS OF FIRST SIOT
000010                             1928+SCTAALOC DS    CL4 DISK ADDRESS OF ALLOCATION
                                   1929+*                                      WORK AREA
000014                             1930+SCTANSCT DS    CL4 DISK ADDRESS OF NEXT SCT
000018                             1931+SCTAFSMB DS    CL4 DISK ADDRESS OF FIRST SMB
                                   1932+*                                 FOR THIS STEP+1(IF NO NEXT       AADA
                                   1933+*        STEP,POINTS TO A JOB QUEUE RECORD WHICH WAS ASSIGNED      AADA
                                   1934+*        BUT NOT WRITTEN INTO. THIS FIELD WILL BE ZEROED BY        AADA
                                   1935+*        JOB TERMINATION.)                                         AADA
00001C                             1936+SCTADSMB DS    CL4 DISK ADDRESS OF DUMMY SMB
                                   1937+*                                      ALLOCATED
000020                             1938+SCTAFACT DS    CL4 DISK ADDRESS OF FIRST ACT
                                   1939+*                                      FOR THIS STEP
000024                             1940+SCTVOLTB DS    CL4 DISK ADDRESS OF VOLUME
                                   1941+*                                      TABLE
000028                             1942+SCTADSTB DS    CL4 DISK ADDRESS OF DSNAME
                                   1943+*                                      TABLE FOR THIS STEP
00002C                             1944+SCTSCLPC DS    CL8 NAME OF STEP THAT CALLED
                                   1945+*                                      PROCEDURE
000034                             1946+SCTSNAME DS    CL8 STEPNAME
00003C                             1947+SCTRPACT DS    CL2 RELATIVE POINTER TO STEP ENTRY
                                   1948+*                                      IN ACT
00003E                             1949+SCTVOLTL DS    CL2 LENGTH OF VOLUME TABLE
000040                             1950+SCTNSIOT DS    CL1 NUMBER OF SIOTS IN THIS STEP
000041                             1951+SCTNSMSG DS    CL1 NUMBER OF SET UP MESSAGES
000042                             1952+SCTNJFCB DS    CL1 NUMBER OF JFCBS TO ALLOCATE
                                   1953+*
000043                             1954+SCTSTYPE DS    CL1 STEP TYPE
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000080                             1955+SCTGOSTP EQU   128 BIT 0- =1 IF PGM=*.(GO)STEP(FETCH DCB)        19874
                                   1956+*        EQU   64   BIT 1- =1 IF SYSIN IS SPECIFIED (DD *)        19874
                                   1957+*        EQU   32   BIT 2- =1 IF THE PARAMETER ASSOCIATED WITH A  19874
                                   1958+*                    SYSOUT KEYWORD SPECIFIES THE MESSAGE CLASS   19874
000010                             1959+SCTSJFHK EQU   16 BIT 3 - JFCB H/K COMPLETE
                                   1960+*
                                   1961+*              BITS 4, 5, AND 6 ARE USED BY THE INITIATOR, AS FOLLOWS--
                                   1962+*                  000 - USE ACTION CODE
                                   1963+*                  001 - GO TO AVR MODULE
                                   1964+*                  010 - GO TO SPACE REQUEST
                                   1965+*                  011 - GO TO EXTERNAL ACTION SETUP
                                   1966+*                  100 - GO TO EXTERNAL ACTION VERIFY
                                   1967+*                  101 - NULL
                                   1968+*                  110 - NULL
                                   1969+*              111-NULL
                                   1970+*                   BIT 7 - RESERVED                              19874
                                   1971+*
000044                             1972+SCTXBTTR DS    F TTR OF SCT EXTENSION BLOCK CONTAINING PARM        AACA
000048                             1973+SCTMSADR DS    F ADDRESS OF REGION IN MAIN STORAGE - X'00 IN 1ST BYAACA
00004C                             1974+SCTLCSAD DS    F ADDRESS OF REGION IN LCS - X'01' IN 1ST BYTE      AACA
                                   1975+* * * * THE FOLLOWING FOUR BYTES ARE                               I254
                                   1976+*              USED BY  IEFSD41Q(MVT AND MFT-2),                   I254
                                   1977+*                       IEFSD42Q(MVT AND MFT-2),                   I254
                                   1978+*                       IEFW41SD(PCP),                             I254
                                   1979+*                       IEFW42SD(PCP),                             I254
                                   1980+*                       IEFYNIMP(ALL SYSTEMS)                      I254
000050                             1981+SCTCRWTP DS    CL3 TTR OF FIRST WTP SMB FOR AUTOMATIC C/R USE     I254
000053                             1982+SCTCRCNT DS    CL1 COUNT OF WTP SMB'S FOR STEP                    I254
000054                             1983+         DS    CL1 RESERVED                       20033
000055                             1984+SCTTEXT  DS    CL3 TTR OF TIOT EXTENSION TABLE    20033
000058                             1985+SCTMSSZE DS    H SIZE OF REGION IN MAIN STORAGE                    AACA
00005A                             1986+SCTLCSSZ DS    H SIZE OF REGION IN LCS                             AACA
00005C                             1987+         DS    CL2 RESERVED                                       I241
00005E                             1988+SCTSDP   DS    CL2 STEP DISPATCHING PRIORITY- SET IN IEFVEA,      I241
                                   1989+*                        USED BY THE INITIATOR                     I241
000020                             1990+SCTFSTEP EQU   32 BIT 2-FIST STEP TO BE EXECUTED                 I241
000060                             1991+SCTSMF   DS    F STEP SYSIN COUNT FOR SMF                        SMF
000064                             1992+SCTGOTTR DS    CL4 TTR OF PGM=*. SIOT              AACA
000068                             1993+SCTTIOT  DS    CL4 THIS FIELD+1 IS A 3-BYTE TTRAACA
                                   1994+*                                      OF THE STEP TIOT            AACA
000068                             1995+SCTSTAT2 EQU   SCTTIOT EXTENSION OF STEP STATUS INDICATORS        AACA
000068                             1996+SCTBCT   EQU   SCTTIOT STEP STATUS INDICATORS           19874
                                   1997+*                   BIT 0 - RESERVED                              19874
                                   1998+*  THE FOLLOWING BIT INDICATES THAT DIRECT SYSOUT FACILITIES ARE    O99
                                   1999+*              REQUIRED FOR JOB SEPARATOR/SYSTEM MESSAGES           O99
000040                             2000+SCTDSOCL EQU   64 BIT 1 - SET BY IEFDSOAL IN ALLOCATION IF        O99
                                   2001+*                        IEFDSOWR IS TO BE CALLED IN IEFSD512 OR    O99
                                   2002+*                        IEFSD162 UPON RETURN FROM ALLOCATION,      O99
                                   2003+*                        THEN RESET. USED BY IEFYTVMS IN TERMINATIO O99
                                   2004+*                        TO SCAN DSOCB'S ONCE.MVT AND MFT-II ONLY   O99
000020                             2005+SCTMCVOL EQU   32 ALLOCATION FOR CVOL                            AACA
                                   2006+*                  BIT 3 - RESERVED                               19874
000008                             2007+SCTSTPLB EQU   8 BIT 4 - STEPLIB PRESENT                         AACA
000004                             2008+SCTSPSYS EQU   4 BIT 5  - =1 IF SPOOLED SYSIN FOR STEP (EXPRESS  O102
                                   2009+*                 CANCEL)SET BYIEFVDA,TESTED BY IEESD575           O102
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2010+*                  MVT AND MFT ONLY)                               O102
000002                             2011+SCTJBEND EQU   2 JOB ENDED BIT                                  AACA
000001                             2012+SCTBCTU  EQU   1 BIAS COUNT TABLE                               AACA
                                   2013+*                      INDICATES WHETHER OR NOT GDG BIAS COUNT    19874
                                   2014+*                      TABLE NEEDS TO BE UPDATED AT STEP TERM.    19874
00006C                             2015+SCTPGMNM DS    CL8 PROGRAM NAME
000074                             2016+SCTLDSTB DS    CL2 LENGTH OF DSNAME TABLE FOR
                                   2017+*                                      THIS STEP
000076                             2018+SCTSDPCD DS    CL2 FIRST STEP DEPENDENCY CODE
000078                             2019+SCTSDPOP DS    CL1 FIRST STEP DEPENDENCY OPERATOR
000079                             2020+SCTSDPSA DS    CL3 DISK ADDRESS OF DEPENDENCY SCT
00007C                             2021+         DS    CL36 SPACE FOR 6 MORE STEP DEPENDENCIES         HW16
0000A0                             2022+SCTABCND DS    CL1 8TH CONDITION CODE SLOT - IF EVEN OR       HW16
                                   2023+*   ONLY WERE SPECIFIED, INFORMATION HERE. OTHERWISE, 8TH COND     HW16
                                   2024+*   CODE OR ZERO                                                   HW16
000010                             2025+SCTABCAN EQU   16 STEP CANCEL-PRIOR ABEND NO EVEN/ONLY       HW16
000008                             2026+SCTONLYC EQU   8 STEP CANCEL-ONLY WITH NO PRIOR ABEND(S)    HW16
000004                             2027+SCTABEND EQU   4 THIS STEP ABENDED                           HW16
000002                             2028+SCTEVEN  EQU   2 COND=EVEN WAS SPECIFIED         HW16
000001                             2029+SCTONLY  EQU   1 COND=ONLY WAS SPECIFIED         HW16
0000A1                             2030+         DS    CL5 TO COMPLETE CONDITION CODE SPACE           HW16
                                   2031+*******************************************************************AACA
                                   2032+*                                                                  AACA
                                   2033+*        IN ORDER TO IMPLEMENT MVT IT HAS BEEN NECESSARY TO ADD    AACA
                                   2034+*        THE FOLLOWING FIELDS TO THE SCT. TO AVOID CAUSING         AACA
                                   2035+*        ERRORS IN THE CASE OF THE REASSEMBLING OF ALREADY         AACA
                                   2036+*        EXISTING MODULES WHICH REFERENCE THESE FIELDS,THEY        AACA
                                   2037+*        ARE GENERATED HERE ONLY AS COMMENTS. NOTE THAT IN         AACA
                                   2038+*        ACTUALITY THESE FIELDS OCCUPY THE 1ST 10 BYTES OF THE     AACA
                                   2039+*        DS OF 14 BYTES IMMEDIATELY FOLLOWING THESE COMMENTS.      AACA
                                   2040+*        UNTIL THESE FIELDS ARE ACTUALLY INCORPORATED INTO THIS    AACA
                                   2041+*        MACRO,THEY MUST BE REFERENCED BY DISPLACEMENT (GIVEN      AACA
                                   2042+*        BELOW), PREFERABLY THROUGH THE USE OF EQUATES WITH        AACA
                                   2043+*        THE SYMBOLS DESIGNATED BELOW.                             AACA
                                   2044+*                                                                  AACA
                                   2045+*******************************************************************AACA
                                   2046+*                                                                  AACA
                                   2047+*SCTEQREG DS   CL2                 REGION PARAMETER (BINARY)       AACA
                                   2048+*                                  DISPLACEMENT 166 (DECIMAL)      AACA
                                   2049+*SCTEQTTR DS   CL3                 TTR OF 1ST DATA SET BLOCK       AACA
                                   2050+*                                  (DSB) IN MESSAGE CLASS          AACA
                                   2051+*                                  DISPLACEMENT 168 (DECIMAL)      AACA
                                   2052+*SCTEQCMC DS   CL1                 BINARY COUNT OF MESSAGE CLASS   AACA
                                   2053+*                                  DSB'S FOR CURRENT STEP          AACA
                                   2054+*                                  DISPLACEMENT 171 (DECIMAL)      AACA
                                   2055+*SCTSTEND DS   CL1                 BIT 0=STEP STARTED              AACA
                                   2056+*                                  BIT 1=STEP ENDED                AACA
                                   2057+*                                  DISPLACEMENT 172 (DECIMAL)      AACA
                                   2058+*SCTAISMB DS   CL3                 TTR OF LAST ALLOCATE SMB        AACA
                                   2059+*                                  FOR THIS STEP OR TTR OF         AACA
                                   2060+*                                  LAST INTERPRETER SMB FOR        AACA
                                   2061+*                                  THIS STEP                       AACA
                                   2062+*                                  DISPLACEMENT 173 (DECIMAL)      AACA
                                   2063+*                                                                  AACA
                                   2064+*******************************************************************AACA
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000A6                             2065+SCTLNGTH EQU   *-INSMSCT LENGTH OF SCT                 AACA
0000A8                             2066+INDMVOLT DS    45F
00015C                             2067+INDMDSNT DS    45F
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2069 *********************************************************************** 00083000
                                   2070 *              SYSTEM INPUT/OUTPUT TABLE                              * 00084000
                                   2071 *********************************************************************** 00085000
000000                             2072 EASIOT   DSECT                                                          00086000
                                   2073          IEFASIOT                                                       00087000
                                   2074+* L.01  R/I LEVEL NUMBER FOR RELEASE 19
                                   2075+* 024420-024440                                                   21774
                                   2076+* 669600                                                          M0237
                                   2077+* 022600-023400,669600-676600                                     M0231
                                   2078+*                  STEP I-O TABLE
                                   2079+*
000000                             2080+         DS    0D
000000                             2081+INDMSIOT EQU   * STEP I-O TABLE
000000                             2082+SIOTDSKA DS    CL3 DISK ADDRESS OF SIOT
000003                             2083+SIOTTYPE DS    CL1 TABLE ID OF SIOT =8
000003                             2084+SIOTID   EQU   3
000006                             2085+IVOLID   EQU   6
000007                             2086+DSNID    EQU   7
000004                             2087+SCTDDNAM DS    CL8 THE DDNAME FROM THE DD CARD
00000C                             2088+SCTCSADD DS    CL8 INTERNAL NUMBERS OF THE
                                   2089+*                                           DD STATEMENTS FOR WHICH
                                   2090+*                                           CHANNEL SEPARATION OR
                                   2091+*                                           AFFINITY IS SPECIFIED IN
                                   2092+*                                           THIS DD STATEMENT, OR
                                   2093+*                                           WHICH THEMSELVES SPECIFY
                                   2094+*                                           SEPARATION FROM THIS DD
                                   2095+*                                           STATEMENT
000014                             2096+SCTUSADD DS    CL8 INTERNAL NUMBERS OF THE
                                   2097+*                                           DD STATEMENTS FOR WHICH
                                   2098+*                                           UNIT SEPARATION OR AFFINITY
                                   2099+*                                           IS SPECIFIED IN THIS DD
                                   2100+*                                           STATEMENT, OR WHICH
                                   2101+*                                           THEMSELVES SPECIFY
                                   2102+*                                           SEPARATION FROM THIS DD
                                   2103+*                                           STATEMENT
00001C                             2104+SCTPSIOT DS    CL4 D.A. OF NEXT SIOT IN CHAIN
000020                             2105+SCTPJFCB DS    CL4 DISK ADDRESS OF JFCB
000024                             2106+SIOTVRSB DS    CL4 DISK ADDRESS OF SIOT FOR VOLREF
                                   2107+*                                      OR SUBALLOCATE
000028                             2108+SIOTSTDP DS    CL4 DISK ADDRESS OF SIOT SYSTEM
                                   2109+*                                      OUTPUT/DEPENDENCY BLOCK
00002C                             2110+         DS    CL3 RESERVED* * * * * * * * * * *                20001
00002F                             2111+SIOTTSTC DS    CL1 INDICATORS FOR TIME SHARING AND TCAM          20001
000080                             2112+SIOTDYNA EQU   128 BIT 0 - TSO DYNAMIC ALLOCATION- DD DYNAM      20001
                                   2113+*                        PARAMETER - SET BY IEFVDA                20001
000040                             2114+SIOTTERM EQU   64 BIT 1 - TSO TERMINAL BIT - DD TERM=TS PARAM.  20001
                                   2115+*                        SET BY IEFVDA                            20001
000020                             2116+SIOTLMC  EQU   32 BIT 2 - FOR TSO USE.=1 IF LAST MESSAGE CLASS  20001
                                   2117+*                        SYSOUT SIOT. SET BY IEFVMLS1. CHECKED BY 20001
                                   2118+*                        IEFWCIMP,IEFYTVMS.                       20001
                                   2119+*                   BITS 3-6  NOT USED * * * * * * * *            20001
000001                             2120+SIOTQNAM EQU   1 BIT 7 - FOR TCAM USE =1 IF QNAME= ON DD STATE.20002
                                   2121+*                        SET BY IEFVDA,TESTED BY ALLOCATION       20002
000030                             2122+SCTSPOOL DS    CL1 INTERNAL NO. OF POOL DD
000031                             2123+SCTVOLCT DS    CL1 THE NUMBER OF VOLUMES IN
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2124+*                                           THE VOLT THAT BELONG TO
                                   2125+*                                           THIS DATA SET OR THE LENGTH
                                   2126+*                                           OF THE DSNAME FOR A VOLUME
                                   2127+*                                           REFERENCE
000032                             2128+SCTVLPTR DS    CL2 RELATIVE POINTER (FROM
                                   2129+*                                           BEGINNING OF VOLT OR DSNT)
                                   2130+*                                           TO THE VOLUME SERIALS OR
                                   2131+*                                           THE VOLUME REFERENCE DSNAME
                                   2132+*                                           FOR THIS DD STATEMENT
000034                             2133+SCTDDINO DS    CL1 THE INTERNAL NUMBER OF THE
                                   2134+*                                           DD STATEMENT
000035                             2135+SCTNMBUT DS    CL1 THE NUMBER OF UNITS FOR
                                   2136+*                                           THE DATA SET
000036                             2137+SIOTVLCT DS    CL1 VALUE OF SPECIFIED VOL COUNT( = JFCBVLCT)
000037                             2138+SCTSDISP DS    CL1 SCHEDULER DISPOSITION OF
                                   2139+*                                           THE DATA SET (AT END OF
                                   2140+*                                           STEP OR JOB)
                                   2141+*                                      BIT 0 - RESERVED           19874
                                   2142+*RETAIN  EQU   64                            BIT 1 - RETAIN
                                   2143+*PRIVATE EQU   32                            BIT 2 - PRIVATE VOLUME
                                   2144+*PASS    EQU   16                            BIT 3 - PASS THE DATA SET
                                   2145+*KEEP    EQU   8                             BIT 4 - KEEP THE DATA SET
                                   2146+*DELETE  EQU   4                             BIT 5 - DELETE DATA SET
                                   2147+*CATLG   EQU   2                             BIT 6 - CATALOG THE DATA
                                   2148+*                                                    SET
                                   2149+*UNCATLG EQU   1                             BIT 7 - UNCATALOG THE
                                   2150+*                                                    DATA SET
000038                             2151+SCTSBYT1 DS    CL1 INDICATOR BYTE NUMBER 1
                                   2152+*
000080                             2153+SCTDUMMY EQU   128 BIT 0 - DUMMY DATA SET
000040                             2154+SCTSYSIN EQU   64 BIT 1 - SYSIN DATA SET
000020                             2155+SCTSPLTP EQU   32 BIT 2 - SPLIT (PRIMARY)
000010                             2156+SCTSPLTS EQU   16 BIT 3 - SPLIT (SECONDARY)
000008                             2157+SCTSBALC EQU   8 BIT 4 - SUBALLOCATE
                                   2158+*  PARALLEL MOUNT INDICATOR - BIT 5
000002                             2159+SCTUNAFF EQU   2 BIT 6 - UNIT AFFINITY
000001                             2160+SCTUNSEP EQU   1 BIT 7 - UNIT SEPARATION
                                   2161+*
000039                             2162+SCTSBYT2 DS    CL1 INDICATOR BYTE NUMBER 2
                                   2163+*
000080                             2164+SCTCHAFF EQU   128 BIT 0 - CHANNEL AFFINITY
000040                             2165+SCTCHSEP EQU   64 BIT 1 - CHANNEL SEPARATION
000020                             2166+SCTVOLAF EQU   32 BIT 2 - VOLUME AFFINITY
000010                             2167+SCTJOBLB EQU   16 BIT 3 - JOBLIB DD STMNT
000008                             2168+SCTUNLBD EQU   8 BIT 4 - UNLABELED
000004                             2169+SCTLABEL EQU   4 BIT 5 - NONSTANDARD LABEL
000002                             2170+SCTDEFER EQU   2 BIT 6 - DEFER MOUNTING
000001                             2171+SCTRECVD EQU   1 BIT 7 - RECEIVED DATA SET
                                   2172+*
00003A                             2173+SCTSBYT3 DS    CL1 INDICATOR BYTE NUMBER 3
                                   2174+*
000080                             2175+SCTDSNRF EQU   128 BIT 0 - VOLUME REFERENCE
                                   2176+*                                                    DSNAME PRESENT
000040                             2177+SCTSYSNE EQU   64 BIT 1 - SYSIN EXPECTED
                                   2178+*                                            (PROCEDURES ONLY)    19874
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                             2179+SCTSNVYV EQU   32 BIT 2 - AWT VOLUME BLOCK INDICATOR       19874
                                   2180+*        EQU   16        BIT 3 - VOLUME REFERENCE IN STEP         19874
                                   2181+*SYSOUT  EQU   8        BIT 4 SYSOUT SPECIFIED                     AADA
                                   2182+*NEW     EQU   4                             BIT 5 - NEW DATA SET
                                   2183+*MOD     EQU   2                             BIT 6 - MODIFIED DATA SET
                                   2184+*OLD     EQU   1                             BIT 7 - OLD DATA SET
                                   2185+*
00003B                             2186+SCTSBYT4 DS    CL1 INDICATOR BYTE 4
                                   2187+*        EQU   128  BIT 0 - SET BY R/I TO INDICATE GDG SINGLE     19874
000040                             2188+SIOTGDGA EQU   64 BIT 1 SIOT WAS CREATED IN RESPONSE AACA
                                   2189+*                                 TO A GDG- ALL REQUEST            AACA
                                   2190+*        EQU   32   BIT 2 - NO PDQ PROCESSING                     19874
000010                             2191+SIOTASCI EQU   16 BIT 3 - USASCII TAPE LABEL.                   19200
                                   2192+*                           SET BY IEFVDA,TESTED BY IEFWA000      19200
                                   2193+*        EQU   8    BIT 4 - STEP PROCESSED                        19874
                                   2194+*        EQU   4    BIT 5 - INTRA-STEP VOLUME AFFINITY            19874
                                   2195+*        EQU   2    BIT 6 - DATA SET IS IN PDQ                    19874
                                   2196+*        EQU   1    BIT 7 - 1 = OLD OR MODIFIED DATA SET          19874
                                   2197+*                           0 = NEW DATA SET                      19874
00003C                             2198+SCTUTYPE DS    CL8 UNIT TYPE
                                   2199+*                                 OF THE DATA SET-THE LOW         I220
                                   2200+*                                 ORDER 2 BYTES CONTAIN UCB       I220
                                   2201+*                                 ADDRESS FOR SPECIFIC UNIT       I220
                                   2202+*                                 REQUEST(INSERTED BY             I220
                                   2203+*                                 IEFVMLS2,IEFXCSSS AND           I220
                                   2204+*                                 USED BY IEFWA000)               I220
                                   2205+***********************************************************************
000044                             2206+SCTOUTNM DS    CL8 THE SYSTEM OUTPUT PROGRAM
                                   2207+*                                           NAME
00004C                             2208+SCTOUTNO DS    CL4 THE FORM NUMBER OF THE CARD
                                   2209+*                                           OR PAPER STOCK TO BE USED
                                   2210+*                                           WHEN THIS DATA SET IS
                                   2211+*                                           PUNCHED OR PRINTED
000050                             2212+SCTOUTPN DS    CL1 THE SYSTEM OUTPUT CLASS
                                   2213+*                                           NAME
000051                             2214+SCTDDDUP DS    CL1 DUPLICATE NUMBER OF THE
                                   2215+*                                           DD STATEMENT
000052                             2216+SIOTDPCD DS    CL2 NOT USED AT PRESENT
000054                             2217+SIOTDPOP DS    CL3 (CREATED AT STEP TERMINATION TIME)  M0231
                                   2218+*                             FOR THIS DATA SET - APPLICABLE ONLY M0231
                                   2219+*                             IF SYSOUT BIT IS SET                M0231
000057                             2220+SIOTDSCT DS    CL1 RESERVED                            M0231
000058                             2221+         DS    CL4 TTR OF NEXT DSB - ALSO APPLI-
                                   2222+*                                      CABLE ONLY IF SYSOUT BIT IS
                                   2223+*                                      SET
00005C                             2224+SIOTALTD DS    CL1 CONDITIONAL DISPOSITION
                                   2225+*
                                   2226+*                                 BITS 0-2 RESERVED                AACA
                                   2227+*SIOTNPRV EQU  16         BIT 3 THIS BIT IS SET AT RESTART TIME TO AACA
                                   2228+*                           INDICATE THAT THIS DD IS NON-PRIVATE   AACA
                                   2229+*                      EVEN THOUGH IT MAY NOW APPEAR TO BE PRIVATE AACA
                                   2230+*KEEP    EQU   8                       BIT 4 - KEEP DATA SET IF ABEND
                                   2231+*DELETE  EQU   4                       BIT 5 - DELETE DATA SET IF ABEND
                                   2232+*CATLG   EQU   2                       BIT 6 - CATALOG DATA SET IF
                                   2233+*                                             ABNORNAL TERMINATION
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2234+*UNCATLG EQU   1                       BIT 7 - UNCATALOG DATA SET IF
                                   2235+*                                              ABNORMAL TERMINATION
00005D                             2236+SIOTPDQ  DS    CL3 TTR OF SIOT BEING PASSED        AACA
000060                             2237+SIOTOUTC DS    CL1 RESERVED                                    21774
000061                             2238+SIOTOUTR DS    CL2 RESERVED                                    21774
000063                             2239+SIOTOPUC DS    CL4 RESERVED                                    21774
000067                             2240+         DS    CL19 RESERVED *  *  *  *  *  *  *  *           O101
00007A                             2241+SCTANAME DS    CL8 &NAME FROM DSNAME=,DEDIC.   AACA
                                   2242+*                                       WORK FILES                 AACA
000082                             2243+SIOTDCBR DS    CL44 DCB REFERENCE NAME
0000AE                             2244+         DS    CL6 TO MAKE 180(SIOT)
0000AE                             2245+SIOTLGTH EQU   174 LENGTH OF SIOT
0000B4                             2246+         DS    CL4 HDR(INTERPRETER ONLY)
000004                             2247+JFCBID   EQU   4
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2249          TVTABLE                                                        00089000
                                   2250+***********************************************************************
                                   2251+*              TRANSFER VECTOR TABLE                                  *
                                   2252+***********************************************************************
000000                             2253+         USING TVTABLE,R12
000000                             2254+TVTABLE  DSECT

                                   2256+*   **   **     **         LOCATED           **
                                   2257+* SYMBOL OP    ENTRY         IN            COMMENT
                                   2258+*   **   **     **         MODULE            **

000000 E3E5E3C2                    2260+         DC    CL4'TVTB' -          IDENTIFIER
                                   2261+*---------------------------------------------------------------------*
                                   2262+*              ROUTINE ENTRY POINTS                                   *
                                   2263+*---------------------------------------------------------------------*
000004 00000000                    2264+ABACKR   DC    V(BACKR0) - IODATA   BACKSPACE RECORD
000008 00000000                    2265+ABLOCK   DC    V(BLOCK) -  IODATA   I/O BLOCK
00000C 00000000                    2266+ABLOCKS  DC    V(BLOCKS) - IODATA   I/O BLOCK SPLIT BUFFER
000010 00000000                    2267+ACLOSE   DC    V(CLOSE) -  IONUC    I/O CLOSE
000014 00000000                    2268+ACONANAL DC    A(0) SET BY INITCNS  REMOTE CONSOLE ANALYSIS
000018 00000000                    2269+ACONSRMT DC    A(0) SET BY INITCNS  REMOTE CONSOLE PROCESSING
00001C 00000000                    2270+ACONTIME DC    V(CONSTIME) CONSOLES CONSOLE TIMER APPENDAGE
000020 00000000                    2271+ACTLTRAP DC    V(ASPTTRAP) ASPCONTL ATIME APPENDAGE
000024 00000000                    2272+ADEBLOCK DC    V(DEB) -    IODATA   I/O DEBLOCK
000028 00000000                    2273+ADEBS    DC    V(DEBLOCKS) IODATA   I/O DEBLOCKS
00002C 00000000                    2274+ADELETE  DC    V(DELETEX) -ALDADEL  ASP DELETE
000030 00000000                    2275+ADEQ     DC    V(RESMGMT) -JOBCONTL RESOURCE MANAGEMENT
000030                             2276+AENQ     EQU   ADEQ -      JOBCONTL RESOURCE MANAGEMENT
000034 00000000                    2277+AFDADD   DC    V(FDADD) -  IORTNS   ADD ENTRY TO FILE DIRECTORY
000038 00000000                    2278+AFDDELET DC    V(FDDELET) -IORTNS   DELETE ENTRY FROM FILE DIRECTORY
00003C 00000000                    2279+AFDFIND  DC    V(FDFIND) - IORTNS   SCAN FILE DIRECTORY
000040 00000000                    2280+AGETBUF  DC    V(GETBUF) - IONUC    ASP GETBUF
000044 00000000                    2281+AGETMAIN DC    V(GETMAINX) GETPUTMN ASP GETMAIN
000048 00000000                    2282+AHALT    DC    V(ASPHALT) -ASPCONTL PRIV INST ROUTINE          @AL00001
00004C 00000000                    2283+AINITERM DC    V(INITERM) -ABENDMON ASP TERMINATION
000050 00000000                    2284+AIOAPEND DC    V(IOAPPEND) IONUC    ASPIO IOS APPENDAGES
000054 00000000                    2285+ALOAD    DC    V(LOADX) -  ALDADEL  ASP LOAD
000058 00000000                    2286+ALOCATE  DC    V(LOCATE) - IODATA   I/O LOCATE
00005C 00000000                    2287+ALOCATES DC    V(LOCATES) -IODATA   I/O LOCATE, SPLIT BUFFER
000060 00000000                    2288+ANOTE    DC    V(NOTE) -   IONDATA  I/O NOTE
000064 00000000                    2289+AOPEN    DC    V(OPEN) -   IONUC    I/O OPEN
000068 00000000                    2290+AOPEND   DC    V(OPEND) -  IONDATA  I/O OPEN AT END
00006C 00000000                    2291+APOINT   DC    V(POINT) -  IONDATA  I/O POINT
000070 00000000                    2292+APURGE   DC    V(PURGEA) - IONDATA  I/O PURGE
000074 00000000                    2293+APUTBUF  DC    V(PUTBUF) - IONUC    ASP PUTBUF
000078 00000000                    2294+APUTMAIN DC    V(PUTMAINX) GETPUTMN ASP FREEMAIN
00007C 00000000                    2295+AREAD    DC    V(READ) -   IONUC    SINGLE BUFFER READ
000080 00000000                    2296+ARELEASE DC    V(RELEASE) -IONUC    I/O RELEASE
000084 00000000                    2297+ASAVE    DC    V(ASAVEYES) ASAVERTN SAVE=YES PROCESSING
000088 00000000                    2298+ASAVENO  DC    V(ASAVENOR) ASAVERTN SAVE=NO PROCESSING
00008C 00000000                    2299+ASETIOB  DC    V(SETIOB) - IORTNS   SET IOB ROUTINE
000090 00000000                    2300+ASIO     DC    V(ASPSIO) - ASPCONTL PRIV INST ROUTINE          @AL00001
000094 00000000                    2301+ASPABND0 DC    V(ASPABEND) ASPABEND ASP ABEND
000098 00000000                    2302+ASPCKPNT DC    V(ASPCKPT) -ASPCKPT  ASP CHECKPOINT
00009C 00000000                    2303+ASPCLOSE DC    V(ASPCLOSX) ASPOPENX ASP CLOSE
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000A0 00000000                    2304+ASPEOV   DC    V(ASPEXCPX) ASPOPENX ASP EOV EXCP
0000A4 00000000                    2305+ASPEXCP  DC    V(ASPEXCPX) ASPOPENX ASP EXCP
0000A8 00000000                    2306+ASPHIO   DC    V(AHIO) -            ASP HALT I/O
0000AC                             2307+ASPKEY   DS    0X -        TVTABLE  ASP PROTECT KEY (FROM TCB)
0000AC 00000000                    2308+ASPOPEN  DC    V(ASPOPENX) ASPOPENX ASP OPEN
0000B0 00000396                    2309+ASPSNAP  DC    A(ARETURN) -TVTABLE  CHANGED BY ASPSNAP WHEN CALLED
0000B4 00000000                    2310+ATCH     DC    V(ASPTCH) - ASPCONTL PRIV INST ROUTINE          @AL00001
000030                             2311+ATEST    EQU   ADEQ -      JOBCONTL RESOURCE MANAGEMENT
0000B8 00000000                    2312+ATIME    DC    V(ASPTIMEX) ASPCONTL ASP TIMER
0000BC 00000000                    2313+ATIO     DC    V(ASPTIO) - ASPCONTL PRIV INST ROUTINE          @AL00001
0000C0 00000000                    2314+ATRACK   DC    V(TRACK) -  TRACK    TRACK ALLOCATOR
0000C4 50                          2315+AWAIT    DC    X'50' -     TVTABLE  AWAIT CONDITION CODE
0000C5 000000                      2316+         DC    VL3(AWAITX) ASPCONTL MFM AWAIT PROCESSING
0000C8 51                          2317+AWAITL   DC    X'51' -     TVTABLE  AWAIT-LIST CONDITION CODE
0000C9 000000                      2318+         DC    VL3(AWAITX) ASPCONTL MFM AWAIT PROCESSING
0000CC 80                          2319+AWAITOFF DC    X'80' -     TVTABLE  AWAITOFF CONDITION CODE
0000CD 000000                      2320+         DC    VL3(AWAITX) ASPCONTL MFM AWAIT PROCESSING
0000D0 81                          2321+AWAITOFL DC    X'81' -     TVTABLE  AWAITOFF-LIST CONDITION CODE
0000D1 000000                      2322+         DC    VL3(AWAITX) ASPCONTL MFM AWAIT PROCESSING
0000D4 00000000                    2323+AWEOF    DC    V(WEOF) -   IONDATA  I/O WRITE END OF FILE
0000D8 00000000                    2324+AWRITE   DC    V(WRITE) -  IONUC    SINGLE BUFFER WRITE
0000DC 00000000                    2325+CONCNVRT DC    V(CONCLASS) CONSQMGR CONVERT CONS CLASS TO DISP-MASK
0000E0 00000000                    2326+DCTRAPS  DC    A(0) -      DC       DC TRAP
0000E4 00000000                    2327+DEQMSG   DC    V(DEQMSGX) -ADEQUEUE CONSOLE BUFFER DEQUEUE
0000E8 00000000                    2328+DEVSCAN  DC    V(DSPSCN) - GETPUTUN IN/OUT PARAMETER SCAN
0000EC 00000000                    2329+FAILDSP  DC    V(FAILDSPX) ABENDMON FAIL A DSP
0000F0 00000000                    2330+FINDJNUM DC    V(JOBNTEST) JOBNUM   TEST JOB NUMBER
0000F4 00000000                    2331+GETUNIT  DC    V(GETUNI) - GETPUTUN GETUNIT
0000F8 00000000                    2332+INTERCOM DC    V(INTCOM) - INTCOM   INTERCOM
0000FC 00000000                    2333+JNADD    DC    V(JNADDX) - NETCONTL JNCB ADD
000100 00000000                    2334+JNCBHLD  DC    V(JNCBHLDX) NETCONTL JNCB SPECIFIC HOLD
000104 00000000                    2335+JNCBREL  DC    V(JNCBRELX) NETCONTL JNCB SPECIFIC RELEASE
000108 00000000                    2336+JNDEL    DC    V(JNDELX) - NETCONTL JNCB DELETE
00010C 00000000                    2337+JNGET    DC    V(JNGETX) - NETCONTL JNCB GET
000110 00000000                    2338+JOBNRTN  DC    V(JOBNMBER) JOBNUM   JOB NUMBER
000114 00000000                    2339+JSSDADR  DC    A(0) -               JSSD ADDR IF RESIDENT OR LOADED
000118 00000000                    2340+JSSRETRN DC    V(JSSRTN) - JSSDR    JSS RETURN FROM DSP
00011C 00000000                    2341+JSSRMVRQ DC    V(JDR0020) -JSSDRVR  RQ ENDFUN CREATION
000120 00000000                    2342+LCLINT   DC    V(LCLINTX) -ASPCONTL LOCAL ASP INTERRUPT
000124 00000000                    2343+LOGIN    DC    V(LOGINX) - LOGINOUT CONSOLE LOGIN
000128 00000000                    2344+LOGOUT   DC    V(LOGOUTX) -LOGINOUT CONSOLE LOGOUT
00012C 00000000                    2345+MESSAGE  DC    V(QMESSAGE) CONSQMGR CONSOLE MESSAGE
000130 00000000                    2346+MOVEDATA DC    V(MOVE) -   IODATA   MOVE DATA
000134 00000000                    2347+NCBTAADD DC    V(NCBTAADX) NETCONTL NCB ADD
000138 00000000                    2348+NCBTAFND DC    V(NCBTAFDX) NETCONTL NCB FIND
00013C 00000000                    2349+NCBTAGET DC    V(NCBTAGTX) NETCONTL NCB GET
000140 00000000                    2350+NCBTAPUT DC    V(NCBTAPTX) NETCONTL NCB WRITE
000144 00000000                    2351+NCBTAREL DC    V(NCBTARLX) NETCONTL NCB RELEASE
000148 00000000                    2352+PURCHAIN DC    V(PURGCHN) -IORTNS   PURGE SINGLE RECORD FILE CHAINS
00014C 00000000                    2353+PUTUNIT  DC    V(PUTUNI) - GETPUTUN PUTUNIT
000150 00000000                    2354+RCLOSE   DC    A(0) SET BY RJPMAIN  REMOTE CLOSE
000154 00000000                    2355+RECEIVE  DC    V(MSGRECVX) ASPCONTL RECEIVE
000158 00000000                    2356+RELSAVE  DC    V(RELSAVER) ASAVERTN SAVEAREA RELEASE
00015C 00000000                    2357+RICLOSE  DC    A(0) SET BY RICONTL  (RICBAM) CLOSE R/I TABLES
000160 00000000                    2358+RICRE    DC    A(0) SET BY RICONTL  (RICBAM) LTTR CREATE
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000164 00000000                    2359+RIGET    DC    A(0) SET BY RICONTL  (RICBAM) READ OS CONTROL BLOCK
000168 00000000                    2360+RIPUT    DC    A(0) SET BY RICONTL  (RICBAM) WRITE OS CONTROL BLOCK
00016C 00000000                    2361+RITPT    DC    A(0) SET BY RICONTL  (RICBAM) LLTR ENTRY POINT
000170 00000000                    2362+ROPEN    DC    A(0) -      RJPMAIN  REMOTE OPEN
000174 00000000                    2363+ROUTE    DC    V(MSGROUTX) ASPCONTL MESSAGE ROUTER
000178 00000000                    2364+RQTAADD  DC    V(RQTAADDX) JOBCONTL RESQUEUE TABLE ADD
00017C 00000000                    2365+RQTADEL  DC    V(RQTADELX) JOBCONTL RESQUEUE TABLE DELETE
000180 00000000                    2366+RQTAPUT  DC    V(RQTAPUTX) JOBCONTL RESQUEUE TABLE PUT
000184 00000000                    2367+RREAD    DC    A(0) SET BY RJPMAIN  REMOTE READ
000188 00000000                    2368+RSVSAVE  DC    V(RSVSAVER) ASAVERTN SAVEAREA RESERVE
00018C 00000000                    2369+RWRITE   DC    A(0) SET BY RJPMAIN  REMOTE WRITE
000190 00000000                    2370+SEND     DC    V(MSGSENDX) ASPCONTL MAIN SEND
000194 00000000                    2371+TAADD    DC    V(TAADDX) - JOBCONTL JOB CONTROL TABLE ADD
000198 00000000                    2372+TACMPR   DC    V(TACMPRX) -JOBCONTL JOB CONTROL TABLE COMPRESS
00019C 00000000                    2373+TADEL    DC    V(TADELX) - JOBCONTL JOB CONTROL TABLE DELETE
0001A0 00000000                    2374+TAFIND   DC    V(TAFINDX) -JOBCONTL JOB CONTROL TABLE FIND
0001A4 00000000                    2375+TAGET    DC    V(TAGETX) - JOBCONTL JOB CONTROL TABLE GET
0001A8 00000000                    2376+TAPUT    DC    V(TAPUTX) - JOBCONTL JOB CONTROL TABLE PUT
0001AC 00000000                    2377+TARESET  DC    V(TARESETX) JOBCONTL TABLE RESET
0001B0 00000396                    2378+TRACE    DC    A(ARETURN) -TVTABLE  CHANGED BY INISH WHEN TRACE ELECTED
0001B4 00000000                    2379+TRACODE  DC    V(TRACERTN) IORTNS   ASPIO TRACE
0001B8 00000000                    2380+TVTMATTN DC    V(ASPNEXT) -ASPCONTL MAIN CTC ATTN HANDLER - 4  @AL00001
0001BC 00000000                    2381+VDISABLE DC    V(APSW5) -  ASPCONTL ADDR OF LPSW               @AL00001
0001C0 00000000                    2382+VENABLE  DC    V(APSW4) -  ASPCONTL ADDR OF LPSW               @AL00001
0001C4 00000000                    2383+VEXTFLIH DC    V(APSW2) -  ASPCONTL ADDR OF LPSW               @AL00001
0001C8 00000000                    2384+VIOFLIH  DC    V(APSW3) -  ASPCONTL ADDR OF LPSW               @AL00001
0001CC 00000000                    2385+VIOLATE  DC    V(VIOLATEX) ASPCONTL VIOLATE
0001D0 00000000                    2386+VSVCOLD  DC    V(APSW1) -  ASPCONTL ADDR OF LPSW               @AL00001
0001D4 00000000                    2387+VRESV    DC    V(APSW6) -  ASPCONTL ADDR OF LPSW               @AL00001
0001D8 00000000                    2388+WRTCHAIN DC    V(WRTCHN) - IORTNS   WRITE CHAIN OF SINGLE-RECORD FILES
0001DC 00000000                    2389+ZEROCORE DC    V(ZEROCRE) -IORTNS   CLEAR CORE TO ZEROS
0001E0 00000396                    2390+RJPSNAP  DC    A(ARETURN) -TVTABLE CHANGED BY RJPSNAPS         @AM00194
0001E4 00000000                    2391+ALOADOS  DC    A(0) ADCON OF LOADOS SUBTASK TCB @AA32981
0001E8 00000000                    2392+ALOADECB DC    F'0' ECB ADDR SUBTASKING         @AA32981
0001EC 00000000                    2393+ALOADPRM DC    F'0' PARM LIST ADDR - SUBTASK    @AA32981
0001F0 00000000                    2394+         DC    F'0' RESERVED FOR ASP            @ASPV320
0001F4 00000000                    2395+         DC    F'0' RESERVED FOR ASP            @ASPV320
0001F8 00000000                    2396+         DC    F'0' RESERVED FOR ASP            @ASPV320
0001FC 00000000                    2397+         DC    F'0' RESERVED FOR ASP            @ASPV320
                                   2398+*---------------------------------------------------------------------*
                                   2399+*              SYSTEM TABLE POINTERS                                  *
                                   2400+*---------------------------------------------------------------------*
000200 00000000                    2401+ACST     DC    A(0) SET BY INITCNS  CONSOLE STATUS TABLE
000204 00000000                    2402+ADLTABLE DC    A(0) SET BY INITGEN  DEADLINE TABLE
000208 00000000                    2403+AJCTFDBS DC    V(JCTFDBTB) JOBCONTL JCT FDB TABLE
00020C 00000000                    2404+AJDTOP   DC    A(0) SET BY JOBCONTL FIRST ENTRY IN AJDB QUEUE
000210 00000000                    2405+AJDBTM   DC    A(0) SET BY JOBCONTL LAST ENTRY IN AJDB QUEUE
000214 00000000                    2406+ALTNTBL  DC    F'0' -               ASSIGNMENT TABLE
000218 00000000                    2407+ANJPTAB  DC    F'0' -               NJP TABLE
00021C 00000000                    2408+DSPDIC   DC    V(DSPDICT) -RESPARAM DSP DICTIONARY
000220 00000000                    2409+DSPACDS  DC    V(ACDS) -   RESPARAM LOC OF DSP DICT ENTRY FOR ACDS
000224 00000000                    2410+DSPISDRV DC    V(ISDRVR) - RESPARAM LOC OF DSP DICT ENTRY FOR ISDRVR
000228 00000000                    2411+DSPMAIN  DC    V(MAIN) -   RESPARAM LOC OF DSP DICT ENTRY FOR MAIN
00022C 00000000                    2412+DSPOSRDR DC    V(RICONTL) -RESPARAM LOC OF DSP DICT ENTRY FOR RICONTL
000230 00000000                    2413+DSPRINT  DC    V(PRINT) -  RESPARAM LOC OF DSP DICT ENTRY FOR PRINT
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000234 00000000                    2414+DSPUNCH  DC    V(PUNCH) -  RESPARAM LOC OF DSP DICT ENTRY FOR PUNCH
000238 00000000                    2415+DSPURGE  DC    V(PURGE) -  RESPARAM LOC OF DSP DICT ENTRY FOR PURGE
00023C 00000000                    2416+EFTOP    DC    A(0) -               ENDING FUNCTION CHAIN USED BY JSS
000240 00000000                    2417+FCTTOP   DC    V(FCTTOP) - RESPARAM FIRST FCT ENTRY
000244 00000000                    2418+FCTACTIV DC    F'0' SET BY ASPCONTL ACTIVE FCT
000248 00000000                    2419+IOERRFCT DC    V(IOERRFCT) RESPARAM ASPIO ERROR RECOVERY FCT
00024C 00000000                    2420+JSSFCT   DC    V(JSSFCT) - RESPARAM JSS FCT
000250 00000000                    2421+PAFCTTOP DC    A(0) -               FIRST AVAIL PRE-ALLOC FCT ENTRY
000254 00000000                    2422+PAFCTBTM DC    A(0) -               LAST AVAIL PRE-ALLOC FCT ENTRY
000258 00000000                    2423+RJPLNFCT DC    F'0' SET BY RJPMAIN  LINE MANAGER FCT ADDRESS
00025C 00000000                    2424+JCTTABLE DC    V(TAJTABLE) JOBCONTL JCT SCAN TABLES
000260 00000000                    2425+JNCBTOP  DC    F'0' -               DJC JNCB CHAIN
000264 00000000                    2426+MAINDATA DC    A(0) SET BY INITGEN  MAIN PROCESSOR CONTROL TABLE
000268 00000000                    2427+MCLASS   DC    A(0) SET BY INITMN2  ASP JOB CLASS TABLE
00026C 00000000                    2428+MGROUP   DC    A(0) SET BY INITMN2  ASP JOB CLASS GROUP TABLE
000270 00000000                    2429+MDSPARM  DC    A(0) SET BY INITMDS  MDS CONTROL TABLE
000274 00000000                    2430+PFKTABLE DC    A(0) SET BY INITCNS  PROGRAMMED FUNCTION KEY TABLE
000278 00000000                    2431+PRTAB    DC    A(0) SET BY INITCARD PRINTER RESOURCES TABLE
00027C 00000000                    2432+RESTABLE DC    V(RESTABLX) JOBCONTL RESOURCE MANAGEMENT TABLE
000280                             2433+RIMCLASS DS    0XL1 -               MSGCLASS FROM R/I PARAM LIST
000280 00000000                    2434+RITABLE  DC    A(0) -               R/I TABLE
000284 00000000                    2435+RJPTAB   DC    A(0) -      RJPMAIN  RESIDENT RJP TABLE
000288 00000000                    2436+RQTOP    DC    A(0) -               FIRST RESQUEUE ENTRY
00028C 00000000                    2437+RQBTM    DC    A(0) -               LAST RESQUEUE ENTRY
000290 00000000                    2438+TABCUR   DC    F'0' -               SAVE CELL FOR RQTAGET
000294 00000000                    2439+TABNXT   DC    F'0' -               SAVE CELL FOR RQTAGET
000298 00000000                    2440+PARQTOP  DC    A(0) -               FIRST AVAIL PRE-ALLOC RESQ ENTRY
00029C 00000000                    2441+PARQBTM  DC    A(0) -               LAST AVAIL PRE-ALLOC RESQ ENTRY
0002A0 00000000                    2442+SCTAB    DC    A(0) SET BY INITGEN  SYSOUT CLASS TABLE
0002A4 00000000                    2443+SETNAMES DC    A(0) SET BY INITMDS  SETNAMES TABLE
0002A8 00000000                    2444+SUPUNITS DC    A(0) SET BY INITGEN  SUPPORT UNITS TABLE
0002AC 00000000                    2445+SYSUNITS DC    A(0) SET BY INITGEN  SYSTEM UNITS TABLE
0002B0 0000000000000000            2446+TRACETAB DC    3A(0) SET BY INITIOCD TRACE TABLE WHEN ELECTED
0002BC 00000000                    2447+TVTRTAB  DC    V(TRANSTAB) -        SYSTEM TRANSLATE TABLE
0002C0 00000000                    2448+WTDQUE   DC    A(0) SET BY INQUIRY  WTD CONTROL BLOCK
0002C4 00000000                    2449+         DC    F'0' -               RESERVED
0002C8 00000000                    2450+         DC    F'0' -               RESERVED
0002CC 00000000                    2451+         DC    F'0' -               RESERVED
0002D0 00000000                    2452+         DC    F'0' -               RESERVED
                                   2453+*---------------------------------------------------------------------*
                                   2454+*              DATA AND MISCELLANEOUS ENTRIES                         *
                                   2455+*---------------------------------------------------------------------*
0002D4 00000000                    2456+AASPMAP  DC    V(MAPLIST) -ASPABEND ASPABEND MAP VCONS
0002D8 00000000                    2457+ABENDDCB DC    V(ABNDCB) - ASPABEND ASP ABEND DCB
0002DC 00000000                    2458+ABNSADCB DC    V(ASPSADCB) ASPABEND STANDALONE DUMP DCB
0002E0 00000000                    2459+ACKCYL   DC    V(CKPTCYL) -ASPCKPT  CHECKPOINT CYLINDER
0002E4 00000000                    2460+ACKDCB   DC    V(CKPTDCB) -ASPCKPT  CHECKPOINT DCB
0002E8 00000000                    2461+ACKEXT   DC    V(CKPTEXT) -ASPCKPT  CHECKPOINT RECORD EXTENT
0002EC 00000000                    2462+ACKHED   DC    V(CKPTHEAD) ASPCKPT  CHECKPOINT HEAD
0002F0 00000000                    2463+ACMF     DC    V(CMF) -    CONSOLES CONSOLES ECF
0002F4 00000000                    2464+ACONSBCB DC    A(0) SET BY INITCNS  CONSOLE BUFFER CONTROL BLOCK
0002F8 00000000                    2465+ACONCONS DC    V(CONSCONS) -        DATA CSECT FOR CONSOLE SERVICES
0002FC 00000000                    2466+AERRPOOL DC    V(ERRPOOL) -IONUC    POINTER TO IOB ERROR POOL
000300 00000000                    2467+AINTDATA DC    A(0) SET BY INITIATE POINTER TO INITIALIZATION DATA
000304 00000000                    2468+AIOBPOOL DC    V(IOBPOOL) -IONUC    POINTER TO IOB RETURN POOL
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000308 00000000                    2469+AIOPARMS DC    A(0) SET BY INITIO   I/O PARAMETERS
00030C 00000000                    2470+ALTCNUCM DC    A(0) SET BY INITJOB  ALTERNATE CONSOLE UCM ADDRESS
000310 00000000                    2471+ANEWSFDB DC    A(0) SET BY ASPNEWS  ASPNEWS FDB
000314 00000000                    2472+ASPECB   DC    V(ASPECBX) -ASPCONTL OS ECB FOR ASP TASK
000318 00000000                    2473+ASPTCB   DC    V(ASPTCBX) -ASPCONTL ASP TCB ADCON
00031C 00000000                    2474+ASYSIOSP DC    A(0) SET BY INITCNS  POINTER TO CONSOLE ATTENTION SAVE
000320 00000000                    2475+CANCLINT DC    V(CANCDATA) ABENDMON CANCEL INTERCEPT DATA AREA
000324 00000000                    2476+CDRVFSWK DC    V(CDFSWORK) CALLDRVR LOC OF CALLDRVR FS WORK AREA
000328 00000000                    2477+CKPTAREA DC    V(CKPTDATA) ASPCKPT  CHECKPOINT AREA
00032C 00000000                    2478+DRDCB    DC    V(DRDRDCB) -RESPARAM DCB FOR DR (INPUT SERVICE)
000330 00000000                    2479+MASCNUCM DC    A(0) SET BY INITJOB  MASTER CONSOLE UCM ADDRESS
000334 00000000                    2480+RJPCEQ   DC    A(0) SET BY RJPMAIN  TP CHANNEL END BUFFER QUEUE
000338 00000000                    2481+RJPLDCTQ DC    A(0) SET BY RJPMAIN  ACTIVE LINE QUEUE
00033C 00000000                    2482+RJPLNMGR DC    A(0) SET BY RJPMAIN  RJP LINE MANAGER ENTRY
000340 00000000                    2483+TATPARMS DC    A(0) SET BY INITIO   TAT PARAMETERS
000344 00000000                    2484+TVTTQESV DC    A(0) SET BY ASPCONTL GETMAINED TQE CHAIN
000348 00000000                    2485+DATFREEL DC    F'0' SET BY INITCARD SAVEAREA POOL FREE LIST
00034C 00000000                    2486+HFBQE    DC    F'0' SET BY GETPUTMN LARGEST FBQE IN ASP REGION
000350 00000000                    2487+IPLMASK  DC    F'0' -               MAIN IPL MASK
000354 00000002                    2488+JOBCARDS DC    F'2' -               ASSUMED JOB CARDS
000358 00000001                    2489+JOBLINES DC    F'1' -               ASSUMED JOB LINES
00035C 00000000                    2490+LCTCIOS  DC    F'0' SET BY INITCNS  ADDR IOS CELL FOR CTC UCB  @AL00001
000360 00005000                    2491+MARGCORE DC    F'20480' SET BY INITIOCD MARGINAL ASP CORE
000364 00006000                    2492+MARGTOP  DC    F'24576' SET BY INITIOCD HIGH LIMIT FOR MARGINAL CORE
000368 00003800                    2493+MINCORE  DC    F'14336' SET BY INITIOCD MINIMUM ASP CORE
00036C 0000000000000000            2494+NJPNAME  DC    2F'0' -              NJP LOCAL NAME
000374 00000000                    2495+SIZEBUF  DC    F'0' SET BY INITIO   SIZE OF ASP BUFFER
000376                             2496+BUFSZ    EQU   SIZEBUF+2 -          HALF-WORD SIZE OF ASP BUFFER
000378 00000000                    2497+TFBQE    DC    F'0' SET BY GETPUTMN TOTAL FBQE CORE IN ASP REGION
00037C 00000000                    2498+TRACESAV DC    F'0' SET BY ATRACE   SAVE AREA FOR TRACE
000380 000000000000                2499+GMSFDB   DC    0F'0',XL6'00' -      MAIN SCHEDULING CHECKPOINT FDB
000386 0000                        2500+CTCBUFSZ DC    H'0' -               MAX CTC READ COUNT (BUFSZ-24)
000388 000000000000                2501+MNTRKFDB DC    0F'0',XL6'0' -       FDB ADDRESS OF MAIN TRACK POOL
00038E                             2502+JSSFLAGS DS    0H -                 JSSFLAGS POINTED TO BY JSSECF
00038E 00                          2503+JSSFLG1  DC    X'00' -              JSS FLAG BYTE
00038F 00                          2504+JSSFLG2  DC    X'00' -              JSS FLAG BYTE
000390 000000000000                2505+SMRFDB   DC    0F'0',XL6'00' -      SELECT MODE RECORD FDB
000396 07FE                        2506+ARETURN  BR    R14 -                INSTRUCTION FOR NULL RETURN
000398 50A0 C37C            0037C  2507+ATRACE   ST    R10,TRACESAV -      SAVE BASE REGISTER
00039C 58A0 C1B4            001B4  2508+         L     R10,TRACODE -       ADDRESS OF TRACE ROUTINE
0003A0 07FA                        2509+         BR    R10 -               BRANCH TO TRACE ROUTINE
0003A2 0000000000000000            2510+AFGACCPC DC    XL16'00' SET BY INITCARD/MODACC ACCOUNTING PUNCH
0003B2 F67BC9D540404040            2511+AFGCARR  DC    CL8'6#IN' SET BY INITCARD ASSUMED STD CARRIAGE TAPE
0003BA F1D7C1D9E3404040            2512+AFGFORMS DC    CL8'1PART' SET BY INITCARD ASSUMED STD FORMS
0003C2 D7D5404040404040            2513+AFGTRAIN DC    CL8'PN' SET BY INITCARD ASSUMED STD TRAIN
0003CA C1E2D7C2C1E3C3C8            2514+JOBCLS   DC    CL8'ASPBATCH' -      ASSUMED ASP JOB CLASS
0003D2 C1E2D7C2C1E3C3C8            2515+JOBGRP   DC    CL8'ASPBATCH' -      ASSUMED ASP JOB CLASS GROUP
0003DA 00                          2516+AFGABNUM DC    X'00' SET BY AFSINIT ABEND NUMBER FOR DSP FAILSOFT
0003DB 26                          2517+AFGFLAG1 DC    X'26' -              ASP FLAG BYTE 1
0003DC 00                          2518+AFGFLAG2 DC    X'00' -              ASP FLAG BYTE 2
0003DD 00                          2519+AFGFLAG3 DC    X'00' -              ASP FLAG BYTE 3
0003DE 00                          2520+AFGFLAG4 DC    X'00' -              ASP FLAG BYTE 4
0003DF 80                          2521+AFGFLAG5 DC    X'80' -              ASP FLAG BYTE 5
0003E0 C8                          2522+AFGNOPR  DC    C'H' SET BY INITCARD DEFAULT HOLD IF NO PRINTER DEFINED
0003E1 C8                          2523+AFGNOPU  DC    C'H' SET BY INITCARD DEFAULT HOLD IF NO PUNCH DEFINED
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0003E2 000000                      2524+AFGUSER  DC    3X'00' -             USER MODIFICATION FLAG BYTES
0003E5 C4                          2525+AGETHIAR DC    C'D' SET BY INITCARD ASSUMED AGETMAIN HIERARCHY IS D=DSP
0003E6 00                          2526+ASPOOL   DC    X'00' SET BY INITIOCD ASP SUBPOOL VALUE
0003E7 00                          2527+CINDEPTH DC    X'00' -              CALLDRVR INPUT MSG CURRENT DEPTH
0003E8 00                          2528+CONSUBPL DC    X'00' -              CONSOLE BUFFER SUBPOOL VALUE
0003E9 D9                          2529+JOBFAIL  DC    C'R' -               ASSUMED JOBFAIL OPTION IS RESTART
0003EA 00                          2530+JOBPRTY  DC    X'00' -              ASSUMED JOB PRIORITY
0003EB F0F0F0F3                    2531+JOBSQSIZ DC    C'0003' -            ASSUMED MINIMUM SYSTEM QUEUE SPACE
0003EF 40                          2532+MINIMARG DC    C' ' SET BY GETPUTMN MINIMAL/MARGINAL CORE INDIC IN MSG
0003F0 D5                          2533+STEPCHK  DC    C'N' -               ASSUMED STEP CHKPNT OPTION IS NO
0003F1 FF                          2534+TVTCPTYP DC    X'FF' -              DEFAULT CONTROL PGM TYPE
0003F2 40                          2535+TKMINMRG DC    C' ' TRACKS MIN/MRG CHAR.        @AA27428
0003F3 00                          2536+         DC    X'00' RESERVED FOR IBM            @AA27428
                                   2537+*-------------------------------------------------------------*@AA36228
                                   2538+*       ASPAID ENTRIES                                        *@AA36228
                                   2539+*-------------------------------------------------------------*@AA36228
0003F4 00000000                    2540+AIDATADR DC    F'0' ASPAID DATA CSECT POINTER   @AA36228
0003F8 00000000                    2541+AIDRQTOP DC    F'0' ASPAID RQ CHAIN POINTER     @AA36228
0003FC 00000000                    2542+AIDMPCTB DC    F'0' ASPAID MPC POINTER          @AA36228
                                   2543+*                                                             *@AA36228
000400 00                          2544+AIDFLG1  DC    X'00' @AA36228
000401 00                          2545+AIDFLG2  DC    X'00' @AA36228
                                   2546+*-------------------------------------------------------------*@AA36228
                                   2547+*        DEFINITION OF AIDFLG1-AIDFLG2                        *@AA36228
                                   2548+*-------------------------------------------------------------*@AA36228
000080                             2549+AIDCALL  EQU   X'80' ASPAID HAS BEEN CALLED      @AA36228
000040                             2550+AIDACT   EQU   X'40' ASP-JES JOB SCHED. STARTED  @AA36228
000020                             2551+AIDTERM  EQU   X'20' ASPAID IS TERMINATING       @AA36228
000010                             2552+AIDISACT EQU   X'10' IS HOLD FOR ISDATA          @AA36228
000008                             2553+AIDNOXIT EQU   X'08' NO USER EXIT FOR ISJES      @AA36228
                                   2554+*                                                              @AA36228
000080                             2555+AIDRQADD EQU   X'80' POST BY JSS FOR NEW JOB     @AA36228
000040                             2556+AIDRQTAD EQU   X'40' HOLD ASPAID TERM ON RQTADD  @AA36228
000008                             2557+JSSPAID  EQU   X'08' ASPAID POST REQUIRED BY JSS @AA36228
                                   2558+*                                                             *@AA36228
000402 00                          2559+AIDDSP   DC    X'00' ASPAID DSP NO.              @AA36228
000403 00                          2560+         DC    X'00' @AA36228
000404 00000000
000408 FF04000000000000            2561+AENABLE  DC    0D'0',X'FF04',XL6'00'
000410 0000000000000000            2562+ADISABLE DC    D'0'
000418 0000000000000000            2563+TVTZERO  DC    D'0' -               CONSTANT ZEROS
000420 4040404040404040            2564+TVTBLANK DC    CL8' ' -             CONSTANT BLANKS
000428 00FFFFFF                    2565+TVTADMSK DC    X'00FFFFFF' -        CONSTANT FOR ADDRESS MASK
00042C FFFFFFFF                    2566+TVTRMFF  DC    X'FFFFFFFF' -        CONSTANT 'FF'S
000430 7F7F7F7F                    2567+TVTRM7F  DC    X'7F7F7F7F' -        CONSTANT '7F'S
000434                             2568+TVTEND   DS    0F -                 END OF TVTABLE
                                   2569+*---------------------------------------------------------------------*
                                   2570+*              DEFINITION OF AFGFLAG1                                 *
                                   2571+*---------------------------------------------------------------------*
000080                             2572+AFGTRACE EQU   X'80' -             NO ASPIO TRACE TABLE IF ON
000040                             2573+AFGDISK  EQU   X'40' -             DIRECT ACCESS DEVICE IS A 2314
000020                             2574+AFGDUMP  EQU   X'20' -             DUMP=ASP OPTION
000010                             2575+AFGCARDS EQU   X'10' -             ACCOUNTING CARDS REQUIRED
000008                             2576+AFGDTAIL EQU   X'08' -             DETAIL CARDS REQUIRED
000004                             2577+AFGFDEST EQU   X'04' -             LOCATE PRINT DATA SETS BY DEST=
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000002                             2578+AFGSETUP EQU   X'02' -             LOCATE PRINT DATA SETS BY FORMS MTCH
000001                             2579+AFGLCSIO EQU   X'01' -             HIERARCHY OPTION FOR ASP BUFFER POOL
                                   2580+*---------------------------------------------------------------------*
                                   2581+*              DEFINITION OF AFGFLAG2                                 *
                                   2582+*---------------------------------------------------------------------*
000080                             2583+AFGSEQNO EQU   X'80' -             1=INPUT OBJ DECKS ARE SEQUENCE CK'D
000040                             2584+AFGMLOG  EQU   X'40' -             1=MSGS ON MLOG CONSOLE
000020                             2585+AFGMINQ  EQU   X'20' MIN TRACKS CONDITION        @AA27428
000008                             2586+AFGCDOFF EQU   X'08' -             CANCEL JOB IF MAX CARDS IS EXCEEDED
000004                             2587+AFGCDDMP EQU   X'04' -             DUMP JOB IF MAX CARDS IS EXCEEDED
000002                             2588+AFGLNOFF EQU   X'02' -             CANCEL JOB IF MAX LINES IS EXCEEDED
000001                             2589+AFGLNDMP EQU   X'01' -             DUMP JOB IF MAX LINES IS EXCEEDED
                                   2590+*---------------------------------------------------------------------*
                                   2591+*              DEFINITION OF AFGFLAG3                                 *
                                   2592+*---------------------------------------------------------------------*
000080                             2593+AFG3330  EQU   X'80' -             SET WHEN DASD IS A 3330
000040                             2594+AFGDLPST EQU   X'40' -             DEADLINE POST
000020                             2595+AFGSPIE  EQU   X'20' -             SPIE RETRY IN PROCESS
000010                             2596+AFGSPIER EQU   X'10' -             SPIE RECURSION INDICATOR
000008                             2597+AFGRETRY EQU   X'08' -             SPIE RETRY INDICATOR
000004                             2598+AFGDMPOS EQU   X'04' -             DUMP=OS OPTION
000002                             2599+AFGDMPSA EQU   X'02' -             DUMP=SA OPTION
000001                             2600+AFGGETFG EQU   X'01' -             UNSUCCESSFUL GETMAIN FLAG
                                   2601+*---------------------------------------------------------------------*
                                   2602+*              DEFINITION OF AFGFLAG4                                 *
                                   2603+*---------------------------------------------------------------------*
000080                             2604+AFGMIN   EQU   X'80' -             MINIMUM ASP CORE CONDITION
000040                             2605+AFGMARG  EQU   X'40' -             MARGINAL ASP CORE CONDITION
000020                             2606+AFGMWAIT EQU   X'20' -             MAIN HAS TRIED TO SCHEDULE
000010                             2607+AFGJWAIT EQU   X'10' -             JSS HAS TRIED TO SCHEDULE
000008                             2608+AFGHALFC EQU   X'08' -             TRACK GROUP IS 1/2 CYLINDER
000004                             2609+AFGDLOG  EQU   X'04' -             INDICATES CONSOLE MESSAGES ON DISK
000002                             2610+AFGJSCAN EQU   X'02' -             JSS SCAN OF JCT IN PROGRESS
000001                             2611+AFGFETCH EQU   X'01' -             FETCH PROCESSING IN PROGRESS@AL00260
                                   2612+*---------------------------------------------------------------------*
                                   2613+*              DEFINITION OF AFGFLAG5                                 *
                                   2614+*---------------------------------------------------------------------*
000080                             2615+AFGFALL  EQU   X'80' -             DEFAULT OF ALL FOR FETCH (STANDARDS)
000040                             2616+AFGFSET  EQU   X'40' -             FETCH=SETUP ON STANDARDS CARD
000020                             2617+AFGERREC EQU   X'20' -             ASPIO ERR RCVY IN PROCESS
                                   2618+*---------------------------------------------------------------------*
                                   2619+*              DEFINITION OF JSSFLG1                                  *
                                   2620+*---------------------------------------------------------------------*
000080                             2621+JSSGPOST EQU   X'80' -             GENERAL POST OF JSS
000040                             2622+JSSUAVPR EQU   X'40' -             PRINTER HAS BECOME AVAIL
000020                             2623+JSSUAVPU EQU   X'20' -             PUNCH HAS BECOME AVAIL
000010                             2624+JSSUAVOT EQU   X'10' -             OTHER THAN PR/PU HAS BECOME AVAIL
000008                             2625+JSSTSCHG EQU   X'08' -             JCT TAB STATUS CHANGE HAS OCCURRED
000004                             2626+JSSMCGAV EQU   X'04' -             MAIN CLASS/GRP NOW AVAIL FOR SCHED
000002                             2627+JSSEFADD EQU   X'02' -             ENDING FUNCTION ADDED TO EFCHAIN
                                   2628+*---------------------------------------------------------------------*
                                   2629+*              DEFINITION OF JSSFLG2                                  *
                                   2630+*---------------------------------------------------------------------*
000080                             2631+JSSFSTIM EQU   X'80' -             JSS FIRST PASS AFTER COLD/RESTART
000040                             2632+JSSRES   EQU   X'40' -             JSS RESIDENT, ADDR IN JSSDADR, TVT
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                             2633+JSSNSCOR EQU   X'20' -             JSS ABNORM SCHEDING, MIN/MAR CORE
000010                             2634+JSSRSCAN EQU   X'10' -             JSS SHOULD RESTART JCT SCAN
                                   2635+*---------------------------------------------------------------------*
                                   2636+*        RESOURCE NAMES=(JCT0,JCT1,JCT2,JCT3,JCT4,JCT5,JCT6,JCT7,JCT8,
                                   2637+*              JCT9,JCTA,JCTB,JCTC,JCTD,JCTE,JCTF,RQ,DLQ,JNCBCTL,
                                   2638+*              SYSUNIT,CHKPNT,WTD,FCT,OSLOAD)                  @AA32981
                                   2639+*---------------------------------------------------------------------*
                                   2640+*              RESOURCE NAMES                                         *
                                   2641+*---------------------------------------------------------------------*
000000                             2642+JCT0     EQU   0
000001                             2643+JCT1     EQU   1
000002                             2644+JCT2     EQU   2
000003                             2645+JCT3     EQU   3
000004                             2646+JCT4     EQU   4
000005                             2647+JCT5     EQU   5
000006                             2648+JCT6     EQU   6
000007                             2649+JCT7     EQU   7
000008                             2650+JCT8     EQU   8
000009                             2651+JCT9     EQU   9
00000A                             2652+JCTA     EQU   10
00000B                             2653+JCTB     EQU   11
00000C                             2654+JCTC     EQU   12
00000D                             2655+JCTD     EQU   13
00000E                             2656+JCTE     EQU   14
00000F                             2657+JCTF     EQU   15
000010                             2658+RQ       EQU   16
000011                             2659+DLQ      EQU   17
000012                             2660+JNCBCTL  EQU   18
000013                             2661+SYSUNIT  EQU   19
000014                             2662+CHKPNT   EQU   20
000015                             2663+WTD      EQU   21
000016                             2664+FCT      EQU   22
000017                             2665+OSLOAD   EQU   23
000018                             2666+ARNAMES  EQU   24
MSVQ   MAIN SERVICE CONTROL BLOCK MAPPING                                                                      PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2669 *********************************************************************** 00091000
                                   2670 *              VOLT                                                   * 00092000
                                   2671 *********************************************************************** 00093000
000000                             2672 EAVOLT   DSECT                                                          00094000
000000                             2673          DS    F -                                                      00095000
000004                             2674 VOLTNXT  DS    F -                 NEXT VOLT TTR                        00096000
MSVQ   MSVQMAP INITIALIZATION                                                                                  PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             2676          USING MPCSTART,R9                                              00098000
000000                             2677          USING MSQDATA,R5                                               00099000
000000                             2678          USING MSVDATA,R13                                              00100000
000000                             2679 MSVQMAP  CSECT                                                          00101000
000000 18AF                        2680          LR    R10,R15             LOAD BASE                            00102000
000000                             2681          USING MSVQMAP,R10                                              00103000
000002 4140 00A0            000A0  2682          LA    R4,L'MSQSIZE        SIZE OF WORK AREA                    00104000
000006 4560 A7D6            007D6  2683          BAL   R6,MSVCORE          GET CORE FOR MSQDATA                 00105000
00000A 1850                        2684          LR    R5,R0               SAVE CORE PTR                        00106000
00000C 1830                        2685          LR    R3,R0               SAVE CORE PTR                        00107000
                                   2686          ZEROCORE AREA=(R3),COUNT=(R4) ZERO WORK AREA                   00108000
00000E 58F0 C1DC            001DC  2687+         L     R15,ZEROCORE
000012 05EF                        2688+         BALR  R14,R15
000014 5860 D03C            0003C  2689          L     R6,MSJDSFDB         PTR TO JDS                           00109000
000018 50D0 5054            00054  2690          ST    R13,MSQMSVD         SAVE MSVDATA PTR                     00110000
00001C 18D5                        2691          LR    R13,R5              PTR TO MSQDATA                       00111000
                                   2692          DROP  R5                                                       00112000
000000                             2693          USING MSQDATA,R13                                              00113000
000000                             2694          USING JDSSTART,R6                                              00114000
00001E 1B88                        2695          SR    R8,R8               CLEAR REG                   @AA26721 00114500
000020 4A60 600C            0000C  2696          AH    R6,JDSFIXL          DISPLACE TO FIXED END                00115000
000000                             2697          USING JDSENTRY,R6                                              00116000
000024 D503 6000 C42C 00000 0042C  2698 MSVNJDS  CLC   JDSFDB(4),TVTRMFF   AT END OF JDS?                       00117000
00002A 4780 A068            00068  2699          BC    EQ,MSVTBLD          YES, BUILD RICBAM TABLES             00118000
00002E D507 6028 A9C8 00028 009C8  2700          CLC   JDSDDNAM(8),=CL8'JCBTAB' JCBTAB ENTRY?                   00119000
000034 4780 A04A            0004A  2701          BC    EQ,MSVJCBT          YES, SET UP FOR I/O                  00120000
000038 D507 6028 A9D0 00028 009D0  2702          CLC   JDSDDNAM(8),=CL8'JCBIN' JCBIN ENTRY?                     00121000
00003E 4780 A056            00056  2703          BC    EQ,MSVJCBI          YES, SAVE PTR TO FDB                 00122000
000042 4A60 601A            0001A  2704 MSVNJDSE AH    R6,JDSVARL          PTR TO NXT ENTRY                     00123000
000046 47F0 A024            00024  2705          B     MSVNJDS             TRY THIS JDS ENTRY                   00124000
00004A                             2706 MSVJCBT  DS    0H                                                       00125000
00004A 1288                        2707          LTR   R8,R8               ALREADY, HAVE FDB ADDR.?    @AA26721 00125400
00004C 4770 A042            00042  2708          BC    NZERO,MSVNJDSE      YES, GO CK FUTHER           @AA26721 00125700
000050 1886                        2709          LR    R8,R6               SAVE PTR TO JCBTAB                   00126000
000052 47F0 A042            00042  2710          B     MSVNJDSE            GET NXT ENTRY                        00127000
000056                             2711 MSVJCBI  DS    0H                                                       00128000
000056 D603 D05C D05C 0005C 0005C  2712          OC    MSQJCBIN,MSQJCBIN   ALREADY HAVE FDB ADDR.?     @AA26721 00128400
00005C 4770 A042            00042  2713          BC    NZERO,MSVNJDSE      YES, GO CK FUTHER           @AA26721 00128700
000060 5060 D05C            0005C  2714          ST    R6,MSQJCBIN         SAVE PTR TO JCBIN                    00129000
000064 47F0 A042            00042  2715          B     MSVNJDSE            GET NXT ENTRY                        00130000


                                   2717 *********************************************************************** 00132000
                                   2718 *              BUILD RICBAM TABLES                                    * 00133000
                                   2719 *********************************************************************** 00134000
000068                             2720 MSVTBLD  DS    0H                                                       00135000
                                   2721          AOPEN FDB=(R8),TYPE=IN,PRTY=14 OPEN JCBTAB                     00136000
000068 1818                        2722+         LR    R1,R8
00006A 92E0 1004      00004        2723+         MVI   4(R1),224 -        PRIORITY
00006E 9238 1005      00005        2724+         MVI   5(R1),56 -        TYPE
000072 1B00                        2725+         SR    R0,R0
000074 58F0 C064            00064  2726+         L     R15,AOPEN
000078 58E0 C084            00084  2727+         L     R14,ASAVE
00007C 05EE                        2728+         BALR  R14,R14
00007E 4150 D000            00000  2729          LA    R5,RIOTABLE         PTR TO FIRST TABLE SAVE              00137000
MSVQ   MSVQMAP INITIALIZATION                                                                                  PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2730 MSVTREAD ADEBLOCK FDB=(R8),EOD=MSVTABE,EOF=MSVTABE GET A TABLE PTR      00138000
000082 1818                        2731+MSVTREAD LR    R1,R8
000084 58F0 C024            00024  2732+         L     R15,ADEBLOCK
000088 58E0 C084            00084  2733+         L     R14,ASAVE
00008C 05EE                        2734+         BALR  R14,R14
00008E 47F0 A0BC            000BC  2735+         B     MSVTABE -            EOD RETURN
000092 47F0 A0BC            000BC  2736+         B     MSVTABE -            EOF RETURN
                                   2737+* NRM R0=# BYTES (BINARY), R1=RECORD ADDRESS
000096 1831                        2738          LR    R3,R1               SAVE PTR TO RECORD                   00139000
000098 1840                        2739          LR    R4,R0               SAVE CORE SIZE                       00140000
                                   2740          AGETBUF                   GET A BUFFER TO HOLD TABLE           00141000
00009A 58F0 C040            00040  2741+         L     R15,AGETBUF
00009E 58E0 C084            00084  2742+         L     R14,ASAVE
0000A2 05EE                        2743+         BALR  R14,R14
                                   2744+* NRM R0=BUFFER ADDRESS
0000A4 1820                        2745          LR    R2,R0               SAVE CORE PTR                        00142000
0000A6 5005 0000            00000  2746          ST    R0,0(R5)            SAVE TABLE PTR                       00143000
                                   2747          MOVEDATA TO=(R2),FROM=(R3),COUNT=(R4)                          00144000
0000AA 58F0 C130            00130  2748+         L     R15,MOVEDATA
0000AE 05EF                        2749+         BALR  R14,R15
0000B0 5855 0000            00000  2750          L     R5,0(R5)            GET TABLE PTR                        00145000
000000                             2751          USING RIOTSTRT,R5                                              00146000
0000B4 4150 5000            00000  2752          LA    R5,RIOTCHN          CHAIN TO NXT ENTRY                   00147000
0000B8 47F0 A082            00082  2753          B     MSVTREAD            READ NXT TABLE                       00148000
0000BC                             2754 MSVTABE  DS    0H                                                       00149000
0000BC D703 5000 5000 00000 00000  2755          XC    0(4,R5),0(R5)       CLEAR LAST CHAIN PTR                 00150000
                                   2756          ACLOSE FDB=(R8)           CLOSE JCBTAB                         00151000
0000C2 1818                        2757+         LR    R1,R8
0000C4 58F0 C010            00010  2758+         L     R15,ACLOSE
0000C8 58E0 C084            00084  2759+         L     R14,ASAVE
0000CC 05EE                        2760+         BALR  R14,R14
                                   2761          DROP  R5                                                       00152000
                                   2762 *********************************************************************** 00153000
                                   2763 *              CHECK FOR JFCB + VOLT UPDATE                           * 00154000
                                   2764 *********************************************************************** 00155000
0000CE                             2765 MSVJUP   DS    0H                                                       00156000
0000CE 5090 D058            00058  2766          ST    R9,MSQMPC           SAVE MPCDATA PTR                     00157000
0000D2 5880 D054            00054  2767          L     R8,MSQMSVD          PTR TO MSVDATA                       00158000
000000                             2768          USING MSVDATA,R8                                               00159000
0000D6 5880 801C            0001C  2769          L     R8,MPRESQ           PTR TO REQUEUE ENTRY                 00160000
000000                             2770          USING RQSTART,R8                                               00161000
0000DA 9108 804A      0004A        2771          TM    RQFLG3,RQSCRREF     ANY JFCB + VOLT UPDATE REQUIRED?     00162000
0000DE 4780 A102            00102  2772          BC    ALLOFF,MSVASSGN     NO, PERFORM ASSIGN                   00163000
0000E2 5090 D058            00058  2773          ST    R9,MSQMPC           SAVE MPCDATA PTR                     00164000
                                   2774          ALOAD EP=MSVCBUP          LOAD CONTROL BLOCK UPDATE MODULE     00165000
0000E6 4100 A9D8            009D8  2775+         LA    R0,=CL8'MSVCBUP'
0000EA 1B11                        2776+         SR    R1,R1
0000EC 58F0 C054            00054  2777+         L     R15,ALOAD
0000F0 58E0 C084            00084  2778+         L     R14,ASAVE
0000F4 05EE                        2779+         BALR  R14,R14
                                   2780+* NRM R0=ENTRY POINT ADDRESS
0000F6 18F0                        2781          LR    R15,R0              GET ENTRY POINT                      00166000
0000F8 5000 D064            00064  2782          ST    R0,MSQMSVUP         SAVE MSVCBUP MODULE ADDR             00167000
                                   2783          ACALL ENTER=(R15),SAVE=YES GO TO MSVCBUP                       00168000
0000FC 58E0 C084            00084  2784+         L     R14,ASAVE
MSVQ   MSVQMAP INITIALIZATION                                                                                  PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000100 05EE                        2785+         BALR  R14,R14
                                   2786          DROP  R8                                                       00169000
MSVQ   TTR ASSIGNMENT PROCESSING                                                                               PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2788 *********************************************************************** 00171000
                                   2789 *        TTR ASSIGN ROUTINE - GET ACTUAL TTRS FOR CONTROL BLOCKS      * 00172000
                                   2790 *********************************************************************** 00173000
000102                             2791 MSVASSGN DS    0H                                                       00174000
                                   2792 *********************************************************************** 00175000
                                   2793 *              CALCULATE NUMBER OF TTRS BY QUEUE                      * 00176000
                                   2794 *********************************************************************** 00177000
000102 4150 0000            00000  2795          LA    R5,0                INITIALIZE LTTR=0                    00178000
000106                             2796 MSVTTRC  DS    0H                                                       00179000
000106 4155 0001            00001  2797          LA    R5,1(R5)            INCREMENT LTTR BY ONE                00180000
                                   2798          RITPT LTTR=(R5)           POINT TO ENTRY                       00181000
00010A 1805                        2799+         LR    R0,R5
00010C 58F0 C16C            0016C  2800+         L     R15,RITPT -         PTR TO RITPT MODULE         @AL00175
000110 05EF                        2801+         BALR  R14,R15 -           PERFORM TABLE POINT
                                   2802+* NRM R1=LTTR ENTRY PTR, R15=RETURN CODE
000112 12FF                        2803          LTR   R15,R15             AT END OF TABLE?                     00182000
000114 4770 A192            00192  2804          BC    NZERO,MSVTTRA       YES, ASSIGN TTRS                     00183000
000118 1881                        2805          LR    R8,R1               SAVE ENTRY PTR                       00184000
000000                             2806          USING RIOENTRY,R8                                              00185000
00011A 9500 8001      00001        2807          CLI   RIOELTH,0           DELETED ENTRY?                       00186000
00011E 4780 A106            00106  2808          BC    EQ,MSVTTRC          YES, BYPASS ENTRY                    00187000
000122 9180 8001      00001        2809          TM    RIOELTH,RIOEASGN    ASSIGN/START REQUIRED?               00188000
000126 4780 A16C            0016C  2810          BC    ALLOFF,MSVTAS       NO, JUST ASSIGN                      00189000
00012A 4140 00BC            000BC  2811 MSVTENT  LA    R4,L'MSVWKSZ        SIZE OF QMPA WORK ENTRY              00190000
00012E 4560 A7D6            007D6  2812          BAL   R6,MSVCORE          GET CORE FOR WORK ENTRY              00191000
000132                             2813 MSVTENTA DS    0H                                                       00192000
000132 1870                        2814          LR    R7,R0               SAVE PTR TO ENTRY                    00193000
000134 4130 D060            00060  2815          LA    R3,MSQASGNT         ASSIGN WORK ENTRY PTR                00194000
000000                             2816          USING MSVWKMAP,R3                                              00195000
000138 D502 3001 C418 00001 00418  2817 MSVTENTF CLC   1(3,R3),TVTZERO     ANY WORK ENTRY?                      00196000
00013E 4780 A14A            0014A  2818          BC    EQ,MSVTENTX         NO, CHAIN IN THIS ENTRY              00197000
000142 5830 3000            00000  2819          L     R3,MSVWKCHN         PTR TO NXT ENTRY                     00198000
000146 47F0 A138            00138  2820          B     MSVTENTF            FIND LAST  ENTRY                     00199000
00014A                             2821 MSVTENTX DS    0H                                                       00200000
00014A 5070 3000            00000  2822          ST    R7,MSVWKCHN         CHAIN IN WORK ENTRY                  00201000
00014E 1837                        2823          LR    R3,R7               SET ENTRY PTR                        00202000
000150 D7BB 3000 3000 00000 00000  2824          XC    MSVWKCHN(L'MSVWKSZ),MSVWKCHN CLEAR WORK ENTRY            00203000
000156 D200 3006 8001 00006 00001  2825          MVC   MSVWKID,RIOELTH     SET QUEUE ID                         00204000
00015C 947F 3006      00006        2826          NI    MSVWKID,255-RIOEASGN TURN OFF ASSIGN START               00205000
000160 9201 3005      00005        2827          MVI   MSVWKCNT+1,X'01'    SET FIRST ENTRY                      00206000
000164 5050 3008            00008  2828          ST    R5,MSVWKTTR         SAVE 1ST LTTR NUMBER                 00207000
000168 47F0 A106            00106  2829          B     MSVTTRC             CONTINUE TO NXT ASSIGN               00208000
00016C                             2830 MSVTAS   DS    0H                                                       00209000
00016C 5830 D060            00060  2831          L     R3,MSQASGNT         PTR TO ASSIGN WORK ENTRIES           00210000
000000                             2832          USING MSVWKMAP,R3                                              00211000
000170 D500 3006 8001 00006 00001  2833 MSVTENTS CLC   MSVWKID,RIOELTH     SAME ENTRY?                          00212000
000176 4780 A182            00182  2834          BC    EQ,MSVTENTU         UPDATE COUNT                         00213000
00017A 5830 3000            00000  2835          L     R3,MSVWKCHN         PTR TO NEXT ENTRY                    00214000
00017E 47F0 A170            00170  2836          B     MSVTENTS            RESUME SEARCH                        00215000
000182                             2837 MSVTENTU DS    0H                                                       00216000
000182 4870 3004            00004  2838          LH    R7,MSVWKCNT         GET COUNT                            00217000
000186 4177 0001            00001  2839          LA    R7,1(R7)            BUMP COUNT                           00218000
00018A 4070 3004            00004  2840          STH   R7,MSVWKCNT         SET NEW COUNT                        00219000
00018E 47F0 A106            00106  2841          B     MSVTTRC             CHECK NXT TTR                        00220000
MSVQ   TTR ASSIGNMENT PROCESSING                                                                               PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2843 *********************************************************************** 00222000
                                   2844 *              ISSUE ASSIGN COMMAND                                   * 00223000
                                   2845 *********************************************************************** 00224000
000192                             2846 MSVTTRA  DS    0H                                                       00225000
000192 4140 0019            00019  2847          LA    R4,L'ATTR1SIZ       SIZE OF MSG                          00226000
000196 4560 A7D6            007D6  2848          BAL   R6,MSVCORE          GET CORE FOR ASSIGN MSG              00227000
00019A 1880                        2849          LR    R8,R0               SAVE MSG PTR                         00228000
00019C D218 8000 A9FA 00000 009FA  2850          MVC   0(L'ATTR1SIZ,R8),ATTR1 MOVE MESSAGE                      00229000
0009FA                             2851          USING ATTR1,R8                                                 00230000
0001A2 5870 D060            00060  2852          L     R7,MSQASGNT         PTR TO WORK ENTRY                    00231000
0001A6 5860 D054            00054  2853          L     R6,MSQMSVD          PTR TO MSVDATA                       00232000
000000                             2854          USING MSVDATA,R6                                               00233000
0001AA D207 800A 6028 00A04 00028  2855          MVC   ATTR1JNM,MSJOBNAM   SET JOB NAME                         00234000
                                   2856          DROP  R6                                                       00235000
000000                             2857          USING MSVWKMAP,R7                                              00236000
0001B0 D200 8009 7006 00A03 00006  2858          MVC   ATTR1QID,MSVWKID    SET QUEUE ID                         00237000
0001B6 D201 8016 7004 00A10 00004  2859          MVC   ATTR1CNT,MSVWKCNT   SET # OF TTR'S TO ASSIGN             00238000
                                   2860          TIME  BIN                                             @AA34009 00238300
0001BC 4110 0001            00001  2861+         LA    1,1(0,0) LOAD 1 TO SPECIFY UNIT
0001C0 0A0B                        2862+         SVC   11 ISSUE TIME SVC
0001C2 5000 B098            00098  2863          ST    R0,FCTWORK          SAVE TIME STAMP IN FULL WORD@AA34009 00238600
0001C6 D203 8012 B098 00A0C 00098  2864          MVC   ATTR1TOD,FCTWORK    MOVE INTO MESSAGE           @AA34009 00238900
                                   2865          SEND  TEXT=(R8),TYPE=F,MPC=(R9) SEND COMMAND                   00239000
0001CC 1818                        2866+         LR    R1,R8
0001CE 4100 9000            00000  2867+         LA    R0,0(0,R9)
0001D2 5E00 A9E8            009E8  2868+         AL    R0,=AL1(8,0,0,0) - TYPE=F FLAG
0001D6 58F0 C190            00190  2869+         L     R15,SEND
0001DA 58E0 C084            00084  2870+         L     R14,ASAVE
0001DE 05EE                        2871+         BALR  R14,R14
0001E0 9200 91CC      001CC        2872          MVI   MPMSGECF,0          CLEAR RECEIVE ECF                    00240000
                                   2873          RECEIVE ID=MSVATTR,MPC=(R9),DEQ=USER,BUFFER=MPMSGECF           00241000
0001E4                             2874+         DS    0H
0001E4 4110 91CC            001CC  2875+         LA    R1,MPMSGECF
0001E8 4100 A93B            0093B  2876+         LA    R0,MSVATTR
0001EC 1829                        2877+         LR    R2,R9
0001EE 5E10 A9EC            009EC  2878+         AL    R1,=AL1(2,0,0,0) -  FLGS IN HI BYTE OF R1
0001F2 58F0 C154            00154  2879+         L     R15,RECEIVE
0001F6 58E0 C084            00084  2880+         L     R14,ASAVE
0001FA 05EE                        2881+         BALR  R14,R14
0001FC 4140 91CE            001CE  2882          LA    R4,MPMSGBUF         POINT TO MESSAGE            @AA34009 00241300
000000                             2883          USING ATTR2,R4                                        @AA34009 00241600
000200 9140 91CC      001CC        2884 MSVTCK   TM    MPMSGECF,X'40'      ARE WE IPL'ED OFF?                   00242000
000204 4710 A2C8            002C8  2885          BC    ALLON,MSVBYPAS      YES, BYPASS RECEIVE                  00243000
000208 95F2 4006      00006        2886          CLI   ATTR2HDR+6,X'F2'    TTR2 MSG TYPE?              @AA34009 00244000
00020C 4770 A280            00280  2887          BC    NE,MSVQMPA          NO, MUST BE QMPA COMING BACK         00245000
000210 D507 800A 4008 00A04 00008  2888          CLC   ATTR1JNM,ATTR2JNM   JOB NAME MATCH?             @AA34009 00245200
000216 4770 A26A            0026A  2889          BC    NE,MSVTWAIT         NO,GET NEST MSG             @AA34009 00245400
00021A D503 8012 4010 00A0C 00010  2890          CLC   ATTR1TOD,ATTR2TOD   YES,TOD STAMP MATCH?        @AA34009 00245600
000220 4770 A26A            0026A  2891          BC    NE,MSVTWAIT         NO,GET NEST MSG             @AA34009 00245800
000224 5850 7008            00008  2892          L     R5,MSVWKTTR         GET FIRST LTTR ENTRY                 00246000
000228 4160 4014            00014  2893          LA    R6,ATTR2TTR         PTR TO FIRST TTR            @AA34009 00247000
                                   2894 MSVTPT   RITPT LTTR=(R5)           POINT TO ENTRY                       00248000
00022C 1805                        2895+MSVTPT   LR    R0,R5
00022E 58F0 C16C            0016C  2896+         L     R15,RITPT -         PTR TO RITPT MODULE         @AL00175
000232 05EF                        2897+         BALR  R14,R15 -           PERFORM TABLE POINT
MSVQ   TTR ASSIGNMENT PROCESSING                                                                               PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2898+* NRM R1=LTTR ENTRY PTR, R15=RETURN CODE
000000                             2899          USING RIOENTRY,R1                                              00249000
000234 D200 B098 1001 00098 00001  2900          MVC   FCTWORK(1),RIOELTH  SAVE QUEUE ID                        00250000
00023A 947F B098      00098        2901          NI    FCTWORK,255-RIOEASGN TURN OFF ASSIGN START               00251000
00023E D500 B098 7006 00098 00006  2902          CLC   FCTWORK(1),MSVWKID  SAME QUEUE ID?                       00252000
000244 4780 A250            00250  2903          BC    EQ,MSVTSAV          YES, SAVE TTR                        00253000
000248 4155 0001            00001  2904 MSVTBMP  LA    R5,1(R5)            BUMP LTTR                            00254000
00024C 47F0 A22C            0022C  2905          B     MSVTPT              CHECK NEXT ENTRY                     00255000
000250                             2906 MSVTSAV  DS    0H                                                       00256000
000250 D202 1005 6000 00005 00000  2907          MVC   RIOEATTR+1(3),0(R6) SAVE ACTUAL TTR                      00257000
000256 4166 0003            00003  2908          LA    R6,3(R6)            BUMP MSG PTR                         00258000
00025A 95FE 6000      00000        2909          CLI   0(R6),X'FE'         LAST TTR OF MSG STRING?              00259000
00025E 4770 A248            00248  2910          BC    NE,MSVTBMP          NO, BUMP LTTR & GO AGAIN             00260000
000262 4155 0001            00001  2911          LA    R5,1(R5)            BUMP LTTR                            00261000
000266 5050 7008            00008  2912          ST    R5,MSVWKTTR         SET NEW FIRST LTTR                   00262000
00026A                             2913 MSVTWAIT DS    0H                                                       00263000
00026A 947F 91CC      001CC        2914          NI    MPMSGECF,255-RECPOST TURN OFF POST                       00264000
00026E 4100 91CC            001CC  2915          LA    R0,MPMSGECF         PTR TO ECF                           00265000
000272 5E00 A9F0            009F0  2916          AL    R0,=X'FF000000'     SET ECFMASK                          00266000
                                   2917          AWAIT ECFMASK=(R0),ECFADD=(R0),NORMAL=MSVTCK GET NXT MESSAGE   00267000
000276 58F0 C0C4            000C4  2918+         L     R15,AWAIT
00027A 05EF                        2919+         BALR  R14,R15
00027C 47F0 A200            00200  2920+         B     MSVTCK -            NORMAL RETURN
000080                             2921 RECPOST  EQU   X'80'               POST BIT OF RECEIVE(NORMAL POST)     00268000
                                   2922          DROP R4                                               @AA34009 00268500



000000                             2924          USING ATTR3,R4                                        @AA34009 00269500
000280                             2925 MSVQMPA  DS    0H                                                       00270000
000280 D507 800A 4008 00A04 00008  2926          CLC   ATTR1JNM,ATTR3JNM   JOB NAME MATCH?             @AA34009 00270200
000286 4770 A26A            0026A  2927          BC    NE,MSVTWAIT         NO,GET NEST MSG             @AA34009 00270400
00028A D503 8012 4010 00A0C 00010  2928          CLC   ATTR1TOD,ATTR3TOD   YES, TOD STAMP MATCH?       @AA34009 00270600
000290 4770 A26A            0026A  2929          BC    NE,MSVTWAIT         NO,GET NEST MSG             @AA34009 00270800
000294 D21B 700C 4014 0000C 00014  2930          MVC   MSVWKQ,ATTR3QMP     SAVE QMPA INFORMATION       @AA34009 00271000
00029A 5870 7000            00000  2931          L     R7,MSVWKCHN         PTR TO NXT ENTRY                     00272000
00029E 1277                        2932          LTR   R7,R7               ANY MORE ENTRIES?                    00273000
0002A0 4780 A2C8            002C8  2933          BC    ZERO,MSVTXX         NO, CLEAN UP CORE                    00274000
0002A4 D200 8009 7006 00A03 00006  2934          MVC   ATTR1QID,MSVWKID    SET QUEUE ID                         00275000
0002AA D201 8016 7004 00A10 00004  2935          MVC   ATTR1CNT,MSVWKCNT   SET # OF TTR'S TO ASSIGN             00276000
                                   2936          SEND  TEXT=(R8),TYPE=F,MPC=(R9) SEND COMMAND                   00277000
0002B0 1818                        2937+         LR    R1,R8
0002B2 4100 9000            00000  2938+         LA    R0,0(0,R9)
0002B6 5E00 A9E8            009E8  2939+         AL    R0,=AL1(8,0,0,0) - TYPE=F FLAG
0002BA 58F0 C190            00190  2940+         L     R15,SEND
0002BE 58E0 C084            00084  2941+         L     R14,ASAVE
0002C2 05EE                        2942+         BALR  R14,R14
0002C4 47F0 A26A            0026A  2943          B     MSVTWAIT            WAIT FOR NXT MESSAGE                 00278000
                                   2944          DROP  R4                                              @AA34009 00278500


0002C8                             2946 MSVBYPAS DS    0H                                                       00280000
0002C8                             2947 MSVTXX   DS    0H                                                       00281000
0002C8 4100 0019            00019  2948          LA    R0,L'ATTR1SIZ       SIZE OF MESSAGE                      00282000
0002CC 1818                        2949          LR    R1,R8               PTR TO AREA                          00283000
MSVQ   TTR ASSIGNMENT PROCESSING                                                                               PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2950          APUTMAIN SIZE=(R0),AREA=(R1) FREE MESSAGE AREA                 00284000
0002CE 5400 C428            00428  2951+         N     R0,TVTADMSK
0002D2 43E0 C3E6            003E6  2952+         IC    R14,ASPOOL
0002D6 89E0 0018            00018  2953+         SLL   R14,24
0002DA 160E                        2954+         OR    R0,R14
0002DC 58F0 C078            00078  2955+         L     R15,APUTMAIN
0002E0 58E0 C084            00084  2956+         L     R14,ASAVE
0002E4 05EE                        2957+         BALR  R14,R14
                                   2958          RECEIVE TYPE=PURGE,BUFFER=MPMSGECF,MPC=(R9) RELEASE RECEIVE    00285000
0002E6                             2959+         DS    0H
0002E6 4110 91CC            001CC  2960+         LA    R1,MPMSGECF
0002EA 1101                        2961+         LNR   R0,R1 -             INDICATE TYPE=PURGE
0002EC 1829                        2962+         LR    R2,R9
0002EE 58F0 C154            00154  2963+         L     R15,RECEIVE
0002F2 58E0 C084            00084  2964+         L     R14,ASAVE
0002F6 05EE                        2965+         BALR  R14,R14
0002F8 5880 D064            00064  2966          L     R8,MSQMSVUP         SET BASE FOR MSVCBUP SECOND ENTRY    00286000
0002FC 1288                        2967          LTR   R8,R8               ANY MSVCBUP?                         00287000
0002FE 4780 A31A            0031A  2968          BC    ZERO,MSVMAP         NO, MAP CONTROL BLOCKS               00288000
000302 41F8 0006            00006  2969          LA    R15,6(R8)           PTR TO SECOND ENTRY                  00289000
                                   2970          ACALL ENTER=(R15),SAVE=YES GO TO MSVCBUP - SECOND ENTRY        00290000
000306 58E0 C084            00084  2971+         L     R14,ASAVE
00030A 05EE                        2972+         BALR  R14,R14
                                   2973          ADELETE EP=MSVCBUP        DELETE MODULE                        00291000
00030C 4100 A9D8            009D8  2974+         LA    R0,=CL8'MSVCBUP'
000310 58F0 C02C            0002C  2975+         L     R15,ADELETE
000314 58E0 C084            00084  2976+         L     R14,ASAVE
000318 05EE                        2977+         BALR  R14,R14
MSVQ   MAPPING ROUTINES (CHANGE LTTR TO ATTR)                                                                  PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2979 *********************************************************************** 00293000
                                   2980 *        MSVQMAP MAPPING ROUTINE                                      * 00294000
                                   2981 *********************************************************************** 00295000
00031A                             2982 MSVMAP   DS    0H                                                       00296000
                                   2983 *********************************************************************** 00297000
                                   2984 *              SET UP JCBIN FILE                                      * 00298000
                                   2985 *********************************************************************** 00299000
00031A D700 D09E D09E 0009E 0009E  2986          XC    MSQSTPN,MSQSTPN     CLEAR CKPT FLAG             @AL00221 00299100
000320 5870 D054            00054  2987          L     R7,MSQMSVD          PTR TO MSVDATA                       00300000
000000                             2988          USING MSVDATA,R7                                               00301000
000324 5810 D05C            0005C  2989          L     R1,MSQJCBIN         PTR TO JCBIN                         00302000
000328 D713 1000 1000 00000 00000  2990          XC    0(L'JDSFDB,R1),0(R1) CLEAR FDB                           00303000
00032E 4160 7044            00044  2991          LA    R6,MSJOBTAT         PTR TO JOB TAT                       00304000
                                   2992          AOPEN FDB=(R1),TYPE=OUT,PRTY=14,TATPTR=(R6)                    00305000
000332 92E0 1004      00004        2993+         MVI   4(R1),224 -        PRIORITY
000336 9218 1005      00005        2994+         MVI   5(R1),24 -        TYPE
00033A 1806                        2995+         LR    R0,R6
00033C 58F0 C064            00064  2996+         L     R15,AOPEN
000340 58E0 C084            00084  2997+         L     R14,ASAVE
000344 05EE                        2998+         BALR  R14,R14
                                   2999 *********************************************************************** 00306000
                                   3000 *              SET UP + WRITE QMPA TO JCBIN                           * 00307000
                                   3001 *********************************************************************** 00308000
000346 5860 D060            00060  3002          L     R6,MSQASGNT         PTR TO FIRST ASSIGN ENTRY            00309000
000000                             3003          USING MSVWKMAP,R6                                              00310000
00034A 9201 6008      00008        3004          MVI   MSVWKTTR,RIRQMPA    SHOW QMPA RECORD                     00311000
00034E 4180 600C            0000C  3005          LA    R8,MSVWKQ           PTR TO QMPA                          00312000
000352 4160 6008            00008  3006          LA    R6,MSVWKTTR         PTR TO RECORD                        00313000
000000                             3007          USING IOPARAMS,R8                                              00314000
000356 D200 8011 704A 00011 0004A  3008          MVC   QMPRI(1),MSJOBPTY   SET JOB PRIORITY                     00315000
00035C D200 800F 704C 0000F 0004C  3009          MVC   QMTPY(1),MSJOBCLS   SET JOB CLASS                        00316000
000362 DC00 800F A881 0000F 00881  3010          TR    QMTPY(1),MSVCTTAB   TRANSLATE TO OS FORMAT               00317000
000368 4580 A864            00864  3011          BAL   R8,MSVJCBIN         WRITE RECORD TO JCBIN                00318000
                                   3012          DROP  R7                                                       00319000
                                   3013          DROP  R8                                                       00320000
00036C 4150 0001            00001  3014          LA    R5,1                JCT LTTR                             00321000
000370 4520 A890            00890  3015          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00322000
000000                             3016          USING RIREC,R6                                                 00323000


                                   3018 *********************************************************************** 00325000
                                   3019 *              MAP JCT                                                * 00326000
                                   3020 *********************************************************************** 00327000
000000                             3021          USING EAJCT,R7                                                 00328000
000374 D201 D074 7021 00074 00021  3022          MVC   MSQSCT,JCTSDKAD+1   MOVE FIRST SCT              @AM00295 00328100
00037A 9180 7057      00057        3023          TM    JCTRSW2,JCTSYSCK    CHECKPOINT DS PRESENT       @AM00295 00328200
00037E 4780 A38E            0038E  3024          BC    ALLOFF,MSVJCTMP     NO, CONTINUE                @AM00295 00328300
000382 D201 D074 7071 00074 00071  3025          MVC   MSQSCT,JCTSSTR+1    SAVE SCT LTTR               @AL00221 00329000
000388 D201 D098 7021 00098 00021  3026          MVC   MSQVOLTL(2),JCTSDKAD+1 SAVE FIRST SCT PTR       @AM00345 00329050
00038E                             3027 MSVJCTMP DS    0H                                              @AM00295 00329100
00038E D201 D076 7025 00076 00025  3028          MVC   MSQFSMB,JCTSMBAD+1  SAVE FIRST SMB LTTR                  00330000
000394 D201 D078 7029 00078 00029  3029          MVC   MSQFACT,JCTACTAD+1  SAVE FIRST ACT LTTR                  00331000
00039A D201 D07A 702D 0007A 0002D  3030          MVC   MSQSCD,JCTDSSBA+1   SAVE SCD LTTR                        00332000
0003A0 D201 D07E 7059 0007E 00059  3031          MVC   MSQDSENQ,JCTDETDA+1 SAVE DSENQ LTTR                      00333000
0003A6 D201 D080 7069 00080 00069  3032          MVC   MSQCJFCB,JCTCKTTR+1 SAVE CK/PT JFCB LTTR                 00334000
MSVQ   MAPPING ROUTINES (CHANGE LTTR TO ATTR)                                                                  PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0003AC D201 D082 7087 00082 00087  3033          MVC   MSQJMR,JCTJMR+1     SAVE JMR LTTR                        00335000
0003B2 4140 A958            00958  3034          LA    R4,MSVJCT           PTR TO JCT DISPLACEMENTS             00336000
0003B6 4580 A81A            0081A  3035          BAL   R8,MSVTTRMP         MAP JCT                              00337000
0003BA D200 7006 9046 00006 00046  3036          MVC   JCTJMGPO,MPMSGCLS   SET MESSAGE CLASS                    00338000
0003C0 9202 6000      00000        3037          MVI   RIRFLAG,RIRENQ      SET ENQ RECORD FLAG                  00339000
0003C4 4580 A864            00864  3038          BAL   R8,MSVJCBIN         WRITE RECORD TO JCBIN                00340000


                                   3040 *********************************************************************** 00342000
                                   3041 *              MAP SMBS                                               * 00343000
                                   3042 *********************************************************************** 00344000
0003C8                             3043 MSVSMBMP DS    0H                                                       00345000
0003C8 4850 D076            00076  3044          LH    R5,MSQFSMB          LTTR OF FIRST SMB                    00346000
0003CC 1255                        3045          LTR   R5,R5               ANY MORE SMB'S?                      00347000
0003CE 4780 A412            00412  3046          BC    ZERO,MSVACTM1       NO, HANDLE ACT                       00348000
0003D2 4520 A890            00890  3047          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00349000
0003D6 4050 D08A            0008A  3048          STH   R5,MSQSMBSV         SAVE LTTR OF LAST SMB                00350000
000168                             3049          USING SMBDSKAD,R7                                              00351000
0003DA D201 D076 7005 00076 0016D  3050          MVC   MSQFSMB,SMBNEXT+1   SAVE NXT SMB LTTR                    00352000
0003E0 4140 A9B6            009B6  3051          LA    R4,MSVMIX2          PTR TO SMB TTR DISPLACEMENTS         00353000
0003E4 4580 A81A            0081A  3052          BAL   R8,MSVTTRMP         MAP SMB                              00354000
0003E8 4580 A864            00864  3053          BAL   R8,MSVJCBIN         WRITE SMB TO JCBIN                   00355000
0003EC 47F0 A3C8            003C8  3054          B     MSVSMBMP            MAP NEXT SMB                         00356000


                                   3056 *********************************************************************** 00358000
                                   3057 *              MAP ACT OF JCT                                         * 00359000
                                   3058 *********************************************************************** 00360000
0003F0                             3059 MSVACTMP DS    0H                                                       00361000
0003F0 4850 D078            00078  3060          LH    R5,MSQFACT          FIRST ACT LTTR                       00362000
0003F4 1255                        3061          LTR   R5,R5               LAST ACT?                            00363000
0003F6 0789                        3062          BCR   ZERO,R9             YES, RETURN TO CALLER                00364000
0003F8 4520 A890            00890  3063          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00365000
0000B0                             3064          USING ACTDSKAD,R7                                              00366000
0003FC D201 D078 7005 00078 000B5  3065          MVC   MSQFACT,ACTNEXT+1   SAVE LTTR OF NEXT ACT                00367000
000402 4140 A9B6            009B6  3066          LA    R4,MSVMIX2          PTR TO ACT DISP TABLE                00368000
000406 4580 A81A            0081A  3067          BAL   R8,MSVTTRMP         MAP ACT                              00369000
00040A 4580 A864            00864  3068          BAL   R8,MSVJCBIN         WRITE ACT TO JCBIN                   00370000
00040E 47F0 A3F0            003F0  3069          B     MSVACTMP            MAP NXT ACT                          00371000
000412                             3070 MSVACTM1 DS    0H                                                       00372000
000412 4590 A3F0            003F0  3071          BAL   R9,MSVACTMP         MAP ACT                              00373000


                                   3073 *********************************************************************** 00375000
                                   3074 *              MAP DSENQ                                              * 00376000
                                   3075 *********************************************************************** 00377000
000416                             3076 MSVDSEMP DS    0H                                                       00378000
000416 4850 D07E            0007E  3077          LH    R5,MSQDSENQ         DSENQ LTTR                           00379000
00041A 1255                        3078          LTR   R5,R5               LAST DSENQ?                          00380000
00041C 4780 A47A            0047A  3079          BC    ZERO,MSVJFCB1       YES, MAP CK/PT JFCB                  00381000
000420 4520 A890            00890  3080          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00382000
000000                             3081          USING EADSENQ,R7                                               00383000
000424 D201 D07E 7005 0007E 00005  3082          MVC   MSQDSENQ,DSENQNXT+1 NEXT DSENQ LTTR                      00384000
00042A 4140 A9B6            009B6  3083          LA    R4,MSVMIX2          PTR TO DSENQ DISPLACE. TABLE         00385000
00042E 4580 A81A            0081A  3084          BAL   R8,MSVTTRMP         MAP DSENQ                            00386000
MSVQ   MAPPING ROUTINES (CHANGE LTTR TO ATTR)                                                                  PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000432 4580 A864            00864  3085          BAL   R8,MSVJCBIN         WRITE DSENQ TO JCBIN                 00387000
000436 47F0 A416            00416  3086          B     MSVDSEMP            MAP NXT DSENQ                        00388000


                                   3088 *********************************************************************** 00390000
                                   3089 *              MAP CK/PT JFCB & JFCBX OF JCT                          * 00391000
                                   3090 *********************************************************************** 00392000
00043A                             3091 MSVJFCBM DS    0H                                                       00393000
00043A 4850 D080            00080  3092          LH    R5,MSQCJFCB         JFCB TTR                             00394000
00043E 1255                        3093          LTR   R5,R5               ANY MORE JFCBS                       00395000
000440 0789                        3094          BCR   ZERO,R9             NO, RETURN TO CALLER                 00396000
000442 4520 A890            00890  3095          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00397000
000000                             3096          USING EAJFCB,R7                                                00398000
000446 D201 D084 7096 00084 00096  3097          MVC   MSQJFCBX,JFCBEXAD+1 SAVE JFCBX LTTR                      00399000
00044C 4140 A9AE            009AE  3098          LA    R4,MSVJFCB          JFCB TTR DISPLACEMENT TABLE          00400000
000450 4580 A81A            0081A  3099          BAL   R8,MSVTTRMP         MAP JFCB                             00401000
000454 4580 A864            00864  3100          BAL   R8,MSVJCBIN         WRITE JFCB TO JCBIN                  00402000
000458 4850 D084            00084  3101 MSVJFCBX LH    R5,MSQJFCBX         JFCBX LTRR                           00403000
00045C 1255                        3102          LTR   R5,R5               ANY JFCBX?                           00404000
00045E 0789                        3103          BCR   ZERO,R9             NO, RETURN TO CALLER                 00405000
000460 4520 A890            00890  3104          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00406000
000464 D201 D084 7001 00084 00001  3105          MVC   MSQJFCBX,1(R7)      SAVE NXT JFCBX LTTR                  00407000
00046A 4140 A9B2            009B2  3106          LA    R4,MSVMIX1          JFCBX TTR DISPLACEMENT TABLE         00408000
00046E 4580 A81A            0081A  3107          BAL   R8,MSVTTRMP         MAP JFCBX                            00409000
000472 4580 A864            00864  3108          BAL   R8,MSVJCBIN         WRITE JFCBX TO JCBIN                 00410000
000476 47F0 A458            00458  3109          B     MSVJFCBX            MAP NXT JFCBX                        00411000
00047A 4590 A43A            0043A  3110 MSVJFCB1 BAL   R9,MSVJFCBM         MAP CK/PT JFCB & JFCBX               00412000




                                   3112 *********************************************************************** 00414000
                                   3113 *              JOB LEVEL MAPPING IS NOW COMPLETE - MAPPING WILL NOW   * 00415000
                                   3114 *        BEGIN AT THE STEP LEVEL. THE FIRST STEP WILL MAP ALL OF      * 00416000
                                   3115 *        THE SIOTS, JFCBS, AND JFCBXS. FROM THEN ON, THE SIOT CHAINS  * 00417000
                                   3116 *        WILL NOT NEED TO BE MAPPED. WHEN THE LAST SCT IS REACHED, A  * 00418000
                                   3117 *        FINAL ROUTINE WILL HANDLE SCD & JMR PROCESSING.              * 00419000
                                   3118 *********************************************************************** 00420000
00047E                             3119 MSVSCTMP DS    0H                                                       00421000
00047E 4850 D074            00074  3120          LH    R5,MSQSCT           SCT LTTR                             00422000
000482 1255                        3121          LTR   R5,R5               ANY MORE SCTS?                       00423000
000484 4780 A67A            0067A  3122          BC    ZERO,MSVSCDMP       NO, HANDLE SCD                       00424000
000488 4520 A890            00890  3123          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00425000
000000                             3124          USING RIREC,R6                                                 00426000
000000                             3125          USING EASCT,R7                                                 00427000
00048C D507 7034 A9E0 00034 009E0  3126          CLC   SCTSNAME,=CL8'IEFDSDRP'  STEP = CKPT/RESTART?   @AL00221 00427100
000492 4770 A49A            0049A  3127          BC    NE,MSVSCTM0         NO, CONTINUE                @AL00221 00427200
000496 9601 D09E      0009E        3128          OI    MSQSTPN,X'01'       YES, SET FLAG               @AL00221 00427300
00049A                             3129 MSVSCTM0 DS    0H                                              @AL00221 00427400
00049A D501 D088 C42C 00088 0042C  3130          CLC   MSQSIOT,TVTRMFF     LAST SIOT PROCESSED?                 00428000
0004A0 4780 A4AA            004AA  3131          BC    EQ,MSVSCTM1         YES, BYPASS SIOT PTR SAVE            00429000
0004A4 D201 D088 700D 00088 0000D  3132          MVC   MSQSIOT,SCTFSIOT+1  SAVE SIOT LTTR                       00430000
0004AA                             3133 MSVSCTM1 DS    0H                                                       00431000
0004AA D201 D086 7025 00086 00025  3134          MVC   MSQVOLT,SCTVOLTB+1  SAVE VOLT LTTR                       00432000
0004B0 D201 D078 7021 00078 00021  3135          MVC   MSQFACT,SCTAFACT+1  SAVE ACT  LTTR                       00433000
MSVQ   MAPPING ROUTINES (CHANGE LTTR TO ATTR)                                                                  PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0004B6 D201 D08C 7029 0008C 00029  3136          MVC   MSQDSNT,SCTADSTB+1  SAVE DSN TABLE LTTR                  00434000
0004BC D201 D07C 7045 0007C 00045  3137          MVC   MSQSCTX,SCTXBTTR+1  SAVE SCTX LTRR                       00435000
0004C2 D201 D074 7015 00074 00015  3138          MVC   MSQSCT,SCTANSCT+1   SAVE NEXT SCT LTTR                   00436000
0004C8 9101 D09E      0009E        3139          TM    MSQSTPN,X'01'       CK/PT RESTART?              @AM00345 00436100
0004CC 4780 A4D6            004D6  3140          BC    ALLOFF,MSVSCTM3     NO, CONTINUE                @AM00345 00436200
0004D0 D201 D074 D098 00074 00098  3141          MVC   MSQSCT,MSQVOLTL     SET OLD SCT CHAIN           @AM00345 00436300
0004D6                             3142 MSVSCTM3 DS    0H                                              @AM00345 00436400


                                   3144 *********************************************************************** 00438000
                                   3145 *              MAP SCT                                                * 00439000
                                   3146 *********************************************************************** 00440000
0004D6 4140 A96E            0096E  3147          LA    R4,MSVSCT           PTR TO SCT DISPLACEMENTS             00441000
0004DA 4580 A81A            0081A  3148          BAL   R8,MSVTTRMP         MAP SCT                              00442000
0004DE 5880 D054            00054  3149          L     R8,MSQMSVD          PTR TO MSVDATA                       00443000
000000                             3150          USING MSVDATA,R8                                               00444000
0004E2 9102 804D      0004D        3151          TM    MSFLG1,MSJBPRTY     ASP ASSIGNED PRIORITY?               00445000
0004E6 4710 A4EE            004EE  3152          BC    ALLON,MSVSCTM2      NO, LEAVE DISPATCHING PRIORITY ALONE 00446000
0004EA 9610 705E      0005E        3153          OI    SCTSDP,X'10'        INDICATE NO STEP PRIORITY GIVEN      00447000
0004EE                             3154 MSVSCTM2 DS    0H                                                       00448000
                                   3155          DROP  R8                                                       00449000
0004EE 4580 A864            00864  3156          BAL   R8,MSVJCBIN         WRITE SCT TO JCBIN                   00450000


                                   3158 *********************************************************************** 00452000
                                   3159 *              MAP VOLT                                               * 00453000
                                   3160 *********************************************************************** 00454000
0004F2 4850 D086            00086  3161 MSVVOLTM LH    R5,MSQVOLT          VOLT LTTR                            00455000
0004F6 1255                        3162          LTR   R5,R5               ANY MORE?                            00456000
0004F8 4780 A516            00516  3163          BC    ZERO,MSVACT2        NO, MAP ACT                          00457000
0004FC 4520 A890            00890  3164          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00458000
000000                             3165          USING EAVOLT,R7                                                00459000
000500 D201 D086 7005 00086 00005  3166          MVC   MSQVOLT,VOLTNXT+1   SAVE NXT VOLT LTTR                   00460000
000506 4140 A9B6            009B6  3167          LA    R4,MSVMIX2          PTR TO VOLT DISPLACEMENTS            00461000
00050A 4580 A81A            0081A  3168          BAL   R8,MSVTTRMP         MAP VOLT                             00462000
00050E 4580 A864            00864  3169          BAL   R8,MSVJCBIN         WRITE VOLT TO JCBIN                  00463000
000512 47F0 A4F2            004F2  3170          B     MSVVOLTM            TRY NXT VOLT                         00464000


                                   3172 *********************************************************************** 00466000
                                   3173 *              MAP ACT - SCT                                          * 00467000
                                   3174 *********************************************************************** 00468000
000516                             3175 MSVACT2  DS    0H                                                       00469000
000516 4590 A3F0            003F0  3176          BAL   R9,MSVACTMP         MAP ACT                              00470000


                                   3178 *********************************************************************** 00472000
                                   3179 *              MAP DSN                                                * 00473000
                                   3180 *********************************************************************** 00474000
00051A                             3181 MSVDSNMP DS    0H                                                       00475000
00051A 4850 D08C            0008C  3182          LH    R5,MSQDSNT          DSN LTTR                             00476000
00051E 1255                        3183          LTR   R5,R5               ANY MORE?                            00477000
000520 4780 A53E            0053E  3184          BC    ZERO,MSVSCTXM       NO, MAP SCTX                         00478000
000524 4520 A890            00890  3185          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00479000
000000                             3186          USING EADSN,R7                                                 00480000
MSVQ   MAPPING ROUTINES (CHANGE LTTR TO ATTR)                                                                  PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000528 D201 D08C 7005 0008C 00005  3187          MVC   MSQDSNT,DSNNEXT+1   NXT DSN LTRR                         00481000
00052E 4140 A9B6            009B6  3188          LA    R4,MSVMIX2          DSN LTTR DISPLACEMENTS               00482000
000532 4580 A81A            0081A  3189          BAL   R8,MSVTTRMP         MAP DSN                              00483000
000536 4580 A864            00864  3190          BAL   R8,MSVJCBIN         WRITE DSN TO JCBIN                   00484000
00053A 47F0 A51A            0051A  3191          B     MSVDSNMP            TRY NXT DSN                          00485000


                                   3193 *********************************************************************** 00487000
                                   3194 *              MAP SCTX                                               * 00488000
                                   3195 *********************************************************************** 00489000
00053E                             3196 MSVSCTXM DS    0H                                                       00490000
00053E 4850 D07C            0007C  3197          LH    R5,MSQSCTX          SCTX LTTR                            00491000
000542 1255                        3198          LTR   R5,R5               ANY LTTR?                            00492000
000544 4780 A56E            0056E  3199          BC    ZERO,MSVSIOTM       NO, CHECK SIOT MAP                   00493000
000548 4520 A890            00890  3200          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00494000
00054C 9101 D09E      0009E        3201          TM    MSQSTPN,X'01'       CKPT STEP?                  @AL00221 00494100
000550 4780 A562            00562  3202          BC    ALLOFF,MSVSCTX1     NO,CONTINUE                 @AL00001 00494200
000554 D700 D09E D09E 0009E 0009E  3203          XC    MSQSTPN,MSQSTPN     CLEAR FLAG                  @AL00221 00494300
00055A 4140 A9BE            009BE  3204          LA    R4,MSVMIXCR         PTR TO NEW SCTX MAP FORMAT  @AL00221 00494400
00055E 47F0 A566            00566  3205          B     MSVSCTX2                                        @AL00221 00494500
000562                             3206 MSVSCTX1 DS    0H                                              @AL00221 00494600
000562 4140 A9B2            009B2  3207          LA    R4,MSVMIX1          SCTX LTTR DISPLACEMENTS              00495000
000566                             3208 MSVSCTX2 DS    0H                                              @AL00221 00495100
000566 4580 A81A            0081A  3209          BAL   R8,MSVTTRMP         MAP SCTX                             00496000
00056A 4580 A864            00864  3210          BAL   R8,MSVJCBIN         WRITE SCTX TO JCBIN                  00497000


                                   3212 *********************************************************************** 00499000
                                   3213 *              MAP SIOT                                               * 00500000
                                   3214 *********************************************************************** 00501000
00056E                             3215 MSVSIOTM DS    0H                                                       00502000
00056E 4850 D088            00088  3216          LH    R5,MSQSIOT          GET SIOT LTTR                        00503000
000572 4950 C42C            0042C  3217          CH    R5,TVTRMFF          HAS SIOT CHAIN BEEN MAPPED?          00504000
000576 4780 A47E            0047E  3218          BC    EQ,MSVSCTMP         YES, GET NXT STEP                    00505000
00057A 1255                        3219          LTR   R5,R5               ANY MORE SIOT'S                      00506000
00057C 4780 A670            00670  3220          BC    ZERO,MSVSIOTX       NO, SET SIOT SWITCH                  00507000
000580 4520 A890            00890  3221          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00508000
000000                             3222          USING EASIOT,R7                                                00509000
000584 D201 D080 7021 00080 00021  3223          MVC   MSQCJFCB,SCTPJFCB+1 SAVE JFCB LTTR                       00510000
00058A D201 D088 701D 00088 0001D  3224          MVC   MSQSIOT,SCTPSIOT+1  SAVE NEXT SIOT LTTR                  00511000
000590 9108 703A      0003A        3225          TM    SCTSBYT3,SYSOUT     SYSOUT SPECIFIED?                    00512000
000594 4780 A5A4            005A4  3226          BC    ALLOFF,MSVSIOT1     NO, BYPASS DSB PROCESSING            00513000
000598 D201 D08E 7055 0008E 00055  3227          MVC   MSQDSB,SIOTDPOP+1   DSB LTTR                    @AA35381 00514000
00059E D201 D090 7050 00090 00050  3228          MVC   MSQCLASS,SCTOUTPN   SAVE MSGCLASS                        00515000
0005A4                             3229 MSVSIOT1 DS    0H                                                       00516000
0005A4 4140 A99A            0099A  3230          LA    R4,MSVSIOT          SIOT LTTR DISPLACEMENTS              00517000
0005A8 4580 A804            00804  3231          BAL   R8,MSVTTRSI         MAP SIOT                             00518000
0005AC 4580 A864            00864  3232          BAL   R8,MSVJCBIN         WRITE SIOT TO JCBIN                  00519000


                                   3234 *********************************************************************** 00521000
                                   3235 *              MAP JFCB & JFCBX                                       * 00522000
                                   3236 *********************************************************************** 00523000
0005B0                             3237 MSVJFCB2 DS    0H                                                       00524000
0005B0 4590 A43A            0043A  3238          BAL   R9,MSVJFCBM         MAP JFCB & JFCBX                     00525000
MSVQ   MAPPING ROUTINES (CHANGE LTTR TO ATTR)                                                                  PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3240 *********************************************************************** 00527000
                                   3241 *              MAP DSB & UPDATE SCD                                   * 00528000
                                   3242 *********************************************************************** 00529000
0005B4                             3243 MSVDSBMP DS    0H                                                       00530000
0005B4 4850 D08E            0008E  3244          LH    R5,MSQDSB           DSB LTTR                             00531000
0005B8 1255                        3245          LTR   R5,R5               ANY DSB LTTR?                        00532000
0005BA 4780 A56E            0056E  3246          BC    ZERO,MSVSIOTM       NO, MAP NXT SIOT                     00533000
0005BE                             3247 MSVDSBM0 DS    0H                                                       00534000
0000B0                             3248          USING ACTDSKAD,R7                                     @AA35381 00534500
0005BE 4520 A890            00890  3249          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00535000
0005C2 D201 D08E 7005 0008E 000B5  3250          MVC   MSQDSB,ACTNEXT+1    SAVE FWD PTR                @AA35381 00535500
0005C8 4140 A9B6            009B6  3251          LA    R4,MSVMIX2          DSB LTTR DISPLACEMENTS               00536000
0005CC 4580 A81A            0081A  3252          BAL   R8,MSVTTRMP         MAP DSB                              00537000
0005D0 4580 A864            00864  3253          BAL   R8,MSVJCBIN         WRITE DSB TO JCBIN                   00538000
0005D4 4850 D08E            0008E  3254          LH    R5,MSQDSB           GET FWD PTR                 @AA35381 00538100
0005D8 4520 A890            00890  3255          BAL   R2,MSVCBPTR         GET NEXT DSB                @AA35381 00538200
0005DC D601 7005 7005 000B5 000B5  3256          OC    ACTNEXT+1(2),ACTNEXT+1 FURTHER FWD PTR?         @AA35381 00538300
0005E2 4770 A5F2            005F2  3257          BC    NZERO,MSVDSBM1      YES, NXT SIOT WILL GET IT   @AA35381 00538400
0005E6 4140 A9B6            009B6  3258          LA    R4,MSVMIX2          DSP LTTR DISPLACMENTS       @AA35381 00538500
0005EA 4580 A81A            0081A  3259          BAL   R8,MSVTTRMP         MAP DUMMY DSB               @AA35381 00538600
0005EE 4580 A864            00864  3260          BAL   R8,MSVJCBIN         WRITE DUMMY DSB TO JCBIN    @AA35381 00538700
0005F2                             3261 MSVDSBM1 DS    0H                                              @AA35381 00538800
                                   3262          DROP  R7                                              @AA35381 00538900
0005F2 D701 D08E D08E 0008E 0008E  3263          XC    MSQDSB,MSQDSB       CLEAR DSB PTR                        00539000
                                   3264          RICLOSE                   CLOSE FILE TO PREVENT BAD DATA       00540000
0005F8 58F0 C15C            0015C  3265+         L     R15,RICLOSE -       PTR TO RICLOSE MODULE
0005FC 05EF                        3266+         BALR  R14,R15 -           PERFORM CLOSE
0005FE 4520 A7AE            007AE  3267 MSVDSBM2 BAL   R2,MSVEMTCH         FIND RECORD ENTRY/ASSIGN WORK MATCH  00541000
000000                             3268          USING MSVWKMAP,R8                                              00542000
000602 4850 D07A            0007A  3269          LH    R5,MSQSCD           PTR TO SCD                           00543000
000606                             3270 MSVDSBM3 DS    0H                                                       00544000
000606 4520 A890            00890  3271          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00545000
00060A 5070 B09C            0009C  3272          ST    R7,FCTWORK+4        SAVE SCD PTR                         00546000
000000                             3273          USING EASCD,R7                                                 00547000
00060E 1F99                        3274          SLR   R9,R9               CLEAR SCD ENTRY COUNTER              00548000
000610 D500 7000 D090 00000 00090  3275 MSVDSBM4 CLC   SCDCLAS,MSQCLASS    SAME MSGCLASS?                       00549000
000616 4780 A62E            0062E  3276          BC    EQ,MSVDSBM5         YES, UPDATE SCB                      00550000
00061A 4199 0001            00001  3277          LA    R9,1(R9)            BUMP MSGCLASS COUNTER                00551000
00061E 4990 A9F8            009F8  3278          CH    R9,=H'23'           AT LAST ENTRY?                       00552000
000622 4780 A65E            0065E  3279          BC    EQ,MSVDSBM6         YES, GET SECOND SCD                  00553000
000626 4170 7007            00007  3280          LA    R7,SCDESIZ          PTR TO NEXT ENTRY                    00554000
00062A 47F0 A610            00610  3281          B     MSVDSBM4            TRY THIS ENTRY                       00555000
00062E                             3282 MSVDSBM5 DS    0H                                                       00556000
000000                             3283          USING IOPARAMS,R9                                              00557000
00062E 4190 800C            0000C  3284          LA    R9,MSVWKQ           PTR TO QMPA                          00558000
000632 D201 7001 9009 00001 00009  3285          MVC   SCDNN1,QMFLT        NN OF FIRST LTH                      00559000
000638 D200 7003 900B 00003 0000B  3286          MVC   SCDNOR,QMTST        NO. OF RECORDS IN LAST LTH           00560000
00063E D200 7004 900E 00004 0000E  3287          MVC   SCDNOL,QMNOT        NO. OF LTH'S                         00561000
000644 D201 7005 9014 00005 00014  3288          MVC   SCDNN2,QMTID        NN OF THIS LTH                       00562000
00064A 1816                        3289          LR    R1,R6               PTR TO SCD RECORD                    00563000
                                   3290          RIPUT LTTR=(R5),DATA=(R1) WRITE OUT UPDATED SCD                00564000
00064C 1805                        3291+         LR    R0,R5
00064E 58F0 C168            00168  3292+         L     R15,RIPUT -         PTR TO RIPUT MODULE
000652 05EF                        3293+         BALR  R14,R15 -           PERFORM WRITE
                                   3294+* NRM R15=RETURN CODE
MSVQ   MAPPING ROUTINES (CHANGE LTTR TO ATTR)                                                                  PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3295          RICLOSE                   CLOSE FILES TO WRITE TO DISK         00565000
000654 58F0 C15C            0015C  3296+         L     R15,RICLOSE -       PTR TO RICLOSE MODULE
000658 05EF                        3297+         BALR  R14,R15 -           PERFORM CLOSE
00065A 47F0 A56E            0056E  3298          B     MSVSIOTM            GET NXT SIOT                         00566000
00065E                             3299 MSVDSBM6 DS    0H                                                       00567000
00065E 5870 B09C            0009C  3300          L     R7,FCTWORK+4        RESTORE SCD PTR                      00568000
000662 D201 B098 70AD 00098 000AD  3301          MVC   FCTWORK(2),SCDNTTR+1 MOVE NXT SCD PTR                    00569000
000668 4850 B098            00098  3302          LH    R5,FCTWORK          GET NEXT LTTR OF SCD                 00570000
00066C 47F0 A606            00606  3303          B     MSVDSBM3            TRY SCD EXTENTION                    00571000
000670 D201 D088 C42C 00088 0042C  3304 MSVSIOTX MVC   MSQSIOT,TVTRMFF     SET SIOT HANDLED FLAG                00572000
000676 47F0 A47E            0047E  3305          B     MSVSCTMP            GET NXT STEP                         00573000


                                   3307 *********************************************************************** 00575000
                                   3308 *              MAP SCD                                                * 00576000
                                   3309 *********************************************************************** 00577000
00067A                             3310 MSVSCDMP DS    0H                                                       00578000
00067A 4850 D08A            0008A  3311          LH    R5,MSQSMBSV         LAST SMB LTTR                        00579000
00067E 4520 A7AE            007AE  3312          BAL   R2,MSVEMTCH         FIND RECORD ENTRY/ASSIGN WORK MATCH  00580000
000000                             3313          USING MSVWKMAP,R8                                              00581000
000682 4850 D07A            0007A  3314          LH    R5,MSQSCD           SCD LTTR                             00582000
000686 4520 A890            00890  3315          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00583000
000000                             3316          USING EASCD,R7                                                 00584000
00068A 4190 800C            0000C  3317          LA    R9,MSVWKQ           PTR TO QMPA                          00585000
000000                             3318          USING IOPARAMS,R9                                              00586000
00068E D201 7001 9009 00001 00009  3319          MVC   SCDNN1,QMFLT        NN OF FIRST LTH                      00587000
000694 D200 7003 900B 00003 0000B  3320          MVC   SCDNOR,QMTST        NO. OF RECORDS IN LAST LTH           00588000
00069A D200 7004 900E 00004 0000E  3321          MVC   SCDNOL,QMNOT        NO. OF LTH'S                         00589000
0006A0 D201 7005 9014 00005 00014  3322          MVC   SCDNN2,QMTID        NN OF THIS LTH                       00590000
0006A6 5890 D058            00058  3323          L     R9,MSQMPC           PTR TO MPCDATA                       00591000
000000                             3324          USING MPCSTART,R9                                              00592000
0006AA D200 7000 9046 00000 00046  3325          MVC   SCDCLAS,MPMSGCLS    SET JOB MSGCLASS                     00593000
0006B0 D201 D07A 70AD 0007A 000AD  3326          MVC   MSQSCD,SCDNTTR+1    SAVE NXT SCD                         00594000
0006B6 4140 A9AA            009AA  3327          LA    R4,MSVSCD           SCD LTTR DISPLACEMENTS               00595000
0006BA 4580 A81A            0081A  3328          BAL   R8,MSVTTRMP         MAP SCD                              00596000
0006BE 4580 A864            00864  3329          BAL   R8,MSVJCBIN         WRITE SCD TO JCBIN                   00597000
0006C2 4850 D07A            0007A  3330          LH    R5,MSQSCD           NXT SCD LTTR                         00598000
0006C6 1255                        3331          LTR   R5,R5               ANY MORE SCD'S                       00599000
0006C8 4780 A6DC            006DC  3332          BC    ZERO,MSVJMRMP       NO, MAP JMR                          00600000
0006CC 4520 A890            00890  3333          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00601000
0006D0 4140 A9BC            009BC  3334          LA    R4,MSVMIX3          SECOND SCD MAP DISPLACEMENT          00602000
0006D4 4580 A81A            0081A  3335          BAL   R8,MSVTTRMP         MAP SECOND SCD                       00603000
0006D8 4580 A864            00864  3336          BAL   R8,MSVJCBIN         WRITE SECOND SCD TO JCBIN            00604000


                                   3338 *********************************************************************** 00606000
                                   3339 *              MAP JMR                                                * 00607000
                                   3340 *********************************************************************** 00608000
0006DC                             3341 MSVJMRMP DS    0H                                                       00609000
0006DC 4850 D082            00082  3342          LH    R5,MSQJMR           JMR LTTR                             00610000
0006E0 1255                        3343          LTR   R5,R5               ANY JMR LTTR?                        00611000
0006E2 4780 A712            00712  3344          BC    ZERO,MSVCLOSE       NO, CLOSE FILES                      00612000
0006E6 4520 A890            00890  3345          BAL   R2,MSVCBPTR         GET CONTROL BLOCK PTR                00613000
000000                             3346          USING JMR,R7                                                   00614000
0006EA D201 7010 9043 00010 00043  3347          MVC   JMRCPUID(2),MPSMFID SET SMF CUP ID                       00615000
MSVQ   MAPPING ROUTINES (CHANGE LTTR TO ATTR)                                                                  PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0006F0 D201 7012 903F 00012 0003F  3348          MVC   JMRCPUID+2(2),MPMODEL+1                         @AA28811 00615100
0006F6 58F0 D054            00054  3349          L     R15,MSQMSVD           Restore MSVDATA pointer   @TASP804 00615120
000000                             3350          USING MSVDATA,R15           Address MSVDATA           @TASP804 00615200
0006FA D203 7014 A9F4 00014 009F4  3351          MVC   JMRUSEID(4),=C'JOB '  Set ASP job number        @TASP804 00615220
000700 D203 7018 F038 00018 00038  3352          MVC   JMRUSEID+4(4),MSJOBNUM  in JMR                  @TASP804 00615240
                                   3353          DROP  R15                   End MSVDATA addressing    @TASP804 00615260
000706 4140 A9BC            009BC  3354          LA    R4,MSVMIX3          JMR MAP DISPLACEMENTS                00616000
00070A 4580 A81A            0081A  3355          BAL   R8,MSVTTRMP         MAP JMR                              00617000
00070E 4580 A864            00864  3356          BAL   R8,MSVJCBIN         WRITE JMR TO JCBIN                   00618000
                                   3357 *********************************************************************** 00619000
                                   3358 *              CLOSE JCBIN & CLEAN UP CORE                            * 00620000
                                   3359 *********************************************************************** 00621000
000712                             3360 MSVCLOSE DS    0H                                                       00622000
000712 5810 D05C            0005C  3361          L     R1,MSQJCBIN         PTR TO JCBIN                         00623000
                                   3362          AWEOF FDB=(R1)                                                 00624000
000716 58F0 C0D4            000D4  3363+         L     R15,AWEOF
00071A 58E0 C084            00084  3364+         L     R14,ASAVE
00071E 05EE                        3365+         BALR  R14,R14
000720 5810 D05C            0005C  3366          L     R1,MSQJCBIN         PTR TO JCBIN                         00625000
                                   3367          ACLOSE FDB=(R1)                                                00626000
000724 58F0 C010            00010  3368+         L     R15,ACLOSE
000728 58E0 C084            00084  3369+         L     R14,ASAVE
00072C 05EE                        3370+         BALR  R14,R14
00072E 5810 D060            00060  3371          L     R1,MSQASGNT         PTR TO ASSIGN TABLE                  00627000
                                   3372          DROP  R3,R8                                                    00628000
000000                             3373          USING MSVWKMAP,R1                                              00629000
000732 5840 1000            00000  3374 MSVCLSE1 L     R4,MSVWKCHN         PTR TO NXT ENTRY                     00630000
000736 4100 00BC            000BC  3375          LA    R0,L'MSVWKSZ        SIZE OF ENTRY                        00631000
                                   3376          APUTMAIN SIZE=(R0),AREA=(R1) FREE CORE                         00632000
00073A 5400 C428            00428  3377+         N     R0,TVTADMSK
00073E 43E0 C3E6            003E6  3378+         IC    R14,ASPOOL
000742 89E0 0018            00018  3379+         SLL   R14,24
000746 160E                        3380+         OR    R0,R14
000748 58F0 C078            00078  3381+         L     R15,APUTMAIN
00074C 58E0 C084            00084  3382+         L     R14,ASAVE
000750 05EE                        3383+         BALR  R14,R14
000752 1214                        3384          LTR   R1,R4               ANY MORE?                            00633000
000754 4770 A732            00732  3385          BC    NZERO,MSVCLSE1      YES, HANDLE NXT WORK AREA            00634000
                                   3386          RICLOSE                   CLOSE RICBAM                         00635000
000758 58F0 C15C            0015C  3387+         L     R15,RICLOSE -       PTR TO RICLOSE MODULE
00075C 05EF                        3388+         BALR  R14,R15 -           PERFORM CLOSE
00075E 5810 D000            00000  3389          L     R1,RIOTABLE         PTR TO RICBAM TABLES                 00636000
000000                             3390          USING RIOTSTRT,R1                                              00637000
000762 5840 1000            00000  3391 MSVCLSE2 L     R4,RIOTCHN          PTR TO NXT TABLE                     00638000
000766 1801                        3392          LR    R0,R1               CHANGE REGS                          00639000
                                   3393          APUTBUF BUFFER=(R0)       FREE TABLE                           00640000
000768 58F0 C074            00074  3394+         L     R15,APUTBUF
00076C 58E0 C084            00084  3395+         L     R14,ASAVE
000770 05EE                        3396+         BALR  R14,R14
000772 1214                        3397          LTR   R1,R4               ANY MORE TABLES?                     00641000
000774 4770 A762            00762  3398          BC    NZERO,MSVCLSE2      YES, FREE NXT TABLE                  00642000


                                   3400 *********************************************************************** 00644000
                                   3401 *              SETUP ASPQRDR FDB & RETURN                             * 00645000
MSVQ   MAPPING ROUTINES (CHANGE LTTR TO ATTR)                                                                  PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3402 *********************************************************************** 00646000
000778                             3403 MSVRETRN DS    0H                                                       00647000
000778 5890 D058            00058  3404          L     R9,MSQMPC           PTR TO MPCDATA              @AA31153 00647500
00077C D203 9374 D05C 00374 0005C  3405          MVC   MPRDFDB,MSQJCBIN    SET UP ASPQRDR FDB                   00648000
000782 181D                        3406          LR    R1,R13              GET MSQDATA PTR                      00649000
000784 4100 00A0            000A0  3407          LA    R0,L'MSQSIZE        SIZE OF MSQDATA                      00650000
000788 58D0 D054            00054  3408          L     R13,MSQMSVD         RESTORE MSVDATA PTR                  00651000
                                   3409          APUTMAIN SIZE=(R0),AREA=(R1) FREE MSQDATA                      00652000
00078C 5400 C428            00428  3410+         N     R0,TVTADMSK
000790 43E0 C3E6            003E6  3411+         IC    R14,ASPOOL
000794 89E0 0018            00018  3412+         SLL   R14,24
000798 160E                        3413+         OR    R0,R14
00079A 58F0 C078            00078  3414+         L     R15,APUTMAIN
00079E 58E0 C084            00084  3415+         L     R14,ASAVE
0007A2 05EE                        3416+         BALR  R14,R14
                                   3417          ARETURN RC=0                                                   00653000
0007A4 58E0 B050            00050  3418+         L     R14,FCTSAVCH
0007A8 58E0 E008            00008  3419+         L     R14,8(0,R14)
0007AC 07FE                        3420+         BR    R14
MSVQ   MSVQMAP SUBROUTINES                                                                                     PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3422 *********************************************************************** 00655000
                                   3423 *              FIND CORRECT ASSIGN WORK ENTRY                         * 00656000
                                   3424 *********************************************************************** 00657000
                                   3425 MSVEMTCH RITPT LTTR=(R5)           PTR TO DSB RECORD ENTRY              00658000
0007AE 1805                        3426+MSVEMTCH LR    R0,R5
0007B0 58F0 C16C            0016C  3427+         L     R15,RITPT -         PTR TO RITPT MODULE         @AL00175
0007B4 05EF                        3428+         BALR  R14,R15 -           PERFORM TABLE POINT
                                   3429+* NRM R1=LTTR ENTRY PTR, R15=RETURN CODE
0007B6 1891                        3430          LR    R9,R1               SAVE RECORD ENTRY PTR                00659000
000000                             3431          USING RIOENTRY,R9                                              00660000
0007B8 5880 D060            00060  3432          L     R8,MSQASGNT         PTR TO ASSIGN WORK TABLE ENTRY       00661000
000000                             3433          USING MSVWKMAP,R8                                              00662000
0007BC D200 B098 9001 00098 00001  3434 MSVEMTC1 MVC   FCTWORK(1),RIOELTH  SAVE QUEUE ID                        00663000
0007C2 947F B098      00098        3435          NI    FCTWORK,255-RIOEASGN TURN OFF ASSIGN START               00664000
0007C6 D500 B098 8006 00098 00006  3436          CLC   FCTWORK(1),MSVWKID  SAME QUEUE ID?                       00665000
0007CC 0782                        3437          BCR   EQ,R2               YES, HANDLE SCD UPDATE               00666000
0007CE 5880 8000            00000  3438          L     R8,MSVWKCHN         PTR TO NXT WORK ENTRY                00667000
0007D2 47F0 A7BC            007BC  3439          B     MSVEMTC1            GET CORRECT ENTRY                    00668000
                                   3440          DROP  R9                                                       00669000


                                   3442 *********************************************************************** 00671000
                                   3443 *              OBTAIN CORE ROUTINE                                    * 00672000
                                   3444 *********************************************************************** 00673000
0007D6                             3445 MSVCORE  DS    0H                                                       00674000
0007D6 1804                        3446          LR    R0,R4                                                    00675000
                                   3447          AGETMAIN SIZE=(R0),BUSY=MSVCOREW,NORMAL=(R6)                   00676000
0007D8 5400 C428            00428  3448+         N     R0,TVTADMSK
0007DC 43E0 C3E6            003E6  3449+         IC    R14,ASPOOL
0007E0 89E0 0018            00018  3450+         SLL   R14,24
0007E4 160E                        3451+         OR    R0,R14
0007E6 5810 C42C            0042C  3452+         L     R1,TVTRMFF
0007EA 58F0 C044            00044  3453+         L     R15,AGETMAIN
0007EE 58E0 C084            00084  3454+         L     R14,ASAVE
0007F2 05EE                        3455+         BALR  R14,R14
0007F4 47F0 A7FA            007FA  3456+         B     MSVCOREW -            BUSY RETURN
0007F8 07F6                        3457+         BR    R6 -               NORMAL RETURN
                                   3458+* BSY R0=ECF MASK+ADDRESS
                                   3459+* NRM R0 AND R1=STORAGE ADDRESS
                                   3460 MSVCOREW AWAIT ECFMASK=(R0),ECFADD=(R0),NORMAL=MSVCORE                  00677000
0007FA                             3461+MSVCOREW DS    0H
0007FA 58F0 C0C4            000C4  3462+         L     R15,AWAIT
0007FE 05EF                        3463+         BALR  R14,R15
000800 47F0 A7D6            007D6  3464+         B     MSVCORE -            NORMAL RETURN


                                   3466 *********************************************************************** 00679000
                                   3467 *              LTTR MAPPING                                           * 00680000
                                   3468 *********************************************************************** 00681000
000000                             3469          USING RIREC,R6                                                 00682000
000804                             3470 MSVTTRSI DS    0H                                                       00683000
000804 D503 703C C420 0003C 00420  3471          CLC   SCTUTYPE-EASIOT(4,R7),TVTBLANK FIRST FOUR BLANK?         00684000
00080A 4770 A81A            0081A  3472          BC    NE,MSVTTRMP         NO, NOT PTF US01475                  00685000
00080E 95FF 7040      00040        3473          CLI   SCTUTYPE-EASIOT+4(R7),FF CHECK FURTHER - PTF?            00686000
000812 4770 A81A            0081A  3474          BC    NE,MSVTTRMP         NO, NOT PTF US01475                  00687000
MSVQ   MSVQMAP SUBROUTINES                                                                                     PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000816 4140 A998            00998  3475          LA    R4,MSVSIOTA         YES, MAP HIDDEN TTR                  00688000
00081A                             3476 MSVTTRMP DS    0H                                                       00689000
00081A 95FF 4000      00000        3477          CLI   0(R4),255           ANY MORE DISPLACEMENTS               00690000
00081E 4780 A84C            0084C  3478          BC    EQ,MSVTTRMC         NO, CONVERT RECORD LTTR              00691000
000822 4834 0000            00000  3479          LH    R3,0(R4)            LOAD DISPLACEMENT                    00692000
000826 1A37                        3480          AR    R3,R7               PTR TO TTR                           00693000
000828 D201 B098 3001 00098 00001  3481          MVC   FCTWORK(2),1(R3)    MOVE LTTR                            00694000
00082E 4800 B098            00098  3482          LH    R0,FCTWORK          GET LTTR                             00695000
000832 1200                        3483          LTR   R0,R0               GET ANY LTTR?                        00696000
000834 4780 A844            00844  3484          BC    ZERO,MSVTTRMB       NO, BYPASS TABLE POINT               00697000
                                   3485          RITPT LTTR=(R0)           PTR TO LTTR                          00698000
000838 58F0 C16C            0016C  3486+         L     R15,RITPT -         PTR TO RITPT MODULE         @AL00175
00083C 05EF                        3487+         BALR  R14,R15 -           PERFORM TABLE POINT
                                   3488+* NRM R1=LTTR ENTRY PTR, R15=RETURN CODE
000000                             3489          USING RIOENTRY,R1                                              00699000
00083E D202 3000 1005 00000 00005  3490          MVC   0(3,R3),RIOEATTR+1  MOVE ATTR                            00700000
000844 4144 0002            00002  3491 MSVTTRMB LA    R4,2(R4)            BUMP TO NXT ENTRY                    00701000
000848 47F0 A81A            0081A  3492          B     MSVTTRMP            YES, MAP NXT ENTRY                   00702000
00084C                             3493 MSVTTRMC DS    0H                                                       00703000
00084C D201 B098 6001 00098 00001  3494          MVC   FCTWORK(2),RIRATTR  GET LTTR                             00704000
000852 4800 B098            00098  3495          LH    R0,FCTWORK          LOAD LTTR                            00705000
                                   3496          RITPT LTTR=(R0)           GET RECORD LTTR ENTRY                00706000
000856 58F0 C16C            0016C  3497+         L     R15,RITPT -         PTR TO RITPT MODULE         @AL00175
00085A 05EF                        3498+         BALR  R14,R15 -           PERFORM TABLE POINT
                                   3499+* NRM R1=LTTR ENTRY PTR, R15=RETURN CODE
00085C D202 6001 1005 00001 00005  3500          MVC   RIRATTR,RIOEATTR+1  SET RECORD ACTUAL TTR                00707000
000862 07F8                        3501          BR    R8                  RETURN TO CALLER                     00708000



                                   3503          DROP  R6                                                       00710000


                                   3505 *********************************************************************** 00712000
                                   3506 *              WRITE RECORD TO JCBIN                                  * 00713000
                                   3507 *********************************************************************** 00714000
000864                             3508 MSVJCBIN DS    0H                                                       00715000
                                   3509          LA    R0,&SIZE            SIZE OF RECORD                       00716000
000864 4100 00B4            000B4                LA    R0,180 SIZE OF RECORD
000868 5810 D05C            0005C  3510          L     R1,MSQJCBIN         PTR TO JCBIN FDB                     00717000
                                   3511          ALOCATE FDB=(R1),COUNT=(R0) LOCATE SPACE                       00718000
00086C 58F0 C058            00058  3512+         L     R15,ALOCATE
000870 58E0 C084            00084  3513+         L     R14,ASAVE
000874 05EE                        3514+         BALR  R14,R14
                                   3515+* NRM R1=DATA ADDRESS
                                   3516          MVC   0(&SIZE,R1),0(R6)   MOVE DATA                            00719000
000876 D2B3 1000 6000 00000 00000                MVC   0(180,R1),0(R6) MOVE DATA
                                   3517          LA    R0,&SIZE            SIZE OF RECORD                       00720000
00087C 4100 00B4            000B4                LA    R0,180 SIZE OF RECORD
000880 5810 D05C            0005C  3518          L     R1,MSQJCBIN         PTR TO JCBIN FDB                     00721000
                                   3519          ABLOCK FDB=(R1),COUNT=(R0) BLOCK RECORD                        00722000
000884 58F0 C008            00008  3520+         L     R15,ABLOCK
000888 58E0 C084            00084  3521+         L     R14,ASAVE
00088C 05EE                        3522+         BALR  R14,R14
00088E 07F8                        3523          BR    R8                                                       00723000
MSVQ   MSVQMAP SUBROUTINES                                                                                     PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3525 *********************************************************************** 00725000
                                   3526 *********************************************************************** 00726000
                                   3527 *              GET CONTROL BLOCK PTR                                  * 00727000
000890                             3528 MSVCBPTR DS    0H                                                       00728000
                                   3529          RIGET LTTR=(R5)           GET RECORD                           00729000
000890 1805                        3530+         LR    R0,R5
000892 58F0 C164            00164  3531+         L     R15,RIGET -         PTR TO RIGET MODULE
000896 05EF                        3532+         BALR  R14,R15 -           PERFORM READ
                                   3533+* NRM R1=RECORD PTR, R15=RETURN CODE
000898 1861                        3534          LR    R6,R1               GET PTR TO RECORD                    00730000
00089A 12FF                        3535          LTR   R15,R15             INVALID PARAMETER GIVEN?             00731000
00089C 4770 A8B0            008B0  3536          BC    NZERO,MSVCBPT       YES, BYPAS REST OF MAP      @AM00259 00732000
000000                             3537          USING RIREC,R6                                                 00733000
0008A0 4050 B098            00098  3538          STH   R5,FCTWORK          SAVE LTTR NUMBER                     00734000
0008A4 D201 6001 B098 00001 00098  3539          MVC   RIRATTR(2),FCTWORK  ENSURE LTTR VALUE                    00735000
0008AA 4170 6004            00004  3540          LA    R7,RIRCB            PTR TO CONTROL BLOCK                 00736000
0008AE 07F2                        3541          BR    R2                  RETURN TO CALLER                     00737000
0008B0                             3542 MSVCBPT  DS    0H                                              @AM00259 00737010
0008B0 5890 D058            00058  3543          L     R9,MSQMPC           PTR TO MPCDATA              @AM00259 00737020
000000                             3544          USING MPCSTART,R9                                     @AM00259 00737030
0008B4 D703 9364 9364 00364 00364  3545          XC    MPMSVJOB,MPMSVJOB   CLEAR RESQUEUE PTR          @AM00259 00737040
0008BA 5890 D054            00054  3546          L     R9,MSQMSVD          PTR TO MSVDATA              @AM00259 00737050
000000                             3547          USING MSVDATA,R9                                      @AM00259 00737065
0008BE 5880 9014            00014  3548          L     R8,MSGFDB           PTR TO SYSMSG               @AM00259 00737070
0008C2 4160 9044            00044  3549          LA    R6,MSJOBTAT         PTR TO TAT                  @AM00259 00737080
0008C6 9500 8000      00000        3550          CLI   0(R8),0             SYSMSG OPEN?                @AM00259 00737090
0008CA 4780 A8DC            008DC  3551          BC    EQ,MSVCBPT1         YES, CONT.                  @AM00259 00737100
                                   3552          AOPEND FDB=(R8),TATPTR=(R6) OPEN SYSMSG               @AM00259 00737110
0008CE 1818                        3553+         LR    R1,R8
0008D0 1806                        3554+         LR    R0,R6
0008D2 58F0 C068            00068  3555+         L     R15,AOPEND
0008D6 58E0 C084            00084  3556+         L     R14,ASAVE
0008DA 05EE                        3557+         BALR  R14,R14
0008DC                             3558 MSVCBPT1 DS    0H                                              @AM00259 00737120
0008DC 1F00                        3559          SLR   R0,R0               CLEAR REG                   @AM00259 00737130
0008DE 4300 A914            00914  3560          IC    R0,MSVCBM           SIZE OF MSG                 @AM00259 00737140
0008E2 1820                        3561          LR    R2,R0               SAVE SIZE                   @AM00259 00737150
                                   3562          ALOCATE FDB=(R8),COUNT=(R0) LOCATE SPACE              @AM00259 00737160
0008E4 1818                        3563+         LR    R1,R8
0008E6 58F0 C058            00058  3564+         L     R15,ALOCATE
0008EA 58E0 C084            00084  3565+         L     R14,ASAVE
0008EE 05EE                        3566+         BALR  R14,R14
                                   3567+* NRM R1=DATA ADDRESS
0008F0 D225 1000 A915 00000 00915  3568          MVC   0(MSVCBME-MSVCBM-1,R1),MSVCBM+1 MVE MSG         @AM00259 00737170
0008F6 1802                        3569          LR    R0,R2               RESET SIZE                  @AM00259 00737180
                                   3570          ABLOCK FDB=(R8),COUNT=(R0) BLOCK MSG                  @AM00259 00737190
0008F8 1818                        3571+         LR    R1,R8
0008FA 58F0 C008            00008  3572+         L     R15,ABLOCK
0008FE 58E0 C084            00084  3573+         L     R14,ASAVE
000902 05EE                        3574+         BALR  R14,R14
                                   3575          ACLOSE FDB=(R8)           CLOSE SYSMSG                @AM00259 00737200
000904 1818                        3576+         LR    R1,R8
000906 58F0 C010            00010  3577+         L     R15,ACLOSE
00090A 58E0 C084            00084  3578+         L     R14,ASAVE
00090E 05EE                        3579+         BALR  R14,R14
MSVQ   MSVQMAP SUBROUTINES                                                                                     PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000910 47F0 A712            00712  3580          B     MSVCLOSE            NOW LEAVE                   @AM00259 00737210
000914 26                          3581 MSVCBM   DC    AL1(MSVCBME-MSVCBM-1)                           @AM00259 00737220
000915 C1D9C9F0F5F1C940            3582          DC    C'ARI051I UNCORRECTABLE ERROR IN MSVCBUP'       @AM00259 00737230
00093B                             3583 MSVCBME  DS    0X                                              @AM00259 00737240
MSVQ   MSVQMAP CONSTANTS + LITERAL POOL                                                                        PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3585 *********************************************************************** 00739000
                                   3586 *              CONSTANTS AND EQUATES                                  * 00740000
                                   3587 *********************************************************************** 00741000
00093B 06                          3588 MSVATTR  DC    AL1(MSVATTRE-MSVATTR-1) LENGTH IF ID                     00742000
00093C C1E3E3D9F0F0                3589          DC    C'ATTR00'           RECEIVE ID FOR ASSIGN COMMAND        00743000
000942                             3590 MSVATTRE EQU   *                   END OF ID                            00744000
000058                             3591 JCTDETDA EQU   JCTRSW2+1           PTR TO DSENQ TTR OF JCT              00745000
0000A8                             3592 SCTEQTTR EQU   SCTABCND+8          PTR TO 1ST SMB OF MSGCLASS IN SCT    00746000
0000AD                             3593 SCTAISMB EQU   SCTABCND+13         PTR TO LAST SMB OF STEP IN SCT       00747000
000008                             3594 SYSOUT   EQU   X'08' -             SCT SCTSBYT3 - SYSOUT SPECIFIED      00748000
000881                             3595 MSVCTTAB EQU   *-193               BEGINNING OF CLASS TRANS TABLE       00749000
000942 28292A2B2C2D2E2F            3596          DC    X'28292A2B2C2D2E2F30' TRANSLATE TABLE                    00750000
00094B 00000000000000              3597          DC    XL7'00'               FOR                                00751000
000952 313233343536                3598          DC    X'313233343536'       OS QMPA CLASS - QMTPY              00752000




                                   3600 *********************************************************************** 00754000
                                   3601 *              CONTROL BLOCK DISPLACEMENT TABLES                      * 00755000
                                   3602 *********************************************************************** 00756000

000958                             3604 MSVJCT   DS    0H                  JCT DISPLACEMENTS                    00758000
000958 0000                        3605          DC    AL2(JCTDSKAD-EAJCT) JCT TTR                              00759000
00095A 0020                        3606          DC    AL2(JCTSDKAD-EAJCT) FIRST SCT TTR                        00760000
00095C 0024                        3607          DC    AL2(JCTSMBAD-EAJCT) FIRST SMB TTR                        00761000
00095E 0028                        3608          DC    AL2(JCTACTAD-EAJCT) FIRST ACT TTR                        00762000
000960 002C                        3609          DC    AL2(JCTDSSBA-EAJCT) FIRST SCD TTR                        00763000
000962 0030                        3610          DC    AL2(JCTDSBAD-EAJCT) LAST DSB TTR                         00764000
000964 0058                        3611          DC    AL2(JCTDETDA-EAJCT) DSENQ TTR                            00765000
000966 0068                        3612          DC    AL2(JCTCKTTR-EAJCT) CK/PT JFCB TTR                       00766000
000968 0070                        3613          DC    AL2(JCTSSTR-EAJCT)  FIRST RUN SCT TTR                    00767000
00096A 0086                        3614          DC    AL2(JCTJMR-EAJCT)   JMR TTR                              00768000
00096C FFFF                        3615          DC    X'FFFF'             END OF JCT DISPLACEMENTS             00769000


00096E                             3617 MSVSCT   DS    0H                  SCT DISPLACEMENTS                    00771000
00096E 0000                        3618          DC    AL2(SCTDISKA-EASCT) SCT TTR                              00772000
000970 000C                        3619          DC    AL2(SCTFSIOT-EASCT) FIRST SIOT TTR                       00773000
000972 0014                        3620          DC    AL2(SCTANSCT-EASCT) NXT SCT TTR                          00774000
000974 0018                        3621          DC    AL2(SCTAFSMB-EASCT) NXT STEP FIRST SMB TTR               00775000
000976 001C                        3622          DC    AL2(SCTADSMB-EASCT) LAST SMB TTR                         00776000
000978 0020                        3623          DC    AL2(SCTAFACT-EASCT) FIRST ACT TTR                        00777000
00097A 0024                        3624          DC    AL2(SCTVOLTB-EASCT) VOLT TTR                             00778000
00097C 0028                        3625          DC    AL2(SCTADSTB-EASCT) DSNT TTR                             00779000
00097E 0044                        3626          DC    AL2(SCTXBTTR-EASCT) SCTX TTR                             00780000
000980 0064                        3627          DC    AL2(SCTGOTTR-EASCT) PGM=* SIOT TTR                       00781000
000982 0079                        3628          DC    AL2(SCTSDPSA-EASCT) 1ST STEP DEP SCT TTR                 00782000
000984 007F                        3629          DC    AL2(SCTSDPSA-EASCT+6) 2ND STEP DEP SCT TTR               00783000
000986 0085                        3630          DC    AL2(SCTSDPSA-EASCT+12) 3RD STEP DEP SCT TTR              00784000
000988 008B                        3631          DC    AL2(SCTSDPSA-EASCT+18) 4TH STEP DEP SCT TTR              00785000
00098A 0091                        3632          DC    AL2(SCTSDPSA-EASCT+24) 5TH STEP DEP SCT TTR              00786000
00098C 0097                        3633          DC    AL2(SCTSDPSA-EASCT+30) 6TH STEP DEP SCT TTR              00787000
00098E 009D                        3634          DC    AL2(SCTSDPSA-EASCT+36) 7TH STEP DEP SCT TTR              00788000
000990 00A3                        3635          DC    AL2(SCTSDPSA-EASCT+42)                          @AM00324 00789000
MSVQ   MSVQMAP CONSTANTS + LITERAL POOL                                                                        PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000992 00A8                        3636          DC    AL2(SCTEQTTR-EASCT) FIRST MSGCLASS SMB TTR               00790000
000994 00AD                        3637          DC    AL2(SCTAISMB-EASCT) LAST SMB TTR                         00791000
000996 FFFF                        3638          DC    X'FFFF'             END OF SCT DISPLACEMENTS             00792000


000998                             3640 MSVSIOTA DS    0H                                                       00794000
000998 0041                        3641          DC    AL2(SCTUTYPE-EASIOT+5) SIOT TTR - PTF US01475            00795000
00099A                             3642 MSVSIOT  DS    0H                  SIOT DISPLACEMENTS                   00796000
00099A 0000                        3643          DC    AL2(SIOTDSKA-EASIOT) SIOT TTR                            00797000
00099C 001C                        3644          DC    AL2(SCTPSIOT-EASIOT) NXT SIOT TTR                        00798000
00099E 0020                        3645          DC    AL2(SCTPJFCB-EASIOT) JFCB TTR                            00799000
0009A0 0024                        3646          DC    AL2(SIOTVRSB-EASIOT) VOLREF SIOT TTR                     00800000
0009A2 0028                        3647          DC    AL2(SIOTSTDP-EASIOT) SODP SIOT TTR                       00801000
0009A4 0058                        3648          DC    AL2(SIOTDSCT+1-EASIOT) NXT DSB TTR                       00802000
0009A6 0054                        3649          DC    AL2(SIOTDPOP-EASIOT) DSB TTR                             00803000
0009A8 FFFF                        3650          DC    X'FFFF'             END OF SIOT DISPLACEMENTS            00804000


0009AA                             3652 MSVSCD   DS    0H                  SCD DISPLACEMENT                     00806000
0009AA 00AC                        3653          DC    AL2(SCDNTTR-EASCD)  NXT SCD TTR                          00807000
0009AC FFFF                        3654          DC    X'FFFF'             END OF SCD DISPLACEMENT              00808000


0009AE                             3656 MSVJFCB  DS    0H                  JFCB DISPLACEMENTS                   00810000
0009AE 0095                        3657          DC    AL2(JFCBEXAD-EAJFCB) JFCBX TTR                           00811000
0009B0 FFFF                        3658          DC    X'FFFF'             END OF JFCB DISPLACEMENTS            00812000


0009B2                             3660 MSVMIX1  DS    0H                  JFCBX & SCTX DISPLACEMENTS           00814000
0009B2 0000                        3661          DC    X'0000'             JFCBX/SCTX TTR                       00815000
0009B4 FFFF                        3662          DC    X'FFFF'             END OF JFCBX & SCTX DISPLACEMENT     00816000


0009B6                             3664 MSVMIX2  DS    0H                  ACT/DSB/DSENQ/SMB/VOLT/DSNT DISP     00818000
0009B6 0000                        3665          DC    AL2(ACTDSKAD-ACTDSKAD) ACT/DSB/DSENQ/SMB/VOLT/DSNT TTR   00819000
0009B8 0004                        3666          DC    AL2(ACTNEXT-ACTDSKAD) NXT ACT/DSB/DSENQ/SMB/VOLT/DSNT    00820000
0009BA FFFF                        3667          DC    X'FFFF'             END OF DISPLACEMENT                  00821000


0009BC                             3669 MSVMIX3  DS    0H                  DUMMY DISPLACEMENT                   00823000
0009BC FFFF                        3670          DC    X'FFFF'             END OF DUMMY DISPLACEMENT            00824000
0009BE                             3671 MSVMIXCR DS    0H                  SCTX MAP FMT FOR CKPT/RSTRT @AL00221 00824100
0009BE 0000                        3672          DC    X'0000'                                         @AL00221 00824200
0009C0 0004                        3673          DC    X'0004'                                         @AL00221 00824300
0009C2 FFFF                        3674          DC    X'FFFF'                                         @AL00221 00824400
                                   3675 *********************************************************************** 00825000
                                   3676 *              LITERAL POOL                                           * 00826000
                                   3677 *********************************************************************** 00827000
0009C8                             3678          LTORG                                                          00828000
0009C8 D1C3C2E3C1C24040            3679                =CL8'JCBTAB'
0009D0 D1C3C2C9D5404040            3680                =CL8'JCBIN'
0009D8 D4E2E5C3C2E4D740            3681                =CL8'MSVCBUP'
0009E0 C9C5C6C4E2C4D9D7            3682                =CL8'IEFDSDRP'
0009E8 08000000                    3683                =AL1(8,0,0,0)
0009EC 02000000                    3684                =AL1(2,0,0,0)
MSVQ   MSVQMAP CONSTANTS + LITERAL POOL                                                                        PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0009F0 FF000000                    3685                =X'FF000000'
0009F4 D1D6C240                    3686                =C'JOB '
0009F8 0017                        3687                =H'23'
                                   3688          ATTRMSG TYPE=NULL,MSG=001                                      00829000
                                   3689+***********************************************************************
                                   3690+*              ATTR001 MESSAGE FORMAT                                 *
                                   3691+***********************************************************************
0009FA                             3692+ATTR1    DS    0H -                ATTR001 MSG
0009FA 18                          3693+ATTR1LEN DC    AL1(ATTR1END-*-1) - LENGTH OF MESSAGE (ASP FORMAT)
0009FB C1E3E3D9F0F0F17D            3694+ATTR1HDR DC    CL8'ATTR001''' -    MESSAGE HEADR
000A03 00                          3695+ATTR1QID DC    X'00' -             QUEUE ID
000A04 4040404040404040            3696+ATTR1JNM DC    CL8' ' -            JOB NAME
000A0C 40404040                    3697+ATTR1TOD DC    CL4' ' -            TIME OF DAY IN BINARY       @AA34009
000A10 4040                        3698+ATTR1CNT DC    CL2' ' -            TTR ASSIGN COUNT
000A12 7D                          3699+ATTR1CON DC    CL1'''' -           ENDING QUOTE
000A13                             3700+ATTR1END DS    0X -                END OF TEXT
000A13                             3701+ATTR1SIZ DS    0XL(ATTR1END-ATTR1) SIZE OF MSG


                                   3703          END                                                            00830000
MSVQ                                         CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

AASPMAP  00004 0002D4 02456
ABACKR   00004 000004 02264
ABENDDCB 00004 0002D8 02457
ABLOCK   00004 000008 02265   3520  3572
ABLOCKS  00004 00000C 02266
ABNSADCB 00004 0002DC 02458
ACKCYL   00004 0002E0 02459
ACKDCB   00004 0002E4 02460
ACKEXT   00004 0002E8 02461
ACKHED   00004 0002EC 02462
ACLOSE   00004 000010 02267   2758  3368  3577
ACMF     00004 0002F0 02463
ACONANAL 00004 000014 02268
ACONCONS 00004 0002F8 02465
ACONSBCB 00004 0002F4 02464
ACONSRMT 00004 000018 02269
ACONTIME 00004 00001C 02270
ACST     00004 000200 02401
ACTDSKAD 00003 0000B0 00374   3064  3248  3665  3665  3666
ACTID    00001 000001 00376
ACTIDENT 00001 0000B3 00375
ACTJNFLD 00001 0000CF 00380
ACTJTIME 00003 0000CC 00379
ACTLTRAP 00004 000020 02271
ACTNEXT  00004 0000B4 00377   3065  3250  3256  3256  3666
ACTPRGNM 00020 0000B8 00378
ADEBLOCK 00004 000024 02272   2732
ADEBS    00004 000028 02273
ADELETE  00004 00002C 02274   2975
ADEQ     00004 000030 02275   2276  2311
ADISABLE 00008 000410 02562
ADLTABLE 00004 000204 02402
AENABLE  00008 000408 02561
AENQ     00004 000030 02276
AERRPOOL 00004 0002FC 02466
AFDADD   00004 000034 02277
AFDDELET 00004 000038 02278
AFDFIND  00004 00003C 02279
AFGABNUM 00001 0003DA 02516
AFGACCPC 00016 0003A2 02510
AFGCARDS 00001 000010 02575
AFGCARR  00008 0003B2 02511
AFGCDDMP 00001 000004 02587
AFGCDOFF 00001 000008 02586
AFGDISK  00001 000040 02573
AFGDLOG  00001 000004 02609
AFGDLPST 00001 000040 02594
AFGDMPOS 00001 000004 02598
AFGDMPSA 00001 000002 02599
AFGDTAIL 00001 000008 02576
AFGDUMP  00001 000020 02574
AFGERREC 00001 000020 02617
AFGFALL  00001 000080 02615
AFGFDEST 00001 000004 02577
AFGFETCH 00001 000001 02611
MSVQ                                         CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

AFGFLAG1 00001 0003DB 02517
AFGFLAG2 00001 0003DC 02518
AFGFLAG3 00001 0003DD 02519
AFGFLAG4 00001 0003DE 02520
AFGFLAG5 00001 0003DF 02521
AFGFORMS 00008 0003BA 02512
AFGFSET  00001 000040 02616
AFGGETFG 00001 000001 02600
AFGHALFC 00001 000008 02608
AFGJSCAN 00001 000002 02610
AFGJWAIT 00001 000010 02607
AFGLCSIO 00001 000001 02579
AFGLNDMP 00001 000001 02589
AFGLNOFF 00001 000002 02588
AFGMARG  00001 000040 02605
AFGMIN   00001 000080 02604
AFGMINQ  00001 000020 02585
AFGMLOG  00001 000040 02584
AFGMWAIT 00001 000020 02606
AFGNOPR  00001 0003E0 02522
AFGNOPU  00001 0003E1 02523
AFGRETRY 00001 000008 02597
AFGSEQNO 00001 000080 02583
AFGSETUP 00001 000002 02578
AFGSPIE  00001 000020 02595
AFGSPIER 00001 000010 02596
AFGTRACE 00001 000080 02572
AFGTRAIN 00008 0003C2 02513
AFGUSER  00001 0003E2 02524
AFG3330  00001 000080 02593
AGETBUF  00004 000040 02280   2741
AGETHIAR 00001 0003E5 02525
AGETMAIN 00004 000044 02281   3453
AHALT    00004 000048 02282
AIDACT   00001 000040 02550
AIDATADR 00004 0003F4 02540
AIDCALL  00001 000080 02549
AIDDSP   00001 000402 02559
AIDFLG1  00001 000400 02544
AIDFLG2  00001 000401 02545
AIDISACT 00001 000010 02552
AIDMPCTB 00004 0003FC 02542
AIDNOXIT 00001 000008 02553
AIDRQADD 00001 000080 02555
AIDRQTAD 00001 000040 02556
AIDRQTOP 00004 0003F8 02541
AIDTERM  00001 000020 02551
AINITERM 00004 00004C 02283
AINTDATA 00004 000300 02467
AIOAPEND 00004 000050 02284
AIOBPOOL 00004 000304 02468
AIOPARMS 00004 000308 02469
AJCTFDBS 00004 000208 02403
AJDBTM   00004 000210 02405
AJDTOP   00004 00020C 02404
MSVQ                                         CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ALLOFF   00001 000008 00070   2772  2810  3024  3140  3202  3226
ALLON    00001 000001 00067   2885  3152
ALOAD    00004 000054 02285   2777
ALOADECB 00004 0001E8 02392
ALOADOS  00004 0001E4 02391
ALOADPRM 00004 0001EC 02393
ALOCATE  00004 000058 02286   3512  3564
ALOCATES 00004 00005C 02287
ALTCNUCM 00004 00030C 02470
ALTNTBL  00004 000214 02406
ANEWSFDB 00004 000310 02471
ANJPTAB  00004 000218 02407
ANOTE    00004 000060 02288
AOPEN    00004 000064 02289   2726  2996
AOPEND   00004 000068 02290   3555
APOINT   00004 00006C 02291
APURGE   00004 000070 02292
APUTBUF  00004 000074 02293   3394
APUTMAIN 00004 000078 02294   2955  3381  3414
AREAD    00004 00007C 02295
ARELEASE 00004 000080 02296
ARETURN  00002 000396 02506   2309  2378  2390
ARNAMES  00001 000018 02666
ASAVE    00004 000084 02297   2727  2733  2742  2759  2778  2784  2870  2880  2941  2956  2964  2971  2976  2997  3364
                              3369  3382  3395  3415  3454  3513  3521  3556  3565  3573  3578
ASAVENO  00004 000088 02298
ASETIOB  00004 00008C 02299
ASIO     00004 000090 02300
ASPABND0 00004 000094 02301
ASPCKPNT 00004 000098 02302
ASPCLOSE 00004 00009C 02303
ASPECB   00004 000314 02472
ASPEOV   00004 0000A0 02304
ASPEXCP  00004 0000A4 02305
ASPHIO   00004 0000A8 02306
ASPKEY   00001 0000AC 02307
ASPOOL   00001 0003E6 02526   2952  3378  3411  3449
ASPOPEN  00004 0000AC 02308
ASPSNAP  00004 0000B0 02309
ASPTCB   00004 000318 02473
ASYSIOSP 00004 00031C 02474
ATCH     00004 0000B4 02310
ATEST    00004 000030 02311
ATIME    00004 0000B8 02312
ATIO     00004 0000BC 02313
ATRACE   00004 000398 02507
ATRACK   00004 0000C0 02314
ATTR1    00002 0009FA 03692   2850  2851  3701
ATTR1CNT 00002 000A10 03698   2859  2935
ATTR1CON 00001 000A12 03699
ATTR1END 00001 000A13 03700   3693  3701
ATTR1HDR 00008 0009FB 03694
ATTR1JNM 00008 000A04 03696   2855  2888  2926
ATTR1LEN 00001 0009FA 03693
ATTR1QID 00001 000A03 03695   2858  2934
MSVQ                                         CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ATTR1SIZ 00025 000A13 03701   2847  2850  2948
ATTR1TOD 00004 000A0C 03697   2864  2890  2928
ATTR2    00001 000000 00022   0028  2883
ATTR2END 00001 000014 00027   0028
ATTR2HDR 00008 000000 00023   2886
ATTR2JNM 00008 000008 00024   2888
ATTR2SIZ 00020 000014 00028
ATTR2TOD 00004 000010 00025   2890
ATTR2TTR 00002 000014 00026   2893
ATTR3    00001 000000 00034   0040  2924
ATTR3END 00001 000014 00039   0040
ATTR3HDR 00008 000000 00035
ATTR3JNM 00008 000008 00036   2926
ATTR3QMP 00036 000014 00038   2930
ATTR3SIZ 00020 000014 00040
ATTR3TOD 00004 000010 00037   2928
AWAIT    00001 0000C4 02315   2918  3462
AWAITL   00001 0000C8 02317
AWAITOFF 00001 0000CC 02319
AWAITOFL 00001 0000D0 02321
AWEOF    00004 0000D4 02323   3363
AWRITE   00004 0000D8 02324
BUFSZ    00004 000376 02496
CANCLINT 00004 000320 02475
CDRVFSWK 00004 000324 02476
CHKPNT   00001 000014 02662
CINDEPTH 00001 0003E7 02527
CKPTAREA 00004 000328 02477
CONCNVRT 00004 0000DC 02325
CONSUBPL 00001 0003E8 02528
CTCBUFSZ 00002 000386 02500
DATFREEL 00004 000348 02485
DCTRAPS  00004 0000E0 02326
DEQMSG   00004 0000E4 02327
DEVSCAN  00004 0000E8 02328
DLQ      00001 000011 02659
DRDCB    00004 00032C 02478
DSENQNXT 00004 000004 00010   3082
DSNID    00001 000007 02086
DSNNEXT  00004 000004 00017   3187
DSPACDS  00004 000220 02409
DSPDIC   00004 00021C 02408
DSPISDRV 00004 000224 02410
DSPMAIN  00004 000228 02411
DSPOSRDR 00004 00022C 02412
DSPRINT  00004 000230 02413
DSPUNCH  00004 000234 02414
DSPURGE  00004 000238 02415
EADSENQ  00001 000000 00008   3081
EADSN    00001 000000 00015   3186
EAJCT    00001 000000 00213   3021  3605  3606  3607  3608  3609  3610  3611  3612  3613  3614
EAJFCB   00001 000000 00483   3096  3657
EASCD    00001 000000 01887   1894  1898  3273  3316  3653
EASCT    00001 000000 01900   3125  3618  3619  3620  3621  3622  3623  3624  3625  3626  3627  3628  3629  3630  3631
                              3632  3633  3634  3635  3636  3637
MSVQ                                         CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

EASIOT   00001 000000 02072   3222  3471  3473  3641  3643  3644  3645  3646  3647  3648  3649
EAVOLT   00001 000000 02672   3165
EFTOP    00004 00023C 02416
EQ       00001 000008 00054   2699  2701  2703  2808  2818  2834  2903  3131  3218  3276  3279  3437  3478  3551
FAILDSP  00004 0000EC 02329
FCT      00001 000016 02664
FCTACTIV 00004 000244 02418
FCTAGET  00001 000020 00146
FCTAJDB  00004 000054 00097
FCTAWBC  00002 000008 00082
FCTAWTM  00004 000004 00081
FCTBASE  00004 000034 00088
FCTCBPTR 00004 000078 00108
FCTCSECT 00004 00005C 00100
FCTDSPDC 00004 000058 00099
FCTECFAD 00004 00000C 00086
FCTECFOF 00001 000008 00179
FCTECFON 00001 000004 00180
FCTEND   00004 0000B0 00129   0130
FCTFAIL  00001 000040 00185
FCTFAILC 00001 000020 00186
FCTFLAGU 00002 000090 00121
FCTFLAG1 00001 000084 00113
FCTFLAG2 00001 000085 00114
FCTFLAG3 00001 000086 00115
FCTFLAG4 00001 000087 00116
FCTFSCOD 00006 0000A0 00125
FCTFSFLG 00001 000088 00117
FCTFSLOC 00004 0000A8 00127
FCTFSNDP 00001 000010 00187
FCTFSRCV 00001 000008 00188
FCTFSRTN 00004 0000AC 00128
FCTFSSUF 00001 000089 00118
FCTFSTAE 00002 00008A 00119
FCTFSTME 00001 000080 00184
FCTFUNRC 00004 000048 00093
FCTGETSZ 00002 00000A 00083
FCTGLIST 00004 00007C 00110
FCTGNOAL 00001 000010 00147
FCTJCTNQ 00001 000008 00168
FCTJCTPY 00001 00007C 00109
FCTJDTAT 00001 000020 00177
FCTJPURG 00001 00000C 00159
FCTJSCAN 00001 000010 00160
FCTJSNRM 00001 000000 00156
FCTJSPND 00001 000001 00151
FCTJSRSK 00001 000004 00157
FCTJSSPR 00001 000008 00158
FCTLOGIN 00004 000064 00102
FCTMASK  00001 00000C 00085
FCTNEXT  00004 000000 00080
FCTNOEF  00001 000080 00144
FCTNORSV 00001 000004 00149
FCTPERM  00001 000040 00165
FCTPREAL 00001 000004 00169
MSVQ                                         CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

FCTPRTY  00001 000058 00098
FCTPTHLD 00001 000040 00145
FCTQAVAL 00001 000080 00134
FCTQDONE 00001 000040 00135
FCTQFCTO 00001 000002 00140
FCTQHEAD 00001 000010 00137
FCTQIDOP 00001 000008 00138
FCTQUIES 00001 000020 00166
FCTQUSER 00001 000020 00136
FCTQWAIT 00001 000004 00139
FCTREGS  00004 00000C 00084
FCTRELM  00001 000002 00150
FCTRESAV 00004 00004C 00094
FCTRETN  00004 000044 00092
FCTRIDAO 00001 000010 00178
FCTRISU  00001 000080 00175
FCTRJECF 00001 000080 00111
FCTRJPTR 00004 000080 00112
FCTRSCNT 00002 0000A6 00126
FCTRSVM  00001 000008 00148
FCTSAVCH 00004 000050 00095   1081  3418
FCTSAVE  00004 000040 00091
FCTSCREF 00001 000001 00171
FCTSELF  00004 000038 00089
FCTSESEQ 00001 000054 00096
FCTSIZE  00176 0000B0 00130
FCTSOUT  00001 000040 00176
FCTSPIE  00001 000080 00164
FCTSRESD 00001 000002 00170
FCTSTART 00001 000000 00079   0078  0130
FCTTFLAG 00001 000074 00106
FCTTHOLD 00001 000010 00167
FCTTIMEI 00004 000070 00105
FCTTIMEX 00004 000074 00107
FCTTIMON 00004 000060 00101
FCTTNEXT 00004 000068 00103
FCTTOP   00004 000240 02417
FCTTUID  00004 00006C 00104
FCTTVPTR 00004 00003C 00090
FCTUSERF 00004 000094 00123
FCTUSERH 00002 000092 00122
FCTWORK  00008 000098 00124   2863  2864  2900  2901  2902  3272  3300  3301  3302  3434  3435  3436  3481  3482  3494
                              3495  3538  3539
FF       00001 0000FF 00049   3473
FINDJNUM 00004 0000F0 02330
GE       00001 00000B 00055
GETUNIT  00004 0000F4 02331
GLADDR   00004 000010 00197
GLANYLCL 00001 000008 00209
GLDASSGN 00001 000010 00208
GLDDNAME 00008 000000 00193
GLEND    00004 000018 00200   0201
GLFLAGS  00001 000014 00198
GLGASSGN 00001 000020 00207
GLGRPTYP 00001 000080 00205
MSVQ                                         CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

GLRMTTYP 00001 000040 00206
GLSIZE   00024 000018 00201
GLSTART  00001 000000 00192   0201
GLTGEN   00003 000008 00195
GLTSPEC  00005 00000B 00196
GLTYPE   00008 000008 00194
GMSFDB   00004 000380 02499
GT       00001 000002 00051
HFBQE    00004 00034C 02486
INCMALL  00001 000080 00244
INCMCAT  00001 000002 00236
INCMMGL1 00001 000010 00242
INCMMGL2 00001 000020 00243
INCMNSET 00001 000001 00237
INCMSSTS 00001 000001 01921
INCMSTS  00001 000004 00232
INDMCTLG 00001 000002 00235
INDMDSNT 00004 00015C 02067
INDMSIOT 00001 000000 02081
INDMVOLT 00004 0000A8 02066
INFMJFCB 00001 000000 00494
INJMJCT  00001 000000 00222   0367
INSMSCT  00001 000000 01909   2065
INTERCOM 00004 0000F8 02332
IOERRFCT 00004 000248 02419
IOPARAMS 00001 000000 01594   3007  3283  3318
IPLMASK  00004 000350 02487
IVOLID   00001 000006 02085
JCTA     00001 00000A 02652
JCTABEND 00001 000008 00231
JCTAB01  00001 00009C 00351
JCTACTAD 00004 000028 00252   3029  3608
JCTB     00001 00000B 02653
JCTBCTDA 00004 00001C 00249
JCTC     00001 00000C 02654
JCTCKFT  00001 000010 00265
JCTCKIDL 00001 000075 00333
JCTCKIDT 00016 000076 00334
JCTCKPTR 00001 000008 00266
JCTCKTTR 00001 000068 00313   3032  3612
JCTCTOJ  00001 000098 00347
JCTD     00001 00000D 02655
JCTDETDA 00001 000058 03591   3031  3611
JCTDEVT  00004 000064 00312
JCTDSBAD 00004 000030 00257   3610
JCTDSDRA 00001 000001 00282
JCTDSKAD 00003 000000 00223   3605
JCTDSOCR 00001 000004 00274
JCTDSOJB 00001 000002 00277
JCTDSOSM 00003 00009D 00353
JCTDSSBA 00004 00002C 00253   3030  3609
JCTE     00001 00000E 02656
JCTENDIT 00001 000020 00325
JCTF     00001 00000F 02657
JCTID    00001 000000 00225
MSVQ                                         CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JCTIDENT 00001 000003 00224
JCTJBLBS 00001 000005 00227
JCTJDPCD 00002 000036 00259
JCTJDPOP 00002 000038 00260
JCTJMGLV 00001 000007 00241
JCTJMGPO 00001 000006 00240   3036
JCTJMR   00003 000086 00339   3033  3614
JCTJMRCL 00001 00008B 00342
JCTJMRD  00001 000089 00340
JCTJMRJD 00003 000095 00346
JCTJMRJT 00003 000092 00345
JCTJMROP 00001 00008A 00341
JCTJMRSS 00003 00008F 00344
JCTJMRTL 00003 00008C 00343
JCTJNAME 00008 000008 00246
JCTJPRTY 00001 000007 00245
JCTJSRNO 00001 000004 00226
JCTJSTAT 00001 000005 00228
JCTJSTPC 00001 000020 00229
JCTJTPTN 00008 000010 00247
JCTKTOR  00001 000099 00348
JCTLNGTH 00001 0000B0 00367
JCTNOCKP 00001 000010 00272
JCTNORST 00001 000020 00271
JCTNRCKP 00002 00006C 00316
JCTNTRK  00001 00006B 00314
JCTPDQDA 00004 000018 00248
JCTQIDNT 00001 00005E 00308
JCTRESTT 00001 000008 00273
JCTRSW1  00001 000056 00262
JCTRSW2  00001 000057 00269   3023  3591
JCTSDKAD 00004 000020 00250   3022  3026  3606
JCTSMBAD 00004 000024 00251   3028  3607
JCTSMBID 00002 000034 00258
JCTSNUMB 00001 00005F 00309
JCTSPSYS 00001 000080 00321
JCTSSTR  00004 000070 00319   3025  3613
JCTSTAT2 00001 000074 00320
JCTSTEPR 00001 000004 00267
JCTSTERM 00001 000040 00264
JCTSTIOT 00004 000060 00310
JCTSTOZ  00001 00009A 00349
JCTSWSM  00001 000010 00328
JCTSYSCK 00001 000080 00270   3023
JCTTABLE 00004 00025C 02424
JCTTSOID 00007 0000A0 00361
JCTVOLSQ 00001 00006E 00317
JCTWARMS 00001 000080 00263
JCT0     00001 000000 02642
JCT1     00001 000001 02643
JCT2     00001 000002 02644
JCT2TO9  00001 00009B 00350
JCT3     00001 000003 02645
JCT4     00001 000004 02646
JCT5     00001 000005 02647
MSVQ                                         CROSS-REFERENCE                                                   PAGE    9


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JCT6     00001 000006 02648
JCT7     00001 000007 02649
JCT8     00001 000008 02650
JCT9     00001 000009 02651
JDSACEOD 00001 000001 00479
JDSCLASS 00001 000019 00441
JDSCOMP  00001 000001 00460
JDSCURDS 00001 000010 00423
JDSDDNAM 00008 000028 00447   2700  2702
JDSDSTL  00002 000014 00437
JDSENTRY 00001 000000 00435   0449  2697
JDSFDB   00020 000000 00436   2698  2990
JDSFEND  00004 000014 00426   0427
JDSFIXL  00002 00000C 00421   2696
JDSFLG   00001 000016 00438
JDSFLG1  00001 000017 00439
JDSFLG2  00001 000018 00440
JDSFSIZE 00020 000014 00427
JDSHDR   00001 000002 00459
JDSISDON 00001 000002 00478
JDSJOBFL 00001 000011 00424
JDSNEXT  00006 000004 00419
JDSNOTDN 00001 000080 00431
JDSOLD   00001 000010 00456
JDSOPEN  00001 000080 00453
JDSPRDON 00001 000020 00474
JDSPRFRP 00001 000008 00476
JDSPRINT 00001 000080 00464
JDSPROC  00001 000008 00457
JDSPROCN 00008 000028 00446
JDSPUDON 00001 000010 00475
JDSPUFRP 00001 000004 00477
JDSPUNCH 00001 000040 00465
JDSREAD  00001 000040 00454
JDSSTART 00001 000000 00417   0427  2694
JDSSTEP  00001 000004 00458
JDSSTEPN 00008 000028 00445
JDSTAT   00001 000010 00467
JDSTATFD 00008 000020 00444
JDSTOTL  00002 00000A 00420
JDSTRACK 00004 000000 00418
JDSTSO   00001 000020 00466
JDSUSER1 00001 000008 00468
JDSUSER2 00001 000004 00469
JDSVARL  00002 00001A 00442   2704
JDSVEND  00004 000030 00448   0449
JDSVSIZE 00048 000030 00449
JDSWRITE 00001 000020 00455
JFCABN   00001 000020 00663
JFCACC   00001 000080 00661
JFCACT   00001 000008 00772
JFCADDED 00001 00000C 00590
JFCALLOW 00001 000040 00751
JFCALX   00001 000002 00868
JFCASA   00001 000004 00744
MSVQ                                         CROSS-REFERENCE                                                   PAGE   10


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JFCASCII 00001 000004 00677
JFCBABS  00001 000000 00861
JFCBABST 00002 0000A6 00878
JFCBAL   00001 000040 00522
JFCBAVR  00001 000040 00862
JFCBBUFF 00001 000002 00576
JFCBCD   00001 000040 00673
JFCBCKPT 00001 000010 00755
JFCBCRDT 00003 000050 00584
JFCBCTRI 00001 00009B 00853
JFCBCYL  00001 0000C0 00864
JFCBDQTY 00003 0000A0 00874
JFCBDRLH 00003 0000AB 00882
JFCBDSCB 00003 000035 00515
JFCBDSNM 00044 000000 00497
JFCBELNM 00008 00002C 00498
JFCBEND  00001 0000B0 00888
JFCBEXAD 00003 000095 00848   3097  3657
JFCBEXTL 00001 000094 00846
JFCBFALN 00001 000059 00646
JFCBFLG1 00001 00004D 00554
JFCBFLG2 00001 00004E 00562
JFCBFLSQ 00002 000044 00548
JFCBFOFL 00001 000080 00537
JFCBFOUT 00001 000058 00641
JFCBFTEK 00001 000059 00647
JFCBGDGA 00001 000004 00635
JFCBHIAR 00001 000059 00644
JFCBID   00001 000004 02247
JFCBIN   00001 000080 00681
JFCBIND1 00001 000056 00587
JFCBIND2 00001 000057 00610
JFCBLGTH 00001 0000B0 00887
JFCBLKSI 00002 000066 00783   0784
JFCBLOCT 00001 000010 00604
JFCBLP   00001 000010 00527
JFCBLTM  00001 000020 00523
JFCBLTYP 00001 000042 00521
JFCBMASK 00008 000048 00551
JFCBNEWV 00001 000004 00605
JFCBNTCS 00001 000074 00843
JFCBNVOL 00001 000075 00844
JFCBOPS1 00005 000048 00552
JFCBOPS2 00001 00004F 00583
JFCBOTTR 00003 000043 00532
JFCBPMEM 00001 000001 00606
JFCBPQTY 00003 000098 00850
JFCBPTTR 00001 000001 00553
JFCBQNAM 00008 000000 00495
JFCBRLSE 00001 000040 00602
JFCBRWPW 00001 000030 00615
JFCBSBNM 00003 0000A8 00880
JFCBSCTY 00001 000010 00634
JFCBSPAC 00001 0000C0 00854
JFCBSPNM 00003 0000A3 00876
MSVQ                                         CROSS-REFERENCE                                                   PAGE   11


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JFCBSPTN 00001 0000AF 00884
JFCBSQTY 00003 00009C 00871
JFCBSTAT 00001 000040 00632
JFCBSYSC 00013 000035 00514
JFCBTRK  00001 000080 00863
JFCBTSDM 00001 000034 00501
JFCBUFIN 00001 000058 00640
JFCBUFL  00002 00005A 00659
JFCBUFMX 00001 00006A 00792
JFCBUFNO 00001 000058 00638   0640  0641
JFCBUFOF 00001 000043 00536
JFCBUFRQ 00001 000058 00642
JFCBUFSI 00002 000066 00784
JFCBUR   00001 000010 00675
JFCBVLCT 00001 0000AE 00883
JFCBVLSQ 00002 000046 00550
JFCBVOLS 00030 000076 00845
JFCBXPDT 00003 000053 00585
JFCCAT   00001 000080 00502
JFCCBWU  00001 000020 00782
JFCCHAR  00001 000006 00736
JFCCODE  00001 00005D 00671
JFCCONV  00001 000013 00668
JFCCPRI  00001 000071 00834   0836  0837
JFCCYL   00001 000008 00764
JFCCYLOF 00001 00006E 00811
JFCDBUFN 00001 00006F 00815
JFCDEFER 00001 000020 00565
JFCDEL   00001 000002 00765
JFCDEN   00001 00005E 00692
JFCDISP  00001 0000C0 00611
JFCDSORG 00002 000062 00705
JFCDSRG1 00001 000062 00706
JFCDSRG2 00001 000063 00713
JFCDUAL  00001 000010 00560
JFCDWORD 00001 000002 00657
JFCDYN   00001 000008 00655
JFCEBCD  00001 000040 00682
JFCENT   00001 000004 00619
JFCEQUAL 00001 000040 00839
JFCEROPT 00001 00005C 00660
JFCEVEN  00001 000023 00666
JFCEXC   00001 000010 00654
JFCEXT   00001 000020 00770
JFCFCBAL 00001 000008 00830
JFCFCBID 00004 000038 00517
JFCFCBVR 00001 000004 00831
JFCFEED  00001 000010 00771
JFCFIX   00001 000080 00725
JFCFMREC 00001 0000C0 00716
JFCFNCBD 00001 000008 00545
JFCFNCBI 00001 000080 00541
JFCFNCBP 00001 000020 00543
JFCFNCBR 00001 000040 00542
JFCFNCBT 00001 000002 00547
MSVQ                                         CROSS-REFERENCE                                                   PAGE   12


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JFCFNCBW 00001 000010 00544
JFCFNCBX 00001 000004 00546
JFCFOLD  00001 000040 00828
JFCFRI   00001 000020 00674
JFCFUNC  00001 000044 00540
JFCFWORD 00001 000001 00658
JFCGDG   00001 000002 00591
JFCHIER  00001 000084 00650
JFCHIER1 00001 000004 00656
JFCIND   00001 000010 00763
JFCINOP  00001 000080 00563
JFCINTVL 00001 000070 00816
JFCKEYLE 00001 00005D 00670
JFCLIMCT 00003 00005F 00697
JFCLOC   00001 000030 00589
JFCLRECL 00002 000068 00785
JFCMAC   00001 000002 00745
JFCMAST  00001 000020 00762
JFCMIXG  00001 000004 00867
JFCMOD   00001 000080 00613
JFCMODE  00001 00005D 00679
JFCMODEO 00001 000020 00683
JFCMODER 00001 000010 00684
JFCMODNW 00001 000010 00570
JFCNCP   00001 00006A 00786   0792
JFCNCR   00001 000008 00676
JFCNDCB  00001 000002 00512
JFCNDSCB 00001 000004 00510
JFCNEW   00001 0000C0 00612
JFCNL    00001 000001 00531
JFCNOCC  00001 000000 00746
JFCNOCON 00001 000080 00672
JFCNSL   00001 000004 00529
JFCNTM   00001 00006B 00793   0796
JFCNWRIT 00001 000008 00508
JFCOLD   00001 000040 00614
JFCONE   00001 000001 00686
JFCONTIG 00001 000008 00866
JFCOPEN  00001 00000F 00561
JFCOPTCD 00001 000065 00748
JFCOPTQ  00001 000008 00775
JFCORGDA 00001 000020 00709
JFCORGGS 00001 000080 00714
JFCORGIS 00001 000080 00707
JFCORGPO 00001 000002 00710
JFCORGPS 00001 000040 00708
JFCORGU  00001 000001 00711
JFCOUTLI 00001 000071 00836
JFCOUTOP 00001 000040 00564
JFCOVER  00001 000040 00769
JFCPAT   00001 000001 00513
JFCPCI   00001 00006B 00796
JFCPCIBT 00001 000020 00753
JFCPDS   00001 000001 00593
JFCPRTSP 00001 00005D 00687
MSVQ                                         CROSS-REFERENCE                                                   PAGE   13


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JFCRCFM  00001 0000E0 00729
JFCRCTLG 00001 000001 00579
JFCRECFM 00001 000064 00715
JFCRECV  00001 000020 00840
JFCREDUC 00001 000004 00756
JFCREL   00001 000001 00773
JFCREORG 00001 000001 00766
JFCREQ   00001 000002 00623
JFCRESRV 00002 00006C 00807
JFCRFB   00001 000010 00732
JFCRFO   00001 000020 00731
JFCRFS   00001 000008 00733
JFCRKP   00002 00006C 00803   0807  0825
JFCRLSE  00001 0000C0 00588
JFCROUND 00001 000001 00869
JFCSDNAM 00001 000080 00778
JFCSDRPS 00001 000008 00573
JFCSDS   00001 000020 00504
JFCSECUR 00001 000010 00617
JFCSEND  00001 000080 00838
JFCSHARE 00001 000008 00618
JFCSIM   00001 000040 00653
JFCSKP   00001 000040 00662
JFCSL    00001 000002 00530
JFCSLCRE 00001 000040 00556
JFCSLDES 00001 000020 00558
JFCSOWA  00002 000072 00841
JFCSPNO  00001 000001 00691
JFCSPONE 00001 000009 00690
JFCSPTHR 00001 000019 00688
JFCSPTWO 00001 000011 00689
JFCSRCHD 00001 000004 00758
JFCSTACK 00001 00005D 00680
JFCSTAND 00001 000080 00555
JFCSUL   00001 00000A 00528
JFCTEMP  00001 000001 00624
JFCTHRSH 00001 000071 00837
JFCTRACE 00001 000004 00574
JFCTRAN  00001 00003B 00667
JFCTREV  00001 00002B 00669
JFCTRKBL 00002 000060 00699
JFCTRTCH 00001 00005D 00664
JFCTTR   00001 000010 00505
JFCTTY   00001 000002 00678
JFCTWO   00001 000002 00685
JFCUCSID 00004 00006C 00826
JFCUCSOP 00001 000070 00827
JFCUND   00001 0000C0 00724
JFCVAR   00001 000040 00726
JFCVARD  00001 000020 00730
JFCVER   00001 000010 00829
JFCVSL   00001 000040 00503
JFCWUMSG 00001 000040 00780
JFCWVCBD 00001 000080 00768
JFCWVCIS 00001 000080 00761
MSVQ                                         CROSS-REFERENCE                                                   PAGE   14


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JFCWVCSP 00001 000080 00750
JFC1600  00001 0000C3 00696
JFC200   00001 000003 00693
JFC556   00001 000043 00694
JFC800   00001 000083 00695
JMR      00001 000000 00891   0914  3346
JMRCPUID 00001 000010 00900   3347  3348
JMRDRSTP 00004 000028 00918
JMREDATE 00004 00000C 00899
JMRENTRY 00004 000008 00898
JMREXITS 00001 000020 00925
JMRFIND  00001 000001 00927
JMRINDC  00001 00001D 00907
JMRJCLCD 00001 00003D 00937
JMRJCLCP 00004 000048 00941
JMRJCLP  00004 000044 00940
JMRJOB   00001 000000 00897   0904
JMRJOBIN 00004 000030 00919
JMRJOBP  00004 000040 00939   0942
JMRJOBSW 00001 000080 00923
JMRLGEND 00001 00001D 00903   0904
JMRLOGSZ 00001 00001D 00904
JMROPT   00001 000036 00921
JMRPTRS  00004 000040 00942
JMRRDR   00001 000034 00920
JMRSIZE  00001 000028 00914
JMRSTEP  00001 00001C 00902
JMRSTPSW 00001 000040 00924
JMRSYSOC 00001 000038 00931
JMRUCOM  00004 000020 00912
JMRUJVP  00004 000024 00913
JMRUSEID 00001 000014 00901   3351  3352
JMRXONLY 00001 000010 00926
JNADD    00004 0000FC 02333
JNCBCTL  00001 000012 02660
JNCBHLD  00004 000100 02334
JNCBREL  00004 000104 02335
JNCBTOP  00004 000260 02425
JNDEL    00004 000108 02336
JNGET    00004 00010C 02337
JOBCARDS 00004 000354 02488
JOBCLS   00008 0003CA 02514
JOBFAIL  00001 0003E9 02529
JOBGRP   00008 0003D2 02515
JOBLINES 00004 000358 02489
JOBNRTN  00004 000110 02338
JOBPRTY  00001 0003EA 02530
JOBSQSIZ 00004 0003EB 02531
JSSDADR  00004 000114 02339
JSSEFADD 00001 000002 02627
JSSFCT   00004 00024C 02420
JSSFLAGS 00002 00038E 02502
JSSFLG1  00001 00038E 02503
JSSFLG2  00001 00038F 02504
JSSFSTIM 00001 000080 02631
MSVQ                                         CROSS-REFERENCE                                                   PAGE   15


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JSSGPOST 00001 000080 02621
JSSMCGAV 00001 000004 02626
JSSNSCOR 00001 000020 02633
JSSPAID  00001 000008 02557
JSSRES   00001 000040 02632
JSSRETRN 00004 000118 02340
JSSRMVRQ 00004 00011C 02341
JSSRSCAN 00001 000010 02634
JSSTSCHG 00001 000008 02625
JSSUAVOT 00001 000010 02624
JSSUAVPR 00001 000040 02622
JSSUAVPU 00001 000020 02623
LCLINT   00004 000120 02342
LCTCIOS  00004 00035C 02490
LE       00001 00000D 00056
LOGIN    00004 000124 02343
LOGOUT   00004 000128 02344
LT       00001 000004 00052
MAINDATA 00004 000264 02426
MARGCORE 00004 000360 02491
MARGTOP  00004 000364 02492
MASCNUCM 00004 000330 02479
MAXCARDS 00004 000010 01529
MAXLINES 00004 00000C 01528
MCLASS   00004 000268 02427
MDSPARM  00004 000270 02429
MESSAGE  00004 00012C 02345
MGROUP   00004 00026C 02428
MINCORE  00004 000368 02493
MINIMARG 00001 0003EF 02532
MINUS    00001 000004 00060
MIXED    00001 000004 00068
MNTRKFDB 00004 000388 02501
MOVEDATA 00004 000130 02346   2748
MPACAN   00001 000020 01173
MPACTCLS 00001 000080 00986
MPACTRDR 00001 000080 01379
MPACTWTR 00001 000080 01334
MPADAPT  00003 000030 00968
MPAGEON  00001 000004 01400
MPAINIT  00001 0003A4 01233
MPAL     00001 000020 01408
MPALLOC  00001 000004 01339
MPBATBAR 00001 000080 01388
MPBRESC  00004 000358 01207
MPBSRWK  00004 000134 01103
MPBSTFIT 00001 000020 01044   1016  1020
MPBSTJOB 00001 000080 01042   1016  1020
MPBSTMIX 00001 000040 01043
MPBURST  00001 000020 01438
MPCANPEN 00001 000010 01439
MPCAW    00008 0002C0 01148
MPCCCTL  00001 000003 01297
MPCCCTLI 00001 000007 01299   1147
MPCCRD   00001 000002 01296   1142  1143  1145
MSVQ                                         CROSS-REFERENCE                                                   PAGE   16


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MPCCRDB  00001 00000C 01301
MPCCSEN  00001 000004 01298   1144
MPCCTIC  00001 000008 01300
MPCCWATN 00008 0002C0 01147   1147  1148  1149
MPCCWCTC 00008 000288 01140   1186
MPCCWDST 00008 0002A0 01143
MPCCWMSG 00008 0002B0 01145
MPCCWR   00001 000001 01295   1146
MPCCWSND 00008 0002B8 01146
MPCCWSNS 00008 0002A8 01144
MPCEND   00001 00040C 01291
MPCFCC   00001 000040 01306
MPCFCD   00001 000080 01305
MPCFPCI  00001 000008 01309
MPCFSKIP 00001 000010 01308
MPCFSLI  00001 000020 01307   1143  1144  1145  1146  1147
MPCHBUSY 00001 000002 01315
MPCHEPT  00001 000280 01135
MPCHLST  00001 00006A 01016
MPCHPBAR 00001 000020 01390
MPCHSUM  00001 000072 01020
MPCHTERM 00001 00006D 01017
MPCONMSG 00001 0000C4 01095
MPCPACT  00001 0003AE 01244
MPCPANY  00001 0000FF 01254
MPCPMDS  00001 0003AF 01245
MPCPMVT  00001 000001 01252   1244  1245
MPCPNEW  00001 0003B0 01246
MPCPNONE 00001 000000 01251
MPCPTYPE 00001 000042 00975
MPCSECT  00004 000004 00954
MPCSTART 00001 000000 00952   2676  3324  3544
MPCSWSTR 00001 000004 01314
MPCTC    00003 000033 00969
MPCTCCUA 00002 000036 00970
MPCVR1   00001 000002 01253
MPDEEP   00001 0003A5 01234
MPDEVADD 00004 00002C 00967
MPDIAG   00120 0000EC 01101
MPDIAGM  00120 0000D5 01098
MPDIAGN  00120 0000E4 01100
MPDIAGS  00120 0000DC 01099
MPDISALL 00001 000080 01051
MPDISIPL 00001 000040 01052
MPDISIZE 00001 000020 01053
MPDISMLG 00001 000010 01054
MPDPRTY  00001 000069 01015
MPDQFLAG 00001 000002 01432
MPDRBIT  00001 000020 01397
MPDSPLAY 00001 000068 01014
MPDSSRCH 00001 000040 01335
MPDSTL   00008 0002EC 01176   1143
MPDSTLBL 00002 0002F0 01179
MPDSTLLR 00002 0002EE 01178
MPDSTLOP 00001 0002F3 01181
MSVQ                                         CROSS-REFERENCE                                                   PAGE   17


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MPDSTLRF 00001 0002F2 01180
MPDUMMY  00001 000020 00992
MPECFPT  00001 00027C 01133
MPENB    00001 000040 01389
MPEND    00001 000057 00981   0982
MPENDBAR 00001 000010 01391
MPENDMRK 00003 0002F5 01186
MPEXRESC 00004 000354 01206
MPFDB1   00006 0002CC 01160
MPFDB2   00006 0002D4 01163
MPFITONE 00001 000080 01370
MPFLG1   00001 0002D2 01161
MPFLG2   00001 0002D3 01162
MPFLUSH  00001 000002 01340
MPFORMAT 00001 000041 00974
MPFREE   00002 0002DA 01164
MPFSTFIT 00001 000002 01047
MPFSTJOB 00001 000008 01045
MPFSTMIX 00001 000004 01046
MPGPTRS  00004 00035C 01208
MPGRPSCN 00001 000010 01382
MPHOOK   00001 000001 01168
MPHOOKUP 00001 000008 01171
MPIACT   00001 000080 01329
MPIJACTV 00001 000080 01425
MPIJPFLG 00001 0003BE 01271
MPILAST  00001 000040 01330
MPIMMED  00001 000008 01440
MPINITP  00001 000002 01383
MPINOP   00001 000001 01316
MPIOS    00004 0002C8 01150
MPIPL    00001 000010 01337
MPIPLING 00001 000020 01336
MPIPLRCV 00001 000080 01395
MPIPLTXT 00004 00032C 01204
MPIREG10 00004 0003D4 01277
MPIREG14 00004 0003D8 01278
MPJBTERM 00001 000056 00980
MPJOBCLS 00001 000047 00979
MPJOBCNT 00001 0003AB 01240
MPJOBMIX 00001 000073 01021
MPJOBONE 00001 000020 01372
MPJOBS   00001 000004 01374
MPJSCNT  00002 0003A0 01231
MPLBAL   00004 0003E4 01280   1281
MPLBAL2  00004 0003E6 01281
MPLCAW   00001 000048 01325
MPLCLIO  00008 0002C4 01149
MPLCSW   00001 000040 01324
MPLFLG   00001 0003B1 01258   1089
MPLIGRP  00001 0003A7 01236
MPLOCAL  00001 000040 00991
MPLSTCLS 00001 0003B2 01259
MPLSTOR  00002 00006E 01018
MPLSTORP 00001 000008 01338
MSVQ                                         CROSS-REFERENCE                                                   PAGE   18


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MPLSTUP  00001 000002 01410
MPLTIME  00001 000001 01341   1089
MPMAGEL  00001 00005E 01006
MPMAGER  00001 00005C 01004
MPMAINTX 00034 000246 01120
MPMAXSIZ 00005 000319 01199
MPMBAR   00001 00005A 01002
MPMBINC  00002 000328 01202
MPMCS    00001 000010 01398
MPMDEST  00002 000382 01217
MPMDONE  00001 000080 01345
MPMDSFL1 00001 0003B3 01260
MPMINIT  00001 000058 01000
MPMINPRT 00005 000314 01198
MPMIOECF 00001 000278 01131
MPMIOFLG 00001 0003B4 01261
MPMIOMSG 00001 0000A0 01061   1062
MPMIXBST 00001 000008 01373
MPMIXONE 00001 000040 01371
MPMJSPAN 00002 000062 01010
MPMNECF  00001 000274 01129
MPMNFCT  00004 00036C 01211
MPMODALL 00001 000004 01355
MPMODCLS 00001 000080 01350
MPMODEL  00003 00003E 00973   3348
MPMODFLG 00001 0003B6 01263
MPMODGRP 00001 000040 01351
MPMODINT 00001 000002 01356
MPMODOFF 00001 000008 01354
MPMODON  00001 000010 01353
MPMODSEL 00001 000020 01352
MPMODSTA 00001 000001 01357
MPMPSPAN 00001 000066 01012
MPMREG10 00004 000384 01218
MPMREG14 00004 000388 01219
MPMSGARA 00120 0000D0 01097   1098  1099  1100  1101  1102  1104  1145
MPMSGBSY 00001 000040 01430
MPMSGBUF 00120 0001CE 01116   1115  1127  2882
MPMSGCLS 00001 000046 00978   3036  3325
MPMSGECF 00001 0001CC 01114   2872  2875  2884  2914  2915  2960
MPMSVD   00001 000008 01399
MPMSVJOB 00004 000364 01209   3545  3545
MPMSVMSG 00001 0000A8 01071   1072
MPMVSALC 00002 00032A 01203
MPNAME   00008 00001C 00965
MPNEWJOB 00001 000001 01384
MPNEXT   00004 000000 00953
MPNOSQS  00001 000020 01381
MPNSTAT  00001 000080 01406
MPNUNITS 00002 000380 01216
MPOPALL  00001 000040 01362
MPOPALPH 00001 000020 01363
MPOPCHPT 00001 000008 01365
MPOPDSPL 00001 000080 01361
MPOPER   00001 000008 01313
MSVQ                                         CROSS-REFERENCE                                                   PAGE   19


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MPOPFLG  00001 0003B5 01262
MPOPID   00002 0000A6 01065
MPOPMSG  00004 0000AE 01079
MPOPMULT 00001 000010 01364
MPOSCON  00002 00030C 01192
MPPJOBS  00001 000002 01375
MPPROC   00003 000038 00971
MPPRTY   00001 0003A8 01237
MPPSCNT  00001 0003A9 01238
MPPTERM  00001 000040 01380
MPQ      00003 00003B 00972
MPQMSG   00004 000010 00957
MPQRDR   00003 00030E 01193
MPQRECV  00004 000014 00958
MPQWTR   00003 000311 01194
MPRDCSCT 00004 000370 01212
MPRDFDB  00004 000374 01213   3405
MPRDR    00001 000002 01169
MPREAL   00001 000080 00990   0977
MPRECID  00011 0000C5 01096
MPRELID  00004 000368 01210
MPRESQ   00004 00001C 01532   2769
MPRESTRT 00001 000040 01396
MPREVERS 00001 000040 01346
MPRIDSIZ 00002 000308 01190
MPRQADD  00001 000001 01411
MPRQRSET 00004 000394 01225
MPRQSET  00004 000398 01226
MPRQTEST 00004 00039C 01227
MPRSTOK  00001 000001 01402
MPSAGEL  00001 00005F 01007
MPSAGER  00001 00005D 01005
MPSATTEN 00001 000080 01415   1133
MPSBAR   00001 00005B 01003
MPSBUSY  00001 000010 01417
MPSCANFG 00001 0003B7 01264
MPSCHEND 00001 000008 01418   1135
MPSCHFG  00001 0003B8 01265
MPSCONS  00001 000002 01420   1079  1133
MPSDEEP  00001 0003A6 01235
MPSDEPTH 00001 000059 01001
MPSDEST  00002 000070 01019
MPSDEVND 00001 000004 01419
MPSELECT 00008 000024 00966
MPSELFND 00001 000001 00993
MPSENBYT 00001 0002F4 01185   1144
MPSENDFL 00001 000080 01429
MPSENTRC 00004 0002CC 01154   1159
MPSEQNO  00001 0003B9 01266
MPSFLG   00001 0003BA 01267
MPSFLUSH 00001 000040 01437
MPSIDSIZ 00002 00030A 01191
MPSINCL  00001 000061 01009
MPSINCR  00001 000060 01008
MPSIZE   00059 000057 00982
MSVQ                                         CROSS-REFERENCE                                                   PAGE   20


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MPSJSCNT 00002 0003A2 01232
MPSJSPAN 00002 000064 01011
MPSMFID  00002 000043 00976   3347
MPSMSGFL 00001 000040 01416   1133
MPSNDBSY 00001 000020 01431
MPSNDCNT 00001 000148 01108
MPSNDID  00011 000149 01109
MPSNDMSG 00120 000154 01110   1146
MPSPSCNT 00001 0003AA 01239
MPSPSPAN 00001 000067 01013
MPSREG10 00004 00038C 01220
MPSREG14 00004 000390 01221
MPSTART  00004 00001C 00964   0982
MPSTAT   00001 0003BB 01268
MPSTIME  00001 000001 01421   1133
MPSTMAIN 00001 0003BC 01269   1130
MPSTMIO  00001 0003BD 01270   1079  1132  1134  1136
MPSTTERM 00001 000040 01407
MPSTTIPL 00001 000080 01436
MPSVCSW  00004 0002F8 01187
MPSWIOO  00001 000038 01323
MPSWMCO  00001 000030 01322
MPSWPRO  00001 000028 01321
MPSWSVO  00001 000020 01320
MPSYSADD 00004 000300 01188
MPSYSFLG 00001 0003BF 01272
MPSYSSW  00001 000002 01401
MPSYSTEM 00001 000045 00977
MPTERMQ  00004 00000C 00956
MPTIME   00004 0000BE 01089
MPTRDSTL 00004 0002DC 01175
MPTYPOS  00004 000304 01189
MPUNAL   00001 000010 01409
MPUNITS  00004 000018 00959
MPUSER   00004 0003C0 01276
MPVAL    00001 000010 01172
MPVSCUR  00005 000323 01201
MPVSREAL 00005 00031E 01200
MPWTR    00001 000004 01170
MPWTRCST 00004 000378 01214
MPWTRFDB 00004 00037C 01215
MPWTRQ   00004 000008 00955
MSACJOB  00001 000020 01573
MSALLREC 00001 000080 01562
MSCANCEL 00001 000008 01564
MSCARDS  00004 000008 01527
MSCDE    00004 000018 01531
MSEND    00002 0000A0 01037   1038
MSENQUE  00001 000001 01567
MSEXRESC 00004 000054 01551
MSFLG1   00001 00004D 01547   3151
MSFLG2   00001 00004E 01548
MSGCLASS 00001 00004B 01545
MSGFDB   00004 000014 01530   3548
MSIJPDS  00001 000040 01572
MSVQ                                         CROSS-REFERENCE                                                   PAGE   21


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MSIJPJOB 00001 000080 01571
MSINITID 00003 00004F 01549
MSJBPRTY 00001 000002 01566   3151
MSJDFL1  00001 000042 01540
MSJDFL3  00001 000043 01541
MSJDFL4  00001 000052 01550
MSJDSFDB 00006 00003C 01539   2689
MSJOBCLS 00001 00004C 01546   3009
MSJOBNAM 00008 000028 01535   2855
MSJOBNUM 00004 000038 01537   3352
MSJOBPTY 00001 00004A 01544   3008
MSJOBSTP 00008 000030 01536
MSJOBTAT 00006 000044 01543   2991  3549
MSLINES  00004 000004 01526
MSLSUPD  00001 000040 01563
MSQASGNT 00004 000060 01488   2815  2831  2852  3002  3371  3432
MSQCJFCB 00002 000080 01499   3032  3092  3223
MSQCLASS 00002 000090 01507   3228  3275
MSQDATA  00001 000000 01447   2677  2693
MSQDSB   00002 00008E 01506   3227  3244  3250  3254  3263  3263
MSQDSENQ 00002 00007E 01498   3031  3077  3082
MSQDSNT  00002 00008C 01505   3136  3182  3187
MSQEND   00001 0000A0 01516   1517
MSQFACT  00002 000078 01495   3029  3060  3065  3135
MSQFLG3  00001 00009F 01515
MSQFSMB  00002 000076 01494   3028  3044  3050
MSQFVSP  00004 00006C 01491
MSQJCBIN 00004 00005C 01487   2712  2712  2714  2989  3361  3366  3405  3510  3518
MSQJFCBX 00002 000084 01501   3097  3101  3105
MSQJMR   00002 000082 01500   3033  3342
MSQJOBN  00004 000068 01490
MSQJST   00004 000070 01492
MSQMPC   00004 000058 01486   2766  2773  3323  3404  3543
MSQMSVD  00004 000054 01485   2690  2767  2853  2987  3149  3349  3408  3546
MSQMSVUP 00004 000064 01489   2782  2966
MSQNVOLT 00002 00009A 01512
MSQSCD   00002 00007A 01496   3030  3269  3314  3326  3330
MSQSCRN  00002 000096 01510
MSQSCT   00002 000074 01493   3022  3025  3120  3138  3141
MSQSCTX  00002 00007C 01497   3137  3197
MSQSEQN  00002 000092 01508
MSQSIOT  00002 000088 01503   3130  3132  3216  3224  3304
MSQSIZE  00160 0000A0 01517   2682  3407
MSQSMBSV 00002 00008A 01504   3048  3311
MSQSTP   00002 000094 01509
MSQSTPN  00001 00009E 01514   2986  2986  3128  3139  3201  3203  3203
MSQVOLT  00002 000086 01502   3134  3161  3166
MSQVOLTL 00002 000098 01511   3026  3141
MSQVOLTR 00002 00009C 01513
MSSIZE   00072 0000A0 01038
MSSMB    00001 000004 01565
MSSTART  00002 000058 00999   1038
MSTIMOFF 00004 000024 01534
MSTIMON  00004 000020 01533
MSVACTMP 00002 0003F0 03059   3069  3071  3176
MSVQ                                         CROSS-REFERENCE                                                   PAGE   22


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MSVACTM1 00002 000412 03070   3046
MSVACT2  00002 000516 03175   3163
MSVASSGN 00002 000102 02791   2772
MSVATTR  00001 00093B 03588   2876  3588
MSVATTRE 00001 000942 03590   3588
MSVBYPAS 00002 0002C8 02946   2885
MSVCBM   00001 000914 03581   3560  3568  3568  3581
MSVCBME  00001 00093B 03583   3568  3581
MSVCBPT  00002 0008B0 03542   3536
MSVCBPTR 00002 000890 03528   3015  3047  3063  3080  3095  3104  3123  3164  3185  3200  3221  3249  3255  3271  3315
                              3333  3345
MSVCBPT1 00002 0008DC 03558   3551
MSVCLOSE 00002 000712 03360   3344  3580
MSVCLSE1 00004 000732 03374   3385
MSVCLSE2 00004 000762 03391   3398
MSVCORE  00002 0007D6 03445   2683  2812  2848  3464
MSVCOREW 00002 0007FA 03461   3456
MSVCTTAB 00001 000881 03595   3010
MSVDATA  00001 000000 01524   1558  2678  2768  2854  2988  3150  3350  3547
MSVDSBMP 00002 0005B4 03243
MSVDSBM0 00002 0005BE 03247
MSVDSBM1 00002 0005F2 03261   3257
MSVDSBM2 00004 0005FE 03267
MSVDSBM3 00002 000606 03270   3303
MSVDSBM4 00006 000610 03275   3281
MSVDSBM5 00002 00062E 03282   3276
MSVDSBM6 00002 00065E 03299   3279
MSVDSEMP 00002 000416 03076   3086
MSVDSNMP 00002 00051A 03181   3191
MSVEMTCH 00002 0007AE 03426   3267  3312
MSVEMTC1 00006 0007BC 03434   3439
MSVEND   00001 000060 01557   1558
MSVIBM   00004 00005C 01556
MSVJCBI  00002 000056 02711   2703
MSVJCBIN 00002 000864 03508   3011  3038  3053  3068  3085  3100  3108  3156  3169  3190  3210  3232  3253  3260  3329
                              3336  3356
MSVJCBT  00002 00004A 02706   2701
MSVJCT   00002 000958 03604   3034
MSVJCTMP 00002 00038E 03027   3024
MSVJFCB  00002 0009AE 03656   3098
MSVJFCBM 00002 00043A 03091   3110  3238
MSVJFCBX 00004 000458 03101   3109
MSVJFCB1 00004 00047A 03110   3079
MSVJFCB2 00002 0005B0 03237
MSVJMRMP 00002 0006DC 03341   3332
MSVJUP   00002 0000CE 02765
MSVMAP   00002 00031A 02982   2968
MSVMIXCR 00002 0009BE 03671   3204
MSVMIX1  00002 0009B2 03660   3106  3207
MSVMIX2  00002 0009B6 03664   3051  3066  3083  3167  3188  3251  3258
MSVMIX3  00002 0009BC 03669   3334  3354
MSVNJDS  00006 000024 02698   2705
MSVNJDSE 00004 000042 02704   2708  2710  2713  2715
MSVQMAP  00001 000000 00004   2679  2681
MSVQMPA  00002 000280 02925   2887
MSVQ                                         CROSS-REFERENCE                                                   PAGE   23


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MSVRETRN 00002 000778 03403
MSVSCD   00002 0009AA 03652   3327
MSVSCDMP 00002 00067A 03310   3122
MSVSCT   00002 00096E 03617   3147
MSVSCTMP 00002 00047E 03119   3218  3305
MSVSCTM0 00002 00049A 03129   3127
MSVSCTM1 00002 0004AA 03133   3131
MSVSCTM2 00002 0004EE 03154   3152
MSVSCTM3 00002 0004D6 03142   3140
MSVSCTXM 00002 00053E 03196   3184
MSVSCTX1 00002 000562 03206   3202
MSVSCTX2 00002 000566 03208   3205
MSVSIOT  00002 00099A 03642   3230
MSVSIOTA 00002 000998 03640   3475
MSVSIOTM 00002 00056E 03215   3199  3246  3298
MSVSIOTX 00006 000670 03304   3220
MSVSIOT1 00002 0005A4 03229   3226
MSVSIZE  00096 000060 01558
MSVSMBMP 00002 0003C8 03043   3054
MSVTABE  00002 0000BC 02754   2735  2736
MSVTAS   00002 00016C 02830   2810
MSVTBLD  00002 000068 02720   2699
MSVTBMP  00004 000248 02904   2910
MSVTCK   00004 000200 02884   2920
MSVTENT  00004 00012A 02811
MSVTENTA 00002 000132 02813
MSVTENTF 00006 000138 02817   2820
MSVTENTS 00006 000170 02833   2836
MSVTENTU 00002 000182 02837   2834
MSVTENTX 00002 00014A 02821   2818
MSVTPT   00002 00022C 02895   2905
MSVTREAD 00002 000082 02731   2753
MSVTSAV  00002 000250 02906   2903
MSVTTRA  00002 000192 02846   2804
MSVTTRC  00002 000106 02796   2808  2829  2841
MSVTTRMB 00004 000844 03491   3484
MSVTTRMC 00002 00084C 03493   3478
MSVTTRMP 00002 00081A 03476   3035  3052  3067  3084  3099  3107  3148  3168  3189  3209  3252  3259  3328  3335  3355
                              3472  3474  3492
MSVTTRSI 00002 000804 03470   3231
MSVTWAIT 00002 00026A 02913   2889  2891  2927  2929  2943
MSVTXX   00002 0002C8 02947   2933
MSVUSER  00004 000058 01555
MSVVOLTM 00004 0004F2 03161   3170
MSVWKCHN 00004 000000 01580   2819  2822  2824  2824  2835  2931  3374  3438
MSVWKCNT 00002 000004 01581   2827  2838  2840  2859  2935
MSVWKEND 00001 0000BC 01587   1588
MSVWKID  00001 000006 01582   2825  2826  2833  2858  2902  2934  3436
MSVWKMAP 00001 000000 01579   1588  2816  2832  2857  3003  3268  3313  3373  3433
MSVWKQ   00028 00000C 01585   2930  3005  3284  3317
MSVWKSZ  00188 0000BC 01588   2811  2824  3375
MSVWKTTR 00004 000008 01584   2828  2892  2912  3004  3006
NALLOFF  00001 000005 00069
NALLON   00001 00000C 00071
NCBTAADD 00004 000134 02347
MSVQ                                         CROSS-REFERENCE                                                   PAGE   24


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

NCBTAFND 00004 000138 02348
NCBTAGET 00004 00013C 02349
NCBTAPUT 00004 000140 02350
NCBTAREL 00004 000144 02351
NE       00001 000007 00053   2887  2889  2891  2910  2927  2929  3127  3472  3474
NJPNAME  00004 00036C 02494
NMAREA   00004 0003DC 01279
NMINUS   00001 00000B 00064
NOP      00001 000000 00048
NPLUS    00001 00000D 00065
NXTCSECT 00004 000000 01525
NZERO    00001 000007 00061   2708  2713  2804  3257  3385  3398  3536
OSLOAD   00001 000017 02665
OV       00001 000001 00058
PAFCTBTM 00004 000254 02422
PAFCTTOP 00004 000250 02421
PARQBTM  00004 00029C 02441
PARQTOP  00004 000298 02440
PFKTABLE 00004 000274 02430
PLUS     00001 000002 00059
PRTAB    00004 000278 02431
PURCHAIN 00004 000148 02352
PUTUNIT  00004 00014C 02353
QMASGN   00001 000001 01600
QMASGS   00001 000000 01601
QMCAN    00008 000000 01596
QMDELE   00001 000008 01608
QMDTOP   00001 000006 01606
QMDTYP   00001 000007 01607
QMEIA    00004 00001C 01623
QMFLT    00002 000009 01610   3285  3319
QMLNK    00002 000012 01619
QMNAM    00008 000000 01595   1596  1597
QMNOT    00001 00000E 01613   3287  3321
QMPCL    00004 000020 01624   1625  1626
QMPCM    00004 000020 01625
QMPEB    00008 000004 01597
QMPNC    00004 000020 01626
QMPOP    00001 000008 01598
QMPRI    00001 000011 01618   3008
QMREAD   00001 000004 01604
QMSTA    00001 000010 01616
QMTID    00002 000014 01620   3288  3322
QMTLN    00002 00000C 01612
QMTPY    00001 00000F 01614   3009  3010
QMTST    00001 00000B 01611   3286  3320
QMWREN   00001 000005 01605
QMWRTA   00001 000002 01602
QMWRTE   00001 000003 01603
QMWTQ    00004 000018 01622
RCLOSE   00004 000150 02354
RECEIVE  00004 000154 02355   2879  2963
RECPOST  00001 000080 02921   2914
RELSAVE  00004 000158 02356
RESTABLE 00004 00027C 02432
MSVQ                                         CROSS-REFERENCE                                                   PAGE   25


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RICLOSE  00004 00015C 02357   3265  3296  3387
RICRE    00004 000160 02358
RIGET    00004 000164 02359   3531
RIMCLASS 00001 000280 02433
RIOBEG   00001 000000 01452   1480  1517
RIOBSAV1 00004 000014 01458
RIOBSAV2 00004 00001C 01460
RIOCENT  00001 000024 01462
RIOCFDB  00004 00000C 01456
RIOCFILE 00004 000050 01477
RIOCRADD 00004 000008 01455
RIOEASGN 00001 000080 01859   2809  2826  2901  3435
RIOEATTR 00004 000004 01861   2907  3490  3500
RIOEFDB  00006 000000 01848
RIOEFEND 00001 000008 01850   1851
RIOEFSIZ 00008 000008 01851
RIOEJTYP 00001 000000 01857
RIOELTH  00001 000001 01858   2807  2809  2825  2833  2900  3434
RIOEND   00001 000054 01479   1480
RIOENTRY 00001 000000 01856   1863  2806  2899  3431  3489
RIOEREND 00001 000008 01862   1863
RIOERSIZ 00008 000008 01863
RIOESTRT 00001 000000 01847   1851
RIOLCFDB 00004 00004C 01476
RIOLTTR  00004 000004 01454
RIORET1  00004 000010 01457
RIORET2  00004 000018 01459
RIOSIZE  00084 000054 01480
RIOTABLE 00004 000000 01453   2729  3389
RIOTCHN  00004 000000 01835   2752  3391
RIOTEND  00001 000010 01841   1842
RIOTHIE  00002 000004 01836
RIOTLWE  00002 000006 01837
RIOTNPR  00004 000008 01838
RIOTNPR1 00002 00000E 01840
RIOTSIZ  00016 000010 01842
RIOTSTRT 00001 000000 01834   1842  2751  3390
RIOTTSIZ 00002 00000C 01839
RIOURADD 00004 000020 01461
RIOWRITE 00001 000080 01478
RIOXCFDB 00004 000030 01467
RIOXLTTR 00002 000028 01464
RIOXRADD 00004 00002C 01466
RIOXUSE  00002 00002A 01465
RIOYCFDB 00004 00003C 01471
RIOYLTTR 00002 000034 01468
RIOYRADD 00004 000038 01470
RIOYUSE  00002 000036 01469
RIOZCFDB 00004 000048 01475
RIOZLTTR 00002 000040 01472
RIOZRADD 00004 000044 01474
RIOZUSE  00002 000042 01473
RIPUT    00004 000168 02360   3292
RIRATTR  00003 000001 01872   3494  3500  3539
RIRCB    00176 000004 01873   3540
MSVQ                                         CROSS-REFERENCE                                                   PAGE   26


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RIREC    00001 000000 01870   1875  3016  3124  3469  3537
RIREND   00001 0000B4 01874   1875
RIRENQ   00001 000002 01880   3037
RIRFLAG  00001 000000 01871   3037
RIRNREC  00001 000004 01881
RIRQMPA  00001 000001 01879   3004
RIRSIZE  00180 0000B4 01875
RITABLE  00004 000280 02434
RITPT    00004 00016C 02361   2800  2896  3427  3486  3497
RJPCEQ   00004 000334 02480
RJPLDCTQ 00004 000338 02481
RJPLNFCT 00004 000258 02423
RJPLNMGR 00004 00033C 02482
RJPSNAP  00004 0001E0 02390
RJPTAB   00004 000284 02435
ROPEN    00004 000170 02362
ROUTE    00004 000174 02363
RQ       00001 000010 02658
RQACTIVE 00001 000040 01752
RQAGER   00001 000044 01692
RQAID    00001 000002 01790
RQALLOC  00001 000004 01806   1807
RQBRKDWN 00001 000024 01814   1815
RQBTM    00004 00028C 02437
RQBYPASS 00001 000040 01763
RQCGUAVL 00001 000002 01779
RQCPTYP  00001 000040 01687
RQCRDEST 00002 000024 01663
RQDJCABN 00001 000040 01741
RQDJCFLG 00001 000047 01695
RQDJCHLD 00001 000020 01742
RQDJCJOB 00001 000080 01740
RQDJCNCL 00001 000001 01791
RQDJCNS  00001 000008 01744
RQDJCOPH 00001 000010 01743
RQDJCSC  00001 000004 01745
RQDJCSUP 00001 000002 01746
RQDONE   00001 000028 01815   1816
RQDSPCN  00001 000080 01762
RQDSPLY  00001 000001 01747
RQEND    00004 000050 01701   1702
RQFLG1   00001 000048 01696
RQFLG2   00001 000049 01697
RQFLG3   00001 00004A 01698   2771
RQFLG4   00001 00004E 01700
RQFSIZE  00080 000050 01702
RQGRPCHN 00004 000004 01656
RQGRPRTY 00001 000042 01689   1690
RQGRPSEQ 00001 00003E 01685
RQHIGHIO 00001 000002 01821
RQHOLD   00001 000080 01751
RQHOT    00001 000080 01773
RQIEND   00001 000030 01675
RQIETYPE 00001 000040 01796
RQIFLAG  00001 000031 01676
MSVQ                                         CROSS-REFERENCE                                                   PAGE   27


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RQIHOLD  00001 000020 01797
RQINDEX  00001 00003B 01682
RQIORATE 00001 00003C 01683
RQIPLACT 00001 000040 01785
RQISTART 00001 00002F 01674
RQISTYPE 00001 000080 01795
RQJBHLD  00001 000001 01758
RQJCLASS 00001 00003A 01681
RQJCTPTY 00001 000041 01688
RQJDBFDB 00006 00000C 01658
RQJES    00001 00002C 01816
RQJESID  00004 00002A 01672
RQJESJF  00001 000002 01801
RQJESJN  00001 000001 01802
RQJESTRM 00001 000003 01800
RQJOBNAM 00008 000014 01660
RQJOBNO  00002 000012 01659
RQJSTAT  00001 000032 01677
RQJSTFDB 00006 00001C 01661
RQJXBFIT 00001 00000B 01717
RQJXCHSE 00001 000005 01711
RQJXCLAS 00001 000007 01713
RQJXCPGM 00001 000006 01712
RQJXDJCH 00001 000010 01722
RQJXHOLD 00001 00000E 01720
RQJXINDX 00001 00000F 01721
RQJXIORT 00001 000003 01709
RQJXLSPN 00001 000008 01714
RQJXMAIN 00001 000004 01710
RQJXMCMN 00001 000009 01715
RQJXMDCP 00001 000085 01730
RQJXMDDV 00001 00008A 01735
RQJXMDEP 00001 000080 01725
RQJXMDGM 00001 000087 01732
RQJXMDHO 00001 000081 01726
RQJXMDMN 00001 000084 01729
RQJXMDNW 00001 000083 01728
RQJXMDRG 00001 000086 01731
RQJXMDRS 00001 000082 01727
RQJXMDSP 00001 000088 01733
RQJXMDVO 00001 000089 01734
RQJXMPRT 00001 000011 01723
RQJXNBST 00001 00000D 01719
RQJXNFIT 00001 00000C 01718
RQJXONMN 00001 0000FF 01736
RQJXPMIX 00001 00000A 01716
RQJXSTOR 00001 000001 01707
RQJXTLDL 00001 000002 01708
RQJXZERO 00001 000000 01706
RQLINEST 00002 000022 01662
RQLOWIO  00001 000001 01820
RQMAINS  00004 000034 01679
RQMDINCL 00001 000001 01780
RQMDINCR 00001 000010 01765
RQMDSRST 00001 000004 01778
MSVQ                                         CROSS-REFERENCE                                                   PAGE   28


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

RQMEDIO  00001 000004 01822
RQMOUNT  00001 00000C 01808   1809
RQMPIPL  00001 000010 01754
RQMPLAST 00001 000033 01678
RQMPSEQ  00001 00003D 01684
RQMSVD   00001 000040 01774
RQMVTSIZ 00002 000026 01664
RQNEW    00001 000004 01767
RQNEWJOB 00001 000002 01757
RQNEXT   00004 000000 01655
RQNOBKDN 00001 000020 01786
RQNXTMDS 00001 000046 01694
RQOLD    00001 000002 01768
RQONMAIN 00001 000018 01811   1812
RQOPRCNT 00002 00004C 01699
RQPREAL  00001 000004 01756
RQPRONLY 00001 000008 01788
RQPRTY   00001 000043 01691
RQPUTHLD 00001 000001 01769
RQRGNSIZ 00005 00002A 01666   1671
RQSCRREF 00001 000008 01777   2771
RQSELECT 00001 000014 01810   1811
RQSESEQ  00001 00003F 01686
RQSETUP  00001 000020 01764
RQSFR    00001 000004 01789
RQSTART  00001 000000 01654   1702  2770
RQSTPCHK 00001 000008 01755
RQSTPMDS 00001 000020 01775
RQSTPNO  00001 000045 01693
RQSTPREL 00001 000010 01776
RQSTRTQ  00001 000008 01766
RQSUDAO  00001 000080 01784
RQTAADD  00004 000178 02364
RQTADEL  00004 00017C 02365
RQTAPUT  00004 000180 02366
RQTERM   00001 000020 01813   1814
RQTMPCHN 00004 000008 01657
RQTOP    00004 000288 02436
RQUNUSED 00001 00002E 01673
RQVERIFY 00001 000010 01809   1810
RQVFYCNT 00002 000038 01680
RQVOLUAV 00001 000008 01807   1808
RQVSREQ  00001 000010 01787
RQVS2SIZ 00002 000028 01665
RQWTR    00001 00001C 01812   1813
RQXBKHLD 00001 000020 01753
RREAD    00004 000184 02367
RSVSAVE  00004 000188 02368
RWRITE   00004 00018C 02369
R0       00001 000000 01632   2684  2685  2725  2725  2739  2745  2746  2775  2781  2782  2799  2814  2849  2863  2867
                              2868  2876  2895  2915  2916  2938  2939  2948  2951  2954  2961  2974  2995  3291  3375
                              3377  3380  3392  3407  3410  3413  3426  3446  3448  3451  3482  3483  3483  3495  3509
                              3517  3530  3554  3559  3559  3560  3561  3569
R1       00001 000001 01633   2722  2723  2724  2731  2738  2757  2776  2776  2805  2866  2875  2878  2899  2937  2949
                              2960  2961  2989  2990  2990  2993  2994  3289  3361  3366  3371  3373  3384  3389  3390
MSVQ                                         CROSS-REFERENCE                                                   PAGE   29


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

                              3392  3397  3406  3430  3452  3489  3510  3516  3518  3534  3553  3563  3568  3571  3576
R10      00001 00000A 01642   2507  2508  2509  2680  2681
R11      00001 00000B 01643   0078
R12      00001 00000C 01644   2253
R13      00001 00000D 01645   2678  2690  2691  2693  3406  3408
R14      00001 00000E 01646   1081  1082  1082  1083  1090  2506  2688  2727  2728  2728  2733  2734  2734  2742  2743
                              2743  2749  2759  2760  2760  2778  2779  2779  2784  2785  2785  2801  2870  2871  2871
                              2880  2881  2881  2897  2919  2941  2942  2942  2952  2953  2954  2956  2957  2957  2964
                              2965  2965  2971  2972  2972  2976  2977  2977  2997  2998  2998  3266  3293  3297  3364
                              3365  3365  3369  3370  3370  3378  3379  3380  3382  3383  3383  3388  3395  3396  3396
                              3411  3412  3413  3415  3416  3416  3418  3419  3419  3420  3428  3449  3450  3451  3454
                              3455  3455  3463  3487  3498  3513  3514  3514  3521  3522  3522  3532  3556  3557  3557
                              3565  3566  3566  3573  3574  3574  3578  3579  3579
R15      00001 00000F 01647   1078  1084  1088  1091  2680  2687  2688  2726  2732  2741  2748  2749  2758  2777  2781
                              2800  2801  2803  2803  2869  2879  2896  2897  2918  2919  2940  2955  2963  2969  2975
                              2996  3265  3266  3292  3293  3296  3297  3349  3350  3353  3363  3368  3381  3387  3388
                              3394  3414  3427  3428  3453  3462  3463  3486  3487  3497  3498  3512  3520  3531  3532
                              3535  3535  3555  3564  3572  3577
R2       00001 000002 01634   2745  2877  2962  3015  3047  3063  3080  3095  3104  3123  3164  3185  3200  3221  3249
                              3255  3267  3271  3312  3315  3333  3345  3437  3541  3561  3569
R3       00001 000003 01635   2685  2738  2815  2816  2817  2819  2823  2831  2832  2835  3372  3479  3480  3481  3490
R4       00001 000004 01636   2682  2739  2811  2847  2882  2883  2922  2924  2944  3034  3051  3066  3083  3098  3106
                              3147  3167  3188  3204  3207  3230  3251  3258  3327  3334  3354  3374  3384  3391  3397
                              3446  3475  3477  3479  3491  3491
R5       00001 000005 01637   2677  2684  2691  2692  2729  2746  2750  2750  2751  2752  2755  2755  2761  2795  2797
                              2797  2799  2828  2892  2895  2904  2904  2911  2911  2912  3014  3044  3045  3045  3048
                              3060  3061  3061  3077  3078  3078  3092  3093  3093  3101  3102  3102  3120  3121  3121
                              3161  3162  3162  3182  3183  3183  3197  3198  3198  3216  3217  3219  3219  3244  3245
                              3245  3254  3269  3291  3302  3311  3314  3330  3331  3331  3342  3343  3343  3426  3530
                              3538
R6       00001 000006 01638   2683  2689  2694  2696  2697  2704  2709  2714  2812  2848  2853  2854  2856  2893  2907
                              2908  2908  2909  2991  2995  3002  3003  3006  3016  3124  3289  3457  3469  3503  3516
                              3534  3537  3549  3554
R7       00001 000007 01639   2814  2822  2823  2838  2839  2839  2840  2852  2857  2931  2932  2932  2987  2988  3012
                              3021  3049  3064  3081  3096  3105  3125  3165  3186  3222  3248  3262  3272  3273  3280
                              3300  3316  3346  3471  3473  3480  3540
R8       00001 000008 01640   2695  2695  2707  2707  2709  2722  2731  2757  2767  2768  2769  2770  2786  2805  2806
                              2849  2850  2851  2866  2937  2949  2966  2967  2967  2969  3005  3007  3011  3013  3035
                              3038  3052  3053  3067  3068  3084  3085  3099  3100  3107  3108  3148  3149  3150  3155
                              3156  3168  3169  3189  3190  3209  3210  3231  3232  3252  3253  3259  3260  3268  3313
                              3328  3329  3335  3336  3355  3356  3372  3432  3433  3438  3501  3523  3548  3550  3553
                              3563  3571  3576
R9       00001 000009 01641   2676  2766  2773  2867  2877  2938  2962  3062  3071  3094  3103  3110  3176  3238  3274
                              3274  3277  3277  3278  3283  3284  3317  3318  3323  3324  3404  3430  3431  3440  3543
                              3544  3546  3547
SCDCLAS  00001 000000 01888   3275  3325
SCDEEND  00001 000007 01893   1894
SCDESIZ  00007 000007 01894   3280
SCDNN1   00002 000001 01889   3285  3319
SCDNN2   00002 000005 01892   3288  3322
SCDNOL   00001 000004 01891   3287  3321
SCDNOR   00001 000003 01890   3286  3320
SCDNTTR  00004 0000AC 01896   3301  3326  3653
SCDREND  00001 0000B0 01897   1898
SCDRSIZ  00176 0000B0 01898
MSVQ                                         CROSS-REFERENCE                                                   PAGE   30


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SCTAALOC 00004 000010 01928
SCTAB    00004 0002A0 02442
SCTABCAN 00001 000010 02025
SCTABCND 00001 0000A0 02022   3592  3593
SCTABEND 00001 000004 02027
SCTADSMB 00004 00001C 01936   3622
SCTADSTB 00004 000028 01942   3136  3625
SCTAFACT 00004 000020 01938   3135  3623
SCTAFSMB 00004 000018 01931   3621
SCTAISMB 00001 0000AD 03593   3637
SCTANAME 00008 00007A 02241
SCTANSCT 00004 000014 01930   3138  3620
SCTBCT   00004 000068 01996
SCTBCTU  00001 000001 02012
SCTCHAFF 00001 000080 02164
SCTCHSEP 00001 000040 02165
SCTCRCNT 00001 000053 01982
SCTCRWTP 00003 000050 01981
SCTCSADD 00008 00000C 02088
SCTDDDUP 00001 000051 02214
SCTDDINO 00001 000034 02133
SCTDDNAM 00008 000004 02087
SCTDEFER 00001 000002 02170
SCTDISKA 00003 000000 01910   3618
SCTDORST 00001 000008 01918
SCTDSNRF 00001 000080 02175
SCTDSOCL 00001 000040 02000
SCTDUMMY 00001 000080 02153
SCTEQTTR 00001 0000A8 03592   3636
SCTEVEN  00001 000002 02028
SCTFSIOT 00004 00000C 01927   3132  3619
SCTFSTEP 00001 000020 01990
SCTGOSTP 00001 000080 01955
SCTGOTTR 00004 000064 01992   3627
SCTID    00001 000002 01912
SCTJBEND 00001 000002 02011
SCTJOBLB 00001 000010 02167
SCTLABEL 00001 000004 02169
SCTLALOC 00002 00000A 01925
SCTLCSAD 00004 00004C 01974
SCTLCSSZ 00002 00005A 01986
SCTLDSTB 00002 000074 02016
SCTLNGTH 00001 0000A6 02065
SCTMCVOL 00001 000020 02005
SCTMSADR 00004 000048 01973
SCTMSSZE 00002 000058 01985
SCTNJFCB 00001 000042 01952
SCTNMBUT 00001 000035 02135
SCTNOCKP 00001 000010 01917
SCTNORST 00001 000020 01916
SCTNSIOT 00001 000040 01950
SCTNSMSG 00001 000041 01951
SCTONLY  00001 000001 02029
SCTONLYC 00001 000008 02026
SCTOUTNM 00008 000044 02206
MSVQ                                         CROSS-REFERENCE                                                   PAGE   31


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SCTOUTNO 00004 00004C 02208
SCTOUTPN 00001 000050 02212   3228
SCTPGMNM 00008 00006C 02015
SCTPJFCB 00004 000020 02105   3223  3645
SCTPSIOT 00004 00001C 02104   3224  3644
SCTRECVD 00001 000001 02171
SCTRPACT 00002 00003C 01947
SCTSBALC 00001 000008 02157
SCTSBYT1 00001 000038 02151
SCTSBYT2 00001 000039 02162
SCTSBYT3 00001 00003A 02173   3225
SCTSBYT4 00001 00003B 02186
SCTSCLPC 00008 00002C 01944
SCTSDISP 00001 000037 02138
SCTSDP   00002 00005E 01988   3153
SCTSDPCD 00002 000076 02018
SCTSDPOP 00001 000078 02019
SCTSDPSA 00003 000079 02020   3628  3629  3630  3631  3632  3633  3634  3635
SCTSEXEC 00002 000008 01923
SCTSJFHK 00001 000010 01959
SCTSMF   00004 000060 01991
SCTSNAME 00008 000034 01946   3126
SCTSNVYV 00001 000020 02179
SCTSPLTP 00001 000020 02155
SCTSPLTS 00001 000010 02156
SCTSPOOL 00001 000030 02122
SCTSPSYS 00001 000004 02008
SCTSSTAT 00001 000004 01913
SCTSTAT2 00004 000068 01995
SCTSTIME 00003 000005 01922
SCTSTPLB 00001 000008 02007
SCTSTYPE 00001 000043 01954
SCTSYSIN 00001 000040 02154
SCTSYSNE 00001 000040 02177
SCTTBLID 00001 000003 01911
SCTTEXT  00003 000055 01984
SCTTIOT  00004 000068 01993   1995  1996
SCTUNAFF 00001 000002 02159
SCTUNLBD 00001 000008 02168
SCTUNSEP 00001 000001 02160
SCTUSADD 00008 000014 02096
SCTUTYPE 00008 00003C 02198   3471  3473  3641
SCTVLPTR 00002 000032 02128
SCTVOLAF 00001 000020 02166
SCTVOLCT 00001 000031 02123
SCTVOLTB 00004 000024 01940   3134  3624
SCTVOLTL 00002 00003E 01949
SCTXBTTR 00004 000044 01972   3137  3626
SEND     00004 000190 02370   2869  2940
SETNAMES 00004 0002A4 02443
SIOTALTD 00001 00005C 02224
SIOTASCI 00001 000010 02191
SIOTDCBR 00044 000082 02243
SIOTDPCD 00002 000052 02216
SIOTDPOP 00003 000054 02217   3227  3649
MSVQ                                         CROSS-REFERENCE                                                   PAGE   32


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SIOTDSCT 00001 000057 02220   3648
SIOTDSKA 00003 000000 02082   3643
SIOTDYNA 00001 000080 02112
SIOTGDGA 00001 000040 02188
SIOTID   00001 000003 02084
SIOTLGTH 00001 0000AE 02245
SIOTLMC  00001 000020 02116
SIOTOPUC 00004 000063 02239
SIOTOUTC 00001 000060 02237
SIOTOUTR 00002 000061 02238
SIOTPDQ  00003 00005D 02236
SIOTQNAM 00001 000001 02120
SIOTSTDP 00004 000028 02108   3647
SIOTTERM 00001 000040 02114
SIOTTSTC 00001 00002F 02111
SIOTTYPE 00001 000003 02083
SIOTVLCT 00001 000036 02137
SIOTVRSB 00004 000024 02106   3646
SIZEBUF  00004 000374 02495   2496
SMBDSKAD 00003 000168 00399   3049
SMBDUMMY 00004 000170 00403
SMBID    00001 000005 00401
SMBIDENT 00001 00016B 00400
SMBMESAG 00165 000177 00411
SMBMSGLN 00001 000176 00407
SMBNABPT 00002 000174 00406
SMBNEXT  00004 00016C 00402   3050
SMRFDB   00004 000390 02505
STEPCHK  00001 0003F0 02533
SUPUNITS 00004 0002A8 02444
SYSOUT   00001 000008 03594   3225
SYSUNIT  00001 000013 02661
SYSUNITS 00004 0002AC 02445
TAADD    00004 000194 02371
TABCUR   00004 000290 02438
TABNXT   00004 000294 02439
TACMPR   00004 000198 02372
TADEL    00004 00019C 02373
TAFIND   00004 0001A0 02374
TAGET    00004 0001A4 02375
TAPUT    00004 0001A8 02376
TARESET  00004 0001AC 02377
TATPARMS 00004 000340 02483
TFBQE    00004 000378 02497
TKMINMRG 00001 0003F2 02535
TRACE    00004 0001B0 02378
TRACESAV 00004 00037C 02498   2507
TRACETAB 00004 0002B0 02446
TRACODE  00004 0001B4 02379   2508
TVTABLE  00001 000000 02254   2253
TVTADMSK 00004 000428 02565   2951  3377  3410  3448
TVTBLANK 00008 000420 02564   3471
TVTCPTYP 00001 0003F1 02534
TVTEND   00004 000434 02568
TVTMATTN 00004 0001B8 02380
MSVQ                                         CROSS-REFERENCE                                                   PAGE   33


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TVTRMFF  00004 00042C 02566   2698  3130  3217  3304  3452
TVTRM7F  00004 000430 02567
TVTRTAB  00004 0002BC 02447
TVTTQESV 00004 000344 02484
TVTZERO  00008 000418 02563   2817
VDISABLE 00004 0001BC 02381
VENABLE  00004 0001C0 02382
VEXTFLIH 00004 0001C4 02383
VIOFLIH  00004 0001C8 02384
VIOLATE  00004 0001CC 02385
VOLTNXT  00004 000004 02674   3166
VRESV    00004 0001D4 02387
VSVCOLD  00004 0001D0 02386
WRTCHAIN 00004 0001D8 02388
WTD      00001 000015 02663
WTDQUE   00004 0002C0 02448
ZERO     00001 000008 00062   2933  2968  3046  3062  3079  3094  3103  3122  3163  3184  3199  3220  3246  3332  3344
                              3484
ZEROCORE 00004 0001DC 02389   2687
ZEROS    00001 000008 00063



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =   922      SOURCE RECORDS (SYSLIB) =  4694
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 5652 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.MAC320                                   KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   ASP.PSGLIB                                   KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= MVTRES.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.SYSUT1       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.SYSUT2       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.SYSUT3       DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000423     SYSOUT
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.OBJSET       PASSED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.TEMP         DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF373I STEP /ASM     / START 78240.1950
IEF374I STEP /ASM     / STOP  78240.1950 CPU   0MIN 03.07SEC MAIN 256K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:50:24.77   ALLOC START    19:50:24.78   MAIN REGION ----- 256K                          *
*   STEP NAME ASM        STEP END TIME  19:50:28.04   PGM START TIME 19:50:24.89   MAIN STORAGE ---- 256K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:03.27   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:03.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 176       0151 ------------ 0       0350 ----------- 16       0158 ---------- 360       0159 ---------- 309    *
*   0353 ---------- 965       0130 --------- 5653       0353 ----------- 86       0158 ----------- 86                              *
************************************************************************************************************************************

//LKED   EXEC PGM=IEWL,COND=(0,NE),REGION=200K,
//            PARM='NCAL,LET,LIST,XREF,RENT,REUS,SIZE=(128K,18K)'
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(10,2)),DSN=&SYSUT1
//SYSLMOD  DD DSN=ASP.VERSON32,DISP=SHR,UNIT=SYSDA,VOL=SER=ASPSUP
//SYSPUNCH DD DSN=&&OBJSET,DISP=(OLD,DELETE)
//SYSLIN   DD  *
//
IEF236I ALLOC. FOR SY20ZR18 LKED
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 159   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSLMOD
IEF237I 353   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LET,LIST,XREF,RENT,REUS,SIZE=(128K,18K)
           VARIABLE OPTIONS USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSPUNCH
IEW0000     NAME MSVQMAP(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  MSVQMAP       00     A13


 ENTRY ADDRESS       00
 TOTAL LENGTH       A18

****MSVQMAP   NOW REPLACED IN DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000424     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.SYSUT1       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   ASP.VERSON32                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.OBJSET       DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000425     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000425     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /LKED    / START 78240.1950
IEF374I STEP /LKED    / STOP  78240.1950 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 19:50:28.07   ALLOC START    19:50:28.09   MAIN REGION ----- 256K                          *
*   STEP NAME LKED       STEP END TIME  19:50:28.27   PGM START TIME 19:50:28.15   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.20   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0158 ----------- 19       0159 ------------ 0       0151 ------------ 6       0353 ----------- 87       0130 ------------ 3    *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR18/ START 78240.1950
IEF376I  JOB /SY20ZR18/ STOP  78240.1950 CPU   0MIN 03.22SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR18   JOB READ TIME 19:50:24.45   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:03.22   *
*   JOB CLASS A          JOB INIT TIME 19:50:24.56   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:03.73   *
*   ACCOUNT   1          JOB END TIME  19:50:28.29   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             SSSSSSS   YY    YY    2222222     00000    ZZZZZZZZZ  RRRRRRRR        1      8888888                  A
            SSSSSSSSS  YY    YY   222222222   0000000   ZZZZZZZZZ  RRRRRRRRR      11     888888888                AAA
            SS     SS  YY    YY   22     22  00     00        ZZ   RR     RR     111     88     88               AA AA
            SS          YY  YY          22   00    000       ZZ    RR     RR      11     88     88              AA   AA
            SSSSSSSS     YYYY          22    00   0 00   ZZZZZZZ   RRRRRRRRR      11      8888888              AA     AA
             SSSSSSSS     YY          22     00  0  00   ZZZZZZZ   RRRRRRRR       11      8888888              AA     AA
                   SS     YY         22      00 0   00    ZZ       RR  RR         11     88     88             AAAAAAAAA
            SS     SS     YY        22       000    00   ZZ        RR   RR        11     88     88             AAAAAAAAA
            SSSSSSSSS     YY       22222222   0000000   ZZZZZZZZZ  RR    RR     111111   888888888             AA     AA
             SSSSSSS      YY      222222222    00000    ZZZZZZZZZ  RR     RR    111111    8888888              AA     AA

***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********
***********A  START   SY20ZR18   SYS SYSA   WTR 00E   07:50:37 PM  28 AUG 1978   WTR 00E   SYS SYSA   SY20ZR18   START  A***********


//SY20ZR18 JOB 1,TASP805,CLASS=A,MSGLEVEL=(1,1)
***
***  PROBLEM DESCRIPTION(S):
***    TASP805 -
***      Prevent ASP from clobbering the last two characters
***      of the SMF ID defined in ASP initialization parms
***      with the last two digits of the model number defined
***      to MVT.
***
***   COMPONENT:  360A-CX15X-ASP
***
***   APARS FIXED: TASP805
***
***   SPECIAL CONDITIONS:
***
***   COMMENTS:
***     LAST CHANGE:  2006/08/28
***
***     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
***
***     MODULES
***       MSVIPL
***
//TASP805 EXEC PGM=IMASPZAP,REGION=256K
//SYSPRINT DD SYSOUT=A
//SYSLIB DD DISP=SHR,DSN=ASP.VERSON32,UNIT=SYSDA,VOL=SER=ASPSUP
//SYSIN  DD *
//
IEF236I ALLOC. FOR SY20ZR18 TASP805
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 130   ALLOCATED TO SYSIN


IMASPZAP  VERSION 0 - INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.
 NAME MSVIPL MSVIPL
  IDRDATA TASP805
  VER 0E0A D202903ED147  MVC   MPMODEL,IPLMODEL    PUT MODEL IN MPCTLTAB
  VER 0E10 07F8          BR    R8
  REP 0E0A 07F8          BR    R8                  Skip setting model
IMA125I MSVIPL   IDR COUNT = 01 (MAX=19)
IMA100I IMASPZAP PROCESSING COMPLETED


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.SY20ZR18.R0000426     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   ASP.VERSON32                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000427     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.SY20ZR18.S0000427     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /TASP805 / START 78240.1950
IEF374I STEP /TASP805 / STOP  78240.1950 CPU   0MIN 00.05SEC MAIN  26K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:50:37.33   ALLOC START    19:50:37.34   MAIN REGION ----- 256K                          *
*   STEP NAME TASP805    STEP END TIME  19:50:37.50   PGM START TIME 19:50:37.40   MAIN STORAGE ----- 26K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.17   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IMASPZAP   STEP CPU TIME  00:00:00.05   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ------------ 8       0151 ----------- 18       0130 ------------ 7                                                        *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR18/ START 78240.1950
IEF376I  JOB /SY20ZR18/ STOP  78240.1950 CPU   0MIN 00.05SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR18   JOB READ TIME 19:50:37.27   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.05   *
*   JOB CLASS A          JOB INIT TIME 19:50:37.33   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.18   *
*   ACCOUNT   1          JOB END TIME  19:50:37.51   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG        1      9999999       A      TTTTTTTT    SSSSSSS    OOOOOOO                             A
            GGGGGGGGG      11     999999999     AAA     TTTTTTTT   SSSSSSSSS  OOOOOOOOO                           AAA
            GG     GG     111     99     99    AA AA       TT      SS     SS  OO     OO                          AA AA
            GG             11     99     99   AA   AA      TT      SS         OO     OO                         AA   AA
            GG             11     999999999  AA     AA     TT      SSSSSSSS   OO     OO                        AA     AA
            GG   GGGG      11      9999999   AA     AA     TT       SSSSSSSS  OO     OO                        AA     AA
            GG   GGGG      11          99    AAAAAAAAA     TT             SS  OO     OO                        AAAAAAAAA
            GG     GG      11         99     AAAAAAAAA     TT      SS     SS  OO     OO                        AAAAAAAAA
            GGGGGGGGG    111111      99      AA     AA     TT      SSSSSSSSS  OOOOOOOOO                        AA     AA
             GGGGGGG     111111     99       AA     AA     TT       SSSSSSS    OOOOOOO                         AA     AA

***********A  START   G19ATSO    SYS SYSA   WTR 00E   07:50:54 PM  28 AUG 1978   WTR 00E   SYS SYSA   G19ATSO    START  A***********
***********A  START   G19ATSO    SYS SYSA   WTR 00E   07:50:54 PM  28 AUG 1978   WTR 00E   SYS SYSA   G19ATSO    START  A***********
***********A  START   G19ATSO    SYS SYSA   WTR 00E   07:50:54 PM  28 AUG 1978   WTR 00E   SYS SYSA   G19ATSO    START  A***********
***********A  START   G19ATSO    SYS SYSA   WTR 00E   07:50:54 PM  28 AUG 1978   WTR 00E   SYS SYSA   G19ATSO    START  A***********
***********A  START   G19ATSO    SYS SYSA   WTR 00E   07:50:54 PM  28 AUG 1978   WTR 00E   SYS SYSA   G19ATSO    START  A***********


//G19ATSO  JOB ASP,G19ASPTSO,MSGLEVEL=(1,1),REGION=128K,CLASS=A
***********************************************************************
***                                                                 ***
***    Job:      G19ASPTSO                                          ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Link ASP IKJEFF53 TSO STATUS/CANCEL/OUTPUT exit    ***
***              and HOLD/RELEASE support to SYS1.LINKLIB of        ***
***              new system.                                        ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
//LINK PROC SER2=,DISK2=3330
//*
//*    SER2= THE VOLID OF DISK PACK CONTAINING THE ASP.VERSION32
//*          DATASET
//*    DISK2= SYMBOLIC NAME OF DISK DRIVE FOR SER2 (I.E. 3330)
//*
//STEP2 EXEC PGM=IEWL,
//           PARM='NCAL,LET,LIST,XREF,RENT,SIZE=(128K,18K)'
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=A
//SYSLIB   DD DSN=ASP.VERSON32,
//            UNIT=&DISK2,
//            VOL=SER=&SER2,
//            DISP=SHR
//SYSLMOD  DD DSN=SYS1.LINKLIB,VOL=SER=ASPRES,UNIT=SYSDA,
//            DISP=SHR
//      PEND
//LINKTSO EXEC LINK,SER2=ASPSUP
++LINK PROC SER2=,DISK2=3330
***
***    SER2= THE VOLID OF DISK PACK CONTAINING THE ASP.VERSION32
***          DATASET
***    DISK2= SYMBOLIC NAME OF DISK DRIVE FOR SER2 (I.E. 3330)
***
++STEP2 EXEC PGM=IEWL,
++           PARM='NCAL,LET,LIST,XREF,RENT,SIZE=(128K,18K)'
++SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
++SYSPRINT DD SYSOUT=A
++SYSLIB   DD DSN=ASP.VERSON32,
++            UNIT=&DISK2,
IEF653I SUBSTITUTION JCL - UNIT=3330,
++            VOL=SER=&SER2,
IEF653I SUBSTITUTION JCL - VOL=SER=ASPSUP,
++            DISP=SHR
++SYSLMOD  DD DSN=SYS1.LINKLIB,VOL=SER=ASPRES,UNIT=SYSDA,
++            DISP=SHR
//STEP2.SYSLIN DD *
//
IEF236I ALLOC. FOR G19ATSO  STEP2    LINKTSO
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LET,LIST,XREF,RENT,SIZE=(128K,18K)
           VARIABLE OPTIONS USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSLIB(IKJEFFHR)
IEW0000      ALIAS HOLD
IEW0000      ALIAS RELEASE
IEW0000      ALIAS REL
IEW0000       SETSSI 0301C200
IEW0000        NAME IKJEFFHR(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFFHR      00     3C6
  IKJEFF57     3C8      36



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      3B0            IKJEFF57        IKJEFF57
 ENTRY ADDRESS       00
 TOTAL LENGTH       400

****IKJEFFHR  NOW REPLACED IN DATA SET
****REL       IS AN ALIAS FOR THIS MEMBER
****RELEASE   IS AN ALIAS FOR THIS MEMBER
****HOLD      IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.


IEW0000     INCLUDE SYSLIB(IKJEFF53)
IEW0000      SETSSI 0301C200
IEW0000       NAME IKJEFF53(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IKJEFF53      00     2F8


 ENTRY ADDRESS       00
 TOTAL LENGTH       2F8

****IKJEFF53  NOW REPLACED IN DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, AND REUSABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.RV000.G19ATSO.R0000428      DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.SV000.G19ATSO.R0000429      SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   ASP.VERSON32                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G19ATSO.S0000430      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G19ATSO.S0000430      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /STEP2   / START 78240.1950
IEF374I STEP /STEP2   / STOP  78240.1950 CPU   0MIN 00.08SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:50:54.51   ALLOC START    19:50:54.52   MAIN REGION ----- 256K                          *
*   STEP NAME STEP2      STEP END TIME  19:50:54.72   PGM START TIME 19:50:54.59   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME LINKTSO    ELAPSED TIME   00:00:00.21   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.08   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0353 ------------ 0       0158 ----------- 46       0151 ----------- 13       0150 ----------- 13       0130 ----------- 10    *
************************************************************************************************************************************

IEF375I  JOB /G19ATSO / START 78240.1950
IEF376I  JOB /G19ATSO / STOP  78240.1950 CPU   0MIN 00.08SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G19ATSO    JOB READ TIME 19:50:54.41   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.08   *
*   JOB CLASS A          JOB INIT TIME 19:50:54.51   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.24   *
*   ACCOUNT   ASP        JOB END TIME  19:50:54.75   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG    2222222     00000    PPPPPPPP       A      RRRRRRRR   M       M  LL                        A
            GGGGGGGGG  222222222   0000000   PPPPPPPPP     AAA     RRRRRRRRR  MM     MM  LL                       AAA
            GG     GG  22     22  00     00  PP     PP    AA AA    RR     RR  MMM   MMM  LL                      AA AA
            GG               22   00    000  PP     PP   AA   AA   RR     RR  MMMM MMMM  LL                     AA   AA
            GG              22    00   0 00  PPPPPPPPP  AA     AA  RRRRRRRRR  MM MMM MM  LL                    AA     AA
            GG   GGGG      22     00  0  00  PPPPPPPP   AA     AA  RRRRRRRR   MM  M  MM  LL                    AA     AA
            GG   GGGG     22      00 0   00  PP         AAAAAAAAA  RR  RR     MM     MM  LL                    AAAAAAAAA
            GG     GG    22       000    00  PP         AAAAAAAAA  RR   RR    MM     MM  LL                    AAAAAAAAA
            GGGGGGGGG   22222222   0000000   PP         AA     AA  RR    RR   MM     MM  LLLLLLLLL             AA     AA
             GGGGGGG   222222222    00000    PP         AA     AA  RR     RR  MM     MM  LLLLLLLLL             AA     AA

***********A  START   G20PARML   SYS SYSA   WTR 00E   07:51:05 PM  28 AUG 1978   WTR 00E   SYS SYSA   G20PARML   START  A***********
***********A  START   G20PARML   SYS SYSA   WTR 00E   07:51:05 PM  28 AUG 1978   WTR 00E   SYS SYSA   G20PARML   START  A***********
***********A  START   G20PARML   SYS SYSA   WTR 00E   07:51:05 PM  28 AUG 1978   WTR 00E   SYS SYSA   G20PARML   START  A***********
***********A  START   G20PARML   SYS SYSA   WTR 00E   07:51:05 PM  28 AUG 1978   WTR 00E   SYS SYSA   G20PARML   START  A***********
***********A  START   G20PARML   SYS SYSA   WTR 00E   07:51:05 PM  28 AUG 1978   WTR 00E   SYS SYSA   G20PARML   START  A***********


//G20PARML JOB  1,'G20PARMLIB',CLASS=A,MSGLEVEL=(1,1)
***********************************************************************
***                                                                 ***
***    Job:      G20PARMLIB                                         ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Update SYS1.PARMLIB on new system with ASP         ***
***              parms, PRESRES list, SMF, TSO parameters,          ***
***              COMMND00.                                          ***
***    Update:   2006/08/28                                         ***
***                                                                 ***
***********************************************************************
***
//UPDTE  EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DISP=SHR,DSN=SYS1.PARMLIB,UNIT=SYSDA,VOL=SER=ASPRES
//SYSIN    DD  DATA
//
IEF236I ALLOC. FOR G20PARML UPDTE
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ ADD NAME=ASPFMT
       */********************************************************************/
       */*                                                                  */
       */*    MEMBER:      ASPFMT                                           */
       */*    PURPOSE:     ASP START TYPE AND TRACK INITIALIZATION          */
       */*                 PARAMETERS FOR COLD START WITH FORMAT.           */
       */*    UPDATE:      2006/07/03                                       */
       */*                                                                  */
       */********************************************************************/
       *
       */*------------------------------------------------------------------*/
       */*    "COLDSTART" AND "FORMAT" ASPIO PARAMETERS FOR COLD            */
       */*    START WITH FORMAT.                                            */
       */*------------------------------------------------------------------*/
       COLDSTART
       FORMAT,DDNAME=QUEUE1
       *
IEB817I MEMBER NAME (ASPFMT  ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002


       ./ ADD NAME=ASPCOLD
       */********************************************************************/
       */*                                                                  */
       */*    MEMBER:      ASPCOLD                                          */
       */*    PURPOSE:     ASP START TYPE AND TRACK INITIALIZATION          */
       */*                 PARAMETERS FOR COLD START WITHOUT FORMAT.        */
       */*    UPDATE:      2006/07/03                                       */
       */*                                                                  */
       */********************************************************************/
       *
       */*------------------------------------------------------------------*/
       */*    "COLDSTART" AND "TRACK" ASPIO PARAMETERS FOR COLD             */
       */*    START WITHOUT FORMAT.                                         */
       */*------------------------------------------------------------------*/
       COLDSTART
       TRACK,DDNAME=QUEUE1
       *
IEB817I MEMBER NAME (ASPCOLD ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0003


       ./ ADD NAME=ASPWARM
       */********************************************************************/
       */*                                                                  */
       */*    MEMBER:      ASPWARM                                          */
       */*    PURPOSE:     ASP START TYPE AND TRACK INITIALIZATION          */
       */*                 PARAMETERS FOR WARM START.                       */
       */*    UPDATE:      2006/07/03                                       */
       */*                                                                  */
       */********************************************************************/
       *
       */*------------------------------------------------------------------*/
       */*    "RESTART" AND "TRACK" ASPIO PARAMETERS FOR WARM START.        */
       */*------------------------------------------------------------------*/
       RESTART
       TRACK,DDNAME=QUEUE1
       *
IEB817I MEMBER NAME (ASPWARM ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0004


       ./ ADD NAME=ASPLOCAL
       */********************************************************************/
       */*                                                                  */
       */*    MEMBER:      ASPLOCAL                                         */
       */*    PURPOSE:     ASP INITIALIZATION PARAMETERS FOR LOCAL MAIN.    */
       */*    UPDATE:      2006/08/05                                       */
       */*                                                                  */
       */********************************************************************/
       *
       */*------------------------------------------------------------------*/
       */*    RESIDUAL ASPIO PARAMETERS.                                    */
       */*------------------------------------------------------------------*/
       BUFFER,BUFSIZE=1952,RECORDS=6,IOBS=3,DASD=3330,AMOUNT=60,TAT=FULL
       OPTIONS,ADDSAVE=32,DUMP=ASP,TRACE=500
       ASPCORE,MINCORE=18K,MARGCORE=20K,ASPOOL=1
       ENDASPIO
       *
       */*------------------------------------------------------------------*/
       */*    JOB SELECTION MODES FOR MAINS.                                */
       */*------------------------------------------------------------------*/
       SELECT,NAME=ASP1,MINIT=6,MBAR=15,DISPLAY=MLOG,SBAR=15,SDEPTH=255
       *
       */*------------------------------------------------------------------*/
       */*    ASP1 LOCAL MAIN.                                              */
       */*------------------------------------------------------------------*/
       *ADAPTER= is MPADAPT and MPDEVADD, MAINCTC= is MPCTC
       MAINPROC,NAME=ASP1,ID=ASP1,MDEST=M1,SYSTEM=LOCAL,SMFID=AS,MODEL=SP1,   +
       ADAPTER=02F,MAINCTC=02F,                                               +
       SELECT=ASP1,CTCCUA=(6,7,8),JOBCLASS=(B,C)
       DEVICE,STYPE=MAIN,GTYPE=SYS,SUPPORT=(02F,ASP1,M1,ON)
       *
       */*------------------------------------------------------------------*/
       */*    CLASS AND GROUP DEFINITION.                                   */
       */*------------------------------------------------------------------*/
       CLASS,NAME=ASPBATCH,GROUP=ASPBATCH
       CLASS,NAME=A,GROUP=ASPBATCH
       CLASS,NAME=B,GROUP=ASPBATCH
       CLASS,NAME=C,GROUP=ASPBATCH
       CLASS,NAME=D,GROUP=ASPBATCH
       CLASS,NAME=E,GROUP=ASPBATCH
       CLASS,NAME=F,GROUP=ASPBATCH
       CLASS,NAME=G,GROUP=ASPBATCH
       CLASS,NAME=H,GROUP=ASPBATCH
       CLASS,NAME=I,GROUP=ASPBATCH
       CLASS,NAME=J,GROUP=ASPBATCH
       CLASS,NAME=K,GROUP=ASPBATCH
       CLASS,NAME=L,GROUP=ASPBATCH
       CLASS,NAME=M,GROUP=ASPBATCH
       CLASS,NAME=N,GROUP=ASPBATCH
       CLASS,NAME=O,GROUP=ASPBATCH
       CLASS,NAME=P,GROUP=ASPBATCH
       CLASS,NAME=Q,GROUP=ASPBATCH
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0005


       CLASS,NAME=R,GROUP=ASPBATCH
       CLASS,NAME=S,GROUP=ASPBATCH
       CLASS,NAME=T,GROUP=ASPBATCH
       CLASS,NAME=U,GROUP=ASPBATCH
       CLASS,NAME=V,GROUP=ASPBATCH
       CLASS,NAME=W,GROUP=ASPBATCH
       CLASS,NAME=X,GROUP=ASPBATCH
       CLASS,NAME=Y,GROUP=ASPBATCH
       CLASS,NAME=Z,GROUP=ASPBATCH
       CLASS,NAME=0,GROUP=ASPBATCH
       CLASS,NAME=1,GROUP=ASPBATCH
       CLASS,NAME=2,GROUP=ASPBATCH
       CLASS,NAME=3,GROUP=ASPBATCH
       CLASS,NAME=4,GROUP=ASPBATCH
       CLASS,NAME=5,GROUP=ASPBATCH
       CLASS,NAME=6,GROUP=ASPBATCH
       CLASS,NAME=7,GROUP=ASPBATCH
       CLASS,NAME=8,GROUP=ASPBATCH
       CLASS,NAME=9,GROUP=ASPBATCH
       *GROUP,NAME=ASPBATCH,EXRESC=(ASP1,3,,IPL,MANUAL),PRTY=1
       *GROUP,NAME=ASPBATCH,EXRESC=(ASP1,3,,DYNAMIC,MANUAL),PRTY=1
       GROUP,NAME=ASPBATCH,EXRESC=(ASP1,0,,DYNAMIC,DYNAMIC),PRTY=1
       *
       */*------------------------------------------------------------------*/
       */*    ASP1 DEVICES.                                                 */
       */*------------------------------------------------------------------*/
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(580,TA580,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(580,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(581,TA581,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(581,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(582,TA582,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(582,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(583,TA583,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(583,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(584,TA584,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(584,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(585,TA585,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(585,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(586,TA586,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(586,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(587,TA587,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(587,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(588,TA588,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(588,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(589,TA589,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(589,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(589,TA58A,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(58A,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(58B,TA58B,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(58B,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(58C,TA58C,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(58C,ASP1,S1)
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0006


       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(58D,TA58D,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(58D,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(58E,TA58E,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(58E,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(58F,TA58F,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(58F,ASP1,S1)
       *
       */*------------------------------------------------------------------*/
       */*    MDS.                                                          */
       */*------------------------------------------------------------------*/
       SETNAME,MTYPE=24009,NAMES=(TAPE,3400-3,3400-5,3400-6,2400-3)
       SETPARAM,ADDRSORT=YES,ALLOCATE=AUTO,DEPTH=255,MDSLOG=M1,REMOUNT=1
       *
       */*------------------------------------------------------------------*/
       */*    READER/INTERPRETER.                                           */
       */*------------------------------------------------------------------*/
       DEVICE,STYPE=OSRDR,SUPPORT=(NONE,RI1),GTYPE=ARI
       *DEVICE,STYPE=OSRDR,SUPPORT=(NONE,RI2),GTYPE=ARI
       RIDATSTN,SYS1.PROCLIB,SYS1.LINKLIB,SYS1.MACLIB,SYS1.SVCLIB
       RIDATSTN,ASP.PSGLIB,ASP.MACINT,ASP.MACDUMMY,ASP.SOURCE
       RI,BLDL=(ASMFC,ASMFCL,ASMFCLG),TAFETCH=S8,DAFETCH=S9
       RIPARM,PARM=(00099905001024925631SYSDA   E00011A)
       *
       */*------------------------------------------------------------------*/
       */*    CONSOLES.                                                     */
       */*------------------------------------------------------------------*/
       CONSOLE,DDNAME=CN01F,TYPE=3215,UNIT=01F,DEPTH=99,DEST=OUTPUT,MAIN=ASP1,+
       ALTCON=CN014
       CONSOLE,DDNAME=CN014,TYPE=3277,UNIT=014,TIME=0,DEST=OUTPUT,MAIN=ASP1,  +
       ALTCON=CN01F,DEPTH=99
       CONSOLE,DDNAME=CN30F,TYPE=1403,UNIT=30F,DEPTH=99,DEST=MLG,MAIN=ASP1
       *
       */*------------------------------------------------------------------*/
       */*    CONSOLE PROGRAM FUNCTION KEY DEFINITION.                      */
       */*------------------------------------------------------------------*/
       PFK,K=1,M=<*I A>
       PFK,K=2,M=<*I S>
       *
       */*------------------------------------------------------------------*/
       */*    SUPPORT DEVICES.                                              */
       */*------------------------------------------------------------------*/
       DEVICE,GTYPE=RDR,STYPE=2540P,SUPPORT=(00C,RD1,UR)
       DEVICE,GTYPE=PUN,STYPE=2540R,SUPPORT=(00D,PU1,UR)
       DEVICE,GTYPE=PRT,STYPE=1403,SUPPORT=(00E,PR1,UR)
       DEVICE,STYPE=IJMP,SUPPORT=(NONE,IJASP1),GTYPE=IJM
       DEVICE,STYPE=ACMP,SUPPORT=(NONE,ACASP1),GTYPE=ACM
       *
       */*------------------------------------------------------------------*/
       */*    PRINT SETUP.                                                  */
       */*------------------------------------------------------------------*/
       PRINTER,NAME=PR1,UCS=YES,FORMS=(YES,1PART),CARRIAGE=6#IN,              +
       TRAIN=(NO,TN)
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0007


       SYSOUT,CLASS=A
       SYSOUT,CLASS=B,TYPE=PUNCH,COPIES=1
       SYSOUT,CLASS=K,TYPE=PUNCH
       SYSOUT,CLASS=T,TYPE=TSO
       *
       */*------------------------------------------------------------------*/
       */*    RESIDENCY OPTIONS.                                            */
       */*------------------------------------------------------------------*/
       RESCTLBK,RQ=10,ASG=10,FCT=05,VUT=05
       RESIDENT,MODULE=JSS
       RESIDENT,MODULE=MDSALLOC
       RESIDENT,MODULE=ISNET
       RESIDENT,MODULE=DJCUPDAT
       RESIDENT,MODULE=RICBSCAN
       RESIDENT,MODULE=RICONTL
       RESIDENT,MODULE=IEFVHA
       *
       */*------------------------------------------------------------------*/
       */*    STANDARDS.                                                    */
       */*------------------------------------------------------------------*/
       STANDARDS,LINES=(100,W),CARDS=(50,W),FORMS=1PART,CARRIAGE=6#IN,        +
       TRAIN=TN,FLOCATE=YES,DLOCATE=YES,CLASS=B,                              +
       NOPU=H,                                                                X
       SEQCHK=YES,                                                            X
       SQS=3K,NJPNAME=ASP,CONSBUF=50,MLOG=YES
       */*------------------------------------------------------------------*/
       */*    RJP.                                                          */
       */*------------------------------------------------------------------*/
       *      /*------ NO RJP DEVICES DEFINED ------------------------------*/
       *
       */*------------------------------------------------------------------*/
       */*    END OF ASP INITIALIZATION PARMS.                              */
       */*------------------------------------------------------------------*/
       ENDINISH
       *
       */*------------------------------------------------------------------*/
       */*    IPL TEXT FOR ASP1 LOCAL MAIN.                                 */
       */*------------------------------------------------------------------*/
       IPL,NAME=ASP1,TYPE=MVT
       IPL,END
IEB817I MEMBER NAME (ASPLOCAL) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0008


       ./ ADD NAME=ASPREAL
       */********************************************************************/
       */*                                                                  */
       */*    MEMBER:      ASPREAL                                          */
       */*    PURPOSE:     ASP INITIALIZATION PARAMETERS FOR COMPLEX        */
       */*                 WITH LOCAL MAIN AND REAL MAINS.                  */
       */*    UPDATE:      2006/08/06                                       */
       */*                                                                  */
       */********************************************************************/
       *
       */*------------------------------------------------------------------*/
       */*    RESIDUAL ASPIO PARAMETERS.                                    */
       */*------------------------------------------------------------------*/
       BUFFER,BUFSIZE=1952,RECORDS=6,IOBS=3,DASD=3330,AMOUNT=60,TAT=FULL
       OPTIONS,ADDSAVE=32,DUMP=ASP,TRACE=500
       ASPCORE,MINCORE=18K,MARGCORE=20K,ASPOOL=1
       ENDASPIO
       *
       */*------------------------------------------------------------------*/
       */*    JOB SELECTION MODES FOR MAINS.                                */
       */*------------------------------------------------------------------*/
       SELECT,NAME=ASP1,MINIT=6,MBAR=15,DISPLAY=MLOG,SBAR=15,SDEPTH=255
       SELECT,NAME=ASP2,MINIT=6,MBAR=15,DISPLAY=MLOG,SBAR=15,SDEPTH=255
       SELECT,NAME=ASP3,MINIT=6,MBAR=15,DISPLAY=MLOG,SBAR=15,SDEPTH=255
       *
       */*------------------------------------------------------------------*/
       */*    ASP1 LOCAL MAIN.                                              */
       */*------------------------------------------------------------------*/
       *ADAPTER= is MPADAPT and MPDEVADD, MAINCTC= is MPCTC
       MAINPROC,NAME=ASP1,ID=ASP1,MDEST=M1,SYSTEM=LOCAL,SMFID=AS,MODEL=SP1,   +
       ADAPTER=02F,MAINCTC=02F,                                               +
       SELECT=ASP1,CTCCUA=(6,7,8),JOBCLASS=(B,C)
       DEVICE,STYPE=MAIN,GTYPE=SYS,SUPPORT=(02F,ASP1,M1,ON)
       *
       */*------------------------------------------------------------------*/
       */*    ASP2 REAL MAIN.                                               */
       */*------------------------------------------------------------------*/
       *ADAPTER= is MPADAPT and MPDEVADD, MAINCTC= is MPCTC
       MAINPROC,NAME=ASP2,ID=ASP2,MDEST=M2,SYSTEM=REAL,SMFID=AS,MODEL=SP2,    +
       ADAPTER=63F,MAINCTC=63F,                                               +
       SELECT=ASP2,CTCCUA=(6,7,8),JOBCLASS=(B,C)
       DEVICE,STYPE=MAIN,GTYPE=SYS,SUPPORT=(63F,ASP2,M2,OFF)
       *
       */*------------------------------------------------------------------*/
       */*    ASP3 REAL MAIN.                                               */
       */*------------------------------------------------------------------*/
       *ADAPTER= is MPADAPT and MPDEVADD, MAINCTC= is MPCTC
       MAINPROC,NAME=ASP3,ID=ASP3,MDEST=M3,SYSTEM=REAL,SMFID=AS,MODEL=SP3,    +
       ADAPTER=64F,MAINCTC=64F,                                               +
       SELECT=ASP2,CTCCUA=(6,7,8),JOBCLASS=(B,C)
       DEVICE,STYPE=MAIN,GTYPE=SYS,SUPPORT=(64F,ASP3,M3,OFF)
       *
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0009


       */*------------------------------------------------------------------*/
       */*    CLASS AND GROUP DEFINITION.                                   */
       */*------------------------------------------------------------------*/
       CLASS,NAME=ASPBATCH,GROUP=ASPBATCH
       CLASS,NAME=A,GROUP=ASPBATCH
       CLASS,NAME=B,GROUP=ASPBATCH
       CLASS,NAME=C,GROUP=ASPBATCH
       CLASS,NAME=D,GROUP=ASPBATCH
       CLASS,NAME=E,GROUP=ASPBATCH
       CLASS,NAME=F,GROUP=ASPBATCH
       CLASS,NAME=G,GROUP=ASPBATCH
       CLASS,NAME=H,GROUP=ASPBATCH
       CLASS,NAME=I,GROUP=ASPBATCH
       CLASS,NAME=J,GROUP=ASPBATCH
       CLASS,NAME=K,GROUP=ASPBATCH
       CLASS,NAME=L,GROUP=ASPBATCH
       CLASS,NAME=M,GROUP=ASPBATCH
       CLASS,NAME=N,GROUP=ASPBATCH
       CLASS,NAME=O,GROUP=ASPBATCH
       CLASS,NAME=P,GROUP=ASPBATCH
       CLASS,NAME=Q,GROUP=ASPBATCH
       CLASS,NAME=R,GROUP=ASPBATCH
       CLASS,NAME=S,GROUP=ASPBATCH
       CLASS,NAME=T,GROUP=ASPBATCH
       CLASS,NAME=U,GROUP=ASPBATCH
       CLASS,NAME=V,GROUP=ASPBATCH
       CLASS,NAME=W,GROUP=ASPBATCH
       CLASS,NAME=X,GROUP=ASPBATCH
       CLASS,NAME=Y,GROUP=ASPBATCH
       CLASS,NAME=Z,GROUP=ASPBATCH
       CLASS,NAME=0,GROUP=ASPBATCH
       CLASS,NAME=1,GROUP=ASPBATCH
       CLASS,NAME=2,GROUP=ASPBATCH
       CLASS,NAME=3,GROUP=ASPBATCH
       CLASS,NAME=4,GROUP=ASPBATCH
       CLASS,NAME=5,GROUP=ASPBATCH
       CLASS,NAME=6,GROUP=ASPBATCH
       CLASS,NAME=7,GROUP=ASPBATCH
       CLASS,NAME=8,GROUP=ASPBATCH
       CLASS,NAME=9,GROUP=ASPBATCH
       *GROUP,NAME=ASPBATCH,EXRESC=(ASP1,3,,IPL,MANUAL),PRTY=1
       *GROUP,NAME=ASPBATCH,EXRESC=(ASP1,3,,DYNAMIC,MANUAL),PRTY=1
       GROUP,NAME=ASPBATCH,PRTY=1,                                            +
       EXRESC=(ASP1,0,,DYNAMIC,DYNAMIC),                                      +
       EXRESC=(ASP2,0,,DYNAMIC,DYNAMIC),                                      +
       EXRESC=(ASP3,0,,DYNAMIC,DYNAMIC)
       *
       */*------------------------------------------------------------------*/
       */*    ASP1 DEVICES.                                                 */
       */*------------------------------------------------------------------*/
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(580,TA580,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(580,ASP1,S1)
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0010


       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(581,TA581,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(581,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(582,TA582,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(582,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(583,TA583,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(583,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(584,TA584,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(584,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(585,TA585,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(585,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(586,TA586,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(586,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(587,TA587,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(587,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(588,TA588,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(588,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(589,TA589,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(589,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(589,TA58A,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(58A,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(58B,TA58B,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(58B,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(58C,TA58C,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(58C,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(58D,TA58D,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(58D,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(58E,TA58E,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(58E,ASP1,S1)
       DEVICE,STYPE=24009,GTYPE=TA9,GNAME=LOCAL,SUPPORT=(58F,TA58F,LOG,ON),   +
       MSTATUS=(TA),MTYPE=24009,MAIN=(58F,ASP1,S1)
       *
       */*------------------------------------------------------------------*/
       */*    MDS.                                                          */
       */*------------------------------------------------------------------*/
       SETNAME,MTYPE=24009,NAMES=(TAPE,3400-3,3400-5,3400-6,2400-3)
       SETPARAM,ADDRSORT=YES,ALLOCATE=AUTO,DEPTH=255,MDSLOG=M1,REMOUNT=1
       *
       */*------------------------------------------------------------------*/
       */*    READER/INTERPRETER.                                           */
       */*------------------------------------------------------------------*/
       DEVICE,STYPE=OSRDR,SUPPORT=(NONE,RI1),GTYPE=ARI
       *DEVICE,STYPE=OSRDR,SUPPORT=(NONE,RI2),GTYPE=ARI
       RIDATSTN,SYS1.PROCLIB,SYS1.LINKLIB,SYS1.MACLIB,SYS1.SVCLIB
       RIDATSTN,ASP.PSGLIB,ASP.MACINT,ASP.MACDUMMY,ASP.SOURCE
       RI,BLDL=(ASMFC,ASMFCL,ASMFCLG),TAFETCH=S8,DAFETCH=S9
       RIPARM,PARM=(00099905001024925631SYSDA   E00011A)
       *
       */*------------------------------------------------------------------*/
       */*    CONSOLES.                                                     */
       */*------------------------------------------------------------------*/
       CONSOLE,DDNAME=CN01F,TYPE=3215,UNIT=01F,DEPTH=99,DEST=OUTPUT,MAIN=ASP1,+
       ALTCON=CN014
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0011


       CONSOLE,DDNAME=CN014,TYPE=3277,UNIT=014,TIME=0,DEST=OUTPUT,MAIN=ASP1,  +
       ALTCON=CN01F,DEPTH=99
       CONSOLE,DDNAME=CN30F,TYPE=1403,UNIT=30F,DEPTH=99,DEST=MLG,MAIN=ASP1
       *
       */*------------------------------------------------------------------*/
       */*    CONSOLE PROGRAM FUNCTION KEY DEFINITION.                      */
       */*------------------------------------------------------------------*/
       PFK,K=1,M=<*I A>
       PFK,K=2,M=<*I S>
       *
       */*------------------------------------------------------------------*/
       */*    SUPPORT DEVICES.                                              */
       */*------------------------------------------------------------------*/
       DEVICE,GTYPE=RDR,STYPE=2540P,SUPPORT=(00C,RD1,UR)
       DEVICE,GTYPE=PUN,STYPE=2540R,SUPPORT=(00D,PU1,UR)
       DEVICE,GTYPE=PRT,STYPE=1403,SUPPORT=(00E,PR1,UR)
       DEVICE,STYPE=IJMP,SUPPORT=(NONE,IJASP1),GTYPE=IJM
       DEVICE,STYPE=IJMP,SUPPORT=(NONE,IJASP2),GTYPE=IJM
       DEVICE,STYPE=IJMP,SUPPORT=(NONE,IJASP3),GTYPE=IJM
       DEVICE,STYPE=ACMP,SUPPORT=(NONE,ACASP1),GTYPE=ACM
       DEVICE,STYPE=ACMP,SUPPORT=(NONE,ACASP2),GTYPE=ACM
       DEVICE,STYPE=ACMP,SUPPORT=(NONE,ACASP3),GTYPE=ACM
       *
       */*------------------------------------------------------------------*/
       */*    PRINT SETUP.                                                  */
       */*------------------------------------------------------------------*/
       PRINTER,NAME=PR1,UCS=YES,FORMS=(YES,1PART),CARRIAGE=6#IN,              +
       TRAIN=(NO,TN)
       SYSOUT,CLASS=A
       SYSOUT,CLASS=B,TYPE=PUNCH,COPIES=1
       SYSOUT,CLASS=K,TYPE=PUNCH
       SYSOUT,CLASS=T,TYPE=TSO
       *
       */*------------------------------------------------------------------*/
       */*    RESIDENCY OPTIONS.                                            */
       */*------------------------------------------------------------------*/
       RESCTLBK,RQ=10,ASG=10,FCT=05,VUT=05
       RESIDENT,MODULE=JSS
       RESIDENT,MODULE=MDSALLOC
       RESIDENT,MODULE=ISNET
       RESIDENT,MODULE=DJCUPDAT
       RESIDENT,MODULE=RICBSCAN
       RESIDENT,MODULE=RICONTL
       RESIDENT,MODULE=IEFVHA
       *
       */*------------------------------------------------------------------*/
       */*    STANDARDS.                                                    */
       */*------------------------------------------------------------------*/
       STANDARDS,LINES=(100,W),CARDS=(50,W),FORMS=1PART,CARRIAGE=6#IN,        +
       TRAIN=TN,FLOCATE=YES,DLOCATE=YES,CLASS=B,                              +
       NOPU=H,                                                                X
       SEQCHK=YES,                                                            X
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0012


       SQS=3K,NJPNAME=ASP,CONSBUF=50,MLOG=YES
       */*------------------------------------------------------------------*/
       */*    RJP.                                                          */
       */*------------------------------------------------------------------*/
       *      /*------ NO RJP DEVICES DEFINED ------------------------------*/
       *
       */*------------------------------------------------------------------*/
       */*    END OF ASP INITIALIZATION PARMS.                              */
       */*------------------------------------------------------------------*/
       ENDINISH
       *
       */*------------------------------------------------------------------*/
       */*    IPL TEXT FOR ASP1 LOCAL MAIN.                                 */
       */*------------------------------------------------------------------*/
       IPL,NAME=ASP1,TYPE=MVT
       *
       */*------------------------------------------------------------------*/
       */*    IPL TEXT FOR ASP2 REAL MAIN.                                  */
       */*------------------------------------------------------------------*/
       IPL,NAME=ASP2,TYPE=MVT
       *
       */*------------------------------------------------------------------*/
       */*    IPL TEXT FOR ASP3 REAL MAIN.                                  */
       */*------------------------------------------------------------------*/
       IPL,NAME=ASP3,TYPE=MVT
       IPL,END
IEB817I MEMBER NAME (ASPREAL ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0013


       ./ ADD NAME=PRESRES
       ASPRES,0,2,3330,       MOUNT=RESIDENT  USE=PRIVATE
       ASPDLB,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       ASPSUP,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       ASP320,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       MVTDLB,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       ASPQVS,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       SPOOL1,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       PERMA0,1,0,3330,N      MOUNT=RESERVED  USE=STORAGE  SKIP IPL MOUNT MSG
       PERMA1,1,0,3330,N      MOUNT=RESERVED  USE=STORAGE  SKIP IPL MOUNT MSG
       PERM01,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       PERM02,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       DLIB01,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       WORKA0,1,1,3330,N      MOUNT=RESERVED  USE=PUBLIC   SKIP IPL MOUNT MSG
       WORKA1,1,1,3330,N      MOUNT=RESERVED  USE=PUBLIC   SKIP IPL MOUNT MSG
       WORKA2,1,1,3330,N      MOUNT=RESERVED  USE=PUBLIC   SKIP IPL MOUNT MSG
       WORKA3,1,1,3330,N      MOUNT=RESERVED  USE=PUBLIC   SKIP IPL MOUNT MSG
       WORK00,1,1,3330,N      MOUNT=RESERVED  USE=PUBLIC   SKIP IPL MOUNT MSG
       WORK01,1,1,3330,N      MOUNT=RESERVED  USE=PUBLIC   SKIP IPL MOUNT MSG
       WORK02,1,1,3330,N      MOUNT=RESERVED  USE=PUBLIC   SKIP IPL MOUNT MSG
       WORK03,1,0,3330,N      MOUNT=RESERVED  USE=STORAGE  SKIP IPL MOUNT MSG
       SORTA0,1,1,2314,N      MOUNT=RESERVED  USE=PUBLIC   SKIP IPL MOUNT MSG
       SORTA1,1,1,2314,N      MOUNT=RESERVED  USE=PUBLIC   SKIP IPL MOUNT MSG
       SORTA2,1,1,2314,N      MOUNT=RESERVED  USE=PUBLIC   SKIP IPL MOUNT MSG
       SORTA3,1,1,2314,N      MOUNT=RESERVED  USE=PUBLIC   SKIP IPL MOUNT MSG
       MFTR33,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       MVTRES,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       SY1RES,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       VRESA0,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
       VDLIB0,1,2,3330,N      MOUNT=RESERVED  USE=PRIVATE  SKIP IPL MOUNT MSG
IEB817I MEMBER NAME (PRESRES ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0014


       ./ ADD NAME=SMFDEFLT
          OPT=2,          SYSTEM,JOB AND STEP DATA COLLECTION
          EXT=YES,        USER EXITS ARE TO BE TAKEN
          JWT=15,         MAXIMUM CONTINUOUS WAIT TIME IS 15 MIN/STEP
          BUF=400,        A MINIMUM 400 BYTE BUFFER IS DEFINED
          SID=AS,         SYSTEM ID
          MDL=P1,          IS ASP1
          OPI=NO,         DO NOT PERMIT OPERATOR INTERVENTION
          MAN=NONE,       DO NOT RECORD USER AND SYSTEM RECORDS
          PRM=ASPRES,     SYS1.MANX IS ON ASPRES
          ALT=ASPRES      SYS1.MANY IS ON ASPRES
IEB816I MEMBER NAME (SMFDEFLT) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0015


       ./ ADD NAME=IKJPRM00
       TS      TERMAX=16                                                       00010000
       TS      REGNMAX=1                                                       00020000
       TS      MAP=50                                                          00030000
       TS      REGSIZE(1)=(400K,64K)                                           00040000
       TS      LPA=(IKJPTGT,IKJSCAN,IKJEFT02,IKJEFT25)                         00050000
       TS      LPA=(IKJPARS)                                                   00060000
       DRIVER  AVGSERVICE PREEMPT SUBQUEUES(1)=3                               00070000
       DRIVER  CYCLES(1,1)=0                                                   00080000
       DRIVER  CYCLES(1,2)=0                                                   00090000
       DRIVER  CYCLES(1,3)=0                                                   00100000
       DRIVER  MAXOCCUPANCY(1,1)=2500                                          00110000
       DRIVER  MINSLICE(1,1)=450                                               00120000
       DRIVER  MAXOCCUPANCY(1,2)=4500                                          00130000
       DRIVER  MINSLICE(1,2)=750                                               00140000
       DRIVER  MAXOCCUPANCY(1,3)=4500                                          00150000
       DRIVER  MINSLICE(1,3)=4500                                              00160000
       DRIVER  SERVICE(1,1)=450                                                00170000
       DRIVER  SERVICE(1,2)=1500                                               00180000
       DRIVER  SERVICE(1,3)=6000                                               00190000
       TIOC    BUFSIZE=240                                                     00200000
       TIOC    BUFFERS=120                                                     00210000
       TIOC    OWAITHI=24                                                      00220000
       TIOC    OWAITLO=4                                                       00230000
       TIOC    INLOCKHI=24                                                     00240000
       TIOC    INLOCKLO=2                                                      00250000
       TIOC    SLACK=01                                                        00260000
       TIOC    RESVBUF=10                                                      00270000
       TIOC    USERCHG=99                                                      00280000
IEB817I MEMBER NAME (IKJPRM00) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0016


       ./ ADD NAME=LNKLST00
       SYS1.LINKLIB,SYS2.LINKLIB
IEB816I MEMBER NAME (LNKLST00) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0017


       ./ ADD NAME=COMMND00
       COM='MONITOR JOBNAMES,T     **** FROM COMMND00 AT IPL'
       COM='MONITOR DSNAME         **** FROM COMMND00 AT IPL'
       COM='START ASP              **** FROM COMMND00 AT IPL'
IEB817I MEMBER NAME (COMMND00) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0018


       ./ ADD NAME=COMMND01
       COM='MONITOR JOBNAMES,T     **** FROM COMMND01 AT IPL'
       COM='MONITOR DSNAME         **** FROM COMMND01 AT IPL'
       COM='START HASP             **** FROM COMMND01 AT IPL'
       ./ ENDUP
IEB817I MEMBER NAME (COMMND01) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G20PARML.R0000431     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.PARMLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G20PARML.S0000432     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G20PARML.S0000432     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /UPDTE   / START 78240.1951
IEF374I STEP /UPDTE   / STOP  78240.1951 CPU   0MIN 00.40SEC MAIN  28K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:51:05.07   ALLOC START    19:51:05.08   MAIN REGION ----- 256K                          *
*   STEP NAME UPDTE      STEP END TIME  19:51:05.60   PGM START TIME 19:51:05.14   MAIN STORAGE ----- 28K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.53   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.40   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ---------- 592       0150 ---------- 549       0130 ---------- 561                                                        *
************************************************************************************************************************************

IEF375I  JOB /G20PARML/ START 78240.1951
IEF376I  JOB /G20PARML/ STOP  78240.1951 CPU   0MIN 00.40SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G20PARML   JOB READ TIME 19:51:04.83   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.40   *
*   JOB CLASS A          JOB INIT TIME 19:51:05.07   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.55   *
*   ACCOUNT   1          JOB END TIME  19:51:05.62   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG    2222222        1     PPPPPPPP   RRRRRRRR    OOOOOOO    CCCCCCC   LL                        A
            GGGGGGGGG  222222222      11     PPPPPPPPP  RRRRRRRRR  OOOOOOOOO  CCCCCCCCC  LL                       AAA
            GG     GG  22     22     111     PP     PP  RR     RR  OO     OO  CC     CC  LL                      AA AA
            GG               22       11     PP     PP  RR     RR  OO     OO  CC         LL                     AA   AA
            GG              22        11     PPPPPPPPP  RRRRRRRRR  OO     OO  CC         LL                    AA     AA
            GG   GGGG      22         11     PPPPPPPP   RRRRRRRR   OO     OO  CC         LL                    AA     AA
            GG   GGGG     22          11     PP         RR  RR     OO     OO  CC         LL                    AAAAAAAAA
            GG     GG    22           11     PP         RR   RR    OO     OO  CC     CC  LL                    AAAAAAAAA
            GGGGGGGGG   22222222    111111   PP         RR    RR   OOOOOOOOO  CCCCCCCCC  LLLLLLLLL             AA     AA
             GGGGGGG   222222222    111111   PP         RR     RR   OOOOOOO    CCCCCCC   LLLLLLLLL             AA     AA

***********A  START   G21PROCL   SYS SYSA   WTR 00E   07:51:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   G21PROCL   START  A***********
***********A  START   G21PROCL   SYS SYSA   WTR 00E   07:51:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   G21PROCL   START  A***********
***********A  START   G21PROCL   SYS SYSA   WTR 00E   07:51:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   G21PROCL   START  A***********
***********A  START   G21PROCL   SYS SYSA   WTR 00E   07:51:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   G21PROCL   START  A***********
***********A  START   G21PROCL   SYS SYSA   WTR 00E   07:51:15 PM  28 AUG 1978   WTR 00E   SYS SYSA   G21PROCL   START  A***********


//G21PROCL JOB 1,'G21PROCLIB',CLASS=A,MSGLEVEL=(1,1)
***********************************************************************
***                                                                 ***
***    Job:      G21PROCLIB                                         ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Update SYS1.PROCLIB on new system with procs       ***
***              for ASP, MT, TCAM, TSO, JQD, WTRZ, S; modify       ***
***              RDR defaults.                                      ***
***    Update:   2006/08/19                                         ***
***                                                                 ***
***********************************************************************
***
//UPDTE    EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DISP=SHR,DSN=SYS1.PROCLIB,UNIT=SYSDA,VOL=SER=ASPRES
//SYSIN    DD  DATA
//
IEF236I ALLOC. FOR G21PROCL UPDTE
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ ADD NAME=ASP
       //ASP     PROC  START=WARM,PARMS=LOCAL
       //*********************************************************************
       //*                                                                 ***
       //*    PROCEDURE:  ASP                                              ***
       //*    PURPOSE:    EXECUTE ASP SUPPORT PROCESSOR TASK.              ***
       //*    UPDATE:     2006/08/18                                       ***
       //*                                                                 ***
       //*********************************************************************
       //*
       //IEFPROC EXEC PGM=ASPINTK,TIME=1440,DPRTY=(15,0),REGION=512K
       //STEPLIB  DD UNIT=3330,VOL=SER=ASPSUP,DISP=SHR,DSN=ASP.VERSON32
       //*-----------------------------------------------------------------***
       //*    ASP CHECKPOINT AND SPOOL FILES.                              ***
       //*-----------------------------------------------------------------***
       //CHKPNT   DD  UNIT=SYSDA,DISP=SHR,VOL=SER=ASPQVS,DSN=ASP.CHK1
       //QUEUE1   DD  UNIT=SYSDA,DISP=SHR,VOL=SER=ASPQVS,DSN=ASP.QUE1
       //*-----------------------------------------------------------------***
       //*    PRINTED OUTPUT FROM ASP INITIALIZATION.                      ***
       //*-----------------------------------------------------------------***
       //ASPOUT   DD UNIT=11E
       //*-----------------------------------------------------------------***
       //*    DUMP AND SNAP DD STATEMENTS.                                 ***
       //*-----------------------------------------------------------------***
       //ASPSNAP  DD UNIT=AFF=ASPOUT,DCB=BLKSIZE=882
       //ASPSADMP DD UNIT=AFF=ASPOUT
       //ASPABEND DD SYSOUT=Z,SPACE=(CYL,(10,2)),DCB=BLKSIZE=882
       //SYSABEND DD SYSOUT=Z,SPACE=(CYL,(10,2)),DCB=BLKSIZE=882
       //*-----------------------------------------------------------------***
       //*    READER/INTERPRETER DD STATEMENTS.                            ***
       //*-----------------------------------------------------------------***
       //IEFRDER  DD DUMMY
       //IEFDATA  DD DUMMY
       //IEFPDSI  DD DSN=SYS1.PROCLIB,DISP=SHR
       //*-----------------------------------------------------------------***
       //*    NJP LINES.                                                   ***
       //*-----------------------------------------------------------------***
       //*NJPL0    DD UNIT=050
       //*NJPL2    DD UNIT=052
       //*-----------------------------------------------------------------***
       //*    DISK READER DATA SET.                                        ***
       //*-----------------------------------------------------------------***
       //ASPDRDS  DD DISP=SHR,DSN=ASP.DRDS
       //*-----------------------------------------------------------------***
       //*    ASP PARAMETER INPUT.                                         ***
       //*-----------------------------------------------------------------***
       //ASPIN    DD DISP=SHR,DSN=SYS1.PARMLIB(ASP&START)
       //         DD DISP=SHR,DSN=SYS1.PARMLIB(ASP&PARMS)
IEB817I MEMBER NAME (ASP     ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002


       ./ ADD NAME=MT
       //*********************************************************************
       //*                                                                 ***
       //*    PROCEDURE:  MT                                               ***
       //*    PURPOSE:    EXECUTE ASP MAINTASK.                            ***
       //*    UPDATE:     2006/08/18                                       ***
       //*                                                                 ***
       //*********************************************************************
       //*
       //MT    PROC  MTVOL=ASPSUP,                                            +00000000
       //            DISK=3330,                                               +00002000
       //            SYSDA=SYSDA,                                             +00003000
       //            ASPUT1=ASPSUP,                                           +00004000
       //            ASPUT2=ASPSUP,                                           +00005000
       //            ASPUT3=ASPSUP                                             00006000
       //IEFPROC EXEC PGM=MAINTASK,REGION=128K,DPRTY=(15,10),PARM='AD'
       //STEPLIB  DD DSN=ASP.MAINTASK,                                        +00008000
       //            DISP=SHR,                                                +00009000
       //            UNIT=&DISK,                                              +00010000
       //            VOL=SER=&MTVOL                                            00011000
       //*SYSABEND DD DDNAME=IEFRDER                                           00012000
       //SYSUDUMP DD UNIT=11F
       //SNAPDD   DD UNIT=AFF=SYSUDUMP
       //ASPDATA  DD DUMMY                                                     00015000
       //CTCDD    DD UNIT=(CTC,,DEFER),                                       +00016000
       //            LABEL=(,NL)                                               00017000
       //ADSG01   DD UNIT=&SYSDA,                                             +00018000
       //            DISP=OLD,                                                +00019000
       //            VOL=SER=&ASPUT1,                                         +00020000
       //            SPACE=(CYL,(1,1))                                         00021000
       //ADSG02   DD UNIT=&SYSDA,                                             +00022000
       //            DISP=OLD,                                                +00023000
       //            VOL=SER=&ASPUT2,                                         +00024000
       //            SPACE=(CYL,(1,1))                                         00025000
       //ADSG03   DD UNIT=&SYSDA,                                             +00026000
       //            DISP=OLD,                                                +00027000
       //            VOL=SER=&ASPUT3,                                         +00028000
       //            SPACE=(CYL,(1,1))                                         00029000
       //ADCTC    DD UNIT=(CTC,,DEFER)                                         00030000
       //ASPQRDR  DD UNIT=(CTC,,DEFER),                                       +00031000
       //            LABEL=(,NL),                                             +00032000
       //            VOL=SER=CTCRDR,                                          +00033000
       //            DSN=ASP.QRDR                                              00034000
       //ASPQWTR  DD UNIT=(CTC,,DEFER),                                       +00035000
       //            LABEL=(,NL)                                               00036000
       //OUTDATA  DD DUMMY                                                     00037000
       //CTCDD2   DD UNIT=(CTC,,DEFER),                                       +00038000
       //            LABEL=(,NL),                                             +00039000
       //            DCB=BLKSIZE=760                                           00040000
       //IEELOGX  DD DUMMY                                                     00041000
       //IEELOGY  DD DUMMY                                                     00042000
IEB817I MEMBER NAME (MT      ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0003


       ./ ADD NAME=TCAM
       //*********************************************************************
       //*                                                                 ***
       //*    PROCEDURE:  TCAM                                             ***
       //*    PURPOSE:    EXECUTE TCAM.                                    ***
       //*    UPDATE:     2006/08/18                                       ***
       //*                                                                 ***
       //*********************************************************************
       //*
       //TCAM     EXEC PGM=IEDQTCAM,ROLL=(NO,NO),TIME=1440,DPRTY=(15,15),      00010000
       //             REGION=256K                                              00020000
       //SYSABEND DD  SYSOUT=A,SPACE=(CYL,(20,10),RLSE)                        00030000
       //L3270A   DD  UNIT=0C0                                                 00040000
       //         DD  UNIT=0C1                                                 00050000
       //         DD  UNIT=3C0                                                 00060000
IEB817I MEMBER NAME (TCAM    ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0004


       ./ ADD NAME=TSO
       //*********************************************************************
       //*                                                                 ***
       //*    PROCEDURE:  TSO                                              ***
       //*    PURPOSE:    EXECUTE TSO SCHEDULER.                           ***
       //*    UPDATE:     2006/07/10                                       ***
       //*                                                                 ***
       //*********************************************************************
       //*
       //TSO      EXEC PGM=IKJEAT00,ROLL=(NO,NO),TIME=1440,DPRTY=(13,13)       00010000
       //STEPLIB  DD  DISP=SHR,DSN=SYS1.CMDLIB                                 00020000
       //SYSUADS  DD  DISP=SHR,DSN=SYS1.UADS                                   00030000
       //SYSPARM  DD  DISP=SHR,DSN=SYS1.PARMLIB                                00040000
       //SYSLBC   DD  DISP=SHR,DSN=SYS1.BRODCAST                               00050000
       //SYSWAP00 DD  DISP=SHR,DSN=SYS1.SWAP0                                  00060000
       //IEFPDSI  DD  DISP=SHR,DSN=SYS1.PROCLIB                                00070000
       //*
IEB817I MEMBER NAME (TSO     ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0005


       ./ ADD NAME=IKJACCNT
       //*********************************************************************
       //*                                                                 ***
       //*    PROCEDURE:  IKJACCNT                                         ***
       //*    PURPOSE:    TSO LOGON PROCEDURE.                             ***
       //*    UPDATE:     2006/08/18                                       ***
       //*                                                                 ***
       //*********************************************************************
       //*
       //IKJACCNT EXEC PGM=IKJEFT01,ROLL=(NO,NO),TIME=1440                     00010000
       //SYSHELP  DD  DISP=SHR,DSN=SYS1.HELP                                   00020000
       //SYSLBC   DD  DISP=SHR,DSN=SYS1.BRODCAST                               00030000
       //DD1      DD  DYNAM                                                    00040000
       //DD2      DD  DYNAM                                                    00050000
       //DD3      DD  DYNAM                                                    00060000
       //DD4      DD  DYNAM                                                    00070000
       //DD5      DD  DYNAM                                                    00080000
       //DD6      DD  DYNAM                                                    00090000
       //DD7      DD  DYNAM                                                    00100000
       //DD8      DD  DYNAM                                                    00110000
       //DD9      DD  DYNAM                                                    00120000
       //DD10     DD  DYNAM                                                    00130000
       //DD11     DD  DYNAM                                                    00140000
       //DD12     DD  DYNAM                                                    00150000
IEB817I MEMBER NAME (IKJACCNT) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0006


       ./ ADD NAME=JQD
       //*********************************************************************
       //*                                                                 ***
       //*    PROCEDURE:  JQD                                              ***
       //*    PURPOSE:    EXECUTE OS JOB QUEUE DUMP PROGRAM.               ***
       //*    UPDATE:     2006/07/11                                       ***
       //*                                                                 ***
       //*********************************************************************
       //*
       //IEFPROC EXEC PGM=IMCOSJQD,REGION=256K
       //SYSPRINT DD  SYSOUT=A
       //OSJQDIN  DD  DDNAME=IEFRDER
       //OSJQDOUT DD  SYSOUT=A,SPACE=(CYL,(30,10))
       //IEFRDER  DD  DISP=SHR,DSN=SYS1.SYSJOBQE
IEB817I MEMBER NAME (JQD     ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0007


       ./ ADD NAME=WTRZ
       //*********************************************************************
       //*                                                                 ***
       //*    PROCEDURE:  WTRZ                                             ***
       //*    PURPOSE:    EXECUTE DUMMY WRITER PROCEDURE.                  ***
       //*    UPDATE:     2006/07/11                                       ***
       //*                                                                 ***
       //*********************************************************************
       //*
       //IEFPROC  EXEC PGM=IEFSD080,PARM='PZ',REGION=20K,ROLL=(NO,NO)
       //IEFRDER   DD  DUMMY,DCB=(LRECL=133,RECFM=FM,BLKSIZE=133)
IEB817I MEMBER NAME (WTRZ    ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0008


       ./ ADD NAME=S
       //*********************************************************************
       //*                                                                 ***
       //*    PROCEDURE:  S                                                ***
       //*    PURPOSE:    FORCE DEALLOCATION.                              ***
       //*    UPDATE:     2006/07/11                                       ***
       //*                                                                 ***
       //*********************************************************************
       //*
       //IEFPROC EXEC PGM=IEFBR14
       //* THIS PROCEDURE IS ACTIVATED BY A 'START DEALLOC' COMMAND TO
       //* EXECUTE IEFBR14 CAUSING ALLOCATION TO DEALLOCATE A
       //* DEVICE SPECIFIED ON A PREVIOUS 'VARY OFFLINE' COMMAND.
IEB817I MEMBER NAME (S       ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0009


       ./ ADD NAME=RDR
       //*********************************************************************
       //*                                                                 ***
       //*    PROCEDURE:  RDR                                              ***
       //*    PURPOSE:    OS READER PROCEDURE.                             ***
       //*    UPDATE:     2006/07/10                                       ***
       //*                                                                 ***
       //*********************************************************************
       //*
       //IEFPROC   EXEC     PGM=IEFIRC,               READER FIRST LOAD       ,00010000
       //             REGION=64K,                     READER BASIC REGION     ,00020000
       //  PARM='80103012003024912811SYSDA   E00011A'  DEFAULT OPTIONS         00030000
       //*       BPPTTTOOOMMMIIICCCRLSSSSSSSSAAAAEFH   PARM FIELD  A35852      00040000
       //*       B    PROGRAMMER NAME AND ACCOUNT NUMBER NOT NEEDED            00050000
       //*              PROGRAM CAN BE ROLLED OUT                              00060000
       //*       PP   PRIORITY=01                                              00070000
       //*       TTT  JOB STEP INTERVAL=30 MINUTES                             00080000
       //*       OOO  PRIMARY SYSOUT SPACE=120 TRACKS (ORIGINALLY 50)          00090000
       //*       MMM  SECONDARY SYSOUT SPACE=30 TRACKS (ORIGINALLY 10)         00100000
       //*       III  READER/INTERPRETER DISPATCHING PRIORITY=249              00110000
       //*       CCC  JOB STEP DEFAULT REGION=128K                             00120000
       //*       R    DISPLAY AND EXECUTE COMMANDS=1                           00130000
       //*       L    BYPASS LABEL OPTION=1                                    00140000
       //*       SSSSSSSS  SYSOUT UNIT NAME=SYSDA                              00150000
       //*       AAAA COMMAND AUTHORITY FOR MCS=E000-ALL COMMANDS          MCS 00160000
       //*              MUST BE AUTHORIZED                                 MCS 00170000
       //*       EF   JCL AND ALLOCATION MESSAGE LEVEL DEFAULTS=11      A35852 00180000
       //*            H----DEFAULT MSGCLASS                              19006 00190000
       //IEFRDER   DD  UNIT=2400,                       9 TRK TAPE            ,00200000
       //             LABEL=(,NL),                      UNLABELED             ,00210000
       //             VOLUME=SER=SYSIN,                 VOLUME NAME           ,00220000
       //             DISP=OLD,                OLD DATA SET             A25722,00230000
       //             DCB=(BLKSIZE=80,RECFM=F,BUFL=80,BUFNO=1)                 00240000
       //IEFPDSI      DD  DSNAME=SYS1.PROCLIB,          PROCEDURE LIBRARY     ,00250000
       //             DISP=SHR                                            I272 00260000
       //IEFDATA      DD     UNIT=SYSDA,                SPOOL DEVICE          ,00270000
       //             SPACE=(80,(500,500),RLSE,CONTIG),     AMOUNT            ,00280000
       //  DCB=(BUFNO=2,LRECL=80,BLKSIZE=80,RECFM=F,BUFL=80,DSORG=PS)    22591 00290000
       ./ ENDUP
IEB816I MEMBER NAME (RDR     ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G21PROCL.R0000433     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.PROCLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G21PROCL.S0000434     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G21PROCL.S0000434     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /UPDTE   / START 78240.1951
IEF374I STEP /UPDTE   / STOP  78240.1951 CPU   0MIN 00.18SEC MAIN  28K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:51:14.72   ALLOC START    19:51:14.73   MAIN REGION ----- 256K                          *
*   STEP NAME UPDTE      STEP END TIME  19:51:15.01   PGM START TIME 19:51:14.79   MAIN STORAGE ----- 28K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.29   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.18   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0158 ---------- 252       0150 ---------- 222       0130 ---------- 232                                                        *
************************************************************************************************************************************

IEF375I  JOB /G21PROCL/ START 78240.1951
IEF376I  JOB /G21PROCL/ STOP  78240.1951 CPU   0MIN 00.18SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G21PROCL   JOB READ TIME 19:51:14.60   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.18   *
*   JOB CLASS A          JOB INIT TIME 19:51:14.72   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.31   *
*   ACCOUNT   1          JOB END TIME  19:51:15.03   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG    2222222    2222222   LL         DDDDDDDD   UU     UU  TTTTTTTT   LL                        A
            GGGGGGGGG  222222222  222222222  LL         DDDDDDDDD  UU     UU  TTTTTTTT   LL                       AAA
            GG     GG  22     22  22     22  LL         DD     DD  UU     UU     TT      LL                      AA AA
            GG               22         22   LL         DD     DD  UU     UU     TT      LL                     AA   AA
            GG              22         22    LL         DD     DD  UU     UU     TT      LL                    AA     AA
            GG   GGGG      22         22     LL         DD     DD  UU     UU     TT      LL                    AA     AA
            GG   GGGG     22         22      LL         DD     DD  UU     UU     TT      LL                    AAAAAAAAA
            GG     GG    22         22       LL         DD     DD  UU     UU     TT      LL                    AAAAAAAAA
            GGGGGGGGG   22222222   22222222  LLLLLLLLL  DDDDDDDDD  UUUUUUUUU     TT      LLLLLLLLL             AA     AA
             GGGGGGG   222222222  222222222  LLLLLLLLL  DDDDDDDD    UUUUUUU      TT      LLLLLLLLL             AA     AA

***********A  START   G22LDUTL   SYS SYSA   WTR 00E   07:51:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   G22LDUTL   START  A***********
***********A  START   G22LDUTL   SYS SYSA   WTR 00E   07:51:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   G22LDUTL   START  A***********
***********A  START   G22LDUTL   SYS SYSA   WTR 00E   07:51:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   G22LDUTL   START  A***********
***********A  START   G22LDUTL   SYS SYSA   WTR 00E   07:51:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   G22LDUTL   START  A***********
***********A  START   G22LDUTL   SYS SYSA   WTR 00E   07:51:33 PM  28 AUG 1978   WTR 00E   SYS SYSA   G22LDUTL   START  A***********


//G22LDUTL JOB 1,'G22LOADUTIL',CLASS=A,MSGLEVEL=(1,1)
***********************************************************************
***                                                                 ***
***    Job:      G22LOADUTIL                                        ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Load miscellaneous utilties from SYSUTL tape       ***
***              to SYS2.LINKLIB and SYS1.SVCLIB on new system.     ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
***MAIN LINES=100
//LOADLINK EXEC PGM=VSCOPY,REGION=512K
//SYSPRINT DD  SYSOUT=A
//SYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,30)
//SYSUT4   DD  UNIT=SYSDA,SPACE=(CYL,30)
//SYSUT1   DD  DSN=LINKLIB.UNLOAD,LABEL=(1,SL),DISP=OLD,
//             UNIT=TAPE,VOL=(,RETAIN,SER=SYSUTL)
//SYSUT2   DD  DISP=SHR,DSN=SYS2.LINKLIB,UNIT=SYSDA,VOL=SER=ASPSUP
//SYSIN    DD  *
***
IEF236I ALLOC. FOR G22LDUTL LOADLINK
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 353   ALLOCATED TO SYSUT3
IEF237I 159   ALLOCATED TO SYSUT4
IEF237I 580   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


                     COPY INDD=((SYSUT1,R)),OUTDD=SYSUT2
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY SYSUT1   -
IEB154I  CATPTPCH HAS BEEN SUCCESSFULLY  LOADED
IEB154I  COREMAP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DEVTABLE HAS BEEN SUCCESSFULLY  LOADED
IEB154I  DISKMAP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HEWLF064 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMP4  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  HMASMUXD HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX00   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX01   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX02   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX03   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX04   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX05   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX06   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX07   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX11   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX21   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX31   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX41   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX42   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX51   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX61   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  IFOX62   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  PDS      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  SYSY0994 HAS BEEN SUCCESSFULLY  LOADED
IEB154I  TAPEMAP  HAS BEEN SUCCESSFULLY  LOADED
IEB154I  UCB      HAS BEEN SUCCESSFULLY  LOADED
IEB154I  VSCOPY   HAS BEEN SUCCESSFULLY  LOADED
IEB154I  WHO      HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000384 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2
IEB149I  THERE ARE 0000055  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G22LDUTL.R0000435     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G22LDUTL.R0000436     DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G22LDUTL.R0000437     DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   LINKLIB.UNLOAD                               KEPT
IEF285I   VOL SER NOS= SYSUTL.
IEF285I   SYS2.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.G22LDUTL.S0000438     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G22LDUTL.S0000438     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /LOADLINK/ START 78240.1951
IEF374I STEP /LOADLINK/ STOP  78240.1951 CPU   0MIN 00.27SEC MAIN 512K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:51:24.92   ALLOC START    19:51:24.93   MAIN REGION ----- 512K                          *
*   STEP NAME LOADLINK   STEP END TIME  19:51:32.18   PGM START TIME 19:51:25.03   MAIN STORAGE ---- 512K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:07.26   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  VSCOPY     STEP CPU TIME  00:00:00.27   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0158 ----------- 35       0353 ------------ 0       0159 ------------ 0       0580 ---------- 133       0151 --------- 1462    *
*   0130 ------------ 3                                                                                                            *
************************************************************************************************************************************

//LOADSVC  EXEC PGM=VSCOPY,REGION=512K
//SYSPRINT DD  SYSOUT=A
//SYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,30)
//SYSUT4   DD  UNIT=SYSDA,SPACE=(CYL,30)
//SYSUT1   DD  DSN=SVCLIB.UNLOAD,LABEL=(2,SL),DISP=OLD,
//             UNIT=TAPE,VOL=SER=SYSUTL
//SYSUT2   DD  DISP=SHR,DSN=SYS1.SVCLIB,UNIT=SYSDA,VOL=SER=ASPRES
//SYSIN    DD  *
***
IEF236I ALLOC. FOR G22LDUTL LOADSVC
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 159   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSUT4
IEF237I 580   ALLOCATED TO SYSUT1
IEF237I 150   ALLOCATED TO SYSUT2
IEF237I 130   ALLOCATED TO SYSIN


                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


                     COPY INDD=((SYSUT1,R)),OUTDD=SYSUT2
IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY SYSUT1   -
IEB154I  IGG019C9 HAS BEEN SUCCESSFULLY  LOADED
IEB144I  THERE ARE 0000335 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2
IEB149I  THERE ARE 0000137  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G22LDUTL.R0000439     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G22LDUTL.R0000440     DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.G22LDUTL.R0000441     DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SVCLIB.UNLOAD                                KEPT
IEF285I   VOL SER NOS= SYSUTL.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G22LDUTL.S0000442     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G22LDUTL.S0000442     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /LOADSVC / START 78240.1951
IEF374I STEP /LOADSVC / STOP  78240.1951 CPU   0MIN 00.24SEC MAIN 512K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:51:32.21   ALLOC START    19:51:32.22   MAIN REGION ----- 512K                          *
*   STEP NAME LOADSVC    STEP END TIME  19:51:32.58   PGM START TIME 19:51:32.29   MAIN STORAGE ---- 512K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.37   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  VSCOPY     STEP CPU TIME  00:00:00.24   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0353 ------------ 7       0159 ------------ 0       0353 ------------ 0       0580 ------------ 4       0150 --------- 1566    *
*   0130 ------------ 3                                                                                                            *
************************************************************************************************************************************

//IEHIOSUP EXEC PGM=IEHIOSUP,PARM=TSO
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD  DISP=SHR,DSN=SYS1.SVCLIB,UNIT=SYSDA,VOL=SER=ASPRES
//
IEF236I ALLOC. FOR G22LDUTL IEHIOSUP
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSUT1
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G22LDUTL.R0000443     DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF373I STEP /IEHIOSUP/ START 78240.1951
IEF374I STEP /IEHIOSUP/ STOP  78240.1951 CPU   0MIN 00.51SEC MAIN  14K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 19:51:32.60   ALLOC START    19:51:32.61   MAIN REGION ----- 256K                          *
*   STEP NAME IEHIOSUP   STEP END TIME  19:51:33.19   PGM START TIME 19:51:32.65   MAIN STORAGE ----- 14K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.59   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHIOSUP   STEP CPU TIME  00:00:00.51   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                                                  *
*   0159 ------------ 0       0150 ---------- 646                                                                                  *
************************************************************************************************************************************

IEF375I  JOB /G22LDUTL/ START 78240.1951
IEF376I  JOB /G22LDUTL/ STOP  78240.1951 CPU   0MIN 01.02SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G22LDUTL   JOB READ TIME 19:51:24.83   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.02   *
*   JOB CLASS A          JOB INIT TIME 19:51:24.92   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:08.29   *
*   ACCOUNT   1          JOB END TIME  19:51:33.21   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG    2222222   333333333  TTTTTTTT    CCCCCCC       A      M       M   2222222                  A
            GGGGGGGGG  222222222  333333333  TTTTTTTT   CCCCCCCCC     AAA     MM     MM  222222222                AAA
            GG     GG  22     22  33    33      TT      CC     CC    AA AA    MMM   MMM  22     22               AA AA
            GG               22        33       TT      CC          AA   AA   MMMM MMMM        22               AA   AA
            GG              22        3333      TT      CC         AA     AA  MM MMM MM       22               AA     AA
            GG   GGGG      22        333333     TT      CC         AA     AA  MM  M  MM      22                AA     AA
            GG   GGGG     22             33     TT      CC         AAAAAAAAA  MM     MM     22                 AAAAAAAAA
            GG     GG    22       33     33     TT      CC     CC  AAAAAAAAA  MM     MM    22                  AAAAAAAAA
            GGGGGGGGG   22222222  333333333     TT      CCCCCCCCC  AA     AA  MM     MM   22222222             AA     AA
             GGGGGGG   222222222   3333333      TT       CCCCCCC   AA     AA  MM     MM  222222222             AA     AA

***********A  START   G23TCAM2   SYS SYSA   WTR 00E   07:52:04 PM  28 AUG 1978   WTR 00E   SYS SYSA   G23TCAM2   START  A***********
***********A  START   G23TCAM2   SYS SYSA   WTR 00E   07:52:04 PM  28 AUG 1978   WTR 00E   SYS SYSA   G23TCAM2   START  A***********
***********A  START   G23TCAM2   SYS SYSA   WTR 00E   07:52:04 PM  28 AUG 1978   WTR 00E   SYS SYSA   G23TCAM2   START  A***********
***********A  START   G23TCAM2   SYS SYSA   WTR 00E   07:52:04 PM  28 AUG 1978   WTR 00E   SYS SYSA   G23TCAM2   START  A***********
***********A  START   G23TCAM2   SYS SYSA   WTR 00E   07:52:04 PM  28 AUG 1978   WTR 00E   SYS SYSA   G23TCAM2   START  A***********


//G23TCAM2 JOB 1,'G23TCAMSTG2',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
***********************************************************************
***                                                                 ***
***    Job:      G23TCAMSTG2                                        ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Generate TCAM message control program for TSO.     ***
***    Update:   2006/08/28                                         ***
***                                                                 ***
***********************************************************************
***
//ASM    EXEC PGM=IEUASM,PARM=LOAD,REGION=512K
//SYSLIB   DD DSNAME=SYS1.MACLIB,DISP=SHR,UNIT=SYSDA,VOL=SER=ASPRES
//SYSUT1   DD DSNAME=&SYSUT1,UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSUT2   DD DSNAME=&SYSUT2,UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSUT3   DD DSNAME=&SYSUT3,SPACE=(1700,(400,50)),UNIT=(SYSDA)
//SYSPRINT DD SYSOUT=A
//SYSPUNCH DD DUMMY
//SYSGO    DD DSNAME=&LOADSET,UNIT=SYSDA,SPACE=(80,(200,50)),
//            DISP=(MOD,PASS)
//SYSIN    DD *
IEF236I ALLOC. FOR G23TCAM2 ASM
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSUT2
IEF237I 159   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSGO
IEF237I 130   ALLOCATED TO SYSIN


                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.52  8/28/78


TCAM      SD  01 000000 0007B2
IEDQAVT   LD     000008         01
IEDQKA02  ER  02
IEDQUI    ER  03
IEDQHG02  ER  04
IEDQAL    ER  05
IEDQGD    ER  06
IEDQAX    ER  07
IEDQHK    ER  08
IEDQHG01  ER  09
IEDQHG    ER  0A
IEDQGA    ER  0B
IEDQGB    ER  0C
IEDQKA    ER  0D
IEDQNA    ER  0E
IEDQHG03  ER  0F
IEDAYO    ER  10
IEDAYO02  ER  11
IEDQFE    ER  12
IEDQTNT   SD  13 0007B8 00006B
IEDQOPT   SD  14 000828 00000A
IEDQOPC   SD  15 000838 00000B
IEDQQCBC  SD  16 000848 0000E0
IEDAYD    ER  17
IEDQSCBC  SD  18 000928 0000FC
IEDQSTCS  SD  19 000A28 000004
IEDAYI    ER  1A
IEDAYT    ER  1B
IEDAYE    ER  1C
IEDAYH    ER  1D
IEDAYS    ER  1E
IEDAYZ    ER  1F
IEDAYM    ER  20
IEDAYF    ER  21
IEDAYY    ER  22
IEDAYAB   ER  23
IEDAYA    ER  24
IEDAYB    ER  25
IEDQ25    ER  26
IEDQMSGS  SD  27 000A30 000040
IEDQBD    ER  28
IEDQA4    ER  29
IEDQA1    ER  2A
IEDQAI    ER  2B
IEDQAV    ER  2C
IEDQAE    ER  2D
IEDQBT    ER  2E
IEDAYR    ER  2F
IEDQAB    ER  30
IEDQAW    ER  31
IEDQAQ    ER  32
IEDAYL    ER  33
IEDQAU    ER  34
IEDAYC    ER  35
IEDAYX    ER  36
                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    2
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                             8/28/78


IEDQMISC  SD  37 000A70 0001BF
                                                                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                                1 TCAM     CSECT ,
                                      2          INTRO ENVIRON=TSO,KEYLEN=255,LNUNITS=90,CIB=2, ...................
                                                       CROSSRF=0,TRACE=0,LINETYP=BOTH,                 .........
                                                       DTRACE=0,STARTUP=C,OLTEST=0,PROGID=TCAM

                                      4+****      INTRO UPDATED LEVEL  ' 05E '    ************


000000                                6+         CNOP  0,8 .                    FORCE DOUBLEWORD BOUNDARY
000000                                7+         USING *,15 .                   TEMPORARY BASE
000000 47F0 F444            00444     8+         B     IEDQ0001 .               SKIP CONSTANTS
000004 03F0F5C5                       9+         DC    AL1(3),C'05E' SYSTEM TCAM LEVEL  05E
000000                               10+TCAM     CSECT  OX02212
000008                               11+IEDQAVT  DS    0D
                                     12+         ENTRY IEDQAVT
000008 0000000000000000              13+IEDSAVE1 DC    18F'0' .                 MESSAGE CONTROL PROG SAVEAREA
000050 0000000000000000              14+IEDSAVE2 DC    14F'0',A(IEDQAVT),3F'0' .DISPATCHER SAVEAREA
000098 0000000000000000              15+IEDSAVE3 DC    18F'0' .                 SUBTASK'S SAVEAREA
0000E0 0000000000000000              16+IEDSAVE4 DC    18F'0' .                 1ST LEVEL SUBROUTINE SAVEAREA
000128 0000000000000000              17+         DC    8F'0' .                  DISABLED SAVEAREA
000148 0000000000000000              18+         DC    2F'0' .                  DLQ=TERMNAME NOT SPECIFIED
000150 00000A2800000000              19+         DC    A(IEDQSTCS,0) .
000158 0000000000000000              20+         DC    8X'00' .                 PRIMARY=SYSCON
000160 0000000000000000              21+IEDDOUBL DC    2F'0' .
000168 FFFFFFFFFFFFFFFF              22+         DC    8X'FF' .                 CONTROL=CHARS OMITTED
000170 4040404040404040              23+         DC    CL8' ' .                 PASSWRD=CHARS OMITTED
000178 00000000                      24+         DC    A(0) .                   ADDR OF MESSAGE CONTROL TCB
00017C 00000000                      25+IEDRACE  DC    F'0' .                   TRACE=INTEGER
000180 000002C4                      26+IEDREADY DC    A(IEDDELEM) .            ADDRESS OF FIRST OF CHAIN
                                     27+*                                         OF ELEMENTS,PRIORITY ORDER
000184 0400000000000000              28+IEDREADD DC    AL1(4),AL3(0),A(0) .     FIFO DISABLED READY QUEUE
00018C 00000000                      29+IEDCKGET DC    A(0) .                   CHECKPOINT WORKAREA-GETMAIN
000190 00000000                      30+IEDOCGET DC    A(0) .                   OPERATOR CONTROL WORKAREA
000194 0700                          31+         NOPR  0 .                      USEREG=0
000196 00000000                      32+         DC    4X'00' .
00019A 0700                          33+         NOPR  0 .
00019C 00000000                      34+         DC    4X'00' .
0001A0 0000000000000008              35+IEDPARM  DC    A(0,IEDQAVT,0) .         PARAMETER LIST
0001AC 00000000                      36+IEDDISTR DC    F'0' .                   DTRACE=INTEGER
0001B0 000007B8                      37+IEDRNMPT DC    A(IEDQTNT) .             TERMNAME TABLE POINTER
0001B4 000004F0                      38+         DC    A(IEDQRDYA) .            USER EXIT ADDRESS IN READY
0001B8 00000000                      39+         DC    A(0) .                   LINE END BSC MSG SCAN
0001BC 00000420                      40+         DC    A(IEDDUMBR) .            LINE TRACE TABLE UPDATE
0001C0 0000035C0000035C              41+         DC    A(IEDCLOSB,IEDCLOSB) QPOST PARAMS
0001C8 00000000                      42+IEDSPLPT DC    A(0) .                   START PARAMETER LIST POINTER
0001CC 02                            43+         DC    AL1(2) .              CIB=INTEGER
0001CD 00                            44+         DC    AL1(0) .           CKREQS=INTEGER
0001CE 005A                          45+         DC    AL2(90) .          LNUNITS=INTEGER
0001D0 00000000                      46+IEDAS    DC    A(0) .                   RELEASE
0001D4 0000000000000000              47+         DC    4F'0' .                  TCB ADDRS OF ATTACHED TASKS
0001E4 40000000                      48+         DC    X'40',AL3(0) .           COMMON WRITE FE TASK ECB
0001E8 0000000000000000              49+         DC    3F'0' .                  EVENT CONTROL BLOCKS
0001F4 00000000                      50+IEDOSECB DC    F'0' .                   DISPATCHER'S ECB
0001F8 00000000                      51+IEDPCBPT DC    A(0) .                   FIRST PROCESS CONTROL BLOCK
0001FC 00000000                      52+IEDOPTPT DC    F'0' .                   ORGED BY OPTION,OPTION TAB ADDR
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000200 00000000                      53+IEDKA02  DC    V(IEDQKA02) .            I/O GENERATOR
000204 FF010101                      54+         DC    AL1(255),AL1(1),AL1(1),AL1(1) SA65392
000208 00000000                      55+IEDCRSRF DC    F'0' .            CROSSRF=INTEGER
00020C                               56+         DS    A(0) .                   ADDR OF COMMUNICATIONS PARM
000210 00000000                      57+IEDUI    DC    V(IEDQUI) .              USER INTERFACE ROUTINE   S22025
000214 00000000                      58+IEDE8    DC    A(0) .                   BIN SEARCH APPLICATION PGS22025
000218 00                            59+         DC    AL1(0) .           OLTEST=INTEGER
000219 000000                        60+         DC    VL3(IEDQHG02) .          REMOVE TIME DELAY ELEMENT
00021C 00000000                      61+IEDAL    DC    V(IEDQAL) .              ADDRESS COMPUTATION
000220 00000000                      62+IEDGD    DC    V(IEDQGD) .              BUFFER ASSOCIATION
000224 00000000                      63+IEDA3    DC    A(0) .                   TRANSPARENCY CCW BUILDER (GT)
000228 00000000                      64+IEDAX    DC    V(IEDQAX) .              SCAN
00022C 00000000                      65+IEDEA    DC    A(0) .                   DISPATCHER
000230                               66+IEDDISP  EQU   *
000230 00000000                      67+         DC    A(0) IGG019R3            RECEIVE SCHEDULER
000234 20                            68+         DC    B'00100000' .                                 @ZA07083
                                     69+*                                         DIAL
                                     70+*                                         2741
                                     71+*                                         TIMER
                                     72+*                                         NOCONC                 S22026
000235 000000                        73+         DC    AL3(0) .                 SEND SCHEDULER
                                     74+*                     IGG019R4          HAS TSO,DIAL,2741 SUPPORT
                                     75+*                     IGG019Q6          NO TSO, NO DIAL, NO 2741 S21903
                                     76+*                     IGG019Q7          NO TSO, NO 2741, BUT HAS DIAL
                                     77+*                                       NONE OF ABOVE IF CONC    S22026
                                     78+*                                         ONLY (CONCO) SPECIFIED S22026
000238 00000000                      79+         DC    A(0) .                   GET SCHEDULER
00023C 00000000                      80+         DC    A(0) .                   PUT SCHEDULER
000240 00000000                      81+         DC    A(0) .                   GET FIFO
000244 00000000                      82+IEDBZ    DC    A(0) .                   LOG SCHEDULER
000248 00000000                      83+IEDR1    DC    A(0) .                   DIAL SCHEDULER
00024C 00000000                      84+IEDHB    DC    A(0) .                   BUFFERED SCHEDULER
000250 00000000                      85+         DC    A(0) .                   RETRIEVE SCHEDULER
000254 00000000                      86+         DC    A(0) .                   LOCAL SCHEDULER
000258 00000000                      87+IEDCSCH  DC    A(0) .                   CONC SEND SCHEDULER      S22026
00025C 00000000                      88+         DC    A(0) .                   3705 SEND SCHEDULER      S22024
000260 00000000                      89+         DC    A(0) .                                            S22024
000264 00000000                      90+IEDCMBSS DC    A(0) .                   COMMBUF SEND SCHEDULER   S22027
000268 00000000                      91+         DC    A(0) .                                            S22024
00026C 00000000                      92+         DC    A(0) .                   SECONDARY AVT POINTER    S22024
000270 0000                          93+         DC    H'0' .                   RESERVED                 S22024
000272 0510                          94+IEDABEND BALR  1,0 .                    ESTABLISH BASE REG
000274                               95+         USING *,1 .                      FOR ABEND S045
000274 47F0 11BC            00430    96+         B     IEDSVC13 .               GO DO ABEND, SYSTEM 045
000278 00000000                      97+         DC    F'0' .                   DUMMY LINE I/O ECB
00027C 00000000                      98+IEDA3TL  DC    A(0) .                   IEDQA3, TRANSLATE LIST
000280 00000000                      99+         DC    A(0) .                   WTTONE=0
000284 00000000                     100+         DC    A(0) IEDQNX              OPERATOR AWARENESS MSG ROUTER
000288 00000000                     101+         DC    A(0) IGG019Q0            I/O TRACE TABLE HANDLER
00028C 00000000                     102+         DC    A(0) IEDQHI              SYSTEM DELAY SUBTASK QCB ADDR
000290 00000000                     103+         DC    V(IEDQHK) .              STOPLINE SUBTASK QCB ADDR
000294 20000368F0000000             104+         DC    X'20',AL3(IEDCPRMB),X'F0',AL3(0),A(IEDCKELE,IEDCKPTB)
                                    105+*                                         CKPT ELE FROM TIME Q
0002A4 7000032CEC000000             106+IEDCKELE DC    X'70',AL3(IEDCKPTB),X'EC',AL3(0) CKPT TIME DELAY ELE
0002AC 54                           107+         DC    AL1(84) .          SCB SIZE INCLUDING SAVEAREA
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0002AD 00032C                       108+         DC    AL3(IEDCKPTB) .          QCB TO RECEIVE ELE WHEN
                                    109+*                                         INTERVAL IS UP
0002B0 00                           110+         DC    B'00000000' @OS77945
0002B1 02                           111+         DC    AL1(2) .           CPRCDS=INTEGER
0002B2 0708                         112+         DC    AL2(1800) .          CPINTVL=INTEGER
0002B4 0000                         113+         DC    H'0' .                   TIME OF DAY OF INTERRUPT
0002B6 08                           114+         DC    X'08' .                  OFFSET TO CKPT QCB ADDR
0002B7 00000000                     115+         DC    4X'00' .                 OPEN CONSTANTS
0002BB 00                           116+         DC    X'00' .                  CKPT ELE STATUS
0002BC                              117+IEDOPETR DS    0X .                     INTRO RETURN CODE
0002BC 00000000                     118+         DC    V(IEDQHG01) .            TIME DELAY SUBROUTINE
0002C0 08                           119+IEDBSX   DC    AL1(8) .                 OFFSET TO BINARY SEARCH ADDR
0002C1 000000                       120+         DC    AL3(0) .                 LINK ON TIME QUEUE
0002C4 00000178000002C4             121+IEDDELEM DC    A(IEDREADY-8,IEDDELEM) . DUMMY LAST ELEMENT
0002CC 2000032C00000000             122+         DC    X'20',AL3(IEDCKPTB),A(0) CLOSE CHECKPOINT ELEMENT
0002D4 0000FFFF                     123+IEDCLRHI DC    X'0000FFFF' .            CLEARS HIGH HALF OF REG
0002D8 00000000                     124+IEDADBUF DC    A(0) .                   BUFFER ADDRESS FOR MH
0002DC 00000000                     125+         DC    A(0) .                   2260 LOCAL APPENDAGE
0002E0 00                           126+         DC    AL1(0) .                 RESERVED
0002E1 000A30                       127+IEDMSGS  DC    AL3(IEDQMSGS) .          LIST OF OPTIONAL VCONS
0002E4 00000000                     128+         DC    A(0) .                   RESERVED FOR CB          S22027
0002E8 00000000                     129+IEDSUPPT DC    A(0) .                   STARTUP MESSAGE
0002EC 000008C0                     130+IEDTSOPT DC    A(IEDAYTSQ) .            TS INPUT QCB ADDR (QCB IS
                                    131+*                                         GENERATED BY TSINPUT MACRO)
0002F0 00000000                     132+IEDOCQPT DC    A(0) IEDQEU              OPEN/CLOSE APPLICATION PROG
0002F4 000002F400000000             133+IEDDELYB DC    A(*,0),V(IEDQHG) .       TIME DELAY QCB
000300 00000000                     134+         DC    A(0) .                   STIMER INTERVAL
000304 0000                         135+         DC    H'0' .                   REFERENCE TIME
000306 0100                         136+IEDINOUT DC    X'0100' .                DUMMY INEND/OUTEND PARM LIST
000308 0C0002F4000002F4             137+         DC    X'0C',AL3(IEDDELYB),A(IEDDELYB) PARM TO SVC 102 TO POST
                                    138+*                                       TIME DELAY QCB TO ITSELF WHEN
                                    139+*                                       TIME INTERRUPT IS RECEIVED
000310 000002F4                     140+         DC    A(IEDDELYB) .            TIME DELAY Q
000314 020002C400000000             141+         DC    X'02',AL3(IEDDELEM),A(0),V(IEDQGA) AVAILABLE BUFFER
000320 020002C400000000             142+IEDBFRTB DC    X'02',AL3(IEDDELEM),A(0),V(IEDQGB) BUFFER RETURN QCB
00032C 020002C400000000             143+IEDCKPTB DC    X'02',AL3(IEDDELEM),A(0,IEDCKPTB) CHECKPOINT QCB
000338 020002C400000000             144+IEDOPCOB DC    X'02',AL3(IEDDELEM),A(0,IEDOPCOB) OPERATOR CONTROL
000344 020002C400000000             145+IEDOLTQB DC    X'02',AL3(IEDDELEM),A(0,IEDOLTQB) ON LINE TEST
                                    146+*                                       LINETYP=BOTH SPECIFIED
000350 020002C400000000             147+         DC    X'02',AL3(IEDDELEM),A(0),V(IEDQKA) ACTIVATE QCB
00035C 0200035C00000000             148+IEDCLOSB DC    X'02',AL3(*-1),A(0),V(IEDQNA) CLOSEDOWN COMPLETION
000368 0200036800000000             149+IEDCPRMB DC    X'02',AL3(*-1),A(0),V(IEDQHG03) REMOVE TIME DELAY
                                    150+*                                         REQUEST ELE FROM TIME Q
000374 020002C400000000             151+         DC    X'02',AL3(IEDDELEM),A(0),V(IEDAYO) QUEUE QCB
000380 0200038000000000             152+IEDCPBCB DC    X'02',AL3(*-1),A(0),V(IEDAYO02) CPB CLEANUP QCB
00038C 0000000000000000             153+         DC    2F'0' .                  COREC AND CADDR
000394 00000000                     154+         DC    F'0' .                   FULLWORD OF ZEROES
000398 00000000                     155+         DC    V(IEDQFE) .              FE PATCH MODULE
00039C 0000000040000000             156+         DC    F'0',X'40',AL3(0) .
0003A4 00                           157+         DC    X'00' .                  COMWRTE=NO SPECIFIED
0003A5 00FFFF0000000040             158+         DC    X'00FFFF0000000040000000',19F'0' FE PATCH AREA
                                    159+*        GETMAIN EC,MF=L                GETMAIN PARAMETER LIST
0003FC 00000000                     160+         DC    A(0) LA OR LU
000400 00                           161+         DC    AL1(0) HIARCHY FILL
000401 000000                       162+         DC    AL3(0) ADDR. OF ADDR. LIST
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000404 20                           163+         DC    X'20' EC MODE
000405 00                           164+         DC    AL1(0) SUBPOOL VALUE
000406 0002000300040007             165+         DC    H'2,3,4,7,16' .          HALFWORD CONSTANTS
                                    166+*                                       KEYLEN=INTEGER
000410 00FF                         167+         DC    H'255'
000412 0000000000000000             168+         DC    5H'0' .                  LNCNT,OPCNT,OPCON,AVFCT,SMCNT
00041C 0000                         169+         DC    AL2(0) .               INTVAL=INTEGER
00041E 0000                         170+IEDDLQX  DC    H'0' .                   DEAD LETTER Q OFFSET
000420 07FB                         171+IEDDUMBR BR    11 .                     DUMMY TRACE TABLE UPDATE
000422 40                           172+IEDBIT1  DC    B'01000000'
                                    173+*                                       TOPMSG=YES, DISPLAY T.O. MSGS
000423 00                           174+         DC    B'00000000'
                                    175+*                                       STARTUP CODE SPECIFIED @XA05310
000424 03                           176+         DC    B'00000011'
000425 00                           177+         DC    AL1(0) .          RESTART=INTEGER
000426 0000                         178+         DC    2AL1(0) .


000428 C9C5C4D8D6C14040             180+IEDOA    DC    CL8'IEDQOA  ' .          INITIALIZATION LINKOR SUBRT
000430                              181+IEDSVC13 DS    0H .
000430 5810 11C8            0043C   182+         L     1,IED045 .               GET ABEND CODE
                                    183+         DROP  1 .                      FORGET BASE
000434 900F D000            00000   184+         STM   0,15,0(13) .             SAVE REGS IN CURRENT SAVEAREA
                                    185+*        ABEND (1) .                    SYSTEM 045,SUBCODE IN R15
000438                              186+         DS    0H
000438 0A0D                         187+         SVC   13 LINK TO ABEND ROUTINE
00043C                              188+         DS    0F .                     WORD BOUNDARY
00043C 80045000                     189+IED045   DC    X'80045000' .            ABEND SYSTEM CODE



                                    191+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                    192+*
                                    193+*                      TCAM MESSAGE CONTROL PROGRAM
                                    194+*
                                    195+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000000                              196+TCAM     CSECT
000440 E3C3C1D4                     197+         DC    C'TCAM'
                                    198+*
000444                              199+IEDQ0001 DS    0H
000444 90EC D00C            0000C   200+         STM   14,12,12(13) .           SAVE CALLERS REGISTERS
000448 5010 F1C8            001C8   201+         ST    1,IEDSPLPT .             SAVE ADDRESS OF START
                                    202+*                                         PARAMETER LIST POINTER
00044C 4110 F008            00008   203+         LA    1,IEDSAVE1 .             GET ADDRESS OF SAVEAREA
000450 50D0 F00C            0000C   204+         ST    13,IEDSAVE1+4 .          EXCHANGE
000454 501D 0008            00008   205+         ST    1,8(13) .                  SAVEAREA ADDRESSES
000008                              206+         USING IEDSAVE1,13 .            IDENTIFY PROGRAM BASE
000458 18D1                         207+         LR    13,1 .                   SET PROGRAM BASE
                                    208+         DROP  15 .                     FORGET TEMPORARY
                                    209+*                                       PASS ADDR OF AVT AS PARM IN R1
                                    210+*        LINK  EPLOC=IEDOA,MF=(E,(1))   GET OPERATOR REPLY ROUTINE
00045A 0700                         211+         CNOP  0,4
00045C 45F0 D460            00468   212+         BAL   15,*+12 LOAD SUP.PARAMLIST ADR
000460 00                           213+         DC    B'00000000' SET DE-EPLOC SW BIT
000461 000428                       214+         DC    AL3(IEDOA) EPLOC OR DE PARAMETER
                                                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000464 00000000                     215+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000468 0A06                         216+         SVC   6 ISSUE LINK SVC


00046A 12FF                         218          LTR   15,15
00046C 4770 D542            0054A   219          BNZ   IEDAYBYE
000470 4130 D4D8            004E0   220          LA    3,DCBL1
000474 4140 0004            00004   221          LA    4,DCBL2-DCBL1
000478 4150 D4D8            004E0   222          LA    5,DCBLAST
00047C 1B77                         223          SR    7,7
00047E 1813                         224 OPENLOOP LR    1,3
                                    225          OPEN  MF=(E,(1))
000480 0A13                         226+         SVC   19 ISSUE OPEN SVC
000000                              227          USING IHADCB,6
000482 5860 3000            00000   228          L     6,0(,3)
000486 9110 6030      00030         229          TM    DCBOFLGS,DCBOFOPN
00048A 4710 D4CC            004D4   230          BO    OPNLTST
00048E D207 D4AE 6028 004B6 00028   231          MVC   OPENWTO+34(8),DCBDDNAM
                                    232 OPENWTO  WTO   'IKJ403I LINE GROUP FOR DD          NOT OPENED',DESC=6, -
                                                       ROUTCDE=2
000494                              233+         CNOP  0,4
000494 4510 D4C6            004CE   234+OPENWTO  BAL   1,IHB0025A BRANCH AROUND MESSAGE
000498 0031                         235+         DC    AL2(49) TEXT LENGTH
00049A 8000                         236+         DC    B'1000000000000000' MCS FLAGS
00049C C9D2D1F4F0F3C940             237+         DC    C'IKJ403I LINE GROUP FOR DD          NOT OPENED'
0004C9 0400                         238+         DC    B'0000010000000000' DESCRIPTOR CODES
0004CB 4000                         239+         DC    B'0100000000000000' ROUTING CODES
0004CE                              240+IHB0025A DS    0H
0004CE 0A23                         241+         SVC   35
0004D0 47F0 D4CE            004D6   242          B     OPENNEXT
0004D4 0570                         243 OPNLTST  BALR  7,0
0004D6 8734 D476            0047E   244 OPENNEXT BXLE  3,4,OPENLOOP
                                    245          DROP  6
0004DA 47F0 D4DC            004E4   246          B     OPENDONE
0004E0                              247 DCBL1    DS    0F
                                    248 DCBLAST  OPEN  (DCB1,(INOUT)),MF=L
0004E0                              249+DCBLAST  DC    0F'0' ALIGN LIST TO FULLWORD
0004E0 83                           250+         DC    AL1(131) OPTION BYTE
0004E1 000588                       251+         DC    AL3(DCB1) DCB ADDRESS
0004E4                              252 DCBL2    EQU   *
0004E4                              253 OPENDONE DS    0H
0004E4 1277                         254          LTR   7,7
0004E6 4780 D542            0054A   255          BZ    IEDAYBYE
                                    256          READY
0004EA 47F0 D4F0            004F8   257+         B     IEDQRDY .                BRANCH AROUND ADCONS
0004EE 0000
0004F0 00000000                     258+IEDQRDYA DC    A(0) .              GOOD MORNING MESSAGE ROUTINE
0004F4 00000000                     259+         DC    A(0) .              RESTART-IN-PROGRESS MSG RTN
0004F8                              260+IEDQRDY  EQU   *
0004F8 5820 D2E4            002EC   261+         L     2,IEDTSOPT .             ADDRESS OF TSO WORK AREA
0004FC 5822 000C            0000C   262+         L     2,12(2) .                GET ADDRESS OF STAE EXIT
                                    263+*        STAE  (2),PURGE=HALT
000500                              264+         CNOP  0,4 .                    ESTAB. FULL WD. BOUND. ALIGN.
000500 4510 D504            0050C   265+         BAL   1,*+12 . PUT LIST ADDR IN REG1 AND BR AROUND
000504                              266+IHB0028  EQU   *
                                                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000504 00000000                     267+         DC    A(0) .                  SPACE FOR STAE EXIT RTN ADDRESS
000508 00000000                     268+         DC    A(0) .                  SPACE FOR PARM LIST ADDR
00050C 5020 D4FC            00504   269+         ST    (2),IHB0028 .          PUT EXIT ADDR. IN LIST
000510 9201 D4FC      00504         270+         MVI   IHB0028,1 .         PUT IN FLAGS FOR TCB,
                                    271+*                                      PURGE AND ASYNCH
000514 1B00                         272+         SR    0,0 .                   INDICATE CREATE OPTION
000516 4111 0000            00000   273+         LA    1,0(1) .                 MAKE REG1 POS.  XCTL=NO
00051A 0A3C                         274+         SVC   60 .                    ISSUE STAE SVC
                                    275+*        LINK  EP=IEDQND                INVOKE CKPT ATTACHER
00051C                              276+         CNOP  0,4
00051C 45F0 D528            00530   277+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
000520 00000528                     278+         DC    A(*+8) ADDR OF EP PARAMETER
000524 00000000                     279+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000528 C9C5C4D8D5C44040             280+         DC    CL8'IEDQND' EP PARAMETER
000530 0A06                         281+         SVC   6 ISSUE LINK SVC
000532 4110 D048            00050   282+         LA    1,IEDSAVE2 .             ADDRESS OF DISP SAVEAREA
000536 58F0 D224            0022C   283+         L     15,IEDEA .               TAM DISPATCHER ENTRY POINT
00053A 9608 D41A      00422         284+         OI    IEDBIT1,IEDREADN .       SET 'READY DONE' FLAG IN AVT
00053E 05EF                         285+         BALR  14,15 .                  CALL TAM DISPATCHER
000008                              286+IEDREADN EQU   X'08' .                  READY MACRO HAS BEEN EXECUTED
                                    287          CLOSE (DCB1)
000540                              288+         CNOP  0,4 ALIGN LIST TO FULLWORD
000540 4510 D540            00548   289+         BAL   1,*+8 LOAD REG1 W/LIST ADDR
000544 80                           290+         DC    AL1(128) OPTION BYTE
000545 000588                       291+         DC    AL3(DCB1) DCB ADDRESS
000548 0A14                         292+         SVC   20 ISSUE CLOSE SVC
00054A 58D0 D004            00004   293 IEDAYBYE L     13,4(,13)
                                    294          RETURN (14,12)
00054E 98EC D00C            0000C   295+         LM    14,12,12(13) RESTORE THE REGISTERS
000552 07FE                         296+         BR    14 RETURN
                                    297          TTABLE LAST=TLAST,MAXLEN=5


0007B8                              299+IEDQTNT  CSECT
0007B8 8910 0003            00003   300+         SLL   1,3-0
0007BC 1B00                         301+         SR    0,0 .                    CLEAR FOR IC SEQUENCE
0007BE 4301 F04F            0004F   302+         IC    0,79(1,15) .
0007C2 8900 0008            00008   303+         SLL   0,8 .                     SHIFT ONE BYTE
0007C6 4301 F050            00050   304+         IC    0,80(1,15) .
0007CA 8900 0008            00008   305+         SLL   0,8 .                     SHIFT ONE BYTE
0007CE 4301 F051            00051   306+         IC    0,81(1,15) .
0007D2 1810                         307+         LR    1,0 .                    RETURN ADDRESS IN R1
0007D4 07FE                         308+         BR    14 .                     RETURN TO CALLER
0007D6                              309+         DS    4H
0007DE 0000                         310+         DC    H'0'
0007E0 05                           311+         DC    AL1(8-3) .      LENGTH OF TERM NAMES
0007E1 00081A                       312+         DC    AL3(TLAST) .             MIDDLE ENTRY
0007E4 0000                         313+         DC    H'00'
0007E6 8990 0003            00003   314+         SLL   9,3-0
0007EA 1B88                         315+         SR    8,8 .                    CLEAR FOR IC SEQUENCE
0007EC 4389 704F            0004F   316+         IC    8,79(9,7)
0007F0 8980 0008            00008   317+         SLL   8,8 .                    SHIFT ONE BYTE
0007F4 4389 7050            00050   318+         IC    8,80(9,7)
0007F8 8980 0008            00008   319+         SLL   8,8 .                    SHIFT ONE BYTE
0007FC 4389 7051            00051   320+         IC    8,81(9,7)
                                                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000800 07F6                         321+         BR    6 .                      RETURN TO CALLER
000802                              322+         DS    4H
000000                              323+TCAM     CSECT


                                    325 OPNAME   OPTION A
0001FC                              326+         ORG   IEDOPTPT .                                         20002
0001FC 00000828                     327+         DC    A(IEDQOPT) .             ADDRESS OF OPTION TABLE   20002
000554                              328+         ORG
000828                              329+IEDQOPT  CSECT
000828 00000830                     330+         DC    A(IEDQOPTN) .            END OF OPTION TABLE       20002
00082C 00000838                     331+         DC    A(IEDQOPC) .             OPTION TABLE LOOK UP      20002


000838                              333+IEDQOPC  CSECT
000001                              334+OPNAME   EQU   1 .                                       20002
000838 03C1D6D7D5C1D4C5             335+         DC    AL1(3),AL1(193),CL8'OPNAME',X'FF' 20002
000000                              336+TCAM     CSECT


                                    338 T1001    TERMINAL QBY=T,DCB=DCB1,RLN=1,TERM=327L,QUEUES=TS,        .........
                                                       UTERM=NO,SCRSIZE=(24,80),                          .........
                                                       FEATURE=(NOBREAK,NOATTN)
000848                              339+IEDQQCBC CSECT
                                    340+IED0G    DC    AL1(130),XL7'0',X'0E',VL3(IEDAYD),AL1(64),VL3(IEDAYD) . X
000848 8200000000000000                +               S22025
000858 0000092800                   341+         DC    A(IEDQSCBC+0),AL1(0)
00085D 00084800000000               342+         DC    AL3(IED0G),AL2(0),AL1(0),AL1(0) . S22025
000864 0000000001000588             343+         DC    A(0),AL1(1),AL3(DCB1) S22025
00086C 48000000                     344+         DC    BL1'01001000',AL3(0) TSO A44888

000928                              346+IEDQSCBC CSECT
000928 0000032000000306             347+         DC    A(IEDBFRTB,IEDINOUT,0),B'00000000',AL3(0) . S22025
000938 0000000000000000             348+         DC    17A(0) .                                          S22025

0007B8                              350+IEDQTNT  CSECT
00080A E3F1F0F0F1                   351+T1001    DC    CL5'T1001' .   ENTRY NAME
00080F 000554                       352+         DC    AL3(IED1A)

000000                              354+TCAM     CSECT
000554                              355+IED1A    DS    0F
000554 1800084800010001             356+         DC    BL1'00011000',AL3(IED0G),2H'01'
00055C 0000                         357+         DC    AL2(0) .                 NO ALTERNATE DESTINATION
00055E 01                           358+         DC    BL1'00000001'
00055F 00                           359+         DC    BL1'00000000'
000560 0000000001                   360+         DC    XL4'0',AL1(1)
000A28                              361+IEDQSTCS CSECT
000A28 00040200                     362+         DC    A(262656)
000000                              363+TCAM     CSECT
000565 051850000000                 364+         DC    AL1(5),AL2(6224),AL3(0) .                        S99228
                                    365 T1002    TERMINAL QBY=T,DCB=DCB1,RLN=2,TERM=327L,QUEUES=TS,        .........
                                                       UTERM=NO,SCRSIZE=(24,80),                          .........
                                                       FEATURE=(NOBREAK,NOATTN)
000848                              366+IEDQQCBC CSECT
                                    367+IED1G    DC    AL1(130),XL7'0',X'0E',VL3(IEDAYD),AL1(64),VL3(IEDAYD) . X
                                                                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000870 8200000000000000                +               S22025
000880 0000097C00                   368+         DC    A(IEDQSCBC+84),AL1(0)
000885 00087000000000               369+         DC    AL3(IED1G),AL2(0),AL1(0),AL1(0) . S22025
00088C 0000000002000588             370+         DC    A(0),AL1(2),AL3(DCB1) S22025
000894 48000000                     371+         DC    BL1'01001000',AL3(0) TSO A44888

000928                              373+IEDQSCBC CSECT
00097C 0000032000000306             374+         DC    A(IEDBFRTB,IEDINOUT,0),B'00000000',AL3(0) . S22025
00098C 0000000000000000             375+         DC    17A(0) .                                          S22025

0007B8                              377+IEDQTNT  CSECT
000812 E3F1F0F0F2                   378+T1002    DC    CL5'T1002' .   ENTRY NAME
000817 00056C                       379+         DC    AL3(IED2A)

000000                              381+TCAM     CSECT
00056C                              382+IED2A    DS    0F
00056C 1800087000010001             383+         DC    BL1'00011000',AL3(IED1G),2H'01'
000574 0000                         384+         DC    AL2(0) .                 NO ALTERNATE DESTINATION
000576 01                           385+         DC    BL1'00000001'
000577 00                           386+         DC    BL1'00000000'
000578 0000000001                   387+         DC    XL4'0',AL1(1)
00057D 051850000000                 388+         DC    AL1(5),AL2(6224),AL3(0) .                        S99228
                                    389 TLAST    TERMINAL QBY=T,DCB=DCB1,RLN=3,TERM=327L,QUEUES=TS,        .........
                                                       UTERM=NO,SCRSIZE=(24,80),                          .........
                                                       FEATURE=(NOBREAK,NOATTN)
000848                              390+IEDQQCBC CSECT
                                    391+IED2G    DC    AL1(130),XL7'0',X'0E',VL3(IEDAYD),AL1(64),VL3(IEDAYD) . X
000898 8200000000000000                +               S22025
0008A8 000009D000                   392+         DC    A(IEDQSCBC+168),AL1(0)
0008AD 00089800000000               393+         DC    AL3(IED2G),AL2(0),AL1(0),AL1(0) . S22025
0008B4 0000000003000588             394+         DC    A(0),AL1(3),AL3(DCB1) S22025
0008BC 48000000                     395+         DC    BL1'01001000',AL3(0) TSO A44888

000928                              397+IEDQSCBC CSECT
0009D0 0000032000000306             398+         DC    A(IEDBFRTB,IEDINOUT,0),B'00000000',AL3(0) . S22025
0009E0 0000000000000000             399+         DC    17A(0) .                                          S22025

0007B8                              401+IEDQTNT  CSECT
00081A E3D3C1E2E3                   402+TLAST    DC    CL5'TLAST' .   ENTRY NAME
00081F 000584                       403+         DC    AL3(IED3A)

000000                              405+TCAM     CSECT
000584                              406+IED3A    DS    0F
000584 1800089800010001             407+         DC    BL1'00011000',AL3(IED2G),2H'01'
00058C 0000                         408+         DC    AL2(0) .                 NO ALTERNATE DESTINATION
00058E 01                           409+         DC    BL1'00000001'
00058F 00                           410+         DC    BL1'00000000'
000590 0000000001                   411+         DC    XL4'0',AL1(1)
000828                              412+IEDQOPT  CSECT
000830 0004                         413+IEDQOPTN DC    AL2(4)
000000                              414+TCAM     CSECT
000595 051850000000                 415+         DC    AL1(5),AL2(6224),AL3(0) .                        S99228


0007B8                              417+IEDQTNT  CSECT
                                                                                                               PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000822 00                           418+         DC    XL1'0'
000000                              419+TCAM     CSECT
                                    420          TSINPUT
000848                              421+IEDQQCBC CSECT
0008C0                              422+         DS    0F SA61077
0008C0 02000000E4000000             423+IEDAYTSQ DC    AL1(2),AL3(0),X'E4',AL3(0)
0008C8 0000000000000000             424+         DC    V(IEDAYI,IEDAYT) .       TSINPUT, STAE ROUTINES
0008D0 0000000000000000             425+         DC    V(IEDAYE,IEDAYH) .       EDIT, HANGUP ROUTINES
0008D8 0000000000000000             426+         DC    V(IEDAYS,IEDAYZ),3A(0) . SIMATTN, SCHEDULER ROUTINES
0008EC 0000000000000000             427+         DC    V(IEDAYM,IEDAYF) .       MSGGEN, HALT I/O ROUTINES
0008F4 020008F4                     428+IEDAYDQB DC    AL1(2),AL3(IEDAYDQB) .  TIME DLY QCB REMOVAL RTN'S QCB
0008F8 EC00000000000000             429+         DC    X'EC',AL3(0),AL1(0),VL3(IEDAYY)
000900 64000904                     430+         DC    X'64',AL3(IEDTSIAB) AQCTL PARM LIST      A44022
000904 80000904                     431+IEDTSIAB DC    X'80',AL3(IEDTSIAB) PARM LIST ELEMENT         A44022
000908 FF000000                     432+         DC    X'FF',AL3(0) PRIORITY LINK FIELD           A44022
00090C 00000000                     433+         DC    V(IEDAYAB) STCB ADDRESS           @OY14094
000910 0000000000000000             434+         DC    3A(0) S22029
00091C 00000000                     435+         DC    V(IEDAYA) .             TSO ATTENTION ROUTINE     S22029
000920 00000000                     436+         DC    V(IEDAYD) .             TSO DESTINATION SCHEDULER S22029
000924 00000000                     437+         DC    V(IEDAYB) 3270 EDITING MODULE      S22028
000000                              438+TCAM     CSECT


                                    440 DCB1    DCB   DSORG=TX,MACRF=(G,P),INTVL=0,CPRI=S, .......................
                                                       DDNAME=L3270A,BUFIN=2,BUFOUT=3,MH=TSOMH, ....................
                                                       BUFSIZE=1530,BUFMAX=3,PCI=(N,N),TRANS=EBCD, ................
                                                       SCT=EBCD,INVLIST=(AA,,,                             .........
                                                       AB,,,                                                   X
                                                       AC)


                                    442+*                       DATA CONTROL BLOCK
                                    443+*
000587                              444+         ORG   *-20 TO ELIMINATE UNUSED SPACE
000588                              445+DCB1     DS    0F'0' ORIGIN ON WORD BOUNDARY
00059C                              446+         ORG   *+20 TO ORIGIN GENERATION

                                    448+*                       COMMON ACCESS METHOD INTERFACE

00059C 23                           450+         DC    AL1(35) BUFIN/BUFOUT
00059D 000600                       451+         DC    AL3(TSOMH) MH
0005A0 00                           452+         DC    AL1(0) INTVL
0005A1 0C                           453+         DC    BL1'00001100' PCI           ICBI DCB-8
0005A2 0040                         454+         DC    BL2'0000000001000000' DSORG
0005A4 03                           455+         DC    AL1(3) BUFMAX
0005A5 000008                       456+         DC    AL3(IEDQAVT)
0005A8 01                           457+         DC    BL1'00000001' CPRI
0005A9 000000                       458+         DC    VL3(IEDQ25) TRANS
0005AC 00                           459+         DC    AL1(0) EIOBX
0005AD 000000                       460+         DC    AL3(0) EXLST

                                    462+*                       FOUNDATION BLOCK

0005B0 D3F3F2F7F0C14040             464+         DC    CL8'L3270A' DDNAME
0005B8 02                           465+         DC    BL1'00000010' OFLGS
                                                                                                               PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0005B9 00                           466+         DC    BL1'00000000' IFLG
0005BA 4040                         467+         DC    BL2'0100000001000000' MACR
0005BC 03                           468+         DC    AL1(3) ILCT
0005BD 25                           469+         DC    XL1'25' UNTCT
0005BE 05FA                         470+         DC    AL2(1530) BUFSIZE
0005C0 00                           471+         DC    AL1(0) RESERVE
0005C1 00                           472+         DC    AL1(0) RESERVE
0005C2 00                           473+         DC    AL1(0) RESERVE
0005C3 00                           474+         DC    AL1(0) RESERVE
0005C4 00                           475+         DC    XL1'0'
0005C5 0005D4                       476+         DC    AL3(AA)
0005C8 00                           477+         DC    XL1'0'
0005C9 0005E4                       478+         DC    AL3(AB)
0005CC 00                           479+         DC    XL1'0'
0005CD 0005F4                       480+         DC    AL3(AC)
                                    481 AA       INVLIST ORDER=(T1001+06),AUTO=NO


0005D0 0700                         483+         CNOP  2,4
0005D2 0001                         484+         DC    AL2((T1001-IEDQTNT-74)/8)
0005D4 01010200                     485+AA       DC    AL1(1),AL1(1-0),AL1(2),B'00000000' S99244
0005D8 00000000                     486+         DC    A(0) S99244
0005DC 06                           487+         DC    XL1'06'
0005DD 01                           488+         DC    AL1(1) .                INDEX
0005DE FE                           489+         DC    X'FE'
                                    490 AB       INVLIST ORDER=(T1002+06),AUTO=NO


0005DF 00
0005E0 0700                         492+         CNOP  2,4
0005E2 0002                         493+         DC    AL2((T1002-IEDQTNT-74)/8)
0005E4 01010200                     494+AB       DC    AL1(1),AL1(1-0),AL1(2),B'00000000' S99244
0005E8 00000000                     495+         DC    A(0) S99244
0005EC 06                           496+         DC    XL1'06'
0005ED 01                           497+         DC    AL1(1) .                INDEX
0005EE FE                           498+         DC    X'FE'
                                    499 AC       INVLIST ORDER=(TLAST+06),AUTO=NO


0005EF 00
0005F0 0700                         501+         CNOP  2,4
0005F2 0003                         502+         DC    AL2((TLAST-IEDQTNT-74)/8)
0005F4 01010200                     503+AC       DC    AL1(1),AL1(1-0),AL1(2),B'00000000' S99244
0005F8 00000000                     504+         DC    A(0) S99244
0005FC 06                           505+         DC    XL1'06'
0005FD 01                           506+         DC    AL1(1) .                INDEX
0005FE FE                           507+         DC    X'FE'
                                    508 TSOMH    STARTMH TSOMH=YES,STOP=YES,CONV=YES,LC=IN

0005FF 00
000600                              510+         CNOP  0,4
000600 00000000                     511+         DC    A(0) NO ALTMH FOR MIXED ENVIRONS22029
000604 91                           512+         DC    B'10010001'
000605 000000                       513+         DC    AL3(0)
000600                              514+TSOMH    EQU   *-8
                                                                                                               PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000A30                              515+IEDQMSGS CSECT
000A30 00000000                     516+         DC    V(IEDQBD)
000A34 00000000                     517+         DC    V(IEDQA4)
000A38 00000000                     518+         DC    V(IEDQA1)
000A3C 00000000                     519+         DC    V(IEDQAI)
000A40 00000000                     520+         DC    V(IEDQAV)
000A44 00000000                     521+         DC    V(IEDQAE)
000000                              522+TCAM     CSECT
000608 10000000                     523+         DC    AL1(16),VL3(IEDQBT)
00060C 00000000                     524+         DC    AL1(0+0),VL3(IEDAYR) S22025
000610                              525+         DS    0F
000050                              526+         USING IEDSAVE2,13
000610                              527+         USING *,12
000610 074F                         528+         BCR   4,15
000612 4710 C146            00756   529+         BO    IEDS0090


                                    531          INHDR

000616                              533+IEDR0090 DS    0H .                                              S22025
000A30                              534+IEDQMSGS CSECT
000A48 00000000                     535+         DC    V(IEDQAB)
000000                              536+TCAM     CSECT
000616 4510 C00C            0061C   537+         BAL   1,*+6 S22025
00061A 1802                         538+         DC    AL1(24),AL1(2) S22025
00061C 58F0 D1C0            00210   539+         L     15,IEDUI S22025
000620 05EF                         540+         BALR  14,15 S22025
000622 5810 D288            002D8   541+         L     1,IEDADBUF .             GET BUFFER ADDR          S22025
000626 9181 1014      00014         542+         TM    20(1),X'81' .            TEXT OR RECALLED HDR
00062A 4770 C062            00672   543+         BNZ   IEDR0092 BRANCH IF EITHER


                                    545          CODE

000A30                              547+IEDQMSGS CSECT
000A4C 00000000                     548+         DC    V(IEDQAW)
000A50 00000000                     549+         DC    V(IEDQAQ)
000000                              550+TCAM     CSECT
00062E 0700                         551+         CNOP  0,4
000630 4510 C028            00638   552+         BAL   1,*+(8+0) .          SKIP AROUND PARMLIST
000634 1C0400                       553+         DC    AL1(28),AL1(4+0),AL1(0)
000637 80                           554+         DC    AL1(128+0) .          USE DCB TABLE
000638 58F0 D1C0            00210   555+         L     15,IEDUI .               CODE ROUTINE
00063C 05EF                         556+         BALR  14,15
00063E 0700                         557+         CNOP  0,4
000640 4510 C038            00648   558+         BAL   1,*+4+4
000644 0C0410FF                     559+         DC    AL1(12+0),AL1(4),AL1(16),AL1(255)
000648 58F0 D1C0            00210   560+         L     15,IEDUI
00064C 05EF                         561+         BALR  14,15
00064E 12FF                         562+         LTR   15,15
000650 4740 C050            00660   563+         BM    *+16
000654 181F                         564+         LR    1,15
000656 58F0 D290            002E0   565+         L     15,IEDMSGS-1 .           OPERATOR CONTROL TEST
00065A 58F0 F020            00020   566+         L     15,32(,15)
00065E 05EF                         567+         BALR  14,15
                                                                                                               PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    569          LOGON

000A30                              571+IEDQMSGS CSECT
000A54 00000000                     572+         DC    V(IEDAYL)
000000                              573+TCAM     CSECT
000660                              574+         CNOP  0,4
000660 4510 C05C            0066C   575+         BAL   1,*+12 . BRANCH AROUND PARMLIST                   S22029
000664 24080C00                     576+         DC    AL1(36),AL1(8),AL1(12),AL1(0) SA67157
000668 00000600                     577+         DC    AL1(0),AL3(TSOMH) S22029
00066C 58F0 D1C0            00210   578+         L     15,IEDUI .                                        S22029
000670 05EF                         579+         BALR  14,15
000672                              580+IEDQ0097 EQU   * END OF THIS LOGON MACRO EXPANSION             S22029
000605                              581+         ORG   TSOMH+5 S22029
000605 000672                       582+         DC    AL3(IEDQ0097) ADDRESS OF END OF LOGON MACRO      S22029
000672                              583+         ORG   IEDQ0097 S22029


                                    585          INBUF

000672                              587+IEDR0092 DS    0H


                                    589          CUTOFF 2100
000A30                              590+IEDQMSGS CSECT
000A58 00000000                     591+         DC    V(IEDQAU)
000000                              592+TCAM     CSECT
000672 4510 C06A            0067A   593+         BAL   1,*+8 .                  SKIP AROUND PARMLIST
000676 2804                         594+         DC    AL1(40),AL1(4)
000678 0834                         595+         DC    AL2(2100) .              MAXIMUM MESSAGE LENGTH
00067A 58F0 D1C0            00210   596+         L     15,IEDUI .               TO CUTOFF ROUTINE
00067E 05EF                         597+         BALR  14,15


                                    599          CARRIAGE
000A30                              600+IEDQMSGS CSECT
000A5C 00000000                     601+         DC    V(IEDAYC)
000000                              602+TCAM     CSECT
000680                              603+         CNOP  0,4
000680 4510 C078            00688   604+         BAL   1,*+8 SA60350
000684 2C040000                     605+         DC    AL1(44),AL1(4),AL2(0) SA60350
000688 58F0 D1C0            00210   606+         L     15,IEDUI .    CARRIAGE ROUTINE
00068C 05EF                         607+         BALR  14,15


                                    609          SIMATTN

000A30                              611+IEDQMSGS CSECT
000A60 00000000                     612+         DC    V(IEDAYS)
000000                              613+TCAM     CSECT
00068E 0700                         614+         CNOP  0,4
000690 4510 C088            00698   615+         BAL   1,*+8 .                  BRANCH AROUND PARMLIST
000694 30040000                     616+         DC    AL1(48),AL1(4),H'0'
000698 58F0 D1C0            00210   617+         L     15,IEDUI .               TO SIMATTN ROUTINE
00069C 05EF                         618+         BALR  14,15
                                                                                                               PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    620          INMSG

00069E                              622+IEDR0100 DS    0H
00069E 0700                         623+         CNOP  0,4
0006A0 58F0 D1C0            00210   624+         L     15,IEDUI .               INMSG/OUTMSG ROUTINE
0006A4 051F                         625+         BALR  1,15
0006A6 0402                         626+         DC    AL1(4),AL1(2)


                                    628          ATTEN

000A30                              630+IEDQMSGS CSECT
000A64 00000000                     631+         DC    V(IEDAYX)
000000                              632+TCAM     CSECT
0006A8 340C0100                     633+         DC    AL1(52),AL1(12),X'0100' S22029
0006AC 00120000                     634+         DC    XL4'00120000'
0006B0 00000000                     635+         DC    V(IEDAYA) . ADDRESS OF ATTENTION ROUTINE          S22029


                                    637          HANGUP

000A30                              639+IEDQMSGS CSECT
000A68 00000000                     640+         DC    V(IEDAYX)
000000                              641+TCAM     CSECT
0006B4 39080000                     642+         DC    AL1(56+1),AL1(8),X'0000'
0006B8 00000000                     643+         DC    V(IEDAYH)

                                    645  MSGGEN X'1000000000',C'IKJ54011I TSO IS NOT ACTIVE '

000A30                              647+IEDQMSGS CSECT
000A6C 00000000                     648+         DC    V(IEDAYM)
000000                              649+TCAM     CSECT
0006BC 3C0C                         650+         DC    AL1(60+0),AL1(12+0+0)
0006BE 80                           651+         DC    X'80'
0006BF 1000000000                   652+         DC    X'1000000000' .                  ERROR MASK
000A70                              653+IEDQMISC CSECT
000A70 1CC9D2D1F5F4F0F1             654+         DC    AL1(28),C'IKJ54011I TSO IS NOT ACTIVE '
000000                              655+TCAM     CSECT
0006C4 00000A70                     656+         DC    AL4(IEDQMISC+0)


                                    658  MSGGEN X'8000000000',C'IKJ54012A ENTER LOGON - '

0006C8 3C0C                         660+         DC    AL1(60+0),AL1(12+0+0)
0006CA 80                           661+         DC    X'80'
0006CB 8000000000                   662+         DC    X'8000000000' .                  ERROR MASK
000A70                              663+IEDQMISC CSECT
000A8D 18C9D2D1F5F4F0F1             664+         DC    AL1(24),C'IKJ54012A ENTER LOGON - '
000000                              665+TCAM     CSECT
0006D0 00000A8D                     666+         DC    AL4(IEDQMISC+29)


                                    668  MSGGEN X'4000000000',                                                 X
                                                       C'IKJ54013I LOGON FAILED, INVALID COMMAND '
                                                                                                               PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0006D4 3C0C                         670+         DC    AL1(60+0),AL1(12+0+0)
0006D6 80                           671+         DC    X'80'
0006D7 4000000000                   672+         DC    X'4000000000' .                  ERROR MASK
000A70                              673+IEDQMISC CSECT
000AA6 28C9D2D1F5F4F0F1             674+         DC    AL1(40),C'IKJ54013I LOGON FAILED, INVALID COMMAND '
000000                              675+TCAM     CSECT
0006DC 00000AA6                     676+         DC    AL4(IEDQMISC+54)


                                    678  MSGGEN X'2000000000',                                                 X
                                                       C'IKJ54014I YOUR TERMINAL IS NOT USABLE WITH TSO '

0006E0 3C0C                         680+         DC    AL1(60+0),AL1(12+0+0)
0006E2 80                           681+         DC    X'80'
0006E3 2000000000                   682+         DC    X'2000000000' .                  ERROR MASK
000A70                              683+IEDQMISC CSECT
                                    684+         DC    AL1(47),C'IKJ54014I YOUR TERMINAL IS NOT USABLE WITH TSOX
000ACF 2FC9D2D1F5F4F0F1                +                '
000000                              685+TCAM     CSECT
0006E8 00000ACF                     686+         DC    AL4(IEDQMISC+95)


                                    688  MSGGEN X'0000200000',                                                 X
                                                       C'IKJ54015I TSO MESSAGES CANNOT REACH THIS TERMINAL '

0006EC 3C0C                         690+         DC    AL1(60+0),AL1(12+0+0)
0006EE 80                           691+         DC    X'80'
0006EF 0000200000                   692+         DC    X'0000200000' .                  ERROR MASK
000A70                              693+IEDQMISC CSECT
                                    694+         DC    AL1(50),C'IKJ54015I TSO MESSAGES CANNOT REACH THIS TERMIX
000AFF 32C9D2D1F5F4F0F1                +               NAL '
000000                              695+TCAM     CSECT
0006F4 00000AFF                     696+         DC    AL4(IEDQMISC+143)


                                    698  MSGGEN X'0800000000',                                                 X
                                                       C'IKJ54016I HIGH PAGING OR MAX USERS, TRY LATER '

0006F8 3C0C                         700+         DC    AL1(60+0),AL1(12+0+0)
0006FA 80                           701+         DC    X'80'
0006FB 0800000000                   702+         DC    X'0800000000' .                  ERROR MASK
000A70                              703+IEDQMISC CSECT
                                    704+         DC    AL1(46),C'IKJ54016I HIGH PAGING OR MAX USERS, TRY LATER X
000B32 2EC9D2D1F5F4F0F1                +               '
000000                              705+TCAM     CSECT
000700 00000B32                     706+         DC    AL4(IEDQMISC+194)


                                    708  MSGGEN X'0000004000',                                                 X
                                                       C'IKJ54017A TERMINAL ERROR, REENTER INPUT '

000704 3C0C                         710+         DC    AL1(60+0),AL1(12+0+0)
000706 80                           711+         DC    X'80'
000707 0000004000                   712+         DC    X'0000004000' .                  ERROR MASK
000A70                              713+IEDQMISC CSECT
                                                                                                               PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000B61 28C9D2D1F5F4F0F1             714+         DC    AL1(40),C'IKJ54017A TERMINAL ERROR, REENTER INPUT '
000000                              715+TCAM     CSECT
00070C 00000B61                     716+         DC    AL4(IEDQMISC+241)


                                    718  MSGGEN X'0100000000',                                                 X
                                                       C'IKJ54018A MESSAGE TOO LONG, REENTER INPUT '

000710 3C0C                         720+         DC    AL1(60+0),AL1(12+0+0)
000712 80                           721+         DC    X'80'
000713 0100000000                   722+         DC    X'0100000000' .                  ERROR MASK
000A70                              723+IEDQMISC CSECT
000B8A 2AC9D2D1F5F4F0F1             724+         DC    AL1(42),C'IKJ54018A MESSAGE TOO LONG, REENTER INPUT '
000000                              725+TCAM     CSECT
000718 00000B8A                     726+         DC    AL4(IEDQMISC+282)


                                    728  MSGGEN X'0200000000',                                                 X
                                                       C'IKJ54020A MESSAGE LOST, REENTER INPUT '

00071C 3C0C                         730+         DC    AL1(60+0),AL1(12+0+0)
00071E 80                           731+         DC    X'80'
00071F 0200000000                   732+         DC    X'0200000000' .                  ERROR MASK
000A70                              733+IEDQMISC CSECT
000BB5 26C9D2D1F5F4F0F2             734+         DC    AL1(38),C'IKJ54020A MESSAGE LOST, REENTER INPUT '
000000                              735+TCAM     CSECT
000724 00000BB5                     736+         DC    AL4(IEDQMISC+325)


                                    738  MSGGEN X'0000800000',X'14065AC915'

000728 3C0C                         740+         DC    AL1(60+0),AL1(12+0+0)
00072A 80                           741+         DC    X'80'
00072B 0000800000                   742+         DC    X'0000800000' .                  ERROR MASK
000A70                              743+IEDQMISC CSECT
000BDC 0514065AC915                 744+         DC    AL1(5),X'14065AC915'
000000                              745+TCAM     CSECT
000730 00000BDC                     746+         DC    AL4(IEDQMISC+364)


                                    748  MSGGEN X'0000400000',X'14065AC415'

000734 3C0C                         750+         DC    AL1(60+0),AL1(12+0+0)
000736 80                           751+         DC    X'80'
000737 0000400000                   752+         DC    X'0000400000' .                  ERROR MASK
000A70                              753+IEDQMISC CSECT
000BE2 0514065AC415                 754+         DC    AL1(5),X'14065AC415'
000000                              755+TCAM     CSECT
00073C 00000BE2                     756+         DC    AL4(IEDQMISC+370)


                                    758  MSGGEN X'0000120000',X'14065A15'

000740 3C0C                         760+         DC    AL1(60+0),AL1(12+0+0)
000742 80                           761+         DC    X'80'
                                                                                                               PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000743 0000120000                   762+         DC    X'0000120000' .                  ERROR MASK
000A70                              763+IEDQMISC CSECT
000BE8 0414065A15                   764+         DC    AL1(4),X'14065A15'
000000                              765+TCAM     CSECT
000748 00000BE8                     766+         DC    AL4(IEDQMISC+376)


                                    768  MSGGEN 0,X'FF'

00074C 3D08                         770+         DC    AL1(60+1),AL1(8+0+0)
00074E 80                           771+         DC    X'80'
00074F 00                           772+         DC    AL1(0)
000A70                              773+IEDQMISC CSECT
000BED 01FF                         774+         DC    AL1(1),X'FF'
000000                              775+TCAM     CSECT
000750 00000BED                     776+         DC    AL4(IEDQMISC+381)


                                    778          INEND

000754 0100                         780+IEDR0108 DC    AL1(1),X'00'


                                    782          OUTBUF

000756                              784+IEDS0090 DS    0H


                                    786          CODE

000756 0700                         788+         CNOP  0,4
000758 4510 C150            00760   789+         BAL   1,*+(8+0) .          SKIP AROUND PARMLIST
00075C 1C0400                       790+         DC    AL1(28),AL1(4+0),AL1(0)
00075F A0                           791+         DC    AL1(128+32) .          USE DCB TABLE
000760 58F0 D1C0            00210   792+         L     15,IEDUI .               CODE ROUTINE
000764 05EF                         793+         BALR  14,15


                                    795          OUTMSG

000766                              797+IEDS0166 DS    0H
000766                              798+         CNOP  2,4 .                                             S22025
000766 58F0 D1C0            00210   799+         L     15,IEDUI .               INMSG/OUTMSG ROUTINE
00076A 051F                         800+         BALR  1,15
00076C 04040000                     801+         DC    AL1(4),AL1(4),AL2(0) .                  S22025


                                    803          ATTEN

000770 340C0100                     805+         DC    AL1(52),AL1(12),X'0100' S22029
000774 00120000                     806+         DC    XL4'00120000'
000778 00000000                     807+         DC    V(IEDAYA) . ADDRESS OF ATTENTION ROUTINE          S22029


                                    809          HANGUP
                                                                                                               PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00077C 39080000                     811+         DC    AL1(56+1),AL1(8),X'0000'
000780 00000000                     812+         DC    V(IEDAYH)

                                    814  MSGGEN X'0000800000',X'14065AC915'

000784 3C0C                         816+         DC    AL1(60+0),AL1(12+0+0)
000786 80                           817+         DC    X'80'
000787 0000800000                   818+         DC    X'0000800000' .                  ERROR MASK
000A70                              819+IEDQMISC CSECT
000BEF 0514065AC915                 820+         DC    AL1(5),X'14065AC915'
000000                              821+TCAM     CSECT
00078C 00000BEF                     822+         DC    AL4(IEDQMISC+383)


                                    824  MSGGEN X'0000120000',X'14065A15'

000790 3C0C                         826+         DC    AL1(60+0),AL1(12+0+0)
000792 80                           827+         DC    X'80'
000793 0000120000                   828+         DC    X'0000120000' .                  ERROR MASK
000A70                              829+IEDQMISC CSECT
000BF5 0414065A15                   830+         DC    AL1(4),X'14065A15'
000000                              831+TCAM     CSECT
000798 00000BF5                     832+         DC    AL4(IEDQMISC+389)


                                    834  MSGGEN X'0000200000',                                                 X
                                                       C'IKJ54015I TSO MESSAGES CANNOT REACH THIS TERMINAL '

00079C 3C0C                         836+         DC    AL1(60+0),AL1(12+0+0)
00079E 80                           837+         DC    X'80'
00079F 0000200000                   838+         DC    X'0000200000' .                  ERROR MASK
000A70                              839+IEDQMISC CSECT
                                    840+         DC    AL1(50),C'IKJ54015I TSO MESSAGES CANNOT REACH THIS TERMIX
000BFA 32C9D2D1F5F4F0F1                +               NAL '
000000                              841+TCAM     CSECT
0007A4 00000BFA                     842+         DC    AL4(IEDQMISC+394)


                                    844  MSGGEN 0,X'FF'

0007A8 3D08                         846+         DC    AL1(60+1),AL1(8+0+0)
0007AA 80                           847+         DC    X'80'
0007AB 00                           848+         DC    AL1(0)
000A70                              849+IEDQMISC CSECT
000C2D 01FF                         850+         DC    AL1(1),X'FF'
000000                              851+TCAM     CSECT
0007AC 00000C2D                     852+         DC    AL4(IEDQMISC+445)


                                    854          OUTEND

0007B0 0100                         856+IEDS0169 DC    AL1(1),X'00'


                                    858          DCBD  DSORG=TX
                                                                                                               PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    860+*                       DCB SYMBOLIC DEFINITION FOR
                                    861+*                       TCAM LINE GROUP

                                    863+***********************************************************************
                                    864+*  OS     RELEASE 21.8, 03/22/74                                      *
                                    865+*  OS/VS1 RELEASE 03.1, 03/22/74                                      *
                                    866+***********************************************************************

000000                              868+IHADCB   DSECT  , -            DCBPTR

000080                              870+DCBBIT0  EQU   128
000040                              871+DCBBIT1  EQU   64
000020                              872+DCBBIT2  EQU   32
000010                              873+DCBBIT3  EQU   16
000008                              874+DCBBIT4  EQU   8
000004                              875+DCBBIT5  EQU   4
000002                              876+DCBBIT6  EQU   2
000001                              877+DCBBIT7  EQU   1

                                    879+*                       TCAM LINE GROUP INTERFACE

000014                              881+         ORG   IHADCB+20
000014                              882+DCBMHA   DS    0A -           SAME AS DCBMH BELOW
000014                              883+DCBBUFIN DS    0BL1 -         NUMBER OF INPUT BUFFERS (BITS 0-3)
000014                              884+DCBBUFOU DS    BL1 -          NUMBER OF OUTPUT BUFFERS (BITS 4-7)
0000F0                              885+DCBBFIN  EQU   DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3 -
                                    886+*                             NUMBER OF BUFFERS ASSIGNED
                                    887+*                             INITIALLY FOR RECEIVING OPERATIONS, FOR
                                    888+*                             EACH LINE IN LINE GROUP
00000F                              889+DCBBFOUT EQU   DCBBIT4+DCBBIT5+DCBBIT6+DCBBIT7 -
                                    890+*                             NUMBER OF BUFFERS ASSIGNED
                                    891+*                             INITIALLY FOR SENDING OPERATIONS, FOR
                                    892+*                             EACH LINE IN LINE GROUP
000015                              893+DCBMH    DS    AL3 -          ADDRESS OF MESSAGE HANDLER FOR THIS LINE
                                    894+*                             GROUP
000018                              895+         DS    FL1 -          DCBINTVL - NUMBER OF SECONDS OF
                                    896+*                             INVITATION DELAY
000019                              897+DCBPCI   DS    BL1 -          PROGRAM CONTROLLED INTERRUPTION HANDLING
000080                              898+DCBPCIX1 EQU   DCBBIT0 -      PCI=(X,)                       ICBI DCB-8
000040                              899+DCBPCIX2 EQU   DCBBIT1 -      PCI=(,X)                       ICBI DCB-8
000020                              900+DCBPCIA1 EQU   DCBBIT2 -      PCI=(A,)
000010                              901+DCBPCIA2 EQU   DCBBIT3 -      PCI=(,A)
000008                              902+DCBPCIN1 EQU   DCBBIT4 -      PCI=(N,)
000004                              903+DCBPCIN2 EQU   DCBBIT5 -      PCI=(,N)
000002                              904+DCBPCIR1 EQU   DCBBIT6 -      PCI=(R,)
000001                              905+DCBPCIR2 EQU   DCBBIT7 -      PCI=(,R)
00001A                              906+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED
00001A                              907+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG
000080                              908+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION
000040                              909+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION
000020                              910+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION
000010                              911+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP
000008                              912+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE
000004                              913+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE
000002                              914+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION
                                                                                                               PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000001                              915+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS
                                    916+*                                  LOCATION DEPENDENT INFORMATION
00001B                              917+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG
000080                              918+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION
000040                              919+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP
000020                              920+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE
000008                              921+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1
000004                              922+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024
00001C                              923+DCBBUFMA DS    FL1 -          MAXIMUM NUMBER OF BUFFERS TO BE USED FOR
                                    924+*                             DATA TRANSFER FOR EACH LINE IN THIS GROUP

                                    926+*                       QTAM LINE GROUP INTERFACE

000014                              928+         ORG   IHADCB+20
000014                              929+DCBCLPS  DS    0A -           ADDRESS OF LINE PROCEDURE SPECIFICATION
                                    930+*                             ROUTINE
000014                              931+DCBBUFRQ DS    FL1 -          NUMBER OF BUFFERS REQUESTED FOR A READ
                                    932+*                             OR WRITE OPERATION
000015                              933+DCBCLPSA DS    AL3 -          SAME AS DCBCLPS ABOVE
000018                              934+DCBINTVL DS    FL1 -          NUMBER OF SECONDS OF INTENTIONAL DELAY
                                    935+*                             BETWEEN PASSES THROUGH A POLLING LIST
                                    936+*                             FOR NONSWITCHED LINES
000019                              937+         DS    X -            RESERVED
00001A                              938+         DS    0BL2 -         DCBDSORG - DATA SET ORGANIZATION
00001A                              939+         DS    BL1 -          DCBDSRG1 - FIRST BYTE OF DCBDSORG
00001B                              940+         DS    BL1 -          DCBDSRG2 - SECOND BYTE OF DCBDSORG
00001C                              941+DCBIOBAD DS    0A -           ADDRESS OF FIRST IOB
00001C                              942+DCBDEVTP DS    AL1 -          DEVICE TYPE POINTER
00001D                              943+DCBIOBAA DS    AL3 -          ADDRESS OF FIRST IOB

000020                              945+         ORG   IHADCB+32
000020                              946+DCBTRANA DS    0A -           ADDRESS OF TRANSLATION TABLE
000020                              947+         DS    BL1 -          DCBCPRI - COMMUNICATION PRIORITY BITS
000021                              948+DCBTRANS DS    AL3 -          ADDRESS OF TRANSLATION TABLE

000020                              950+         ORG   IHADCB+32
000020                              951+DCBLCBAD DS    0A -           BASE FOR ADDRESSING LCB'S (BASE = ADDRESS
                                    952+*                             OF FIRST LCB MINUS LENGTH OF ONE LCB)
000020                              953+DCBCPRI  DS    BL1 -          COMMUNICATION PRIORITY BITS
000004                              954+DCBCPR   EQU   DCBBIT5 -      RECEIVING HAS PRIORITY
000002                              955+DCBCPE   EQU   DCBBIT6 -      RECEIVING AND SENDING HAVE EQUAL PRIORITY
000001                              956+DCBCPS   EQU   DCBBIT7 -      SENDING HAS PRIORITY
000021                              957+DCBLCBA  DS    AL3 -          SAME AS DCBLCBAD ABOVE
000024                              958+DCBEXLST DS    0A -           ADDRESS OF EXIT LIST
000024                              959+DCBEIOBX DS    FL1 -          EXTENDED IOB INDEX.  SIZE OF LCB
000025                              960+DCBEXLSA DS    AL3 -          ADDRESS OF EXIT LIST


                                    963+*                       FOUNDATION BEFORE OPEN

000028                              965+         ORG   IHADCB+40
000028                              966+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES
                                    967+*                             THE DATA SET ASSOCIATED WITH THIS DCB
000030                              968+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE
000080                              969+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR
                                                                                                               PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    970+*                             POINT.  IF ONE, LAST I/O OPERATION WAS
                                    971+*                             WRITE.
000080                              972+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR
                                    973+*                             OUTPUT (BDAM)
000040                              974+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD
                                    975+*                             MODE
000020                              976+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE
                                    977+*                             ROUTINE FOR CONCATENATION OF DATA SETS
                                    978+*                             WITH UNLIKE ATTRIBUTES
000010                              979+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED
000008                              980+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A
                                    981+*                             CONCATENATION OF UNLIKE ATTRIBUTES
000004                              982+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ
000002                              983+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN
                                    984+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1
                                    985+*                             ON RETURN FROM USER EXIT TO THE I/O
                                    986+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.
000001                              987+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF
                                    988+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION
000031                              989+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR
                                    990+*                             CONDITIONS AND IN DETERMINING CORRECTIVE
                                    991+*                             PROCEDURES
0000C0                              992+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -
                                    993+*                             ERROR CORRECTION INDICATOR
000000                              994+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE
000040                              995+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN
                                    996+*                             PROCESS
0000C0                              997+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -
                                    998+*                             PERMANENT ERROR CORRECTION
000030                              999+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -
                                   1000+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR
000020                             1001+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH
                                   1002+*                             SENSED
000010                             1003+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH
                                   1004+*                             SENSED
00000C                             1005+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -
                                   1006+*                             IOS ERROR ROUTINE USE INDICATOR
000000                             1007+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE
000004                             1008+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE
000004                             1009+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE
                                   1010+*                             (BTAM)
000008                             1011+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE
00000C                             1012+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -
                                   1013+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE
000032                             1014+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE
000032                             1015+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR
000080                             1016+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---
                                   1017+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,
                                   1018+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)
000040                             1019+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)
000040                             1020+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)
000040                             1021+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---
                                   1022+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) ---
                                   1023+*                             RESERVED (BTAM)
000020                             1024+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)
                                                                                                               PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000020                             1025+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)
000020                             1026+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---
                                   1027+*                             ALWAYS ZERO (QSAM, QISAM)
000010                             1028+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)
000010                             1029+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)
000010                             1030+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---
                                   1031+*                             ALWAYS ZERO (BISAM) ---
                                   1032+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)
000008                             1033+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)
000008                             1034+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---
                                   1035+*                             ALWAYS ZERO (BISAM) ---
                                   1036+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)
000004                             1037+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK
                                   1038+*                             COUNT (EXCP)
000004                             1039+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)
000004                             1040+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)
000004                             1041+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---
                                   1042+*                             ALWAYS ZERO (QISAM) ---
                                   1043+*                             RESERVED (QTAM, BTAM)
000002                             1044+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)
000002                             1045+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)
000002                             1046+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)
000002                             1047+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---
                                   1048+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)
000001                             1049+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)
000001                             1050+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,
                                   1051+*                             BPAM, BISAM, QISAM, QTAM, BTAM)
000033                             1052+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR
000080                             1053+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM,
                                   1054+*                             BPAM, BISAM, BDAM) ---
                                   1055+*                             RESERVED (EXCP, QTAM, BTAM)
000040                             1056+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)
000040                             1057+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---
                                   1058+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) ---
                                   1059+*                             RESERVED (EXCP, BTAM)
000020                             1060+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)
000020                             1061+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---
                                   1062+*                             ALWAYS ZERO (QSAM, QISAM) ---
                                   1063+*                             RESERVED (EXCP)
000010                             1064+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)
000010                             1065+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---
                                   1066+*                             ALWAYS ZERO (BISAM) ---
                                   1067+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)
000008                             1068+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)
000008                             1069+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)
                                   1070+*                             (BSAM)
000008                             1071+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)
000008                             1072+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---
                                   1073+*                             ALWAYS ZERO (BISAM) ---
                                   1074+*                             RESERVED (BPAM, QTAM, BTAM)
000004                             1075+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)
000004                             1076+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)
000004                             1077+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)
000004                             1078+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---
                                   1079+*                             ALWAYS ZERO (BISAM) ---
                                                                                                               PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1080+*                             RESERVED (BDAM, QTAM, BTAM)
000002                             1081+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)
000002                             1082+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)
000002                             1083+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)
000002                             1084+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---
                                   1085+*                             ALWAYS ZERO (BISAM) ---
                                   1086+*                             RESERVED (BPAM, QTAM, BTAM)
000001                             1087+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)
000001                             1088+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT
                                   1089+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)
000001                             1090+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)
000001                             1091+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---
                                   1092+*                             ALWAYS ZERO (BISAM) ---
                                   1093+*                             RESERVED (BPAM, QTAM, BTAM)

                                   1095+*                       FOUNDATION AFTER OPEN

000028                             1097+         ORG   IHADCB+40
000028                             1098+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD
                                   1099+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED
                                   1100+*                             WITH THIS DCB
00002A                             1101+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN
00002A                             1102+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF
00002B                             1103+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF
00002C                             1104+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB
00002C                             1105+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN
0000C0                             1106+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -
                                   1107+*                             ERROR CORRECTION INDICATOR
000030                             1108+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -
                                   1109+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR
00000C                             1110+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -
                                   1111+*                             IOS ERROR ROUTINE USE INDICATOR
00002D                             1112+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB

                                   1114+*                       TCAM LINE GROUP EXTENSION
                                   1115+*                       3705 EXTENSION

000030                             1117+         ORG   IHADCB+48
000030                             1118+DCBSCTAB DS    0A -           ADDRESS OF SPECIAL CHARACTERS TABLE (SCT)
000030                             1119+         DS    BL1 -          DCBOFLGS - FLAGS USED BY OPEN ROUTINE
000031                             1120+DCBSCTAD DS    AL3 -          ADDRESS OF SPECIAL CHARACTERS TABLE (SCT)
000034                             1121+DCBOPTCD DS    0BL1 -         OPTION CODE                        S22024
000034                             1122+DCBILCT  DS    FL1 -          COUNT OF INVITATION LISTS
000035                             1123+DCBUNTCT DS    FL1 -          BEFORE OPEN - NUMERICAL VALUE OF SCT.
                                   1124+*                             AFTER OPEN - COUNT OF UNITS FOR 1 BUFFER.
000036                             1125+DCBBUFSI DS    H -            SIZE OF ALL BUFFERS USED FOR THIS LINE
                                   1126+*                             GROUP
000038                             1127+DCBRESER DS    0CL4 -         NUMBER OF RESERVED BYTES IN BUFFERS
000038                             1128+DCBRESB1 DS    FL1 -          NUMBER OF BYTES RESERVED IN THE BUFFER
                                   1129+*                             RECEIVING FIRST INCOMING SEGMENT OF A
                                   1130+*                             MESSAGE
000039                             1131+DCBRESB2 DS    FL1 -          NUMBER OF BYTES RESERVED IN ALL BUFFERS
                                   1132+*                             EXCEPT THE ONE CONTAINING FIRST SEGMENT
                                   1133+*                             OF A MESSAGE
00003A                             1134+         DS    XL2 -          RESERVED
                                                                                                               PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1136+*        THE FOLLOWING 4 BYTES MAY BE REPEATED 'N' TIMES
00003C                             1137+DCBINVLI DS    0A -           ADDRESS OF INVITATION LIST
00003C                             1138+DCBINVCI DS    BL1 -          TYPE OF COMMUNICATION INTERFACE FOR 2701
                                   1139+*                             DATA ADAPTER UNIT
000020                             1140+DCBINVB1 EQU   DCBBIT2 -      IF ZERO, UNIT (A,)
                                   1141+*                             IF ONE, UNIT (B,)
000008                             1142+DCBINVB2 EQU   DCBBIT4 -      IF ZERO, UNIT (,A)
                                   1143+*                             IF ONE, UNIT (,B)
00003D                             1144+DCBINVLA DS    AL3 -          ADDRESS OF INVITATION LIST

                                   1146          END  ,
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000088
   01       01      0C     000180
   01       01      0C     0001A4
   01       01      0C     0001B4
   01       01      0C     0001BC
   01       01      0C     0001C0
   01       01      0C     0001C4
   01       01      08     000295
   01       01      0C     00029C
   01       01      0C     0002A0
   01       01      08     0002A5
   01       01      08     0002AD
   01       01      0C     0002C4
   01       01      0C     0002C8
   01       01      08     0002CD
   01       01      0C     0002F4
   01       01      08     000309
   01       01      0C     00030C
   01       01      0C     000310
   01       01      08     000315
   01       01      08     000321
   01       01      08     00032D
   01       01      0C     000334
   01       01      08     000339
   01       01      0C     000340
   01       01      08     000345
   01       01      0C     00034C
   01       01      08     000351
   01       01      08     00035D
   01       01      08     000369
   01       01      08     000375
   01       01      08     000381
   01       01      08     000461
   01       01      08     0004E1
   01       01      0C     000520
   01       01      08     000545
   01       01      08     00059D
   01       01      08     0005A5
   01       01      08     0005C5
   01       01      08     0005C9
   01       01      08     0005CD
   01       01      08     000605
   01       01      08     000669
   01       02      1C     000200
   01       03      1C     000210
   01       04      18     000219
   01       05      1C     00021C
   01       06      1C     000220
   01       07      1C     000228
   01       08      1C     000290
   01       09      1C     0002BC
   01       0A      1C     0002FC
   01       0B      1C     00031C
   01       0C      1C     000328
   01       0D      1C     000358
                                                 RELOCATION DICTIONARY                                          PAGE   2


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       0E      1C     000364
   01       0F      1C     000370
   01       10      1C     00037C
   01       11      1C     000388
   01       12      1C     000398
   01       13      0C     0001B0
   01       14      0C     0001FC
   01       16      0C     0002EC
   01       16      08     000555
   01       16      08     00056D
   01       16      08     000585
   01       19      0C     000150
   01       1D      1C     0006B8
   01       1D      1C     000780
   01       24      1C     0006B0
   01       24      1C     000778
   01       26      18     0005A9
   01       27      08     0002E1
   01       2E      18     000609
   01       2F      18     00060D
   01       37      0C     0006C4
   01       37      0C     0006D0
   01       37      0C     0006DC
   01       37      0C     0006E8
   01       37      0C     0006F4
   01       37      0C     000700
   01       37      0C     00070C
   01       37      0C     000718
   01       37      0C     000724
   01       37      0C     000730
   01       37      0C     00073C
   01       37      0C     000748
   01       37      0C     000750
   01       37      0C     00078C
   01       37      0C     000798
   01       37      0C     0007A4
   01       37      0C     0007AC
   13       01      08     00080F
   13       01      08     000817
   13       01      08     00081F
   13       13      08     0007E1
   14       14      0C     000828
   14       15      0C     00082C
   16       01      08     000869
   16       01      08     000891
   16       01      08     0008B9
   16       16      08     00085D
   16       16      08     000885
   16       16      08     0008AD
   16       16      08     0008F5
   16       16      08     000901
   16       16      08     000905
   16       17      18     000851
   16       17      18     000855
   16       17      18     000879
                                                 RELOCATION DICTIONARY                                          PAGE   3


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   16       17      18     00087D
   16       17      18     0008A1
   16       17      18     0008A5
   16       17      1C     000920
   16       18      0C     000858
   16       18      0C     000880
   16       18      0C     0008A8
   16       1A      1C     0008C8
   16       1B      1C     0008CC
   16       1C      1C     0008D0
   16       1D      1C     0008D4
   16       1E      1C     0008D8
   16       1F      1C     0008DC
   16       20      1C     0008EC
   16       21      1C     0008F0
   16       22      18     0008FD
   16       23      1C     00090C
   16       24      1C     00091C
   16       25      1C     000924
   18       01      0C     000928
   18       01      0C     00092C
   18       01      0C     00097C
   18       01      0C     000980
   18       01      0C     0009D0
   18       01      0C     0009D4
   27       1E      1C     000A60
   27       20      1C     000A6C
   27       28      1C     000A30
   27       29      1C     000A34
   27       2A      1C     000A38
   27       2B      1C     000A3C
   27       2C      1C     000A40
   27       2D      1C     000A44
   27       30      1C     000A48
   27       31      1C     000A4C
   27       32      1C     000A50
   27       33      1C     000A54
   27       34      1C     000A58
   27       35      1C     000A5C
   27       36      1C     000A64
   27       36      1C     000A68
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

AA       00001 0005D4 00485   0476
AB       00001 0005E4 00494   0478
AC       00001 0005F4 00503   0480
DCBACBM  00001 000008 00921
DCBBFIN  00001 0000F0 00885
DCBBFOUT 00001 00000F 00889
DCBBIT0  00001 000080 00870   0885  0898  0908  0918  0969  0972  0992  0997  1016  1053  1106
DCBBIT1  00001 000040 00871   0885  0899  0909  0919  0974  0992  0995  0997  1019  1020  1021  1056  1057  1106
DCBBIT2  00001 000020 00872   0885  0900  0910  0920  0976  0999  1001  1024  1025  1026  1060  1061  1108  1140
DCBBIT3  00001 000010 00873   0885  0901  0911  0979  0999  1003  1028  1029  1030  1064  1065  1108
DCBBIT4  00001 000008 00874   0889  0902  0912  0921  0980  1005  1011  1012  1033  1034  1068  1069  1071  1072  1110
                              1142
DCBBIT5  00001 000004 00875   0889  0903  0913  0922  0954  0982  1005  1008  1009  1012  1037  1039  1040  1041  1075
                              1076  1077  1078  1110
DCBBIT6  00001 000002 00876   0889  0904  0914  0955  0983  1044  1045  1046  1047  1081  1082  1083  1084
DCBBIT7  00001 000001 00877   0889  0905  0915  0956  0987  1049  1050  1087  1088  1090  1091
DCBBUFIN 00001 000014 00883
DCBBUFMA 00001 00001C 00923
DCBBUFOU 00001 000014 00884
DCBBUFRQ 00001 000014 00931
DCBBUFSI 00002 000036 01125
DCBCLPS  00004 000014 00929
DCBCLPSA 00003 000015 00933
DCBCPE   00001 000002 00955
DCBCPR   00001 000004 00954
DCBCPRI  00001 000020 00953
DCBCPS   00001 000001 00956
DCBDDNAM 00008 000028 00966   0231
DCBDEBA  00003 00002D 01112
DCBDEBAD 00004 00002C 01104
DCBDEVTP 00001 00001C 00942
DCBDSGCQ 00001 000008 00912
DCBDSGCX 00001 000010 00911
DCBDSGDA 00001 000020 00910
DCBDSGGS 00001 000080 00918
DCBDSGIS 00001 000080 00908
DCBDSGMQ 00001 000004 00913
DCBDSGPO 00001 000002 00914
DCBDSGPS 00001 000040 00909
DCBDSGTQ 00001 000020 00920
DCBDSGTR 00001 000004 00922
DCBDSGTX 00001 000040 00919
DCBDSGU  00001 000001 00915
DCBDSORG 00002 00001A 00906
DCBDSRG1 00001 00001A 00907
DCBDSRG2 00001 00001B 00917
DCBEIOBX 00001 000024 00959
DCBEX    00001 000040 00995
DCBEXLSA 00003 000025 00960
DCBEXLST 00004 000024 00958
DCBIBEC  00001 0000C0 00992
DCBIBIOE 00001 00000C 01005
DCBIBPCT 00001 000030 00999
DCBIFC12 00001 000010 01003
DCBIFC9  00001 000020 01001
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCBIFEC  00001 0000C0 01106
DCBIFER  00001 000000 01007
DCBIFIOE 00001 00000C 01110
DCBIFLG  00001 000031 00989
DCBIFLGS 00001 00002C 01105
DCBIFNEP 00001 000000 00994
DCBIFNE1 00001 000004 01008
DCBIFNE2 00001 000008 01011
DCBIFNE3 00001 00000C 01012
DCBIFPCT 00001 000030 01108
DCBIFPEC 00001 0000C0 00997
DCBIFTIM 00001 000004 01009
DCBILCT  00001 000034 01122
DCBINTVL 00001 000018 00934
DCBINVB1 00001 000020 01140
DCBINVB2 00001 000008 01142
DCBINVCI 00001 00003C 01138
DCBINVLA 00003 00003D 01144
DCBINVLI 00004 00003C 01137
DCBIOBAA 00003 00001D 00943
DCBIOBAD 00004 00001C 00941
DCBLAST  00004 0004E0 00249   0222
DCBLCBA  00003 000021 00957
DCBLCBAD 00004 000020 00951
DCBL1    00004 0004E0 00247   0220  0221
DCBL2    00001 0004E4 00252   0221
DCBMACF1 00001 00002A 01102
DCBMACF2 00001 00002B 01103
DCBMACR  00002 000032 01014
DCBMACRF 00002 00002A 01101
DCBMACR1 00001 000032 01015
DCBMACR2 00001 000033 01052
DCBMH    00003 000015 00893
DCBMHA   00004 000014 00882
DCBMRABC 00001 000004 01037
DCBMRAPG 00001 000020 01024
DCBMRAWR 00001 000002 01084
DCBMRCHK 00001 000002 01046
DCBMRCI  00001 000010 01028
DCBMRCK  00001 000001 01050
DCBMRCRL 00001 000002 01045
DCBMRCTL 00001 000002 01082
DCBMRDBF 00001 000004 01041
DCBMRDMD 00001 000001 01090
DCBMRDMG 00001 000001 01049
DCBMRECP 00001 000080 01016
DCBMRFE  00001 000040 01019
DCBMRGET 00001 000040 01020
DCBMRGTQ 00001 000040 01057
DCBMRIDW 00001 000008 01072
DCBMRLCG 00001 000008 01033
DCBMRLCP 00001 000008 01071
DCBMRLDM 00001 000008 01069
DCBMRMVG 00001 000010 01029
DCBMRMVP 00001 000010 01064
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

DCBMRPTQ 00001 000040 01021
DCBMRPT1 00001 000004 01039
DCBMRPT2 00001 000004 01076
DCBMRPUT 00001 000040 01056
DCBMRRD  00001 000020 01025
DCBMRRDI 00001 000008 01034
DCBMRRDK 00001 000010 01030
DCBMRRDQ 00001 000020 01061
DCBMRRDX 00001 000002 01047
DCBMRSBG 00001 000004 01040
DCBMRSTI 00001 000001 01091
DCBMRSTK 00001 000002 01083
DCBMRSTL 00001 000080 01053
DCBMRSWA 00001 000001 01088
DCBMRTMD 00001 000004 01077
DCBMRUIP 00001 000004 01078
DCBMRWRK 00001 000010 01065
DCBMRWRQ 00001 000020 01026
DCBMRWRT 00001 000020 01060
DCBMR1WD 00001 000001 01087
DCBMR3WD 00001 000002 01081
DCBMR4WD 00001 000004 01075
DCBMR5WD 00001 000008 01068
DCBOFEOV 00001 000020 00976
DCBOFIOD 00001 000080 00972
DCBOFIOF 00001 000001 00987
DCBOFLGS 00001 000030 00968   0229
DCBOFLRB 00001 000040 00974
DCBOFLWR 00001 000080 00969
DCBOFOPN 00001 000010 00979   0229
DCBOFPPC 00001 000008 00980
DCBOFTM  00001 000004 00982
DCBOFUEX 00001 000002 00983
DCBOPTCD 00001 000034 01121
DCBPCI   00001 000019 00897
DCBPCIA1 00001 000020 00900
DCBPCIA2 00001 000010 00901
DCBPCIN1 00001 000008 00902
DCBPCIN2 00001 000004 00903
DCBPCIR1 00001 000002 00904
DCBPCIR2 00001 000001 00905
DCBPCIX1 00001 000080 00898
DCBPCIX2 00001 000040 00899
DCBPGFXA 00001 000002 01044
DCBRESB1 00001 000038 01128
DCBRESB2 00001 000039 01131
DCBRESER 00004 000038 01127
DCBSCTAB 00004 000030 01118
DCBSCTAD 00003 000031 01120
DCBTIOT  00002 000028 01098
DCBTRANA 00004 000020 00946
DCBTRANS 00003 000021 00948
DCBUNTCT 00001 000035 01123
DCB1     00004 000588 00445   0251  0291  0343  0370  0394
IEDABEND 00002 000272 00094
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEDADBUF 00004 0002D8 00124   0541
IEDAL    00004 00021C 00061
IEDAS    00004 0001D0 00046
IEDAX    00004 000228 00064
IEDAYBYE 00004 00054A 00293   0219  0255
IEDAYDQB 00001 0008F4 00428   0428
IEDAYTSQ 00001 0008C0 00423   0130
IEDA3    00004 000224 00063
IEDA3TL  00004 00027C 00098
IEDBFRTB 00001 000320 00142   0347  0374  0398
IEDBIT1  00001 000422 00172   0284
IEDBSX   00001 0002C0 00119
IEDBZ    00004 000244 00082
IEDCKELE 00001 0002A4 00106   0104
IEDCKGET 00004 00018C 00029
IEDCKPTB 00001 00032C 00143   0104  0106  0108  0122  0143
IEDCLOSB 00001 00035C 00148   0041  0041
IEDCLRHI 00004 0002D4 00123
IEDCMBSS 00004 000264 00090
IEDCPBCB 00001 000380 00152
IEDCPRMB 00001 000368 00149   0104
IEDCRSRF 00004 000208 00055
IEDCSCH  00004 000258 00087
IEDDELEM 00004 0002C4 00121   0026  0121  0141  0142  0143  0144  0145  0147  0151
IEDDELYB 00004 0002F4 00133   0137  0137  0140
IEDDISP  00001 000230 00066
IEDDISTR 00004 0001AC 00036
IEDDLQX  00002 00041E 00170
IEDDOUBL 00004 000160 00021
IEDDUMBR 00002 000420 00171   0040
IEDEA    00004 00022C 00065   0283
IEDE8    00004 000214 00058
IEDGD    00004 000220 00062
IEDHB    00004 00024C 00084
IEDINOUT 00002 000306 00136   0347  0374  0398
IEDKA02  00004 000200 00053
IEDMSGS  00003 0002E1 00127   0565
IEDOA    00008 000428 00180   0214
IEDOCGET 00004 000190 00030
IEDOCQPT 00004 0002F0 00132
IEDOLTQB 00001 000344 00145   0145
IEDOPCOB 00001 000338 00144   0144
IEDOPETR 00001 0002BC 00117
IEDOPTPT 00004 0001FC 00052   0326
IEDOSECB 00004 0001F4 00050
IEDPARM  00004 0001A0 00035
IEDPCBPT 00004 0001F8 00051
IEDQAVT  00008 000008 00011   0012  0014  0035  0456
IEDQMISC 00001 000A70 00653   0656  0663  0666  0673  0676  0683  0686  0693  0696  0703  0706  0713  0716  0723  0726
                              0733  0736  0743  0746  0753  0756  0763  0766  0773  0776  0819  0822  0829  0832  0839
                              0842  0849  0852
IEDQMSGS 00001 000A30 00515   0127  0534  0547  0571  0590  0600  0611  0630  0639  0647
IEDQOPC  00001 000838 00333   0331
IEDQOPT  00001 000828 00329   0327  0412
IEDQOPTN 00002 000830 00413   0330
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

IEDQQCBC 00001 000848 00339   0366  0390  0421
IEDQRDY  00001 0004F8 00260   0257
IEDQRDYA 00004 0004F0 00258   0038
IEDQSCBC 00001 000928 00346   0341  0368  0373  0392  0397
IEDQSTCS 00001 000A28 00361   0019
IEDQTNT  00001 0007B8 00299   0037  0350  0377  0401  0417  0484  0493  0502
IEDQ0001 00002 000444 00199   0008
IEDQ0097 00001 000672 00580   0582  0583
IEDRACE  00004 00017C 00025
IEDREADD 00001 000184 00028
IEDREADN 00001 000008 00286   0284
IEDREADY 00004 000180 00026   0121
IEDRNMPT 00004 0001B0 00037
IEDR0090 00002 000616 00533
IEDR0092 00002 000672 00587   0543
IEDR0100 00002 00069E 00622
IEDR0108 00001 000754 00780
IEDR1    00004 000248 00083
IEDSAVE1 00004 000008 00013   0203  0204  0206
IEDSAVE2 00004 000050 00014   0282  0526
IEDSAVE3 00004 000098 00015
IEDSAVE4 00004 0000E0 00016
IEDSPLPT 00004 0001C8 00042   0201
IEDSUPPT 00004 0002E8 00129
IEDSVC13 00002 000430 00181   0096
IEDS0090 00002 000756 00784   0529
IEDS0166 00002 000766 00797
IEDS0169 00001 0007B0 00856
IEDTSIAB 00001 000904 00431   0430  0431
IEDTSOPT 00004 0002EC 00130   0261
IEDUI    00004 000210 00057   0539  0555  0560  0578  0596  0606  0617  0624  0792  0799
IED0G    00001 000848 00340   0342  0356
IED045   00004 00043C 00189   0182
IED1A    00004 000554 00355   0352
IED1G    00001 000870 00367   0369  0383
IED2A    00004 00056C 00382   0379
IED2G    00001 000898 00391   0393  0407
IED3A    00004 000584 00406   0403
IHADCB   00001 000000 00868   0227  0881  0928  0945  0950  0965  1097  1117
IHB0025A 00002 0004CE 00240   0234
IHB0028  00001 000504 00266   0269  0270
OPENDONE 00002 0004E4 00253   0246
OPENLOOP 00002 00047E 00224   0244
OPENNEXT 00004 0004D6 00244   0242
OPENWTO  00004 000494 00234   0231
OPNAME   00001 000001 00334
OPNLTST  00002 0004D4 00243   0230
TCAM     00001 000000 00001   0010  0196  0323  0336  0354  0363  0381  0405  0414  0419  0438  0522  0536  0550  0573
                              0592  0602  0613  0632  0641  0649  0655  0665  0675  0685  0695  0705  0715  0725  0735
                              0745  0755  0765  0775  0821  0831  0841  0851
TLAST    00005 00081A 00402   0312  0502
TSOMH    00001 000600 00514   0451  0577  0581
T1001    00005 00080A 00351   0484
T1002    00005 000812 00378   0493
                                                      DIAGNOSTICS                                             PAGE     1


                                                                                                                 8/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =   100      SOURCE RECORDS (SYSLIB) = 10779
*OPTIONS IN EFFECT*   LIST, DECK, LOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 1618 PRINTED LINES


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G23TCAM2.SYSUT1       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G23TCAM2.SYSUT2       DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G23TCAM2.SYSUT3       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.SV000.G23TCAM2.R0000444     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G23TCAM2.LOADSET      PASSED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G23TCAM2.S0000445     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G23TCAM2.S0000445     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /ASM     / START 78240.1952
IEF374I STEP /ASM     / STOP  78240.1952 CPU   0MIN 03.59SEC MAIN 512K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:52:00.17   ALLOC START    19:52:00.18   MAIN REGION ----- 512K                          *
*   STEP NAME ASM        STEP END TIME  19:52:04.09   PGM START TIME 19:52:00.36   MAIN STORAGE ---- 512K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:03.92   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEUASM     STEP CPU TIME  00:00:03.59   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0150 ---------- 361       0158 ---------- 121       0353 ---------- 252       0159 --------- 1108       0353 --------- 1619    *
*   0130 ---------- 158       0130 ---------- 102                                                                                  *
************************************************************************************************************************************

//LKED   EXEC  PGM=IEWL,PARM=(XREF,LIST,LET,CALL),REGION=512K,
//             COND=(8,LT,ASM)
//SYSLIN   DD DSNAME=&LOADSET,DISP=(OLD,DELETE)
//SYSLMOD  DD DISP=SHR,DSN=SYS1.LINKLIB(IEDQTCAM),
//            UNIT=SYSDA,VOL=SER=ASPRES
//SYSUT1   DD DSNAME=&SYSUT1,UNIT=(SYSDA),
//            SPACE=(1024,(50,20))
//SYSPRINT DD SYSOUT=A
//SYSLIB   DD DISP=SHR,DSN=SYS1.TELCMLIB,UNIT=SYSDA,VOL=SER=ASPRES
//
IEF236I ALLOC. FOR G23TCAM2 LKED
IEF237I 130   ALLOCATED TO SYSLIN
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSLIB


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED XREF,LIST,LET,CALL
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
****IEDQTCAM  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  TCAM          00     7B2
                                        IEDQAVT        8
  IEDQTNT      7B8      6B
  IEDQOPT      828       A
  IEDQOPC      838       B
  IEDQQCBC     848      E0
  IEDQSCBC     928      FC
  IEDQSTCS     A28       4
  IEDQMSGS     A30      40
  IEDQMISC     A70     1BF
  IEDQAL  *    C30      C4
  IEDQAX  *    CF8     222
  IEDQGA  *    F20     761
                                        IEDQGB      11BE    IEDQGD      12DE
  IEDQHG  *   1688     304
                                        IEDQHG01    18CC    IEDQHG03    18E0    IEDQHG02    1946
  IEDQHK  *   1990     4BB
  IEDQUI  *   1E50      5E
  IEDAYD  *   1EB0      80
  IEDAYE  *   1F30    124A
  IEDAYH  *   3180     390
  IEDAYI  *   3510     7DC
  IEDAYO  *   3CF0     A16
                                        IEDAYO02    44B0
  IEDAYT  *   4708     189
  FEVECTOR*   4898      30
                                        IEDQFE      48C0
  IEDQKA01*   48C8    1275
                                        IEDQKA      48C8    IEDQKA02    49FC
  IEDQNA  *   5B40      5E
  IEDAYA  *   5BA0     26A
  IEDAYAB *   5E10      2C
  IEDAYB  *   5E40    1434
  IEDAYF  *   7278     1FB
  IEDAYM  *   7478     A47
  IEDAYS  *   7EC0     7B4
  IEDAYY  *   8678      76
  IEDAYZ  *   86F0     B68
  IEDQBD  *   9258     5D3
                                        IEDQBD01    9264    IEDQBD02    9544
  IEDQ25  *   9830       8
  IEDAYR  *   9838     722
  IEDQAB  *   9F60      48

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEDQAE  *   9FA8      B4
  IEDQAI  *   A060     2A0
  IEDQAQ  *   A300      D0
  IEDQAV  *   A3D0      BA
  IEDQAW  *   A490     13E
  IEDQA1  *   A5D0      E8
  IEDQA4  *   A6B8     2B4
  IEDQBT  *   A970     A20
  IEDAYC  *   B390     5A8
  IEDAYL  *   B938     554
  IEDAYX  *   BE90      3C
  IEDQAU  *   BED0     2C5



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      200            IEDQKA02        IEDQKA01                     210            IEDQUI          IEDQUI
      219            IEDQHG02        IEDQHG                       21C            IEDQAL          IEDQAL
      220            IEDQGD          IEDQGA                       228            IEDQAX          IEDQAX
      290            IEDQHK          IEDQHK                       2BC            IEDQHG01        IEDQHG
      2FC            IEDQHG          IEDQHG                       31C            IEDQGA          IEDQGA
      328            IEDQGB          IEDQGA                       358            IEDQKA          IEDQKA01
      364            IEDQNA          IEDQNA                       370            IEDQHG03        IEDQHG
      37C            IEDAYO          IEDAYO                       388            IEDAYO02        IEDAYO
      398            IEDQFE          FEVECTOR                     1B0            IEDQTNT         IEDQTNT
      1FC            IEDQOPT         IEDQOPT                      2EC            IEDQQCBC        IEDQQCBC
      555            IEDQQCBC        IEDQQCBC                     56D            IEDQQCBC        IEDQQCBC
      585            IEDQQCBC        IEDQQCBC                     150            IEDQSTCS        IEDQSTCS
      6B8            IEDAYH          IEDAYH                       780            IEDAYH          IEDAYH
      6B0            IEDAYA          IEDAYA                       778            IEDAYA          IEDAYA
      5A9            IEDQ25          IEDQ25                       2E1            IEDQMSGS        IEDQMSGS
      609            IEDQBT          IEDQBT                       60D            IEDAYR          IEDAYR
      6C4            IEDQMISC        IEDQMISC                     6D0            IEDQMISC        IEDQMISC
      6DC            IEDQMISC        IEDQMISC                     6E8            IEDQMISC        IEDQMISC
      6F4            IEDQMISC        IEDQMISC                     700            IEDQMISC        IEDQMISC
      70C            IEDQMISC        IEDQMISC                     718            IEDQMISC        IEDQMISC
      724            IEDQMISC        IEDQMISC                     730            IEDQMISC        IEDQMISC
      73C            IEDQMISC        IEDQMISC                     748            IEDQMISC        IEDQMISC
      750            IEDQMISC        IEDQMISC                     78C            IEDQMISC        IEDQMISC
      798            IEDQMISC        IEDQMISC                     7A4            IEDQMISC        IEDQMISC
      7AC            IEDQMISC        IEDQMISC                     80F            TCAM            TCAM
      817            TCAM            TCAM                         81F            TCAM            TCAM
      82C            IEDQOPC         IEDQOPC                      869            TCAM            TCAM
      891            TCAM            TCAM                         8B9            TCAM            TCAM
      851            IEDAYD          IEDAYD                       855            IEDAYD          IEDAYD
      879            IEDAYD          IEDAYD                       87D            IEDAYD          IEDAYD
      8A1            IEDAYD          IEDAYD                       8A5            IEDAYD          IEDAYD
      920            IEDAYD          IEDAYD                       858            IEDQSCBC        IEDQSCBC
      880            IEDQSCBC        IEDQSCBC                     8A8            IEDQSCBC        IEDQSCBC
      8C8            IEDAYI          IEDAYI                       8CC            IEDAYT          IEDAYT
      8D0            IEDAYE          IEDAYE                       8D4            IEDAYH          IEDAYH

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      8D8            IEDAYS          IEDAYS                       8DC            IEDAYZ          IEDAYZ
      8EC            IEDAYM          IEDAYM                       8F0            IEDAYF          IEDAYF
      8FD            IEDAYY          IEDAYY                       90C            IEDAYAB         IEDAYAB
      91C            IEDAYA          IEDAYA                       924            IEDAYB          IEDAYB
      928            TCAM            TCAM                         92C            TCAM            TCAM
      97C            TCAM            TCAM                         980            TCAM            TCAM
      9D0            TCAM            TCAM                         9D4            TCAM            TCAM
      A60            IEDAYS          IEDAYS                       A6C            IEDAYM          IEDAYM
      A30            IEDQBD          IEDQBD                       A34            IEDQA4          IEDQA4
      A38            IEDQA1          IEDQA1                       A3C            IEDQAI          IEDQAI
      A40            IEDQAV          IEDQAV                       A44            IEDQAE          IEDQAE
      A48            IEDQAB          IEDQAB                       A4C            IEDQAW          IEDQAW
      A50            IEDQAQ          IEDQAQ                       A54            IEDAYL          IEDAYL
      A58            IEDQAU          IEDQAU                       A5C            IEDAYC          IEDAYC
      A64            IEDAYX          IEDAYX                       A68            IEDAYX          IEDAYX
     1974            IEDQAVT         TCAM
 ENTRY ADDRESS       00
 TOTAL LENGTH      C198




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.RV000.G23TCAM2.LOADSET      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G23TCAM2.SYSUT1       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.SV000.G23TCAM2.R0000446     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.TELCMLIB                                KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF373I STEP /LKED    / START 78240.1952
IEF374I STEP /LKED    / STOP  78240.1952 CPU   0MIN 00.34SEC MAIN 132K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:52:04.12   ALLOC START    19:52:04.14   MAIN REGION ----- 512K                          *
*   STEP NAME LKED       STEP END TIME  19:52:04.64   PGM START TIME 19:52:04.23   MAIN STORAGE ---- 132K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.52   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.34   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0130 ---------- 159       0150 ----------- 68       0158 ----------- 22       0353 ---------- 125       0150 ---------- 330    *
************************************************************************************************************************************

IEF375I  JOB /G23TCAM2/ START 78240.1952
IEF376I  JOB /G23TCAM2/ STOP  78240.1952 CPU   0MIN 03.93SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G23TCAM2   JOB READ TIME 19:52:00.04   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:03.93   *
*   JOB CLASS A          JOB INIT TIME 19:52:00.17   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:04.51   *
*   ACCOUNT   1          JOB END TIME  19:52:04.68   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG    2222222        44     CCCCCCC       A      TTTTTTTT   N      NN  WW     WW                 A
            GGGGGGGGG  222222222      444    CCCCCCCCC     AAA     TTTTTTTT   NN     NN  WW     WW                AAA
            GG     GG  22     22     4444    CC     CC    AA AA       TT      NNN    NN  WW     WW               AA AA
            GG               22     44 44    CC          AA   AA      TT      NNNN   NN  WW     WW              AA   AA
            GG              22     44  44    CC         AA     AA     TT      NN NN  NN  WW     WW             AA     AA
            GG   GGGG      22     44   44    CC         AA     AA     TT      NN  NN NN  WW     WW             AA     AA
            GG   GGGG     22      444444444  CC         AAAAAAAAA     TT      NN   NNNN  WW  W  WW             AAAAAAAAA
            GG     GG    22       444444444  CC     CC  AAAAAAAAA     TT      NN    NNN  WW WWW WW             AAAAAAAAA
            GGGGGGGGG   22222222       44    CCCCCCCCC  AA     AA     TT      NN     NN   WWW WWW              AA     AA
             GGGGGGG   222222222       44     CCCCCCC   AA     AA     TT      NN      N    W   W               AA     AA

***********A  START   G24CATNW   SYS SYSA   WTR 00E   07:52:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   G24CATNW   START  A***********
***********A  START   G24CATNW   SYS SYSA   WTR 00E   07:52:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   G24CATNW   START  A***********
***********A  START   G24CATNW   SYS SYSA   WTR 00E   07:52:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   G24CATNW   START  A***********
***********A  START   G24CATNW   SYS SYSA   WTR 00E   07:52:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   G24CATNW   START  A***********
***********A  START   G24CATNW   SYS SYSA   WTR 00E   07:52:14 PM  28 AUG 1978   WTR 00E   SYS SYSA   G24CATNW   START  A***********


//G24CATNW JOB  1,'G24CATNEW',CLASS=A,MSGLEVEL=(1,1)
***********************************************************************
***                                                                 ***
***    Job:      G24CATNEW                                          ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Catalog target and DLIB data sets in new           ***
***              system's catalog.                                  ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
//CATLG  EXEC PGM=IEHPROGM
//ASPRES DD UNIT=3330,VOLUME=SER=ASPRES,DISP=OLD
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
//
IEF236I ALLOC. FOR G24CATNW CATLG
IEF237I 150   ALLOCATED TO ASPRES
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSIN


SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0001



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.ALGLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.BRODCAST
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.CMDLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.COBLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.DCMLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.DUMP
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.FORTLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.HELP
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.IMAGELIB
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0002






 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.LINKLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.MACLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.MANX
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.MANY
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.NUCLEUS
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.PARMLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.PL1LIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.PROCLIB
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0003



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.SORTLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.SVCLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.SWAP0
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.SYSJOBQE
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.TELCMLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPRES,DSNAME=SYS1.UADS
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.ACDS
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.AL531
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.AS037
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0004






 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.CB545
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.CI505
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.CI535
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.CI555
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.CO503
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.CQ513
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.CQ519
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.CQ548
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0005



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DCMDLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DCOBLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DFORTLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DHELP
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DM508
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DM509
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DMACLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DN527
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DN533
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0006






 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DN539
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DN554
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DN554A
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DPARMLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DPL1LIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DPROCLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DSORTLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.DUADS
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0007



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.ED521
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.FO500
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.FO520
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.FO550
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.GENLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.IO523
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.IO526
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.LD547
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.LM501
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0008






 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.LM512
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.LM532
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.LM537
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.LM542
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.LM546
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.MODGEN
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.MODGEN2
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.NL511
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0009



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.PL552
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.RC536
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.RC541
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.RC543
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.RC551
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.RG038
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.SAMPLIB
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.SM023
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.TCAMMAC
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0010






 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.TSOGEN
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.TSOMAC
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.UT506
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPDLB,DSNAME=SYS1.ASP
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPQVS,DSNAME=ASP.CHK1
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPQVS,DSNAME=ASP.QUE1
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPQVS,DSNAME=ASP.DRDS
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=SYS1.OBJPDS
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0011



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=SYS1.SYSUT1
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=SYS1.SYSUT2
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=SYS1.SYSUT3
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=SYS1.SYSUT4
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=ASP.ASPPGMS
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=ASP.MAC320
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=ASP.MAINTASK
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=ASP.OBJ320
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=ASP.PSGLIB
NORMAL END OF TASK RETURNED FROM CATLG
SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0012






 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=ASP.SOURCE
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=ASP.VERSON32
NORMAL END OF TASK RETURNED FROM CATLG



 CATLG CVOL=3330=ASPRES,VOL=3330=ASPSUP,DSNAME=SYS2.LINKLIB
NORMAL END OF TASK RETURNED FROM CATLG



UTILITY END


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.RV000.G24CATNW.R0000447     KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.SV000.G24CATNW.R0000448     SYSOUT
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G24CATNW.S0000449     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G24CATNW.S0000449     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /CATLG   / START 78240.1952
IEF374I STEP /CATLG   / STOP  78240.1952 CPU   0MIN 00.71SEC MAIN  30K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:52:13.13   ALLOC START    19:52:13.14   MAIN REGION ----- 256K                          *
*   STEP NAME CATLG      STEP END TIME  19:52:13.95   PGM START TIME 19:52:13.20   MAIN STORAGE ----- 30K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.82   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHPROGM   STEP CPU TIME  00:00:00.71   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0150 ------------ 0       0158 ---------- 311       0130 ----------- 98                                                        *
************************************************************************************************************************************

IEF375I  JOB /G24CATNW/ START 78240.1952
IEF376I  JOB /G24CATNW/ STOP  78240.1952 CPU   0MIN 00.71SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G24CATNW   JOB READ TIME 19:52:13.05   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.71   *
*   JOB CLASS A          JOB INIT TIME 19:52:13.13   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.84   *
*   ACCOUNT   1          JOB END TIME  19:52:13.97   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG    2222222   555555555  VV     VV   IIIIII     CCCCCCC   M       M  DDDDDDDD                  A
            GGGGGGGGG  222222222  555555555  VV     VV   IIIIII    CCCCCCCCC  MM     MM  DDDDDDDDD                AAA
            GG     GG  22     22  55         VV     VV     II      CC     CC  MMM   MMM  DD     DD               AA AA
            GG               22   55555555   VV     VV     II      CC         MMMM MMMM  DD     DD              AA   AA
            GG              22    555555555  VV     VV     II      CC         MM MMM MM  DD     DD             AA     AA
            GG   GGGG      22            55  VV     VV     II      CC         MM  M  MM  DD     DD             AA     AA
            GG   GGGG     22             55   VV   VV      II      CC         MM     MM  DD     DD             AAAAAAAAA
            GG     GG    22       55     55    VV VV       II      CC     CC  MM     MM  DD     DD             AAAAAAAAA
            GGGGGGGGG   22222222  555555555     VVV      IIIIII    CCCCCCCCC  MM     MM  DDDDDDDDD             AA     AA
             GGGGGGG   222222222   5555555       V       IIIIII     CCCCCCC   MM     MM  DDDDDDDD              AA     AA

***********A  START   G25VICMD   SYS SYSA   WTR 00E   07:52:26 PM  28 AUG 1978   WTR 00E   SYS SYSA   G25VICMD   START  A***********
***********A  START   G25VICMD   SYS SYSA   WTR 00E   07:52:26 PM  28 AUG 1978   WTR 00E   SYS SYSA   G25VICMD   START  A***********
***********A  START   G25VICMD   SYS SYSA   WTR 00E   07:52:26 PM  28 AUG 1978   WTR 00E   SYS SYSA   G25VICMD   START  A***********
***********A  START   G25VICMD   SYS SYSA   WTR 00E   07:52:26 PM  28 AUG 1978   WTR 00E   SYS SYSA   G25VICMD   START  A***********
***********A  START   G25VICMD   SYS SYSA   WTR 00E   07:52:26 PM  28 AUG 1978   WTR 00E   SYS SYSA   G25VICMD   START  A***********


//G25VICMD JOB 1,G25SYSVICMD,MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      G25SYSVICMD                                        ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Install COMMNDxx processor on new system.          ***
***    Update:   2006/08/25                                         ***
***                                                                 ***
***********************************************************************
***
***MAIN LINES=100
//ASM    EXEC PGM=IFOX00,
//            PARM='DECK,LIST',REGION=768K
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB,DCB=BLKSIZE=6160,
//            UNIT=SYSDA,VOL=SER=ASPRES
//         DD DISP=SHR,DSN=SYS1.MODGEN,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSUT2   DD DSN=&&SYSUT2,UNIT=SYSDA,SPACE=(1700,(300,50))
//SYSUT3   DD DSN=&&SYSUT3,UNIT=SYSDA,SPACE=(1700,(300,50))
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=1089
//SYSLIN   DD DUMMY
//SYSGO    DD DUMMY
//SYSPUNCH DD DSN=&&OBJSET,UNIT=SYSDA,SPACE=(80,(200,50)),
//            DISP=(MOD,PASS)
//SYSIN    DD *
***
IEF236I ALLOC. FOR G25VICMD ASM
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSUT2
IEF237I 159   ALLOCATED TO SYSUT3
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                               EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 19.52 08/28/78

SYSVICMD  SD  0001 000000 0005DB
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                      2 ***********************************************************************
                                      3 *                                                                     *
                                      4 *                                                                     *
                                      5 * Module name          =  SYSIVCMD                                    *
                                      6 *                                                                     *
                                      7 *                                                                     *
                                      8 * Descriptive name     =  COMMNDxx PARMLIB processor.                 *
                                      9 *                                                                     *
                                     10 *                                                                     *
                                     11 * Function             =  To read COMMNDxx member of SYS1.PARMLIB,    *
                                     12 *                         extract and issue commands during           *
                                     13 *                         master scheduler initialization.            *
                                     14 *                                                                     *
                                     15 *                                                                     *
                                     16 * Notes                =  See below.                                  *
                                     17 *                                                                     *
                                     18 *   Dependencies       =  OS/360 system initialization process.       *
                                     19 *                                                                     *
                                     20 *   Registers          =  Not documented.                             *
                                     21 *                                                                     *
                                     22 *   Patch space        =  None.                                       *
                                     23 *                                                                     *
                                     24 *                                                                     *
                                     25 * Module type          =  CSECT                                       *
                                     26 *                                                                     *
                                     27 *   Processor          =  OS System Assembler                         *
                                     28 *                                                                     *
                                     29 *   Module size        =  See assembly listing.                       *
                                     30 *                                                                     *
                                     31 *   Attributes         =                                              *
                                     32 *     Location         =  Linklist data set                           *
                                     33 *     State            =  Supervisor                                  *
                                     34 *     Key              =  Zero                                        *
                                     35 *     Mode             =  Task                                        *
                                     36 *     Serialization    =  None                                        *
                                     37 *     Type             =  Not reentrant                               *
                                     38 *                                                                     *
                                     39 *                                                                     *
                                     40 ***********************************************************************
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                     42 ******************************************************************
                                     43 *                                                                *
                                     44 *        Begin CSECT and define register equates.                *
                                     45 *                                                                *
                                     46 ******************************************************************

000000                               48 SYSVICMD CSECT ,
                            00000    49 R0       EQU    0
                            00001    50 R1       EQU    1
                            00002    51 R2       EQU    2
                            00003    52 R3       EQU    3
                            00004    53 R4       EQU    4
                            00005    54 R5       EQU    5
                            00006    55 R6       EQU    6
                            00007    56 R7       EQU    7
                            00008    57 R8       EQU    8
                            00009    58 R9       EQU    9
                            0000A    59 R10      EQU   10
                            0000B    60 R11      EQU   11
                            0000C    61 R12      EQU   12
                            0000D    62 R13      EQU   13
                            0000E    63 R14      EQU   14
                            0000F    64 R15      EQU   15
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                     66 ******************************************************************
                                     67 *                                                                *
                                     68 *        INIT:                                                   *
                                     69 *                                                                *
                                     70 *        Program initialization.                                 *
                                     71 *                                                                *
                                     72 *        R7  = Pointer to parm list (set from R1 at entry).      *
                                     73 *        R12 = Program base register.                            *
                                     74 *        R13 = Program save area.                                *
                                     75 *                                                                *
                                     76 *        Workregs:  R15.                                         *
                                     77 *                                                                *
                                     78 ******************************************************************

                                     80 **       PRINT NOGEN
                                     81          SAVE  (14,12),,           Save                                +
                                                       SYSVICMD-$D00        caller's registers
000000 47F0 F012      00012          82+         B     18(0,15)                          BRANCH AROUND ID       00180000
000004 0D                            83+         DC    AL1(13)                           LENGTH OF IDENTIFIER   00220000
000005 E2E8E2E5C9C3D4C4              84+         DC    CL8'SYSVICMD'                     IDENTIFIER             00380000
00000D 605BC4F0F0                    85+         DC    CL5'-$D00'                        IDENTIFIER             00300000
000012 90EC D00C      0000C          86+         STM   14,12,12(13)                      SAVE REGISTERS         01180000
000016 18CF                          87          LR    R12,R15             Load base register
                            00000    88          USING SYSVICMD,R12        Addressability for program
000018 18FD                          89          LR    R15,R13             Copy caller's save area address
00001A 41D0 C1FC      001FC          90          LA    R13,SAVEA           Point to our save area
00001E 50D0 F008      00008          91          ST    R13,8(,R15)         Chain
000022 50F0 D004      00004          92          ST    R15,4(,R13)          save areas
000026 1871                          93          LR    R7,R1               Copy address of parm list
000028 D703 C244 C244 00244 00244    94          XC    RETCODE,RETCODE     Initialize return code to zero
00002E 1788                          95          XR    R8,R8               Show no read buffer yet
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                     97 *----------------------------------------------------------------*
                                     98 *        Get COMMNDxx suffix from parm list.                     *
                                     99 *----------------------------------------------------------------*
000030 58F0 7004      00004         100          L     R15,4(,R7)          Point to suffix from parm list
000034 D201 C250 F000 00250 00000   101          MVC   COMMEMSF,0(R15)     Copy suffix to member name

                                    103 *----------------------------------------------------------------*
                                    104 *        Initialize JFCB for SYS1.PARMLIB.                       *
                                    105 *----------------------------------------------------------------*
00003A D7AF C2D0 C2D0 002D0 002D0   106          XC    JFCBAREA,JFCBAREA   Zero area for building JFCB
000040 41F0 C2D0      002D0         107          LA    R15,JFCBAREA        Point to JFCB area
                            00000   108          USING INFMJFCB,R15        Addressablity for JFCB
000044 D22B F000 C252 00000 00252   109          MVC   JFCBDSNM,KPARMLIB   Set DSN=SYS1.PARMLIB
00004A D207 F02C C530 0002C 00530   110          MVC   JFCBELNM,=CL8' '    Show no member name
000050 9608 F034      00034         111          OI    JFCBTSDM,JFCNWRIT   Don't update JFCB during open
000054 9201 F0AE      000AE         112          MVI   JFCBVLCT,1          Set volume count=1
000058 9601 F042      00042         113          OI    JFCBLTYP,JFCNL      Treat as unlabelled
00005C 9640 F057      00057         114          OI    JFCBIND2,JFCOLD     Set DISP=OLD
000060 9201 F075      00075         115          MVI   JFCBNVOL,1          Show one volume
                                    116          DROP  R15                 End JFCB addressablity

                                    118 *----------------------------------------------------------------*
                                    119 *        Get address of master scheduler's TIOT from             *
                                    120 *        our TCB.                                                *
                                    121 *----------------------------------------------------------------*
000064 58F0 0010      00010         122          L     R15,CVTPTR          Get CVT address
                            00000   123          USING CVTMAP,R15          Addressability for CVT
000068 58F0 F000      00000         124          L     R15,CVTTCBP         Point to TCB words
                                    125          DROP  R15                 End CVT addressability
00006C 58F0 F004      00004         126          L     R15,4(,R15)         Get current TCB address
                            00000   127          USING TCB,R15             Addressability for TCB
000070 58F0 F00C      0000C         128          L     R15,TCBTIO          TIOT pointer for master TCB
                                    129          DROP  R15                 End TCB addressability
                            00000   130          USING VTIOT,R15           Addressability for master TIOT

                                    132 *----------------------------------------------------------------*
                                    133 *        Save UCB address of SYS1.PROCLIB from the TIOT          *
                                    134 *        entry, and replace it with the address of the           *
                                    135 *        UCB of the device containing SYS1.PARMLIB.              *
                                    136 *----------------------------------------------------------------*
000074 D202 7009 F051 00009 00051   137          MVC   9(3,R7),VPUCBPT+1   Save PROCLIB UCB pointer
00007A D202 F051 7001 00051 00001   138          MVC   VPUCBPT+1(3),1(R7)  Set PARMLIB UCB pointer in TIOT
000080 50F0 700C      0000C         139          ST    R15,12(,R7)         Save TIOT address
                                    140          DROP  R15                 End TIOT addressability
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    142 ******************************************************************
                                    143 *                                                                *
                                    144 *        GETPARMN:                                               *
                                    145 *                                                                *
                                    146 *        Get PARMLIB volser for non-data cell device.            *
                                    147 *                                                                *
                                    148 *        R7  = Pointer to parm list.                             *
                                    149 *                                                                *
                                    150 *        Workregs:  R14, R15.                                    *
                                    151 *                                                                *
                                    152 ******************************************************************

                                    154 *----------------------------------------------------------------*
                                    155 *        Get the volume serial of the volume containing          *
                                    156 *        SYS1.PARMLIB.  This is mildly exciting in MVT           *
                                    157 *        because it might potentially be on a data cell.         *
                                    158 *----------------------------------------------------------------*
000084                              159 GETPARMN DS    0H                  Get PARMLIB UCB
000084 58F0 7000      00000         160          L     R15,0(,R7)          Pick up PARMLIB UCB address
                            00000   161          USING UCBOB,R15           Addressability for UCB base
000088 95FF F002      00002         162          CLI   UCBID,X'FF'         Is this a normal UCB?
00008C 4770 C09E      0009E         163          BNE   GETPARMD            No, it's a bizarre one

                                    165 *----------------------------------------------------------------*
                                    166 *        The PARMLIB volume is not mounted on a data cell.       *
                                    167 *        Get the volser from the usual place.                    *
                                    168 *----------------------------------------------------------------*
000090 41E0 C2D0      002D0         169          LA    R14,JFCBAREA        Point to JFCB area
                            00000   170          USING INFMJFCB,R14        Addressablity for JFCB
000094 D205 E076 F01C 00076 0001C   171          MVC   JFCBVOLS(6),SRTEVOLI   Get PARMLIB volser
00009A 47F0 C0A8      000A8         172          B     PARMOPEN            Continue
                                    173          DROP  R15                 End UCB addressability
                                    174          DROP  R14                 End JFCB addressablity
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    176 ******************************************************************
                                    177 *                                                                *
                                    178 *        GETPARMD:                                               *
                                    179 *                                                                *
                                    180 *        Get PARMLIB volser for data cell device.                *
                                    181 *                                                                *
                                    182 *        R7  = Pointer to parm list - not referenced.            *
                                    183 *                                                                *
                                    184 *        Workregs:  R14, R15.                                    *
                                    185 *                                                                *
                                    186 ******************************************************************

                                    188 *----------------------------------------------------------------*
                                    189 *        The device containing PARMLIB is a data cell.  Get      *
                                    190 *        its volser before it melts.                             *
                                    191 *----------------------------------------------------------------*
00009E                              192 GETPARMD DS    0H                  Get PARMLIB volser for 2321
00009E 41E0 C2D0      002D0         193          LA    R14,JFCBAREA        Point to JFCB area
                            00000   194          USING INFMJFCB,R14        Addressablity for JFCB
                            00038   195          USING UCBDCELL,R15        Adjust UCB addressability
0000A2 D205 E076 F004 00076 0003C   196          MVC   JFCBVOLS(6),UCBDVOLI   Get data cell PARMLIB volser
                                    197          DROP  R15                 End data cell UCB addressability
                                    198          DROP  R14                 End JFCB addressablity
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    200 ******************************************************************
                                    201 *                                                                *
                                    202 *        PARMOPEN:                                               *
                                    203 *                                                                *
                                    204 *        Open PARMLIB and ensure that it opened.                 *
                                    205 *                                                                *
                                    206 *        R7  = Pointer to parm list - not referenced.            *
                                    207 *                                                                *
                                    208 *        Workregs:  R0, R1, R15.                                 *
                                    209 *                                                                *
                                    210 ******************************************************************

0000A8                              212 PARMOPEN DS    0H                  Open PARMLIB
                                    213          OPEN  (PARMLIB,(INPUT)),  Open PARMLIB                        +
                                                       TYPE=J               using our JFCB
0000A8                              214+         CNOP  0,4                               ALIGN LIST TO FULLWORD 01740001
0000A8 4510 C0B0      000B0         215+         BAL   1,*+8                             LOAD REG1 W/LIST ADDR. 01780000
0000AC 80                           216+         DC    AL1(128)                          OPTION BYTE            01900000
0000AD 000380                       217+         DC    AL3(PARMLIB)                      DCB ADDRESS            01920000
0000B0 0A16                         218+         SVC   22                                ISSUE OPENJ SVC        04040000
0000B2 4110 C380      00380         219          LA    R1,PARMLIB          Point to PARMLIB DCB
                            00000   220          USING IHADCB,R1           Addressability for DCB
0000B6 9110 1030      00030         221          TM    DCBOFLGS,DCBOFOPN   Did it open?
0000BA 4780 C1A2      001A2         222          BZ    OPENERR             Error if not
0000BE D201 C248 103E 00248 0003E   223          MVC   BLKSIZE,DCBBLKSI    Save data set block size
                                    224          DROP  R1                  End DCB addressability
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    226 ******************************************************************
                                    227 *                                                                *
                                    228 *        PARMFIND:                                               *
                                    229 *                                                                *
                                    230 *        Issue FIND to position PARMLIB to the appropriate       *
                                    231 *        member.  Test FIND return code to ensure it was         *
                                    232 *        successful, and branch to issue appropriate error       *
                                    233 *        message if it wasn't.  Otherwise, issue message         *
                                    234 *        to document that we found it, and get storage           *
                                    235 *        for READ I/O buffer.                                    *
                                    236 *                                                                *
                                    237 *        R7  = Pointer to parm list - not referenced.            *
                                    238 *        R8  = Address of READ buffer - set in thie routine.     *
                                    239 *                                                                *
                                    240 *        Workregs:  R0, R1, R15.                                 *
                                    241 *                                                                *
                                    242 ******************************************************************

0000C4                              244 PARMFIND DS    0H                  Find PARMLIB member
                                    245          FIND  PARMLIB,COMMEM,D    Position to start of member
0000C4 4110 C380      00380         246+         LA    1,PARMLIB                         LOAD PARAMETER REG 1   00100000
0000C8 4100 C24A      0024A         247+         LA    0,COMMEM                          LOAD PARAMETER REG 0   00280000
0000CC 1311                         248+         LCR   1,1                               INDICATE TYPE D        00160000
0000CE 0A12                         249+         SVC   18                                ISSUE FIND SVC         00180000
0000D0 59F0 C538      00538         250          C     R15,=F'4'           Was member found?
0000D4 4780 C1B8      001B8         251          BE    NOTFOUND            Error if not
0000D8 12FF                         252          LTR   R15,R15             Other I/O error in FIND?
0000DA 4770 C1CE      001CE         253          BNZ   FINDERR             Go issue error message if so

                                    255 *----------------------------------------------------------------*
                                    256 *        The member was found in PARMLIB.  Say so.               *
                                    257 *----------------------------------------------------------------*
0000DE D207 C3EB C24A 003EB 0024A   258          MVC   ME252MEM,COMMEM     Set member name in message
                                    259          WTO   MF=(E,MSGE252)      Say "MEMBER FOUND"
0000E4 4110 C3D8      003D8         260+         LA    1,MSGE252                         LOAD PARAMETER REG 1   00100000
0000E8 0A23                         261+         SVC   35                                ISSUE SVC              00750021

                                    263 *----------------------------------------------------------------*
                                    264 *        Get work storage as I/O area for reading the            *
                                    265 *        PARMLIB member.  Save its address in R8.                *
                                    266 *----------------------------------------------------------------*
0000EA 4800 C248      00248         267          LH    R0,BLKSIZE          Get data set blksize
                                    268          GETMAIN R,LV=(0)          Get area for block
0000EE 4510 C0F2      000F2         269+         BAL   1,*+4                             INDICATE GETMAIN       04660000
0000F2 0A0A                         270+         SVC   10                                ISSUE GETMAIN SVC      04680000
0000F4 1881                         271          LR    R8,R1               Point to block area
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    273 ******************************************************************
                                    274 *                                                                *
                                    275 *        READLOOP:                                               *
                                    276 *                                                                *
                                    277 *        Top of read loop.  Loop reading blocks until we         *
                                    278 *        encounter end of data on the member.                    *
                                    279 *                                                                *
                                    280 *        R7  = Pointer to parm list - not referenced.            *
                                    281 *        R8  = Address of READ buffer.                           *
                                    282 *                                                                *
                                    283 *        Workregs:  R0, R1, R14, R15.                            *
                                    284 *                                                                *
                                    285 ******************************************************************

0000F6                              287 READLOOP DS    0H                  Loop reading blocks
                                    288          READ  PARMDECB,SF,        Read block                          +
                                                       PARMLIB,(R8),'S'     into our area
0000F6 0700                         289+         CNOP  0,4                                                      02179019
0000F8 4510 C110      00110         290+         BAL   1,*+24                   LOAD DECB ADDRESS               02187003
0000FC 00000000                     291+PARMDECB DC    F'0'                              EVENT CONTROL BLOCK    02200000
000100 80                           292+         DC    X'80'                             TYPE FIELD             02260000
000101 80                           293+         DC    X'80'                             TYPE FIELD             00840000
000102 0000                         294+         DC    AL2(0)                            LENGTH                 02480000
000104 00000380                     295+         DC    A(PARMLIB)                        DCB ADDRESS            02540000
000108 00000000                     296+         DC    A(0)                              AREA ADDRESS           02700000
00010C 00000000                     297+         DC    A(0)                              RECORD POINTER WORD    02720000
000110 5081 000C      0000C         298+         ST    R8,12(1,0)                        STORE AREA ADDRESS     02820000
000114 58F1 0008      00008         299+         L     15,8(1,0)           LOAD DCB ADDRESS                     02091503
000118 58F0 F030      00030         300+         L     15,48(0,15)                       LOAD RDWR ROUTINE ADDR 02097203
00011C 05EF                         301+         BALR  14,15                             LINK TO RDWR ROUTINE   02102903
                                    302          CHECK PARMDECB            Wait for read to complete
00011E 4110 C0FC      000FC         303+         LA    1,PARMDECB                        LOAD PARAMETER REG 1   00100000
000122 58E0 1008      00008         304+         L     14,8(0,1)                         PICK UP DCB ADDRESS    00100000
000126 58F0 E034      00034         305+         L     15,52(0,14)                       LOAD CHECK ROUT. ADDR. 00120000
00012A 05EF                         306+         BALR  14,15                             LINK TO CHECK ROUTINE  00140000
00012C 58F0 C244      00244         307          L     R15,RETCODE         Check for read error
000130 12FF                         308          LTR   R15,R15             Did read encounter error?
000132 4770 C1E4      001E4         309          BNZ   IOERR               Branch if error on read
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    311 ******************************************************************
                                    312 *                                                                *
                                    313 *        Block was successfully read.  Set up for                *
                                    314 *        deblocking loop.  No deblocking should actually         *
                                    315 *        be necessary (MVT requires PARMLIB to be unblocked)     *
                                    316 *        but we'll be thorough.                                  *
                                    317 *                                                                *
                                    318 *        R3  = Pointer to current logical record for BXLE loop.  *
                                    319 *        R4  = Logical record length for BXLE loop.              *
                                    320 *        R5  = Pointer to end value for BXLE loop.               *
                                    321 *        R7  = Pointer to parm list - not referenced.            *
                                    322 *        R8  = Address of READ buffer.                           *
                                    323 *                                                                *
                                    324 ******************************************************************

000136 41F0 C0FC      000FC         326          LA    R15,PARMDECB        Point to DECB
                            00000   327          USING DECB,15             Addressability for DECB
00013A 58F0 F010      00010         328          L     R15,DECIOBPT        Point to IOB  DECB+16
                            00010   329          USING IOBSTDRD,R15        Addressabilty for IOB
00013E 4800 F00E      0001E         330          LH    R0,IOBCSW+5         Get residual count  IOB+14
                                    331          DROP  R15                 End IOB addressability
000142 4850 C248      00248         332          LH    R5,BLKSIZE          Get PARMLIB block size
000146 1B50                         333          SR    R5,R0               Calculate length of block read
000148 1838                         334          LR    R3,R8               Point to first record
00014A 4140 0050      00050         335          LA    R4,80               Set increment for BXLE
00014E 1A53                         336          AR    R5,R3               Set compare value
000150 1B54                         337          SR    R5,R4                for BXLE
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    339 ******************************************************************
                                    340 *                                                                *
                                    341 *        BLKLOOP:                                                *
                                    342 *                                                                *
                                    343 *        Loop through logical records in block.  Call            *
                                    344 *        COMRECD subroutine for each to extract and              *
                                    345 *        issue command contained in record.  Note that           *
                                    346 *        any record beginning with a "*" is treated as           *
                                    347 *        comment and ignored.                                    *
                                    348 *                                                                *
                                    349 *        R3  = Pointer to current logical record for BXLE loop.  *
                                    350 *        R4  = Logical record length for BXLE loop.              *
                                    351 *        R5  = Pointer to end value for BXLE loop.               *
                                    352 *        R7  = Pointer to parm list - not referenced.            *
                                    353 *        R8  = Address of READ buffer.                           *
                                    354 *        R14 = Linkage to COMRECD subroutine.                    *
                                    355 *                                                                *
                                    356 *        Workregs:  R14, R15.                                    *
                                    357 *                                                                *
                                    358 ******************************************************************

000152                              360 BLKLOOP  DS    0H                  Loop through block
000152 955C 3000      00000         361          CLI   0(R3),C'*'          Is record a comment?
000156 4780 C160      00160         362          BE    BLKBOT              Skip call to subroutine if so
00015A 1813                         363          LR    R1,R3               Point to record
00015C 45E0 C540      00540         364          BAL   R14,COMRECD         Call parse subroutine
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    366 ******************************************************************
                                    367 *                                                                *
                                    368 *        BLKLOOP:                                                *
                                    369 *                                                                *
                                    370 *        Bottom of deblocking loop.  Adjust record pointer       *
                                    371 *        to the next logical record and loop back to             *
                                    372 *        process it.  We should never actually take the          *
                                    373 *        branch because MVT's unblocked PARMLIB should only      *
                                    374 *        have one logical record in each block.                  *
                                    375 *                                                                *
                                    376 *        R3  = Pointer to current logical record for BXLE loop.  *
                                    377 *        R4  = Logical record length for BXLE loop.              *
                                    378 *        R5  = Pointer to end value for BXLE loop.               *
                                    379 *        R7  = Pointer to parm list - not referenced.            *
                                    380 *        R8  = Address of READ buffer - not referenced.          *
                                    381 *                                                                *
                                    382 *        Workregs:  None.                                        *
                                    383 *                                                                *
                                    384 ******************************************************************

000160                              386 BLKBOT   DS    0H                  Bottom of deblocking loop
000160 8734 C152      00152         387          BXLE  R3,R4,BLKLOOP       Back to do next record
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    389 ******************************************************************
                                    390 *                                                                *
                                    391 *        BLKNEXT:                                                *
                                    392 *                                                                *
                                    393 *        All logical records in this block have been             *
                                    394 *        processed.  Go read another block.                      *
                                    395 *                                                                *
                                    396 *        R3  = Pointer to current logical record for BXLE loop.  *
                                    397 *        R4  = Logical record length for BXLE loop.              *
                                    398 *        R5  = Pointer to end value for BXLE loop.               *
                                    399 *        R7  = Pointer to parm list - not referenced.            *
                                    400 *        R8  = Address of READ buffer - not referenced.          *
                                    401 *                                                                *
                                    402 *        Workregs:  None.                                        *
                                    403 *                                                                *
                                    404 ******************************************************************

000164                              406 BLKNEXT  DS    0H                  Done with block, read next one
000164 47F0 C0F6      000F6         407          B     READLOOP            Back to read next block
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    409 ******************************************************************
                                    410 *                                                                *
                                    411 *        EOFPARM:                                                *
                                    412 *                                                                *
                                    413 *        End of file has been taken on the PARMLIB member.       *
                                    414 *        Free work storage we obtained to read blocks into.      *
                                    415 *                                                                *
                                    416 *        R7  = Pointer to parm list - not referenced.            *
                                    417 *        R8  = Address of READ buffer - freed in this routine.   *
                                    418 *                                                                *
                                    419 *        Workregs:  R0, R1, R14, R15.                            *
                                    420 *                                                                *
                                    421 ******************************************************************

000168                              423 EOFPARM  DS    0H                  Here when EOF on PARMLIB
000168 1288                         424          LTR   R8,R8               Do we have a buffer to free?
00016A 4780 C17A      0017A         425          BZ    PARMCLS             Skip FREEMAIN if not
00016E 4800 C248      00248         426          LH    R0,BLKSIZE          Set length for FREEMAIN
000172 1818                         427          LR    R1,R8               Set area for FREEMAIN
                                    428          FREEMAIN R,LV=(0),A=(1)   Free I/O area
000174 4111 0000      00000         429+         LA    1,0(1)                       CLEAR THE HIGH ORDER BYTE   03130018
000178 0A0A                         430+         SVC   10                      ISSUE FREEMAIN SVC         P2504 03140021
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    432 ******************************************************************
                                    433 *                                                                *
                                    434 *        PARMCLS:                                                *
                                    435 *                                                                *
                                    436 *        Close PARMLIB.                                          *
                                    437 *                                                                *
                                    438 *        R7  = Pointer to parm list - not referenced.            *
                                    439 *                                                                *
                                    440 *        Workregs:  R0, R1, R14, R15.                            *
                                    441 *                                                                *
                                    442 ******************************************************************

00017A                              444 PARMCLS  DS    0H                  Here to close PARMLIB DCB
                                    445          CLOSE (PARMLIB,)          Close PARMLIB
00017A 0700                         446+         CNOP  0,4                               ALIGN LIST TO FULLWORD 02420001
00017C 4510 C184      00184         447+         BAL   1,*+8                             LOAD REG1 W/LIST ADDR  02460001
000180 80                           448+         DC    AL1(128)                          OPTION BYTE            02580000
000181 000380                       449+         DC    AL3(PARMLIB)                      DCB ADDRESS            02600000
000184 0A14                         450+         SVC   20                                ISSUE CLOSE SVC        01640000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    452 ******************************************************************
                                    453 *                                                                *
                                    454 *        RETURN:                                                 *
                                    455 *                                                                *
                                    456 *        Clean up and return to system.                          *
                                    457 *                                                                *
                                    458 *        R7  = Pointer to parm list.                             *
                                    459 *                                                                *
                                    460 *        Workregs:  R0, R1, R14, R15.                            *
                                    461 *                                                                *
                                    462 ******************************************************************

000186                              464 RETURN   DS    0H                  Return to system

                                    466 *----------------------------------------------------------------*
                                    467 *        Unsmash UCB pointer in PROCLIB TIOT entry.              *
                                    468 *----------------------------------------------------------------*
000186 58F0 700C      0000C         469          L     R15,12(,R7)         Get address of master's TIOT
                            00000   470          USING VTIOT,R15           Addressability for TIOT
00018A D202 F051 7009 00051 00009   471          MVC   VPUCBPT+1(3),9(R7)  Restore PROCLIB UCB pointer
                                    472          DROP  R15                 End TIOT addressability

                                    474 *----------------------------------------------------------------*
                                    475 *        Restore registers and return.                           *
                                    476 *----------------------------------------------------------------*
000190 58D0 D004      00004         477          L     R13,4(,R13)         Restore caller's save area ptr
000194 58F0 C244      00244         478          L     R15,RETCODE         Set return code in R15
                                    479          RETURN (14,12),RC=(15)    Return to caller
000198 58ED 000C      0000C         480+         L     14,12(13,0)                       RESTORE REGISTER 14    00480000
00019C 980C D014      00014         481+         LM    0,12,20(13)                       RESTORE THE REGISTERS  00400000
0001A0 07FE                         482+         BR    14                                RETURN                 00800000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    484 ******************************************************************
                                    485 *                                                                *
                                    486 *        OPENERR:                                                *
                                    487 *                                                                *
                                    488 *        PARMLIB open failed.  Issue "OPEN PROCESSING            *
                                    489 *        FAILED" message and set return code = 8 to indicate     *
                                    490 *        error, then go to exit.                                 *
                                    491 *                                                                *
                                    492 ******************************************************************

0001A2                              494 OPENERR  DS    0H                  PARMLIB open failed
0001A2 D207 C4CA C24A 004CA 0024A   495          MVC   ME591MEM,COMMEM     Set member name in message
                                    496          WTO   MF=(E,MSGE591)      Say "OPEN FAILED"
0001A8 4110 C49C      0049C         497+         LA    1,MSGE591                         LOAD PARAMETER REG 1   00100000
0001AC 0A23                         498+         SVC   35                                ISSUE SVC              00750021
0001AE D203 C244 C53C 00244 0053C   499          MVC   RETCODE,=F'8'       Set error return code
0001B4 47F0 C186      00186         500          B     RETURN              Go return to IEEVIPL
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    502 ******************************************************************
                                    503 *                                                                *
                                    504 *        NOTFOUND:                                               *
                                    505 *                                                                *
                                    506 *        Member not found in PARMLIB.  Issue "MEMBER NOT         *
                                    507 *        FOUND" message and set return code = 8 to indicate      *
                                    508 *        error, then go to close PARMLIB.                        *
                                    509 *                                                                *
                                    510 ******************************************************************

0001B8                              512 NOTFOUND DS    0H                  Member not found
0001B8 D207 C46C C24A 0046C 0024A   513          MVC   ME538MEM,COMMEM     Set member name in message
                                    514          WTO   MF=(E,MSGE538)      Say "MEMBER NOT FOUND"
0001BE 4110 C460      00460         515+         LA    1,MSGE538                         LOAD PARAMETER REG 1   00100000
0001C2 0A23                         516+         SVC   35                                ISSUE SVC              00750021
0001C4 D203 C244 C53C 00244 0053C   517          MVC   RETCODE,=F'8'       Set error return code
0001CA 47F0 C168      00168         518          B     EOFPARM             Go close PARMLIB
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    520 ******************************************************************
                                    521 *                                                                *
                                    522 *        FINDERR:                                                *
                                    523 *                                                                *
                                    524 *        I/O error occurred during FIND.  Issue "I/O ERROR"      *
                                    525 *        message and set return code = 8 to indicate error,      *
                                    526 *        then go to close PARMLIB.                               *
                                    527 *                                                                *
                                    528 ******************************************************************

0001CE                              530 FINDERR  DS    0H                  Error during FIND
0001CE D207 C442 C24A 00442 0024A   531          MVC   ME539MEM,COMMEM     Set member name in message
                                    532          WTO   MF=(E,MSGE539)      Say "I/O ERROR"
0001D4 4110 C410      00410         533+         LA    1,MSGE539                         LOAD PARAMETER REG 1   00100000
0001D8 0A23                         534+         SVC   35                                ISSUE SVC              00750021
0001DA D203 C244 C53C 00244 0053C   535          MVC   RETCODE,=F'8'       Set error return code
0001E0 47F0 C17A      0017A         536          B     PARMCLS             Go close PARMLIB
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    538 ******************************************************************
                                    539 *                                                                *
                                    540 *        IOERR:                                                  *
                                    541 *                                                                *
                                    542 *        I/O error occurred during PARMLIB read.  Issue          *
                                    543 *        "I/O ERROR" message and go to close PARMLIB.            *
                                    544 *                                                                *
                                    545 ******************************************************************

0001E4                              547 IOERR    DS    0H                  I/O error on PARMLIB
0001E4 D207 C442 C24A 00442 0024A   548          MVC   ME539MEM,COMMEM     Set member name in message
                                    549          WTO   MF=(E,MSGE539)      Say "I/O ERROR"
0001EA 4110 C410      00410         550+         LA    1,MSGE539                         LOAD PARAMETER REG 1   00100000
0001EE 0A23                         551+         SVC   35                                ISSUE SVC              00750021
                                    552 *        MVC   RETCODE,=F'8'       Set error return code
0001F0 47F0 C168      00168         553          B     EOFPARM             Go close PARMLIB
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    555 ******************************************************************
                                    556 *                                                                *
                                    557 *        SYNADRTN:                                               *
                                    558 *                                                                *
                                    559 *        I/O error occurred on PARMLIB.  Set return              *
                                    560 *        code = 8 to indicate error                              *
                                    561 *                                                                *
                                    562 ******************************************************************

0001F4                              564 SYNADRTN DS    0H                  PARMLIB SYNAD routine
0001F4 D203 C244 C53C 00244 0053C   565          MVC   RETCODE,=F'8'       Set error return code
0001FA 07FE                         566          BR    R14                 Return to BPAM
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    568 ******************************************************************
                                    569 *                                                                *
                                    570 *        Constants, work areas and literals.                     *
                                    571 *                                                                *
                                    572 ******************************************************************

                                    574 *----------------------------------------------------------------*
                                    575 *        Program save area.                                      *
                                    576 *----------------------------------------------------------------*
0001FC                              577 SAVEA    DS    18F                 Program save area

000244                              579 RETCODE  DS    F                   Program return code
000248                              580 BLKSIZE  DS    H                   PARMLIB block size

                                    582 *----------------------------------------------------------------*
                                    583 *        COMMNDxx member name.                                   *
                                    584 *----------------------------------------------------------------*
00024A                              585 COMMEM   DS    0CL8                Member name
00024A C3D6D4D4D5C4                 586          DC    CL6'COMMND'         -- Stem
000250 4040                         587 COMMEMSF DC    CL2' '              -- Suffix

                                    589 *----------------------------------------------------------------*
                                    590 *        PARMLIB data set name.                                  *
                                    591 *----------------------------------------------------------------*
000252 E2E8E2F14BD7C1D9             592 KPARMLIB DC    CL44'SYS1.PARMLIB'  PARMLIB data set name

                                    594 *----------------------------------------------------------------*
                                    595 *        Flags.                                                  *
                                    596 *----------------------------------------------------------------*
00027E 00                           597 FLAG1    DC    XL1'00'             Flag byte
                            00040   598 F1BADCMD EQU   X'40'               -- "BAD COMMAND" message issued

                            0007D   600 QUOTE    EQU   C''''               Compare value for single quote

                                    602 *----------------------------------------------------------------*
                                    603 *        MGCR (SVC 34) PARAMETER LIST.                           *
                                    604 *----------------------------------------------------------------*
000280                              605 MGCRPL   DS    0H                  SVC 34 parameter list
000280                              606 MGCRLEN  DS    H                   Length of text + prefix
000282 0000                         607          DC    H'0'                Reserved
000284 4040404040404040             608 MGCRTEXT DC    CL70' '             Command text

                                    610 *----------------------------------------------------------------*
                                    611 *        PARMLIB DCB exit list for OPEN TYPE=J.                  *
                                    612 *----------------------------------------------------------------*
0002CC                              613 JFCBXLST DS    0A                  JFCB exit list
0002CC 87                           614          DC    X'87'               -- This is a JFCB exit
0002CD 0002D0                       615          DC    AL3(JFCBAREA)       -- Pointer to area for JFCB

                                    617 *----------------------------------------------------------------*
                                    618 *        Area building SYS1.PARMLIB JFCB.                        *
                                    619 *----------------------------------------------------------------*
0002D0                              620          DS    0F                  Force fullword alignment
0002D0                              621 JFCBAREA DS    CL176               Area for JFCB
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    623 *----------------------------------------------------------------*
                                    624 *        BPAM DCB for reading PARMLIB.                           *
                                    625 *----------------------------------------------------------------*
                                    626 PARMLIB  DCB   DSORG=PO,RECFM=FB,LRECL=80,MACRF=(R),DDNAME=IEFPDSI,    +
                                                       EODAD=EOFPARM,EXLST=JFCBXLST,SYNAD=SYNADRTN


                                    628+*                       DATA CONTROL BLOCK                              22770020
                                    629+*                                                                       22860020
000380                              630+PARMLIB  DC    0F'0'                   ORIGIN ON WORD BOUNDARY          22914020

                                    632+*                       DIRECT ACCESS DEVICE INTERFACE                  27360020

000380 0000000000000000             634+         DC    BL16'0'                  FDAD,DVTBL                      27540020
000390 00000000                     635+         DC    A(0)                     KEYLE,DEVT,TRBAL                27720020

                                    637+*                       COMMON ACCESS METHOD INTERFACE                  48690020

000394 00                           639+         DC    AL1(0)                  BUFNO                            49050020
000395 000001                       640+         DC    AL3(1)                  BUFCB                            54720020
000398 0000                         641+         DC    AL2(0)             BUFL                                  55170020
00039A 0200                         642+         DC    BL2'0000001000000000'                                   *55800020
                                       +                                                 DSORG                  55890020
00039C 00000001                     643+         DC    A(1)                     IOBAD                           56340020

                                    645+*                       FOUNDATION EXTENSION                            56610020

0003A0 00                           647+         DC    BL1'00000000'                  BFTEK,BFLN,HIARCHY        59850020
0003A1 000168                       648+         DC    AL3(EOFPARM)            EODAD                            65970020
0003A4 90                           649+         DC    BL1'10010000'                                           *66150020
                                       +                                       RECFM                            66240020
0003A5 0002CC                       650+         DC    AL3(JFCBXLST)           EXLST                            66330020

                                    652+*                       FOUNDATION BLOCK                                66690020

0003A8 C9C5C6D7C4E2C940             654+         DC    CL8'IEFPDSI'            DDNAME                           66870020
0003B0 02                           655+         DC    BL1'00000010'           OFLGS                            68220020
0003B1 00                           656+         DC    BL1'00000000'                          IFLG              68310020
0003B2 2400                         657+         DC    BL2'0010010000000000'                                   *68400020
                                       +                                                                       *68490020
                                       +                                       MACR                             68580020

                                    659+*                       BSAM-BPAM-QSAM INTERFACE                        74430020

0003B4 00                           661+         DC    BL1'00000000'                                           *74610020
                                       +                                                                   RER1 74700020
0003B5 000001                       662+         DC    AL3(1)                  CHECK, GERR, PERR                74790020
0003B8 000001F4                     663+         DC    A(SYNADRTN)             SYNAD                            74880020
0003BC 0000                         664+         DC    H'0'                    CIND1, CIND2                     74970020
0003BE 0000                         665+         DC    AL2(0)                  BLKSIZE                          75240020
0003C0 00000000                     666+         DC    F'0'                    WCPO, WCPL, OFFSR, OFFSW         75870020
0003C4 00000001                     667+         DC    A(1)                    IOBA                             75960020
0003C8 00                           668+         DC    AL1(0)                  NCP                              76050020
0003C9 000001                       669+         DC    AL3(1)                  EOBR, EOBAD                      76140020

         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    671+*                         BSAM-BPAM INTERFACE                           76410020

0003CC 00000001                     673+         DC    A(1)                    EOBW                             76590020
0003D0 0000                         674+         DC    H'0'                    DIRCT                            78210020
0003D2 0050                         675+         DC    AL2(80)        LRECL                                     80730020
0003D4 00000001                     676+         DC    A(1)                    CNTRL, NOTE, POINT               78480020
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    678 ******************************************************************
                                    679 *                                                                *
                                    680 *        Constants, work areas and literals (continued).         *
                                    681 *                                                                *
                                    682 ******************************************************************

                                    684 *----------------------------------------------------------------*
                                    685 *        WPL for message IEE252I member FOUND.                   *
                                    686 *----------------------------------------------------------------*
0003D8                              687 MSGE252  DS    0F                  IEE252I message
0003D8 0031                         688          DC    AL2(LMSGE252)       Message length
0003DA 8000                         689          DC    XL2'8000'           Routing/descriptor codes exist
0003DC C9C5C5F2F5F2C940             690          DC    C'IEE252I MEMBER '  Message ID
0003EB 4040404040404040             691 ME252MEM DC    CL8' '              Member name
0003F3 40C6D6E4D5C440C9             692          DC    C' FOUND IN'        Text
0003FC 40E2E8E2F14BD7C1             693          DC    C' SYS1.PARMLIB'    Text
                            00031   694 LMSGE252 EQU   *-MSGE252           Symbolic length of WPL
000409 1000                         695          DC    X'1000'             Descriptor codes
00040B 4000                         696          DC    B'0100000000000000' Routing codes

                                    698 *----------------------------------------------------------------*
                                    699 *        WPL for message IEE539I I/O ERROR.                      *
                                    700 *----------------------------------------------------------------*
000410                              701 MSGE539  DS    0F                  I/O error message
000410 004A                         702          DC    AL2(LMSGE539)       Message length
000412 8000                         703          DC    XL2'8000'           Routing/descriptor codes exist
000414 C9C5C5F5F3F9C940             704          DC    C'IEE539I I/O ERROR DURING PROCESSING OF MEMBER '
000442 4040404040404040             705 ME539MEM DC    CL8' '              Member name
00044A 40D6C6                       706          DC    C' OF'              Text
00044D 40E2E8E2F14BD7C1             707          DC    C' SYS1.PARMLIB'    Text
                            0004A   708 LMSGE539 EQU   *-MSGE539           Symbolic length of WPL
00045A 1000                         709          DC    X'1000'             Descriptor codes
00045C 4000                         710          DC    B'0100000000000000' Routing codes

                                    712 *----------------------------------------------------------------*
                                    713 *        WPL for message IEE538I member NOT FOUND.               *
                                    714 *----------------------------------------------------------------*
000460                              715 MSGE538  DS    0F                  IEE538I message
000460 0035                         716          DC    AL2(LMSGE538)       Message length
000462 8000                         717          DC    XL2'8000'           Routing/descriptor codes exist
000464 C9C5C5F5F3F8C940             718          DC    C'IEE538I '         Message ID
00046C 4040404040404040             719 ME538MEM DC    CL8' '              Member name
000474 40D4C5D4C2C5D940             720          DC    C' MEMBER NOT FOUND' Text
000485 40C9D540E2E8E2F1             721          DC    C' IN SYS1.PARMLIB' Text
                            00035   722 LMSGE538 EQU   *-MSGE538           Symbolic length of WPL
000495 1000                         723          DC    X'1000'             Descriptor codes
000497 4000                         724          DC    B'0100000000000000' Routing codes

                                    726 *----------------------------------------------------------------*
                                    727 *        WPL for message IEE591I OPEN PROCESSING FAILED.         *
                                    728 *----------------------------------------------------------------*
00049C                              729 MSGE591  DS    0F                  IEE591I message
00049C 0046                         730          DC    AL2(LMSGE591)       Message length
00049E 8000                         731          DC    XL2'8000'           Routing/descriptor codes exist
0004A0 C9C5C5F5F9F1C9               732          DC    C'IEE591I'          Message ID
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

0004A7 40D6D7C5D540D7D9             733          DC    C' OPEN PROCESSING' Text
0004B7 40C6C1C9D3C5C440             734          DC    C' FAILED FOR'      Text
0004C2 40D4C5D4C2C5D940             735          DC    C' MEMBER '         Text
0004CA 4040404040404040             736 ME591MEM DC    CL8' '              Member name
0004D2 40C9D540E2E8E2F1             737          DC    C' IN SYS1.PARMLIB' Text
                            00046   738 LMSGE591 EQU   *-MSGE591           Symbolic length of WPL
0004E2 1000                         739          DC    X'1000'             Descriptor codes
0004E4 4000                         740          DC    B'0100000000000000' Routing codes

                                    742 *----------------------------------------------------------------*
                                    743 *        WPL for message IEA863I xxxx SPECIFICATION INVALID      *
                                    744 *        IN member.                                              *
                                    745 *----------------------------------------------------------------*
0004E8                              746 MSGA863  DS    0F                  Message for command invalid
0004E8 0040                         747          DC    AL2(LMSGA863)       Message length
0004EA 8000                         748          DC    XL2'8000'           Routing/descriptor codes exist
0004EC C9C5C1F8F6F3C940             749          DC    C'IEA863I <'        Message ID
0004F5 4040404040404040             750 MA863TXT DC    CL16' '             First 16 bytes of text
000505 6E40E2D7C5C3C9C6             751          DC    C'> SPECIFICATION INVALID IN '
000520 4040404040404040             752 MA863MEM DC    CL8' '              Member name
                            00040   753 LMSGA863 EQU   *-MSGA863           Symbolic length of WPL
000528 1000                         754          DC    X'1000'             Descriptor codes
00052A 4000                         755          DC    B'0100000000000000' Routing codes
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    757 *----------------------------------------------------------------*
                                    758 *        Literal pool.                                           *
                                    759 *----------------------------------------------------------------*
000530                              760          LTORG ,
000530 4040404040404040             761                =CL8' '
000538 00000004                     762                =F'4'
00053C 00000008                     763                =F'8'
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    765 ******************************************************************
                                    766 *                                                                *
                                    767 *        COMRECD:                                                *
                                    768 */*                                                              *
                                    769 */*      THE FUNCTION OF THE COMRECD RTN IS TO PROCESS THE       *
                                    770 */*      PARMLIB MEMBER SPECIFIED BY THE OPERATOR, OR THE        *
                                    771 */*      DEFAULT MEMBER, COMMND00.                               *
                                    772 */*      THE COMMAND IS SYNTAX CHECKED ONLY TO VERIFY            *
                                    773 */*      THAT IT IS ENCLOSED IN QUOTES AND THAT NO NON-          *
                                    774 */*      BLANKS ARE OUTSIDE THE QUOTES. THE COMMAND MAY          *
                                    775 */*      CONTAIN EMBEDDED QUOTES, AS LONG AS THE FINAL           *
                                    776 */*      QUOTE IS VALID.                                         *
                                    777 *                                                                *
                                    778 ******************************************************************

                                    780 *----------------------------------------------------------------*
                                    781 *        Initialize for command record scan.  Verify that        *
                                    782 *        the record starts with "COM='" and exit quickly if      *
                                    783 *        it doesn't.                                             *
                                    784 *----------------------------------------------------------------*
000540                              785 COMRECD  DS    0H                  Process "COM=" record
                                    786          SAVE  (14,12)             Save caller's registers
000540                              787+         DS    0H                                                       00660000
000540 90EC D00C      0000C         788+         STM   14,12,12(13)                      SAVE REGISTERS         01180000
000544 1851                         789          LR    R5,R1               Save pointer to record
000546 D504 C5D6 5000 005D6 00000   790          CLC   =C'COM=''',0(R5)    Check for "COM='" at start
00054C 4770 C57E      0057E         791          BNE   COMMERR             Error if not present

                                    793 *----------------------------------------------------------------*
                                    794 *        Start at column 71 of command record and scan           *
                                    795 *        backward to find first non-blank character.             *
                                    796 *----------------------------------------------------------------*
000550 4140 0046      00046         797          LA    R4,71-1             Initialize scan count
000554                              798 COMMLOOP DS    0H                  Loop scanning backward
000554 4164 5000      00000         799          LA    R6,0(R4,R5)         Point to
000558 0660                         800          BCTR  R6,0                 current buffer position
00055A 4940 C5D0      005D0         801          CH    R4,=H'6'            Still characters to scan?
00055E 4740 C56E      0056E         802          BL    COMMDONE            Done if not
000562 9540 6000      00000         803          CLI   0(R6),C' '          Is this character a blank?
000566 4770 C56E      0056E         804          BNE   COMMDONE            Done if not
00056A 4640 C554      00554         805          BCT   R4,COMMLOOP         Decrement scan count and loop back
                                    806 * SHOULD NEVER FALL THROUGH HERE

                                    808 *----------------------------------------------------------------*
                                    809 *        Scan is done.  Check if error was encountered.  The     *
                                    810 *        rightmost character in the command record (the one      *
                                    811 *        that should have stopped the scan) must be a quote,     *
                                    812 *        and there must be at least one byte of command text     *
                                    813 *        (COM='' is not permitted).                              *
                                    814 *----------------------------------------------------------------*
00056E                              815 COMMDONE DS    0H                  Command record scan done
00056E 4940 C5D0      005D0         816          CH    R4,=H'6'            Is command text empty?
000572 47D0 C57E      0057E         817          BNH   COMMERR             Error if so
000576 957D 6000      00000         818          CLI   0(R6),QUOTE         Is rightmost non-blank a quote?
00057A 4780 C598      00598         819          BE    COMMISSU            Scan successfuly complete if so
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    821 *----------------------------------------------------------------*
                                    822 *        Errors have been found in the command record.           *
                                    823 *        Issue a message and skip this command.                  *
                                    824 *----------------------------------------------------------------*
00057E                              825 COMMERR  DS    0H                  Errors in command record
00057E D20F C4F5 5000 004F5 00000   826          MVC   MA863TXT,0(R5)      Put some command text in message
000584 D207 C520 C24A 00520 0024A   827          MVC   MA863MEM,COMMEM     Set member name in IEA863I msg
                                    828          WTO   MF=(E,MSGA863)      Say "COMMAND INVALID"
00058A 4110 C4E8      004E8         829+         LA    1,MSGA863                         LOAD PARAMETER REG 1   00100000
00058E 0A23                         830+         SVC   35                                ISSUE SVC              00750021
000590 9640 C27E      0027E         831          OI    FLAG1,F1BADCMD      Show an error was found
000594 47F0 C5C2      005C2         832          B     COMMRET             Skip executing command

                                    834 *----------------------------------------------------------------*
                                    835 *        We have a command.  Calculate its length and            *
                                    836 *        set length in SVC 34 parameter list.                    *
                                    837 *----------------------------------------------------------------*
000598                              838 COMMISSU DS    0H                  Issue the command
000598 1864                         839          LR    R6,R4
00059A 4B60 C5D2      005D2         840          SH    R6,=H'5'
00059E 4A60 C5D4      005D4         841          AH    R6,=H'4'            Get command length + 4
0005A2 4060 C280      00280         842          STH   R6,MGCRLEN          Save in MGCR parameter list

                                    844 *----------------------------------------------------------------*
                                    845 *        Set trailing blank after command text to keep           *
                                    846 *        SVC 34 happy.                                           *
                                    847 *----------------------------------------------------------------*
0005A6 1865                         848          LR    R6,R5                                               0437
0005A8 1E64                         849          ALR   R6,R4                                               0437
0005AA 0660                         850          BCTR  R6,0
0005AC 9240 6000      00000         851          MVI   0(R6),C' '          Set final blank for SVC 34

                                    853 *----------------------------------------------------------------*
                                    854 *        Copy command text to SVC 34 parameter list.             *
                                    855 *----------------------------------------------------------------*
0005B0 18F4                         856          LR    R15,R4              Calculate length
0005B2 4BF0 C5D0      005D0         857          SH    R15,=H'6'            of command text
0005B6 44F0 C5C8      005C8         858          EX    R15,MOVECMD           and move to parm list

                                    860 *----------------------------------------------------------------*
                                    861 *        Issue the command.                                      *
                                    862 *----------------------------------------------------------------*
0005BA 1700                         863          XR    R0,R0               Show internal command
0005BC 4110 C280      00280         864          LA    R1,MGCRPL           Point to SVC 34 parm list
                                    865          MGCR  (1)                 Issue command
0005C0 0A22                         866+         SVC   34                             ISSUE MGCR SVC            01420000

                                    868 *----------------------------------------------------------------*
                                    869 *        Return to caller of COMRECD subroutine.                 *
                                    870 *----------------------------------------------------------------*
0005C2                              871 COMMRET  DS    0H                  Return from COMRECD subroutine
                                    872          RETURN (14,12)            Return to caller
0005C2 98EC D00C      0000C         873+         LM    14,12,12(13)                      RESTORE THE REGISTERS  00260000
0005C6 07FE                         874+         BR    14                                RETURN                 00800000

         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

0005C8 D200 C284 5005 00284 00005   876 MOVECMD  MVC   MGCRTEXT(*-*),5(R5) ** Executed move
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    878 ******************************************************************
                                    879 *                                                                *
                                    880 *        OS Data Control Block (DCB).                            *
                                    881 *                                                                *
                                    882 ******************************************************************

                                    884          DCBD  DSORG=PO            Map DCB
                                    885+*,***  IHB069  DEVD NOT SPECIFIED-ALL ASSUMED


                                    887+*                       DCB SYMBOLIC DEFINITION FOR                     07700000
                                    888+*                       BSAM-BPAM                                       08150000

                                    890+*********************************************************************** 09960021
                                    891+*  OS     RELEASE 21.8, 03/22/74                                      * 10000021
                                    892+*  OS/VS1 RELEASE 03.1, 03/22/74                                      * 10010021
                                    893+*********************************************************************** 10020021

000000                              895+IHADCB   DSECT , -            DCBPTR                                    10150000

                            00080   897+DCBBIT0  EQU   128                                                      10210021
                            00040   898+DCBBIT1  EQU   64                                                       10220021
                            00020   899+DCBBIT2  EQU   32                                                       10230021
                            00010   900+DCBBIT3  EQU   16                                                       10240021
                            00008   901+DCBBIT4  EQU   8                                                        10242021
                            00004   902+DCBBIT5  EQU   4                                                        10244021
                            00002   903+DCBBIT6  EQU   2                                                        10246021
                            00001   904+DCBBIT7  EQU   1                                                        10248021

                                    906+*                       DEVICE INTERFACES                               10350000

                                    908+*                       DIRECT ACCESS DEVICES                           10500000

000000                              910+DCBRELAD DS    CL4 -          PARTITIONED ORGANIZATION DATA SET -       10600000
                                    911+*                             ADDRESS (IN THE FORM TTRN) OF MEMBER      10650000
                                    912+*                             CURRENTLY USED.  ---                      10700000
                                    913+*                             SYS1.LOGREC DATA SET - IF CCH OPTION HAS  10750000
                                    914+*                             BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS 10800000
                                    915+*                             OF A 12-BYTE PARAMETER IN THE EXPANSION   10850000
                                    916+*                             OF MACRO INSTRUCTION IGFCATAP             10900000
000004                              917+DCBKEYCN DS    FL1 -          KEYED BLOCK OVERHEAD CONSTANT             10950000
000005                              918+DCBFDAD  DS    CL8 -          FULL DISK ADDRESS IN THE FORM OF MBBCCHHR 11000000
                                    919+*                             OF RECORD THAT WAS JUST READ OR WRITTEN   11050000

00000D                      0000C   921+         ORG   DCBFDAD+7                                                11150000
00000C                              922+DCBDVTBL DS    0A -           SAME AS DCBDVTBA BELOW                    11200000
00000C                              923+         DS    X -            LAST BYTE OF DCBFDAD                      11250000
00000D                              924+DCBDVTBA DS    AL3 -          ADDRESS OF ENTRY IN I/O DEVICE            11300000
                                    925+*                             CHARACTERISTICS TABLE FOR DEVICE BEING    11350000
                                    926+*                             USED                                      11400000
000010                              927+         DS    FL1 -          DCBKEYLE - KEY LENGTH OF DATA SET         11450000
000011                              928+         DS    C -            DCBDEVT - DEVICE TYPE                     11500000
                                    929+*   FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION      11550000
                            00021   930+DCBDV311 EQU   X'21' -        2311 DISK DRIVE                           11600000
                            00022   931+DCBDV301 EQU   X'22' -        2301 PARALLEL DRUM                        11650000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00023   932+DCBDV303 EQU   X'23' -        2303 SERIAL DRUM                          11700000
                            00024   933+DCBDV302 EQU   X'24' -        2302 DISK STORAGE                         11750000
                            00025   934+DCBDV321 EQU   X'25' -        2321 DATA CELL DRIVE                      11800000
                            00028   935+DCBDV314 EQU   X'28' -        2314 DISK STORAGE FACILITY                11850000
000012                              936+DCBTRBAL DS    H -            TRACK BALANCE.  NUMBER OF BYTES REMAINING 11900000
                                    937+*                             ON CURRENT TRACK AFTER A WRITE OPERATION  11950000
                                    938+*                             (THIS QUANTITY MAY BE NEGATIVE IF THERE   12000000
                                    939+*                             ARE NO BYTES REMAINING ON TRACK).         12050000

                                    941+*                       MAGNETIC TAPE                                   12200000

000014                      00000   943+         ORG   IHADCB                                                   12300000
000000                              944+         DS    CL12 -         RESERVED FOR I/O SUPERVISOR               12350000
00000C                              945+DCBBLKCT DS    F -            BLOCK COUNT FOR EACH VOLUME               12400000
000010                              946+DCBTRTCH DS    C -            TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 12450000
                            00023   947+DCBMTE   EQU   X'23' -        E  - EVEN PARITY                          12500000
                            0003B   948+DCBMTT   EQU   X'3B' -        T  - BCD/EBCDIC TRANSLATION               12550000
                            00013   949+DCBMTC   EQU   X'13' -        C  - DATA CONVERSION                      12600000
                            0002B   950+DCBMTET  EQU   X'2B' -        ET - EVEN PARITY AND TRANSLATION          12650000
000011                              951+         DS    C -            DCBDEVT - DEVICE TYPE                     12700000
                            00081   952+DCBDVMT  EQU   X'81' -        2400 SERIES MAGNETIC TAPE UNIT (7-TRACK   12750000
                                    953+*                             OR 9-TRACK)                               12800000
                            00083   954+DCBDVMT3 EQU   X'83' -        3400 SERIES MAGNETIC TAPE UNIT     ICB277 12850000
000012                              955+DCBDEN   DS    C -            TAPE DENSITY - 2400 SERIES MAGNETIC TAPE  12900000
                                    956+*                             UNITS                                     12950000
                                    957+*                             CODE    7-TRACK     9-TRACK               13000000
                            00003   958+DCBMTDN0 EQU   X'03' -         0       200 BPI       -                  13050000
                            00043   959+DCBMTDN1 EQU   X'43' -         1       556 BPI       -                  13100000
                            00083   960+DCBMTDN2 EQU   X'83' -         2       800 BPI     800 BPI              13150000
                            000C3   961+DCBMTDN3 EQU   X'C3' -         3         -        1600 BPI              13200000
                            000D3   962+DCBMTDN4 EQU   X'D3' -         4         -        6250 BPI        99223 13210003
000013                              963+         DS    X -            RESERVED                                  13250000

                                    965+*                       PAPER TAPE                                      13400000

000014                      00008   967+         ORG   IHADCB+8                                                 13500000
000008                              968+DCBLCTBL DS    A -            ADDRESS OF TRANSLATE TABLE                13550000
00000C                              969+         DS    XL4 -          RESERVED                                  13600000
000010                              970+DCBCODE  DS    C -            PAPER TAPE CODE BEING USED.  THE          13650000
                                    971+*                             APPROPRIATE TRANSLATE TABLE IS MADE       13700000
                                    972+*                             AVAILABLE                                 13750000
                            00080   973+DCBPTCDN EQU   X'80' -        N - NO CONVERSION                         13800000
                            00040   974+DCBPTCDI EQU   X'40' -        I - IBM BCD                               13850000
                            00020   975+DCBPTCDF EQU   X'20' -        F - FRIDEN                                13900000
                            00010   976+DCBPTCDB EQU   X'10' -        B - BURROUGHS                             13950000
                            00008   977+DCBPTCDC EQU   X'08' -        C - NATIONAL CASH REGISTER                14000000
                            00004   978+DCBPTCDA EQU   X'04' -        A - ASCII (8-TRACK)                       14050000
                            00002   979+DCBPTCDT EQU   X'02' -        T - TELETYPE                              14100000
000011                              980+         DS    C -            DCBDEVT - DEVICE TYPE                     14150000
                            00050   981+DCBDVPTP EQU   X'50' -        2671 PAPER TAPE READER                    14200000
000012                              982+         DS    X -            RESERVED                                  14250000
000013                              983+DCBPTFLG DS    BL1 -          PAPER TAPE FLAGS                          14300000
                            00010   984+DCBPTIC  EQU   DCBBIT3 -      INVALID CHARACTER IN LAST RECORD READ     14350003
                            00008   985+DCBPTECT EQU   DCBBIT4 -      END OF RECORD CHARACTER REACHED IN        14400003
                                    986+*                             TRANSLATION                               14450000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00004   987+DCBPTECR EQU   DCBBIT5 -      END OF RECORD CHARACTER DETECTED DURING   14500003
                                    988+*                             READ                                      14550000
                            00002   989+DCBPTUCT EQU   DCBBIT6 -      IF ONE, UPPER CASE TRANSLATE.             14600003
                                    990+*                             IF ZERO, LOWER CASE TRANSLATE             14650000
                            00001   991+DCBPTERR EQU   DCBBIT7 -      ERROR DETECTED ON READ                    14700003

                                    993+*                       PRINTER                                         14850000

000014                      00010   995+         ORG   IHADCB+16                                                14950000
000010                              996+DCBPRTSP DS    C -            NUMBER INDICATING NORMAL PRINTER SPACING  15000000
                            00001   997+DCBPRSP0 EQU   X'01' -        0 - NO SPACING                            15050000
                            00009   998+DCBPRSP1 EQU   X'09' -        1 - SPACE ONE LINE                        15100000
                            00011   999+DCBPRSP2 EQU   X'11' -        2 - SPACE TWO LINES                       15150000
                            00019  1000+DCBPRSP3 EQU   X'19' -        3 - SPACE THREE LINES                     15200003
000011                             1001+         DS    C -            DCBDEVT - DEVICE TYPE                     15250000
                            00048  1002+DCBDVPR1 EQU   X'48' -        1403 PRINTER AND 1404 PRINTER (CONTINUOUS 15300000
                                   1003+*                             FORM SUPPORT ONLY)                        15350000
                            0004A  1004+DCBDVPR2 EQU   X'4A' -        1443 PRINTER                              15400000
                            00049  1005+DCBDVPR3 EQU   X'49' -        3211 PRINTER                              15450000
000012                             1006+DCBPRTOV DS    C -            TEST-FOR-PRINTER-OVERFLOW MASK            15500000
                                   1007+*                             (PRTOV MASK)                              15550000
                            00020  1008+DCBPRC9  EQU   X'20' -        9  - TEST FOR CHANNEL 9 OVERFLOW          15600000
                            00010  1009+DCBPRC12 EQU   X'10' -        12 - TEST FOR CHANNEL 12 OVERFLOW         15650000
000013                             1010+         DS    X -            RESERVED                                  15700000

                                   1012+*                       CARD READER, CARD PUNCH                         15850000

000014                      00010  1014+         ORG   IHADCB+16                                                15950000
000010                             1015+DCBMODE  DS    0B -           MODE OF OPERATION FOR 1442 CARD READ      16000000
                                   1016+*                             PUNCH (BITS 0-3)                          16050000
000010                             1017+DCBSTACK DS    B -            STACKER SELECTION (BITS 4-7)              16100000
                            00080  1018+DCBMODEC EQU   DCBBIT0 -      COLUMN BINARY MODE                        16150003
                            00040  1019+DCBMODEE EQU   DCBBIT1 -      EBCDIC MODE                               16200003
                            00020  1020+DCBMODEO EQU   DCBBIT2 -      OPTICAL MARK READ MODE                    16250003
                            00010  1021+DCBMODER EQU   DCBBIT3 -      READ COLUMN ELIMINATE MODE                16300003
                            00002  1022+DCBSTCK2 EQU   DCBBIT6 -      STACKER 2                                 16350003
                            00001  1023+DCBSTCK1 EQU   DCBBIT7 -      STACKER 1                                 16400003
000011                             1024+         DS    C -            DCBDEVT - DEVICE TYPE                     16450000
                            00041  1025+DCBDVCR0 EQU   X'41' -        2540 CARD READER                          16500000
                            00042  1026+DCBDVCP0 EQU   X'42' -        2540 CARD PUNCH                           16550000
                            00043  1027+DCBDVCRP EQU   X'43' -        1442 CARD READ PUNCH                      16600000
                            00044  1028+DCBDVCR1 EQU   X'44' -        2501 CARD READER                          16650000
                            00045  1029+DCBDVCPR EQU   X'45' -        2520 CARD READ PUNCH                      16700000
                            00046  1030+DCBDVCR2 EQU   X'46'          3505 CARD READER                   XM0629 16710002
                            0004C  1031+DCBDVCP1 EQU   X'4C'          3525 CARD PUNCH                    XM0629 16720002
000012                             1032+         DS    X -            RESERVED                                  16750000
000013                             1033+DCBFUNC  DS    B -            FUNCTION INDICATOR FOR THE 3525           16800000
                            00080  1034+DCBFNCBI EQU   DCBBIT0 -      INTERPRET (PUNCH AND PRINT TWO LINES)     16850003
                            00040  1035+DCBFNCBR EQU   DCBBIT1 -      READ                                      16900003
                            00020  1036+DCBFNCBP EQU   DCBBIT2 -      PUNCH                                     16950003
                            00010  1037+DCBFNCBW EQU   DCBBIT3 -      PRINT                                     17000003
                            00008  1038+DCBFNCBD EQU   DCBBIT4 -      DATA PROTECTION                           17050003
                            00004  1039+DCBFNCBX EQU   DCBBIT5 -      THIS DATA SET IS TO BE PRINTED            17100003
                            00002  1040+DCBFNCBT EQU   DCBBIT6 -      TWO-LINE PRINT SUPPORT REQUEST            17150003

         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1042+*                       OPTICAL READER AND MAGNETIC CHAR READER         18100000

000014                      00000  1044+         ORG   IHADCB                                                   18200000
000000                             1045+DCBWTOID DS    0A -           SAME AS DCBWTOIA BELOW                    18250000
000000                             1046+         DS    X -            RESERVED                                  18300000
000001                             1047+DCBWTOIA DS    AL3 -          A BINARY IDENTIFICATION NUMBER ASSIGNED   18350000
                                   1048+*                             BY COMMUNICATIONS TASK TO MESSAGE ISSUED  18400000
                                   1049+*                             BY WTO MACRO.  THIS NUMBER IS USED BY THE 18450000
                                   1050+*                             DOM MACRO WHEN MESSAGE IS NO LONGER       18500000
                                   1051+*                             REQUIRED (MCS SUPPORT).  ---              18550000
                                   1052+*                             FOR MAGNETIC CHAR READER - AFTER FIRST    18600000
                                   1053+*                             READ HAS BEEN ISSUED, CONTAINS ADDRESS OF 18650000
                                   1054+*                             MAGNETIC INTERRUPT CONTROL BLOCK (MICB)   18700000
                                   1055+*                             BEING USED BY THE APPENDAGES.             18750000

                                   1057+*                       OPTICAL READER DEVICES                          18900000
                                   1058+*                       1285, 1287, 1288, 3886                          18950003

000004                      00004  1060+         ORG   DCBWTOID+4                                               19050000
000004                             1061+DCBERRCN DS    0A -           SAME AS DCBERRCA BELOW                    19100000
000004                             1062+DCBERRCA DS    AL3 -          ADDRESS OF 32 BYTES OF DECLARED STORAGE   19200000
                                   1063+*                             SPECIFIED BY THE USER IN HIS PROGRAM.     19250000
                                   1064+*                             THIS STORAGE WILL BE USED BY THE          19300000
                                   1065+*                             PROGRAMMING SUPPORT AS EIGHT 4-BYTE       19350000
                                   1066+*                             COUNTERS IN WHICH TOTALS OF CERTAIN 1285, 19400000
                                   1067+*                             1287 AND 1288 ERROR CONDITIONS ARE        19450000
                                   1068+*                             ACCUMULATED.                              19500000
000007                      00004  1069+         ORG   DCBWTOID+4                                               19510003
000004                             1070+DCBLNNUM DS    X              3886  DOCUMENT LINE NUMBER                19520003
000005                             1071+DCBLFMAT DS    X              3886  LINE FORMAT NUMBER                  19530003
000006                             1072+DCBORFLG DS    X              3886  FLAGS                               19540003
                            00080  1073+DCBEOPFG EQU   DCBBIT0        END OF PAGE                               19540403
000007                             1074+         DS    X              RESERVED                                  19542003
000008                             1075+DCBDSPLY DS    0A -           SAME AS DCBDSPLA BELOW                    19550000
000008                             1076+DCBFRID  DS    0CL4           3886  FORMAT RECORD ID                    19560003
000008                             1077+         DS    X -            RESERVED                                  19600000
000009                             1078+DCBDSPLA DS    AL3 -          ADDRESS OF DSPLY (BSAM) ROUTINE USED FOR  19650000
                                   1079+*                             KEYBOARD ENTRY OF A COMPLETE FIELD        19700000
00000C                             1080+DCBRESCN DS    0A -           SAME AS DCBRESCA BELOW                    19750000
00000C                             1081+DCBRDLNE DS    0A -           SAME AS DCBRDLNA BELOW                    19800000
00000C                             1082+DCBFRTBA DS    0A             3886  FORMAT RECORD TABLE                 19810003
00000C                             1083+         DS    X -            RESERVED                                  19850000
00000D                             1084+DCBRESCA DS    0AL3 -         ADDRESS OF RESCN (BSAM) ROUTINE USED TO   19900000
                                   1085+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    19950000
                                   1086+*                             CHARACTERS                                20000000
00000D                             1087+DCBRDLNA DS    AL3 -          ADDRESS OF RDLNE (QSAM) ROUTINE USED TO   20050000
                                   1088+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    20100000
                                   1089+*                             CHARACTERS                                20150000
000010                             1090+DCBORBYT DS    BL1 -          OPTICAL READER BYTE USED BY BSAM/QSAM     20200000
                            00080  1091+DCBORSYN EQU   DCBBIT0 -      SYNAD IN CONTROL                          20250003
                            00040  1092+DCBOREOF EQU   DCBBIT1 -      END OF FILE (EOF)                         20300003
                            00020  1093+DCBORBFP EQU   DCBBIT2 -      BUFFERS PRIMED (QSAM)                     20350003
000011                             1094+         DS    C -            DCBDEVT - DEVICE TYPE                     20400000
                            0005A  1095+DCBDVOR5 EQU   X'5A' -        1285 OPTICAL READER                       20450000
                            0005B  1096+DCBDVOR7 EQU   X'5B' -        1287 OPTICAL READER                       20500000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            0005C  1097+DCBDVOR8 EQU   X'5C' -        1288 OPTICAL READER                       20550000
                            00057  1098+DCBDVOR9 EQU   X'57'          3886 OPTICAL READER                       20560003
000012                             1099+DCBEIB   DS    BL1 -          ERROR INDICATOR BYTE                      20600000
                            00040  1100+DCBORNRM EQU   DCBBIT1 -      THE 1287 OR 1288 SCANNER WAS UNABLE TO    20650003
                                   1101+*                             LOCATE THE REFERENCE MARK                 20700000
                            00020  1102+DCBORREJ EQU   DCBBIT2 -      FOR 1287, A STACKER SELECT COMMAND WAS    20750003
                                   1103+*                             GIVEN AFTER ALLOTTED TIME HAD ELAPSED AND 20800000
                                   1104+*                             THE DOCUMENT HAS BEEN PUT IN REJECT       20850000
                                   1105+*                             POCKET.  FOR 1288 UNFORMATTED ONLY,       20900000
                                   1106+*                             END-OF-PAGE HAS OCCURRED.                 20950000
                            00010  1107+DCBORERR EQU   DCBBIT3 -      A NONRECOVERABLE ERROR HAS OCCURRED.      21000003
                            00008  1108+DCBORECK EQU   DCBBIT4 -      AN EQUIPMENT CHECK RESULTED IN AN         21050003
                                   1109+*                             INCOMPLETE READ                           21100000
                            00004  1110+DCBORWLR EQU   DCBBIT5 -      A WRONG-LENGTH RECORD CONDITION HAS       21150003
                                   1111+*                             OCCURRED                                  21200000
                            00002  1112+DCBORHPR EQU   DCBBIT6 -      FOR QSAM - OPERATOR ENTERED ONE OR MORE   21250003
                                   1113+*                             CHARACTERS FROM THE KEYBOARD.             21300000
                                   1114+*                             FOR BSAM - A HOPPER EMPTY CONDITION HAS   21350000
                                   1115+*                             OCCURRED                                  21400000
                            00001  1116+DCBORDCK EQU   DCBBIT7 -      A DATA CHECK HAS OCCURRED                 21450003
000013                             1117+         DS    X -            RESERVED                                  21500000

                                   1119+*                       MAGNETIC CHARACTER READER DEVICES               21650000
                                   1120+*                       1419 MAGNETIC CHARACTER READER                  21700000
                                   1121+*                       1275 OPTICAL READER SORTER                      21750000
                                   1122+*                       3890 MAGNETIC CHARACTER READER                  21760003

000014                      00000  1124+         ORG   IHADCB                                                   21850000
000000                             1125+DCBSSID  DS    CL8 -          BEFORE DCB IS OPENED - NAME OF USER'S     21900000
                                   1126+*                             STACKER SELECT ROUTINE.                   21950000

000008                      00000  1128+         ORG   DCBSSID                                                  22050000
000000                             1129+         DS    A -            AFTER DCB IS OPENED - DCBWTOID            22100000
000004                             1130+DCBSSAD  DS    0A -           ADDRESS OF USER'S STACKER SELECT ROUTINE  22150000
000004                             1131+DCBIMG   DS    0A             3890  ADDR OF USER'S IMAGE PROC RTN       22160003
000004                             1132+         DS    X -            RESERVED                                  22200000
000005                             1133+DCBSSADA DS    AL3 -          ADDRESS OF USER'S STACKER SELECT ROUTINE  22250000
000008                             1134+DCBIMAGE DS    0A -           SAME AS DCBIMAGA BELOW                    22300000
000008                             1135+DCBMRFG  DS    BL1 -          BUFFER INDICATOR                          22350000
                            000C0  1136+DCBMRBCT EQU   DCBBIT0+DCBBIT1 -                                        22400003
                                   1137+*                             TWO-BIT BINARY COUNTER WHICH INDICATES    22410003
                                   1138+*                             INTO WHICH BUFFER STATUS INFORMATION IS   22450000
                                   1139+*                             TO BE POSTED                              22500000
000009                             1140+DCBIMAGA DS    AL3 -          ADDRESS OF PARAMETER LIST USED TO         22550000
                                   1141+*                             COMMUNICATE BETWEEN USER'S PROCESSING     22600000
                                   1142+*                             ROUTINES AND HIS STACKER SELECT ROUTINES  22650000
00000C                             1143+DCBECBLT DS    0A -           SAME AS DCBECBLA BELOW                    22700000
00000C                             1144+DCBHDR   DS    0A             3890  ADDR OF USER'S HEADER DATA AREA     22702003
00000C                             1145+DCBMRIND DS    BL1 -          INDICATOR AND COUNTER BYTE                22750000
                            000E0  1146+DCBMRDCT EQU   DCBBIT0+DCBBIT1+DCBBIT2                                  22800003
                                   1147+*                             THREE-BIT BINARY COUNTER OF NUMBER OF     22810003
                                   1148+*                             DOCUMENTS READ AFTER DISENGAGE            22850000
                            00010  1149+DCBMRSCU EQU   DCBBIT3 -      DCB WAS ALTERED WHEN SYNAD ROUTINE WAS    22900003
                                   1150+*                             ENTERED DUE TO SECONDARY CONTROL UNIT     22950000
                                   1151+*                             (SCU) ERROR                               23000000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00008  1152+DCBMRPLO EQU   DCBBIT4 -      POCKET LIGHT HAS BEEN TURNED ON           23050003
                            00004  1153+DCBMRPLS EQU   DCBBIT5 -      POCKET LIGHT 0-6 IS BEING SET ON          23100003
                            00002  1154+DCBMRERP EQU   DCBBIT6 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23150003
                                   1155+*                             PRIMARY CONTROL UNIT (PCU)                23200000
                            00001  1156+DCBMRERS EQU   DCBBIT7 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23250003
                                   1157+*                             SECONDARY CONTROL UNIT (SCU)              23300000
00000D                             1158+DCBECBLA DS    AL3 -          ADDRESS OF ECB LIST PASSED TO WAIT MACRO  23350000
                                   1159+*                             BY CHECK MACRO WHEN NO 1419/1275 IS       23400000
                                   1160+*                             AVAILABLE FOR PROCESSING                  23450000
000010                             1161+DCBMRFLG DS    BL1 -          FLAG BYTE                                 23500000
                            00080  1162+DCBMRSCC EQU   DCBBIT0 -      FIRST OR SECOND SECONDARY CONTROL UNIT    23550003
                                   1163+*                             COMMAND CHAIN IS BEING USED               23600000
                            00040  1164+DCBMRDBG EQU   DCBBIT1 -      DEBUGGING MODE IN USE                     23650003
                            00020  1165+DCBMRDRU EQU   DCBBIT2 -      DISENGAGE REQUESTED BY USER               23700003
                            00010  1166+DCBMRDR  EQU   DCBBIT3 -      DISENGAGE REQUESTED                       23750003
                            0000C  1167+DCBMRPCC EQU   DCBBIT4+DCBBIT5 -                                        23800003
                                   1168+*                             TWO-BIT BINARY COUNTER INDICATING FIRST,  23802003
                                   1169+*                             SECOND OR THIRD PRIMARY CONTROL UNIT      23850000
                                   1170+*                             COMMAND CHAIN IS BEING USED               23900000
                            00002  1171+DCBMRDWT EQU   DCBBIT6 -      WTO MESSAGE MUST BE DELETED               23950003
                            00001  1172+DCBMRUE  EQU   DCBBIT7 -      UNIT EXCEPTION                            24000003
000011                             1173+         DS    C -            DCBDEVT - DEVICE TYPE                     24050000
                            0005D  1174+DCBDVMR  EQU   X'5D' -        1419 MAGNETIC CHARACTER READER            24100000
                            0005F  1175+DCBDVORS EQU   X'5F' -        1275 OPTICAL READER SORTER                24150000
                            00056  1176+DCBDVMRS EQU   X'56'          3890 MAGNETIC CHARACTER READER SORTER     24160003
000012                             1177+DCBAPPIN DS    C -            AN INDICATOR USED BY THE APPENDAGES TO    24200000
                                   1178+*                             PASS INFORMATION ABOUT ONE CHANNEL CHAIN  24250000
                                   1179+*                             TO AN APPENDAGE ASSOCIATED WITH ANOTHER   24300000
                                   1180+*                             CHANNEL CHAIN                             24350000
000013                             1181+         DS    X -            RESERVED                                  24400000

                                   1183+*                       ACCESS METHOD COMMON INTERFACE                  24600000

000014                      00010  1185+         ORG   IHADCB+16                                                24700000
000010                             1186+DCBRELB  DS    0F -           SAME AS DCBREL BELOW                      24750000
000010                             1187+DCBKEYLE DS    FL1 -          KEY LENGTH OF DATA SET                    24800000
000011                             1188+DCBDEVT  DS    0C -           DEVICE TYPE                               24850000
                            0004F  1189+DCBDVTRM EQU   X'4F' -        TERMINAL.  (DD CONTAINS TERM=TS)          24900000
000011                             1190+DCBREL   DS    FL3 -          NUMBER OF RELATIVE TRACKS OR BLOCKS IN    24950000
                                   1191+*                             THIS DATA SET (BDAM)                      25000000
000014                             1192+DCBBUFCB DS    0A -           ADDRESS OF BUFFER POOL CONTROL BLOCK      25050000
000014                             1193+DCBBUFNO DS    FL1 -          NUMBER OF BUFFERS REQUIRED FOR THIS DATA  25100000
                                   1194+*                             SET.  MAY RANGE FROM 0 TO 255.  IF        25150000
                                   1195+*                             UNBLOCKED SPANNED RECORDS ARE USED,       25200000
                                   1196+*                             NUMBER OF SEGMENT WORK AREAS REQUIRED     25250000
                                   1197+*                             FOR THIS DATA SET.                        25300000
000015                             1198+DCBBUFCA DS    AL3 -          ADDRESS OF BUFFER POOL CONTROL BLOCK      25350000
000018                             1199+DCBBUFL  DS    H -            LENGTH OF BUFFER.  MAY RANGE FROM 0 TO    25400000
                                   1200+*                             32,767.                                   25450000
00001A                             1201+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED          25500000
00001A                             1202+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG                    25550000
                            00080  1203+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION      25600003
                            00040  1204+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION     25650003
                            00020  1205+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION                  25700003
                            00010  1206+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP              25750003
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00008  1207+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE     25800003
                            00004  1208+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE   25850003
                            00002  1209+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION             25900003
                            00001  1210+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS         25950003
                                   1211+*                                  LOCATION DEPENDENT INFORMATION       26000000
00001B                             1212+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG                   26050000
                            00080  1213+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION                26100003
                            00040  1214+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP                      26150003
                            00020  1215+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE                   26200003
                            00008  1216+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1 26250003
                            00004  1217+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024 26260003
00001C                             1218+DCBIOBAD DS    0A -           ADDRESS OF IOB WHEN CHAINED SCHEDULING IS 26300000
                                   1219+*                             USED OR FOR 1419/1275                     26350000
00001C                             1220+DCBODEB  DS    0A -           ADDRESS OF OLD DEB                        26400000
00001C                             1221+DCBLNP   DS    0FL1 -         3525 PRINTER LINE POSITION COUNTER        26450000
00001C                             1222+DCBQSLM  DS    BL1 -          QSAM LOCATE MODE LOGICAL RECORD INTERFACE 26500000
                                   1223+*                             INDICATOR BYTE FOR UPDAT PROCESSING OF    26550000
                                   1224+*                             SPANNED RECORDS                           26600000
                            00080  1225+DCB1DVDS EQU   DCBBIT0 -      ONLY ONE DEVICE IS ALLOCATED TO THIS      26650003
                                   1226+*                             DATA SET                                  26700000
                            00040  1227+DCBUPDCM EQU   DCBBIT1 -      UPDATE COMPLETE, FREE OLD DEB             26750003
                            00030  1228+DCBUPDBT EQU   DCBBIT2+DCBBIT3 -                                        26800003
                                   1229+*                             UPDATE BITS                               26810003
                            00020  1230+DCBUPDT  EQU   DCBBIT2 -      UPDATE TO TAKE PLACE                      26850003
                            00030  1231+DCBNUPD  EQU   DCBBIT2+DCBBIT3 -                                        26900003
                                   1232+*                             NO UPDATE TO TAKE PLACE                   26910003
                            00010  1233+DCBSVDEB EQU   DCBBIT3 -      OLD DEB ADDRESS MUST BE SAVED             26950003
00001D                             1234+DCBIOBAA DS    0AL3 -         SAME AS DCBIOBAD ABOVE                    27000000
00001D                             1235+DCBODEBA DS    AL3 -          ADDRESS OF OLD DEB                        27050000
000020                      0001C  1236+         ORG   IHADCB+28                                     ICBI DCB-4 27100000
00001C                             1237+DCBSVCXL DS    0A -           SAME AS DCBSVCXA BELOW         ICBI DCB-4 27150000
00001C                             1238+         DS    X -            RESERVED                       ICBI DCB-4 27200000
00001D                             1239+DCBSVCXA DS    AL3 -          POINTER TO EXIT LIST OF JES    ICBI DCB-4 27250000
                                   1240+*                             C.I. INTERFACE CONTROL SVC     ICBI DCB-4 27300000

                                   1242+*                       FOUNDATION EXTENSION                            27400000

000020                             1244+DCBEODAD DS    0A -           SAME AS DCBEODA BELOW                     27500000
000020                             1245+DCBHIARC DS    0BL1 -         HIERARCHY BITS                            27550000
000020                             1246+DCBBFTEK DS    0BL1 -         BUFFERING TECHNIQUE BITS                  27600000
000020                             1247+DCBBFALN DS    BL1 -          BUFFER ALIGNMENT BITS                     27650000
                            00080  1248+DCBH1    EQU   DCBBIT0 -      HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO  27700003
                            00070  1249+DCBBFT   EQU   DCBBIT1+DCBBIT2+DCBBIT3                                  27750003
                                   1250+*                             BUFFERING TECHNIQUE                       27760003
                            00060  1251+DCBBFTA  EQU   DCBBIT1+DCBBIT2 -                                        27800003
                                   1252+*                             QSAM LOCATE MODE PROCESSING OF SPANNED    27810003
                                   1253+*                             RECORDS - OPEN IS TO CONSTRUCT A RECORD   27850000
                                   1254+*                             AREA IF IT AUTOMATICALLY CONSTRUCTS       27900000
                                   1255+*                             BUFFERS                                   27950000
                            00020  1256+DCBBFTR  EQU   DCBBIT2 -      FOR BSAM CREATE BDAM PROCESSING OF        28000003
                                   1257+*                             UNBLOCKED SPANNED RECORDS - SOFTWARE      28050000
                                   1258+*                             TRACK OVERFLOW.  FOR BSAM INPUT           28100000
                                   1259+*                             PROCESSING OF UNBLOCKED SPANNED RECORDS   28150000
                                   1260+*                             WITH KEYS - RECORD OFFSET PROCESSING.     28200000
                            00040  1261+DCBBFTS  EQU   DCBBIT1 -      SIMPLE BUFFERING - BIT 3 IS ZERO          28250003
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00020  1262+DCBBFTKR EQU   DCBBIT2 -      UNBLOCKED SPANNED RECORDS - SOFTWARE      28300003
                                   1263+*                             TRACK OVERFLOW (BDAM)                     28350000
                            00010  1264+DCBBFTE  EQU   DCBBIT3 -      EXCHANGE BUFFERING - BIT 1 IS ZERO        28400003
                            00008  1265+DCBBFTKD EQU   DCBBIT4 -      DYNAMIC BUFFERING (BTAM)                  28450003
                            00004  1266+DCBH0    EQU   DCBBIT5 -      HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO  28500003
                            00003  1267+DCBBFA   EQU   DCBBIT6+DCBBIT7 -                                        28550003
                                   1268+*                             BUFFER ALIGNMENT                          28560003
                            00002  1269+DCBBFAD  EQU   DCBBIT6 -      DOUBLEWORD BOUNDARY                       28600003
                            00001  1270+DCBBFAF1 EQU   DCBBIT7 -      FULLWORD NOT A DOUBLEWORD BOUNDARY,       28650003
                                   1271+*                             CODED IN DCB MACRO INSTRUCTION            28700000
                            00003  1272+DCBBFAF2 EQU   DCBBIT6+DCBBIT7 -                                        28750003
                                   1273+*                             FULLWORD NOT A DOUBLEWORD BOUNDARY,       28760003
                                   1274+*                             CODED IN DCB MACRO INSTRUCTION            28800000
000021                             1275+DCBEODA  DS    AL3 -          ADDRESS OF A USER-PROVIDED ROUTINE TO     28850000
                                   1276+*                             HANDLE END-OF-DATA CONDITIONS             28900000
000024                             1277+DCBEXLST DS    0A -           ADDRESS OF USER-PROVIDED LIST OF EXITS    28950000
000024                             1278+DCBRECFM DS    BL1 -          RECORD FORMAT                             29000000
                            000E0  1279+DCBRECLA EQU   DCBBIT0+DCBBIT1+DCBBIT2  -                               29050003
                                   1280+*                             RECORD LENGTH INDICATOR - ASCII           29060003
                            00020  1281+DCBRECD  EQU   DCBBIT2 -      ASCII VARIABLE RECORD LENGTH              29100003
                            000C0  1282+DCBRECL  EQU   DCBBIT0+DCBBIT1 -                                        29150003
                                   1283+*                             RECORD LENGTH INDICATOR                   29160003
                            00080  1284+DCBRECF  EQU   DCBBIT0 -      FIXED RECORD LENGTH                       29200003
                            00040  1285+DCBRECV  EQU   DCBBIT1 -      VARIABLE RECORD LENGTH                    29250003
                            000C0  1286+DCBRECU  EQU   DCBBIT0+DCBBIT1 -                                        29300003
                                   1287+*                             UNDEFINED RECORD LENGTH                   29310003
                            00020  1288+DCBRECTO EQU   DCBBIT2 -      TRACK OVERFLOW                            29350003
                            00010  1289+DCBRECBR EQU   DCBBIT3 -      BLOCKED RECORDS                           29400003
                            00008  1290+DCBRECSB EQU   DCBBIT4 -      FOR FIXED LENGTH RECORD FORMAT - STANDARD 29450003
                                   1291+*                             BLOCKS.  FOR VARIABLE LENGTH RECORD       29500000
                                   1292+*                             FORMAT - SPANNED RECORDS                  29550000
                            00006  1293+DCBRECCC EQU   DCBBIT5+DCBBIT6 -                                        29600003
                                   1294+*                             CONTROL CHARACTER INDICATOR               29610003
                            00004  1295+DCBRECCA EQU   DCBBIT5 -      ASA CONTROL CHARACTER                     29650003
                            00002  1296+DCBRECCM EQU   DCBBIT6 -      MACHINE CONTROL CHARACTER                 29700003
                            00000  1297+DCBRECC  EQU   X'00' -        NO CONTROL CHARACTER                      29750000
                            00001  1298+DCBRECKL EQU   DCBBIT7 -      KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB  29800003
                                   1299+*                             MACRO INSTRUCTION                         29850000
000025                             1300+DCBEXLSA DS    AL3 -          ADDRESS OF USER-PROVIDED LIST OF EXITS    29900000


                                   1303+*                       FOUNDATION BEFORE OPEN                          47150000

000028                      00028  1305+         ORG   IHADCB+40                                                47250000
000028                             1306+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES    47300000
                                   1307+*                             THE DATA SET ASSOCIATED WITH THIS DCB     47350000
000030                             1308+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE                47400000
                            00080  1309+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR   47450003
                                   1310+*                             POINT.  IF ONE, LAST I/O OPERATION WAS    47500000
                                   1311+*                             WRITE.                                    47550000
                            00080  1312+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR     47600003
                                   1313+*                             OUTPUT (BDAM)                             47650000
                            00040  1314+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD   47700003
                                   1315+*                             MODE                                      47750000
                            00020  1316+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE       47800003
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1317+*                             ROUTINE FOR CONCATENATION OF DATA SETS    47850000
                                   1318+*                             WITH UNLIKE ATTRIBUTES                    47900000
                            00010  1319+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED   47950003
                            00008  1320+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 48000003
                                   1321+*                             CONCATENATION OF UNLIKE ATTRIBUTES        48050000
                            00004  1322+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ                   48100003
                            00002  1323+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN  48150003
                                   1324+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1 48200000
                                   1325+*                             ON RETURN FROM USER EXIT TO THE I/O       48250000
                                   1326+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.     48300000
                            00001  1327+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF    48350003
                                   1328+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION   48400000
000031                             1329+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR  48450000
                                   1330+*                             CONDITIONS AND IN DETERMINING CORRECTIVE  48500000
                                   1331+*                             PROCEDURES                                48550000
                            000C0  1332+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -                                        48600003
                                   1333+*                             ERROR CORRECTION INDICATOR                48610003
                            00000  1334+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE                    48650000
                            00040  1335+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN       48700003
                                   1336+*                             PROCESS                                   48750000
                            000C0  1337+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -                                        48800003
                                   1338+*                             PERMANENT ERROR CORRECTION                48810003
                            00030  1339+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -                                        48850003
                                   1340+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     48860003
                            00020  1341+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH     48900003
                                   1342+*                             SENSED                                    48950000
                            00010  1343+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH    49000003
                                   1344+*                             SENSED                                    49050000
                            0000C  1345+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -                                        49100003
                                   1346+*                             IOS ERROR ROUTINE USE INDICATOR           49110003
                            00000  1347+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE   49150000
                            00004  1348+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49200003
                            00004  1349+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE  49250003
                                   1350+*                             (BTAM)                                    49300000
                            00008  1351+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49350003
                            0000C  1352+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -                                        49400003
                                   1353+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE    49410003
000032                             1354+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE               49450000
000032                             1355+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR                     49500000
                            00080  1356+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---        49550003
                                   1357+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,     49600000
                                   1358+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)    49650000
                            00040  1359+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)    49700003
                            00040  1360+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)                   49750003
                            00040  1361+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---          49800003
                                   1362+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 49850000
                                   1363+*                             RESERVED (BTAM)                           49900000
                            00020  1364+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)            49950003
                            00020  1365+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)      50000003
                            00020  1366+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---           50050003
                                   1367+*                             ALWAYS ZERO (QSAM, QISAM)                 50100000
                            00010  1368+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)                   50150003
                            00010  1369+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)            50200003
                            00010  1370+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---          50250003
                                   1371+*                             ALWAYS ZERO (BISAM) ---                   50300000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1372+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)         50350000
                            00008  1373+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)          50400003
                            00008  1374+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---          50450003
                                   1375+*                             ALWAYS ZERO (BISAM) ---                   50500000
                                   1376+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   50550000
                            00004  1377+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK   50600003
                                   1378+*                             COUNT (EXCP)                              50650000
                            00004  1379+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   50700003
                            00004  1380+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)             50750003
                            00004  1381+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---       50800003
                                   1382+*                             ALWAYS ZERO (QISAM) ---                   50850000
                                   1383+*                             RESERVED (QTAM, BTAM)                     50900000
                            00002  1384+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)    50950003
                            00002  1385+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        51000003
                            00002  1386+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)                             51050003
                            00002  1387+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---                 51100003
                                   1388+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)        51150000
                            00001  1389+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)                   51200003
                            00001  1390+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,    51250003
                                   1391+*                             BPAM, BISAM, QISAM, QTAM, BTAM)           51300000
000033                             1392+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR                    51350000
                            00080  1393+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM, 51400003
                                   1394+*                             BPAM, BISAM, BDAM) ---                    51450000
                                   1395+*                             RESERVED (EXCP, QTAM, BTAM)               51500000
                            00040  1396+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)    51550003
                            00040  1397+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---          51600003
                                   1398+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 51650000
                                   1399+*                             RESERVED (EXCP, BTAM)                     51700000
                            00020  1400+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)     51750003
                            00020  1401+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---            51800003
                                   1402+*                             ALWAYS ZERO (QSAM, QISAM) ---             51850000
                                   1403+*                             RESERVED (EXCP)                           51900000
                            00010  1404+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)            51950003
                            00010  1405+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---         52000003
                                   1406+*                             ALWAYS ZERO (BISAM) ---                   52050000
                                   1407+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   52100000
                            00008  1408+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)         52150003
                            00008  1409+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)     52200003
                                   1410+*                             (BSAM)                                    52250000
                            00008  1411+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)          52300003
                            00008  1412+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---         52350003
                                   1413+*                             ALWAYS ZERO (BISAM) ---                   52400000
                                   1414+*                             RESERVED (BPAM, QTAM, BTAM)               52450000
                            00004  1415+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)         52500003
                            00004  1416+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   52550003
                            00004  1417+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)                    52600003
                            00004  1418+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---        52650003
                                   1419+*                             ALWAYS ZERO (BISAM) ---                   52700000
                                   1420+*                             RESERVED (BDAM, QTAM, BTAM)               52750000
                            00002  1421+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)        52800003
                            00002  1422+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        52850003
                            00002  1423+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)                       52900003
                            00002  1424+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---              52950003
                                   1425+*                             ALWAYS ZERO (BISAM) ---                   53000000
                                   1426+*                             RESERVED (BPAM, QTAM, BTAM)               53050000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00001  1427+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)          53100003
                            00001  1428+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT     53150003
                                   1429+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)   53200000
                            00001  1430+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)                          53250003
                            00001  1431+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---                    53300003
                                   1432+*                             ALWAYS ZERO (BISAM) ---                   53350000
                                   1433+*                             RESERVED (BPAM, QTAM, BTAM)               53400000

                                   1435+*                       FOUNDATION AFTER OPEN                           53500000

000034                      00028  1437+         ORG   IHADCB+40                                                53600000
000028                             1438+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD 53650000
                                   1439+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED 53700000
                                   1440+*                             WITH THIS DCB                             53750000
00002A                             1441+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN               53800000
00002A                             1442+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF                    53850000
00002B                             1443+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF                   53900000
00002C                             1444+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB                 53950000
00002C                             1445+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN               54000000
                            000C0  1446+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -                                        54050003
                                   1447+*                             ERROR CORRECTION INDICATOR                54060003
                            00030  1448+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -                                        54100003
                                   1449+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     54110003
                            0000C  1450+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -                                        54150003
                                   1451+*                             IOS ERROR ROUTINE USE INDICATOR           54160003
00002D                             1452+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB                 54200000

000030                      00030  1454+         ORG   IHADCB+48                                                54350000
000030                             1455+DCBREAD  DS    0A -           ADDRESS OF READ MODULE                    54400000
000030                             1456+DCBWRITE DS    A -            ADDRESS OF WRITE MODULE                   54450000

                                   1458+*                       QSAM-BSAM-BPAM COMMON INTERFACE                 77750000

000034                      00034  1460+         ORG   IHADCB+52                                                77850000
000034                             1461+DCBGERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  77950000
000034                             1462+DCBPERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  78000000
000034                             1463+DCBCHECK DS    0A -           ADDRESS OF CHECK MODULE                   78050000
000034                             1464+DCBOPTCD DS    BL1 -          OPTION CODES                              78150000
                            00080  1465+DCBOPTW  EQU   DCBBIT0 -      WRITE VALIDITY CHECK (DASD)               78500003
                                   1466+*                             (BSAM, BPAM, QSAM, ISAM, BDAM)            78550000
                            00040  1467+DCBOPTU  EQU   DCBBIT1 -      ALLOW DATA CHECK CAUSED BY INVALID        78600003
                                   1468+*                             CHARACTER (1403 PRINTER WITH UCS FEATURE) 78650000
                                   1469+*                             (BSAM, BPAM, QSAM)                        78700000
                            00020  1470+DCBOPTC  EQU   DCBBIT2 -      CHAINED SCHEDULING USING PCI              78750003
                                   1471+*                             (BSAM, BPAM, QSAM)                        78800000
                            00010  1472+DCBOPTH  EQU   DCBBIT3 -      1287/1288 OPTICAL READER - HOPPER EMPTY   78850003
                                   1473+*                             EXIT (BSAM, BPAM)                         78900000
                            00010  1474+DCBOPTO  EQU   DCBBIT3 -      1285/1287 OPTICAL READER - ON-LINE        78950003
                                   1475+*                             CORRECTION (QSAM)                         79000000
                            00010  1476+DCBBCKPT EQU   DCBBIT3 -      CHANNEL-END APPENDAGE IS TO BYPASS DOS    79050003
                                   1477+*                             EMBEDDED CHECKPOINT RECORDS ON TAPE       79100000
                                   1478+*                             (BSAM, QSAM)                       ICB226 79150000
                            00008  1479+DCBOPTQ  EQU   DCBBIT4 -      TRANSLATION TO OR FROM ASCII              79200003
                                   1480+*                             (BSAM, BPAM, QSAM)                        79250000
                            00004  1481+DCBOPTZ  EQU   DCBBIT5 -      MAGNETIC TAPE DEVICES - USE REDUCED ERROR 79300003
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1482+*                             RECOVERY PROCEDURE (EXCP, BSAM, BPAM,     79350000
                                   1483+*                             QSAM)                                     79400000
                            00004  1484+DCBSRCHD EQU   DCBBIT5 -      USE SEARCH DIRECT, INSTEAD OF SEARCH      79450003
                                   1485+*                             PREVIOUS, ON RECORD POSITION SENSING      79500000
                                   1486+*                             DEVICE  (EXCP, BSAM, BPAM, QSAM)   ICB217 79550000
                            00002  1487+DCBOPTT  EQU   DCBBIT6 -      USER TOTALING (BSAM, QSAM)                79600003
000035                             1488+DCBGERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  79700000
000035                             1489+DCBPERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  79750000
000035                             1490+DCBCHCKA DS    AL3 -          ADDRESS OF CHECK MODULE                   79800000
000038                             1491+DCBSYNAD DS    0A -           ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80050000
000038                             1492+DCBIOBL  DS    FL1 -          IOB LENGTH IN DOUBLE WORDS                80100000
000039                             1493+DCBSYNA  DS    AL3 -          ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80150000
00003C                             1494+DCBFLAG1 DS    0BL1           TCAM APPLICATION PROGRAM FLAGS ICBI DCB-3 80460000
                                   1495+*                             (BSAM, BPAM, QSAM)                        80470000
00003C                             1496+DCBCIND1 DS    BL1 -          CONDITION INDICATORS                      80500000
                            00080  1497+DCBCNTOV EQU   DCBBIT0 -      DIRECT ACCESS - TRACK OVERFLOW IN USE     80550003
                                   1498+*                             (BSAM, BPAM, QSAM)                        80600000
                                   1499+*                             2540 CARD PUNCH - DATA SET WAS OPENED BUT 80650000
                                   1500+*                             NO DATA WAS WRITTEN (QSAM)                80700000
                            00080  1501+DCBSTQCK EQU   DCBBIT0 -      STOP EQUAL QUICK WAS SPECIFIED FOR        80710003
                                   1502+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80720000
                            00040  1503+DCBSTFLS EQU   DCBBIT1 -      STOP EQUAL FLUSH WAS SPECIFIED FOR        80730003
                                   1504+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80740000
                            00040  1505+DCBCNSRD EQU   DCBBIT1 -      SEARCH DIRECT (BSAM, BPAM, QSAM)          80750003
                            00020  1506+DCBCNEVB EQU   DCBBIT2 -      END OF VOLUME - USED BY EOB ROUTINES      80800003
                                   1507+*                             (BSAM, BPAM, QSAM)                        80850000
                            00010  1508+DCBCNEVA EQU   DCBBIT3 -      END OF VOLUME - USED BY CHANNEL-END       80900003
                                   1509+*                             APPENDAGE ROUTINES (BSAM, BPAM, QSAM)     80950000
                            00004  1510+DCBCNBRM EQU   DCBBIT5 -      BLOCKED RECORD BIT MODIFIED (BSAM,BPAM,   81000003
                                   1511+*                             QSAM)                          ICBI DCB-2 81050000
                            00001  1512+DCBCNEXB EQU   DCBBIT7 -      EXCHANGE BUFFERING SUPPORTED (QSAM)       81100003
00003D                             1513+DCBCIND2 DS    BL1 -          CONDITION INDICATORS                      81150000
                            00080  1514+DCBCNSTO EQU   DCBBIT0 -      PARTITIONED DATA SET - STOW HAS BEEN      81200003
                                   1515+*                             PERFORMED (BSAM, BPAM, QSAM)              81250000
                                   1516+*                             SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM) 81300000
                            00040  1517+DCBCNWR0 EQU   DCBBIT1 -      DIRECT ORGANIZATION DATA SET - LAST I/O   81350003
                                   1518+*                             WAS A WRITE RECORD ZERO                   81400000
                                   1519+*                             (BSAM, BPAM, QSAM)                        81450000
                                   1520+*                             SEQUENTIAL DATA SET - UPDATE EOF IS       81500000
                                   1521+*                             INDICATED (BSAM, BPAM)                    81550000
                            00020  1522+DCBCNCLO EQU   DCBBIT2 -      CLOSE IN PROCESS (QSAM)                   81600003
                            00010  1523+DCBCNIOE EQU   DCBBIT3 -      PERMANENT I/O ERROR (BSAM, BPAM, QSAM)    81650003
                            00008  1524+DCBCNBFP EQU   DCBBIT4 -      OPEN ACQUIRED BUFFER POOL                 81700003
                                   1525+*                             (BSAM, BPAM, QSAM)                        81750000
                            00004  1526+DCBCNCHS EQU   DCBBIT5 -      CHAINED SCHEDULING BEING SUPPORTED        81800003
                                   1527+*                             (BSAM, BPAM, QSAM)                        81850000
                            00002  1528+DCBCNFEO EQU   DCBBIT6 -      FEOV BIT (BSAM, BPAM, QSAM)               81900003
                            00001  1529+DCBCNQSM EQU   DCBBIT7 -      ALWAYS ZERO (BSAM, BPAM)                  81950003
                                   1530+*                             THIS IS A QSAM DCB (QSAM)                 82000000
00003E                             1531+DCBBLKSI DS    H -            MAXIMUM BLOCK SIZE                        82100000
000040                             1532+DCBWCPO  DS    AL1 -          OFFSET OF WRITE CHANNEL PROGRAM FROM THE  82350000
                                   1533+*                             START OF IOB                              82400000
000041                             1534+DCBWCPL  DS    FL1 -          LENGTH OF WRITE CHANNEL PROGRAM           82450000
000042                             1535+DCBOFFSR DS    AL1 -          OFFSET OF READ CCW FROM BSAM/BPAM PREFIX  82500000
                                   1536+*                             OF IOB                                    82550000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

000043                             1537+DCBOFFSW DS    AL1 -          OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX 82600000
                                   1538+*                             OF IOB                                    82650000
000044                             1539+DCBIOBA  DS    A -            FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR 82700000
                                   1540+*                             BSAM/BPAM PREFIX OF IOB.  FOR CHAINED     82750000
                                   1541+*                             SCHEDULING, ADDRESS OF ICB.  FOR          82800000
                                   1542+*                             1419/1275, ADDRESS OF MAGNETIC INTERRUPT  82850000
                                   1543+*                             CONTROL BLOCK (MICB) CURRENTLY BEING      82900000
                                   1544+*                             PROCESSED BY READ ROUTINE.  FOR TSO       82950000
                                   1545+*                             TERMINAL DATA SET OPENED FOR INPUT AND    83000000
                                   1546+*                             FORMAT U, SIMULATED LOW-ORDER FOUR BYTES  83050000
                                   1547+*                             OF IOBCSW                                 83100000

000048                      00044  1549+         ORG   IHADCB+68                                         ICB354 83160000
000044                             1550+DCBCICB  DS    0A -           SAME AS DCBCICBA BELOW             ICB354 83200000
000044                             1551+         DS    X -            DCBNCP  (BSAM,BPAM)                ICB354 83250000
000045                             1552+DCBCICBA DS    AL3 -          POINTER TO JES C.I.                ICB354 83300000
                                   1553+*                             CONTROL BLOCK (CICB)               ICB354 83350000

000048                      00050  1555+         ORG   IHADCB+80                                     ICBI DCB-4 83450000
000050                             1556+DCBDIRCT DS    0H -           NUMBER OF BYTES USED IN LAST DIRECTORY    83500000
                                   1557+*                             BLOCK (RANGE 0-254)  (BSAM, BPAM)  ICB295 83550000
000050                             1558+DCBQSWS  DS    0BL1 -         FLAG BYTE                          ICB295 83600000
                            00004  1559+DCBPOPEN EQU   DCBBIT5 -      QSAM PARALLEL INPUT PROCESSING            83610003
000050                             1560+DCBUSASI DS    B -            FLAG BYTE FOR ASCII TAPES                 83650000
                            00040  1561+DCBBLBP  EQU   DCBBIT1 -      BLOCK PREFIX IS FOUR BYTE FIELD           83700003
                                   1562+*                             CONTAINING BLOCK LENGTH IN UNPACKED       83750000
                                   1563+*                             DECIMAL (SPECIFIED BY BUFFER=L).          83800000
                            00038  1564+DCBQADFS EQU   DCBBIT2+DCBBIT3+DCBBIT4                                  83850003
                                   1565+*                             USED TO PERFORM SEQUENCE CHECKING WITH    83860003
                                   1566+*                             MULTIPLE FUNCTION SUPPORT FOR 3525        83900000
                                   1567+*                             (BSAM, QSAM)                              83950000
                            00020  1568+DCBQADF1 EQU   DCBBIT2 -      FIRST BIT OF DCBQADFS                     84000003
                            00010  1569+DCBQADF2 EQU   DCBBIT3 -      SECOND BIT OF DCBQADFS                    84050003
                            00008  1570+DCBQADF3 EQU   DCBBIT4 -      THIRD BIT OF DCBQADFS                     84100003
                            00001  1571+DCBQSTRU EQU   DCBBIT7 -      TRUNC ENTRY POINT ENTERED (QSAM)          84150003
000051                             1572+DCBBUFOF DS    0FL1 -         BLOCK PREFIX LENGTH (0-99), SPECIFIED BY  84200000
                                   1573+*                             BUFOFF=N OR BUFOFF=L                      84250000
000051                             1574+DCBDIRCQ DS    FL1 -          NUMBER OF BYTES USED IN LAST DIRECTORY    84300000
                                   1575+*                             BLOCK (RANGE 0-254)  (QSAM)        ICB295 84350000

                                   1577+*                       BSAM-BPAM INTERFACE                             84500000

000052                      00048  1579+         ORG   IHADCB+72                                                84600000
000048                             1580+DCBEOBR  DS    0A -           ADDRESS OF END-OF-BLOCK MODULE FOR READ   84650000
000048                             1581+DCBNCP   DS    FL1 -          NUMBER OF CHANNEL PROGRAMS.               84750000
                                   1582+*                             NUMBER OF READ OR WRITE REQUESTS WHICH    85000000
                                   1583+*                             MAY BE ISSUED PRIOR TO A CHECK, NUMBER    85050000
                                   1584+*                             OF IOB'S GENERATED.  (99 MAXIMUM)         85100000
000049                             1585+DCBEOBRA DS    AL3 -          ADDRESS OF END-OF-BLOCK MODULE FOR READ   85150000
00004C                             1586+DCBEOBW  DS    A -            ADDRESS OF END-OF-BLOCK MODULE FOR WRITE. 85200000
                                   1587+*                             FOR BSAM CREATE BDAM PROCESSING OF        85250000
                                   1588+*                             UNBLOCKED SPANNED RECORDS WITH BKTEK=R    85300000
                                   1589+*                             SPECIFIED, ADDRESS OF SEGMENT WORK AREA   85350000
                                   1590+*                             CONTROL BLOCK                             85400000
000050                             1591+         DS    H -            DCBDIRCT - NUMBER OF BYTES USED IN LAST   85450000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1592+*                             DIRECTORY BLOCK  (RANGE 0-254)     ICB295 85500000
000052                             1593+DCBLRECL DS    H -            LOGICAL RECORD LENGTH                     85600000
000054                             1594+DCBCNTRL DS    0A -           ADDRESS OF CNTRL MODULE                   85850000
000054                             1595+DCBNOTE  DS    0A -           ADDRESS OF NOTE/POINT MODULE              85900000
000054                             1596+DCBPOINT DS    A -            ADDRESS OF NOTE/POINT MODULE              85950000

         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1599 ******************************************************************
                                   1600 *                                                                *
                                   1601 *        Data Event Control Block (DECB).                        *
                                   1602 *                                                                *
                                   1603 ******************************************************************

                                   1605 *        IHADECB ,                 MAP DECB
000000                             1606 DECB     DSECT ,
000000                             1607          DS    F                   ECB
000004                             1608          DS    H                   TYPE
000008                             1609          DS    A                   DCB ADDRESS
00000C                             1610          DS    A                   AREA ADDRESS
000010                             1611 DECIOBPT DS    A                   ADDRESS OF IOB
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1613 ******************************************************************
                                   1614 *                                                                *
                                   1615 *        Input/Output Block (IOB).                               *
                                   1616 *                                                                *
                                   1617 ******************************************************************

                                   1619 *        IEZIOB ,                  MAP IOB
000000                             1620 IOB      DSECT                                                          00500000
                                   1621 *                                                                       00592020
                                   1622 *    RELEASE 20.2, 3/29/71, LEVEL=1                                     00594020
                                   1623 *    RELEASE 21, 3/30/71, LEVEL=1                                       00594421
                                   1624 *                                                                       00596020
                                   1625 *********************************************************************** 00600000
                                   1626 *                                                                     * 00700000
                                   1627 *                    PREFIX SECTIONS OF THE IOB                       * 00800000
                                   1628 *                                                                     * 00900000
                                   1629 *********************************************************************** 01000000



000000                             1631 IOBPREFX DS    0D                                                       01200000

                                   1633 *                            ****************************************** 01400000
                                   1634 *                            *                                        * 01500000
000000                             1635 IOBQSAMC DS    0D *          *        QSAM,BSAM,BPAM PREFIX           * 01600000
000000                             1636 IOBBSAMC DS    0D *          *     CHAINED SCHEDULING ** 16 BYTES     * 01700000
000000                             1637 IOBBPAMC DS    0D *          *                                        * 01800000
                                   1638 *                            ****************************************** 01900000


000000                             1640 IOBCFLG1 DS    B                                                        02200000
                                   1641 *                                                                       02300000
                            00008  1642 IOBPTST  EQU   X'08' --- NOTE OR POINT OPERATION IS IN PROCESS          02350021
                            00004  1643 IOBABAPP EQU   X'04' --- ERROR PROCESSED ONCE BY ABMORMAL-END APPENDAGE 02400000
                            00002  1644 IOBRSTCH EQU   X'02' --- RESTART CHANNEL                                02500000
                            00001  1645 IOBPCI   EQU   X'01' --- PCI INTERRUPT HAS OCCURRED                     02600000
000001                             1646          DS    XL1 ----- RESERVED                                       02700000

000002                             1648 IOBCINOP DS    CL1 ----- OFFSET OF LAST I/O COMMAND FOR  INPUT          02900000
                                   1649 *                        OPERATION(NOP CCW) FROM THE ICB ORIGIN         03000000
000003                             1650 IOBCONOP DS    CL1 ----- OFFSET OF LAST I/O COMMAND FOR  OUTPUT         03100000
                                   1651 *                        OPERATION(NOP CCW) FROM THE ICB ORIGIN         03200000
000004                             1652 IOBCECB  DS    F ------- EVENT CONTROL BLOCK                            03300000
000008                             1653 IOBCICB  DS    A ------- ADDR.OF FIRST ICB ON QUEUE                     03400000
00000C                             1654 IOBCNOPA DS    A ------- ADDR.OF NOP COMMAND AT END OF QUEUE            03500000


000010                      00008  1656          ORG   IOBPREFX+8                                               03700000


                                   1658 *                            ****************************************** 03900000
                                   1659 *                            *                                        * 04000000
000008                             1660 IOBQSAMN DS    0D *          *        QSAM,BSAM,BPAM PREFIX           * 04100000
000008                             1661 IOBBSAMN DS    0D *          *    NORMAL SCHEDULING *** 8 BYTES       * 04200000
000008                             1662 IOBBPAMN DS    0D *          *                                        * 04300000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1663 *                            ****************************************** 04400000

                                   1665 *                                                                       04600000
000008                             1666 IOBNIOBA DS    0A ------ ADDR.NEXT IOB ON CHAIN                         04700000
000008                             1667 IOBNFLG1 DS    B                                                        04800000
                                   1668 *                                                                       04900000
                            00080  1669 IOBPRTOV EQU   X'80' --- 'PRTOV' HAS OCCURRED                           05000000
                            00040  1670 IOBWRITE EQU   X'40' --- 'WRITE' OPERATION IN PROCESS                   05100000
                            00020  1671 IOBREAD  EQU   X'20' --- 'READ' OPERATION IN PROCESS                    05200000
                            00010  1672 IOBUPDAT EQU   X'10' --- BLOCK IS TO BE UPDATED                         05300000
                            00008  1673 IOBBKSPC EQU   X'08' --- IOB BEING USED FOR BACKSPACE,CONTROL,NOTE/PT.  05400000
                            00004  1674 IOBSPAN  EQU   X'04' --- THIS RECORD IS A SPANNED RECORD                05500000
                            00001  1675 IOBFIRST EQU   X'01' --- THIS IS FIRST IOB ON CHAIN                     05600000
                                   1676 *                                                                       05700000
000009                             1677 IOBNIOBB DS    AL3 ----- ADDR.NEXT IOB ON CHAIN                         05800000

00000C                             1679 IOBNECB  DS    F ------- EVENT CONTROL BLOCK                            06000000


000010                      00008  1681          ORG   IOBPREFX+8                                               06200000


                                   1683 *                            ****************************************** 06500000
                                   1684 *                            *                                        * 06600000
000008                             1685 IOBBDAM  DS    0D *          *       BDAM PREFIX *** 8 BYTES          * 06700000
                                   1686 *                            *                                        * 06800000
                                   1687 *                            ****************************************** 06900000

                                   1689 *                                                                       07100000
000008                             1690 IOBDQADA DS    0A ------ ADDR.OF IOB WAITING TO DEQUEUE TRACKS          07200000
                                   1691 *                        OCCUPIED BY SPANNED RECORDS                    07300000
000008                             1692 IOBDEQIN DS    B ------- DEQUEUE LOOP INDICATOR                         07400000
                            00080  1693 IOBDEQ   EQU   X'80' --- TASK WITH SPANNED RECORD BEING DEQUEUED        07500000
000009                             1694 IOBDQADB DS    AL3 ----- ADDR.OF IOB WAITING TO DEQUEUE TRACKS          07600000
                                   1695 *                        OCCUPIED BY SPANNED RECORDS                    07700000
00000C                             1696 IOBSWAP  DS    A ------- ADDR.OF SPANNED WORK AREA                      07800000


000010                      0000C  1698          ORG   IOBPREFX+12                                              08100000


                                   1700 *                            ****************************************** 08400000
                                   1701 *                            *                                        * 08500000
                            0000C  1702 IOBGAM   EQU   * *           *                                        * 08600000
                            0000C  1703 IOBQISAM EQU   * *           *       GAM,QISAM PREFIX *** 4 BYTES     * 08700000
                                   1704 *                            ****************************************** 08800000
                                   1705 *                                                                       08900000
                                   1706 *                                                                       09000000
00000C                             1707 IOBGQECB DS    F --- EVENT CONTROL BLOCK                                09100000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1709 *********************************************************************** 09300000
                                   1710 *                                                                     * 09400000
                                   1711 *                    STANDARD SECTION OF THE IOB                      * 09500000
                                   1712 *                                                                     * 09600000
                                   1713 *********************************************************************** 09700000



000010                             1715 IOBSTDRD DS    0D                                                       09900000

000010                             1717 IOBFLAG1 DS    B                                                        10100000
                                   1718 *                                                                       10200000
                            00080  1719 IOBDATCH EQU   X'80' --- DATA CHAINING USED IN CHANNEL PROGRAM          10300000
                            00040  1720 IOBCMDCH EQU   X'40' --- COMMAND CHAINING USED IN CHANNEL PROGRAM       10400000
                            00020  1721 IOBERRTN EQU   X'20' --- ERROR ROUTINE IS IN CONTROL                    10500000
                            00010  1722 IOBRPSTN EQU   X'10' --- DEVICE IS TO BE REPOSITIONED                   10600000
                            00008  1723 IOBCYCCK EQU   X'08' --- CYCLIC REDUNDANCY CHECK NEEDED(TAPE ONLY)      10700000
                            00008  1724 IOBFCREX EQU   X'08' --- FETCH COMMAND RETRY EXIT (DIRECT ACCESS ONLY)  10750020
                            00004  1725 IOBIOERR EQU   X'04' --- I/O ERROR HAS OCCURRED                         10800000
                            00002  1726 IOBUNREL EQU   X'02' --- THIS I/O REQUEST IS UNRELATED(NON-SEQUENTIAL)  10900000
                            00001  1727 IOBRSTRT EQU   X'01' --- RESTART ADDR.IN IOB TO BE USED                 11000000

000011                             1729 IOBFLAG2 DS    B                                                        11200000
                                   1730 *                                                                       11300000
                            00080  1731 IOBHALT  EQU   X'80' --- HALT I/O HAS BEEN ISSUED BY SVC PURGE ROUTINE  11400000
                            00040  1732 IOBSENSE EQU   X'40' --- ISSUE SENSE COMMAND AFTER DEVICE END OCCURS    11500000
                            00020  1733 IOBPURGE EQU   X'20' --- IOB HAS BEEN PURGED *ALLOW I/O TO QUIESCE      11600000
                            00010  1734 IOBRDHA0 EQU   X'10' --- HOME ADDRESS TO BE READ * NO SEEK NEEDED       11700000
                            00008  1735 IOBALTTR EQU   X'08' --- NO TEST FOR OUT-OF-EXTENT * AN ALTERNATE TRACK 11800000
                                   1736 *                        IS IN USE                                      11900000
                            00004  1737 IOBSKUPD EQU   X'04' --- SEEK ADDRESS IS BEING UPDATED -CYLINDER END    12000000
                                   1738 *                        OR FILE MASK VIOLATION HAS OCCURRED            12100000
                            00002  1739 IOBSTATO EQU   X'02' --- DEVICE END STATUS HAS BEEN ORED WITH           12200000
                                   1740 *                        CHANNEL END STATUS - GRAPHICS DEVICE           12300000
                            00001  1741 IOBPNCH  EQU   X'01' --- TURNED ON BY QSAM WHEN ERROR RECOVERY IS TO    12400000
                                   1742 *                        BE PROVIDED FOR THE 2540 CARD PUNCH            12500000

000012                             1744 IOBSENS0 DS    B ------- FIRST SENSE BYTE                               12700000
                            00080  1745 IOBS0B0  EQU   X'80' --- BIT 0 (DEVICE DEPENDENT)                       12750020
                            00040  1746 IOBS0B1  EQU   X'40' --- BIT 1 (DEVICE DEPENDENT)                       12760020
                            00020  1747 IOBS0B2  EQU   X'20' --- BIT 2 (DEVICE DEPENDENT)                       12770020
                            00010  1748 IOBS0B3  EQU   X'10' --- BIT 3 (DEVICE DEPENDENT)                       12780020
                            00008  1749 IOBS0B4  EQU   X'08' --- BIT 4 (DEVICE DEPENDENT)                       12790020
                            00004  1750 IOBS0B5  EQU   X'04' --- BIT 5 (DEVICE DEPENDENT)                       12792020
                            00002  1751 IOBS0B6  EQU   X'02' --- BIT 6 (DEVICE DEPENDENT)                       12794020
                            00001  1752 IOBS0B7  EQU   X'01' --- BIT 7 (DEVICE DEPENDENT)                       12796020
000013                             1753 IOBSENS1 DS    B ------- SECOND SENSE BYTE                              12800000
                            00080  1754 IOBS1B0  EQU   X'80' --- BIT 0 (DEVICE DEPENDENT)                       12850020
                            00040  1755 IOBS1B1  EQU   X'40' --- BIT 1 (DEVICE DEPENDENT)                       12860020
                            00020  1756 IOBS1B2  EQU   X'20' --- BIT 2 (DEVICE DEPENDENT)                       12870020
                            00010  1757 IOBS1B3  EQU   X'10' --- BIT 3 (DEVICE DEPENDENT)                       12880020
                            00008  1758 IOBS1B4  EQU   X'08' --- BIT 4 (DEVICE DEPENDENT)                       12890020
                            00004  1759 IOBS1B5  EQU   X'04' --- BIT 5 (DEVICE DEPENDENT)                       12892020
                            00002  1760 IOBS1B6  EQU   X'02' --- BIT 6 (DEVICE DEPENDENT)                       12894020
                            00001  1761 IOBS1B7  EQU   X'01' --- BIT 7 (DEVICE DEPENDENT)                       12896020
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1762 *                                                                       12900000
000014                             1763 IOBECBPT DS    0A ------ ADDRESS OF ECB TO BE POSTED ON I/O COMPLETION  13000000
000014                             1764 IOBECBCC DS    CL1 ---- COMPLETION CODE FOR THIS I/O REQUEST            13100000
000015                             1765 IOBECBPB DS    AL3 ----- ADDRESS OF ECB TO BE POSTED ON I/O COMPLETION  13200000
                                   1766 *                                                                       13300000
000018                             1767 IOBFLAG3 DS    B ------- ERROR ROUTINE FLAG BYTE                        13400000
000019                             1768 IOBCSW   DS    CL7 ----- LOW ORDER 7 BYTES OF CSW AT CHANNEL END        13500000
                                   1769 *                                                                       13600000
000020                             1770 IOBSTART DS    0A ------ ADDRESS OF CHANNEL PROGRAM                     13700000
000020                             1771 IOBSIOCC DS    B ------- BITS 2 AND 3 = C.C. FROM SIO                   13800000
000021                             1772 IOBSTRTB DS    AL3 ----- ADDRESS OF CHANNEL PROGRAM                     13900000
                                   1773 *                                                                       14000000
000024                             1774 IOBDCBPT DS    0A ------ ADDRESS OF DATA CONTROL BLOCK FOR THIS IOB     14100000
000024                             1775          DS    XL1 ----- RESERVED                                       14200000
000025                             1776 IOBDCBPB DS    AL3 ----- ADDRESS OF DATA CONTROL BLOCK FOR THIS IOB     14300000
                                   1777 *                                                                       14400000
000028                             1778 IOBRESTR DS    0A ------ RESTART ADDRESS FOR ERROR RETRY                14500000
000028                             1779 IOBREPOS DS    CL1 ----- CODE USED TO REPOSITION DEVICE                 14600000
000029                             1780 IOBRSTRB DS    AL3 ----- RESTART ADDRESS FOR ERROR RETRY                14700000
                                   1781 *                                                                       14800000
00002C                             1782 IOBINCAM DS    0H ------ VALUE USED TO INCREMENT BLOCK COUNT ON TAPE    14900000
00002C                             1783 IOBBTAMF DS    B ------- FLAG BYTE FOR BTAM                             15000000
                            00080  1784 IOBPRMER EQU   X'80' --- 'SAD','ENABLE' ISSUED BY OPEN CAUSED I/O ERROR 15100000
                            00040  1785 IOBINUSE EQU   X'40' --- IOB IS IN USE                                  15200000
                            00001  1786 IOBOLTST EQU   X'01' --- LINE IS UNDER ON-LINE TEST OPERATION           15300000

00002D                             1788          DS    XL1 ----- RESERVED                                       15500000
00002E                      0002C  1789          ORG   IOBINCAM                                                 15600000
00002C                             1790 IOBCRDCC DS    CL1 ----- OPTICAL READER: DATA CHECK ERROR COUNT         15700000
00002D                             1791 IOBCRILC DS    CL1 ----- OPTICAL READER: INCORRECT LENGTH ERROR COUNT   15800000


00002E                             1793 IOBERRCT DS    H ------- NUMBER OF ERROR RETRIES                        16000000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1795 *********************************************************************** 16200000
                                   1796 *                                                                     * 16300000
                                   1797 *                   EXTENSION SECTIONS OF THE IOB                     * 16400000
                                   1798 *                                                                     * 16500000
                                   1799 *********************************************************************** 16600000

000030                             1801 IOBEXTEN DS    0D                                                       16800000

                                   1803 *                            ****************************************** 17000000
                                   1804 *                            *                                        * 17100000
                                   1805 *                            *  DIRECT ACCESS EXTENSION *** 8 BYTES   * 17200000
                                   1806 *                            *                                        * 17300000
                                   1807 *                            ****************************************** 17400000

000030                             1809 IOBSEEK  DS    0CL8 ----                                                17600000
                                   1810 *                                                                       17700000
000030                             1811 IOBM     DS    CL1 ----- RELATIVE EXTENT NUMBER FOR THIS REQUEST(0-15)  17800000
                                   1812 *                                                                       17900000
000031                             1813 IOBBB    DS    0CL2 ---- BIN NUMBER(DATA CELL)                          18000000
000031                             1814 IOBBB1   DS    CL1                                                      18100000
000032                             1815 IOBBB2   DS    CL1                                                      18200000
                                   1816 *                                                                       18300000
000033                             1817 IOBCC    DS    0CL2 ---- CYLINDER NUMBER                                18400000
000033                             1818 IOBCC1   DS    CL1                                                      18500000
000034                             1819 IOBCC2   DS    CL1                                                      18600000
                                   1820 *                                                                       18700000
000035                             1821 IOBHH    DS    0CL2 ---- TRACK NUMBER                                   18800000
000035                             1822 IOBHH1   DS    CL1                                                      18900000
000036                             1823 IOBHH2   DS    CL1                                                      19000000
000037                             1824 IOBR     DS    CL1 ----- RECORD NUMBER                                  19100000

                                   1826 *                            ****************************************** 19300000
                                   1827 *                            *                                        * 19400000
000038                      00030  1828          ORG   IOBEXTEN *    * BTAM EXTENSION ** 40 BYTES + CHNL.PGM  * 19500000
                                   1829 *                            *                                        * 19600000
                                   1830 *                            ****************************************** 19700000

000030                             1832 IOBUCBX  DS    CL1 ----- LINE NUMBER IS USED TO LOCATE THE              19900000
                                   1833 *                        PROPER UCB ADDRESS IN THE DEB.                 20000000
000031                             1834 IOBWORK  DS    CL5 ----- WORK AREA USED BY ERROR ROUTINES AND           20100000
                                   1835 *                        ON-LINE TERMINAL ROUTINES                      20200000
000036                             1836 IOBRCVPT DS    CL1 ----- RECEIVED ACK (ACK-0 OR ACK-1)                  20250000
000037                             1837 IOBSNDPT DS    CL1 ----- SENT ACK (ACK-0 OR ACK-1)                      20260000
000038                             1838 IOBERCCW DS    CL8 ----- CCW AREA USED BY BTAM ERROR ROUTINES           20300000
000040                             1839 IOBERINF DS    CL16 ---- ERROR INFORMATION FIELD USED BY BTAM ERROR RTN 20400000
000050                             1840 IOBCPA   DS    0D ------ AREA FOR CHANNEL PROGRAMS.LENGTH VARIES        20500000
                                   1841 *                        ACCORDING TO TERMINAL AND OPTIONS              20600000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1843 *                            ****************************************** 20800000
                                   1844 *                            *                                        * 20900000
000050                      00038  1845          ORG   IOBSEEK+8 *   *        BISAM EXTENSION *** 12 BYTES    * 21000000
                                   1846 *                            *                                        * 21100000
                                   1847 *                            ****************************************** 21200000

000038                             1849 IOBCCWAD DS    A ------- FOR FIXED LENGTH RCRDS:PTR.TO FIRST CCW        21400000
                                   1850 *                        FOR VARIABLE RECORDS:PTR.TO BUFFER(DYNAMIC     21500000
                                   1851 *                        BUFFERING SPECIFIED)AFTER COMPLETION OF        21600000
                                   1852 *                        READ FOR UPDATE(READ KU)                       21700000

00003C                             1854 IOBINDCT DS    B                                                        21900000
                                   1855 *                                                                       22000000
                            00080  1856 IOBDEQCP EQU   X'80' --- DEQUEUE CHANNEL PROGRAM FROM QUEUE             22100000
                            00040  1857 IOBUNSCH EQU   X'40' --- UNSCHEDULER QUEUE                              22200000
                            00020  1858 IOBOVPTR EQU   X'20' --- PTR.TO OVERFLOW RECORD INDICATOR:              22300000
                                   1859 *                        BIT = 0 MEANS 'DECBAREA' + 6 POINTS TO         22400000
                                   1860 *                         OVERFLOW RECORD DATA                          22500000
                                   1861 *                        BIT = 1 MEANS 'DCBMSWA' POINTS TO OVERFLOW     22600000
                                   1862 *                         RECORD KEY FOLLOWED BY DATA                   22700000
                            00010  1863 IOBKEYAD EQU   X'10' --- PTR.TO OVERFLOW RECORD KEY INDICATOR:          22800000
                                   1864 *                        BIT = 0 MEANS 'DECBKEY' POINTS TO OVERFLOW     22900000
                                   1865 *                         RECORD KEY                                    23000000
                                   1866 *                        BIT = 1 MEANS 'DCBMSWA' + 8 POINTS TO          23100000
                                   1867 *                         OVERFLOW RECORD KEY                           23200000
                            00001  1868 IOBCHNNL EQU   X'01' --- CHANNEL END STATUS INDICATOR:                  23300000
                                   1869 *                        BIT = 0 MEANS NORMAL CHANNEL END OCCURRED      23400000
                                   1870 *                        BIT = 1 MEANS ABNORMAL END OCCURRED            23500000
                                   1871 *                                                                       23600000

00003D                             1873 IOBUNSQR DS    B ------- REASON FOR UNSCHEDULED QUEUE                   23800000
                                   1874 *                                                                       23900000
                            00080  1875 IOBCPBSY EQU   X'80' --- CHANNEL PROGRAM CP1  OR CP2 BUSY               24000000
                            00040  1876 IOBNTAV1 EQU   X'40' --- NO CP4,CP5 OR CP6 AVAILABLE                    24100000
                            00020  1877 IOBNTAV2 EQU   X'20' --- NO CP7 AVAILABLE                               24200000
                            00010  1878 IOBKNWR  EQU   X'10' --- WRITE KN IS IN EFFECT(UNSCHEDULED IOB IS FOR   24300000
                                   1879 *                        WRITE KN)                                      24400000
                            00008  1880 IOBKNRWR EQU   X'08' --- WRITE KN IS IN EFFECT(UNSCHEDULED IOB IS FOR   24500000
                                   1881 *                        READ OR WRITE KN)                              24600000

00003E                             1883 IOBAPP   DS    CL1 ----- APPENDAGE CODE -(CONSULT SYSTEM CONTROL BLOCKS 24800000
                                   1884 *                        MANUAL FOR CODE DEFINITIONS)                   24900000
00003F                             1885 IOBASYN  DS    CL1 ----- ASYNCHRONOUS ROUTINE CODE -(CONSULT SYSTEM     25000000
                                   1886 *                        CONTROL BLOCKS MANUAL FOR CODE DEFINITIONS)    25100000
000040                             1887 IOBFCHAD DS    0A ------ FORWARD CHAIN ADDRESS                          25200000
000040                             1888 IOBCOUNT DS    CL1 ----- WRITE CHECK COUNTER                            25300000
000041                             1889 IOBFCHNB DS    AL3 ----- FORWARD CHAIN ADDRESS                          25400000
000044                             1890 IOBBCHAD DS    A ------  BACKWARD CHAIN ADDRESS                         25500000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1892 *                            ****************************************** 25700000
                                   1893 *                            *                                        * 25800000
000048                      00030  1894          ORG   IOBEXTEN *    *      GAM EXTENSION *** 40 BYTES        * 25900000
                                   1895 *                            *                                        * 26000000
                                   1896 *                            ****************************************** 26100000


000030                             1898 IOBUCBXG DS    CL1 ----- UCB INDEX                                      26400000
000031                             1899          DS    XL3 ----- RESERVED                                       26500000
000034                             1900 IOBNXTPT DS    0A ------ PTR.TO NEXT AVAILABLE IOB                      26600000
                                   1901 *                        ZERO IF LAST IOB                               26700000
000034                             1902 IOBSTATA DS    B ------- STATUS SWITCH                                  26800000
                            00080  1903 IOBAVLFL EQU   X'80' --- IF BIT IS 0,IOB IS AVAILABLE                   26900000
                                   1904 *                        IF BIT IS 1,IOB IS NOT AVAILABLE               27000000
000035                             1905 IOBNXTPB DS    AL3 ----- PTR.TO NEXT AVAILABLE IOB                      27100000
                                   1906 *                        ZERO IF LAST IOB                               27200000
000038                             1907 IOBCCW   DS    CL32 ---- CHANNEL COMMAND WORDS USED TO TRANSFER DATA    27300000


                                   1909 *                            ****************************************** 27600000
                                   1910 *                            *                                        * 27700000
000058                      00038  1911          ORG   IOBSEEK+8 *   *     QISAM EXTENSION *** 2 BYTES        * 27800000
                                   1912 *                            *                                        * 27900000
                                   1913 *                            ****************************************** 28000000

000038                             1915 W1IEXTEN DS    0CL2 ---- APPENDAGE                                      28200000
000038                             1916 W1OEXTEN DS    CL2 -----  CODES                                         28300000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1918 *                            ****************************************** 28500000
                                   1919 *                            *                                        * 28600000
00003A                      00038  1920          ORG   IOBSEEK+8 *   * BDAM EXTENSION ** 40 BYTES + CHNL.PGM  * 28700000
                                   1921 *                            *                                        * 28800000
                                   1922 *                            ****************************************** 28900000

000038                             1924 IOBDBYTR DS    H ------- NUMBER OF UNUSED BYTES ON TRACK                29100000
00003A                             1925 IOBDIOBS DS    H ------- OVERALL SIZE OF THE IOB                        29200000
00003C                             1926 IOBDPLAD DS    0A ------ ADDRESS OF NEXT IOB IN POOL OF IOB'S           29300000
00003C                             1927 IOBDAYLI DS    B ------- ALL BITS ZERO INDICATE AVAILABILITY OF IOB     29400000
                                   1928 *                                                                       29500000
00003D                             1929 IOBDPLB  DS    AL3 ----- ADDRESS OF NEXT IOB IN POOL OF IOB'S           29600000

000040                             1931 IOBDTYPE DS    B ------- TYPE OF REQUEST AND SPECIFIED OPTIONS          29800000
                                   1932 *                                                                       29900000
                            00080  1933 IOBVERFY EQU   X'80' --- VERIFY                                         30000000
                            00040  1934 IOBOVFLO EQU   X'40' --- OVERFLOW                                       30100000
                            00020  1935 IOBEXTSC EQU   X'20' --- EXTENDED SEARCH                                30200000
                            00010  1936 IOBFDBCK EQU   X'10' --- FEEDBACK                                       30300000
                            00008  1937 IOBACTAD EQU   X'08' --- ACTUAL ADDRESSING                              30400000
                            00004  1938 IOBDYNBF EQU   X'04' --- DYNAMIC BUFFERING                              30500000
                            00002  1939 IOBRDEXC EQU   X'02' --- READ EXCLUSIVE                                 30600000
                            00001  1940 IOBRELBL EQU   X'01' --- RELATIVE BLOCK ADDRESSING                      30700000

000041                             1942 IOBDTYP2 DS    B ------- SECOND BYTE OF OPTIONS AND REQUESTS            30900000
                                   1943 *                                                                       31000000
                            00080  1944 IOBSKEY  EQU   X'80' --- KEY ADDRESS CODED AS 'S'                       31100000
                            00040  1945 IOBSBLKL EQU   X'40' --- BLOCK LENGTH CODED AS 'S'                      31200000
                            00030  1946 IOBSUFFX EQU   X'30' --- INDICATES TYPE OF SUFFIX('R' OR 'RU')          31300000
                            00008  1947 IOBRQUST EQU   X'08' --- BIT = 1 MEANS READ; BIT = 0 MEANS WRITE;       31400000
                            00004  1948 IOBTYPE  EQU   X'04' --- BIT = 1 MEANS KEY TYPE                         31500000
                                   1949 *                        BIT = 0 MEANS ID TYPE                          31600000
                            00002  1950 IOBADDTY EQU   X'02' --- ADD TYPE                                       31700000
                            00001  1951 IOBRELEX EQU   X'01' --- RELEX MACRO ISSUED                             31800000

000042                             1953 IOBDSTAT DS    0CL2  --- STATUS OF THE REQUEST                          32000000
                                   1954 *                                                                       32100000
000042                             1955 IOBSTAT1 DS    B                                                        32200000
                                   1956 *                                                                       32300000
                            00080  1957 IOBABNRM EQU   X'80' --- ABNORMAL COMPLETION                            32400000
                            00040  1958 IOBNEWVL EQU   X'40' --- ON EXTENDED SEARCH,THE NEXT EXTENT IS ON A NEW 32500000
                                   1959 *                        VOLUME.THE ASI ROUTINE MUST ISSUE THE EXCP     32600000
                                   1960 *                        MACRO;END OF EXTENT APPENDAGE CANNOT.          32700000
                                   1961 *                                                                       32800000
                            00010  1962 IOBPASS2 EQU   X'10' --- ON EXTENDED SEARCH,INDICATES TO RELATIVE BLOCK 32900000
                                   1963 *                        CONVERSION ROUTINE THAT SECOND PASS OF A       33000000
                                   1964 *                        TWO-PASS CONV.ROUTINE HAS COMPLETED            33100000
                            00008  1965 IOBENQUE EQU   X'08' --- RECORD ENQUEUED(EXCLUSIVE CONTROL REQUEST)     33200000
                            00004  1966 IOBBUFF  EQU   X'04' --- BUFFER ASSIGNED TO THIS IOB                    33300000
                            00002  1967 IOBADDVU EQU   X'02' --- V OR U TYPE RECORD BEING ADDED TO DATA SET     33400000
                            00001  1968 IOBSIORT EQU   X'01' --- INDICATES TO DYNAMIC BUFFERING ROUTINE THAT    33500000
                                   1969 *                        IT WAS ENTERED FROM,AND IS TO RETURN TO,THE    33600000
                                   1970 *                        START I/O APPENDAGE MODULE                     33700000

000043                             1972 IOBSTAT2 DS    CL1 ----- ERROR CODE FOR ABNORMAL COMPLETION USED AS     33900000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1973 *                        POST CODE IN ECB                               34000000
000044                             1974 IOBDCPND DS    A ------- ADDRESS OF LOCATION WHERE CHANNEL END PROGRAM  34100000
                                   1975 *                        SHOULD END                                     34200000
000048                             1976 IOBDBYTN DS    H ------- NUMBER OF BYTES NEEDED ON A TRACK TO WRITE A   34300000
                                   1977 *                        NEW BLOCK                                      34400000
00004A                             1978          DS    XL2 ----- RESERVED                                       34500000
00004C                             1979 IOBDQPTR DS    A ------- PTR.TO IOB FOR NEXT I/O OPERATION TO EXECUTE   34600000
000050                             1980          DS    XL8 ----- RESERVED                                       34700000

000058                             1982 IOBDNCRF DS    CL8 ----- COUNT FIELD FOR NEW BLOCK                      34900000
000060                             1983 IOBCHNPR DS    0D ------ CHANNEL PROGRAM                                35000000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   1985 ******************************************************************
                                   1986 *                                                                *
                                   1987 *        Master Schedulre Task Input/Output Table (TIOT).        *
                                   1988 *                                                                *
                                   1989 ******************************************************************

000000                             1991 MSTIOT   DSECT ,                   Start master scheduler TIOT
                                   1992          IEFVTIOT ,                Map master scheduler TIOT
                                   1993+*                  ****************************                         00140000
                                   1994+*                  *                          *                         00160000
                                   1995+*                  *                          *                         00180000
                                   1996+*                  *       VTIOT  MACRO       *                         00200000
                                   1997+*                  *                          *                         00220000
                                   1998+*                  *                          *                         00240000
                                   1999+*                  ****************************                         00260000
000000                             2000+VTIOT    DS    0D                                                       00280000
000000 D4C1E2E3C5D94040            2001+         DC    CL8'MASTER'              JOB NAME                        00300000
000008 E2C3C8C5C4E4D3D9            2002+         DC    CL16'SCHEDULR'                                           00320018
                                   2003+*                                                                       00380000
000018 14                          2004+VRENTRY  DC    XL1'14'                  TIOT ENTRY LENGTH               00400000
000019 00                          2005+         DC    XL1'00'                  STATUS A                        00420000
00001A 0000                        2006+         DC    XL2'0000'                REL. LOC OF POOL                00440000
00001C C9C5C6D9C4C5D940            2007+VRDNAME  DC    CL8'IEFRDER'             READER DDNAME                   00460000
000024 00000000                    2008+VRJFCBT  DC    F'0'                     DISK ADDR OF JFCB AND STATUS C  00480000
000028 80000000                    2009+VRUCBPT  DC    X'80000000'              STATUS B AND UCB POINTER        00500000
                                   2010+*                                                                       00560000
00002C 14                          2011+VDENTRY  DC    XL1'14'                  TIOT ENTRY LENGTH               00580000
00002D 00                          2012+         DC    XL1'00'                  STATUS A                        00600000
00002E 0000                        2013+         DC    XL2'0000'                REL. LOC OF POOL                00620000
000030 C9C5C6C4C1E3C140            2014+VDDNAME  DC    CL8'IEFDATA'             SYSIN DATA DDNAME               00640000
000038 00000000                    2015+VDJFCBT  DC    F'0'                     DISK ADDR OF JFCB AND STATUS C  00660000
00003C 80000000                    2016+VDUCBPT  DC    X'80000000'              STATUS B AND UCB POINTER        00680000
                                   2017+*                                                                       00740000
000040 14                          2018+VPENTRY  DC    XL1'14'                  TIOT ENTRY LENGTH               00760000
000041 00                          2019+         DC    XL1'00'                  STATUS A                        00780000
000042 0000                        2020+         DC    XL2'0000'                REL. LOC OF POOL                00800000
000044 C9C5C6D7C4E2C940            2021+VPDNAME  DC    CL8'IEFPDSI'             PROCEDURE LIBRARY DDNAME        00820000
00004C 00000000                    2022+VPJFCBT  DC    F'0'                     DISK ADDR OF JFCB AND STATUS C  00840000
000050 80000000                    2023+VPUCBPT  DC    X'80000000'              STATUS B AND UCB POINTER        00860000
                                   2024+*                                                                       00920000
000054 14                          2025+VJENTRY  DC    XL1'14'                  TIOT ENTRY LENGTH               00940000
000055 00                          2026+         DC    XL1'00'                  STATUS A                        00960000
000056 0000                        2027+         DC    XL2'0000'                REL. LOC OF POOL                00980000
000058 E2E8E2D1D6C2D8C5            2028+VJDNAME  DC    CL8'SYSJOBQE'            SYSTEM JOB QUEUE DDNAME         01000000
000060 00000000                    2029+VJJFCBT  DC    F'0'                     DISK ADDR OF JFCB AND STATUS C  01020000
000064 80000000                    2030+VJUCBPT  DC    X'80000000'              STATUS B AND UCB POINTER        01040000
000068 00000000                    2031+VTIOTEND DC    F'0'                     FINAL END                       01240000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   2033 ******************************************************************
                                   2034 *                                                                *
                                   2035 *        OS Communications Vector Table (CVT).                   *
                                   2036 *                                                                *
                                   2037 ******************************************************************

000000                             2039 CVTDSECT DSECT ,                   Start CVT dsect
                                   2040          CVT   ,                   Map CVT
                                   2041+*                                                                       00510000
                                   2042+*              OS/360                                                   00560000
                                   2043+*        COMMUNICATION VECTOR TABLE                                     00800000
                                   2044+*                                                                       00810000
                                   2045+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5                    01050021
                                   2046+*                                                                       01200000
                            00010  2047+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT         01400000
                                   2048+*                                                                       01600000
                                   2049+*              BEGINNING OF CVT PROPER                                  01601000
                                   2050+*                                                                       01610000
000000                             2051+         DS    0F                                                       01611000
                            00000  2052+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE                 01840000
                                   2053+*                                                                       02000000
000000 00000000                    2054+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST  02200000
000004 00000000                    2055+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE                02610000
                                   2056+*                              ASYNCHRONOUS EXITS                       02620000
000008 00000000                    2057+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB                   02800000
00000C 00000000                    2058+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB                     03000000
000010 00000000                    2059+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT                03200000
                                   2060+*                              CONSOLE INTERRUPTION ROUTINE             03400000
000014 00000000                    2061+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE         03600000
000018 00000000                    2062+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING 03800000
                                   2063+*                              ROUTINE FOR SUPERVISOR                   04000000
00001C 00000000                    2064+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04200000
                                   2065+*                              RELATIVE TRACK ADDR TO ABSOLUTE          04400000
000020 00000000                    2066+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04600000
                                   2067+*                              ABSOLUTE TRACK ADDR TO RELATIVE          04800000
000024 00000000                    2068+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION   05000000
                                   2069+*                              IN UCB LOOKUP TABLE                      05200000
000028 00000000                    2070+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION     05400000
                                   2071+*                              IN UCB LOOKUP TABLE                      05600000
00002C 00000000                    2072+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE           05800000
                                   2073+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES 06000000
000030 00000000                    2074+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY      06200000
                                   2075+*                              IN UCB LOOKUP TABLE                      06400000
000034 00000000                    2076+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE         06600000
000038 00000000                    2077+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL             06800000
00003C 00000000                    2078+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)       07210000
                                   2079+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS    07220000
                                   2080+*                              MASTER SCHEDULER RESIDENT DATA AREA      07221000
000040 00000000                    2081+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE    07400000
000044 00000000                    2082+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE          07600000
000048 00000000                    2083+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS       08000000
                                   2084+*                              FOR DAMAGE ASSESSMENT ROUTINES           08200000
00004C 00000000                    2085+CVT0FN00 DC    A(0) -        RESERVED (MVT)                             08610000
000050 0A03                        2086+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER                         08800000
000052 07FE                        2087+CVTBRET  BR    14 -          RETURN TO CALLER                           09000000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

000054 00000000                    2088+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB                    09200000
000058 00000000                    2089+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER     09411000
                                   2090+*                              ROUTINE (SHPC FIRST)                     09412000
00005C 00000000                    2091+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL              09430000
000060 00000000                    2092+CVTSJQ   DC    A(0) -        RESERVED (MVT)                             09810000
000064 00000000                    2093+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR  10000000
000068 00000000                    2094+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE              10410000
                                   2095+*                              FOR INTERVAL TIMER                       10411000
00006C 00000000                    2096+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE              10420000
                                   2097+*                              FOR INTERVAL TIMER                       10421000
000070 00000000                    2098+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE         10600000
000074 10                          2099+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM                           11600000
                            00040  2100+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11600100
                            00020  2101+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11600200
                            00010  2102+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11600300
                            00004  2103+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11600400
000075 000000                      2104+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11601000
000078 00000000                    2105+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE            11820000
00007C 00000000                    2106+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER    12400000
000080 00000000                    2107+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS               12600000
000084 00000000                    2108+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE              12800000
000088 00000000                    2109+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER             13000000
00008C 00000000                    2110+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE         13200000
000090 00000000                    2111+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE            13400000
000094 00000000                    2112+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT          13810000
                                   2113+*                              DATA AREA (MVT/MFT)                      13820000
000098 00000000                    2114+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE    14000000
00009C 00000000                    2115+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE                14200000
0000A0 00000000                    2116+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE           14400000
0000A4 00000000                    2117+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS                    14600000
0000A8 00000000                    2118+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)      14601000
0000AC 00000000                    2119+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD         16638521
                                   2120+*                              (0 IF GFX INACTIVE) MVT                  16640821
0000B0 00000000                    2121+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA       16647721
                                   2122+*                              (MVT/MFT)                                16650000
0000B4 0000                        2123+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    16660000
0000B6 00                          2124+CVTOPTA  DC    AL1(00)    -     MISCELLANEOUS FLAGS                     16670021
                            00080  2125+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)               16680000
                            00040  2126+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --                    16681000
                                   2127+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16681100
                            00020  2128+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --          16683000
                                   2129+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16683200
                            00010  2130+CVTNIP   EQU   X'10' -       NIP RUNNING                                16690000
                            00008  2131+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)                     16691000
                            00004  2132+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16692000
                            00002  2133+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16693000
                            00001  2134+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16695000
0000B7 00                          2135+CVTOPTB  DC    AL1(00)     - MISCELLANEOUS FLAGS                        16700021
                            00080  2136+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)            16702000
                            00020  2137+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)        16704000
                                   2138+*                                                                       16800000
                                   2139+*              PCP OVERLAY                                              17000000
                                   2140+*                                                                       17200000
0000B8                             2141+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART            17400000
0000BB                             2142+CVTSTUSA DS    B -           STATUS BYTE A                              17600000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00008  2143+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART     17800000
                                   2144+*                              WAS INITIATED INTRASTEP                  18000000
                            00004  2145+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART           18200000
                                   2146+*                              WAS INITIATED INTERSTEP                  18400000
                            00002  2147+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM          18600000
                                   2148+*                              AND DATA HAS NOT BEEN READ               18800000
0000BC                             2149+         DS    CL2 -         RESERVED                                   19000000
0000BE                             2150+         DS    CL2 -         RESERVED                                   19200000
                                   2151+*                                                                       19400000
                                   2152+*              MVT/MFT OVERLAY                                          19600000
                                   2153+*                                                                       19800000
0000C0                      000B8  2154+         ORG   CVTCRTTR                                                 20000000
                                   2155+*                                                                       20200000
0000B8 00000000                    2156+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR           20400000
0000BC 00000000                    2157+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21000000
                                   2158+*                                                                       21670000
                                   2159+*              END OF OVERLAYS                                          21800000
                                   2160+*                                                                       22000000
0000C0 00000000                    2161+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)                       22421000
0000C4 00000000                    2162+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA            22600000
0000C8 00000000                    2163+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT     22610000
                                   2164+*                              (MVT/MPS)                                22610100
0000CC 00000000                    2165+CVTUSER  DC    A(0) -        A WORD TO THE USER                         22620000
                                   2166+*                                                                       23000000
                                   2167+*              MFT/MVT CVT EXTENSION                                    24000000
                                   2168+*                                                                       24200000
0000D0 00000000                    2169+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT       24400021
0000D4 0A0D                        2170+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)                 24600000
0000D6 0A06                        2171+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)   25000000
0000D8 00000000                    2172+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25421000
0000DC 00000000                    2173+CVTPATCH DC    A(0) -        ADDR OF FE PATCH AREA                      25594000
0000E0 00000000                    2174+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA  25800000
                                   2175+*                              (MVT/MFT)                                25810000
0000E4                             2176+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)             26000000
0000E4 00                          2177+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)                   26050000
                            00080  2178+CVTTSRDY EQU   X'80' -       TIME SHARING READY                         26100000
0000E5 000000                      2179+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)             26150000
0000E8 00000000                    2180+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     27393221
0000EC                             2181+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)   27394021
0000EC 00                          2182+CVTGTFST DC    B'0' -        STATUS FLAGS                               27396021
                            000C0  2183+CVTGTFS  EQU   X'C0' -       STATE                                      27398021
                                   2184+*/       00    CVTGTFIN      INACTIVE                                   27398421
                                   2185+*/       01    CVTGTFSR      STARTING                                   27398821
                                   2186+*/       10    CVTGTFSP      STOPPING                                   27399221
                                   2187+*/       11    CVTGTFAC      ACTIVE                                     27399621
                            00020  2188+CVTSTATE EQU   X'20' -       IN CONTROL                                 27399721
                            00010  2189+CVTMODE  EQU   X'10' -       EXT MODE                                   27399821
                            00008  2190+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA                27399921
                            00004  2191+CVTUSR   EQU   X'04' -       USR TRACE                                  27449921
                            00002  2192+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID                       27459921
0000ED 000000                      2193+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE                27469921
0000F0                             2194+CVTTCMFG DS    0B -          TCAM FLAGS                                 27499921
                            00080  2195+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)                         27600000
0000F0 00000000                    2196+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF             27610000
                                   2197+*                            TCAM ADDRESS VECTOR TABLE                  27620021
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   2198+*                                                                       29401221
                                   2199+*              MVT CVT EXTENSION                                        29401321
                                   2200+*                                                                       29401421
0000F4                             2201+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE 29401521
                                   2202+*                            (PWF)                               S21167 29401621
0000F4 80                          2203+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY   29404021
                                   2204+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167 29404221
                            00080  2205+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167 29404421
0000F5 000000                      2206+CVTVOLT2 DC    AL3(0)     -  PWF RECHECK TIME DELAY.  THIS VALUE IS     29404621
                                   2207+*                            OVERLAID BY CVTVOLM2 AFTER PWF             29404821
                                   2208+*                            INITIALIZATION                      S21167 29405021
0000F8 00000000                    2209+         DC    A(0) -        RESERVED                                   29405221
                                   2210+*                                                                       29407021
                                   2211+*              MVT/MFT CVT EXTENSION                                    29408021
                                   2212+*                                                                       29408821
0000FC 00000114                    2213+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1              29410821
                                   2214+*                            (ICB421)                APAR'S 47331,47332 29413221
000100                             2215+         DS    F -           RESERVED                                   29414221
000104                             2216+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE         29415221
000104                             2217+         DS    X -           RESERVED                                   29416421
000105 000000                      2218+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE         29417421
000108                             2219+         DS    F -           RESERVED                                   29418421
00010C                             2220+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307 29419421
00010C                             2221+         DS    X -           RESERVED                            ICB307 29420421
00010D 000000                      2222+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND              29421421
                                   2223+*                            COMMUNICATION AREA                  ICB307 29422421
000110                             2224+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308 29423421
000110                             2225+         DS    X -           RESERVED                            ICB308 29424421
000111 000000                      2226+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY      29425421
                                   2227+*                            ROUTINE                             ICB308 29426421
                                   2228+*                                                                       29427421
                                   2229+*              COMMON EXTENSION 1                                       29435721
                                   2230+*              ADDRESS OF EXTENSION IS IN CVTEXT1                       29445721
                                   2231+*                                                                       29455721
                                   2232+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,               29456121
                                   2233+*              YOU SHOULD CODE -                                        29462521
                                   2234+*                                                                       29464521
                                   2235+*              L     REG,CVTEXT1                                        29466521
                                   2236+*              USING CVTXTNT1,REG                                       29468521
                                   2237+*                                                                       29468621
                                   2238+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.               29468721
                                   2239+*                                                                       29468821
                            00114  2240+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1                29475221
                                   2241+*                            (ICB421)                APAR'S 47331,47332 29475721
000114 00000000                    2242+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS        29477221
                                   2243+*                            (ISAM) (ICB421)         APAR'S 47331,47332 29479221
                                   2244+*                                                                       29494421
                                   2245+*              END OF CVT PROPER                                        29513521
                                   2246+*                                                                       29532621
                                   2247+*                                                                       29870000
                                   2248+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT           29880000
                                   2249+*                                                                       29890000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   2251 ******************************************************************
                                   2252 *                                                                *
                                   2253 *        Job File Control Block (JFCB).                          *
                                   2254 *                                                                *
                                   2255 ******************************************************************

000000                             2257 JFCB     DSECT ,                   Start JFCB dsect
                                   2258          IEFJFCBN ,                Map JFCB
                                   2259+*******************************************************************     00400000
                                   2260+*                                                                 *     00500000
                                   2261+*                      JOB FILE CONTROL BLOCK                     *     00600000
                                   2262+*                                                                 *     00700000
                                   2263+*        RELEASE 21.8, 08/09/72, LEVEL=9                          *     00752021
                                   2264+*                                                                 *     00760020
                                   2265+*******************************************************************     00800000
000000                             2266+         DS    0F                                                       00810020
                            00000  2267+INFMJFCB EQU   *                                                        00900000
000000                             2268+JFCBQNAM DS    0CL8 -    NAME OF THE DESTINATION QUEUE TO BE ASSIGNED   00910000
                                   2269+*                           TO THIS DATA SET.                           00920000
000000                             2270+JFCBDSNM DS    CL44 -    DATA SET NAME                                  01000000
00002C                             2271+JFCBELNM DS    0CL8 -    ELEMENT NAME OR GENERATION NUMBER OR TYPE      01100021
                                   2272+*                        OF AREA FOR AN INDEXED SEQUENTIAL DATA         01200000
                                   2273+*                        SET ONLY                                       01300000
00002C                             2274+JFCIPLTX DS    CL7 -     MODULE NAME OF NETWORK CONTROL PROGRAM  ICB391 01350021
000033                             2275+         DS    X -       LAST BYTE OF JFCBELNM                   ICB391 01360021
000034                             2276+JFCBTSDM DS    B -       JOB MANAGEMENT/DATA MANAGEMENT INTERFACE       01400000
                            00080  2277+JFCCAT   EQU   X'80' -   CATALOGED DATA SET                             01500000
                            00040  2278+JFCVSL   EQU   X'40' -   VOLUME SERIAL LIST ALTERED                     01600000
                            00020  2279+JFCSDS   EQU   X'20' -   SYSIN OR SYSOUT DATA SET                       01700000
                            00010  2280+JFCTTR   EQU   X'10' -   USE JFCBOTTR INSTEAD OF DS1LSTAR FIELD TO      01800000
                                   2281+*                        REPOSITION DATA SET IF AUTOMATIC STEP          01900000
                                   2282+*                        RESTART OCCURS                                 02000000
                            00008  2283+JFCNWRIT EQU   X'08' -   DO NOT WRITE BACK THE JFCB DURING OPEN         02100000
                                   2284+*                        PROCESSING                                     02200000
                            00004  2285+JFCNDSCB EQU   X'04' -   DO NOT MERGE DSCB OR LABEL FIELDS INTO         02300000
                                   2286+*                        THIS JFCB                                      02400000
                            00002  2287+JFCNDCB  EQU   X'02' -   DO NOT MERGE DCB FIELDS INTO THIS JFCB         02500000
                            00001  2288+JFCPAT   EQU   X'01' -   THE PATTERNING DSCB IS COMPLETE                02600000
000035                             2289+JFCBSYSC DS    0CL13 -   SYSTEM CODE                                    02650020
000035                             2290+JFCBDSCB DS    CL3 -     TTR OF FORMAT 1 DSCB FOR DATA SET PART ON THE  02750021
                                   2291+*                        FIRST VOLUME OF THE DATA SET                   02752021
000038                             2292+JFCFCBID DS    CL4 -     FORMS CONTROL BUFFER IMAGE IDENTIFICATION FOR  02760021
                                   2293+*                        THE 3211 OR DATA PROTECTION IMAGE              02760421
                                   2294+*                        IDENTIFICATION FOR THE 3525                    02760821
00003C                             2295+         DS    CL6 -     RESERVED                                       02762020
000042                             2296+JFCBLTYP DS    B -       LABEL TYPE                                     02800000
                            00040  2297+JFCBAL   EQU   X'40' -   USASI LABELS (AL OR AUL)                       02850020
                            00020  2298+JFCBLTM  EQU   X'20' -   NON-LABELLED TAPE CREATED BY DOS MAY HAVE      02860021
                                   2299+*                        LEADING TAPE MARK.  OPEN/CLOSE/EOV AND         02870021
                                   2300+*                        RESTART ARE TO SPACE OVER TAPE MARK IF IT      02880021
                                   2301+*                        EXISTS.                                 ICB212 02890021
                            00010  2302+JFCBLP   EQU   X'10' -   BYPASS LABEL PROCESSING                        02900000
                            0000A  2303+JFCSUL   EQU   X'0A' -   USER LABEL                                     03000000
                            00004  2304+JFCNSL   EQU   X'04' -   NONSTANDARD LABEL                              03100000
                            00002  2305+JFCSL    EQU   X'02' -   STANDARD LABEL                                 03200000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00001  2306+JFCNL    EQU   X'01' -   NO LABEL                                       03300000
000043                             2307+JFCBOTTR DS    0CL3 -    DASD MOD DATA SET - IF AUTOMATIC STEP          03400000
                                   2308+*                        RESTART WAS REQUESTED TTR OF EOD INDI-         03500000
                                   2309+*                        CATOR EXISTING WHEN DATA SET WAS FIRST         03600000
                                   2310+*                        OPENED DURING ORIGINAL EXECUTION               03700000
000043                             2311+JFCBUFOF DS    FL1 -     BUFFER OFFSET                                  03800020
                            00080  2312+JFCBFOFL EQU   X'80' -   USASI/USASCII - BLOCK PREFIX IS 4 BYTES AND    03850020
                                   2313+*                        CONTAINS BLOCK LENGTH IN UNPACKED DECIMAL.     03860020
                                   2314+*                        SPECIFIED BY BUFOFF=L.                         03870020
000044                             2315+JFCFUNC  DS    0B -      FUNCTION INDICATOR FOR THE 3525                03880021
                            00080  2316+JFCFNCBI EQU   X'80' -   INTERPRET (PUNCH AND PRINT TWO LINES)          03890021
                            00040  2317+JFCFNCBR EQU   X'40' -   READ                                           03892021
                            00020  2318+JFCFNCBP EQU   X'20' -   PUNCH                                          03894021
                            00010  2319+JFCFNCBW EQU   X'10' -   PRINT                                          03896021
                            00008  2320+JFCFNCBD EQU   X'08' -   DATA PROTECTION                                03898021
                            00004  2321+JFCFNCBX EQU   X'04' -   THIS DATA SET IS TO BE PRINTED                 03898421
                            00002  2322+JFCFNCBT EQU   X'02' -   TWO-LINE PRINT SUPPORT REQUEST                 03898821
000044                             2323+JFCBFLSQ DS    H -       2ND & 3RD BYTES OF JFCBOTTR/                   03900000
                                   2324+*                        FILE SEQUENCE NUMBER                           04000000
000046                             2325+JFCBVLSQ DS    H -       VOLUME SEQUENCE NUMBER                         04100000
000048                             2326+JFCBMASK DS    0CL8 -    DATA MANAGEMENT MASK                           04200000
000048                             2327+JFCBOPS1 DS    BL5 -     OPEN ROUTINE INTERNAL SWITCHES                 04300000
00004D                             2328+JFCBFLG1 DS    B -       FLAG BYTE                                      04400000
                            00080  2329+JFCSTAND EQU   X'80' -   VOLUME LABEL PROCESSING STANDARD               04500000
                            00040  2330+JFCSLCRE EQU   X'40' -   CREATION OF A STANDARD LABEL IS                04600000
                                   2331+*                        NECESSARY                                      04700000
                            00020  2332+JFCSLDES EQU   X'20' -   DESTRUCTION OF A STANDARD LABEL                04800000
                                   2333+*                        IS NECESSARY                                   04900000
                            00010  2334+JFCDUAL  EQU   X'10' -   DUAL DENSITY CHECK DETECTED                    05000000
                            0000F  2335+JFCOPEN  EQU   X'0F' -   OPEN ROUTINE INTERNAL SWITCHES                 05100000
00004E                             2336+JFCBFLG2 DS    B -       FLAG BYTE OF OPEN SWITCHES                     05200000
                            00080  2337+JFCINOP  EQU   X'80' -   TREAT THE INOUT OPTION OF OPEN AS INPUT        05300000
                            00040  2338+JFCOUTOP EQU   X'40' -   TREAT THE OUTIN OPTION OF OPEN AS OUTPUT       05400000
                            00020  2339+JFCDEFER EQU   X'20' -   DATA SET RELATED TO THE JFCB IS BEING          05500000
                                   2340+*                        PROCESSED SEQUENTIALLY,  AT THE CHECK-         05600000
                                   2341+*                        POINT,  ON A DIFFERENT VOLUME THAN WHEN        05700000
                                   2342+*                        PROCESSING BEGAN - WHEN RESTART OCCURS,        05800000
                                   2343+*                        CAUSE DEFERRED VOLUME MOUNTING                 05900000
                            00020  2344+JFCNRPS  EQU   X'20' -   USE BY OPEN ROUTINES - SET TO INDICATE THAT    05950021
                                   2345+*                        THIS DATA SET RESIDES ON A NON-RPS DEVICE.     05960021
                                   2346+*                        RESET TO ZERO WHEN OPEN PROCESSING IS          05970021
                                   2347+*                        COMPLETED.                              ICB495 05980021
                            00010  2348+JFCMODNW EQU   X'10' -   DISPOSITION CHANGED FROM MOD TO NEW -          06000000
                                   2349+*                        DISPOSITION (IN JFCBIND2) WILL BE RE-          06100000
                                   2350+*                        STORED TO MOD AFTER OPEN                       06200000
                            00008  2351+JFCSDRPS EQU   X'08' -   SEARCH DIRECT FOR RPS DEVICES                  06210021
                            00004  2352+JFCTRACE EQU   X'04' -   GTF TRACE IS TO OCCUR DURING OPEN/CLOSE/EOV    06242021
                                   2353+*                        AND DYNAMIC ALLOCATION PROCESSING OF DCB       06244021
                            00002  2354+JFCBBUFF EQU   X'02' -   INDICATOR TO OPEN THAT A NON-ZERO VALUE IN     06250020
                                   2355+*                        JFCBOTTR IS NOT TO PREVENT THE NORMAL STORING  06260020
                                   2356+*                        BY OPEN OF A TTR IN JFCBOTTR                   06270020
                            00001  2357+JFCRCTLG EQU   X'01' -   SCHEDULER STEP TERMINATION ROUTINE IS TO       06280021
                                   2358+*                        RECATALOG THIS DATA SET AND PLACE IN THE       06290021
                                   2359+*                        CATALOG ENTRY THE DSCB TTR CONTAINED IN        06292021
                                   2360+*                        JFCBDSCB                                       06294021
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

00004F                             2361+JFCBOPS2 DS    B -       OPEN ROUTINE INTERNAL SWITCHES                 06300000
000050                             2362+JFCBCRDT DS    CL3 -     DATA SET CREATION DATE (YDD)                   06400000
000053                             2363+JFCBXPDT DS    CL3 -     DATA SET EXPIRATION DATE (YDD)                 06500000



000056                             2365+JFCBIND1 DS    B -       INDICATOR BYTE 1                               06700000
                            000C0  2366+JFCRLSE  EQU   X'C0' -   RELEASE EXTERNAL STORAGE                       07000000
                            00030  2367+JFCLOC   EQU   X'30' -   DATA SET HAS BEEN LOCATED                      07100000
                            0000C  2368+JFCADDED EQU   X'0C' -   NEW VOLUME HAS BEEN ADDED TO DATA SET          07200000
                            00002  2369+JFCGDG   EQU   X'02' -   DATA SET IS MEMBER OF A GENERATION DATA        07300000
                                   2370+*                        GROUP                                          07400000
                            00001  2371+JFCPDS   EQU   X'01' -   DATA SET IS MEMBER OF A PARTITIONED            07500000
                                   2372+*                        DATA SET                                       07600000
                                   2373+********************************************************************    07700000
                                   2374+*                                                                       07800000
                                   2375+*    THE FOLLOWING FOUR BIT SETTINGS ARE FROM AN OLD MAPPING MACRO      07900000
                                   2376+*      THESE  FOUR WILL BE REMOVED IN A FUTURE RELEASE. USE THE         08100000
                                   2377+*      FOREGOING SYMBOLS FOR JFCBIND1                                   08300000
                                   2378+*                                                                       08400000
                                   2379+********************************************************************    08500000
                            00040  2380+JFCBRLSE EQU   X'40' -   BITS 0 & 1 - EXTERNAL STORAGE RELEASE          08600000
                                   2381+*                        INDICATOR                                      08700000
                            00010  2382+JFCBLOCT EQU   X'10' -   BITS 2 & 3 - DATA SET HAS BEEN LOCATED         08800000
                            00004  2383+JFCBNEWV EQU   X'04' -   BITS 4 & 5 - NEW VOLUME ADDED TO DATA SET      08900000
                            00001  2384+JFCBPMEM EQU   X'01' -   BITS 6 & 7 - DATA SET IS A MEMBER OF A         09000000
                                   2385+*                        PDS OR GDG                                     09100000
                                   2386+********************************************************************    09150000



000057                             2388+JFCBIND2 DS    B -       INDICATOR BYTE 2                               09300000
                            000C0  2389+JFCDISP  EQU   X'C0' -   BIT PATTERN FOR NEW, MOD, OLD                  09600000
                            000C0  2390+JFCNEW   EQU   X'C0' -   NEW DATA SET                                   09700000
                            00080  2391+JFCMOD   EQU   X'80' -   MOD DATA SET                                   09800000
                            00040  2392+JFCOLD   EQU   X'40' -   OLD DATA SET                                   09900000
                            00030  2393+JFCBRWPW EQU   X'30' -   BITS 2&3 ALLOWS READ WITHOUT PASSWORD          10000020
                                   2394+*                        WITH DATA SET SECURITY                         10100000
                            00010  2395+JFCSECUR EQU   X'10' -   DATA SET SECURITY                              10200000
                            00008  2396+JFCSHARE EQU   X'08' -   SHARED DATA SET                                10300000
                            00004  2397+JFCENT   EQU   X'04' -   DATA SET IS GENERATION OF A GDG - PRO-         10400000
                                   2398+*                        CESSING OF ENTIRE GDG WAS SPECIFIED -          10500000
                                   2399+*                        IF AUTOMATIC RESTART AT A CHECKPOINT           10600000
                                   2400+*                        OCCURS, JFCB WILL BE DELETED                   10700000
                            00002  2401+JFCREQ   EQU   X'02' -   STORAGE VOLUME REQUESTED                       10800000
                            00001  2402+JFCTEMP  EQU   X'01' -   TEMPORARY DATA SET                             10900000
                                   2403+********************************************************************    11000000
                                   2404+*                                                                       11100000
                                   2405+*   THE FOLLOWING THREE BIT SETTINGS ARE FROM AN OLD MAPPING MACRO      11200000
                                   2406+*      THESE THREE WILL BE REMOVED IN A FUTURE RELEASE. USE THE         11400000
                                   2407+*      FOREGOING SYMBOLS FOR JFCBIND2                                   11600000
                                   2408+*                                                                       11700000
                                   2409+********************************************************************    11800000
                            00040  2410+JFCBSTAT EQU   X'40' -   BITS 0 & 1 - DATA SET STATUS (NEW,             11900000
                                   2411+*                        OLD OR MOD)                                    12000000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00010  2412+JFCBSCTY EQU   X'10' -   BIT 3 DATA SET SECURITY INDICATOR              12100020
                            00004  2413+JFCBGDGA EQU   X'04' -   BITS 4 & 5 - THIS JFCB IS A MEMBER OF A        12200000
                                   2414+*                        GDG-ALL REQUEST                                12300000
                                   2415+********************************************************************    12350000
000058                             2416+JFCBUFNO DS    0XL1 -    NUMBER OF BUFFERS REQUIRED FOR THIS            12400000
                                   2417+*                        DATA SET                                       12500000
                            00058  2418+JFCBUFIN EQU   JFCBUFNO -BITS 0 THRU 3 FOR # REC BUF                    12700020
                            00058  2419+JFCBFOUT EQU   JFCBUFNO -BITS 4 THRU 7 FOR # SEND BUF                   12710020
000058                             2420+JFCBUFRQ DS    XL1 -     NUMBER OF BUFFERS REQUIRED FOR EACH            12800000
                                   2421+*                        LINE (QTAM)                                    12900000
000059                             2422+JFCBHIAR DS    0BL1 -    BUFFER POOL LOCATION IN MAIN STORAGE           13000000
                                   2423+*                        (HIERARCHY)                                    13100000
000059                             2424+JFCBFALN DS    0BL1 -    BUFFER ALIGNMENT                               13200000
000059                             2425+JFCBFTEK DS    B -       BUFFERING TECHNIQUE / FOR GAM THIS FIELD       13300000
                                   2426+*                        IS USED FOR THE NUMBER OF IOBS CONSTRUCTED     13400000
                                   2427+*                        BY THE OPEN ROUTINE - MAX NBR IS 99            13500000
                            00084  2428+JFCHIER  EQU   X'84' -   BITS 0 & 5 DESCRIBE MAIN STORAGE HIERARCHY     13600000
                                   2429+*                        BIT '00' = HIERARCHY 0                         13700000
                                   2430+*                        BIT '01' = HIERARCHY 1                         13800000
                            00040  2431+JFCSIM   EQU   X'40' -   SIMPLE BUFFERING                               13900000
                            00010  2432+JFCEXC   EQU   X'10' -   EXCHANGE BUFFERING                             14000000
                            00008  2433+JFCDYN   EQU   X'08' -   DYNAMIC BUFFERING                              14100000
                            00004  2434+JFCHIER1 EQU   X'04' -   HIERARCHY 1 MAIN STORAGE                       14200000
                            00002  2435+JFCDWORD EQU   X'02' -   DOUBLE WORD BOUNDARY                           14300000
                            00001  2436+JFCFWORD EQU   X'01' -   FULL WORD BOUNDARY - NOT DOUBLE WORD           14400000
00005A                             2437+JFCBUFL  DS    H -       BUFFER LENGTH                                  14500000
00005C                             2438+JFCEROPT DS    B -       ERROR OPTION SWITCH                            14600000
                            00080  2439+JFCACC   EQU   X'80' -   ACCEPT                                         14700000
                            00040  2440+JFCSKP   EQU   X'40' -   SKIP                                           14800000
                            00020  2441+JFCABN   EQU   X'20' -   ABNORMAL END OF TASK                           14900000
00005D                             2442+JFCTRTCH DS    0CL1 -    TAPE RECORDING TECHNIQUE FOR 7-TRACK           15000000
                                   2443+*                        TAPE                                           15100000
                            00023  2444+JFCEVEN  EQU   X'23' -   EVEN PARITY                                    15200000
                            0003B  2445+JFCTRAN  EQU   X'3B' -   BCB/EBCDIC TRANSLATION                         15300000
                            00013  2446+JFCCONV  EQU   X'13' -   DATA CONVERSION                                15400000
                            0002B  2447+JFCTREV  EQU   X'2B' -   EVEN PARITY AND TRANSLATION                    15500000
00005D                             2448+JFCKEYLE DS    0XL1 -    DIRECT ACCESS KEY LENGTH                       15600000
00005D                             2449+JFCCODE  DS    0BL1 -    CONVERSION CODE                                15800000
                            00080  2450+JFCNOCON EQU   X'80' -   NO CONVERSION                                  15900000
                            00040  2451+JFCBCD   EQU   X'40' -   IBM BCD                                        16000000
                            00020  2452+JFCFRI   EQU   X'20' -   FRIDEN                                         16100000
                            00010  2453+JFCBUR   EQU   X'10' -   BURROUGHS                                      16200000
                            00008  2454+JFCNCR   EQU   X'08' -   NATIONAL CASH REGISTER                         16300000
                            00004  2455+JFCASCII EQU   X'04' -   ASCII (8-TRACK)                                16400000
                            00002  2456+JFCTTY   EQU   X'02' -   TELETYPE                                       16500000
00005D                             2457+JFCMODE  DS    0BL1 -    MODE OF OPERATION                              16550021
00005D                             2458+JFCSTACK DS    0BL1 -    STACKER SELECTION                              16600000
                            00080  2459+JFCBIN   EQU   X'80' -   COLUMN BINARY MODE                             16700000
                            00040  2460+JFCEBCD  EQU   X'40' -   EBCDIC MODE                                    16800000
                            00020  2461+JFCMODEO EQU   X'20' -   OPTICAL MARK READ MODE                         16850021
                            00010  2462+JFCMODER EQU   X'10' -   READ COLUMN ELIMINATE MODE                     16860021
                            00002  2463+JFCTWO   EQU   X'02' -   STACKER TWO                                    16900000
                            00001  2464+JFCONE   EQU   X'01' -   STACKER ONE                                    17000000
00005D                             2465+JFCPRTSP DS    B -       NORMAL PRINTER SPACING                         17100000
                            00019  2466+JFCSPTHR EQU   X'19' -   SPACE THREE LINES                              17200000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00011  2467+JFCSPTWO EQU   X'11' -   SPACE TWO LINES                                17300000
                            00009  2468+JFCSPONE EQU   X'09' -   SPACE ONE LINE                                 17400000
                            00001  2469+JFCSPNO  EQU   X'01' -   NO SPACING                                     17500000
00005E                             2470+JFCDEN   DS    B -       TAPE DENSITY - MAGNETIC TAPES                  17600021
                            00003  2471+JFC200   EQU   X'03' -   7-TRACK 200 BPI                                17700000
                            00043  2472+JFC556   EQU   X'43' -   7-TRACK 556 BPI                                17800000
                            00083  2473+JFC800   EQU   X'83' -   7 AND 9 TRACK 800 BPI                          17900000
                            000C3  2474+JFC1600  EQU   X'C3' -   9-TRACK 1600 BPI                               18000000
                            000D3  2475+JFC6250  EQU   X'D3' -   9-TRACK 6250 BPI                        ICB474 18050021
00005F                             2476+JFCLIMCT DS    0CL3 -    SEARCH LIMIT (BDAM)                            18100000
00005F                             2477+         DS    CL1 -     1ST BYTE JFCLIMCT (BDAM)/RESERVED              18200000
000060                             2478+JFCTRKBL DS    CL2 -     2ND & 3RD BYTES JFCLIMCT (BDAM)/ DATA          18300000
                                   2479+*                        SET OPENED FOR MOD - IF AUTOMATIC STEP         18400000
                                   2480+*                        RESTART WAS REQUESTED, TRACK BALANCE           18500000
                                   2481+*                        EXISTING WHEN THE DATA SET WAS FIRST           18600000
                                   2482+*                        OPENED DURING THE ORIGINAL EXECUTION           18700000
                                   2483+*                        OF THE CURRENT STEP                            18800000
000062                             2484+JFCDSORG DS    0BL2 -    DATA SET ORGANIZATION BEING USED               18900000
000062                             2485+JFCDSRG1 DS    B -       BYTE 1 OF JFCDSORG                             19000000
                            00080  2486+JFCORGIS EQU   X'80' -   INDEXED SEQUENTIAL                             19100000
                            00040  2487+JFCORGPS EQU   X'40' -   PHYSICAL SEQUENTIAL                            19200000
                            00020  2488+JFCORGDA EQU   X'20' -   DIRECT                                         19300000
                            00002  2489+JFCORGPO EQU   X'02' -   PARTITIONED                                    19400000
                            00001  2490+JFCORGU  EQU   X'01' -   UNMOVABLE - THE DATA CONTAINS LOCATION         19500000
                                   2491+*                        DEPENDENT INFORMATION                          19600000
000063                             2492+JFCDSRG2 DS    B -       BYTE 2 OF JFCDSORG                             19700000
                            00080  2493+JFCORGGS EQU   X'80' -   GRAPHICS                                       19800000
000064                             2494+JFCRECFM DS    B -       RECORD FORMAT                                  19900000
                            000C0  2495+JFCFMREC EQU   X'C0' -   HIGH ORDER TWO BITS OF JFCRECFM TO BE TESTED   20000000



                                   2497+********************************************************************    20200000
                                   2498+*                                                                       20300000
                                   2499+*    THE FOLLOWING THREE EQUATES ARE FOR THE RECORD FORMAT IN THE       20400000
                                   2500+*    HIGH ORDER TWO BITS OF JFCRECFM                                    20500000
                                   2501+*                                                                       20600000
                                   2502+********************************************************************    20700000
                            000C0  2503+JFCUND   EQU   X'C0' -   UNDEFINED                                      20900000
                            00080  2504+JFCFIX   EQU   X'80' -   FIXED                                          21000000
                            00040  2505+JFCVAR   EQU   X'40' -   VARIABLE                                       21100000
                                   2506+********************************************************************    21150000



                            000E0  2508+JFCRCFM  EQU   X'E0' -   RECORD FORMAT (USASI/USASCII)                  21250020
                            00020  2509+JFCVARD  EQU   X'20' -   VARIABLE (FORMAT D FOR USASI/USASCII)          21260020
                            00020  2510+JFCRFO   EQU   X'20' -   TRACK OVERFLOW                                 21300000
                            00010  2511+JFCRFB   EQU   X'10' -   BLOCKED - (MAY NOT OCCUR WITH UNDEFINED)       21400000
                            00008  2512+JFCRFS   EQU   X'08' -   STANDARD - NO TRUNCATED BLOCKS OR UNFILLED     21500000
                                   2513+*                        BLOCKS ARE EMBEDDED IN THE DATA SET            21600000



                            00006  2515+JFCCHAR  EQU   X'06' -   BITS 5 & 6 OF JFCRECFM                         21800000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   2516+*                                                                       21900000
                                   2517+********************************************************************    22000000
                                   2518+*                                                                       22100000
                                   2519+*    THE FOLLOWING THREE EQUATES ARE FOR THE CONTROL CHARACTERS IN      22200000
                                   2520+*    BITS 5 & 6 OF  JFCRECFM                                            22300000
                                   2521+*                                                                       22400000
                                   2522+********************************************************************    22500000
                            00004  2523+JFCASA   EQU   X'04' -   ASA CONTROL CHARACTER                          22600000
                            00002  2524+JFCMAC   EQU   X'02' -   MACHINE CODE CONTROL CHARACTER                 22700000
                            00000  2525+JFCNOCC  EQU   X'00' -   NO CONTROL CHARACTER                           22800000
                                   2526+********************************************************************    22850000
000065                             2527+JFCOPTCD DS    B -       OPTION CODES                                   22900000
                                   2528+*              QSAM - BSAM - BPAM                                       23000000
                            00080  2529+JFCWVCSP EQU   X'80' -   WRITE VALIDITY CHECK                           23100000
                            00040  2530+JFCALLOW EQU   X'40' -   ALLOW A DATA CHECK CAUSED BY AN INVALID        23200000
                                   2531+*                        CHARACTER (1403 PRINTER WITH UCS)              23300000
                            00020  2532+JFCPCIBT EQU   X'20' -   CHAINED SCHEDULING USING THE PROGRAM           23400000
                                   2533+*                        CONTROLLED INTERRUPTION                        23500000
                            00010  2534+JFCBCKPT EQU   X'10' -   BYPASS EMBEDDED DOS CHECKPOINT RECORDS ON TAPE 23550021
                            00004  2535+JFCREDUC EQU   X'04' -   USE REDUCED ERROR RECOVERY PROCEDURE -         23600000
                                   2536+*                        (MAGNETIC TAPE)                                23700000
                            00004  2537+JFCSRCHD EQU   X'04' -   SEARCH DIRECT INSTEAD OF SEARCH PREVIOUS -     23750020
                                   2538+*                        (ROTATIONAL POSITION SENSING DEVICES)          23770020
                                   2539+*              BISAM - QISAM                                            23800000
                            00080  2540+JFCWVCIS EQU   X'80' -   WRITE VALIDITY CHECK                           23900000
                            00020  2541+JFCMAST  EQU   X'20' -   MASTER INDEXES                                 24000000
                            00010  2542+JFCIND   EQU   X'10' -   INDEPENDENT OVERFLOW AREA                      24100000
                            00008  2543+JFCCYL   EQU   X'08' -   CYLINDER OVERFLOW AREA                         24200000
                            00002  2544+JFCDEL   EQU   X'02' -   DELETE OPTION                                  24300000
                            00001  2545+JFCREORG EQU   X'01' -   REORGANIZATION CRITERIA                        24400000
                                   2546+*              BDAM                                                     24500000
                            00080  2547+JFCWVCBD EQU   X'80' -   WRITE VALIDITY CHECK                           24600000
                            00040  2548+JFCOVER  EQU   X'40' -   TRACK OVERFLOW                                 24700000
                            00020  2549+JFCEXT   EQU   X'20' -   EXTENDED SEARCH                                24800000
                            00010  2550+JFCFEED  EQU   X'10' -   FEEDBACK                                       24900000
                            00008  2551+JFCACT   EQU   X'08' -   ACTUAL ADDRESSING                              25000000
                            00001  2552+JFCREL   EQU   X'01' -   RELATIVE TRACK ADDRESSING                      25100000
                                   2553+*              USASI/USASCII                                            25150020
                            00008  2554+JFCOPTQ  EQU   X'08' -   EBCDIC TO OR FROM USASCII TRANSLATION          25160020
                                   2555+*                        REQUESTED                                      25170020
                                   2556+*              TCAM                                                     25180020
                            00080  2557+JFCSDNAM EQU   X'80' -   SOURCE OR DESTINATION NAME PRECEDES MESSAGE    25190020
                                   2558+*                        (AFTER CONTROL BYTE)                           25192020
                            00040  2559+JFCWUMSG EQU   X'40' -   WORK UNIT IS A MESSAGE.  DEFAULT WORK UNIT IS  25194020
                                   2560+*                        A RECORD.                                      25196020
                            00020  2561+JFCCBWU  EQU   X'20' -   CONTROL BYTE PRECEDES WORK UNIT                25198020
000066                             2562+JFCBLKSI DS    H -       MAXIMUM BLOCK SIZE                             25200000
                            00066  2563+JFCBUFSI EQU   JFCBLKSI -2 BYTES FOR MAX BUF SIZE                       25300020
000068                             2564+JFCLRECL DS    H -       LOGICAL RECORD LENGTH                          25400000
00006A                             2565+JFCNCP   DS    XL1 -     NUMBER OF CHANNEL PROGRAMS - NUMBER OF         25500000
                                   2566+*                        READ OR WRITE REQUESTS THAT MAY BE ISSUED      25600000
                                   2567+*                        PRIOR TO A CHECK - NUMBER OF IOBS GEN-         25700000
                                   2568+*                        ERATED (MAXIMUM NUMBER IS 99)                  25800000
                                   2569+*                        NOTE: GAM USES JFCBFTEK FOR THIS INFORMA-      25900000
                                   2570+*                        TION AND DOES NOT USE THIS FIELD AT ALL        26000000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            0006A  2571+JFCBUFMX EQU   JFCNCP -  MAX NO. BUFFERS FOR DATA TRANSMISSION          26100020
00006B                             2572+JFCBFSEQ DS    0FL1 -    TAPE POSITIONING INFORMATION FOR CHECKPOINT    26150021
                                   2573+*                        RESTART.  THIS FIELD IS USED TO PASS A         26160021
                                   2574+*                        PHYSICAL FILE SEQUENCE COUNT FROM CHECKPOINT   26170021
                                   2575+*                        TO RESTART.  THE COUNT TELLS THE PHYSICAL      26180021
                                   2576+*                        POSITION OF THE TAPE VOLUME THAT WAS BEING     26190021
                                   2577+*                        PROCESSED WHEN THE CHECKPOINT WAS TAKEN.       26192021
                                   2578+*                                                               SA60703 26194021
00006B                             2579+JFCNTM   DS    0XL1 -    NUMBER OF TRACKS THAT DETERMINE THE            26200021
                                   2580+*                        DEVELOPMENT OF A MASTER INDEX - MAXIMUM        26300000
                                   2581+*                        NUMBER IS 99   (ISAM)                          26400021
00006B                             2582+JFCPCI   DS    B -       PCI FLAG BYTE                                  26410021
                            00080  2583+JFCPCIX1 EQU   X'80' -   PCI=(X,) RECEIVE OPERATIONS             ICB473 26420021
                            00040  2584+JFCPCIX2 EQU   X'40' -   PCI=(,X) SEND OPERATIONS                       26430021
                                   2585+*                        X INDICATES THAT AFTER THE FIRST BUFFER IS     26440021
                                   2586+*                        FILLED (ON RECEIVE OPERATIONS) OR EMPTIED (ON  26450021
                                   2587+*                        SEND OPERATIONS), A PCI OCCURS DURING THE      26460021
                                   2588+*                        FILLING OR EMPTYING OF THE NEXT BUFFER.  THE   26470021
                                   2589+*                        FIRST BUFFER REMAINS ALLOCATED AND ANOTHER     26480021
                                   2590+*                        IS ALLOCATED.                           ICB473 26490021
                            00020  2591+JFCPCIA1 EQU   X'20' -   PCI=(A,) RECEIVE OPERATIONS                    26500021
                            00010  2592+JFCPCIA2 EQU   X'10' -   PCI=(,A) SEND OPERATIONS                       26510021
                                   2593+*                        A INDICATES THAT AFTER THE FIRST BUFFER IS     26520021
                                   2594+*                        FILLED (ON RECEIVE OPERATIONS) OR EMPTIED (ON  26530021
                                   2595+*                        SEND OPERATIONS), A PCI OCCURS DURING THE      26540021
                                   2596+*                        FILLING OR EMPTYING OF THE NEXT BUFFER.  THE   26550021
                                   2597+*                        FIRST BUFFER IS DEALLOCATED.  A BUFFER IS      26560021
                                   2598+*                        ALLOCATED IN PLACE OF THE DEALLOCATED BUFFER.  26570021
                            00008  2599+JFCPCIN1 EQU   X'08' -   PCI=(N,) RECEIVE OPERATIONS                    26580021
                            00004  2600+JFCPCIN2 EQU   X'04' -   PCI=(,N) SEND OPERATIONS                       26590021
                                   2601+*                        N INDICATES THAT NO PCI'S ARE TAKEN DURING     26600021
                                   2602+*                        FILLING (ON RECEIVE OPERATIONS) OR EMPTYING    26610021
                                   2603+*                        (ON SEND OPERATIONS) OF BUFFERS.  BUFFERS      26620021
                                   2604+*                        ARE DEALLOCATED AT THE END OF TRANSMISSION.    26630021
                            00002  2605+JFCPCIR1 EQU   X'02' -   PCI=(R,) RECEIVE OPERATIONS                    26640021
                            00001  2606+JFCPCIR2 EQU   X'01' -   PCI=(,R) SEND OPERATIONS                       26650021
                                   2607+*                        R INDICATES THAT AFTER THE FIRST BUFFER IS     26660021
                                   2608+*                        FILLED (ON RECEIVE OPERATIONS) OR EMPTIED (ON  26670021
                                   2609+*                        SEND OPERATIONS), A PCI OCCURS DURING THE      26680021
                                   2610+*                        FILLING OR EMPTYING OF EACH SUCCEEDING BUFFER. 26690021
                                   2611+*                        THE COMPLETED BUFFER IS DEALLOCATED, BUT NO    26700021
                                   2612+*                        NEW BUFFER IS ALLOCATED TO TAKE ITS PLACE.     26710021
                                   2613+*******************************************************************     26800000
                                   2614+**                                                                      26900000
                                   2615+**             NORMAL 108 SEGMENT                                       27000000
                                   2616+**                                                                      27100000
00006C                             2617+JFCRKP   DS    H -       RELATIVE POSITION OF THE FIRST BYTE OF         27200000
                                   2618+*                        THE KEY WITHIN EACH LOGICAL RECORD -           27300000
                                   2619+*                        MAXIMUM VALUE IS LOGICAL RECORD LENGTH         27400000
                                   2620+*                        MINUS KEY LENGTH                               27500000
                            0006C  2621+JFCRESRV EQU   JFCRKP -  + 0= # OF BYTES FOR TIME OF DAY                27600020
                                   2622+*                        + 1= # OF BYTES FOR DATE                       27700000
                                   2623+*                        + 2 = # OF BYTES FOR OUT SEQ                   27800000
                                   2624+*                        + 3 = # BYTES IN                               27900000
00006E                             2625+JFCCYLOF DS    XL1 -     NUMBER OF TRACKS TO BE RESERVED ON EACH        28000000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   2626+*                        CYLINDER TO HOLD RECORDS THAT OVERFLOW         28100000
                                   2627+*                        FROM OTHER TRACKS ON THAT CYLINDER -           28200000
                                   2628+*                        MAXIMUM VALUE IS 99                            28300000
00006F                             2629+JFCDBUFN DS    CL1 -     RESERVED                                       28400000
000070                             2630+JFCINTVL DS    XL1 -     INTENTIONAL DELAY, IN SECONDS, BETWEEN         28500000
                                   2631+*                        PASSES THROUGH A POLLING LIST (QTAM)           28600000
                                   2632+**             END OF NORMAL 108 SEGMENT                                28700000
                                   2633+*******************************************************************     28800000



                                   2635+*******************************************************************     29000000
                                   2636+**                                                                      29100000
                                   2637+**             108 PRINTER SEGMENT                                      29200020
                                   2638+**                                                                      29300000
000071                      0006C  2639+         ORG   JFCRKP                                                   29400000
00006C                             2640+JFCUCSID DS    CL4 -     NAME OF THE UCS IMAGE TO BE LOADED             29500000
000070                             2641+JFCUCSOP DS    B -       OPERATION OF THE UCS IMAGE TO BE LOADED        29600000
                            00040  2642+JFCFOLD  EQU   X'40' -   UCS IMAGE TO BE LOADED IN THE FOLD MODE        29700000
                            00010  2643+JFCVER   EQU   X'10' -   UCS IMAGE TO BE VERIFIED                       29800000
                            00008  2644+JFCFCBAL EQU   X'08' -   FCB ALIGN                                      29850000
                            00004  2645+JFCFCBVR EQU   X'04' -   FCB VERIFY                                     29860000
                                   2646+**             END OF 108 PRINTER SEGMENT                               29900020
                                   2647+*******************************************************************     30000000
000071                             2648+JFCCPRI  DS    B -       PRIORITY BETWEEN SEND AND RECEIVE              30100000
                                   2649+*                        OPERATIONS (QTAM)                              30200000
                            00071  2650+JFCOUTLI EQU   JFCCPRI - OUTPUT LIMIT FOR SMF                           30300020
                            00071  2651+JFCTHRSH EQU   JFCCPRI - RECORDS TO BE USED                             30400020
                            00080  2652+JFCSEND  EQU   X'80' -   SEND PRIORITY                                  30500000
                            00040  2653+JFCEQUAL EQU   X'40' -   EQUAL PRIORITY                                 30600000
                            00020  2654+JFCRECV  EQU   X'20' -   RECEIVE PRIORITY                               30700000
000072                             2655+JFCSOWA  DS    H -       LENGTH, IN BYTES, OF THE USER PROVIDED         30800000
                                   2656+*                        WORK AREA (QTAM)                               30900000
000074                             2657+JFCBNTCS DS    XL1 -     NUMBER OF OVERFLOW TRACKS                      31000000
000075                             2658+JFCBNVOL DS    XL1 -     NUMBER OF VOLUME SERIAL NUMBERS                31100000
000076                             2659+JFCBVOLS DS    CL30 -    THE FIRST FIVE VOLUME SERIAL NUMBERS           31200000
000094                             2660+JFCBEXTL DS    XL1 -     LENGTH OF BLOCK OF EXTRA VOLUME SERIAL         31300000
                                   2661+*                        NUMBERS (BEYOND FIVE)                          31400000
000095                             2662+JFCBEXAD DS    CL3 -     RELATIVE TRACK ADDRESS (TTR) OF FIRST JFCB     31500000
                                   2663+*                        EXTENSION BLOCK                                31600000
000098                             2664+JFCBPQTY DS    CL3 -     PRIMARY QUANTITY OF DIRECT ACCESS              31700000
                                   2665+*                        STORAGE REQUIRED                               31800000



00009B                             2667+JFCBCTRI DS    B -       SPACE PARAMETERS                               31900000
                            000C0  2668+JFCBSPAC EQU   X'C0' -   BIT PATTERN FOR SPACE REQUESTS                 32000000
                                   2669+********************************************************************    32200000
                                   2670+*                                                                       32300000
                                   2671+*   THE FOLLOWING FOUR EQUATES ARE FOR THE SPACE MASK BITS TO BE SET    32400000
                                   2672+*    IN THE  TWO HIGH ORDER BITS (JFCBSPAC) OF JFCBCTRI                 32500000
                                   2673+*                                                                       32600000
                                   2674+********************************************************************    32700000
                            00000  2675+JFCBABS  EQU   X'00' -   'ABSTR' REQUEST                                32900000
                            00040  2676+JFCBAVR  EQU   X'40' -   AVERAGE BLOCK LENGTH REQUEST                   33000000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00080  2677+JFCBTRK  EQU   X'80' -   'TRK' REQUEST                                  33100000
                            000C0  2678+JFCBCYL  EQU   X'C0' -   'CYL' REQUEST                                  33200000
                                   2679+********************************************************************    33250000
                            00008  2680+JFCONTIG EQU   X'08' -   'CONTIG' REQUEST                               33400000
                            00004  2681+JFCMIXG  EQU   X'04' -   'MXIG' REQUEST                                 33500000
                            00002  2682+JFCALX   EQU   X'02' -   'ALX' REQUEST                                  33600000
                            00001  2683+JFCROUND EQU   X'01' -   'ROUND' REQUEST                                33700000



00009C                             2685+JFCBSQTY DS    CL3 -     SECONDARY QUANTITY OF DIRECT ACCESS            33800000
                                   2686+*                        STORAGE REQUIRED                               33900000
00009F                             2687+JFCFLGS1 DS    B -       FLAG BYTE (ICB488)                     SA53458 33950021
                            00040  2688+JFCPTTR  EQU   X'40' -   RESERVED FOR MODEL DEPENDENT SUPPORT    ICB490 34000021
                            00001  2689+JFCBUAFF EQU   X'01' -   UNIT AFFINITY SPECIFIED FOR THIS DATA SET      34050021
                                   2690+*                        (ICB488)                               SA53458 34100021
0000A0                             2691+JFCBDQTY DS    CL3 -     QUANTITY OF DIRECT ACCESS STORAGE REQUIRED     34500000
                                   2692+*                        FOR A DIRECTORY OR AN EMBEDDED INDEX AREA      34600000
0000A3                             2693+JFCBSPNM DS    AL3 -     MAIN STORAGE ADDRESS OF THE JFCB WITH          34700000
                                   2694+*                        WHICH CYLINDERS ARE SPLIT                      34800000
0000A6                             2695+JFCBABST DS    H -       RELATIVE ADDRESS OF FIRST TRACK TO BE          34900000
                                   2696+*                        ALLOCATED                                      35000000
0000A8                             2697+JFCBSBNM DS    AL3 -     MAIN STORAGE ADDRESS OF THE JFCB FROM          35100000
                                   2698+*                        WHICH SPACE IS TO BE SUBALLOCATED              35200000
0000AB                             2699+JFCBDRLH DS    CL3 -     AVERAGE DATA BLOCK LENGTH                      35300000
0000AE                             2700+JFCBVLCT DS    XL1 -     VOLUME COUNT                                   35400000
0000AF                             2701+JFCBSPTN DS    XL1 -     NUMBER OF TRACKS PER CYLINDER TO BE USED       35500000
                                   2702+*                        BY THIS DATA SET WHEN SPLIT CYLINDER IS        35600000
                                   2703+*                        INDICATED                                      35700000
                            000B0  2704+JFCBLGTH EQU   176 -     LENGTH OF JFCB                                 35800000
                            000B0  2705+JFCBEND  EQU   *                                                        35900000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   2707 ******************************************************************
                                   2708 *                                                                *
                                   2709 *        Unit Control Block (UCB).                               *
                                   2710 *                                                                *
                                   2711 ******************************************************************

000000                             2713 UCBDSECT DSECT ,                   Start UCB dsect
                                   2714          IEFUCBOB ,                Map UCB
                                   2715+*********************************************************************** 00320000
                                   2716+*                                                                       00400000
                                   2717+*              U N I T   C O N T R O L   B L O C K                      00480000
                                   2718+*                                                                       00560000
                                   2719+*********************************************************************** 00640000
                                   2720+*                                                                       00720000
                                   2721+*       STATUS                                                          00800000
                                   2722+*                                                                       00880000
                                   2723+*             RELEASES 21.6,21.7,21.8, 10/12/73, LEVEL=6                01010021
                                   2724+*                                                                       01120000
                                   2725+*       FUNCTION                                                        01200000
                                   2726+*                                                                       01280000
                                   2727+*         A UNIT CONTROL BLOCK                                          01360000
                                   2728+*           INCORPORATING A SYSTEM RESOURCE TABLE                       01440000
                                   2729+*             RECORDS THE STATUS OF                                     01520000
                                   2730+*               A PHYSICAL INPUT OUTPUT DEVICE ADDRESS                  01600000
                                   2731+*             IS CREATED AND INITIALIZED DURING SYSTEM GENERATION       01680000
                                   2732+*             RESIDES IN THE NUCLEUS BELOW 32 K                         01760000
                                   2733+*             POINTS TO A DEVICE TYPE DEPENDENT EXTENSION               01840000
                                   2734+*               RESIDING HIGHER IN THE NUCLEUS                          01920000
                                   2735+*             IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY          02000000
                                   2736+*               A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS   02080000
                                   2737+*             MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES             02160000
                                   2738+*               AND DATA EXTENT BLOCKS                                  02240000
                                   2739+*             CONTAINS INDICES INTO TABLES FOR                          02320000
                                   2740+*               DEVICE STATISTICS ATTENTION LOGICAL CHANNEL             02400000
                                   2741+*             MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS  02480000
                                   2742+*                                                                       02560000
                                   2743+*       ENTRY                                                           02640000
                                   2744+*                                                                       02720000
                                   2745+*             IEFUCBOB                                                  02800000
                                   2746+*                                                                       02880000
                                   2747+*       INPUT                                                           02960000
                                   2748+*                                                                       03040000
                                   2749+*             BAL: DSECT                                                03120000
                                   2750+*             BSL: DCL (UCBPTR, UCBDCPTR) PTR                           03200000
                                   2751+*                                                                       03280000
                                   2752+*       OUTPUT                                                          03360000
                                   2753+*                                                                       03440000
                                   2754+*             SYSGEN INDEPENDENT COMMON SECTION                         03520000
                                   2755+*               INCLUDING UCBTYP WORD                                   03600000
                                   2756+*             DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)           03680000
                                   2757+*               DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE       03760000
                                   2758+*               DATACELL                                                03840000
                                   2759+*                 (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)     03920000
                                   2760+*               UNIT RECORD WITH UNIVERSAL CHARACTER SET                04000000
                                   2761+*               GRAPHICS (EXCEPT M85 CRT CONSOLE)                       04080000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   2762+*               TAPE CARTRIDGE READER AND OPTICAL READER                04160000
                                   2763+*             CELL DESCRIPTION FOR ONE OF THE TEN CELLS                 04240000
                                   2764+*               IN THE DATACELL DEVICE SEGMENT ABOVE                    04320000
                                   2765+*             UCB EXTENSION (ONE OF THE FOLLOWING)                      04400000
                                   2766+*               DIRECT ACCESS                                           04480000
                                   2767+*               MAGNETIC TAPE                                           04560000
                                   2768+*               TAPE CARTRIDGE READER                                   04640000
                                   2769+*               OPTICAL READER                                          04720000
                                   2770+*               UNIVERSAL CHARACTER SET                                 04800000
                                   2771+*             M65 MULTIPROCESSING PREFIX                                04880000
                                   2772+*               (CONTIGUOUSLY PRECEDING COMMON SECTION)                 04960000
                                   2773+*                                                                       05040000
                                   2774+*       ATTRIBUTES                                                      05120000
                                   2775+*                                                                       05200000
                                   2776+*             BILINGUAL                                                 05280000
                                   2777+*                                                                       05360000
                                   2778+*********************************************************************** 05440000
                                   2779+*                                                                       05520000
                                   2780+*       SYSGEN-INDEPENDENT                                              05600000
                                   2781+*       COMMON SECTION                                                  05680000
                                   2782+*                                                                       05760000
000000                             2783+         DS    0D -                    UNIT CONTROL BLOCK PROPER        05840000
                                   2784+*                                                                       05920000
                            00000  2785+UCBOB    EQU   * -                     UCBPTR -> UCBOB                  06000000
                                   2786+*                                                                       06080000
                                   2787+*********************************************************************** 06160000
                                   2788+*                                                                       06240000
000000                             2789+UCBJBNR  DS    B -                     INTERNAL JOB ID                  06320000
                            000F0  2790+UCBKEY   EQU   X'F0' -                 JOB PROTECTION KEY               06400000
                                   2791+*                                        (SET FOR RETAIN OR PASS)       06480000
                            00008  2792+UCBTEPDC EQU   X'08' -                 DEVICE NOT ALLOCATABLE BECAUSE   06530021
                                   2793+*                                      OWNED BY OLTEP           SA59673 06540021
                            00002  2794+UCBDEM   EQU   X'02' -                 DEMOUNT AND RETAIN OR PASS       06560000
                                   2795+*                                        (SET DURING DEVICE ALLOC)      06640000
                            00001  2796+UCBMONT  EQU   X'01' -                 MOUNT AND RETAIN OR PASS         06720000
                                   2797+*                                        (SET DURING DEVICE ALLOC)      06800000
000001                             2798+UCBFL5   DS    B -                     FLAGS                            06880020
                            00020  2799+UCBTICBT EQU   X'20' -                 CHANNEL END AND/OR DEVICE END    07010020
                                   2800+*                                      OR MOUNT CONDITION PENDING.      07020020
                                   2801+*                                      USED ONLY WITH PTF.       ICB289 07030020
                            00010  2802+UCBVSDR  EQU   X'10' -                 DEVICE HAS VARIABLE LENGTH SDRS  07032021
                            00008  2803+UCBEXTSN EQU   X'08' -                 UCBNBRSN CONTAINS LENGTH AND     07040020
                                   2804+*                                        UCBSNADR ADDRESS OF SENSE INFO 07120000
                            00004  2805+UCBNALOC EQU   X'04' -                 DEVICE NOT ALLOCATABLE   SA59673 07200021
                            00002  2806+UCBALTCU EQU   X'02' -                 DEVICE HAS ALTERNATE CU ADDRESS  07360000
                            00001  2807+UCBALTPH EQU   X'01' -                 DEVICE HAS ALTERNATE PATH        07440000
000002                             2808+UCBID    DS    C -                     UCB ID (FF)                      07520000
000003                             2809+UCBSTAT  DS    B -                     DEVICE STATUS                    07600000
                            00080  2810+UCBONLI  EQU   X'80' -                 DEVICE ONLINE                    07680000
                            00040  2811+UCBCHGS  EQU   X'40' -                 DEVICE TO BE VARIED OFFLINE      07760000
                            00020  2812+UCBRESV  EQU   X'20' -                 VOLUME RESERVED                  07840000
                            00010  2813+UCBUNLD  EQU   X'10' -                 UNLOAD PENDING                   07920000
                            00008  2814+UCBALOC  EQU   X'08' -                 DEVICE ALLOCATED                 08000000
                            00004  2815+UCBPRES  EQU   X'04' -                 VOLUME PERMANENTLY RESIDENT      08080000
                            00002  2816+UCBSYSR  EQU   X'02' -                 EITHER SYSTEM RESIDENCE          08160000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   2817+*                                        OR PRIMARY CONSOLE             08240000
                            00001  2818+UCBDADI  EQU   X'01' -                 EITHER STANDARD TAPE LABELS      08320000
                                   2819+*                                        VERIFIED OR ALTERNATE CONSOLE  08400000
000004                             2820+UCBCHA   DS    B -                     CHANNEL ADDRESS FLAGS            08480000
                            00080  2821+UCBHIO   EQU   X'80' -                 HALT I/O                         08560000
                            00040  2822+UCBMOD   EQU   X'40' -                 STATUS MODIFIER                  08640000
                            00020  2823+UCBDSNS  EQU   X'20' -                 DELAYED SENSE                    08690021
                            00010  2824+UCBDHIO  EQU   X'10' -                 DELAYED HALT I/O                 08700021
                            0000F  2825+UCBCHANA EQU   X'0F' -                 CHANNEL ADDRESS                  08720021
000005                             2826+UCBUA    DS    FL1 -                   UNIT ADDRESS                     08800000
000006                             2827+UCBFL1   DS    B -                     FLAGS                            08880000
                            00080  2828+UCBBUSYD EQU   X'80' -                 DEVICE BUSY                      08960000
                            00040  2829+UCBNOTRD EQU   X'40' -                 DEVICE NOT READY                 09040000
                            00020  2830+UCBUSING EQU   X'20' -                 CHANNEL PROGRAM EXECUTED         09120000
                                   2831+*                                        AND NOT YET POSTED COMPLETE    09200000
                            00010  2832+UCBINTER EQU   X'10' -                 DEVICE END ERROR                 09280000
                                   2833+*                                        AFTER CHANNEL END              09360000
                                   2834+*                                        (IOB INTERCEPT)                09440000
                            00008  2835+UCBNOTRC EQU   X'08' -                 CONTROL UNIT BUSY                09520000
                            00006  2836+UCBSTS   EQU   X'06' -                 DEVICE STATUS                    09600000
                                   2837+*/       01    UCBNTRAN                DIRECT ACCESS ARM SEEKING        09680000
                                   2838+*                                        (IOS STANDALONE CP EXECUTED)   09760000
                                   2839+*                                        OR TC RECEIVE STATUS           09840000
                                   2840+*                                        (INHIBIT HIO)                  09920000
                                   2841+*/       11    UCBTRANS                DIRECT ACCESS DATA TRANSFER      10000000
                                   2842+*                                        (USER CP EXECUTING)            10080000
                            00001  2843+UCBERR   EQU   X'01' -                 ERROR ROUTINE USING DEVICE       10160000
                                   2844+*                                        EXCLUSIVELY                    10240000
000007                             2845+UCBDTI   DS    FL1 -                   DEVICE TABLE INDEX               10320000
000008                             2846+UCBETI   DS    FL1 -                   ERROR TABLE INDEX                10400000
                                   2847+*                                        (ERROR ROUTINE SUFFIX)         10480000
000009                             2848+UCBSTI   DS    FL1 -                   STATUS TABLE INDEX               10560000
                                   2849+*                                        (*10 = STATAB INDEX)           10640000
00000A                             2850+UCBLCI   DS    FL1 -                   LOGICAL CHANNEL WORD TABLE INDEX 10720000
                                   2851+*                                        (*8 = LCHTAB INDEX)            10800000
00000B                             2852+UCBATI   DS    FL1 -                   ATTENTION TABLE (ANTAB) INDEX    10880000
00000C                             2853+UCBWGT   DS    B -                     FLAGS AND CHANNEL MASK           10960000
                            00080  2854+UCBIN    EQU   X'80' -                 SYSIN                            11040000
                            00040  2855+UCBOUT   EQU   X'40' -                 SYSOUT                           11120000
                            00020  2856+UCBPUB   EQU   X'20' -                 ASSUME PUBLIC VOLUME             11200000
                            00010  2857+UCBREW   EQU   X'10' -                 REWIND COMMAND                   11280000
                            0000F  2858+UCBPATH  EQU   X'0F' -                 INOPERATIVE PATHS                11360000
                            00008  2859+UCBPATH0 EQU   X'08' -                 PRIMARY PATH INOPERATIVE         11440000
                            00004  2860+UCBPATH1 EQU   X'04' -                 OPTIONAL PATH 1 INOPERATIVE      11520000
                            00002  2861+UCBPATH2 EQU   X'02' -                 OPTIONAL PATH 2 INOPERATIVE      11600000
                            00001  2862+UCBPATH3 EQU   X'01' -                 OPTIONAL PATH 3 INOPERATIVE      11680000
00000D                             2863+UCBNAME  DS    CL3 -                   EBCDIC UNIT NAME                 11760000
000010                             2864+UCBTYP   DS    0CL4 -                  DEVICE DESCRIPTION               11840000
000010                             2865+UCBTBYT1 DS    B -                     MODEL BITS                       11920000
                            00080  2866+UCB1FEA0 EQU   X'80' -                 BIT 0                            12000000
                            00040  2867+UCB1FEA1 EQU   X'40' -                 BIT 1                            12080000
                            00020  2868+UCB1FEA2 EQU   X'20' -                 BIT 2                            12160000
                            00010  2869+UCB1FEA3 EQU   X'10' -                 BIT 3                            12240000
                            00008  2870+UCB1FEA4 EQU   X'08' -                 BIT 4                            12320000
                            00004  2871+UCB1FEA5 EQU   X'04' -                 BIT 5                            12400000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00002  2872+UCB1FEA6 EQU   X'02' -                 BIT 6                            12480000
                            00001  2873+UCB1FEA7 EQU   X'01' -                 BIT 7                            12560000
000011                             2874+UCBTBYT2 DS    B -                     OPTION FLAGS                     12640000
                            00080  2875+UCB2OPT0 EQU   X'80' -                 FLAG 0                           12720000
                            00040  2876+UCB2OPT1 EQU   X'40' -                 FLAG 1                           12800000
                            00020  2877+UCB2OPT2 EQU   X'20' -                 FLAG 2                           12880000
                            00010  2878+UCB2OPT3 EQU   X'10' -                 FLAG 3                           12960000
                            00008  2879+UCB2OPT4 EQU   X'08' -                 FLAG 4                           13040000
                            00004  2880+UCB2OPT5 EQU   X'04' -                 FLAG 5                           13120000
                            00002  2881+UCB2OPT6 EQU   X'02' -                 FLAG 6                           13200000
                            00002  2882+UCBVLPWR EQU   X'02' -                 VOLUME REQUIRES ALTERNATE POWER  13220021
                                   2883+*                                      SOURCE DEVICE             S21167 13240021
                            00001  2884+UCB2OPT7 EQU   X'01' -                 FLAG 7                           13280000
                            00001  2885+UCBDVPWR EQU   X'01' -                 DEVICE HAS ALTERNATE POWER       13300021
                                   2886+*                                      SOURCE                    S21167 13320021
000012                             2887+UCBTBYT3 DS    B -                     CLASS BITS                       13360000
                            00080  2888+UCB3TAPE EQU   X'80' -                 TAPE                             13440000
                            00040  2889+UCB3COMM EQU   X'40' -                 COMMUNICATIONS                   13520000
                            00020  2890+UCB3DACC EQU   X'20' -                 DIRECT ACCESS                    13600000
                            00010  2891+UCB3DISP EQU   X'10' -                 DISPLAY                          13680000
                            00008  2892+UCB3UREC EQU   X'08' -                 UNIT RECORD                      13760000
                            00004  2893+UCB3CHAR EQU   X'04' -                 CHARACTER READER                 13840000
000013                             2894+UCBTBYT4 DS    C -                     DEVICE CODE                      13920000
000014                             2895+UCBLTS   DS    CL2 -                   LAST REQUEST ELEMENT             14000000
000016                             2896+UCBSNS   DS    0CL2 -                  SENSE INFORMATION FOR DEVICES    14050021
                                   2897+*                                      WITHOUT EXTENDED SENSE    ICB425 14100021
000016                             2898+UCBFL7   DS    B -                     FLAG BYTE FOR DEVICES WITH       14150021
                                   2899+*                                      EXTENDED SENSE            ICB425 14152021
                            00080  2900+UCBASDEP EQU   X'80' -                 INDICATES CANCEL KEY DEPRESSED   14154021
                                   2901+*                                      ON 3211                   ICB425 14156021
000017                             2902+         DS    X -                     RESERVED BYTE FOR DEVICES WITH   14158021
                                   2903+*                                      EXTENDED SENSE            ICB425 14158421
                                   2904+*                                                                       14160000
                            00000  2905+SRTEJBNR EQU   UCBJBNR -               ALIAS                            14240000
                            00001  2906+SRTEMNT  EQU   UCBMONT -               ALIAS                            14320000
                            00003  2907+SRTESTAT EQU   UCBSTAT -               ALIAS                            14400000
                            00080  2908+SRTEONLI EQU   UCBONLI -               ALIAS                            14480000
                            00040  2909+SRTECHGS EQU   UCBCHGS -               ALIAS                            14560000
                            00020  2910+SRTERESV EQU   UCBRESV -               ALIAS                            14640000
                            00010  2911+SRTEUNLD EQU   UCBUNLD -               ALIAS                            14720000
                            00008  2912+SRTEALOC EQU   UCBALOC -               ALIAS                            14800000
                            00004  2913+SRTEPRES EQU   UCBPRES -               ALIAS                            14880000
                            00002  2914+SRTESYSR EQU   UCBSYSR -               ALIAS                            14960000
                            00001  2915+SRTEDADI EQU   UCBDADI -               ALIAS                            15040000
                            00006  2916+UCBFL2   EQU   UCBFL1 -                ALIAS (UCBCHA WAS ONCE UCBFL1)   15120000
                                   2917+*                                                                       15200000
                                   2918+*********************************************************************** 15280000
                                   2919+*                                                                       15360000
                                   2920+*        DEVICE-DEPENDENT UCB SEGMENTS                                  15440000
                                   2921+*                                                                       15520000
                            00018  2922+UCBDEV   EQU   *                                                        15600000
                                   2923+*                                                                       15680000
                                   2924+*********************************************************************** 15760000
                                   2925+*                                                                       15840000
                                   2926+*             DIRECT ACCESS (2300)                                      15920000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   2927+*             (EXCEPT DATA CELL)                                        16000000
                                   2928+*             AND MAGNETIC TAPE (2400)                                  16080000
                                   2929+*             UCB SEGMENT                                               16160000
                                   2930+*                                                                       16240000
000018                      00018  2931+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT         16320000
                                   2932+*                                                                       16400000
                                   2933+*********************************************************************** 16480000
                                   2934+*                                                                       16560000
000018                             2935+UCBSENSE DS    0CL4 -                  ADDITIONAL SENSE INFORMATION FOR 16640020
                                   2936+*                                      DEVICES WITH SIX SENSE BYTES     16690020
000018                             2937+UCBSENSB DS    0A -                    SAME AS UCBSENSA BELOW           16700020
000018                             2938+UCBSENSN DS    FL1 -                   NUMBER OF EXPANDED SENSE BYTES   16710020
000019                             2939+UCBSENSA DS    AL3 -                   ADDRESS OF EXPANDED SENSE        16712020
                                   2940+*                                      INFORMATION                      16714020
00001C                             2941+UCBVOLI  DS    CL6 -                   VOLUME SERIAL NUMBER             16720000
000022                             2942+UCBSTAB  DS    B -                     VOLUME STATUS                    16800000
                            00080  2943+UCBBSVL  EQU   X'80' -                 NOT SHARABLE (DIRECT ACCESS)     16880021
                            00080  2944+UCBDVSHR EQU   X'80' -                 WHEN ONE, DEVICE SHARABLE AMONG  16930021
                                   2945+*                                      SEVERAL CPU'S (3420 MAGNETIC     16940021
                                   2946+*                                      TAPE DEVICES ONLY)        ICB485 16950021
                            00040  2947+UCBBVSC  EQU   X'40' -                 RESERVED                         16960000
                            00020  2948+UCBBALB  EQU   X'20' -                 MORE VOLUME LABEL PROCESSING     17040000
                            00020  2949+UCBPRSRS EQU   X'20' -                 THIS DEVICE WAS SPECIFIED IN     17090020
                                   2950+*                                      PRESRES BUT WAS NOT MOUNTED AT   17100020
                                   2951+*                                      IPL                              17110020
                            00010  2952+UCBBPRV  EQU   X'10' -                 PRIVATE USE                      17120000
                            00008  2953+UCBBPUB  EQU   X'08' -                 PUBLIC USE                       17200000
                            00004  2954+UCBBSTR  EQU   X'04' -                 STORAGE USE (DA)                 17280000
                                   2955+*                                        ANSI LABEL (MT)                17360000
                            00002  2956+UCBBJLB  EQU   X'02' -                 JOBLIB VOLUME (DA)               17440000
                            00001  2957+UCBBNUL  EQU   X'01' -                 MCS MOUNT/DEMOUNT MSGS ISSUED    17520000
                                   2958+*                                        (MESSAGE IDS IN UCBFSER) (MT)  17600000
                                   2959+*                                        CONTROL VOLUME (DA)            17680000
000023                             2960+UCBDMCT  DS    B -                     VOLUME USE BYTE                  17760000
                            00080  2961+UCBMOUNT EQU   X'80' -                 MOUNTED OR REQUEST ISSUED        17840000
                                   2962+*                                        (OFF MEANS MOUNT VERIFIED)     17920000
                            0007F  2963+UCBDMC   EQU   X'7F' -                 NUMBER OF OPEN DCBS              18000000
000024                             2964+UCBVTOC  DS    0CL4 -                  TTR0 OF VTOC (DA)                18080000
000024                             2965+UCBFSCT  DS    H -                     DATASET SEQUENCE COUNT (MT)      18160000
000026                             2966+UCBFSEQ  DS    H -                     DATASET SEQUENCE NUMBER (MT)     18240000
000028                             2967+UCBFSER  DS    0CL8 -                  DATASET SERIAL NUMBER            18320000
                                   2968+*                                        (MT AFTER OPEN) OR             18400000
                                   2969+*                                        MESSAGE IDS  (MT BEFORE OPEN)  18480000
                                   2970+*                                        PLUS TWO RESERVED BYTES (MT)   18560000
000028                             2971+UCBSQC   DS    FL1 -                   NUMBER OF RESERVE MACROS         18640000
                                   2972+*                                        (DA INCLUDING DATACELL)        18720000
000029                             2973+UCBDVRES DS    FL1 -                   DEVICE RESERVATION (SHARED DASD) 18800000
                                   2974+*                                        (DA INCLUDING DATACELL)        18880000
                                   2975+*                                        SET TO UCBSQC AFTER GOOD SIO   18960000
00002A                             2976+UCBRQESV DS    H -                     ADDRESS OF RQE TO VERIFY         19040000
                                   2977+*                                        VOL SER NUMBER IN UCB          19120000
                                   2978+*                                        (SET FROM UCBLTS AFTER         19200000
                                   2979+*                                        UNSOLICITED DEVICE END)        19280000
                                   2980+*                                        (DA INCLUDING DATACELL)        19360000
00002C                             2981+UCBORSVA DS    0A -                    ADDRESS OF DEB FOR FIRST USER    19440000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   2982+*                                        ON QUEUE FOR DEVICE            19520000
                                   2983+*                                        (DA INCLUDING DATACELL)        19600000
00002C                             2984+UCBFL4   DS    B -                     FLAGS (DA INCLUDING DATACELL)    19680000
                            000F8  2985+UCBDAV   EQU   X'F8' -                 VOLUME VERIFICATION FLAGS        19760000
                            00080  2986+UCBMNT   EQU   X'80' -                 VOL SER VERIFIER ISSUED MOUNT    19840000
                            00040  2987+UCBVVRTN EQU   X'40' -                 VOL SER VERIFIER IN CONTROL      19920000
                            00020  2988+UCBFT    EQU   X'20' -                 FIRST VERIFIER ENTRY FOR VOL     20000000
                            00010  2989+UCBTCC   EQU   X'10' -                 ALTERNATE TRACK PROCEDURE        20080000
                                   2990+*                                        HANDLING VOL LABEL             20160000
                            00008  2991+UCBVER   EQU   X'08' -                 VERIFIER VERIFIED VOL            20240000
                            00007  2992+UCBORCNT EQU   X'07' -                 NUMBER OF REQUESTS FOR DEVICE    20320000
                                   2993+*                                        FROM FIRST USER ON QUEUE       20400000
00002D                             2994+UCBORSVB DS    AL3 -                   ADDRESS OF DEB FOR FIRST USER    20480000
                                   2995+*                                        ON QUEUE FOR DEVICE            20560000
                                   2996+*                                        (DA INCLUDING DATACELL)        20640000
000030                             2997+UCBSKA   DS    0CL8 -                  MBBCCHHR OF LAST SEEK            20720000
                                   2998+*                                        (DA INCLUDING DATACELL)        20800000
000030                             2999+UCBXTN   DS    0A -                    ADDRESS OF UCB EXTENSION (MT)    20880000
000030                             3000+UCBVOPT  DS    B -                     VOLUME STATISTIC FLAGS           20960000
                            00080  3001+UCBESV   EQU   X'80' -                 ESV RECORDS KEPT                 21040000
                            00040  3002+UCBEVA   EQU   X'40' -                 EVA RECORDS MAY BE KEPT          21120000
                            00020  3003+UCBESVC  EQU   X'20' -                 ESV RECORDS SENT TO CONSOLE      21200000
                                   3004+*                                        AS OPPOSED TO SYS1.MAN         21280000
                            00010  3005+UCBERPC  EQU   X'10' -                 ERROR RECOVERY PROC IN CONTROL   21360000
                            00008  3006+UCBESVE  EQU   X'08' -                 ESV RECORD ISSUED FOR VOLUME     21440000
                                   3007+*                                        BECAUSE OF EOV                 21520000
                            00001  3008+UCBASNDE EQU   X'01' -                 UNSOLICITED DEVICE END OCCURRED  21570021
                                   3009+*                                      ON 3420                   ICB277 21580021
000031                             3010+UCBXTNB  DS    AL3 -                   ADDRESS OF UCB EXTENSION (MT)    21600000
                                   3011+*                                        (MAP BELOW)                    21680000
000034                             3012+         DS    CL4 -                   UCBSKA PADDING (NOT IN UCB)      21760000
                                   3013+*                                         NO LONGER EXISTS (MT)         21840000
000038                             3014+UCBECBB  DS    0A -                    ECB ADDRESS (DA)                 21920000
000038                             3015+UCBUSER  DS    FL1 -                   NUMBER OF CURRENT USERS (DA)     22000000
000039                             3016+UCBECBA  DS    AL3 -                   ECB ADDRESS (DA)                 22080000
00003C                             3017+UCBEXT   DS    0A -                    ADDRESS OF UCB EXTENSION (DA)    22160021
                                   3018+*                                        (MAPPED BELOW)                 22240000
00003C                             3019+UCBWKADB DS    A -                     ALIAS                            22290021
                                   3020+*                                                                       22320000
                            0001C  3021+SRTEVOLI EQU   UCBVOLI -               ALIAS                            22400000
                            00022  3022+SRTESTAB EQU   UCBSTAB -               ALIAS                            22480000
                            00080  3023+SRTEBSVL EQU   UCBBSVL -               ALIAS                            22560000
                            00040  3024+SRTEBVSC EQU   UCBBVSC -               ALIAS                            22640000
                            00020  3025+SRTEBALB EQU   UCBBALB -               ALIAS                            22720000
                            00010  3026+SRTEBPRV EQU   UCBBPRV -               ALIAS                            22800000
                            00008  3027+SRTEBPUB EQU   UCBBPUB -               ALIAS                            22880000
                            00004  3028+SRTEBSTR EQU   UCBBSTR -               ALIAS                            22960000
                            00004  3029+SRTEASCI EQU   UCBBSTR -               ALIAS                            23040000
                            00004  3030+UCBASCI  EQU   SRTEASCI -              ALIAS                            23120000
                            00004  3031+SRTEBVQS EQU   SRTEBSTR -              ALIAS                            23200000
                            00002  3032+SRTEBJLB EQU   UCBBJLB -               ALIAS                            23280000
                            00001  3033+SRTEBNUL EQU   UCBBNUL -               ALIAS                            23360000
                            00023  3034+SRTEDMCT EQU   UCBDMCT -               ALIAS                            23440000
                            00024  3035+SRTEFSCT EQU   UCBFSCT -               ALIAS                            23520000
                            00026  3036+SRTEFSEQ EQU   UCBFSEQ -               ALIAS                            23600000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00038  3037+SRTEUSER EQU   UCBUSER -               ALIAS                            23680000
                            00039  3038+SRTEECBA EQU   UCBECBA -               ALIAS                            23760000
                                   3039+*                                                                       23840000
                                   3040+*********************************************************************** 23920000
                                   3041+*                                                                       24000000
                                   3042+*             DATA CELL (2321)                                          24080000
                                   3043+*             UCB SEGMENT                                               24160000
                                   3044+*                                                                       24240000
000040                      00018  3045+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT         24320000
                                   3046+*                                                                       24400000
                                   3047+*********************************************************************** 24480000
                                   3048+*                                                                       24560000
000018                             3049+UCBSEN   DS    CL4 -                   MORE SENSE INFORMATION           24640000
00001C                             3050+UCBERPA  DS    CL12 -                  ERROR RECOVERY WORK AREA A       24720000
000028                             3051+UCBDASD  DS    CL16 -                  DATA CELL FIELDS MAPPED BY       24800000
                                   3052+*                                        UCBSQC (1 BYTE)                24880000
                                   3053+*                                        UCBDVRES (1 BYTE)              24960000
                                   3054+*                                        UCBRQESV (2 BYTES)             25040000
                                   3055+*                                        UCBFL4 (1 FLAG BYTE)           25120000
                                   3056+*                                        UCBORSVA/B (3 BYTES)           25200000
                                   3057+*                                        UCBSKA (8 BYTES)               25280000
                                   3058+*                                        UNDER DIRECT ACCESS ABOVE      25360000
000038                             3059+UCBCELLS DS    0CL160 -                CELL DESCRIPTIONS (MAPPED BELOW) 25440000
000038                             3060+UCBCELL0 DS    CL16 -                  CELL 0                           25520000
000048                             3061+UCBCELL1 DS    CL16 -                  CELL 1                           25600000
000058                             3062+UCBCELL2 DS    CL16 -                  CELL 2                           25680000
000068                             3063+UCBCELL3 DS    CL16 -                  CELL 3                           25760000
000078                             3064+UCBCELL4 DS    CL16 -                  CELL 4                           25840000
000088                             3065+UCBCELL5 DS    CL16 -                  CELL 5                           25920000
000098                             3066+UCBCELL6 DS    CL16 -                  CELL 6                           26000000
0000A8                             3067+UCBCELL7 DS    CL16 -                  CELL 7                           26080000
0000B8                             3068+UCBCELL8 DS    CL16 -                  CELL 8                           26160000
0000C8                             3069+UCBCELL9 DS    CL16 -                  CELL 9                           26240000
0000D8                             3070+UCBDC    DS    0A -                    ADDRESS OF DATACELL UCB EXT      26320021
                                   3071+*                                        (MAPPED BELOW)                 26400000
0000D8                             3072+UCBWKADA DS    A -                     ALIAS                            26450021
                                   3073+*                                                                       26480000
                                   3074+*********************************************************************** 26560000
                                   3075+*                                                                       26640000
                                   3076+*             UNIT RECORD WITH                                          26720000
                                   3077+*             UNIVERSAL CHARACTER SET (1403, 3211)                      26800020
                                   3078+*             UCB SEGMENT                                               26880000
                                   3079+*                                                                       26960000
0000DC                      00018  3080+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT         27040000
                                   3081+*                                                                       27120000
                                   3082+*********************************************************************** 27200000
                                   3083+*                                                                       27280000
000018                             3084+UCBNBRSN DS    FL1 -                   LENGTH OF SENSE INFO (3211)      27330020
000019                             3085+UCBSNADR DS    AL3 -                   ADDR OF SENSE INFO --            27340020
                                   3086+*                                        THAT OF UCBSNS (1403)          27350020
                                   3087+*                                        OR UCBSNSXT (3211)             27360020
00001C                             3088+UCBXTADR DS    A -                     ADDR OF UCS UCB EXTENSION        27410020
                                   3089+*                                                                       27840000
                                   3090+*********************************************************************** 27920000
                                   3091+*                                                                       28000000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   3092+*             GRAPHICS EXCEPT                                           28080000
                                   3093+*             M85 CRT CONSOLE                                           28160000
                                   3094+*             UCB SEGMENT                                               28240000
                                   3095+*                                                                       28320000
000020                      00018  3096+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT         28400000
                                   3097+*                                                                       28480000
                                   3098+*********************************************************************** 28560000
                                   3099+*                                                                       28640000
000018                             3100+UCBSENS  DS    CL2 -                   MORE SENSE INFORMATION           28720000
00001A                             3101+UCBOPEN  DS    FL1 -                   NUMBER OF OPEN DCBS              28800000
00001B                             3102+UCBGCB   DS    C -                     GRAPHIC CONTROL BYTE             28880000
00001C                             3103+UCBTEB   DS    A -                     ADDRESS OF TASK ENTRY BLOCK      28960000
000020                             3104+UCBSTART DS    A -                     RESTART ADDRESS                  29040000
000024                             3105+UCBBTA   DS    0A -                    ADDRESS OF BUFFER TABLE          29120000
000024                             3106+UCBDI    DS    FL1 -                   DEVICES ON A CONTROL UNIT        29200000
                                   3107+*                                        TO WHICH BUFFER SECTIONS       29280000
                                   3108+*                                        ARE ASSIGNED                   29360000
000025                             3109+UCBBTB   DS    AL3 -                   ADDRESS OF BUFFER TABLE          29440000
                                   3110+*                                                                       29520000
                                   3111+*********************************************************************** 29600000
                                   3112+*                                                                       29680000
                                   3113+*             TAPE CARTRIDGE READER (2495)                              29760000
                                   3114+*             AND OPTICAL READER (1285, 1287, 1288)                     29840000
                                   3115+*             UCB SEGMENT                                               29920000
                                   3116+*                                                                       30000000
000028                      00018  3117+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT         30080000
                                   3118+*                                                                       30160000
                                   3119+*********************************************************************** 30240000
                                   3120+*                                                                       30320000
000018                             3121+UCBCRWKA DS    A -                     ADDRESS OF UCB EXTENSION         30400000
                                   3122+*                                        FOR THIS DEVICE                30480000
                                   3123+*                                        (MAPPED BELOW)                 30560000
                                   3124+*                                                                       30640000
                                   3125+*********************************************************************** 30720000
                                   3126+*                                                                       30800000
                                   3127+*       CELL DESCRIPTION                                                30880000
                                   3128+*       FOR UCBCELL0/.../9                                              30960000
                                   3129+*       IN DATACELL (2321)                                              31040000
                                   3130+*                                                                       31120000
00001C                      00038  3131+         ORG   UCBUSER                                                  31200000
                                   3132+*                                                                       31280000
                            00038  3133+UCBDCLL  EQU   * -                     UCBDCPTR -> UCBDCLL              31360000
                                   3134+*                                                                       31440000
                                   3135+*********************************************************************** 31520000
                                   3136+*                                                                       31600000
000038                             3137+UCBDCELL DS    0CL16 -                 ONE OF TEN CELLS                 31680000
                                   3138+*                                                                       31760000
000038                             3139+UCBDBBNR DS    H -                     BIN NUMBER                       31840000
00003A                             3140+UCBDSTAB DS    B -                     VOLUME STATUS BYTE B             31920000
                                   3141+*                                        (ANALOGOUS TO UCBSTAB)         32000000
                            00080  3142+UCBDBSVL EQU   X'80' -                 NOT SHARABLE                     32080000
                            00020  3143+UCBDBPRS EQU   X'20' -                 THIS DEVICE WAS SPECIFIED IN     32130020
                                   3144+*                                      PRESRES BUT WAS NOT MOUNTED AT   32140020
                                   3145+*                                      IPL                              32150020
                            00010  3146+UCBDBPRV EQU   X'10' -                 PRIVATE USE                      32160000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00008  3147+UCBDBPUB EQU   X'08' -                 PUBLIC USE                       32240000
                            00004  3148+UCBDBSTR EQU   X'04' -                 STORAGE USE                      32320000
                            00002  3149+UCBDBJLB EQU   X'02' -                 JOBLIB VOLUME                    32400000
                            00001  3150+UCBDBNUL EQU   X'01' -                 CONTROL VOLUME                   32480000
00003B                             3151+UCBDSTAT DS    B -                     CELL/BIN STATUS                  32560000
                                   3152+*                                        (ANALOGOUS TO UCBSTAT)         32640000
                            00080  3153+UCBDNORM EQU   X'80' -                 ONLINE WITH NORMAL CELL          32720000
                                   3154+*                                        (NOT OFFLINE OR BALLAST)       32800000
                            00020  3155+UCBDRESV EQU   X'20' -                 RESERVED CELL                    32880000
                            00010  3156+UCBDUNLD EQU   X'10' -                 UNLOAD PENDING                   32960000
                            00008  3157+UCBDALOC EQU   X'08' -                 BIN ALLOCATED                    33040000
                            00004  3158+UCBDPRES EQU   X'04' -                 CELL PERMANENTLY RESIDENT        33120000
00003C                             3159+UCBDVOLI DS    CL6 -                   VOLUME SERIAL NUMBER             33200000
000042                             3160+UCBDJBNR DS    FL1 -                   INTERNAL JOB NUMBER              33280000
000043                             3161+UCBDDMCT DS    FL1 -                   NUMBER OF OPEN DCBS FOR THIS     33360020
                                   3162+*                                      CELL (BITS 1-7)                  33410020
                            00080  3163+UCBDDMNT EQU   X'80' -                 IF 0, MOUNT VERIFICATION HAS     33420020
                                   3164+*                                      BEEN PERFORMED ---               33430020
                                   3165+*                                      IF 1, MOUNT REQUEST HAS BEEN     33432020
                                   3166+*                                      ISSUED                           33434020
000044                             3167+UCBDVTOC DS    CL3 -                   TTR OF VTOC                      33440000
000047                             3168+UCBDUSER DS    FL1 -                   CURRENT NUMBER OF DATASETS       33520000
                                   3169+*                                                                       33600000
                            00038  3170+DATACELL EQU   UCBDCELL -              ALIAS                            33680000
                            00038  3171+DCELBBNR EQU   UCBDBBNR -              ALIAS                            33760000
                            0003A  3172+DCELSTAB EQU   UCBDSTAB -              ALIAS                            33840000
                            0003B  3173+DCELSTAT EQU   UCBDSTAT -              ALIAS                            33920000
                            0003C  3174+DCELVOLI EQU   UCBDVOLI -              ALIAS                            34000000
                            00042  3175+DCELJBNR EQU   UCBDJBNR -              ALIAS                            34080000
                            00043  3176+DCELDMCT EQU   UCBDDMCT -              ALIAS                            34160000
                            00044  3177+DCELVTOC EQU   UCBDVTOC -              ALIAS                            34240000
                            00047  3178+DCELUSER EQU   UCBDUSER -              ALIAS                            34320000
                                   3179+*                                                                       34400000
                                   3180+*********************************************************************** 34480000
                                   3181+*                                                                       34560000
                                   3182+*       UNIT CONTROL BLOCK EXTENSIONS                                   34640000
                                   3183+*                                                                       34720000
                                   3184+*********************************************************************** 34800000
                                   3185+*                                                                       34880000
                                   3186+*             DIRECT ACCESS (2300)                                      34960000
                                   3187+*             UCB EXTENSION                                             35040000
                                   3188+*                                                                       35120000
000000                             3189+UCBDA    DSECT ,                       UCBEXT -> UCBDA                  35200000
                                   3190+*                                                                       35280000
                                   3191+*********************************************************************** 35360000
                                   3192+*                                                                       35440000
000000                             3193+         DS    CL104 -                 OFFSET                           35520000
000068                             3194+UCBERP   DS    CL40 -                  ERROR RECOVERY WORK AREA         35600000
000090                             3195+UCBOVFLW DS    CL40 -                  TRACK OVERFLOW WORK AREA         35680000
                                   3196+*                                        (OPTIONAL)                     35730021
                                   3197+*                                                                       35760000
                                   3198+*********************************************************************** 35840000
                                   3199+*                                                                       35920000
                                   3200+*             MAGNETIC TAPE (2400)                                      36000000
                                   3201+*             UCB EXTENSION                                             36080000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   3202+*                                                                       36160000
000000                             3203+UCBMT    DSECT ,                       UCBXTN -> UCBMT                  36240000
                                   3204+*                                                                       36320000
                                   3205+*********************************************************************** 36400000
                                   3206+*                                                                       36480000
000000                             3207+UCBROR   DS    CL8 -                   READ OPPOSITE DIRECTION          36560000
                                   3208+*                                        RECOVERY CCW                   36640000
000008                             3209+         DS    CL2 -                   RESERVED                  ICB463 36720021
00000A                             3210+UCBTRT   DS    FL1 -                   TEMP READ ERROR THRESHOLD        37600000
                                   3211+*                                        (IF ZERO THEN EVA ABSENT)      37680000
00000B                             3212+UCBTWT   DS    FL1 -                   TEMP WRITE ERROR THRESHOLD       37760000
                                   3213+*                                        (IF ZERO THEN EVA ABSENT)      37840000
00000C                             3214+UCBTR    DS    FL1 -                   TEMP READ ERROR COUNT            37920000
00000D                             3215+UCBTW    DS    FL1 -                   TEMP WRITE ERROR COUNT           38000000
00000E                             3216+UCBSIO   DS    H -                     SIO COUNT                        38080000
000010                             3217+UCBPR    DS    FL1 -                   PERM READ ERROR COUNT            38160000
000011                             3218+UCBPW    DS    FL1 -                   PERM WRITE ERROR COUNT           38240000
000012                             3219+UCBNB    DS    FL1 -                   NOISE BLOCK COUNT                38320000
000013                             3220+UCBMS    DS    CL1 -                   MODE SET OPERATION CODE FOR DATA 38400021
                                   3221+*                                      BLOCKS ON 3420            ICB277 38450021
000014                             3222+UCBERG   DS    H -                     ERASE GAP COUNT                  38480000
000016                             3223+UCBCLN   DS    H -                     CLEANER ACTION COUNT             38560000
                                   3224+*                                                                       38640000
                                   3225+*********************************************************************** 38720000
                                   3226+*                                                                       38800000
                                   3227+*             TAPE CARTRIDGE READER (2495)                              38880000
                                   3228+*             UCB EXTENSION                                             38960000
                                   3229+*                                                                       39040000
000000                             3230+UCBTCR   DSECT ,                       UCBCRWKA -> UCBTCR               39120000
                                   3231+*                                                                       39200000
                                   3232+*********************************************************************** 39280000
                                   3233+*                                                                       39360000
000000                             3234+UCBTCERP DS    0CL24 -                 ERROR RECOVERY CHANNEL PROGRAM   39440000
000000                             3235+UCBRCCW1 DS    D -                     RETRY CCW 1                      39520000
000008                             3236+UCBRCCW2 DS    D -                     RETRY CCW 2                      39600000
000010                             3237+UCBRCCW3 DS    D -                     RETRY CCW 3                      39680000
000018                             3238+UCBCSWSA DS    CL8 -                   CSW SAVE AREA                    39760000
                                   3239+*                                                                       39840000
                                   3240+*********************************************************************** 39920000
                                   3241+*                                                                       40000000
                                   3242+*            OPTICAL READER (1285, 1287, 1288)                          40080000
                                   3243+*            UCB EXTENSION                                              40160000
                                   3244+*                                                                       40240000
000000                             3245+UCBOR    DSECT ,                       UCBCRWKA -> UCBOR                40320000
                                   3246+*                                                                       40400000
                                   3247+*********************************************************************** 40480000
                                   3248+*                                                                       40560000
000000                             3249+UCBCRDDC DS    FL1 -                   DATA CHECK ERROR COUNT           40640000
000001                             3250+UCBCRILC DS    FL1 -                   INCORRECT LENGTH ERROR COUNT     40720000
000002                             3251+UCBCRECC DS    FL1 -                   EQUIPMENT CHECK ERROR COUNT      40800000
000003                             3252+         DS    CL5 -                   RESERVED                         40880000
                                   3253+*                                                                       40930020
                                   3254+*********************************************************************** 40940020
                                   3255+*                                                                       40950020
                                   3256+*              UNIT RECORD WITH                                         40952020
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   3257+*              UNIVERSAL CHARACTER SET (1403, 3211)                     40954020
                                   3258+*              UCB EXTENSION                                            40956020
                                   3259+*                                                                       40958020
000000                             3260+UCBUCS   DSECT ,                       UCBXTADR -> UCBUCS               40958420
                                   3261+*                                                                       40958820
                                   3262+*********************************************************************** 40959220
                                   3263+*                                                                       40959620
000000                             3264+UCBUCSID DS    CL4 -                   ID OF UCS IMAGE IN BUFFER        40959720
000004                             3265+UCBUCSOP DS    B -                     FORMAT OF UCS IMAGE IN BUFFER    40959820
                                   3266+*                                        (O FOR OPTION)                 40959920
                            00080  3267+UCBUCSO1 EQU   X'80' -                 DEFAULT IMAGE                    40986620
                            00040  3268+UCBUCSO2 EQU   X'40' -                 FOLD MODE                        40996620
                            00001  3269+UCBUCSPE EQU   X'01' -                 IMAGE HAS PARITY ERROR (3211)    41006620
000005                             3270+UCBFCBOP DS    B -                     RESERVED (1403) OR FLAGS (3211)  41008620
                                   3271+*                                        (O FOR OPTION)                 41010620
                            00080  3272+UCBFCBO1 EQU   X'80' -                 FCB DEFAULT IMAGE                41012620
000006                             3273+         DS    X -                     RESERVED                         41013020
000007                             3274+UCBERCNT DS    FL1 -                   COUNT OF ERRORS THAT HAVE        41013120
                                   3275+*                                      OCCURRED (3211)                  41013220
000008                             3276+UCBFCBID DS    CL4 -                   FCB IMAGE ID                     41022120
00000C                             3277+UCBERADR DS    A -                     ADDR OF ERP LOGOUT AREA          41024120
                                   3278+*                                                                       41031120
                                   3279+*********************************************************************** 41033120
                                   3280+*                                                                       41035120
                                   3281+*              3211 SENSE INFORMATION UCB EXTENSION                     41037120
                                   3282+*                                                                       41039120
                                   3283+*        THIS EXTENSION IS POINTED TO BY THE UCBSNADR FIELD OF THE      41039520
                                   3284+*        UCB AND IS NOT CONTIGUOUS TO THE UCB.                          41039920
                                   3285+*                                                                       41066620
000000                             3286+UCBSNINF DSECT ,                                                        41076620
                                   3287+*                                                                       41086620
                                   3288+*********************************************************************** 41088620
                                   3289+*                                                                       41090620
000000                             3290+UCBSNSXT DS    CL6 -                   SENSE INFORMATION                41092620
000006                             3291+         DS    XL2 -                   RESERVED                         41093020
                                   3292+*                                                                       41093120
                                   3293+*********************************************************************** 41093320
                                   3294+*                                                                       41120000
                                   3295+*       MODEL 65 MULTIPROCESSING UCB PREFIX                             41200000
                                   3296+*                                                                       41280000
000000                             3297+UCBM65MP DSECT , -                     UCBPTR-4 IF MP65                 41360020
                                   3298+*                                                                       41440000
                                   3299+*********************************************************************** 41520000
                                   3300+*                                                                       41600000
000000                             3301+UCBFL3   DS    B -                     M65MP FLAGS                      41680000
                            00080  3302+UCBACU   EQU   X'80' -                 ALTERNATE CONTROL UNITS EXIST    41760000
                            00020  3303+UCBHIOB  EQU   X'20' -                 CPU B TO USE HIO                 41840000
                            00010  3304+UCBHIOA  EQU   X'10' -                 CPU A TO USE HIO                 41920000
                            00008  3305+UCBSIOB  EQU   X'08' -                 CPU B ISSUED LAST SIO            42000000
                            00002  3306+UCBNOB   EQU   X'02' -                 NO PATH TO CPU B                 42080000
                            00001  3307+UCBNOA   EQU   X'01' -                 NO PATH TO CPU A                 42160000
000001                             3308+         DS    CL2 -                   RESERVED                         42240000
000003                             3309+UCBMPFLG DS    B -                     FLAGS                            42320000
                            00020  3310+UCBRIC   EQU   X'20' -                 DURING NIP - DEVICE IS RESERVED  42370021
                                   3311+*                                      TO IPLED CPU                     42380021
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            00010  3312+UCBRNIC  EQU   X'10' -                 DURING NIP - DEVICE IS RESERVED  42390021
                                   3313+*                                      TO NON-IPLED CPU                 42392021
                            00004  3314+UCBNRO   EQU   X'04' -                 DURING NIP - DEVICE IS NOT       42394021
                                   3315+*                                      RESERVED BECAUSE OF OPERATOR'S   42396021
                                   3316+*                                      REQUEST                          42398021
                            00002  3317+UCBPROC  EQU   X'02' -                 USED BY PROCESSING PROGRAMS      42400000
                            00001  3318+UCBIPL   EQU   X'01' -                 DEVICE OFFLINE AT IPL            42480000
                                   3319+*                                                                       42560000
                                   3320+*********************************************************************** 42640000
                                   3321+*                                                                       42720000
                                   3322+*              U N I T   C O N T R O L   B L O C K                      42800000
                                   3323+*                                                                       42880000
                                   3324+*********************************************************************** 42960000
                                   3325+*                                                                       43040000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   3327 ******************************************************************
                                   3328 *                                                                *
                                   3329 *        General mapping of Task Input/Output Table (TIOT).      *
                                   3330 *                                                                *
                                   3331 ******************************************************************

000000                             3333 TIOT     DSECT ,                   Start TIOT dsect
                                   3334          IEFTIOT1 ,                Map TIOT
                                   3335+*                                                                       01850020
                                   3336+*    RELEASE 20, 3/04/71, LEVEL=1                                       01900020
                                   3337+*    RELEASE 21, 3/05/71, LEVEL=1                                       01910021
                                   3338+*                                                                       01950020
000000                             3339+         DS    0F                                                       02400000
                            00000  3340+TIOT1    EQU   *            -    TIOTPTR                                03000000
000000                             3341+TIOCNJOB DS    CL8  -                       JOBNAME                     03600000
000008                             3342+TIOCSTEP DS    CL16 -                       STEPNAME                    04200000
                                   3343+*********************************************************************** 04800000
                                   3344+**                                                                   ** 05400000
                                   3345+*   DD ENTRY:                                                         * 06000000
                                   3346+*                                                                     * 06600000
                                   3347+*       A DD ENTRY INCLUDES A DEVICE ENTRY. BEFORE ALLOCATION, THERE  * 07200000
                                   3348+*       MAY BE SEVERAL DEVICE ENTRIES IN EACH DD ENTRY.               * 07800000
                                   3349+**                                                                   ** 08400000
                                   3350+*********************************************************************** 09000000
                            00018  3351+TIOENTRY EQU   *            -  TIODDPTR                                 09600000
000018                             3352+TIOELNGH DS    FL1 -                         LENGTH OF THIS ENTRY       10200000
000019                             3353+TIOESTTA DS    B -                           STATUS -A-                 10800000
                            00080  3354+TIOSLTYP EQU   X'80' -                       NONSTANDARD LABEL (NOTE 1) 11400000
                            00040  3355+TIOSPLTP EQU   X'40' -                       SPLIT CYLINDER PRIMARY     12000000
                            00020  3356+TIOSPLTS EQU   X'20' -                       SPLIT CYLINDER SECONDARY   12600000
                            00010  3357+TIOSJBLB EQU   X'10' -                       JOBLIB INDICATOR           13200000
                            00008  3358+TIOSDADS EQU   X'08' -                       DADSM ALLOCATION NECESSRY  13800000
                            00004  3359+TIOSLABL EQU   X'04' -                       LABELED/UNLABELED (NOTE 1) 14400000
                            00002  3360+TIOSDSP1 EQU   X'02' -                       DISPOSITION BIT 1          15000000
                            00001  3361+TIOSDSP2 EQU   X'01' -                       DISPOSITION BIT 2          15600000
                                   3362+*                                                                       15610000
                                   3363+*   NOTE 1 - IF BOTH BITS TIOSLTYP AND TIOSLABL ARE ON, THE VOLUME      15620000
                                   3364+*            IS A TAPE AND HAS AN 'ANSI' LABEL.                         15630000
                                   3365+*                                                                       15640000
00001A                             3366+TIOERLOC DS    0CL2 -                        REL. LOC OF POOL           16200000
00001A                             3367+TIOEWTCT DS    CL1 -                         COUNT OF NUMBER OF DEVICES 16800000
                                   3368+*              DURING ALLOCATION STILL ELIGIBLE TO DADSM ALLOCATE       17400000
                                   3369+*              THIS DATA SETS REQUEST                                   18000000
00001B                             3370+TIOELINK DS    CL1 -                         DURING ALLOCATION OF ALL   18600000
                                   3371+*              BUT POOLS THIS WILL BE A LINK TO THE APPROPRIATE PRIME   19200000
                                   3372+*              SPLIT,UNIT AFFIM,VOL AFFIN OR SUBALLOCATE                19800000

                                   3374+* FOLLOWING BIT MASKS APPLY TO THE 'TIOELINK' FIELD                     19900000

                            00080  3376+TIOSYOUT EQU   X'80' -  SYSOUT DATA SET THAT CONTAINS DATA              20000000
                            00040  3377+TIOTOPEN EQU   X'40' -  DATA SET IS OPEN                                20050000
                            00020  3378+TIOTTERM EQU   X'20' -  THIS IS A TERMINAL                              20100000
                            00010  3379+TIOEDYNM EQU   X'10' -  'DYNAM' KEYWORD USED                            20150000
                            00008  3380+TIOEQNAM EQU   X'08' -  'QNAME' KEYWORD USED                            20200000
                                   3381+*                                                                       20250000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   3382+*                                                                       20300000
00001C                             3383+TIOEDDNM DS    CL8 -                         DDNAME                     20400000
000024                             3384+TIOEJFCB DS    CL3 -                         JFCB DISK ADDR             21000000
000027                             3385+TIOESTTC DS    B -                           STATUS -C-                 21600000
                            00080  3386+TIOSDKCR EQU   X'80' -                       CORE/DISK ADDRESS          22200000
                            00040  3387+TIOSDEFR EQU   X'40' -                       DEFERRED MOUNT             22800000
                            00020  3388+TIOSAFFP EQU   X'20' -                       UNIT AFFINITY PRIMARY      23400000
                            00010  3389+TIOSAFFS EQU   X'10' -                       UNIT AFFINITY SECONDARY    24000000
                            00008  3390+TIOSVOLP EQU   X'08' -                       VOLUME AFFINITY PRIMARY    24600000
                            00004  3391+TIOSVOLS EQU   X'04' -                       VOLUME AFFINITY SECONDARY  25200000
                            00002  3392+TIOSBALP EQU   X'02' -                       SUBALLOCATE PRIMARY        25800000
                            00001  3393+TIOSBALS EQU   X'01' -                       SUBALLOCATE SECONDARY      26400000
                                   3394+*********************************************************************** 27000000
                                   3395+**                                                                   ** 27600000
                                   3396+*   DEVICE ENTRIES:                                                   * 28200000
                                   3397+*                                                                     * 28800000
                                   3398+*      1. DURING ALLOCATION:                                          * 29400000
                                   3399+*                ONE DEVICE ENTRY FOR EACH DEVICE REQUIRED, OR FOR    * 30000000
                                   3400+*                EACH PUBLIC DEVICE ELIGIBLE.                         * 30600000
                                   3401+*                                                                     * 31200000
                                   3402+*      2. DURING PROBLEM PROGRAM:                                     * 31800000
                                   3403+*                ONE DEVICE ENTRY FOR EACH ALLOCATED DEVICE           * 32400000
                                   3404+*                                                                     * 33000000
                                   3405+*********************************************************************** 33600000
000028                             3406+TIOESTTB DS    B -                           STATUS -B-                 34200000
                            00080  3407+TIOSUSED EQU   X'80' -                       DATA SET IS ON DEVICE      34800000
                            00040  3408+TIOSREQD EQU   X'40' -                       DATA SET WILL USE DEVICE   35400000
                            00020  3409+TIOSPVIO EQU   X'20' -                       DEVICE VIOLATES SEPARATION 36000000
                            00010  3410+TIOSVLSR EQU   X'10' -                       VOLUME SERIAL PRESENT      36600000
                            00008  3411+TIOSSETU EQU   X'08' -                       SETUP MESSAGE REQUIRED     37200000
                            00004  3412+TIOSMNTD EQU   X'04' -                       MOUNTED                    37800000
                            00002  3413+TIOSUNLD EQU   X'02' -                       UNLOAD REQUIRED            38400000
                            00001  3414+TIOSVERF EQU   X'01' -                       VERIFICATION REQUIRED      39000000
000029                             3415+TIOEFSRT DS    AL3 -                         SRT POINTER                39600000
                                   3416+*        TIOT POOL ENTRY                                                40200000
                            0002C  3417+POOLSTAR EQU   *                                                        40800000
00002C                             3418+         DS    CL1 -                                                    41400000
00002D                             3419+TIOPNSLT DS    FL1 -                         NR.OF SLOTS FOR POOL       42000000
00002E                             3420+         DS    CL1 -                                                    42600000
00002F                             3421+TIOPNSRT DS    FL1 -                         NR.OF DEVICES (FILLED      43200000
                                   3422+*                                             SLOTS)                    43800000
000030                             3423+TIOPPOOL DS    CL8 -                         POOL NAME                  44400000
000038                             3424+TIOPSTTB DS    XL1 -                         STATUS OF SLOT             45000000
000039                             3425+TIOPSLOT DS    AL3 -                         SRT ADDRESS OR EMPTY SLOT  45600000
00003C                             3426+TIOTFEND DS    CL4 -                         FINAL END OF AN ENTRY      46200000
                                   3427+*                                             OR THE TIOT               46800000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   3429 ******************************************************************
                                   3430 *                                                                *
                                   3431 *        OS Task Control Block (TCB).                            *
                                   3432 *                                                                *
                                   3433 ******************************************************************

                                   3435          IKJTCB ,                  Map TCB
                                   3436+**             TASK CONTROL BLOCK                                       00400000
                                   3437+**             RELEASE 21.7, 11/28/72, LEVEL=5                          00550021
                                   3438+**                                                                      00600000
                                   3439+**             TCB PREFIX                                               00700000
                                   3440+**                                                                      00800000
000000                             3441+TCBFIX   DSECT ,       TCBPTR-32                                        00900000
                                   3442+**                                                                      01000000
000000                             3443+TCBFRS   DS    0CL32 - FLOATING POINT REGISTER SAVE AREA                01100021
000000                             3444+TCBFRS0  DS    D -     SAVE AREA FOR FLOATING POINT REGISTER 0          01150021
000008                             3445+TCBFRS2  DS    D -     SAVE AREA FOR FLOATING POINT REGISTER 2          01160021
000010                             3446+TCBFRS4  DS    D -     SAVE AREA FOR FLOATING POINT REGISTER 4          01170021
000018                             3447+TCBFRS6  DS    D -     SAVE AREA FOR FLOATING POINT REGISTER 6          01180021
                                   3448+**                                                                      01200000
                                   3449+**             TCB PROPER                                               01300000
                                   3450+**                                                                      01400000
000000                             3451+TCB      DSECT ,       TCBPTR                                           01500000
                                   3452+**                                                                      01600000
000000                             3453+TCBRBP   DS    A -     PTR TO TOP RB ON RB CHAIN                        01700000
000004                             3454+TCBPIE   DS    A -     ADDR OF PROGRAM INTERRUPT ELEMENT (PIE)          01800000
000008                             3455+TCBDEB   DS    A -     ADDR OF THE DEB QUEUE                            01900000
00000C                             3456+TCBTIO   DS    A -     ADDR OF THE TASK I/O TABLE (TIOT)                02000000
000010                             3457+TCBCMP   DS    0BL4 -  TASK COMPLETION CODE                             02100000
000010                             3458+TCBCMPF  DS    B -     COMPLETION FLAGS                                 02200000
                            00080  3459+TCBCREQ  EQU   X'80' - A DUMP HAS BEEN REQUESTED                        02300000
                            00040  3460+TCBCSTEP EQU   X'40' - A STEP ABEND HAS BEEN REQUESTED (MVT)            02400000
                            00020  3461+TCBCPP   EQU   X'20' - SECOND ABEND LOAD OVERLAID PP STORAGE (PCP/MFT)  02500021
                                   3462+*                      FOR FIRST LOAD OVERLAY SEE TCBFLGS               02600021
                                   3463+*                      (ICBI # 383)                               35198 02700021
                            00008  3464+TCBCDBL  EQU   X'08' - A DOUBLE ABEND HAS OCCURRED  (MFT)               02800021
                            00004  3465+TCBCWTO  EQU   X'04' - DUMP MSG TO BE ISSUED TO OPR  (MFT)              02900021
                            00002  3466+TCBCIND  EQU   X'02' - SCHEDULER TO PRINT INDICATIVE DUMP  (MFT)        03000021
                            00001  3467+TCBCMSG  EQU   X'01' - ABEND MSG PROVIDED TO BE PRINTED BY ABDUMP (MFT) 03100021
000011                             3468+TCBCMPC  DS    BL3 -   SYSTEM (FIRST 12 BITS) AND USER (SECOND 12)      03200000
                                   3469+*                      COMPLETION CODES                                 03300000
000014                             3470+TCBTRN   DS    0A -    ADDR OF CONTROL CORE TABLE                       03400000
000014                             3471+TCBABF   DS    B -     FLAG BYTE                                        03500000
                            00080  3472+TCBMOD91 EQU   X'80' - BOTH TESTRAN AND DECIMAL SIMULATOR ON A MOD 91   03600000
                            00040  3473+TCBNOCHK EQU   X'40' - SUPPRESS TAKING CHECKPOINTS FOR THIS STEP        03700000
                                   3474+*                      (MVT/MFT JOB STEP TCB)                           03800000
                            00020  3475+TCBGRPH  EQU   X'20' - GRAPHICS FOREGROUND JOB OR GRAPHIC JOB PROCESSOR 03900000
                            00008  3476+TCBTCPP  EQU   X'08' - TCAM POST-PENDING  (RORI)                        04110000
                            00004  3477+TCBTCP   EQU   X'04' - TEST TASK - USED BY TEST SVC                     04200000
                            00002  3478+TCBOLTEP EQU   X'02' - OLTEP FUNCTIONS REQUIRE CLEAN-UP BEFORE ABNORMAL 04250021
                                   3479+*                      TERMINATION CAN BE INVOKED                       04260021
000015                             3480+TCBTRNB  DS    AL3 -   ADDR OF CONTROL CORE TABLE                       04300000
000018                             3481+TCBMSS   DS    0A -    ADDR OF THE BOUNDARY BOX (PCP/MFT)               04400000
                                   3482+*                      ADDR OF LAST SPQE ON MSS QUEUE (MVT)             04500000
000018                             3483+TCBNROC  DS    FL1 -   NONROLLOUTABLE COUNT FIELD (MVT ONLY)            04600000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   3484+*                      ZERO MEANING ROLLOUTABLE                         04700000
000019                             3485+TCBMSSB  DS    AL3 -   ADDR OF THE BOUNDARY BOX (PCP/MFT)               04800000
                                   3486+*                      ADDR OF LAST SPQE ON MSS QUEUE (MVT)             04900000
00001C                             3487+TCBPKF   DS    B -     STORAGE PROTECTION KEY                           05000000
                            000F0  3488+TCBFLAG  EQU   X'F0' - PROTECTION KEY                                   05100000
                            0000F  3489+TCBZERO  EQU   X'0F' - ZERO                                             05200021
00001D                             3490+TCBFLGS  DS    0BL5 -  FLAGS                                            05300000
00001D                             3491+TCBFLGS1 DS    B -     FIRST TCB FLAG BYTE                              05400000
                            00080  3492+TCBFA    EQU   X'80' - ABNORMAL TERMINATION IN PROGRESS                 05500000
                            00040  3493+TCBFE    EQU   X'40' - NORMAL TERMINATION IN PROGRESS                   05600000
                            00020  3494+TCBFERA  EQU   X'20' - ABEND INITIATED BY RESIDENT ABTERM (PCP/MFT)     05700000
                                   3495+*                      ENTER ABEND ERASE ROUTINE                        05800000
                                   3496+*                      WHEN IN CONTROL AGAIN (MVT)                      05900000
                            00010  3497+TCBGTOFM EQU   X'10' - COMPLETE GTF TRACE SUSPENSION HAS BEEN REQUESTED 05950021
                                   3498+*                      DURING PROCESSING OF THIS TASK BY A ROUTINE      06000021
                                   3499+*                      SUCH AS DAR, SNAP, ABEND, ABDUMP OR SVCDUMP      06050021
                                   3500+*                      (MFT/MVT)                                 ICB264 06100021
                            00008  3501+TCBPDUMP EQU   X'08' - PREVENT DUMP INDICATOR  (MVT)                    06400021
                            00004  3502+TCBFT    EQU   X'04' - TOP TASK IN TREE BEING ABTERMED (MVT)            06600000
                                   3503+*                      DUMP PROCESSING INITIATED IN ABEND (PCP)         06800000
                            00004  3504+TCBPOOL  EQU   X'04' - ABEND SVRB POOL HAS BEEN ASSIGNED TO THIS TASK   06850021
                                   3505+*                      (MFT)  (ICBI # 383)                        35198 06860021
                            00002  3506+TCBFS    EQU   X'02' - ABTERM DUMP COMPLETED (MVT)                      06900000
                                   3507+*                      ABEND OVERLAID PROBLEM PROGRAM STORAGE           07000021
                                   3508+*                      (MFT) (ICBI # 383)                         35198 07050021
                            00001  3509+TCBFX    EQU   X'01' - PROHIBIT ASYNCHRONOUS EXIT QUEUEING              07100000
                                   3510+*                      (MVT/MFT ONLY)                                   07200000
00001E                             3511+TCBFLGS2 DS    B -     SECOND FLAG BYTE                                 07300000
                            00080  3512+TCBFOINP EQU   X'80' - ABEND OPERANDS SAVED IN TCBCMP                   07400000
                                   3513+*                      (MVT)                                            07500000
                                   3514+*                      ABEND PROHIBITED FOR THIS SYSTEM TASK            07600000
                                   3515+*                      (PCP/MFT)                                        07700000
                            00040  3516+TCBFSTI  EQU   X'40' - SECOND JOB STEP INTERVAL HAS EXPIRED             07800000
                                   3517+*                      (MVT INITIATOR TCB)                              07900000
                            00020  3518+TCBFRA   EQU   X'20' - JOB STEP CAN CAUSE ROLLOUT                       08000000
                                   3519+*                      (MVT JOBSTEP TCB)                                08100000
                            00010  3520+TCBFSMC  EQU   X'10' - TASK HAS ISSUED SYSTEM MUST COMPLETE AND SET     08200000
                                   3521+*                      ALL OTHER TASKS IN THE SYSTEM NONDISPATCHABLE    08300000
                            00008  3522+TCBFJMC  EQU   X'08' - TASK HAS ISSUED STEP MUST COMPLETE AND TURNED    08400000
                                   3523+*                      OFF ALL OTHER TASKS IN THE STEP                  08500000
                            00004  3524+TCBFDSOP EQU   X'04' - SYSABEND OPEN FOR JOBSTEP                        08600000
                                   3525+*                      (MVT)                                            08700000
                                   3526+*                      DUMP PROCESSING INITIATED IN ABEND (PCP/MFT)     08800000
                            00002  3527+TCBFETXR EQU   X'02' - ETXR TO BE SCHEDULED                             08900000
                            00001  3528+TCBFTS   EQU   X'01' - MEMBER OF TIME-SLICING GROUP                     09000000
                                   3529+*                      (MVT/MFT)                                        09100000
00001F                             3530+TCBFLGS3 DS    B -     THIRD FLAG BYTE                                  09200000
                            00080  3531+TCBFSM   EQU   X'80' - ALL PSW'S IN SUPERVISOR STATE                    09300000
                                   3532+*                      (MVT)                                            09400000
                            00040  3533+TCBFRI   EQU   X'40' - STEP HAS CAUSED ROLLOUTS THAT ARE STILL IN       09500000
                                   3534+*                      EFFECT                                           09600000
                                   3535+*                      (MVT JOBSTEP TCB)                                09700000
                            00020  3536+TCBABTRM EQU   X'20' - ABTERM BIT TO PREVENT MULTIPLE ABENDS            09800000
                                   3537+*                      (MVT)                                            09900000
                                   3538+*                      EXIT EFFECTOR--SYSTEM ERROR ROUTINES OPERATING   10000000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   3539+*                      FOR THIS TASK                                    10100000
                                   3540+*                      (PCP/MFT)                                        10200000
                            00010  3541+TCBSXPK0 EQU   X'10' - RB FOR THIS STAE WAS IN KEY ZERO (MVT)      6516 10250021
                                   3542+*                      RESERVED (MFT) (ICBI # 343)                 6516 10300021
                            00008  3543+TCBFLREG EQU   X'08' - FLOATING POINT REGISTERS EXIST                   10700021
                                   3544+*                      (PCP/MFT)                                        10800000
                            00004  3545+TCBSCH   EQU   X'04' - JOB SCHEDULER ROUTINES IN PROCESS                11000021
                                   3546+*                      (PCP/MFT)                                        11100000
                            00002  3547+TCBPKCHG EQU   X'02' - XCTL IS CHANGING PROTECT KEY IN PSW FROM ZERO    11400021
                                   3548+*                      TO THAT USED BY PROBLEM PROGRAM                  11500000
                                   3549+*                      (PCP/MFT)                                        11600000
                            00001  3550+TCBTCTRM EQU   X'01' - TCAM TERMINATION INVOKED  (MFT)           ICB267 11950021
                            00001  3551+TCBDWSTA EQU   X'01' - TASK WAS DISPATCHED WITH STAE=YES OPTION (MVT)   11960021
                                   3552+*                                                                ICB314 11970021
000020                             3553+TCBFLGS4 DS    B -     NONDISPATCHABILITY FLAGS                         12000000
                                   3554+*                      (MVT)                                            12100000
                            00080  3555+TCBNDUMP EQU   X'80' - ABDUMP NON-DISP. INDICATOR                       12200000
                            00040  3556+TCBSER   EQU   X'40' - SER1 NON-DISP. INDICATOR                         12300000
                            00020  3557+TCBRQENA EQU   X'20' - I/O RQE'S EXHAUSTED                              12400000
                            00008  3558+TCBUXNDV EQU   X'08' - TASK IS TEMPORARILY NON-DISPATCHABLE BECAUSE     12450021
                                   3559+*                      SMF TIME LIMIT OR SYSOUT LIMIT USER EXIT         12500021
                                   3560+*                      ROUTINE IS BEING EXECUTED FOR THIS STEP          12550021
                            00004  3561+TCBMPCVQ EQU   X'04' - VARY OR QUIESCE IN MULTIPROCESSING SYSTEM        12800000
                            00002  3562+TCBMPCND EQU   X'02' - M65 MULTIPROCESSING NON-DISP. INDICATOR FOR ALL  12900000
                                   3563+*                      CPU'S                                            13000000
                            00001  3564+TCBONDSP EQU   X'01' - CURRENT TASK ABTERMED AND NDSP WHILE DUMP DATA   13050021
                                   3565+*                      SET BEING OPENED FOR ANOTHER TASK IN SAME        13060021
                                   3566+*                      JOB STEP                                         13070021
000021                             3567+TCBFLGS5 DS    B -     MORE NONDISPATCHABILITY FLAGS                    13100000
                            00080  3568+TCBFC    EQU   X'80' - TASK TERMINATED (MVT)                            13300021
                            00040  3569+TCBABWF  EQU   X'40' - ABNORMAL WAIT (MVT)                              13350021
                            00040  3570+TCBUXNDF EQU   X'40' - TASK IS TEMPORARILY NONDISPATCHABLE BECAUSE      13360021
                                   3571+*                      SMF TIME LIMIT OR SYSOUT LIMIT USER EXIT ROUTINE 13370021
                                   3572+*                      IS BEING EXECUTED FOR THIS STEP.  BIT IS ONE IN  13380021
                                   3573+*                      ALL TCB'S EXCEPT JOB STEP TCB.  (MFT)     ICB263 13390021
                            00020  3574+TCBWFC   EQU   X'20' - TASK IS WAITING FOR SPACE REQUESTED BY ROLLOUT   13400000
                                   3575+*                      (MVT)                                            13450021
                            00010  3576+TCBFRO   EQU   X'10' - JOB STEP HAS BEEN ROLLED OUT  (MVT)              13500021
                            00008  3577+TCBSYS   EQU   X'08' - ANOTHER TASK IS IN SYSTEM MUST COMPLETE STATUS   13600000
                                   3578+*                      (MVT)                                            13650021
                            00004  3579+TCBSTP   EQU   X'04' - ANOTHER TASK IN JS IS IN STEP MUST COMPLETE      13700000
                                   3580+*                      STATUS  (MVT)                                    13800021
                            00002  3581+TCBFCD1  EQU   X'02' - INITIATOR WAITING FOR REGION  (MVT)              13900021
                            00001  3582+TCBPNDSP EQU   X'01' - PRIMARY NONDISPATCHABILITY FLAG                  14000000
                                   3583+*                      (SECONDARY NDSP FLAG TCBNDSP2 SET)               14100000
000022                             3584+TCBLMP   DS    FL1 -   TASK LIMIT PRIORITY                              14200000
                                   3585+*                      (MVT)                                            14300000
                                   3586+*                      ENQUEUE COUNT                                    14400000
                                   3587+*                      (PCP/MFT)                                        14500000
000023                             3588+TCBDSP   DS    FL1 -   DISPATCHING PRIORITY                             14600000
000024                             3589+TCBLLS   DS    A -     ADDR OF LAST LLE IN LOAD LIST                    14700000
                                   3590+*                      (MVT)                                            14800000
                                   3591+*                      ADDR OF LAST RB FOR PROGRAM LOADED VIA LOAD      14900000
                                   3592+*                      (PCP/MFT)                                        15000000
000028                             3593+TCBJLB   DS    A -     ADDR OF JOBLIB DCB                               15100000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

00002C                             3594+TCBJPQ   DS    0A -    ADDR OF LAST CDE FOR JPA CONTROL QUEUE           15200000
                                   3595+*                      (MVT)                                            15300000
                                   3596+*                      ADDR OF FIRST TCB FOR JOBSTEP                    15400000
                                   3597+*                      (MFT WITH SUBTASKING)                            15500000
00002C                             3598+TCBPURGE DS    B -     PURGE FLAGS                                      15600000
                                   3599+*                      (MVT)                                            15700000
                            00080  3600+TCBJPQF  EQU   X'80' - JPQ PURGE FLAG                                   15800000
00002D                             3601+TCBJPQB  DS    AL3 -   ADDR OF LAST CDE FOR JPA CONTROL QUEUE           15900000
                                   3602+*                      (MVT)                                            16000000
                                   3603+*                      ADDR OF FIRST TCB FOR JOBSTEP                    16100000
                                   3604+*                      (MFT WITH SUBTASKING)                            16200000
000030                             3605+TCBGRS   DS    0CL64 - GENERAL REGISTER SAVE AREA                       16300021
000030                             3606+TCBGRS0  DS    F -     SAVE AREA FOR GENERAL REGISTER 0                 16350021
000034                             3607+TCBGRS1  DS    F -     SAVE AREA FOR GENERAL REGISTER 1                 16360021
000038                             3608+TCBGRS2  DS    F -     SAVE AREA FOR GENERAL REGISTER 2                 16370021
00003C                             3609+TCBGRS3  DS    F -     SAVE AREA FOR GENERAL REGISTER 3                 16380021
000040                             3610+TCBGRS4  DS    F -     SAVE AREA FOR GENERAL REGISTER 4                 16390021
000044                             3611+TCBGRS5  DS    F -     SAVE AREA FOR GENERAL REGISTER 5                 16392021
000048                             3612+TCBGRS6  DS    F -     SAVE AREA FOR GENERAL REGISTER 6                 16394021
00004C                             3613+TCBGRS7  DS    F -     SAVE AREA FOR GENERAL REGISTER 7                 16396021
000050                             3614+TCBGRS8  DS    F -     SAVE AREA FOR GENERAL REGISTER 8                 16398021
000054                             3615+TCBGRS9  DS    F -     SAVE AREA FOR GENERAL REGISTER 9                 16398421
000058                             3616+TCBGRS10 DS    F -     SAVE AREA FOR GENERAL REGISTER 10                16398821
00005C                             3617+TCBGRS11 DS    F -     SAVE AREA FOR GENERAL REGISTER 11                16399221
000060                             3618+TCBGRS12 DS    F -     SAVE AREA FOR GENERAL REGISTER 12                16399621
000064                             3619+TCBGRS13 DS    F -     SAVE AREA FOR GENERAL REGISTER 13                16399721
000068                             3620+TCBGRS14 DS    F -     SAVE AREA FOR GENERAL REGISTER 14                16399821
00006C                             3621+TCBGRS15 DS    F -     SAVE AREA FOR GENERAL REGISTER 15                16399921
000070                             3622+TCBFSA   DS    0A -    ADDR OF FIRST PROBLEM PROGRAM SAVE AREA          16400000
000070                             3623+TCBQEL   DS    FL1 -   ENQUEUE COUNT                                    16500000
                                   3624+*                      (MVT)                                            16600000
                                   3625+*                      TCB IDENTIFIER FIELD                             16700000
                                   3626+*                      (PCP/MFT)                                        16800000
000071                             3627+TCBFSAB  DS    AL3 -   ADDR OF FIRST PROBLEM PROGRAM SAVE AREA          16900000
000074                             3628+TCBTCB   DS    A -     ADDR OF NEXT LOWER PRIRTITY TCB ON READY QUEUE   17000000
                                   3629+*                      (MVT/MFT)                                        17100000
000078                             3630+TCBTME   DS    A -     ADDRESS OF TIMER QUEUE ELEMENT                   17200000
00007C                             3631+TCBJSTCB DS    0A -    ADDR OF PARTITION INFORMATION BLOCK              17300000
                                   3632+*                      (MFT)                                            17400000
                                   3633+*                      ADDR OF FIRST JOBSTEP TCB (MVT)                  17500000
                                   3634+*                      OR OF THIS TCB IF KEY ZERO                       17600000
00007C                             3635+TCBPIBT  DS    B -     PARTITION TYPE  (MFT)                            17700000
                            000C0  3636+TCBPART  EQU   X'C0' - PARTITION FLAG BITS                              17800000
                                   3637+*                      (MFT ONLY)                                       17900000
                                   3638+*/       11    TCBPP   PROCESSING PROGRAM PARTITION                     18000000
                                   3639+*/       10    TCBWTR  WRITER PARTITION                                 18100000
                                   3640+*/       01    TCBRDR  READER PARTITION                                 18200000
                                   3641+*/       00    TCBSYSP SYSTEM TASK PARTITION                            18300000
                            00020  3642+TCBSIZE  EQU   X'20' - LARGE PARTITION (1)--SMALL PARTITION (0)         18400000
                            00010  3643+TCBSTOP  EQU   X'10' - CPU TIMING STOPPED BY FINCH                      18500000
                                   3644+*                      UNTIL TRANSIENT LOADED                           18600000
                            00002  3645+TCBWRITE EQU   X'02' - WTR PART (USED BY ABEND)                         18700000
                            00001  3646+TCBSCHED EQU   X'01' - SCHEDULER IN CONTROL - USED BY ABEND -           18800000
                                   3647+*                      TURNED OFF WHEN TIOT WRITTEN TO JOB QUEUE        18900000
00007D                             3648+TCBJSTCA DS    AL3 -   ADDR OF PARTITION INFORMATION BLOCK              19000000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   3649+*                      (MFT)                                            19100000
                                   3650+*                      ADDR OF FIRST JOBSTEP TCB (MVT)                  19200000
                                   3651+*                      OR OF THIS TCB IF KEY ZERO                       19300000
000080                             3652+TCBNTC   DS    A -     ADDR OF NEXT SISTER TCB (ZERO IF THIS IS LAST    19400000
                                   3653+*                      SUBTASK)                                         19500000
                                   3654+*                      (MFT WITH SUBTASKING AND MVT)                    19600000
000084                             3655+TCBOTC   DS    A -     ADDR OF MOTHER TCB                               19700000
                                   3656+*                      (MFT WITH SUBTASKING AND MVT)                    19800000
000088                             3657+TCBLTC   DS    A -     ADDR OF LAST DAUGHTER TCB ( ZERO IF THIS IS IT ) 19900000
                                   3658+*                      (MFT WITH SUBTASKING AND MVT)                    20000000
00008C                             3659+TCBIQE   DS    A -     ADDR OF IQE FOR EXTR SCHEDULING                  20100000
                                   3660+*                      (MFT WITH SUBTASKING AND MVT)                    20200000
000090                             3661+TCBECB   DS    A -     ADDR OF ECB TO BE POSTED UPON TERMINATION        20300000
                                   3662+*                      (MFT WITH SUBTASKING AND MVT)                    20400000
000094                             3663+TCBTSFLG DS    B -     TIME SHARING FLAGS                               20500000
                            00080  3664+TCBTSTSK EQU   X'80' - SWAPPED TS TASK                                  20600000
                            00040  3665+TCBSTPPR EQU   X'40' - TASK SHOULD BE MADE NDSP VIA TCBSTPP             20700000
                                   3666+*                      WHEN IT IS NO LONGER RUNNING A PRIVILEGED PGM    20800000
                            00020  3667+TCBATT   EQU   X'20' - TASK SHOULD NOT HAVE ATTENTION EXITS             20900000
                                   3668+*                      SCHEDULED ON IT BY EXIT EFFECTOR                 21000000
                            00010  3669+TCBTIOTG EQU   X'10' - PURGE TGET/TPUT AFTER ATTENTION                  21100000
                            00002  3670+TCBDYDSP EQU   X'02' - M195 TASK IS MEMBER OF DYNAMIC DISPATCHING       21150021
                                   3671+*                      GROUP                                     ICB262 21160021
                            00001  3672+TCBCPUBN EQU   X'01' - FOR M195, ZERO MEANS I/O BOUND AND ONE MEANS     21170021
                                   3673+*                      CPU BOUND                                 ICB262 21180021
000095                             3674+TCBSTPCT DS    FL1 -   NUMBER OF SETTASK STARTS WHICH MUST BE           21200000
                                   3675+*                      ISSUED BEFORE TASK IS MADE DISPATCHABLE -        21300000
                                   3676+*                      FIELD NOT RESTRICTED TO TSO                      21400000
000096                             3677+TCBTSLP  DS    FL1 -   LIMIT PRIORITY OF TS TASK                        21500000
000097                             3678+TCBTSDP  DS    B -     DISPATCHING PRIORITY OF TS TASK                  21600000
                                   3679+*                                                                       21700000
                                   3680+*              MVT OVERLAY                                              21800000
                                   3681+*                                                                       21900000
000098                             3682+TCBPQE   DS    A -     POINTER TO DPQE MINUS 8 FOR THE JOB STEP         22000000
                                   3683+*                      (MVT)                                            22100000
                                   3684+*                                                                       22200000
                                   3685+*              MFT OVERLAY                                              22300000
                                   3686+*                                                                       22400000
00009C                      00098  3687+         ORG   TCBPQE                                                   22500000
                                   3688+*                                                                       22600000
000098                             3689+TCBFTLMP DS    FL1 -   TASK LIMIT PRIORITY (MFT)                        22700000
000099                             3690+TCBFTFLG DS    0BL3 -  ABEND FLAGS (MFT WITH SUBTASKS)                  22800000
000099                             3691+TCBFTFL1 DS    B -     ABEND FLAGS (MFT WITH SUBTASKS)                  22900000
                            00004  3692+TCBFTTOP EQU   X'04' - TOP TASK IN TREE BEING ABTERMED                  23000000
                            00002  3693+TCBFTCOM EQU   X'02' - ABTERM DUMP SUCCESSFULLY COMPLETED               23100000
                            00001  3694+TCBFTSYN EQU   X'01' - ASYNCHRONOUS EXITS MAY NOT BE SCHEDULED          23200000
00009A                             3695+TCBFTFL2 DS    B -     ABEND FLAGS (MFT WITH SUBTASKS)                  23300000
                            00004  3696+TCBFTOPN EQU   X'04' - SYSABEND OPEN (JOBSTEP TCB)                      23500000
                            00002  3697+TCBFTETX EQU   X'02' - ETXR EXIT REQUESTED BY ATTACHER                  23600000
00009B                             3698+TCBFTFL3 DS    B -     ABEND FLAGS (MFT WITH SUBTASKS)                  23700000
                            00004  3699+TCBFTDUM EQU   X'04' - NO ABTERM DUMPS MAY BE PROVIDED IN THIS STEP     23900000
                                   3700+*                                                                       24000000
                                   3701+*              END OF OVERLAYS                                          24100000
                                   3702+*                                                                       24200000
00009C                             3703+TCBAQE   DS    A -     LIST ORIGIN OF AQE(S) FOR THIS TASK              24300000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   3704+*                      (MVT)                                            24400000
0000A0                             3705+TCBSTAB  DS    0A -    ADDR OF STAE CONTROL BLOCK                       24500000
0000A0                             3706+TCBNSTAE DS    B -     STAE FLAGS                                       24600000
                            00080  3707+TCBSTABE EQU   X'80' - ABEND ENTERED BECAUSE OF ERROR IN STAE PROC      24700000
                            00040  3708+TCBQUIES EQU   X'40' - STAE INVOKED PURGE I/O ROUTINE WITH QUIESCE I/O  24800000
                                   3709+*                      OPTION                                           24900000
                            00020  3710+TCBXCTL  EQU   X'20' - CURRENT SCB HAS XCTL=YES OPTION                  25000000
                            00010  3711+TCBSCAT  EQU   X'10' - SCB WAS CREATED BY A PROGRAM THAT IS SCATTER     25100000
                                   3712+*                      LOADED                                           25200000
                            00008  3713+TCBHALT  EQU   X'08' - PURGE I/O ROUTINE DID NOT SUCCESSFULLY QUIESCE   25300000
                                   3714+*                      I/O BUT I/O WAS HALTED                           25400000
                            00004  3715+TCBSUPER EQU   X'04' - PROGRAM USING STAE IS IN SUPERVISOR MODE         25500000
                            00002  3716+TCBRETRY EQU   X'02' - STAE USER REQUESTED THAT A RETRY ROUTINE BE      25600000
                                   3717+*                      SCHEDULED BUT THAT THE RB CHAIN NOT BE PURGED    25700000
                            00001  3718+TCBVALID EQU   X'01' - RETRY ROUTINE AND PARAMETER LIST ADDRESSES ARE   25800000
                                   3719+*                      VALID                                            25900000
0000A1                             3720+TCBSTABB DS    AL3 -   ADDR OF STAE CONTROL BLOCK                       26000000
0000A4                             3721+TCBTCT   DS    0A -    ADDR OF TCT (MFT WITH SUBTASKING - OTHERWISE 0)  26100000
0000A4                             3722+         DS    C -     RESERVED                                         26200000
0000A5                             3723+TCBTCTB  DS    AL3 -   ADDR OF TCT (MFT WITH SUBTASKING - OTHERWISE 0)  26300000
0000A8                             3724+TCBUSER  DS    A -     FIELD AVAILABLE TO THE USER                      26400000
0000AC                             3725+TCBDAR   DS    B - -   DAMAGE ASSESSMENT ROUTINE FLAGS                  26500000
                            00080  3726+TCBDARP  EQU   X'80' - PRIMARY DAR RECURSION - -                        26600000
                                   3727+*                      DAR FAILURE WHILE WRITING CORE IMAGE             26700000
                            00040  3728+TCBDARS  EQU   X'40' - SECONDARY DAR RECURSION - -                      26800000
                                   3729+*                      DAR FAILURE WHILE ATTEMPTING                     26900000
                                   3730+*                      TO REINSTATE FAILING REGION/PARTITION            27000000
                            00020  3731+TCBDARD  EQU   X'20' - A DUMP HAS BEEN REQUESTED FOR A WRITER OR        27100021
                                   3732+*                      SCHEDULER ABEND AND THE USER HAS PROVIDED NO     27150021
                                   3733+*                      SYSABEND DD CARD (MFT)                           27160021
                            00010  3734+TCBDARC  EQU   X'10' - RECURSION PERMITTED IN CLOSE -                   27200000
                                   3735+*                      AFTER DAR PROCESSING COMPLETED (PCP)             27300021
                            00010  3736+TCBDARMC EQU   X'10' - DAR HAS BEEN ENTERED TO HANDLE A VALID RECURSION 27350021
                                   3737+*                      IN MUST COMPLETE STATUS THROUGH ABEND            27360021
                                   3738+*                      (MFT/MVT)                                 ICB264 27370021
                            00008  3739+TCBDARO  EQU   X'08' - SYSTEM ERROR TASK IS FAILING.  DAR DUMP SHOULD   27400021
                                   3740+*                      NOT REQUEST ANY ERP PROCESSING  (MVT)     ICB315 27600021
                            00008  3741+TCBDAROL EQU   X'08' - PROBLEM PROGRAM STORAGE HAS BEEN OVERLAID TO     27602021
                                   3742+*                      PROCESS DAR (MFT)                         ICB315 27604021
                            00004  3743+TCBDARWT EQU   X'04' - WTO IN PROCESS FOR DAR  (MFT/MVT)         ICB264 27610021
                            00001  3744+TCBEXSVC EQU   X'01' - SVC DUMP IS EXECUTING FOR THIS TASK              27650021
0000AD                             3745+TCBSCNDY DS    0BL3 -  SECONDARY NONDISPATCHABILITY FLAGS -             27700000
                                   3746+*                      (IF ANY BIT IN THESE BYTES IS ON,                27800000
                                   3747+*                      THEN SO IS THE PRIMARY NDSP FLAG)                27900000
0000AD                             3748+TCBNDSP1 DS    B - -   FIRST BYTE                                       28000000
                            00080  3749+TCBDARTN EQU   X'80' - TASK TEMPORARILY NONDISPATCHABLE -               28100000
                                   3750+*                      (DAR)                                            28200000
                            00080  3751+TNONDISP EQU   TCBDARTN * ALIAS *                                       28300000
                            00040  3752+TCBDARPN EQU   X'40' - TASK PERMANENTLY NONDISPATCHABLE -               28400000
                                   3753+*                      (DAR)                                            28500000
                            00040  3754+PNONDISP EQU   TCBDARPN * ALIAS *                                       28600000
                            00020  3755+TCBRSTND EQU   X'20' - TASK TEMPORARILY NONDISPATCHABLE -               28700000
                                   3756+*                      (RMS/SER)                                        28800000
                            00010  3757+TCBRSPND EQU   X'10' - TASK PERMANENTLY NONDISPATCHABLE -               28900000
                                   3758+*                      (RMS/SER)                                        29000000
         SYSIVCMD - Master scheduler initialization COMMNDxx initialization routine                            PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                   3759+*                      (IF THIS FLAG IS ON THEN THE PREVIOUS            29100021
                                   3760+*                      ONE MUST BE TOO)                                 29150021
                            00008  3761+TCBDDRND EQU   X'08' - TASK IS IN DEVICE ALLOCATION AND DYNAMIC DEVICE  29152021
                                   3762+*                      RECONFIGURATION (DDR) HAS MADE IT                29154021
                                   3763+*                      NONDISPATCHABLE                                  29156021
                            00004  3764+TCBTPSP  EQU   X'04' - DISPATCHING OF TCAM TASK MUST BE DELAYED         29160021
                                   3765+*                      UNTIL TCAM I/O APPENDAGE OR SVC ROUTINE HAS      29170021
                                   3766+*                      COMPLETED EXECUTION  (TCAM IN                    29180021
                                   3767+*                      MULTIPROCESSING ENVIRONMENT)                     29190021
0000AE                             3768+TCBNDSP2 DS    B - -   SECOND BYTE                                      29200000
                            00080  3769+TCBABD   EQU   X'80' - SET BY ABDUMP -                                  29300000
                                   3770+*                      (MFT WITH SUBTASKING)                            29400000
                            00040  3771+TCBSTPP  EQU   X'40' - TASK NDSP BECAUSE STOPPED BY SETTASK             29500000
                            00020  3772+TCBNDSVC EQU   X'20' - TASK NDSP BECAUSE SVC DUMP IS EXECUTING FOR      29550021
                                   3773+*                      ANOTHER TASK                                     29560021
                            00010  3774+TCBNDTS  EQU   X'10' - TASK NDSP BECAUSE BEING SWAPPED OUT              29600000
                            00008  3775+TCBIWAIT EQU   X'08' - TASK NDSP DUE TO INPUT WAIT                      29700000
                            00004  3776+TCBOWAIT EQU   X'04' - TASK NDSP DUE TO OUTPUT WAIT                     29800000
                            00001  3777+TCBABE   EQU   X'01' - ABEND ENTERED FOR THIS TASK -                    29900000
                                   3778+*                      WHILE SYSABEND DCB OPEN FOR ANOTHER TASK         30000000
                                   3779+*                      (MFT WITH SUBTASKING)                            30100000
0000AF                             3780+TCBNDSP3 DS    B - -   THIRD BYTE                                       30200000
                            00080  3781+TCBTERM  EQU   X'80' - TERMINATED -                                     30300000
                                   3782+*                      (MFT WITH SUBTASKING)                            30400000
                            00040  3783+TCBABTER EQU   X'40' - TO BE TERMINATED BY ABEND -                      30500000
                                   3784+*                      (MFT WITH SUBTASKING)                            30600000
0000B0                             3785+TCBMDIDS DS    F - -   RESERVED FOR MODEL-DEPENDENT SUPPORT AND FOR     30700021
                                   3786+*                      IBM PROPRIETARY PROGRAMMING SUPPORT       ICBXXX 30750021
0000B4                             3787+TCBJSCB  DS    0A - -  ADDR OF JOB STEP CONTROL BLOCK                   30800000
0000B4                             3788+TCBRECDE DS    B -     ABEND RECURSION BYTE                      ICB264 30850021
                            00080  3789+TCBREC   EQU   X'80' - VALID REENTRY TO ABEND INDICATED IF NON-ZERO     30900021
                                   3790+*                      VALUE IN FOLLOWING 7 BITS                 ICB264 30950021
0000B5                             3791+TCBJSCBB DS    AL3 -   ADDR OF JOB STEP CONTROL BLOCK                   31000000
0000B8                             3792+TCBRV001 DS    A -     RESERVED                                 SA58677 31050021
0000BC                             3793+TCBIOBRC DS    A -     POINTER TO THE IOB RESTORE CHAIN FOR I/O         31060021
                                   3794+*                      QUEUED BY EOT                            SA58677 31070021
                                   3795+*                                                                       31100000
                                   3796+*                      END OF TCB                                       31200000
                                   3797          END   ,
0005D0 0006                        3798                =H'6'
0005D2 0005                        3799                =H'5'
0005D4 0004                        3800                =H'4'
0005D6 C3D6D47E7D                  3801                =C'COM='''
                                                  RELOCATION DICTIONARY                                        PAGE   91


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 19.52 08/28/78

 0001     0001      08     0000AD
 0001     0001      0C     000104
 0001     0001      08     000181
 0001     0001      08     0002CD
 0001     0001      08     0003A1
 0001     0001      08     0003A5
 0001     0001      0C     0003B8

                                                  CROSS-REFERENCE                                              PAGE   92


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 19.52 08/28/78

BLKBOT   00002 00000160 00386  00362
BLKLOOP  00002 00000152 00360  00387
BLKSIZE  00002 00000248 00580  00223 00267 00332 00426
COMMDONE 00002 0000056E 00815  00802 00804
COMMEM   00008 0000024A 00585  00247 00258 00495 00513 00531 00548 00827
COMMEMSF 00002 00000250 00587  00101
COMMERR  00002 0000057E 00825  00791 00817
COMMISSU 00002 00000598 00838  00819
COMMLOOP 00002 00000554 00798  00805
COMMRET  00002 000005C2 00871  00832
COMRECD  00002 00000540 00785  00364
CVTCRTTR 00003 000000B8 02141  02154
CVTMAP   00001 00000000 02052  00123
CVTPTR   00001 00000010 02047  00122
CVTTCBP  00004 00000000 02054  00124
CVTXTNT1 00001 00000114 02240  02213
DCBBIT0  00001 00000080 00897  01018 01034 01073 01091 01136 01146 01162 01203 01213 01225 01248 01279 01282 01284 01286
                               01309 01312 01332 01337 01356 01393 01446 01465 01497 01501 01514
DCBBIT1  00001 00000040 00898  01019 01035 01092 01100 01136 01146 01164 01204 01214 01227 01249 01251 01261 01279 01282
                               01285 01286 01314 01332 01335 01337 01359 01360 01361 01396 01397 01446 01467 01503 01505
                               01517 01561
DCBBIT2  00001 00000020 00899  01020 01036 01093 01102 01146 01165 01205 01215 01228 01230 01231 01249 01251 01256 01262
                               01279 01281 01288 01316 01339 01341 01364 01365 01366 01400 01401 01448 01470 01506 01522
                               01564 01568
DCBBIT3  00001 00000010 00900  00984 01021 01037 01107 01149 01166 01206 01228 01231 01233 01249 01264 01289 01319 01339
                               01343 01368 01369 01370 01404 01405 01448 01472 01474 01476 01508 01523 01564 01569
DCBBIT4  00001 00000008 00901  00985 01038 01108 01152 01167 01207 01216 01265 01290 01320 01345 01351 01352 01373 01374
                               01408 01409 01411 01412 01450 01479 01524 01564 01570
DCBBIT5  00001 00000004 00902  00987 01039 01110 01153 01167 01208 01217 01266 01293 01295 01322 01345 01348 01349 01352
                               01377 01379 01380 01381 01415 01416 01417 01418 01450 01481 01484 01510 01526 01559
DCBBIT6  00001 00000002 00903  00989 01022 01040 01112 01154 01171 01209 01267 01269 01272 01293 01296 01323 01384 01385
                               01386 01387 01421 01422 01423 01424 01487 01528
DCBBIT7  00001 00000001 00904  00991 01023 01116 01156 01172 01210 01267 01270 01272 01298 01327 01389 01390 01427 01428
                               01430 01431 01512 01529 01571
DCBBLKSI 00002 0000003E 01531  00223
DCBFDAD  00008 00000005 00918  00921
DCBOFLGS 00001 00000030 01308  00221
DCBOFOPN 00001 00000010 01319  00221
DCBSSID  00008 00000000 01125  01128
DCBWTOID 00004 00000000 01045  01060 01069
DECB     00001 00000000 01606  00327
DECIOBPT 00004 00000010 01611  00328
EOFPARM  00002 00000168 00423  00518 00553 00648
FINDERR  00002 000001CE 00530  00253
FLAG1    00001 0000027E 00597  00831
F1BADCMD 00001 00000040 00598  00831
GETPARMD 00002 0000009E 00192  00163
IHADCB   00001 00000000 00895  00220 00943 00967 00995 01014 01044 01124 01185 01236 01305 01437 01454 01460 01549 01555
                               01579
INFMJFCB 00001 00000000 02267  00108 00170 00194
IOBCSW   00007 00000019 01768  00330
IOBEXTEN 00008 00000030 01801  01828 01894
IOBINCAM 00002 0000002C 01782  01789
IOBPREFX 00008 00000000 01631  01656 01681 01698
IOBSEEK  00008 00000030 01809  01845 01911 01920
                                                  CROSS-REFERENCE                                              PAGE   93


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 19.52 08/28/78

IOBSTDRD 00008 00000010 01715  00329
IOERR    00002 000001E4 00547  00309
JFCBAREA 00176 000002D0 00621  00106 00106 00107 00169 00193 00615
JFCBDSNM 00044 00000000 02270  00109
JFCBELNM 00008 0000002C 02271  00110
JFCBIND2 00001 00000057 02388  00114
JFCBLKSI 00002 00000066 02562  02563
JFCBLTYP 00001 00000042 02296  00113
JFCBNVOL 00001 00000075 02658  00115
JFCBTSDM 00001 00000034 02276  00111
JFCBUFNO 00001 00000058 02416  02418 02419
JFCBVLCT 00001 000000AE 02700  00112
JFCBVOLS 00030 00000076 02659  00171 00196
JFCBXLST 00004 000002CC 00613  00650
JFCCPRI  00001 00000071 02648  02650 02651
JFCNCP   00001 0000006A 02565  02571
JFCNL    00001 00000001 02306  00113
JFCNWRIT 00001 00000008 02283  00111
JFCOLD   00001 00000040 02392  00114
JFCRKP   00002 0000006C 02617  02621 02639
KPARMLIB 00044 00000252 00592  00109
LMSGA863 00001 00000040 00753  00747
LMSGE252 00001 00000031 00694  00688
LMSGE538 00001 00000035 00722  00716
LMSGE539 00001 0000004A 00708  00702
LMSGE591 00001 00000046 00738  00730
MA863MEM 00008 00000520 00752  00827
MA863TXT 00016 000004F5 00750  00826
ME252MEM 00008 000003EB 00691  00258
ME538MEM 00008 0000046C 00719  00513
ME539MEM 00008 00000442 00705  00531 00548
ME591MEM 00008 000004CA 00736  00495
MGCRLEN  00002 00000280 00606  00842
MGCRPL   00002 00000280 00605  00864
MGCRTEXT 00070 00000284 00608  00876
MOVECMD  00006 000005C8 00876  00858
MSGA863  00004 000004E8 00746  00753 00829
MSGE252  00004 000003D8 00687  00260 00694
MSGE538  00004 00000460 00715  00515 00722
MSGE539  00004 00000410 00701  00533 00550 00708
MSGE591  00004 0000049C 00729  00497 00738
NOTFOUND 00002 000001B8 00512  00251
OPENERR  00002 000001A2 00494  00222
PARMCLS  00002 0000017A 00444  00425 00536
PARMDECB 00004 000000FC 00291  00303 00326
PARMLIB  00004 00000380 00630  00217 00219 00246 00295 00449
PARMOPEN 00002 000000A8 00212  00172
QUOTE    00001 0000007D 00600  00818
READLOOP 00002 000000F6 00287  00407
RETCODE  00004 00000244 00579  00094 00094 00307 00478 00499 00517 00535 00565
RETURN   00002 00000186 00464  00500
R0       00001 00000000 00049  00267 00330 00333 00426 00863 00863
R1       00001 00000001 00050  00093 00219 00220 00224 00271 00363 00427 00789 00864
R12      00001 0000000C 00061  00087 00088
R13      00001 0000000D 00062  00089 00090 00091 00092 00477 00477
                                                  CROSS-REFERENCE                                              PAGE   94


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 19.52 08/28/78

R14      00001 0000000E 00063  00169 00170 00174 00193 00194 00198 00364 00566
R15      00001 0000000F 00064  00087 00089 00091 00092 00100 00101 00107 00108 00116 00122 00123 00124 00125 00126 00126
                               00127 00128 00129 00130 00139 00140 00160 00161 00173 00195 00197 00250 00252 00252 00307
                               00308 00308 00326 00328 00329 00331 00469 00470 00472 00478 00856 00857 00858
R3       00001 00000003 00052  00334 00336 00361 00363 00387
R4       00001 00000004 00053  00335 00337 00387 00797 00799 00801 00805 00816 00839 00849 00856
R5       00001 00000005 00054  00332 00333 00336 00337 00789 00790 00799 00826 00848 00876
R6       00001 00000006 00055  00799 00800 00803 00818 00839 00840 00841 00842 00848 00849 00850 00851
R7       00001 00000007 00056  00093 00100 00137 00138 00139 00160 00469 00471
R8       00001 00000008 00057  00095 00095 00271 00298 00334 00424 00424 00427
SAVEA    00004 000001FC 00577  00090
SRTEASCI 00001 00000004 03029  03030
SRTEBSTR 00001 00000004 03028  03031
SRTEVOLI 00006 0000001C 03021  00171
SYNADRTN 00002 000001F4 00564  00663
SYSVICMD 00001 00000000 00048  00088
TCB      00001 00000000 03451  00127
TCBDARPN 00001 00000040 03752  03754
TCBDARTN 00001 00000080 03749  03751
TCBPQE   00004 00000098 03682  03687
TCBTIO   00004 0000000C 03456  00128
UCBALOC  00001 00000008 02814  02912
UCBBALB  00001 00000020 02948  03025
UCBBJLB  00001 00000002 02956  03032
UCBBNUL  00001 00000001 02957  03033
UCBBPRV  00001 00000010 02952  03026
UCBBPUB  00001 00000008 02953  03027
UCBBSTR  00001 00000004 02954  03028 03029
UCBBSVL  00001 00000080 02943  03023
UCBBVSC  00001 00000040 02947  03024
UCBCHGS  00001 00000040 02811  02909
UCBDADI  00001 00000001 02818  02915
UCBDBBNR 00002 00000038 03139  03171
UCBDCELL 00016 00000038 03137  00195 03170
UCBDDMCT 00001 00000043 03161  03176
UCBDEV   00001 00000018 02922  02931 03045 03080 03096 03117
UCBDJBNR 00001 00000042 03160  03175
UCBDMCT  00001 00000023 02960  03034
UCBDSTAB 00001 0000003A 03140  03172
UCBDSTAT 00001 0000003B 03151  03173
UCBDUSER 00001 00000047 03168  03178
UCBDVOLI 00006 0000003C 03159  00196 03174
UCBDVTOC 00003 00000044 03167  03177
UCBECBA  00003 00000039 03016  03038
UCBFL1   00001 00000006 02827  02916
UCBFSCT  00002 00000024 02965  03035
UCBFSEQ  00002 00000026 02966  03036
UCBID    00001 00000002 02808  00162
UCBJBNR  00001 00000000 02789  02905
UCBMONT  00001 00000001 02796  02906
UCBOB    00001 00000000 02785  00161
UCBONLI  00001 00000080 02810  02908
UCBPRES  00001 00000004 02815  02913
UCBRESV  00001 00000020 02812  02910
UCBSTAB  00001 00000022 02942  03022
                                                  CROSS-REFERENCE                                              PAGE   95


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 19.52 08/28/78

UCBSTAT  00001 00000003 02809  02907
UCBSYSR  00001 00000002 02816  02914
UCBUNLD  00001 00000010 02813  02911
UCBUSER  00001 00000038 03015  03037 03131
UCBVOLI  00006 0000001C 02941  03021
VPUCBPT  00004 00000050 02023  00137 00138 00471
VTIOT    00008 00000000 02000  00130 00470
                                                  LITERAL CROSS-REFERENCE                                      PAGE   96


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 19.52 08/28/78

=CL8' '  00008 00000530 00761  00110
=F'4'    00004 00000538 00762  00250
=F'8'    00004 0000053C 00763  00499 00517 00535 00565
=H'6'    00002 000005D0 03798  00801 00816 00857
=H'5'    00002 000005D2 03799  00840
=H'4'    00002 000005D4 03800  00841
=C'COM='''
         00001 000005D6 03801  00790
                                                  ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE   97


                                                                                                 ASM 0201 19.52 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, OBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER =13030/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT       1216
TOTAL RECORDS READ FROM SYSTEM LIBRARY     9396
TOTAL RECORDS PUNCHED                        32
TOTAL RECORDS PRINTED                      4163


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T193835.RV000.G25VICMD.SYSUT1       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G25VICMD.SYSUT2       DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G25VICMD.SYSUT3       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.SV000.G25VICMD.R0000450     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G25VICMD.OBJSET       PASSED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G25VICMD.S0000451     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G25VICMD.S0000451     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /ASM     / START 78240.1952
IEF374I STEP /ASM     / STOP  78240.1952 CPU   0MIN 02.63SEC MAIN 768K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:52:23.74   ALLOC START    19:52:23.75   MAIN REGION ----- 768K                          *
*   STEP NAME ASM        STEP END TIME  19:52:26.57   PGM START TIME 19:52:23.85   MAIN STORAGE ---- 768K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.83   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:02.63   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0150 ---------- 195       0250 ----------- 53       0158 ---------- 376       0353 ----------- 78       0159 ----------- 36    *
*   0353 ---------- 463       0130 ----------- 32       0130 --------- 1218                                                        *
************************************************************************************************************************************

//LKED   EXEC PGM=IEWL,PARM=(XREF,LET,LIST,NCAL,MAP),
//            REGION=128K,COND=(4,LT,ASM)
//SYSLMOD  DD DSN=SYS1.LINKLIB,DISP=SHR,UNIT=SYSDA,
//            VOL=SER=ASPRES
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(50,20))
//SYSPRINT DD SYSOUT=A
//SYSLIN   DD DSN=&&OBJSET,DISP=(OLD,DELETE)
//         DD *
//
IEF236I ALLOC. FOR G25VICMD LKED
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 130   ALLOCATED TO SYSLIN
IEF237I 130   ALLOCATED TO


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED XREF,LET,LIST,NCAL,MAP
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     ENTRY SYSVICMD
IEW0000     NAME  SYSVICMD(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  SYSVICMD      00     5DB



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       5E0

****SYSVICMD  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G25VICMD.SYSUT1       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.SV000.G25VICMD.R0000452     SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G25VICMD.OBJSET       DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G25VICMD.S0000453     SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G25VICMD.S0000453     DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /LKED    / START 78240.1952
IEF374I STEP /LKED    / STOP  78240.1952 CPU   0MIN 00.06SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:52:26.59   ALLOC START    19:52:26.61   MAIN REGION ----- 256K                          *
*   STEP NAME LKED       STEP END TIME  19:52:26.77   PGM START TIME 19:52:26.68   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.18   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0150 ------------ 7       0158 ------------ 0       0353 ----------- 20       0130 ----------- 33       0130 ------------ 3    *
************************************************************************************************************************************

IEF375I  JOB /G25VICMD/ START 78240.1952
IEF376I  JOB /G25VICMD/ STOP  78240.1952 CPU   0MIN 02.69SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G25VICMD   JOB READ TIME 19:52:23.26   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:02.69   *
*   JOB CLASS A          JOB INIT TIME 19:52:23.74   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:03.06   *
*   ACCOUNT   1          JOB END TIME  19:52:26.80   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG    2222222        66     IIIIII    N      NN  TTTTTTTT   KK     KK                            A
            GGGGGGGGG  222222222      66      IIIIII    NN     NN  TTTTTTTT   KK    KK                            AAA
            GG     GG  22     22     66         II      NNN    NN     TT      KK   KK                            AA AA
            GG               22     66          II      NNNN   NN     TT      KK  KK                            AA   AA
            GG              22     6666666      II      NN NN  NN     TT      KK KK                            AA     AA
            GG   GGGG      22     666666666     II      NN  NN NN     TT      KKKKK                            AA     AA
            GG   GGGG     22      66     66     II      NN   NNNN     TT      KKK KK                           AAAAAAAAA
            GG     GG    22       66     66     II      NN    NNN     TT      KK   KK                          AAAAAAAAA
            GGGGGGGGG   22222222  666666666   IIIIII    NN     NN     TT      KK    KK                         AA     AA
             GGGGGGG   222222222   6666666    IIIIII    NN      N     TT      KK     KK                        AA     AA

***********A  START   G26INTK    SYS SYSA   WTR 00E   07:52:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   G26INTK    START  A***********
***********A  START   G26INTK    SYS SYSA   WTR 00E   07:52:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   G26INTK    START  A***********
***********A  START   G26INTK    SYS SYSA   WTR 00E   07:52:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   G26INTK    START  A***********
***********A  START   G26INTK    SYS SYSA   WTR 00E   07:52:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   G26INTK    START  A***********
***********A  START   G26INTK    SYS SYSA   WTR 00E   07:52:35 PM  28 AUG 1978   WTR 00E   SYS SYSA   G26INTK    START  A***********


//G26INTK  JOB 1,G26ASPINTK,MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      G26ASPINTK                                         ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Install ASPINTK front end for ASPNUC on new        ***
***              system.                                            ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
***MAIN LINES=100
//ASM    EXEC PGM=IFOX00,
//            PARM='DECK,LIST',REGION=768K
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB,DCB=BLKSIZE=19040,
//            UNIT=SYSDA,VOL=SER=ASPRES
//         DD DISP=SHR,DSN=ASP.MAC320,
//            UNIT=SYSDA,VOL=SER=ASPSUP
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSUT2   DD DSN=&&SYSUT2,UNIT=SYSDA,SPACE=(1700,(300,50))
//SYSUT3   DD DSN=&&SYSUT3,UNIT=SYSDA,SPACE=(1700,(300,50))
//SYSPRINT DD SYSOUT=A
//SYSLIN   DD DUMMY
//SYSGO    DD DUMMY
//SYSPUNCH DD DSN=&&OBJSET,UNIT=SYSDA,SPACE=(80,(200,50)),
//            DISP=(MOD,PASS)
//SYSIN    DD *
***
IEF236I ALLOC. FOR G26INTK  ASM
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 151   ALLOCATED TO
IEF237I 353   ALLOCATED TO SYSUT1
IEF237I 158   ALLOCATED TO SYSUT2
IEF237I 353   ALLOCATED TO SYSUT3
IEF237I 159   ALLOCATED TO SYSPRINT
IEF237I 353   ALLOCATED TO SYSPUNCH
IEF237I 130   ALLOCATED TO SYSIN


                                               EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 19.52 08/28/78

ASPINTK   SD  0001 000000 000FD0
                                                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                      1          PRINT OFF
                                     69          PRINT ON
                                     70 ***********************************************************************
                                     71 *                                                                     *
                                     72 *                                                                     *
                                     73 * Module name          =  ASPINTK                                     *
                                     74 *                                                                     *
                                     75 *                                                                     *
                                     76 * Descriptive name     =  ASP job step task program.                  *
                                     77 *                                                                     *
                                     78 *                                                                     *
                                     79 * Function             =  This is the job step task for ASP.  It      *
                                     80 *                         attaches the ASP nucleus, waits for         *
                                     81 *                         it to complete, and issues appropriate      *
                                     82 *                         messages at termination.   If ASPNUC        *
                                     83 *                         abended, ASPINTK also abends (unless        *
                                     84 *                         the abend is a user 0009, which is          *
                                     85 *                         what ASP issues when the operator           *
                                     86 *                         issues a *RETURN command).                  *
                                     87 *                                                                     *
                                     88 *                                                                     *
                                     89 * Notes                =  See below.                                  *
                                     90 *                                                                     *
                                     91 *   Dependencies       =  None.                                       *
                                     92 *                                                                     *
                                     93 *   Registers          =  Not documented.                             *
                                     94 *                                                                     *
                                     95 *   Patch space        =  None.                                       *
                                     96 *                                                                     *
                                     97 *                                                                     *
                                     98 * Module type          =  CSECT                                       *
                                     99 *                                                                     *
                                    100 *   Processor          =  OS System Assembler                         *
                                    101 *                                                                     *
                                    102 *   Module size        =  See assembly listing.                       *
                                    103 *                                                                     *
                                    104 *   Attributes         =                                              *
                                    105 *     Location         =  Linklist data set                           *
                                    106 *     State            =  Supervisor                                  *
                                    107 *     Key              =  Zero                                        *
                                    108 *     Mode             =  Task                                        *
                                    109 *     Serialization    =  None                                        *
                                    110 *     Type             =  Not reentrant                               *
                                    111 *                                                                     *
                                    112 *                                                                     *
                                    113 ***********************************************************************
                                                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

000000                              115 ASPINTK  CSECT ,
                            00000   116 R0       EQU   0
                            00001   117 R1       EQU   1
                            00002   118 R2       EQU   2
                            00003   119 R3       EQU   3
                            00004   120 R4       EQU   4
                            00005   121 R5       EQU   5
                            00006   122 R6       EQU   6
                            00007   123 R7       EQU   7
                            00008   124 R8       EQU   8
                            00009   125 R9       EQU   9
                            0000A   126 R10      EQU   10
                            0000B   127 R11      EQU   11
                            0000C   128 R12      EQU   12
                            0000D   129 R13      EQU   13
                            0000E   130 R14      EQU   14
                            0000F   131 R15      EQU   15
                                    132          PRINT GEN
                                                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    134 *----------------------------------------------------------------*
                                    135 *        Program initialization.                                 *
                                    136 *----------------------------------------------------------------*
                                    137          SAVE  (14,12),,ASPINTK    SAVE CALLER'S REGISTERS
000000 47F0 F00C      0000C         138+         B     12(0,15)                          BRANCH AROUND ID       00180000
000004 07                           139+         DC    AL1(7)                            LENGTH OF IDENTIFIER   00220000
000005 C1E2D7C9D5E3D2               140+         DC    CL7'ASPINTK'                      IDENTIFIER             00300000
00000C 90EC D00C      0000C         141+         STM   14,12,12(13)                      SAVE REGISTERS         01180000
000010 18CF                         142          LR    R12,R15             SET BASE REGISTER
                            00000   143          USING ASPINTK,R12         ADDRESSABILITY FOR PROGRAM
000012 50D0 C1DC      001DC         144          ST    R13,SAVEAREA+4      SAVE PREVIOUS SAVE AREA PTR
000016 18FD                         145          LR    R15,R13             SAVE POINTER
000018 41D0 C1D8      001D8         146          LA    R13,SAVEAREA        POINT TO NEW SAVE AREA
00001C 50D0 F008      00008         147          ST    R13,8(0,R15)        SAVE NEW SAVE AREA PTR

                                    149 *----------------------------------------------------------------*
                                    150 *        Attach ASPNUC, wait for it to complete, and detach it.  *
                                    151 *----------------------------------------------------------------*
000020 D703 C228 C228 00228 00228   152          XC    ASPECB,ASPECB       CLEAR THE ECB
                                    153          ATTACH EP=ASPNUC,ECB=ASPECB,JSTCB=YES,SM=SUPV
000026 41F0 C030      00030         154+         LA    15,IHB0002                        LOAD 15 WITH LIST ADDR 04240000
00002A 47F0 F034      00034         155+         B     52(0,15)      .AROUND LIST.                        20021 05056020
000030                              156+IHB0002  DS    0F                                SUP. PARAM. LIST       05060000
000030 0000004C                     157+         DC    A(*+28)                           ADDRESS OF SYMB NAME   05100000
000034 00                           158+         DC    AL1(0)             NO HIARCHY                       LCS1 05328017
000035 000000                       159+         DC    AL3(0)                  DCB ADDRESS                 LCS1 05420017
000038 00000228                     160+         DC    A(ASPECB)                         ECB ADDRESS            05480000
00003C 00000000                     161+         DC    A(0)                              GSPV VALUE OR GSPL ADR 05720000
000040 00000000                     162+         DC    A(0)                              SHSPL OR SHSPV         05920000
000044 02                           163+         DC    AL1(2)                            SET ROLLOUT BITS  RORI 05945015
000045 000000                       164+         DC    AL3(0)                        ETXR ROUT. ADDRESS    RORI 06020015
000048 0000                         165+         DC    AL2(0)                            DPMOD VALUE            06180000
00004A 00                           166+         DC    AL1(0)                            LPMOD VALUE            06280000
00004B 03                           167+         DC    AL1(3)                                                   06380000
00004C C1E2D7D5E4C34040             168+         DC    CL8'ASPNUC'                       EP SYMBOL              06420000
000054 00000000                     169+         DC    A(0)               ADDRESS OF JSCB                  I270 06469019
000058 0000000000000000             170+         DC    A(0,0)        .NO STAI PARM LIST OR EXIT ADDR.     20021 06475020
000060 00000000                     171+         DC    A(0)          .NO TASKLIB.                         20021 06476020
000064 0A2A                         172+         SVC   42                                ISSUE ATTACH SVC       06480000
000066 5010 C22C      0022C         173          ST    R1,ASPTCB           SAVE ASPNUC TCB ADDRESS

                                    175 *----------------------------------------------------------------*
                                    176 *        Test attach return code.  Issue message and abend if    *
                                    177 *        attach failed.                                          *
                                    178 *----------------------------------------------------------------*
00006A 127F                         179          LTR   R7,R15              SUCCESSFUL ATTACH?
00006C 4780 C0B0      000B0         180          BZ    WAIT                YES, WAIT FOR ASPNUC TO END
                                    181          WTO   'INTK01 ASPINTK UNABLE TO ATTACH ASPNUC',               +
                                                       ROUTCDE=(2,10),DESC=4 NOTIFY OPERATOR
000070                              182+         CNOP  0,4                                                      08550021
000070 4510 C0A2      000A2         183+         BAL   1,IHB0003A                        BRANCH AROUND MESSAGE  08600021
000074 002A                         184+         DC    AL2(42)             TEXT LENGTH                          11950021
000076 8000                         185+         DC    B'1000000000000000' MCS FLAGS                            12000021
000078 C9D5E3D2F0F140C1             186+         DC    C'INTK01 ASPINTK UNABLE TO ATTACH ASPNUC'                12100021
00009E 1000                         187+         DC    B'0001000000000000' DESCRIPTOR CODES                     12200021
                                                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

0000A0 4040                         188+         DC    B'0100000001000000' ROUTING CODES                        12250021
0000A2                              189+IHB0003A DS    0H                                                       13900021
0000A2 0A23                         190+         SVC   35                                                       14000021
0000A4 48F0 C234      00234         191          LH    R15,RSN3000         SET REASON CODE
0000A8 1807                         192          LR    R0,R7               SET ATTACH ERROR CODE IN R0
0000AA 5810 C220      00220         193          L     R1,C2FBDUMP         GET COMPLETION CODE FOR DUMP
                                    194          ABEND (1)                 ABEND WITH DUMP
0000AE                              195+         DS    0H                                                       00080019
0000AE 0A0D                         196+         SVC   13                                LINK TO ABEND ROUTINE  00960000

                                    198 *----------------------------------------------------------------*
                                    199 *        Attach was successful.  Wait for ASPNUC to end.         *
                                    200 *----------------------------------------------------------------*
0000B0                              201 WAIT     DS    0H
                                    202          WAIT  ECB=ASPECB          WAIT FOR ASPNUC TERMINATION
0000B0 4110 C228      00228         203+         LA    1,ASPECB                          LOAD PARAMETER REG 1   00100000
0000B4 4100 0001      00001         204+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
0000B8 0A01                         205+         SVC   1                                 LINK TO WAIT ROUTINE   00280000

                                    207 *----------------------------------------------------------------*
                                    208 *        ASPNUC has ended.  Test for normal return or *RETURN    *
                                    209 *        command (a user 0009 abend).                            *
                                    210 *----------------------------------------------------------------*
0000BA 5800 C228      00228         211          L     R0,ASPECB           PICK UP COMPLETION CODE
0000BE 1200                         212          LTR   R0,R0               TEST FOR NORMAL RETURN
0000C0 4780 C0D6      000D6         213          BZ    EXIT                NORMAL RETURN FROM ASPNUC
0000C4 5800 C228      00228         214          L     R0,ASPECB           PICK UP COMPLETION CODE
0000C8 5400 C230      00230         215          N     R0,USERMASK         CLEAR ALL BUT USER CODE
0000CC 41F0 0009      00009         216          LA    R15,ASPDM009        Get completion code for *RETURN
0000D0 190F                         217          CR    R0,R15              'USER 009' = *RETURN ?
0000D2 4770 C11C      0011C         218          BNE   ABND                NO, GO ABEND

                                    220 *----------------------------------------------------------------*
                                    221 *        ASPNUC ended normally, or *RETURN command was issued.   *
                                    222 *        Issue message, clean up and exit.                       *
                                    223 *----------------------------------------------------------------*
0000D6                              224 EXIT     DS    0H                  RETURN TO SENDER
                                    225          WTO   'INTK03 ASP TERMINATION COMPLETE',                      +
                                                       ROUTCDE=(2,10),DESC=4
0000D6 0700                         226+         CNOP  0,4                                                      08550021
0000D8 4510 C104      00104         227+         BAL   1,IHB0008A                        BRANCH AROUND MESSAGE  08600021
0000DC 0023                         228+         DC    AL2(35)             TEXT LENGTH                          11950021
0000DE 8000                         229+         DC    B'1000000000000000' MCS FLAGS                            12000021
0000E0 C9D5E3D2F0F340C1             230+         DC    C'INTK03 ASP TERMINATION COMPLETE'                       12100021
0000FF 1000                         231+         DC    B'0001000000000000' DESCRIPTOR CODES                     12200021
000101 4040                         232+         DC    B'0100000001000000' ROUTING CODES                        12250021
000104                              233+IHB0008A DS    0H                                                       13900021
000104 0A23                         234+         SVC   35                                                       14000021
                                    235          DETACH ASPTCB             DETACH ASPNUC TCB
000106 4110 C22C      0022C         236+         LA    1,ASPTCB                          LOAD PARAMETER REG 1   00100000
00010A 0A3E                         237+        SVC   62             ISSUE DETACH SVC                           00106020
00010C 58D0 C1DC      001DC         238          L     R13,SAVEAREA+4      RESTORE SAVE AREA POINTER
000110 17FF                         239          XR    R15,R15             SET RC=0
                                    240          RETURN (14,12),RC=(15)    RETURN
000112 58ED 000C      0000C         241+         L     14,12(13,0)                       RESTORE REGISTER 14    00480000
                                                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

000116 980C D014      00014         242+         LM    0,12,20(13)                       RESTORE THE REGISTERS  00400000
00011A 07FE                         243+         BR    14                                RETURN                 00800000

                                    245 *---------------------------------------------------------------------*
                                    246 *        ASPNUC abended.  Format the completion code.                 *
                                    247 *---------------------------------------------------------------------*
00011C                              248 ABND     DS    0H                  HERE TO ABEND
00011C 5800 C228      00228         249          L     R0,ASPECB           GET COMPLETION CODE IN R0

                                    251 *----------------------------------------------------------------*
                                    252 *        Isolate system completion code in R0 and user           *
                                    253 *        completion code in R1.                                  *
                                    254 *----------------------------------------------------------------*
000120 8900 0008      00008         255          SLL   R0,8                SSSUUU00 IN R0
000124 8C00 0014      00014         256          SRDL  R0,20               00000SSS IN R0  UUUXXXXX IN R1
000128 8810 0014      00014         257          SRL   R1,20               00000UUU IN R1

                                    259 *----------------------------------------------------------------*
                                    260 *        Format user completion code into message.               *
                                    261 *----------------------------------------------------------------*
00012C 4E10 C1D0      001D0         262          CVD   R1,DWORK            CONVERT USER CC TO PACKED
000130 960F C1D7      001D7         263          OI    DWORK+7,X'0F'       UNPACK USER CC
000134 F337 C262 C1D0 00262 001D0   264          UNPK  MSGCODEU,DWORK       INTO MESSAGE
00013A 1831                         265          LR    R3,R1               Save user completion code in R3

                                    267 *----------------------------------------------------------------*
                                    268 *        Format system completion code into message.             *
                                    269 *----------------------------------------------------------------*
00013C 4000 C1D0      001D0         270          STH   R0,DWORK            SET SYSTEM CC IN WORK AREA
000140 920F C1D2      001D2         271          MVI   DWORK+2,X'0F'       SET DUMMY SIGN FOR UNPACK
000144 F342 C1D3 C1D0 001D3 001D0   272          UNPK  DWORK+3(5),DWORK(3) UNPACK SYSTEM ABEND CODE
00014A D202 C259 C1D4 00259 001D4   273          MVC   MSGCODES,DWORK+4    MOVE SYSTEM CC TO MESSAGE
000150 DC02 C259 C213 00259 00213   274          TR    MSGCODES,HEXTRAN-240  TRANSLATE HEX TO CHARACTER

                                    276 *----------------------------------------------------------------*
                                    277 *        Issue abend message.                                    *
                                    278 *----------------------------------------------------------------*
                                    279          WTO   MF=(E,MSGABEND)     NOTIFY OPERATOR
000156 4110 C238      00238         280+         LA    1,MSGABEND                        LOAD PARAMETER REG 1   00100000
00015A 0A23                         281+         SVC   35                                ISSUE SVC              00750021

00015C 4120 C314      00314         283          LA    R2,MSGTBL           Point to start of message table

                                    285 *----------------------------------------------------------------*
                                    286 *        Loop through message table to find match for            *
                                    287 *        user abend code.                                        *
                                    288 *----------------------------------------------------------------*
000160                              289 MSGLOOP  DS    0H                  Loop through message table
000160 D503 C2FF 2000 002FF 00000   290          CLC   XFF,0(R2)           End of table?
000166 4780 C1B0      001B0         291          BE    DONE                Done if so
00016A 5532 0000      00000         292          CL    R3,0(R2)            Is this the entry we want?
00016E 4780 C17A      0017A         293          BE    MSGFOUND            Branch if so
000172 4120 2008      00008         294          LA    R2,8(,R2)           Else point to next table entry
000176 47F0 C160      00160         295          B     MSGLOOP             Do next message

                                                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    297 *----------------------------------------------------------------*
                                    298 *        Table entry found for abend code.  Build and            *
                                    299 *        issue WTO using message text for abend code.            *
                                    300 *----------------------------------------------------------------*
00017A                              301 MSGFOUND DS    0H                  Found in table
00017A 58F0 2004      00004         302          L     R15,4(,R2)          Point to message
00017E 17EE                         303          XR    R14,R14             Clear a register
000180 43E0 F000      00000         304          IC    R14,0(,R15)         Get message length
000184 44E0 C1AA      001AA         305          EX    R14,MOVETXT         Copy message text
000188 4800 C26C      0026C         306          LH    R0,MSG              Set
00018C 1AE0                         307          AR    R14,R0               length
00018E 41E0 E001      00001         308          LA    R14,1(,R14)           for
000192 40E0 C26C      0026C         309          STH   R14,MSG                WTO
000196 41EE C26C      0026C         310          LA    R14,MSG(R14)        Point past WTO text
00019A D203 E000 C2FB 00000 002FB   311          MVC   0(4,R14),CODES      Set routing/descriptor codes
                                    312          WTO   MF=(E,MSG)          Display message
0001A0 4110 C26C      0026C         313+         LA    1,MSG                             LOAD PARAMETER REG 1   00100000
0001A4 0A23                         314+         SVC   35                                ISSUE SVC              00750021
0001A6 47F0 C1B0      001B0         315          B     DONE

0001AA D200 C277 F001 00277 00001   317 MOVETXT  MVC   OUT(*-*),1(R15)     ** Executed move **
0001B0                              318 DONE     DS    0H

                                    320 *----------------------------------------------------------------*
                                    321 *        Determine if we should dump.  A dump is taken for       *
                                    322 *        any abend except a user 0010.                           *
                                    323 *----------------------------------------------------------------*
0001B0 5800 C228      00228         324          L     R0,ASPECB           PICK UP COMPLETION CODE
0001B4 1830                         325          LR    R3,R0               SAVE ABEND CODE
0001B6 41F0 000A      0000A         326          LA    R15,ASPDM010        Get completion code for user 0010
0001BA 190F                         327          CR    R0,R15              'USER 010' = NO DUMP WANTED?
0001BC 4780 C1C6      001C6         328          BE    ABNNODMP            YES, GO DO IT

                                    330 *----------------------------------------------------------------*
                                    331 *        Abend with dump.                                        *
                                    332 *----------------------------------------------------------------*
0001C0 5810 C220      00220         333          L     R1,C2FBDUMP         GET COMPLETION CODE FOR DUMP
                                    334          ABEND (1)                 ABEND WITH DUMP
0001C4                              335+         DS    0H                                                       00080019
0001C4 0A0D                         336+         SVC   13                                LINK TO ABEND ROUTINE  00960000

                                    338 *----------------------------------------------------------------*
                                    339 *        Abend without dump.                                     *
                                    340 *----------------------------------------------------------------*
0001C6                              341 ABNNODMP DS    0H
0001C6 5810 C224      00224         342          L     R1,C2FB             GET COMPLETION CODE FOR NO DUMP
                                    343          ABEND (1)                 ABEND WITHOUT DUMP
0001CA                              344+         DS    0H                                                       00080019
0001CA 0A0D                         345+         SVC   13                                LINK TO ABEND ROUTINE  00960000

                                    347 *----------------------------------------------------------------*
                                    348 *        Constants and work areas.                               *
                                    349 *----------------------------------------------------------------*
0001D0                              350 DWORK    DS    D                   DOUBLEWORD WORK AREA
0001D8                              351 SAVEAREA DS    18F                 PROGRAM SAVE AREA
                                                                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

000220                              352          DS    0F
000220 802FB000                     353 C2FBDUMP DC    X'802FB000'         ABEND 2FB WITH DUMP
000224 002FB000                     354 C2FB     DC    X'002FB000'         ABEND 2FB WITHOUT DUMP
000228                              355 ASPECB   DS    F                   ASPNUC ECB
00022C                              356 ASPTCB   DS    A                   ADDRESS OF ASPNUC TCB
000230                              357          DS    0F
000230 00000FFF                     358 USERMASK DC    XL4'FFF'            Mask to CLEAR ALL BUT USER CODE
000234                              359          DS    0H
000234 3000                         360 RSN3000  DC    X'3000'             REASON CODE 3000
                                    361 MSGABEND WTO   'INTK02 ASPNUC ABEND - SYSTEM=XXX USER=XXXX',           +
                                                       ROUTCDE=(2,10),DESC=4,MF=L
000238                              362+MSGABEND DS    0F                                                       01050021
000238 002E                         363+         DC    AL2(46)             TEXT LENGTH                          11950021
00023A 8000                         364+         DC    B'1000000000000000' MCS FLAGS                            12000021
00023C C9D5E3D2F0F240C1             365+         DC    C'INTK02 ASPNUC ABEND - SYSTEM=XXX USER=XXXX'            12100021
000266 1000                         366+         DC    B'0001000000000000' DESCRIPTOR CODES                     12200021
000268 4040                         367+         DC    B'0100000001000000' ROUTING CODES                        12250021
00026A                      00259   368          ORG   MSGABEND+29+4
000259                              369 MSGCODES DS    CL3                 SYSTEM COMPLETION CODE
00025C                      00262   370          ORG   MSGABEND+38+4
000262                              371 MSGCODEU DS    CL4                 USER COMPLETION CODE
000266                      0026A   372          ORG   ,
                                    373 MSG      WTO   'INTK04 ',MF=L,ROUTCDE=(2,10)
00026C                              374+MSG      DS    0F                                                       01050021
00026C 000B                         375+         DC    AL2(11)             TEXT LENGTH                          11950021
00026E 8000                         376+         DC    B'1000000000000000' MCS FLAGS                            12000021
000270 C9D5E3D2F0F440               377+         DC    C'INTK04 '                                               12100021
000277 0000                         378+         DC    B'0000000000000000' DESCRIPTOR CODES                     12200021
000279 4040                         379+         DC    B'0100000001000000' ROUTING CODES                        12250021
00027B                              380          DS    CL128
                            00277   381 OUT      EQU   MSG+4+7,120
0002FB 00004040                     382 CODES    DC    X'00004040'         ROUTCDE=(2,10)
0002FF FFFFFFFF                     383 XFF      DC    X'FFFFFFFF'         End of table indicator
000303 F0F1F2F3F4F5F6F7             384 HEXTRAN  DC    C'0123456789ABCDEF'
                                                                                                               PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    386 ******************************************************************
                                    387 *                                                                *
                                    388 *        Define messages for user abend codes.                   *
                                    389 *                                                                *
                                    390 ******************************************************************

                                    392  EMSG 001,'INITCARD: TERMINAL ERRORS IN INITIALIZATION DECK'
                                    393  EMSG 002,'NOT ENOUGH CORE TO INITIALIZE ASP'
                                    394  EMSG 003,'INITDATA: UNEXPECTED EOF READING INITIALIZATION DECK'
                                    395  EMSG 004,'INITCNS: TERMINAL ERRORS IN INITIALIZATION PARM ANALYSIS'
                                    396  EMSG 005,'INITRTNS: DUMP ON EXACT INISH MSG'
                                    397  EMSG 006,'ERROR READING CHKPNT RECORD IN RESTART PROCESSING'
                                    398  EMSG 007,'STAE FAILURE'
                                    399  EMSG 008,'OPERATOR ISSUED *DUMP'
                                    400  EMSG 010,'PRTSETUP OBTAINED PRINTER WITHOUT A PRTABLE ENTRY'
                                    401  EMSG 011,'INITCKIO: ASP SPOOL CHECKPOINT ERROR'
                                    402  EMSG 012,'ERROR DURING SPOOL CHECKPOINT VALIDATION'
                                    403  EMSG 019,'ACDS: COULD NOT FIND ACDS-CREATED MSVDATA'
                                    404  EMSG 020,'IJPEND: COULD NOT FIND IJP CREATED MSVDATA'
                                    405  EMSG 030,'RESMGMT: AN INVALID RESOURCE NAME WAS GIVEN'
                                    406  EMSG 040,'JOBCONT: ILLEGAL JCT ACCESS'
                                    407  EMSG 041,'JOBCONTL: INVALID PRIORITY FOR JCT ACCESS'
                                    408  EMSG 042,'JOBCONTL: EXCESSIVE LENGTH FOR TAADD'
                                    409  EMSG 043,'JOBCONTL: TAPUT WITHOUT TAGET'
                                    410  EMSG 044,'JOBCONTL: TADEL WITHOUT TAGET'
                                    411  EMSG 045,'JOBCONTL: RESQUEUE MANAGEMENT ERRORS'
                                    412  EMSG 050,'ASPCONTL: ATIME WITHOUT ENTER ADDRESS'
                                    413  EMSG 051,'JSSDR: RETURN TO JSSDR WITH SAVEAREAS OUTSTANDING'
                                    414  EMSG 080,'ALDADEL: CANNOT LOAD MODULE - DOES NOT EXIST'
                                    415  EMSG 081,'ALDADEL: CANNOT LOAD MODULE - PERM I/O ERROR'
                                    416  EMSG 090,'LOGOUT: CANNOT FIND SE IN JDAB'
                                    417  EMSG 091,'LOGOUT: FUNCTION IS NOT LOGGED IN'
                                    418  EMSG 100,'ABENDMON: RECURSION IN THE SPIE ROUTINE'
                                    419  EMSG 101,'ABENDMON: UNRECOVERABLE DSP FAILURE'
                                    420  EMSG 102,'ABENDMON: PRG CHK BTWN AWAIT AND FCT SCAN'
                                    421  EMSG 103,'ABENDMON: STAE EXIT TOOK GOOD DUMP'
                                    422  EMSG 104,'RICONTL: COULD NOT READ OS CONTROL BLOCK'
                                    423  EMSG 105,'DJCUPDAT: NCB FOR ENDING JOB NOT FOUND'
                                    424  EMSG 130,'CONSOLES: ERROR IN CONSOLE STATUS TABLE'
                                    425  EMSG 131,'CONSINPT: DSP MESSAGE APPENDAGE ABENDED'
                                    426  EMSG 132,'CONSQMGR: BAD MESSAGE PARAMETERS'
                                    427  EMSG 133,'CONSINPT: DSP TERMINATED VIA OPERATOR FAIL CMND'
                                    428  EMSG 140,'ASAVERTN: BUSY RETURN FROM AGETMAIN FOR SAVE AREA'
                                    429  EMSG 700,'ASPIO: AOPEN DONE, FDB ADDRESS IN FD'
                                    430  EMSG 701,'ASPIO: MULTIPLE FILE, NO FD ENTRY'
                                    431  EMSG 702,'ASPIO: READING BEYOND DATA, MULTIPLE INPUT FILE'
                                    432  EMSG 703,'ASPIO: NO BUFFER ADDRESS IN FDB FOR AWRITE'
                                    433  EMSG 704,'ASPIO: BAD TRACK ADDRESS TO I/O ROUTINES'
                                    434  EMSG 705,'ASPIO: BAD BUFFER ADDRESS TO PUTBUF ROUTINE'
                                    435  EMSG 706,'ASPIO: ACLOSE WITHOUT FD ENTRY, NO AOPEN'
                                    436  EMSG 707,'ASPIO: DEDICATED BA''S, NO BA''S AVAILABLE'
                                    437  EMSG 708,'IONUC: NO EOD IN BUFFER ON ACLOSE FOLL AOPEND'
                                    438  EMSG 709,'ASPIO: INSUFFICIENT DED BUFFERS'
                                    439  EMSG 710,'ASPIO: DUPLICATE TRACK'
                                    440  EMSG 711,'ASPIO: ALOCATE ON CLOSED FILE'
                                                                                                               PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    441  EMSG 712,'ASPIO: BAD COUNT ON ALOCATE OR ABLOCK'
                                    442  EMSG 713,'ASPIO: ILLEGAL FDB TO APURGE'
                                    443  EMSG 714,'ASPIO: TRACK TO APURGE, NOT IN STT'
                                    444  EMSG 715,'ASPIO: ILLEGAL AOPEND, FILE ALREADY OPEN'
                                    445  EMSG 716,'ASPIO: NO EOD IN LAST DATA BUFFER, AOPEND'
                                    446  EMSG 717,'ASPIO: TWO LOCATES WITHOUT A BLOCK'
                                    447  EMSG 718,'ASPIO: TWO BLOCKS WITHOUT A LOCATE'
                                    448  EMSG 719,'ASPIO: INPUT FILE, DEDICATED BA''S, BAD BA'
                                    449  EMSG 720,'ASPIO: BACKSPACE RECORD ON CLOSED FILE'
                                    450  EMSG 721,'ASPIO: BAD CC IN BUF DURING BACKR'
                                    451  EMSG 722,'IOERREC: END-OF-EXTENT ERROR ON ASP Q'
                                    452  EMSG 723,'IODATA: BAD LTH ON MOVEDATA CALL'
                                    453  EMSG 724,'JSSDR: RETURN TO JSSDR WITH OPEN ASP FILE'
                                    454  EMSG 725,'TRACKS: NO TRKS FOR RESTART'
                                    455  EMSG 799,'TRACKS: JBTCOUNT TOO LARGE'
                                    456  EMSG 750,'IOERREC: DCB ADDRESS IN IOB IS NOT VALID'
                                    457  EMSG 751,'IOERREC: READ FOR DATA BUFFER NO GOOD'
                                    458  EMSG 760,'IOERREC: UNCORRECTABLE READ ERROR ON ASP QUEUE'
                                    459  EMSG 800,'TRACKS: ERROR OBTAINING IOB, IOB AREA DESTROYED'
                                    460  EMSG 900,'RJPGET: RETURN +8 TO LINE MGR'
                                    461  EMSG 901,'RJPGET: RETURN +4 TO LINE MGR'
                                    462  EMSG END
                                                                                                               PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    464+******************************************************************
                                    465+*                                                                *
                                    466+*        Message lookup table.                                   *
                                    467+*                                                                *
                                    468+******************************************************************

000314                              470+MSGTBL   DS    0H                     MESSAGE LOOKUP TABLE
000314 000000010000054C             471+         DC    A(0001,TXT0001)   -    CODE, MESSAGE ADDRESS
00031C 000000020000057D             472+         DC    A(0002,TXT0002)   -    CODE, MESSAGE ADDRESS
000324 000000030000059F             473+         DC    A(0003,TXT0003)   -    CODE, MESSAGE ADDRESS
00032C 00000004000005D4             474+         DC    A(0004,TXT0004)   -    CODE, MESSAGE ADDRESS
000334 000000050000060D             475+         DC    A(0005,TXT0005)   -    CODE, MESSAGE ADDRESS
00033C 000000060000062F             476+         DC    A(0006,TXT0006)   -    CODE, MESSAGE ADDRESS
000344 0000000700000661             477+         DC    A(0007,TXT0007)   -    CODE, MESSAGE ADDRESS
00034C 000000080000066E             478+         DC    A(0008,TXT0008)   -    CODE, MESSAGE ADDRESS
000354 0000000A00000684             479+         DC    A(0010,TXT0010)   -    CODE, MESSAGE ADDRESS
00035C 0000000B000006B6             480+         DC    A(0011,TXT0011)   -    CODE, MESSAGE ADDRESS
000364 0000000C000006DB             481+         DC    A(0012,TXT0012)   -    CODE, MESSAGE ADDRESS
00036C 0000001300000704             482+         DC    A(0019,TXT0019)   -    CODE, MESSAGE ADDRESS
000374 000000140000072E             483+         DC    A(0020,TXT0020)   -    CODE, MESSAGE ADDRESS
00037C 0000001E00000759             484+         DC    A(0030,TXT0030)   -    CODE, MESSAGE ADDRESS
000384 0000002800000785             485+         DC    A(0040,TXT0040)   -    CODE, MESSAGE ADDRESS
00038C 00000029000007A1             486+         DC    A(0041,TXT0041)   -    CODE, MESSAGE ADDRESS
000394 0000002A000007CB             487+         DC    A(0042,TXT0042)   -    CODE, MESSAGE ADDRESS
00039C 0000002B000007F0             488+         DC    A(0043,TXT0043)   -    CODE, MESSAGE ADDRESS
0003A4 0000002C0000080E             489+         DC    A(0044,TXT0044)   -    CODE, MESSAGE ADDRESS
0003AC 0000002D0000082C             490+         DC    A(0045,TXT0045)   -    CODE, MESSAGE ADDRESS
0003B4 0000003200000851             491+         DC    A(0050,TXT0050)   -    CODE, MESSAGE ADDRESS
0003BC 0000003300000877             492+         DC    A(0051,TXT0051)   -    CODE, MESSAGE ADDRESS
0003C4 00000050000008A9             493+         DC    A(0080,TXT0080)   -    CODE, MESSAGE ADDRESS
0003CC 00000051000008D6             494+         DC    A(0081,TXT0081)   -    CODE, MESSAGE ADDRESS
0003D4 0000005A00000903             495+         DC    A(0090,TXT0090)   -    CODE, MESSAGE ADDRESS
0003DC 0000005B00000922             496+         DC    A(0091,TXT0091)   -    CODE, MESSAGE ADDRESS
0003E4 0000006400000944             497+         DC    A(0100,TXT0100)   -    CODE, MESSAGE ADDRESS
0003EC 000000650000096C             498+         DC    A(0101,TXT0101)   -    CODE, MESSAGE ADDRESS
0003F4 0000006600000990             499+         DC    A(0102,TXT0102)   -    CODE, MESSAGE ADDRESS
0003FC 00000067000009BA             500+         DC    A(0103,TXT0103)   -    CODE, MESSAGE ADDRESS
000404 00000068000009DD             501+         DC    A(0104,TXT0104)   -    CODE, MESSAGE ADDRESS
00040C 0000006900000A06             502+         DC    A(0105,TXT0105)   -    CODE, MESSAGE ADDRESS
000414 0000008200000A2D             503+         DC    A(0130,TXT0130)   -    CODE, MESSAGE ADDRESS
00041C 0000008300000A55             504+         DC    A(0131,TXT0131)   -    CODE, MESSAGE ADDRESS
000424 0000008400000A7D             505+         DC    A(0132,TXT0132)   -    CODE, MESSAGE ADDRESS
00042C 0000008500000A9E             506+         DC    A(0133,TXT0133)   -    CODE, MESSAGE ADDRESS
000434 0000008C00000ACE             507+         DC    A(0140,TXT0140)   -    CODE, MESSAGE ADDRESS
00043C 000002BC00000B00             508+         DC    A(0700,TXT0700)   -    CODE, MESSAGE ADDRESS
000444 000002BD00000B25             509+         DC    A(0701,TXT0701)   -    CODE, MESSAGE ADDRESS
00044C 000002BE00000B47             510+         DC    A(0702,TXT0702)   -    CODE, MESSAGE ADDRESS
000454 000002BF00000B77             511+         DC    A(0703,TXT0703)   -    CODE, MESSAGE ADDRESS
00045C 000002C000000BA2             512+         DC    A(0704,TXT0704)   -    CODE, MESSAGE ADDRESS
000464 000002C100000BCB             513+         DC    A(0705,TXT0705)   -    CODE, MESSAGE ADDRESS
00046C 000002C200000BF7             514+         DC    A(0706,TXT0706)   -    CODE, MESSAGE ADDRESS
000474 000002C300000C20             515+         DC    A(0707,TXT0707)   -    CODE, MESSAGE ADDRESS
00047C 000002C400000C49             516+         DC    A(0708,TXT0708)   -    CODE, MESSAGE ADDRESS
000484 000002C500000C77             517+         DC    A(0709,TXT0709)   -    CODE, MESSAGE ADDRESS
00048C 000002C600000C97             518+         DC    A(0710,TXT0710)   -    CODE, MESSAGE ADDRESS
                                                                                                               PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

000494 000002C700000CAE             519+         DC    A(0711,TXT0711)   -    CODE, MESSAGE ADDRESS
00049C 000002C800000CCC             520+         DC    A(0712,TXT0712)   -    CODE, MESSAGE ADDRESS
0004A4 000002C900000CF2             521+         DC    A(0713,TXT0713)   -    CODE, MESSAGE ADDRESS
0004AC 000002CA00000D0F             522+         DC    A(0714,TXT0714)   -    CODE, MESSAGE ADDRESS
0004B4 000002CB00000D32             523+         DC    A(0715,TXT0715)   -    CODE, MESSAGE ADDRESS
0004BC 000002CC00000D5B             524+         DC    A(0716,TXT0716)   -    CODE, MESSAGE ADDRESS
0004C4 000002CD00000D85             525+         DC    A(0717,TXT0717)   -    CODE, MESSAGE ADDRESS
0004CC 000002CE00000DA8             526+         DC    A(0718,TXT0718)   -    CODE, MESSAGE ADDRESS
0004D4 000002CF00000DCB             527+         DC    A(0719,TXT0719)   -    CODE, MESSAGE ADDRESS
0004DC 000002D000000DF5             528+         DC    A(0720,TXT0720)   -    CODE, MESSAGE ADDRESS
0004E4 000002D100000E1C             529+         DC    A(0721,TXT0721)   -    CODE, MESSAGE ADDRESS
0004EC 000002D200000E3E             530+         DC    A(0722,TXT0722)   -    CODE, MESSAGE ADDRESS
0004F4 000002D300000E64             531+         DC    A(0723,TXT0723)   -    CODE, MESSAGE ADDRESS
0004FC 000002D400000E85             532+         DC    A(0724,TXT0724)   -    CODE, MESSAGE ADDRESS
000504 000002D500000EAF             533+         DC    A(0725,TXT0725)   -    CODE, MESSAGE ADDRESS
00050C 0000031F00000ECB             534+         DC    A(0799,TXT0799)   -    CODE, MESSAGE ADDRESS
000514 000002EE00000EE6             535+         DC    A(0750,TXT0750)   -    CODE, MESSAGE ADDRESS
00051C 000002EF00000F0F             536+         DC    A(0751,TXT0751)   -    CODE, MESSAGE ADDRESS
000524 000002F800000F35             537+         DC    A(0760,TXT0760)   -    CODE, MESSAGE ADDRESS
00052C 0000032000000F64             538+         DC    A(0800,TXT0800)   -    CODE, MESSAGE ADDRESS
000534 0000038400000F94             539+         DC    A(0900,TXT0900)   -    CODE, MESSAGE ADDRESS
00053C 0000038500000FB2             540+         DC    A(0901,TXT0901)   -    CODE, MESSAGE ADDRESS
000544 FFFFFFFFFFFFFFFF             541+MSGTBLE  DC    X'FFFFFFFF,FFFFFFFF' - END OF MESSAGE LOOKUP TABLE
                                                                                                               PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    543+******************************************************************
                                    544+*                                                                *
                                    545+*        Message text.                                           *
                                    546+*                                                                *
                                    547+******************************************************************

00054C 2F                           549+TXT0001  DC    AL1(47)             TEXT LENGTH - 1
00054D C9D5C9E3C3C1D9C4             550+         DC    C'INITCARD: TERMINAL ERRORS IN INITIALIZATION DECK' TEXT
00057D 20                           551+TXT0002  DC    AL1(32)             TEXT LENGTH - 1
00057E D5D6E340C5D5D6E4             552+         DC    C'NOT ENOUGH CORE TO INITIALIZE ASP' TEXT
00059F 33                           553+TXT0003  DC    AL1(51)             TEXT LENGTH - 1
0005A0 C9D5C9E3C4C1E3C1             554+         DC    C'INITDATA: UNEXPECTED EOF READING INITIALIZATION DECK' X
0005A8 7A40E4D5C5E7D7C5                +               TEXT
0005D4 37                           555+TXT0004  DC    AL1(55)             TEXT LENGTH - 1
0005D5 C9D5C9E3C3D5E27A             556+         DC    C'INITCNS: TERMINAL ERRORS IN INITIALIZATION PARM ANALYSX
0005DD 40E3C5D9D4C9D5C1                +               IS'                 TEXT
00060D 20                           557+TXT0005  DC    AL1(32)             TEXT LENGTH - 1
00060E C9D5C9E3D9E3D5E2             558+         DC    C'INITRTNS: DUMP ON EXACT INISH MSG' TEXT
00062F 30                           559+TXT0006  DC    AL1(48)             TEXT LENGTH - 1
000630 C5D9D9D6D940D9C5             560+         DC    C'ERROR READING CHKPNT RECORD IN RESTART PROCESSING' TEXX
000638 C1C4C9D5C740C3C8                +               T
000661 0B                           561+TXT0007  DC    AL1(11)             TEXT LENGTH - 1
000662 E2E3C1C540C6C1C9             562+         DC    C'STAE FAILURE'     TEXT
00066E 14                           563+TXT0008  DC    AL1(20)             TEXT LENGTH - 1
00066F D6D7C5D9C1E3D6D9             564+         DC    C'OPERATOR ISSUED *DUMP' TEXT
000684 30                           565+TXT0010  DC    AL1(48)             TEXT LENGTH - 1
000685 D7D9E3E2C5E3E4D7             566+         DC    C'PRTSETUP OBTAINED PRINTER WITHOUT A PRTABLE ENTRY' TEXX
00068D 40D6C2E3C1C9D5C5                +               T
0006B6 23                           567+TXT0011  DC    AL1(35)             TEXT LENGTH - 1
0006B7 C9D5C9E3C3D2C9D6             568+         DC    C'INITCKIO: ASP SPOOL CHECKPOINT ERROR' TEXT
0006DB 27                           569+TXT0012  DC    AL1(39)             TEXT LENGTH - 1
0006DC C5D9D9D6D940C4E4             570+         DC    C'ERROR DURING SPOOL CHECKPOINT VALIDATION' TEXT
000704 28                           571+TXT0019  DC    AL1(40)             TEXT LENGTH - 1
000705 C1C3C4E27A40C3D6             572+         DC    C'ACDS: COULD NOT FIND ACDS-CREATED MSVDATA' TEXT
00072E 29                           573+TXT0020  DC    AL1(41)             TEXT LENGTH - 1
00072F C9D1D7C5D5C47A40             574+         DC    C'IJPEND: COULD NOT FIND IJP CREATED MSVDATA' TEXT
000759 2A                           575+TXT0030  DC    AL1(42)             TEXT LENGTH - 1
00075A D9C5E2D4C7D4E37A             576+         DC    C'RESMGMT: AN INVALID RESOURCE NAME WAS GIVEN' TEXT
000785 1A                           577+TXT0040  DC    AL1(26)             TEXT LENGTH - 1
000786 D1D6C2C3D6D5E37A             578+         DC    C'JOBCONT: ILLEGAL JCT ACCESS' TEXT
0007A1 28                           579+TXT0041  DC    AL1(40)             TEXT LENGTH - 1
0007A2 D1D6C2C3D6D5E3D3             580+         DC    C'JOBCONTL: INVALID PRIORITY FOR JCT ACCESS' TEXT
0007CB 23                           581+TXT0042  DC    AL1(35)             TEXT LENGTH - 1
0007CC D1D6C2C3D6D5E3D3             582+         DC    C'JOBCONTL: EXCESSIVE LENGTH FOR TAADD' TEXT
0007F0 1C                           583+TXT0043  DC    AL1(28)             TEXT LENGTH - 1
0007F1 D1D6C2C3D6D5E3D3             584+         DC    C'JOBCONTL: TAPUT WITHOUT TAGET' TEXT
00080E 1C                           585+TXT0044  DC    AL1(28)             TEXT LENGTH - 1
00080F D1D6C2C3D6D5E3D3             586+         DC    C'JOBCONTL: TADEL WITHOUT TAGET' TEXT
00082C 23                           587+TXT0045  DC    AL1(35)             TEXT LENGTH - 1
00082D D1D6C2C3D6D5E3D3             588+         DC    C'JOBCONTL: RESQUEUE MANAGEMENT ERRORS' TEXT
000851 24                           589+TXT0050  DC    AL1(36)             TEXT LENGTH - 1
000852 C1E2D7C3D6D5E3D3             590+         DC    C'ASPCONTL: ATIME WITHOUT ENTER ADDRESS' TEXT
000877 30                           591+TXT0051  DC    AL1(48)             TEXT LENGTH - 1
000878 D1E2E2C4D97A40D9             592+         DC    C'JSSDR: RETURN TO JSSDR WITH SAVEAREAS OUTSTANDING' TEXX
000880 C5E3E4D9D540E3D6                +               T
                                                                                                               PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

0008A9 2B                           593+TXT0080  DC    AL1(43)             TEXT LENGTH - 1
0008AA C1D3C4C1C4C5D37A             594+         DC    C'ALDADEL: CANNOT LOAD MODULE - DOES NOT EXIST' TEXT
0008D6 2B                           595+TXT0081  DC    AL1(43)             TEXT LENGTH - 1
0008D7 C1D3C4C1C4C5D37A             596+         DC    C'ALDADEL: CANNOT LOAD MODULE - PERM I/O ERROR' TEXT
000903 1D                           597+TXT0090  DC    AL1(29)             TEXT LENGTH - 1
000904 D3D6C7D6E4E37A40             598+         DC    C'LOGOUT: CANNOT FIND SE IN JDAB' TEXT
000922 20                           599+TXT0091  DC    AL1(32)             TEXT LENGTH - 1
000923 D3D6C7D6E4E37A40             600+         DC    C'LOGOUT: FUNCTION IS NOT LOGGED IN' TEXT
000944 26                           601+TXT0100  DC    AL1(38)             TEXT LENGTH - 1
000945 C1C2C5D5C4D4D6D5             602+         DC    C'ABENDMON: RECURSION IN THE SPIE ROUTINE' TEXT
00096C 22                           603+TXT0101  DC    AL1(34)             TEXT LENGTH - 1
00096D C1C2C5D5C4D4D6D5             604+         DC    C'ABENDMON: UNRECOVERABLE DSP FAILURE' TEXT
000990 28                           605+TXT0102  DC    AL1(40)             TEXT LENGTH - 1
000991 C1C2C5D5C4D4D6D5             606+         DC    C'ABENDMON: PRG CHK BTWN AWAIT AND FCT SCAN' TEXT
0009BA 21                           607+TXT0103  DC    AL1(33)             TEXT LENGTH - 1
0009BB C1C2C5D5C4D4D6D5             608+         DC    C'ABENDMON: STAE EXIT TOOK GOOD DUMP' TEXT
0009DD 27                           609+TXT0104  DC    AL1(39)             TEXT LENGTH - 1
0009DE D9C9C3D6D5E3D37A             610+         DC    C'RICONTL: COULD NOT READ OS CONTROL BLOCK' TEXT
000A06 25                           611+TXT0105  DC    AL1(37)             TEXT LENGTH - 1
000A07 C4D1C3E4D7C4C1E3             612+         DC    C'DJCUPDAT: NCB FOR ENDING JOB NOT FOUND' TEXT
000A2D 26                           613+TXT0130  DC    AL1(38)             TEXT LENGTH - 1
000A2E C3D6D5E2D6D3C5E2             614+         DC    C'CONSOLES: ERROR IN CONSOLE STATUS TABLE' TEXT
000A55 26                           615+TXT0131  DC    AL1(38)             TEXT LENGTH - 1
000A56 C3D6D5E2C9D5D7E3             616+         DC    C'CONSINPT: DSP MESSAGE APPENDAGE ABENDED' TEXT
000A7D 1F                           617+TXT0132  DC    AL1(31)             TEXT LENGTH - 1
000A7E C3D6D5E2D8D4C7D9             618+         DC    C'CONSQMGR: BAD MESSAGE PARAMETERS' TEXT
000A9E 2E                           619+TXT0133  DC    AL1(46)             TEXT LENGTH - 1
000A9F C3D6D5E2C9D5D7E3             620+         DC    C'CONSINPT: DSP TERMINATED VIA OPERATOR FAIL CMND' TEXT
000ACE 30                           621+TXT0140  DC    AL1(48)             TEXT LENGTH - 1
000ACF C1E2C1E5C5D9E3D5             622+         DC    C'ASAVERTN: BUSY RETURN FROM AGETMAIN FOR SAVE AREA' TEXX
000AD7 7A40C2E4E2E840D9                +               T
000B00 23                           623+TXT0700  DC    AL1(35)             TEXT LENGTH - 1
000B01 C1E2D7C9D67A40C1             624+         DC    C'ASPIO: AOPEN DONE, FDB ADDRESS IN FD' TEXT
000B25 20                           625+TXT0701  DC    AL1(32)             TEXT LENGTH - 1
000B26 C1E2D7C9D67A40D4             626+         DC    C'ASPIO: MULTIPLE FILE, NO FD ENTRY' TEXT
000B47 2E                           627+TXT0702  DC    AL1(46)             TEXT LENGTH - 1
000B48 C1E2D7C9D67A40D9             628+         DC    C'ASPIO: READING BEYOND DATA, MULTIPLE INPUT FILE' TEXT
000B77 29                           629+TXT0703  DC    AL1(41)             TEXT LENGTH - 1
000B78 C1E2D7C9D67A40D5             630+         DC    C'ASPIO: NO BUFFER ADDRESS IN FDB FOR AWRITE' TEXT
000BA2 27                           631+TXT0704  DC    AL1(39)             TEXT LENGTH - 1
000BA3 C1E2D7C9D67A40C2             632+         DC    C'ASPIO: BAD TRACK ADDRESS TO I/O ROUTINES' TEXT
000BCB 2A                           633+TXT0705  DC    AL1(42)             TEXT LENGTH - 1
000BCC C1E2D7C9D67A40C2             634+         DC    C'ASPIO: BAD BUFFER ADDRESS TO PUTBUF ROUTINE' TEXT
000BF7 27                           635+TXT0706  DC    AL1(39)             TEXT LENGTH - 1
000BF8 C1E2D7C9D67A40C1             636+         DC    C'ASPIO: ACLOSE WITHOUT FD ENTRY, NO AOPEN' TEXT
000C20 29                           637+TXT0707  DC    AL1(41)             TEXT LENGTH - 1
000C21 C1E2D7C9D67A40C4             638+         DC    C'ASPIO: DEDICATED BA''S, NO BA''S AVAILABLE' TEXT
000C49 2C                           639+TXT0708  DC    AL1(44)             TEXT LENGTH - 1
000C4A C9D6D5E4C37A40D5             640+         DC    C'IONUC: NO EOD IN BUFFER ON ACLOSE FOLL AOPEND' TEXT
000C77 1E                           641+TXT0709  DC    AL1(30)             TEXT LENGTH - 1
000C78 C1E2D7C9D67A40C9             642+         DC    C'ASPIO: INSUFFICIENT DED BUFFERS' TEXT
000C97 15                           643+TXT0710  DC    AL1(21)             TEXT LENGTH - 1
000C98 C1E2D7C9D67A40C4             644+         DC    C'ASPIO: DUPLICATE TRACK' TEXT
000CAE 1C                           645+TXT0711  DC    AL1(28)             TEXT LENGTH - 1
000CAF C1E2D7C9D67A40C1             646+         DC    C'ASPIO: ALOCATE ON CLOSED FILE' TEXT
                                                                                                               PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

000CCC 24                           647+TXT0712  DC    AL1(36)             TEXT LENGTH - 1
000CCD C1E2D7C9D67A40C2             648+         DC    C'ASPIO: BAD COUNT ON ALOCATE OR ABLOCK' TEXT
000CF2 1B                           649+TXT0713  DC    AL1(27)             TEXT LENGTH - 1
000CF3 C1E2D7C9D67A40C9             650+         DC    C'ASPIO: ILLEGAL FDB TO APURGE' TEXT
000D0F 21                           651+TXT0714  DC    AL1(33)             TEXT LENGTH - 1
000D10 C1E2D7C9D67A40E3             652+         DC    C'ASPIO: TRACK TO APURGE, NOT IN STT' TEXT
000D32 27                           653+TXT0715  DC    AL1(39)             TEXT LENGTH - 1
000D33 C1E2D7C9D67A40C9             654+         DC    C'ASPIO: ILLEGAL AOPEND, FILE ALREADY OPEN' TEXT
000D5B 28                           655+TXT0716  DC    AL1(40)             TEXT LENGTH - 1
000D5C C1E2D7C9D67A40D5             656+         DC    C'ASPIO: NO EOD IN LAST DATA BUFFER, AOPEND' TEXT
000D85 21                           657+TXT0717  DC    AL1(33)             TEXT LENGTH - 1
000D86 C1E2D7C9D67A40E3             658+         DC    C'ASPIO: TWO LOCATES WITHOUT A BLOCK' TEXT
000DA8 21                           659+TXT0718  DC    AL1(33)             TEXT LENGTH - 1
000DA9 C1E2D7C9D67A40E3             660+         DC    C'ASPIO: TWO BLOCKS WITHOUT A LOCATE' TEXT
000DCB 29                           661+TXT0719  DC    AL1(41)             TEXT LENGTH - 1
000DCC C1E2D7C9D67A40C9             662+         DC    C'ASPIO: INPUT FILE, DEDICATED BA''S, BAD BA' TEXT
000DF5 25                           663+TXT0720  DC    AL1(37)             TEXT LENGTH - 1
000DF6 C1E2D7C9D67A40C2             664+         DC    C'ASPIO: BACKSPACE RECORD ON CLOSED FILE' TEXT
000E1C 20                           665+TXT0721  DC    AL1(32)             TEXT LENGTH - 1
000E1D C1E2D7C9D67A40C2             666+         DC    C'ASPIO: BAD CC IN BUF DURING BACKR' TEXT
000E3E 24                           667+TXT0722  DC    AL1(36)             TEXT LENGTH - 1
000E3F C9D6C5D9D9C5C37A             668+         DC    C'IOERREC: END-OF-EXTENT ERROR ON ASP Q' TEXT
000E64 1F                           669+TXT0723  DC    AL1(31)             TEXT LENGTH - 1
000E65 C9D6C4C1E3C17A40             670+         DC    C'IODATA: BAD LTH ON MOVEDATA CALL' TEXT
000E85 28                           671+TXT0724  DC    AL1(40)             TEXT LENGTH - 1
000E86 D1E2E2C4D97A40D9             672+         DC    C'JSSDR: RETURN TO JSSDR WITH OPEN ASP FILE' TEXT
000EAF 1A                           673+TXT0725  DC    AL1(26)             TEXT LENGTH - 1
000EB0 E3D9C1C3D2E27A40             674+         DC    C'TRACKS: NO TRKS FOR RESTART' TEXT
000ECB 19                           675+TXT0799  DC    AL1(25)             TEXT LENGTH - 1
000ECC E3D9C1C3D2E27A40             676+         DC    C'TRACKS: JBTCOUNT TOO LARGE' TEXT
000EE6 27                           677+TXT0750  DC    AL1(39)             TEXT LENGTH - 1
000EE7 C9D6C5D9D9C5C37A             678+         DC    C'IOERREC: DCB ADDRESS IN IOB IS NOT VALID' TEXT
000F0F 24                           679+TXT0751  DC    AL1(36)             TEXT LENGTH - 1
000F10 C9D6C5D9D9C5C37A             680+         DC    C'IOERREC: READ FOR DATA BUFFER NO GOOD' TEXT
000F35 2D                           681+TXT0760  DC    AL1(45)             TEXT LENGTH - 1
000F36 C9D6C5D9D9C5C37A             682+         DC    C'IOERREC: UNCORRECTABLE READ ERROR ON ASP QUEUE' TEXT
000F64 2E                           683+TXT0800  DC    AL1(46)             TEXT LENGTH - 1
000F65 E3D9C1C3D2E27A40             684+         DC    C'TRACKS: ERROR OBTAINING IOB, IOB AREA DESTROYED' TEXT
000F94 1C                           685+TXT0900  DC    AL1(28)             TEXT LENGTH - 1
000F95 D9D1D7C7C5E37A40             686+         DC    C'RJPGET: RETURN +8 TO LINE MGR' TEXT
000FB2 1C                           687+TXT0901  DC    AL1(28)             TEXT LENGTH - 1
000FB3 D9D1D7C7C5E37A40             688+         DC    C'RJPGET: RETURN +4 TO LINE MGR' TEXT
                                                                                                               PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                                    690          ASPDUMPS ,
                                    691+*********************************************************************** 00000400
                                    692+*              'USER' COMPLETION CODES USED BY ASP IN OS 'ABEND' CALLS* 00000500
                                    693+*********************************************************************** 00000600
                            00000   694+ASPDM000 EQU   0 -   INITIOCD- ESSENTIAL ASP DATA SET CANNOT BE OPENED  00000700
                            00001   695+ASPDM001 EQU   1 -   INITCARD- TERMINAL ERRORS IN INIT DECK             00000800
                            00002   696+ASPDM002 EQU   2 -   NOT ENOUGH CORE TO INITIALIZE ASP                  00000900
                            00003   697+ASPDM003 EQU   3 -   INITDATA- UNEXPECTED EOF READING INIT DECK         00001000
                            00004   698+ASPDM004 EQU   4 -   INITCNS- TERMINAL ERRORS IN INIT PARAM ANALYSIS    00001100
                            00005   699+ASPDM005 EQU   5 -   INITRTNS- DUMP ON EXACT INISH MSG                  00001200
                            00006   700+ASPDM006 EQU   6 -   ERROR READING CHKPNT RECORD IN RESTART PROCESSING  00001300
                            00007   701+ASPDM007 EQU   7 -   STAE FAILURE, STAE RETURN CODE IN REG 7            00001400
                            00008   702+ASPDM008 EQU   8 -   OPERATOR INITIATED VIA *DUMP                       00001500
                            00009   703+ASPDM009 EQU   9 -   OPERATOR INITIATED VIA *RETURN                     00001600
                            0000A   704+ASPDM010 EQU   10 -  PRTSETUP OBTAINED PRINTER WITHOUT A PRTABLE ENTRY  00001700
                            0000B   705+ASPDM011 EQU   11 -  INITCKIO- ASP SPOOL CHECKPOINT ERROR      @AL00193 00001710
                            0000C   706+ASPDM012 EQU   12 -  ERROR DURING SPOOL CHECKPOINT VALIDATION  @AL00193 00001720
                            00013   707+ASPDM019 EQU   19 -  ACDS- COULD NOT FIND ACDS-CREATED MSVDATA          00001800
                            00014   708+ASPDM020 EQU   20 -  IJPEND- COULD NOT FIND IJP CREATED MSVDATA         00001900
                            0001E   709+ASPDM030 EQU   30 -  RESMGMT- AN INVALID RESOURCE NAME WAS GIVEN        00002000
                            00028   710+ASPDM040 EQU   40 -  JOBCONTL- ILLEGAL JCT ACCESS                       00002100
                            00029   711+ASPDM041 EQU   41 -  JOBCONTL- INVALID PRIORITY FOR JCT ACCESS          00002200
                            0002A   712+ASPDM042 EQU   42 -  JOBCONTL- EXCESSIVE LENGTH FOR TAADD               00002300
                            0002B   713+ASPDM043 EQU   43 -  JOBCONTL- TAPUT WITHOUT TAGET                      00002400
                            0002C   714+ASPDM044 EQU   44 -  JOBCONTL- TADEL WITHOUT TAGET                      00002500
                            0002D   715+ASPDM045 EQU   45 -  JOBCONTL- RESQUEUE MANAGEMENT ERRORS      @AM00275 00002510
                            00032   716+ASPDM050 EQU   50 -  ASPCONTL- ATIME WITHOUT ENTER ADDRESS              00002600
                            00033   717+ASPDM051 EQU   51 -  JSSDR- RETURN TO JSSDR WITH SAVEAREAS OUTSTANDING  00002700
                            00050   718+ASPDM080 EQU   80 -  ALDADEL- CANNOT LOAD MODULE - DOES NOT EXIST       00002800
                            00051   719+ASPDM081 EQU   81 -  ALDADEL- CANNOT LOAD MODULE - PERM I/O ERROR       00002900
                            0005A   720+ASPDM090 EQU   90 -  LOGOUT- CANNOT FIND SE IN JDAB                     00003000
                            0005B   721+ASPDM091 EQU   91 -  LOGOUT- FUNCTION IS NOT LOGGED IN                  00003100
                            00064   722+ASPDM100 EQU   100 - ABENDMON- RECURSION IN THE SPIE ROUTINE            00003200
                            00065   723+ASPDM101 EQU   101 - ABENDMON- UNRECOVERABLE DSP FAILURE                00003300
                            00066   724+ASPDM102 EQU   102 - ABENDMON- PRG CHK BTWN AWAIT & FCT SCAN            00003400
                            00067   725+ASPDM103 EQU   103 - ABENDMON- STAE EXIT TOOK GOOD DUMP                 00003500
                            00068   726+ASPDM104 EQU   104 - RICONTL- COULDN'T READ OS CONTL BLOCK              00003600
                            00069   727+ASPDM105 EQU   105 - DJCUPDAT- NCB FOR ENDING JOB NOT FOUND             00003700
                            00082   728+ASPDM130 EQU   130 - CONSOLES- ERROR IN CONSOLE STATUS TABLE            00003800
                            00083   729+ASPDM131 EQU   131 - CONSINPT- DSP MESSAGE APPENDAGE ABENDED            00003900
                            00084   730+ASPDM132 EQU   132 - CONSQMGR- BAD MESSAGE PARAMETERS                   00004000
                            00085   731+ASPDM133 EQU   133 - CONSINPT- DSP TERMINATED VIA OPERATOR FAIL CMND    00004100
                            0008C   732+ASPDM140 EQU   140 - ASAVERTN- BUSY RETURN FROM AGETMAIN FOR SAVE AREA  00004200
                            002BC   733+ASPDM700 EQU   700 - ASPIO- AOPEN DONE, FDB ADDRESS IN FD               00004300
                            002BD   734+ASPDM701 EQU   701 - ASPIO- MULTIPLE FILE, NO FD ENTRY                  00004400
                            002BE   735+ASPDM702 EQU   702 - ASPIO- READING BEYOND DATA, MULTIPLE INPUT FILE    00004500
                            002BF   736+ASPDM703 EQU   703 - ASPIO- NO BUFFER ADDRESS IN FDB FOR AWRITE         00004600
                            002C0   737+ASPDM704 EQU   704 - ASPIO- BAD TRACK ADDRESS TO I/O ROUTINES           00004700
                            002C1   738+ASPDM705 EQU   705 - ASPIO- BAD BUFFER ADDRESS TO PUTBUF ROUTINE        00004800
                            002C2   739+ASPDM706 EQU   706 - ASPIO- ACLOSE WITHOUT FD ENTRY, NO AOPEN           00004900
                            002C3   740+ASPDM707 EQU   707 - ASPIO- DEDICATED BA'S, NO BA'S AVAILABLE           00005000
                            002C4   741+ASPDM708 EQU   708 - IONUC- NO EOD IN BUFFER ON ACLOSE FOLL AOPEND      00005100
                            002C5   742+ASPDM709 EQU   709 - ASPIO- INSUFFICIENT DED BUFFERS           @AM00155 00005150
                            002C6   743+ASPDM710 EQU   710 - ASPIO- DUPLICATE TRACK                             00005200
                            002C7   744+ASPDM711 EQU   711 - ASPIO- ALOCATE ON CLOSED FILE                      00005300
                                                                                                               PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 19.52 08/28/78

                            002C8   745+ASPDM712 EQU   712 - ASPIO- BAD COUNT ON ALOCATE OR ABLOCK              00005400
                            002C9   746+ASPDM713 EQU   713 - ASPIO- ILLEGAL FDB TO APURGE                       00005500
                            002CA   747+ASPDM714 EQU   714 - ASPIO- TRACK TO APURGE, NOT IN STT                 00005600
                            002CB   748+ASPDM715 EQU   715 - ASPIO- ILLEGAL AOPEND, FILE ALREADY OPEN           00005700
                            002CC   749+ASPDM716 EQU   716 - ASPIO- NO EOD IN LAST DATA BUFFER, AOPEND          00005800
                            002CD   750+ASPDM717 EQU   717 - ASPIO- TWO LOCATES WITHOUT A BLOCK                 00005900
                            002CE   751+ASPDM718 EQU   718 - ASPIO- TWO BLOCKS WITHOUT A LOCATE                 00006000
                            002CF   752+ASPDM719 EQU   719 - ASPIO- INPUT FILE, DEDICATED BA'S, BAD BA          00006100
                            002D0   753+ASPDM720 EQU   720 - ASPIO- BACKSPACE RECORD ON CLOSED FILE             00006200
                            002D1   754+ASPDM721 EQU   721 - ASPIO- BAD CC IN BUF DURING BACKR         @AM00162 00006250
                            002D2   755+ASPDM722 EQU   722 - IOERREC- END-OF-EXTENT ERROR ON ASP Q     @AM00270 00006251
                            002D3   756+ASPDM723 EQU   723 - IODATA- BAD LTH ON MOVEDATA CALL          @AA16701 00006252
                            002D4   757+ASPDM724 EQU   724 - JSSDR - RETURN TO JSSDR WITH OPEN ASP FILE@AA26684 00006253
                            002D5   758+ASPDM725 EQU   725    TRACKS   NO TRKS FOR RESTART             @AA30287 00006254
                            0031F   759+ASPDM799 EQU   799 -TRACKS- JBTCOUNT TOO LARGE                 @AA26715 00006255
                            002EE   760+ASPDM750 EQU   750 - IOERREC- DCB ADDRESS IN IOB IS NOT VALID           00006300
                            002EF   761+ASPDM751 EQU   751 - IOERREC- READ FOR DATA BUFFER NO GOOD              00006400
                            002F8   762+ASPDM760 EQU   760 - IOERREC- UNCORRECTABLE READ ERROR ON ASP QUEUE     00006500
                            00320   763+ASPDM800 EQU   800 - TRACKS- ERROR OBTAINING IOB, IOB AREA DESTROYED    00006600
                            00384   764+ASPDM900 EQU   900 - RJPGET- RETURN +8 TO LINE MGR             @AM00194 00006610
                            00385   765+ASPDM901 EQU   901 - RJPGET- RETURN +4 TO LINE MGR             @AM00194 00006620


                                    767          END   ,
                                                  RELOCATION DICTIONARY                                        PAGE   18


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 19.52 08/28/78

 0001     0001      0C     000030
 0001     0001      0C     000038
 0001     0001      0C     000318
 0001     0001      0C     000320
 0001     0001      0C     000328
 0001     0001      0C     000330
 0001     0001      0C     000338
 0001     0001      0C     000340
 0001     0001      0C     000348
 0001     0001      0C     000350
 0001     0001      0C     000358
 0001     0001      0C     000360
 0001     0001      0C     000368
 0001     0001      0C     000370
 0001     0001      0C     000378
 0001     0001      0C     000380
 0001     0001      0C     000388
 0001     0001      0C     000390
 0001     0001      0C     000398
 0001     0001      0C     0003A0
 0001     0001      0C     0003A8
 0001     0001      0C     0003B0
 0001     0001      0C     0003B8
 0001     0001      0C     0003C0
 0001     0001      0C     0003C8
 0001     0001      0C     0003D0
 0001     0001      0C     0003D8
 0001     0001      0C     0003E0
 0001     0001      0C     0003E8
 0001     0001      0C     0003F0
 0001     0001      0C     0003F8
 0001     0001      0C     000400
 0001     0001      0C     000408
 0001     0001      0C     000410
 0001     0001      0C     000418
 0001     0001      0C     000420
 0001     0001      0C     000428
 0001     0001      0C     000430
 0001     0001      0C     000438
 0001     0001      0C     000440
 0001     0001      0C     000448
 0001     0001      0C     000450
 0001     0001      0C     000458
 0001     0001      0C     000460
 0001     0001      0C     000468
 0001     0001      0C     000470
 0001     0001      0C     000478
 0001     0001      0C     000480
 0001     0001      0C     000488
 0001     0001      0C     000490
 0001     0001      0C     000498
 0001     0001      0C     0004A0
 0001     0001      0C     0004A8
 0001     0001      0C     0004B0
 0001     0001      0C     0004B8
                                                  RELOCATION DICTIONARY                                        PAGE   19


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 19.52 08/28/78

 0001     0001      0C     0004C0
 0001     0001      0C     0004C8
 0001     0001      0C     0004D0
 0001     0001      0C     0004D8
 0001     0001      0C     0004E0
 0001     0001      0C     0004E8
 0001     0001      0C     0004F0
 0001     0001      0C     0004F8
 0001     0001      0C     000500
 0001     0001      0C     000508
 0001     0001      0C     000510
 0001     0001      0C     000518
 0001     0001      0C     000520
 0001     0001      0C     000528
 0001     0001      0C     000530
 0001     0001      0C     000538
 0001     0001      0C     000540

                                                  CROSS-REFERENCE                                              PAGE   20


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 19.52 08/28/78

ABND     00002 0000011C 00248  00218
ABNNODMP 00002 000001C6 00341  00328
ASPDM009 00001 00000009 00703  00216
ASPDM010 00001 0000000A 00704  00326
ASPECB   00004 00000228 00355  00152 00152 00160 00203 00211 00214 00249 00324
ASPINTK  00001 00000000 00115  00143
ASPTCB   00004 0000022C 00356  00173 00236
CODES    00004 000002FB 00382  00311
C2FB     00004 00000224 00354  00342
C2FBDUMP 00004 00000220 00353  00193 00333
DONE     00002 000001B0 00318  00291 00315
DWORK    00008 000001D0 00350  00262 00263 00264 00270 00271 00272 00272 00273
EXIT     00002 000000D6 00224  00213
HEXTRAN  00016 00000303 00384  00274
IHB0002  00004 00000030 00156  00154
IHB0003A 00002 000000A2 00189  00183
IHB0008A 00002 00000104 00233  00227
MOVETXT  00006 000001AA 00317  00305
MSG      00004 0000026C 00374  00306 00309 00310 00313 00381
MSGABEND 00004 00000238 00362  00280 00368 00370
MSGCODES 00003 00000259 00369  00273 00274
MSGCODEU 00004 00000262 00371  00264
MSGFOUND 00002 0000017A 00301  00293
MSGLOOP  00002 00000160 00289  00295
MSGTBL   00002 00000314 00470  00283
OUT      00120 00000277 00381  00317
RSN3000  00002 00000234 00360  00191
R0       00001 00000000 00116  00192 00211 00212 00212 00214 00215 00217 00249 00255 00256 00270 00306 00307 00324 00325
                               00327
R1       00001 00000001 00117  00173 00193 00257 00262 00265 00333 00342
R12      00001 0000000C 00128  00142 00143
R13      00001 0000000D 00129  00144 00145 00146 00147 00238
R14      00001 0000000E 00130  00303 00303 00304 00305 00307 00308 00308 00309 00310 00310 00311
R15      00001 0000000F 00131  00142 00145 00147 00179 00191 00216 00217 00239 00239 00302 00304 00317 00326 00327
R2       00001 00000002 00118  00283 00290 00292 00294 00294 00302
R3       00001 00000003 00119  00265 00292 00325
R7       00001 00000007 00123  00179 00192
SAVEAREA 00004 000001D8 00351  00144 00146 00238
TXT0001  00001 0000054C 00549  00471
TXT0002  00001 0000057D 00551  00472
TXT0003  00001 0000059F 00553  00473
TXT0004  00001 000005D4 00555  00474
TXT0005  00001 0000060D 00557  00475
TXT0006  00001 0000062F 00559  00476
TXT0007  00001 00000661 00561  00477
TXT0008  00001 0000066E 00563  00478
TXT0010  00001 00000684 00565  00479
TXT0011  00001 000006B6 00567  00480
TXT0012  00001 000006DB 00569  00481
TXT0019  00001 00000704 00571  00482
TXT0020  00001 0000072E 00573  00483
TXT0030  00001 00000759 00575  00484
TXT0040  00001 00000785 00577  00485
TXT0041  00001 000007A1 00579  00486
TXT0042  00001 000007CB 00581  00487
                                                  CROSS-REFERENCE                                              PAGE   21


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 19.52 08/28/78

TXT0043  00001 000007F0 00583  00488
TXT0044  00001 0000080E 00585  00489
TXT0045  00001 0000082C 00587  00490
TXT0050  00001 00000851 00589  00491
TXT0051  00001 00000877 00591  00492
TXT0080  00001 000008A9 00593  00493
TXT0081  00001 000008D6 00595  00494
TXT0090  00001 00000903 00597  00495
TXT0091  00001 00000922 00599  00496
TXT0100  00001 00000944 00601  00497
TXT0101  00001 0000096C 00603  00498
TXT0102  00001 00000990 00605  00499
TXT0103  00001 000009BA 00607  00500
TXT0104  00001 000009DD 00609  00501
TXT0105  00001 00000A06 00611  00502
TXT0130  00001 00000A2D 00613  00503
TXT0131  00001 00000A55 00615  00504
TXT0132  00001 00000A7D 00617  00505
TXT0133  00001 00000A9E 00619  00506
TXT0140  00001 00000ACE 00621  00507
TXT0700  00001 00000B00 00623  00508
TXT0701  00001 00000B25 00625  00509
TXT0702  00001 00000B47 00627  00510
TXT0703  00001 00000B77 00629  00511
TXT0704  00001 00000BA2 00631  00512
TXT0705  00001 00000BCB 00633  00513
TXT0706  00001 00000BF7 00635  00514
TXT0707  00001 00000C20 00637  00515
TXT0708  00001 00000C49 00639  00516
TXT0709  00001 00000C77 00641  00517
TXT0710  00001 00000C97 00643  00518
TXT0711  00001 00000CAE 00645  00519
TXT0712  00001 00000CCC 00647  00520
TXT0713  00001 00000CF2 00649  00521
TXT0714  00001 00000D0F 00651  00522
TXT0715  00001 00000D32 00653  00523
TXT0716  00001 00000D5B 00655  00524
TXT0717  00001 00000D85 00657  00525
TXT0718  00001 00000DA8 00659  00526
TXT0719  00001 00000DCB 00661  00527
TXT0720  00001 00000DF5 00663  00528
TXT0721  00001 00000E1C 00665  00529
TXT0722  00001 00000E3E 00667  00530
TXT0723  00001 00000E64 00669  00531
TXT0724  00001 00000E85 00671  00532
TXT0725  00001 00000EAF 00673  00533
TXT0750  00001 00000EE6 00677  00535
TXT0751  00001 00000F0F 00679  00536
TXT0760  00001 00000F35 00681  00537
TXT0799  00001 00000ECB 00675  00534
TXT0800  00001 00000F64 00683  00538
TXT0900  00001 00000F94 00685  00539
TXT0901  00001 00000FB2 00687  00540
USERMASK 00004 00000230 00358  00215
WAIT     00002 000000B0 00201  00180
                                                  CROSS-REFERENCE                                              PAGE   22


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 19.52 08/28/78

XFF      00004 000002FF 00383  00290
                                                  ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE   23


                                                                                                 ASM 0201 19.52 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, OBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER =13030/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT        397
TOTAL RECORDS READ FROM SYSTEM LIBRARY     1929
TOTAL RECORDS PUNCHED                        81
TOTAL RECORDS PRINTED                       945


IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   ASP.MAC320                                   KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.G26INTK.SYSUT1        DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G26INTK.SYSUT2        DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.RV000.G26INTK.SYSUT3        DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.SV000.G26INTK.R0000454      SYSOUT
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T193835.RV000.G26INTK.OBJSET        PASSED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G26INTK.S0000455      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G26INTK.S0000455      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /ASM     / START 78240.1952
IEF374I STEP /ASM     / STOP  78240.1952 CPU   0MIN 01.10SEC MAIN 768K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:52:34.09   ALLOC START    19:52:34.10   MAIN REGION ----- 768K                          *
*   STEP NAME ASM        STEP END TIME  19:52:35.38   PGM START TIME 19:52:34.20   MAIN STORAGE ---- 768K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:01.29   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:01.10   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0150 ----------- 52       0151 ------------ 2       0353 ---------- 433       0158 ----------- 24       0353 ----------- 10    *
*   0159 ---------- 945       0353 ----------- 81       0130 ---------- 399                                                        *
************************************************************************************************************************************

//LKED   EXEC PGM=IEWL,PARM=(XREF,LET,LIST,NCAL),
//            REGION=128K,COND=(4,LT,ASM)
//SYSLMOD  DD UNIT=3330,VOL=SER=ASPSUP,
//         DISP=SHR,DSN=ASP.VERSON32
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(50,20))
//SYSPRINT DD SYSOUT=A
//SYSLIN   DD DSN=&&OBJSET,DISP=(OLD,DELETE)
//         DD *
//
IEF236I ALLOC. FOR G26INTK  LKED
IEF237I 151   ALLOCATED TO SYSLMOD
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 353   ALLOCATED TO SYSLIN
IEF237I 130   ALLOCATED TO


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED XREF,LET,LIST,NCAL
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     NAME ASPINTK(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  ASPINTK       00     FD0



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION


 ENTRY ADDRESS       00
 TOTAL LENGTH       FD0

****ASPINTK   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.VERSON32                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T193835.RV000.G26INTK.SYSUT1        DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T193835.SV000.G26INTK.R0000456      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G26INTK.OBJSET        DELETED
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS78240.T193835.RV000.G26INTK.S0000457      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G26INTK.S0000457      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /LKED    / START 78240.1952
IEF374I STEP /LKED    / STOP  78240.1952 CPU   0MIN 00.07SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:52:35.40   ALLOC START    19:52:35.42   MAIN REGION ----- 256K                          *
*   STEP NAME LKED       STEP END TIME  19:52:35.60   PGM START TIME 19:52:35.49   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.20   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 8       0158 ------------ 0       0353 ----------- 19       0353 ----------- 82       0130 ------------ 2    *
************************************************************************************************************************************

IEF375I  JOB /G26INTK / START 78240.1952
IEF376I  JOB /G26INTK / STOP  78240.1952 CPU   0MIN 01.17SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G26INTK    JOB READ TIME 19:52:33.88   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.17   *
*   JOB CLASS A          JOB INIT TIME 19:52:34.09   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.53   *
*   ACCOUNT   1          JOB END TIME  19:52:35.62   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG    2222222   777777777      A      LL         LL          OOOOOOO    CCCCCCC                  A
            GGGGGGGGG  222222222  777777777     AAA     LL         LL         OOOOOOOOO  CCCCCCCCC                AAA
            GG     GG  22     22  77     77    AA AA    LL         LL         OO     OO  CC     CC               AA AA
            GG               22         77    AA   AA   LL         LL         OO     OO  CC                     AA   AA
            GG              22         77    AA     AA  LL         LL         OO     OO  CC                    AA     AA
            GG   GGGG      22         77     AA     AA  LL         LL         OO     OO  CC                    AA     AA
            GG   GGGG     22         77      AAAAAAAAA  LL         LL         OO     OO  CC                    AAAAAAAAA
            GG     GG    22          77      AAAAAAAAA  LL         LL         OO     OO  CC     CC             AAAAAAAAA
            GGGGGGGGG   22222222     77      AA     AA  LLLLLLLLL  LLLLLLLLL  OOOOOOOOO  CCCCCCCCC             AA     AA
             GGGGGGG   222222222     77      AA     AA  LLLLLLLLL  LLLLLLLLL   OOOOOOO    CCCCCCC              AA     AA

***********A  START   G27ALLOC   SYS SYSA   WTR 00E   07:52:44 PM  28 AUG 1978   WTR 00E   SYS SYSA   G27ALLOC   START  A***********
***********A  START   G27ALLOC   SYS SYSA   WTR 00E   07:52:44 PM  28 AUG 1978   WTR 00E   SYS SYSA   G27ALLOC   START  A***********
***********A  START   G27ALLOC   SYS SYSA   WTR 00E   07:52:44 PM  28 AUG 1978   WTR 00E   SYS SYSA   G27ALLOC   START  A***********
***********A  START   G27ALLOC   SYS SYSA   WTR 00E   07:52:44 PM  28 AUG 1978   WTR 00E   SYS SYSA   G27ALLOC   START  A***********
***********A  START   G27ALLOC   SYS SYSA   WTR 00E   07:52:44 PM  28 AUG 1978   WTR 00E   SYS SYSA   G27ALLOC   START  A***********


//G27ALLOC  JOB 1,'G27ALLOCASP',CLASS=A,MSGCLASS=A,REGION=256K
***********************************************************************
***                                                                 ***
***    Job:      G27ALLOCASP                                        ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Allocate ASP operational data sets:                ***
***              checkpoint, spool and disk reader data set.        ***
***    Update:   2006/08/28                                         ***
***                                                                 ***
***********************************************************************
***
***-----------------------------------------------------------------***
***    SPECIFY VOLUMES TO CONTAIN DATA SETS.                        ***
***-----------------------------------------------------------------***
//STEP0   EXEC PGM=IEFBR14
//QVOL     DD  DISP=OLD,UNIT=3330,VOL=SER=ASPQVS
***
***-----------------------------------------------------------------***
***    ALLOCATE OPERATIONAL DATA SETS.                              ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR G27ALLOC STEP0
IEF237I 154   ALLOCATED TO QVOL
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.RV000.G27ALLOC.R0000458     KEPT
IEF285I   VOL SER NOS= ASPQVS.
IEF373I STEP /STEP0   / START 78240.1952
IEF374I STEP /STEP0   / STOP  78240.1952 CPU   0MIN 00.01SEC MAIN   4K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:52:44.40   ALLOC START    19:52:44.41   MAIN REGION ----- 256K                          *
*   STEP NAME STEP0      STEP END TIME  19:52:44.47   PGM START TIME 19:52:44.43   MAIN STORAGE ------ 4K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.07   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEFBR14    STEP CPU TIME  00:00:00.01   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT                                                                                                            *
*   0154 ------------ 0                                                                                                            *
************************************************************************************************************************************

//OPERDS  EXEC PGM=IEFBR14,COND=(0,NE)
***-------- CHECKPOINT DATA SET ---------------
//CHKPNT    DD DSN=ASP.CHK1,
//             DISP=(NEW,KEEP,DELETE),
//             VOL=REF=*.STEP0.QVOL,
//             SPACE=(CYL,1)
***-------- DISK READER DATA SET ---------
//DRDS      DD DSN=ASP.DRDS,
//             DISP=(NEW,KEEP,DELETE),
//             VOL=REF=*.STEP0.QVOL,
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
//             SPACE=(CYL,(5,,15))
***-------- SPOOL -----------------------------
//QUEUE1    DD DSN=ASP.QUE1,
//             DISP=(NEW,KEEP,DELETE),
//             VOL=REF=*.STEP0.QVOL,
//             SPACE=(CYL,382)
//
IEF236I ALLOC. FOR G27ALLOC OPERDS
IEF237I 154   ALLOCATED TO CHKPNT
IEF237I 154   ALLOCATED TO DRDS
IEF237I 154   ALLOCATED TO QUEUE1
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ASP.CHK1                                     KEPT
IEF285I   VOL SER NOS= ASPQVS.
IEF285I   ASP.DRDS                                     KEPT
IEF285I   VOL SER NOS= ASPQVS.
IEF285I   ASP.QUE1                                     KEPT
IEF285I   VOL SER NOS= ASPQVS.
IEF373I STEP /OPERDS  / START 78240.1952
IEF374I STEP /OPERDS  / STOP  78240.1952 CPU   0MIN 00.01SEC MAIN   4K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:52:44.49   ALLOC START    19:52:44.50   MAIN REGION ----- 256K                          *
*   STEP NAME OPERDS     STEP END TIME  19:52:44.68   PGM START TIME 19:52:44.67   MAIN STORAGE ------ 4K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.19   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEFBR14    STEP CPU TIME  00:00:00.01   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0154 ------------ 0       0154 ------------ 0       0154 ------------ 0                                                        *
************************************************************************************************************************************

IEF375I  JOB /G27ALLOC/ START 78240.1952
IEF376I  JOB /G27ALLOC/ STOP  78240.1952 CPU   0MIN 00.02SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G27ALLOC   JOB READ TIME 19:52:44.36   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.02   *
*   JOB CLASS A          JOB INIT TIME 19:52:44.40   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.30   *
*   ACCOUNT   1          JOB END TIME  19:52:44.70   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************




             GGGGGGG    2222222    8888888   DDDDDDDD    SSSSSSS   VV     VV   CCCCCCC                             A
            GGGGGGGGG  222222222  888888888  DDDDDDDDD  SSSSSSSSS  VV     VV  CCCCCCCCC                           AAA
            GG     GG  22     22  88     88  DD     DD  SS     SS  VV     VV  CC     CC                          AA AA
            GG               22   88     88  DD     DD  SS         VV     VV  CC                                AA   AA
            GG              22     8888888   DD     DD  SSSSSSSS   VV     VV  CC                               AA     AA
            GG   GGGG      22      8888888   DD     DD   SSSSSSSS  VV     VV  CC                               AA     AA
            GG   GGGG     22      88     88  DD     DD         SS   VV   VV   CC                               AAAAAAAAA
            GG     GG    22       88     88  DD     DD  SS     SS    VV VV    CC     CC                        AAAAAAAAA
            GGGGGGGGG   22222222  888888888  DDDDDDDDD  SSSSSSSSS     VVV     CCCCCCCCC                        AA     AA
             GGGGGGG   222222222   8888888   DDDDDDDD    SSSSSSS       V       CCCCCCC                         AA     AA

***********A  START   G28DSVC    SYS SYSA   WTR 00E   07:52:56 PM  28 AUG 1978   WTR 00E   SYS SYSA   G28DSVC    START  A***********
***********A  START   G28DSVC    SYS SYSA   WTR 00E   07:52:56 PM  28 AUG 1978   WTR 00E   SYS SYSA   G28DSVC    START  A***********
***********A  START   G28DSVC    SYS SYSA   WTR 00E   07:52:56 PM  28 AUG 1978   WTR 00E   SYS SYSA   G28DSVC    START  A***********
***********A  START   G28DSVC    SYS SYSA   WTR 00E   07:52:56 PM  28 AUG 1978   WTR 00E   SYS SYSA   G28DSVC    START  A***********
***********A  START   G28DSVC    SYS SYSA   WTR 00E   07:52:56 PM  28 AUG 1978   WTR 00E   SYS SYSA   G28DSVC    START  A***********


//G28DSVC  JOB 1,'G28DSVC',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      G28DSVC                                            ***
***    Product:  MVT 21.8 with ASP V3.2.                            ***
***    Purpose:  Link dummy SVCs to SYS1.SVCLIB.                    ***
***    Update:   2006/08/28                                         ***
***                                                                 ***
***********************************************************************
***
//LKED   EXEC PGM=IEWL,REGION=256K,
//             PARM=(LIST,XREF,MAP,RENT,REUS,REFR)
//SYSPRINT DD  SYSOUT=A
//LINKLIB  DD  DISP=SHR,DSN=SYS1.LINKLIB,VOL=SER=ASPRES,UNIT=SYSDA
//SYSLMOD  DD  DISP=SHR,DSN=SYS1.SVCLIB,VOL=SER=ASPRES,UNIT=SYSDA
//SYSLIN   DD  *
***
IEF236I ALLOC. FOR G28DSVC  LKED
IEF237I 353   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO LINKLIB
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 130   ALLOCATED TO SYSLIN


F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST,XREF,MAP,RENT,REUS,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE LINKLIB(IEFBR14)
IEW0000     NAME IGC0024H(R)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFBR14       00       4


 ENTRY ADDRESS       00
 TOTAL LENGTH         8

****IGC0024H  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND NOT REFRESHABLE.




IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G28DSVC.R0000459      SYSOUT
IEF285I   VOL SER NOS= PERM01.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T193835.RV000.G28DSVC.S0000460      SYSIN
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS78240.T193835.RV000.G28DSVC.S0000460      DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF373I STEP /LKED    / START 78240.1952
IEF374I STEP /LKED    / STOP  78240.1952 CPU   0MIN 00.09SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:52:55.60   ALLOC START    19:52:55.61   MAIN REGION ----- 256K                          *
*   STEP NAME LKED       STEP END TIME  19:52:55.80   PGM START TIME 19:52:55.67   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.20   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.09   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0353 ----------- 19       0150 ------------ 5       0150 ------------ 5       0130 ------------ 3                              *
************************************************************************************************************************************

//IOSUP  EXEC PGM=IEHIOSUP,PARM=TSO,REGION=96K
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSNAME=SYS1.SVCLIB,DISP=OLD,VOL=SER=ASPRES,UNIT=SYSDA
//
IEF236I ALLOC. FOR G28DSVC  IOSUP
IEF237I 158   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSUT1
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T193835.SV000.G28DSVC.R0000461      DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.SVCLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF373I STEP /IOSUP   / START 78240.1952
IEF374I STEP /IOSUP   / STOP  78240.1952 CPU   0MIN 00.52SEC MAIN  14K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:52:55.83   ALLOC START    19:52:55.83   MAIN REGION ----- 256K                          *
*   STEP NAME IOSUP      STEP END TIME  19:52:56.43   PGM START TIME 19:52:55.88   MAIN STORAGE ----- 14K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.60   STEP DPRTY ------------ 27   LCS REGION -------- 0K                          *
*   PGM NAME  IEHIOSUP   STEP CPU TIME  00:00:00.52   PROTECT KEY ----------- 15   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                                                  *
*   0158 ------------ 0       0150 ---------- 646                                                                                  *
************************************************************************************************************************************

IEF375I  JOB /G28DSVC / START 78240.1952
IEF376I  JOB /G28DSVC / STOP  78240.1952 CPU   0MIN 00.61SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM SYSA **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  G28DSVC    JOB READ TIME 19:52:55.53   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.61   *
*   JOB CLASS A          JOB INIT TIME 19:52:55.60   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.85   *
*   ACCOUNT   1          JOB END TIME  19:52:56.45   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 1   *
************************************************************************************************************************************



